5 ! PROGRAM TO EXTRACT ERROR MESSAGES FROM "BASIC.MSG" FOR LATER
6 ! RE-CREATION (OR CHANGING) OF THE "BASIC.MSG" FILE
10 DIM A$[64]V
20 OPEN #3, "BASIC.MSG/FX/LN:64/RO"
30 OPEN #4, "BASIC.MES/WR/LN:64"
40 IF END #3 THEN 100
50 INPUT LINE #3,A$
55 A$=TRM$(A$)		: ! TRIM TRAILING BLANKS
60 PRINT #4, A$
70 GOTO 50
100 CLOSE 
110 STOP 
