Listing of file='IDS2PER1' on disk='vmedia/701-2725B.wvd.zip'
# Sector 99, program filename = 'IDS2PER1' 1000 REM -- 'IDS2PER1' - Release 2.1 - ERROR HANDLING MODULE 1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM" : F$()=STR(E$,,8)&STR(E1$,,8)&STR(E2$,,8) : IF E1$<>" "THEN GOSUB 2000 : IF F6$(53)<>"N"THEN 1200 : COM CLEAR E5$ : E$="IDS2M001" : F0$=STR(F$(),,8) : IF R3$(1)<>" "THEN STR(E$,6,1)=STR(R3$(1),6) : IF STR(F0$,,6)="IDS2PC"OR STR(F0$,,6)="IDS2PU"THEN 1150 1140 GOSUB 1500 : GOSUB '39(E$,2) : IF Q=1THEN LOAD T#2,E$1000, : ELSE LOAD T#2,"IDS2M001"1000, 1150 IF STR(F0$,,6)="IDS2PC"AND STR(F0$,7,2)<"06"THEN 1160 : IF STR(F0$,,6)<>"IDS2PU"THEN 1140 : IF STR(F0$,7,2)>"04"AND STR(F0$,7,2)<"21"THEN 1160 1160 COM CLEAR E() : IF F6$(17)<"^"THEN LOAD T#2,"IDEAS2"1000, : LOAD T#2,"IDEAS2"1,3999BEG 1000 1200 F0$=STR(F$(),,8) : IF F0$>="IDS2PC00"AND F0$<"IDS2PC06"THEN 1240 : IF F0$>"IDS2PU04"AND F0$<"IDS2PU21"THEN 1240 : IF F0$>"IDS2PU32"AND F0$<="IDS2PU99"THEN 1240 : IF R3$(1)=" "THEN 1240 : GOSUB '39(R3$(1),4) : IF Q<>1THEN 1240 : GOSUB 1500 : COM CLEAR E5$ : LOAD T#P,R3$(1)1000, 1240 IF STR(F4$,4,8)=" "THEN 1260 : IF STR(F4$,4,8)="IDS2PCST"THEN STR(F4$,4,8)="IDS2PCS1" : GOSUB '39(STR(F4$,4,8),4) : IF Q<>1THEN 1260 : COM CLEAR E() : IF F6$(17)<"^"THEN LOAD T#P,STR(F4$,4,8)1000, : LOAD T#P,STR(F4$,4,8)1,3999BEG 1000 1260 GOSUB '35("No recovery module has been programmed") : STOP : END 1500 MAT REDIM E4$(16)16,E$(E8)1,F$(E9)1 : RETURN 2000 F0$=E$ : ON POS("DI"=STR(E1$,,1))GOTO 2100,2150 : GOTO 2390 2100 E$="Disk error "&E1$&" in "&F0$&" line "&E2$&",-- press EXEC to continue" : GOTO 2400 2150 E$="I/O error "&E1$&" in "&F0$&" line "&E2$&" -- check devices, press EXE C to continue" : GOTO 2400 2390 E$=" Error "&E1$&" in module "&F0$&" at line "&E2$&" -EXEC to continue" 2400 GOSUB '63(STR(E$,,16),STR(E$,17),"!") : MAT REDIM E2$(250)9 : E2$(250)=HEX(010000B89F904000) : F6$(11)="N" : GOSUB '34(250) : RETURN 2500 ON ERRORE1$,E2$GOTO 2505 2505 IF E1$<>"P55"THEN 2510 : IF E2$="1080"THEN GOTO 1160 : IF E2$="1210"AND R3$(1)>" "THEN LOAD T#P,R3$(1)1000, 2510 PRINT HEX(020402000E);AT(22,0,80);"Unanticipated error ";E1$;" in module IDS2PER1 - line ";E2$;".";AT(23,0,80);"Error occurred while processing er ror ";STR(F$(),9,4);" at line ";STR(F$(),17,5);" in module ";STR(F$(),,8) ;"."; : END