0 REM *** ERROR REPORT WRITER›1 REM *** (C) 1980›2 REM *** LEN LINDSAY›3 REM *** PUTS ERROR INFO TO DISK›10 DIM ERNUM$(5),ERFILE$(12),XA$(100)›90 PRINT "}":REM CLEAR SCREEN›100 PRINT "WRITE ERROR MEANINGS TO DISK"›110 PRINT " GET OUT YOUR ERROR LIST - LETS GO-"›120 TRAP 120:PRINT "  WHAT IS THE NEXT ERROR NUMBER ";:INPUT ERNUM$›125 E=VAL(ERNUM$):TRAP 34567›130 ERFILE$="D:ERROR"›140 ERFILE$(LEN(ERFILE$)+1)=ERNUM$›150 PRINT "  PLEASE TYPE IN ITS MEANING & HINTS":INPUT XA$›160 OPEN #1,8,0,ERFILE$›170 PRINT "}NOW WRITING ERROR NUMBER ";ERNUM$›180 PRINT #1;XA$:CLOSE #1›190 GOTO 120›