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 >
BASIC Source File  |  1993-01-06  |  1KB  |  63 lines

  1. ' VGXDEMO.BAS
  2.  
  3. DEFINT A-Z
  4. DECLARE SUB VGXLoad (fil$, palflag)
  5. DECLARE SUB RotatePalette (startpal%, EndPal%, speed%, Dir%) 'rotates the palette
  6.  
  7. SCREEN 0
  8. CLS
  9. PRINT "Welcome to VGXDEMO. You will need to have the following VGX files"
  10. PRINT "on your default directory:"
  11. PRINT
  12. PRINT "     ARROW.VGX"
  13. PRINT "      BUGS.VGX"
  14. PRINT "    LASSEN1.VGX"
  15. PRINT "    LASSEN3.VGX"
  16. PRINT "    ZODIAC4.VGX"
  17. PRINT
  18. PRINT "Hit any key to continue..."
  19.  
  20. DO: LOOP WHILE INKEY$ = ""
  21.  
  22. SCREEN 12
  23.  
  24. CLS
  25.  
  26. 'PALFLAG  OUT             IN
  27. '  0      no blank        bank load
  28. '  1      blank to 0      instant on
  29. '  2      blank to 0      fade in
  30. '  3      fade out        instant on
  31. '  4      fade out        fade in
  32.  
  33. fil$ = "bugs2"
  34. palflag = 2
  35. CALL VGXLoad(fil$, palflag)
  36. DO: LOOP WHILE INKEY$ = ""
  37.  
  38. fil$ = "Lassen1"
  39. palflag = 3
  40. CALL VGXLoad(fil$, palflag)
  41. DO: LOOP WHILE INKEY$ = ""
  42.  
  43. fil$ = "Lassen3"
  44. palflag = 4
  45. CALL VGXLoad(fil$, palflag)
  46. DO: LOOP WHILE INKEY$ = ""
  47.  
  48. fil$ = "Zodiac4"
  49. palflag = 0
  50. CALL VGXLoad(fil$, palflag)
  51. DO: LOOP WHILE INKEY$ = ""
  52.  
  53. fil$ = "Arrow"
  54. palflag = 1
  55. CALL VGXLoad(fil$, palflag)
  56. CALL RotatePalette(1, 15, 10, 0)
  57.  
  58. SCREEN 0
  59. PALETTE
  60. END
  61.  
  62.  
  63.