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)PD$(4) ZOP$D$"OPEN     5]9L 5*95(`*5`>HI (hLHhɃ ɛܥ3ɾLLLi   APPLESAUCE 5.23/ROBERT DIAYD  TYPED BY ED SIGURDSON 3/23/80W ( OK FOR >,],* 2 NEXT (20 LINE) PG HIT ANY KEY EXCEPT--ESC OR CTRL C. < ESC= 1 ADD'L LINE F CTRL-C= RETURN TO 'BASIC' MODE P BSAVE PAGE LIST,A$300,L$89  PROG NAME= PAGE LIST7 TURN ON BY= CALL 770S TURN OFF BY= CALL 815u WHEN ON DOS IS TURNED OFF STAYS ON UNTIL TURNED OFF IF LEFT ON PROGRAM WHEN RUN WILL STOP AFTER 20 LINES OF TEXT PRINTED. PAGE LIST INSTRUCTIONS !! ")"::"REG HOURS";20)RE+D"COST ";:NTZ(REJ)RXTZ(TZ100.5)100kbTZ10.00XX4:1920lTZ100.00XX5:1920vXX631XX)(TZ)".";:(((100(TZ1)0.5)),2)"OVERTIME";O10ĺ21)O:196020)O"COST";)"NUMBER OF DAYS WORKED: ";DS:CW(REJ)(O(J1.5))M936rW(W100.5)100:AA$"Y"İ5990"PAY PERIOD - ";(PP$,2);(47);(PP$,3,2);(47);(PP$,5,2);(32);(45);(32);&(PP$,7,2);(47);(PP$,9,2);(47);(PP$,2)0"("PNPNPN15"ENTER # OF REGULAR HOURS: ";RERE40ĺ:"ARE YOU SURE OF THAT FIGURE";:16368,0:SU$:SU$::SU$"N"ī1690"ENTER # OF O.T. HOURS: ";OUYO(J1.5)UY(UY100.5)100"ENTER MISC. DEDUCTIONS ";Tİ6110@AA$"Y"İ60504JAA$"N"ĺ:936:1630gT"***************************************"::^"RATE OF PAY $";(J)".";:(((100(J1)0.5)),2)" PER/HOUR"hr"ENTER FIRST AND LAST "|"DAY OF PAY PERIOD ";PP$R121690 AA$"Y"ıD::7)"HIT ANY KEY TO CONTINUE ";:16368,0:V$:V$NV$""T^936h(12)"ENTER EMPLOYEE'S NAME: ";F$"OUTPUT TO PRINTER ?";:16368,0:AA$:AA$;::1010936"AA$"Y"İ5990,12806R12$ <:FI$GP"$"(J)".";:(((100(J1)0.5)),2)" PER/HOUR"^ZK;" EXEMPTION(S)"d"STARTED WORK- ";(L$,2);(47);(L$,3,2);(47);(L$,2)n"MARITAL STATUS- ";xM1ĺ"SINGLE":1420"MARRIED""RATE FOR DAILY MEALS $"DM B114:160J#B120:160*K9B125:160AL$PB133:160WMfB138:160nPNw180}AA$"Y"āI110::I 936F$,(B$,3);(45);(B$,4,2);(45);(B$,4)C$(E$;(32);(44);G$2" ";H"ENTER EMPLOYEE NAME: ";F$$990.12807190A936NR0:150[B0:160cF$qB25:160yB$$B36:160.C$8B56:160BE$LB74:160VG$`B90:160jH$tB97:160~I$B109:160DM 6:170E$B74:170$G$2B90:170:H$HB97:170P I$_B109:170gDMvB114:170~ J$*B120:1704K$>B125:170HL$RB133:170\MfB138:170pPNz180190936:(12)J$ :* D"ENTER # OF EXEMPTIONS: ";K$0 NY X"ENTER DATE STARTED (MMDDYY) : ";L$_ b l"MARRIED?(1=NO,2=YES): ";M q:"RATE FOR DAILY MEALS ";DM vPN0 R0:150 B0:170 F$ B25:170 B$ B36:170 C$B5PLOYEE NAME: ";F$ 0 "ENTER S.S. #: ";B$6 W "ENTER STREET ADDRESS: ";C$] t "ENTER CITY: ";E$z  "ENTER STATE: ";G$  "ENTER ZIP CODE: ";H$ : "ENTER POSITION: ";I$ & 0"ENTER RATE OF PAY ($.$$) : ";ORRECT EMPLOYEE DATA" LA N5)" 7. TERMINATE PROGRAM USAGE"n T:::5:"VER 2.0 1/81 .0665 FICA":: ^"ENTER NUMBER OF DESIRED OPERATION ";:16368,0:R1:R1:: hR17190 rR1415,1500,1500,3490,3490,6210,6100 936 "ENTER EMNU" 12)"************"! B 5)" 1. ADD A NEW EMPLOYEE"H m 5)" 2. CORRECT PAYROLL PERIOD"s  5)" 3. CALCULATE WAGES" " ,5)" 4. PAYROLL HISTORY TO DATE W/TOTALS" 65)" 5. PAYROLL TOTALS TO DATE" @ J5)" 6. CZ7(55),Z8(55),Z9(55),T1(55),T2(55),T3(55),T4(55),T5(55)N dPP$(55),H$(34,11)Z nD$(4)c 190 D$;"OPEN ";F$;",L142": D$;"READ";F$;",R";R;",B";B: D$;"WRITE";F$;",R";R;",B";B: D$;"CLOSE";F$: AA$"" 12)"PAYROLL ME4 *********************7* *R* PAYROLL CALCULATOR*m(* BY PATRICK SCHWAB*2* VER 2.0 2/81 *7* *<*********************PR(55),PN(55)7 ZZ1(55),Z2(55),Z3(55),Z4(55),Z5(55),Z6(55),"" " " " " """""""""