Listing of file='IDS2PS14' on disk='vmedia/701-2716B.wvd.zip'
# Sector 817, program filename = 'IDS2PS14'
1000 REM "IDS2PS14" - SCREEN/REPORT MASK BATCH DOCUMENTATION MODULE
1005 DIM E7$8
: IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
: IF C5$="S"THEN R3$(1)="IDS2MS01"
: ELSE IF C5$="R"THEN R3$(1)="IDS2MR01"
: ELSE R3$(1)="IDS2MB01"
: IF VAL(E6$)<>31THEN 1025
: $CLOSE#1
: COM CLEAR J3
: LOAD T#2,R3$(1)1000,
1025 IF C9>0THEN 1030
: DATA LOAD BA T#3,(0)STR(F$(),1,256)
: J5=VAL(STR(F$(),2))
1030 PRINT HEX(06020402000E);AT(23,21);BOX(1,35);
: PRINTUSING " Searching for files in sector ####",C9;
: KEYIN E6$,1040,1125
1040 DATA LOAD BA T#3,(C9)STR(F$(),1,256)
: MAT SEARCHF$(),>HEX(00)TO E$
: IF VAL(E$,2)=0THEN 1070
1050 F9=F9+1
: IF F9<17THEN 1130
1070 C9=C9+1
: F9=0
: IF C9<J5THEN 1030
1110 COM CLEAR C9
: $CLOSE#1
: GOSUB '48(0,HEX(0C0D),0)
: GOSUB '49(0)
: MAT REDIM E4$(16)16
: LOAD T#2,R3$(1)1000,
1125 IF VAL(E6$)=31THEN 1110
: ELSE GOTO 1040
1130 E$=STR(F$(),F9*16-7,8)
: IF STR(F$(),F9*16-15,8)=HEX(0000000000000000)THEN 1070
: IF VAL(E$)=0OR STR(E$,1,6)="IDS2wS"THEN 1050
: IF STR(F$(),F9*16-15,2)<>HEX(1000)THEN 1050
: IF C5$="S"THEN 1170
: E7$=E$OR ALL(20)
: IF E7$<>E$THEN 1050
1170 A=VAL(STR(F$(),F9*16-13),2)
: MAT REDIM E$(E8)1
: DATA LOAD BA T#3,(A)STR(E$(),1,256)
: IF STR(E$(),,3)<>HEX(8201D3)OR POS("SRB"=C5$)<>POS(HEX(F3F2E2)=STR(E$(),4
,1))THEN 1050
: MAT REDIM E4$(3)83
: DATA LOAD DA T#3,(A)E4$()
: GOSUB '33("IDS2sS13")
: IF C5$="S"THEN I=54
: ELSE I=134
: IF STR(E4$(),I,8)<>" "THEN 1050
: IF C5$="S"THEN I=50
: ELSE I=70
: IF R8$<STR(E4$(),I,1)THEN 1050
1220 IF STR(E4$(),I+1,3)<>" "AND STR(E4$(),I+1,3)<>R4$THEN 1050
: I=42
: IF C5$<>"S"THEN I=62
: IF STR(D5$,1,1)<>" "AND STR(E4$(),I,1)<>STR(D5$,1,1)THEN 1050
: IF STR(D5$,2,3)<>" "AND STR(D5$,2,3)<>STR(E4$(),I+1,3)THEN 1050
: IF STR(D5$,5,4)<>" "AND STR(D5$,5,4)<>STR(E4$(),I+4,4)THEN 1050
1260 PRINT HEX(06020402000E);AT(23,21);BOX(1,35);" Printing documentation of "
;E$;
: R3$(1)="IDS2PS14"
: IF C5$="S"THEN E9$(2)=E$
: ELSE IF C5$="R"THEN E9$(6)=STR(E4$(),2,8)
: ELSE E9$(8)=STR(E4$(),2,8)
: IF C5$<>"S"THEN LOAD T#2,"IDS2PR29"1000,
: E$="IDS2PS10"&"IDS2P000"
: LOAD T#2,<2>E$1000,
2000 MAT SEARCHF$(),>HEX(00)TO E$
: IF VAL(E$,2)<>0THEN 1050
: ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
: E$="IDS2PS14"
: IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
: STOP "ERROR"