home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 89xx / 8903a.d64 / demo3 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  361b  |  21 lines
  1. 10 LINE=49152
  2. 20 HARDCOPY=49155
  3. 30 CLEAR=49158
  4. 40 SYS CLEAR
  5. 45 T=200:LX=-2688
  6. 50 FORX=-2700TO2700STEP5
  7. 60 Y=X*SIN(2*(null)*X/T)
  8. 70 Y=Y/6
  9. 75 IF X=-2700 THEN LX=X:LY=Y
  10. 80 SYS LINE,1,480+Y,2750+X,480+LY,2750+LX
  11. 90 LX=X:LY=Y
  12. 100 NEXT
  13. 110 FORT=30TO930STEP60
  14. 120 SYS LINE,1,T,50,960-T,5500
  15. 130 NEXT
  16. 140 FORT=50TO5500STEP109
  17. 150 SYS LINE,1,0,T,959,5550-T
  18. 160 NEXT
  19. 170 PRINT"DRUCKEN"
  20. 180 SYS HARDCOPY,5500
  21.