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 "master.pal", VARPTR(vgapal(0))
setmodex
setpal vgapal()
setdiskpages buf(), 200, 0
FOR page = 0 TO 9
READ file$
IF file$ = "" THEN GOTO notran
file$ = "bitmaps\" + file$ + ".bmp"
bitmap2page vgapal(), file$ + CHR$(0), 0
storepage "casino.all" + CHR$(0), page, 0
w$ = INPUT$(1)
notran:
NEXT page
SCREEN 12
SYSTEM

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