analog-utilities/basic/themes.bas

37 lines
810 B
QBasic
Raw Normal View History

2023-04-12 14:43:16 +00:00
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