' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#07#0:"4<*55**5*%5)1)1)1)'#0/#0*5*75**5*:5/#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &Jµ)LЦ գ e)rsrs ʄ˩üǾaLq lJ ma Į˵ ̵!8NL Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`Om)mlaL Nɵ"ʵ# $$ 8GL""Ȅ$"뷥GL  GǾ$ȱ"ȱ"G$оȱ"ȱ"HH"#  hhhhLhh $L⾭NO !  ̤ N ڮL   LD7c*p*q*` ['*` ~.3 #3 L3LA@@&E&&A@@&AA)߅CBBH&E&&A@B& ChLQhBAȌy8zx8v{v I7H7@)*AL@m{@AAA,+i(ˢ3Z@[A@ /@v wm{@8/e@@eAA3]ͥ@\ƊiY?AyC@B@B|ACLT$VXZdflpx|~**7777(*3]67V<<8:=???@@##topmnU^_R ij^_lk 󅔆nmLY^^ȱ^ȱ^eȱ^e(ӊ0Цe^^u**`*5".Q`pU$#$$b"p"t""%%%%"""m%2"<"("-"P"y%%0#\##|"6$6$$$e<%%g< 7JJJJj*7h*I * aUL@* kU8*  L % Q(^*R*(jQ*0l^l\ * wU*u**W* '* H &h@ ['_* /QSIRb*_*L!`LLL*L7`**`LQ(LYLeLXLeLee Q*H\*(h0L&& $`(* &R*  \*Z*Ll8 R* HH\*`\*Z*[*Y*S*6`*LxQ*ɿu3'R*Ͳ*ʎR*ʎ]*]*]*ɍuLɍ}R*LR*ɍ*g^H8* ^&hZ*LɍR* &LͲ*ɊR*R*%* Q(L$Ͳ* Z*@ -^*  \*[*Z* Q(Y*\*[*Z*8`l6L_*Ȍb*_*Ͳ*]* !)Y( h( (֭Ͳ*Lɍ ['LL&_*_* ^& 9 )L&3 9 )a  ! 0L jLY ! u*< !(_*9 ) ˭*ɠu*ɠK_*9 )?L Lʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L65`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`TLOLOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF yppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (   Š٠734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-`mall`rm`sma`r:5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # d ֠z# u*`ub yf Ac o 1 >h Ac _ c gL1 BLOOD TYPE 1 o Ac _ c gL1 CHOLESTEROL 1 o Ac _ d gL2 TRIGLYCERIDES 2 o c b c a e Zb d a Ac k` a ` a c G` M :3` ` wc Lk2 X d L2-DRUG REACTIONS- t2  L2DRUG: 2  e L c >h c  ~ Ac _ ub gL0 0 o 1 >h c b c a e Zb /` ` /` c G` c a Ac k` M :3` ` wc L1 X c LH1-BLOOD TYPE/PRESSURE/CHEMISTRY- (1  Lq1 B.P. READING DATE Y1  Ac >h d  ~ Ac _ ub gL1 1 o }c _ / o c b c a e Zb c ` ` G` c a Ac k` M :3 ` wc L/ X c L0-IMMUNIZATION HISTORY: PAGE 3- /  LF0IMMUNIZATION: DATE: .0  Ac _ Ac gLh0MEASLES `0 o Ac _ }c gL0MUMPS 0 o Ac _ c gL0RUBELLA 0 o  Ac _ Ac gL.POLIO (2 MONTHS) . o Ac _ }c gL.POLIO (4 MONTHS) . o Ac _ c gL"/POLIO (6 MONTHS) / o Ac _ c gLK/POLIO (18 MONTHS) 9/ o Ac _ c gLr/POLIO (5 YEARS) b/ o Ac _ c gL/POLIO / o Ac _ c gL/POLIOS) - o Ac _ c gL-DPT - o Ac _ c gL-DPT - o c b c a e Zb c ` b G` c a Ac k` Ac >h c  ~ }c _ ub yf Ac o 1 >h M :3 ` wc LU. X c L}.-IMMUNIZATION HISTORY: PAGE 2- ^.  L.IMMUNIZATION: DATE: .TION HISTORY: PAGE 1- ,  L, IMMUNIZATION: DATE: ,  Ac _ Ac gL-DPT (2 MONTHS) - o Ac _ }c gL<-DPT (4 MONTHS) -- o Ac _ c gLb-DPT (6 MONTHS) S- o Ac _ c gL-DPT (18 MONTHS) y- o Ac _ c gL- DPT (5 YEARL+ 6. HOSPITALIZATIONS +  L+ 7. X-RAYS +  L , 8. LABORATORY TESTS +  L/, 9. HEIGHT/WEIGHT ,  LP, 10. RETURN TO @,  Xg  ^ _` ;c ( _ _` pd g L*` ` wc L, X c L,-IMMUNIZAAMES *  ] sd \` { `  8`L* 1. IMMUNIZATIONS *  L+" 2. BLOOD TYPE/PRESSURE/CHEMISTRY *  LJ+ 3. DRUG ALLERGIES/REACTIONS ,+  Ly+ 4. SPECIAL MEDICAL PROBLEMS [+  L+ 5. PHYSICIAN VISITS +  )  g L)' )  L)$HAS ALREADY BEEN USED. IF YOU WANT A )  L+*%SECOND FILE OF THE SAME NAME YOU MUST *  L`*#GIVE IT A UNIQUE NAME. FOR EXAMPLE: <*  Ls*' q*  g L* 2'. *  g L*CLOSE FAMILY NHE DISK DRIVE AND TYPE 'Y'; (  L(OTHERWISE, PRESS RETURN. (   g L)Y f 5 ) L ) { L%` va c $` Ac h va  ~ g L[)READ FAMILY NAMES,R G)  ` ^ '  Pg  Ng 5 g L) 1 h` X d L)THE FILENAME: ' NAMES,R0 '  va >c ^ g L'CLOSE FAMILY NAMES '  >` X d L)(&THERE IS NOT ENOUGH SPACE ON YOUR DATA (  L_($DISK FOR A NEW MEDICAL RECORDS FILE. :(  L(%IF YOU HAVE ANOTHER DATA DISK, PUT IT p(  L(IN Tja !) d 8 'e D _ Te D 2c _ 4a 7a Sc (L& '` sd  d L&CREATING FILE: &  g  7d n c c i  g  sd LO'PLEASE WAIT A MINUTE :'  g Lx'WRITE FAMILY NAMES,R c'  va >c ^ g  g L'WRITE FAMILY W22:1:NW33000:XWg:W <=======================================<<<< INITIALIZE A SET OF RECORDSr:WS$" ":WRCFRFRNR1:WD$;"WRITE ";FLN$;",R";RC:WS$;",";TYP;",";LN:WRC:W;GX <=======================================<<<< STORT$(SP$,XR)RS$(A2,2)9VT$)9VYY129VLIN<9VYY1E9VITMK9W^9WVIEW022335i9W21:19!W"DO NOT USE COMMAS OR COLONS"9&W"TYPE RETURN TO MOVE BETWEEN BOXES"90W"TYPE ESCAPE WHEN FORM IS FINISHED"9:W223609?WVIEW122360:DXL8VVIEW2ĺRS$(A1,1)28VVIEW2ĺRS$(A1,1);;8VLINQ8VLIN1LPI(ITM,2)]8VA2A21c8V8VVIEW0NA(A2,1)1222508VVIEW0Ğ8VVIEW2222348VY:XR8VRS$(A2,2)8V222408VLIN1T$(SP$,XR(RS$(A1,1)))RS$(A2,2)9VLIN1(ITM,2)7VA2A21)7VNA(A2,2)02210077"VLIN:ITM[7,V"NO RECORDS HAVE BEEN ENTERED"a76Vt7TVYY0:A10:A207^VITM1SZ7cVVIEW2ĺ7hVLIN1LPI(ITM,1)7mVA1A117rV7wVVIEW0NA(A1,1)1221607|VLB(A1)1VIEW0Ğ8VVIEW2ĢY:OF THE PERSON A  LAWHOSE RECORDS YOU WISH TO A  g  7>D g LBOPEN FAMILY NAMES,L50 B  g  g LIBREAD FAMILY NAMES,R0 4B  '  ja  va c $LB g LBCLOSE FAMILY NAMES wB  L{D Ac h va  ~ cf Ac rb f a o 1 >h Ac >h Bb  ~ ub f  o 1 >h Ac >h Bb  ~ ub af  o 1 >h Ac >h Bb  ~ ub f c $LiA ub f _ ub >c f _ ub f _ b ub f ^a ub _f a T 1 >h g LyACLOSE rA  g  ` X LA$PLEASE TYPE THE NUMBER 82120821?L?218 2088218 ?L?882082014520?L @8208880000@L#@001101310&@L9@00100100<@LO@00110000R@Lj@010200101 m@L|@009999 c Ac f c o :d ?b }c >h Bb  ~  a ub Ac a oe Zb c a sd k` c ` a Y` u Ac G` M 7` g L>OPEN >  g  0g  g  L,?217747553510/?LF?51055101055 I?L_?551055555 b?L|?15555510101010?L?000?L?152088108785?L?1719 =  L=RECORD = xg sd a a _ Ac k` V X d L>-HEIGHT/WEIGHT HISTORY =  _` ^L>- >  Ac _ Ac gL8>DATE: 2> o Ac _ }c gLW>HEIGHT: O> o Ac _ c gLv>WEIGHT: n> o Ac >h c  ~ }c _ ub yf Ac o 1 >h c bME: < o Ac _ }c gL<DATE: < o Ac _ c gL<RESULTS: < o }c _ Ac yf Ac o }c _ }c yf Ac o }c _ c yf }c o c b Ac a oe Zb c a c k` c ` ` Y` u Ac G` M 7` ` wc $L= Ua ;c $L= X c L=-HEIGHT/WEIGHT HISTORY MENU-c ` +a Y` u Ac G` M 7 }c _ c f c o ` ` wc $L\< Ua ;c $LD< X gd L<-LAB TEST RECORD MENU- <  L<<LAB TEST RECORD ,< xg c a ` _ Ac k` V X sd Lw<-LAB TEST RECORD e<  _` ^L<- <  Ac _ Ac gL< TEST NA:DATE: : o Ac _ c gL: TAKEN AT: : o Ac _ c gL:ADDRESS: : o Ac _ c gL; TELEPHONE:  ; o Ac _ c gL9; MILLIRADS: .; o Ac >h c  ~ }c _ ub yf Ac o 1 >h }c _ c yf }c o }c _ c f Ac o c b Ac a oe Zb c a c k` c ` ` Y` u Ac G` M 7` ` wc $LD: Ua ;c $L,: X sd L:-X-RAY HISTORY MENU- 9  L$: X-RAY RECORD : xg c a +a _ Ac k` V X sd L\:-X-RAY RECORD M:  _` ^Lo:- m:  Ac _ Ac gL: TYPE OF X-RAY : o Ac _ }c gL c gL8 DATE LEFT: 8 o Ac _ c gL8REASON: 8 o Ac _ c gL9 TOTAL BILL: 8 o Ac _ c gL*9INSURANCE PAID: 9 o Ac _ c gLJ9BALANCE: A9 o Ac >h c  ~ }c _ ub yf Ac o 1 >h }c _ c yf }c o c b Ac a oe Zb c a c k` (8 Ua ;c $L8 X c L7-HOSPITALIZATION HISTORY MENU- 7  L8HOSPITALIZATION 7 xg c a ` _ Ac k` V X sd LC8-HOSPITALIZATION 18  _` ^LV8- T8  Ac _ Ac gLz8 HOSPITAL: p8 o Ac _ }c gL8 DATE ENTERED: 8 o Ac _c yf }c o }c _ c yf Ac o c b Ac a oe Zb c a c k` c ` b Y` u Ac G` M 7` ` ;c $ _ ` wc $g ` c b Ac a Ac g a  ~ b ` ]b ;` }c a FE c  lg L7 }c _ _ wf ~b >c b }c _ _ wf a a 1 gL$7 J` _ U` ` wc $LCIAN VISIT 5  _` ^L5- 5  Ac _ Ac gL5DOCTOR: 5 o Ac _ }c gL 6DATE: 6 o Ac _ c gL+6REASON: #6 o Ac _ c gLK6OUTCOME: B6 o Ac _ c gLg6FEE: b6 o }c _ Ac yf Ac o }c _ }c yf Ac o }c _ c yf }c o }c _ c >h c  ~ Ac _ ub gL4 4 o }c _ ub yf }c o 1 >h c b Ac a oe Zb c a Ac k` _ ` _ c G` M :3` ` wc $L5 Ua ;c $L5 X c Le5-PHYSICIAN VISIT HISTORY MENU- F5  L|5VISIT v5 xg c a b _ Ac k` V X d L5-PHYSI lg L%4 b ` ]b ;` }c a b a FE c  lg L%4 }c _ _ wf ~b >c b Ac _ _ wf b b }c _ _ wf b b 1 gLX3 #` _ Ac a U J` _ }c a U` ` wc LU4 X c Ly4-SPECIAL MEDICAL PROBLEMS- ^4  L4DATE: PROBLEM: 4  A2 REACTIONS: 2  Ac >h c  ~ Ac _ ub gL2 2 o }c _ ub yf }c o 1 >h c b Ac a e Zb c a Ac k` b ` b c G` M :3` ` ;c $ _ ` wc $g ` c b Ac b Ac b Ac g a  ~ _ f ;c $L3 b ` a ;` Ac a b a FE c >c a }c _ a f c $LQ 1 h 1 hLQNO RECORDS HAVE BEEN ENTERED Q  ` b ` c a c a Ac h a  ~ ` wc $L2R Ac h Ac _ a wf  ~ a >c a s ` c  _ Ac _ a f ;c $g LR a f ;c  _ ` c $g LR w ` wAc 4 P g LP g dg`LP/ a _ a f c $ _ bg c  Ac 4 P g LQ Dg dg`` ` wc LQ c a c a Ac h a  ~ Ac h Ac _ a wf  ~ a >c a Ac _ a f c $ _ a f ;c g LQ 1 h Ac h }c _ a wf  ~ a  dg EP a _ a g bg o 1 h 1 h` bg  c $LO a _ a f Ac o ` bg 5 g LP a _ a f Ac o ` bg  f  bg LDP a _ a f Ac o ``LJP/ a _ a f ;c $ _ bg c  Ac 4 HP g LP g dg`LP( a _ a f wc $ _ bg Ac  g LN a f Ac o LO _ >c _ c  LNREAD N  g LN,R N  _ h` _ ^ '  dg a _ a f  o a _ a lf  o  O bg  c $LkO a _ a jf f  dg bg  _ a _ a jf _ LO a _ a jf _ bg  _ f  bg 0g  g  #` _ Ac a M J` _ }c a M g LMCLOSE M  g  Q` Ac h sd  ~ a _ a f c o a ;c $L:N a f c o 1 h  8` Ac _ c a Ac h a  ~ Ac h a _ a wf  ~ a >c aLN a ;c $ _ a _ a g N  Ac 4 ~L g LLLL L ng`` _  lg  _ b  lg g `LL/ _ c $ _ lg 5 L g L7ML&M/ $M  _ >c _Lc _LK/ _ c $ _ lg 5 K g LSKLBK/ @K  _ >c _LXK lg 5 VK LKLpK0LuK9 lg 5 nK 2 _ lg 5 sK Ig LKLK K ng``LI( _ ;c $ _ lg 5 I g LILI( I  _ >c _LI) _ c $ _ lg 5 I g L.JLJ) J  _ zc _L3J _ c $ _ lg 5 1J g LnJL]J [J  _ >c _LsJ- _ pd $ _ lg 5 qJ g LJLJ- J  _ >c ` _ ;c LH Ac _ g  g g 5 lg  g lg  g  _ LI g  u _ g  g  g _ >c _ g g _ `  _ a _ _ wf ` g LH` _  lg  _ b  lg g `LqI0LvI9 lg 5 oI 2 _ lg 5 tI Ig LILI I ngLGLG g 5 G  g _ ` (LG >` _  _ >c _` a _ _ wf ` $LH `  ` ` >c `  >`  a ` u Ac _ a _ _ g g o ` >c ` Ac _ a ` u Ac _ a _ _ g g`LsH rH g _ `  _ a _ _ wf ` $g LH `  LE _  lg LF FLE b  lg LF GLE oHLE _ ;c LG Ac _ _ lg ` ` ;c $LG `  ` Ac ` `  >` ` u Ac  a ` u Ac _ a _ _ g g o Ac ` ` ` _ a ` u Ac _ a _ _ g g` g  _ ( _ _ ` &g  _ lg 5 E g LE a _ _ f ;c $ _ a _ _ wf ` g  _ w`  lg g LF HLE c  lg  _ w`  lg g LfF s a ` u Ac _ a _ _ g g o ` ` ;c $LwF J ` wc $LF HI ` c $LF LLF lg 5 F A D  LDDISK. SELECT OPTION 1 IN THE D  Xg LD TO START A D  LE RECORD FILE. E  e  ] va c $LCE { `L% w Ac _ a _ a g g a _ a f ` a _ a jf ` `  >`  Ac `  ngLE,LE: lg 5 E L% g LCOPEN FAMILY NAMES,L50 C  g LCREAD FAMILY NAMES,R C  _` ^ '  g  g L2DCLOSE FAMILY NAMES D  ` Mf D b b c LuDLaDERROR # XD  b ^ K Ac sa X d LD%THERE ARE NOT ANY RECORDS ON THE DAT  LBREAD FAMILY NAMES,R B  @a ^ '  (g LB B  @a ^LC. B  &g  1 hLC C  va >c ^L@C . RETURN TO 3C  Xg  g LpCCLOSE FAMILY NAMES ]C  ^ _` ;c ( _ va >c V` (g LA va >c V` $L h L h"L h$L h&L h(L h*L h,L h.L h0L h2L h4L h6L h8L h:L hL h@L hBL hDL hFLL gL gL gL gL hL hL hL hL hL h L h L hL hL hL hL hL hL hL hL hdgL gL gL gL gL gL gL gL gL gL gL gL gL gL gL gL gL gL gL g d   c  L^PR#0 ^  LcLc `!!"#$%&'GH(h()) *j+ , - ./0А50118gL gL  ] Ig L] g  u Ac g  gL]`L^PRESS SPACE BAR TO CONTINUE... ]   f ` 'L<^#ENTER YOUR CHOICE AND PRESS RETURN: ^  f  f  S`` d   c  Ln^PR#1 i^  gd  L^80N ^  gd  L^I ^  }c _ }c g 3b ;f  f  \  f }c _ c g f  gLy] a b b #f &L1]L] }c _ }c g ]  f }c _ c g f  gLy] a c $Ly]LD] }c _ }c g $b ;f  B]  f }c _ c g f  g g  c $`L]AL]Z g Ac  ] 2 _ g Ac _ Ac g $b ;f  [  g  gLy] b c $Ly] a b #f Ly] a c $ _ $b c $g L#\ }c _ }c g gLy] g  0b a c $L\ a b b #f &L\LS\ $b -b g  f }c _ }c g f  Q\  f }c _ c g f  gLy]L\ $b -b g  f c LZ }c _ b g }c _ b g Ia  o Ia c $LZ }c _ b gLZ Z o 1 HhL[ [ g }c _ Ac g  a }c _ }c g  b }c _ c g  !b $b c L`[ }c _ c g g a c $L[ a b 8f &L[L[ }c _ Ac g [  g  gL[L[ }ca >c V` $LY { { `` \c D b X sd LY INSERT YOUR MEDICAL RECORDS DATA Y  LZDISK IN DRIVE  Z  b ^L>Z AND PRESS RETURN. +Z   f ` Ac Hh c  ~ e h Ac  Ac L}Z }c _ b g Ia  Ac 4 {Z LZ 1 h Ia  ub ^LX. ---UNUSED--- X  LX b  ub ^LX. X  bg  a d (LY 1 >h g LYCLOSE Y  g  }c b a >c pd LIY Ac b b  a >c ^LhY . RETURN TO [Y  g  ^ _` ;c ( _ a >c V` (g LY c LAW Ac rb h` _ ^ '  dg  b  _  }c b ub pd LW Ac bLWLW/ / Ua ;c $ _ bg 5 W g  _ bg 5 W g LaX ub \` g LOXCLOSE IX  g  ` Ua ;c $LYLsXL}X/ / bg 5 rX  _ bg 5 vX g LX b g LVCLOSE V  g  ` Ua ;c $L=WLVTYPE THE NUMBER OF THE V  vg  LWWHICH YOU WANT TO  W  g L/W: -W  AW` g LPWOPEN JW  g  0g  g  Ac >h a  ~ c  LWREAD W  g LW,R W  Ac _ c a Ac h a  ~ Ac h a _ a wf  ~ a >c a a ;c $ _ a f ;c $g LV _ >c _ g L+VWRITE $V  g L?V,R c ` 1 h ` >c ` 1 h s ` c LT e  Ac L`TDO NOT USE COMMAS OR COLONS DT  LT!TYPE RETURN TO MOVE BETWEEN BOXES nT  LT!TYPE ESCAPE Wc LR `  a  ` wc LR Ac _ a g  ` wc $LR Ac _ a g  1 h Ac h }c _ a wf  ~ a >c a s ` c  _ Ac _ a f ;c $g LT ` c $LcS w ` wc $LS `  ]b  }c _ a g  LT ` ;c $LS Ac _ a g L0 -HOT LINES- 0  L0 NAME: TELEPHONE: 0  M Q oM  ~ aL fP L o NM _ aL )P M o M _ aL PQL71 61 o 1 Q M mL NM K O FL oM K M J *J J lM J ; J M $ J J HM $Q ` M mL M K M Q K  ~HM L/ X M L/-POISON CONTROL CENTER- /  K L /` M _ M PQL 0 TELEPHONE: / o NM _ M )P M o M mL NM K N FL M K M J L J L J ; &` J HM Le0 X M L0-PARAMEDICS SERVICE- n0  K L /` J HM L0 X N 2. .  P  L. 3. RETURN TO .  P  % J M ( J J iM Q L- J iM $` X J M $LU/ ,N L7/- 5/  [Q LJ/- H/  J HM $L/ ,N Ln/- l/  P L/- /  L J u M L NM J %` J L-- -  P L-- -  lJ J u M L NM J %` J HM $L/ X 8N L.-PHARMACY MENU- .  LK.$TYPE THE NUMBER OF THE PHARMACY THAT &.  Lh.INTERESTS YOU. Y.  NM K L `J M JL. 1. .  [Q  L. L, 2. ,  P L, OR ,  L, EMERGENCY PET HOSPITAL ,  L- 3. RETURN TO  -  P  % J M ( J J iM Q L , J iM $` X J M $L- ,N Lz-- x-  P L-- -  J HM $L- ,N NM o NM _ oM CP M o NM _ M )P M o M mL NM K N FL M K NM J L J J J u M J ; &` J HM $La- X M L@,-VETERINARIAN MENU- ,,  Lu,#TYPE THE NUMBER OF THE VETERINARIAN Q,  NM K lJ `J M JL, 1. ,  P NM K J `J M J D X N L* -SPECIALIST *  J ^L*- *  M _ M PQL+ SPECIALTY:  + o M _ NM PQL1+NAME: ++ o M _ oM PQLQ+ADDRESS: H+ o M _ M PQLs+ TELEPHONE: h+ o NM _ M )P M o NM _ NM )P M o NM _ oM )P ) o NM _ M )P M o NM _ NM )P NM o NM _ NM CP M o NM _ oM )P M o NM _ M )P M o NM _ M CP L o M mL NM K N FL M K M J L J L J ; &` J HM $L* nK M $L* X _N L*-SPECIALIST MENU- u*  L* SPECIALIST * Q M o NM _ M )P M o M mL NM K N FL M K M J L J L J ; &` J HM L) X qN L )-EMERGENCY ROOM- )  M _ M PQLC)NAME: =) o M _ NM PQLc)ADDRESS: Z) o M _ oM PQL) TELEPHONE: z) o M _ M PQL) DIRECTIONS:  HM L' X _N L'-HEALTH INSURANCE- '  M _ M PQL'CARRIER: ' o M _ NM PQL(ADDRESS: ( o M _ oM PQLA( TELEPHONE: 6( o M _ M PQLb( POLICY #: X( o NM _ M )P M o NM _ NM )P NM o NM _ NM CP M o NM _ oM )PNM CP M o NM _ oM )P M o ; &` J M $ J J HM $Q ` M mL M K M Q K  ~ pL J IL J NM K <6 L  Q L`' NM _ 3J 'P jL M mL NM _ 3J 'P K K 1 QL& J `J tC` J HM L{' X N L' -DENTIST- '  .L L M J %` J  j(8  Tj 8  jj 8jL 8jL 8jL 8jL 8jL 8jL 8jL 8jL 8jL 8jL 8jL 8jL 8jL 8jL 8jL 8jL 8jL 8jL 8jL 8jL 8jL 8jL 8  _jL _lL _nL _pL _rL _tL _vL _xL _zL _|L _~L _L _L _L _L _L _L _L _L 8  Vh(8  h 8  h 8  ,i 8  ni 8  i(8_-L _/L _1L _3L _5L _7L _9L _;L _=L _?L _AL _CL _EL _GLd_LL _NL _PL _RL _TL _VL _XL _ZL _\L _^L _`L _bL _dL _fL _hL ^L ^L ^L _L _L _L _L _ L _ L _ L _L _L _L _L _L _L _L _L _L _!L _#L _%L _'L _)L _+L  hHL hJL hLL hNL hPL hRL hTL ^L ^L ^L ^L ^L ^L ^L ^L ^L ^L ^L ^L ^Ld^L ^L ^L  K  J HM L@ M _ K NQ  J HM $L@ M _ K NQ  1 Q M Q NM _ VK 'P  ~ K M K s J L  J M _ K oP M $Q LB J L $LWA w J HM $LA K  IL  NM _ K NQ  LA AK M $LA M _ K NQ  CL P K oP L $L? 1 Q 1 QL?NO RECORDS HAVE BEEN ENTERED ?  ` pL J L K L K M Q K  ~ J HM $L&@ M Q M _ VK 'P  ~ K M K s J L  J M _ K oP M $Q L@ K dP M  J J L $Q L@ w J HM L@ KQ L> P Q`L>/ K _ K 4P iM $ J Q M  M 4 > Q L? P Q`` J HM L? L K L K M Q K  ~ M Q M _ VK 'P  ~ K M K M _ K oP L $ J K dP M Q L? 1 Q M Q NM _ VK 'P  ~ K M K NM _ _ K PQ Q o 1 Q 1 Q` Q  L $L= K _ K qP M o ` Q 5 oQ L> K _ K qP M o ` Q  P  Q L8> K _ K qP M o ``L>>/ K _ K 4P M $ J Q oM  M 4 <> Q L|> oQ Q`L>( K _ K 4P HM $ J Q M  M 4 > K fP M o L= ?J M K J `J M K ; J `J NM K ; P L;CLOSE ;  0Q  ?` M Q 8N  ~ K _ K qP L o K M $L.< K fP L o 1 Q  J M K M J K ;K u M I K _ J NQ (Q`LG9 F9 FQ J K  J K _ 3J 'P 5K $Q L9 J  ` J M L9 M J &Q  FQ DQ 5 Q  a8L6 C9L6 J M L7 M J J Q ` AK M $L7 J  ` M J J  J K u M  K ;K u M I K _ J PQ &Q o M 8K >K K J K ;K u M I K _ J NQ (Q` &Q  J ( J J K &Q L8L8 &Q 5 8  (Q J K (L8 J 6 Q L6 K _ 3J AP M $ J K _ 3J 'P 5K Q  J J  Q Q L 7 8L6 L  Q  J J  Q Q L\7 s K ;K u M I K _ J PQ &Q o ` K HM $Lm7 :Lq7 Q 5 p7 L6 TJ  Q L7 7L6 L  Q L7N THE DATA 5  L5DISK. SELECT OPTION 1 IN THE 5  eQ L6 TO START A 5  L%6 RECORD FILE. 6  dO  JHL w M J K _ K NQ (Q K _ K 4P K K _ K P K K  J  M >K  QL6,L6: Q 5 6  J Q 5 I aL NP I |L aL YP wK aL P K B 1 Q P L4CLOSE 4  0Q  ` P L5OPEN 5  0Q  P  :Q  N G )K ,K M L\5 P LJ5CLOSE C5  0Q  ` P Lm5DELETE e5  0Q  :Q  X M L5%THERE ARE NOT ANY RECORDS O2000202203L32000000003L30000 c M PP L o N L NM Q "L  ~  JK aL PP M ^L NP MK o 1 Q M Q "L  ~ aL [P  o 1 Q M Q "L  ~ aL P  o 1 Q M Q "L  ~ aL YP L $L4 aL NP E  0Q  P  :Q  M Q K  ~ M  LEREAD ~E  0Q LE,R E  M ^L J ]J K M Q K  ~ M Q K _ VK 'P  ~ K M K K M $ J K dP M $Q LD ?J M +NLNSL(I)L+NTYPST(I)W+N22440^+OIt+OD$;"CLOSE ";FLN$z+O+O <=======================================<<<< CHECK FOR PHONE DATA FILE+OD$"OPEN ";FLN$;LN$;DR$+OCD(46533),OCD6ĺ,0,0 *SN 2,0,0,2,0,0,2,0,09*TN 2,0,0,0,2,0,2,2,0S*UN 2,0,0,0,0,0,0,0,0c*VN 0,0,0,0 i*\Nu*aNRF(1)0*cNRCT40*fNI2RCT*hNRX*kNRF(I)RF(I1)RX*zNI*NI1RCT*NSL(I)*NI*NI1RCT*NST(I)*NI*NI1RCT+2,1,8,1,1,3#)-N 3,0,0,0,0,0,0,0,0/).N 0,0,0F)4N LENGTH OF STRING^)>N 25,25,14,25,25,25v)?N 14,25,25,14,25,25)@N 14,25,25,14,25,25)AN 14,14,25,25,14,25)BN 14,14,20,14,0,0,0)CN 0,0,0,0,0,0,0,0,0)HN TYPE OF STRING*RN 0,0,2,0,0,0,2OFSLPI(II,2)(AII!((A166151(XXOASO:15570:u&s@ <=======================================<<<< ADDITIONAL HOT LINES&t@VIEW2ė&~@14);"-HOT LINES-":&@" NAME: TELEPHONE:"&@I13&@LB(I)0&@LPI(I,2)1&@RS$(I,1)""'@I=================<<<< STANDARD FORM: TELEPHONEH% <=======================================<<<< PARAMEDICS SERVICE%>VIEW2ė&>8$: $:C1ĺ9);"-";P0$;"-":$:C2ĺ9);"-";P2$;"-"Y$:XXOPHOC1:INC2:12040:$< <=======================================<<<< POISON CONTROL$+" 8. POISON CONTROL CENTER"H+" 9. PARAMEDICS SERVICE"M+" 10. HOT LI)1)"IF YOU HAVE ANOTHER DATA DISK, PUT IT":Z)"IN THE DISK DRIVE AND TYPE 'Y';":{)"OTHERWISE, PRESS RETURN.";)Y$:)Y$"Y"ġ:10000)* <=======================================<<<< MENU OF DIRECTORY CATEGORIES*X(0)*OR FREE SECTORS(7842(NFS(816)(817)256F(NFS9İ10600:Q)20000W)g) <=======================================<<<< DISK FULL MESSAGEh):8r)"THERE IS NOT ENOUGH SPACE ON YOUR DATA"w)|)"DISK FOR A PHONE DATA FILE."6500}#C111ı#9030e' <=======================================<<<< CREATE PHONE DATA FILEm':yx(10:13("CREATING FILE:":(15:FLN$:(10("PLEASE WAIT A MINUTE"( <=======================================<<<< CHECK FE":UM$"DATA CHANGE MENU":9025W<#VIEW1:P1$"VIEW":UM$"SELECTIVE VIEWING MENU":EC0hA#C1İ20430nF#P#NSP(40(UM$))2:NSP);"-";UM$;"-":d#11000n#C1C119030s#C1Cx#C112000,14000,12500,14500,15000,13000,13500,15500,16000,10ĺ:33000 _ SN0ĺD$"PR#0"&b k&# <=======================================<<<< DATA ENTRY/CHANGE'# <=======================================<<<< SELECTIVE VIEW(#VIEW0:EC1:P1$"ENTER":UM$"DATA ENTRY MENU":90252#VIEW0:EC0:P1$"CHANG12000::C12%14000/::6CA12500K::VC12a14500k::rC}C1215000::C13000:: 13500 ::0 15500: ::N 16000S ::X 16500 ] SN5P1$"VIEW":SN0:80502KC6P1$"PRINT":SN1<L:11kO"PRINTER SLOT NUMBER (DEFAULT=1): ";:SN$PSN$(13)8029QSN(SN$)TSN1SN78012]:^"PUSH RETURN WHEN YOUR PRINTER IS READY";:Y$:hD$"PR#";SNrSN0ė <=======================================<<<< ERASE DIRECTORYIX:10{b"DO YOU WANT TO ERASE YOUR DIRECTORY? ";:Y$gY$"Y"ılD$;"DELETE ";FLN$;DR$? <=======================================<<<< PRINT DIRECTORY@VIEW2JC00,8000,7000,1000 C1İ9000)500q <=======================================<<<< RETURN TO MAIN MENUDR$",D1"ė:10:"INSERT THE APPLE A DAY DISK"::"AND PRESS RETURN";:C$:770,0B$"B"D$;B$;"RUN MAIN MENU,D1"?W4. VIEW SELECTED TELEPHONE NUMBERS":LD" 5. VIEW THE WHOLE DIRECTORY":tN" 6. PRINT THE WHOLE DIRECTORY":X" 7. ERASE AN OLD DIRECTORY":b" 8. RETURN TO THE MAIN MENU":lv33100C1C8500C10000,9000,9010,9020,803L  <=======================================<<<< MAIN PHONE NUMBER MENUR ] X(0) 5);"-HEALTH TELE";TDM$;"-":  " 1. START A NEW DIRECTORY": &" 2. ENTER TELEPHONE NUMBERS": 0" 3. CHANGE TELEPHONE NUMBERS":%:" TTDM$"PHONE DIRECTORY MENU"< ^DR$",D1":DR2DR$",D2"a hRTN13:ESC27:LAR8:RAR21:BEL7k r:: |(4);"NOMON C,I,O" D$(13)(4) FPO0 SPO4 DNO14 VEO18 PHO26 HIO34 ERO39 PCO51 ASO52 HLO5 RA(I,2)0 IG SP$" "f V1$"REGULAR VETERINARIAN" "V2$"24 HOUR VETERINARIAN" ,P0$"NEIGHBORHOOD PHARMACY" 6P2$"24 HOUR PHARMACY" @TP$"( ) - " ELN$",L35" JFLN$"PHONE DATA": STRING LENGTH1 LB(12): IS STRING LABEL?W NA(12,2): RECORD NOT AVAILABLEt LPI(12,2): LINES/ITEM RA(12,2): RETURN ACTION RF(40): FIRST RECORD SL(40): STRING LENGTH ST(40): STRING TYPE I110 LPI(I,1)1,3:806,2389 K807,49:808,3:809,104:810,208:811,241` P812,200:813,208:814,235:815,96f U c <=======================================<<<< PHONE NUMBERS d28000 xRS$(12,2): RESPONSE STRING TYP(12,2): STRING TYPE LN(12,2)9 ! INTEGER *!(PK(770)/2PK1120:7770,1f:784,169:785,0:786,141:787,48:788,3;789,141:790,49:791,3<792,160:793,56:794,185:795,187:796,179A797,10:798,72:799,144:800,8:801,238 F802,48:803,3:804,208:805                                     7000 36020 35050_ _ <=======================================<<<< 80 COLUMN LISTING `(13);(4);"PR#1":(9);"80N":1,32000:(9);"I":(13);(4);"PR#0":I"THE APPROPRIATE ADVICE ON IT. IF YOU",ʌW͌"HAVE A COMPLETE HEALTH ADVICE DISK,"]όҌ"PLEASE PUT IT IN DRIVE ";DR;" AND PRESS"Ԍ׌"RETURN. TO EXIT THE PROGRAM, PRESS ESC."::C$:ڌCH(C$)128܌CHCR5210 挭CHESCĹ216,0:2ESS RETURN TO RESUME.";:C$::216,0:27000 <=======================================<<<< ERROR RECOVERY: ADVICE FILE MISSING780:ER(222)ER8İ28000:5210ER636100:8"THE DISK IN DRIVE ";DR;" DOES NOT HAVE"Ì&Ȍ THE APPLE A DAY HEALTH ADVICE"%ymZ~m"DISK IN DRIVE ";DR;" AND PRESS RETURN.";:C$:`m <=======================================<<<< ERROR RECOVERY: NO DISK OR MENU780:ER(222)ˆER8ER5İ28000:26005+ꈗ:22:"ERROR ";ER;", PRTO MAIN MENUxi:10Fi"INSERT THE APPLE A DAY PROGRAM DISK IN":ni"DRIVE 1 AND PRESS RETURN.";:C$:iD$;B$;"RUN MAIN MENU,D1"i5370_m <=======================================<<<< LOAD ADVICE DISK`mDR(769)jm:10tm"INSERT=========================<<<< PRELOAD MENU ITEMS<e35000YeD$;"OPEN ";MNU$;",D";DRneD$;"READ ";MNU$veNQe216,0eI1NQeITM$(I)eIeD$;"CLOSE ";MNU$eOQ0e wi <=======================================<<<< CHAIN CREENa(RC%PL)ı5a21000:CN%0PTR%PTR%4NaCN%1CN%4CN%5ıXa:23a(QF%0)ĺ"FOR MORE ADVICE, PRESS SPACE BAR...";:RS$a(QF%1)ĺ"TO CONTINUE QUESTION, PRESS SPACE BAR...";:RS$a:aRC%1a0e <==============1 Y25000YX] <=======================================<<<< FIND NEXT COMMANDc]22000x]CH%0ġ::1040](CH%CR)24000]22000]PTR%PTR%1](CH%PERIOD)24000]a <=======================================<<<< NEW S102qR21130vRCMD'RPTR%PTR%27RPTR%PTR%1=RU <=======================================<<<< GET CHARACTER FROM TEXTUCH%(PTR%)UPTR%PTR%1VY <=======================================<<<< PRINT A LINEYYRC%RC% j 8kL 8kL =============<<<< ADVICE RETURN)PF:23UZF"PRESS SPACE BAR TO CONTINUE...";:RS$[dFR <=======================================<<<< PARSE SINGLE FORMAT COMMANDR PTR POINTS TO "." ON ENTRY IF THERE IS ONE R CN% = COMMAND NUMBER IF COMMAN80N":1,50000:(9);"I":(13);(4);"PR#0":NTINUE...";:C$T:\TK <=======================================<<<< ENTER YOUR CHOICETL"ENTER YOUR CHOICE AND PRESS RETURN:";C$TVC(C$)T`T_ <=======================================<<<< 80 COLUMN LISTING,U`(13);(4);"PR#1":(9);"N$RS$(2,2)" "RS$(3,2):32200MS}L10FLN$(RS$(2,2),29L3)" "RS$(3,2)^S}(FLN$)0ıS}(FLN$,1)"A"(FLN$,1)"Z"FLN$(FLN$,(FLN$)1):32210S}S瀲 <=======================================<<<< PRESS ANY KEYT耺"PRESS SPACE BAR TO CO2200R}L2032200)R}L1L32832200MR}L10L30FLN$RS$(2,2):32200\R}L4(FLN$)lR}L1032180R}L1L2L328FLN$(FLN$,L4L3)RS$(2,2)" "RS$(3,2):32200R}FLN$(FLN$,L4L3)(RS$(2,2),29L4)" "RS$(3,2):32200S}L1L2L328FLCH0RS$(NS,2)(RS$(NS,2),CH)6QU}CH0RS$(NS,2)"">Qd}NSJQi}FLN$""]Qn}L1(RS$(1,2))pQx}L2(RS$(2,2))Q}L3(RS$(3,2))Q}L30FLN$RS$(3,2)Q}L1032165Q}L1L329FLN$RS$(1,2)" "FLN$:32165R}FLN$(RS$(1,2),29L3)" "FLN$:3jm:10/Ptm"INSERT YOUR MEDICAL RECORDS DATA"5PymjP~m"DISK IN DRIVE ";DR;" AND PRESS RETURN.";:C$:pPmP| <=======================================<<<< CONCATENATE NAMESP}NS13P(}CH2011P2}(RS$(NS,2),CH,1)" "32080P<}CHQP};". ";S$OZSZ8ĺO(ZI/O-ZD$"CLOSE";FLN$IO2ZNSP2:SZ110NSP1nOCTI$(LAR)I$(RAR)ı[C TA4I$"/"ĺ"/";:AA1iCTI$" "ıCTI$"0"I$"9"I$"":CTC_T <=======================================<<<< PRELOAD MENU ITEMSC`TD$"OPEN ";FLN$;LN$;DR$CjTROR1:CLN1Dt;:AA1$BSA6I$"/"ĺ"/";:AA16BSI$" "21480QBSI$"0"I$"9"I$"":iBSA1I$"1"I$"":BSA4I$"3"I$"":BSA2I$"2"(T$,1,1)"1"I$"":BSA5I$"1"(T$,4,1)"3"I$"":BS#CT <=====================================9"I$"":'ASA1I$"("ĺ"(";:AA1EA SA5I$")"ĺ") ";:AA2bASA6I$" "ĺ" ";:AA1A SA10I$"-"ĺ"-";:AA1A*SAS <=======================================<<<< SKIP SLASHES IN DATESASI$(LAR)I$(RAR)ıBSA3I$"/"ĺ"/"TB$TB$I$@RI$;6@RA(T$)TB$TB$(T$,(T$)A)G@RAA1:T$TB$j@RALGTHLINLPI(II,CLN)21060p@R@R <=======================================<<<< SKIP PARENTHESIS AND DASHES IN TELEPHONE NUMBERS@RI$(LAR)I$(RAR)ı ARI$"0"I$"VE DOWN ONE LINE ?DRYY1:Y:X:?NRRS$(OFSLIN1,CLN)T$L?XRLINLIN1:A1f?bRT$RS$(OFSLIN1,CLN)l?lR?uR <=======================================<<<< PROCESS CHARACTER?vRTB$""?RALGTHLINLPI(II,CLN)ĺ(BEL);:?RA1TB$(T$,A1) @RIN1:ALGTH%>RT$RS$(OFSLIN1,CLN)+>Rr>%R <=======================================<<<< PROCESS RIGHT ARROW>&RA(T$)ALGTHT$T$" ">0RALGTHĖXA:AA1:>:RLINLPI(II,CLN)ĺ(BEL);:??R <=======================================<<<< MO"20890$=QI$(LAR)İ20950:20890A=QI$(RAR)İ21030:20890S=Q21110:20890=Q <=======================================<<<< PROCESS LEFT ARROW=QA1AA1:I$;:=QLIN1ĺ(BEL);:=QYY1:Y:XLGTH1=QRS$(OFSLIN1,CLN)T$ >QLINLP(OFS,CLN)<|QLGTHLN(OFS,CLN))8OIT8OD$;"CLOSE ";FLN$Z8O8O <=======================================<<<< PERSON MENU8O8O8O"PLEASE TYPE THE NUMBER OF THE PERSON"8O"WHOSE RECORDS YOU WISH TO ";P1$:9O 0,0,1,1,0,0,0,0.7UN 0,1,0,2,0,0,1,0,1 C7VN 0,0,9,9,9,9I7\NU7aNRF(1)0`7cNRCT40m7fNI2RCTu7hNRX7kNRF(I)RF(I1)RX7zNI7NI1RCT7NSL(I)7NI7NI1RCT7NST(I)7NI7NI1RCT7NSL(I)0202407NFRRF(I)86.N 0,0,0%64N LENGTH OF STRINGA6>N 15,20,8,8,10,8,7,8,5\6?N 17,19,8,21,20,8,21{6@N 21,8 ,20,8,8,21,8 6AN 8,8,20,8,20,14,5,206BN 8,20,8,8,8,0,0,0,06HN TYPE OF STRING6RN 0,0,1,1,0,1,3,1,06SN 0,0,1,0,0,1,0,07TN ?216005*?14150:X5N <=======================================<<<< CREATE DATA FILEu5 ND$;"OPEN ";FLN$;LN$;DR$5)N NUMBER OF RECORDS5*N 2,1,7,7,4,7,5,5,3,5,105+N 5,10,5,5,10,10,5,5 5,N 5,5,10,5,5,5,5,5 5-N 15,5,5,5,5,10,10,10,104>PL$"RECORD"&4>SZ10:ROHWO:INC114>2295074>`4>8);"-HEIGHT/WEIGHT HISTORY ";C;"-"u4>RS$(1,1)"DATE:"4>RS$(2,1)"HEIGHT:"4>RS$(3,1)"WEIGHT:"4>I134>LPI(I,2)14>I4?Y034 ?XL1:XR184?SZ3:INC10:R10:R2HWOC15 ,2)13 <=======================================<<<< HEIGHT/WEIGHT HISTORY3>VIEW2160603>EC1160303>3>4);"-HEIGHT/WEIGHT HISTORY MENU-":02:RC%RC%ML(ARG%)1:25000:Q ?(CN%3RC%ARG%PL)RC%1::W4?gB <=======================================<<<< PROCESS RESPONSE TO QUESTIONhBRS$rBRS$"QUIT"RS$"Q"RS$"QU"RS$"QUI"ġ:1000 |BRS$"Y"RS$"YE"RS$"Y:T> <=======================================<<<< PROCESS TEXT FORMAT COMMANDS_>ARG%0j>22000~>(CH%SP)16020>(CH%ZEROCH%NINE)ARG%ARG%10(CH%ZERO)>(CH%CR)16020>(CN%2)16160>(RC%ML(ARG%)1PL)RC%0: >R .LA,.SA, OR .QU:210001:(CN%1CN%5)ıM:(CN%4)İ24000:15000W:QF%1c:CT12n:22000:(CH%SP)15040:(CH%CR)ı:(CH%PERIOD)PTR%PTR%1::(CH%COMMA)15090:CC%(CT)CC%(CT)10(CH%ZERO):15040:CTI":(13);(4);"PR#0"::G@K <=======================================<<<< ENTER YOUR CHOICEu@L"ENTER YOUR CHOICE AND PRESS RETURN:";C$@VC(C$)@`@_ <=======================================<<<< 80 COLUMN LISTINGA`(13);(4);"PR#1":(9);"80N":1,50000:(9);"CE DISK?`mDR(769)?jm:10M?tm"INSERT YOUR HEALTH TELEPHONE DIRECTORY"S?ym?~m"DISK IN DRIVE ";DR;" AND PRESS RETURN.";:C$:?m?瀲 <=======================================<<<< PRESS ANY KEY?耺"PRESS SPACE BAR TO CONTINUE...";:C$@--":23070>ZNSP);I;". ";S$+>ZSZ8ĺ2>(ZIF>-ZD$"CLOSE";FLN$`>2ZNSP2:SZ110NSP1>FZ33100>nZC1CSZ1Ģ6:23000>xZCSZ1ġ::>Z?_m <========================================<<<< LOAD ADVI<<<< CHOICE MENU,=YD$"OPEN ";FLN$;LN$;DR$8=YI1SZa=Y(4);"READ ";FLN$;",R";RO(I1)INCm=YS$,T,L=ZNSP2:I10NSP1=ZEC1S$""S$"/ / "CI:D$"CLOSE";FLN$:=ZEC123080=ZS$""S$"/ / "23060 > ZNSP);I;". ---UNUSED- @ Q X   @  $L L! ALL OF YOUR MEDICAL RECORDE FOR EACH FAMILY    rLMEMBER. THIS DATA BASE CAN    rLBE CONTINUALLY UPDATED   LM# (3) ASSEMBLING A COMPLETE LIST OF )   rL~MEDICAL AND HEALTH EMERGENCY a   rLNAMES, ADDRESSES, AND PHO L (1) PROVIDING A LIST OF COMMON    rLHEALTH PROBLEMS AND ADVICE    rL6ON WHEN TO SEE A DOCTOR OR    rL\TAKE OTHER ACTION J  L! (2) PROVIDING A MEDICAL HISTORY m   rLDATA BAS gZ_gLB  5 X I > R T m >  T  >  T  >  T  >  T  > * T  > [ T  >  T  8  > d T Ls THIS PROGRAM WILL KEEP YOU AND R  L$ YOUR FAMILY HEALTHY IN THREE WAYS:       :11050'>+(CH%CR)ĺ(CH%);:11050>H+X(0):CH%(PTR%)jR+(CH%PERIODQF%0)İ23000:CH%(PTR%)\+(CH%PERIOD)11005f+11050: <=======================================<<<< FIND NEXT QUESTION OR ADVICE: IF QUESTION, GET CONTROL COD=======<<<< PRESENT QUESTION OR ADVICED*(CN%1RC%PL5)RC%0:N*NF%0Y*23000d*21000 +(CN%1CN%4CN%5)PTR%PTR%4:+(CN%0)İ16000:11005*+22000/+CH%0ı1+NF%14+(CH%UL(PTR%)BS)PTR%PTR%1:22000::(CH%);:<=======================================<<<< MAIN LOGICAxOF%1T(OF%0)OF%1bTX1OF%~QF%0:CC%(1)0:CC%(2)015000TX11000QF%0İ18000:104017000:OF%CC%(RS%):5260&* <================================ 9) THEN PF = 0:MNU$ = ITM$( Q): GOTO 1030 w <=======================================<<<< INITIALIZE FOR ADVICEFLN$ITM$(Q)<PTR%16384P(QOQ)5220U36000Z(4);"BLOAD ";FLN$;",A$4000,D";DR_216,0d::RC%1:OQQ7n ";Q$ Q(Q$)% Q0QNQ1900. SCN8 1040} k <=======================================<<<< PROCESS MENU ITEM l(PF1QNQ)ī27000 v(PF0QNQ)ī1000 (PF0)5000.  IF(Q = 1 OR Q = 8 OR Q = 9 OR Q = 15 OR Q = 17 OR Q = 1 (MNU$))2);"-";MNU$;"-" L4. VITM1NITMG `NUM(SCN1)NITMITMX jNUMNQ1185q ISP2:NUM10ISP1 ISP);NUM;". ";ITM$(NUM): ITM 22 "TYPE PROBLEM NUMBER AND PRESS RETURN" PF1ĺ"OR PRESS RETURN TO SEE MORE:"; "2)1:ML(3)2:ML(4)1:ML(5)1' 28000h  <=======================================<<<< DISPLAY MENUS MNU$"HEALTH PROBLEMS LIST" PF1 NITM9 26000 NSCN%NQNITM (NQNSCN%NITM)NSCN%NSCN%1 SCN1NSCN%  $(38CH% J I2 MSG$(1)"DO THE FOLLOWING:"N "MSG$(2)"SEE A DOCTOR." ,MSG$(3)"SEE A DOCTOR IMMEDIATELY OR GO TO THE EMERGENCY ROOM." 6MSG$(4)"SEE A DOCTOR IMMEDIATELY." @MSG$(5)"GO TO THE EMERGENCY ROOM IMMEDIATELY." JML(1)1:ML(0: PAGE LENGTH ZESC155G d 204,193,205,211,206,197: .LA,.MS,.NEg n 209,213,211,193: .QU,.SA x780,104:781,168:782,104:783,166:784,223:785,154:786,72:787,152:788,72:789,96 NC%5 I1NC% J12 CH% CL%(I,J)B <=======================================<<<< APPLE A DAY 1N D$(4)YB$"B"gITM$(60)(CL%(5,2),MSG$(5),CC%(2),ML(5)2CR141:SP160:COMMA172:DASH173:PERIOD174<UL223:BS136: UNDERLINE, BACKSPACEFZERO176:N9185 PPL2     JL LL NL PL RL TL VL XL ZL 8 L 8"L 8$L RUN HEALTH RECORD.START   h  $L     LRUN PHONE NUMBERS    >  T  >  T  8LcLc@ LdLd2L 4L 6Ld;Ld@LdELdY   L 4. EXIT PROGRAM    r 'L TYPE 1, 2, 3, OR 4 THEN RETURN:       e h  ( \ h   L h  $L q > z T    LRUN APPLE A DAY 0 t  h  $L    Lf %%LB      X  rL -MAIN MENU-    r wL&SELECT YOUR OPTION:   sLP 1. HEALTH ADVICE :  Ly 2. MEDICAL RECORDS a  L" 3. HEALTH TELEPHONE DIRECTOR   Gwi <=======================================<<<< CHAIN TO MAIN MENUQxi:10i"INSERT THE APPLE A DAY PROGRAM DISK IN":i"DRIVE 1 AND PRESS RETURN.";:C$:iD$;B$;"RUN MAIN MENU,D1"i5370_m <======================================AR...";:RS$c:cRC%1$cke <=======================================<<<< PRELOAD MENU ITEMSwe35000eD$;"OPEN ";MNU$;",D";DReD$;"READ ";MNU$eNQe216,0eI1NQeITM$(I)eIeD$;"CLOSE ";MNU$eOQ0e===================<<<< NEW SCREEN3a(RC%PL)ıRa21000:CN%0PTR%PTR%4kaCN%1CN%4CN%5ıxa25500:cNF%025530c:23c(QF%0)ĺ"FOR MORE ADVICE, PRESS SPACE BAR...";:RS$ c(QF%1)ĺ"TO CONTINUE QUESTION, PRESS SPACE BRINT A LINEYYRC%RC%1*Y250000Yu] <=======================================<<<< FIND NEXT COMMAND]22000]CH%0ġ::1040](CH%CR)24000]22000]PTR%PTR%1](CH%PERIOD)24000]"a <====================D nR22000 pR(CH%SP)21102+qR211304vRCMDDRPTR%PTR%2TRPTR%PTR%1ZRU <=======================================<<<< GET CHARACTER FROM TEXTUCH%(PTR%)UPTR%PTR%1V Y <=======================================<<<< PN% = COMMAND NUMBER IF COMMAND; 0 IF NOT\R IF NO COMMAND, PTR IS RESTORED TO ENTRY VALUEfRCN%0qR22000R(CH%PERIOD)21130&R22000+ROC%CH%0R22000:RCMD1NC%DR(OC%CL%(CMD,1))21110bR(CH%CL%(CMD,2))21110lRCN%CM <=======================================<<<< ADVICE RETURNFPF:23rZF"PRESS SPACE BAR TO CONTINUE...";:RS$xdFR <=======================================<<<< PARSE SINGLE FORMAT COMMANDR PTR POINTS TO "." ON ENTRY IF THERE IS ONE(R C(37)kBCH37İ23000'mB" ? ";RS$ZrBRS$"QUIT"RS$"Q"RS$"QU"RS$"QUI"ġ:1000|BRS$"Y"RS$"YE"RS$"YES"RS%1:17070BRS$"N"RS$"NO"RS%2:17070B37,CV1::36,CH:868B17000BRC%RC%1BRC%PLė::RC%1B<OF16160'>(RC%ML(ARG%)1PL)RC%0:7>MSG$(ARG%)^>:RC%RC%ML(ARG%)1:25000:16170 ?(CN%3RC%ARG%PL)İ25500*?CH%0ġ:18000:10404?gB <=======================================<<<< PROCESS RESPONSE TO QUESTIONhBCH(36):CVC%(CT)10(CH%ZERO):15040':CT-:}> <=======================================<<<< PROCESS TEXT FORMAT COMMANDS>ARG%0>22000>(CH%SP)16020>(CH%ZEROCH%N9)ARG%ARG%10(CH%ZERO)>CH%CRCH%016020>(CN%2)ES:: ON EXIT, PTR POINTS TO AFTER .LA,.SA, OR .QUE:21000Z:(CN%1CN%5)ıv:(CN%4)İ24000:15000:QF%1:CT12:22000:(CH%SP)15040:(CH%CR)ı:(CH%PERIOD)PTR%PTR%1::(CH%COMMA)15090:CC%(CT)CLcLc L L L L L 8L 8L HYSICIAN.   s  LPRESS ANY KEY TO CONTINUE...         L$RUN APPLE A DAY 1   Lc      LLPR#1 G    Lg80N c    LI ~       LPR#0   L' WITH THE ADVICE OFFERED BY THIS   L' PROGRAM, FOLLOW YOUR PHYSICIAN'S   LF' ADVICE.   L' IF YOU HAVE ANY DOUBTS OR SPECIAL W  L' QUESTIONS, ALWAYS CONSULT A PN LB    8 L# THE INFORMATION IN THE APPLE-A-DAY   L5 PROGRAM IS DESIGNED TO PROVIDE   Lh$ GUIDANCE ON COMMON HEALTH PROBLEMS. C  wL' IF YOUR PHYSICIAN'S ADVICE CONFLICTS |    =============<<<< ADVICE RETURN)PF:23UZF"PRESS SPACE BAR TO CONTINUE...";:RS$[dFR <=======================================<<<< PARSE SINGLE FORMAT COMMANDR PTR POINTS TO "." ON ENTRY IF THERE IS ONE R CN% = COMMAND NUMBER IF COMMAN" ? ";RS$=rBRS$"QUIT"RS$"Q"RS$"QU"RS$"QUI"ġ:1000j|BRS$"Y"RS$"YE"RS$"YES"RS%1:17070BRS$"N"RS$"NO"RS%2:17070B37,CV1::36,CH:868B17000BRC%RC%1BRC%PLė::RC%1BOF <==========================RC%0:>MSG$(ARG%)>>:RC%RC%ML(ARG%)1:25000:16170b ?(CN%3RC%ARG%PL)RC%1::|*?CH%0ġ:18000:10404?gB <=======================================<<<< PROCESS RESPONSE TO QUESTIONhBCH(36):CV(37)kBCH37İ23000 mB:CT :]> <=======================================<<<< PROCESS TEXT FORMAT COMMANDSh>ARG%0s>22000>(CH%SP)16020>(CH%ZEROCH%N9)ARG%ARG%10(CH%ZERO)>CH%CRCH%016020>(CN%2)16160>(RC%ML(ARG%)1PL) AFTER .LA,.SA, OR .QU%:21000::(CN%1CN%5)ıV:(CN%4)İ24000:15000`:QF%1l:CT12w:22000:(CH%SP)15040:(CH%CR)ı:(CH%PERIOD)PTR%PTR%1::(CH%COMMA)15090:CC%(CT)CC%(CT)10(CH%ZERO):15040CR)ĺ(CH%);:11050*H+X(0):CH%(PTR%)JR+(CH%PERIODQF%0)İ23000b\+(CH%PERIOD)11005mf+11050: <=======================================<<<< FIND NEXT QUESTION OR ADVICE: IF QUESTION, GET CONTROL CODES: ON EXIT, PTR POINTS TO =======<<<< PRESENT QUESTION OR ADVICED*(CN%1RC%PL5)RC%0:O*23000Z*21000 +(CN%1CN%4CN%5)PTR%PTR%4:+(CN%0)İ16000:11005*+22000/+CH%0ı4+(CH%UL(PTR%)BS)PTR%PTR%1:22000::(CH%);::11050>+(CH%<=======================================<<<< MAIN LOGICAxOF%1T(OF%0)OF%1bTX1OF%~QF%0:CC%(1)0:CC%(2)015000TX11000QF%0İ18000:104017000:OF%CC%(RS%):5260&* <================================ 9) THEN PF = 0:MNU$ = ITM$( Q): GOTO 1030 w <=======================================<<<< INITIALIZE FOR ADVICEFLN$ITM$(Q)<PTR%16384P(QOQ)5220U36000Z(4);"BLOAD ";FLN$;",A$4000,D";DR_216,0d::RC%1:OQQ7n ";Q$ Q(Q$)% Q0QNQ1900. SCN8 1040} k <=======================================<<<< PROCESS MENU ITEM l(PF1QNQ)ī27000 v(PF0QNQ)ī1000 (PF0)5000.  IF(Q = 1 OR Q = 8 OR Q = 9 OR Q = 15 OR Q = 17 OR Q = 1 (MNU$))2);"-";MNU$;"-" L4. VITM1NITMG `NUM(SCN1)NITMITMX jNUMNQ1185q ISP2:NUM10ISP1 ISP);NUM;". ";ITM$(NUM): ITM 22 "TYPE PROBLEM NUMBER AND PRESS RETURN" PF1ĺ"OR PRESS RETURN TO SEE MORE:"; "2)1:ML(3)2:ML(4)1:ML(5)1' 28000h  <=======================================<<<< DISPLAY MENUS MNU$"HEALTH PROBLEMS LIST" PF1 NITM9 26000 NSCN%NQNITM (NQNSCN%NITM)NSCN%NSCN%1 SCN1NSCN%  $(38C$: ڌCH(C$)128% ܌CHCR5210? 挭CHESCĹ216,0:27000J 36020U 35050 _ <=======================================<<<< 80 COLUMN LISTING `(13);(4);"PR#1":(9);"80N":1,50000:(9);"I":(13);(4);"PR#0":8/"THE DISK IN DRIVE ";DR;" DOES NOT HAVE"5ÌaȌ"THE APPROPRIATE ADVICE ON IT. IF YOU"gʌ͌"HAVE A COMPLETE HEALTH ADVICE DISK,"όҌ"PLEASE PUT IT IN DRIVE ";DR;" AND PRESS"Ԍ ׌"RETURN. TO EXIT THE PROGRAM, PRESS ESC."::)ˆER8ER5İ28000:26005fꈗ:22:"ERROR ";ER;", PRESS RETURN TO RESUME.";:C$::216,0:27000 <=======================================<<<< ERROR RECOVERY: ADVICE FILE MISSING780:ER(222)ER8İ28000:5210ER636100:=<<<< LOAD ADVICE DISK$`mDR(769).jm:10Ztm"INSERT THE APPLE A DAY HEALTH ADVICE"`ym~m"DISK IN DRIVE ";DR;" AND PRESS RETURN.";:C$:m <=======================================<<<< ERROR RECOVERY: NO DISK OR MENU780:ER(2227000 36020 35050_ _ <=======================================<<<< 80 COLUMN LISTING `(13);(4);"PR#1":(9);"80N":1,32000:(9);"I":(13);(4);"PR#0":"THE APPROPRIATE ADVICE ON IT. IF YOU",ʌW͌"HAVE A COMPLETE HEALTH ADVICE DISK,"]όҌ"PLEASE PUT IT IN DRIVE ";DR;" AND PRESS"Ԍ׌"RETURN. TO EXIT THE PROGRAM, PRESS ESC."::C$:ڌCH(C$)128܌CHCR5210 挭CHESCĹ216,0:2ESS RETURN TO RESUME.";:C$::216,0:27000 <=======================================<<<< ERROR RECOVERY: ADVICE FILE MISSING780:ER(222)ER8İ28000:5210ER636100:8"THE DISK IN DRIVE ";DR;" DOES NOT HAVE"Ì&Ȍ THE APPLE A DAY HEALTH ADVICE"%ymZ~m"DISK IN DRIVE ";DR;" AND PRESS RETURN.";:C$:`m <=======================================<<<< ERROR RECOVERY: NO DISK OR MENU780:ER(222)ˆER8ER5İ28000:26005+ꈗ:22:"ERROR ";ER;", PRTO MAIN MENUxi:10Fi"INSERT THE APPLE A DAY PROGRAM DISK IN":ni"DRIVE 1 AND PRESS RETURN.";:C$:iD$;B$;"RUN MAIN MENU,D1"i5370_m <=======================================<<<< LOAD ADVICE DISK`mDR(769)jm:10tm"INSERT=========================<<<< PRELOAD MENU ITEMS<e35000YeD$;"OPEN ";MNU$;",D";DRneD$;"READ ";MNU$veNQe216,0eI1NQeITM$(I)eIeD$;"CLOSE ";MNU$eOQ0e wi <=======================================<<<< CHAIN CREENa(RC%PL)ı5a21000:CN%0PTR%PTR%4NaCN%1CN%4CN%5ıXa:23a(QF%0)ĺ"FOR MORE ADVICE, PRESS SPACE BAR...";:RS$a(QF%1)ĺ"TO CONTINUE QUESTION, PRESS SPACE BAR...";:RS$a:aRC%1a0e <==============1 Y25000YX] <=======================================<<<< FIND NEXT COMMANDc]22000x]CH%0ġ::1040](CH%CR)24000]22000]PTR%PTR%1](CH%PERIOD)24000]a <=======================================<<<< NEW SȠˠˍ .  LPR#1   7  L80N   7  LI   @   .  LPR#0   LcLc &L (L *L ,L EESE   L%RECORDS AT ANY TIME AND YOU CAN PRINT   L THEM OUT SO THAT YOU WILL HAVE A   L6PERMANENT PAPER COPY.    I LbPLEASE WAIT A MINUTE... J  .  LBRUN HEALTH RECORD.MAIN |  Lc @   HELP YOU KEEP ACCURATE AND CURRENT   L MEDICAL RECORDS FOR YOU AND YOUR   LFAMILY.    LL&APPLE A DAY ALLOWS YOU TO KEEP MEDICAL %  LzRECORDS FOR EACH MEMBER OF YOUR Z  L&FAMILY. YOU CAN REVIEW OR ADD TO TH QQQQ X L&MANY PEOPLE KEEP FINANCIAL RECORDS BUT   L0'HAVE VERY LITTLE DATA ON SOMETHING MUCH   Lf'MORE PRECIOUS THAN MONEY: THEIR HEALTH. >  L$THIS PART OF THE APPLE A DAY PROGRAM t  L'WILL   g 5 % L%L%YOU CANNOT USE A BLANK FILENAME %  ]L# g L&OPEN FAMILY NAMES,L50 %  g  e G ` ` c Lp& g L\&WRITE FAMILY NAMES,R0 F&  c ^ g L&READ FAMILY NAMES,R0 y&  '  h d b }c a d Zb c a Q d b Ac a Ac g a  ~ b ` ]b ;` }c a }c _ _ lf e o }c _ _ f c o FE c  lg L% }c _ _ wf ~b >c b }c _ _ wf a a 1 gL% X d  PZL% LJ# _` Kb Nb  ,1Z2D4579;g= Nb pd $`LJ# X c ` sd L$-FAMILY MEMBER'S NAME- #  Ac _ Ac gL?$ FIRST NAME 4$ o Ac _ }c gLb$ MIDDLE NAME V$ o Ac _ c gL$ LAST NAME y$ o Ac >h c  ~ }c _ ub gL$RY MENU " gL9# c `L"CHANGE " g c RaL"DATA CHANGE MENU " gL9# Ac `L #VIEW # gL+#SELECTIVE VIEWING MENU # g c Ra _` ;c LJ# A X g  7d n c c i b b Lp#- n#  g L#- #  * _` ;c ( _ _` pd g~ 5 1 g Ac g c  ~ 7 1 g Ac g c  ~ 9 1 g Ac g c  ~ ; 1 g Ac g sd  ~ g= 1 g ` c $L[" ] ` c L" g Lw"PR#0 r"  ` c `L"ENTER " g Ac RaL"DATA ENTAULT=1):    f d  f L f  ` ` ;c ( _ ` c g L L-!&PUSH RETURN WHEN YOUR PRINTER IS READY !   g g LK!PR# G!  ` ^ ` c $Lm! X , 1 Z2 D4 Ac g c  &g  1 6h Ac pa sa g LWRITE FAMILY NAMES,R0   va ^ g L CLOSE FAMILY NAMES   sd \`` }c ` _` c $LQ LC VIEW > g c ` _` c $Lv Lh PRINT b g Ac ` A ` c $L\! X d L !PRINTER SLOT NUMBER (DEF   gLY f 5  ` g LDELETE   g  g  g LOPEN FAMILY NAMES,L50   _` ma $L _` >c 6h va  ~ g L`READ FAMILY NAMES,R L  Bb ^ '  (g  g LWRITE FAMILY NAMES,R   Ac  c TL B  f g  f LHRUN MAIN MENU,D1 7  LcL_ERASE Y g A X sd LDO YOU WANT TO ERASE FILE: v  g L ? ECORDS FOR A FAMILY   L MEMBER   L ! 7. ERASE A FAMILY MEMBER'S FILE   L: 8. RETURN TO THE MAIN MENU   ^ _` ;c ( _ _` d g L% _` #"""' ' V _` ;c $L "L%L,D1 g 5  ER'S DATA   L" 3. CHANGE A FAMILY MEMBER'S DATA   L 4. VIEW SELECTED RECORDS FOR A   L< FAMILY MEMBER )  Lp" 5. VIEW ALL RECORDS FOR A FAMILY M  L MEMBER ~  L# 6. PRINT ALL R L NOMON C,I,O   d  f c  f  g c b sd ` Ke ,` &f a Ud b e _ c b d ` fe (a e ` ^d a X  8` gd L9- 7  Xg LL- J  L! 1. START A FAMILY MEMBER'S FILE `  L! 2. ENTER A FAMILY MEMB1 >hL(  fLMEDICAL RECORDS MENU  ZgL ,D1  g b wc $L0L(,D2 $ gL8,L35 3 2gLL / / C gLf( ) - W gLy / q Fg d t` f b d _ e b c ` s X c  d T Jc > d T nc > e T c > c T c > e T c > c T c > d T c > 9e T d > c T Ld > %d T |d > e T d > Be T d > .d T d > e T d > d T d > )c T  e  ] Y Ac >h sd  ~ Ac _ ub yf Ac o }c _ ub f c o P ?kgjk ec D fb ib ;c $Lv ec > Ac T d > Cd T 0e > c T ]e > d T xe > e T e > c T e > d T e > 9e T e > c T e > c T e > e T e > e T e > f T f > e T /f > sd T Df > d T Vf > e T c >                          L$` J HM L% X _N L%-FAMILY PHYSICIAN- %  L L M J %` M _ M PQL&NAME:  & o M _ NM PQL3&ADDRESS: *& o M _ oM PQLU& TELEPHONE: J& o M mL NM K N FL L J L J oM K NM _ M )P M o NM _ NM )P NM o NM _ $  L$ 6. HEALTH INSURANCE $  L$ 7. EMERGENCY ROOM $  L% 8. POISON CONTROL CENTER $  L@% 9. PARAMEDICS SERVICE (%  L]% 10. HOT LINES N%  L{% 11. RETURN TO k%  eQ  ~H J M ( J J \N Q AND TYPE 'Y'; #  L#OTHERWISE, PRESS RETURN. #   P L#Y P 5 # L$ { LP"`  JL2$ 1. FAMILY PHYSICIAN $  LQ$ 2. SPECIALISTS @$  Ll$ 3. DENTIST _$  L$ 4. VETERINARIANS z$  L$ 5. PHARMACIES MINUTE "  N 8 N D I O D M I _K bK )N (L" "` F2` X M L$#&THERE IS NOT ENOUGH SPACE ON YOUR DATA "  LQ#DISK FOR A PHONE DATA FILE. 5#  L#%IF YOU HAVE ANOTHER DATA DISK, PUT IT b#  L#IN THE DISK DRIVE L! 4 X P  N n c `M i L L L!- !  P L!- !  $ J M ( J J \N Q L! J 7L :L  %M*j',-'(/T00 :L \N $`L! X 8N  N Lt"CREATING FILE: e"  N  0Q  8N L"PLEASE WAIT A 0 {J L $L JH {J L L P L PR#0   ` L J M kKL!ENTER  {QL!DATA ENTRY MENU ! PL! L J L kKL@!CHANGE 9! {QL\!DATA CHANGE MENU K! PL! M JLu!VIEW p! {QL!SELECTIVE VIEWING MENU ! P L kK J M YOUR PRINTER IS READY    P P LPR#   {J ^ {J L $L X % M Q NM  ~ M* 1 Q j' M Q NM  ~ , 1 Q M Q NM  ~ - 1 Q ' ( / T0 ELETE   0Q  :Q  ` NM J J M $LLVIEW  {Q L xJL J M $LLPRINT  {Q M xJ X _N LJ!PRINTER SLOT NUMBER (DEFAULT=1): (   P N  P L P  uJ {J M ( J {J M Q L L&PUSH RETURN WHEN 8N LINSERT THE APPLE A DAY DISK   LAND PRESS RETURN    P 6M > L TLB  P P  P L=RUN MAIN MENU,D1 ,  Lc X 8N L}%DO YOU WANT TO ERASE YOUR DIRECTORY? W   PLY P 5  ` P LD L 6. PRINT THE WHOLE DIRECTORY   L 7. ERASE AN OLD DIRECTORY   L0 8. RETURN TO THE MAIN MENU   ~H J M ( J J M Q L J P" *!g!K J M $L LL,D1 :Q 5  L X L-   L 1. START A NEW DIRECTORY   L 2. ENTER TELEPHONE NUMBERS   L@ 3. CHANGE TELEPHONE NUMBERS "  Lv$ 4. VIEW SELECTED TELEPHONE NUMBERS Q  L 5. VIEW THE WHOLE DIRECTORY  MENU  gQL,D1   N T ?M > N T xM > oM T M > N T M > oM T M > N T M > O T M > oM T N > M T AN > N T JN > O T hN > N T N > N T N > SN T N > M T  G M Q 8N  ~ M _ aL )P M o NM _ aL CP L o 1 QL( 9 2UQTU 6M D RL UL M $Lm 6M > M T N > N T N > L T O > zN T .O > N T IO > oM T [O > zN T vO > O T O > oM T O > L T O > O T O > O T O > O T O > 7O T O > 8N T O > M T P > N T L >                       L ,-` Leh8PhHQH`hbihciHHb\ȱb]`ߚl hhHHHH`L⥠`ʆ  hdheHdHHHH08  X Xhdhe + eHdHHHeHdH`   q% 0 L0`,wyywxzzx,Hyw wȄffȪ yw fh0`h&Hwyxzwy wy h Lh` ` ` ` 憅` ` ᥠQP` L  8e`LԩLcغh8uhHvH` L L L~ 憅 L ʊ8$!  W$Li)$` LY L   hPhQP 8ePQiHHš`hh PȱPʘHH` ,խwqq膸 J즸 , hhlP,q`h8uhv] :  ڢ hgʆbcb KLf/q ߠ :۩q` S0 L,Hh*Mȱڦhwx%ȱH J hwУ8 ewwx𴰺 抦5?wtsʆwx8dedЕБt Z Z ,խvqq ", ȹ,ȹ ,W,qewix8 Z ZCBw U  yUUwyVxz`ЗПwyxz`ywzx`GH o8 UpVUVƠ UVUʆoph3]eФk ЮU 4Г U 5,wЅƩѤ wU! 5Bē唐\tsʆbc83o񁪥pTopȆbcĂbUVdf0Ѓe8oph0L8 MLh8HH`BUUȥViлh8HH`З{y SՠUEowyywxzzxwIy:e \`hH,Hops8otpf,k8UlV*U$f&łkUŁdbUȥcUUŭSVŮKsłEUŁ< UV0ЅUŕȱU喰!0UUdUV0+UiUVmVn̢͊wUV0ЦyyUUݤh.QP$  e LWHhL:5~    eȱeLaL LRwwxȆwxwHw Jhw`w5U,w`,hbhcbwȱbxcȘHH`wȄ wep`0CBe]Q=b`LicbbbE0`Ġ``MMLeڢD ! SL3LH h%LddЉ`?0 HH chh ޥ Yަ`н  eE   ࠰>Ffee0  &ߢEX$ƫv` ꥪLYDcbbwyȱbxz`ݥܦL+3UV UwȱUx`wUȥxU`Ncbbȱb`cbbȥb`cbbȱb8塅堅PEncbbȱbe HH`0S,,hdehUhVhhHHU hehHehUU HHk`UiȱUiuкe& & &eeHHqUȥqUeFdO݅܆`ycbbȱbƫ8pM䡥UȥUU +뺠ЧUV욥VHUHthhЁ HHf ㈱ۺQi e 纼 +뺊i  e HH`iiiHH`(bcbebbePE1b]  0  j=i<<=kbޙץ,,stHʈcbhH ʈpoophMm X RQtPsh`bhH                  (0./(0 u,  g.LB  I. , + , ) , * , * - * - * - * #- n* ,- ) , d+ 5- +L:204193205211206197=LP209213211193 w- > >- T - > G- T - > >- T - > , T - > . T - > - T - > P- T - >         ICE DISK, '  L'PLEASE PUT IT IN DRIVE '  + aL' AND PRESS '  L3('RETURN. TO EXIT THE PROGRAM, PRESS ESC.  (   ]. [.  , n G* J* + $L J* + $L( - > + TL%L 'Ly& -   u,  L(PR#1 (  TO RESUME. &   ]. - > + TL% w- 8 . D n + + , $L& %L + i, L( X Y- L*'THE DISK IN DRIVE '  + aLJ' DOES NOT HAVE ;'  L'$THE APPROPRIATE ADVICE ON IT. IF YOU ['  L'#HAVE A COMPLETE HEALTH ADVa 3, D n + X n- L%$INSERT THE APPLE A DAY HEALTH ADVICE %  L &DISK IN DRIVE %  + aL/& AND PRESS RETURN. &   ]. ` w- 8 . D n + + , $ ) + ], $. Ly& %LR$ X - L&ERROR &  + aL&, PRESS RETURN .+  - > + T , / 1+   ' + >.  o  1 / e. L$CLOSE $  .  + +` X n- LD%&INSERT THE APPLE A DAY PROGRAM DISK IN %  Lo%DRIVE 1 AND PRESS RETURN. U%   ]. e.  G. L%RUN MAIN MENU,D1 %  L -  U+ + $L#L##FOR MORE ADVICE, PRESS SPACE BAR... #   S. U+ , $L@$L2$(TO CONTINUE QUESTION, PRESS SPACE BAR...  $   S. X , F+` 7A& e. La$OPEN [$  . Lu$,D r$  + a e. L$READ $  .  '  * + " * ) $L"L" 1 . ?, ) ) , ) )` ) D * ) , )` I+ , F+ D#` " * + $L# { { L * + L# " , ) ) * * L#` C+ ^+ &` D" + + Lj# u, ) ) + , $ ) + r, $.  ) + , $. ` #` V* + $L@$ L! ?, *L! , > *, + Q , > J* Q , 8Li I+ , F+ C+ ^+ L " X , F+` - L5"PRESS SPACE BAR TO CONTINUE... "   S.` + + " * * L" " * b* " , . 5*   , _ * /. _* L" ?, _ * /. * L" QUITL QL QUL QUI Q. 5   ) Q. 5  .  ) Q. 5  .  ) Q. 5  . L"! { LDL'!YL-!YEL4!YES Q. 5 %!  ) Q. 5 *! .  ) Q. 5 0! . L~! , *L!L!NL!NO Q. 5 !  ) Q. 5 ! . * z* ) * * +  ) * + . Lp + <, L( * $. =+ ', ^+ L + F+ X * o.  * $. =+ ', @+ D#LQ + Q, $ ) I+ * n ^+ . LQ # * + $Lh { "L` , D n G* , D n + J* , L " 'L  ?   S. LD" + , $ ) + , $. ` + r, L #L , R+ , #/ ?,   " * ) $L * + $` * * $L, , ) )` * * $Ld v+ . v+ . k- ) q* z* ) o L 1 #/` + * " * ) $Lp * k*  ) * ) &. L * k- ) qr, $.  ) + , $. L u, ) )` + + L jL " * + $` , S* * * $ ) ) D n * $. LE ) , ) " w *   sL * + L_ *  L  ) ) D * * *  ) U+ + $. L " ) D * * * $LL L ,A$4000,D   + a - > + T X , F+ * + , * * + $L , * , . *   + R+ , . + o ?, . + o  1 . d U+ + $LR "L i * . *LLc + , $ ) `, a+ :+ (. L + F+ X + S* " D" + , $ ) + OR PRESS RETURN TO SEE MORE:   'L   |.  z.  * * +  ) * ++ &. L 1 /L * $, $ ) * ++ $. L% * + $ ) * ++ $. LD * + $Lh * <. . , ) * + $L 7& u,  LBLOAD   . .  , n c H, i L-   . L-   u,  , . *   *, m+ * >* + + ++ Ld H, &* + , L3 *, &* )*  + aLE. B  + <.  1 . - L$TYPE PROBLEM NUMBER AND PRESS RETURN m  * $, $LLSEE A DOCTOR IMMEDIATELY.  o , q.L%GO TO THE EMERGENCY ROOM IMMEDIATELY.  o , &. *, o ?, &. *, o T, &. H, o u, &. *, o , &. *, o %L\HEALTH PROBLEMS LIST G . *, * ~, * M$ * (+ + + * ++ L + , + , / +   X - T - > P- T - > + T c , 2* , / 5*   , (/ ?,    }* + \ + 1. * o 1 (/ 1 / , q.L3DO THE FOLLOWING: ! o ?, q.LR SEE A DOCTOR. D o T, q.L7SEE A DOCTOR IMMEDIATELY OR GO TO THE EMERGENCY ROOM. c o u, q.L b-  L(80N (  b-  L(I (  -   u,  L(PR#0 (  LcLc`@ @ $d %& ,-._09hH   )   (  L%PR#0 %  LcLc@  p$d %& ,-._09 *JL *LLd*QLd*VL *XLd*]Ld*bLd i( '(` X ) L$&INSERT THE APPLE A DAY PROGRAM DISK IN $  L%DRIVE 1 AND PRESS RETURN. $   * *  ) LD%RUN MAIN MENU,D1 3%  L )   (  Ll%PR#1 g%  )  L%80N %  )  L%I %  * ' {( $L#L#(TO CONTINUE QUESTION, PRESS SPACE BAR... #   * X ( '` * L$OPEN  $  6* L%$,D "$  ( a * LE$READ ?$  6*  '  '  ( * '   ' ' )  o  1 * * L$CLOSE $  6*  ) ' L" a' ' " ' & $L"L" 1 * ( }& & ( }& &` & D ' ' Z( $L# { { "L & ~( &` ' ~( ' U#` " ' ' L)# " ' =' L)# ( }& &` ' ' &` )  ' Z( $L#L##FOR MORE ADVICE, PRESS SPACE BAR... {#   NO * 5 !  h& * 5 ! L* L! ( &` 8) > ( N( Q ( > & Q ) 8L ) L5"PRESS SPACE BAR TO CONTINUE... "   *` ]( ' " ' ' $LJ" ' =' L" " ' & " ( * &   ( _ a' ) & L" ( _ a' )L )L )L )L )L )L )L )L )L )L )L )L 8  M/8  S/8  q/8  /<80L 80L 80L 80L 8  080#L 80%L 80'L )LLd)QL )SL )UL )WL )YLd)^Ld)cLd)hLd)mLd)rLd)wLd)|Ld)Ld)Ld)Ld)L )L )L )L )L )L )L )L )L )L )L )L/7L /9Ld/>Ld/CLd/HLd)L )L )Ld)L )L )L )Ld)"L )$L )&Ld)+L )-Ld)2Ld)7L )9Ld)>Ld)CL )EL )GLd.Ld.L .Ld.Ld.L .Ld.Ld/L /Ld/ Ld/Ld /L /L /Ld/Ld/#Ld/(Ld/-Ld/2Ldߢ.L .Ld.Ld.L .Ld.Ld.Ld.L .Ld.Ld.L .Ld.Ld.L .L .Ld .L .Ld.Ld======================<<<< ADVICE RETURN2PF:23^ZF"PRESS SPACE BAR TO CONTINUE...";:RS$ddFR <=======================================<<<< PARSE SINGLE FORMAT COMMANDR PTR POINTS TO "." ON ENTRY IF THERE IS ONER CN% = COMMAND NUMBER 3000mB" ? ";RS$FrBRS$"QUIT"RS$"Q"RS$"QU"RS$"QUI"ġ:1000s|BRS$"Y"RS$"YE"RS$"YES"RS%1:17070BRS$"N"RS$"NO"RS%2:17070B37,CV1::36,CH:868B17000BRC%RC%1BRC%PLė::RC%1B(OF <=================ARG%)1PL)RC%0:#>MSG$(ARG%)J>:RC%RC%ML(ARG%)1:25000:16170k ?(CN%3RC%ARG%PL)İ25500*?CH%0ġ:18000:10404?gB <=======================================<<<< PROCESS RESPONSE TO QUESTIONhBCH(36):CV(37)kBCH37İ2 :15040:CT:i> <=======================================<<<< PROCESS TEXT FORMAT COMMANDSt>ARG%0>22000>(CH%SP)16020>(CH%ZEROCH%N9)ARG%ARG%10(CH%ZERO)>CH%CRCH%016020>(CN%2)16160>(RC%ML(R POINTS TO AFTER .LA,.SA, OR .QU1:21000F:(CN%1CN%5)ıb:(CN%4)İ24000:15000l:QF%1x:CT12:22000:(CH%SP)15040:(CH%CR)ı:(CH%PERIOD)PTR%PTR%1::(CH%COMMA)15090:CC%(CT)CC%(CT)10(CH%ZERO)CR)ĺ(CH%);:11050*H+X(0):CH%(PTR%)VR+(CH%PERIODQF%0)İ23000:CH%(PTR%)n\+(CH%PERIOD)11005yf+11050: <=======================================<<<< FIND NEXT QUESTION OR ADVICE: IF QUESTION, GET CONTROL CODES&: ON EXIT, PT=======<<<< PRESENT QUESTION OR ADVICED*(CN%1RC%PL5)RC%0:O*23000Z*21000 +(CN%1CN%4CN%5)PTR%PTR%4:+(CN%0)İ16000:11005*+22000/+CH%0ı4+(CH%UL(PTR%)BS)PTR%PTR%1:22000::(CH%);::11050>+(CH%<=======================================<<<< MAIN LOGICAxOF%1T(OF%0)OF%1bTX1OF%~QF%0:CC%(1)0:CC%(2)015000TX11000QF%0İ18000:104017000:OF%CC%(RS%):5260&* <================================ 9) THEN PF = 0:MNU$ = ITM$( Q): GOTO 1030 w <=======================================<<<< INITIALIZE FOR ADVICEFLN$ITM$(Q)<PTR%16384P(QOQ)5220U36000Z(4);"BLOAD ";FLN$;",A$4000,D";DR_216,0d::RC%1:OQQ7n ";Q$ Q(Q$)% Q0QNQ1900. SCN8 1040} k <=======================================<<<< PROCESS MENU ITEM l(PF1QNQ)ī27000 v(PF0QNQ)ī1000 (PF0)5000.  IF(Q = 1 OR Q = 8 OR Q = 9 OR Q = 15 OR Q = 17 OR Q = 1 (MNU$))2);"-";MNU$;"-" L4. VITM1NITMG `NUM(SCN1)NITMITMX jNUMNQ1185q ISP2:NUM10ISP1 ISP);NUM;". ";ITM$(NUM): ITM 22 "TYPE PROBLEM NUMBER AND PRESS RETURN" PF1ĺ"OR PRESS RETURN TO SEE MORE:"; "2)1:ML(3)2:ML(4)1:ML(5)1' 28000h  <=======================================<<<< DISPLAY MENUS MNU$"HEALTH PROBLEMS LIST" PF1 NITM9 26000 NSCN%NQNITM (NQNSCN%NITM)NSCN%NSCN%1 SCN1NSCN%  $(38CH% J I2 MSG$(1)"DO THE FOLLOWING:"N "MSG$(2)"SEE A DOCTOR." ,MSG$(3)"SEE A DOCTOR IMMEDIATELY OR GO TO THE EMERGENCY ROOM." 6MSG$(4)"SEE A DOCTOR IMMEDIATELY." @MSG$(5)"GO TO THE EMERGENCY ROOM IMMEDIATELY." JML(1)1:ML(0: PAGE LENGTH ZESC155G d 204,193,205,211,206,197: .LA,.MS,.NEg n 209,213,211,193: .QU,.SA x780,104:781,168:782,104:783,166:784,223:785,154:786,72:787,152:788,72:789,96 NC%5 I1NC% J12 CH% CL%(I,J)B <=======================================<<<< APPLE A DAY 1N D$(4)YB$"B"gITM$(60)(CL%(5,2),MSG$(5),CC%(2),ML(5)2CR141:SP160:COMMA172:DASH173:PERIOD174<UL223:BS136: UNDERLINE, BACKSPACEFZERO176:N9185 PPL2          =====================<<<< PARSE SINGLE FORMAT COMMANDfR PTR POINTS TO "." ON ENTRY IF THERE IS ONER CN% = COMMAND NUMBER IF COMMAND; 0 IF NOTR IF NO COMMAND, PTR IS RESTORED TO ENTRY VALUERCN%0R22000R(CH%CR)21010 R(CH%PBRS$"Y"RS$"YE"RS$"YES"RS%1:BBRS$"N"RS$"NO"RS%2:^B37,CV1::36,CH:868iB17000OF <=======================================<<<< ADVICE RETURNPF:23ZF"PRESS SPACE BAR TO CONTINUE...";:RS$dF5R <==================G$(ARG%)*>:RC%RC%ML(ARG%)1:25000:N ?(CN%3RC%ARG%PL)RC%1::T4?gB <=======================================<<<< PROCESS RESPONSE TO QUESTIONhBCH(36):CV(37)mB" ? ";RS$rBRS$"QUIT"RS$"Q"RS$"QU"RS$"QUI"ġ:1000$|:S> <=======================================<<<< PROCESS TEXT FORMAT COMMANDS^>ARG%0i>22000}>(CH%SP)16020>(CH%ZEROCH%N9)ARG%ARG%10(CH%ZERO)>(CH%CR)16020>(CN%2)16160>(RC%ML(ARG%)1PL)RC%0:>MS .LA,.SA, OR .QU:210000:(CN%1CN%5)ıL:(CN%4)İ24000:15000V:QF%1b:CT12m:22000:(CH%SP)15040:(CH%CR)ı:(CH%PERIOD)PTR%PTR%1::(CH%COMMA)15090:CC%(CT)CC%(CT)10(CH%ZERO):15040:CT);:11050 H+X(0):CH%(PTR%)@R+(CH%PERIODQF%0)İ23000X\+(CH%PERIOD)11005cf+11050: <=======================================<<<< FIND NEXT QUESTION OR ADVICE: IF QUESTION, GET CONTROL CODES: ON EXIT, PTR POINTS TO AFTER 挭CHESCĹ216,0:27000% 360200 35050u _ <=======================================<<<< 80 COLUMN LISTING `(13);(4);"PR#1":(9);"80N":1,50000:(9);"I":(13);(4);"PR#0":C NOT HAVE"Ì<Ȍ"THE APPROPRIATE ADVICE ON IT. IF YOU"Bʌm͌"HAVE A COMPLETE HEALTH ADVICE DISK,"sόҌ"PLEASE PUT IT IN DRIVE ";DR;" AND PRESS"Ԍ׌"RETURN. TO EXIT THE PROGRAM, PRESS ESC."::C$:ڌCH(C$)128 ܌CHCR521022:"ERROR ";ER;", PRESS RETURN TO RESUME.";:C$::216,0:27000 <=======================================<<<< ERROR RECOVERY: ADVICE FILE MISSING780:ER(222)ER8İ28000:5210ER636100:8 "THE DISK IN DRIVE ";DR;" DOES jm:105tm"INSERT THE APPLE A DAY HEALTH ADVICE";ymp~m"DISK IN DRIVE ";DR;" AND PRESS RETURN.";:C$:vm <=======================================<<<< ERROR RECOVERY: NO DISK OR MENU780:ER(222)ˆER8ER5İ28000:26005Aꈗ:===========<<<< CHAIN TO MAIN MENU,xi:10\i"INSERT THE APPLE A DAY PROGRAM DISK IN":i"DRIVE 1 AND PRESS RETURN.";:C$:iD$;B$;"RUN MAIN MENU,D1"i5370_m <=======================================<<<< LOAD ADVICE DISK`mDR(769)Fe <=======================================<<<< PRELOAD MENU ITEMSRe35000oeD$;"OPEN ";MNU$;",D";DReD$;"READ ";MNU$eNQe216,0eI1NQeITM$(I)eIeD$;"CLOSE ";MNU$eOQ0e"wi <============================<<< NEW SCREENa(RC%PL)ı>a21000:CN%0PTR%PTR%4WaCN%1CN%4CN%5ıda25500:nc:23c(QF%0)ĺ"FOR MORE ADVICE, PRESS SPACE BAR...";:RS$c(QF%1)ĺ"TO CONTINUE QUESTION, PRESS SPACE BAR...";:RS$c:cRC%1cYRC%RC%1Y25000Ya] <=======================================<<<< FIND NEXT COMMANDl]22000]CH%0ġ::1040](CH%CR)24000]22000]PTR%PTR%1](CH%PERIOD)24000]a <=======================================1 AT LINE 665?<=======================================<<<< PRINT MEDICAL RECORDS@VIEW2AC5P1$"VIEW":SN0BC6$"ERASE"]20430_:10R`"DO YOU WANT TO ERASE FILE:"::FLN$;" ?";:Y$aaY$"Y"ı|bD$;"DELETE ";FLN$;DR$lD$;"OPEN FAMILY NAMES,L50"qCPC7062vRCC1PCD$;"READ FAMILY NAMES,R";RCP$D$;"WRITE FAMILY NAMES,=============<<<< RETURN TO MAIN MENUwDR$",D1"ė:10:"INSERT YOUR APPLE A DAY DISK"::"AND PRESS RETURN";:C$:770,0B$"B"D$;B$;"RUN MAIN MENU,D1"W<=======================================<<<< ERASE MEDICAL RECORDS XP1ORDS FOR A FAMILY":" MEMBER":NX" 7. ERASE A FAMILY MEMBER'S FILE":tb" 8. RETURN TO THE MAIN MENU":zlv33100C1C8500C10000,9000,9005,9010,8000,8000,7000,1000C1İ9000500% <==========================MILY MEMBER'S FILE":@ &" 2. ENTER A FAMILY MEMBER'S DATA":l 0" 3. CHANGE A FAMILY MEMBER'S DATA": :" 4. VIEW SELECTED RECORDS FOR A":" FAMILY MEMBER": D" 5. VIEW ALL RECORDS FOR A FAMILY":" MEMBER":#N" 6. PRINT ALL RECIPO10 vIMO17 |BPO28( DRO413 SMO56> MVO71J HSO106V XHO146b LBO181n HWO201  <=======================================<<<< MAIN MEDICAL HISTORY MENU  X(0) 9);"-";MRM$;"-":  " 1. START A FA ". MRM$"MEDICAL RECORDS MENU"L DR$",D1":DR2DR$",D2"[ "LN$",L35"n ,DT$" / / " 6TP$"( ) - " @BP$" / " JRTN13:ESC27:LAR8:RAR21:BEL7 T:: ^(4);"NOMON C,I,O" hD$(13)(4) rIDO3 tNA(10,2): RECORD NOT AVAILABLE< LPI(10,2): LINES/ITEMZ RA(10,2): RETURN ACTIONu RF(40): FIRST RECORD SL(40): STRING LENGTH ST(40): STRING TYPE I110 LPI(I,1)1 RA(I,2)0 I SP$" ,3:806,2389 K807,49:808,3:809,104:810,208:811,241` P812,200:813,208:814,235:815,96f Uu Z21:33000 d28000 xRS$(10,2): RESPONSE STRING TYP(10,2): STRING TYPE LN(10,2): STRING LENGTH LB(10): IS STRING LABEL? -M ! INTEGER *!(PK(770)/2PK1120:7770,1f:784,169:785,0:786,141:787,48:788,3;789,141:790,49:791,3<792,160:793,56:794,185:795,187:796,179A797,10:798,72:799,144:800,8:801,238 F802,48:803,3:804,208:805!! ! ! ! ! !!!!!!!!!""" " " " " """""""""               ,2)1 &1I&&1RS$(6,1)"BLOOD TYPE"A&1RS$(7,1)"CHOLESTEROL"^&1RS$(8,1)"TRIGLYCERIDES"g&$1Y05v&.1XL3:XR20&81SZ8:INC1:R1BPO:R2BPO5&B121600&G113100:&2 <=======================================<<<< DRUG REACTIONS&2VIEW2ė5:XL4:XR22+%p0R1IMO:R2IMO4:SZ7:INC16%z021600C%013100:%0<=======================================<<<< BLOOD TYPE%0VIEW2ė%04);"-BLOOD TYPE/PRESSURE/CHEMISTRY-"%0:" B.P. READING DATE"%0I18%0RS$(I,1)""&1LPI(I===============================<<<< IMMUNIZATIONS: OTHERSH$ 0VIEW2ėt$05);"-IMMUNIZATION HISTORY: PAGE 3-":$ 0"IMMUNIZATION: DATE:"$*0RS$(1,1)"MEASLES"$40RS$(2,1)"MUMPS"$>0RS$(3,1)"RUBELLA"$H0I47$R0RS$(I,1)""$\0I %f0Y0"!#/RS$(2,1)"POLIO (4 MONTHS)"A#/RS$(3,1)"POLIO (6 MONTHS)"b#/RS$(4,1)"POLIO (18 MONTHS)"#/RS$(5,1)"POLIO (5 YEARS)"#/RS$(6,1)"POLIO"#/RS$(7,1)"POLIO"#/Y05:XL4:XR22#/R10:R2IPO:SZ7:INC1#/21600#/131009$ 0 <========1 "e/I17"g/LPI(I,2)1""i/I-"l/216008"q/13100"u/ <=======================================<<<< IMMUNIZATIONS (ORAL POLIO)"v/VIEW2ė"/5);"-IMMUNIZATION HISTORY: PAGE 2-":"/"IMMUNIZATION: DATE:"#/RS$(1,1)"POLIO (2 MONTHS)NIZATION: DATE:"0!/RS$(1,1)"DPT (2 MONTHS)"N!/RS$(2,1)"DPT (4 MONTHS)"l!/RS$(3,1)"DPT (6 MONTHS)"!&/RS$(4,1)"DPT (18 MONTHS)"!0/RS$(5,1)"DPT (5 YEARS)"!:/RS$(6,1)"DPT"!D/RS$(7,1)"DPT"!N/Y05!X/XL4:XR22"b/R10:R2IDO:SZ7:INCATORY TESTS":* H+" 9. HEIGHT/WEIGHT":H R+" 10. RETURN TO ";MRM$:S \+33100g f+C1C1011000m z+ . <=======================================<<<< IMMUNIZATIONS (DPT) .VIEW2ė .5);"-IMMUNIZATION HISTORY: PAGE 1-":!." IMMUX(0)"*" 1. IMMUNIZATIONS":N+" 2. BLOOD TYPE/PRESSURE/CHEMISTRY":u +" 3. DRUG ALLERGIES/REACTIONS":+" 4. SPECIAL MEDICAL PROBLEMS": +" 5. PHYSICIAN VISITS":*+" 6. HOSPITALIZATIONS":4+" 7. X-RAYS": >+" 8. LABOR*0*"SECOND FILE OF THE SAME NAME YOU MUST"6*a*"GIVE IT A UNIQUE NAME. FOR EXAMPLE:"g*|*"'";FLN$;" 2'."*D$;"CLOSE FAMILY NAMES"*:33000:C10::*<=======================================<<<< MENU OF RECORD CATEGORIES*===========================<<<< CHECK FOR DUPLICATE FILE NAMEI0*PC0ıV5*IR1PCw:*D$;"READ FAMILY NAMES,R";IRD*NM$N*NM$FLN$10860X*IRb*l*:8v*"THE FILENAME: '";FLN$;"'"{**"HAS ALREADY BEEN USED. IF YOU WANT A" ON YOUR DATA"w)@|)"DISK FOR A NEW MEDICAL RECORDS FILE."F)s)"IF YOU HAVE ANOTHER DATA DISK, PUT IT"y))"IN THE DISK DRIVE AND TYPE 'Y';"))"OTHERWISE, PRESS RETURN.";)Y$:)Y$"Y"ġ:10260)=/* <============FAMILY NAMES0(D$;"WRITE FAMILY NAMES,R";PC1:(FLN$Z(D$;"WRITE FAMILY NAMES,R0"d(PC1(D$;"CLOSE FAMILY NAMES")20000)g) <=======================================<<<< DISK FULL MESSAGEh):8r)"THERE IS NOT ENOUGH SPACENFS33İ10600:Zw( <=======================================<<<< LET USER KNOW WE ARE GOfx(10:13~("CREATING FILE:":((40(FLN$))2:FLN$(:10("PLEASE WAIT A MINUTE" ( <=======================================<<<< WRITE NAME IN D(46533)((CD610310;2(D$;"WRITE FAMILY NAMES,R0"B<(0aF(D$;"READ FAMILY NAMES,R0"jP(PC$xZ(PC(PC$)d(10800e( <=======================================<<<< CHECK NUMBER OF FREE SECTORS i(784k(NFS(816)(817)256n('Y0Y0LPI(II,2)1)'OFSOFSLPI(II,2)1'II<'10125F':11Q'32000'FLN$""ĺ"YOU CANNOT USE A BLANK FILENAME"::33000:10000( <=======================================<<<< OPEN FAMILY NAMES(D$;"OPEN FAMILY NAMES,L50";DR$ (CME"8'RS$(3,1)"LAST NAME"'B'I13KL'RS$(I,2)" "WV'LB(I)1f['LPI(I,2)1m`'It'Y08:XL2:XR15:SZ3'22000'Y08:OFS1'II1SZ'YY0:XXR:CLN2'LN(II,2)20:TYP(II,2)0'20830'I$(ESC)10210