Listing of file='IDS2PF19' on disk='vmedia/701-2717B.wvd.zip'
# Sector 469, program filename = 'IDS2PF19'
1000 REM "IDS2PF19" - DATA FILE BATCH DOCUMENTATION MODULE
1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
: IF C9>0THEN 1020
: DATA LOAD BA T#5,(0)STR(F$(),1,256)
: J4=VAL(STR(F$(),2))
1020 R3$(1)="IDS2MF01"
: IF E0$<>"IDS2sS13"THEN GOSUB '32("IDS2sS13")
: PRINT HEX(06020402000E);AT(0,7);"Data File Editor - Data File Batch Docum
entation Module";HEX(0F);AT(4,49);"IDEAS data"
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#5,(C9)STR(F$(),1,256)
1050 F9=F9+1
: IF F9<17THEN 1130
: C9=C9+1
: F9=0
: IF C9<J4THEN 1030
1110 COM CLEAR C9
: $CLOSE#1
: LOAD T#2,R3$(1)1000,
1125 IF VAL(E6$)=31THEN 1110
: ELSE GOTO 1040
1130 E$=STR(F$(),F9*16-7,8)
: IF VAL(E$)=0THEN 1050
: IF STR(F$(),F9*16-15,2)<>HEX(1000)THEN 1050
: GOSUB '39(E$,5)
: LIMITS T#P,E$,A,B,C,D
: IF D<2OR C<4OR C>18THEN 1050
: DATA LOAD BA T#P,(A)STR(E$(),1,256)
: IF STR(E$(),1,4)<>HEX(8201D3E3)THEN 1050
: MAT REDIM E4$(3)83
: DATA LOAD DA T#P,(A)E4$()
: MAT REDIM E4$(16)16
: IF STR(E4$(),66,8)<>" "THEN 1050
: IF R8$<STR(E4$(),62,1)THEN 1050
1220 IF STR(E4$(),63,3)<>" "AND STR(E4$(),63,3)<>R4$THEN 1050
: IF STR(E7$,1,1)<>" "AND STR(E4$(),54,1)<>STR(E7$,1,1)THEN 1050
: IF STR(E7$,2,3)<>" "AND STR(E7$,2,3)<>STR(E4$(),55,3)THEN 1050
: IF STR(E7$,5,4)<>" "AND STR(E7$,5,4)<>STR(E4$(),58,4)THEN 1050
: PRINT HEX(06020402000E);AT(23,21);BOX(1,35);" Printing documentation of "
;E$;
1270 R3$(1)="IDS2PF19"
: E9$(1)=E$
: LOAD T#2,"IDS2PF15"1000,
3699 ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
: E$="IDS2PF19"
: IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
: STOP "ERROR"