 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
