home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1989 March / 64er_Magazin_89-03_1989_Markt__Technik_de_Side_A.d64 / demo3 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  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.