/* NOTEUP program */

options results
address 'mmv8'

options prompt 'Startmacro? '
parse pull startm

options prompt 'Endmacro? '
parse pull endm

options prompt 'Instrument? '
qwe=0
do while qwe=0
  parse pull inst
  qwe = index(' abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789',inst)
end

NOTEUP startm endm inst