image of READY prompt

Wang2200.org

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"