mirror of
https://github.com/V2RetroComputing/analog-utilities.git
synced 2024-11-27 11:49:31 +00:00
37 lines
810 B
QBasic
37 lines
810 B
QBasic
10 TEXT : HOME
|
|
20 PRINT "CARD IS INSTALLED IN SLOT";
|
|
30 INPUT S
|
|
40 IF S > 7 GOTO 80
|
|
50 IF S < 0 GOTO 80
|
|
60 GOTO 100
|
|
80 PRINT "INVALID SLOT"
|
|
90 GOTO 20
|
|
100 S = (S * 16) + 49280
|
|
110 PRINT "COLOR SCHEMES:"
|
|
120 PRINT "0: FULL COLOR"
|
|
130 PRINT "1: MONOCHROME"
|
|
140 PRINT "2: INVERSE"
|
|
150 PRINT "3: AMBER"
|
|
160 PRINT "4: AMBER INV"
|
|
170 PRINT "5: GREEN"
|
|
180 PRINT "6: GREEN INV"
|
|
190 PRINT "7: COMMODORE"
|
|
200 PRINT "8: APPLE IIGS"
|
|
210 PRINT "CHOICE";
|
|
220 INPUT T
|
|
230 IF T = 0 GOTO 300
|
|
240 IF T = 8 GOTO 400
|
|
250 IF T > 8 GOTO 280
|
|
260 IF T < 0 GOTO 280
|
|
270 GOTO 420
|
|
280 PRINT "INVALID ENTRY"
|
|
290 GOTO 210
|
|
300 POKE S + 2,240
|
|
310 POKE S + 3,0
|
|
320 POKE S + 1,0
|
|
330 END
|
|
400 POKE S + 2,246
|
|
410 POKE S + 3,6
|
|
420 POKE S + 1,128 + ((T-1)*16)
|
|
430 END
|