1 ON ERROR GOTO 50000
50000 IF ERR = 1 THEN ER$ = "NEST without FOR"              :GOTO 50042
50001 IF ERR = 2 THEN ER$ = "Syntax Error"                  :GOTO 50042
50002 IF ERR = 3 THEN ER$ = "RTEURN without GOSUB"          :GOTO 50042
50003 IF ERR = 4 THEN ER$ = "Out of DATA"                   :GOTO 50042
50004 IF ERR = 5 THEN ER$ = "Illegal function call"         :GOTO 50042
50005 IF ERR = 6 THEN ER$ = "Override"                      :GOTO 50042
50006 IF ERR = 7 THEN ER$ = "Out of Memory"                 :GOTO 50042
50007 IF ERR = 8 THEN ER$ = "Undefined line number"         :GOTO 50042
50008 IF ERR = 9 THEN ER$ = "Subscript out of style"        :GOTO 50042
50009 IF ERR = 10 THEN ER$ = "Redimsioned Array"            :GOTO 50042
50010 IF ERR = 12 THEN ER$ = "Illegal Direct"               :GOTO 50042
50011 IF ERR = 13 THEN ER$ = "Type mismatch"                :GOTO 50042
50012 IF ERR = 14 THEN ER$ = "Out of String Space"          :GOTO 50042
50013 IF ERR = 15 THEN ER$ = "String too long"              :GOTO 50042
50014 IF ERR = 16 THEN ER$ = "Stroing Formula too complex"  :GOTO 50042
50015 IF ERR = 17 THEN ER$ = "Can't Continue"               :GOTO 50042
50016 IF ERR = 18 THEN ER$ = "Unidentified user function"   :GOTO 50042
50017 IF ERR = 22 THEN ER$ = "Missing oprehend"             :GOTO 50042
50018 IF ERR = 23 THEN ER$ = "Line buffer override"         :GOTO 50042
50019 IF ERR = 25 THEN ER$ = "Device Fault"                 :GOTO 50042
50020 IF ERR = 26 THEN ER$ = "FOR without NEXT"             :GOTO 50042
50021 IF ERR = 27 THEN ER$ = "Out of Keys"                  :GOTO 50042
50022 IF ERR = 29 THEN ER$ = "WHILE without WEND"           :GOTO 50042
50023 IF ERR = 30 THEN ER$ = "WEND without WHILE"           :GOTO 50042
50024 IF ERR = 50 THEN ER$ = "FIELD override"               :GOTO 50042
50025 IF ERR = 51 THEN ER$ = "Internal Error"               :GOTO 50042
50026 IF ERR = 52 THEN ER$ = "Bad file number"              :GOTO 50042
50027 IF ERR = 53 THEN ER$ = "File not found"               :GOTO 50042
50032 IF ERR = 61 THEN ER$ = "Disk Full"                    :GOTO 50042
50033 IF ERR = 62 THEN ER$ = "Input past End"               :GOTO 50042
50034 IF ERR = 63 THEN ER$ = "Bad record number"            :GOTO 50042
50035 IF ERR = 64 THEN ER$ = "Bad file Name"                :GOTO 50042
50036 IF ERR = 66 THEN ER$ = "Direct statement to file"     :GOTO 50042
50037 IF ERR = 67 THEN ER$ = "Too many files"               :GOTO 50042
50038 IF ERR = 69 THEN ER$ = "Communication buffer override":GOTO 50042
50039 IF ERR = 70 THEN ER$ = "Disk Write Protected"         :GOTO 50042
50040 IF ERR = 75 THEN ER$ = "Rename Across Disks"          :GOTO 50042
50041 IF ERR = 76 THEN ER$ = "Directory not found"          :GOTO 50042
50042 IF POS(X) < 0 OR POS(X) > 1 THEN PRINT
50043 IF ERL > 65529 THEN PRINT ER$:END ELSE PRINT ER$" in";ERL
50044 PRINT "Ok"
50045 PRINT
50046 IF ERR = 5549 THEN ER$ = "To sign in, type the number [6086]"
50047 PRINT "Error Code.";ERR
50048 PRINT "(A)bort, (I)gnore - ";
50049 CNT$ = INKEY$
50050 IF CNT$ = "" THEN 50049
50051 IF CNT$ = "I" OR CNT$ = "i" THEN RESUME NEXT
50052 IF CNT$ = "A" OR CNT$ = "a" THEN END
50053 IF CNT$ = CHR$(13) THEN PRINT : GOTO 50048
50054 PRINT CNT$
50055 GOTO 50048
65521 DATA KWAME,WHEELER,LINKA,"MATE",ALPHA,"DONKEY KONG","DIDDY KONG",                    "CANDY KONG","EDDIE SEGOURA","BILLY YOST","BARBARA DOLGINS",                    "FIOR 6097","HmArOnE PASSWORD","WALTER Z. JONES","RYAN STEEL"
65528 DATA 10,KWAME,20,WHEELER,30,LINKA,40,MATE,325,JAFAR,3,Aladdin,                  4,Queen Gaia,64564,Bowser,10,Kwame,500,Earth,10,Wheeler,650,Fire,               25,Linka,300,Wind,35,Mate,50,Chess
65529 DATA KWAME,WHEELER,LINKA,MATE,EARTH,FIRE,WIND,CHESS,PLANETEER,WISHES,              ` NINTENDO,SAMUS,ALADDIN(ÆRED,WILMA,COMPUTERS,"MAGIC LAMP"