' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 7777777 7777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#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 < <݌ < < h < < < <`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L65`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`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- (   Ϡ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # d ֠z# u*`9t,40000,50000:1400N v33000:APP,"WITHHOLDING.SUBR2":40000:DBL,40600,40999 Z2İ33000:APP,"WITHHOLDING.SUBR3":40000:DBL,40600,40999 33000:APP,"WITHHOLDING.SUBR4":40000:DBL,40000,40999:1400 U;!UWIND,0,100:BOX:FBE,F3$,WG,S$:2600CL$:1400pEzWIND:BOX::CO,0,89:"One moment please..."33000:APP,"VIEW TAX TABLES.SUBR":40000:DBL,40000,40999:1400XWIND:BOX::CO,0,89:"One moment please..." l33000:APP,"WITHHOLDING.SUBR":40000:DBL,40600,40999:N0įDBL3000:APP,"VIEW COMPANY TABLES.SUBR":40000:DBL,40000,40999JN05040:CO,0,181:"Do you want these tables printed? ";:30100:Z$"Y"ĺCL$;CA$:CO,0,89:"One moment please...":APP,"PRINT COMPANY TABLES.SUBR":40000:DBL,40000,40999:CL$:1400 ee record? ";:30100:Z$"Y"30000 CL$:14006jCL$;CA$:WIND:CO,0,89:"One moment please..."33000:APP,"PIE.SUBR":40000:DBL,40000,60000:1400VIEW PRL TBLSWIND:BOX::CO,0,89:"One moment please..."<DBL,40000,41000:3 WIND,0,100:BOX:CA$:CO:"The "HS$" contribution"SN$" greater than the employee's earnings after taxes are deducted."::"Please re-enter the data.":SPACE:3025 22000! SPACE:WIND,0,100:CA$:CO:BOX:"Do you want to change another":"employ100:Z$"Y"20001400  : XX(0):800:N01400x WIND,0,10:BOX:200:610:620:630:640:650:660:AL%1 WIND:24000:23000:WN03040 SN$" is":HI0HS$"savings":3030 HS$"health":SA0HS$HS$" and savings":SN$"s are"e deducted."B:"Please re-enter the data.":SPACE:NN1:2010M22000N40ĺ::"You have entered the maximum of 40 employee records.":SPACE:2070 SPACE:WIND,0,100:CA$:CO:BOX:"Do you want to enter another":"employee record? ";:30uctions exceed the employee's earnings.":2035VSN$" is":HI0HS$"savings":2030HS$"health":SA0HS$HS$" and savings":SN$"s are" WIND,0,100:BOX:CA$:CO:"The "HS$" contribution"SN$" greater than the employee's earnings after taxes armber? ";:INP,(1,"-17",1),CH$:CH(CH$)SCH2000,3000,4000,5000,6000,7000,31100YAL%0:NN1:MN:N40N40:WIND:BOX:CO,0,66:2050WIND,0,10:BOX:20024000:23000:WN02040.(HI0)(SA0)įWIND,0,100:BOX:CA$:CO:"The ded3. See an employee's charts"j}" 4. See company payroll chart":" 5. See withholding tax tables"'" 6. ";CA$;:GCP,XX,YY:"Calculate an employee's":CO,XX,YY9:"federal withholding tax":" 7. Return to main menu":VSP,1:CA$:"Which nu ````l8|x0x0x| x0`0````0``0``v0000x000000xx0x0xx0000 0``0 0x`0x |||| ||x|8l````|| x````8p`````lxx|| |xx8x x<`x 0```xxxx| ```0``0`00`x000||0xxx||````` xxxxlxx NOCNGCVSHSCECEPAUSHOOUNHOOSPACCWININj^kkkkkkkkkkm'grmmm$lmm/n`lllll~~~0` pvv0`0``0`000`~<~0000`` 0`xx0p0000xx 8` 8 `ɿɯ,p 詍0SɍpJ,p ,p0p7p) qp7p9p,p0 ,p0LoLo ~pLo ` ֩PyQ AL qppp`iphp Iphpip` ~LSpH)hJJJp` ` @BODFAFPARSNOJUSJUSCN:MA14K214300[CA$:CO,TA(2)8,48:"$":CO,TA(3)8,48:"$":CO,TA(4)8,48:"$"WIND,0,48:CA$:CO:LK1K2:FBE,"##",L,S$:CA$;S$;:L31įFBE,FM$,SR(L),S$:6036FBE,FM$,CR(L),S$26000:SW,S$,W:CA$;:CO,TA(3)W4:S$;S$"":.##",C3,S$:26000:FC$S$:SW,FC$,X1:CA$;:CO,NJX1:FC$MCA$:SPACE:VSPSpsFM$"#,###,###.##":CN(MA)1000FM$"#,###,###"uWIND,0,12:BOX:L312:K11:L31įREST,29200:6010wREST,29300zL04:TA(L)::L08:TA$(L): K2MA,"Hourly","Pay","Health","Ins.","","Savings"K.q52,60,110,164,170,213,270i.q21,53,89,133,181,225,279.r57,109,165,217,279,0,0.ht5,26,15,6,4ȱ^"Any changes? ";:30100:Z$"Y"AL%1:240305- _;-ew-eSS$"":L91(S$):SL$(S$,L9,1):SL$" "SS$SS$SL$-e:S$SS$:-xiWIND:CA$:CO:"P A Y R O L L"CC$;CA$:-Hq6,0,36,68,124,172,224,.zq"Mar.","Stat.","#","Exm.","# Hours","Worked"S$:S3$S2$;:30100:BOX:CO:Z$"Y"24240Z,^EM%(M,0)10HR%EM%(M,0)10EM%(M,3):24300|,^EM%(M,0)O2(EM%(M,3)):24300,^CA$:CO:"T"S$S3$"? ";:30100:Z$"Y"EM%(M,0)O2(EM%(M,3)):24250,^EM%(M,0)10EM%(M,3),^WIND,0,100:BOX:CA$:CO/-A$):SA0SA100ĺ:"Please enter a number from 0 to 100.00.":24210w+^EM%(M,6)100SA:660:WIND,0,100:BOX:CA$:CO+^EM%(M,3)40EM%(M,0)10EM%(M,3):24300+^S$"ime-and-a-half for hours ":S3$"over 40":(AL%(HR%40))(AL%)24240),^S1$"t":"Please enter a number from 0 to 30.00.":24180e*~^EM%(M,5)100HI:650:WIND,0,100:BOX:CA$:CO*^S$"mount for savings ":S3$"plan":AL%ĺS1$"a"S$:S3$S2$;:30100:BOX:CO:Z$"N"24225D+^CA$:CO:"A"S$S3$"? ";:CEL:INP,(6,"-09.",1),SA$:SA(Sfrom 1.00":"to 30.00.":24150Q)`^EM%(M,4)100PA:640:WIND,0,100:BOX:CA$:CO)j^S$"mount for health ":S3$"insurance":AL%ĺS1$"a"S$:S3$S2$;:30100:BOX:CO:Z$"N"242002*t^CA$:CO:"A"S$S3$"? ";:CEL:INP,(5,"-09.",1),HI$:HI(HI$):HI0HI30"Please enter a number from 1 to 80.":24120O(B^630:WIND,0,100:BOX:CA$:CO(L^S$"ourly rate of pay":AL%ĺS1$"h"S$S2$;:30100:BOX:CO:Z$"N"24170)V^CA$:CO:"H"S$"? ";:CEL:INP,(5,"-09.",1),PA$:PA(PA$):PA1PA30ĺ:"Please enter a number enter a number from 0 to 19.":24090-'$^620'.^WIND,0,100:BOX:CA$:CO:S$"eekly hours worked":AL%HR%EM%(M,3):S1$"w"S$S2$;:30100:BOX:CO:Z$"N"24140,(8^CA$:CO:"W"S$"? ";:CEL:INP,(2,"-09",1),HR$:EM%(M,3)(HR$):EM%(M,3)1EM%(M,3)80ĺ: Married.":24040<&]EM%(M,1)0:MS$"M"MS$"m"EM%(M,1)1V&^610:WIND,0,100:BOX&^CA$:CO:S$"umber of exemptions":AL%ĺS1$"n"S$S2$;:30100:Z$"N"24110$'^CA$:CO:"N"S$"? ";:CEL:INP,(2,"-09",1),XM$:EM%(M,2)(XM$):EM%(M,2)19ĺ:"Please IND,0,100:BOX:CA$:CO:S$"Single or Married":AL%ĺS1$S$S2$;:30100:BOX:Z$"N"24080%]WIND,0,100:CO:S$"? ";:CEL:INP,(7,"SINGLEsingleMARDmard",1),MS$:MS$(MS$,1)&]MS$"M"MS$"S"MS$"m"MS$"s"ĺ:"Please enter S for Single or":"M for(TGMI)$[$$[FIR2(WGSR100)~$0\FTR2(FT52):STR2(ST52):HIEM%(M,5)100:SAEM%(M,6)100:WNR2(WGFTSTFISAHI)$]$]$]O2(X)10X5(X40)$]CA$:CO:::"Employee #";M:BOX,0,B16,279,B18,2X%]S1$"Change ":S2$" (Y/N)? ":W(L,0)FM%(L,0)0L11FTFT(FM%(L,0)MI)FM%(L,1)100:MIFM%(L,0):LL1:23320r#"[FTFT.001FM%(L,1)(TG10MI)x#h[#r[ST0:L0:MI0:TGAGEM%(M,2)SE#|[TGS1(L)S1(L)0L13STST(S1(L)MI)S2%(L)1000:MIS1(L):LL1:23420$[STST.001S2%(L)52WG:TGAGEM%(M,2)FE:TG0TG09"FZEM%(M,1)123300?"ZQ"ZFT0:L0:MI0"ZTG10FS%(L,0)FS%(L,0)0L11FTFT(FS%(L,0)MI)FS%(L,1)100:MIFS%(L,0):LL1:23220"ZFTFT.001FS%(L,1)(TG10MI):23400"["[FT0:L0:MI0O#[TG10FM%0:WG$S$:SW,WG$,X1:FBE,F3$,WN,S$:26000:WN$S$:SW,WN$,X2x!VCA$:CO,0,110:"Gross earnings:";CA$;:CO,180X1:WG$:!VCO,13:"Net Earnings:";CA$;:CO,180X2:WN$!Y!Y!ZR2(X)(100X.5)100#"<ȥ?< <<= H <=I<愐<脮`TUVբ .6,0,47,87,107,135,207v'Fs"","Amount","Int.","Rate","","Yr.","Com.","Per.","Simple", "Interest","Compound","Interest"'Ps"3 months","1 year","2 years","5 years","10 years" uP&q"","Amount","Interest","Rate","","Yr.","Compd.","Period","Final", "Balance"&r4,0,16,100,184,"2","","","Simple","","Yr","Principal","Interest","New Balance"&tr4,0,16,100,184,"2","","","Compound","","Yr","Principal","Interest","New Balance"'?@  @A:<  h|qe>>?@ޮ   L9 ޤ>?L { lݭ {ݭ w  ߍ lݭ  {` | LLnr { ^_ ( { R v&'&Ȅ`,&@ȱ@Ȍ>? g >`LHh`<=< Dﭲꉭ뉭 扑 ) 8`DEDB` { ' g R$%  g R&' v$` u[>?@ABCDE { 媤^_ t  %)`L % g % g0ޢ %ܦH)?hJ g % g ?L~$6h7h6`ɍɌ ͳ ` $`Hnu)hHnɍ Mh`&7  ,s5S,sNv w9xI7wUxVy߭ uM`o`o6L6H7H67,0 ɍ L$H8$$   @ $hi AL$TUVWXY .Z[\ ATUV`Uz_j`S縎X]`?<>?>,>$f<<` ߅$0  c`LvSo wt$H)uh0,v0RL6eposit Summary"::H-PBE);"Interest Rate";EQ);"=";ED(RA$));RA$:t-PBE);"Time";EQ);"=";ED(TM$));TM$:-PBE);"Compounded";EQ);"=";ED(PD$));PD$:-PMD%ĺBE);"Amount/Deposit";:20656-PBE);"Principal";.PEQ);"=";ED(DE$));I$(H$,((I$)(S$)))(I$,(S$))d,NFBE,FM$,NB(YR%),S$:26000:N$(H$,((N$)(S$)))(N$,(S$)),NH);YR$;T1);P$;T2);I$;T3);N$,O,xPBE11H:EQ27H:ED43H::::,{PMD%ĺ15H);"Monthly Deposits Summary":::20610-~P16H);"Single D;" --------";T3);" -----------":D+NL1YR%:FBE,"##",L,YR$~+NFBE,FM$,PN(L),P$:FBE,FM$,YN(L),I$:FBE,FM$,NB(L),N$+NL120220+NFBE,FM$,PN(YR%),S$:26000:H$" $":P$(H$,((P$)(S$)))(P$,(S$))",NFBE,FM$,YN(YR%),S$:26000:"--";T1);" ---------";T2);" --------";T3);" -----------":P*fN20200q*N:19H);"Monthly Deposits"*N::T1);" Yearly":H);"Yr";T1);" Deposit";T2);" Interest";T3);" New Balance"'+NH);"--";T1);" -------";T2)4)*NCL$:CO,0,89:"Printing the tables...":UNHOOKw)4NH12:PACT:N26YR%:T17H:T224H:T341H:FM$"##,###,###.##")>NMD%20100)HN:20H);"Single Deposit")RN::H);"Yr";T1);" Principal";T2);" Interest";T3);" New Balance"E*\NH);want these tables printed? ";:30100:Z$"Y"İ20000=( 2010H( 31100h(54915:T0:ZD1:WP0:33000(RNH,"CERTIFICATE":(X54915:T0:ZD1:WP0:33000(bRNH,"SIMPLE VS":( N)%NCL$:CO,0,89:"Please prepare your printer.":SPACE::(12)"$$,$$$,$$$.##",IT,S$:26000:IT$S$:SW,IT$,X1::"Total Interest";CA$;:CO,EQ:"=";CA$;:CO,RJX1:IT$' FBE,"$$,$$$,$$$.##",BA,S$:26000:FB$S$:SW,FB$,X1:::"Final Balance";CA$;:CO,EQ:"=";CA$;:CO,RJX1:FB$;CA$3( WIND:CA$:CO,0,170:"Do you "Monthly"#& CP3PD$"Quarterly"g& SW,PD$,X1::"Compounded";CA$;:CO,EQ:"=";CA$;:CO,RJX1:PD$& :FBE,"$$$,$$$.##",DE,S$:26000:SW,S$,X1:DE$S$:MD%ĺ"Amount/Deposit";:2969& "Principal";& CA$;:CO,EQ:"=";CA$;:CO,RJX1:S$g' FBE,q%| FBE,"##.##",RA100,S$:26000:S$S$"%":SW,S$,X1:"Interest Rate";CA$;:CO,EQ:"=";CA$;:CO,RJX1:S$:RA$S$% :"Time";CA$;:CO,EQ:"=";CA$;:S$(YR%)" year":YR%1S$S$"s"% SW,S$,X1:CO,RJX1:S$:TM$S$% CP1PD$"Daily" & CP2PD$,S$:26000:SW,S$,W:CA$;:CO,277W:S$:k$, SPACE:WIND,0,20:BOX:CO:LYR%KL:K1YR%:ENYR%L1:2830q$T $^ XX(0):EQ136:RJ244:WIND,26,40,279,191:CA$:CO$h 6:X18:Y30:X,Y270X,Y270X,191YX,191YX,Y1270X,Y1:X,192Y270X,192YD,0,PX:CA$:CO:CO,TA(2)8,PX:"$":CO,TA(3)8,PX:"$":CO,TA(4)8,PX:"$":COo# LKK1:FBE,"##",L,S$:S$;# FBE,FM$,PN(L),S$:26000:SW,S$,W:CA$;:CO,TA(3)W4:S$;# FBE,FM$,YN(L),S$:26000:SW,S$,W:CA$;:CO,TA(4)W4:S$;)$" FBE,FM$,NB(L)MD%įREST,29200:L04:TA(L)::L04:TA$(L)::2810g" REST,29300:L04:TA(L)::L08:TA$(L):" XX(0):K1YR%:YR%14K114" ENK1:MD%İ400" FM$"#,###,###.##":K1:YN(YR%)1000FM$"#,###,###"" 300:XX(0)O# PX47(9MD%):WINthod (D, M, or Q)":"earns the most interest? ";:INP,(1,"DMQdmq",1),I$! BOX:CO:I$"D"I$"d"ĺ"Not in this case! ";:2790! FE$((4(4)));" ";! "DAILY compounding earns the most interest.":SPACE! WIND,0,18:BOX:CA$;:CO! 6" ƪ :"Did you select the compounding method that earns the most interest? ";:30100:BOX:CO:Z$"Y"CP1ĺFE$((4(4)));" ";:2790 Z$"N"CP1ĺFE$((4));" Look at the bar graph.":2760 "Look at the bar graph again."G! "Which compounding me,S$:26000:S$;" by depositing ";:FBE,"$$,$$$,$$$",DE,S$:26000:S$;:MD%ĺ" monthly";~ " for ";YR%;" year";:YR%1ĺ"s"; " at ";:FBE,"##.##",RA100,S$:26000:S$;"%, compounded ";:CP1ĺ"DAILY." CP2ĺ"MONTHLY." CP3ĺ"QUARTERLY." 12,YY15:152,YY9152,YY15:NR1FM$(FM$,10) CA$;:CO,0,YY17:FBE,FM$,SI,S$:26000:S$;CA$;:FBE,FM$,BI,S$:26000:WIND,100,YY17,204,YY30:CA$;:CO:S$;CC$;CA$;:WIND:CA$:VSP,1 W WIND,0,93:CO:"You earned ";:FBE,"$$,$$$,$$$.##",ITually"CA$;:CO,XX:" (2 times/year)""" 3. Quarterly"CA$;:CO,XX:" (4 times/year)":" 4. Monthly"CA$;:CO,XX:"(12 times/year)""18:"Which number? ";:INP,(1,"-14",1),A$:P(A$)#NUMPER(P1.3)(6(P4)):10:" ":CEW:ZN2:320:CA$;NUMPETE1RTE20Ģ13:"Please enter a number from 1.00 to 20.00.":1220!10:" ":CEW:ZN1:320:ZF$"##.## %":ZF$(ZF$,(((RTE)))5):ZNRTE:430:WIND:CO$"11:"You can make payments:"::" 1. Annually"CA$;:CO,XX:" (1 time/year)":" 2. Semi-annal amount? $";:INP,(6,"-09",1),A$:PR(A$):PR50PR100000Ģ13:"Please enter a number from 50 to 100000.":1200 10:" ":CEW:ZN0:320:ZF9:ZNPR:ZH$CC$:220:430:WIND:COB!11:"The interest rate? ";CA$;:CEL:INP,(5,"-09.",1),A$:RTE(A$):RsA$"Principal amount =":SW,A$,X:CO,145X,108:A$CA$;:ZF11:ZNPR:225:FBE,ZF$,ZN,A$:SW,A$,X:CO,250X:A$:A$"Total interest paid =":SW,A$,X:CO,145X:A$CA$;:ZF11:ZNIM:225:FBE,ZF$,ZN,A$:SW,A$,X:CO,250X:A$1330r 11:"Princip:YEARS1YEARS30Ģ13:"Please enter a number from 1 to 30.":1140x~10:" ":CEW:ZN3:320:CA$;YEARS;CC$:WIND:CO CALCULATE PRINCIPAL,PAYMENT,INTERESTPYNUMPERYEARS:IRRTE(NUMPER100):PRPAY(1((1IR)(PY)))IR:PMPAY:IM(PYPAY)PR":" 4. Monthly"CA$;:CO,XX:"(12 times/year)"g`18:"Which number? ";:INP,(1,"-14",1),A$:P(A$)jNUMPER(P1.3)(6(P4)):10:" ":CEW:ZN2:320:CA$;NUMPER;CC$:WIND:COCt11:"Years to pay back the loan? ";:INP,(2,"-09",1),A$:YEARS(A$)1:320:ZF$"##.## %":ZF$(ZF$,(((RTE)))5):ZNRTE:430:WIND:COV11:"You can make payments:"::" 1. Annually"CA$;:CO,XX:" (1 time/year)":" 2. Semi-annually"CA$;:CO,XX:" (2 times/year)"0[" 3. Quarterly"CA$;:CO,XX:" (4 times/year)er from 2 to 1600.":1070]810:" ":CEW:ZN0:320:ZF9:ZNPAY:ZH$CC$:220:430:WIND:COB11:"The interest rate? ";CA$;:CEL:INP,(5,"-09.",1),A$:RTE(A$):RTE1RTE20Ģ13:"Please enter a number from 1.00 to 20.00.":1090DL10:" ":CEW:ZN":Z2$"Rate":320:Z1$"Payments":Z2$"Per Year":320:Z1$"":Z2$"Years":320BOX,0,BY15,278,BY17,6:WIND:CO:Z1$"":Z2$""$MENU11200.11:"Payment amount? $";:INP,(4,"-09",1),A$:PAY(A$):PAY2PAY1600Ģ13:"Please enter a numb,BY1279,BY1 W(0,0)0:W(0,1)93:W(1,0)97:W(1,1)155:W(2,0)158:W(2,1)219:W(3,0)223:W(3,1)279:A02:W(A,1),TYW(A,1),BY:TYTY2:WYTY1:BYBY2:MENU1Z1$"":Z2$"Principal":1045Z1$"Payment":Z2$"Amount"LZN0:320:Z1$"Interest1,"-13",1),A$:A(A$)"HMENUA:TDUN,"INSTALLMENT LOANS.PCK":CA$:SPACE:710810:CL$:A$"Payment":MENU2A$"Principal"MENU331105TY25:BYTY37:JUST:CP$;CA$;A$" Calculation";CC$:5:0,TY279,TY:0,TY1279,TY1:0,BY279,BY:0n table.":SPACE:=*JUST:CL$;CA$;"INSTALLMENT LOANS";CC$45:"You can choose:":::" 1. Calculate payment amount"::" 2. Calculate principal amount"::" 3. Return to main menu":::GCP,A,IY>CA$;:CO,0,IY:1:"Which number? ";:INP,(184,"1","Yr","Principal","Interest","New Balance"1tr4,0,16,100,184,"2","","Yearly","","","Yr","Deposit","Interest","New Balance"SL$" "SS$SL$SS$:27030)0iSS$SS$SL$80i:S$SS$:0Hq"That's correct! ","That's right! ","Good answer! ","Good choice! "0q5, 0, 53, 117, 143, 1930q"","Amount","Interest","Rate","","Yr.","Compd.","Period","Final", "Balance"11r4,0,16,100,SINR2)NR)NR:S2SIS2S2NRJ/aB2((BINR2)NR)NR:B2BIB2B2NRn/aR2(B2S2).25NRNR5:25030/aSIS2:BIB2:/e/eSS$"":L91(S$):SL$(S$,L9,1):SL$" "SS$SS$SL$/e:S$SS$:/xi0iSS$"":L91(S$):SL$(S$,L9,1):SDE$:;.PBE);"Total Interest";EQ);"=";ED(IT$));IT$:r.P:BE);"Final Balance";EQ);"=";ED(FB$));FB$:.RLN64:::POFF:HOOK:.a.aR2BISI:R32R2:R20R2.01:R3.02:NR.01:25020.aNR510((R3)(10)).aSISIR2 /aS2((t Paid =";:ZNPRIM:225:FBE,ZF$,ZN,A$:A$:CL$:HOOK:CL$:1331G2M2ub2uCA$;:GCP,ZX,ZY2uCO,ZX,ZY:CEL:INP,(3,"YESNOyesno",1),Z$:Z(Z$):Z$(Z32(Z96)):Z$"Y"Z$"N"301202u2y 3"yWIND:CO$(15):CL$;CO$:CO,0,89:"Do you wanF$" ## ":FBE,ZF$,NUMPER,A$:A$::LM)"Payment Amount =";:ZNPM:225:FBE,ZF$,ZN,A$:A$1:::LM)"Principal Amount =";:ZNPR:225:FBE,ZF$,ZN,A$:A$::LM)"Interest Paid =";:ZNIM:225:FBE,ZF$,ZN,A$:A$A2&:LM)"Total Amounary"0LM23:ZF15:::LM)"Interest Rate =";:ZF$" ##.## %":FBE,ZF$,RTE,A$:A$::LM)"Time =";:A$" ## ":B$"":C$"years":YEARS1B$" ":C$"year"0 A$B$A$C$:FBE,A$,YEARS,A$:A$h1:LM)"Payments per Year =";:Z$" ";:ZF11:ZNIT:225:FBE,ZF$,ZN,A$:A$" ";/ZF11:ZNPP:225:FBE,ZF$,ZN,A$:A$" ";:ZF11:ZNBA:225:FBE,ZF$,ZN,A$:A$/IIBA:BA0OAPY/CT52(CT52)CT0:A18:::450/:LR52CT:LR24āA1LR2::0A13:::38)"Summg the tables...":UNHOOK:PACT.32)"Amortization Table":::A$"Payment is constant at: ":ZF15:ZNPM:220:FBE,ZF$,ZN,B$:TL$A$B$:TT21(A$)2:450.CT3:BA0:IT0:PP0:IAPM:IIPR:OA1PY:CTCT1:16101/ZF$"###":ZNOA:FBE,ZF$,OA,A$:17)A20:FBE,ZF$,ZN,A$:SW,A$,X:CO,RMX:A$:1330L-JOA1(BAIIIR)(IA)1630y-TIABAIIIR:ITIABA:PPIAIT:BA0:1640-^ITIIIR:PPIAIT:BAIIPP-hBA1BA0-r.CL$:CO,0,89:"Please prepare your printer...":SPACE:CL$:CO,0,89:"PrintinARS1A$A$"s",SW,A$,X:CO,RMX:A$::A$(NUMPER):SW,A$,X:CO,RMX:A$::ZF20:ZNPM:220:FBE,ZF$,ZN,A$:SW,A$,X:CO,RMX:A$:::--ZNPR:220:FBE,ZF$,ZN,A$:SW,A$,X:CO,RMX:A$::ZNIM:220:FBE,ZF$,ZN,A$:SW,A$,X:CO,RMX:A$::ZNPRIM:2" Interest Paid"::" Total Amount Paid"f+3::A14:CA$;"=";CC$:::::A13:CA$"="CC$::+5:7,19273,19273,1717,1717,20273,20273,1727,172,RM264:3::ZF$"##.## %":FBE,ZF$,RTE,A$:SW,A$,X:CO,RMX:A$::A$(YEARS)" year":YE0:(16384)13OA99999^*(OA12)(OA12)(OAPY)āA03:BOX,W(A,0),55,W(A,1)4,162,4:s*CO,0,170:CEL:*CL$CA$"Summary"CC$++::" Interest Rate"::" Time"::" Payments per Year"::" Payment Amount"::::" Principal Amount"::A$,X:CO,W(1,1)X5,LY:A$)ZF11:ZNPP:220:FBE,ZF$,ZN,A$:SW,A$,X:CO,W(2,1)X5,LY:A$:ZF11:ZNBA:220:FBE,ZF$,ZN,A$:SW,A$,X:CO,W(3,1)X4,LY:A$)IIBA:BA0OAPY)OAPYPR$""*OA12(OA12)(OAPY)įCO,0,170:CA$PR$CC$:SPACE:CT320:Z1$"Principal":320:Z1$"Balance":Z2$"Due":320:WIND:CO:JUST(PR$"Press RETURN to exit table.":CT0:ZH$"":BA0:IT0:PP0:IAPM:IIPR:OA1PY:CTCT1:1610)LY2(CT5)9:CO,0,LY:ZF$"####":ZNOA:430:ZF11:ZNIT:220:FBE,ZF$,ZN,A$:SW,279,TY:0,TY1279,TY1:ABYBY4:0,A279,A:'xW(0,0)0:W(0,1)30:W(1,0)33:W(1,1)114:W(2,0)117:W(2,1)198:W(3,0)201:W(3,1)279:A02:W(A,1)1,TYW(A,1)1,162:F(TYTY2:WYTY1:BYBY1:Z1$"Pay":Z2$"No.":ZN0:320:Z1$"Interest":Z2$"Paid"::"Which number? ";:INP,(1,"-14",1),A$:CHOICE(A$)G&FCHOICE41020`&PCHOICE1İ120:1330w&ZCHOICE3PF%1710&dZNPM:220:FBE,ZF$,ZN,PM$:CL$:CO,0,0:"Amortization Table";CC$::"Payment is constant at: ";PM$;CC$0'nTY30:BYTY20:5:0,TYX:A$%2SPACE:CL$=%3A$"Payment":MENU2A$"Principal"%7A$;CC$:5:"You can choose:":::" 1. Principal/Interest chart"::" 2. View amortization table"::" 3. Print amortization table"::" 4. Return to INSTALLMENT LOANS menu"4&<17R(1((1IR)(PY))):IM(PYPM)PR$A$"Payment amount =":SW,A$,X:CO,145X,108:A$CA$;:ZF11:ZNPM:225:FBE,ZF$,ZN,A$:SW,A$,X:CO,250X:A$:%(A$"Total interest paid =":SW,A$,X:CO,145X:A$CA$;:ZF11:ZNIM:225:FBE,ZF$,ZN,A$:SW,A$,X:CO,250R;CC$:WIND:CO#11:"Years to pay back the loan? ";:INP,(2,"-09",1),A$:YEARS(A$):YEARS1YEARS30Ģ13:"Please enter a number from 1 to 30.":1280# 10:" ":CEW:ZN3:320:CA$;YEARS;CC$:WIND:CO"$PYNUMPERYEARS:IRRTE(NUMPER100):PMPRI":900:6000"800:6000""p X"zCO$;CL$;CA$:CO:"Management Options"CC$;CA$::""You may choose:"::CA$:GCP,XX,YY:CO,XX,YY3:" 1. Federal single tax table"::" 2. Federal married tax table"::" 3. State tax table":#" 4. F.46206! BOX,0,179,279,191,0:AFT,2,0:FL%0SEEM:B!*FEEM:!CO,0,148:CEW:CO,0,155:"Do you have more changes? ";CC$;:30100:Z$"Y"6030 "CL$:CO,0,89:"Do you want to save your changes? ";:30100:Z$"Y"ĺCL$:CO,0,89:"Saving changes... CO,0,149(5(FL%0)):MM$;:INP,(4,"-09",0),EM$:EM$""įBOX,LE,TY,RE,BY,8:4640 EM(EM$):EM0EM300000įCO,170:"Please enter a number from 0 to 300000.":4620!AFT,0,2:BOX,LE,TY,RE,BY,0:CO,LE1,TY1:EM;".00":BOX,LE,TY,RE,BY,8:AFT,2,0:AA(SM$):AA0AA300000įCO,0,180:"Please enter a number from 0 to 300000.":4550wSMAA:RF1:6400:RF0:4540}XX$((EM))".00":SW,XX$,LE:LEEELE:SW,"8888.00",RE:RERELE:TYEY1:BYEY5:BOX,LE,TY,RE,BY,8:FL%1:EMSEFL%0TZAA(SR$):AA.01AA99.99įCO,0,180:"Please enter a number from .01 to 99.99.":4515BOX,0,179,279,191,0:SRAA:RF1:6400:RF0:4510BOX,0,179,279,191,0:BOX,249XM,MY2,251,MY8,8CO,0,160:MM$;CA$;:INP,(6,"-09",0),SM$:SM$""4580W1P%(2):T2P%(5):NF$FM$:PF$F2$" %":L144:SW,PF$,L2:L2L25:BOX,T2L2,VT1,T2,VT5,8:4120mEDIT FICABOX,249XR,FY2,251,FY8,8CO,0,160:MM$;CA$;:GCP,XX,YY:INP,(5,"-09.",0),SR$:SR$""įBOX,249XR,FY2,251,FY8,8:CO,XX,YY:CEL:45405,8:ET1:TP%TP%1:VTVT8:BOX,T2L2,VT1,T2,VT5,8:4120@@JIV(IV$):IV99.9įCO,0,175:"Please enter a number from 0 to 99.9.":4120^TCO,0,154:CEW:S2%(TP%)IV10:AFT,0,2:" ";:BOX,T2L213,ST3,T2,191,0:CO,0,ST:RF%1:FL%0:6315:RF%0:TIV:AFT,0,2:" ";:BOX,T1L1,VT1,T1,VT5,0:CO,0,ST:RF%1:FL%0:6315:RF%0:4020CO,0,154:MM$;:INP,(4,"-09.",0),IV$:CO,0,175:CEW"IV$""4170,TP%10įBOX,T2L2,VT1,T2,VT5,8:ETTP%TP%1:VTVT8:4030:6ETįBOX,T2L2,VT1,T2,VTV$):MIN1:MAX300000:TP%0MINS1(TP%1)1?MAXS1(TP%1)1VMAX0MAX300000IV300000IV0:ATP%19:S1(A)0:S2%(A)0::IV0:4110IVMINIVMAXįCO,0,175:"Please enter a number from "MIN" to "MAX".":4040RCO,0,154:CEW:S1(TP%)DT1P%(2):T2P%(5):NF$FM$:PF$F2$" %":L144:SW,PF$,L2:L2L25wBOX,T1L1,VT1,T1,VT5,8:ET0:S1(TP%)0ET1CO,0,154:MM$;:INP,(6,"-09",0),IV$:CO,0,175:CEWIV$""įBOX,T1L1,VT1,T1,VT5,8:BOX,T2L2,VT1,T2,VT5,8:4120+IV(Iber from 0 to 99.9.":3120l CO,0,149:CEW:FM%(TP%,1)IV10:AFT,0,2:" ";:BOX,T2L213,ST3,T2,191,0:CO,0,ST:RF%1:FL%0:6215:RF%0:T1P%(2):T2P%(5):NF$FM$:PF$F2$" %":L144:SW,PF$,L2:L2L25:BOX,T2L2,VT1,T2,VT5,8:3120TP%0:STVT,(4,"-09.",0),IV$:CEW(: IV$""3170jD TP%8įBOX,T2L2,VT1,T2,VT5,8:ETTP%TP%1:VTVT8:3030N ETįBOX,T2L2,VT1,T2,VT5,8:ET1:TP%TP%1:VTVT8:BOX,T2L2,VT1,T2,VT5,8:3120X b IV(IV$):IV99.9įCO,0,170:"Please enter a numZN$ZN$((ZSZ)):ZZ1:33220-6΁ZT(ZS)36D0:(ZT0)(QN$ZN$)ZU0:`5CL$:CO,0,89:"Please insert your "QN$" diskette.":SPACE:33010f5L5VD1$",S"((953))",D"((954))",V"((955))5`D2$",S"((956))",D"((957))",V"((958))555ZN$"":Z1 6ā(ZSZ)0Z36 4n}ZE255Ĵ(919)031000:4x}WIND:CL$CO$:CO,0,80:"Error "ZE" at line #"ZN" in SAVINGS INTEREST."::"Please report this error to MECC.":SPACE:310004耲4ZU1:SET,1:ZS654:QN$"Business Utilities"5ZE0:ZEįRFL,"MECC$$DISK"ZS:3320t to try again? ";:30100:31110&3|y13yZ$"E"[3y54915:T0:ZD1:WP0:33000:Z$"Y"Ĭ3yCL$:CO,0,89:Z$"E"ĺ"Getting the "QN$" menu..."3yRNH,"MENU"3}3 }POFF:HOOK:ZE(222):ZN(218)(219)256:216,0:320003}ZUZE0ZE16Ħ4d},T1,T1$:FBE,F1$,T2,T2$:FBE,F1$,R3,T3$:FBE,F$,T4,T4$Q2zT40T4$(S$,(T4$))214)T1$" - "T2$" "T3$" "T4$" ";2(F$F2$));T1$2R3T3:LPT4:LET2:LAT3:2::::F$"##.## %":FBE,F$,SR,SR$:FBE,F1$,SM,SM$3(SM$,1)" "SM$":::::7030114A010:FM%(A,0)0ETA:A99G1>:N9N9ET:F$F2$v1HA010:PFM%(A,1)10:P(P)F$F3$:A99|1R1\LA0:LE0:LP0:R30:A0ET:T1LE:T210FM%(A,0):T4FM%(A,1)10:T3LA(T4100)(T2T1):T20T2.011fT30T3062pFBE,F1$.010T30T30V0FBE,F1$,T1,T1$:FBE,F1$,T2,T2$:FBE,F1$,R3,T3$:FBE,F$,T4,T4$q0 T40T4$(S$,(T4$))014)T1$" - "T2$" "T3$" "T4$" ";2(F$F2$));T1$0 R3T3:LPT4:LET2:LAT3:1*TITLE$"Federal Married Withholding Table7030'/A010:FS%(A,0)0ETA:A99g/:N9N9ET:F1$"###,###":F2$"+ ## %":F3$"+ ##.# %":F$F2$/A010:PFS%(A,1)10:P(P)F$F3$:A99/0LA0:LE0:LP0:R30:A0ET:T1LE:T210FS%(A,0):T4FS%(A,1)10:T3LA(T4100)(T2T1):T20T2ome tax of amt."_.12)" than: than: witheld is: over:".12)" ----- ----- ----------- -----"..TYPE$"Federal":TITLE$"Federal Single Withholding Table":WAFE/PACT::::OOK:6000-X&-bS$" ":N9340-l7090-v40(TITLE$)2)TITLE$:36)"(Annual)"::A$TYPE$" exemption amount: "(WA)".00":40(A$)2)A$:-12)" if wage is The amt. of".12)" more but less incemployer also contributes to Social Security by matching the amount withheld from your wage."i,2RF1ıs,<4500},c5000,dCL$:CO,0,89:"Please prepare your printer.":SPACE::(12),nCL$:CO,0,89:"Printing the tables...":UNHOOK:7000 -xH0XR:SR$;CA$+:CO,26:"Social Security Maximum: ";CA$;:GCP,MX,MY:FBE,FM$,SM,S$:26000:S$"$"S$:SW,S$,XM:CO,250XM:S$;CA$+:::"This means that ";SR$;" of every dollar you earn, up to ";S$;", is deducted for Social Security.":],("Your *CA$;:CEW:AFT,2,0:VSP6*RF%0İ4610:4010C*RF%1ıM*5000S**CL$:YY10:1:11,YY269,YY269,YY4011,YY4011,YY + CO:::CO,48:"Social Security Rate: ";CA$;:GCP,FX,FY:FBE,"##.##",SR,S$:26000:SR$S$"%":SW,SR$,XR:CO,25,XX,YY3:VTYY3F)VSP,3:T10:L010:S2%(L)10(S2%(L)10)T11l):T10F2$"##":P%(5)QY6:6320)F2$"##.#":P%(5)QY)T0:T1S1(0):T20:T3S2%(0)10:T$"0":X7:100:T106345)L113:T1S1(L):T3S2%(L)10:FL%İ100:T10FL%1*:VSP(jRF%0İ4610:3010)(tRF%1ı3(50009(Z(RF%0:XX(0):AFT,0,2:FL%0(CL$;CA$;:CO:"State Withholding Tax Table";CC$:"(Annual)";CC$::"State Exemption Amount: ";(SE);".00";CC$;CA$;:GCP,EE,EY::EMSE)400::GCP,XX,YY:COL,1)10(FM%(L,1)10)T11B'H:T10F2$"##":P%(5)QY6:6220Z'IF2$"##.#":P%(5)QY'LT0:T1FM%(0,0)10:T20:T3FM%(0,1)10:T$"0":X7:100:T106245'VL110:T1FM%(L,0)10:T3FM%(L,1)10:FL%İ100:T10FL%1'`(eCA$;:CEW:AFT,2,075000 &8.&9RF%0:XX(0):AFT,0,2:FL%0&=CL$;CA$;:CO:"Married Federal Withholding Tax Table";CC$:"(Annual)";CC$::"Federal Exemption Amount: ";(FE);".00";CC$;CA$;:GCP,EE,EY:::EMFE&B:400:::GCP,HT,VT'GVSP,3:T10:L010:FM%(6120%F2$"##.#":P%(5)QY.%L0VTP%(5)t%T0:T1FS%(0,0)10:T20:T3FS%(0,1)10:T$"0":X7:100:T106145%L110:T1FS%(L,0)10:T3FS%(L,1)10:FL%İ100:T10FL%1%%CA$;:CEW:AFT,2,0:VSP%RF%0İ4610:2010%RF%1ı&CO:"Single Federal Withholding Tax Table";CC$:"(Annual)";CC$::"Federal Exemption Amount: ";(FE);".00";CC$;CA$;:GCP,EE,EY:::EMFE$:400:::GCP,HT,VT$VSP,3:T10:L010:FS%(L,1)10(FS%(L,1)10)T11%:T10F2$"##":P%(5)QY6:I.C.A. withholding rate"::" 5. Print tax tables"::" 6. Return to main menu"::CA$:GCP,XX,YY:CO,XX,YY3:"Which number? ";:INP,(1,"-16",1),CH$:CH(CH$)#CH6100,6200,6300,6400,6500,31100##XX(0):AFT,0,2:FL%0:RF%0$CL$;CA$;:X,192Y264X,192YXSW,RA$,X1:"Interest Rate";CA$;:CO,EQ:"=";CA$;:CO,RJX1:RA$:"Maturity Period";CA$;:CO,EQ:"=";CA$;SW,MP$,X1:CO,RJX1:MP$CP1PE$"Quarterly"CP2PE$"Yearly"SW,PE$,X1::"Compounded";CA$;:CO,ESW,S$,W:CA$;:CO,TA(4)W4:S$;\FBE,FM$,NB(L),S$:26000:SW,S$,W:CA$;:CO,275W:S$:oXX(0):SPACEudnWIND,0,12:BOX:XX(0):EQ154:RJ248:WIND,18,40,279,191:CA$:COx6:X10:Y30:X,Y264X,Y264X,191YX,191YX,Y1264X,Y1:###,###.##":YN(NN)1000FM$"#,###,###"yWIND,0,47:CA$:CO,TA(2)8,47:"$":CO,TA(3)8,47:"$":CO,TA(4)8,47:"$"CA$:CO:L1EN:FBE,"##",L,S$:CA$;S$;:FBE,FM$,PN(L),S$:26000:SW,S$,W:CA$;:CO,TA(3)W4:S$; FBE,FM$,YN(L),S$:26000:$"q"ĺ"Not in this case! ";:5600UREST,29000:XX(4(0)):L0XX:FE$::FE$;" QUARTERLY compounding ":"earns more interest.":SPACEpuWIND,0,12:BOXzREST,29200:L04:TA(L)::L04:TA$(L)::ENMP:MP1EN1)300:FM$"#,XX(4(4)):L0XX:FE$:8Z$"Y"CP1ĺFE$;:5600mZ$"N"CP2ĺFE$;"Look at the bar graph.":5580"Look at the bar graph again."#"Which compounding method (Q or Y)":"earns more interest? ";:INP,(1,"QYqy",1),CH$:BOX:CO:CH$"Q"CH$$$,$$$",DE,S$:26000:S$;:DE$S$REST,29520:L1MA:S$::MP$S$:" for ";MP$;" at ";RA$;", compounded ";:CP1ĺ"QUARTERLY.":5540"YEARLY.":"Did you select the compounding method that earns more interest? ";:30100:BOX:CO:REST,29000:(FM$,8)hCA$:CO,0,YY23:FBE,FM$,SI,S$:26000:S$:FBE,FM$,BI,S$:26000:WIND,100,YY23,204,YY36:CA$:CO:S$;CC$;CA$:WIND|XX(0):WIND,0,87:CO:"You earned ";:FBE,"$$$$,$$$.##",IT,S$:26000:IT$S$:IT$;!" by depositing ";:FBE,"$$,QI,S$:27000:CO,153,YY:CP$;S$:QI$S$JCS2ĺ:"Y";CA$;:GCP,XX,YY:BOX,12,YY,12YF,YY7,1:FBE,FM$,YI,S$:27000:CA$:CO,153,YY:CQ$;S$:YI$S$TCSCS1:CS3CS1^:3:12,YY18152,YY18:12,YY1512,YY21:152,YY15152,YY21:BISI1FM$ is a simulation of the payroll system for a small business. You can enter payroll deduction information for up to 40 employees. A printer can be used to print the payroll tables."%inter can be used to print the interest tables."dÃ"Installment Loans","INSTALLMENT LOANS","This program calculates the payment amount or the principal amount of a loan. A printer can be used to print the loan tables."nÃ"Payroll","PAYROLL","Thisgh making changes, you are asked if you want to save the changes you have made.":SPACE:|8e(S$,1)" "S$(S$,2):260008e8Hq52,60,110,164,170,213,270 WKey.":7a"Continue to press the Return Key until you reach the fields you wish to change. When the cursor reaches the last field on the screen and you press the Return Key, you are given an opportunity to make more changes.":Y8a"When you are throuchanges you make become permanent only if you decide to save them.":SPACE7aCO,0,10:CEW::"After you select a table, the cursor will appear on the first available field in that table. If you do not wish to change this field, simply press the Return T40T4$(S$,(T4$))Y514)T1$" - "T2$" "T3$" "T4$" ";2(F$F2$));T1$w5R3T3:LPT4:LET2:LAT3:5.AN961:::POFF:J6aCO,0,10:CEW:CA$:CO,0,50:"You can update any of the tax tables or the Social Security values."::"Any 4:N910ET:F$F2$C4A013:PS2%(A)10:P(P)F$F3$:A99I44LA0:LE0:LP0:R30:A0ET:T1LE:T2S1(A):T4S2%(A)10:T3LA(T4100)(T2T1):T20T2.014T30T304FBE,F1$,T1,T1$:FBE,F1$,T2,T2$:FBE,F1$,R3,T3$:FBE,F$,T4,T4$5(SM$,2):7312.3(SR$,1)" "SR$(SR$,2)}328)"Social Security Rate = "SR$::25);"Social Security Maximum = $"SM$3AN966::3XX(0):TITLE$"State Tax Withholding Table":TYPE$"State":WASE:::::70304A013:S1(A)0ETA:A99A$;#K:Q$:CTCTL#30uSPACE BAR ROUTINED:u:SPACE::XyENDING ROUTINE"yWIND:CL$:10:"Do you want to try again? ";,y360006yZ$"Y"Ĭ@yCL$:10:"Getting the menu program...":SET,0:RNH,"MENU" STANDARD YES-NO INPUT"":LJR$(S$,LJ)'x#S$L$(X)R$9#LKLJ:9110@#JG#K#XQX:YQY:CO,X,Y:CA$;:0:50,Y1279,Y1:CEL:L(S$):K1L#A((S$,K,1)):PPCTK,A:A32AA64::GCP,X,Y:BOX,X1,Y1,X6,Y7,3:(A);CA$;::CO,X9,Y:9150#(A);CX1,Y1,X9,Y7,0:CEL:L180107S$(S$,L1):8020J(#SCAN FOR CHR$`2#L(S$):L79120<#K1L6:(S$,K,5)"CHR$("9110F#JK6L:(S$,J,1)")"9100P#X$(S$,K5,JK5):X((X$))Z#X0X127X0d#L$"":K1L$(S$,K1)n#R$NP,(0,I$,0),C$:A(C$):A13Ĺ16368,0:<^(A8L0)8010JhA88080^rA34L198020|A32AA64::BOX,X1,Y1,X6,Y7,3:(A);CA$;::P(L1)9:XX9:S$S$C$:8020(A);CA$;:GCP,ZX,ZY:P(L1)ZXX:XZX:S$S$C$:8020 XXP(L):BOX,S$""İ9000:CTCT1:PPCT,13QL2:CTCT1:PPCT,0:PPCT1,255:PPCT2,255HSP,1:17:"Are the above commands correct? ";:36000L1(Z$"Y"):L1@STRING INPUTJS$"":16368,0:XQX:YQY:I$"-"(1)(127)(TL(S$):CO,X,Y:Id","Final", "Balance"M)Ps"3 months","1 year","2 years","5 years","10 years"Aalance"I(r4,0,16,100,184,"1","Yr","Principal","Interest","New Balance"(r4,0,16,100,184,"2","","Yearly","","","Yr","Deposit, $","Interest, $","New Balance,$"("40540lL$(A)""L$(A)"%" (L$(A),1)"%"L$(A)(W%(A))L$(A):40480(L$(A),1)"%"L$(A)(L$(A),(L$(A))1)(W%(A))"%"? SW,L$(A),SW:LX(A)ZX(XRZO)(J57,ZYYR:D90:A1W%(0):I(360(W%(A)100)):JD(I2):D1(D175):SDDDDI:TXZXXR(D57.333):TYZYYR(D57.3333):ZX,ZYTX,TY:ZX1,ZYTX1,TY:D2(D175)Ɲ40180НW%(A)240440ڝFXZX(XR3)(J57.33333):FYZY(YR3)(J57.33333):LYNY6LX,LYNX,NY:LX1,LYNX1,NY:LXNX:LYNY:R18057.33333:NXXR(R)ZX:NYYR(R)ZY:LX,LYNX,NY:LX1,LYNX1,NY:NX,NYZXXR,ZYZT:NX1,NYZXXR1,ZYZT:ZXXR,ZYZTZXXR,ZYZXXR1,ZYZTZXXR1,ZY:ZC:40280EZX,ZYZXY:D0ēNX,NY:FXNX:FYNY:LXNX:LYNYslLX,LYNX,NY:LX1,LYNX1,NY:LXNX:LYNY::LX,LYFX,FY:LX1,LYFX1,FYvZXXR,ZYZXXR,ZYZT:ZXXR1,ZYZXXR1,ZYZT:D01809RD57.33333:NXXR(R)ZX:NYYR(R)ZYZT:D0ēNX,NY:FXNX:FYNY:LXNX999  SD160XF999:1 &SD1040270k 0XFZXXR(SD57.333)1:YFZYYR(SD57.3333)(ZT2) :XF(ZXXR1)XFXF D NXFZXXR(J57.333)1:YF(ZT2)ZYYR(J57.3333): XD03609%bRD57.33333:NXXR(R)ZX:NYYR(R)Z,"Worked Per Week","Overtime Pay","Per Week","X""Regular Pay","Per Week","Overtime Pay","Per Week","Total Pay","Per Week","+"gWith.","Weekly","Fed.","With."w"Regular","Hourly Pay","Regular Hours","Worked Per Week","Total Pay","Per Week","X""Regular","Hourly Pay","Regular Hours","Worked Per Week","Regular Pay","Per Week","X"0"Overtime","Hourly Pay","Overtime Hours"$:26000:BE)"Total Deductions"RJ(S$))S$:h0FBE,F7$,N6,S$:26000:BE)"Net Earnings"RJ(S$))S$:NL0āL1765::?NL0āLNL50::DPOFF:HOOK::Ox"EQ(S$))S$F FBE,F7$,F5,S$:26000:BE2)"F.I.C.A."EQ(S$))S$ FBE,F7$,S5,S$:26000:BE2)"State Tax"EQ(S$))S$ FBE,F7$,H6,S$:26000:BE2)"Health"EQ(S$))S$ FBE,F7$,S6,S$:26000:BE2)"Savings"EQ(S$))S$:.FBE,F7$,D6,SNL2! ǜNL44āLNL67:::NL0? ̜BE21:EQ52:RJ61:::: ֜27)"The following figures are":29)"totals for "N" employee";:N1ĺ"s"; ۜ:::FBE,F7$,G6,S$:26000:BE)"Gross Earnings"RJ(S$))S$ FBE,F7$,F6,S$:26000::BE2)"Federal TaT5)S$;:T61)EM%(M,2);R S$(EM%(M,3)):EM%(M,0)10EM%(M,3)S$"* "S$:XT1 T82(S$))S$;:FBE,FR$,PA,S$:T8)S$;:FBE,FQ$,WG,S$:T9)S$;:FBE,FQ$,WN,S$:T0)S$ XX(0): œNLN16:XT1ĺ:"* Time-and-a-half paid for hours over 40":NLY "--- ------- ------ ------ ------ ------- --- ----- ------ ------- -------": XX(0):XT0:M1N:FBE,"##",M,S$:S$;:23000:FBE,FQ$,FT,S$:T1)S$;:FBE,FR$,FI,S$:T2)S$;:FBE,FR$,ST,S$:T3)S$;:FBE,FR$,HI,S$:T4)S$; FBE,FQ$,SA,S$: Payroll Information" r::"Emp"T1)"Federal"T2)" FICA"T3)"State"T4)"Health"T6)" #"T7)"Hours"T8)"Hourly"T9)" Gross"T0)" Net" |" #"T1)" Tax"T2)" Tax"T3)" Tax"T4)" Ins."T5)" Savings"T6)"Exm"T7)"Wrkd."T8)" Rate"T9)" Pay"T0)" Pay"@ PRINT TABLESWJCL$:CO,0,89:"Please prepare your printer.":SPACE::(12)TCL$:CO,0,89:"Printing the tables...":UNHOOK^PACT:T15:T214:T322:T430:T537:T646:T750:T856:T964:T073:FQ$"####.##":FR$"###.##" h:26)"Employee     (1);:GCP,ZX,ZYZCO,ZX,ZY:INP,(3,"YESNO",1),Z$:Z$(Z$,1):Z$"Y"Z$"N"36020` tCXxEBd ՀPĐsCOLL LLBeꪨSeԁwAjTԀCHBJFsC`A|E`BiSʂಫDCGBJFՁsCGgD`@BgN @AABBABBABBADMABBฬKABBݕЀBEABB 꺮CϲBB ՕGЃBAA~GA~Be 꺮LˆFMA?aoACFMAx| |x||oACBAgoACACA?EoACBACBACBACBACBACBACBAC`[ACA@OAGAP! B[AACASv~ETUCAC[Av~ESqsEoAB[AasC3sc``LCAEoAB[ACP~C~oAB[A~~@SXyBoABTAAABTOLC@pACđՀՑՀđYApxBxpxpl'̳̳YA GOBLOl#ՙՙCYAoCaol!̳̳̳B[AC xp`OA@GA@P!BFNABBCUEBDUGUAu }}]u]}qpDAD̳DUA z>/C* B( DA :o;o;h8h9n;n#BABA"zUAEFH' p }|̣UBđՀUBCUA#``DUUuAAJAACBB H  *+?H*" C* (E*AD*E " (E*DAbB JB hjjAϟB󜎇KWTTLUATPQPTCU10|HUTPACUFALNzBDBS S*B(+**+ K*B*BA B` g``g` B`"" E("**nA B HDOAU}OyUPAADUUoϿB LJBA BB̘G *+? z*B(*C( "("**nBFBA 󳝎E UU_LUCBEA\UBGAEAFQ@A @p 4\p@@MtnCA ;n `8P NAЀЀЀЀBAAB@SUWNUuUu]uUuuUuUUBTBPB@A ((S*+*G* +(*("("(#("H*( ԕ8BxuAAJAAf@PTsUTPQAEDUATEUDUUoABACA朸`(*jjy*A( SPACE:CL$;CA$:o ؟ "Annual Federal","Withholding","Weeks","in a year","Weekly Federal","Withholding",""LY(A)LY(A1))LY(A)LY(A1)8@MA2(LY(A)LY(A1))840530|N(LY(A)LY(A1))(LY(A)LY(A1)9)LY(A)LY(A)1:40526O(LY(A)LY(A1))(LY(A1)LY(A)9)LY(A)LY(A)1:40527RCA$;:CO,TX,LY(A):L$(A)\:m.33333):LY(A)ZY(YRZO)(J57.33333):TXLX(A):TXZXTXTXSWa*(J0)(J180)LY(A)LY(A)ZT}4LY(A)ZYLY(A)LY(A)4>TX0TX0H(TXSW)279TXTX1:40520IA3ī40525J(LX(A2)ZX)(LY(A)LY(A1))LY(A)LY(A1)8K(LX(A)ZX)(  ns"CA$;:CO,RJX:S$ZFBE,F7$,N6,S$:26000:SW,S$,X::"Net Earnings"CA$;:CO,RJX:S$o'XX(0):VSP,1::aSW,S$,X:CA$;:CO,TA:"State Tax"CA$;:CO,EQX:S$~FBE,F7$,H6,S$:26000:SW,S$,X:CA$;:CO,TA:"Health"CA$;:CO,EQX:S$FBE,F7$,S6,S$:26000:SW,S$,X:CA$;:CO,TA:"Savings"CA$;:CO,EQX:S$:FBE,F7$,D6,S$:26000:SW,S$,X:"Total DeductioFBE,F7$,G6,S$:26000:SW,S$,X:"Gross Earnings"CA$;:CO,RJX:S$:ڝTA12:FBE,F7$,F6,S$:26000:SW,S$,X:CA$;:CO,TA:"Federal Tax"CA$;:CO,EQX:S$䝯FBE,F7$,F5,S$:26000:SW,S$,X:CA$;:CO,TA:"F.I.C.A."CA$;:CO,EQX:S$3靯FBE,F7$,S5,S$:26000:half paid for hours over 40"\˝Y165MNY77:XX(0):WIND,0,Y2::SPACE:BOX::CO,0,YbϝНSPACE:WIND:BOX::CO:"The following figures are";CC$:"totals for "N" employee";:N1ĺ"s";ѝCC$:VSP,2:::EQ220:F7$"$$$,$$$.##":RJ250:B՝$,1)" "TD$(TD$,2):40340MWIND,PI%(1,2),Y,PI%(1,3),Y9::CO:TD$;CC$gFBE,"####.##",WN,WN$(WN$,1)" "WN$(WN$,2):40370WIND,PI%(1,3),Y,279,Y9::CO:WN$;CC$:YY22ɝ(Y165MN)XT1XT0:WIND:CA$:CO,0,165:"* Time-and-a-.##",ST,ST$1X(ST$,1)" "ST$(ST$,2):40280bbWIND,PI%(1,0),Y,PI%(1,1),Y9::CO:ST$;CC$|lFBE,"####.##",WG,WG$v(WG$,1)" "WG$(WG$,2):40310WIND,PI%(1,1),Y,PI%(1,2),Y9::CO:WG$;CC$TDWGWN:FBE,"####.##",TD,TD$(TDI%(0,5),Y9::CO:SA$;CC$4FBE,"####.##",FT,FT$Z(FT$,1)" "FT$(FT$,2):40220&WIND,PI%(0,5),Y,279,Y9::CO:FT$;CC$:YY90FBE,"###.##",FI,FI$:(FI$,1)" "FI$(FI$,2):40250DWIND,15,Y,PI%(1,0),Y9::CO:FI$ NFBE,"###$(PA$,2);̜WIND,PI%(0,2),Y,PI%(0,3),Y9::CO:PA$;CC$S֜FBE,"##.##",HI,HI$y(HI$,1)" "HI$(HI$,2):40160ꜯWIND,PI%(0,3),Y,PI%(0,4),Y9::CO:HI$;CC$FBE,"###.##",SA,SA$(SA$,1)" "SA$(SA$,2):40190WIND,PI%(0,4),Y,P0,Y80,Y2 FBE,"##",M,M$:WIND:CA$:CO,2,Y:M$;CA$:WIND,PI%(0,0),Y,PI%(0,1),Y9::CO:EM%(M,2);CC$:FBE,"##",EM%(M,3),H$:EM%(M,3)EM%(M,0)10XT1:H$"*"H$ WIND,PI%(0,1),Y,PI%(0,2),Y9::CO:H$;CC$ œFBE,"##.##",PA,PA$:(PA$,1)" "PA,L),14PI%(0,L),37::L03:PI%(1,L),37PI%(1,L),60:b F60:S50:F50:H60:S60:D60:G60:N60 Y77:WIND,0,Y:BOX:CP$;CA$:CO:M1N:23000 F6F6FT:S5S5ST:F5F5FI:H6H6HI:S6S6SA:D6D6WGWN:G6G6WG:N6N6WN 6:0,Y216,Y216,Y8),41,PI%(1,2),99::CO:"Gross";CC$:"Pay";CC$ WIND,PI%(1,2),41,PI%(1,3),99::CO:"Total";CC$:"Deduct";CC$:WIND,PI%(1,3),41,PI%(1,4),99::CO:"Net";CC$:"Pay";CC$ 0,13279,13279,140,14:0,60279,60279,610,61:0,37279,376 L05:PI%(0"Hlth.";CC$:"Ins.";CC$ rWIND,PI%(0,4),27,PI%(0,5),50::CO:"Svgs.";CC$:WIND,PI%(0,5),18,PI%(0,6),50::CO:"Fed.";CC$:"Tax";CC$. WIND,15,50,PI%(1,0),99::CO:"FICA";CC$:WIND,PI%(1,0),41,PI%(1,1),99::CO:"State";CC$:"Tax";CC$:WIND,PI%(1,1PI%(0,0),50::CO:"Em.";CC$:"#";CC$:WIND,PI%(0,0),18,PI%(0,1),50::CO:"#";CC$:"Exm.";CC$:WIND,PI%(0,1),18,PI%(0,2),50::CO:"Hrs.";CC$:"Wkd.";CC$ hWIND,PI%(0,2),18,PI%(0,3),50::CO:"Hrly.";CC$:"Rate";CC$:WIND,PI%(0,3),18,PI%(0,4),50::CO:p @ CO. TABLESJN0įWIND,0,12:BOX:CA$:CO,0,89:"No employee records exist. To see the company payroll chart, you must first add employee records.":SPACE:TWIND:BOX:CA$:CO:"Employee Payroll Information";CC$:1:XT0 ^WIND,0,18,     z#  ԮˠԠӮˠ Ǯҳ   נؠӮҠ  ǮҠ ĠӠŮҠ  ̮ˠǮҴ ҠӮΠ Ԡ2 ՠ!Š#"ҠԠנ٠ӮҠؠӠԠ٠ӮҠ ŠӠ!̮ʠֱ+ȮʠϠ ԠӠ0ŮԠӠӠϠԮʠŮԠ̠(äˠǮҲ SPACE:4000042E"$"S$:SW,S$,XM:CO,250XM:S$;CA$ :::"This means that ";SR$;" of every dollar you earn, up to ";S$;", is deducted for Social Security.":"Your employer also contributes to Social Security by matching the amount withheld from your wage.":40000 F.I.C.A.DCL$:1:11,10269,10269,5011,5011,10CO:::CO,48:"Social Security Rate: ";CA$;:FBE,"##.##%",SR,S$:26000:SR$S$:SW,SR$,XR:CO,250XR:SR$;CA$#:CO,26:"Social Security Maximum: ";CA$;:FBE,FM$,SM,S$:26000:S$ЯVSP,35֜T10:L010:S2%(L)10(S2%(L)10)T11\ۜ:T10F2$"##":P%(5)QY6:40165tF2$"##.#":P%(5)QYT0:T1S1(0):T20:T3S2%(0)10:T$"0":X7:100꜁L113:T1S1(L):T3S2%(L)10:FL%İ100:T10FL%1:AFT,2,0:VSPSPACE%İ100:T10FL%1' :AFT,2,0:VSP9 SPACE:40000L œ STATE TABLEg ǜXX(0):AFT,0,2:FL%0 ̜CL$;CA$;:CO:"State Withholding Tax Table";CC$:"(Annual)";CC$::"State Exemption Amount: ";(SE);".00";CC$:ќ400::GCP,XX,YY:CO,XX,YY3:E);".00";CC$:$ :400:::VSP,3W T10:L010:FM%(L,1)10(FM%(L,1)10)T11~ :T10F2$"##":P%(5)QY6:40110 F2$"##.#":P%(5)QY T0:T1FM%(0,0)10:T20:T3FM%(0,1)10:T$"0":X7:100 L110:T1FM%(L,0)10:T3FM%(L,1)10:FLL,0)10:T3FS%(L,1)10:FL%İ100:T10FL%1B :AFT,2,0:VSPT SPACE:40000q FEDERAL MARRIED TABLE XX(0):AFT,0,2:FL%0 CL$;CA$;:CO:"Married Federal Withholding Tax Table";CC$:"(Annual)";CC$::"Federal Exemption Amount: ";(Fal Exemption Amount: ";(FE);".00";CC$:? c:400:::VSP,3r hT10:L010:FS%(L,1)10(FS%(L,1)10)T11 m:T10F2$"##":P%(5)QY6:40055 rF2$"##.#":P%(5)QY wT0:T1FS%(0,0)10:T20:T3FS%(0,1)10:T$"0":X7:100. |L110:T1FS%(turn to PAYROLL menu":::"Which number? ";:INP,(1,"-15",1),CH$:CH(CH$)q OCH40020,40075,40130,40185,40500 T FEDERAL SINGLE TABLE YXX(0):AFT,0,2:FL%0) ^CL$;CA$;:CO:"Single Federal Withholding Tax Table";CC$:"(Annual)";CC$::"Feder @ DISPLAY TAX TABLESdECO$;CL$;CA$:CO:"Withholding Tax Tables"CC$:::"Do you want:"::G" 1. Federal single tax table"::" 2. Federal married tax table"::" 3. State tax table":K J" 4. F.I.C.A. withholding rate"::" 5. Re 1BS7BS6 }BS S256G SL(P(P(999))1)16:DR(P(P(999))2):VO(P(P(999))14)` RFL,"MECC$$DISK"LLp DC(LL36) 953,SL:954,DR:955,VO:956,SL:957,(DRDC)1:958,254 DC3āZ02:956Z,(LL37Z):  } }:BS(P(P(999))1)16:BSCT NEEDS AT LEAST 48K TO RUN.":16384,128:16368,0:32000~ 230,64:D$"BRUN LOGO":16304,0:16297,0:16299,0:16302,0 $D$"BRUN BUSUTIL.OBJ" .RFL,"PPRINT.OBJ" L975,255 V4000 RNH,"MENU":  LL704 P(X)(X)(X1)! PRODUCT:BUSINESS UTILITIES5PROGRAM: HELLOSCOPYRIGHT (C) MECC, 1985r(LAST UPDATE: 85/01/24 MAPx32000D$(13)(4):P(X)(X)(X1)256(65435)6ĺD$"PR#0":D$"IN#0":16372,0; ::(978)157Ģ12:"THIS PRODU   Zo n Ip-ZoZoZo SpLnYo[oYo^` , g 掄p ,Wo jpp) p pp)p ߅ l \o ) L{6p,p0- HHHp hhh ɛn6p,6p6pPL8p6p,p0,Ɉd @i`+ @iR("  @i5880`L pppWopp ( jpL*o {$0$ 掅pnp ,Lo {$0LnNWo [oLnYo nH-?npLn Ip n mhhhhhhhhh,lp` ֩PyQ ALŠҠ僁tiuimiʈwixi &',viq&yi,$20Li N8`'g `.'g`mm ` ң Σ `,` j ެLj,Hl  "l  h,,"l,`L, HHHHHHHHH k m jlNO,ɍɠ ɛ8nl,lPݩjj ߅$0jj  c`Lvjj j` @itiuivi @imHihʍwixiyi LiL H g Rh PQ`L   )?` ` @) fgziZj|iwixi fg{iTj}izi{iBvi pg&'zi yjQ&-|iQ&&ȭ~i{i yj& yjQ&-}iQ&&viviyi`|i-}i|ivi pg&'zi yjQ&-|iQ&&viviyi`*U U*ժ j')JMj)~i Q&,iP 0=j`j`J&)` `L3fhPjjjjjjj0jj) i0ȱj ij i i iР`8pPH)8 qȥq8)h` g R  QP (`L @i`L)  @ iaj~iimjiitiuibggmgcg`8pagJJJ) } heggmcgdg`((((PPPP iHh i i  iJ` &eeie i fg iIihi i pgm i iM if f g`L?c 7eggLtf -`,g`timuimʈwixiviʎyi$20Li gcgbg`agcg gdgeg`ag g gdgegbg`ggg8pg.g(g8gHgJhj`mggg` ?c 7e` ?c 7eI``,L 7ee80 " fm8h)` 7eem88eLf` 7eeme` 7e8` f@ S```g穀&g %g`g3 g'gg ``) ``gʽ`) ` `gH`mS` *eS`)e`e ie 0he}`mg8gg`%g` 7eL?c,0*`%g "gg gg!g&gh`g gS```emggg#g $g`em#g#g$g`) g%g#g$gggO,0 `)  7e`%g(`HHg,Pg88` g d fhLcgH%gH"gg,P d fh%g8h%gg#gg$gg%g``S`c i g$20 L0h,o 8ɀ   LX8e湥 pHpH ,L`@ @ʩ WRPT` J  *eȱȱȱ` igH) #,&g h`` g tf%%h $20 Lc $ aHaH`6eeeWeeefBfsffffg ggg(bb, 7e gc&g ig$20 0hNO0 b@íH bhH ,aɈ5hH gcb% i)H fh g$20 0h gc Cf,bbh` g````L` ccԍbq$% `@ ?aDa6 ,'gL?cLfHa bHaa,,aaɠ,ra ` a欅aah,`ɀ)?  @IH gc$ 7e Cf$%0 7e         )2,ML1,C%(1)2,B1,8:CO$:PAUSE,5:BOX,C%(0)2,ML1,C%(1)2,B1,8:WIND8:S$"":CH$"":PA$"":GX$"":PO$"":GO$"":XX(0)_3,59,115,175,231,279"","Total Pay","Per Week","","Exem.","Amt.","Taxable","Annual","Income","Annual","Fed.","(0)G7$:A(2)GX:A$(1)G8$:A(3)GO:FBE,F4$,WG,S$:26000:WG$S$:A$(2)WG$:A$(4)"-09.":A$(5)"$":A$(6)"$":A(0)7:A(1)7:40100)LL13J.BOX,76,145,156,154,8:PAUSE,5:WIND,C%(0)1,ML3,C%(1),B:CA$:CO:CN$;A$(2);CC$:BOX,76,145,156,154,8:BOX,C%(0HOPO:FBE,F4$,GO,S$:26000:A$(2)S$:GO$S$:G8$S$:A$(5)"":A$(6)"$":A(0)5:A(1)2:40100:SPACES$GX$:26000:GX$S$:WIND,10,74:BOX:CA$:CO:"Employee #"M" earned $"GX$" per week in regular pay and $"GO$" in overtime pay."~40030:"$";CA$;:A$0745XPOPA1.5:SPACE:FBE,F5$,PO,S$:26000:PO$S$:HOEM%(M,3)40:P$"":HO1P$"s"WIND,10,74:BOX:CA$:CO:"Employee #"M" worked "HO" overtime hour"P$" per week at $"PO$" per hour."b40030:"$";CA$;:A$(0)PO$:A(2)PO:A$(1)(HO):A(3)HO:GO $"PA$" per hour.":F8$"#,###.##"F5$"##.##":F4$"#,###.##":40030:"$";CA$;:A$(0)PA$:A(2)PA:A$(1)(H):A(3)H:GXHPA:FBE,F4$,GX,S$:26000:A$(2)S$:G7$S$:FBE,F8$,GX,GX$:A$(3)"-09.":A$(4)"-09":A$(5)"":A$(6)"$":A(0)5:A(1)2:40100OT04al income by the number of weeks in a year."s Ԟ23000:SPACE:HEM%(M,3):OT0:EM%(M,0)10HH40:OT1:REST,40984 ٞP$"":H1P$"s"!ޞFBE,"##.##",PA,S$:26000:PA$S$:WIND,10,74:BOX:CA$:CO:"Employee #"M" worked "H" regular hour"P$" per week atT3P CN$;CQ$:L04:WIND,C%(L),T,C%(L1),B:CA$:CO:LL13:S$:S$;CC$::, ʞWIND,38,74:CO$;CA$:CO:"To figure the federal amount withheld from wages earned, for a given paycheck, you must first project an annual income and then divide that annuC%(L)::T26:ML48:B58* 800:N01ı WIND:CL$;CA$:CO:"Federal Withholding Calculation"CC$:"for Employee #";M;CC$ 1:C%(0),T1C%(5),T1C%(5),TC%(0),T:C%(0),BC%(5),BC%(5),B1C%(0),B1:L05:C%(L),TC%(L),B::C%(0),MLC%(5),ML:TCH$)A(L2)L11:CA$"No, try again."CC$:401209 CEWm œCA$;:SW,A$(L),WA:CO,X80WA,PY:A$(L):L2ı ̜L1L2:CQ$:CO,X3,LY26GAP:A$(6);CA$;:GCP,PX,PY:40130 ֜L1:CA$:CO,X3,LY2GAP:A$(5);CA$;:40110 XX(0):REST,40980:L05:169,LY24GAP:S$:S$:S$:S$;CA$;CO$[ rWIND:CA$:CO,63,LY18:S$:S$;CA$:CO,77,LY2:i L0:CP$;} GCP,PX,PY:L100 BOX,PX,PY,PX57A(L),PY8,4:CA$;:CO,PX,PY:INP,(A(L),A$(L3),1),CH$:BOX,PX,PY,PX57A(L),PY8,4:CA$;:CO,0,166:L10( @406003TX,YX82,YX82,Y11X,Y11X,Y:J^HC2:GAP15:LY105_X74:YLY:6:40020:YYGAP:40020:1:YY24:X75:40020:HC:X13,Y8X81,Y8% hWIND,169,LY,279,191:CN$;CA$:CO:S$:S$:S$:S$;CA$:CO,169,LYGAP:S$:S$:S$:S$;CA$:CO,  ppxp````pp pppppx```x@ 000 P`0pxxxx```xpppppxp````pp ppppp8``8 000`tH`````PPP0xx0 X`hh0`0```0`000`pp 0`@ @pp0p00xppxxp0``ppppxp@@@@0``0`0`p`pppxxxx```xppp  (" - health insurance amount":" - savings plan amount":" - overtime pay (if any)":SPACE:VSPxCL$:27000:WIND,0,14:BOX:CA$:CO::"Do you want to:":zCA$:VSP,7:" 1. Add an employee record":" 2. Change an employee record":" deleted.":CA$:SPACECL$:27000:CO,0,23:"You can enter the following information for a maximum of 40 employees:";CA$:CO,0,54VSP,5:" - marital status":" - number of exemptions":" - number of weekly hours worked":" - hourly pay rate"eese employee records are added, you can see earnings and tax information for an individual employee. You can also see company payroll information.":"A printer can be used to print the payroll records. When you leave the program, these records are OLL.PCK"fVCA$:CO,0,179:CEW:CO,0,180:"Do you want instructions? ";:30100:CL$;CA$:Z$"N"140027000:WIND,0,27,265,191:CO:"To use this program, you must enter payroll deduction information for employees of a small company.":"After th,L1)::1REST,29100:L06:P%(L)::QYP%(5)U$L101:L206:PI%(L1,L2)::8ZS704:SET,1:RFL,"MECC$$DISK"704:33200:QN$ZN$:RFL,"LITTLE.PFT"36150;DFT,2,36150:AFT,2:FM$"###,###":F3$"$$,$$$.##"BN0K919,1LDUN,"PAYRQT$(0)"program":QT$(1)"data":QT$(2)"backup":QT$(3)"spelling":QT$(4)"results":QT$(5)"word lists"LA(6),LA$(6,1),EM%(40,6),FS%(10,1),FM%(10,1),S1(14),S2%(14),PI%(1,6)700: READ TAX TABLESREST,29000:L06:LA(L)::L16:L101:LA$(L$):(MN)(M0)820%32000:(4);"MAXFILES 1":36734:DBL,30000,50000:APP,"END ROUTINES":TF$"PAYROLL":PINIT:POFFWIND:VSP,1:HSP,1919,1:D$(4):CA$(1):CC$(3):CL$(12):CN$(14):CO$(15):CP$(16):CQ$(17)e33100:ND,0,14:BOX:CA$:CO,0,89:N0N01:"No employee records exist.":SPACE:899/N1M1:"Employee #1 is the only record."CA$:SPACE:8990S$"1 or 2":N2S$"from 1 to "(N)4CO,0,89:"Enter employee number "S$"? ";:INP,(2,"-09",1),M$:M(M1:UNHOOK::FILE$"TAX TABLES":D$(4)gD$"VERIFY "FILE$:D$"OPEN "FILE$:D$"READ "FILE$A010:B01:FS%(A,B):::FEA010:B01:FM%(A,B)::A013:S1(A):S2%(A)::SE:SR:SMD$"CLOSE "FILE$:HOOK:O N00:WI:BOX:CA$:CO:FBE,"$$#.##",PA,S$:26000:S$CC$: HIEM%(M,5)100:WIND,LA(5)1,B8,LA(6)2,B:BOX:CA$:CO:FBE,"$$#.##",HI,S$:26000:S$;CC$:SAEM%(M,6)100:WIND,LA(6)1,B8,279,B:BOX:CA$:CO:FBE,"$$$#.##",SA,S$:26000:S$;CC$:WIND,0,10:(1)1,B8,LA(2)2,B:BOX:CA$:CO:EM%(M,1)1ĺCA$"M"CC$:617L eCA$"S"CC$R i lWIND,LA(2)1,B8,LA(3)2,B:BOX:CA$:CO:(EM%(M,2));CC$: vWIND,LA(3)1,B8,LA(4)2,B:BOX:CA$:CO:EM%(M,3)CC$:2 PAEM%(M,4)100:WIND,LA(4)1,B8,LA(5)2,B;:CO,32:"If Wage Is:"CA$;:CO,140:"The Amt. Of"CA$:CO,20:"More"CA$;:CO,66:"But Less"CA$;:CO,142:"Income Tax"CA$;:CO,228:"Of Amt."CA$ CO,20:"Than:"CA$;:CO,78:"Than:"CA$;:CO,140:"Withheld Is:"CA$;:CO,236:"Over:"CA$: X= bWIND,LA79,T4:0,T3279,T3:0,B2279,B2:0,B3279,B3] L2LA(0):LA(L)1,T2LA(L)1,B1: BXLA(0):L1BX1:WIND,LA(L)1,T,LA(L1)2,B:CA$:CO:LL01:CQ$LA$(L,LL)CC$:: WIND,LA(BX)1,T,279,B:CO:L01:CQ$LA$(BX,L)CC$::WIND: CA$E,FM$,T1,T$:SW,T$,X:CO,P%(2)X,YY:T$CA$a FBE,FM$,T2,T2$:SW,T2$,X2:CO,P%(3)X2,YY:T2$CA$ T30įFBE,F2$,T3,T3$:T3$T3$"%":SW,T3$,X3:CO,P%(5)X3,YY:T3$CA$;:CO,P%(4),YY:"+"CA$: T2T2(T3100)(T1T):TT1 3 T40:B71:1:0,T42&! PRODUCT:BUSINESS UTILITIES6PROGRAM:PAYROLLTPROGRAMMER:MARK PAQUETTEq(COPYRIGHT (C) MECC 19852LAST UPDATE 85/05/10 MAPb1000cdGCP,XX,YY:CO,P%(0)X:T$CA$:T30įCO,P%(6)X,YY:T$CA$:CO,P%(1),YY:"-"CA$* xT10įFB           E%(3)22:E%(6)E%(4)E%(5)17 CA$;:GCP,XX,YY:3:E%(0),YY9E%(0)E%(1),YY9:E%(2),YY9E%(2)E%(3),YY9:E%(4),YY9E%(4)E%(5),YY9:E%(6),YY9E%(6)E%(7),YY9[ CA$:CO,E%(2)19,YY:"+";CA$;:CO,E%(2)8:"[";CA$;:CO,E%(4)17:"x";CA$;:CO,Ez kT4(T4.5):FAT4(T3100)(YNTT):FA(FA100)100:FBE,F9$,FA,S$:26000:FA$S$:S$T2$:26000:T2$S$ SW,T2$,E%(1):SW,T3$,E%(3):SW,A$(2),E%(5):SW,TT$,E%(7):E%(8)E%(1)E%(3)E%(5)E%(7)76:E%(0)140(E%(8)2):E%(2)E%(0)E%(1)24:E%(4)E%(2)`pC0scBeC E𸞇CBhCwCj őőĐUCksC^CC^BAABhsCYyEBAABACOLL LLBAABAAAABBABBABBABBABBABBABBABBABAE MՅHBJFՁsCAH\ ĘD őđNBGBHFAAIఃȸIBHBIGsIA~BdEՀ繎Ek sCI ԀÇIAC 2232B 0f`~`FsCGOLOO@OOBYB껪BFCG GAAC ggff&B ||p||dqFՁwE\AՁB ᱑F ߗőđđIAABEBJFsC`A|E`BY̰CBCBCBCFՁsIA\ 𸎂DFDBDLJC )99B yyIaIFsCgE[BYD𸎀CEEEBC 2rBqssB3aFՁsCpyyyyqBYBЀđĀCGBJFwCfBK ສ꺮BCAAByB AAAFՁsA WIND,0,65:BOX:CA$:CO:AFT,0,2:400:CA$z F2$"##.#":P%(5)QY:L0:TEX:T0:T20:EM%(M,1)140715 T1FS%(L,0)10:T1YNT10T2T2(FS%(L,1)1000)(T1T):TTT1:TT1:LL1:40712 T3FS%(L,1)10:40720< T1FM%(L,0)10:T1"-09.":A$(5)"$":A$(6)"$":A(0)9:A(1)8:40100< ޞLL13 螯BOX,76,145,156,154,8:PAUSE,5:WIND,C%(2)1,ML3,C%(3),B:CA$:CO:CN$;A$(2);CC$:BOX,76,145,156,154,8:BOX,C%(2)2,ML1,C%(3)2,B1,8:CO$:PAUSE,5:BOX,C%(2)2,ML1,C%(3)2,B1,8:WIND:etermine the projected annual income for employee #"M", $"WG$" (total pay per week) is multiplied by 52 (weeks in a year)"; ʞ" to equal $"YG$"."0 Ԟ40030:"$";CA$;:A$(0)YG$:A(2)WG52:A$(1)XM$:A(3)XM:YNA(2)XM:FBE,F9$,YN,S$:26000:A$(2)S$:A$(4)56,154,8:PAUSE,5:WIND,C%(1)1,ML3,C%(2),B:CA$:CO:CN$;A$(2);CC$:BOX,76,145,156,154,8:BOX,C%(1)2,ML1,C%(2)2,B1,8:CO$:PAUSE,5:BOX,C%(1)2,ML1,C%(2)2,B1,8:WIND:{ FBE,F7$,WG52,S$:26000:YG$S$:CA$:SPACE:WIND,0,65:BOX:CA$:CO:"To dE,F9$,FE,S$:26000:FE$S$:A$(0)FE$:A(2)FE:A$(1)(EM%(M,2)):A(3)EM%(M,2) XMEM%(M,2)FE:FBE,F9$,XM,S$:26000:A$(2)S$:XM$S$:A$(3)"-09.":A$(4)"-09":A$(5)"":A$(6)"$":A(0)7:A(1)2:40100 FBE,F8$,WG,S$:26000:WG$S$:LL13 BOX,76,145,1FBE,"##,###",FE,S$:26000:XX(0):SPACE:WIND,10,74:BOX:CA$:CO:"Employee #"M" has taken "EM%(M,2)" exemptions. The amount per exemption is $"S$"."K F7$"###,###.##":F8$"####.##":F4$"#,###.##":F9$FM$".##":REST,40900:40030:"$";CA$;:FB     :T$"Compound Interest earned: ":SW,T$,X1:CO,RJX1:T$;:FBE,"$$,$$$,$$$.##",C2,S$:26000:CI$S$:SW,CI$,X1:CA$;:CO,NJX1:CI$;CA$:GCP,XX,YYWIND,LA(6),B8,279,B:CA$;:CO:CI$;CC$:WIND,0,125:CA$:CO8CO,RJWF,YY:TF$;:FBE,"$$,$$$,$$$S$:SW,SI$,X1:CA$;:CO,NJX1:SI$;CA$:GCP,XX,YYwWIND,LA(5),B8,LA(6)1,B:CA$;:CO:SI$;CC$:WIND,0,99:CA$:COCO,XX,YY:TF$"Final balance: ":SW,TF$,WF:CO,RJWF:TF$;:FBE,"$$,$$$,$$$.##",S3,S$:26000:FS$S$:SW,FS$,X1:CA$;:CO,NJX1:FS$(1).005SN(1).01:5280%SN(1)0:CN(1).015300[CN(1).005CN(1).01:5300gCN(1)0mRJ180:NJ265:VSP,42WIND,0,90:BOX:CA$:CO:T$"Simple Interest earned: ":SW,T$,X1:CO,RJX1:T$;:FBE,"$$,$$$,$$$.##",S2,S$:26000:SI$RAN1)N1)CB:S2S2SI:C2C2CIaSR(L)SB:SN(L)SI:SL(L)SBSI:CR(L)CB:CN(L)CI:CL(L)CBCI:sS2.015255S2.005S2.01:5255S20C2.015260C2.005C2.01:5260C20S3S2DE:C3C2DESN(1).015280SNth."CC$:5170!-CP3:"Qtr."CC$W2WIND,0,90:BOX:CA$:CO:"Calculating totals..."]PxZRARA100:CP1N1365_CP2N112dCP3N14nSI0:CI0:SBDE:CBDE:S20:S30:C20:C30xL1MA:SBSBSI:CBCBCI:SI(SB(1RA))SB:CI(CB(1u want compound interest figured:"::" D (Daily)":" M (Monthly)":" Q (Quarterly)"::"Enter D, M, or Q? "CA$;INP,(1,"DMQdmq",1),CH$WIND,LA(4),B8,LA(5)2,B:CA$:CO:CH$"D"CH$"d"CP1:"Day"CC$:5170 (CH$"M"CH$"m"CP2:"M0:CO:CEW@"Years the earnings will grow? ";CA$;:GCP,XX,YYCO,XX,YY:INP,(2,"-09",1),CH$:MA(CH$):MA1MA20ĺ:"Please enter a number from 1 to 20.";CA$:5110WIND,LA(3),B8,LA(4)2,B:CA$:CO:CH$;CC$;CA$:WIND,0,90:CO:CEWy "Do yoINP,(5,"-09.",1),CH$:RA((CH$)1000.5)100RA1RA20ĺ:"Please enter an interest rate":"from 1.00 to 20.00.";CA$:CO:5070FBE,"##.##",RA,RA$:RA$RA$"%":WIND,LA(2),B8,LA(3)3,B:(RA$,1)" "RA$(RA$,2) CA$;:CO:RA$;CC$:WIND,0,9llar amount? $";wINP,(4,"-09",1),CH$:DE(CH$):CEW:DE1DE9999ĺ:"Please enter a number from 1 to 9999.":5030FBE,"$$,$$$",DE,S$:26000:DE$S$:WIND,0,B8,LA(2)3,B:CA$;:CO:DE$;CC$:WIND,0,90:CO:CEW."The interest rate? ";CA$;:CEL:$(L):= 8ZS704:SET,1:RFL,"MECC$$DISK"704:33200:QN$ZN$H K919,1N  CL$:1:"Simple versus Compound Interest";CC$:REST,29500:L06:LA(L)::L16:LL01:LA$(L,LL):::200:BOX,0,74,279,76,2WIND0,90:CA$:CO:"Enter deposit in doA$(1):CC$(3):CL$(12):CN$(14):CO$(15):CP$(16):CQ$(17) 33100:QT$(0)"program":QT$(1)"data":QT$(2)"backup":QT$(3)"spelling":QT$(4)"results":QT$(5)"word lists" LA(8),LA$(8,1),SR(20),SN(20),SL(20),CR(20),CN(20),CL(20) L03:FE3,279,58:CA$:CO:TA$(TA(0));CC$:(TA$(0))2ĺTA$(TA(0)2);CC$J ^WINDP V b 32000 (4)"MAXFILES1":36150:DBL,30000,60000:APP,"END ROUTINES":TF$"SIMPLE VS. COMPOUND INTEREST":PINIT:POFF WIND:VSP,1:HSP,1B 919,1:D$(4):CF 6CP$:BOX,0,20,279,279(TA$(0)),6:BOX,0,22,279,229(TA$(0)),4z @6:L12TA(0):TA(L1),20TA(L1),559(K2K1): JL11TA(0)1:WIND,TA(L1)1,23,TA(L11)1,58:CA$:CO:TA$(L1);CC$:(TA$(0))2ĺTA$(L1TA(0));CC$ O@ TWIND,TA(TA(0))3,2,T4:0,T3279,T3:0,B2279,B2:0,B3279,B3[ L2LA(0):LA(L)1,T2LA(L)1,B1: BXLA(0):L1BX1:WIND,LA(L)1,T,LA(L1)2,B:CA$:CO:LL01:CP$;LA$(L,LL);CC$:: WIND,LA(BX)1,T,279,B:CO:L01:CP$;LA$(BX,L);CC$::WIND: ,  HOOK+ PRODUCT:BUSINESS UTILITIESTPROGRAM:SIMPLE VS COMPOUND INTERESTiFILE: SIMPLE VSPROGRAMMER:MARK PAQUETTE(COPYRIGHT (C) MECC 19852LAST UPDATE 85/04/26 MAPb1000cRNH,"SAV111"1 T30:B61:6:0,T4279          ((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP            0Ȣ`& ق&=,) ȱ&( ΂`* =, قJJ `(* i`6 Z-(?jE> ht v&' 0` ZS  Z ) 8 n R Z0c 0 nLhO v&'hhh>)>JJJ)$>>8>F 0  RL`&H D`#D$ED`>=?@3<>)=eA=?eA?A@ <><>=?``@A)  Ȫ;D0 N0]Nj뭈 > v&' v  0|~ }~ |~ȱ}~8ȱ ~>? ~6p"+>,? ~!p ~~|~<}~=`~|~8}~`! @A    `@ i @ ȱ g`,~`D  |`Lа ,,i,,`gh`ȱȘeiȑی|~ }}~  ub ~D#E$B'C(@)A*>+?, ~%)~~>? ~PL`~~~; 8`|~ }~ g|~h}~ȱ; ~nw:0w1ww0|w`A|# A|^ȝ`g|w# g|g|^ʰ`H)8 qȥq8)h`h|h|hh|ȱe暥HH|H|H|` g R  QP (`Lw{w0 wwL#{w-αwαww#.e;0{0w{wwbeβw0{0w{wܩ{w9-+w80{w 80{yw{{(Iimwww wwwIȌw`|wL{|wIi|07|w5!wwiz z`* z`H h`h8`ww# zL+z`wwzzzw zz#p,wXw-ۭzLSz$ pz=z<+w0/-z(z'-wzz*pP , Pp LSz`w*00̴ww,z`@ww wwwЮ DyLxww#ww^w DyLywwʎw`< w wήw0 >w www`w z zIi z zwwz- zwdzz z+ z zwwi0 zi0ze z z z!z 0 zz0 z Hww#h,w |Lx B|` 4^_^w zw,ww wΦw0Ϋwww {8wwʹwhwLxwmw {8wwwmww hy @z $z`wwwwwwwwwwy.N#ww*w$ www+ wwwп-` <=}w >݁w?Ȑ۩`?)8鍸ζ`H88HHg?PPȱQLvQPQ  wi8囅@圅A<= - #} wmu6L+usutu+uLɯz 8ɀ   Lޤȱ 0:,јe湥 ČHÌH , LsutuL<=ʱD>`          1000.5)100:RA1RA20ĺ:"Please enter an interest rate":"from 1.00 to 20.00.":2120RFBE,"##.##",RA,CH$:CH$CH$" %":WIND,LA(2),B8,LA(3)4,BW(CH$,1)" "CH$(CH$,2):2135YCA$:CO:CH$;CC$:WIND,0,80:CO:CEWp\2:1:"Years the ear)0(DE)999ĺ:"Please enter dollar amounts from 1 to 999.":2070>FBE,"$$$,$$$",DE,CH$:WIND,LA(1),B8,LA(2)4,B:S$CH$:26000:CH$S$ECA$:CO:CH$;CC$:WIND,0,80:CO:CEWXH2:1:"The interest rate? ";:CEL:INP,(5,"-09.",1),CH$:RA((CH$)e Deposit"L11:1:"Enter deposit in dollar amount";:MD%ĺ"s? $";:2100 "? $";:CEL:INP,(5,"-09",1),CH$:DE(CH$):(DE)0(DE)99999ĺ:"Please enter dollar amount from 1 to 99999.":2070*2110C4CEL:INP,(3,"-09",1),CH$:DE(CH$):(DE">15:1:"Which number? ";:INP,(1,"-13",1),CH$:CH(CH$)MCH31120dMD%0:CH2MD%1REST,29100:L05:LA(L):L15:LL01:LA$(L,LL)::CL$:200:BOX,0,74,279,76,2:MD%Ė13:1:"Monthly Deposits":2070  14:1:"SinglH2CH3ĺCL$;CA$:CO,0,89:"One moment please..."O~CH2000,5000,7000,31100UCL$:1:12:"Savings Account":5:1:"You can:":8:5:"1. Make single deposit"10:5:"2. Make monthly deposits":12:5:"3. Return to SAVINGS INTEREST menuNTEREST"CC$;CA$e5:1:"You can choose:":::5:"1. Savings account"::5:"2. Certificate of deposit"::5:"3. Simple versus compound interest":j5:"4. Return to main menu"tCO,0,144:"Which number? ";:INP,(1,"-14",1),CH$:CH(CH$)2yCu can earn on savings accounts and certificates of deposit."::"Compare the differences between simple and compound interest earned.":V"You can use a printer to make copies of the interest tables in this program.":SPACE`CL$;CA$:CO:"SAVINGS I$(8,1),NB(20),PN(20),YN(20)0L03:FE$(L):g8ZS704:SET,1:RFL,"MECC$$DISK"704:33200:QN$ZN$K919,1:(910)11120L910,1:DUN,"INTEREST.PCK":CA$:SPACEQCL$;CA$:CO:"SAVINGS INTEREST"CC$;CA$RCO,0,45:"See how much interest yo"WIND:VSP,1:HSP,1*PINIT:POFF919,1:D$(4):CA$(1):CC$(3):CL$(12):CN$(14):CO$(15):CP$(16):CQ$(17)33100:QT$(0)"program":QT$(1)"data":QT$(2)"backup":QT$(3)"spelling":QT$(4)"results":QT$(5)"word lists"LA(8),LAB(0)0:XX(0) CP1C365- CP2C12; CP3C4 L1YR%:PN(L)PN(L1)YN(L1):YN(L)PN(L)(1RAC)CPN(L):NB(L)PN(L)YN(L):   32000(4);"MAXFILES 1":36150:DBL,30000,55000:APP,"END ROUTINES":TF$"SAVINGS INTERESTA$(0)"2")):u JL11TA(0)1:WIND,TA(L1)1,31,TA(L11)1,58:CA$:CO:TA$(L1);CC$:(TA$(0))2ĺTA$(L1TA(0));CC${ O TWIND,TA(TA(0))3,31,279,58:CA$:CO:TA$(TA(0));CC$:(TA$(0))2ĺTA$(TA(0)2);CC$ ^WIND   PN(0)DE:YN(0)0:NA(L)1,T,LA(L1)2,B:CA$:CO:LL01:CP$;LA$(L,LL);CC$:: WIND,LA(BX)1,T,279,B:CO:L01:CP$;LA$(BX,L);CC$::WIND: , 6CP$:BOX,0,28,279,359(TA$(0)),6:BOX,0,30,279,309(TA$(0)),4 @6:L12TA(0):TA(L1),28TA(L1),459EN(9(TL1DIDIYN(Y):DBNB(YR%): L2MIMIYN(Y):MBNB(YR%)Z L3QIQIYN(Y):QBNB(YR%)d ::j T30:B61:6:0,T4279,T4:0,T3279,T3:0,B2279,B2:0,B3279,B3 L2LA(0):LA(L)1,T2LA(L)1,B1:< BXLA(0):L1BX1:WIND,L0:LCP:L313:XX(0):SB0:LL1:L4L1: sL1C365H xL2C12U L3C4 D112:NDC12:SBSBDE(1(N(N))RAC)(1RAC)(N): R1(1RAC)C:Y1YR%:ESB(R1Y1)(R11):NB(Y)E:PN(Y)(12DE):YN(Y)NB(Y)(NB(Y1)(12DE)): )  HOOK+ PRODUCT:BUSINESS UTILITIESXPROGRAM:SAVINGS INTEREST FILE:SAV111vPROGRAMMER:MARK PAQUETTE(COPYRIGHT (C) MECC 19852LAST UPDATE 85/04/26 MAPb1000c33000:d+ nRARA100:NB(0)0:DI0:DB0:MI0:MB0:QI0:QB            2)((T3$)1000.5)10:CA$:CO,W%(2)38,W%(1):"%";CA$;:40900:A(0)W%(0):A(1)W%(2)39:A(3)4:40810:BOX,E%(2),YY6,E%(2)E%(3),YY10,4:CA$:CO,E%(2),YY:T3$ 㞯BOX,W%(0),W%(1),W%(2),W%(3),4 螰40850:"TAXABLE":"ANNUAL":"INCOME":40870:BZE%(4)::40870:BZE%(0):EZE%(0)E%(1):S$T2$:40880 ٞCA$:CO,W%(0),W%(1):CP$"$";CA$;:40900:GCP,A(0),L:A(1)W%(2):A(3)8:40810:BOX,E%(0),YY6,E%(0)E%(1),YY10,4:CA$:CO,E%(0),YY:T2$ ڞBOX,W%(0),W%(1),W%(2),W%(3),4 ۞BZE%(2):EZE%(2)E%(3) ޞA(%(4)6:"(";CA$;:CO,E%(6)11:"-";CA$;:CO,E%(6)E%(7)4:")";CA$;:CO,E%(6)E%(7)10:"]" 6:98,15198,162178,162178,15198,151:REST,40650:L03:W%(L)::T1,T2 ʞ101,153,177,161,186,151- Ԟ40850:"THE AMT. OF":"INCOME TAX":"WITHHELD IS:"GAdACBA+* "b8~|.xnxb" B* 2+z? B* jz> h{>wffP`BaAcCgAfBgAcBaO`fA`xfApWuWT@w]w^w_]DAQu?@BU u?Pt}?zACJ+@px@ +/>xb +/>xp@jOAfffB@p|yagB|pBfADf*CD_BUTpAEDUW^|pAW_xaW_~p@gOA L3L3Lxm~3LAD3L3UCBx?+B*n:b:j:j:.:j**+/>p@dO@XAACBACA@DDQDD@CTp@A "hz~""(CD~\p@C^x`C_xA|Lx`?**?|@AffK@``pBxA|D~AB~A|Bxp``@KfADff*CDADUW^|pAW_|qEU_~x@nOpA3L3L3   (!`I`I0, `а ,,i,,`  ### <= <ȭ<ȭ<ȭ#<ȭ#<><ȥ?< <<= H <=#I<#<##`{ݩD ^ D`3"D4"ED`<=ʱD>` <=? !:p";"><"? !%p !g^h_^`ȱ^Șe^^_iȑ^^_1"0"/"@A +"  " `@ i @ ȱ _#`,!` L" " ="eD3"E4"B7"C8"@9"A:">;"?<" ! u )! e,L׭s n t o Xs t LXLXs t !$)!;"><"? !p! G 8`Lj!g8hegiȱehj8ȱLs t s   ck a person receives. So, if you work more or less hours during a week, your projected annual income,"; Ԟ" for that paycheck, could place you in different withholding brackets.";CA$ ޞ6:12,70264,70264,15012,15012,69264,69:12,151264,151: ,ML1,C%(5)2,B1,8:CO$:PAUSE,5:BOX,C%(4)2,ML1,C%(5)2,B1,8:WIND: CA$:SPACE:BOX,0,65,279,191,4:6:12,70264,70264,15012,15012,69264,69:12,151264,151:h ʞWIND,23,79:CP$;CA$:CO:"Federal withholding tax is calculated for each payche)".-09":A$(4)"-09"{ CO,X12,136:"=":CO,X12,101:".";CA$:CO,X14,98:"_";CA$:CO,X12,97:".";CA$:CO,XX,XY:40100 LL13I BOX,76,135,156,144,8:PAUSE,5:WIND,C%(4)1,ML3,C%(5),B:CA$:CO:CN$;A$(2);CC$:BOX,76,135,156,144,8:BOX,C%(4)2p@XX(0):SPACE:WIND,0,65:BOX:CA$:CO:L(100FA52)100REST,40920:HC0:GAP20:LY90:40031:"$";CA$;:GCP,XX,XY:6:X3,105X85,105 FBE,F9$,L,S$:26000:A$(2)S$:A$(0)FA$:A$(1)"52":A$(5)"":A$(6)"$":A(2)FA:A(3)52:A(0)9:A(1)2:A$(3 MBlLC8W0W8JU^BgBlgC k { J*^BC AC|~}~JUssdGsBgB0gC.5B;J*NG_<8B~BBBYCFJUNG_xpxqpxdGQF@`Dp`@HB@@_BY_cdGOCC@B`ABpAB8ABAABBGlo`OCFJ*NG_|x|x8CFJ*NGKGO?_WUUUBUABUCUBB>0CFJUNGTvGJ((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP                   tK BC#< |t=>0)?><@=0)?><@=@ |t>0BDHt&cu'Ch&BDBBC`((((((((((((((((     nter the interest rate, number of payments per year, and loan period.":"A pie chart can be viewed which shows a breakdown of principal and interest paid.":"A printer can be used to make copies of the loan schedule displayed in the amortizatioYLY(A)LY(A)4TX0TX0<(TXSW)279TXTX1:648ZCA$;:CO,TX,LY(A):L$(A)b:uCL$:3:PARSECA$:CO:"INSTALLMENT LOANS"CC$;CA$HCO,0,30::"This program will calculate the payment or principal amount of a loan when you e.(L$(A),1)"%"L$(A)(W%(A))L$(A):644i(L$(A),1)"%"L$(A)(L$(A),(L$(A))1)(W%(A))"%"SW,L$(A),SW:LX(A)ZX(XRZO)(J57.33333):LY(A)ZY(YRZO)(J57.33333):TXLX(A):TXZXTXTXSW(J0)(J180)LY(A)LY(A)ZTLY(A)Z:TYZYYR(D57.3333):ZX,ZYTX,TY:ZX1,ZYTX1,TY:D2(D175)H{612Y|W%(A)2640}FXZX(XR3)(J57.33333):FYZY(YR3)(J57.33333)~D1D2İ616FILL,FX,FY,C%(A):XF0įFILL,XF,YF,C%(A)L$(0)""650L$(A)""L$(A)"%"ZY:LX,LYNX,NY:LX1,LYNX1,NY:NX,NYZXXR,ZYZT:NX1,NYZXXR1,ZYZT:ZXXR,ZYZTZXXR,ZYvZXXR1,ZYZTZXXR1,ZY:xZC:623yZX,ZYZX,ZYYR:D90:A1W%(0):I(360(W%(A)100)):JD(I2):D1(D175):SDD?zDDI:TXZXXR(D57.333)LX1,LYFX1,FYPrZXXR,ZYZXXR,ZYZT:ZXXR1,ZYZXXR1,ZYZT:D018010sRD57.33333:NXXR(R)ZX:NYYR(R)ZYZT:D0ēNX,NY:FXNX:FYNY:LXNX:LYNYtLX,LYNX,NY:LX1,LYNX1,NY:LXNX:LYNY:auR18057.33333:NXXR(R)ZX:NYYR(R))(ZT2)"kXF(ZXXR1)XFXF(lbmXFZXXR(J57.333)1:YF(ZT2)ZYYR(J57.3333):qoD03609pRD57.33333:NXXR(R)ZX:NYYR(R)ZY:D0ēNX,NY:FXNX:FYNY:LXNX:LYNYqLX,LYNX,NY:LX1,LYNX1,NY:LXNX:LYNY::LX,LYFX,FY:$b632/d(D0)(D180)XF999:eSXTX:SYTY:TYTYZT:SX,SYTX,TY:SX1,SYTX1,TY:YFTY(ZT2):XFTX2:(XF(ZXXR))XFXFfD15XF999ghSD160XF999:iSD10621jXFZXXR(SD57.333)1:YFZYYR(SD57.3333 Interest Principal Balance":17)"No. Paid Paid Due":17)"--- -------- --------- -------"::HSP,1:PINIT:POFF:PF%1:(952)0PF%0ZS704:SET,1:RFL,"MECC$$DISK"704:33200:DN$ZN$:QN$ZN,(ZF$)1) ZNZZ:f @WIND,W(ZN,0),WY,W(ZN,1),BY:CO:CA$;:Z2$""įCO,W(ZN,0),BY9:340 JCO,W(ZN,0),WY:CA$;Z1$;CC$:Z2$;CC$ TZNZN1: FBE,ZF$,ZN,ZR$:CA$;ZR$;ZH$:GCP,ZX,ZY: D15XF999 17TT)TL$:17)"Pay $$$"$ ZF$PL$ZF$:(ZF$)A4230q ((ZF$,L(ZN)4),1)","ZF$(ZF$,(ZF$)L(ZN)3)"$"(ZF$,L(ZN)3) (ZF$,1)","ZF$"$"(ZF$,(ZF$)1) ZE260 ZF$"$"ZF$:(ZF$)ZF256 AZF4 ZF$(ZF$,A4):(ZF$,1)","ZF$"$"(ZF$O,225X:A$:ZNIM:220:FBE,ZF$,ZN,A$:SW,A$,X:CO,225X:A$:ZNTTL:220:FBE,ZF$,ZN,A$:SW,A$,X:CO,225X:A$t ZZZN:ZN.01ZN0 ZE1:A(((ZN1))):AA((A1)3):227 ZZZN:ZN.01ZN0 ZE0:AZF2(L(ZN)3) ZF$".##":PL$",%(2):L$(2)"Principal":L$(1)"Interest":C%(2)26:C%(1)15 610:16::A$"Principal paid =":SW,A$,X:CO,140X:A$:A$"Interest paid =":SW,A$,X:CO,140X:A$:A$"Total paid =":SW,A$,X:CO,140X:A$n 16::ZF13:ZNPR:220:FBE,ZF$,ZN,A$:SW,A$,X:C230,64:MENU2:CP$(16):CQ$(17):CA$(1):CL$(12):CC$(3):CIRCLE37490:XX130n PL(X)(((X.0001)))x c1010 xCL$:"Principal/Interest Chart";CC$:XR70:YR30:ZT15:ZX140:ZY71:ZC7:ZO109 TTLPRIM:W%(0)2:W%(2)100(PRTTL):W%(1)100W5. PRODUCT:Bus Vol. 18PROGRAM:Installment LoansWPROGRAMMER:Steve Splintert(COPYRIGHT (C) MECC 19852LAST UPDATE 85/04/15 MAP<32000=D$(4):510?919,1:D$(4):CA$(1):CC$(3):CL$(12):CN$(14):CO$(15)R F:16384:                     1)1,W%(2),W%(3),8:PAUSE,5:BOX,W%(0)1,W%(1)1,W%(2),W%(3),8yΟBOX,BZ,YY,EZ,YY9,8:PAUSE,5:BOX,BZ,YY,EZ,YY9,8::,,CH$:CA$:CO,0,180:CEW:L0(CH$)A(2)L1:CO,0,180:"No, try again.";CC$;CA$:40820_~WIND,T1,T2,279,181:BOX:CN$:CO:WIND:CO$:SS$"":L1(S$):(S$,L,1)","SS$SS$(S$,L,1):A(2)(SS$):>ğL13:BOX,W%(0)1,W%(WIND,C%(3)1,ML3,C%(4),B:CA$:CO:CN$;FA$;CC$:BOX,XXW15,YY1,XX2,YY8,8:BOX,C%(3)2,ML1,C%(4)2,B1,8:CO$:PAUSE,5:BOX,C%(3)2,ML1,C%(4)2,B1,8:WIND:_CA$:jL0YtBOX,A(0),W%(1),A(1),W%(3),4:CA$:CO,A(0),W%(1):INP,(A(3),"-09.",1)),W%(3),4:40900dS$TT$:40880:40810:BOX,E%(6),YY6,E%(6)E%(7),YY10,4:CA$:CO,E%(6),YY:TT$CA$:CO,0,YY10:CEW:CO,0,YY15:"= $"FA$;CC$;CA$;CQ$;:GCP,XX,YY:SW,FA$,W$VSP,1:PAUSE,20:LL13.BOX,XXW15,YY1,XX2,YY8,8:PAUSE,5:EZE%(4)E%(5) S$A$(2):40880:CA$:CO,W%(0),W%(1):"$";CA$;:40900:GCP,A(0),L:A(1)W%(2):A(3)9:40810:BOX,E%(4),YY6,E%(4)E%(5),YY10,4:CA$:CO,E%(4),YY:A$(2)40850:"OF AMT.":"OVER:":40870:BZE%(6):EZE%(6)E%(7):BOX,W%(0)7,W%(1),W%(2t0003f<ff<cc>cc>>cc>0000000t` ```````fffffff~l6iɆpq{0`0``0`00000`Z<`~~6    FM%(A,0)0:FM%(A,1)0::IV0:3110s IVMINIVMAXįCO,0,170:"Please enter a number from "MIN" to "MAX".":3040& CO,0,149:CEW:FM%(TP%,0)IV10:AFT,0,2:" ";:BOX,T1L1,VT1,T1,VT5,0:CO,0,ST:RF%1:FL%0:6215:RF%0:30200 CO,0,149:MM$;:INP CO,0,149:MM$;:INP,(6,"-09",0),IV$:CEWr IV$""įBOX,T1L1,VT1,T1,VT5,8:BOX,T2L2,VT1,T2,VT5,8:3120 IV(IV$):MIN10:MAX300000:TP%0MIN10FM%(TP%1,0)1 MAX10FM%(TP%1,0)1 MAX0MAX300000" IV300000IV0:ATP%19:0:6115:RF%0:T1P%(2):T2P%(5):NF$FM$:PF$F2$" %":L144:SW,PF$,L2:L2L25:BOX,T2L2,VT1,T2,VT5,8:2120t  TP%0:STVT T1P%(2):T2P%(5):NF$FM$:PF$F2$" %":L144:SW,PF$,L2:L2L25 BOX,T1L1,VT1,T1,VT5,8:ET0:FM%(TP%,0)0ET1,L2,VT1,T2,VT5,8:ET1:TP%TP%1:VTVT8:BOX,T2L2,VT1,T2,VT5,8:2120NpzIV(IV$):IV99.9įCO,0,170:"Please enter a number from 0 to 99.9.":2120nCO,0,149:CEW:FS%(TP%,1)IV10:AFT,0,2:" ";:BOX,T2L213,ST3,T2,191,0:CO,0,ST:RF%1:FL%0,149:CEW:FS%(TP%,0)IV10:AFT,0,2:" ";:BOX,T1L1,VT1,T1,VT5,0:CO,0,ST:RF%1:FL%0:6115:RF%0:2020HCO,0,149:MM$;:INP,(4,"-09.",0),IV$:CEWRIV$""2170\TP%8įBOX,T2L2,VT1,T2,VT5,8:ETTP%TP%1:VTVT8:2030HfETįBOX,T2IV$):MIN10:MAX300000:TP%0MIN10FS%(TP%1,0)1MMAX10FS%(TP%1,0)1d MAX0MAX300000*IV300000IV0:ATP%19:FS%(A,0)0:FS%(A,1)0::IV0:21104IVMINIVMAXįCO,0,170:"Please enter a number from "MIN" to "MAX".":2040k>CO,0:STVTLT1P%(2):T2P%(5):NF$FM$:PF$F2$" %":L144:SW,PF$,L2:L2L25BOX,T1L1,VT1,T1,VT5,8:ET0:FS%(TP%,0)0ET1CO,0,149:MM$;:INP,(6,"-09",0),IV$:CEWIV$""įBOX,T1L1,VT1,T1,VT5,8:BOX,T2L2,VT1,T2,VT5,8:21203 IV(T,1:RFL,"MECC$$DISK"704:33200:QN$ZN$D:RFL,"LITTLE.PFT"36150j;DFT,2,36150:AFT,2:FM$"###,###"uK919,1LCL$:WIND:CO:"Management Options"CC$VCA$:CO,0,89:"Do you want instructions? ";:30100:Z$"Y"İ25000`6000TP%N$(14):CO$(15):CP$(16):CQ$(17)33100:QT$(0)"program":QT$(1)"data":QT$(2)"backup":QT$(3)"spelling":QT$(4)"results":QT$(5)"word lists"FS%(10,1),FM%(10,1),S1(14),S2%(14)800REST,29000:L06:P%(L)::QYP%(5)(8ZS704:SE"FILE$: 32000h DBL,30000,34000:APP,"END ROUTINES":(4);"MAXFILES 1":36734:TF$"MANAGEMENT" WIND:VSP,1:HSP,1 MM$"Press the Return Key to accept current value, or enter a new value: "&919,1:D$(4):CA$(1):CC$(3):CL$(12):C \D$"CLOSE "FILE$:HOOK:! @ FILE$"TAX TABLES":D$(4)K 33000 D$"VERIFY "FILE$:D$"OPEN "FILE$:D$"WRITE "FILE$ A010:B01:FS%(A,B):::FE A010:B01:FM%(A,B):: A013:S1(A):S2%(A)::SE:SR:SM D$"CLOSE r:";CA$ GCP,HT,VT: D *CL$::FILE$"TAX TABLES":D$(4)Y /33000:UNHOOK: 4D$"VERIFY "FILE$:D$"OPEN "FILE$:D$"READ "FILE$ >A010:B01:FS%(A,B):::FE HA010:B01:FM%(A,B):: RA013:S1(A):S2%(A)::SE:SR:SM  CA$;:CO,32:"If Wage Is:";CA$;:CO,140:"The Amt. Of";CA$:CO,20:"More";CA$;:CO,66:"But Less";CA$;:CO,142:"Income Tax";CA$;:CO,228:"Of Amt.";CA$ CO,20:"Than:";CA$;:CO,78:"Than:";CA$;:CO,140:"Withheld Is:";CA$;:CO,236:"OveY:"-";CA$C xT10įFBE,FM$,T1,T$:SW,T$,X:CO,P%(2)X,YY:T$;CA${ FBE,FM$,T2,T2$:SW,T2$,X2:CO,P%(3)X2,YY:T2$;CA$ T30įFBE,F2$,T3,T3$:T3$T3$" %":SW,T3$,X3:CO,P%(5)X3,YY:T3$;CA$;:CO,P%(4),YY:"+";CA$: T2T2(T3100)(T1T):TT1 0  HOOK+ PRODUCT:BUSINESS UTILITIES@PROGRAM:MGROPTSgPROGRAMMERS:S.Splinter&M.PAQUETTE(COPYRIGHT MECC 19852LAST UPDATE 85/04/15 MAPb1001cd nGCP,XX,YY:CO,P%(0)X:T$;CA$:T30įCO,P%(6)X,YY:T$;CA$:CO,P%(1),Y                          port this error to MECC.":30000:id}"Please insert your Business Utilities diskette.":30000:(12):oPò0ZÃ"Savings Interest","SAV111","This program enables you to see interest earned on money deposited in several types of savings accounts. A pry"y2000,y}J }ZE(222):ZN(218)(219)256:ZE255Ĭ{}CO$CL$:WIND:HSP:VSP:CO,0,80:ZE632100}ZE832100(}ZE0ZE16ĺ"DOS Error #"ZE" in line #"ZN:30000:"2}:"Error #"ZE" in line #"ZN" in Menu Program. Please re00:AZ:A19070(<#A49A(48N)9010;F#(A);DL$;CA$;PP#9100:Z139070tZ#Z8Z127įCO,ZX,ZY:CEL:9010~d#9040n#AA48:A1A1x#XX(XX)#:#ZL11:XX(1):Z(16384):ZL(Z127)::ZZ128:16368,0:0u:u:SPACE::You may want to quit in the middle of a program. If so, press the Escape (Esc) Key twice whenever the computer is waiting for a response."WIND:VSP:30000:(#-#CA$;:16368,0:GCP,ZX,ZY:WIND,ZX,ZY,250,ZY12:DL$(127)2#DL$:CO,ZX,ZY:91 Direct inquiries to:"::" "CC$;:GCP,ZX,ZYH:WIND,ZX,ZY,279:CO:"MECC Distribution":"3490 Lexington Avenue North":"St. Paul, Minnesota 55112":"(612) 481-3527"R30000:CL$:WINDVSP,4:CL$:::"Use of Esc Key"CC$::"X,ZY:WIND,ZX,ZY,279,191:L11DP:DS$(L,L1);:L1:KWIND:::L:30000Q *CL$:CO:VSP,10::"A manual to aid in the use of this diskette is available from MECC.":VSP49:" Title: ";CA$;:GCP,ZX,ZY:TI$:PA$""įCO,ZX:PA$2>12:" L:2352L,6L269,6L:9,183L392L,183L:2392L,183L269,183L:NTXtbCL$TI$CC$:PA$""ĺPA$CC$lVE$CC$:::GCP,X1,Y1CO,X1,Y1:CEWL1NP:GCP,ZX,ZY:ZY150ZYY1İ30000::CO,X1,Y1:CEW3MN$(L)::" ";:GCP,Z:Y10:X2278:Y2191:DX18:DY12:L02X1DXL,Y1LX2DXL,Y1LX2DXL,Y1DYLX2L,Y1DYLX2L,Y2DYLX2DXL,Y2DYLX2DXL,Y2LX1DXL,Y2LX1DXL,Y2DYLX1L,Y2DYLX1L,Y1DYLX1DXL,Y1DYLX1DXL,Y1L:H1:L02:9,6L432L,6 another diskette."CC$&30000:CL$ACS(P(P(999))1)16UCS1CS7CS6]CScip}z4:21,021,1911:9,69,33:11,611,32:9,1589,185:11,15911,185:267,6267,32:269,6269,33:267,159267,185:269,158269,185&6:X10$(((975)))"."CC$:30000:20000 AS(6)5000f 910,0:SIGNALS THAT PROGRAM WAS CALLED FROM MENUq 16384 A0ANPF1$MN$(A):F2$CN$(A) CL$:HSP:VSP:CO,0,89:"Getting "F1$"...":CO$:RNH,F2$  END OPTIONCL$:11:"InsertP,8:CO,0,75:"There are no management options available.":30000:2000 AS(2)A1F1$"the management options":F2$"MANAGEMENT" AS(3)F1$"Printer Support":F2$"PRINTER SUPPORT" AS(5)Ĺ975,((975)):CL$:11:"The sound is now turned "SBNP1:4(N9):S(1)N:N". General Information"_ *NN1:4(N9):S(3)N:N". Printer Support" HNN1:4(N9):S(6)N:N". End" :GCP,ZX,ZY:ZY160įCO,ZX,ZY4 "Which number? ";:9000:WIND AS(1)İ7000:2000G MOA1ĺCL$:VS8:975,1D 230,64:24576:DFT,1,15128:AFT,1:CO$:HSP:VSP:WINDx CL$:6000:CO,0,MT:CN$TI$CC$:PA$""ĺPA$CC$ CO$:GCP,ZX,ZY:WIND,ML,ZYSP,270:CO:"Program";:NP1ĺ"s"; ":"::L1NP:4(L9):L". "MN$(L):: "Options:":/ N P(S)(S)(S1)2565 RFL,"TITLE.PFT"15128; LO VNP3:DP1:MO1 `TITLE$"Business Utilities":PART2$"":VE$"Version 1.0" jMN$(NP),CN$(NP),DS$(NP,DP) tL1NP:MN$(L),CN$(L):L11DP:DS$(L,L1):: ~  (975)255Č2476 BUSINESS UTILITIES,PROGRAM: MENUIPROGRAMMER: P. BOUCHARDg(COPYRIGHT (C) MECC, 19842LAST UPDATE: 85/05/26 MAPZ32000919,115128CA$(1):CC$(3):D$(13)(4):CL$(12):CN$(14):CO$(15)MT13:ML37:SP0          L140:WIND,0,12:BOX:CO:BOX,0,74,279,76,2:BIQI:SIYI:25000:R5BISI},QF((GL(QISI)R5)0.5):(QF2)QF2QFQF16YF((GL(YISI)R5)0.5):(YF2)YF2YFYF1(@CSCP:L12:CS1ĺ:"Q";CA$;:GCP,XX,YY:BOX,12,YY,12QF,YY7,6:FBE,FM:27000:SW,S$,W5:IT$S$:CA$;:CO,200W5:S$:"Final balance: ";:FBE,"$$,$$$,$$$.##",BA,S$:27000:SW,S$,W5:CA$;:CO,200W5:S$:26000:WIND,LA(5),B8,279,B:CA$;:CO:S$;CC$:WIND:CA$:SPACEMA16000H"XX(0):FM$"$$$$,$$$.##":GDE(1R1):YN(1)NB(1)PN(1):5300zSTDE:SI0:L110:SBST:SI(SB(1R1)N1)SB:STSBSI:PN(L)SB:YN(L)SI:NB(L)ST:CP1ITQI:BAQB:5330BAYB:ITYI-WIND,0,90:CA$:CO:CEW:1:3:"Interest earned: ";:FBE,"$$,$$$,$$$.##",IT,S$aturity (QUARTERLY).":CP1:SPACE:5170=-CP2:"Yearly"CC$U2WIND,0,90:CA$:CO[PzZRARA100:CP1N14:5230dN11nR1RAN1:MP(MP$):MP3MP.25xNQ4MP:QBDE(1RA4)NQ:YBDE(1RA)MP:QIQBDE:YIYBDE"MA1PN(1)DE:NB(1)r Y? ";CA$;:GCP,XX,YY:CO,XX,YY:INP,(1,"QYqy",1),CH$WIND,LA(4),B8,LA(5)2,B:CA$:CO:CH$"Q"CH$"q"CP1:"Qtrly."CC$:5170'(MA1ĺ"Qtrly.";CC$:WIND,0,90:CA$;:CO:CEW:CA$;"For a three-month certificate, interest":"is compounded at m";CA$;:GCP,XX,YY>CO,XX,YY:INP,(1,"-15",1),CH$:MA(CH$)REST,29010:L1MA:MP$::WIND,LA(3),B8,LA(4)2,B:CA$:CO:MP$;CC$;CA$:WIND,0,90:CO:CEW "Do you want interest compounded:"::" Q (Quarterly)":" Y (Yearly)"::"Enter Q o:RA$RA$"%":WIND,LA(2),B8,LA(3)3,B:(RA$,1)" "RA$(RA$,2)lCA$;:CO:RA$;CC$:WIND,0,90:CO:CEW"Maturity period for certificate? "::" 1. 3 months":" 2. 1 year":" 3. 2 years":" 4. 5 years":" 5. 10 years"::"Which number? 0:DE$S$:WIND,0,B8,LA(2)3,B:CA$;:CO:S$;CC$:WIND,0,90:CO:CEW"The interest rate? ";:CEL:INP,(5,"-09.",1),CH$:RA((CH$)1000.5)100:RA1RA20ĺ:"Please enter an interest rate":"from 1.00 to 20.00.";CA$:CO:5070AFBE,"##.##",RA,RA$ter deposit in $100 amounts? $";INP,(6,"-09",1),CH$:DE(CH$):CEW:DE500DE100000ĺ:"Please enter a number from 500":"to 100000.":5030CEW:DE(DE100)100ĺ:"Please enter a number in $100 amounts.":5030DFBE,"$$$$,###",DE,S$:2600:SET,1:RFL,"MECC$$DISK"704:33200:QN$ZN$7 K919,1=  CL$:1:"Certificate of Deposit";CC$:REST,29500:L05:LA(L)::L15:LL01:LA$(L,LL):::200:BOX,0,74,279,76,2 WIND0,90:CA$:CO:"You can invest from $500 to $100,000."::"En4):CA$(1):CC$(3):CL$(12):CN$(14):CO$(15):CP$(16):CQ$(17) 33100:QT$(0)"program":QT$(1)"data":QT$(2)"backup":QT$(3)"spelling":QT$(4)"results":QT$(5)"word lists" LA(8),LA$(8,1),NB(20),PN(20),YN(20) L03:FE$(L):, 8ZS704TA(0))3,31,279,58:CA$:CO:TA$(TA(0));CC$:(TA$(0))2ĺTA$(TA(0)2);CC$T ^WINDZ ` l 32000 (4)"MAXFILES1":36150:DBL,30000,60000:APP,"END ROUTINES":TF$"CERITFICATE OF DEPOSIT":PINIT:POFF WIND:VSP,1:HSP,1F 919,1:D$(CP$:BOX,0,28,279,359(TA$(0)),6:BOX,0,30,279,309(TA$(0)),4 @6:L12TA(0):TA(L1),28TA(L1),459EN(9(TA$(0)"2")): JL11TA(0)1:WIND,TA(L1)1,31,TA(L11)1,58:CA$:CO:TA$(L1);CC$:(TA$(0))2ĺTA$(L1TA(0));CC$ OJ TWIND,TA(4:0,T3279,T3:0,B2279,B2:0,B3279,B3X L2LA(0):LA(L)1,T2LA(L)1,B1: BXLA(0):L1BX1:WIND,LA(L)1,T,LA(L1)2,B:CA$:CO:LL01:CP$;LA$(L,LL);CC$:: WIND,LA(BX)1,T,279,B:CO:L01:CP$;LA$(BX,L);CC$::WIND: ,C 6O!  HOOK+ PRODUCT:BUSINESS UTILITIESOPROGRAM:CERTIFICATE OF DEPOSITfFILE: CERTIFICATEPROGRAMMER:MARK PAQUETTE(COPYRIGHT (C) MECC 19852LAST UPDATE 85/04/12 MAPb1000cRNH,"SAV111". T30:B61:6:0,T4279,T!! ! ! ! ! !!!!!!!!!             wBOX:CO:"Please type in the special commands for your printer. Type an extra 'RETURN' when you have finished."L111:CT1:HSP,2L215:42L2:6:CA$;:CEW:"PRINT "Q$CA$;:GCP,QX,QY:8000S$""Ģ42L2:1:CA$;:CEW::L25ard may be in any slot 1 - 7. (Most commonly 1 or 2.)"l9:"Which slot is your interface card in? ";:INP,(1,"-17",1),ZN$:ZN(ZN$):PP,128ZNv13:"Does your printer require any special commands? ";:36000Z$"N"ĹPP2,0:PP3,255:PP4,255:ually 10 cps)"F:"Which number? ";:INP,(1,"-12",1),ZN$:ZN(ZN$)[PP2,128(ZN1)14:"Which slot is the communications"::"card in? ";:INP,(1,"-17",1),ZN$:ZN(ZN$)PP,ZN:XNOT A COMM CARD7bBOX::4:"The printer interface c,0:kd7:"What printer are you making these"::"settings for? ";:INP,(20,"- z",0),P$:LP(P$):LP0ınL1LP:PP106L,((P$,L,1))::pSET COMM CARDzBOX:3:"You may use:"::" 1. High speed (usually 30 cps)"::" 2. Low speed (usinterface card (such as a serial or parallel card)"}WIND,Q1,Q2,Q3,Q4:::"Which number? ";:INP,(1,"-12",1),Z$:ZN(Z$)ZN6000,7000PP1,66:BOX5200:D$;"BSAVEPRINTER COMMANDS.BIN,A"PP",L128"PID FIELDZL120:PP106L11:" Printer test complete.":30000^WIND:CO:"Printer Support"CC$:WIND,Q1,Q2,Q3,Q4:sSET NEW OPTIONS3:"You may use:"::" 1. An Apple Communications Card":3" 2. "CA$;:GCP,ZX,ZY:WIND,ZX,ZY:"Any other type of printer L128" 30000:(TEST THE PRINTER]BOX:9:"Please prepare your printer...":30000CL$:9:"Testing the printer...":D$"IN#0":D$"PR#0":PINIT:"Printer Test":I13:J3295:(J);:::J96127:(J);:::::FEED&POFF:24576: :" Type of printer:":HSP,2::7:L120:((PP106L));:::HSP,1:d RETURN TO DEFAULTS  8:"Now returning the printer settings to"::"their original state (slot search)..." I0127:PPI,0: D$"BSAVE PRINTER COMMANDS.BIN,A"PP",P,2&t L115:(PPCT)0L15:2470[~ 7:"PRINT "(34)CA$;:L211:P(PPCT):CTCT1 Z(P0P13P32):ZPP64::GCP,X,Y:BOX,X1,Y1,X6,Y7,3 L2(P13):PP21L2:(P)CA$;::ZįCO,X9,Y L2: L1:HSP,1: PRINTER TYPEK second)."% ::(PP107)0İ25002 30000:@ USER SETm  CO:"The current printer settings are:"  :" Slot: ";(PP)128:  (PP2)0İ2400 $ (PP107)0İ2500 . 30000: ` PRINT SPECIAL COMMANDSj " Commands:"::CT2:HS30000: COMM CARD 3:"This diskette is currently set up to":"expect an Apple Communications Card":"in slot #";(PP);".": SD$"LOW":SD10:(PP2)127SD$"HIGH":SD30 7:"The speed is set to '";SD$;"'":"(usually ";SD;" characters perTINGS$ JP1((PP)0)((PP)127)= JP2100,2200,2300:K 4DEFAULTS >5:"This diskette is currently set to the"::"default setting, which is to search"::"slots 1 and 2 for a recognizable card"::"each time the diskette is started up." Ho their":CO,38:"original state (slot search)":V " 4. Test printer settings":w " 5. Return to main menu" $::"Which number? ";:INP,(1,"-15",1),ZN$:ZN(ZN$) 8BOX:CO:ZN2000,5000,3000,4000,31040 BL00:L0 CHECK CURRENT SETV 24576:WIND:CO:"Printer Support"CC$:Q10:Q220:Q3279:Q4191:WIND,Q1,Q2,Q3,Q4` MENU L011:BOX:CO::"You may:": " 1. Check current printer settings": " 2. Change printer settings":1 " 3. Return printer settings tb PROGRAM: PRINTER SUPPORT<PROGRAMMER: P. BOUCHARDYCOPYRIGHT (C) MECC 1983y(LAST UPDATE: 85/03/29 RPB 2HI-RES VERSIONdINITIALIZATIONxD$(4)::P(19) PP(948)(949)256:CA$(1):CC$(3):CL$(12):Q$(34):VSP:HSP,1"" " " " " """""""""