10 'Pallette - 7 FEB 83 - Hal Sampson - (408) 866-7840
20 'Demonstrates Pallette of >64 colors available in 160 X 200 composite mode
27 KEY 9,"goto 210"+CHR$(13)
28 PRINT"Press Break then F9 then F10 to exit"
30 DEF SEG=0
40 OUT &H3D8,&H1A
50 OUT &H3D9,31
60 DEFINT A-Z
70 FOR I=0 TO 13
80 OUT &H3D4,I
90 READ S
100 OUT &H3D5,S
110 NEXT
120 DATA &H38,&H28,&H2d,10,127,3,100,112,2,1,0,0,0,0
130 DEF SEG = &HB800
140 FOR K=0 TO 15:M=K*17
150 FOR I=K*5 TO 8191 STEP 80:POKE I,M:POKE I+1,M:POKE I+2,M:POKE I+3,M:POKE I+4,M:POKE I+8192,M:POKE I+8193,M:POKE I+8194,M:POKE I+8195,M:POKE I+8196,M:NEXT
160 NEXT K
190 A=INP(33):OUT 33,A OR 1  'turn off timer interrupt
200 OUT 985,1:OUT 985,2:OUT 985,3:OUT 985,4:OUT 985,5:OUT 985,6:OUT 985,7:OUT 985,9:OUT 985,10:OUT 985,11:OUT 985,13:OUT 985,14:OUT 985,15:GOTO 200
210 A=INP(33):OUT 33,A AND 254  'turn on timer interrupt
220 STOP