10 REM**INIT**
12 DIMT(15),N$(15),S$(15),T$(15)
14 C(0)=1:C(1)=3:C(2)=0:C(3)=6
16 FORI=0TO15:READS$(I):NEXT
18 FORI=0TO15:READT$(I):T(I)=VAL(T$(I)):NEXT
20 FORI=0TO15:READN$(I):NEXT
30 REM**DATA**
32 DATA0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15
34 DATA 144,5,28,159,156,30,31,158,129,149,150,151,152,153,154,155
36 DATA BLACK,WHITE,RED,CYAN,PURPLE,GREEN,BLUE,YELLOW
38 DATA ORANGE,BROWN,LT.RED,GRAY1,GRAY2,LT.GREEN,LT.BLUE,GRAY3
50 REM**DISPLAY**
52 POKE53280,C(0):POKE53281,C(1)
54 PRINTCHR$(147)CHR$(T(C(2))):PRINT
56 PRINTTAB(9)CHR$(18)" SELECTACHROME ":PRINT:PRINT:PRINT
58 PRINT"CONTROL"TAB(12)"COLOR"TAB(25)"COMMAND":PRINT
60 PRINT:PRINT"F1 BORDER =";
62 PRINTC(0)TAB(15)N$(C(0))TAB(25);
64 PRINT"POKE53280,"S$(C(0))
66 PRINT:PRINT"F3 SCREEN =";
68 PRINTC(1)TAB(15)N$(C(1))TAB(25);
70 PRINT"POKE53281,"S$(C(1))
72 PRINT:PRINT"F5 TEXT1  =";
74 PRINTC(2)TAB(15)N$(C(2))TAB(25);
76 PRINT"PRINTCHR$(";
78 PRINTT$(C(2))")"
80 PRINTCHR$(T(C(3)))
82 PRINT"F7 TEXT2  =";
84 PRINTC(3)TAB(15)N$(C(3))TAB(25);
86 PRINT"PRINTCHR$(";
88 PRINTT$(C(3))")"
90 PRINT:PRINT:PRINT" HIT FUNCTION KEYS TO CHANGE COLORS"
100 REM**CHANGE COLORS**
102 GETK$:IFK$=""THEN102
104 K=ASC(K$)-133:IFK<0ORK>7THEN102
106 M=INT(K/4):N=K-M*4
108 IFM=0THENC(N)=C(N)+1:IFC(N)>15THENC(N)=0
110 IFMTHENC(N)=C(N)-1:IFC(N)<0THENC(N)=15
112 GOTO50