Listing of file='IDS2PM05' on disk='vmedia/701-2717B.wvd.zip'
# Sector 403, program filename = 'IDS2PM05'
1000 REM "IDS2PM05" - MENU BATCH DOCUMENTATION MODULE
1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
: R3$(1)="IDS2MM01"
: E9$(7)="IDS2PM04"
: S=4
: GOSUB '32("IDS2sS13")
: PRINT HEX(06020402000E);AT(0,7);"Menu Batch Documentation Module";HEX(0F)
;AT(4,49);"menu program";
: E$()=E7$
: F=1
: GOSUB '36
1040 PRINT HEX(06020402000E);AT(23,21);BOX(1,35);
: PRINTUSING " Searching for files in sector ####",C9;
: DATA LOAD BA T#4,(C9)STR(F$(),1,256)
1060 F9=F9+1
: IF F9<17THEN 1140
: C9=C9+1
: F9=0
: DATA LOAD BA T#4,(0)STR(F$(),1,256)
: IF C9<VAL(STR(F$(),2))THEN 1040
: COM CLEAR C9
: $CLOSE#1
: LOAD T#2,R3$(1)1000,
1140 E$=STR(F$(),F9*16-7,8)
: IF VAL(E$)=0THEN 1060
: GOSUB '39(E$,4)
: LIMITS T#P,E$,A,B,C,D
: IF D<>1OR C<>8THEN 1060
: DATA LOAD BA T#P,(A+1)STR(E$(),1,256)
: IF STR(E$(),1,17)<>HEX(00FF1000D3452428292C30303031293D22)THEN 1060
: IF STR(E$(),120,8)<>" "THEN 1060
: IF R8$<STR(E$(),116,1)THEN 1060
: IF STR(E$(),117,3)<>" "AND STR(E$(),117,3)<>R4$THEN 1060
1240 DATA LOAD BA T#4,(A+6)STR(E$(),1,256)
: IF STR(E7$,1,1)<>" "AND STR(E$(),187,1)<>STR(E7$,1,1)THEN 1060
: IF STR(E7$,2,3)<>" "AND STR(E7$,2,3)<>STR(E$(),188,3)THEN 1060
: IF STR(E7$,5,4)<>" "AND STR(E7$,5,4)<>STR(E$(),191,4)THEN 1060
: PRINT HEX(06020402000E);AT(23,21);BOX(1,35);" Printing documentation of "
;E$;
: R3$(1)="IDS2PM05"
1300 E$(),E9$(5)=E$
: LOAD T#2,"IDS2PM06"1000,
3699 ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
: E$="IDS2PM05"
: IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
: STOP "ERROR"