1 REM test for PALETTE USING syntax
2 OPEN "OUTPUT.TXT" FOR OUTPUT AS 1
3 ON ERROR GOTO 1000
10 DATA 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,0
20 DIM A(16)
30 FOR I=0 TO 15: READ A(I): NEXT
40 PALETTE USING A(0)
100 RESTORE
120 DIM A%(16)
130 FOR I=0 TO 15: READ A%(I): NEXT
140 PALETTE USING A%(0)
200 RESTORE
220 DIM B%(8,2)
230 FOR I=0 TO 7: READ A%(I,0): READ A%(I,1): NEXT
240 PALETTE USING B%(0,0)
250 PALETTE USING A%(2)
260 PALETTE USING A%
999 END
1000 PRINT#1, ERR, ERL
1010 RESUME NEXT

