05 !MSGMOV.BAS
10 !PROGRAM TO MOVE ERROR MESSAGE RECORDS IN MO FILE AROUND
20 DIM A$[64]
30 OPEN #5,"BASIC.MSG/UP/RN/LN:64"
100 FOR I=75 TO 71 STEP -1
110 INPUT LINE #5'I-29,A$
120 PRINT #5'I,A$
130 NEXT I
135 A$="  "
140 PRINT #5'70,A$:PRINT #5'69,A$
150 FOR I=68 TO 65 STEP -1
160 INPUT LINE #5'I-27,A$
170 PRINT #5'I,A$
180 NEXT I
190 A$="  "
200 FOR I=38 TO 64
210 PRINT #5'I,A$
220 NEXT I
230 STOP