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