10 REM       **** LEXA CORP. *** DEMO PLOT ****
20 CLS 0:SCRN 4,0:N=5:COLOR 2:RECT 255,255:GOSUB 50
30 FOR I=0 TO 255 STEP 1:COLOR 0:CURS 0,I:PLOT 255,I:NEXT
40 GOSUB 50:N=5:GOSUB 110:GOTO 80
50 OUT 3,128:OUT 1,1:FOR I=1 TO 3000:NEXT:OUT 1,0:RETURN
60 FOR I=A TO B STEP N:COLOR I:CURS H,Z:PLOT X,I:NEXT:RETURN
70 FOR I=A TO B STEP N:COLOR I:CURS H,Z:PLOT I,Y:NEXT:RETURN
80 COLOR 1:P=5:GOSUB 130:GOSUB 50:P=1:GOSUB 130:GOSUB 50
90 FOR I=255 TO 0 STEP -1:COLOR I:CURS 0,I:PLOT 255,I
100 OUT 242,8:OUT 242,0:NEXT:N=1:GOSUB 50:GOSUB 110:GOTO 30
110 H=128:Z=128:A=0:B=255:X=0:GOSUB 60:Y=255:GOSUB 70:A=255
120 B=0:N=-N:X=255:GOSUB 60:B=2:Y=0:GOSUB 70:GOSUB 50:RETURN
130 A=64:B=192:X=128:Y=220:GOSUB 180:X=255:Y=255:GOSUB 180
140 A=192:B=64:P=-P:X=0:GOSUB 180:A=64:B=192:P=-P:X=255:Y=120
150 GOSUB 180:A=192:B=64:P=-P:X=0:Y=120:GOSUB 180
160 GOSUB 50:SCRN 0,0:COLOR 3:CURS 64,0:RECT 192,10
170 CURS 85,230:GPRINT "SUPPER STAR":RETURN
180 FOR I=A TO B STEP P:COLOR I:CURS X,Y:PLOT I,0:NEXT:RETURN
190 FOR I=0 TO 255:COLOR I:CURS I,0:PLOT I,255:NEXT
R":RETURN
180 FOR I=A TO B STEP P:COLOR I:CURS X,Y:PLOT I,0:NEXT:RETURN
190 FOR I=0 TO