home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 86xx / 8607.d64 / pg64-demo (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  420b  |  22 lines
  1. 1 (null)0
  2. 2 (null):GOSUB19:GOSUB21
  3. 3 GOSUB20:GOSUB21:END
  4. 4 FORS=0TO1
  5. 5 FORX=0TOXM:Y=199*X/(2*XM)
  6. 6 (null) XM,0,XM+X,100-Y
  7. 7 (null) XM,0,XM-X,100-Y
  8. 8 (null) XM,199,XM+X,100+Y
  9. 9 (null) XM,199,XM-X,100+Y
  10. 10 (null) 0,100,XM-X,100-Y
  11. 11 (null) 0,100,XM-X,100+Y
  12. 12 (null) 2*XM,100,XM+X,100-Y
  13. 13 (null) 2*XM,100,XM+X,100+Y
  14. 14 NEXT:(null) 2
  15. 15 FORX=0TOXMSTEPXM/16:Y=199*X/(2*XM)
  16. 16 (null) X,Y,2*XM-X,199-Y
  17. 17 NEXT:NEXT:FORX=0TO3000:NEXT
  18. 18 RETURN
  19. 19 (null)6,14:(null):XM=160:RETURN
  20. 20 (null)7,2,14:(null):(null)1:XM=80:RETURN
  21. 21 (null)0:GOSUB4:(null):GOTO4
  22.