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 / ellipse-demo (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  313b  |  15 lines
  1. 0 rem  ellipse-demo
  2. 10 (NULL)1:(NULL):(NULL)1:(NULL)1:(NULL):(NULL)1:(NULL)1,0:poke53280,0
  3. 20 (NULL)160,100,99,99,0,0,234,3.1
  4. 30 fori=0to5000:next
  5. 40 (NULL)
  6. 50 (NULL)160,100,99,99,-.34,0,260,2.1
  7. 60 fori=0to5000:next
  8. 70 (NULL)
  9. 80 fork=0to(NULL)step(NULL)/11:(NULL)160,100,99,50,k,0,2*(NULL),(NULL)/30:next
  10. 90 fori=0to5000:next
  11. 100 (NULL)
  12. 110 fork=0to2*(NULL)-.1step(NULL)/10:(NULL)160,100,99,99,k,0,2*(NULL)+.1,2/3*(NULL):next
  13. 120 fori=0to5000:next
  14. 130 (NULL)0
  15.