home *** CD-ROM | disk | FTP | other *** search
/ Crawly Crypt Collection 1 / crawlyvol1.bin / program / grfx_snd / playback / stbas.bas < prev   
BASIC Source File  |  1989-12-16  |  2KB  |  78 lines
  1. 10    REM *** PLAYBACK VI        ***
  2. 20    REM *** ST BASIC DEMO      ***
  3. 30    REM *** BY TRISTAN HUNTING ***
  4. 40    REM
  5. 50    REM ***LOAD CODE***
  6. 60    CODE%=300000
  7. 70    BLOAD "A:\PLAYBACK\PLAYBACK.C",CODE%
  8. 80    REM
  9. 90    REM ***SKIP HEADER***
  10. 100   CODE%=CODE%+28
  11. 110   REM
  12. 120   REM ***LOAD SAMPLES***
  13. 130   PLBK%=CODE%+1004
  14. 140   BLOAD "A:\PLAYBACK\PLAYBACK.SND",PLBK%
  15. 150   MGUN%=CODE%+1004+2799
  16. 160   BLOAD "A:\PLAYBACK\MGUN.SND",MGUN%
  17. 170   REM
  18. 180   REM ***ADDRESS OF VARIABLES***
  19. 190   SAMPLE_ADDRESS%=CODE%+984
  20. 200   SAMPLE_LENGTH%=CODE%+988
  21. 210   SAMPLE_RATE%=CODE%+992
  22. 220   REM
  23. 230   REM ***INTRO***
  24. 240   FULLW 2
  25. 250   CLEARW 2
  26. 260   PRINT "Welcome to..."
  27. 270   DL%=30:GOSUB 570
  28. 280   RATE%=7
  29. 290   REM
  30. 300   REM ***PLAY SOUND***
  31. 310   GOSUB 670
  32. 320   GOSUB 410
  33. 330   K$=INPUT$(1)
  34. 340   IF K$="1" THEN GOSUB 670
  35. 350   IF K$="2" THEN GOSUB 730
  36. 360   IF K$="3" THEN GOSUB 620
  37. 370   IF K$="0" THEN END
  38. 380   GOTO 330
  39. 390   REM
  40. 400   REM ***SET UP SCREEN***
  41. 410   CLEARW 2
  42. 420   PRINT "PLAYBACK - VI"
  43. 430   PRINT
  44. 440   PRINT "RATE - ";RATE%
  45. 450   PRINT
  46. 460   PRINT "PRESS REPEATEDLY TO STUTTER"
  47. 470   PRINT
  48. 480   PRINT "PRESS KEY"
  49. 490   PRINT
  50. 500   PRINT "1 - TO HEAR PLAYBACK"
  51. 510   PRINT "2 - TO HEAR MACHINE GUN"
  52. 520   PRINT "3 - TO CHANGE RATE"
  53. 530   PRINT "0 - TO EXIT"
  54. 540   RETURN
  55. 550   REM
  56. 560   REM ***DELAY IN 50ths OF A SECOND***
  57. 570   FOR X=1 TO DL%
  58. 580   XBIOS 37
  59. 590   NEXT
  60. 600   RETURN
  61. 610   REM ***CHANGE RATE***
  62. 620   RATE%=RATE%+1
  63. 630   IF RATE%=17 THEN RATE%=1
  64. 640   GOTOXY 0,7:PRINT            "RATE - ";RATE%;" "
  65. 650   RETURN
  66. 660   REM ***PLAY PLAYBACK***
  67. 670   POKE_L SAMPLE_ADDRESS%,PLBK%
  68. 680   POKE_L SAMPLE_LENGTH%,2799
  69. 690   POKE_L SAMPLE_RATE%,RATE%
  70. 700   CALL CODE%
  71. 710   RETURN
  72. 720   REM ***PLAY MACHINE GUN***
  73. 730   POKE_L SAMPLE_ADDRESS%,MGUN%
  74. 740   POKE_L SAMPLE_LENGTH%,4707
  75. 750   POKE_L SAMPLE_RATE%,RATE%
  76. 760   CALL CODE%
  77. 770   RETURN
  78.