ÐÑ©6YDYZ9¤ÉNÃA¨A¤DD¤ZZ¤Z8¤F6¤V7¤V8¤V9¤V5¤V6¤VV¤V0¤ÏF¤T7¤P¨B¨V¨ZN¤D¤F4¤F5¤XY¤I¤V1¤V2¤V3¤TEMP¤V4¤NET¤XX¤F7¤F8¤P¤N¤SP¤A1¤A2¤A3¤A4¤A5¤Y¤ÆÚØÙÕÐZ¹JÉA±ÔH±XØH²TÔH³H´HµH¶ÊNEÔÈA´AµA¶A·A¸A¹A1°A1±A1²A1³A1´A1µÍÎR±T·Ç×T±FÐËP±BÉIÉ€@€€€€€€ € € € € €€€€@@@€€€€€€€€€€€ €!€"€#€$€%€&€'€(€)€*€+€,€-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ'@‚'@ƒ@9€;@, W }-@@@% -) W (               ÐÁÙÒÏÌÌ ÐÒÏÇÒÁÍ          "-@@@ -"  R) !THIS PROGRAM IS A BRIEF IN MEMORYR $PAYROLL SYSTEM. ESSENTIALLY IT IS AV* "PROGRAM WHICH COMPUTES FEDERAL ANDV 'FICA WITHHOLDING AND STORES PAY RECORDS.. &IN A FORM WHICH PERMITS EASY ACCESS TOW- %THOSE INTERESTED IN 941 OR W-2 FORMS.W %THERE IS AT PRESENT, NO PROVISION FORY/ 'STATE OR LOCAL WITHHOLDING BUT THIS CANY %BE HANDLED VIA THE 'OTHER DEDUCTIONS'  CATEGORY. [- %THE DIMENSIONING LIMITS THE PAYROLLS [ (MASTER FILE TO 25 EMPLOYEES, THOUGH THIS">/ 'MAY BE INCREASED IF MUCH MAIN MEMORY IS>  AVAILABLE.$U) !REMEMBER THAT THE MASTER MUST BE U 'RECALLED FROM STORAGE BEFORE OPERATIONS&?/ 'ARE PERFORMED AND RESTORED. AFTER THE ?  OPERATIONS.84-@#0 PRESS ENTER TO BEGIN 4€9: };¢6‚-@%¢ƒ9‚<@,„;A@,…;@,†;@P,‡;@P,ˆ;@,‰;@P,Š;@P,‹;@P,Œ;@P,;@P,Ž;@P,;@P,<, 6….D26-@" A , A!A(‘;@0,’;@P,(FORMATTING›C¯¯“9@<@ ,”9@<@ ,•9@,€;@,–;@P,—;@P,˜;@P,™;@P,š;@P,›;@P,œ;@P,;@P,ž;@P,Ÿ;A,DŸŸ ;@P,¡;@P,¢;@P,£;@P,¤;@P,¥;@P,¦;@P,§;@€,¨;@P,©;@P,ª;@P,«;@P,¬;@P,­;@P,EUU6§.K FD®-@@+¯-@@ <6”8®<¯,-@ ¯D ®GD®-@@+¯-@@ <6“8®<¯,-@ ¯D ®I7 }-@@-  ÉÎÉÔÉÁÌÉÚÉÎÇ7 AK B@L{-@yw6„7$@P%@<+%@,$@P,.2 { P}-@‚6°-#6±-@- By6„7²$@0%@<+²%@,$@0,.9999 } d>®-@‚%³-@@66ƒ8®<³,-: ³> ®ô= (} (:((                ÍÁÉΠÍÅÎÕ               =(þoo(g 1. MASTER FILE MAINTENANCE 2. SWITCH DRIVES 3. TURN PRINTER ON/OFFkk(c 4. READ FILE FROM DISK 5. WRITE FILE TO DISK 6. COMPUTE PAYROLLDD(< 7. POST PAYROLL TO YTD TOTALS 8. REPORT GENERATORB?(7 9 END OF PERIOD FILE MAINTENANCE 10 END PROGRAMB(XL ENTER YOU CHOICE €%€4B@„F:@„,&@L AYa-@B:€,:@:€7<,, @G)@:€7<,,!@YW@„F:@„,&@a AZ 6´-A:€,]Z´"@3 ARE YOU SURE YOU WANT TO QUIT 7€P€7@<@,4YW }ZbOO´A1A A!A"A#AxApAPAsl AÐa }-@0 ACTIVE DRIVE :9…4D1B6….D2F …Z®-@A^ ®a$Ú+ 6….D1 …$®-@A( ®+$4f }-@(@+  PRINTER :7"@C6-K OFF_®-@Ac ®f$>26-@ ON +®-@A/ ®2$˜READ IN FILE FROM DISK›¢- } # PUT DISK IN DRIVE- B²6 } 2 ENTER NAME OF FILE TO BE READ :6–³J#@:–7@<@,, @e@@„F:@„,&@J A"&´3 }-@@3 ªª ÒÅÁÄÉÎÇ ÄÁÔÁ ªªµ3 6‘.…6‘7B:‘,%@,.:36‘7B:‘,%@,.–¶ @@‘À@‚Ï-@‚ A%P Ô@Þ$üWRITE FILE OUT TO DISK› } , " PUT DATA DISK IN DRIVE , B N   - PRESENT FILE NAME IS '–'=  NEW NAME :A†H†0N6–.† 3 }-@@3 ªª ×ÒÉÔÉÎÇ ÄÁÔÁ ªª 3 6‘.…6‘7B:‘,%@,.:36‘7B:‘,%@,.– @@‘  @‚) -@‚ A&P B @L $ö $$INPUT 1 EMPLOYEE FROM DISKETTE› 3µ-@$@¶/6ƒ8<µ,-¶3 µ 8µ-@@$@‡86‡.‡7@H B? "$A }D $6ƒ8<,- Aa! $ N A`X   B A1À›ˆREPORT GENERATOR›/ } ,  REPORT MENU/ ’  1. PAYROLL REGISTERœ.. & 2. COMPLETE EMPLOYEE LIST WITH TOTALS¦  3. END REPORT GENERATORÄ@ AP`  2 ENTER APPROPRIATE CHOICE 6´@ BÉ´"@$δAQARASØ APìPAYROLL REGISTER›î }ïx ' DATE FOR PAYROLL REGISTER :+—:B:—, @W@„F:@„,&@a AQx6—.—7@<@,ð }ñ*-@&6•8,-* ôL6‘.PAYROLL REGISTER :06‘7B:‘,%@,.—3 E@…@I ‘L õ"@333‘3ö   ˜ ™û-@‚üA 6°-6±-@ B%6·-²+6°-76±-@A Býdd„7²$@0%@<²$@0%@,49999)„7·$@0%@<·$@0%@,0—AQ3 6›.=:,6¸-B:›,*6¹-ƒ8<@, B$6¨.¢*6º-»*6¹-ƒ8<@, B$6©.¢*6¼-»*6¹-ƒ8<@, B$6ª.¢*6½-»*6¹-ƒ8<@, B$6«.¢*6¾-»Q;6¹-ƒ8<@,&ƒ8<@,&ƒ8<@,&ƒ8<@,E BK6¬.¢Q6¿-»{@…@&¸ ›0@…@&º5 ¨I@…@&¼N ©b@…@#&½g ª{@…@0&¾g «@…@7&¿ ¬4À-@@O6•8À,-•8À,%ƒ8<À%@,S Àg"AQ3..3 ID# :§7@<@&B:›,,› Y.3 GROSS :§7@<@&B:¨,,¨Y3 FD WITH :§7@<@&B:©,,© Y.3 FICA :§7@<@&B:ª,,ªY3 SPECIAL :§7@<@&B:«,,« 1.3 NET :§7@<@&B:¬,,¬13 3&'@"P:'@,*") 3 B    336Á-•8@,&•8@,&•8@,&•8@,M6¹-•8@, B"6œ.¢(6¸-»76¹-•8@,A BG6.¢M6º-»i6¹-•8@, B"6ž.¢(6¼-»76¹-•8@,A BG6 .¢M6½-»S6¹-Á] Bc6¡.¢i6¾-»^   TOT.'@…@&¸, œ@@…@&ºE Y@…@#&¼^ ž4@…@0&½  0@…@7&¾4 ¡ " AQ!3#3TOTALS$3(..3 GROSS :§7@<@&B:œ,,œ-..3 FD WITH :§7@<@&B:,,2..3 FICA :§7@<@&B:ž,,ž7..3 SPECIAL :§7@<@&B: ,, <..3 NET :§7@<@&B:¡,,¡F  BK$PCOMPLETE EMPLOYEE LIST›Q }S*-@@&6•8,-* U*6‘. EMPLOYEE LIST*  ‘_-@‚a" }dW 6°-6±-@ BW„7²$@0%@<²$@0%@,49999ARUn Aas"@ Abx.À-@@*6•8À,-•8À,%ƒ8<À,. À‚&"  B# }& „  "@3‡ ‰"@33Œ:" 6 PRESS ENTER FOR COMPANY TOTAL :€Ž0"@03 COMPANY TOTALS" }‘D #  COMPANY TOTALS& 2"@D-@"–  £ ¤›u<6•8@,-•8@,&•8@,&•8@,&•8@,u6•8@,-•8@,&•8@ ,&•8@,&•8@,œM6¹-•8@, B"6 .¢(6¸-»76¹-•8@,A BG6Œ.¢M6º-»M6¹-•8@, B"6.¢(6¼-»76¹-•8@,A BG6‰.¢M6½-»ž(6¹-•8@, B"6œ.¢(6¾-» n Y@…@&¸#  7@…@&º< ŒP@…@!&¼U i@…@0&½n ‰¡8@…@7&¾ œ8@„F:@„,&@¢r6¹-•8@, B"6.¢(6¼-»76¹-•8@,A BG6Ž.¢M6½-»\6¹-•8@,f Bl6Š.¢r6¸-»£M6¹-•8@ , B"6‹.¢(6º-»76¹-•8@,A BG6.¢M6¾-»¤n M@…@&¸# Š7@…@&º< ‹P@…@!&¼U i@…@0&½n Ž¥;@…@7&¾ 8@„F:@„,&@; ¦" B$§_ 3Y43 GROSS :§7@<@&B: ,, _3 FD WTH :§7@<@&B:Œ,,Œ¨..3 FICA :§7@<@&B:,,©..3 SPECIAL :§7@<@&B:‰,,‰ª..3 NET :§7@<@&B:œ,,œ« 3 3¬ 3M­r6¹-•8@, B"6.¢(6¼-»76¹-•8@,A BG6Ž.¢M6½-»\6¹-•8@,f Bl6Š.¢r6¸-»®M6¹-•8@ , B"6‹.¢(6º-»76¹-•8@,A BG6.¢M6¾-»¯..3 GROSS :§7@<@&B:Š,,Š°..3 FD WTH :§7@<@&B:‹,,‹±..3 FICA :§7@<@&B:,,²..3 SPECIAL :§7@<@&B:Ž,,Ž³;.3 NET :§7@<@&B:,,8 B;$´$›p**SBR FOR INPUTTING DATA ON 1 EMPLOYEE›z B } }  EMPLOYEE # e #  EMPL. NAME :'­;B:­, @0*­0e6­7B:­,%@,.§7@<@0&B:­,,€S 6°-6±-@ B&­0S6„7²$@0%@<+²%@,$@0,.­‚b  SS# :$­8B:­, @0*­0b6­7B:­,%@,.§7@<@0&B:­,,ƒS 6°-6±-@ B&­0S6„7²$@0%@<+²%@,$@0,.­„b  ADDR LINE 1 :$­8B:­, @0*­0b6­7B:­,%@,.§7@<@0&B:­,,…S 6°-6±-@ B&­0S6„7²$@0%@<+²%@,$@0,.­†b  ADDR LINE 2 :$­8B:­, @0*­0b6­7B:­,%@,.§7@<@0&B:­,,‡S 6°-6±-@ B&­0S6„7²$@0%@<+²%@,$@0,.­ˆb  LAST PAY DAY :$­8B:­, @0*­0b6­7B:­,%@,.§7@<@0&B:­,,‰S 6°-6±-@ B&­0S6„7²$@0%@<+²%@,$@0,.­Š]6¹-ƒ8<@, B$6¥.¢*6Â-»>@…@&ÂC ¥Y  PAY RATE :]¥‹ ¥06ƒ8<@,-A:¥,ŒW6¹-ƒ8<@, B$6¥.¢8@…@&»= ¥S  # EXEMPTION :W¥ ¥06ƒ8<@,-A:¥,ŽZ6¹-ƒ8<@, B$6¥.¢8@…@&»= ¥S  MAR=2 SING=1 :W¥Z  ¥06ƒ8<@,-A:¥,“C/ƒ8<@,@*ƒ8<@,@9 BC A`0”Q6¹-ƒ8<@, B$6¨.¢*6¸-»;6¹-ƒ8<@,E BK6©.¢Q6º-»•Q6¹-ƒ8<@, B$6ª.¢*6¼-»;6¹-ƒ8<@,E BK6«.¢Q6½-»˜] ˜ ™ Y&@…@&¸+ ›?@…@ &ºD ¨X@…@&¼] ©™4@…@$&½ ª0@…@1&¾4 «9 , !YTD GROSS,FED WITH, FICA,SPECIAL:/ 9ÃÄÅÆžG6ƒ8<@,-Ã%6ƒ8<@,-Ä66ƒ8<@,-ÅG6ƒ8<@,-Æ¢e }   ˜ ™ M3@…@&¸8 ›L@…@ &ºQ ¨e@…@&¼£9 ©@…@$&½! ª5@…@1&¾9 «§l , !MTD GROSS,FED WITH, FICA,SPECIAL / 9ÇÈÉÊJ6ƒ8<@,-Ç[6ƒ8<@ ,-Èl6ƒ8<@,-ɨ;6ƒ8<@,-Ê%6¹-ƒ8<@,/ B56¨.¢;6º-»©*6¹-ƒ8<@, B$6©.¢*6¼-»ª*6¹-ƒ8<@, B$6ª.¢*6½-»«*6¹-ƒ8<@, B$6«.¢*6¾-»¬ 6›.=:,6¸-B:›,®k }   ˜ ™ C3@…@&¸8 ›L@…@ &ºQ ¨k@…@&@¯9 ©@…@$&½! ª5@…@1&¾9 «±8 +  CURR GROSS,FED WITH,FICA,SPECIAL. 8ËÌÍζG6ƒ8<@,-Ë%6ƒ8<@,-Ì66ƒ8<@,-ÍG6ƒ8<@,-ÎÊ$Ô""PRINT EMPLOYEE RECORD ON CRT›Õ }× Ù  EMPLOYEE #:Þk 6°-6±-@ BY  NAME :„7²$@0%@<+²%@,$@0,k@…àk 6°-6±-@ BY  SS NO. :„7²$@0%@<+²%@,$@0,k@…â==  RATE :P:+ƒ8<@,%>P,$A,'Aè\  ADDRESS :6°-&6±-@0 B\ „7²$@0%@<+²%@,$@0,êm  6°-%6±-@/ B[ „7²$@0%@<+²%@,$@0,m@…ín 6°-6±-@ B0  LAST PAY :\ „7²$@0%@<+²%@,$@0,n@…îh  EXEMPT :ƒ8<@,E MAR (2),SING (1) : ƒ8<@,H h Y = YTD M=MTD C=CURRENTò  ˜ ™ó 6›.=:,6¸-B:›,6¨.¢ôQ6¹-ƒ8<@, B$6¨.¢*6º-»;6¹-ƒ8<@,E BK6©.¢Q6¼-»õQ6¹-ƒ8<@, B$6ª.¢*6½-»;6¹-ƒ8<@,E BK6«.¢Q6¾-»öQ;6¹-ƒ8<@,&ƒ8<@,&ƒ8<@,&ƒ8<@,E BK6¬.¢Q6¿-»÷n Y@…@&¸# ›7@…@&º< ¨P@…@&¼U ©i@…@#&½n ªøm@…@0&¾ «0@…@7&¿4 ¬=6›.=:,F6¸-B:›,W6¹-ƒ8<@,a Bg6¨.¢m6º-»ùx6¹-ƒ8<@ , B$6©.¢*6¼-»;6¹-ƒ8<@,E BK6ª.¢Q6½-»b6¹-ƒ8<@,l Br6«.¢x6¾-»úQ;6¹-ƒ8<@,&ƒ8<@ ,&ƒ8<@,&ƒ8<@,E BK6¬.¢Q6¿-»ün M@…@&¸# ›7@…@&º< ¨P@…@&¼U ©i@…@#&½n ªý4@…@0&¾ «0@…@7&¿4 ¬c 6›.=:,6¸-B:›,&6¹-ƒ8<@,0 B66¨.¢<6º-»M6¹-ƒ8<@,W B]6©.¢c6¼-»Q6¹-ƒ8<@, B$6ª.¢*6½-»;6¹-ƒ8<@,E BK6«.¢Q6¾-»Q;6¹-ƒ8<@,&ƒ8<@,&ƒ8<@,&ƒ8<@,E BK6¬.¢Q6¿-»n C@…@&¸# ›7@…@&º< ¨P@…@&¼U ©i@…@#&½n ª4@…@0&¾ «0@…@7&¿4 ¬$8&&PRINT EMPLOYEE RECORD ON PRINTER›;3=3 EMPLOYEE #:BX 6°-6±-@ BX3 NAME :„7²$@0%@<+²%@,$@0,DX 6°-6±-@ BX3 SS NO. :„7²$@0%@<+²%@,$@0,F==3 RATE :P:+ƒ8<@,%>P,$A,'ALX 6°-6±-@ BX3 ADDRESS :„7²$@0%@<+²%@,$@0,NX 6°-6±-@ BX3 „7²$@0%@<+²%@,$@0,QX 6°-6±-@ BX3 LAST PAY :„7²$@0%@<+²%@,$@0,R 3 EXEMPT :ƒ8<@,SF(3MAR (2),SING (1) : ƒ8<@,F3Y = YTD M=MTD C=CURRENTT 6›.=:,6¸-B:›,6¨.¢UQ6¹-ƒ8<@, B$6¨.¢*6º-»;6¹-ƒ8<@,E BK6©.¢Q6¼-»VQ6¹-ƒ8<@, B$6ª.¢*6½-»;6¹-ƒ8<@,E BK6«.¢Q6¾-»WQ;6¹-ƒ8<@,&ƒ8<@,&ƒ8<@,&ƒ8<@,E BK6¬.¢Q6¿-»X:3 33Y:3 ID# :§7@<@&B:›,,›Z..3 GROSS :§7@<@&B:¨,,¨\..3 FD WITH :§7@<@&B:©,,©^..3 FICA :§7@<@&B:ª,,ª`..3 SPECIAL :§7@<@&B:«,,«b..3 NET :§7@<@&B:¬,,¬d< 6›.=:,6¸-B:›,&6¹-ƒ8<@,0 B66¨.¢<6º-»ex6¹-ƒ8<@ , B$6©.¢*6¼-»;6¹-ƒ8<@,E BK6ª.¢Q6½-»b6¹-ƒ8<@,l Br6«.¢x6¾-»fQ;6¹-ƒ8<@,&ƒ8<@ ,&ƒ8<@,&ƒ8<@,E BK6¬.¢Q6¿-»i 3 3j 3Ml..3 ID# :§7@<@&B:›,,›n..3 GROSS :§7@<@&B:¨,,¨p..3 FD WITH :§7@<@&B:©,,©r..3 FICA :§7@<@&B:ª,,ªt..3 SPECIAL :§7@<@&B:«,,«v..3 NET :§7@<@&B:¬,,¬yc 6›.=:,6¸-B:›,&6¹-ƒ8<@,0 B66¨.¢<6º-»M6¹-ƒ8<@,W B]6©.¢c6¼-»zQ6¹-ƒ8<@, B$6ª.¢*6½-»;6¹-ƒ8<@,E BK6«.¢Q6¾-»{Q;6¹-ƒ8<@,&ƒ8<@,&ƒ8<@,&ƒ8<@,E BK6¬.¢Q6¿-»~ 3 3ƒ 3C…..3 ID# :§7@<@&B:›,,›‡..3 GROSS :§7@<@&B:¨,,¨‰..3 FD WITH :§7@<@&B:©,,©‹..3 FICA :§7@<@&B:ª,,ª..3 SPECIAL :§7@<@&B:«,,«..3 NET :§7@<@&B:¬,,¬’ 3 3”Ï-@@%3 Ï›$œ›XPOST TO ACCTS›b }lA 0 %POSTING ACCTS,PRESS Y TO PROCEED,N TO= RETURN A€v €4N$€" €0Y B " Ap Š   DATE OF PAYROLL  —”  Bž0 }-@@0 ªª ÃÏÍÐÕÔÉÎÇ ªª¨-@‚²Q 6°-6±-@ BQ—0„7²$@0%@<+²$@0%B:—,,,AqP¼P6°-ƒ8<@,26ƒ8<@,-ƒ8<@,%°P6ƒ8<@,-ƒ8<@,%°ÁP6°-ƒ8<@,26ƒ8<@,-ƒ8<@,%°P6ƒ8<@ ,-ƒ8<@ ,%°ÆP6°-ƒ8<@,26ƒ8<@,-ƒ8<@,%°P6ƒ8<@,-ƒ8<@,%°ËP6°-ƒ8<@,26ƒ8<@,-ƒ8<@,%°P6ƒ8<@,-ƒ8<@,%°î ø' }  ALL DONE$ B'$„3 } 0 END OF PERIOD FILE MAINTENANCE3 Ž40 'DO YOU WANT TO ZERO ALL MTD AMTS (Y/N) 4€˜%€0Y*€0N B% As¢y €4Y-@‚06ƒ8<@,-G6ƒ8<@ ,-^6ƒ8<@,-u6ƒ8<@,-y ¬ ¶40 'DO YOU WANT TO ZERO ALL YTD AMTS (Y/N) 4€À%€0Y*€0N B% AsPÊw €4Y-@‚E6ƒ8<@,-$ƒ8<@,"\6ƒ8<@,-s6ƒ8<@,-w Þ$x77SUBROUTINE FOR INPUTTING DATA & COMPUTING PAYROLL›y% } A€ B% }z* & ENTER PAY DATE (MM/DD/YY) *—{/B:—,@"  INPUT ERROR% / Ax}J Ax8 %ENTER ID# (0 TO END),REG HRS,PREM HRS@¸ºJ B‚"$„ 6°-6±-@ B…RH )!‚)P:,)„7²$@0%@<²$@0%@,49999R Ax@‡66Ï-ƒ8<@,%6Ð-ƒ8<@,66Ñ-ƒ8<@,Œ! A‚ A‚! AƒŽR6Ò-> )ENTER SPECIAL WITHHOLDING (ENTER IF NONE)B’I’0R6Ò-A:’,‘: A„:COMPUTE FICA:STORE DATA IN EMPLOYEE RECORD›–  Aa  B› } Ax , INPUT ERROR. TRY AGAIN." , Ax@$$SUBROUTINE GIVING INSTRUCTIONS›E J** "THE FOLLOWING COMPUTES FEDERAL ANDK WITHHOLDING AMOUNTST// 'INPUT FOR EACH EMPLOYEE IS AN ID#(1-25)^// 'THEN THE # OF REGULAR HOURS (NORM RATE)h.. &THEN NUMBER OF PREMIUM HOURS (OT RATE)r THEN PRESS RETURN.|[/ 'THEN INPUT ANY SPECIAL WITHHOLDING AMT.[ '& PRESS ENTER, NOW REPEAT STARTING WITH!! ID# FOR NEXT EMPLOYEE,ETCšG* "BE SRE TO PUT A COMMA BETWEEN EACHG ENTRY FOR EACH EMPLOYEE=Ÿf. &INPUT 0 FOR END OF DATA AND ENTER WHENZ 'REQUESTED. PRINTOUT OF ALL RESULTS WILLf FOLLOW.®$ ((SUBROUTINE FOR COMPUTING GROSS PAY› 6Ó-¸$Ñ%@P$º$Ñ $ ''SUBROUTINE COMPUTES FEDERAL WAGES› 6Ô-Ó&@@$Ð! $l &&SUBROUTINE COMPUTING WITHHOLDING›q //T1 IS WITHHOLDING. X IS BRACKET WE ARE IN›v 6Õ-6°-@{ ÔAƒE€ Ô“8Ï<°,Aƒ@… KK6Õ-Õ%P:+“8Ï<°,&“8Ï<°&@,,$”8Ï<°&@,$A%?P,'AŠ 6°-°%@ Aƒ ” FF6Õ-Õ%P:+Ô&“8Ï<°&@,,$”8Ï<°&@,$A%?P,'A™ $Ð SETS UP PAY ARRAY›Ú I6ƒ8<@,-Ó%6ƒ8<@,-Õ66ƒ8<@,-ÒI6ƒ8<@,-Ö$Óä ;×-@@"6°-ƒ8<×,, B76ƒ8<×,-°; ×é <B:—, @0<6—7B:—,%@,.§7@<@0&B:—,,î L 6°-6±-@ BL6„7²$@0%@<+²%@,$@0,.—ø $M!<B:—, @0<6—7B:—,%@,.§7@<@0&B:—,,(#226˜.( ID GROSS FD WITH FICA SPECIAL NET)#226™.( -- ----- -- ---- ---- ------- ----#116£.' GROSS FD WTH FICA SPECIAL NET.#116¤.' ----- -- --- ---- ------- ---0#$'INPUT ERROR SBR›'7 INPUT ERROR ! TRY AGAIN3´-@A7 ´$'$t'8-@"4 PRESS RETURN TO CONTINUE 8€u'$Ø'Y,N,A SSBR›Ý' 6€. â'1- $ENTER Y IF OK,N IF ERROR,A TO ABORT 1€ì'+€0Y*€0N*€0A! B+ Bö'$<( Y,N,SBR›A( 6€. F('# ENTER Y IF OK, N IF ERROR '€P(%€0Y*€0N B% BZ($ (MORE ENTER? SBR›¥( 6€. ª(.* !DO YOU DESIRE MORE ENTRIES (Y/N) .€´(%€0Y*€0N B% B¾($)ONLY YLN SBR›)€0Y*€0N B)$ø*00ELIMINATES TRAILING BLANKS OF VARIABLE Z8$›ý*B:‡,"@ B +<‡7B:‡, ÀB <7B-@@+À-@@/"Ù:6”8<À,-Ù> ÀB F7$ N$$** ROUTINE TO FORMAT OUTPUT **›*N&&6¹-P:+¹%>P,$A,'A0N6°-@2NE 6¢.=:¹,B:¢, @E6¢7B:¢,%@,.§7@<@&B:¢,,4N'6Ÿ.¢7B:¢,&°&@N4Ÿ7@<@,0.46¢7B:¢,%@,..00HNH6»- Ú-@B:¢,-¢7Ú<Ú,0.;6»-»%@? ÚH6»-B:¢,IN6¹-¹'BRN$0u''SUBROUTINE TO CREATE STRING ARRAY›:u%%6²-+°&@,$@%±%@Du$€D8:PAY