'$DYNAMIC
DEFINT A-Z
DECLARE SUB setmodex ()
DECLARE SUB restoremode ()
DECLARE SUB setpal (p())
DECLARE SUB rectangle (BYVAL x, BYVAL y, BYVAL w, BYVAL h, BYVAL c, BYVAL p)
DECLARE SUB screenshot (f$, BYVAL p, pal(), buf())
DIM newpal(1538), buffer(32000)
DEF SEG = VARSEG(newpal(0))
BLOAD "palette.sto", VARPTR(newpal(0))
setmodex
setpal newpal()
FOR i = 1 TO 255
rectangle ((i - INT(i / 16) * 16) * 20), INT(i / 16) * 10, 19, 10, i, 0
NEXT i
screenshot "fullpal.bmp" + CHR$(0), 0, newpal(), buffer()