)ADDRESSLFRMwAPHONE CMDDADD CZD fzDEDIT CZD FILESTATCZD!ϔHPHONE NZX) LAST NZX-kMASTER DZF1MENU CZD4MFILE CMD;tMMLABEL CZD? u7NAME NZXLm{PHONELISFRMPZPMENU CZDT READMEFIRZT` (m=8,l=60,w=70 y ADDRESS LIST N N 15,LAST LAST 12,FIRST FIRST 5,HOUSE 20,STREET  SET TALK OFF SET PRINT OFF SET CONSOLE ON STORE ' ' TO option STORE ' ' TO mdate ERASE ACCEPT "SET DATE TO MM/DD/YY" TO mdate SET DATE TO &mdate DO WHILE T ERASE @ 1,1 SAY '***** CONTACTS *****' @ 2,1 SAY ' MAIN MENU' @ 2,60 SAY DATE() @ 4,3 SAY 'OPTIONS:' @ 5,1 SAY '0 OPERATING SYSTEM' @ 6,1 SAY '1 dBASE ' @ 7,1 SAY '2 ADD A CONTACT' @ 8,1 SAY* aphone.cmd subprogram for CONTACTS system SELECT PRIMARY USE B:master INDEX B:last SET ALTERNATE OFF SET ALTERNATE TO B:aphone.txt SET ALTERNATE ON GOTO TOP DO WHILE.NOT.EOF LIST LAST,FIRST,HPHONE,WPHONE,#,OFF SKIP LOOP ENDDO WHILE.NOT.EOF RETURN * end aphone vDADD.CMD% !dΦ#g9M1 !B SNgC) Ȥ,@P)IfRUCiJeIB)bx:6PpAeՃ,RD' L@T "(N H.6i9Imv} ʹ(E)e A@1 D2 f*HcQEe" '.@2 D#-Ѳ'Ńa0D N 4.bIHT$(G",ē *ۮyylu:݁?k:x<^A;9fa8A>"p麫z죉"{J "0@AR JHp FadOQZTñDGQU E|cA")4Q$1̪A3 A\ Ȣ (A-l!x Kp~Ld*  7 99 @+6 D$ A@nA2bhP:RR 0P$ ЋVLaYY&C;u^Vb Wf!͇]VBHR j'ZOU -2:bx <8& }ƒ|: E(U ;lh2L̳l:!D7< ֵ݅"5 82R9X10L/|9j6h:fK[!JMg1cΚ:PyԱ8j@rHZ>ŲlA!]#jkyhj~9 x drp[e.K rA[k Nè1(XE͹:sbrn﨎ͧ]X7K?= z7'avp ps9^Ik mիێ@5;[3{6Ҽ(|` ZX3n@HTha5AFWLEAEك{¹mB n$ Sso3'x \.]uYGX4 2d!n&H%[ap$6y!(: C XP0-jT08  0"2 ֘ ŵ$ r|'h\q/!0&F"ZL!@(#DP|Iq F0C- t, )KY9kʹx[-2I/)(MR6ӹRe3e-fm) 0,{󰻶Y ܀eu:8ɻϢ #BY 1h-IPB9 f) N@8vDEDIT.CMD% !i:gSo3&rT)'3 JdRaB ($ H**D!Ѵ&2Ɖ$!=('Adi8SFn2zɖU,*DQAc#YU@W$eq8TZ)H-2b, dȀN*HcqGx\8d0B)TYc"!O8 aE"JQ@:#IyCSt~0n9|]sG3)c4uajN#) 7xMQ8"N&BJB*8B6!>/ " ! %∪* @o.:/ C.z'F*E.W j(S#q@@`Ç`fb)~2@pޅ2TDK!`jž̌9Z<.5 a:4XcPD.kGK.7.-< {+$SR/AHlHO!.!84I3? /djT͖HsU^mj@:e+*2 ['t$׭vpGyP4AchP[PT1ba0>&cM6(N-*L t*#.d2Jµt*ٽf0#כ+B%L)%9wCܠC\aD,3N|aM5-it,V&l;b/i_4ʣE3iS?4L5Mb׶R*⠒a$Z2jDCÄNl%2&trl 鸉a~ iI5 csj^Ѱ~SR4;f#qA} ZAgqk(TA!8"x_HnEGh eF V? Y3x-I%CziFL%HUH 3d* c313 jyN8Dڀ"ՌWvR"AU4HV|<jL jJ.T4\SDĄOP!3"W D~p~pi$R,U -&vb{<Cvd04CFMĤu1MxXjf.<㑝23e1/aF dn@ WJhC8^BA %#d A9t%߂GQ<,:bf0h-S}L?BV*A` ܼx ދx ed2$rTB kvFILESTAT.CMD% cIs:N DdRA&1%̧A : Qn3 s PI' !K*A`Q`n2S !To'8LA!ȥM&h1=#IXfZ 5Z(9owDb5EW `64U*ֻlc*:,y$?!%)HDq<.IIE(\eG$ 4%JҬ?JE;8s0z-P"7PTEN-MEAWRıu Fu|rpexAb_SF9˯^bX0z:.&RV]9`@H vIKGaSl,sV6Bt1d3]tyb(7 {K_ZWĴBe'|XABoؚ028RlܜD&ޒp!+s0O/f`^s5\,o.!`y. Ƅ*)81.@6")s]]Em;jm)촍7"` kGCE"@ivHPHONE.NDX%   N" %"PR  &HV"Y,O!ɄtAFq(F‘h-Q2-b4$r< @&P'*aHE2 A&ʖ4"s;Q( (@ $D~0T   cQhd7B3LF@ %c%[dqHA&]JB1KlN" D1' 6" *Kx)R3\fm@)7RNdI 6i&&vOx8"1 2,J02l.̳d:Z׆-@٦m7󀕸o9p@&n; sʓ=8q !Ƞc*7-A )&.%)Mk@L1 ?Pʢ+R"NMvLAST.NDX%   L" %(  @ M$! XN*c಑.H'JdXL DR,A !r$&cxpYCYP9DȹhP`t"'NA2\Y'5T^ZM vR_@@.$ bl)4 `0XL6"8!-dI!ru쇋𷼄E$;YPcW8h/"$➘D&Ięe$ F8Bj5qqR )Dm:S!:`5R6&IM kvMENU.CMD% ABi7A̦㨀o9dqPC*D &(y9 $yYe9tb/XQi0 'G%A dX`Kje8@P)b:^7'-LL*Vq8kyl>d0 RKFHdRlEM%K=ȚMdD pX@UAhm& ˊ"` MEaX "p$Hb4Sr}er.)4\HXvF'TE zf J,)OB8!s#Ȧ @C+2MCo 8d,@ Ⱥ2*Bqï˘"Lk!r6b8A.)kkbḲNHH%o`!d2TBt< #6,Pp+J,)= 'pꚳ#JQ "§ 4f7U2!tһPNĤ!YbĠMRkX7U/Y"s&WUձ]Ԍ2W5[!gU\ږ2(m\SUaAP71dݖuq huۗmQXpm!6 #6a6o6 3#Z_v=x8`ɾQm|'C $19C@˃nI赩 /NXsR6<koj۬n(7 {~{ ;ꭳp*1H22 J_H 4 1tTXE$a:1ȁ ' SELECT PRIMARY USE B:TEMP INDEX B:ZIP REINDEX ERASE @ 23,1 SAY 'I am writing a forign file of data, please wait==> ' USE B:TEMP INDEX B:ZIP DO WHILE .NOT. EOF .AND. .NOT. ZIP=' ' COPY TO B:label.txt FIELD first,last,house,street,suite,city,state,zip DELIMITED WITH , ENDDO WHILE.NOT.EOF RETURN * end mfile vMLABEL.CMD% ae6 f u1F9m! N*HeB@s:MTS"CPKI(u6 "u6In3 Q].2a,@O#ReZ*S1a]'$"yL,+HQa2@UZ1@P9 m xa@XP!$|=̧AlM5F8r ( 02 g&H7qOV6Tsq˭NP$J!8O.܌ O&C(4ru#A`\XTLfK"Ļbsb7!Bx@*)X^'?죪'@R Dc[1 L8 #: -n$B2Hz/ m7옠0Ã23H;0AEDP3!&d\β N,#2X@Ho(S㾐ĸG3 ,KƱ+0dBt"$"Oӝ%,5Q"d' cX2c+0Cn-a#Ilb(bje{89XbBs*p* K=Qj:lH{ ]SR%AE䀀PԱ#FlL?P'S+2Qix$"%lb@K &j\2R YHt~DNB$|3Ia@P?%{ݧ|kM*3K( %ROm?Uf0.Hc uF+"I[ J:IP"亰)RRsEԹ@k "u|TC2k+|bb_ S&"UJiz,i]uL D`)%ivẂ;J\58Cg+TΖp"/19j'<21Cc Ao5=1i,!Z;yAQ.@i::jS@vNAME.NDX%  L+#JQ  @ M$! XN*c಑D>?&@ (-A# ,a& @ S%d @$\)®m=8,l=60,w=66 y TELEPHONE DIRECTORY N N 15,LAST LAST NAME 12,FIRST FIRST NAME 19,HPHONE HOME PHONE 19,WPHONE WORK PHONE |ZIPC R|HPHONEC[|WPHONECn|REMARKC2| vPMENU.CMD% iu! N*HeBy9 h*?1Dy 6L#~C9Mt0A"m:)J0 '0 DiY  P'B}BJD " X|F'xet^/BI[)8y"JQ@84 7y@IX`UkD %˕v'!L A" DRO 7+6Gt:{@"GKֳU»{ro>ObA!:n3ƺms` {Ƅ21x1(Aq궮kp!\G(z޶p'IR(Hқ+ 0A0ih@î jJd2.J/( $?L$.>ѬA4m+OL| d"HHHDRxb*!$*quF :UT۳M !6I @6 (@7ָ6P  9 +8*2&0җB7GC2l}Tau7𔨊B p & |'Ȳ6@:Mr8sV%˜$Nq׶C|wO&Z+piL~ /y{*z #hfR]\{kR-~,i9m%uRTqna9ZElU WJ$mX 8GV|kN1kL܀n[p. 30@0Aw&7p@C ^+/vD#tႻ&똳vAv2ݼQmxVsECd1d9i|l<_#xΊ$3j-6BŰXT*wbQm%W @cu"AAEX cClUPǭTt0J&Hoa=ع?vqj)θDODǀ] -S4CN3yZQ{`{HN-֜C/Dk]=JQ4HTlҮVY Rݺ@/ yWX7Ո c8u,&[m' ܨa]MEhdϸPኂ4g|K8eI!,&$ 2RpIIvREADMEFI.RST%  N*HeB4X"!Sb ,s:]@k2^ɽ 4 ;N:7Eth4TE$PN'1Aqc)iBTHllrEs)Sӌ&b0j l+b@a2k2n&hi6i ,r4㩠.Bchtd#b4! M.uvfM{]0J.ۆ,a:bqS:Z E@c7f3),Sȿ*a䧩2)ʂF6A2c9#Kԗ#"2 9B($C2' "@0h6#Z61k۫c(ࡎk";P 'j ō*04%l@86O9J 3 V62D&+%&C,9a"922)?'҃0㤧C :Ϋ<8&4̵# h83I詳S>rB2 J͠7qaMFi3H$D)&Q}:rp£2i%#s+9K:1:d; h3 .pN<61j cxahSb3=6uJڝˍ<$85nծj5$9 #,2:+:\,~ ),H2ȭx(Qyc)%7`ȞM2UŖSjo0r|D2fiDsk ADSo A9LXPd EVW4&i Bp)~N^/ҜCA7 ʻh'$4C; IHrjXhH H*