'$DYNAMIC
DEFINT A-Z
DECLARE SUB setmodex ()
DECLARE SUB copypage (BYVAL page1, BYVAL page2)
DECLARE SUB setvispage (BYVAL page)
DECLARE SUB setdiskpages (buf(), BYVAL h, BYVAL l)
DECLARE SUB loadpage (fil$, BYVAL i, BYVAL p)
DECLARE SUB storepage (fil$, BYVAL i, BYVAL p)
DECLARE SUB setpal (pal())
DECLARE SUB clearpage (BYVAL page)
DECLARE SUB rectangle (BYVAL x, BYVAL y, BYVAL w, BYVAL h, BYVAL c, BYVAL p)
DIM master(767), buffer(16000), r%(256), b%(256), g%(256)

IF 1 = 1 THEN
 SCREEN 13
 OPEN "c:\bobquest\bobpal.pll" FOR BINARY AS #1
 rc% = 0
 FOR a% = 0 TO 255
 rc% = rc% + 1: GET #1, rc%, r%(a%)
 rc% = rc% + 1: GET #1, rc%, g%(a%)
 rc% = rc% + 1: GET #1, rc%, b%(a%)
 r%(a%) = r%(a%) AND 255
 g%(a%) = g%(a%) AND 255
 b%(a%) = b%(a%) AND 255
 NEXT
 CLOSE #1
 FOR a% = 0 TO 255
 PALETTE a%, r%(a%) + g%(a%) * 256 + b%(a%) * 65536
 COLOR a%
 PRINT r%(a%) + g%(a%) * 256 + b%(a%) * 65536
 NEXT
END IF

DEF SEG = VARSEG(master(0)): BLOAD "master.pal", VARPTR(master(0))
FOR i = 0 TO 255
master(i * 3 + 0) = r%(i)
master(i * 3 + 1) = g%(i)
master(i * 3 + 2) = b%(i)
PRINT r%(i); g%(i); b%(i)
NEXT

w$ = INPUT$(1)

setmodex
setvispage 0
setdiskpages buffer(), 200, 0

'OPEN "screen.pix" FOR BINARY AS #1
'l& = 0
'FOR y = 0 TO 199
'FOR x = 0 TO 319
'GET #1, (l& * 2) + 1, col
'rectangle x, y, 1, 1, col, 0
'l& = l& + 1
'NEXT: NEXT
'CLOSE #1

loadpage "c:\install\future.mxs" + CHR$(0), 4, 0
w$ = INPUT$(1)
setpal master()
DEF SEG = VARSEG(master(0)): BSAVE "c:\install\bobquest.pal", VARPTR(master(0)), 1536

w$ = INPUT$(1)
SCREEN 12
SYSTEM