start tok64 d64-x2f35P
1 OPEN 1,8,15,"i"
2 PRINT#1,"m-r"CHR$(144)CHR$(7)CHR$(16)
3 INPUT#1,a$
4 CLOSE 1
stop tok64
(bastext 1.0)