STŒÖ3ê3BLANK¤AC¨AR¨A¤CÈCSEÔÉÚÁÄÐOØÔSÃA°R±PÃOÃTÃA±CNÔTTÁHÒA²CÏRÓR²LÃTOØPÁTÐBÃLÚLCÃËPÂOÂT±OÄ€@@€  !"#$%&d***************›n* VITAL SIGNS *›x***************›‚COPYRIGHT 1985›Œ##EMERALD VALLEY PUBLISHING CO.›–BY WILLIAM K. BALTHROP› AND THE HCM STAFF›ªHOME COMPUTER MAGAZINE›´VERSION 5.5.1›¾##ATARI BASIC FOR THE 800,XL,XE›È›Ò***** INITIALIZE *****›Ü.@.@@K:æ6€;@,6€. '6€7@,.€66€7@,.€ð&&9@,‚9@,ƒ;@ ,ú A2`ƒ6„-F:A,&@(6…-„$AV<A„&@F+RAV„d@‚@ƒF:…%@V,"@…APlA'AR@9-@@J( INITIALIZING\-@@l( PLEASE WAIT.†-A#*…%†F:BsD%†,. †" #A',56‡-…%@V%†-@)"ˆ1‡%†ˆ5 †656‡-…%@€%†-@9)"ˆ1‡%†ˆ5 †@56‡-…%A%†-@9)"ˆ1‡%†ˆ5 †J56‡-…%AV%†-@)"ˆ1‡%†ˆ5 †T56‡-…%Ah%†-A#)"ˆ1‡%†ˆ5 †^1 +@A1AR@h'('((PRESS ANY KEY TO CONTINUE)r.-@@.(@ öéôáì óéçîó|_%2A@@G2@A@@[†-@@P_ ††/-@@/(@ vital signsG%2AP@@G2@AP@@š_†-@@% †=2_2@¤†-@A †® F:Ad,"AUAp¸AdAU+ ***** DISPLAY SCREEN *****›Ì=@‚@+1AR@=AV„Ö(    h`ai    à(    f g    ê(   cdlmnod`   ô(    pzqr    þ(   aestuveb   (    f g    (    j`ak    -(( 1) ACTIVITY!(2) AIR-(3) EXIT&?-@@ (NORMAL2-@@?(GOOD AIR09A@'A @9A@:'@‚@!'-@!D)†-@@%(   {{ {{  ) †N)†-@@%(  z{{z{{z ) †X(            b( P % Bl( R Ov( E O D€( S X YŠ( S Y ”( U G Tž( R E E¨( E N M²'@‚@0'-@0¼8 (RATE(80((RESP&(108@‚Æ***** MAIN LOOP *****›Ð5 A‰"@%6‰-+(}5 A`Ú A@äB@‚@'-@@0(*+,-9(.:;<B(=>'@îG%2A@@G2@A@@ø†-@@  †G%2AP@@G2@AP@@ _†-@@ †=2_2@0-@@(lmno'(pzqr0(stuv !!Š!@…*Š AuA *! A!‰!A24!!‹!@'*‹ @xA@>! A @!‰!A2H!!Œ!@•*Œ AA`R! A !‰!A2\ 6-%Ž% A f33***** TRACK VITALS BEYOND NORMAL LIMITS *****›p*** PRESSURE ***›z-@"@(z„76-%@6-&@@+@76‰-@Žw%2A@@9†-@@ = †_2q-@"@w( ˜$¢*** OXYGEN ***›¬-@%@(z¶76‘-‘%@6-&@@+‘@76‰-@Àw%2AP@@9†-@@ = †_2q-@%@w( Ê$Ô*** TEMPERATURE ***›Þ-@(@(zè76’-’%@6-&@@+’@76‰-@òw%2A@@9†-@@ = †_2q-@(@w( ü$***** UPDATE VITALS *****›1“"@)“"@'6”-”%@1 A`6”-$!!”!@@*” AA.‚‚6•-M:+AP&–,$+AP&–,%+‹$@,$+‹$@,,$?X€%@@%++—$+”%@,$>,$++”!A,$@%@,,8 ABTT6•-M:+AP&–,$+AP&–,%+‹$@,$+‹$@,,$?X€%@@&—$>L/6Œ-Œ%+•&Œ,$?%#Œ @/6Œ-@VŒ!A6Œ-A`_C6˜-+M:+™$@$š$+@&›$?@,,$M:–$–%Š$Š,,&—,$?K6œ-œ%˜_6‹-‹%+œ&‹,$?%j‹ 6‹-t‹!A6‹-A~X6-+@P&‹,$@D6ž-M:—$–,$@4…$+@%Ÿ$?P,%X6Š-Š%+ž&Š,$?ˆŠ 6Š-’Š!AP6Š-APœ! A%€!Ž"@A¦$°))***** RANDOM: CHANGE ACTIVITY *****›º++P:H:,$@0,@A`Ä_%2AU@@9†-@@P= †_2Î))6“-“%N:+H:,$A,&@P,Ø%“ 6“-@% A`â“!@6“-@ì Ap%“$@ö6ƒ.SLEEPING A@6ƒ.RESTING A@ 6ƒ.NORMAL A@6ƒ.WALKING A@6ƒ.RUNNING A@(6ƒ.SWIMMING A@26ƒ.RANDOM A@</-@@(€+-@@/(ƒF,,***** RANDOM: CHANGE AIR QUALITY *****›P++P:H:,$@P,@%ApZ?'6-%N:H:,$A&@P,3 ?6-@d!@6-@n 6š-‚8,x_%2AU@@9†-@@P= †_2‚ A %$@Œ6ƒ.GOOD AIR A`–6ƒ. SMOGGY AIR A` 6ƒ. SMOKE CIG A`ª 6ƒ. SMOKE & SMOG A`´/-@@(€+-@@/(ƒ¾6 - %?$È!!***** GET LUNG CANCER *****›Ò77›)P:H:,$A,& !A@Üw6›-@6 -A=2AU@@Q†-@@PU †w2æY@‚@'-@;†-@@C(zzzG †Y@‚@ð A$ú***** GET CLOT *****›55Ÿ)P:H:,$A,AApu6Ÿ-@12AU@@E†-@@PI †k2u A$@***** CANCER CURED *****›"›@A ,%6¡-¡%@%¡ @PA@6w6 -6›-=2AU@@Q†-@@PU †w2@8-@@(€+-@@8(NEW LUNGJY@‚@'-@;†-@@C(   G †Y@‚@T6¡-^***** CLOT CURED *****›h77+Ÿ@,)P:H:,$A,AApr_%2AU@@9†-@@P= †_2|F6Ÿ-!-@@!%(€7-@@!F( CLOT FIXED†$))***** KEY IN & PROCESS CHANGE *****›šFFF:Ad,"AU)F:Ad,"@9)F:Ad,"@`A€¤l)@¢22@•@@F†-@@J †l2®!!¢@I*¢@QA@¸¢"@iA¢"@ƒAÌ¢"@hA0Ö¢"@ˆAPà¢"@eApê¢"@pAô$þ'™@06™-™%@' A%$'–6–-–&@' A$$&'–AP6–-–%@' A$0$:'™6™-™&@' A%D$N1–!@6–-–&@' A$1 AX6–- A$b$l1– AF6–-–%@' A$1 A v6–-AP A$€$Š!!***** CHANGE ACTIVITY *****›”1 A%@1¢&@HAPA @A!ž--@@( -@‚@¨Q-@@%( A) SLEEPING4( B) RESTINGB( C) NORMALQ( D) WALKING²B( E) RUNNING"( F) SWIMMING0( G) RANDOMB@‚@¼+ A'P+¢ @e)¢!@qA€Æ/6Ž-¢&@e6“-Ž#Ž@/6“-@Ð 6—-8“,Ú/ A%@ A"@)-@@/( ä$î***** CHANGE AIR *****›ø/-@@ (   /@‚@n-@@%( A) GOOD AIR7( B) SMOGGY AIRH( C) SMOKE CIG\(D) SMOKE & SMOGn@‚@ + A'P+¢ @e)¢!@hA `6-¢&@e6š-‚8, 2 A%@ A"@)-@@ /( 2$****** END OF GAME *****›4-@@(   >--@@-(ARE YOU SURE? (Y/N)H! A'P!¢"@‰A!PR¢@xA! \(-@@( % A"@($f (}pcAVA$'-@@:( FINAL SCORE:L-@@c(PLAY AGAIN? (Y/N)z! A'P!¢@‰A"„! A2`!‰"A"Ž%AF:A@,% A ˜6‰-@$¢¢@xA!p¬} (}-@@3(THANKS FOR PLAYING!P†-AU6@l2†@@p †z+}¶##***** UPDATE CONDITIONS *****›À A"P%“$@Ê6ƒ.SLEEPING A# Ô6ƒ.RESTING A# Þ6ƒ.NORMAL A# è6ƒ.WALKING A# ò6ƒ.RUNNING A# ü6ƒ.SWIMMING A#  6ƒ.RANDOM A#  /-@@(€+-@@/(ƒ  A#@%$@$ 6ƒ.GOOD AIR A#€. 6ƒ. SMOGGY AIR A#€8 6ƒ. SMOKE CIG A#€B 6ƒ. SMOKE & SMOG A#€L /-@@(€+-@@/(ƒV # 6—-8“, A$ A$@#$` ›@A$0j -@@(€t +6ƒ. LUNG CANCER'-@@+(ƒ~ $ˆ Ÿ@A$p’ -@@!(€œ *6ƒ. BLOOD CLOT&-@@!*(ƒ¦ $° ((***** DISPLAY HRATE AND RESP *****›º " 6ƒ.=:–,"6ƒ7B:ƒ,%@,. Ä -@0@(ƒ$Î " 6ƒ.=:™,"6ƒ7B:ƒ,%@,. Ø -@0@(ƒ$â $$***** CLEAR MESSAGE AREA *****›ì ‡-@ö -@@%‡(€  ‡ $ ***** DISPLAY GRAPH *****› ,6£-P:Š&@u, £ ,6£- £!@™6£-@™( 1*-@"@&P:£$?,&@1( 2 t"-@"@&P:£$?,R6ˆ-P:A%+£&P:£$?,$@,$?DP,l6ˆ-ˆ%@B$+ˆ"A,t(>:ˆ,< =£!@ 6-@"@&P:£$?,%@=(zF 46¤-P:‹&@%,$@(¤ 46¤-P ¤!@™6¤-@™Z 3*-@%@&P:¤$?,&@3(   d t"-@%@&P:¤$?,R6ˆ-P:A%+¤&P:¤$?,$@,$?DP,l6ˆ-ˆ%@B$+ˆ"A,t(>:ˆ,n =¤!@ 6-@%@&P:¤$?,%@=(zx 66¥-P:+Œ&@”,$@,*¥ 66¥-‚ ¥!@™6¥-@™Œ 3*-@(@&P:¥$?,&@3(   – t"-@(@&P:¥$?,R6ˆ-P:A%+¥&P:¥$?,$@,$?DP,l6ˆ-ˆ%@B$+ˆ"A,t(>:ˆ,  =¥!@ 6-@(@&P:¥$?,%@=(zª $´ ***** SINGLE KEY IN *****›¾ )@¢È _%2A@@9†-@@= †_2Ò $Ü ***** GR CHAR DATA *****›æ 85,85,20,20,21,5,1,1›ð 40,40,40,170,170,40,40,40›ú 0,0,0,0,128,160,32,21› 0,0,0,0,0,0,0,1› 20,20,20,22,86,90,88,104› 40,40,37,21,21,21,1,0›" 85,85,85,85,85,85,85,85›, 65,85,85,84,85,85,85,85›6 !!104,40,160,160,160,64,64,64›@ 0,0,1,85,85,0,0,2›J 85,85,82,66,10,40,160,128›T 64,80,84,21,5,64,64,64›^ 0,2,8,162,136,34,8,2›h 64,16,68,17,69,16,64,0›r 0,1,4,81,68,17,4,1›| 128,32,136,34,138,32,128,0›† 0,0,0,170,170,0,0,0› 0,0,0,85,85,0,0,0›š 40,40,40,40,40,40,40,40›¤ 20,20,20,20,20,20,20,20›® 0,0,40,170,162,160,168,40›¸ 0,0,20,84,69,5,5,20›Â 40,42,42,10,2,0,0,0›Ì 20,20,84,80,64,0,0,0›Ö 40,40,41,170,169,41,57,133›à 0,0,85,170,90,85,85,85›ê 0,0,1,65,149,85,85,85›ô 20,84,80,66,74,104,168,160›þ 85,85,85,85,85,85,21,21› 85,86,86,86,85,85,85,85› !!160,144,144,148,84,84,84,84› 21,21,21,85,85,41,40,40›& 85,85,85,85,85,85,0,0›0 85,85,85,85,85,85,85,0›: 84,84,84,85,85,85,85,20›D ##255,255,255,255,255,255,85,85›N !!255,255,255,255,85,85,85,85›X 255,255,85,85,85,85,85,85›b 85,85,85,85,85,85,85,85›l $$255,255,255,255,255,255,255,85›v &&***** END OF GAME MESSAGES *****›€ I@‚@'AVA$-(}I‰A2A2 A20Š $(BAD BLOOD PRESSURE$ A2@” c,($YOU PASSED OUT FROM EITHER TOO MUCH,?(OR NOT ENOUGH,Y(OXYGEN IN YOUR BLOOD.c A!`ž J(YOUR BODY CAN'T HANDLE;(EXTREME TEMPERATURES FORJ( VERY LONG.¨ J(@(5YOU WILL NEED AN EXTENDED STAY IN THE LOCAL HOSPITAL.J A!`² ******* INIT VARIABLES FOR START *****›¼ #A3Æ ##"Ÿ›Š‹œŒ–™Ž“—š¦Ð (†-@"‡$68†,-‡( †Ú (†-@"‡$6‚8†,-‡( †ä 110,0,125,50,50,98.6,80,10,2,2,107.4,0,1,0,50›î 3369.5,91.7,107.414,121.6,152,171.9,1,.85,.7,.5›ø $€ D:VITSGN.BASxxxxxxxx