Listing of file='IDS2PU23' on disk='vmedia/701-2725B.wvd.zip'
# Sector 303, program filename = 'IDS2PU23' 1000 REM "IDS2PU23" - FIELD/OPERATION X-REFERENCE UTILITY INDEX MONITOR 1010 DIM E7$8,J1$(16)2 : MAT REDIM E$(249)8,E2$(249)6 : E$()=ALL(FF) : J1$()=HEX(800040002000100008000400020001000080004000200010000800040002000 1) : IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM" : C8,C9,F9=0 : IF STR(J0$,,4)="IDS2"THEN F6=2 : ELSE F6=3 1140 PRINT HEX(06020402000E);AT(22,15);BOX(1,49); : PRINTUSING " Searching for files in sector ##### of device ##",C9;F6; : KEYIN E6$,1180,1160 1160 IF VAL(E6$)=31THEN 2190 1180 DATA LOAD BA T#F6,(C9)STR(E4$(),1,256) : IF C9=0THEN J5=VAL(E4$(),2) 1220 IF F9>15THEN 1260 : MAT SEARCHSTR(E4$(),F9*16+1),>HEX(00)TO E$ : IF VAL(E$,2)=0THEN 1300 1260 F9=F9+1 : IF F9<17THEN 1380 1300 C9=C9+1 : F9=0 : IF C9<J5THEN 1140 : IF F6=2THEN 1365 : IF POS(E$()<HEX(FF))>0THEN 2020 : GOTO 2190 1365 F6=3 : C9,F9=0 : GOTO 1140 1380 E$=STR(E4$(),F9*16-7,8) : IF E$<J1$THEN 1220 : IF E$>J2$THEN 1220 : IF STR(E4$(),F9*16-15,8)=HEX(0000000000000000)THEN 1220 : IF POS(E$>00)=0OR STR(E$,1,6)="IDS2wS"OR STR(E4$(),F9*16-15,2)<>HEX(1000) THEN 1220 : Z=VAL(STR(E4$(),F9*16-13),2) : MAT REDIM E3$(256)1 : DATA LOAD BA T#F6,(Z)E3$() : MAT REDIM E3$(1992)1 : C0=POS(HEX(F3F2E2)=E3$(4)) 1520 IF C0=1THEN 1530 : E7$=E$OR ALL(20) : IF E7$<>E$THEN 1220 1530 IF STR(E3$(),,3)<>HEX(8201D3)OR C0=0THEN 1220 : IF J0(C0)=0THEN 1220 : ON C0GOTO 1590,1600,1600 1590 A=54 : B=50 : C=42 : D=8 : GOTO 1620 1600 A=134 : B=70 : C=62 : D=6 : GOTO 1620 1620 MAT REDIM E3$(D)83 : DATA LOAD DA T#F6,(Z)E3$() : MAT REDIM E3$(1992)1 : IF STR(E3$(),A,8)<>" "THEN 1220 : IF R8$<STR(E3$(),B,1)THEN 1220 : IF STR(E3$(),B+1,3)<>" "AND STR(E3$(),B+1,3)<>R4$THEN 1220 : IF J5$<>" "AND STR(E3$(),C,1)<>J5$THEN 1220 : IF J6$<>" "AND J6$<>STR(E3$(),C+1,3)THEN 1220 : IF J7$<>" "AND J7$<>STR(E3$(),C+4,4)THEN 1220 1710 MAT SEARCHSTR(E3$(),78,56),<>" "TO F9$STEP 8 : IF VAL(F9$,2)=0THEN 1220 : MAT SEARCHSTR(E3$(),78,55),=" "TO F9$STEP 8 : IF VAL(F9$,2)=0THEN Q=7 : ELSE Q=INT(VAL(F9$,2)/8) : C8=C8+1 : IF C8>249THEN 2180 : MAT SEARCHSTR(E3$(),78,56),=STR(J0$,,8)TO F9$STEP 8 : IF F9$<>HEX(0000)THEN C1=1 : ELSE C1=0 : IF C1=1THEN 1830 : STR(E2$(C8),5)=ALL(00) : IF J0(5)=0THEN 1830 1800 FOR L=1TO J0(5) : MAT SEARCHSTR(E3$(),78,55),=J0$(L)TO F9$STEP 8 : IF F9$=HEX(0000)THEN 1820 : C1=1 1820 NEXT L 1830 IF C1<>0THEN 1850 : E2$(C8)=ALL(00) : E$(C8)=ALL(FF) : C8=C8-1 : GOTO 1220 1850 IF VAL(E3$(137))<>0AND VAL(E3$(138))<>0THEN 1880 : E2$(C8)=ALL(00) : E$(C8)=ALL(FF) : C8=C8-1 : GOTO 1220 1880 IF C0=1THEN E7$=E$ : ELSE E7$=STR(E3$(),2,8) : PRINT HEX(06020402000E);AT(21,27);BOX(1,20);" Found file ";STR(E7$,,8); : FOR L=8TO 1STEP -1 : ROTATEC(STR(E7$,L),1) : NEXT L : ROTATEC(STR(E7$),-8) : E$(C8)=E7$ : STR(E2$(C8),,2)=BIN(Z,2) : STR(E2$(C8),4)=BIN(F6) : ON C0GOTO ,1990,2000 1980 STR(E2$(C8),3,1)=BIN(VAL(E3$(138))/3) : E$=BIN(VAL(E3$(137))/3) : ROTATEC(STR(E$,,1),4) : STR(E2$(C8),3,1)=OR STR(E$,,1) : GOTO 1220 1990 E$(C8)=OR HEX(80) : STR(E2$(C8),3,1)=STR(E3$(),152,3) : GOTO 1220 2000 E$(C8)=OR HEX(C0) : STR(E2$(C8),3,1)=STR(E$(),152,3) : GOTO 1220 2020 MAT REDIM F$(249)2,E3$(249)2 : MAT SORTE$()TO F$(),E3$() : MAT REDIM F$(249)8 : MAT MOVE E$(),E3$()TO F$() : E$()=F$() : MAT REDIM F$(249)6 : MAT MOVE E2$(),E3$()TO F$() : E2$()=F$() : MAT REDIM F$(E9)1,E3$(1992)1 : IF C8<249THEN STR(E$(),C8*LEN(STR(E$(1)))+1)=ALL(00) : ON J0(4)GOTO 2150,2180 : LOAD T#2,"IDS2PU25"1000, 2150 LOAD T#2,"IDS2PU29"1000, 2180 GOSUB '63("The file name bu","ffer is full, Exec. to continue or cancel", ".") : GOSUB '34(250) : C8=C8-1 : ON Q-31GOTO 2020,2190 : GOTO 2180 2190 LOAD T#2,R3$(1)1000,3700 3699 ON ERRORE1$,E2$GOTO 3700 3700 DEFFN'31 : E$="IDS2PU23" : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000, : STOP "ERROR"