01010H P227 01020FCARDINP IP F00800080 DISK DAT227 P227 01025F KASCII P227 01030FPAYREG O F01320132 PRINTEROUT227 P227 02010ICARDINP 011 010001 CM P227 02020I 00020003 DIV P227 02030I 00040008 EMPNO L1 P227 02040I 00110030 NAME P227 02050I 003500382RATE P227 02060I 02NO020001 CT P227 02070I 00020003 DIV P227 02080I 00040008 EMPNO L1 P227 02090I 001200141HOURS P227 02100I 001500200DATE P227 02110I 00210021 SHIFT P227 02120I AA ** P227 02130I 00010001 CODE P227 03010C 01 CODE COMP 'T' 1010 P227 03015C 02 SETOF 303133 P227 03020C 02 HOURS MULT RATE DAYPAY0052H P227 03025C 02 SHIFT COMP '1' 32 P227 03027C 02 32 GOTO OKSHFT P227 03030C 02 SHIFT COMP '2' 30 P227 03040C 02 30 5.00 ADD DAYPAY DAYPAY P227 03050C 02 30 GOTO OKSHFT P227 03060C 02 SHIFT COMP '3' 333331 P227 03070C 02 31 10.00 ADD DAYPAY DAYPAY P227 03100C OKSHFT TAG P227 03120C 02 DAYPAY ADD WEKPAY WEKPAY0062 P227 03130CL1 WEKPAY ADD TOTPAY TOTPAY0082 P227 04010OPAYREG H 201 1P P227 04020O OR OF P227 04030O UDATE Y 0009 P227 04040O 0052 'PAYROLL REGISTER' P227 04050O 0080 'PAGE' P227 04060O PAGE 0085 P227 04070O H 1 1P P227 04080O OR OF P227 04090O 0008 'EMPLOYEE' P227 04100O 0071 'SHIFT' P227 04110O H 2 1P P227 04120O OR OF P227 04130O 0005 'NO' P227 04140O 0013 'DIV' P227 04150O 0027 'NAME' P227 04160O 0046 'DATE' P227 04170O 0056 'HOURS' P227 04180O 0063 'RATE' P227 04190O 0071 'BONUS' P227 04200O 0079 'PAY' P227 05010O D 1 02 P227 05020O OR 0 01 P227 05040O 01 EMPNO 0006 P227 05050O 01 DIV 0013 P227 05060O 01 NAME 0037 P227 05070O 02 DATE Y 0048 P227 05080O 02 HOURS 1 0055 P227 05090O 02 RATE 1 0063 P227 05100O 02 30 0071 '5.00' P227 05110O 02 31 0071 '10.00' P227 05120O 02 32 0071 '.00' P227 05130O 02 33 0072 'UNKNOWN' P227 05140O 02 DAYPAY1 0080 P227 05150O T 12 L1N10 P227 05160O OR 02 L1 10 P227 05170O N10 0071 'TOTAL PAY' P227 05180O N10 WEKPAY1B0080 P227 05190O N10 0082 '*' P227 05195O 10 0064 'NO TIME CARD READ' P227 06010O T 2 LR P227 06020O 0073 'TOTAL PAYROLL' P227 06030O TOTPAY1 0085 '$' P227 06040O 0088 '**' P227