home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / eric.hdv / ANNMIDI / CLARINET.WRD.txt < prev    next >
Text File  |  2020-08-13  |  271b  |  23 lines
  1. ( FORTH WORDS FOR CLARINET TUNING )
  2.  
  3. HEX
  4.  
  5. : TUNE ( NOTE# -- )
  6.    DUP
  7.    C061 C@ 127 > UNTIL
  8.    ON
  9.    C061 C@ 128 < UNTIL
  10.    OFF
  11. ;
  12.  
  13. : TUNESCALE
  14.    DUP TUNE
  15.    DUP 2 + TUNE
  16.    DUP 4 + TUNE
  17.    DUP 5 + TUNE
  18.    DUP 7 + TUNE
  19.    DUP 9 + TUNE
  20.    DUP 11 + TUNE
  21.        12 + TUNE
  22. ;
  23.