openread 1 md.txt
:mainloop
read 1 *string
checkeof 1
if errorlevel 1 goto close
gosub sendstring
goto mainloop

:sendstring
stuffkey 60 0
stuffkey 0 95
stuffkey 0 9
stuffkey 0 95
set *i 1
strlen *len @string@
:loop
if @i@ > @len@ goto endloop
strmid *c @i@ 1 @string@
stuffstring "@c@"
stuffkey 0 27
a:\programs\rc\rc.exe md303.rcf
CheckKey
if errorlevel 1 goto abort
calc *i @i@ + 1
goto loop
:endloop
stuffkey 60 0
stuffkey 0 95
stuffkey 59 0
stuffkey 0 27
a:\programs\rc\rc.exe md303.rcf
return

:abort
getkey *c

:close
close 1
end