10 dim na$[10]v,ln$[100]v
20 input "name"na$
30 open #3, na$+".FTN/RO/LN:100"
40 open #4, na$+".FTN/WR/LN:100"
50 if end #3 then 200
60 input line #3, ln$
70 nn=80
80 for i=1 to 74
90 if sbs$(ln$,75-i,1) <> " " then 110
100 next i
110 print #4, sbs$(ln$,1,76-i)
120 goto 60
200 close
210 stop