home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 87xx / 8712a.d64 / chaos-folge (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  915b  |  32 lines
  1. 10 REM ****************************
  2. 20 REM *       CHAOS-FOLGE        *
  3. 30 REM * 1987 BY STEFAN VILSMEIER *
  4. 40 REM ****************************
  5. 50 :
  6. 60 IF A=0 THEN A=1:LOAD "FRACTAL.OBJ",8,1
  7. 70 OPEN 1,8,15,"U9":CLOSE 1: REM DIESE ZEILE KANN BEI PROBLEMEN MIT DEM
  8. 80 REM FLOPPYSPEEDER WEGGELASSEN WERDEN!
  9. 90 POKE53280,0:POKE53281,0:DIMH%(128):PRINT"[147]"
  10. 100 INPUT "A,X0  ";A,X
  11. 110 REM ************ GRAFIK EIN *****
  12. 120 SYS 50176,14,0:SYS 50179,1:SYS 50194
  13. 130 :
  14. 140 :
  15. 150 REM ***************************
  16. 160 REM *     HAUPTSCHLEIFE       *
  17. 170 REM ***************************
  18. 180 :
  19. 190 FORI=20TO180STEP20:SYS50185,0,I,5,I,1:NEXT: REM SKALIERUNG
  20. 200 FOR I=1 TO 62
  21. 210 :XS=I*5+10:YS=200-X*200
  22. 220 :SYS50185,XS-2,YS,XS+2,YS,1:SYS50185,XS,YS-2,XS,YS+2,1
  23. 230 : X = A * X * (1-X): REM ITERATION
  24. 240 NEXT
  25. 250 : REM *** ENDE HAUPTSCHLEIFE ****
  26. 260 :
  27. 270 :
  28. 300 SYS 50185,0,0,319,0,1:SYS 50185,319,0,319,199,1
  29. 310 SYS 50185,319,199,0,199,1:SYS 50185,0,199,0,0,1
  30. 320 GET A$:IF A$="" GOTO 320
  31. 330 SYS 50179,0:GOTO 100
  32.