H  40Dd" 0f Ã Î É  3 b z  ` dÅËX 262>!!"_:626:>!++8 2>!Ì~#fo6:6Gš*X#|(r ʥʥ !aͽ*(R#( G ~O~U> ʥ> 6*Vͽ! E*Roͬ!( *1[/Ro!9[Ro! _! ! ^#Va*!0:6O ((N*3ۈ˗ӈ^ӈ{ () [/  [1O͉ y 88>##"3[1O͉y̥26!"!( ":6_ }"(@ۈ_˗ӈ#L(DR(D 5~A 0#~T *#~A $>: ~E #~M {ӈ27:626{ӈ~O #~G {ӈ##ۈ_˗ӈ6N{ӈ+_:7(> :6˟26{!`"_!W^#~+z> =O:6W(*/[͉8y*X#| F#~aHFH#~w>(G> w:6W(T͑*/[1~# ( 0>#͉ agEVj} 8>(OHj}(8>'(og!zÌOHvEVv!"("*",͔͔+͔̀lOHH ͚oS(EVHp͚o{2*NCj}2.͈>2=*͖8»(!.͖8 r(w#++"1*"/>26ͻ$%!2=ͻ!ͬO[>26*/"3!"e"!(":6W[ͨs&>*/[1~# ͉ >mͬG[!]TN#~+G(r~2(~2)~(4"(%(!8!*1(:626 O ~( :6_ s#r˟26!][(~RMD!9CC> V^#V#S(ůͮ4#~(V:626YP͉+~#(60V(!V :626͚V =8!*()!> V~##D C1*"/>26!ͮ!a6"2]Ͱ*RDMW:=*16#"11:626Aj͉8Ͳ![[0""ͯOHH}} EVHo&`̀~ɷIH6_(@ ,-(16##q#p%>w##s#rs{8 0`8 _NIH`EVj} 0OHj}(0o-_  ˯<:__2VRH֯2͐U >2͐U oRF͗oRFH:6ˏ(26RSH4#Oy/OO.  +60-  +wSHq##s#rTCj}e"(SH";w##s#rRSH͗:(0 6-#ڰ :.OO o:0X:( 6.#= >0 ͚o{2*o:*( 0w{7w#x *;~-6 *;:**w# *̀ ~`80 w#̀~#!VSj7 PSj}P7 # `+~8wÑ >ӎ>ӎ*C|~(DSH:(2o"C|ɯ2=QEH=Wy:>8WNH*]T6 N##^#V (*7:=:>O72>2=E@X=X^#Vɯ2=E@Xݯ2=E=0P:>0E7:=:>O7/2>b~#fo:>FNj$% }E)>2=|EͱHoHϯSHF##^#VIH*5 ( 88>#w#r>{w##s#r+++(*ONIH:= 5^8*1"3 >2=:?(![1*3͉~#"32? !=!=> !9[/RMD[1+#>25!9[͉8*V"1BMDS/^ */"3*3w#"3[1͉B*3[16#͉ B:=A:5<25͈͖8 C(!F͖ 2O:5(**/"3͖ w͖͖ $%( 0(>2=ͻ*/!!JN =&ͨ:5<25s>:5*/"3~  f>mV>2=O>ӊ*";!x"ۈ@ӈ!*";!"2*;">Ӎӎӊۈӈ!>Ӎ*;"Z5W08 aiQ5_ |?G|8OG&|E(|E?ͱW4#~#08:8> [H> ! *$ ]>Ӎ>Ӎ: >2 >2.] -(H2ۈӈ:(WZ8?05082ۈӈ:(570{g{w 7|wO g!:<= >Ӎ0>Ӎ>>.Ӎ>2: >Ӎ>Ӎ>2կ2ۈӈ:(_2ۈӈ:(:6_(˟26 :(> p<wێD2>ӎ>ӎۈ ӈM:=2*C+"C| >ӍӎBitte Band startenBitte Band stoppenSpeichergrenze erreicht!Lesefehler erkannt!Lesefehler! zurueck? J/Nfalscher Block!kein BASICODE-Programm!kein BASICODE-Bestand!unerlaubter BASICODE-Befehl!kein ASCII-File im Speicher!Bestaende geschlossen!Name: Zeile ist zu lang Hz erkannt  LOG Bytes Programm:ASC-File:Frei : * : Funktion ---:------------------------------- L : Laden, Uebersetzen und Starten S : Retten im KC-Format A : Einlesen ASCII-File W : Retten ASCII-File T : Uebersetzen ASCII-File ==> BASIC C : Uebersetzen BASIC ==> ASCII-File K : Listen ASCII-File welche Funktion? :ȇςζ½ʬOHEVxNII SNCGH GVpBBBBA/0BBBB4BBBBLSAWTCK1[  !"Ƿ!"!"E!""C!( ">822ַ>ӎ>Ӊ!"!(7# B A S I C O D E - 3 KC85/4 ______ Version 1.1 vom 09.08.89 > Andreas u. Uwe Zierott < >*!"!( "> $"*!"!#~# ɯF~ FۈW !Áկlg]W)))))W~ > ë_y >{-8-'_!~_xӍ{Ӎ>ӎ>ӎyOӉ>aӉ>ӍyӍ >ӍyӍ0 >Ӊ>Ӎ*("+"ӷ:*2-/2շ:_:.2ַ0ë*+":-/2*("+":*2-/222:_:.2ַ>ëxG*(>2G2@25:6@2644 *4 #4:=>2= :@(` `>   !=2@!=> *3:G= I:6w( 26 :5ݾ( 4(*0 0(>2=b~<25nf>2G~#"3ë*^V>6#"3>t2G:6@26ë > *3w#:G= !:6w( 26nf>"32Gë> ͫ>2=!"E!ض(ëH! (~0yw#_ۈW{ 0{ͮ[E$"E|HW 8 `0* @*o&)))ʿxqke_ZUPLGC@<9630-+(&$"   7 *L *S *A *W *T *C *K %REBASIC CALL*40D ----------------------------------! ! (c) Andreas und Uwe Zierott ! Stand: 08.08.89 !- !V----------------------------------!` 1000p410:1010|d413:n416:x419:41C:41F:422:425:428:42B:42E:431:,434: 6437:J43A:$^43D:0h440:<443:H446:T449:`44C:l044F:xD452:X455:l458:v45B:45E:461A250:20: ** FIGUREN ** TROS-RADIO dd 860712%H2(HG2):V2(VG2):CN0:RD3.14180:P$"Prog : "EPP$"Dit programma tekent "vHBHO:VBVE:H.5:U160:V100:H1HG1:V1VG1X(24),Y(24),XX(5),YY(5),H(320),M$(14)X1 90:I:X$X1 14:M$(X):X.SR$"FIGUREN":HOHB27:VE0:110:1508B::"U kunt kiezen uit :"!L.VX1 149`M$(X)@jXFt]~"Geef Uw keuze ";|210:GNIN64:SR$IN$:330SR$GN14 950GN13 18000:1070(GN1)(GN12) 1150"Wilt U de uitleg (J/N) ";210 (IN74)(IN78) 1210 100) P$;M$(GN):: IN78 1300J GN6 1290w GN 11020,11510,12010,12510,13010,13510 1310 GN6 14010,14510,15010,15510,16010,16510 GN6 1330 GN 2010,3010,4010,5010,6010,7010 (1340!2GN6 7320,8010,8130,9010,9220,10010$!<250D!FSR$"=>":HO.93:VE.93:650[!P200:IN$"" 1360j!Z100:1070! * INGESCHREVEN VIERKANTEN *!"Geef K : ";!K:K3 2030!X(1)1000:Y(1)5999:X(2)6999:Y(2)Y(1)"X(3)X(2):Y(3)0:X(4)X(1):Y(4)Y(3)" X(5)X(1):Y(5)Y(1)("600M" N1 5.9915((K(K2)2)KK)Y"*J1 4|"4HOX(J)8000:VEY(J)6000:620">HOX(J1)8000:VEY(J1)6000:630"HJ"RJ1 4"\XX(J)X(J)(X(J1)X(J))K"fYY(J)Y(J)(Y(J1)Y(J))K"pJ#zJ1 4!#X(J)XX(J):Y(J)YY(J)(#J@#X(5)X(1):Y(5)Y(1)G#NM#n# * SYMMETRISCHE FIGUREN *# "Geef A : ";# A# "Geef B : ";# B# "Geef C : ";# C# 600# W0 360# TWRD:RVV2(CT):RHH2RVV2$ HO(H2RH(AT)H)H1,$& VE(V2RV(BT)H)V1B$0 W0 620:3140K$: 630R$D WX$N s$ * TURTLE-GRAFIEK *$"Beginrichting (graden) : ";$W$"Verplaatsing : ";$S$"Draaihoek, linksom : ";$DW%"Toename zijde : ";%DS%%W1WRD:%600:X2H2:Y2V2O%HO.5:VE.5:620i%HO(X2S(W1)H)HG%"VE(Y2S(W1)H)VG%,(HO0)(HO1)(VE0)(VE1) %6630:X2HOHG:Y2VEVG%@WWDW:W360 WW360%JW1WRD:SSDS%T4120& * DIAGONAALWEB *=&"Aantal punten (1 - ";HG;") : ";[&HP:(HP1)(HPHG) 5010d&600u&Y10:Y2VG1&X10 HG1 HGHP&X20 HG1 HGHP&HOX1HG:VEY1VG:620&HOX2HG:VEY2VG:630&X2&X1&'p * KUBUS MET ACHTVLAK *8'z"Geef alfa in graden (1 - 90) : ";S'A:(A1)(A90) 6010|'"Verkleiningsfactor (.1 - 1) : ";'K:(K.1)(K1) 6030'WARD:CK(W):SK(W)'J1 14'X,Y,Z'X(J)(UXCYH)'Y(J)(VSYZH)'J(600(M1 24(I,J?(HOX(I)321:VEY(I)201:620`(HOX(J)321:VEY(J)201:630g(Mm((X * VIER BERGEN *(b"Alpha in graden (50 - 135) : ";(lW:(W50)(W135) 7010(v"Verkleiningsfactor (.5 - .75) : ";)K:(K.5)(K.75) 7030.)CK(WRD):SK(WRD)B)DX3:DY5:K120P)L0 320^)H(L)1000e)Ln)600)YY115 115 DY)M1(YY23.141153.14)1)XX115 115 DX)M2(XX23.141153.14)1)ZK1M1M2)XG(UXXCYYH)*YG(VSYYZH)%* XX115 72209*F10:L(XGDX)U* YGH(L) F11:H(L)YGk**X1XG:Y1YG:7280*4F20:L(XGDX)*>YGH(L) F21:H(L)YG*HX2XG:Y2YG:Y20 Y20*RF1F21 HOX1321:VEY1201:620+\F1F21 HOX2321:VEY2201:630+fX1X2:Y1Y2:F1F2++pY10 Y103+uXX;+zYYA+]+ * PARABOOLSTELSEL *+"Aantal parabolen (2 - 50) : ";+N:(N2)(N50) 7320+NN1:600+K100 100 200N+X110 110 5+HO(UXH)321,VEKXX6400K:VE(VVEH)201+,X110 620:74104,630;,XB,KH,m,@ * SINUSKROMMEN IN CIRKELS *v,J600,TK40 40 10,^W0 360 2,hPWRD:RV2(VG4)K(4P),rHO(H2R(P)H)HG,|VE(V2R(P)H)VG-P0 620:8090 -630-W-K-@- * KUBUS MET ZADELVLAK *h-"Alpha in graden (1 - 90) : ";-A:(A1)(A90) 8130-"Verkleiningsfactor (.1 - .6) : ";-K:(K.1)(K.6) 8150-"Hoeveel lijnen : ";.N:N0 8170.WARD:CK(W):SK(W)*. J1 85. X,Y,ZK. X(J)(UXCYH)a.& Y(J)(VSYZH)m.0 J:600.: J1 9:X,Y:J.D M1 12.N I,J.X HOX(I)321:VEY(I)201:620.b HOX(J)321:VEY(J)201:630.l M.v J0 N / X1(X(2)J(X(7)X(2))NH)./ Y1(Y(2)J(Y(7)Y(2))NH)O/ X2(X(5)J(X(4)X(5))NH)p/ Y2(Y(5)J(Y(4)Y(5))NH)/ HOX1321:VEY1201:620/ HOX2321:VEY2201:630/ J/ HOX(2)321:VEY(2)201:620/ HOX(7)321:VEY(7)201:6300 HOX(5)321:VEY(5)201:62050 HOX(4)321:VEY(4)201:630;0 ]0(# * DIAGONALEN IN N-HOEK *02#"horizontale d (1 - ";H2;") : ";0<#A:(A1)(AH2) 90100F#"Vertikale d (1 - ";V2;") : ";0P#B:(B1)(BV2) 90301Z#"Hoeveel hoekpunten (3 - 24) : ";)1d#N:(N3)(N24) 905021n#600C1x#W(360N)RDQ1#J0 N1\1#W1JWu1#X(J)(H2A(W1)H)1#Y(J)(V2B(W1)H)1#J1#I0 N21#JI1 N11#HOX(I)H1:VEY(I)V1:6201#HOX(J)H1:VEY(J)V1:6301#J1#I2#"2# * STELSEL KROMMEN *42$"Geef A : ";;2$AM2$"Geef B : ";T2"$B]2,$600j26$N3 3{2@$W0 360 32J$TWRD2T$X(AB)(T)NB((AB)BT)2^$Y(AB)(T)NB((AB)BT)2h$HO(H210XH)HG2r$HO1 HO.999993|$HO0 HO03$VE(V210YH)VG43$VE1 VE.99999D3$VE0 VE0Z3$W0 620:9400c3$630j3$Wq3$Nw3$3' * KEGEL *3'"Alpha in graden (1 - 90) : ";3$'A:(A1)(A90) 100103.'"Verkleiningsfactor (.1 - .6) : ";48'K:(K.1)(K.6) 10030>4B'"Straal R1 (0 - ";H2;") : ";]4L'R1:(R10)(R1H2) 100504V'"Straal R2 (0 - ";H2;") : ";4`'R2:(R20)(R2H2) 100704j'DR(R1R2)64t'WARD:CK(W):SK(W):N04~'6004'Z60 60 205'RR1NDR5'W0 360 3 5'W1WRD85'XR(W1):YR(W1)J5'W10 10210b5'HO(H2XCYH)H1z5'VE(V2SYZH)V15'620:102505'HO(H2XCYH)H15'VE(V2SYZH)V15'(HO0)(HO1)(VE0)(VE1) 102505(6305 (W5(NN16(Z6((W0 360 23#62(W1WRD=6<(XR1(W1):YR1(W1)U6F(HO(H2XCYH)H1n6P(VE(V2SY60H)V16Z(XR2(W1):YR2(W1)6d(X(H2XCYH)H16n(Y(V2SY60H)V16x(6206(HOX:VEY:6306(W6(6* * UITLEG *7+ * INGESCHREVEN VIERKANTEN *07 +PP$;" vierkanten,"[7+"en wel zo dat de hoekpunten van een"7 +"vierkant op een vast deel van de zij-"7*+"den van zijn voorganger komen."74+"U kunt zelf kiezen hoe groot dat"7>+"vaste deel (K) moet zijn."8H+"(20 geeft een mooi resultaat.)"G8R+"Als U bijvoorbeeld 20 indrukt, wil"s8\+"dat zeggen dat de hoekpunten op 1/20"8f+"deel rechts op de zijden van het"8p+"vorige vierkant komen."8z+190108, * SYMMETRISCHE KROMMEN *8,PP$;"een altijd"(9-"symmetrische figuur door 3 parameters"E9 -"(A,B,C) in te voeren."j9-:"Enige mooie resultaten : ":9-" A B C":9(-" 2 7 3"92-" 6 6 4"9<-" 4 6 1":F-" 1 1 4" :P-" 3 3 5">:Z-" 2 2 9"I:d-19010\:. * TURTLE *:."Dit programma is een kleine simulatie":."van LOGO.":."Door de beginrichting, verplaatsing,":/"draaihoek linksom en de toename";/"van de zijde te geven wordt er een"/;/"figuur getekend."S;&/:"Enige mooie resultaten :":;0/"Beginr. verpl. draaih. toe. zijde":;:/" 90 5 144 3";D/" 90 5 123 2";N/" 90 -2 92 2"!419010&>6 * PARABOOLSTELSEL *=>6PP$;"een stelsel"i>6"parabolen met de functie y=-k*x*x+k."t>619010>8 * SINUSKROMMEN IN CIRKELS *>8PP$;"sinuskrommen">8"die cirkelvormig gekromd zijn."?8"Het resultaat lijkt hierdoor op een"?8"bloem."?819010:?: * KUBUS MET ZADELVLAK *S?:PP$;"een kubus met"i?:"een zadelvlak."?:"Om te laten zien wat een zadelvlak"?:"is, kunt U het beste voor aantal"?:"lijnen 32 invullen."?:19010@< * DIAGONALEN IN N-HOEK *@ * STELSEL KROMMEN *A>PP$;"een stelsel krom-">A>"men. U kunt naar hartelust experimen-"hA>"teren, doordat er twee (A,B) waar-"A>"den ingevoerd kunnen worden.":A>"Hier volgen enige mooie resultaten:"A>:"A : -6 -6 -8 4 4 6 4.5"B>"B : 1 2 2 1 2 1 1.5"B>19010 Bt@ * KEGEL *5B~@PP$;"een kegel"]B@"Er worden 7 breedtecirkels en 16"B@"lijnen op de kegelmantel loodrecht"B@"op de breedtecirkels getekend."B@"Als U voor R1 (onderste straal) en"C@"R2 (bovenste straal), hetzelfde getal".C@"invoert, ontstaat er een cilinder."[C@"Als R2>R1 dan is de kegel omgedraaid."C@"Als R1 of R2 nul is krijgt U een"C@"echte kegel, anders een afgeknotte."C@19010C@ * ALGEMENE UITLEG *CPF100:"ALGEMENE UITLEG" DZF"---------------"::8DdF"In dit programma zijn allerlei klei-"[DnF"nere programma's opgenomen."DxF"Hiermee kunnen allerlei figuren ge-"DF"maakt worden."DF"U kunt ze selecteren van het menu."DF"Als U heeft gekozen kunt U nog een"EF"kleine uitleg over het gekozen pro-"1EF"gramma lezen.":\EF"Soms wordt er naar de verkleinings-"tEF"factor gevraagd."EF"Dwz. hoe groot de lijnen evenwijdig"EF"aan de x-as tov. de lijnen evenwijdig"EF"aan de z of y-as worden."FF"Het mooiste resultaat wordt meestal">FF"verkregen door .5 in te vullen."IFF19000tFG"Als er naar alpha gevraagd wordt is"FG"dit de hoek tussen de x-as en y-as."FG"Hier wordt meestal het mooiste"F"G"resultaat bereikt door 45 graden"G,G"in te vullen.",G6G:"VEEL PLEZIER MET DIT PROGRAMMA !"?G8J * TOETS *VGBJHOHB3:VEVB:110aGLJ"=>";yGVJ200:IN$"" 19030G`J100:Ga * KUBUS *Ga-60,-60,-60,60,-60,-60Ga60,60,-60,-60,60,-60Ga-60,-60,60,60,-60,60Ga60,60,60,-60,60,60Ha0,0,-60,0,-60,0,60,0,05Ha0,60,0,-60,0,0,0,0,60jHa1,2,2,3,3,4,4,1,1,5,2,6,3,7,4,8,5,6,6,7,7,8,8,5Ha9,10,9,11,9,12,9,13,10,11,11,12,12,13,13Hb10,10,14,11,14,12,14,13,14He"A. Ingeschreven vierkanten"He"B. Symmetrische krommen"Ie"C. Turtle-grafiek")Ie"D. Diagonaalweb"DIe"E. Kubus met 8-vlak"ZIe"F. Vier bergen"tIe"G. Paraboolstelsel"Ie"H. Sinuskrommen in cirkels"Ie"I. Kubus met zadelvlak"Ie"J. Diagonalen in een n-hoek"Ie"K. Stelsel krommen"Je"L. Kegel"Jf"M. Algemene uitleg"-Jf"N. Stoppen"QJ0u ********************uJ:u IDEEEN AFKOMSTIG VANJDu HET BOEK :JNu 40 GRAFISCHE PRO-JXu GRAMMA'S VOOR DE C64J} ********************K } DOOR RONALD VAN VUGT@K} PA3EAH, POSTBUS 160dK} 5580 AD, WAALRE (NB)jK(}K2} GEMAAKT OP EENK<} ZX SPECTRUMKF}KP} JUNI 1986, V1.1KZ} ********************Ld} TROS-RADIO dd 860712 ZX SPECTRUMKF}KP} JUNI 1986, V1.1KZ} ********************Ld} TROS-R