100 ? "1-ALTER  2-CREATE ";:INPUT Z
110 IF Z=2 THEN 300
120 ER=0:OPEN #1,4,0,"D:COL.OBJ"
130 GET #1,A:GET #1,B:GET #1,C
140 GET #1,D:GET #1,E:GET #1,F
150 IF A<>255 OR B<>255 THEN ER=1
160 IF C<>240 OR D<>6 THEN ER=1
170 IF E<>246 OR F<>6 THEN ER=1
180 IF ER=1 THEN ? "INVALID":END 
190 GET #1,C1:GET #1,C2:GET #1,C3
200 GET #1,C0:GET #1,M1:GET #1,M0
210 GET #1,MB
220 ? "CURRENT COLORS..."
230 ? "C1 = ";C1,"C2 = ";C2
240 ? "C3 = ";C3,"C0 = ";C0
250 ? "M1 = ";M1,"M0 = ";M0
260 ? "MB = ";MB
300 CLOSE #1
310 ? "ENTER NEW COLOR VALUES"
320 ? "COLOR 1 LUM ";:INPUT C1
330 ? "COLOR 1 HUE ";:INPUT I
340 C1=C1+I*16
350 ? "COLOR 2 LUM ";:INPUT C2
360 ? "COLOR 2 HUE ";:INPUT I
370 C2=C2+I*16
380 ? "COLOR 3 LUM ";:INPUT C3
390 ? "COLOR 3 HUE ";:INPUT I
400 C3=C3+I*16
410 ? "COLOR 0 LUM ";:INPUT C0
420 ? "COLOR 0 HUE ";:INPUT I
430 C0=C0+I*16
440 ? "MONO COLOR 1 LUM ";:INPUT M1
450 ? "MONO COLOR 1 HUE ";:INPUT I
460 M1=M1+I*16
470 ? "MONO COLOR 0 LUM ";:INPUT M0
480 ? "MONO COLOR 0 HUE ";:INPUT I
490 M0=M0+I*16
500 ? "MONO BORDER  LUM ";:INPUT MB
510 ? "MONO BORDER  HUE ";:INPUT I
520 MB=MB+I*16
530 ? "1-WRITE FILE 2-REENTER ";
540 INPUT Z:IF Z=2 THEN 220
550 IF Z<>1 THEN END 
560 OPEN #1,8,0,"D:COL.OBJ"
570 PUT #1,255:PUT #1,255
580 PUT #1,240:PUT #1,6
590 PUT #1,246:PUT #1,6
600 PUT #1,C1:PUT #1,C2:PUT #1,C3
610 PUT #1,C0:PUT #1,M1:PUT #1,M0
620 PUT #1,MB:CLOSE #1