10 DEFINT A-Z:CONSOLE 0,25,1,1:WIDTH 80,25
20 FOR I=0 TO 7:COLOR=(I,I):NEXT
30 FOR BG=0 TO 4 STEP 4
40 COLOR 6,BG:SCREEN 1,0,0,1:CLS 3:COLOR 7:PRINT"BACKGROUND",BG
50 LINE(200,50)-(299,99),0,BF
60 LINE(300,50)-(399,99),1,BF
70 LINE(199,49)-(400,100),0,B
80 LINE(198,48)-(401,101),1,B
90 GOSUB *KEYWAIT
100 COLOR=(0,2)
110 GOSUB *KEYWAIT
120 OUT 81,0
130 GOSUB *KEYWAIT
140 WIDTH 80,25:COLOR=(0,0)
150 NEXT
160 COLOR 7,0:SCREEN 0
170 END
180 *KEYWAIT
190 IF INKEY$<>"" THEN 190 ELSE PRINT"HIT ANY KEY"
200 IF INKEY$="" THEN 200 ELSE RETURN
|