Listing of file='IDS2PU90' on disk='vmedia/701-2725B.wvd.zip'
# Sector 406, program filename = 'IDS2PU90'
1000 REM - "IDS2PU90" KEY FILE RECOVERY ALTERNATE CHECK FOR DUPLICATE KEY PROB
LEMS
1010 DIM F2$(256)1
: IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
: E3$=E2$OR ALL(20)
: GOSUB '39(E3$,5)
: IF Q=2THEN 1040
: GOSUB '38(101," ")
: END
1040 DATA LOAD BA T#P,(A+1)F2$()
: MAT REDIM E3$(249)8
: E3$()=ALL(00)
: E3$()=STR(E2$,,8)&STR(F2$(),29,58)&STR(F2$(),88,70)
: F=0
: FOR F1=1TO LEN(E3$())/8
: J5$=E3$(F1)
: GOSUB '78(J5$)
: GOSUB '47
: IF T<>5THEN 1320
: GOSUB '39(J5$,D)
: D=P
: S=(N-2)/B
: C1=0
: FOR J=0TO B-1
: DATA LOAD BA T#D,(A+J*S)F2$()
: C1=C1+VAL(STR(F2$(),9),2)
: NEXT J
: IF C1>=ZTHEN 1320
: C$=E2$
1210 IF F>0THEN 1270
: GOSUB '32("IDS2sU90")
: E2$=C$
: GOSUB '45(1,E2$)
: GOSUB '55(2,Z)
: GOSUB '37(2)
: F=2
1270 F=F+1
: GOSUB '45(F,J5$)
: F=F+1
: GOSUB '55(F,C1)
: GOSUB '37(F)
1320 NEXT F1
: IF F=0THEN 1430
1340 GOSUB '38(131," ")
: GOSUB '34(250)
: IF Q=23THEN 1430
: IF Q=34OR Q=32THEN 1400
: GOTO 1340
1400 COM CLEAR E()
: R3$(1)="IDEAS2"
: IF F6$(53)="Y"THEN R3$(1)=STR(F4$,4,8)
: LOAD T#2,R3$(1)1000,
1430 E$="Y"
: R3$(1)="IDS2PU89"
: LOAD T#2,"IDS2PF14"1000,
1450 DEFFN'78(F5$)
: E8$=F5$
: MAT SEARCHE1$(),=STR(F5$,,8)TO F9$STEP 56
: Q,V=INT((VAL(F9$,2)+55)/56)
: RETURN
3699 ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
: E$="IDS2PU90"
: IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
: STOP "ERROR"