05 ! program to copy fixed length message file
10 dim a$[64],b$[72],na$[12]v
20 set upper on : input "File to copy ";na$ : set upper off
30 input "Length of records, (64 or 72) ";ln
40 if ln=64 or ln=72 then goto 60
50 print "Can only copy 64 or 72 byte files" : exit
60 open #3, na$
70 open #4,na$+"/WR/LN:64/FX"
80 if end #3 then 200
90 if ln=64 then input line #3, a$
100 if ln=72 then input line #3, b$
110 if ln=64 then print #4, a$
120 if ln=72 then print #4, b$
130 goto 90
200 close
210 exit