--nosound
instr 1
S4 mton ntom("7D+63")
puts S4, 1
S1 mton 60
printf_i "midi 60 = %s \n", 1, S1
S2 mton ftom(442)
printf_i "442 Hz = %s \n", 1, S2
S3 = mton(48.25)
printf_i "midi 48.25 = %s \n", 1, S3
k1 = ntom("4C")
printf_i "4C = midi %f \n", 1, k1
i2 ntom "4E"
printf_i "4E = %f \n", 1, i2
S5 = mton(ntom("4G+"))
printf_i "roundtrip 4G+: %s \n", 1, S5
turnoff
endin
instr 2
; test i-time and k-time execution
k1 = ntom("4Eb-31")
printf "4Eb-31 = %f \n", 1, k1
i0 ntom "4C+"
printf_i "4C+ = %f \n", 1, i0
i1 = ntom:i("4A")
printf_i "4A = %f \n", 1, i1
turnoff
endin
i 1 0 1
i 2 0 1