Category : BASIC Source Code
Archive   : TANDY.ZIP
Filename : P-DEMO1.BAS

 
Output of file : P-DEMO1.BAS contained in archive : TANDY.ZIP
'******************************************************************************
'* P-DEMO1 (CHANGING SHAPES WITH PALETTE COMMAND) *
'* By Raymond C. Yancy - Nov 1987 *
'* *
'* Modified for QuickBASIC 4.0 with GRAFIX driver *
'* By Joseph A. Albrecht - Sep 1988 *
'* *
'* Press F1 to exit program *
'* Press F2 to increase screen change speed *
'******************************************************************************
'$INCLUDE: 'GRAFIX.DEF'

CALL EnableGraphics
ON KEY(1) GOSUB EndProgram
KEY(1) ON
ON KEY(2) GOSUB ScreenSpeed
KEY(2) ON

DEFINT A-Z
DIM Shape(1282), H0(15), H1(15), H2(15), H3(15), H4(15)

FOR N = 0 TO 15
READ H0(N)
NEXT N
FOR N = 0 TO 15
READ H1(N)
NEXT N
FOR N = 0 TO 15
READ H2(N)
NEXT N
FOR N = 0 TO 15
READ H3(N)
NEXT N
FOR N = 0 TO 15
READ H4(N)
NEXT N

DEF SEG = VARSEG(Shape(0))
A = VARPTR(Shape(0))
BLOAD "P-DEMO1.BIN", A
DEF SEG
FOR X = 0 TO 256 STEP 64
FOR Y = 4 TO 132 STEP 64
CALL ExtPut(X, Y, Shape(), PutXor%)
NEXT Y
NEXT X

PauseVal = 22
S = 4
P = PauseVal

DO
CALL PaletteUsing(H0(), 0)
GOSUB DelayLoop
CALL PaletteUsing(H1(), 0)
GOSUB DelayLoop
CALL PaletteUsing(H2(), 0)
GOSUB DelayLoop
CALL PaletteUsing(H3(), 0)
GOSUB DelayLoop
CALL PaletteUsing(H4(), 0)
GOSUB DelayLoop
LOOP

DelayLoop:
CALL Pause(P)
RETURN

ScreenSpeed:
P = P - S
IF P < 0 THEN P = PauseVal
RETURN

EndProgram:
KEY(1) OFF
KEY(2) OFF
CALL ExitGraphics
END

DATA 0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15
DATA 9,1,3,3,1,3,3,1,3,3,9,9,8,9,0,15
DATA 12,0,0,0,15,15,15,15,15,15,4,12,12,12,0,15
DATA 10,7,7,8,7,7,8,7,7,8,10,10,10,2,14,6
DATA 11,14,14,14,14,14,14,6,6,6,11,3,11,11,4,1



  3 Responses to “Category : BASIC Source Code
Archive   : TANDY.ZIP
Filename : P-DEMO1.BAS

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/