L%hh LHH` X% " ӠӠΠǠ ˮԠˠǠӬĠӠ٠٠ϠŮ+JJJJ ,,,L Lک ٥ҥ>ӥ? ( ㆭ  ؆` | A""""""QQQYV <"<Q '(h((QQQ`@GHOHO $"!$q}T@` `@@``p0 8p@@`00 |0@` `pppPox`D3 < p?|@@@|@`f ppn|>0p  qcs6<, 3['Nxxxpp0` ```@vl  ?`@:3q  AcqcCyO@  0p`@@q @p?|`3cC ? ?>|xp`p`@Acwsssssss__????????~^^ ?~~~~~~~?>~||xpp`@~| xyy{~|@`pp xpp`@yyyyyyyx~ ~x`|xpxqa` cqx|||||||cCC?>>>??<<|||~?`ppxx||<||xxpp`|||||||| |?|p`@@@@`p|? OOGgccqpxsssssssppxxx|<<~?>~||xxxxppp```@@@`?~|x|~|||||||p@@p|~><|xp`@>|x|xpx}yyyyyyyAA?~|xpp`ppx|~? ?? 33@``@@glloLL LlOgloloG @`@glolo@@gLLL GaamGGlg`GGlg`G  xL| x@@xMLLxMyyM MyxAxMx|Yq @lllLglllgG LlL`@GLOLo033366m~0>3>33~G<`G}rccb``acccq{{{{8008????~ |lL COoooog CgoooocCFFLLXXPpqa88`}}}}>????~ | ~FCCFL ____|GG|GGccp{{{{ ;1q``qp`aas{{{{8008 0y| |}}}}AAQg((h' $C@0j ed`y < I1@@q q s8EE9EE8> ` `$DC0ANPQN@'h(' WPG((H@stq q8AyEx:NPQ@GhHHG#$p# @ (*Y9AyEy: QQQO~C%%C~_DDD qAAAaq9`ppxxx|xxx|AsGN8088 Ccˆʎõĵ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 iõ`  \ 濭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- ( t Ϡ@跻~!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䵍䵐`"L ŵ8ŵH ~(` d ֠z# u`;:16368,0:UI$:UI$:*# AA$"Y"İ5990K# UI$"Y"ĺ:::1290::::^# AA$"Y"ī3600q#UI$"N"ī3600{#::#R1PN#$936#.6710#86690#BPP$(R)#VRE#jRJ#~O#OJ#T#W#A#I#Y# DI$: ** WRITE TO ACCUM LEDGER]"p " HIT ANY KEY TO CONTINUE ";:16368,0:V$:V$;:V$""::f"z 190p" 936z" (10)" "ENTER EMPLOYEE NAME: ";F$" 1010" " "OUTPUT TO PRINTER ?";:16368,0:AA$:AA$:# "OUTPUT EMPLOYEE INFORMATION "** ENTER INFO ON DISK%!: R123200.!D 1506!N R0E!X B138:170l!b PN: *** LAST PAY PERIOD RECORDEDu!l 180~!v RPN! 6710! 6700! PP$! RE! TZ! O! UY! T! W! A!4 I!H Y!\ DI!` FW!f 180"k 7000) UWTDT 34)"------"6 "TAKE HOME PAY";K U10XX4:3070a U100XX5:3070x U1000XX6:3070 XX7 40XX)(U)".";:(((100(U1)0.5)),2)  34)"======"  AA$"N"ī3120  XX117::XX & AA$"Y"İ6050!0 "NET INCOME";#T TH10XX4:2940:^ TH100XX5:2940Rh TH1000XX6:2940[r XX7| 40XX)(TH)".";:(((100(TH1)0.5)),2) "MIS.DEDUC"; T10XX4:2990 T100XX5:2990 XX6 40XX)(T)".";:(((100(T1)0.5)),2".";:(((100(Y1)0.5)),2)0 25)"------"@ TDADIIY] "TOTAL DEDUCTIONS ARE";s TD10XX4:2840 TD100XX5:2840 XX6 40XX)(TD)".";:(((100(TD1)0.5)),2)" THWTD, 34)"------"6 AA$"N"2890@ J 850M1R3Y.10ST28:2710: ST370Y.05ST:2710a ST370ST1020Y.075ST9:2710{( ST1020Y.10ST35 Y(Y100.5)100 Y0Y0 "OR. STATE INCOME TAX"; Y10XX4:2770 Y100XX5:2770 XX6 31XX)(Y)34 I(I100.5)1002 "FED INCOME TAX ";G I10XX4:2530] I100XX5:2530f XX6 31XX)(I)".";:(((100(I1)0.5)),2) STW26(30K) ST185M1R3Y.06ST:2710 ST185ST850M1R3Y.07ST2:2710 STG454I(.18(G275))26.25:2480Q~ G454G625I(.21(G454))58.47:2480 G625G800I(.24(G625))94.38:2480 G800G983I(.28(G800))136.38:2480 G983G1204I(.32(G983))187.62:2480 G1204I(.37(G1204))258.0/. G425G592I(.26(G425))67.77:2480^8 G592G717I(.30(G592))111.19:2480B G717G938I(.34(G717))148.69:2480L G938I(.39(G938))223.83V 2480` G100I0:2480j G100G275I.15(G100):2480#t G275"DISIBILITY INSURANCE";J27)(DI)".";:(((100(DI1)0.5)),2)]GW(K41.66)lM2ī2400 G59I0:2480 G59G138I.15(G59):2480 G138G283I(.18(G138))11.85:2480$ G283G425I(.21(G283))37.95:248(W)".";:(((100(W1)0.5)),2)2WFWW(DSDM)A\AFW.0665WfA(A100.5)100pp"FICA WAGES"19);FWz"SOCIAL SECURITY TAX";A10XX4:2200XX531XX)(A)".";:(((100(A1)0.5)),2)DIDS.08DI(DI100.5)100UY10XX4:2000,UY100XX5:20005XX6f31XX)(UY)".";:(((100(UY1)0.5)),2)s TMDSDM "MEALS"19)TM25)"------""TOTAL INCOME"; W10XX4:2120*W100XX5:21204W1000XX6:2120>XX7!H40XX)]Ǡ]ˠ]?]àέԠ̠̠ͧӠĠ٠ ]&]ŠӠɠ̠Ǡ+ ]ĠΠҠ͠Ҡ ]٠ΠĠ@9()r$D0\Ba@E@E@#D`.?6?r$Nd6?e_  NY_ AQ>BUVW$d.?Jr.?Kre=>r=>rY7Cq.?%roPa()GPa()o[Q]ˠǠ]ٺΠ9Pa(ԠϠŠĠ)GM6dM6-q.?6@r`$d6?e`$ ;PM6da()E@E(ǠˠԧçϠ)GM6)qUVWq8r̲I&q=>r`8 8@9()@9()rr8(Z91)0.5)),2)%3"OR. STATE TAX";;3T110XX4:5570R3T1100XX5:5570j3T11000XX6:5570s3XX7333XX)(T1)".";:(((100(T11)0.5)),2)3"DIS INSUR";3T210XX4:56103XX5433XX)(T2)".";:(((100(T21)0.0XX4:5450#2,Z8100XX5:5450;26Z81000XX6:5450D2@XX7u2J33XX)(Z8)".";:(((100(Z81)0.5)),2)2T"FEDERAL INCOME TAX";2^Z910XX4:55102hZ9100XX5:55102rZ91000XX6:55102|XX7333XX)(Z9)".";:(((10001Z61000XX6:536021Z610000XX7:5360;1XX8l141XX)(Z6)".";:(((100(Z61)0.5)),2)1Z7Z6.009āYU110:(7):YU:"ERROR IN TOTAL INCOME"1AA$"N"ī53951110:"FICA WAGES "T61"SOCIAL SECURITY"; 2"Z81100(Z41)0.5)),2)%0n"MIS.DEDUC";;0xZ510XX4:5290R0Z5100XX5:5290j0Z51000XX6:52900Z5100.00ĺ26)Z5:53000XX7033XX)(Z5)".";:(((100(Z51)0.5)),2)025)"--------"0"TOTAL INCOME";1Z6100XX5:536Z21)0.5)),2)'/"TOTAL O.T. HOURS";@/ Z310ĺ21)Z3:5170Z/Z3100ĺ20)Z3:5170u/Z31000ĺ19)Z3:5170/(18)Z3/2"TOTAL COST";/<Z410XX4:5220/FZ4100XX5:5220/PZ41000XX6:5220/ZXX70d33XX)(Z4)".";:(((*" .:"."TOTAL REG HOURS";<.Z1100ĺ20)Z1:5050W.Z11000ĺ19)Z1:5050c.18)Z1v."TOTAL COST";.Z210XX4:5110.Z2100XX5:5110.Z21000XX6:5110.Z210000XX7:5110.XX8/33XX)(Z2)".";:(((100(-.:-8R1549400-BI140:"*";:I::8-L:B-V936-`12)(PP$(1),2);(47);(PP$(1),3,2);(47);(PP$(1),5,2);(32);(45);(32);-j(PP$(PN),7,2);(47);(PP$(PN),9,2);(47);(PP$(PN),2)-tAA$"N"ĺ:5010.~12)"******************Z4,Z5TZ5,Z6Z2Z4Z5+,Z7WZ77,Z8AZ8C,Z9IZ9O,T1YT1\,T2DIT2i,T3TDT3v,T4SZT4,T5THT5,T6FWT6,RE0:RJ0:O0:OJ0:T0:W0:A0:I0:Y0:DI0:TD0:SZ0:TH0:FW0,R,AA$"Y"İ5990-$AA$"N"49500.5)),2)+*32)"======="/+4AA$"N"ī4700=+>::::P+HAA$"Y"İ6050b+RAA$"Y"4710+\" HIT ANY KEY TO CONTINUE ";:16368,0:V$:V$:V$"": ** WAIT FOR SINGLE KEY INPUT+f:+p936+zZ1REZ1+Z2RJZ2+Z3OZ3,Z4OJ0*SZ100.00XX5:4560$*XX6X*38XX)"-"(SZ)".";:(((100(SZ1)0.5)),2)e*THWSZt*R154730*33)"------"*"TAKE HOME PAY";*TH10.00XX4:4640* TH100.00XX5:4640*XX6 + 39XX)(TH)".";:(((100(TH1)DI)".";:(((100(DI1)0.5)),2)3)TDAIYDIB)&R154510T)("MIS.DEDUC";l))T10.00XX4:4396)*T100XX5:4396)+XX6),32XX)(T)".";:(((100(T1)0.5)),2))26)"------")SZTDT)R154570*SZ10.00XX4:456X";(I10.00XX4:42901(I100XX5:4290:(XX6i(32XX)(I)".";:(((100(I1)0.5)),2)("OR. STATE TAX";(Y10XX4:4340(Y100XX5:4340(XX6(32XX)(Y)".";:(((100(Y1)0.5)),2)("DIS INSUR";")28)(4:4180'@W100XX5:4180''JXX6V'T39XX)(W)".";:(((100(W1)0.5)),2)o'^"FICA WAGES"19);FW'h"SOCIAL SECURITY ";'rA10XX4:4240'|A100XX5:4240'XX6'32XX)(A)".";:(((100(A1)0.5)),2)("FED. INCOME TA1&32XX)(OJ)".";:(((100(OJ1)0.5)),2)C&"MIS.DEDUC";X&T10XX4:4120n&T100XX5:4120w&XX6&32XX)(T)".";:(((100(T1)0.5)),2)&DSDI.08:TMDSDM&""MEALS "20)TM;26)"------"&,"TOTAL INCOME";'6W10XX3950%d20)RE%n"COST";3%xRJ10XX4:3990J%RJ100XX5:3990S%XX6%32XX)(RJ)".";:(((100(RJ1)0.5)),2)%"OVERTIME HOURS";%O10ĺ21)O:4030%20)O%"COST";%OJ10XX4:4070%OJ100XX5:4070&XX6FW $180$R154380.$(AA$"Y"İ5990$2"PAYROLL PERIOD - "20)(PP$(R),2);(47);(PP$(R),3,2);(47);(PP$(R),5,2);(32);(45);(32);$<(PP$(R),7,2);(47);(PP$(R),9,2);(47);(PP$(R),2)$F"("R")":$P"REG HOURS";%ZRE10ĺ21)RE: !#%'*,.1368;>@CFILOQTWZ]`cgjmpsvy# !" #`#&/'$% #`|yvspmjgc`]ZWTQOLIFC@>;8631.,*'%#! PIȄR-QTU/T8ePT ?UeRU @QJJJ`ŴxaI1S-Q/ ?QJJJ`& ')*& *'JJ) **- m- ʥ0J)m-)(`)J Ji,`#" ! &#` LR*fS8PQ+- 8TeRTUU+5&E%0Q&&S [TePTUeQPF0'@0- &`0(Q) &E%0Q&&QeS)j00',"&,i8i#H&ii&hif&i'`'i,&i,&iPII&.if&JJJJS)%5-$'%.> $9'+-%9??'- - $$$-??--->??7- ) .WSP.)`*()H)&JJ&&h' &' &' f&') .'#i-|0J, i` @ &Q&%0Q&&`H()*hH8(H)S hIiHSQUhPTh()*Iiˠά 66$--$66")-2?:2----63+6;?81  ??$!!166. ??6--26;?   ?66)%!? --6333. $)-2?6)-  9?$)-26? "166>- - $$?66 666;'3 )-266;'#$$ ***666$,   - ??---?? - $-.,'7??><q7q[qAq[qQq[qcq[qxq[qq[qq[qq[qq[qq[)q/?4r`-r$-rq[]Ԡ׮ӠĠER ***$AA$"Y"İ6050&7HT10:T20:T30:T40:T50:Z10:Z20:ZCTIONS";525)"--------"55Z5T310XX4:5820O5Z5T3100XX5:5820j5Z5T31000XX6:5820s5XX7540XX)"-"(Z5T3)".";:(((100((Z5T3)1)0.5)),2)5AA$"N"Ģ(20)533)"--------"5AA$"N"Ģ(21)6"TOTAL TAKE HOME 5)),2)O4T3Z8Z9T1T2.009āYU110:(7):YU:"ERROR IN TOTAL DEDUCTIONS"4DT5T3Z6.009āYU110:(7):YU:"ERROR IN TAKE HOME PAY"4N"MIS.DEDUC";4XZ510XX4:57604bZ5100XX5:57604lZ51000XX6:57604vXX75"TOTAL DEDUJ?>ʊ:>Ș;k/=:   S;:L 4 40K14 L= BC D..=D5֤4 J :3 g ɠɤ ɓՊ x= 4   &B&C= 44ݴ 4ݺ ɤ4&D`L# ȱ0` 4 `u` 7$ 8`0 &&` { %Ppĥ uv` 2e   %F8 2 8Hh&&&&& 0hhI`LLLHxܥyݥPQLuƵPxLhQεyϱΠ L 4) ؘ 甠` uHɃLh` ☪ T`  甠`ѥ΅ ΅ҥυө 甠0ХҠ ӕ "L 4i` F`ٚ .L 4 `$$L$Ն$L,L 8!$ L赟0L0ܤ } L赟L0ܤ } L ` ` [ S oP YVPL6 O 5OPL Ι_LfP0Q@PPxA@QPa`qp`HP8εxh`Ʌ۰եڅʥۅ , ` :L΄<Ȅ>=?`ʕ>?>`8M˕   , ` L:L``F`$ ܪȱ 婠Lܤ`Ś25 a0 穠LJKH۰hЅѠȱ0@ȱHШhh0JL JLKMMLILLILLLLy 2L,PQ܅x݅yL آ8ЕNЕKʵ˕ە LkLMNܕ`LΥΥLMLʥMː ʥ˰JυKL  8MϕڥL 4΅` ȑ` l΅υLD L4 xPiڄeΕPeϕxPȵxڰL# N ONi)OO i@ &N&O ϕLz JKLυML LMJυKL qL ȩ` 6 6P`JLKMLxL L6 L[` Oڵw۴Nv L`xw8OPL# (` 40!(L 4LdF`  %L"wL{ TL~&&&ڥې څΈ` l 4Ȑ,` 40L 4Ȑ-` 4(L(n ㊨ rLa ?&0ΰ` Δ䮥G 0 #gMghghPcQ)Wqqqqhhq`uuuQ줰䮲륥Q9O/Q) WjB`O~5'Q 䯭䮡ޜݜݞGg` ` `嶡䡯z~" `P O䯭䮡𥴳\@`` ~3`Gg壡yi壡yi` @Gh X{gggggg'(dgxkg~9g'7(*7ϠGX͠LϠ٠SGϠDĠHSĠNSĠTĠ 5EMҠL Šō?FِLϚΠ κ f ٢  ٦Τ ȹɀI ȄȹH h3 oLB oTMɅ"3J[NSJIfmzq# [$NYP;#o6#"#!0 9@0Ӷ:Pyإ<[(N>W']5Kgvq ʤ  Y YoܹݾЇ`TP@xL` Ιϙ_oܙݙᙯ` ??<<<<<<<0UUUUUUUUWΤ PڵxۥΑȥL`hh$ F`` %ֈ`ʤZA^ܙ ݙ0  m7;܄iȢٚ . y$IqܤݐLM͠1FLJܹ/ݾLuc ܪȱ L[ĨP?xO_ڹo  l`w0P`fLPεϵxϱHȱ΅hΈ` J  畠P` Y $0`  畠$0 8 P# o ΅ڥυ e epݕ` 4LL$ `  rPՆϦ ` ΅υȩ ` Ӡȱ0I@iHeШiH˰hhЈЈ͑Ј̑ЈЈ0JKЬ@iHe eѕxh$0 xx ԅբ H 0  敠$ ( x$0  xx 0$FԨֹ)U h)װ H ֐ι LhޤȄ h󰩠ɩch cɰ$0 $` d'ʅ˅LM&ȱϰqȥȥ`FLʥM˥J̥Kͩ`Lkȱ0@hJHȱШhЄ0)ȆȘHJI@hL`ȩ)?Jжi?oiO iȱ) zȵх 8 05X~")XȔ) v*Ȇ0LJɢ  Ȉ ϴX)HЄ ȹ)eHe0 ̥͐Eʑ˥ʥ˰ਈ$ u~q  u  mʥ` ȹ0 L uߙ`` $0LL*iS 0wh(VP`΅h(OM L6 T&ϐ eڅeۅ &L~ 畠(LoU [΅ڥυ   o ` l3 3` 4J G 4&(JJJJ) 甠` F٩ $ 婠 Ȣ ii)ɰLPx+L 4P xL# 48` PxL PeHxeH˰iکeۅȱhڙ`ꠀЕ x ت3 Q3ؕxQεy NvNδPPPL#Q8yڅ`Sε{ϵQڵyxȔPMuHOL L3L`) #L $  `  v mL;ʅ˅LM  mdžة * * *     % 0LH΢QPHΪ0h$0 )?i h](Њ q L H ϐ { lhHHH hHL? hυυ Ljݥ ,L mݰ % LߩƉ 慝 憨80 ў*%L L ު `  }LޢٹHH ޥLLޥШh^^h_H r륡HHHHHl^h#d j݄hJhhhhhhE` LJ }d.U"i L=8,LLTҐL {ݩ),(,,ѸLLԠhhL ߅` ȱLL  ߅ ei` 꺽  ' 8 uvL׊i , {$8$0`LԦƹƸ$HH `ީ 8ϐ*IEʼna Lݦ,{iweLi^ e^hٲаg jH hV_F*ƹƸٲаH $P )0 Z ۆ $1$P 膸 ": ,i = {LrH0h J c ,Lqۥ 3 LۥL Ȫ*ȱ_ȱ{ȱȅ| L+ܥLSؠߠL:`?EXTRA IGNORED ?REENTER  \I`$ !i)$ )L(ʊ$ L W 檠^ \ LD۩ ,? ɠ )H h`0{|uvLh$L :ۥyz` @ `" ީ; =L Z , ,խLc ZL,զ}~, ߅hL* ,h`PQ/ Q^ԥP &^ &^ePP^eQQP&QPe PQ L ߅ ޥHH {h* mh r ȥ`L'hpoj iLڠ 㥌 婝 5ȱȱ` = $)94,;D {$0 4 Lک?`gh<=ij>?`v(Le lL5٩ ӥHHvHuHH >L ٥vQ 8egh ֐` eӚɰ ,ZLLhhB;uhvhh ٘e`:,  "hhh` { ɫ ޥ L>L( HɰɫЉơ$v# \ۦuv $ W (Lb-逐@ HHLLF:L8gh}~`Ƀ` Sբ$Lׅ ׅLԱJHȱJh`LNפ0`L,׈L20`LF׈LL ׅJF8ȹe8ИL`Lø{{ttmnghab\\WWRRMNIIEEAA=>::673401..+,))&'$%"# !H ֥ h ߦ>  E֥ E & > ` E  E  H ֥ h ֥  ֥ -L L -EF# =Pi  ֤Lְ ׅ! ׅ  / ) ) "&6 B /`TLՆ8M˕  Tբ , Tզ`  . $ ; E.. 4L& >`Lk 34 Lh856!;<79)F:&8J9j*0v 婭   +<; LhLk'cg=%;!,<+k,w(gG gG]$ t < N8i| (|`ܠLդ4ɪ 4<`<  $ H h .Ю#` L}Э%J u ӊH Өh dѮ#` L Q ;Ү#` Q Ү#`#2 Ӎ'( H() 91 eȱm)h`JJ`#JȱJLh `#  <(eΨ=)eϰ%Hh>?iJK̅  #& ')*& "'JJ) ""% m% ʥ0)J!m%! `JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ`JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ` ӥ',"&,i8i#H&ii&hif&i'`'i,&i,.&iPII&&if&H !"hH8 H!S hIiHSQUhPTh !"IiR"fS8PQ% 8TeRTUU&E%0Q&&kS TePTUeQPفŴxaI1( &WSP& )`" !H)&JJ&&h' &' &' f&') &'#i%Ѕ0J$)` .ХQ&%0Q&&`$0JI0`'0% I`0 I0ܩ(ߠQ)'%01&*%0Q)&E%0*Q&&QeS)j00           ààH /Ѽdd`dЅ deԄ8ҍӍd`D}Tߥ҅ީd LԦ}dҍ` ǠҠÍǠԠÍϠٮɆ0&⽌D}T L֠ $Ȅф(0PLddLԩՠԑihL* ۄکڍ ȱڍ `D`ߠ h  *L`,0,0I,0`d hhLd t Ld L di#Ld)ʽdʽdȄф L Pd0G  @dd0 RHDThЮ$0lp  :DL DLld 4ILILHUЍ`(S(L Lީߩ$, Lީߩ$hL  % "  hH ބ ބߩdҩ Ȍ   B(20((A$)2)):B0B1( B:A$:D)  :D$(4): CTRL-D92:A$"APPLE II":1000j(4:A$"DOS VERSION 3.3 SYSTEM MASTER":100027:A$"JANUARY 1, 1983":1000<D$;"BLOAD LOADER.OBJ0"F4096: FAST LOAD IN INTEGER BASICd(4);"BRUNMENU" CENTER STRING A$  U(I)TEST>IHLOWER BILLS WON'T RAISE CONSUMPTIONN  2ND FACTOR IS POTENTIAL FOR DECREASEp DUU(I)V(I)UL(V(I))301000 3RD FACTOR IS RANDOM AND SCALING DF(1(3)).3*DUDUDBDF4U(I)U(I)DU8TESTUL(V(I))301000V(I) 9U(I)TESTĺ"*";:*********************- EFFECT SUBROUTINE[ EFFECT OF HIGHER BILL HAS THREE FACTORSiM2M:S2StI1PU1(I)U(I)B1(I)B(I) 1ST FACTOR IS INCREASE IN BIL CURRENT BILL IS 3 DOLLARS PER MONTHDBB(I)3#DB0830: MS)UTUTU(I)*S1((U(I)M)S)29S10610C S21RS14S14b&U1U(I)MSn0S1S11z5S2S21:S10B(I)B(I)U1(AS2K):610DB(I)B(I)S(AS2K)NU1U1SX560bBTBTB(I)dIlv **********;" GALLONS/MONTH"-"MEAN USAGE =";M21000Q"STANDARD DEVIATION =";S21000W] ******************************* BILLING SUBROUTINE CALUCULATE BILL FOR EACH METE BASED ON PROPOSED SCHEDULBT0:UT0I1PB(I)A((J)UL(J))(2))301000J.; RUNNING TOTAL;@TTU(I)OJS2S2U(I)U(I)VTIkY MEAN (AVERAGE)v^M2TPc STANDARD DEVIATIONhS2((S2PM2M2)(P1))r"A POPULATION OF ";P;" ELEMENTS HAS BEEN CREATED"" TOTAL USAGE =";T1000 PER PERSONM 3,30,100,13,40,120,33,40,140,83,60,150,97,50,130,100,40,120lI16:D(I),UL(I),UU(I):wI1PX(1)100J16XD(J)ĂJ SET FAMILY SIZE"V(I)J,N(J)N(J)11 SET USE BY HOUSEHOLD6U(I)(UL(J)(UUS" H " > THAN ";((M3S)100)10;" ADD $";A3K;" / 1000 GALS"N T z ******************************* MODEL SUBROUTINE DATA TABLES HOLD PERCENT OF POPULATION WITH N PERSONS/FAMILY  FOLLOWED BY UPPER AND LOWER DAILY USEMAXREVAAMINREVBT:D0$ PD24* TQ U ********************************s Z" RECOMMENDED RATE SCHEDULE" d" < THAN ";(MS)1000;" GALS = $";A(MS) nI02 x((M(I1)S)100)10;" TO ";((MIS)100)10;" ADD $";AIK; y" / M GALK:U2UT, 0 ADJUXT K FACTOR TO MEET TARGETO 2KK((KKL)(UTUL))(UTTAR)_ 4KLK2:ULU2o 6UTTARD0 7UT0.95TARD0 : IF REVENUE TOO LOW, RAISE A FACTOR <BTMINREVAAMAXREVBT:D0 D IF REVENUE TOO HIGH, LOWER A FACTOR FBTL POPULATION SS2:MM2( A1S:KA= " A=";A;" K=";K^ 460: BILL AT CURRENT USAGE 700: FIND EFFECT OF HIGHER BILLS #460: PREDICT NEW BILS $"CONSUMPTION=";UT1000;" REVS.= $";(BT100)100 (D1 *I1P:U(I)U1(I): -K248 P100, U(P),U1(P),V(P),B(P),B1(P)G D(6),UU(6),UL(6),N(6)\ MINREV825P275q MAXREV900P275 TAR2500P275 " TGT CONSUMPTION= ";TAR1000;" GALS/MONTH" "REVENUE FROM $";MINREV;" TO $";MAXREV  200: CREATE A MODE :35);"ESTIMATION OF RATE SCHEDULE TO"[6);"ENCOURAGE WATER CONSERVATION" AUTHOR STEPHEN P. SMITH, STATE COLLEGE PA MODIFIED BY KIM CIMMERY, 1365 KATHY ST S, SALEM OR 97302  SOURCE -- PERSONAL COMPUTING, JUNE 1979, PP 43-        àưĠΠŸ)/xUVW<de<@*rrYdHeM6/d6ed7e]ԠנҠM]ӠҠϠ4deQ]Ԡ̩ĠҠ+]ŠŠҠέà ]ǠŽĠҠ*a(ϠŠĠŠŠħ)]̭ŠΧǠ ]ƠĠΠ N@"<r ]ĽΠҠҠ]٠ŠEn@p(ưŵ  %@p()`;@r%bG`;@r%a@G^`%@p()`%@p()`%@p()`%@p()a(Ơ)E@G[qq[qq[qq[qq[qq[qq[q%q[<@*#rr`%q`%q `%q `%q `%q t` %q` $`%q`%q`%q`%q`$q [j@p()`%@p()` %@p()` %@p()` rd!e8rd"e$M\d$ed%ed'e M\d$e'd%eM`%d,eOUVWd ed!ed"e Md"eMY[qqq6bq`;@r%[q"eMd"e&MYkd,ed"eMd ed!eM`%[d e8rd!e8rd"eiMq \d$ed%ed&ed'eMq8r \d$ed%eMid e8p()`%@p()`%@p(ΠŠԇ)/^a(ŠҮՠ)E@G`%a()F1?rQIcd2e?a(ԧӠΠ̠š)d2e_ nd,e`%d,e`%d,eUUVWd ed!edqqxq`%q\s[`%q-rqYqqP`%\`$ `$]UVW-rq6-r`-r%qY>\`$]qqx\q6qP\@p()_ f]`-r-r-r-r%q@UVW`-r-r8-rr$Qqq( q`%qQQY`$q6UVWxX`-r -r-r$RqqqxRY`$_ceZqqqUVW`-r$[q6-r-rqUVW`-r%q`-r$qq q6-r-rq`-r$Ld,eUVWd ed!ed"eMd"eMY\qYY_ (Fq`%[`-r$F[^Pqd"e&Md"eMMYqkq-rq-r-rqq`-r$-rqq`%qqqKqq-r`$` %qq -rq\_UVWxXq-r%qY`$PZq-rq-r`  1?  r1?  r$cqqWq`%q-r`$qq `%q\\d,eUVWd ed!eq`-r$qqqqWY`$ca(ҠҦԯΠӠŦǮ)a(Š)G\S(Ͽ)&@c`;@r$P\`$cqUVW`-r-r$q\Fq q2Y`$UVW`W\q6-rq\YcT a(ҠҦԯΠħӠή)S(ԠĠϠՠԠϠſ)&@W `;@r$Z\`$cq6UVW`-r$q\Fq q\YqUVWX6`6-r$ Moa(Ǯ)GUVW-rqY-rq -rq-rq'UVW4-rqYa(Ǯ)q UVWUVW`$ q\-rq6`%-rq`%q6`%q \q; YYqqPUVſ)&@`<@r$la(ՠĠΠŠӠՠŠˬՠŠҠȠĠĠΠŠŠӮ)q64zcS(ҠӠ٠ҠҠĠԠƠӮԠĠƠŠȠΠӮȠΠϠή)&@x5  ;qqqqqqN@"rD4rD44rbKM6Pa()ca(Ġ٠ԠӠĠĠƠˠάӮ)ScS(ϠՠԠϠ٠ҠŠϠ          ˨űųĠ̍Π̠ύ LOSE"ITO PREVIOUS VALUEa CALL THIS ROUTINE WITH A "RUN 500" TO CREATE AN EXEC FILE TO CLEAR PAGE 2D$(13)(4):D$"OPENSCROLL.EXEC"D$"WRITESCROLL.EXEC""IFPEEK(104)<12THENPOKE104,12:POKE3072,0""BLOAD SCROLL""RUN SCROLL DEMO"&D$"C6)256:104,(AD256): PSEUDO-MOD FUNCTION FOR 103;AD=NEXT STMT TO BE EXECUTEDa KEY(16384)r KEY127400 16368,0:KEY136Č831:400 KEY149Č736:400 16300,0: BACK TO PG.1:"BYE..":103,LP:104,HP:: RESTORE PGM POINTERS REEN PAGE 2 * HAT ANY KEY FOR PG1":5:41,(41)4:"<-USE ARROW KEYS TO SCROOL UP OR DOWN->":6:41,(41)4:" " |6,LP:7,HP: SYNCHRONIZE TOP & BOTTOM OF SCREEN POINTERSO AD(121)256(122)1:103,AD(AD25PG=2 AND MODE=NEW DATA5 T16299,0: SWITCH TO PG.2i ^I125:736:I: BRING A PAGE FULL ONTO SCREEN h2:41,(41)4:" ":3:41,(41)4:" YOU ARE NOW VIEWING PROGRAM MEMORY ON " r4:41,(41)4:"TEXT SC NOW LET'S SEE":"HOW A LARGER BLOCK CAN BE VIEWED": ,"(USE ARROW KEYS WITH REPT KEY TO SCROLL":"ANY OTHER KEY TO RETURN..)" 6:"PRESS ANY KEY TO PROCEED...":A$ @8,LP:9,HP: SET SCREEN BOTTOM POINTER TO START OF FILE J10,8:11,1: SET IS AN EXAMPLE OF SCROLLING ON PG.1"4 I1500:IS I15:736:I: SCROLL UPc I1500:I I110:831:I: SCROLL DOWN I1500:I I15:736:I I1500:6 ":"THAT WAS SCROLLING WITHOUT BRINGING NEW":"DATA ONTO THE SCREEN.9 SCROLL DEMO/CALL -APPLE/JUNE 1980/BY ROGER WAGNERQdLP(103):HP(104)unHP11ĺ(4)"BLOAD SCROLL":200x(13)(4)"EXECSCROLL.EXEC":: CLEAR PAGE 2 FOR ACTION WITH EXEC FILE10,4:11,0: SET PG=1 & MODE=SCROLL ONLY$ :12:"THIS   "H (*)+!hi# H (*0 (!L(!e!ie! i L8#H (*)+!h"0 H (*0 (!L(!8!8! `% e (`HJ) )h)i( ((`." "SACC #2 DISC INSTRUCTIONS"|"PLEASE CONTACT SACC WITH ANY CORRECTIONS OR IMPROVEMENTS REGARDING THESE PROGRAMS:""PROGRAM LIBRARIAN - SACC"("P.O.BOX 12039"2"SALEM OR 97309"<"ED (503) 581-2687"d(774,198:775,7l776,240:777,8:778,202:779,208:780,246:781,166:782,6:783,76:784,0:785,03:786,96r DEANSWERVTVB41104 SUBTRACTION MODEDVTVB4100ZV1VB:VBVT:VTV1kANSWERVTVByV1VT:Y01000"V1VB:Y9,10006 ASSEMBLY LANGUAGE SOUND ROUTINE768,173:769,48:770,192:771,136:772,208:773,4: l X0v Y0  J1411' J1 2030; XX5E 2000Q 7,25Jf 6,(J550):768p XX3z YY2 J  DISPLAY THE PROBLEMVT(LEVEL(SEED))1VB(LEVEL(SEED))MODE24070,4040,4040 ADDITION MO X0  Y0 SUM103140. KSUM115 Kr SUM12000,2030,2060,2090,2120,2150,2180,2210,2240,2270~ 7,25K 6,(K550):768 XX4& YY30 K: 3300D A PERFECT SCOREN :"YOU DID VERY WELL --> ";X ::A$b R EIGHT`X1,X3Y:X1,X3Y3:X1,X3Y6:Y1,Y2X:Y4,Y5X:Y1,Y2X4:Y4,Y5X4f PLOT THE NUMBER NINEX1,X3Y:Y1,Y2X:Y1,Y2X4:X1,X4Y3:X4,Y4:X3,Y5:X1,X2Y6 TO DISPLAY THE RESULTS Y2:Y3,Y5X4:X1,X3Y6:X,Y5*zD PLOT THE NUMBER SIXX2,X4Y:Y2,Y5X:X,X3Y3:X1,X3Y6:Y4,Y5X4:X1,Y1 PLOT THE NUMBER SEVENX,X4Y:Y,Y1X4:X3,Y2:X2,Y3:Y4,Y6X1 PLOT THE NUMBE* PLOT THE NUMBER THREEm4X,Y1:X1,X3Y:Y1,Y2X4:X2,X3Y3:Y4,Y5X4:X1,X3Y6:X,Y5s>H PLOT THE NUMBER FOURRY,Y6X3:X,X4Y4:X,Y3:X1,Y2:X2,Y1\f PLOT THE NUMBER FIVE$pX,X4Y:Y,Y2X:X,X3PLOT THE NUMBER 0E X1,X3Y:X1,X3Y6:Y1,Y5X:Y1,Y5X4K e  PLOT THE NUMBER ONE X1,Y1:Y,Y6X2:X1,X3Y6   PLOT THE NUMBER TWO X,Y1:X1,X3Y:Y1,Y2X4:X3,Y3:X1,Y4:X,Y5:X,X4Y6:X2,Y3 IS DISPLAYS THE NUMBER" PLACE0/ N$(V1)? PLACE(N$)\ (SIGNPLACE)SIGNPLACEm X39PLACE6| $I1PLACE .NUM((N$,I,1)) 8(14(SEED)1) BNUM12000,2030,2060,2090,2120,2150,2180,2210,2240,2270 LXX6 V `  12 MODE0660" 10,14T120 T1,3717; SIGN0A U  DELAY ROUTINEc TIME1500s J1TIME:y   'CLRTOP' CLEARS TOP 40 LINES *63542 4  ROUTINE TO CLEAR ANSWER 0 J1825 0,39J    TH 1000 "700 ,800% 6360> @ A CORRECT RESPONSEG J700U TSUMSUM1^ ^800g hTRYq r3000 |:"TRY AGAIN? ";B$ B$"NO"420 800 80 :: X TO DRAW SUMMATION SIGN & LINE b15 lT133SIGN6 vT1,T14VEL (1-5)? ";LEVEL$ xLEVEL5LEVEL. SUM0< TRY110D Y0O SIGN0Y 4000b Y19k 600 :"YOUR ANSWER? ";V1 1000 V1ANSWER320 WRONG ANSWER 7,255:6,255:768 TO SHOW CORRECT ANSWER V1ANSWER 900s & AN ADDITION/SUBTRACTION PRIMERG BY J. ROBERT CALLAWAY P.E.h OF SALEM, OREGON 12/04/80n(x25000<SEED0.23456789F:"HI! WHAT'S YOUR NAME? ";A$P:" + OR - ? ";B$ZMODE1dB$"-"MODE1 n:"WHAT DIFFICULTY LE     z#?????Xΰ   Š ĠҠҠ Ҡ֠Š Үʰà* ՠɠŠ !ŠԠӠ"̠6ӯӠààӠ̠ ̠Ϡ ̮à ԠԠ̠ǠůǠӠŠŠӠŮӠ Ǡ ŠԠϠĠǠĠծРĠծԠŠŠ Ԡˠ we will delete that"6 "program from our library."> :g "WILLAMETTE APPLE CONNECTION, INC."{ "P.O. Box 7252 "SALEM, OREGON 97303-0053 ::- ::::"These programs are distributed by the"f"WILLAMETTE APPLE CONNECTION, Inc. as""Public Domain. If any person has valid""evidence that a program is, in fact, ""not in the Public Domain, please " "contact us and$% 0 vf'  `m :F a -mLǏLi^j_kZl[`8tp`8M`y h (`|)* X |`YLHHJhh`Ǘ˯߷ë󳏋'C/cO KC[ a(נ)+Ss?` WILLAMETTE APPLE CONNECTION, INC. L(OAD R(UN D(ELETE C(ATLG T(DRIV K(LOK U(NLOK X(ALL E(XIT V(ERIFY ----------------------------------------VOL PG OF SECT-USED LEFT ---------------------------------------- ) v) m}}m~~ة$eeeLؠ D8}}~~ؠ ~ 0})JJJJ 0ș}) 0șeJJJJ 0``% $ Bd 鑠e e ēHi&eh L`$e  ɍ ` X0 md:&98N9m:Jn8m8eed`8edd 鑠` :` ^67ą89 Q@ y 6 @^`6798 Q`Hǒ hǒ``}~eei@iA)m~~ v  6g/5 ys r ; ya ` `$$(ɠ$C y$f ``H$%  h\  `CATALOG\Y/N\LOAD\LOCK\UNLOCK\RUN\SAVE\DELETE\NOMONC\START\ LENGTH\,D\I/O ERROR\VERIFY\@  dh a X ;g B ؐg KL L KPhg a X00   ddd 鑠 ؐLs ;O ؐ YLЪPТ2'gh a X ;" ē$ y X ؐ Y ȒL :L'% g h y ē I8Mtn=vH?J QVQT_ɕ%j^iZk[l#^Z_[ 0f ߓ Y1  Ȓ@)ȹ@)ȹ@) Xmɠ 0   L Mf'fП K Xg QLiLLs4    eʵ``` f f` &L L fLC`8i`uu  ee`` ` 0` ` ` 5I` 5Iй` f f`L ?5=ɥD 5 5 D4ɻɍЀL\ɠ` }Ɏ$ ``LXWVhY `XWYHV(` Jhh LH) JQ JJJH`HJ`hh ?l8e` %GQ/[҅n3pč ͍ҍˠɰ̍̍̍̍РǍ BY AUTHORS - APPLESOFT CONVERSIOND  BY: TOM PEKAREK_* OF SALEM AREAz+ COMPUTER CLUB&1:4:"(";:6:")":VT1: < DISK CATALOG UTILITYS BY: WEYMAN FONGk GREG ROBBINS CHUCK SOMMERVILLE ABACUS ][ OF SAN FRANCISCO  PUBLIC DOMAIN -- ALL COMM'L RIGHTS  RESERVEDK204K2103402^B$"BRUN":K204B$"BLOAD"e`1:868:198:" WHAT STARTING LOCATION:";SL$c(37)1:B$;" ";A$;" ,A";SL$hD$;B$;A$;",A";SL$:::30ABA$"":X736:A$A$(X,I)X,I1)16):XCVT(37):I2K(16384):K136310.916368,0:K19390?:K192Q310X;OII:II(K193)22i@1,I)2330E198:198:198:198:198:IOI:310J1090:1:868:" BLOAD OR BRUN (L/R) ";:198TK(16384):K128340V16368,0:K15590Y11:868:"DRIVE:";K:NDKASLDR$",S"(NS48)",D"(ND48)I35dK(16384):K128250r16368,0K155ĀK136K14990K177K18410KK176:80+,1:868:" PRESS'LETTER'OF BINARY PROGRAM ";:1986C$:D$;B$;A$;",";C$:10&K141500<K176Q23220O::34,23:30_K1752601:868:" HIT KEY FOR NEW SLOT NUMBER";:198250:K1K7230NSK:1:"SLOT:";NS;" HIT KEY FOR NEW DRIVE";:198250:K1K22405:198:W:10/B$;" ";A$:B$"DELETE"160R12:"HIT '4'TO DELETE";:198mK(16384):K12815216368,0:VT1:1:868::K18010B$"LOAD"B$"BLOAD"B$"EXEC"165D$;B$;A$:10D$;B$;A$:198:"ENTER NEW NAME: ";2Q1807 II(K193)22:1,I)2B$"RUN"B$"BRUN"Y 1,I)2B$"LOAD"B$"BLOAD"y 1,I)4B$"RUN"B$"EXEC" 1090:1:868:B$"RENAME"B$"DELETE"150 0,I)B$"DELETE"150 0,I)B$"RENAME"17010:"FILE LOCKED":W1130 oK177B$"LOAD". pK178B$"LOCK"E qK179B$"UNLOCK"\ rK180B$"DELETE"s sK181B$"VERIFY" xK182B$"RENAME" z1:"PRESS 'LETTER' YOU WISH TO ";:868:K180Ĺ50,127 }B$;:50,255:198:80 K183300 K193K19RIVE='/' "> K1:"RUN ? <- ";(MENU$,ML,26);" ->";:B$"RUN"X PK(16384):K13680f R16368,0} ZK136K149100 _(MENU$)070 `MLML3((K148)):ML1ML1 aML(MENU$)25ML(MENU$)25 b75 dML1:K155Ā nK177K18216:4,R2:4,R1)1060& AQ2270r CVT(37):32,39:33,1:936:5:"HIT ESC TO EXIT":32,0:33,40:VT1:1 FMENU$" LOAD=1 LOCK=2 UNLOCK=3 DELETE=4 VERIFY=5 RENAME=6 BLOAD/BRUN AT=7 TOP OF CATALOG=0 END OF CATALOG='RETURN' CHANGE SLOT/D3" *CG,234:CG1,234:CG2,234V -24:"HIT 'ESC' TO EXIT":1:D$;"CATALOG";SLDR$t .CG,32:CG1,12:CG2,253 /34,0:35,24:I0:P0:Q0 2II2:4,I1)1050 7PI2 <PQ:4:"[ ]":QQ1:RIQ22:(Q128)16:4,R1:Q128((Q128)16){ 7 FOR APPLE DOS VERSIONS 3.2 AND 3.2.1S :16298,0:16300,0:uCG28217:(116)100CG4460134,23D$(4):ML1::D$;"NOMONC,I,O"#TITLE$"SALEM AREA COMPUTER CLUB PUBLIC DOMAIN PROGRAMS" (1:958:6:TITLE$:     .?%rM6d6?e_a(Š)E@E()FE()Fa@E()E@E()FE()FcP a(Ԡ٠)G2q.?6@r`$`%Qd6?ec_ X`%@p()`%@p()`%@p()`%@p()`$_A\Ba@E()E@q.?r.?rq.?r.?rE`.?0r$PM6da(Ǡ)FGPa(Ƞ)FQNPM6da(ԠΠˠΠŠ)P a(ĠԠ٠)G>q.?6@r`$`%QPoDqq`=>r =>r $-a(ӧҧƠ٠)GM6Sq.?6@r`$d6?e`$Z`$qq8r<`=>r$M6M6M6M6M6qe.?MrM6IMN@"rC@"rC@"(rC@"rC@"(rC@"rC@"r@p()hq.?Mrqqqqqq`$q6qq`.?r%q>q`=>r $qq>Tq.?6@r`$Td6?e`$Z`$TQ^@p()`%@p()PM6dM6S(ԠǠκ)&@0co.?%ra@E()E@E()E@ha@E@E@E()E@Q7PM6dd0edJe.?LrdKP+Q9,PM6da(ӧҧƠ٠͠)GM6S6q.?6@r`$6d6?e`$Z`$6qq8r=@`=>r$JM6M6MM6M6q_63J\BPM6da(ĠҠΠ̯ҩ)GM6)GM65\`$P M6da(ź)FqZ@p(ܬ)d.?r.?r e@p@d.?r.?r e_#Wq.?6@r`$d6@e`%Q`$Z`$ q[_נź)&@a@E@E@E()E@_ `$`$/`$M6d"eMI_@`$PM6da(Ԡ٠ҠנԠ)GM6Q\`$qPa(Ժ)FE(Ԡ٠ҠנıP a(Š)UVWM6Y_ ?a@E()E@`@:()$P a(ԠϠ)GM6:q.?6@r`$d6?ePM6dc`$ 6`@9()@9()@9()$a@E@E@_ a@E@E@Q6M6S(ҠP`$,l`$q8r`=>r@9()%@p()`=>r@9()%@p()P`=>r@9()%@p()\BPM6d`@:()@:()$d`7=>r@9()$`7=>r@9()$%q;@r_Fdq`%Qon`$`%@p()`%@p()`%@p()`%@p()`%@p()jx`%@p()Pa(ӠҧՠȠϠ)GM6d`%d2ea@Gd2eM6_B;@rrp(РƠǽŠԯŽΧԠҠ̠ˠՠ)-KPa(Π)E@*#rG@p()"Pq.?6@r`$Pd6?egZ`$d`;@r$Fq0?r`%q`;@r8rgh`=>r $<gA`$Fq.?%rd e'd!eM6oa(ԠàϠ)d ed!e(oPeF@p(ՠĽ˽˽ŽٽŽįΠԽĽٽ)iH@ìɬ)#@p(ŠӠ۠) (oM6Pa@oQ-Pa(ԠçϠ)oa@E()E@d"eqqq(2q`=>r $2qo<oPa(۠)qqf8rghfJ]ҠŠӠӠĠ5 dJedKede.?Jrde.?KrKd6?e.?6?rzd2ejN@"rC@"rC@"(rC@"rC@"rC@"rC@"(r@p()qcca@E(      781,136:782,208:783,5:784,206:785,9:786,3:787,240R788,9:789,202:790,208:791,245:792,174:793,8:794,3:795,76:796,10:797,3:798,96:\776,100:777,50:778::778:DT ";I100;"%"." IS $";B4\"HAVE ANOTHER? ENTER Y OR N ";:C$jC$"N"Āp{ :860110 "INVALID CODE -- TRY AGAIN --"*4776,50:777,100:778>7H776,255:777,255:778,173:779,48:780,192:860+ X"PRESENT VALUE OF $";D;" ANNUITY"1 bV l"FOR ";N;" YEARS AT ";I100;"%"\ vx " IS $";B 740 B(D((((1I)(N1))1)I))D B(B.5) :860 "FUTURE VALUE OF $";D;" ANNUITY"  "FOR ";N;" YEARS A OF $";D 2 "IN ";N;" YEARS AT ";I100;"%"8 S " IS $";B\ 740 "FUTURE OR PRESENT VALUE? ENTER F OR P ";:Q$ : Q$"P"ī570 Q$"F"ī660  &800 0500 :BD(1(1(1I)N))I DB(B.5) N: "Q$"F"ī410 ,800" 62608 @BD(1((1I)N))F JB(B.5)Q T:860m ^"PRESENT VALUE OF $";Ds h r"IN ";N;" YEARS AT ";I100;"%" | " IS $";B 740 BD((1I)N) B(B.5) :860 "FUTURE VALUEI  I1ī180! II100A "ENTER TIME IN YEARS ";:NG w "LUMP SUM OR ANNUITY? ENTER L OR A ";:Q$ : Q$"L"ī260 Q$"A"ī500 800 200 "FUTURE OR PRESENT VALUE? ENTER F OR P ";:Q$ : Q$"P"ī320M PUTTING $3000 IN A BANK NOW." F"4. THE FUTURE VALUE OF EQUAL ANNUAL PAYMENTS, SUCH AS FROM PUTTING $1000 IN A BANK EACH YEAR FOR A NUMBER OF YEARS." P255 Z840 d860 n x"ENTER AMOUNT ";:D  "ENTER INTEREST RATE ";:  :2"** THIS PROGRAM WILL CALCULATE **"8u("1. THE PRESENT VALUE OF A FUTURE LUMP SUM PAYMENT."2"2. THE PRESENT VALUE OF FUTURE EQUAL ANNUAL (ANNUITY) PAYMENTS."! <"3. THE FUTURE VALUE OF A PRESENT LUMP SUM, SUCH AS FRO     ijk[dlm n[l mn[,ijk [Xq \bqlq \~[ \[-rq-rq \[fUVW`7-r%\pYUVW`7-r$f/?r\pY[p_pdijk[!8l mn[lm n[ V\[~-rq-rq \[-rq-rq \[$-rq-rq-rq \[-rq-rq \[F-rq-rq P\[/x-rq-rq-rq-rq \[qq`$ qUVWY `$x `$n_d&]ŠԠǬج٩UVW-rqY_28r-rq $\[:L-rq-rq-rq-rq-rq KM6 q(a(ҠԠŠȬͬө)T'' Lq.?6?r O4rUV(W/(ij'k2Y <qdqq\Xnqq\Xxqq\Xq`<$ qq`<$    1600 @X1,Y1 EE150 E641F1180900; lDD15Q D461F1180800Y 4F1m f"HATPLOT OVER"s Atd HATPLT&XF1011D500< E700dX3.8(D(.36F1.64)E(1.36F1))uY(DDEE)LY150000(Y.01745329)Y1.695(F1(ED)D)X1(X4000)20X1279X1279Y1(Y2200)20Y1159Y1159 xE645 "": CONTROL-D2 :CD$;"RUN EXTENDED MENU.FP""SALEM" V3:13:"AREA"1 `5:15:"COMPUTER"D j7:17:"CLUB"^ t9:19:"DISK ZAPPER"o ~18:5:"#2" 22:5:"WELCOME!!" 23:5:"TO SACC" Q18000::  MODIFIED FROM APPLE PIE & GRAPE  FOR SACC BY EDWIN SIGURDSON CD$40L)28 IAL:Y(I)((1)231):X(I)((1)401):K I130:J1Ll Y(J)JX(J)PJCC1:1080 $Y(J):X(J):" ";:Y(J)Y(J)(Y(J)J)(Y(J)J) .X(J)X(J)(X(J)PJ)(X(J)PJ) 8Y(J):X(J):(A$,J,1);::CLI51 BC0: L1:1:" SALEM AREA COMPUTER CLUB'S"A A" SECOND PUBLIC DOMAIN DISK"d B" CALLED 'APPLE-ZAPPER #2'" C" !!HOPE YOU HAVE FUN!!" IL13000 J :X(24),Y(24): LIMIT A$ TO 24 CHARACTERS A$"S.A.C.C. DISK ZAPPER #2" L(A$):P(3d)}:"DOS LEVEL 3.2.1 DISKETTE"Q2:"THIS DISK IS THE PROPERTY OF:"m:"PUT YOUR NAME HERE""PUT YOUR ADDRESS HERE","YOUR CITY & STATE & ZIP"^"(503) YOUR PHONE #":11);"ONE MOMENT PLEASE"?" WELCOME TO:" @    KEY TO MOVE CURSOR OVER FILENAME-THEN PRESS RETURN.":14ARESS RETURN.Q #14F:::7::"INVERSE";::"/";::"FLASHING";::" FILENAMES":::"FILENAME=";A$::" DRIVE #=";A::"SELECT:"::"1-INVERSE":"2-FLASHING ";B:B2315:" SAVE ";::A$;::",D"A:415:" SAVE ";::A$;::",D"A8 20:"USE RIGHT ARROW   8 e8 8 `$ 2PR   i ɛ"ɰ ɺIɠ)0 9 X    d ` j``ee 8 ee 8 e8 ԠΠĠɫҠԢ͠͠͠ӠŠˍ͠ŠĠō͠͠ΠĠ΍ԠŠŠҠ̠ԠŠ٢Ԡ̠Ҡ٠ӠĢԠԠĠΠӠŢԠŠΠƠŠ΢ԠԠŮӠӠŠŠ͢٠ŠƠŢԠԠǠ٠à٠̠ŢԠĠ͠ԠϠנԠԠǠŠŠ٠̠ТԠŠ͠ĠΠϠâԠ׍̠ ԠȭĠϭӠŢԠԠӠŠŠŢԠ͠ӠĠΠƠԠ͠٠ԠʠРĢԠΠŠ   àٍҠԍԠج٩Íà؍ٍҠԱԠ٬ةÍà٠ٍÍàؠҠԍԠ٬ةÍà٠ٍҠԱӍč٩Íà؍ٍҠԱԠ٬ةÍà٠ٍàؠҠԍԠ٬ةÍà٠ٍҠԱԠج٩Íà؍ٍ͍̠ԠРРŠԍԠӍ͠àύŠԠàڠԠϩ٠ӍǠӍԠج٩נÍà؍ٍàٍҠԍԠج̠ԍŠɠРŠҠԍҠōҠˍӠ؍ҠЍ؍ٍҠЍٍڍҠ̍Ҡ׍ӍРˍҠ͍̠ԍàˍԠҍàԍàˍԠˍ̠РѠԍ̠̠̍ÍàҠԠԠٍ̠ЍŠРѠōР°ԠԠРŠԠҠ°ٍ̠ЍԠРѠԍĠƍɍ̠ЍԠٍ؍ٍڍ؍ٍٍɍ؍Р؍؍٠ٍڍڍҠӍ؍؍ٍٍ؍؍ٍٍڍҠӍ؍؍ٍٍ٠ˠՠ٠ՠԠՠƸԱՠƸō̠ՠƸԠՠ³ҠՠƸ٠ՠðŠՠðŠՠõˠՠİԠՠǠʠԠҠҍðð ŠōԠʮЍĠΠōŠ٠ӠٍӠˍؠՠ٠ՠڠՠؠՠ٠ՠڠՠؠՠ٠ՠϠՠɠՠ     KEY ";:Q$AZ18ė:15)"MPG GRAPH":15)"---------":NZ:880J240P Dn15)"---------" oZ0:N1,pXNNRAuZZ1:Z18ī910czD$(X)10)"*";M1(X)10.5)"*"jX10)"*****************************"10)"01234567891111111111222222222"10)" 0123456789012345678" 11)"PRESS ANY )X-" TOTALS"10)"-----"18)"-----"@ 10)M3;18)G1Z8)"PRESS ANY KEY ";b Q$h%q*2404 SUBROUTINE FOR OVER 14 LINES>8)"PRESS ANY KEY";HQ$R:750\ GRAPHICSa550: CALCULATEkl15)"MPG GRAPH"31)"TOT."2"DATE MILES GALS MPG MPG"LY138:"*";:Y:"*"n34,7: SETS TOP OF SCR. DOWNX1NR:ZZ1:Z17820D$(X);10)M(X);18)G(X);25)(M1(X))".";(((100(M1(X)1)0.5)),1);31)(M2(X))".";(((100(M2(X)1)0.5)),1?G(X)0590#DM1(X)M(X)G(X)4IM1(X)0620CNM3M(X)M3RXG1G(X)G1`]G10620pbM2(X)M3G1wlX}v REPORT ROUTINE550: GOTO CALCULATEY138:"*";:Y:"*"3)MP$Y139:"*";:YZ0 :::NR0NR1 X$"-1"ė:3505 9:18:"";O(NR)K 11:16:"";G(NR)^ OP$;F$;",L25"q WR$;F$;",R"NR D$(NR):O(NR):G(NR) CL$;F$:D$ 330 & CALCULATION ROUTINE +G10:M30 0X1NR :M(X)O(X)O(X1):O(X1)0M(X)0FILL-UP (MM/DD/YY)"6 :"0=QUIT,-1=LAST RECORD"::P "ODOMETER READING":h "GALLONS OF GAS":{ INPUT ROUTINE 6:28:"";D$(NR) D$(NR)"0"ĺOP$;F$;",L25":WR$;F$;",R0":NR1:CL$;F$:NRNR1:220 X$D$(NR) D$(NR)"-1"NRNR16(Q$)330,640,860,999! @240' J3 TNRNR1R ^20:"RECORD NUMBER ";NR1g h"DATE "D$(NR1) r"ODOMETER READING "O(NR1) |"GALLONS OF GAS "G(NR1) 1:MP$: 11)"DATA ENTRY ROUTINE" 11)"---- ----- -------": "DATE OF 5" RD$;F$;",R0" NR( X1NR: RD$;F$;",R"XQ D$(X):O(X):G(X)X Xh CL$,F$:D$x :5:MP$: :10)"1. DATA INPUT" :10)"2. REPORT" :10)"3. GRAPH" :10)"4. QUIT" "::8)"INPUT SELECTION "; ,Q$ " dWR$D$"WRITE"& nRD$D$"READ"9 xCL$D$"CLOSE"f }MP$"******** MILES PER GALLON ********"t :5:MP$ :3)"ENTER FILE NAME FOR CAR: ";:"";F$ :2)"HAVE YOU STORED ANY DATA ON DISK ";:"";Q$:(Q$,1)"N"NR0:240 OP$;F$;",L2R  ********************5* MILES PER GALLON *O* BY *i(* PATRICK SCHWAB *2* SALEM, OREGON *<* VER.2.0 5/80 *F********************KD$(70),G(70),O(70),M(70),M1(70),M2(70)