ulapluspaletteloader.bas

1 REM - tokenize with: zmakebas ulapluspaletteloader.bas -a 10
10 restore 30
11 out 48955,64:out 65339,1
12 FOR i=0 TO 63
14 read u
16 out 48955,i:out 65339,u
18 NEXT i
30 data 0,11,52,82,104,103,148,183
31 data 0,11,52,82,104,103,148,183
32 data 0,67,88,118,204,163,185,255
33 data 0,67,88,118,204,163,185,255
34 data 0,11,52,82,104,103,148,183
35 data 0,11,52,82,104,103,148,183
36 data 0,67,88,118,204,163,185,255
37 data 0,67,88,118,204,163,185,255
50 LOAD ""