10 REM ****************************
20 REM *       CHAOS-FOLGE        *
30 REM * 1987 BY STEFAN VILSMEIER *
40 REM ****************************
50 :
60 IF A=0 THEN A=1:LOAD "FRACTAL.OBJ",8,1
70 OPEN 1,8,15,"U9":CLOSE 1: REM DIESE ZEILE KANN BEI PROBLEMEN MIT DEM
80 REM FLOPPYSPEEDER WEGGELASSEN WERDEN!
90 POKE53280,0:POKE53281,0:DIMH%(128):PRINT"[147]"
100 INPUT "A,X0  ";A,X
110 REM ************ GRAFIK EIN *****
120 SYS 50176,14,0:SYS 50179,1:SYS 50194
130 :
140 :
150 REM ***************************
160 REM *     HAUPTSCHLEIFE       *
170 REM ***************************
180 :
190 FORI=20TO180STEP20:SYS50185,0,I,5,I,1:NEXT: REM SKALIERUNG
200 FOR I=1 TO 62
210 :XS=I*5+10:YS=200-X*200
220 :SYS50185,XS-2,YS,XS+2,YS,1:SYS50185,XS,YS-2,XS,YS+2,1
230 : X = A * X * (1-X): REM ITERATION
240 NEXT
250 : REM *** ENDE HAUPTSCHLEIFE ****
260 :
270 :
300 SYS 50185,0,0,319,0,1:SYS 50185,319,0,319,199,1
310 SYS 50185,319,199,0,199,1:SYS 50185,0,199,0,0,1
320 GET A$:IF A$="" GOTO 320
330 SYS 50179,0:GOTO 100