Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-06 - decus/20-153/array4.rpg
There is 1 other file named array4.rpg in the archive. Click here to see a list.
01010H                                                                    ARRAY4
01020FARR1    IT  F  80  80           EDISK   A41                         ARRAY4
01030F                                              KASCII                ARRAY4
01040FARR2    IT  F  80  80           EDISK   A42                         ARRAY4
01050F                                              KASCII                ARRAY4
01060FSHIPCDS IP  F  80  80            DISK   ARRAY4                      ARRAY4
01070F                                              KASCII                ARRAY4
01080FSHIPRPT O   F 132 132     OF     PRINTER                            ARRAY4
02010E    ARR1            PART    1   6  3  AARD    26                    ARRAY4
02020E    ARR2            ARLB    1   6  3  ACHRG    5 2                  ARRAY4
03010ISHIPCDS AA  11                                                      ARRAY4
03020I                                        1   3 PINO                  ARRAY4
03030I                                        4   60LENGTH                ARRAY4
03040I                                        7   90WIDTH                 ARRAY4
04010C           LENGTH    MULT WIDTH     SQFT    40H                     ARRAY4
04020C                     Z-ADD1         K       20                      ARRAY4
04030C           PINO      LOKUPPART,K                   20               ARRAY4
04040C  N20                GOTO NOPROC                                    ARRAY4
04050C                     MOVELARD,K     DESCR  20                       ARRAY4
04060C                     MOVE ARD,K     WTCOST  6                       ARRAY4
04080C                     MOVELWTCOST    WTSQFT  20                      ARRAY4
04070C                     MOVE WTCOST    COSTSF  42                      ARRAY4
04090C           SQFT      MULT COSTSF    METCST  82                      ARRAY4
04100C           SQFT      MULT WTSQFT    SHIPWT  60                      ARRAY4
04110C           SHIPWT    COMP 500                  40                   ARRAY4
04120C                     MOVE SHIPWT    SHIP    3                       ARRAY4
04130C  N40                Z-ADD1         I       20                      ARRAY4
04140C  N40      SHIP      LOKUPARLB,I               26  26               ARRAY4
04160C  N20                GOTO NOPROC                                    ARRAY4
04170C   40                SETOF                     2640                 ARRAY4
04180C           METCST    ADD  CHRG,I    TOTCHG  82                      ARRAY4
04190C           NOPROC    TAG                                            ARRAY4
05010OSHIPRPT H  2 1   1P                                                 ARRAY4
05020O       OR        OF                                                 ARRAY4
05030O                                   10 'DATE'                        ARRAY4
05040O                         UDATE Y   19                               ARRAY4
05050O                                   58 'S H I P P I N G '            ARRAY4
05060O                                   72 'R E P O R T '                ARRAY4
05070O                                  103 'AGE'                         ARRAY4
05080O                         PAGE  Z  108                               ARRAY4
05090O        H  1     1P                                                 ARRAY4
05100O       OR        OF                                                 ARRAY4
05110O                                    7 'PART'                        ARRAY4
05120O                                   59 'SQUARE'                      ARRAY4
05130O                                   67 'COST'                        ARRAY4
05140O                                   79 'METAL'                       ARRAY4
05150O                                   92 'SHIPPING'                    ARRAY4
05160O                                  102 'SHIPPING'                    ARRAY4
05170O                                  112 'TOTAL'                       ARRAY4
05180O        H  2     1P                                                 ARRAY4
05190O       OR        OF                                                 ARRAY4
05200O                                    8 'NUMBER'                      ARRAY4
05210O                                   29 'DESCRIPTION'                 ARRAY4
05220O                                   43 'LENGTH'                      ARRAY4
05230O                                   50 'WIDTH'                       ARRAY4
05240O                                   58 'FEET'                        ARRAY4
05250O                                   67 'SQ FT'                       ARRAY4
05260O                                   78 'COST'                        ARRAY4
05270O                                   91 'WEIGHT'                      ARRAY4
05280O                                  102 'CHARGES'                     ARRAY4
05290O                                  113 'CHARGES'                     ARRAY4
05300O        D  1     11                                                 ARRAY4
05310O                         PINO       6                               ARRAY4
05320O                 20      DESCR     34                               ARRAY4
05330O                 20      LENGTHZ   42                               ARRAY4
05340O                 20      WIDTH Z   49                               ARRAY4
05350O                 20      SQFT  Z   58                               ARRAY4
05360O                 20      COSTSF1   67                               ARRAY4
05370O                 20      METCST1   81                               ARRAY4
05380O                 20 26   SHIPWT1   92                               ARRAY4
05390O                 20N26             92 'OVER 500'                    ARRAY4
05400O                 20 26   CHRG,I1  101                               ARRAY4
05410O                 20 26   TOTCHG1  115 '$'                           ARRAY4
05420O                N20                45 'I N V A L I D  P A R T '     ARRAY4
05440O                N20                59 'N U M B E R '                ARRAY4