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 >
BASIC Source File  |  1993-01-06  |  981b  |  50 lines
  1. ' VGXVIEW.BAS
  2.  
  3. ' This program simply uses the FILES command to list the VGX files,
  4. ' inputs the filename and the flag option to load, and loads the VGX file.
  5.  
  6. ' You must load QB with the VGX quicklibrary.
  7.  
  8. DEFINT A-Z
  9. DECLARE SUB VGXLoad (fil$, palflag)
  10.  
  11. SCREEN 12
  12. CLS
  13.  
  14. top:
  15.  
  16. LOCATE 1, 1
  17. COLOR 12
  18. FILES "*.vgx"
  19. PRINT STRING$(80, 205)
  20. COLOR 15
  21. INPUT "Enter filename, NO extension... ", fil$
  22.  
  23. IF fil$ = "" THEN
  24.    PALETTE: SCREEN 0: CLS
  25.    END
  26. END IF
  27.  
  28. COLOR 6
  29. PRINT "PALFLAG  OUT             IN"
  30. PRINT "  0      no blank        bank load"
  31. PRINT "  1      blank to 0      instant on"
  32. PRINT "  2      blank to 0      fade in"
  33. PRINT "  3      fade out        instant on"
  34. PRINT "  4      fade out        fade in"
  35.  
  36. COLOR 14
  37.  
  38. INPUT "Enter PALFLAG number (0, 1, 2, 3 or 4)... ", palflag
  39.  
  40.  
  41. ' if you enter a bad filename VGXload will return, but your palette will
  42. ' be black!
  43.  
  44. CALL VGXLoad(fil$, palflag)
  45.  
  46. DO: LOOP WHILE INKEY$ = ""
  47.  
  48. GOTO top
  49.  
  50.