1REM INSTANT COLOR
2REM by ADAMagic Software
3REM put to public domain
4REM 9/23/87
5REM works with SB v1.0,            1.1 and 2.0 in STDMEM          and EXTMEM modes
6REM instantly changes
7REM screen colors without          clearing the screen
8REM in ALL modes ie:TEXT
9REM GR, HGR, HGR2, and             40 column mode.
10LOMEM :27440
15ONERR  GOTO 1000
20GOSUB 60000
30TEXT:?:?:INVERSE:? "        INSTANT COLOR         ":NORMAL:?
40?:? CHR$(7); :INPUT " Enter a background color       (0-15) "; b
50GOSUB 60100:INVERSE:? "    ----------------------    ":NORMAL
60?:? CHR$(7); :INPUT " Enter a screen & text color    (0-255) "; s
70GOSUB 60200:INVERSE:? "    ++++++++++++++++++++++    ":NORMAL
80?:? CHR$(7); :INPUT " Inverse screen & text color?   (0-255) "; i
90GOSUB 60300:INVERSE:? "    **********************    ":NORMAL
100GOTO 40
1000IF ERRNUM(o)<>255 THEN ? CHR$(7); " Error # "; ERRNUM(o)
1010? CHR$(7):?:? " Want to see me go crazy? (y/n)"; :GET a$:IF a$="N" OR a$="n" THEN HOME:GOTO 1040
1020FOR x=1 TO 200: b=INT(RND(1)*15)+1:GOSUB 60100: s=INT(RND(1)*255)+1:GOSUB 60200: i=INT(RND(1)*255)+1:GOSUB 60300
1030FOR td=1 TO 30:NEXT:NEXT:TEXT
1040?:? " LIST program and read          REM statements.":END
59999REM use the following          subroutine in your own         programs!
60000FOR x=27408 TO 27439:READ a:POKE x, a:NEXT:RETURN
60100POKE 27434, b:CALL 27408:RETURN:REM change background color
60200POKE 27409, s:CALL 27408:RETURN:REM change screen & text colors
60300POKE 27420, i:CALL 27408:RETURN:REM change inverse screen & text colors
61000DATA 62,240,17,16,0,33,0,32,205,38,253,62,31,17,16,0
61001DATA 33,16,32,205,38,253,205,56,253,1,0,7,205,32,253,201
62000REM mode commands (TEXT,           GR etc.) will return           the screen to its              default condition
65000REM another quickie                from ADAMagic
65535REM --- MORE TO COME ---
