Trailing-Edge
-
PDP-10 Archives
-
decuslib20-06
-
decus/20-153/pweb.rpg
There is 1 other file named pweb.rpg in the archive. Click here to see a list.
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