home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 14 / 014.d81 / sine.ml (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  599b  |  19 lines
  1. 0 rem    sine.ml
  2. 1 ifx=0thenx=1:load"sysplotter.o",8,1
  3. 2 print"[147]"spc(11)              "[211][217][211][208][204][207][212] [211][201][206][197][160][215][193][214][197]"
  4. 3 forcl=1to3000:next
  5. 5 setgr=49152:unsetgr=49155:              clear=49158
  6. 6 smear=49161:colplot=49164
  7. 7 plot=49167:deplot=49170
  8. 8 print"[147] [215]hile plotting, press any key to exit."
  9. 9 fordl=1to3000:next
  10. 10 sys setgr:sys clear:sys smear,3:        syscolplot,0
  11. 20 forx=0to319:sys plot,x,int(90+80*sin(x/10))
  12. 22 ifpeek(197)<>64then30
  13. 24 next
  14. 25 wait198,1:poke198,0
  15. 30 sys unsetgr
  16. 40 print"[147][204]oading [211][217][211][208][204][207][212] menu..."
  17. 45 print"[144]load"chr$(34)"plotter boot"chr$(34)",8":print"run"
  18. 50 poke631,13:poke632,13:poke198,2:end
  19.