DEFINT A-Z
'$DYNAMIC
'setpal library
DECLARE SUB setmodex ()
DECLARE SUB setpal (pal())
DECLARE SUB setdiskpages (buf(), BYVAL l, BYVAL b)
DECLARE SUB storepage (fil$, BYVAL i, BYVAL p)
DECLARE SUB loadpage (fil$, BYVAL i, BYVAL p)
DECLARE SUB bitmap2page (temp(), bmp$, BYVAL p)
DIM vgapal(767), txt(1024)
DIM buf(16000)
DEF SEG = VARSEG(vgapal(0))
BLOAD "c:\spit\palette.sto", VARPTR(vgapal(0))
setmodex
setpal vgapal()
setdiskpages buf(), 200, 0
page = 4
file$ = "c:\temp\i_garden.bmp"
bitmap2page vgapal(), file$ + CHR$(0), 0
storepage "c:\spit\level1.map" + CHR$(0), page, 0
w$ = INPUT$(1)
notran:
SCREEN 12
SYSTEM

DATA spitter,lenny's,casino,bank,ratgame,donut,track,arcade,,fishgame