IMD 1.18: 14/11/2012 14:55:01 cp/m-86 public domain programs master copy  CP/M-86 3ȎЎ؎>RYXQ!Q$YPQU2R6>P>YXÉNÀ>VVW^YWZ]QZ]RVZYQ^]]]à uD $t@ <u 9 <u, 2âà uQYQ YQ>t Y<t< s t<u< uÀ u $uñ <$tAQYàMMËRâ ð 'QYÊ tKډ/ &< t 3 36 4 t |IDKD6 Rȋ6 - Y/ "B*AËـ><tًȵDËD Ê"DFB"# ؉DË úBڊ@$"A4<u2Bڠ@ù2CQY á $Ë  'B ڊs?t 3HË ËI;rBR+ӋZñK+sQLKYt :t s\È. N^  S ; RÍIC:uûIË'ICI`sI$QYH u@QYHрŠ$QY Ȋ$يQYR$Y QȈYQZuR><tQSQCS t %;r[CYϋ%CˋC)t;J?t:u C,$uȢ oZѠ3FQ.$""*$Y378td8<t u u:uFڋ;u2BCBCuùهً:rهي1 6 | tڻڱ2Cu ڈ}21!It $t$""1t &$t&Su2twt 2ghZ42B:@r u1=t ?$S,[urIP5=$Ȣ5<s>?$ 3ۉ |y2>=t? t >5t>TuO ÊBdos Err On : $Bad Sector$Select$File R/O$<aa 8LWWz.BDstȎЎ؎V.>uJu uH<tHJÀ>tHðàÈÊtCû&&@ÈGر رmkG_G`]<uM: m&%u &u k>ku?@ABCDKUSER DQCEFGHIJKLKUSER DQCMNOPQRSTKUSER DQCUVWXYZ[\F SYMWELIZA BAS0F CMD^STUVQRTELIZA BAS.VILYSA FAMSCORESPSZVOCLST BAS BIBBLD OBJ-ZSTUFF CMDvDISCRIM2SPSDISCRIM1BAKDISCRIM1SPSDISCRIM1DATKUSER DQC]^_`abcdKUSER DQCefghijklKUSER DQCmnopqrstKUSER DQCuvwxyz{|KUSER DQC}~KUSER DQC KUSER DQC KUSER DQC F BAKXYF BAS\]BIBBLD BAS,CMPRBIB BAS BIBLIO OBJ,SPSSDK1 SPS[TEST1 SPSmPARMS BASKUSER DQC KUSER DQC KUSER DQCKUSER DQCLU DOC LU CMDLU CMDMENU SUBPARMS CMDpVOCBLD BAS)ALFILE DATVOCBLD CMDuTEST1 BAKnVOCLST OBJ VOCLST CMD`SPSSDK1 BAKtMENU DATMENU-PGMCMDMENU-PGMCMDMENU-PGMCMDMENU-PGMCMDMENU-PGMCMD(DISPATCHSUBBEEP CONeTEST1 DATuFDFC BASvwBIBBLD CMDt     F2 OBJLxyFDFC BAKz{CMPRBIB OBJ CMPRBIB CMD_BIBSRCH OBJ&MODEM9 CMDMODEM9 CMDBEEP CMDaQUICKEY CMDQUICKEY CMD\     QUICKEY DOCRAMDISK CMD#RAMDISK DOCF2 DAT|}BIBSR2 BAS1 CF2 SYMBIBSRCH CMDr"#$%&'!(BIBSR2 OBJ8*+-.PTEST BAS 1F2 CMD~BIBSR2 CMD{789:;<56SQ CMDSQ CMD TYPESQ CMDTYPESQ DOCSQ DOC7 !"#USQ CMD$%&'()*+USQ CMD,USQ DOC-F2 CMDBIBLIO BAS>?BIBSRCH BAS%BF2 BAS=ANOV1 BAS/WSKEYS A86 FF2 BAK=CORR OBJ29:VARBASE DOC.VFILER DOC/0VFILER CMD:1234VIEW CMDI56789VIEW DOC:D CMD;D DOC<MENU DOC=>?@ABCDCORR SYMFACES BASM^_`abFACES2 BAScdefghijP-COMM BASklCORR CMDFACES CMDJopqrsCORR CMDACCUL BAK= FFu PFFÃ~t P}]U,FFFFFFFFFFFFFFFFFdVރ~~ FޙVދFdV܋FF4FFދ~uǙ+ƙVF73Ӌv ]v F ڋȋVFLRPvFv F ڋȋVFRPvcF]Ë]*= r@;r FN |i^3 u >}0CB>}.C0C;t,H;096vF>u.CCVڋFډF؃~tFVڃ~}FډFF؉Fָ+F֋NNVԋFԋ]Ë]Uv% v ]Ë]Uv%]]UP帏P>帯P5P,P# P^P]ÌС%>s9}ۋ+F]NCZ^C t.C0;6sFC;vEC y-C+F]= r 3ҹ RX0CÍG;s)5r"9vƇ0Ky1ZURvu0GirOY$ 7Nr?Ci2sa;r]؎> %uF<t-t(7AF<tu؀< t< øP~ PQZZ/>t <t/t t<t!<uXZRP u  P 9X[SP t SP >u5O-w.G /ts7 0Q/Wr/EYY tt 7 ZXPt ñ tñXZRPáZZ[SÌUNV]Z[R3Ҏ&/^. .=t ;t.T.d;uy ;tr <;tr<õõUFPyP#yP]ZXP*Divide by Zero**Overflow**Error in Floating Point*u*ruS[*u}:ußPtgXĞûZȊsK$ 0Êyð0'<0sà uà tà,t ,t,tð,PQRZYXà6 uð-Ã>tUP tBCC t+۬<#u"ut >*+II +O F00-r3 t%< uFtNV@P@ Y^-Gá*+Éáà*á tPGùZD t & Q ZRZGÉWډtŹMOKK6;r64 t;r;u L7E;tOËMii}&ͫCopyright (C) 1985 BORLAND IncNNEC APCinal selectedPQSP6%.%|Њu=ЊuX[YZ^_+‰0U3ɰu u u3ɉM3ɰN u u 3ɉ*3ɰ+ u u3ɉ 3ɰ ]:wr';wr;wr;rA+CAL.CMD : Program written by David Suits to generate a calendar for a specified month and year. As an example, entering CAL 9 85 at the prompt produces the calendar: = = =8 CKu.&2P2 XHuQ. t C.uuYr!.PSr.[XPSPSPS.>t .[XPS.>t.PSuøWPsWVRQSP6%.%|=ЊuЊuX[YZ^_DžЊƅX[YZ^_‰03'3)3+3-Ѥєєє&-+)' t&' t5) ts' t September 1985 Sun Mon Tue Wed Thu Fri Sat [Xûm}PSQR..FFGG..!..4.ZY[Xÿ2.t.OOK2.  t0.G u dy[_)PQYX%;u;&E&]P X[S>r3$ȋ>t%s >K+ ts) t'- t+ t) u' 3ɰ ]:wr';wr;wr;rA+ 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 &=st +%6&=T`njTVQRȋӋČӃ_3hZYw|"33SP&u&5njT&&E&E&E6&<&D6&<&DÑ[_[S& &Ur3$>njsW&&]s66&&\&D&D& &U&E&]< 22 23 24 25 26 27 28 29 30 t&=&E&]& &U&&&]ȋӡ&E&]njKVuQTVJt1&&\&L&T&&])&E&]3É>TVW3_3333>t&=ČӃ3+Vr;sȋ[T&V&U[&= JanuaryFebruaryMarchAprilMayJuneJulyAugustSeptemberOctoberNovemberDecember SunMonTueWedThuFriSat %s %d %s %4d USAGE: CAL [ month [ year ] ] where 'month' is a number 1 .. 12, and year is the year desired. Years 0-99 aȰ.sl t? u:s2*Ţ/Z tx) t@E u y-ű/, y  0 t 2 tàú  u>t>t=SNSCC>u! t CS[J[>T>V3>>Yu%YY uh t>Zu<u 2XZPRsC>Zu"[[uLtL<uLYXXZPXZP 2U]3JZh$3YSNPR~ Ý$Cre assumed to be 20th century. The brackets indicate optional entries, so if month or year is omitted, the present month or year is assumed. not enough memory *Control C* uÊr uYSN ډ 6/s2ҋ>6' Н>s1.wxE u  u>X2%Ԁ@* 2tE%ĈE 2tE ĈE Ë*tFWV߇؇<v 3*2 t +ȋsst6*G t<6<+ut(6-"<-uu6 <.t<,u u6Guh[Y _S;u>v+>htE0&E r&& S"ùLQS^.:t [YFCYY<:u.CONTRMKBDLSTCAUXUSRhh@6@&$u7.,;:=?*[]<>{}BXJu2ұ6D6P s^_ù Ȫe &E u, 2t&EȀ&e$t&EG3ۊE uJ uB3tGAɃFAG+t sNO+sGOE uvC*vyGG3 ֈ&=PsWG &'s&E_ÏDDDD&Mv>Su(+>Su&E&E>ht&E@&E& &% >htQYu.SW 3_Ï@6@&$u(&@t 6&tuS&Ï@`>b&@@>`b&uS&@@>`b&@uS&@2@`>F yP[Ë^\SQNJ݊2XXظbȸ6؉^\ y-C2'd 2+sut0C3?$ uCPlX0r% ru rsRZr2s tÊ-uCQYr -u=u-u[EEEE&uuuu5&[ 66666[Z 6%6P2Xy"Āt%t:u R WGG_EEEE6% t@Ey}.K;w6 FF.+sӓ.+sIu d'6b&>WPX t"_&@2.R~v~R~N2<t9<t5<tC<t+<t'<t5<tC< tE< r:tъ'C s'x Ku묊< rnCu t u CCP>`>Suo& uc$u&]&;]rZ&C&]?W<uN;Pr "& 2A+^. 2A+Z62C6?:v6Ag[2+L6 G[262+ t'y6 A6 AG!@ F L R X ^ 6 2G62Fڊ;v u:$t uH DsH 8vH ,wH rH ËYQ/GG36 t`>Su>& u&]&C&]&;]s%Pttt0(*,&M&U+t$QRLZYu €wS&E&E t><v IrWPnHB>v>r6n%zYp[nrtS>rWPnHnp u>rP[XuSy6\26@6@[6:t22AG[Z Q t2uY **t2u0uCr~CA<.uC u KCI<0tAr\Cux- uðE(+ yٰ-/ s: uN0C  t@ Nu$0<s+S؀?5rHxK?t?:r 1[Ï@3PW6GG=<t< w t &%3@3h5hhd@6@m>SuI>Su?& &E&E&E-u>hu2>Sud&9EtS&Ed&E@6@&t#Z&E&E-u=Ï@>`b&uS&@[ZS>Su!>` "2܊ȀË$;øu;u@ ;øu;uH Ê$ t u ؁2ĜEӝW x'_s){E /_sW /_3%tuP3W׹ _FG tBQRWV rw 62@>6 G^^ t6FF=ws &&@ t_6<#t <@tG3<#t<@uGt6QW 26:vt*Fu*_YQW_Y u6<#t<@t<*t<$t <+t <-tG>3۲ 2<+t<-u$<&E&;Es2&MB&ESË[ZS>Su*>`&E&;Er&Et&M &ESÀ>Stڋ&t&&% t&}u us QRV!^ZYuR t& &]+;s&M3 &E+ȑWy03-_&}uQRV=^ZYu&E-SS uÏ@6жd3۬%u tÊ؈%G t ,dr^_ZYBO W3E uJuX%　,?v x 22È3%tuPW6>6GW2 +C ۉ_-^VF-_36\;r5#t<@u0<*u<$u#tGt6<.t<,u2 t 0ux<rS`[>2u u tŠ y2*** x`t 6hut6E$u t6E-& y602txF uN06uÀ  @tSñ"& & t&%ߍU0QR±3ZY U Wh_Ï@_6@&;Ew2&E&Uȁ&MҊĊ&;E-t PX&E-S[&E&;Eu@ [&E[&E2h@6@>>Su-h>Su#&#R&E-&E-&E&E&EÏSq=tWq%￬=ubPPY[17mUnable to Open File q߸HrP^ [18mRespecify File Name (y/n) ? >2q?,r2=YtHPr2=ytHY u2  strip the high bits or detect soft carriage-returns, making the display difficult to read. It works fine with any pure ASCII text files. COMPARE is invoked by entering its name at the prompt; it then @6@&ui! i"@^Z_P<Y>Su ;tS&@i!i"@[Y^Z_SP _&&@&tCQV3ZY3;t!SQRiZY[ u &E-€C&E-&E&;Ev&ESÏ@_6@&;Ev&E&E-Ï@6@uGuSÏ@uI\?^^\ ``\޿\\uIl@PA[18mDifference Found on Lines ^Pr and `P_DP0[21m\,޸\޸24u asks for the names of the files to be compared. It compares the files line by line, and when non-matching lines are found, they are displayed with their line numbers, and a prompt is given to enter 0, 1, 2, or 3. _6@u7W_t΃ úN3ҏ@6@JuPSuRZt=&U-ʱ3&R!Z u &E-€&H/L%&oYS!&$tS [. t53ҋ tSB[;t +NOJu^.;u PRVFFMPA[18mPlease Enter 1 or 2 for File to Advance (0=Neither, 3=Quit): PS[22m\T\=|HP\=HY u5\=t{\=t1\>+^^u\=t1\Entering 0 causes the comparison to resume with the next line in each file. Entering 1 or 2 causes file 1 or 2 (respectively) to be advanced one line, so that if one file contains a line not present in the other, tX 3 tAʱ3^XY.!փ VQRl!dZY u!€L^V=wXL$[YSЊދ t[+L3ҿ 2G3< t< uGI< t< tGI+tCJuԓÈ{>|[~YXSQX){>|[Q``uuuTw4uj=PPu4[18mEnd of File 2 Found; Remaining Lines in File 1:P0[21m)4u8\g^^he comparison can be resynchronized. Pressing RETURN alone causes the most recently entered option to be assumed; the initial default is 0. Entering 3 or any other character not described above will terminate the ~ZXEEEESPY>|W{2-+v G& :t󑻀CG&:t_&52>[?S>uVr#>&Er>38t->&X62BvF຀ࡃ\^[ڋ_s\۸r4ujPPv[18mEnd of File 1 Found; YRemaining Lines in File 2:Pr1[21mAkP4u8\ZG``\8۸(P[18m No. of Lin program. When an end-of-file is detected in one file, the lines remaining in the other are printed out, and then the program terminates. [ڋ+s[Y_㑌[_^;sNO[XUPWSPحȭЭPP^XÜWU~ ë«XƫXثXX[];sòu;|;òg+r=r;VròH[XSZLItLY߀&Z<tÏ@@#3SÀ>Sues Read from P[22mbڸSP{[18m = ^P~R]No. of Lines Read from Py8[22mquڸPZ[18m = `PaFExecution TerminatedP[0m [0mÊS [XS@RZ@-B u RR6BLZs^C User Break0w I/O Run-time error , PC=B Program aborted @OF THESE ? (Y/N)YWHICH ? (ENTER CASE #) NEW VALUE ? SAVE DATA TO DISK FILE ? (Y/N) Y$TYPE FILE NAME USING UP TO 8 LETTERSTHEN TYPE A PERIODTHEN TYPE 'DAT'DO NOT USE ANY SPACESEXAMPLES: FDFCANV1.DAT TEST2.DAT NOTICE THAT YOU **A @,I&ڸ^`\sPt[23mCompare 1.02xLoCPD#[18mPlease Enter First File Name: PT[22mPDbQ>b;=tWb!r=uPCOMPARE.CMD: This program compares two ASCII text files and displays lines which are not identical but occupy corresponding positions. It is intended primarily for determining the differences between two versions oQ@%Kt,&5l$+_ ERROR $ AT IP $improper input - reenter $@PPYY *** MENU ***PRESS: TO:----------------------- A ADD D DELETE L LIST Q QUIT-----------------------OPTION? CADLQNYNONOY0 *** CREATING NEW FILE *** FIRST NAME (UP TO 12 CHARS)?  LAST NAME srF tk u*ih uVtQe tBs<s8-6jȊ<*t<$u$ ih utt^(UP TO 16 CHARS)?  MEMBER OF BOARD (Y/N)? MEMBER OF PLANNING COMM (Y/N)? SETYSETSETYSETYYADD ANOTHER RECORD (Y/N)? Y PRESS TO RETURN ADDPRESS TO RETURN DELETEPRESS TO RETURN  *** LIST ***(LIST BWs u<th t6 t7 u #0 Z?^ac77,@gf< r t g/eŊȻ?2 Ct$tdТbe 0ucZȻe yeq2rbȰ.slab t?f DAT.PRG: This is a dBase II program that puts the system date into dBase II so that dBase II doesn't have to ask for the date when it is first invoked. In order to work, the DODA program must have been executed (see DODA.DOC).ugd:s2*Ţd/Z tdx)df t@Ega u y-ű/, y  0i t 2iha tàcaú_ u>at>pt=SNSCC>au! t CS[J[ uÊr4p uYaRESTORE from date SET DATE to &date ? "Today's date is: "+date() B*/F/F/F/F/F/F//s6X'OZt?떋>W@[ $6t The usage is: DODA DBASE DAT ;D|Y&$u9 >,J>q%%CURSOR.CMD: This program customizes the cursor. It is invoked by entering CURSOR n at the system prompt, where "n" represents 0, 1, 2, or 3. 0 causes a blinking-box cursor (the normal cursor); 7F?*C'JuBBӋCCCCӃ t-%:u:u t2r ðÇ ^)P.$YQ S[^-)P.$CC^CC ^CCR)P.$ -N2$2Ȫ%,@,9B|y7[*&:G$ub=cwMD{u5lf&mP3PP9B,>,Fv,@,9B}޸,LD+W>,J>D 1 causes a blinking-underscore cursor; 2 causes a steady box; 3 causes a steady underline. Leaving off any value for "n" causes the options to be displayed. This program does not work with Concurre?>2$2ȪF$ ȪàE<s t>7y7ÿEN-7yȈ/þEÊ'P'rC'$'6F?á6 u' Ĉ?Gäÿ?'''''''ËCC$,F;D}á,@,9B}g'7P P3PPB 'BPPPH&BPPPL&BPPPV&BPPPF&BPPPPJt&,`>,F,@,9B}۸nt CP/M-86, although it will not hang the system. 6 42 49 33 42 40 34 51 50 44 51 46 43 53 50 51 59 55 60 32 40 34 37 53 53 43 stCus'YX+۠7 t8,Ax4@ȿEuO$uܠ6 yۋYQ5CCCCL yTYQ󥥥~tvËfË+Ntx@@H?2&[ [Hఙ'y7 ,LD++>,J>DQhD@D>,F;D}á,@,9B}iY؎r;sَЋQ>ut >*+II +  F00-r3 t%< uFtNV@P@ zz&J 3; ȁ> %#s$_:xqNcg뫋  di~rvغ> u > u >  u > u A @ Ӄ t-%:u:u t2r ðÇ ^ P.$YQ S[^ P.$CC^CC ^CCP.$ -N2$2Ȫ%þON2$2ȪF$ ȪàU<s tN Y^-Gá*+Éáà*á tPGùZD t & Q ZRZ' XHHHPX HpyPX$'@'UÉ+ˉOrNˁsFsk  t#  o0 "v*="w U ?3 z,@,tQ 4>4*Tغ*g -s#""@=w4 s*GyGÿUN-GyȈ/þUÊ'P'rC'$'FFOáF u' ĈOGäÿO'''''''ËCC$GÉWډtŹMOKK6;r64 t;r;u L7E;tOËM+Wr;s‹ uÀ>0À>YQ󥥥ËFFFF| ^rOcwغ**غ*w*qrv  tT 6V;y @63;6ȁ>6#s1 B 6U yuO$uܠF yۋYQ5CCCC8 y@YQ󥥥~tvËfË+Ntx@@HO2&k kHఙ'yG@F#WS[̡8u W-ZkË uK|  /uÊ u - 0 *xS 1[ ߥ 0 t@yـr  $  s Q*HY t*Qـ Y* 2 x s)   m r /FO**/G/G $ > Pu> r>6!(Lû:Ub {DY؎ r;sَЋQ>ut>*+II D+ F00-r3 t%< uFtNV@P@[XS$v+ y؀r *tyúډo[F[HHSFSoYZRQUq u2r u YqmNN<#u~<$u|<$ui$<*u d<*tT*<.uU<#.u2g<-u"?<#t<.-u°x2Hx<\u%%#PPP{!PPPi!PPPW!ӻd ӻl ӻt  ӻ|Y^-Gá*+>É:á<àC*á@ tPGùZD:<> t @&Q &ZRZ/ XHHHPX HpyPX$'@'UÉ"$+ˉO"!rNˁsFs thz z<#t<,u컃<.ur<#ut<^uv<-uyjG u.uwH7Cu tȢ{x tx tv wuc,@t s2u蠃 tu tű<r ӻӻyӻiӻY\3$>SZ2@= ~3' SAGZ@=~Ի/ $ (.Eo t(W+rw>GÉWډ!"tŹMOKK6;r"64 t;r;u L7E;tOËM+"Wr;s‹ uÀ>0À>YQ󥥥ËFFFF| ^ r  O c w,Ŋ蠃*Ţ{yL%W2xy&%u,@*ňxڻy ڰuUt u{utv u wȊ*<s0VKusrV t{ u*yx uVtQu tB<s8-6zȊ<*t<$u$ yxO\b>ousruvuuzxu~{u>~upou  | jj/uÊG u -j0F*xSW1[F Wߥj0 t@yـrWW$Ghs Q*HY t*QـNY*W2FxXs)N ^mOXr /FO**/G/GW$F>NPu>hr utt^W u<tx tF tG u #0 jO^qs7G,@wv< r t w/uŊȻO2 Ct$ttТru 0ucjȻu yuq2rP+@P^غlغ]3/>t Z@ y ;}ú oL&Z@9|Pû _ H 1N< P n G t u$0E$,@y ??vCSjXWO^BH>h*[CS t8P$tȾX>hsXtȾ_>h'hjuY5N~V t/KK/GxùFOv]y qy y y %.slqr t?v uwt:s2*Ţt/j ttx)tv t@Ewq u y-ű/, y  0y t 2yxq tàsqúo u>qt>t=SNSCC>qu! t CS[J[ u;x 3'>u @'@=~Իke}wU$PP+غ)\K!481&2 0 uZDSG u0E(%Ay-AxGjCh_O6hB*/F/F/F/F/F/F//s6h'_jtO떋NW@[ $FtGFO*S'JuBBӋCCCC Êr4 uYqSN:~ډ|tUP tBqCC t+۬<#u" tUP tB CC    t+۬<#u"غL  uoiY؎r;sَЋQ>ut >*+II + F00-r3 t%< uFtNV@P@ Y^-Gá*tð,PQRZYXà uð-Ã>tUP tBCC t+۬<#u"G<#uu t@>$ ÉwtùFN[Hߋ>+AËC9rRSSQڋSQr)x'SCCߣZYZYZ[[à LSSR t5 t9Sڋ;_uZ[R[tr ÉWډtŹMOKK6;r64 t;r;u L7E;tOËM+Wr;s‹ uÀ>0À>úl ډ[[SSl  YZRQ u2 u YmNN><#uЋ>xsWW* _r|:u JJ$<wGeJtr Jt<.uKJt[tÉ>>ʃwl r u\>xu, t2뺀>u<.u<*u>t'?Bt[[>t FID XZY[PS2ðVt݇Lև;t#SR;rg[ t x؀'_St *[P;XùCA[TSދغ YKKá  uQKKXY[Q x*S;vSRCCދأZZ[ùSS݋Y[Q xS+v"SRCCXދأZZ[X tu~<$u|<$ui$<*u d<*tT*<.uU<#.u2g<-u"?<#t<.-u°2H<\u th <#t<,u<.u<#u<^u<-u u.7CuX [xrxtOtO > tx+G!G.f Sr Y;r tXEN6 EOt[~ XZY[PS [` r ux:tO T*} ZtS+PMK MtB 98 :t/ى<\uKFCS"[r; ~+S ) "XÉ; ~Ë ,\ u s@;sË  C'?uzxG!G0~> u tq~zH%&~&s A~r<tV< tË| tERCCڋC*Êr~SySSXu3INtDSQry MOXXXۋSCC܋؉Z6YZ+6ӋMu I$[.Ë t CCˆ CCËst t  yÉ;r ۋ[XS<u$FF ȸ+ NN$WNNV$&SP8ۣ"/ŊȻ2 Ct$tТ 0ucȻ yq2Ȱ.sl t? u:s2*Ţ/ tx) t@E u y-ű/, y  0rG}6*à~$t-%SQS< t[Y<,t$< t<2t/C܋| Qu0Y[û< tH<"t,"2< u < uE :t$< t*CuD< t<,u | u%> AA\P3P P KغغPPfPPPiZiPPPLZ t 2 tàúl  u>t>t=SNSCC>u! t CS[J[ uÊr uYSNډàr"S0[iiȰ"rYYis tKKS [K< |, > 00;|ÍYQ󥥥ËFFFF| ^rO c w | /uÊ u -0*xS1[ ߥ0 t@yـr$s Q*HY *rDO[[%݊/CCSޞ։[u< rP|X*d*Ë*Ê[Z*Z_YQSCCӀ t[   2CuK2  V< t<+t <-u B<0t<.u& sТ <uf <0uޠ Ȣ Pu>r<Pn t u$0E$,@y ??vCSW^B>*[CS t8P$tȾ<u2 t'ɠ  s  ŋJ r  y<u< t,-tur$rȊ u*Ŋ @ŋ 2 SںL<+t!<-u يȵه$4s tЊЊПB[Cx-2qڻޞ։[^RS[:RFt#x [t?xޞևڋ BCu; x0) x+S>[(xG ?G?"Pxxu XEDZS>sXtȾ>'uY5~ t/KK/xùFO]q%uZD㿹 u0E(%Ay-AxC6B*/F/F/F/F/F/F//s67à  uȢ C<0s<:s$ÊC7*ŠƇsÊ uÊsûٞڞڻޞ֊t^l͊LQZu t~@|>x$ ÉwtùFN[>z+AËC9rRSSQڋSQr)x'SCC꣒ZYZYZ[C ^CC P.$ -N2$2Ȫ%þ2$2ȪF$ Ȫà<s tyÿN-yȈ/þÊ'P'rC'$'Fá u' ĈG&&?? Today's date is: +date()&&?[à LS#SR t5 t9Sڋ;_uZ[R[tr 2ðVt݇Lև;t#SR;r[ t x؀'_St *[P;XùCA[Sغ YKKá  uQKKXY[Q x*S;vSRCCأZZ[äÿ'''''''ËCC$T*} ZtS+A+jXYZQ5s+S܉ [S+A ZuB+.>  G!G0  s > u s tq  H % & &s : C  Sec/trk: h Grpsize: kط (sectors per group) Tot grps: ms Dir entries: oCX Sys tracks: u?  [S [3 tC uډڻ'B uJJډ Çt REM COMPUTE df DF.BETW = FLOAT (GROUP%-1) DF.WITHIN = FLOAT (TOTAL.CASES% - GROUP%) DF.TOTAL = FLOAT (TOTAL.CASES% - 1) REM COMPUTE MS MS.BETW = SS.BETW/DF.BETW MS.WITHIN = SS.WITHIN/DF.WITHIN REM COMPUTE F F = MS.BETW/MS.WITHIN REM PRINT A r <tV< tË tERCC  ڋ C*Êr rG}6 *à $t- %SQS< t[Y<,t$< t<2t/C܋ Qu0Y[ût < tH<"t{ ,x y "{ y  < r t S1[n4ci u '.Q t}I uR Zu)u2 u  $_L1t &u    âREPORT PRINT CHR$(26): PRINT CHR$(30) PRINT: PRINT: PRINT: PRINT PRINT TAB(33); "ONE WAY ANOVA" PRINT: PRINT PRINT\ "SOURCE df SS MS F" PRINT\ "---------------------------------------------------------2x { < u < uE { :t$< t*y Cy x uD< t<,u  u%t >{ u t t x uJút t 7CCSx ޞRSCC-؉v Z7CYZ CBI ux tȺCBut tGv t >L1u6[NSIuoCB?˺ (QRʰ:s{ Y k (ZYڇI uȹ [qr S t - ASmC:u:[t#SZt$:u:tIAI[: S tA< u--------------------" PRINT "BETWEEN"; TAB(16); DF.BETW; TAB(26); SS.BETW;\ TAB(44); MS.BETW; TAB(62); F PRINT PRINT "WITHIN"; TAB(16); DF.WITHIN; TAB(26); SS.WITHIN; TAB(44); MS.WITHIN PRINT PRINT "TOTAL"; TAB(16); DF.TOTAL; TAB(26); SS.TOTAL FOR[@ SCQQ.+ GY[< u]  ++FREE++ 4u : $C< r<~r uËoC  (S< t1ZtS u  x#2 DAT.DOC). This program is normally executed before dBase II is invoked, and when dBase II is invoked, the DAT program should be specified on the command line. A useful SUBMIT file would contain #!5أX\^ð    GHJG2AVÉTÉ\É^3Ëك>dtAdNwf@I2x#ˉfw`SQY (tG&dhww&h>wv  áT  A 5C[à u~nS u»$t\<tF$<~s< s< t< t < t7ut-RN * Z ++EOF++ [ ug2i++Can't dump, no sector read. 2AUse G command following F, or R or S follo DODA DBASE DAT r|:u JJ$<wGq eJtr Jt<.uq KJt[tvÉ>Q S >O ʃwl O / u\> u, t2V;`u;b`bt QVW\>^6f @_^VW\6^X>f @_^ &RSP6T6V6X6Z ( áP tNÁ>L1u &G&NNPDU.COM ver 7.5 1/23/81Ȏ؎Ў DISK wing T sq u<.u<*u> t'q ?B t[[>N t FIr XZY[PSX [N N 5r r tOr tO > t +G!G.f Sr Yr tXE黬 6 EOt[r ~ XZY[PS [N `N r uUTILITY ver 7.5-A For CP/M-86 & CCP/M-86 ver 3.1 Type ? for help, X or ESC Quits & tt'CC ڈڻ'22S[tՠ t< tu<#u for hex: To find "IN 0" use: =<0> or "(tab)H,0(CR)(LF)" use: =<9>H,0 < save current sector into mem. buff. > restore saved sector ? give help A[ff,tt] ASCII dump (Type any char. to c DU-V75A.DOC by Ward Christensen with additional notes by Ron Fowler and Keith Petersen (revised 7/23/81) and still further revision by H.M. Van Tassell (3/6/84) DU-75A.A86 is a CP/M-86 translation of the CP/M-80 version 7.t  uwJ uS[ < tG=:Y,N T=ontinue) C Change: CHaddr,byte,byte... (hex) or CAaddr,data... (Ascii) Allowed for imbedded hex. or CHfrom-thru,byte e.g. ch0-7f,e5 or CAfrom-thru,byte D[ff,tt] Dump (hex+ASCII) Fn.t Find file Gnn CP/M5 with added disk routines which allow operation under CP/M-86 ver 1.1 and 3.1 and CCP/M-86 version 3.1. (note: CP/M-86 ver 3.1 has not been released by Digital Research as of this date) This program checks the CP/M version number and will not run u, S=, PS= [ÊPCC<-u R CZ<,tbXĞàn tPXĞ$< r0iQRSޝ֜Br هڊ t Snn Sector nn Tnn Track nn Unn Set User nn for Find command V[nn] View [nn] ASCII sectors W Write current sector X Exit program Z[nn] Sleep [nn tenths] /[nn] Repeat [nn (decimal) times] (Type any char. to continue) Can CP/M operating systems. The starting translation came from the SLICER USER GROUP disk #2, via Micro Cornucopia, PO Box 223, Bend, OR It did not indicate the name of the translator who should be thanked for his work. That version appeared as DU-75.A0<[ZYð 3*.^V@u]<u<t<t<tEC uC^VHPĊ u x жXĞ2++BAD DISPLACEMENT (NOT 0-7F) <#tO< uuC<0s<:rL1thPkSmډ[X original documentation still applies and is repeated here for easy reference. HOW TO USE DU ver 7.5-A DISK UTILITY USE: Any valid command string may be placed as an operand of the original DU command, i.e.: A>DU G0!D!G2!=OK<1A>< u]9C^.U) ! <`s$_QRSM[ZYQRSH[ZYQRS< u $u<< s< t< u uQY< u  < r  $t[ZYÊѱS[S[r\ډڋS[SRuډYs  uKIi u !D (NOTE: if your operating system allows multiple commands, don't use "!" in the DU command tail) Functions supported: Tnn Seek to track nn (no read) Snn Position to sector nn, and read Gnn Position to group nn and read. G S>L1u[2++not within tracks 0-S[++ 8hSa t12++READ failed, sector may be invalid++ [à u/2x++CANNOT WRITE UNLESS READ ISSUED S t2?++WRITE failed++ ['Operands in brack-  Only hows current position V Views the current sector. (assumes ASCII data) Vnn Views nn sectors Fname print directory for file "name", and gives group information for the first extant =string Ascii search, starting at current sector. hex may be imbedded, or used alone: To find "IN 0FEH": = Ignores bit 7 unless is used. L Re-logs in the current disk. You may pull out a disk, put in a new, and "L" just to log it in. Lx Logs in disk 'x', such as: LB  printer switch on/off Y Yanks current sector into sequential memory and prints ending address. This allows sectors to be written sequentially into memory starting at 3000H, for later recovery by DDT, etc. Z Sleep - causes the progrj yrYQ󥥥~tvËfË+Ntx@@H2& Hఙ'y@#S[(̡\u ١Ë uK[XS$v+ y؀r *ty2  Ux Logs user 'x' for next F command. Gives '?' error if not CP/M version 2.x. D Dump sector, hex + ASCII A Dump sector, ASCII only H Dump sector, hex only note all dump commands (D, A, H) may be optionally followed by a starting and enam to pause, such as to look at a dump. Z is 1 sec. Znn is nn tenths of a second, more or less. < Saves current sector in a save buffer > Gets saved buffer. < and > may be used to move a sector to another place. / Repeats entire com%Z3Z+\Ë@@EHE;sLÉS[>u$rS[ot:G*;r)GP**?YS%[?Gȡ+GZ7 t-PR \ ding address: D0,7F is the same as just D D3,5 A20,3F CHaddr,val,val,val... change hex in sector CAaddr,char string... change ASCII in sector NOTE that may be hex imbedded in the Ascii: ca0,OK<1a> ----> Use W to write chamand. Defaults or /nn to "forever". NN may be 2 to 65535 multiple commands may be separated by "!" Example: the following commands will erase the b disk directory to all E5's: lb log in b drive g0 position to dir. ch0-7f,e5 fill witu ZX€ױױױ3nges to disk. Note that the C command echoes the overlaid data for verification. CHaddr-addr,byte or CAaddr-addr,byte repeats a change + advance 1 sector (if below track 2, this advances to next numerical, if 2 or >, advances based onh e5 < save the sector >!w!+!/16 restore, write, next, repeat 16 ----This could be shortened to: lb!g0!ch0-7f,e5!< >!w!+!/16 INTERPRETATION OF DIRECTORY DATA PRESENTED BY THE DU PROGRAM The following explains the format of a C+(X ERROR $ AT IP $improper input - reenter $OVRCMD@PPPlease enter library name: .DEF.DEFPARMSPARMS1---------------BIBLIOGRAPHY S CP/M's normal sector scrambling algorithm, i.e. so + will get the next logical sector of the file - backs up 1 logical sector Note + and - may take an amount: for example, +F steps in 15 sectors. Note also that "-" issued at the firP/M directory entry as shown by DU, using either the "F" (find file) command, or just doing "D" (dump) of the directory sectors, which are located in groups 0 and 1 on a single density disk. ---------------- Sample result of "FSID.COM" command: 4EARCH---------------1 BUILD / MODIFY BIBLIOGRAPHY$2 BUILD / MODIFY KEYWORD VOCABULARY 3 LIST KEYWORD VOCABULARY WORDS4 SEARCH BIBLIOGRAPHY FILE5 COMPRESS BIBIOGRAPHY FILE6 DONE--EXIT THIS PROGRAM*PLEASE SELECT DESIRED FUNCTION BY NUMBER: st logical sector of the disk will wrap back to the last. Further, "+" issued at the last sector will wrap forward to the first. ? Gives command summary # Prints the disk parameters M Dumps a map of the group allocations for files. 0 00534944 20202020 20434F4D 0000003A *.SID COM...:* 50 33343536 3738393A 00000000 00000000 *3456789:........* First line - 40 00534944 20202020 20434F4D 0000003A *.SID COM...:* || ||| | || || | +ILLEGAL FUNCTION NUMBER--PLEASE ENTER AGAINBIBBLDVOCBLDVOCLISTBIBSRCHCMPRBIB Mn Shows which file is allocated to group "n". N Resets CP/M via the BDOS. This may make it possible under some implementations of CP/M to change the disk format (e.g., density, sides, etc) R Reads the sector currently positioned to  | || ||^----hex file name-----^ || || ^file name^ || || || || in ASCII || || extent-^^ || || || || || || file size in sectors-^^ || || || ^^$$ into memory. Note R (Read) is implicit in the G, +, and - commands, but N-O-T in the S and T commands (I did it because I was tired of disk reading after T command before I had a chance to issue the S command) W Write back the current s-00 = file active || E5 = file erased ^^-displacement of line in directory sector Second line - 50 33343536 3738393A 00000000 00000000 *3456789:........* | | | | ^---allocation group numbers-------^ END \ sk;ȁ> r>uF FFF$F+F1F69F?CFFJMFUF XF ^FadFgF jF mpFuF x{F ĂFĉČFF ģĦFFFFĿFFʔFԄFFFFFFFFF  FFFF"F%)-16CFRUFY\F_F eFhkFnF tFwzF}F FņFF FŕFF FŤFF FųFF F”F˔F F ֔FF F F $+Fg.>u >u >u >u >u לeF FFF"F&-F03F7>FADFHOFRUFXF[F^FaFo FILE5 COMPRESS BIBIOGRAPHY FILE6 DONE--EXIT THIS PROGRAM*PLERAQ.CMD: This program performs "erase with query", i.e., it is used just as the standard ERA utility, except that it prompts for permission to erase each file whose name matches the command-line specification. To invoke, enter at the system prompt ERAQ filespec where "filespec" is any valid file name, including drive ID and wildcards, if desired. ERAQ will find all files matching the specification and query for deletion; the user responds "Y" or "N" to each. It may be aborted by holding down the CTRL key while tapping the "C" key. X [5rDtOtO > tD+G!G.f Sr Yr tXE6T EOt[~ XZY[PS [` r uD:tO T*} ZtS+t3&G!&t & &u2ұ 6c1P yP[Ë)'SQNJ݊2XXظbȸ6؉)' y-C2'd 2+sut0C3?$ uCPX0r% ز6t6wË6gxtH iuH ZsH KvH <wH -rH (}h"=|=%~1PXi ǀu u2ҀXSQR3Y[XXQ*r"ẁs t@xA+jXYZQ5s+S܉X[S+A ZuB+.>FRDG!G0JQ> u tqJFHO%MO&J&s AKJrK<tV< tËH tERCCXOڋKC*ÊrKJru rsRZr2s tÊ-uCQYr-u[& 2A+^. 2A+Z62C6?CC6CC:v6A[2+L6 G[262+ t'y6 A6 AG!& ǀt3ò%ÿ[XSn=tAEu?,P-I >X8vP܇5òVA =lra*]e^]r sEt Br 7r M=lrr =turG}6K*àJ$t-K%S:QS< t[Y<,t$< t<2t/C܋H Qu0Y:[û< tH<"t,:":2< u < uE :t$< t*CuD< t<,u H u%> /8A JS6 2G62Fڊ;v t u:ZYQ62F6 r&62+AV^NOAG&EXnH62+v;v3҇6&[62D62G6 2F3X9?`C00g?(2n*8t z~p=tEt,P mIF"(p (X=gs }؉}颋.:}8c~I$I~L*Ee=sNËEP?=u t t x uJú t 7CCSޞRSCC-؉Z7CYZ CBI u tȺ:CBu tGSH ÇڟJJ[Su [C7C? t /C;Yt-Q[RSH؇[C7Z7C RS+r@ tBQWV^_Yt@GJu3&45[9;&=?S>9WP5HB>=>965%4W7[59;S>9WP5H>957P[Xu6\26@6@[6:t2t Xs PXrt]|Xm.`1pF,t6|!wS<.z}[|%FXc~ur12=t3Et@eP?rcX@@P~JDDcsZPMIXr u%0SH@@@!4Copyright (C) 1983 BORLAND IncNEC APC= = 2AG u tò[Z Q t2uY **t2u[ 36Ñ[XS*r26sCËFF6| 6D"22$[22 ;tNOG3t5 @3uHu u|[XtP XtMT0 j oD,:j !I}袋.}8c~I$I~LrSQY[QWcQUS[Sk[YuSr!Et*s2< r Pg".' t C. u* SQRWVP2PX^_ZY[t.X[SP.>t.SPۻ;KSQRWVP[..FFGG.l.n$.m.o.pX^_ZY[ÿ2.kt.OOK2.K t0.G u d[YSЊpr2$d tt<uDEDE..GE.GE%UUU]]]Ë EDEEDEEDEÊE*DEEDEEDEUUUEUUËE;DuE;DuE:Dó2ۀ<uÀ=u@0]V׿3}2\2߀MLϊ*ts؋?uÀE0eCu2 ؀?5rx K?:r1GÊ-uCQYr-u =tuB3Ɋr%r.2SQ Y[@t <.u @u@Chìx-Sx9?+{Η@=uÀMV\^s uÀeð1[( _S>1t$r &&E&&E ù.t =?.uCFu Ҋt{}uI&}u#@>u8&>2t&&Eu"&&}u&&}u&&E >2tlQeYu.W 3_[S&}u.&t>u&u&tTqo&}tLÈA>B[DYXSQ]A>B[DZXSLP~Y>BWA2-+v G& :tCG&:t_&52F>K[MGI?S>Fuir#>G&r>G38t->K&X62B54u 2=Nt=nt=Qt=qtoo2 u43Enter the name of the new file for the results.... _W_0=t1_WPݸP.PPy.$$${ޱݹF9L_UݱuJ u&Ï6W _Ï6>+-&t&}u &E8Ï6W _Ï6>+-&uÊ.r< t4<t<t<t< r:tCxK tW>+&}_t<uW>+vF[ڋ_[ڋ+[Y_㑌[_^;sNO[S&&Ur ر%ӣ[_[&&U[&&Eı+H[WUS &5GG_^]ZY[XÜWVURQSP~F &GG2PGOSoMNGnAQ;q54uFile _ܸx already exists.!>Do you wish to (O)verwrite it, (N)ame another file, or (Q)uit?YjI2P߸O߸o߸N߸n{߸Qu߸qo@4u _SQRW&E<u<toi<uyP< r"< uXN<uLC<uL8<uL-u&]2&A0<t&Ey&E& _&EZY[W>+_&E>t:< t < t< t< u1 < t< t< t<tC&t u ?[]_;sò;|;ò +r=r;rò [XS6L tL<tÏ ^C User break2À>u !"»!.׊ I/O1[XS Z»O!.׊ Run-time.y2=Ot=ot&=Nt=nt=Qt=qtoo24u23W_35"WP ]UU ؿ3B8.$$$_$PB.$$$_g=u3WPIr?t [Su |&&ñ2[SQ|YtQYr u&&[S\tW_r[S{!< u~3< t<tC&tdDuZ&>+&}u< t <t :u 0< u)&}t&EW>+_À>ucSQRW2P&E<t error i, PC=jZ Program aborted OR&Z/V UU0~W~~=u FFF2 ]UUr(i`-Invalid ]UUvP<޸PK4u0H4uWWBvnn2 uv2vv]UUtW2_cttt=t3WcW5t]UUFo24ubnn2 u*<uD<u:<u0<u&X& &]2&A0&Ey&Et_ZY[[ZSK<v I xq[XSQ(X*+v T˻HCÒ[XSP5[YS? uD TRUEFALSEZ6*v 2 62C t 6C[.2C Input, please try again..............b ]UUP[0m4 Pk[7m Textfile Utility PH[0mWNE&# A: Remove LinefeedsV22= u at=uD@]UUNo24u~nn2 uF22= u |2= t `t=uC7]UU t .C [S&tx:t<u 3222/[Sa>uCI>u9&&E&E&E-‹>2u2/&9Et&E/&E[S&t("4&E&E-‹`"Ë[ZS>+&E&;Es2&M;&& B: Fix Benchmark Files_#% C: Fix Wordstar Files-# D: Insert Linefeedsa> E: Delete everything but Printable, CR, and LF5v,m - Q: Leo24udnn2 u,2xx%xx9t=u]UU&o24u}nn2 uErW22= tT E 9t=uE Ë[ZS>+&E&;Er&Et&M &E À>tڋ&t&&% t&}u us QRV!^ZYuW t& &]2+;s&M3&E+ȑWy071_&}uQRV";^ZYu&E- t  u[S"t & &t&&%ave the Textfile Utilityo]UU~W)9P [J=Enter the name of the file, F=t~W:P,p.P}rp=u~W`p-P}r=tR|x]UUo24unn2 uo2xx%xxx=HPx= tHY Px= tHY Px= tHY u ot=uRF]øn 2PYڸQeڸ &t&%Q±3U0Y U W"_[_S&;Ew3&E&UȀ&MҊĊ&;E-t P"X&E-[&E&;Eu@ [&E[&E22[S8>u->u#&#]&E-&E-&E&E&E[S&u!"3[XZ_S&~W~70pP"+pm(?~W~.TXT #T~W~߿ߡpPr-+p~W~߿ߡrP]UUvto(4Enter the name of the file that you wish to fix.q_04uҹa2x2PڸaPz$u x- xx2=At Yd=Bt P=Ct W<=Dt s(=Et _V=Qt HUo/I@t=PQ3"YZQR3ZY u$&E-€I&E-&E&;Ev&E >3!t [_S&;Ev &E&E-[Suu[i_SuW_ztԃ øE3[SuFIuPLXt3&E-ʱ3G"R>!.Z u &E-...  PW FLP߱`4u 2PN nQq4uFile P޸Q{ does not exist.}^.Do you wish to (N)ame another file, or (Q)uit?BS22PjNvnpQjqd   File Fixing Utility (written by Howard Nonken of Kenrex Enterprises) This utility was written in a hurry using TURBO Pascal because I discovered that the Benchmark Word Processor, when asked to write out to a CP/M fi+  ) L   L |} u!|f u  Ĵ: $'&|8 R~  $ vt dbT o ) {RZññññڱ3]U[S܉9;Ë&;&9;&&t(uuuVuQ]xÀule, was writing out files that had the sequence LF, CR at the end of every line in a paragraph that it had done automatic word-wrap on. At the end of the paragraph, every place that the operator entered the key, the file had CR, LF, l--$:tn>ut~<t$_[t.>[u $z# >[u >[u ${ $À>u>uP2$,u4$uXXA0RQ9K9;?u.MlH;$'9K9M#ڊ/C;AuͱyfCa|{y_:tbC<$u€a|{y_tt tt ?=&Ci&Ctu;?=ike the rest of the world expects. Furthermore, I discovered that some of my modem correspondents were none too fond of the LFCR, whereas they loved the CRLF. So option B on the menu, which says "Fix Benchmark Files" merely replaces LFCR YZÃ>uSCr[>[t$>tÀ>tÁ>rPXPSR.g Z[XϺ2$uú0>u<u<uÁ>t=Cr>tÀ>uÁ>wð2?a7À>t9KuC? ?z?C?$u>??=x=tϊ':%uGC=?>Cts>Ctl99'$t %CBS %B;>Cu?%BRZ99$%[C>Ct g'C$uZ:u~?t9 tk tft wwith CRLF where ever it finds it. Wordstar, on the other hand, leaves the most significant bit of lots of characters set on, which drives my dislay nuts, and bothers some of my modem correspondents, as well, so option C fixes Wordstar file" .g&&&&`y604"$Í >u#"&&ú2@@ 7à< wغ/v+Í|6$ /CĀ 9K9;DjF;$T;9+ڈ,C<$uA;xK&CuC<$uɋA' |׍6>|F< tG.G6F< tG$|>\uvZ_7'C7َ>DuڍEy<uJ9;?t uA'CRSʊ&t9'C9u  9t u4 &̀y&ay out in some modes. Also, if you have a file that has no LF's, another option will add one after every CR. The final option will filter the file of all non-printable chars except CR, LF, and EOF. tY>tR>%QYtb,{yH|>u 'C䀊Ԋ |t:up'C\ u2>tj>t"y i'Ct/CĀ@ >[ôFôLã6 th&tx Ct8 : |6 'GYuÀEu1Px'C: #'C̡8 'CX'C̋: t J'C? 'C&j'C'>tC$'% xD6f΀| h??XێӍ&Pb F  >t Ío   [ M  K ;  9 Ft'CtÊ&tSQ<tY[ðY[>uȴ!RZRZ ÍS [ñññ tÀt RZRZ t\ññññÀ>uÀ>u  x<uCUuJ t̀#Ĵ: 1t̀ Ĵ8 tţ6 ̍|xt'Ct ?:tô'6 }Í^dD @ B >t"B >B u@ B D >D uyS[ Eu>vtwZÀ>t|] t|{''A;~塱: n8 D_YuCh>: u|'XtZt&veÀtwZÀNu _Eu>t|] tn8 : >vt|D'C^:ku>^u ^>]t>wSt <u>t$C<. 5.`xS`'C`[:&kuwA|: $'|RZ RZQ  Ê&c '&e g&g: Z]$Yu4wewF>vXvuawBÀNu KEu&e>t|] ?tn8 : B?YuHwCÀNu pEu thܠ,0,0$*Q YÍ+  g&i@g&k g&mgQȊ' &b<|Jg &d<|:g &f<|*g@&h<|g &j<|g&lY@%?npá8 ;ntn@%?;8 tun=u@H;8 thwA : YPG&t&ut(t."(yth[06 6 096 Ĵ6 !6  &Ǵ<|<jÍN- ;$9y=?u- ;$9q $?Program error -- Invalid COMND call$?Ambiguous command$?Illegal input file spec$?Unrecognized instruction$?Invalid command or operand$ Confirm with carriage return$ Input file spec (posYb/&n8 : NKrxbrÍpTpPSQR RA=uZ0Q6YZY[XC3 Í Í >vXt >vZt òÍf E À>E uÍ E  ã6 6 &Í Í+ i]\ÍG D8Í+ ]t[[Í+ XLÍ sibly wild) $ One of the following:$ $$%&_0000000000000000eprntvwR&wDuNFuRu#Cu >vt WÍ OÊ&t| /Ĉ&t|Su8&t&ut8 : |w|2: F&wÀEu>t| t'Su)>u| 3'[Í+ Í\ fZRô/CC;@t ڃuÊ } R{Z@tCJô{m>xj頹 kR ^  ##|: ÀZu!>u| }: ÀFuG5s.yjwDÀBu$eSwCÀEuB>t|: tvkDtX1: >vu Í|&v': À>u|: : qG Z`>]Q>yB[ +1>Y">\J -a\  BYE$CONNECT$MEXIT$TFINISH$vGET$HELP$dLOGOUFu!>u| : ÀZtaO>vu>: $|'Du>vXuQv?F+=u JJ&@6 C@=C!!5#wFÀEu>u7t)P>%>T$RECEIVE$SEND$ SET$&SHOW$4STATUS$; BAUD$DEBUG$y END-OF-LINE$ESCAPE$@ FILE-TYPE$ FLOW-CONTROL$IBM$ LOCAL-ECHO$OPARITY$tTIMER$WARNING$OFF$ON$NO$YES$NONE$XON/XOFF$ 100$110$1200$150$19200Xر RnntprwS>wDu>wFu>wZur>wSu2>wBu>wCu >vt +Í #À>t|] t|2: p8 SCdYu,E: |=&t&utwF t@ $ 200$2400$ 300$4800$ 50$600$75$9600$ EVEN$MARK$NONE$ODD$SPACE$ASCII$BINARY$ $ $ $$$$Kermit-86>$Spack: $Rpack: $Warning - Non Ascii char$$$[Connecting to host, type $ C to return to PÀNuÀEus>t|] tv|u.'Cŀ y 'C!|Ջ'C: $'|n8 F&lYuBn/ '&&6tZ&wãwDÀNu '  C]$[Back at micro]$Completed $Failed $Renaming file to $%Function not implemented$Interrupted $File interrupt (^X) $File group interrupt (^Z) $ Type: ^X to interrupt file, ^Z to interrupt group, ^C to abort.$Timeout$?Unrecognized comNAME$; " "; LNAME$: B.START% = BLINK%:\ NEXT I% REM IF LIST.TYPE$ = "P" THEN\ RETURN END DS PER CONCEPT.7SEPARATE ENTRIES BY SPACES AND FOLLOW LAST WITH RETURN.( CHARS # OF # OF # OF* PER KEmand$?Illegal character$?Not confirmed$Unable to rename file$?No receive file specification given$?Unable to receive initiate$?Unable to receive file name$?Unable to receive end of file$?Unable to receive data$?Disk full$?Unable to receive an acknowledgemeYWORDS CONCEPTS/ KEYWORDS,KEYWORD IN VOCAB INTERROG PER CONCEPT+INCORRECT NUMBER OF ENTRIES. PLEASE RETRY.-CAPACITY OF ONE SIDE OF ONE DISK (KILOBYTES) )YOU HAVE DISK SPACE FOR ###### ARTICLES. +YOU HAVE MEMORY SPACE FOR ###### ARTnt from the host$?Unable to find file$Record length exceeds size of buffer$?Unable to tell host that session is finished$?Unable to tell host to logout$?Illegal value$* Aborted *$ Confirm with carriage return $ Input file spec (possibly wild) $ContrICLES. -###### ARTICLES IS THE MAXIMUM YOU MAY HAVE. 6DO YOU WISH TO RE-ALLOCATE THEM0PPP. %^Pyt|*v(kkuser.doc}   !"$#%&o')(+*,-./1023546789:;<=>@?BACEDFHGIol-$ Enter literal value (ex: Cntrl ]) $ BYE to host (LOGOUT) and exit to CP/M CONNECT to host on selected port EXIT to CP/M FINISH running Kermit on the host GET file(s) from host HELP by giving this message LOGOUT the host RECEIVE file(s) from KERMIT.CMD: This is a telecommunication program which permits microcomputers, minicomputers, and mainframe computers to communicate with each other. The full documentation is in the file KUSER.DQC in squeezed format (JKLMNOPQSRTUVWXYZ\[]^_a`bdcefhgijlkmnopqrstuwvxy|z{host SEND file(s) to host SET a parameter SHOW the parameters STATUS of Kermit$ BAUD rate DEBUG END-OF-LINE character ESCAPE character change FILE-TYPE (ASCII or BINARY) FLOW-CONTROL (NONE or XON/XOFF) IBM LOCAL-ECHO echoing (half-duplex) PARIto save space). To unsqueeze it, copy it to an empty double-sided double-density 8-inch disk, make that disk the default, and execute the USQ program on this disk as follows: B:USQ KUSER.DQC (2(2(2(2(̽Ɩ }Kx(̽zQLB|;b =y=OeQ^jn23ٞCf zV ^ [xU~! #F}׃+2(2(2Ka-,"yָKYZ*gk prompt B to send a Break signal to the port $ to send a $ character to the port ? to display this message$ is on$ is off$Flow control: $Baud rate: $Debug mode$End-of-lt on a single-sided single-density disk or most RAM disks. The unsqueezing process will require about ten minutes. 3n 1 y .O1}Xquy'<"Y~%k^/`0{8/Uyy u]+CyA.{_qu; 𞕒 N!*@n1J'3ؠ}cKJ''Rk' ͮrSLzƖ 89VzxE5 $/O.OݨUsX?v@^{ine character: $Escape char: $File type is $IBM flag$Local echo$Parity: $Timer$Timeout is $Warning$<  NEC Advanced Personal Computer CP/M-86 Kermit-86 - V2.5 $ Number of packets: Number of retries: File name: $$$ d*SDχ+J݉kl+.ÌsV!zak@^Uk}f 4ol [򄽦ehIҳL2yCqlCϏLW@ ' u8qW\/$$$$$ $ $$$^ST" AS 1:\ FOR I% = 1 TO KEY%:\ READ #1; RECNO%, BLINK%, PLINK%, FNAME$, LNAME$:\ IF RECNO% = B.START% THEN PRINT F  ZˏCeW䤗`+ 'lSmϻ"/q=Oe)i zN@fErÿ$T=2cW:1|N^JRKN{GW$NVӷ8"q.NBY}7zU\z&=>4ٺv}Ej\=Ir ԝV.aaRؕN*?D=w˓)뻡rXEhela/2M>׃kͺ$?!f=|cKJ]ֽ U҉r zN@2n!; v0QoDNxv!; *S{œ-=p7xb#l,:'du*oCt]D9Ws}N+zvC$gV-P9D߁|*Qf T&g\7߁Ǿ[ YW='ll [0<V<{OxW >cMyS^˓땯a! SX_|ͫ 1pD{EP^H !8'/X}2yN@wXQWC~l݂<\LY__cUf5ZaCeZn D_Bˆ4o%[]eJ%Hl'1aդP?vѿut*S1+z [xU~! ab)y\ϳuӵwȧD@P\k| #23b ݓp {MW?Lbl,O'BG+ q)wX_X;85 {&?crPosLtxs\WFL޿mSA67x\wĈfYܱ0of/B@*XVn'q\fn0<'du*_=0+N'5Վ~ͨ8;Lƥ=X_he93[Yt2]΢g*LI_; 3Y@ϊꃟ^a!;J&xV&@cW@ 4{JsY z9TF{$g#z>82ܳ%Hl;`,2XXg{-'j/m%Nϫ<;ɔw9Ce)>. }YKZYY9wZRŇ5ޖRTW{}aR dʻE'eկY)VfgT~vXm<cCg?sGe+a^l-M >>.ǻ12߲i3m׀WCas}\r>IxW$Oy\Y1[zE'D_ni]t3YwRJdާB /<9+qw*#{E(ZLks6oK){%k^Sb؟#XLX ܲR8TFIr }>הw\,-Ab+ Y$Ox~XXKV >L*pWysRuU~Aq=Di[{Aݏ &=;Ake8dwY~e^0^-nK)˺^(SDs6 Afvwcol [)}w_]{E8)g/(՞/Oz~}e3a[/$lӇ5uփ_gu'< e!z;.ڿ#cW:QuN'SWݓq˺^_)r=kZ? GU ~Cv@^|8B[e%?ag=+:'$w 06qDdy)#~q<׽.O$zN?c=|sYXg+߉Sg/O'F˳qN',t*Ck|59~u^! !z@^`* ڍI.O3ڇvwY+ 9Ɩ ʸZ0Ǟʷ )mNq=DfwcKJEkƖTFb+G11E]4LM>G~&rVOyg_?Te5n*<~pa>:TF0' NWN xJLW@ /ej6'gk.{yy~%k^Ӈ5*S{s@k=+~V_! ~w3=U?DC(h?!C|;b {>ܗRFe8D:gŶX7ol [˓,C⏘$={2{1.>׽^{y}@Loa9_dk=֟e*FU)g+&vMx/5y>gXleBL0|yr&:<\e)cO\Vs@^(Sol [镓pc}2k< j~Aoa9opg v@)qH?b,~$0_)l2=*Ɩ Ig 9\>="y \/su*PCD5kLƟ.gϮM5{V㳉˺AǞkLet?bt}&.$?lɻ2ٞC%ѯTU>Ʊ˳k<kWc! 2ٞC7[8гbح{,a9gL y*32^sCe\C}ZRF{V,˺%Hl;`,=WW\<,.V(oV{֧89Vڧ2ܳ8qEw`KI T(sx|lV{֧;N/N y;g7a \e(S_1f?kLe$y=D<ף^Ӈ5f+Ӌr6?+OXkv*ʙ@^57*88_Y''㯂3=>/@;.Q*ygc"U>>]΢}|Cdk|[[O;|Ka$0[T=czbͧY٧V@rO\˓z y?* X Ol@ϊA94X)+-uYNJ?D+<'U^87t= {![W\~2T,\&~U#te W(c)@^$lFlR림Y*ts&]l^w oO5€.g39Q"BE>Ʊ~zs5~['~~{-=!8Z[qwp>v S٢WŁ~8'$qw*#{Ox>f\k2%>ϱ7d~ l!|=+~5;?k*NeBL2>2<_9r=Ǯ8> TWL2G_xk1}@gs)/OvS^5`&(So1~yr0e HsCN._fheu`E^=Kַl-n@ay玵"zKZ"DmQF{Ĩe3{@bv/Y/)߬p2@ 1=ٞCf zV 2}ѻU\c?~1s*7q%w,P^@!m}0_CPeH o' yNOyz5z>he16**p) Xc BկrX̽"5s}k5 TٴqW߁ \̽"v,x9dW '9{!V{V +O'e/O]97TgkY8TF-Ab+9i!T4]n |Jg*SX8#si<>]΢F}d>e!8+}xq>=?Q|W9߃\#}XC-z,/'9*F#}~k\\ɻÿ$]%C ?N;2׈0OxR287z˓w9ZϷsp_|ÿ$ϟDZW`] ?W@ < Iey\$=Iy>_wzxJI2.?'?\TL^H,˓s믹Gw̽"X JލZ.k#V s<.;Gx&̽"2ٴq(sp r;/߁| 釫{"v*s Yퟓ2Oy3k3}̽"fC5 GƠS^i ~ͨ89OyY+=[HL =&. Y@kgH5t_9 7Vٝ>)2^Q?u9I>=/O.Okn %Sy){VJ׫) 5|8}RT/}ѳ? , gSl!@^j]X2ā5w~WŁ+'Ox%_n~';V@!`}cKJg5玱?D=wV=;l-NcU=>F)Uc˓w96zN"C7zlUex5];sP{w)r=uϷsp.wX12upeɻ|=w "C7z}[J-|=w k>Ix$g5Oy%Y,|h?\y.2Up_DZMy=ϵ2kxS^i [ ѧ0'|}+bq<=_]Fk(S{.^S3y#?bBbOy߳yrO\S,zSXS^1YWs@^>>,T{?C4yjs*_X+zW䧼dJxwckC\`Y|k/φS^Neza/?WߏY@k28'ѯdއ4Aw_@ 9ol [,^qƖ ~PWtyBx78,2@ide !z gW?&!݂>Pe _-Ab+qry®2{]x8'cªIωusǨ'8Jx8]+(oj읣/FA}Kə˃?;R2n$go-aR=wPk+̿^i S͵s@qGK Q22\J=zGK;H'S,zk_ u7j}ڣ2&!~d{qWY3=_Q=hda՟ZMy63`q=S}ʀ|CgLS^502u2ll [X_3*'S*7)hM~ &=NM\+@q$_{"G림B quRWӮ&j"!z>z@;yb cªNe'S,qOfwzwkiӇ5s;u｢Sei9t2]΢g=;J&](%HlDŽU9M>^P,zo[/ :}^}ʻEc=\,+Y ~T,?{WWd7|q>Ӈ5>DC<փ2Rky=+/ЧYG \k쁮}G˱~#.2szxϊm χol [`gJ>|cKJ''Y3[ W@{!=[H!ׯqtheHWC-Ce)FʙGMW?!k_ysW7=WCeWKYY!dڵyP?eh%X.kߕm^玡 v=<0FxC#5?v4 uNe~5}ur׈g5̟~5=5?嵚aR^i8DŽUwys<MpPhkV+3޵B ԯ#}X ԯX*7EO*dz_axK<k|2CkD OLP;?,BKA>{VJKkwd5ѯ[-ݯo2T=a#z1DCD,<ϧvanѳ_x?0FOe)x@G\^( &='EQ2ʔ1aդ N{V /wKja~bvYw*-Ifau㺽i K=INaI;.P^i <),i1aդ]_3J$ӚL򪙎ۛ}FzI*קΗf*QƖ$g痛ƃE<'$R$g3=~67 ll [wXcM-]\׃O"]7@=T(g;jAލ!CDXxq=wz ϖSg XPeQFeQ22\s gSphq;-V@^0+_Z1{oV5(Pjh?\[xYE[er6wƃ_x~=w0_}+*:L]5I.`WY1W:׃pGL$={)r=k揘$={ {:!Y~Ak#~| }GK2׊9MWNepOr6_?,G~OpIΤ}SwXu>Me-铜}f=w_Nrhsx-[K$g5'9vp?D_p;xW{VǕ>Q>;y=D_p2$g0Їo1 TxNÿ$k|~4P;y3Y'9V<1a_VFOrrei>)3n$gW_VXN~k5 U1aդU~'ݍZ+\ǮtȫW0=>A ʽ?ilvC@(#`^#z|2y~i :TF{@^%HlvY+ WM?7M^cJ>y@*$ұ5tPNXU޳R,WWT=2cSw^ܓRBT\H_1W=+/ЧYG}HkO }Rug מ28S^i S,z*s/[*_L>"Lc*?&ӿ[IΞ>ټ%} ~>l|16w }5㊞#Φȇ;Z?=!pJaqtEVFbw:f6_ҿ[@@O#{_\?gy=DդOPLhILOpx\=w߾wx~ʄ|])ȝ9~~=w16m?D *Sj.w:Orv 9~5 AE<_'9urPHKI-c܍Z \gUݗu1SVTexlٽ҇5ލZq`Bn!1aդ籞.*LIǮ8{|uyG#VW:1m4ze40{ȫ 0>Dd2dy"D6 x%k~7[ '9;~Vq%Hl T(SǮtbC;)^a=_?ilvU&aqyx7F}7SwXcʄx%kpi=zNq~$ًv}2y~>tol [I+^Ce\$ҽ{֡sDgE^=w2$gc=\\__y3\Ǹzx"C57: =SwXcih2}~}򄽦Vez'W$gRŃ5H#z$gFVo-1^{=Г<0Fϓ=HYyu{P#}ycI-'~*LI%Hl˓)a߹7z''5}К'9{k @'@Z?}R̽AWe{g2L 2}O4Oyd=TU~7-Ab++vr?OJe[/枫Xe C@g]YU(c}%Rk0s-Ab+aw h#Qf닭tm~'ol [9~~g'+Y2XZ"X[ߍ!p%HlSwXcx>ݩ̽A;r >ϳX0V8|&=kC9 &=?,Zׇ׀9y~LX5yir׈V.NW= q2҈^я &=wYw}\=+zl?-ʸOrL>-[K9~~*o}L޿sP&DN_sH|])P|~POr˳ɡ2=w kEVӸGDj<=![Sxu+3[#4d}5}GK!?D_p\#w &arSe_sL 3fwW`=p.{]5Ls+ə\wc_qu֘kFg5֟Y)~`"?*Ctc=h7!>Te }4Psrk@NcS^i !X7Hf\1g$y߁l2}89ʭ̽A#+^#y=D_pWPeJР*Fsx\=@TO&;ZS^iYy5Ny蹹'8]΢8S^i=\csO&w<8Dϡ2(#5>[(c[]֝~~V{+F*nK)c -YGϴ̿^i*?k _"徥DL\ee;SH\M[waP*.RǸ7Xjq"z~.? &'S& W9K2nT)4z|YYDЗyƃwZD)U SޝY޳RRJh9kwZR;GnZЕɃ޹5FOК|a=#Lyye{@^D;Perv0gI-5^@?DqyryI?b*˸;y=D27;tk|sTއG?DakqJz=w7?%PC2L2Fj:?ƽRw~';Zc Q$ '9{LX59{|ylPeJ^㟠'?D;l-N֚݇WQü<*Sg'5h z\їg gi _s?D+㰵8Ch޳R~\*!\cH[ɷspJ)ɻ'9{rlm)nk<'Y<RMf+uv?Ɩ ;B2ʔ{q@7t Y@k;kF]L_+S=ag}P5zq)q'q>5b A,>~"SY er^>Pʻ:TFv! ~wTسW- %Hl vC7O^3γ4ѿ=],g2B8}|%R>=w\ӯ|c't?Z?DakqJ?2$gsXϫCtΈ˸~^Tkg;2!z}<˓i1);Al9{j\=RF{HW/,_^jJ;y=D22F) Qc8][-=WS%XsǸV垰VӸGDjk5?DakqJ7k5 \_pWL<#w SB6~BS^i*zR @eqfj=>![SxoL8"?5^J'qO ECg5'9;.R`9hCe~b;29>5˸U\/;k.!x*0e;l-NWDihNr6?l?D v q ! Ѹ'9qj= {C5>T-C_ak\>0ssD(2#k2]\Ƈ'<'g9OPw]{B`7zsxϥ$ >'o >Ve }=w:M)_GZ{*?5x=n  {ÿ VޠLg=+Y@k*7{GDG.WY{Q&Y~ۼ|u]>Q2telzU~2y?<_j5k\}&+YDRnho1|+?jp+2$gj2?d#j=X\l)%\|Z==JUV&E+19+;l-NJD/I C<"z˺Ǫ M1A Ne 5auT(s^aek (so>W@ zNsk&< &=7?A/O亹YW3=~6q> 7Ⱦw8}5>*?׏ &=gCe!l-[[{$4m}OP˓3!7z{.D{`({Xqeu]+soPLX5WQü2/;<|9y~w7OL^ßneʓ3y2F)U\k jk\eP8\r6/ nU>zD4O*2?1VF=CXVU~kԻ1'ߡGt*C!z`z c.k93[ W:/*saUgԟZwkŁ>0F:K`{Da-?9 +?-$.w P[{YS\z'Fv[{zVU7zxϑUV '{ާ5VUk|r<ZW ϴ2T 5TFKRGL pFs:)4׃?{迒թ̽A𞕂uzX֬ ?akRܞOpָ ԯ>*aN˳wp*lMxy^'9tvsY|nȫ\Sj!Z_ݨs1a#z||*~C-ح{,w=Pe S^i c}׀*zL?Dr7j*}ı^,r*;?ƟS0C+ƻ>y\w\@:U_G=̉~>OP}Xep_=Es[x Qƾ-SX?9_ja\ӯzKRRޠ>0F~\ߍZ)/2+j^~{ iD;ZϷspZ|'r(3;Or6_^DŽUWl*?Aݏ &=H'S,zٽ+W!RFeWl)%w|tm) Q\srG~5/eR넦CE?s= gEJ(?Kтaɗ2(LIe~5~vL0W  S,z>k&<~cKJ߁T&5 {>  &=L/ Cz2yVfG:\)WF'5q/O=fLC+}\EBy>ZMy);=TF+c;ƽ'd=wz**o1RE~x).`Ur2L 2} *o1RE׸>A|S5"k\}wKCe;SHg8_їyƫ=W8{u2Pe]+sEA͙Orv7xgsxݽn! ~2 TCֿ`gCuqL쏘$={w[C4NeͲL~W/OANEy!0{25sIIn?ѿC)4x>!zn r*S+z7CpRF2}ץ}zTF`Ya=>&OPwM8OIt{kL-^c=(wP?џs7z=z>Ǩsß(gyI0ZM9~~읣/aa=uv@1I~7P&Vs@}5'9;Cmv맼0eRݦ*;kρ;G_pߍ!8_s 9Iٍ|R￵[ gQzjHj>P7*Nu 4p=_*͓J~rx-%&'"Yّ5L2)J\k 7/-䕬+1EOPe2dV{V7^Ko2ߖRJ}2 _XTqI%vB/sE׃+[6KQvGW,7+ݵT^\ɳ׃+~=w e-Ab+9-{xyr>5nXw,x.kS^i*a %VkL_u>[[k9`wJrZ҇5!Y,O$,~sG=Oq ! ?? jV;?s99|s/~V{+F*Buw)r=ke ؽo1Rw֗'x99.;2 ?a#垴W׈/xLHʌOxz~_G}(ZLk1aդ1}垴W ϿzYSeq+zz0s"C*e[[)/2i<2C`}]֝>akyEp 6R̿spJZM;RJk< +}7Oztr=bZ~X22Hd8 eAVv%d3Nk<嵚C t&읣Yaq1?*+;BNwj<g/ç{I y]ϟ7z$ckk)=2892Zs7zNw>EC_7F麸Hy(:2+B*@:hrxϊ4I^x;uqWE[s |s/Ɩ ^{<7z''~qDO8&7C՞8/Mލ!CF} Q>ǃX|F@IξlM8!~^LEI;#~|2CSݞ(cgf?C);5t?퇫מ=Pe['M{?A?'əd}xC29kC@Q&m r{V Cg}5k<Lq2{ȫo1Na=ׯ=za__[hYt>wqN<kÿ$@Oe3[??Dw>]΢gnT͙x5\ak})UݨkQ{r@ ˓=TFD]d!w~9w~'o1\J2QBV!¹CǨsCe "Wqk5x3]I^8SwXc=w~e݇PeJ^t/A:Ye6z\@WW:랋ܳ}υ.gѳ>v)r=kZ7Oȫ%1Iz}ѳ! Nya0Rk20ǚ'+_X>\Yy>ݩE/;hM&XLޏQu&s sտE;o)ZJaq?DϾ⹃sŗ''PC| [֖6{V$gVx߃?{W[Sݰɇ5^sݢIΤW*Ckρ铜GV"k#L9k5P?l);Z*- _ϗ'g9y/LRqk_Or 2~E޾w8oKz?ٯѯ?w^?əIp  Ηf*+jYc"#*5}XwXC*SXʔɫ\?+[;i |$g~:'I׌]+> ~ -Ab+ QFC_5gUFa"g9y1W=u4;G_p8L|cKJudʻEsY95Ey Q枋'9 wΫOyNr6#~V$g*C'EWQ枋lC@RJ.FL)T; י\HerմkIQ$OXkv*i XiV?9lLX5y\ȓ˳$i$1akE^_ѫzQl;G=w e&Qk<2oKOY);1}ѳ~6q~v!A6GDVqdOyaڑy:'9{ -="$/O.O؇\6}iNya~kͦS{D^d'DPe8/~f?C9DSl!@^׸aѳ~="dda_ShL_k=L5_#~?e'<v\ѵƿ_5L}6hM^@s8s5k\>$g0`YY,OSwXc۷-mDLe5Qqp$ՙ@kg#fk̆=}X+?bx+YwecԳ{]ni]Ӈ5ol [AZ[M1!/}x_gz|_{yuv@Ct폘8If:볚d|^[z5*? &u_~2Up/;hM^]{_ӽ?^E>-Ab+]\NDWLև#vMCCe!)x>dy"DOx>D5z?o2^ u 5TF[֯\k<嵚Yn~OyΦ>=[H!25P~}YCt|>l;Y@+{}ఇe\UsWű#Ly P+V_My{=>޳"E;ɔw9ll徔2({{KN>[VYeJ#|:y5EOx~6T^&ycH[Oy9:׌/ W!;W:/纗2|wס2({hE^IvEQ2H#z=&ʇG'dʻEdW۩L'9ݨ\;LXY=0FzC}H29qy=D?`;^z)dH'S,zVeF^/`*wyNkD ^99œ 't׀*Nr6OyG&'9~Pe88!;_X_gz< ="džQ3 mi3eWӮ&9TF{.ے?D_ӽ aLҟ]fD;L?\?DFeus==+&k @%'9ߑNY@ϊΉ2:/kf?\'<멀 4zq7jk|{5P&@*ȟ aLo-;$!f^9yV&AÿuYLAuyawN _n~u3*eTF{)㊞IϾCy=Dg )ÿ$~oXU{Dxa7Pq*`&.CyVT4{l X+>'abw֩Q`w d_OESA揋MgfƁ? ``eQ?F?{ 1TFe|$9ֹƥ/t2'9f dsY,ѻxVMz5qU%\:_ɫ|T2(sP]_^Opָ ԯn厇Pe yw=+>'w9'<|?BPeaKS^i ӯ,u1aդGőV2L XskkMfZÿ灞C`q{D2{E'9LOp,ab\*?=k<.2Hx$R=7PqSXw Ƚz!w~%k~tB=>DݍZ_@?n`<~_Ϯ3= ~>׸ʏ &=gP&D?p2({(};`;ʹVF[_3'eG~w }C2ICd%Hl;N/޳Ɩ ~yry® Z!);k&}5@~$dy==+޳b罕$ {k&<㕬ѻsl+r +g)qE@^?'ؕNyX_6[Vg'zL+̿spJyÄ}@>0(cC7zNSwXk0';GMLA@ Q{cKJ''szn kw>)_;G+sY@kZu {HI.`o)ZJ=>X8r=Oy9%Hlfwdu+VMzXW X7S^5d2'!ae\l>5t҈^/ \L^{NG(|+2VtPVLz2D9w jҳ>gJ"/К<<{DPN9s;.߻V(wak\=n @:ItSx\Tgc5zn2j|ZUdޏeUu\]W]LZ=g=! -Ab+   qEO }5=+?DCz} Z!z*Cy~V3К<|G:.g3|zvSs;Pe%Hlc=LA󥟠DŽUWz=he@fTPߑNYDЧB .y֡:X^=>z@_:|\ɄI5ScOyK{n Asߛ XXw>,YUI!z \YׇSwX! їW-zC˺nR1}G\ßoX2e]y;L?ݿ[@v@^5`|ÿ$Yq=ux1uw!4۷@^̨C(o֚=9򰾵[ vyZ|Sel^[5k! Ǿ|>}{28DgTUFCC }pc{k;GQ=yi kӯZCgGeo sx&k읣rOuk Ces1avW~3PSwX>Z;.#0'B?;Nx)̉PnefG6ױ>H{g!x #FVqf) 6+<=k|k@k2 {g2Rƍ!q?'_5&uMn 7P'z!==?FU 5l!qYW9m=D.N?D_!Y 宇dCe64۾y+a$);<hm駼ƚVEmwOy%XfcKJL䬾5zyʻS=[H!W\9:Չr6/ ye{@^2YGL ~!>ACe\$-zO})kQF҇/}p ;Qe ȟJeF\+';կ2ط_ܨGg4N%Hlc}^TNe(hM^T(sG˱~SKW2ac=wNXI9B/%]eQ枫l!@^suGԯT枫Dvz)ԕW/s*sUb#b=W}H'2`ľGĦK{I {s!O?VRP*s";=Cdg|U";=Wt$Id79{";{C{ľWkqџ]X_?H9T(̿spJvZϫC֚ݸʩ2v.+q 63Yw{v 2\}O XciK)B5V枋 gmi@߳kTc8T;>Zy9y~ZW92\e2=53Yw~e;SHcF$Ywyk=>'OXkv*RKi}EN7zN"Վ;} D*.R*7J2{3(~k_eYoF=:]yuWT Q$o~k)dOPy>A/O?ׯ=dއI쇛^NSwXc[5*~=IPw Uύz0|&YfݨG s<0Fzʄ?}CxNkD |xyr&'WYԭLby <,E E _qu[^jN{ľW[^jN{ľW['KD}Ubs(g9ỉ@:j*5O\%=W 5G9b1k{.}Ub#F['T/ZP0LYH8bsVR(bsVľb{s\%=b$9ľ*#̉R(D*1+̽"a}5V](2}QƶOya҉r ~~ZWyc*eEUg2L;zJ9u H~ө=W+CA}+s=OP>() r /=+#zL d: ;8Oҩy=(9*?bUV6qY/>/{ے} Kxrlvc܍Z+W?Iqa 'w)ə| ~b=n L+=+Dvz#"G<MxxR+eAdZ#2|)2ʔD ѿXLA1mq WLT:W!~M>!2xm&Dk2Y=Oa}RU/ZV{2%Ɩ ~yryl-\\e?0F+zk5yP\OeC)@gw>?[]{C 2\!T=(hUvʌ++s=jo6|\es< W)/38=W 40cXI9B/2(*7gOP+}! >'';}kŜ&˩=WF\kä2H}q6 `YOPwJ zКpyrV5y\sfrx7 &=|+ped~Ǹ$I>czL彟ws1a#z|PeF\ʺ_u+-]y]8Ny:,n#9 @gM?DW\e$Un uWiݨs+ &OPwJ}ϵ2Y~bB>DnT;ɔw2r=I11JgJxg< U?=2Y)mwL;.пÿ$zv³s7zz9II&'9tvdau?&*L7s;Gkx=*qhLH\Ws@^xkŜ&OyU~>7)sU!rT* @g}^}xyr&'Q&}g OydShw \*2dw2\Gav@^W\"_׏Xe )OLNe=r[xd}*`01=>G^q}&a5AʸAv*sUy<OL35z]Rqf^=A@ Q(ꮿs^1q ^k|>Ume SGM''zLr_ٞyυ211EW{VlOy߳yW2L WY>jے2[CkWXLLA+%Hl_f7ǮtȫލZ׈YZ;G5SCeQfwXm+z&@[e$\˺^}oo=+:և`-|x{0s-Ab+k(cgXMkol [X!<~s5wƖ .O.O/~ZWi z7j+ڧz\ʌz2EySuTܳb;OZ駾-)LQVU~lⲮ=%Hl-T)p?'g'y=.]I`=:h$ Nq01y>-Ab+}_V&Y!p$z kq<ׯl*LIkW>ʇ}[t8 XnerS˳<* = @gKu׻15kLӯz!}ֲM2[_les|Z8b /п_ncy,5@ω2nTX Zß`qxυ(g59eu+`E^*x?b \ ?ȟCTՍ-Ab+kܗ259q|! `qփpⲮ;a[;+C C[@H[y~4x_wgR￵ҷoKdߦoߖXHoߖ㦭/۷zz6۷kw*sϊq}[zM8-%B&e)@WP=zR■2Ey>@*?sg*eYIIt~Qn=Է[ [IAi2UUs|LXuZaOPewgž-=ˆb}kH߾-arӷoKwn*$}[zQۦmm6KqӶM\zN>[nOLѳލZ?׏ ?ГT) MXXgX9\0'f+|W'H&v='T,$.2nl [wXc'beQoN蝣_ @^(cKNrv-Ab+}њqՀE;d~t2]΢ϴ2$g3=>_W r?/߃Or6Fn PyANal2{2C [֖f\1g$ZZICd<$c&Jh\ѷ(dW~gnѳ/O.OOa=="Dk=$<&.l@^ÿ`]N>fٔ䉽ǿ5zieB[!?q0!;Zpv=œVfvds= k2C`}]֝~~V{>HՎ|5>DÉ˺\2߾-)sϊc!V"}[:a["ݜ2ط߾w}(o;|S/{B /e%'9vg7t&OxW XH'S,z3eL>0Ɩ !w~%k~X֬7yPlm)nppk*5kH$gPXM\5+p˓3>E[#| >TFe:|ے2l*nz&w:o'W@TO}[9ڙ*7M2ʔD?me]>{ol [@|)OM19ڙ*7kࢁpwhe[֖Ƨ-k-,7t\P+݀V-z6ԧ-h@kXDN ȟꄭ=}5*4?p\LA~>|$kρƇhe9@oK_{]gkT?}5>@s]Xr /O"]C2<9>ݨg˚C]+͖b7L9֘oے{ր5q7jk|K֨L&FXe L}q%Hl۷C}N*unϵ2=~Jg:ԇDŽUuWMx\ yݍZ?ʌXe d>)D?D_$H4Cg'R)C ݨ+gk<<-k|~ ݨBy޵Bѯ_wYwt=g>(q2$gau|vLFȫf^{*LISߖNyagݢ7tf :1Ɩ =zC9DC5%{êqY [ o-?D_rǕ7=;}5!ZpkLk%Hl2ʔDOPwa1qs}2'Un RL!w~%kceh!dJg%'l%);fRF4gIܿ4ݨs}y.GOx.CncZ{`ѯ=zލZ"zVM17h4x{Vlv=_{V y}޵B$iCeqnږOPw4,Iz*+L_<嵚D9s}~iٽ!cª;V2y?GYUo;ܱв-97mS/YǦCe~׽!6Lw֟=f/OA5qe~wsfrLb>njCl2=>cª;2P2ؒ_H'U~w $gAknX^cZ@¢rOuzf Zÿ 8?DݨsNr6_^UCNy9Q2^2,۷;j?D?mϦ'cKJԞ=ʸ%Hl[xa#QFqV\#Rs@:/}ֲ=}5!9䃔^1Y;}ygux>EyU~SXNehkc^1Y;M\5!ޡuG?DM1|/]N̽A quGwYnuJg* D r(soPI`s?AT!/@'[{nU@x^'9tv=[/VޠuUn Ru/@A'>?Dfs e q6 ݨs}5z*;q6 d 7q}\ yr?b q!ٜ5 e\7[xd穌WLNk޳bKNr6_{ʇ'əWLN_FO! OPW?Ӈ5~cKJw/C: N+=-bvZݨ),׈^_ɇ5~vdsll [)U|kCeQfKOZQN~ֲ'MS2%?akRܞuƖ |7`<}8EyUsT),2q2읣%Hlc8rkρOEyC:ݨ24rakr?gӺˠ_C`=铜}jZM=sH}}pkL+ӕK2ᄭekKq{k*L o'W@T-9agu \+';}@>HI}[:}5ލ!8]߶B{FM'kF!e~>ʝ~V 9[qN>{\Of (c}񞫎p58'OEyՇ8> j*{Oya)ևq);C_{k֨̽AdڵL*k Ϯ\埳8Me tv2ll [Oya)P G!eukL-c}gq=D̽A븢'@|)O^y}pk|2y>J}ےy}Wi@铜}~>ˁ@?AUnCC`?XD~ }gkyc(s@zՇ$z>D*e7zNHez9_u:d?粉);t \EQwC?A(C۷e!l% 7y;}KHqKPF߾%%13ziCvl@^u2/O.O؝ SwXSj'r(sou9CkD /O.O7PՍ-Ab+k=2(soPqH!z);׸zs5>Dvt=X{H+k2 o>}5@{ƇSwXu%HlQkeC<tO~> >ϷOgC{[5*CkG*m^B?2ؒ0п}[c!V"~^w™ø<;wgu-Q&DC|űOa-XI>AxjsSNef/~5*cKJ߁<ʟM\5T=sXI9B;Oe˳kq2*C2~MxX?6A' ǰsol [I_GC|%k> %Hlמ=g59zsqieHξg5k.{<?D5zYYyʻEkFš̎t2]΢myOr6Ɩ ^gz>}5'̓~Sp2?7X 7Qfi*7{<}5C5SЯdtC+YEVfcKJ[ '9RU~c㢼* ]8s@1{2-Ab+ݍZt*Gxn Nr6?ls䳊}k}[R qܴ-m:Hݨ)d=?D*cKNr6Ɩ >r/ Sݞ/` i}ȡ |-}78|cKJ=zxW8x읣%Hl }KHqKc[ry7ZS֘x#a\>g-Ab+U%ѵOyaUyWLA  ʽS!Cp0놁V&DcKJ''RqaLI;ɔw9u2i#ΦLYr_~w4x*7{i$(ݴ-m*7C~~b=>Auס28[K@*7M'؇8Ok*W)&](c罿%Hl˓˓pSw;?Q^gzn , 7ǕEy~cKJ߁|,k|c ^5)CaR￵9af}ֲ=}5QFlm)n)=!2ؒffk*cKJLAk2}Wz6 ֬[eO^2x%!wƖ ҇5>Dw PakqJ1TF'āN?Dy aG^}78Pe ūx&=Lkm駼:Y%Hl_{c2@ii~߃FeA?Ay:TFeZ3|J[eT`)MDtNVe>pp7z~>|cKJ=zCVk*uX5Y\Hee25Xc}!ydC_h^1A+peՏXe Ce~ It2u?e\9qC@#/iAknX>)"zC¢)*+&k/{z8E[ke]ʄ9=woK?{o1g Xc}lⲮXʀ?W@ so12xO"3}QSeMnNӍq7j}+pe^%'ə|zX;?ƓC5S$PW7t ;ޓrr߷oeQfa^Em6ueT`)MDtN^o[WFiDl-\C=\3;s7sk*srWCgp.qSXo-=ÿPWNj}X䯙ee2e\k.?ACeQfa^UFMM/ +w$gw0~bB=w\9D^ L1Dzk)Q['<ے2lSwXO9~~f z|2CRTT&z>asWY 4z>}5 ʺT=z}kŜT([X4~>嵚:#LAcKJCe~=`k@dv2(cߖp3'UF{y X~~dyr~!1aU R=&cUF)y=D4Wh򯭛F?}RUP _妘(}[vS!Qe+ ۷;l7\OeM1!/ڔX|7`< ~5*?D?Y2PC=طYE9۷OPw}߃Or6FO2;KI`}{?R;s@k<֚ᄭekKq{k*Ss5zMyu5Sy_{w;ol [I~q|l s^#C5.*2m9nnby*sA^mb&9TwU!LA5z?}5^LVwc̽"(4P?sI5˸ʯ]+zLXNcOB}2k׊V*[=MXCes_qu; 4zf9{E*v z!])}*`~}*s)*?D+OLFگz^}2yNS^Ne~?>5z+Y2;85}\<5V}냔{s5zʄGD?2vrOut7m}_n2ݢ-[K>{WFÿ$~Myv=~6mR[/TtlӦ >DѯdTpׇSh'9{r^U~%k>Dÿf6C?vk*\\Y^_MV~k5 \?(du[|d+=>f M*2m[qF\cXI9B[2(CzV!m[q{k|Np#&I^>0:oߖXHoߖ㦭/۷T R_"lJ߾-zzW29U穀UڗaѳQFyo}Qe ȟַQDʸʷxмN^}Iol [cSwXcM̵֨bN?39 W~A=OLѳCe~?6lʻEc' X+z' REs䳊} ,Ne֨L_[72OLf9{EkFš>%h} 4/>L2l0kx@CǮt0FO(J=}@>_MV7t?Y8[2 ~2y/}~_g~\w\?A{VJVF {Gz'D_j R{8a2*?[cGsebk0SXrSLzƻQ$L_?NekI^gzɉ3AʌMy}<H'S,zVCe) ?$3`);츢DŽUI*~.c⹃W$VnXQٴqܛ89ZaE}>-Ab+=YCWz >'aqOLNeg1=^?0Fc|u;.~@:"}LNES)w!cW=^`OxWLPhShwcXa{HrCx*`u7˓_@1˳kǟo2>:CtmedwOrNLo2P2vZ --i!XR)soP}; 4zgՙ-$HBaQ򷈦~bJ!㈁Y8~e{9QޠFM?ǏM~,9ʏ'qucKJ=)G(}[2طT R_"lRF;}[zM8-%BKe){B*n $c&J;YwO4Oyd /]+L$u,q 뢵?c( {{Xr9J\׃(hvdZd_c/RPsɯNr6kn Y!ʙ2aκn n@SwXoߖNyaǪ-{"`Ox>z@ZMy)SԶi{բ<_;W kgE^?Q{rd+)@D(tϊuU~}+&5})wŗE^`^Gp5^N>fuZys-Ab+m'{&d;RКVIL{q2ط;lSn2?)7K,(ChsC/cB M1D:|q>:T枕MYڙP{V,{EX`NrБ͕WLNP{V6W&\t[xd,ܳ[N+&kQFt@i[*\Sݾ-o)8nږg92妘[@w^'1aB q2{){B*ߍ!붔+26KqӶW4n qXEyuG?AloZk\Y?}k5 uOP2ńU8l%E=/ 2=W|ucP|-2Ϩ8 ${(S}yry.m=}5^ˡ akR#f0z&=Mp a["gmв-|EyU>Eq/ݫ9TFM;6m ~m4z<^*,myBƶdhe rSL'{ےk.?A_rSLCzV!Z{ 1f z2ES*k sYJx=\B2@[sY|7z'IH?qN7j}X52nl [wXc'o դ@]gXOyuGCeJr z}RHpt<ۭ-I~*kۭcZ~L~xLX5P.~(ZLk2}Q`e㢼˺/ÌgƁ(}[&Ve ȟmlo~qv] x@erSLȇGk\g|VMz<KR޳RXpƟ׿d$RM-/gϑ9DϿ5zOD(?;̽N 1g(gyij?SwXdޫ2 e8p=w\Sܟ\Ceq,llKM[Kֿ=S{I ?~_ur:+a5>Ʀ9T`v3z*!uXqКy9yrCLB{x+y-WῩW9D/\ee /kܷ2(30ۢ628l߁N^7v8ew)PFNpgߖ}kCLyγoߖaѳލ!W０ޯI7l Fÿ$oK U58'g߾-@^52L#Oyߡ[rg$҃Oy߳=GL~zN^Or@*S;ɇ@'?*OxW XS);hM~f븞o W8Wz*so0|mk Y:ٯF\7P.2 \/b;{jv5z/B{We#Du@:g?Du ԯ0l@s_锁u\*G^=TEmRJXH^RHHa3M[_npS;حnlK2wo͗;l%/ߦﰙ㦭//٦M[/w[/޿Emۗ K -K6ɶ`ҥQ(g߁|^R۷RJҷoKKW~3ă_;Z?D슳GedwCW\e?}5[)^+|\Tgc?DVfu-Ab+ m'{2SޝpƟw)r=%Hl:LAcc~q X~읣]LADVwYF1q*yLAk2ط;l%(c'W@ToKw,$JDפ稌201c=| ㈫|*`CeI&̽'Sh|OxWWL?0:7X?_wt ٯ3=>_Py=T*2 u2Ca["cec[te-j޿f' ,NeR۷w,llKM[Ko8}¶D zBƶbe-j>-ӿf' ,}pBƶ'lKw,llK*VF}Npac \@-Ab+=]LNESMCg=N_sPkU+}o2^[ ʄگd){Bt;|*` ޳bK-Ab+)3rqo,k0'*Q w1k|V&~wYn~/wg[Kq22L Xk\gR!,(t,llK&̽J_f89q@:NLXKb>0FgGe /=G>DcKJ'Sz ϑ;L-Q`̾WLSj˓sI){B f+so0fOrv Yzk|kqIҳWr*so*`Cksr ԯc{V++so05Ϧ(OOyaaߖ~ֲ'C+y'9 1T(g\}XXW;ϑRU>.ymQ2'<,کQۢ6m)%(CºOr6\k|\ȫލ!o^ %B]k*2n@e+ ۭHg9W Q$vҜ?b5!!2L;z׎?G!ZSwX-9\H3 ,:/&.z>}Ru'9882CǮ8{ <\Ʊ(3 4zaԘ(=>WtBDUpY ϟg )S\1רe8T=/ ÖRp%RF Zy!&ge=ӯއF~KM[mC@Q&Shqj}YY#?v28Z6%禭%_ٞ̽$lur_C9D=˺?bu*#k F˓pq2 >*^*,%Ů2@@Z9!;l+DŽU׌CCYٞyNNLѳ>&cDw4  ?!:}X+?bXI9B?(C72vrOMY䕂o~4(ѯrSL ѯrSLk.?ACe) 텖~ϊΦol [52ѯe/~b=^As GS^NeV@^a)ZJ>k|VMzއ}>akRܦs2%ѧv}m鎅[av*e t|cYGxŗaba %@FC2ݱв}^!9z7x |'VO*oSz}0!2L 9v~zWǦv2L?^+> wCe)$ۂJ_ٞ̽;,)>DCFUpǻ /sT` >T?\'|"VOF_5?{=D- e 6B/?̉w 믦]+L WVȫ_3* ꮯu*soZLkWgƁ S/?T3J$Ӛk8Ϧ=DŽU:gL+solsU~<Au2$g0Яab~CK ݱвM?D8t*SW='$ݨguxL wcªI㳊S`~\=+F! 7~ګb@{2y{SX@iq\r?P`(X`O+s=w,tX/$ @2E2#OLѳlⲮ\'< TWY{@:҇5- /8* @L7T7=^qUNxLΫ?>ݜ˺17Cp'90Gk}W޳RXkݜQ{sW]ֽ UӿrW\+soPrY9AʸѧVR&'#HƯ\U A}2Tޠ;jʺT=Oyaux޵"/rWǪ̽AY$)W#Ⰾ+z WFie 5>|&r'WF! >6.`%Hl2LX} c?C}7j}<Ɩ ~^=_q-v v?#+:3g'W>B`=:ˁ@?il9y7˓)2/]ֽ U7t} .]Oa=ĄUw]kiM[rM1w™pʳ̏|7jx?k8TՍ-Ab+kI,u2)|T=74' @烟~eWL֧&P25|E&} sN 1Kg \gC XV`!Q^*$EmT=7XI)OLa=D?e\ WW2P:T`j[Kӱв-4&?]_q='SW~]7H@{2۔?{Chsع\Uq%TFBƶduvE>p$_{ʇ0ia^\'Au:L 3fwWW)&H!Weu\cqr0eV:}?qF^=AfwquZ,c WS ؉K[S;J&}ʻEϡ28ֻ'F:K -TsUΠ܇5 :,[SXJn y}sR)U|=(S-Ab+9_ؕNCC*ד xCxVakqJ?Aݯdޏ<Ǟ~N9Ɩ ҇5>Dc(F?vs*7EO"]C7*<<2wksry \Sh;gM2FM٢A /|D(Oyd&YD(?;׸I~sW&OPw=˫?ן sfYO &uWe`ǮX^=>l#Y<gx2ܳ"*p=U U=+`3(28l-ѻ38-U|RݙW*g$B38-U=+^)J\HKRR#–RZ{ܳbK)o_o]!)a*2Vy×DakqJ(꾝ѻ2ʔD?ilv='wZROP+Ysl㊞]7LV{f?D?ṟ'Un RUӇ5>Dh \; wzt89\0'qakT7to*2[SEQrSLB 2[S ~bys~e),T`#l-"JQ0 K%-f]e.2 >GIF/OAN&_\'V1rSX,hOP9\0'9 >Ϗ8OR\ y8{u׻1ă^_Ò/?t(M?:daU&'{w9'' O2;D5^\װwu3}X]r__+3MHnJ.PeJP)heY8Xn!s=k=/+ 髯ܳb{Nҕu[_{l-/=+y5nYdM%~O9nrŦ=+[S,řwϤ(+Sj[*} NRܳⰵљwJiݗ4^%I\$B3/)sU{V;Nv..'v])RcƩ 4z=qwc0;@ϡ2\+t? R&Wgźb%MIaK̺+TyŞ˽D(mEyƄ=+2kRSaKEyƄ=+uG5[MߖRrG˽"pi'k~eYq]8}Ů8"q. eYq]j]g-N{ӡ~Bڪ2.vm5}Ů]3GW$NV) VgPufURPuߡ~g^+ukJx:!ױU~Ɩ Rwc:gQf\'{2%{i?l<>A[;p=jéL2FMƇW)>0F||1B>G #[cJyϴ2#RYkX^>I/>15 /S*`;qQ=>G^`~\>1WLʔD?c='OP5x]=#_X]I);/e4E='ϑn p70;2#׿EQwM8ՙx{s*=bAdW^DvzEAd"+sľWA{E^ľW=bAdW^DvzEAd"+s^y#B*R[2̟Z0[>[Y׎X=yx:{gol%e o//( |^jRŷ veY)쮋oKD;&kw]Z{ܳR0^ u(+ i PF.v]y}fO8;l-;D6gep5>8}{&M~,抵.ND;]f+ie6'kG>D+#gFkD !=TF=`Un v=\dE ̆zH;LU?D0\k^e\?Dݫ9y~Ɩ Rʌ1a!c i$`>!县5zO+k]8 ^Ϗ8O C@| S\?\~㾥kǃw̽Bg%w]-H~gE^٪}ckT&Dkye2%p=Nol [՞O=ñcp]D9W='Mol [˺^%]D99I?г"e6~qda!:̆: {?yXrj\LW@ ?A{.ہ^$g=+:֏]\ϵf.;usU1F8NgCW?lT&xbס2ʔD}y<C=K郮SкGeBGu\#Rw "ykW w  꾻/`QUhAhr6i2_-(_`Hnw,sf 9眵4Ce\uZD)U-Ab+:B?UeQ[8%Hl%e)BY):a}[fFSַ@P\ӷ7[8гblUΠܩH -T2)+=+|HSNuxL~5WFe6*dȡ/>u v*e71}{B TwY@N/O.Oؕ'9 pk0E\-(҇5!(S;l-Nfw/O䟓'>~b=WYԭLby=Gو*7EF=Rc @gM6/kT&_o>AE"_c*Sh:qT=!7wx";w*T=}{.뮩QfE \ ]N _ٞ ' gJ3{ &uT\%U_#9SK͉vUOm_\Im=g&JuoѮEQOYk08¢^>6]_y}e{goYZ#Uug*WOh!N9[qyvqSshWeB=D?~5=WvU/q~@^ "U-#pk{~Q1ar6i?Aq=Dr*so4zi$(S`y\zNZ?H ~т2ݼݳR]\ 3/:2<_6oyOPw[p/ػ̸Cap⺡y}^e#P'-]&ϫOLWy27,= ~݂k?Ha!j<>0Fzͫ'~]?AUel˺/ZP0ZΔf2v}e(wc=]9yta(#/ OP>:dC\r6i?K -j={L+']&Yͫ:<C<[ wsk㢼* @gg5xRWgϑ5^cO\'Ymݵ-z=!< 2/ +7³~ƟTfz*N{VZ_3*z78'3*Ny%YE^5Tf=gŶ~f 4INa-gF=Rk1)oV{g8𞕒he֚ݸmȫnh+YwrWPQω2rJQfcKJNX!>z@_8Ӈ55z޵Bq<ǞDž;+z&={ѾC|DŽUk<>D~C4NeY@gg2.uN &=}Ӟwu*Sx?b9z)dcY7$mUfrOS^A>jFš>:(#Ϛ<;^;l9yt89\0'>];sJ8l-N}B铜}jƖ R?Av5}XAv0|!92"ʸ*L};l,p$ ~*N5x18D?;l-μﰵ8}>0Fz\ʸv0#!m=|ͨx%k~XkgÙ#J߃Q_2= ?$S]X}Xsd)g+L?lT&xÿ(vzƖ R}KzOPKw~e݇ݜ~LXuLj!laCCS ZCe!/*̟'=+-ݵ>DW 꾀zXg+ٟLƞ6\kvqakT7toe =K˫ǗJDquol [)U|Ofg?+wcej@d;Jk'9k20'<+zLSSY(71':'$S82:l-vV*Ɩ ܗ[eQwZD)Ủ%2'=ỉ}υN/5#}xJI`UfJZֿkgÙ#J车lU>h}LTfG:.gѳR,z__!wZ~GGg^kb/{.FevLػѷܷÿ(WeLjiV;ɔw2r=Pe6t xX-|wZRůM\+ԝ~t8p$2~3GFksW{CTgハQe\*uXne)7˓)SX\jM\֋9ync9TF;uz*>xm^Ӈ5Z_3J$ӚT?6cKJN_]i$~2n q}X+e(w^(yk$'OPwg;!.珞 +C k9DleN{.>Q<ݳ6bKMVľB{&b+sbs!=";=W|υ'^k?O"sVeN{.ľBol [)U&";"D9SľB{.ľ*Xe s)O[xdq_*UľB{.ľ*^j"2'=bs!=W}υR9 J{.>:@:=b!mUľB{.ľ* ^j"+-9a|t2]΢ 蓜akqJ+>W=Oyў$gN;u='ϑѯH>'[W;Q{i+qJcKJPK/VFe;𞕒޿`=?fuwZR5};l-μ8l-N2ʔD>{gUnʻB -쯂3=V0{xϊgG:.g,U~%k^_-HC}![SXuJ'9OX+0zC:<=GWʇ[xdL5G 4z`OPwM_zcY*jW.e,bvZ 4zCÿ$zv³ucqieBtWF{V1a9\0')4S:mCsTf$Q'دk|an2ܳz+Qc8Tk (sϊ3âXi=̾[ l1Rŧ.`WL߶. ޵B֬ȿfr;k5*Ϧ\^[|ICd٭ɻ~2);u A=ˌ+pkU@ևȫ0!P&/3vOLծ>ks6.`AŭsrW="=5!lE@^Ce)Lg7z铜<$g;v!8{F*2V҇$SwXcUF4ǮtbC7*>}5q}wM~ĩL!pl%Hls;C`Uܫ'hM^@w4zւj &ue405y\s~sHAex~f 9ݗ''眵4|>A5}kɖ)gz~ƿ2IӨ{VcjG8C{!a ~WOК<2l~|0>D?ACeQ߬*?DakqJ? KNY|Q]Q(gƖ k|tl=e\uZD)U-Ab+:B/]Je!9xrY ^q*`&_妘ksT矠{>x!z_@uwϵ25xXIξy+pe e\2Xxaks߁|8_g'׎L2x2y?,t?z'z*-I.`OP)h74ێ$gݢg?DCeQ^ )Y޾w@")wPF;RF{W N+=+/7љ*7ͻBo~T*ʸ갵؉K[S7tr_(׈=Ӂ'Qnԣ3AUnw6[V7?AUn*e)[SwX)d >'əWl<7*VƍZ7͢H_*1L@ Ce64ȟ "-Ab+9Oya5qՀEmw2;ۢ6m}m;,g%Hl%T?9%S轞){B G2ll [)U˓p\cYׇ,O'B_ple<}}}m%[&-q! Hξn?Lrs?ˁ}[6f}[ukFiT&ɴ&VMz'9~~/HA9DO7~}7j\{N]+{K#z=DM1rOu?]C/O.O7jLl?<-[r+ @gM04%IO2O&/JW:WZмwc;|&Y|\#R~e~LHIΔܷY1я &=<<7׀gATFֽ U7z,!>ǸߖSXs}{gxkMnZ\,8K A?AuHa/OSXwceBr /Tjփ쮇˳㊞3ǻQLLX5d~Ǹ$I>czW?{ ʄ3=>׏ 5(o5*nU[elɟ*7Gq+aw)T=k!z=D*V&AݯrSLZMy ;?{옰ꎵ"?ʷoKoXhؖ?cP!2Petr=ֻQ3ї' |_Ɓ^ ԯw]!z2w֧W~5[rx_\*OrSXl2e]!g<9SX9AʸʷiCeQFe!/*̟']{VoR~j!oK6m'>%Hl%ejρCe\uZD)U-Ab+:B/WeQ^ )Y>mAe ȟoK;G;])PF觾-?kg-'MF^1 @^5~T;j! ~ƞw ! >̉}r2枠*7:/0k8Bx\En ol [)UV&=\(uG?'`3YSanq]e>r_=0Rc{Vlɟ*7C{|+S妘`ol [)U|7jk|~Ǩg2(2^1Y;=g&Ci6gx ~yr&QF{ [֖Ae ȟ'l-[[o~4(S}ֲ=}5>Z-Ab+9ٴqOPy>A/O'weB9DWFߖ&ϫc}q?6>ٿ:[ *7!__g?DW ~ƞSCtcC}d}\w\'a9Ab+^C}OP2əW)&sgLPwzk<\?=&$SXNߍ!$kρ}Ɵ?DW+S妘`7ÿ$~oX! Nr=q}KRpd\.x\l}cKJѳZ۷ߕs@})U RHxW X)ZP0LYHHsY=i$[_y+s=@\]}[rw~iQ-v?C7t^WF C92?53~\w\?AC2BQ\{VJ>D;jϑwZR~/c߷Ug#Wo9 - w޳b_;l-Np$~.Leh;Wzu˓nj>ϿT*HnT(so?b \ 5Wz?#W֨=MCCe\uZD)U-Ab+:B/ݪ2(`0uM1A Ix!s_oqf.!zQ.>0FQqm.#D+xk){ָw>g#D/Z˧&3L>b>Bq8); >)Oi\?OLNegM!z$ggo?0F-bv8Tf*k+&k 짰~5?DmEm/SWƿ ),Z@|-Ab+9?[@5r80Fy_CeOPݨs+q|]X}Xsd)g+Lq6 䳥֓M1!!z|Mۧ$Zm־MfƏ]RƇf *7);~X^C2 ?ݨs<{|ƞ_8ksџ]nN?D'8ՙxʸQ?O&oncn }!8'їT=_;Q2oeYڙ5}@*|2>G T=q)㰵8W)&H!WMfDYq[8%Hl{CG(KWFem.ope?:s;U~>0[z>O&w2;]Y۷%e6m_(~phA ol [)U|*k٧z{WeEyU~PelEyU ѯ}Ώ5p7*VZ!rj Qol [)UlⲮ=%Hl-Unk<'g'z9\0'zu`4D6;}XAol [*#`c}]8g듆f.2 ꮧs+NyΦ_Xl4 <lm)nOyaCeQ^jd}{pKDR2%ѿ}KHqK8}5^΢>{lr9kiytIPw>Ի[C}txW6qY/_ٞY(%Hl%TݨAW>Ts$ݢC<) XëA+#N0{Qql!z<0F:m1~ +'n UkL\sϖǟ @gݨ?&cD@O8Ib#/,4y\c#}X]L^ E<GSqF&.=[L>cZ!|)\1aդ<̦=+uj7*lⲮ}z)Neٵ~= @g1y>c>ZT_g>byaVwy@VݱVLǡ2ؒ:.;~qā>c drJߍZt*Gxol [)U|\W{cKC@CٴqA' X2Pdk-Ab+ Y)VfcKJNc)ȐszUyNf읣_{<}5qQʷoO}[Jf~J [IAi;[SRhE [IAi{ce>a+)(mݴ-m'l%KDַ(Sk92L;zW(cK~3ig3[ WrJ_3UWœC2[S!z5zVqg$g0?0l:9aZᄭekKq{۷e(;q,'9{rJ?D߾w8}5/oBuߍZ?$guя &=2 ݍZ+*k {$/#\n Nr6?ls䳊}k}[R qܴ-m:Hݨ)d= VF"p%Hl%TqN/ ?AH*S;l-Nמ= 믽OPw=Si|z*Y&ϑMXwZROPsdtEb>&'9Sfu>T;l-Nol [@6m? &'[8%Hl{CG(VFe\;sWFￏǚ~25`C+}yryy5U>)Ne awc/>r:mI~f7n>t?Xk/8ڝRŧz7,ol [is'9;rs@-Ab+=?D̽AAʸܱ8rv +?蟰2QwXL5vIh ol [9̽A#t_\zUΠ$gT0NH[^Vep!qu1aդU>z@?< )yk<ݨsCN[ ʔlm/O.Ors@|rJ));Zߍ!N9{2#pq*L V:+xb+ QF{)d}{tKDR2vrOut&=,:)PFm iAe6*~9s2K-Y $BnR(#|\LA$S5I2nVω2X?r*soP X3W,/^49ѻ2EWPe쎅=k v_{Fū Yq=Dfs e q6 PeJD\u*k OyE!Un u矠C(so|q%n~![S%SwXcZ{:?m9?&? 꾀zxH>'wƖ RF?];s%gd~O!`:sY|VMz 2jk;?!@g]ѷ[/槼=+%$5q/Ägs}JeДm_8ZKV!) W3 .Ä2rSeil@:VݱVǎwgm۔?Дx׀DŽU1W=@:2RvS!:y|7`< ~ ^2RfEy>z@ZM|읣%Hlמ=ӿCrVt!hefמ=Oa]Lև=C4y},!(/OX|9гѯk9޾wH?m)Die`/j٭kPn!=}5@*~UeXU(c'W@T'l%);QeƇW)&);џskρߖ׸7cu \*A=9 9QϮwc2ʔDSp);~+?jwc!6X 7<;CeQ^jd}{KR@")wPF;򧺥k)}Wz@e5 ã )4׃_ZM?Di~y_tM 7U^j-"`Ox>z@ZMy)soPQۦ_kG*?Aݗaѳ^_?GF"Z{T R_"l|/i\rWKAѢO4Oyd=k^`^|ds*&gk|dOy߳y]je(Sl!UCm)%W2aoe@i[1a]u+sJvgJ!_gS./$}5 fsLƖ .O}q7jٲ&]+6[~$2@SwXcoK>rgkY֘>ݨk!k>/}X2!~?b5=C+kDzJe,8|GM'[rUp6 [/GM'{2ɓp1sݨU?D2 [{FM'9g DTrSLNj}k|6oKdߞ*LkeL֝M*ŗabϖZ!z.@oߖ:Sx߃%Hl%Ts䃔qߕܧ&fw?D#zK 4zXo3%PHs2c'҈^'9{r?D+OL3 ʺT=qakT7tobeUnڙxL ~sPޠM6_*~V '1aդyR￵ "`ab~V[{ɑP q,ї''SwXɻSekKq9aѳ>ٴqW Km@]1e~u³_\g2ٷ0z&=F\'*s/[?%d'DSl!@^׸Z{bə_H DO7N$gs˓w9ze V71}XCkρwևxU?T妘`i$D29X^ѳ:(soPm&D_aǛ >ԓ=H1mɁ:7v=_{AuD?D? :7tneƮtb(}[zJ¶pCe ȟm) 妘_ٞyN2냟^qK/~T3 ч$l 7^@-zZM>{ ۷ookTR￵ʸ갵؉#l-o~4T{ן?D z Vޠ*7)ݨsNr6_^=U{@*ߍ!^X}XG>|OP-Qޠ_妘 @^2J~Ci64{GM'y7j\_c(c}񞫎p58'OEyՇ8> jɻ2מ=(c^SwXc ~Gz@aWԡ2jVn=Orv>0F?>WDqߕܧ&p#^c=>e<'xC)/2XM 1TFzV!m[q{k|Np#&I^ ԩLL۷;l%۷;liKm  7۷T M۷[eOr?>}RԸ{Eaѳs'< ==K[S7trߪ2(cߖMY(c'W@ToKwئ,ȫ* )ѿ ԯ1!Iyl>z@qo罕 W}#*?ֻ9sʇC@$gW~gS1aUnT{NgJ9{|SEϖysYwYL!#VYy;Z$Sc9W=N!@Oi8}5*so!Wjq2K!%[nr@")wPF;&o~_\4)PF)*ַW_k0s-Ab+9k-ع\Uqi17S͵=TF\V.*Ws@^ٔq=D?AݯrSLȇ\CٴW|SAwئ,mMH$(c'W@TT`)ͧ(6,!Un xkh-kedevPx\ yrUn SwX/r+o}֪2݇kqNr/Z˧:TFeK[ $Be+  7OPw*6,$Sd*7{|IS^Nep uX@-Ab+9Oya(}[n)t*}[n)tܞivlTF!WL֧&yaŃ~+s2jȫ>$SxD2z߃߇WL/v2}>'/[lS^1Y @gyo_|gZ珫,ڿԱ+&kg_Dϓ=Hߕܧ&>ə2{V kcuX y=X>'޳BRtw~'ol [)U e\γOyd W|ؕNLƞѷo-SwXc*2m[_7O}2m[_7O}|AѢ(Sj=Orv78ai[ڞ1Dχo*nvӶ=}5*pVRPai[ڞ_{Ń$S@O~痳U?AU?]_ﰵ8Ӈ;z|Oyde Ӈ5~~l;zw5D}\ѯk׊XPk \ߍ!X|ay*+ڙqY! ~:&OPsdtEb~quƻQkek!ay7u27*>ʯ<.;2 ~續ލ!ay7YUkg92":}(TqF}OfoE>Gc'?Qu/CC w~9[}[SdYc䃟Lfl;bh9rJkx]0;5R M~lݢW_ysΏ5pz}:ǡ2(cߖ^Զi2vrOuM0ay&9yQۦS-m6kQ$ P{|ws1Ȼ1CQu3,:ҮGW$ט0PeoKd*\Sݾ-}g+s=S2v)&CJD=j?u?&'ߙPe)7K=uǡsY>w419,r2EmNт{ē+*~p('#V+:7(Pe6\-^edc&Ο~}+&/`U_Ne 4z__@1Op_9?GF_̽AnFz5*xC]X}X2aœC=KgV&&<0b>kE^\.:.2%|69 s}N7ػZx7{|/^2H -= . U}[tr*cec[r#(Ws9x_G>[c-ŭ2Qپ^/Äg}2P-Ab+9Q`e M:gky͙/l7(YzyӖF'Q{Fkg,L_XOyaմkI*so[l8.䟠'ߵ3̑%k^T3*;t2]΢g*̽ 7+읣Ce) &x7j|>|m4z<}R䥌Շ5 @k :q/ ɺk:'P^1YW{1WwĞzyv1cN+&k5>n!z~cKJNLA<;G+CeQƾ-lm)nQƶ~G '֧˺^qNnߖNZ+U^ {G92*_Tޠ:TFMbOi/Zp@gĮמ=_q\st*L[V|cKJN_X?U@̽AnrJqa hMq26S>N ZCz2K-oo/lb@")wPFqXi!Y!߹?'1aդ/jVFlirJܳ%.нoS?y\w\'k|Eq7(A{ê~V[[K![S ~HTן#o7St~kyw>j+so}D2JCe7XIT)^a1d }s6T`HAk2\'9xx~#+|E*so0\w\v0|kpR} eqN@Orȃ|tֲ}KHqKplmf?X@g\{[3/ rSLCWzצ\{)7gQ?fW@SwX݀~_9*8ӣ2Li6?fW@SwX݀1$kρ,?2Xe~{5zǩnQn'hx.Kus$g~Vq_3*~+*k {<$1a#pg< &';LVq?[nT=Oyg׊R)2\$l\sr*`.H.l8W(s?s=ɩ 4zDŽUw.ڔXg"ս"|~ z1==2 i@b_aLuxV枕Ϧ=ϻg z1=qupe8@ @g}LXuLj/|mkLux|-V6IఇEݩ̽p?zwZRI>Au2̿D(o*,mI&gD{ْ߿ ),Z@! (y΢̸OPw~753z|)\gܓBYQӇ5;P`rOqsEC<0Fz7j\?&!z|oxŖ(soKB!'{w_{aj=AkroT`%BY?B ѿCƖ R93}XIaW!@ k^ee\uZD)U-Ab+:BoU2(#D9y铜 C`=}5>uNמ=OyaNe܀9:TFeۭ2?ۭ×2;  ?'>|m4z<}RC2cSA? '<,]\~TqquqiDGT\Zd2\I{Q2=WY垧B{.=e~!}\$i^Tepo΢z2\ 7j{D+?G?CG8]]+:hI4plQ =Sl!@^׸:}@*!B ^=*b'j/m%Nol [}*2st1oߖ?\ ;};l>7w\=*Loa97* <~>&_XKZ1u*}[m)%~V{[UƖ Ruw;}k5 >?.e4Sy1\5Za>֚C`=}5y=^ӭLJ¶pLC 2(cߖ^JLi/$UF;}[z)Œ3Ϳ@EQ`iOxYY?p%Hl%Ty Tq˫za)SHp,ߖ>32Џ;.QJ8D q19+_Hp,ߖ)Z\K)^ Y-Ab+9ep$ڙPeBJַT-I2?7g97?AUn(&.?DM1r ?DM1T(c{t&-[K)}֧&YYn??D+soP{ %ѯ]+)Z{w'L#sc6q9]+s2)*!JA @矰ϑO| 07Hs3}X#ǟeRJw0dߖ$ggѿ}[m)%@'Iewwqh(}[dw*\Sݾ-V;S D_/(ZTerSLȻEy[L &u_4=aϦ\^HX^<{* d:agS./$VV? &qxe$ϟO\'<뮝9p$?By۪3>hne !yʻS=[H!!Bmc6qDŽU_ Y<SwXcZu?&|YY^Jt7gz⸛q}PQbə_H z/(Z9c'$g_%n);>*Lm%!.䟠 UW̟ 4z?}u>et'Z='8k:s8bKn+ٝ)mCRfcKJNQ^aO;/ RqٵWٺvGNebb.#ﰵ {C7*~l>屟PeZ.Ya[濽@")wPF;ö{k@^k@^EeJmQaPCNq}cKJN'0Fטie`ѯg9W=>,2I 2\TNƧ2zS{a\`~\T/He)5SSAʝy+ryS ^w^Ƚz|QԝTk':,`)ҦmCahU{׈| R-|K"ե}u0#2\T=x[4hOEvâ"m*H?HVW\8SkwYw2\T^N M)T^j:sg'WespZΏ #ao>x- zs sP=w kE'(sDŽUzY2|tmH9yaQ$_?!Un/O=fOrv7gz~ǥ ϱ_{?p$d~>x];sNerd+Yw~*S1γ˩@/> 0=z~oK)7g*3b,z|2yu$Sc'>}[-$qPے2; . C01ɺ_N*W_X;\?lR*LIW|~?r6!@4w Sy~lcƇ˓φZ{(cBm;wcغ_JLi/$}Ud~t9 D{yJT4{rz2\T^rSўxK6 aQJ[_a0O{4#zzkՙx+ryS ^Jz^[4SўxK6 aQJ[_a0O{E.uSI͵Ǘ& 47qYe74aU~2My{= _*<-2AD'1aդgMC@#/iwCP̽A!5K籇(;ӵ"Q^i(sb̉_C Nol [=+<RTFo1REMZv ,|tmHFPF{D:dz+(7zNVDy7zN"Վ'92"F)U\ٴqyj7zNVT{߼aoeGDJ\0'f2(;ӵ"Q^i(;SHCceBv ,|tmk|@NwM߾-tXےMCe\MWRؿ%Hl{UJeu }q%ERF,Ϛꞕ{)*ҷGY9yXL* V9rRcNR[xy=ZIgE^Y+ѩ?'4z<$!1aդ2a=]]ُ &=g5n̽A='z=}υ)qxN qEs Ve * 텖 z>q6 Pe)7K=ugo/cec[Un x\5ٴW(so}[)7K=u?}5W)&=m57(A1gR=Lh\x*so6fHCIW;Q{i+qJcKJPZ2lb rO䥌2;}<=>#ΦqX,xD=| Z+C<]΢};Q{i+qy~)4׏a`+ܤL Q-Ab+ݍ!)-[KCA'!w2{B k\=l28'$~L~WF￀RAL?DϾ~_yWvV)Y{.rRz?d~;Q;D$ݨɻOxœDDH$*F[꧰\f5S;G9;V&&hz>DWLW;.п{V6Yɴ2=w oc}V{<9;}=zKoXqQu*C[SwXc}2y>;ko1F/t*VnO} z>q6 1읣-be oK6fnOx7˳cYk.^*,m*7{|?hM1A ~N7(GFW$V ?D>tc'>ϻVUN^JR$ҽ#V]+2HxcrWI>&w^їaba2WY Ϗ3qՀE(sm*H۔&H/O=f|Vq1TFA+s]AF^ڦ!U=gA6ʓ*.VOy%8(s|˺q(s0<ֻW^*K5TXc;2/8ڝR$zVy>|[2c8DyOydq=w\֯w;o1~ CN9ypOya=zSf19! <Ǟ~V=w of ;~ԩL Ox>D?z@?~V{8hgҮuVevD5z =F[X/gq\LA籟#U\eeB7/ZNyaCeds M;GqК)D?7~(soP}u0uzc=v\=ލ!7?#|mT*_\uƯ'[{(&w~qx785z1kmrp( 7He\@:jo◁uXy6?G̽A{׀]N!ٜ{s=@߇B||T|\#R5gƁ7+ҟ] =zW}}+yTRũDtWFϓr--VW{<߄_d.WenMRź2|oʼ+HyyG/bBy>_*k0s}kԯ X+ǥ̽A!`X2طvt@^ÿ$}k|M;h^}7j} Yme,[KkE^5=[V?Tq=D4W#Φ*S_sOPwaO5uo})|3[Jxl=R_o}<كOyq S{@z>D_ꇀ9!ml۟}_妘`}k%я;.LYnTҮs'ӮuVe 7YH!h~!s߳L@׎?5Or6/O]}˦8TFeKַl*oo)H QNnT`~Yeh*7{ԝ}k / 텖?)7K=u֨LqA5˸CeQ˺2X?Og7*={||V&={j\=QFB'RF'5qau vg7*>kρO&u[J-CʷoK%"q~#+Zl!z<0FSٵ"/qD+soJ;,(9K!C-[Kx~eg6zNREo-%e7+=sp*k)T+2-zK%RC 5\?=Qv7߯I7פ8\Re :S؝5HƖ Nyau2[_lSf2x2yF[j)J7tϷ#VFe[֖%el!.N?D?=?U%Hlz%}k5;l-N2׀rJkρy_tWW!YQ=k5?ѿ*>𷭇;|IPCTqn~q&}GKƇkVfvt?CT臀x~V{ºn?PfcKJ}Gˡuq2/,_CgE[Udk=-c6!PgצlTqP; "u~ eg-bv>k@de1я &=(աV y)Ɩ R\:Lʺ/) RůMOPwRJ -&.!5`0;l-kLeYK D%K -vaH6LZW ꮯ3=>u;Q{;ۉJb'*?akRc}V{|,sp:9;̽܀WYj1aU??0?(so0spgu'9=woKX{%Un Ru/@7zNR݀'<ԭ̽bªI@H,eh??DCFccU`;IL}=w5eqkρ{o1ZMCceNzʼThwJcKJYmէ2|*.R9SW;Q{i+qJcKJP[FeQcsgyakqJ_pj?HOr6ߕz~gG6׃Or6ToY|dz~99R?HW!=w$=}5I5S߁ \=T橽espZraeGDIcªIuPnbB aiHnJ+c8 7O1o8 M×D_\ x7O:hR)UJ2#֘ˢsY|Ef5xGbA z}kŜ_aAw qc>Y d:.Äg=+F;8sPn!~R\կ˚|<ʸ;9ygc]S|5E;t y|?j=q(Sk|q@N+Fl؋\  uUn R8+̽6zNRsl-\)o1=<ܾ-}̽(;{VW=w oQ&.V`sǸ@*g5l-\z9; &=7X~b=>AI`=BV!crWRne ,~7gzqEϤgn u?&<&Ǹg+soP~>U~q;G籇2+r=w o"ٷ;lSnz6_Q iD~ >7yi =K[PCeqn*$zJTH2L;zCWzצv*soP9C|}h}Db{xz52yuw~PemvI`=}5ލZBV=w op^uw³_{!D[SwX㱾Ve gǻEo13[ W>{<ک̽Ajw s@}=w7}8akRܞ2+r=w o"ٷ;l7\O''ڔXQ iD\sצcCcl;h\ϟe Myws^#G*j-Ab+徯ҕQFR踽g%[0탔~My(so4g?H!zmBsn ŗaba eW6zNREoKw,$JDפ稌2EϾ_n޿{c'𙾤ݱвMGk̽B!z=wp Up^{c|;?Ɠɻ2c $z~6mU~>Pnc^X\*+soWspJOyaw֯JASh|!2o-˓i׊D+OLsVe }*`w g?וP?X{6zNR?$YU~k)->v̽A)8g5qlx_;7(֟ @W;Hű~q<=C(son韧288 Y%?,ab?oUn V !9 <;wgu|LXuZω2p$:TF¶D zJOya!;=ۿ=?̽6z{VJo;FZ x sl%oKsp:l-\읣he QWC)5 5>$nUV`!+s=kS^c JU@*7h-uo-%\ᯌ2F[Hm[q{IL9:ke7-z4@; 4z:@gcC >'DLjCRT=יhCe)j۴%Q=) ƻQ׎?D o1~46*Y))_hl3=>jVޠٴq?Z6Hx>y_GV XWzCǦ\s11TFֲGL[esY P+Sn ̽A!i9yO&џs7z{Vے2-F^C`"gi@+so u)J7tϷ#2Xhؖa?{.%n!i@_qݫ"̽:}b=>G>D߾-a);qxϥ$*so2t}~V{>p+scx5ke l8?}5[;ӷԱ~fk*5SyC2KPݨs+#B&!sWM1̽B7_}k|s8T23=w o"ٷOPM1A q5B_\IQbƖ vrQF{I#z%Y妘 @z@*\?=]K{BS_'A6BWg'<7( &ukFšCK R=>ϵ2?8hu?Q{8,T*w(sm1dߖ^ԶiK %)2=A}$2Thl(~rnَ G'Qޠ6B{(~r?Ϳ@XyŇ5ÿ$c'謏U{w]Dl;l<'aqw*`jQ BB=b_ {Gc} ㈫|*`^/;X+)JOPT`(cRSwXF Y-=z~籇I2=s8fs);>xX?62KPw *o~?akRX̽6zNR-r|Ǿ[fk*+so0c?w7zV1WӇ֗} kq(s~LXuLjF[jxϊ̽˓s +$l2>г"s;ϡ2RJARఽ7XQB |7-;J&]7Q/{c}~읣ss)VewxLWzC2>a/߾<端ÿPsaQ.% d:Y+sX_|^hllᯌ2m1dߖNZw,tX/$|y.(snѳX-6?:s̽Sh|sx0T=w4@*̽AR!D Eв-$Qv!k\3}zf =w |=lrSL?Gnߖ=}5uc+so0s6 M~6mp$q-!-y}[R`Em%?Ϳ@߳?'8k x!z~2s7zNRsw󰎋u M{|LrD?CSwX㱦Qc8}Kɾ%%(T /)$l7H/~S|KR(sm1dߖnK)!I~My(so[59C|yhѡ2-MҖ6mfw,Je *}[R qܴ-mmӖlvd+?hg̽AcGWncG^1OPC@)Ne uGki@_e;ӷTmmiK Em3~Nw_ǩ 4z>;/k e@:NL{V>OXV9yK?vX̽([l^`=}KYsUpGe&S19*,Z_MVP{s {s=w:TޕQ^;ӷT [BB ce㾯2lmf{, w֯_ٞyN^k2o1XDfs׀9F[nG=+%T`Tgcׇl<'&Y+kl8У2K&џs7zÿPW>.c=w !hne "9'ӮJcȫ#_;,(9T F9CDr(sl8Ї]+{}X XDŽUwyYH25y͵޵BDc'P@g}ϓڔX2˷sp*}[:akRܾdl 6+})̽E:ևl<'Myw2<|ZcSA*̽A[b((J l{DߍZvD?z@_WY{c!2L Aʝ~*6fnODv۔?SwXݨ+_C2e\'Ceqn*$zJݨG!+s=kS^cȇ7z:7hݨs"zW~5gƁ>(soP([ LI`U@>Dfsw  @^?/e#LyWFQEK/*3=>&!/*IUXsLQۦd{X6mKDه5&Y\UHFe6m%߹/5gE/j۴8lcDO&'Md^C𞕍;"X^6m %֨LQۦm6kg?D@/\?a?\<>yʻSs1Ȼ1wg;/ }*`u*snTs_1g$Z{;L?:c}([l[[JMNϡ2X+)J$=ߎPZeweo-U$t1%M6碌2=_ˏb>';0F?^ɯq2NL>pi9TF{Rf=k+ w֯'.U>0FχP7zNR 4z ?D+sok)]LV\2mc!P-m ߍZ*k /Ägl ミ\*+soPV{%ƮOP5!EyuG+soP?bb 2mCߍZ*k O9{ ~c}V{<.e F\'ٴqW!!;ɧ;7H΢PelmiK Em`;m%[2ߍZ#q,U~%k^Fio}5T(c;ԇQx*`u*soYcFCPqXWzShw ";]KW=w Eb?Ԛ]cf y=D#Vavԇ'{¼oK'XBx^?(sogG~'{籿g5S臀8&;4(߻: ÿ$COLj2N\?OLѳ菝@C{~pQhlWd(s/F[Hm鄭ekKqYAi(̽E\b9C2N\Ɓ|*`Lϡ2ط\ű^Z10aY2EٴqW!#X@:{CsV9y}}ԺˠI?ve}tzCe7ȱ=bSwXݨkCWz0:WT=C@܍Z?ׯ;;/ d:>:c}Pe r,tX/$#fI`ew<և0ʧ&̽8^9=w8гbʤس"TxVzx8@t{Ss3I>׾QF~\-k5r~gSb붔ةL]d>d]kq}Opu􇞋_]ٿ(3f%k^7g )5x:L֘Nxaʌp ~>/~4p_?6'weBoK)+Yc3! >.2B1Iz'{yCz~G~K{z OP}XAWsL5T`?_Tr ~V{auT(si@ Vq'{>Ͽȇhe#~V;OZÿį0Ї'{gP枫 NUn akRܾ0E %B/+ Cԭ=W5|~`8/*7ń=he] {GY4@e{q=D+sVN?y: >̽κf2_@2vv6*̽AR!D Eв-$Qv!3~Nw_ǩ 4z>;/k e@:NL{V>OXV9yK?vX̽([l^`=}KYsUpGeq #eMal1pX_j Ox>D_G6LSSy|_?NLs25z{C4G8g )O&xQXz}@R߷U_>It'WXr5XC^Vq:s T @abÿ$~oX! C2 &uGOyU9D?L-ŭ2\-LiyBPD69>C<~V{[l\?D+soP,M DUٔXک̽A==0r d:ֈ̽AcW=)OxCa}$Gy&S19*,Z_MVP{ſg5\FC:TF{J6ɶ`=bߍZvgqj5Vcª;֊sw Z\̽]+{xJI?vt?{.yҕ &YeVF y s"#_ >Oa}q<קCm)%Y9FxޜP@>,"qO&=_q;RUA s"\~txc&BNϡ2lak)+s=7ȶF]gSur_t]7^Jա2,oVP~l;h\Oe *~b}t!WL֗g'T=Orv7V̽Aje C?vG9gs2U\e_r*`2y?OXkv*R ߾Vҷj<'ۙ'e>Ʀ9TFڔX(so߁ &%w֯5k\}*`{F[n!s2s޳RX>0FϻR̽GDe~ÿ$c'@g̽c}([l[[JMNϡ27+(mY[I`~x>q 4z>2spݨq^EyUթ̽W(w%X*`V{w2)*`u=wS*11aj(#Ha,{sspJY)UPyo1~7`?z65:ٯF\c'8k\ס[z5*?A)J\Hÿ$]՞Y ^`efG6}7z5k!}k!zv<90j~wsڟM\W; qEρ^#՞Ce)ԕOQEb {m>6se{2ֈC >'ɉS @2T0k޳R@[Qhl̽AcSAL?)E>_ٞ\{)soPqawcSA*̽ -ڹ=S{ fw}~V{>Un @:?D;Tgzڿ[kWFi؇I'r2IYuZ3xnѳoD2謏Bf{"Pe)z4Q$vҜFZ$g~~L^ {G?Vv܍!oߖNyaCe)ܴ*z4/ܴx7j} Y!2L;z+soPFCeIA [1:n7$Q)9ă<~Ǫ̽AUlⲮPe,f6KaVoK);nA]zMyB|~ٰ២;29C8{N*W#2P gScaԘ(˸ʿh}2y?.;5A{ʷ6yX25&2cj\4,d~Eq?PeJuM1A ܯ2QۦdMQ6m%[eE_ÿXe8W<_妘 t Qn@0a̽}+>:srX`"t?)??=*-)J\H$ҽbG(]VFe 6}tk*TX:Y9C/@;,9Fi؇$zv³ӷ KFG!{ m1~ʻS{ɺǿfvI5/C{NE9[ѳy>X{Ag*Q"#VkpǏC#:+bHr%ѯ} =~+^*,mf);w^FiّUX?b5!Z{Eȓw9-Fi9sM!퇝?'+bvLv=އTyFbA @:a~^+C>9y~Zwȇ\ixS{Ea 7spZ$lE}Y%h߇#h~NRS{VZٞ٣Oe :=)ϳƵoe)+釫|e{@^!=wZ#z2!kX ʝ>n[\=Cs'SֿVzLI`zwC=5gkG/OӇ5~C\Tgc/=+z&@;_+}N䓆f__@Oej&<#}Ɖ8pOP0r{s5~k|2yCFi؇(cqW֬SwX7zN>TFkGe{ݢCDrv~6m$=SX@gzݵ>KY}Dž{! g6zNQ(m9|5rχukO?D:=+F he`{CWӮ& ˸1>г"sNev5|f6_rO\WFCe)_nkɳyry~\h '0o1C\+]A]OyaOXkvȟ垰ƚ UX/OHWL͗ u_|9S@^< 惿͗ggzNQvy?#VY̽"ɻ2EyW XӷoKֻQkh+"W}!m8TF{.RK#zi1C?! 1}X2My׼=C5lsUQ?l9Wqxϊ-yls|s8DN?D69^*P^s}Xz)VQF\'C~ܳ)Q{E^z)gP{w]Li67zN~_2LcYC~ܳUn 8T^Rkre{g>ezXC֚ݸ߻V(w}|\W(v=2F2P2gӺˠ/xrz >kU~9S{P{Elͦ\^HoΧ̽"ߋrgWD0"lϧ̽"T=O9[O{ȫ玡 g_3J$Ӛy=B_k3/|y%k^ӷܷNʻSsd{pAoVk|}3_tr%k^ŪbũLj5C_ U(͗'Ma9y~s2#qG @E +/ȧ̽"m@:)s|9c>eH'rZ;.VMzWD>]ugٴqWN'!;ie;"srӨ\0s=\{V;2 ^0AA-[u/;u)w 7|!u g u`^22!?A$kW q! ]{;\ѳC*M!YI{Vp ө̽"&{{o,P枡&YǸ~3[ǡ2RJ-Ab++vrߵteQ^lk4׳Χ=spZ$ߍZ?u;+Y<^NeيnaU~2y~qkqxϊ-g(&_{OPwC|&BNy>=^*lsTIx5=;KC\61w!uWe7j} Yzs̽"9a\)qu 9|(̽A~=wGԹ|5N7?٘e7ȯ:o) Su(n!K{Dl1.Ogk?ALX5y⎁̽A8#}-wT:mqU{r]ֽ;,#&I^qʻEϚ>.WY{vɴkYv?ך>I]VMzHe a0&LvWB?;@;"_@}!??'+BQZ9QI{N߻V(w=3}7j̽"ǏkD g )k,\Sj?DG:Y{E@g~.O! 5`/ƞ?0F U{E$q2\_p__X;"ߍZf^P{EcWӮ&08F\?D+su/zx32LI`+&_RC@)fw^3aU~2y?w~umY c=xF?NeGhMWD>~0:yi22LaDrN_;&v*f6_%Hl{Vw2(soPI_0qNh(X*̽Awz~\}bv@^\-ɏ˩̽ATgcY2PoK#+bt~ևu)o1n}!Z?x2pcz<_J_{N_+qՖR%X$ol [^#WFe:4u!i){B 'Wxy2Zy>&!*s(?0F'n]`WFi cs@nٔW*`>twY 2XdZS!tҳ?,9y0G\k1 W=óSڪ=S'U{V$\ךL! =36*#Vc}i~.k̽"m̽A'<DŽUÿ$wfM1#7(Y㉆rnT \_?UnٵW@NqvWʴ9q^rγOyU+brVCwX?ө̽"*?'Fcxϊ4Ce~0WהQINaR+=#>hW?&@| ?V枩y%ѳs<p*3Uo1nwcPew^OQEbFWʺG k$l{ X^QlT(s%oxƉ8p>hp$2Oyw*s=[H!ןL^*8gW!C<2abCe"5|a58К*so6?yw{V~b=QޠO4c\Vޯqx;@%Tsx>,/O\A*ߍ!!z*soPL]1Y kS^?F Yme cpr\sSܟ\N@ϫ7j̽"(d-Ab+9-?;&cڭq~Yd!l*z^,,ҷRcu\r̽A0ߡ9:mC`=׎YU>Ve yy}[>"èoϑ?Vޠ+i@ÿ$CN /f ߯S{v:TF{J'ʿ}Un v}~y~=w e 3=>Sl!1C9D@s) j=>9+r~=w'efM#0'O8Nyd>Zpla~8Oe9;Ƨ+cA~Tq2TDCVMzݳ?*8)47ʀ+}sg C[x1~X2 XgCe(St[XڌlSX? 4^c*&я ?N9mK{d40ӇGwcʙ|^PTs|epuJxZ5t?\du*g+Pf3|k=+PW%vC7#)2%ї''g'Dgky=owx@;P&.l@^1ȟ_jXG>D_?P|*`f2%?qYqxʦ.~zyyI/NwqqZ{򤊋A*sodߍZk|O \{ݯqkCe ݨAWU~&!{[sS{?u7xA)29_gF/)&7H*?Pe *Ɩ 89~V&/O\Bf;0FϚV KL,LBTtxϊ%v]DWL֧ke jϗj!=w˓)(;l%׸:7⺡\o %~V[y]\bw:ؿsZ|%k^OgE^*2yüK/; /o'k2%O"]C%vC ~%k~N^ 5~\ѳkƖ j?D?ṟ'Un RUӇ5>Dh کLNP`԰ a_unTf?lT&x!D*2yüaEQrSLB 2ӡӗ8]oX?г"st*soЎ2Ϩ,:o0+Yz^*̽A%+}5COpP *`!Sh|W r6qY/Ox^Ne ZMy=iDw 4z냔{L߯玡̽Anx'<: @[he Z?~*`zzsǸ>\!jTޠ@^wcqy=eOM~}Q ;.J¶p/ T=cZT{$l 7;G*p/X+YA{Rwgxoi2߯{sn3[-̟~ee ї'S}Sl!U7f{.21}Kڸ~ޜE9TF[abG8r=7$ z~a'Un RUCQwئhlSV%mj_(KD(=ѿ6Ee{W\eݧ&y{&>U T&D?YfY&?bKC5`?bKP(G~i>ӿcaɺdc3Uߧ&Yq`O}dZ*` T|l=>G~@گ蚾d{u{&(Sh_"9k [ڔSh*soP+C}~W r @g!])}*`Q['zjq.T=!z!`!nVޠ5Q\ZWWQ{ @g ?Dw޳R!z*soPr?0F_Z{CL=he ;LǻRT=ҦCe7$ >rz}^ްpL?p{~ՇY^/w~q0*soP{*_cȫQޠ׸U7$9,g{ˠ_q2Y8l~7};)gz8 OPs+̽ACe7hq\ZMTx 4sǸkWf9{PW%vC7#+2yKN72T8,VD,yX㋼N;ޫ=:yN @gq){C @ڇ5^ s}1_gU UC22Xw =W)&eq!p}+q6 z !`1||V=q6 d|VUF+>lW}B9~UC}B,PFe EyU>fwS}!ODC[2%{?^5Tq'CuÈ|f/!&gek̽AUCCeR(qoa9opg 7w+&22\ U#"!z֡2`3(w{.+'q /yBħ2LW@ Ts[fFoa9=+[ﹿ(V*z #x)sU{M?EXzKP{VUe :=)2M>׃+2=w ~ ȐC]_/|T(ob ,@^D*zyWvU/MX5Y?^j"U~b=>yP`0y*OyanTf%vCyj8ai$!Ăkw^?cc'xC|~V{J[O9{G~5*3l!4W|4x P_妘`??D+P` K^8yӝǖ{}+:xV&A_Af*=+҈^; +! OP6L*z|p!t*s!ܴG̢<X>Ԛp7[;P𗦕7f_sy?_0?仏}wWLx7x2Ql!1e G읣/}yϕ\ }*̽AݰVxe cªIKPw^?X{B@|*pPe ܩ~eWz:wWp%,e\]qX5q Q vW׀1!wTWVޠw)^C}9qw34{}zPi^ ge~{׊\UNu/%UDŽUwTRk_HP_{Lu/5'U=z_8=$[4WMu_8==zT USOPwXPWvUku"&Ɜo}5 ꮩ "UktrMu/5#Ue6zNX''qe{$j`ZCm)%wy+3YIuGieF,caѯrS}*`c*|GƞlH10_|(j4ΫKN/O]+Ϛa1heԽ`MOLѳ5{<~"L"[ԢEECy]=Z}ه_|s==<W2Ю{V BT @gw \qBRT=}=̽AC 4p}ޯ玑Om2s8YS(sm1R}JyPe ܩ~eWz:wWp%,<';O=AYUC_a_LV$&Ů]<Ůa?=!p_?5yC<؝E/ =>n8КӡzVUa^Zaq5Rük| I9Kk@^w҉~~\ ٫L[>8KNJs'IV&}NsHq7j+o1 P2k2Shu/ػY)l=֟?D VM1A ~qN'=#/gFkD ѣ2JN7topG(RFe =TFc}DG5K̟>:)-#kW 2Z- k<'OP}=<hhA0eX_9ω2ve cVu~eWF\';P_Զi2I#z!1akE^Vc~=wQ)ʸ͗ol [UG(][2k)|{Ou|-qK{BkFizNVMz[rwnXVu*soPu??[?s?߇f gw29ѵOya52+r~=wS+cA~Tq2R3eRY/srP`F3[9y%k^Eu6*?D+cK)RJ?Dߺ3Ozq![ +b"߇t(_jX,Fe 3}i`hI=XWiKNzV5SYqC= GL䬾=КW<3[u{*n\pQ\B= !\^+.N%X#K{.?EsQƇ'fՙ3}X  _`sтaA"߱,ٚ)tc'ϑ?]F-(,oE [_>wY@N21=>G^U~тaA"/}X+?blX?H~L⹃~͒w}i}yry^(SKNZ'g]\M1 VM1A #lU~~"s)1ߩ 4zm^}>k'0Fz֛;<AE"ʺOLs[هٯ;?Je,s) Anr6i?Aq=D4W(sό8Or2тs)99h wc/E (ݼݳR]\ 3/:2E՗n_γ_e]:TFd^Dž_fdr!i]); gkq!ZuƖ 6ۏ?!/ DžX 2WSwXw?v y){B OxγgEspJ?}5=+{WeHmOPw*ek0yvANԽ`S+: 0h7̿;t_yg{O&w(Tf5^@UT(ɯk|嵚2C`=kgS./ q0!k Y?D+#O.O7/i3g+PDϓ=H+p);Q}kF)ߍZcyʻ;p_妘`T𞕒 Nn5~=n SwXq=lz_w} q7xOy/8Ge+J?asՓ;>0F:TFZwBz_w=~<>0Fk^2Hz0/ujyʻEWF^qG n k5*cC75~Kj>3;ƃ_{eʓ3yZuXgfU{L@'We)g v\3l*$׎'+9IN2L <׎k+qky_;w@ߡ~kL___R*=Aw qy=Dm&DSwCeQ&%/{B T( =P`<k7|]}eWF)O)=+nk|99h)w݂k ghhܳBLWy2=w gg}y\qq>/t(|%k^LV#&I^q7OLѳ<,wZRj+S 9y>kwѯʺOLn#qUbw:ؿ%Hl{;Bo(?G! ~+w :{|<;;RּʔD_\z?u\=@֡2(c[h@@ R)L?;Sb? 4p5>?DO&CFet~|21=Nr}k^ˑ2=w ^$e!9w cg ѣ&@}φ|;?C2an2ܳ+C /߻V(w=8'>׸ʯBe;Sb/R9SF{Vp%}5L?T&HW{B?D @wٴWhA=GFZJ)'gm?|:_UP{b+=w >T#gsP{&m韽s]L_{*sַqc8%2T`)˳5SOPwXPWP{fSA읣=w\_V5Tl*H`?{מ=#fv%vCx#f V7zN]{E-ퟠ aS3}@*Ny%<44軁7zlyvU'c6qꎵ"=;.ڇ/^NP`l8J]"5p@^Pu?H'9w =V[W%vC7#VFe`"goKOEyz읣_?1!(Nepc='e40cr@烔;QqIY-ebª;F*?AwFBˆݱв=;l7L+sϦ R"lrJ3}8xas3߶~ʌ+}@>}Z|֚aM0}lO"]nM*RU7zN: O\5w~Rs"WxyѮ&v+(:'w c;4zy*#sC! ~qgCF)?]|V*vRhAd;G1Tg' 9  ʽSwXc*s6a]bw:/O.O؇#}'>wFc=o )n c9,@^CeDewCen@&rV/Äg*so0ce".IG''ӮW#}ckTfkq u>'~~uf+(#; -~}+z 2t˸d{?'7PFM"?Gޯ[U>OZ1[@A=% Rq?FZXF$gu+z!l=?Hg ~k}5@v $={&pw;?г":TFe򊇾y[xa E/MX5驌2%OPcªISwXc=̾}~R-PeBJַon)H QN~ rӼo~T*(S}x YzxS^+?}+S^yG Vƍ!i&>n^Y ѧd/^5`0-6]dF)E1=>G~ tOz4M߾-}cK4˓w9Hi*=w9F)kE=k*eSZ6쎅="ZwC 4z~M{&\A=*sol!z;s;?j+sovӶMYʂJ|^q ~yr&?~O&5SHN+Y?Dq^џs+Y_;GHer|\o @< 4p؛;ky '9S #y2:ᄭekKq{k<])=>'98Z(*7)\=?vF~T~X7&Y|5oDfs 7zN=}Vf_yix˺߁Tfu~Oy |kW //[l' X+R&G&Ԑ2''ux.φ8Ϗ$>hM~urSs W9/^NP`Wf6E{E},MzV1:ӡJލ!c8%vÿh6Cyv ꮧ!z|xy2Zy6*[䥙=&PW%vC7#HWFe~K)ͽZwsϦ<||y=D7H/~r-7D*o)6977C~~٧k\=TFR"lrZ fE[!ٜ }5s5s\\﹄he ʷspJEwy.Pe~kJ܇&vkrJ'p'9;~痛FVޠ >l^[Cev=k%/ }B,ػC[SwX*7)*-y4Wz7OLѳ>D!U]7jL+??D9|KNݜU!z?GM'ߖ2PgT'Ps@~_a:i$(S {*vRh<}5CM\۷QOm_~Bux읣sx _{ѧٜ NFe!Ou8>{ZC@Oy)soPCs;G5z*̦ 6+3% 6+8 D;S{hqQ!spJ'rZ !z*soPXC=qSXXaq*t(cKJ|;BW\2ʔDR￵n}5*̶4V: 4p=w\OyJj=>X}ol [P[2(*7s]U7x~w*`$z>AUnwX2z7x>9ّ͵1y+s_=ϟCT& @gC@|>dy"DCf;P&vTBY rSOミrScª;֊(cKOP),i>˽z| vKN?@ORy21]Fח5Eyњv\YZ{E$ >'c\LY?{o1cY/xT^!˺PeԶe]! ?{o1=w\^VMzn!*s??@^4D6! y߁x_3Y=>G*s;G1TF?-6}X-!C}&?l*߾w*-y>.;}!u! ~гa$Ώ5jZ+4ںix-ȫ^H~@"*2IL֝>fM*ŗabϖZ!z񸔑g goK?}5=+w9~7zN9AʸJAne 4z>asCuGew 4z-bv9Rt Q(g~}[n)tܞ\}IҳW+*`u*=?{5zlU~.N2?gH0*8/T/ LV^}\w\/>`T&ṟ{ʇ=!ѿ<2 s%oOX_Ph!< }7j\z'F19ə2A<㊞3!1aդg$gj=_8\$;}o]9}a_~C@|w5ʌ-q^}[mmi;mS[RySXoKOYÃVlaoKw, Ơw3PeJ=w\{!ױ~J'z㢼*?An58Ce@+maW ꖶ~޿0u³>ө*|X؝=`kFšM[ $y[ /̗yޑV~{i?!Dχßߍ!ʔc=G>DcHsU>kρߟ7z=zfd9Q7W]ƚa7z=z@>ׇ+#LxOEy'<H7zN#w8qSkt*SwXcu Ork<_{<8fc(F_{;|Zܯѧc}׃1bK 읣U&yk߁|_Ɓ^w }xVMz2.O.Ϯ52+&k/>o_{ѧٜ >e>?̽"xu9TF?˯F\ukKx5$!z>Au2j[~BG6;Sb?}5^@ɻ1gkU>,R{E&H!׃?{WFCeS{oB~j[ek{hgTeJtklⲮQs7s_{OPy>Aʔ'g_妘`ϑs3AUn:K);sx^[Rf/%Hlמ=!{!jkxϥ$*7Iξg5.`o)ZJ=>!+Y5=W3[ll [!zvXkC[B[);1}XR{|}<|jV&D)s)wYC);1}Q^CgLG}2$g5XH7zN;ZN2i#ΦL-V/ O?\;lO9{e~C;4zT^z2^1Y;}aiƇ˓垗'S߻V(w}CgFM\c!cW=DYiu@WeB?{z5  ˽ꃟ^1Y;Ϩ<9~c}e ؇-y읣s]8.`o )n ;auWվ}pX [֖P?vs=r$gwɻ=*S[ њ|!w~Ƈk*7M2F)ܡ=B};gT #(seSw ׋TOyF yiœVޠّ3sݨ!w9|k}~b=*soЈi$29[r/f7h4x? d:˸>l=<_]kiM~lP(̽RekKq{KDR2vrOuֲ'MS2%'l-[[SwX㣵c8%6m}OP˓3]}c8%WeM  χ'?̉?Ve(;/?jw^~>|s}d2! | xгa$/`f=n;;GSW%vC7#ָVFevߕPF[g?'0'tM&q7j\ǡ2ʔDOPwa1qs}2'Un RL!w~%kceh!zf Z{VlSXP^~聞w)HIelT@ OPw/읣_ߍZ_lBi6g28Oݨs}5z*&{Dѿw '٢cU 2t2X/֘kC);џs+Ywi);dթӡ-Ab+~^qs@;Sb}5U~>akRܞ(cKr /OPw8~ }\w\'{>2 ޳RuWw l@byALw OyUqN@byA%EyU~5xx^;Ly*S妘`{iq6 qݡ~aaѳ!>\lɿX{nb=/!(OPE2PcUm_e]! O9{qQqm{L?M\5 ^),Z>m9ϧ\?Ne5o1{.OH MǮtb'<OZPwXPe+J o}5'D^QC_妘`읣u<7(A_^CeQ^jd}MMH$(So*nt˳+s=);[׈&=n<}__w/; {;Sbݨ2c;?ZqOLѳ>#}XݨU]}*`Uy_(cKr /OPw {L?wΫu0'tM+g?Aݿs㟭2]ݨs<{|ƞ8{M1{iQƖqQq0'qf> R/جtʻSXZ$g~Y|d:|c9TFD4Oy߳Wn q읣%Hlמ=j?D+soPJSwX_Eٽ_{L_s,~[ k|x2yF)?2MOIt~QnUdQ?{=Dѯ=zie *j٭#w9מ= f_w;SbAUnz]_妘`OPy>Auxϥ~{`zN? ꮇ_Xyi!{W2U(/A>lc%G5KxL7eSwX;7ܼ|o1ݨɻoKFϦuj)w[GO2;.Nʧb~߃OyU}Y OIts2%,spJsw;gcY+oߖNyaUMS^ 2Hѷo )n ?ݩksc8%Q0Z?fUcf4W}2y~V{~S!zxNOyw ;эǟOy9YU_ K\{Ń});OxT**+3bCeQƾ-ak/ Ke+ ۷;l%aV2妘{i?y\w\'`o 6Җ0Ϳd+WƑ`/m w֧>.;]\̺Ǐ8&}y⊞CeJx?v \X`o QFs2vrOus(cKpI^֚/}~}PelT@ OPw߄5C]EbuMƟΆ@^D{]A_Ɓ^OPkے/VޠuW鱾ѧc}^;߼ QXh޳6Ǟ Ͻ>Dӡ[o87$[4ן#he XpoO&>!DDMLJa`X;|I-Fe+ ۷0au Qf[ry;L2L;z'<DŽU 嵚D9;;~Y׻1C9d޿z_G}s9= D(gG6WUn )?:럓?DcW=vͦ 0Fϡ2(cߖ-(2vrOumAѳKe,b~~!srXEyUVޠu-ݵgHX[xd=K\$; g=AM1xí/۟?H7(CdM1B<q̽A>'w,,YLcŗ!:{q)soP]{VJOyal2]P`԰<7H`Y*fv\zX؝SwXɴk3߿spJie j H$CK<=U'9~b=*soCR ;n-_$g 9}5YheB@!z_?|?}5n;J&Sl!@^0aY\n=ލ!@'G~5}﹔D k2ݸʷoKz}Ԑ}\c8%T(soP~ {B zg\W{TޠM~iDCDxNa㯽C{"OLѳ>aٍ|2XJMNk7N qQq44yǚ>ר̽A OPw}<(9*he 9TUP`Ɩ vr?X2(cߖ[ (c'W@ToK-ShTF\spJ쿏˩̽A5`N9RUC/; b+}Orv7j̽A =w ~'9$C~\z\4TXOyaɻyt(_jX|X=(S} /~&rVծsr@*~_3Yֽ eB4D6|؇QUk&\!zq Qy21'9rajrτ~^Ӟ>{WFwWԏU~VMz*so0m66 d:>b8q|2鰵l%[ d:>v \c '<uWes,(d@:=w\c8%_tXs?Sک "r__Sh<=^ca3=~AkR\ L_hlbU2(cߖ^tS4NKPIe ȟmE7Hr /eM1!dZdDb\#y!ٜBM_:Xٱ,⸨~pOya<!{W Oe2@i=Ayy.Grτ玫|2SwXk̖S|xm4z<ȲF ҇5>Dl-\o1k|'9w rǻ'F.O.O؏!wuװ(Cr6O#+Sm_{X|< 읣J_3=}D-,Yϳk!yA+7D~M~ . U|~M֘߁Ng6X 79]n y@*.Gq?fW̽XHh |X@(Mp-ȫ^KMcX~~;Sb/R˓w9{U~SekKqk{VJ+~yfKAѢ?/heA}Nhvnȫ?fW9ip*5>Aݏ &=-yx})wŗEӷ^`^=CC Iejǃ_PPeoK^`^UF;}[BY䥌2v)&aɺ_?\?yy=Dfs Mn=*#_}ynڔo*]?QΔrqspJ/nlOyaOP}ZgZW%vCb)eQz&=+Ϧ2%ѿ<'dR K%dK r]BN,l*?Aݏ &=)$SrSL v?֨ ^)kyUe)}[:}5և8̾4؝o1+hyޗ_W)&أ2X*ߍZ?yl*?Aݏ &=KߖzzX_; >,29DχumE7HHAk/(Zt2ط[Y2vrOut’'WN EA>LU>zCWpYs=TF{E8dW>.;>}5>A@Er*=Y k8TFeK[ $Be+  7OPw*6,=wSwXc}2y~b=>AR@a)e!~L28W)&c!>'w,,YLne>=nܱdt}+>b;q6  I); qQRXeqSX㸜P)φPs0Їz\χc;PeoKOY2?Sn (cC_ѧٜBF;.ЧB eK$9c'..N?O8rrO3=rg2Se݁ &=rO5TUP`Ɩ vr?xpeQƾ-arԕQNnߖMY/?-2p*k o1~_ylٽ>fW V`1aդ%;=a1DŽU?a54ןW<+N+so\kvQh{Dj㢼*T=F\Wѯtv|ie brVw([r k@'q?̽B->NfT =āw![{<;}cciK)y%k^/`q*so0vW:)Oy㊞\:+f7C==wZꃕMys);A]D9/j=-z[_l'we6zN<Nrv5z5R[6طơ2(W<=|۷[xa(spJz 2t \C=|sgqDŽU$=|V{Sq!&geq^}N-yF޳R @ϊ~NspJ짰^{OPw0Fz\d_k2E#Xe ?v.+q+C X?vߖ(sosY|7z'IH?qN2(cߖ-Z٦fPF;}[öhfJN}S)]n t|q@?Y'<DŽU8Ok8 \3lj=(c~my!Y!z<0Fט+ItV)&Xϫ!~MyE/*sIB'5{|bT&+\TL^rL:γ{VsVs_VUس\m^۷?ef;l%[/w[/ئ_tS4T`)ZݨA5zg&}[ ?ﯭFUR K߾-ݱPkQo)H QFtVRP*\]H1ߩbT==!W=Kmy=w ~k|kZXl*@g|:c'0WaOp9yR:TFeK6ɖ2vrOuM%<_P2ltGC@l*?Aݏ &=?7 0j~)f[:w~ix_Gqz$;LG!{c}AѢBVF)v[?}5YoKƖ2]~j5~!c'0kL\oTT&z5va߁x+zx&+!5&r,Sݾ-/?-2'9Xo1qEOɇCs@.!g' y-[ $y铜}jTf5޾-/C`}dyv]DŽUW:W q\3wc'1aդ1jd2ط-ŭ2? [֖2L;z~t(Ss]Ƶp`,=w ~jZjuZECdqW^ܛ{VßnebªIck$HW W!;9W2ac}V3К|#zP{|a,~\stsP{T_aׯ/?&'9Sfg )J! Na-Y_3*~-D%X$o1(}[4:{|<3pߕܧ=w >Kx:7h}lyݫXo{.C`);Vޠ*xF@:1y>}Ru{Fl(c'W@ToKoO,RFw E:.;}!S\'?v8Oz$;}X! !g/!(OP}@qH!zq!Z7̅]++ǃ?v}@Ohїg;;?U>*cK^Ph!lgz2?7X 79g92妘>0Fz{M\Giu^?ͦS+4M2@iu(so~OyLӇ5ލZnj1akE^=EEgJYeqQ㢳2˓)@O0QƱbp!wFj?DNL r*soPu\qU=w *8Wgӡ-Ab+~^keQ Wy26=DcG>D^*,mf?}5ۭHsk09,PК|/k|i3YwT R_"l:CC G6W?'PiDݾ-}Spsk^Eӷ^`^=փ+tO9{2;sT R_"l}`"}X^=[XkX-2cW=Or@ωc9AʸF۷zzx~z}e{9 S{F\ @gs쿁_cXI`Uޠ*8W|v0ɡ2Kӱв-$wFnW!.Z2P?2uԻ1+WCWL_X7jZ{VӮ&Cרy-M\+7Oa-P^1Y; brV(SI=Dc<{'ztr*LI Ɩ);5I玫_)S'ϑȳkU/@߯_! Nrv W8ܾ-}cK`ef59mC<0P=v y;IF! Q#VY𷭇;}rʱjL+S χ }&Ӈ5>D;! 䃕oTʸ*; $=ߎP۷%en*XI|艫}MMέz);q2ط;l%(c'W@ToKw,$JDפ稌2v)&OL2L y=Dfs Mn=^CeJO# o#D2>/ppH?}I!a#;Z߿a/ \+4yce{ }R\1ᕬ{<=_n~|YY|)/2WL5=Ӂ=kEu6I/ol [ih N+S*خ)&LrSL';}R'd@*`w(8}5QF{Em[ $Bec8%SwXwa)3!ۢ6);qxJI2\(;l߁Nv.|kOyaK <e)\7zNX\2t*#ⳉpv=F!;C@ y!`2R!,(t,llK{~˸99gluԻ1+}+&ke &s^1Y; I`~v0Ie c;G_p|>}Ru*`Tޠ=ZJ[-bvG޳R9Z{ se}svyʷoK'l]֝Je\hݫ2L ;Lksϓ*.NZMCeG(YޡAe ;Sb);߁NدgW!_q9v=w ~{׻1g߁NК?5 {2#-=[H!W܃k铜͙WFcnWFߖRc dw~ Xc+}J+<|ß 0~^I>As=fvI59m ǪLb=!9 <;w_gu?G?CcUfaP?ʗab;yiU~u1aդ?{ )XHc8x^|AkvrlY\9qU_VƇS\2}~JfTQ;~&蕾5V~}:LA; >祌2<2 >ve\؝ol [oG(<eQ&x8;.@^(#ucY?DR￵Nya铜;Z4=w\Oyѣ2?w>]΢CL!4Whu2%ѧ&P2ѳA}+Y<j2z>D uNspJ_K)CRT=c8%>y?a}12T=Oyaÿ(v!ʺT=֨L>k˓njvX@ 9ݯʺOLXӯLQ{.[w:/O\Qr_qu; 4zPrŢC)4a\F)_q{.v׀5h=#WK16Or9kC%Rᛸ @+7x{`}R+߃;3 зoK@^Qc8%"UkRqv5ꅛJNP;u RžVNpa T=w ^q&_)KZߡ\ʩZaN<$g5mI.`8.@Ϊ&f=oKw, Nya[ $y8mI.`oߖRɹX/xC2uyF=w ~7j<0Fz^ѯtvCUA[MMέzhC/RPS^1YߍZ?ʌ]I.`oߖ^tS4NKPE[r 9y>嵚*b5-xx- zI.`_;ߕܧ&ڧ2(2CRT=nkէ,~>TCzyCe\؝ol [oG(WFe҇5:'c8%veWȧDoWoa9opg QƖgH^@q^'9wOrv Yc< t*SW9F)-z=DYn}+&WF8|2$g=w<,gk'f?5&ʇE^A>WiVR￵zLAW>}RC! t|Ì|WL){B zx&k|FT,)*Ȟ˃dWFcw} k?29#U> XL>}5֡2ؒ^ix5(S"e\"!z @}t~r0FSXUw\sʄu ,M~ϑ*CҷvK8TF;Sb?.k}`4D6 ?U 2gy\Tg#_^tW<P玑CI*8gf7q՘ U<.2ZϗcdW97zNp%[٣2Or6#Ly9TF?!~P1w99. ɗ;W=w ~^ʐ;ZR)=K<׃,_GPeH Y=S#(j /wc2\|_">?ux9jLe\˓2(W<>zCg5@^??׸ȫ?.;OLѳnVf'ilq)SyﻁL?y\5`~[0kFš>DߖRrGaF)+s Pڵv}~{}'wGMC/Lx?K{VYi'٢_3*~?0F=ÕuG֨=+J'k=GMwҮ5]IS{Vyջ9s}p%fB7zNP\R枕=5kM2ɟ0<'y1>5S{Vg=;/ 5=;ӿu.0 WV/|N.'yx)9srI<{VkTFzyv⻁|V,OEyC_uӡ-Ab+~^oeQq⊞Ze &*z+z~>xZ=5^U|WNgw& LzJTƍZѧٜWzN_^~/O\y̺8BNa'  SޝB qlKJ ̇7T5>5UVfqO&'eog`a! kn\eeɴlv=Ʊ^fcÃOES}('<uD?e2L:1NyઇuzVso1D{$g{ԆIך|sudf5&Cz~'9{{$qsԘ {w U{VO9O!|yrN^ӯ=3=>VeYaJ>)=}yrNʿmaz52 ޳b[B/=?g<_ɇheY't5\]!cW!=kxJ,ger'9z珞 )ʺ?V枕q@kFšޖR"m}6|y)#Xٽn)6-Pǖg׊|lj+n{ݍZ8ϿVWEyU 4z?D_Om|jf+/l*?z@LC aW*Ѥ2#-zL~q6 M>2XJMNlj+v:Oa=ׯgǻ1C7zN R#[6طPwXc*2Mc'0WUF&?{j'~c'pCX?vs=>ךCeQ&x(}(5|J1Aq_t} {B o(cKNrv Kxk<|}7F~g072{0!Ox91AqP`F㼂Or6h%$8k|<냟>}7]qf7Oߍ!;.k<{WM\֋v}2y$[4ÿ(OepՀE;}ѳ5c'0aNXe\ak +ne1x_hlk20k 9T(oWI8);םau?7uSA+#rf5tצ&.$g~rIΦ2^ٽ4È|yry>TFzcP;}YDŽUw'O&+Y-zcןzNy߳y]+$goE=+9QFbw:ؿs80=yy㧼w[sԘ ˸ʿ<>R4 <zN֡^c=WF({2Pc` Vds@җ|oX;}wް+z*Cyd>V_=v y QƖRrG+s8+tzCg5=g?z.ЧTlj=ѯ_o DUa*4IΞq5[ );1}޵B+J车KW%vC<)eQ@Ǿ|ލZ(׎5Ja]tī̿&{"zIJ*~nPkºt鮕̿R+^0z-2\+׎5JaocJ{[d_~M>SO-*LIoߖ-?sxy}G|{_Ox*վCG [I~/uֳϷw 4z|?Te(;~~̟ ÿ$EyUe~Un}>Aϑ?+ T=q=D_b S{iW2JN7tϷ#yyҕQFgak='abyrLD.w 2T=ӿ3=3d'D/ o*8}XL㢵~jJeDVJ-fNAڑgKlLe#L 2?NoT9:]"~jZ2!YeJߕܧ&y5yWIܯɻ~'I8?!C(CA|ߖR;ZW Kc_|RG)~o*в2/qYR/O\D"r#rI$˧2\H>OEz^/Pp^'9wH[?bK?5_f_@8+ e&'<=+c=͏X'9CSme %vGKP?LYhǦz@_,x@ Z!=ks𥊋!7*] 71TƷ'҉|)L{^/s]_oxNnkUƷ?IK!qB5&2v]9ҋQf_HI"m1*'x>g!gWyyﻸ^jYڧ/wy(#亗Dye\n q\r1qUy?OVF,}'OeKNCzkq=%3e ll [iecUr]oWh?y:<ߺ2$g 0!&!! >ݨ208~fk*;~XE{2R×Ho['|{=%sԘ +-I~ K\_y<>K3,(xk|V&ef<ݜXkѧ?_q2dgmF''Nʝo2n=SXrwPd~冉=k8|q[ڗ''03[ WyVeY3=߻V(w}2y?_ 2-W s?σ5J{ _ CeY={ w=1?[nShVe.#w#?Ri>f>83Yw#RZʧ2ҭ)ʨESe$ND:O$y|Vϳa.祽CS!e0WD:OD>H><7yV}5 9y9jLe\c''hIYPP,s5{ʂҰhGv/0?-Veɋzg?Ch޳bKNrv\zVq;.ieQTkt>*UD:OD>H><ͻ}}x)}*cw_K/.Zwy2(kqH'w#?R>f~_5~eZס22*f#?|Kͤ}_ٞyN2P__iS_D:H$򩌯$<{Ԛ,㈫i]Wys!t$҉E$e|^|euPWcPf9sy$gٜ#Φ
    ɴv\}Z{~!^L{f}j!V^??!k5z?|V@^ߖlѢ̽"@φzxq~@^O j?%_ieAr"_$g󎖯>|6GV^! rWՍAC)4x>!w+"DtfA;bےf?ʇGwl2я;.Ї5r=[H!eL?fW!#fq/O=f\{ ߋ 9?展5?&ľ%Hl֗C# ݨ ?[n^aU<*L} o1yl~>٫L?b; jV&ڳ>y2~净x&Oa=a?zl9Q&瘣dc6{2{_c \埓K쎖aB/~>;2yyt-ҩDχ2?s"71Ox\O̡2yRş\(cgFe\؝ol [oG(QFek*K) JâqB퓜’6q^'9\CJ=2XQX_gLX''쯂3=>ן:+ql@^X>$vGKʂ0ey=DDŽUX!ol [iwQ_;̽"**wCe"5vlC@/ >T^{ f7ad1Yssayi!z2JNb=#_z {EUƍ!qWzqҿEu6cnX㢼*+3!5r=>~V:TF{V%d!^\C-uZEyݍ!/3&˓veYևĞ4,Z@y^W2ad 7z~eVe|߳"<,bے2{DPh<[KVw_)de:˝dZD="B`YUq7j\዗N7tϷ#yyVQF{ETĄ!X?2𷈦~I$ӚT^ <'٫L5z<0YU@;C@ XV^Pwk=bKNrvK3O&u[JyC8Q[ UyYzpe߳"-=-.gB8]Q&KDZv=TF 88u/ >r ^yW{*"҉*&|Tf{.:Wϧ2ҋĉG"|>Rj='+b>H>"tK_ﹰ(yZ\i_yiZcM1ߡ)L^q/O\Qd w/&- /Ìs-Ab+ l#"Aÿ$:.>Mj YnU=" )gzy}*pu}Vq)-6<_hlXALѳzyry*8,gqe*%Pkw}K?V?l=>!sFe,X?l=>! ľ%Hlaʂ2+_ڦ%|W_}_h1-ַWĘɺ\Ʉӿn_?s?kWlYc'9yQç?ټdk<]FݗSE cr ezʻWy;tk?ϵ2?U )>_A=aϗΧL^^K΢")'UcrGB$'K^/sS}5Tp}~ecLEK/e|KWa[pR>_ݱвMR _hPFKc<+" Xe,HsXP{VB*.YhPF="p|>.CN\'@QcCe=e7zOP!bb. ԯQ枋%c8%˓c=qF_,dTW$VǬGD?\O+z8k&< ȫe!; '|ÿ0^yˌ+, Z{Dy=+%w_3ѯH>'ї''#8&eqЕ/OgT|Otj r2](Kwwc;/5,>kCe\؝ol [oG(|+2yCkR#dޝ-{-<2ʔD?aٍ|3ѯd?kyto1PegmvǭVf), _-Ab+N^J[ǭֿtIfveWr䋼N;ޫoa9opg QP?D5zw[55@טlv}V{DlXOea+z y>?_Tp(cGѮ;}Lޟ2Rkwqqz@|kUwq=IaɇTF=",x>0Fzg6+`_+v?O؊&և>ݱв ^*+vv"?O{E^R}+Y9!Ce/8{N|l~kT= 5>_.wÿ$;zJed]q}[5T(sϊľ%Hv/\''ܳ"۷B/_{=gEb'l-) 풿(l8S{V$v.=zK{V$Ma]EGWX{V$vaXhs/ì=gEb/m a]ö}h}2%џK~eXh U_;ǖ{5e+Y\t~r<3 w X/=a]ؕN\kvQ$/Lw Oreѳ,꧌̸kk^eѳ-ݵCtc/'gBّU?p8a[:3p|gG6&7w,pC@(SPz^\geĿ@")TF="JDH/gE}no6g2s)Z@|H{iӾZIT^ Wӡ-Ab+~T2(^̣3G=TkY`+mjZzqOes)Z@|H{iy>MaJ3-m:XZ(s{Q{ElQF-CAލ!^ǞOgE^\bw:ؿsPFP`7z[ );Q{V$vKD2,K~ {B zg<%IO\0hvZ{V$v4,Kط Ix{XgEbw߳13쏝@^7qDWe5zwšZ5T(sϊK~eXhvFα^c8屟|%k2HD{.B䷓5zw-{+5c)=+\v/S^1Ycα^c1#e/;vds)8֡2ʤ90rC@|j<;q=D5zw-{w3ݩQƗv=#\JLkǃ_17hd\'ݧb>WKAѢ?0F?X{Bg}5'VO>CeZJ3GFY)䌞;.W8 LH\@VޠX?г"s;Ʊ>ṹc+z[FCdgE#&I^JM׷8"q.Ɩ ʄ2ϸa{|C el{Na 5b /ЇZ{ir[gwL? >hn\˓<}\Oy5Rk q~}+ol [)}w_@?7ٯC 2|\-ÄU99]u@^\۩{2%ca<˰X]=GLB s}yryžV _DŽU?'#&/ UdWF`g%k>g$ZLwa?v~nc'z*W&'g؝*7*޳RzXƞYWa{|dg gKRJkNԖRrwCe)>py}6qή}!</$92zxJO$gqAט~/O\ݢ׭X7(Hz}[Ɩ);qc}V3К|]&{oߖ6J)}[ڰ{VVޠ\=z5c'0ױ~qwY+zLT!&˯~Lg@^qeNe {E۷ Fzsq2Ks%_ٞyN~*`D?.9 eYW>uC?aٍ㢼C]I&YǮtbNjJe8OZOPwqhSߖ*7%ѳGDOya?YWMwW)&#bOxqQq2\o*n:Xsqޟ:3˳̏g SVo!XrRhTT4^sqޟ_*؞qa h$s'8k(9ki2k\~=F׸.O{j χhe+2ʔDߺc볉pvu!z*|yFc;}^'S)_X$Oe!A:r/YK&\~=԰X߇ eI3c-v_Xco>xXK1y~퉠/`^qXhoKݩ̽AT=.K?%m~+[ 6/)soP~PeJk0џM\I^f\Q|~%k^crW(K~eXh qUbw:ؿ%Hl{ϓ\eo 628„gW?* ##?&_ّYzP{.);;w?Dѯdu*s=}5|+^;W>y&~}+&/`NeQ-,"gkKNmQ/YKӸLw Ry)Hs^Jy߿^㉬̿t{=us^>*/ I9MA17aE|6 %)Hu;2ERFe _8ʷg3^};Y2D9;UF)?{}/w~Y#k&<2滁w:l=D?_WO.Qơ+(Gcτ" A# C@|j<yshe =eq ~V{Lو׎Us2ኞ3h,@S2z*`{|}K{.Wy21gqEρ^?|` \+sou2X6RnVTeaCe\؝ol [oG(QF{.Kx);-z=@*?w~9г'O2IeA\ rӚ~*=KV rWy2\OyaaV\=y\5`N(m9>vtU{D$<;FW Pe8_\G|k!^=~gE^߁| p+Lq:|<h?b%k^IOeB ~gIҳW dyK$/|I[(Q! !sc;؟ X2!=[H!e>PpOrL58PeR%vC=wQ˓sg 'U\dcc ѳ+ŸWQБUӟZ/謇(ЕNy#;aRCkO}gH[\r.K<0F+#?{ 0_';7(׽09=wal_zI`=gGe u³OPcªI?Y/ܐ>āl4D2$y;G_pc=מ=Ce\؝ol [oG(+2, (F6;}qE~|~珞 `"t߱PJpPel6)#L;z{E2:=bAk2ş\Pe҉r {DXtìO&ѧ٬<^9y>׸z288(^z2lzTFBG6WGL?& 4zs1a#zܜ2͎lsc}*`8DŽUwQ{rM!}N0G7~s2]D9="}*`B?gfs MuQ{jOrNM[?Ϫ3W 0Fc̽A=[H!W ﹌uI\ !=ڡ̽A2L rxJQUp7=he }B)Mpe=|cd/Z3Ne l}@ EC>++7(>Npa :TFe,28„gW?* ##?&L~ {N^={LّU7ѳ+ŸWQБUӟZ/謇(ЕNy#\=w\k(f%Q&=" /3kL\z/Ce!tds{繃d?;>:28t@^fbtC2s_c*eu\/=w\I`=g*k /Zˇ5DVS{*RJk<pyջ'F?DU>.e Y86?l+|:?[]{E=ܯɇ8Ve =vǡ2l7spgzNgh9ÿ$k-k e eu߯ . tK{6J)vĮ??De ^t0ϳa(so̸gc'0W޳*c'0ԃ2jgU~Zȇ菝@^Ce-{n+OL>*h_! @UCtc28t@^=>G>D߾-ݱP:}5uT1Ŀgک̽ADп3jH쯂3=^Y χ/<7he{99DЗya!2#7fv?ol %uB, oP{l*8kC;\?!R|q̽A!?z.ЗyǩF6ޱP;;JR7vR ))(f%I28„gWDe=|x|\/e2lzY86\+tQF&Aeaѳ+ŸWQБUӟZ/謇(ЕNy#¢f}wOyJ2(X`lFPFGw `=}{{|C{41^gz*LR޳=g%%FǮtbWW>)Z{+z<<5%X,?'Sn̽A !ͿhǩF6{[9{&K̽A!o-jZ2׊9u*c!V"z=+l^q&WCwW̽AX,䎅R?߱P-ǩF6{xz~M_cf4~yϫ2%<gR{Vquy?ijje =e@b]+w4 e 5ّ5TFeR,ٕQ&="yPe\1y5cesͦS{*'+L녾G~iK(soP5}QБUӟZ15&e=녾}ݫD{BkL\ŗ28t@^=9ѿz4=}5BXk!Z{ =+{VfG6WgY1qAyUV e{@^α^cq%W:W!z=ԯ>OYyQFKif(^z2lz:28t@^Y_^5^!4PeT`),mQ&="yPe\1y5ώlz2]D9ϿRX09,C aW< ﹔DW92qvdsטʯ3=>ן\=- he 1qy+a&Y7gKr*`u*soP~O\ݢCkL\cQFe*aߎ(ۛ{V$w^HYqRn^-i Xe }&>粵[WP)k*;`5s-/a}[xovPN&}*sek\+v=bn'v&\=rW="!4Pedd)#L;z{E2:=bAk2ş\Pe҉r {D8LxWFα^c8. Ă@^M\He ˺^ʸ*; $=ߎPI28Jeq {Gz^=TFBG6WGL;hM7C:T=LO9{&7n=DЗyqpّUTTޠy=w\9^Pe\1y5ώlz2]D9="sgyyf9{sǮtbGe ʵfsQFeQ$;.=<5e=C}h~eXh Ghe`W<]Z{|C {4 OXkv*?cM2E7njJ2W.\'uP٩Q `/܇b>Y%~~qmMN]Ƶp7jelo+`ӽj?5os-tMi[g|Vn^6#C&\=r{EXwX7C뎾E=粵[Na}klm[L[{.[%H ͏q۪=hVFeJM䥌2zѾgEzNpa /e-'ֽ" %#txӹ| ل@ 9CeqJ'ʁAhT=LO9{kO}g 7ȑPX':Ԛ}`]@}{=^=UMkTޠ*8QS^1YMCCeQơ ef(^z2lzSݱ_{)$vANK!R'~Mj~K!O[g=ٽK!OfT^ ~ߒ$ʸFvU/q=z2 ߃_{Lu/5#usoO}[J?D,);>sgMuV{)]7w!-0}tm6>bSku"&Ɜo}5 ꮩ ge~lj+z:սh5=*2R}3@EoqtE2GW$N1г"K |^@=/M>~.CN\ƚ>!cwF!Fܛÿ${s#~F$EC4-!UCuɴkyX9DOe>)$L_?PelǮ2F?D?podȡ я X+:rì~S'9)GkrC+ >ʭLp@>Orv A} s"#0ߑ*; $=ߎPRFe'7a|DK!/sAac+s/>__'yBP^ a| ἮqQe-'XX'Hе;LuJ|eX!RC\je9kT#S^ }Jgc+s/ ~5gfT^ ~ߒ󼔹BhR٪Q{)=D߯I<OPw9D'٢aG^y\쇫|yry^(cqtEuM1A a9y~s6Tx z.EVFm/;/;hM!)S=,%;F~H d:Or6OyGNe */`zx}NShCe\8"q.Ɩ I9B[2(Cs>D?AR3}*`u2EQ`zXNȿ[@ʸ9 G^}^Y`oM޿p!_n=^Sj?Xgcyk5?gt׈~2cª;C5Ը ԯ ʎty~G:[Js\ɄSg=LM\p; qEρ^(Su?&߁|+zLz:TF {SX7jώl7zNŧh}ܝ2R|ȂqQ{)Ě|Ȃo!(̿y[{Bɽ+znVFe@ Q7qY/HV０޳ . ̿y[[{mWutvKxle-Oa{mc:v:%<2\v{EXR7vEzgc%<2\vˉWu_)lY)| ̿y[Ea}`=Y  ߁<#zG,caA+CLѳlUU?0_҇5>[cJyv,z{T@day ;g=~^1TF|Ҡ)1,OW)&H!W=̾sLj\{֨L>rY|q|{Wwc\=pusۼ|! n[YkTt=*>0FqQʯ2Ne`uTϷy+?INaZM9~;G+soP%k>a=?v*WLN_4_{ʇ';XF=w\kU>'O9{}78byol [he =c?#V s[@eW~sےه'>~ol [ne>?D2=iDϦʇ';-Ab+9]ߍZXv*so9["`O},Kxle-{EXn ]M0.0/᱕7okD?D׸ʏ :7hLjn5X~~LXuZ^7<{EXJSxo0i&/߮|Vn^}`X)߮|Vn+º1mc<ԧX.u[|ç2m햧^}~o҄UwKIMZvˋ̽""q7Xiª;(DB8cª;FCUk].nCvy~ޏC4yٴqspJcª;we~^<&a mغ?DUn u>7w7A;7Hǡ2_>! >'';Va 69  Q^v*7{\sws_==TFQ}xJb=sIP=^\B=JgJsay̽AJD/ZP0,R7TF\<V\\T(c/:t} G~9ؒWY}5cª;F>2yw~k[xde2'tdsUe %'9{rœg ѣ&;uF7hvLKB9{/31?;&k17Gݢg?^~X>pƇ>&_8*so*i@vdsFFe\8"q.Ɩ I9BWeQ (̽e粵[nWyY4[47|Sny^֋J#fl@^hEFJ{.[+zQY4[47|=aY4[47|\{.[+zQY4[47|ӡ-Ab+~o(=r{EX/=b &_d|Uny Whh o4"Z{.[{EX/j=b &_dQU+o*{26{ʱ'ʢ'߶';N.O؇XXƮm)so*ۼ|'r_Ɓ>CQ^,M_*\ VF{A=Rc| ݂u?y>?#zT ~V{˺k+LE6oy|2y[X0SڼaB?eC >̽A) %M1A  o)H (%Hl%?];l-vV*_nkOyaװ{o et\rハQl{C Yg?)˺{k5}wZo}5^,g{Җ{X>񅩈2 7/Pely\ y-Hҧj$g;ɔw9ae17TU+ol [鞔#y*2R r.n!KeW@ s;uٵWhk<})\s| wZv͖~mE^ }+[57t]~lZ$g>~2yˌ+(c)ZJր*~ tS^i y5;,קVѯ=e>{xjA?HqV`'e=!W{EΟKVMzG'vU/MX5Y|k{/ _{D*/6㊞3y7hWe{ާ5Vhz{&M~X{/ qʄPusѷvŷsc!5s/NŷX]_jMyy  4x> @ZoqtEJ=dbE^~d qsuD+LrHGW$YC@ 5u.C`N-H.5R5z粸[ ߁js3}\-S}WkI ;G+so05Kҥ;yi>]>wu*so0 rT=g}2yt#Ek!Z{Y );1QWwPGk|_[{?oxϥ$])eh˽za=[&,=޳Byd} 0F="4u`aNu]-9TRkD*a\`~\T|] -7)g+.N0?r{2 LNESꞫD*z@LC T~%R5Cl!@^\Ssh}dӗab OInW=+Sl!@^D*& 45˸ʩPVwe\FY!UgfS#aq8"Qx2v\;u?UFм;cAu+&sL~{<Ʊz/qn Jg3٩/5!2PlL-:D^#y*36*;u񱞂 9䰎}5*̽,\,kk5 z7zNE:}5^@2sq*k {@d䧼V@^p}ѧVS2\ 5T`ze8 j~U&ykCe V|z{L(y*`Ce 򞋽xxJ¶p /X|_˓p??u*sC _ȏ@#O[Rޠ=F;.- 42ԡ̽Aͨ!wZKykֲC}̽"?R^qĮ;.%k^3 ?̽Asѯ_ ]8TF{m*nrn- ^<_POe FI~KRzw铜}jv|SpSW-H%Hl{RPFe7hk^y5Xg[xdc}/ي==7(A>D@@^Ox~釫^9Q xtx}[.cª;֊YtPޠu_ywz*`>2ϓ̽A x~m2-6cª;֊YI>AWle JPF8^qLqܫ>W"?B@^Ce )}zkS^)9y~W r @{s5D+OLu9k QƾwxT{{OPUn uW?{1g$Z{%My+-HF=Rc* akRܞдqu>d9=wo?[cχhe `zy=C}0,k9!w*so0[{% q;E'3Yw2-t Q`[q[r?D+OL  )ԩ̽Ac8]ߍZ_q?JAne &虾[ '9{y&(so9ܳb? !=[H!W3I`U k|2y%kWFÿD2}9(soPZ?GN\5w~~i :TޠJ>Gxdg<֟?ٿg57v!yƟl'D8"y_;2Y{Eű7t]y΢̸ʧ&Y|^}N'ٍ/ߦce6ŭ<_0 qY201c6:ğ~uGL=[H!2<zk &uoKsƖ ~?DAu0.N0?r!z= &uSXϵ2ńU׌Ү5ɴ&7wL8wEbuM>>.O@WXWY{A#|XOLsxJIz(so0\sfr󧼨ƮCXe Cal9y27X PN?b*̖Px4ѷ8"Pxky!rSL?A>ϡ2+9y~sP{q̽v{2 RT{I#zR￵z| zxqN_s!sZ{ծy=!Un X:uY) - 4̽Ɩ{+w??Dwאr1deӗW|)(ZfOyda]3.V`1aU:Q$u! w ol [a T(soݨs}5np7̅|^'9T^!^,>(soM%>xhQ]}BNC%E>poD?pc9I7(G~2BVxO7t]|;7hR\ߍ!~wL$1ٽ7(p9%+7g}\ٿm)%W2aoe Y%;uFnxѿ-l:7hl&yLˋg_AqYx$q},c>käGW$=!po'k~ tX,!_H3 8"QwY+ [WF8Cm)OEyIWOc8]ߍZqn~l8~dBe{ %#q=Dw9TF6T^?h;uquy%mܫ'c}̣2c>'rx@'&H{||#pZI|5*?A5z 7tyry>ꎵ"2#9䃔!])Sh֚=9?'̽*n'0FSwXcM2s4~LXuZ2#s!3&c{o1n93XOya"K{מ=kr=9a]O&FV`GW$O'BeYYk|V)71d)ZJÿ~sYƖ ծ6. T [JOy߳y [rq);1}[J2xhQ$uk5u5ҧbCw{!bI٪??߂Vޠ7g%ŒtLW1XquyUe :/Mf3_qu @hW}2+j۴uJ Tj7t]|: DŽUw *3|Ǩgz.CLsw˓pzWLOEyrW!c(#O.O؇(Xs]|X67zٯ˚< T;C@|X+.B+WLu?&*2yyCmh Qft]|7Ի'F:O,'<o[3ޞ=SNu\fwp*Cyy9^.v]Sn F=V&D2F}ӚC3Yy ;g}h!yb*iMD(2#+q/PyXX^yVԴ9GLJU{Yֲ?{jsD7Xq[ k=9]8Ϫíe;ws 8x+gmhu7XqRcZ:U`yJ?/]{C{j2syZs/nni}yry>T`{:(sv?D~>?DޯM1_xﰵ8'r/:/9;Q{i+q?=ݜ GEv2\CA'!?A}5$a̽"J{n~C*__(!o}I(-,YZVU+ol [鞔#yVFeaqSַ:mI>6~.}'ƃ2 =+:'c ~D{E'_z׸zےw"WDLXuZ{Nc6q?{iWdڵ+eƞ9OES5ލZ3='Oe!pѯϦuA("oK~"gU^c6q0*=T&zǖ{(v}_S}N#Ӥ3pS^#]Iw 2πd?kEa {4uKRVFbR2yVg$w]Z{?sYx׀5/Ìsr+2nѳ>D?Euy~:Pk9ݳfZ?'Eȓnj2Z]8]cKJ\Je 읣5|ƿٽ.`W9}@*?kC~P+}z*trZ{Qkney8[Sg<ߺsW!Z{EH\r6i?A>taZ{>C2sk5l^pgW}Gi̽"1]5'9\#w⸀> 2瓡csz*NmFeQ$!OP5SКC2g j> qʻE=[(wOgWw]Z{W０+s}ٹ].5]gW!k9]Pk9'X] Y%'9}\NeF1diRǮ]O"]tā^?Qw1!zGW$%k^}X5{Vfr>Ag )y/3>9 \]ʌ4y7xJ)h]e{5z5k&jR\Sj?D?C5&їaba|&eqtӇ5!Z&Ʊ>=>V1W9\06M/cf΂NԷCe{Rk}5|OP!Nr6=w\vX*s^wZRqQ74%}7,W6.`>)CDr<#f ѯMOPCxVq/O=fYh\=rG>hk<-='[X.w! \?'B]9*+ҡSкgK[n |~~퉠/͝{VV 8rìCec8]K['gƩh}gDVk|ߺ[e,~? jZ>~q>嵚J+da=g&:'QDŽUwyA5zeLk]ֽ]q6  -Hn+HI}5V&@>yW*XL_'d̽"֚ݸʿS^Q*88\?HC4y̽"B[KV$gw ir/\eQ`Nc EOx>A$֗2sB^qvs)Pk9|cyCe VW\|/I=/OPP{=*<\sWr.>Wu\vY}$<_*p;}RF{.y[X&hOE*Q?P'9q6 dP-Ab+ %+Thw ^?3֚߳=zw]X{E@tW&'{sϟXO9{zV+W X?г"3=>ׯCQPx2\ߎƖ _;Oy#ƠWѿ %;Cie{gRYUcf4W;bhEq}g|2Yg5gǡ2X]8]cKJY}]x@|IF,b{C@hv9)!u\s'2?RůMyUc˽F\g2W{<'ѿ~ QF0oxv/0*t]2$g=Fyo1$g;ɇ5$gVZv=+J.kY퓜˳k@ϊrCWߖC<{[%/a?]e8{?T^(seKtEmNI-6U,d~ l! WDI`ްC@-z=:H2ؒ}/ )9Ɩ $g;Orv kq Ү+)r=e(9yF#֘yOr*8gX_*LI n _Fp5^?'9t+gm@?D_f\s̽|>DWcCG~ÿ$ kn\c=dNelH?gef-O$*8Akv/w>г"/e8F'98"yjߑNr>y=D_p˓w9 įj!Op80Fs}5.OH?׸ʯ 4z*8rϏ^a<Ƴ̽"J''쯂*=_/XߑNN_3 N+̽ 1Q^Z $wYnD,Cezv*8s0PeJ }zHsp.VF[ry+K ^wY+g@^,S[AJ7짰~yrrgzHs8c2n Y|h!N9[qyvqSs՟ u\fw*T\geRi ]j;Z0>R,Tg )z\ꞫDnc&Ο T/MXuxJ¶p#սԌhWe~[J){B T|]KVe\TR?+ۻVu2}Lpd TO3Y3_HP_{Lu/5geh^jFn;~Q)ӵ[xaUe6tmj?D[8פSwX5r[B&<@>ׇ\nBc︲=۟-$.^{VYkϵ2A=lⲮq+;'ч@ 9g9W}!4W<֣2E^f\q\SwX-߁|!̸~);Q?Aѧٜ~Myu/{s5K+NLѳ*#`8^RDZW`B>D+}ϑ$_qu X~C/O.O؇D+Ssm)L>'5k*eRdV,WH8r0`>?Үf ۧ2a[%d`Q{VY&t/ H>J%|*sJ=kdBc J|*sϊ=kdpDLe5=WYkt]SD2=Oyd^ (cqtEtm=wS͵5ٵz+o1ҷơ~'L5GW$N{Vl민?M-Ab+9][5{"?X-Ab+9]z<.9'מ28he V^gW!ѻ^eÉ5e HW\T`+WL_$gZ~I9B7UeQFFD~o0-֟`Q{VYfRR=T"ʧ2ݳ6-֏U/gp?OeYgm[c'z|ɻRTq3c}V{~W/2RT*(è"{[l=*sJ=k#l c}u)@Q*MS{VYa[%ū=~6=@HS{VYa[%c'r/:!GW$NcH[~Ârw2;q7tO]+2RGW$NV%Hl;lͱd+WF;.F?UFk)֘C2s܍Z_kr?Zk\哜]/w<9Aʸʇ̽`])&.E;}X}IgV{< 4zx:7Z9~UC'5{|<*Gya(so0=ڷZMy?;;ӵ"{P{Y=MX0!WY @);7X{.^) W,/Ce ﹤ e\'z|ɻy|*sϊ{F:l _dc3T*(è/&r޽,M'zT枕{f)l)ʺ/O\>J%|*sJ=k 6mBc J|*sϊ=k 6m)!p<},,9¶aK mY7%d!g=+Y^i{jϏ>62>s'VO>ևX^ Xs|0|QJ?{;cAu+&sL~{<Ʊz/qn Jg3٩/5!2PlL-:D^#y*36*;ӵc=rw\su\rM\5҇5R&DV ~Fԯ)hM5NvM_z~q(3v 95C7t^=_qs__kuDOe Q7gQ79kE^Ce FB}2Cgڵ"2tϥk.q,SϻDڔx2yNߕ?0FOר=WCRT=Q['~읣/Pe['M7'GW)&s]~읣sH?,D_=qև@q ~t}LKXrƖ g5^E9~5>u&s saV=;o1J[v1!{s C5~~LXuZAf}sȨ2>`?Oa=Z뇀xP/@{xL_^Ou}Unek^ySXRSܟ\~tG[@(q7gzȫ9n.>0Fd̽CesؕNymEmNi 6ԕ7X5}[=[z8h>EmNi 6ԏahe ՞5>&2B|~#G\?_ Dп3p<.9ogf?D?Aa;Lc+3v ygzFcޫ'ol [82(@M#XU\ݜ͕[ do!҄mÖ@|A{.="nR}K?-Rz^"&R-tOp (LAdw /`!z^s)=C@\f\!=22H~@*~ Or&_?{WsKNveG:<#-Ĺdޏ :IzSe8!xN@Wk2EQcªI^{'軁CeiG<%n#$gspSwX{S{5+! ~SXVx߃?{he d>,Ǯ8{<@^Ce=Fz5*C`~qACkWD{BO932&Y{Q&m rSe &o1X퇫7zy^\#}3e Vgz|V!oK6qYx~95 ,$g'{o1n93XOya"K{מ=kr=9a]O&F̽,HNya=z2 R/جoB?D~%ˌ+Lv=!z}6{Nyrypcj=ɿ1P&m!z-d*-I+Yl[]8oq8nyol [UpGef$g#&H!W{ tvr*y> ѯ~ol [ݨ|^~̽AzK#z}6mU>Aߖ(soP읣%HlgkYX+X?hT Y+ W97}q7j}ʻ9DO7Vޠ~JsY\7 t=!spzkCe)j٭Я JxYԏ^џskρwce\c(so0bxʦ'9;7zNVOya=zs,WWRT`[K*8,NrPC\pWF識h=TU+k$=)G(+2[_l{V1L޿%Hl%k{-H(7Y?/PeArMٞCf zV rs'zJ +9NeZ1sri \൹ Sa[Xg{-Y1ȡ2`3(w{.X}B׆I VIgE^YDG< gq`yR枫E',p̈uQ$~gE^:֏]z|k&<[]8][+Y=+vV&c5eQﰵrv},{V^oݩuߍZ߯[>WyC}RU/=+%U{(;ӯ{{Mc 2yL_)Sn̽A k#'.;LaOXkv?D#ΦP{ _??k& $Pe8"q-Ab+9][dȡ/>u v*e71}{B TRX] sY R+r_jҳ>:e"v{EoYZ#Uug*WO4;&y%Dsٜ◁u5nѳpwK?yVwyXCJ/h7hvyPٴq?;tmFe =z2҈^Ɩ kǸfOx>D?A$o gkL+4$ӵSwXc}2y?s_ˁ ϟTf5֡2Z]8][Ɩ I9B75(L0o; _'sde ڛ XXs>'$ӵա2ar<_P%/O*k qQqk}565*CL_Zk݇kqN?SwXc G11EieBka@1zK\?0FϚ52Yxd%} kq<ׯrSLǡ2mY"UޠRk]%Hl%kw }c}5*_! 7hcKJNyΦɏ=w\^9y~}[RޠMۧ~oXƃϓȓi~γ/ϦX[{xFr|*`qOyȫY!_gzے2l-/1IOy߳Wn qX7̽A! >r/ ß(g3=޾-dl /(Z(soa){B*z:<׼[Y(so0i 6_<_POe zV{'{?hQϦ2%\#}X!w9r}xc8][}V>DڙW5Tq*`迫S rT=\;.y_tC@&cXGe JPw~ 9&Y#<)_C;0C}^WFߖ(soPb=&cX.ԝ~{Vޠun~ ˽Oy:,#(soP`oe ʑqU~fSh~8_𞕂E̽Ac'*z4O9{kG*s}t&=PeJ{VJƖ XdM1u'[W-H~cKJϓ.2 / "_*؞澺F'~de 87TFeRV yRF+k$ұ>7ٯc?T*CRT=~ E2T=_h_99ލZܫ'D%xʙhI濱%Hl'Ox;,{'s8Vej(S{y?*`?XxdL~?wϳk|zѧ<˽zBL~&!+{"_2ÿ`>Oas=Sk >gn~Vޠt Q`E7H7޺i!RsDWL~K{B){B _=+%?kT _ ]h=_ ]hc} d:-y읣_TޠX8dZd_ MUpGe j߿;TF{RJ^<_POe *Ԛя &=3_{'W&=>;ًo+d!FZoj?臛~M+&kgjehQƶFoqtEtmOi+g Lak/ e,bvr*`!:?Mq<>I`=և[]P[l^㒳=gL?yɴkU {׏C-bvr*`]|XaݖRp%V ʻE_X_o1 Ox!M2-T=×cy01:.9aS{D |9 9aj_3q?fWY{,[Ki֏Xcb.$ӵg%01'<7ȖRSl!@^ߖ#/iezkLߖR̽A;}/(ZtqѾ-OQEb7_8Ox*!z>AuDߵՍ-VLY`G+Ox-˓c}qPǝR>yʱ;BG2 o-/t ˓@>eoqtEtmsϹ\Nep!I XC:)_w=)D^*?Ddy<Ɩ`+\unl akGUN8h~c<ה3*]I?fWsgy ;l7T=wZgC1c='Y9;J&]k{ڪ+Y2yyy=Dukׯ8ų! u8q=aiAKyRXOyyiY1}\.O=f=w ky*oqtEtm)mW~;l7ݯɗ{}Sh[tTI^1Y;}9sr=]+L9TW#C-%¦5y@ݯ1W!"%ѷ8"q̎l|zX5 n=wGDס2ʔD?]k]@*~kaHѧٜGW$@*7(My?.;OLѳ~&-[Kiےhe s8K+-~^\~Fx:7hS#I @`:W:FR k5;G5zO@OЯʺT=7f9{E}C)4ޕܧ&y ~V{|2Q^1Y_s|)>0|O5g#\se "9{VGUk)kV>ī=goberCe!٫L!ٽ4}yry*?D-Ab+.+ sH?Ro1rHoqtEt];ݨ2#?DZ8~.5r+k.@ϊ7,y2=+:'$ӵա2ؒyI0ЇzVuN%HlCzZ!##){"u5mF}v4wWtv>T=sYwX(gy Ǟ\p*ؽ!z>z@-'5 3[cCﰵ)򊋇ʔD&?ry!嵚\_=UM*soPb=p' N?Dol [i c}V{K{Xuc=\{[:ٻR9~~e2s,$JD{G |EqOLѳ>!OX;7HW9_MvB6}I!a#m[ya㒳He abzm!z=Du?cZie =XDYcyqD_ΦNey'<h-Ab+9]5-Ab+9]
      p} 3[8"q.<<pC5ݜϵ2akS,9\#V_K<ŧ>F=7kQBʍ-Ab+W1G~2\q6lVq]+}Ovx:ۗOe\8"q-Ab+ݓrr?O(=gklVq]+}dr#WHbYOe8q{BU52lV }}*sJg{BU}lVkL?e\ W٬<8[{DT:Oe8OL11ESgi\~P9֣Oe8b C5p6_MAv87(p냟;.ЧV@^5>Aݏ :7(9mI^;. "C*_M+soFF]?j?a\`~\|Vޠj9\0'[C7cAWV 2tCG)5f zV \W9xTFK6g > u&}d LG/ V+ehCLǻ1=,Xtz~5cPÜ_Ưl~M0A/ )U5*+b)zѮCe)'٢^2x]}kWٹ+Y>5Sܧb>0:uh05xx\Oxz9s/[lShehe"ğx@ʲʙ֏=,КL/xlVѕ~oGš)44e*ɃOyΦX/Oޏ\=*/t|tmuN7/`Wea|WC@\ yX5-a)Xa|X8r=|읣s?22L 򧢩~c9s>eƉ8p_gz|j$駴>APn) 6]F8.`3*7,\:|$+^[gGSme}^+w vg5Ny c<֗Pus=\s &=g\VeX!9 'q>=QF{uK[cKJNҕQfcKJNҥ'rml [iUz QğƖ Vx5SwXc}1R'5qS)2 R6Ɩ Q淗)nX6󅎎OcKJN|[¥y(o1Vɾwxik/m*̟c}(o1V^*,mft<ҕQF<::n: $2f!xT?|7yu^U#>'/55+sUǎ/-=2LW@ Tsp/\|a7yu^U#>'/55+sUǎ/-=2)+=+R<KDGu v*e71}{B TRX] sY\;IxkW灞&iCPC_(˺V&=ȟ?Ɵ,,EP\×D6T^OYhY3=>Z|IҳW|*p! ʲϮʤ,,_nc*>0F~~a'ӮWY/)qxBryryL/m}) NWt!ZBY}}}_+=TF;:WF_a~ f_Ge7zNҋT);*s W+rCe7zNҋVRO2ll [iUR)USwXePe㊞@g'J;j?DZ]\f+s5?rya ->4D6-PqOyauk /ev~RE^f\q\SwXG>D@^@ 9?2::n: R+rD*&OPwMu/5_jҳ> &uT\%U_#9SKY?}q%W+սA_u/Ɗ#,کA2>g^j͟]p0.N0?r{E>Ѯ┳g'W9=WYPGi~_MuUV/q~@^ ">R,Io}R5=Wv5So*8}&_\sz|<֚*?DRX*T);q<.N2 ,M+=})lL}q^2::n: $ҽbG(2(s+|qԭo7m*P^)_ol [I{EXmÖ̽"J/.^*j۴UF?(#-Ab+9J?Ϧʇ';ut6Dկ#nZ\:?ׯ,k%'9xrYT&AT=냟-$.kMM1!פxcLc⏝@uw+gkƓ}Sqhs߁|E^`8g z2%ѳ_{'菘$=mF{ѮSl!@^D*& 45˸ʩPVwe\FYge~ɚaLugeBsg{?+@=@TR3] XSwXc}@Ϛ̿)';,(+RSo֨ >DLe5=WYkt]SW<u{)?+Ɩ V! {!z>םqֳ}H1Ts9rZ>F\7*nYm:KDa;zZh8}k@^×DV8wg?0ʄqySujס2(Chk@^ äp2҈^Vq0J äp/gS5=Xz2@x,~JH/O.Oq?:/1z {Q$/j۴u:n&==qn sqs6 M-zqkTf6mU~/ԕӿ[kWOPwg쿱,™Pm֙hi۬}[\B`ewvd&2rZ~q X>! !sP{<m:KDCe)<~0\嗶zQ枋\+t! ~Xy}{B /Ч&5VezyDZW sv=x%??D+Cvw *Wl^=?NYʔD?=y7xcoAUeJ/O=fAXS)= F>{WF(sy{NjngvV$V?[,p0/X'c(=ҋ6m)NڷR^rxV?u?ȫ7C/}[4{EZPe==񛘂~y)Ɩ VXx5f ;=-\fPs7z:1CpVѳr?W\ȡ2rZLyF7=;}kOx>@*?p{ρ#wUfqfs Mf3^{cQF<$Ӫ[xJE!)d/OݢeW! ^Pe{ŧ&YW9|7qaOa=yq}cKJN҇(L,CEQ-&5Ve) BY} ~rje=ލ!nTXpC?l<ɿWL χ',28'${ǨKgf?l>H9yqݡ~C×D٩Q/X$Ӫte}[zQۦDq8l_ik/(Zzj>x66-!S D}K{Dll [iU2sqk|2::n: $ҽbG(VFe|w\@ QF{ĨB4-vÖPXەQq"?*%Hl%U1aդU~k!;WL2{V~xQG8i\aYCLaUeBJַon)H QNn;'OPy=DPuZ+IeݨǁҖWL֧&Yk<Un&Yu/>p);LC;0g/['Nx1W _AW<9{u/[󅎎,,(syivEe8_H 2\/m}))LOP^@?DzcY3YYC?D,B<1|IOP Tȓe8{|~cYxc~f!!525x8S DufC9;OeOPIJ+kf*p)}yry^/u6F=ysۛ5~>9 e%A6~B}`r%9>g5׎- z'D+ Fÿ(?DSk|2u *#A:yCt0aY_;NyΦȏ@#IéL辀#(χʲ3=-0{g! 2\'Ng'<DŽUX?Ng?%kN7t<( ?D_C@ip);qz >=ލ! ї־-a[pM%;!ShCe޳?3 gW!Un/K";~'p*9/[lSh/MdaC++2r=>Ȳ0z+: u*`uLIu'qX'EdUnWk|: ]z2Ey#zC1X d=7t|3G-Rh~St\'y/u\\ {GZeJOya7*nT|q@ \?=>LVMzKn nT|~xm&Dk0o*()kv 7>a>?u ;l)nU=w*2mmӁ`KqKPF;}[6Eet R.ÄtQ$Q?Zol [iUA}NNy߳y});>:WϵfC8χheƉ}q@>={*La=HfW(YPL{R=m=)N0W5{R=|=гC)~Shyi2 ?D"0'O`|>&/菝@j/0/N0ӯɇi22$[<0FϚ~<;kX;g+hel OLѳnT0_(˺da[Ѥ20;ğ-}WYqxK6gd!fGL0f3zL=3 gf3z)̱;_qG 8+W臘8w \+t?Y}-Ab+9JkeEC)X!;Pv?D߾-ݾtk9Ka9W}!vS)L㦭R qZ IY/eݧB NaỸ9FCe\-ttܴu:\ߖ/eB1qx[rMX {cª;֊~7jZ(̽RekKq{KDR2vrOuֲ'MS2%'l-[[SwX㣵$Ӫ6mϮ! @mYU~}Q`%~^+r߳R( me7ئNv2_="d|e Fۉ`SN~>e %| ԯ^2+Z{,lj)'P{DEWD2l=5Be"AW 7mol [^#yVQF{W5Tq/ʮ+"R`%c߇e>9Qd̽RHAgmؿ%Hl{ŎPY\eq8 V}ex@vo݇ }Qƾo MNK!A{J_(˺o䞷Dзwq3Ϛs>(}[n)t*\Sݾ-}k:n/:?Mq\ٞ멌2v)&+& @I~VוL?{he(4W}߃%Hl%Uÿ$c'8߇WLNbsD+۝zX}OP˓3]s%k>myi >Wi@铜}V&D@^*7=ԇ/ WOP=X;{z=?DW h{[{+!ay_.~}\w(wrZ~7j}]e*`q!p zهI>iC*ׇ8V2C%/j۴uJSH^VFN s~M3qCeCpœ>"s#*MC*1#t_ ~T=}ڛ}vh%ѳ!zv³K~2y<;y&.E{ےR_`~nI!_?&yn Yy\Sk2l^cqV~#!MqY,>14g\#!Z{Y kcȫ_q~txaCyi ~uXa(e+}гa$y=DƖ V+Ff}U~CCDr<;+_B*2-)\S=mwv&MQ$oK&.;GcKJ=z>uԭLyr&Un uWKI`=}5ze6sy=DC|BY}*2RHַo)H QNn}QeJ|Mͫ/O\QM5w9yƖ VPeZ/Y~닭Bl[ $B2?շJ(͏d-Ab+9JD9;5`C {{e [֖8TBGM[C/ooߖn)H QNnߖ.Ä7@^):(9U=>u?&Veqئhl[[-~?2πzHW!])}*`OXkv[/V+*`?+&k'1s?v/u)CR[*` WY @);f_Z1;2){$l 7n=Tsh}k5 =iRq-c c}qUeԭ)m%g ߬dO]{3=,™pq*?j֪2[q{XL GS^i 2m:S-mvo6ŭy~kKz 9z\2m:KD y,C ~q_{+i@Ce\-ttܴu:ؿ%Hl{ŎPY2m:)$SgEYYqQqw~QUel~̦=aPuWN)"<|$+ޕ?0:CeFo-cKJN7j\_ZqOLѳWk20?DѯdӇ5^ZqOL)%TQB |78RJd(%pol>k20ǡ2l*nrn- Q4Yme!l-[[{L&rV/Äg}i]Qƾwj0z&=F\'*}SA鞫Us){B =ZQ&Œt)V٦’ ;{4DbIݢ)4zVg!YW ^wUJ4UCc \'PeoK(\Sݾ-ݖR|AѢ(cߖnK)9@k=\ {G:4kG*?tG6W=o*nrn- CNc&׎zBD6H#zvm)%/(Z4MMέzݨg=ExBDnZ\v<oWgǻEu?ѳ읣dʲW:)K96lc܍Z+w )]k|=}D~-ȫS,IS2_(˺'Ⰾ.뎾_99_T=)Z9*v90OLѳލ!X9= uTFIu\=kxj @g=U@x,;gܓBeQƾ-arS2vrOutmROYUQД}_cB =G_ ٩Q%ط.}_q%|^N|Q&-!e}{Xe /l=cW:QU7e~?7ȇUA*LAѢ/i\V.*;}z=̽Ac'9TFeE 7Tr:(c'W@ToKw-lS`o &wcú-Dp%*2m[) (c'W@ToKMYPHpy^j2m[) ֺ~cKJNҏCI1>>CR>-y~V{y eYSDN?W׎R@*2>4kǃ"}3ש 4z>&!W=V5t?G>џX9}&pyvOLs2ط7Q^jڼx-+vH(s/5m 7mݒx w;h?\$2s=ml~4x??D;J&CU]WDIb jNo"҉B""*Ud'*UdKu[*Ow}+#U,ũ,R'SN+#U7mt"|/w7mty|{RRHN`KzHQNnߖnTP (SXr Gk]%Hl%Uu@*^5COy߳yc 2)D×D*їaXu2K!%ۭHsKDR2vrOui,J2ʔDn@SwXG~&rV+C T(Si=Uew|\z!0WPe)7K=uǡsY*öhfJN}iRq~'ѩ̽"7,Xf|^W2a8Чb~߃WD,>!z}f녎R) BY=CC2g )-0ǟCw{O?D_L۩̽"lRF{tx-+vHkY1+x,S@/e֧KW 7mol [^#yV]+2| 6:qS0ex,2#)T JRY#Ho&"y>S=R]+#%UMN>6ɧ2R[;_t[X§$ZRE /YٿUFJzz}+\RYN[NLe)8R)[[ Nd}k)VFJ5?a+{7:_ul[e7Kb%%Ŀ%D~T'SzR>sIe;o;R{D*t8_ͻt'S>=>u?&Veqئhl[[=iRq-c c}qUeԭ)m%g ߬dO]{3=,™pq*?j֪2[q{XL GS^i 2::n: $ҽbG(ZUFe6m)Nڷ}<5S>}4|! kn\T(sΧRiӝy"=5]󅲬[J;/ (so5Ş J{.C))⥳HOKx_hݗMO&'TɚbEe#^ˊ]x,S=_ik/(ZRF{t>))n_hݗMB"YS칤7Iu1Y0/tt˦꧌2\WeM*#eU [ɝ} K[{)n v[ B(o3!uvmrAI{Du:< [ N:y)V}RFʪV':d}k)VFʪ/(t8_蠌}9_R-w>O)_Χ^Է>%wܬt[6otVR@ M’_)R>sIe;o;R)kǂ NNK(;OSgEYYqQqw~QUel)%TQB |78RJd(%pol>k20ǡ2l*nrn- Q4Yme!l-[[{L&rV/Äg}i]Qƾwj0z&=F\'*}SA鞫Us){B =ZQ&Œt)V٦’xo i2| ,6ݙ'=x,S=ੌ2YS칤Ntq{::Ze2#MhBGK>S.iUsȜS2/E2ֿ%mֿP} ^i1x,S}tP枵_3(sBGGlsIe:o]J)-UۊޒGEHd}ǂ'wnoϧ2} .U5E K+\RK(c5GͿt"m.ͿKuGͿt"m.#KuS}5OJ~SߖhiL^^`,Jy?/S/oyҋR<<'++ feΧ ;{4DbIݢ)4zVe)>xr z}XY}C @۷SwXc*2R%KH$(:_k ?8\ixVMz_Xlz\Ne;zͨ8ԯl<'&Y+\MzL+s=N&Y_{+i@{NE9[ѳǡ2({(}xKVw$r)3#rV WrZ|Ǹf1+{< !Fec܍Z_n~F =&׸wCgƁWHU~C eYw*e7X R S~cKJB".Ko"b⥳HOa%Hl꧌2\|$Y׎gk#Ek+"A-ߖ2妭2yҋ~[>6◬ow8 fe:NӶhHHK:(sr5J=}߳3%Hl%UϑRUN2)HI"^:to+'}K)']z [ɝwn+]B J/ZCmi3}K(P&O/Nu¶_W|¶>6󷕈_,=]TR"T۷%hWC|s}VRݨ;,eHz?LV^kdއ(sEjx h}X5q=!;J&}^w !rZ~YKP^ c! kn\T(sΧ_dS҈uuk(sy {B Sc#?D?aٍJW 7mol [^#yV}UFeͻ\'Wa[pJ/.N/%=w 5oo"%E ’B>W4[i{J/.*)wooE ’B>WD/{|// ''w 2p'z,կ#Γj?˓iGV&D?aٍJe o4 \::ZePeTPBGGlzj<::Zeq'2| ,6ݙ'=x,S{t(χʲ3=-0G~~ZW92KMeԮIe{vKb]0jys(s/5mS@SRX$e6-/ʓ_A*̽ԴyOZVLJaQ^jڼ::nnZ)_'>yA6NTq2 Q^jڼ; l|w9dއ(s/5m qYϦ=;Nu|OuVrBԷVJڗ nTPzA[ $-ۊk;lb@[tV}*H@s$|OuVrBԷVJڗ nTPzA[ $-ۊkw$? [Kmooo^&}&/Z@xH$[  ^|I/HYcOJ~ ^֗7H; =ੌ2YS칤Ntq{::Ze2#M- \RకRHp{zj\%jsS2/E2ֿ%mֿP} ^˦/Kg//tt˦2-aTF{E::ZeF/O\q8Ʊ~6mU>W:סZ+s #1+{<ɡ2sК)D BGG_6 _"~~ZW}~;?#Av*#O'Bf?ƃO|\/Gxm)e)\Q1<⵬K"=5N^󅎎%eGLS^lJɚb%Hҋ"=5n~/2s=f;Ӫ? &=N=t×D&$ӪrIxfs MC eYS×0a=\v Ǿ#y2T Ue%.nH?aNvS4}k|ƞ24p5~.Ws~/DŽUw?OLNeg*Sf7 4zW@Nw*e)F-:0F:TF{D =" mY6fQ&%Kzw{V,O_Uy\}Ks)T=Y;޳bv9 O+B~BYu^u/M!z'n~̽"6U9y_󕿃_fX~+b6T^߻𞕒DŽUzAWN2uC22s|x{wY*MCeGLS |Dtq{:::IeiKxQۦdR7:qvch} YK |tP/O3ڇBf/OP8\dҸaQ^/e* iے~5pgW֟kecF{s㈫Kol [i^C=ǒc $q=DѸ 2nl [՞O=ñ~QF%/[l[Le)[l[x(0Fz\/[l({"@Fs)Ky\H/g%5O5;L?e^|ϥ\"%uעGg9e~ϥxp\|s5=+Eٞ啾_y=bV>=HOy Z|Ry\}zϥxp\sjgȾGcO+^y=b߮n{.ҋYIa#p{VX2/Rۚ{.ŃzE{.:ܳ"=" e1Y_3(sE҈^/ttte\XE)C֚ݸ~~,N2KAJ{aol [)]H$yMD|[\Ltq; 7XQ$Y9FX}^ QF*7* &=_i1LiWFz8Dϻ|S2G Y97 a)S(˺%j uc|cKJNkzk}AտC-<2 Vs@^Ir|>в\G_}*`0X2<ǞvYo!uz} =֚52ʤĸ. xvv*`Ce MCSAGj?g˳k@^Ce 4O wٵW@ 2vvX06}lyvk6fmJrEt~o2+sc>P+4V\/R,{.;ܳ:0{Us)S^=+:֯KQy=DwX2a$2(s/VԶik}3GMË%Hl%U7( \ @ ٵW@ sr*`Ceg҉r sr*`Ce)~˓3W|'KKyd- 4zT(="v6|`(whzϥo;=+'ӯ*{.Ş=bKq={V7t%qF'[Vy\]s)+RK{VRX{.Vs-KQHGDQhe^|ϥX\Z=VYz;Wy\KRl{.}R{V|Gz){.ҭs)o\g="X̋KKy\|[sϥ5Xs\2}9[42u*`52#bQhlCʷ)-62)1~\ h;o߳b0B02/R,=b_.k=+aaKs)dBY֭="F~(sBGG_6 o}=~gE^Xn_3''ʸZit(cKJUJe|PbUs6i?-Ab+9J<"WԶiLIum־gupehW{M[gKg,EK^5Rآ) ̅|%Ϸ nMyV+sXxa|%/^ [uW=<(sXxawYqHIWmv\\gMy]753tŚ\ky[~ռ{.E5o=֤W,=<3=ӷ=c-<3䞋k)eBS./ uEz^ ~tʸ%HloV{> Ǿ>*2R%>'^QQ`=qo[ y=2 o[1yh {*oV۵2H /Ɩ 8kmEh+Cs@ {HYUf۳}Iol [wXc'keJ$-{yR(3%'l-[[[xa|oK;Oo )n 6[J ^|K)}%j=_Xy=Y=kge*{.yyY}W\ YʼK^{.yV\ }߳s=ö{/ྕ|gv#}+Ɩ Y3^#(C’^Y[Ryo*H\RR×vt+ShQCBfzVMiqYI;4R@zWy=<)\|}ה\,(geS'A&PγxW@N 4zRF߳'=ϳ&KI)kҿtu^Z{|~֤'e;-z%/^y%}K/We-Ab+qr0e}־-sKߵTy]'X{fs=<_fvsɓJp[k祟gU2F' . u%AM{.yV+sll,($8sɳ*1ja%<~E8}<eU[= Weh?s=7t.{KWF;l-vV*Ɩ nUe/*~Q};Y{Dܪ2VR;N.O_ @^)cu{xB}X71''t)ek@^'|ǹ'X)4p eW<==X|{q^Pt%R']2L![bUԒfq .=Shl\|}/ɺsZ{0 U==S=\mJr%W+bYpg'R֤8ӗ.===!9F)sF=%jyžۚ)sϤlۚKo%=<3)!O{.W^ :/bkm53B{.yKWdw=#:K^^r&&t .X[SP.>t.SPX[ûm}SQRWVP..FFGG..$...!X^_ZY[ÿ2.t.OOK2.n t0.G u d[YSЊp3yCCa~6?U~Q} ȑ~Q1{IW+JJ /r߶NzJ1AZ˓L^e̡ /cϧس"zN.; cSyR}^!mkU'UL^2,$G<ezUƖ ַ+\{D OWOc8]ߓ6op('5ӵol [}UF< O - Open a particular library (i.e., specify the name) C - Close a particular library (finish use so another may be opened) A - Add a file to the library D - Delete a member of the library R - Reorganize the library njQRȋӋČӃ_3hZYw- 33SP&u&5njT&&E&E&E6a&<&D6Y&<&DÑ[_[S& &Ur3$]_>UnjsW&&]s6_6]&&\&D&D& &U&E&]<t&=&E&]& &U&Ua=w k=g('5޶j+=K)'5|x,{V^o]΢,{<龕Q&N7t//Ote=$~Q};Y{>KW&Pjx 0Oke|}O蝣k&_ @^<({8rZ~ ;sIFW3_3333>Ut&=ČӃ3+r;sȋ[&&U[&&Eik[,.;OqӇ5޶jָ$Ӫ{ZUF%/[l[L{Dշ2<_}U&E Ky\|V繃~Q/{{.Oߪ{.)KsZ{R.COUNTER%, CASE.COUNTER%):\ SCORE (VAR.COUNTER%, CASE.COUNTER%)\ = SCORE (VAR.COUNTER%, B%): When a library file is created (by being Opened without existing already), a request for a number of "slots" is made; this refers to the number of files which the library is to be capable of holding, and it will usually be modifW!tW.!uTtFʱ3H,i.G!$R2,!& u,.G!Z€kuփ$6, U]%SQRWVLW  _2Ҋ{}uCI>u9&&E&E&E-‹[22 ;tNOG3t5 @3}Hu u3 @_  Q# A# 6G" t3 6"t@ "2܊ȀË$;øu;u@ ;øu;uH Z[QLXQJS[Si[YuSr!gEt*s2< r ЊRZ uy  < r [ ŀt-j t yYKy t.It@ux, uðE++ yٰ-/ s:  >3u20&9Et&E0&E[S&t("4&E&E-‹`"Ë[ZS>,&E&;Es2&M;&E Ë[ZS>,&E&;Er&Et&M &E À>tڋ&t&&% t&}u us QRV!^ZYuW t& &R[YEEQ[Yuu5Q3EE3!EEIE3E5EEr1ËDEDE..GE.GE%UUU]]]Ë EDEEDEEDEÊE*DEEDEEDEUUUEUUËE;DuE;tF0CÀ=u 00CCuÊme,Mhìx-Sx9?+{Η@=u&E&;Eu@ [&E[&E23[S8>u->u#&#]&E-&E-&E&E&E[S&u!"4[XZ_S&t=PQ3"YZQR4ZY u$&E-€I&E-&E&;Ev&E >4!t [_S&;Ev &E&E-[Su*PruKt `sUr!ޟEu>urv [s[ÊuT2MLրÊE2DEyèttÊ:u tQ utyxy x EEÊ,wH<(s233u!M!] eV^ÀMVQ}^s uuÀeð2[D _S>uAu;u À>2t$r &&E[&&E ù2QS.:t [YFCYY<:u.CONTRMKBDLSTAUXUSR23[S>uI&}u#@>u8&>3t&u[j_SuW_ztԃ øK3[SuFIuPLXt3&E-ʱ3G%R>!.Z u &E-€o&}tLÈB>C[EYXSQ/B>C[EZXS&PcY>CWB2-+v G& :^[&u&u&5[.w.w.7[XYZ_&&M&UròC<tز6t6wË6gmtH ^uH OsH @vH 1wH "rH rh &Eu"&&}u&&}u&&E >3tlQeYu.W 3_[S&}u.&t>u&u&tu&Ï6W _Ï6>,.&t&}u &E8Ï6W _Ï6>,.&tCG&:t_&52G>L[NHJ@S>Gu;r#>H&mr>H38t-@>L&X62BvF[ڋ_[ڋ+[Y_㑌[_^;sNO[WUS &5GG_^]ZY[=|=%~PXi ǀu u2ҀXSQR3Y[XXQ*r"ẁs t@x ǀt3òy#ÿz[XS{c=tAEu?,P+> 3X8vP~܇*ò6 uÊ.r< t4<t<t<t< r:tC4xKP tW>,&}_t<uW>,_SQRW&E<u<toi<uP< r< uXN<uLC<uL8<uL-u&]2&A0<t&Ey& XÜWVURQSP~F &GG[]_;sò;|;ò +r=r;rò [XS6L tLޏ<tÏ^C User break2À>u !"».$.׊ I/O2[XS Z»h$ _&2=tľrWľr&E_&EXXYItz]UUUUvU^6GF2^6G ^6G^6G2=t^6G2P^6Y; ^6G^6G2䗋^6A2=*t ^6GW^6W^6G2H_W^6G2䗋PFF=t'~}Ӹ+U not found]nSF=uHPL34Y# u0 FP+P~"ӱӋFPuF]UUUvUHFFF;r|HPF24Y# u`>nWF _&2=tHP>nWF.׊ Run-time. error zTv, PC=_g Program aborted %R&ZCUU33ңnpW |rW~W_&~W_&EXX]UULP~6Y+}^6A2_&^6G2^6G^6G2^6G?^6G2=tN^6G2P Y+}8A^6GQ^6W^6G2H_W?_&YIt ^6G]~W~ P  ~W":P~m܈FF2=u~WPF2ܸFFF2 _&2=tHY u F FFF24u4Library is FULL7Ha~ @~W~W^6zҍ~ ( ~=u'*~Ѹ not found>nWF _W~W_&~W~cAFQ~WF2_&2PaPzdu+~WF2_W~WF2_&2- _&YItF]UUa~2 ( exits) : ~Ez ~W$]UUU?P~_=uHP*P~G=uHY =tF2P~Y; FdF2䗊C2=.t FHF2䗊C2=*t F,~WF2H_WF2䗊C2_&F2FjF2=t F2PYF2=tLF2PY+}(AFQ~WF2H_W?_&YItF < ~W}_&E ~W~_&E~W_&EXX}W}Z~W}W~Py~5|rW~W~&E_&EXXC^6zЍ~Ҹ added] UvU33ҋ^6Q^6S33ҋ^6U^6WFF2 ]UUFNumber of Slots in New Libraryh ( exits) : N=,~{+~/u~~ W~|F=u~ W~ &_&~ &;F| ~ WF_&~W~ &_&~ &F2P<]UUL~WٸPY+}HAFQF2HC2= u%~W~:يF2HC2P9ڱPYItF~W~ ٸ.Pڱ.ٸ P Y+}HAFQF2HC2= u%~W~؊F2HC2PٱYItF]U]UvUL^6z|)uW_^6Y$W^6z2P@Y+_^6Y W_^6YW_^6Y W_^6Y~W^6YW ] UvU~~W~ ~W33_&&U^6ćUR=u~W~&_&~ W~&_&FNew Library has ~ &P$ slots0AFF2 ] UUFFFF2PF;F|HY# uU~ WF_&2=?u0~ WF_&2P~WF_&2Y;tHFFU "0~ر؍~W!FF;r|HPF24Y# usL~W>nWF _W P =tHP>nWF _&2=tHY# u F FFnF2 u FFFF]UU ӹ-FFP33[YuF‹^6U^6W^6ĿQWF_&&UF‹^6Q^6S] UvU~W~W_&E~W^6~_&E~W_&EXX~>T~W~W3_&E~W_&E~W_&EXX~]UvUFF-FF24ug~ WF_&2P~WF_&2Y;| F2~ WF_&2P~WF_&2Y;FF2] UUPPY+}&AFQFH"C2PYItF.P P Y+}&AFQFHCFFF~WF^ыF=LF;F~ FFFF~ W~WF$T~W~WFAF+FF~WF] UULFuR ~F2PY;t/ User AbortFF2 ]U~W~WF2_&E~W^6Y_&E~W_&EXX~F%FF2]UvUPLF2PyFF2=uF2FF2^6~W~W P Y+}<AFQ~WF2H_W~WF2H_&2%_&YItF2PYItF] UU7UvULC[More..]aa~@P]ÃFp&7rWb߸: Max ~&PV8, Free ~&P~X&+EP/XXPtY+}AFQ>nWF _UUvU0~W~|~w}W>nWF _&E V}W~W>nWF _&EPf~"R~ ָ extracted]2[File(s) to extractP=֍~W~ju9:P~>׉FF F F 2 ][File(s) to AddP͍)W'ꍾ)LbuQ^:P)"Έ((2=u6zW)̸P(2Gα͍)WP(2zW̹"d獾)̱,͍FWSH獾F W~&2=tF2F(>nWF _ uS~&EPkPv@F2=t1\#F2PY=t ~ + |XXYItF* ]UUKUvU~ZFV~̋F=u-~W~ոPFֱՍ~WPF~Wsչ+P~FձոPFF=t'g~"ո not foundF=uHPL4Y# up~>nWF _ ~W3OT~ԍ~ձՋ'-L'2PFW9u獾F z~'ĆU‰BDĆBRP33[YuD[ľB 5ĆB‰>@ľB&‰BD>]UU~ W~ W~&=WF] UU|2 u=W_&2%=uHFF2 ]}W~W0` ᗋC|nW|׿rWľtW_&EľtW|_&ľtWľt&-_&EL}W/XX}W}W>nW|PtY+}OAzQrW>nWzFP+1P~ԱԋFPFm]UUwUvU>nWF _W_&|v-v(>nWF _ $F deleted][File(s) to deletePAԍ~W~nu+KP~ӱԸ }WnWrP}Hxǹ]]UUPPF-Y+}PAFQ~&=WF _W_&~&=WF _W P +YItF~&=W _W~W_&~W_&E ~WF_&E~W P ~WP Library open=Atg24uLNo Library openO`924u 7!uLibrary is READ ONLY$-=Dtg24u=No Library open924u sc!Library is READ ONLY=Ot'Menu-Pgm Submit Dispatch fff>#f*6ef0 0aaùQ Y[pf rf؎frf@ff fcf8fUXX]UUF (L~W~WP4uq~WF%~I~WFPFP~W~WFP)~WF~~{F F 2 ] UU~ W~~ B=uHL~ W~W;ܿ}WnWW!=Ct72 u  ?No Library openBS\=Rt72 u W`No Library open=Qt2 u 5m2=Qt鵿ary openBSQ=R:."2 u鋻W `No pff&w&WÀ>sft *sfQY6ddDofÀ>sft *sfÀ>sfvsf>tfOvtfO6sftfRZf>ufu4+9ufvuffufff=v-f+ff>yft[.;Pnff._B.aBfwfyff>ft Pwff>4uxŹ#iz] UU[l Library filePɍ~W ~2Hu2 u ]~W~ɱ/~W_&2= t~WP.P~h=t~W~.LBRɱȹ?~dqÀ>dtdP6ddVXÀ>dr%dd>dt>dPrdd>drd>dtd>dt ddOddd{PX`>dtd>dPrdd dd:aw.%u:at a.x9.z9 B@@.&rfuyffX.;>}ftonff0._B.aBf{f}ffv>ftP{ff}ffZff>ft Pfuf~JB@@nffuf>ftPfG6dd.YB.>[BRPQ=IB@@JB@@Y^.fB< uu@ W~W~W] UU1UvU&FnFF;tFFFPtY+}AFQ>nWF _W~W =FFL>nWF+F _W~W P=tN>nWF+F _W>nWF _W F+%.x9=r PPJPXY.>9u t  B@@`PQd=t= }ddg- PPdXPddP+ddT>dtd1>duofPIdd>du =udYXdPddPdPSdd=P@u@@tQYsGÈfff>f~>>f6>f|/>f'+f;f|f >ft 6f>ff6f>ffÈfڋ`tR>fu Sfy[ffSUf][fFFF;F~~W>nWF _W YItF1F=t]ÃQ[WName of New LibraryPǍ~W~,u.P~=t~W~.LBRDZǹ(qL~W~WvP64uY~WFĹ~W~u>dt[u=PtP"P;tG>dPudd0d%=pd -pd.dP+ddd[XSP㋇Ee[ád3d;d|>dt +dddS㋇e[Sظ`rd[PP`@tIBX@@`XV`@tpBdfC&&`6SFfffUf}][RSf[`ËSPX u[ ufQP$ &fXYQPff0 0ࣥfXYVRXS>ftD/ Ĝ V^$$CCNxuٱ~#~WFPFP ~W~WFPr.FFF;r|HP>nWF _&2=uHY# uPLu>nWF _&2=t~WF _W>nWF _ ߍ~W~#~@@`^^PQ `@tF`YX`P@u tXKB@@@gahaHSP. <.&<.<..<.!<.6#< IB@@JB@@LB@@@ B@@XÃt'RP X AQpY rGZ`@tB@sB@sBPkBX[*V`[Z^ðHKPX V^V^PX$V^V^Nx /CC uرň'RZ RZ$RZPYXP+YXÉfffffff<u <uË6fff\&f1InWF _&E L߿}W~W>nWF _&EP\(>nWF _ 0 copied to new libraryߋFFFFxYߍ~W~WFP~WFĹ`=Pr+;dsPd+X+dd+PԊ+ËbP.%$e뾊jÊ؀>\t1vAv'}"\:etee%tw rr QP+eeX*T&Y<t<teee`ee>eteeSe0e8ee؎r <9wFCIYÀ8fQf#t&fۍjʃvf.uftful&fYQZYDf``:t uBfeteeIe1e2eeeCFSڊBF[띹e؊SQKY[6e.%$ * ' 2 IJtH 4R q y  4tU9U 9integer multiply overflow.integer divide by zero.floating overflow.floating underflow.conversion error.floating 2&n7&FEE[K;s xX[PX[+S X[PpY"X2P u...!Y yBRXPX[#PXPX[ PX[3P&^EE&^EE&^EEP&^EEPp&^EE7e&^EE7X&vEEOÇ3@36g3ۊ㋇faa3**#f@tgg33f1#f15#fg7ágfg#f.%.%.%tC.&%jjv%*يtjh*uىuuGhdPssR t~@tjuPj@ÈjipXudivide by zero.int divide overflow.invalid fpu operation.invalid instruction.M .`.^M&~&=u&F&FM&|&=u&4 2u &F&F2&vEE 2AItDu@u DCC$u@<t2@\؃G#t=s33KvG#t=sU$]r<uU ]r&S&U]r&D#t =wtU]rD#t =wtUV]rU@]rrlU]rYU@]rt;?t3uko>ju uujujٱufkmjhԊj@Èxi`iju uu*䠺u$u*jQj>j[tri t%*D@h>ut7utʲ2ҋܾS&^ uEEU֊ @P&ut#uhhB<t=!ut3u>ut,t#%jj*ju jhÀ>ut4u&^EEuÊȏt2ACC&Y&ȏt2AKK7&ȊP&&F&^t@tG&vEEG&FE| w&^EE@ut$$uX[2C2܋CC[S =&^EE&&w&u' & u+pt2l&ut->uu&!uuuhuhfkjhÃtڊCÉjÉjûm>uuAjhj1P6j>jjX>utuukjQ>uuGj6j>j؎jhj<u>utuukj#uuuxB= u! & t=*pt2 x҇& t=>$ 2$   2A>.^.` 2@<uD"EytuٺD"Eytu;t̀KKt2& x."][Ë.&=&^G..&&..&&..&&.$.&&.9.&&.dR ZRZÊGoV$u2QRoFR ZRZËWR ZRZ u$<tËVÉǽډǽ&.QSRVWU]_^Z[Y.^.uu@u@>utuu4uuuuuuuuuuuut=Ȉuu:u/u;uu&uu:u&u:ruuuu>utuu>ur4usuut]j:hu>j:hu5h:ju,u:uu#>utu@tP=W9&FE&^EE xڨ un_O$t<t<u+@tu5W@t5W<t @tuuu5WW$uXH^NgƋ~XH^N'&FM>>>>>near offset: h in EXTRA, (see map)>>>fp status/condition word: h***uu<ttutu<tjhjhjhuuut7u>ut uɺZrhjhj'u<ujuu%j>jj@uu$QuɀtmYu؎j>uuu uu$áu+һ=r-.d.M&F8&F&v&~t4@t=&v&~&F&v&~t4@t=&F&v&~t4@t= &v&~E&F&v&~t4@t= &v&~Ì؎t&F&v&~t4@t=&FuY[;ٟ* END ARITHMETIC ERROR INFORMATION. ****.Cs2.uSf.P[.2E[AL.66HH.G(3.](/.{.}.u'C  PX$0<:rPRдQSRVWU]_^Z[YZXS[jˆu+һjjjujutHj;6gu$j:huj;huj:hu u:htWuthu<tlj6gjhjhjhuhuthu<t5uu%?>jj@uۄu .u>uuuu 3"tҨ tRE3tb$2@<uD"EytuٺD"Eytu;t̀KK&F_^M\}t3;vt@t`t.^.`J@HREX[X[z^_L; v Mt}Ì؎V&^EEw7HX**** RUNTIME ERROR DETECTED, INFORMATION FOLLOWS. ****>>>fortran runtime error: >>>last IO unit to be used: **** END RUNTIME ERROR INFORMATION. ****Pdrw..@uX..XPR.6.H.G< < vAHO  D ] p      Is16= Y sJ d q &^EEwww74&^EEw7$&^EEwww7X[YZ_]MUX[_]copyright (c) 1982, small systems services inc. urbana, il. all rights reserved. XX\&nn&nX tEE&FE<w X "<u GGt $ ZX uP.X.12 .3RX u t.>t .QtY_Y pause hit ENTER to continue.4S$.X. < uRщ+ZQ YBLOCKED IO OUT OF MEMORYFORMATTER NOT LINKED1YuJ-uFP9 Sº  [(sQ߽;`2YuR_u u7r tKKt2$u]'m% tE.$tC2u1<߽J>߽E% tM%]'C]'<tà$uE%M']'Y sSSYSCCCC[KKfË rًË]I^S]هڋ] ñ83D\t-=t+=t*=} =~"ވE]5ð鰁D\4մ-=t3=tREAD ERROR ON UNITWRITE ERROR ON UNITBAD UNIT NUMBERENDFILE ON UNITUSER DEVICE NOT DEFINEDIODISK NOT LINKEDCORE IO MUST BE FORMATTEDFORMAT NESTING TOO DEEPINVALID CHAR IN NUMBERPRECISION LOST ON INPUTILLEGAL WIDTH FIELD IN FORMATWRONG DATA TYPEE& uô$CM!wàt E&-߽>߽E%M% t]'C]'àu4/ډ]'E%qu <u F& uuÀ>u3Çڍ߽ڊXu3SR#Z[YQItBڊ0uuYU [벇[tÇu ] P6s"a" s"6a"tUˋ]^QRzM]Zt9QSڊB[Yu^Kt^Y[ [[VN^FF tFn^^^^E6V+VN^FsځVuNJ݊Ίs^8u N6vF^NV됋 t<#y ؁u3u ԊKs]UEË\ݱxU}bLt<t<t$"u{M!Q"#P$XY;M!tn uñXS uñ<t<t>$"u:$E!c/CR uñR/?Zû ڵCu|YunusqQ¢ ߽[[WڊPtUXußPlSCCCCC]SًMY t S]Y[Ç[ںt]uJS] t#r]ڇ[ڈS [r[Cu[}QM{ZuË]وAM_ WMNtPMÇb[rtQ_Q  TD| <$ Ċ֊tu"y؁33ҷt"ø"y@*ÁFsFuFuFF tFFF=~7=}5FtN2F4EF^NE] E%-D%-þB RPB B:uLC:tT"uo"uŢQ Y"C Q2 Y"u  6:uC:tC ݋뿻+ډ뿋뿉"u QP YQY"tA+y !  ߿+u߿b<$t"u x(!3  u x+-? * uÈ.SQY[Kt"tSߠ"t< u=Ţ"uû< t< t2CԠ"t뤠"t 2 À> u"t ; XZB R FFuþRs BuBuBFFGG uËGW/_uF ^VNNNð n3Ft*M]] uðװ3ϰ>->.P uQSW _[YI  T#+uË  Ë翍#ڊ2=< t #ڊ2< x뿹 ËЉΠ"u !뿉뿉 : 266766X766776X766776X76677_7X77"t2 t'2<+u<1t<0t<-t)' < t< t< uCް ӋùrٷÇ옋Kχ@χ΋Ç΋Ç΋χ·ڈÇ·ډÇΎ&·wΎw·&ÇdqΎd·^PXCC2C$u0<r)<3s%77 uI< uU+uË]ڈBU=]$u<r<3s kfˋ]I  uIC4  uIUÉWË+ډ.J6< t<0r <9w.J6<uW.V6.b6UÉ.n6s.n6rtXv<u +ډxU+ه+ډݽ"t&.P&. ʠ"uıje`1UC&C𠱾"t G.."tf6>t+tx\ALË\+rt\يA ÇS[ލt*RSW+s[Z+r هډ[Z[ZNËɽىɽ+stñv߇otSO[ kUÇڻ+xލڠ< t<0r<9wusK4"t]F2ڊ"uЍ#ڊ¢.86..$0<:r"tSRQNYZ[SRZ"[tZ< u0JCu+tr"utSR Z[KRZ)SPQ2''KuYX[ "uJuР޽"uS[<"u*<t2ЋKRjZFtTËuSr2222212222222234334l44595556622222222334 OދKڊÊطFڊ؉Çڋ߿وC7ËCË߿C߿ËCË!+yڊ< s.w0.# u ߿s< tzC㿋ݿ+x"[tKݽtDW+ى+ډcMC㿇ڍڋC῍ڊ2!"u:u.:Z uZ[+ډûSKS"tn< u0<+uv<-u i<:s>,0r:طZ q q>t=tYAQRK u.#"u2#뿉뿉t뿉f뿉X'MDE4>ݽuӃ>w >us>ݽt&.P &. ΋!+xKڋڻ+xIډڋCݿ[f!"uZY@ZY"u+ډZËK"y"0.àY"uډڋK+ً+JxB+By.=yJyC0ۋKyÉڊ0RZB+y؋t +td+x5뿉 "+y 뿋Sڋ[ڋ뿉C鿉"uQE YQ Y"uA+yA K+yru u4  ! ! " " # # ;; ;!!;"";##;$$;%%;&&;'';((;));**;++;,,;--;..;//;00;11;22;37 Dispatch.Sub˻Menu.Datѻ Menu.Dat¬׻¬1## 3;44;55;66;77;88;99;::;;;;<<;==;>>;??;@@;AA;BB;CC;DD;EE;FF;GG;HH¬1##/*Exit to CP/M-86XXxJK msy = 1xxX%`%;II;JJ;KK;LL;MM;NN;OO;PP;QQ;RR;SS;TT;UU;VV;WW;XX;YY;ZZ;[[;\\;]];!OUC[agI¬(A0)(1x,A1,'[1;1H',A1,'[J',A1,'[3;4;7;18m', ' Menu 1.00 - Global Solutions Enterprises - All Rig', 'hts Reserved '/1x,A1,'[18^^;__;``;aa;bb;cc;dd;ee;ff;gg;hh;ii;jj;kk;ll;mm;nn;oo;pp;qq;rr;sm')(1x,I2)(/1x,2A1,'[17mThe menu file MENU.DAT is not in ', ' the default directory;'/ ' Please create it and then re-execute')(/' Execution terminated; control passed to CP/M-86')(/1x,2A1,'[17mThe file MENU.DAT contains no recognizable items')(/1x,2A1,'[1s;tt;uu;vv;ww;xx;yy;zz;{{;||;}};~~;;;;;;;;;;7mIllegal syntax for menu item no.',I3// ' The line is shown below:'/1x,A0)(/1x,2A1,'[17mThe file MENU.DAT contains too many items', '; 32 is the maximum') (/1x,2A1,'[17mToo many lines for item no.',I3, '; 16 is the maximum'/' If more are needed, use Concu;;;;;;;;;;;;;;;;;;;;;;rrent CP/M-86 ', '$Include command')(/1x,2A1,'[17mNo lines found for item no.',I3)(/29x,'Program Selection Menu'/)(1x,A0,A1,'[21m',2A1,'[18m'," : ",A0)(1x,A1,'[5;1H')(1x,A1,'[40C',A1,'[21m',2A1,'[18m'," : ",A0)(1x,A1,'[',A0,';1H',A1,'[K',A1,'[18mPlease Ent;; ;;KKKQKKK2K}KȤKK^KKK?KKզK KkKKKLKKK-KxKéKKYKKK:KKЫ '(er Selection Code: ', A1,'[21m'$)(1x,A1,'[0m')(1x,A0)(1x,A1,'[2J')(' Submit Menu')(' To Get Back to the Menu, Enter'//' SUBMIT MENU'// ' at the System Prompt');;;;;;;;CEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcde  h Ĭ%)8; ; ; ; ; ;;;;;;;;;;;;;;;;;$ ;<=CCȭխeiuu55o@@WWQQ;.. B%%b,,OO±  %2MMBaZ!l!!""Ɋ"Ʌ"""1#O#W#`#m#Y-_-e-k-k-5-t-z-ɀ-Ɇ-Ɇ-.-ɝ-ɠ-..1.G.A.;.;.i.o.c.].].0/f////Ɍ/ɦ///z/0|6ɞ<;,:i=>>?*?4?A???N?^?q?4cfcfcfcf?ZD {f?fWffZd 1cm ~ 5x ~ l {lE Yll'ZffZAK Y{5 9f9fZ 9c 9~ {9ff{;ff9f;f=Z =;{f;?'Óp {ll llzZ`{ .{(NI~Q{̬٬۬ݬ7{1٬f٬fZ{~h{쬨[ffZ~.f٬a f٬纨a f٬ f٬Żfff۬Z۬7{1a{ݻZE~\ f f¬Z~f f٬%{ f٬Żf ~f٬fZ1~7 ~S {llj9 f;f=ZS ;;?{llj- {Alqf?CfA{lfA! T c WWWWWIKxI L SxIlzZ ~ xIlUZ ~L SfIlzxI9 ]xIf]WeZ ~2 fIxIf]We9 {KfKf]Q_~٬'' f'PŻfZR~2{f٬fZAcj~٬f٬{ f٬{ f٬f!9'f'U{ZEf٬{ f٬f=Zf۬f?ZQ~{ fAf۬f3 'DI{Nf٬fPf٬f=Z~T٬'f'纨[fZ fS> ~P fIxIlj9 KKfIlzxI9 {KfK?K{fâ {{f?zsõjk}ff}K {slslk- ffZA ~ {klklk- {}f}f} f{ {slzls9 {lsl- WffZ$ c- ~d   >f'纨R^{Nf٬ff3fP٬ f٬f=Zs{ f٬ff3Y4. '`4{cff'Ucff'U纓.|f٬f=Z~ g4cf.٬ 'n4cfcff'Ucff'U纓.u4fN.fNf|Z2{~a8 ~hiH U U {iBYiiZffZAKu Y{pffZ c ~ {ff{ffffZ {f?Ó0{iiiiZ ~{ii6ffZ{ii*{i14&?/?MZ?= 4cf{cfcfcf.7{1{a {[fZc{[a {{ ZecQ٬'f'f٬ZcQ~{{Ze{{ZeK~24cf.4.~{f'UZe~4cf.{ f'PŻ cN0~ff{ifcX\`WWWWWu#uiZ~uiZ~#fiu6ufSZ~fufS6{ffQ~f~fui6fiu6{f?    !!     "#  "# EL{ƭff'%ɭ=fƭfZAQ~!{ӭ֭=fӭfZAn~{!fӭfa {fӭf[a +{ff'%[ff'%fƭfaff'%fƭfa Iff'%{ 4ff'e.4.~~2~%4cgcf.~,fâDO{f?õýffK{ii*ffZA~{ii*{ffif{ii6{ii*WcX\`WWWWWu#uiZ~uiZ~#fiH?LL!LHL HLL HL H HALLHHLHHL[LLr`CS<<X 4lh@,8 S<;L.0S0D S<<<VV[S<bj:"c^9B-_mLiLYDZDkLr<<5Snpd0D<#H <n5D5D5DS<<<SHHHHHHHHHH  4cgcff٬{.~34cgcf.~:4cgcf.~A4cgcff٬.~H4cgcff .~O4.V4cf.{]{aꅩ{f[fPfZfPfZKAfȊsK$ 0Êyð0'<0sà uà tà,t ,t,tð,PQRZYXà uð-Ã>tUP tBCC t+۬<#u"<sXtȾ3><'<>uY5"~* t/KK/xùFOv]q%uZDS u0E(%Ay-Ax>C<3#6<B*/F/F/F/F/F/F//sSCŋCBuZ)C7àCt:rR( K[t<"u#:uúX eSRޞֈZ[ÊSQޞֈY[SRޞZ7[S St#RCCZYS/CCBI uZ[C7SxB tQRޞvv_\#=y.jP3P P/ QK\ !3%غo%xPP9'3;y{~PP6<'3>t#떋"W@[ $tF#*''JuBBӋCCCCӃ t-%:u:u t2r ðÇ ^W P.$YQ S[^s P.$CC^Dir b Submit Menu |X*d*Ë*Ê[Z*Z_YQSCCӀ t[/-,2CuK2+.V< t<+t <-u.B'3;y>uN PP&$uxI"=y"$u3$u3>y3%$3@='~@9}(غ$PPd%#PP%Z##PP$Z#CC ^CC P.$ -N2$2Ȫ%þ#"2$2ȪF$ Ȫà)<s t"yÿ)N-yȈ/þ)Ê'P'rC'$'F#á u' Ĉ#<0t<.u&+sТ+<uf <0uޠ.Ȣ.u# ?#t6#Wypj*aGäÿ#'''''''ËCC$g8/)#H# Y_ +#  &6PP#غ"cPP#غ"P3P P  nY؎fË+Ntx@@H#2&? ?Hఙ'y@#+S[̡ u +-.?Ë uK[XS$v+ y؀r *tyúډC[[SSCYZRQ)XE u2Ft u$=w tSCCЋ>57>3ʃwl 3/ u\>u, t2뺀>Uu<.u<*u>t'U?Bt[[r;sَЋQ>ut >*+II +[ F00-r3 t%< uFtNV@P@ Y^-Gá*+Éáà*á tPGùZD t & Q ZRU u YEmNNb<#u~<$u|<$ui$b<*u d<*tT*<.uU<#.u2Wg<-u"?<#t<.-u°L2WHL<\u thN N<#t<,uVW<.uF<#uH<^uJ<-uM>c>2t FIV XZY[PSX [225rVtOVtO > t+G!G.f Sr Yr tXE黐6 EOt[V~ XZY[PS [2`2 r u:tO GÉWډtŹMOKK6;r64 t;r;u L7E;t u.IK7CuW tȢOL tL tJ Kuc,@t s2IW tIV tű<r,ŊW*ŢOyL%W2VLMc&%WI,@*ňLڻM ڰuUt IOIHJ u KȊ*C7 ¹UFuډ㹐ٞC7ډ8 ܞ $ rBRtUR ùRIuK&ʋЋ$ÊذNJKSЊЊЊЊRZ!وC7$[YZQs+S܉[SRh* OËM+Wr;s‹ uÀ>0À>YQ󥥥ËFFFF| ^rO c w | >>/uÊ u ->0*xS+1[ +ߥ>0 t@yـr++$<s Q*HY <s0*Kusr* tO u*ML uVtQI tBW<s8-6NȊ<*t<$u$ ML utt^WW u<tL t t u #0 >#^EG7,@KZuRB>T*} ZtS+A+jXYZQ5s+S܉[S+A ZuB+.>G!G0W> u WtqH%&&s Ar<tV< tË tERCCt*Qـ"Y*+2x,s)" 2m#,r /FO**/G/G+$>"Pu><r"<Pn t u$0E$,@y ??vCS>,W#^B><*[CS t8P$t% J< r t K/IŊȻ#2 Ct$tHТFI 0uc>ȻI yIq2VFȰ.slEF t?J uKH:s2*ŢH/> tHx)HJ t@EKE u y-ЊПB[C7à uȢC<0s<:s$ÊC7*ŠƇsyÊ uÊshûlmٞڞڻ}ޞ֊r u1P r uEI/Z vrƹXEtËӱ% t u$=w tSCCЋ>$Et>Tt=SNSCC>Eu! t CS[J[ uÊr4T uYESN:RډPb>ʃwl / u\>$u, t2뺀>u<.u<*u><t'?B<t[[>t FI XZY[PSX [5r$ޞ։8[^RS[:RFt#$[t?$ޞևڋBCu;$0)$+S><[($G ?G?P$xu XEZSt^l͊LQtð РB t yE tà,usP XĞuE tà ۹LTu` u*ruS[*u}B:ußPtgXĞBû>XȊsKX$ 0Êyð0'<0sàVtOtO > t$+G!G.f Sr Yr tXE64 EOt[~ XZY[PS [` r u$:tO ^tUP tBECC^`Z\ t+۬<#u"T*} ZtS+A+jXYZQ5s+*0YI$+-X1U& rT$2b߿(6$$7QR[4$ FDuX(>1u t*@(>$$ É4wtùFN[Hߋ->&+AË+C9-r+RSSQڋSQr)x'SCCߣ>ZYZYZ[[>à LSSRډCEuSb<#u&2$G!G0*1> u tq*&H/%-/&*&s A+*r+<tV< tË( tERCC8/ڋ+C*Êr+*rG}6+*à*$ t5 t9Sڋ;_uZ[R[tr 2ðVt݇Lև;t#SR;rg[ t x؀'_St *[P;XùCA[TSދغ YKKá  uQKKXY[Q x*S;vSRCCދأ>ZZ[>ùSS݋Y[Q xS+v)s   t | u n ux2lȊл u< t<"t<,t1<"tsn<"t2<,tW¶띋w t2طCCSCŋCBuZCt-+%SQS< t[Y<,t$< t<2t/C܋( Qu0Y[û< tH<"t,"2< u < uE :t$< t*CuD< t<,u ( u%> u t t x u"SRCCXދأ>ZZ[>X tuXZ[P x t uuj+SQ8J+v)Z;sSRCC݋أ>Z)Z.[8>>[*E@I'0*SCC݋ZSʺ@EX< t*Ë t# xSta*:s'_C7àCt:rR K[t<"u:uú@ eSRmޞֈZ[ÊSQޞֈY[SR}ޞZ7[S St#RCCZYS/CCBI uZ[C7SxB tQRޞ[CS}[Sk[Jú t 7CCSޞRSCC-؉Z7CYZ CBI u tȺCBu tGS( ÇڟJJ[Su [C7C? t /C;Yt-Q[RS(؇[C7Z7C RS[ZCJ urXSQCCU݋ZZSXHHÉMYCGQPMKACMtBE9M8G:t/ىI<\uKFKACS"[rK;E~+SG)C"XÉPORP;E~ËRG,\O u sPRI@;RsËRGCPC'O?ˋ*rDO[[/CCSޞ։[u< rP|X*d*Ë*Ê[Z*Z_YQSCCӀ t[2CuK2V< t<+t <-uB<0t<.u&sТ<uf <0uޠȢ0 ؋siVRڀ>0u2Z[sGW_tWàEr"S0[S EȰ"rC C ES s.: tKKS [K u r% 00om3ҹڹm<vHMӋCC*&*՝wAË㓖ѱ 00B>:^PSRڗ߸-w -wAÊ" uH+GZ7 t-PR \ u ZX€dױ_ױZױ3USA 1-301-344-9156H=Dave Hardy 1-313-846-6127I=Wayne Hammerly 1-301-953-3753J=RBBS Pasadena 1-213-356-1034K=David Kozinn 1-216-334-4604L=Program Store 1-202-337-4694M=Kelly Smith 1-805-527-9321N=SuperBrain Sys 1-617-862-0781O=R.L.PloufO*_ ERROR $ AT IP $2 ERROR $ AT IP $@PPimproper input - reenter $OVRCMD+------KEYWORD VOCABULARY BUILD/MODIFY------. fe 1-703-524-2549P=K.Petersen 1-313-759-6569RQ=Bruce Ratoff 1-201-272-1874R=Mark Pulver 1-312-789-0499S= T= U= V= W= @PPimproper input - reenter $ BeepFile.Opt BeepFile.OptBEEPPAUSEP BeepFile.OptFF//:: [21mDate: Time: [0m[21mPress RETURN To Continue [22;3;4;7mA Beep (Beep/Pause Program) (Vsn 84 1zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz.VOC.VOC.VBK.VOC.VTM$DO YOU WISH TO ADD OR DELETE (A/D)? AENTER KEYWORD NUMBER: KEYWORD VOCABULARY FULL. ENTER KEYWORD # :  *KEYWORDS MAY  X= Y= Z=  200$<$<f Set Up for: NEC0225) A Global Solutions Enterprises All Rights Reserved [21m4Use BEEP to Sound Bell or Pause in .SUB Files, e.g.,"BEEP 10 (Sound Bell 10 Times),BEEP P (Wait for RETURN to be Pressed)*BEEP 5P (Sound Bell 5 Times and WaNOT CONTAIN BLANKS. RE-ENTER.VOC SORTING...& KEYWORDS WRITTEN TO VOCABULARY..VOC.VTM.VBKVOCLSTFILE WRITE ERROR.VOC.VBKVTM PRESS RETURN TO GO BACK TO MENU BIBLIO.BIB.BIB*MODIFYING KEYWORD DESCRIPTORS IN BIBLIO...FFF  Advanced Personal Computer on standard serial port ðv/.F ڋ++2!22@2 N2'2ÐS` UART/Modem Control Current settings - { Enter choices below - for no it;, Note: #Beeps Given Before "P")[18m?Use BEEP Interactively to Enable/Disable .SUB File Usage, e.g.,.A>BEEP PAUSE=ON (Enable Pause)BEEP BEEP=ON,PAUSE=OFF (Enable Beep, Disable Pause)A &change Y HBaud Rate (110, 300, 600, 1200, 2400, 4800, 9600, 19200): ,[ Y!110s`N!300sUC!600sJ8!1200s>,!2400s2 !4800s&!9600s!19200s sN..Y  Word Length (7, 8): [ 7s 8 s s  (Note: No Blanks in Command Tail)[17m@Caution: A File Named BEEPFILE.OPT Will Be Written on the System; Default Disk if Interactive Option Setting Is Used[0m BeepFile.Opt .V Y H Stop Bits (1, 2): R[  1@sv 2s m s c.W Y  Parity (None, Even, Odd): [ 3 NONEs$' EVEN0s ODDs  s .X . V . X . W . New settings - [dpWord length is .V <u   % MODEM 9.01.04 - 24/Sep/83 CP/M-86 version by Michael Mellinger and Bill Bolton Useven Ieight@, number of stop bits is .W <@u onetwo , parity is .X <u none .X <u odd even .$ .V .$.W $0.X ++ Incorrect entry ++ t@  @ %2. t'bCarrier 4STRING #0 at 240HSTRING #1 at 260HSTRING #2 at 280HSTRING #3 at 2A0HSTRING #4 at 2C0HSTRING #5 at 2E0HSTRING #6 at 300HSTRING #7 at 320H$uPnot Hpresent Ì.&I.(I[؎м&ISyog.&D.eC.Cc.fC< tUm u .C.eC.eC.<t RSZ WRT - Write memory buffer to disk file & Local Commands while in Terminal Mode .  - Exit to command mode . tu.! - Transmit string Must be followed by number of string (0-9) or L to display list of strings .<rCt.<r0g8 0 baud 11306012244896192. uf.. uCRC mode set Checksum mode set . u..J.tBackspace is rub Backspace is backspace .  u. cUse .  .uZõuދ.eCt/ ** There may be text in the memory buffer ** ** It will be lost unless NOL or WRT commands are used ** .ȻQ KuuuuCC GnCgC<.C.C t Single Letter .t."8 - Toggle printer Z.% - Start copy into buffer .# - Stop copy into buffer Start & Stop may be toggled as often as desired. A ":" at start of line indicates buffer is open. XOFF automatically used to sto&t? before local command # to send local command to remote .  uX.Linefeed . uNOT sent after .  u. BLinefeed .  tNOT sent after in terminal mode file output . uCommands H - Display this information ? - Display current settings T - Terminal mode E - Terminal mode with echo L - Terminal mode with local echo For capturing text use T(or E or L) FILENAME.TYP and Start & Stop toggles descrip input when writing full buffer to disk, XON sent to resume. .$ - Transfer ASCII file to remote .  .&u3 - Send local control character to remote 7 - Next character will be used for local control k Drive ARUse XOFF testing? (Y/N): @r.m. u..CUse XON waiting after (Y/N): r.g. u`..oJUse echo waiting before transmitting next character (Y/N): r.!. u..bed on subsequent screen. R - Receive CP/M file using Christensen Protocol S - Send CP/M file using Christensen Protocol Command is: R(or S) FILENAME.TYP R and S can use the following subcommands: B - Bulk transfer using wild<tPN, User XZ.eCu - bytes of buffer free COMMAND (H for Help): CCACPMr5LOGre)DIRrBERArpDSCr?rc SPDrFOPr? TIMrTCCr\TBRrTLCrTLFrIWaiting for character echo . u"NOT used in terminal mode file output úC.C< t. u}_.eC uh.D< t`Dl .eC.CD .C.>eCt3.D< t+.C  ) .eC.CDq .CE++ No File Open ++ )/C:tuHIT any KEY to CONTINUEt.tm is initially executed. 5 Three Letter Commands CPM - Exit from this program to CP/M DIR - List directory and space free (may specify drive) ERA - Erase file (may specify drive) LOG - Change default drive/user (specify drive/use.%D<r.C< t7.C< tȊ<rqQbY:tZ Insert disk for drive .%DA Hit return when ready# < u .%DG ++ Terminal mode file open ++ ++ Use WRT or DEL before LOG command ++  ~ wu@ Current Settings .. tc :HTerminal mode file buffer is .eCtinactive Unused portion of buffer is 2 bytes .t~ .R .CÊ؊NJr) and reset disks. e.g. LOG A0, LOG B (user unchanged) FOP - Display commands for setting terminal mode file output parameters .t8DSC - Disconnect the modem from the telephone line .u+zTIM - Set S mode time-to-send messa 2C\ >] u\u+ ++ File not found ++ \ File erased . u>u ** Disconnected ** ] Enter character output delay [0(none) - 9(longest delay)]: Ks.[} Enter additional delay after [0L Commands for Setting Terminal Mode File Output Parameters SPD - Set speed of file output TEF - Toggle transmission of end-of-file character .  tLTSL - Toggle stripping linefeeds TWE - Toggle wait for character echo .tFVge . t/GTCC - Toggle Checksum/CRC mode on receive .t.TBR - Toggle backspace to rub conversion . t]TLC - Toggle 1) local command immediate 2) local command after .&s .  t6uTLF - Toggle send linefeed aft-9]: s.iCZ .C< t ,0< rXz" Terminal mode file output delay is 0..X seconds per character Additional delay after is 0.. seconds < s0 Sط" [. tv Use 0-7 to give baud rate for STXF - Toggle XOFF testing TXN - Toggle XON waiting after .End-of-file character .uNOT sent in terminal mode file output SL Library of Phone Numbers of Remote Systems *I"ڈBCC CCer carriage return ?NUM - List remote systems . t#SET - Set communication ports  The following are terminal text buffer commands: DEL - Delete memory buffer and file NOL - Return to terminal mode - no loss of data in buffer  mode time-to-send message, where 0=110, 1=300, 2=600, 3=1200, 4=2400 5=4800, 6=9600 and 7 = 19200 baud Enter value: <r'.[. u: Rate for the S mode time-to-send message is set to  Modem speed is û.ڊC& t" ڈ CBð ڈCCCð$ڈڱ *I74[< t< t< t< r<rP( X)QRSб[ZYP  XVQRSPX[ZY^QRS2)&[ZY QRS2<&[ZYQRSѱ[ZYQRSc&2[ZY  TO QUIT: CúCD+úDúDõRzZ<u . uÊ<u t<uCuP. tu.  tXP< tXP.'D. tX< t. uh..C.Cð.Cu2.CÊ2õ 9s<uÊ. t<u.gC t< ++ <t HNAK received not ACK - .C.C< s.gC tu Can't send sector -- Aborting $.gC t] ++ Tt q lgv#_OXZRB#I9 uOB3u>'2, ZY[XĞZ[SR/CC Cu] u<QPr*6.C|.C urdr ..C;.mC u.)DrsB.mCX ]< ud,r.mC t!File open, ready to receive .C uC.C ufCRX[Awaiting initial NAK b<u1D t < tÊ< ..gC t <t(\2 ++ Checksum error ++ ;[ò** Entering terminal mode ** -File open: .C ( Hex) Records Send time: .лd=ڊC7.CSj mins, x=.ڊ[jwtqn: secs at To cancel use ctrl-X  0`J3&! C0zK = .C<u7* null string *".C<t< t>u S [C9:t.C .C Enter number to transmit string [.Cs.;.C tPrinter is on Printer is off PwuXي.C u.C t }<uu.C..D]*.*D\D`1 r%f$u.*D\ڵ ׇ.*D.D0Duû*.*D..D>8/)#H# 06 x+#  &6PP#غ"?PP#غ"P3P P  غ ڊ$u C$uKں] ˻e'C'\\l ˻uBCACKll\. t\tû\ Cut >*+II + F00-r3 t%< uFtNV@P@ Y^-Gá*+Éáà*á tPGùllowed ++ D No file specified ˺\tError - Can't make file Directory is likely full $#\}.C}2h\uBCan't open file$.gC upú\tCan't close file$.Cx.C.C.C<uñ*IQ-----------------------------------------YBOARDYFEEDYPLANNINGYHANDICAPPED SUBC/-----------------------------------------------, ANOTHER PERSON? (Y/N) %ENTER THE NAME OF THE PERSON YOU WANT USE CAPITAL LETTERS OZD t & Q ZRZ' XHHHPX HpyPX$'@'UÉ+ˉOrNˁsFs t(W+rw>GÉWډtŹMOKK6;r64 t;R\ZY tt+++ File read error ++$ڇ0À>YQ󥥥ËFFFF| ^5r55O.c.w.|./uÊ u -0*xS1[ ߥ0 t@y*Iـr$ s Q*HY t*QـY*2xs) mr /FO**/G/G$>Pu> r<<P<n< t u$0E$,@y ??vCSW^B> *[CS t8P$tȾ> sXtȾ> ' uY5~ t/KK/xùFOv] q   %uZDS u0E(%Ay-AxC 6 B*/F/F/FFo )/F/F/F//s6 't떋W@[ $tF*'JuBBӋCCCCӃ t-%:u:u t2r ðÇ ^{P.$Yss\("=y.jP3P PS 4uo 3$غ$xPP]&3;y~PPQ S[^P.$CC^CC ^CCP.$ -N2$2Ȫ%þ2$2ȪF$ Ȫà<s tyÿN-yȈ/þÊ'P'rC'$'A&3;y>ur PP &#um!=y"#u3#u3>y3%$3@='~@9}Ձ>u#?#t ' Fá u' ĈGäÿ'''''''ËCC$G!G0> u tqH%&&s Ar<tV< tË tERCCڋC*ÊYQ󥥥~tvËfË+Ntx@@H2& Hఙ'y@#S[̡u -Ë uK[XS$v+ y؀r *tyúډ[[SS/CC QS[YCI u [Mc])s  t | u n] ux2b<Ȋл u< t<"t<,t1b<"tsn<"t2b<,tW¶띋cw t2طCCSCrrG}6*à$t-%SQS< t[Y<,t$< t<2t/C܋ Qu0Y[û< tH<"t,"2< u < uE :t$< t*CuD< t<,u  uYZRQ( u2% u YmNN2<#u~<$u|<$ui$2<*u d<*tT*<.uU<#.u2'g<-u"?<#t<.-u°2'H<\u th <#t<,u&'<.u<#u<^uŋCBuZcC7àCt:rRb K[t<"u]:uú@ eSR=ޞֈZ[ÊSQޞֈY[SRMޞZ7[S St#RCCZYS/CCBI uZ[C7SxB tQRޞ[CS%> u t t x uJú t 7CCSޞRSCC-؉Z7CYZ CBI u tȺCBu tGS ÇڟJJ[Su [C7C? t /C;Yt-Q[RS؇[C7<-u3 u.7Cu' tȢ t t uc,@t s2' t& tű<r,Ŋ'*ŢyL%W2&3&%',@*ňڻ ڰuUt }[Sk[ڋˋ*rDO[[/CCSޞ։[u< rP|X*d*Ë*Ê[Z*Z_YQSCCӀ t[igf2CuK2ehV< t<+t <-uhB<0t<.u&eZ7C RS[ZCJ ur S"?[C7Ë uEN< u;r$<RWuPڋ*ÊЊNJP  u"HXĞuXr" ùWDuȊr< ußP u Ȋ*<s0Kusr t u* uVtQ tB'<s8-6Ȋ<*t<$u$  utt^W' u<t t t u #0 sТe<uf <0uޠhȢhàr"S0[wȰ"rggws.  t^7,@< r t /ŊȻ2 Ct$tТ 0ucȻ yq2&Ȱ.sl t? u:s2*Ţ/ tx) t@يȵه$4sk tЊЊПB[C7àf uȢfC<0s<:s$ÊC7*ŠƇsyÊ uÊshû<=ٞڞڻMޞ֊r u1P r uEI/Z vrƹXEtËӱ% t u$KKS [K u rڻ0ڇڹ!ًCBK$= ùFEu2S2C7 ¹UCuډ[2C SڊC? [tC*ÊsS2C7E u y-ű/, y  0 t 2 tàú u>t>$t=SNSCC>u! t CS[J[ uÊr4$ uYSN:"ډ 2oq>mʃwl m/ u\>u, t2뺀>u<.u<*u> t'?B t[[>lt FI ¹UDuqډ-2qڻޞ։[^RS[:RFt#[t?ޞևڋBCu;0)+S> [(G ?G?Pxu XEut tð Р t y tà,usP XĞu tà ۹LTu` u*ruS[*u}:ußPtgXĞû(ȊsK(ꢐ XZY[PSX [ll5rtOtO > t+G!G.f Sr Yr tXE6 EOt[࢐~ XZY[PS [l`l r u:tO .tUP tBCC.0*, t+۬<#u"T( VNB u߁wS;Sk;*0YIXU rT2b߿6$7QR[4à FDuX>u t@>$ ÉwtùFN[Hߋ>+AËC9rRSSQڋSQr)x'SCCߣZNote: No Blanks in Command Tail)[17m@Caution: A File Named BEEPFILE.OPT Will Be Written on the System; Default Disk if Interactive Option Setting Is Used[0m BeepFile.Opts) mr /FO**/G/G$>Pu>r< P n  t u$0E$,@y ??vCSW^B>*[CS t8P$tȾ>sXtȾYZYZ[[à LSSR t5 t9Sڋ;_uZ[R[tr 2ðVt݇Lև;t#SR;rg[ t x؀'_St *[P;XùCA[TSދغ YKKá  uQKKXY[Q x*S;vSRCCދأZ>'uY5~ t/KK/xùFOv]q%uZDS u0E(%Ay-AxC6B*/F/F/F/F/F/F//s6'tZ[ùSS݋Y[Q xS+v"SRCCXދأZZ[X tuXZ[P x t uuj+SQ8J+v)Z;sSRCC݋أZ)Z.[8[*m&0*SCC݋ZSʺX< t*Ë ***vAHO  D ] p      Is16= Y sJ d q t# xSta*:s'_CXSQCCU݋ZZSXHHÉYQPMKMtB98:t/ى<\uKFCS"[r;~+S)"XÉ " ;~Ë",\ u s "#-g5X?Q}fqwetY~$#'7 - > * ' 2 IJtH 4R q y  4tU9U 9integer multiply overflow.integer divide by zero.floating overflow.floating underflow.conversion error.floating @;"sË" C'?u$ut$ʲ2ҋܾS&^ uEEU֊ @P&*+II +8  F"00-r3 t%< uFtNV@P@Y^-Gá%)*+Éáà*á tPGùZD t &Q 0ZRZ9 XHHHPX &^EEuÊȏt2ACC&Y&ȏt2AKK7&ȊP&&F&^t@tG&vEEG&FE| w&^EE@ut$$uX[2C2܋CC[S =&^EE&&w&u' & u+pt2lGlobal Solutions Enterprises All Rights Reserved [21m4Use BEEP to Sound Bell or Pause in .SUB Files, e.g.,"BEEP 10 (Sound Bell 10 Times),BEEP P (Wait for RETURN to be Pressed)*BEEP 5P (Sound Bell 5 Times and Wait;, HpyPX$'@'UÉ,.+ˉO ,+rNˁsF s  t(W+rw> GÉWډ+,tŹMOKK6 ;r,6 4 t;r;u L7 E;tOËM+,Wr;xB= u! & t=*pt2 x҇& t=>$ 2$   2A>.^.` 2@<uD"EytuٺD"Eytu;t̀KKt2& x." Note: #Beeps Given Before "P")[18m?Use BEEP Interactively to Enable/Disable .SUB File Usage, e.g.,.A>BEEP PAUSE=ON (Enable Pause)BEEP BEEP=ON,PAUSE=OFF (Enable Beep, Disable Pause)A (s‹ uÀ>"0À>#YQ󥥥ËFFFF| ^ r  O c w | /uÊ u -0*xS1[ ߥ0 t@yـr$s Q*HY t*QـY*2x( @tP=W9&FE&^EE xڨ un_O$t<t<u+@tu5W@t5W<t @tuuu5WW$uXH^NgƋ~XH^N'&FM>>>>>near offset: h in EXTRA, (see map)>>>fp status/condition word: h***vds("uc&2އ.^.`ׇútù/6VÍ٣ táCSQY[CC2$ڈ 2ڈڹ C M]R@r9Bڈ2s<:uZBڊ$KR<.ur BڈZB t.d.M&F8&F&v&~t4@t=&v&~&F&v&~t4@t=&F&v&~t4@t= &v&~E&F&v&~t4@t= &v&~Ì؎t&F&v&~t4@t=&FuY[;ٟ* END ARITHMETIC ERROR INFORMATION. ****.Cs2.uSf.P[.2E[AL.66HH.G(3.](/.{.}.u'C  PX$0<:rPRдQSRVWU]_^Z[YZXS[2C>>fortran runtime error: >>>last IO unit to be used: **** END RUNTIME ERROR INFORMATION. ****Pdrw..@uX..XPR.6.H.Gt<t<t$("u{M!Q"#P$XY;M!tn uñXS uñ<t<t>$("u:$E!c/CR uñR/?Zû ڵCu|YunusqQ¢V[[W&^EEwww74&^EEw7$&^EEwww7X[YZ_]MUX[_]copyright (c) 1982, small systems services inc. urbana, il. all rights reserved. XX\&nn&nX tEE&FE<w X "<u GGt $ZX uP.X.12 .3RX u t.>t .QtY_Ypause hit ENTER to continue.4S$.X. < uRщ+ZQ YBLOCKED IO OUT OF MEMORYFORMATTER NOT LINKED1YuJ-uFP9Sº[(sQV;`2|YuR_u u7r tKKt2$u]'m% tE.$tC2u<VJ>VE% tM%]'C]')<tà$uE%M']'2&n7&FEE[K;s xX[PX[+S X[PpY"X2P u...!Y yBRXPX[#PXPX[ PX[3P&^EE&^EE&^EEP&^EEPp&^EE7e&^EE7X&vEEOÇREAD ERROR ON UNITWRITE ERROR ON UNITBAD UNIT NUMBERENDFILE ON UNITUSER DEVICE NOT DEFINEDIODISK NOT LINKEDCORE IO MUST BE FORMATTEDFORMAT NESTING TOO DEEPINVALID CHAR IN NUMBERPRECISION LOST ON INPUTILLEGAL WIDTH FIELD IN FORMATWRONG DATA TYPEE& uô$CM!wàt (E&-V>VE%M% t]')C]'àu4/ډ]'E%qu b<u Fbb&ueuÀ>u3ÇڍVډ>&.QSRVWU]_^Z[Y.^.AL.T2jLLu fd fdUjvdfdñU.T2jdL5ڍfLjdNfNdd3jlûpnKxa ) ' tâ)QRSW7_[ZY)à( tb3#%3 t Ȣ30C0)<t23L2 |40K a보)PôJ)QY.#.%͋&*t?rٷÇ옋ujÇi߰33װF FA2n=uDu&t t#=ut u EtuEut+؉^MV@^ RPFXY؁㓇ҋʋV҃VR ҃R FFufVVVVÊطڊ؉\ÇڋV*وC7ËCËVCVËnCnË+yڊ< s.1.㠠 u Vs< tz\CZT+xZCZڍ`ڋCXVڊ2"uڊXu3SR#Z[YQItBڊ0uuYU [\LE]M;} FNFTVTVTVVF2͈NV+=5vdE]M5r֊͊ߊĴt NuFu%VN^FF tFn^^^^E6V+VN^FsځVuNJ݊ΊTDUEU4>TuӃ>dw >Tus>Tt&. !&.΋+xnKnڋڻ+xIډnnڋCTZ[f +tdZn+x5pb"n+ypb[tTÇu ] 6## #6#tUˋ]^QRzM]Zt9QSڊB[Yu^Kt^Y[ 5[[ڊPtUXußPSCCCCC]SًMY t S]Y[s^8u N6vF^NV됋 t<#y ؁u3u ԊKs]UEË\ݱxU}bLTD| <$ Ċ֊tu"y؁33ҷt"ø"ynnSڋ[ڋbC`c"u)QE YQ YC"u)bA+yA bK+yr?.>.P uQSW _[YI  ^PXCC2C$u0<r)<3s%7'"7 uI< xb ËЉbΠc"u !vb]b_) :) 2S777m777{777777777777777777HIwa+ډfe.6)< t<0r <9w.6g<u.6t uEtuEutRQ+SW@L̀؋ʊ$Ӄځ瑋@Ã_ʋ]πRR5ZX[YxK2=uDutuEu=u"(t=tRQCSL̀$넺 < uU+uË]ڈBU]$u<r<3s ˋ]]I G uIC 1 uIpC("t G\/.(/,'"tߋ6(>(t+tx\A(L.7e. 7s. 7r]tXvg<u f+ډffe_x+ه+ډfT"t&. &. ɠ"uıje`h1hCڻ+xލGڠ)< t<0r<9wg]usK]4t"t])2ڊ"uЍ=uDuu Eu:tuEu=tu DE;}J+=vt݇RU]π5-r ֊߷tHu:uOD̀4[sCsBuC]#t~}ވ]U%373͋l$+‹s ؁ջ)Ë\+rt\يA( )Ç1S[Nލ*t*RSW+s[Z+r هډ[Z[ZNË@ى@+stñ.އSO[* ډÇ݇UF]ÇS[ݹu݋څÇ݇r݉WÇڊ¢g.6.h.$0<:r)"tSRQNYZ[SRZt"[tZ)< u0JCu+tr"utSR Z["uԊs[Z#xK]x#ty؄uKs؈]EË\ڀrGs1D̀, Ĵ"tu"yø*øRE%-D%-Zð3#t*M] uðVKX݇ ;HÇ0݊qSRt9ڋ^SRQ tCBuڊ:uBCuYYZZ[ݹDݹ[[YZ[^63D3R3`3n3y3}332&3&3&3&3&3&3&3&3w43~44 5555U6666&3&3&3&3&3&3&3&3]4<45mi݋K!ڊ) K]RedZ)SPQ2m''KuYX[ "uJuРU"uSff[TtDWaka]+ى]_+ډ_cMkac"txSSf. ;uB. ;K+xAB[R™ [RËY[KSQGUfFF[  [99]C,&&&8K?Eiou{}CC 9O# ,C-CU[60C', A1,'[21m'$)(/1x,A1,'[18mPlease Enter Text to Be Put on Key ',2A0, ' (Or Press RETURN to Exit):',A1,'[21m')(1x,A1,'[18m',A0,I2,':',A1,'[21m',A0)(1x,A1,'[1;1H',A1,'[J', ' QuicKey can also be executed without a command tail;'/ ' in this case, prompts f.> ;u. ;Z uZ[+ډYûSK[St"tn)< u0<+uv<-u [i<:s>,0r:طZ q q>[t=tYAQR]K] u"uZY@ZY["u+ډfZËaYK"y"])0).à"uqfFU9U 3 FCyCc9"s!"0UyY 9Q(I0)(1x,A1,'[17mSorry! Wrong Operating System! This Version of', ' QuicKeyor key numbers and text will be given.'// ' No checking is done to prevent any given key assignment from'/ ' overwriting another, except that QuicKey will truncate text that'/ ' would overflow the table area.'/)(' If an embedded carriage-return/line-feed iYaډYڋ]K[+ً_+JxB+Bqoyo.)=Yy_JyCY_0ۋq_KyÉ_Gڊ0)RZB+y؋_tC_)0RZB_+tyàUPYa ډfYm]+ى]x _+ډ_3ۉaX) Works Only With'/' CP/M-86 1.106:013, CP/M-86 1.107:015,', ' or CCP/M-86 2.00:010')(1x,I2)(1x,A1,'[17mIllegal Command Tail:',A1,'[21m'/1x,A0,A1,'[17m')(1x,A1,'[18mExecution Terminated',A1,'[0m')(1x,A1,'[17m File ',A1,'[21m',A0,A1,'[17m Not Found;'/ ' Funcs desired, include'/ 35x,'{CRLF=$}'/' on the command line, where ''$'' is any character', ' which is to be interpreted'/' as a CRLF in the text to be placed on', ' the function key;'/' note that this character can ONLY be used for', ' this purpose in the t]maË][+ڋY+yS+ZJSxC)-[t:YYKyÍGي0)QYYKYKyA+yױe>dufh u4h x(!f3  u x+-?] ]* uÈ.)SQY[KuCtion Keys Not Installed')(A0)(/1x,A1,'[18m',I3,' Function Key',A0,' Installed From File ',A1, '[21m',A0)(1x,A1,'[3;4;7;18m'/ ' QuicKey 1.02 Key Loader For The NEC APC '/ ' Global Solutions Enterprises All Rights Reserext input;')(' note also that', ' some utilities (e.g., STAT, TYPE) are aborted if'/ ' the character buffer contains additional input, which it will'/ ' when the CRLF feature is used and is followed by more text.'/)(' {RESET}, {FILE=, and {CRLF= are reservtt"tS8ߠ)"t< us=ŢC"uûx< t< t2sxCxԠs"st뤠u"t) 2ut) tÀ>) uv"t ; 7w"t2vd t'2v)<+u<1t<0t<-t)' ))< t< t< uxCxUް ved '/)(1x,A1,'[17mIllegal Key Input:',A1,'[21m'/1x,A0,A1,'[17m'/ ' Input Ignored')(1x,A1,'[17mIllegal Key Number:',A1,'[21m',I6/1x,A1, '[17mInput Ignored')(1x,A1,'[17mRead Error Encountered in File ',A1,'[21m',A0/ 1x,A1,'[17mRemaining Input Ignored')(1x,Aed', ' words (the braces are required);'/' finally, note that when', ' running QuicKey under Concurrent CP/M-86,'/' the virtual console', ' active at execution time is the one which will be'/' processed,', ' even if the execution was invoked in another one 1,'[18mUsage of QuicKey:',16x,'QUICKEY command-tail'// ' where ''command-tail'' may be {FILE=filename}'/ ' or {RESET}'// ' the RESET option restores the default key values;'/ ' the FILE= option causes key .'/)(1x)(/1x,A1,'[17mError Detected! The Virtual Console Was Changed'/ ' By the User During Console Identification;'/' This Is Console #',I1, ', But the Keys Were Programmed for Console #',I1,';'/' Please', ' Reprogram the Keys for Console #',I1,' Later;'/values in the file named ''filename'' to', ' be loaded.'// ' In the latter case, the format of each line in the file must be:'/ ' ##,AAAAAA'/' or'/ ' F##,AAAAAA')(' where the F indicates the FNC Shift key (if desired),'/ ' ## is the key number, from 1 to 2' Do You Wish to', ' Process Console #',I1,' Now As Originally Intended (y/n) ? '$);?MQA;,S;CDpOOOPOQOROSOTOUOVOWOXOYOZvyt|4 U%[@1.106:013)7:015;2.00:010) W'2, and'/ ' AAAAAA symbolizes whatever text is to be loaded;'/' it may be', ' from 1 to 127 characters long;'/' if more than 15, multi-key', ' spanning will automatically occur;'/ ' if 127, the operating system will supply its own RETURN'/// ' Please Press * qD==K++VV KK XLLIIC__vv ## JJ+ u __ %%a == 99--KK.ɧ......///..ɵ0ɤ/0Ɋ0ɚ00+0E0k0s00h17==t<:>4c.{R{R{R{ R{RffZa]~ffZak~ffZay~f fZa~ffZa~fa$R{+fP!Cff8fP2f8fP2 foff%E,Wz` f @ @  ^ ^{ll-fP}  f  K f f^f f a^{{lfP}l9 {ll- ` f  ff {flfE W,f-/{f+Qm{ff0~{2R{ff9;R{ffBDR{ ffKMR{ffTVRffZa,~gffZa:~gffZaH~gf fZaV~gffZad~g~{_R{hR{qR{ zR{RffZa~ ffZa~ (0` f  ^ ^{0i0i$*fP f < < $f f^f f a^{0i0fPi6{ii$* f 0ffX {fifBWcr ~w  \ ff { fff{ ff?\ff  4   ffZa~ f fZa~ ffZa~  {^ffZA~{yffKffK /{^ffZ4~{^ffZK~3^fZ[~/4ccccc.7{U14.|fZA~ ~ f\  fff fZ {fff fff f?Z {ff?f Wfdf`Z cc ~T( ~X\[lf8 E E ^[{flfE \lflZf_f\ZAKe Z{Y`Yff\Z \cT \~ {fafY{f_ffHH4&H?fH?U{s{ZE{s{ZEQU4f.ffZ{[ 4c{U{[c.7{C1|fZA0~ ~$"{&ff(f"f'f"f*Z^~f"f(Zf"f,ZKu~f"g.X~:Xf&ff"gDXf&fNPX4Z4fZᄽ { f? {flfl lflZ ~{flfl9 YffZ^^{flfl- {lfqff{flff! cTHLPWWWWW\xvv\xlZ~xlZ~flx9 ^b^x?fH=    !! c.~ a4c.h4.o7{s1v4cc.}4.4.4.~ {"^f"fZA&~ f"ffZ8~ f"ffZJ~ {OffKf"f {cs~ 7{C1{^ffZᄘ~4cc{CcfWZ~fxfW9 {ffQ~f~fxl9 flx9 {f?\f 4?{ f ? ^:^^f fKw{ll- ffZA~{ll- {ffYf{ll9 {    "#  "# ELH?LL!LHL HLL HL H HALLHHLHHL[LLr`CS<<X 4lh@,8 S<;L.0S0D S<<<VV[S<bj:".~s{Uff {s {s{Ze{s{ZeK~c{|f{Uff 7{1ffZff,ZKB~n4ccfc.ck~[~ssffZᄅsc~{Cff| cN~{ll- Wfdf`Zcc~~\[if^[{fifB\ifiZf_f\ZAK%Z{Y Yff\ZC\cTOWO\~b{fafY{f_fff Z} { f?0{fifi0ifi,Z~{fifi$c^9B-_mLiLYDZDkLr<<5Snpd0D<#H <n5D5D5DS<<<SHHHHHHHHHH             (,* Ej@$^ffZA~fc~{|ff'Z'{ff{&ff(ff'fccNQ~nCI"f"PcZ@Ef"c")4c{sfc{I.fff0fZa~n97{"f&f7f"f6Yff Z^^ {fi$if*{if1f f{fiffcT WWWWW\u66\ ui,ZI~eui"ZW~ fi,u6^b^&uf&S.Z~fuf&S.6{ff&Q(~off ~f@?&QYiPG A?{ ə iiiBiBiiiii*ii*ii*ii*ii*ii*ii*ii*"i"6ii*ii*i"6>Zᄸ~@ fa9Xc~[~ssffZAsD4cf{sc{O.cN ~ faKR{fPfR+ff+ZAM ~ T4cff+f+f.[7{U1{Ub {l{+ff{U{ZE{U{ZEQui$6fi,u6{f?\<f z<{ f ?,8 $4^>:^^@f f>K7{8i8i4*f@fZAE~[{4i4i4*{>f>f>f<o{8i,i86{0i8i0*WB{FrBrBrD3rD'F\utj#zqɬɾɑɚɣɵahɼ}9ɕɂCbaZC Y p Ɉ ɒ ɟ e | ɬ ɼ ɤ! "Ɂ"ɴ"ɦ")#$#ɀ#ɒ##### $--. . .-...%.%.-<.?. ~r4cc.y4c.~ 4cc{Oc.~ 4cc{Cc.~ 4cc{O.~ 4c.fafQaf9ffaXc} ~[~s{CffP2o!{ff* turn token (use QUICKEY ? to find out about carriage-return tokens), since a bug in the CCP/M-86 character input routine causes the first character after a carriage return to be lost if it's in the input  buffer when the carriage return is read. Under Concurrent CP/M-86, each virtual console may have its own set of function key definitions; QUICKEY will operate on those of the console which is active when it 2@&GPVCXP- ;XU 4 ເ u*_ <u. <uO 2 tw *+CQUICKEY.CMD: This program permits quick setting up of the function keys on the NEC APC (all 22, with or without the FNC shift). It makes no special considerations for CTRL characters, but is useful when more than 1executes. ? [tb Cb *Êsh S2C7 ¹UDuqډ -2qڻޞ։ [^RS[:? v?0r?9w.&0 uD . ?kt.=vPQX=v.......+2@&W.>t -@+.++w N&W&>%%.>t&&G+.>Z&W.-% C&CCÉGG.Z5 characters are desired on a single key. For example, the string "ABCDEFGHIJKLMNOPQRSTUVWXYZ" can be put on one key, but since it is 26 characters long, the next key after it will also contain the last 10 characteRFt# d [t? ޞևڋd BCu;d  0)d  +S> [( G ?G?f P xu XEZSt^l͊LQZ&&G+&. .1.;.=.?.A.>Z+A ..Z&@0 u t0Kú< rs. Nevertheless, the entire string will pop up if the one key is pressed, and only the last 10 if the next key is pressed. This happens because QUICKEY uses the same table as the operating system, and only enough B tBf uYf  tË& [ 6ñEDPYur tXEXEC̱! G!uC" h  +;r  ;Á  VNB u߁wS;Skࣼ ;*0YI  X U      RAMDISK 1.1     Context Sensitive Inc. Seattle, Washington (206) NEC-0301   $  Thank you forroom for 15 characters plus a null delimiter is provided. QUICKEY may be invoked by entering its name at the system prompt, in which case it will prompt for a key to program and the text to go on t rT 2b߿ 6 $7QR[4h  FDuX > u t @ > $ É wtùFN[Hߋ > +AË C9 r RSSQڋSQr)x'SCCߣ ZYZYZ[[ à LSSR t5 t9Sڋ;_uZ[R choosing RAMDISK from Context Sensitive Inc.  This program creates a pseudo disk drive using part of the random access memory (RAM) of your computer. Your computer has kbytes of memory available for prograhat key. It will not check whether a key's table area is used as overflow from another key, but it will not permit the space allocated by the operating system for the complete function- key table to be overflowed. [tr 2ðVt݇Lև;t#SR;rg[ t x؀'_St *[P;XùCA[TSދغ YKKá uQKKXY[Q x*S;vSRCCދأ ZZ[ ùSS݋Y[Q xS+v"SRCCXދأ ZZ[ m execution. Most programs require less than 64 kbytes, so any remaining memory would otherwise be unused. The main advantage of using a RAM disk is its speed. The main drawback is that it is not permane QUICKEY may also be invoked with a file name on its command line, in which case it will load the function keys from the file information. The format of this file is defined in the help screens displX tuXZ[P x t uuj+SQ8J+v)Z;sSRCC݋أ Z)Z.[8  [* &.0*SCC݋ZSʺ X< t*Ë t# xSta*:s'_CXSQCCU݋ZZSXHHÉnt. Each time the computer is turned off or CP/M-86 rebooted using the CTRL-FNC-BREAK sequence, all files stored on the RAM disk are deleted and the RAM disk itself is eliminated. Therefore be sure ayed when QUICKEY ? is entered. QUICKEY may be used with CP/M-86 1.106:013, 1.107A and 1.107D, and Concurrent CP/M-86 2.00:010. When running under Concurrent CP/M-86, a blank space should follow each carriage-re Y  QPMK  MtB 9 8 :t/ى <\uKF  CS"[r ; ~+S ) "XÉ    ; ~Ë  ,\ u s  @; sË    C' ?utUP tBuM disk.  Press any key to continue...$ The RAM disk created by this program is called drive K. Drive K is used the same way as any other disk drive. To list the directory of files,, 9+-pY؎r;sَЋQ>*ut*$>*+II p+ F(00-r3 t%< uFtNV@P@"Y^-Gá+/*+jÉfáhào*ál tPGCC t+۬<#u"&GÉWډ12tŹMOKK6&;r26&4 t*<-uH<#u<.uð-<\u3 u(렋KKڻ+rSnG$Y G^rSr tñ=S t/CC QS[YCI u [Ms d t q  p ux2Ȋл.typ To select drive K as the default drive, just type:  K: in response to the CP/M-86 prompt.  Press any key to continue...$ To create the RAM disk, type;r;u L7&E;tOËM+2Wr;s‹ uÀ>(0À>)ú8 ډs[r[t#tSrS8 s"YZRQu u2v u YumNN><#u~<$u|<$ui$<*u d<*tT*<.uU<#rr u< t<"t<,t1<"tsn<"t2<,tW¶띋wr t2طCCSCrŋCBuZC7àrCt:rR K[t<"u:uúH SRޞֈZ[Ê:  RAMDISK nnn where nnn is the number of kbytes of memory to allocate for drive K. Remember, this must be less than kbytes. $ $  A size must be specified for RAMD.u2g<-u"?<#t<.-u°|2H|<\u th~ ~<#t<,u컇<.uv<#ux<^uz<-u}! u.y{7Cu tȢ| t| tz {SQrޞֈY[SRޞZ7[S St#RCCEZYS/CCBI uZ[C7SxB tQRޞ[CS}[Sk[ڋ-ˋ/*rDO[[3/CCSޞ։/[u< rP|ISK drive K  for example: 'RAMDISK 128' allocates 128K of memory $  RAMDISK drive K not created - not enough memory  Your computer only has kbytes of memory available $  uc,@t s2y蠇 ty tű<r,Ŋ蠇*ŢyL%W2|} !%y,@*ň|ڻ} ڰuUt yyxz u {Ȋ*<s0Kus r  t u*}| uVtQX*d*Ë*Ê[Z*Z_YQSCCӀ t[2CuK2V< t<+t <-uB<0t<.u&sТ<uf <0uޠȢPFPvX4VhF^;tCvFF;F|D3V@PFPvX4V F^;uFPvX4VNDDvF=|){PBPP8PP8P5DD3P5DD]7:Vv^;tgvPT:ڋ@+w.# t..%.$./ .-‹.'.)@+..# t..).!XXX P@P%Pϐ3C-86, but the company which donated it does sell a RAM disk program which does, as well as one for MS-DOS (Context Sensitive, Inc.). Also available are RAM disk programs for all of these operating systems which + DD u?3Vv^;t'vPFDDP6@X@PPA]vPPF8]ËFF3Vv^;uG*Vv^;t?Vv^;tvPP7]Ívv3@PFPfD:Vv^;t FPFPFP7D FF=v4XFv,PvX4vXFP3Pv<v4XFFP6NXFvPvXvtFvtFFP6NX4FP6NX4X^PvXFP6NXtFP6NXt9P^PvtXPX4V3FPPg"v3FF;F|FF;|FPFPX4VFP8X4V u^,4VF^;tEFFF;|0FPX4VFPXXvpvXvFF3Vv^;u.Vv^;tr3Vv^;t v3SvP2vPP87]Ëv3vQ0Qqv_PFPCFPv]M0 uvvPP63P$Pv65F^;FP3Pvsv4XV]F;FFPFPX]Ë]3FF=|m3PFP6NXXFP6NXt3FP6NXtFP6NXtv]E3FF=|FP6XX3v;vPvX3]Ë] 3FFF= |E Vvv^;t-vvPvPvXXv Vv ^;uvPvX. FF= |E Vvv^;t-vvPvPvXXvtv'PP6]ËC u F83P:Pv4F^;tv=PPD6v]3DD]3E0 uRPP6vDD3PRPv7vv 0 u^PP5Vv DDF^;u;Vvv5^;t ]FP6NXtXFFP6NXtXFF=tF=tUFP6XXF+FPYP\^#PFP6ZXXF=P3PX]F=u<vY5P6\Y#VvFP,^;t]ËF=u9vYP6vv3F]Ë]vƊF u,*VF^;t?VF^;t]3]Ë]:Vv^;uG:Vv^;t.FPvA^;tPvY3]D:Vv^;u.FPvA^;tPvYv2DD ujPP50 u{PPa5vz2DDv2DDvj2DD]3M]MPMv( DDI]ËIP3M3]ø]øG6IVv DDK^;t G=| 6GGP,KI]øMI]\Y VvFP^;t]3]Ë] vvPv6E:Vv^;tPvYvvPU3VvƊ^;uV=|3P VPXFvvT3FVFF;F|FP6NXtXFF3]ÍvƊF u?VF^;t7vƊF u .VF^;u3]*VF^;tavF uv.VF^;tvF uv.VF^;t'vƊPF^;t3øM]wexoaMKI]øMG]øPP<4P1DD] vDD=tPP6NXF4X^;u v=uFP6NXtXFF=| FPV+FPXFF=| FPV+FPXFvvvvvv,P]3FF`;F}NF=tF]ø+FPbYPvY v6bYv6`Y+F]Ë`=]v u ]3]Ë]:Vv^;t PPXF3FFF= tvPM0DDPvXvv uF=|vPvXPvvX.Vvv^;tPvY*Vvv^;t&F;F|vPvPF^;uPP3vDDPFNj^ t33F=|_3PP6NX4X^;u2P6NXt3vPXvPvP:V6V3P(^;t3`3^]3F'+FPbYPvY 6`vY+^=t!3`F=tPFPX]þVvDD^^;t^^P6ZX4Xb^P6XX4X`]kv<(DDFF=uv6EYF]Ë]3Vvv)^;t v&DD X? v^vv3]ËGtw VU v2F%1FF0CP3PPP!FV^ t؃]^Ëܸ1GVUF tFuv~vv~~D+EtyEȻYKKyً3x CC$CCEFFF=|Uv+vVFP6NX4X^;w vFP6NX4vYvFF3F3FF=|\FP6NX4XFvF^;r 3PF^;uvFP6NXXFvF u F=?3FuPP)PX&DD] vv)vPFYP)v&DD uPP?)P &DD] P%DDFv4v4X3FPP4DD^;t]øFF;|h!VFPX4^;tWF=tP y3CC1W^~FuF]^^XZ^X33SS^XZ^X3SS y ؃πRP0CPSVWW^3؎W_E %E%] VW_^D %  DEËE E E E uE7E tm ]]]]E uF=|/vFP6NX^ t3v]VF^ tFF=} FPvvv,]v^FFPvX4XFF;F~F;F|*FPvX4FPvX4r u vFPvPXXFPX4VvP8XXFPX4VDD u*FPX4VPXXFPX4V`P`Ph.DDt"6:VFPX4P#X^;t<FPX4P"XeUUU )]WUFtF uv~JyvDv~;3SSSSSS_Nj, . t. .CCsCCt֋F-0@FFދF3FF܋!~]_" " " " WUF uv~FuFX4vK u=FPvX4FPvXXFPvXFvvv6]FP6NX4FP6NX4X^;w]ËFP6NX4FP6NX4X^;t8FP6NXtFP6NXtX^;]3]Ë]"6"APPo#!vPPY# ut! uPP-# P ^;t3!P P ^^Pv^P6wP"P4DDP2DDPPXX^;t]Ë=}]Í"P, FF F} vi[Y3PPPPQS vT5Qv~;rwNNOOv~FFGGvFFYċF-?)FF1F~Cv~]_ ܊o w y2y:}ĹW9Wu KK$t w$t$t2 ܉G_ttF3FvPDD u-0PvƊX+V PvX^^ƉF.Pv^;ƸtHF uv*Pv^;tv 4XFvF3FvPFDD u-0PvƊX+V PvX^^ƉF3FlPvP"DD^;* ^;uPPv ^;uP P[PPFԉXFPv+҃P ]3F3FF=|)FP6dX4 u vF=tmPPFF uMPv5^#PvtXVv=DD^t4^XZ[YU]MQSRP_D3۹%uPPP8PRS3PD%-?=#=|)D-8yT\D 3E_Xˎ& A.2 UWFVv~ u y ؃ y ރS 3SN;ƸtHF u vvPaF uFF Fv~FF 3PvV!F޸gPv^;tF=|F=PF^PvVPvދYvP\Pv1P\^ƉF܍v܋ƸEF=|v܋Ƹ;:Vv^;t'3FF=|3FF=|/PvX^P6XvPvvPWDD^;t vF=t(PvX#VPvX^P6XD^;tPvtY PvX^P6XDPvXPPvtX^#^;t/Pw r;w+@N^Yt tu t؃FV _] v UF fF FfF FfFV ] v û2Wg؎Ћ&>*,O3I  :UFF t5x t/PVF±$'@'Nuӱ 9n-F؉Fv܋Ƹ+v޸Pv\P!DDF썆\FF uFF Fv~FF 3PvVF޸PvދF^^PvVPvދYvFށP\Pv2P\^ƉF܍\PZ DDF썆\FFF9v4^;tvt vt vt vPvtX5^# ufvDDPvX uF uv4VPVv4VFP^;lvt vtDDPvtX uEPvtvtVFPFPvnX6&8^3^.U+;&4v^.PF^;rPvX^P6dX4F uF]øP PPFDD]3FF_vY~aX uvBn~G3F(v"X u3]ËF=|3]ËF uFF*F FFF FFދF u)F Fvt4vXZTFF EF=|v 4XRPvXZTv 4X3RPvXZTvލ\Pvt4F u2\F3RPvt4XZ^_;u;r v܁6dXXPvtX5^# u F uv4V#PV3RPv4t#t!XZY[RPvtXZTPvtX^# uvttXZ uv4t!,\t4XZvtVPv4V!P3FF=|(Pvtv^;t vFdF=FP0~v, uFvv" Pv4X u Fv, ukPvYFP6XBvPv̊^;t F́FFPv4^VF^ƉXF=}P P PGv̊ uv́4Xv,4Xv́4X+F̸>PvЊ^;tvЁ4XF̸PPvD ^;uPvv, ^PPvXRPRPvtt XZY[K^_RPv4t!XZTv4V"P@ u@PvtY vYPvtY#]UNV]vvvX^Fv F uPvvF]Ë]7PF^P)DD u]vvXZ^_##RPvt XZTvt 3v.DDvtt vvXZ^_+RPvt XZvt vt X^;vt vt XvvXZ]Ë]*FP!PF^ƉFXF =|RPvvXZ^_;u;r FvvXZ؃VFRPv XRPvFFv4^Pv4^X uF]Ë]v4XFv4^ uPF+F^ t3]Ë]֊FPA^;~ ZPF^;~ PvYF]Ë]R֊FPa^;~ zPF^;~PvYF]Ë]v+DDFPvtX5^# u v4VDDvt u vtVDDvDD3PPvX^P6dXX3]Ë]3FF=|,FP6dX4 uv8DDvv DD]PPF^+P ]Ë]9FPFDDF@PvtX5^# vXZ؃RP?ލ/^YƉƊPv,4^XF ؙRPFu5iXZU ujvvXZVF3RPv X3RPvv<ݍ/^YƉƊPv,4^Xv X3RPFu5XZU uF u-Pv,4^XP!PF^+F^ t3FF+DDFPvtX^# u#P PgPDDPvtX^# uv3FvVvX^;r^ Vv^;tPvtX^# u Pv4VvƊPv4Vv3FvVvX^;rX Vv^;tPvtX^# u vu3]ø]Ë]PF^+PDDFPvtX^# u PvtX^# uvDDPv4tY Vv4VP^;@PvtY Pv4tY#@PvtX^# uP3PX]Ë]%FPPPvvF]Ë]P%PvF u:Pv^;tHvPaDDFF=A}F=P~F@PvXgPvY P PvtVvVPvtVD uvVPvt V& uF]vDD3]Ë PtvvƊP\vvt vt X^;vt vt X@PvtX^# uPFPX]Ë]ԋvtvt X^;}Kvtvt XvDDvtXRPvt TY[ӉTvt 3Pvt Xvt X uPvtX5^# vVPF^+P ^;uFF]Ë]FFFv uv4^PdFF uFPvY F uFF uFPvY awrb _FPRPFFPvi]v4Fv ubvƊPDDFF=.t8F=!|]ËF uv,vƋFFPvX3]Ë]~PPF^^#ƉF6Fv4F uvVvtX^;sPF^PvtX^;sMPvX^Pu-vt 3vDDDvt X u vt  PvtY vt PvtXF]FF=u F=t3PFFPv7FVKF=tF=uPRPvF=u F]ø]Ë]rvVvFPzHP]Ë]NPPvVPF^+P^;uFF]Ë]F^ƁFv4VvXPvtX+F^+PvtXFPvX vtXFv4VvX FFSF uPF^PF u%FPvtXFPvXPvYF]Ë]U؎v~N;rNO]2ۍvVvPzHPj]Ë]@(#)sq.c 1.7u (UCF) 82/12/15 Wildexp ERRORNo files --File squeezer version %s Originally by Richard Greenlaw 1.81c 3 Aug 83UsagePvY+v4VF^;uP PiP6Fv4 uvVv4^;r v4Fv4VvXFPvXPvtX^PF^ƁPF^;t+PvtX^PvtYv4VvXFFv4FPvtX^PF^ƁPF^;v)DDFPvtX^# uP PeP=DD3FvVvX^;r3VvDDF^;|vƋFvPvtX^# uF=tvt ,v,nF= tR3VvDDF^;|JF= tv 0vtF: sq [d:] [d:]afn.aft ... Output drive = %s ERROR - Ignoring %s Ambiguous name %s ignored %s ignored ( already squeezed?).QQQ sq: %s -> %s: rbsq: can't open %s wbsq: can't create %s analyzing, squeezing, sq: write error done.sq: Bug - bad t(PvtX^PvtYv4VvX]v vvFP]Ë]FPA^;ƸvH uH uPZPF^;ƸvH uHPX uH tPGFPa^;ƸvH uH uPzPF^;ƸvH uHPX uHPX]Ë]FP0PvtY F= t@PvtX^# uPFPX]Ë]ٸPvtX^# uPvtY#vD]Ëvt vt X^;} PvtX^# uvuDDPvtX^# uOvtvt X^;t*vtXRPvt TY[ӉTstate sq: *** rescaling ***, sq: write error sq: write error *.*BAD FILE$%03dcon: TOO MANY ARGS$warw REDIRECTION ERROR$cFREE$READ$WRITE$@I NO CORE$ $$@Y@@חA7yACnF?O8M30HwZ?s^;ƸvH uH uP9PF^;ƸvH uHPX]Ë]vDDFPvtX^# u 3ҋ]øPvtY#F Pvt XRPvvvtt XZ^_^_׉VFvvXZVFvt XRPvtt XZ^_RPvttXZ^_;u;r*vt 3vt X uvt 3v.DDvt vt X^;}]Ëvt PvtX]Ë]P644X^Pv^+PF^;s3]Í624644X^+ƉFv64YF]Ë]U؎~NF]5vv4VvPvX^PvYOuM?{Gz?-C6?:0yE>ؗҜ<2#I9mofEFIPTeirŁŅōŜFŢŦŪŶŻſ”ƔFДFڔޔFFFFF$(,49F>BGKesses files into a more compact form. This provides: 1. Faster transmission by modem. 2. Fewer diskettes to distribute a program package. (Include USQ.COM and instructions, both unsqueezed.) 3. Fewer diskettes for arNkm<tB`sYsCCntnj_s"9Y#r>"9P;Y#s>(chival storage. Any file can be squeezed, but program source files and text files benefit the most, typically shrinking by 35%. Files containing only a limited character set, such as dictionary files, may shrink as much as 48%. Squeezed filKoqCq[SRQ \YZ[es look like gibbersh and must be unsqueezed before they can be used. The unsqueezer, USQ, expands squeezed files into exact duplicates of the original or provides a quick, unsqueezed display of the tops of (or all of) squeezed f USAGE: TYPESQ filename Pressing any key aborts program $ File not Found$ No room for Huffman tree$iles. Unsqueezing requires only a single pass. Both SQ and USQ accept batches of work specified by lists of file names (with drives if needed) and miscellaneous options. They accept these parameters in any of three ways: 1. On the CP/M command line. 2. From the console keyboard. 3. From a file. THEORY: The data in the file is treated at the byte level rather then the word level, and can contain absolutely anything. The compression is in two stages: first repeated byte values are compressed and then a Huffman code is dynamically generated to match the properties of each particular file. This requires two passes over the source data. The decoding table is included in the squeezed file, so squeezing short files can actually lengthen them. Fixed decoding tables are not used because English and various computer languages vary greatly as to upper and lower case proportions and use of special characters. Much of the : PRINT IF PLAN$ = "Y" THEN PRINT TAB (20); "PLANNING": PRINT IF HD$ = "Y" THEN PRINT TAB (20); "HANDICAPPED SUBC" PRINT TAB (10); "-----------------------------------------------" 42 PRINT LAST.LINE CLOSE 1 INPUT " AUSAGE DOCUMENTATION FOR: 8/29/81 SQ.COM 1.5 File squeezer USQ.COM 1.5 File unsqueezer DISTRIBUTION RIGHTS: I allow unrestricted non-profit distribution of this software and invite users groups to spread it ar savings comes from not assigning codes to unused byte values. More detailed comments are included in the source files. USAGE TUTORIAL: As usual, you have to learn how to tell the programs what to do (i.e., what parameters to type afterTYPESQ.CMD: This program displays files which are in squeezed format (see SQ.DOC) without unsqueezing them; it is used just as the TYPE command is used, and was written by David Suits. ound. However, any distribution for profit requires my permission in advance. This applies only to the above listed programs and their program source and documentation files. I do sell other software. PURPOSE: The file squeezer, SQ, compr-  the program name). First I will introduce the various possibilities by example. Then I will summarize the rules. In the simplest case either SQ or USQ can simply be given one or more file names (with or without drive names): A>sq xyz.asmtion gives a condensed and more abstract description and is intended for reference. If you couldn't see the forest for the trees, maybe this will give you a better view. The parameter handling of these programs is straightforward. Note thaZ>bPu>|rb< P n [ t u$0E$,@y ??vCS~lWc^B\>|*[CS t8P$tȾl>|sXtȾs>|'|~uY5b~j t/KK/[xùFOv] q A>sq thisfile.doc b:thatfile.doc will create squeezed files xyz.aqm, thisfile.dqc and thatfile.dqc, all on the current drive, A. The original files are not disturbed. Note that the names of the squeezed files are generated by rult parameters read from files or from the console are not forced to upper case, but the internal file handling routines all treat lower case as upper case. When a file to be written already exists, it is quietly overwritten. Operati   %uZDS[ u0E(%Ay-Ax[~C|sc6|B*/F/F/F/F/F/F//s6|'s~tc떋bW@[ $Zt[Fc*g'JuBes - you don't specify them. Likewise, A>usq xyz.aqm will create file xyz.asm on the A drive, overwriting the original. (The original name is recreated from information stored in the squeezed version.) The squeezed version is not distonal parameters: Each operational parameter is obeyed without looking ahead to other parameters, so options should precede the file names to which they apply. SQ operational parameters are a list of the following types: drive: BӋCCCCӃ t-%:u:u t2r ðÇ ^ P.$YQ S[^P.$CC^CC ^CC(P.$ -N2$2Ȫ%þcb2$2ȪF$ urbed. Each file name is processed in order, and you can list all the files you can fit in a command. The file names given to SQ and USQ must be specific. The above examples let the destination drive default to the current logged drive, whset the current destination drive filename file to be squeezed drive:filename " " " " SQ does not change the files being squeezed. New, squeezed files are created on the destination drive (defaults to the current drive) wȪài<s tb[y[ÿiN-[yȈ/þiÊ'P'rC'$'ZFcáZ u' ĈcGäÿc'''''''ËCC$sq x.aqm b: y.aqm z.aqm c: d:s.aqm will create x.aqm on the current drive, A, y.aqm and z.aqm on the B driveith names derived from the original name but with the second letter of the file type (extention) changed to Q. When there is no type, QQQ is used. The original name is saved in the squeezed file. USQ operational parameters are a list of theI3FFFVvVvV^;t%PP03P-DDvVF^;t3PPp03Pz-DD636:6 and s.aqm on the C drive. Note that the first three originals are on drive A and the last one is on drive D. Remember that each parameter is processed in order, so you must change the destination drive before you specify the files to be create following types: drive: set the current destination drive filename file to be squeezed drive:filename " " " " IN CASE OF TROUBLE: I welcome suggestions and bug reports, but you must understand tha33FFF=v, uv44F:Vv^;t F udvP1DD uA3Vv^;t)vP=DDP6XP=P_9F vQPI9-Vv^;tv4 uvPtz~ ud on that drive. You are now familiar with all of the operational parameters of SQ and USQ. But so far you have always typed them on the command line which caused the program to be run. For reasons which will become apparent later, I have alsot some of the ideas I get would involve almost as much program development as the original package. I have what I want and (I hope) what most users want, so I am not motivated to spend many more months creating something entirely differenz ugPPrtO3I  UF t5x t/PV±$'@'Nuӱ 9nvnX&. v܋Ƹ+v޸&Pv \P DDF썆\FF uFF Fv~FF 3PvVF޸PvދF^^PvVPvދYvFށP\Pv2P\^ƉF܍\P DDF썆\FFF9FF*vt vt vt vPvtX5^# ufvDDPvX uF uv4VPVv4VFP^;lvt vtDDPvtX uEPvtvtVFPFP6XXPvuv4^PdFF uFPvY F uFF uFPvY awrb _FPRPFFPvFF=u F=t3PFFPvtFVF FFF FFދF u)F Fvt4vXZTFF EF=|v 4XRPvXZTv 4X3RPvXZTvލ\Pvt4F u2\F3RPvt4XZ^_;u;r v܁vDDFFtX5^# u F uv4V#PV3RPv4t#t!XZY[RPvtXZTPvtX^# uvttXZ uv4t!,\t4XZvtVPv4V!P3FF=|(Pvtv^;t vFRPvtF=tF=uPRPv5F=u F]ø]Ë]vVvFP0?P]Ë]PPvVPF^+P^;uFF]Ë]WPvY+v4VF^;u^P PP6Fv4 u uPvXVF^;rbPF^PPvX^PPvX^PF^Ɓ^+Pv0PPF^+FPvxPF^ƉFPF^PPvX^PPvX^PF^^+ƁPPvX^PPvX^PF^^+PPF+F^PvX.\FvDTY[ӉTF]ËF u!v4 u v4VxDDvpDD]Ë]PvtX^# uPvtX^# uPv4^;tqvtvtV P PPvt Pvt^Pvt Xvt XPvtX hvvVv4^;r v4Fv4VvXFPvXPvtX^PF^ƁPF^;t+PvtX^PvtYv4VvXFFv4FPvtX^PF^ƁPF^;t(PvtX^PvtYv4VvX]FPA^;ƸvH DFv 4XFvDDFF uF;FrFF3Ftv FܸF3FZFFܸF3FFCcsdDxXuUoObBfegizog\TIA6.`^F uF;FwF u-Vv܊^;t 0PF^;t,P4V|DDPvtXPvtX^# u Pvt^;tvt vt  vt ]øRPvtt XZY[F3FFF=|vttPvX^RPvtt XZ^_^_;u;rPvX^Pvt^PPFF3RPvuH uPZPF^;ƸvH uHPX uH tPGFPa^;ƸvH uH uPzPF^;ƸvH uHPX uHPX]Ë]xFP0^;ƸvH uH uP9PF^;ƸvH uHPX]Ë]/FPa^;ƸvH uH uPzPF^;v4vvЃv,v,vVv,^;wPvVvvЃF;FwvvY+3FvvvvЃF uF u(v, uPvVvvЃvPv4vvЃc]4F̍v44t!XZTv4V!PiFF=t F=t-3PPPvX^Pvt^P3F F u vF u@PvtY PvX^Pvt Xvtt vttXZ^_+RPvt X^_;u;w&vtt vttƸvH uHPX]Ë]FPA^;ƸvH uH uPZPF^;ƸvH uHPX]Ë]vDDFPvtX^# u 3ҋ]øPvtY#F Pvt XRPvvvtt XZ^_^_׉VFvvXZVFvt XRPvtt XZ^_^Fv4,X ux Pv̊^;t Pv̊^;t PvX6APv̊^;sZPv̊^;v Pv̊Yv́4XwPvX+F҉FЉFθF̸FPv4^^ƉFv4,X uv̊ u<Pv̊^;XZ^_+RPvt XZ] PvtX^# uLvtvt X^;|vt vtXvt XRPvtt XZ^_RPvttXZ^_;u;r*vt XRPvtt XZ^_RPvtXZT3Fvt PvX^^;|PvX^Pvt^PPRPvttXZ^_;u;r*vt XRPvtt XZ^_RPvtXZTvvvttXZ^_׉VF3ҋ]aNvt X u$vtt vvXZ^_;u;r9vt XRPvtt XZ^_RPvvXZ^_;u;sRt F́F<>Pv̊^;t F́FFPv4^VF^ƉXF=}0P P PGv̊ uv́4Xv,4Xv́4X+@F̸>PvЊ^;tvЁ4XBF̸PDPv ^;uPvv ^;uvXRPRPvtt XZY[K^_RPv4t!XZTv4V"P@ u@PvtY vYPvtY#]UNV]vvvX^Fv F uPvv)F]Ë]7PF^PDD u]v+DDFPv PvtX^# uvDDRPvvXZ^_##RPvt XZTvt 3vDDvtt vvXZ^_+RPvt XZvt vt X^;vt vt XvvXZ]Ë]\*FP!PF^ƉFXF =|RPvvXZ^_;u;r FvPFPv ^;uHP P[P\PFԉXFPv:ۃP ]3F3FF=|)FP6X4 u vF=tmPPFF uMPv5^#PvtXVvDD^;:VvtX5^# u v4VDDvt u vtVwDDvoDD3PPvX^P6XX3]Ë]3FF=|,FP6X4 uv8DDvv DD]PPF^+P ]Ë]9PF^+PCDDFPvtX^# u PvvXZ؃VFRPv XRPvv}XZ؃RP ލ~^YƉƊPv,4^XF ؙRPFu56XZU ujvvXZVF3RPv X3RPvv ݍ~^YƉƊPv,4^Xv X3RPFu5XZU uF u-Pv,4^X^;t'3FF=|3FF=|/PvX^P6`XvPvvPDD^;t vF=t(PvX#VPvX^P6`XD^;tPvtY PvX^P6`XDPvXPPvtX^#^;t/Pv4^;ttX^# uvDDPv4tY Vv4VP@^;@PvtY Pv4tY#@PvtX^# uP3PX]Ë]bFPPvVPF^+PZ ^;uFF]Ë]"FFFv / P!PF^+F^ t3FFPvvF]Ë]P%PCF u:Pv^;tHvPDDFF=A}F=P~F@PvXgPvY P PvtVvVPvtVD uvVPvt V&t X@PvtX^# uPFPX]Ë]ԋvtvt X^;}Kvtvt XvDDvtXRPvt TY[ӉTvt 3Pvt Xvt X uPvtX5^# u-vt 3vDDvt X u vt  PvtY vt )rzy zrp@p>.(>p=t>. ߋӻz.@.9.| tv>f S ([ t*>*3*@*= ~*6>* @8>8ߋˋ>8 uF]vDD3]Ë]v4Fv ubvƊPDDFF=.t8F=!|]ËF uv,vƋFFPvX3]Ë]KPPF^^#ƉF6Fv4F uvVvtX^;sPvtXF]@ى*@*9f}ĸ *S+>*ߋˡ*@P***[ y;}Ë m*38q.8* ;y].8 H.8>8@8PF^PvtX^;sMPvX^PF^ƁFv4VvXPvtX+F^+PvtXFPvX vtXFv4VvX FFSF uPF^PF u%FPvtXFPvXPvYF]Ë]U؎v~N;rNO]@(#)usq.c 1.7u (UCF) 82/12/15Wildexp ERRORNo files Output drive = %s ERROR - Ignoring %s Can't define -r and -n at the same time. Can't define -r and -n at the same time.File unsqueezer version %s 1.82c 3 =~*@*=qPPP3*P **@*>* PY;y*;fxͻP<uVF  F F#+;ڍvVvP0?P7]Ë]vDDFPvtX^# udP P2P DD3FvVvX^;r3VvDDF^;|vƋFvPvtX^# uF=tvt ,v,nF= tR3VvDDF^;|JFAug 83Originally by Richard Greenlaw Usage: usq [d:] [-n | -r] [d:]afn.aft ... -n Nlmode: remove carriage returns -r CrNlmode: convert newline to cr,lf rbusq: can't open %s usq: %s is not a SQueezed file usq: %s has invalid decode tree usq: %s -?LOFRVZhswFĆF/FFĕF"ĨĮIJĽ̔Ҕ֔ޔ',>AHWZF`FcfFlForFuF{ŃŌŐœŚšFūFŶFſFF= tv 0vtFPvtY F= t@PvtX^# uPFPX]Ë]ٸPvtX^# uPvtY#vD]Ëvt vt X^;} PvtX^# uvBDDPvtX^# uOvtvt X^;> %s wbusq: can't create %s usq: bad checksum in %s *.*BAD FILE$%03dcon: TOO MANY ARGS$warw REDIRECTION ERROR$cFREE$READ$WRITE$4 NO CORE$ $$@Y@@חA7yACnF?O8M30HwZ?sF ˔FՔFFF FFF0F!F(+.F2?F!DKNF$SW[_gjmFpF2}ƁF"F'ƑF0FƜFƢF)F.ƱFD  *>*ߋӻ?*@*9}ûAqt*vtXRPvt TY[ӉTvt 3vt X uvt 3vDDvt vt X^;}]Ëvt PvtX]Ë]uP64X^Pv^+PF^;s3]Í6464X^+ƉFv6YF]Ë]U؎~NF]Ou?{Gz?-C6?:0yE>ؗҜ<2#I9>"@9.}ċ  vv4VvPvX^PvYPv4X]׍vVvvV}=P܃]Ë]FFv4^ uv,4Xv4^Pv4^X uF]Ë]OFFv4^Pv4^X uF]Ë]v4XFPERSON? (Y/N) 8o>)>?Nq>1F(6,4.^.86@698}Ժ$dx <$PȺ$QAY#s <$&y <-@8$.<c` 0::u 9y@jPU F+F"F%)/2F5:=F)BFEFIOF1RF %>"@9.}ċ  een can be called by pressing "HELP", "/", or "?", and shows that you can copy, delete, check the size of, rename, print or view (for ASCII files), or execute (for command files) the current file, by just pressing a key. Where additional information TY؎r;sَЋQ>ut >*+II T+l F00-r3 t%< uFtNV@P@ Y^-Gá*+NÉJáLàS*áP tPGùZDJLN t Po1 pq(@2r2>)>)=zs)@C)@R$$1.0%%))@`//0.0//t0)=C"")">#')'@C(*- --uv)@n""0.0""w2>|)>|##&&/)/@////x-,,),=//)/>|02);=C>>)>>?C)C@CDI Iis required, such as a destination drive or new name, the user is prompted to enter it. It is also possible to "tag" a number of files and then perform a mass copy or delete. These commands are verified before execution, to make sure you really mea& Q ZRZ' XHHHPX HpyPX$'@'UÉ+ˉOrNˁsFs t(W+rw>GÉWډtŹMOKK6;r64 t;r;u LIy),@n6)6=99)9>|::::/:z3 {-)@n)*=V--)->.2)2@C3888)<@RB)B@n|.)!@R,),=V//)/>04)4@C5555/5}-)@R)%@`**).@`4)4@R44/4~)@C$)$@C((((1)=)>)@`3E>aE>-)nt it. The tagged files are highlighted and marked with as asterisk, and their combined file-size is displayed in the lower right. VFILER is extremely useful for looking through disks to find some- thing, since you can quickly and easily view 7E;tOËM+Wr;s‹ uÀ>0À>YQ󥥥ËFFFF| ^"r""Ocw|zz/uÊW u -z0V*xSg1[V gߥz0 t@yـrgg$W<D@|/)=)? %:6()(>o)))))(?1 (?@(@2>|)>|  )=)>|  3(2>|)>| )?) >)=)>|) =)>)=any text file, one line or screen at a time --- for as much of it as necessary, and return to the menu whenever you want. You can change the logged drive and/or user area by pressing "L" and entering the drive letter and user number, and you don't eve..U= [~0yKtZ TNþGA؎мn  1 lj @ ])>   32>|)>| ) =)>|)=)>|)#=&&)&>|*++++++3(@6l)<jn6 m iBlBBB0NUMBER OF ARTICLES THAT MEET OR EXCEED RATING OFBjBnB6 m iln have to press "CTRL-C" when you change disks. When you find what you're looking for, you can copy or print it with just a couple more key strokes. As useful as it is, however, VFILER does have a couple of deficien- cies. The most serious is  u@2SRZ[à 蠒 SRQ!YZ[þ` tXy< s ^ @ ѻ?u:tC^p S ?Cu C?MuC?D[þ+ 6,Sn 6@698}ٸ6>6,S>6>6>6>6t) o|6@698|i0 6 fC ແ uPC2H / t Cð  Vu% dh - Untag File D - Delete File W - Mass Tag/Untag F - File Size M - Mass Copy -- File Print & View -- R - Rename File P - Print V - View Y - Mass Delete -- Movement Commands -- -2 Т  ڊ<*P +XĞtH  ڊ<*u*#t 7 C 2 Т  L> t #    P؇ڋ ڱX$"Ê؀> t#ڀ> ti ډi i +ډi ڀ> uS2  C :,ug & ] ຓ u 0P % r p p   t t ) p  C ; u r p > t2 p p  tܾKK g ^ u_ th tТg 0- Miscellaneous -- - File Forward / - This Summary > - File Forward E - Enter Command - File Backward L - Login DIR < - File Backward N - reNew Screen G - Go To a File S - Status of Di [o K# i  ] K t  z ;t| z   z ڋ ;tBڇڋ ;Ӈtr(Pt |  ;t| 5t   z  ;rڇډ| q  _ ;| u z  à  ZSC 'CZP$t Xð  PQRSЊ [ZYXRQS[YZð  ñ Vt%n  ; uh =h  v'h t.| | ; u |  | z ;u> Yu 0Z # D t>h t f , K > u + rAKt uZBZي ,tux þqx :rRv ࢴ  v ût  ~ 9| uÉ~ > Quits, Turns Up One Line, Other Keys Page Screen Print current file (Y/N)? *** Make Printer Ready ***Page the printer output (Y/N)? Print Header on every page (Y/N)? Printing Press ESC, or Q key to quit printing [View More...] > ;> u;> tün ? q J CK Bytes on Disk VFILER (APC) CP/M-86 Ver 2.s< u<.t2<*tCus< u<.u?CuB<.tCujr< t<.t <*tCuCu?Cu L  z  @Yt1 u  @z   ; uۋ  Oz Rt  ;t[ C 0Current File:Working ...File Size of Strike Any Key to Continue -- Can't Open source fileNo File FoundCan't Print/View CMD filesFile Read Error : Command (? for Help)?File: ??????????? :tCuu  g u& u * > t/ :s  < u]Ȣ >> u6 蠻 :s u> u  1À> t u uU ) -*þFz+- F.F>F,z] v\VIEW filename After first page is displayed, use Down Arrow or ^C to go forward and Up Arrow or ^R for backward, or X to exit. $1 am does not terminate automatically at the end of a listing, in order to let you have a chance to scroll backwards if you wish; thus "X" must be used to terminate (actually, if ^C is pressed while the screen is being  written, the program may be aborted by the operating system). S[*u}:ußPtgXĞûȊsK$ 0Êyð0'<0sà uà tà,t ,t,tð,PQRZYXà uð-Ã>tUP tBCC t+۬<#u"$ ++P"Y u t t x uJú Menu 1.00 CP/M-86 & Concurrent CP/M-86 Version Global Solutions Enterprises 1 September, 1985 I. Introduction The Menu package from Global Solutions is afile (which may be the eleventh line) re-invokes the MENU.SUB file, so that when execution of the selected commands is finished, the menu will return (note that nested batch files are available only under CCP/M-86; this is discussed below). This last lD.CMD: This program displays a directory listing that is sorted alphabetically and printed in three columns. The alphabetical order is vertical instead of horizontal, which makes it easier to find specific names. It does not pause f public-domain collection of the following files: MENU-PGM.CMD - NEC APC Version of the Menu Program (Color/Monochrome) MENU.SUB - Batch file for using the menu package MENU.DAT - Sample list of menu items and actions they invoke when ine is automatically placed in the file by the program, i.e., it does not have to be (and should not be) in the DAT file. If fewer than 32 items are found in the DAT file, the program will automatic- ally add an item with the key "X" and a definitionor full screens, so the BREAK STOP key should be ready when long directory listings are anticipated (slower screen speed is also useful, e.g., holding the CTRL key and tapping the "5" key in the top row of the standard keyboard area selected from the menu; used by the program MENU.DOC - This documentation file The purpose of the package is to provide a menu-driven interface to the operating system for use by people who have a set number of tasks to do on t "Exit to CPM-86". This item permits the closed loop of menu-application-menu flow to be broken, so that operating system utilities, applications not on the menu, etc., can be run. To restart the menu loop, the batch file can be re-invoked by entering ). A file specification may be given; for example, entering at the system prompt D *.DOC will list a directory for all files on the default drive with "DOC" for an extension. heir computer and who are not comfortable or particularly familiar with CPM-86. The files required for implementation are: the MENU-PGM.CMD file, the MENU.SUB file, and a customized version of the MENU.DAT file. In order to fulfill its purpose, all prog2  SUBMIT MENU Note that the DAT file should not contain an "Exit to CPM-86" type of item, because the program will put a call to the MENU.SUB file after whatever commands are involved, and the system will return to the menified, and the number of command lines may be from one to ten (if more than ten are needed, Concurrent CP/M-86 must be used, since it permits nested batch files via the $Include directive; alternatively, the processing which requires more than ten linesInclude Drive:) Dir % Beep P /* M Menu Documentation Type Menu.Doc /* W WordStar WS /* The first item has the key "D", the description "Directory (Include Drive:)", and causes the command "Dir %" to be submitted to CPM-86, where the "%" will bu rather than stay in the operating system mode. If the DAT file contains 32 items, no "Exit to CPM-86" type of item will be added by the program. When the user enters an item selection, it is forced to upper case unless it matches the "Exit to CPM- might possibly be broken up into more than one menu item). The character "N" in column one of line one symbolizes the key which will be displayed for this item on the menu. The blank in column two is ignored, and the rest of line one is displayed one translated into a drive ID entered by the user (see section V below), followed by a Beep command (which causes the message "Press RETURN to Continue" and a pause [provided pauses are enabled, as assumed here]; Beep is another public domain program fr86" key, which may be in lower case to avoid a con- flict with another item. "X" is normally used for "Exit to CPM-86", but it may be "x" if "X" is in use for something else; this is the only instance in which any distinction between upper and lower cas the menu as the description of the menu item. "N" may be any printable ASCII character; if it is alphabetic, it will be forced to upper case by the program. It is up to the implementer to ensure that keys are not duplicated; i.e., if two menu items botom Global Solutions; if needed, it may be obtained from Global Solutions along with the complete set of public domain programs for a small handling fee). The second item has the key "M", and causes this documentation file to be TYPEd. The third item,e is made, as far as the user is concerned. The DAT file should be customized with an editor capable of producing a pure ASCII output. The description below, together with the sample DAT file, should make this process fairly easy. II. Setting Uph have the same key, only the first one (earlier in the list) will really be accessible from the menu; this version of the program does not check for duplicate keys except for the key "X", which it uses for the "Exit to CPM-86" option ("X" may be used, with the key "W", causes WordStar to be invoked. The menu program will add a fourth item with the key "X" and the definition "Exit to CPM-86". Items of no interest should be removed from the MENU.DAT file when it is converted from a sample to an app In order to set up the menu capability, the following steps should be taken. 1.) Edit the AUTSTRT.SUB file (create it if it does not exist; this, however, would be a most unusual circumstance) on the boot disk to place the line  nevertheless, for something else; the program will then make the "Exit to CPM-86" key "x", i.e., lower case). The "Name of Item" which will be displayed on the menu as the definition of the key "N" should be no more than 75 characters if there are 1lication version. The "D" and "M" options may be useful to keep (the latter will require this MENU.DOC file to be on- line). The "W" option may or may not be useful, depending upon the exact implementation; if needed, then the WordStar files WS.CMD, WSO SUBMIT MENU at the end (left-justified, of course). 2.) Edit the MENU.DAT file to customize it as described in section III below; use any ASCII editor. 3.) Place the files MENU.SUB and MENU.DAT where they will be on the de6 or fewer menu items; it should be no more than 32 characters if there are more than 16 menu items. These limits will be enforced by the menu program by trun- cating "Name of Item" if necessary. For the sake of readability, it is best to choose "Name VLY1.OVR, and WSMSGS.OVR must be physically on-line and available, etc. It is probably a good idea to keep the items in MENU.DAT alphabetized by the key. The "Exit to CPM-86" item, if added by the menu program, will always be last on the list, howevefault drive (and preferably set to the SYS attribute) after the system boot is completed. 4.) Boot the system and test each menu item under all anticipated conditions and with all anticipated options; fix as necessary by editing the DAT of Item" so that it conforms to these limits. The "Desired command lines" will be output verbatim to the generated batch file, which will be named DISPATCH.SUB; this name must not be used for any- thing else, since it will be written into by the progrr. The order in which the items are presented on the monitor screen will be the same as their order in MENU.DAT. If more than 16 items are present, the first half will be displayed on the left side of the screen, and the remainder will be displayed on t file. III. The MENU.DAT File The MENU.DAT file consists of a collection of ASCII lines terminated by carriage-return/line-feeds. Each line may contain up to 128 columns. Each desired menu item has a subset of the MENU.DAT file lines dedicatedam. The list of desired command lines must be terminated with a single line containing the sentinel "/*", as shown. A comment may be added after the "/*" if desired. Only this usage of the character string "/*" is allowed (unless it does not begin in che right. IV. Nesting Batch Files The menu program implements the user's selection via a generated batch file named "DISPATCH.SUB". Batch files can be chained (i.e., the last line of one batch file can invoke another one), but they cannot be nest to it, composed of a contiguous series of lines with the format N Name of Item Desired command line #1 Desired command line #2 Desired command line #3 . . . Desired command line #10 /* where each line is left-justolumn one), as it is always considered a delimiter by the program. The very last set of menu item lines need not be terminated by "/*", since an end- of-file serves as well. As an example, the contents of the sample MENU.DAT file are: D Directory (2 ed (invoked from within each other, with control returning to the calling batch file when the nested one is finished). That is, they cannot be nested directly by simply including the name of a batch file within another under CP/M-86. They can be nestedt drive). If the user enters D F (forgetting the ":"), then CPM-86 will be given "Dir F", and will probably re- spond "No File" again (unless there actually is a file named F on the default drive). If the user wisheracters that come up. The total length of the user's input to the menu program may not exceed 128 characters (it will be truncated, if necessary). Similarly, the total length of a command line after expansion from "%" to a parameter string must also b if Concurrent CP/M-86 is used, since its SUBMIT processor accepts the $Include directive, which expands the included file at the point where it is invoked. If more than ten lines are absolutely necessary, then it would be best to use Concurrent CP/M-86s to get a DIR listing of all files on drive C: with the extension .BAS, then the menu selection should be D F:*.BAS and if this is desired on the printer, then CTRL-P may be pressed at the end of the line of input. Ine 128 columns wide or less (or it will also be truncated). Note that USER commands (change User Number) can be a source of trouble, since they provide the possibility of ending up in some User Number from which the MENU.SUB file is unavailable, unles, which is rich in superiorities over CP/M-86 in general. For further details, please consult the Concurrent CPM-86 manual. V. Including Command-Line Parameters Most menus do not permit specification of anything more than a single item's select general, control-character input normally intercepted by CPM-86 will continue to be intercepted while the menu program is running. This is not actually a recommended way to get printer output, however, since the menu program screen output, complete wits it is set to the SYS attribute with the STAT command (SET, in CCP/M-86); the same applies to MENU.DAT, and probably DISPATCH.SUB (the latter must not be Read-Only, however). By the same token, the implementer should try to anticipate other possible deion. Since the menu discussed here is an interface to CPM-86, the situa- tion could arise in which parameters need to be passed to whatever program is to be invoked. A simple example is the DIR command. If one has several drives, say A:, B:, and C:, theh escape sequences, will also go to the printer; some form of screen dump or dedicated directory-to-printer utility would be preferable. If the user needs to have several different parameter strings passed to differ- ent lines of output, this can be railment points and avoid them, since the whole purpose is to simplify the life of the user. If the worst happens, most users know how to reboot, which ought to reconnect everything if the AUTSTRT.SUB file is set up properly, but sometimes this option n one could have several DIR items on the menu, one for each drive. The MENU.DAT file might then have the following lines. A Directory of A: DIR A: Beep P /* B Directory of B: DIR B: Beep P /* C Directory of C: DIR C: Beep P /* This may bdone as follows. Suppose the MENU.DAT file contains B Backup & List Dir % Copy % Dir % /* If the user wishes, this can be used to get a DIR listing of any drive before and after a COPY operation. If the user enters B E:*can be costly (e.g., a RAM disk that doesn't survive reboots). VI. Limitations This Menu Package is placed in the public domain by Global Solutions with the following restrictions: 1.) It may not be sold for money, goods, or services (it may bee the best way to provide the desired capability. On the other hand, if one has twelve disk drives, or if one wishes to use "A", "B", or "C" as keys for other items, etc., one may set up the MENU.DAT file so that a single item is able to get DIR listing.CMD`A:*.CMD E:`E:*.CMD then what CPM-86 will get is DIR E:*.CMD COPY A:*.CMD E: DIR E:*.CMD Note that the "`" character is used as a delimiter to separate diffe copied and freely given away). 2.) Global Solutions Enterprises reserves all rights to the program and all future versions of the program, which may or may not be placed in the public domain, at the discretion of Global Solutions Enterprs of many drives. This is how it is done in the sample MENU.DAT file, which contains the lines D Directory (Include Drive:) Dir % Beep P /* In order to get a DIR listing of, say, drive F:, the user would enter as the selected option rent parameter strings, and cannot be used for any other purpose (unless the menu program is appropriately patched). Note also that blanks may be imbedded in parameter strings, as in the middle one above. Furthermore, only one "%" per line is permittedises. 3.) The entire package is made available to the public on an "as is" basis, without any warranty, express or implied, with respect to its fitness for any given purpose; Global Solutions Enterprises disclaims any responsi- bility for D F: followed by a carriage return. The menu program will transfer the "F:" string to the position occupied by the "%" in the command line "Dir %", so that CPM-86 is given the command "Dir F:". The definition of the key "D" in in MENU.DAT, so the complete parameter string for any one line must be kept together. Also, there is no provision for repeating identi- cal strings, so the first and last strings above had to be entered separately by the user, even though they were the any damages, direct or consequential, arising out of its use; the entire responsibility for its use resides with the user; if, however, the menu program fails to execute properly as documented herein in connec- tion with an environment whiccludes the re- minder to include the drive ID. If the user forgets to do this, the menu program will generate the line "Dir %" in the DISPATCH.SUB file, and CPM-86 will probably respond "No File" (unless there is actually a file named "%" on the defaul same. If the user enters more parameter strings than there are "%" characters in the associated command lines, the excess will be ignored. If fewer are en- tered, the last one will be repeated as many times as necessary to resolve all of the "%" cha3 h can reasonably be considered normal (or at least not exploiting quirks, bugs, etc., of CPM-86 or any other software), then Global Solutions will make a reasonable effort to correct the program to provide the desired correct results. The call attention to the terminal after a long-running program has finished. BEEP.CON is a Concurrent CP/M-86 version of BEEP.CMD which also prints the date and time when it is executed; to use it, get rid of BEEP.CMD (the********* *** *** *** MODEM9XX.DOC Documentation for CP/M User's Group Program. *** *** *** *** This expands on the info in MODEM7.DOC. *** *** January 11, 1983. Tom McCormick, Houston TX *** *** *** *** Updated f menu program has the following limitations: Item Maximum Number of menu items 32 Number of batch lines generated per menu item 10  CP/M-86 version) and rename BEEP.CON to BEEP.CMD; if this is done under normal CP/M-86, the date and time fields will be blank. If "BEEP" is entered without any command-line parameters, the help screen below is printed. Use BEor use with MODEM797 enhancements. *** *** February 14, 1983. Paul Sittler, Coll Sta TX *** *** *** *** Updated for use with MODEM9xx enhancements. *** *** March 20, 1983. P. L. Kelley, Lexington, MA *** *** *** *********** Length of menu item definition (16 or fewer items) 75 Length of menu item definition (more than 16 items) 32 Length of batch line generated (including parameters) 128 EP to Sound Bell or Pause in .SUB Files, e.g., BEEP 10 (Sound Bell 10 Times) BEEP P (Wait for RETURN to be Pressed) BEEP 5P (Sound Bell 5 Times and Wait; Note: #Beeps Given Before "P") Use BEEP Interactively to Enable******************************************************** NOTE: The xx in MODEM9xx stands for the last two digits in the ver- sion number. CREDITS: Original MODEM program and documentation by Ward Christensen. Revisions by a cast of tho&>.@"K8E?@#O>C!@3P?K:@2K8E?@3QF?*R< C!@C5<<@CS<C!@S/Disable .SUB File Usage, e.g., A>BEEP PAUSE=ON (Enable Pause) A>BEEP BEEP=ON,PAUSE=OFF (Enable Beep, Disable Pause) (Note: No Blanks in Command Tail) Caution: A File Named BEEPFILE.OPT Will Beusands. MODEM7.DOC by Mark Zeiger/James Mills 11/04/80. MODEM797.HLP by Paul Sittler/Tom McCormick 3/1/83. SUMMARY: -------- MODEM9xx is a public domain CP/M program which works on many different brands of computers. 5<?=@ST=C!@c5=>@cU=C!@s5=> @sV=$C!@5=$>1@W=6C!@5=6>B@X Written on the System Default Disk if Interactive Option Setting Is Used 0H ;SET OFFSET TO F17 KEY LOCATION MOV AX,CONTROL_J ;CHANGE F17 KEY TO CONTROL J MOV ES:[DI],AL ;LOAD MEMORY LOCATION It is used to send information from one computer to another, using either wires or telephones. If telephones are used, each computer must use a hardware device called a "modem", hence the name for this program. It may also be used with t=GC!@5=G>R@Y=YC!@5=Y>c@Z=iC!@5=i>r@[={C!@5={>@\=!C!@5=> MOV CL,0 MOV DL,00H INT 224 ;RETURN TO CP/M-86 END ZI?CU\=];MQ?^3?<&<:&<&<1"3!?_wo computers in the same room cabled directly together. Unlike most CP/M programs, MODEM9xx must be modified for each different brand of computer on which it is installed. This is because MODEM9xx does not use CP/M in a normal way, but@]=#C!@5=>@^=%C!A5=>A_?KN?<K>?=K>?>K>;C=";;?LG`?KN@?K)aECCb?KN@?K)c1?3!?d;??F8.IC!C communi- cates directly with the modem port of your computer (bypassing CP/M for some functions). You should locate a copy of MODEM9xx which has already been set up for your model of computer. If you can't find a copy already configure?> K>?>1K>?>BK>?>RK>?>cK>?>rK>?>K>?>K>Th followin documentatio i fo th CP/M-8 versio o MODEM9 Th CP/M-8 versio i almos identical bu th siz o th tex captur buffe i fixe a 16 (yo ca mak i large i yo wan to rathe tha bein sel sizin t th basd for your computer, you should seek assistance in confi- guring MODEM9xx to some new or non-standard equipment. This can be done through your computer dealer, or a user's group in your area. It would also be helpful to have someone show you hBEEP.CMD: This program sounds the APC's beeper and/or pauses until RETURN is pressed. This is intended primarily for use in SUBMIT files, where a pause may be desired between program executions, or the beep may be useful to o th CP/M-8 BDOS Fo additiona informatio abou th CP/M-8 versio se th (hopefully accompanyin fil MODEM-86.DOC. Bill Bolton Credit where credit is due department. . . **********************************************************3 ow to use MODEM9xx the first time. MODEM9xx uses the file transfer routines written by Ward Christensen in his CP/M file transfer program (V2.0 as of 8/6/79) and is compatable with his program in single file transfer mode. e the options available to the user, and provide brief explanations of each. The elp screens have a prompt that indicates that the user should press any key to continue. These are not "Menus" and commands must be given at ctrl-R - Stop copy into buffer Start & Stop may be toggled as often as desired. A ":" at start of line indicates buffer is open. XOFF automatically used to stop input when writing full buffer to disk, XON sent to resume. ctrl-T - Multi-file transfers are possible with two systems running the program described below. This is provided by the batch feature while ending or eceiving files with the ulk subcommand. It is accomplished with a single line command, the COMMAND (H for Help): prompt. Single Letter Commands H - Display this information ? - Display current settings T - Terminal mode E - Terminal mode with echo L - Terminal mode with local echo For capturing text  Transfer ASCII file to remote ctrl-^ - Send local control character to remote Drive A COMMAND (H for Help): At this point MODEM9xx has completed its hopefully helpful three-screen display and is awaiting your command. The SET command  thus freeing the operator from having to enter a command for each file. The MODEM9xx program has two principal functions: 1. Communication with a timesharing or another CP/M computer. 2. Program transfer with error-checking checksumuse T(or E or L) FILENAME.TYP and Start & Stop toggles described on subsequent screen. R - Receive file using Christensen Protocol S - Send file using Christensen Protocol Command is: R(or S) FILENAME.TYP R and S can use the followiwill not be displayed if a setup routine has not been written for your UART/MODEM, an alternate command will be dispalyed, TIM, which allows you to enter your modem speed so that the program can give proper file transfer timing information. The cont control. NOTE: A special version of the MODEM program exists for the DC Hayes Smartmodem (an external, RS-232 modem). This can be found under filenames beginning with SMODEM, SMODM, SMDM, or SMOD. How to Use MODEM9xx ng subcommands: B - Bulk transfer using wildcards (e.g. *.*) Q - Quiet mode (no messages to console) T - Return to terminal mode after transfer V - View bytes transferred on console The single letter commands may also be used on the crol codes display- ed may differ from those give above since the user can redefine them. We will now enter the second option on the first help screen, the "?" option. Drive A COMMAND (H for Help): ? ----- Current Settings  In the discussion and examples that follow, where examples of user/computer interaction are used, that which is typed by the user is underlined with the hyphen (-) symbol on the line beneath it. Those items that are supplied by the computer ommand line when the program is initially executed. HIT any KEY to CONTINUE ---- Three Letter Commands CPM - Exit from this program to CP/M DIR - List directory and space free (may specify drive) ERA - Erase file (may speciCRC mode set Printer is off Carrier not present Modem speed is 300 baud Backspace is backspace Linefeed NOT sent after Use ctrl-^ to send local command to remote Terminal mode file buffer is inactive Unused portion of buffer is 36608 bytes Woare simply typed as they would appear on the screen. As another convention, the sym- bols denote the entry of a carriage return, and CTRL-S is used to mean "hold the control key down while hitting an S." MODEM9xx is a CP/M command ffy drive) LOG - Change default drive/user (specify drive/user) and reset disks. e.g. LOG A0, LOG B (user unchanged) FOP - Display commands for setting terminal mode file output parameters DSC - Disconnect the modem from the telephone line rd length is eight, number of stop bits is one, parity is none Linefeed NOT sent after in terminal mode file output End-of-file character NOT sent in terminal mode file output XOFF testing NOT used in terminal mode file output XON NOT automaticallile, and will ordinarily look something like MODEM9xx.COM in a directory. In order to use it, the system should have CP/M running and display the CP/M system command prompt ( A> ) being displayed. We are assuming that MODEM9xx.COM  TCC - Toggle Checksum/CRC mode on receive TBR - Toggle backspace to rub conversion TLC - Toggle 1) local command immediate 2) local command after ctrl-^ TLF - Toggle send linefeed after carriage return NUM - List remote systems SET - Set comy tested after in terminal mode file output Waiting for character echo NOT used in terminal mode file output Terminal mode file output delay is 0.00 seconds per character Additional delay after is 0.00 seconds Drive A COMMAND (H for Helpis on drive A:. MODEM9xx signs on very politely, with a short sign-on message, and the reminder that to get Help, you need only to type "H." A>MODEM9xx ------------ MODEM 9.xx - 03/20/83 Version for: Heath H89 Drive A COMMAND (H fmunication ports The following are terminal text buffer commands: DEL - Delete memory buffer and file NOL - Return to terminal mode - no loss of data in buffer WRT - Write memory buffer to disk file HIT any KEY to CONTINUE ---- ): The screen is now displaying options as currently set up in the program as well as other information on the the current state of the program. The options may be changed as the user desires by use of some of the three letter commanor Help): Drive A COMMAND (H for Help): H ----- "H" option -- elp Screens If the elp option is entered at the command prompt, the elp Screens are displayed. These three screens of informa- tion outlin Local Commands while in Terminal Mode ctrl-E - Exit to command mode ctrl-O - Transmit string',CR,LF Must be followed by number of string (0-9) or L to display list of strings ctrl-P - Toggle printer ctrl-Y - Start copy into buffer4 ds displayed in the help screen earlier. There is a special help screen for setting terminal mode file output parameters. We will now display this screen. Drive A COMMAND (H for Help): FOP ------- Commands for Setting Terminalcho mode, while. . . the other must be in erminal mode. Otherwise, you will either not see your own keyed en- tries, or you will see an eternal ping pong match while both ends echo some character. If this situation occursappear on your CRT in column 1 of every line to indicate that the save feature is active. The colon will NOT be saved in your file, it is just there to indicate that the save text in me Mode File Output Parameters SPD - Set speed of file output TEF - Toggle transmission of end-of-file character TSL - Toggle stripping linefeeds TWE - Toggle wait for character echo TXF - Toggle XOFF testing TXN - Toggle XON waiting after Dr, enter a ConTRoL-E and use the erminal option. Terminal Mode -- ocal Echo Option ------------------------------------ The ocal Echo Terminal option is the same as the erminal option, except that the characters enmory feature is on. ConTRoL-R turn off the saving feature to --------- bypass something. Nothing will be saved until another ConTRoL-Y is entered. No colon will ap- pear at the the leftive A COMMAND (H for Help): Drive A COMMAND (H for Help): T ----- In MODEM9xx there are three different terminal modes. They are all used to communicate with other computers. They are all slightly different to allow tered on the keyboard are echoed back to the screen. This is useful when communicating with the WYLBUR front end processor for the HAL TSO option, or some other computer that does not echo back the characters that it receive edge of your CRT at this point. ConTRoL-E Exits erminal (or any) mode --------- and returns to the MODEM9xx command prompt. COMMAND (H for Help): WRT You MUST enter WRT at this point the user a great degree of flexibility in picking the proper one for the job at hand. All three may be opened with an optional file name for capturing text (ASCII) data and saving it as a disk file. Terminal Mode - erminal Option ------s. The local Echo option is essen- tially the same as the erminal option with a change from full to half duplex on the modem. Terminal Mode -- erminal, cho, or ocal Options -------------------------------------------------- to move the data from memory on to a diskette. If you forget this, you can forget about find- ing anything in your "file" on diskette. Additional notes about the , , or Terminal options: --------------------------- This is the "normal" terminal mode wherein the computer is used essentially to emulate a time sharing terminal. You will be able to use your computer as if it were a normal terminal in full du---------- Any of the three terminal options, erminal, cho, or ocal echo may be used either with or without an optional filename specified after the command. If a file name is NOT specified after the , , or terminal mode command, then you will be in the so-called "dumb" terminal mode, and cannot save any of the tranmissions from or to your computer. If a file name IS specified, it should be for a new file. The information rec buffer in memory, you may decide that you DO NOT want to save it. Simply eliminate entering the WRT command, and go on to something else. 3. Be sure you have enough free diskette space to hold the new file you are cr boards, RCP/M's, and mainframes. Terminal Mode - cho Option ----------------------------- This terminal mode automatically echos characters re- ceived from another computer. This is useful if you wish to communicate witheived by the modem may then be saved in memory and later written on disk. The save text in memory feature is turned ON by ConTRoL-Y, and then OFF by ConTRoL-R. The sequence of commands to save a file is: COMMAND (H for Help)eating with the WRT command. You must make sure ahead of time. 4. If the memory buffer fills up while you are receiving a lengthy transmission, MODEM9xx will automatically stop recei- ving. It will ask the other comput somebody running the terminal portion of the program. Only one computer should be in this mode at a time. This cho terminal mode is used at one end while the erminal mode is used at the other end in cases where key- boar:T MESSAGE.TXT make up your own filename, be ------------- sure you have enough free space on diskette. NOTE: You could alternatively have used the cho or ocal echo terminal options in place of the terminal option. The er to wait, by sending an X-OFF or ConTRoL-S. It will then write the information to your disk file, and ask the other computer to begin transmit- ting more information by sending an X-ON or ConTRoL-Q. Your computer willd-to-keyboard communications are desired. Both ends will see anything entered at either end. This is a useful setup for verifying that the connections are right before beginning file transfers. REMEMBER. . . One computer in one that you select will depend on whom you are communicating with. ConTRoL-Y begin holding in memory at this --------- point; (you could choose not to save your logging-in transmis- sions). A colon will 4  then resume receiving the transmission. You will not lose anything if the other computer understands X-ON and X-OFF. 5. The memory buffer is from the top of the modem program to the bottom of BDOS. In a 64k machine, thisy using the "WRT" command. If this is not done, all data will be lost. 11. The original author of MODEM (Ward Christensen) decided not to close the file automatically since there will be times when you leave theavailable with XMODEM programs on RCPM's) -------------------- Using the ulk batch secondary option, more than one file may be transferred. Ambiguous filenames are accepted. This is one of the major enhancements of MODEM7 and is usually enough to hold 20 minutes of steady transmission at 300 baud, or 5 minutes at 1200 baud. The computer with which you are commu- nicating must accept the X-ON and X-OFF (ConTRoL-Q and Con- TRoL-S) protocol conv terminal mode and then decide to re- enter. This may be done while at the Command prompt by using the "NOL" command. You may put data into the same file as many times as you wish as long as you have not closed the fil1 later versions of the MODEM program. To end a ulk batch of files, enter SB followed by one or more filenames. For example: COMMAND (H for Help): SB B:ST*.BAS C:SWEEP.DOC D:*.* The individual filenames should be sepaention or data will be lost while your buffer is written to your disk file. You can verify that the other computer will wait by entering a ConTRoL-S from your keyboard and seeing if the transmission stops until you enter  with the "WRT" command. TO SEND A FILE FROM TERMINAL MODE: ---------------------------------- While in , , or terminal mode, a ConTRoL-T will put you in File Transfer mode. This will allow you to send the contents rated by a space, and should include the correct drive identifier (B: C: etc.). If no drive identifier is specified, the currently logged drive will be assumed to contain the file(s). The filenames may contain wildca ConTRoL-Q. 6. If the transmission or file you are receiving is smaller than your memory buffer (approx. your memory size, less 27k) then you do not have to worry because you will not have to try to pause the remote systemof an ASCII file over the modem. This routine does no error checking and there are no protocols specified between this program and the receiving computer other than that it should be ready to receive data via the modem. The rds ( * or ?, where the asterisk may match any string of characters, and the question mark may represent any one character) As of 1/1/83, there was a 64 filename maximum; be careful using those wildcards. Ensure that the  while you write. If it is larger than your buffer, AND the remote system does not recognize X- ON and X-OFF, you may have to break the transmission into smaller pieces. 7. Receiving a program source file such as .ASM  use of ConTRoL-X will cancel the transfer. You could use this mode to send MBOOT.ASM or other pro- grams to another computer which is not using MODEM8xx. If the other computer is not using one of the MODEM programs, do not  receiving computer's disk drive has enough free space to hold the file(s) that you are ending to it. To eceive a ulk batch of files, enter RB followed only by the disk drive specifier (B: C: etc.) For example, or .BAS can be done in any of the terminal modes from another computer which is NOT using MODEM9xx. However, be aware that you have no error checking in the , , or terminal modes. These should only be used fo bother to try to use the end or eceive options explained below. They require coordinated error checking by one of the MODEM programs at both ends. FILE TRANSFER - end and eceive Options ------------- end and  COMMAND (H for Help): RB B: --------- You DO NOT enter filenames at the receiving end during batch transfers. They are sent with the files. If you merely enter RB and omit the drive specifier, the default orr program transfers where the other computer does not have the MODEM9xx program. You may want to transmit two copies of a file, then use CRCK or COM- PARE to see if identical copies were received. This is NOT needed if eceive are the same as in the CP/M Modem program written by Ward Christensen except that upon comple- tion of the transfer, control returns to the Command prompt unless the secondary "T" option has been selected. In the  currently logged-in drive will be used to receive the file. For example: Drive A COMMAND (H for Help): RB ------- the command shown here is telling the computer to eceive a ulk batch of files, placiboth ends have MODEM9xx and the end and eceive modes were used for the file transfer. 8. If a filename is NOT specified after the , , or terminal command, then transmissions can not be saved. 9. When communi latter case, control returns to erminal mode. Remember that if you are operating a remote CP/M (RCPM) computer using a timesharing program (such as Ward Christen- sen's "BYE"), the remote system's XMODEM program will send orng them on the currently logged or default drive. The Default drive in this case is A:, as shown on the line above the COMMAND (H for Help): prompt line. Using the iew secondary option: ------------------------------------ If ycations are done, use ConTRoL-E to exit from the , , or terminal mode and see the command prompt again. 10. If you chose any terminal mode with a filename, the file to which you are writing must then be closed b receive single files (except .COM). This is done using com- mands of the same general format as outlined below for MODEM9xx. Examples of commands for ending and eceiving are listed below. Multi-file transfers (not 5 ou are receiving a file you know to be readable (ASCII) such as a .DOC documentation file, you can view it as it is being eceived. This can be a real timesaver if it is used to iew documentation files being eceived while trying to dec reset disks. e.g. LOG A0, LOG B (user unchanged) FOP - Display commands for setting terminal mode file output parameters DSC - Disconnect the modem from the telephone line TCC - Toggle Checksum/CRC mode on receive TBR - Toggle backspace to rub acter to a "rubout" character when communicating with terminals or computers that need it. TLC - This changes the local command mode from an immediate type to one that sends a control character to a remote machine only after a ConTRoLide whether or not to transfer software from a remote machine. Simply add the letter "V" following the letter "R" in your eceive command. For example: Drive A COMMAND (H for Help): RV MODEM9xx.DOC ------------------- conversion TLC - Toggle 1) local command immediate 2) local command after ctrl-^ TLF - Toggle send linefeed after carriage return NUM - List remote systems SET - Set communication ports The following are terminal text buffer commands: -^. TLF - This allows you to either send or not send a "linefeed" character after every "carraige return" sent out in the terminal mode. NUM - This command displays on the screen a listing of frequently called telephone numbers,  MODEM9xx Command Examples: -------------------------- Note: All of these examples assume you are at the "COMMAND (H for Help):" prompt of MODEM9xx. If you are still in one of the termi- nal modes, enter a ConTRoL-E to get to this prompt.  DEL - Delete memory buffer and file NOL - Return to terminal mode - no loss of data in buffer WRT - Write memory buffer to disk file DIR - The "DIR" command lists the directory of a CP/M disk. It also shows the amount of space free on the dis such as those for computerized Bulletin Board systems, Remote CP/M's, etc. SET - The "SET" command allows you to set the communications ports for the PMMI modem, and for certain other machines. You may be able to change things like SINGLE FILE TRANSFERS: ---------------------- S MODEM.DOC ends MODEM.DOC from logged-in drive R B:MODEM.DOC eceives MODEM.DOC on drive B: disk S B:MODEM.DOC ends from drive B: R A:MODEM.DOC eceives on drive A: k expressed in Kilobytes. A drive may be specified (ie. DIR B:) or the default drive will be listed. Wildcards (*'s and ?'s) may be used the same as when DIR is run from the A> prompt under CP/M. For example, Drive A  baud rates, word length, number of stop bits, and so on. This is not imple- mented for most machines, as the assumption is that you will be able to set these things on your machine through a manufacture-supplied utility called CONFIG.CO MULTIPLE FILE TRANSFERS: ------------------------ SB B:MODEM*.* ends from B: all files beginning with the letters MODEM RB B: eceives files on B: SB B:F1.BAS C:F2.COM ends two files RB eceives files on lo COMMAND (H for Help): DIR B:*.BAS -------------- would display a directory listing of all files on Drive B: with any FILENAME that have a file type of .BAS. CPM - The "CPM" command ends the MODEM program and returns to CP/M. M, CONFIGUR- .COM, SETUP.COM, or the like. TIM - If the SET command is not implimented then this command is used to set the baud rate so that the program can properly display the time to transfer a file. DEL - The "DEL" command erasesgged-in disk SB B:MODEM*.* B:F1.BAS C:F2.COM combines two examples above. RB B: eceives files on B: MULTIPLE FILE TRANSFERS (cont'd) -------------------------------- Note:  >>>>----> THIS IS HOW YOU EXIT THE MODEM9xx PROGRAM. <----<<<< COMMAND (H for Help): CPM ------- A> The computer will respond with the CP/M system command prompt. LOG - The "LOG" command allows you to change y the most recent file accessed in Terminal mode. This is used when you decide after a communication session that you don't want to save on disk the information just gathered. NOL - Use the "NOL" command to RE-ENTER any of the three  ----- Multi-file transfers may only be started from the command prompt. They may not be specified when the MODEM program is cal- led. In other words, A>MODEM9xx SB *.COM will result in an INVALID OPTION error mesour currently logged in (default) disk drive and user level. It also allows you to change disks in the drive. This comes in handy when you wish to bring in a large file and your DIR shows that you don't have enough disk space to hold terminal modes with NO Loss of data after going to the command mode with a CTRL-E. If this is done, you will still be able to save the information in the memory buffer if you were doing so before you quit the terminal mode. Note that this wilsage. You must be at the Drive A COMMAND (H for Help): prompt to do multiple file transfers. The proper usage is Drive A COMMAND (H for Help): SB *.COM -------- THREE LETTER COMMANDS DEFINED ------it. FOP - This command displays a submenu of three letter commands which effect terminal mode file output. DSC - This command will disconnect the modem from the telephone if your system has that capabiltiy. If disconnect is not possl return you to whichever terminal mode (erminal, cho, or ocal Echo) you were using before you went to the command mode. WRT - The "WRT" command must be used after leaving Terminal mode. This writes the last buffer to----------------------- Three Letter Commands DIR - List directory and space free (may specify drive) CPM - Exit from this program to CP/M ERA - Erase file (may specify drive) LOG - Change default drive/user (specify drive/user) andible then this command can be eliminated from the menu at assembly time. TCC - This allows you to select the default method of error checking protocol for transferring data. TBR - The "TBR" command lets you change the "backspace" char5  disk and closes the file. Failure to use the "WRT" command results in loss of all data and a file of length zero. Commands for Setting Terminal Mode File Output Parameters SPD - Set speed of file output TEF - Toggle transmission of end A ":" at start of line indicates buffer is open. XOFF automatically used to stop input when writing full buffer to disk, XON sent to resume. ctrl-T - Transfer ASCII file to remote ctrl-^ - Send local control character to remote CTRL-Ebcommands: B - Bulk transfer using wildcards (e.g. *.*) Q - Quiet mode (no messages to console) T - Return to terminal mode after transfer V - View bytes transferred on console The single letter commands may also be used on the comman-of-file character TSL - Toggle stripping linefeeds TWE - Toggle wait for character echo TXF - Toggle XOFF testing TXN - Toggle XON waiting after SPD - The "SPD" command allows you to add delay time after each character sent or each ca This command is the way to leave any mode and return to the COMMAND (H for Help): prompt. You may then use your choice of the three-letter commands. CTRL-O This allows you to transmit pre-defined strings of characters characters if they have beed line when the program is initially executed. HIT any KEY to CONTINUE ---- Three Letter Commands DIR - List directory and space free (may specify drive) CPM - Exit from this program to CP/M ERA - Erase file (may specify drraige return sent. This is useful if you are communicating with a hard copy terminal or even a mainframe that cannot capture the characters as fast as you can send them. TEF - When transferring a text file to another CP/M system it n put into your program. CTRL-P This will cause the characters sent to the screen to be simultaneously sent to the printer, or LST: device. It works the same way as the printer toggle in the CP/M opera- ting system. The first use turns itrive) LOG - Change default drive/user (specify drive/user) and reset disks. e.g. LOG A0, LOG B (user unchanged) FOP - Display commands for setting terminal mode file output parameters DSC - Disconnect the modem from the telephone line TCCis sometimes useful to send an end-of-file (EOF) marker. This toggle will turn on/off sending an EOF. TSL - When sending text to a mainframe it is usually desirable not to transmit linefeeds. On the other hand, when sending text files t on, the second use turns it off, etc. CTRL-Y This is used with the CTRL-R command to control the process of putting text into the memory buffer. The CTRL-Y begins putting text into the buffer, while the CTRL-R suspends the process. CTRL-T - Toggle Checksum/CRC mode on receive TBR - Toggle backspace to rub conversion TLC - Toggle 1) local command immediate 2) local command after ctrl-^ TLF - Toggle send linefeed after carriage return NUM - List remote systems SET - Set communio another CP/M system it is usually desirable to send linefeeds. This toggle will turn on/off sending linefeeds. TWE - If the remote echoes, one of the most reliable methods of sending text is to wait for the transmitted character to be  This initiates the transmission of a text (ASCII) file without any error checking protocol. This should be used to send text files to machines that are not running any of the MODEM programs. NOTE: The control codes displayed by the procation ports The following are terminal text buffer commands: DEL - Delete memory buffer and file NOL - Return to terminal mode - no loss of data in buffer WRT - Write memory buffer to disk file HIT any KEY to CONTINUE ----  echoed. This toggle will turn this option on/off. TXF - Some mainframes (and micros) send XOFF when they want your micro to stop transmitting and send XON when they are ready to resume accepting text. This toggle will turn XOFF test- on/off.gram may differ from those give above since they can be redefined at assembly time. A Typical Session With MODEM9xx The computer is on and the CP/M operating system is 'booted' so that the screen displays the A> command prompt fromLocal Commands while in Terminal Mode ctrl-E - Exit to command mode ctrl-O - Transmit string Must be followed by number of string (0-9) or L to display list of strings ctrl-P - Toggle printer ctrl-Y - Start copy into buffer ctrl-R - Sto TXN - Certain systems, such as the ASCII interfaces for IBM 370s, always send an XOFF on receipt of a and send XON when the system is prepared to receive another line. This toggle turns on/off waiting for an XON after a . NOTE: Onl CP/M. We have inserted the disk with MODEM9xx.COM into disk drive A: We will wish to write on disk A: so we 'warm-boot' with a ConTRoL-C. A>^C -- A>MODEM9xx ------------ MODEM 9.xx - 03/20/83 Version for: Heath H89 Drive A COMMp copy into buffer Start & Stop may be toggled as often as desired. A ":" at start of line indicates buffer is open. XOFF automatically used to stop input when writing full buffer to disk, XON sent to resume. ctrl-T - Transfer ASCIy one of the TWE, TXF and TXN toggles can be on. LOCAL COMMANDS THAT MAY BE USED WHILE IN THE TERMINAL MODE ---------------------------------------------------------- Local Commands while in Terminal Mode ctrl-E - Exit to command mode ctrAND (H for Help): H ----- Single Letter Commands H - Display this information ? - Display current settings T - Terminal mode E - Terminal mode with echo L - Terminal mode with local echo For capturing text use TI file to remote ctrl-^ - Send local control character to remote Drive A COMMAND (H for Help): ? ----- Current Settings CRC mode set Printer is off Carrier present Modem speed is 300 baud Backspace is backspace Linefeed NOT l-O - Transmit string Must be followed by number of string (0-9) or L to display list of strings ctrl-P - Toggle printer ctrl-Y - Start copy into buffer ctrl-R - Stop copy into buffer Start & Stop may be toggled as often as desired. (or E or L) FILENAME.TYP and Start & Stop toggles described on subsequent screen. R - Receive file using Christensen Protocol S - Send file using Christensen Protocol Command is: R(or S) FILENAME.TYP R and S can use the following su6 sent after Use ctrl-^ to send local command to remote Terminal mode file buffer is inactive Unused portion of buffer is 36608 bytes Word length is eight, number of stop bits is one, parity is none Linefeed NOT sent after in terminal mode fil Y ----- XOFF testing used in terminal mode file output Therefore - XON NOT automatically tested after in terminal mode file output Waiting for character echo NOT used in terminal mode file output Drive A COMMAND (H for Help): TBRd sent after Use ctrl-^ to send local command to remote Terminal mode file buffer is inactive Unused portion of buffer is 36608 bytes Word length is eight, number of stop bits is one, parity is none Linefeed NOT sent after in terminal mode fe output End-of-file character NOT sent in terminal mode file output XOFF testing NOT used in terminal mode file output XON NOT automatically tested after in terminal mode file output Waiting for character echo NOT used in terminal mode file outpu ------- Backspace is rub Drive A COMMAND (H for Help): SPD ------- Enter character output delay [0(none) - 9(longest delay)]: 5 ----- Terminal mode file output delay is 0.10 seconds per character Enter adile output End-of-file character NOT sent in terminal mode file output XOFF testing used in terminal mode file output XON NOT automatically tested after in terminal mode file output Waiting for character echo NOT used in terminal mode file output t Terminal mode file output delay is 0.00 seconds per character Additional delay after is 0.00 seconds Drive A COMMAND (H for Help): Drive A COMMAND (H for Help): T BBS.DIR ------------- File exists -- Type 'Y' to erase: Y ditional delay after [0-9]: 5 ----- Additional delay after is 0.40 seconds Drive A COMMAND (H for Help): DIR C: ---------- NO FILE Drive A has 274K bytes free Drive A COMMAND (H for Help): DIR C - Terminal mode file output delay is 0.10 seconds per character Additional delay after is 0.40 seconds Drive A COMMAND (H for Help): CPM A> -------  - CTRL-Y ------ ** Memory buffer open ** : then the little red modem received many characters that were :simply stuffed into the memory buffer in the computer. You :should remember that this colon is simply a symbol to remind :you th-------- NO FILE Drive A has 274K bytes free Drive A COMMAND (H for Help): DIR C: ---------- MBOOT-89.ASM | BYE80 .ASM | DUUP .COM | DUUP .DOC MODEM7 .COM | OSBMAST .CAT | P/DCAT .DIR | RENAME .COM RENAME .DOC | SD4-41 .ARE (0.2,5.0) OPTION 4 STATISTICS ALL FINISH 97 4.850579 2.979154 2.68724 3.435991 4.884134 1.721907 2.654 4.10903 2.820438 2.282724 3.294771 2.068181 at you are capturing the stuff coming in into your :buffer. It will not be written to disk until a "WRT" command. . CTRL-R ------ ** Memory buffer closed ** CTRL-E ------ ** There may be text in the memory buffer ** ** It will be lost unlessSM | SYSGEN .COM | WYLZEATH.MAC Drive C has 78K bytes free Drive A COMMAND (H for Help): LOG C5 ---------- Insert disk for drive C Hit return when ready ---- Drive C, User 5 COMMAND (H for Help): ? ----- ap * mean.fam.adap)) fdfc = SQR(ABS(temp.fdfc)) FOR counter1 = 1 TO fam.size discrep (counter1) = 0 NEXT COUNTER1 LPRINTER PRINT "FDFC = "; fdfc FOR counter1 = 1 TO fam.size discrep (counter1) = SQR(ABS(\ ((cohesion.z (counter1) - mean NOL or WRT commands are used ** Drive A COMMAND (H for Help): WRT ------- Drive A COMMAND (H for Help): ? ----- Current Settings CRC mode set Printer is off Carrier present Modem speed is 300 baud Backspace is b Current Settings Checksum mode set Printer is off Carrier present Modem speed is 300 baud Backspace is rub Linefeed NOT sent after Use ctrl-^ to send local command to remote Terminal mode file buffer is inactive Unused portion of buffe.fam.coh) * \ (cohesion.z (counter1) - mean.fam.coh)) \ + ((adap.z (counter1) - mean.fam.adap) * \ (adap.z (counter1) - mean.fam.adap)))) PRINT counter1, discrep(counter1) NEXT counter1 fds = 0 FOR counter1 = 1 to fam.size ackspace Linefeed NOT sent after Use ctrl-^ to send local command to remote Terminal mode file buffer is inactive Unused portion of buffer is 36608 bytes Word length is eight, number of stop bits is one, parity is none Linefeed NOT sent after in terminal mode file output End-of-file character NOT sent in terminal mode file output XOFF testing used in terminal mode file output XON  fds = fds + discrep (counter1) NEXT counter1 PRINT "FDS = "; fds IF fdfc <= 2.7 THEN fam.type = "Balanced" IF fdfc > 2.7 AND fdfc < 4.6 THEN \ fam.type = "Mid-range" IF fdfc > 4.6 THEN fam.type = "Extreme" PRINT "FAM TYPE = "; fam.type CONSOLE R> in terminal mode file output End-of-file character NOT sent in terminal mode file output XOFF testing NOT used in terminal mode file output XON NOT automatically tested after in terminal mode file output Waiting for character echo NOT used in tNOT automatically tested after in terminal mode file output Waiting for character echo NOT used in terminal mode file output Terminal mode file output delay is 0.10 seconds per character Additional delay after is 0.40 seconds Drive A COMMAPRINT CHR$(26): PRINT CHR$(30) PRINT: PRINT INPUT "Another family? (Y/N)"; continue WEND END his procedure for another record but let's press "S" instead to see how the scroll option works. DAYCAT-86 displays the name erminal mode file output Terminal mode file output delay is 0.00 seconds per character Additional delay after is 0.00 seconds Drive A COMMAND (H for Help): Drive A COMMAND (H for Help): TXO ------- Use XOFF testing? (Y/N):ND (H for Help): TLF ------- Linefeed sent after Drive A COMMAND (H for Help): ? ----- Current Settings Checksum mode set Printer is off Carrier present Modem speed is 300 baud Backspace is rub Linefee6 contained in the first record but first asks whether you want to mark that record or whether you want to skip it and see the next record. For now, press "N" to skip to the next client. Again, the name is displayed and you're asked if that is the recop*f\`YRjGeAZ:R/k)Au\0{!T|>ȸ ; sһNr[=a8' 3^ ȻQÇ ^P.$YQ S[^P.$CC^CC ^CCP.$ -N2$2Ȫ%þ2$2ȪF$ Ȫà<s tyÿN-yȈ/þÊ'Prd you want to mark. This time press "Y". DAYCAT-86 now displays a message that the record was marked for deletion just as it did in the last part of the other edit option ("O"). DAYCAT-86 also displays the new number of records in the database and  Y s^>dȸ.; s2^;5(@&6e>dylË>V,5PN Z$/P5 Z غ\ø>dyl 'rC'$'Fá u' ĈGäÿ'''''''ËCC$uá>dyl[38NH=h;y$$;ChhHwhCC6 y>YQ󥥥~tvËfË+Ntx@@H2& Hఙ'y@#S[̡u -Ë uK[XS$v+ y؀r *tyúډ[[TTTTTTVӻbVӻgVӻlVӻqV ӻvV ӻ{VӻVӻVӻxVӻhVӻXd@_KVhfY؎ r;sَЋQ>ut> *+II +  F00-r3 t%< uFtNV@P@Y^-Gá*+Éáà*á SSYZRQ u2 u YmNN<#u~<$u|<$ui$<*u d<*tT*<.uU<#.u2g<-u"?<#t<.-u°2H<\u th <#t<,u<.uVӻHayVnKd^XQ.(G.A:;0A*o$ |X>Xȸ;X sXK!XeO ZtPGùZD t &Q $ZRZ- XHHHPX HpyPX$'@'UÉ "+ˉO rNˁsFs t(W+rw>GÉWډ tŹMOKK<#u<^u<-u  u.7Cu tȢ t t uc,@t s2 t tű<r,Ŋ*ŢyL%W2 &%,@*ň\Q>^ud`hd zjh` pU >^u8%5M*,$Z52 8>\DKap{`hZ\z>^ug!Ex`x6;r 64 t;r;u L7E;tOËM+ Wr;s‹ uÀ>0À>YQ󥥥ËFFFF| ^K rK K OD cD wD |D /uÊ u -0*xS1[ ڻ ڰuUt  u Ȋ*<s0Kusr t u* uVtQ tB<s8-6Ȋ<*t<$u$  utt^W u<t t t`x Z m x y  a;. Z ȻQ H Y#s r >y Hmm;y @.m3  .@ ;xdߥ0 t@yـr$s Q*HY t*QـY*2xs) mr /FO**/G/G$>Pu>r<R PR nR  t u$0E$,@y ??vC u #0 ^7,@< r t /ŊȻ2 Ct$tТ 0ucȻ yq2Ȱ.sl t? u:s2*Ţ/ tx. @U>/ȸ; sG?h`w >uP@;y)>T>u D3;ȡ;#sk@;y3;yL>u/H>y H>TjSW^B>*[CS t8P$tȾ>sXtȾ>'uY5~ t/KK/xùFOv]6q666%uZDS u0E(%Ay-AxC6) t@E u y-ű/, y  0 t 2 tàú u>t>t=SNSCC>u! t CS[J[ uÊr4 uYSN:ډu/>T)@> u @y) 6,8;>x ' u AC~ xs LgVzB*/F/F/F/F/F/F//s6't떋W@[ $tF*'JuBBӋCCCCӃ t-%:u:u t2r ð7 t+ ttUP tBCC t+۬<#u"= 57 AND coh.ideal <= 65 \ THEN c.label.ideal = "Separated"ޞ[CS}[Sk[ڋˋ*rDO[[/CCSޞ։[u< rP|X*d*Ë*Ê[Z*Z_YQSCCӀ t[?=<2CuK2;>V< t<+t <-urAprMayJunJulAugSepOctNovDec [18;3;4;7;7m< Calendar Dates & Days Program (Vsn 840213) < Global Solutions Enterprises All Rights Reserved [22m Menu[18m, 1 : Compute No. of Days Between Two Dates : GOTO 2100 IF coh.ideal > 65 AND coh.ideal <= 73 \ THEN c.label.ideal = "Connected" : GOTO 2100 IF coh.ideal > 73 \ THEN c.label.ideal = "Enmeshed" : GOTO 2100 WEND WHILE UCASE$(parent) = "C" IF coh.ideal < 48 \ >B<0t<.u&;sТ;<uf <0uޠ>Ȣ>>y<u< t,-tur$rȊ u*Ŋ>@ŋ?2A<SںL<+4 2 : Compute Date for No. of Days After Given Date 3 : Terminate Execution[22m Please Input Option Number: [18m Illegal Option Number: Earlier Date: Later Date:From [21m[18m to [21m[18m:Difference in Days =[21m1Please  XkTITLECNAMECADDR1CΪADDR2CCTYSTZIPC t!<-u Aيȵه$4sA tЊЊПB[C7à< uȢ<C<0s<:s$ÊC7 *ŠƇsyÊ uÊshûٞڞڻ#ޞ֊RSSQڋSQr)x'SCCBZYZYZ[[Enter the Number of Days After This Date: CPR6CPR6 [17mError:/ Year Out Of Range or Time Difference Too Large.[17mError: Unable to Converge After 1000 TriesCurrent Estimate (Mo, Da, Yr) =,,s After  Before [21m[18mDay[21m[18Bà LS SR t5 t9Sڋ;_uZ[R[tr 2ðVt݇Lև;t#SR; r[ t x؀'_St *[P;XùCA[Sغ YKKá uQKKXY[Q x*S;vSRCCأBZZ[BùSSm Is [21mExecution Terminated[20m"Please Input the Month (1 to 12): #Please Input the Day of the Month: Please Input the Year: [17m Illegal Year: ; Year > 1582 Required[18m , CP6@@A#@u7 MMMRPAUL BOEHM 1840 PROSPECT RIDGE BLVD.HADDON HEIGHTS, NJ 08035 sElaine Elaine 123 456th St Haddonfield, NY 01010 bJohn Paul Jones 67 fdfc.now, fdfc.ideal,\ fam.discrep.now, fam.discrep.ideal,\ score PRINT CHR$(26): PRINT CHR$(30) PRINT "Hi Jo Anne! Welcome to YOUR program." PRINT "Please use with care because your husband loves you." continue = "Y" 9 coh.now (counter2) = coh.now (counter2) - \ score : GOTO 200 10 adap.now (counter2) = adap.now (counter2) + \ score : GOTO 200 11 coh.now (counter2) = coh.now (counter2) + \ 8 Konstitution Ave. Document 234-789-O1 US A 08035 wSea John 1 Atlantic Dr. Ur-awl-wt Dunkin Donuts 1.20doz  REMARK set up loop to read records WHILE UCASE$(continue) = "Y" PRINT INPUT "How many members in the family? "; fam.size PRINT CHR$(26): PRINT CHR$(30) DIM coh.now (fam.size) DIM adap.now (fam.size) DIM coh.ideal (fam.size score : GOTO 200 12 adap.now (counter2) = adap.now (counter2) + \ score : GOTO 200 13 coh.now (counter2) = coh.now (counter2) + \ score : GOTO 200 14 adap.now (counte GOTO 2200 IF adap.ideal > 52 \ THEN a.label.ideal = "Chaotic" : GOTO 2200 WEND 2200 PRINT CHR$(7): PRINT CHR$(26): PRINT CHR$(30) IF UCASE$(parent) = "P" THEN PRINT "Parent respondent"\ ELSE PRINT "Child respondent" PRINT " ) DIM adap.ideal (fam.size) DIM c.label.now (fam.size) DIM a.label.now (fam.size) DIM c.label.ideal (fam.size) DIM a.label.ideal (fam.size) DIM coh.z.now (fam.size) DIM coh.z.ideal (fam.size) DIM adap.z.now (fam.sizer2) = adap.now (counter2) + \ score : GOTO 200 15 coh.now (counter2) = coh.now (counter2) - \ score : GOTO 200 16 adap.now (counter2) = adap.now (counter2) + \ score : GOTO 2 NOW IDEAL" PRINT "--------------------------------------------------------" PRINT " COHESION = "; coh.now; coh.label; \ TAB(41); coh.ideal; c.label.ideal PRINT PRINT "ADAPTABILITY = "; adap.now; adap.label;\ ) DIM adap.z.ideal (fam.size) FOR counter2 = 1 TO fam.size PRINT PRINT "Is member #"; counter2; " a parent or child? (P/C)" INPUT member.type PRINT:PRINT PRINT "Enter 'NOW' responses from FACES II" PRI00 17 coh.now (counter2) = coh.now (counter2) + \ score : GOTO 200 18 adap.now (counter2) = adap.now (counter2) + \ score : GOTO 200 19 coh.now (counter2) = coh.now (counter2) TAB(41); adap.ideal; a.label.ideal PRINT: PRINT: PRINT: PRINT INPUT "Another subject? (Y/N)"; continue WEND END NT "'IDEAL' responses can be entered immediately after" PRINT: PRINT coh.now (counter2) = 36 adap.now (counter2) = 12 FOR counter1 = 1 TO 30 PRINT "Member #"; counter2; \ " Item #"; count- \ score : GOTO 200 20 adap.now (counter2) = adap.now (counter2) + \ score : GOTO 200 21 coh.now (counter2) = coh.now (counter2) + \ score : GOTO 200 22 adaer1; " Score ="; INPUT score PRINT ON counter1 GOTO 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, \ 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, \ 24, 25, 26, 27, 28, 29, 30 p.now (counter2) = adap.now (counter2) + \ score : GOTO 200 23 coh.now (counter2) = coh.now (counter2) + \ score : GOTO 200 24 adap.now (counter2) = adap.now (counter2) - \ REMARK faces2.bas REMARK A program to to compute scores for dissertation REMARK the user enters scores for each person, REMARK in each family, then program computes statistics REMARK data declarations INTEGER counter1, counter2, fam.size 1 coh.now (counter2) = coh.now (counter2) + \ score : GOTO 200 2 adap.now (counter2) = adap.now (counter2) + \ score : GOTO 200 3 coh.now (counter2) = coh.now (counter2) - \  score : GOTO 200 25 coh.now (counter2) = coh.now (counter2) - \ score : GOTO 200 26 adap.now (counter2) = adap.now (counter2) + \ score : GOTO 200 27 coh.now (counter2) = coh STRING member.type, continue, \ c.label.now(1), c.label.ideal(1),\ a.label.now(1), a.label.ideal(1),\ fam.type.now, fam.type.ideal REAL coh.now(1), adap.now(1), \ coh.ideal(1), adap.ideal(1),\  score : GOTO 200 4 adap.now (counter2) = adap.now (counter2) + \ score : GOTO 200 5 coh.now (counter2) = coh.now (counter2) + \ score : GOTO 200 6 adap.now (counter2) = ad.now (counter2) + \ score : GOTO 200 28 adap.now (counter2) = adap.now (counter2) - \ score : GOTO 200 29 coh.now (counter2) = coh.now (counter2) - \ score : GOTO 200  coh.z.now(1), adap.z.now(1),\ coh.z.ideal(1), adap.z.ideal(1),\ sum.fam.coh.z.now, sum.fam.adap.z.now,\ sum.fam.coh.z.ideal, sum.fam.adap.z.ideal,\ mean.fam.coh.now, mean.fam.adap.ideal,\ ap.now (counter2) + \ score : GOTO 200 7 coh.now (counter2) = coh.now (counter2) + \ score : GOTO 200 8 adap.now (counter2) = adap.now (counter2) + \ score : GOTO 200 8  30 coh.now (counter2) = coh.now (counter2) + \ score : GOTO 200 200 NEXT counter1 PRINT CHR$(7) WHILE UCASE$(member.type) = "P" IF coh.now (counter2) < 57 \ THEN c.label.now (counter2) = "Disengaged": GOT="; INPUT score PRINT ON counter1 GOTO 31, 32, 33, 34, 35, 36, 37, 38, 39, 40,\ 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54,\ 55, 56, 57, 58, 59, 60 31 coh.ideal (counter2) = coh.ideal (counter2) + score : GOTO 2000 52 adap.ideal (counter2) = adap.ideal (counter2) + \ score : GOTO 2000 53 coh.ideal (counter2) = coh.ideal (counter2) + \ score : GOTO 2000 5O 400 IF coh.now (counter2) >= 57 AND coh.now (counter2) <= 65 \ THEN c.label.now (counter2) = "Separated": GOTO 400 IF coh.now (counter2) > 65 AND coh.now (counter2) <= 73 \ THEN c.label.now (counter2) = "Connected": GOTO 400  \ score : GOTO 2000 32 adap.ideal (counter2) = adap.ideal (counter2) + \ score : GOTO 2000 33 coh.ideal (counter2) = coh.ideal (counter2) - \ score : GOTO 2000 4 adap.ideal (counter2) = adap.ideal (counter2) - \ score : GOTO 2000 55 coh.ideal (counter2) = coh.ideal (counter2) - \ score : GOTO 2000 56 adap.ideal (counter2) = adap.ideal (counter2) + IF coh.now (counter2) > 73 \ THEN c.label.now (counter2) = "Enmeshed": GOTO 400 WEND WHILE UCASE$(member.type) = "C" IF coh.now (counter2) < 48 \ THEN c.label.now (counter2) = "Disengaged": GOTO 400 IF coh.now (counter2) 34 adap.ideal (counter2) = adap.ideal (counter2) + \ score : GOTO 2000 35 coh.ideal (counter2) = coh.ideal (counter2) + \ score : GOTO 2000 36 adap.ideal (counter2) = adap.ideal (counter2) +  \ score : GOTO 2000 57 coh.ideal (counter2) = coh.ideal (counter2) + \ score : GOTO 2000 58 adap.ideal (counter2) = adap.ideal (counter2) - \ score : GOTO 2000 >= 48 AND coh.now (counter2) <= 56 \ THEN c.label.now (counter2) = "Separated": GOTO 400 IF coh.now (counter2) > 56 AND coh.now (counter2) <= 64 \ THEN c.label.now (counter2) = "Connected": GOTO 400 IF coh.now (counter2) > 64 \ \ score : GOTO 2000 37 coh.ideal (counter2) = coh.ideal (counter2) + \ score : GOTO 2000 38 adap.ideal (counter2) = adap.ideal (counter2) + \ score : GOTO 2000 3 59 coh.ideal (counter2) = coh.ideal (counter2) - \ score : GOTO 2000 60 coh.ideal (counter2) = coh.ideal (counter2) + \ score : GOTO 2000 2000 NEXT counter1 WHILE UCASE$(member.type) = "P"  THEN c.label.now (counter2) = "Enmeshed": GOTO 400 WEND 400 WHILE UCASE$(member.type) = "P" IF adap.now (counter2) < 44 \ THEN a.label.now (counter2) = "Rigid": GOTO 500 IF adap.now (counter2) >= 44 AND adap.now (counter2) <= 9 coh.ideal (counter2) = coh.ideal (counter2) - \ score : GOTO 2000 40 adap.ideal (counter2) = adap.ideal (counter2) + \ score : GOTO 2000 41 coh.ideal (counter2) = coh.ideal (counter2) + \ IF coh.ideal (counter2) < 57 \ THEN c.label.ideal (counter2) = "Disengaged" : GOTO 2100 IF coh.ideal(counter2) >= 57 AND coh.ideal (counter2) <= 65 \ THEN c.label.ideal (counter2) = "Separated" : GOTO 2100 IF coh.ideal (counte50 \ THEN a.label.now (counter2) = "Structured": GOTO 500 IF adap.now (counter2) > 50 AND adap.now (counter2) <= 56 \ THEN a.label.now (counter2) = "Flexible": GOTO 500 IF adap.now (counter2) > 56 \ THEN a.label.now (co score : GOTO 2000 42 adap.ideal (counter2) = adap.ideal (counter2) + \ score : GOTO 2000 43 coh.ideal (counter2) = coh.ideal (counter2) + \ score : GOTO 2000 44 r2) > 65 AND coh.ideal (counter2) <= 73 \ THEN c.label.ideal (counter2) = "Connected" : GOTO 2100 IF coh.ideal (counter2) > 73 \ THEN c.label.ideal (counter2) = "Enmeshed" : GOTO 2100 WEND WHILE UCASE$(member.type) = "C" IF unter2) = "Chaotic": GOTO 500 WEND WHILE UCASE$(member.type) = "C" IF adap.now (counter2) < 38 \ THEN a.label.now (counter2) = "Rigid": GOTO 500 IF adap.now (counter2) >= 38 AND adap.now (counter2) <= 45 \ THEN a.label.now (coadap.ideal (counter2) = adap.ideal (counter2) + \ score : GOTO 2000 45 coh.ideal (counter2) = coh.ideal (counter2) - \ score : GOTO 2000 46 adap.ideal (counter2) = adap.ideal (counter2) + \ coh.ideal (counter2) < 48 \ THEN c.label.ideal (counter2) = "Disengaged" : GOTO 2100 IF coh.ideal (counter2) >= 48 AND coh.ideal(counter2) <= 56 \ THEN c.label.ideal (counter2) = "Separated" : GOTO 2100 IF coh.ideal (counter2)unter2) = "Structured": GOTO 500 IF adap.now (counter2) > 45 AND adap.now (counter2) <= 52 \ THEN a.label.now (counter2) = "Flexible": GOTO 500 IF adap.now (counter2) > 52 \ THEN a.label.now (counter2) = "Chaotic": GOTO 500 WEN score : GOTO 2000 47 coh.ideal (counter2) = coh.ideal (counter2) + \ score : GOTO 2000 48 adap.ideal (counter2) = adap.ideal (counter2) + \ score : GOTO 2000 49  > 56 AND coh.ideal (counter2) <= 64 \ THEN c.label.ideal (counter2) = "Connected" : GOTO 2100 IF coh.ideal (counter2) > 64 \ THEN c.label.ideal (counter2) = "Enmeshed" : GOTO 2100 WEND 2100 WHILE UCASE$(member.type) = "P" ID 500 PRINT CHR$(26): PRINT CHR$(30) PRINT "Now enter IDEAL responses from FACES II" PRINT "for the same respondent" PRINT: PRINT coh.ideal (counter2) = 36 adap.ideal (counter2) = 12 FOR counter1 = 1 TO 30 PRINT "Item #"; counter1; " Score  coh.ideal (counter2) = coh.ideal (counter2) - \ score : GOTO 2000 50 adap.ideal (counter2) = adap.ideal (counter2) + \ score : GOTO 2000 51 coh.ideal (counter2) = coh.ideal (counter2) + \ 8 F adap.ideal (counter2) < 44 \ THEN a.label.ideal (counter2) = "Rigid" : GOTO 2200 IF adap.ideal(counter2) >= 44 AND adap.ideal(counter2) <=50 \ THEN a.label.ideal (counter2) = "Structured" : GOTO 2200 IF adap.ideal(counter2) n.fam.adap.now * mean.fam.adap.now)) fdfc.ideal = SQR(ABS(mean.fam.coh.ideal * mean.fam.coh.ideal) + \ (mean.fam.adap.ideal * mean.fam.adap.ideal)) FOR counter1 = 1 TO fam.size fam.discrep.now = fam.discrep.now + \ SQR(ABS((coh.z.now (couREMARK P-COMM.BAS REMARK A program to to compute scores for Parent Comm quest REMARK the user enters scores for each person, REMARK then program computes totals and statistics REMARK data declarations INTEGER counter1, comm.score, open.comm.> 50 AND adap.ideal(counter2) <= 56 \ THEN a.label.ideal (counter2) = "Flexible" : GOTO 2200 IF adap.ideal (counter2) > 56 \ THEN a.label.ideal (counter2) = "Chaotic" : GOTO 2200 WEND WHILE UCASE$(member.type) = "C" IF adap.nter1) - \ mean.fam.coh.now) * (coh.z.now (counter1) - \ mean.fam.coh.now)) + ((adap.z.now (counter1) - \ mean.fam.adap.now) * (adap.z.now (counter1) - \ mean.fam.adap.now))) fam.discrep.ideal = fam.discrep.ideal +\ score, \ prob.comm.score, score STRING continue continue = "Y" REMARK set up loop to read records WHILE UCASE$(continue) = "Y" PRINT CHR$(26): PRINT CHR$(30) PRINT "Enter scores from PARENT COMMUNICATION SCALE" PRINT: PRINideal (counter2) < 38 \ THEN a.label.ideal (counter2) = "Rigid" : GOTO 2200 IF adap.ideal(counter2) >= 38 AND adap.ideal(counter2) <=45 \ THEN a.label.ideal (counter2) = "Structured" : GOTO 2200 IF adap.ideal(counter2) > 45 AN SQR(ABS((coh.z.ideal (counter1) - \ mean.fam.coh.ideal) * (coh.z.ideal (counter1) - \ mean.fam.coh.ideal)) + ((adap.z.ideal (counter1) - \ mean.fam.adap.ideal) * (adap.z.ideal (counter1) - \ mean.fam.adap.ideal))T open.comm.score = 0 prob.comm.score = 0 FOR counter1 = 1 TO 20 PRINT "Item #"; counter1; " Score ="; score = 0 INPUT score PRINT ON counter1 GOTO 1, 2, 3, 4, 5, D adap.ideal(counter2) <= 52 \ THEN a.label.ideal (counter2) = "Flexible" : GOTO 2200 IF adap.ideal (counter2) > 52 \ THEN a.label.ideal (counter2) = "Chaotic" : GOTO 2200 WEND 2200 IF UCASE$(member.type) = "P" THEN\ coh.z.n) NEXT counter1 IF fam.discrep.now <= 2.7 THEN fam.type.now = "Balanced" IF fam.discrep.ideal <= 2.7 THEN fam.type.ideal = "Balanced" IF fam.discrep.now > 2.7 AND fam.discrep.now < 4.6 THEN \ fam.type.now = "Mid-range" IF fam.discrep.ideal > 2.7 AN6, 7, 8, 9, 10, 11, \ 12, 13, 14, 15, 16, 17, 18, 19, 20 1 open.comm.score = open.comm.score + score GOTO 50 2 prob.comm.score = prob.comm.score + (6-score) GOTO 50 3ow (counter2) = (coh.now (counter2) - 64.9) / 8.4\ ELSE coh.z.now (counter2) = (coh.now (counter2) - 56.3) / 9.2 IF UCASE$(member.type) = "P" THEN\ adap.z.now (counter2) = (adap.now (counter2) - 49.9) / 6.6\ ELSE adap.z.now (counter2) = (adap.now (D fam.discrep.ideal < 4.6 THEN \ fam.type.ideal = "Mid-range" IF fam.discrep.now > 4.6 THEN fam.type.now = "Extreme" IF fam.discrep.ideal > 4.6 THEN fam.type.ideal = "Extreme" PRINT CHR$(26): PRINT CHR$(30) PRINT "MEMBER NOW  open.comm.score = open.comm.score + score GOTO 50 4 prob.comm.score = prob.comm.score + (6-score) GOTO 50 5 prob.comm.score = prob.comm.score + (6-score) GOTO 50 6 counter2) - 45.4) / 7.9 IF UCASE$(member.type) = "P" THEN\ coh.z.ideal (counter2) = (coh.ideal (counter2) - 64.9) / 8.4\ ELSE coh.z.ideal (counter2) = (coh.ideal (counter2) - 56.3) / 9.2 IF UCASE$(member.type) = "P" THEN\ adap.z.ideal (counter IDEAL" PRINT "-------------------------------------------------------";\ "--------------" FOR counter2 = 1 TO fam.size PRINT counter2; \ TAB(15); "Cohesion ="; \ TAB(31); coh.now (counter2);\ TAB(35); c.label.now (counter2);\  open.comm.score = open.comm.score + score GOTO 50 7 open.comm.score = open.comm.score + score GOTO 50 8 open.comm.score = open.comm.score + score GOTO 50 9 open.com2) = (adap.ideal (counter2) - \ 49.9) / 6.6\ ELSE adap.z.ideal (counter2) = (adap.ideal (counter2) - \ 45.4) / 7.9 PRINT CHR$(7) NEXT counter2 FOR counter1 = 1 TO fam.size sum.fam.coh.z.now = sum.fam.coh.z.now + coh.z.now (counter1) sum.fam TAB(51); coh.ideal (counter2);\ TAB(55); c.label.ideal (counter2) PRINT \ TAB(11); "Adaptability ="; \ TAB(31); adap.now (counter2); \ TAB(35); a.label.now (counter2);\ TAB(51); adap.ideal (counter2); \ TAB(55); a.label.ideal (counterm.score = open.comm.score + score GOTO 50 10 prob.comm.score = prob.comm.score + (6-score) GOTO 50 11 prob.comm.score = prob.comm.score + (6-score) GOTO 50 12 prob.comm..coh.z.ideal = sum.fam.coh.z.ideal + coh.z.ideal\ (counter1) sum.fam.adap.z.now = sum.fam.adap.z.now + adap.z.now (counter1) sum.fam.adap.z.ideal = sum.fam.adap.z.ideal + adap.z.ideal\ (counter1) NEXT counter1 mean.fam.coh.now = s2) PRINT NEXT counter2 PRINT PRINT TAB(13); "FDFC score ="; \ TAB(31); fdfc.now; \ TAB(51); fdfc.ideal PRINT PRINT TAB(14); "FDS score ="; \ TAB(31); fam.discrep.now;\ TAB(51); fam.discrep.ideal PRINT TAB(31); fam.type.now; TAB (51); fascore = prob.comm.score + (6-score) GOTO 50 13 open.comm.score = open.comm.score + score GOTO 50 14 open.comm.score = open.comm.score + score GOTO 50 15 prob.comm.score um.fam.coh.z.now / fam.size mean.fam.coh.ideal = sum.fam.coh.z.ideal / fam.size mean.fam.adap.now = sum.fam.adap.z.now / fam.size mean.fam.adap.ideal = sum.fam.adap.z.ideal / fam.size fdfc.now = SQR(ABS(mean.fam.coh.now * mean.fam.coh.now) + \ (meam.type.ideal PRINT: PRINT: PRINT: PRINT INPUT "Another family? (Y/N)"; continue WEND END 9 = prob.comm.score + (6-score) GOTO 50 16 open.comm.score = open.comm.score + score GOTO 50 17 open.comm.score = open.comm.score + score GOTO 50 18 prob.comm.score = prob 21 4.180968 22 1.827921 23 4.699776 24 4.370282 25 3.760862 26 2.211669 27 2.182117 28 3.57585 29 4.042959 30 3.110798 31 1.558663 32 3.026097 33 4.850579 34 2.979154 35 2.68724 36 3.435991 37 4.884134 38 1.721907 39 2.654 40 4.10903 2.68724 2 36 3.435991 2 37 4.884134 2 38 1.721907 2 39 2.654 2 40 4.10903 2 41 2.820438 2 42 2.282724 2 43 3.294771 2 44 2.068181 2 45 2.538476 2 46 2.753588 2 47 4.818184 2 48 4.291242 2 49 3.213873 2 50 4.329807 .comm.score + (6-score) GOTO 50 19 prob.comm.score = prob.comm.score + (6-score) GOTO 50 20 prob.comm.score = prob.comm.score + (6-score) 50 NEXT counter1 comm.score = open.comm.score + 41 2.820438 42 2.282724 43 3.294771 44 2.068181 45 2.538476 46 2.753588 47 4.818184 48 4.291242 49 3.213873 50 4.329807 KLB@<KC';<;;M.;(;<;;M.;);<;;M.<*31<N!<=Q<<=?-4!2tUP tBCC24.rJ8YUud x ȋQ Y#sV ȋQ Y#s( jrugs /x|#^ ȋQK $ Ȫà<s tyÿN-yȈ/þÊ'P'rC'$'Fá u' ĈGäÿ'''''''ËCC$NutNH>B*+II + FL00-r-Ë uK[XS$v+ y؀r *tyú!ډ[[SS!YZRQ, u2) u YmNN6<#u~<$u|<$ui$6<*u d<*tT*<.uU<#.u2+g<-u"?<#tt<,t1f<"tsn<"t2f<,tW¶띋gw t2طCCSCŋCBuZgC7àCt:rRf K[t<"ua:uú| eSRAޞֈZ[ÊSQޞֈY[3 t%< uFtNV@P@FY^-GáOS*+Éáà*á tPGùZD t &HQ ZZRZc XHHHPX HpyPX$'@'UÉVX+ˉOJV<.-u° 2+H <\u th" "<#t<,u*+<.u<#u<^u<-u!7 u.7Cu+ tȢ#  t  t uc,@t s2SRQޞZ7[S St#RCCZYS/CCBI uZ[C7SxB tQRޞ[CS}[Sk[ڋQˋS*rDO[[/CCSޞ։S[u< rP|X*d*Ë*Ê[ZUrNˁsFJsJ t(W+rw>JGÉWډUVtŹMOKK6J;rV6J4 t;r;u L7JE;tOËM+VWr;s‹ uÀ>L0À>MYQ󥥥ËFFFF|+ t* tű<r,Ŋ+*Ţ#yL%W2* !7&%+,@*ň ڻ! ڰuUt # u Ȋ*<s0Kusr t# u*!  uVtQ tB+<s8-*Z_YQSCCӀ t[mkj2CuK2ilV< t<+t <-ulB<0t<.u&isТi<uf <0uޠlȢlPu>r<Pn t u$0E$,@y ??vCSW^B>*[CS t8P$tȾ>sXtȾ>'uY5~ t/KK/xùFOȻ yq2*Ȱ.sl t? u:s2*Ţ/ tx) t@E u y-ű/, y  0! t 2!  tàú! u>t>(t=SNSCAٞڞڻQޞ֊RSSQڋSQr)x'SCCpZYZYZ[[pà LS SR t5 t9Sڋ;_uZ[R[tr 2ðVt݇Lև;t#SR;@r[ t x؀'_St *[P;XùCA[Sv] q   %uZDS u0E(%Ay-AxC6B*/F/F/F/F/F/F//s6't떋W@[ $tF*'C>u! t CS[J[ uÊr4( uYSN:&ډ$6K-8;<&>R8<<<4!<S1<N!<>Q<<>T.512<>.TOTAL ADAPTABILITY SCORE = YBVBWBeBeBsBsNBGBHBVBVBdBdAnother subject? (Y/N) Disengaged Separated Connected Enmeshed Rigid Structured FlU>V51L<>>WN51_<>NXLWY<= K1?<K0<K-J7<<8;<>>aN51~<>Nb@2K5:  areal.z (fam.numb%) = areal.z (fam.numb%) + FLOAT((areal% - 43.84) / 7.36) \ aideal.z (fam.numb%) = aideal.z (fam.numb%) + FLOAT((aideal% - 43.84) / 7.36) GOTO 2 DIM temp.fdfc.real (50) DIM temp.fdfc.ideal (50) DIM fdfc.real (50) DIM fdfc.ideal F2Cbasic Compiler V2.0 5 31/83@CB865CODEIDATARCDATADSDATADATAUCOMONCGROUPDGROUP( #HHZHXHJZ B?CIHM?ARSM?ARSS?SRMM?SRSM?MRMM?MRSS?DRMM(50) FOR counter1% = 1 TO 50 temp.fdfc.real (counter1%) = \ ((mean.creal.z (counter1%) * mean.creal.z (counter1%)) + \ (mean.areal.z (counter1%) * mean.areal.z (counter1%))) fdfc.real (counter1%) = SQR(ABS(temp.fdfc.real (counter1%))) ?DRSM?CRSH?TRSM?TRMS?TRSS?TSMM?CRMM?INIT?STOP?DIMA?PCRC?PCIS?PCRS?PCSS?PCRN?PCSN?PCTS?PCNL?ICLN?ICSH?IDIH?IDRH?LPRN?RABS?SCHR?RSQR?PPMTȜ DJEv412694569531361416561REMARK fdfc.bas REMARK A program to compute: REMARK FDFC (family distance from center); and REMARK FDS (family discrepancy score) PRINT CHR$(26): PRINT CHR$(30) PRINT "Hi Jo Anne! Welcome to YOUR 'Family Score' program." PRINT "Please use with temp.fdfc.ideal (counter1%) = \ ((mean.cideal.z (counter1%) * mean.cideal.z (counter1%)) + \ (mean.aideal.z (counter1%) * mean.aideal.z (counter1%))) fdfc.ideal (counter1%) = SQR(ABS(temp.fdfc.ideal (counter1%))) NEXT counter1% FOR counte1349316557135538565842270506759236244576423504238492361366041532443940383350457157333439484933293665563329477154 care because your husband loves you." PRINT PRINT "This program reads a file and computes FDFC (real and ideal)" PRINT "and FDS (real and ideal)." PRINT PRINT " All you need to do is:" PRINT " TURN ON THE PRINTER, LOADED WITH PAPER" PRINT " Tr1% = 1 TO fam.size% discrep (counter1%) = 0 NEXT counter1% FOR counter1% = 1 TO fam.size% discrep (counter1%) = SQR(ABS(\ ((cohesion.z (counter1%) - mean.fam.coh) * \ (cohesion.z (counter1%) - mean.fam.coh)) \ + ((adap.z34159436343424148504243624756424515962586052565362625356507050535845735756156565460625253645063550405662635442655hen type in the name of your data file below" PRINT PRINT "TURN ON THE PRINTER NOW" PRINT INPUT "Enter name of file: "; file.name$ IF END #1 THEN GOTO 1 OPEN file.name$ AS 1 DIM mean.creal.z (200) DIM mean.cideal.z (200) DIM mean.areal.z (200)  (counter1%) - mean.fam.adap) * \ (adap.z (counter1%) - mean.fam.adap)))) NEXT counter1% fds = 0 FOR counter1% = 1 to fam.size% fds = fds + discrep (counter1%) NEXT counter1% IF fdfc <= 2.7 THEN fam.type$ = "Balanced" IF fdfc > 2.7 AND fd06359456350572625065507160586453736554695473595067447363516755482624646378145344834836346735883353760 61592614460DIM mean.aideal.z (200) f.numb% = 1 2 IF END #1 THEN GOTO 1 READ #1; fam.numb%, member.type%, creal%, areal%, cideal%, aideal% IF fam.numb% = f.numb% THEN \ fam.size% = fam.size% + 1 ELSE \ mean.creal.z (f.numb%) = creal.z (f.numb%) / fam.size%:fc < 4.6 THEN \ fam.type$ = "Mid-range" IF fdfc > 4.6 THEN fam.type$ = "Extreme" LPRINTER PRINT PRINT "FAMSCORE.CMD" PRINT "FAMILY SCORE OUTPUT FOR FILE: "; FILE.NAME$ PRINT PRINT PRINT "FAM # # OF FAM MEMBS FDFC SCORE 48934839413593434262469354416447935045504021024246765610346506858211255445745113423556546122633868571217156٠645912371\ mean.cideal.z (f.numb%) = cideal.z (f.numb%) / fam.size%:\ mean.areal.z (f.numb%) = areal.z (f.numb%) / fam.size%:\ mean.aideal.z (f.numb%) = areal.z (f.numb%) / fam.size%:\ fam.size% = 1: \ f.numb% = f.numb% + 1 IF member.type% = 1 OR me FDS SCORE FAM TYPE" PRINT "==========================================================================================" PRINT famnum, fam.size%, fdfc, fds, fam.type$ CONSOLE PRINT CHR$(26): PRINT CHR$(30) PRINT: PRINT INPUT "Another fa547362123725870611236544634612370486652313266536657131543857571336951736631417452745314257454342143464255443152r704464mber.type% = 2 THEN \ creal.z (fam.numb%) = creal.z (fam.numb%) + FLOAT((creal% - 59.7) / 8.78) \ cideal.z (fam.numb%) = cideal.z (fam.numb%) + FLOAT((cideal% - 59.7) / 8.78)\ areal.z (fam.numb%) = areal.z (fam.numb%) FLOAT((areal% - 47.83) / 6.58mily? (Y/N)"; continue$ WEND 1 STOP END 50151675273571535336583931624949545716349506445163614561563171566256621727558766517367467150418249466559183464049581Ѡ83) \ aideal.z (fam.numb%) = aideal.z (fam.numb%) +FLOAT((aideal% - 47.83) / 6.58)\ ELSE \ creal.z (fam.numb%) = creal.z (fam.numb%) + FLOAT((creal% - 55.71) / 9.59) \ cideal.z (fam.numb%) =cideal.z (fam.numb%) + FLOAT((cideal% - 55.71) / 9.59)\ ; 40365555183462968574191634949521925852775019348525749193545059473202674474562035948735920346514749421164517355212654967 care because your husband loves you." PRINT PRINT "TURN ON THE PRINTER NOW" PRINT INPUT "Enter name of file: "; file.name$ IF END #1 THEN GOTO 1 OPEN file.name$ AS 1 DIM mean.creal.z (200) DIM mean.cideal.z (200) DIM mean.areal.z (200) DIM meaer1%) - mean.fam.adap) * \ (adap.z (counter1%) - mean.fam.adap)))) NEXT counter1% fds = 0 FOR counter1% = 1 to fam.size% fds = fds + discrep (counter1%) NEXT counter1% IF fdfc <= 2.7 THEN fam.type$ = "Balanced" IF fdfc > 2.7 AND fdfc < 4.522135553655521356466760422157555240222644561472234949535422347426256423162446150232665165492336150776123365446653424165n.aideal.z (200) f.numb% = 1 2 IF END #1 THEN GOTO 1 READ #1; fam.numb%, member.type%, creal%, areal%, cideal%, aideal% IF fam.numb% = f.numb% THEN \ fam.size% = fam.size% + 1 ELSE \ mean.creal.z (f.numb%) = creal.z (f.numb%) / fam.size%:\ me6 THEN \ fam.type$ = "Mid-range" IF fdfc > 4.6 THEN fam.type$ = "Extreme" LPRINTER PRINT PRINT "FAMSCORE.CMD" PRINT "FAMILY SCORE OUTPUT FOR FILE: "; FILE.NAME$ PRINT PRINT PRINT "FAM # # OF FAM MEMBS FDFC SCORE FDS S4I766502424240656224357446651243373574572252685371552537856775632625345564926371546957263553165536271644667562725848585an.cideal.z (f.numb%) = cideal.z (f.numb%) / fam.size%:\ mean.areal.z (f.numb%) = areal.z (f.numb%) / fam.size%:\ mean.aideal.z (f.numb%) = areal.z (f.numb%) / fam.size%:\ fam.size% = 1: \ f.numb% = f.numb% + 1 IF member.type% = 1 OR member.tyCORE FAM TYPE" PRINT "==========================================================================================" PRINT famnum, fam.size%, fdfc, fds, fam.type$ CONSOLE PRINT CHR$(26): PRINT CHR$(30) PRINT: PRINT INPUT "Another family? (1273 614769512736146635327359496657273643767544282695063542817358705728363475645283625159633292325039562934937695629353pe% = 2 THEN \ creal.z (fam.numb%) = creal.z (fam.numb%) + FLOAT((creal% - 59.7) / 8.78) \ cideal.z (fam.numb%) = cideal.z (fam.numb%) + FLOAT((cideal% - 59.7) / 8.78)\ areal.z (fam.numb%) = areal.z (fam.numb%) FLOAT((areal% - 47.83) / 6.58) \ Y/N)"; continue$ WEND 1 STOP END 4352324 301705472563025340665930354316752303563473584311644367443126629624531343226652313492758344321565262543225247515aideal.z (fam.numb%) = aideal.z (fam.numb%) +FLOAT((aideal% - 47.83) / 6.58)\ ELSE \ creal.z (fam.numb%) = creal.z (fam.numb%) + FLOAT((creal% - 55.71) / 9.59) \ cideal.z (fam.numb%) =cideal.z (fam.numb%) + FLOAT((cideal% - 55.71) / 9.59)\ areal.13235248545 3323515251443332724480593316746704533375437551434256506253343564261523436637454834346465744435253536044353z (fam.numb%) = areal.z (fam.numb%) + FLOAT((areal% - 43.84) / 7.36) \ aideal.z (fam.numb%) = aideal.z (fam.numb%) + FLOAT((aideal% - 43.84) / 7.36) GOTO 2 DIM temp.fdfc.real (50) DIM temp.fdfc.ideal (50) DIM fdfc.real (50) DIM fdfc.ideal (50) 5953515235354489 61523536336413733616349594436272607354363484265552372474363453735138635033826444705638371466452383655366 FOR counter1% = 1 TO 50 temp.fdfc.real (counter1%) = \ ((mean.creal.z (counter1%) * mean.creal.z (counter1%)) + \ (mean.areal.z (counter1%) * mean.areal.z (counter1%))) fdfc.real (counter1%) = SQR(ABS(temp.fdfc.real (counter1%))) temp.f1,2,69,45,69,53 1,3,61,41,65,61 1,3,49,31,65,57 1,3,55,38,56,58 2,2,70,50,67,59 2,3,62,44,57,64 2,3,50,42,38,49 2,3,61,36,60,41 3,2,44,39,40,38 3,3,50,45,71,57 3,3,34,39,48,49 3,3,29,36,65,56 3,3,29,47,71,54 4,1,59,43,63,43 4,2,41,48,50,42 447339267567566393 5552625239359437158340155355553402614666534035944564644114746605241260416050413444049394135136383334dfc.ideal (counter1%) = \ ((mean.cideal.z (counter1%) * mean.cideal.z (counter1%)) + \ (mean.aideal.z (counter1%) * mean.aideal.z (counter1%))) fdfc.ideal (counter1%) = SQR(ABS(temp.fdfc.ideal (counter1%))) NEXT counter1% FOR counter1% = 1,3,62,47,56,42 5,1,59,62,58,60 5,2,56,53,62,62 5,3,56,50,70,50 5,3,58,45,73,57 6,1,56,56,54,60 6,2,52,53,64,50 6,3,55,40,56,62 6,3,54,42,65,50 6,3,59,45,63,50 7,2,62,50,65,50 7,1,60,58,64,53 7,3,65,54,69,54 7,3,59,50,67,44 7,3,63,51,67,55 8,REMARK fdfc.bas REMARK A program to compute: REMARK FDFC (family distance from center); and REMARK FDS (family discrepancy score) PRINT CHR$(26): PRINT CHR$(30) PRINT "Hi Jo Anne! Welcome to YOUR 'Family Score' program." PRINT "Please use with TO fam.size% discrep (counter1%) = 0 NEXT counter1% FOR counter1% = 1 TO fam.size% discrep (counter1%) = SQR(ABS(\ ((cohesion.z (counter1%) - mean.fam.coh) * \ (cohesion.z (counter1%) - mean.fam.coh)) \ + ((adap.z (count; 2,62,46,46,37 8,1,45,34,48,34 8,3,63,46,73,58 8,3,35,37,60,61 9,2,61,44,60,48 9,3,48,39,41,35 9,3,43,42,62,46 9,3,54,41,64,47 9,3,50,45,50,40 10,2,42,46,76,56 10,3,46,50,68,58 11,2,55,44,57,45 11,3,42,35,56,54 12,2,63,38,68,57 12,1,71,56,64,567,47 44,2,61,49,72,52 44,3,52,33,50,56 45,1,45,42,59,54 45,2,44,40,61,51 45,3,52,34,44,48 46,1,53,51,49,54 46,2,67,50,65,62 46,3,58,44,71,46 46,3,68,51,77,57 46,3,66,46,68,53 47,1,69,43,64,48 47,2,59,53,66,47 47,3,62,50,75,58 48,1,69,51,65,6GyNLiSA"W[SFS_Rj[rH?뻝"뿦2IJ+軶绦렜,AX~*绦[p%&t&RW[S/[[YZRS[yZ9 12,3,71,54,73,62 12,3,72,58,70,61 12,3,65,44,63,46 12,3,70,48,66,52 13,2,66,53,66,57 13,1,54,38,57,57 13,3,69,51,73,66 14,1,74,52,74,53 14,2,57,45,43,42 14,3,46,42,55,44 15,2,70,44,64,50 15,1,67,52,73,57 15,3,53,36,58,39 16,2,49,49,54,57 12 48,2,68,59,70,66 48,3,64,55,67,58 48,3,64,60,77,59 49,1,58,32,78,61 49,2,62,40,76,62 49,3,57,34,68,58 49,3,50,37,69,50 50,1,65,53,66,64 50,2,62,53,72,57 50,3,67,43,71,59 CC\t6RS[hYS#[DtW[S[GAA؋CCû tS[S%[Z넊 xYEN仦Sv廮 [v廮PQQS廝[Y?t~滦qð{ 2-+:36,3,49,50,64,45 16,3,61,45,61,56 17,1,56,62,56,62 17,2,75,58,76,65 17,3,67,46,71,50 18,2,49,46,65,59 18,3,46,40,49,58 18,3,40,36,55,55 18,3,46,29,68,57 19,1,63,49,49,52 19,2,58,52,77,50 19,3,48,52,57,49 19,3,54,50,59,47 20,2,67,44,74,56 20,3,)) NEXT counter1% real.fds = 0 ideal.fds = 0 FOR counter1% = 1 to fam.size% real.fds = real.fds + real.discrep (counter1%) ideal.fds = ideal.fds + ideal.discrep (counter1%) NEXT counter1% IF real.fdfc <= 2.7 THEN real.fam.type = "Balanced" IF 3J@BsߺRZbjru(zRH3;xк|s ,ð|-59,48,73,59 20,3,46,51,47,49 21,1,64,51,73,55 21,2,65,49,67,52 21,3,55,53,65,55 21,3,56,46,67,60 22,1,57,55,52,40 22,2,64,45,61,47 22,3,49,49,53,54 22,3,47,42,62,56 23,1,62,44,61,50 23,2,66,51,65,49 23,3,61,50,77,61 23,3,65,44,66,53 24,1,65,4ideal.fdfc <= 2.7 THEN ideal.fam.type = "Balanced" IF real.fdfc > 2.7 AND real.fdfc < 4.6 THEN \ real.fam.type = "Mid-range" IF ideal.fdfc > 2.7 AND ideal.fdfc < 4.6 THEN \ ideal.fam.type = "Mid-range" IF real.fdfc > 4.6 THEN real.fam.type = "Extr ð}ð~xqXku仢Tð(6(/@6@oyH@:@3@Jy#H@7,66,50 24,2,42,40,65,62 24,3,57,44,66,51 24,3,37,35,74,57 25,2,68,53,71,55 25,3,78,56,77,56 26,2,53,45,56,49 26,3,71,54,69,57 26,3,55,31,65,53 27,1,64,46,67,56 27,2,58,48,58,51 27,3,61,47,69,51 27,3,61,46,63,53 27,3,59,49,66,57 27,3,64,37,67eme" IF ideal.fdfc > 4.6 THEN ideal.fam.type = "Extreme" fdfc.diff = ABS(real.fdfc - ideal.fdfc) fds.diff = ABS(real.fds - ideal.fds) PRINT "REAL: "; famnum; TAB(4); fam.size%, real.fdfc, real.fds, real.fam.type PRINT "IDEAL: "; famnum; TAB(4); " "@3H@@808880@888 80@c>Hu@m@L>Hu@T@3("ls @@ @ Ëھ*Ȁ?trSGGFFWV,54 28,2,69,50,63,54 28,1,73,58,70,57 28,3,63,47,56,45 28,3,62,51,59,63 29,2,32,50,39,56 29,3,49,37,69,56 29,3,53,43,52,32 30,1,70,54,72,56 30,2,53,40,66,59 30,3,54,31,67,52 30,3,56,34,73,58 31,1,64,43,67,44 31,2,66,29,62,45 31,3,43,22,66,52 \[*^\*SCCZSʺ^X< t*Ë t# xSta*:s'_CXSQCCZZSXHHÉkYaeQPMK_aMtBc9k8e:t/ىg<\uKFi_CS"[ri;c~QY^_[C[XP 31,3,49,27,58,34 32,1,56,52,62,54 32,2,52,47,51,51 32,3,52,48,54,53 32,3,51,52,51,44 33,2,72,44,80,59 33,1,67,46,70,45 33,3,75,43,75,51 34,2,56,50,62,53 34,3,56,42,61,52 34,3,66,37,45,48 34,3,46,46,57,44 35,2,53,53,60,44 35,3,59,53,51,52 35,+Se)a"XÉnmpn;c~Ëpe,\m u snpg@;psËpeanC'm?u533333>=ii3,54,48,61,52 35,3,63,36,41,37 36,1,63,49,59,44 36,2,72,60,73,54 36,3,48,42,65,55 37,2,47,43,63,45 37,3,51,38,63,50 38,2,64,44,70,56 38,3,71,46,64,52 38,3,65,53,66,47 39,2,67,56,75,66 39,3,55,52,62,52 39,3,59,43,71,58 40,1,55,35,55,53 40,2,61$[.rË t CCˆ CCËst t  y%Ét;r t[XS<uv|FFxȸ+ NN$WNNV$&vSPdzZ]^[MII+R&vZKK +MMVxuzt[YX uyQSS<0$;9"sU':9"sU'9BT8!%8hxVg 7"hC60wYEG417Gv@`v'b1AAPX#C`QI"U&Àe(HBCTbDvRWaGv"C%T$a'ÙH%Csrb"(HdA1A4Hi Jo Anne! Welcome to YOUR 'Family Score' program.4Please use with care because your husban,46,66,53 40,3,59,44,56,46 41,1,47,46,60,52 41,2,60,41,60,50 41,3,44,40,49,39 41,3,51,36,38,33 42,2,63,50,69,55 42,3,47,35,50,45 42,3,57,59,58,44 43,1,54,51,53,48 43,2,55,44,62,59 43,3,55,40,67,55 43,3,70,49,65,53 43,3,54,46,52,52 44,1,63,42,~t[S1黮[Sd dעsnQN~軶B컮%컦黶Y[)Y$'Sӻ\sv[SS[S翦v[SZPX t*r PSVo^[XF>tSv[.[력 [u< d loves you.TURN ON THE PRINTER NOW LOAD PAPER$Type in the name of your data file: FAMSCORE.CMDFAMILY SCORE OUTPUTMFAM# # OF MEMB FDFC SCORE FDS SCORE FAM TYPEZ=====================================================17367467150418249466559183464049581834036555518346296857419163494952192585277501934852574919354505947320267447456203594877252443523350563451454259544524440615145352344448546153514954462675065624635844714646368517757463664668533471694364484725=====================================BdABdABIAfBIAfB0VAB0VAB@EAyB@EAyA'BalancedA'BalancedA'AF Mid-rangeA'AF Mid-rangeA359203465147494211645173552126549675221355536555213564667604221575552402226445614722349495354223474262564231624461502326695366474736250755844816951656248268597066483645567584836460775944915832786149262407662493573468584935037695035016553666450FExtremeAFExtremeREAL:IDEAL:DIFF IN FDFC =  DIFF IN FDS = ASbAA@P? CYdx$&BCqFVDQEqQ8C@4(D"!VD&AAAAAA17b5!$A@s#VBAAA AC$x0b516549233615077612336544665342416547665024242406562243574466512433735745722526853715525378567756326253455649263715469572626253725750367437159`!BWACc9'C%b&2BQPP8CB(0P"C(F9@E3SxAIy&cyp412694569531361416561134931655713553856584227050675923624457642350423849236136604135531655362716446675627258485851273614769512736146635327359496657273643767544282695063542817358705728363475645283625159633532443940383350457157333439484933293665563329477154341594363434241485042436247564245159625860525653626253565070505292325039562934937695629353435232430170547256302534066593035431675230356347358431164436744312662962453134322665231349275835845735756156565460625253645063554056626354426550635945635057262506550716058645373655469547359506744736351675548262344321565262543225247515132352485453323515251443332724480593316746704533375437551434256506253343564261523436637454834346446463781453448348363467358833537606159261446048934839413593434262469354416447935045504021024246765610346506858211255657444352535360443535953515235354486152353633641373361634959443627260735436348426555237247436345373513863503382644470563844574511342355654612263386857121715664591237154736212372587061123654463461237048665231326653665713154385757133695173663141371466452383655366473392675675663935552625239359437158340155355553402614666534035944564644114746605241260416050413444049374527453142574543421434642554431527044645015167527357153533658393162494954571634950644516361456156317156625662172755876659413513638333422635069554234735504542357595844543154515348432554462594335540675543370496553433544652523441634267474426149< 449158327861492624076624935734685849350376950350165536664502   $w m%}%mfd]}=OE%t!:0 ">" Sv!>"S\>"YX+۠ t8,Ax4@ȿuO$uܠ yۋYQ5CCCC0 y8YQ󥥥~tvËfË+Ntx@@H2& Hఙ'y@#S[6253725750367437159SB>"S(>"S>"S"@";"|N@=2Y؎r;sَЋQ>ut >*+II + F0̡u -Ë uK[XS$v+ y؀r *tyú*ډ[[SS*YZRQ u2 u YmNN"<#u~<$u|<$ui$"<*u d<*tT*<.uU<#.u2g<-* njc_YSJD Kq7"EZ P0-r3 t%< uFtNV@P@ Y^-Gá*+Éáà*á tPGùZD t & Q ZRZ' XHHHPX HpyPX$'@'UÉ+ˉOu"?<#t<.-u° 2H <\u th <#t<,u<.u<#u<^u <-u # u.  7Cu tȢ  t  t  uc,@t sPP 7!PPP%!PPP!PPP!PPP PPP  "g$&(08@>&ȁ>& r>" S(> /  >"S8 rNˁsFs t(W+rw>GÉWډtŹMOKK6;r64 t;r;u L7E;tOËM+Wr;s‹ uÀ>0À>YQ󥥥ËFFF2  t  tű<r,Ŋ*ŢyL%W2  #&% ,@*ň ڻ  ڰuUt     u Ȋ*<s0Kusr t u*   uVtQ  tB< >"S0%- >"S@5= >" S(EM >"S8U]} f>"S0eimZ C>"S@uF}7 "@" ;"|V HF| ^ r  O c w | /uÊ u -0*xS1[ ߥ0 t@yـr$s Q*HY t*QـY*2xs) mr /FO**s8-6Ȋ<*t<$u$   utt^W u<t  t t u #0 ^7,@  < r t  / ŊȻ2 Ct$tТ  0uJ P> X2 `">" HH>"PP>"cXXg>"D`n`H"@" ;"|n h& ps xg H pP/G/G$>Pu>r< P n  t u$0E$,@y ??vCSW^B>*[CS t8P$tȾ>sXtȾ>'uY5~ t/KK/cȻ  y q2Ȱ.sl t?  u :s2*Ţ/ tx)  t@E  u y-ű/, y  0  t 2   tàú* u>t>t=SN hXx`    ppxx{hh`J QN8 ?<">"S>" p8>" pxùFOv] q   %uZDS u0E(%Ay-AxC6B*/F/F/F/F/F/F//s6't떋W@[ $tF*SCC>u! t CS[J[ uÊr4 uYSN:ډ""x>"xf >"S>"xh>"_h>"C|>"*cxS %2"@" ;"|h \ "'JuBBӋCCCCӃ t-%:u:u t2r ðÇ ^ P.$YQ S[^P.$CC^CC ^CC<P.$ -N2$2Ȫ%þ2$2u tà ۹LTu` u*ruS[*u}:ußPtgXĞûȊsK$ 0Êyð0'<0sà uà  tà ,t ,t,tð,PQRZYXà uð-Ã>tUP tBCCE>">""@"' ;"}x Zx FȺQY#s ȺQvY#s [y Gy ȪF$ Ȫà<s tyÿN-yȈ/þÊ'P'rC'$'Fá u' ĈGäÿ'''''''ËCC$ȁ> r>S>S.>S&>S6u< t,-tur$rȊ u*ŊX@ŋY2[VSںL<+t!<-u [يȵه$4s[ tЊЊПB[C7àV uȢVC<0s<:s$ÊC7*ŠƇsyÊ uÊshûá  uQKKXY[Q x*S;vSRCCأ4ZZ[4ùSSY[Q xS+v"SRCCأ4ZZ[4X tuXZ[P x t uuj+SQ8J+v)Z;sSRCCأ4Z)Z.[844[*>S>S.>S&>S6肜F F!FF!F #F&)F,F/2F58F;F>AF#FFILFQFTFWZF,-ٞڞڻ=ޞ֊RSSQڋSQr)x'SCC\ZYZYZ[[\à LS SR t5 t9Sڋ;_uZ[R[tr 2ðVt݇Lև;t#SR;r[ t x؀'_St *[P;XùCA[6\*SCCZSʺ6X< t*Ë t# xSta*:s'_CXSQCCZZSXHHÉCY9=QPMK79MtB;9C8=:t/ى?<\uKFA7CS"[rA;;~+S=)9"XÉ]`FcFfFilForFāFēFĥFķFɔF۔FFFFF FFF+?CORUFX[F ^F bfruxF{~F F ŅʼnŕŘFŞF F ŨŬSغ YKKá  uQKKXY[Q x*S;vSRCCأ\ZZ[\ùSSY[Q xS+v"SRCCأ\ZZ[\X tuXZ[P x t uuj+SQ8J+v)Z;sSRCCأ\Z)Z.[8\226350695542347355045E4235759584454315451534843255446259433554067554337049655343354465252344163426747442614972524435233ŸŻFF F ΔҔޔFF F F  F F $'*F-0F 3F 7;GJMFPSF XV@;|>FNV> 0000 VARIABLES 170A UCOMON u [M+%)s  t | u n% ux2*Ȋл u< t<"t<,t1505634514542595445244406"1514535234444854615351495446267506562463584471464636851775746366466853347169436448472595366474= >>>FF>NN>VV@;|n^fnv>fF^NnVv~S> S@;|N@=2yF  FF F F!F $'F +.F4F7:F =FCFFIFOFRUF XF[^F aFehFnFqtFzF}F FĆ* \ (VALUE (I%,J%) - GROUP.MEAN (I%))) NEXT J% GROUP.SD (I%) = SQR(ABS(SD.TEMP / N% (I%))) TOTAL.SUM = TOTAL.SUM + GROUP.SUM (I%) TOTAL.CASES% = TOTAL.CASES% + N% (I%) NEXT I% TOTAL.MEAN = TOTAL.SUM / TOTAL.CASES% REffnn~^^vv~>ϜF   FF "F (F +.F 4F 7:F @F CFF LSWbF ehFknF rvF ĄFF FĐFFFğFĥF FFĴFĺF FFF̔ӔהF F F F  F F !%4F 7F ;?NF QF UYhF kF nruxF|ńňFFFfyA'BalancedA'M COMPUTE SS FOR I% = 1 TO GROUP% TEMP.SS = TEMP.SS + ((GROUP.SUM (I%) * GROUP.SUM (I%))\ / FLOAT (N% (I%))) NEXT I% SS.BETW = TEMP.SS - ((TOTAL.SUM * TOTAL.SUM) / FLOAT (TOTAL.CASES%)) SS.WITHIN = SUM.ALL.SQUARED.SCORES - TEMP.SS SS.TOTAL = SUM.F đĕF ģFĩF İĴF ”FȔF ΔҔՔFܔF F F F F F F F F F #&)F,/F 258F;>F ADGFJMF SF VYF _F beF kF nqF wF zBalancedA'AF Mid-rangeA'AF Mid-rangeAFExtremeAFExtremeREAL:IDEAL:DIFF IN FDFC =  DIFF IN FDS = Ɗ!F$'*F/?lx ALL.SQUARED.SCORES - \ ((TOTAL.SUM * TOTAL.SUM) / FLOAT (TOTAL.CASES%)) REM COMPUTE df DF.BETW = FLOAT (GROUP%-1) DF.WITHIN = FLOAT (TOTAL.CASES% - GROUP%) DF.TOTAL = FLOAT (TOTAL.CASES% - 1) REM COMPUTE MS MS.BETW = SS.BETW/DF.BETW MS.WITHIN }F ŀŃFʼnŌFFŕF śŞFŤŧFFŰF ŶF F F"”F ȔF F F"ԔF ݔ6: S>f>f>n>n> S>^>^>v>v@;|E> > = SS.WITHIN/DF.WITHIN REM COMPUTE F F = MS.BETW/MS.WITHIN REM PROMPT FOR OUTPUT TO PRINTER PRINT PRINT "SEND REPORT TO S(CREEN) OR TO P(RINTER)?" INPUT " PRESS: S OR P "; DEVICE$ IF UCASE$(DEVICE$) = "P" THEN \ PRINT "LOAD PAP> S>^>^>v>v@;|E> > @;}x x )Ⱥ1QY#s 9DȺLQY#s T_y gpy _ F #&F*.9F <?FBFFJUF XREMARK f2.bas REMARK A program to to compute scores for dissertation REMARK the user enters scores for each person in the family, REMARK then program computes two family scores: REMARK FDFC (family distance from center); and REMARK FDS (family d@;}x x )Ⱥ1QY#s 9DȺLQY#s T_y gpy _ F #&F*.9F <?FBFFJUF XREM ANOV1.BAS REM PERFORMS ONE WAY ANOVA REM CLEAR SCREEN, DISPLAY TITLE + INSTRUCTIONS PRINT CHR$(26): PRINT CHR$(30) FOR I%=1 TO 8 PRINT NEXT I% PRINT TAB(36); "ANOV1.BAS" PRINT PRINT TAB(23); "PROGRAM TO PERFORM A ONE WAY ANOVA" PRINT PRINiscrepancy score) PRINT CHR$(26): PRINT CHR$(30) PRINT "Hi Jo Anne! Welcome to YOUR 'Family Score' program." PRINT "Please use with care because your husband loves you." PRINT PRINT "TURN ON THE PRINTER NOW" PRINT "LOAD PAPER" PRINT INPUT "Type [F_cnF qtFwFzF}F F"F ćċĘĜF ĪFıĵF ÔFF͔єF ߔFF FFFF F" F F&F ),F 2F 58F >DHSF VYF\_F cgrF uxF{T TAB (28); "(C) 1984, RHO RESEARCH" FOR I%=1 TO 7 PRINT NEXT I% REM PROMPT FOR METHOD OF DATA ENTRY (CONSOLE OR FILE) PRINT "ENTER DATA FROM K)EYBOARD" INPUT " OR D)ISK "; SOURCE$ PRINT IF UCASE$(SOURCE$) = "K" THEN GOSUB KEYBOin the name of your data file: "; file.name$ LPRINTER PRINT PRINT "FAMSCORE.CMD" PRINT "FAMILY SCORE OUTPUT" PRINT PRINT PRINT "FAM# # OF MEMB FDFC SCORE FDS SCORE FAM TYPE" PRINT "==============================~F ŁŅňFŏŔŗFşŢFŨūFųŶFżſFʔ͔FݔFFF  FF!F$'*F/?lx ARD\ ELSE GOSUB DISK REM COMPUTE GROUP + TOTAL SUMS + SUM OF SQUARES (ALL SCORES) TOTAL.CASES% = 0 SUM.ALL.SQUARED.SCORES = 0 TEMP.SS = 0 FOR I% = 1 TO GROUP% FOR J% = 1 TO N% (I%) GROUP.SUM (I%) = GROUP.SUM (I%) + VALUE (I%,J%) SUM.ALL.SQU============================================================" DIM creal.z (6) DIM cideal.z (6) DIM areal.z (6) DIM aideal.z (6) DIM real.discrep (6) DIM ideal.discrep (6) FOR counter2% = 1 to 50 READ fam.size FOR counter1% = 1 TO fam.size READ %%>S>S>S>S> ARED.SCORES = SUM.ALL.SQUARED.SCORES +\ (VALUE (I%,J%) * VALUE (I%,J%)) NEXT J% GROUP.MEAN (I%) = GROUP.SUM (I%) / N% (I%) SD.TEMP = 0 FOR J% = 1 TO N% (I%) SD.TEMP = SD.TEMP + ((VALUE (I%,J%) - GROUP.MEAN (I%)) > fam.numb%, member.type%, creal, areal, cideal, aideal IF member.type% = 1 OR member.type% = 2 THEN\ creal.z (counter1%) = (creal - 64.9) / 8.4:\ cideal.z (counter1%) = (cideal - 64.9) / 8.4:\ areal.z (counter1%) = (areal - 49.9) / 6.6:\ N (GROUP%) DIM GROUP.SD (GROUP%) DIM N% (GROUP%) FOR I% = 1 TO GROUP% PRINT CHR$ (26): PRINT CHR$ (30) PRINT: PRINT PRINT "PRESS 'Q' TO QUIT OR 'E' TO EDIT LAST ENTRY" PRINT "OTHERWISE ENTER OBSERVED VALUE" PRINT PRINT "GROUP "; I% PRINT type$ = "Extreme" IF ideal.fdfc > 4.6 THEN ideal.fam.type$ = "Extreme" fdfc.diff = ABS(real.fdfc - ideal.fdfc) fds.diff = ABS(real.fds - ideal.fds) PRINT fam.numb%; TAB(10); fam.size; TAB(29); "REAL:"; TAB(37); real.fdfc, real.fds, real.fam.type$ PRIN aideal.z (counter1%) = (aideal - 49.9) / 6.6\ ELSE \ creal.z (counter1%) = (creal - 56.3) / 9.2:\ cideal.z (counter1%) = (cideal - 56.3) / 9.2:\ areal.z (counter1%) = (areal - 45.4) / 7.9:\ aideal.z (counter1%) = (aideal - 45.4)  TRUE$ = "Y" J% = 1 WHILE UCASE$(TRUE$) = "Y" PRINT "OBSERVATION"; J% INPUT " VALUE ="; ENTRY$ IF UCASE$(ENTRY$) = "Q" THEN \ TRUE$ = "N": GOTO 1 IF UCASE$(ENTRY$) = "E" THEN\ PRINT:\ PRINT "OBSERVATION"; J%-1:\ INPUT "T TAB(28); "IDEAL:"; TAB(37); ideal.fdfc, ideal.fds, ideal.fam.type$ PRINT PRINT TAB(22); "DIFF IN FDFC = "; fdfc.diff PRINT TAB(22); " DIFF IN FDS = "; fds.diff PRINT PRINT FOR counter1% = 1 TO fam.size creal.z (counter1%) = 0 cideal.z (counte/ 7.9 NEXT counter1% sum.fam.creal.z = 0 sum.fam.cideal.z = 0 sum.fam.areal.z = 0 sum.fam.aideal.z = 0 FOR counter1% = 1 TO fam.size sum.fam.creal.z = sum.fam.creal.z + creal.z (counter1%) sum.fam.cideal.z = sum.fam.cideal.z + cideal.z (counter NEW VALUE ="; ENTRY$:\ PRINT:\ VALUE (I%,J%-1) = VAL(ENTRY$):\ GOTO 1 VALUE (I%,J%) = VAL(ENTRY$) J% = J% + 1 PRINT 1 WEND N% (I%) = J% - 1 PRINT CHR$(7) NEXT I% REM DISPLAY DATA + PROMPT TO EDIT PRINT CHR$(26): PRINT CHR$REMARK f2.bas REMARK A program to to compute scores for dissertation REMARK the user enters scores for each person in the family, REMARK then program computes two family scores: REMARK FDFC (family distance from center); and REMARK FDS (family d1%) sum.fam.areal.z = sum.fam.areal.z + areal.z (counter1%) sum.fam.aideal.z = sum.fam.aideal.z + aideal.z (counter1%) NEXT counter1% mean.fam.cideal = 0 mean.fam.creal = 0 mean.fam.areal = 0 mean.fam.aideal = 0 mean.fam.creal = sum.fam.creal.z / fam.size mean.fam.cideal = sum.fam.cideal.z / fam.size mean.fam.areal = sum.fam.areal.z / fam.size mean.fam.aideal = sum.fam.aideal.z / fam.size temp.real.fdfc = 0 temp.ideal.fdfc = 0 real.fdfc = 0 ideal.fdfc = 0 temp.real.fdfc = ((mean.fam.creaiscrepancy score) PRINT CHR$(26): PRINT CHR$(30) PRINT "Hi Jo Anne! Welcome to YOUR 'Family Score' program." PRINT "Please use with care because your husband loves you." PRINT PRINT "TURN ON THE PRINTER NOW" PRINT "LOAD PAPER" PRINT INPUT "Type ER. PRESS ANY KEY WHEN READY":\ WHILE NOT CONSTAT%: WEND:\ LPRINTER REM PRINT REPORT PRINT CHR$(26): PRINT CHR$(30) PRINT PRINT TAB(33); "ONE WAY ANOVA" PRINT PRINT "FILE : "; file.name$ PRINT: PRINT PRINT\ "SOURCE df SS l * mean.fam.creal) + \ (mean.fam.areal * mean.fam.areal)) temp.ideal.fdfc = ((mean.fam.cideal * mean.fam.cideal) + \ (mean.fam.aideal * mean.fam.aideal)) real.fdfc = SQR(ABS(temp.real.fdfc)) ideal.fdfc = SQR(ABS(temp.ideal.fdfc)) FOR counter1% =in the name of your data file: "; file.name$ LPRINTER PRINT PRINT "FAMSCORE.CMD" PRINT "FAMILY SCORE OUTPUT" PRINT PRINT PRINT "FAM# # OF MEMB FDFC SCORE FDS SCORE FAM TYPE" PRINT "============================== MS F" PRINT\ "-----------------------------------------------------------------------------" PRINT "BETWEEN"; TAB(16); DF.BETW; TAB(26); SS.BETW;\ TAB(44); MS.BETW; TAB(62); F PRINT PRINT "WITHIN"; TAB(16); DF.WITHIN; TA 1 TO fam.size real.discrep (counter1%) = SQR(ABS(\ ((creal.z (counter1%) - mean.fam.creal) * \ (creal.z (counter1%) - mean.fam.creal)) \ + ((areal.z (counter1%) - mean.fam.areal) * \ (areal.z (counter1%) - mean.fam.a============================================================" DIM creal.z (6) DIM cideal.z (6) DIM areal.z (6) DIM aideal.z (6) DIM real.discrep (6) DIM ideal.discrep (6) FOR counter2% = 1 to 50 READ fam.size FOR counter1% = 1 TO fam.size READ B(26); SS.WITHIN; TAB(44); MS.WITHIN PRINT PRINT "TOTAL"; TAB(16); DF.TOTAL; TAB(26); SS.TOTAL PRINT: PRINT: PRINT PRINT "GROUP COUNT MEAN SD" PRINT "------------------------------------------------" FOR I% = 1 TO GROUP% PRINT TAB(real)))) ideal.discrep (counter1%) = SQR(ABS(\ ((cideal.z (counter1%) - mean.fam.cideal) * \ (cideal.z (counter1%) - mean.fam.cideal)) \ + ((aideal.z (counter1%) - mean.fam.aideal) * \ (aideal.z (counter1%) - mean.famfam.numb%, member.type%, creal, areal, cideal, aideal IF member.type% = 1 OR member.type% = 2 THEN\ creal.z (counter1%) = (creal - 59.7) / 8.78:\ cideal.z (counter1%) = (cideal - 59.7) / 8.78:\ areal.z (counter1%) = (areal - 47.83) / 6.582); I%; TAB(10); N%(I%); TAB(16); GROUP.MEAN (I%); TAB(32); GROUP.SD (I%) NEXT I% PRINT TAB(2); "TOTAL"; TAB(10); TOTAL.CASES%; TAB(16); TOTAL.MEAN FOR I% = 1 TO 5 PRINT NEXT I% IF UCASE$(DEVICE$) = "P" THEN CONSOLE STOP KEYBOARD: REM DATA ENTR.aideal)))) NEXT counter1% real.fds = 0 ideal.fds = 0 FOR counter1% = 1 to fam.size real.fds = real.fds + real.discrep (counter1%) ideal.fds = ideal.fds + ideal.discrep (counter1%) NEXT counter1% IF real.fdfc <= 2.7 THEN real.fam.type$ = "Balan:\ aideal.z (counter1%) = (aideal - 47.83) / 6.58\ ELSE \ creal.z (counter1%) = (creal - 55.71) / 9.59:\ cideal.z (counter1%) = (cideal - 55.71) / 9.59:\ areal.z (counter1%) = (areal - 43.84) / 7.36:\ aideal.z (counter1%) = (aidY VIA KEYBOARD PRINT CHR$(26): PRINT CHR$(30) PRINT PRINT TAB (35); "DATA ENTRY" PRINT: PRINT PRINT "YOU MAY ENTER UP TO 500 CASES FOR EACH GROUP" PRINT INPUT "HOW MANY GROUPS ?"; GROUP% DIM VALUE (GROUP%,500) DIM GROUP.SUM (GROUP%) DIM GROUP.MEAced" IF ideal.fdfc <= 2.7 THEN ideal.fam.type$ = "Balanced" IF real.fdfc > 2.7 AND real.fdfc < 4.6 THEN \ real.fam.type$ = "Mid-range" IF ideal.fdfc > 2.7 AND ideal.fdfc < 4.6 THEN \ ideal.fam.type$ = "Mid-range" IF real.fdfc > 4.6 THEN real.fam.> eal - 43.84) / 7.36 NEXT counter1% sum.fam.creal.z = 0 sum.fam.cideal.z = 0 sum.fam.areal.z = 0 sum.fam.aideal.z = 0 FOR counter1% = 1 TO fam.size sum.fam.creal.z = sum.fam.creal.z + creal.z (counter1%) sum.fam.cideal.z = sum.fam.cideal.z + cidB(44); ideal.fdfc, ideal.fds, ideal.fam.type$ PRINT PRINT TAB(22); "DIFF IN FDFC = "; fdfc.diff PRINT TAB(22); " DIFF IN FDS = "; fds.diff PRINT PRINT FOR counter1% = 1 TO fam.size creal.z (counter1%) = 0 cideal.z (counter1%) = 0 areal.z (cor1%) = 0 areal.z (counter1%) = 0 aideal.z (counter1%) = 0 real.discrep (counter1%) = 0 ideal.discrep (counter1%) = 0 NEXT counter1% NEXT counter2% CONSOLE STOP DATA 4,1,2,69,45,69,53,1,3,61,41,65,61,1,3,49,31,65,57,1,3,55,38,56,58 DATeal.z (counter1%) sum.fam.areal.z = sum.fam.areal.z + areal.z (counter1%) sum.fam.aideal.z = sum.fam.aideal.z + aideal.z (counter1%) NEXT counter1% mean.fam.cideal = 0 mean.fam.creal = 0 mean.fam.areal = 0 mean.fam.aideal = 0 mean.fam.creal = sunter1%) = 0 aideal.z (counter1%) = 0 real.discrep (counter1%) = 0 ideal.discrep (counter1%) = 0 NEXT counter1% NEXT counter2% CONSOLE STOP DATA 4,1,2,69,45,69,53,1,3,61,41,65,61,1,3,49,31,65,57,1,3,55,38,56,58 DATA 4,2,2,70,50,67,59,2,3A 4,2,2,70,50,67,59,2,3,62,44,57,64,2,3,50,42,38,49,2,3,61,36,60,41 DATA 5,3,2,44,39,40,38,3,3,50,45,71,57,3,3,34,39,48,49,3,3,29,36,65,56 DATA 3,3,29,47,71,54,3,4,1,59,43,63,43,4,2,41,48,50,42,4,3,62,47,56,42 DATA 4,5,1,59,62,58,60,5,2,56,53,62,62,5,3,um.fam.creal.z / fam.size mean.fam.cideal = sum.fam.cideal.z / fam.size mean.fam.areal = sum.fam.areal.z / fam.size mean.fam.aideal = sum.fam.aideal.z / fam.size temp.real.fdfc = 0 temp.ideal.fdfc = 0 real.fdfc = 0 ideal.fdfc = 0 temp.real.fdfc = (,62,44,57,64,2,3,50,42,38,49,2,3,61,36,60,41 DATA 5,3,2,44,39,40,38,3,3,50,45,71,57,3,3,34,39,48,49,3,3,29,36,65,56 DATA 3,3,29,47,71,54,3,4,1,59,43,63,43,4,2,41,48,50,42,4,3,62,47,56,42 DATA 4,5,1,59,62,58,60,5,2,56,53,62,62,5,3,56,50,70,50,5,3,58,45,756,50,70,50,5,3,58,45,73,57 DATA 5,6,1,56,56,54,60,6,2,52,53,64,50,6,3,55,40,56,62,6,3,54,42,65,50 DATA 6,3,59,45,63,50,5,7,2,62,50,65,50,7,1,60,58,64,53,7,3,65,54,69,54 DATA 7,3,59,50,67,44,7,3,63,51,67,55,4,8,2,62,46,46,37,8,1,45,34,48,34 DATA 8,3,63(mean.fam.creal * mean.fam.creal) + \ (mean.fam.areal * mean.fam.areal)) temp.ideal.fdfc = ((mean.fam.cideal * mean.fam.cideal) + \ (mean.fam.aideal * mean.fam.aideal)) real.fdfc = SQR(ABS(temp.real.fdfc)) ideal.fdfc = SQR(ABS(temp.ideal.fdfc)) F3,57 DATA 5,6,1,56,56,54,60,6,2,52,53,64,50,6,3,55,40,56,62,6,3,54,42,65,50 DATA 6,3,59,45,63,50,5,7,2,62,50,65,50,7,1,60,58,64,53,7,3,65,54,69,54 DATA 7,3,59,50,67,44,7,3,63,51,67,55,4,8,2,62,46,46,37,8,1,45,34,48,34 DATA 8,3,63,46,73,58,8,3,35,37,60,,46,73,58,8,3,35,37,60,61,5,9,2,61,44,60,48,9,3,48,39,41,35 DATA 9,3,43,42,62,46,9,3,54,41,64,47,9,3,50,45,50,40,2,10,2,42,46,76,56 DATA 10,3,46,50,68,58,2,11,2,55,44,57,45,11,3,42,35,56,54,6,12,2,63,38,68,57 DATA 12,1,71,56,64,59,12,3,71,54,73,62,12,3,OR counter1% = 1 TO fam.size real.discrep (counter1%) = SQR(ABS(\ ((creal.z (counter1%) - mean.fam.creal) * \ (creal.z (counter1%) - mean.fam.creal)) \ + ((areal.z (counter1%) - mean.fam.areal) * \ (areal.z (counter1%61,5,9,2,61,44,60,48,9,3,48,39,41,35 DATA 9,3,43,42,62,46,9,3,54,41,64,47,9,3,50,45,50,40,2,10,2,42,46,76,56 DATA 10,3,46,50,68,58,2,11,2,55,44,57,45,11,3,42,35,56,54,6,12,2,63,38,68,57 DATA 12,1,71,56,64,59,12,3,71,54,73,62,12,3,72,58,70,61,12,3,65,44,72,58,70,61,12,3,65,44,63,46 DATA 12,3,70,48,66,52,3,13,2,66,53,66,57,13,1,54,38,57,57,13,3,69,51,73,66 DATA 3,14,1,74,52,74,53,14,2,57,45,43,42,14,3,46,42,55,44,3,15,2,70,44,64,50 DATA 15,1,67,52,73,57,15,3,53,36,58,39,3,16,2,49,49,54,57,16,3,49,50,64,) - mean.fam.areal)))) ideal.discrep (counter1%) = SQR(ABS(\ ((cideal.z (counter1%) - mean.fam.cideal) * \ (cideal.z (counter1%) - mean.fam.cideal)) \ + ((aideal.z (counter1%) - mean.fam.aideal) * \ (aideal.z (counter63,46 DATA 12,3,70,48,66,52,3,13,2,66,53,66,57,13,1,54,38,57,57,13,3,69,51,73,66 DATA 3,14,1,74,52,74,53,14,2,57,45,43,42,14,3,46,42,55,44,3,15,2,70,44,64,50 DATA 15,1,67,52,73,57,15,3,53,36,58,39,3,16,2,49,49,54,57,16,3,49,50,64,45 DATA 16,3,61,45,61,45 DATA 16,3,61,45,61,56,3,17,1,56,62,56,62,17,2,75,58,76,65,17,3,67,46,71,50 DATA 4,18,2,49,46,65,59,18,3,46,40,49,58,18,3,40,36,55,55,18,3,46,29,68,57 DATA 4,19,1,63,49,49,52,19,2,58,52,77,50,19,3,48,52,57,49,19,3,54,50,59,47 DATA 3,20,2,67,44,74,56,1%) - mean.fam.aideal)))) NEXT counter1% real.fds = 0 ideal.fds = 0 FOR counter1% = 1 to fam.size real.fds = real.fds + real.discrep (counter1%) ideal.fds = ideal.fds + ideal.discrep (counter1%) NEXT counter1% IF real.fdfc <= 2.7 THEN real.fam.56,3,17,1,56,62,56,62,17,2,75,58,76,65,17,3,67,46,71,50 DATA 4,18,2,49,46,65,59,18,3,46,40,49,58,18,3,40,36,55,55,18,3,46,29,68,57 DATA 4,19,1,63,49,49,52,19,2,58,52,77,50,19,3,48,52,57,49,19,3,54,50,59,47 DATA 3,20,2,67,44,74,56,20,3,59,48,73,59,20,3,420,3,59,48,73,59,20,3,46,51,47,49,4,21,1,64,51,73,55 DATA 21,2,65,49,67,52,21,3,55,53,65,55,21,3,56,46,67,60,4,22,1,57,55,52,40 DATA 22,2,64,45,61,47,22,3,49,49,53,54,22,3,47,42,62,56,4,23,1,62,44,61,50 DATA 23,2,66,51,65,49,23,3,61,50,77,61,23,3,65,44,type$ = "Balanced" IF ideal.fdfc <= 2.7 THEN ideal.fam.type$ = "Balanced" IF real.fdfc > 2.7 AND real.fdfc < 4.6 THEN \ real.fam.type$ = "Mid-range" IF ideal.fdfc > 2.7 AND ideal.fdfc < 4.6 THEN \ ideal.fam.type$ = "Mid-range" IF real.fdfc > 4.6 6,51,47,49,4,21,1,64,51,73,55 DATA 21,2,65,49,67,52,21,3,55,53,65,55,21,3,56,46,67,60,4,22,1,57,55,52,40 DATA 22,2,64,45,61,47,22,3,49,49,53,54,22,3,47,42,62,56,4,23,1,62,44,61,50 DATA 23,2,66,51,65,49,23,3,61,50,77,61,23,3,65,44,66,53,4,24,1,65,47,66,566,53,4,24,1,65,47,66,50 DATA 24,2,42,40,65,62,24,3,57,44,66,51,24,3,37,35,74,57,2,25,2,68,53,71,55 DATA 25,3,78,56,77,56,3,26,2,53,45,56,49,26,3,71,54,69,57,26,3,55,31,65,53 DATA 6,27,1,64,46,67,56,27,2,58,48,58,51,27,3,61,47,69,51,27,3,61,46,63,53 DATHEN real.fam.type$ = "Extreme" IF ideal.fdfc > 4.6 THEN ideal.fam.type$ = "Extreme" fdfc.diff = ABS(real.fdfc - ideal.fdfc) fds.diff = ABS(real.fds - ideal.fds) PRINT fam.numb%; TAB(10); fam.size; TAB(44); real.fdfc, real.fds, real.fam.type$ PRINT TA0 DATA 24,2,42,40,65,62,24,3,57,44,66,51,24,3,37,35,74,57,2,25,2,68,53,71,55 DATA 25,3,78,56,77,56,3,26,2,53,45,56,49,26,3,71,54,69,57,26,3,55,31,65,53 DATA 6,27,1,64,46,67,56,27,2,58,48,58,51,27,3,61,47,69,51,27,3,61,46,63,53 DATA 27,3,59,49,66,57,27,? 3,64,37,67,54,4,28,2,69,50,63,54,28,1,73,58,70,57 DATA 28,3,63,47,56,45,28,3,62,51,59,63,3,29,2,32,50,39,56,29,3,49,37,69,56 DATA 29,3,53,43,52,32,4,30,1,70,54,72,56,30,2,53,40,66,59,30,3,54,31,67,52 DATA 30,3,56,34,73,58,4,31,1,64,43,67,44,31,2,66,29,64,43,67,44,31,2,66,29,62,45,31,3,43,22,66,52 DATA 31,3,49,27,58,34,4,32,1,56,52,62,54,32,2,52,47,51,51,32,3,52,48,54,53 DATA 32,3,51,52,51,44,3,33,2,72,44,80,59,33,1,67,46,70,45,33,3,75,43,75,51 DATA 4,34,2,56,50,62,53,34,3,56,42,61,52,34,3,66,37,45,48,) = "Y" THEN\ INPUT "WHICH ? (ENTER CASE #)"; CASE%:\ INPUT "NEW VALUE ?"; VALUE (I%,CASE%)\ ELSE\ LINE% = 1:\ PRINT CHR$(26): PRINT CHR$(30):\ NEXT I% REM PROMPT TO SAVE DATA TO DISK FILE INPUT "SAVE DATA TO DISK FILE ? (Y/N) "; SAVE$ IF U2,45,31,3,43,22,66,52 DATA 31,3,49,27,58,34,4,32,1,56,52,62,54,32,2,52,47,51,51,32,3,52,48,54,53 DATA 32,3,51,52,51,44,3,33,2,72,44,80,59,33,1,67,46,70,45,33,3,75,43,75,51 DATA 4,34,2,56,50,62,53,34,3,56,42,61,52,34,3,66,37,45,48,34,3,46,46,57,44 DATA 34,3,46,46,57,44 DATA 4,35,2,53,53,60,44,35,3,59,53,51,52,35,3,54,48,61,52,35,3,63,36,41,37 DATA 3,36,1,63,49,59,44,36,2,72,60,73,54,36,3,48,42,65,55,2,37,2,47,43,63,45 DATA 37,3,51,38,63,50,3,38,2,64,44,70,56,38,3,71,46,64,52,38,3,65,53,66,47 DATA 3,3CASE$(SAVE$) = "Y" THEN GOSUB WRITE RETURN WRITE: REM SAVE DATA TO DISK FILE PRINT PRINT "TYPE FILE NAME USING UP TO 8 LETTERS" PRINT "THEN TYPE A PERIOD" PRINT "THEN TYPE 'DAT'" PRINT PRINT "DO NOT USE ANY SPACES" PRINT PRINT "EXAMPLES: FDF4,35,2,53,53,60,44,35,3,59,53,51,52,35,3,54,48,61,52,35,3,63,36,41,37 DATA 3,36,1,63,49,59,44,36,2,72,60,73,54,36,3,48,42,65,55,2,37,2,47,43,63,45 DATA 37,3,51,38,63,50,3,38,2,64,44,70,56,38,3,71,46,64,52,38,3,65,53,66,47 DATA 3,39,2,67,56,75,66,39,3,559,2,67,56,75,66,39,3,55,52,62,52,39,3,59,43,71,58,3,40,1,55,35,55,53 DATA 40,2,61,46,66,53,40,3,59,44,56,46,4,41,1,47,46,60,52,41,2,60,41,60,50 DATA 41,3,44,40,49,39,41,3,51,36,38,33,3,42,2,63,50,69,55,42,3,47,35,50,45 DATA 42,3,57,59,58,44,5,43,1,54,51CANV1.DAT" PRINT " TEST2.DAT" PRINT PRINT "NOTICE THAT YOU CAN USE A NUMBER" PRINT "AS LONG AS IT'S NOT THE FIRST CHARACTER" PRINT INPUT "FILE NAME ? "; FILE.NAME$ CREATE FILE.NAME$ AS 1 PRINT #1; GROUP% FOR I% = 1 TO GROUP% PRINT #1; ,52,62,52,39,3,59,43,71,58,3,40,1,55,35,55,53 DATA 40,2,61,46,66,53,40,3,59,44,56,46,4,41,1,47,46,60,52,41,2,60,41,60,50 DATA 41,3,44,40,49,39,41,3,51,36,38,33,3,42,2,63,50,69,55,42,3,47,35,50,45 DATA 42,3,57,59,58,44,5,43,1,54,51,53,48,43,2,55,44,62,59,53,48,43,2,55,44,62,59,43,3,55,40,67,55 DATA 43,3,70,49,65,53,43,3,54,46,52,52,3,44,1,63,42,67,47,44,2,61,49,72,52 DATA 44,3,52,33,50,56,3,45,1,45,42,59,54,45,2,44,40,61,51,45,3,52,34,44,48 DATA 5,46,1,53,51,49,54,46,2,67,50,65,62,46,3,58,44,71,46,46,3N% (I%) NEXT I% FOR I% = 1 TO GROUP% FOR J% = 1 TO N% (I%) PRINT #1; VALUE (I%,J%) NEXT J% NEXT I% CLOSE 1 RETURN DISK: REM DATA ENTRY VIA DISK FILE PRINT INPUT "FILE NAME ?"; FILE.NAME$ IF END #1 THEN 2.1 OPEN FILE.NAME$ AS 1 READ #1;,43,3,55,40,67,55 DATA 43,3,70,49,65,53,43,3,54,46,52,52,3,44,1,63,42,67,47,44,2,61,49,72,52 DATA 44,3,52,33,50,56,3,45,1,45,42,59,54,45,2,44,40,61,51,45,3,52,34,44,48 DATA 5,46,1,53,51,49,54,46,2,67,50,65,62,46,3,58,44,71,46,46,3,68,51,77,57 DATA 46,3,68,51,77,57 DATA 46,3,66,46,68,53,3,47,1,69,43,64,48,47,2,59,53,66,47,47,3,62,50,75,58 DATA 4,48,1,69,51,65,62,48,2,68,59,70,66,48,3,64,55,67,58,48,3,64,60,77,59 DATA 4,49,1,58,32,78,61,49,2,62,40,76,62,49,3,57,34,68,58,49,3,50,37,69,50 DATA 3,50,1,65 GROUP% DIM GROUP.SUM (GROUP%) DIM GROUP.MEAN (GROUP%) DIM GROUP.SD (GROUP%) DIM N% (GROUP%) DIM VALUE (GROUP%,500) FOR I% = 1 TO GROUP% READ #1; N% (I%) NEXT I% FOR I% = 1 TO GROUP% FOR J% = 1 TO N% (I%) READ #1; VALUE (I%,J%) NEXT J% NE,66,46,68,53,3,47,1,69,43,64,48,47,2,59,53,66,47,47,3,62,50,75,58 DATA 4,48,1,69,51,65,62,48,2,68,59,70,66,48,3,64,55,67,58,48,3,64,60,77,59 DATA 4,49,1,58,32,78,61,49,2,62,40,76,62,49,3,57,34,68,58,49,3,50,37,69,50 DATA 3,50,1,65,53,66,64,50,2,62,53,72,53,66,64,50,2,62,53,72,57,50,3,67,43,71,59 END 465252344163426747442614972524435233505634514542595445244406XT I% CLOSE 1 2.1 RETURN END  f) > 15145352344448546153514954462675065624635844714646368517757463664668533471694364484725953664747362507558448169516562482686 ;6x5 #>> 6@6&88Au9D:\>>:)6iF  FFF,!F$@;} x x &0Ⱥ8QY#s @KȺSQY#s [fy nwy  F #&F*.9F <?FBFFJUF X(30) FOR I% = 1 TO GROUP% PRINT "GROUP"; I% LINE% = 1 FOR J% = 1 TO N% (I%) IF LINE% <= 20 THEN\ PRINT J%; "="; VALUE (I%,J%):\ LINE% = LINE% + 1\ ELSE\ PRINT:\ INPUT "EDIT ANY OF THESE ? (Y/N)"; ENTRY$:\ IF UCASE$(ENTRY$) = "Y" THE'F+.F*16F ;>AF GJF,OFRUFY\F*_dF iFloFrxF{~F,FĆFČF,FėFĞĨķF+F ˔ڔF+F F+F !F+$F '+.F25F*8=F FOXbrF'TA 27,3,59,49,66,57,27,3,64,37,67,54,4,28,2,69,50,63,54,28,1,73,58,70,57 DATA 28,3,63,47,56,45,28,3,62,51,59,63,3,29,2,32,50,39,56,29,3,49,37,69,56 DATA 29,3,53,43,52,32,4,30,1,70,54,72,56,30,2,53,40,66,59,30,3,54,31,67,52 DATA 30,3,56,34,73,58,4,31,1,6N\ INPUT "WHICH ? (ENTER CASE #)"; CASE%:\ INPUT "NEW VALUE ?"; VALUE (I%,CASE%)\ ELSE\ LINE% = 1:\ PRINT CHR$(26): PRINT CHR$(30):\ PRINT "GROUP"; I% NEXT J% PRINT INPUT "EDIT ANY OF THESE ? (Y/N)"; ENTRY$ IF UCASE$(ENTRY$? wF}F'FF'FœřFŠFũůŹſFŔF̔ДؔFFFF,FF F*F F, F#&F),F,1F59ALFTZF'_FeF'jFmpF @ >; |p;)+).HNd_ l3 =0tGt*S(uV tM,)!)}vl}H uH@H=~t*6(u$((t4#e88u9:>>:6@=z<<u#:Si..P3233344444')<<$)$<<))>)I<MM)M;NNNNN.3/30%"YPPPPV+PPPT+PPPX+PPPbu+PPPNc+((x7'R%=RiJAzz)Y-'u x\l'_|z(nPP>@=~߸L +>>  @ >; }á@=~.Pe .P3PPPPP PPPPPP);1)<  22RSzV>RS|R@RYx (:&&uNˡRHىNPPPPPPP>@=~ܸL +>)F "F%(F,-F03F7:F*=BF GJF,OFRUFX[F,`Fdhp{FăF'FF'FĜĠīP(RINTER)?1j1n1<;))) PRESS: S OR P *o2)266l666%LOAD PAPER. PRESS ANY KEY WHEN READY7j7n7?071"@9/ABC6 l 7Jjn6l7JjnD6nE6 m Nى}&Mr&Bg&7H~ H~R;~x5R>HV>R~@~@d3'P%u9B+ 1>HV>)~%eF,FĶFĽF*ÔF FԔFڔFFFFFFFFF F FF,FF!1F 7?F"CGNFQU`hpF"txŀFFőŕřŝťŪŮF!FF,F˔ i%l%%%PEARSON CORRELATION%j%n%F6nG6lFILE : il)<jnH6n6 n I6 l r = il)<jnJ2;); K6nL3M- :)<P 8&/&NIOP( <QR6 l 7Jjn/7 HH ERROR $ AT IP $@PPimproper input -FՄF$۔FF F!F03FFIFOWF"[_fF iF#lp{ƃF"ɠR >  @ >; }á@=~= FF#!%)16:EF!IF-LFssHHf ,,H zH@H=~$_PH 9H@H=~ reenter $CdeW'`707HWgtA1A@P\d5bEHyed"BA1PYTAE(('@ @@I@hfffff?hfffffA>533333>=ii<0$;9"sU':9"sU'9BT8!%8hxVg 7"hC60wYEG417Gv@`v'b1AAPX#C`QI"U&Àe(HBCTbDvRWaGTHEN TYPE A PERIODTHEN TYPE 'DAT'DO NOT USE ANY SPACESEXAMPLES: FDFCANV1.DAT TEST2.DAT NOTICE THAT YOU CAN USE A NUMBER'AS LONG AS IT'S NOT THE FIRST CHARACTER FILE NAME ? FILE NAME ?dPPPPPdJnJ-+uNPNPPPL~/3PHRL>HTS>HT >HV>R R@R>HN;R}>HXS>HTX >HN ` v"C%T$a'ÙH%Csrb"(HdA1ACORR.BAS'PROGRAM TO PERFORM CORRELATION ANALYSIS(C) 1985, RHO RESEARCHENTER DATA FROM K)EYBOARD OR D)ISK K(SEND REPORT TO S(CREEN) OR TO P(RINTER)?! PRESS: S OR  TEST2.DAT NOTICE THAT YOU CAN USE A NUMBER'AS LONG AS IT'S NOT THE FIRST CHARACTER FILE NAME ? FILE NAME ?D"j"n";""" OR D)ISK #o+)+;q+6n- :);K E-<-.E</,<# ) HV>R >HX G >HV>R >HX  ! Z Z R@R>HN;R|s>HbS>HNZ =. >HNPH@H=rHRjP >P%LOAD PAPER. PRESS ANY KEY WHEN READYPEARSON CORRELATIONFILE : r = P DATA ENTRY8YOU MAY ENTER UP TO 500 CASES FOR EACH OF THE TWO GROUPS+PRESS 'Q' TO QUIT OR 'E' TO EDIT LAST ENTRYOTHERWISE ENTER OBSERVED VALUEYY CASE  )HL>RS>HV>R >HX B >Hb  R@R>HN;R}H@H=mHd RN>HL>R H@L>Rf d dg R@R>HN;@ X VALUE =QN Y VALUE =E CASE NEW X VALUE = NEW Y VALUE =GROUP=EDIT ANY OF THESE ? (Y/N)YWHICH ? (ENTER CASE #) NEW VALUE ?GROUPEDIT ANY OF THESE ? (Y/N)YWHICH ? (ENTER CASE #) NEW VALUE ? SAVE DATA TO DISK FILE ? (LE NAME USING UP TO 8 LETTERSTHEN TYPE A PERI @=~$ 3 @=~Mhu`PPPP*HY t*QـY*󪠥2xs) mr /FO**/G/G$>Pu>r<Pn t u$0E$,@y ??vCSW^B>*[CS t8PY/N) Y$TYPE FILE NAME USING UP TO 8 LETTERSTHEN TYPE A PERIODTHEN TYPE 'DAT'DO NOT USE ANY SPACESEXAMPLES: FDFCANV1.DAT TEST2.DAT NOTICE THAT YOU CAN USE A NUMBER'AS LONG AS IT'S NOT THE FIRST CHARACTER FILE NAME ? FILE NAME ?3 L>S>>>  @ >; }>S>> x>> >>$tȾ>sXtȾ>'uY5~ t/KK/xùFOv]q%uZDS u0E(%Ay-AxC6B*/F/F/F/F/F/F/ASbAA@P? CYdx$&BCqFVDQEqQ8C@4(D"!VD&AAAAAA17b5!$A@s#VBAAA AC$x0b`!BWACc9'C%b&2BQPP8CB(0P"C(F9@E3SxAIy&cyp> > @ >; |s>S>>@9 |qu T>> S>> >͜F F'/s6't떋W@[ $tF*㿡'JuBBӋCCCCӃ t-%:u:u t2r ðÇ ^^P.$YQ S[^zP.$CC%Z5HR@R>HN;R|8& $u9{&j>HV>P~$$H@H=z3; &U'$uBXy~sm-^CC ^CCP.$ -N2$2Ȫ%þ2$2ȪF$ Ȫà<s tyÿN-yȈ/þÊ'P'rC'$'Fá u' d$[UL F4vMvP3PPHv>HNcH@H=~߸HLR+E>HV>RR@R>HN;R}áH@H=~VB&vPj vP3PPGäÿ'''''''ËCC$HNH@H=~ܸHLR+*>HV>RPgR@R>HN;R}áH@H=~itvËfË+Ntx@@H2& Hఙ'y@#S[̡u -Ë uK[XS$v+ y؀r *tyúډ[[SSYZRQ uY؎r;sَЋQ>ut >*+II +b  F00-r3 t%< uFtNV@P@ Y^-Gá*+Éáà*á tPGùZD t & Q 2 u YmNN<#u~<$u|<$ui$<*u d<*tT*<.uU<#.u2g<-u"?<#t<.-u°2H<\u th <#t<,u<.u<#u<^u<-uER. PRESS ANY KEY WHEN READYPEǠARSON CORRELATIONFILE : r = P DATA ENTRY,YOU MAY ENTER UP TO 500 CASES FOR EACH GROUPHOW MANY GROUPS ?+PRESS 'Q' TO QUIT OR 'E' TO EDIT LAST ENTRYOTHERWISE ENTER OBSERVED VALUEGROUP YY OBSERVATIONZRZ' XHHHPX HpyPX$'@'UÉ+ˉOrNˁsFs t(W+rw>GÉWډtŹMOKK6;r64 t;r;u L7 u.7Cu tȢ t t uc,@t s2 t tű<r,Ŋ*ŢyL%W2&%,@*ňڻ ڰuUt  u  VALUE =QNE OBSERVATION  NEW VALUE =GROUP=EDIT ANY OF THESE ? (Y/N)YWHICH ? (ENTER CASE #) NEW VALUE ?GROUPEDIT ANY OF THESE ? (Y/N)YWHICH ? (ENTER CASE #) NEW VALUE ? SAVE DATA TO DISK FILE ? (Y/N) Y$TYPE FIE;tOËM+Wr;s‹ uÀ>0À>YQ󥥥ËFFFF| ^ r  O c w | /uÊ u -0*xS1[ ߥ0 t@yـr$s Q@ Ȋ*<s0Kusr t u* uVtQ tB<s8-6Ȋ<*t<$u$  utt^W u<t t t u #0 ^7 àr"S0[Z'Ȱ"rJ'J'꠿Z's. tKKS [K u ,@< r t /ŊȻ2 Ct$tТ 0ucȻ yq2Ȱ.sl t? u:s2*Ţ/ tx) t@E u yЊЊПB[C7à uȢ C<0s<:s$ÊC7*ŠƇsyÊ uÊshûٞڞڻޞ֊r u1P r uEI/Z vrƹXEtËӱ% t u$=w tSCCЋ> t>t=SNSCC>u! t CS[J[ uÊr4 uYSN:ډ  > ʃwl  / u\> u, t2뺀>9 u<.u<*u> t'9 ?B t[[> t FI: XZY[PSX [  ڻޞ։ [^RS[:RFt# F [t? ޞևڋF BCu;F  0)F  +S> [( G ?G?H P xu XEZSt^l͊ tð Р t y tà,usP XĞu tà ۹LTu` u*ruS[*u}:ußPtgXĞûȊsK$ 0Êyð0'5r : tO: tO > t +G!G.f Sr Yr tXEt 6 EOt[: ~ XZY[PS [ ` r u :tO tUP tBCC t+۬<#u"T*} ZtS+A+jXYZQ ;*0YI  X U rT 2b߿ 6 $7QR[4J  FDuX > u t @ > $ É wtùFN[Hߋ > +AË C9 r RSSQڋSQr)x'SCCߣ ZYZYZ[[ à ډuS<#u  G!G0  ; > u ; tq  H % & &s A r <tV< tË tERCC  ڋ C*Êr rG}6 LSSR t5 t9Sڋ;_uZ[R[tr 2ðVt݇Lև;t#SR;rg[ t x؀'_St *[P;XùCA[TSދغ YKKá  uQKKXY[Q x*S;vSRCCދأ ZZ[ ùSS݋Y[Q x[M  )s  t | u n ux2 Ȋл u< t<"t<,t1 <"tsn<"t2 <,tW¶띋 w t2طCCSCŋCBuZ *à $t- %SQS< t[Y<,t$< t<2t/C܋ Qu0Y[û< < tH<"tC ,@ A "C A 2@ C < u < uE C :t$< t*A CA @ uD< t<,u  u%< >C u t t S+v"SRCCXދأ ZZ[ X tuXZ[P x t uuj+SQ8J+v)Z;sSRCC݋أ Z)Z.[8  [* P.0*SCC݋ZSʺ X< t*Ë t# xSta*: C7àCt:rR K[t<"u :uú@ eSRޞֈZ[ÊSQޞֈY[SRޞZ7[S St#RCCZYS/CCBI uZ[C7SxB tQRޞ[CS}[Sk[x uJú< t 7CCS@ ޞRSCC-؉> Z7CYZ CBI u@ tȺCBu< tG> < S ÇڟJJ[Su [C7C? t /C;Yt-Q[RS ؇[C7Z7C RS[ZCJ us'_CXSQCCU݋ZZSXHHÉ Y  QPMK  MtB 9 8 :t/ى <\uKF  CS"[r ; ~+S ) "XÉ    ; ~Ë  ,\ u s  @; sË    Cڋˋ*rDO[[/CCSޞ։[u< rP|X*d*Ë*Ê[Z*Z_YQSCCӀ t[   2CuK2  V< t<+t <-u B<0t<.u& sТ <uf <0uޠ r S"?[C7Ë uEN< u; r$<RWuP ڋ *ÊЊNJP  u"HXĞuXr "  ùWDu蠿Ȋr< ußP t ùREu_K A ' ?u >ʃwl / u\> u, t2뺀> u<.u<*u> t' ?B t[[>t FI XZY[PSX [5r  tO tO in the name of your data file: "; file.name$ LPRINTER PRINT PRINT "FAMSCORE.CMD" PRINT "FAMILY SCORE OUTPUT" PRINT PRINT PRINT "FAM# # OF MEMB FDFC SCORE FDS SCORE FAM TYPE" PRINT "============================== ȸ+ NN$WNNV$& SP8ۣ Z]^[MII+R& ZKK +MMV u  [YX uyQSWS~H[Sݻ T[S8໕ dעsnܹQ "~ܻ  ߻ ݻ Y[Y$> t +G!G.f Sr Yr tXEZ 6 EOt[ ~ XZY[PS [` r u :tO  t S}߻v`[[oߠ [u^ yNL=SA"+[SF S3  R>[۹rH ߻ ޿ 2߹J+ ܻ$ r BRtUR ùRIuK& ʋЋ $ÊذNJKSЊЊЊЊRZ! وC7 $[ YZQs+S܉ [SRh* ZuRB>T*} ZtS+A+jXYZQ5s+S܉ [S+fam.numb%, member.type%, creal, areal, cideal, aideal IF member.type% = 1 OR member.type% = 2 THEN\ creal.z (counter1%) = (creal - 64.9) / 8.4:\ cideal.z (counter1%) = (cideal - 64.9) / 8.4:\ areal.z (counter1%) = (areal - 49.9) / 6.6:\  ۻ ޠ ,A,ݻ~}ڻ*~ۻ q[ޏ p %  & t&R" W[S/[o[-ZRSw[yZӋCC\t6RS[  G!G0  ! > u ! tq  H % & &s A r <tV< tË tERCC  ڋ C*Êr rG}6 *à $t- %Sz aideal.z (counter1%) = (aideal - 49.9) / 6.6\ ELSE \ creal.z (counter1%) = (creal - 56.3) / 9.2:\ cideal.z (counter1%) = (cideal - 56.3) / 9.2:\ areal.z (counter1%) = (areal - 45.4) / 7.9:\ aideal.z (counter1%) = (aideal - 45.4)  Sݻvٻ [ݻvtٻ `ۘPQ ݋QScٻ d[Y ?tRڻ Eٻð{2 2 ޻PۻB ػB ݻB ػXڻB 3J B hٻB ءJ @J B `sߺB B ٻ: ػ: pٻxػ: ٻػB ٺ: ػ: ٻrQS< t[Y<,t$< t<2t/C܋ Qu0Yz[û" < tH<"t) ,& z' ") z' 2& ) < u < uE ) :t$< t*' C' & uD< t<,u  u%" >) u t t x uJú" t 7C/ 7.9 NEXT counter1% sum.fam.creal.z = 0 sum.fam.cideal.z = 0 sum.fam.areal.z = 0 sum.fam.aideal.z = 0 FOR counter1% = 1 TO fam.size sum.fam.creal.z = sum.fam.creal.z + creal.z (counter1%) sum.fam.cideal.z = sum.fam.cideal.z + cideal.z (counterzڻB I(B B YغB B rٻcWڻB &ءJ HJ 3;J xк2 Ps B ݻB غ* B ׻* ð|T T ׻T ׺T T ׺T T ٻٻL ׻L ð}d d ׻d ׺d d ػd ׻d ׻d ٻ\ j׻\ ð~t xt EXCS& ޞRSCC-؉$ Z7CYZ CBI u& tȺzCBu" tG$ " S ÇڟJJ[Su [C7C? t /C;Yt-Q[RS ؇[C7Z7C RS[ZCJ ur S"?[1%) sum.fam.areal.z = sum.fam.areal.z + areal.z (counter1%) sum.fam.aideal.z = sum.fam.aideal.z + aideal.z (counter1%) NEXT counter1% mean.fam.cideal = 0 mean.fam.creal = 0 mean.fam.areal = 0 mean.fam.aideal = 0 mean.fam.creal = sum.fam.creal.z?׻t I׺t t [׺t t tػeYٻl (׻l ð 6 ܻ ׺ Cy ܻ ٻ 3 y# ֻػֻ 3 ׻ ֺ ֻ ׻ֻ ׻ֻ ׻ ֻ ׺ ֻ ׻ xֻ C7Ë uEN< u; r$<RWuP ڋ *ÊЊNJP  u"HXĞuXr "  ùWDu蠥Ȋr< ußP t ùREu_K s 6  $ u 0Aֻ > u 8(ֻ ֺ @@s ۻ պ| ջ| Ëھ*Ȁ?trSGGFFWVQY^_[C[XPREMARK f2.bas REMARK A program to to compute scores for dissertation REMARK the user enters scores for each person in the family, REMARK then program computes two family scores: REMARK FDFC (family distance from center); and REMARK FDS (family dl * mean.fam.creal) + \ (mean.fam.areal * mean.fam.areal)) temp.ideal.fdfc = ((mean.fam.cideal * mean.fam.cideal) + \ (mean.fam.aideal * mean.fam.aideal)) real.fdfc = SQR(ABS(temp.real.fdfc)) ideal.fdfc = SQR(ABS(temp.ideal.fdfc)) FOR counter1% = 0000 VARIABLES 0748 UCOMON  r uEI/Z vrƹXEtËӱ% t u$=w tSCCЋ> 2.7 AND real.fdfc < 4.6 THEN \ real.fam.type$ = "Mid-range" IF ideal.fdfc > 2.7 AND ideal.fdfc < 4.6 THEN \ ideal.fam.type$ = "Mid-range" IF real.fdfc > 4.6 THEN real.fam.20,3,59,48,73,59,20,3,46,51,47,49,4,21,1,64,51,73,55 DATA 21,2,65,49,67,52,21,3,55,53,65,55,21,3,56,46,67,60,4,22,1,57,55,52,40 DATA 22,2,64,45,61,47,22,3,49,49,53,54,22,3,47,42,62,56,4,23,1,62,44,61,50 DATA 23,2,66,51,65,49,23,3,61,50,77,61,23,3,65,44, "FILE : "; file.name$ PRINT: PRINT PRINT "r = "; R FOR I% = 1 TO 5 PRINT NEXT I% IF UCASE$(DEVICE$) = "P" THEN CONSOLE STOP KEYBOARD: REM DATA ENTRY VIA KEYBOARD PRINT CHR$(26): PRINT CHR$(30) PRINT PRINT TAB (35); "DATA ENTRY" PRINT: PRINtype$ = "Extreme" IF ideal.fdfc > 4.6 THEN ideal.fam.type$ = "Extreme" fdfc.diff = ABS(real.fdfc - ideal.fdfc) fds.diff = ABS(real.fds - ideal.fds) PRINT fam.numb%; TAB(10); fam.size; TAB(29); "REAL:"; TAB(37); real.fdfc, real.fds, real.fam.type$ PRIN66,53,4,24,1,65,47,66,50 DATA 24,2,42,40,65,62,24,3,57,44,66,51,24,3,37,35,74,57,2,25,2,68,53,71,55 DATA 25,3,78,56,77,56,3,26,2,53,45,56,49,26,3,71,54,69,57,26,3,55,31,65,53 DATA 6,27,1,64,46,67,56,27,2,58,48,58,51,27,3,61,47,69,51,27,3,61,46,63,53 DAT PRINT "YOU MAY ENTER UP TO 500 CASES FOR EACH OF THE TWO GROUPS" PRINT DIM VALUE (2,500) DIM GROUP.SUM (2) DIM GROUP.MEAN (2) DIM GROUP.SD (2) DIM N% (2) PRINT CHR$ (26): PRINT CHR$ (30) PRINT: PRINT PRINT "PRESS 'Q' TO QUIT OR 'E' TO EDIT LASTT TAB(28); "IDEAL:"; TAB(37); ideal.fdfc, ideal.fds, ideal.fam.type$ PRINT PRINT TAB(22); "DIFF IN FDFC = "; fdfc.diff PRINT TAB(22); " DIFF IN FDS = "; fds.diff PRINT PRINT FOR counter1% = 1 TO fam.size creal.z (counter1%) = 0 cideal.z (counteREM CORR.BAS REM PERFORMS CORRELATION ANALYSIS REM CLEAR SCREEN, DISPLAY TITLE + INSTRUCTIONS PRINT CHR$(26): PRINT CHR$(30) FOR I%=1 TO 8 PRINT NEXT I% PRINT TAB(36); "CORR.BAS" PRINT PRINT TAB(20); "PROGRAM TO PERFORM CORRELATION ANALYSIS" P ENTRY" PRINT "OTHERWISE ENTER OBSERVED VALUE" PRINT TRUE$ = "Y" J% = 1 WHILE UCASE$(TRUE$) = "Y" PRINT " CASE"; J% INPUT " X VALUE ="; X.ENTRY$ IF UCASE$(X.ENTRY$) = "Q" THEN \ TRUE$ = "N": GOTO 1 INPUT " Y VALUE r1%) = 0 areal.z (counter1%) = 0 aideal.z (counter1%) = 0 real.discrep (counter1%) = 0 ideal.discrep (counter1%) = 0 NEXT counter1% NEXT counter2% CONSOLE STOP DATA 4,1,2,69,45,69,53,1,3,61,41,65,61,1,3,49,31,65,57,1,3,55,38,56,58 DATRINT PRINT TAB (28); "(C) 1985, RHO RESEARCH" FOR I%=1 TO 7 PRINT NEXT I% REM PROMPT FOR METHOD OF DATA ENTRY (CONSOLE OR FILE) PRINT "ENTER DATA FROM K)EYBOARD" INPUT " OR D)ISK "; SOURCE$ PRINT IF UCASE$(SOURCE$) = "K" THEN G="; Y.ENTRY$ IF UCASE$(X.ENTRY$) = "E" THEN\ PRINT:\ PRINT " CASE"; J%-1:\ INPUT "NEW X VALUE ="; X.ENTRY$:\ INPUT "NEW Y VALUE ="; Y.ENTRY$:\ VALUE (1,J%-1) = VAL(X.ENTRY$):\ VALUE (2,J%-1) = VAL(Y.ENTRY$):\ GOTO 1 VALUE (1,A 4,2,2,70,50,67,59,2,3,62,44,57,64,2,3,50,42,38,49,2,3,61,36,60,41 DATA 5,3,2,44,39,40,38,3,3,50,45,71,57,3,3,34,39,48,49,3,3,29,36,65,56 DATA 3,3,29,47,71,54,3,4,1,59,43,63,43,4,2,41,48,50,42,4,3,62,47,56,42 DATA 4,5,1,59,62,58,60,5,2,56,53,62,62,5,3,OSUB KEYBOARD\ ELSE GOSUB DISK REM COMPUTE GROUP SUMS + MEANS + STD DEV DIM Z (N% (1), N% (2)) TOTAL.CASES% = 0 FOR I% = 1 TO 2 FOR J% = 1 TO N% (I%) GROUP.SUM (I%) = GROUP.SUM (I%) + VALUE (I%,J%) NEXT J% GROUP.MEAN (I%) = GROUP.SUMJ%) = VAL(X.ENTRY$) VALUE (2,J%) = VAL(Y.ENTRY$) J% = J% + 1 PRINT 1 WEND N% (1) = J% - 1 N% (2) = N% (1) PRINT CHR$(7) REM DISPLAY DATA + PROMPT TO EDIT PRINT CHR$(26): PRINT CHR$(30) FOR I% = 1 TO 2 PRINT "GROUP"; I% LINE% = 1 FOR J% = 56,50,70,50,5,3,58,45,73,57 DATA 5,6,1,56,56,54,60,6,2,52,53,64,50,6,3,55,40,56,62,6,3,54,42,65,50 DATA 6,3,59,45,63,50,5,7,2,62,50,65,50,7,1,60,58,64,53,7,3,65,54,69,54 DATA 7,3,59,50,67,44,7,3,63,51,67,55,4,8,2,62,46,46,37,8,1,45,34,48,34 DATA 8,3,63 (I%) / N% (I%) SD.TEMP = 0 FOR J% = 1 TO N% (I%) SD.TEMP = SD.TEMP + ((VALUE (I%,J%) - GROUP.MEAN (I%)) * \ (VALUE (I%,J%) - GROUP.MEAN (I%))) NEXT J% GROUP.SD (I%) = SQR(ABS(SD.TEMP / N% (I%))) B 1 TO N% (I%) IF LINE% <= 20 THEN\ PRINT J%; "="; VALUE (I%,J%):\ LINE% = LINE% + 1\ ELSE\ PRINT:\ INPUT "EDIT ANY OF THESE ? (Y/N)"; ENTRY$:\ IF UCASE$(ENTRY$) = "Y" THEN\ INPUT "WHICH ? (ENTER CASE #)"; CASE%:\ INPUT "NEW VALrf)"; DEVICE$ IF UCASE$(DEVICE$) = "P" THEN \ PRINT "LOAD PAPER. PRESS ANY KEY WHEN READY":\ WHILE NOT CONSTAT%: WEND:\ LPRINTER REM PRINT REPORT PRINT CHR$(26): PRINT CHR$(30) PRINT PRINT TAB(30); "PEARSON CORRELATION" PRINT PRINTUE ?"; VALUE (I%,CASE%)\ ELSE\ LINE% = 1:\ PRINT CHR$(26): PRINT CHR$(30):\ PRINT "GROUP"; I% NEXT J% PRINT INPUT "EDIT ANY OF THESE ? (Y/N)"; ENTRY$ IF UCASE$(ENTRY$) = "Y" THEN\ INPUT "WHICH ? (ENTER CASE #)"; CASE%:\ INPUT "NE "FILE : "; file.name$ PRINT: PRINT PRINT "r = "; R FOR I% = 1 TO 5 PRINT NEXT I% IF UCASE$(DEVICE$) = "P" THEN CONSOLE STOP KEYBOARD: REM DATA ENTRY VIA KEYBOARD PRINT CHR$(26): PRINT CHR$(30) PRINT PRINT TAB (35); "DATA ENTRY" PRINT: PRINW VALUE ?"; VALUE (I%,CASE%)\ ELSE\ LINE% = 1:\ PRINT CHR$(26): PRINT CHR$(30):\ NEXT I% REM PROMPT TO SAVE DATA TO DISK FILE INPUT "SAVE DATA TO DISK FILE ? (Y/N) "; SAVE$ IF UCASE$(SAVE$) = "Y" THEN GOSUB WRITE RETURN WRITE: REM SAVE DATT PRINT "YOU MAY ENTER UP TO 500 CASES FOR EACH OF THE TWO GROUPS" PRINT DIM VALUE (2,500) DIM GROUP.SUM (2) DIM GROUP.MEAN (2) DIM GROUP.SD (2) DIM N% (2) PRINT CHR$ (26): PRINT CHR$ (30) PRINT: PRINT PRINT "PRESS 'Q' TO QUIT OR 'E' TO EDIT LASTA TO DISK FILE PRINT PRINT "TYPE FILE NAME USING UP TO 8 LETTERS" PRINT "THEN TYPE A PERIOD" PRINT "THEN TYPE 'DAT'" PRINT PRINT "DO NOT USE ANY SPACES" PRINT PRINT "EXAMPLES: FDFCANV1.DAT" PRINT " TEST2.DAT" PRINT PRINT "NOTICE THATREM CORR.BAS REM PERFORMS CORRELATION ANALYSIS REM CLEAR SCREEN, DISPLAY TITLE + INSTRUCTIONS PRINT CHR$(26): PRINT CHR$(30) FOR I%=1 TO 8 PRINT NEXT I% PRINT TAB(36); "CORR.BAS" PRINT PRINT TAB(20); "PROGRAM TO PERFORM CORRELATION ANALYSIS" P ENTRY" PRINT "OTHERWISE ENTER OBSERVED VALUE" PRINT TRUE$ = "Y" J% = 1 WHILE UCASE$(TRUE$) = "Y" PRINT " CASE"; J% INPUT " X VALUE ="; X.ENTRY$ IF UCASE$(X.ENTRY$) = "Q" THEN \ TRUE$ = "N": GOTO 1 INPUT " Y VALUE  YOU CAN USE A NUMBER" PRINT "AS LONG AS IT'S NOT THE FIRST CHARACTER" PRINT INPUT "FILE NAME ? "; FILE.NAME$ CREATE FILE.NAME$ AS 1 FOR I% = 1 TO 2 PRINT #1; N% (I%) NEXT I% FOR I% = 1 TO 2 FOR J% = 1 TO N% (I%) PRINT #1; VALUE (I%,J%) NEXRINT PRINT TAB (28); "(C) 1985, RHO RESEARCH" FOR I%=1 TO 7 PRINT NEXT I% REM PROMPT FOR METHOD OF DATA ENTRY (CONSOLE OR FILE) PRINT "ENTER DATA FROM K)EYBOARD" INPUT " OR D)ISK "; SOURCE$ PRINT IF UCASE$(SOURCE$) = "K" THEN G="; Y.ENTRY$ IF UCASE$(X.ENTRY$) = "E" THEN\ PRINT:\ PRINT " CASE"; J%-1:\ INPUT "NEW X VALUE ="; X.ENTRY$:\ INPUT "NEW Y VALUE ="; Y.ENTRY$:\ VALUE (1,J%-1) = VAL(X.ENTRY$):\ VALUE (2,J%-1) = VAL(Y.ENTRY$):\ GOTO 1 VALUE (1,T J% NEXT I% CLOSE 1 RETURN DISK: REM DATA ENTRY VIA DISK FILE PRINT INPUT "FILE NAME ?"; FILE.NAME$ IF END #1 THEN 2.1 OPEN FILE.NAME$ AS 1 DIM GROUP.SUM (2) DIM GROUP.MEAN (2) DIM GROUP.SD (2) DIM N% (2) DIM VALUE (2,500) FOR I% = 1 TO 2OSUB KEYBOARD\ ELSE GOSUB DISK REM COMPUTE GROUP SUMS + MEANS + STD DEV DIM Z (N% (1), N% (2)) TOTAL.CASES% = 0 FOR I% = 1 TO 2 FOR J% = 1 TO N% (I%) GROUP.SUM (I%) = GROUP.SUM (I%) + VALUE (I%,J%) NEXT J% GROUP.MEAN (I%) = GROUP.SUMJ%) = VAL(X.ENTRY$) VALUE (2,J%) = VAL(Y.ENTRY$) J% = J% + 1 PRINT 1 WEND N% (I%) = J% - 1 PRINT CHR$(7) REM DISPLAY DATA + PROMPT TO EDIT PRINT CHR$(26): PRINT CHR$(30) FOR I% = 1 TO 2 PRINT "GROUP"; I% LINE% = 1 FOR J% = 1 TO N% (I%) I READ #1; N% (I%) NEXT I% FOR I% = 1 TO 2 FOR J% = 1 TO N% (I%) READ #1; VALUE (I%,J%) NEXT J% NEXT I% CLOSE 1 2.1 RETURN END  (I%) / N% (I%) SD.TEMP = 0 FOR J% = 1 TO N% (I%) SD.TEMP = SD.TEMP + ((VALUE (I%,J%) - GROUP.MEAN (I%)) * \ (VALUE (I%,J%) - GROUP.MEAN (I%))) NEXT J% GROUP.SD (I%) = SQR(ABS(SD.TEMP / N% (I%))) F LINE% <= 20 THEN\ PRINT J%; "="; VALUE (I%,J%):\ LINE% = LINE% + 1\ ELSE\ PRINT:\ INPUT "EDIT ANY OF THESE ? (Y/N)"; ENTRY$:\ IF UCASE$(ENTRY$) = "Y" THEN\ INPUT "WHICH ? (ENTER CASE #)"; CASE%:\ INPUT "NEW VALUE ?"; VALUE (I%l ) )<,<`,<, < TOTAL.CASES% = TOTAL.CASES% + N% (I%) NEXT I% REM COMPUTE Z SCORES + Z SCORE PRODUCTS BETWEEN GROUPS FOR I% = 1 TO 2 FOR J% = 1 TO N% (I%) Z (I%,J%) = (VALUE (I%,J%) - GROUP.MEAN (I%)) / GROUP.SD (I%) NEXT J% NEXT I% I% = 1 ZxZy = 0 FOR J,CASE%)\ ELSE\ LINE% = 1:\ PRINT CHR$(26): PRINT CHR$(30):\ PRINT "GROUP"; I% NEXT J% PRINT INPUT "EDIT ANY OF THESE ? (Y/N)"; ENTRY$ IF UCASE$(ENTRY$) = "Y" THEN\ INPUT "WHICH ? (ENTER CASE #)"; CASE%:\ INPUT "NEW VALUE ?"; VALU,)<,<`,53,48,43,2,55,44,62,59,43,3,55,40,67,55 DATA 43,3,70,49,65,53,43,3,54,46,52,52,3,44,1,63,42,67,47,44,2,61,49,72,52 DATA 44,3,52,33,50,56,3,45,1,45,42,59,54,45,2,44,40,61,51,45,3,52,34,44,48 DATA 5,46,1,53,51,49,54,46,2,67,50,65,62,46,3,58,44,71,46,46,3ATA 6,27,8,13,27,1,11,27,4,5,27,6,4,27,5,5,27,6,5 DATA 4,28,6,14,28,2,16,28,6,3,28,7,1 DATA 3,29,2,14,29,8,3,29,6,1 DATA 4,30,4,12,30,7,8,30,7,3,30,8,1 DATA 4,31,12,11,31,8,12,31,12,3,31,6,2 DATA 4,32,9,16,32,3,11,32,13,4,32,11,2 DATA 3,33,13,5,33,5,,<, <,aP>q03;1-4!<23>341,6,2,41,9,4 DATA 3,42,3,13,42,5,7,42,4,5 DATA 5,43,7,5,43,8,12,43,9,4,43,4,5,43,4,3 DATA 3,44,17,6,44,12,6,44,13,2 DATA 3,45,5,13,45,2,11,45,7,1 DATA 5,46,4,15,46,7,16,46,7,1,46,7,12,46,7,7 DATA 3,47,2,17,47,4,17,47,1,13 DATA 4,48,4,16,48,2,17,48,6<#;8&:7:>>F7C!>@LW>C?F7JM?DRSM?CRSH?TRSM?TRMS?TRSS?INIT?STOP?DIMA?PCRC?PCIS?PCRS?PCSS?PCRN?PCSN?PCTS?PCNL?PDIF?PDRF?PDRE?ICLN?ICSH?CRET?CLOS?IDIH?IDRH?DREF?LPRN?RABS?SCHR?RSQR?PPMT?CAOF DJEv4114 : @: 2 ;: |R N x V : E>: * N N >: , V V : @: 2 C ;: } ^  f N 2 ^ V 2 f  n x v l^ ^ f f |n Qn ; n@"K8?F7J@"K8DK;E?K:@2K8FK;G@2K5?<K8HK;K;561111114219142292310235263531123115383310339134212409442451145011552583563126176326346235(v ?: >: . S>: * ^ ;>: * ^ "7>: , f >: , f i ': @: 2 % ;: |c~ : &>: . b~ ~ f: @: 2 ;: }΋<  nI@2K5<<K7J3;E>?KK;L1;N!;>P?M?<F:.!C!?LW?NKK-73117213762711175148013891688387159611965992987985210713101012113101112161215612415124111231112191246j2 0_0%%Sv ~ < Cv 2~ f: U>: * S7>: , S>: . S: @: 2 ;: }0 @0 =2ys Y؎P<R?F7J@"K8?F7J@"K8SK;T?#K:@2$K8UK;K;V@20K8313581361313943144714217147331511015513155331631016711653317215175161778418481831118831886419413196111948r;sَЋQ>ut >*+II  +U F00-r3 t%< uFtNV@P@ Y^-Gá*+ É á à *á tPGùZD t  & Q ZRWK;X;;;;M.GÉWډtŹMOKK6;r64 t;r;u L7E;tOË@"K8?F7J@"K8^K;K;_@2jK8`@2K8aK;b51=c30À>YQ󥥥ËFFFF| ^ r  Ocw|/uÊ u -0*xS1[ ߥ0 t@yـr$s Q*HY t*?1e@2K5? gF a>: * S> >: , SF (0 : >: * J >: , C 50717507950100Z4Hi Jo Anne! Welcome to YOUR 'Family Score' program.4Please use with care because your husband loves you.TURN ON THE PRINTER NOW LOAD PAPER$Type in the name of your data file: FAMSCORE.CMDFAMILY SCOR'`707HWgtA1A@P\d5bEHyed"BA1PYTAE(('@ @@I@hfffff?hfffffA>533333>=ii<0$;9"sU':9"sU'9BT8!%8hxVg 7"hC60wYEG417Gv@`v'b1AAPX#C`QI"U&Àe(HBCTbDvRWaGv"C%T$a'ÙH23331353359338243471234843471347143511235353556354233631336215361032377537513382153851138563391183981391033E OUTPUTIFAM# # OF MEMB ͠96l%PPPPPPPPPvP3PPP3PP%Csrb"(HdA1A4Hi Jo Anne! Welcome to YOUR 'Family Score' program.4Please use with care because your husband loves you.TURN ON THE PRINTER NOW LOAD PAPER$Type in the name of your data file: FAMSCORE.CMDFAMILY SCORE OUTPUTIFAM#40131140511407144111154112541624194342313425742455437543812439443454343344176441264413234551345211457154641546a >S>S>>@ ;|R&.E>& # OF MEMB FAM ACCUL SCORE ACCUL DISCREPO=============================================================================== acculz.dat acculfam.datA `A`8ApvASREAL:ASbAA@P? CYdx$&71646714671246773472174741747113448416482174849485124494124941349594963350717507950100&>..@ ;}6>& 6. 臜F F%FF%F #F&)F,F/2F58F;F>AF'FFILFQF#TFWZF]`FcFfFilForFāFēBCqFVDQEqQ8C@4(D"!VD&AAAAAA17b5!$A@s#VBAAA AC$x0b`!BWACc9'C%b&2BQPP8CB(0P"C(F9@E3SxAIy&cyp411561111114219142FĥFīFľFԔڔF!F F!F! FF F #/25F8;F >F DF"HKFORFVZeF hFlp{F ~FŁŅňFŏF ŝF F ũF ŲŸżF ʔF29231023526353112311538331033913421240944245114501155258356312617632634623573117213762711175F ה۔F FF F F F F F #&F),F /2.5>FN66>>FFN>S>6>1480138916883871596119659929879852107131010121131011121612156124151241112311121912463135813613139431447t[׺tttػeYٻl(׻lð6ܻ ׺Cyܻٻ3y#ֻػֻ3׻ֺֻ׻ֻ׻ֻ׻ֻ׺ֻ׻xֻ׻lֻ1421714733151101551315533163101671165331721517516177841848183111883188641941319611194819393203142011220724214"F7< uAֻ >u (ֺֻ(@s ۻպ|ջ|Ëھ*Ȁ?trSGGFFWVQY^_[C[XP5152158211032173422416220152294221334238132321123942373424111243142474241202252162574326182664266162781327111N!Pu>r<Pn t u$0E$,@y ??vCSW^B>*[CS t8P$tȾ>r t /ŊȻ2 Ct$tТ 0ucȻ yq2Ȱ.sl t? u:s2*Ţ/ tx) t@E u y-ű/6>>>>@ ;|cV&>VV@ ;}΋ %NVNVsXtȾ>'uY5~ t/KK/xùFOv]q%uZDS u0E(%Ay-AxC6B*/F/F/F/F/F/F//s6, y  0 t 2 tàú u>t>t=SNSCC>u! t CS[J[ uÊr4 uYSN:ډS>S>S@ ;}@=2FF F F F F !$'F*-0F3F69F <?F BF$EF&HKF 't떋W@[ $tF*㿡'JuBBӋCCCCӃ t-%:u:u t2r ðÇ ^Q P.$YQ S[^m P.$CC^CC  Р t y tà ,usP XĞu tà ۹LTu` u *ruS[*u}:ußP tgXĞûȊsK$ 0Êyð0'<0sà uQX\imxF {~FĂĆF ĔFFĞĢF İFķĻF ɔFFFF$F&F ޔFF F   F F!$F '+.1F5;>FDFGJF MFSFVYF_FbeF hFk^CC P.$ -N2$2Ȫ%þ2$2ȪF$ Ȫà<s tyÿN-yȈ/þÊ'P'rC'$'Fá u' ĈG tà,t ,t,tð,PQRZYXà uð-Ã>tUP tBCC t+۬<#u"Ë+Ntx@@H2& Hఙ'y@#S[̡ u -Ë uK[XS$v+ y؀r *tyúډ[ [  S SYZRQ u2 u D s  t | u n  ux2 Ȋл u< t<"t<,t1 <"tsn<"t2 <,tW¶띋 w t2طCCSC ŋCBuZ C7à -%S QS< t[Y<,t$< t<2t/C܋ Qu0Y [û<< tH<"tC,@ A"C A2@C< u < uE C:t$< t*ACA@uD< t<,u  u%<>C u t t x uJCCXދأZZ[X tuXZ[P x t uuj+SQ8J+v)Z;sSRCC݋أZ)Z.[8[* C(0 *SCC݋ZSʺ X< t *Ë t# xSta*:s'_CXCt:rR  K[t<"u:uú@ eSRޞֈZ[ÊSQ ޞֈY[SRޞZ7[S St#RCCZYS/CCBI uZ[C7SxB tQRޞ[CS}[Sk[ڋ< t 7CCS@ޞRSCC-؉>Z7CYZ CBI u@ tȺ CBu< tG><S ÇڟJJ[Su [C7C? t /C;Yt-Q[RS؇[C7Z7C RS[ZCJ urSQCCU݋ZZSXHHÉYQPMKMtB98:t/ى<\uKFCS"[r;~+S)"XÉ;~Ë,\ u s@;sËC'?uàr"S0[M!Ȱ"r=!=!꠿M!s. tKKS [K u rڻ+ NN$WNNV$&SP8ۣZ]^[MII+R&ZKK +MMVu[YX uyQSWS~H[Sݻ T[S8໕ dעsnܹQ"~ܻ ߻ݻY[Y$'Sӻ\[C7à uȢC<0s<:s$ÊC7*ŠƇsyÊ uÊshûٞ ڞڻޞ֊r u1P r uEI/Z vrƹXEtËӱ% t u$=w tSCCЋ>tS}߻v`[[oߠ [u^yNL=SA"+[SFS3 R>[۹rH߻޿2߹J+ܻۻޠ|:u JJ$<wG9eJtr Jt<.u9KJt[tvÉ>>ʃwl / u\>u, t2뺀>9u<.u<*u>t'9?Bt[[>t FI: XZY[PSX [5r:։[^RS[:RFt#F[t?ޞևڋFBCu;F0)F+S>[(G ?G?HPxu XE ZSt^l͊LQZ t+G!G.f Sr Yr tXEt6 EOt[:~ XZY[PS [` r u:tO T*} ZtS+A+jXYZQ5s+S0YIXU rT2b߿6$7QR[4J FDuX>u t@>$ ÉwtùFN[Hߋ>+AËC9rRSSQڋSQr)x'SCCߣZYZYZ[[à LSSR t5 BBYغBBrٻcWڻB&ءJHJ3;Jxк2Ps BݻBغ*B׻*ð|TT׻T׺TT׺TTٻٻL׻Lð}dd׻d׺ddػd׻d׻dٻ\j׻\ð~txtEX?׻tI׺t܉[S+A ZuB+.>G!G0;> u ;tqH%&&s Ar<tV< tË tERCCڋC*ÊrrG}6*à$tt9Sڋ;_uZ[R[tr 2ðVt݇Lև;t#SR;rg[ t x؀'_St *[P;XùCA[TSދغ YKKá  uQKKXY[Q x*S;vSRCCދأZZ[ùSS݋Y[Q xS+v"SRE  0000 VARIABLES 0D28 UCOMON MM?DRMS?DRSS?CRSH?TRSM?TRMS?TRSS?TSMM?CSMM?IFIH?IFRH?INIT?STOP?DIMA?PCIS?PCRS?PCSS?PCIN?PCRN?PCSN?PCTS?PCNL?PDIE?PDRE?ICLN?ICIH?ICRH?ICSH?OPEN?CRET?CLOS?DREF?EDFR?IFED?LPRN?RABS?SCHRX[F^aF dhlpxŁŅŒŖF ťũF F FF ſF ȔΔҔڔF F F F )F ,F/F25F8;F >BFJR[_lpwF z}F F+F.FƊǠ?CONS?RSQR?UCAS?RVAL?PPMT?CAOF DJEvZ ANOV1.BAS"PROGRAM TO PERFORM A ONE WAY ANOVA(C) 1984, RHO RESEARCHENTER DATA FROM K)EYBOARD OR D)ISK K(SEND REPORT TO S(CREEN) OR TO P(RINTER)? PRESS:,,>@9| ,4N>>>@9},,<D,,LHT+ S OR P P%LOAD PAPER. PRESS ANY KEY WHEN READY ONE WA{Y ANOVAFILE : ?SOURCE df SS MS FM-----------------------------------------------------------------------------BETWEENWITHIN\Hd<TlD\tlt|u t!Q. F FF 'TOTAL"GROUP COUNT MEAN SD0------------------------------------------------TOTALP DATA ENTRY,YOU MAY ENTER UP TO 500 CASES FOR EACH GROUPHOW MANY GROUPS ?+PRESS 'Q' TO QUIT OR 'E' TO EDIT LAST ENTRYOTHERWISE ENTER OBSERVED*.2;>F ADF GJF PVZeF imxF {FăF F ĐFĖF ĜĠĤĩĬFijF F ļF”F Ȕ˔FєF הڔFF F FF F F  F F F VALUEGROUP YY OBSERVATION VALUE =QNE OBSERVATION NEW VALUE =GROUP=EDIT ANY OF THESE ? (Y/N)YWHICH ? (ENTER CASE #) NEW VALUE ?GROUPEDIT ANY OF THESE ? (Y/N)YWHICH ? (ENTER CASE #) NEW VALUE ? SAVE DATA T #F &),F/2F 58;F>AF DGJFMPF SFVYF\_F1dF gjF#nqF/tyF~FF-F*F,FF,FFFűFFźFFFF͔FӔFٔF,3pT<,O DISK FILE ? (Y/N) Y$TYPE FILE NAME USING UP TO 8 LETTERSTHEN TYPE A PERIODTHEN TYE @=~$ / @=~Idl>|\D,tdLa >>  >*@9}u? 3>S>>>>>>>@>;|Z> S> 4 @=~u#$RPPPPPPPPPP PPP*PPPO>"x>>> >>> ""@>;|s>*S>">aFPFF FFF FF!$F 'F-F03F 6F9F<?FEFHKF NFTFWZF ]FcFfiF lFoFruF{F~F FFčF FFFFğFĥFĮFĺFFǔ˔FFܔTANOV1Cbasic Compiler V2.0 5 31/83@CB865CODEIDATARCDATADSDATADATAUCOMONCGROUPDGROUP( <HHVH XHjZ B_?ARSM?ARSS?SRMM?SRMS?SRSS?MRMM?MRSS?DR F,FF,F#(F+/:F=@FCFIFLOFRFXF[^FdiFlpx{F~F1F ĉF#FēF/ęFĭF ĶF F ”F ˔Ԕ۔ߔF  F FF $,7F ;?GRF UFE F FFF F F #F)F-0F6F9SH[S->>* \ (VALUE (I%,J%) - GROUP.MEAN (I%))) NEXT J% GROUP.SD (I%) = SQR(ABS(SD.TEMP / N% (I%))) TOTAL.SUM = TOTAL.SUM + GROUP.SUM (I%) TOTAL.CASES% = TOTAL.CASES% + N% (I%) NEXT I% TOTAL.MEAN = TOTAL.SUM / TOTAL.CASES% REN (GROUP%) DIM GROUP.SD (GROUP%) DIM N% (GROUP%) FOR I% = 1 TO GROUP% PRINT CHR$ (26): PRINT CHR$ (30) PRINT: PRINT PRINT "PRESS 'Q' TO QUIT OR 'E' TO EDIT LAST ENTRY" PRINT "OTHERWISE ENTER OBSERVED VALUE" PRINT PRINT "GROUP "; I% PRINT S@u&>ߋˡHى@9|~;x5>>@ &u9)M COMPUTE SS FOR I% = 1 TO GROUP% TEMP.SS = TEMP.SS + ((GROUP.SUM (I%) * GROUP.SUM (I%))\ / FLOAT (N% (I%))) NEXT I% SS.BETW = TEMP.SS - ((TOTAL.SUM * TOTAL.SUM) / FLOAT (TOTAL.CASES%)) SS.WITHIN = SUM.ALL.SQUARED.SCORES - TEMP.SS SS.TOTAL = SUM. TRUE$ = "Y" J% = 1 WHILE UCASE$(TRUE$) = "Y" PRINT "OBSERVATION"; J% INPUT " VALUE ="; ENTRY$ IF UCASE$(ENTRY$) = "Q" THEN \ TRUE$ = "N": GOTO 1 IF UCASE$(ENTRY$) = "E" THEN\ PRINT:\ PRINT "OBSERVATION"; J%-1:\ INPUT "A>>)NgF,FF FFFF F$'F*F-03F9?BFFIFLOF1TF WZF#^aF/diFnqtF{~F/āFFĎFĔALL.SQUARED.SCORES - \ ((TOTAL.SUM * TOTAL.SUM) / FLOAT (TOTAL.CASES%)) REM COMPUTE df DF.BETW = FLOAT (GROUP%-1) DF.WITHIN = FLOAT (TOTAL.CASES% - GROUP%) DF.TOTAL = FLOAT (TOTAL.CASES% - 1) REM COMPUTE MS MS.BETW = SS.BETW/DF.BETW MS.WITHIN  NEW VALUE ="; ENTRY$:\ PRINT:\ VALUE (I%,J%-1) = VAL(ENTRY$):\ GOTO 1 VALUE (I%,J%) = VAL(ENTRY$) J% = J% + 1 PRINT 1 WEND N% (I%) = J% - 1 PRINT CHR$(7) NEXT I% REM DISPLAY DATA + PROMPT TO EDIT PRINT CHR$(26): PRINT CHR$FĝF1F ĨF#FIJĶľ͔F0FٔݔF0FF F/ F'2F,7F:>BMF,RFXF,]FcilFpsFyʼnŏFŕFŜŠŨF FŹŽFƔF1F єF#= SS.WITHIN/DF.WITHIN REM COMPUTE F F = MS.BETW/MS.WITHIN REM PROMPT FOR OUTPUT TO PRINTER PRINT PRINT "SEND REPORT TO S(CREEN) OR TO P(RINTER)?" INPUT " PRESS: S OR P "; DEVICE$ IF UCASE$(DEVICE$) = "P" THEN \ PRINT "LOAD PAP(30) FOR I% = 1 TO GROUP% PRINT "GROUP"; I% LINE% = 1 FOR J% = 1 TO N% (I%) IF LINE% <= 20 THEN\ PRINT J%; "="; VALUE (I%,J%):\ LINE% = LINE% + 1\ ELSE\ PRINT:\ INPUT "EDIT ANY OF THESE ? (Y/N)"; ENTRY$:\ IF UCASE$(ENTRY$) = "Y" THEF/ޔFF1F F!F1F  F"$*F,/F5F,:F=,W@>;|Upu9s>>@ER. PRESS ANY KEY WHEN READY":\ WHILE NOT CONSTAT%: WEND:\ LPRINTER REM PRINT REPORT PRINT CHR$(26): PRINT CHR$(30) PRINT PRINT TAB(33); "ONE WAY ANOVA" PRINT PRINT "FILE : "; file.name$ PRINT: PRINT PRINT\ "SOURCE df SS N\ INPUT "WHICH ? (ENTER CASE #)"; CASE%:\ INPUT "NEW VALUE ?"; VALUE (I%,CASE%)\ ELSE\ LINE% = 1:\ PRINT CHR$(26): PRINT CHR$(30):\ PRINT "GROUP"; I% NEXT J% PRINT INPUT "EDIT ANY OF THESE ? (Y/N)"; ENTRY$ IF UCASE$(ENTRY$REM ANOV1.BAS REM PERFORMS ONE WAY ANOVA REM CLEAR SCREEN, DISPLAY TITLE + INSTRUCTIONS PRINT CHR$(26): PRINT CHR$(30) FOR I%=1 TO 8 PRINT NEXT I% PRINT TAB(36); "ANOV1.BAS" PRINT PRINT TAB(23); "PROGRAM TO PERFORM A ONE WAY ANOVA" PRINT PRIN MS F" PRINT\ "-----------------------------------------------------------------------------" PRINT "BETWEEN"; TAB(16); DF.BETW; TAB(26); SS.BETW;\ TAB(44); MS.BETW; TAB(62); F PRINT PRINT "WITHIN"; TAB(16); DF.WITHIN; TA) = "Y" THEN\ INPUT "WHICH ? (ENTER CASE #)"; CASE%:\ INPUT "NEW VALUE ?"; VALUE (I%,CASE%)\ ELSE\ LINE% = 1:\ PRINT CHR$(26): PRINT CHR$(30):\ NEXT I% REM PROMPT TO SAVE DATA TO DISK FILE INPUT "SAVE DATA TO DISK FILE ? (Y/N) "; SAVE$ IF UT TAB (28); "(C) 1984, RHO RESEARCH" FOR I%=1 TO 7 PRINT NEXT I% REM PROMPT FOR METHOD OF DATA ENTRY (CONSOLE OR FILE) PRINT "ENTER DATA FROM K)EYBOARD" INPUT " OR D)ISK "; SOURCE$ PRINT IF UCASE$(SOURCE$) = "K" THEN GOSUB KEYBOB(26); SS.WITHIN; TAB(44); MS.WITHIN PRINT PRINT "TOTAL"; TAB(16); DF.TOTAL; TAB(26); SS.TOTAL PRINT: PRINT: PRINT PRINT "GROUP COUNT MEAN SD" PRINT "------------------------------------------------" FOR I% = 1 TO GROUP% PRINT TAB(CASE$(SAVE$) = "Y" THEN GOSUB WRITE RETURN WRITE: REM SAVE DATA TO DISK FILE PRINT PRINT "TYPE FILE NAME USING UP TO 8 LETTERS" PRINT "THEN TYPE A PERIOD" PRINT "THEN TYPE 'DAT'" PRINT PRINT "DO NOT USE ANY SPACES" PRINT PRINT "EXAMPLES: FDFARD\ ELSE GOSUB DISK REM COMPUTE GROUP + TOTAL SUMS + SUM OF SQUARES (ALL SCORES) TOTAL.CASES% = 0 SUM.ALL.SQUARED.SCORES = 0 TEMP.SS = 0 FOR I% = 1 TO GROUP% FOR J% = 1 TO N% (I%) GROUP.SUM (I%) = GROUP.SUM (I%) + VALUE (I%,J%) SUM.ALL.SQU2); I%; TAB(10); N%(I%); TAB(16); GROUP.MEAN (I%); TAB(32); GROUP.SD (I%) NEXT I% PRINT TAB(2); "TOTAL"; TAB(10); TOTAL.CASES%; TAB(16); TOTAL.MEAN FOR I% = 1 TO 5 PRINT NEXT I% IF UCASE$(DEVICE$) = "P" THEN CONSOLE STOP KEYBOARD: REM DATA ENTRF CANV1.DAT" PRINT " TEST2.DAT" PRINT PRINT "NOTICE THAT YOU CAN USE A NUMBER" PRINT "AS LONG AS IT'S NOT THE FIRST CHARACTER" PRINT INPUT "FILE NAME ? "; FILE.NAME$ CREATE FILE.NAME$ AS 1 PRINT #1; GROUP% FOR I% = 1 TO GROUP% PRINT #1; F&F2FhPE 'DAT'DO NOT USE ANY SPACESEXAMPLES: FDFCANV1.DAT TEST2.DAT NOTICE THAT YOU CAN USE A NUMBER'AS LONG AS IT'S NOT THE FIRST CHARACTER FILE NAME ? FILE NAME ?^&F),F11F 47F#;>F/AFFKݻ ػ<ڻ 3  Lٻ ء @ Dsߺ ٻ ػ Tٻ\ػ ٻdػ ٺ lػ ٻtrzڻ I( Yغ rٻ|cWڻ &ء H 3; xкz Ps ݻ غr ׻r ð|  ׻ ׺N% (I%) NEXT I% FOR I% = 1 TO GROUP% FOR J% = 1 TO N% (I%) PRINT #1; VALUE (I%,J%) NEXT J% NEXT I% CLOSE 1 RETURN DISK: REM DATA ENTRY VIA DISK FILE PRINT INPUT "FILE NAME ?"; FILE.NAME$ IF END #1 THEN 2.1 OPEN FILE.NAME$ AS 1 READ #1;O DISK FILE ? (Y/N) Y$TYPE FILE NAME USING UP TO 8 LETTERSTHEN TYPE A PERIODTHEN TYE @=~$ / @=~Id ׺ ٻٻ ׻ ð}  ׻ ׺ ػ ׻ ׻ ٻ j׻ ð~ x EX?׻ I׺ [׺ tػeYٻ (׻ ð 6 ܻ ׺ Cy ܻ ٻ 3 y#  GROUP% DIM GROUP.SUM (GROUP%) DIM GROUP.MEAN (GROUP%) DIM GROUP.SD (GROUP%) DIM N% (GROUP%) DIM VALUE (GROUP%,500) FOR I% = 1 TO GROUP% READ #1; N% (I%) NEXT I% FOR I% = 1 TO GROUP% FOR J% = 1 TO N% (I%) READ #1; dummy1, VALUE (I%,J%), dummu? 3>S>>>>>>>@>;|Z> S>,, ~.Ns.C, ,@,=~$; ,, ,@,=~y2 NEXT J% NEXT I% CLOSE 1 2.1 RETURN END )Z.[8  [*  /0*SCC݋ZSʺ  X< t*Ë t# xSta*:s'_CXSQCCU݋ZZSXHHÉ Y  QPMK  MtB 9 8 :t/ى <\uKF  CSTx..D/a-u? 302 : ,D>,HS>,HB >,J>D' Y > >,J>D >,J>D ?2 2 D@D>,F;D|9|yu8NpP3PP>@9}޸L+>>"[r ; ~+S ) "XÉ    ; ~Ë  ,\ u s  @; sË    C' ?u,LS>,H >,F N Dx>,J>DX >,LE >,J>D' >,L Z e N8 N D@D>,F;D|s>,VS>,F5N@>;}á@9}P P3PPPPPPPP PPP*PPPgFF &F),F11F 47F#;>F/AFFKӋMu I$[. Ë t CCˆ CCËst t  yÉ ;r ۋ [XS<u FF ȸ+ NN$WNNV$& SP8ۣ Z]^[MII+R& ZKK +MMV u  [YX / >,H X X >,F0,@,9B| 0X `u ,N>,HJ >,H7 >,F] :L :& ,@,9B}XXM 0h1 :4 h 2: p XX 0: 2NF1SF VYF!\_F1dF hltF"ćF,FF,FĠĤĨİF1F ĻF#”F/ȔFFٔFߔFFFFFFFF F FFF1F #F#&6F%I tJ S}߻v`[ x BH" 0+B 0H h  p ~  o By, +N)uQQ& th*8]*-!9x  cgks{F'ŇŋœF FŤŨŬŰŸŽŔF&FԔF1F ߔF#F)F$F' FF( F#/2F5ADFG&2 PPPP>@9}۸[oߠI [u^@ yNL=SA"+[SFZ S3R J R>[۹rHb ߻A ޿J 2߹J+b ܻZ ۻJ ޠ@ ,A,ݻ~}ڻ*~ۻJ q[ޏ> p> %> > &> t&Rj W[S/[o[-ZRSw[h r, c> zz) <ps -,d DD1\L {x= 8N\H,aO, B>,F->,L >,VX7>>@>;}@9}#FF'F'+/6F9F(<@DLT\F'_bFehFlpxFF(ĉčđĕĝĢĦĪyZӋCC\t6RS[DSD@D2(=O&u&>,FߋˡDHى&,@,9B|&o&d,~6, D;x5D >,J>D@m`PPFF+,O''|yj2,UZ:w'D@`D3M (\&u _6'(b&uMeDHr1>,JSDH[S->,NOTICE THAT YOU CAN USE A NUMBER'AS LONG AS IT'S NOT THE FIRST CHARACTER FILE NAME ? FILE NAME ?ASbAA@P? CYdx$&BCqFVDQEqQ8C@4(D"!VD&AAAAAA17b5!$A@s#VBAAA'}%u9KoX:^>,J> )%%b,5D@D>,F;D|e&$u9 >,J>}%% ֻػֻ 3 ׻ ֺ ֻ ׻ֻ ׻ֻ ׻ ֻ ׺ ֻ ׻xֻ ׻ lֻ ׻ `hػ 7ց> u Aֻ > u (ֻ ֺ $@s ۻ պ ջ Ëھ*Ȁ? AC$x0b`!BWACc9'C%b&2BQPP8CB(0P"C(F9@E3SxAIy&cyp,@,9B|yCg6&:S$un=cwYPAxr2yP3PPEB,>,F,@,9B}޸,LD+c>,J>DtrSGGFFWVQY^_[C[XP9D@D>,F;D}á,@,9B}s'CP P3PPB3BPPPH&BPPPL&BPPPV&BPPPF&BPPPPJ&,l>,F,@,9B}۸8 ,, ERROR $ AT IP $@PPimproper input - reenter $CdeW'`707HWgtA1A@P\d5bEHyed"BA1PYTAE(('@ @@I@hfffff?hfffffA>53333,XD77rl>,J>DQhD@D>,F;D},@,9B}iY؎r;sَЋQ>ut >*+II +  F00-r3 t%< uFt3>=ii<0$;9"sU':9"sU'9BT8!%8hxVg 7"hC60wYEG417Gv@`v'b1AAPX#C`QI"U&Àe(HBCTbDvRWaGv"C%T$a'ÙH%Csrb"(HdA1A ANOV1.BAS"PROGRAM TO PERFORM A ONE WAY ANOVA(C) 1984, RHO RESEARCHENTERNV@P@ Y^-Gá*+Éáà*á tPGùZD t & Q ZRZ' XHHHPX HpyPX$'@'UÉ+ˉOrNˁsF DATA FROM K)EYBOARD OR D)ISK K(SEND REPORT TO S(CREEN) OR TO P(RINTER)? PRESS: S OR P P%LOAD PAPER. PRESS ANY KEY WHEN READY ONE WAY ANOVAFILE : ?SOURCE df SS MS ׻J SݻvٻR [ݻvtٻR `ۘPQA ݋QScٻA d[YR ?tRڻJ Eٻð{z z ޻4ۻ ػ s t(W+rw>GÉWډtŹMOKK6;r64 t;r;u L7E;tOËM+Wr;s‹ uÀ>0À>YQ󥥥ËFFFF| ^rOFM-----------------------------------------------------------------------------BETWEENWITHINTOTAL"GROUP COUNT MEAN SD0------------------------------------------------TOTALP DATA ENTRY,YOU MAY ENTER UP TO 500 CASES FOR EACH GROݻ ػ<ڻ 3  Lٻ ء @ Dsߺ ٻ ػ Tٻ\ػ ٻdػ ٺ lػ ٻtrzڻ I( Yغ rٻ|cWڻ &ء H 3; xкz Ps ݻ غr ׻r ð|  ׻ ׺cw|  /uÊ u - 0 *xS 1[ ߥ 0 t@yـr  $  s Q*HY t*Qـ Y* 2 x s)   m r /FO**/G/G $ >UPHOW MANY GROUPS ?+PRESS 'Q' TO QUIT OR 'E' TO EDIT LAST ENTRYOTHERWISE ENTER OBSERVED VALUEGROUP YY OBSERVATION VALUE =QNE OBSERVATION NEW VALUE =GROUP=EDIT ANY OF THESE ? (Y/N)YWHICH ? (ENTER CASE #) NEW VALUE ? ׺ ٻٻ ׻ ð}  ׻ ׺ ػ ׻ ׻ ٻ j׻ ð~ x EX?׻ I׺ [׺ tػeYٻ (׻ ð 6 ܻ ׺ Cy ܻ ٻ 3 y# G  Pu> r <Pn  t u$0E$,@y ??vCS  W ^B > *[CS t8P$tȾ > sXtȾ > '  uY5 ~  t/KK/ xùFOv]q  Ȱ.sl  t? u :s2*Ţ / t x)  t@E  u y-ű/, y  0 t 2   tà  ú u> t> t=SNSCC> u! t CSڻ? ޞ֊r u1P r uEI/Z vrƹXEtËӱ% t u$=w tSCCЋ> a c >_ ʃwl _ / u\> u%uZDS u0E(%Ay-Ax  C  6 B*/F/F/F/F/F/F//s6 '  t 떋 W@[ $ t F * 'JuBB[J[ uÊr4 uY SN: ډ $ u<.u<*u> t' ?B t[[>^ t FIꢂ XZY[PSX [^ ^ 5r  tO tO > t +G!G.f Sr Yr tXE黼 6 EOt[ࢂ ~ XZY[PS [^ `^ ӋCCCCӃ t-%:u:u t2r ðÇ ^P.$YQ S[^P.$CC^CC ^CC P.$ -N2$2Ȫ%þ 2$2ȪF$ Ȫà <Tu` u*ruS[*u} :ußPtgXĞ û  ȊsK $ 0Êyð0'<0sà uà tà ,t ,t,tð,PQR ZYXà uð-Ã> tUP tB CC "   t+۬<#u"r u :tO T*} ZtS+A+jXYZQ5s+S܉ [S+A ZuB+.>  G!G0  > u  tq  H %  uO$uܠ yۋYQ5CCCC0 y8YQ󥥥~tvËfË+Ntx@@H 2&   Hఙ'y @ # S[̡u -  Ë렋 KKڻ +rSG$Y G}rqr tñS t/CC QS[YCI u [MU O )s  t | u nO ux2T . Ȋл u< t<"t<,t1& &s A r <tV< tË tERCC  ڋ C*Êr rG}6 *à $t- %SQS< t[Y<,t$< t<2t/C܋ Qu0Y[û < tH<"t ,   uK[XS$v+ y؀r *tyúډ [[SS YZRQ   u2  u Y mNN$ <#u~<$u|<$ui$$ <*u d<*tT*<.uU<#.u2 g<-u"?<#t<.-u° 2 T <"tsn<"t2T <,tW¶띋U w t2طCCSCŋCBuZU C7àCt:rRT K[t<"uO :uú@ eSR/ ޞֈZ[ÊSQޞֈY[SR? ޞZ7"  2 < u < uE :t$< t* C uD< t<,u  u% > u t t x uJú t 7CCS ޞRSCC-؉ Z7CYZ CBI u tȺCBu tH <\u th   <#t<,u  <.u <#u <^u <-u  % u.  7Cu tȢ  t t uc,@t s2  t  [S St#RCCZYS/CCBI uZ[C7SxB tQRޞ[CS}[Sk[ڋˋ*rDO[[/CCSޞ։[u< rP|X*d*Ë*Ê[Z*Z_YQG  S ÇڟJJ[Su [C7C? t /C;Yt-Q[RS ؇[C7Z7C RS[ZCJ ur S"?[C7Ë uEN< u; r$<RWuP ڋ *ÊЊNJ tű<r,Ŋ *Ţ yL%W2   % &% ,@*ň ڻ ڰuUt    u Ȋ*<s0 Kusr  t u*  uVtQ tB <s8-6 Ȋ<*t<$SCCӀ t[[ Y X 2CuK2W Z V< t<+t <-uZ B<0t<.u&W sТW <uf <0uޠZ ȢZ à r"S0[( Ȱ"r(( (s. tKKS [K u r ڻ0ڇڹ!ًCB K $=  ùFEu2S 2C7 ¹UCuډ Tu` u*ruS[*u} :ußPtgXĞ û  ȊsK $ 0Êyð0'<0sà uà tà ,t ,t,tð,PQR ZYXà uð-Ã> tUP tB CC "   t+۬<#u"z (I%) - mean.nc.prz) * (prz (I%) - mean.nc.prz)) NEXT I% FOR I% = 1 to 183 s.afz = s.afz + ((afz (I%) - mean.afz) * (afz (I%) - mean.afz)) s.prz = s.prz + ((prz (I%) - mean.prz) * (prz (I%) - mean.prz)) NEXT I% s.c.afz = SQR(ABS(s.c.afz)) s.nc.[ 2C  SڊC? [t C *Ês S2C7 ¹UDuqډ -2qڻޞ։ [^RS[:RFt#  [t? ޞևڋ BCu; [( G ?G? P xu XEZSt^l͊LQZ u t @ > T <"tsn<"t2T <,tW¶띋U w t2طCCSCŋCBuZU C7àCt:rRT K[t<"uO :uú@ eSR/ ޞֈZ[ÊSQޞֈY[SR? ޞZ7CLINICAL"; TAB(15); mean.c.afz; TAB(30); s.c.afz; TAB(45); mean.c.prz; TAB(60); s.c.prz PRINT PRINT "NON-CLIN"; TAB(15); mean.nc.afz; TAB(30); s.nc.afz; TAB(45); mean.nc.prz; TAB(60); s.nc.prz PRINT PRINT "TOTAL"; TAB(15); mean.afz; TAB(30); s.afz; TAB$ É wtùFN[Hߋ > +AË C9 r RSSQڋSQr)x'SCCߣ ZYZYZ[[ à LSSR t5 t9Sڋ;_uZ[R[tr 2ðVt݇Lև;t#SR;rg[ t x؀'_St [S St#RCCZYS/CCBI uZ[C7SxB tQRޞ[CS}[Sk[ڋˋ*rDO[[/CCSޞ։[u< rP|X*d*Ë*Ê[Z*Z_YQ(45); mean.prz; TAB(60); s.prz PRINT PRINT CONSOLE 1 STOP END r S"?[C7Ë uEN< u; r$<RWuP ڋ *ÊЊNJ*[P;XùCA[TSދغ YKKá  uQKKXY[Q x*S;vSRCCދأ ZZ[ ùSS݋Y[Q xS+v"SRCCXދأ ZZ[ X tuXZ[P x t uuj+SQ8J+v)Z;sSRCC݋أ ZREM zstuff.bas DIM afz (183) DIM prz (183) REM open file to read raw scores IF END #1 THEN 1 OPEN "ACCULZ.DAT" AS 1 REM read + sum scores FOR I% = 1 TO 183 READ #1, fam.numb%, memb.numb%, afz (I%), prz (I%) IF fam.numb% <= 25 then\ P  u"HXĞuXr "  ùWDu Ȋr< ußP t ùREu_K s 6  $à r"S0[( Ȱ"r(( (s. tKKS [K u r ڻ0ڇڹ!ًCB K $=  ùFEu2S 2C7 ¹UCuډ   Ȱ.sl  t? u :s2*Ţ / t x)  t@E  u y-ű/, y  0 t 2   tà  ú u> t> t=SNSCC> u! t CSompute mean mean.c.afz = c.sum.afz / 93 mean.nc.afz = nc.sum.afz / 90 mean.c.prz = c.sum.prz / 93 mean.nc.prz = nc.sum.prz / 90 mean.afz = sum.afz / 183 mean.prz = sum.prz / 183 REM compute std dev FOR I% = 1 TO 93 s.c.afz = s.c.afz + ((afz (I[ 2C  SڊC? [t C *Ês S2C7 ¹UDuqډ -2qڻޞ։ [^RS[:RFt#  [t? ޞևڋ BCu;[J[ uÊr4 uY SN: ډ $  [( G ?G? P xu XEZSt^l͊LQZ u t @ > f Af PRf PRf" PRINT " MEAN SD MEAN SD" PRINT "=========================================================================================" PRINT PRINT = SS.WITHIN/DF.WITHIN REM COMPUTE F F = MS.BETW/MS.WITHIN REM PROMPT FOR OUTPUT TO PRINTER PRINT PRINT "SEND REPORT TO S(CREEN) OR TO P(RINTER)?" INPUT " PRESS: S OR P "; DEVICE$ IF UCASE$(DEVICE$) = "P" THEN \ PRINT "LOAD PAP$ É wtùFN[Hߋ > +AË C9 r RSSQڋSQr)x'SCCߣ ZYZYZ[[ à LSSR t5 t9Sڋ;_uZ[R[tr 2ðVt݇Lև;t#SR;rg[ t x؀'_St "CLINICAL"; TAB(15); mean.c.afz; TAB(30); s.c.afz; TAB(45); mean.c.prz; TAB(60); s.c.prz PRINT PRINT "NON-CLIN"; TAB(15); mean.nc.afz; TAB(30); s.nc.afz; TAB(45); mean.nc.prz; TAB(60); s.nc.prz PRINT PRINT "TOTAL"; TAB(15); mean.afz; TAB(30); s.afz; TAER. PRESS ANY KEY WHEN READY":\ WHILE NOT CONSTAT%: WEND:\ LPRINTER REM PRINT REPORT PRINT CHR$(26): PRINT CHR$(30) PRINT PRINT TAB(33); "ONE WAY ANOVA" PRINT PRINT "FILE : "; file.name$ PRINT: PRINT PRINT\ "SOURCE df SS *[P;XùCA[TSދغ YKKá  uQKKXY[Q x*S;vSRCCދأ ZZ[ ùSS݋Y[Q xS+v"SRCCXދأ ZZ[ X tuXZ[P x t uuj+SQ8J+v)Z;sSRCC݋أ ZREM ANOV1.BAS REM PERFORMS ONE WAY ANOVA REM CLEAR SCREEN, DISPLAY TITLE + INSTRUCTIONS PRINT CHR$(26): PRINT CHR$(30) FOR I%=1 TO 8 PRINT NEXT I% PRINT TAB(36); "ANOV1.BAS" PRINT PRINT TAB(23); "PROGRAM TO PERFORM A ONE WAY ANOVA" PRINT PRIN MS F" PRINT\ "-----------------------------------------------------------------------------" PRINT "BETWEEN"; TAB(16); DF.BETW; TAB(26); SS.BETW;\ TAB(44); MS.BETW; TAB(62); F PRINT PRINT "WITHIN"; TAB(16); DF.WITHIN; TAREM zstuff.bas DIM afz (183) DIM prz (183) REM open file to read raw scores IF END #1 THEN 1 OPEN "ACCULZ.DAT" AS 1 REM read + sum scores FOR I% = 1 TO 183 READ #1; fam.numb%, memb.numb%, afz (I%), prz (I%) IF fam.numb% <= 25 then\ T TAB (28); "(C) 1984, RHO RESEARCH" FOR I%=1 TO 7 PRINT NEXT I% REM PROMPT FOR METHOD OF DATA ENTRY (CONSOLE OR FILE) PRINT "ENTER DATA FROM K)EYBOARD" INPUT " OR D)ISK "; SOURCE$ PRINT IF UCASE$(SOURCE$) = "K" THEN GOSUB KEYBOB(26); SS.WITHIN; TAB(44); MS.WITHIN PRINT PRINT "TOTAL"; TAB(16); DF.TOTAL; TAB(26); SS.TOTAL PRINT: PRINT: PRINT PRINT "GROUP COUNT MEAN SD" PRINT "------------------------------------------------" FOR I% = 1 TO GROUP% PRINT TAB(c.sum.afz = c.sum.afz + afz (I%):\ c.sum.prz = c.sum.prz + prz (I%):\ ELSE\ nc.sum.afz = nc.sum.afz + afz (I%):\ nc.sum.prz = nc.sum.prz + prz (I%) sum.afz = sum.afz + afz (I%) sum.prz = sum.prz + prz (I%) NEXT I% CLOSE 1 REM cARD\ ELSE GOSUB DISK REM COMPUTE GROUP + TOTAL SUMS + SUM OF SQUARES (ALL SCORES) TOTAL.CASES% = 0 SUM.ALL.SQUARED.SCORES = 0 TEMP.SS = 0 FOR I% = 1 TO GROUP% FOR J% = 1 TO N% (I%) GROUP.SUM (I%) = GROUP.SUM (I%) + VALUE (I%,J%) SUM.ALL.SQU2); I%; TAB(10); N%(I%); TAB(16); GROUP.MEAN (I%); TAB(32); GROUP.SD (I%) NEXT I% PRINT TAB(2); "TOTAL"; TAB(10); TOTAL.CASES%; TAB(16); TOTAL.MEAN FOR I% = 1 TO 5 PRINT NEXT I% IF UCASE$(DEVICE$) = "P" THEN CONSOLE STOP KEYBOARD: REM DATA ENTRompute mean mean.c.afz = c.sum.afz / 93 mean.nc.afz = nc.sum.afz / 90 mean.c.prz = c.sum.prz / 93 mean.nc.prz = nc.sum.prz / 90 mean.afz = sum.afz / 183 mean.prz = sum.prz / 183 REM compute std dev FOR I% = 1 TO 93 s.c.afz = s.c.afz + ((afz (IARED.SCORES = SUM.ALL.SQUARED.SCORES +\ (VALUE (I%,J%) * VALUE (I%,J%)) NEXT J% GROUP.MEAN (I%) = GROUP.SUM (I%) / N% (I%) SD.TEMP = 0 FOR J% = 1 TO N% (I%) SD.TEMP = SD.TEMP + ((VALUE (I%,J%) - GROUP.MEAN (I%)) Y VIA KEYBOARD PRINT CHR$(26): PRINT CHR$(30) PRINT PRINT TAB (35); "DATA ENTRY" PRINT: PRINT PRINT "YOU MAY ENTER UP TO 500 CASES FOR EACH GROUP" PRINT INPUT "HOW MANY GROUPS ?"; GROUP% DIM VALUE (GROUP%,500) DIM GROUP.SUM (GROUP%) DIM GROUP.MEA%) - mean.c.afz) * (afz (I%) - mean.c.afz)) s.c.prz = s.c.prz + ((prz (I%) - mean.c.prz) * (prz (I%) - mean.c.prz)) NEXT I% FOR I% = 94 TO 183 s.nc.afz = s.nc.afz + ((afz (I%) - mean.nc.afz) * (afz (I%) - mean.nc.afz)) s.nc.prz = s.nc.prz + ((pr* \ (VALUE (I%,J%) - GROUP.MEAN (I%))) NEXT J% GROUP.SD (I%) = SQR(ABS(SD.TEMP / N% (I%))) TOTAL.SUM = TOTAL.SUM + GROUP.SUM (I%) TOTAL.CASES% = TOTAL.CASES% + N% (I%) NEXT I% TOTAL.MEAN = TOTAL.SUM / TOTAL.CASES% REN (GROUP%) DIM GROUP.SD (GROUP%) DIM N% (GROUP%) FOR I% = 1 TO GROUP% PRINT CHR$ (26): PRINT CHR$ (30) PRINT: PRINT PRINT "PRESS 'Q' TO QUIT OR 'E' TO EDIT LAST ENTRY" PRINT "OTHERWISE ENTER OBSERVED VALUE" PRINT PRINT "GROUP "; I% PRINT z (I%) - mean.nc.prz) * (prz (I%) - mean.nc.prz)) NEXT I% FOR I% = 1 to 183 s.afz = s.afz + ((afz (I%) - mean.afz) * (afz (I%) - mean.afz)) s.prz = s.prz + ((prz (I%) - mean.prz) * (prz (I%) - mean.prz)) NEXT I% s.c.afz = SQR(ABS(s.c.afz)) s.nc.M COMPUTE SS FOR I% = 1 TO GROUP% TEMP.SS = TEMP.SS + ((GROUP.SUM (I%) * GROUP.SUM (I%))\ / FLOAT (N% (I%))) NEXT I% SS.BETW = TEMP.SS - ((TOTAL.SUM * TOTAL.SUM) / FLOAT (TOTAL.CASES%)) SS.WITHIN = SUM.ALL.SQUARED.SCORES - TEMP.SS SS.TOTAL = SUM.H  TRUE$ = "Y" J% = 1 WHILE UCASE$(TRUE$) = "Y" PRINT "OBSERVATION"; J% INPUT " VALUE ="; ENTRY$ IF UCASE$(ENTRY$) = "Q" THEN \ TRUE$ = "N": GOTO 1 IF UCASE$(ENTRY$) = "E" THEN\ PRINT:\ PRINT "OBSERVATION"; J%-1:\ INPUT "%) NEXT J% NEXT I% CLOSE 1 2.1 RETURN END ZSTUFFCbasic Compiler V2.0 5 31/83@CB865CODEIDATARCDATADSDATADATAUCOMONCGROUPDGROUP( HH6טH XHrZ B?ARSM?SRSM?MRSS?DRMS?CRSH?TRSM?TRMS?IF NEW VALUE ="; ENTRY$:\ PRINT:\ VALUE (I%,J%-1) = VAL(ENTRY$):\ GOTO 1 VALUE (I%,J%) = VAL(ENTRY$) J% = J% + 1 PRINT 1 WEND N% (I%) = J% - 1 PRINT CHR$(7) NEXT I% REM DISPLAY DATA + PROMPT TO EDIT PRINT CHR$(26): PRINT CHR$B(45); mean.prz; TAB(60); s.prz PRINT PRINT CONSOLE 1 STOP END nD8E(;IFG 2< )<  < r  s)<f)f!)!<+f&)&;**)*< +,f0)0;44)4<IH?IFRH?INIT?STOP?DIMA?PCRS?PCSS?PCRN?PCSN?PCTS?PCNL?OPEN?CLOS?DREF?EDFR?IFED?LPRN?RABS?RSQR?CAOF! DJEvZ ACCULZ.DATFAMILY ACCULTURATION SCORESJ Af Af (30) FOR I% = 1 TO GROUP% PRINT "GROUP"; I% LINE% = 1 FOR J% = 1 TO N% (I%) IF LINE% <= 20 THEN\ PRINT J%; "="; VALUE (I%,J%):\ LINE% = LINE% + 1\ ELSE\ PRINT:\ INPUT "EDIT ANY OF THESE ? (Y/N)"; ENTRY$:\ IF UCASE$(ENTRY$) = "Y" THEg733@(>WF 6l)<~il=i%l%%)%<))));*,),<~-..j.n.)>)>"  PRf PRfI MEAN SD MEAN SDY==============================================================XPPPPPPPP3PPN\ INPUT "WHICH ? (ENTER CASE #)"; CASE%:\ INPUT "NEW VALUE ?"; VALUE (I%,CASE%)\ ELSE\ LINE% = 1:\ PRINT CHR$(26): PRINT CHR$(30):\ PRINT "GROUP"; I% NEXT J% PRINT INPUT "EDIT ANY OF THESE ? (Y/N)"; ENTRY$ IF UCASE$(ENTRY$>>;x@> >>>>"">**>22) = "Y" THEN\ INPUT "WHICH ? (ENTER CASE #)"; CASE%:\ INPUT "NEW VALUE ?"; VALUE (I%,CASE%)\ ELSE\ LINE% = 1:\ PRINT CHR$(26): PRINT CHR$(30):\ NEXT I% REM PROMPT TO SAVE DATA TO DISK FILE INPUT "SAVE DATA TO DISK FILE ? (Y/N) "; SAVE$ IF U@=] :ZB]JZ"R*Z2b>:>:jj>J>JCASE$(SAVE$) = "Y" THEN GOSUB WRITE RETURN WRITE: REM SAVE DATA TO DISK FILE PRINT PRINT "TYPE FILE NAME USING UP TO 8 LETTERS" PRINT "THEN TYPE A PERIOD" PRINT "THEN TYPE 'DAT'" PRINT PRINT "DO NOT USE ANY SPACES" PRINT PRINT "EXAMPLES: FDFƜF F (+F 25F8HFNWFZ]F`cFgkvF z~F FēęĝFīFıFĸļFʔFДFٔݔFFFF  FF&F),F/2F6:EFCANV1.DAT" PRINT " TEST2.DAT" PRINT PRINT "NOTICE THAT YOU CAN USE A NUMBER" PRINT "AS LONG AS IT'S NOT THE FIRST CHARACTER" PRINT INPUT "FILE NAME ? "; FILE.NAME$ CREATE FILE.NAME$ AS 1 PRINT #1; GROUP% FOR I% = 1 TO GROUP% PRINT #1; HKFNQFTXfFlForFuxF~FŁFŇFFœFřFFťFūFFŷFŽFFɔFϔFؔߔFFF  FFFF $/F25F9=HFKNFQFN% (I%) NEXT I% FOR I% = 1 TO GROUP% FOR J% = 1 TO N% (I%) PRINT #1; VALUE (I%,J%) NEXT J% NEXT I% CLOSE 1 RETURN DISK: REM DATA ENTRY VIA DISK FILE PRINT INPUT "FILE NAME ?"; FILE.NAME$ IF END #1 THEN 2.1 OPEN FILE.NAME$ AS 1 READ #1;iTrr@=]o^>B>Bzz>R>R@=o>Z>Z GROUP% DIM GROUP.SUM (GROUP%) DIM GROUP.MEAN (GROUP%) DIM GROUP.SD (GROUP%) DIM N% (GROUP%) DIM VALUE (GROUP%,500) FOR I% = 1 TO GROUP% READ #1; N% (I%) NEXT I% FOR I% = 1 TO GROUP% FOR J% = 1 TO N% (I%) READ #1; dummy1, dummy2, VALUE (I%,JI ׋أPZ)Z.[8PP[*VR/ZދV*SCC֋ZSʺWRX< tV*Ë t# xSta*:s'_CXSQCC֋ZZSXHHÉ_YUYQPMKSUMtBW9_8Y:t/ى[<\uKF]mF F %)4F7:F>BMFPSFVFY\F_bFfjuFx{FăFđFFĚFĠFĦĪĸĿÔFєFؔܔFFFFFFFZa "]O Z= +  >>id>Az>(av I #@=]o^>SCS"[r];W~+SY)U"XÉbadb;W~ËdY,\a u sbd[@;dsËdYUbC'a?u((>>00@=o>N>5n8V80> F>YZ+6ӋMu I$[.fË t CCˆ CCËst t  y#F}Pj-J<r%Bz-R</Z-b<F F  FF FF-B@@@=o (y ( g  0U 08C 8@p1 @tBs30ga@[3a#R-C<4 1o ERROR $ AT IP $@PPCdeW'`707HWgtA1A@P\d5bEHyed"BA1PYTAE(('@ @@I@hF $F'*F-F0F36Fut >*+II T+fffff?hfffffA>533333>=ii<0$;9"sU':9"sU'9BT8!%8hxVg 7"hC60wYEG417Gv@`v'b1AAPX#C`QI"U&Àe(HBCTbDvRWaGv"C%T$a'ÙH%Csrb"(HdA1Aimproper input - reenter $ ACCULZ.DATFAMILY ACCULTURATITAL F %)4F7:F>BMFPSFVFY\F_bFfjuFx{FăF<=~K4?K:<=EK7_K;K;K;` F00-r3 t%< uFtNV@P@ Y^-Gá*+NÉJáLàS*áP tPGùZDJLN t P& Q ZRZ' XHHHPX HpyPX$'@'UON SCORESJ Af Af PRf PRfI MEAN SD MEAN SDY=========================================================================================CLI@2K8a@2K8b3;E??c?K:?;K3? K::<;?"K3?K:8<;<"K4? K:8<;É+ˉOrNˁsFs t(W+rw>GÉWډtŹMOKK6;r64 t;r;u L7E;tOËM+Wr;s‹ uÀ>0À>YQNICALNON-CLINTOTALASbAA@P? CYdx$&BCqFVDQEqQ8C@4(D"!VD&AAAAAA17b5!$A@s#VBAAA AC$x0b`!BWACc9'C%b&2BQPP8CB(0P"C(F9@E3SxAI<"K7d1;N!;?Q>hr /FO**/G/Gg$V>^Pu>xr^<PnW t u$0E$,@y ??vCSzhW_^BX>x*[CS t8P$tȾh>xsXtȾo>x'xzuY5^~>b>b@=ojjzzrr )u:;x@>>>>>im>JtN>+U/@=J]s 4I f t/KK/WxùFOv] q   %uZDSW u0E(%Ay-AxWzCxo_6xB*/F/F/F/F/F/F//s6x'ozt_떋^W@[ $Vt u>t>t=SNSCC>u! t CS[J[ uÊr4 uYSN:ډtUP[C7Ë4 uEN< u;6r$<RWuP7ڋ2*ÊЊNJP  u"HXĞuXr6"DB ùWDu蠁Ȋr< ußP4 tF ùREu_KFs 6276$Ȱ"rZ.%.Ȱ,r>àr"S0[>iȰ"r..>sF tKKS [K u r0ڻ0ڇڹ!ًNstCus'YX+۠W t8,Ax4@ȿeuO$uܠV yۋYQ5CCCC0 y8YQ󥥥~tvËfË+Ntx@@H_2&{ {Hఙ'yX<*uð*<-uH<#u<.uð-<\u3 u(렋KKڻ+rSG$Y G}rsr u1P ]r uEIZ FrƹXEtËӱ% t u$=w tSCCЋ>0 sWW* _r|:u JJ$<wCB7K76$=DB ùFEud2S2C7 ¹UCuډ0[2C SڊC? [tC*ÊsS2C7 ¹UDuqډ0-2qڻޞ։D[^RSW@V#gS[̡Hu g-j{Ë uK[XS$v+ y؀r *tyúAډ[V[XXSVSAYZRQe u2 u YmNN<#u~<$u|<$ui$<*u d<*tT*<GeJtr Jt<.uKJt[tFÉ>>ʃwl  u\>0u, t2뺀>u<.u<*u>Ht'?BHt[[>t FI XZY[PSX [r0tOtO[:RFt#0[t?0ޞևڋBCu;00)0+S>H[(0G ?G?P0xu XERZSt^l͊LQZ t0+G!G.f Sr Yr tXEj6@ EOt[~ XZY[PS [` r u0:tO T*} ZtS+A+jXYZQs+S܉D[SX=U2 rT022460$7QR[40 FDuX4>=u t6@4>0$ É@wtùFN[9>2+AË7C99r7ÉJ;r J[XS<uLRFFNȸ+ NN$WNNV$&LSP uVtQ tB<s8-6蠊Ȋ<*t<$u$  utt^W u<t tV tW u #0 z_^7W,@< r t /ŊȻ_2 Ct$t+A ZuB+.>2>0G!G06=> u tq62H;%9;&6&s A76r7<tV< tË4 tERCCD;ڋ7C*Êr76rG}67*à6$t-7%PZ]^[MII+R&LZKK +MMVNuPJ[YX uyQS;Sb,[S廄8[SW eHעesRQ|b廌軄|}滌Y[Y${'Sӻ@lsv[S [SY|ZТ 0uczȻ y젅q2Ȱ.sl t? u蠄:s2*Ţ/z tx)ꠄ t@E u y-ű/, y  0 t 2 tàúASVQS< t[Y<,t$< t<2t/C܋4 Qu0YV[û< tH<"t,V"V2< u < uE :t$< t*CuD< t<,u 4 u%> u t t x uJú t 7J [SPzXj t*r PSV'^[XF>{t|SaZD[[S{ [uBryNL!SA[SFS|6"[VHs|.+i廌|r,Abab|U[pF"ݻF3F>2y#NFVڻNܻFۻF3NFFۻ>ں6^ڻ>fۻnڻ>ۻvڻ>ۻ6ڻFۺ>~ڻ>ۻڻ>ۻڻ>ۻ6t|ܻFKځ>NuFUڻF4>NuF<ڻFں.Ts F߻F@ppyp&pt&RW[S/[S[ZRS[[yZӋCC\t6RS[ YS[DtW8[S[AA؋CCû tS[S[Z넊 xYEN|SZo⻄[ZX⻄DPQsں&Fٻ&Ëھ*Ȁ?trSGGFFWVQY^_[C[XPRSSQڋSQr)x'SCCأPZYZYZ[[Pà LS SR t5 t9Sڋ;_uZ[R[tr 2ðVt݇Lև;t#SR;r[ t x؀'_QSGsH[Y?t6|)òr tñS t/CC QS[YCI u [Mus H t U߱ ߱ ߰T ux2ȊлVV u< t<"t<,t1<"tsSt *[P;XùCA[~S׋غ YKKá  uQKKXY[Q x*S;vSRCC׋أPZZ[PùSS׋Y[Q xS+v"SRCC׋أPZZ[PX tuXZ[P x t uuj+SQ8J+v)Z;sSRCC 0000 VARIABLES 04AE UCOMON n<"t2<,tW¶띋wV t2طCCߋSCVŋCBuZC7àVCt:rR K[t<"u:uú^ SRޞֈZ[ÊSQVޞֈY[SRޞZ7[S St#RCCߋZYS/CCBI uZ[C7SxB tQRޞ[CS}[Sk[ڋˋ*rDO[[ ފ/CCSޞ։[u< rP|X*d*Ë*Ê[Z*Z_YQSCCӀ t[2CuK2V< t<+t <-uB<0t<.u&sТ<uf <0uޠȢ