DEFINT A-Z
DIM vgapal(767)
SCREEN 13
FOR i = 0 TO 15
OUT &H3C7, i
vgapal(i * 3) = INP(&H3C9)
vgapal(i * 3 + 1) = INP(&H3C9)
vgapal(i * 3 + 2) = INP(&H3C9)
NEXT i
FOR i = 2 TO 16
vgapal((i + 110) * 3) = i * 2 - 1
vgapal((i + 110) * 3 + 1) = i * 4 - 1
NEXT i
FOR i = 2 TO 16
vgapal((i + 14) * 3 + 2) = i * 4 - 1
NEXT i
FOR i = 2 TO 16
vgapal((i + 30) * 3 + 1) = i * 4 - 1
NEXT i
FOR i = 2 TO 16
vgapal((i + 46) * 3) = i * 4 - 1
NEXT i
FOR i = 2 TO 16
vgapal((i + 62) * 3 + 1) = i * 4 - 1
vgapal((i + 62) * 3 + 2) = i * 4 - 1
NEXT i
FOR i = 2 TO 16
vgapal((i + 78) * 3) = i * 4 - 1
vgapal((i + 78) * 3 + 1) = i * 4 - 1
NEXT i
FOR i = 2 TO 16
vgapal((i + 94) * 3) = i * 4 - 1
vgapal((i + 94) * 3 + 2) = i * 4 - 1
NEXT i
FOR i = 2 TO 17
vgapal((i + 238) * 3) = i * 2 - 1
vgapal((i + 238) * 3 + 1) = i * 2 - 1
vgapal((i + 238) * 3 + 2) = i * 2 - 1
NEXT i
FOR i = 2 TO 16
vgapal((i + 110) * 3) = i * 4 - 1
vgapal((i + 110) * 3 + 1) = i * 2 - 1
NEXT i
FOR i = 2 TO 16
vgapal((i + 126) * 3) = i * 4 - 1
vgapal((i + 126) * 3 + 1) = CINT(i * 2.6 - 1)
NEXT i
FOR i = 2 TO 16
vgapal((i + 142) * 3) = i * 4 - 1
vgapal((i + 142) * 3 + 1) = CINT(i * 2.5 - 1)
vgapal((i + 142) * 3 + 2) = i * 2 - 1
NEXT i
FOR i = 2 TO 16
vgapal((i + 158) * 3) = i * 4 - 1
vgapal((i + 158) * 3 + 1) = i * 2 - 1
vgapal((i + 158) * 3 + 2) = i * 2 - 1
NEXT i
FOR i = 2 TO 16
vgapal((i + 174) * 3) = i * 2 - 1
vgapal((i + 174) * 3 + 1) = i * 4 - 1
vgapal((i + 174) * 3 + 2) = i * 2 - 1
NEXT i
FOR i = 2 TO 16
vgapal((i + 190) * 3) = i * 2 - 1
vgapal((i + 190) * 3 + 1) = i * 2 - 1
vgapal((i + 190) * 3 + 2) = i * 4 - 1
NEXT i
FOR i = 2 TO 16
vgapal((i + 206) * 3) = i * 3 - 1
vgapal((i + 206) * 3 + 2) = i * 4 - 1
NEXT i
FOR i = 2 TO 16
vgapal((i + 222) * 3) = i * 2 - 1
vgapal((i + 222) * 3 + 1) = i - 1
NEXT i
FOR i = 17 TO 32
vgapal((527 - (i * 16)) * 3) = i * 2 - 1
vgapal((527 - (i * 16)) * 3 + 1) = i * 2 - 1
vgapal((527 - (i * 16)) * 3 + 2) = i * 2 - 1
NEXT i
DEF SEG = VARSEG(vgapal(0))
BSAVE "Palette.sto", VARPTR(vgapal(0)), 1538