home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / eric.hdv / ANNMIDI / CHORDS.WRD.txt < prev    next >
Text File  |  2020-08-13  |  1KB  |  51 lines
  1. ( CHORDS )                                                               
  2.           
  3. 0 PARAMETER ROOT  0 PARAMETER 3RD 0 PARAMETER 5TH                  
  4. 0 PARAMETER SEVENTH         
  5.                             
  6. : QUALITY ( N1 N2 N3 -- ) ( KEY -- )       
  7.    CREATE C, C, C, C, DOES> 
  8.    OVER OVER C@ + TO SEVENTH 
  9.    OVER OVER 1+ C@ + TO 5TH
  10.    OVER OVER 2 + C@ + TO 3RD
  11.    3 + C@ + TO ROOT ;   
  12.                                                     
  13. 0 4 7 12 QUALITY MAJR  0 3 6 12 QUALITY DIM  
  14. 0 3 7 12 QUALITY MINR  0 3 6 9  QUALITY DIM7 
  15. 0 4 7 10 QUALITY 7TH   0 4 8 12 QUALITY AUG  
  16. 0 3 7 10 QUALITY MIN7  0 4 7 9  QUALITY 6TH  
  17. 0 4 7 11 QUALITY MAJ7  0 3 7 9  QUALITY MIN6 
  18. 0 3 7 11 QUALITY MM7   0 5 7 12 QUALITY SUS4 
  19. 0 3 6 10 QUALITY M7-5  0 5 7 10 QUALITY 7SUS4
  20. 0 4 6 10 QUALITY 7-5
  21. 0 2 4 7  QUALITY ADD9  0 2 3 7  QUALITY MADD9 
  22.                                          
  23. : ADJUST
  24.          DUP 53 > IF 12 - THEN
  25. ;
  26.  
  27. : CHORD
  28.          ROOT ADJUST 3RD ADJUST 5TH ADJUST SEVENTH ADJUST GN 4 CD 
  29. ;
  30.  
  31. HEX
  32. : WAITPB0
  33.          BEGIN C061 C@ 80 < UNTIL
  34.          BEGIN C061 C@ 7F > UNTIL
  35. ;
  36. DEC
  37.  
  38. : ,, 
  39.          WAITPB0 CHORD 
  40. ;
  41.  
  42. : CHORDS 
  43.          2 OCT CR CR
  44.          ." CONCERTMATE CHORD PLAYER" CR
  45.          ." ==============================" CR
  46.          ." SET MIDI CHORD JUDGE ON"   CR
  47.          ." SET FINGERED CHORD MODE"   CR
  48.          ." START RHYTHM " CR
  49.          ." USE SWITCH 0 TO CHANGE CHORDS"  CR
  50. ;
  51.