' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` d ֠z# u`z#     ϠҠɠҠ (I15(10001-(X,Y8X6,Y:X,YX6,Y8@(XX1:YY1:IF (Q (I15\ (10001r(X,Y8X3,Y4X6,Y8(X3,YX3,Y4(XX1:YY1:I((I15(10001(X,Y8X6,Y8X,YX6,Y(XX1:YY1:I(<(I15A(10400Z'XX1:YY1:I'!'I15,'10001Q'X,Y8X,Y1X1,YX5,YX6,Y1X6,Y8d'XX1:YY1:Ij'u'I15'10001'X,Y8X3,YX6,Y8'XX1:YY1:I''I15'10001'X,Y8X1,YX3,Y4X5,YX6,Y8'XX1:YY1:I''X,YX,Y8X5,Y8X6,Y7X6,Y5X5,Y4X,Y47'X5,Y4X6,YJ'XX1:YY1:IP'['I15f'10001'X6,Y7X5,Y8X1,Y8X,Y7X,Y5X1,Y4X5,Y4X6,Y3X6,Y1X5,YX1,YX,Y1'XX1:YY1:I''I15'10001'X,Y8X6,Y8'X3,YX3,Y8Y1'XX1:YY1:I'&'I151'10001\'X,YX,Y8X5,Y8X6,Y7X6,Y5X5,Y4X,Y4o'XX1:YY1:Iu''I15'10001'X,Y1X,Y7X1,Y8X5,Y8X6,Y7X6,Y1X5,YX1,YX,Y1:X4,Y2X6,Y'XX1:YY1:I''I15'10001',YX6,Y'XX1:YY1:I '+'I156'10001U'X,YX,Y8X3,Y4X6,Y8X6,Yh'XX1:YY1:In'y'I15'10001'X,YX,Y8X6,YX6,Y8'XX1:YY1:I''I15'10001'X,Y1X,Y7X1,Y8X5,Y8X6,Y7X6,Y1X5,YX1,YX,' j'I15l'10001&n'X,YX,Y89r'XX1:YY1:I?s'Jt'I15Uv'10001px'X,Y1X5,YX5,Y1X6,Y8|'XX1:YY1:I}'~'I15'10001'X,YX,Y8:X,Y2X6,Y8:X2,Y4X6,Y'XX1:YY1:I''I15'10001'X,Y8X0001P'X,YX,Y8X6,Y8(R'X,Y4X4,Y4;T'XX1:YY1:IAU'LV'I15WX'10001Z'X6,Y7X5,Y8X2,Y8X,Y7X,Y1X1,YX5,YX6,Y1X6,Y2X5,Y2^'XX1:YY1:I_'`'I15b'10001d'X,YX,Y8:X6,YX6,Y8:X,Y4X6,Y4h'XX1:YY1:IiX5,YX1,YX,Y1X,Y7X1,Y8X5,Y8X6,Y78 6'XX1:YY1:I> 7'I 8'I15T :'10001} <'X,YX,Y8X5,Y8X6,Y7X6,Y1X5,YX,Y @'XX1:YY1:I A' B'I15 D'10001 F'X6,YX,YX,Y8X6,Y8 H'X,Y4X4,Y4 J'XX1:YY1:I K' L'I15N'1 ' 'I15 '10001; 'X,YX,Y5X3,Y8X6,Y5X6,YK 'X,Y4X6,Y4^ "'XX1:YY1:Id #'o $'I15z &'10001 ('X,YX,Y8X5,Y8X6,Y7X6,Y5X5,Y4X,Y4 *'X5,Y4X6,Y3X6,Y1X5,YX,Y ,'XX1:YY1:I -' .'I15 0'10001% 2'X6,Y1h: r |D$(4)< D$;"RUN BOOKEEPER II PAYROLLER"B _ ' SET UP DRAW PARAMETERS 'X1X5SX:X2X10SX:X3X15SX:X4X20SX:X5X25SX:X6X30SX 'Y1Y10SY:Y3Y30SY:Y4Y40SY:Y5Y50SY:Y7Y70SY:Y8Y80SY:Y2Y20SY:Y6Y60SYX55:Y140:10010) X80:Y140:10250@ X105:Y140:10180W X130:Y140:10150n X155:Y140:10120 X180:Y140:10120 X205:Y140:10050 X225:Y140:10180 ,(1) 6I020:X(I):I @0 JI15145 T30,I243,I ^ Y60:10020 sX55:Y60:101505 xX80:Y60:10150K }X105:Y60:10110a X130:Y60:10050w X155:Y60:10050 X180:Y60:10160 X205:Y60:10050 X225:Y60:10180 X120:Y100:10090 X140:Y100:10090 X30:Y140:10160 Z3:E "ARE YOU USING A COLOR MONITOR ";Q$:(Q$,1)"Y"Z5PI15X2:_<6kAX512FX1261X:Y161XKX10,XX1,XX1,YX10,YX10,XPXi(23):" (C) COPYRIGHT MASTER GENERAL CORP."kSX.40:SY.4lZ nX30:      ";I$1600T"THIS PROGRAM CHANGES DATA IN EMPLOYEE'S PAYROLL FILE":" ""INPUT EMPLOYEE'S SEQUENCIAL NUMBER ";I:(3)14001470" "h"ANOTHER EMPLOYEE ";Q$:(Q$,1)"Y"4040mD$;"DELETE";I$rIQ:1260| 0 QQ1: JIQ!D K0207N X$(J,K)X$(J1,K)>X KEb Js "ANOTHER EMPLOYEE ";Q$:(Q$,1)"Y"3040 D$;"DELETE";I$ IQ:1260 :(10): CHANGES DATA IN A EMPLOYEE PAYROLL FILE "EMPLOYEE PAYROLL FILE TITLE I$  1600V "THIS PROGRAM DELETES EMPLOYEES FROM THE EMPLOYEE PAYROLL FILE":" " "INPUT EMPLOYEE'S SEQUENCIAL NUMBER ";I :(3) " EMPLOYEE'S NAME IS ";X$(I,0) " ":"DO YOU WANT TO DELETE THIS EMPLOYEE ";Q$ (Q$,1)"Y"3200"Ģ(3):2020M" ":"ANOTHER EMPLOYEE ";Q$:(Q$,1)"Y"II1::(3):2020k"IS THIS A NEW FILE ";Q$ (Q$,1)"Y"QI:1260 1200 :(10): DELETES EMPLOYEES FROM EMPLOYEE PAYROLL FILE "EMPLOYEE PAYROLL FILE TITLE ";Y$(KK):KK!DMMMM1:MMQ1ı+b1820g:(10): ADDS EMPLOYEE TO THE EMPLOYEE PAYROLL FILEoI1"EMPLOYEE PAYROLL FILE TITLE ";I$(2):14001470 (14):"DO YOU NEED TO MAKE CORRECTIONS ";Q$:(Q$,1)"Y;I$ ! SORTS FILES*MM23MMMU!KK020:Y$(KK)X$(MM,KK):KKz$K2ĭ(Y$(K))(X$(M1,K))1850%K21835&Y$(K)X$(M1,K)1850+KK020:X$(M,KK)X$(M1,KK):KK0MM1:M0M1:185051828 :KK020:X$(M,KK)D$;"READ";I$^QhJ1QrX$(J,0),X$(J,1),X$(J,2),X$(J,3),X$(J,4),X$(J,5),X$(J,6),X$(J,7),X$(J,8),X$(J,9),X$(J,10),X$(J,11),X$(J,12),X$(J,13),X$(J,14),X$(J,15),X$(J,16),X$(J,17),X$(J,18),X$(J,19),X$(J,20)|JD$;"OPEN";I$D$;"CLOSE")F' COMPUTES DAY OF THE YEAR8M((C$,2))KD((C$,4,2))\Y((C$,2))eL59|Y4(Y4)0L60M3MM12"D1(30.6(M3)0.5)LD,M12D1D1306L6@ READS EMPLOYEE PAYROLL FILEJD$;"OPEN";I$ TF$(6)"STATE DISABILITY"9F$(7)"FEDERAL WITHHOLDING"WF$(8)"STATE WITHHOLDING"mF$(9)"INSURANCE"F$(10)"CREDIT UNION"F210:(2)F0F2F$(F);21);X$(I,F);:(21):"";X$:X$""X$(I,F)X$:X$""(F2):(21):X$(I,F","X$(J,JJ):JJ FX$:X$""& PJ8 ZD$;"OPEN";I$K dD$;"CLOSE";I$Q np x DATA INPUT & CORRECT SUB F$(0)"EMPLOYEE'S NAME" F$(1)"SOCIAL SECURTY" F$(2)"PAY RATE" F$(3)"HOURS WORKED" F$(4)"WEEKS PAY" F$(5)"FICA"E D$;"OPEN";I$% D$;"READ";I$, Q> D$;"OPEN";I$Q D$;"CLOSE";I$[ QQIm D$;"OPEN";I$ D$;"WRITE";I$ Q D$;"OPEN";I$ D$;"CLOSE";I$ D$;"APPEND";I$ (D$;"WRITE";I$ 2J1I 7X$X$(J,0) <JJ120:X$X$) . 3" ":"CURSOR POINTS OUT CHOICE":" ":"-> STEPS CURSOR DOWN":" ":"<- STEPS CURSOR UP":" ":"PRESS RETURN KEY TO SELECT" 8(M1K) BA$ LA$H$KK1:K1K1 VA$U$KK1:KNKN `A$R$ı j1080  STORES PAYROLL FIL10003 K2000,3000,4000,9000,5000,7000,8000,6000h :(10):"DO YOU WANT TO USE ANOTHER OPTION ";Q$ (Q$,1)"Y"Ľ:300   MENU SUBROUTINE H$(8):U$(21):R$(13):K1 M((16N)2) :(M) O$(0):" " J1N $O$(J" CHANGE EMPLOYEE PAYROLL FILE"K cO$(4)" UPDATE EMPLOYEE PAYROLL FILE"v hO$(5)" SEARCH EMPLOYEE PAYROLL FILE" mO$(6)" SEARCH BY EMPLOYEE SEQUENCE NUMBER" rO$(7)" SORT EMPLOYEE PAYROLL FILE" wO$(8)" PRINT EMPLOYEE PAYROLL FILE" |@,X$(200,20),Y$(20),F$(20): SETS UP FILE CONTROL OPTIONS [1D$(4): D$=CONTROL Dc6N8@O$(0)" BOOKEEPER PAYROLL CONTROL OPTIONS"JO$(1)" ADD EMPLOYEE TO EMPLOYEE PAYROLL FILE"TO$(2)" DELETE EMPLOYEE'S PAYROLL FILE" ^O$(3)          $(I,15)1&#"TOTAL STATE TAXES";:(24):X$(I,16)]&#"TOTAL INSURANCE ";:(24):X$(I,17)&#"TOTAL CREDIT UNION ";:(24):X$(I,18)&#I&#D$;"DELETE";I$&#IQ:1260&$D410:X$(I,J8)((X$(I,J8))(X$(I,J)).001):LL(X$(I,J8)):X$(I,J8)(X$(I,J8),LL1):Jg%i#" "%n#"TOTAL PAY";:(24):X$(I,12)%x#"TOTAL FICA ";:(24):X$(I,13)%#"TOTAL SDI ";:(24):X$(I,14)&#"TOTAL FEDERAL TAXES";:(24):XH THE LAST VALUES INPUT. FOR NO CHANGE PRESS RETURN ONLY. TO CHANGE TYPE NEW VALUE OVER OLD VALUE."$K#"PRESS RETURN TO CONTINUE.";Q$:$P#I1Q:I1ė:" ":9045$Q#" ":"PRESS RETURN FOR NEXT EMPLOYEE ";Q$::" "$U#1400$Z#1470^%d#J#15002#.#"IS THIS THE UPDATE FOR WEEK ";(D17)]#0#" ";Q$:(Q$,1)"Y"ĺ"RUN ABORTED":#2#"EMPLOYEE PAYROLL FILE TITLE ";I$#<#1600l$F#"THIS PROGRAM UPDATES THE EMPLOYEE PAY- ROLL FILE. EACH EMPLOYEE'S FILE WILL BE PRESENTED WITNY OF THE FOLLOWING"2"rO$(1)" EMPLOYEE'S NAME"W"|O$(2)" SOCIAL SECURITY NUMBER"s"O$(3)" AMOUNT OF PAY"{"N3"1000"KK1"1800"6030""(#:(8): UPDATES EMPLOYEE PAYROLL FILE"*#"INPUT THE DATE AS MM/DD/YY ";C$#,:(Q$,1)"Y"7040!*E!@ SORTS & PRINTS EMPLOYEE PAYROLL FILEQ!E:(10)!J"EMPLOYEE PAYROLL FILE TITLE ";I$!T1600!^"THIS PROGRAM SORTS THE EMPLOYEE PAYROLL FILE":"PRESS RETURN TO CONTINUE";Q$"hO$(0)"YOU MAY SORT ON ASING EMPLOYEE'S SEQUENCE NUMBER":" "R "INPUT EMPLOYEE'S SEQUENCIAL NUMBER ";I] :(3) " EMPLOYEE'S NAME IS ";X$(I,0) " ":"IS THIS THE EMPLOYEE YOU ARE LOOKING FOR";Q$ (Q$,1)"Y"7200 5115! "ANOTHER SEQUENCE NUMBER ";Q$Z$(4)));Z$(4);9(Z$(5)));Z$(5);9(Z$(6)));Z$(6);9(Z$(7)));Z$(7)M0SX:(10): SEARCHES FOR EMPLOYEES USING SEQUENCE NUMBERb"EMPLOYEE PAYROLL FILE TITLE ";I$l1600% v"THIS PROGRAM SEARCHES FOR EMPLOYEES US C U""WEEKS TOTAL ";11(W$(1)));W$(1);10(W$(2)));W$(2);9(W$(3)));W$(3);10(W$(4)));W$(4);9(W$(5)));W$(5);9(W$(6)));W$(6);9(W$(7)));W$(7)F"YEAR TO DATE ";11(Z$(1)));Z$(1);10(Z$(2)));Z$(2);9(Z$(3)));Z$(3);10(W$(M))(X$(I,M3)).001):L(W$(M)):W$(M)(W$(M),L1):MM17:Z$(M)((Z$(M))(X$(I,M11)).001):L(Z$(M)):Z$(M)(Z$(M),L1):MI" GRAND TOTALS FOR ";I$;" PAYROLL" (16):"PAY ROLL FICA SDI FED WH ST WH IN8(X$(I,10)));X$(I,10)x(12):"TOTALS";12(X$(I,12)));X$(I,12);8(X$(I,13)));X$(I,13);7(X$(I,14)));X$(I,14);9(X$(I,15)));X$(I,15);8(X$(I,16)));X$(I,16);6(X$(I,17)));X$(I,17);8(X$(I,18)));X$(I,18)" ":M17:W$(M)(("(9);"80N"I1Q9X$(I,0);:(20):X$(I,1)15(X$(I,2)));X$(I,2);4(X$(I,3)));X$(I,3);10(X$(I,4)));X$(I,4);8(X$(I,5)));X$(I,5);7(X$(I,6)));X$(I,6);9(X$(I,7)));X$(I,7);8(X$(I,8)));X$(I,8);6(X$(I,9)));X$(I,9);PLOYEE PAYROLLFILEGz"EMPLOYEE PAYROLL FILE TITLE ";I$Q1600" ":1:"EMPLOYEE PAYROLL FILE TITLE..";I$:" ""EMPLOYEE'S NAME SOCIAL SECURITY"" RATE HRS PAY FICA SDI FED WH ST WH INS CU OPTIONS PRESS RETURN KEY";Q$:'N3T O$(0)" EMPLOYEE FILE CONTROL OPTIONS"rO$(1)" DELETE EMPLOYEE"O$(2)" CHANGE EMPLOYEE'S RECORD"(O$(3)" EXIT DONT CHANGE FILE"210007:K3080,4050,5180<p:(10): PRINTS EM(J20)J2005100s"IF THE NAME NEEDED IS IN THE LIST ABOVE TYPE IN ITS NUMBER IF NOT PRESS RETURN ";Q$Q$""5110J"TYPE IN EMPLOYEE'S NUMBER ";Q$:I(Q$)I(Q$)"YOU HAVE FOUND THE NAME NEEDED YOU HAVE THE FOLLOWING?:(10): SEARCHES FOR EMPLOYEE IN EMPLOYEE PAYROLL FILEt"EMPLOYEE PAYROLL FILE TITLE ";I$~1600"THIS PROGRAM SEARCHES OUT EMPLOYEES IN EMPLOYEE PAYROLL FILE PRESS RETURN TO CONTINUE";Q$J1QJ;" ";X$(J,0)