
0 GOTO65!
    ## FARBFRA 4 ##


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"<ENTER>";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 <Enter> gedr}ckt wird."
167 PRINT:PRINT:PRINTTAB(25);:INPUT"<ENTER>";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"<ENTER>";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"<ENTER>";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.