home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
87xx
/
8712a.d64
/
chaos-folge
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
915b
|
32 lines
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