home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib34a.dsk / SEPTEMBER.1988 / SOUND.DEMO2.bas < prev    next >
BASIC Source File  |  2023-02-26  |  9KB  |  142 lines

  1. 10  REM  *********************
  2. 20  REM  * SOUND.DEMO2       *
  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 
  9. 90  PRINT  CHR$(21)
  10. 100  PRINT  CHR$(4)"BLOAD SOUND"
  11. 110  POKE 6,0: REM SET PDIST=0
  12. 120  HOME : VTAB 6: PRINT " THIS DEMONSTRATION PROGRAM WILL DISCUSS": PRINT "AND ILLUSTRATE VARIOUS USES OF HARMONY": PRINT 
  13. 130  PRINT "AS IT APPLIES TO THE 'SOUND' PROGRAM.": PRINT : PRINT : PRINT " THE DISCUSSION WILL BEGIN WITH THE": PRINT : PRINT "LARGEST INTERVAL, THE FOURTH, AND": PRINT : PRINT "PROGRESS ON TO SUCCESSIVELY SMALLER": PRINT 
  14. 140  PRINT "INTERVALS.": GOSUB 570
  15. 150  HOME : VTAB 3: PRINT " AROUND THE FIFTH CENTURY, A FORM OF": PRINT : PRINT "MUSIC KNOWN AS ORGANUM (ALSO CALLED": PRINT : PRINT "PLAIN SONG OR GREGORIAN CHANT) EMERGED.": PRINT 
  16. 160  PRINT "ORGANUM USED PARALLEL OCTAVES, FIFTHS": PRINT : PRINT "AND FOURTHS TO HARMONIZE MODAL MELODIES.": PRINT : PRINT " MUSICIANS IN LATER ERAS TENDED TO AVOID"
  17. 170  PRINT "THESE INTERVALS BECAUSE IT SOUNDED TOO": PRINT : PRINT "MUCH LIKE CHURCH MUSIC.": GOSUB 570
  18. 180  HOME : VTAB 3: PRINT " THEREFORE, FOURTHS WILL BE OF LIMITED": PRINT : PRINT "VALUE TO YOU WHEN HARMONIZING MOST": PRINT : PRINT "MUSIC. ALTHOUGH, IT CAN BE USED WHEN": PRINT : PRINT "A MEDIEVAL CHURCH MUSIC FEEL IS DESIRED.": PRINT 
  19. 190  PRINT : PRINT " PRESS RETURN TO HEAR A DEMONSTRATION": PRINT : PRINT "OF MUSIC HARMONIZED WITH PARALLEL": PRINT : PRINT "FOURTHS."
  20. 200  GOSUB 570: GOSUB 660
  21. 210  HOME : VTAB 3: PRINT "THE MOST USEFUL INTERVALS AVAILABLE TO": PRINT : PRINT "YOU ARE THOSE OF MAJOR AND MINOR THIRDS."
  22. 220  PRINT " A 'C' MAJOR SCALE CONSTRUCTED OUT OF": PRINT : PRINT "THIRDS WOULD BE AS FOLLOWS:": PRINT 
  23. 230  PRINT "BASE            LETTER PITCH": REM  12 SPACES
  24. 240  PRINT "NOTE  INTERVAL  NAMES  VALUES": REM  2 SPACES BETWEEN TITLES
  25. 250  PRINT " C   MAJOR 3RD   C E   240,192": REM  3 SPACES BETWEEN COLUMNS
  26. 260  PRINT " D   MINOR 3RD   D F   216,180"
  27. 270  PRINT " E   MINOR 3RD   E G   192,160"
  28. 280  PRINT " F   MAJOR 3RD   F A   180,144"
  29. 290  PRINT " G   MAJOR 3RD   G B   160,128"
  30. 300  PRINT " A   MINOR 3RD   A C'  144,120"
  31. 310  PRINT " B   MINOR 3RD   B D'  126,105"
  32. 320  PRINT " C'  MAJOR 3RD   C'E'  120,96"
  33. 330  GOSUB 570
  34. 340  HOME : VTAB 3: PRINT " A SCALE MADE UP OF THIRDS IS FAIRLY IN": PRINT : PRINT "TUNE WITHIN THE FIRST OCTAVE.": GOSUB 660
  35. 350  PRINT : PRINT "...BUT THE SECOND OCTAVE IS NOT.": GOSUB 660
  36. 360  PRINT : PRINT : PRINT " TO AVOID THESE INTERVALS, EITHER": PRINT : PRINT "HARMONIZE WITH THE FIRST OCTAVE ONLY,": PRINT : PRINT "OR BE CAREFUL TO HARMONIZE AROUND THE": PRINT : PRINT "BAD INTERVALS IN THE SECOND OCTAVE.": GOSUB 570
  37. 370  HOME : VTAB 3: PRINT " INTERVALS OF SECONDS MAY BE USED IN": PRINT : PRINT "MANY WAYS. THE MOST USEFUL OF THESE IS": PRINT : PRINT "AS A DOMINANT SEVENTH CHORD.": PRINT 
  38. 380  PRINT : PRINT "THE DOMINANT 7TH CHORD IS BUILT UPON THE": PRINT "FIFTH SCALE DEGREE. IN THE KEY OF 'C'": PRINT 
  39. 390  PRINT "THAT WOULD BE THE NOTE 'G'. THE G 7TH": PRINT : PRINT "CHORD IS SPELLED G-B-D-F. TO SUGGEST THE": PRINT "DOMINANT 7TH CHORD USE THE ROOT AND THE": PRINT 
  40. 400  PRINT "7TH, (IE. F-G).": GOSUB 570
  41. 410  HOME : VTAB 3: PRINT " THE 7TH IS USUALLY APPROACHED AND": PRINT : PRINT "RESOLVED IN STEPWISE MOTION.": PRINT : PRINT " FOLLOWING ARE THREE EXAMPLES OF HOW TO": PRINT : PRINT "USE THE DOMINANT 7TH CHORD."
  42. 420  GOSUB 570: HTAB 1: VTAB 14: PRINT "1. C-E  F-G  C-E": GOSUB 660: GOSUB 570: HTAB 1: VTAB 15: PRINT "2. E-G  F-G  C-E": GOSUB 660: GOSUB 570: HTAB 1: VTAB 16: PRINT "3. C-E  F-A  E-G  F-G  C-E": GOSUB 660: GOSUB 570
  43. 430  HOME : VTAB 3: PRINT " THERE IS ONE OTHER DEVICE THAT IS": PRINT : PRINT "AVAILABLE TO YOU, THE FAN. IT IS CALLED": PRINT : PRINT "A FAN BECAUSE THE NOTES SLOWLY MOVE": PRINT : PRINT "APART LIKE A FAN BEING UNFOLDED.": PRINT 
  44. 440  PRINT " FANS CAN BE EITHER OBLIQUE (IE. ONE": PRINT : PRINT "NOTE MOVES WHILE THE OTHER STAYS THE": PRINT : PRINT "SAME) OR CONTRARY (IE. BOTH NOTES MOVE": PRINT : PRINT "APART)."
  45. 450  PRINT : PRINT " FOLLOWING ARE SEVERAL EXAMPLES OF FANS.": GOSUB 570
  46. 460  HOME : VTAB 3: PRINT "I. OBLIQUE FAN": HTAB 3: VTAB 5: PRINT "A. STEPWISE MOTION": HTAB 5: VTAB 7: PRINT "1. OPENING": GOSUB 660
  47. 470  GOSUB 570: HTAB 5: VTAB 8: PRINT "2. CLOSING": GOSUB 660: HTAB 3: VTAB 10: PRINT "B. CHROMATIC": GOSUB 570: HTAB 5: VTAB 12: PRINT "1. OPENING": GOSUB 660
  48. 480  GOSUB 570: HTAB 5: VTAB 13: PRINT "2. CLOSING": GOSUB 660: HTAB 1: VTAB 15: PRINT "II. CONTRARY FAN": HTAB 3: VTAB 17: PRINT "A. CHROMATIC"
  49. 490  GOSUB 570: HTAB 5: VTAB 19: PRINT "1. OPENING": GOSUB 660: GOSUB 570: HTAB 5: VTAB 20: PRINT "2. CLOSING": GOSUB 660: GOSUB 570
  50. 500  HOME : VTAB 3: PRINT " THE FINAL SELECTION IS A FOLK SONG": PRINT : PRINT "ENTITLED 'THE BLUE TAIL FLY'. MOST OF": PRINT : PRINT "THIS SONG IS HARMONIZED IN THIRDS.": PRINT 
  51. 510  PRINT "ONLY TWO SECONDS WERE USED IN THIS SONG,": PRINT "AND THEY WERE USED AS DOMINANT 7THS.": GOSUB 570: GOSUB 660
  52. 520  HTAB 2: VTAB 14: PRINT "SEE HOW SIMPLE IT IS?": PRINT : PRINT "NOW IT'S YOUR TURN TO EXPERIMENT AND": PRINT : PRINT "EXPLORE THE NEW WORLD OF HARMONY ON": PRINT : PRINT "THE APPLE."
  53. 530  END 
  54. 540  REM *******************
  55. 550  REM * CONTINUE SUBRTN *
  56. 560  REM *******************
  57. 570  POKE  -16368,0: REM  STROBE. CLEAR KBD BUFFER
  58. 580  HTAB 7: VTAB 23: PRINT "PRESS <RETURN> TO CONTINUE"
  59. 590  IF  PEEK( -16384) <128  THEN 590
  60. 600  VTAB 23: PRINT "                                 ";: REM 33 SPACES
  61. 610  POKE  -16368,0: REM STROBE. CLEAR KBD BUFFER
  62. 620  RETURN 
  63. 630  REM *********************
  64. 640  REM * CALL SOUND SUBRTN *
  65. 650  REM *********************
  66. 660  READ P1,P2,LE: IF P1 <0  THEN  RETURN 
  67. 670  POKE 7,P1: POKE 8,P2: POKE 9,LE: CALL 774: GOTO 660
  68. 680  REM *******************
  69. 690  REM DATA FOR PLAIN SONG
  70. 700  REM *******************
  71. 710  DATA 216,162,60,240,180,60,216,162,60,180,135,60
  72. 720  DATA 216,162,60,240,180,60,216,162,180,0,0,120
  73. 730  DATA 216,162,60,192,144,60,180,135,60,192,144,60
  74. 740  DATA 216,162,60,240,180,60,216,162,240
  75. 750  DATA -1,-1,-1
  76. 760  REM **************************
  77. 770  REM DATA FOR C SCALE IN THIRDS
  78. 780  REM **************************
  79. 790  DATA 240,192,48,216,180,48,192,160,48,180,144,48
  80. 800  DATA 160,128,48,144,120,48,126,105,48,120,96,48
  81. 810  DATA -1,-1,-1
  82. 820  REM ***************************
  83. 830  REM DATA FOR C' SCALE IN THIRDS
  84. 840  REM ***************************
  85. 850  DATA 120,96,48,108,90,48,90,75,48,85,68,48
  86. 860  DATA 80,64,48,70,60,48,63,54,48,60,48,48
  87. 870  DATA -1,-1,-1
  88. 880  REM ***********************************
  89. 890  REM DATA FOR DOMINATE 7TH CHORD CADENCE
  90. 900  REM ***********************************
  91. 910  DATA 240,192,96,180,160,96,240,192,96
  92. 920  DATA -1,-1,-1
  93. 930  DATA 192,160,96,180,160,96,240,192,96
  94. 940  DATA -1,-1,-1
  95. 950  DATA 240,192,96,180,144,96,192,160,96,180,160,96,240,192,96
  96. 960  DATA -1,-1,-1
  97. 970  REM *************
  98. 980  REM DATA FOR FANS
  99. 990  REM *************
  100. 1000  REM #OBLIQUE STEPWISE#
  101. 1010  REM  OPEN
  102. 1020  DATA 80,80,48,160,170,48,192,160,48,216,162,96
  103. 1030  DATA -1,-1,-1
  104. 1040  REM  CLOSE
  105. 1050  DATA 216,162,48,192,160,48,160,170,48,80,80,96
  106. 1060  DATA -1,-1,-1
  107. 1070  REM #OBLIQUE CROMATIC#
  108. 1080  REM  OPEN
  109. 1090  DATA 160,160,48,170,160,48,180,160,48,192,160,48
  110. 1100  DATA 205,164,48,216,162,96
  111. 1110  DATA -1,-1,-1
  112. 1120  REM  CLOSE
  113. 1130  DATA 216,162,48,205,164,48,192,160,48,180,160,48
  114. 1140  DATA 170,160,48,80,80,96
  115. 1150  DATA -1,-1,-1
  116. 1160  REM #CONTRARY CROMATIC#
  117. 1170  REM  OPEN
  118. 1180  DATA 80,80,48,170,153,48,180,144,96
  119. 1190  DATA -1,-1,-1
  120. 1200  REM  CLOSE
  121. 1210  DATA 180,144,48,170,153,48,80,80,96
  122. 1220  DATA -1,-1,-1
  123. 1230  REM ****************************
  124. 1240  REM DATA FOR 'THE BLUE TAIL FLY'
  125. 1250  REM **************************** 
  126. 1260  DATA 144,120,48,135,108,48,144,120,48,162,135,48
  127. 1270  DATA 180,144,48,216,180,48,216,180,48,135,108,72
  128. 1280  DATA 240,180,24,180,144,48,180,144,48,180,144,48
  129. 1290  DATA 180,144,48,192,160,24,192,160,24,180,144,48
  130. 1300  DATA 162,135,72,144,120,24,135,108,48,144,120,48
  131. 1310  DATA 162,135,24,162,135,24,180,144,48,216,180,48
  132. 1320  DATA 216,180,48,135,108,72,216,180,24,240,192,48
  133. 1330  DATA 192,160,48,162,135,72,135,120,24,144,120,48
  134. 1340  DATA 180,144,48,180,144,96,240,180,24,180,144,24
  135. 1350  DATA 180,144,48,180,144,72,180,144,24,192,160,48
  136. 1360  DATA 162,135,48,162,135,96,240,180,24,162,135,24
  137. 1370  DATA 162,135,48,162,135,72,162,135,24,180,144,48
  138. 1380  DATA 144,120,48,144,120,96,180,144,24,144,120,24
  139. 1390  DATA 144,120,48,144,120,72,144,120,24,135,108,48 
  140. 1400  DATA 108,90,48,108,90,72,108,90,24,120,96,48
  141. 1410  DATA 120,96,48,135,120,48,162,135,48,180,144,144
  142. 1420  DATA -1,-1,-1