IMD 1.16: 7/06/2007 20:33:26 AAAINVENTY LBR INVENTY LBR !INVENTY LBR"#$%&'()*+,-./01INVENTY LBR23456789:;<=>?@AINVENTY LBR&BCDEFINVOICE CQL"GHIJKINVSTMNTLBR]LMNOPQRSTUVWJETSET19LBRXYZ[\]^_`abcdefgJETSET19LBR6hijklmnJRT30 HQPropqrstuvwxyz{|}JULCAL BQS~JULIAN LBRJULIAN LBRO-PUBDOM 023KERMIT $$$KERMIT $$$ ACCOUNTSDBF ACCOUNT CQD<ACCNTNO NDXM`ACCOUNT1FRMUWACCOUNT2FRMXINVENTY TQT[#ACCOUNTSNDXkݢDIARY FRMs))INVCATNONDXtAINVENTY SUB|w{INVENTY UNT~ YLEDGER NDXPRICE1 FRM+PRICE2 FRMyLSALESMANFRMEjSTOCK1 FRMXSTOCK2 FRM+MENUE CQD UINV CQD>INVENTY CQD07!IT CQD ^LEDGER CQD#OORDSHIP CQDr6qMAINTAINCQD%JSTRUCTURTQToDIARY DBFINVMOD DBFINVENTY DBF}INVOICE DBFVLEDGER DBF~SALESMANDBFU.INVNMBR MEMXTACCNT:NOClBILL:NMClBILL:ADClBILL:CTYCmBILL:STC$mBILL:ZPC &mUPSZONEC0mFFL:NOC 2mEXPIRESN=mTERMSCAmPHONE:NOCImCREDITCWmSPL:INSTC[mSALESMANComBUYERCwmCATEGORYCmBALANCEN m 2561264 --STEVEN SINOFSKY BOX 970 W CAMPUS CORNELL UNIITHACA NY14853- 7 01-S2-526658909 (607) 256-1264 STEVEN 99 25.00 INDEX ON salesman TO b:sales INDEX ON accnt:no TO b:ledger CLEAR RENAME b:templ TO b:ledger ENDIF !(GO)<> 'A' CASE !(choice)= '4' CLEAR ERASE ? ? ' *** C H A N G E I N V O I C E N U M B E R ***' ? ? RESTORE FROM a:invnmbr STORE ' ' TO inv:no2 ? ? 'The OLD invoice number was: ' ,vACCOUNT.CMDf  o "!#$&%'()*+-,./0123465789:;<=>?@ACBDEFGHIJLKNMOPQRSTUVWXY[Z]\^a_`cbdeS C5CfK{~̥5m Nr7pPusp.Yݫۏ \b~e ^ܚX+i;dO}{a~ C+=mo7ݚ^f/jE͟ 8YEM^o̡O5EMK:WƿstE͟/wbXEM{e W ^1u{QN+I1^ًA+q&+#Vhn!^O#{Qsj~Lgu/j?orYU@ًϗ2{Qsr'ʈ^ԜAn^ԜA_n2b#{Qs&8WFvksKnC1C^Ԝɿ܉2#{QsV}+#6 ї~*>tG^y1qf0K^"?0{m%Ned/j~''ʈ~[\{C>T6o: ѣP#{Q;r'ʈ^'ʈ?GgXP.k U!=PNvK>/pY`p bt?{-=RZ%~>.k U!=PNk^DKۋ^Pa08Tp@1x[3S⍊)\??{F+{4wȞ?ҷ%̏5{&cً7Z+i;dO}{&tkf {?} 5 (FwuKf/^^1ݞ{Vi=‹ ù܋W O#Hg/ae:Gx:x +{4!{iXًW tE:,%C[Gxu/ae::d"K^bxS!{q/^^1tC/R`/^^1t&+#V"{ƚɗ;WFD5{eĩ[3o={eVSG⍊⍷fsYc/bpG8܋fo2!{0T]s90tV}`/h~ًVMiI ~~h.zE1Me~{"ߋvkiًW{̏5{[+`E\ {sb(^NGx:a8{7M$Sx:a8{ߚ^&{rY螎7USވAAGaKt+g/^=YUݛ<" r/^bx;d"up.Y+q^؋Wde:Gx:xEViC/Ұ^1t!{܋Wde:=‹xEVC/ҿ+W o:d"uw?+W o=‹k;؋Wde:uEzpH^"+{4wEZz] Y+7vE(Y+#HǽxEVi=‹u{C!{9^"+{A^S+W ֓ Gx;ǽxM֌h7a/7ݚi=ekZz&tkFx:a8說:%Lۏig%{AᲆP™L^Q.k%nLً7x{K`PPQ{x=]yVK|QP۔N6N}P{{폾7 U^9YJn{x^񞎧5}g(UBu.wk>h1΂ C74؋7}{eJd/Xc2b^&G-F8SMVӊ|wk{eJd/XS1^ً7T}b$1 ;n9ɎxcM[M7tXb;5##o_n9֪{ƚ?_҄#wxcMW^vL#{ƚ/# unn97vk܉2b%o9'+xc9`(.id/XsN_Zb掽xcy~9 NmF5%b$SdU[AN+npc/XsN܉2b%o9jsCid/Xs~I9pfV ܱo9܉2b%o9?&+#V"{ƚ2߮;^O#{ƚKH]wNVӊ|;5g;WFD51^ً7֜;WFD5{e Kً7֜A`:{V `^L`X!pH=yzً7֜IߙHOg C\TD7vkΤ/wbXk{eJd/Xs܉2b%o9|LWF`|pa²4o9|մ6aIVӊ|؋7֜܉2b%o9>&+#V"{ƚ3˝+#V"{ƚ3{eA ?]id/Xs&jZ*[AN+`Uֱo9A+#m Lց4o9I'-F4t?܋7֜ɿ܉2b%o9>&+#V"{ƚ˝+#V"{ƚ{eĩ[3o| ʈs5k~o^LKmCcvWu u+)ȏl*=-^LY-[ҳ{Fc^<7+{qз^nʹղ5-={&so7Je *3:%rY/q/qOKLynPGr#O /qQ@4y$)ϭc/^~/^NK<΁i 96fu3)y\zc/^➮1to[:p/]Z3wwZޱ/qOsu=ο荹lm#?@ABCDEFHGJIKMLONPRTQS~g|"a f>v9^(aϾ;*\>{/лn3ap'$S~~siW4+jSb*iWT2~?VD:UڣmO.9-ϋ׏G_i0.hK[XIVau˝$"Ý06NitFmV5Sd$\apv$+C[l'o(ƺB;#$]Fj.Fy?Z EԅYFOV-U a;na`vتA9q-U2΋$S?bx?GN:#4{[o7ȶ&~Upd q@SN*gFK^ T|*j&1\o7yͱ|>./-45 6E*P0sOWHbq^@$N^܏sAhMh~Ov޾QBwb] }}N."0[i[8y~/T {C޺En-Z[V:+"x?[8cJH' w5Fif8 ţ~$"e?qU7-;Vz?ԭ p~^xyYAe0ʅ FfVXu ;ATUݴF(_-J DhdJm5w̸dƳcen9$N%F&v!3WlڶF&2mh'8F tȄ5밙!b]_s5`Omy]pBfW4Ͻ˴?{?L&e&jm*ּדv0zyxe$jc+.n"l)Dh~hT2됚ފx#gp"zVΧ;N^mTbR0H=+zPT@mmii wHUpx?ʩeW( ihEjz+i*F)WB;~O3;荇ղQhfײxZwKʝQvF;eA|L W(UR>wx?ϋe? g'{E}xOKnڅ8/Ni]I]tF@贓Wأ񓏭R x?wtg=$gA r~U)/N^'+Kanak4w3N^!`9);nqrӡs0^V~m/ZvzN=o7m;8y: m}x?Npne[*Q 7 ?o^7p0: m}~.VrcB2!pJb6z$u+n~i6 * =?nR8yHk;Y߮ U~/C3z"^fg9"˫+k֑fgts"c۠b ]T@?~Ow'we]+yκSALES;===== y  *CAT:NOyo t th firs recor o fil i alphabetical order. M Middl Record Enterin a 'M wil mov yo t th middl recor i th fil (aroun recor #175). +n/-n) Enterin6264131 i6297891 6324671 ~6333489 <6342706 6351475 *6385821 6410033 6411031 6431433 6432048 36437489 {6442481 6463872 6468368 L6469000 6536413 6554434 S6562416 6598358 g6622500 6649361 D6653601 H6654566 123 i6297891 6324671 ~6333489 <6342706 6351475 *6385821 6410033 6411031 6431433 6432048 36437489 {6442481 6463872 6468368 L6469000 6536413 6554434 S6562416 6598358 g6622500 6649361 D6653601 H6654566 6657075 6662744 6674440 6410033 6411031 6432048 36437489 {6442481 6463872 6536413 6554434 6598358 g6622500 6649361 D6653601 H6654566 6657075 6662744 667LIST a:it.new ff LIST a:menue.new ff LIST a:inventy.new ff LIST a:account.new ff LIST a:inv.new ff LIST a:ordship.new ff LIST a:ledger.new ff LIST a:reports.new ff LIST a:maintain.new ff list a:structur.txt ff ff it menue inventy account inv ordship ledger reports maintain  *ACCNT:NOyo t th firs recor o fil i alphabetical order. M Middl Record Enterin a 'M wil mov yo t th middl recor i th fil (aroun recor #175). +n/-n) Enterin an numbe fro th Accoun Men wil mov yo eithe fowar o backward tha man items i.e +1 o 1 wil mov yo fowar 1 Accoun item i alphabetica order - wil mov yo backward item i alphabetica order. F Fin Accouns Thi i th mos po2561264 2561264 2561264 mov yo eithe fowar o backward tha man items i.e +1 o 1 wil mov yo fowar 1 Accoun item i alphabetica order - wil mov yo backward item i alphabetica order. F Fin Accouns Thi i th mos powerfu wa o locatin particula Account I thi optio i chose al yo nee t d i ente vali accoun numbe o an portio o th accoun nam (enoug s tha i i no ambiguous an withi M=19,L=57,W=132 N N N 9,CAT:NO CATALOG;========= 16,MAKE MAKE;================ 16,MODEL MODEL;================ 5,CAL CAL;===== 22,DESCRIPT DESCRIPTION;====================== 8,SELL:PR >SELL;======== 8,DLR:PR >DEALER;======== 8,RTL:PR >RETAIL;======== M=19,L=57,W=132 N N N 9,CAT:NO CATALOG;========= 16,MAKE MAKE;================ 16,MODEL MODEL;================ 5,CAL CAL;===== 22,DESCRIPT DESCRIPTION;====================== 8,NET:COST >COST;======== 8,SELL:PR >SELL;======== 8,DLR:PR >DEALER;======== 8,RTL:PR >RETAIL;======== m=8,l=55,w=80 n n y n 10,START:DATE START;========== 10,SALESMAN SALESMAN;========== 10,SALES >TOTAL;========== y M=19,L=57,W=132 N Y N 9,CAT:NO CATALOG;========= 16,MAKE MAKE;================ 16,MODEL MODEL;================ 5,CAL CAL;===== 22,DESCRIPT DESCRIPTION;====================== 4,ON:HAND INV;==== 4,ON:ORDER OO;==== 8,SELL:PR >SELL;======== A 8,DLR:PR >DEALER;======== 8,RTL:PR >RETAIL;======== M=05,L=57,W=132 N Y Y Y MAKE N N TOTAL VALUE OF: 09,CAT:NO CATALOG;========= 15,MAKE MAKE;=============== 16,MODEL MODEL;================ 4,CAL CAL;==== 21,DESCRIPT DESCRIPTION;==================== 4,ON:HAND INV;==== N 4,ON:ORDER OO;==== N 8,NET:COST >COST;======== N 8,SELL:PR >SELL;======== N 8,DLR:PR >DEALER;======== N 6,to:date TD;===== N 12,NET:COST*ON:HAND COST * INV ;=========== Y vNMENUE.CMDP   !o$"#&%'()*+,.-0/215364789:;<=>?@ABCDEFGIHLNKOMJ1GG yg]}DMZ'%;kK2i#?8v1&g܉8-}n'^#bAqnͷ\AYx1D״v+ExݬOGłvkMݬOGłҙi? >h7/Ƒh%fAYx1D~0.ۭ'ZqJ >h7볩!Gņig}K~ϕ>|ގOQ}%m{ƅ\q3WV??PR_1KB=?mϡ6gns 0. fn1< q?1S#tmnoͷԷp++Kz`\Ҏz?&qyqYZ4:oݬ߶2Lɘ*   !o$"#&%'()*+v+INV.CMDe  ! #"%$&('o)*,+.-/012346578:9;<>=?@ABDCEGFHIJKLMNOQPRTSUVWXZY[\]^a_`cbd[[@(gNgzz;0Q,qE׿[Φ8j5eTڳ1-TG]2#4&M]rRo<s xc,fEegqgClqyi>ɘR }ϫCp10Eyl !=z ߭ECbZ)hs6~߅/.HȆw>Ic\I[s jms6d\Wkoܸs6wW?=4ys]mrq`\/F[ʳ\/us]mO6ِyx\lWU*cyXxk>yOVt4 p6ϫ8 M㙇U82gBgBy3 qoe-5-eS߼nʆMɿslW{_,l,g/Ir%?_Fs6+t6+t6+ĝ-/瓔?g2(u6˸RL,lWqg3 Ɲ )-w)08S4wΆw+ F,yu=ِn+Ѳʻp6T(Ѳ"jz1yِRR<R*V}-ِ_Q0e]8R>evlH`D2˴ZulHR-(IԿ{6L^`DviΆkE-:Ҟ )W}-ِR`D2(ulH\Ĉm$j]8R*W}-ِ2gEevlHR-(Iw6YgaD6JuΆ9;=F,O]8R3R6}gCʜU`D2p6XQ0e]8RnTbD6JUِrc}7#Z6Q]8Rn3٦; )7V}-ِ(+ F, gCJѲϾ gCJ3R֟}#ygCJ#Zم!%VhYf ԅ!%V*1%5=R`}7#Zsl. )AV`D676gCJ#Zم!%YQ0eԉ. )Z1-cر[gCJ0hYfΆ݊-,[[6ِ[=Fxoo_ )U`D2p6+ F, gCJPhYfΆ@`D22\EՅ!%Я30e&jِW}-ِL^Q0e]8Rɫ>evlH *WhYfxLs]mԅ!%\wrflH *י9ѲӛoWq6]"g:oϦ8j5eTڳ1-_ygSeџoo4&M˳1;76+fEyYȕ¸!t64dL>!s6ΆgC{8hg_\8fZ7E仵wΆKMF#џ/%ن~ƝOb!p6~߅/7xYȕ5md!W~gCBrq[*/>>><y&B[_~FKMcK7ol`E9g"Ľ/~x Z{S6]o$?џ/v3:g"t6D;[̯_')E9g¸RL,s6DȮy&(?2L(Cl3g/;(ry'cJ5 dq<>>Ey^)VhYzy^)V- gR*VhYfyxUbZՅy^) FlWJŪ0e]8畢_Q0e]8畢_F, gR&(ѲAUyL^hյgR&hYtd&<ҕJhYfyT(Ѳ.J\F, gR(ѲhdNԅy^)s`#Z:92g%nDz.JS0`Dz<9>evlWʍ#Zمy^)7V}-<@YQ0e]8(>evlWJ(Ѳ/ǏՅy^)AO-J u#ZPp6+%w149>evlWJ0`D2p6+%YF, gRw+ F,evlWJ0gE%'X8Y F,. q6+.l[~xYȕJl;i ׀lW˯l0yqgL7VleUH Vl s s h;g"eFYhYzet2q绸]h;gw"~6τߑ_'b~ygLd~y;Wop6eUy2 F,<5effU0ehƎ#kkIJџ gOYhsGCg7(Gd<(?2Lyow_o#<h<5_oxypx7# 3/:]lƪ32<)3323*gL7V#Z,eS7|<[ʦ0Zrm"orleU0md!W~<;<)3:#ZNY/HQ֙w2vF$9g"t6τ]b˦MF#cX[m'5!5jMTڳy&2Zo6f.靳yޛkJGQF$gO nɘR }ϫCp10EylBg:pbR|u-lwkW'o]b)ܔ m42*-sS6xr^6򞍩Am4G$sO~ur6b3{`w(Eڮ:F޳\︣t50F޳\P:5`wY]U;@v6l0;(Es p6kJGQp6h٠{ 85:o#o @v6 6q.m\Љwtg8{3tw:Mw˽/Ly^|ǝ3Y(elpEykwܹJY84ylr;٦; xNg;|g٦;r tmWls #NbKYڮZِysO~u2@Q:r6\P:5Ɲ2;:3zbǜ_L*P7gƜ_3m=\ul5,sO~ukxyF5l/;لLh>ɘr1E7+cJ5 dqh>w&t6 qoej$wdjt=ylBg:p㻵ilqS6ݑ绵xlCs6!ocǑ55ѥ `6?wq瓈⻍ƅ q|//|:ѱslBgcE)Q&9]\V6wQeMaZ+/f.wqlQ6Je.٘I0y1"gӋaz6!&6ǜM?ꋫ[yIȓ(V,<3}? _0Ƀ fO򼿆K&t6fEG_+ox/1gC<3h<ʦ`;wֲ_ݺvʂMֲNւ&~/M۬y&Wo뿠9$Q:Bg$ 787zz˯79U%ϵp6) hY( g\hYtQ~lRk#ZƜ_Mr-l[IW32F޳IW#Z߫uT_8}:#ZJY8}Z#Zlj:*/Mr`DKg\o1e 73kTp6)5lRsV#Z<>٤s*0e,p׿&mb91gcEϦs6]ebgc܅gu508_w6 M;KyOƔjx^}|)ĝ MlB,Q??wDJn-,eل'6uS@LD?߭[G?џoO6%]͝ ]$nϗQi&t6]eb<5PkeqGXd拭brwΆmTƜ !̓9\c'sT[D#6|v%4Н!t6wQexΆ]\V6`E)Q&az6d拭broy]]OVtZ|lWqjwelW˯_UϗQiyg3Z|1swM㙇bklŝ1a?~{6UQH6IS\범Ƹ_gSe- 4&Mb ols6ƝMJ0zhY|[ʦo:1a?~{6l-\Wk](miɮ^uRl5mimqE׿m)FnNr6 EQ_%dW/џrѓ]刍Y V}dW/џɯN8߅huR'ziue/ɮ^\Wk1a?~{6UQџ/Ҟl5og;vkkX'v<3I&op6]b<*|Ȧq7i?_qE׿۳fEG_+o |S֟K?l0-ɦqu9|.c_=ؑz[]ގ/ ]"g:o3I&op6nfEG_+o1~Ml~F˘Z5/\x3։F':x3։Ƹ_LGTGubnMq|:cvmWĎgy a7vQL'9|.c;v럞kX'v\ǯn>P%..Gl:։ɮ^Ɯ_+w6.\}X'v'zĎyǜ_3Vl|Wt8د.[\WkU\Frj[yxy׮m]G$g㻢Qڵ]ui?ZkeBuYcqO~uv?t5dz] ڮ:։VmҮNƈj@F6gc\/~#lV?+ g-Wj5eTڳ4͊}wUӳ53Qbroy]]OVtZ|lWqjwelW˯_UvAINVENTY.CMDd  o! "$#%&'()*+-,./0132465789:;<>=?A@BDCFEGIHKJLMNOPQRSTUVXWY[Z\]^_c`abn>Ygg=FX qi",2<>+ճ~> VŴGg]ճڔ0cp蜅A z,۠+22'jYy#BUg1#^!G}t? <:W9w`LGr3/{O`~h?Yn7Ig1c&ONb1x{w},fz/Yޞu_9w=wWb&n1JY9K'j~,f1Nb& Qa̤'GWbf‹;f4r3^;I; wTsLYLx=.m4g13 Qq}GWb Qދ;;L+g1#W`0Lg1#= wTsԯŌhߜŌޞu_9!^+$ gq?Vfam{t?ȣᶦ <:W9$xؿ}E,71IOSPWdwgq'GW~3^1/ey"sߌYoFxؿAy~٪9f;czQ ga2Q]WŨ{|?671m"),$?Y٪7MfOK{gq۔[uMN=n ΀Σ8&,nl4+Gc1%ELC2m$hNK'pWHqMN L4B1 2FCQ+4 FmrFH:1}RF.'8R wE iNclLcY69N ÆH1qIsZ:"čBB6H8iRY6Y6Y697׻"0 (ٕacY66ve(tMngq۬ؕa"C,n0<ŝ\=[uzRy3.+$ Ĝ* v8JߎLem),nkģ,''GBGg@megq?9YW°,N@"2u(&'jhaRYON0tc}F"E#$:",'?~r2nt)E`OQ+âƌU2LZdhj:,gƮ gqax:RyGmm@#|,:,n< `hEQ[u@afmM3y6t:ݯrI~G Yo&yؿV9xؿ+gq'GW~3GW~3'GW~3/{xCFaNW~3@I1J#OSPWd7HYoMGY:Q+gq79>1Nx"3A2~3oO`fafYoFw=$i~,7#+45muEfxߌۍ;9&vi_9]SNLFsԴ=EYoF'GW~3af QߌH~Gs?S(W~3"nF W& ~3"uO%-+gq&Ч6-ӳߌH~{w},7# ^FY`hW:Ȟ2ⶔ[u%?ےqG )y6㶦 <:q%?ے唌Gi4K1@k!)t(d#i#,bq%'k$(0: ܹӘHR4 ecH%ۢL31E m@2Vi#,DHzda`,nK~eƮ d67mY+DEYִ Cߥ~3{EO4M}U2LZdhj:YOC,gF_~򳸟,'?1¨r:QEt~r~rI*$|h,>w'~Xgq?9rJƣO%,'rs)gDͧm3IZXL}*N~r*71K}*\gq?95NDsEʛ7 A gq?9QbJsEhߜTc!54.T޴,'?~򳸟U2LZdȟxҧ,nK& ~'3oFroG֔qeAWlӳ-̃鳢}#tbzSoYO~qݏ&1s[SLEG8~򳸟IR""THZ9ah,)d#io2rč,EIFPXL~vtQ8i?@8Yܯi7ah,gqim!MIgqsG1i>+ztd< Ogq?lYvtE{ЉYO&,nKgEFĔ`(]fjYܖ\N65&ʛMUf̃鳢\usMf;MO74L#l_T4ӠʴuG^ߴ,xv;IT.CMDZ   "!#o$%&('*),+-/.0132456798:;<=>?@BAECDFGHKILJMNPOQRSTUVYXWmhO| E#.ݯ)MOΟH&<d9ee7=pD+;{gew x0 J= Bc!aYûXH}/a0v= Bx%c!aYc!aYa0v2c!aYx0 %c!aY߻XH}sx0 zwOni=ջ'azwOzwOT~zz$ֺ[T~[OIح`=ջ'a= v+X߻XHح`w[XHح`̻XHح`ûXHح`{ `,$VxXHح`2c!a;{ V`,$Vw[ʀw[2c!a= Bn{0 Za0v+Xx0 y0 zx0 ߻XHح`%c!auc!aud= Bn= v+XwOnû'afIحu=> XwOr=> :{}vI=JI=ux$(y^kO?M&&GEyNɋr%~Y,'3n7y)?y=i~Onvb?o&l.Z$fu%~W:=rkVgU ʼ{g!aY%!aY= CÀ0$>f= C*a@vUK= Cwa@ve= C2À0$>++y0 {g!aY̻aH}x0 ╼{g{gûaH}ȼ{gÀ0$> {g!aYÀ0$>=> T~s=> => /S{}v뱞o[zwOnS{}v+o=ջ'aT~s sx0`Hح`!aJ= Cn !a2!a!aa@v+Xw[!a˼{ a@v+Xٿw[J= Cn+= Cn+˼{ Vvx0 À0$VjɻaHح`UÀ0$VjÀ0$VÀ0$V!au{ { ֑y0 z0`Hح`=> ~sݚû'aux$c=> ux$7I=û'a(û'axoe kjt-K}9kUOg\gH.m gSSq,_C39#kjfɆfrF{Rߛ%)N$g643/.o=tg|rO`󸝘71?@ACBDFEGHJIKLMNOPQRSTVUXWYZ\[]^_`abcڢZzv`L-=5sCeְK)k\'zs.g<;ΥZ_|qڢqKRbx Ѩa8/>8myvKR\:&{>a7fW5d1y*|qUogL<^y8Υ.U39CcX*q.RU82s! _3}Bs.&kJ۟Z"oil6ü_6k E4dMimӰ"oio54"?ʠ`OE4YC]_>=0͹Ȅ\dBIeM]{{uEF?C |z.2fu}\dd9ɚ?cMI6WaiEklsϤ|EvJҧ7Q\dLhV:"of3'_EFޜLQMm + DS"ၶL9;8eRI l\dx^q旦jsy (\dZ޶8;8Sz}.2vl-[{8Jז\dZ q& _|qq:[sp3~MEƎ¥3nrKa >ά6EƎBg^5EƎ򼅏3~j"cGqJtؖ\d(.8ThO:l,"cGBg^5is#p)+i\d\ qis#qዏ3niXl\dH\-|Qx6Մ"cG3+شokrKa >δz~^EƎ _|q8;&//>8EQ scog#3y=h y A P fd"2˿޹M֔6 /y.27^$e}&{.S*IZDs]GT_|q-FǬ :8m9Evsd\dyY5dp`dᗦj'M]Jq0Ԯ~oh,S[Ki]kR{./\dg6Z!ӄk 7 4mV>i9gRO":RuEF%u lܔ d˿":RuEF%uƯYCҰYM9"7iشÞE?_p.2z3M;Y͹Ȅ<4wO9ј?kHk˧ i~uE4dMi`W\D 4 yKfm5Ṉƛ) m6_^\D =;M9ü&\DcXtv_"Z!in}.2a>ћs %uD-#%>(uE&L(E&8Ӭ6WF4L6+lsq.2vM kHNlmǹȄ\dBy.2nO-T6CX%il:"T2aOYCJtls>M]{{uEF?C Șs \d&kJ۟Z"6&.\AI6?mE>z=)IZDsr7a5զ-q첺}.2Ϥ|9h";%uhÇ:ES\d<)a4JiGn0aLsz@3=Z*m0VVXMkHis.S";%uEƯYCҰYM9y3M;YsEv a{}s.h6>ڜ9;">8mP?^!H:lhq.2vl-|qƩ+J8;g\d(\ K%=`3 P+`>-ǹQT8Kfm5Q+|qAǹQ\ :EƎRq"cGg\m[s#p!g^ռEƎe닏3@Mɴ&q.2v.[{8S~MjEƎX :EƎą/>θ q:[s#q!g^Kt8ゎscB">Δ^+]k-|){V{=;&/[E|qNkq.2vL^ q&b3.8;8ゎsco!g^5isco 7n9EƎgV"cRq"cG] :EƎlqƕ~Mȴ"cG] q&6!kw)V8ゎs8l{Zsq&Оts-|q@[sg|)'k\d쨪X :EƎyዏ3.=~\d쨞g|iz5"cG+|qAǹQm-|q~6M]yq.2vT[KUac[Mx.2vT[KtUg\q.2vTKtUqዏ3.Wiߴ&\3EvY]>M֛s􏡎ΠԮ~\dc&2v_Ev~?/MՄ :M]Ȯ[_Ev=uT{ 8jj/~<^<-Ȯ[=|yr.x.<㌋jzf`)}?"R v_EvR={!-ǹȮZ=^}v{lKCPM R\d1q.&kJ۟Z"ƒ?Ԣ*v_Ev~?kRˠs7YSh4l.no̓ٸ)عcdx?ʒv_yjVi]v{xwkj_w.l,~iڬ&E|m_פy;'ӄkW:"f$e?W\Dc6Z!in͹Pސ>U\DM֔?E4K0٬my 4mVhɚ@ۦa35E4г4 Z\d"Jf{^3LR~)ktls>M]{{uEF?C NmEƬoL7"7YSg> i5w* :M]ȸ'zs.2vT 8EC DJ `ÀG[4sckዏ3N]Q*ǹر8"cGg\X*MZi9EƎ¥JǙ_6k EƎ¥X :EƎg\q.2vb3.8;8l~or 8Sz}.2v.[_|qb6nJ5 s#pǙkR{.2v. g\q.2v$.|qir 8Sz\dH\>θ\d옼tqZZ\d옼θvq.2v-8>;b3.8;g\q.2vTe3[mB8;R3o a^\d쨾KtU$`rU3IƞUlmC45mrU>L9Y"cGU- g\q.2vT _|qA״"cG>L׳9;X :EƎjkዏ3.Ӱl[sZ">(< jsZ>θ\d 8ゎs*\>θ\d쨊 _|qAMtM8;򼅏3m^ߴs*. g\q.2vT _|qAǹQ. g\q.2vT _|qAl[sJ\-|QjsJ\'3/(s֚g55\dg|/(s>;ĥX :EƎjgTs8"0Jat%ilA~.24~.hޜ _6k tls􏡎ΠԮ~\dc&25ʹAKAm߭o"jo~Ev=u8xr:xwk[-1^⽽:">θl)Zs]wxeݚr\d\-3>θ?r:xwkj_4| ڤ uEv";o4|.l,ʿޯI-/C-ʿޯI۾[S[";?C5e˿޹Λ) m<(>f;KG /C-ݚVLm?m߭-ej_P}v{"ƒᗦjB^Z4wK^~Mjyjsl}2Mfxs.2a6>M]{{uE4fx輬:\(EoHLP/s.&kJ۟Z"oil6ü_6k E4dMimӰ"oio54"?ʠӳ v_E4YC&i=1|Avz.2c~3/{j"9PL(-bx JD>yOmƾR}lXɠKfm57w*dO4z4S2'Ԗ굿r.S>͵*"*qLR-OXA-Y\dQ-_|#\ܮɼ5$ $ms\d@6gEv/8y3M;Y͹."<ذA뗦jBkoU Zin\d&kJ۟Z"M]G\d<)#G[4>|-:";NI} W촿#iOY vJ0gj{vMιNI=ڞ]-ZʶF[~}+&5djιNy.SԑU=k2ojg If7I[\d@6gEv/8y3M;Y͹."θRn8;-^v&{Ktw :EƎ+|qAǹQUg\q.2vTR%{rm9EƎZxeڙ-sb3.8;勏3.8;X :EƎjk :EƎjkq=ZsZxeڙ]1k9;X :EƎp :EƎp)V8s*._|qAǹQb3.8;勏3.8;X :EƎ*q :EƎ*q)V8ゎs|q"cG5y)V8ゎs[8ゎs[>θ\dx.|qƩ+J8;K3NQq.2~L|dMi`W\dl,2_פ kRLm*3in\dl}l'꜋hyY5ls! _3}BX\DM֔?E4г) mQ=k2ojGQ0s.Qlڜ_C=։57!SKNl6I"幈ƛ4laϢh^J?x3M;Y͹OmZtk뜋LO\dz^@|q۟fo^9E&Hæ,Ȅ7۟f@ߜLx3t?p.2yY5dp`"7YSh4<3o a^I{66L<2hep͠¹O;~B}cuE^1]lS#L%da?A>ٙ7"Aڙ6{}.3vf l}뜋 /MՄ :_f=ugҧVUC s]GR㌋}8u.D|yr.똼P3kk3~j*"B|Y[){or.먾 8V;Sztr.먾gּjg^^UEvUP3kk3~ךʹȮZ㌋0\dQm-U >δ34mV:e닏3n05\dQ.|qƩ+$+j:EvURSL\dQ88 {!AD0s]GU\8よ1\dQ.|qƩ+$+j:EvURSL\dM֔?Ev̓׾i&\dct^8AܳcQ8=t^g _6k i&L<2hep`*"wL#\ g2Ss;^X qF!3ʹ/,=|QȤs׽ɚ?`mԫs /W :/'"ydRҴY[MK0٬*"̋0\DUGq)~q&}kU*8?8Q8Go9ETu.D|yr.cB!>άyΔ^y꘼8>͵Buv|ex\DUB!>άyΔ^7U9QQ} qfovZZS\DUG]8V;Szr. qfovZVP9QQm-|qRI l Oq.Z@|ig~iڬ&<QQm-[_|q}6":…/>8uEDuEQ\ǹp)~q)N]Q&Iq.*.|qq0Ad0Cg׃18QQb >θ yysUUgLV]Q\DUG8e(8Qct^8Qcp[AG\uyyIȹlYB旦j'_f%7 Z&\3s7YSh4<ubg\uǹȮ8y)q)qS2Ip:@|igʿޯIȮ8yIt:{K3N]Q \d F:ٙaJùhޜɚ@ۦ쿍zu.2O[mB|^MM\dlYC 6l}jz^;Os7۟f@?x3M;Y͹ƛ}v[ۜh/}s.C-y\Dc>ћsiMT9y7k6ZaI L\v(mORDSHIP.CMD[  o !"$#%&'()+*,.-/1023456798:<;=?>@BACDEGFHIJKLMNOQPRTUSVWXYZ]4D촂<xr|flsRX9\nYߤp(`|<>4s4%FMvQٛI4Dp`ÝmP6PX{\iT@+lM&6 g~wPnaYF\SV&vXM8 !Qe;AR{eQsyNYK7úmNhr sg=+w9Ko'MZs/bDm 0܇c.f)֑4ŐȹKdi%.ZX91K45sbxl,RHhq&Z?)E<6edD <'f1qedIa0-sftnKB@-N. ?<^IanLrى?) O:7s?~9{f.O:-cYޛ=ŵٳ;=䖾y/p-~qd1˰=[\ go.GO~iO:έsK\"ײg%w#{7?f^bz?< sQ#{y(:ܘ ?)7B'lJ+9qfR&vXw&XO [͛a.Gֻt8$j#n8'ado?)\64z'6MޫI .ob.\6p `9!p x;ӒTe76C~ZrI{?)\ry;Rmhb^O @] mIFֹp#&vX'JiSO `7ӲɚGp.c{?)\Ƃ64z'Ky;R%mhb A ^O pțaW%mhb^O MޥE ' 7p :bb9?)\6hC;R@]b02^R :bb{\p AaW%&vXE6oR :bb{ٳӒ'K .!"73R͛aZfqi -c'R4:PqeKw4OH\}ģ.ZO iʽorUy(:<%2?|O:_FO:_Fy!o_κrKX&ml]5bηMηc!grg%sEp/7{vZۭs1Xܘ m*UISsc2sbxl,ܘL " g}}:Hf#;.OģIc -nhᾯc&COo,ISvQ0'Qo2lJ+9qfT?iT:~T?i%>q+&qHFp }=h^=4Őȹ}HaܳӒ5ha,`2ωYNⱱI!mvhᾯcxQt'MiO -n^]91KMsb?)LP91KrىO:`fymI疸(4 Ԣ`|"pEd0-x`ڮ|ciO:-qwј7o1s??uYӺ_\-=;ٯc_N3OKn ?+OKnWO ۳upFn~&s?O:ĥ!r-[|Vr~7}s_piFʞ[,CO:5+{nh'Nj?)̍`.|ciO -q`2N d"Ep4VxsdpML.@79~?)\y;wq+&qHFp mSO # 5ȺߔRmhb^O m ob^O mІ&vXp Mޥ˦.!g=.obu~ZrR[&vOK?)\v64z'Kn ob^O ܠ MޫIțaK\!׹M?)\"5:.AtdY4mIl&vxZV"Yh.AaWe,7z'XІ&vXp y ob^O mhb^O y;wWzmIBGL\Md_% mbusK&M?)\BM6R{?)\(7z'Kmhb^O p țaKciKbT%pW\n3'K&vXoKnΉmSO p lua6R[ MޫIy;R# MޫIֻhᄡ.aDGL7u'Kmhb^O țaK\ &@kSO DGLp/7.a7hC;R@]hX&mSO DGLp/7{vZp AaW%D&vXw&XO y;WBB,.ᢅ{O FG*ܳlf)遫x4E WIa0mSM*O:ERtO:_Fy'/IhI(x;r%yDb#ctlt 9=;-C({ٳӒun[d0mSM*OedccqdR8a0>+ldp婓XBl/Z<>&C+ͣ?ij4'MZX'lJK"86DMvQOj'MOjY_2X~7[|Vr2TOj'M_2;n$ڈa\S>'M1$r@ű9i5ha,`2ωYNⱱI!mvh ftO E45?)${u,62ωY0=hLB,RLe'?2湷'[(PӃ񹋸O:ER\vO i?O:ĥEc޼YxpέsKFeGO~qmDdƎ}99l<-o&sK<<-_\=f2lKӺ_pέs?ȵlYu^e~O:5+{nO:e?f^Ţt/07&iO ?)ĥ. 2'Np4Dp`Ým좀. Vh&vX;ǯ' ob.;n$ڈamIrD&vYrO # MޫI MޫI .ֻtrTe7Q;䬇\e7MOKnSO `9i'nІ&vXp MޫI{?)\"y;w+:'KD&vY%"a,+M?)\"-OJ$k%"hC;R&vXp .!MޫI MޫIB ob.J/M?)\BK+RDMNunĶ'KVrf4O 64z'K&vXp MޫIny;wi,-\s]lR[ʒmFp @m9mInn;f4O p {?)\ ob^O p{?)\67z-0tT%l舉p ۠ MޫIvy;wAÄxmIvs]%mhb^O țaK\ dmIr舉fNK.!7hC;R@kI"6obsRHhqť1\cZIaCő{-l?#=p6[h?) m*UIO xΗ0I(e?|?|ob8¾}9/mF΃x'qWͨ{mfmgٽi:@͞vj=6Ӻ_:@i/[Vc챶'os8Cs]:@ <un5kRM7?ijnLӖyN̒uOIP ftO,Fvg]:'%+ͣ+IP fJ>?ij4'MZvј81zu`UXw!jpZIS-ZֹL<6͖>7UZIS-̎[1C6co1GIS ;P@?BACDEFGHIJLKMNOPQSRTVUWYXZ]\_[^9k2S7?ꔜ5ϭ޲ *va[Re*"sLYέK0!sG"b<>k!y&zH* +O^s)phQƞ˚WѓW0s[ϧ5?F˹` 8o\_~ xIO7΅< &[ut.zcl't)8O<~Tvg"CN7GO$=t:/͔e- } *;\Cϥnp.=-k%pxX XtY\z9+ҟKO˒'@W8:=Pj7j~ZΥ?%uTptzt;7槨mR˹ӲN">~4H6c?K-ҟKO˒tn`=~ܘ2aVn9\zZTcõ8[1􆁟%2M*-ҟKO˒:3m$dO7# ,KϹ,y -KruhLn9siYRµ&ۉVVm9\zZTzC :*l9sxiuIv+(U<ݡBw?;V8}B\á\Ӓ tzxt@.]^,^xRU˚{e=eUD2,S]Ckv2MYҩ\nY2@$TQHNmb"M1P6Ӕ%r.ki;Iot VyVj7j\VZoaexVQ:Ut?粊7iTQ粊[䧹שj ,n[OwΣxprZ΅PwJUnq vT˹CeɡAGpŋ 5?qENN˹\s.ki_Fj_E$,c2%E+?of'Ӕ%Ze=e(H)je!1#Hl2zHS 4eI*˚{NE[x~joyϡ+1oǧ\pɿ[E^O0䓳sYE.e?U粊5+ďkn9U<5MsDq:\V?>KӉd*I ?שj*o#t%\V?ͽNU\VQw_T8lsY4[YݨsYţsYSP᚟@T:@R*GJa繬 '`\V;̡y};xg!xgTo Px;^Ƣr eUijJ@4le [2QȁmL[YFJ@le>sYoJmt.Bu0Yyez> D$e~Ʈk,M'}.eOsS04YN$\V?}>UGXle>*^AsDe]Ṭ[OwΣxprZ΅PwJUnq 6sYsCx.kPsYs.kiY3]:xft`EO>!9kn95\g Ici˚W5-F˚sYsO$ď/qL6%؏e?5OI M=tMLHܭ6ZQv_oi+Z\y.k_~Wwje7PjԹ&mXmBw?V8Bkl˹k!<5p?54XƐf:xxx3`bHΚip.ke[k'.#[~x\^S_"LN e= h ?q=ڪLGrF+˚{P@٤iUEoYx|.x~󿟱k~+˨Qt~Ʈk,nr NG*g욿t"ف8}.x~󿟱k^޲$t~Ʈk, a NG*g욿c~q:\V?Vj7j\VZoaexVQ:UGX4,*RF-*c~\VZoaQnzc~egi:sYk=qVQ4YN$\;FzQ5W+x**K\쎑y89- oSe=-k=*g0sYc:5鎑y89-Bw?V8BW˹?54XEΚ{>!5 |jx 䬹?5Ə:lvh 0RHZ5#$ e/b<>5W+x**K\쎑y89*g[eo3湬1ts˚tH<i ΅PwJUnq x˹Ce]Ṭ/b<>5}υPwJUnq m95w??5?x;~X\á澧wrp.zvsOAek~42[k'.#[~x\^S_"LN e= h ?q=ڪLGrF+˚{P@٤iN%*.?M!rZP0P٬LYv6+70uܻ{{1C}n#AcN}'Ljf(ϿN%am,ӬZT99hVO2?i``M?"lgm7(u~rAH?˹Xq;06Ǩӡ&o5B).pҷ5B),a,?\kiP#@ica(};0PZ#xR9\KL-Jyt+0oK^0p-};0)iCo,?cہ ]?j=PZv(mZcҷcK{yu賴0㵴Q-7Zv}nJWki,κI1*/&o815\KߎqZi,È|lt,;'Ӷ~ν/޿׻wjR8r_g/߹wzNs: wk9F}Nپ}?Z5OU3h/uIvK4V\bl߾I_u"*pIvK4V)tV9LJ\Kdw֥LJ\r=e]~Q~o͚Δegr۷?IcUT5C6Aߧ$ szU+JK#JkR]co8<(pҷcBT u۷:wpR|O))YәlVqmЬl,тZ#M?Z5OU3h/uIvK4V: ' ? '-------------------------------------------------------------------------'+; '----------------------------------------------------------' EJECT ?? CHR(18) SET PRINT OFF ERASE ? ? '*****************CAT:NOClMAKEClMODELClCALClDESCRIPTClON:HANDN mON:ORDERNmSELL:PRNmACCNT:NOCmBILL:NMC#mBILL:ADCAmBILL:CTYC_mBILL:STCnmBILL:ZPC pmUPSZONECzmFFL:NOAC {mEXPIRESNmTERMSCmSALESMANCmCATEGORYCm T:NOCrMAKECrMODELCrCALCrDESCRIPTCrNET:COSTNrSELL:PRNsDLR:PRNsRTL:PRNsON:HANDNsON:ORDERN!sTO:DATEN$s T8ACCNT:NOCrDATECrDETAILCrDEBITNrCREDITNrRBALANCENr  2561264 01/01/84ABCDEFGHIJKLMNO 25.00 25.00 2561264 01/01/84RWIROEJFGDG 50.00 75.00 2561264 01/01/84GDSFJDFGKFD 50.00 25.0034 6562416 66562416 76562416 6562416 6622500 6622500 6622500 v6622500 6622500 d6622500 6622500 6622500 5 6622500 6653601 6653601 6653601 s 6653601 6653601 z 6653601 6654566 6654566 T6674440 ?6674440 6674440 6682083 6682083 d6682100 668TSTART:DATEClSALESMANClSALESN l  01/03/84RAYMOND 24191.92 01/03/84SALLY 32051.28 01/04/84FRAN 60.38 01/06/84 921.38 01/06/84ROGER 2492.78 01/11/84TIM 1198.83 01/12/84JOHN 115.9701/12/84JOHN 115.97YA UHKSC CHO902 0GG303 1GG402 2GG404 3GG4809 ZGGRACK 4GLOX2B 5HKS-10 HKS-103L6HKS-103M7HKS-25-58HKS-25M 9HKS-27 :HKS-29M ;HKS-36 <HKS-57M =HKS-586A>HKS-CA44?HKS-DSA @HKS-M3A AHKS-PYA UHKSC CHO9INV:NOcdGSALES dMEM:TERMS'd  NET 30  85148ABTOTAL:',MTOTAL ? '-------------------------------------------------------------------------'+; '----------------------------------------------------------' ? 'TOTAL MDSE:$',MTOTAL,' |SHIPPING: |INSURANCE: |COD C'+; 'HG:',COD,'|NET*TOTAL* -->: ' ? '-------------------------------------------------------------------------'+; '----------------------------------------------------------' EJECT ?? CHR(18) SET PRINT OFF ERASE ? ? '*****************vrWINVOICE.CAL  !"#$%&'(o)*+,-./0123456789:;<Z=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcd[efghijklmnopqrstuvwxy^\0}mjinlkgpwtz{|}~h]W{zyvsrՓލ|k0]{w'9-la6!j΀0}Z/?~/6h,FO[۳m[[[GnɈ汳&[ [nr4(U ^0 Zꉕ l\@O|{p@,gSز` |{}XΛv/fss1yx:~țӍy<@x}>wۈqH"!)RGH UH c·L|@RGHHiAZԑ*/hWЦ1v1#:REBJ DH" A)cχt-:REBJ EH" AJI cCp4ԵrGH U$TR^BJ Z ASزk/r1~U6B#~p6wH鳠6Br)lk@rWO{{|(nP (2҂'^JP1[ۃ ' -B(+hSJƘDqRGOHiA'^P!h"%c!2'ZQ/1fp~㐺V( AKH cл?d*oo~#:[r(;YȼTR^~?-{ 3 oa;m)jc|c}T6qQHeYBJ R",VLJCcQ% -B(/hWЦ111A!ue )-(!ueTH sC eRGY҂jRGYxA 1sdD8;ʲ ʲ AKH c̰UFh.̰U6V\8ʲR,dTR^)lkp+ omka9/|2$_@h_nqQHeDHe Z VRƘ!1C([% -B([%^ЮM)c!V;8UBJ DHe *M`9BO-:V )-!u/1f?ɈqH]+w/([%TR^BJg*oK(3l7[X|V\8V;YVBKP!Hy955Cyq'-ĠjQQ6IHiAlxA1χD8IBJ EHe *)%%`?dD8;&MRZ *)/!%`Y>g*oo(d+3l7緰xIWj-l}՛43X=Rbia?s2tOn ,GPl].{\hh9؇nQɭi]/M~އ]G?`Vm^^Uozk+ϘԛYYvѼӼͯxzUozzqa[/>|^aa5>[׃7&оM\k?`*oߑ~+D'ds&9zӃ&lr VN[([)e+rz݇]Gw׈9]SXZ+ǿ,Gt7GSGq2x3zh‘*vHi%x`l|Q w %Z1,50֌Wj-l}՛43X=Rbia?s2tOn ,GPl].{\hh9؇nQɭi]/M~އ]G?`Vm^^Uozk+ϘԛYYvѼӼͯxzUozzqa[/>|^aa5>[׃7&оM\k?`*oߑ~+D'ds&9zӃ&lr VN[([)e+rz݇]Gw׈9]SXZ+ǿ,Gt7GSGq2x3zh‘*vHi%x`l|Q w %Z1,50֌@BACDEGFHIJKLM|u~`!DW2ɕ&|}V_d2*Q"&+jMU'^QP>f#&_^~Dȓ%iRキB$+^1I\Eq2J&WX}ɭdWh­5|dI$5iUd0j !3: MUyxq^Iv]I*u+]O>p~E#-ݐO]FGOqk(nȌ.fɣ|uQ*)xFZ|ƍ'1uHO>ޢê_ިݓO@#w/=ZZXEK^cU#%6Dj,oH?u"V'aob?ݓOAb t xSUnocU#}a@jicERWEt^kHw24=Z0;%toAO>5Qj1;Fzuo'Q:gvZ;F%c5({ݓO城>u"%qQa-'PKoo;@0 {ݓO$"D[D_^z` Z~"'PKScE^TWEt^` {@'PKt.+-jUnoc5FA aobS|B-I?*z` . jiu"+-j-"%P  m*C=ZZHby]:"v"Q07~24't3;J[FHw-'4tlLTK3yƓ 4jiQJwX6ړO׌o8u~͠$f|é3#٭Mbp13)-ɭpj|6lvk{|V1J?Dz =f;(HawQ:f|éyNiIn}SWgF.f[ۛ+G(}I3<}(%5̓a&p,KKrk7 :0r1 ھاH|$Jeqg3w'R+kw|B-M/cz@0_;F;=Zoq[DR@^Dz )x:g6WU EDcIwXxZ'Q :gvZpadD ?!a-1'kF{ tOp,p13)%}S24Xj#QBCƻ\W@î$Q|B#N=[+̓0Ri7:јᔖ׌o85>~uab6 rTk7:v6O峴$y2Ռo8u~͠}(%5Nφ_ynmF_o'{4#NwHmK3yݵpO$w6Q>KKr{5N7Laac HБ ٌo8u|~}CyG6<o'E{5N]<9߾_l^x?fgL^[]6y?#TxpD ,lO|F%eN8h7:o?vX?."pc ǵfG 4jiQJwX6ړOvʶCOMMSN.DOCS   "!#$_ &%')(+*,- .10r/o24365798:;=<>@BC?EAHDFGQ  KJNLIPROMQODS=,8gf3(&'43WLiRZ~Oe,׹z6ĩ:׹?eApKVT`픯΢InF^rФyfNAô h*)B9ؗ]6?i8"^o (I ӇU1G'^h'LO:΢I:9=SMĽKRі\S4&a&(xfMY, 9]¼o;YFg/rOϼ0!4kNSК;` ӵݚNgY u"t},hM߮rcNA4z:eUg5+zgK߮qxZ6CҪo>ƵݽVU[}Ǥ+τ-x7g)hMW'Ƹ$Mq ۛltm!{`,Xt-Bvr~ʂ&),X;嫳(l澺ܓZ|9׳7aSǾD3)$4ώ\u 7+?? X)Y yCazvHh?K_M{NKpp,{:L !ho\4s;88~}p 3%Ap=F+[;T8<%MMSN.DOCS   "!#$_ &%'v(FINANCE.BAS<  "!$#&%(')*+,-./01243o56789:;QΡw_bxΩlQP '~(/o_w.cչʹc~hS] PXw (FT )MD9w*(, Sߛ-¾}cжrm].ZE0%‚oAJAq"u.S aJ>~^70{4hyrQō;br:tE*n߱raAo%U]VrE0 }WAhŵ ZJVChC.LI~Ć~`B}}h|9Nw*X rO \a7b},\ϡ4Tw*@`}A%p|vBSϡ;-{Me{NZQ'm{=DǞC?uX=츋VS aJ ߂CwE+@4T$ 5hv-ȵD%[e ѡ8tggUqΖ&乨8g>pA<#nhnêe QcgˊES]TzLSrQō;bكe]=) X){ހby9Nm\Sokse ѡXQ=i7L;bqFŕkcw}6!E=A}9VNk8pձe QSgˊ9VˎhyQō;br.ZͱvSJ JM4_7`Xb\;6Ǒ:[>z~%] ;GGs4T=0%؋Wm㪳e y.93uqqsw*wzF+S#9Ζsw*}}Q.",hVh)B }by9.r8Q8SoksΖ&Dt蠹"6)yo4_\9NΖ&乨8;ȣ|=Թ;xF5|ΐ츋VbU/cW 5|{Ng 8;[V,9NڎhB }+9Dz;K꠹"P#7hoN9zߩݷ_ϵ9Ζ&DcllBz屳e ѡX:ȣ|=rq|@<#nhn.ZEaPoA*|@wNg Xj;[V,9q"!4(h}}r?uE9z=) X)yS,o1EC\SoksW-{M=AsOEm S^/7hrmsO-{MsQ_vGuw͇ '[ڹ\4_q"!4(h@ sw{mwXsh.ZEЄ+Y`-[rq:hHwрS,o1ɵCwj-sm枊,VB LϗC{llBze Ѫ;vs|k8>q=Vq"AhB ZGQ_KxԞeŢ{j긋V_Q>VrE0 }WAwE94T$ 5hv-ȵzA%[{*X 50>?BuA}llBze]fPVrEk,p;GAlYP=s?sOx;Us`B}~u s>[x| x= E4T=0%/a@jc>."@A"_[j!N5Aw4s17栣Mt>SwsЉ:xp4\eqA~.ZAC]mDys?A{*_)PxKLsعksԹEz9ȿ|/sq";a(ad{G'SA;[V,k{O-{Mv;kSTOCGRPH.BAS9  "!$#&%')(*+,-./012o347568?&Ϭ\z _'bjJLGv\LUő _g2U)qd?&oZG.x K,̡A13lZUB+㽁/W3IvT3ic<= X= ?&}Oq_c̓voV?&?1y)\kF\UՄT= *.(1\\ lm7oSL 7Å#"_p3G6E.|ͩ0E/MUT|)o<,n) < CnU _nr>ҨMyde}7bgٔr—5<4jG5Sj֑ |Yaae=?&}Oq_ֶ1yINOL+ɏxL~<ڞiT/;2]cvq˛- S<-r<#3F;-r SvY+W7 cFǤ-Ņ:ocMSp*T{ ukq/zn\Dz4K-xsP$|vCcQ33ܰӂoꅋWY1y\/zn\Dz4Kk%ohx|W1oWކ:yu p y[b_7܌)ƑMYvauk0Ez^Էq`[Z=꛵rvʛ]x71?&4><3kԈ+Sx*.3T\6 xW. m} 0A|/cޮ\ (&8)gۅ_ov|{C3瑩 7.p3oPL#VvLSTOCGRPH.DOCf  ! "#_$&%('*)+-,./103254768o9:;r =<S>@?QBACD EFHGIJLK NMOPQRSTVUWXY[Z\]^_`abdecO-:6JEu|1z&,* +U9ry Y~q6KX(2,ZI)Z,Zs!#MتC$вbeY^:9mK2oo/ #N>N&,ۅT7)2]gٮGF;Oe5~g<J}Yfe$\哢 ,{et;;Il3Qx+MM^ڡɲ]MrN.4d;ˆapT_bZ[~t}+}g2˯.?P|Aŵ`]}^CO˫qgyP@8[WB ?ceY~uTڙ|:%sAIMhW>vHkOeӁauXW'E Ƈ`+Y.e{Ko^B/ij`!.@Oor$ڮ&y*c<8(WX`{1ȃDžOIWoWl'Ev_hx!@kW񃧯&KZ߮&y*GFcKXKc;_zs 5ߺ_²]ҲַKTƀ@9>}x (],*)+/Cw Z=}_=&Ml@7%}TZ[ҏx/}?e"%9S<ŵ)²SYhjϷ0b(j445M+3#Se_ݳ!ھT_߮&M@ٺԩjnwZr"y*Cwh@k⏳[mhm; Nj8)B+Z<}5'(9DкhW>ڡ?x< 08[S2,g%eŵSwĽW'E _ al=:+,{5vߩGF;Nj|A+EVq|Fޮ&y*pJW'E ƽ!eYf,dWMqR4a[%?0m_p%>ym?rɧ܊v8ŧ> B 5C%Wq[SYq8AfWM( z9q?pӽ:q>eY~uoIф…ٺ^5W&qh=:d+KwPM/4IOƏ[/\~5Z o n)ϋ(qE>POA-gr7TUOe5IфWyՀZJ}uA]anI9 qyF=|I0NBw ~5-|׮2*~駲hj@-WkH޺.V0[EOЇ8}x (],*)+/Cw Z=}_=&Ml@7%}TZ[ҏx/}?e"%9S<ŵ)²SYhjϷ0b(j445M+3#Se_ݳ!ھT_߮&M@ٺԩjnwZr"y*Cwh@k⏳[mhm; Nj8)B+Z<}5'(9DкhW>ڡ?x mJETSET19BQS2JETSET19DQC $v{7JETSET19.BASG   !"#$%&')(*+,-./012o3456798:<;=>?@ABCEFDUA^O++]K^_<P[iTKKY2k}ՇT9sYۂO潺S?ѡqڇ(͟w1# ם8p݉`; pCA푅NY`Czн*u'N,\w"oxнu'N,\w"$oCxr,\wu'A}=辽dzl`ɪ˺w]V{.Ә䧕ѡOrCeסƜ_{;(Amk1w7v&`cNm`'lI&m`'7X$1\^I",111>SJ5'Lw&1+1S8J5'3™R9A8f3̼Ll.՜8f3T9Qp,6(՜Y1L3(՜1ӝݥqΘRI8f3 ^I"3ݙFCzxGQ̯ Gw+#vLFQ#h8JG1qyGpdT{GBB#pt S=",6j(G1T{D9&kC`^DGT{$1qPiUH˟ëItLF{5 v4g;+TbQn#~5 y4g;sJ5 yLlfPiqGqvg7RJ5 8 v0wiՀGq3R }L;3'Vh8LR |LL1Fj@p9]Ge>h8ٍJ5 1qTLHc^ p4g;cR(ՀQn#^ r4gw8TGA9+fh8yv#TGŝet$h8)R H1qT3avmdޯ$h8j@2%Ȝ_ H8R Hc(gw*mdWpAP1Ffj@r>;Y)Հ|LlFJ«It4o欸R Hc(6lk{~ qa 䪏U~],|_<.';' k} pKCec6Vj#\֧~gJN(VvZm$C/14+ŒX%F[oBܮ16Qer8[L+}5pLkÙ}ݢ[V[ƴe3 ܮ1++,Ȍ͔@ȕ@ TNpLԆ3׌7sPztPyff]3zY^, m8_-3Kܣ(/R-hZΑ1m8 YSY6xP,U2Z{2^0uk҆s :㚴 aFm87?ĎO ./ڸ~zOk^RW􎣽'6ns{Ŭdp}$F_{'ç`'3> | vr ONn| vRSN69TvьO`'ySNmܳ{Pi_;Iv3>;) $g=*y;IwD>$§`'N6=$yION |;Iç`'nFҾw; >8q#ҾwwL|;I| v2؉ç`'.)ɍON'w6Tvr'L| v7>ħ`'N܌ON>qA}=`' m܂=oNç`'>8ON>8q A}=`' dƧ`'iv"SNSq+Ҿw7>([B'Q}/Tv2 Ou[bTvŌOUvOlV0^N>$ёN@*۸A}=`'v$ٟٗgg/Ҿwx3$DlV^B'WMDq+sY_oK|4,ڸṬi;ƭ(*y; UW~b'н6nCCm܌}ס6n&TvvW~bẓħ`Uڽ$:2>pI^{7Tvv|ղ%$8$`(6n~Pi_;I['nb73?$I<u*q3ŃJzNoAm܌\W%_(A}=`'c:|ݫr?pIO{eס(e}U_Tv:'н* םd*W^vZm Ҿwy'6f|4|ݫr?pIç`Uڽ$:2>p ^{~(/Y|4,ژm~.b_]1[Ҿw1O{U';a |ݫ|oc6W1}ס6t*y;qhW~bẓħ`Uڽ$:2>pI^{s*y;(HƜŃJzNR8&OaӺ%$3|OۘSy/JOژ']1;ҾwcO~'bT׃w8XVz]bC*y;I;O⹇qbz]jo0m%_pFau|o0* h%ߣ7OR_JO3 kH{Y@JGoHX3rPz21HXEWeě)Ydp=c6 gq.C Lθ'Q8*2\|?Kuʖ .g Fq۫@|~:v-=\|$F!{:ғA()N U !QGTgܮ'QU(=i_6 *y;L|]-bruhQ ҾwU$( mz.Ә%jˮCB>6 a~GoHF!WJuF .g F!OsRh`?̻_L <b Pt%g\ iB1n9p_*Y u'Ax;I;&OC,Q(U({.ӘK~TvBh'r?/]VTvG4xNlC0m4c0jˮC !A}=`'p$2%_pwBІ@S=~CRqȌKO3 kCU eD.E>[,' \z21HXBWS=~CRqHKO3 kCU 2p|~-@\z21HXB *y;ObRyPi_; : >bB2%_pwІA}=`'vZ`')6Tv"+'н* ם0>U@W_jCpS8W.!>!8*3R=~CKuFғA\Ҿw7O~RmNx!o{:Zޥ'!8U ,C J( ;[,r.=\|$ 1*y;IxZ`'y6۞W=^|O.|Pi_;I GtW~b'н6}R{W}hC1E.?G1tғK %)=Bѕ\dm(OOQD/X[ғKPCOOQTė(:OOǻ䒯 kC)=/Xs%_Aֆr(_?=Q%_AֆrOOQ/XE%_Aֆr OOQ`z: '|Yʭ5_X7lI{ʿn__8d~R{L[[xݦϿ`ݿn1|n^`rm0~jD%1/X &(:-kooS`Ryʟof|8{ʟoSg|ᳵ8?/XטeR{[_ϯѕUKm0x~wY㔯㘧 ᘮz]jo)h8pL+^`m0{Pi_;IG t"S}vղ>گ3ZfToW Tv!| K' ˪ץ6}Շ6xPi_;IG t"S-vղ~&txRR-ޮDq̭<$#BOUKm0}Շ69՘ }5+^`ft`WcZY3_ fFɍcUKm0sU`f)Noz]joAU`P>ω1?'lA^`U`?'G|VkteR{ BϷ%,^H}Շ6̽'CVqM׵\׸&eՇ)EzMy ViiL6ҽ'3ok#-dp}H)U =\|kߓnn#-dp}m .OHFZ2Osp䒟Yiޓ9=\|Ȭ۞߮Su,= k#Χ9q8{rOc6nv=g%?PH9p䒟Xi8fiwKU[. k#mvO\uGWzrɿ F=1LiG+= k#)= k#aޓK~ fmd}Շ62=D~ '9ϯ%/SK62m~"@YYFOs"`ݿʪץ62MxʟUKmd[p>l *ϧYFB)M__+FBW.>0?' ^HHX5nW5|eFB”5ZYF$ `$ md:UKmd>oATmd nA;Ϸ62𔿯ƴ__FS~ @UKmd?'|O.k#Χ9q8{rϜ]{ʿn~]ʪץ62)M_?5kj627_@Kʿn1]1KO.F捞[t`ݿVzrϼ62)A늷y _Wznqy+ϲej#fgx.ld𻰲uٞg) Y6ޅls~R{{ʿn~R{ݦ/XgȲgȲF<ݢ\3o}Շ62+ͿneR{̾C,J=j"t^}/ W_ťJYRW_odm_^PN(u;Cy{~,}䒟wڷOoSb* -ғK~immS۔~ŻE'XVzr;My\k#﴿<+⃊3 WUh'>H8s Rpy{߯`ݿus~߯~UUUV.wO_ < WU WUYFީ55Fξu}Շ6FPJ!?T~m)ޓK~Hi#oT<PM 5W6F{rϻ6FSՔh`߯xsy!X\.6./ Cw1a>3 )bu ?leR{yS~E [dUKm-S~ ?leR{y [t6z]jo#gF~ \܂o.dYYܮ.n6r nA||˒e#f]v6r)-pSm|sS=<[9?˺)Xeꦜۮ%?991dʂNޓK~γk#tM[p|3 sts? Γ5 _ЉޅY9lkf^2zl#gg{g6rv91\פ^3^]]3z Օ^sm8/@2]V9; oJȲܮk#~ oodȲܮq6rW.l3Iɉhm<ߦ-8ʀl CE™c .OWX9Ozk*Ի0k#Yy5]^3^,^m=\| F5xud\9)N |O.9#Qkƫ+kFϵ3RޓK~ήh#W}h#2'Dh'*)̨d*~O.h#:JO.fk#eGåF5 SHd_}J=F"c~Q푩GzLFx~({2>Yr~Rf%?lm$)swa`ݟwam$J='6jGWyH̫%l W˻M{rO\Z(.䒟m$r)DSS_(% k#|QK1 iFKO.Dx_-(*/X1<__4f? 4HWKgi_D-.rF۞WK7F`_-]6)tf Źh#='D.^-(/jyGSW; jyGHt+%?Q2m$rK# ;cJNnz]jo#\Z.83BmdaOc }~M:?' '9p_ϲz-,xvjd60)vTS]X8;d Q/XbxͯQ%'* tY⯇3 :ٮPCSާ#dD1PǸ};C`0,n\ P*FNCd*n#=? ƻ,)S_?5mdqѧ9Tt4D|-ԧ܊A \򳘕6CC[|OAHߓK~Fshmd1+2t2Nm# d*y;<"| ғ.*Y u'wa*Tv%>bY A}=jE>$c*U,)|O.YEY@žs \6(J6칬OTv?= >`'0ס,)D{O.Y0LYʃJzNR8'6PUi:,\XKY();ef~3F='0`?Fi# xPi_;I O{U';a |ݫ|o# E_1Ķü';H=0m0%߹T̾C{ʟ|O.XF*6Z-8g<l#+^2g._SHŔSuu6RI{6RI[PI%rlpUKm8}Շ6?ۣuvV^}G ,6Y?o}l^^}G ,6?1[<ۧT[L^^}G ,6=nR>%:~?EbGY^}1Rm8)v;0g=;6ek AE™c5NP +>rxpSWq_uk%ߙp.n\3|rm8s_xғn6kÙ+p政nJO߻٬ gh~r/ ?8\N89_[' gA .=;6_]f9Cee@  gA n]ċjaGf>R6SWq l.p6{.nx>p=;CֆxE/'^ΐ= Ȍ#!rudA8 g1>_Xΐ{GNCsdp$ g)0>_XUKm4m|?$D/Xz]joåYTRe1Oe*c**piJz|oåe}ULKTv: ˮC V<Deħ`Uڽ$:Ҕ精*&%e *y;QCO{U';a |ݫ|/6\=U1OTJzNTyT^N@*ˮC Tvc( tu'O{mA}=`'|؆, YBYz**pW.fІmEIt&<mي>dt+v~fS~!psOxf0wn)_h 6ܜSQ@- u1P kͩ|1\7H8s RpnvA f~,2#aH8s RpnvEIt&<#kAu*^GpnvůCC 7;;m_;N;mvq,|2|\:m.u a_a'۳u %^jՓp۸?(7UڮW=heO.=}@=۸͊?Q\`mKԪ'oEe_rLNfhe^_~K<}]>۸-;A8 O`c X'`k4//X?yLltIUۢ-!~۸-?DQ EeYl,G!a.{W6nK;ap'Ql6gIJ^_'_R>L=uu\j{Nv *7>۸͹?$Gq.Eڮח,{UO~[߮Db;I`6v}uz /q+qU\VO_Z_'{魞m?$gEBuȵ^Co*f}'7"z|_/zS=J۸m_x~ɍȵ^W%zЛYݗWڵm59 e m6i,.*nTn6dOo<{rɿ 6nCP}-KE. Ҿ6n+e';͎w";x;d6;7=Ff!kNdp-q@|~:v-=\|$;=$鰓miJzQ%/ϯi_߫'bwZҾ^\~ڃU/WMh/X?[߂` I>۸Ӕ}ƝT׃۸$nN4??6DŃJNn|B'k6DʃJNfƝ=?6,$;=\|+fmYۙ=ݷq;s*;Il~Pi_J^_5Ӿ/XWO~rv97XLlvVmȵ^gb?4~??$o}{i`Tv3)h8Ҿ'a {zgbSpL A}` =]7~zc/ғ3NNN };{OߊY>i㾑=ݷq=?$q۸oTiFf*Am܃JN6ndJzQ%/_'/9_zЛ7t%/,L 6ndŃJNmȔ;I;p7J .6nJjF9?S/X%嫼^[}'/KTb7)UJUU^z >>Y'b7Juq#d*Amb8ď*yA'PPoקotW=$GA}7~.W '>ՓKƍPOڸ 6܃J!~TÛZpaYrpKO~z Ql.l~Pi_v>ՓKCT t^4{Yzr&qV|Ix؉۸%{u[붨A/WLl.ҽ'oŬA}q9P9 P6"ѫz|Qu\z4DTqY<UR_nK~msyJhڽ2^mE *ŇQ$nVxPi_m܊)Ok_*kwpbSJzr?Щjq+i*[I A}}UNnƭ A}=jwrjq+9?6n%%C ~ɿ^:z|=z}sW8$LlVRץ6)>>K d Ci^ W}hC0~p\,1?!XaO/u^_)ֆ`Œq$!`O/$uŒ^_)ֆ`bن`DrfK%b6SOLqO/P<%PE+൓`՝,P__\SP){rL)LAvBqԃNUwXB1>:܆`J]6SiX'Ok'ץ6}Շ63ҾtO1 T_ڽIm0A}=jz]jouW}h#͜=ݷuyPj.]n}"JMj6̡ gQH~B:@mٝ?;f7ɶ㍎;vtѡsGgiGH~c1ˣ+w8q.(8y,mٜe}|Uo;:H=i_.&:ˮC4C\֧~ϻz3|n# SN6L>K~m> q:KhM(Ӯ4S3Ng+]vsi:H3ƞ8[iƠ=>i#-;1Kʿ)g gii3 kCgtib58HD?]I$gFZ:r:LisYF%?6] qj8FZƩᮜ6rF?ǫ/8G5̏%X:UV~],|_<.';' k} prבJv۴>z=i_,&vBquhB~U =|pisY%ߡ2 1wBquh z.h3%'G+6ҒFZ2%:%J* ZYhvF3QUcQkt%ߢp̻8[ Rj,}14g7_6\(4|/.=;C^V9FKA}ҾHs aZəFуJێ {_ӺmTW *47%^쿶i-9?a}m? ޛ~ɿ vJVosz47+*UJk깬i-9;6B a'3эHs=ݷ ҾwIttb *FA}T[^V乬i-9m)fK 6Ҝ~ a'3эHs=ݷҾtFc=\| a5i#1=\|vFm .OH 'fHT׃^^z2>HFڝHV%՝L8{rOj#v .Ok#v=13j#>vA}=`'v )ɌO`'vS'g{O`'ySN`'NHgҾwcv3>;) $g| vRmكJzN>O`') 'Dɝ9ap__FڍЃJzN7>'4| vR6TvbB'6=Nv)؉K|;)IvnF-؃JzNsvON'؉)؉'W6n=d>>ܸ[؉s') ''6n=8>$ N| vrI:| v"6nTv"'v3蹬KPJzNTtW~bF'нj#m6{.bҾw%>UX t:H }R{isW}h#mN?' \H=D9>`cNm=䒟6F|ۃJzN`Ux @O{;QWF|z]jo#m%VŴ6=iU;k#mFҾw  z'o#mF>6@uh=m#mA}=`'.TbiuYFڬ9q䒟j#mf샨x[i3ﲍ4dҾw1Ox $x $m!CpW1wm:HC>cqiW.m۞䒟VnҾw ϣ '>`cN44ۃJzN*<=tHC3z]UP6>DF}R{iF*ЃJzNA(C;>1R{iH>/]m!=CL;d*';q>p݉piH:?7uץ6c*y;cazo# 1^H+̞%? m4w *y;GS6V%.6Ҋ䒟 k#HUH+ ,C Z( TgғYiC1B( KuFJOgfm ,C LȲ'3 6Ҋ Ĺ x3: .,H+f{sq.JGo:ceKOgfm3zsQߐ0Tgܮ'3 6 d!{:ғYiB_>KFZQc&>I|B:H+ҾwU$H+m z.Ә%jˮC>6 =ߣ7$Ll#M0{ Tg[¬4W}h#MH{ʟc'46҄De}3ϻ#b tOeסFA}=`'zD >6Cime}3ϻc!jˮC4F*y;O94aF0>]JzNQ@Z'Ųj#M@ҾwQ@$HzPi_m }Շ6҄= cuץ6TvH%>/x;qy!|ݫr?pIO{m =HUKm }Շ6=?G`z:f%?MqFbY|Yzb!uJO.i6COOQ`z:ޥ'4YiJS{e=Nq.=)HS=?G*uJO.i6ޣ-uX\gm)?' ^HSn?'uץ6Ҕٞ1UcUKm)3m)s?' ^HS=S"__FS{gld|} ldYl#M)^HS UHS{ʟ1R{i1Kt̻z]jo#MQ>(?' ^HSL~R{i c'1<(:ILk#Ma-͟OHc̞۹~?bam1۔~?bxam1iOu~YV.$zʟo~?FWV.8{~wYFW}h#qS8o}p3˪ץ6Ҙ۞1R{i̍~?'7Yj̻z]jo#^Hcm1{ʟpl#z]jo#W}h#A .DrMk5i#A)N=3HXiLaOsb8{rOck#){2>!a\6d1ߓK~Xil#QChJ4FABqMJE+{RK>D!Hcm1 -L%!ai߮=gZamdZS*չ4d H(ϥ{rϼk#=Ϸ)ޓK~B4gOoD\3oi=Ϸsi%?VPvS8{rOHYv߮ѡ62mdp}Bnk#f .OH62 {2>6k#zO.i621ȴ'v[&{2>!a4'&XsYƴ_򝕠Ҿwz4| (ˮCLSê謍Lc=\|6i zO. 3j#!afFB '3o6g{O.i6gUHH䒟v۾C Kίm$$l ;}R{ CUHHB_ٸ ߠ"|}6VS|b`ݿ1lL6tȞlSOB1c6Vd*n#?Lz'S?w2~ȼgE?X_;E?X_ν{F_F>y#]̻*<̻@C1TF-S ^ȼ=Z(Amdފ}R{~,=gΉȼ]ITSҐ{rϜy3蹬Oc/ε9= z'62gCuh=m#sN{O.s62D_sYƴ_k#svA}=`'hZlމb:9A}=`'iGxڦFzrXJ*A}9{Og3gȜgҾwdO~u*vȜ62gT׋UO޷//X(;_R~pп}_WɋF\؃Jz(zՓm/X(;K[}hXփ*'gbuYUsi=g"Cmd zPi_FzK~6CtKT>gb^DT׋[yY/KTg}^%/_'O`-Tڗu௒ݖ'NCDi$r׃-X`O^_zЛJl#%zʟUKmd"g*UJ_%/e%*u gb趯z]jo#>f{.Ә/D3CiW. a_LT/%LTS%ca`p@&*PpX8.$62Qq?X8 KG{} gK%g@&܅?)bIbXbLTe}|F&*K( N(zINK(įLT0mdByO.H62Q űR^; Vb pH:|Pi_;I @WvI,IX'|o# ^,̾C~D!Omdi*/62D*AWW. a_t?'\әC~Nt=\|vF:s8tSs%?߂tvS:\{rOg n?j#)U[v={rO䒟k#v=3Hg{Pi_;Ix2z'ғ!A}ҾHgsҾD!a=immF2b_ (\zu;CF:+u{O'$6ޓ CF:cdp}Bk#1{rO a_`"Cmd zPi_FzK~6CtKT>gb^ *****JETSET19***** JETSET1 i progra tha simulate flyin 74 JumboJet Th progra JETSE wa writte b Eugn Szymanski,Princeton Ne Jers fo th TR 8 an appeare i th Novembe issu o BYTE JETSEԠ wa modifie fo Heat H-1 graphic an severa comman key ar change fro th original Mos REM' hav bee remove i a attemp t tr t mak thi versio a smalas possibl an decreas th amoun o memor required I jus fit int 64 CC syste Sinc m syste dosen' hav rea tim clock include cloc sumulatio i softwar tha yo woul no wan t us fo a alar bu work adequatel fo thi purpose. A The command summary for this version is as follows: F=THRUST INCREASE S=THRUST DECREASE Q=THRUST REVERSE UP ARROW(UNSHIFTED)=PITCH(NOSE)DOWN DOWN ARROW=PITCH UP DECIMAL(.)=PITCH CANCEL RIGHT ARROW=RIGHT RUDDER LEFT ARROW= LEFT RUDDER HOME=RUDDER CANCEL L=FLAPS UP/DOWN W=WHEELS UP/DOWN B=BRAKES OFF/ON M=MISSED APPROACH V=VOR FREQ. TUNE R=VOR RADIAL SELECT A= VOR AUTO SELECT ***SE BYTE, NOVEMBER,1982, PAG 27 FO COMPLET DOCUMENTATION** Enjoy! Dick Dexter,KB5IC I jus fit int 64 CC syste Sinc m syste dosen' hav rea tim clock include cloc sumulatio i softwar tha yo woul no wan t us fo a alar bu work adequatel fo thi purpose. vTJRT30.HLPr  !"#$%o&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqYggv1ľ]6ów|~-7fx6nqŕEތ]˛wY>gg6ophy7fx6nyr>w`i>a ލan]~ub6{;L1;wM>Λ)̚ӱwn1[c+l7ػj7f6Oϛ|p<Ϯmƻlp7o3ﶋw|~-f,]4np-.Nk痗w'Yy-Ld5I+=5]~6λwMqѪJeuLTH-g"d&Q-j͛b6[;i0*$WZ`tuF-p?@ ʼl+ҢX= Pmmг -FfS]% {5T G:& ֬&  fT AZz*"J a_ p<nWŵ(NXU*蘢- e:=~8+!d &PW&c5Ă)Pxtwu-1#'M$2`- eVN85ERH i aƶ"*##Y##w8bcuXbT *G&nV- eN8 0Jg}HQ*@TJ5!-!٪R: +,zm Vi@1ር'LHX& cH# &#$޽k:lA`,Uii4e$ dIVywZ-gFO"˳jz9#bQy[ [ZE*5EJRB^CՈw7atf»t0V;bp}3lgc;۪4 JVUeA(&jeAkXvy1|t1|MV}~jK1VywD `mm2֐lUHw(^kpv5ҵJUx>>[-/cL Sx>ܾ_-w(^pztޡxby~8^-w(^p.֌Xzitufl&ŋ!9JVM$Y~8N-TlnV:xŇG-i( b @:Z 1eP:!٪4Q;bDh%y`Vi % "MV LQ=s[&%l'* id( =;]ja#dDbD Ğx]4Yl$PFDޡpW1Dޡpjv=M$X iM@f}.?ŏwM4?iw;?5~8~k'3<ͷ{Pv[/ϼk V821dՉЛH82BZBo"ɺ$,6N-TnyZ *Bf}i ֜% ;N[ .1 cCsNW1|MVS[:|λ+&RokÔy|μCa?χvq;H*M % P*`yZ wy7+XŇ!a b'ۣd;aUj1Vc3LbyX U2zh4AՈ8x\AiW9bKz:P JVw(>E@X%'(&j&(uc51x]~PU)x|k'3<C!ϱλo|{~c7+@!ؚ7];f lUHh=۶kߢaf6mߤf H*M$F4Axm0wśL Y .?w(_9̻l$ejO2ov'ޡtex[(LHA4d5w(>VI,]~7P|\ 2o.C|yp)uyf6Oϛc3[O&nwޡxofQ8&MS:Gd9ʺOCq1˼]xݕZ'1VC %DŸ́RTXƈe_fʬ3lN i #a{HKkX (&j0ڻdu0Al[ZElr>;e]˻ƨQ$db%%\/*.p twW,)ΐQ:FĄPFCZB5'd3aUa•[kX=ժ Xƾ&G6QV3M»h(h i #a{HKkX (&jw'|;lb6{]. ū&w|vx-"ũ1ncՈTՈօw(cDT#u GFZ!-d;aAU`D(EŔy|6w(^gqduV}FUDj$ ldiЄxiL*^xm,hk4B-P<%SP* yeP;bw}Uw}C%M諬Koc)뒦ʺ[ޡTe$Ⱥpfm>xްdueJVQZCq1˼&nCqc2Ҧ7ķ4i1!uI;6`2T%ym,HSYt;OfW 뒼C+mȺ$P;OnWTZUtd]-Pt;Oq&#-7'C.iUE]œdu6 J˭P7i4Avޡxr;YDie:r+YDib6&w(œ|p?+*#Me]w(LUFʺ$PkKPJLUWHz"[ޡKjUw(o.iUE6(~68Vl(Tn/54ժ[8uIޡcF"MXQHS*u.śq= &SF_$3le5SbBF)* bHK;lC&Pc ]K::@ %DYЪcJBXHKޡxsبQRTL[ 1J :zw'ng{]. &wDpبQ$XF_$V}Cڻkbr1 J"-C6.(|p\ňE6QV3M7t(B0Vƒ%S[[͇ŋp%Sj̮xM?P2`m,P2`ƭ J"-ޡxp%Sjƒ%Sjܺ*r[ޡxsŏvx_(\Ń|p W+fm$t(B0VD U;onqQBi-/+6jiUE'_P2`F72Ngwl:L!CtQBirPu3D58u5"Cw(QBiŃ۸*r;obkFRzJ)cww-9w-9YI)J8!Hww=/,{8Vl(n/5t 3QBiλl0λYItN(fjUg3:LP2`XaJ)cޡxP<6AXQH;P;Nr/NMo"M5MV--.-GuOD;_w7]~E:Hޡ6Ÿۡak)kXl{w.? f`E:Hޡ6v1v(h!;4.GN򍭥eMw(ni]MbF.l-e-hCqNMo"M5l aM3X28CR2&w(pd+ pԚԢUDŽl4exљIJ(@Z%C&@ZSAՈF;%& %t](('bBsm3PCi%Sj5Z AeS82 i  `'b[k LrjDt(B0V#)Ai-4!e(0]W#w(j)k#!* b!tXF^`4bw(VFe3 H 1ZCZ-I)鈍w(QBiNŋ;͢˷Pܸ,|;&XQH;Pܸ,|;ZZyƝf7NJEL λ&wf;(I2FDduNhBQhxt'mJbVkj[ Dލhb4_FF+^E#w#k#)6˼K*FOl]RP<%iRޥQd9.EůJP|,ՄKV'%(~)-%'ex-(LwmRB(VMLeI/% ʻ̄BRX%.3(~*k.(Gʻi(~aRwx¤#IE(~bRwdF)Yμk0Ļ^@(~e $&'LGlMU#ZgQĬ-)P=x3']_$jCw?a'MXO:U޵txA3=wF/1;S3BwmĨh> e-(~u@,(~uI-4!FZE5׺L*wDZ+. ()FOPrԚHEa/GFZ*U鈍w:-(~9b#wPt읦#;v\9̻l0ƿbyn*B_[si6z,m0b^Fiwy7Q<&t(B0VC%?V}Q) r>wxsɇIޡx_fpwi>ngaq4n7ZOZO5λ4]|w&=+6jiY`X'.G808Cz/AkXRTLb6@~uzɇP<̯vy3λb6(߼n&IjlzبQe$=vZ* ;4y͕&ϱ=!e5;[_}{էcF"\ yӡxys1M D ldw|pC6\v6Aɔ%Swm(vaRqJ)c;BUD_$jdbʠb6vz;o";ʳśgF XQHKeL! ;-cF"CA~gSZxzبQjZwNOQOz*.CkŠ/;6(@S;-xw_fpw/&t(B0VC/AkX \9̻lbz;4p{_fpw6(͆I)J;P<-4!ҡd Xλ__nä%Sw(!*uc52J** *x_b6Mzɇۋj7 (B)J& XŃ|IbxJ)c;qxus|}gl;_]~w(l,pgŗqmqŗqmpp/="^eIŗqm]3;P|_wf0w(l3mf8wޡ2>`;k|w]s>x5I)J;;χśpoѓ)J;;ɯvy3nofyXmf P:C_$ńRTLb4zU]ocGaF~˛w c*BUD6QV3Z'1V؈*9z)@0M%DY`}êk ֜ȻDV`DTEPJ ZU3i!-P9`W!*d((i!->,gȯvy3@ocGawcn]P:aRTX[$ڑ8Vl(RN ckQML(EJa ZEle5SN }%#6"&uTmf Ia] ZEle5:Hg82B$66[ywHE+6j)`D(EŔhHK"XΈtV%. *`HE+6j)hHK(NXU+kQMLIHFk( :V%DŸ́RTL**@Z%DYńRTL]FvªZλMiM M$LHDR;] ܜD;RX:y7 TDگϑ.wæ^~FS*FiϮ`~o\xww M3 PFS*:FSYt$O4e52% #|;l79I]nd#}.iw]~˛wWn1`B':Y 2o;lbysbcvA_w@Rl4ժw}>l4Ll?9MGLɣ`\]xMZ 8 &$|»|pzλ&*#-HP %􆃀BUD6QV3yQ)ѐP)QV`F̄P:C6jU:F䝴pȑűbF2JQ1e0*e4JV;Nq~vm7yXIJg(&jJ1"! BjE'ΠBj)h i *Fx _xt ]KީEb!-ilR[ZЛHЪ"(b++k[ĈZzwn8>ÑҒ Q$HKX gD0rdQ(@ I y,3 VADZk ֜jQF#ҙ ygU*M KjAhm3h+HV2Jc\֑B0ZHg]bRBPXggMwu-1#' SsL *F{Dىwזe|pz\\YΚeO[i]w(^i]GbĂ)#P(~4;t h[btb"J)2Z'1V%%􆃠7DŽZ(`DyŸ^7gx|w3 kҠkQMLKpo kq670,-CZ$ڑ8Vl(Ry4Lt-!H CZBXU$E(^yŐ'uEZJDa~L_АԬqbMe(Nbb2D6I1uF[&HKP<+V6L@7o%Q,=FIJ;Nݼμ.1 MwHV Lbl/-WJmRFЛHaj-z)wMrŠCo"ݼpdbDɶ*eHK0*Zyw'?;kQMLZÖbV11"DSqdBFvªnF~5cgެе&װU\yk!JUDV] 3opdbMHKk+&jt 5%l'%Pn>h im Ȥw"% eD=Yyw [:@ZPL;=7oQ) %$L:3zmf;Lb1} iHI (&j&3/EJ#J;gPh(RQML;g( "%1V/1(& wu- 2% G&FZUa^B 4RFd;aUywdbĈPCZbb0l90PA0"X;;ɯn1`19wc,bKBvªBVЁR-%d]&N+;bPL9 _:V%DYQH(| A4JOeD۟S.MV`l{ P MP:C6QV3yOQmfJd;AB]JV@cw/hAX A eTkB\ -d;aUy]gQB4 AZBvª cVFDVH iɻ[XƷm 9l)λ[]t1 7y7Lb}2)YlU:PX 3l&`{JVTsldn}YCiן1Z a5%W9*3Ѵ ȯs/tžUPA0"$[&R##-%<²w߶]3簥ʻas4T(`mkE4HK`'#Mb1"bQК vªڄʻn]=BZYFO@JbGk[CAՈ-Xb=AF&)b'l%,Z'FO -;VzB=Vy7+X(^H!-!MHB w@% JVw=/K6ZК vªc#kF1*Oh4Jx4(^r!-d;aUHasw/֐Ppd`+O/2Z AZBvªλas4LP1#(FVbD(h #-fm;tλbpw]3/.xofK(`-fw޽k:UH*")HKu5"A*FT:PL@R1Rh4AX%'K(鷵a V %l'*l,Cid[%]iYaDH*M GFZHKxe|vpÖb^yW!4J6Z -A`{J-Z'1V2J *LS3e+t 0IHJ *=YB L SNZ%P0"$[&R##-%<2f8aK1VX%'HJcD5eG-iHK(NXU0 Z(h eF{]~ xC,%W9Ѵ ȯs/t_yױJFOƈ 5k`5,=Fk-\bJV%mtBlTY-(!Rb!-h!ZH 5U2ztB,f #}[yױJFObD5eJg}Zg(NXUHV ۈ;UlK0>3$cXyqm]3;l3mf8w_wf0wp0>;k|w4'(&j&X%'HJC`1"H͚2X ˰}ZgHV CZXA]6QV34v~λXmfZ4v~đ%۪&dcuXzMe$FU2zJ *=-XVywJ)*&}3ME~˛w-O8ͯ_Hk4%l'*i!-!H Nk+^3$cXyqm]3;l3mf8w_wf0wp0>;k|w4'(&j&X%'HJC`1"H͚2X ˰}ZgHV CZXvJULCAL.BAS<  !"#$%&'()*+,-./o0123456789:;^Hk8ĸSj>;e+o~8 `-cN (^TU)C\mo` I0DWr=>@e'Uu qn?љheN~Ex.@U)C\ۦmCd 7tnɟ.Aj1m,5˽mihG68MyDtqns|"/ sz;ָɃ ǸwEIp9ZJM׵0y(e 0}^pR:8\? 5՗roG6_W GFpzhG۞{;v78m=No&2'! Ts=P>xp U h` UN 5j}49Y+:IM"MNvO/oAkسa[= kd[XGeUWUGeUUpTVud)yMi7}}t]K  F+. 1ٙ`rz;np #R/; Ql TƉ{%\rxޤB!AN|lmcx CTOJ ASM1JDATE DOC4JTOC ASMG&MULDIV ASMmPCODE JUL DAYW ASMJULIAN Z80)t5po:vSo!xv5bo!v5bo!v5bo=<.otoK.o:v͈C!voG~wogxړo>OxGͳGÆooÆo ; *********************************************** ; * * ; * CTOJ * ; * * ; *********************************************** ; Convert calendar date to Julian day. ; ; By Gordon King ; from DDJ June 1983 page 66. ; modified by ; John J. Warknetin ; ; =============================================== ; ; This piece of code was used for debugging CTOJ ; using DDT. It is NOT part of CTOJ. ; ORG 0100H ; TESTING CALL CTOJ JM TESTERR ; Report error (if any). RST 7 ; Return to DDT. ; ; Report error. ; CTOJ sets contents of A reg to non-zero, and ; sets the Ms flag and clears the Zo flag if there ; is an out-of-range value. ; ; The low 3 bits of the A reg contain a code indicating ; the type of error: ; 0 - Month < 1. ; 1 - Month > 12. ; 2 - Year < YEAR0. ; 3 - Year > YEAR0+179. ; 4 - # days > 65,535. ; 5 - Day > 31. ; 6 - # days > 65,535. ; TESTERR ANI 07 ; Save only the error code. ORI 30H ; Make it Ascii number. STA MSG1 ; Put in message. LXI D,MSG ; Show message. MVI C,9 CALL 5 RST 7 ; MSG DB 0DH,0AH DB 'Error-- code= ' MSG1 DB ' ' DB '.$' ; ; The following locations should be part of the ; calling program. ; All values are in hexadecimal. ; YEAR DS 2 ; Year is found here. MONTH DS 1 ; Month is found here. DAY DS 1 ; Day is found here. JDATE DS 2 ; Julian date is left here. ; END ; ; =============================================== ; C T O J ; YEAR0 EQU 1900 ; Base year. ; ; Legal range of dates is 1 March 1900 to 4 August 2079. ; ; Psuedo-code representation of CTOJ: ; ; CTOJ Y=YEAR-BASE.YEAR /* BASE.YEAR=YEAR0 *\ ; IF MONTH.GT.2, M=MONTH-3 ; ELSE M=MONTH+9, Y=Y-1 ; JDATE=(1461*Y)/4+(153+M+2)/5+DAY-1 ; ; Enter with YEAR, MONTH, DAY in memory locations of ; the same name. ; Exit with Julian date in memory location JDATE. ; Returns Minus flag true with A reg=80H+error code if ; value is out of range. ; CTOJ LHLD YEAR ; Get the year, LDA MONTH ; and the month. ORA A ; Set flags accrding to contents. PUSH PSW MVI A,00 ; Set error number in case bad. JZ ERROR ; Cannot be less than 1... POP PSW CPI 13 PUSH PSW MVI A,01 JNC ERROR ; or more than 12. POP PSW SUI 3 ; See if less than March. JNC CTOJ1 ADI 12 ; If not, adjust month number, DCX H ; and year. CTOJ1 MOV E,A ; Put month number in DE. MVI D,0 LXI B,-YEAR0 DAD B MOV A,H ORA A PUSH PSW MVI A,02 JNZ ERROR ; Quit if year is less than 1900... POP PSW MOV A,L CPI 179+1 PUSH PSW MVI A,03 JNC ERROR ; Or more than 2079. POP PSW PUSH D LXI D,1461 ; Magic number for 4-year leap cycle. CALL MULWWA ; Convert year number to # days. LXI B,0004 CALL DIVLW ; # days/4. POP H PUSH D LXI D,0153 CALL MULWW INX H INX H LXI B,0005 CALL DIVLW POP H DAD D ; (153*month+2)/5. PUSH PSW MVI A,04 JC ERROR POP PSW LDA DAY DCR A ; Adjust for base 0. CPI 31 PUSH PSW MVI A,05 JNC ERROR ; Quit if day.GT.31. POP PSW MOV E,A ; Could add checking for valid MVI D,0 ; MAX day for each month. DAD D PUSH PSW MVI A,06 JC ERROR ; Error if overflow. POP PSW SHLD JDATE ; Save Julian date. XRA A ; Clear flag to indicate no error. RET ; ; Error code routine. ; Enter with old PSW on stack. we don't need it, but ; we want to get rid of it to keep the stack in balance. ; Enter with error code in A reg. ; ; One of the values YEAR, MONTH, or DAY was out of range. ; Acceptable values are: ; YEAR YEAR0 through YEAR0+179. ; MONTH 1 through 12. ; DAY 1 through 31. ; Three notes of exception: ; A. If YEAR=YEAR0, MONTH must be > 2. ; B. If YEAR=YEAR0+179, MONTH must be < 9. ; C. No checking for DAY being greater than ; permissable on a month-by-month basis is done. ; ERROR POP H ; Get rid of PSW on stack. ORI 80H ; Set Minus flag. RET PAGE ; Multiply two 16-bit numbers, return the 32-bit product. ; DE.HL=HL*DE. ; Registers: ; On entry: ; HL=Multiplicand ; DE=Multiplier ; BC=unused ; AF=unused. ; On exit: ; HL=Product (low half) ; DE=Product (high half) ; BC=destroyed ; AF=destroyed. ; MULWW MOV B,H ; Move multiplicand to BC. MOV C,L LXI H,0000 ; Initialize product. MVI A,16 ; Bit-counter. MULWW1 DAD H ; Shift HL left 1. XCHG ; If high bit is 1, sets carry. CALL RHL ; Rotate HL and Cy left one. XCHG JNC MULWW2 ; If no carry, skip. DAD B JNC MULWW2 ; If no carry, skip. INX D MULWW2 DCR A ; Keep loop count in A. JNZ MULWW1 ; Loop for 16 bits. RET ; ; Divide 32-bit number by 16-bit number. ; DE.HL=DE.HL/BC ; Registers: ; On entry: ; HL=Dividend (low) ; DE=Dividend (high) ; BC=Divisor ; AF=unused.  ; On exit: ; HL=Remainder ; DE=Quotient ; BC=destroyed ; A =Preserved ; F=Modified. ; DIVLW XCHG ; High order to HL, low to DE. MVI A,16 ; Set loop-count. DIVLW1 XCHG ; Shift one bit form DE to HL. DAD H ; (DE) shifted left into carry. XCHG CALL RHL ; Rotate HL, Cy left one. CALL SBCHB ; Subtract BC from HL. JNC DIVLW3 ; Increment DE if no carry. DAD B ; Else cancel last subtract. DIVLW2 DCR A JNZ DIVLW1 ; Loop if not done. RET DIVLW3 INX D JMP DIVLW2 ; ; HL=HL+BC+Cy. ; Preserves A, BC, DE. ; Modifies HL, and flags. ; ADCHB PUSH PSW ; Save A reg. MOV A,L ; Get low half of HL... ADC C ; Add low half of BC, Cy. MOV L,A ; Update low half of HL. MOV A,H ; Now do high half of HL. ADC B MOV H,A XTHL ; Swap HL, PSW. MOV A,H ; Move old A to A reg. POP H ; Recover HL. RET ; ; HL=HL-BC-Cy. ; Preserves A, BC, DE. ; Modifies HL, and flags. ; SBCHB PUSH PSW ; Save A reg. MOV A,L ; Do a 16-bit + Cy subtract. SBB C MOV L,A MOV A,H SBB B MOV H,A  XTHL ; Swap HL, PSW (HL now on stack). MOV A,H ; Recover A. POP H ; Recover HL. RET ; ; Rotate HL+Cy left one. ; Modifies HL, and flags. ; RHL PUSH PSW ; Save A. MOV A,L ; Rotate HL and carry left. RAL ; Shift Cy into right end of HL. MOV L,A MOV A,H RAL MOV H,A XTHL ; Swap HL, PSW. (HL now on stack). MOV A,H ; Recover A. POP H ; Recover HL. RET ; ; Testing. ; END  JULIAN DATES FOR MICROCOMPUTERS by Gordon King Dr. Dobb's Journal, June 1983, page 66. Documentation for files CTOJ, JTOC, and MULDIV The original article gives a brief discussion of Julian dates, and explains why one might want to use them on a microcomputer. The author then presents two routines for converting calendar dates to Julian dates, and converting Julian dates to calendar dates. The routines presented are quite compact, due to several limitations, one of which is that the Julian date is presented as 16-bit integer, allowing only 179 years to be covered. The routines presented are based on Algorithm 199 in The Collected Algorithms of the ACM, as presented by R.G. Tantzen in 1963. Calendar dates are presented as DAY (1-31), MONTH (1-12), YEAR (1900-2079 or 1920-2099); Julian dates are presented as an integer (0-65,535). The beginning date is 1 March 1900 (or 1 March 1920); the ending date is 4 August 2079 (or 4 August 2099). The starting month/day was chosen to avoid problems with 29 February in leap years. The day of the week may be easily derived by dividing the Julian date by 7. Throw away the quotient, and use the remainder. It will be in the range of 0-6. For a base year of 1900, 0=Thursday, 1=Friday, etc.; for a base year of 1920, 0=Monday, 1=Tuesday, etc. The original listings were for a Z80 assembler. Those have beeAn converted to 8080, with Z80-unique opcodes replaced with 8080 subroutines. This change was made with Digital Research's ASM and MAC assemblers in mind. Package contents: JULIAN.DOC This file. CTOJ.ASM Calendar to Julian conversion. JTOC.ASM Julian to Calendar conversion. MULDIV.ASM 16-bit multiply/divide routines. The .ASM files contain code that is designed to be a subroutine. Included with CTOJ and JTOC is some code to support standalone testing. I have included MULDIV because of the general usefulness of the two routines in it. A minimal amount of testing of CTOJ and JTOC at the extreme ends of the range of years has not revealed any bugs. Mnemonic conversion, code substitution, and documentation provided by John J. Warkentin, Orangevale, Ca. ; *********************************************** ; * * ; * JTOC * ; * * ; *********************************************** ; Convert calendar date to Julian day. ; ; By Gordon King ; from DDJ June 1983 page 66. ; modified by ; John J. Warkentin ; ; =============================================== ; ; This piece of code was used for debugging JTOC ; using DDT. It is NOT part of JTOC. ; ORG 0300H ; TESTING CALL JTOC RST 7 ; Return to DDT. ; ; The following locations should be part of the ; calling program. ; All values are in hexadecimal. ; YEAR DS 2 ; Year is left here. MONTH DS 1 ; Month is left here. DAY DS 1 ; Day is left here. JDATE DS 2 ; Julian date is found here. ; END ; ; =============================================== ; J T O C ; YEAR0 EQU 1900 ; Base year. ; ; Legal range of dates is 1 March 1900 to 4 August 2079. ; ; Psuedo-code representation of JTOC: ; ; JTOC Y=(4*JDATE+3)/1461 ; D=(4*JDATE+3) MOD 1461 ; YEAR=Y+BASE.YEAR /* BASE.YEAR=YEAR0 *\ ; D=D/4+1 ; M=(5*D-3)/153 ; D=(5*D-3) MOD 153 ; DAY=D/5+1 ; IF M.LT.10, MONTH=M+3 ; ELSE MONTH=M-9, YEAR=YEAR+1 ; ; Enter with julian date in memory location JDATE. ; Exit with memory locations YEAR, MONTH, DAY containing ; values for the year, month, day. ; JTOC LHLD JDATE ; Get Julian date. LXI D,0004 ; 4*JDATE... CALL MULWW LXI B,0003 DAD B ; ...+3. JNC JTOC1 INX D JTOC1 LXI B,1461 ; Y=(4*JDATE+3)/1461 CALL DIVLW PUSH D LXI B,0004 LXI D,0000 CALL DIVLW ; D=D/4... INX D ; ...+1 LXI H,0005 CALL MULWW ; 5*D-3 LXI B,0003 ORA A CALL SBCHB JNC JTOC2 DCX D JTOC2 LXI B,0153 CALL DIVLW ; M=(5*D-3)/153. PUSH D LXI B,5 LXI D,0 CALL DIVLW ; DAY=D/5... INX D ; ...+1. MOV A,E STA DAY POP H ; M POP D ; Y MOV A,L ADI 3 ; MONTH=M+3. CPI 13 ; IF MONTH.GT.12 JC JTOC3 SUI 12 ; MONTH=MONTH-12. INX D ; Y=Y+1. JTOC3 STA MONTH LXI H,YEAR0 DAD D ; YEAR=Y+BASE.YEAR. SHLD YEAR RET PAGE ; *********************************************** ; * * ; * MULDIV * ; * * ; *********************************************** ; ; By Gordon King ; from DDJ June 1983 page 66. ; modified by ; John J. Warknetin ; ; Routines as originally published were written in ; Z80 assembley language, and used some Z80-unique ; op-codes. John re-wrote these in 8080 mnemonics ; and expanded the unique op-codes to 8080-equivalent. ; ; ; Multiply two 16-bit numbers, return the 32-bit product. ; DE.HL=HL*DE. ; Registers: ; On entry: ; HL=Multiplicand ; DE=Multiplier ; BC=unused ; AF=unused. ; On exit: ; HL=Product (low half) ; DE=Product (high half) ; BC=destroyed ; AF=destroyed. ; MULWW MOV B,H ; Move multiplicand to BC. MOV C,L LXI H,0000 ; Initialize product. MVI A,16 ; Bit-counter. MULWW1 DAD H ; Shift HL left 1. XCHG ; If high bit is 1, sets carry. CALL RHL ; Rotate HL and Cy left one. XCHG JNC MULWW2 ; If no carry, skip. DAD B JNC MULWW2 ; If no carry, skip. INX D MULWW2 DCR A ; Keep loop count in A. JNZ MULWW1 ; Loop for 16 bits. RET ; ; Divide 32-bit number by 16-bit number. ; DE.HL=DE.HL/BC ; Registers: ; On entry: ; HL=Dividend (low) ; DE=Dividend (high) ; BC=Divisor ; AF=unused. ; On exit: ; HL=Remainder ; DE=Quotient ; BC=destroyed ; A =Preserved ; F=Modified. ; DIVLW XCHG ; High order to HL, low to DE. MVI A,16 ; Set loop-count. DIVLW1 XCHG ; Shift one bit form DE to HL. DAD H ; (DE) shifted left into carry. XCHG CALL RHL ; Rotate HL, Cy left one. CALL SBCHB ; Subtract BC from HL. JNC DIVLW3 ; Increment DE if no carry. DAD B ; Else cancel last subtract. DIVLW2 DCR A JNZ DIVLW1 ; Loop if not done. RET DIVLW3 INX D JMP DIVLW2 ; ; HL=HL+BC+Cy. ; Preserves A, BC, DE. ; Modifies HL, and flags. ; ADCHB PUSH PSW ; Save A reg. MOV A,L ; Get low half of HL... ADC C ; Add low half of BC, Cy. MOV L,A ; Update low half of HL. MOV A,H ; Now do high half of HL. ADC B MOV H,A XTHL ; Swap HL, PSW. MOV A,H ; Move old A to A reg. POP H ; Recover HL. RET ; ; HL=HL-BC-Cy. ; PreservAes A, BC, DE. ; Modifies HL, and flags. ; SBCHB PUSH PSW ; Save A reg. MOV A,L ; Do a 16-bit + Cy subtract. SBB C MOV L,A MOV A,H SBB B MOV H,A XTHL ; Swap HL, PSW (HL now on stack). MOV A,H ; Recover A. POP H ; Recover HL. RET ; ; Rotate HL+Cy left one. ; Modifies HL, and flags. ; RHL PUSH PSW ; Save A. MOV A,L ; Rotate HL and carry left. RAL ; Shift Cy into right end of HL. MOV L,A MOV A,H RAL MOV H,A XTHL ; Swap HL, PSW. (HL now on stack). MOV A,H ; Recover A. POP H ; Recover HL. RET ; ; Testing. ; END ; *********************************************** ; * * ; * MULDIV * ; * * ; *********************************************** ; ; By Gordon King ; from DDJ June 1983 page 66. ; modified by ; John J. Warknetin ; ; Routines as originally published were written in ; Z80 assembley language, and used some Z80-unique ; op-codes. John re-wrote these in 8080 mnemonics ; and expanded the unique op-codes to 8080-equivalent. ; ; ; Multiply two 16-bit numbers, return the 32-bit product. ; DE.HL=HL*DE. ; Registers: ; On entry: ; HL=Multiplicand ; DE=Multiplier ; BC=unused ; AF=unused. ; On exit: ; HL=Product (low half) ; DE=Product (high half) ; BC=destroyed ; AF=destroyed. ; MULWW MOV B,H ; Move multiplicand to BC. MOV C,L LXI H,0000 ; Initialize product. MVI A,16 ; Bit-counter. MULWW1 DAD H ; Shift HL left 1. XCHG ; If high bit is 1, sets carry. CALL RHL ; Rotate HL and Cy left one. XCHG JNC MULWW2 ; If no carry, skip. DAD B JNC MULWW2 ; If no carry, skip. INX D MULWW2 DCR A ; Keep loop count in A. JNZ MULWW1 ; Loop for 16 bits. RET ; ; Divide 32-bit number by 16-bit number. ; DE.HL=DE.HL/BC ; Registers: ; On entry: ; HL=Dividend (low) ; DE=Dividend (high) ; BC=Divisor ; AF=unused. ; On exit: ; HL=Remainder ; DE=Quotient ; BC=destroyed ; A =Preserved ; F=Modified. ; DIVLW XCHG ; High order to HL, low to DE. MVI A,16 ; Set loop-count. DIVLW1 XCHG ; Shift one bit form DE to HL. DAD H ; (DE) shifted left into carry. XCHG CALL RHL ; Rotate HL, Cy left one. CALL SBCHB ; Subtract BC from HL. JNC DIVLW3 ; Increment DE if no carry. DAD B ; Else cancel last subtract. DIVLW2 DCR A JNZ DIVLW1 ; Loop if not done. RET DIVLW3 INX D JMP DIVLW2 ; ; HL=HL+BC+Cy. ; Preserves A, BC, DE. ; Modifies HL, and flags. ; ADCHB PUSH PSW ; Save A reg. MOV A,L ; Get low half of HL... ADC C ; Add low half of BC, Cy. MOV L,A ; Update low half of HL. MOV A,H ; Now do high half of HL. ADC B MOV H,A XTHL ; Swap HL, PSW. MOV A,H ; Move old A to A reg. POP H ; Recover HL. RET ; ; HL=HL-BC-Cy. ; Preserves A, BC, DE. ; Modifies HL, and flags. ; SBCHB PUSH PSW ; Save A reg. MOV A,L ; Do a 16-bit + Cy subtract. SBB C MOV L,A MOV A,H SBB B MOV H,A XTHL ; Swap HL, PSW (HL now on stack). MOV A,H ; Recover A. POP H ; Recover HL. RET ; ; Rotate HL+Cy left one. ; Modifies HL, and flags. ; RHL PUSH PSW ; Save A. MOV A,L ; Rotate HL and carry left. RAL ; Shift Cy into right end of HL. MOV L,A MOV A,H RAL MOV H,A XTHL ; Swap HL, PSW. (HL now on stack). MOV A,H ; Recover A. POP H ; Recover HL. RET  ; *********************************************** ; * * ; * CTOJ * ; * * ; *********************************************** ; Convert calendar date to Julian day. ; ; By Gordon King ; from DDJ June 1983 page 66. ; modified by ; John J. Warknetin ; ; YEAR0 EQU 1900 ; Base year. ; ; Legal range of dates is 1 March 1900 to 4 August 2079. ; ; Psuedo-code representation of CTOJ: ; ; CTOJ Y=YEAR-BASE.YEAR /* BASE.YEAR=YEAR0 *\ ; IF MONTH.GT.2, M=MONTH-3 ; ELSE M=MONTH+9, Y=Y-1 ; JDATE=(1461*Y)/4+(153+M+2)/5+DAY-1 ; ; ; *********************************************** ; * * ; * JTOC * ; * * ; *********************************************** ; Convert calendar date to Julian day. ; ; By Gordon King ; from DDJ June 1983 page 66. ; modified by ; John J. Warknetin ; ; YEAR0 EQU 1900 ; Base year. ; ; Legal range of dates is 1 March 1900 to 4 August 2079. ; ; Psuedo-code representation of JTOC: ; ; JTOC Y=(4*JDATE+3)/1461 ; D=(4*JDATE+3) MOD 1461 ; YEAR=Y+BASE.YEAR /* BASE.YEAR=YEAR0 *\ ; D=D/4+1 ; M=(5*D-3)/153 ; D=(5*D-3) MOD 153 ; DAY=D/5+1 ; IF M.LT.10, MONTH=M+3 ; ELSE MONTH=M-9, YEAR=YEAR+1 ; RET ; ; *********************************************** ; * * ; * DAYW * ; * * ; *********************************************** ; written by ; John J. Warkentin ; November 16, 1983 ; ; A program to give the day of the week. ; This is a companion program to CTOJ and JTOC. ; ; =============================================== ; Demonstration routine.A  ; ORG 300H ; JDATE EQU 012EH ; Location in JTOC. ; LHLD JDATE ; Get Julian date. CALL DAYW RST 7 ; Back to DDT. ; ; =============================================== ; D A Y W ; ; Enter with Julian date in HL. ; Exit with day of week in HL. ; If base year is 1900, day of week is: ; 0=Thursday, 1=Friday, 2=Saturday, 3=Sunday, ; 4=Monday, 5=Tuesday, 6=Wednesday. ; ** NOTE: ; This routine converts the calculated day of week ; to the standard numbering of the days. That is, ; 1=Sunday, 2=Monday, 3=Tuesday, 4=Wednesday, ; 5=Thursday, 6=Friday, 7=Saturday. ; ; Preserves all other registers. ; ; Choose FUDGE such that when it is added to the remainder ; resulting from dividing the julian date of a Sunday by 7, ; the result is 7. ; FUDGE EQU 04 ; 7-{(Julian date [Sunday]) MOD 7} ; DAYW PUSH D PUSH B PUSH PSW LXI D,0000 LXI B,0007 ; Divisor. CALL DIVLW ; ; Add fudge factor to number of day (This changes for ; different base year. It is the amount to add to the ; number of Sunday to equal 7. Next, check for value>6. ; If so, subtract 7. Add 1 to result in any case. ; MOV A,L ADI FUDGE ; Convert to 1=Sunday, CPI 7 ; 2=Monday, CNC GT6 ; 3=Tuesday, ADI 1 ; 4=Wednesday, MOV L,A ; 5=Thursday, POP PSW ; 6=Friday, POP B ; 7=Saturday. POP D RET ; HL contains number of day. ; ; Part of the adjustment to align the number of the ; day of the week with standard sequence of the ; days of the week. ; GT6 SUI 7 RET ; ; Divide 32-bit number by 16-bit number. ; DE.HL=DE.HL/BC ; Registers: ; On entry: ; HL=Dividend (low) ; DE=Dividend (high) ; BC=Divisor ; AF=unused. ; On exit: ; HL=Remainder ; DE=Quotient ; BC=destroyed ; A =Preserved ; F=Modified. ; DIVLW XCHG ; High order to HL, low to DE. MVI A,16 ; Set loop-count. DIVLW1 XCHG ; Shift one bit form DE to HL. DAD H ; (DE) shifted left into carry. XCHG CALL RHL ; Rotate HL, Cy left one. CALL SBCHB ; Subtract BC from HL. JNC DIVLW3 ; Increment DE if no carry. DAD B ; Else cancel last subtract. DIVLW2 DCR A JNZ DIVLW1 ; Loop if not done. RET DIVLW3 INX D JMP DIVLW2 ; ; HL=HL-BC-Cy. ; Preserves A, BC, DE. ; Modifies HL, and flags. ; SBCHB PUSH PSW ; Save A reg. MOV A,L ; Do a 16-bit + Cy subtract. SBB C MOV L,A MOV A,H SBB B MOV H,A XTHL ; Swap HL, PSW (HL now on stack). MOV A,H ; Recover A. POP H ; Recover HL. RET ; ; Rotate HL+Cy left one. ; Modifies HL, and flags. ; RHL PUSH PSW ; Save A. MOV A,L ; Rotate HL and carry left. RAL ; Shift Cy into right end of HL. MOV L,A MOV A,H RAL MOV H,A XTHL ; Swap HL, PSW. (HL now on stack). MOV A,H ; Recover A. POP H ; Recover HL. RET ; ; Testing. ; END ; The following subroutines are taken from the article by Gordon King ; in the June 1983 issue of Dr. Dobb's Journal ; ; Credit is due only to Gordon King of ; King Software ; P.O. Box 208 ; Red Bank, NJ 07701 ; for the creation of these routines. ; ; As I typed the file, any errors are my own. ; ; By the way, the use of the equal sign in the equates below is due ; to the fact that the Z80 Assembler written by Gordon accepts that ; form. The assembler is available from him (including source) for ; $50.00. I have a copy, and it is very informatively written, as ; is the 77 page tutorial which accompanies it. ; ; Bill Meyer, Aptos, CA ; ; ; YEAR = 1900 ; base year CYCLE4 = 365+365+365+366 ; convert calendar date to Julian CTOJ: LD HL,(YEAR) ; get the year LD A,(MONTH) ; and the month OR A,A ; check for a legal value JP Z,ERROR CP A,12+1 JP NC,ERROR SUB A,3 ; month in MAR-FEB "year" JR NC,CTOJ1 ADD A,12 ; Jan or Feb become 10, 11 DEC HL ; of previous year CTOJ1: LD E,A ; put month in DE LD D,0 LD BC,-YEAR0 ; subtract the base year ADD HL,BC  LD A,H ; check for legal year OR A,A JP NZ,ERROR LD A,L CP A,179+1 JP NC,ERROR PUSH DE ; save the month LD DE,CYCLE4 ; days in a leap year cycle CALL MULWW ; DE*HL to (DE,HL) LD BC,4 CALL DIVLW ; (DE,HL)/BC to DE (quotient) POP HL ; get the month back PUSH DE ; save (YEAR*1461)/4 LD DE,153 CALL MULWW ; DE*HL to (DE,HL) INC HL ; add 2 INC HL ; (no overflow possible) LD BC,5 CALL DIVLW ; (DE,HL)/BC to DE (quotient) POP HL ; get back first term ADD HL,DE ; add (153*MONTH+2)/5 JP C,ERROR ; error if overflow LD A,(DAY) ; get day DEC A ; reduce by one for base 0 J. D. CP A,31 ; check for legal value  A! JP NC,ERROR LD E,A ; to DE LD D,0 ADD HL,DE ; add in JP C,ERROR ; error if overflow LD (JDATE),HL ; store away RET ; convert Julian date back to calendar date JTOC: LD HL,(JDATE) ; get the Julian date LD DE,4 ; 4*JDATE + 3 CALL MULWW ; DE*HL to (DE,HL) LD BC,3 ADD HL,BC JR NC,JTOC1 INC DE JTOC1: LD BC,CYCLE4 ; y = (4*JDATE + 3)/1461 CALL DIVLW ; (DE,HL)/BC to DE (q) and HL (r) PUSH DE ; save y, HL has D (remainder) LD BC,4 ; d = d/4 + 1 LD DE,0 CALL DIVLW ; (DE,HL)/BC to DE(q) INC DE LD HL,5 ; 5*d - 3 CALL MULWW ; DE*HL to (DE,HL) LD BC,3 OR A,A SBC HL,BC JR NC,JTOC2 DEC DE JTOC2: LD BC,153 ; m = (5*d - 3)/153 CALL DIVLW ; PUSH DE ; (DE,HL)/BC to DE(q) and HL(r) LD BC,5 ; save m, HL has d (remainder) LD DE,0 ; DAY = d/5 + 1 CALL DIVLW INC DE ; (DE,HL)/BC to DE(q) LD A,E LD (DAY),A POP HL ; m POP DE ; y LD A,L ; MONTH = m + 3 ADD A,3 CP A,12+1 ; if MONTH .GT. 12, JR C,JTOC3 SUB A,12 ; MONTH = MONTH - 12 INC DE ; y = y + 1 JTOC3: LD (MONTH),A LD HL,YEAR0 ; YEAR = y + Base Year ADD HL,DE LD (YEAR),HL RET ;MULTIPLY DE BY HL, RETURN 32 BIT PRODUCT IN DE (HIGH ORDER ;WORD) AND HL (LOW ORDER WORD). DESTROYS A, BC. MULWW: LD B,H ;MOVE MULTIPLICAND TO BC LD C,L LD HL,0 ;INITIALIZE PRODUCT LD A,16 ;COUNT 16 BITS OF MULTIPLIER MULWW1: ADD HL,HL ;SHIFT DE,HL LEFT ONE BIT EX DE,HL ADC HL,HL EX DE,HL JR NC,MULWW2 ;JUMP IF NO MULTIPLIER BIT ADD HL,BC ;ELSE ADD MULTIPLICAND TO RESULT JR NC,MULWW2 ;IF LOW ORDER WORD OVERFLOWS, INC DE ; CARRY INTO HIGH ORDER MULWW2: DEC A ;CONTINUE FOR 16 BITS JR NZ,MULWW1 RET ; divide (DE,HL) by BC. qoutient to DE, remainder to HL. DIVLW: EX DE,HL ; HIGH ORDER TO HL, LOW TO DE LD A,16 ; COUNT 16-BIT QUOTIENT DIVLW1: EX DE,HL ;SHIFT ONE BIT FROM DE TO HL ADD HL,HL EX DE,HL ADC HL,HL SBC HL,BC ;WILL DIVISOR GO IN YET? JR NC,DIVLW3 ;JUMP IF YES ADD HL,BC ;NO - RESTORE HL DIVLW2: DEC A ;CONTINUE FOR 16 BITS JR NZ,DIVLW1 RET DIVLW3: INC DE ;INCREMENT QUOTIENT JR DIVLW2 ;LEAVE RESIDUE IN HL, CONTINUE  LD C,L LD HL,0 ;INITIALIZE PRODUCT LD A,16 ;COUNT 16 BITS OF MULTIPLIER MULWW1: ADD HL,HL ;SHIFT DE,HL LEFT ONE BIT ZCPMGNTOPAQMo?CPMGNBOTAQMrURCPMGENERDQC CPMKERMIDQCUSERTOP DQC#FUSERBOT DQC+PROTO DQCKERMIT CQ X"KERMIT TQT -vCPMGNTOP.ASMm  !"#%$&'()+*-,/.1032465789:o;<>=?@BACDEFGHIKJLMNOPRQTSUVWXYZ\[^]`_badcefjhgiklf3Ӟ1Y76`Z~lo orvix7}\'?0[eڼX4tۄ*ka?'VOf,qe~OM-4jzR6vmGkoͧ^?iIWFYxiK-cx0;C %e0[JКf3Ӟ1Y7Pe~- ?Ċ~Bm6RW6V^?Oa./]!MBa5}g͜6|Ol/ƆU5G֧"}\!7sbyyΪfih=;?QAx}j>.ߓoL{tfmhP6Vv`?}N?;Of,qeyi9X< Vfyq%8 ESޚxM?>shݷy:DI->9岜5/,<5KRm;6/KO3 tfnP>Xg=PqBjMxW,kjNuvB8`W!A"ꚖocǕY5vg0÷a9U'oO~a>3 tfnPXY1N(TOl <%hM f_Gߛ7}\\Q9Y<śd޴xh65УЬnO~tfm tfnPm( 0:'VlXQf,~ف6;^h>ੇ֧"~9{k_8|K֧"- yRB!vQ6goM yyN]_!v$goMoiYSoN&iSoqFGՀoͬۧ.pǕ xлcuz +6FA|o)q9AoZq;~jg\^ΛWƙwsxQx-EQޚxMu8|KAAgllƍ ӷyΆcRgxq.u_sf:ŧ" \[p!u*TqYSf*eb>.ߓoL{Bm*FkXYmceŰ{Ïs7Nf8;O ZG޼CgAn|8oO~a>3 uC ?No'oai}\1C꼗:?q gq$4ܣ+aǕ7}\'?0[T֍ߍf׺Sb=ЩP96yJК^ߚO=\ַtMK3 uCu++~loai}\9d DqK~yν_߱+DM&~_άuC ?NJrBqB1-gNv`BNw,>cYË㨠+iiٮz[YS5-1-FzWH !QSv6By!FnK7 __:zp{Ag}\ٽo5ylųxyjG͛ &Sˁ:y3]S8q{BYyź:ef;i/KOWvq1lMYәynކNgt'qv>w,>cYË㨠MBÝNܒƲX<6樠}5-MxW2kHӉ{nO~tfmәynmM7~lXQٿ0NǕΚ=a^GOV[Ƀ;o94a-cԯǕ_RUsV5yyӦبP>.ߓ)c:6o4>g n0NO(la+_Fwe ݤ{Lg捿0Z1Y7_gæ ? ~>_gʾC^rAp%U^?? XTMάac:6o4͏mBa Cbm/qeSFKQ@PS1o0ŚߧQAcCߩ3 ?~RooNb=әy/;{Lgf׺a{Pet)'t'Vla+^?s]$iqlMάac:6o4>ۄ*æ ?N9SN?f8;M_󟭲{ثyFg6ڐ}oMάac:6o4ۄ*æ ? ϶ٿ0NWh6XU6W{= }kZ5=Zs@=pKּ=kjgϛ>.ߓ1Y7htfmhv UM7~?Nf8;M_CglpP:HӉ˛>21`WPR&fb=oٚ=3kFkM3lP>Of8;MWv?^c]s%ž>oO~[weڼZ7M7~j?f8;MW6W{EO&N ;O(n Gfz:𦏋ekʺ_άucm~0 ?NJ~}ٿ0NW:參·8bΛwyo٬q1lMYәynd?tO(m/qet{V|Cxq* |YO~tfm5әynocEg`7~ e}ٿ0NǕ՞_hyr0SgK[fh7vϚ>.ߓ1Y7hͰtfmhvm?c`7~}}Nf8;MWNYЖ5sSGlųx Q/;ֿelO~tfmәyaѺnۄp ЩzBoa+=Fa9Y> ;Ϭ:CN܋bCbpq1|ڼ=3kuklo:i' ?B:J9Ou 4}\\sqF {Ug5}\'?c:6oeڼhZ7t>0PW>Nf8;MW6W{’5-B^N%8Σ5Ԧ{Lg捿1Y7v_N{ba>'N(?f8;MWv;;!O[JPU&fL3V ՔYO~tfmәyntXY1ea>'tʉm/qesx%T5FMmǮE~릏{Lg捿1Y7_N ï ?BX>_gj`iK/^{aE~릏{Lg捿1Y7_<Ɗfa:Nf8;MW6W{ G<=+Dk6}\ebف:cOe{Lg捿1Y7_NlceŰ{ЭN~vB{ 4}\(`v)VOW!sV5>.ߓ1Y7tfmhv: }~X >_g c9~7:x^xfh 09Mάc:6o4 B߆ ?Bg m/qlUchͿ <2o)SEo[5}\ebف:cXL2{=3k_άu3`~*}NfBf8;MWN;v~*sΟy{=3k_άu}`U?NTOҷٿ0NǕuk3NKGJg84.u{gix}jWP O%_5-{Lg捿1Y7_goCgЭN6i6c/㑒kFǼ:?s驹,{KcW_FqYSfUCOe{Lg捿1Y7_gT`UV'V?Nٿ0NBsg"gqb9mOCo)AMάc:6o4oCg'Ooa+=mmrR55FfXS3mĮO q1|ڼ=3kFkM3l*t'Voa+=ev!Mgf#Zsz$ţLwzkڨ>.ߓ1Y7tfmhvT a VsN(la+5OQ޼sV5Ë㨠MWe0evX5YO~tfmәynf{ l&9Of8;MW6W{ppwGJ(,Mάc:6o4 ۔mf`7~XN98{ 4}\\pwZr@5Mάc:6o4>VXo2 ߔla+=NK=T$ )pא}oMWe0evЛL2GWάaȞ}锘*03'J*"Pc@N4名15%evo}qNQc:6oVRqGԣiغ~d8;O Zd3 \,K[MW>.)[RvlC]NXGW~'(zģ5f)94=ꃼyg\2|ƮǕ(AyԩBW飏+yd1ZWh6U[3ZS(}Gg4&1ȕnQ1jfH\TIL{im#g4&0vi/lkY!Ų%?~xkNrjGWʊAa,ux Wxxyb{MKά ?(+JT;!s^0&+LaSo)6;eyԉ[>l^$ri}:,rc:6o0ĮӦ Sq)gUGs㙙z)YvZjQY5s %X4>Xvkqڞ]31Y7~PbW"iNʼAA)UcS>Xv xkqڞ]31Y7~PbW"y:oq8>XvXNB?iәy%v(ىV--³Xpc٩|qڞ]31Y7~PbW"OZ5de/ƲX緅}G򧨏r״dڼBy)*K}.E>|eB5=g5-c:6o0ĮEvRFKQHPXpcyǁr״dڼByv{R2J);z_܇{}(>XS۳˹^Ӓ=3kJ Q8eAٜƲX緅}GNLz?iәy%v(qy/>uL5=g5-c:6o0ĮE ǤΔy/>xkr״dڼByNvr4?:҇{}ܟkj{v9kZtfm`A]!|L9<<Ϩ,㙙z)YvZjQY5s %X4>҇y3?Y|:,4jX3mg?>.@NAp%=|7P ]y,e<OnXWq- rAoO BsYbg}ϧ5<ØNq(4攽]rng-AoxMK)]hmMWkyNzQ!cwsM[Ug(Aegw}SZ+kf,WEP5>0H\O0Oa%F۶)gJWoOw7NNrf=m: 1ϣm5nz)Qk)Cn;?ON㢂iüxk5mgjX|:bK#aeiѢ6j*nl5nPs=36QqvUŴF(?]2-Fzvڨ9kݠb_ƍi錊g}O7y ޚFMYk,}a}OW^PbeiѢ6j*nl5nPs=36QqvUŴF(?",m1ZԳFMv_2nlLMgT>D}ڼ)S\?>0c1 m}LĴF(gi/m}`[L{inևmi/ЩA@L{iw[ui/Xh-4bDL{i>nbK#tnø+^0fka~6Itf1:HP1\e:y.;fsvЃܰ?\g$9;AnG1kbK#rzIAfL6jSk-TL{i7\e}W1d͘$mԦ>nRbK#}:fΘҖ9;A֌Ib.K[~ifv_1QA4o%S$yeDesji/Pf5沴ӂ$sYO 5ǡbK#r1sYi\ӂg͘$mԦ> bK#kj~ִȯš\BFmf_3MI>*}ĴF(rm_ض}s.g/l!>.a5s%g/lAf1:ymӢK牕>5 vȾ>-0O)Lzp~jWNOL{i]:yŞ_}*m&}{*,;=[XӸ+^fy~ &{Y+ŴFvvpͅ]6w37d͜674mmi/ЩuΙ lgؽoȚ9m  9 wq ҩw5>.a]+*߽%]O_`bK#*+,9p~&P BsKKeN,ޮ>5-}\,VTj^fٵo*k {%ŴF>'4Bg]W\gMۅ$o2; Y3 ,1:w4, uIb;k%̲.~**)N탻^ֻٽohdIC!mԦ>.a}E=FaY3M}X\fi/E]2;FۨM"7evY3^UVX9jn^6ju+T4\9+K[Dn6KEҖ2;& OŴF&v~]gWϰ{Ь&9 gax 4Bd5xuI}_*N3}sG[L{iĊ.kY~]CáٹDes=?Y\O]*HSCzj0˾w=Uv5 O>޼ŴFr7~&٥̵Royi/XYUVX9{lgؽoȚ9m:.`q ZQӬ}j0*ț+k0.U*{)ZS۵f{A*O`%̲ܽqiީvNؘ^.Nl.74kI޼3'ڇ0/a" {}pWx 4bE]_לy79s~f͜6ٛws椱;ܵaތo>W\ŴF\ag8Įw#A$Ꚗ7ŴI\BKp%OW<+SyZ憐oTL{i}|i/3>jGbK#:{ki/P0Q6o o>0o7 *4B٤^lR(}BBŴF(V}y*4Ba>m)W}7rQAŴF(TŴF(Q = ^X(TL{ibއySXNB}7)G^7P.4m}BBŴF(}y*4Ba>m).OQ}7Nͣi/PL;}|bK#i>jGbK# 5BŴF(+>Lԧ͛"WvsN _}Zo~ĴF(&"W_vT8飂嫷z6X5zMm44bK#+v+mfa1}4}i6ĴF(tv+y3,,0nxǚ.4B.resטC ߔwәsSxǚJL{iNg;4;#Bvw̻;m#1 \uͲӶֶ]] %_qa>m)wü >qSpߔw1 _|8nwl_v{]gbK#]XW%Cw~6~ŴFv)vS<]u0Vӂ7}l0li/PJ[G_ضCLߡ-MfjF 1 ]Qhܲ:dw.47resטC ߔwәsS9j(i(1  ,uَ"?f˕_'u1ϥAQcO?|rjm͔bK#.W~ygͥ!ABvw̻G|ʩ}\鮳\xib]g4C-5m0,uΛw'9ڇy3W*7`üuLÚlCL{iĊ.rź~rT>6~ŴF"W_>-x G#͆.reRuaf^X\1ϣO_- }O7sE:2ofWe?ȹv{ͥNւkBִ+|OW)qYCݶOqKZ;k^\aOW)}q+8i/.reyf8{,MSi/PFXSS1?HUL{i*]Nb"uOŴFR,>tv+>QA>.>.R?*4EY[30V>.R?jGbK#:ȕBBK>5BŴF(V"W(4n2Q6o Tc>0oƀfRJYq`OY1mDL{iJ\@W`sAQi0OqLY*_i;;i;:&uчy3,'ZmDL{i ].rNBțm9m).G@5LY?Ei;:[Өi;ŧCRܟs"4R^)gS(mreyn_5gNS C!SӇy3Wk,ȟT: QS!i;KLzrfs}7PvNĴFr:&Wv6eپ w7@:q}j&\Q?(}i/SNU\~+S\v1m"WN g8WXSg^GJMkWh^\9+fj\a9ygͥ7}pGL{ioȕnk/xxi/XQEvX}9)?qs]i/P~\9+B:n0om#?Tn >^.rۯpyjYSX7}O7s%mr&>̛yǁ=mg܀I]i/Pv0Q6o;i;KLz7?-4B\9+s^qn1 ]i_5s^qDL{iBarW` yx%=hx7^PEvXN|<ǻ5-!Aͽb13+~pwLmM7xbK#;g"WN 'XS۾!AO*4R^EvX}9M7RQUL{i앋\9+byN!AYSL{iBabb`iK?4}fbK#}EP4}}i/P~.rsxEbK#:ȕ_}v!=h&;"W3ž:*~\I(l[L{i]ʾ<]uڱBBc퐟N[a6_ĴF~PE?jnŴF\~+3R ;ø飏{=OL{iBgrW`׳u:> _[ĴF(tv+-*M[^X\a|=ofͣ {$?7cx-|Aj/1v+BBc/ᇓ^Pe{^H|ڮbK#E0>vm`K}p}'WЖ"+;s}CW޼cEտp}}GN7?Dy?Ǯ!\+<܇~l>R杯c\A #Qa9UgۡCpʽe9U0qWGTn!} V9xy9xZӒڇ%\COU֚>c-!?"W|ohQ*kMK\(DCl*KClԇ!p}>OWܠ}țK}'wjw)|j&\܀I!"W~FњK]!ao_J(>lųxyfάMbPCy yŕG<~ߛ7o-=ܾroK_B9~\aE;4}n_~>X+oK!aRy!i>Cp ږ>5DкF78vyZ>{Ӈ|}}Z1>~w> GSDZ#x!o_ڇ~GijCZ#CZ#݇~G+ȕ_,78)y˿ _߇~G8קCZ#>;ڇ~GՉ|=+\a55/\aMKF++sN;9MB1H[*rt<[X+d{Wkj^šh"WMWȕ9o0qWއ~GJR+kYޚMl3ӎ\fSH7>{{?}"Wʊ$ߑçEg7[iirPy~5oM'曆\oZp }M%*"W~GgjC  k:dMa߷C>ʷ-"W ͚y+—eƮ5-MBYsȕȃygͥǣc>c\A cKW! MW-'`هq>c\A #QyӇ{{?}}yǸ+C>Ry~Wh^GJP>K}Zyr+gN|M:>-ߙwTʯkyfvGJPEY|Cpu6}HwSC8`/"Wv'X{ao7!JY0ϯg(_,ϚKSקΦi0i۪w}"X))]Ep!;SgӇ?$A%>}n_k/r'Bra_?ϚQ'XgTp}l'f+vMTE0/U!tΛ>!k~H[[<QضϛwkzGk.=Bp+f!upMWm-هq>0om#?Y|:,SBp+uv3Xs)D>+ v_Cd3RMW(l[}C 1ܲ\!;FaSEjϻo]![֜kZ>\`K9@-tM}qə_,ϚK\z"~ŧ"r5< T; yӇce} -"W;h3*hDքG8~gjGa9o0Dкx!iW x㑒I+m!X)-3Ҽpw\zGJl'"Wvfp,;KyތTh|ShBEY|CCT|+\},ҦX+oKCShr5< T; yӇ%+gLsáI~mAGͩ}Ț'+I?MMva_(`vy_ Z CC%'r<_ \T;< ߙwY=HW̓>5< T;#%W!;!~y`1pJZ(3R<O'X~7}n_AB뚗Ek0?\u"eMQ9a=XΛ>\uQThM- WRj0D8N|<ǃ:bt+ZL3pHR|>7}Zy򲕋\%Ya-㑒kӇqHIʯ;<#%צIwTJ6~o !km7EFS {ϻCp}}k."X)7 giތTHɵCZW\1ۙUC'Sg9dio0TCZ#Ϩ}+ȹ灇SK[57}qɮQAD>ۖ\iSoq3*hӇp}pKw|%ʉq+43pH7}1_DrtZ(\3p?/ϿtMK M>c-EWkC<D%X+o[N].rzwO=HɵC8xԇ; *r%)Wa_yPyYޚM} 'V rΐx+}yǸ+C0wfBf{0ϯ'|jyfv>#|g(!aY RVXQg8WXΛ>\`Kl5=ܕ8s?}+dͥ9)'_׭4'#%S>\u"8\ow\Wv;/xģ5+y5؛>䫬|'+fi֌"HɵClƺFkykz!~]\u"8\B>+) ?*+ cY5s+)Cʷ}}ȚA}_.r5"W~W{ykp>.@jkzͳfQ>nͥ9)fMt?*r<< T;,SyӇ|y~5+y~e9DћQ9ly~l/A! Ua_QfZ@9>>a_15<^'& yϧfiӇp}ŧ"r<h3*h ӭNdM$OҦR"r<+Q9OH5  i'Ombl_DкFxZ3pCw3"Hɵg:=973?6}HJ+u=yBK!aAA q?(+bjӇ|!\_f)\9sEY|CCp ~DкkC鋁+)5C8p<"}YӮ=]u6}ח\},",>!KT!kmV.refxGJMB#%+>(\>$ߑgTP+| 3*hӇk`/V'B2 giތm3#%W6}H"WB]Qhv!~VhBEY|CCȱv+Eﵯ2pHCZ]ά*q>[>}y*b]YR78@|xӇ~GQAE7-EO=Z VYy~< SCT|+\},"OqO,>!Վr!~9J:O kypSsáCny䫬ׇ%+Q9)31y~̣sKTEPO_<#%3xKͩ}Zy򲕋\%Ya-㑒kӇqHIʯ;<#%צIwTJ6~o ! !Jf0ϯMc/l'`/T|%'r5<#%3>䫬ׇ>|G a_1,", \3p`Ӈ?DB]ݓyBK!kB0ϯ'|jyGJg84}ț+7مy~ejQ5hYP*1rtȕ|.p>TS(3>#|gQ>d a_1O(3R\yӇp;Jڇq,^X k^=Zz6}HZ#Ϩ}ygͥt+t=xQ1 vMY| -"Wh]3pH7}חo+Y!km)҇p}ŧ"r̹kyfvbt+5$?m H5 ,5bRsjV޶l"WvIiox!a~ۖ.EO=Zs?}'X!\_>>\{az"X)_.+yQxUgӇ?{aQY|"Wh]sáCʊ}}_X \Cw3( H5 6}HJ+u=Y7(YޚMVޖ"+5$?1>Rr,>!%kS>KTe+KJ~[<#%צ!㑒ȕ_wyGJM3*hV޶|\ʯky>h ߁]Cp}}cT.+fy3P!#%צi ڇqByF-}\rs?}}w"~ŧ"r5< T; yӇc{ -"W;; *rei(p}њgTЦ> y!Վr!a8)\uHɵC$r%8;#%דW\CȱR~\W/ -"Wh]3pH7}9V׮"r<< _fvs6}HҭD̪9Cpʽu8҇q+?k㖦i<\AoZ<<\ztYy~< SCT|+\},"OqO,>!Վr!~9J:O kypSsáCny䫬ׇ%+Q9)31y~̣sKTEPO_<#%3xKͩ}Zy򲕋\%Ya-㑒kӇqHIʯ;<#%צIwTJ6~o !OTOdM$O"H5 ys&0ϯl0Sm;<- J!R!\_XهjEY|CӇ`;Jڇ$+I?EY|C㑒+oY|GI|ShBEY|CCT|+\},ҦKTEкF(Js?}MB9 CyF њS AgTЦX+oKCShr5< T; yӇp}y`1pJk)f 㬙Se+KJ~[<#%צ!㑒ȕ_wyGJM3*h}Y9V7˅y~Wh{agӇ?/r%uLohMo+Qg8QXΛ>+kWhXGQ^/ T; 9> O"WvfP!}:|C8PȕӋqKӇ~GQAE7-EO=Z S+ yG8~gjGa9o|%'r5<89)f!7c-2OEʙs3R(,M%*"WkI~@㑒kfYcmyEҬHɵC8x$rE㑒kӇ; *r%oayFmpc5< T;#%W!;O#|(cZ(QT A@\u",>!Axۚ5szM OWCj1CȱBCZ"Wv(hmX@PD05ז1v6>d a_akjFgzxӇ~G~jp?qjFa\i+(4 \-reW)( {Ӈ{k!w}_f)\u",>!Վr!\_*ZD>giӇ|!\_f)\9sEY|CC<D%] u5Os!g<Ԝڇ|-/[ȕ]R9)6}yDs~9VM%>}o}}'Vޖ|^"WpϛY(4~8iܾromb\],"ϻopcW"!ͻIw-G7}p7D>ے_B!Z׼:_Ӈ;Rr\ur5/N{}t|Jjylb/g84}B^U ky\c/MWM>/61y~=t kjaa_fcXhfȚ1 v!}mmb$r5/61f\u"3>0zymsצLLBOWv;K5]EкFgz^؛>[}yǸ+CȱBd;[bbXj(ȚZȃצi}t>/61f!X!\_lbCp 0pI ky=9OȃצLy~e~GEjܵC>0C>䫬h"QkӇ|cKCwC8w>!}mmb!;61>c[JMz";FaSEкfzMUVClC8w>!;61+FY3<;>䫬|ׇԇp85!FUVCȱB :MT0ΚKE`E;k.]?Em!km)}חDFxY|CCm/ZDFgjGa9qMWЖ҇p;J*r5< T;#%WP>#|g(\u",>!rP>c\A cKW! MW-'0A0qWއ!aY RVXQg8WXΛ>cmoySEO=ZN|}yO_>o>c|\Wvϳfy=OM:!an/"Wv> {Ӈ~G۪z"X)/c0ϯg(6CZp}y{y[}9V˅y~e<}yipUωc|0ϯg(xp}l'vB^ipUc|\Wvϳfy;~vp}l'+vME0/U!tΛ>5Sˆ T9o0i}pN5Sˆ T9o0i}K~}ށZ_w\z}5_f)\u",>!Վr!XY_B?"W|g8QX!_Kܾro>Nڇq+?k-}HwTzQԣ5ϨM|ͥV'& yϧfiӇp}ŧ"r<7}_f%BE㑒kfM>cmoȕ_w\zGJMB#%+>(\>$ߑgTP+| 3*hӇqx$r5/#%צIwy~%8;#%ukzԷWhir\WvwCZ5b3F%۵CrtZ(\3phbl_1y~̳4<,HsÁM0ϯ̪Qhɳ5>dM$O"H5 ys&0ϯl0Sm;<- J!R!\_XهjEY|CӇ`;Jڇ$+I?EY|C㑒+oY|GI|<D%] kyfvykܾ'r&A'Ek0?\9wg(O_ӇeBZ(3R(,M[Ecy6}Zy[JeBȕ3Qg8QXΛ>cmfȕ_(p}{ay7}O!X\E>c/M3*ȕiuZ7}\DȱRN].+Ի{!OK\1ۙUݳ,y3PC8q~Qg8WXΛ>/GIg\u"}jGJg84}Ț'+I?!_eؾ>/,.\u"Hɵg!;bGxZ3pHGћ>a_1ۙU8/>RB-㑒6gyk6}Zy[JeBȕ3箙g8QXΛ>cmfȕ_(p}{ay7}O>K9VM%> {!}D2OE kyfv!ZD?wy׾,>!ՎrΦi텝އ{q:><!ߑgTP+;MGS<6}p{aȚ'+I?MeBȕ(3R(,MW6'r5/G]S5O_ \IC8wȕ,mܾ61\akCF^3Y3<;>#|&ơ rc[0ϯPŵC> Rt|5r`3ţ3TCZp{aY5T~7}Zy\ k^Ms?=m0ϯ0Ed(O_GJMf{Ps?=D>|3k~rC0wlb }WYyۯY=߱q(\},QUg!J_\Wۖ>䫬|'+fͼ2cWkꚖX+d{WXUgHBӇ{ x!a㮼X+d{Wkjy=}!}O_B1|%'r5<#%3>K}Zyr+ {!#%צ!㑒ȕ_wyGJM3*ȕlC8p+]}Qg84}F,}ȚA+Qg8QXΛ>KŷBȕ,m>,>+g]3pH7}p{a'Vޖ"+yP>M *("W~]N*ܙg8Dk8Ԧ"rc-esb/lcym;ĿC[>ۖ\ʯky>hmCp}}lȕ(S(O_,UgӇ|-?].r5<\z~}MSCn/V'Brra_æiȕ hɲr<3*hl_w>_f)\u",>!Վr!X^B?"W|g8QX!_ܾro>Nڇq>; *rei(p}њgTЦ~?}Yy~< SCShXE⸟Y|CCp ~DкkC鋁+)5}GPXMW^(l+uMuGk MC PXά(lۡC>֊ !A'C PC~}ȚA}G1CAcyʗ:fzm߹ }WYOW "Afy/#%צY=߹ "W~sTtՙ5s?}9)6}ȚCW̓>5<S>/|q+Qg8!Ϛ!A¶>|G a_a,?›v;{MzOt+f;j,y*rh|EPjY3=QضCӇp}y`1pJzDкFxY|CӇp}y`1pX+o[~\/#%צ!㑒ȕ_wyGJM3*ȕlC8p5<#%3>͕c-2OEʙs(3R(,MBƱ(AЇ;"WLbYv6> _\cyyvy/C~??rP67EyԶɦi *rlgVe>\gu"X).=l'~\uϲxތTHɵC8q~Qg8WXΛ>/GIg\u"}jGJg84}Ț'+I?!_eؾ>/,.\u"Hɵg!;bGxZ3pHGћ>a_1ۙUcQhɳ5>;t++l]pzbEݝ=!~?}O+ra_1,͛q 9)6}HgT><3*hl_wLm}'Y| -"Wh]3pH7}9V׮"r<< _fvs6}Hզ!}:|N!8@}HwTzQԣ5ϨMܫM?5!OW̓>5K>,>+Q)ߙg8QXΛ>/GIg\u"H5 bRVޖ҇p}y`1pJke,bjHɵC8x$rE㑒kӇ; *r%oayFm0Dкx!i0ϯdG~x䚻r AoZ<\6 -MB 6}Hնb3F%۵CrtZ(\3phbl_1y~̳4<,HsÁM0ϯ̪AߩƮEXӛ>Wnu"kB0ϯ'|jyGJg84}ț+7مy~ejQ5hYP*1rtȕ|.p>TS(3>#|gQ>d a_1O(3R\yӇp;JڇeBZ(3R(,M[Ecy6}Zy[JeBȕ3Qg8QXΛ>c-"WvpE{aoܾromb!a㮼LANJYvxAsn!Xt \u"v7}HZ#ܫM/r%5_o"W~]Gk=!\_>>\^mX+o[\ʯky>hmCp}}V'Brra_æi½El@K޼ݳ,y3P!#%צ! "WhGgj\a9o|%'r5<89)f!kB0ϯ'|jӇ|c|<$r5<#%rY|CӇ!+fE㑒k9,>!uz Eofly~lgVF%ljӭDu5R󲻳犥Fkyvwۛ>WcT.+fy3P!#%צi ڇqByF-}\m>W=|ShBE'A