' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&" գL zLzŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#07#0:"4<*55**5*%5)1)1)1)'#0/#0*5*75**5*:5/#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh < <݌ < < h < < < <`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E VL[dmx- (   Ԡ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # d ֠z# u*`V.A. MEDICAL CENTER - WALLA WALLA WA.9Fpxrniab^XOJH"D,@5=>8F4O5W2_/g,n(u%|" \qwD|GlPT:-KmSG]DDDDDDD@;3)e*zfuDp#pThiiklnopqrsuuvxxz{}~ "#$%&()*,-./12346789:;<>?@ABDEFGHJJLMNOPQRTUVWXZ[\]_`abdef     { g Y G b; 90 ,( &j AkAk @kA#,3<EW]b;wl[J,<=/M#Ydp#<TjTxZT\1bmtuZA)b@ l K> [ v)=Qdv|tnhe^^&X2W=QIPSI\DgGrB{?<:8740..*'*wyQg&R7xf[kSENJ::::Z;3B GKL̠֮ҠԠč͍ԠčԠčԠč    @:50+'! O& AXl|sknwwvst"r VR JV =S 0R $Q R POKGCABHFFDrFdFVEHD:@+@@>ABFFGGGHIGvIhI[ELB>A0F"INNTZ^acbginpqr}uuzl~d]UMF           c #  { ` C # xeNFh1>(SxB vJ#<fxcbccg    = j   a D : 7                                                                 A B E F G I K M N O Q S U V W X [ \ ] ^ _ a b c e f g h i i i j k k l n o q s u w y { | }                                ! # % ' * , / 0 3 5 7 : < ?Qj -<K{Zugit`]ZYRNMJGB@<965 1/+!$'".5:?EI OSW \ `ehlptx|@*=ccccb[bcccccbccccccccbcccccccccccccccccccccbcbccg    = j   a D : 7      ~QgE!dB+"|R'&&V".,127EkQFa&y 0{  ~ .vwwyy{{|}~9::;<>>@ABCDEGGHIJLLMNOPQQSTUVWWYZ[\]^__aabcdeggiijkklmnooprsstu㰠̠֮ҠԠč͍ԠčԠčԠčίί ,$` L( L5 LD 8 XL XLR XQHPH RPhPhQ8 XL.0'L+ LfLLLLL ꥪLYԨéR L ,-` Leh8PhHQH`hbihciHHb\ȱb]`ߚl hhHHHH`L⥠`ʆ  hdheHdHHHH08  X Xhdhe + eHdHHHeHdH`   q% 0 L0`,wyywxzzx,Hyw wȄffȪ yw fh0`h&Hwyxzwy wy h Lh` ` ` ` 憅` ` ᥠQP` L  8e`LԩLcغh8uhHvH` L L L~ 憅 L ʊ8$!  W$Li)$` LY L   hPhQP 8ePQiHHš`hh PȱPʘHH` ,խwqq膸 J즸 , :hhlP,q`h8uhv] :  ڢ hgʆbcb KLf/q ߠ :۩q` S0 L,Hh*Mȱڦhwx%ȱH J hw0У8 ewwx𴰺 抦5?wtsʆwx8dedЕБt Z Z ,խvqq ", ȹ,ȹ ,W,qewix8 Z ZCBЍw U  yUUwyVxz`Зԥwyxz`ywzx`GH o8 UpVUVƠ UVUʆoph3]eУk ЮU 4Г U 5,wЅƩѤ wU! 5B=ooppȆbcĂbfUVd8ophLД8= 7MLdlkȄmn;op:E UUȥViлh8HH`Ї{y SՠUEowyywxzzxwIy:e \`fH,Hops8otpf,kiUliVU$f&łmUŁfbUȥcUUŭUVŮMvłGUŁ>UV2ЅUŕȱU喰!UUdUV0*UiUViVUmVnɊȢwU𧰸ХyyUU⥁œ.QP$  e LWHhL:5~    eȱeLaL LRwwxȆwxwHw Jhw`w5U,w`,hbhcbwȱbxcȘHH`wȄ wep`0CBe]Q=b`LicbbbE0`Ġ``MMLeڢD ! SL3LH h%LddЉ`?0 HH chh ޥ Yަ`н  eE   ࠰>Ffee0  &ߢEX$ƫv` ꥪLYDcbbwyȱbxz`ݥܦL+3UV UwȱUx`wUȥxU`Ncbbȱb`cbbȥb`cbbȱb8塅堅PEncbbȱbe HH`0S,,hdehUhVhhHHU hehHehUU HHk`UiȱUiuкe& & &eeHHqUȥqUeFdO݅܆`ycbbȱbƫ8pM䡥UȥUU +뺠ЧUV욥VHUHthhЁ HHf ㈱ۺQi e 纼 +뺊i  e HH`iiiHH`(bcbebbePE1b]  0  j=i<<=kbޙץ,,stHʈcbhH ʈpoophMm X RQtPsh`bhH     pL8L EL؍ kL؍HHHHHHHHHHHHHLhhhhhhhhhhhhh` xLT8xLT8xLT8xLT8xLTL9a L9aL9aL9aL9aL9a"L9a'L9a,L98 h(8 i8  u8 4uZ8 v8 Kw(8 w 8  x8 x8 x 8xLT8xLT8xLT8xLT8xLT8xLT8`xL9`}L9`L9`L9`L9`L9`L9`L9`L9`L9`L9`L9`L9`L9`L9`L9`L9`L9`L9`L9`L9`L9`L9`L9`L9`L9`L9`L9a_L9`L9`L9` L9`L9`L9`L9`L9`#L9`(L9`-L9`2L9`7L9`c 6 a 6 sa 6 d h d   c wg 6  d h e   c Ig 6  d h e   c lg 6  g LK CLOSEPTA.DOC K  g LKRUNDIR K  X g e Ig D d 1 d g $e Ig D d 1 d g 0e Ig D d 1 d g e D d 1 d g e D g LJ BLOAD SAVE vJ  d Ra f  C hf .g Ia a` ^ g  g LJ OPENPTA.DOC J  g LJ WRITEPTA.DOC J  d gL ISVC I D d gL"IERV I D d gL9IIC 6I D d gLUISVC/FVC MI D d gLuI SVC/SVC MAX iI D d gLISTANDARD DEVIATION I D d gLISTANDARD ERROR I D d gLINO. OF ESTIMATES I D ad a d 1 d d    c yg  D \  d h e    c Kg  D \  d h e    c ng  D \  g LH CLOSEPTA.DOC }H  f  d & d b f  C d LH d wg b c b d wg Ra d wg f b Ca b d b Rd Ud  e Ld Ud ga c d ]b c T d 4 ad Tg C Od LG d ]b c T d 4 ad Tg C Od L>G c e ^a` d g g LG OPENPTA.DOC G  g LG READPTA.DOC G   \ g m g m h m g m g m %h  ;c  |a  pa \ d h Tg _c L(F d 4 ad Tg bc b cg d D d ]b c d b LLF b g ec D` d 4 ad Tg C Od LE ec c C jd Vc Ud b g ec D b d b d b g :a d b g 7a C d LF d b bL9E` ad Ud ga h aa f  d  c 1 ad Tg C _ [X` F d b b d L'E d b d b` d ]b c b ` d 4 ad Tg C Od L'E ad c d 4 ad Tg c LE d 4 ad Tg c b cg d D d ]b c d b LE b g c D` d 4 ad Tg C Od L\E f Yc b g c D b d b d 4 ad lg ^d L@D ad 1 d g ad 1 d g Ra &c d lg Ca e D ad 1 d g ad 1 d g Ra ad Ig Ca e D \c d LD ad 1 d g Qb D ad 1 d g \c Hb D ad 1 d g \c D ad 1 ad g c b D Cd ^d LD Z d ";:I18:0ı&(10570:.&(HD$(10)(S(8)):I725:I41A&(F,1A,C,1A,C,EM&(R,1,15&(F,6T,A,17T,1A,42T,A,50T,1A,56T,A,68T,1A,74T,A,E&(R,"PATIENT:",4,"HEIGHT:",7,"(INCHES) -",11,"(CM)"&)R,"ID NUMBER",6,"WEIGHT:",8,"(POUNDS) -",12,"(KG)"')R,"DA10280%P(TF(I,2):10400:10280D%Z(I11F(I,3)1:10410:I1:10280`%d(10150:A:10430:10280k%n(10280}%x(10410:10180%(---PRINT-STATEMENTS-%((A$)0ĺA$;:%(10410%(T);:36,T1:%(E$:36,0:E%E%1:%(HD$(A);:&(DDT(A)0>$'F(I,0)P:P4F(I,4)(D1):F(I,5)(D1(D1).05)10:10240L$'F(I,P)D1]$(II1:10210q$ (---PRINTOUT---z$(II1$(F(I,0)10300,10320,10330,10340,10360,10350$((II1:F(I,0)010360$2(10270$<(F(I,1)0ćA$:10380:10280%F(A:10420:180#'---PRINT-USING3#'B$D$(F(I,4)):F(I,5)1ıN#'B$B$"."D$(F(I,5)):b#'---PARSER-----#'A$:(A$,1)"R"I(A$)251:I1I:10260#'(A$,1)"F"I(A$)251:I1I:10210#'10540#'A$:PF1(((A$,1))65):D1(A$):P5F(I,0)0:1018D$(1):10590:HD$(1)ED$:ED$"PULMONARY FUNCTION LABORATORY COMPUTER IMPRESSION":10590:HD$(15)ED$"~'HD$(11)((H2.54.5)):HD$(12)((W2.2.5))"'I((W2.2).425(H2.54).72571.8410000):HD$(13)((I100)100)#':I020:F(I,0)0::10550:10(Z$(I))2:" "(Z$(I),E7,1)ı%!B':O!L'O$"OPEN PTA.DOC":O$"READ PTA.DOC":U!V'!`'F1(15)6:F1(0)1:F1(19)2:F1(2)3:F1(3)4:F1(4)5!j'HD$(1)L$:HD$(2)P$:HD$(3)" "S$:HD$(4)N$:HD$(5)D$:HD$(6)I$:HD$(7)(H):HD$(8)(W):HD$(9)(AG)`"t'ED$HD1M3S02: BS01:) '(Z$(I))0ık 'E8%1:E9%(Z$(I)):E9%E4%T2%A$Z$(I):10380:E4%E4%E9%: $'10040:E7E4%T3%E8%E71:10020 .'F$(Z$(I),E7):A$F$:10380:A$"":10380:TT1%:10400:E4%T1%:Z$(I)(Z$(I),E9%E7):10000!8'E7E8%IS/HER REVIEW AND CONFIRMATION.":T1%15:10000JA$"":I160E%:10380:A$" ------------------------------":10380:A$"":10380:A$" PHYSICIAN":10380:A$"":I15:10380::10600:110$D1M1S04:.D1M2S03: 8$"":10380dR(41)0A$"":10380:A$" POST/PRE----- ":10380:E4%T1%:I7:10000:A$"":10380,E4%6:A$"":I13:10380::I1:Z$(1)" * NOTE - THE COMPUTER IMPRESSION MUST BE TREATED AS A TENTATIVE SUGGESTION TO THE PHYSICIAN, SUBJECT TO H1)0A$" SPIROMETRY--- ":10380:E4%T1%:I14:10000::A$"":10380R(28)0A$"":10380:A$" LUNG VOLUMES- ":10380:E4%T1%:I5:10000:I9:10000:A$"":10380 R(34)0A$"":10380:A$" DIFFUSION---- ":10380:E4%T1%:I6:10000:A$(7)Z$(7)"INDICATES THAT THERE IS ":D$(1)"NO CHANGE":D$(2)"NO CLEAR CHANGE":D$(3)"IMPROVEMENT":D$(4)"MARKED IMPROVEMENT"Z$(7)Z$(7)D$(D1)"."A$"":I12:10380::ED$"COMPUTER IMPRESSION":10590:A$ED$:10380:I12:A$"":10380:HR($", AND "C$:9606zD11ĭM(4)1Z$(7)Z$(7)B$:960\D11ĭM(5)1Z$(7)Z$(7)C$:960zD11Z$(7)Z$(7)A$:960M(4)0Z$(7)Z$(7)B$"AND "C$:960M(5)0Z$(7)Z$(7)A$"AND "C$:960M(6)0Z$(7)Z$(7)A$"AND "B$:960|ZR(71)R(31)1.1D1FVC:1060:M(1)S0=*D1FEV:1060:M(2)S0f4FVC1.04FVC.96R(71)R(31).9840>M12:M21.25:M31.1:D1FF:1060:M(3)S0HD10:I13:M(I)D1D1M(I)R\I13:M(I)D1M(I3)1fpD13Z$(7)Z$(7)A$", "B1)0980I FVCR(41)R(1)5E03:FEVR(43)R(3)5E03:FFR(51)R(11)5E03Z$(7)"THE RATIO OF CHANGE IN ":M0:M11.25:M21.15:M31.05A$"FVC ("((100FVC.5))"%) ":B$"FEV-1 ("((100FEV.5))"%) ":C$"FEF25-75 ("((100FF.5))"%) "$ 6)Z$(6)"INCREASED":760DSBD81Z$(6)Z$(6)"NORMAL RANGE":760sSBD61Z$(6)Z$(6)"MILD REDUCTION":760SBD41Z$(6)Z$(6)"MODERATE REDUCTION":760Z$(6)Z$(6)"SEVERE REDUCTION"Z$(6)Z$(6)" IN DIFFUSING CAPACITY. "R(45)Z$(5)"MILD"?Z$(5)Z$(5)" PULMONARY OVERINFLATON. ":680nZ$(5)Z$(5)" RESTRICTIVE LUNG DISEASE. "tR(34)0770SBD(100R(34)P(34).05):Z$(6)"THE PERCENT OF PREDICTED DLCOSB IS "(SBD)"%, WHICH INDICATES "SBD140Z$(DICTED LIMITS. ":680TlTLC120FRC121RV121Z$(5)A$". THIS SUGGESTS ":660vZ$(5)"THE PERCENT OF PREDICTED TLC IS "(TLC)"%, WHICH INDICATES ":TLC150Z$(5)Z$(5)"SEVERE":660TLC135Z$(5)Z$(5)"MODERATE":660 TLC121Z$(S "(TLC)"%, WHICH INDICATES "CDTLC66Z$(5)Z$(5)"MILD":670lNTLC51Z$(5)Z$(5)"MODERATE":670XTLC50Z$(5)Z$(5)"SEVERE":670bTLC120FRC120RV120Z$(5)"THE RESULTS INDICATE THAT THE LUNG VOLUMES ARE WITHIN THE NORMAL PRExTLC81FRC150RV150Z$(5)A$" THEREFORE SUGGESTING COMBINED OVERINFLATION AND RESTRICTIVE LUNG DISEASE. ":680&TLC81FRC81RV816100TLC81FRC80RV80Z$(5)A$". THIS SUGGESTS ":670:Z$(5)"THE PERCENT OF PREDICTED TLC IPREDICTED TLC IS "(TLC)"%, FRC IS "(FRC)"% AND RV IS "(RV)"%"Z$(9)"":E1Z$(9)"HELIUM DILUTION LUNG VOLUMES MAY BE UNDERESTIMATED IN THE PRESENCE OF OBSTRUCTIVE LUNG DISEASE. ORDER PLETHYSMOGRAPHIC LUNG VOLUMES, IF CLINICALLY INDICATED. "R181ĭR356ī500xZ$(1)"THE RATIO OF FEV-.5 TO FVC IS "(R3)"%, THIS SUGGESTS POOR PATIENT EFFORT. "Z$(1)R(28)0690'LUNGVOLUMESTLC(100R(28)P(28).5):FRC(100R(23)P(23).5):RV(100R(24)P(24).5)DA$"THE PERCENT OF ":R166Z$(1)Z$(1)"MILD":450HR151Z$(1)Z$(1)"MODERATE":450aZ$(1)Z$(1)"SEVERE"Z$(1)Z$(1)" RESTRICTIVE DISEASE. ":500 NORMAL SPIROMETRYZ$(1)"THE RESULTS INDICATE THAT SPIROMETRY IS WITHIN NORMAL PREDICTED LIMITS. "RICTIVE LUNG DISEASE MAY BE PRESENT. ":R(28)0Z$Z$"LUNG VOLUME AND DLCO MEASUREMENTS SHOULD BE PERFORMED IF CLINICALLY INDICATED. ":690500 RESTRICTIVER181460 Z$(1)"THE PERCENT OF PREDICTED FVC IS "(R1)"%, WHICH INDICATESSENT. "TR181500a^R(15)0Z$(4)Z$(4)"THE PERCENT OF PREDICTED FVC IS LESS THAN ":380{hR(15)P(15).81500rZ$(4)Z$(4)"THE PERCENTS OF PREDICTED FVC AND FIVC ARE BOTH LESS THAN "|Z$(4)Z$(4)"81 PERCENT. THIS SUGGESTS THAT RESTV-.5 TO FEV-1 IS "((100R(2)R(3))100)"%, WHICH IS SUGGESTIVE OF AN UPPER AIRWAY OBSTRUCTION. "}@Z$(4)"":R(15)0500JR(15)R(1)1.1Z$(4)"THE RATIO OF FIVC TO FVC IS "((100R(15)R(1))100)"%, THIS SUGGESTS THAT AIR TRAPPING MAY BE PRE E1: OBSTRUCTIVE. "Z$(2)"":R(31)0310 ,R(31)5Z$(2)"THE EXPIRATORY TIME IS ":Z$(2)Z$(2)((10R(31).05)10)" SECONDS, SUGGESTING THAT THE DEGREE OF OBSTRUCTION MAY BE UNDERESTIMATED. "c6Z$(3)"":R(2)R(3).6Z$(3)"THE RATIO OF FEROMETRY. ":280s Z$(1)"THE RATIO OF FEV-1 TO FVC IS "(R5)"%, WHICH INDICATES ":I3Z$(1)Z$(1)"SEVERE":270 I4Z$(1)Z$(1)"MILD":270 I5Z$(1)Z$(1)"MODERATE":270 Z$(1)"":E0:400 Z$(1)Z$(1)" OBSTRUCTIVE LUNG DISEASE. ")R(1).65210 500 I1Z$(1)"THE PERCENT OF PREDICTED FEF25-75 IS "(R2)"%, WHICH INDICATES SMALL AIRWAYS DISEASE. ":280 I2Z$(1)"THE RATIO OF FEV-3 TO FVC IS "(R4)"%, WHICH SUGGESTS OBSTRUCTIVE LUNG DISEASE BUT PROBABLY NORMAL SPI070:R1(100R(1)P(1).5):R5(100R(3)R(1).5):R3(100R(2)R(1).5):R4(100R(4)R(1).5):R2(100R(11)P(11).5):I0 R545I3:210 R561I5:210 R570R(11)R(1).65I4:210 R493I2 R569R256I1:210 R569R(110610 nT%28:T1%20::T2%72:T3%62::(5):"PREPARE PRINTER":"PRESS RETURN OR I FOR INDEX ";:A$:A$;:A$"I"(28968)25510610 x:E%0:T00:L00:R(1)0R(3)0Ģ(4):"PATIENT DATA NOT FOUND.":"PRESS RETURN FOR INDEX. ";:A$:O$"RUN DIR"z 10֖o  ----CIDER----MEM1---;" 4/83 S&M INSTR."d:P(40),R(90),X(18),M(6),S(15),Z$(20),F(20,7),HD$(20),F1(25):O$(4):10060:L$,P$,S$,N$,D$,I$,H,W,AG:I115:S(I)::I140:P(I)::I190:R(I)::O$"CLOSE PTA.DOC" i(28968)2551                     "-";::"> ";:I18::#^)M138((ED$)2):ED$" "ED$::m#h)54,189:55,158:1144SL,0:33,40:1400SL,0:#r)O$:O$"RUN DIR"L10060:L$,P$,S$,N$,D$,I$,H,W,AG:I115:S(I)::I140:P(I)::I190:R(I)::O$"CLOSE PTA.DOC" i(28968)255,12,"(KG)"2")R,"DATE:",5,"AGE:",9,"(YEARS)",0," "b")R,"PHYSICIAN:",2,"SEX:",3,"B.S.A.:",13," "k"")ENDq",)"6)E$(10):SL(28672):54,135:55,142:33,33:"@)36,CH:37,CV:"J)ED$B$:M10(F(I,5)):((DDT(A)M));:#T)B$;:M1I7(B$):HD$(A);:!(DDT(A)0ı$!(10570:C!(HD$(10)(S(8)):I725:I41V!(F,1A,C,1A,C,Eb!(R,1,15!(F,6T,A,17T,1A,42T,A,50T,1A,56T,A,68T,1A,74T,A,E!(R,"PATIENT:",4,"HEIGHT:",7,"(INCHES) -",11,"(CM)"")R,"ID NUMBER",6,"WEIGHT:",8,"(POUNDS) -"10280 F(A:10420:102804 P(TF(I,2):10400:10280Y Z(I11F(I,3)1:10410:I1:10280u d(10150:A:10430:10280 n(10280 x(10410:10180 (---PRINT-STATEMENTS- ((A$)0ĺA$;: (10410 (T);:36,T1: (E$:36,0:E%E%1:!():P5F(I,0)0:10180S'F(I,0)P:P4F(I,4)(D1):F(I,5)(D1(D1).05)10:10240a'F(I,P)D1r(II1:10210 (---PRINTOUT---(II1(F(I,0)10300,10320,10330,10340,10360,10350((II1:F(I,0)0103602(10270 <(F(I,1)0ćA$:10380:F(I,0)0::10550:10180*'---PRINT-USINGH'B$D$(F(I,4)):F(I,5)1ıc'B$B$"."D$(F(I,5)):w'---PARSER-----'A$:(A$,1)"R"I(A$)251:I1I:10260'(A$,1)"F"I(A$)251:I1I:10210'10540'A$:PF1(((A$,1))65):D1(A$D$(9)(AG)ut'ED$HD$(1):10590:HD$(1)ED$:ED$"PULMONARY FUNCTION LABORATORY COMPUTER IMPRESSION":10590:HD$(15)ED$~'HD$(11)((H2.54.5)):HD$(12)((W2.2.5))'I((W2.2).425(H2.54).72571.8410000):HD$(13)((I100)100)':I020:):1000028'E7E8%(Z$(I))2:" "(Z$(I),E7,1)ı:B':dL'O$"OPEN PTA.DOC":O$"READ PTA.DOC":jV'`'F1(15)6:F1(0)1:F1(19)2:F1(2)3:F1(3)4:F1(4)5 j'HD$(1)L$:HD$(2)P$:HD$(3)" "S$:HD$(4)N$:HD$(5)D$:HD$(6)I$:HD$(7)(H):HD$(8)(W):HCIAN":10380:A$"":I15:10380::10600:110>'(Z$(I))0ı'E8%1:E9%(Z$(I)):E9%E4%T2%A$Z$(I):10380:E4%E4%E9%:$'10040:E7E4%T3%E8%E71:10020.'F$(Z$(I),E7):A$F$:10380:A$"":10380:TT1%:10400:E4%T1%:Z$(I)(Z$(I),E9%E7MPUTER IMPRESSION MUST BE TREATED AS A TENTATIVE SUGGESTION TO THE PHYSICIAN, SUBJECT TO HIS/HER REVIEW AND CONFIRMATION.":T1%15:10000A$"":I160E%:10380:,A$" ------------------------------":10380:A$"":10380:A$" PHYSI4%T1%:I6:10000:A$"":10380-R(41)0920R(41)0A$"":10380:A$Z$(7):10380:A$"":10380:E4%T%:T1%E4%:TABE4%:I814:A$Z$(I):(A$)0Ă:92010400:10380:A$"":10380:E4%6:A$"":I13:10380::I1:Z$(1)" * NOTE - THE CO:I12:A$"":10380:ffR(1)0A$" SPIROMETRY--- ":10380:E4%T1%:I14:10000::A$"":10380pR(28)0A$"":10380:A$" LUNG VOLUMES- ":10380:E4%T1%:I5:10000:A$"":10380zR(34)0A$"":10380:A$" DIFFUSION---- ":10380:EASED BY "(Z)" LITERS.":F1:F1F11~HZR(28)R(68):760:Z.4Z$(F1)"TLC ----- DECREASED BY "(Z)" LITERS.":F1:F1F11RF0Z$(7)" NO CHANGE AFTER BRONCHODILATORS."\A$"":I12:10380::ED$"COMPUTER IMPRESSION":10590:A$ED$:1038011 R(68)0860m*ZR(67)R(27):760:Z.2Z$(F1)"SVC ----- INCREASED BY "(Z)" LITERS.":F1:F1F114ZR(24)R(64):760:Z.4Z$(F1)"RV ------ DECREASED BY "(Z)" LITERS.":F1:F1F11#>ZR(68)R(28):760:Z.4Z$(F1)"TLC ----- INCRER(1):760:Z.2Z$(F1)"FVC ----- INCREASED BY "(Z)" LITERS.":F1:F1F11 ZR(43)R(3):760:Z.1Z$(F1)"FEV-1 --- INCREASED BY "(Z)" LITERS.":F1:F1F11ZR(51)R(11):760:Z.25Z$(F1)"FEF 25-75 INCREASED BY "(Z)" LITERS.":F1:F1FTION"/Z$(6)Z$(6)" IN DIFFUSING CAPACITY. "R580Z$(6)Z$(6)"THE PRESENCE OF OBSTRUCTIVE LUNG DISEASE MIGHT SUGGEST EMPHYSEMA. "R(41)0860F18:Z$(7)" FOLLOWING BRONCHODILATORS : ":770Z(Z100.5)100:KF0:ZR(41)LCOSB IS "(SBD)"%, WHICH INDICATES "QSBD140Z$(6)Z$(6)"AN INCREASE":720~SBD80Z$(6)Z$(6)"NORMAL RANGE":720SBD64Z$(6)Z$(6)"MILD REDUCTION":720SBD44Z$(6)Z$(6)"MODERATE REDUCTION":720Z$(6)Z$(6)"SEVERE REDUC64A$"MILD":630/bR144A$"MODERATE":630?lA$"SEVERE"vZ$(5)"THE PERCENT OF PREDICTED TLC IS "(TLC)"%, SUGGESTING "A$" RESTRICTIVE LUNG DISEASE. "R(34)0740%SBD(100R(34)P(34).05):Z$(6)"THE PERCENT OF PREDICTED DTED LIMITS. ":540dTLC(100R(28)P(28).5):FRC(100R(23)P(23).5):RV(100R(24)P(24).5):uR(28)0640&530:Z$(5)"":TLC44A$"SEVERE":6300TLC64590:A$"MODERATE":R144A$"SEVERE"D630NTLC80F0:400XR1E"/Z$(1)Z$(1)" RESTRICTIVE DISEASE. ":540ENORMALSPIROMETRYR270Z$(1)"THE PERCENT OF PREDICTED FEF25-75 IS"(R2)"%, WHICH INDICATES SMALL AIRWAYS DISEASE. ":640Z$(1)"THE RESULTS INDICATE THAT SPIROMETRY IS WITHIN NORMAL PREDICTRICTIVE DISEASE MAY BE PRESENT. ":6406RESTRICTIVEFR180500Z$(1)"THE PERCENT OF PREDICTED FVC IS "(R1)"%, WHICH INDICATES ":R164Z$(1)Z$(1)"MILD":490R144Z$(1)Z$(1)"MODERATE":490R180500Z$(1)Z$(1)"SEVER370hZ$(5)A$". "0rTLC44A$"SEVERE":420O|TLC64A$"MODERATE":420jTLC80A$"MILD":420F0Z$(5)"LUNG VOLUMES WITHIN NORMAL LIMITS. "640%Z$(5)"THE PERCENT PREDICTED TLC IS "(TLC)"%, SUGGESTING ADDITIONAL "A$" RES JB$"":530:Z$(5)"":F0:F10:A$"THE OBSTRUCTIVE LUNG DISEASE IS CONFIRMED BY AN INCREASE IN ":RV120F1:A$A$"RESIDUAL VOLUME TO "(RV)"% PREDICTED":B$" AND" TTLC120F11:A$A$B$" TOTAL LUNG CAPACITY TO "(TLC)"% PREDICTED"^FF10R160R565320$ "R170R584320: ,R180R5100320C 6640 @Z$(2)"THE RATIO OF FVC/FVC(PRED) IS "(R1)"% AND THE RATIO OF FEV-1/FVC TO PREDICTED IS "(R5)"% INDICATING RESTRICTIVE DISEASE CAN NOT BE EXCLUDED BY SPIROMETRY ALONE. ":640R5)"%, WHICH SUGGESTS "9 I3Z$(1)Z$(1)"SEVERE":240Z I4Z$(1)Z$(1)"MILD":240 I5Z$(1)Z$(1)"MODERATE":240 Z$(1)"":E0:430 Z$(1)Z$(1)" OBSTRUCTIVE LUNG DISEASE. " E1:OBSTRUCTIVE R(28)0330 R179640 (100R(1)P(1).5):R5(100R(5)P(5).5):R3(100R(2)R(1).5):R4(100R(4)R(1).5):R2(100R(11)P(11).5) R5100430 R565I3:190 R584I5:190 R5100I4:190 640 Z$(1)"THE RATIO OF FEV-1/FVC TO PREDICTED IS "(10610 nT%28:T1%20::T2%72:T3%62::(5):"PREPARE PRINTER":"PRESS RETURN OR I FOR INDEX ";:A$:A$;:A$"I"(28968)25510610 x:E%0:T00:L00:R(1)0Ģ(4):"PATIENT DATA NOT FOUND.":"PRESS RETURN FOR INDEX. ";:A$:O$"RUN DIR"p 10070:R1֖ ----CIDER----MEM0----<" 4/83 S&M INSTR."d:P(40),R(90),X(18),M(6),S(15),Z$(20),F(20,7),HD$(20),F1(25):O$(4):10060:L$,P$,S$,N$,D$,I$,H,W,AG:I115:S(I)::I140:P(I)::I190:R(I)::O$"CLOSE PTA.DOC" i(28968)255        V S ),. := ֘``J X< e<8.-%% ?$$ -%@ !-7CQ]hsvz )2>JV_lx $$ $ 6#gl6.$o $t ?o" < .$ceV! $$  $$s ? &$* 32?M% ` RRLs~*I),H h LHL`  L  ,0LYLԕɀL$ϩ ϡReRύ(`&RLH J l)hL?БK****` hLJ ȱ) i x Z Z`Lߎ` Z Z`eee`*إee`Ff` Ñ Ñ`m푍쑍PHL ⑩`J,j80 L'S ` ꩀ@ i eeeȱe ȑ P X  ii  珥ои``6 `օ`8&*(Lˏee&`Hȱh `` ֏H ֏8V S ),. := ֘``J X< e<8.-%% ?$$ -%@ !-7CQ]hsvz )2>JV_lx $$ $ 6#gl6.$o $t ?o" < .$ceV! $$  $$s ? &$* 32?M%  Ñ`ϩ H ꐤϱ)eh8ϥυ(ϩ` Щ  H ꐤϱh8 ϥ e жLH J lޑL?)hL?БK****`6  6hLJ ȱ) i x Z Z`Lߎ` Z Z`eee`*إee`Ff` @ Ñ`Ѡб, ѩ`) ⑩`HJJJHJ) h)i h) e` <e` ` ꩀ@ i eeeȱeÅ ȑ P X  ii  珥ои``3 `օ`8&*(Lˏee&`Hȱh `` ֏H ֏8V S ⑽),. := ٘``J X< e<8.-%% ?$$ -%3!@ !-7CQ]hsvz )2>JV_lx $$ $ 6#gl6.$o $t ?o" < .$ceV! $$  $$s ? &$* 32?M% z#  Ԡ  à*Š Š ŠàŠ Ԡ "ı "ĵ  ķ Ĺ Ͱ ͱ" ֠ ԠԱ Ҡ̠ʠ Ӡ ΠԠ ̠Ա Ҡ ̠ ͠ƠT28962,C(6):28963,C(7):28964,C(8):28965,C(9):28966,C(10):28967,C(11)530:28968,C(20):28970,C(12)580:36864,C(13)1:36667,193C(14)^28972,C(15):L(L$):L37L37h938,L:I1L:938I,((L$,I,1)): r(28161)5Ĺ28661,213,222:F1Ĺ28213,224* BFL1Ĺ37205,28B CFL0N9Ĺ37205,29 J42233,C(22):42232,C(21):28161,C(1):28162,C(2):28163,C(3):28164,C(4):28661,8:28660,1:C(5)1Ĺ28661,4:28660,10 O37325,C(19):37326,C(18):37327,C(17):36563,C(16)01,36,240C 16,201,46,176,5,169,32,157,239,2,202,240,4,228,208,144 "233,162,1,189,239,2,32,92,219,232,228,208,144,245,189,239 ,2,73,48,168,169,0,76,242,226,0 6I768937:I1:I,I1: @10,76:11,0:12,3:232,0:233,146:(4)"BLOAD AD"N:2885,0,1,240,3,200,208O 248,166,208,136,185,0,1,72,104,72,201,45,208,14,189,239 2,201,45,144,22,202,208,240,104,24,144,53,189,239,2,201 32,240,8,201,58,240,238,201,48,144,234,104,157,239,2,202 240,31,192,0,208,205,232,24,144,16,189,239,2,20:NFC(0):N11FL1:N9V 165,82,72,32,52,237,32,231,227,104,133,82,169,69,162,196 133,129,134,130,32,83,224,160,4,177,155,133,132,136,177,155 133,131,136,177,155,201,16,144,2,169,16,133,208,168,136,177 131,153,240,2,136,16,248,160,0,10,169,0,160,3,145,0,160,8,169,0,145,0,200,169,150,145,0,32,227,3,32,217,3,169,0,133,72,96 I768820:A%:I,A%::768:(27136)0İ420 29185 I27136:L$"" I1(I):I10L$L$(I1):II1:170 920:F0:C(0)(C(0)2)20F1 FL֖(d:C(22),C$(15,12):16368,0Qn(14):(8):"** COPYRIGHT - 1982 **"x(12):S$"S & M INSTRUMENT CO. - DOYLESTOWN PA.":(2):S$}16:12:"VER. 8.21.85 FL"W 32,227,3,132,0,133,1,169,2,160,4,145,0,169,5,160,5,145,0,169,1,160,12,145,      ~ L`A %AL??EFN Lp2=Wҡˢf~ Ҿ8TVZL `L zLzs./L쑍PHL Lգ  `1 WD\L \ şL_ NLjL]Lᦢ ~ L  ﵪ*i BB䵊嵰`72µ- i ư&( Rp s P  LLʬLoō,i ۿ ۿڿL흍ٿ vLQ߼HH ᥠ L\ML LHH`blzbz WLsL Q(`L׬L şLBND8HFFhDh N ş`, ŵBѵ`, ѵB8`Lz9[` ᥠ hh`ĵµ`ڿ8.ڿ.ۿ`êL x ֠Ġ]H d@hLҦ L ş \8  ş Lȟq,\Z[PRN,XɄOɊRQF(0Bhhhw4h/ ^0(p ߩRP1Q ɿ, P\L˵B̵C8pB߮Z\  յյ\BIR Z-^ Jp\IZLL ` @    Lsq x ~ vL~ҝ IOÌȌ`nL߼ 0 L&RE;BY; LlLi? `]LlۿڿLգ  `1 WD\L \ şL_ NLjL]Lᦢ     ֖&$ (4)"BRUNFL":(4)"RUNSTART1" %4(J)(J1)(J2)255Ĺ28971,1+>B (37323)2221500[ I((36864)192)256{ (37323)222(28164)1ı I36427:I,104:I1,141:I2,12816(36864):I3,192:I4,173:I5,195:I6,192(36864):I7,208:I8,251:I9,76:I10,63:I3:I,I3:II1::1270D I1(36667):36891,I1:36900,I1:36905,I1:_I2((I1)256(I)):s(37323)224ıI((36864)192)256:(I)24(I1)176Ĺ37329,(37329)3:37337,(37337)5:37332,128:37333,208:(4)"PR#"(36864):(4)"PR#0"64)161I1,I2,I3:I10ĹI1,I2:I11,II3:1240yI1(36667)256:I1,0:II1:1300:I3I2:II12:1300:1300:I3I2ı36712,234:36888,5,152,141,0,0,168,36898,12,173,0,0,133,248,173,1,0,133,249,234,234,9999I:I99991290I1:I21I1:7096:I022:C(I)(I11):I1I11::36379,173,4,36386,173,5,36436,141,2,36441,141,0,36446,141,1,36449,141,3,36456,141,2,36461,141,3,36466,141,3,36471,141,3,36474,173,3,36481,173,2,37045,141,4,37050,141,4,37328,173,4,37336,141,5,0,0,0I128(368:768:788,1:!427136,0:810:0>L$"":""SH16368,0:F$:F(F$):F8880aRF13ĺ:~\F58F59F44F34840fL$L$F$:F$;:840p(L$)0840z(L$)1İ910:L$"":840910:L$(L$,(L$)1):840F$;" ";F$;:#I12 I20700640:610:700b::"ENTER HOSPITAL NAME (37 CHARACTERS) *":830:(L$)37760~(L$)3L$S$:(4):L$ I11:I2713627136(L$)1:I,((L$,I1,1)):I1I11::I,0 I27096:I,I3:I1022:II1:I,C(I1): *788,236C(18)0L45C(17)01L46C(17)255IL1L2C(16)L\L56C(20)0oL57C(20)1L55C(20)255L65C(21)255L66C(21)0L75C(22)255L67C(21)1L76C(22)1I2L1:I2I3700:"ENTER DESIRED OPTION ";A$:I11:A$""(A$)0ıRI1(A$)1:I1IC(I2)I1:[670A$"":(23):(1):868:"ENTER # TO CHANGE (RETURN TO END) ";A$:A$""(A$)0ıL(A$):L25C(19)255L26C(19)0L35C(18)255 L@b::"SYSTEM CONFIGURED FOR :"::I015:C$(I,C(I))""630nlI1I1:5((I1)))I1". "C$(I,C(I)):I3Ivv:::"OPTIONS :":::I0:I012:C$(I2,I)""670I1I1:C$(I1):C(I2)IC$"*"C$5(C$))C$". "C$(I2,I):2A$"": LOOP":II5:VNII04:C$(13,II)"PRINT IN #"(II1):C$(14,II)"A/D IN #"(II1):SC$(15,0)"MED-SCI. SBD,FRC":C$(15,1)"P.K. SBD,FRC":C$(15,2)"COLLINS SBD,FRC":C$(15,3)"COL. SBD,FRC CWOM":C$(15,4)"COL. SBD,FRC WOM":C$(15,5)"COLLINS RS":X"MPI":C$(0,7)C$(0,6):C$(0,8)"OKI 82":C$(0,9)C$(0,8)?C$(0,10)"OKI 92":C$(0,11)C$(0,10):II0102:C$(0,II)C$(0,II)"-PARALLEL":C$(0,II1)C$(0,II1)"-SERIAL"::C$(0,2)"NOT IN USE":C$(0,3)C$(0,2) DI80:II03:C$(12,II)(I)"% INSP. TO EXP.AL SBD - MED-SCIENCE":C$(9,1)"MANUAL SBD - COLLINS"lC$(10,0)"MANUAL PRE ONLY":C$(10,1)"MANUAL PRE-POST"&I30:II04:C$(11,II)"SVC. "(I)" SEC.":II5:0C$(0,0)"PRISM":C$(0,1)C$(0,0)5:C$(0,4)"STANDARD DRIVER":C$(0,5)C$(0,4):C$(0,6)RED LOOP":C$(5,1)"EXPIRED ONLY"WC$(6,0)"OLD ZERO FLOW":C$(6,1)"BACK EXTRAPOLATION"C$(7,0)"NO SBD POLY IN MANUAL DATA":C$(7,1)"POLY IN MANUAL DATA FOR HUP"C$(8,0)"MANUAL FRC - MED-SCIENCE":C$(8,1)"MANUAL FRC - COLLINS"2C$(9,0)"MANUGER":C$(1,5)"VITALOGRAPH"YC$(2,0)"AUTO-SCALE FVL (OFF)":C$(2,1)"AUTO-SCALE FVL (ON)"C$(3,0)"INFORMATION (NO RACE)":C$(3,1)"INFORMATION (RACE)"C$(4,0)"PIC / SSC CARD":C$(4,1)"SSM / S&M CARD":C$(4,2)"GRAPPLER"C$(5,0)"INSPIRED/EXPI0:6000:36378:1002:(4)"RUNDIR"B920:450:600:610:700:760:"OK TO SAVE DATA (Y/N) ";:16368,0:Q$:Q$;:Q$"Y"790420C$(1,0)"MED-SCIENCE":C$(1,1)"MORGAN-DIFF":C$(1,2)"OHIO -DIFF ":C$(1,3)"VOLUME OUTPUT ONLY":C$(1,4)"JAE4:28660,10;|28165,0:(28161)3(28161)5Ĺ28165,128969,0:28971,0:C(15)5SL%1625616(C(13)2)2::SL%1,0:SL%,15:SL%1,52:SL%,15::SL%,255:28971,1:410I17:J(192I)256:2100:1220:3000:16368,0:37040 5002,8:1390W$(1)"DISC DIRECTORY.":W$(2)"PRINT DATA SHEET.":W$(3)"SAVE DATA ON DISC.":W$(4)"MOVE STORED DATA TO CURRENT DATA.":W$(5)"DELETE DATA FROM DISC.":W$(6)"FORMAT NEW DISC.":W$(7)"RETURN TO MAIN MENU.":1550:1190 1430:1190 16360,32,227,3,32,217,3,169,0,133,72,96\:I768820:A:I,A::768:788,2:27136,0:768:788,1wDO$:O$"RUN START1,D1"N104,8:216,0:1390O$(4)R(145)::(42234)1Ģ10:1:"INSERT DATA DISC IN DRIVE 2, RETURN ";:Q$:Q$"I"Ĺ2210;Z9$"INFFVLDATSVCMVVADJCALMANCONINTSBDFRCBLODIS"lI1(Z9$)(Z$)1:Z$(Z9$,I,(Z$))I1:x&:I0:!032,227,3,132,0,133,1,169,2,160,4,145,0,169,5,160,5,145,0,169,1,160,12,145,0,169,0,160,3,145,0,160,8,169,0,145,0,200,169,150,145,O$"CLOSE PTA.DOC":O$"OPENDATE":O$"WRITEDATE":"N/A":"N/A":O$"CLOSEDATE"TO$:xF$:F(F$):F8(Z$)0ġ:310F64Č38251::1:300F13490F8(Z$)1ĺF$;" ";F$;:Z$""::310F8(Z$)1ĺF$;" ";F$;:Z$(Z$,(Z$)1)::3:S(4)100:S(5)266.6:S(6)10000:S(7)20:S(8)760:(28972)1S(6)12000S(9).932:S(10)1.13:S(11)1.21:S(12)1.1:S(13).91:S(14)17.54:CO$"0"C$O$"OPENPTA.DOC":O$"WRITEPTA.DOC":L$N$S$N$N$N$CO$CO$CO$;:I115:S(I):JI1130:"00000 "::Z$"SBD"Z$"BLO"Ĺ104,64:O$"RUN "Z$",D2":^Z$"CON"560lhI0:530:I0Ģ(24):(1):868:16368,0:300{O$"RUN"Z$:"INITIALIZING PATIENT FILES.":P(40),R(91),S(15):C$(13)N$"NOT ENTERED"C$:L$L$C$FS$"M"C$:S(2)400:S(3)2000:12:"INSERT MODEM PROGRAM DISK IN DRIVE 1 ";:Q$:580 JZ$"MVV"Z$"SVC"Ĺ28659,160:28658,0:29004,97:28615,96:O$"BLOADRUNTIME,A3800"(13)O$"BRUN"Z$ O(28971)1350 QZ$"FRC"(28972)5Ĺ104,64:O$"RUNRSFRC,D2"(TZ$"FRC"****"ćA$(2)::4);::A$(1);::A$(2):270Z ,24:Z$"":"ENTER CODE YOU WISH TO RUN ";~ 6490:Z$Z$F$:F$;:(Z$)3310 ;1:1:47103,0:Z$"PDS"Ĺ47103,1:Z$"DAT" @Z$"INI"ī410 EZ$"DIS"(42232)25510007 FZ$"MOD"(42232)255 DISC PROGRAMS" "****":( Z$" "Z A$(1):A$(1)"DIS "(42232)255ćA$(1):270 A$(1)"MAN "(42233)1ćA$(1):270 A$(1)"FRC "A$(1)"SBD "290 (28971)1ćA$(1):270 (28972)5A$(1)"SBD "ćA$(1):270* "A$(1)"NTARY VENTILATION"8 "SBD ","- SINGLE BREATH DIFFUSION"e "FRC ","- FUNCTIONAL RESIDUAL CAPACITY" "MAN ","- MANUAL DATA ENTRY","DATA","- PATIENT DATA SHEET" "CAL ","- CHECK CALIBRATION" "ADJ ","- CALIBRATE FLOW & VOLUME" "DIS ","-$"Y"ė:1500 O$:O$"RUN MEM"((28968)48)l L$"":I1(938):L$L$((938I))::(42234)1Ĭ1000v 590~ L$ "INFO","- PATIENT INFORMATION" "FVL ","- FLOW VOLUME LOOP","SVC ","- SLOW VITAL CAPACITY" "MVV ","- MAXIMUM VOLU֖ "SAVE"%"ɍ a a`AAA"4 "NOTHING"]d16368,0:36887,4:36894,5:36917,2on:::O$(4)s37104,60:28659,234:28658,234:28615,162x(28968)255(28969)0150 :"COMPUTER IMPRESSIONS ? (Y/N) ";:A$:28969,0:A            I118,I:(192(36864))256:16368,0Qn(14):(8):"** COPYRIGHT - 1982 **"x(12):S$"S & M INSTRUMENT CO. - DOYLESTOWN PA.":(2):S$}16:12:"VER. 8.21.85 FL"W 32,227,3,132,0,133,1,169,2,160,4,145,0,169,5,160,5,145,0,169,1,160,12,145,2Ĺ38182,(36864)16:37344,37:37345,149:J u(37323)224(28164)1ı zI136(36864)16:I137319:I1,173:I11,I1:I12,192:I13,76:I14,209:I15,145:I110,41:I111,112:I112,201:I113,16:I114,208!I115,240:I116,104:I117,141:I11,255:32,27,253,201,192,208,11,32,107,149,165,37,32,91,251,76,12,253,96,32,137,254,32,234,3,96,169,0,133,56,169,142,133,57,32,234,3,96,-1:I36352I1:I11ıI136888āJ122:I1:I,I1:II1:5010o* p(37323)224(28164)A$"DELETE ":1160:1180(1090:118021:H:868:<O$"CLOSE L"N$:43624,1:1360F PBZ:4:1:"LIST TO PRINTER (Y/N) ";:Q$:Q$"Y"ıd54,19:55,8:44452,255:1002:A$:1170:44452,22:65171:1002::1180nE(222):E8 IN DRIVE 2."::"PRESS RETURN KEY. ";:Q$:(Q$)131180O$:O$"INIT C,D2":O$"DELETE C":43624,1:11801180c A$"DISC DIRECTORY :":1370:::A$:1170:"PRESS RETURN ";:Q$:11801095:104,64:16384,0:(42234)1ĺO$"RUNDAT1"20GF4%0::"ENTER SELECTION : ";:1040:I2(Q$)::I20I2I11180rI21290,1300,1320,1570,1310,1260,1490Q$"F"1180:10:"INSERT NEW DISC0,L"((43616)(43617)256):43624,1:V (42232)1Ĺ37325,(42213):37326,(42235):\    ETE"A$N$ JTE1:43624,1:4^"MOVE PRE-POST"VhD11:D22:B$"":C$N$:1700:prD12:D21:B$N$:C$""(42232)1ıA$"PRE":1705:A$"POST":1705:E01620$ E0ĺO$"BLOAD"A$B$",D"D1",A$4000":O$"BSAVE"A$C$",D"D2",A$400208:I9,16:I10,232:s(42234)1Ĺ42213,(37325):37325,255:42235,(37326):37326,255:42234,0:1510:2000::1035":3:1,F0:A$"MOVE DISC ":1100:1650:11901A$"PRE":1590:A$"POST":1590:6E0;1620@E0ĺO$"DELI%:mI4446744469:I,I%::I4455544557:I,I%::I4445644458:I,I%::I4456044562:I,I%::44562,23244567,28:44537,201:44538,212:44539,208:44540,40I44555:I,232:I1,232:I2,232:I3,189:I4,198:I5,180:I6,201:I7,204:I8,::01410::"NAME = "N1$::"ID # = "I$::?F1İ1430ExO$:O$"OPENPTA.DOC,D1":O$"READPTA.DOC":L$:37325,(42213):37326,(42235):42234,255:43624,1:I%234:I4448044488:I,I%::I4453744544:I,I%::I4451744519:I,H,W,A:I1145:R(I)::O$"CLOSEPTA.DOC":}1480:O$"CLOSEPTA.DOC":I24ĺO$"RENAME PTA.DOC,TEMP,D1":N$"TEMP":1640:F1:O$:O$"DELETEPTA.DOC":O$"RENAME TEMP,PTA.DOC,D1":N$"TEMP":1650:F0:I23ĭI24ĺ::A$"MOVE DISC "O$"CLOSE L"N$:43624,1:1360 F&P]Z:4:1:"LIST TO PRINTER (Y/N) ";:Q$:Q$"Y"ıd54,19:55,8:44452,255:1002:A$:1170:44452,22:65171:1002::1180nE(222):E81460sE14Ĺ43624,1:1180x1150(1480:P$,S$,N1$,D$,I$,1180R A$"DISC DIRECTORY :":1370:::A$:1170:"PRESS RETURN ";:Q$:11801095:N$NA$:1650:(42232)0Ĺ104,96:24576,0:O$"RUNDAT1"(42232)1ĺO$"RUNDAT"1180A$"DELETE ":1160:1180(1090:118021:H:868:<ENTER SELECTION : ";:1040:I2(Q$)::I20I2I11180aI21290,1300,1320,1570,1310,1260,1490sQ$"F"1180:10:"INSERT NEW DISC IN DRIVE 2."::"PRESS RETURN KEY. ";:Q$:(Q$)131180O$:O$"INIT C,D2":O$"DELETE C":43624,1:1180ETURN) ";:1040:16368,0:1180Z1050:1350:O$"DELETE L"N$",D2":1585:43624,1:1360:1350:O$"ZIP,D2":43624,1:1360:O$(4)16368,0:::I1:I11W$(I1)""ĢI:5((I1)):I1". "W$(I1):II2:I1I11:12206F4%0::"(222)5ĺ"NO DATA - "N$;:O$:1340:1350:O$"DELETE L"N$",D2":43624,1:1360:1150xj(222)6ĺ"NO FILE - "N$::1150o(222)9ĺ"DISC FULL "::1150r(222)77I(0):1150t"ERROR - # "(222)" ";~O$"CLOSE":1002:43624,1:"(PRESS RF0:A$"PRINT DISC "|L1050:O$"READ L"N$:P$,S$,N1$,D$,I$,H,W,A:I1135:R(I):R(I)R(I)100::O$"CLOSE L"N$:NA$N$:1420VO$"OPENPTA.DOC,D1":O$"WRITEPTA.DOC":L$:P$:S$:N1$:D$:I$:H:W:A:I1145:R(I)::O$"CLOSEPTA.DOC":R`16368,0::8,0:Q$:Q$;:1120b$::A$"DATA":1440:16368,0:"ENTER FILE NAME ";N$:N$""ġ::1180n.I25ı81350:O$"OPEN L"N$",D2":BA$"STORE ":1060:O$"WRITE L"N$:P$:S$:N1$:D$:I$:H:W:A:I1135:(R(I)100.5)::1340:1640:G;E9%;" TO ";E9%2;" L. READING";:((I1Q3%));:" L":370S16368,0:Q$"I"1550v230::0,00,190:0,95142,95Z$"PRESS RETURN FOR FVL INPUT":X1%30:Y1%185:35191:198:16368,0:Q$1750:Q$" "Ĺ49241,0 1300:49240,0:230:X1%300R(J9%1)0L%0Ĺ37327,128/T1150:16368,0C^(37375)5410xh16368,0:I(36667)256:E9%4:(37375)3E9%3rI,0:I1((I1)256(I))S(2):I1E9%I1E9%2400|(16384)127ľQ$:49168,0:Q$"I"15508(7):(1):"VOL. SHOULD BE "RE OR POST ? ";:R$"":I13:Q$:Q$;:R$R$Q$:x,L%0:36839,169:36772,51:R$"PRE"J9%0:R$"PREBRONCHODILATOR":3306R$"POS"J9%40:R$"POSTBRONCHODILATOR":330@1340:290J216,0::O$::1240:ED$" 0.00":I119:D(I)0:O(37327)K10:O00:O%0:P%0:K6%0:K7%0:K3%0:I%0:S70:TS%0:TM%0:TI%0:R1%51:R2%R1%2:R3%R1%6::S20 M90:J0:H8%0:J20:J10:1790:I20:I%0:S0:I7%0:M.5:EZ$" 0" V%(1,2000),D(20):1210:S9%2000:T1%0:R$" ":1240:1350.":"IS THIS STUDY P0:S$"":Q$"":Z$"":MA%0:Y1%0:X1%0 Q%17:Q1%25:Q2%34:Q3%100:Q4%20:J3%1:J4%6:J5%275:J6%2:J7%0:J8%9:49168,0:ED$" .00":ME%0:MF0:MG0` IM0:CV%0:CH%0:VL0:VH0:J%0:J1%0:J2%0:YL0:YH0:FL0:FH0:XL0:XH0:S0%31:T1%0:K2%0:K8%0:(11D(3)D(1)D(2))D(0):IH1%I0%1:D(4)D(3)IV%(0,I0%)ĂZ H0%I:I020:D(I)0::i 1:0:3:$ I0:I0%0:I1%0:I2%0:R%256:M0%0:M1%0:M2%0:I2%0:I30:I40:I50:I60:I70:I8%0:I9%0:S%0:H9%0:H1%0:H2%0:H0%0:M3%0:Z10:K%0:S9%0:J9%16,19," 0.00",100,13,16," 0.00",100,14,17," 0.00",100,15,18," 0.00",100R "END" H1%I:I14:D(I)0::IH1%5H1%5:D(1)D(1)I:D(2)D(2)V%(0,I):D(3)D(3)IV%(0,I):D(4)D(4)II:= D(0)11D(4)D(1)D(1):D(4)(D(4)D(2)D(1)D(3))D(0):D(3) 1204 II1(M9V%(0,I1))(V%(0,I)V%(0,I1)): 1,1," 0.00",100,3,3," 0.00",100,5,5," 0",1,4,4," 0.00",100,20,22," 0",1,10,11," 0.00",100 6,7," 0.00",100,7,8," 0.00",100,8,9," 0.00",100,9,10," 0.00",100,19,0," ",1,12,15," 0.00",100G ֖-----CIDER----FVL--------=----5/83-----S-&-M-INSTRd24576:XO%0:XC0:YM%0:YC0:YA0:XA0:O$(4):M3%0:YN%0:M90:J%0:J1%0:J2%0:J3%0:J7%0:240nXO%XA(V%(0,I)M3%),YM%YA(V%(1,I)YN%):xV%(0,I)M9ıIIK%:II2%ı             DELETE"A$OJYTE1: a`AAA"4 "NOTHING"]d16368,0:36887,4:36894,5:36917,2on:::O$(4)s37104,60:28659,234:28658,234:28615,162x(28968)255(28969)0150 :"COMPUTER IMPRESSIONS ? (Y/N) ";:A$:28969,0:A*1180,1565:O$"CLOSEPTA.DOC":TR(7):BR(8):F0:A$"MOVE DISC ":1100:1585:11901A$"PRE":1590:A$"POST":1590:'6E02;1620I@E0ĺO$"DELETE"A$OJYTE1:9)0150 :"COMPUTER IMPRESSIONS ? (Y/N) ";:A$:28969,0:A0,232:(42234)1Ĺ42213,(37325):37325,255:42235,(37326):37326,255:42234,0:1510: :1035>1480:P$,S$,N1$,D$,I$,H,W,A:I115:R(I)::":3:1:"DO YOU WISH TO SAVE CURRENT DATA (Y/N) ";:Q$:Q$"N"1580'Q$"Y"İ1090:1580744469:I,I%::I4455544557:I,I%::I4445644458:I,I%::I4456044562:I,I%::44562,232844567,28:44537,201:44538,212:44539,208:44540,40I44555:I,232:I1,232:I2,232:I3,189:I4,198:I5,180:I6,201:I7,204:I8,208:I9,16:I11410::"NAME = "N1$::"ID # = "I$::F1İ1430O$:O$"OPENPTA.DOC,D1":O$"READPTA.DOC":L$:D37325,(42213):37326,(42235):42234,255:I%234:I4448044488:I,I%::I4453744544:I,I%::I4451744519:I,I%:I44461460sE14Ĺ43624,1:1180x11501565:I16145:R(I)::O$"CLOSEPTA.DOC":<1480:O$"CLOSEPTA.DOC":I24ĺO$"RENAME PTA.DOC,TEMP,D1":F1:PR(7)T:R(8)B:O$:O$"DELETEPTA.DOC":O$"RENAME TEMP,PTA.DOC,D1":F0:I23ĺ::Q ::Z$"DATA ERROR :"((222))" IN LINE #"((218)(219)256):1320::330z V%(0,0)0:36608:V%(0,8)250ġ:330 2090: (:1350:(21):(1)::Z$;"" 2"PRESS RETURN TO CONTINUE ";:1280 <37,CV%:36,CH%::868:!FCV%(37):CH(I)::I190:R(I)::O$;"CLOSE PTA.DOC":(37371)1S(2)S(2)S(12):S(4)S(4)S(12)YN%S(3):O$"BLOADMM":36631,41:I8190:R(I)0::::330:L$:"NAME ";N$:"DATE ";D$:(R$)21270"STUDY ";R$16368,0:Q$:37327,06(37371)1S(2)S(2)S(12):S(4)S(4)S(12)L$:P$:S$:N$:D$:I$:H:W:A:I115:S(I)::I140:P(I)::I190:R(I)::O$;"CLOSE PTA.DOC":O$;"RUN DIR"SP(40),R(90),S(15):1160:L$,P$,S$,N$,D$,I$,H,W,A:I115:S(I)::I140:P1%XO%XCV(I)'jX1%,Y1%5X1%,Y1%10-ta~V(I)V%(0,I)S(2):F(I)(V%(1,I)YN%)S(4):O$"OPEN PTA.DOC":O$;"READ PTA.DOC"::240(37327)0İ360036631,9:S0$(13):O$;"OPEN PTA.DOC":O$;"WRITE PTA.DOC"(37327)1281090.Q$"V"İ1770:1020$/42003Q$"O"L%0(37327)0İ3010:2090:M3%V%(0,MA%):2650:3010:2090:M3%V%(0,MA%):2120:10204Q$"E"İ51008:1480:1570:1520BD(0)1X1%90:Y1%185:35191:D(0)0L1030VY1%YM%YCF(I) `X0%)V%(0,TS%))S(2).1D(1)D(0)1:"";:Z$"LEAKAGE OVER 10% -PRESS RETURN":X1%90:Y1%185:35191:Q$:1040Z$"PRESS RETURN TO CONTINUE":X1%125:Y1%185:35191:198:Q$:X1%125:35191Q$"P"Č37189:230:1090Q$"F"500$Q$"Q"İ1980:ACTUAL PREDICT PERCENT"SI116:J%,J1%,ED$,J2%:Q%:D(J%)J7%ĺ((D(J%)J2%));|Q1%:P(J1%)J7%ĺ((P(J1%)J2%));Q2%:J2%J3%P(J1%)J7%D(J%)J7%ED$EZ$:((D(J%)P(J1%)Q3%));::(1):(8):35044Q$"S"1080j(V%(0,H120:IIK%:K%J6%:120:I7ID(12)V(I1%)V(I2%):D(13)(F(I6)):D(14)(F(I8%)):D(15)(F(I7)):D(16)R2%(V(I6)V(I7))(I7I6):I0%J7%960D(17)(F(I8%))F(I5)H9%I1%:Q$"S":I2%J7%H9%I2%61XO%XCP(1),YM%::1240::Q%)"~150:D(18)100(II3)'I2%J7%960NII1%I2%:(V%(1,I)YN%)S(4)MĂH2%I:M9M1%.25(M1%M2%):II1%:K%Q4%:120:IIK%:II1%II1%K%J6%:120:I6I:M9M1%.5(M1%M2%):K%Q4%:120:IIK%:K%J6%:120:I8%I:M9M1%.75(M1%M2%):K%Q4%:M.25:zD(6)F(H1%):D(7)F(I3):D(8)F(I5):D(9)F(I4):D(10)R2%(S7S2)(I4I3)S(2):D(11)R2%(V(I9%)V(I4))(I9%I4):D(1)1.3900|M9.2S(2)V%(0,H0%):IH0%I1%:V%(0,I)M9Ă}150:I3I:M91.2S(2)V%(0,H0%):I(I3)I1%:V%(0,I)M9Ă%4I9%IK%:II9%I1%2:V%(0,I)M9Ă=>I9%I:IM.25:I13YHP(I7)0P(I7)FH880oRP(1)I46.5880\P(I7)12.5880f61XO%XCIMP(1),YM%YCP(I7)pP(I15)0P(I15)FH885tI2%0Ĕ61XO%XCIMP(1),YM%YCP(I15)uIMII:M9.5(M1%M0%)M0%:I(I3)I1%K%:V%(0,I)M9ĂV I5IK%:II5I1%:V%(0,I)M9ĂI5I:M9.75(M1%M0%)M0%:I(I3)I1%K%:V%(0,I)M9Ă I4IK%:II4I1%:V%(0,I)M9Ă*S7M9:150:I4I:M9.85(M1%M0%)M0%:I(I4)I1%20:V%(0,I)M9Ă710D(3)D(1):D(5)Q3%XI1%H0%R3%IH0%R3%:1110:D(4)V(H0%R3%)V(I0%):730fD(4)D(1)K%10:M9.25(M1%M0%)M0%:IH0%I1%K%:V%(0,I)M9ĂD(20)D(4)D(1)Q3%I3IK%:I39I39II3I1%:V%(0,I)M9Ă2S2M9:150:I3TS%I0%:TM%I1%:TI%I2%:230:::I(0):I0%J7%900_D(1)V(I1%)V(I0%):1360:1430:2650vIH0%:Y1%YH:1120I1%H0%R1%IH0%R1%:1110:D(2)V(H0%R1%)V(I0%)I1%H0%R2%IH0%R2%:1110:D(3)V(H0%R2%)V(I0%):D(5)Q3%D(3)D(1):R: RESPONSE INTERRUPTED ":1320:1230=DF(H1%).25600rNZ$"ERROR:ZERO FLOW NOT FOUND ":1320:1230XH8%H1%:IH1%:(36574)1İ200:620bIH1%I0%1:H0%I:(V%(1,I)YN%)S(4).5Ă:I9570lI0%J7%M3%M2%:640vM3%M0%4:Y1%185:35191cZ$"IS THIS AN ACCEPTABLE RESPONSE ?":"";:X1%10:Y1%185:35191:Q$:Q$"Y"490sQ$"N"330}1750"";:1340:X1%10:Y1%185:35191:1990:450X1%10:Y1%185:35191T1%T1%1:129035100580':Z$"ERRO)(209)256:ME%(253)(254)R%:MF(249)(250)R%:MG(251)(252)2560>MA%(ME%I)48:I1%(MFI)48:I2%(MGI)48:H1%((237)(238)R%I)48:3510:0HIMA%8MA%1:V%(0,I)V%(0,MA%)1:V%(1,I)V%(1,MA%)1::V%(0,8)S9%:V%(1,8)S(4):3510:%(0,MA%8)8):43624,1:34587,169:35557,187:/*S9%V%(0,8):"";:30,(131):31,(132):I((30)(31)256)S9%44:I32767II65536/+V%(0,0)I//V%(0,0)V%(0,0):235,((131)(132)2561):236,((131)(132)256):S9%V%(0,8)H0434304:I(208185:35191:1020.1020.B.(37327)0V%(0,0)0:35433:a.Q$"PRE":J9%40Q$"POST". 43624,(36563):34587,96.252,(MG256):251,(MG256(MG256))256:35557,193,/35385,64:35395,64:35328:37:23:O$:O$"BSAVE"Q$",A$4000,L"(V)M3%)K17-IK2%I8%8:I8I8%ēI7%,II7%,I8%:1950J-I7%,II7%,I4|-:II7%K6%8:I8K6%ēI,I8%K6%,I8%:1970-I,I8%I4,I8%-:-28671,3:37189:230:28671,6:-Q$"P"Č37189-Q$"Q"1980-.D(0)1X1%90:Y1%I8%,K8%2,NI8%2401910k,XZ$(I):I%((Z$)1)3:I21(Z$):I0%K6%(H0%TS%)O0SII%:I0%K7%1900,b((Z$,I2,1))S0%I0%,K8%8:I%I%6,lI2,vI:Z$"SEC.":X1%253:Y1%K8%8:35191:-I7%K6%((I2(H0%TS%))O0):I8%K2%(V%(O%,H0%I2K8%:I%1:X1%K6%:IK8%S(2)K13S(2)K1+:Z$(I%):Y1%I:35278:I%I%J3%::X1%45:Y1%6:Z$"VOL (L)":35191:X1%1:K3%((H9%TS%)S7.5):K3%K3%(H0%TS%)S7,DO0(K7%K6%)(K3%1)S7:SO0S7:I0K3%X1%:I8%K6%(H0%TS%)O0IS:I8%279ēI8%,K8%2%4:I8%10:}*K6%,K2%(V%(0,TS%)M3%)K1:S9%H9%:K%TS%:IK6%K7%K3%O0:I,K2%(V%(O%,K%)M3%)K1:K%K%P%K3%:K%S9%Ă*I20:1920:I250:1920:I2Q3%:1920:I2300:TM%H0%300I2TM%H0%*1920:64210,10*&(+0230::K6%,0K6%,K8%K7%,9)D(16)6)R(J9%9)J7%R(J9%20)R(J9%9)R(J9%17)L)R(J9%22)D(20):f)"";:Q$"I"ġ:1550l))1790:1780:1840:1800:)K2%K8%:K1S(2)(K2%(4095S(2))):K11K1: *O0.315:O%0:P%1:K%1:K2%185:K8%165:K6%15:K7%275:S7Q3%:I39%6)D(18);(|R(J9%1)J7%R(J9%5)Q3%R(J9%3)R(J9%1)M(TI%J7%1740r(R(J9%15)D(12)R(J9%15)D(12)(R(J9%16)D(13)R(J9%16)D(13)(R(J9%17)D(14)R(J9%17)D(14)(R(J9%18)D(15)R(J9%18)D(15))R(J9%19)D(16)R(J9%1,ED$,J2%:R(I)D(J%):L'JR(J9%1)D(1)R(J9%1)D(1):R(J9%31)(TM%H0%)Q3%x'TD(2)J7%ĭR(J9%2)D(2)R(J9%2)D(2)'^D(3)J7%ĭR(J9%3)D(3)R(J9%3)D(3)'hR(J9%4)D(4)R(J9%4)D(4)'rR(J9%7)D(6)R(J9%7)D(6) (wR(J9%6)D(18)R(J:&,TS%J7%16708&6D(1)D(3)R(J9%1)R(J9%3)1610&@R(J9%8)D(7):R(J9%9)D(8):R(J9%10)D(9):R(J9%11)D(10):R(J9%12)D(11):O0MG:I2%J7%O0MF&D(37325)J7%1610&E(37327)0İ3605&F(37327)0İ2120:2040'H:I8190:J%,J1%:L%L%1:1540"%Q$"N"Ė1:1080_%1570:1340:"PRESS RETURN FOR FVL OR I (INDEX)";:1280%1570:Q$"I"ė:O$::36839,96:36772,54:5:11:"PLEASE STANDBY - SAVING DATA ":1175%Q$"R"5000%4200:Q$"S"1540%330&"1:24:868!$J(J)J3%:JJ(JJ6%)J6%J:h$"IS THIS AN ACCEPTABLE PATIENT RESPONSE?";:1280:Q$"I"ġ:1550$Q$"G"İ4100::2020$Q$"C"L%0İ4000::970$4200$Q$"P"İ1570:38251$$4200$Q$"E"İ5100:Q$"Y" %Q$"Y"İ1580:Z$"FLOW (L/S)":X1%XO%30:Y1%YL4:35191:J(FL):1470:J1J2:JFH:1470:J2J2#X1%XO%:I3J1J22:I3J7%Y1%YM%YCI3:Z$(I3):35278#:VHJ8%1VH10#IJ3%VHJ3%:XO%XCI,YM%J3%XO%XCI,YM%J3%:((I))S0%XO%XCI,YM%J4%::YL)S(4))15"YC(YHYL)XH:S(4)YCXLYHYH1:1414"XL30:XHXL(YHYL)1.128:YM%YCFHYL:XC(XHXL)(VHVL):XO%XL:V(I)(V%(0,I)M3%)S(2):Q#XO%,YM%YCFHXO%,YM%YCFLXO%,YM%XO%XCVH,YM%:Z$"VOL (L)":X1%XO%XC(VH.5):Y1%YM%6:35191%(36):-!PVHP(1):(37374)J7%VH(36875)G!dVL0:D(1)VHVHD(1)]!nJVH:1470:VHJ2!xVHVH2:YL5:YH188:FL1:FH(36876):I2%J7%FH1!YC((VHVL)2)(FLFH)FL:YCYC:FH2(VHVL)YC:FLYC:FHF(H8%)1400 "XHFH(FL):XL(XH(YH$:Q$(4,1),Q$(9,1),Q$(1,1),Q$(3,1),Q$(2,1),H,W,A:I115:S(I)::O$"CLOSE":Q(11,1)S(8):Q(12,1)S(7) iQ$(11,1)"":Q$(12,1)"":Q$(6,1)"":Q$(7,1)"" nL$L$Z$:820:Z2$(8)(32)(8):I0:R01:1540 x1450:1370:I12120 1440:S(7)50S(7)5","TEMPERATURE(C OR F)":ET1:ED0l 0,0,2,0,0,0,0,1,0,0,1,0,1,0,1,1,0,1,1,0,1,1,0,1,0,0,1,0,0,1,1,1,1,1,1,1 I112:A$:Q$(I,2)A$:Q$(I,1)Z1$::I112:I124:A:Q(I,I1)A:I1,I:O$(4):O$c d:P(41),S(15):O$"OPEN PTA.DOC":O$"READ PTA.DOC":L----CIDER----INF-------= ---7/84------S-&-M-INST 16368,0::Q$(12,2),Q(12,4):Z1$"NOT ENTERED":Z$(13):"NAME","ID NUMBER","DATE","PHYSICIAN","HEIGHT","WEIGHT (KG)","WEIGHT (POUNDS)","AGE","SEX","RACE(BLACK,CAUC)","BAROMETRIC PRESSURE          HHHhhhРȑ  uᆥЅх `Ѕх ܆А ȱаȱХ ` $ ȱȱХL` P P 444HH͢Ņ SH8 Hʢ S( hhhh `@ i`iAi `Hh`8ȥL  ii SSRUآ SP٢ SQ` VTVPQ T8R 8ȹi ]P TUT`PHV 6hP`iPViV`qH h8HLeUiVP8VP`PH P8Q QPi : 9Là̩̩֭֭à̩֭֭àƲ̯өҠ̯өƲ̯өƵ̯өƷ̯өà̩Ʋ̯өƲ̯өƵ̯өƷ̯ө` \L舩Z`ii hh  `` W`` :`8` g Lȱ8 ʇh 2`8` { LIHIh 8` `ꥃ`HHHhhhРȑ  uᆥЅх `Ѕх ܆А ȱаȱХ ` $ ȱȱХL` P P  16304,0:1570:55hQ$"S"L%0(37327)0İ3010:2090;5r\5R$"":(37327)0L%0İ3600w5(37327)128Ĺ37327,051240:2905I112:R(J9%I)0::I1520:R(J9%I)0::R(J9%22)0:%(1,I)YN%):xV%(0,I)M9ıIIK%:II2%ıQ1%:R(I80)J7%ĺ((R(I80)J2%));r4Q2%:J2%J3%R(I80)J7%D(J%)J7%ED$EZ$:K%D(J%)R(I80)Q3%:(K%);4::(1):(8):35044:(1):(18):95841570:1330:Q$"P"İ1570:38251:40504Q$"G"İ4100::Q$"S":9704 516299,0:333010:2090:2655:IH1%:200:O0MG:I2%J7%O0MF3V%(1,MA%8)(H0%MA%)2:V%(0,MA%8)(O0ME%)232:V%(0,MA%7)(I1%MA%)2:2050:3:1240::Q%)"TRIAL"L%1" BEST PERCENT"3I110:J%,J1%,ED$,J2%:Q%:D(J%)J7%ĺ((D(J%)J2%));#426652j 62n 252,(I):251,(I(I))256:34750:230:[2 I12000:V%(0,I),V%(1,I),I::x2 2120:V%(0,0)0:35433:2 I0%MA%:M0%V%(0,I0%):M1%V%(0,I1%):M2%V%(0,I2%)2 M1%M2%(28970)Q3%(M1%M0%)ı2 I2%02 2L%0(37327)0ı 1Z 2655:2670/1_ XAXCS(2):YAYCS(4):X1%I2%1d V%(0,MA%1)(1XA.5)256XO%:V%(0,MA%2)M3%:V%(1,MA%1)(1YA)256YM%:V%(1,MA%2)YN%:IME%256:254,(I):253,(I(I))256:I2%0IMF256:26662i IMG256:XO%XCV(X1%)0MGMG16:X1%X1%4: ";A;20)"SEX ";S$:(6):"HEIGHT ";H;20)"WEIGHT ";WQ\"B.S.A. ";P(13)5f"FVC (L)",1,1,"FEV-0.5 (L)",1,2,"FEV-1 (L)",1,3,"FEV-1/FVC (%)",2,5,"FEV-3 (L)",1,4,"PEFR (L/S)",1,7,"FEF25-75(L/S)",1,11,"FEF75-85(L/S)",1,12,"FEF25)0İ1155*O$"RUN DIR"<412)"PATIENT INFORMATION"::`>:L$;11)"PREDICTED RESULTS":HI14:P(I)P(I)R0::I612:P(I)P(I)R0::S(15)R0:I1518:P(I)P(I)R0::H(H100)100:W(W100)100:S(7)(S(7)):S(8)(S(8));RN$:(5):"AGE P(24):P(29)P(24)P(28)100^A2A:AA1:A1A2:830:B$"PTA.DOC":P(22)97:1170:F$"P"Č38251jF27ĬP(1)0P(1)11Ĭ1150 L$;P$;S$;N$;D$;I$;:H:W:A:I115:S(I)::I140:P(I):I190:"000000"::O$"CLOSE ";B$ (37329E03A3.9:P(28).079H18E03A7.49:P(29).265A21.7:P(32)(71.3.474A)B:P(33).172H.2509A15.988:P(34)1.077H.268A36.5 **ALL AGES BOTH SEXES **P(5)P(3)P(1)100:P(15)P(1):P(25)P(23)P(24):P(26)P(1)P(25):P(27)P(1):P(28)P(1)107.38:P(2).019H1.014A.406:P(4).035H1.023A1.633:P(8).043H1.025A.132P(6).145H.036A2.531:P(7).049H1.025A.735:P(9).035H1.013A.444P(10)3.042A.014:P(11)H1.021A.0241.171P(23).053H1.017W14.74:P(24).032H1P(2).019H1.016A1.738:P(4).033H1.086A3.417:P(8).044H1.144A3.365P(32)2.05H.57A5.5:P(34)1.077H.268A36.5:740*****FEMALE:>20YEARS******************PP(1)H1.037A.0221.774:P(3)H1.027A.021.794:P(5).111H1.109A1)H1.033A.0923.469:P(3)H1.027A.0852.703:P(6).145H.036A2.532:P(7)H1.049A.1573.916:P(9)H1.034A.122.531P(10)A.139.692:P(11)H1.025A.1211.893:P(23).122H5.01:P(24).0813H9E03A3.9:P(28)P(1)P(24)KP(19)1.5P(11):H3.50a&P(7).06594H15.3794:P(8).06367H15.1934:P(9).04477H13.3655:P(10).02483H11.85760P(23).0672.71828(.0211H1):P(24).0332.71828(.021H1):P(32)3.81H134:P(34).693H20.13:740*****FEMALE:>=18TO<20YEARS**********{P(H.2985A38.17740B*****FEMALEPREDICTEDVALUES************QA20690`A18640mA6760| H60540P(1).077H2.37:P(3).074H2.48:P(11).087H2.39:550P(1).102A.117H5.87:P(3).085A.1H4.94:P(11).083A.093.069H1.015A5.4:P(10).044H1.012A4.143P(11)H1.045A.0311.864:P(19)1.5P(11):P(23).081H11.792B7.11:P(24).0687H.017A3.447:P(28).094H1.015A9.167:P(29).343A16.7:P(32)(86.5.52A)B P(33).18H.2795A18.37:P(34)1.161.2985A38.17:740=*****MALE:>=25YEARS*******************P(1)H1.065A.0295.459:P(2)H1.037A.0172.746:P(3)H1.052A.0274.203:P(4)H1.063A.0315.245,P(6).109H.047A2.01:P(7).094H1.035A5.993:P(8).088H1.035A5.618:P(9)078A.1668.06:P(8)H1.07A.1477.054:P(9)H1.051A.0814.975:P(11)H1.0595.334:P(23).1295H5.19:P(24).0687H.017A3.447P(19)1.5P(11):P(28)P(1)P(24):P(29)100P(24)P(28):P(32)3.39H1.26A21.4:P(33).18H.2795A18.37:P(34)1.161H(32)3.81H134:P(34).693H20.13),740/6Z|*****MALE:>=18TO<25YEARS*************P(1)H1.05A.0785.508:P(2)H1.03A.0433.054:P(3)H1.046A.0454.808:P(4)H1.052A.0665.531:P(10)H1.0322.455P(6).109H.047A2.01:P(7)H1.6:P(11).094H2.61:280b P(1).174A.164H9.43:P(3).121A.143H7.86:P(11).126A.135H6.5 P(7).0806H16.9865:P(8).07811H16.8220:P(9).0543H14.5848:P(10).02817H12.3069 "P(23).0672.71828(.0211H1):P(24).0332.71828(.021H1):P(S(8)S(14))(S(8)47.067):" ATPS TO BTPS"g S(13)(S(8)S(14)).359421(S(7)273.16):" ATPS TO STPD"x P3$"M"230 490 *****MALEPREDICTEDVALUES A25420 A18380 A6760 H60270 P(1).094H3.04:P(3).085H2.89(S(7)32)< S(9)S(8)760273(273S(7)):" ATPD TO STPD"q S(11)863(S(8)47):" STPD TO BTPS S(14)=PH20" S(10)S(9)S(11):" ATPD TO BTPS" S(14).2S(7)6:S(14)31.82S(14)((.078S(14)1.152)S(14)9.133)) S(12)310.16(273.16S(7))֖e ----CIDER----PRE-POST---=----3/82-----S-&-M-INSTRd24576:XO%0:XC0:YM%0:YC0:YA0:XA0:O$(4):M3%0:O%0:YN%0:M90:J%0:J1%0:J2%0:J3%0:J7%0:(37325)0(47103)1270n130x1:0:3:! I0:I0%0:I1%0:I2%0:H0%0:M3%0:     24):(1):868::"PRESS RETURN TO RESUME NORMAL ENTRY.";::F(2100k(A$"PRE":2020:A$"POST":2020:s(E0(E0ĺO$"DELETE"A$((4E1:Z","HEIGHT","WEIGHT (KG)","WEIGHT (POUNDS)","AGE","SEX","RACE(BLACK,CAUC)","BAROMETRIC PRESSURE"II:1550$'ETET2:ED1:ET3ī1510='II1:Q(I,0)01470S'(ET):(1):"";:Y'':ED0:ETEF:IEI:P1$"":1540:1180'ED0Č868:'EG(0):Q$(I,1);:(EG1):'(24):(1):868:"PRESS ESC TO MOVE CURSOR TO EDIT A LINE";:;((E1:---CIDER----INF-------= ---7/84------S-&-M-INST 16368,0::Q$(12,2),Q(12,4):Z1$"NOT ENTERED":Z$(13):"NAME","ID NUMBER","DATE","PHYSICIAN","HEIGHT","WEIGHT (KG)","WEIGHT (POUNDS)","AGE","SEX","RACE(BLACK,CAUC)","BAROMETRIC PRESSUREQ$(I,1);:(EG1):S%(24):(1):868:"PRESS ESC TO MOVE CURSOR TO EDIT A LINE";:%(24):(1):868::"PRESS RETURN TO RESUME NORMAL ENTRY.";::%2100%A$"PRE":2020:A$"POST":2020:%E0%E0ĺO$"DELETE"A$%%4E1:UREQ$(4,1):S$Q$(9,1):N$Q$(1,1):D$Q$(3,1):I$Q$(2,1):H$II1:ETET2:c$ED0EFET:EII:1550$ETET2:ED1:ET3ī1510$II1:Q(I,0)01470$(ET):(1):"";:$$:ED0:ETEF:IEI:P1$"":1540:1180$ED0Č868:%EG(0):ĭP4$"B"P4$"N"R0.85(#nI7WQ(7,1)V#I6II1:WQ(6,1)2.2:Q(7,0)0:Q(6,0)1\#4$H12.54H:W1W2.2:BW1.425H1.7257.184E03:P(13)(B100.5)100:S(7)Q(12,1):S(8)Q(11,1):AQ(8,1):P3$(Q$(9,1),1):A1A:I112:Q$(I,1)Q$(I,1)Z$::P$1""(P1$)Q(I,4)FL1I"(I9ĭ(P1$,1)"M"(P1$,1)"F"FL1"2I10P4$(P1$,1):P4$"B"P4$"N"P4$"C"FL1"<"FHQ(5,1):I6:Q(6,0)0:Q(7,0)1:H90HH2.54:I5:EIEI0:Q(7,0)0:Q(6,0)1"P"Z1180:I5İ1350:#dI101$!P1$""Q$(I,1)Z1$$!1270:L!P2$Q$(I,1):Q(I,2)1P2$(Q(I,1))q!1040:P1$Z$Q$(I,1)P1$:1270!P1$P2$:1270:FL1ı!:!FL0:Q(I,4)0ı!I5ĭ(P1$)10(P1$)200FL1:!Q(I,2)01310" Q$(I,1)P1$:(P1$)0FL(IEIED1Q(I,0)0)I1I:1180? (37373)0I10II1:1180U IEIED1İ1515 1500:Q$(I,2);:1080:1520:Q(I,3)11210,1230:Q(I,1)(Q$(I,1)):Q(I,0)1 FL1İ1500:1180 P1$Z$ED1İ1515: Q(I,3)0:!950:P1$""Q$(I,1)P$,(P1$)1):960 `F$;" ";F$;:=jED$B$(F):M100:F2M1Ut((P(T)M.5));:~O$(4):O$:O$"OPEN ";B$:O$"DELETE ";B$:O$:O$"OPEN ";B$:O$"WRITE ";B$:43624,(36563)2000:(23):"PRESS RETURN KEY FOR INDEX ";:1000: 1:Q1(P2$)1:Z2$;::<P2$Z1$Č868:P2$;" ";ZP1$:P1$(27)F27:965hP1$Z$ı|$P2$Z1$İ1030.P1$;:960:8M120(0):"-";::"> ";:CV(37):B(P1$)0960L(P1$)1İ1120:P1$"":960V1120:P1$(P1P1$""1000:F81090M(F13ED1P1$"")ĺQ$(I,1);:1510:::1180gF27İ1460:::1180uF13ĺ:F3ĺO$:810F32960ED1Č868F58F59F44F34960P1$P1$F$:F$;:960F$:F(F$):37,CV (L)",1,28Yz"RV/TLC (%)",2,29,"FRC (L)",1,23," ",1,0,"DLCO ML/M/MMHG",1,34{:B$(1)" 0.00":B$(2)" "T11:I1242:I112:W$,F,T:T1)W$;:P(T)0İ1130T1T120:I1::T11:IW$,F,T:W$" ";:1130::1000:5 (L/S)",1,8,"FEF50 (L/S)",1,9,"FEF75 (L/S)",1,10 p"FIVC (L/S)",1,15,"FIF25 (L/S)",1,16,"FIF50 (L/S)",1,17,"FIF75 (L/S)",1,18,"MVV (L/M)",2,32,"SVC (L)",1,27,"IC (L)",1,26,"ERV (L)",1,25,"RV (L)",1,24,"TLC RT":1480:HD$(15)ED$F HD$(11)((H2.54.5)):HD$(12)((W2.2.5)) I115:S(I)::I140:DDT(I)::I((W2.2).425(H2.54).72571.8410000):HD$(13)((I100.5)100) HD$(23)((1S(12)1000.5)1000)$ I41130:DDT(I)::O$"CLOSE PTO$"OPEN PTA.DOC":ED$"":O$"READ PTA.DOC" L$:HD$(1)L$:P$,S$,N$,D$,I$,H,W,A:HD$(2)P$:HD$(3)(S$,1):HD$(4)N$:HD$(5)D$:HD$(6)I$:HD$(7)((H.5)):HD$(8)((W.5)):HD$(9)(A) ED$HD$(1):1480:HD$(1)ED$:ED$"PULMONARY FUNCTION LABORATORY REPO  ----CIDER----DAT1-------? ----9/83-----S-&-M-INSTRMd16368,0n:I0:I10:P0:D10:O$(4):T0:J0:A0:I20:I30:A$"":B$"":C$""xF%(150,7),DDT(250),HD$(23),F1(25),S(15)F1(15)6:F1(0)1:F1(19)2:F1(2)3:F1(3)4:F1(4)5'          5)240Q$"POST""43624,(36563)c V%(0,0)(131)(132)256:O$"BLOAD"Q$",A"V%(0,0):43624,1::O$(4):M3%0:O%0:YN%0:M90:J%0:J1%0:J2%0:J3%0:J7%0:(37325)0(47103)1270n130x1:0:3:! I0:I0%0:I1%0:I2%0:H0%0:M3%0:V%(0,0):V%(0,0)0:34802:J%(253)(254)25632?V%(0,6)M3%J1%J%V%(0,2)32:254,(J%256):253,(J%256(J%256))256:34564,4252,(J1%256):251,(J1%256(J1%256))256:34750:120:H0%V%(1,0)8:280:34564,8:Q$"PRE":(25YM%J3%:((I))S0%XO%XCI,YM%J4%::KJ(J)J3%:JJ(JJ6%)J6%J:q650:XAXCS(2):YAYCS(4):330:/254,0:V%(0,0)0:750:V%(0,7)(1XA.5)256XO%:M3%V%(0,8):I0%8:I1%V%(0,1)8:V%(1,7)(1YA.5)256YM%:YN%S(3):V%(1,6)YN%:V%(0,2)3J7%Y1%YM%YCI3:Z$(I3):352788:VHJ8%1VH10XO%,YM%YCFHXO%,YM%YCFLXO%,YM%XO%XCVH,YM%:Z$"VOL (L)":X1%XO%XC(VH.5):Y1%YM%6:35191:Z$"FLOW (L/S)":X1%XO%30:Y1%YL4:35191'120:IJ3%VHJ3%:XO%XCI,YM%J3%XO%XCI,M9600-lXHFH(FL):XL(XH(YHYL)S(4))1XvYC(YHYL)XH:S(4)YCXLYHYH1:630XL30:XHXL(YHYL)1.128:YM%YCFHYL:XC(XHXL)(VHVL):XO%XL:V(I)(V%(0,I)M3%)S(2):J(FL):700:J1J2:JFH:700:J2J2"X1%XO%:I3J1J22:I37,CV%:36,CH%::868:2&CV%(37):CH%(36):X0VHP(1):(37374)J7%VH(36875)rDVL0:D(1)VHVHD(1)NJVH:700:VHJ2XVHVH2:YL5:YH188:FL1:FH(36876):I2%J7%FH1bYC((VHVL)2)(FLFH)FL:YCYC:FH2(VHVL)YC:FLYC:FH371)1S(2)S(2)S(12):S(4)S(4)S(12)@YN%S(3):O$"BLOADMM":M::190a16368,0:Q$:::Z$"DATA ERROR :"((222))" IN LINE #"((218)(219)256):520::190:550:(21):(1)::Z$;"""PRESS RETURN TO CONTINUE ";:50040 X1%,Y1%5X1%,Y1%10 T V(I)V%(0,I)S(2):F(I)(V%(1,I)YN%)S(4): O$"OPEN PTA.DOC":O$;"READ PTA.DOC":$P(40),R(90),S(15):460:L$,P$,S$,N$,D$,I$,H,W,A:I115:S(I)::I140:P(I)::I150:R(I)::O$;"CLOSE PTA.DOC":(37 JIM.25:I13, TP(I7)0P(I7)FH380B ^P(1)I46.5380W hP(I7)12.5380| r61XO%XCIMP(1),YM%YCP(I7) |IMIM.25: 61XO%XCP(1),YM%:64210,10: Y1%YM%YCF(I) X1%XO%XCV(I) X1%0X1%275Y1%0Y1%19340:710:255,224:R(1)0İ7209 (37326)0İ120:::710U 255,240:R(41)0İ720 O$:104,96:24576,0:216,0:O$"RUNDAT1" IH0%:Y1%YH:410 "I1%H0%R1%IH0%R1%:400 ,I1%H0%R2%IH0%R2%:400 6I1%H0%R3%IH0%R3%:400 @,S9%),D(10):550 270? :O$::R(1)0R(41)0đ:::270 450:16368,0::120::::(1):(12):"PLEASE STANDBY - PLOT IN PROGRESS" I2%0:R(15)0R(55)0I2%1 M9R(7):R(47)M9M9R(47) D(1)R(1):R(41)D(1)D(1)R(41) 56S9%0:S$"":Q$"":Z$"":Y1%0:X1%0T J3%1:J4%6:J5%275:J6%2:J7%0:J8%9:49168,0 IM0:CV%0:CH%0:VL0:VH0:YL0:YH0:FL0:FH0:XL0:XH0:S0%31:K8%0:O%0:I%0:R1%25:R2%R1%2:R3%R1%6 M90:J0:J20:J10:I7%0:M.5 470:S9%1080:V%(15T,3D,45T,3D,54T,3D,63T,3D,74T,3D,ES~3R,"MVV (L/MIN)",72,162,32,112,202,242[2R4R,"## LUNG VOLUMES ACTUAL % PRED. PREDICTED ACTUAL % PRED. % CHANGE"R,"SVC (LITERS)",67,157,27,107,197,237R,"IC (LITERS)",662R2R,"FIF25 (L/SEC)",56,146,16,96,186,226b$R,"FIF50 (L/SEC)",57,147,17,97,187,227.R,"FIF75 (L/SEC)",58,148,18,98,188,2288R,"FIF25-75 (L/SEC)",59,149,19,99,189,229B4F,6T,1A,EL4R,20`4F,6T,A,E!t3F,6T,A,6D,3,"FEF50 (L/SEC)",49,139,9,89,179,219VR,"FEF75 (L/SEC)",50,140,10,90,180,2201R,"FEV-.5/FVC (%)",61,21,101,2311R,"FEV- 1/FVC (%)",45,5,85,2151R,"FEV- 3/FVC (%)",62,22,102,2321R,"FEV-.5/FEV 1 (%)",53,0,93,223",43,133,3,83,173,213:1F,6T,A,6D,45T,3D,54T,3D,74T,3D,EiR,"FEV-3 (LITERS)",44,134,4,84,174,214R,"PEFR (L/SEC)",47,137,7,87,177,217R,"FEF25-75 (L/SEC)",51,141,11,91,181,221R,"FEF25 (L/SEC)",48,138,8,88,178,218&R4R,"##SPIROMETRY ## ACTUAL % PRED. PREDICTED ACTUAL % PRED. % CHANGE"fF,6T,A,4.2D,35T,3D,44T,2.2D,53T,2.2D,63T,3D,74T,3D,EpR,"FVC (LITERS)",41,131,1,81,171,211zR,"FEV-0.5 (LITERS)",42,132,2,82,172,212R,"FEV-1 (LITERS)S:",234  F,6T,A,17T,1A,41T,A,60T,1A,70T,A,76T,1A,Eq  R,"PHYSICIAN:",2,"LAST CALIBRATION:" ,21,"TIME:",22 F,56T,A,68T,1A,74T,A,E 2F,E*2R4F,24T,A,E>R,"PREBRONCHODILATOR POSTBRONCHODILATOR *"C4F,6T,A,ELH R,"PATIENT:",4,"HEIGHT:",7,"(IN) -",11,"(CM)"," SEX:",3 R,"ID NUMBER:",6,"WEIGHT:",8,"(LB) -",12,"(KG)"," BSA:",13F,6T,A,17T,1A,41T,A,46T,1A,51T,A,55T,1A,60T,A,66T,1A,70T,A,76T,1A,E R,"DATE:",5,"AGE:",9,"BP:",10,"TEMP:",18,"ATP(37326)0Č2288:037104,28:37189:37104,60:eHD$(10)((S(8))):HD$(18)((S(7))):I725:I41::I12::"COMMENTS :"::HD$(I15)::F,1A,C,1A,C,ER,1,15 F,6T,A,17T,1A,41T,A,49T,1A,53T,A,60T,1A,64T,A,68T,A,76T,1A,E:A:640:500"TF%(I,2):620:500D&I11F%(I,3)1:630:I1:500Z0370:A:650:500c:500qN630:400wXbA$;:lT);:36,T1:vE$:36,0:P9P91:HD$(A);:DDT(A)0ı1460:(37325)0(47103)1ı((A$,1))65):D1(A$):P5F%(I,0)0:400hF%(I,0)P:P4F%(I,4)(D1):F%(I,5)(D1(D1).05)10:460wF%(I,P)D1II1:430II1F%(I,0)520,540,550,560,590,570II1:F%(I,0)0590490F%(I,1)0ćA$:610:500 @E$(10):SL(28672)!E13805J54,135:55,142@T33,40I^400OhorB$D$(F%(I,4)):F%(I,5)1ı|B$B$"."D$(F%(I,5)):A$:(A$,1)"R"I(A$)251:I1I:480(A$,1)"F"I(A$)251:I1I:4301350(A$:PF1((118)DDT(114)DDT(115)100i1I140:DDT(I40)0DDT(I80)0DDT(I210)(DDT(I80)DDT(I40)100)1003:CP1::(3):(1):"HOW MANY COPIES ? ";A$:(A$)0CP(A$)6:I0150:F%(I,0)0:::(12):(2):"PLEASE STANDBY - PRINTING DATA SHEET"DDT(93)DDT(82)DDT(83)100I01:DDT(41I40)0DDT(61I40)DDT(42I40)DDT(41I40)100:DDT(62I40)DDT(44I40)DDT(41I40)100:DDT(45I40)DDT(43I40)DDT(41I40)100DDT(75)0DDT(78)DDT(74)DDT(75)100"DDT(115)0DDT0ĭF$"Q"F$"P"İ1620:2204 F$"I"A$"END":1420E :1440:690 I140:DDT(I)0DDT(I130)DDT(I40)DDT(I)100:DDT(I170)DDT(I80)DDT(I)100 :D$(0)"":I19:D$(I)D$(I1)" "::DDT(43)0DDT(53)DDT(42)DDT(43)100DDT(83)0HD$(19)"DLCO (SS) ":DDT(74)DDT(73):DDT(114)DDT(113):DDT(34)0 :(3):"PREPARE PRINTER & PRESS THE RETURN KEY";:F$:DDT(80)DDT(41):DDT(67)DDT(80)DDT(80)DDT(67) (F$)13Ĺ2080,50:2101,51:(F$)50Ĺ2080,51:2101,52 (37325)A.DOC":O$:(37326)0ĺO$"BLOADCOLOR". 210n O$"OPENDATE":O$"READDATE":HD$(21),HD$(22):O$"CLOSEDATE" HD$(20)" ":S(15).85HD$(20)"KNUDSON SPIROMETRY PREDICTEDS DECREASED 15 PERCENT FOR BLACKS."F HD$(19)"DLCO (SB) ":DDT(73)03701 S10:I110:S1S1V%(I2,I)::S1S1.1:H V%(0,0)0:36608:OTA.DOC":O$;"READ PTA.DOC":L$,P$,S$,N$,D$,I$,H,W,A:I110:S(I)::O$;"CLOSE PTA.DOC":Z%(4,19)V%(5,19):V%(0,0)0:16368,0:36872,4:36873,5:36874,6) ED$" 0.00": TO ZERO. ADJUST A/D OFFSET=1"N @"2.STRAP REF FOR 5V ADJUST A/D GAIN=4000 "j J"3. ADJ. FLOW TO 2000"x ^16368,0 hX112 rX4:420:I02:J0:I2110:JJV%(I,I2): |JJ.1:X:X1:((J)):XX2: I(16384):I127Ĺ16368,0:140 X:X1:I25:410:ED$" 0.000":((S1S(6)1000)):ED$" 0.00"X I(16384):I128190d II128r "I65310 'I80Č38251:Q$:190 ,36763,16:36783,16::O$;"RUN DIR" 6:4:"VOLUME"::"FLOW":::"REFERENCE":ED$" ":15:"1.STRAP REF"PRESS RETURN KEY TO END " 2 420:X7:X115Z X:X1:I20:410:((S1S(2)100))d XX2j p X:X1:I21:410:(((S1S(3))S(4)100)):(28971)1270 XX2:X:X1:I24:410:((S1S(5)100)):XX2 (28972)5270= ::L$:::" INSTRUMENT CALIBRATION":N " VOLUME LITERS":z " FLOW LITERS/SECOND": (28971)1170 " HELIUM PERCENT": (28972)5170 " CO PERCENT": 22:10:֖J CAL 2/84 S&M3n49168,0:36763,0:36783,0x:O$(4):O$;"OPEN PTA.DOC":O$;"READ PTA.DOC":L$,P$,S$,N$,D$,I$,H,W,A:I110:S(I)::O$;"CLOSE PTA.DOC":Z%(4,19)V%(5,19):V%(0,0)0:16368,0:36872,4:36873,5:36874,6) ED$" 0.00":1@ 쑦쑅푦푅`  Q,1,$`  Q,2,$`쑅푅 쑥`푍쑅PH   C  ,  C ,0L Q,4,$Lԕ L   Ñ` L^0SL,0: "STOP"< @(37325)0(47103)0A$"END":1370E J400Z TF$"Q"Ĺ36865,3n ^680:36865,6: h(42233)1390 rA$:A$"244"1650 |390250),HD$(23),F1(25),S(15)F1(15)6:F1(0)1:F1(19)2:F1(2)3:F1(3)4:F1(4)5' 326)0ĭA210DDT(A)0ĺ(27)"Q,1,$";RED$B$:M10(F%(I,5)):((DDT(A)M.5));x(37326)0ĭA210ĺ(27)"Q,4,$";~B$;:M1I7(B$):"-";::"> ";:I18:M138((ED$)2):ED$" "ED$:: 54,189:55,158:1144SL,0:33,40:140**** FORMAT ERROR ****":-n1490::16368,0LxCP10CPCP1:P90:3101490:27137,96:28969,1:F$"P"F$"Q"İ1620:1390(42234)2Ĺ42234,1104,8:2048,0:(4):(4)"RUN DIR"CH(36):CV(37):36,CH:37,CV:#(37A,C,61T,A,C,6T,A,C,17T,A,E,R,"","","-----------------------------","PHYSICIAN"U<END~FA$"STOP"A$"END":27137,P9:1370HA$"SKIP"1640KA$"PLOT"1600P(28164)2İ680:(12);:P90:320ZA$"END"İ680:(12);:1390d1490::"103,193,2332RI4R,"## LUNG DIFFUSION ACTUAL % PRED. PREDICTED"F,6T,1A,4.2D,35T,3D,44T,2.2D,53T,2.2D,63T,3D,74T,3D,ER,19,74,164,34,114,204,2442R 4R,"COMMENTS :"F,6T,1A,C,6T,1A,ER,16,17#PLOTL(F,6C,56T,,156,26,106,196,236BR,"ERV (LITERS)",65,155,25,105,195,235LSKIP}R,"RV (LITERS)",64,154,24,104,194,234R,"TLC (LITERS)",68,158,28,108,198,2381R,"RV/TLC (%)",69,29,109,239 R,"FRC (LITERS)",63,153,23,(A$)2FC1%:5~I1C1%A$(A$,A%1):A%A%1:1130qB$(A$,I2,I1I2):I2I1C1%:(B$)I%(B$)I0%FC1%:Q$"0":I0%12Q$" "(B$)2B$Q$B$I%C%:I0%2400:FC%:I21:1130:FC1%FC%:1230I2C1%:A$A$" ":A%A%C1%:11080:A%A%1:A$(A$,A%):1030.8Q$" "Q$;:nBA$A$"/":A%(A$):FC%:I2C1%:I%C1%:I0%12:1130:FC1%ıLC$B$"/":I0%31:1130:FC1%ıVC$C$B$"/":I0%99:1130`A$C$B$:jI1I2A%:Q$(A$,I1,C1%):Q$"/"Q$":"ĂI1:FC1%: tA$"/"ġ::150 F1A$"N/A"&B16368,0:Q$:C(Q$):QA$"":A%0u1030:C13ĭA%L%Č198:1020C13A$A$Q$:Q$;:A%A%1:1020:1000:C31C13ıC81030A%01030$A%1İ1080:A$"":A%0:1030.I))::S(1)I110:(4):S(1)1000690) C%0:C1%1::"ENTER DATE (MM/DD/YY) ";:L%8:1010:1090:900:D1$A$::"ENTER TIME (HHMM)  ";:L%5:1010:1200:900:T1$A$:RO$:O$"OPENDATE":O$"WRITEDATE":D1$:T1$:O$"CLOSEDATE":F1L%880?T20:F20:I115:440:T2T2T:F2F2F::T2T25:F2F25:S(28971)1ıl16368,0:S(1)0ı:"ZERO VOLUME SPIROMETER CHECK.":"PUT SPIROMETER AT ZERO VOLUME - RETURN";:Q$:I(36667)256#I10:I2110:I,0:I1I1((I1)256(:150 bJl:::"FLOW ERROR - PRESS RETURN TO RE-RUN ";:Q$:::180vS2S13100C4::ED$" 0.00":"FLOW CHECK SYRINGE VOLUME IS "((S2100))" L"::16368,0"PRESS I FOR INDEX OR RETURN TO CAL ADJ ";:Q$:Q$"I"ĺO$:O$"RUNDIR":1MES.":"PRESS RETURN AFTER THIRD STROKE. ";6A$::A36608!32768:S1(224)(225)256(226)65536:N%V%(0,0):M%V%(1,0)$(J$)0630NS(4)(S13)(L100):S(3)V%(1,1)XS(2)(M%N%)LZS(4)35S(4)150620]M%4095Ĺ16368,04095US20:"ENTER SYRINGE VOL. (F FOR FLOW CHECK)?";J$:L3:(J$)0L(J$):490fJ$"F"480lF1:F10:FL3ĺ"PLACE SPIROMETER AT "L1" LITERS.":510FL4ĺ"PRESS ZERO SWITCH.(CAL.,SPIR 1)"*"PRESS RETURN & PUMP SYRINGE 3 TIF50:X:X1:((TS(2)100));" L"QX1:X1:(((FS(3))S(4)100));" L/S"::q"ADJ. ERROR - LOADING CAL"O$;"RUN CAL"36608:390V%(0,0)0:O$"BLOAD MMS"S0:S10:470:"ADJUSTMENT COMPLETE. LOADING CAL.":370M%0:N%USTMENT COMPLETE. LOADING CAL." r670:O$;"OPEN PTA.DOC":O$;"WRITE PTA.DOC":L$:P$:S$:N$:D$:I$:H:W:A:I115:S(I)::I140:P(I)::I190:R(I): |O$;"CLOSE PTA.DOC":420 IAD(3)::T0:F0:I150:TTV%(0,I):FFV%(1,I)::TT50:FF1 ,FL0320P 6:"RELEASE ZERO FLOW & VOL":"SWITCH IN CAL VOLTAGE.":330 @:"DEPRESS & HOLD THE 5 LITER":"VOLUME AND FLOW SWITCHES" JXX6 T ^660:T21400F22400340 cI1200::660 h:S(2)(T2T1)VC:S(4)(F2F1)VF:"ADJPRESS RETURN KEY. ";:A$C T10:F10:I115:430:T1T1T:F1F1F:f :T1T15:F1F15:T11800270 "CAL ERROR - 0 VOL. TO HIGH ":410 "ZERO VOLUME CHECK OK." F11975F12130ĺ"FLOW ZERO CAL NEEDED.":410 ""ZERO FLOW CHECK OK.":S(3)VOLUME CAL. VALUE ";VC9 "ENTER FLOW CAL. VALUE ";VF:E :L$:U ED$" 0.00" X7:X11::"SPIROMETER CAL ADJ":X:X1:X132 FL0VC5:VF5:"PLEASE STANDBY.":240 FL3FL4FL5450 "DEPRESS & HOLD FLOW & VOL ZERO":"AND THEN C":O$;"READ PTA.DOC":L$,P$,S$,N$,D$,I$,H,W,A:I115:S(I)::I140:P(I)::I190:Rp :O$;"CLOSEPTA.DOC" C2S(2):C3S(3):C4S(4) S(2)400:S(3)2000:S(4)100 ::"SPIROMETER CAL. ADJUST"::800:850 :FL1FL2180 :"ENTER ֖T----CIDER----ADJ--------=---10/82-----S-&-M-INSTRhd::S10:S%0:M%0:N%0:Z%0:36772,54nFL(37375):Q100:FL3FL4FL5Q3000sC%0:C1%1:F0:I20:I10:I0%0:I%0:A%0:C0W xV%(1,Q),P(40),R(90),S(15):O$(4):O$;"OPEN PTA.DO      "LUNG VOLUMES (BTPS) ACTUAL PRED %PRED"Hb"VC (L)",1,27hl"ERV (L)",1,25v"FRC (L)",1,23"RV (L)",1,24"TLC (L)",1,28"IC (L)",1,26"RV/TLC (1):868:"MORE STUDIES (Y OR N) ";:480:V:G$(G,1);:720:HIIN:F1İ180:530:G$(G,2);:720:HFIN:F1İ180:540&0(HT):F0:580:(Q$)0F1:IN0::IN(Q$):D"";Q$:N:PR$::"NAME : "N$:"DATE : "D$:(X= ";((DS100));" L (ATPD)"1:510:Q$"N"4307|SDDS:120:I2329:R(JI)0::VCVD:ERVE:ICVF:590:DSSD:28516368,0:Q$:Q$"P"İ170:38251:500:" ";:480Q$;:CH:CV1:"IS THIS ACCEPTABLE (Y OR N) ";:480:,::370@590::"CALCULATE DEAD SPACE ? (Y OR N) ";:480:590:::530::"VOLUME AIR ADDED(ATPD) (L)";:560:DSIN:"ENTER BASE LINE VOLUME (L) ";:560:DSHF(HIHF)DSIN:DS(DS100.5)100ED$"0.00"::"CALCULATED DEAD SPACE 590:::W$:W$:370::510:Q$"N"470+hQrT22:T129:T237:W$:W$"****"ıt|I,I1:ED$B$(I):M100:I2M1I2TT2:T1T12:T2T22W$;T)((R(JI1)M));:P(I1)0ĺT1)((P(I1)M));:ED$B$(2):I2ĺT2)((R(JI1)P(I1)100));FRSISO)S(12)L @ERERS(12):ICICS(12):RVFRER:MR(J1):VCVCS(12):MVCe JMR(J27)MR(J27) TVCM:TLRVVC:R(J26)IC:R(J27)VC:R(J25)ER:R(J23)FR:R(J24)RV:R(J28)TL:R(J29)RVTL100:B$(1)" 0.00":B$(2)" "::510:Q$"N"470%^Y (ATPS)(L)";:720:VCIN:F1İ180:270b :"ERV (ATPS)(L)";:720:ERIN:ICVCER:F1İ180:280 VDVC:VEER:VFIC:(36572)11040 "170::"START VOLUME (ATPD)(L)";:720:F1İ180:DS0:1040 ,SVIN:530:1080 6FR(SVDS)(HIHF)HF:FR( - MANUAL CALCULATIONS -":(36572)1İ590:DS0:250M 420:Q$"Y"İ430:240] Q$(13)ı ::"ENTER DEAD SPACE (ATPD)(L) ";DS 590:VCR(J27)S(12):ERR(J25)S(12):ICR(J26)S(12):R(J27)0285 170& :"VITAL CAPACITD": O$:O$;"OPEN PTA.DOC":O$;"WRITE PTA.DOC":L$:P$:S$:N$:D$:I$:H:W:A:I115:S(I)::I140:P(I)::I190:R(I): O$;"CLOSE PTA.DOC":O$;"RUN DIR" CV(37):CH(36): 37,CV1: 37,CV:36,CH: FRC2 G1:PR$"FRCC":L$,P$,S$,N$,D$,I$,H,W,A:I115:S(I)::I140:P(I)::I190 R(I)::O$;"CLOSE PTA.DOC":G$(1,1)"HELIUM % INITIAL":G$(1,2)"HELIUM % FINAL":G$(2,1)"HELIUM % INSPIRED":G$(2,2)"HELIUM % EXPIRED":G$(3,1)"CO % INSPIRED":G$(3,2)"CO % EXPIRE----CIDER----MAN--------=----8/81-----S-&-M-INSTRQd130:1285:120[n1320xHT32:DS0:H10:HF0:SV0:VC0:ER0:SI0:SO0:FR0:RV0:TL0:L20:J90:A P(40),R(90),S(15),X(20),J(10),R1(10):O$(4):O$;"OPEN PTA.DOC":O$;"READ PTA.DO         !!! ! ! ! ! !!!!!!!!!"HHHhhhРȑ P P`А ȱа ȱРР РР8ЅЅeeeL+ 130C$B$:1130:A$C$B$7(A$)4A$"0"A$:1230LA$"2359"FC1%R(0:Z%0:36772,54nFL(37375):Q100:FL3FL4FL5Q3000sC%0:C1%1:F0:I20:I10:I0%0:I%0:A%0:C0W xV%(1,Q),P(40),R(90),S(15):O$(4):O$;"OPEN PTA.DO:"CORRECTED EXPIRED CO (%)";:720:EIN:F1İ180:1500"ED$" 00.00":DL(VI25000S(13)(ICE))(CT(S(8)47)ET)::"DLCO (SS) (ML/MIN/MMHG) "((DL100))::510:Q$"N"1410"R(J33)DL:5#ED$".000":590::"TEMP."8)(S(7))13)"READINGS (0 TO END)"G!4)T0". ";:720:SUMSUMIN:F1T0T01:1470!(13):(1):958:T01T0T01:ED$" 00.0"::"AVERAGE END TIDAL CO IS ----- ";((SUM10T0))" %"!HTSA::"CORRECTED END TIDAL (%)";:720:ETIN:F1İ180:1490="ܰ1820< "VENTILOGRAPH VOLUME (ATPS)(L)";:720:VIIN:F1ı :"COLLECTION TIME (MIN)";:720:CTIN:F1İ180:1440 :"INITIAL CO READING (%)";:720:ICIN:F1İ180:1450!16368,0:SAHT:HT8:T01:SUM0::"ENTER END TIDAL dDM$(1)"MANUAL ENTRY FRC.":DM$(2)"MANUAL ENTRY DLCO(SB).":DM$(3)"MANUAL ENTRY DLCO(SS).":DM$(4)"EXIT TO DIRECTORY.":I1n10)I". "DM$(I)::II1:DM$(I)""1390xZ1I1::"ENTER SELECTION : ";: PR$"DLCO (SS) - MANUAL CALCULATIONS -":::I:::(36570)0ı} 590::"IS THIS STUDY PRE OR POST ? ";:R$"":I13:Q$:Q$;:R$R$Q$::J0:R$"POS"J40:R$"PRE"1290(:(5):1380:A$:(A$)0(A$)0(A$)Z113202(A$)Z1150<(A$)200,730,1410:1320{3)11260/P1.014103:P2.416894:P35.778E03[CIP1P2CIP3CI2:CEP1P2CEP3CE2wCOCIH2H1:RA(COCE)} ED$" 0.00"::::"STUDY DLCO VA(STPD) TLC(SB)":T1:I1L2:3)I;:J113:J110T)((X((J11)5I)100));:J1I,1):(C$)48(C$)57Ă:11707J(I1)(C$):I1I11:J00:M14:J90:I1I11:J9J9X(J0J(I)):I:R1(M)J9(I11):J0J05:MR(J34)R1(1):R(J35)R1(2):R(J30)R1(3):1100:A$""Q$:Q$;:(Q$)13A$A$Q$:1210(3657LR(J29)0ıVR(J25)0ıc`R(J24)R1(3)R(J27):R(J23)R(J24)R(J25):R(J28)R(J30):j1280::"SELECT DESIRED STUDIES. ":"(I.E. 1,3 OR PRESS RETURN TO AVE. ALL)"t1200:A$""āI11L2:J(I1)I1::1170~I11:I1(A$):C$(A$,180:1050M$170::"VOLUME AIR ADDED (ATPD)(L)";:720:VAIN:F1İ180:1060.530:1080:FR(VA)H1HF(HIHF)(H1HI):FR(FRS(12))SOSIDS.1:3208:"SWITCH-IN ERROR (ATPS)(L)";:720:SIINB:"SWITCH-OUT ERROR (ATPS)(L)";:720:SOIN:DS0:NVA(VIW1000)H1H2S(13)1.05:VIVIS(12):VCVI:TLVIH1H21.05X1230DLVA100060BH1(S(8)47)RA:810170::"HELIUM ADDED (L) ";:720:HAIN:F1İ180:290170::"HELIUM % READING ";:720:H1IN:F1İ));n::"DLCO (ML/M/MMHG)"22)((DL100)):DLDCĺ"DLCO CORRECTED FOR "((GM100))" GM% HB "((DC100)):510:Q$"N"730Q$"Y"L2L21:X(L2)DC:X(L25)VA:X(L210)TL:X(L215)RV520:Q$"Y"7301130 0.00":"VOL IN(BTPS)-"14)((VI100))22)"VC (BTPS)-"35)((VC100))p:"VA (STPD)-"14)((VA100))22);"DL/VA -"35)((DLVA100))zED$" 0.00"::"SB TLC(BTPS)-"14)((TL100));:R(J28)0ĺ22)"HE TLC(BTPS)-"35)((R(J28)100PIRED"34)((H2100)):FHED$" .000":CF1000:CI1ED$" 0.0":CF10R"CO INSPIRED"18)((CICF.5))26)"EXPIRED"34)((CECF.5)):\ED$" 0.00":"BREATH HOLD TIME"18)((BH100))26)"SEC.":::VCR(J1):VCR(J27)VCR(J27)HfED$" DS(DSS(10))S(12):ADW1000:VA((VIDSAD)H1H21.05)S(13):VIVIS(12):TLVIH1H21.05:DL(VA601000)((S(8)47)BH)((CIH2)(CEH1))*DCDL(.06965GM)::510:Q$"N"74041820>ED$" 0.00":"HELIUM INSPIRED"18)((H1100))26)"EX:GMIN:F1GM1.06965)F1:S$"F"F0PGM(12F)GM(16F)GM1.06965:"BREATH HOLDING TIME (S)";:720:BHIN:F1İ180:770 1830:G3:H1HI:CIHF:1830:H2HI:CEHF(28161)1950,960,970,980,990:CI11000(36571)11000 (%)",2,29"****":W$=W$:W$"****"ćI,I1:700C]170:560:Q$"Q"ġ:cqDLCO(SB)G2:PR$"DLCO (SB) - MANUAL CALCULATIONS -":590:"VOLUME INSPIRED (ATPS)(L)";:720:VIIN:F1ı:"HEMOGLOBIN (GM%)";:720 Ñ`ϩ( `HLh L0`υ(ϩ` LX 3$ Щ  H ꐤϱh8 ϥ e жPLH J lޑL?)hL?БK****` 3 L hLJ ȱ) i x Z Z`Lߎ` Z Z`eee`*إee`Ff` Ñ`Ѡб, ѩ`) ⑩`HJJJHJ) h)i h) e` <e` ` ꩀ@ i eeeȱeÅ ȑ P X  ii  珥ои``3 `օ`8&*(Lˏee&`Hȱh ` ֏H ֏8V S ⑽),. := ٘``J X< e<8.-%% ?$$ -%@ !-7CQ]hsvz )2>JV_lx $$ $ 6#gl6.$o $t ?o" < .$ceV! $$  $$s ? &$* 32?M% ` RRLs~*I),H h LHL` L  ,0LYLԕɀL$ϩ ϡReRύ'`&RLH J lޑL?)hL?БK****` hLJ ȱ) i x Z Z`Lߎ` Z Z`eee`*إee`Ff` Ñ Ñ`m푍쑍PHL ⑩`J,j80 L<'S ` ꩀ@ i eeeȱeÅ ȑ P X  ii  珥ои``6 `օ`8&*(Lˏee&`Hȱh `` ֏H ֏8V S ⑽),. := ٘``J