10 ! PROGRAM TO LIST ERROR NUMBERS AND ERROR DESCRIPTIONS
20 DIM A$[64],E$[50]V
30 OPEN #3, "LB:[1,2]BASIC.MSG/RO"
40 OPEN #4, "BSCERRNUM.DOC/WR"
45 N=0
50 IF END #3 THEN 100
60 INPUT LINE #3, A$
70 E$=SBS$(A$,15,50)
72 IF SBS$(E$,1,2)="  " THEN 85 : ! SKIP FULL BLANK LINES
75 PP=POS(E$,"  ") : IF PP>1 THEN  LET E$=SBS$(E$,1,PP-1)
80 PRINT #4, "        ";FRMT$(N,3);". ";E$
85 N=N+1
90 GOTO 60
100 CLOSE 
105 EXIT 
