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