home *** CD-ROM | disk | FTP | other *** search
/ Crawly Crypt Collection 1 / crawlyvol1.bin / program / grfx_snd / playback / fastbas.bsc < prev    next >
Text File  |  1989-12-16  |  1KB  |  82 lines
  1. REM *** PLAYBACK VI        ***
  2. REM *** FAST BASIC DEMO    ***
  3. REM *** BY TRISTAN HUNTING ***
  4.  
  5. REM ***LOAD CODE***
  6. RESERVE code%,1032
  7. BLOAD "A:\PLAYBACK\PLAYBACK.C",code%
  8.  
  9. REM ***SKIP HEADER***
  10. code%=code%+28
  11.  
  12. REM ***LOAD SAMPLES***
  13. RESERVE plbk%,2799
  14. BLOAD "A:\PLAYBACK\PLAYBACK.SND",plbk%
  15. RESERVE mgun%,4708
  16. BLOAD "A:\PLAYBACK\MGUN.SND",mgun%
  17.  
  18. REM ***ADDRESS OF VARIABLES***
  19. sample_address%=code%+984
  20. sample_length%=code%+988
  21. sample_rate%=code%+992
  22.  
  23. REM ***INTRO***
  24. TXTRECT 0,0,320,200
  25. CLS
  26. PRINT "Welcome to..."
  27. PROCdelay(30)
  28. RATE%=7
  29.  
  30. REM ***PLAY SOUND***
  31. PROCppbk
  32. PROCscr_up
  33.  
  34. loop:
  35. K$=GET$
  36. IF K$="1" THEN PROCppbk
  37. IF K$="2" THEN PROCpmgn
  38. IF K$="3" THEN PROCcrate
  39. IF K$="0" THEN END
  40. GOTO loop
  41.  
  42. REM ***SET UP SCREEN***
  43. DEF PROCscr_up
  44. TXTRECT 0,0,320,200
  45. CLS
  46. PRINT "PLAYBACK - VI"
  47. PRINT '"RATE - ";RATE%
  48. PRINT '"PRESS REPEATEDLY TO STUTTER"
  49. PRINT ''"PRESS KEY"
  50. PRINT '"1 - TO HEAR PLAYBACK"
  51. PRINT '"2 - TO HEAR MACHINE GUN"
  52. PRINT '"3 - TO CHANGE RATE"
  53. PRINT '"0 - TO EXIT"
  54. ENDPROC
  55.  
  56. REM ***DELAY IN 50ths OF A SECOND***
  57. DEF PROCdelay(dl%)
  58. FOR X=1 TO dl%
  59. WAIT
  60. NEXT
  61. ENDPROC
  62.  
  63. DEF PROCcrate
  64. RATE%=RATE%+1
  65. IF RATE%=17 THEN RATE%=1
  66. PRINT TAB(0,2);"RATE - ";RATE%;" "
  67. ENDPROC
  68.  
  69. DEF PROCppbk
  70. {sample_address%}%=plbk%
  71. {sample_length%}%=2799
  72. {sample_rate%}%=RATE%
  73. CALL code%
  74. ENDPROC
  75.  
  76. DEF PROCpmgn
  77. {sample_address%}%=mgun%
  78. {sample_length%}%=4707
  79. {sample_rate%}%=RATE%
  80. CALL code%
  81. ENDPROC       
  82.