' +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` ``>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#LHH`?F Vk *f???0xF Hh D#-FFF8` D ܸx D - ܸx8`-0ݩ?ʥD FFF`   LDcpq` [` ~  L IH  /JJJJ"LL뷩 ᷩ췩 ɛ LDLSAVBPILOCUNLOCIBPIBPIBPPRBPIBLISCALBPIBUZZOFӜ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Ӝv  Р@跻~!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볩쳢8 DH 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(`ӌ d£àĠz# u`LT L"ȱ& 01`߿߿8<@DHLPTX\`dhlptx|aMICRO-WARE : HBhi T ii / X v DISK SELECT (CAME TARGET FILE ? $ hhLT@ m RENAME $ ɛLL# 0uȊ 4 0S4Ȋ  4 0-4ȊȱҠ!@` p INSUFFICIENT SPACE s ANOTHER TARGET ?$hh 퐏 ӥ  8     ҥ `ȱ`hhL  +  @!ϥL  m REPLACE EXISTING FILE ? $ L> m REN    m F$pؠ HhL5#R8=$0pI1`I1 m DISK ERROR L> m CANNOT RESTORE FILE L> m FORMAT ERROR   0LTL LbLȱ"Ţ L H8     4 h    4  LQ8*i8e` m INSERT SOURCEL m INSERT TARGET s PRESS s RETURN  ɍ`` > 1 L HH   ^ hhH h`ECTORY` p SELECT COMMAND, FOR ANOTHER FILL $ v RETURN OR ESC `"@Ȅȱ  Z m TARGET   ɛ=ɍ ee   Z *   LU  ȑ` (Ȅ$ ɛ L ! ɛ !` $$)? @( ɍɛ)Ɉ&ɕ $ (&Hɠ)?(h`  i  HhH h` p SELECT FILE, FOR A NEW DIRL m ANOTHER DIRECTORY ?$ ɍ L m SOURCE   ɍ ɛ ܩhi ȥJJJJLUJKi ԅlL| $ v SLOT= DRIVE $JJJJ $( ɍIH h $ ɍI@AAd  A LL$* i` .Qt >: ($   )  L H8H   G  !% "L "0 1 z ` % L s Rĩ s Wҩ  s T=$ S=` s JUNE 1984`$L[($H(h)JL G ! | G ɠ?2i@ 2 (᩠Lɩ8@A H@AhhhH hHHL ,,,` ,L L   .L %$ $ L m ERROR hhL ` s VOLUME | $$A⩰ v FILEө$ P v FREE SECTORɕɛɍ 9 % " H H` L  -r. 8i$L[i ii i ()?` RUN BRUN LOAD BLOAD EXEC LOCK UNLOCK COPYRENAMEVERIFYDELETERESTORREMOVE OPYEM)  1 x ."# R ()(>( H hɛL} Ɉ%ɍZɕi p б0ߥᰧ8#H $(*)+!h"0 H $(*0 ~)J(  08 j( Ɉ $ ------- STARTUP ---------5::49234,0T(4);"BLOAD TITLE,A$2000"e(C12000:Cx2:(4);"PR#3"<(4);"RUN HTEST"FaMICRO-WARE : HBhi T ii / X v DISK SELECT (C          `_?wp8@8@AqA(R(D2`Q(@8`@p@   E`8AqgM'tcIcG@8@@p @  @ow{}>_ow{}>_ow E p8@CCq@@8@p0bs<p~o_@?p|x<s<\D</$t<.@'rryyDpO~?` }@@x?@p?@  8@@p@$Q@$"D"$A $$   D$@8@@p0@@{?w~o}_{? @8`@p|<QO  PRESS SPACE WHEN YOU'RE READY":49168,0:S$:S$(32)ı!22:39:" ENERAL IDEA OF HOW YOUR RISK OF HEALTH PROBLEMS COMPARES TO THAT OF":"OTHERS.":38:"*--*":"CAUTION - THIS DOES NOT ASSESS YOUR CURRENT HEALTH OR MEASURE RISK OF HEALTH ":"PROBLEMS WITH PRECISION.38:"*--*" :" YOU SHOULD SEE A DOCTOR FOR 讠򍱸ҍ嬠讍ҍ嬠ﬠ󍷶č嬠嬠宠ﰭԍ٠蠍嬠宍٠č嬠    讠򍱸ҍ嬠讍ҍ嬠ﬠ󮍷č嬠嬠宠栰ԍ٠蠍嬠宍٠č嬠    z #???   Š"Ͳ Р ӱӱ ӱ ӱӱӱӹ ӵӶӷӸͱӱӱҠ Ҡ ԠӱӲӳ ӴsL BKBɿ ɽA6H h B B( CLs BʠL5 y L ȡ2 ` Ѕ    L sq x ~ vL~ҝ  Oտ@BBB BBB2B:NdB]yLRVɄ; ̢ B B BR )QHJJJJ phLp `,ɛ` CL DF DF / B BL/LQlRmUrV`LÿL̿LLB  ,hإDLk]L7: 1L'MLL`,@ lPmQPi  Q3LclL`LLpL  $6hhА ,tpso`TLISPA p!p xxLMlڍhhیڬ<۠x )ڠ8۬ڰ(HH `ȹ0,Ȍ ɍ  ɠ )?, @, LB LƠ LLւ&LݩLL#B B!P`L PRESS SPACE WHEN YOU'RE READY":49168,0:S$:SEASE AND CANCER. IT WILL ""GIVE YOU A GENERAL IDEA OF HOW YOUR RISK OF HEALTH PROBLEMS COMPARES TO THAT OF":"OTHERS. "::"** CAUTION - THIS TEST DOES NOT ASSESS YOUR CURRENT HEALTH OR MEASURE RISK OF""MEDICAL PROBLEMS WITH PRECISION **" ":"PROBLEMS? TAKE THIS TEST AND SEE.":" THE TEST, WHICH WAS DESIGNED BY USA TODAY, AND WAS PRINTED IN THAT NEWSPAPER""IS BASED ON CURRENT RESEARCH ON THE RISK FACTORS FOR CERTAIN HEALTH PROBLEMS ":"ESPECIALLY CHRONIC DISEASES SUCH AS HEART DIS::" === TEST YOUR LIFESTYLE - IS IT HAZARDOUS TO YOUR HEALTH ? ================"" --------------------------------------------------------------------------"y:" HOW HEALTHY IS YOUR LIFESTYLE ? WHAT IS YOUR RISK OF DEVELOPING MAJOR HEALTHATE".20:"NUMBER OF POINTS BETWEEN THE "K20:"TWO ON THAT ITEM."`255:D14000:22:39:"> PRESS SPACE TO BEGIN...."49168,0:S$:S$(32)ı:406222:39:" ":4060 ** INTRODUCTIONU(12)D11000::(12)::5:201 D12000::150[ "DIRECTIONS: CHOOSE ONLY ONE ANSWER" 20:"IN EACH CATEGORY. IF YOU THINK" 20:"YOU FALL BETWEEN TWO OF THE " 20:"CHOICES IN ANY CATEGORY, GIVE "20:"YOURSELF A FAIR AND APPROPRI ";L$- 10:L$;" POINTS FOR THIS QUESTION"> D11000:DT ACCUMACCUM(L$)~ "TOTAL POINTS NOW ";ACCUM:D1500: (L$)65(L$)90İ300:240 210 , -- ERROR TRAP 620:240) @C11000::  ** DIRECTIONS PAGE $# 210:(4);"TLIST QUESTIONS";T, <200G >200:P125::P:255N FTT Pg == I/O SUB 20:"-------------------------------------------------------------------------------":"ENTER THE NUMBER OF POINTS YOU SHOULD GET FOR THIS QUESTION*" ACCUM0> (12)::11:20:"RUNNING HEALTH PROGRAM";[ (13);(4)"BRUNDDMOVER"l #(4);"PR#3"} $(26);(54) (5000 *255:4000 , ---- MAIN LOOP ---- .(12) 0T117 1:5:8:H$::28:"QUESTION ";T:5:8:H2$:5:8:H * * * **** **** *" H2$" ! ! !*** * ! ***** ! ! ***** !*** !*** ***** !***! !** *** ! * !***! * !** !**! * ! ! !*** ! ! !*** * ! ! * !*** ***! H : -- PROGRAM HTEST -------------------------------- H$" * * **** * * ***** * * ***** **** **** ***** ***** *** *** * * ***** * *** **** * * * **** * * *** *      ҭîҠΠӍéàŠĠϠӠҠӠҠΠӍĩԠԠŠԠҠԠĭԠĠԠŠͭàŠҠΠŠ٠ٮӠҠӠĠϠŠŠƠҠҠҠΠҠҠҠήӍ©ŠԠҠԠĠƠàŠԠŭĠȠӮӍĠŮŠҠΠĠɠŠȠĠŮӍ©ŠĠȠĠŠŠϠȠԠԠΧԠĠӠҠŠͮӍéŠȠĠԠϠҠŮӍéĠ٠ŠĠԠŠҠϠŮӍŮԠӠàԠԠԠӯˠҠӠȠŮӍ©ĠŠŠŠ Ƞ٠̠ҠҠŠҩĩŠԠԠĠҠӠҠӠӠٮӍũŠΠ̠ŠҠŮӍǮŠҠĮӍ©נŠˠҠŠƠӠ٠ŠΠǠϠҠӠҠŮӍéŠԠԠĠҠӠҠŠӠٮӍ  Šį٠ӠӮӍĩĠԯ٠ӯĠӯӠԠٮӍԮԠΠϠ٠ӠҠ̠ΩӍ©ӯӯٯΠȠίϠĠԯŠӮӍéĠԠҠˠӠ˯Ӡ٠  ̠̮ӠΠǯ̩Ӎ©ϠӍéϠӍĩϠӍũҠŮӍƩԠ׮ӍӠԮӍŠŠ®ɠ٠Ҡ̠ŠҠԠĮӍ©ɠ͠٠ĠƠӠϠǠҠƠɠŠϠԠҠӮӍéɠΠ̠٠ҠŠԠŠԠ٠٠ĮӍéɠ̠٠ŠӠԠŠԠŠĠɠŠ٠ǠΠΠŠŠӠƮӍӮΠΠɠŠԠ̠ϠϠɠ٠̠ĠҠĠĠŠϠŠǮӍ©ΠΠŠˠŠŠҠӠΠɠ̠ҮӍӠٮ٠ԠˮӍ©ԠŠƠӠĠŠŠՠȠҮӍéԠ̠ϠŠԠƠǠΠӯҮӍĩ̠ϠŠԠƠǠΠŠΠӯӠΠŠԠҮӍĩŠΠĠӠ٠ԠԠ٠ϠԠŠ٠ǮӍǠŮ٠Š٠ǠҠԻĭҠέΠӍ©Š̠ӠҠΠҠŠӯҮӍéŠΠԠԠΠҠέ  ŠΠĠӠΠàԠΠ̮͠ӍũŠΠĠӠΠí̠ˮӍ̮ҠˠҠ٠٭ӠΠӯˮӍ©ˠϠԠƠǠȠҠˠҠŠӯˮӍéˠϠԠƠǠȠҠˠҠŠӯˮӍ  Ӎ      !" ҮӍĩɠϠԠŠ٠ Ԡ͠ˠΠԮӍ ήԠΠɠŠ٠ ĠԠӠŠԠƠήӍ©٠ ӠˠԠԠӠԠǠҠǮӍéɠϠԠŠ٠ Ġ͠ǠҠҠ ҠҠŠΠĮӍΠΠ٠ΠӍҠĠȠ̠ҠĮӍ©ĠȠ̠̠٠ҠŠӍé͠נǠҠŠĠΠĮӍĩĠȠ̠̠ҠŠΠӠįҠҠҭŭĠҠŠΠĮӍ̠ӮĮӍ©ĭĮӍéĠŠԮӍĩҠҭŭĠҠŠΠĮӍũҠŭĠҠŠΠĮӍƩٮӍĩɠŠĠ͠ίٯҠҠ̠ӠĠΠӠҠӠήӍ̠ȮΠ̠ɠ̠ԠĠĠȠŮӍ©ɠ͠ĠҠŠƠŠŮӍéɠŠĠ͠ίٯҠҠ̠ӠȠϠנɠĠ  ӍéɠΠŠ٠ǠĠΠ̠ĠŠԠٮӍЮɠ٠ŠϠŠǠĠ̠ɠԠȠЮӍ©ɠΠŠŠǠРĠ٠Š̠ӠԠ٠ŠĮ SP$(80)600 C110000::MX ---------- PRINTER SUB --------------gbD11000:D:(12):l10:" >> IS THE PRINTER IN SLOT 1, ON AND READY ? <<v:" >> PRESS 'Y' WHEN READY <<49168,0:SP$:SP$(89)Y SAUL D. HOFFMAN - PROGRAM DESIGNER":" >> P R E S S S P A C B A R T O R U N P R O G R A M A G A I N <<":" >> PRESS < P > FOR A HARDCOPY OF THE SUMMARY <<"49168,0:SP$:SP$(32)Ĭ  ":57(4);"TLIST SUMM2"::">> THAT'S IT......HOPEFULLY THIS SHORT TEST HAS HELPED YOU TO BECOME MORE AWARE":"OF THE STATE OF YOUR HEALTH. THANK YOU FOR TAKING THE TIME TO USE IT."/:" STEVEN FINDLAY - USA TODA PRESS SPACE BAR FOR THE REST OF THE LISTING <<"R49168,0:SP$:SP$(32)470[440C322:C:" ":C23:" -----------"D11000:(12):r" -- H E R E I S T H E T E S T S C O R I N G S U M M A R Y --""--------------------------------------------------------------------------------"2(4);"TLIST SUMM1"1" >> N ";ACCUMACCUM(L$)1(26);(51);b" TOTAL POINTS NOW ";ACCUM;" ":D11000:Ds(26);(50){22, -- ERROR TRAP620:240)820:30:"PLEASE ENTER A NUMBER ONLY"@C11000::210  ---------SUMMARY SUB -OR"  == I/O SUB20:"-------------------------------------------------------------------------------":"ENTER THE NUMBER OF POINTS YOU SHOULD GET FOR THIS QUESTION ";L$(L$)48(L$)57ī300 22:10:L$;" POINTS FOR THIS QUESTIO ":132!I --------- SCORE SUB ------------ACCUM350RE$"VERY POOR":ACCUM250RE$"POOR":ACCUM181RE$"FAIR":ACCUM151RE$"GOOD":ACCUM76RE$"VERY GOOD":ACCUM51RE$"EXCELLENT"ACCUM350RE$"EXTREMELY PO-----------------------------------------------------------------------"22:" F O R A S U M M A R Y , P R E S S T H E S P A C E B A R "49168,0:SP$:SP$(32)ī40022:" 0-482 EXTREMELY POOR"w150`x18:" YOUR POINT TOTAL PUTS YOU IN THE ";RE$;" CATEGORY"m|S(RE$)}39:C1S:(45);:C~255H21:"-------------------------------------------------------------------------------":23:"--------A L : ";ACCUM;" P O I N T S"& e255e n5:" THE CALCULATED RESULT CATEGORIES ARE :"r o::200p20:"0-50 EXCELLENT":20:"51-75 VERY GOOD":20:"76-150 GOOD":20:"151-180 FAIR":20:"181-250 POOR":20:"250-350 VERY POOR":20:"35 --- RESULTS SUB Z(12):1:"-------------------------------------------------------------------------------":3:"-------------------------------------------------------------------------------" d175:2:" Y O U R P O I N T T O T :" QUESTION ";T;" ":(26);(50):5:8:16336,0:H2$:16336,0:5:8:H$m 210:(4);"TLIST QUESTIONS";T{ <200:255 >:C122:C:" ":C AD1500:D FT P*" ACCUM0B (12)::11:20:"RUNNING HEALTHTEST PROGRAM";_ (13);(4)"BRUNDDMOVER"p #(4);"PR#3" $(26);(54) (5000 *255:4000 , ---- MAIN LOOP ---- .(12) 0T117K 1:5:8:H$:16336,0:(26);(51):30:16336,0 * * * **** **** *" H2$" ! ! !*** * ! ***** ! ! ***** !*** !*** ***** !***! !** *** ! * !***! * !** !**! * ! ! !*** ! ! !*** * ! ! * !*** ***! : -- PROGRAM HTEST -------------------------------- H$" * * **** * * ***** * * ***** **** **** ***** ***** *** *** * * ***** * *** **** * * * **** * * *** * 660 610:(4);"PR#1"{2:" >>>>>>>>>>>>>>>>>>>>>>>H E A L T H T E S T S C O R I N G<<<<<<<<<<<<<<<<<<<<":(4);"TLIST SUMM1"(4);"TLIST SUMM2":(4);"PR#0"(4);"PR#3"(12):5" ** DONE **"Y:" >> P R E S S S P A C E T O R E R U N P R O G R A M <<"x49168,0:SP$:SP$(32)Ĭ~ -- END OF PRINT SUBROUTINE -- ** DIRECTIONS PAGED1500::(12)::5"-----------------------------------έΠӠΠŠԠҮӍĩŠΠĠӠ٠ԠԠ٠ϠԠŠ٠ǮӍǠŮ٠Š٠ǠҠĠҠέΠҠԠӍ©Š̠ӠҠΠҠŠӠҮӍéŠΠԠԠΠҠԠԠ ٬٠讠뮠ŠҠӠΠӠŠ讍󮍲٠ҍ嬠뮍٠ҍ嬠讠ҍ嬠讍ҍ嬠ﬠ󮍷č嬠嬠宠栰ԍ٠蠍嬠宍٠č嬠     讠ҍ嬠讍ҍ嬠ﬠ󮍷č嬠嬠宠栰ԍ٠蠍嬠宍٠č嬠    ٬٠讠뮠ŠҠӠΠӠŠ讍٠ҍ嬠뮍٠ҍ嬠 L BETWEEN TWO OF""THE CHOICES IN ANY CATEGORY, GIVE YOURSELF A FAIR AND APPROPRIATE NUMBER OF":"POINTS BETWEEN THE TWO ON THAT ITEM THAT FIT.":" IF YOU DON'T KNOW THE ANSWER TO A QUESTION, MAKE AN EDUATED GUESS BECAUSE""THIS WILL NOT GREATLY--------------------------------------------":" D I R E C T I O N S":"-------------------------------------------------------------------------------"::" CHOOSE ONLY ONE ANSWER IN EACH CATEGORY. IF YOU THINK YOU FAL AFFECT YOUR OVERALL SCORE."2255:D11000:D\22:39:"> PRESS SPACE TO BEGIN...."49168,0:S$:S$(32)ı:406222:39:" ":4060 ** INTRODUCTION((12):2:" >>>>>>>>>> TEST YOUR LIFESTYLE - IS IT HAZARDOUS TO YOUR HEALTH? <<<<<<<<<<"|" --------------------------------------------------------------------------"L:" HOW HEALTHY IS YOUR LIFESTYLE ? WHAT IS YOUR RISK OF DEVELOPING MAJOR HEALTH ":"PROBLEMS? TAKE THIS TEST AND SEE.":" THE TEST, WHICH WAS DESIGNED BY USA TODAY, AND WAS PRINTED IN THAT NEWSPAPER""IS BASED ON CURRENT RESEARCH ON THE RISK FACTORS FOR CERTAIN HEALTH PROBLEMS ":"ESPECIALLY CHRONIC DISEASES SUCH AS HEART DISEASE AND CANCER. IT WILL ""GIVE YOU A G