home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1994 August / August CD.bin / Shareware / Hypercard / LungLab Demo < prev    next >
MacBinary  |  1994-06-05  |  716.5 KB  |  [STAK/WILD]

open in: MacOS 8.1     |     Win98     |     DOS

browse contents    |     view JSON data     |     view as text


This file was processed as: MacBinary (archive/macBinary).

ConfidenceProgramDetectionMatch TypeSupport
100% dexvert HyperCard Stack (archive/hypercard) idMeta Supported
10% dexvert MacBinary (archive/macBinary) fallback Supported
100% file MacBinary II, inited, Sun Jun 5 08:43:22 1994, modified Sun Jun 5 08:43:44 1994, creator HyperCard, type HyperCard stack, 565248 bytes "LungLab Demo" , at 0x8a080 168319 bytes resource default (weak)
99% file data default
74% TrID Mac HyperCard stack (MacBinary) default
25% TrID MacBinary 2 default (weak)
100% siegfried fmt/1762 MacBinary (II) default
100% lsar MacBinary default


id metadata
keyvalue
macFileType[STAK]
macFileCreator[WILD]



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0c 4c 75 6e 67 4c 61 | 62 20 44 65 6d 6f 00 00 |..LungLa|b Demo..|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 53 54 41 4b 57 49 4c | 44 01 00 00 00 00 00 00 |.STAKWIL|D.......|
|00000050| 00 00 00 00 08 a0 00 00 | 02 91 7f aa 17 78 ea aa |........|.....x..|
|00000060| 17 79 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.y......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 61 34 00 00 |........|....a4..|
|00000080| 00 00 5a 00 53 54 41 4b | ff ff ff ff d3 1b 88 7c |..Z.STAK|.......||
|00000090| 00 00 00 08 00 08 a0 00 | 00 00 5a 00 00 00 00 01 |........|..Z.....|
|000000a0| 00 00 00 01 00 00 00 07 | 00 00 0c 51 00 00 00 73 |........|...Q...s|
|000000b0| 00 00 0d 49 00 00 1d da | 00 00 00 04 00 00 1b 40 |...I....|.......@|
|000000c0| 00 00 00 00 00 00 00 00 | 00 05 00 00 10 00 00 00 |........|........|
|000000d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000e0| 01 20 80 00 01 20 80 00 | 01 20 80 00 01 20 80 00 |. ... ..|. ... ..|
|000000f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000100| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000110| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000200| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000210| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000220| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000230| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000240| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000270| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000280| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000290| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000300| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000310| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000320| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000330| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000340| 00 00 00 00 00 00 00 00 | 80 00 00 00 08 00 00 00 |........|........|
|00000350| 88 00 22 00 88 00 22 00 | 88 88 22 22 88 88 22 22 |.."...".|..""..""|
|00000360| 88 aa 22 aa 88 aa 22 aa | cc aa 33 aa cc aa 33 aa |.."...".|..3...3.|
|00000370| ee aa bb aa ee aa bb aa | ee bb bb ee ee bb bb ee |........|........|
|00000380| ff bb ff ee ff bb ff ee | ff bb ff ff ff bb ff ff |........|........|
|00000390| 80 10 02 20 01 08 40 04 | ff ff ff ff ff ff ff ff |... ..@.|........|
|000003a0| aa 55 aa 55 aa 55 aa 55 | 11 44 aa 44 11 44 aa 44 |.U.U.U.U|.D.D.D.D|
|000003b0| c4 80 0c 68 43 02 30 26 | b1 30 03 1b d8 c0 0c 8d |...hC.0&|.0......|
|000003c0| aa 00 aa 00 aa 00 aa 00 | 88 22 55 22 88 22 55 22 |........|."U"."U"|
|000003d0| 88 55 22 55 88 55 22 55 | 77 dd 77 dd 77 dd 77 dd |.U"U.U"U|w.w.w.w.|
|000003e0| 80 00 00 00 00 00 00 00 | 02 03 21 80 21 90 48 04 |........|..!.!.H.|
|000003f0| 03 84 48 30 0c 02 01 01 | 82 44 39 44 82 01 01 01 |..H0....|.D9D....|
|00000400| 88 14 22 41 88 41 22 14 | 80 80 41 3e 08 08 14 e3 |.."A.A".|..A>....|
|00000410| 22 04 8c 74 22 17 98 10 | be 80 88 08 eb 08 88 80 |"..t"...|........|
|00000420| 25 c8 32 89 64 24 4c 92 | a2 9c 41 be 2a c9 14 eb |%.2.d$L.|..A.*...|
|00000430| 40 a0 00 00 04 0a 00 00 | 80 40 20 00 02 04 08 00 |@.......|.@ .....|
|00000440| aa 00 80 00 88 00 80 00 | ff 80 80 80 80 80 80 80 |........|........|
|00000450| 08 1c 22 c1 80 01 02 04 | ff 80 80 80 ff 08 08 08 |..".....|........|
|00000460| f8 74 22 47 8f 17 22 71 | bf 00 bf bf b0 b0 b0 b0 |.t"G.."q|........|
|00000470| ff 7f be 5d a2 41 80 00 | fa f5 fa f5 a0 50 a0 50 |...].A..|.....P.P|
|00000480| 00 01 45 20 00 00 10 00 | 00 02 26 a0 00 00 01 00 |..E ....|..&.....|
|00000490| 00 04 eb a0 00 00 01 40 | 00 08 96 e0 00 00 09 00 |.......@|........|
|000004a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000500| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000510| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000520| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000530| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000540| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000580| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000590| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000600| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000610| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000620| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000630| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000640| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000650| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000670| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000680| 2d 2d 20 67 6c 6f 62 61 | 6c 20 6c 65 76 65 6c 20 |-- globa|l level |
|00000690| 3c 20 73 6b 69 6e 2c 20 | 62 6f 6e 65 2c 20 6c 75 |< skin, |bone, lu|
|000006a0| 6e 67 3e 0d 2d 2d 20 67 | 6c 6f 62 61 6c 20 76 69 |ng>.-- g|lobal vi|
|000006b0| 65 77 20 3c 20 66 72 6f | 6e 74 2c 20 62 61 63 6b |ew < fro|nt, back|
|000006c0| 2c 20 6c 65 66 74 2c 20 | 72 69 67 68 74 3e 0d 2d |, left, |right>.-|
|000006d0| 2d 20 67 6c 6f 62 61 6c | 20 4d 79 43 75 72 73 6f |- global| MyCurso|
|000006e0| 72 20 3c 68 61 6e 64 2c | 20 73 63 6f 70 65 20 3d |r <hand,| scope =|
|000006f0| 20 39 20 3e 0d 2d 2d 20 | 67 6c 6f 62 61 6c 20 72 | 9 >.-- |global r|
|00000700| 68 79 74 68 6d 0d 2d 2d | 20 67 6c 6f 62 61 6c 20 |hythm.--| global |
|00000710| 6c 61 62 4d 6f 64 65 20 | 3c 77 68 69 73 70 65 72 |labMode |<whisper|
|00000720| 2c 74 61 6c 6b 2c 63 6f | 75 67 68 2c 69 6e 68 61 |,talk,co|ugh,inha|
|00000730| 6c 65 2c 65 78 68 61 6c | 65 2c 49 6e 45 78 48 61 |le,exhal|e,InExHa|
|00000740| 6c 65 3e 0d 2d 2d 20 67 | 6c 6f 62 61 6c 20 4d 6f |le>.-- g|lobal Mo|
|00000750| 64 65 20 3c 6c 61 62 2c | 74 65 73 74 2c 72 65 76 |de <lab,|test,rev|
|00000760| 69 65 77 3e 0d 2d 2d 20 | 67 6c 6f 62 61 6c 20 4c |iew>.-- |global L|
|00000770| 61 73 74 4d 6f 64 65 20 | 3c 6c 61 62 2c 74 65 73 |astMode |<lab,tes|
|00000780| 74 3e 0d 2d 2d 20 67 6c | 6f 62 61 6c 20 50 6f 70 |t>.-- gl|obal Pop|
|00000790| 55 70 49 74 65 6d 20 3c | 30 2c 31 2c 32 2c 2e 2e |UpItem <|0,1,2,..|
|000007a0| 2e 2e 6e 3e 0d 2d 2d 20 | 67 6c 6f 62 61 6c 20 43 |..n>.-- |global C|
|000007b0| 6f 6e 64 69 74 69 6f 6e | 20 3c 6e 6f 72 6d 61 6c |ondition| <normal|
|000007c0| 2c 65 6d 70 68 79 73 65 | 6d 61 2c 2e 2e 2e 3e 0d |,emphyse|ma,...>.|
|000007d0| 2d 2d 20 67 6c 6f 62 61 | 6c 20 41 63 74 75 61 6c |-- globa|l Actual|
|000007e0| 44 78 20 74 68 65 20 61 | 63 74 75 61 6c 20 44 78 |Dx the a|ctual Dx|
|000007f0| 20 6e 61 6d 65 0d 2d 2d | 20 73 6f 75 6e 64 73 0d | name.--| sounds.|
|00000800| 2d 2d 20 62 72 6f 6e 63 | 68 39 39 2c 20 62 72 6f |-- bronc|h99, bro|
|00000810| 6e 63 68 61 2c 20 62 72 | 6f 6e 63 68 65 0d 2d 2d |ncha, br|onche.--|
|00000820| 20 63 68 6f 6d 70 2c 20 | 63 6f 75 67 68 2c 20 65 | chomp, |cough, e|
|00000830| 78 68 61 6c 65 2c 20 69 | 6e 68 61 6c 65 0d 2d 2d |xhale, i|nhale.--|
|00000840| 20 70 65 72 69 70 68 39 | 39 2c 20 74 68 75 6d 70 | periph9|9, thump|
|00000850| 31 2c 20 77 68 65 65 7a | 65 45 78 2c 20 77 68 65 |1, wheez|eEx, whe|
|00000860| 65 7a 65 49 6e 0d 0d 6f | 6e 20 46 72 6f 6e 74 56 |ezeIn..o|n FrontV|
|00000870| 69 65 77 0d 67 6c 6f 62 | 61 6c 20 6c 65 76 65 6c |iew.glob|al level|
|00000880| 0d 67 6c 6f 62 61 6c 20 | 76 69 65 77 0d 70 75 74 |.global |view.put|
|00000890| 20 22 46 72 6f 6e 74 22 | 20 69 6e 74 6f 20 56 69 | "Front"| into Vi|
|000008a0| 65 77 0d 70 6c 61 79 20 | 22 63 68 6f 6d 70 22 20 |ew.play |"chomp" |
|000008b0| 67 0d 69 66 20 22 73 6b | 69 6e 22 20 69 73 20 69 |g.if "sk|in" is i|
|000008c0| 6e 20 6c 65 76 65 6c 20 | 74 68 65 6e 0d 67 6f 20 |n level |then.go |
|000008d0| 74 6f 20 63 61 72 64 20 | 46 72 6f 6e 74 53 6b 69 |to card |FrontSki|
|000008e0| 6e 45 78 68 61 6c 65 0d | 65 6c 73 65 0d 69 66 20 |nExhale.|else.if |
|000008f0| 22 62 6f 6e 65 22 20 69 | 73 20 69 6e 20 6c 65 76 |"bone" i|s in lev|
|00000900| 65 6c 20 74 68 65 6e 0d | 67 6f 20 74 6f 20 63 61 |el then.|go to ca|
|00000910| 72 64 20 46 72 6f 6e 74 | 42 6f 6e 65 45 78 68 61 |rd Front|BoneExha|
|00000920| 6c 65 0d 65 6c 73 65 0d | 69 66 20 22 6c 75 6e 67 |le.else.|if "lung|
|00000930| 22 20 69 73 20 69 6e 20 | 6c 65 76 65 6c 20 74 68 |" is in |level th|
|00000940| 65 6e 0d 67 6f 20 74 6f | 20 63 61 72 64 20 46 72 |en.go to| card Fr|
|00000950| 6f 6e 74 4c 75 6e 67 45 | 78 68 61 6c 65 0d 65 6e |ontLungE|xhale.en|
|00000960| 64 20 69 66 0d 65 6e 64 | 20 69 66 0d 65 6e 64 20 |d if.end| if.end |
|00000970| 69 66 0d 65 6e 64 20 46 | 72 6f 6e 74 56 69 65 77 |if.end F|rontView|
|00000980| 0d 0d 6f 6e 20 4c 65 66 | 74 56 69 65 77 0d 67 6c |..on Lef|tView.gl|
|00000990| 6f 62 61 6c 20 6c 65 76 | 65 6c 0d 67 6c 6f 62 61 |obal lev|el.globa|
|000009a0| 6c 20 76 69 65 77 0d 70 | 6c 61 79 20 22 63 68 6f |l view.p|lay "cho|
|000009b0| 6d 70 22 20 67 0d 70 75 | 74 20 22 4c 65 66 74 22 |mp" g.pu|t "Left"|
|000009c0| 20 69 6e 74 6f 20 56 69 | 65 77 0d 69 66 20 22 73 | into Vi|ew.if "s|
|000009d0| 6b 69 6e 22 20 69 73 20 | 69 6e 20 6c 65 76 65 6c |kin" is |in level|
|000009e0| 20 74 68 65 6e 0d 67 6f | 20 74 6f 20 63 61 72 64 | then.go| to card|
|000009f0| 20 4c 65 66 74 53 6b 69 | 6e 45 78 68 61 6c 65 0d | LeftSki|nExhale.|
|00000a00| 65 6c 73 65 0d 69 66 20 | 22 62 6f 6e 65 22 20 69 |else.if |"bone" i|
|00000a10| 73 20 69 6e 20 6c 65 76 | 65 6c 20 74 68 65 6e 0d |s in lev|el then.|
|00000a20| 67 6f 20 74 6f 20 63 61 | 72 64 20 4c 65 66 74 42 |go to ca|rd LeftB|
|00000a30| 6f 6e 65 45 78 68 61 6c | 65 0d 65 6c 73 65 0d 69 |oneExhal|e.else.i|
|00000a40| 66 20 22 6c 75 6e 67 22 | 20 69 73 20 69 6e 20 6c |f "lung"| is in l|
|00000a50| 65 76 65 6c 20 74 68 65 | 6e 0d 67 6f 20 74 6f 20 |evel the|n.go to |
|00000a60| 63 61 72 64 20 4c 65 66 | 74 4c 75 6e 67 45 78 68 |card Lef|tLungExh|
|00000a70| 61 6c 65 0d 65 6e 64 20 | 69 66 0d 65 6e 64 20 69 |ale.end |if.end i|
|00000a80| 66 0d 65 6e 64 20 69 66 | 0d 65 6e 64 20 4c 65 66 |f.end if|.end Lef|
|00000a90| 74 56 69 65 77 0d 0d 6f | 6e 20 52 69 67 68 74 56 |tView..o|n RightV|
|00000aa0| 69 65 77 0d 67 6c 6f 62 | 61 6c 20 6c 65 76 65 6c |iew.glob|al level|
|00000ab0| 0d 67 6c 6f 62 61 6c 20 | 76 69 65 77 0d 70 6c 61 |.global |view.pla|
|00000ac0| 79 20 22 63 68 6f 6d 70 | 22 20 67 0d 70 75 74 20 |y "chomp|" g.put |
|00000ad0| 22 52 69 67 68 74 22 20 | 69 6e 74 6f 20 56 69 65 |"Right" |into Vie|
|00000ae0| 77 0d 69 66 20 22 73 6b | 69 6e 22 20 69 73 20 69 |w.if "sk|in" is i|
|00000af0| 6e 20 6c 65 76 65 6c 20 | 74 68 65 6e 0d 67 6f 20 |n level |then.go |
|00000b00| 74 6f 20 63 61 72 64 20 | 52 69 67 68 74 53 6b 69 |to card |RightSki|
|00000b10| 6e 45 78 68 61 6c 65 0d | 65 6c 73 65 0d 69 66 20 |nExhale.|else.if |
|00000b20| 22 62 6f 6e 65 22 20 69 | 73 20 69 6e 20 6c 65 76 |"bone" i|s in lev|
|00000b30| 65 6c 20 74 68 65 6e 0d | 67 6f 20 74 6f 20 63 61 |el then.|go to ca|
|00000b40| 72 64 20 52 69 67 68 74 | 42 6f 6e 65 45 78 68 61 |rd Right|BoneExha|
|00000b50| 6c 65 0d 65 6c 73 65 0d | 69 66 20 22 6c 75 6e 67 |le.else.|if "lung|
|00000b60| 22 20 69 73 20 69 6e 20 | 6c 65 76 65 6c 20 74 68 |" is in |level th|
|00000b70| 65 6e 0d 67 6f 20 74 6f | 20 63 61 72 64 20 52 69 |en.go to| card Ri|
|00000b80| 67 68 74 4c 75 6e 67 45 | 78 68 61 6c 65 0d 65 6e |ghtLungE|xhale.en|
|00000b90| 64 20 69 66 0d 65 6e 64 | 20 69 66 0d 65 6e 64 20 |d if.end| if.end |
|00000ba0| 69 66 0d 65 6e 64 20 52 | 69 67 68 74 56 69 65 77 |if.end R|ightView|
|00000bb0| 0d 0d 6f 6e 20 42 61 63 | 6b 56 69 65 77 0d 67 6c |..on Bac|kView.gl|
|00000bc0| 6f 62 61 6c 20 6c 65 76 | 65 6c 0d 67 6c 6f 62 61 |obal lev|el.globa|
|00000bd0| 6c 20 76 69 65 77 0d 70 | 6c 61 79 20 22 63 68 6f |l view.p|lay "cho|
|00000be0| 6d 70 22 20 67 0d 70 75 | 74 20 22 42 61 63 6b 22 |mp" g.pu|t "Back"|
|00000bf0| 20 69 6e 74 6f 20 56 69 | 65 77 0d 69 66 20 22 73 | into Vi|ew.if "s|
|00000c00| 6b 69 6e 22 20 69 73 20 | 69 6e 20 6c 65 76 65 6c |kin" is |in level|
|00000c10| 20 74 68 65 6e 0d 67 6f | 20 74 6f 20 63 61 72 64 | then.go| to card|
|00000c20| 20 42 61 63 6b 53 6b 69 | 6e 45 78 68 61 6c 65 0d | BackSki|nExhale.|
|00000c30| 65 6c 73 65 0d 69 66 20 | 22 62 6f 6e 65 22 20 69 |else.if |"bone" i|
|00000c40| 73 20 69 6e 20 6c 65 76 | 65 6c 20 74 68 65 6e 0d |s in lev|el then.|
|00000c50| 67 6f 20 74 6f 20 63 61 | 72 64 20 42 61 63 6b 42 |go to ca|rd BackB|
|00000c60| 6f 6e 65 45 78 68 61 6c | 65 0d 65 6c 73 65 0d 69 |oneExhal|e.else.i|
|00000c70| 66 20 22 6c 75 6e 67 22 | 20 69 73 20 69 6e 20 6c |f "lung"| is in l|
|00000c80| 65 76 65 6c 20 74 68 65 | 6e 0d 67 6f 20 74 6f 20 |evel the|n.go to |
|00000c90| 63 61 72 64 20 42 61 63 | 6b 4c 75 6e 67 45 78 68 |card Bac|kLungExh|
|00000ca0| 61 6c 65 0d 65 6e 64 20 | 69 66 0d 65 6e 64 20 69 |ale.end |if.end i|
|00000cb0| 66 0d 65 6e 64 20 69 66 | 0d 65 6e 64 20 42 61 63 |f.end if|.end Bac|
|00000cc0| 6b 56 69 65 77 0d 0d 0d | 6f 6e 20 44 6f 48 61 6e |kView...|on DoHan|
|00000cd0| 64 42 75 74 74 6f 6e 0d | 67 6c 6f 62 61 6c 20 4d |dButton.|global M|
|00000ce0| 79 43 75 72 73 6f 72 0d | 67 6c 6f 62 61 6c 20 6c |yCursor.|global l|
|00000cf0| 61 62 4d 6f 64 65 0d 67 | 6c 6f 62 61 6c 20 63 6f |abMode.g|lobal co|
|00000d00| 6e 64 69 74 69 6f 6e 0d | 67 6c 6f 62 61 6c 20 76 |ndition.|global v|
|00000d10| 69 65 77 0d 67 6c 6f 62 | 61 6c 20 6c 65 76 65 6c |iew.glob|al level|
|00000d20| 0d 49 66 20 6c 61 62 4d | 6f 64 65 20 ad 20 22 69 |.If labM|ode . "i|
|00000d30| 6e 68 61 6c 65 22 20 61 | 6e 64 20 4c 61 62 4d 6f |nhale" a|nd LabMo|
|00000d40| 64 65 20 ad 20 22 65 78 | 68 61 6c 65 22 20 74 68 |de . "ex|hale" th|
|00000d50| 65 6e 0d 70 75 74 20 22 | 65 78 68 61 6c 65 22 20 |en.put "|exhale" |
|00000d60| 69 6e 74 6f 20 6c 61 62 | 4d 6f 64 65 0d 65 6e 64 |into lab|Mode.end|
|00000d70| 20 69 66 0d 70 75 74 20 | 22 48 61 6e 64 22 20 69 | if.put |"Hand" i|
|00000d80| 6e 74 6f 20 4d 79 43 75 | 72 73 6f 72 0d 70 6c 61 |nto MyCu|rsor.pla|
|00000d90| 79 20 22 63 68 6f 6d 70 | 22 20 67 0d 69 66 20 63 |y "chomp|" g.if c|
|00000da0| 6f 6e 64 69 74 69 6f 6e | 20 3d 20 22 65 6d 70 68 |ondition| = "emph|
|00000db0| 79 73 65 6d 61 22 20 74 | 68 65 6e 0d 70 75 74 20 |ysema" t|hen.put |
|00000dc0| 56 69 65 77 20 26 20 4c | 65 76 65 6c 20 26 20 22 |View & L|evel & "|
|00000dd0| 49 6e 68 61 6c 65 22 20 | 69 6e 74 6f 20 69 74 0d |Inhale" |into it.|
|00000de0| 67 6f 20 74 6f 20 63 61 | 72 64 20 69 74 0d 65 6e |go to ca|rd it.en|
|00000df0| 64 20 69 66 0d 67 72 65 | 79 41 75 73 42 75 74 74 |d if.gre|yAusButt|
|00000e00| 6f 6e 73 0d 63 6c 65 61 | 72 50 65 72 42 75 74 74 |ons.clea|rPerButt|
|00000e10| 6f 6e 73 0d 48 69 6c 69 | 74 65 43 75 72 73 6f 72 |ons.Hili|teCursor|
|00000e20| 42 75 74 74 6f 6e 0d 48 | 69 6c 69 74 65 4c 61 62 |Button.H|iliteLab|
|00000e30| 42 75 74 74 6f 6e 0d 65 | 6e 64 20 44 6f 48 61 6e |Button.e|nd DoHan|
|00000e40| 64 42 75 74 74 6f 6e 0d | 0d 6f 6e 20 44 6f 49 6e |dButton.|.on DoIn|
|00000e50| 45 78 68 61 6c 65 42 75 | 74 74 6f 6e 0d 67 6c 6f |ExhaleBu|tton.glo|
|00000e60| 62 61 6c 20 6c 61 62 4d | 6f 64 65 0d 70 75 74 20 |bal labM|ode.put |
|00000e70| 22 69 6e 65 78 68 61 6c | 65 22 20 69 6e 74 6f 20 |"inexhal|e" into |
|00000e80| 6c 61 62 4d 6f 64 65 0d | 48 69 6c 69 74 65 4c 61 |labMode.|HiliteLa|
|00000e90| 62 42 75 74 74 6f 6e 0d | 70 6c 61 79 20 22 63 68 |bButton.|play "ch|
|00000ea0| 6f 6d 70 22 20 67 0d 65 | 6e 64 20 44 6f 49 6e 45 |omp" g.e|nd DoInE|
|00000eb0| 78 68 61 6c 65 42 75 74 | 74 6f 6e 0d 0d 6f 6e 20 |xhaleBut|ton..on |
|00000ec0| 44 6f 57 68 69 73 70 65 | 72 42 75 74 74 6f 6e 0d |DoWhispe|rButton.|
|00000ed0| 67 6c 6f 62 61 6c 20 6c | 61 62 4d 6f 64 65 0d 70 |global l|abMode.p|
|00000ee0| 75 74 20 22 77 68 69 73 | 70 65 72 22 20 69 6e 74 |ut "whis|per" int|
|00000ef0| 6f 20 6c 61 62 4d 6f 64 | 65 0d 48 69 6c 69 74 65 |o labMod|e.Hilite|
|00000f00| 4c 61 62 42 75 74 74 6f | 6e 0d 70 6c 61 79 20 22 |LabButto|n.play "|
|00000f10| 63 68 6f 6d 70 22 20 67 | 0d 65 6e 64 20 44 6f 57 |chomp" g|.end DoW|
|00000f20| 68 69 73 70 65 72 42 75 | 74 74 6f 6e 0d 0d 6f 6e |hisperBu|tton..on|
|00000f30| 20 44 6f 54 61 6c 6b 42 | 75 74 74 6f 6e 0d 67 6c | DoTalkB|utton.gl|
|00000f40| 6f 62 61 6c 20 6c 61 62 | 4d 6f 64 65 0d 70 75 74 |obal lab|Mode.put|
|00000f50| 20 22 74 61 6c 6b 22 20 | 69 6e 74 6f 20 6c 61 62 | "talk" |into lab|
|00000f60| 4d 6f 64 65 0d 48 69 6c | 69 74 65 4c 61 62 42 75 |Mode.Hil|iteLabBu|
|00000f70| 74 74 6f 6e 0d 70 6c 61 | 79 20 22 63 68 6f 6d 70 |tton.pla|y "chomp|
|00000f80| 22 20 67 0d 65 6e 64 20 | 44 6f 54 61 6c 6b 42 75 |" g.end |DoTalkBu|
|00000f90| 74 74 6f 6e 0d 0d 6f 6e | 20 44 6f 45 78 68 61 6c |tton..on| DoExhal|
|00000fa0| 65 42 75 74 74 6f 6e 20 | 20 2d 2d 20 66 72 6f 6d |eButton | -- from|
|00000fb0| 20 63 61 72 64 73 0d 67 | 6c 6f 62 61 6c 20 4c 65 | cards.g|lobal Le|
|00000fc0| 76 65 6c 0d 67 6c 6f 62 | 61 6c 20 56 69 65 77 0d |vel.glob|al View.|
|00000fd0| 67 6c 6f 62 61 6c 20 6c | 61 62 4d 6f 64 65 0d 67 |global l|abMode.g|
|00000fe0| 6c 6f 62 61 6c 20 4d 79 | 43 75 72 73 6f 72 0d 67 |lobal My|Cursor.g|
|00000ff0| 6c 6f 62 61 6c 20 43 6f | 6e 64 69 74 69 6f 6e 0d |lobal Co|ndition.|
|00001000| 70 75 74 20 22 65 78 68 | 61 6c 65 22 20 69 6e 74 |put "exh|ale" int|
|00001010| 6f 20 6c 61 62 4d 6f 64 | 65 0d 48 69 6c 69 74 65 |o labMod|e.Hilite|
|00001020| 4c 61 62 42 75 74 74 6f | 6e 0d 70 6c 61 79 20 22 |LabButto|n.play "|
|00001030| 63 68 6f 6d 70 22 20 67 | 0d 69 66 20 4d 79 63 75 |chomp" g|.if Mycu|
|00001040| 72 73 6f 72 20 3d 20 22 | 48 61 6e 64 22 20 74 68 |rsor = "|Hand" th|
|00001050| 65 6e 0d 69 66 20 63 6f | 6e 64 69 74 69 6f 6e 20 |en.if co|ndition |
|00001060| 3d 20 22 65 6d 70 68 79 | 73 65 6d 61 22 20 74 68 |= "emphy|sema" th|
|00001070| 65 6e 0d 70 75 74 20 56 | 69 65 77 20 26 20 4c 65 |en.put V|iew & Le|
|00001080| 76 65 6c 20 26 20 22 49 | 6e 68 61 6c 65 22 20 69 |vel & "I|nhale" i|
|00001090| 6e 74 6f 20 69 74 0d 65 | 6c 73 65 0d 70 75 74 20 |nto it.e|lse.put |
|000010a0| 56 69 65 77 20 26 20 4c | 65 76 65 6c 20 26 20 22 |View & L|evel & "|
|000010b0| 45 78 68 61 6c 65 22 20 | 69 6e 74 6f 20 69 74 0d |Exhale" |into it.|
|000010c0| 65 6e 64 20 69 66 0d 67 | 6f 20 74 6f 20 63 61 72 |end if.g|o to car|
|000010d0| 64 20 69 74 0d 70 75 74 | 20 63 6f 6e 64 69 74 69 |d it.put| conditi|
|000010e0| 6f 6e 20 69 6e 74 6f 20 | 62 6b 67 6e 64 20 66 69 |on into |bkgnd fi|
|000010f0| 65 6c 64 20 63 6f 6e 64 | 69 74 69 6f 6e 46 0d 65 |eld cond|itionF.e|
|00001100| 6e 64 20 69 66 0d 65 6e | 64 20 44 6f 45 78 68 61 |nd if.en|d DoExha|
|00001110| 6c 65 42 75 74 74 6f 6e | 0d 0d 6f 6e 20 44 6f 49 |leButton|..on DoI|
|00001120| 6e 68 61 6c 65 42 75 74 | 74 6f 6e 0d 67 6c 6f 62 |nhaleBut|ton.glob|
|00001130| 61 6c 20 4c 65 76 65 6c | 0d 67 6c 6f 62 61 6c 20 |al Level|.global |
|00001140| 56 69 65 77 0d 67 6c 6f | 62 61 6c 20 6c 61 62 4d |View.glo|bal labM|
|00001150| 6f 64 65 0d 67 6c 6f 62 | 61 6c 20 4d 79 63 75 72 |ode.glob|al Mycur|
|00001160| 73 6f 72 0d 67 6c 6f 62 | 61 6c 20 43 6f 6e 64 69 |sor.glob|al Condi|
|00001170| 74 69 6f 6e 0d 70 75 74 | 20 22 69 6e 68 61 6c 65 |tion.put| "inhale|
|00001180| 22 20 69 6e 74 6f 20 6c | 61 62 4d 6f 64 65 0d 48 |" into l|abMode.H|
|00001190| 69 6c 69 74 65 4c 61 62 | 42 75 74 74 6f 6e 0d 70 |iliteLab|Button.p|
|000011a0| 6c 61 79 20 22 63 68 6f | 6d 70 22 20 67 0d 69 66 |lay "cho|mp" g.if|
|000011b0| 20 4d 79 63 75 72 73 6f | 72 20 3d 20 22 48 61 6e | Mycurso|r = "Han|
|000011c0| 64 22 20 74 68 65 6e 0d | 70 75 74 20 56 69 65 77 |d" then.|put View|
|000011d0| 20 26 20 4c 65 76 65 6c | 20 26 20 22 49 6e 68 61 | & Level| & "Inha|
|000011e0| 6c 65 22 20 69 6e 74 6f | 20 69 74 0d 67 6f 20 74 |le" into| it.go t|
|000011f0| 6f 20 63 61 72 64 20 69 | 74 0d 70 75 74 20 63 6f |o card i|t.put co|
|00001200| 6e 64 69 74 69 6f 6e 20 | 69 6e 74 6f 20 62 6b 67 |ndition |into bkg|
|00001210| 6e 64 20 66 69 65 6c 64 | 20 63 6f 6e 64 69 74 69 |nd field| conditi|
|00001220| 6f 6e 46 0d 65 6e 64 20 | 69 66 0d 65 6e 64 20 44 |onF.end |if.end D|
|00001230| 6f 49 6e 68 61 6c 65 42 | 75 74 74 6f 6e 0d 0d 6f |oInhaleB|utton..o|
|00001240| 6e 20 44 6f 53 74 65 74 | 68 6f 73 63 6f 70 65 42 |n DoStet|hoscopeB|
|00001250| 75 74 74 6f 6e 0d 67 6c | 6f 62 61 6c 20 4d 79 43 |utton.gl|obal MyC|
|00001260| 75 72 73 6f 72 0d 67 6c | 6f 62 61 6c 20 4c 61 62 |ursor.gl|obal Lab|
|00001270| 4d 6f 64 65 0d 70 75 74 | 20 22 53 63 6f 70 65 22 |Mode.put| "Scope"|
|00001280| 20 69 6e 74 6f 20 4d 79 | 43 75 72 73 6f 72 0d 70 | into My|Cursor.p|
|00001290| 6c 61 79 20 22 63 68 6f | 6d 70 22 20 67 0d 49 66 |lay "cho|mp" g.If|
|000012a0| 20 6c 61 62 4d 6f 64 65 | 20 3d 20 22 69 6e 68 61 | labMode| = "inha|
|000012b0| 6c 65 22 20 6f 72 20 4c | 61 62 4d 6f 64 65 20 3d |le" or L|abMode =|
|000012c0| 20 22 65 78 68 61 6c 65 | 22 20 74 68 65 6e 0d 70 | "exhale|" then.p|
|000012d0| 75 74 20 22 49 6e 45 78 | 68 61 6c 65 22 20 69 6e |ut "InEx|hale" in|
|000012e0| 74 6f 20 6c 61 62 4d 6f | 64 65 0d 65 6e 64 20 69 |to labMo|de.end i|
|000012f0| 66 0d 63 6c 65 61 72 41 | 75 73 42 75 74 74 6f 6e |f.clearA|usButton|
|00001300| 73 0d 67 72 65 79 50 65 | 72 42 75 74 74 6f 6e 73 |s.greyPe|rButtons|
|00001310| 0d 48 69 6c 69 74 65 43 | 75 72 73 6f 72 42 75 74 |.HiliteC|ursorBut|
|00001320| 74 6f 6e 0d 48 69 6c 69 | 74 65 4c 61 62 42 75 74 |ton.Hili|teLabBut|
|00001330| 74 6f 6e 0d 65 6e 64 20 | 44 6f 53 74 65 74 68 6f |ton.end |DoStetho|
|00001340| 73 63 6f 70 65 42 75 74 | 74 6f 6e 0d 0d 2d 2d 20 |scopeBut|ton..-- |
|00001350| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001360| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001370| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001380| 2a 2a 0d 2d 2d 20 20 20 | 20 20 20 20 20 20 20 20 |**.-- | |
|00001390| 20 20 20 20 41 75 73 63 | 75 6c 74 61 74 69 6f 6e | Ausc|ultation|
|000013a0| 20 43 6f 64 65 0d 2d 2d | 20 2a 2a 2a 2a 2a 2a 2a | Code.--| *******|
|000013b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000013c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000013d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 0d 0d 0d 0d 2d |********|***....-|
|000013e0| 2d 20 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |- ******|********|
|000013f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 0d 2d 2d 20 20 20 20 |********|*.-- |
|00001400| 20 20 20 50 72 69 6d 61 | 74 69 76 65 73 0d 2d 2d | Prima|tives.--|
|00001410| 20 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a | *******|********|
|00001420| 2a 2a 2a 2a 2a 2a 2a 2a | 0d 0d 6f 6e 20 4e 6f 42 |********|..on NoB|
|00001430| 53 65 20 20 2d 2d 20 6e | 6f 20 62 72 65 61 74 68 |Se -- n|o breath|
|00001440| 20 73 6f 75 6e 64 73 20 | 65 78 68 61 6c 65 0d 67 | sounds |exhale.g|
|00001450| 6c 6f 62 61 6c 20 4c 65 | 76 65 6c 0d 67 6c 6f 62 |lobal Le|vel.glob|
|00001460| 61 6c 20 56 69 65 77 0d | 70 75 74 20 56 69 65 77 |al View.|put View|
|00001470| 20 26 20 4c 65 76 65 6c | 20 26 20 22 49 6e 68 61 | & Level| & "Inha|
|00001480| 6c 65 22 20 69 6e 74 6f | 20 69 74 0d 67 6f 20 74 |le" into| it.go t|
|00001490| 6f 20 63 61 72 64 20 69 | 74 0d 73 65 74 20 74 68 |o card i|t.set th|
|000014a0| 65 20 63 75 72 73 6f 72 | 20 74 6f 20 39 0d 77 61 |e cursor| to 9.wa|
|000014b0| 69 74 20 35 30 0d 70 75 | 74 20 56 69 65 77 20 26 |it 50.pu|t View &|
|000014c0| 20 4c 65 76 65 6c 20 26 | 20 22 45 78 68 61 6c 65 | Level &| "Exhale|
|000014d0| 22 20 69 6e 74 6f 20 69 | 74 0d 67 6f 20 74 6f 20 |" into i|t.go to |
|000014e0| 63 61 72 64 20 69 74 0d | 65 6e 64 20 4e 6f 42 53 |card it.|end NoBS|
|000014f0| 65 0d 0d 6f 6e 20 4e 6f | 42 53 69 20 2d 2d 20 76 |e..on No|BSi -- v|
|00001500| 65 73 69 63 75 6c 61 72 | 20 62 72 65 61 74 68 20 |esicular| breath |
|00001510| 73 6f 75 6e 64 73 20 69 | 6e 68 61 6c 65 0d 67 6c |sounds i|nhale.gl|
|00001520| 6f 62 61 6c 20 4c 61 62 | 4d 6f 64 65 0d 67 6c 6f |obal Lab|Mode.glo|
|00001530| 62 61 6c 20 4c 65 76 65 | 6c 0d 67 6c 6f 62 61 6c |bal Leve|l.global|
|00001540| 20 56 69 65 77 0d 70 75 | 74 20 56 69 65 77 20 26 | View.pu|t View &|
|00001550| 20 4c 65 76 65 6c 20 26 | 20 22 45 78 68 61 6c 65 | Level &| "Exhale|
|00001560| 22 20 69 6e 74 6f 20 69 | 74 0d 67 6f 20 74 6f 20 |" into i|t.go to |
|00001570| 63 61 72 64 20 69 74 0d | 73 65 74 20 74 68 65 20 |card it.|set the |
|00001580| 63 75 72 73 6f 72 20 74 | 6f 20 39 0d 77 61 69 74 |cursor t|o 9.wait|
|00001590| 20 35 30 0d 77 61 69 74 | 20 75 6e 74 69 6c 20 74 | 50.wait| until t|
|000015a0| 68 65 20 73 6f 75 6e 64 | 20 69 73 20 22 64 6f 6e |he sound| is "don|
|000015b0| 65 22 0d 70 75 74 20 56 | 69 65 77 20 26 20 4c 65 |e".put V|iew & Le|
|000015c0| 76 65 6c 20 26 20 22 49 | 6e 68 61 6c 65 22 20 69 |vel & "I|nhale" i|
|000015d0| 6e 74 6f 20 69 74 0d 67 | 6f 20 74 6f 20 63 61 72 |nto it.g|o to car|
|000015e0| 64 20 69 74 0d 65 6e 64 | 20 4e 6f 42 53 69 0d 0d |d it.end| NoBSi..|
|000015f0| 6f 6e 20 56 65 73 69 63 | 75 6c 61 72 42 53 69 20 |on Vesic|ularBSi |
|00001600| 2d 2d 20 76 65 73 69 63 | 75 6c 61 72 20 62 72 65 |-- vesic|ular bre|
|00001610| 61 74 68 20 73 6f 75 6e | 64 73 20 69 6e 68 61 6c |ath soun|ds inhal|
|00001620| 65 0d 67 6c 6f 62 61 6c | 20 4c 61 62 4d 6f 64 65 |e.global| LabMode|
|00001630| 0d 67 6c 6f 62 61 6c 20 | 4c 65 76 65 6c 0d 67 6c |.global |Level.gl|
|00001640| 6f 62 61 6c 20 56 69 65 | 77 0d 70 75 74 20 56 69 |obal Vie|w.put Vi|
|00001650| 65 77 20 26 20 4c 65 76 | 65 6c 20 26 20 22 45 78 |ew & Lev|el & "Ex|
|00001660| 68 61 6c 65 22 20 69 6e | 74 6f 20 69 74 0d 67 6f |hale" in|to it.go|
|00001670| 20 74 6f 20 63 61 72 64 | 20 69 74 0d 73 65 74 20 | to card| it.set |
|00001680| 74 68 65 20 63 75 72 73 | 6f 72 20 74 6f 20 39 0d |the curs|or to 9.|
|00001690| 70 6c 61 79 20 22 56 65 | 73 69 63 75 6c 61 72 42 |play "Ve|sicularB|
|000016a0| 53 69 22 0d 77 61 69 74 | 20 75 6e 74 69 6c 20 74 |Si".wait| until t|
|000016b0| 68 65 20 73 6f 75 6e 64 | 20 69 73 20 22 64 6f 6e |he sound| is "don|
|000016c0| 65 22 0d 70 75 74 20 56 | 69 65 77 20 26 20 4c 65 |e".put V|iew & Le|
|000016d0| 76 65 6c 20 26 20 22 49 | 6e 68 61 6c 65 22 20 69 |vel & "I|nhale" i|
|000016e0| 6e 74 6f 20 69 74 0d 67 | 6f 20 74 6f 20 63 61 72 |nto it.g|o to car|
|000016f0| 64 20 69 74 0d 65 6e 64 | 20 56 65 73 69 63 75 6c |d it.end| Vesicul|
|00001700| 61 72 42 53 69 0d 0d 6f | 6e 20 42 72 6f 6e 63 56 |arBSi..o|n BroncV|
|00001710| 65 73 42 53 69 20 2d 2d | 20 62 72 6f 6e 63 68 69 |esBSi --| bronchi|
|00001720| 61 6c 20 76 65 73 69 63 | 75 6c 61 72 20 62 72 65 |al vesic|ular bre|
|00001730| 61 74 68 20 73 6f 75 6e | 64 73 20 69 6e 68 61 6c |ath soun|ds inhal|
|00001740| 65 0d 67 6c 6f 62 61 6c | 20 4c 61 62 4d 6f 64 65 |e.global| LabMode|
|00001750| 0d 67 6c 6f 62 61 6c 20 | 4c 65 76 65 6c 0d 67 6c |.global |Level.gl|
|00001760| 6f 62 61 6c 20 56 69 65 | 77 0d 70 75 74 20 56 69 |obal Vie|w.put Vi|
|00001770| 65 77 20 26 20 4c 65 76 | 65 6c 20 26 20 22 45 78 |ew & Lev|el & "Ex|
|00001780| 68 61 6c 65 22 20 69 6e | 74 6f 20 69 74 0d 67 6f |hale" in|to it.go|
|00001790| 20 74 6f 20 63 61 72 64 | 20 69 74 0d 73 65 74 20 | to card| it.set |
|000017a0| 74 68 65 20 63 75 72 73 | 6f 72 20 74 6f 20 39 0d |the curs|or to 9.|
|000017b0| 70 6c 61 79 20 22 42 72 | 6f 6e 63 56 65 73 42 53 |play "Br|oncVesBS|
|000017c0| 69 22 0d 77 61 69 74 20 | 75 6e 74 69 6c 20 74 68 |i".wait |until th|
|000017d0| 65 20 73 6f 75 6e 64 20 | 69 73 20 22 64 6f 6e 65 |e sound |is "done|
|000017e0| 22 0d 70 75 74 20 56 69 | 65 77 20 26 20 4c 65 76 |".put Vi|ew & Lev|
|000017f0| 65 6c 20 26 20 22 49 6e | 68 61 6c 65 22 20 69 6e |el & "In|hale" in|
|00001800| 74 6f 20 69 74 0d 67 6f | 20 74 6f 20 63 61 72 64 |to it.go| to card|
|00001810| 20 69 74 0d 65 6e 64 20 | 42 72 6f 6e 63 56 65 73 | it.end |BroncVes|
|00001820| 42 53 69 0d 0d 6f 6e 20 | 42 72 6f 6e 63 56 65 73 |BSi..on |BroncVes|
|00001830| 42 53 65 20 20 2d 2d 20 | 62 72 6f 6e 63 68 6f 2d |BSe -- |broncho-|
|00001840| 76 65 73 69 63 75 6c 61 | 72 20 62 72 65 61 74 68 |vesicula|r breath|
|00001850| 20 73 6f 75 6e 64 73 20 | 65 78 68 61 6c 65 0d 67 | sounds |exhale.g|
|00001860| 6c 6f 62 61 6c 20 4c 65 | 76 65 6c 0d 67 6c 6f 62 |lobal Le|vel.glob|
|00001870| 61 6c 20 56 69 65 77 0d | 70 75 74 20 56 69 65 77 |al View.|put View|
|00001880| 20 26 20 4c 65 76 65 6c | 20 26 20 22 49 6e 68 61 | & Level| & "Inha|
|00001890| 6c 65 22 20 69 6e 74 6f | 20 69 74 0d 67 6f 20 74 |le" into| it.go t|
|000018a0| 6f 20 63 61 72 64 20 69 | 74 0d 73 65 74 20 74 68 |o card i|t.set th|
|000018b0| 65 20 63 75 72 73 6f 72 | 20 74 6f 20 39 0d 70 6c |e cursor| to 9.pl|
|000018c0| 61 79 20 22 42 72 6f 6e | 63 56 65 73 42 53 65 22 |ay "Bron|cVesBSe"|
|000018d0| 0d 77 61 69 74 20 75 6e | 74 69 6c 20 74 68 65 20 |.wait un|til the |
|000018e0| 73 6f 75 6e 64 20 69 73 | 20 22 64 6f 6e 65 22 0d |sound is| "done".|
|000018f0| 70 75 74 20 56 69 65 77 | 20 26 20 4c 65 76 65 6c |put View| & Level|
|00001900| 20 26 20 22 45 78 68 61 | 6c 65 22 20 69 6e 74 6f | & "Exha|le" into|
|00001910| 20 69 74 0d 67 6f 20 74 | 6f 20 63 61 72 64 20 69 | it.go t|o card i|
|00001920| 74 0d 65 6e 64 20 42 72 | 6f 6e 63 56 65 73 42 53 |t.end Br|oncVesBS|
|00001930| 65 0d 0d 0d 6f 6e 20 42 | 72 6f 6e 63 42 53 69 20 |e...on B|roncBSi |
|00001940| 2d 2d 20 62 72 6f 6e 63 | 68 69 61 6c 20 20 62 72 |-- bronc|hial br|
|00001950| 65 61 74 68 20 73 6f 75 | 6e 64 73 20 69 6e 68 61 |eath sou|nds inha|
|00001960| 6c 65 0d 67 6c 6f 62 61 | 6c 20 4c 61 62 4d 6f 64 |le.globa|l LabMod|
|00001970| 65 0d 67 6c 6f 62 61 6c | 20 4c 65 76 65 6c 0d 67 |e.global| Level.g|
|00001980| 6c 6f 62 61 6c 20 56 69 | 65 77 0d 70 75 74 20 56 |lobal Vi|ew.put V|
|00001990| 69 65 77 20 26 20 4c 65 | 76 65 6c 20 26 20 22 45 |iew & Le|vel & "E|
|000019a0| 78 68 61 6c 65 22 20 69 | 6e 74 6f 20 69 74 0d 67 |xhale" i|nto it.g|
|000019b0| 6f 20 74 6f 20 63 61 72 | 64 20 69 74 0d 73 65 74 |o to car|d it.set|
|000019c0| 20 74 68 65 20 63 75 72 | 73 6f 72 20 74 6f 20 39 | the cur|sor to 9|
|000019d0| 0d 70 6c 61 79 20 22 42 | 72 6f 6e 63 42 53 69 22 |.play "B|roncBSi"|
|000019e0| 0d 77 61 69 74 20 75 6e | 74 69 6c 20 74 68 65 20 |.wait un|til the |
|000019f0| 73 6f 75 6e 64 20 69 73 | 20 22 64 6f 6e 65 22 0d |sound is| "done".|
|00001a00| 70 75 74 20 56 69 65 77 | 20 26 20 4c 65 76 65 6c |put View| & Level|
|00001a10| 20 26 20 22 49 6e 68 61 | 6c 65 22 20 69 6e 74 6f | & "Inha|le" into|
|00001a20| 20 69 74 0d 67 6f 20 74 | 6f 20 63 61 72 64 20 69 | it.go t|o card i|
|00001a30| 74 0d 65 6e 64 20 42 72 | 6f 6e 63 42 53 69 0d 0d |t.end Br|oncBSi..|
|00001a40| 6f 6e 20 42 72 6f 6e 63 | 42 53 65 20 20 2d 2d 20 |on Bronc|BSe -- |
|00001a50| 62 72 6f 6e 63 68 69 61 | 6c 20 62 72 65 61 74 68 |bronchia|l breath|
|00001a60| 20 73 6f 75 6e 64 73 20 | 65 78 68 61 6c 65 0d 67 | sounds |exhale.g|
|00001a70| 6c 6f 62 61 6c 20 4c 65 | 76 65 6c 0d 67 6c 6f 62 |lobal Le|vel.glob|
|00001a80| 61 6c 20 56 69 65 77 0d | 70 75 74 20 56 69 65 77 |al View.|put View|
|00001a90| 20 26 20 4c 65 76 65 6c | 20 26 20 22 49 6e 68 61 | & Level| & "Inha|
|00001aa0| 6c 65 22 20 69 6e 74 6f | 20 69 74 0d 67 6f 20 74 |le" into| it.go t|
|00001ab0| 6f 20 63 61 72 64 20 69 | 74 0d 73 65 74 20 74 68 |o card i|t.set th|
|00001ac0| 65 20 63 75 72 73 6f 72 | 20 74 6f 20 39 0d 70 6c |e cursor| to 9.pl|
|00001ad0| 61 79 20 22 42 72 6f 6e | 63 42 53 65 22 0d 77 61 |ay "Bron|cBSe".wa|
|00001ae0| 69 74 20 75 6e 74 69 6c | 20 74 68 65 20 73 6f 75 |it until| the sou|
|00001af0| 6e 64 20 69 73 20 22 64 | 6f 6e 65 22 0d 70 75 74 |nd is "d|one".put|
|00001b00| 20 56 69 65 77 20 26 20 | 4c 65 76 65 6c 20 26 20 | View & |Level & |
|00001b10| 22 45 78 68 61 6c 65 22 | 20 69 6e 74 6f 20 69 74 |"Exhale"| into it|
|00001b20| 0d 67 6f 20 74 6f 20 63 | 61 72 64 20 69 74 0d 65 |.go to c|ard it.e|
|00001b30| 6e 64 20 42 72 6f 6e 63 | 42 53 65 0d 0d 2d 2d 20 |nd Bronc|BSe..-- |
|00001b40| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001b50| 2a 2a 2a 2a 2a 2a 2a 0d | 2d 2d 20 20 20 20 20 4e |*******.|-- N|
|00001b60| 6f 72 6d 61 6c 20 41 75 | 73 0d 2d 2d 20 2a 2a 2a |ormal Au|s.-- ***|
|00001b70| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001b80| 2a 2a 2a 2a 0d 0d 6f 6e | 20 4e 6f 72 6d 61 6c 49 |****..on| NormalI|
|00001b90| 6e 45 78 68 61 6c 65 0d | 67 6c 6f 62 61 6c 20 62 |nExhale.|global b|
|00001ba0| 75 74 74 6f 6e 70 6f 73 | 0d 67 6c 6f 62 61 6c 20 |uttonpos|.global |
|00001bb0| 4c 61 62 4d 6f 64 65 0d | 73 65 74 20 74 68 65 20 |LabMode.|set the |
|00001bc0| 63 75 72 73 6f 72 20 74 | 6f 20 39 0d 70 75 74 20 |cursor t|o 9.put |
|00001bd0| 63 68 61 72 61 63 74 65 | 72 20 32 20 6f 66 20 42 |characte|r 2 of B|
|00001be0| 75 74 74 6f 6e 50 6f 73 | 20 69 6e 74 6f 20 54 65 |uttonPos| into Te|
|00001bf0| 6d 70 0d 69 66 20 74 65 | 6d 70 20 3d 20 22 4b 22 |mp.if te|mp = "K"|
|00001c00| 20 6f 72 20 74 65 6d 70 | 20 3d 20 22 54 22 20 74 | or temp| = "T" t|
|00001c10| 68 65 6e 20 20 2d 2d 20 | 6b 6f 6e 69 67 20 61 6e |hen -- |konig an|
|00001c20| 64 20 74 6f 70 0d 67 65 | 74 20 53 65 74 56 6f 6c |d top.ge|t SetVol|
|00001c30| 75 6d 65 28 34 29 0d 56 | 65 73 69 63 75 6c 61 72 |ume(4).V|esicular|
|00001c40| 42 53 69 0d 4e 6f 42 53 | 65 0d 65 6e 64 20 69 66 |BSi.NoBS|e.end if|
|00001c50| 0d 69 66 20 74 65 6d 70 | 20 3d 20 22 4d 22 20 6f |.if temp| = "M" o|
|00001c60| 72 20 74 65 6d 70 20 3d | 20 22 42 22 20 74 68 65 |r temp =| "B" the|
|00001c70| 6e 20 2d 2d 20 6d 69 64 | 64 20 6f 72 20 62 6f 74 |n -- mid|d or bot|
|00001c80| 74 20 6c 6f 62 65 73 0d | 67 65 74 20 53 65 74 56 |t lobes.|get SetV|
|00001c90| 6f 6c 75 6d 65 28 34 29 | 0d 56 65 73 69 63 75 6c |olume(4)|.Vesicul|
|00001ca0| 61 72 42 53 69 0d 4e 6f | 42 53 65 0d 65 6e 64 20 |arBSi.No|BSe.end |
|00001cb0| 69 66 0d 69 66 20 74 65 | 6d 70 20 3d 20 22 69 22 |if.if te|mp = "i"|
|00001cc0| 20 74 68 65 6e 20 20 2d | 2d 20 6c 6f 77 65 72 20 | then -|- lower |
|00001cd0| 65 78 74 65 6e 74 20 6f | 66 20 6c 75 6e 67 73 0d |extent o|f lungs.|
|00001ce0| 67 65 74 20 53 65 74 56 | 6f 6c 75 6d 65 28 34 29 |get SetV|olume(4)|
|00001cf0| 0d 56 65 73 69 63 75 6c | 61 72 42 53 69 0d 4e 6f |.Vesicul|arBSi.No|
|00001d00| 42 53 65 0d 65 6e 64 20 | 69 66 0d 69 66 20 74 65 |BSe.end |if.if te|
|00001d10| 6d 70 20 3d 20 22 45 22 | 20 74 68 65 6e 20 2d 2d |mp = "E"| then --|
|00001d20| 20 73 74 65 72 6e 75 6d | 0d 67 65 74 20 53 65 74 | sternum|.get Set|
|00001d30| 56 6f 6c 75 6d 65 28 35 | 29 0d 42 72 6f 6e 63 56 |Volume(5|).BroncV|
|00001d40| 65 73 42 53 69 0d 67 65 | 74 20 53 65 74 56 6f 6c |esBSi.ge|t SetVol|
|00001d50| 75 6d 65 28 33 29 0d 42 | 72 6f 6e 63 56 65 73 42 |ume(3).B|roncVesB|
|00001d60| 53 65 0d 65 6e 64 20 69 | 66 0d 69 66 20 74 65 6d |Se.end i|f.if tem|
|00001d70| 70 20 3d 20 22 41 22 20 | 74 68 65 6e 20 20 2d 2d |p = "A" |then --|
|00001d80| 20 74 72 61 63 68 65 61 | 0d 67 65 74 20 53 65 74 | trachea|.get Set|
|00001d90| 56 6f 6c 75 6d 65 28 36 | 29 0d 42 72 6f 6e 63 42 |Volume(6|).BroncB|
|00001da0| 53 69 0d 67 65 74 20 53 | 65 74 56 6f 6c 75 6d 65 |Si.get S|etVolume|
|00001db0| 28 36 29 0d 42 72 6f 6e | 63 42 53 65 0d 65 6e 64 |(6).Bron|cBSe.end|
|00001dc0| 20 69 66 0d 69 66 20 74 | 65 6d 70 20 3d 20 22 55 | if.if t|emp = "U|
|00001dd0| 22 20 74 68 65 6e 0d 4e | 6f 42 73 69 0d 4e 6f 42 |" then.N|oBsi.NoB|
|00001de0| 73 65 0d 65 6e 64 20 69 | 66 0d 69 66 20 74 65 6d |se.end i|f.if tem|
|00001df0| 70 20 3d 20 22 52 22 20 | 6f 72 20 74 65 6d 70 20 |p = "R" |or temp |
|00001e00| 3d 20 22 6f 22 20 74 68 | 65 6e 0d 4e 6f 42 73 69 |= "o" th|en.NoBsi|
|00001e10| 0d 4e 6f 42 73 65 0d 65 | 6e 64 20 69 66 0d 69 66 |.NoBse.e|nd if.if|
|00001e20| 20 74 65 6d 70 20 3d 20 | 22 56 22 20 6f 72 20 74 | temp = |"V" or t|
|00001e30| 65 6d 70 20 3d 20 22 50 | 22 20 74 68 65 6e 0d 4e |emp = "P|" then.N|
|00001e40| 6f 42 73 69 0d 4e 6f 42 | 73 65 0d 65 6e 64 20 69 |oBsi.NoB|se.end i|
|00001e50| 66 0d 77 61 69 74 20 75 | 6e 74 69 6c 20 74 68 65 |f.wait u|ntil the|
|00001e60| 20 73 6f 75 6e 64 20 69 | 73 20 22 64 6f 6e 65 22 | sound i|s "done"|
|00001e70| 0d 65 6e 64 20 4e 6f 72 | 6d 61 6c 49 6e 45 78 68 |.end Nor|malInExh|
|00001e80| 61 6c 65 0d 0d 2d 2d 20 | 2a 2a 2a 2a 2a 2a 2a 2a |ale..-- |********|
|00001e90| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001ea0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001eb0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001ec0| 2a 0d 2d 2d 0d 2d 2d 20 | 2a 2a 2a 2a 2a 2a 2a 2a |*.--.-- |********|
|00001ed0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001ee0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001ef0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001f00| 2a 0d 0d 6f 6e 20 53 74 | 65 74 68 6f 73 63 6f 70 |*..on St|ethoscop|
|00001f10| 65 44 6f 77 6e 20 20 2d | 2d 20 73 68 75 72 65 20 |eDown -|- shure |
|00001f20| 63 6f 75 6c 64 20 75 73 | 65 20 61 20 66 65 77 20 |could us|e a few |
|00001f30| 63 61 73 65 20 73 74 61 | 74 65 6d 65 6e 74 73 20 |case sta|tements |
|00001f40| 41 70 70 6c 65 21 0d 67 | 6c 6f 62 61 6c 20 43 6f |Apple!.g|lobal Co|
|00001f50| 6e 64 69 74 69 6f 6e 0d | 67 6c 6f 62 61 6c 20 4c |ndition.|global L|
|00001f60| 61 62 4d 6f 64 65 20 20 | 2d 2d 20 3c 77 68 69 73 |abMode |-- <whis|
|00001f70| 70 65 72 2c 74 61 6c 6b | 2c 63 6f 75 67 68 2c 69 |per,talk|,cough,i|
|00001f80| 6e 68 61 6c 65 2c 65 78 | 68 61 6c 65 2c 69 6e 65 |nhale,ex|hale,ine|
|00001f90| 78 68 61 6c 65 3e 0d 0d | 69 66 20 63 6f 6e 64 69 |xhale>..|if condi|
|00001fa0| 74 69 6f 6e 20 3d 20 22 | 6e 6f 72 6d 61 6c 22 20 |tion = "|normal" |
|00001fb0| 74 68 65 6e 0d 69 66 20 | 4c 61 62 6d 6f 64 65 20 |then.if |Labmode |
|00001fc0| 3d 20 22 77 68 69 73 70 | 65 72 22 20 74 68 65 6e |= "whisp|er" then|
|00001fd0| 0d 6e 6f 72 6d 61 6c 57 | 68 69 73 70 65 72 0d 65 |.normalW|hisper.e|
|00001fe0| 6e 64 20 69 66 0d 69 66 | 20 4c 61 62 6d 6f 64 65 |nd if.if| Labmode|
|00001ff0| 20 3d 20 22 74 61 6c 6b | 22 20 74 68 65 6e 0d 6e | = "talk|" then.n|
|00002000| 6f 72 6d 61 6c 54 61 6c | 6b 0d 65 6e 64 20 69 66 |ormalTal|k.end if|
|00002010| 0d 69 66 20 4c 61 62 6d | 6f 64 65 20 3d 20 22 63 |.if Labm|ode = "c|
|00002020| 6f 75 67 68 22 20 74 68 | 65 6e 0d 6e 6f 72 6d 61 |ough" th|en.norma|
|00002030| 6c 43 6f 75 67 68 0d 65 | 6e 64 20 69 66 0d 69 66 |lCough.e|nd if.if|
|00002040| 20 4c 61 62 6d 6f 64 65 | 20 3d 20 22 69 6e 45 78 | Labmode| = "inEx|
|00002050| 68 61 6c 65 22 20 74 68 | 65 6e 0d 6e 6f 72 6d 61 |hale" th|en.norma|
|00002060| 6c 69 6e 45 78 68 61 6c | 65 0d 65 6e 64 20 69 66 |linExhal|e.end if|
|00002070| 0d 65 6e 64 20 69 66 0d | 0d 69 66 20 63 6f 6e 64 |.end if.|.if cond|
|00002080| 69 74 69 6f 6e 20 3d 20 | 22 61 73 74 68 6d 61 22 |ition = |"asthma"|
|00002090| 20 74 68 65 6e 0d 69 66 | 20 4c 61 62 6d 6f 64 65 | then.if| Labmode|
|000020a0| 20 3d 20 22 77 68 69 73 | 70 65 72 22 20 74 68 65 | = "whis|per" the|
|000020b0| 6e 0d 61 73 74 68 6d 61 | 57 68 69 73 70 65 72 0d |n.asthma|Whisper.|
|000020c0| 65 6e 64 20 69 66 0d 69 | 66 20 4c 61 62 6d 6f 64 |end if.i|f Labmod|
|000020d0| 65 20 3d 20 22 74 61 6c | 6b 22 20 74 68 65 6e 0d |e = "tal|k" then.|
|000020e0| 61 73 74 68 6d 61 54 61 | 6c 6b 0d 65 6e 64 20 69 |asthmaTa|lk.end i|
|000020f0| 66 0d 69 66 20 4c 61 62 | 6d 6f 64 65 20 3d 20 22 |f.if Lab|mode = "|
|00002100| 63 6f 75 67 68 22 20 74 | 68 65 6e 0d 61 73 74 68 |cough" t|hen.asth|
|00002110| 6d 61 43 6f 75 67 68 0d | 65 6e 64 20 69 66 0d 69 |maCough.|end if.i|
|00002120| 66 20 4c 61 62 6d 6f 64 | 65 20 3d 20 22 69 6e 45 |f Labmod|e = "inE|
|00002130| 78 68 61 6c 65 22 20 74 | 68 65 6e 0d 61 73 74 68 |xhale" t|hen.asth|
|00002140| 6d 61 49 6e 45 78 68 61 | 6c 65 0d 65 6e 64 20 69 |maInExha|le.end i|
|00002150| 66 0d 0d 65 6e 64 20 69 | 66 0d 69 66 20 63 6f 6e |f..end i|f.if con|
|00002160| 64 69 74 69 6f 6e 20 3d | 20 22 42 50 6e 65 75 6d |dition =| "BPneum|
|00002170| 6f 6e 69 61 22 20 74 68 | 65 6e 0d 69 66 20 4c 61 |onia" th|en.if La|
|00002180| 62 6d 6f 64 65 20 3d 20 | 22 77 68 69 73 70 65 72 |bmode = |"whisper|
|00002190| 22 20 74 68 65 6e 0d 42 | 50 6e 65 75 6d 6f 6e 69 |" then.B|Pneumoni|
|000021a0| 61 77 68 69 73 70 65 72 | 0d 65 6e 64 20 69 66 0d |awhisper|.end if.|
|000021b0| 69 66 20 4c 61 62 6d 6f | 64 65 20 3d 20 22 74 61 |if Labmo|de = "ta|
|000021c0| 6c 6b 22 20 74 68 65 6e | 0d 42 50 6e 65 75 6d 6f |lk" then|.BPneumo|
|000021d0| 6e 69 61 74 61 6c 6b 0d | 65 6e 64 20 69 66 0d 69 |niatalk.|end if.i|
|000021e0| 66 20 4c 61 62 6d 6f 64 | 65 20 3d 20 22 63 6f 75 |f Labmod|e = "cou|
|000021f0| 67 68 22 20 74 68 65 6e | 0d 42 50 6e 65 75 6d 6f |gh" then|.BPneumo|
|00002200| 6e 69 61 63 6f 75 67 68 | 0d 65 6e 64 20 69 66 0d |niacough|.end if.|
|00002210| 69 66 20 4c 61 62 6d 6f | 64 65 20 3d 20 22 69 6e |if Labmo|de = "in|
|00002220| 45 78 68 61 6c 65 22 20 | 74 68 65 6e 0d 42 50 6e |Exhale" |then.BPn|
|00002230| 65 75 6d 6f 6e 69 61 69 | 6e 45 78 68 61 6c 65 0d |eumoniai|nExhale.|
|00002240| 65 6e 64 20 69 66 0d 0d | 65 6e 64 20 69 66 0d 69 |end if..|end if.i|
|00002250| 66 20 63 6f 6e 64 69 74 | 69 6f 6e 20 3d 20 22 52 |f condit|ion = "R|
|00002260| 4d 4c 50 6e 65 75 6d 6f | 6e 69 61 22 20 74 68 65 |MLPneumo|nia" the|
|00002270| 6e 0d 69 66 20 4c 61 62 | 6d 6f 64 65 20 3d 20 22 |n.if Lab|mode = "|
|00002280| 77 68 69 73 70 65 72 22 | 20 74 68 65 6e 0d 52 4d |whisper"| then.RM|
|00002290| 4c 50 6e 65 75 6d 6f 6e | 69 61 77 68 69 73 70 65 |LPneumon|iawhispe|
|000022a0| 72 0d 65 6e 64 20 69 66 | 0d 69 66 20 4c 61 62 6d |r.end if|.if Labm|
|000022b0| 6f 64 65 20 3d 20 22 74 | 61 6c 6b 22 20 74 68 65 |ode = "t|alk" the|
|000022c0| 6e 0d 52 4d 4c 50 6e 65 | 75 6d 6f 6e 69 61 74 61 |n.RMLPne|umoniata|
|000022d0| 6c 6b 0d 65 6e 64 20 69 | 66 0d 69 66 20 4c 61 62 |lk.end i|f.if Lab|
|000022e0| 6d 6f 64 65 20 3d 20 22 | 63 6f 75 67 68 22 20 74 |mode = "|cough" t|
|000022f0| 68 65 6e 0d 52 4d 4c 50 | 6e 65 75 6d 6f 6e 69 61 |hen.RMLP|neumonia|
|00002300| 63 6f 75 67 68 0d 65 6e | 64 20 69 66 0d 69 66 20 |cough.en|d if.if |
|00002310| 4c 61 62 6d 6f 64 65 20 | 3d 20 22 69 6e 45 78 68 |Labmode |= "inExh|
|00002320| 61 6c 65 22 20 74 68 65 | 6e 0d 52 4d 4c 50 6e 65 |ale" the|n.RMLPne|
|00002330| 75 6d 6f 6e 69 61 69 6e | 45 78 68 61 6c 65 0d 65 |umoniain|Exhale.e|
|00002340| 6e 64 20 69 66 0d 65 6e | 64 20 69 66 0d 0d 69 66 |nd if.en|d if..if|
|00002350| 20 63 6f 6e 64 69 74 69 | 6f 6e 20 3d 20 22 4c 6f | conditi|on = "Lo|
|00002360| 62 61 72 50 6e 65 75 6d | 6f 6e 69 61 22 20 74 68 |barPneum|onia" th|
|00002370| 65 6e 0d 69 66 20 4c 61 | 62 6d 6f 64 65 20 3d 20 |en.if La|bmode = |
|00002380| 22 77 68 69 73 70 65 72 | 22 20 74 68 65 6e 0d 4c |"whisper|" then.L|
|00002390| 6f 62 61 72 50 6e 65 75 | 6d 6f 6e 69 61 77 68 69 |obarPneu|moniawhi|
|000023a0| 73 70 65 72 0d 65 6e 64 | 20 69 66 0d 69 66 20 4c |sper.end| if.if L|
|000023b0| 61 62 6d 6f 64 65 20 3d | 20 22 74 61 6c 6b 22 20 |abmode =| "talk" |
|000023c0| 74 68 65 6e 0d 4c 6f 62 | 61 72 50 6e 65 75 6d 6f |then.Lob|arPneumo|
|000023d0| 6e 69 61 74 61 6c 6b 0d | 65 6e 64 20 69 66 0d 69 |niatalk.|end if.i|
|000023e0| 66 20 4c 61 62 6d 6f 64 | 65 20 3d 20 22 63 6f 75 |f Labmod|e = "cou|
|000023f0| 67 68 22 20 74 68 65 6e | 0d 4c 6f 62 61 72 50 6e |gh" then|.LobarPn|
|00002400| 65 75 6d 6f 6e 69 61 63 | 6f 75 67 68 0d 65 6e 64 |eumoniac|ough.end|
|00002410| 20 69 66 0d 69 66 20 4c | 61 62 6d 6f 64 65 20 3d | if.if L|abmode =|
|00002420| 20 22 69 6e 45 78 68 61 | 6c 65 22 20 74 68 65 6e | "inExha|le" then|
|00002430| 0d 4c 6f 62 61 72 50 6e | 65 75 6d 6f 6e 69 61 69 |.LobarPn|eumoniai|
|00002440| 6e 45 78 68 61 6c 65 0d | 65 6e 64 20 69 66 0d 65 |nExhale.|end if.e|
|00002450| 6e 64 20 69 66 0d 0d 69 | 66 20 63 6f 6e 64 69 74 |nd if..i|f condit|
|00002460| 69 6f 6e 20 3d 20 22 45 | 6d 70 68 79 73 65 6d 61 |ion = "E|mphysema|
|00002470| 22 20 74 68 65 6e 0d 69 | 66 20 4c 61 62 6d 6f 64 |" then.i|f Labmod|
|00002480| 65 20 3d 20 22 77 68 69 | 73 70 65 72 22 20 74 68 |e = "whi|sper" th|
|00002490| 65 6e 0d 45 6d 70 68 79 | 73 65 6d 61 77 68 69 73 |en.Emphy|semawhis|
|000024a0| 70 65 72 0d 65 6e 64 20 | 69 66 0d 69 66 20 4c 61 |per.end |if.if La|
|000024b0| 62 6d 6f 64 65 20 3d 20 | 22 74 61 6c 6b 22 20 74 |bmode = |"talk" t|
|000024c0| 68 65 6e 0d 45 6d 70 68 | 79 73 65 6d 61 74 61 6c |hen.Emph|ysematal|
|000024d0| 6b 0d 65 6e 64 20 69 66 | 0d 69 66 20 4c 61 62 6d |k.end if|.if Labm|
|000024e0| 6f 64 65 20 3d 20 22 63 | 6f 75 67 68 22 20 74 68 |ode = "c|ough" th|
|000024f0| 65 6e 0d 45 6d 70 68 79 | 73 65 6d 61 63 6f 75 67 |en.Emphy|semacoug|
|00002500| 68 0d 65 6e 64 20 69 66 | 0d 69 66 20 4c 61 62 6d |h.end if|.if Labm|
|00002510| 6f 64 65 20 3d 20 22 69 | 6e 45 78 68 61 6c 65 22 |ode = "i|nExhale"|
|00002520| 20 74 68 65 6e 0d 45 6d | 70 68 79 73 65 6d 61 69 | then.Em|physemai|
|00002530| 6e 45 78 68 61 6c 65 0d | 65 6e 64 20 69 66 0d 65 |nExhale.|end if.e|
|00002540| 6e 64 20 69 66 0d 0d 69 | 66 20 63 6f 6e 64 69 74 |nd if..i|f condit|
|00002550| 69 6f 6e 20 3d 20 22 69 | 46 69 62 72 6f 73 69 73 |ion = "i|Fibrosis|
|00002560| 22 20 74 68 65 6e 0d 69 | 66 20 4c 61 62 6d 6f 64 |" then.i|f Labmod|
|00002570| 65 20 3d 20 22 77 68 69 | 73 70 65 72 22 20 74 68 |e = "whi|sper" th|
|00002580| 65 6e 0d 69 46 69 62 72 | 6f 73 69 73 77 68 69 73 |en.iFibr|osiswhis|
|00002590| 70 65 72 0d 65 6e 64 20 | 69 66 0d 69 66 20 4c 61 |per.end |if.if La|
|000025a0| 62 6d 6f 64 65 20 3d 20 | 22 74 61 6c 6b 22 20 74 |bmode = |"talk" t|
|000025b0| 68 65 6e 0d 69 46 69 62 | 72 6f 73 69 73 74 61 6c |hen.iFib|rosistal|
|000025c0| 6b 0d 65 6e 64 20 69 66 | 0d 69 66 20 4c 61 62 6d |k.end if|.if Labm|
|000025d0| 6f 64 65 20 3d 20 22 63 | 6f 75 67 68 22 20 74 68 |ode = "c|ough" th|
|000025e0| 65 6e 0d 69 46 69 62 72 | 6f 73 69 73 63 6f 75 67 |en.iFibr|osiscoug|
|000025f0| 68 0d 65 6e 64 20 69 66 | 0d 69 66 20 4c 61 62 6d |h.end if|.if Labm|
|00002600| 6f 64 65 20 3d 20 22 69 | 6e 45 78 68 61 6c 65 22 |ode = "i|nExhale"|
|00002610| 20 74 68 65 6e 0d 69 46 | 69 62 72 6f 73 69 73 69 | then.iF|ibrosisi|
|00002620| 6e 45 78 68 61 6c 65 0d | 65 6e 64 20 69 66 0d 65 |nExhale.|end if.e|
|00002630| 6e 64 20 69 66 0d 0d 69 | 66 20 63 6f 6e 64 69 74 |nd if..i|f condit|
|00002640| 69 6f 6e 20 3d 20 22 50 | 6e 65 75 6d 6f 74 68 6f |ion = "P|neumotho|
|00002650| 72 61 78 22 20 74 68 65 | 6e 0d 69 66 20 4c 61 62 |rax" the|n.if Lab|
|00002660| 6d 6f 64 65 20 3d 20 22 | 77 68 69 73 70 65 72 22 |mode = "|whisper"|
|00002670| 20 74 68 65 6e 0d 50 6e | 65 75 6d 6f 74 68 6f 72 | then.Pn|eumothor|
|00002680| 61 78 77 68 69 73 70 65 | 72 0d 65 6e 64 20 69 66 |axwhispe|r.end if|
|00002690| 0d 69 66 20 4c 61 62 6d | 6f 64 65 20 3d 20 22 74 |.if Labm|ode = "t|
|000026a0| 61 6c 6b 22 20 74 68 65 | 6e 0d 50 6e 65 75 6d 6f |alk" the|n.Pneumo|
|000026b0| 74 68 6f 72 61 78 74 61 | 6c 6b 0d 65 6e 64 20 69 |thoraxta|lk.end i|
|000026c0| 66 0d 69 66 20 4c 61 62 | 6d 6f 64 65 20 3d 20 22 |f.if Lab|mode = "|
|000026d0| 63 6f 75 67 68 22 20 74 | 68 65 6e 0d 50 6e 65 75 |cough" t|hen.Pneu|
|000026e0| 6d 6f 74 68 6f 72 61 78 | 63 6f 75 67 68 0d 65 6e |mothorax|cough.en|
|000026f0| 64 20 69 66 0d 69 66 20 | 4c 61 62 6d 6f 64 65 20 |d if.if |Labmode |
|00002700| 3d 20 22 69 6e 45 78 68 | 61 6c 65 22 20 74 68 65 |= "inExh|ale" the|
|00002710| 6e 0d 50 6e 65 75 6d 6f | 74 68 6f 72 61 78 69 6e |n.Pneumo|thoraxin|
|00002720| 45 78 68 61 6c 65 0d 65 | 6e 64 20 69 66 0d 65 6e |Exhale.e|nd if.en|
|00002730| 64 20 69 66 0d 0d 69 66 | 20 63 6f 6e 64 69 74 69 |d if..if| conditi|
|00002740| 6f 6e 20 3d 20 22 49 6e | 66 61 72 63 74 22 20 74 |on = "In|farct" t|
|00002750| 68 65 6e 0d 69 66 20 4c | 61 62 6d 6f 64 65 20 3d |hen.if L|abmode =|
|00002760| 20 77 68 69 73 70 65 72 | 20 74 68 65 6e 0d 49 6e | whisper| then.In|
|00002770| 66 61 72 63 74 77 68 69 | 73 70 65 72 0d 65 6e 64 |farctwhi|sper.end|
|00002780| 20 69 66 0d 69 66 20 4c | 61 62 6d 6f 64 65 20 3d | if.if L|abmode =|
|00002790| 20 22 74 61 6c 6b 22 20 | 74 68 65 6e 0d 49 6e 66 | "talk" |then.Inf|
|000027a0| 61 72 63 74 74 61 6c 6b | 0d 65 6e 64 20 69 66 0d |arcttalk|.end if.|
|000027b0| 69 66 20 4c 61 62 6d 6f | 64 65 20 3d 20 22 63 6f |if Labmo|de = "co|
|000027c0| 75 67 68 22 20 74 68 65 | 6e 0d 49 6e 66 61 72 63 |ugh" the|n.Infarc|
|000027d0| 74 63 6f 75 67 68 0d 65 | 6e 64 20 69 66 0d 69 66 |tcough.e|nd if.if|
|000027e0| 20 4c 61 62 6d 6f 64 65 | 20 3d 20 22 69 6e 45 78 | Labmode| = "inEx|
|000027f0| 68 61 6c 65 22 20 74 68 | 65 6e 0d 49 6e 66 61 72 |hale" th|en.Infar|
|00002800| 63 74 69 6e 45 78 68 61 | 6c 65 0d 65 6e 64 20 69 |ctinExha|le.end i|
|00002810| 66 0d 65 6e 64 20 69 66 | 0d 0d 69 66 20 63 6f 6e |f.end if|..if con|
|00002820| 64 69 74 69 6f 6e 20 3d | 20 22 43 61 6e 63 65 72 |dition =| "Cancer|
|00002830| 22 20 74 68 65 6e 0d 69 | 66 20 4c 61 62 6d 6f 64 |" then.i|f Labmod|
|00002840| 65 20 3d 20 22 77 68 69 | 73 70 65 72 22 20 74 68 |e = "whi|sper" th|
|00002850| 65 6e 0d 43 61 6e 63 65 | 72 77 68 69 73 70 65 72 |en.Cance|rwhisper|
|00002860| 0d 65 6e 64 20 69 66 0d | 69 66 20 4c 61 62 6d 6f |.end if.|if Labmo|
|00002870| 64 65 20 3d 20 22 74 61 | 6c 6b 22 20 74 68 65 6e |de = "ta|lk" then|
|00002880| 0d 43 61 6e 63 65 72 74 | 61 6c 6b 0d 65 6e 64 20 |.Cancert|alk.end |
|00002890| 69 66 0d 69 66 20 4c 61 | 62 6d 6f 64 65 20 3d 20 |if.if La|bmode = |
|000028a0| 22 63 6f 75 67 68 22 20 | 74 68 65 6e 0d 43 61 6e |"cough" |then.Can|
|000028b0| 63 65 72 63 6f 75 67 68 | 0d 65 6e 64 20 69 66 0d |cercough|.end if.|
|000028c0| 69 66 20 4c 61 62 6d 6f | 64 65 20 3d 20 22 69 6e |if Labmo|de = "in|
|000028d0| 45 78 68 61 6c 65 22 20 | 74 68 65 6e 0d 43 61 6e |Exhale" |then.Can|
|000028e0| 63 65 72 69 6e 45 78 68 | 61 6c 65 0d 65 6e 64 20 |cerinExh|ale.end |
|000028f0| 69 66 0d 65 6e 64 20 69 | 66 0d 0d 69 66 20 63 6f |if.end i|f..if co|
|00002900| 6e 64 69 74 69 6f 6e 20 | 3d 20 22 45 66 66 75 73 |ndition |= "Effus|
|00002910| 69 6f 6e 22 20 74 68 65 | 6e 0d 69 66 20 4c 61 62 |ion" the|n.if Lab|
|00002920| 6d 6f 64 65 20 3d 20 22 | 77 68 69 73 70 65 72 22 |mode = "|whisper"|
|00002930| 20 74 68 65 6e 0d 45 66 | 66 75 73 69 6f 6e 77 68 | then.Ef|fusionwh|
|00002940| 69 73 70 65 72 0d 65 6e | 64 20 69 66 0d 69 66 20 |isper.en|d if.if |
|00002950| 4c 61 62 6d 6f 64 65 20 | 3d 20 22 74 61 6c 6b 22 |Labmode |= "talk"|
|00002960| 20 74 68 65 6e 0d 45 66 | 66 75 73 69 6f 6e 74 61 | then.Ef|fusionta|
|00002970| 6c 6b 0d 65 6e 64 20 69 | 66 0d 69 66 20 4c 61 62 |lk.end i|f.if Lab|
|00002980| 6d 6f 64 65 20 3d 20 22 | 63 6f 75 67 68 22 20 74 |mode = "|cough" t|
|00002990| 68 65 6e 0d 45 66 66 75 | 73 69 6f 6e 63 6f 75 67 |hen.Effu|sioncoug|
|000029a0| 68 0d 65 6e 64 20 69 66 | 0d 69 66 20 4c 61 62 6d |h.end if|.if Labm|
|000029b0| 6f 64 65 20 3d 20 22 69 | 6e 45 78 68 61 6c 65 22 |ode = "i|nExhale"|
|000029c0| 20 74 68 65 6e 0d 45 66 | 66 75 73 69 6f 6e 69 6e | then.Ef|fusionin|
|000029d0| 45 78 68 61 6c 65 0d 65 | 6e 64 20 69 66 0d 65 6e |Exhale.e|nd if.en|
|000029e0| 64 20 69 66 0d 0d 69 66 | 20 63 6f 6e 64 69 74 69 |d if..if| conditi|
|000029f0| 6f 6e 20 3d 20 22 54 42 | 22 20 74 68 65 6e 0d 69 |on = "TB|" then.i|
|00002a00| 66 20 4c 61 62 6d 6f 64 | 65 20 3d 20 22 77 68 69 |f Labmod|e = "whi|
|00002a10| 73 70 65 72 22 20 74 68 | 65 6e 0d 54 42 77 68 69 |sper" th|en.TBwhi|
|00002a20| 73 70 65 72 0d 65 6e 64 | 20 69 66 0d 69 66 20 4c |sper.end| if.if L|
|00002a30| 61 62 6d 6f 64 65 20 3d | 20 22 74 61 6c 6b 22 20 |abmode =| "talk" |
|00002a40| 74 68 65 6e 0d 54 42 74 | 61 6c 6b 0d 65 6e 64 20 |then.TBt|alk.end |
|00002a50| 69 66 0d 69 66 20 4c 61 | 62 6d 6f 64 65 20 3d 20 |if.if La|bmode = |
|00002a60| 22 63 6f 75 67 68 22 20 | 74 68 65 6e 0d 54 42 63 |"cough" |then.TBc|
|00002a70| 6f 75 67 68 0d 65 6e 64 | 20 69 66 0d 69 66 20 4c |ough.end| if.if L|
|00002a80| 61 62 6d 6f 64 65 20 3d | 20 22 69 6e 45 78 68 61 |abmode =| "inExha|
|00002a90| 6c 65 22 20 74 68 65 6e | 0d 54 42 69 6e 45 78 68 |le" then|.TBinExh|
|00002aa0| 61 6c 65 0d 65 6e 64 20 | 69 66 0d 65 6e 64 20 69 |ale.end |if.end i|
|00002ab0| 66 0d 65 6e 64 20 53 74 | 65 74 68 6f 73 63 6f 70 |f.end St|ethoscop|
|00002ac0| 65 44 6f 77 6e 0d 0d 2d | 2d 20 2a 2a 2a 2a 2a 2a |eDown..-|- ******|
|00002ad0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002ae0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002af0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 0d 2d 2d 20 |********|****.-- |
|00002b00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 54 68 | | Th|
|00002b10| 75 6d 70 20 43 6f 64 65 | 0d 2d 2d 20 2a 2a 2a 2a |ump Code|.-- ****|
|00002b20| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002b30| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002b40| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 0d 6f |********|******.o|
|00002b50| 6e 20 50 6c 61 79 66 6c | 61 74 0d 67 65 74 20 53 |n Playfl|at.get S|
|00002b60| 65 74 56 6f 6c 75 6d 65 | 28 32 29 0d 70 6c 61 79 |etVolume|(2).play|
|00002b70| 20 22 74 68 75 6d 70 31 | 22 20 64 0d 77 61 69 74 | "thump1|" d.wait|
|00002b80| 20 75 6e 74 69 6c 20 74 | 68 65 20 73 6f 75 6e 64 | until t|he sound|
|00002b90| 20 69 73 20 22 64 6f 6e | 65 22 0d 65 6e 64 20 50 | is "don|e".end P|
|00002ba0| 6c 61 79 46 6c 61 74 0d | 0d 6f 6e 20 50 6c 61 79 |layFlat.|.on Play|
|00002bb0| 44 75 6c 6c 0d 67 65 74 | 20 53 65 74 56 6f 6c 75 |Dull.get| SetVolu|
|00002bc0| 6d 65 28 33 29 0d 70 6c | 61 79 20 22 74 68 75 6d |me(3).pl|ay "thum|
|00002bd0| 70 32 22 0d 77 61 69 74 | 20 75 6e 74 69 6c 20 74 |p2".wait| until t|
|00002be0| 68 65 20 73 6f 75 6e 64 | 20 69 73 20 22 64 6f 6e |he sound| is "don|
|00002bf0| 65 22 0d 65 6e 64 20 50 | 6c 61 79 64 75 6c 6c 0d |e".end P|laydull.|
|00002c00| 0d 6f 6e 20 50 6c 61 79 | 52 65 73 0d 67 65 74 20 |.on Play|Res.get |
|00002c10| 53 65 74 56 6f 6c 75 6d | 65 28 35 29 0d 70 6c 61 |SetVolum|e(5).pla|
|00002c20| 79 20 22 74 68 75 6d 70 | 33 22 0d 77 61 69 74 20 |y "thump|3".wait |
|00002c30| 75 6e 74 69 6c 20 74 68 | 65 20 73 6f 75 6e 64 20 |until th|e sound |
|00002c40| 69 73 20 22 64 6f 6e 65 | 22 0d 65 6e 64 20 50 6c |is "done|".end Pl|
|00002c50| 61 79 52 65 73 0d 0d 6f | 6e 20 50 6c 61 79 48 79 |ayRes..o|n PlayHy|
|00002c60| 70 65 72 52 65 73 0d 67 | 65 74 20 53 65 74 56 6f |perRes.g|et SetVo|
|00002c70| 6c 75 6d 65 28 36 29 0d | 70 6c 61 79 20 22 74 68 |lume(6).|play "th|
|00002c80| 75 6d 70 33 22 0d 77 61 | 69 74 20 75 6e 74 69 6c |ump3".wa|it until|
|00002c90| 20 74 68 65 20 73 6f 75 | 6e 64 20 69 73 20 22 64 | the sou|nd is "d|
|00002ca0| 6f 6e 65 22 0d 65 6e 64 | 20 50 6c 61 79 48 79 70 |one".end| PlayHyp|
|00002cb0| 65 72 52 65 73 0d 0d 6f | 6e 20 50 6c 61 79 54 79 |erRes..o|n PlayTy|
|00002cc0| 6d 70 61 6e 79 0d 67 65 | 74 20 53 65 74 56 6f 6c |mpany.ge|t SetVol|
|00002cd0| 75 6d 65 28 34 29 0d 70 | 6c 61 79 20 22 74 68 75 |ume(4).p|lay "thu|
|00002ce0| 6d 70 31 22 0d 77 61 69 | 74 20 75 6e 74 69 6c 20 |mp1".wai|t until |
|00002cf0| 74 68 65 20 73 6f 75 6e | 64 20 69 73 20 22 64 6f |the soun|d is "do|
|00002d00| 6e 65 22 0d 65 6e 64 20 | 50 6c 61 79 54 79 6d 70 |ne".end |PlayTymp|
|00002d10| 61 6e 79 0d 0d 2d 2d 20 | 2a 2a 2a 2a 2a 2a 2a 2a |any..-- |********|
|00002d20| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002d30| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002d40| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 0d 0d 6f 6e 20 4e |********|**..on N|
|00002d50| 6f 72 6d 61 6c 54 68 75 | 6d 70 0d 67 6c 6f 62 61 |ormalThu|mp.globa|
|00002d60| 6c 20 62 75 74 74 6f 6e | 70 6f 73 0d 67 6c 6f 62 |l button|pos.glob|
|00002d70| 61 6c 20 4c 61 62 4d 6f | 64 65 0d 70 75 74 20 63 |al LabMo|de.put c|
|00002d80| 68 61 72 61 63 74 65 72 | 20 32 20 6f 66 20 42 75 |haracter| 2 of Bu|
|00002d90| 74 74 6f 6e 50 6f 73 20 | 69 6e 74 6f 20 54 65 6d |ttonPos |into Tem|
|00002da0| 70 0d 69 66 20 74 65 6d | 70 20 3d 20 22 4b 22 20 |p.if tem|p = "K" |
|00002db0| 6f 72 20 74 65 6d 70 20 | 3d 20 22 54 22 20 74 68 |or temp |= "T" th|
|00002dc0| 65 6e 0d 70 6c 61 79 52 | 65 73 0d 65 6e 64 20 69 |en.playR|es.end i|
|00002dd0| 66 0d 69 66 20 74 65 6d | 70 20 3d 20 22 4d 22 20 |f.if tem|p = "M" |
|00002de0| 6f 72 20 74 65 6d 70 20 | 3d 20 22 42 22 20 74 68 |or temp |= "B" th|
|00002df0| 65 6e 0d 70 6c 61 79 52 | 65 73 0d 65 6e 64 20 69 |en.playR|es.end i|
|00002e00| 66 0d 69 66 20 74 65 6d | 70 20 3d 20 22 69 22 20 |f.if tem|p = "i" |
|00002e10| 61 6e 64 20 4c 61 62 4d | 6f 64 65 20 3d 20 22 69 |and LabM|ode = "i|
|00002e20| 6e 68 61 6c 65 22 20 74 | 68 65 6e 0d 70 6c 61 79 |nhale" t|hen.play|
|00002e30| 52 65 73 0d 65 6e 64 20 | 69 66 0d 69 66 20 74 65 |Res.end |if.if te|
|00002e40| 6d 70 20 3d 20 22 69 22 | 20 61 6e 64 20 4c 61 62 |mp = "i"| and Lab|
|00002e50| 4d 6f 64 65 20 3d 20 22 | 65 78 68 61 6c 65 22 20 |Mode = "|exhale" |
|00002e60| 74 68 65 6e 0d 70 6c 61 | 79 44 75 6c 6c 0d 65 6e |then.pla|yDull.en|
|00002e70| 64 20 69 66 0d 69 66 20 | 74 65 6d 70 20 3d 20 22 |d if.if |temp = "|
|00002e80| 45 22 20 6f 72 20 74 65 | 6d 70 20 3d 20 22 6f 22 |E" or te|mp = "o"|
|00002e90| 20 74 68 65 6e 0d 70 6c | 61 79 44 75 6c 6c 0d 65 | then.pl|ayDull.e|
|00002ea0| 6e 64 20 69 66 0d 69 66 | 20 74 65 6d 70 20 3d 20 |nd if.if| temp = |
|00002eb0| 22 41 22 20 6f 72 20 74 | 65 6d 70 20 3d 20 22 55 |"A" or t|emp = "U|
|00002ec0| 22 20 74 68 65 6e 20 20 | 2d 2d 20 74 72 61 63 68 |" then |-- trach|
|00002ed0| 65 61 0d 70 6c 61 79 48 | 79 70 65 72 52 65 73 0d |ea.playH|yperRes.|
|00002ee0| 65 6e 64 20 69 66 0d 69 | 66 20 74 65 6d 70 20 3d |end if.i|f temp =|
|00002ef0| 20 22 52 22 20 74 68 65 | 6e 0d 70 6c 61 79 46 6c | "R" the|n.playFl|
|00002f00| 61 74 0d 65 6e 64 20 69 | 66 0d 69 66 20 74 65 6d |at.end i|f.if tem|
|00002f10| 70 20 3d 20 22 56 22 20 | 6f 72 20 74 65 6d 70 20 |p = "V" |or temp |
|00002f20| 3d 20 22 50 22 20 74 68 | 65 6e 0d 70 6c 61 79 44 |= "P" th|en.playD|
|00002f30| 75 6c 6c 0d 65 6e 64 20 | 69 66 0d 77 61 69 74 20 |ull.end |if.wait |
|00002f40| 75 6e 74 69 6c 20 74 68 | 65 20 73 6f 75 6e 64 20 |until th|e sound |
|00002f50| 69 73 20 22 64 6f 6e 65 | 22 0d 65 6e 64 20 4e 6f |is "done|".end No|
|00002f60| 72 6d 61 6c 54 68 75 6d | 70 0d 0d 6f 6e 20 4c 6f |rmalThum|p..on Lo|
|00002f70| 62 61 72 54 68 75 6d 70 | 20 20 2d 2d 20 6c 65 66 |barThump| -- lef|
|00002f80| 74 20 4d 69 64 20 26 20 | 4c 6f 77 65 72 20 6c 75 |t Mid & |Lower lu|
|00002f90| 6e 67 20 63 6f 6e 73 6f | 6c 69 64 61 74 65 64 0d |ng conso|lidated.|
|00002fa0| 67 6c 6f 62 61 6c 20 62 | 75 74 74 6f 6e 70 6f 73 |global b|uttonpos|
|00002fb0| 0d 67 6c 6f 62 61 6c 20 | 4c 61 62 4d 6f 64 65 0d |.global |LabMode.|
|00002fc0| 70 75 74 20 63 68 61 72 | 61 63 74 65 72 20 32 20 |put char|acter 2 |
|00002fd0| 6f 66 20 42 75 74 74 6f | 6e 50 6f 73 20 69 6e 74 |of Butto|nPos int|
|00002fe0| 6f 20 54 65 6d 70 32 0d | 70 75 74 20 63 68 61 72 |o Temp2.|put char|
|00002ff0| 61 63 74 65 72 20 33 20 | 6f 66 20 42 75 74 74 6f |acter 3 |of Butto|
|00003000| 6e 50 6f 73 20 69 6e 74 | 6f 20 54 65 6d 70 33 0d |nPos int|o Temp3.|
|00003010| 70 75 74 20 54 65 6d 70 | 32 20 26 20 54 65 6d 70 |put Temp|2 & Temp|
|00003020| 33 20 69 6e 74 6f 20 54 | 65 6d 70 0d 69 66 20 74 |3 into T|emp.if t|
|00003030| 65 6d 70 32 20 3d 20 22 | 4b 22 20 6f 72 20 74 65 |emp2 = "|K" or te|
|00003040| 6d 70 20 3d 20 22 54 22 | 20 74 68 65 6e 0d 70 6c |mp = "T"| then.pl|
|00003050| 61 79 52 65 73 0d 65 6e | 64 20 69 66 0d 69 66 20 |ayRes.en|d if.if |
|00003060| 74 65 6d 70 32 20 3d 20 | 22 4d 22 20 6f 72 20 74 |temp2 = |"M" or t|
|00003070| 65 6d 70 20 3d 20 22 42 | 22 20 74 68 65 6e 0d 69 |emp = "B|" then.i|
|00003080| 66 20 74 65 6d 70 33 20 | 3d 20 22 4c 22 20 74 68 |f temp3 |= "L" th|
|00003090| 65 6e 0d 70 6c 61 79 44 | 75 6c 6c 0d 65 6c 73 65 |en.playD|ull.else|
|000030a0| 0d 70 6c 61 79 52 65 73 | 0d 65 6e 64 20 69 66 0d |.playRes|.end if.|
|000030b0| 65 6e 64 20 69 66 0d 69 | 66 20 74 65 6d 70 32 20 |end if.i|f temp2 |
|000030c0| 3d 20 22 69 22 20 61 6e | 64 20 4c 61 62 4d 6f 64 |= "i" an|d LabMod|
|000030d0| 65 20 3d 20 22 69 6e 68 | 61 6c 65 22 20 74 68 65 |e = "inh|ale" the|
|000030e0| 6e 0d 69 66 20 74 65 6d | 70 33 20 3d 20 22 4c 22 |n.if tem|p3 = "L"|
|000030f0| 20 74 68 65 6e 0d 70 6c | 61 79 44 75 6c 6c 0d 65 | then.pl|ayDull.e|
|00003100| 6c 73 65 0d 70 6c 61 79 | 52 65 73 0d 65 6e 64 20 |lse.play|Res.end |
|00003110| 69 66 0d 65 6e 64 20 69 | 66 0d 69 66 20 74 65 6d |if.end i|f.if tem|
|00003120| 70 32 20 3d 20 22 69 22 | 20 61 6e 64 20 4c 61 62 |p2 = "i"| and Lab|
|00003130| 4d 6f 64 65 20 3d 20 22 | 65 78 68 61 6c 65 22 20 |Mode = "|exhale" |
|00003140| 74 68 65 6e 0d 70 6c 61 | 79 44 75 6c 6c 0d 65 6e |then.pla|yDull.en|
|00003150| 64 20 69 66 0d 69 66 20 | 74 65 6d 70 32 20 3d 20 |d if.if |temp2 = |
|00003160| 22 45 22 20 6f 72 20 74 | 65 6d 70 20 3d 20 22 6f |"E" or t|emp = "o|
|00003170| 22 20 74 68 65 6e 0d 70 | 6c 61 79 44 75 6c 6c 0d |" then.p|layDull.|
|00003180| 65 6e 64 20 69 66 0d 69 | 66 20 74 65 6d 70 32 20 |end if.i|f temp2 |
|00003190| 3d 20 22 41 22 20 6f 72 | 20 74 65 6d 70 20 3d 20 |= "A" or| temp = |
|000031a0| 22 55 22 20 74 68 65 6e | 20 20 2d 2d 20 74 72 61 |"U" then| -- tra|
|000031b0| 63 68 65 61 0d 70 6c 61 | 79 48 79 70 65 72 52 65 |chea.pla|yHyperRe|
|000031c0| 73 0d 65 6e 64 20 69 66 | 0d 69 66 20 74 65 6d 70 |s.end if|.if temp|
|000031d0| 32 20 3d 20 22 52 22 20 | 74 68 65 6e 0d 70 6c 61 |2 = "R" |then.pla|
|000031e0| 79 46 6c 61 74 0d 65 6e | 64 20 69 66 0d 69 66 20 |yFlat.en|d if.if |
|000031f0| 74 65 6d 70 32 20 3d 20 | 22 56 22 20 6f 72 20 74 |temp2 = |"V" or t|
|00003200| 65 6d 70 20 3d 20 22 50 | 22 20 74 68 65 6e 0d 70 |emp = "P|" then.p|
|00003210| 6c 61 79 44 75 6c 6c 0d | 65 6e 64 20 69 66 0d 77 |layDull.|end if.w|
|00003220| 61 69 74 20 75 6e 74 69 | 6c 20 74 68 65 20 73 6f |ait unti|l the so|
|00003230| 75 6e 64 20 69 73 20 22 | 64 6f 6e 65 22 0d 65 6e |und is "|done".en|
|00003240| 64 20 4c 6f 62 61 72 54 | 68 75 6d 70 0d 0d 6f 6e |d LobarT|hump..on|
|00003250| 20 52 4d 4c 54 68 75 6d | 70 20 20 2d 2d 20 72 74 | RMLThum|p -- rt|
|00003260| 20 4d 69 64 20 26 20 6c | 75 6e 67 20 63 6f 6e 73 | Mid & l|ung cons|
|00003270| 6f 6c 69 64 61 74 65 64 | 0d 67 6c 6f 62 61 6c 20 |olidated|.global |
|00003280| 62 75 74 74 6f 6e 70 6f | 73 0d 67 6c 6f 62 61 6c |buttonpo|s.global|
|00003290| 20 4c 61 62 4d 6f 64 65 | 0d 70 75 74 20 63 68 61 | LabMode|.put cha|
|000032a0| 72 61 63 74 65 72 20 32 | 20 6f 66 20 42 75 74 74 |racter 2| of Butt|
|000032b0| 6f 6e 50 6f 73 20 69 6e | 74 6f 20 54 65 6d 70 32 |onPos in|to Temp2|
|000032c0| 0d 70 75 74 20 63 68 61 | 72 61 63 74 65 72 20 33 |.put cha|racter 3|
|000032d0| 20 6f 66 20 42 75 74 74 | 6f 6e 50 6f 73 20 69 6e | of Butt|onPos in|
|000032e0| 74 6f 20 54 65 6d 70 33 | 0d 70 75 74 20 54 65 6d |to Temp3|.put Tem|
|000032f0| 70 32 20 26 20 54 65 6d | 70 33 20 69 6e 74 6f 20 |p2 & Tem|p3 into |
|00003300| 54 65 6d 70 0d 69 66 20 | 74 65 6d 70 32 20 3d 20 |Temp.if |temp2 = |
|00003310| 22 4b 22 20 6f 72 20 74 | 65 6d 70 20 3d 20 22 54 |"K" or t|emp = "T|
|00003320| 22 20 74 68 65 6e 0d 70 | 6c 61 79 52 65 73 0d 65 |" then.p|layRes.e|
|00003330| 6e 64 20 69 66 0d 69 66 | 20 74 65 6d 70 32 20 3d |nd if.if| temp2 =|
|00003340| 20 22 4d 22 20 6f 72 20 | 74 65 6d 70 20 3d 20 22 | "M" or |temp = "|
|00003350| 42 22 20 74 68 65 6e 0d | 69 66 20 74 65 6d 70 33 |B" then.|if temp3|
|00003360| 20 3d 20 22 52 22 20 74 | 68 65 6e 0d 70 6c 61 79 | = "R" t|hen.play|
|00003370| 44 75 6c 6c 0d 65 6c 73 | 65 0d 70 6c 61 79 52 65 |Dull.els|e.playRe|
|00003380| 73 0d 65 6e 64 20 69 66 | 0d 65 6e 64 20 69 66 0d |s.end if|.end if.|
|00003390| 69 66 20 74 65 6d 70 32 | 20 3d 20 22 69 22 20 61 |if temp2| = "i" a|
|000033a0| 6e 64 20 4c 61 62 4d 6f | 64 65 20 3d 20 22 69 6e |nd LabMo|de = "in|
|000033b0| 68 61 6c 65 22 20 74 68 | 65 6e 0d 70 6c 61 79 52 |hale" th|en.playR|
|000033c0| 65 73 0d 65 6e 64 20 69 | 66 0d 69 66 20 74 65 6d |es.end i|f.if tem|
|000033d0| 70 32 20 3d 20 22 69 22 | 20 61 6e 64 20 4c 61 62 |p2 = "i"| and Lab|
|000033e0| 4d 6f 64 65 20 3d 20 22 | 65 78 68 61 6c 65 22 20 |Mode = "|exhale" |
|000033f0| 74 68 65 6e 0d 70 6c 61 | 79 44 75 6c 6c 0d 65 6e |then.pla|yDull.en|
|00003400| 64 20 69 66 0d 69 66 20 | 74 65 6d 70 32 20 3d 20 |d if.if |temp2 = |
|00003410| 22 45 22 20 6f 72 20 74 | 65 6d 70 20 3d 20 22 6f |"E" or t|emp = "o|
|00003420| 22 20 74 68 65 6e 0d 70 | 6c 61 79 44 75 6c 6c 0d |" then.p|layDull.|
|00003430| 65 6e 64 20 69 66 0d 69 | 66 20 74 65 6d 70 32 20 |end if.i|f temp2 |
|00003440| 3d 20 22 41 22 20 6f 72 | 20 74 65 6d 70 20 3d 20 |= "A" or| temp = |
|00003450| 22 55 22 20 74 68 65 6e | 20 20 2d 2d 20 74 72 61 |"U" then| -- tra|
|00003460| 63 68 65 61 0d 70 6c 61 | 79 48 79 70 65 72 52 65 |chea.pla|yHyperRe|
|00003470| 73 0d 65 6e 64 20 69 66 | 0d 69 66 20 74 65 6d 70 |s.end if|.if temp|
|00003480| 32 20 3d 20 22 52 22 20 | 74 68 65 6e 0d 70 6c 61 |2 = "R" |then.pla|
|00003490| 79 46 6c 61 74 0d 65 6e | 64 20 69 66 0d 69 66 20 |yFlat.en|d if.if |
|000034a0| 74 65 6d 70 32 20 3d 20 | 22 56 22 20 6f 72 20 74 |temp2 = |"V" or t|
|000034b0| 65 6d 70 20 3d 20 22 50 | 22 20 74 68 65 6e 0d 70 |emp = "P|" then.p|
|000034c0| 6c 61 79 44 75 6c 6c 0d | 65 6e 64 20 69 66 0d 77 |layDull.|end if.w|
|000034d0| 61 69 74 20 75 6e 74 69 | 6c 20 74 68 65 20 73 6f |ait unti|l the so|
|000034e0| 75 6e 64 20 69 73 20 22 | 64 6f 6e 65 22 0d 65 6e |und is "|done".en|
|000034f0| 64 20 52 4d 4c 54 68 75 | 6d 70 0d 0d 6f 6e 20 45 |d RMLThu|mp..on E|
|00003500| 6d 70 68 79 73 65 6d 61 | 54 68 75 6d 70 20 2d 2d |mphysema|Thump --|
|00003510| 20 62 6f 74 68 20 6c 75 | 6e 67 73 20 68 79 70 65 | both lu|ngs hype|
|00003520| 72 72 65 73 0d 67 6c 6f | 62 61 6c 20 62 75 74 74 |rres.glo|bal butt|
|00003530| 6f 6e 70 6f 73 0d 67 6c | 6f 62 61 6c 20 4c 61 62 |onpos.gl|obal Lab|
|00003540| 4d 6f 64 65 0d 70 75 74 | 20 63 68 61 72 61 63 74 |Mode.put| charact|
|00003550| 65 72 20 32 20 6f 66 20 | 42 75 74 74 6f 6e 50 6f |er 2 of |ButtonPo|
|00003560| 73 20 69 6e 74 6f 20 54 | 65 6d 70 0d 69 66 20 74 |s into T|emp.if t|
|00003570| 65 6d 70 20 3d 20 22 4b | 22 20 6f 72 20 74 65 6d |emp = "K|" or tem|
|00003580| 70 20 3d 20 22 54 22 20 | 74 68 65 6e 0d 70 6c 61 |p = "T" |then.pla|
|00003590| 79 48 79 70 65 72 52 65 | 73 0d 65 6e 64 20 69 66 |yHyperRe|s.end if|
|000035a0| 0d 69 66 20 74 65 6d 70 | 20 3d 20 22 4d 22 20 6f |.if temp| = "M" o|
|000035b0| 72 20 74 65 6d 70 20 3d | 20 22 42 22 20 74 68 65 |r temp =| "B" the|
|000035c0| 6e 0d 70 6c 61 79 48 79 | 70 65 72 52 65 73 0d 65 |n.playHy|perRes.e|
|000035d0| 6e 64 20 69 66 0d 69 66 | 20 74 65 6d 70 20 3d 20 |nd if.if| temp = |
|000035e0| 22 69 22 20 74 68 65 6e | 0d 70 6c 61 79 48 79 70 |"i" then|.playHyp|
|000035f0| 65 72 52 65 73 0d 65 6e | 64 20 69 66 0d 69 66 20 |erRes.en|d if.if |
|00003600| 74 65 6d 70 20 3d 20 22 | 45 22 20 6f 72 20 74 65 |temp = "|E" or te|
|00003610| 6d 70 20 3d 20 22 6f 22 | 20 74 68 65 6e 0d 70 6c |mp = "o"| then.pl|
|00003620| 61 79 44 75 6c 6c 0d 65 | 6e 64 20 69 66 0d 69 66 |ayDull.e|nd if.if|
|00003630| 20 74 65 6d 70 20 3d 20 | 22 41 22 20 6f 72 20 74 | temp = |"A" or t|
|00003640| 65 6d 70 20 3d 20 22 55 | 22 20 74 68 65 6e 20 20 |emp = "U|" then |
|00003650| 2d 2d 20 74 72 61 63 68 | 65 61 0d 70 6c 61 79 48 |-- trach|ea.playH|
|00003660| 79 70 65 72 52 65 73 0d | 65 6e 64 20 69 66 0d 69 |yperRes.|end if.i|
|00003670| 66 20 74 65 6d 70 20 3d | 20 22 52 22 20 74 68 65 |f temp =| "R" the|
|00003680| 6e 0d 70 6c 61 79 46 6c | 61 74 0d 65 6e 64 20 69 |n.playFl|at.end i|
|00003690| 66 0d 69 66 20 74 65 6d | 70 20 3d 20 22 56 22 20 |f.if tem|p = "V" |
|000036a0| 6f 72 20 74 65 6d 70 20 | 3d 20 22 50 22 20 74 68 |or temp |= "P" th|
|000036b0| 65 6e 0d 70 6c 61 79 44 | 75 6c 6c 0d 65 6e 64 20 |en.playD|ull.end |
|000036c0| 69 66 0d 77 61 69 74 20 | 75 6e 74 69 6c 20 74 68 |if.wait |until th|
|000036d0| 65 20 73 6f 75 6e 64 20 | 69 73 20 22 64 6f 6e 65 |e sound |is "done|
|000036e0| 22 0d 65 6e 64 20 45 6d | 70 68 79 73 65 6d 61 54 |".end Em|physemaT|
|000036f0| 68 75 6d 70 0d 0d 6f 6e | 20 44 75 6c 6c 54 68 75 |hump..on| DullThu|
|00003700| 6d 70 20 20 2d 2d 20 61 | 6c 6c 20 6c 75 6e 67 20 |mp -- a|ll lung |
|00003710| 66 69 65 6c 64 73 20 64 | 75 6c 6c 0d 67 6c 6f 62 |fields d|ull.glob|
|00003720| 61 6c 20 62 75 74 74 6f | 6e 70 6f 73 0d 67 6c 6f |al butto|npos.glo|
|00003730| 62 61 6c 20 4c 61 62 4d | 6f 64 65 0d 70 75 74 20 |bal LabM|ode.put |
|00003740| 63 68 61 72 61 63 74 65 | 72 20 32 20 6f 66 20 42 |characte|r 2 of B|
|00003750| 75 74 74 6f 6e 50 6f 73 | 20 69 6e 74 6f 20 54 65 |uttonPos| into Te|
|00003760| 6d 70 0d 69 66 20 74 65 | 6d 70 20 3d 20 22 4b 22 |mp.if te|mp = "K"|
|00003770| 20 6f 72 20 74 65 6d 70 | 20 3d 20 22 54 22 20 74 | or temp| = "T" t|
|00003780| 68 65 6e 0d 70 6c 61 79 | 44 75 6c 6c 0d 65 6e 64 |hen.play|Dull.end|
|00003790| 20 69 66 0d 69 66 20 74 | 65 6d 70 20 3d 20 22 4d | if.if t|emp = "M|
|000037a0| 22 20 6f 72 20 74 65 6d | 70 20 3d 20 22 42 22 20 |" or tem|p = "B" |
|000037b0| 74 68 65 6e 0d 70 6c 61 | 79 44 75 6c 6c 0d 65 6e |then.pla|yDull.en|
|000037c0| 64 20 69 66 0d 69 66 20 | 74 65 6d 70 20 3d 20 22 |d if.if |temp = "|
|000037d0| 69 22 20 74 68 65 6e 0d | 70 6c 61 79 44 75 6c 6c |i" then.|playDull|
|000037e0| 0d 65 6e 64 20 69 66 0d | 69 66 20 74 65 6d 70 20 |.end if.|if temp |
|000037f0| 3d 20 22 45 22 20 6f 72 | 20 74 65 6d 70 20 3d 20 |= "E" or| temp = |
|00003800| 22 6f 22 20 74 68 65 6e | 0d 70 6c 61 79 44 75 6c |"o" then|.playDul|
|00003810| 6c 0d 65 6e 64 20 69 66 | 0d 69 66 20 74 65 6d 70 |l.end if|.if temp|
|00003820| 20 3d 20 22 41 22 20 6f | 72 20 74 65 6d 70 20 3d | = "A" o|r temp =|
|00003830| 20 22 55 22 20 74 68 65 | 6e 20 20 2d 2d 20 74 72 | "U" the|n -- tr|
|00003840| 61 63 68 65 61 0d 70 6c | 61 79 48 79 70 65 72 52 |achea.pl|ayHyperR|
|00003850| 65 73 0d 65 6e 64 20 69 | 66 0d 69 66 20 74 65 6d |es.end i|f.if tem|
|00003860| 70 20 3d 20 22 52 22 20 | 74 68 65 6e 0d 70 6c 61 |p = "R" |then.pla|
|00003870| 79 46 6c 61 74 0d 65 6e | 64 20 69 66 0d 69 66 20 |yFlat.en|d if.if |
|00003880| 74 65 6d 70 20 3d 20 22 | 56 22 20 6f 72 20 74 65 |temp = "|V" or te|
|00003890| 6d 70 20 3d 20 22 50 22 | 20 74 68 65 6e 0d 70 6c |mp = "P"| then.pl|
|000038a0| 61 79 44 75 6c 6c 0d 65 | 6e 64 20 69 66 0d 77 61 |ayDull.e|nd if.wa|
|000038b0| 69 74 20 75 6e 74 69 6c | 20 74 68 65 20 73 6f 75 |it until| the sou|
|000038c0| 6e 64 20 69 73 20 22 64 | 6f 6e 65 22 0d 65 6e 64 |nd is "d|one".end|
|000038d0| 20 44 75 6c 6c 54 68 75 | 6d 70 0d 0d 6f 6e 20 49 | DullThu|mp..on I|
|000038e0| 6e 66 61 72 63 74 54 68 | 75 6d 70 20 20 2d 2d 20 |nfarctTh|ump -- |
|000038f0| 62 6f 74 68 20 6c 6f 77 | 65 72 20 6c 6f 62 65 73 |both low|er lobes|
|00003900| 20 64 75 6c 6c 0d 67 6c | 6f 62 61 6c 20 62 75 74 | dull.gl|obal but|
|00003910| 74 6f 6e 70 6f 73 0d 67 | 6c 6f 62 61 6c 20 4c 61 |tonpos.g|lobal La|
|00003920| 62 4d 6f 64 65 0d 70 75 | 74 20 63 68 61 72 61 63 |bMode.pu|t charac|
|00003930| 74 65 72 20 32 20 6f 66 | 20 42 75 74 74 6f 6e 50 |ter 2 of| ButtonP|
|00003940| 6f 73 20 69 6e 74 6f 20 | 54 65 6d 70 0d 69 66 20 |os into |Temp.if |
|00003950| 74 65 6d 70 20 3d 20 22 | 69 22 20 6f 72 20 74 65 |temp = "|i" or te|
|00003960| 6d 70 20 3d 20 22 42 22 | 20 74 68 65 6e 0d 70 6c |mp = "B"| then.pl|
|00003970| 61 79 44 75 6c 6c 0d 65 | 6c 73 65 0d 4e 6f 72 6d |ayDull.e|lse.Norm|
|00003980| 61 6c 54 68 75 6d 70 0d | 65 6e 64 20 69 66 0d 77 |alThump.|end if.w|
|00003990| 61 69 74 20 75 6e 74 69 | 6c 20 74 68 65 20 73 6f |ait unti|l the so|
|000039a0| 75 6e 64 20 69 73 20 22 | 64 6f 6e 65 22 0d 65 6e |und is "|done".en|
|000039b0| 64 20 49 6e 66 61 72 63 | 74 54 68 75 6d 70 0d 0d |d Infarc|tThump..|
|000039c0| 6f 6e 20 54 42 54 68 75 | 6d 70 0d 67 6c 6f 62 61 |on TBThu|mp.globa|
|000039d0| 6c 20 62 75 74 74 6f 6e | 70 6f 73 0d 67 6c 6f 62 |l button|pos.glob|
|000039e0| 61 6c 20 4c 61 62 4d 6f | 64 65 0d 70 75 74 20 63 |al LabMo|de.put c|
|000039f0| 68 61 72 61 63 74 65 72 | 20 32 20 6f 66 20 42 75 |haracter| 2 of Bu|
|00003a00| 74 74 6f 6e 50 6f 73 20 | 69 6e 74 6f 20 54 65 6d |ttonPos |into Tem|
|00003a10| 70 0d 69 66 20 74 65 6d | 70 20 3d 20 22 4b 22 20 |p.if tem|p = "K" |
|00003a20| 6f 72 20 74 65 6d 70 20 | 3d 20 22 54 22 20 74 68 |or temp |= "T" th|
|00003a30| 65 6e 0d 70 6c 61 79 48 | 79 70 65 72 52 65 73 0d |en.playH|yperRes.|
|00003a40| 65 6c 73 65 0d 4e 6f 72 | 6d 61 6c 54 68 75 6d 70 |else.Nor|malThump|
|00003a50| 0d 65 6e 64 20 69 66 0d | 77 61 69 74 20 75 6e 74 |.end if.|wait unt|
|00003a60| 69 6c 20 74 68 65 20 73 | 6f 75 6e 64 20 69 73 20 |il the s|ound is |
|00003a70| 22 64 6f 6e 65 22 0d 65 | 6e 64 20 54 42 54 68 75 |"done".e|nd TBThu|
|00003a80| 6d 70 0d 0d 6f 6e 20 48 | 61 6e 64 44 6f 77 6e 0d |mp..on H|andDown.|
|00003a90| 67 6c 6f 62 61 6c 20 63 | 6f 6e 64 69 74 69 6f 6e |global c|ondition|
|00003aa0| 0d 69 66 20 63 6f 6e 64 | 69 74 69 6f 6e 20 3d 20 |.if cond|ition = |
|00003ab0| 22 4e 6f 72 6d 61 6c 22 | 20 6f 72 20 63 6f 6e 64 |"Normal"| or cond|
|00003ac0| 69 74 69 6f 6e 20 3d 20 | 22 61 73 74 68 6d 61 22 |ition = |"asthma"|
|00003ad0| 20 74 68 65 6e 0d 4e 6f | 72 6d 61 6c 54 68 75 6d | then.No|rmalThum|
|00003ae0| 70 0d 65 6e 64 20 69 66 | 0d 69 66 20 63 6f 6e 64 |p.end if|.if cond|
|00003af0| 69 74 69 6f 6e 20 3d 20 | 22 42 50 6e 65 75 6d 6f |ition = |"BPneumo|
|00003b00| 6e 69 61 22 20 74 68 65 | 6e 0d 4e 6f 72 6d 61 6c |nia" the|n.Normal|
|00003b10| 54 68 75 6d 70 0d 65 6e | 64 20 69 66 0d 69 66 20 |Thump.en|d if.if |
|00003b20| 63 6f 6e 64 69 74 69 6f | 6e 20 3d 20 22 4c 6f 62 |conditio|n = "Lob|
|00003b30| 61 72 50 6e 65 75 6d 6f | 6e 69 61 22 20 74 68 65 |arPneumo|nia" the|
|00003b40| 6e 0d 4c 6f 62 61 72 54 | 68 75 6d 70 0d 65 6e 64 |n.LobarT|hump.end|
|00003b50| 20 69 66 0d 49 66 20 63 | 6f 6e 64 69 74 69 6f 6e | if.If c|ondition|
|00003b60| 20 3d 20 22 52 4d 4c 50 | 6e 65 75 6d 6f 6e 69 61 | = "RMLP|neumonia|
|00003b70| 22 20 74 68 65 6e 0d 52 | 4d 4c 54 68 75 6d 70 0d |" then.R|MLThump.|
|00003b80| 65 6e 64 20 69 66 0d 49 | 66 20 63 6f 6e 64 69 74 |end if.I|f condit|
|00003b90| 69 6f 6e 20 3d 20 22 45 | 6d 70 68 79 73 65 6d 61 |ion = "E|mphysema|
|00003ba0| 22 20 6f 72 20 63 6f 6e | 64 69 74 69 6f 6e 20 3d |" or con|dition =|
|00003bb0| 20 22 70 6e 65 75 6d 6f | 74 68 6f 72 61 78 22 20 | "pneumo|thorax" |
|00003bc0| 74 68 65 6e 0d 45 6d 70 | 68 79 73 65 6d 61 54 68 |then.Emp|hysemaTh|
|00003bd0| 75 6d 70 0d 65 6e 64 20 | 69 66 0d 49 66 20 63 6f |ump.end |if.If co|
|00003be0| 6e 64 69 74 69 6f 6e 20 | 3d 20 22 69 46 69 62 72 |ndition |= "iFibr|
|00003bf0| 6f 73 69 73 22 20 6f 72 | 20 63 6f 6e 64 69 74 69 |osis" or| conditi|
|00003c00| 6f 6e 20 3d 20 22 63 61 | 6e 63 65 72 22 20 74 68 |on = "ca|ncer" th|
|00003c10| 65 6e 0d 64 75 6c 6c 54 | 68 75 6d 70 0d 65 6e 64 |en.dullT|hump.end|
|00003c20| 20 69 66 0d 49 66 20 63 | 6f 6e 64 69 74 69 6f 6e | if.If c|ondition|
|00003c30| 20 3d 20 22 69 6e 66 61 | 72 63 74 22 20 74 68 65 | = "infa|rct" the|
|00003c40| 6e 0d 69 6e 66 61 72 63 | 74 54 68 75 6d 70 0d 65 |n.infarc|tThump.e|
|00003c50| 6e 64 20 69 66 0d 49 66 | 20 63 6f 6e 64 69 74 69 |nd if.If| conditi|
|00003c60| 6f 6e 20 3d 20 22 65 66 | 66 75 73 69 6f 6e 22 20 |on = "ef|fusion" |
|00003c70| 74 68 65 6e 0d 64 75 6c | 6c 54 68 75 6d 70 0d 65 |then.dul|lThump.e|
|00003c80| 6e 64 20 69 66 0d 49 66 | 20 63 6f 6e 64 69 74 69 |nd if.If| conditi|
|00003c90| 6f 6e 20 3d 20 22 54 42 | 22 20 74 68 65 6e 0d 54 |on = "TB|" then.T|
|00003ca0| 42 54 68 75 6d 70 0d 65 | 6e 64 20 69 66 0d 65 6e |BThump.e|nd if.en|
|00003cb0| 64 20 48 61 6e 64 44 6f | 77 6e 0d 0d 0d 0d 6f 6e |d HandDo|wn....on|
|00003cc0| 20 48 69 6c 69 74 65 4c | 61 62 42 75 74 74 6f 6e | HiliteL|abButton|
|00003cd0| 20 2d 2d 20 28 20 2d 2d | 20 7c 20 75 6e 68 69 6c | -- ( --| | unhil|
|00003ce0| 69 74 65 20 6c 61 62 20 | 6d 6f 64 65 20 62 75 74 |ite lab |mode but|
|00003cf0| 74 6f 6e 73 20 29 0d 67 | 6c 6f 62 61 6c 20 6c 61 |tons ).g|lobal la|
|00003d00| 62 4d 6f 64 65 0d 67 6c | 6f 62 61 6c 20 4d 79 43 |bMode.gl|obal MyC|
|00003d10| 75 72 73 6f 72 20 2d 2d | 20 3c 20 68 61 6e 64 2c |ursor --| < hand,|
|00003d20| 20 73 63 6f 70 65 20 3e | 0d 73 65 74 20 74 68 65 | scope >|.set the|
|00003d30| 20 68 69 6c 69 74 65 20 | 6f 66 20 62 6b 67 6e 64 | hilite |of bkgnd|
|00003d40| 20 62 75 74 74 6f 6e 20 | 77 68 69 73 70 65 72 20 | button |whisper |
|00003d50| 74 6f 20 6c 61 62 4d 6f | 64 65 20 3d 20 22 77 68 |to labMo|de = "wh|
|00003d60| 69 73 70 65 72 22 0d 73 | 65 74 20 74 68 65 20 68 |isper".s|et the h|
|00003d70| 69 6c 69 74 65 20 6f 66 | 20 62 6b 67 6e 64 20 62 |ilite of| bkgnd b|
|00003d80| 75 74 74 6f 6e 20 74 61 | 6c 6b 20 74 6f 20 6c 61 |utton ta|lk to la|
|00003d90| 62 4d 6f 64 65 20 3d 20 | 22 74 61 6c 6b 22 0d 73 |bMode = |"talk".s|
|00003da0| 65 74 20 74 68 65 20 68 | 69 6c 69 74 65 20 6f 66 |et the h|ilite of|
|00003db0| 20 62 6b 67 6e 64 20 62 | 75 74 74 6f 6e 20 69 6e | bkgnd b|utton in|
|00003dc0| 68 61 6c 65 20 74 6f 20 | 6c 61 62 4d 6f 64 65 20 |hale to |labMode |
|00003dd0| 3d 20 22 69 6e 68 61 6c | 65 22 0d 73 65 74 20 74 |= "inhal|e".set t|
|00003de0| 68 65 20 68 69 6c 69 74 | 65 20 6f 66 20 62 6b 67 |he hilit|e of bkg|
|00003df0| 6e 64 20 62 75 74 74 6f | 6e 20 65 78 68 61 6c 65 |nd butto|n exhale|
|00003e00| 20 74 6f 20 6c 61 62 4d | 6f 64 65 20 3d 20 22 65 | to labM|ode = "e|
|00003e10| 78 68 61 6c 65 22 0d 73 | 65 74 20 74 68 65 20 68 |xhale".s|et the h|
|00003e20| 69 6c 69 74 65 20 6f 66 | 20 62 6b 67 6e 64 20 62 |ilite of| bkgnd b|
|00003e30| 75 74 74 6f 6e 20 49 6e | 45 78 68 61 6c 65 20 74 |utton In|Exhale t|
|00003e40| 6f 20 6c 61 62 4d 6f 64 | 65 20 3d 20 22 49 6e 45 |o labMod|e = "InE|
|00003e50| 78 48 61 6c 65 22 0d 65 | 6e 64 20 48 69 6c 69 74 |xHale".e|nd Hilit|
|00003e60| 65 4c 61 62 42 75 74 74 | 6f 6e 0d 0d 6f 6e 20 48 |eLabButt|on..on H|
|00003e70| 69 6c 69 74 65 43 75 72 | 73 6f 72 42 75 74 74 6f |iliteCur|sorButto|
|00003e80| 6e 0d 67 6c 6f 62 61 6c | 20 4d 79 43 75 72 73 6f |n.global| MyCurso|
|00003e90| 72 0d 73 65 74 20 74 68 | 65 20 68 69 6c 69 74 65 |r.set th|e hilite|
|00003ea0| 20 6f 66 20 62 6b 67 6e | 64 20 62 75 74 74 6f 6e | of bkgn|d button|
|00003eb0| 20 73 63 6f 70 65 20 74 | 6f 20 4d 79 43 75 72 73 | scope t|o MyCurs|
|00003ec0| 6f 72 20 3d 20 22 73 63 | 6f 70 65 22 0d 73 65 74 |or = "sc|ope".set|
|00003ed0| 20 74 68 65 20 68 69 6c | 69 74 65 20 6f 66 20 62 | the hil|ite of b|
|00003ee0| 6b 67 6e 64 20 62 75 74 | 74 6f 6e 20 68 61 6e 64 |kgnd but|ton hand|
|00003ef0| 20 74 6f 20 4d 79 43 75 | 72 73 6f 72 20 3d 20 22 | to MyCu|rsor = "|
|00003f00| 68 61 6e 64 22 0d 65 6e | 64 20 48 69 6c 69 74 65 |hand".en|d Hilite|
|00003f10| 43 75 72 73 6f 72 42 75 | 74 74 6f 6e 0d 0d 6f 6e |CursorBu|tton..on|
|00003f20| 20 48 69 6c 69 74 65 4d | 6f 64 65 42 75 74 74 6f | HiliteM|odeButto|
|00003f30| 6e 20 2d 2d 20 28 20 2d | 2d 20 68 69 6c 69 74 65 |n -- ( -|- hilite|
|00003f40| 20 6c 61 62 20 6f 72 20 | 72 65 76 69 65 77 20 6f | lab or |review o|
|00003f50| 72 20 74 65 73 74 20 62 | 75 74 74 6f 6e 73 20 29 |r test b|uttons )|
|00003f60| 0d 67 6c 6f 62 61 6c 20 | 4d 6f 64 65 0d 73 65 74 |.global |Mode.set|
|00003f70| 20 74 68 65 20 68 69 6c | 69 74 65 20 6f 66 20 62 | the hil|ite of b|
|00003f80| 6b 67 6e 64 20 62 75 74 | 74 6f 6e 20 4c 61 62 42 |kgnd but|ton LabB|
|00003f90| 75 74 74 6f 6e 20 74 6f | 20 4d 6f 64 65 20 3d 20 |utton to| Mode = |
|00003fa0| 22 4c 61 62 22 0d 73 65 | 74 20 74 68 65 20 68 69 |"Lab".se|t the hi|
|00003fb0| 6c 69 74 65 20 6f 66 20 | 62 6b 67 6e 64 20 62 75 |lite of |bkgnd bu|
|00003fc0| 74 74 6f 6e 20 52 65 76 | 69 65 77 42 75 74 74 6f |tton Rev|iewButto|
|00003fd0| 6e 20 74 6f 20 4d 6f 64 | 65 20 3d 20 22 52 65 76 |n to Mod|e = "Rev|
|00003fe0| 69 65 77 22 0d 73 65 74 | 20 74 68 65 20 68 69 6c |iew".set| the hil|
|00003ff0| 69 74 65 20 6f 66 20 62 | 6b 67 6e 64 20 62 75 74 |ite of b|kgnd but|
|00004000| 74 6f 6e 20 54 65 73 74 | 42 75 74 74 6f 6e 20 74 |ton Test|Button t|
|00004010| 6f 20 4d 6f 64 65 20 3d | 20 22 54 65 73 74 22 0d |o Mode =| "Test".|
|00004020| 65 6e 64 20 48 69 6c 69 | 74 65 4d 6f 64 65 42 75 |end Hili|teModeBu|
|00004030| 74 74 6f 6e 0d 0d 6f 6e | 20 46 69 78 50 6f 70 55 |tton..on| FixPopU|
|00004040| 70 20 20 2d 2d 20 28 20 | 2d 2d 20 75 6e 68 69 6c |p -- ( |-- unhil|
|00004050| 69 74 65 20 72 65 76 69 | 65 77 20 62 75 74 74 6f |ite revi|ew butto|
|00004060| 6e 20 69 66 20 6e 6f 20 | 73 65 6c 65 63 74 69 6f |n if no |selectio|
|00004070| 6e 20 29 0d 67 6c 6f 62 | 61 6c 20 4d 6f 64 65 0d |n ).glob|al Mode.|
|00004080| 67 6c 6f 62 61 6c 20 4c | 61 73 74 4d 6f 64 65 0d |global L|astMode.|
|00004090| 67 6c 6f 62 61 6c 20 4c | 61 62 50 6f 70 55 70 49 |global L|abPopUpI|
|000040a0| 74 65 6d 0d 67 6c 6f 62 | 61 6c 20 54 65 73 74 50 |tem.glob|al TestP|
|000040b0| 6f 70 55 70 49 74 65 6d | 0d 67 6c 6f 62 61 6c 20 |opUpItem|.global |
|000040c0| 52 65 76 69 65 77 50 6f | 70 55 70 49 74 65 6d 0d |ReviewPo|pUpItem.|
|000040d0| 67 6c 6f 62 61 6c 20 76 | 69 65 77 0d 67 6c 6f 62 |global v|iew.glob|
|000040e0| 61 6c 20 6c 65 76 65 6c | 0d 67 6c 6f 62 61 6c 20 |al level|.global |
|000040f0| 4d 79 43 75 72 73 6f 72 | 0d 67 6c 6f 62 61 6c 20 |MyCursor|.global |
|00004100| 4c 61 62 4d 6f 64 65 0d | 67 6c 6f 62 61 6c 20 63 |LabMode.|global c|
|00004110| 6f 6e 64 69 74 69 6f 6e | 0d 69 66 20 4c 61 62 50 |ondition|.if LabP|
|00004120| 6f 70 55 70 49 74 65 6d | 20 2b 20 69 74 65 6d 20 |opUpItem| + item |
|00004130| 31 20 6f 66 20 54 65 73 | 74 50 6f 70 55 70 49 74 |1 of Tes|tPopUpIt|
|00004140| 65 6d 20 2b 20 52 65 76 | 69 65 77 50 6f 70 55 70 |em + Rev|iewPopUp|
|00004150| 49 74 65 6d 20 3d 20 30 | 20 74 68 65 6e 0d 70 75 |Item = 0| then.pu|
|00004160| 74 20 4c 61 73 74 4d 6f | 64 65 20 69 6e 74 6f 20 |t LastMo|de into |
|00004170| 4d 6f 64 65 0d 67 65 74 | 20 53 65 74 56 6f 6c 75 |Mode.get| SetVolu|
|00004180| 6d 65 28 32 29 0d 62 65 | 65 70 20 31 0d 65 6c 73 |me(2).be|ep 1.els|
|00004190| 65 0d 69 66 20 4c 61 62 | 50 6f 70 55 70 49 74 65 |e.if Lab|PopUpIte|
|000041a0| 6d 20 ad 20 30 20 6f 72 | 20 69 74 65 6d 20 31 20 |m . 0 or| item 1 |
|000041b0| 6f 66 20 54 65 73 74 50 | 6f 70 55 50 49 74 65 6d |of TestP|opUPItem|
|000041c0| 20 ad 20 30 20 74 68 65 | 6e 0d 76 69 73 75 61 6c | . 0 the|n.visual|
|000041d0| 20 65 66 66 65 63 74 20 | 64 69 73 73 6f 6c 76 65 | effect |dissolve|
|000041e0| 0d 69 66 20 4d 79 43 75 | 72 73 6f 72 20 3d 20 22 |.if MyCu|rsor = "|
|000041f0| 53 63 6f 70 65 22 20 74 | 68 65 6e 0d 70 75 74 20 |Scope" t|hen.put |
|00004200| 56 69 65 77 20 26 20 4c | 65 76 65 6c 20 26 20 22 |View & L|evel & "|
|00004210| 45 78 68 61 6c 65 22 20 | 69 6e 74 6f 20 69 74 0d |Exhale" |into it.|
|00004220| 65 6c 73 65 0d 69 66 20 | 63 6f 6e 64 69 74 69 6f |else.if |conditio|
|00004230| 6e 20 3d 20 22 65 6d 70 | 68 79 73 65 6d 61 22 20 |n = "emp|hysema" |
|00004240| 74 68 65 6e 0d 70 75 74 | 20 56 69 65 77 20 26 20 |then.put| View & |
|00004250| 4c 65 76 65 6c 20 26 20 | 22 49 6e 68 61 6c 65 22 |Level & |"Inhale"|
|00004260| 20 69 6e 74 6f 20 69 74 | 0d 65 6c 73 65 0d 70 75 | into it|.else.pu|
|00004270| 74 20 56 69 65 77 20 26 | 20 4c 65 76 65 6c 20 26 |t View &| Level &|
|00004280| 20 4c 61 62 4d 6f 64 65 | 20 69 6e 74 6f 20 69 74 | LabMode| into it|
|00004290| 0d 65 6e 64 20 69 66 0d | 65 6e 64 20 69 66 0d 67 |.end if.|end if.g|
|000042a0| 6f 20 74 6f 20 63 61 72 | 64 20 69 74 0d 65 6e 64 |o to car|d it.end|
|000042b0| 20 69 66 0d 65 6e 64 20 | 69 66 0d 65 6e 64 20 46 | if.end |if.end F|
|000042c0| 69 78 50 6f 70 55 70 0d | 0d 0d 6f 6e 20 48 61 6e |ixPopUp.|..on Han|
|000042d0| 64 6c 65 52 65 76 69 65 | 77 50 6f 70 49 74 65 6d |dleRevie|wPopItem|
|000042e0| 0d 67 6c 6f 62 61 6c 20 | 52 65 76 69 65 77 50 6f |.global |ReviewPo|
|000042f0| 70 55 70 49 74 65 6d 0d | 69 66 20 52 65 76 69 65 |pUpItem.|if Revie|
|00004300| 77 50 6f 70 55 70 49 74 | 65 6d 20 3d 20 31 20 74 |wPopUpIt|em = 1 t|
|00004310| 68 65 6e 0d 2d 2d 20 70 | 75 73 68 20 63 61 72 64 |hen.-- p|ush card|
|00004320| 0d 76 69 73 75 61 6c 20 | 65 66 66 65 63 74 20 64 |.visual |effect d|
|00004330| 69 73 73 6f 6c 76 65 0d | 67 6f 20 74 6f 20 63 61 |issolve.|go to ca|
|00004340| 72 64 20 22 41 62 6f 75 | 74 20 43 61 72 64 22 0d |rd "Abou|t Card".|
|00004350| 65 6e 64 20 69 66 0d 69 | 66 20 52 65 76 69 65 77 |end if.i|f Review|
|00004360| 50 6f 70 55 70 49 74 65 | 6d 20 3d 20 33 20 74 68 |PopUpIte|m = 3 th|
|00004370| 65 6e 0d 76 69 73 75 61 | 6c 20 65 66 66 65 63 74 |en.visua|l effect|
|00004380| 20 64 69 73 73 6f 6c 76 | 65 0d 67 6f 20 74 6f 20 | dissolv|e.go to |
|00004390| 63 61 72 64 20 22 41 6e | 61 74 6f 6d 79 31 22 0d |card "An|atomy1".|
|000043a0| 65 6e 64 20 69 66 0d 69 | 66 20 52 65 76 69 65 77 |end if.i|f Review|
|000043b0| 50 6f 70 55 70 49 74 65 | 6d 20 3d 20 35 20 74 68 |PopUpIte|m = 5 th|
|000043c0| 65 6e 0d 76 69 73 75 61 | 6c 20 65 66 66 65 63 74 |en.visua|l effect|
|000043d0| 20 64 69 73 73 6f 6c 76 | 65 0d 67 6f 20 74 6f 20 | dissolv|e.go to |
|000043e0| 63 61 72 64 20 22 48 69 | 73 74 6f 72 79 31 22 0d |card "Hi|story1".|
|000043f0| 65 6e 64 20 69 66 0d 69 | 66 20 52 65 76 69 65 77 |end if.i|f Review|
|00004400| 50 6f 70 55 70 49 74 65 | 6d 20 3d 20 36 20 74 68 |PopUpIte|m = 6 th|
|00004410| 65 6e 0d 76 69 73 75 61 | 6c 20 65 66 66 65 63 74 |en.visua|l effect|
|00004420| 20 64 69 73 73 6f 6c 76 | 65 0d 67 6f 20 74 6f 20 | dissolv|e.go to |
|00004430| 63 61 72 64 20 22 49 6e | 73 70 65 63 74 69 6f 6e |card "In|spection|
|00004440| 31 22 0d 65 6e 64 20 69 | 66 0d 69 66 20 52 65 76 |1".end i|f.if Rev|
|00004450| 69 65 77 50 6f 70 55 70 | 49 74 65 6d 20 3d 20 37 |iewPopUp|Item = 7|
|00004460| 20 74 68 65 6e 0d 76 69 | 73 75 61 6c 20 65 66 66 | then.vi|sual eff|
|00004470| 65 63 74 20 64 69 73 73 | 6f 6c 76 65 0d 67 6f 20 |ect diss|olve.go |
|00004480| 74 6f 20 63 61 72 64 20 | 22 50 61 6c 70 61 74 69 |to card |"Palpati|
|00004490| 6f 6e 31 22 0d 65 6e 64 | 20 69 66 0d 69 66 20 52 |on1".end| if.if R|
|000044a0| 65 76 69 65 77 50 6f 70 | 55 70 49 74 65 6d 20 3d |eviewPop|UpItem =|
|000044b0| 20 38 20 74 68 65 6e 0d | 76 69 73 75 61 6c 20 65 | 8 then.|visual e|
|000044c0| 66 66 65 63 74 20 64 69 | 73 73 6f 6c 76 65 0d 67 |ffect di|ssolve.g|
|000044d0| 6f 20 74 6f 20 63 61 72 | 64 20 22 50 65 72 63 75 |o to car|d "Percu|
|000044e0| 73 73 69 6f 6e 31 22 0d | 65 6e 64 20 69 66 0d 69 |ssion1".|end if.i|
|000044f0| 66 20 52 65 76 69 65 77 | 50 6f 70 55 70 49 74 65 |f Review|PopUpIte|
|00004500| 6d 20 3d 20 39 20 74 68 | 65 6e 0d 76 69 73 75 61 |m = 9 th|en.visua|
|00004510| 6c 20 65 66 66 65 63 74 | 20 64 69 73 73 6f 6c 76 |l effect| dissolv|
|00004520| 65 0d 67 6f 20 74 6f 20 | 63 61 72 64 20 22 41 75 |e.go to |card "Au|
|00004530| 73 63 75 6c 74 61 74 69 | 6f 6e 31 22 0d 65 6e 64 |scultati|on1".end|
|00004540| 20 69 66 0d 69 66 20 52 | 65 76 69 65 77 50 6f 70 | if.if R|eviewPop|
|00004550| 55 70 49 74 65 6d 20 3d | 20 31 31 20 74 68 65 6e |UpItem =| 11 then|
|00004560| 0d 76 69 73 75 61 6c 20 | 65 66 66 65 63 74 20 64 |.visual |effect d|
|00004570| 69 73 73 6f 6c 76 65 0d | 67 6f 20 74 6f 20 63 61 |issolve.|go to ca|
|00004580| 72 64 20 22 41 64 76 65 | 6e 74 31 22 0d 65 6e 64 |rd "Adve|nt1".end|
|00004590| 20 69 66 0d 69 66 20 52 | 65 76 69 65 77 50 6f 70 | if.if R|eviewPop|
|000045a0| 55 70 49 74 65 6d 20 3d | 20 31 32 20 74 68 65 6e |UpItem =| 12 then|
|000045b0| 0d 76 69 73 75 61 6c 20 | 65 66 66 65 63 74 20 64 |.visual |effect d|
|000045c0| 69 73 73 6f 6c 76 65 0d | 67 6f 20 74 6f 20 63 61 |issolve.|go to ca|
|000045d0| 72 64 20 22 56 6f 69 63 | 65 31 22 0d 65 6e 64 20 |rd "Voic|e1".end |
|000045e0| 69 66 0d 69 66 20 52 65 | 76 69 65 77 50 6f 70 55 |if.if Re|viewPopU|
|000045f0| 70 49 74 65 6d 20 3d 20 | 31 33 20 74 68 65 6e 0d |pItem = |13 then.|
|00004600| 76 69 73 75 61 6c 20 65 | 66 66 65 63 74 20 64 69 |visual e|ffect di|
|00004610| 73 73 6f 6c 76 65 0d 67 | 6f 20 74 6f 20 63 61 72 |ssolve.g|o to car|
|00004620| 64 20 22 52 61 74 65 31 | 22 0d 65 6e 64 20 69 66 |d "Rate1|".end if|
|00004630| 0d 69 66 20 52 65 76 69 | 65 77 50 6f 70 55 70 49 |.if Revi|ewPopUpI|
|00004640| 74 65 6d 20 3d 20 31 35 | 20 74 68 65 6e 0d 76 69 |tem = 15| then.vi|
|00004650| 73 75 61 6c 20 65 66 66 | 65 63 74 20 64 69 73 73 |sual eff|ect diss|
|00004660| 6f 6c 76 65 0d 67 6f 20 | 74 6f 20 63 61 72 64 20 |olve.go |to card |
|00004670| 22 41 62 6e 6f 72 6d 61 | 6c 31 22 0d 65 6e 64 20 |"Abnorma|l1".end |
|00004680| 69 66 0d 69 66 20 52 65 | 76 69 65 77 50 6f 70 55 |if.if Re|viewPopU|
|00004690| 70 49 74 65 6d 20 3d 20 | 31 37 20 74 68 65 6e 0d |pItem = |17 then.|
|000046a0| 76 69 73 75 61 6c 20 65 | 66 66 65 63 74 20 64 69 |visual e|ffect di|
|000046b0| 73 73 6f 6c 76 65 0d 67 | 6f 20 74 6f 20 63 61 72 |ssolve.g|o to car|
|000046c0| 64 20 22 52 65 66 65 72 | 65 6e 63 65 73 22 0d 65 |d "Refer|ences".e|
|000046d0| 6e 64 20 69 66 0d 69 66 | 20 52 65 76 69 65 77 50 |nd if.if| ReviewP|
|000046e0| 6f 70 55 70 49 74 65 6d | 20 3d 20 31 39 20 74 68 |opUpItem| = 19 th|
|000046f0| 65 6e 0d 76 69 73 75 61 | 6c 20 65 66 66 65 63 74 |en.visua|l effect|
|00004700| 20 64 69 73 73 6f 6c 76 | 65 0d 67 6f 20 74 6f 20 | dissolv|e.go to |
|00004710| 63 61 72 64 20 22 48 65 | 6c 70 31 22 0d 65 6e 64 |card "He|lp1".end|
|00004720| 20 69 66 0d 65 6e 64 20 | 48 61 6e 64 6c 65 52 65 | if.end |HandleRe|
|00004730| 76 69 65 77 50 6f 70 49 | 74 65 6d 0d 0d 2d 2d 20 |viewPopI|tem..-- |
|00004740| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004750| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004760| 2a 2a 2a 2a 2a 2a 2a 2a | 0d 0d 0d 6f 6e 20 48 61 |********|...on Ha|
|00004770| 6e 64 6c 65 4c 61 62 50 | 6f 70 49 74 65 6d 20 20 |ndleLabP|opItem |
|00004780| 2d 2d 20 6d 61 6b 65 20 | 70 61 74 69 65 6e 74 20 |-- make |patient |
|00004790| 66 6f 72 20 4c 61 62 20 | 6f 72 20 54 65 73 74 20 |for Lab |or Test |
|000047a0| 6d 6f 64 65 0d 67 6c 6f | 62 61 6c 20 4c 61 62 50 |mode.glo|bal LabP|
|000047b0| 6f 70 55 70 49 74 65 6d | 0d 67 6c 6f 62 61 6c 20 |opUpItem|.global |
|000047c0| 63 6f 6e 64 69 74 69 6f | 6e 0d 67 6c 6f 62 61 6c |conditio|n.global|
|000047d0| 20 76 69 65 77 0d 67 6c | 6f 62 61 6c 20 6c 65 76 | view.gl|obal lev|
|000047e0| 65 6c 0d 0d 69 66 20 4c | 61 62 50 6f 70 55 70 49 |el..if L|abPopUpI|
|000047f0| 74 65 6d 20 3d 20 31 20 | 74 68 65 6e 0d 70 75 74 |tem = 1 |then.put|
|00004800| 20 22 4e 6f 72 6d 61 6c | 22 20 69 6e 74 6f 20 63 | "Normal|" into c|
|00004810| 6f 6e 64 69 74 69 6f 6e | 0d 65 6e 64 20 69 66 0d |ondition|.end if.|
|00004820| 69 66 20 4c 61 62 50 6f | 70 55 70 49 74 65 6d 20 |if LabPo|pUpItem |
|00004830| 3d 20 32 20 74 68 65 6e | 0d 70 75 74 20 22 41 73 |= 2 then|.put "As|
|00004840| 74 68 6d 61 22 20 69 6e | 74 6f 20 63 6f 6e 64 69 |thma" in|to condi|
|00004850| 74 69 6f 6e 0d 65 6e 64 | 20 69 66 0d 69 66 20 4c |tion.end| if.if L|
|00004860| 61 62 50 6f 70 55 70 49 | 74 65 6d 20 3d 20 33 20 |abPopUpI|tem = 3 |
|00004870| 74 68 65 6e 0d 70 75 74 | 20 22 42 50 6e 65 75 6d |then.put| "BPneum|
|00004880| 6f 6e 69 61 22 20 69 6e | 74 6f 20 63 6f 6e 64 69 |onia" in|to condi|
|00004890| 74 69 6f 6e 0d 65 6e 64 | 20 69 66 0d 69 66 20 4c |tion.end| if.if L|
|000048a0| 61 62 50 6f 70 55 70 49 | 74 65 6d 20 3d 20 34 20 |abPopUpI|tem = 4 |
|000048b0| 74 68 65 6e 0d 70 75 74 | 20 22 52 4d 4c 50 6e 65 |then.put| "RMLPne|
|000048c0| 75 6d 6f 6e 69 61 22 20 | 69 6e 74 6f 20 63 6f 6e |umonia" |into con|
|000048d0| 64 69 74 69 6f 6e 0d 65 | 6e 64 20 69 66 0d 69 66 |dition.e|nd if.if|
|000048e0| 20 4c 61 62 50 6f 70 55 | 70 49 74 65 6d 20 3d 20 | LabPopU|pItem = |
|000048f0| 35 20 74 68 65 6e 0d 70 | 75 74 20 22 4c 6f 62 61 |5 then.p|ut "Loba|
|00004900| 72 50 6e 65 75 6d 6f 6e | 69 61 22 20 69 6e 74 6f |rPneumon|ia" into|
|00004910| 20 63 6f 6e 64 69 74 69 | 6f 6e 0d 65 6e 64 20 69 | conditi|on.end i|
|00004920| 66 0d 69 66 20 4c 61 62 | 50 6f 70 55 70 49 74 65 |f.if Lab|PopUpIte|
|00004930| 6d 20 3d 20 36 20 74 68 | 65 6e 0d 70 75 74 20 22 |m = 6 th|en.put "|
|00004940| 45 6d 70 68 79 73 65 6d | 61 22 20 69 6e 74 6f 20 |Emphysem|a" into |
|00004950| 63 6f 6e 64 69 74 69 6f | 6e 0d 70 75 74 20 56 69 |conditio|n.put Vi|
|00004960| 65 77 20 26 20 4c 65 76 | 65 6c 20 26 20 22 49 6e |ew & Lev|el & "In|
|00004970| 68 61 6c 65 22 20 69 6e | 74 6f 20 69 74 0d 67 6f |hale" in|to it.go|
|00004980| 20 74 6f 20 63 61 72 64 | 20 69 74 0d 65 6e 64 20 | to card| it.end |
|00004990| 69 66 0d 69 66 20 4c 61 | 62 50 6f 70 55 70 49 74 |if.if La|bPopUpIt|
|000049a0| 65 6d 20 3d 20 37 20 74 | 68 65 6e 0d 70 75 74 20 |em = 7 t|hen.put |
|000049b0| 22 49 46 69 62 72 6f 73 | 69 73 22 20 69 6e 74 6f |"IFibros|is" into|
|000049c0| 20 63 6f 6e 64 69 74 69 | 6f 6e 0d 65 6e 64 20 69 | conditi|on.end i|
|000049d0| 66 0d 69 66 20 4c 61 62 | 50 6f 70 55 70 49 74 65 |f.if Lab|PopUpIte|
|000049e0| 6d 20 3d 20 38 20 74 68 | 65 6e 0d 70 75 74 20 22 |m = 8 th|en.put "|
|000049f0| 50 6e 65 75 6d 6f 74 68 | 6f 72 61 78 22 20 69 6e |Pneumoth|orax" in|
|00004a00| 74 6f 20 63 6f 6e 64 69 | 74 69 6f 6e 0d 65 6e 64 |to condi|tion.end|
|00004a10| 20 69 66 0d 69 66 20 4c | 61 62 50 6f 70 55 70 49 | if.if L|abPopUpI|
|00004a20| 74 65 6d 20 3d 20 39 20 | 74 68 65 6e 0d 70 75 74 |tem = 9 |then.put|
|00004a30| 20 22 49 6e 66 61 72 63 | 74 22 20 69 6e 74 6f 20 | "Infarc|t" into |
|00004a40| 63 6f 6e 64 69 74 69 6f | 6e 0d 65 6e 64 20 69 66 |conditio|n.end if|
|00004a50| 0d 69 66 20 4c 61 62 50 | 6f 70 55 70 49 74 65 6d |.if LabP|opUpItem|
|00004a60| 20 3d 20 31 30 20 74 68 | 65 6e 0d 70 75 74 20 22 | = 10 th|en.put "|
|00004a70| 43 61 6e 63 65 72 22 20 | 69 6e 74 6f 20 63 6f 6e |Cancer" |into con|
|00004a80| 64 69 74 69 6f 6e 0d 65 | 6e 64 20 69 66 0d 69 66 |dition.e|nd if.if|
|00004a90| 20 4c 61 62 50 6f 70 55 | 70 49 74 65 6d 20 3d 20 | LabPopU|pItem = |
|00004aa0| 31 31 20 74 68 65 6e 0d | 70 75 74 20 22 45 66 66 |11 then.|put "Eff|
|00004ab0| 75 73 69 6f 6e 22 20 69 | 6e 74 6f 20 63 6f 6e 64 |usion" i|nto cond|
|00004ac0| 69 74 69 6f 6e 0d 65 6e | 64 20 69 66 0d 69 66 20 |ition.en|d if.if |
|00004ad0| 4c 61 62 50 6f 70 55 70 | 49 74 65 6d 20 3d 20 31 |LabPopUp|Item = 1|
|00004ae0| 32 20 74 68 65 6e 0d 70 | 75 74 20 22 54 42 22 20 |2 then.p|ut "TB" |
|00004af0| 69 6e 74 6f 20 63 6f 6e | 64 69 74 69 6f 6e 0d 65 |into con|dition.e|
|00004b00| 6e 64 20 69 66 0d 70 75 | 74 20 63 6f 6e 64 69 74 |nd if.pu|t condit|
|00004b10| 69 6f 6e 20 69 6e 74 6f | 20 62 6b 67 6e 64 20 66 |ion into| bkgnd f|
|00004b20| 69 65 6c 64 20 63 6f 6e | 64 69 74 69 6f 6e 46 0d |ield con|ditionF.|
|00004b30| 65 6e 64 20 48 61 6e 64 | 6c 65 4c 61 62 50 6f 70 |end Hand|leLabPop|
|00004b40| 49 74 65 6d 0d 0d 2d 2d | 20 2a 2a 2a 2a 2a 2a 2a |Item..--| *******|
|00004b50| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004b60| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004b70| 2a 0d 6f 6e 20 4d 61 6b | 65 4e 65 77 50 61 74 69 |*.on Mak|eNewPati|
|00004b80| 65 6e 74 0d 2d 2d 20 70 | 75 74 20 72 61 6e 64 6f |ent.-- p|ut rando|
|00004b90| 6d 20 61 63 74 75 61 6c | 64 78 20 69 6e 74 6f 20 |m actual|dx into |
|00004ba0| 41 63 74 75 61 6c 44 78 | 0d 2d 2d 20 66 69 78 20 |ActualDx|.-- fix |
|00004bb0| 61 63 74 75 61 6c 64 78 | 20 6d 65 6e 75 20 74 68 |actualdx| menu th|
|00004bc0| 72 75 20 67 6c 6f 62 61 | 6c 0d 67 6c 6f 62 61 6c |ru globa|l.global|
|00004bd0| 20 41 63 74 75 61 6c 44 | 78 0d 67 6c 6f 62 61 6c | ActualD|x.global|
|00004be0| 20 63 6f 6e 64 69 74 69 | 6f 6e 0d 67 6c 6f 62 61 | conditi|on.globa|
|00004bf0| 6c 20 4a 61 63 6f 62 0d | 67 6c 6f 62 61 6c 20 76 |l Jacob.|global v|
|00004c00| 69 65 77 0d 67 6c 6f 62 | 61 6c 20 6c 65 76 65 6c |iew.glob|al level|
|00004c10| 0d 70 75 74 20 72 61 6e | 64 6f 6d 20 28 31 32 29 |.put ran|dom (12)|
|00004c20| 20 69 6e 74 6f 20 69 74 | 0d 70 75 74 20 69 74 20 | into it|.put it |
|00004c30| 69 6e 74 6f 20 4a 61 63 | 6f 62 20 2d 2d 20 77 61 |into Jac|ob -- wa|
|00004c40| 6e 74 20 6c 61 62 20 74 | 6f 20 3d 20 74 65 73 74 |nt lab t|o = test|
|00004c50| 20 69 74 65 6d 0d 70 75 | 74 20 69 74 20 2b 20 31 | item.pu|t it + 1|
|00004c60| 20 69 6e 74 6f 20 69 74 | 20 20 2d 2d 20 72 61 6e | into it| -- ran|
|00004c70| 67 65 20 69 73 20 32 20 | 2d 20 31 33 0d 69 66 20 |ge is 2 |- 13.if |
|00004c80| 69 74 20 3d 20 32 20 74 | 68 65 6e 0d 70 75 74 20 |it = 2 t|hen.put |
|00004c90| 69 74 20 26 20 22 2c 4e | 6f 72 6d 61 6c 22 20 69 |it & ",N|ormal" i|
|00004ca0| 6e 74 6f 20 41 63 74 75 | 61 6c 44 78 0d 70 75 74 |nto Actu|alDx.put|
|00004cb0| 20 22 6e 6f 72 6d 61 6c | 22 20 69 6e 74 6f 20 63 | "normal|" into c|
|00004cc0| 6f 6e 64 69 74 6f 6e 0d | 65 6e 64 20 69 66 0d 69 |onditon.|end if.i|
|00004cd0| 66 20 69 74 20 3d 20 33 | 20 74 68 65 6e 0d 70 75 |f it = 3| then.pu|
|00004ce0| 74 20 69 74 20 26 20 22 | 2c 41 73 74 68 6d 61 22 |t it & "|,Asthma"|
|00004cf0| 20 69 6e 74 6f 20 41 63 | 74 75 61 6c 44 78 0d 70 | into Ac|tualDx.p|
|00004d00| 75 74 20 22 61 73 74 68 | 6d 61 22 20 69 6e 74 6f |ut "asth|ma" into|
|00004d10| 20 63 6f 6e 64 69 74 69 | 6f 6e 0d 65 6e 64 20 69 | conditi|on.end i|
|00004d20| 66 0d 69 66 20 69 74 20 | 3d 20 34 20 74 68 65 6e |f.if it |= 4 then|
|00004d30| 0d 70 75 74 20 69 74 20 | 26 20 22 2c 42 50 22 20 |.put it |& ",BP" |
|00004d40| 69 6e 74 6f 20 41 63 74 | 75 61 6c 44 78 0d 70 75 |into Act|ualDx.pu|
|00004d50| 74 20 22 42 50 6e 65 75 | 6d 6f 6e 69 61 22 20 69 |t "BPneu|monia" i|
|00004d60| 6e 74 6f 20 63 6f 6e 64 | 69 74 69 6f 6e 0d 65 6e |nto cond|ition.en|
|00004d70| 64 20 69 66 0d 69 66 20 | 69 74 20 3d 20 35 20 74 |d if.if |it = 5 t|
|00004d80| 68 65 6e 0d 70 75 74 20 | 69 74 20 26 20 22 2c 52 |hen.put |it & ",R|
|00004d90| 4d 4c 20 50 6e 65 75 6d | 6f 6e 69 61 22 20 69 6e |ML Pneum|onia" in|
|00004da0| 74 6f 20 41 63 74 75 61 | 6c 44 78 0d 70 75 74 20 |to Actua|lDx.put |
|00004db0| 22 52 4d 4c 50 6e 65 75 | 6d 6f 6e 69 61 22 20 69 |"RMLPneu|monia" i|
|00004dc0| 6e 74 6f 20 63 6f 6e 64 | 69 74 69 6f 6e 0d 65 6e |nto cond|ition.en|
|00004dd0| 64 20 69 66 0d 69 66 20 | 69 74 20 3d 20 36 20 74 |d if.if |it = 6 t|
|00004de0| 68 65 6e 0d 70 75 74 20 | 69 74 20 26 20 22 2c 4c |hen.put |it & ",L|
|00004df0| 6f 62 61 72 20 50 6e 65 | 75 6d 6f 6e 69 61 22 20 |obar Pne|umonia" |
|00004e00| 69 6e 74 6f 20 41 63 74 | 75 61 6c 44 78 0d 70 75 |into Act|ualDx.pu|
|00004e10| 74 20 22 4c 6f 62 61 72 | 50 6e 65 75 6d 6f 6e 69 |t "Lobar|Pneumoni|
|00004e20| 61 22 20 69 6e 74 6f 20 | 63 6f 6e 64 69 74 69 6f |a" into |conditio|
|00004e30| 6e 0d 65 6e 64 20 69 66 | 0d 69 66 20 69 74 20 3d |n.end if|.if it =|
|00004e40| 20 37 20 74 68 65 6e 0d | 70 75 74 20 69 74 20 26 | 7 then.|put it &|
|00004e50| 20 22 2c 45 6d 70 68 79 | 73 65 6d 61 22 20 69 6e | ",Emphy|sema" in|
|00004e60| 74 6f 20 41 63 74 75 61 | 6c 44 78 0d 70 75 74 20 |to Actua|lDx.put |
|00004e70| 22 45 6d 70 68 79 73 65 | 6d 61 22 20 69 6e 74 6f |"Emphyse|ma" into|
|00004e80| 20 63 6f 6e 64 69 74 69 | 6f 6e 0d 70 75 74 20 56 | conditi|on.put V|
|00004e90| 69 65 77 20 26 20 4c 65 | 76 65 6c 20 26 20 22 49 |iew & Le|vel & "I|
|00004ea0| 6e 68 61 6c 65 22 20 69 | 6e 74 6f 20 69 74 0d 67 |nhale" i|nto it.g|
|00004eb0| 6f 20 74 6f 20 63 61 72 | 64 20 69 74 0d 65 6e 64 |o to car|d it.end|
|00004ec0| 20 69 66 0d 69 66 20 69 | 74 20 3d 20 38 20 74 68 | if.if i|t = 8 th|
|00004ed0| 65 6e 0d 70 75 74 20 69 | 74 20 26 20 22 2c 49 6e |en.put i|t & ",In|
|00004ee0| 74 65 72 73 74 69 74 69 | 61 6c 20 46 69 62 72 6f |terstiti|al Fibro|
|00004ef0| 73 69 73 22 20 69 6e 74 | 6f 20 41 63 74 75 61 6c |sis" int|o Actual|
|00004f00| 44 78 0d 70 75 74 20 22 | 49 46 69 62 72 6f 73 69 |Dx.put "|IFibrosi|
|00004f10| 73 22 20 69 6e 74 6f 20 | 63 6f 6e 64 69 74 69 6f |s" into |conditio|
|00004f20| 6e 0d 65 6e 64 20 69 66 | 0d 69 66 20 69 74 20 3d |n.end if|.if it =|
|00004f30| 20 39 20 74 68 65 6e 0d | 70 75 74 20 69 74 20 26 | 9 then.|put it &|
|00004f40| 20 22 2c 50 6e 65 75 6d | 6f 74 68 6f 72 61 78 22 | ",Pneum|othorax"|
|00004f50| 20 69 6e 74 6f 20 41 63 | 74 75 61 6c 44 78 0d 70 | into Ac|tualDx.p|
|00004f60| 75 74 20 22 70 6e 65 75 | 6d 6f 74 68 6f 72 61 78 |ut "pneu|mothorax|
|00004f70| 22 20 69 6e 74 6f 20 63 | 6f 6e 64 69 74 69 6f 6e |" into c|ondition|
|00004f80| 0d 65 6e 64 20 69 66 0d | 69 66 20 69 74 20 3d 20 |.end if.|if it = |
|00004f90| 31 30 20 74 68 65 6e 0d | 70 75 74 20 69 74 20 26 |10 then.|put it &|
|00004fa0| 20 22 2c 50 75 6c 6d 6f | 6e 61 72 79 20 49 6e 66 | ",Pulmo|nary Inf|
|00004fb0| 61 72 63 74 69 6f 6e 22 | 20 69 6e 74 6f 20 41 63 |arction"| into Ac|
|00004fc0| 74 75 61 6c 44 78 0d 70 | 75 74 20 22 69 6e 66 61 |tualDx.p|ut "infa|
|00004fd0| 72 63 74 22 20 69 6e 74 | 6f 20 63 6f 6e 64 69 74 |rct" int|o condit|
|00004fe0| 69 6f 6e 0d 65 6e 64 20 | 69 66 0d 69 66 20 69 74 |ion.end |if.if it|
|00004ff0| 20 3d 20 31 31 20 74 68 | 65 6e 0d 70 75 74 20 69 | = 11 th|en.put i|
|00005000| 74 20 26 20 22 2c 50 75 | 6c 6d 6f 6e 61 72 79 20 |t & ",Pu|lmonary |
|00005010| 43 61 72 63 69 6e 6f 6d | 61 22 20 69 6e 74 6f 20 |Carcinom|a" into |
|00005020| 41 63 74 75 61 6c 44 78 | 0d 70 75 74 20 22 63 61 |ActualDx|.put "ca|
|00005030| 6e 63 65 72 22 20 69 6e | 74 6f 20 63 6f 6e 64 69 |ncer" in|to condi|
|00005040| 74 69 6f 6e 0d 65 6e 64 | 20 69 66 0d 69 66 20 69 |tion.end| if.if i|
|00005050| 74 20 3d 20 31 32 20 74 | 68 65 6e 0d 70 75 74 20 |t = 12 t|hen.put |
|00005060| 69 74 20 26 20 22 2c 50 | 75 6c 6d 6f 6e 61 72 79 |it & ",P|ulmonary|
|00005070| 20 45 66 66 75 73 69 6f | 6e 22 20 69 6e 74 6f 20 | Effusio|n" into |
|00005080| 41 63 74 75 61 6c 44 78 | 0d 70 75 74 20 22 65 66 |ActualDx|.put "ef|
|00005090| 66 75 73 69 6f 6e 22 20 | 69 6e 74 6f 20 63 6f 6e |fusion" |into con|
|000050a0| 64 69 74 69 6f 6e 0d 65 | 6e 64 20 69 66 0d 69 66 |dition.e|nd if.if|
|000050b0| 20 69 74 20 3d 20 31 33 | 20 74 68 65 6e 0d 70 75 | it = 13| then.pu|
|000050c0| 74 20 69 74 20 26 20 22 | 2c 54 75 62 65 72 63 75 |t it & "|,Tubercu|
|000050d0| 6c 6f 73 69 73 22 20 69 | 6e 74 6f 20 41 63 74 75 |losis" i|nto Actu|
|000050e0| 61 6c 44 78 0d 70 75 74 | 20 22 54 42 22 20 69 6e |alDx.put| "TB" in|
|000050f0| 74 6f 20 70 61 74 69 65 | 6e 74 0d 65 6e 64 20 69 |to patie|nt.end i|
|00005100| 66 0d 70 75 74 20 63 6f | 6e 64 69 74 69 6f 6e 20 |f.put co|ndition |
|00005110| 69 6e 74 6f 20 62 6b 67 | 6e 64 20 66 69 65 6c 64 |into bkg|nd field|
|00005120| 20 63 6f 6e 64 69 74 69 | 6f 6e 46 0d 65 6e 64 20 | conditi|onF.end |
|00005130| 4d 61 6b 65 4e 65 77 50 | 61 74 69 65 6e 74 0d 0d |MakeNewP|atient..|
|00005140| 6f 6e 20 43 6f 6d 70 61 | 72 65 44 78 0d 67 6c 6f |on Compa|reDx.glo|
|00005150| 62 61 6c 20 59 6f 75 72 | 44 78 0d 67 6c 6f 62 61 |bal Your|Dx.globa|
|00005160| 6c 20 41 63 74 75 61 6c | 44 78 0d 67 6c 6f 62 61 |l Actual|Dx.globa|
|00005170| 6c 20 54 65 73 74 50 6f | 70 55 70 49 74 65 6d 0d |l TestPo|pUpItem.|
|00005180| 70 75 74 20 69 74 65 6d | 20 31 20 6f 66 20 41 63 |put item| 1 of Ac|
|00005190| 74 75 61 6c 44 78 20 69 | 6e 74 6f 20 74 65 6d 70 |tualDx i|nto temp|
|000051a0| 31 0d 70 75 74 20 69 74 | 65 6d 20 32 20 6f 66 20 |1.put it|em 2 of |
|000051b0| 54 65 73 74 50 6f 70 55 | 70 49 74 65 6d 20 69 6e |TestPopU|pItem in|
|000051c0| 74 6f 20 59 6f 75 72 44 | 78 0d 67 65 74 20 53 65 |to YourD|x.get Se|
|000051d0| 74 76 6f 6c 75 6d 65 28 | 36 29 0d 69 66 20 74 65 |tvolume(|6).if te|
|000051e0| 6d 70 31 20 3d 20 59 6f | 75 72 44 78 20 74 68 65 |mp1 = Yo|urDx the|
|000051f0| 6e 0d 69 66 20 72 61 6e | 64 6f 6d 20 28 32 29 20 |n.if ran|dom (2) |
|00005200| 3d 20 31 20 74 68 65 6e | 0d 70 6c 61 79 20 22 67 |= 1 then|.play "g|
|00005210| 6f 6f 64 22 0d 65 6c 73 | 65 0d 70 6c 61 79 20 22 |ood".els|e.play "|
|00005220| 77 65 6c 6c 20 64 6f 6e | 65 22 0d 65 6e 64 20 69 |well don|e".end i|
|00005230| 66 0d 65 6c 73 65 0d 69 | 66 20 72 61 6e 64 6f 6d |f.else.i|f random|
|00005240| 20 28 32 29 20 3d 20 31 | 20 74 68 65 6e 0d 70 6c | (2) = 1| then.pl|
|00005250| 61 79 20 22 74 72 79 20 | 61 67 61 69 6e 22 0d 65 |ay "try |again".e|
|00005260| 6c 73 65 0d 70 6c 61 79 | 20 22 69 6e 63 6f 72 72 |lse.play| "incorr|
|00005270| 65 63 74 22 0d 65 6e 64 | 20 69 66 0d 65 6e 64 20 |ect".end| if.end |
|00005280| 69 66 0d 65 6e 64 20 43 | 6f 6d 70 61 72 65 44 78 |if.end C|ompareDx|
|00005290| 0d 0d 6f 6e 20 48 61 6e | 64 6c 65 54 65 73 74 50 |..on Han|dleTestP|
|000052a0| 6f 70 49 74 65 6d 0d 67 | 6c 6f 62 61 6c 20 54 65 |opItem.g|lobal Te|
|000052b0| 73 74 50 6f 70 55 70 49 | 74 65 6d 0d 2d 2d 20 77 |stPopUpI|tem.-- w|
|000052c0| 68 65 6e 20 6e 65 77 20 | 70 61 74 69 65 6e 74 2c |hen new |patient,|
|000052d0| 20 66 69 6c 6c 20 61 63 | 74 75 61 6c 44 78 20 77 | fill ac|tualDx w|
|000052e0| 69 74 68 20 61 63 74 75 | 61 6c 0d 69 66 20 69 74 |ith actu|al.if it|
|000052f0| 65 6d 20 31 20 6f 66 20 | 54 65 73 74 50 6f 70 55 |em 1 of |TestPopU|
|00005300| 70 49 74 65 6d 20 3d 20 | 31 20 74 68 65 6e 0d 6d |pItem = |1 then.m|
|00005310| 61 6b 65 4e 65 77 50 61 | 74 69 65 6e 74 0d 65 6e |akeNewPa|tient.en|
|00005320| 64 20 69 66 0d 2d 2d 20 | 77 68 65 6e 20 65 6e 74 |d if.-- |when ent|
|00005330| 65 72 20 64 69 61 67 6e | 6f 73 69 73 2c 20 6d 61 |er diagn|osis, ma|
|00005340| 72 6b 20 67 6c 6f 62 61 | 6c 20 59 6f 75 72 44 78 |rk globa|l YourDx|
|00005350| 0d 69 66 20 69 74 65 6d | 20 31 20 6f 66 20 54 65 |.if item| 1 of Te|
|00005360| 73 74 50 6f 70 55 70 49 | 74 65 6d 20 3d 20 32 20 |stPopUpI|tem = 2 |
|00005370| 74 68 65 6e 0d 43 6f 6d | 70 61 72 65 44 78 0d 65 |then.Com|pareDx.e|
|00005380| 6e 64 20 69 66 0d 2d 2d | 20 6e 6f 20 61 63 74 69 |nd if.--| no acti|
|00005390| 6f 6e 20 6f 6e 20 61 63 | 74 75 61 6c 20 64 78 3b |on on ac|tual dx;|
|000053a0| 20 6f 6e 6c 79 20 6d 65 | 6e 75 20 63 68 61 6e 67 | only me|nu chang|
|000053b0| 65 0d 65 6e 64 20 48 61 | 6e 64 6c 65 54 65 73 74 |e.end Ha|ndleTest|
|000053c0| 50 6f 70 49 74 65 6d 0d | 0d 0d 6f 6e 20 43 6c 65 |PopItem.|..on Cle|
|000053d0| 61 72 41 75 73 42 75 74 | 74 6f 6e 73 0d 48 69 64 |arAusBut|tons.Hid|
|000053e0| 65 20 66 69 65 6c 64 20 | 6a 6f 6a 6f 31 0d 68 69 |e field |jojo1.hi|
|000053f0| 64 65 20 66 69 65 6c 64 | 20 6a 6f 6a 6f 32 0d 68 |de field| jojo2.h|
|00005400| 69 64 65 20 66 69 65 6c | 64 20 6a 6f 6a 6f 34 0d |ide fiel|d jojo4.|
|00005410| 65 6e 64 20 43 6c 65 61 | 72 41 75 73 42 75 74 74 |end Clea|rAusButt|
|00005420| 6f 6e 73 0d 0d 6f 6e 20 | 47 72 65 79 41 75 73 42 |ons..on |GreyAusB|
|00005430| 75 74 74 6f 6e 73 0d 53 | 68 6f 77 20 66 69 65 6c |uttons.S|how fiel|
|00005440| 64 20 6a 6f 6a 6f 31 0d | 73 68 6f 77 20 66 69 65 |d jojo1.|show fie|
|00005450| 6c 64 20 6a 6f 6a 6f 32 | 0d 73 68 6f 77 20 66 69 |ld jojo2|.show fi|
|00005460| 65 6c 64 20 6a 6f 6a 6f | 34 0d 65 6e 64 20 47 72 |eld jojo|4.end Gr|
|00005470| 65 79 41 75 73 42 75 74 | 74 6f 6e 73 0d 0d 6f 6e |eyAusBut|tons..on|
|00005480| 20 43 6c 65 61 72 50 65 | 72 42 75 74 74 6f 6e 73 | ClearPe|rButtons|
|00005490| 0d 68 69 64 65 20 66 69 | 65 6c 64 20 6d 6f 6a 6f |.hide fi|eld mojo|
|000054a0| 31 0d 68 69 64 65 20 66 | 69 65 6c 64 20 6d 6f 6a |1.hide f|ield moj|
|000054b0| 6f 32 0d 65 6e 64 20 43 | 6c 65 61 72 50 65 72 42 |o2.end C|learPerB|
|000054c0| 75 74 74 6f 6e 73 0d 0d | 6f 6e 20 47 72 65 79 50 |uttons..|on GreyP|
|000054d0| 65 72 42 75 74 74 6f 6e | 73 0d 53 68 6f 77 20 66 |erButton|s.Show f|
|000054e0| 69 65 6c 64 20 6d 6f 6a | 6f 31 0d 73 68 6f 77 20 |ield moj|o1.show |
|000054f0| 66 69 65 6c 64 20 6d 6f | 6a 6f 32 0d 65 6e 64 20 |field mo|jo2.end |
|00005500| 47 72 65 79 50 65 72 42 | 75 74 74 6f 6e 73 0d 0d |GreyPerB|uttons..|
|00005510| 0d 6f 6e 20 6f 70 65 6e | 53 74 61 63 6b 20 20 2d |.on open|Stack -|
|00005520| 2d 20 28 20 2d 2d 20 7c | 20 69 6e 69 74 20 20 29 |- ( -- || init )|
|00005530| 0d 67 6f 20 74 6f 20 63 | 61 72 64 20 22 66 72 6f |.go to c|ard "fro|
|00005540| 6e 74 53 6b 69 6e 45 78 | 68 61 6c 65 22 0d 70 75 |ntSkinEx|hale".pu|
|00005550| 73 68 20 63 61 72 64 0d | 76 69 73 75 61 6c 20 65 |sh card.|visual e|
|00005560| 66 66 65 63 74 20 64 69 | 73 73 6f 6c 76 65 0d 67 |ffect di|ssolve.g|
|00005570| 6f 20 74 6f 20 63 61 72 | 64 20 22 61 62 6f 75 74 |o to car|d "about|
|00005580| 20 63 61 72 64 22 0d 67 | 6c 6f 62 61 6c 20 56 69 | card".g|lobal Vi|
|00005590| 65 77 0d 67 6c 6f 62 61 | 6c 20 4c 65 76 65 6c 0d |ew.globa|l Level.|
|000055a0| 67 6c 6f 62 61 6c 20 4d | 79 43 75 72 73 6f 72 0d |global M|yCursor.|
|000055b0| 67 6c 6f 62 61 6c 20 4d | 6f 64 65 0d 67 6c 6f 62 |global M|ode.glob|
|000055c0| 61 6c 20 4c 61 73 74 4d | 6f 64 65 0d 67 6c 6f 62 |al LastM|ode.glob|
|000055d0| 61 6c 20 4c 61 62 4d 6f | 64 65 0d 67 6c 6f 62 61 |al LabMo|de.globa|
|000055e0| 6c 20 76 6f 6c 75 6d 65 | 0d 67 6c 6f 62 61 6c 20 |l volume|.global |
|000055f0| 6f 72 69 67 56 6f 6c 75 | 6d 65 0d 67 6c 6f 62 61 |origVolu|me.globa|
|00005600| 6c 20 52 65 76 69 65 77 | 50 6f 70 55 70 49 74 65 |l Review|PopUpIte|
|00005610| 6d 0d 67 6c 6f 62 61 6c | 20 4c 61 62 50 6f 70 55 |m.global| LabPopU|
|00005620| 70 49 74 65 6d 0d 67 6c | 6f 62 61 6c 20 54 65 73 |pItem.gl|obal Tes|
|00005630| 74 50 6f 70 55 70 49 74 | 65 6d 0d 67 6c 6f 62 61 |tPopUpIt|em.globa|
|00005640| 6c 20 43 6f 6e 64 69 74 | 69 6f 6e 0d 67 6c 6f 62 |l Condit|ion.glob|
|00005650| 61 6c 20 41 63 74 75 61 | 6c 44 78 0d 67 6c 6f 62 |al Actua|lDx.glob|
|00005660| 61 6c 20 4a 61 63 6f 62 | 0d 0d 68 69 64 65 20 6d |al Jacob|..hide m|
|00005670| 65 6e 75 62 61 72 0d 68 | 69 64 65 20 6d 73 67 0d |enubar.h|ide msg.|
|00005680| 2d 2d 20 67 72 65 79 50 | 65 72 42 75 74 74 6f 6e |-- greyP|erButton|
|00005690| 73 0d 2d 2d 20 43 6c 65 | 61 72 41 75 73 42 75 74 |s.-- Cle|arAusBut|
|000056a0| 74 6f 6e 73 0d 70 75 74 | 20 22 66 72 6f 6e 74 22 |tons.put| "front"|
|000056b0| 20 69 6e 74 6f 20 56 69 | 65 77 0d 70 75 74 20 22 | into Vi|ew.put "|
|000056c0| 73 6b 69 6e 22 20 69 6e | 74 6f 20 4c 65 76 65 6c |skin" in|to Level|
|000056d0| 0d 70 75 74 20 22 73 63 | 6f 70 65 22 20 69 6e 74 |.put "sc|ope" int|
|000056e0| 6f 20 4d 79 43 75 72 73 | 6f 72 0d 70 75 74 20 22 |o MyCurs|or.put "|
|000056f0| 6c 61 62 22 20 69 6e 74 | 6f 20 4d 6f 64 65 0d 70 |lab" int|o Mode.p|
|00005700| 75 74 20 22 6c 61 62 22 | 20 69 6e 74 6f 20 4c 61 |ut "lab"| into La|
|00005710| 73 74 4d 6f 64 65 0d 70 | 75 74 20 22 49 6e 45 78 |stMode.p|ut "InEx|
|00005720| 68 61 6c 65 22 20 69 6e | 74 6f 20 4c 61 62 4d 6f |hale" in|to LabMo|
|00005730| 64 65 0d 50 75 74 20 31 | 20 69 6e 74 6f 20 4c 61 |de.Put 1| into La|
|00005740| 62 50 6f 70 55 70 49 74 | 65 6d 0d 50 75 74 20 31 |bPopUpIt|em.Put 1|
|00005750| 20 69 6e 74 6f 20 4a 61 | 63 6f 62 0d 50 75 74 20 | into Ja|cob.Put |
|00005760| 22 30 22 20 69 6e 74 6f | 20 52 65 76 69 65 77 50 |"0" into| ReviewP|
|00005770| 6f 70 55 70 49 74 65 6d | 0d 50 75 74 20 22 30 22 |opUpItem|.Put "0"|
|00005780| 20 69 6e 74 6f 20 54 65 | 73 74 50 6f 70 55 70 49 | into Te|stPopUpI|
|00005790| 74 65 6d 0d 70 75 74 20 | 22 4e 6f 72 6d 61 6c 22 |tem.put |"Normal"|
|000057a0| 20 69 6e 74 6f 20 43 6f | 6e 64 69 74 69 6f 6e 0d | into Co|ndition.|
|000057b0| 70 75 74 20 22 32 2c 4e | 6f 72 6d 61 6c 22 20 69 |put "2,N|ormal" i|
|000057c0| 6e 74 6f 20 41 63 74 75 | 61 6c 44 78 0d 70 75 74 |nto Actu|alDx.put|
|000057d0| 20 47 65 74 56 6f 6c 75 | 6d 65 28 29 20 69 6e 74 | GetVolu|me() int|
|000057e0| 6f 20 76 6f 6c 75 6d 65 | 0d 70 75 74 20 76 6f 6c |o volume|.put vol|
|000057f0| 75 6d 65 20 69 6e 74 6f | 20 6f 72 69 67 56 6f 6c |ume into| origVol|
|00005800| 75 6d 65 0d 2d 2d 20 70 | 75 74 20 43 6f 6e 64 69 |ume.-- p|ut Condi|
|00005810| 74 69 6f 6e 20 69 6e 74 | 6f 20 62 6b 67 6e 64 20 |tion int|o bkgnd |
|00005820| 66 69 65 6c 64 20 63 6f | 6e 64 69 74 69 6f 6e 46 |field co|nditionF|
|00005830| 0d 0d 2d 2d 20 48 69 6c | 69 74 65 4d 6f 64 65 42 |..-- Hil|iteModeB|
|00005840| 75 74 74 6f 6e 0d 2d 2d | 20 48 69 6c 69 74 65 43 |utton.--| HiliteC|
|00005850| 75 72 73 6f 72 42 75 74 | 74 6f 6e 0d 2d 2d 20 48 |ursorBut|ton.-- H|
|00005860| 69 6c 69 74 65 4c 61 62 | 42 75 74 74 6f 6e 0d 2d |iliteLab|Button.-|
|00005870| 2d 20 43 6c 65 61 72 41 | 75 73 42 75 74 74 6f 6e |- ClearA|usButton|
|00005880| 73 0d 65 6e 64 20 6f 70 | 65 6e 53 74 61 63 6b 0d |s.end op|enStack.|
|00005890| 0d 6f 6e 20 72 65 73 65 | 74 4d 79 50 6f 70 55 70 |.on rese|tMyPopUp|
|000058a0| 73 20 20 2d 2d 20 66 6f | 72 20 68 69 6c 69 74 65 |s -- fo|r hilite|
|000058b0| 20 6f 66 20 6d 6f 64 65 | 0d 67 6c 6f 62 61 6c 20 | of mode|.global |
|000058c0| 6c 61 62 50 6f 70 55 70 | 49 74 65 6d 0d 67 6c 6f |labPopUp|Item.glo|
|000058d0| 62 61 6c 20 54 65 73 74 | 50 6f 70 55 70 49 74 65 |bal Test|PopUpIte|
|000058e0| 6d 0d 67 6c 6f 62 61 6c | 20 52 65 76 69 65 77 50 |m.global| ReviewP|
|000058f0| 6f 70 55 70 49 74 65 6d | 0d 70 75 74 20 30 20 69 |opUpItem|.put 0 i|
|00005900| 6e 74 6f 20 6c 61 62 50 | 6f 70 55 70 49 74 65 6d |nto labP|opUpItem|
|00005910| 0d 70 75 74 20 30 20 69 | 6e 74 6f 20 54 65 73 74 |.put 0 i|nto Test|
|00005920| 50 6f 70 55 70 49 74 65 | 6d 0d 70 75 74 20 30 20 |PopUpIte|m.put 0 |
|00005930| 69 6e 74 6f 20 72 65 76 | 69 65 77 50 6f 70 55 70 |into rev|iewPopUp|
|00005940| 49 74 65 6d 0d 65 6e 64 | 20 72 65 73 65 74 4d 79 |Item.end| resetMy|
|00005950| 50 6f 70 55 70 73 0d 0d | 6f 6e 20 63 6c 6f 73 65 |PopUps..|on close|
|00005960| 73 74 61 63 6b 0d 67 6c | 6f 62 61 6c 20 6f 72 69 |stack.gl|obal ori|
|00005970| 67 56 6f 6c 75 6d 65 0d | 67 65 74 20 53 65 74 56 |gVolume.|get SetV|
|00005980| 6f 6c 75 6d 65 28 6f 72 | 69 67 56 6f 6c 75 6d 65 |olume(or|igVolume|
|00005990| 29 0d 2d 2d 20 63 6c 65 | 61 72 41 75 73 42 75 74 |).-- cle|arAusBut|
|000059a0| 74 6f 6e 73 0d 65 6e 64 | 20 63 6c 6f 73 65 73 74 |tons.end| closest|
|000059b0| 61 63 6b 0d 00 00 00 00 | 00 00 00 00 00 00 00 00 |ack.....|........|
|000059c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000059d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000059e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000059f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005a00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005a10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005a20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005a30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005a40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005a50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005a60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005a70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005a80| 00 00 04 00 4d 41 53 54 | ff ff ff ff 00 00 00 00 |....MAST|........|
|00005a90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005aa0| 00 22 35 49 00 23 4b c4 | 00 06 7e b1 00 1a fc f8 |."5I.#K.|..~.....|
|00005ab0| 00 03 b4 51 00 0a b6 49 | 00 05 29 7a 00 12 ef 37 |...Q...I|..)z...7|
|00005ac0| 00 07 bc 2a 00 20 f8 6d | 00 0a be bc 00 0b 54 ee |...*. .m|......T.|
|00005ad0| 00 0b 5f 39 00 04 c2 b7 | 00 06 18 e4 00 07 59 c4 |.._9....|......Y.|
|00005ae0| 00 08 8c a9 00 0b d5 29 | 00 0d a0 32 00 0f 54 8c |.......)|...2..T.|
|00005af0| 00 27 54 81 00 02 f0 da | 00 0d a8 39 00 2a 81 d9 |.'T.....|...9.*..|
|00005b00| 00 11 3d db 00 13 a3 2e | 00 14 3a fc 00 15 f3 42 |..=.....|..:....B|
|00005b10| 00 19 41 a9 00 08 ef 83 | 00 13 ac 8d 00 12 f8 87 |..A.....|........|
|00005b20| 00 14 43 d7 00 15 fe e1 | 00 17 a7 b1 00 19 4a 43 |..C.....|......JC|
|00005b30| 00 21 93 70 00 22 2c 41 | 00 23 42 58 00 24 4d ec |.!.p.",A|.#BX.$M.|
|00005b40| 00 25 a8 3b 00 21 01 2d | 00 21 9c 8c 00 42 83 6d |.%.;.!.-|.!...B.m|
|00005b50| 00 2a 6d f4 00 24 56 20 | 00 25 b1 44 00 1b 9a e6 |.*m..$V |.%.D....|
|00005b60| 00 1c 35 03 00 1d 46 43 | 00 1e 68 ea 00 1b 05 05 |..5...FC|..h.....|
|00005b70| 00 1b a3 09 00 1c 3d 49 | 00 1d 4f 56 00 1f c2 d5 |......=I|..OV....|
|00005b80| 00 1f cb 79 00 1e 71 11 | 00 17 9e 36 00 26 e1 37 |...y..q.|...6.&.7|
|00005b90| 00 08 f6 26 00 0f 5c 2c | 00 44 05 cc 00 44 a2 e3 |...&..\,|.D...D..|
|00005ba0| 00 2c fc e8 00 0a a9 7b | 00 28 0a 9a 00 2d 3d 91 |.,.....{|.(...-=.|
|00005bb0| 00 42 6d ec 00 29 35 2a | 00 2d 31 d7 00 30 7c 43 |.Bm..)5*|.-1..0|C|
|00005bc0| 00 34 75 5f 00 2e 77 9c | 00 2c 58 3d 00 29 50 e5 |.4u_..w.|.,X=.)P.|
|00005bd0| 00 39 b1 4f 00 2d 0a 4b | 00 2b 13 85 00 2d 61 f8 |.9.O.-.K|.+...-a.|
|00005be0| 00 3c 9b 18 00 2c 7e b1 | 00 36 a7 d6 00 36 c4 f8 |.<...,~.|.6...6..|
|00005bf0| 00 3d 45 a5 00 3e 8d 37 | 00 42 cd 55 00 3e e1 88 |.=E..>.7|.B.U.>..|
|00005c00| 00 3f 3c 57 00 3f 8c c0 | 00 3f d9 88 00 40 35 db |.?<W.?..|.?...@5.|
|00005c10| 00 32 36 cc 00 3a 5a b4 | 00 3d 71 8e 00 3d 95 a6 |.26..:Z.|.=q..=..|
|00005c20| 00 3d de b3 00 3d fb a6 | 00 3e 20 77 00 3e 41 66 |.=...=..|.> w.>Af|
|00005c30| 00 3e 66 00 00 3a f4 94 | 00 40 80 7a 00 42 21 a0 |.>f..:..|.@.z.B!.|
|00005c40| 00 2b a9 63 00 30 ed 55 | 00 30 96 d3 00 34 89 1c |.+.c.0.U|.0...4..|
|00005c50| 00 31 04 1a 00 31 3f 23 | 00 31 c2 3c 00 32 d3 80 |.1...1?#|.1.<.2..|
|00005c60| 00 2d de 53 00 2e 4b c2 | 00 2e 5f 54 00 2f 11 a9 |.-.S..K.|.._T./..|
|00005c70| 00 35 71 72 00 35 86 15 | 00 36 0a 55 00 36 c7 2e |.5qr.5..|.6.U.6..|
|00005c80| 00 3a 1d ad 00 37 b8 26 | 00 37 c6 63 00 3b df c1 |.:...7.&|.7.c.;..|
|00005c90| 00 40 d3 e9 00 41 2f c3 | 00 41 81 1e 00 28 b1 5e |.@...A/.|.A...(.^|
|00005ca0| 00 28 c6 90 00 29 ea c5 | 00 2a 03 09 00 33 9f ab |.(...)..|.*...3..|
|00005cb0| 00 31 5a 28 00 30 9b e6 | 00 30 b3 21 00 2f 89 b4 |.1Z(.0..|.0.!./..|
|00005cc0| 00 30 0e 9e 00 30 11 f4 | 00 31 1d 57 00 31 3c 33 |.0...0..|.1.W.1<3|
|00005cd0| 00 32 33 b1 00 31 72 5b | 00 3d 4f 44 00 3d 79 d0 |.23..1r[|.=OD.=y.|
|00005ce0| 00 34 c9 45 00 41 d3 40 | 00 2f 9b b2 00 2f 9e e7 |.4.E.A.@|./.../..|
|00005cf0| 00 32 b2 f5 00 31 c5 5e | 00 2e 89 cd 00 2a c4 89 |.2...1.^|.....*..|
|00005d00| 00 3d 9d cf 00 3d ba eb | 00 3d c2 eb 00 3d e6 1e |.=...=..|.=...=..|
|00005d10| 00 3e 09 ce 00 3e 29 ef | 00 3e 49 33 00 3e 70 5b |.>...>).|.>I3.>p[|
|00005d20| 00 3a 0b 64 00 42 92 ef | 00 42 bf 8b 00 43 08 53 |.:.d.B..|.B...C.S|
|00005d30| 00 43 56 93 00 43 81 bb | 00 43 1a e0 00 43 c6 45 |.CV..C..|.C...C.E|
|00005d40| 00 43 9a 8d 00 43 d0 fd | 00 43 4a 93 00 26 f0 68 |.C...C..|.CJ..&.h|
|00005d50| 00 39 c8 bc 00 36 58 1f | 00 0b f1 da 00 2e 9a f2 |.9...6X.|........|
|00005d60| 00 2a d3 f2 00 2e 0f b3 | 00 2f 70 81 00 27 67 27 |.*......|./p..'g'|
|00005d70| 00 27 e6 5a 00 2e 29 86 | 00 2d f6 2f 00 3b 45 9e |.'.Z..).|.-./.;E.|
|00005d80| 00 3a a6 9e 00 3a 6a aa | 00 3b 54 8d 00 3a ff fd |.:...:j.|.;T..:..|
|00005d90| 00 35 cf 0b 00 40 46 20 | 00 36 1a 67 00 2b 20 0e |.5...@F |.6.g.+ .|
|00005da0| 00 2b 5d 09 00 2b 6d 3e | 00 2b c2 e3 00 2c 00 40 |.+]..+m>|.+...,.@|
|00005db0| 00 2c 14 89 00 2c 6b b8 | 00 2c ab b9 00 2c 8c f1 |.,...,k.|.,...,..|
|00005dc0| 00 2c bf a9 00 2d 8e 13 | 00 2d 6f fc 00 2f 25 8d |.,...-..|.-o../%.|
|00005dd0| 00 35 27 44 00 36 e4 d4 | 00 35 1b a1 00 2d 9f 35 |.5'D.6..|.5...-.5|
|00005de0| 00 36 69 60 00 35 c2 c3 | 00 35 97 86 00 3b 99 a1 |.6i`.5..|.5...;..|
|00005df0| 00 0a 27 ce 00 00 00 00 | 00 27 52 c9 00 33 aa 47 |..'.....|.'R..3.G|
|00005e00| 00 35 34 de 00 3c 39 ae | 00 3b a0 25 00 3c 49 86 |.54..<9.|.;.%.<I.|
|00005e10| 00 3a b8 06 00 3c fb bf | 00 3b f1 79 00 3c ec 72 |.:...<..|.;.y.<.r|
|00005e20| 00 3c aa 06 00 3e 9a 17 | 00 31 82 91 00 3e f6 ff |.<...>..|.1...>..|
|00005e30| 00 3f 47 32 00 3f 9b c2 | 00 3f eb a7 00 00 00 00 |.?G2.?..|.?......|
|00005e40| 00 02 f4 3b 00 40 92 8d | 00 40 e6 98 00 41 40 7f |...;.@..|.@...A@.|
|00005e50| 00 41 94 bf 00 41 dc 72 | 00 42 2f 23 00 00 00 00 |.A...A.r|.B/#....|
|00005e60| 00 03 34 ed 00 03 74 80 | 00 00 00 00 00 00 00 00 |..4...t.|........|
|00005e70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005e80| 00 00 00 80 4c 49 53 54 | 00 00 1d da 00 00 00 03 |....LIST|........|
|00005e90| 00 00 08 00 00 00 00 73 | 00 24 00 02 00 08 00 03 |.......s|.$......|
|00005ea0| b1 80 23 96 00 00 00 73 | 00 00 00 00 00 00 00 00 |..#....s|........|
|00005eb0| 00 00 f0 3b 00 38 00 00 | f8 ed 00 38 00 00 f9 80 |...;.8..|...8....|
|00005ec0| 00 03 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005ed0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005ee0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005ef0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005f00| 00 00 08 00 50 41 47 45 | 00 00 f0 3b 00 00 1d da |....PAGE|...;....|
|00005f10| ca 80 3e 34 00 00 00 00 | 00 00 0d 49 e0 00 10 0c |..>4....|...I....|
|00005f20| 00 00 00 10 02 00 10 40 | 80 00 10 00 00 00 40 40 |.......@|......@@|
|00005f30| 00 20 0d 00 12 01 00 00 | 00 00 10 00 00 00 13 ee |. ......|........|
|00005f40| a0 40 10 0c 00 00 00 10 | 00 00 10 40 88 00 00 00 |.@......|...@....|
|00005f50| 00 00 40 40 00 00 05 01 | 02 01 00 08 00 02 10 00 |..@@....|........|
|00005f60| 00 00 19 29 a0 00 50 08 | 00 00 00 10 02 00 10 40 |...)..P.|.......@|
|00005f70| 00 00 00 00 00 04 00 40 | 02 01 0c 00 02 01 08 02 |.......@|........|
|00005f80| 00 00 30 00 00 00 1a 32 | a0 00 10 08 00 00 00 10 |..0....2|........|
|00005f90| 00 00 50 40 08 00 00 00 | 00 0c 00 40 02 10 04 00 |..P@....|...@....|
|00005fa0| 02 01 08 0a 00 00 10 00 | 00 00 1b 8c a0 00 10 08 |........|........|
|00005fb0| 00 00 20 90 02 00 10 40 | 00 00 00 00 00 40 00 40 |.. ....@|.....@.@|
|00005fc0| 00 00 8e 01 02 01 00 00 | 20 00 10 00 00 00 1c 81 |........| .......|
|00005fd0| a0 00 10 08 00 40 20 90 | 60 00 00 40 08 00 02 00 |.....@ .|`..@....|
|00005fe0| 40 00 00 60 00 00 82 10 | 02 00 00 08 00 40 11 00 |@..`....|.....@..|
|00005ff0| 00 00 0f 37 e0 00 10 00 | 00 00 00 10 02 01 30 00 |...7....|......0.|
|00006000| 80 00 10 00 00 00 10 40 | 80 20 0c 00 10 01 00 40 |.......@|. .....@|
|00006010| 00 00 00 00 00 00 21 2e | a0 40 10 00 00 00 00 10 |......!.|.@......|
|00006020| 02 01 30 00 88 00 00 00 | 00 00 10 40 80 00 04 01 |..0.....|...@....|
|00006030| 00 01 00 48 00 02 00 00 | 00 00 22 fc a0 00 50 00 |...H....|.."...P.|
|00006040| 00 00 04 10 02 01 30 00 | 00 00 00 00 00 04 10 40 |......0.|.......@|
|00006050| 80 01 0c 00 00 01 00 00 | 00 00 20 00 00 00 23 42 |........|.. ...#B|
|00006060| a0 00 10 00 00 00 04 10 | 00 01 70 00 08 00 00 00 |........|..p.....|
|00006070| 00 0c 10 40 80 10 04 00 | 00 01 00 08 00 00 20 00 |...@....|...... .|
|00006080| 00 00 42 36 a0 00 10 00 | 00 00 00 11 02 01 32 00 |..B6....|......2.|
|00006090| 00 00 00 20 00 40 10 40 | 80 00 0e 01 00 01 00 00 |... .@.@|........|
|000060a0| 20 00 00 00 00 00 24 a9 | a0 00 10 00 00 40 00 01 | .....$.|.....@..|
|000060b0| 60 01 22 00 08 00 02 20 | 40 00 10 60 80 00 02 10 |`.".... |@..`....|
|000060c0| 00 00 00 08 00 40 01 00 | 00 00 0b f8 e0 00 50 80 |.....@..|......P.|
|000060d0| 00 40 00 10 02 00 10 04 | 80 00 10 00 00 00 40 40 |.@......|......@@|
|000060e0| 00 20 1c 80 10 01 00 00 | 00 00 00 00 00 00 37 e6 |. ......|......7.|
|000060f0| a0 40 50 80 00 40 00 10 | 00 00 10 04 88 00 00 00 |.@P..@..|........|
|00006100| 00 00 40 40 00 00 14 81 | 00 01 00 08 00 02 00 00 |..@@....|........|
|00006110| 00 00 38 03 a0 00 40 00 | 10 40 00 00 02 00 00 00 |..8...@.|.@......|
|00006120| 00 00 00 00 00 04 00 40 | 00 01 18 80 00 00 00 02 |.......@|........|
|00006130| 00 00 20 80 00 00 39 43 | a0 00 50 00 10 40 00 10 |.. ...9C|..P..@..|
|00006140| 00 00 50 00 08 00 00 00 | 00 0c 00 40 00 10 14 80 |..P.....|...@....|
|00006150| 00 01 00 0a 00 00 00 80 | 00 00 3a ea a0 00 50 00 |........|..:...P.|
|00006160| 00 40 20 10 02 00 10 00 | 00 00 00 80 00 40 00 40 |.@ .....|.....@.@|
|00006170| 00 00 1e 81 00 01 00 00 | 20 00 00 00 00 00 3f d5 |........| .....?.|
|00006180| a0 00 50 00 00 40 20 10 | 40 00 10 00 08 00 00 80 |..P..@ .|@.......|
|00006190| 00 00 00 40 00 00 16 90 | 00 01 00 08 00 00 00 00 |...@....|........|
|000061a0| 00 00 11 6d e0 00 10 00 | 00 00 00 10 02 04 10 00 |...m....|........|
|000061b0| 80 04 10 00 80 00 61 50 | 00 20 0c 00 10 01 00 00 |......aP|. ......|
|000061c0| 80 00 00 00 00 00 2c 70 | a0 40 10 00 00 00 00 10 |......,p|.@......|
|000061d0| 00 04 10 00 88 04 00 00 | 80 00 61 50 00 00 04 01 |........|..aP....|
|000061e0| 00 01 00 08 80 02 00 00 | 00 00 2d 41 a0 00 50 00 |........|..-A..P.|
|000061f0| 00 00 00 10 02 00 10 00 | 00 05 00 00 00 04 21 50 |........|......!P|
|00006200| 00 01 0c 00 00 01 00 02 | 80 00 20 00 00 00 2e 58 |........|.. ....X|
|00006210| a0 00 10 00 00 00 00 10 | 00 00 50 00 08 05 00 00 |........|..P.....|
|00006220| 00 0c 21 50 00 10 04 00 | 00 01 00 0a 80 00 00 00 |..!P....|........|
|00006230| 00 00 2f ec a0 00 10 00 | 00 00 20 10 02 00 10 00 |../.....|.. .....|
|00006240| 00 84 00 40 00 40 21 50 | 00 00 0e 01 00 01 00 00 |...@.@!P|........|
|00006250| a0 00 00 00 00 00 30 3b | a0 00 10 00 00 40 20 00 |......0;|.....@ .|
|00006260| 60 00 00 00 08 84 02 40 | 40 00 21 70 00 00 02 10 |`......@|@.!p....|
|00006270| 00 00 00 08 80 40 01 00 | 00 00 43 37 e0 00 00 00 |.....@..|..C7....|
|00006280| 00 00 00 00 80 21 10 00 | 00 00 00 00 00 19 00 00 |.....!..|........|
|00006290| 00 00 00 00 00 02 00 00 | 00 00 02 00 00 00 de c9 |........|........|
|000062a0| 60 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |`.......|........|
|000062b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000062c0| 00 00 47 e3 e0 3a 3f 37 | 2c a1 c0 33 02 c0 7c ae |..G..:?7|,..3..|.|
|000062d0| 8c de a1 d0 29 63 f4 57 | 8e a2 07 ae 0b 65 b8 01 |....)c.W|.....e..|
|000062e0| 80 53 f2 c0 00 00 bc 5a | a0 18 57 24 00 c1 13 71 |.S.....Z|..W$...q|
|000062f0| 5a 2e 78 a3 04 1e 54 48 | 20 03 f1 51 cc 20 5e 8c |Z.x...TH| ..Q. ^.|
|00006300| c0 e5 08 00 e0 0b 60 80 | 00 00 87 5e 20 18 55 24 |......`.|...^ .U$|
|00006310| 00 40 03 41 18 00 68 a2 | 00 18 44 00 20 03 c0 01 |.@.A..h.|..D. ...|
|00006320| c8 20 12 8c 00 c0 00 00 | 20 02 60 80 00 00 4d 2a |. ......| .`...M*|
|00006330| a0 18 55 26 00 48 0b 61 | 18 22 68 a2 00 1e 54 40 |..U&.H.a|."h...T@|
|00006340| 20 03 f5 11 c8 20 1a 8c | 80 e8 08 00 a8 0b 60 80 | .... ..|......`.|
|00006350| 00 00 89 c5 20 18 15 a4 | 00 05 03 41 58 0e 68 a3 |.... ...|...AX.h.|
|00006360| 05 1c 44 08 20 03 e5 51 | cc 20 42 0c 00 c4 00 00 |..D. ..Q|. B.....|
|00006370| e0 02 60 80 00 00 34 f4 | a0 3d bf fb cc fe 2b df |..`...4.|.=....+.|
|00006380| f3 fb af fe fb ee 67 ec | 7f ab ff df f6 73 1f 7b |......g.|.....s.{|
|00006390| c6 f2 8b e5 f4 93 38 80 | 00 00 9f 89 20 0c bd 8f |......8.|.... ...|
|000063a0| 40 44 db d9 d2 6b 52 19 | 5f 36 a1 22 7d d8 dd 3f |@D...kR.|_6."}..?|
|000063b0| a6 e4 5e 49 bd 37 86 d5 | 81 42 80 c0 00 00 56 85 |..^I.7..|.B....V.|
|000063c0| a0 35 67 93 08 15 60 b0 | 97 54 50 ab c7 b7 26 e4 |.5g...`.|.TP...&.|
|000063d0| 44 60 ec 18 06 28 a0 12 | 1b a6 00 38 24 09 31 c0 |D`...(..|...8$.1.|
|000063e0| 00 00 c8 09 20 39 3f f7 | 35 7c c1 b9 ea 9f 78 eb |.... 9?.|5|....x.|
|000063f0| 25 f7 b7 54 4e d9 ed 2f | 8b 02 f7 9b 4c fd 90 f9 |%..TN../|....L...|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.