`L i=L\Ʃx ? N'i  ͭЅ?0ȱ Ѕ?iȱi lԠԠ͠ԠϠŠͮŠ SYSTEM.APPLE   L$JTAlYAi^AcADiAnABtA yAcA.݂AlAA8A|AfԒA?AAXTAbADAAA&AA׸A%AqAtAVAdAA9A*Ac9AWfA(AAAAVA$ABABB B"BxBeB_BuB1 BV$B*(B2,B20B14Bqc8BϮ?6?D?k?6?.?w?y??[q?R?O?k???w???@'@,@ @B @Ɍ@@\@@x~@s/"@q%@)@-@1@5@5:@>@XUDRESULTS.TEXTTXT;Vf DEFPSA.DATAr MPSAINFO.DATAuX UDINFO.DATAu UDPSA.CODE;Vf BUFFER.DATANcH UDTEMP.DATANcUDTEMP.DATANcUDTEMP.DATAVcATALOMPSA2STIM.DATAO` SETUDPSA.CODEVf`gREDUCEMPSA.CODEgyMPSAREPORT.CODEy MPSA.CODED<Vf蠂MPSASETUP.CODEf蠒PRINTMPSA.CODEf蠮 MPSASUM.DATA|}DUDRESULTS.CODEf MPSAIP.# STARTGI.CODET#) ANY1.CODED*T)/ ANY2.CODED*T/8 TESTPSA.CODET8>STARTSTRIP.CODE>BPPRECORDS.CODETBE UDPRINT.TXTؑEG MPSAINTRO.TXTvGI MPSAPASS.TXT"ILMPSA1STIM.DPM91X# CVTEDR.DATAT  LINETEST.CODET  EMGS5.0.DATAT CVTEMGS5.DATAT EDRSCALE.DATAP PPGSCALE.DATA* DATEINFO.DATAH INVTABLE.DATASTRESSMON.CODET&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xH&x'8*7Ixix&&  ') + &п x) ++`FG8`0($ p,&") (jJJ>L+ "?I>  N `  ` x V Nx .x- z `V0^*^*>` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&hBmBsBOxBC~B8BKAB[B̈BȎB B2BBюBA4BnBB BBֿBB88BnBB߭BU`B.BB_"BHBBBQwBBFBCCC1 CnC5C5%CsCf,CC`#CgW'C!=+C:/CN3C{7C;C\!@CDC/ICMC RCWC^\CaCqfC]lCqCwCLINETEST t>7|>އ>ކ>Z>>}Ɣ>ɸ>/՞>>>95>>\ >sE>y>0V>k2> I>>H->><> ?*?z ??o???c#?x(?.?3?9?@?qF? M?S?Z?F.b?gi?xq?y??.?f?/??V̗?]؜?Y?r??IJ?%?Pھ?2?2?s?^??;??BzC?CH C@C#CCu: C=%C\+CU0C6CmC!uCH}CقC3ChCoWC#CfC9C;CCXCHzC삻CC/CCjC}C +CCC CDfZD DoD[4D!D-9D{#D`(D!.DV4DU:D@DSFDMDaTDp[DnbDJFjDOrDzDb{AށA>0AbABAAAAHA_A]RAA*A3KAAKA^A+AHuAA[A'A/BXB BQ\BBB B;B"BK'BF:-B2B$8B=?BpEB,LBRBYBl aBфhB?pBBaB;BwB+BBK B=B왦B#BݱBƷB6Bn3BdBvBmBڟB;BBB?@X@K@6K @@n@Y@ !@e&@+@Q1@X7@=@C@yJ@*5Q@)X@Y_@f@rn@`v@~@*@@,h@>@ @@0@KZ@٪@ᇰ@kf@v@@x4@@@@S@@@@ذA8 A A$*A2A A AP$A+)A;l/AVA5AH;A!AA,GANA\uUA5\AucAwkAGKsAt>7|>އ>ކ>Z>>}Ɣ>ɸ>/՞>>>95>>\ >sE>y>0V>k2> I>>H->><> ?*?z ??o???c#?x(?.?3?9?@?qF? M?S?Z?F.b?gi?xq?y??.?f?/??V̗?]؜?Y?r??IJ?%?Pھ?2?2?s?^??;??צContinue display? [Y/N]: YˡצONE MOMENT PLEASE ... צ#5:STARTGI.CODE&<+#n_PV            299ȡ  áצContinue display? [Y/N]: YˡצONE MOMENT PLEASE ... צ#5:STARTGI.CODE&<+#n            299ȡ  áצTo stop the display, press ESC.צPress צ SPACE BAR to begin: Pצ P&  ovided as an aid for telephonediagnosis and consultation.צ' The sampling rate of the computer has$been slowed down in this routine to increase readability.צ'from the 8 A/D channels of the Davicon 'IO board. This information is generallyצ'used for testing the functioning of the'IO board and the individual MEDAC unitsצ'and is pr  ,  ,צ MEDAC CHANNEL TEST ROUTINE " This routine displays the values#ranging from 0 to 255 that are read?@X@K@6K @@n@Y@ !@e&@+@Q1@X7@=@C@yJ@*5Q@)X@Y_@f@rn@`v@~@*@@,h@>@ @@0@KZ@٪@ᇰ@kf@v@@x4@@@@S@@@@ذA8 A A$*A2A A AP$A+)A;l/AVA5AH;A!AA,GANA\uUA5\AucAwkAGKsAb{AށA>0AbABAAAAHA_A]RAA*A3KAAKA^A+AHuAA[A'A/BXB BQ\BBB B;B"BK'BF:-B2B$8B=?BpEB,LBRBYBl aBфhB?pBBaB;BwB+BBK B=B왦B#BݱBƷB6Bn3BdBvBmBڟB;BBBactivity may be displayed.SELECT AN OPTION:צ Aצ ANALOG, MOVING SIGNAL DISPLAYצ Botential usesצ&include reactivity monitoring during aצ'psychotheraputic interview or in Stress$Innoculation / Desensitization work.(Either Muscle activity, or Electrodermalצ STRESS THRESHOLD MONITOR (This program is designed for Relaxation/'Stress Management Training in which theצ(goal is to detect or signal increases inצ&physiological activity. P  STRESSMOSELECTOP ~}|{zyxwvutsrqponmlkjihgfedcba`_^]\[ZYXWVUTSRQPONMLKJIHGFEDCBA@?>=<;:9876543210/.-,+*)('&%$#"!  JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC1.01.31.62.02.53.24.05.06.38.010/131620253240506380100130160200@q=?G??CK?7!?A?>Ը>>L>!>%>=x=:=5M=S#=o=< ף<o<;pN< #<.66.801.01.52.53.03.34.05.0S6.0in8.0ve1020100צ250 =500te1000n>}>_?d?v??Zd?Nb@v>@Dd@Z@v@ff>A{nBC̔CfDBzC?CH C@C#CCu: C=%C\+CU0C6CmC!uCH}CقC3ChCoWC#CfC9C;CCXCHzC삻CC/CCjC}C +CCC CDfZD DoD[4D!D-9D{#D`(D!.DV4DU:D@DSFDMDaTDp[DnbDJFjDOrDzDצ! BINARY, RED-STRESS/GREEN-RELAXED M MASTER MENU.צ%Press one of the highlighted letters above to make your selection.(e epצ#Please try again. Press one of the "letters above to make a selection.(+&!AM $e STARTGI eX dZצ dZ STRESSED dZצ  TÝÍǷצSTRESS MONITORǷ'T= Threshold ESC= Exit ǴTÝÍ ABváá  !RETURNING TO MENU ... #4:MMENU&+d !cdZצ dZ STRESSED dZצ  TÝÍǷצSTRESS MONITORǷ'T= Threshold ESC= Exit ǴTÝÍTÝÍx ɡ _ dAB  צ(T= THRESHOLD ESC= EXIT ǿ ɡث/áá á áګ Ɓ^gȡl ɡss RETURN to accept Threshold.( Ǵš ́/ʁ/ȡgثd"f E TO READ 1 BLOCK OF SYSTEM.MIACINFONO&ǭ?צAdjust Threshold with צUPצ and DOWN ARROWSPreצ$Do you want a tone to sound when theצThreshold is crossed? [Y/N]: Yá-  Ǵ  (ƁƂ3ƁצSYSTEM.MISCINFOƁˡA)UNABLצEnter value and press צRETURNצ: ;P;"Do you wish to modify the standarddisplay speed? [Y/N]: Yáthe signal moves across the%screen. Large values cause the signalצ"to move more slowly; small values צallow a faster display.  may be a good value.gEMGתPI  gצEDRP,  gTEMPתP13`E*e rCHANGE DISPLAY SPEED:צ' You may slow down or speed up the rate$at which eצSIGNALS AVAILABLE:צ 1= Muscle Activity (inside EMG)צ 2= Electrodermal ActivityצPress one of the above: 0ŝ3ɄeeX BINARY, RED-STRESS/GREEN-RELAXED M MASTER MENU.צ%Press one of the highlighted letters above to make your selection.(צ# GENERAL INSTRUMENTATION INTERFACE צ" The following routines provide aצ&general purpose interface to the MEDACצ%instrumentation. They may be used for$physiological displ across thescreen. {faster moving signal} 1=FASTEST  צ=MODERATE 1000=MAX.צEnter a value and press צRETURNצ: lues will increase the time it(takes for the signal to trace across thescreen. {slower moving signal}(Smaller values will decrease the time it(takes for the signal to trace'the signal is traced across the screen.צ"Do you wish to manually adjust theצtrace speed? [Y/N]: YáSET SCREEN PASS TRACE FACTOR:צ'Larger vaNUצ$Press a key to make your selection: MáEONE MOMENT PLEASE... צ#5:STARTGI.CODEq$You may control the speed with whichOPTIONS: 0= PLETHYSMOGRAPHצ 1= TEMPERATUREצ 2= SKIN CONDUCTANCE 4= INNER EMG UNITצ 6= OUTER EMG UNIT M= ME>צ SINGLE SIGNAL DISPLAY PROGRAM צ&This program allows you to display anyצ&of the MEDAC channels on the screen inצthe screen pass mode.0Ý1Í  2Ý3Í  4Ý5Í 6Ý7Í 2G2T 2J 2@92/ (  2 07NF>61)$   ANY1 TEST.CODE@צ#5:TESTPSA.CODE) #4:MMENU.CODE |jR<'&2*RhZBrJ"letters above to make a selection.([VQLGB1M:&#   "$&(*,.02468E &ONE MOMENT PLEASE ... צ #5:ANY1.CODEצ #5:ANY2.CODErצ#5:STARTSTRIP.CODEXצ#5:LINEkeys indicated above.(: >pצ#Please try again. Press one of the "letters above to make a selection.([VQ# 3= STRIP CHART - Scrolling Displayצ 4= MEDAC Channel Test Routineצ 5= PSA Interface Test Routineצ M= MASTER MENUצ'Make a selection by pressing one of theay or for testing'the functioning of the instrumentation.צSELECT AN OPTION: 1= SCREEN PASS - Single Channel 2= SCREEN PASS - Dual ChannelP d1ǷSINGLE CHANNEL DISPLAYצPress "C" to Change. ESC=EXIT Ǵ233ȡ@ ÝCÍ11á   ONE MOMENT PLEASE ... צ#5:STARTGI.CODE&+3b].$TESTPSA áצ ONE MOMENT PLEASE ... #5:STARTGI.CODE&*=#n\8   d5ǷDOUBLE CHANNEL DISPLAYצPress "C" to Change. ESC=EXIT Ǵ99ȡs87 ÝCÍ55 1=FASTEST  צ=MODERATE 1000=MAX.צEnter a value and press צRETURNצ:  P  d across thescreen. {slower moving signal}(Smaller values will decrease the time it(takes for the signal to trace across thescreen. {faster moving signal}צ"Do you wish to manually adjust theצtrace speed? [Y/N]: YáSET SCREEN PASS TRACE FACTOR:צ'Larger values will increase the time it(takes for the signal to trace 67áAצ#4:MMENUONE MOMENT PLEASE ... p ^$You may control the speed with which'the signal is traced across the screen.= MENU&Press a key for your first selection: MáCצONE MOMENT PLEASE... #5:STARTGI.CODE 68צ'Press a key for your second selection: צOPTIONS:צ 0= PLETHYSMOGRAPH 1= TEMPERATURE 2= SKIN CONDUCTANCEצ 4= INNER EMG UNIT 6= OUTER EMG UNITצ M>צ DOUBLE SIGNAL DISPLAY PROGRAM צ&This program allows you to display anyצ&2 of the MEDAC channels on the screen צin the screen pass mode.0Ý1Í  2Ý3Í  4Ý5Í 6Ý7Í 6G 6T 6J 6@ 9 6/ ( 6 07NF>61)$   ANY2 P d1ǷSINGLE CHANNEL DISPLAYצPress "C" to Change. ESC=EXIT Ǵ233ȡ@ 2ȡ2¹~dJ0 TEST PSA SAMPLE ROUTINE # This routine provides a means forצ(testing the machine code/hardware inter-UTQLGDA@98521(~wvspofXSPMLEDA>=4&!  ~zok`\QMB>3+ v β$ h`PULSE WAVE HEIGHT..*BEATS/MINUTE.......*TEMPERATURE........*EDR................*EMG A..............*EMG B..............*,*~whfed]YWV ȥ!HH`*.ʹ 8n䍶` !x* L* L* (L* (L* (L*$* (L=QTLNH,,0% L)$ ș(ȭi( <d i(  iș(ȭi( <d i(  iș(ȭi( W   ! WͲ  W$PLͯͮLL^H &ehe ' <d i  ișȭi <d i(  iș(ȭi( <d i(  iLt W$PLͯͮLL@%eeͽ ͼeeLX8͸媥JjNNL <d i  ișȭi &+9!dhhhhhhhhhhhhhhhhh h h h hh hhhh Wͯͮ LX~dJk0Q7⨀áá  ONE MOMENT PLEASE ... #5:STARTGI.CODE#5:FASTDATA.DATA©©ȡ⨀¹צPress צESC to Exit.ȡSAMPLE PERIOD:  kQ7צ#PRESS RETURN TO START NEXT SAMPLE: צ& z𥄚    <å¹ ƦGAIN OK תPń7ɡצ INCREASE GAINPצ DECREASE GAINPá$Ʀ תP  ȡ ءáá`FHress צ SPACE BAR to start: S6 bǴצPPG GAIN ADJUSTMENTDzALJAZ Z 2 ȡKáš ɡ  ȡts. Rise Time, Fall Time, and IBI arenot displayed.( Fifteen 10 second sample passes will be&displayed. You may exit early by using the ESC key.צPצ%face used by the PSA series programs.( All of the values displayed, except for&heart rate, are "bus" values and have $not been converted to physiological (uni TEXT*.MAKEDATE.TEXTT蠆SYSTEM.WRK.CODEvBFRECORDS.TEXTTH` @ $H @ @ 4h @C <4xhC &آآ*Í k vޢƁ-Ǭ#5:MPSAINFO.DATAآآ PYyÍ, 4ۢڤ ɡš2ڪP-19:!1ׯ)Illegal filenamenTȡۤˡ áڢڢˍ? P ˡآڤ á Cá>آآ*Í k vޢƁ-#5:EMGS5.0.DATAبX JYyÍ, 4ۢڤ ɡš2ڪP-19:!1ׯ)Illegal filenamenT 1  No data file present.צ Please press  SPACE BAR.( צONE MOMENT PLEASE ... צ#5:PPRECORDS.CODET nTצPress צ SPACE BAR for Graph: ft &measures above correspond to increasedphysiological arousal.ȡ.h ȡ.h  ȡY ءKARTF:  ȡ)Y   &peripheral vasoconstriction referenced$to RELAXING. Increases in any of the&measures above correspond to increasedphysiological arousal.ERY   ȡZ ȡ.h &PCI is an index of relative changes in???hh??hhצPSA SUMMARY TABLEצ(MEASURE RELAXING STRESS RECOV楄h?h<h?h<h?h<| ȡ&hȡȡȡ쥀 ٫ ȡNY8 ĥ¥¼ļ ¼􊇽h楄h?h<h?h<h?h<ȡJȡ8ȡ&hȡȡȡ쥀 ٫ ȡNY8 ĥ¥¼ļ ¼􊇽hL   áڢڢˍ? P ˡآڤ á Cá>آآ*Í k vޢƄƅǬƆƇǬƁ-ǢƄצ#4:MPSAINFO.DATAƆ9ʄʆƄƄƆ#4:MPSASUM.DATAإƨآJآYצ#4:MPSASUM.DATA"áƄƆ ƁL   áڢڢˍ? P ˡآڤ á Cá>آآ*Í k vޢƁƃǢƁ-ǬbbצPASSMPSA39#5:MPSAINFO.DATAתPצ#5:MPSASUM.DATAP-9צ#4:MPSAINFO.DATAP#4:MPSASUM.DATAתP9"ˡآآƁ٥"ˡʁ٨Jʁ٢Yʁ٢ƁƁȡۤˡ áڢڢˍ? P ˡآڤ á Cá>آآ*Í k vޢȡ.h ȡ.h  ȡY ءKARTF:  ȡ)Y   צPSA SUMMARY GRAPHצ( The data will be plotted in the summaryצ!graph such that increasing values%correspond to increased physiologicalצarousal.צ  צ PCI צ PULSE HEIGHT צ IBI צ HEART RATE צ EDA צ EMG SITE 1 צ EASSMPSAתPbg gצ%Disk and will be erased the next time&the Brief PSA is run. To save a record&of this data, an extended analysis may$be sent to the printer at this time.bצ PASSCOMPLETEPbצ& A more detailed analysis of the dataצ&may be sent to the printer if desired.צ#Send report to the printer? [Y/N]: &YábP$file on the Physiological Monitoringצ%Disk and will be erased the next time&the Brief PSA is run. To save a record&of this data, an extended analysis may$be sent to the printer at t צ$WARNING: This Patient Record Disk isצ&close to being full and can not hold aצdata file as large as the PSA.צ( The data have been saved in a temporaryצ _9܂ $1+%   +'# eeȡ#܂  <ex  ddȡáǴצIPHDzDzǖצHRIǔǔxצEDAv vcZצEMGXX;<צEMG: :  SPACE BARצ for Graph: & ǿǷ PSAצ" Relaxing Stress Recovery   T  z2R ƅ2ƅ2 7+-6L &Press ʅ2,d ʅ2, d;ᢇ?áB 2١س?2@ƅ2Ɔ^ǀƁ2#5:EMGS5.0.DATAƃ2ݨƅ2צ#5:INVTABLE.DATĂʆȡ ̆ʆȡáBצ%to the graph one at a time. Press the&SPACE BAR to advance to the next plot.צOne moment please... ( e suggests vasodilitation.& HRI indicates changes in the cardiac'cylcle. Increasing values correspond toצ%higher heart rate. The actual plot is&of inverted interbeat interval values.% Plots for each measure will be added% IPH is an inverted display of blood"volume pulse height. A rising line'suggests vasoconstriction and a fallingצline suggests vasodilitation.& HRI indicates changes in thMG SITE 2      #5:PRINTMPSA.CODEתPצ #4:MMENU.CODEP%ONE MOMENT PLEASE... ,1 c  צ PCI צ PULSE HEIGHT צ IBI צ HEART RATE צ EDA צ EMG SITE 1 צ ELL@%eeͽ ͼeeLX8͸媥JjNNL <d i  ișȭi H &ehe ' lNd!?hhhhhhhhhhhhhhhhh h h h hh hhhh Wͯͮ LXLt W$PLͯͮhkNQ47š©ɡũ Ʉ2á멹 #5:REDUCEMPSA.CODE+(r򥄿 Iv #5:MPSA.DATA©ë©ȡkQ7@*(+*(צ' (צ' (á^( PLEASE SPEAK CLEARLY SO THAT ת(צ( YOUR ANSWERS ARE SCORED CORRECTLY. ( @ (&0ǩ̂ʂȡƁOǹ6ڤ á Cá>آآ*Í k vޢƁ-#5:MPSAPASS.TXT  BRIEF PSA  צ)One moment please... data reduction ... oegin.(&0ǩ̂ʂȡƁOǹ6ڤ á Cá>آآ*Í k vޢƁ-#5:MPSAINTRO.TXTצ צ BRIEF PSA  Press  SPACE BARצ to bƁƁ5ƁƁ5ƁƁ5ƁƁ5ƁiƁ5ƁOƁ5̂̂ǩ̂ʂȡƁOǹ6ڤ á Cá>آآ*Í k vޢƁ-#5:DEFPSA.DATAé<צ#5:MPSA2STIM.DATAP#5:MPSA1STIM.DATAתP8צ#5:USER2STIM.DATAP#5:USER1STIM.DATAתP2̂ʂȡƁ52ǹƁƁ5 L0 8MINIPSA INITIALISTARTTEXWAITMESS MG SITE 2      #5:PRINTMPSA.CODEתPצ #4:MMENU.CODEP%ONE MOMENT PLEASE... ,1 c<d i  ișȭi <d i(  iș(ȭi( <d i(  iș(ȭi( <d i(  iș(ȭi( <d i(  iș(ȭi( W   ! WͲ  W$PLͯͮLL^ ȥ!HH`*.ʹ 8n䍶`(Entry not correct. Include decimal point(if needed: .66, .80, 1.0, 1.5, ... 1000 Enter value and press RETURN: PƁ צEnter GAIN value and press RETURN: Pb́ʁȡ-b آ0bbVQ9 šצ&Determine whether the P1 Range switch צ&is in the LOW [1-13] or HIGH [16-200] צ&position and then read the Gain value צ&off the large Gain Control Knob. צEnter GAIN value and press RETURN: Pb́ʁȡ-b آ0bbVQ9 šצ&Determine whether the P1 Range switch צ&is in the LOW [1-13] or HIGH [16-200] צ&position and then read the Gain value צ&off the large Gain Control Knob. -`#5:PPGSCALE.DATAP1 AMPLIFIER GAIN SETTINGS: Pá LOW RANGE:  á( HIGH RANGE:  ́ʁȡ7 á á&The value entered did not match one of%those listed above. Please try again.צEnter GAIN value and press RETURN: PƁȡۤˡ áڢڢˍ? P ˡآڤ á Cá>آآ*Í k vޢ Ɓ5`  צ#5:DEFPSA.DATA   x hۢڤ ɡš2ڪP-19:!1ׯ)Illegal filenamenT Hp jMPSASETUDEFINEPSGETP1GAIGETEDRGA ~wvspofXSPMLEDA>=4&!  ~zok`\QMB>3+ RFORMATTER.DSYSTEM.LIBRARYfSYSTEGHT..*BEATS/MINUTE.......*TEMPERATURE........*EDR................*EMG A..............*EMG B..............*,*~whfed]YWVUTQLGDA@98521( !x* L* L* (L* (L* (L*$* (L=QTLNH,,0% L)$ β$ h`PULSE WAVE HEI-U#5:EDRSCALE.DATAצC2 EDR UNIT BASELINE SETTINGS: Ṕʁʁʁʁʁʁʁʁʁ ʁ ʁ ʁ ʁ צ' Four GAIN OK messages must be obtained' in a row before the gain setting will צ' be automatically accepted. The ESC key' may be pressed to overide this check. צצ' first finger of the non-dominant hand.' The PPG signal will be displayed on צ' on the screen with instructions to ' increase or decrease gain as needed. ' Prepare two recording sites for EMG byצ' wiping gently with alcohol. ' Attach the EMG sensors. ' Attach the PPG sensor assembly to the ~' Set the gain RANGE SWITCH on each EMG צ' unit to the 1-13 position. ' Set the large gain control knob on צ' each EMG unit to scale 5.0. ءRá áǛš á@?&áK' Attach the EDR sensors to the middle צ' fingers of the non-dominant hand. Fáš ɡ  ȡ 7צGAIN OK Pń5ɡ7צ INCREASE GAINP7 DECREASE GAINתPá%7 תP 7 ȡ 72-AS& $ "$:a`á`áAONE MOMENT PLEASE... צ #4:MMENU.CODE13 VǴצPPG GAIN ADJUSTMENTDzALJAZ Z 2 צabove to make your selection.(Fa apצ#Please try again. Press one of the "letters above to make a selection.( A ALTERNATE QUESTION SETצ Mצ MASTER MENU.%Press one of the highlighted letters ludes a brief&rest period, a short test, and a briefrecovery period.OPTIONS: S STANDARD QUESTION SETצ BRIEF STRESS PROFILE (PSA) & The PSA provides a brief psychophys-&iological profile that may be used for"initial screening or demonstration&purposes. The profile inćʁȡ-b آ3bbWRdj ʁצ%The large C2 centering conrol knob %should have been adjusted so that theצ%pointer is opposite one of the above %values. צEnter value and press צRETURNצ: Pbʁʁʁʁצ%The large C2 centering conrol knob %should have been adjusted so that the' Set the gain RANGE SWITCH to the 1-13 ' position to begin with. ' Set the SENSITIVITY SWITCH on the EDR צ' unit to the LOW position. ' Gradually rotate the large knob until צ' the signal is centered in the BASELINE' region of the EDR unit light bar. 8 ȡSET-UP STEPS:  Ɓ-) #5:MPSAIP.TXT 'BlȡIBRIEF PSA Version 2. Released by Biobehavioral Associates fng Date: _____________צ(Plethysmograph Site: ___________________צ(EMG Site 1: ___________________________צ(EMG Site 2: ___________________________ ȡ/BRIEF PSYCHOPHYSIOLOGICAL STRESS ANALYSIS (PSA)צIndividual Tested: K Testi.楄?<?<?<$?"?? ??wK>7$002.0󊇽.楄?<?<?<$?ȡJȡ8ȡ&ȡȡȡ쥁0 ٫ȡN8 24002.0󊇽ȡۤˡ áڢڢˍ? P ˡآڤ á Cá>آآ*Í k vޢƁKƂwǢƁ-צPASSMPSA8#5:MPSASUM.DATAתP8#4:MPSASUM.DATAתPƁK84ʁKʁKʁKƁK #4:IDRECORDآ تƁK0  filenamenT |d22. PRINTMPSGETSUMMACOLAPSEDPRINTINTPRINTSUMLISTPERIPRINTEAC L*r\X|j.f  צ SPACE BAR after completing.ٹ     dǬ  ONE MOMENT PLEASE... dצ#5:MPSAINFO.DATAd d d@d@dd#5:MPSAd&ٹ צPress צ SPACE BAR after completing.ٹ     dǬor MEDAC 9.1   צ(Plethysmograph Site: ___________________צ(EMG Site 1: ___________________________צ(EMG Site 2: ___________________________L Mean Level data is ordered so that increasing values of PCI through EMGLmay be interpreted as indicating increased physiological arousal. DecreasingJvalues in PULSE HEIGHT  R ȡ šGצ'Artifact detected. Refer to next page. m~ ȡVlMEAN VARIATION (MEAN STD.DEV.)ȡáȡV %++ȡ𥅻   %  %  %++ȡ   %  ꀚ "dꀚ$   % dꀚl z?"?dVERYȡddꀚentage of the RESPONSE magnitude. Lower % values in theIRECOVERY column indicate less of a recovery to the INITIAL resting level.צ;MEASURE INITIAL RESPONSE RECOF% values in the RESPONSE column indicate greater reactivity. Under theHRECOVERY column, the change from the TEST condition is shown in absoluteJunits and as a percSPONSE to the TEST condition, and the extent ofIRECOVERY. Under the RESPONSE column, the change from the INITIAL level isצGshown in absoute units and as a percentage of the INITIAL level. HigherB0ABSOLUTE CHANGE AND PERCENT RESPONSE OR RECOVERYF The data have been arranged to reflect the INITIAL resting level,Fthe magnitude of the REȡ쥅ȡV W$ "   ȡ򥅻ȡV or IBI correspond to greater physiological arousal.MEach condition (RELAX,TEST,RELAX) consisted of five 10 second sample periods. MEAN LEVEL=BRIEF PSYCHOPHYSIOLOGICAL STRESS ANALYSIS (PSA): SUMMARY DATAצIndividual Tested: BMEASURE "RELAX" "TEST" "RELAX" OVERALLתP06" j  R ȡ šGצ'Artifact detected. Refer to next page. m~ ȡ ȡ&PSA: EXTENDED DESCRIPTIVE DATA LISTING\tSAMPLE PERIOD:  צ" CONTAINED UNACCEPTABLE ARTIFACT.ͤ4 4 44Y  ?4<?4<?4<  44 4 44??4 ?4<?4<?4<  4   ȡ/BRIEF PSYCHOPHYSIOLOGICAL STRESS ANALYSIS (PSA) ȡ Í  gh heart rate value for sampleצ0 HR-R heart rate range for sampleצJ P N PH IBI PCI HR HR-L HR-H HR-R EDA EMG1 EMG2eral constriction change index8 HR mean heart rate in beats per minute4 HR-L low heart rate value for sample5 HR-H himples collectedצ. PH blood volume pulse heightצH IBI inter beat interval of the cardiac cycle in secondsצ9 PCI periph6>ȡ,MEAN VALUES FOR EACH 10 SECOND SAMPLE PERIOD) P sample period numberצ0 N number of saeriod number was: 2 Data values from these periods have been excludedfrom the analysis.The period numbers were:ȡ- צ  צ ofthe   sample periods.áצ0 Data values from this period have been excludedצfrom the analysis.צThe pš𥅻צARTIFACT DETECTION:GThe sampling routine was unable to successfully detect the blood volumeצDpulse due to excessive artifact, constriction, or other factors for =BRIEF PSYCHOPHYSIOLOGICAL STRESS ANALYSIS (PSA): SUMMARY DATAצIndividual Tested: BMEASURE "RELAX" "TEST" "RELAX" OVERSAMPLE PERIOD:  צ N OF SAMPLES:  צ=MEASURE MEAN STD.DEV. MIN MAX RANGEPULSE HEIGHT 44 4 4 4 4,͚Y?H?H?H?L?]?Q?L>*>]>=L>>*>*>]>>>>=L>]>>>> >>7,>>9>= >.:>1> =l2>P =yJ>[<׆=f9+=-Q=#=祼<[=^<@I=X==@6< = #<)c=============43?433?̌?>?ff??ff???lff?g9?[0?]4?8I?@?93?>?q=J?}C?>8?;?'}2?0A? E?5?AM=$;===tW=L=={=P=q=q3= f5=g =p=+=???;?ff&??ff&?333?"""?"""?ff&?"""?333?*??L?H?Q?Y?Y?DDD?Q?]?A@@gf@@/@gfn@@@@Ew@s@DD@o@G@@Y>=?>(H8?>L>b=W>42>&>>T>>2?>Z>@y@l@@`@33S@l@@33s@L@`@l@@y@33s@gf@gf@@gf@̬@@@̌@@@33@@33@33@gf@?>?> PvL\isting of the data for&each of the fifteen 10 second sampling(periods may also be sent to the printer.$MINIMUM, MAXIMUM, and RANGE data areincluded for each base measure.צ%Send full listing to printer? [Y/N]: Yá צ #4:MMENU.CODEצ%ONE MOMENT PLEASE... TER.DATAEܩP   צ% An extended listing of the data for&each of the fifteen 10 second sampling(periods may also be sent to the printer.襈* PCI ת  PULSE HEIGHTת  IBI ת  HEART RATE ת  EDA ת  EMG SITE 1 ת  EMG SITE 2 ת #6:#4:PRIN EMG 2 44 4 4 4  ȡ( Í  D TZX  4 4 4 EMG 2 44 4 4 4 EMG 1 44 4 4 4 0EDA 44 4 4 4  IBI 44 4 4 4 HEART RATE?4<?4<?4<HEART RATE ===*>"">n>>>*>>>n>"">"">>>>>=]>>*>;>=;>L=>]>]>=L>=*>v@v@v@v@v@v@v@v@v@v@v@v@v@v@v@ #< #< #< #< #< #< #< #< #< #< #< #< #< #< #t>t>t>t>t>t>t>t>t>t>t>t>t>t> #< #< #< #< #< (š  ( (  (  ( á#!   #Yáצ#5:UDRESULTS.CODE MMENU.CODEצONE MOMENT PLEASE...  Ƅצ#5:UDTEMP.DATAƄƂ;] ! ʂƂƄצ UDPSA.DATA#5:UDTEMP.DATAʄ$Ƅ"ˡƄ צ%Sorry. This data file is too large to&save on the Patient Record Disk. Would#you like to send the results to theצprinter instead? [Y/N]: צ to save it.%Do you wish to save these data on theצPatient Record Disk? [Y/N]: Nˡצ UDINFO.DATAƂצ#5:UDINFO.DATAʂƂƄצ UDPSA.DATAƄƅ/$Ɓ-Ƃƃ. צ$The data from this recording sessionצ$are presently in a temporary file onצ&the Physiological Monitoring disk. Theצ(data will be erased if you do not choosePPRECORDS.CODER ڢڢˍ? P ˡآڤ á Cá>آآ*Í k vޢcggצUDPASS3צ#5:UDTEMP.DATAPcgצ PASSCOMPLETEPg #4:UDPSA.DATAתP"ˡ SPACE BAR.( צONE MOMENT PLEASE ... #5:PPRECORDS.CODER ڢڢˍ? P ˡآڤ á Cá>آآ*Í k vޢ &There is not a User-Defined Profile onfile for this individual.צ Please press  SPACE BAR.( צONE MOMENT PLEASE ... #5:  ( dUDRESULTESCAPE GETPASSIREQUESTDDUMPSUMMINTROTEXPRINTHEA t>t>t>t>t>t> #< #< #< #< #< #< #< #< #< #< #< #< #< #< #t>t>t>t>t>t>t>t>t>t>t>t>t>t>t>t>t>t>t>t>t>t>t>t>t>t>t>t>t> #< #< #< #< #< #< #< #< #< #t>t>t>t>t>t>t>t>t>t>t>t>t>t>t>t>t>t>t>t>t>t>t>t>t>t>t>t>t>t>t>t>t>t>t>t>t>t> ( (! ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( (ll condition.'The extended output provides a detailedצ%description of each period as well asfor each overall condition.צOPTIONS:צ 1= Standard Ouisk for later review.צ Send results to printer? [Y/N]: Yáfצ'The standard output will list the means&for each period and provide a detailed&discription of each overaUSER DEFINED PSA RESULTS&Results may only be obtained as output$to the printer. You may send them to%the printer now, or request that theyצ"be saved on d]́ʁȡHÍ ÍÍ] ]]]]]]!ELAPSED TIME OF DATA COLLECTION: ]]צ Minutes]] ]] ]N:F  ]]HNƁz)] ]]]צUDPSA: DATA COLLECTION SUMMARY]]]N#5:UDPRINT.TXT́ʁȡ-]]N]NN]]́ʁȡHÍ ÍÍ] ]]]]]]!ELAPSED TIME OF DATA COLLECTION: ]]צ Minutes]] ]] ]N:F ]]HNƁz)] ]]]צUDPSA: DATA COLLECTION SUMMARY]]]N#5:UDPRINT.TXT́ʁȡ-]]N]NN]]]]]צ EMG SITE 1 ] (] (]]]]] EMG SITE 2 ] (] (](]!]]]] FALL TIME ] (]] ]]] EDA ] (] (]]]]צ IBI [R+F] ] (] ( ]] ] ( ] ( ]]]] RISE TIME ] ] (] (]] ]]]צ HEART RATE ] (]]] (  ] ( ]RE MEAN S.D. CHANGE %#1 MIN MAX RANGE]]]] PULSE HEIGHT ] (] ( ]#]]]] TEMPERATURE ɡ**P* Q*P** CONDITION # *[*Pá Set-up PeriodתP]]]]]]צ Duration: ]]צ minutes]]]]צAMEASU ( ( ( ( ( ( ( ( ( ( ( P tput 2= Extended OutputedצPlease select an option: 1Ý2Ídd2áeOne moment please... .b  &discription of each overa]]AC= Condition Number P= Period Number N= Number of Samples]]]]צPHYSIOLOGICAL MEASURES:]]]]%PH Pulse height in relative units]]]צ$T'󊇽 ( %󊇽 ( #󊇽 ( !󊇽 ( 󊇽 (󊇽 (󊇽 (󊇽 (󊇽 99a77_;;[ (9󊇽 (7󊇽 (;󊇽 (5󊇽 (3󊇽 (1󊇽 (/󊇽 (-󊇽 (+󊇽 ()󊇽 ( ]_]]] ] ] ]W]U]S]ɡc]] ]]&EXCESSIVE ARTIFACT. DATA NOT ACCEPTED.]]jlVZ  ( 1 ]U ]? ]]]צ EMG 2 ]S ]= ]]ˡ ]QKI]] ] ] ][]Y]a]Q ]K]I]]] IBI ]] ]G ]O]M]]]צ EDA ]W ]A ]]] EMGצ P Pše]] ]] PULSE HEIGHT][ ]E ] ] ]]] FINGER TEMP. ]Y ]C ]]]צ HEART RATE 8 G8E8 E8C8 C8A8 A8?:o ?8=:o =8GGEECCAA??==d ɡ  תPdɡ Q?]<OؼMآK?O<I?M<Gآ آآ񊇖Eآ آآ񊇖Cآآآ񊇖Aآآآ񊇖?آآآ񊇖=آآآ񊇖G 97;531/-+)'%#!~ 'áš[آ񊇽aآ񊇽_آ񊇽]آ񊇽Yآ񊇽Wآ񊇽Uآ񊇽SآE MEAN S.D. MIN MAX CONDITION N]]Bbh ]]]]]L C P N PH TEMP RISE FALL IBI HR MIN MAX EDA EMG1 EMG2]] ]ȡ]eW]]5USER DEFINDED PSA: EXTENDED LISTING OF DATA BY PERIOD]N]]צ.USER DEFINED PSA: MEAN VALUES LISTED BY PERIOD]]]eb]]BP MEASURodermal activity in micromhos]]]$EMG Muscle activity in microvolts]]]]]L C P N PH TEMP RISE FALL IBI HR MIN MAX EDA EMG1 EMG2]] ]]%HR Heart Rate in beats per minute]]]צ-MIN Mean low HR value - mean cyclic minima]]].MAX Mean high HR value - mean cyclic maxima]]]*EDA ElectrEMP Skin temperature in degrees F]]]צ&RISE Pulse wave rise time in seconds]]]צ&FALL Pulse wave fall time in seconds]]]צ%IBI Inter beat interval in seconds]55]33Y11W//U--S++Q))O''M%%K##I!!GEA?=C(á]8⥇*$]fe   f]#6:#4:PRINTER.DATA]]EP  88ȡ/ 99ȡ (igh arousal relating to the testing procedure that over-d)d+whelms the modest stress of the short test.e testing procedure that over-d)d helms the modest stress of the short test.e testing procedure that over-d)d helms the modest stress ofshould be considered for individuals showing high initial levels,-d)dDminimal recovery, or atypical patterns such as a general decrease inels,-d)dBarousal across the three conditions. The latter pattern is usuallyinels,-d)dIassociated with hJthe stress of the short test, and the extent to which each measure returns)dJto the starting level. This procedure was designed specifically to be used)dIas part of an initial work-up or as a screening device. An extended eval-d)dHuation (EMG)d rom two sites were also measured. activity (EDA) and muscle activity (EMG)dH An analysis of the PSA results should take into account the initialMG)dHlevel for each measure, the magnitude of the response of each measure toMG)dt rate areIBIatdLderived from PH and IBI respectively, standard deviation values are providedKonly for the latter. Electrodermal activity (EDA) and muscle activity (EMG)d"from two sites were also measured. activity (EDA) and muscle activityssumed to be linear.PH ordJ The interval between pulse wave peaks is equivalent to the inter beatdHinterval (IBI) of the cardiac cycle. Heart rate (HR) is derived from IBIatdEusing the formula HR= (1/mean IBI) * 60. Since PCI and heari.e. lower PH) indicate an increasedJin peripheral resistance. The actual relationship between changes in PH ordEPCI values and peripheral resistance can not be assumed to be linear.PH ordPCI values and peripheral resistance can not be avasoconstriction change index (PCI) isondralodFcalculted that represents the change in PH relative to the mean PH forralodIthe initial relaxation condition. In the presence of stable or increasingodJcardiac output, increasing PCI values (es in pulse height (PH) indicate changes in peripheralodFblood flow. Increases in PH generally correspond to vasodilitation andralodDdecreases to vasoconstriction. The PH units are relative and have nondralodCabsolute value. A peripheral in duration and consisted of five 10 second sample periods. atelyd minute in duration and consisted of five 10 second sample periods. atelydK A photoelectric plethysmograph was used to detect the peripheral bloodIvolume pulse. ChangK This procedure sampled levels of physiological activity during a briefKguided relaxation condition, in response to the stress of a short test, andJfor a second guided relaxation condition. Each condition was approximatelydE1 minute   , šˡ򥂊 ]c Press  SPACE BARצ to return to Menu:  MMENU.CODE])H-=ny\b  4:PRINTER.DATA]]EP  88ȡ/ 99ȡ (  , šˡ򥂊 ]c Press  SPACE BARצ to return to Menu:  MMENU.CODE the short test.e testing procedure that over-d)dPHYSIOLOGICAL MEASURES:s of the short test.e testing procedure that over-d)d HYSIOLOGICAL MEASURES:s of the short test.e testing procedure that over-d)dG PCI peripheral vasoconstriction change index (see above)r-d)d# HEART RATE beats per minuteonstriction change index (see above)r-d)d6 EDA electrodermal activity in micromhosindex (see above)r-d)d0 EMG muscle activity in microvoltǴIPHDzDzǖIHRǔǔxEDAv vZEMGXX<EMG: :ǭ?"ǿ Ƃ b ˡآڤ á Cá>آآ*Í k vޢ    %%ȡ!צ#5:BUFFER.DATA$ϥ-${J   Ƃ b ˡآڤ á Cá>آآ*Í k vޢƂƃ.Ɓ-#5:UDINFO.DATAآآVآPƂ#5:EMGS5.0.DATAʂƂ#5:INVTABLE.DATA-̅.ƅ.#5:ƅ.VSƅ.צ.DATAXƅ.P<  hjhUDPSA INITIALIFILLDUMMDRAWGRAP the 128K Pascal system2Ɓ2 bޡ:צ Linking...UDTEMP #Must L(ink firstƁ2ƀ¼:.Con@@d?G?́ṕqʁq́rʁrˡ  צ not codeʁq2ʁr"ˡצ Bad block #0ڡ;ƀ ˡ.  is not version 1.2ړ22HACK? "ˡCܡ>"áצIllegal file nameNo file  ́ṕqʁq́rʁrˡ  צ not codeʁq2ʁr"ˡצ Bad block #0ڡ;ƀ ˡ.  is not sromhosindex (see above)r-d)dB PULSE HEIGHT peripheral blood volume pulse in relative unitsbove)r-d)dB IBI inter beat interval of cardiac cycle in secondsbove)r-d)d穀(穀穀橀 EPOCH: 1 OF  צCONDITION: SET UPצ CURRENT TIME: SPACE BARצ=Set Next Condition צESC=Exit.  v vZEMGXX<EMG: :ǭ?"ǿ  iș(ȭi( <d i(  iș(ȭi( <d i(  iș(ȭi( <d i(  iș(ȭi( W NL <d i  ișȭi H &ehe ' <d i  ișȭi <d i(hh hhhh Wͯͮ LXLt W$PLͯͮLL@%eeͽ ͼeeLX8͸媥JjN áá"ˡ !erAehhhhhhhhhhhhhhhhh h h h ˢ ˢ ܼܼˢˢԼԼˢˢҼҼˢˢмм޼̼ ̥޼޼ʼ ʥ޼ˢˢ̼˩˼ʼˢ á,ˢˢؼˢˢ޼ˢˢܼˢˢּˢˢԼˢˢҼˢˢмȥȼ޼ƥƼ2ĥļԼ¥¼Ҽмˢ ˢ ޼޼k2<ʥ̼ͩȡڥ2<إk2<ޥڼؼܥ2֥Q2>UBԥ?72;ᢉҥ2Х2ˢˢڼ$ϥ$ ϥ-Ϣϫ˩ˢˣ̩ȡ kQ7ɡˢˣ̥2  C"DISK FULL. END OF DATA COLLECTION.UDPASSתPONE MOMENT PLEASE... #5:UDRESULTS.CODE ꥆKǀꩀ! nצREALY STOP? [Y/N]: Yá END" ϣ   #5:BUFFER.DATA,ļ?;ᢇ¼٫٫š  쩀آš穀<á:JƼ ɡš,ȼdɡšǩ詀詀ϣá   ϣ jϣš?#آآآآ آآ آآآآآآآآ穀(穀穀橀 EPOCH: 1 OF  צCONDITION: SET UPצ CURRENT TIME: SPACE BAR  ! WͲ  W$PLͯͮLL^ ȥ!HH`*.ʹ 8n䍶` !x* L* L* (L* (L* (L*$* (L=QTLNH,,0% L)$ β$ h`PULSE WAVE HEIGHT..*BEATS/MINUTE.......*TEMPERATURE........*EDR................*EMG A..............*EMG B..............*,*i.e. lower PH) indicate an increasedJin peripheral resistance. The actual relationship between changes in PH ordEPCI values and peripheral resistance can not be assumed to be linear.PH ordPCI values and peripheral resistance can not be avasoconstriction change index (PCI) isondralodFcalculted that represents the change in PH relative to the mean PH forralodIthe initial relaxation condition. In the presence of stable or increasingodJcardiac output, increasing PCI values (es in pulse height (PH) indicate changes in peripheralodFblood flow. Increases in PH generally correspond to vasodilitation andralodDdecreases to vasoconstriction. The PH units are relative and have nondralodCabsolute value. A peripheral in duration and consisted of five 10 second sample periods. atelyd minute in duration and consisted of five 10 second sample periods. atelydK A photoelectric plethysmograph was used to detect the peripheral bloodIvolume pulse. ChangK This procedure sampled levels of physiological activity during a briefKguided relaxation condition, in response to the stress of a short test, andJfor a second guided relaxation condition. Each condition was approximatelydE1 minute آآآMPGH --N@-SUMDEG Z-^.NZ- SUMEDL t-Nt-SUMEMGA --N- SUMEMGB .-N- SUMIBI2 *.N- $SUMPGH2 N- SUMEDL2 N-SUMEMGA2N.SUMEMGB2N*.~zok`\QMB>3+ f B F HDATABUFF/4,,,H2SAMPLEDAt4(0.SUMRTI ,N,šSUMFTI -@-N -SUMIBI &-N&-SU~whfed]YWVUTQLGDA@98521(~wvspofXSPMLEDA>=4&!  ssumed to be linear.PH ordJ The interval between pulse wave peaks is equivalent to the inter beatdHinterval (IBI) of the cardiac cycle. Heart rate (HR) is derived from IBIatdEusing the formula HR= (1/mean IBI) * 60. Since PCI and heart rate areIBIatdLderived from PH and IBI respectively, standard deviation values are providedKonly for the latter. Electrodermal activity (EDA) and muscle activity (EMG)d"from two sites were also measured. activity (EDA) and muscle activity@@>?́ṕqʁq́rʁrˡ  צ not codeʁq2ʁr"ˡצ Bad block #0ڡ;ƀ ˡ.  is not version 1.2ړ22H?́ṕqʁq́rʁrˡ  צ not codeʁq2ʁr"ˡצ Bad block #0ڡ;ƀ ˡ.  is not version 1.2ړ22HACK? "ˡCܡ>"áצIllegal file nameNo file  ́ṕqʁq́rʁrˡ  צ not codeʁq2ʁr"ˡצ Bad block #0ڡ;ƀ ˡ.  is not sromhosindex (see above)r-d)dB PULSE HEIGHT peripheral blood volume pulse in relative unitsbove)r-d)dB IBI inter beat interval of cardiac cycle in secondsbove)r-d)dstriction change index (see above)r-d)d# HEART RATE beats per minuteonstriction change index (see above)r-d)d6 EDA electrodermal activity in micromhosindex (see above)r-d)d0 EMG muscle activity in microvolt the short test.e testing procedure that over-d)dPHYSIOLOGICAL MEASURES:s of the short test.e testing procedure that over-d)d HYSIOLOGICAL MEASURES:s of the short test.e testing procedure that over-d)dG PCI peripheral vasoconigh arousal relating to the testing procedure that over-d)d+whelms the modest stress of the short test.e testing procedure that over-d)d helms the modest stress of the short test.e testing procedure that over-d)d helms the modest stress ofshould be considered for individuals showing high initial levels,-d)dDminimal recovery, or atypical patterns such as a general decrease inels,-d)dBarousal across the three conditions. The latter pattern is usuallyinels,-d)dIassociated with hJthe stress of the short test, and the extent to which each measure returns)dJto the starting level. This procedure was designed specifically to be used)dIas part of an initial work-up or as a screening device. An extended eval-d)dHuation (EMG)d rom two sites were also measured. activity (EDA) and muscle activity (EMG)dH An analysis of the PSA results should take into account the initialMG)dHlevel for each measure, the magnitude of the response of each measure toMG)d the 128K Pascal system2Ɓ2 bޡ:צ Linking...UDTEMP #Must L(ink firstƁ2ƀ¼:.Conآ( <d i(  iș(ȭi( <d i(  iș(ȭi( <d i(  iș(ȭi( W   ! WͲd i  ișȭi H &ehe ' <d i  ișȭi <d i(  iș(ȭi Wͯͮ LXLt W$PLͯͮLL@%eeͽ ͼeeLX8͸媥JjNNL < áá"ˡ !ar=ehhhhhhhhhhhhhhhhh h h h hh hhhhˢˢԼԼˢˢҼҼˢˢмм޼̼ ̥޼޼ʼ ʥ޼ˢˢ̼˩˼ʼˢ á(ͩˢˢ޼ˢˢܼˢˢּˢˢԼˢˢҼˢˢмȥȼ޼ƥƼ2ĥļԼ¥¼Ҽмˢ ˢ ޼޼ˢ ˢ ܼܼͩȡڥ2<إk2<ޥڼؼܥ2֥Q2>UBԥ?72;ᢉҥ2Х2ˢˢڼˢˢؼMA(@@ڍGTgE֍@YFNkADKcC|(A@]E:D&"A'"6A "NA(@@ĩFWEF@KF_AGBDDv&A0RE0D&"A,ACA&@@=E~CFJj@lPFeA D+t.DyAWE@4DYUA1AIA'@@EKd9F2#@hCFJj@UFeADCyAWE6DYUA0AIA'@@5zGk\EJj@SFeADViCyAWE5D73A0AIA'@@ڍGx"eE֍@[FOkADuC|(A@]E;D&"AZU5ANA(@@ڍGTgE֍@(^F1jADKcC|(A@]ED(DyAWEDA0ASUIA'@@EX2FF@F1`ArD$Dv&A0REDAHD,ADA&@@ǕE 7FJj@ FeAfD(DyAWE@D73A0AIA'@@آ@@xIEZE@FdAӖE5C}AWED̼A0AHA'@@[EX2FF@F^Aa{C$Dv&A  W$PLͯͮLL^ ȥ!HH`*.ʹ 8n䍶` !x* L* L* (L* (L* (L*$* (L=QTLNH,,0% L)$ β$ h`PULSE WAVE HEIGHT..*BEATS/MINUTE.......*TEMPERATURE........*EDR................*EMG A..............*EMG B..............*,*MAX= 50; &NOFEPOCHS= 4;  SCREENSAMPLES= 75; { SIZE OF PG DISPLAY SCREEN } &  TYPE BYTE= 0..255; %DATABUFF= PACKED ARRAY[0..SAMPLEMAX] OF BYTE;   SAMPLEDATA= PACKED RECORD .SUMRTI,SUMFTI,SUMIBI,SUMPGH,SUMDEG,SUMEDL,SUMEMGA,SUMEBEHAVIORAL ASSOCIATES } "{ } "{ 7 SEC EPOCHS, 4 EPOCHS PER PERIOD } "{ YIELD= 30 SECOND PERIODS } "  USES APPLESTUFF,SHORTGRAPHCIS,MINSTUFF,ADDRESS,CHAINSTUFF; %  CONST SECONDS= 7; &SAMPLE  {$S+} {L CONSOLE:}{ SERIES 9 }   PROGRAM UDPSA; { GENERAL PURPOSE MONITOR WITH VISUAL DISPLAY }  "{ MOST RECENTLY UPDATED: 2/27/86 } "{ BASE PROGRAM DEVELOPED 6/84 }  { PROGRAMED BY: BRUCE MEHLER } "{ COPYRIGHTED BIOSV1 SV2 V1 V2 DF1 DF2 N^26 ~ the 128K Pascal system2Ɓ2 bޡ:צ Linking...UDTEMP #Must L(ink firstƁ2ƀ¼:.Con@@ff>A=́ṕqʁq́rʁrˡ  צ not codeʁq2ʁr"ˡצ Bad block #0ڡ;ƀ ˡ.  is not version 1.2ړ22H3+ b > * HKBYTE /,ENHDATABUFF/4,,,H2SAMPLEDAt4(0.SUMRTI ,N,šSUMFTI -@-N -SUMIBI &-N&-SU~whfed]YWVUTQLGDA@98521(~wvspofXSPMLEDA>=4&!  MGB, .SUMIBI2,SUMPGH2,SUMEDL2,SUMEMGA2,SUMEMGB2, .SUMMINIBI,SUMMAXIBI: REAL; .CONDITION,NCOLLECTED: INTEGER; .ARTF: ARRAY[1..NOFEPOCHS] OF BOOLEAN; -END;   VAR HEIGHT,RISE,FALL,TEMPERATURE,  EDR,SEMGA,SEMGB: DATABUFF; %EARLY,NUMBER,DURATION: INTEGER; %DISPLAY,NOTCHDELAY:BYTE; { PROCEDURE SAMPLE } % %P1FACTOR,C2FACTOR,IBI,PGH,RTI,FTI,DEG,EDL,EMGA,EMGB, %MEANHR,MINIBI,MAXIBI, %SUMIBITEMP,SUMPGTEMP,SUMEDLTEMP,SUMEMGATEMP,SUMEMGBTEMP, %ETIME: REAL; % %I,J,S,EPOCH,SEWPORT(LEFT+1,RIGHT-1,BOTTOM+1,TOP); " "GOTOXY(22,20); "WRITE('EPOCH: 1 OF ',NOFEPOCHS); "GOTOXY(0,21); "WRITE('CONDITION: SET UP'); "GOTOXY(22,21); "WRITE('CURRENT TIME:',ETIME:4:1); "GOTOXY(0,23); "WRITE(CHR(15),'SPACE BAR',CHR(14),'=Set Next Co "TOP:= 191; " "INK:= 6; "PLOT:= LEFT+INK; "PLOTMAX:= 40; "MARKER:= PLOT+INK-(INK DIV 2); " "PENCOLOR(NONE); "MOVETO(LEFT,TOP); "PENCOLOR(WHITE); "MOVETO(LEFT,BOTTOM); "MOVETO(RIGHT,BOTTOM); "PENCOLOR(NONE); " "MAKE_SIDE_LABLES; " "VI&MOVETO(255,58);PENCOLOR(BLUE); &MOVETO(279,58);PENCOLOR(NONE); $END; ${---------------------------------}  BEGIN  ERASE(0,23,0); "INITTURTLE; " "POKE(-16301,0); { TURN ON MIXED GRAPHICS } " "LEFT:= 0; "RIGHT:= 255; "BOTTOM:= 34;R(NONE); &MOVETO(255,120);WSTRING('EDA'); &MOVETO(255,118);PENCOLOR(ORANGE); &MOVETO(279,118);PENCOLOR(NONE); &MOVETO(255,90);WSTRING('EMG'); &MOVETO(255,88);PENCOLOR(GREEN); &MOVETO(279,88);PENCOLOR(NONE); &MOVETO(255,60);WSTRING('EMG'); -----------------} $PROCEDURE MAKE_SIDE_LABLES; $BEGIN &MOVETO(255,180);WSTRING('IPH'); &MOVETO(255,178);PENCOLOR(VIOLET); &MOVETO(279,178);PENCOLOR(NONE); &MOVETO(255,150);WSTRING('IHR'); &MOVETO(255,148);PENCOLOR(WHITE1); &MOVETO(279,148);PENCOLO'END; ' &REWRITE(DUMMY,'#5:BUFFER.DATA'); &DUMMY^:= SAMPLEFILE^; &PUT(DUMMY); &CLOSE(DUMMY,LOCK); $END;  END;  {***************************************}  SEGMENT PROCEDURE DRAWGRAPH;  "VAR P1,P2,P3: INTEGER; &TEMP: REAL; ${-------------(SUMPGH:= 0; (SUMRTI:= 0; (SUMFTI:= 0; (SUMDEG:= 0; (SUMEDL:= 0; (SUMEMGA:= 0; (SUMEMGB:= 0; (SUMIBI2:= 0; (SUMPGH2:= 0; (SUMEDL2:= 0; (SUMEMGA2:= 0; (SUMEMGB2:= 0; (CONDITION:= 0; (NCOLLECTED:= 0; (FOR I:= 1 TO NOFEPOCHS DO ARTF[I]:= TRUE; *******************************}   SEGMENT PROCEDURE DO_DUMMY;  VAR DUMMY: FILE OF SAMPLEDATA;  BEGIN "IF DONE THEN $BEGIN &RESET(DUMMY,'#5:BUFFER.DATA'); &CLOSE(DUMMY,PURGE); $END #ELSE $BEGIN &WITH SAMPLEFILE^ DO 'BEGIN (SUMIBI:= 0; E(AUDIO1,AUDON); "POKE(AUDIO2,AUDON); " "DONE:= FALSE; "FULL:= FALSE; "PLOTPASS:= 0; "ETIME:= 0; "SHOWIHR:= 0; "START_NEW_CONDITION:= FALSE; " "ERASE(0,23,0);  END;  {*********************('#5:',SUBJCODE,'.DATA'); " "DURATION:= SECONDS * 60; "NOTCHDELAY:= 14; "DISPLAY:= 0; WRITE(CHR(6)); { TURN OFF CURSOR } # "POKE(P1UNIT,UNITON); "POKE(C2UNIT,UNITON); "POKE(M4UNIT1,UNITON); "POKE(M4UNIT2,UNITON); "POK"P1FACTOR:= PASSINFO^.P1GAIN; "C2FACTOR:= PASSINFO^.C2GAIN; "SUBJCODE:= PASSINFO^.SUBJCODE; "CLOSE(PASSINFO); " "RESET(CVTFILE,'#5:EMGS5.0.DATA'); "CVTABLE:= CVTFILE^; "CLOSE(CVTFILE); " "RESET(INVTABLE,'#5:INVTABLE.DATA'); " "DATANAME:= CONCATIALIZE;  "VAR PASSINFO: FILE OF PACKED RECORD 0P1GAIN,C2GAIN,EMG1GAIN,EMG2GAIN: REAL; 0SUBJCODE,PPGSITE,EDRSITE,EMG1SITE,EMG2SITE: STRING; .END; &CVTFILE: FILE OF ARRAY[0..255] OF REAL;  BEGIN "RESET(PASSINFO,'#5:UDINFO.DATA'); TANAME,MESSAGE: STRING; % %SAMPLEFILE: FILE OF SAMPLEDATA; %CVTABLE: ARRAY[0..255] OF REAL; %INVTABLE: FILE OF RECORD 0INV: PACKED ARRAY[0..255] OF 0..255; /END;  {********************************************************}   SEGMENT PROCEDURE INITCREEN,DELAY, %PLOT,INK,PLOTMAX,PLOTPASS,SHOWIHR,SHOWPG,SHOWEDL,SHOWEMGA,SHOWEMGB, %SHOWMIN,SHOWMAX,OLDPLOT,OLDHR,OLDPG,OLDEDL,OLDEMGA,OLDEMGB, %MARKER,LEFT,RIGHT,BOTTOM,TOP: INTEGER; % %ARTIFACT,DONE,START_NEW_CONDITION,FULL: BOOLEAN; % %SUBJCODE,DAndition ', (CHR(15),'ESC',CHR(14),'=Exit.');  END;  {***************************************************}   PROCEDURE SAMPLE (VAR HEIGHT,RISE,FALL, 6TEMPERATURE,EDR,SEMGA,SEMGB:DATABUFF; 2VAR EARLY,NUMBER:INTEGER; 6DURATION:INTEGER; 6DISPLAY,NOTCHDELAY:BYTE); ,EXTERNAL; ,  { FOR DISPLAY: 0= NO DISPLAY }  { 1= DISPLAY } ,  {************************************************}   PROCEDURE MARK_CONDITION;  BEGIN "MARKER:= PLOT+INK-(INK DIV 2); " "PENCOLOR(NON');  END;  {*********************************************************}  BEGIN "INITIALIZE; "DRAWGRAPH; " "REWRITE(SAMPLEFILE,DATANAME); "DO_DUMMY; {Temporary buffer to leave space on disk if SAMPLEFILE fills disk} "PUT(SAMPLEFILE); "CLOSE(SAMPLEPOKE(AUDIO2,AUDOFF); " "WRITE(CHR(5)); { TURN ON CURSOR }  ERASE(0,23,23); "IF FULL THEN #BEGIN $GOTOXY(0,21); $WRITELN('DISK FULL. END OF DATA COLLECTION.'); $WRITELN; #END; "WRITE('ONE MOMENT PLEASE... '); "SETCHAIN('#5:UDRESULTS.CODE"WRITE(' ');  END;  {**************************************************}   PROCEDURE END_SESSION;  BEGIN "POKE(P1UNIT,UNITOFF); "POKE(C2UNIT,UNITOFF); "POKE(M4UNIT1,UNITOFF); "POKE(M4UNIT2,UNITOFF); "POKE(AUDIO1,AUDOFF); ""WRITE('REALY STOP? [Y/N]: '); "WRITE(CHR(14)); "WAITFOR(RESPONSE); "IF RESPONSE='Y' THEN #BEGIN $GOTOXY(11,21); $WRITE('END'); $DONE:= TRUE; #END #ELSE #BEGIN $GOTOXY(11,21); $WRITE(SAMPLEFILE^.CONDITION,' '); #END; "GOTOXY(0,22); END; # "OLDHR:= SHOWIHR; "OLDPG:= SHOWPG; "OLDEDL:= SHOWEDL; "OLDEMGA:= SHOWEMGA; "OLDEMGB:= SHOWEMGB;  END;  {*****************************************************}   PROCEDURE CHECK_FOR_END;   BEGIN "GOTOXY(0,22); "WRITE(CHR(15));  $MOVETO(OLDPLOT,OLDEDL); $PENCOLOR(ORANGE); $MOVETO(PLOT,SHOWEDL); $ $PENCOLOR(NONE); $MOVETO(OLDPLOT,OLDEMGA); $PENCOLOR(GREEN); $MOVETO(PLOT,SHOWEMGA); $ $PENCOLOR(NONE); $MOVETO(OLDPLOT,OLDEMGB); $PENCOLOR(BLUE); $MOVETO(PLOT,SHOWEMGB); #"FINDEMG; "SHOWEMGB:= X; " "IF PLOTPASS>1 THEN #BEGIN $PENCOLOR(NONE); $MOVETO(OLDPLOT,OLDPG); $PENCOLOR(VIOLET); $MOVETO(PLOT,SHOWPG); $ $PENCOLOR(NONE); $MOVETO(OLDPLOT,OLDHR); $PENCOLOR(WHITE1); $MOVETO(PLOT,SHOWIHR); $ $PENCOLOR(NONE);ERT:= 0; "IF INVERT>255 THEN INVERT:= 255; "SHOWIHR:= INVTABLE^.INV[INVERT] - 44; " "SHOWEDL:= ROUND((((SUMEDLTEMP/NUMBER)/C2FACTOR)-1.0)/0.00426136); " "TEMP:= SUMEMGATEMP/NUMBER; "FINDEMG; "SHOWEMGA:= X; " "TEMP:= SUMEMGBTEMP/NUMBER; 5 THEN FOUND:= TRUE ELSE X:= X+1; #UNTIL FOUND; "END; "{----------------------}  BEGIN "INVERT:= ROUND((SUMPGTEMP / NUMBER) + 10); "SHOWPG:= INVTABLE^.INV[INVERT] - 44; " "INVERT:= ROUND(((SUMIBITEMP/NUMBER) * 100) + 20); "IF INVERT<0 THEN INV****************************}   PROCEDURE PLOTPOINTS; "VAR X,INVERT: INTEGER; &TEMP: REAL; &FOUND: BOOLEAN; "{----------------------} "PROCEDURE FINDEMG; "BEGIN " X:= 0; #FOUND:= FALSE; #REPEAT $IF CVTABLE[X]>=TEMP THEN FOUND:= TRUE; $IF X=25 PROCEDURE INCREMENT_PLOT;  BEGIN "PLOTPASS:= PLOTPASS + 1; "OLDPLOT:= PLOT;  PLOT:= PLOT + INK; " "IF PLOTPASS>PLOTMAX THEN #BEGIN %FILLSCREEN(BLACK); {was repeat of DRAWBARGRAPH} %PLOT:= LEFT + INK; %PLOTPASS:= 1; #END;  END;  {**********0; SUMPGH2:= 0; #SUMDEG:= 0; #SUMEDL:= 0; SUMEDL2:= 0; #SUMEMGA:=0; SUMEMGA2:=0; #SUMEMGB:=0; SUMEMGB2:=0; #SUMMINIBI:= 0; SUMMAXIBI:= 0; #NCOLLECTED:= 0; "END;  END;  {*************************************}  ********************}   PROCEDURE ZERO_PERIOD;  BEGIN  IF SAMPLEFILE^.CONDITION>0 THEN ETIME:= ETIME + 0.5; "GOTOXY(35,21); "WRITE(ETIME:4:1); " "WITH SAMPLEFILE^ DO "BEGIN #SUMRTI:= 0; #SUMFTI:= 0; #SUMIBI:= 0; SUMIBI2:= 0; #SUMPGH:= E); "MOVETO(MARKER,TOP); "PENCOLOR(WHITE); "MOVETO(MARKER,BOTTOM); "PENCOLOR(NONE); " "IF SAMPLEFILE^.CONDITION=1 THEN #BEGIN $GOTOXY(11,21); $WRITE(' '); #END; "GOTOXY(11,21); "WRITE(SAMPLEFILE^.CONDITION);  END;  {*********************FILE,LOCK); " "RESET(SAMPLEFILE,DATANAME); "SEEK(SAMPLEFILE,1); "SAMPLEFILE^.CONDITION:= 0; " "{$I-} "REPEAT #WITH SAMPLEFILE^ DO #BEGIN $IF START_NEW_CONDITION THEN %BEGIN % CONDITION:= CONDITION+1; 'MARK_CONDITION; 'START_NEW_CONDITION:= FALSE; %END; $ZERO_PERIOD; $ $FOR EPOCH:= 1 TO NOFEPOCHS DO { do a PERIOD } %BEGIN &GOTOXY(29,20); &WRITE(EPOCH); % &SAMPLE(HEIGHT,RISE,FALL,TEMPERATURE,EDR,SEMGA,SEMGB, -EARLY,NUMBER,DURATION,DISPLAY,NOTCHDELAY); & &INC%BEGIN &PCI:= 1.0 + (1.0 - (D[1,1,PASS]/TEMP)); &HR1:= (1.0/D[2,1,PASS]) * 60; &HR2:= (1.0/D[2,4,PASS]) * 60; &HR3:= (1.0/D[2,3,PASS]) * 60; &HR4:= HR3 - HR2; &WRITELN(P,S,PASS:2,NBUFF[PASS]:4,D[1,1,PASS]:7:1,D[2,1,PASS]:7:2, 'PCI:7:2,HR1:8:1,HR2:6 #WRITELN(P); "END; "{-------------------------------------}  BEGIN "PRINT_HEADER; " "TEMP:= RSUM[1,1,1]; "  FOR PASS:= 1 TO NOFPASSES DO #BEGIN $IF (PASS=6) OR (PASS=11) THEN WRITELN(P); $IF ARTFBUFF[PASS] THEN WRITELN(P,S,PASS:2) ELSE ELN(P,S,' HR-H high heart rate value for sample'); #WRITELN(P,S,' HR-R heart rate range for sample'); #WRITELN(P); #WRITELN(P); #WRITELN(P,S,  ' P N PH IBI PCI HR HR-L HR-H HR-R EDA EMG1 EMG2');"CLOSE(INVTABLE); "DO_DUMMY; {purge dummy buffer} "{$I+} " "END_SESSION; " "MESSAGE:= 'UDPASS'; "SETCVAL(MESSAGE);  END. EN START_NEW_CONDITION:= TRUE; )IF KEY=CHR(27) THEN CHECK_FOR_END; (END; &END; { END OF EPOCH LOOP } % $PUT(SAMPLEFILE); $IF IORESULT<>0 THEN %BEGIN &FULL:= TRUE; &DONE:= TRUE; %END; #END; "UNTIL DONE; " "CLOSE(SAMPLEFILE); ARTF[EPOCH]:= ARTIFACT; (END; ( 'IF EPOCH=NOFEPOCHS THEN (BEGIN )MOVETO((PLOT+(INK DIV 2)),BOTTOM); )PENCOLOR(WHITE1); )MOVETO((PLOT+(INK DIV 2)),BOTTOM+4); )PENCOLOR(NONE); (END; ' 'IF KEYPRESS THEN (BEGIN )READ(KEYBOARD,KEY); )IF KEY=' ' THEDL2 + (EDL*EDL); +SUMEMGA2:= SUMEMGA2 + (EMGA*EMGA); +SUMEMGB2:= SUMEMGB2 + (EMGB*EMGB); +IF IBIMAXIBI THEN MAXIBI:= IBI; *END; )SUMMINIBI:= SUMMINIBI + MINIBI; )SUMMAXIBI:= SUMMAXIBI + MAXIBI; " )PLOTPOINTS; )+SUMIBITEMP:= SUMIBITEMP + IBI; +SUMPGTEMP:= SUMPGTEMP + HEIGHT[I]; +SUMEDLTEMP:= SUMEDLTEMP + EDL; +SUMEMGATEMP:= SUMEMGATEMP + EMGA; +SUMEMGBTEMP:= SUMEMGBTEMP + EMGB; +SUMIBI2:= SUMIBI2 + (IBI*IBI); +SUMPGH2:= SUMPGH2 + (PGH*PGH); +SUMEDL2:= SUM; +EMGB:= CVTABLE[SEMGB[I]]; +SUMRTI:= SUMRTI + RTI; +SUMFTI:= SUMFTI + FTI; +SUMIBI:= SUMIBI + IBI; +SUMPGH:= SUMPGH + PGH; +SUMDEG:= SUMDEG + DEG; +SUMEDL:= SUMEDL + EDL; +SUMEMGA:= SUMEMGA + EMGA; +SUMEMGB:= SUMEMGB + EMGB; BI:= MINIBI; )FOR I:= 0 TO (NUMBER-1) DO *BEGIN +RTI:= RISE[I]/60; +FTI:= FALL[I]/60; +IBI:= RTI+FTI; +PGH:= HEIGHT[I] * P1FACTOR; +DEG:= (TEMPERATURE[I] * 0.25) + 53.25; +EDL:= C2FACTOR * (1.0 + (EDR[I] * 0.00426136)); +EMGA:= CVTABLE[SEMGA[I]]REMENT_PLOT; & &IF NUMBER<3 THEN ARTIFACT:= TRUE ELSE 'BEGIN )ARTIFACT:= FALSE; )NCOLLECTED:= NCOLLECTED + NUMBER; ) )SUMIBITEMP:= 0; )SUMPGTEMP:= 0; )SUMEDLTEMP:= 0; )SUMEMGATEMP:= 0; )SUMEMGBTEMP:= 0; )MINIBI:= (RISE[0]+FALL[0])/60; )MAXI:1,HR3:6:1,HR4:6:1, 'D[4,1,PASS]:9:1,D[5,1,PASS]:6:1,D[6,1,PASS]:6:1); %END; #END;  END;  {**********************************************}   SEGMENT PROCEDURE PRINTEACHPERIOD;  "VAR HR1,HR2,HR3,HR4: REAL; "{-------------------------------------