0 GOTO65! ## FARBFRA ## 2 INK1:N$=STRING$(32,CHR$(128)):FORZ=0TO31:PRINTAT(Z,0);N$;:NEXT:INK7:RETURN 5 CLS:PRINTF$(10) 8 N$="":PRINT:INPUT" Name? ";N$ 11 IFN$>""THENCSAVE*""+N$;F$:GOTO5 14 PRINT:INPUT"";N$:GOTO89 17 CLS:P=10:N=0:N$="":DIMF$(P) 20 INPUT" Name! ";N$ 23 IFN$>""THENCLOAD*""+N$;F$:ELSE89 26 CLS:PRINTN$;" ":PRINTF$(P):DOKE17,0:FORN=0TO9 29 FORP=1TOLEN(F$(N)):F=USR(ASC(MID$(F$(N),P,1))):NEXT:NEXT:GOTO8 32 CLS:A=0:B=A:C=10:X=A:Y=A:Z=A:P=A:F=A:K=A:M=A 35 D=32:S=A:T=A:J=A:I=A:R=A:INPUT"X1,X2 =";R,A:S=(A-R)/64 38 PRINT:INPUT"Y1,Y2 =";B,Y:T=(Y-B)/64:PRINT:DIMF$(C) 41 INPUT"Zyklen?";M:M=INT(ABS(M)):IFM=XTHENN$="":GOTO89 44 N$=CHR$(13):F$(C)="X1,X2 = "+STR$(R)+","+STR$(A)+N$+"Y1,Y2 = " 47 F$(C)=F$(C)+STR$(B)+","+STR$(Y)+N$+"Z ="+STR$(M) 50 GOSUB2:DOKE17,0:Y=Y+T:FORI=0TO63:X=R-S:Y=Y-T 53 FORJ=1TOD:F=0:FORK=8TO1STEP-7:X=X+S:A=-Y:B=X:P=0 56 FORZ=0TOM:C=A*B:A=A*A:B=B*B:IFA+B>4THENP=K*(Z-INT(Z/8)*8):Z=M 59 A=A-B-Y:B=C+C+X:NEXT:F=F+P:NEXT:A=INT(I/7) 62 F$(A)=F$(A)+CHR$(USR(F+D)):NEXT:NEXT:BEEP:BEEP:GOTO8 65 FORA=1TO18:READB,T:IFPEEK(-2244)<>BTHENNEXT:ELSEA=18:NEXT 68 IFT<20THENPRINT"Dies ist kein KC85/2, 3 oder 4":END 71 FORA=0TO7:POKEA,240:NEXT:VPOKE14252,0:VPOKE14253,0:IFT>40THEN77 74 RESTORE116:FORA=10TO38:READB:POKEA,B:NEXT:GOTO80 77 RESTORE122:FORA=10TO64:READB:POKEA,B:NEXT 80 IFDEEK(8)=0THENDOKE8,DEEK(772) 83 WINDOW0,31,32,39:COLOR7,1:CLS:PRINT:PRINT"GERRiT'sFARBFRA 7.2.2010" 86 GOSUB2:WINDOW6,31,32,39:DOKE772,10 89 CLS:PRINT"F=FRAK- TAL":PRINT:PRINT"L=LADEN":PRINT 92 PRINT"H=HILFE":PRINT:PRINT"E=ENDE":PRINT:INPUT"Wahl:";N$ 95 IFN$="L"THENCLEAR2500:GOTO17 98 IFN$="F"THENCLEAR5000:GOTO32 101 IFN$="H"THENGOTO134:ELSEIFN$<>"E"THEN89 104 DOKE772,DEEK(8):PRINT:PRINT"Tsch}~!":VPOKE14253,254 107 WINDOW0,31,0,39:PAUSE20:CLS:END 110 DATA54,13,237,13.2,44,1,24,21,62,22,216,24,48,23.1,254,23.3,178,31 113 DATA247,34,209,39,125,41,76,42,17,42.2,61,43,201,44,35,50,208,63 116 DATA205,111,201,205,24,240,33,0,0,62,168,180,103,123,214,32,119 119 DATA35,34,17,0,205,27,240,175,67,195,177,208:!ab hier KC85/4 122 DATA205,111,201,205,24,240,33,0,0,203,252,221,126,1,87,238,2,211,132 125 DATA123,214,32,119,35,119,35,119,35,119,122,211,132,205,27,240,175 128 DATA67,17,253,128,25,203,108,40,4,17,4,224,25,34,17,0,195,177,208 131 !mit Dank an Frank Ludwig f}r den MC 134 WINDOW0,31,0,39:CLS:PRINT 137 PRINT"FARBFRA - Fraktale in 8 Farben am KC85" 140 PRINT:PRINT"F-Fraktal":PRINT"---------" 143 PRINT"Hiermit starten Sie eine":PRINT"Apfelm{nnchen-Berechnung." 146 PRINT"Die Koordinaten X1,X2,Y1,Y2":PRINT"sind paarweise einzugeben." 149 PRINT"Nun noch die Zykluszahl,":PRINT"z.B. 50, und es geht los." 152 PRINT"Dr}cken Sie dort nur Enter,":PRINT"gelangen Sie zur}ck ins Men}." 155 PRINT"Wollen Sie das Bildberechnen":PRINT"stoppen, geht das nur mit" 158 PRINT"der BRK-Taste. Fortsetzen":PRINT"ist dann noch mit CONT m|glich." 161 PRINT"Zum Schlu~ ist das Bild durch":PRINT"Namenseingabe speicherbar." 164 PRINT"Das wiederholt sich":PRINT"bis nur gedr}ckt wird." 167 PRINT:PRINT:PRINTTAB(25);:INPUT"";N$ 170 CLS:PRINT:PRINT"L-Laden":PRINT"-------" 173 PRINT"Richtig, damit holen Sie ein":PRINT"gespeichertes Fraktal" 176 PRINT"zur}ck auf den Bildschirm.":PRINT"Geben Sie einen Namen ein" 179 PRINT"und starten Sie das Band.":PRINT"Wiederum kann mit Namen" 182 PRINT"gespeichert werden." 185 PRINT:PRINT:PRINT"E-Ende":PRINT"------" 188 PRINT"Irgendwann will man ja auch":PRINT"wieder was anderes tun." 191 PRINT:PRINT:PRINTTAB(25);:INPUT"";N$:CLS:PRINT 194 PRINT"Nun noch einige interessante":PRINT"Bildkoordinaten:":PRINT 197 PRINT"Eine }bersicht liefern":PRINT"X1,X2=-2,2 Y1,Y2=-2,2 Z=25" 200 PRINT"Etwas gr|~er wird es mit":PRINT"X1,X2=-1.5,1.5 Y1,Y2=-1,2 Z=50" 203 PRINT"Etwas f}rs Auge ist dann":PRINT"X1,X2=0.128,0.134" 206 PRINT"Y1,Y2=0.739,0.745 Z=300":PRINT 209 PRINT"Gehen Sie auf Endeckungsreise":PRINT"und finden Sie viele" 212 PRINT"sch|ne Bildausschnitte.":PRINT:PRINT"Viel Freude w}nscht" 215 PRINT"Gerrit@GERRiTsoft.de",:INPUT"";N$:GOTO83 218 !Dieses Programm darf ge{ndert werden. Teile, auch der MC d}rfen 221 !unter Angabe der Quelle verwendet werden. 224 !Aenderungen bei Weitergabe bitte kommentieren. eile, auch der MC d}rfen 221 !unter Angabe der Quelle verwendet werden.