'$DYNAMIC
'current library-lotsvoic.qlb
DEFINT A-Z
DECLARE SUB setmodex ()
DECLARE SUB copypage (BYVAL page1, BYVAL page2)
DECLARE SUB setvispage (BYVAL page)
DECLARE SUB drawsprite (pic(), pal(), BYVAL po, BYVAL x, BYVAL y, BYVAL page)
DECLARE SUB loadsprite (pic(), BYVAL x, BYVAL y, BYVAL w, BYVAL h, BYVAL page)
DECLARE SUB fadeto (palbuff(), BYVAL red, BYVAL green, BYVAL blue)
DECLARE SUB fadetopal (pal(), palbuff())
DECLARE SUB setpal (pal())
DECLARE SUB clearpage (BYVAL page)
DECLARE SUB setdiskpages (buf(), BYVAL h, BYVAL l)
DECLARE SUB loadpage (fil$, BYVAL i, BYVAL p)
DECLARE SUB setkeys ()
DECLARE SUB setfont (f())
DECLARE SUB printstr (s$, BYVAL x, BYVAL y, BYVAL p)
DECLARE SUB textcolor (BYVAL f, BYVAL b)
DECLARE SUB setitup (fil$, buff(), tmp(), BYVAL p)
DECLARE FUNCTION resetdsp ()
DECLARE SUB playsnd (BYVAL n, BYVAL f)
DECLARE SUB closefile ()
DECLARE SUB setwait (a(), BYVAL t)
DECLARE SUB dowait ()
DECLARE FUNCTION Keyseg ()
DECLARE FUNCTION keyoff ()
DECLARE FUNCTION keyval (BYVAL a)
DECLARE FUNCTION getkey ()
TYPE Regtype
 ax AS INTEGER
 bx AS INTEGER
 cx AS INTEGER
 dx AS INTEGER
 bp AS INTEGER
 si AS INTEGER
 di AS INTEGER
 flags AS INTEGER
 ds AS INTEGER
 es AS INTEGER
END TYPE
DIM SHARED regs AS Regtype

1  RANDOMIZE TIMER
   setmodex
   setvispage 0
   DIM tmr(1), newpal(767), fadepal(1536), tmp(32000), voic(32000), txt(1024)
   setpal newpal()
   DEF SEG = VARSEG(newpal(0))
   BLOAD "palette.sto", VARPTR(newpal(0))
   DEF SEG = VARSEG(txt(0))
   BLOAD "bobtext.fnt", VARPTR(txt(0))
   setfont txt()
   textcolor 15, 0
   printstr "Graphics works", 108, 100, 0
   fadetopal newpal(), fadepal()
   a$ = INPUT$(1)
   setitup "bobvoice.dat" + CHR$(0), voic(), tmp(), 2
   a = resetdsp
   printstr "Sounds works -" + STR$(a), 108, 120, 0
   a$ = INPUT$(1)
   setwait tmr(), 50
   dowait
   printstr "timing works", 108, 140, 0
   a$ = INPUT$(1)
   fadeto fadepal(), 0, 0, 0
   closefile
   SCREEN 7: SCREEN 0: WIDTH 80: CLS : SYSTEM