%externalroutine famstrad(%string (255) s)
%externalroutinespec xmode(%string (255) s)
%externalroutinespec define(%string (255) s)
%externalroutinespec prompt(%string (15) s)
%integer i,j,k
define("1,".s)
xmode("native")
k=0
printstring("Go - end with ctrl+y
")
select output(1)
prompt("")
%cycle
 readch(i)
 %if i = 25 %then xmode("Trans") %and %stop
 %if i = 13 %then %continue; ! return - use lf only
%if i = 10 %and k = 10 %then k=0 %and %continue
k = i
 printch(i)
%repeat
%end
%endoffile