'$DYNAMIC
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 storepage (fil$, BYVAL i, BYVAL p)
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(), BYVAL p)
DECLARE SUB resetdsp
DECLARE SUB playsnd (BYVAL n, BYVAL f)
DECLARE SUB closefile
DIM pic(1000), ln$(100), lpal(100), bobpal(300), newpal(767), fadepal(1536), tmp(8000), voic(32000), txt(1024)
fil2edit$ = "bar.bck" + CHR$(0)
setmodex
DEF SEG = VARSEG(newpal(0))
BLOAD "palette.sto", VARPTR(newpal(0))
setpal newpal()
DEF SEG = VARSEG(txt(0))
BLOAD "bobtext.fnt", VARPTR(txt(0))
setfont txt()
setdiskpages tmp(), 200, 0
loadpage fil2edit$, 0, 2
DEF SEG = VARSEG(lpal(0)): BLOAD "object.pal", VARPTR(lpal(0))
letter = 6
FOR i = 1 TO letter
READ ln$(i): ln$(i) = "break." + ln$(i)
NEXT i
lttr = 1: pal = 0: pic = 0: x = 140: y = 80
lpal = 0: lpic = 1
vpage = 0: dpage = 1
GOSUB loadlttr
a$ = ""
WHILE a$ <> CHR$(27)
copypage 2, dpage
a$ = INKEY$
IF a$ = CHR$(0) + CHR$(75) THEN x = x - 1
IF a$ = CHR$(0) + CHR$(77) THEN x = x + 1
IF a$ = CHR$(0) + CHR$(72) THEN y = y - 1
IF a$ = CHR$(0) + CHR$(80) THEN y = y + 1
IF a$ = "4" THEN x = x - 16
IF a$ = "6" THEN x = x + 16
IF a$ = "8" THEN y = y - 16
IF a$ = "2" THEN y = y + 16
IF a$ = "," THEN IF lpic > 1 THEN lpic = lpic - 1: GOSUB loadlttr
IF a$ = "." THEN IF lpic < letter THEN lpic = lpic + 1: GOSUB loadlttr
IF a$ = "/" THEN IF lpal > 0 THEN lpal = lpal - 16 ELSE lpal = 80
IF a$ = "'" THEN IF lpal < 80 THEN lpal = lpal + 16 ELSE lpal = 0
drawsprite pic(), lpal(), lpal, x, y, dpage
IF a$ = " " THEN drawsprite pic(), lpal(), lpal, x, y, 2
SWAP vpage, dpage
setvispage vpage
WEND
storepage fil2edit$, 0, 2
SYSTEM

loadlttr:
DEF SEG = VARSEG(pic(0))
BLOAD ln$(lpic), VARPTR(pic(0))
RETURN

DATA "0","1","2","3","4","5"