xyNBRDGDECPLBBPNUMBEROTOTPTTPYYRWORKBLANKDECPNNBRLTLHRLOUEMPBASRLINEFEEPLINEOROCOSLINEGO  ! WAGES AND HOURSBY HAL BOYER (c) 1987, ANTIC PUBLISHINGFFIMPORTANT: SEE PRINTER CODES IN LINES 350 & 370 IF YOU DON'T OWN""AN EPSON-COMPATIBLE PRINTER! A@ AU2GOSUB ROUTINESF?6-@6-@!6-+ A<6.7@<,?$P?6-@6-@!6-+ A<6.7@<,?$Z?6-@6-@!6-+ A<6.7@<,?$d?6-@6-@!6-+ A<6.7@<,?$n 6.=:,x 6.6-B:,%@-@B:,7<,4.6-6-  6-%67&%@<,.67&<&,..-&%@7<,4 67<,.0 $7-@@"7(νŠýԠd@.@@K:;)@F@dAU*@'AE%-@""(>:AV,%$_67@<@,.|.67@,.=:,?67@,.|P67@,.$_67@,.E67@(,.|%67@3,.$467@4,.E67@I,.|e67@T,.$#67@U,.467@g,.|E67@p,.$T67@q,.e67@,.|"$,67@<@,.|.67@,.=:,?67@,.|N67@,._67@,.|n67@,.67@",.|6C67@#,.#67@0,.|267@1,.C67@9,.|@$J_ -@6@<2@P@X2@@`@\ _$T7-@)-@@ 0(4 7$^8 38PRINTER CODE FOR ONE LINE OF EXPANDED PRINTh##3 *WAGES & HOURS*r33 333PRINTER CODE FOR CONDENSED PRINT3NAME: 3UU3 BASE RATE= $< 52 WKSXX3P| HRS | BASE PAY | OVERTIME PAY | WEEKLY PAY | YEARLY PAY |$MAIN PROGRAM INPUTC +A 1A@CAACAR(}--@@C(ӠӠ+-@@+(=================: A-@@6(Enter Base Rate..:_)!@ # A05-@@U( _ A`5 A-@@1( Enter Name..54@_B:,!@ A0.-@@U("_ A`J A0-@@F(!Send Output to rinter or creen J B&4@0G37@<@,0P*7@<@,0S= A0G A0:4SANPRINT ROUTINEbDAR@'-@@D(ǠΠӠl A@v AP-@@Q>"@$)"@H--@@034 > AP#6-%?P#@w 6. A33 VV3N------------------------------------------------------------------------------)AR A0) @G-@@!)(3 A@= BG @FORMULAS AND JUSTIFY <6-$@@26-P:$A%?P,'A< @p)6-&@@)6- >6-$$@P46-P:$A%?P,'A> @*6 6-%,6-P:$A%?P,'A6 @4<6-$@R26-P:$A%?P,'A< A>07@<@,4P& A`0 APH AR$fSCREEN DISPLAY ROUTINEz36-@6--AR@3(}+-@@+(ӠӠ"-@@"(Name..+-@"@+( Base Rate..$A-@A('|HRS BASE PAY OT PAY WEEKLY YEARLY |-@@Q6-%?P$6.7@<@@,$ A -(6-%@<!@  A0# A@/"@'2'< @%!@  A@%6-@ 4 -4(& -------------------------------------3 A0 A@)AR3 @SETUP ROUTINE~~;@,;@ ,;@ ,;@ ,;@ ,;@,;@,;@ ,;@@,;@,;@,;@,;@ ,$+ 6.-67@,.-+67@,..67@<@,.|567@<@,.|N67@(<@(,.|g67@I<@I,.|67@g<@g,.|67@<@,.|8+ 6.-67@9,.-+67@,.B67@<@,.|567@<@,.|N67@<@,.|g67@#<@#,.|67@1<@1,.|67@9<@9,.|L+ 6. 67@,. +67@,.V6-@9P`@j$ D1:WAGES.BAS