Listing of file='CLRSIN.BAS;01' on disk='vmedia/isc_demos-sector.ccvf'
0 REM Y 1 OUT 8,199:POKE 33278,0:GOTO 10:REM 2 PLOT 27,88,15,3,63,31,6,6,31,46,15,6,0,3,64,0:REM 3 OUT 8,207:FOR I= 1TO 100:A= PEEK (33278):REM 4 IF A= 13THEN PLOT 16,0,3,63,31,32,3,64,0:LOAD "MENU":RUN :REM 5 IF A= 32THEN RUN :REM 6 IF A= 72OR A= 104THEN PLOT 6,2,12,15,29:PRINT CHR$ (22);:REM 7 IF A= 72OR A= 104THEN PRINT "LOADING ";CHR$ (17);"DEMO ";CHR$ (22);"INSTRUCTIONS...":PLOT 6,0,3,63,31,32,3,64,0:LOAD "HELP":RUN 8 IF A= 76OR A= 108THEN POKE 33278,0:LIST :PLOT 6,6,3,63,31,31,46,15,6,0,3,64,0:REM 9 NEXT I:OUT 8,199:IF PEEK (33284)= 1THEN PLOT 6,0,3,63,31,32,3,64,0:LOAD "SCROLL":RUN :REM Y 10 PLOT 30,16,29,16,12 20 FOR I= 1TO 500:NEXT I 30 PLOT 30,17,29,19,14 40 PLOT 3,22,1 50 PRINT " SINE WAVE DEMO " 60 PLOT 30,16 70 PLOT 3,64,0 80 PLOT 2,246,0,0,127,255 90 PLOT 2,250,1,63,127,255 100 FOR X= 2TO 127 110 PLOT 29,17+ X/ 19 120 Y= 59* SIN (X/ 10.22)+ 60 130 PLOT 2,X,Y,255 140 NEXT X 145 GOTO 2:REM 150 REM 150 FOR I=1TO 1000:NEXT 160 REM 160 GOTO 10X