Listing of file='IDS2PU29' on disk='vmedia/701-2725B.wvd.zip'
# Sector 370, program filename = 'IDS2PU29' 1000 REM "IDS2PU29" - FIELD/OPERATION X-REFERENCE UTILITY (-REPORT TYPE 2-) HE ADING 1005 COM D0,D1 : IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM" : DIM D0$4 : GOSUB 1160 : PRINT AT(22,15,);BOX(-1,-49);AT(21,27);BOX(-1,-20) : PRINT AT(21,11);BOX(1,58);" Printing References To Field ";HEX(22);" ";HEX(22);", Field Of" 1090 KEYIN E6$,1090,1100 : GOTO 1140 1100 IF VAL(E6$)<>31THEN 1140 : E$="Cross Reference Cancelled" : GOSUB 1620 : LOAD T#2,R3$(1)1000, 1140 LOAD T#2,"IDS2PU26"1000, 1160 D0=D0+1 : CONVERT D0TO D0$,(####) : E0$()=HEX(01) : E$=HEX(0C0D) : GOSUB 1620 : D1=0 : E$=" " : STR(E$,25)="DATA FILE FIELD CROSS-REFERENCE" : GOSUB 1620 : GOSUB 1620 : E$="Data File "&STR(J0$,,8)&" - "&STR(J0$,9,32)&" "&STR(R2$,,2)&"/"& STR(R2$,3,2)&"/"&STR(R2$,5,2)&" Page "&D0$ : GOSUB 1620 : GOSUB 1620 1330 E$="File Types:" : IF J0(1)=1THEN E$=E$&" "&"SCREENS -" : IF J0(2)=1THEN E$=E$&" "&"REPORTS -" : IF J0(3)=1THEN E$=E$&" "&"BATCH PROGRAMS -" : E$=STR(E$,,LEN(E$)-2) : GOSUB 1620 1360 IF POS(J1$<>HEX(00))+POS(J2$<>HEX(FF))=0THEN 1390 : E$="File Ranges: minimum -" : IF POS(J1$<>HEX(00))=0THEN E$=E$&"**none**" : ELSE E$=E$&" "&STR(J1$)&" maximum" : IF POS(J2$<>HEX(FF))=0THEN E$=E$&"**none**" : ELSE E$=E$&" "&J2$ : GOSUB 1620 1390 IF POS(J3$<>HEX(00))+POS(J4$<>HEX(FF))=0THEN 1420 : E$="Field Ranges: minimum -" : IF POS(J3$<>HEX(00))=0THEN E$=E$&"**none**"&" maximum" : ELSE E$=E$&" "&STR(J3$)&" maximum" : IF POS(J4$<>HEX(FF))=0THEN E$=E$&"**none**" : ELSE E$=E$&" "&J4$ : GOSUB 1620 1420 E$=J5$&J6$&J7$ : IF E$=" "THEN 1450 : E$="Version: "&STR(J5$)&" Application: "&STR(J6$)&" Function: "&STR(J7$) : GOSUB 1620 1450 E$="Total Number Of Data File Fields: "&J9$ : GOSUB 1620 : GOSUB 1620 : E$=" " : STR(E$,23,1)="T" : STR(E$,49)="T J Z D F E N # S C B" : GOSUB 1620 : STR(E$,16)="FILE Y R C" : STR(E$,49)="Y U F D I K R U X B E G I M F L" : GOSUB 1620 : E$="FLD" 1570 STR(E$,16)="WHERE P O O LENGTH POSITION P S I E S B Q L E P D R G M L N" : GOSUB 1620 : E$=" # FIELD USED E W L MEM RPT BEG END E T L C P D D L C S T P N A T K" : GOSUB 1620 1610 E$="--- -------- -------- - -- -- --- --- ---- ---- - - - - - - - - - - - - - - - - -" 1620 GOSUB '48(0,E$,0) : GOSUB '49(0) : D1=D1+1 : E$=" " : RETURN 3699 ON ERRORE1$,E2$GOTO 3700 3700 DEFFN'31 : E$="IDS2PU29" : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000, : STOP "ERROR"