home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8504b.d64 / ellipse-demo (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.