' +JJJJ ?\>m0M='+l> /+l  H d@hLҦ L~ L  ﵪ*i BB䵊嵰`72µ- i ư&( Rp s P  LLʬLoō 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B`5 ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`NG8`0($ p,&" ۿ ۿڿL흍ٿ vLQ  !"#$%&'()*+,-./0123456789:;<=>?  1 '&&*  (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0((*!!.<,$94>94="4; +,E!r ; $ Hh Լ ռ ռ ռ`HJ>݌h Hh݌`DF DF /L\HIHHHHhHH݌hHhHh݌H6 VDP (FD Z $0x8x D- ܸDD# H8`?F Vk *f???0xF Hh D#-FFF8` D ܸx D - ܸx8`-0ݩ?ʥD FFF`   LDcpq` [` ~  L )d,P,W,U,R06a01de%ȹdeȹdeȹdeȹdeH g`hL+`L`,,a0``0`hb'ic&&dL{`bicȹb'ic&&L` c` &'L`d&L``hb'ic&&dL`bicb'ic&&La c` &'Lad&L3a`$b'ic&&dLIaLab'ic&& &)JJ(Iȱ&) E&L~ad E& c`Lpa``b'ic&&dLab'ic&& &) )(I&)`JJJJJEȑ&LaLMbd)`JJJJJE& c`La`,b'ic&&I&LcbLUb`b'ic&&I&LbLb`@DHLPTX\@DHLPTX\AEIMQUY]AEIMQUY]BFJNRVZ^BFJNRVZ^CGKOSW[_CGKOSW[_@DHLPTX\@DHLPTX\AEIMQUY]AEIMQUY]BFJNRVZ^BFJNRVZ^CGKOSW[_CGKOSW[_@DHLPTX\@DHLPTX\AEIMQUY]AEIMQUY]BFJNRVZ^BFJNRVZ^CGKOSW[_CGKOSW[_((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPЩDe'&&&'&&'&(0 d&н'й`bic`(x`p?(X34pr@z| P ./ !V"'#$!" ''Qc%"%al2X34pr@z| Ph@@qj?g{{{;{{??__A=x3~GGol~|o@y<g?:(gw7WwWW7wg 8L{?{x!Ca8?ypf3__?><<80?C~A;^q.`nnb.{N88|||C oo|~ oo oo a@`;` UUU}]w?87]gV??}}?}}CLGk***]w78?o.[o~~?|Sapp||vv|wOgCIw6UUU] 6zw7rmCv6?0xxp`}}== _GC8_P jjj`{w5#677"[nn=x 6p|@dww~|tt~~ww;=|G?xmowtswwkZUf?|xp`AA@``p|sx|~__~~CQp~s470~ gax|~x??;{s?^B@!88 |8 }??}}__Af<<#o |x`_@@wtwwwg?:( pcfp qq`} <>???<888<>??}}__}}__}}__???><<80yy@A~|| @@pp`~~ww??wwCpa#^X@ L Oc@w?p@|_||X@^~_@> Ny}xppcwoGc`p> <X`S{{~zz |}}?838$ppp`ppp`~~oo~~oo>o~y<`@p@x{{Ccxz>?~||`pgpx`@`Fx~~~|||~o?oo`GGGc|A4??||88|}??}} ??@yyy??+wW@pAyygg@``pp`@(yonj@><?G_ p?)oopggp@"!ccA{pp|?@`x????qxxxHx~||@A~|xx~ ????}}??#}k7`ss pxxx|?'qx|v?w}COs|~||~c`@@}|\YE A\xp\_>mY gy~~|xxp``wwwwww\Olx~|p@| __~~_>GBnemOwwWw wwW77wpp xcqqx|xz{{?@  ???x]$.n.]71 ?_~~oo~~oo~>oo|uppp``pUUU}|n{7?77/@` ca11x`?o/`***9n77??q]p@@ `onoooos_]TUUUc\VywwWwV5wA ???}}??}}??x|_jjj{Ckv6676q^ {qxx|~wwww?wws^d````qsnvqwwWMY#MCCqpXX|p_l3!@A~"wwwwww~~~>'{{{{{??__@=sN~GGFol~~oy<X?(OwwWw wwW77w ?O{`?{x#Cc>?|f3?__?><880???x]$.n.]71||88~3yoo |oo oo OfD```@`UUU}|n{7?77/@`>??}=? }}Lx?@***9n77??q]p|??~~f3~apt||vwwga{UUUc\VywwWwV5wApxxpLf}}== P_3G?@ jjj{Ckv6676q^`0xpI'ww||tt~~vw?~G}qsnvqwwWMY~xp`aAA@`px~y|~__~~GQx~Og3{/70~ Og3qx|~ ?{{g2@?Z@! |8>~|cGFFho~|ho?|NO}Csss @`|s<{{??{{??{{??~1 <yggg|??oy~o/Gccc{~{t`p|pp@?33ggpx@|x?|}?0=}??}}?__@fff' `@|gwvwwwX?( geg@0Aqq<>??><888<??}}__}}__}}___??><8803yy|~|~| @@`pp|xww??7wapq\?ZP@@~LLOA`|@@`_||\A~~_p> cxxpacGCapp? <~~qz{{~z{ }}|?33gg???`pppp~~oo~~oo~o~ffy x@C@`{{Cc0xz??|ggp`DBr~~|~|||~oA>ooqcGy@5??|x88}}??}} ?yyy??+wA@pyOg@`ppp`?(voj`@3s<O `>`(o7|fggpg`ccppx@`p|???g1xxx00|||x|x????}}?? "}|W@x?ss?!ppx@~~{cqx|?twg}{Cgy~|~|@`@}}XQa P_xq__]e  ?Os ~||xpp`@@wwwwwwc?Nt~|x`@~ __~~_vnk} gw7WwWW7w` x{vqxx|zz{{@w ?C~A;^q.`nnb.{N ?~~oo~~oo~~oo{ppx``p,_=00+ĠčĠͮŮİĠͮŮİϬɬÍ ` #M$ӂsqu`".Q`pNФbptťܥm2<(-Py0\|e<6e< ~ vL~ JJJJj귍hI  aUL@ kU8  L  ^R(jQ0l^l\  OÌȌ`W ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQL߼YLeLXLeLee ўQ0 L&RE;BY; Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L׭Lܫ &RL &QL d L4 We)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ\L \ şL_ NLjHv 3h`0h8` [L NС õ`A@` ŵL]Lõ`  \ 濭0 ş  Q ^\lZl^\8  ş Lȟ`fhjõĵ@OAP`u@`@&`QR`F Ls  @DAF@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@ ,\Z[PRR3\ɄSɊ"RQJ(0Fw6. ^-%p 㩠RP.Q I* P\L˵B̵C8pB߮Z\ @ յյ\BIR Z-^ Jp\IZLL-~`8Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J LsL Q(`贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / şFD B ߼ / ]ƴS0Jȴ ȴ)  紅D贅F B ƴ  / 0L Ν `ND8HFFhDh N ş`, ŵBѵ`, ѵB8`  XI볩쳢8DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`LzĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`` Bl şL/Ơĵµ`ڿ8.ڿ.ۿ`êL`õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH x(` i d£àĠz# 8~}|`z#     Ϡ3,120,1728,1728(7):120/FLAG2:22000AFLAG6:22000TFLAG11:22000gFLAG14:22000zFLAG25:22000FLAG28:22000FLAG35:22000FLAG40:22000FLAG55:22000FLAG56:22000FLAG70:22000FLAG71:22000807A1701,1702,1702,1703,1704,1705,1706,1707,1708,NAA97AA1221500[AAAA32xAA65AA90ĺ(7):1000AAAA64AA1709,1710,1711,1712,1713,1713,1714,1714,1715,1716,1717,1718,1718,1719,1720,1721,1721,1722,1723,1724,1725,1726,1727R"%Z20:21:"Z. SEIZURE / TWITCH"Dd21:21:"X. *** EXIT ***"{n23:2::"SELECT AREA AND TYPE NUMBER OR LETTER";x:24:11::"TYPE X TO MAIN MENU";:A$23000A(A$)AA(A$)AA27AA88AA120120A0A101412:21:"R. BLOOD PRESSURE"713:21:"S. FEVER"U(14:21:"T. TIRED, PALE"x215:21:"U. WEIGHT GAIN/LOSS"<16:21:"V. BLEEDING,BRUISING"F17:21:"W. WEAK/NUMB/SPASTIC"P18:21:"X. *** EXIT ***"U19:21:"Y. SHAKING / TREMO4:21:"J. LYMPH NODES">5:21:"K.ARM,LEG,BONE,JOINT"]6:21:"L. INJURIES, CPR"7:21:"M. SHOCK, FIRST AID"8:21:"N. EMOTIONAL"9:21:"O. CHILD/WIFE ABUSE"10:21:"P. INFANT CARE" 11:21:"Q. CHILD DEVELOPMENT"6. NOSE"#L"7. MOUTH,TEETH,FACE"=V"8. THROAT AND NECK"X`"9. CHEST,HEART,LUNG"ij"A. BREAST"{t"B. ABDOMEN"~"C. BACK""D. RECTUM""E. URINARY TRACT""F. PROSTATE""G. SEX ORGANS""H. PREGNANCY""I. SKIN"K010PP(K)0#BUFF(K)0*K0_"ENTER NUMBER/LETTER OF AREA OF CONCERN:""=======================================" 4"1. HAIR OR NAILS""2. HEAD ACHE"$"3. HEAD SIZE,TRAUMA."4. EARS"8"5. EYES"B"5z3:23:" PLACE CORRECT DATA DISK IN DRIVE ";>{895r}3:23:"PUT CORRECT DATA DISKS IN BOTH DRIVES"3:24:" AND PRESS ANY KEY TO CONTINUE - ";EA$A$:A(A$):A: HOUSECALL DIAGNOSTIC S: "*DKA$(2)" RELATED PROBLEMS: "LNKA$(3)" DIAGNOSIS: "oXKA$(4)" USUAL TREATMENT: "bKA$(5)" INFORMATION: "lKA$(6)" USUAL TREATMENT: "v  ERROR TRAP%(7)/768fE(222)uxND2893/ 3:13:"WITH DATA DISK '2' AND PLACE DATA"d 3:15:"DISK '3' IN DRIVE 2 AND PUSH ANY KEY.";n A$:  SUB TO SET UP Q$ KA$ Q$(1)"P." Q$(2)"A." Q$(3)"D." Q$(4)"R." &Q$(5)"I." 0Q$(6)"T.":KA$(1)" SYMPTOMHAVE= 1 OR 2?"; JA$$ OND(A$); TA$"1"A$"2"310H ^ND(A$)V hND2390 r:15000:3:11:"REPLACE THE PROGRAM DISK WITH DATA" u3:13:"DISK '2' AND PUSH ANY KEY."; |A$: :15000:3:11:"REPLACE THE PROGRAM DISK IN DRIVE 1"(88)A$(120)A$(27)ĺ(7):5000> A(A$):A1A3ī210I 23000Q D$g A1000,3000,2100p 120 '2:15:"2-B IN DISK DRIVE 2 AND PUSH ANY KEY." )A$: , SELECT NUMBER DISK DRIVES 6:15000 @3:12:"HOW MANY DRIVES DO YOU :3:"SELECT OPTION";1 9:3:"-------------";d 11:3:"1 'HOUSE CALL' WITH SYMPTOM INDEX"; 13:3:"2 SELECT PAGE USING PRINTED INDEX"; 15:3:"3 ABBREVIATIONS DISPLAY"; 17:3:"X EXIT THE PROGRAM"; 15000 A$$ A$(17) :"PRESS e 7A$(10),BUFF(10),D$(1),H(22),I$(1),KA$(7),LL$(33),PP(10),Q$(7),S$(3),H$(22)n <500 P GOTO 120 FOR FAST CHECK d4300 fK010:PP(K)0:BUFF(K)0:K n4500 x 4:16:"MAIN MENU"; 5:16:"========="; 8N1(4);"MAXFILES 7""800M(17):SET WIDTH 40 ALL COMPUTERS YMF4905n D$(4): CONT-D :4000:15000:15200 5:24::" PRESS ANY KEY TO CONTINUE ";:A$:A(A$):30023000: PRINT WAIT25000B46                 ";1&>7:4:"NEEDED PHYSICIAN SERVICES. WHEN";^&H9:4:"YOU HAVE FINISHED READING THIS";&R11:4:"SCREEN, PUSH THE LETTER ";A$;" TO";&\13:4:"CONTINUE. USING THIS GUIDE IS NOT"&f15:4:"THE SAME AS VISITING A DOCTOR.";'p17:4:"DON'UR DOCTOR. IT'S DESIGNED TO";P%19:4:"INFORM YOU, NOT PRACTICE MEDICINE.";}% 21:6:"HIT CORRECT LETTER TO PROCEED";%15000%4850%4900% %*3:4:"HOUSE CALL WAS WRITTEN FOR YOUR";&45:4:"EDUCATIONAL BENEFIT, NOT TO REPLACE7:4:"OTHER CONSUMER HEALTH GUIDE. WHEN";[$9:4:"YOU HAVE FINISHED READING THIS";$11:4:"SCREEN, PUSH THE LETTER ";A$;" TO";$13:4:"CONTINUE. YOU SHOULD NOT RELY ON";$15:4:"THIS REFERENCE AS A REPLACEMENT";%17:4:"FOR YO CORPORATION";;#016:6:"ALL RIGHTS RESERVED WORLDWIDE";M#:15000:15200X#<23000|#?2000: EXTRA COPY RIGHT NOTICE#D# CONSENT##4900#3:4:"WELCOME TO HOUSE CALL. PLEASE";#5:4:"USE THIS PROGRAM AS YOU WOULD ANY";.$N MEDICAL CORPORATION";="10:10:"THANKS YOU FOR BUYING";]"12:13:"** HOUSECALL **";z"14:14:"COMPUTERIZED";"16:8:"HOME MEDICAL ENCYCLOPEDIA";"15000:15200""8:12:"COPYRIGHT 1985 BY";#&12:3:"ROCKY MOUNTAIN MEDICAL" C AAAAA L L"E!," C A A L L"j!6" C A A L L"!@" CCCCC A A LLLLL LLLLL"!J22!T" HOME MEDICAL ENCYCLOPEDIA"!^! WELCOME SCREEN!"8:3:"ROCKY MOUNTAIS EEEE"0 " H H O O U U S E"X " H H O O U U S E" " H H OOOOO UUUUUU SSSSS EEEEE" 13 " CCCCC AAAAA L L" " C A A L L" " C A A L L" !"13ĺ:3180> :12:23:"CAN'T GO DOWN";::PAGEPAGE1:3210T HOUSECALL INTROZa4" H H OOOOO U U SSSSS EEEEE"" H H O O U U S E"" H H O O U U S E" " HHHHH O O U U SSSS(A$)1173270, (A$)68(A$)1003310Q (A$)88(A$)120(A$)27120[ 3210q MOVES UP A PAGE PAGEPAGE1 PAGE5ĺ:3180 :15:23:"CAN'T GO UP";::PAGEPAGE1 3210 MOVES DOWN A PAGE PAGEPAGE1  PAGE4 - TRY AGAIN !!";h :31504l D$;"OPEN D.RA,L5"Om D$,"READ D.RA,R";PAGEbn PB$:PB(PB$)o D$;"READ D.RA,R";PAGE1p PE$:PE(PE$)1s D$;"CLOSE"v 19200 1:24::"'D' MOVES DOWN A PAGE; 'U'=UP; 'X'=MENU";: A$ (A$)85TER'";(: 4:14:"KEY ) TO CONTINUE.";XD 4:20:"TYPE PAGE NUMBER BETWEEN 5 & 412";N 4:21:"AND THEN PUSH 'RETURN' KEY: ";U PAGE$X PAGE(PAGE$)b PAGE5PAGE4123172c 3180d 21:30:" ";f :19:4:"NUMBER OUT OF RANGEORWARDS AND BACKWARDS FROM YOUR";O 4:9:"STARTING PLACE. RELATED TOPICS";| 4:10:"ARE ROUGHLY GROUPED TOGETHER."; 4:11:"AFTER TYPING IN THE PAGE NUMBER";& 4:12:"YOU MUST PUSH THE 'RETURN' KEY";0 4:13:"(SOMETIMES CALLED THE 'ENf120( SELECT AND DISPLAY A PAGE. 9 15000i 4:4:"USING YOUR HOUSECALL '86 INDEX & "; 4:5:"INSTRUCTION BOOKLET, YOU MAY"; 4:6:"SELECT A TOPIC OF INTEREST ABOUT"; 4:7:"THAT TOPIC. YOU MAY ALSO SCROLL";! 4:8:"FY11500:Y +4 ABBREV. DISPLAYB6D$;"OPEN D.RA,L5"Y8D$;"READ D.RA,R2"l9PB$:PB(PB$);D$;"READ D.RA,R3"<PE$:PE(PE$)1=D$;"CLOSE">500H19200R4:22:"READ THEN PUSH ANY KEY TO PROCEED"aA$c23000FLAG128:22000&FLAG105:22000:FLAG124:22000Y DISPLAY COPYRIGHT NOTICEpD$;"OPEN D.RA,L5"D$;"READ D.RA,R4"PB$:PB(PB$)D$;"READ D.RA,R5"PE$:PE(PE$)1D$;"CLOSE"500GOSUB 19100 19200FLAG79:22000%FLAG84:220009FLAG106:22000LFLAG97:22000`FLAG129:22000tFLAG125:22000FLAG104:22000FLAG122:22000FLAG98:22000FLAG123:22000FLAG78:22000FLAG127:22000FLAG100:22000168,104,166,223,154,72,152,72,96?6aML768777:MC:ML,MC:MLE6a]6e TEMP PRINT A PAGEc6ei6eq6eY16e27300: OPENS CORRECT I.RA FILE6eKPBPE6e27000: NNJREADS CORRECT FILE 6eKB16:CK$Q$(KB)6eLINFO$(INFO$,2) 7eCK$,L49,D1":D$;"READ S.RA,R";H(COUNT1)V5VS$(0),S$(1),S$(2):P1(S$(1)):FLAG(S$(2))f5VD$;"CLOSE"|5VFLAG0FLAG99995V185005VFLAG9999FLAG05V198005V5Y WAIT5Y5Y18:12:"WAIT"5Y5a FIX FOR ERROR ROUTINE 6a 104,;SS$;:YY24VJK@4V4:Y:"B = BACKUP A SCREEN; X = MENU"H4VA$c4VA$"B"A$(98)186004VA$"X"A$(120)A$(27)10004VA(A$)4VA1AOP221604VCOUNTA24VH(COUNT)0ĺ:222204VFLAGH(COUNT1)4V22002%5VD$;"OPEN S.RAY:NUM$(JK2):(NUM$,1);" ";HEADER$;C3cVLL$(JK2)HEADER$:YY2N3hV22150]3nVJJH(JK1)c3pV~3sVD$;"OPEN S.RA,L49,D1"3tVD$;"READ S.RA,R";JJ3wVS$(0),S$(1),S$(2)3zVSS$S$(0):LL$(JK2)SS$3{VD$;"CLOSE" 4|V1:Y:NUM$(JK2):(NUM$,1);" ")(H$(JK))2,VJKX26V2:2:HEADER$;:1:3:"---------------------------------------"`2;VY5p2=VD$;"CLOSE"2@VJK2COUNT22JVH(JK)0221262LV2OVD$;"OPEN H.RA,L139,D1"2TVD$;"READ H.RA,R";H(JK1)2YVHEADER$2ZV2[VD$;"CLOSE"'3^V1:N A.RA,L50"$1:RD$;"OPEN H.RA,L139"*1DRd1U DISPLAYS HEADERS/OPTIONS & BRANCHES TO END SYMPTOMSo1U18500u1U{1U1UD$;"OPEN H.RA,L139,D1"1UD$;"READ H.RA,R";FLAG1VHEADER$1VOP$:OP(OP$):COUNT2OP11VJK2COUNT 2"VH$(JK):H(JK,L50,D1"#0lMD$;"READ A.RA,R";FLAG60vMPS$:PS(PS$)B0MK1PS\0MA$(K):PP(K)(A$(K))c0MKs0MD$;"CLOSE"~0M194000M0R SUB TO OPEN ALL FILES0 R0 R0RD$;"OPEN I.RA,L41"0RD$;"OPEN S.RA,L49"0&RD$;"OPEN D.RA,L5" 10RD$;"OPE GO UP A PAGE=/LIK1ğ:12:23:" CAN'T GO UP ";::19610I/LIKIK1T/L19542f/L DOWN A PAGE/LIKPSĖ12:23::"CAN'T GO DOWN";::19610/MIKIK1/M19542/M/XM READS IN PP ARRAY IF FLAG>0/bMFLAG019880/dM0gMD$;"OPEN A.RA.mLPE$:PE(PE$)1#.rLD$;"CLOSE"..|L19200;.L24:1:k.L"D=MOVE DOWN PAGE; U=UP; B=BACKUP;X=MENU";q.Ly.LA$.LA$"B"A$(98)19400.LA$"U"A$(117)19660.LA$"D"A$(100)19700.LA$"X"A$(120)A$(27)1000.L19610/LD TOPIC;B=BACKUP;X=MENU";:#-LA$>-LA$"B"A$(98)18600Z-,LA$"D"A$(100)19540~-1LA$"X"A$(120)A$(27)1000-6L19460-TLIK1-VL-YLD$;"OPEN D.RA,L5"-^LD$;"READ D.RA,R";PP(IK)-hLPB$:PB(PB$)-kLD$;"READ D.RA,R";PP(IK)1D D.RA,R";P11#,KPE$:PE(PE$)13,KD$;"CLOSE">,K19200Q,LFLAG019470,L:"NO OTHER CLOSELY RELATED DATA ON FILE";,L24:1:"'B' TO BACK UP; ANY KEY TO MAIN MENU";:,LA$:A$"B"A$(98)18600, L1000-L1:24::"D=DOWN TO RELATEF(KA)0+HFLAGBUFF(KA1)&+H22006,+J]+K DISPLAYS A PAGE WITH LINES BETWEEN PB & PEh+K26000n+K+K PUTS UP SERIES OF SCROLABLE PAGES STORED IN PP ARRAY.+K+KD$;"OPEN D.RA,L5"+KD$;"READ D.RA,R";P1+KPB$:PB(PB$),KD$;"REATION BUFFER'*JH IF ZZ = 1 THEN STOP3*KHZZZZ1@*NHKA110W*XHBUFF(KA)018540p*bHBUFF(KA)FLAG:18550x*lHKA~*vH*H BACKS UP ONE SCREEN WHILE IN HEADER OR 1ST DIAGNOSIS.*HKA1011*HBUFF(KA)018630*HKA*HKA11000+HBUFSOON!")13:18:"BYE!"+)Y15000:Y1);): BOXE):1:1\):K140:(88);:Kw):24:K139:(88);:K):K223:1:K:(88);:K):K223:40:K:(88);:K):)V; TIMER)`;K12000:K:: 3 SEC DELAY )DH *IH BUILDS LOCA3:4:"PLEASE READ PARAGRAPH MORE CLOSELY";5(4855;(H($ RANDOMS()K1A_(.AA(2)f(3Ko(5AAA(8A100A:A%(A)4(BA%0A%25ī4900(LA%A%65(VA$(A%)([A%A%32(`CAP$(A%)(j( EXIT()11:13:"GET WELL T USE OLD VERSIONS OF HOUSE";Q'z19:4:"CALL. YEARLY UPDATES ARE AVAILABLE.";~'21:6:"HIT CORRECT LETTER TO PROCEED";'15000'4850'' GET AND CHECK'AA$'AA$A$AA$CAP$ī4870'4895'22:10::" ";:+( 219,1720,1721,1721,1722,1723,1724,1725,1726,1727,120,1728,1728L(7):120^FLAG2:22000pFLAG6:22000FLAG11:22000FLAG14:22000FLAG25:22000FLAG28:22000FLAG35:22000FLAG40:22000FLAG55:22000FLAG5$)AA27AA88AA1201201A0A101480fA1701,1702,1702,1703,1704,1705,1706,1707,1708,}AA97AA1221500AAAA32AA65AA90ĺ(7):1000AAAA64=AA1709,1710,1711,1712,1713,1713,1714,1714,1715,1716,1717,1718,1718,17 *** EXIT ***"1U19:21:"Y. SHAKING / TREMOR"TZ20:21:"Z. SEIZURE / TWITCH"sd21:21:"X. *** EXIT ***"n23:2::"SELECT AREA AND TYPE NUMBER OR LETTER";x:24:11::"TYPE X TO MAIN MENU";:A$23000A(A$)AA(AANT CARE"- 11:21:"Q. CHILD DEVELOPMENT"N12:21:"R. BLOOD PRESSURE"f13:21:"S. FEVER"(14:21:"T. TIRED, PALE"215:21:"U. WEIGHT GAIN/LOSS"<16:21:"V. BLEEDING,BRUISING"F17:21:"W. WEAK/NUMB/SPASTIC"P18:21:"X.EX ORGANS""H. PREGNANCY"-"I. SKIN"J4:21:"J. LYMPH NODES"m5:21:"K.ARM,LEG,BONE,JOINT"6:21:"L. INJURIES, CPR"7:21:"M. SHOCK, FIRST AID"8:21:"N. EMOTIONAL"9:21:"O. CHILD/WIFE ABUSE" 10:21:"P. INFIZE,TRAUMA."4. EARS"(8"5. EYES"7B"6. NOSE"RL"7. MOUTH,TEETH,FACE"lV"8. THROAT AND NECK"`"9. CHEST,HEART,LUNG"j"A. BREAST"t"B. ABDOMEN"~"C. BACK""D. RECTUM""E. URINARY TRACT""F. PROSTATE" "G. SA$:A(A$):A:, HOUSECALL DIAGNOSTIC8K010DPP(K)0RBUFF(K)0YK_"ENTER NUMBER/LETTER OF AREA OF CONCERN:""=======================================" 4"1. HAIR OR NAILS""2. HEAD ACHE" $"3. HEAD S(7)/768fE(222)!u/xND2893dz3:23:" PLACE CORRECT DATA DISK IN DRIVE ";m{895}3:23:"PUT CORRECT DATA DISKS IN BOTH DRIVES"3:24:" AND PRESS ANY KEY TO CONTINUE - ";EA$)"I."0Q$(6)"T."7:KA$(1)" SYMPTOMS: "YDKA$(2)" RELATED PROBLEMS: "{NKA$(3)" DIAGNOSIS: "XKA$(4)" USUAL TREATMENT: "bKA$(5)" INFORMATION: "lKA$(6)" USUAL TREATMENT: "v  ERROR TRAP%:3:11:"REPLACE THE PROGRAM DISK IN DRIVE 1"^ 3:13:"WITH DATA DISK '2' AND PLACE DATA" 3:15:"DISK '3' IN DRIVE 2 AND PUSH ANY KEY."; A$:  SUB TO SET UP Q$ KA$ Q$(1)"P." Q$(2)"A." Q$(3)"D." Q$(4)"R."&Q$(56:15000> @3:12:"HOW MANY DRIVES DO YOU HAVE= 1 OR 2?";F JA$S OND(A$)j TA$"1"A$"2"310w ^ND(A$) hND2390 r:15000:3:11:"REPLACE THE PROGRAM DISK WITH DATA" u3:13:"DISK '2' AND PUSH ANY KEY."; |A$:. :15000 EXIT THE PROGRAM"; 15000& A$S A$(88)A$(120)A$(27)ĺ(7):5000m A(A$):A1A3ī210x 23000 D$ A1000,3000,2100 120 '2:15:"2-B IN DISK DRIVE 2 AND PUSH ANY KEY." )A$: , SELECT NUMBER DISK DRIVES 6:"MAIN MENU";( 5:16:"=========";D 8:3:"SELECT OPTION";` 9:3:"-------------"; 11:3:"1 'HOUSE CALL' WITH SYMPTOM INDEX"; 13:3:"2 SELECT PAGE USING PRINTED INDEX"; 15:3:"3 ABBREVIATIONS DISPLAY"; 17:3:"X  23000: PRINT WAIT" 25000+ B466 (17)D :"PRESS 7A$(10),BUFF(10),D$(1),H(22),I$(1),KA$(7),LL$(33),PP(10),Q$(7),S$(3),H$(22) <500 P GOTO 120 FOR FAST CHECK d4300 fK010:PP(K)0:BUFF(K)0:K n4500 x 4:1}1 1011,1044512,48:44513,67:44515,160G(4);"MAXFILES 7"Q800|(17):SET WIDTH 40 ALL COMPUTERS MF4905 D$(4): CONT-D :4000:15000:15200 5:24::" PRESS ANY KEY TO CONTINUE ";:A$:A(A$):300                1&45:4:"EDUCATIONAL BENEFIT, NOT TO REPLACE";`&>7:4:"NEEDED PHYSICIAN SERVICES. WHEN";&H9:4:"YOU HAVE FINISHED READING THIS";&R11:4:"SCREEN, PUSH THE LETTER ";A$;" TO";&\13:4:"CONTINUE. USING THIS GUIDE IS NOT"'f15:4:"THEEFERENCE AS A REPLACEMENT";M%17:4:"FOR YOUR DOCTOR. IT'S DESIGNED TO";%19:4:"INFORM YOU, NOT PRACTICE MEDICINE.";% 21:6:"HIT CORRECT LETTER TO PROCEED";%15000%4850%4900% %*3:4:"HOUSE CALL WAS WRITTEN FOR YOUR";5:4:"USE THIS PROGRAM AS YOU WOULD ANY";]$7:4:"OTHER CONSUMER HEALTH GUIDE. WHEN";$9:4:"YOU HAVE FINISHED READING THIS";$11:4:"SCREEN, PUSH THE LETTER ";A$;" TO";$13:4:"CONTINUE. YOU SHOULD NOT RELY ON";%15:4:"THIS RT 1986 BY";=#&12:3:"ROCKY MOUNTAIN MEDICAL CORPORATION";j#016:6:"ALL RIGHTS RESERVED WORLDWIDE";|#:15000:15200#<23000#?2000: EXTRA COPY RIGHT NOTICE#D# CONSENT##4900#3:4:"WELCOME TO HOUSE CALL. PLEASE";,$ WELCOME SCREEN"F"8:3:"ROCKY MOUNTAIN MEDICAL CORPORATION";l"10:10:"THANKS YOU FOR BUYING";"12:13:"** HOUSECALL **";"14:14:"COMPUTERIZED";"16:8:"HOME MEDICAL ENCYCLOPEDIA";"15000:15200" #8:12:"COPYRIGH L"*!" C A A L L"O!"" C AAAAA L L"t!," C A A L L"!6" C A A L L"!@" CCCCC A A LLLLL LLLLL"!J22!T" HOME MEDICAL ENCYCLOPEDIA"!^"U S E"7 " HHHHH O O U U SSSSS EEEE"_ " H H O O U U S E" " H H O O U U S E" " H H OOOOO UUUUUU SSSSS EEEEE" 13 " CCCCC AAAAA L L"!" C A A L MOVES DOWN A PAGE# PAGEPAGE19 PAGE413ĺ:3180m :12:23:"CAN'T GO DOWN";::PAGEPAGE1:3210 HOUSECALL INTRO4" H H OOOOO U U SSSSS EEEEE"" H H O O U U S E" " H H O O U AGE; 'U'=UP; 'X'=MENU";:! A$> (A$)85(A$)1173270[ (A$)68(A$)1003310 (A$)88(A$)120(A$)27120 3210 MOVES UP A PAGE PAGEPAGE1 PAGE5ĺ:3180 :15:23:"CAN'T GO UP";::PAGEPAGE1 3210 :" ";@f :19:4:"NUMBER OUT OF RANGE - TRY AGAIN !!";Lh :3150cl D$;"OPEN D.RA,L5"~m D$,"READ D.RA,R";PAGEn PB$:PB(PB$)o D$;"READ D.RA,R";PAGE1p PE$:PE(PE$)1s D$;"CLOSE"v 19200 1:24::"'D' MOVES DOWN A PN' KEY";50 4:13:"(SOMETIMES CALLED THE 'ENTER'";W: 4:14:"KEY ) TO CONTINUE.";D 4:20:"TYPE PAGE NUMBER BETWEEN 5 & 412";N 4:21:"AND THEN PUSH 'RETURN' KEY: ";U PAGE$X PAGE(PAGE$)b PAGE5PAGE4123172c 3180 d 21:30HAT TOPIC. YOU MAY ALSO SCROLL";P 4:8:"FORWARDS AND BACKWARDS FROM YOUR";~ 4:9:"STARTING PLACE. RELATED TOPICS"; 4:10:"ARE ROUGHLY GROUPED TOGETHER."; 4:11:"AFTER TYPING IN THE PAGE NUMBER";& 4:12:"YOU MUST PUSH THE 'RETUREN PUSH ANY KEY TO PROCEED"#aA$.c230007f120W SELECT AND DISPLAY A PAGE] h 15000 4:4:"USING YOUR HOUSECALL '86 INDEX & "; 4:5:"INSTRUCTION BOOKLET, YOU MAY"; 4:6:"SELECT A TOPIC OF INTEREST ABOUT";! 4:7:"TLOSE"500"GOSUB 19100 -19200>Y11500:YD Z4 ABBREV. DISPLAYq6D$;"OPEN D.RA,L5"8D$;"READ D.RA,R2"9PB$:PB(PB$);D$;"READ D.RA,R3"<PE$:PE(PE$)1=D$;"CLOSE">500H19200R4:22:"READ TH22000FLAG127:22000-FLAG100:22000AFLAG128:22000UFLAG105:22000iFLAG124:22000 DISPLAY COPYRIGHT NOTICED$;"OPEN D.RA,L5"D$;"READ D.RA,R4"PB$:PB(PB$)D$;"READ D.RA,R5"PE$:PE(PE$)1D$;"C6:22000FLAG70:22000.FLAG71:22000AFLAG79:22000TFLAG84:22000hFLAG106:22000{FLAG97:22000FLAG129:22000FLAG125:22000FLAG104:22000FLAG122:22000FLAG98:22000FLAG123:22000FLAG78:T"6Y$6a FIX FOR ERROR ROUTINEO6a 104,168,104,166,223,154,72,152,72,96n6aML768777:MC:ML,MC:MLt6a6e TEMP PRINT A PAGE6e6e6eY16e27300: OPENS CORRECT I.RA FILE6eKPBPE6e27000: NNJREADS CORRECT FILE 7eKBиVFLAGH(COUNT1)5V22002T5VD$;"OPEN S.RA,L49,D1":D$;"READ S.RA,R";H(COUNT1)5VS$(0),S$(1),S$(2):P1(S$(1)):FLAG(S$(2))5VD$;"CLOSE"5VFLAG0FLAG99995V185005VFLAG9999FLAG05V198005V5Y WAIT5Y6Y18:12:"WAI$;"CLOSE":4|V1:Y:NUM$(JK2):(NUM$,1);" ";SS$;:YY2B4VJKo4V4:Y:"B = BACKUP A SCREEN; X = MENU"w4VA$4VA$"B"A$(98)186004VA$"X"A$(120)A$(27)10004VA(A$)4VA1AOP221604VCOUNTA24VH(COUNT)0ĺ:222205K1)3YVHEADER$3ZV'3[VD$;"CLOSE"V3^V1:Y:NUM$(JK2):(NUM$,1);" ";HEADER$;r3cVLL$(JK2)HEADER$:YY2}3hV221503nVJJH(JK1)3pV3sVD$;"OPEN S.RA,L49,D1"3tVD$;"READ S.RA,R";JJ3wVS$(0),S$(1),S$(2)3zVSS$S$(0):LL$(JK2)SS$ 4{VD):COUNT2OP12VJK2COUNT:2"VH$(JK):H(JK)(H$(JK))B2,VJK26V2:2:HEADER$;:1:3:"---------------------------------------"2;VY52=VD$;"CLOSE"2@VJK2COUNT22JVH(JK)0221262LV2OVD$;"OPEN H.RA,L139,D1"3TVD$;"READ H.RA,R";H(JN S.RA,L49""1&RD$;"OPEN D.RA,L5":10RD$;"OPEN A.RA,L50"S1:RD$;"OPEN H.RA,L139"Y1DR1U DISPLAYS HEADERS/OPTIONS & BRANCHES TO END SYMPTOMS1U185001U1U1UD$;"OPEN H.RA,L139,D1"1UD$;"READ H.RA,R";FLAG1VHEADER$2VOP$:OP(OP$AG>00bMFLAG0198800dM70gMD$;"OPEN A.RA,L50,D1"R0lMD$;"READ A.RA,R";FLAGe0vMPS$:PS(PS$)q0MK1PS0MA$(K):PP(K)(A$(K))0MK0MD$;"CLOSE"0M194000M0R SUB TO OPEN ALL FILES0 R0 R0RD$;"OPEN I.RA,L41" 1RD$;"OPEA$"X"A$(120)A$(27)1000*/L19610=/L GO UP A PAGEl/LIK1ğ:12:23:" CAN'T GO UP ";::19610x/LIKIK1/L19542/L DOWN A PAGE/LIKPSĖ12:23::"CAN'T GO DOWN";::19610/MIKIK1/M19542/M0XM READS IN PP ARRAY IF FLPB$:PB(PB$)-.kLD$;"READ D.RA,R";PP(IK)1B.mLPE$:PE(PE$)1R.rLD$;"CLOSE"].|L19200j.L24:1:.L"D=MOVE DOWN PAGE; U=UP; B=BACKUP;X=MENU";.L.LA$.LA$"B"A$(98)19400.LA$"U"A$(117)19660.LA$"D"A$(100)19700/L18600- L1000J-L1:24::"D=DOWN TO RELATED TOPIC;B=BACKUP;X=MENU";:R-LA$m-LA$"B"A$(98)18600-,LA$"D"A$(100)19540-1LA$"X"A$(120)A$(27)1000-6L19460-TLIK1-VL-YLD$;"OPEN D.RA,L5"-^LD$;"READ D.RA,R";PP(IK).hLREAD D.RA,R";P1",KPB$:PB(PB$)=,KD$;"READ D.RA,R";P11R,KPE$:PE(PE$)1b,KD$;"CLOSE"m,K19200,LFLAG019470,L:"NO OTHER CLOSELY RELATED DATA ON FILE";,L24:1:"'B' TO BACK UP; ANY KEY TO MAIN MENU";:-LA$:A$"B"A$(98)UFF(KA)018630+HKA'+HKA110006+HBUFF(KA)0J+HFLAGBUFF(KA1)U+H22006[+J+K DISPLAYS A PAGE WITH LINES BETWEEN PB & PE+K26000+K+K PUTS UP SERIES OF SCROLABLE PAGES STORED IN PP ARRAY.+K+KD$;"OPEN D.RA,L5",KD$;"0:K:: 3 SEC DELAY *DH:*IH BUILDS LOCATION BUFFERV*JH IF ZZ = 1 THEN STOPb*KHZZZZ1o*NHKA110*XHBUFF(KA)018540*bHBUFF(KA)FLAG:18550*lHKA*vH*H BACKS UP ONE SCREEN WHILE IN HEADER OR 1ST DIAGNOSIS.*HKA1011+HB)j) EXIT)5)11:13:"GET WELL SOON!"I)13:18:"BYE!"Z)Y15000:Y`)j): BOXt):1:1):K140:(88);:K):24:K139:(88);:K):K223:1:K:(88);:K):K223:40:K:(88);:K):)V; TIMER*`;K120070 (4895((22:10::" ";:Z( 23:4:"PLEASE READ PARAGRAPH MORE CLOSELY";d(4855j(w($ RANDOM()K1A(.AA(2)(3K(5AAA(8A100A:A%(A)4(BA%0A%25ī4900(LA%A%65(VA$(A%)([A%A%32)`CAP$(A%) SAME AS VISITING A DOCTOR.";L'p17:4:"DON'T USE OLD VERSIONS OF HOUSE";'z19:4:"CALL. YEARLY UPDATES ARE AVAILABLE.";'21:6:"HIT CORRECT LETTER TO PROCEED";'15000'4850'' GET AND CHECK'AA$(AA$A$AA$CAP$ī48N I.RA2,L41,D1"9j(9kPB172227450C9kD$;"OPEN I.RA,L41,D1"I9ke9:kD$;"OPEN I.RA2,L41,D2"k9Dk{9yAPPLEHOUSE EMF4905 D$(4): CONT-D :4000:15000:15200 5:24::" PRESS ANY KEY TO CONTINUE ";:A$:A(A$):300S8iPB172227100,8iD$;"READ I.RA,R";K78iINFO$=8i[8iD$;"READ I.RA2,R";K1722f8iINFO$l8i8j SORTS OUT OPEN CODES FOR 1 & TWO DRIVES AND DIFFERENT I.RA'S8jND2274008jPB1722273508jD$;"OPEN I.RA,L41,D1"8j9jD$;"OPE16:CK$Q$(KB)$7eLINFO$(INFO$,2);7eCK$LINFO$26058Q7eINFO$(INFO$,38)7eY:1:"----------";KA$(KB);"---------";:YY1:260607eKB7e1:Y:INFO$7eYY17eK7eD$;"CLOSE"7e8xi SORTS OUT I.RA SEGMENTS & NUMBER OF DISK DRIVE