01010H PWEB 01020FCARDSIN IP F 80 DISK WEBDAT PWEB 01025F KASCII PWEB 01030FPRODRPT O F 132 OF PRINTER PWEB 02010E QARR 5 2 0 QTY ARRAY INPUT PWEB 02020E DARR 5 3 0 DAILY ARRAY PWEB 02030E TARR 5 3 0 TOTAL ARRAY PWEB 03010ICARDSIN AA 01 PWEB 03020I 1 1 SHIFT L1 PWEB 03030I 2 25 NAME PWEB 03040I 26 35 QARR PWEB 04010C L1 DARR SUB DARR DARR 30 PWEB 04020C XFOOTQARR DAYTOT 30 PWEB 04030C QARR ADD DARR DARR PWEB 04040C DAYTOT DIV 5 DAYAVG 31 PWEB 04050CL1 WSHTOT SUB WSHTOT WSHTOT 30 PWEB 04060CL1 WAVTOT SUB WAVTOT WAVTOT 31 PWEB 04070CL1 XFOOTDARR WSHTOT 30 PWEB 04080CL1 WSHTOT DIV 5 WAVTOT 31 PWEB 04090CL1 DARR ADD TARR TARR PWEB 04100CL1 XFOOTTARR FWKTOT 40 PWEB 04110CLR FWKTOT DIV 5 FTOT 41 PWEB 05010OPRODRPT H 201 1P PWEB 05020O OR OF PWEB 05030O 9 'DATE' PWEB 05040O UDATE Y 18 PWEB 05050O 59 'PRODUCTION REPORT' PWEB 05060O 90 'PAGE' PWEB 05070O PAGE Z 95 PWEB 05080O H 1 1P PWEB 05090O OR OF PWEB 05100O 58 'Q U A N T I T Y' PWEB 05110O 85 'M A N U F A C T U R E D' PWEB 05120O 95 'D A I L Y' PWEB 05130O H 2 1P PWEB 05140O OR OF PWEB 05150O 22 'SHIFT NAME' PWEB 05160O 65 'DAY 1 DAY 2 DAY 3' PWEB 05170O 79 'DAY 4 DAY 5' PWEB 05180O 96 'AVERAGE' PWEB 05190O D 1 01 PWEB 05200O L1 SHIFT 9 PWEB 05210O OF SHIFT 9 PWEB 05220O NAME 41 PWEB 05230O QARR,1Z 49 PWEB 05240O QARR,2Z 56 PWEB 05250O QARR,3Z 63 PWEB 05260O QARR,4Z 70 PWEB 05270O QARR,5Z 77 PWEB 05280O DAYAVG1 94 PWEB 05290O T 12 L1 PWEB 05300O 22 'SHIFT' PWEB 05310O SHIFT 24 PWEB 05320O 32 'TOTALS' PWEB 05330O DARR,1Z 49 PWEB 05340O DARR,2Z 56 PWEB 05350O DARR,3Z 63 PWEB 05360O DARR,4Z 70 PWEB 05370O DARR,5Z 77 PWEB 05380O WAVTOT1 94 PWEB 05390O T 3 LR PWEB 05400O 40 'FINAL TOTALS' PWEB 05410O TARR,11 49 PWEB 05420O TARR,21 56 PWEB 05430O TARR,31 63 PWEB 05440O TARR,41 70 PWEB 05450O TARR,51 77 PWEB 05460O FTOT 1 94 PWEB 05470O T LR PWEB 05480O OR OF PWEB 05490O 25 'PROBLEM 8-2' PWEB