image of READY prompt

Wang2200.org

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"