A500:20: SPIRO-GRAPH  REGELLENGTE IN HL, AANTAL REGELS IN VL HLHO:VLVE ! KIES GRAFISCH SCHERM EN TEKEN DE PROGRAMMANAAM!600:CN0A! LEES EEN GETAL UIT DE DATA REGELSI!$HOt!. ALS HO NU -2 IS, IS DE TEKENING AF.!8HO2 1180!B WANNEER HO NU -1 IS --> NIEUW BEGINPUNT!LHO1 1140!VHO,VE:HOHO.03125:VEVE.0625:620!`1060."j LEES VERTICALE COORDINAAT, CONVERTEER EN TEKENT"tVE:HOHO.03125:VEVE.0625:630^"~1060d"" SINUS/COSINUS TABEL SAMENSTELLEN"SI(360),CO(360)"T0 45"H.01745329252T:S(H):A.74S:C(H):B.74C #SI(T)S:SI(90T)C:CO(T)B:CO(90T)A?#SI(180T)S:SI(90T)C:CO(180T)B:CO(90T)Aw#SI(180T)S:SI(270T)C:CO(180T)B:CO(270T)A#SI(360T)S:SI(270T)C:CO(360T)B:CO(270T)A#T## EVENTUEEL UITLEG#100:"Wil je uitleg (Toets J of N)? ";$ 210$IN78 1600*$IN74 12900$(D$2100:V$"":RT0j$< PRINT TEKST VANUIT DATA REGELS$F LENGTE V$>REGELLENGTE? OK$P(V$)HL 1440$Z HAAL REGEL UIT DATA REGELS$dD$$n LEGE REGEL OF EINDE TEKST? PRINT V$%x(D$"#")(D$"@")T(V$):1480B% INGELEZEN REGEL BIJ DE 'VOORRAAD'U%V$V$D$:1360s% ZOEK DE LAATSTE SPATIE|%THL%T0 THL:1480%(V$,T,1)" " TT1:1450% PRINT DE REGEL%(V$,1,T):RTRT1 & HAAL DE GEPRINTE REGEL UIT DE VOORRAAD'&(V$)T V$"":1530<&V$(V$,(V$)T)V& EV. VOLGENDE REGELv&(RT(VL2))(D$"@")1360& EINDE VAN PAGINA OF TEKST&HO1:VEVL:110&"Druk op 'n toets ";:210&"D$"@" 100:RT0:1360&,'6 STRAAL EN OVERBRENGING OPVRAGEN'@100C'J:"Geef de straal (0..1) ":KL\'T(KL0)(KL1)1610'^:"Overbrenging ((-) 0.1..20) ":VH'h((VH)20)((VH).1)1630'r'| INGEGEVEN WAARDES AANPASSEN, ZODAT DE TEKENING ( BUITEN HET TEKENVENSTER KAN KOMEN%(KLKL2.01:SZ.4975KLQ(SC5(HGVG(VH))150000:SC.5 SC.5W(( KIES GRAFISCH SCHERM EN TEKEN 1E PUNT(600:HO.868266666:VE.5:GH0:KH0:CN0:620(( BEREKEN EN TEKEN LIJN NAAR NIEUW PUNT)HO.5SZCO(GH)KLCO(KH)$)VE.5SZSI(GH)KLSI(KH)-)630M)GHGHSC:GH360 GHGH360])KHKHSCVHt)KH360 KHKH360)KH0 KHKH360))& KIJK NAAR EV. INGEDRUKTE TOETS)0200:IN$"" 1750):IN83 950)D100:1610*a DATA VOOR SPIRO-GRAAF INTRODUCTIE TEKENING@*a -1 BETEKENT NIEUW BEGINPUNT^*a -2 BETEKENT EINDE DATA*a ANDER GETAL BEPAALT EINDPUNT VAN EEN LIJN*a*a S*a-1,4,1,3,0,1,0,0,1,0,2,1,3,3,3,4,4*a4,5,3,6,1,6,0,5*a P +b-1,6,6,6,0,9,0,10,1,10,2,9,3,6,3+ b I9+b-1,12,0,14,0,13,0,13,6,14,6,12,6B+ b Rh+*b-1,16,6,16,0,19,0,20,1,20,2,19,3|+4b16,3,17,3,20,6+>b O+Hb-1,22,5,22,1,23,0,25,0,26,1,26,5+Rb25,6,23,6,22,5+\b -+fb-1,28,3,30,3+pb G ,zb-1,5,10,4,9,2,9,1,10,1,14,2,15,4,15 ,b5,14,5,12,3,12),b RQ,b-1,7,15,7,9,10,9,11,10,11,11,10,12f,b7,12,8,12,11,15o,b A,b-1,13,15,13,10,14,9,16,9,17,10,17,12,b13,12,17,12,17,15,b A,b-1,19,15,19,10,20,9,22,9,23,10,23,12,b19,12,23,12,23,15-b F--b-1,25,15,25,12,28,12,25,12,25,9,29,9:-b EINDEB-c-2H-cY-c DE UITLEG_-$c-.c"De SPIRO-GRAAF is een grote ring met tandjes,"-8c" waarin een kleiner tandwiel past.","#"-Bc"In dit kleine wiel zitten gaatjes en als je "'.Lc"een balpen in een van die gaatjes stopt, "W.Vc"kan je het kleine wiel in de grote ring "o.`c"ronddraaien.","#".jc"Door de maat van het kleine wiel ".tc"(overbrengverhouding) en de keuze van het ".~c"gaatje (straal van kleine cirkel) te "'/c"veranderen, ontstaan de mooiste figuren "A/c"op papier.","#","#"r/c"Deze procedure wordt door dit Basicode 3 "/c"programma gesimuleerd. Je moet 2 getallen "/c"intikken om de straal en overbrengverhouding "0c"in te stellen, waarna het programma een figuur "F0c"tekent. Voor de straal kan je een getal van 0 "w0c"tot 1 kiezen en voor de overbrenging een "0c"getal van -20 tot +20.","#"0c"Wanneer je tijdens het tekenen een "0c"toets indrukt wordt de tekening gewist en mag "/1c"je andere getallen intikken, tenzij je op de "e1d"'S' toets drukt, want dan stopt het programma."n1 d"@"1} +---------------------------------------------+1 } ! SPIRO-GRAAF IS GESCHREVEN DOOR P.ZEVENHOVEN !2} ! !J2} ! EERSTE PUBLICATIE IN C.U.C. INFO NUMMER 2/3 !2(} ! !22} ! AANGEPAST AAN BASICODE 3 IN JANUARI 1986 !2<} +---------------------------------------------+ 3F} TROS RADIO dd 8608023P}13Z} Erstaustrahlung: DS-KulturF3d}-spezial 900711------------------------------------+ 3F} TR