'$DYNAMIC
'Current Library-diskvoic.qlb
DEFINT A-Z
DECLARE SUB SETMODEX ()
DECLARE SUB setvispage (BYVAL page)
DECLARE SUB stosprite (pic(), BYVAL x, BYVAL y, BYVAL page)
DECLARE SUB setpal (pal())
DECLARE SUB setdiskpages (buf(), BYVAL h, BYVAL l)
DECLARE SUB loadpage (fil$, BYVAL i, BYVAL p)
DECLARE SUB storepage (fil$, BYVAL i, BYVAL p)
DIM newpal(767), boss(700), zxi$(20), tmp(8000)
RANDOMIZE TIMER
DEF SEG = VARSEG(newpal(0))
BLOAD "PALETTE.STO", VARPTR(newpal(0))
setdiskpages tmp(), 200, 0
FOR i = 0 TO 11: READ zxi$(i): NEXT i
SETMODEX
scn$ = "saloon.scr" + CHR$(0)
loadpage "saloon.bck" + CHR$(0), 0, 0
storepage scn$, 0, 0
setvispage 3
DEF SEG = VARSEG(boss(0))
FOR i = 1 TO 11
BLOAD "cowboss.pc" + zxi$(i), VARPTR(boss(0))
stosprite boss(), 0, i, 3
NEXT i
FOR i = 1 TO 2
BLOAD "door.pc" + zxi$(i), VARPTR(boss(0))
stosprite boss(), 0, i + 15, 3
NEXT i
FOR i = 1 TO 11
BLOAD "cowbob.p1" + zxi$(i), VARPTR(boss(0))
stosprite boss(), 0, i + 17, 3
NEXT i
FOR i = 1 TO 10
BLOAD "bob.wk" + zxi$(i), VARPTR(boss(0))
stosprite boss(), 0, i + 28, 3
NEXT i
FOR i = 1 TO 10
BLOAD "runner.wk" + zxi$(i), VARPTR(boss(0))
stosprite boss(), 0, i + 38, 3
NEXT i
FOR i = 1 TO 11
BLOAD "window.p1" + zxi$(i), VARPTR(boss(0))
stosprite boss(), 0, i + 48, 3
NEXT i
FOR i = 1 TO 11
BLOAD "shot.p1" + zxi$(i), VARPTR(boss(0))
stosprite boss(), 0, i + 59, 3
NEXT i
FOR i = 1 TO 11
BLOAD "shot.p2" + zxi$(i), VARPTR(boss(0))
stosprite boss(), 0, i + 70, 3
NEXT i
storepage scn$, 1, 3
loadpage "cowbob.ttl" + CHR$(0), 0, 3
scn$ = "title.scr" + CHR$(0)
storepage scn$, 0, 3
setvispage 2
FOR i = 0 TO 4
BLOAD "tbob." + zxi$(i), VARPTR(boss(0))
stosprite boss(), 0, i * 4, 2
NEXT i
FOR i = 0 TO 2
BLOAD "gun." + zxi$(i), VARPTR(boss(0))
stosprite boss(), 0, i * 2 + 20, 2
NEXT i
FOR i = 0 TO 5
BLOAD "smalcoin." + zxi$(i), VARPTR(boss(0))
stosprite boss(), 0, i + 26, 2
NEXT i
FOR i = 0 TO 5
BLOAD "bigcoin." + zxi$(i), VARPTR(boss(0))
stosprite boss(), 0, i * 2 + 32, 2
NEXT i
FOR i = 1 TO 3
BLOAD "option.p1" + zxi$(i), VARPTR(boss(0))
stosprite boss(), 0, i * 2 + 42, 2
NEXT i
FOR i = 1 TO 3
BLOAD "option.p2" + zxi$(i), VARPTR(boss(0))
stosprite boss(), 0, i * 2 + 48, 2
NEXT i
FOR i = 1 TO 3
BLOAD "option.p3" + zxi$(i), VARPTR(boss(0))
stosprite boss(), 0, i * 2 + 54, 2
NEXT i
FOR i = 0 TO 3
BLOAD "weapon." + zxi$(i), VARPTR(boss(0))
stosprite boss(), 0, i * 2 + 62, 2
NEXT i
BLOAD "target.pic", VARPTR(boss(0))
stosprite boss(), 0, 150, 2
storepage scn$, 1, 2

DATA "0","1","2","3","4","5","6","7","8","9","a","b"