5 ! PROGRAM TO RE-CREATE "BASIC.MSG" (FIXED LENGTH) FROM "BASIC.MES"
10 DIM A$[64]
20 OPEN #3, "BASIC.MSG/FX/LN:64/WR"
30 OPEN #4, "BASIC.MES/RO/LN:64"
40 IF END #4 THEN 100
50 INPUT LINE #4,A$
60 PRINT #3, A$
70 GOTO 50
100 CLOSE 
110 STOP