DECLARE SUB Delay ()
SCREEN 12
DIM SHARED PlrIDLE(1 TO 822 + 50) AS INTEGER
DIM SHARED PlrBANKA(1 TO 822) AS INTEGER
DIM SHARED PlrBANKT(1 TO 822) AS INTEGER
DIM SHARED Plr(1 TO 2750) AS INTEGER
DEF SEG = VARSEG(PlrIDLE(1)): BLOAD "PlrIDLE.bsv", VARPTR(PlrIDLE(1)): DEF SEG
OUT &H3C8, 0: FOR n = 1 TO 48: OUT &H3C9, PlrIDLE(n): NEXT n
DEF SEG = VARSEG(PlrBANKA(1)): BLOAD "PlrBANKA.bsv", VARPTR(PlrBANKA(1)): DEF SEG
DEF SEG = VARSEG(PlrBANKT(1)): BLOAD "PlrBANKT.bsv", VARPTR(PlrBANKT(1)): DEF SEG
PUT (0, 0), PlrIDLE(50) SLEEP
PUT (0, 40), PlrBANKA(1) SLEEP
PUT (0, 80), PlrBANKT(1) SLEEP
GET (0, 0)-STEP(74 - 1, 40 - 1), Plr(50)
GET (0, 40)-STEP(74 - 1, 40 - 1), Plr(950)
GET (0, 80)-STEP(74 - 1, 40 - 1), Plr(1850)
DO: k$ = INKEY$
PUT (0, 0), Plr(50), PSET: CALL Delay
PUT (0, 0), Plr(950), PSET: CALL Delay
PUT (0, 0), Plr(1850), PSET: CALL Delay
LOOP UNTIL k$ <> ""
OUT &H3C7, 0: FOR n = 1 TO 48: Plr(n) = INP(&H3C9): NEXT n
DEF SEG = VARSEG(Plr(1)): BSAVE "Plr.bsv", VARPTR(Plr(1)), (2750) * 2: DEF SEG
'GET (0, 0)-(PictureWIDTH&, PictureDEPTH&), Array(0)
SUB Delay
OLDTimer = TIMER: DO: LOOP UNTIL TIMER > OLDTimer + .1
END SUB
|