home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 6 / 64er_Magazin_Sonderheft_06_86-06_1986_Markt__Technik_de_Disk_1_of_3_Side_A.d64 / kuchen-dia. (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  312b  |  18 lines
  1. 0 rem      kuchen
  2. 10 (NULL):(NULL)1,6:(NULL)1:(NULL)1:(NULL)1:(NULL)
  3. 50 (NULL)160,90,140,80
  4. 60 (NULL)20,90,20,110:(NULL)300,90,300,110
  5. 70 (NULL)160,110,140,80,0,(NULL)/2,3/2*(NULL),(NULL)/60
  6. 100 fori=1to10
  7. 110 a(i)=rnd(1)
  8. 120 next
  9. 150 fori=1to10:s=s+a(i):next
  10. 160 fa=2*(NULL)/s
  11. 175 w=0
  12. 180 fori=1to10
  13. 190 w=fa*a(i)+w
  14. 200 (NULL)160,90,sin(w)*140+160,90-cos(w)*80
  15. 210 next
  16. 230 (NULL)160,180
  17. 240 fori=0to10000:next:run
  18.