home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
World of Shareware - Software Farm 2
/
wosw_2.zip
/
wosw_2
/
QBAS
/
VGX3.ZIP
/
VGXDEMO.BAS
< prev
next >
Wrap
BASIC Source File
|
1993-01-06
|
1KB
|
63 lines
' VGXDEMO.BAS
DEFINT A-Z
DECLARE SUB VGXLoad (fil$, palflag)
DECLARE SUB RotatePalette (startpal%, EndPal%, speed%, Dir%) 'rotates the palette
SCREEN 0
CLS
PRINT "Welcome to VGXDEMO. You will need to have the following VGX files"
PRINT "on your default directory:"
PRINT
PRINT " ARROW.VGX"
PRINT " BUGS.VGX"
PRINT " LASSEN1.VGX"
PRINT " LASSEN3.VGX"
PRINT " ZODIAC4.VGX"
PRINT
PRINT "Hit any key to continue..."
DO: LOOP WHILE INKEY$ = ""
SCREEN 12
CLS
'PALFLAG OUT IN
' 0 no blank bank load
' 1 blank to 0 instant on
' 2 blank to 0 fade in
' 3 fade out instant on
' 4 fade out fade in
fil$ = "bugs2"
palflag = 2
CALL VGXLoad(fil$, palflag)
DO: LOOP WHILE INKEY$ = ""
fil$ = "Lassen1"
palflag = 3
CALL VGXLoad(fil$, palflag)
DO: LOOP WHILE INKEY$ = ""
fil$ = "Lassen3"
palflag = 4
CALL VGXLoad(fil$, palflag)
DO: LOOP WHILE INKEY$ = ""
fil$ = "Zodiac4"
palflag = 0
CALL VGXLoad(fil$, palflag)
DO: LOOP WHILE INKEY$ = ""
fil$ = "Arrow"
palflag = 1
CALL VGXLoad(fil$, palflag)
CALL RotatePalette(1, 15, 10, 0)
SCREEN 0
PALETTE
END