01 ! msgen.bas
02 ! program to construct mo records for basic from variable length source
10 dim a$[64]
20 open #4, "BASIC.MES/RO"
30 open #5,"BASIC.MSG/FX/WR/LN:64"
40 if end #4 then 100
50 input line #4,a$
60 print #5, a$
70 goto 50
100 close
110 exit