! S %WW-ZM,HCS                                                                  !      1      ! O WWZM,HCO                                                                    !      2      ! L LPH,E                                                                       !      3      ! R CED                                                                         !      4      !                                                                               !     10            LENGTH  8  &  COMMON RUNCD$                                               !   3000            USE '^COZ1'                                 !0990 - SYSTEM DATA           !   5000      !                                                                               !   5100            LENGTH 240 & LOCAL UNIQUE$                                                !   5200      !                                                                               !   5300      0991  FORMAT_                                                                   !   5400                    UNIQUE$  !PROGRAMS UNIQUE TO THIS COMPANY                         !   5500      !                                                                               !   5600      ! ========== WORK STORAGE ==========                                            !   9000            LENGTH  12  &  LOCAL BL$                                                  !   9100      !                                                                               !   9200            LENGTH 2.0  &  LOCAL ERR,FLDNBR,MONTH,DAY,YEAR                            !   9300            LENGTH 5.0  &  LOCAL ZIP                                                  !   9400            USE '^COUTIL8'                                                            !   9950      ! ========== CRT FORMATS ==========                                             !  10000      3000  FORMAT _                                                                  !  10100                  (SSB);(BF),@(0,1);'',3;(SB);_                                       !  10200                  'COMPANY CODE',@(3,2);(TM);(TM),@(18,2);(SSB);(BF);(SB);_           !  10300                  '01 NAME      ',@(0,3);(TM);(TM),@(49,3);(SSB);(BF);(SB);_          !  10400                  '02 ADDRESS 1 ',@(0,4);(TM);(TM),@(39,4);(SSB);(BF);(SB);_          !  10500                  '03 ADDRESS 2 ',@(0,5);(TM);(TM),@(39,5);(SSB);(BF);(SB);_          !  10600                  '04 CITY      ',@(0,6);(TM);(TM),@(35,6);(SSB);(BF);(SB);_          !  10700                  '05 STATE     ',@(0,7);(TM);(TM),@(16,7);(SSB);(BF);(SB);_          !  10800                  '06 ZIP       ',@(0,8);(TM);(TM),@(24,8);(SSB);(BF);(SB);_          !  10900                  '07 PHONE #   ',@(0,9);(TM);(TM),@(26,9);(SB);_                     !  11000                  'FAX #';(TM);(TM),@(45,9);(SSB);(BF);(SF)                           !  11100      !!!!!       '09 SALES YTD ',@(0,11);(TM);(RJ);(TM),@(27,11);(SSB);(BF);(SB);_   !  11200      !!!!!       '10 SLS PRV YR',@(0,12);(TM);(RJ);(TM),@(27,12);(SSB);(BF);(SB);_   !  11300      !!!!!       '11 COMM MTD  ',@(0,13);(TM);(RJ);(TM),@(27,13);(SSB);(BF);(SB);_   !  11350      !!!!!       '12 COMM YTD  ',@(0,14);(TM);(RJ);(TM),@(27,14);(SSB);(BF);(SB);_   !  11400      !!!!!       '13 COMM PR YR',@(0,15);(TM);(RJ);(TM),@(27,15);(SSB);(BF)          !  11500      !                                                                               !  11600      3100  FORMAT _                                                                  !  12000                  ZZCO$,@(16,2);_                                                     !  12100                  ZNAME$,@(14,3);_                                                    !  12200                  ZADR1$,@(14,4);_                                                    !  12300                  ZADR2$,@(14,5);_                                                    !  12400                  ZCITY$,@(14,6);_                                                    !  12500                  ZSTATE$,@(14,7);_                                                   !  12600                  ZZIP$,@(14,8);_                                                     !  12700                  ZPHONE$,@(14,9);_                                                   !  12800                  ZFAXNO$,@(33,9);(SF)                                                !  12900      !!!!!       SSLSYTD,@(15,11);_                                                  !  13000      !!!!!       SSLSPRV,@(15,12);_                                                  !  13100      !!!!!       SCOMMMTD,@(15,13);_                                                 !  13200      !!!!!       SCOMMYTD,@(15,14);_                                                 !  13300      !!!!!       SCOMMPRV,@(15,15);(SF)                                              !  13400      !                                                                               !  13500      3200  FORMAT _                                                                  !  13600                  (CF);@(16,2)                                                        !  13700      !                                                                               !  13800      3280  FORMAT _                                                                  !  13900                  @(0,2);(BF);(BF);(BF);(BF);(BF);(BF);(BF);(BF);(BF);_               !  14000                         (BF);(BF);(BF);(BF);(BF);(BF);(BF);(BF);(BF);_               !  14100                         (BF);(BF);(BF);(SF)                                          !  14200      !                                                                               !  14300      3300  FORMAT _                                                                  !  15000                   (SSB);(BF),@(0,1);(SB);@(79,1);(TP);_                              !  15020                   @(0,02);'ENTER PRINTER NAME (LPX)                ';_               !  15100                    (SSB);' ';(SF);ZLP$;(SSB);' ';(SB);_                              !  15120                   @(0,03);'CNL DEFAULT (D/S)                       ';_               !  15200                    (SSB);' ';(SF);ZCNLDISP$;(SSB);'   ';(SB);_                       !  15220                   @(0,04);'ENTER DISC NAME                         ';_               !  15300                    (SSB);' ';(SF);ZFXD$;(SSB);' ';(SB);_                             !  15320                   @(0,05);'ENTER COMPANY ID                        ';_               !  15400                    (SSB);' ';(SF);ZCOID$;(SSB);'  ';(SB);_                           !  15420                 'UPDATE CUST FL?';(SSB);' ';(SF);ZUPDC1A$;(SSB);(BF);(SB);_          !  16710                   @(0,06);'KE BATCH ( /N)                          ';_               !  15520                   @(0,07);'ENTER OE CFA DEFAULT (Y/ )              ';_               !  15600                    (SSB);' ';(SF);ZCFAFLOE$;(SSB);'   ';(SB);_                       !  15620                   @(0,08);'ENTER WAREHOUSE LOCATION CODE           ';_               !  15700                    (SSB);' ';(SF);ZLOC$;(SSB);' ';(SB);_                             !  15720                   @(0,09);'BACKGROUND PARTITION FOR MEMO PRINT     ';_               !  15800                    (SSB);' ';(SF);ZPARTMEM$;(SSB);' ';(SB);_                         !  15820                   @(0,10);'ENTER QC LOT FLAG ( /P/L/N)             ';_               !  15840                    (SSB);' ';(SF);ZQCLOT$;(SSB);'   ';(SB);_                         !  15860      !                                                                               !  15880      3320  FORMAT @(0,11);(SB);_                                                     !  15900                   @(0,11);'ENTER ADDITIONAL PACKING CHARGE         ';_               !  16000                    (SSB);' ';(SF);(RJ);ZPCKCHG;(SSB);' ';(SB);_                      !  16100                   @(0,12);'ENTER "%" FOR PERCENT OR "A" FOR AMOUNT ';_               !  16200                    (SSB);' ';(SF);ZPCKFLG$;(SSB);'       ';(SB);_                    !  16300                   @(0,13);'ENTER MINIMUM PACKING CHARGE PER ORDER  ';_               !  16400                    (SSB);' ';(SF);(RJ);ZFRTMIN;(SSB);' ';(SB);_                      !  16500                   @(0,14);'ENTER ADDITIONAL LEAD TIME DAYS         ';_               !  16600                    (SSB);' ';(SF);(RJ);ZDELDYO;(SSB);'   ';(SB);_                    !  16700                   @(0,15);'ENTER MONTH THAT STARTS YOUR FISCAL YEAR';_               !  16800                    (SSB);' ';(SF);(RJ);ZFMM;(SSB);'   ';(SB);_                       !  16900                   @(0,16);'FAIL CREDIT IF LAST SALE > XXX MONTHS   ';_               !  17000                    (SSB);' ';(SF);(RJ);ZMOCRED;(SSB);'   ';(SB);_                    !  17100                   @(0,17);'FAIL CREDIT IF A/R BAL XXX DAYS PAST DUE';_               !  17200                    (SSB);' ';(SF);ZMULTIWH$;(SSB);'               ';(SB);_           !  17420                   @(0,22);'INVENTORY AT MULTIPLE WAREHOUSES?       ';_               !  17400                    (SSB);' ';(SF);ZORDLIM$;(SSB);'               ';(SB);_            !  17380                   @(0,21);'INCLUDE OPEN ORDER AMT IN CR LIM CHECK? ';_               !  17360                    (SSB);' ';(SF);(RJ);ZPAYLIM,6;(SSB);'         ';(SB);_            !  17340                   @(0,20);'CREDIT CHECK LIMIT ON PAYMENTS          ';_               !  17320                    (SSB);' ';(SF);ZLPDSPLY$;(SSB);'               ';(SB);_           !  17300                   @(0,19);'LOT/PIECE DISPLAY PREFERENCE (Detl/Smry)';_               !  17280                    (SSB);' ';(SF);ZFOBOE$;(SSB);' ';(SB);_                           !  17260                   @(0,18);'ENTER OE FOB SITE                       ';_               !  17240                    (SSB);' ';(SF);(RJ);ZPASTDUE;(SSB);'          ';(SB);_            !  17220      !                                                                               !  17600      !                                                                               !  17700      3400  FORMAT (SF);_      !INPUT DATA                                            !  17800                   ZLP$;ZREMOTE;ZCNLDISP$;ZDICTDIR$;ZFXD$;ZMAXUPS;_                   !  17900                   ZCFAFLOE$;ZFRTYDLB$;ZLOC$;ZEDRFLG$;_                               !  18000                   ZPCKCHG;ZFEVENT$;ZPCKFLG$;ZARAUDT$;ZINVAUDT$;ZFRTMIN;_             !  18100                   ZFMM;ZFURNACT$;ZMOCRED;ZOTBCFLG$;ZPASTDUE;ZDISCAN$;_               !  18200                   ZPAYLIM,6;ZDIBCLPT$;ZORDLIM$;ZCNL7$;ZMULTIWH$;ZBRKFLG$             !  18220      !                                                                               !  18300      3500  FORMAT_                                                                   !  18400                     @(0,10);(BF);(BF);(BF);(BF);_                                    !  18500                     @(0,11);UNIQUE$;_                                                !  18600                     @(79,10);(SB);(TM);@(0,14);(TM);(BF);_                           !  18700            @(0,10);'ENTER UNIQUE PROGRAMS, USE "]" AS A SEPARATOR';@(0,11)           !  18800      !                                                                               !  19900      ! ========== OPEN FILES ==========                                              !  20000            CLEAR                                                                     !  20100            CLOSE & OPEN (0) TERM$                                                    !  20120            OPEN (Z1) 'Z1'                                                            !  20200      !                                                                               !  20300      ! ========== BEGIN PROCESSING ==========                                        !  50000            STITLE$ = 'COMPANY MAINTENANCE'                                           !  50100            TTLPOS  = 40 - LEN(STITLE$) / 2                                           !  50120            PRINT(0,120) & PRINT (0,100) & PRINT (0,110)                              !  50140            PRINT (0,3000)                                                            !  50160      5000  PRINT (0,3200)                                                            !  50200            INPUT (0) ZZCO$                                                           !  50300            IF ZZCO$ = '' OR ZZCO$ = 'EN' GOTO 9900                                   !  50400            EXTRACT (Z1,0990)KEY='*'+ZZCO$,EXCP=5200                                  !  50500      5020  PRINT (0,3100)                                   !FOREGROUND              !  50600      !                                                                               !  50700      5100  MESS$ = 'MODIFY LINE #, Graphics, eMail, Doc-img, Pdfs or END:'           !  50800            GOSUB 9000                                                                !  50900            IF AN$ EQ '' OR AN$ EQ 'E' OR AN$ EQ 'END' _                              !  51000            IF AN$ EQ '*' _                                                           !  51020               GOSUB 8400 & GOTO 5100                                                 !  51100            IF AN$ EQ 'G' OR AN$ EQ 'GRAPHICS' _                                      !  51120               GOSUB 7000 & GOTO 5100                                                 !  51140            FLDNBR = NUM(AN$,ERR)                                                     !  51200            IF FLDNBR < 1 OR FLDNBR > 7 GOTO 5100                                     !  51300            GOSUB 6000                                                                !  51400            PRINT (0,3100)                                   !ECHO INPUT              !  51500            GOTO 5100                                                                 !  51600      5120  IF EXCP = 33 AGAIN                                                        !  51620            GOTO 5100                                                                 !  51640      !                                                                               !  51700      5200  FOR FLDNBR = 1 TO 7                                                       !  51800            GOSUB 6000                                                                !  51900            IF FLDNBR = 1 AND ZNAME$ = '' GOTO 5000                                   !  52000            NEXT FLDNBR                                                               !  52100            PRINT (0,3100)                                   !ECHO INPUT              !  52200            GOTO 5100                                                                 !  52300      !                                                                               !  52400      ! ========== INPUT SUBROUTINE ==========                                        !  60000      6000  POS = 0                                                                   !  60100            LINE = FLDNBR + 2                                                         !  60200      !!!!  IF FLDNBR > 21 POS = 51 & LINE = FLDNBR - 19                              !  60300            PRINT (0,  95)                                                            !  60400            ON FLDNBR GOTO 6980,6980,_                                                !  60500            6020,6040,6060,6080,6100,_                                                !  60600            6120,6140,               _ 6160,6180,6200,_                               !  60700            6980                     ! 6220,6240,6260,6280,6300,_                     !  60800      !                                                                               !  61400      6020  INPUT (0) ZNAME$                                                          !  61500            ZNAME25$ = ZNAME$                                                         !  61520            RETURN                                                                    !  61600      !                                                                               !  61700      6040  INPUT (0) ZADR1$                                                          !  61800            RETURN                                                                    !  61900      !                                                                               !  62000      6060  INPUT (0) ZADR2$                                                          !  62100            RETURN                                                                    !  62200      !                                                                               !  62300      6080  INPUT (0) ZCITY$                                                          !  62400            RETURN                                                                    !  62500      !                                                                               !  62600      6100  INPUT (0) ZSTATE$                                                         !  62700            RETURN                                                                    !  62800      !                                                                               !  62900      6120  INPUT (0) ZZIP$                                                           !  63000      !!!!  ZIP = NUM(ZZIP$,ERR)                                                      !  63020      !!!!  IF ERR = 1 OR LEN(ZZIP$) NE 5 PRINT (0,  95) & GOTO 6120                  !  63040      !!!!  IF LEN(ZZIP$) NE 10  PRINT (0,  95) & GOTO 6120                           !  63060            RETURN                                                                    !  63100      !                                                                               !  63200      6140  INPUT (0) ZPHONE$                                                         !  63300            RETURN                                                                    !  63400      !                                                                               !  63500      6980  RETURN                                                                    !  69800      ! ========== WRITE MASTER RECORD ==========                                     !  80000      8000  WRITE (Z1,0990)KEY='*'+ZZCO$                     !WRITE MASTER            !  80100            RETURN                                                                    !  80200      !                                                                               !  80300      ! ========== INPUT PRINTER NAME, PRINTER TYPE & DISC NAME ==========            !  84000      8400  PRINT (0,3280) & SCREEN$ = '1'                                            !  84100            PRINT (0,3300) & PRINT (0,3320) & PRINT (0,3340)                          !  84200      !                                                                               !  84300      8410  INPUT (0,3400)                                                            !  84400            IF SUB(ZLP$,1,2) NE 'LP'_                                                 !  84500               MESS$ = 'PRINTER NAME MUST BE LPnn' & GOSUB 9050 &_                    !  84600               POS = 41  & LINE = 02 & PRINT (0,95) & GOTO 8410                       !  84700            IF ZCNLDISP$ NE 'D' AND ZCNLDISP$ NE 'S' _                                !  84800               MESS$ = 'D or S are the options <ENTER>' & GOSUB 9050 &_               !  84900               POS = 41  & LINE = 03 & PRINT (0,95) & GOTO 8410                       !  85000            IF LEN(ZFXD$) NE 3 OR ZFXD$ EQ '   '_                                     !  85100               MESS$ = 'DISC NAME CANNOT BE BLANK'  & GOSUB 9050 &_                   !  85200               POS = 41  & LINE = 04 & PRINT (0,95) & GOTO 8410                       !  85300            IF LEN(ZLOC$) NE 3 OR ZLOC$ EQ '   '_                                     !  85400               MESS$ = 'WAREHOUSE LOCATION MUST BE ENTERED' & GOSUB 9050 &_           !  85500               POS = 41  & LINE = 08 & PRINT (0,95) & GOTO 8410                       !  85600            IF ZPARTMEM$ EQ '' OR ZPARTMEM$ EQ '   '  ZPARTMEM$ = 'P99'               !  85700            IF ZPARTMEM$ LT 'P01' OR ZPARTMEM$ GT 'P99' _                             !  85800               MESS$ = 'BACKGROUND PARTITION (P01 - P99)'  & GOSUB 9050 &_            !  85900               POS = 41  & LINE = 09 & PRINT (0,95) & GOTO 8410                       !  86000            IF ZPCKFLG$ NE 'A' AND ZPCKFLG$ NE '%'_                                   !  86100               MESS$ = 'MUST BE "%" SIGN OR "A"'  & GOSUB 9050 &_                     !  86200               POS = 41  & LINE = 12 & PRINT (0,95) & GOTO 8410                       !  86300            IF ZLPDSPLY$ NE 'D' AND ZLPDSPLY$ NE 'S' _                                !  86310               MESS$ = "LOT/PIECE PREFERENCE MUST BE 'S' OR 'D'" & _                  !  86320               GOSUB 9050 & POS = 41 & LINE = 19 & PRINT (0,  95) & _                 !  86330               GOTO 8410                                                              !  86340      !                                                                               !  86490            READ (Z1,0991) KEY=ZCOID$,EXCP=8540                                       !  86500      8540  MESS$ = 'Modify or ENTER'                                                 !  86600            GOSUB 9000                                                                !  86700            IF AN$ EQ 'M' THEN                                                        !  86800               POS = 41 & LINE = 2 & PRINT (0,  95)                                   !  86900            IF AN$ NE '' AND AN$ NE 'M' GOTO 8540                                     !  87000      !                                                                               !  87100            PRINT (0,3280)                                                            !  87200            PRINT (0,3000) & PRINT (0,3100)                                           !  87300            PRINT (0,3500)                                                            !  87400            INPUT(0) UNIQUE$                                                          !  87500            WRITE(Z1,0991) KEY=ZCOID$                                                 !  87600      ! ========== STRIP LEADING BLANKS ==========                                    !  87700      8620!!IF ASC(ZNAME$) = 32 ZNAME$ = SUB(ZNAME$,2,LEN(ZNAME$)-1) & GOTO 8620      !  87800      ! ========== STRIP TRAILING BLANKS ==========                                   !  87900      8640!!IF SUB(ZNAME$,LEN(ZNAME$),1) = ' ' ZNAME$=SUB(ZNAME$,1,LEN(ZNAME$)-1) & _ !  88000      !!!!     GOTO 8640                                                              !  88100      !!!!  BL$ = SUB('            ',1,12-INT(LEN(ZNAME$)/2.0))                       !  88200      !!!!  ZNAME$ = BL$ + ZNAME$                                                     !  88300            RETURN                                                                    !  88400      !                                                                               !  88500            USE '^COMSRT8'                                   !9000 - MESSAGE WRITER   !  90000      9900  PRINT(0,130)     !64 CHAR MODE                                            ! 100000            RUN 'Z'                                                                   ! 100100            END                                                                       ! 100200                   'REMOTE SITES ( /1)';(RJ);(SF);ZREMOTE;(SSB);(BF);(SB);_           !  15130                   'DIR FOR 2ND #FILES';(SSB);' ';(SF);ZDICTDIR$;(SSB);_              !  15230                   (BF);(SB);_                                                        !  15240                   'MAX UPS WGHT/PKG';(RJ);(SF);ZMAXUPS;(SSB);(BF);(SB);_             !  15330                   ZCOID$;ZFRTTRM$;ZKEBAT$;_                                          !  17910            INPUT (0) ZFAXNO$                                                         !  63320                 'PO FRT TRM';(SSB);' ';(SF);ZFRTTRM$;(SB);(SSB);(BF);(SB);_          !  15430                   (SSB);' ';(SF);ZKEBAT$;(SSB);(BF);(SB);_                           !  15530                   'FRT CALC (Y=YD, L=LB)';(SSB);' ';(SF);ZFRTYDLB$;_                 !  15630                   (SSB);(BF);(SB);_                                                  !  15640                    'EDR PROCESSING? (Y/ )';(SSB);' ';(SF);ZEDRFLG$;_                 !  15739                    (SSB);(BF);(SB);_                                                 !  15749                    'CUT YARDAGE PROGRAM?';(SSB);' ';(SF);ZCUTYRD$;_                  !  15830                    (SSB);(BF);(SB);_                                                 !  15834                   ZPARTMEM$;ZCUTYRD$;ZQCLOT$;ZSHPVIA$;_                              !  18020                    'DEFAULT SHIP VIA    ';(SSB);' ';(SF);ZSHPVIA$;_                  !  15870                    (SSB);(BF);(SF)                                                   !  15872      !                                                                               !  15874      3520  FORMAT _                                                                  !  18900      !                                                                               !  18890                ZPDDYS,4;(TM);(SSB);(BF);@(0,2)                                       !  18880                'WAS ENTERED IN PAST XXX DAYS',@(41,3);(RJ);(SF);_                    !  18870                (SB);'OM - SKIP CHECK ON PAST DUE A/R IF ORDER ',@(0,3);_             !  18860                ZCLAMT,5;(SSB);(BF);_                                                 !  18850                'IN ORDER VALUE IS LESS THAN',@(42,2);(TP);(RJ);(SF);_                !  18840                (SB);'OM - SKIP CHECK ON CREDIT LIMIT IF CHANGE ',@(0,2);_            !  18830      3510  FORMAT _                                                                  !  18820      !                                                                               !  18810            RUNCD$='U'                                                                ! 100010                ZCLAMT,5;ZPDDYS,4                                                     !  18910      !                                                                               !  18920               ENDIF                                                                  !  86660                  MESS$ = 'Modify/Screen 1/ENTER'                                     !  86650                 ELSE                                                                 !  86640                  MESS$ = 'Modify/Screen 2/ENTER'                                     !  86630               IF SCREEN$ EQ '1' THEN                                                 !  86620               IF ZCOID$ NE 'IN' OR SCREEN$ EQ '1' GOTO 8410                          !  86910                  ENDIF                                                               !  86744                     GOTO 8400                                                        !  86740                    ELSE                                                              !  86736                     GOTO 8540                                                        !  86732            LENGTH   1  &  LOCAL SCREEN$                                              !   9110            SCREEN$ = '1'                                                             !  20400      !                                                                               !  20410                     INPUT (0,3520)                                                   !  86728                     PRINT (0,3510)                                                   !  86724                     PRINT (0,3280)                                                   !  86720                     SCREEN$ = '2'                                                    !  86716                  IF SCREEN$ EQ '1' THEN                                              !  86712               AN$ EQ '1' OR AN$ EQ '2') THEN                                         !  86708            IF ZCOID$ EQ 'IN' AND (AN$ EQ 'S' OR AN$ EQ 'SCREEN' OR _                 !  86704            ENDIF                                                                     !  86752               INPUT (0,3520)                                                         !  86920               GOTO 8540                                                              !  86930            ENDIF                                                                     !  86940            IF ZCOID$ EQ 'IN' THEN                                                    !  86610            ENDIF                                                                     !  86670                 'FURNITURE EVENT';(SSB);' ';(SF);ZFEVENT$;(SSB);(BF);(SB);_          !  16110            IF ZFEVENT$ NE 'Y' AND ZFEVENT$ NE ' ' _                                  !  86010               MESS$='MUST BE "Y" OR BLANK' & GOSUB 9050 &_                           !  86020               POS = 65 & LINE = 11 & PRINT(0,95) & GOTO 8410                         !  86030                 'ROUND FREIGHT? ';(SSB);' ';(SF);ZRNDFRT$;(SSB);(BF);(SB);_          !  16510                 'AUDIT A/R FILE?';(SSB);' ';(SF);ZARAUDT$;(SSB);' ';(SB);_           !  16320                   ZRNDFRT$;ZDELDYO;ZUPDC1A$;_                                        !  18110                 'FURNITURE ACCT?';(SSB);' ';(SF);ZFURNACT$;(SSB);(BF);(SB);_         !  16910               ZFURNACT$ = 'Y'                                                        !  86370            IF STRIP(ZFURNACT$) NE '' _       ! FORCE 'Y' OR BLANK                    !  86360            LENGTH  3  &  LOCAL DefaultFileExt$                                       !   5610            LENGTH 100 &  LOCAL GraphicsFolder$                                       !   5620      0004  FORMAT _                                                                  !   5630                  GraphicSFolder$;DefaultFileExt$                                     !   5640      !                                                                               !   5650      3530  FORMAT _                                                                  !  18930                (SB);'ENTER FULL PATH TO GRAPHICS FILE DIRECTORY',@(0,16);(BF);_      !  18940                (TP),@(79,16);(SF);GraphicsFolder$,80,@(0,17);_                       !  18950                (SB);'ENTER DEFAULT GRAPHICS EXTENSION',@(0,18);(SSB);' ';_           !  18960                (SF);DefaultFileExt$;(TP);@(0,17)                                     !  18970      !                                                                               !  18980      3540  FORMAT _                                                                  !  18990                @(0,15);(BF);(BF);(BF);(BF);(BF);(BF);(BF);(BF);(SF)                  !  19000      !                                                                               !  19010      ! ========== MAINTAIN GRAPHICS FILE PATH ==========                             !  70000      !                                                                               !  70010      7000  !                                                                         !  70020            GraphicsFolder$ = ''                                                      !  70030            DefaultFileExt$ = ''                                                      !  70040            READ (Z1,0004)KEY='*GraphicsFolder',EXCP=7006                             !  70050      7006  !                                                                         !  70060            PRINT (0,3530)                                                            !  70070            INPUT (0,3550)                                                            !  70080      3550  FORMAT _                                                                  !  19020                GraphicsFolder$,80;DefaultFileExt$                                    !  19030      !                                                                               !  19040      !                                                                               !  70160      !                                                                               !  70290            RETURN                                                                    !  70280      !                                                                               !  70260            WRITE (Z1,0004)KEY='*GraphicsFolder'                                      !  70250            IF AN$ NE 'Y' AND AN$ NE 'YES' GOTO 7020                                  !  70240            IF AN$ EQ 'N' OR AN$ EQ 'NO' GOTO 7006                                    !  70230            IF AN$ EQ 'E' OR AN$ EQ 'END' GOTO 7026                                   !  70220            GOSUB 9000 & AN$ = UCASE(AN$)                                             !  70210      7020  MESS$ = 'IS THE GRAPHICS FILE INFO CORRECT? (Yes/No/End)'                 !  70200      7026  PRINT (0,3540)                                                            !  70270            IF ZFURNACT$ EQ 'N' ZFURNACT$ = ''                                        !  86350                 'OTBC CK 5 HLDS?';(SSB);' ';(SF);ZOTBCFLG$;(SSB);(BF);(SF)           !  17110            IF ZOTBCFLG$ EQ 'N' ZOTBCFLG$ = ''                                        !  86380            IF STRIP(ZOTBCFLG$) NE '' _       ! FORCE 'Y' OR BLANK                    !  86390               ZOTBCFLG$ = 'Y'                                                        !  86400            LENGTH   12  &  LOCAL ZEMLPARM$                                           !   5660            LENGTH   30  &  LOCAL ZEMLNAME$,ZPOEMLNM$                                 !   5670            LENGTH   50  &  LOCAL ZEMLADDR$,ZPOEMLAD$                                 !   5680      0006  FORMAT _                                                                  !   5690      3560  FORMAT _                                                                  !  19090                (SB);'EMAIL PARAMETER FILE NAME',@(0,16);(TP);(SF);_                  !  19100                (SB);"P/O EMAIL NAME           ",@(0,19);(TP);(SF);_                  !  19120                ZEMLADDR$;(TM);_                                                      !  19116                (SB);'SALES EMAIL ADDRESS      ',@(0,18);(TP);(SF);_                  !  19112                ZEMLNAME$;(TM);_                                                      !  19108                ZEMLPARM$;(TM);_                                                      !  19102                (SB);"SALES EMAIL NAME         ",@(0,17);(TP);(SF);_                  !  19104            IF AN$ EQ 'M' OR AN$ EQ 'EMAIL' _                                         !  51150               GOSUB 7100 & GOTO 5100                                                 !  51160      3570  FORMAT _                                                                  !  19150      ! ========== MAINTAIN COMPANY EMAIL INFO ==========                             !  71000      7080  ! ========== MAINTAIN PDF PRINTER AND DIRECTORY FOR DOC IMAGING ==========!  70800      7100  !                                                                         !  71020            ZEMLPARM$ = '' & ZEMLNAME$ = ''                                           !  71030            ZEMLADDR$ = ''                                                            !  71040            READ (Z1,0006)KEY='*CompanyEmail',EXCP=7106                               !  71050      7106  !                                                                         !  71060            LINE = 19 & PRINT (0,  95)                                                !  71078            INPUT (0) ZEMLADDR$                                                       !  71074            LINE = 18 & PRINT (0,  95)                                                !  71072      7110  MESS$ = 'IS THE COMPANY EMAIL INFO CORRECT? (Yes/No/End)'                 !  71100            GOSUB 9000 & AN$ = UCASE(AN$)                                             !  71110            IF AN$ EQ 'E' OR AN$ EQ 'END' GOTO 7116                                   !  71120            IF AN$ EQ 'N' OR AN$ EQ 'NO' GOTO 7106                                    !  71130            IF AN$ NE 'Y' AND AN$ NE 'YES' GOTO 7110                                  !  71140            WRITE (Z1,0006)KEY='*CompanyEmail'                                        !  71150      !                                                                               !  71160      7116  PRINT (0,3540)                                                            !  71170            RETURN                                                                    !  71180      !                                                                               !  71190                ZEMLPARM$,@(26,16);ZEMLNAME$,@(26,17);_                               !  19160                ZEMLADDR$,@(26,18);ZPOEMLNM$,@(26,19);ZPOEMLAD$,@(26,20);(SF)         !  19170      !                                                                               !  19180                ZEMLPARM$;ZEMLNAME$;ZEMLADDR$;ZPOEMLNM$;ZPOEMLAD$                     !   5700      !                                                                               !   5710            INPUT (0) ZEMLNAME$                                                       !  71070            POS = 0 & LINE = 17 & PRINT (0,  95)                                      !  71068            INPUT (0) ZEMLPARM$                                                       !  71066            PRINT (0,3560)                                                            !  71064      !                                                                               !  17160               GraphicsFolder$ = STRIP(GraphicsFolder$) + '\'                         !  70140            IF AN$ NE '\' _                                                           !  70130            AN$ = SUB(GraphicsFolder$,AN,1)                                           !  70120            AN = LEN(GraphicsFolder$)                                                 !  70110      3340  FORMAT (SB);_                                                             !  17170            GraphicsFolder$ = STRIP(GraphicsFolder$)                                  !  70090                    'DOC IMG SCAN? ';(SSB);' ';(SF);ZDISCAN$;(SSB);(BF);(SB);_        !  17225                    'DOC IMG EMAIL?';(SSB);' ';(SF);ZDIEML$;(SSB);(BF);(SB);_         !  17265                    'DOC IMG B/C?  ';(SSB);' ';(SF);ZDIBC$;(SSB);(BF);(SB);_          !  17305                    'B/C PRINTER   ';(SSB);' ';(SF);ZDIBCLPT$;(SSB);(BF);(SB);_       !  17345                   ZFOBOE$;ZDIEML$;ZLPDSPLY$;ZDIBC$;_                                 !  18205                    'CNL PHONE 7?  ';(SSB);' ';(SF);ZCNL7$;(SSB);(BF);(SB);_          !  17384                    'BRKR FLAG P/U?';(SSB);' ';(SF);ZBRKFLG$;(TP);@(0,2)              !  17440               GOSUB 8000 & GOTO 5000                                                 !  51005      3580  FORMAT _                                                                  !  19190                (SB);'ENTER URL TO DOCUMENT IMAGING FOLDER',@(0,16);(BF);_            !  19200                (TP),@(79,16);(SF);DocImageURL$,80,@(0,17);_                          !  19210      !                                                                               !   5750                (TP);@(0,17)                                                          !  19230      !                                                                               !  19240                DocImageURL$                                                          !   5740      0008  FORMAT _                                                                  !   5730            LENGTH 100 &  LOCAL DocImageURL$                                          !   5720      3590  FORMAT _                                                                  !  19280                DocImageURL$,80                                                       !  19290                ZDIRPDFP$;_                                                           !  19630      !                                                                               !  70390      ! ========== MAINTAIN DOC IMAGE FILE PATH ==========                            !  70400      !                                                                               !  70410      7040  !                                                                         !  70420            DocImageURL$ = ''                                                         !  70430      !!!!  DefaultFileExt$ = ''                                                      !  70440            READ (Z1,0008)KEY='*DocImageURL',EXCP=7046                                !  70450      7046  !                                                                         !  70460            PRINT (0,3580)                                                            !  70470            INPUT (0,3590)                                                            !  70480            DocImageURL$ = STRIP(DocImageURL$)                                        !  70490            AN = LEN(DocImageURL$)                                                    !  70500            AN$ = SUB(DocImageURL$,AN,1)                                              !  70510            IF AN$ NE '/' _                                                           !  70520               DocImageURL$ = STRIP(DocImageURL$) + '/'                               !  70530      !                                                                               !  70540      7060  MESS$ = 'IS THE DOC-IMAGE URL INFO CORRECT? (Yes/No/End)'                 !  70550            GOSUB 9000 & AN$ = UCASE(AN$)                                             !  70560            IF AN$ EQ 'E' OR AN$ EQ 'END' GOTO 7066                                   !  70570            IF AN$ EQ 'N' OR AN$ EQ 'NO' GOTO 7046                                    !  70580            IF AN$ NE 'Y' AND AN$ NE 'YES' GOTO 7040                                  !  70590            WRITE (Z1,0008)KEY='*DocImageURL'                                         !  70600      !                                                                               !  70610      7066  PRINT (0,3540)                                                            !  70620            RETURN                                                                    !  70630      !                                                                               !  70640            AN$ = UCASE(AN$)                                                          !  50910            IF AN$ EQ 'D' OR AN$ EQ 'DOC-IMG' _                                       !  51170               GOSUB 7040 & GOTO 5100                                                 !  51180            ZZCO$ = UCASE(ZZCO$)                                                      !  50310                ZPOEMLNM$;(TM);_                                                      !  19124                (SB);'P/O EMAIL ADDRESS        ',@(0,20);(TP);(SF);_                  !  19128                ZPOEMLAD$;(TM);@(0,16)                                                !  19132                (SF);ZDIRPDFMR$;(TP);(SSB);(BF);@(0,15)                               !  19450      !                                                                               !  71096            INPUT (0) ZPOEMLNM$                                                       !  71082            LINE = 20 & PRINT (0,  95)                                                !  71086            INPUT (0) ZPOEMLAD$                                                       !  71090                  ZDIRPDFP$;_        !PDF FACTORY P.O.  FILES KEPT HERE               !   6350                  ZDIRPDFO$;_        !PDF FACTORY ORDER FILES KEPT HERE               !   6250                  ZLPPDFPRINTER$;_   !PDF PRINTER                                     !   6150      Z1PDF: FORMAT_                                                                  !   6050      !                                                                               !   5950            LENGTH 3 & LOCAL ZLPPDFPRINTER$, ZDIRPDFO$, ZDIRPDFR$, ZDIRPDFS$,ZDIRPDFP$!   5850            IF AN$ EQ 'P' OR AN$ EQ 'PDFS' _                                          !  51185               GOSUB 7080 & GOTO 5100                                                 !  51190      3600  FORMAT _                                                                  !  19310      !                                                                               !  70810                (SB);'ENTER PDF PRINTER FOR DOC IMAGING',@(0,15);(TP);_               !  19320            ZDIRPDFO$='' & ZLPPDFPRINTER$=''                                          !  70820      !                                                                               !  19300            READ (Z1,Z1PDF)KEY='*PDFIMAGE',EXCP=7086                                  !  70830      7086  !                                                                         !  70835            PRINT (0,3600)                                                            !  70840            INPUT (0,3610)                                                            !  70845                (SF);ZDIRPDFS$;(SSB);(BF);_                                           !  19410                (SB);'ENTER PDF IMAGE P.O.  DIRECTORY  ',@(0,19);(SSB);' ';_          !  19380                (SB);'ENTER PDF IMAGE ORDER DIRECTORY  ',@(0,18);(SSB);' ';_          !  19360                ZDIRPDFR$;_                                                           !  19650                ZDIRPDFS$;_                                                           !  19640      !                                                                               !  70875      7087  MESS$ = 'IS PDF IMAGE INFO CORRECT? (Yes/No/End)'                         !  70880            GOSUB 9000 & AN$ = UCASE(AN$)                                             !  70885            IF AN$ EQ 'E' OR AN$ EQ 'END' GOTO 7090                                   !  70890            IF AN$ EQ 'N' OR AN$ EQ 'NO' GOTO 7086                                    !  70895            IF AN$ NE 'Y' AND AN$ NE 'YES' GOTO 7087                                  !  70900            WRITE (Z1,Z1PDF)KEY='*PDFIMAGE'                                           !  70905      !                                                                               !  70910      7090  PRINT (0,3540)                                                            !  70915            RETURN                                                                    !  70920      !                                                                               !  70925                (SF);ZDIRPDFO$;(SSB);(BF);_                                           !  19370                  ZDIRPDFS$;_        !PDF FACTORY SAMPLE FILES KEPT HERE              !   6450                  ZDIRPDFR$;_        !PDF FACTORY STATEMENT FILES KEPT HERE           !   6550      !                                                                               !   6650                (SF);ZDIRPDFP$;(SSB);(BF);_                                           !  19390                (SB);'ENTER PDF IMAGE SAMPLE DIRECTORY ',@(0,20);(SSB);' ';_          !  19400                (SF);ZLPPDFPRINTER$;(SSB);(BF);_                                      !  19330                (SF);ZLPPDFEMAIL$;(SSB);(BF);_                                        !  19350                (SB);'ENTER PDF PRINTER FOR EMAILING   ',@(0,16);(SSB);' ';_          !  19340                ZDIRPDFO$;_                                                           !  19620                ZLPPDFPRINTER$;ZLPPDFEMAIL$;ZLPPDFDISPLAY$;_                          !  19610      3610  FORMAT _                                                                  !  19600            ZDIRPDFP$ = '' & ZDIRPDFS$ = '' & ZDIRPDFR$ = '' & ZDIRPDFMR$ = ''        !  70822                  ZLPPDFEMAIL$;_     !PDF-EMAIL PRINTER                               !   6560            LENGTH 3 & LOCAL ZLPPDFEMAIL$,ZDIRPDFMR$,ZLPPDFDISPLAY$                   !   5860                (SF);ZDIRPDFR$;(SSB);(BF);_                                           !  19430                (SB);'ENTER PDF IMAGE STMNT DIRECTORY  ',@(0,21);(SSB);' ';_          !  19420                 'INV FILE?';(SSB);' ';(SF);ZINVAUDT$;(SSB);(BF);(SB);_               !  16330                  ZDIRPDFMR$;_       !PDF FACTORY MANAGEMENT REPORTS KEPT HERE        !   6570                (SB);'ENTER PDF MGMT REPORT DIRECTORY  ',@(0,22);(SSB);' ';_          !  19440      !                                                                               !  19144      !                                                                               !  19460                ZDIRPDFMR$                                                            !  19660                  ZLPPDFDISPLAY$     !PDF FACTORY PRINTER IN DISPLAY MODE             !   6580                (SB);'ENTER PDF PRINTER IN DISPLAY MODE',@(0,17);(SSB);' ';_          !  19354                (SF);ZLPPDFDISPLAY$;(SSB);(BF);_                                      !  19358