home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib34a.dsk / SEPTEMBER.1988 / SOUND.DEMO1.bas < prev    next >
BASIC Source File  |  2023-02-26  |  2KB  |  43 lines
  1. 10  REM  *********************
  2. 20  REM  * SOUND.DEMO1       *
  3. 30  REM  * BY JIM RICHARDSON *
  4. 40  REM  * COPYRIGHT(C) 1988 *
  5. 50  REM  * MICROSPARC, INC   *
  6. 60  REM  * CONCORD, MA 01742 *
  7. 70  REM  *********************
  8. 80  HOME : PRINT  CHR$(21)
  9. 90  REM  *****
  10. 100  REM SETUP
  11. 110  REM *****
  12. 120  PRINT  CHR$(4)"BLOAD SOUND"
  13. 130 MTPL = 1:PD(0) = 0:PD(1) = 1:PD(2) = 3:PD(3) = 7:PD(4) = 15
  14. 140 PD(5) = 0:PD(6) = 1:PD(7) = 15:PD(8) = 0:PD(9) = 127
  15. 150  FOR N = 0 TO 4:STYP$(N) = "SAME PITCH VALUE"
  16. 160 RT$(N) = "1 TO 1": NEXT N
  17. 170  FOR N = 5 TO 7:STYP$(N) = "FUNDAMENTAL + FIFTH"
  18. 180 RT$(N) = "2 TO 3": NEXT N
  19. 190  FOR N = 8 TO 9:STYP$(N) = "DUET EMULATION     ": REM 5 BLANK SPACES
  20. 200 RT$(N) = "N TO N+1": NEXT N
  21. 210  VTAB 9: HTAB 12: PRINT "SONG: 'CHARGE'"
  22. 220  REM ********************
  23. 230  REM SOUND LOOP FOR SOUND
  24. 240  REM ********************
  25. 250  FOR N = 0 TO 9: POKE 6,PD(N): IF N >4  THEN MTPL = 2/3
  26. 260  VTAB 11: HTAB 6: PRINT "SOUND TYPE: ";STYP$(N)
  27. 270  VTAB 13: HTAB 11: PRINT "RATIO: ";RT$(N)
  28. 280  VTAB 15: HTAB 18: PRINT "   ": REM 3 BLANK SPACES
  29. 290  VTAB 15: HTAB 11: PRINT "PDIST= ";PD(N)
  30. 300  RESTORE : IF N >7  THEN 370
  31. 310  FOR M = 1 TO 8: READ P1,LE:P2 = P1 *MTPL
  32. 320  POKE 7,P1: POKE 8,P2: POKE 9,LE: CALL 774: NEXT M
  33. 330  NEXT N
  34. 340  REM *******************
  35. 350  REM SOUND LOOP FOR DUET
  36. 360  REM *******************
  37. 370  FOR M = 1 TO 8: READ P1,LE
  38. 380  POKE 7,P1: POKE 9,LE: CALL 768: NEXT M
  39. 390  NEXT : HOME : VTAB 23: END 
  40. 400  REM *****************
  41. 410  REM DATA FOR 'CHARGE'
  42. 420  REM *****************
  43. 430  DATA  159,24,120,24,93,24,78,24,0,24,93,12,78,72,0,24