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