image of READY prompt

Wang2200.org

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