L%hh LHH` X% " ӠӠΠǠ ˮԠˠǠӬĠӠ٠٠ϠŮ+JJJJ ,,,L Lک ٥ҥ>ӥ? ( ㆭ  ؆` | A""""""QQQYV <"<Q '(h((QQQ`@GHOHO $"!$q}T@` `@@``p0 8p@@`00 |0@` `pppPox`D3 < p?|@@@|@`f ppn|>0p  qcs6<, 3['Nxxxpp0` ```@vl  ?`@:3q  AcqcCyO@  0p`@@q @p?|`3cC ? ?>|xp`p`@Acwsssssss__????????~^^ ?~~~~~~~?>~||xpp`@~| xyy{~|@`pp xpp`@yyyyyyyx~ ~x`|xpxqa` cqx|||||||cCC?>>>??<<|||~?`ppxx||<||xxpp`|||||||| |?|p`@@@@`p|? OOGgccqpxsssssssppxxx|<<~?>~||xxxxppp```@@@`?~|x|~|||||||p@@p|~><|xp`@>|x|xpx}yyyyyyyAA?~|xpp`ppx|~? ?? 33@``@@glloLL LlOgloloG @`@glolo@@gLLL GaamGGlg`GGlg`G  xL| x@@xMLLxMyyM MyxAxMx|Yq @lllLglllgG LlL`@GLOLo033366m~0>3>33~G<`G}rccb``acccq{{{{8008????~ |lL COoooog CgoooocCFFLLXXPpqa88`}}}}>????~ | ~FCCFL ____|GG|GGccp{{{{ ;1q``qp`aas{{{{8008 0y| |}}}}AAQg((h' $C@0j ed`y < I1@@q q s8EE9EE8> ` `$DC0ANPQN@'h(' WPG((H@stq q8AyEx:NPQ@GhHHG#$p# @ (*Y9AyEy: QQQO~C%%C~_DDD qAAAaq9`ppxxx|xxx|AsGN8088 CcˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^L iõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@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@  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- ( t Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(` d ֠z# u`Y OF THE ABOVE"?("YOUR LUNGS ARE PROBABLY NOT IN SHAPE FOR"Z2"STRENUOUS EXERCISE."`<F"PRESS RETURN TO CONTINUE";S$PZ9);"LUNG TEST QUESTIONS"dn"TAKE A DEEP BREATH AND HOLD IT AS LONG"x"AS YOU CAN. THEN EXHALE AND Q5""YOUR RATING IS ";A1$(Q),:A0O"PRESS RETURN TO CONTINUE";S$Ut9);"LUNG TEST QUESTIONS"zL$(7);L$(1)L$(8);L$(2)L$(7);L$(3)L$(7);L$(4)L$(7);L$(5) L$(6)"IF YOU ANSWERED YES TO AN(1);17);"84 OR LESS"(A1$(2);<17);"85 - 94"I$A1$(3);^.17);"95 - 114"k8A1$(4);B17);"115 -124"LA1$(5);V17);"125 OR MORE"`jA85Q1tA95A84Q2~A115A94Q3A125A114Q4A124"ONDS. BEGIN COUNTING YOUR PULSE FOR A"="FULL MINUTE."CKA0q"ENTER YOUR TOTAL PULSE BEATS";AA40A200A$"40 - 200":650:79012);"RATING YOUR HEART""CONDITION";17);"HEART RATE PER MINUTE"A1$FFEE." H<R"PLACE ONE FOOT ON A STEP. LIFT YOURSELF"j\"UNTIL BOTH FEET ARE ON THE STEP. NEXT"f"LOWER ONE FOOT AT A TIME UNTIL BOTH ARE"p"ON THE FLOOR AGAIN. REPEAT THIS AT A"z"MINUTES. SIT DOWN AND RELAX FOR 5 SEC-")";A '" VALID ENTRIES ARE ";A$-P"PRESS RETURN TO CONTINUE";A$_A0:A$" "ek~  MAIN ROUTINE 12);"RATING YOUR HEART"*4"NEVER TAKE THIS TEST SOON AFTER SMOKING">"EXERCISING, EATING, OR DRINKING COR YOUR SELECTION (1-3)";A-NA1İ4690:450@XA2İ770ʫ450|bA3Ė(9):(10):"RETURNING TO INDEX":(4);"RUN INDEX"lA$"1-3"vA3İ650:450A1İ650:450 ERROR ROUTINE 16);"E R R O R"" YOU ENTERED UT"- E$(24)"YOU WILL HAVE TO BE PATIENT."3 S 10);"RATING YOUR FITNESS"Y x 10);"BY WARREN SHANAHAN"~  18);"MENU"  10);"1 - INSTRUCTIONS"  10);"2 - EXECUTE TEST" & 010);"3 - END" :D"ENTE" "9 E$(19)"YOU HAVE ACHIEVED INCREDIBLE STIFFNESS,"j E$(20)"WEAKNESS AND LACK OF ENDURANCE. IF" E$(21)"YOUR HEART AND LUNGS CAN TAKE IT AND" E$(22)"THEIR CONDITION IS REVERSIBLE,YOU MAY" E$(23)"BE ABLE TO GET INTO SHAPE SLOWLY. BUR FLEXIBILITY, STRENGTH AND ENDURANCE"6 ,E$(10)" "E 6E$(11)" "T @E$(12)" " JE$(13)"YOU ARE NOT READY FOR THE ROCKING CHAIR." TE$(14)"BUT LOTS OF WORK NEEDS TO BE DONE. TAKE" ^E$(15)"IT SLOWLY." hE$(16)" " rE$(17)" " |E$(18)E IN VERY GOOD SHAPE AND PROB-"P E$(2)"ABLY CAN START ANY SPORT OR EXERCISE"b E$(3)"PLAN."p E$(4)" "~ E$(5)" " E$(6)" " E$(7)"YOU ARE IN PRETTY GOOD SHAPE, BUT YOU" E$(8)"NEED CONDITIONING EXERCISES TO INCREASE"' "E$(9)"YOL$(3)"SMOKE"= L$(4)"HAVE ASTHMA OR RESPIRATORY ALLERGY"k L$(5)"HAVE TROUBLE BLOWING OUT A CANDLE" L$(6)"WITH YOUR MOUTH FULLY OPEN" L$(7)"DO YOU " L$(8)"DOES YOUR " A0 L$(9)"RATING YOUR BODY" E$(24) E$(1)"YOU AR2 A1$(10)2L$(9): LUNG QUESTIONSI(A1$(1)"EXCELLENT"[2A1$(2)"GOOD"p<A1$(3)"AVERAGE"FA1$(4)"FAIR"PA1$(5)"POOR"ZA1$(6)"VERY "dL$(1)"PANT OR GASP AFTER CLIMBING STAIRS"nL$(2)"CHEST HURT AFTER EXERTION" x           ΠĠ̩ŠŠӠƠ̠̬Ġ٠͠ӮàĢŢ̢ŠԠŠӠƠ٢à̠Š̬̠̬Ǡ̬îϠŠŢҠĠǠӮϠԠŢԠǠϠŠ͠ԮӢӢ4)"CONTINUED"::L(1)0:PGPG1. 0L(1)L(1)14 :u DHIT0ĺ:5)"NO PATIENTS WERE FOUND MEETING YOUR CRITERIA." N:64)"END REPORT": XJ6(11L(1)):HIT0JJ2 ]0 bI1J:L:I l110!v:"WHERE DO YOU WANT THE NAMES DISPLAYED ?"MEETING YOUR CRITERIA."A:"PRESS TO GO TO INDEX";Q$` * THIS WILL PRINT REPORTqL#1ī18101:5)TD$;25)X1$;69)"PAGE ";PG:EOD$"Y"ī1860HIT1:5)Z1$:5)Z2$:5)Z3$:5)Z4$:5)Z5$: &L(1)10ĺ:61ī1650h:X1$:)rEOD$"Y"17508|HIT1:Z1$AZ2$JZ3$SZ4$nL(1)3L(1)L(1)1::"PRESS TO CONTINUE, <@> TO END";Q$L(1)1Q$"@"ĺ(4);"CLOSE ";FL$:110HIT0ĺ:"NO PATIENTS WERE FOUND":"";PG:%"1. DATE OF VISIT: ";DT$L"2. DRUG ADMINISTERED: ":4)DG$f""3. SYMPTOMS: ";SY$,"4. DIAGNOSIS: ";DI$6"5. COMMENTS: ":4)CT$@"6. ATTENDING PHYSICIAN:":4)"DR. ";AD$JT * THIS WILL PRINT TO SCREEN ^L(1)S PAGE 2 TO THE SCREEN *?:FI$;" ";LA$:SS$;33)"PAGE 2":m"7. EMERGENCY CONTACT:":4)EC$:4)EN$"8. COMMENTS (MEDICAL HISTORY, ETC.)":4)CM$ * THIS PRINTS OFFICE VISIT INFO TO THE SCREEN *:FI$;" ";LA$:SS$;33)"PAGE SS$;33)"PAGE 1":="1. ";ST$:4)CI$;", ";SA$;" ";ZI$W"2. BIRTHDAY: ";BD$l"3. SEX: ";SX$"4. PHONE: ";HP$;" (HOME)":11)OP$;" (OFFICE)""5. PHYSICIAN: DR. ";DR$"6. INSURANCE CARRIER:":4)IN$ * THIS PRINTO6$:M1$M6$:N1$N6$490"q( * THIS WILL COPY REST OF FILE TO FILE, CLOSE FILES, AND RETURN TO MENU *2EOF(1)ī1370<380F1140P1330Z(4);"CLOSE ";FL$d2720n * THIS PRINTS PAGE 1 TO THE SCREEN *x:FI$;" ";LA$:" EL";:39:"*"; "* *"q "*";:7:"WESTERN ILLINOIS UNIVERSITY";:39:"*" "* *" "*";:9:"MACOMB, ILLINOIS 61455";:39:"*" "***************************************INGFIELD, ILLINOIS 62777";:39:"*"S "* *" "* *" "*CURRICULUM PUBLICATION CLEARING HOUSE*" "* *" "*";:12:"46 HORRABIN HAL"* *"^ "*";:9:"AND TECHNICAL EDUCATION";:39:"*" "* *" "*";:9:"100 NORTH FIRST STREET";:39:"*" "* *"$ "*";:6:"SPR ;"EXCLUSIVE DISTRIBUTION RIGHTS RETAINED"Ap"***************************************""* ILLINOIS STATE BOARD OF EDUCATION *""* *""* DEPARTMENT OF ADULT, VOCATIONAL, *",    l 4)v "AFTER YOU HAVE HAD A CHANCE TO REVIEW THE"d) "LIST THE PROGRAM WILL RETURN TO THE MAIN") "MENU WHERE YOU CAN REORDER THE GOALS FOR") "ANOTHER RUN") "PRESS TO CONTINUE";S$:)  AS AN EXAMPLE, IF FOOT-"J(: "BALL IS LISTED THIS MEANS A TYPE OF FLAG"z(D "OR TOUCH FOOTBALL. ALSO IN A SPORT LIKE"(N "SWIMMING THE VALUES APPLY TO AVERAGE "(X "SWIMMING AND NOT THE KIND DONE WHEN TRAIN-"(b "ING WITH A COMPETITIVE TEAM."))' "A NUMERIC VALUE OF 0 THROUGH 5 IS "W' "AWARDED EACH GOAL WITHIN EACH EXERCISE"' "FIVE IS A HIGH VALUE AND 0 IS A LOW "' "VALUE"' ' "PRESS TO CONTINUE";S$:'& "THE SPORTS LISTED ARE THOSE PLAYED BY"(0 "AVERAGE PEOPLE."STRENGTH, ENDURANCE, FLEXIBILITY,"M& "SKILLS, CONVENIENCE, SOCIABILITY. "x& "ABBREVIATIONS OF THESE ARE PRINTED "& "VERTICALLY ABOVE THE COLUMNS OF NUMBERS"& "THE SPORTS THAT COME CLOSEST TO FULFILL-"& "ING THESE GOALS ARE SHOWN ABOVE."3 3 2"-%r "SNOW SHOEING 3 3 3 3 3 0 0 1 1"T%| "WALKING 3 3 1 1 2 1 0 5 2"{% "NORDIC SKI 3 2 2 2 3 1 1 1 1"% "PRESS TO CONTINUE";S$:% "IN THIS EXAMPLE YOUR ORDER OF GOALS"% "WAS SLIMMING, HEART, MUSCLE BUILDING,"#& M T S H D X L V C"C$6 "JOGGING 5 5 2 2 5 1 1 5 1"j$@ "CYCLING 5 5 2 2 5 1 1 4 1"$J "ROPE SKIP 5 5 1 2 5 2 3 5 1"$T "CALISTHENICS 5 1 3 3 3 4 1 5 2"$^ "SWIMMING 4 4 2 4 5 3 4 2 2"%h "BASKETBALL 4 4 1 1 5 1 Y NECESSARY TO ACHIEVE YOUR"I# "GOALS. A SAMPLE OF THIS OUTPUT IS AS"Y# "FOLLOWS:"# "PRESS TO CONTINUE";S$:# " S . . S . F S C ."# " L H M G E L K O S"#" " I R U T N E I N O"$, " YOU "" "SELECTED."" C" "PRESS TO CONTINUE";S$:o" "THE COMPUTER PROGRAM WILL THEN EVAL-"" "UATE THIRTY DIFFERENT SPORTS AND"" "EXERCISES AND SELECT THE TOP NINE "" "THAT WILL MOST CLOSELY SUPPLY THE TYPE"# "OF ACTIVITRESS TO CONTINUE";S$:M!n " AS YOU SELECT EACH GOAL IT IS REMOVED"|!x " FROM THE COLUMN ON THE LEFT AND PLACED"! "IN THE COLUMN ON THE RIGHT. THE PROCESS"! "WILL CONTINUE UNTIL THE ENTIRE SET OF "" "GOALS IS ARRANGED IN THE ORDER % " 1. HEART ENDURANCE"9 " 2. SLIMMING"L  " 3. MUSCLES"`  " 4. STRENGTH"k ( " 5." 2 " 6. FLEXIBILITY" < " 7. SPORTS SKILLS" F " 8. CONVENIENCE" P " 9. SOCIABILITY" Z " SELECT (1-9) YOUR NEXT MOST IMPORTANT"!d "PECTION THE SCREEN"> "WILL CHANGE TO REFLECT YOUR MOST IM-"k "PORTANT GOAL. FOR INSTANCE, IF YOUR " "SELECTION IS ENDURANCE THE SCREEN WILL" "RESPOND:" "PRESS TO CONTINUE";S$: "GOAL ORDER (PROGRAM) GOAL ORDER (YOURS)"LES"j " 4. STRENGTH"/t " 5. ENDURANCE"G~ " 6. FLEXIBILITY"_ " 7. SPORT SKILL"w " 8. CONVENIENCE" " 9. SOCIABILITY" " SELECT (1-9) THE MOST IMPORTANT GOAL" "PRESS TO CONTINUE";S$: " AS YOU MAKE YOUR SEL THE "4 "PROGRAM. AS A RESULT OF CHOOSING THIS"c$ "OPTION THE FOLLOWING WILL APPEAR ON THE"r. "SCREEN."8 "PRESS TO CONTINUE";S$:B "GOAL ORDER (PROGRAM) GOAL ORDER (YOURS)"L " 1. HEART"V " 2. SLIMMING"` " 3. MUSC+"IN ADDITION TO THE ABOVE GOALS TWO "Z"OTHER CONSIDERATIONS ARE MADE. THEY ARE"s" 8. CONVENIENCE."" 9. SOCIABILITY.""PRESS TO CONTINUE";S$: "THREE SELECTIONS ARE ON THE MENU." "THE SECOND IS USED TO EXECUTEING"(" 1. A MORE EFFICIENT HEART."K" 2. A SLIMMER FIRMER BODY."p" 3. BULGING 'MACHO' MUSCLES."" 4. GREATER STRENGTH."" 5. POWER AND ENDURANCE."" 6. FLEXIBILTY AND SUPPLENESS."" 7. IMPROVED SPORTS SKILLS."R NEEDS, SKILLS AND EN-"FH"VIRONMENT. INITIALLY THE PROGRAM WILL"sR"ASK A SERIES OF QUESTIONS IN ORDER TO"\"DETERMINE THE GOALS YOU ARE TRYING TO"f"ACHIEVE."p"PRESS TO CONTINUE";S$:z"THE QUESTIONS RELATE TO THE FOLLOWOR THIS PROGRAM WAS OBTAINED"J"FROM A SIGNET BOOK ENTITLED 'THE FIT-"w "NESS FACT BOOK', BY THEODORE BERLAND,""COPYRIGHT, 1980. *"THE PROGRAM IS DESIGNED TO HELP YOU"4"EVALUATE THE SPORTS OR EXERCISES THAT">"BEST SUIT YOU= =" s5v PRINT OUT RESULT ******************@I19LXSN(I)YSS$(X);dJ19{J312);SV(X,J);JI:"PRESS TO CONTINUE";A$:" SPORT/EXERCISE EVALUATION""THE DATA FN I19WAA(I,2)%H14;S2$(H,I)S1$(H,W)BHIIOn PRINT OUT RESULT HEADINGt&06);A$(11,1)5::J14DI19NI313);S2$(J,I);XIblJoq" = = = = = = = K) @JJIT@^ SORT THE VALUES IN DESCENDING ORDERFhRrI139`|JI140wBB(I)BB(J)ī1710TBB(I):T1SN(I)BB(I)BB(J):SN(I)SN(J)BB(J)T:SN(J)T1JI SORT HEADINGS ACCORDING TO GOAL SELECTIOUITED TO YOUR GOALS" 7 REARRANGE GOAL ARRAYS=HI19VWAA(I,2)bH140vSV(H,I)SS(H,W)}HI TOTAL ARRAY NUMBERS FOR SORTI140K1000000000"J19,KK106BB(I)BB(I)(SV(I,J)(R,2)A A$(A,1)" ""Y199A$(Y,1)" "ī1330C(1040J2Ys<A$(10,1)"YOUR FINAL GOAL SELECTION"FWA9999PZ1050dn"PLEASE WAIT A FEW SECONDS WHILE THE"x"PROGRAM EVALUATES THE SPORTS AND ""EXERCISES BEST SX;t3);A$(Z,1);'~25);A$(Z,2).Z4CA$(10,1);KA$ZB$"1 - 9"mWA9999ī1250yA(A$)A9İ730::1050A1İ730::1050A$(A,1)" "İ810::1050A$(10,1)A$(14,1)RR1A$(R,2)A$(A,1):AAE EVALUATION"1A$(12,1)"GOAL ORDER (PROGRAM)"SA$(13,1)"GOAL ORDER (YOURS)"A$(14,1)"SELECT (1-9) THE NEXT MOST IMPORTANT GOAL":1050:12606);A$(11,1)$.A$(12,1);822);A$(13,1)BLX0VZ19`XX1j"A$(3,1)"MUSCLES".A$(4,1)"STRENGTH"FA$(5,1)"ENDURANCE"`A$(6,1)"FLEXIBILITY"{A$(7,1)"SPORTS SKILL"A$(8,1)"CONVENIENCE"A$(9,1)"SOCIABILITY"A$(10,1)"SELECT (1-9) THE MOST IMPORTANT GOAL" A$(11,1)"SPORTS/EXERCIS"PRESS TO CONTINUE";S$) /*E416);"E R R O R"K>iH"YOU ENTERED ";A;A$(A,2)oR\"THAT ENTRY WAS PREVIOUSLY SELECTED";fp"PRESS WHEN READY TO CONTINUE";A$zA$(1,1)"HEART"A$(2,1)"SLIMMING10)"SELECT 1 - 3";!A5A1İ2020:550CA2ī900|A3ė:(10):"RETURNING TO INDEX":(4);"RUN INDEX"B$"1, 2, OR 3"73055016);"E R R O R""YOUR ENTERED ";A "VALID ENTRIES ARE ";B$#"END"ī510Y-A$(14,2),AA(9,2)DAA$(9),BB(40):R0l&:6);"SPORTS/EXERCISE EVALUATION"r0:10);"BY WARREN SHANAHAN"DN18);"MENU"Xb10);"1 - INSTRUCTIONS"l10);"2 - RUN PROGRAM"v10);"3 - END"2,0,0,4,1,WEIGHT TRAININGC  32,3,1,4,4,3,4,4,4,4,WRESTLING/JUDOb  33,0,0,0,0,0,0,0,0,0,END SS$(40),SS(40,9),SV(40,9),SN(40) Y150 SN(Y),SS(Y,1),SS(Y,2),SS(Y,3),SS(Y,4),SS(Y,5) SS(Y,6),SS(Y,7),SS(Y,8),SS(Y,9),SS$(Y) SS$(Y)PHINE SKI/ h 25,2,3,2,2,3,1,1,1,1,NORDIC SKIW r 26,3,3,3,3,3,0,0,1,1,SNOW SHOEING | 27,3,2,1,1,2,1,0,5,0,STAIR CLIMBING  28,4,4,2,4,5,3,4,2,2,SWIMMING  29,2,2,1,1,2,3,3,2,5,VOLLEYBALL  30,3,3,1,1,2,1,0,5,2,WALKING  31,2,1,5,5,3,TENNIS- " 18,1,1,0,0,0,0,2,3,2,BADMINTONS , 19,4,2,0,2,3,1,2,3,3,RACKETBALLx 6 20,5,5,1,2,5,2,3,5,1,ROPE SKIP @ 21,3,1,3,3,3,1,2,2,2,ROWING J 22,2,1,1,1,2,2,4,1,2,SKATING T 23,1,1,0,0,0,0,3,1,1,WATER SKI ^ 24,1,1,0,0,0,2,3,1,1,AL2,4,FENCING/ 11,5,1,4,4,3,2,2,4,5,FOOTBALLQ 12,5,1,4,4,3,2,2,4,5,SOCCERq 13,1,1,0,1,1,1,3,2,3,GOLF 14,1,1,1,2,1,1,2,1,1,HORSEBACK RIDE  15,5,5,2,2,5,1,1,5,1,JOGGING  16,1,1,0,0,1,1,4,3,3,TABLE TENNIS  17,2,2,1,0,1,1,4,2,,5,1,3,3,2,BASKETBALL7 4,0,0,0,1,0,1,2,2,5,BOWLING^ 5,1,5,3,3,3,4,1,5,2,CALISTHENICS 6,3,1,1,1,4,1,3,1,2,CANOEING 7,3,1,4,3,3,2,2,1,3,CLIMBING 8,5,5,2,2,5,1,1,4,1,CYCLING 9,2,1,1,1,2,2,3,2,4,DANCING 10,1,1,1,1,3,4,4,! .,S,.,S,.,F,S,C,.,H1 L,M,G,E,L,K,O,SI( R,I,U,T,N,E,I,N,Oa2 T,M,S,H,D,X,L,V,Cx<S1$(4,9),S2$(4,9)FI14PJ19ZS1$(I,J)dJnIx 1,1,1,0,1,1,0,4,2,4,SOFTBALL 2,1,1,0,1,1,0,4,2,4,BASEBALL 3,4,4,1,1           ";SA$)SA$""X1$"STATE ":1100:760> "ZIP CODE ";ZI$dZI$""X1$"ZIP CODE":1100:780j *"PHYSICIAN - DR. ";DR$4DR$""X1$"PHYSICIAN":1100:810>H"HOME PHONE ";HP$R"OFFICE PHONE ";OP$\f"DATE OF BIRTH ";X2$"2"::1070:Q$"0"Q$"2"X1$"0":X2$"2":1110:680GQ$"0"ı]Q$"1"İ630:680uQ$"2"ė:660:680"NUMBER AND STREET ";ST$ST$""X1$"STREET ADDRESS ":1100:720"CITY ";CI$CI$""X1$"CITY":1100:740"STATE "LAST NAME ";LA$:LA$""X1$"LAST NAME":1100:630y"FIRST AND MIDDLE NAME ";FI$:FI$""X1$"FIRST NAME":1100:640"SOCIAL SECURITY NO.";SS$:SS$""X1$"SOCIAL SECURITY NO.":1100:6609:"1. ";FI$;" ";LA$:"2. ";SS$:X1$"1":% * WRITE NEW OFFICE INFO *.ZQ1_&DT$;",";DG$;",";SY$;",";DI$;",";CT$;",";AD$e0: * WRITE BLANK OFFICE INFO *DZQ1NX$" "XX$;",";X$;",";X$;",";X$;",";X$;",";X$bl * THIS INPUTS AND EDITS THE VARIABLES *3v NEW PERMANENT INFO *ZQ1LA$;",";FI$;",";ST$;",";CI$;",";SA$;",";ZI$;",";DR$;",";HP$;",";OP$;",";SS$;",";BD$;",";SX$;",";EC$;",";EN$;",";IN$;",";CM$ * WRITE OLD OFFICE INFO *ZQ1T1$;",";G1$;",";Y1$;",";O1$;",";M1$;",";N1$$,A1$,A2$,A3$,A4$,D1$,P1$,P2$,S1$,B2$,S2$,E1$,E2$,I1$,C1$?b * WRITE OLD PERMANENT INFO *kZQ1L1$;",";F1$;",";A1$;",";A2$;",";A3$;",";A4$;",";D1$;",";P1$;",";P2$;",";S1$;",";B2$;",";S2$;",";E1$;",";E2$;",";I1$;",";C1$ * WRITE$ 6(4);"OPEN ";FL$. ;(4);"WRITE ";FL$7 =FL$N @(4);"CLOSE ";FL$W J340 T * THESE READ FROM AND WRITE TO THE FILE * ^ * READ OLD OFFICE VISIT INFO * hT1$,G1$,Y1$,O1$,M1$,N1$ r | * READ OLD PERMANENT INFO *9L1$,F1HE CORRECT FILE *' (4);"OPEN TEMP"= (4);"READ TEMP"F ZQ0L X I126d Q$,FL$z (LA$,1)Q$ī270 I "ERROR - FIRST LETTER OF NAME NOT ALPHABETIC":I1500:I:110 300 (4);"OPEN ";FL$ " ,(4);"CLOSE ";FLEXAMINE/CHANGE/DELETE":" AN EXISTING PATIENT RECORD":"4. SEARCHES AND REPORTS":"5. EXIT PROGRAM" :"CHOOSE ONE, THEN PRESS ";Q Q1Q5X1"1":X2"5":1110:130 6800 Q5500,2450,3290,4740,170 : * THIS OPENS T4)"M E D I C A L R E C O R D":: d:"WRITTEN BY BRUCE AND KAREN BROWN":"APRIL 18, 1982"::"PLEASE ENTER TODAY'S DATE":"(FORMAT MM/DD/YY)";TD$ n:4)"M E D I C A L R E C O R D"::h x"1. INSTRUCTIONS":"2. ADD A NEW PATIENT RECORD":"3. , SUBCONTRACTOR F* THIS PROGRAM WILL CREATE AND MAINTAIN PATIENT RECORDS IN A DOCTOR'S OFFICE AND WILL LIST ALL PATIENTS OR LOCATE THEM BY DOCTOR, SYMPTOM, DRUG, OR DIAGNOSIS. THESE REPORTS MAY BE LISTED TO EITHER THE TERMINAL OR THE PRINTER." Z:NW * MEDICAL RECORD * * WRITTEN BY KAREN AND BRUCE BROWN* 1314 E. HANSON DRIVE, NORMAL, ILLINOIS 61761(* PHONE: 309-452-1507, * THIS DISPLAYS PAGE 2 * 2* JACK MEANSJ L%I"WOMEN CAN INCREASE THEIR LIFE"II"SPAN BY 2 YEARS IF THEY GET "lI"YEARLY GYNECOLOGICAL EXAMS."rIIR$(23)"1"ĺ"YOU DO - KEEP IT UP."IR$(23)"2"ĺ"YOU DO NOT - PLEASE CONSIDER IT."IJ" PRESS TO CONTINUE ";DA$H4"SPAN BY 1 YEAR WITH YEARLY CHECKUPS."0H>XHHR$(22)"1"ĺ"YOU DO - KEEP IT UP."HRR$(22)"2"ĺ"YOU DO NOT - PLEASE CONSIDER IT."H\Hf" PRESS TO CONTINUE ";DA$HpR$(1)"1"ī6120HzH"YEARLY GYNECOLOGICAL EXAM"IOUSLY DETRIMENTAL TO LIFE SPAN."&GQG"IF YOU INSIST, REMEMBER MODERATION."WGG" PRESS TO CONTINUE ";DA$GY406000GR$(1)"2"ī6000G G"ANNUAL PHYSICAL CHECKUP"G G*"MEN OVER 40 CAN INCREASE THEIR LIFE"*"3"ĺ" ARE 30 - 49 POUNDS OVER WEIGHT"\FR$(21)"4"ĺ" ARE 50 OR MORE POUND OVER WEIGHT"bFF"THESE FACTORS COMBINE TO DECREASE YOUR"F"LIFE SPAN BY ";R(19)R(20)R(21);"YEARS."FF"SMOKING, DRINKING, AND OVER EATING ARE " G"OBVIACKS PER DAY"KEXR$(20)"1"ĺ" DRINK MORE THAN 1.5 OZ. OF LIQUOR PER DAY"EbR$(20)"2"ĺ" DRINK LESS THAN 1.5 OZ. OF LIQUOR PER DAY"ElR$(21)"1"ĺ" ARE LESS THAN 10 POUNDS OVER WEIGHT"EvR$(21)"2"ĺ" ARE 10 - 29 POUNDS OVER WEIGHT"'FR$(21)$D3D"SMOKING, EATING, AND DRINKING HABITS"9DWD&"YOU INDICATE THAT YOU:"xD0R$(19)"1"ĺ" DO NOT SMOKE"D:R$(19)"2"ĺ" SMOKE LESS THAN A PACK PER DAY"DDR$(19)"3"ĺ" SMOKE 1 - 2 PACKS PER DAY" ENR$(19)"4"ĺ" SMOKE MORE THAN 2 PTHE FACT THAT YOU HAVE NOT HAD":"A TICKET IN THE LAST YEAR DOES NOT":"INCREASE YOUR LIFE SPAN, BUT IT DOES NOT":"DECREASE IT EITHER. KEEP UP THE GOOD WORK."CC"LET'S HEAR IT FOR SAFE DRIVING!!!!"CD" PRESS TO CONTINUE ";DAAPPY, EASY GOING PEOPLE TEND TO"BB"LIVE LONGER. -- S M I L E."HBtB" PRESS TO CONTINUE ";DA$zBB"DRIVING HABITS"BBR$(18)"1"ĺ"THAT SPEEDING TICKET COST YOU 1 YEAR.":"SLOW DOWN AND LIVE LONGER."CR$(18)"2"ĺ"RE ";#A,R$(16)"2"ĺ" ARE NOT ";BA6"EASY GOING AND RELAXED."[A@R$(17)"1"ĺ"ARE ";yAJR$(17)"2"ĺ" ARE NOT ";AT"HAPPY"A^Ah"THESE TRAITS COMBINE TO INCREASE/DECREASE"Ar"YOUR LIFE SPAN BY ";R(15)R(16)R(17);"YEARS."A| B"HD UP TO BE."@>@" PRESS TO CONTINUE ";DA$D@^@"PERSONALITY TRAITS"d@@"YOU INDICATED THAT YOU:"@R$(15)"1"ĺ" ARE ";@R$(15)"2"ĺ" ARE NOT ";@"INTENSE, AGGRESSIVE, AND EASILY ANGERED."A"R$(16)"1"ĺ" AOES NOT AFFECT LIFE SPAN. HOWEVER,":"MORE THAN 9 HOURS WILL REDUCE IT BY 4 YEARS."?R$(14)"2"ĺ"BY SLEEPING MORE THAN 9 HOURS EACH":"NIGHT, YOU ARE REDUCING YOUR LIFE SPAN":"BY 4 YEARS."?"EVIDENTLY, BEAUTY SLEEP IS NOT WHAT IT IS" @"CRACKE<R(11)R(12)R(13);"YEARS."#>FQ>P"GENERALLY SPEAKING, THE MORE EXERCISE,"r>Z"THE LONGER THE LIFE SPAN."x>d>n" PRESS TO CONTINUE ";DA$>x>"SLEEPING PATTERNS">S?R$(14)"1"ĺ"1 - 9 HOURS OF SLEEP EACH NIGHT":"D"2"ĺ"REQUIRES LITTLE"0="PHYSICAL ACTIVITY."G=" YOU EXERCISE ";p= R$(13)"1"ĺ"0 - 1 TIMES PER WEEK."=R$(13)"2"ĺ"2 - 4 TIMES PER WEEK."=R$(13)"3"ĺ"MORE THAN 4 TIMES PER WEEK."=(=2"INCREASES/DECREASES YOUR LIFE SPAN BY ";>.<" PRESS TO CONTINUE ";DA$4<M<"PHYSICAL ACTIVITY"S<i<"THE FACT THAT:"<R$(11)"1"ĺ" YOU DO ";<R$(11)"2"ĺ" YOU DO NOT ";<"WORK BEHIND A DESK."<" YOUR JOB ";<R$(12)"1"ĺ"REQUIRES ";=R$(12)ATED THAT YOU HAVE BEEN LIVING":"ALONE FOR";YA;"YEARS. THIS DECREASES YOUR":"LIFE SPAN BY";YA;"YEARS - 1 YEAR FOR EACH":"YEAR YOU HAVE BEEN ALONE SINCE AGE 25.";`;j"LIVING ALONE AFTER THE AGE OF 25 HAS";t"A DRAMATIC AFFECT ON LIFE SPAN."<~ OF PEOPLE OVER 64 ":"YEARS OF AGE."+:W:" PRESS TO CONTINUE ";DA$]:$c:.~:8"LIVING ARRANGEMENTS":B:LR$(10)"1"ĺ"THE FACT THAT YOU LIVE WITH SOMEONE ":"INCREASES YOUR LIFE SPAN BY 5 YEARS.";VR$(10)"2"ĺ"YOU INDICHE FACT THAT YOU ARE EMPLOYED INCREASES":"YOUR LIFE SPAN BY 3 YEARS. K E E P THAT JOB!"9R$(9)"2"ĺ"THE FACT THAT YOU ARE UNEMPLOYED DOES":"NOT DECREASE YOUR LIFE SPAN. HOWEVER, A JOB":"WOULD INCREASE IT BY 3 YEARS."9%:"THIS IS ONLY TRUELEGE AND ADVANCED DEGREES INCREASE LIFE"S8"SPAN BY 1 AND 2 YEARS RESPECTIVELY."Y88"LET'S HEAR IT FOR HIGHER EDUCATION!!!"88" PRESS TO CONTINUE ";DA$8Y65ī490088"EMPLOYMENT STATUS"8Z9R$(9)"1"ĺ"THAT YOU DID NOT COMPLETE COLLEGE":"DOES NOT INCREASE OR DECREASE YOUR":"LIFE SPAN"7fR$(8)"3"ĺ"YOUR COLLEGE DEGREE INCREASES YOUR":"LIFE SPAN BY 1 YEAR."7pR$(8)"4"ĺ"YOUR ADVANCED DEGREE INCREASES YOUR":"LIFE SPAN BY 2 YEARS."7z(8"COLEASE LIFE SPAN."S6 R$(7)"1"ĺ:"MAYBE YOU SHOULD REQUEST A":"SALARY DECREASE."Y6}6 "LET'S HEAR IT FOR POVERTY!!!"6*64" PRESS TO CONTINUE ";DA$6>6H"EDUCATIONAL ACHIEVEMENT"6RT7\R$(8)"1"R$(8)"2"ĺ"THE FACT T5R$(7)"2"ĺ"THE FACT THAT YOU EARN LESS THAN $50,000":"PER YEAR HAS NO AFFECT ON YOUR LIFE SPAN."::"IF YOU EARNED MORE THAN $50,000, YOUR LIFE":"SPAN WOULD BE DECREASED BY 2 YEARS."55"SALARIES IN EXCESS OF $50,000 TEND TO"6 "DECRO"&4"PARENT OR SIBLING UNDER 50 ";<4R$(6)"1"ĺ"HAD"V4R$(6)"2"ĺ"WHO HAD"e4"CANCER."k44"THIS DECREASES YOUR LIFE"4"SPAN BY ";(R(6)R(7));" YEARS."44" PRESS TO CONTINUE ";DA$44"S A L A R Y"5 INDICATED THAT ";;3:R$(5)"1"ĺ"AT LEAST 1 PARENT DIED"a3DR$(5)"2"ĺ"NEITHER PARENT DIED"3N"BEFORE THE AGE OF 50 OF A STROKE"3X"OR HEART ATTACK."3b3l"YOU ALSO INDICATED THAT ";3vR$(6)"1"ĺ"AT LEAST 1"4R$(6)"2"ĺ"YOU HAD N WHO LIVED PAST THE AGE"&2"OF 79.",2g2"THIS INCREASES YOUR LIFE SPAN BY";R(3)R(4);"YEARS."m22"LONGEVITY TENDS TO RUN IN FAMILIES."22" PRESS TO CONTINUE ";DA$22"IMMEDIATE FAMILY HISTORY"2&30"YOU"TOWNS OR RURAL AREAS INCREASES LIFE"41r"SPAN.":1|f1" PRESS TO CONTINUE ";DA$l11"AGE OF GRANDPARENTS"11"YOU INDICATED THAT YOU HAD/HAVE ";R$(3)1"GRANDPARENTS WHO LIVED PAST THE AGE OF"2"84 AND ";R$(4);""J06R$(2)"2"ĺ"10,000 - 2,000,000":"HAS NO AFFECT ON YOUR LIFE SPAN."0@R$(2)"3"R$(2)"4"ĺ"LESS THAN 10,000":"INCREASES YOUR LIFE SPAN BY 2 YEARS."0J0T"IN GENERAL, LIVING IN LARGE TOWNS "0^"DECREASES LIFE SPAN. LIVING IN SMALL"'1h OTHER FEMALES."/B/" PRESS TO CONTINUE ";DA$H/g/"POPULATION OF HOME TOWN"m//"THE FACT THAT THE POPULATION OF YOUR "/""HOME TOWN IS ";0,R$(2)"1"ĺ"GREATER THAN 2,000,000":"REDUCES YOUR LIFE SPAN BY TWO YEARS. LIFE"8."SPAN BY AN AVERAGE OF 3 YEARS JUST BECAUSE"N."THEY ARE MALE."T.."THE AVERAGE LIFE SPAN IN 1981 WAS 70.5 FOR"."WHITE MALES AND 65.3 FOR ALL OTHER MALES.".."THE AVERAGE FOR WHITE FEMALES WAS 78.1 AND"/"74 FOR ALLND INCREASE THEIR"A-F"LIFE SPAN BY AN AVERAGE OF 4 YEARS JUST"a-P"BECAUSE THEY ARE FEMALE."k-Z4010q-d-n"THE FACT THAT YOU ARE FEMALE INCREASES"-x"YOUR LIFE SPAN BY AN AVERAGE OF 4 YEARS."-."MEN ON THE OTHER HAND DECREASE THEIROF PRENTICE-HALL INC.",H," PRESS TO CONTINUE ";DA$N,T,Z,g,"S E X"|, R$(1)"2"ī3940,,"THE FACT THAT YOU ARE A MALE REDUCES",("YOUR LIFE SPAN BY AN AVERAGE OF 3 YEARS.",2-<"WOMEN ON THE OTHER HA/+"MEDICAL CENTERS, AND INSURANCE COMPANIES"\+"TO DETERMINE PROBABLE LIFE EXPECTANCY"b++"THE TEST WAS ADAPTED FROM THE BOOK "+"'LIFEGAIN' BY ROBERT F. ALLEN PH.D. WITH"+"SHIRLEY LINDE. PUBLISHED BY APPLETON BKS,","A DIVISION *8"STRESS, ENVIRONMENT, GENERAL BEHAVIOR,"T*B"AS WELL AS HEREDITY PATTERNS AND"n*L"MEDICAL HISTORY.":*V" PRESS TO CONTINUE ";DA$*`*j" I N S T R U C T I O N S"*t*~"THIS TEST IS FREQUENTLY GIVEN BY DOCTORS," PRESS TO CONTINUE ";DA$*) R) " I N S T R U C T I O N S"X) )"ACTUARIAL TABLES ARE USUALLY BUILT")"UTITILIZING HEREDITY PATTERNS AND ")"MEDICAL HISTORY EXCLUSIVELY.")$)."THIS TEST MEASURES RISK BASED ON",/( "THIS PROGRAM GIVES A RELATIVELY ACCURATE"M( "ESTIMATE OF LONGEVITY."S( ( "WHILE NO TEST CAN PRECISELY PREDICT "( "LONGEVITY, THIS TEST HAS PROVEN FAR"( "MORE RELIABLE THAN THE TRADITIONAL"( "ACTUARIAL TABLE."( ( $) " ' S$' 1' "IT CONTAINS";L;"CHARACTERS."7' ^' "THIS ENTRY REQUIRES AT LEAST";LA'* "AND NOT MORE THAN";HA;"CHARACTERS."'4 '> "PRESS TO CONTINUE ";'H DA$'R S$""'\ 'f 'p " I N S T R U C T I O N S"'z * * E R R O R * * *"&v 6& "YOUR ENTRY WAS ";S$<& i& "VALID ENTRIES ARE FROM";LA;"TO";HA;"."o& & " PRESS TO CONTINUE ";& DA$& S$""& & :(9)& " * * * E R R O R * * *"& ' "YOUR ENTRY WAS:"2% R$(23)S$% :(7)K% "BASED ON YOUR RESPONSES TO THE QUESTIONS,"{% "YOU CAN EXPECT TO LIVE AN ADDITIONAL";AY%& "YEARS, OR TO THE AGE OF";A%0 %: %D " PRESS TO CONTINUE ";DA$%N 3830%X 130%b :(9)&l " * 1)2$ R$(22)S$$ ($ S$"":(9)=$ R$(1)"1"ī3080f$ "DO YOU SEE A GYNECOLOGIST YEARLY?"|$ :" 1 - YES"$ " 2 - NO"$ :" ENTER SELECTION # ";S$$ S$"1"S$"2"ī3060$ LA1:HA2:3170:2970% S$"1"AA2:R(22)21)S$ #" #, Y40ī29502#6 R$(1)"2"ī29508#@ H#J S$"":(10)t#T "DO YOU HAVE ANNUAL MEDICAL CHECKUPS?"#^ :" 1 - YES":" 2 - NO":#h " SELECTION # ";S$#r S$"1"S$"2"ī2950#| LA1:HA2:3170:2880$ S$"1"AA2:R(2 " " 3 - 30 TO 49 POUNDS"B" " 4 - 50 OR MORE POUNDS"f" :" ENTER SELECTION # ";S$" S$"1"S$"2"S$"3"S$"4"ī2810" LA1:HA4:3170:2710" S$"2"AA2:R(21)2" S$"3"AA4:R(21)4" S$"4"AA8:R(21)8# R$( 2 - NO"0!d :" ENTER SELECTION # ";S$I!n S$"1"S$"2"ī2690]!x LA1:HA2:3170x! S$"1"AA1:R(20)1! R$(20)S$! ! S$"":(6)! "HOW MUCH ARE YOU OVER WEIGHT?"! :" 1 - 0 TO 9 POUNDS"" " 2 - 10 TO 29 POUNDS"2"S$"3"S$"4"ī25700 LA1:HA4:3170:2500K S$"2"AA3:R(19)3f  S$"4"AA8:R(19)8  S$"3"AA6:R(19)6 ( R$(19)S$ 2 < S$"":(9) F "DO YOU DRINK MORE THAN 1.5 OUNCES OF":"LIQUOR PER DAY?": P " 1 - YES" !Z "$"1"AA1:R(18)1" R$(18)S$( 7 S$"":(9)u "HOW MANY PACKS OF CIGARETTES DO YOU":"SMOKE EACH DAY?" :" 1 - 0":" 2 - 1/2 TO 1":" 3 - 1 TO 2":" 4 - MORE THAN TWO": " ENTER SELECTION # ";S$ S$"1"S$""2"AA2:R(17)2 j R$(17)S$6t :S$"":(6):(7)v~ "HAVE YOU HAD A SPEEDING TICKET IN":(6):"THE LAST YEAR?" :" 1 - YES":" 2 - N0": :(6):" ENTER SELECTION # ";S$ S$"1"S$"2"ī2480 LA1:HA2:3170:2420 S2210S$"1"AA3:R(16)3-R$(16)S$3 G S$"":(6):(9)] "ARE YOU HAPPY?"t$ :(5):" 1 - YES". " 2 - NO"8 :(6):" ENTER SELECTION # ";S$B S$"1"S$"2"ī2390L LA1:HA2:3170V S$"1"AA1:R(17)1` S$ī2190 LA1:HA2:3170:2120;S$"1"AA3:R(15)3IR$(15)S$O^S$"":(9)"ARE YOU EASY GOING AND RELAXED?":" 1 - YES"" 2 - NO":" ENTER SELECTION # ";S$S$"1"S$"2"ī2290LA1:HA2:3170: S$"1"S$"2"ī21002*LA1:HA2:3170:2020M4S$"2"AA4:R(14)4[>R$(14)S$lH:S$"":(9)R"ARE YOU INTENSE, AGGRESSIVE, EASILY ANGERED?"\:" 1 - YES"f" 2 - NO"p:" ENTER SELECTION # ";S$zS$"1"S$"2""3"ī1990$LA1:HA3:3170:1920>S$"2"AA2:R(13)2XS$"3"AA4:R(13)4fR$(13)S$l{S$"":(9)"HOW MANY HOURS DO YOU USUALLY SLEEP?":" 1 - 1 TO 9" " 2 - 10 OR MORE":" ENTER SELECTION # ";S$170:1830#lS$"1"AA3:R(12)31vR$(12)S$B:S$"":(6)}"HOW OFTEN DO YOU EXERCISE STRENUOUSLY":"EACH WEEK?"" 1 - 0 TO 1 ":" 2 - 2 TO 4":" 3 - MORE THAN 4":" ENTER SELECTION # ";S$ S$"1"S$"2"S$3170:1710&S$"1"AA3:R(11)34R$(11)S$:&N0S$"":(4):(7):"DOES YOUR JOB REQUIRE REGULAR, HEAVY":"PHYSICAL LABOR?"D:" 1 - YES":" 2 - NO":N" ENTER SELECTION # ";S$XS$"1"S$"2"ī1900 bLA1:HA2:30YA105ī1700-LA0:HA105:3170:16308AAYA>RS$"":(4):(7)t"DO YOU WORK BEHIND A DESK?":(4)" 1 - YES":(4)" 2 - NO":(4)" ENTER SELECTION # ";S$S$"1"S$"2"ī1810 LA1:HA2:O" ,:(6)/6" ENTER SELECTION # ";S$H@S$"1"S$"2"ī1620bJLA1:HA2:3170:1520TR$(10)S$:S$"1"AA5:R(10)5:1710^hS$"":(9)r"HOW MANY YEARS HAVE YOU LIVED ALONE"|"SINCE AGE 25 ";S$YA(S$)S$""YA 2 - NO":(4)5" ENTER SELECTION # ";S$NS$"1"S$"2"ī1500hLA1:HA2:3170:1410S$"1"AA3:R(9)3R$(9)S$S$"":(6):(7)"DO YOU LIVE WITH SOMEONE? "::(6)" 1 - YES":(6)"" 2 - N<Y1Y120ī13602FLA1:HA120:3170:1300IPY30Y39AA2`ZY40Y49AA3wdY50Y69AA4nY70AA5xY65ī1520:S$"":(4):(7)"ARE YOU PRESENTLY EMPLOYED ":(4)" 1 - YES":(4)" SIONAL SCHOOL"6" ENTER SELECTION # ";S$]S$"1"S$"2"S$"3"S$"4"ī1270wLA1:HA4:3170:1130S$"3"AA1:R(8)1S$"4"AA2:R(8)R(8)2 R$(8)S$S$"":(10)("ENTER YOUR AGE (1-120) ";S$2Y(S$)1"S$"2"ī1130)`LA1:HA2:3170:1030CjS$"1"AA2:R(7)2PtR$(7)S$V~eS$"":(6)"HIGHEST GRADE LEVEL COMPLETED"" 1 - GRADE SCHOOL"" 2 - HIGH SCHOOL"" 3 - COLLEGE"" 4 - GRADUATE/PROFESN # ";S$!S$"1"S$"2"ī1010:LA1:HA2:3170:890TS$"1"AA3:R(6)3aR$(6)S$gvS$"":(9)"DO YOU EARN MORE THAN $50,000/YEAR?"$." 1 - YES"8" 2 - NO"BL" ENTER SELECTION # ";S$VS$"fS$"1"AA4:R(5)4&pR$(5)S$,z;S$"":(6)k"HAS ANY PARENT, BROTHER, OR SISTER UNDER""THE AGE OF 50 HAD CANCER, A HEART ""CONDITION OR DIABETES?"" 1 - YES"" 2 - NO"" ENTER SELECTIOR$(4)S$ S$"":(7)N "DID EITHER OF YOUR PARENTS DIE BEFORE "y"AGE 50 OF A STROKE OR HEART ATTACK?" *" 1 - YES"4" 2 - NO">H" ENTER SELECTION # ";S$RS$"1"S$"2"ī870\LA1:HA2:3170:7600:HA4:3170:580,(S$)0AA2:R(3)29R$(3)S$?OS$"":(10)j"AGE OF GRANDPARENTS"p"HOW MANY GRANDPARENTS LIVED PAST 79 ";S$S$"0"S$"1"S$"2"S$"3"S$"4"ī740LA0:HA4:3170:670S$"4"AA6:R(4)6 3170:420$ S$"1"AA2:R(2)27 &S$"2"R(2)0X 0S$"3"S$"4"AA2:R(2)2e :R$(2)S$k D{ NS$"":(10) X"AGE OF GRANDPARENTS" b l"HOW MANY GRANDPARENTS LIVED PAST 84 ";S$ vS$"0"S$"1"S$"2"S$"3"S$"4"ī650LA:(5)1 " 1 - GREATER THEN 2,000,000":(5)Z " 2 - 10,000 TO 2,000,000":(5) " 3 - LESS THAN 10,000":(5) " 4 - RURAL OR FARM" :(5) " ENTER SELECTION # ";S$ S$"1"S$"2"S$"3"S$"4"ī540 LA1:HA4::(7) T" 2 - FEMALE"' ^:(7)I h" ENTER SELECTION # ";S$a rS$"1"S$"2"ī390z |LA1:HA2:3170:280 S$"1"AA3:R(1)3 S$"2"AA4:R(1)4 R$(1)S$  S$"":(5):(6) " POPULATION OF HOME TOWN" TION # ";S$L S$"3"ė:(7):(12):"RETURNING TO INDEX":(4);"RUN INDEX"d S$"1"S$"2"ī250} LA1:HA3:3170:130 S$"1"İ280 S$"2"İ3430 130 :(9) "A72 ,S$"":(7) 6" S E X" @:(7) J" 1 - MALE" d- n" PRESS TO CONTINUE ";5 xD$; E S$""S (7):(7)p " LIFE EXPECTANCY"{ :(7) " 1 - RUN PROGRAM":(7) " 2 - INSTRUCTIONS ":(7) " 3 - END" :(7) " ENTER SELECBR(30),R$(30)/I130:R(I)0:R$(I)""5(>-(8)n2"****************************************"<"*********** LIFE EXPECTANCY ***********"P"************ JACK MEANS ************"Z"****************************************"                                     $47)"COMMENTS: ";CM$84:5)"OFFICE VISITS:":;l4T1$T2$:G1$G2$:Y1$Y2$:O1$O2$:M1$M2$:N1$N2$v423704T1$T3$:G1$G3$:Y1$Y3$:O1$O3$:M1$M3$:N1$N3$423704T1$T4$:G1$G4$:Y1$Y4$:O1$O4$:M1$M4$:N1$N4$42370&5 T1$T5$:G "PRESS RETURN TO RETURN TO PROGRAM";A$2 300 N#4<("PRESS RETURN TO CONTINUE";S$-4P(4260 6 ZS"-3'"TO THE FACT THAT NO DATA WAS AVAIL-"W3'"ABLE FOR WOMEN WHO QUIT SMOKING. "3("FOR THE PURPOSE OF THIS PROGRAM THE"3("DATA ON MEN WHO QUIT SMOKING WAS "3(("USED."32(:3<("PRESS RETURN TO CONTINUE";S$3P(4260 (USED."42(:28'-2L'"THE PROGRAM HAS EXTENDED EDITING"X2`'"CAPABILITIES FOR THE ENTRY OF INPUT"2t'"AND A CORRECTION ROUTINE WAS ADDED"2'"TO CHANGE THE INPUT AND RERUN "2'"WITHOUT THE REENTRY OF ALL INPUT"2'3'"A NOTE IN THE SMOKING SECTION REFERUDE CALCULATIONS"81&"FOR WOMEN PATIENTS. ALSO A NEW"a1&"CALCULATION WAS ADDED TO GIVE THE"1&"PROBABILITY OF DEATH FROM ALL CAUSES"1&"INCLUDING HEART DISEASE BASED ON THE "1&"DATA ENTERED.1':1'"PRESS RETURN TO CONTINUE";S$1$'***************************************"F0 &"GELLER-GESNER ANALYSIS"L0 &s04&"THE PROGRAM WAS TAKEN FROM THE "0H&"SEPTEMBER 1981, ISSUE OF INTERFACE AGE"0\&"MAGAZINE. THE AUTHOR WAS LEO P. BIESE,"0p&"M.D.,FCAP."1&"IT WAS ENHANCED TO INCL/$C1C10ī9500E$"1"E$"4"ī6440fS$E$:ER$" 1,2,3,OR 4":4600:6160(E1E1$"SEDENTARY"<E2E1$"SOME"PE3E1$"MODERATE"dE4E1$"STRENUOUS"x:7: PARENTS"PARENTS: 1 - 0 OR 1 PARENTS DURING WORK OR LEISURE"EL" 2-SOME, IRREGULAR LIGHT"b`" EXERCISE"t" 3-MODERATE,REGULAR"" EXERCISE"" 4-STRENUOUS, COMPETITIVE"" SPORTS ETC.""ENTEI14:EX(AG,I):*HI12:PA(AG,I):B\I111:SM(AG,I):YpI15:WT(AG,I):aAGwR$"WHITE"ī6140A110AD(A)BA(A)TD(A)BT(A)A:7: EXERCISE$"EXERCISE: 1-SEDENTARY,NO EXERCISE"8" G110'AD(AG),TD(AG),BA(AG),BT(AG)>I14:EX(AG,I):UI12:PA(AG,I):mI111:SM(AG,I):I15:WT(AG,I):AGSE$"M"ī6040 AG110: LOAD TAB FOR FEMALES  AD(AG),TD(AG),BA(AG),BT(AG)4"ENTER PATIENT'S RACE (W=WHITE, B=BLACK)"::" ";S$NS$"W"S$"B"ī5640yER$"W=WHITE OR B=BLACK":4600::5580S$"W"R$"WHITE":RR$"WHITE"S$"B"R$"BLACK":RR$"BLACK"0:7D"TABLES BEING LOADED FOR ";R$;" ";S1$XlAG((AG15)5)1ZGAG ),:7b@"ENTER SEX OF PATIENT (MALE=M, FEMALE=F)"::" ";S${TS$"M"S$"F"ī5500hER$"MALE=M FEMALE=F":4600:5420|S$"M"S1$"MALES":S2$"MALE"S$"F"S1$"FEMALES":S2$"FEMALE"SE$S$5STING INFOR "::" ";DO$x':7O"ENTER PATIENT'S NAME "::" ";NA$U^:7"ENTER PATIENT'S AGE(MUST BE 25 TO 74)."::" ";AG$AG(AG$)AG25AG74ī5382S$AG$:ER$"25 TO 74":4600:5320RG((AG15)5)1A((AG15)5)1%5420'RACESEXTABLE86160'EXERCISEJ6540'PARENTS[6680'WEIGHTm7040'SMOKING8380'CALCULE90204260'MAINMENU:7("ENTER DATE IN ANY FORM "::" ";DA$<P:7d"ENTER DOCTOR/CLINIC REQUE"RETURNING TO INDEX".(4);"RUNINDEX"7:7@:7KS$" "l" CORONARY RISK EVALUATION"" USING GELLER-GESNER TABLES""PRESS RETURN TO CONTINUE";S$$5140'DE85200'DRCLINICL5260'NAME`5320'AGE tRGS$"1"ī4800: GELLER 8ER$"1,2,OR 3":4600B4260\ ***** ERROR ROUTINEe:7 " *** E R R O R ***" 4"YOU ENTERED ";S$H\"VALID ENTRIES ARE ";ER$p"PRESS RETURN TO CONTINUE";DA$:7:12INUE";S$  ******* MAIN MENU):74S$" "V" HEART DISEASE PROBABILITY"\" 1 - GELLER-GESNER ANALYSIS"" 2 - INSTRUCTIONS"0" 3 - END"DX"ENTER YOUR SELECTION # ";S$lS$"3"ī4750S$"2"ī9700*****HEART DISEASE*************"O"************* PROBABILITY *************"~,"************* BY *************"@"************WARREN SHANAHAN************"T"***************************************"h:8|"PRESS RETURN TO CONTl 1.8,1.4,0.9,0.6,1.2,0.6,1.4,1.2,0.8,1.0,1.0b 0.9,0.8,1.0,0.9,0.9,0.8,1.0,1.0,1.0,1.0,1.0uBA(10),BT(10)AG(10),AD(10),TD(10)EX(10,4),PA(10,2),SM(10,11),WT(10,5):7"***************************************" "********9,0.7,1.4,0.6,1.7,1.3,0.8,0.9,0.9S 0.7,0.6,0.9,0.9,0.8,0.8,1.0,1.0,1.0,1.0,1.0v 6610,19312,9146,27894 0 1.7,1.4,0.9,0.7,1.3,0.6,1.5,1.2,0.8,0.9,1.0D 0.8,0.7,0.9,0.9,0.8,0.8,1.0,1.0,1.0,1.0,1.0X 11815,30610,14568,41979 02.0,1.4,0.8,0.8,0.8E 0.6,0.5,0.9,0.9,0.7,0.7,1.6,1.4,1.0,0.8,0.7h 2118,8941,4063,14844  1.5,1.3,0.9,0.8,1.5,0.5,1.8,1.4,0.8,0.8,0.9 0.7,0.6,0.9,0.9,0.7,0.8,1.2,1.2,1.0,0.9,0.9 3370,13001,5548,18490 ! 1.6,1.3,0..7,0.78 0.5,0.4,1.0,0.9,0.6,0.4,2.7,2.2,1.1,0.7,0.5Z, 548,3874,1462,7307 @ 1.3,1.2,0.9,0.9,1.6,0.5,2.2,1.5,0.8,0.7,0.8T 0.6,0.4,0.9,0.9,0.7,0.6,2.1,1.8,1.1,0.7,0.6h 1081,5855,2501,10545 | 1.4,1.2,0.9,0.8,1.5,0.5, 0.5,0.4,1.0,0.9,0.6,0.5,4.6,3.2,1.1,0.5,0.4O 112,1515,382,3245  1.2,1.1,1.0,1.0,1.8,0.4,2.7,1.7,0.9,0.7,0.7 0.5,0.4,1.0,0.9,0.6,0.6,3.5,2.6,1.1,0.6,0.4 263,2475,777,4901  1.2,1.1,1.0,0.9,1.7,0.5,2.4,1.6,0.8,00.8,1.0,0.9,0.9,0.8,1.6,1.4,1.0,0.8,0.7F < 14,699,48,1485 x P 1.0,1.0,1.0,1.0,2.0,0.4,3.2,1.9,0.9,0.6,0.7 d 0.5,0.4,1.0,0.9,0.6,0.5,5.9,3.9,1.1,0.5,0.3 x 39,958,162,2090 1.1,1.0,1.0,1.0,1.9,0.4,2.9,1.8,0.9,0.6,0.7.8,0.6,1.5,1.3,1.0,0.8,0.7< 13910,35403,12175,39614 n 1.6,1.2,0.9,0.7,1.2,0.8,1.3,1.3,1.2,0.9,1.0 0.8,0.7,0.9,0.9,0.8,0.7,1.5,1.4,1.0,0.8,0.7 19429,49057,16741,52798 1.6,1.3,0.9,0.7,1.1,0.8,1.2,1.2,1.2,1.0,1.0'  0.9,1.3,1.0,0.8,0.70 8 6694,17306,7008,24780 b L 1.4,1.1,0.9,0.7,1.4,0.7,1.6,1.4,1.1,0.8,0.9 ` 0.7,0.6,0.9,0.9,0.7,0.6,1.4,1.3,1.0,0.8,0.7 t 9859,25227,8997,30202 1.5,1.2,0.9,0.7,1.3,0.7,1.4,1.3,1.2,0.9,0.9 0.7,0.6,0.9,0.9,0..8,0.7&  2567,7203,2980,12780 X  1.3,1.1,0.9,0.8,1.6,0.6,2.0,1.5,1.1,0.7,0.8  0.6,0.4,0.9,0.9,0.7,0.4,1.4,1.2,1.0,0.8,0.7  4248,11203,4670,17923  1.3,1.1,0.9,0.8,1.5,0.6,1.8,1.4,1.1,0.8,0.8 $ 0.6,0.5,0.9,0.9,0.7,0.5,1.4,0.8 H 601,2752,902,6552 R \ 1.2,1.0,0.9,0.9,1.8,0.5,2.4,1.6,1.1,0.7,0.7 p 0.5,0.4,1.0,0.9,0.6,0.4,1.3,1.2,0.9,0.8,0.8  1355,4423,1728,9051  1.2,1.0,0.9,0.9,1.7,0.5,2.2,1.5,1.1,0.7,0.7  0.5,0.4,1.0,0.9,0.6,0.4,1.3,1.2,1.0,0+ 62,1643,133,3911 P 1.0,1.0,1.0,1.0,2.1,0.4,3.0,1.7,1.0,0.6,0.7 0.5,0.4,1.0,0.9,0.6,0.3,1.2,1.1,0.9,0.8,0.8  214,1901,376,4773   1.1,1.0,1.0,0.9,2.0,0.5,2.7,1.6,1.1,0.6,0.7 4 0.5,0.4,1.0,0.9,0.6,0.3,1.2,1.1,0.9,0.8,                        " ";LA$3j7)ST$13t7)CI$;", ";SA$;" ";ZI$N3~7)"PHYSICIAN:DR. ";DR$37)"HOME PHONE: ";HP$;" OFFICE PHONE: ";OP$37)"BIRTHDAY: ";BD$37)"SEX: ";SX$37)"INSURANCE CARRIER: ";IN$47)"EMERGENCY CONTACT: ";EC$;" PHONE: ";EN0:35602B:::6)"MAKE SURE THAT YOUR PRINTER":6)"IS TURNED ON AND SET AT THE":6)"TOP OF THE PAGE."::" PRESS WHEN READY";XX2L1:5)TD$;25)"PATIENT FILE OF ";FI$;" ";LA$2V:5)"PERMANENT OFFICE INFORMATION:"3`:7)FI$;DELETE FILE";20)"4=PRINT RECORD":"5=RETURN TO INDEX";:Q$M1Q$"1"ī4030c1Q$"2"K1:39201Q$"3"ė:::::::"THE RECORDS FOR THIS PATIENT ARE":"NOW BEING DELETED.":13201$Q$"4"İ3650:35601.Q$"5"ī112528X1$"1":X2$"5":1114$G1$:Y4$Y1$:O4$O1$:M4$M1$:N4$N1$/0 340c0 T5$T1$:G5$G1$:Y5$Y1$:O5$O1$:M5$M1$:N5$N1$l0 3400 T6$T1$:G6$G1$:Y6$Y1$:O6$O1$:M6$M1$:N6$N1$0 * THIS WILL DISPLAY PAGE 1 *0 13900 :"1=NEXT PAGE";20)"2=MAKE CHANGES";1 "3=FITNESS PROGRAM":(4);"RUN YOUR FITNESS"V 0"LOADING LUNG PROGRAM":(4);"RUN LUNG" ""RUN LUNG" D"LOADING MEDICAL RECORD PROGRAM":(4);"RUN MEDICAL RECORD" O"LOADING GELLER-GESNER"- (4);"RUNHEART2"J "LOADING HEART DISEASE"` (4);"RUNHEART1" "LOADING LIFE EXPECTANCY":(4);"RUN LIFE EXPECTANCY" "LOADING SPORTS EXERCISE EVALUATION":(4);"RUN SPORTS/EXERCISE EVALUATION") "LOADING YOUR O INDEX" (4);"RUN INDEX" I7? " RETURNING TO INDEX"U (4);"RUN INDEX" NINDEX" ""-T"RERUNNING WITHOUT REENTERING ALL THE":h"INPUT.@|l"EDITING IS PROVIDED DURING THE INPUT""STAGE FOR EASE OF ACCURATE ENTRY OF""THE DATA."" PRESS TO CONTINUE";S$3807:7 " RETURNING T CONTINUE";S$<"FORMS OF HEART DISEASE WITHIN THE"R"NEXT SIX YEARS.X"THERE IS A CORRECTION ROUTINE FOR ""PURPOSE OF CORRECTING INPUT AS WELL","MODIFYING RISK FACTORS SUCH AS BLOOD"@"PRESSURE, SMOKING, ETC. AND THENAKEN FROM THE JULY "A"1978 ISSUE OF INTERFACE AGE MAGAZINE."l"IT WAS ORIGINALLY WRITTEN BY LEO P.""BIESE, M.D.,F.C.A.P."Pd"THE PROGRAM CALCULATES BOTH THE RISK"x"OF CORONARY HEART DISEASE AND ALL " "PRESS RETURN TONARY43120'3DCAL&\4060'ALLMS2p:7:7\"ANY CHANGES TO INPUT 1=YES 2=NO";S$tS$"1"İ1340:4560S$"2"ī380: GOTO STARER$"1=YES 2=NO":640::4740" HEART DISEASE ANALYSIS"THE PROGRAM WAS T(R$)R2ī380(420'NAME5820'AGEB540'SEXO0460'DE[D500'DRhX900'COLtl940'BP980'ECG1080'SM1180'GLU1280'HDL2140'1STCAL2300'2DCAL3100'3DCAL 3500'HEADING 3860'PROBCRMS OF HEART DISEASE IN 6 YEARS",,"IS ";D@A1(PR100.5)100UTA1;"% OR ";mhA2(CO100.5)100|A2;" TIMES THAT OF THE SAME""AGE GROUP WITHOUT OTHER RISK FACTORS""ENTER 1=CHANGE INPUT AND RERUN OR 2=END)"::"";R$R100.5)100("IS ";(PA1;"% OR ";@dA2(CO100.5)100bxA2;" TIMES THAT OF THE SAME""AGE GROUP WITHOUT OTHER RISK FACTORS""PRESS RETURN TO CONTINUE";S$SUY8Y9Y1Y3Y2Y5Y4Y6I231203500 "ALL FO`G0S$"NO".t"GLUCOSE INTOLERANCE: ";S$E"SYSTOLIC BP: ";BRS$"YES"cE0S$"NO"|"ABNORMAL ECG: ";S$"HDL: ";HD"BASED ON THE ABOVE DATA THE PROBABILITY" "OF CORONARY HEART DISEASE IN 6 YEARS" A1(PRP1.5H A53A57P2.31\ A57A62P3.2Ap A62P3.9M COPRPS \ :4n "DATE: ";DA$ "DOCTOR/CLINIC: ";DR$;S$ "NAME: ";N$ S$"YES"S0S$"NO"$"AGE: "A;" SMOKER: ";S$8"CHOLESTEROL: ";CLS$"YES"))v SE$"F"ī3341* A33A37P.6@ A38A42P1.1T A42A47P2j A47A52P3.3 A52A57P4.6 A57A62P5.9 A62P6.8 3460 A33A37P.4 A38A42P.6 A42A47P.84 A48A522B.0144265 Y5S.03953480 Y4E.8745090B Y6G.6821258W Y8CA.0002157j I216.4598427p  SUZ8Z9Z1Z3Z2Z5Z4Z6I10 PR(1(1(SU))100)D HG0ī3190X SE$"M"PRPR(6(.04HD))l SE$"F"PRPR(11(.043HD ) Z1A.3769988: FEMALEC ORON ARY > Z9AA.0023250P Z3C.0185534b Z2B.0132024u Z5S.1779578 Z4E.7187659 Z6G.5602516, Z8CA.0002288@ I119.9537134T Y1A.2665693h Y9AA.0012655| Y3C.0160593  Y694 Z6G.2312953* Z8CA.0003718= I119.4532586S ALL HEART MALEe Y1A.3743307z Y9AA.0021165 Y3C.0258102 Y2B.0156953( Y5S.5583013< Y4E1.0529656P Y6G.6020336d Y8CA.0003619x I219.7709560:1340 H\Z1A: AG(pZ2B: BP7Z3C: COLFZ4E: ECGTZ5S: SMcZ6G: GLUsZ7HD: HDLySE$"F"ī2720'FEMALE Z1A.3754941$ Z9AA.00221658 Z3C.0271697L Z2B.0118041` Z5S.4389169t Z4E.5219'NAME0V2İ540'SEX)DV3İ820'AGE;XV4İ450'DELlV5İ500'DR^V6İ900'COLoV7İ940'BPV8İ980'ECGV9İ1080'SMV10İ1180'GLUV11İ1280'HDLV12ı V1V12ī1340 S$V$4ER$"1 TO 12":640:S0S$"NO"#@" 9 - SMOKER: ";S$0TS$"YES"AhG0S$"NO"Z|"10 - GLUCOSE: ";S$gS$"YES"yHD0S$"NO""11 - HDL: ";HD"12 - NO CORRECTIONS, CALCULATE ABOVE""ENTER YOUR SELECTION 1 - 12";V$V(V$)V1İ420<P" 1 - NAME: ";N$2d" 2 - SEX: ";SE$Fx" 3 - AGE: ";A]" 4 - DATE: ";DA$v" 5 - DOCTOR: ";DR$" 6 - CHOLESTEROL: ";C" 7 - BLOOD PRESSURE: ";BS$"YES"E0S$"NO"" 8 - ABNORMAL ECG: ";S$S$"YES" , 8:5:7)L"SMOKER (YES=1 NO=0)";S5`S$(S)DtS1S0ıjER$"YES = 1 NO = 0":640::1080v:3:7"GLUCOSE INTOLERANCE (YES=1 NO=0)";GS$(G)G1G0ıER$"YES=1 NO=0)":640::1180:7:7"HDL ";HD((S$) \A35A76ı6 pER$"35 TO 76":640::820\ :7:7:"CHOLESTEROL"::7:"";Cb  :7:7:"BLOOD PRESSURE "::7:"";B  :5:7 "ABNORMAL ECG (YES=1 NO=0)";E S$(E) E1E0ı$ER$"YES = 1 NO= 0":640::980ER$"M OR F":640::540> :7:7:" *** E R R O R ***"G :6^ "YOU ENTERED ";S$g :6 "VALID ENTRIES ARE ";ER$ :6 "PRESS RETURN TO CONTI # ";S$ S$" "  4:7:7:"AGE IN YEARS 35 TO 76 ONLY"::7:"";S$ HA"PATIENT'S NAME"::" ";N$) :5 :7:7\ :7:7:"ENTER DATE"::7:"";DA$d :p :7:7 :7:7:"ENTER DOCTOR/CLINIC"::7:"";DR$  :7:7 0"ENTER SEX (M OR F)"::7:"";SE$ DS$SE$ XSE$"M"SE$"F"ı lURN TO CONTINUE";S$ |:5:7( ~:7D " 1 - RUN PROGRAM":7a " 2 - INSTRUCTIONS":7w " 3 - END"::7 " ENTER YOUR SELECTION # ";S$ T(S$) T1ī4340 T2ī5000 T3ī5630 ER$" 1, 2, OR 3":640:380! :7:7: WARREN SHANAHAN *"W "* USING *" "* FRAMINGHAM ANALYSIS *" "* *" ,"****************************************" @:7 T"PRESS RET d7x"****************************************"g"* *""* HEART DISEASE *""* PROBABLILITY *""* BY *"' "*           z#Xò    àҠ ӠbԱԲ. Š٠DӯŠΠ# ҠӠ4 ǠȠ ؠΠŠŠŠԠ*A0:12);L$(9)G"STANDING WITH ONE HAND ON A WALL FOR"w"BALANCE EXTEND YOUR FREE ARM PARALLEL TO""FLOOR IN FRONT OF YOU. NEXT TRY TO KICK" "YOUR FINGER TIPS A LA CAN-CAN STYLE."RATE YOURSELF FROM 1 TO 4. -*"PALMS ON TOES ";A1$(6);A1$(2)Q"3. FINGER TIPS ON TOES ";A1$(2){"2. FINGER TIPS ON ANKELS ";A1$(4)"1. FINGER TIPS AT KNEES ";A1$(5)"ENTER YOUR RATING (1-4)";AA4A1A$"1 - 4":650:1850AAAAA"1 - 4":650:1660&AAAAA'0A09::12);L$(9)?DkN"FROM A STANDING POSTION, BEND AT THE"X"HIPS AND TRY TO TOUCH YOUR TOES. THIS"b"MAY CAUSE STRETCHING; STOP IF YOU FEEL"l"PAIN. RATE YOURSELF FROM 1 TO 4."v'"4. LECT"$"FROM 1 TO 4 YOUR SCORE."*Y"4 ABOVE EYE LEVEL ";A1$(6);A1$(2)"3 AT EYE LEVEL ";A1$(2)"2 JUST BELOW EYE LEVEL ";A1$(4)"1 WELL BELOW EYE LEVEL ";A1$(5)" ENTER YOUR SELECTION";AA1A4A$9)1"GRASP A YARDSTICK OR BROOM HANDLE"Z"IN BOTH HANDS AND BEND FORWARD AT""THE WAIST. TRY TO GET YOUR UPPER""BODY PARALLEL TO THE FLOOR. EXTEND""YOUR ARMS FORWARD AND SEE HOW HIGH""YOU CAN RAISE THE STICK. THEN SE,"AND MEASURE AGAIN. THE DIFFERENCE SHOULD"^6"BE AT LEAST 2.5 INCHES FOR WOMEN AND 3.5"u@"INCHES FOR MEN."{JT"THE GREATER THE DIFFERENCE, THE BETTER"^"YOUR LUNG CAPACITY"hr"PRESS RETURN TO CONTINUE";S$|12);L$(HE ABOVE AVERAGE YOUR LUNGS ARE NOT IN"L"SHAPE FOR STRENUOUS ACTIVITY:"Ru"PRESS RETURN TO CONTINUE";S${9);"LUNG TEST QUESTIONS""USING A TAILORS TAPE MEASURE YOUR CHEST"""ACROSS THE NIPPLES. TAKE A DEEP BREATH".WAIT AS"7"LONG AS YOU CAN BEFORE YOU TAKE ANOTHER"E"BREATH.Ky"THE AVERAGE TIME FOR HOLDING BREATH IS""55 SECONDS. THE AVERAGE TIME BEFORE""INHALING IS 15 SECONDS."IF YOU DEVIATE SIGNIFICANTLY LOWER THAN"'"T *"L"*";:6:"SPRINGFIELD, ILLINOIS 62777";:39:"*"{"* *" "* *" "*CURRICULUM PUBLICATION CLEARING HOUSE*" "* DEPARTMENT OF ADULT, VOCATIONAL, *"T "* *" "*";:9:"AND TECHNICAL EDUCATION";:39:"*" "* *" "*";:9:"100 NORTH FIRST STREET";:39:"*""* " PRESS TO CONTINUE";:" ";Z$/ 5 c "EXCLUSIVE DISTRIBUTION RIGHTS RETAINED"i "***************************************" "* ILLINOIS STATE BOARD OF EDUCATION *" "* *"% "* ANS - PROJECT COORDINATOR *"N "* TRANSLATED BY: LESLIE W. ALEXANDER *"} "* *" "***************************************" : " THIS DISK CONTAINS HEALTH EDUCATION " " PROGRAMS" ::) *"4 x"*WILMA JEAN ALEXANDER,PROJECT DIRECTOR*"c }"* *" "* *" "* HEALTH EDUCATION *" "* *" "* JACK ME*************************"I Z"* *"x d"* MICROCOMPUTER SKILLS: CURRICULUM *" i"* *" n"*DEVELOPMENT AND DISSEMINATION PROJECT*" s"*   D$""; :THIS IS THE INDEX PROGRAM FOR THE DISKi IT IS DESIGNED TO ALLOW THE USER TO ( SIMPLIFY THE LOADING AND RUNNING OF- A PROGRAM.2 : THIS DISK CONTAINS SEVER HEALTH PROGRAMS 8 1982F: P"**************     2830' AAAAA' A0+' :12);L$(9)1' a' "LYING SUPINE WITH HANDS BEHIND HEAD DRAW"' "YOUR LEGS HALFWAY UP SO YOUR KNEES ARE"' "BENT. ANCHOR YOUR FEET AND TRY SITTING"' "UP. RATE YOUR SELF FROM 1 TO 4"' ( "4. ALL THE WAYF"&@ "FROM 1 TO 4."E&T "4. ALL THE WAY UP ";A1$(6);A1$(2)m&^ "3. HALFWAY UP ";A1$(2)&h "2. LESS THAN HALFWAY ";A1$(4)&r "1. CANNOT GET OFF FLOOR ";A1$(5)&| & "ENTER YOUR RATING (1-4)";A' A4A1A$"1-4":650:LEGS ";A1$(5)% 5% "ENTER YOUR RATINGS (1-4)";AV% A4A1A$"1-4":650:2660b% AAAAAj% A0|% :12);L$(9)% %" "LYING SUPINE WITH YOUR LEGS"%, "ANCHORED AND HANDS BEHIND YOUR HEAD SEE"&6 "HOW FAR YOU CAN SIT UP. RATE YOURSELKNEES STRAIGHT, LIFT"B$ "YOUR LEGS 10 INCHES OFF THE FLOOR AND"p$ "HOLD THEM. RATE YOURSELF FROM 1 TO 4."v$ $ "4. MORE THAN 10 SECS ";A1$(6);A1$(2)$ "3. 5-10 SECS ";A1$(2)$ "2. LESS THAN 5 SECS ";A1$(4) % "1. CANNOT RAISE ANDS ";A1$(5)#2 ?#< "ENTER YOUR RATING (1-4)";A`#F A4A1A$"1-4":650:2490l#P AAAAAt#Z A0#d :12);L$(9)#n #x "LYING SUPINE (ON YOUR BACK) CLASP YOUR"# "HANDS BEHIND YOUR HEAD. KEEPING YOUR"$ "LEGS TOGETHER AND BOVE YOUR HEAD UNTIL YOUR"I" "HANDS TOUCH. RATE YOURSELF FROM 1 TO 4"O" " "4. ELBOWS STRAIGHT ";A1$(6);A1$(2)" "3. SLIGHTLY BENT ";A1$(2)" "2. SHARPLY BENT ";A1$(4)" "1. SHARPLY BENT CANNOT"#( " TOUCH HMORE THAN 6 INCHES ";A1$(5)"! C! "ENTER YOUR RATING (1-4)";Ad! A4A1A$"1-4":650:2340p! AAAAAx! A0! :12);L$(9)! ! "STANDING, EXTEND YOUR ARMS TO THE SIDE"! "SO THEY ARE PARALLEL TO THE FLOOR. RAISE"" "YOUR ARMS AAIR BEND ONE LEG AT THE"H B "KNEE. USE YOUR ARMS TO PULL THE BENT LEG"w L "TO YOUR CHEST. RATE YOURSELF FROM 1-4."} V ` "4. LEG TOUCHING CHEST ";A1$(6);A1$(2) j "3. 3 INCHES FROM CHEST ";A1$(2) t "2. 6 INCHES FROM CHEST ";A1$(4)!~ "1. CHES BELOW PARALLEL ";A1$(2)J"2. 12 INCHES BELOW PARALLEL ";A1$(4)v"1. MORE THAN 12 BELOW ";A1$(5)|"ENTER YOUR RATING (1-4)";A A4A1A$"1-4":650:2180 AAAAA A0$ :12);L$(9).  8 "SITTING IN A CHAAAAAzA0":12);L$(9)(T"STANDING AND HOLDING ONTO A CHAIR IN""FRONT OF YOU, LIFT ONE LEG SIDEWAYS AS""HIGH AS YOU CAN. RATE YOURSELF FROM""1-4."4. LEG PARALLEL TO FLOOR ";A1$(6);A1$(2)"3. 6 IN4. LEG TOUCHED FINGER ";A1$(6);A1$(2)Z4"3. 6 INCHES BELOW FINGER ";A1$(2)>"2. 12 INCHES BELOW FINGER ";A1$(4)H"1. MORE THAN 12 INCHES BELOW ";A1$(5)R\"ENTER YOUR RATING (1-4)";AfA4A1A$"1-4":650:2010p(5):(9):520% @Z8Ė(5):(9):540= JZ9Ė(5):(9):560V TZ10Ė(5):(9):580u "LOADING CHEMICAL POISON" (4);"RUNPOISON" "LOADING CLINITEST RESULTS" (4);"RUNCLINITEST" "LOADING DRUG INTERACTION" (4);"RUNDRUGS" " " 9. LUNGS (24)D " ENTER YOUR SELECTION #";:" ";ZJ X Z10ī10e Z1ī10} Z1Ė(5):(9):400 Z2Ė(5):(9):420 Z3Ė(5):(9):440 Z4Ė(5):(9):460 "Z5Ė(5):(9):480 ,Z6Ė(5):(9):500 6Z7ĖEST RESULTS PROGRAM": d" 3. DRUG INTERACTION PROGRAM"f n" 4. GELLER-GESNER ANALYSIS PROGRAM" x" 5. HEART DISEASE ANALYSIS PROGRAM" " 6. LIFE EXPECTANCY PROGRAM" " 7. SPORTS EXERCISE EVALUATION" " 8. YOUR FITNESS PROGRAMX . *** HEALTH EDUCATION PROGRAMS **O *** HAS NINE PROGRAMS ***~("SELECT THE DESIRED PROGRAM BY DEPRESSING2"THE NUMBER CORRESPONDING TO THE TITLE OF"<"THE PROGRAM."F:P" 1. CHEMICAL POISON INDEX" Z" 2. CLINIT   "MATCHING SYMPTOMS FOR"::" - ";PO$(PR(I));" - ":\V1NM(PR(I)):SYM$(MPS(PR(I),V)):k4000:835"1) MODIFY SYMPTOM SELECTIONS":"2) QUIT"MX2:4100:BS0ī960X1ī350130> INPUT DATAFILE HRD$"": CTRL SSIBLE POISON"2f"5) MODIFY SYMPTOM SELECTIONS"Ap"6) QUIT"[zMX6:4100:BS0ī835nX1İ610:835X2İ630:835X3ī970X4ī950X5ī350130II1:795:"THERE ARE NO MORE MATCHING SYMPTOMS"::10003:";K;" SYMPTOMS YOU SELECTED MATCH":A/" - ";PO$(PR(I))" - ":a4" SOME EXAMPLES ARE:":r>PPR(I):600C::" - ";PO$(PR(I));" - "H:"1) LIST SYMPTOMS"R"2) LIST TREATMENT "W"3) LIST MATCHING SYMPTOMS"\"4) LIST ANOTHER PO Q110L1KNUSYM(L)PS(G,Q)NM(G)NM(G)1:MPS(G,NM(G))USYM(L)[L:Q:GgI122uJI123NM(PR(I))NM(PR(J))SWPR(J):PR(J)PR(I):PR(I)SW :I1NM(PR(I))0ī960I24ī960 $*NM(PR(I));" OF THE )ĺ"SOME STIMULANTS ARE COFFEE OR TEA."34000:9R SYMPTOM COMPARISONXK0K0ė:"SYMPTOMS MUST BE ENTERED BEFORE PROGRAM":"CAN CONTINUE":4000:228I123:PR(I)I:CL123:NM(CL)0::" - WORKING -"G123İ630:590:525:X4ī130(D:130FN:" - ";PO$(P);" -":oXM0EN(P)1:EX$(ES(P)M)::4000:b:" - ";PO$(P);" -":lM110:SYM$(PS(P,M))::4000:v:" - ";PO$(P);" -":M0TN(P)1:PTR$(TS(P)M):'(P6P7USYM(I)USYM(I1):360%@ ALPHABETICAL LISTINGG XP123:590v :" - ";PO$(P);" -":"1) LIST SYMPTOMS":"2) LIST TREATMENT":"3) CONTINUE LISTING":"4) QUIT":MX4:4100BS0ī525&X1İ610:590:5250X2SYMPTOMS":"4) LIST SYMPTOMS SELECTED AGAIN ":MX4:4100IBS0ī400WX1ī660eX2ī460sX3ī230|360:" SELECT SYMPTOM TO BE DELETED"::380:MXK:4100BS0460KK1:I1K:IXī500K0K0USYM(1)0:K0:500PTOMS MUST BE ENTERED BEFORE PROGRAM":"CAN CONTINUE":4000:228oh:" THE SYMPTOMS YOU HAVE SELECTED ARE":r380:4000:400|I1KI;") ";SYM$(USYM(I)):::::" ARE THEY CORRECT?"::"1) YES":"2) NO - DELETE SYMPTOMS":"3) NO - ADD )SK1 :SK1ī320/ "F7(X7X8)ī320j ,K10ė::"ONLY 10 SELECTIONS ARE ALLOWED":4000:350 6USYM(K1)(X8F):KK1 @:"ANY ADDITIONAL SYMPTOMS FROM THIS LIST?"::245 J Y ^ SYMPTOM MODIFICATION c@fK0K0ė:"SYMTIME. BE AS SPECIFIC AS ":"POSSIBLE. ONLY 10 SELECTIONS ARE":"ALLOWED.":4000W K0b F07{ :" SYMPTOM MENU": E18 E;") ";SYM$(E8F):MX9: "9) LIST NEXT MENU ":4100:BS0ī240 X9ī330 SK0:H1K:(X8F)USYM(HABETICAL POISON LISTING"::" 3) -END-":MX3A 4100:BS0ī190O X2ī520^ X3ī4175d y SELECTION MENU :" SYMPTOM SELECTION":O "SEVERAL LISTS OF SYMPTOMS WILL BE":"DISPLAYED. SELECT APPROPRIATE SYMPTOMS":"ONE AT A E A POISON HAS":" BEEN IDENTIFIED THE TREATMENT CAN BE":" DISPLAYED. THE USER MAY ALSO":" ALPHABETICALLY VIEW EACH POISON AND" " SOME TYPICAL EXAMPLES." 4000 :" CHEMICAL POISON INDEX"::, " 1) SYMPTOM SELECTION MENU"::" 2) ALPHS PROGRAM CONTAINS A LIST OF":" POISONS, THEIR SYMPTOMS, AND TREATMENT":" THE USER MAY SELECT APPROPRIATE":" SYMPTOMS FROM A MENU. THE SYMPTOMS":" WILL BE COMPARED TO THOSE OF EACH " POISON AND A LIST OF POSSIBLE POISONS":" WILL BE DISPLAYED. ONCEdSYM$(100),PO$(23),EN(23),EX$(90),ES(23),TN(23),TS(23),PTR$(90)veUSYM(20),NM(23),PS(23,10),PR(24),MPS(23,10)|ij INPUT SUBROUTINEk @ 2000ln2000:PS(21,9)49x:" CHEMICAL POISON INDEX" :" THI      INUTE. RATE YOURSELF"4J@4T"4. 30 OR MORE ";A1$(6);A1$(2)^4^"3. 20-29 ";A1$(2)|4h"2. 10-19 ";A1$(4)4r"1. 9 OR LESS ";A1$(5)4|4"ENTER YOUR RATING (1-4)";A4A4A1A$"1-4":650:40804AAAAA4A05:1 ANKLES"33"ANCHORED. AS YOU SIT UP TWIST YOUR"c3"TRUNK SO THAT WITH EACH SIT-UP YOU TOUCH"3""YOUR LEFT ELBOW TO YOUR RIGHT KNEE AND"3,"ON THE NEXT SIT-UP YOUR RIGHT ELBOW"36"TOUCHES YOUR LEFT KNEE. DO AS MANY AS"4@"YOU CAN IN ONE M ";A1$(6);A1$(2)-2"3. 4 ";A1$(2)J2"2. 3 ";A1$(4)g2"1. 2 OR LESS ";A1$(5)m22"ENTER YOUR RATING (1-4)";A2A4A1A$"1-4":650:39102AAAAA2A02:12);L$(9)23"DO BENT KNEE SIT-UPS WITH YOURL$(9) 1P:1Z"HOLDING THE BACK OF A CHAIR LOWER YOUR-"h1d"SELF BY BENDING YOUR KNEES. DO NOT GO"1n"ALL THE WAY DOWN BECAUSE YOU COULD PULL"1x"A THIGH MUSCLE. DO AS MANY AS YOU CAN"1"RATE YOURSELF FROM 1 TO 4"12"4. 5 OR MORE TE YOURSELF FROM 1-4."0@0"4. 5 OR MORE ";A1$(6);A1$(2)]0"3. 3 OR 4 ";A1$(2)z0"2. 1 OR 2 ";A1$(4)0 "1. NONE ";A1$(5)00"ENTER YOUR RATING (1-4)";A0(A4A1A$"1-4":650:376002AAAAA0<A01F:12);"1. LESS THAN 5 SECONDS ";A1$(5)(/~I/"ENTER YOUR RATING (1-4)";Aj/A4A1A$"1-4":650:3610v/AAAAA~/A0/:12);L$(9)//"GRAB THE CHINNING BAR WITH BOTH HANDS"/"AND CHIN YOURSELF AS MANY TIMES AS YOU"0"CAN. RA A CHINNING BAR OR ANCHORED DOOR"M.8"WITH ONE HAND AND HANG THERE AS LONG"y.B"AS YOU CAN. RATE YOURSELF FROM 1-4.".L.V"4. MORE THAN 15 SECONDS ";A1$(6);A1$(2).`"3. 10-15 SECONDS ";A1$(2).j"2 5-9 SECONDS ";A1$(4)"/t"4. MORE THAN 15 ";A1$(6);A1$(2)A- "3. 10-15 ";A1$(2)a- "2. 5-9 ";A1$(4)- "1. LESS THAN 5 ";A1$(5)- - "ENTER YOUR RATING (1-4)";A- A4A1A$"1-4":650:3470-AAAAA-A0-:12);L$(9)-$!.."GRAB ";A1$(4)6,R "1. LESS THAN 5 SECONDS ";A1$(5)<,\ ],f "ENTER YOUR RATING (1-4)";A~,p A4A1A$"1-4":650:3320,z AAAAA, A0, :12);L$(9), , "DO AS MANY PUSH-UPS AS YOU CAN. RATE", "YOURSELF FROM 1 TO 4.", !- + /+ "LYING PRONE, LIFT YOUR LEGS OFF THE"]+ "FLOOR AND HOLD THE POSITION AS LONG AS"+ "YOU CAN. RATE YOURSELF FROM 1 TO 4."+* +4 "4. MORE THAN 10 SECONDS ";A1$(6);A1$(2)+> "3. 8-10 SECONDS ";A1$(2),H "2. 5-7 SECONDS 10 SECONDS ";A1$(6);A1$(2)A* "3. 5-10 SECONDS ";A1$(2)h* "2. LESS THAN 5 SECONDS ";A1$(4)* "1. CANNOT RAISE BODY ";A1$(5)* * "ENTER YOUR RATING (1-4) ";A* A4A1A$"1-4":650:3150* AAAAA* A0* :12);L$(9))X 2)b "LYING PRONE (ON YOUR STOMACH) ANCHOR"`)l "YOUR FEET. WITH YOUR HANDS BEHIND YOUR")v "HEAD, RAISE YOUR BODY AS FAR OFF THE") "FLOOR AND HOLD THE POSITION AS LONG AS") "POSSIBLE. RATE YOURSELF FROM 1 TO 4") * "4. MORE THAN UP ";A1$(6);A1$(2)B( "3. HALFWAY UP ";A1$(2)j( "2. LESS THAN HALFWAY ";A1$(4)( "1. CANNOT GET OFF FLOOR ";A1$(5)( (& "ENTER YOUR RATING (1-4)";A(0 A4A1A$"1-4":650:2990(: AAAAA(D A0)N :12);L$(9) SELECTION BY NUMBER,":" THEN PRESS 'RETURN'":" ";X:BS0:M1MXPXMBS1Vf"BS1ī4150," INVALID SELECTION. YOU SELECTED ";X:40006O:7:12T"RETURNING TO INDEX"^(4);"RUNINDEX"ZD$;"READ SYMFILE"I164,SYM$(I):DD$;"CLOSE SYMFILE"ZD$;"OPEN PSFILE"p D$;"READ PSFILE"| I123 J110$ PS(I,J)::. D$;"CLOSE PSFILE"8 :" PRESS 'RETURN' TO CONTINUE":" ";A$:B:" ENTERD\D$;"OPEN DATAFILE"1fD$;"READ DATAFILE"=kL1:M1IpI123UzPO$(I)`EN(I)oJ1EN(I)EX$(L):LL1:ES(I)TN(I)J1TN(I)PTR$(M):MM1:TS(I):D$;"CLOSE DATAFILE"D$;"OPEN SYMFILE"Ţ΢͢ŢҠԠӠĬŠ͢ŠƠ̠Ġ͢ŮנӠȠǢŠҠĠРŠԢŠĠ̠͠΢ӮӢĢŠĢӢҠԠӠĬŠ͢͠ӬĠˬҢˠĠ٠͠Ӯ٢ŠƠ٢ŠŠŠǠӠٮ͢έĬŠŠӠƠǠΠҮŢŠƠŢؠŢ̧Ӡ΢ŠŠӠƠȢĬҬΠȬî̭Ġ٠ǠŠҠĢĠŠ͠ӬŠҬˬҠˮŢŠԢǠĠҠ̠٢ӢŠǠԠԬŢ͠ŠҬǢӬҠˮҠŠӠǠŠƠĠ٠ǠŠҠӢàĢ΢ŠԠ΢Ҡ΢ҠԠӠĬŠŢƠΠŮӢȠҠԠ΢άĢŠŠԠŠӠƠͭƠĬŠǢĠԠˮҠӢҠŢŠŢŠ̢àӢŠԠĠԠٮάŠǠĢŠҠĢŠǠŠҠŢǬĠԠˮŢ͠ŢǠΠƠؠŠƠĬŠԠϠȢҬŠ̠ũĠŠŠԮϠԠΠٮΠŢ̠ӢŠԢŠԠϠȠҠĠ΢̠ήԠ͢ˮΠŢŠŢŢŢ͠ҢҧӠϠԠŠǮŠŢӠƠŠǩ̬Ԡ̠̮ĢĭàĠŢҠӠϭڢǠӠ̬Ԣ̠٠РƠŠӠƢŠǮŬ̢Ţ̢ҠؠҠȢŠŠȢŠŠӠƠŢǩ̬Ԡ̠̮΢Ӡ΢ĠŢԠҠԠ΢ŠǠӬĠ٢Ҡ̠Ҡ͠ӮӢ̢̢̢̢̢̢ҠǠӮƠƢŮ̠Ţ̠ȠҢ̢Ҡ̢ҠҢŠǠӠȠӠŢҠϠԠŠԠǢϠŠ͠Ԯâ٠ҢҧӠլҠҠà̮ϠԠŠǮ̢̬Ġ̢ԠҠàҢҠԠӠĬŠŢŠƠǠĠ٠ŠƠ͠ӮŠŢԠŠӠˠƠˬ٠ҬҠǠӮӢ͠ŠŬà͠ŠàȩȬîŠǠΠƠҠҢӠŠĠ٠Š̬ĠҢŢ̠ȠҢԠĠȠҢҠԠӠĬŠͭӠȠӠǠŠҠӢâàéâââŠ̠ӠƠ     2070$X26ī2260$$XX1:2040.$22109$CLOSE1Q$FL$"ZFILE"ī2220^$EOD$"Y"o$Q1620,1780{$Z2$T1$$Z3$"DR. "N1$$Z4$" "$ 1620$ $ Z4$"DATE OF OFFICE VISIT: "T1$$$ Z5$"ATTENDING PHYSICIAN: DR. "N1$%. 178 "A4$#>M15#H3404#RQX22140,2160,2180N#\ZE$SY$:ZS$Y1$:6600\#aK02190m#fQ2280,2330w#k2190#pZE$DG$:ZS$G1$:6600#uK02190#zQ2280,2330#2190#ZE$DI$:ZS$O1$:6600#K02190#Q2280,2330#M$"***************************************"/X:" PRESS TO CONTINUE";Z$^{H12:12:"LOADING INDEX"R(4);"RUNINDEX" *"4 "*";:12:"46 HORRABIN HALL";:39:"*"c "* *""*";:7:"WESTERN ILLINOIS UNIVERSITY";:39:"*""* *""*";:9:"MACOMB, ILLINOIS 61455";:39:"*")NG. AFTER"::"THE TESTS ARE COMPLETE THE PROGRAM WILL"i:"GIVE A ONE PARAGRAPH EVALUATION OF YOUR":"PHYSICAL FITNESS.":"PRESS RETURN TO RETURN TO MENU";S$:A9H 9R49\"THE PROGRAM WILL ASK A SERIES OF"c9f"QUESTIONS TO DETERMINE THE CONDITION OF"9p"YOUR HEART AND LUNGS."9z"NEXT A SERIES OF 17 EXERCISES WILL BE"9"WRITTEN ON THE SCREEN. AS YOU COMPLETE" :"EACH EXERCISE ENTER YOUR RATIA1A$"1-2":650:4450$8A1C118A2C0A8D(AA17)CT8D3.4I1:J6p8D2.49D3.5I7::J128D1.49D2.4I13:J188D1.49I19:J248:12);L$(9)8 8TIJ8 E$(T)8*T849>"PRESS RETURN TO CONTINUE";Z$;A1$(5) 70.7:"ENTER YOUR RATING (1-4)";AO7DA4A1A$"1-4":650:4270[7NAAAAAc7XA0u7b:12);L$(9){7l7v"ARE YOU 20 OR MORE POUNDS OVERWEIGHT?"77" 1. YES"7" 2 NO"77"ENTER YOUR SELECTION 1 OR 2";A8A20 STEPS AND JOG 100 STEPS FOR"L6"10 MINUTES. RATE YOURSELF FROM 1 TO 4"6"4. COMPLETED ALL 3 TESTS ";A1$(6);A1$(2)6"3. COMPLETED 1ST 2 TESTS ";A1$(2)6"2. COMPLETED 1ST TEST ";A1$(4)7&"1. DID NOT COMPLETE 1ST TEST "2);L$(9)585"GO OUTSIDE AND WALK BRISKLY FOR 10"f5"MINUTES OR AS LONG AS YOU CAN. IF YOU"5"HAD NO TROUBLE REST AND THEN ALTERNATE"5"WALKING 50 STEPS AND JOGGING 50 STEPS"5"FOR 6 MINUTES. IF NO PROBLEM REST AND"6"THE WALK 10ԠҠӍŠϠĠǠӍҠǍŠΠΠȠĠԍǠΠ͠ȠϠȍǠΠΠȠǠΠΠӠҠȍ̠΍ΠϠٍԍŠΠàōĠΠōĠĠ͠ΠȍŠ΍Ġ٠΍Π΍ӠčŠӍŠ΍ŠٍԍӍōҍ΍͍̠΍ӍӍӍӍōРĠǍננǍҠǍ٠ٍàҠΠȍŠȍǍǠ΍ŠӠĠӍˠӍΠҠΠӠĠȍŠӠΠȍĭĠӍԠӍ٠ӍĠ΍ΠƠŠӍӍōӍĠĠōĠĠōĠōǠōŠԠԍĠōԠō̠Π٠    1)#27);" ACT % EXP %"L11);"ACTUAL PRED OF OF"f27);" PRED PRED"r"FVC";C2(C2100.5)100:C0(C0100.5)100 9);"*";C2;17);"*";C0; 26);"*";Q(4);35);"* >75";40);"*"4V3(V3100.5)100:V1100.5)10080Q(9)(F5F4)100:Q(9)(Q(9)100.5)100hDQ(10)(F8F6)100:Q(10)(Q(10)100.5)100XQ(11)(F8F7)100:Q(11)(Q(11)100.5)100lZZ2ī1960C0C1:F0F1:F3F4:F6F7:V1V2:Q(1)Q(2)Q(4)Q(5):Q(6)Q(7):Q(8)Q(9):Q(10)Q(1Q(3)(V3C2)100:Q(3)(Q(3)100.5)100WQ(4)(C2C0)100:Q(4)(Q(4)100.5)100Q(5)(C2C1)100:Q(5)(Q(5)100.5)100Q(6)(F2F0)100:Q(6)(Q(6)100.5)100Q(7)(F2F1)100:Q(7)(Q(7)100.5)100 Q(8)(F5F3)100:Q(8)(Q(8)(0.025H)(0.021A)0.321:@F7(0.013H)(0.023A)1.210[TV1(0.089H)(0.025A)1.932|hV2(0.092H)(0.032A)1.260|Q(0)V3V0:Q(0)(Q(0)100.5)100Q(1)(V3V1)100:Q(1)(Q(1)100.5)100Q(2)(V3V2)100:Q(2)(Q(2)100.5)100*RATE+ CALCULATOR READING (VITALOGRAPH)SF2F21.102:F5F51.102:F8F81.102tC0(0.115H)(0.024A)2.852C1(0.148H)(0.025A)4.241F1(0.047H)(0.045A)2.513F3(0.145H)(0.036A)2.532F4(0.109H)(0.047A)2.010,F6RY, ENTER 0" / "ACTUAL FVC (BTPS) ";C2R "ACTUAL FEF 25-75 (ATPS) ";F2w ("ACTUAL FEF 200-1200(ATPS) ";F5 <"ACTUAL FEF 75-85 (ATPS) ";F8 P"ACTUAL FEV 0.5 (BTPS) ";V0 d"ACTUAL FEV 1 (BTPS) ";V3x CORRECT ATPS TO BTPS FROM FLOW-, 2=FEMALE) ";SS 8ZZSS4 LER$"1=MALE,2=FEMALE"P `SS1SS2İ560::1060V t\  "INPUT THE FOLLOWING DATA AS CALCULATED" "FROM THE SPIROGRAM. USE NUMERICAL " "VALUES ONLY. IF DATA IS NOT AVAILABLE" "OR WILL NOT BE NECESSA S$(50) +4 410);"SPIROGRAPHIC ANALYSIS"V H10);"---------------------"\ \b { "AGE (IN YEARS) ";A ZZA ER$"AGE MUST BE BETWEEN 20 AND 70" A20A70İ560::920  "HEIGHT IN INCHES ";H  $"SEX (1=MALETURNING TO INDEX":(4);"RUN INDEX": ER$"1 AND 2":560C 300I 0l D"******* E R R O R ********"r X l"YOU ENTERED ";ZZ  "VALID ENTRIES ARE ";ER$  "PRESS RETURN TO CONTINUE";S$    RUN PROGRAM Q(15)******" 0 "PRESS RETURN TO CONTINUE";S$6 ,< @B TR h19)"LUNG"X |q "1 - RUN PROGRAM" "2 - INSTRUCTIONS" "3 - END"  "PLEASE ENTER YOUR SELECTION";ZZ ZZ1ī780 ZZ2ī2740# ZZ3Ė(5):(9):"RE4dx19)"LUNG"L"***************************************"z"* ORIGINAL PROGRAM DONE BY JAMES K. *""* ROBINSON,II,D.O. IT HAS BEEN *""* MODIFIED BY WARREN SHANAHAN. *" "*********************************  " " "   17501900/Z$(1,3)"5":Z$(1,78)"5"LZ$(3,3)"4":Z$(3,78)"4"iZ$(5,3)"3":Z$(5,78)"3"Z$(7,3)"2":Z$(7,78)"2"Z$(9,3)"1":Z$(9,78)"1"Z$(11,3)"0":Z$(11,78)"0"B3A2102&Z$(A,B)":"0A:B78DA,A)"+"BB1A B2-A2029=Z$(B,A)"+"GBB1NAW"B11f,A11403v6Z$(B,A)"+"@BB1JATB11^A11413hZ$(B,A)"+"rBB1|AB2A44713Z$(B,A)"+"BB1AK).25Y05.5'YI(8,K)ZY.(Y;2I(8,K)ZB<KL>1350Y?I(8,K)9c@1340nFT18xP2980Z1390d1450nBL111xBC178Z$(BL,BC)" "BCBL14701730B11A919Z$(B110011802210'K4270NI08D0BSUM0ML17aI(L,K)9ī1252kDD1~SUMSUMI(L,K)L1254NI91250NI9D0ī1343SUM0D0I(8,K)0SUM0ī1340I(8,K)SUMD I(8,K)I(8,#`"ANY CORRECTIONS TO THE INPUT";j"ENTER YES OR NO";CtC$W~C$"YES"ī1170jC$"NO"ī1180p" *** E R R O R ***""YOU ENTERED ";C$"VALID ENTRIES ARE YES AND NO"" PRESS RETURN TO CONTINUE ";DA$ "YOU ENTERED";I(I,J)B"VALID ENTRIES ARE 0 TO 5":Hr" PRESS RETURN TO CONTINUE ";DA$x880I(I,J)9ī1080I(I,J)I(I,J).25Y05.5YI(I,J)ZY$Y.I(I,J)Z8JBILVC$" "NEAREST .5 BOUNDARY":!HTI500-RJ427;\TITI100OfTI2500TI100sg I(I,J)=RND(4)+RND(0):GOTO 910pTI;:Q$" ":Q$zQ$" "Q$"9"I(I,J)(Q$)0I(I,J)5I(I,J)1020I(I,J)91020" *** E R R O R ***"$(I) II175"DATA FOR ";D$(I):j"TIME OF INJECTION. DO NOT USE COLON ";I(I,1): "ENTER REGULAR DOSAGE ";I(I,2)"ENTER NPH ";I(I,3) *4"ENTER CLINITEST RESULTS BY HOUR":>"INPUT WILL BE ROUNDED TO THE 0:4070JDJD63880'3700D$"SUNDAY"ė:" **** E R R O R ***"::"THE DATE YOU ENTERED WAS A ";D$:"THE PROGRAM REQUIRES THAT THE":"BEGINNING DATE BE A SUNDAY"::" PRESS TO CONTINUE ";DA$:500I18D 0LA1:HA12:3440:500= :" ENTER DAY (I.E. 15) ";S$J DDD(S$)a NDD1DD31ī610{ XLA1:HA31:3440:500 b" ENTER NUMERIC YEAR (I.E. 1981) ";S$ lYY(S$) vYY1981YY1999ī650 LA1981:HA1999:3440:700YYYY190ENTER THE NAME OF THE INDIVIDUAL ":S$P N$S$:L(N$)e L1L20ī500 LA1:HA20:3550:280  S$"" "STARTING DATE FOR RUN " " ENTER NUMERIC MONTH (I.E. 01) ";S$ MM(S$) &MM1MM12ī570"TEKULSKY AND STEVE FABER."! hJ r"IT HAS BEEN EXPANDED AND MODIFIED"r |"TO RUN ON THE APPLE, AND TRS-80 " "BY WARREN SHANAHAN"   SUNDAY,MONDAY,TUESDAY WEDNESDAY,THURSDAY  FRIDAY,SATURDAY,AVERAGE S$"":N$""> "S$"1"S$"2"ī260, LA1:HA3:3440:140= S$"1"İ280O S$"2"İ5000U [ "| ," BLOOD SUGAR TRACKING" 6 @"ORIGINAL PROGRAM WAS PUBLISHED IN" J"THE DECEMBER 1978, INTERFACE AGE" T"MAGAZINE AND WAS WRITTEN BY MAT" ^*********************************"( nT x" PRESS RETURN TO CONTINUE ";\ D$b l S$""} "CLINITEST" "1 - RUN PROGRAM" "2 - INSTRUCTIONS" "3 - END" " ENTER SELECTION # ";S$ S$"3"CLS: `( Z$(11,78)I(8,27)(D$(8).(72CC0f<"***************************************"F"************* CLINITEST **************"P"**************** BY *****************"Z"******** WARREN SHANNAHAN **********"" d"******               0)2&N((N7(N7))7.5)6&N0D$"SATURDAY"K&N1D$"SUNDAY"`&N2D$"MONDAY"v&N3D$"TUESDAY"&N4D$"WEDNESDAY"&N5D$"THURSDAY"&N6D$"FRIDAY"&&  CONVERTS JULIAN TO GREGORIAN& PASS JULIAN IN JD'THIS ENTRY REQUIRES AT LEAST";LAJ%8"AND NOT MORE THAN";HA;"CHARACTERS."P%Br%L"PRESS RETURN TO CONTINUE ";{%VDA$%`S$""%j%tYYY:DDD:MMM%~YY1900%M2ī3750%MM12%YY1&ND2M(.6(M1))Y(Y4)(Y100)(Y40$ 2$ "VALID ENTRIES ARE FROM";LA;"TO";HA;"."8$ c$ " PRESS RETURN TO CONTINUE ";l$ DA$v$ S$""|$ $ $ " * * * E R R O R * * *"$ $ "YOUR ENTRY WAS:"$S$$$"IT CONTAINS";L;"CHARACTERS."$$ %." 2 3 4 0 0 0 0 0"j#4 5)"0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0"#> 5)" 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0"#H 0:#p #z " * * * E R R O R * * *"# # "YOUR ENTRY WAS ";S$" 1:A111" B178)" Z$(A,B);0" B6" =" AF" 0:T" 1:" ";`" A378j" "=";q" Aw" " 5)"6 7 8 9 1 1 1 1 1 1 1 1 1 1 2 2 2 2 2 1 2 3 4 5"#* 5)"0 0 0 0 0 1 2 3 4 5 6 7 8 9 0 1OSAGE: ";I(T,2);" UNITS REGULAR"=!& 51)I(T,3);" UNITS NPH"C!0 ^!: 32)"REFERENCE CURVE"y!D 32)"***************"!N !X 0:!Y 1:" ";!b A378!l "=";!v A! :! 0:! 1:33)"ACTUAL CURVE"! 33)"************"" 0:O TOP OF FORM"< CC0Ą" THEN PRESS RETURN ";DA$:CC1B I 1O U ` 3)N$f 13)"CLINITEST RESULTS FOR WEEK OF: "; MM;DD;YY;"TO";M2;D2;Y2  3)D$(T);" RESULTS";  43)"TIME OF INJECTION: ";I(T,1) ! 43)"D T4'T "ENTER NEW VALUE FOR ";F$;:Z6U Z9ī2910KV 0Z5Zī2904UW 4500aX ZZ.25oY Y05.5}Z YZPY[ Y\ ZP^ C124h MUI(Q,T)Zr UU100| U2500U100 TT1 C 2240 CC0ė:"MOVE PRINTER T B$" OTHER " 2240  E "ENTER NEW INJECT VALUE";I(Q,1)V B$" OTHER "` 2240f  "ENTER NEW START DATE";ST$ B$" OTHER " 2240  "ENTER NEW END DATE";ED$ B$" OTHER "" 2240, 6 M(F$)@ U600JOU MUST ANSWER 'YES' OR 'NO' "J :" PRESS RETURN TO CONTINUE ";DA$P( Z2 2240`< yF "ENTER NEW NAME";N$P B$" OTHER "Z 2240d n "ENTER NEW NPH VALUE";I(Q,3)x B$" OTHER " 2240  "ENTER NEW REG VALUE";I(Q,2)ER FIELD(IE NPH OR 0900)";F$1 F$"NAME"ī2620E F$"NPH"ī2660Y F$"REG"ī2700p F$"INJECT"ī2740 F$"START"ī2780 F$"END"ī2820 99(F$)2401(F$)ī2860  " *** E R R O R ***"  "INVALID ENTRY" "Y>. "1300 ";I(Q,11);14);"2100 ";I(Q,19);27);"0500 ";I(Q,27)I8 F$" "TB Y$" "L "NOTE: NULL VALUES ARE REPRESENTED BY 9'S"V "ANY";B$;"CHANGES? (REPLY YES OR NO)";` Y$j Y$"NO"ī2440t Y$"YES"ī2460~ 2540 Q  "ENT(Q,22)D "0900 ";I(Q,7);14);"1700 ";I(Q,15);27);"0100 ";I(Q,23) "1000 ";I(Q,8);14);"1800 ";I(Q,16);27);"0200 ";I(Q,24) "1100 ";I(Q,9);14);"1900 ";I(Q,17);27);"0300 ";I(Q,25)$ "1200 ";I(Q,10);14);"2000 ";I(Q,18);27);"0400 ";I(Q,26)3);" REG: ";I(Q,2);"INJECT ";I(Q,1)L"START: ";MM;DD;YY" END: ";M2;D2;Y2"0600 ";I(Q,4);14);"1400 ";I(Q,12);27);"2200 ";I(Q,20)"0700 ";I(Q,5);14);"1500 ";I(Q,13);27);"2300 ";I(Q,21)"0800 ";I(Q,6);14);"1600 ";I(Q,14);27);"2400 ";I DN1*AC3 4NM50.5->AB4279HACAC3WRI(T,AB)NMZ$(DN,AC)"*"_\ABhfAC3tpDNDN1|zNM32503320T140Q17B$" "14)"INPUT DATA FOR ";D$(Q)"NAME: ";N$#"NPH: ";I(Q,2102NZ$(A,B)":"XA#b-l1950;vA1112KZ$(A,B)"-"RAXfB4:1910tB5:1910B76:1910B77:1910325013901750B4:1910B5:1910B76:1910B77:1910 31703220VOLUME AND FLOW"?T "PARAMETERS AS DERIVED FROM DATA OBTAIN-"ih "ED FOLLOWING THE PERFORMANCE OF A "| "STANDARD SCREENING SPIROGRAM." "THESE RESULTS ARE THEN COMPARED TO PRE-" "DICTED 'NORMAL' VALUES BASED ON THE" "LINEAR REGRESSION 1 "THE PROGRAM 'LUNG' WAS WRITTEN BY JAMES"\ "K. ROBINSON, II, D.O. OF WAUWATOSA," "WISCONSIN. IT WAS PUBLISHED IN THE " "SEPT 81, ISSUE OF INTERFACE AGE." , "'LUNG' CALCULATES VARIOUS SIGNIFICANT "@ "PULMONARY FUNCTIONAL );"*";">55-70";26);/ "*";35);"*";40);"*"]( "FEV 1/";9);"*";17);"*";26);"*";35);o< "*";40);"*"P "FEV 0.5";9);"*";Q(0);17);"*";" <1.5";d 26);"*";35);"*";40);"*"x "PRESS RETURN TO CONTINUE";A$ 300 INSTRUCTIONS;"*";26);"*";%t 35);"*";40);"*"2 " -85";] F8(F8100.5)100:F6(F6100.5)100 9);"*";F8;17);"*";F6;26);"*";Q(10); 35);"* >75";40);"*" "FEV";9);"*";17);"*";26);"*";35); "*";40);"*" " 1/FVC";9);"*";Q(3);17);"*";Q(8);35);"*";" >65";40);"*"OF2(F2100.5)100:F0(F0100.5)100^"FEF 25"; 9);"*";17);"*";26);"*";35);"*";$ 40);"*"8 " -75";9);"*";F2;17);"*";F0;26);"*";Q(6);L 35);"*";" >55";40);"*"` "FEF 75";9);"*";17)(V1100.5)1005H"FEV 1";9);"*";V3;17);"*";V1;^\26);"*";Q(1);35);"* >75";40);"*"np"FEF 200";F5(F5100.5)100:F3(F3100.5)1009);"*";17);"*";26);"*";35);"*";40);"*"" -1200";9);"*";F5;17);"*";F3;#26GREATER.".0"AN OUTPUT PRINTER IS REQUIRED"40X0"PRESS RETURN TO CONTINUE";DA$^0 $SS RETURN TO CONTINUE";DA$ /"//,"OUTPUT:"Y/6"SEE FIGURE 1 FOR AN EXAMPLE OF THE"/@"REFERENCE CURVE AND ACTUAL CURVE "/J"FOR ONE DAYS INPUT"/T/^"PRESS RETURN TO CONTINUE";DA$/h/r"RESTRICTIONS:" 0|"COMPUTER MUST BE 16K OR "PRESS RETURN TO CONTINUE";DA$&.4."INPUT:"^." FIGURE 1 OF THE ARTICLE INCLUDED"."IN THE DOCUMENTATION REPRESENTS A "."SAMPLE RUN OF THE PROGRAM. PLEASE"."NOTE THAT THE STARTING DATE MUST"."BE A SUNDAY. "./" PRES OF INSULIN AND DIET"-Z@-d"PRESS RETURN TO CONTINUE";DA$F-n`-x"CORRECTION ROUTINE"f--" A CORRECTION ROUTINE IS PROVIDED "-"AFTER THE INPUT IS ENTERED. CHANGES"-"CAN BE MADE HERE PRIOR TO ANY"-"CALCULATIONS.- .PRESS RETURN TO CONTINUE";DA$#,N,"OF THE WEEK AND THEN SUMMARIZE THE "y,("THE WEEKS DATA AND PRINT AN AVERAGE",2"GRAPH FOR THE WEEK. THESE GRAPHS ",<"ARE INTENDED FOR REVIEW WITH THE ",F"FAMILY DOCTOR TO DETERMINE THE "-P"EFFECTDAY. IT IS DESIGNED TO"D+"ACCEPT THE PERCENTAGES FOR AN ENTIRE"o+"WEEK BEGINNING ON SUNDAY AND ENDING"+"THE FOLLOWING SATURDAY. THE PROGRAM"+"WILL PRINT A REFERENCE GRAPH FOLLOW-"+"ED BY THE ACTUAL GRAPH FOR EVERY DAY"+ ," PRESS TO CONTINUE";DA$'*1*29007*O*15)"INSTRUCTIONS"U*e*"OVERVIEW"*" THE PROGRAM IS DESIGNED TO PRINT A"*"GRAPH OF THE PERCENT OF SUGAR ACQUIRED"*"FROM A URINE ANALYSIS AT PERIODIC TIMES"+"DURING THE JD AS YYDDD )6)DD29MM2(YY4)4YYī4090U)V1((VV$,MM52,3))DD1g)JDYY1000V1)(YY4)YYMM2JDJD1)))" *** E R R O R ***"))" YOU ENTERED ";Z)" VALID ENTRIES ARE O TO 5 AND 9":)!*"D2((VV$,V552,3))V4ī3970<(V3((VV$,V557,3))P(V332V3V3V4_(D2D2V31k(M2V51q(( CONVERTS GREGORIAN TO JULIAN( GREGORIAN DATE MUST BE PASSED IN VARIABLES MM DD YY ) JULIAN DATE WILL BE RETURNED IN VARIABLE MONTH =M2. DAY=D2. YEAR =Y2('(V401'2V50}'<VV$"31001280323106030091311213015231182312133024431274303053133500367"'FV5V51'PV7$(JD)'ZV6$(V7$,2,5)'dY2((V6$,1,2))'nD2((V6$,3,3))'x(Y24)4Y2D259V41'V5V51"(AT,NOCTEC,NORGESIC,NORINYL,NORLESTRINs' OMNIPEN,ORETIC,ORINASE,ORNADE,OVRAL,OVULEN,ORTHO-NOVUM,ORASONE,OXAZEPAMU' PANMYCIN,PARAFON FORTE,PAREGORIC,PAVABID,PEDIAMYCIN,PENICILLIN,PENTIDS,PENSYN,PEN-VEE-K,PERCODAN,PERIACTIN,PERSANTINE,PHENAPHEN,PHENERLOMOTIL,LO/OVRAL,LOTRIMIN' MACRODANTIN,MARAX,MEDROL,MELLARIL,MEPROBAMATE,MEPROSPAN,MILTOWN,MINOCIN,MOL-IRON,MONISTAT,MYCOSTATIN ,MOTRIN,MENOTAB%' NALDECON,NALFON,NAPROSYN,NAPROXEN,NEOSPORIN,NITRO-BID,NITROBON,NITROGLYCERIN,NITROL,NITROSPAN,NITROSTISISN`' HALDOL,HISTASPAN,HYDROCHLOROTHIAZIDE,HYDRODIURIL,HYGROTON,HYDROPRESj' ILOSONE,ILOTYCIN,INDERAL,INDOCIN, IONAMIN,ISOPTO-CARPINE,ISORDIL,ISORDIL TEMBIDt' JEN-DIRIL~' KEFLEX,KWELL,K-LYTE' LANOXIN,LASIX,LAROTID,LIBRAX,LIBRIUM,LIDEX,NATAL,DORIDEN,DRIXORAL,DYAZIDEB' ELAVIL,EMPIRIN W/ CODEINE,E-MYCIN,ENDEP,ENDURON,ENOVID-E,EQUANIL,EQUAGESIC,ERYTHROCIN,ERYTHROMYCIN,ESIDRIX,ETRAFON,E.E.S.L' FASTIN,FELSULES,FEOSOL,FIORINAL,FLAGYL,FURADANTIN,FEM-H,FEMESTV' GANTANOL,GANTRISIN,GENATAPRES,CHLORAL HYDRATE,CHLOR-TRIMETON,COMBID,COMPAZINE,COUMADIN SODIUM,CYCLOSPASMOL,CONJUGATED ESTGN.8' DALMANE,DARVOCET,DARVON COMPOUND,DELTAZONE,DUMELUN,DIABINESE,DIAMOX,DIGOXIN,DILANTIN,DIMETANE,DIMETANE EXPECT.,DIMETAPP,DIUPRES,DIURIL,DIAZEPAM,DONAY' ACHROMYCIN,ACTIFED,ADAPIN,ALDACTAZIDE,ALDACTONE,ALDOMENT,ALDORIL,AMBENYL,AMCILL,AMOXIL,AMINOPHYLLIN,AMPICILLIN,ANTIVERT,ANVSOL HC,APRESOLINE,ATARAX,ATROMID-S,AZO GANTRISIN$' BENADRYL,BENDECTIN,BENYLIN,BACTRIM,BUTAZOLIDIN,BUTISOL SODIUMf.' C600,24700,24800,24900,25000,25100,25200,25300,25400,25500,25600,25700,25800,25900,26000,26100,26200,26300X63XX63:X30000,30070,30140,30170,30220,30270,30300,30370,30420,30480D" PRESS TO CONTINUE";Z$' **** DRUG ARR,20800,20900,21000,21100,21200,21300,21400,21500,21600,21700,21800,21900,22000,22100,22200,22300,22400,22500,22600,22700,22800,22900,23000,23100,23200,23300,23400iX34X64XX34:X23500,23600,23700,23800,23900,24000,24100,24200,24300,24400,24500,244PX24ĺ"* D R U G I N T E R A C T I O N *"dX23X64ĺ" * * * W A R N I N G * * *"X63ĺ" * SPECIAL INSTRUCTION *"":X24ĺ"WHEN TAKING - "FT$#X23ĺFT$$|X0X35ĴX20100,20200,20300,20400,20500,20600,20700 MESSAGE NUMBERS A$MS$(Y)* P1:L14 B$""M (A$,P,L)"*"ī1060} (A$,P,L)","B$B$(A$,P,L):PP1:1040 $B$""X(B$):5000 8(A$,P,L)"*"ı PP1:1030  DEFAULT MESSAGE   PRINT DRUG MESSAGESTION ":" ENTERED - "FT$:" PRESS TO CONTINUE ";Z$:302J Y0u FSĄ"ENTER YOUR SELECTION NUMBER ";Y FSĄ" PRESS TO CONTINUE";Z$:YF YSYFR$"INVALID SELECTION ":422 FT$DR$(Y) 1000 302  DETERMINE(DR$(I),1)(FT$,1)ī5736 (DR$(I),X)FT$544H NI:G41G1c G1ĺG)I;" ";DR$(I);~ G21ĺG)I;" ";DR$(I) GG20 N0S0SN !FN <I =FT$"P"ĺ xFT$"P"R$""ĺR$B N0ĺ" DRUGS ARE NOT AVAILABLE FOR SELECETTER 'A'.) E F" GFT$""N L"ENTER LETTER THEN PRESS ";FT$_ NFT$""ī302l jX(FT$)v R$"" S0:F0  G1 "* D R U G I N T E R A C T I O N * " FT$"P"ĺ N0 (FT$,1)M$TMELSET1 ITMD 0 . /: 0"* D R U G I N T E R A C T I O N * "B 2:i 4" ENTER THE FIRST LETTER OF THE"o 6 8" GENERIC OR THE BRAND NAME OF THE " : <" MEDICATION." > @" (EXAMPLE:DRUG NAME - ACHROMYCIN" D" ENTER THE L}`:60000MD218OM$"L":M103: MIDDLE DRUG NUMBER TO SPEED SEARCH\DR$(MD)iMS$(MD)v(DI$(83)~ON0d READ DATA STATEMENTSzI1MDDR$(I)II1MDMS$(I)II183DI$(I)I 6020                               !!! ! ! ! ! !!!!!!!!!"",32,48*")&; "7,13,18,33,55,68,51,1,3*"F&; "7,13,18,33,55,51,1,3*d&; "7,13,18,33,55,51,1,3*"&; "51,5,39,54,77,63,11,55*"&; "1,10,56,63*"&; "1,10,56,63*"&; "1,10,56,63*"&; "1,10,56,63*"&; "1,10,56,63*"&; "1,10,56,63*"!' "2,8,35,49,55,51,2,82,15*"=% ; "2,8,35,49,55,51,2,82,15*"^% ; "2,8,35,49,55,51,2,82,15*"% ; "13,14,23,24,25,54,55,51,5,1,79,73,81,28*"% ; "46,67,71*"% ; "43,49,55*"%; "51,1,53*"%; "7,18,13,55,51,1,3,64*"%; "48,34*"&; "2,8,1,4,1,72,70*"2$: "2,4,5,8,24,55,51,4,10,30,17,18*"W$: "2,8,13,24,35,46,45,48,53,66*"c$; "44*"}$; "2,8,48,53,51,1,2*"$; "13,34*"$; "43*"$; "48,50,60,72*"$; "2,4,54*"$; "7,13,22,38,53,55,68*"$; "2,8,26,32,48,54,51,1,62*"%;45,47*"#: "11,51,1,83*"5#: "10,63,69,51,1,52*"O#: "10,63,69,51,1,52*"v#: "1,5,6,7,9,24,53,49,55,51,1,75*"#: "3,48,53,55,70,71,51,1,72*"#: "11*"#: "25,24,55*"#: "1,22,56,51,1,29*"#: "1,5,6,9,7,22,48,53,55,56*" $: "3,52,51,66*",": "1,5,6,7,9,24,53,49,55,51,1,75*"S": "1,5,6,7,9,24,53,49,55,51,1,75*"w": "1,5,6,7,9,22,52,53,51,1,75*"": "1,9,12,22,42,51,2,74,43*"": "11,24*"": "11,24*"": "1,5,6,4,7,36,38,54,55,67*"": "2,13,21,48,50,53,68*"#: "31,66*"!: "46,67,71*"/!: "2,8,13,32,35,36*"@!: "2,13,43*"U!: "48,50,60,72*"d!: "34,48*"s!: "48,34*"!: "7,13,15,48,53,60,51,1,76*"!: "7,13,15,48,53,60,51,1,76*"!: "48,34*"!: "8,10,13,26,49,55*"": "2,8,13,24,46,45,48,35,53 "2,8,35,49,55,51,4,80,14,15,48*"G : "2,8,13,32,48,65,51,3,50,3,36*"V : "11,24*"e : "11,24*" : "1,5,6,7,9,22,49,53,51,1,75*" : "1,2,4,8,15,5,24,31,32,49,55,51,4,61,16,4,42*" : "11,24*" : "31,45,47*"!: "2,8,13,24,35,45,46,48,53,: "1,2,4,8,32,48*"9: "1,5,6,7,9,36,53,49,51,1,4,36*"p: "2,4,5,8,15,16,32,37,45,59,51,5,32,55,46,33,70*": "2,8,13,19,32,35,36,48,66*": "11,24*": "2,4,5,8,15,16,32,37,45,59,51,5,32,55,46,33,70*": "5,6,7,1,9*": "13,34*"! :,4,8,27,32,36,45,46,53*"(: "2,4,32*"?: "1,2,4,8,32,48*"[: "1,9,12,39,40,42,48*": "1,56,5,6,7,9,22,52,53,51,1,75*": "2,4,8,17,27,32,35,38,43,51,8,12,30,17,58,21,47,65,22*": "2,8,24,31,32,51,4,2,40,41,55*": "2,8,13,32,38*"3,35,38,51,8,12,30,17,58,21,47,65,22*"F: "2,8,32,35,48,51,2,71,6*"h: "2,8,13,19,32,36,35,48,55*": "7,13,22,37,38,53,62,51,3,59,35,60,68*": "13,34*": "1,4,10*": "1,48,56*": "1,22,56,51,1,29*": "37,38,41,57,64*": "26,50,54*"": "2,8,13,24,32,35*"8: "2,8,32,38,48*"]: "2,8,13,24,45,46,48,35,53,66*"~: "2,4,8,27,32,36,46,48,53*": "2,8,31,32*": "2,8,26,32,37*": "13,49,55,53,54,56,58*": "1,31,45,49,56*": "48,34*"&: "2,4,8,27,32,4*" : "5*"#: "3,51,1,72,70*"6: "2,8,32,48*"K: "11,24,31,44*"[: "1,4,56*"k: "2,8,32*": "13,24,48,53*": "24,48,53,51,2,75,76*": "2,4,8,24,31,36,46*": "2,4,8,31,32*": "2*": "25,48,66,51,1,75*" : "7,32,425,51,6,1,79,73,81,28,48*"0: "4,2,66,56,32*"M: "4,5,2,8,15,16,50,59*"s:"5,6,7,9,1,24,49,53,56,51,1,75*": "1,60,61*": "5,1,56*": "1,2,9,12,22,24,56*":"2,4,8,51,5,9,13,27,34,66*": "3,51,1,72,70*": "3,52,55,51,1,72,70LINASE,TRANXENE,TRIAVIL,TUSS-ORNADE,TYLENOL W/ CODEINE,THYROGLOBULINR' UNIPRES' VALIUM,VALISONE,VASODILAN,V-CILLIN K,VIBRAMYCIN,VISTARIL,VIOFORM-HYDROCORTISONE( WARFARIN ( X-AQUA( ZORANE,ZYLOPRIM2: "23,14,13,30,48,29,28,24,' SALUTENSIN,SER-AP-ES,SERAX,SINEQUAN,SK-PRAMINE,SLOW-K,SORBITRATE,STELAZINE,SUMYCIN,SYNALAR,SYNALGOS-DC,SYNTHROID,SYNEMOLD' TAGAMET,TALWIN,TANDEARIL,TELDRIN,TENUATE,TEPANIL,TETRACYCLINE,TETRACYN,TETREX,THORAZINE,THYROID,TIGAN,TOFRANIL,TOLECTIN,TOGAN EXPECT., PHENOBARBITAL,POLARAMINE,POLYCILLIN,POTASSIUM CHLOR.,PREDNISONE,PREMARIN' PRINCIPEN,PRO-BANTHINE,PROPANTHELINE BROMIDE,PROLOID,PRONESTYL,PROVERA' QUIBRON,QUINIDINE SULFATE,QUIBRON PLUS' REGROTON,RITALIN,ROBAXIN,ROBITET,ROPRAMINETE,PROMETHAZINE HYDROCHLORIDE,PROCAINE,PHENOTHIAZINE DRUGS,PROTRIPTYLINE6> PROPOXYPHENE NAPSYLATE,PENICILLIN OR ANY SIMILAR DRUG6> RONDOMYCIN,RESERPINE6> SULFA DRUGS,SALICYLATES,SULFATE,SODIUM CITRATE6> TERRAMYCIN,TYBANATE6> VIBRAMYCINMINOCIN,MUBUTAMATE,MEPROBAMATE,MI-PILO-MISTURAPc5> NITROGLYCERIN,NYSTATIN,NEOMYCIN,NORTRIPTYLINE5> ORPHENADRINE,OXYCODONE,OXAZEPAMH6> PHENOBARBITAL,PHENYTOIN,PERPHENAZINE,PHENOTHIAZINE DRUGS,POLYMYXIN,PHENACETIN,PRAZEPAM,POTASSIUM GUAIACOLSULFONA,DESIPRAMINE,DIPHENHYDRAMINEL4> EPHEDRINE,ETHOHEPTAZINE,EXTRACT OF IPECAC]4> FLURAZEPAMo4> GRAMICIDIN 4> HYOSCINE HYDROBROMIDE,HYSCYAMINE,HYDROCHLORIDE,HYDROCHLOROTHIAZIDE,HYDROFLUME THIAZIDE,HYDRALAZINE4> IMIPRAMINE4> LORAZEPAM/5> CARBROMAL,CARISOPRODOL,CHLORPROMAZINE,CHLORDIAZEPOXIDE,CLIDINIUM,CAFFEINE,CITRATE3> CLORAZEPATE,CLONAZEPAM,CHLORZOXAZONE,CODEINE PHOSPHATE,CITRIC ACID,CHLORTHALIDONE,CODEINE SULFATE4> DECLOMYCIN,DIGITALIS,DIAZEPAM,DIHYDROCODEINE BITARTRATE,DOXEPIN*"2{; "13,34*"&2> DRUGS INTERACT2> AUREOMYCIN,ATROPINE SULFATE,ASPIRIN,AMITRIPTYLINE,ALMOCARPINE PILOCEL,ACETAIMINOPHEN,ALCOHOL,AMINOPHYLLINE,AMMONIUM CHLORIDE2> BROMIDE,B SULFATE,OTHER BENZODIAZEPINES,BROMODIPHENHYDRAMINE HYDROCHLORIDER3>12,30,17,58,21,47,65,22*"-1r; "44,51,1,83*"91s; "10*"R1t; "3,51,1,72,69,70*"1u; "13,14,23,24,25,28,29,30,48,51,6,1,79,73,81,28,48*"1v; "2,8,32*"1w; "48,55*"1x; "13,49,54,53,56*"1y; "1,5,6,7,9,24,53,49,55,51,1,75*"2z; "13,32,48,53,66 "1,4,10,13,49*"/0j; "2,4,8,17,27,32,38,43*"a0k; "1,2,4,5,8,15,24,31,32,49,51,4,4,42,61,16*"w0l; "2,4,32,55,66*"0m; "2,8,4,32,51,2,6,24,66*"0n; "1,13,7,56*"0p; "1,4,9,12,22,37,39,40,42,51,3,43,74,75,64*"1q; "2,4,8,17,27,32,35,38,43,51,8,,29,30,48,51,6,1,79,81,73,28,48*"[/c; "13,14,23,24,25,28,29,30,48,51,6,1,79,81,73,28,48*"y/d; "1,8,26,32,37,51,1,69*"/e; "1,7,13,20,45,54*"/f; "1,8,51,1,83*"/g; "2,4,5,8,15,16,32,45,52,59,51,5,32,55,4,33,70*"/h; "7,13,18,33,55,51,1,3*"0i;,51,1,83*".[; "49,51,1,83*"B.\; "1,8,32,36,38,49,55,51,1,83*"[.]; "2,7,32,46,50,54*"y.^; "2,4,8,27,32,36,48,53*"._; "31,45,47,51,1,83*".`; "31,45,47,51,1,83*".a; "13,14,23,24,25,28,29,30,48,51,6,1,79,81,73,28,48*"!/b; "13,14,23,24,25,28S; "25,24,55,45*",-T; "10,51,1,52,63,69*"K-U; "8,10,26,32,37,51,1,69*"-V; "13,14,23,24,25,28,29,30,55,48,51,6,1,79,81,73,28,48*"-W; "44,51,1,83*"-X; "1,8,13,19,32,35,36,48,55,51,5,3,19,31,64,67,64*"-Y; "1,7,13,20,45,54,55,56,59*" .Z; "446,1,79,81,73,28,48*":,M; "2,4,5,8,15,16,32,45,52,55,59*"d,N; "1,9,12,22,37,39,40,42,51,2,44,74*",O; "1,4,9,12,22,37,39,40,42,51,3,43,74,45,64*",P; "1,8,27,32,43,54,51,1,83*",Q; "2,4,5,8,15,16,50,55,59*",R; "2,4,5,8,15,16,32,45,52,55,59*"-1,56,51,1,68*"+D; "48,34*"<+F; "45,46,49,55,51,1,8,64*"[+G; "1,13,49,54,56,51,1,83*"+H; "2,4,45,46,49,55,64,51,1,83*"+I; "1,9,12,37,39,40,42,51,2,26,74*"+J; "2,4,5,13,31,32,45*"+K; "2,8,32,49,55*",L; "13,14,23,24,25,28,29,30,48,55,51,*8; "2,8,32,35,49*":*:; "2,4,8,24,31,32,36,45,53,59*"P*;; "3,63,51,1,72*"e*<; "25,24,55,45*"*=; "13,22,38,53,49,54,68,51,3,59,35,60*"*>; "48,34*"*?; "3,51,1,72,70*"*@; "4,8,31,36,46*"*A; "4,8,31,36,46*"*B; "1,7,13,55,56*"+C; "2,69,70*"")0; "3,51,1,72,69,70*"8)1; "3,51,1,72,70*"Q)2; "3,51,1,72,69,70*")3; "2,8,13,32,35,36,48,55,65,51,4,3,19,57,64*")4; "2,8,5,4,55,32,73*")5; "13,55*")6; "2,8,32,35,36,48,51,2,6,24,65*"*7; "2,8,4,32,51,7,7,25,24,37,66,67,78,66*",34*"4((; "13,22,38,53,49,54,55,68,51,3,59,35,60*"j(); "1,8,27,32,43,54,51,8,12,30,17,21,22,47,65,38*"(*; "13,14,23,24,25,28,29,30,48,55,51,6,1,79,73,81,28,48*"(+; "2,32,51,2,6,23*"(,; "2,8,32,73*"(-; "31*"(.; "11,24,64*" )/; "3,51,1,7; "13,2,8,24,35,46,45,48,53,66*"Z'; "1,10,13,7,24,31,32,46,48,50,51,5,33,19,56,64,20*"i'; "13,34*"x' ; "13,34*"'!; "3,51,1,72,70*"'"; "1,5,6,7,9,24,49,53,51,1,75*"'#; "10,1,55*"'$; "2,8,1,32,48*"'%; "13,34*"'&; "13,34*"('; "13IS DRUG."FXW$FvW ***** WARNINGSR"ABNORMAL HEART RHYTHMS MAY RESULT"3>R`>R"IF TAKEN WITH DIGITALIS OR QUINIDINE."f>R>4S ***** DRUG INTERACTION #13>>S"WITH AN ANTICOAGULANT (BLOOD-THINNING)">HS>RS"DRUG, THE EFFECT OF THE ANTICOAGULANT">\S?fS"WILL BE CHABE" =Q=Q"INCREASED."!=QB=R ***** DRUG INTERACTION #10m=R"AVOID DRINKING ANY KIND OF ALCOHOL."s=0R=lR ***** DRUG INTERACTION #11=vR"THERE ARE NO APPARENT INTERACTIONS"=R=R"WITH OTHER DRUGS."=R>R ***** DRUG INTERACTIONOF TRANQUILIZERS, SEDA-"