home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
World of Shareware - Software Farm 2
/
wosw_2.zip
/
wosw_2
/
QBAS
/
VGX3.ZIP
/
VGXVIEW.BAS
< prev
next >
Wrap
BASIC Source File
|
1993-01-06
|
981b
|
50 lines
' VGXVIEW.BAS
' This program simply uses the FILES command to list the VGX files,
' inputs the filename and the flag option to load, and loads the VGX file.
' You must load QB with the VGX quicklibrary.
DEFINT A-Z
DECLARE SUB VGXLoad (fil$, palflag)
SCREEN 12
CLS
top:
LOCATE 1, 1
COLOR 12
FILES "*.vgx"
PRINT STRING$(80, 205)
COLOR 15
INPUT "Enter filename, NO extension... ", fil$
IF fil$ = "" THEN
PALETTE: SCREEN 0: CLS
END
END IF
COLOR 6
PRINT "PALFLAG OUT IN"
PRINT " 0 no blank bank load"
PRINT " 1 blank to 0 instant on"
PRINT " 2 blank to 0 fade in"
PRINT " 3 fade out instant on"
PRINT " 4 fade out fade in"
COLOR 14
INPUT "Enter PALFLAG number (0, 1, 2, 3 or 4)... ", palflag
' if you enter a bad filename VGXload will return, but your palette will
' be black!
CALL VGXLoad(fil$, palflag)
DO: LOOP WHILE INKEY$ = ""
GOTO top