home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1987 December / 64er_Magazin_87-12_1987_Markt__Technik_de_Side_A.d64 / chaos-folge (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  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.