mirror of
https://github.com/romychs/Ocean-240.2-Emulator.git
synced 2026-04-21 11:03:21 +03:00
22 lines
1.1 KiB
QBasic
22 lines
1.1 KiB
QBasic
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 |