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