' +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:;<=>?  ( 9 +"  "*  (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).).*#!.*'!.8)(#/-)(#/-,,eb)++$ h( ,!!"@h !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`HH ᥠ 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Ӝsqu`".Q`pNФbptťܥm2<(-Py0\|e<6e< ~ vL~ JJJJj귍hI  aUL@ kU8  L  ^R(jQ0l^l\  OÌȌ`W ԧ H h@ [_ /QSIR4b_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-(9  .Р@跻~!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ֵ  ַ յյ`` ᥠ hh`ĵµ`ڿ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`e d08$`8Hh``,0 J Щ,  Эލ,ɗ,0ϭ J) - #LɓI )LL,0Z Cɠ , J `Ɉ Lɕ Lɋ oLɊL oۭ `ɍ ɠɛA #۩` `ɈέJjЭЅЅЅ ) `, 1 ڮ н н8н8нн,..`, P4 ې/ ۘ mЍЊmЍ , а`mЍЊmЍJ+А * а`a b)N ) Ѝ 0N ܭpdeȭOЅLLUPM`2<>37921!ڮ Ь L )  PRTW_,./ W^*Ќ+ L ڭ"Н # LD S*T,L,0 Z # ܭ )  )L۩ Ѝ ) LDJ6 H h)`JЭj(` Y;Z7[pH` Y9Z5[nG` 홽`  $ kn`  $ kp`  e i9`  e i;` 횛` #L 4L Y"A!w+, Yn٫w٬w٬Ԫn٩` | LGH1Ь2 LمGH UMLUGP `eLLM ةL  8"` ` `Е ` P EȱF`н`н CؠE +ԥ, آ ` P Cؠ E`#`# ` " EF'G(H`''(('(` "%& '`L W ة"Lԅk L. *, ? 1-$m mk yשk L L gL$m gץk(`$m0 ꩀm` Lح)5ЅI.%I Z qƂI ZئILILW`$8lI Z ؐ  IIА W l ( Q^n> ʱy} `8` q^p> ʱY `8` y ,  Ր Ր , + [^n+k GK kn Lt I ة L y ,  +֐` +֐ , + z^p*[ HK kp ~.  0L` ;ߐL`L''-Q(.( 5ߐ L05ا~L ((|L (ɢCL (.(405ب}L ''{L 'ɡLo` ^p ;  2L)` ^n -  OLF`JHKHbJcK 9hKhJt`sVv`s6`s U`sbcbȱb`sbc 666&&8brcr` LHH 8"hh`  ۭ` ɀY W qƂ @ ЍLH"q6Ƃ2((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPUUUU3333pKE!!>0:҅L҅M`ZZ*Z*ZZ` $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;?sJuu`Fs8s`ecbicsbycy`ecbics8bc`80ps80p8`p`p` b` b`  s`bc`b5`=?`Lp@=]beJJeKK` @SUUUULLLLDL)LLLLLLLLLLL L#LLLLLLLLcLLLLPLWLLLL]LL8L#LwLnLLLLLNLL`LL l<KE%33 GP~ ACANCEO M* Т IN L L, MLl B``ؠ۱ ؠˍ.9 Xɝ, ,. -l.H h0`Ͻ.ʧ` 00  $. @`AKLN `ˠ Ӡ                      J,U,T]]*]QL%^O^I1LO L`Ƣ$  $Ʃ,팙펩펫esI ;1"'^&o&GH n&'C!$l0 bwBw EȱELD%9999U !rL:` $Ul?#Q4"RL EȱEL` '(l '(2` $` ) tn'nl''!b_ 'a^ C$LD ) w(w~l)( ,  ;ߐL`BH W l  hН W lL`$lp v y v LD #$` ) $"0 "i")c" 5ا" 5LD ) -.&EF  ;D` q1-2-;L\11<\32L` Ue#f%g'h)` Wئ-.)EF ( $ 0 Ѝ`EȱE`` E ;<=>E E`- W  Wة& L`  L   ҝ(L`,. HJh,U,T(L%WL`Ь ӆ[iN ` ߩ,d ꩠӢ ٩m ڭ ) $m0 ٭, ѩՐ ` 2 8`ЅgЅhЅi` Yz[g|i` IJ7;8L$d0 56, ̲HFA `B S .Ooпo..Щk`HH ߸ hh,T`ojHH ,Q ީN[iލލލޮІO,а: ӤNӆeIWӆfZ ߤZȦeIWf OONhh,T`N,а҅L҅MZ ʤZ N`. JUT( (PLLɕLݦAɊ8&kiАЭJLjFLjJJ\ ަk 0Lɋ?ʆk8аL ީХ\k . .Цk 0ǩ ` Ѝ`a b`a b`А 6 н7*Э8ЭЩЩЄ ^  r`;  r` = U q :\i Q  r {Щ Щ 'L נ  + ЩĠ '  搢L` 0` G)_H LL LЄ lЭ%% W ,H h TL`l+ą` rA ^*ň&膄L Щ  .ɛ ̤L \ rЈL`2, r .  5 L,,椤(ƥ0 ' `)JJ & & f)` Li,i/0 `@ f/ Щ ,K ^ʧ Ѝ Щ r l:K膈 $)пHJl7Z;l; Рh H ~Z5[7\9];h ~Mo;P ~=o;; ~Lo9( ~<o9"  + ~Y9Z;AB9:CD9:AB* `  Ƨ 08e-)`ƚ08e暥ř嚐 ~Z[Jo; 8`` ХLHH Щ; cancelPrinting System ErrorPlease turn disk oveInsert a bootable disCOVER ЛЛț" ~Z;[:oLLLLL BRU RU EXE BLOA.DO,A$600 The UpTime Desktop v2.1(c) 1988 Viking TechnologieProgramming by Lane Roatand Michael HoffmaCTRL-S: Send me to the menuLeft/Right Arrows: Select menUp/Down (A/Z): Select optioRETURN: C7(22#<#5BAsCLBsQBs_B sm*{c{n{{-

ROGRANSTRUCTION

RINMORE EL CANCE̩ )@Sby$GRABASISHAPE EDITOWACKY WIZARZCLASSIFIEDwZ=H'7 Y&d#n"}(_sL<P LU;fEG(K9UGZKUP#Z#EEDITORIANEWS AND VIEWTO THE EDITOR..ASK THE APPLE WIZARINFORMATION PLEASTHE APPLE MILAPPROACHING APPLEWORKZIPCHIP REVIERIBBON INKERS REVIETECHNICAL NOTEREADER SURVEVISION FRACTIONADDRESS FILEFITNESS CONSULTANDRAWING BOARLILxLLLLLLLLLLLLL[LLlL1L5LLL'LzLNLLLLWL^LLLLL.=! ` SIDE 1 SIDE 2 PROGRAMS ADS ZABOUT..(HELpPRIN!PRINT AL#CLOS1QUIINSIDE COVER PAGABOUT THIS ISSUDISK ARCHIV n .nЩ, a bI)0P@ # D` 0K ڠ ڠ ک/xx ڮ Щ~xx ڠ 8``LDžM L LM`Mڍ"ڍ `I1L `ĹDэ !JcJb) bJJJ)s h@JetJKНJK>?@H=(lJ#Bc'2bJbcs ebecJvvv`ЍР Ј NON&ONJ O x_``_Z_%`_Zwu҅LmdЅMv҅NmcЅOZex|y{ UX` UQЍ^Iz{,bJUTN)]%^X|PJUTz1LXL]{|e``_ UuvwL D`=hJhKJK>?JY) J)JJJctb Et< ?*)+W**nnyon*U@_CAaUUd7fU@00UUUd&Lf{{;c}~UUWPTU*||~>?*****&#***d0Os`_``_```**JB*UPWO~>UUccUA9AUUU8O'|}?_opUUww|DLwU*|~_gsqxx **|22*fgj*jjuu55uxn*USA`UUU?UqdUUUUU]]w@w? ??]U*pxx||>> **FF* ***?+**;;0sT*;*UCUUUUUTUUUa,&UUUww*|xVU`wU*Ka``ppxx| **#{ * '&***d&2sa@/LrUU~^^~NNN~^~U*KAa`ppxx|** **'#'*(+***xq8{{jk{|L3**;;_XY_O;*UWT`UU~V~UUUU<8}I&UUww[[[U*wU*pp|(**>**X*s3*** /,,./,/.//(**nnj`E"U%U *|<<|<L||%* UFp|wN3%U *ccq8w7vw &%*UAAa`pp`AU~UyEUUUxC yI%U*//' *&~&*30 ***Gcs9*** *Uuxx||>?UsssUUUUcq!     ffff 66~f f f f >fffffffff>f>|fff|`f|`>f<0  ffff|f|fff<<f f f f |f<|`>~0 ~ ~8  808|~ff|FpF|~fffff<f<ffff<<6Nf<0 > fff>f>ff >>  f>ff>f>ffff>f>>>>f>f>6ff|<`>`>Ff0LF66\v\v\    666~ > ~08`f<f<08<6~0~0~>`f<f<8 >ff<f<>0 ELSZao} ,:HV dr   (6=KY`gnu  $+29 Gffl~ll~l>;3>33?33<33cwkcccc37?;3333333;n;n333? 3333333C[[[333333  >?>`0?~??~?~ ??)/!?? ?!!!? N&-4B P^ lz " $).6666~~X~3 363^3^[<[ ? 0 73;  0?0033?00?03? 333>0   3 ;;>3?3333333̿ 3&+05? INX]bg qv{ %*/4>CHMRW afkpuӠ  ج Π  ӍǠ ̭ ՠ  Ǡ ӯ 썍Ǡ Ǡ  ԅ ЦhhH W l oh`HHH $) ,)ѝΈhhh`/H0H r lh0h/L L)#􆃅ȱ `ΰ  ΰ {ЩJ { Щ ' (0!حЍJ i i/0 \ ` c L 0#  ` Щ ' 0 LH h /0 00 4  `ʆes ij`67L)L8?$U!*__Medsss $*!U_[[_Y_Y\^YYY^_ ^_@P$U`*vw &%*UAAa`pp`AU~UyEUUUxC yI%U*//' *&~&*30 ***Gcs9*** *Uuxx||>?UsssUUUUcq!*wL>< ILIww* UasssyyyUOOLLdsss`x\|,,x`Uny|~~ yyynnU *yyyggfB*3iA |ss3|_zz}|*?=? * UyyU]]~L9si\>z>~~$U *( +( *OOFx?8?x$*!Uyyg'gbpgpsG* **w ww* Ullyy|sU@AGE @EGB@@Un333?y9nnU *y9ssa$*]ffx|>G~|aLO]]* Usr989UyXxx888888 xU;f''f~xxII;;U *~|^p^@*z~fNN0@@@U URU;2rr~~sxs;;U * **`*9!*wwrsw* U ~>~U,$U@``s|gUUT"U *gg\`|x*``**q!*rp* U <??*  ** &(***p&2gg???__* JB*UWOo~~>UgsUyU0~3}-}?_owUooA|LAoU*z|~_ogqpx *02*FgF*O<~U~**]znzn??OO]]*U_CAU@AUU*ppxx||> * vf *|<|*? W+*w8sUT*ww*UCUUUUci & *?UUn*@||UnnU*KA``ppxx| *(#(*&*pd&8yy<?5?*+Wn*]_CyyC_]]*U_CAaU76UUUUp$&LL;{{nD&s*wX_YX?Oww*UWUTAUFFU|U8wL<Un~[^[UL*nnU* xpx *"?*Y*331*//,././.// (*]jj**jp~uuuu]]*UTQSSaU@A0@UDaUU;8``?> >?;;3ww$$*UAAa`pp`UA}UL1Ua@>|Gyyc$U*//' G~*  *c1b*GGc?@99*** *Uuxx||>U33UUGcq@Of2GU~>>NN~>~U*Kaappxx||*** * ( *++?*p18|{:>? * U|y|UA~N9si@>~z?~~%U * + *Og_<8?G%* UpbG'gggyg~?y%U *eeLs? ?%* U@X^X\_XY_\YY\__ ^__P%U`*"U$U!*||<<|<L|$*!Ubx~]g'3$U!*cqqxwn* UrG~999Ux8888x8 xUU]]ggp|{ III]U *\|~@rvN*x~|0NNf||**;;L?<  II ;* Ussapyy9U`L`LgsswpX|<,xpUUwwy~~ |yy|wU *Yxypgf*3i\{ss9c__zz}Oc**?C!'**rp* UC<<UA T* U"UU]]}]U *ggsfg*(**;; ;* U<`<|y|yU@GD @BB@@UUww33? 9 wU *9c?asss%*nnfffa|~?w~xNOH/()**()*'+*(  ***@p"L**nn22{jjj*A n* U|~2UU]]2r}~xsss]U * *@@ 9**{{rCs{* U~>~U$4a@~9N UT U *gggC@|||*` 3***I$. |~**nnnnn???OOn*U@_CAUUYyYU@00UUU|~UUU]]nnn/'** 'gg]U*z||~~**LOL**J***(+***;;g<}}UUa}&ddf;*U@UU1EU33UUU%!aUUww32??_W 9wU*̠ݮݠݠ嬠ݠݠ뮠箠宍ݭݠ宍ݠˠݠ堨ήήݭݠōݭݠݠɫݭݠɮŮ嬠䩍ݭݠ󮍍ݠ퍍ݠݠ󠭽ݠΠͬӬ̮ݭݻ𮠠嬠ݭݠ宍ݠݠɫݠ宍ݠӠݭݠ䮍󠭠󠭠ɫۼݠ᩠卍۾ݠ䩠卍󮍍󠭽ë𠭭썍쮠宠宠ΠŭР̭ϬР      LNLL`LL l<KE%33 GP~ ACANCEO@ M* Т IN L L, MLl B``9L y  r r(03 P rŠ)JJ & & f)``孭報󺍍򠯠䠯󺍍㠯 ɮ嬠嬠謠󺍍㠭ᬠ󮠠讍󠭠堺󮍍䠭栺묠󮠠ᠫ嬠報󺍍򠭠蠺桍      宠Р嬠נﮠ𮠠ݭݠݠݮ堭穮ɫέŠݭݩ󮠠嬠ݭݠݭݠ嬠ݭݬݠݠ宠䬠ݠݭݠݠݭݠݠ穠ɮŮ𮠠󮍍ﮠɠҠ宍䬠󮍍䬢̠Š󮠠򮠠󮠠䬠䬠宍宠ᠴŠ宠 ɠ堢嬢𿬢򬠢俢ٮɧĠӭ򮠠ɠɠɠ󮍍͠嬠嬠宠宍䬠忢󮠠ɠ䮢           卍殮㮍ɠ笠čፍ덍󠺍荠򍍠򠺍荍󍠠򍍠󠺍򍠠īŠ報򠱰é򠺍򠺍󍍠栺򠺍  笠笠󠨤򢠨宠󮠠䠨򮠠󬠷䠨宍ɠ筭𮍍󠨤򢠨謠宠򮍍堤󮍍򬢠󮬠򮢍󠵰宠ﬠ宍堢좠Ӭﬠɠ󮍍ɠɠ嬠נàӠŠŠҍ󮠠󮠠箍ĠԠ           宍͠Ԡ䭭䭠蠴䬠ɠɠ䮠䬠ɠɠӠ󮍍󠱶ӠƠӠӠ󮬠宠Ӡ嬠Ӡ󮠠Ӡɮ͠󮠠箠ɠ俠ɠ忠ɠ󿍍쬠򮠠ɧ栠ﮠ󡍍䍍鬍ɠ󮠠ɿɠ讍ɠ𿍍ɍɠ䮠ɠɠ᫫򮮮嬍ɠɠ          嬠䮬̠宍ﺠð堢蠢鮢嬠쮍殠宍ź䮍忠򮢠󬠴嬠嬠󠱰Ӡᠢ좠䠨嬠󮍍Ԭ vjkZ\  Y L %   $ZL} =@  Sk kPj u1 X   $j L$k jL Oм L>&P`88*]H  h7 jLJ췘i8*kkȘkk mLl zL7&P` & X$m  L % $$(` 堠    ԍ Ŭm %  l FL X   Y$l,'kȘ k Ș#ɮ  ȘYL< &% Q uLLLe % za**#F X         hn Romero":3:1000 PC$"Add all sorts of graphic fun to your":6:1000:C$"programs with this easy to use":7:1000:C$"AppleSoft (tm) add on utility.":9:1000 t$ (C)1988 UpTime & John RomeroB GRABasic by John Romero[ demo by Jay Wilburw((4)"BRUN GRABASIC.48"2HIRES1W: use page 1 full graphics<GEN: turn on the character generator FC$"UpTime Presents:":1:1000:C$"GRABasic by Jo  Ӡ뮍ؠ뮠ǠӠҠ͠ŠŠˠ̠ŠŠӡ亍ӠҮƮʰƮʱӠҠ󮠠٠讠宠庍̠ɠ宠ӠӠ宠󠲠堨謠̠ӠӠӠӠӠ󮠠󮠠宠󿠠렲źᠳ䮠Ӭ򩮠ɠӠӠӠӠ宠嬠ۮݠ䮍Š󮠠廠ҬŠ䬠묠䮍謠묠묠련䩠뮍뮠Ǻ䮠嬠ݠݠ뮠嬠ɭʭ˭ݠ󍫫荍       亍ӍîÍîÍōӍ欠򮠠ﮠ묠報堲󮍍嬠ﮍ𮠠󫫫Ӡ卍宠   18)(219)256&de, end-of-file errors3=(222)2(222)59900>>3288Q?DETECT0:3700| delete trailing spaces & slash in F$I(F$)21(F$,I,1)" "(F$,I,1)"/"F$(F$,I1)& fatal error&"ERROR #";(222);" IN LINE ";(2fectedDCNTDCNT1 (7)EF$(FPNT,0);" APPEARS INFECTED."b" DELETE IT? (Y/N) ";pA$:A$:A$"Y"A$"y"İ3860 216,0: delete current fileD$;"UNLOCK";F$(FPNT,0)(D$;"DELETE";F$(FPNT,0)2< handle rangŠӠԍŮŠӠԠ󮠠     亍쮠Ӡ뮍ҠĠ̍ŠŠΠԍРӍźŭҠ󠵠󺍍Ġ̠뮍Š報嬠Š嬠堲Ԡ뮍Ҡ󬍍Ġˠҩ宍Š報Š堲卍Ԡѩ쮍àǍ᫫Ǡč𮠠宍࠽Πōàᠵ堳宠̠Ӡᠵ뮍䠨멠򮍍ӠӠ뮍䮠ŢŬŠŬōޢ栱場嬠ЮϮ砽󮠠庍ݠ򍍲ۮݠ箍Ӻ󩍍ŢŬŬ䬠箠뮠ź󠽽謠宠讠謠٢㮬婠讍묠뮠䠨T U**UP*U*U*U*U*U*U*U*U*U*U*U*UT*A*U U* U*Q*UժժժժժժժժժժժժժժժժT"U**UT*E*U"U* U*A*U           ŠӠԠ讠亍Ӡԍ嬠묠䬠嬠묠婠󮍍ŠӠԠ䬠宠䮠󮍍婠宠쬠򮠠ŠӠԠ󮍍嬠ŠӠԠz#p  " ˠ"ӠӠà  РР Ԡ! ٯĠ! ̠!Ӡ!ؠ" Ӡ ΠӠӠҮ Ʈʱ Ʈʰ ǠĠ ӠԠGӠҠ ӠҮؠǠĮؠӠԮؠ îà"îȠ  ŠӠ ˠӠ ŠҠŠ ̠ ӠĠӠ ϠŠҮˠŠŠĠ, ΠӮؠР;Ҡî֠ˠ ų Р ԠӠŠ*U U*U*U*U*U*U*U*U*U*U*U*U* ĈĈĈĈĈĈĈĈ@ T**U U U**U ժժժժժժժժժժժժժժժժ@*T**U U T*(U*(ժժժժժժժժժժժժժժժժP*P*(U* U*T*P(U*(UժժժժժժժժժժժժժժժժP*Q*U(U*(U*P*Uժժժժժժժժժժժժժժժժ,-..>*-->. )<,<,<,--557--.>+-- <,<,< --55:*-- )<,<,<,---:.>.>*-- )<,<,<,---;?*-- )<,<,<,----- <,<,< --55??*-%- )<,<$,6-%!,6>.>. )%$$+--366- ).--,<,<,< )<,<$,6%%%5... !$$,666--- )<,<,<,555%%%->.>.>. )<,<,<,..')-557 6 $??'%%%-57571.5--$$??'%+--56 <,<,,,5-55?*-  !,,,,-55?*-  )%%%??''%--.> !!5.)$!56 <<< %%5*@CC+-----<'') 6%,*5 ),,,,,,;7. 6 ->3- -%;, %;,,557. 7)- )$5  !''%'), ),,<,'7 %%?'5-,:7. !<' ,6-3 %,. (-- !5 ),,,,,, <,%;,< --.>?*)>.+- )%$$? -666- !%%) %'??5---5--$.>. <,< -55?7*- )<,<,< -5- <,< -->.>>7-%% )<,<$,6-5575/ !$$(66 *%%#$$(66 )<$$,66%-,.. !$$,666 )<,<,-56.$$)5575+ )<,<,-5575+ -;,< --:.>. 1.$<,<,--:.>*- -;,< -->.>6.$ )<,<,-5- )-%%;?< iV t *8HZir,>K]k-CYdq.BTj} #7Mau2H\q +9GSbpx7w# a ),-%'?7*-,.)<,   ժժժժժժժժժժժժժժժժ*U*U*U*U*U*U*U*U*U*U*U*U*U U*E*UT"U*ĈĈĈĈĈĈĈĈ@*U ĈĈĈĈĈĈĈĈ U**UUU*ĈĈĈĈĈĈĈĈQR91QRQR32* 6J$J$(QR):II:S$J$:Y @QR((S$,1))32:LS(S$):LS1S$(QR):s JS$(QR)(S$,LS1): TDI8:3 ^I1(S$):DR((S$,I,1)):DR96T196:400 hDR103T1128:DR:(S$,I,1):"LINE 620"::400 rDR32XX2:460 |7)SA$"":IX0:0:I2Y18Y1:X1,I2200,I2::3:XX1:YY1:250Y SA$SA$A$:S$A$:340h IX:FL0: 100:S$A$:(A$)65(A$)90ı (A$)97(A$)122ı A$" "A$(13)ı "(7);:260 ,J$"":II1(S$):QR((S$,II,1)):QR648)A$(127)A$(13)ı: (A$)48(A$)57ĺ(7);:130J CH1A1ıe A(A$):ASMALGıu (7);:130 100:A$"N"A$"n"A$"Y"A$"y"ı (7);:200 X1X:Y1Y:FL1:LG9:SM0:IX16:130:A$(13)IX6:250? A$(8)A$(12232,0:233,100:230,64:PD$".":SP$(32):620d FX80:Y145:I1(6(1))1:S$RW$(I1):CH3NN1 PI15S$S$NA$"!":X40 Z340: dA$:A$(27)970: n100:A$(13)ĺ(7);:110 x 100:A$(13)A$PD$ı FL0160 A$(L) (C) 1988 UpTime & Vision SoftwareO42739,94:42740,166:0:::1002~:(4)"BLOAD ERASE"::(4)"BLOAD TABLES"37948:D$(4)(:D$;"BLOAD DEC.SH,A25600":0:1::D$;"BLOAD FRAC.PIC,A$4000"2I13:CH$(I):I:I16:RW$(I):/ <     KOSW[_@DHLPTX\@DHLPTX\AEIMQUY]AEIMQUY]BFJNRVZ^BFJNRVZ^CGKOSW[_CGKOSW[_@DHLPTX\@DHLPTX\AEIMQUY]AEIMQUY]BFJNRVZ^BFJNRVZ^CGKOSW[_CGKOSW[_Hp((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP@DHLPTX\@DHLPTX\AEIMQUY]AEIMQUY]BFJNRVZ^BFJNRVZ^CGKOSW[_CG>'p2LB`LL`  L`` ?- $<6> ;?'$JII.d -6?$-5>'TQQ?$ -?$-6???,5w------<,<<>?66v--- $?? A?w??66v--- $??76.--%$???-----666>'$$d ????,---- 666 ---????-----?????----?????.5?v--- $?.???---%XXXX(%??.- 6v-ے6-- $$??---????6v-57-%g$-5666>??'$$$M 6 II66666-6???$-$$$% 66666>/ - 6-,%?d --u6--5>????', /)5 .>.>w?????----1.-- ??'----6v6???$-v-ed d-7157? ???<$II ?6.----%>>6. ),,,,, ???7 )-- !$$,-5366-- )...... )-$$$+-566.%%%%...7----%????)66?$$M >66/)b-.-%--u?I.-#\X$--.-6? -6v- ?--6)u?$ -)u>3-5? ---6666???$$$$ ---u6666???$$$$--.6!$$,666 )<,<,,--.>.>.+-- )<,<,<,--557??  <,<,< --55757*-(. )<,<,<,--557??).. ).--,<.>>>. !$$,666%%%555%$$,666 -%?'-%?g-+-%g?-?'-%?'-mI-5?7-5?-?757-u?w-5?7--m $<)`  蠠ˠͰŠϮ„SX / X 3 5 5 5:ߢ&E H h'Q(ɊɪIL뷎     ߀,, ߀, UL G  `$,R0":A:D$:D$;"WRITE GRADES,R";A:NL$:NA$:L$:N:K:PKBD$;"CLOSE":~:(4)"BLOAD ERASE"::(4)"BLOAD TABLES"37948:D$(4)(:D$;"BLOAD DEC.SH,A25600":0:1::D$;"BLOAD FRAC.PIC,A$4000"2I13:CH$(I):I:I16:RW$(I):/ <$"y"1030::768%470:6803470:620~"See examples done.","Do problems with help.","Do problems yourself.""Fantastic!","Good job!","You're right!","Yes! Yes!","Great, ","Super, "$.L$"FRAC.DEC"98AA1:D$;"WRITE GRADESK)" problems, "NA$PD$:X40:Y100:340:S$"That's "(P)"%.":X40:Y120:340:1060470:S$"Do you want to play again? ":X30:Y80:340:200:S$A$:340:A$"Y"A$"y"1020 S$"Anyone else want to play? ":X30:Y100:340:200:S$A$:340:A$"Y"A570:SA$"":S$"Your answer: ":X5:Y130:340:220b(SA$)(N$(3))İ70:540:480:570:960S$"The answer is "N$(3):X5:Y150:340:540:480CH3990U490:P((NK)100.5):S$"You got "(N)" right out of":X40:Y80:340:S$(1:970dfDIDI1:S$"Divide to 3 places.":X3:Y150:340:DIDI1:540:S$N$(3):X60:Y87:340:540op540:zSA$"":S$"Your answer: ":X5:Y120:340:220(SA$)(N$(3))İ70:920S$"Watch this one.":X5:Y150:340:540:480:870548114,80:107,69129,69:107,70129,707 CH2ī830s*CH1S$"Make a division problem.":X3:Y130:340:5404DIDI1:S$N$(2)")"N$(1):X35:Y100:340:I12:44,90I111,90I:I>CH870,890,930HCH2İ510:860R530:470\K:KKɰ340II12:1304CH1TLA:S$A$:340:780MCH1TL$"2"A$"0"eCH1A2TLA:780S$A$:340:TL$TL$A$:II:TL(TL$) 470:CH3İ550(K1TL:590:S$"Change to a decimal.":X50:Y70:340:XAX:YAY:N(1)48114,66:N(2)30:YY10:II:SM1HX5:Y170:S$"Your choice? (1-3) ":340:LG3:130{S$A$:340:CH(A$):SM2:LG20:CH1LG5:SM1CH2TL10:S$"You have 10 problems.":X5:Y185:340:540:780X5:Y185:S$"How many problems? ("(SM1)"-"(LG)") ":What's your first name? ":340:II1121260PS$(13)II1ĺ(7);:640qS$(13)NA$NA$S$:340:470:S$"Very good, "NA$PD$:Y70:580X5:Y120:S$"Which option do you want:":340:X30:Y135:II13:S$(II)") "CH$(II):340:X12:N(I)((1)7)I:N$(I)(N(I)):I:N(2)N(1)590XN(3)N(1)N(2):N$(3)((N(3)),4):N$(1)N$(1)".000":N$(4)((N(3)100),4)"%"bl16304,0:16302,0:16299,0:16297,0:S$"Fractions to Decimals":X95:Y30:340:NA$""(vX5:Y140:S$" to exit":X3:Y175:350:110:2QQ12000::&6:II8083:150,II200,II:150,II20200,II20:II:II147150:II,80II,103:II50,80II50,103:II0S$"SCORE":X90:Y95:340:S$(N):X170:Y95:340:DX120(((S$)6)2):340:6NI7950:1,112:2,190:3,0:4,39:5,0:37950:4470^1,50:2,190:3,0:4,39:5,0:37950:1,57:2,77:3,4:4,35:5,0:37950:1,77:2,82:3,4:4,20:5,0:37950:1,164:2,180:3,0:4,38:5,255:37950:0:520:S$" to go on:DR95T10 DR42DR34) SHDRT1M SHX,Y:SH12SH9SH46XX3] SH59İ540 SH119SH13SH77SH87XX4 SH65XX1 DR119XX2 XXDI:: 1,57:2,105:3,4:4,35:5,0:37950+1,85:2,99:3,22:4,28:5,0:3  X 舘 i $ $ ȹ Și$  ! S uL 4 X  X  L  S ɰɺ@ ) <Ԡ##Ff f򩮦 [ l l l  b 7 wL `  J 7 J  PL[ ٯΩ 堠 jkZl  Y L U um0m @ ) b 7 w  %   $Z0 =$mx% Q uJ X   $j L$k @ ) P [ 7 w jL  Lf&P`Жk kj  ݠ     ]  V XD8 췭#ɐ߭췅kjL X   jL VU8``)`8` X V 0 j`   1娱2 jkUV X  1 T  jU  jV X vV X K6  ^ X# U 0 j X=8j U 췭# ɐ ^ vk, , 3H h]Hh J$8$$ L ᠠ堠FORMATTINGϠԠԼmm`DISK`ERROR`mm3O   X    0  X %Y  Hh]Hh  X< 2 jL `    S [+  """w7庨    >yRg !)  # +SkkQPSRP Rkآ  $H h h چkkPP m@ɺ9ɰ5lkm) l)lk%k $Hh Lh kk LV X 췩 L jkZ  Y L %   $Z0# =! Qk kPj u1 X   $j L$k jL L/蠠 X X  p  p      w 7LH h Ș`   ٯΩ 堠 jkZ  Y L U u0  %   $Z0 =,\% Q u. X  $j L$k jL  LZ&P`вk kPj  @ ) X# XL  Y@ Ș% $$( Ș LH8췽 hL   堼堼֠ ӢΠà碍Ԡà󺼢֠Ţà    8=ELQW[af++++S;S     8 ### K   #Fi}rr^^ŠݠΠ     mmm`DISK`ERROR`mmm  ƠĠ̠ϠĠĠΠĠĠ̠àƠv $LZ``6 7L67`Z]Y\Y\Z]Z,U`,T` `8`i` `J췘iL췎`$)` LHhHȹɮF8ۅ8ۅhڥۦP(# ɮ䰃LLȄh訆ɮȦѱL8[*0%00][( F8L  $ 8췝Y ] - wLI` &!"#` X % $($ Ș `\ȱ ЫiհPFP-ɮ -Ҙɮ лPP ``L`  0 L% @,T X4  0  wL   ` [ uɠ`,`!  [ uɛL ɠ`QPSRP R`YY00 `(X)?(E uEɛlɍdɈX(ˈ%% 'L ɕXɠ (W'%% L ( uɍ Ɉ "WL % (W '%X`(,X`  $@1 Xe3 jl`M0U#UJ - UU8 UL# - U UU?V 1 L VUkwJ i $J$%V `,U $ / XL ` X U,,L  ` W %   & X (O\ ('(  S S-  e  ew)J)($  &UHU - UU hU # uɕHDɈ40ɋFɊBɍLa U - UU9Ui UL# UJ - j %  X1 ;H)jF $$H hP h j X $j0&FG90-8*=¤  =%  Q uL ɈjLɕjLʆ) )e 8HihiH ()?( hH  h L&P`   砱kkQPSRP Rkآ  $H h h چkkPP m@ɺ9ɰ5lkm) l)lk%k $Hh Lh kk LV X 췩 L j %  X1 ;H)jF $$H hP h j X $j0&FG90-8*=¤  =%  Q uL ɈjLɕjLʆ) )e 8HihiH ()?( hH  h L&P`   O END [RETURN] TO CONTINUE ";::3060: MT=0v 23:1::" [RETURN] TO CONTINUE ";::3060 23:1::" [ESC] TO END ";: 32,0:33,40:34,2:35,22 MTO: =====================  STR1500::2 21:3:868:7 ======================Q SCREEN BORDER SUBR m ======================u : :1:1:7);::8:" THE FITNESS CONSULTANT ";::34:7): MT1ī3060 MT2ī3050 MT3ī30454 23:1::" [ESC] T =====================[ 21:5::"SORRY! ILLEGAL ENTRY - TRY AGAIN";(7):T11500::n 21:3:868:' ======================( OUT OF RANGE MSG SUBR) ======================- 21:4::"ENTRY OUT OF RANGE - BE REASONABLE";(7):T1:I1N%:M$M$(I):VT%:H%:"[";I;"] - ";M$:VT%VT%1:I R(VT%1):H%:"ENTER YOUR CHOICE (1 TO ";N%;") -->";:AN$:AN$(27)9110 WAN$:CH%(AN$):CH%0CH%N%1ī2150 \2500:2120 f ===================== ERROR MESSAGE SUBR 55ī9110 _P14180% d16368,0B n5000: MAIN PROG DRIVER^ ======================z  SCREEN CENTERING SUBR ====================== 21(M$)2:M$: 3====================== 4 MENU SUBR 5======================8 HVT%V%m should not be used without":"medical advice and verification by a":"licensed medical physician." K:24:" [ESC] TO END [RETURN] TO CONTINUE "; P:16368,0:16384,128:P(16384) UP155ė:3:6:" WE ARE NOW LEAVING " ZP1Rights Reserved":2000 A15:1:"This program will help you develop the":"appropriate exercise program for your":"needs and physical condition. While the":"information in this program is believed"d F"to be accurate, information from this":"prograLE SCREEN SUBR + )======================K -T$"THE FITNESS CONSULTANT"{ 2:3:13:"UPTIME PRESENTS:":5:M$T$:2000 734,6:: <M$"An Expert System on Fitness and Exercise":2000::M$"Copyright (c) 1988 by Jeffry E. Robinson":2000:M$"All E4 The Fitness Consultant, By: J. E. Robinson] (C) 1988 UpTime & J. E. Robinson42739,94:42740,166:0:::1002(1101)6ĺ(13)(4)"BRUN LC.CONV"216,0:A(0):D$(13)(4)#40:60'====================== ( TIT                    er v1.2Written by Lane Roat(c) 1988 Viking Technologies, Inc.VIEWER..]2READ DISDRIVE DRIVE 1QUI=.<_Ld耠Z_ h_v_'_*4ă_7Aȃ \AЃ\2l<GREAD ALDRIVE DRIVE NEXPREVIOUӠNo Graphics,A$6000Print Shop Graphic ViewL1 A$ gL oL I ``h$0Uƥ $0Di$07ƥ )n!n n Ko Hݠ H8`8`Ɯ8ii#) ȱ`` @V\ ` DRAWING BOARnABOUT    <` rLF ' Ё` x $ ~10W2@  Щ$0Qo ` ~11W24 Ɠ ~1昐0 Ѡ  u`҅K҅L Ш҂QKK`$00 lЭ)  Ő`LIA \LB م݅( Щ ; ? LF r`0&  hII` gL  h   נ,  r` '  堃      2 months.":5600 MX$(1)"Your last physical exam found no C-V":MX$(2)"health problems. However, you have not":MX$(3)"been on an exercise program recently.":56007!MX$(1)"You have not been exercising recently,":MX$(2)"and you have indicated somee been exercising":MX$(2)"recently. However, there were some C-V":MX$(3)"health problems in your last exam.":5600 MX$(1)"It is good that you've been exercising":MX$(2)"recently. However, you have not had a":MX$(3)"physical exam within the last 1S?":V%17:H%5:4200:A$"N"A$"n"ī70003T6000X|CX%1WX%2ĭPE%1ĭRE%3ī5530vCX%1WX%2ĭPE%0ī5535CX%0WX%2ĭPE%1ĭRE%3ī5540CX%0WX%2ĭPE%1ĭRE%3ī5545CX%0WX%2ĭPE%0ī5550tMX$(1)"It is good that you'vdio-vascular":7:1:"problems, you need not take the""8:1:"CORONARY HEALTH RISK ANALSYIS.":11:1:"However, if you wish to take the":12:1:"analysis anyway.....you can."),14:1:"Do you wish to take the CORONARY":15:1:"HEALTH RISK ANALYSIMinor cardio-vascular problems":M$(3)"Major cardio-vascular problems":2100:RE%4CH%tCX%1WX%2ĭRE%3ī5400~55006:4:1:"Since you have been on a exercise":5:1:"program recently and your physical exam":6:1:"last year showed no carhysical exam":5:1:"with an EKG test in the last 12 months?":V%7:H%5:4200:A$"Y"A$"y"PE%1:5340yPE%0:55009:1:"What was the result of your last":10:1:"physical exam?"VV%12:H%5:N%3:M$(1)"No cardio-vascular problems":M$(2)" program?":V%12:H%5:4200:A$"N"A$"n"PX%0:5300PX%1:14:1:"When?":V%16:H%5:N%3:M$(1)"Within the last 12 months":M$(2)"Between 12 and 24 months ago":M$(3)"Over 24 months ago":2100:NCH%:WX%3Ni:4:1:"Have you taken a complete pghts 75 to 300":(7):T11500:T:14:1:958:5190d:4:1:"Are you currently participating in an":5:1:"exercise program?":V%7:H%5:4200:A$"Y"A$"y"CX%1:5300nCX%06x9:1:"Have you previously participated in an":10:1:"exercise1:958:5150@2SX$"F"SX$"f"DL%1200:BF.9:DD%2000:5190n<SX$"M"SX$"m"DL%1500:BF1.0:DD%2700F16368,0:V%14:V%:1::"BODYWEIGHT ->"::H%14:4100:BW$B$:BW(BW$):BW75BW301BW%(BW):52205P16:1:"Sorry, we only accept wei100AG%(AG):5150p12:1:"Sorry, we can only accept ages 10 to 99":(7):T11500:T:10:1:958:5130UL%((220AG%).85):LL%((220AG%).7):12:1::"SEX, M OR F ->";::16:"";SX$::SX$"M"SX$"m"SX$"f"SX$"F"ī5170 (2500:12:KKBW%2.2:)======================C MAIN PROGRAM DRIVER` ======================MT1:3000:6:1:"Please enter your:":V%8:V%:1::"NAME->"::H%7:4000:N$(B$,30) V%10:V%:1::"AGE ->"::H%7:4100:AG$B$:AG(AG$):AG9AG210X1:A$0====================JRISK SCORE CALC SUBRd====================R%((CS$,AZ%,1)):RF%RF%R%:/====================0 CALORIE CALC SUBR1==================== :KK((KK$,((EL%3)2),3)):KKKK1000:K)OIXIX1:4110T8681Y(V%):H%1:B$7^Qg====================ih YES/NO ENTRY SUBRi====================rV%:H%:868|"Enter Y or N ( )";X(36):X1:A$A$(27)9110A$"Y"A$"y"A$"N"A$"n"ĺ:40(X$)134180&"(X$)841605$IX14140H'(X$)454150f,(X$)46SW0SW1:41501(X$)48(X$)5741156B$B$X$:X$;IXIX1:4110@IX14110EH%IX:" ";:H%IX1G(B$,(B$),1)"."SW0JB$(B$,1,(B$)1IX:" ";:H%IX1)B$(B$,1,(B$)1);IXIX1:4010U868:(V%):H%1:B$[v ==================== NUMBER FILT SUBR ==================== IX1:B$"":SW0(V%):H%IX:"+";(V%):H%IXX$(X$)27911ING FILT SUBR) =====================8IX1:B$""N(V%):H%IX:"+"r(V%):H%IX:X$:(X$)134080(X$)279110(X$)84060(X$)324050(X$)65(X$)904020B$B$X$:X$IXIX1:4010IX14010H%,":20:1:"so we will continue on.":XP%0P016368,0:16384,128:P(16384)a0P1416550o016368,00XP%1ī90000XMT1:3000:3:1:"Now let's design an exercise program":4:1:"that meets your needs."k1b6:1:"Do you have any physic:1:"Because of your high score YOU SHOULD":19:1:"NOT START AN EXERCISE/DIET PROGRAM until":20:1:"you consult with your physician first!!":XP%1:6550*018:1:"There does not appear to be any major":19:1:"risk with your cardio-vascular systemgest low risk.".dNN$(1)" 6-11 very low risk":NN$(2)"12-17 low risk":NN$(3)"18-24 generally average risk":NN$(4)"25-31 moderate risk":NN$(5)"32-40 dangerous risk":NN$(6)"41-62 urgent/danger risk".nX16:10X:5:NN$(X):X:RF%32ī6540/x18 ";RF%;".":4:1:"The following is a chart showing the":5:1:"ranges of scores possible and their".Z6:1:"interpretations of your coronary health.":7:1:"High scores indicate high risk of":8:1:"cardio-vascular problems. Low scores":9:1:"sugM$(1)"100 or less":M$(2)"101 to 120":M$(3)"121 to 140":M$(4)"141 to 160",(M$(5)"161 to 180":M$(6)"181 or more":M$(7)"Not sure about my blood pressure":2100:AZ%CH%:CS$"1234683":4300e-PMT3:3000:3:1:"Your CORONARY RISK ANALYSIS SCORE is)"231 to 255 mg"+M$(5)"256 to 280 mg":M$(6)"281 mg or more":M$(7)"Not sure about cholesterol level":2100:AZ%CH%:CS$"1234574":4300+:4:1:"We need to know about your blood":5:1:"pressure -the upper (systolic) reading.":V%8:H%1:N%7N,6)"Complete lack of all exercise":2100:AZ%CH%:CS$"123568":4300*:4:1:"We need to know about your blood":5:1:"cholesterol level -units are milligrams.":V%8:H%1:N%7+M$(1)"180 mg or less":M$(2)"181 to 205 mg":M$(3)"206 to 230 mg":M$(4:1:"activities.":V%8:H%1:N%6)M$(1)"Heavy job & recreational exertion":M$(2)"Medium job & recreational exertion":M$(3)"Sedentary job & intense recreation":M$(4)"Sedentary job & medium recreation"C*M$(5)"Sedentary job & light recreation":M$(":M$(3)"10 or less cigarettes daily":M$(4)"20 cigarettes daily":M$(5)"30 cigarettes daily"(tM$(6)"40 cigarettes daily":2100:AZ%CH%:CS$"012469":4300!):4:1:"We need to know how much exercise you":5:1:"get on your job and recreational":6ht":M$(4)"21-35 lbs overweight":M$(5)"36-50 lbs overweight"'8M$(6)"over 50lbs overweight":2100:AZ%CH%:CS$"012357":4300'`:4:1:"We need to know about your tobacco":5:1:"habits.":V%7:H%1:N%6](jM$(1)"Non-user":M$(2)"Cigar and/or pipe00&$:4:1:"We need to know how much your bodyweight":5:1:"is above or below your standard (or":6:1:"ideal) bodyweight.":V%8:H%1:N%6='.M$(1)"over 5 lbs below standard weight":M$(2)"-5 to +5 lbs of standard weight":M$(3)"6-20 lbs overweigt disease":M$(2)"1 relative w/CV disease after 60":M$(3)"2 relatives w/CV disease after 60":M$(4)"1 relative w/CV disease before 60":M$(5)"2 relatives w/CV disease before 60"&M$(6)"3 relatives w/CV disease before 60":2100:AZ%CH%:CS$"123467":436120!$AG%40RF%RF%1:6120>$AG%39AG%51RF%RF%2$7:1:"We need some history concerning any":8:1:"cardio-vascular diseases in your family":9:1:"(parents, grand-parents, siblings)":V%11:H%1:N%6%M$(1)"No known history of hear *6#RF%0:MT1:3000:AZ%((AG%1)10):AZ%0AZ%1M#CS$"123468":4300h#SX$"F"SX$"f"ī6090#AG%44AG%65RF%RF%6:6120#AG%64RF%RF%7:6120$3:1:"Are you a female after menopause?":V%5:H%5:4200:A$"Y"A$"y"RF%RF%4: information and, therefore,":9:1:"we should study your coronary risk""10:1:"factors by the CORONARY HEALTH RISK":11:1:"ANALYSIS."":16368,0:16384,128:P(16384)"P155ī9000"P1415620"16368,0#p * C-V HEALTH PROG C-V":MX$(3)"health problems in your last exam.":5600!MX$(1)"You have not been exercising recently":MX$(2)"and you have not had a physical exam":MX$(3)"within the last 12 months.":5600I"MT0:3000:X13:3X:1:MX$(X):X:8:1:"We need more@jV%15:H%5:N%4:M$(1)"Reduce weight (lose bodyfat)":M$(2)"Improve cardio-vascular health":M$(3)"All of above":M$(4)"Not sure":2100:RX%CH%@~RX%7600,8500,7600,8500@ * REDUCING PROG *\A:3:1:"Since you want to lose weight, we need":B:3:1:"Your exercise is: ";EX$:B14:3B:1:MN$(B):BN?LIJ%0ī7520w?VV%9:H%5:4200:A$"Y"A$"y"ī7070@`11:1:"If you were to begin an exercise":12:1:"program, what would be your primary":13:1:"reason or motivation to exercise?""fitness program.":7490>>)LC(EX%6)6IP%:XX$(XX$,LC,1)>.XX$"N"MN$(1)"however, you stated that you have an":MN$(2)"injury/impairment to your "IA$".":MN$(3)"This could be a problem!! Do you wish to":MN$(4)"change your fitness program?"=?L%7425,7425,7425,7425,7425,7425,7070,9000M=KK$"068103060131100082":4400`=K((10K))10>$IJ%OMN$(1)"and since you have no injuries or":MN$(2)"impairments that would prevent you from":MN$(3)"participating, let's further design your":MN$(4)rm":5:1:"of exercise":V%7:H%5:N%8:M$(1)"Baseball/Softball":M$(2)"Basketball":M$(3)"Golfing"<M$(4)"Racquetball/Squash":M$(5)"Tennis":M$(6)"Volleyball":M$(7)"RETURN to previous list":M$(8)"EXIT this program":2100*=EL%CH%:EX$M$(EL%):El (fast)"<;M$(4)"Crawl (slow)":M$(5)"Side stroke":2100j;EL%CH%:KK$"169162156128122":4400:7450;K.168BW%2.2:7450;K.143BW%2.2:7450d<:3:1:"Select the specific recreation exercise":4:1:"that appeals to you the most as a fo6ī7270%:\2600:V%:H%:958:7255C:fK.009(BW%2.2)SS:7450 ;:3:1:"Select the type of swimming exercise":4:1:"that appeals to you the most as a form":5:1:"of exercise":V%7:H%5:N%5:M$(1)"Backstroke":M$(2)"Breast stroke":M$(3)"Crawter the intensity level of the":4:1:"rowing exercise you have selected.":5:1:"A typical pace would be in the range of":6:1:"20 strokes/min to 35 strokes/min.":WV%8:V%:1::"ROWING PACE IN STROKES/MINUTE -->"::H%36:4100:SS(B$):SS9SS4l pace would be in the range of":6:1:"5 miles per hour to 15 miles per hour."8%V%8:V%:1::"CYCLING PACE IN MILES PER HOUR -->"::H%36:4100:CS(B$):CS3CS26ī72208*2600:V%:H%:958:720584K.01223(BW%2.2)CS:74509R:3:1:"En:"JOGGING PACE IN MINUTES PER MILE->"::H%36:4100:JS(B$):JS4JS21ī7170n72600:V%:H%:958:71557K1.333((BW%100).8)JS:7450P8 :3:1:"Enter the intensity level of the":4:1:"cycling exercise you have selected.":5:1:"A typica%:H%:958:711056K.5.9((BW%100).8)WS:74506:3:1:"Enter the intensity level of the":4:1:"jogging exercise you have selected.":5:1:"A typical pace would be in the range of":6:1:"12 minute miles to 5 minute miles."P7V%8:V%:1:intensity level of the":4:1:"walking exercise you have selected.":5:1:"A typical pace would be in the range of":6:1:"2 to 5 miles an hour."5V%8:V%:1::"WALKING PACE IN MILES PER HOUR->"::H%35:4100:WS(B$):WS0WS10ī713062600:V"Cycling"4M$(4)"Rowing":M$(5)"Swimming":M$(6)"Aerobic Dancing":M$(7)"Cross-country skiing":M$(8)"None of the above":M$(9)"EXIT this program":21004EX%CH%:EX$M$(EX%):EX%7100,7150,7200,7250,7300,7350,7360,7400,90005:3:1:"Enter the ck":7070+3IA$"shoulder or chest":7070@3IA$"arms":7070J3IJ%0 4:3:1:"Select the general class of exercise":4:1:"that appeals to you the most as a form":5:1:"of exercise":V%7:H%5:N%9:M$(1)"Walking":M$(2)"Jogging/Running":M$(3)oulder/Chest":M$(6)"Arms":M$(7)"None of the above"}2q2100:IP%CH%:XX$"NNYYYYNNNYYYNNNYYYNNNNNNYNNNNNNNNNNNNNNNNNNNNNNN"2vIP%7035,7040,7045,7050,7055,7060,70652{IA$"legs":70702IA$"hips":70702IA$"lower back":7070 3IA$"upper baal impairment or":7:1:"injury that limits certain exercises?":V%9:H%5:4200:A$"N"A$"n"IJ%0:707042lIJ%1:11:1:"Where is area of impairment or injury?":V%13:H%5:N%7:M$(1)"Legs":M$(2)"Hips":M$(3)"Lower Back":M$(4)"Upper back":M$(5)"Sh               &P`r limit....","TARGET HEART RATE, lower limit....",9,18,36,36,36,36,36,36,36,36 RIDGE DR *} * NEWBURGH IN 47630 * * 812-853-7992 (HOME)* * 812-853-4231 (WORK)* **********************::216,0:A(0):D$(13)(4))PER DAY....","SUGGESTED CALORIC INTAKE PER DAY..","SUGGESTED EXERCISE PERIODS/WEEK..."M' "EXERCISE TIME, minutes/period.....","TARGET HEART RATE, upper limit....","TARGET HEART RATE, lower limit....",9,18,36,36,36,36,36,36,36,36 ==== ( TITAM MODULE%L#======================2L#::768ML'=====================XL' DATAsL'=====================VM' "NAME...","CHOSEN EXERCISE..","DESIRED BODYFAT LOSS, lbs.........","DESIRED BODYFAT LOSS, lbs/week....","PRESENT CALORIC INTAKE AGAIN MODULE)K-#======================8K2#MT1:3000K<#10:M$"Do you want to try again?":2000:12:10:"Enter (Y)es or (N)o --> ";:C$KF#C$"Y"C$"y"ĉ::30KP#C$"N"C$"n"ī9110KZ#2500::9020K#====================== L# END PROGRMT3:3000:3:M$"YOUR FITNESS PROGRAM SUMMARY":2000:WW110:MS$:4WW:1:MS$;" ":WW:WW110:MS$:H%(MS$):4WW:H%:N$(WW);:SP(16336):WWJp!16368,0:16384,128:P(16384)Jz!P1418560J!16368,0J'#====================== K(# TRYDI%200I>!WX((WX100))100:N$(1)N$:N$(2)EX$:N$(3)(WL%):N$(4)(WX):N$(5)(DI%):N$(6)(DD%):N$(7)(F):N$(8)(PER):N$(9)(UL%):N$(10)(LL%)IH!RX%2RX%4N$(3)"N/A":N$(4)"N/A":N$(5)"N/A":N$(6)((BW%BF15.12)):N$(7)"3":N$(8)"30"J\!D%DI%:7760)HKDI%DD%200DD%DI%200sHP:12:13:"PLEASE WAIT....":XA30:XZ60:CR%DI%DD%:CR%200CR%200HZXF37:XPXAXZ5:WX(CR%73500)(KXPXF3500)FXF:PERXP:XF7:XPXZH_XP:XF:F0XZXZ30:XAXA30:7770I4!DI%DD%200DD%ries is too low! We recommend that":16:1:"your daily intake be over ";DL%;"."G222:1::" [RETURN] TO CONTINUE ";:G716368,0:16384,128:P(16384)G<P1417735GA16368,0:DI%DL%DD%DL%:7760 HFDI%DL%DI%DD%DBF14.4):7700)F DI900DI5000ī7700F14:1:"Sorry, your value is out of range!!":15:1:"Value must be between 900 and 5000.":(7):T11500:T:9:24:958:7680FDI%DL%ī7750QG(14:1:"Your average daily intake of ";DI%:15:1:"caloat is your average daily caloric":5:1:"intake? (If you don't know press":6:1:"[RETURN] key and a value will be":7:1:"assumed for you.)"EV%9:V%:1::"AVG. DAILY CALORIES -> "::H%24:4100:DI(B$):DI%(DI):B$"0"ī7695FDI0DI%(BW%0(DWK%(WK):WXWL%WK:WX2.01ī7675D11:1:"Sorry, your weight loss of ";WL%;" pounds":12:1:"in ";WK%;" weeks is over 2 pounds/week and":13:1:"is not recommended by health experts.":(7)DT11500:T:9:30:958:7640E:4:1:"WhSS IN WEEKS ->"::H%30:4100:WK$B$:WK(WK$):WK0WK157ī7655CWK0Ģ11:1:"Unrealistic answer! Must be one or more.":(7):T11500:T:9:30:958:7640D11:1:"We only accept weeks up to 156 (3 years)":(7):T11500:T:9:30:958:764200 is not":10:1:"recommended.":(7):T11500:T:7:26:958:7620BYY%50Ģ9:1:"A weight loss greater than 50% of your":10:1:"bodyweight is not recommended.":(7):T11500:T:7:26:958:7620ACWL%(WL):V%9:V%:1::"DURATION OF LO4:1:"to know the desired weight loss quantity":5:1:"and weight loss program duration:"AV%7:V%:1::"WEIGHT LOSS IN POUNDS ->"::H%26:4100:WL$B$:WL(WL$):YY%(100WLBW%):WL201YY%50ī7640HBWL200Ģ9:1:"A weight loss greater than 󮠠䮠Ӡ󮠠򮍍Ѻ묠묠뿍宠宠䮠򠤵󮠠󮠠㮠讍Ѻɠ忍堢ɠ䢠宠򠤲堨嬠㮠忠㬠ͩ宠㮠宠墠ң宠㮠ᮠ묠ЮϮɠѺɠ㮠ɠң墠ɠ련Ω쫫䬠󮍍ﺍk# (C) 1988 UpTime & Alex NashI42739,94:42740,166:0:::1002i(4)"BRUN ADDRESS FILER.1" N宠ɧᠹ뮠묠󮍍Ѻ宠ɠ󮠠䮠宠뮠᭭ᠱˠ㬠嬠󮠠婠堠嬠嬠󮠠謠ᬠ俍󮠠㬠󮠠Ѻɧ嬠嬠㮠ɠ宠嬠ᮠ宠ɠ宠󮠠Ӡᮠ󮠠ӠɮѺ忍뢠宠嬠묠嬠뮠/d This program detects ProDOS 8 SYS filesXe that have been infected with therf viruses known as:i * CyberAIDSj * Festering Hatexy If you find an infected program in your z library, the safest thing to do     "" ӠӠ宍󮠠ϠŠҮɠ󮠠ɠ濍쮠宠宍ѺɧĠ󮍍Ѻɠ㿍ᬠ硠̠宠㿍殠䠱֠à󮠠٠򮠠宠䮮Ѻɠ򠲴嬠宠󮠠Ѻɠ忍򿠠󮠠ﬠ嬠嬠󮠠宠`@@ @ @ @ @ @ @ ~x@ ~x@ ~x@ ~x@ @ @ @ @ @ @ !!pD L>A@?@0@   @@@!`@0D  _* q'5 q (0    ,3):F$(F$,2,16)@4000>HF$(DIRPNT,0)F$(FPNT,0)"/"F$qRDIR$"DIR"F$(DIRPNT,1)"DIR":DIRPNTDIRPNT1\DIR$"SYS"F$(DIRPNT,1)"SYS":DIRPNTDIRPNT1f2110T handle end-of-file errorU (222)59900V 3288^ 216,0_ D$;DISK. ";M$"""";A$'1000V search a directory for DIR and SYS filesa2900D$;"OPEN ";F$(FPNT,0);" ,TDIR"D$;"READ ";F$(FPNT,0)F$:(F$)402013F$4 search directory loop>F$:F$""2910?DIR$(F$,18 ";S;", DRIVE ";DD(222)8ĺ"I/O ERROR AT SLOT ";S;", DRIVE ";DJ[216,0:1020k main loopF$(FPNT,1)"DIR"İ2000:FPNTFPNT1:1210F$(FPNT,1)"SYS"İ3000:FPNTFPNT1:1210:NSYSM$"MORE ""NO ";M$;"SYS FILES ON THIS clear F$(x,x) array FPNT19F$(FPNT,1)""ī1154]F$(FPNT,1)"":FPNTFPNT1:1152~FPNT0:DIRPNT1:NSYS0:1200 handle no device connected, I/O errors(222)3(222)899003288(7)(222)3ĺ"NO DEVICE AT SLOT",D";D aD$;"PREFIX"> bF$:4000:F$(0,0)F$:F$(0,1)"DIR"I c216,0d j:"CHECKING ";F$(0,0) k"THIS MAY TAKE AWHILE....": tD$;"BLOAD ";F$(0,0);",TDIR,A$300,B511,L1" u(768)01150 v"CAUTION: VIRUS COUNTER ON THIS DISK=";(768)~WHICH SLOT? ";* "";S$:S$""ĺD$;"BYE"7 S(S$):P S1S7ĺ(7):1020`  get drive " IN WHICH DRIVE? "; "";DR$:DR$""1020 D(DR$): D1D2ĺ(7):1040 L start disk scan V1190 `D$;"PREFIX,S";S; PROGRAM,"9 "CHECK OUT CAT 40 IN GENIE'S A2 LIBRARY."? n "FREEWARE: MAY BE COPIED AND DISTRIBUTED" " AS LONG AS NO MODIFICATIONS ARE MADE."  " PRESS ALONE TO QUIT." ::  get slot "SCAN DISK DEVICE IN me of Pinpoint's SYS files.' D$(4)6 F$(300,1)E ::(21)K z ": APPLE II VIRUS SCANNER: V 1.1 :"   " COPYRIGHT 1988 BY" " TOM WEISHAAR, OPEN-APPLE/GENIE"  "FOR THE LATEST VERSION OF THISis to. { delete it and replace it with anJ | uninfected back up.P y Written by Tom Weishaar, July 1988 Inspiration by Dennis Doms and Eric Mueller V 1.1 fixed a bug that caused program to crash while checking soЮϮ묠却ή嬠Ġ宠󿩠`@?`@@  `( H   @   @ pg`PTD@tQ@!""xxiQ?ؠDߴ01 : 8&>ɉ"08@H"#(x`@@m !!!UUUUUP~?jTT?jU???TP`@ V?@_p@a7|~;!!! ""! UUOUUX ""( UUHUUX ""/T?? ?DT|T DTT? IDT)>HT|* IDT+?IOT+@ I@DT+@I@T+@ I@D+@`@?""/UUHUUX ""( UUOUUX ""!UP  I@T+@I@T+@ I@DT+@ICT+C IEDT+GIOT +O I_DT+_A?! ! ! @ @ ~@ @ @ @ ~@ @ @ @ @ ~x@ ~x@ ~x@ ~x@ @ @ @ @ @ @ @ @ @ D$;"BLOAD";F$(FPNT,0);",A$300,L4,B";ADR;",TSYS"L (768)32DETECT0e (769)88DETECT0 (770)255DETECT0 (771)186DETECT0jDETECT3800t no virus in this file~"OK: ";F$(FPNT,0)216,0: file appears in"CLOSE" ` 0 do virus check on a SYS file; 3900j D$;"BLOAD";F$(FPNT,0);",A$300,L6,B0,TSYS" DETECT1:NSYSNSYS1:TTL0 ADR771773 :TTLTTL(ADR):TTL256TTLTTL256  TTL573700 ADR((769)((770)256))81923P  TR*aTpxJ00 *0 R0 J 0 00 0 0 0 `P0`@ 0p>p  8?`xp0XX(TJ?* """00000$IA?|@b`"$| %$``"H"\TT?0?00000000`@000000000000000>8?"""AA@AA@AA@UUUUUUUUPAA@AA@A@UUUUPA8?@@|~O@@G@AC@UUSQUPG@@OA@A@?A@G~TUUUUPA@A@?A@~A@UUUUUP?A@A@AA@AA@QUUUUUUP?AA@`@AA@AA@UUUUUUUU@AAAA8AAAApUUUUUUURAAAAAA׀AAUUUUUUT^PAA=@AA@A@AA@UUUUTOPA@A?@A~@" " " ENQ@`DQPD\@@ҀҀҀʀȀȀ ĈĐ@$