1 REM  SINE.BAS
5 PRINT"[147]"SPC(11)"[194][193][211][201][195][160][211][201][206][197][160][215][193][214][197]"
6 PRINT""SPC(9)"[208]RESS A KEY TO BEGIN.":POKE198,0:WAIT198,1:POKE198,0
7 PRINT"[147] [215]HILE THE GRAPH IS PLOTTING, PRESS ANY"
8 PRINTSPC(12)"KEY TO EXIT.":FORDL=1TO3000:NEXTDL
9 :
10 POKE53265,PEEK(53265)OR32
20 POKE53272,PEEK(53272)OR8
30 FORC=8192TO16191
40 POKEC,0:NEXT
50 FORC=1024TO2023
60 POKEC,3:NEXT
70 FORX=0TO319:Y=INT(90+80*SIN(X/10))
75 IFPEEK(197)<>64THEN100
80 L=8192+INT(Y/8)*320+INT(X/8)*8+(YAND7):POKEL,PEEK(L)OR2^(7-(XAND7)):NEXT
90 POKE198,0:WAIT198,1:GETK$
100 POKE53265,PEEK(53265)AND223
110 POKE53272,21
120 PRINT"[147][204]OADING [208][204][207][212][212][197][210] [205][197][206][213]..."
125 PRINT"[144]LOAD"CHR$(34)"PLOTTER BOOT"   CHR$(34)",8":PRINT"RUN"
130 POKE631,13:POKE632,13:POKE198,2:END