%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1607
File Name:GETPULSE
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText:\ClrList:\Locate 4,3,"Checking.."
{0}\->\List 6:\Send(\List 6)
\Norm:0\->A~Z:.03\->T:100\->N:100\->W:\(-)1\->G
\Seq(TX,X,0,N-1,1)\->\List 1
{1,1,10}\->\List 6:\Send(\List 6)
\Locate 15,3,"Ok!":\Locate 5,5,"Clip on ear":\Locate 2,7,"then EXE to start"\Disp{5,0,0,W+1,W+N}\->\List 5
{3,T,W+N,0,0}\->\List 6:\Send(\List 6)
\ClrText:\AxesOff:\Cls
\Text 1,1,"GETPULSE"
\Orange \Text 8,1,"(C) 11:Sept:1999 Charlie Watson"
\Text 15,1,"Use F1 (long press) to switch"
\Text 21,1,"current \and hist\ory views"
\Text 29,1,"Use F6 (long press) to finish"
\Text 40,1,"Please wait 15 seconds"
\Text 47,1,"Collecting initial data..":\Text 1,125," "
\S-Gph1 \DrawOn,\xyLine,\List 1,\List 2,1,\Dot,\Orange 
\S-Gph2 \DrawOn,\xyLine,\List 3,\List 4,1,\Dot,\Green 
\S-Gph3 \DrawOff
\For 0\->I \To 500:\Getkey\->K:K=29\=>\Break:\Next :K=29\=>\Goto4
\Text 54,1,"Data transfer..":\Text 1,125," "
\Do
\Send(\List 5):\Receive(\List 2):\Getkey\->K:K=29\=>\Goto3
\If K=79\ And L>1:\Then \(-)G\->G:\Cls:\IfEnd
\Send(\List 6)
\Orange \Text 56,4,"          "
\Max(\List 2)\->A:\Min(\List 2)\->B:.6A-.4B\->M
\If G=\(-)1:\Then \AxesOff:\S-WindAuto:\S-Gph2 \DrawOff:\S-Gph1 \DrawOn:\Cls:\DrawStat:\Green \F-Line \Xmin,\Ymin,\Xmin,\Ymax:\Green \F-Line \Xmin,\Ymin,\Xmax,\Ymin:\IfEnd
\Getkey\->K:K=29\=>\Goto3
\Green \Text 56,43,"Calculating..":\Text 1,125," "
1+Z\->Z:0\->P:0\->F:\(-)1\->V:1\->I:1\->R
\Do
1+I\->I
\If \List 2[I]>M:\Then \If \List 2[I]\>=\List 2[I-1]\ And \List 2[I]\>=\List 2[I+1]:\Then I\->S:1+V\->V
V=0\=>I\->C:V=1\=>I\->D:\If V\>=2:\Then (S-D)/(D-C)+(D-C)/(S-D)>2.12\=>0\->R:D\->C:S\->D:\IfEnd:F=0\=>I\->F:I+4\->I:\IfEnd:\IfEnd
\Getkey\->K:K=29\=>\Break
\LpWhile I<N-1
K=29\=>\Goto3
S-F\=>\Int (60V/(T*(S-F))+.5)\->P
P>200\=>0\->R
R=1\=>1+L\->L
L=1\ And R=1\=>[[Z\ab/c4][P]]\->\Mat Z
\If L>1:\Then \If R=1:\Then \Augment(\Mat Z,[[Z\ab/c4][P]])\->\Mat Z:\IfEnd:\Trn \Mat Z\->\Mat Z:\Mat->List\Mat Z,1)\->\List 3:\Mat->List\Mat Z,2)\->\List 4:\Trn \Mat Z\->\Mat Z:\IfEnd
\If G=1\ And L>1:\Then \AxesOn:\S-WindMan:\ViewWindow 0,(Z+10)/4,1,0,200,25:\S-Gph1 \DrawOff:\S-Gph2 \DrawOn:\Cls:\DrawStat:\Green \Text 14,4,"150":\Green \Text 45,4,"50":\Green \Text 1,4,"BPM":\IfEnd
\Getkey\->K:K=29\=>\Goto3
\Green \Text 56,43,"Pulse:        ":\Green \Text 56,68,P:\Green \Text 56,82,"bpm"
\If R=0:\Then \Orange \Text 48,44,"\asterRejected\aster":\IfEnd
\Orange \Text 1,60,"St\ored":\Text 1,87,L:\Orange \Text 1,100,"of":\Text 1,110,Z:\Orange \Text 56,99,"F6:\Stop":\Orange \Text 56,4,"F1:ChView"
A<3\=>\Orange \Text 8,8,"WARNING! EA100 batteries LOW?"
\Orange \Text 1,30,"Wait..":\Text 1,125," "
\Lbl 3
\LpWhile K\<>29\ And L<255
\Lbl 4:\Norm:\AxesOn:\ClrText:"Finished"

%End