1100 
MONITORING 
Voltage Dependence of the Slow Outward Current 
in Cardiac Purkinje Fibres. J. Physiol., 186:632- 
662, 1966. 
12. Trautwein, W. and Dudel, J. Aktionspotential und 
Mechanogramm des Warmbluterherzmuskels als 
Funktion der Schlagfrequenz. Arch ges. Physiol. 
260, 24:39, 1954. 
13. Weaver, C. S. and Dong, E. A phase sensitive model 
for vagel heart rate control. J. Theoretical Biology 
(in press) 
Appendix: A Vagal Stimulation Program 
1.000 VAG— STIM: PROCEDURE; 
10.000 declare (a,b,pulse,pulsel) (250) ; onevolt= 6000; 
11.000 declare storebuf (50,21), outbuf (25) ; 
11.500 declare name char(8) ; 
12.000 declare EKGin initial(61), p— in initial(62), p— out initial (97) ; 
12.500 set up proper buffersize(250),startcode(l=read when opened) */ 
13.000 call SETDIR(EKGin,8,5,250); call SETDIR(EKGin,8,6,l) ; 
13.500 /'■■ and sampletimeinterval(2 milliseconds),buflFernumber(60) */ 
14.000 call SETDIR(EKGin,8,7,2) ; call SETDIR(EKGin,8,8,60) ; 
14.500 call SETDIR(p— in,8,5,250) ; call SETDIR(p— in,8,6,l) ; 
14.600 call SETDIR(p— in,8,7,2) ; call SETDIR(p— in,8,8,60) ; 
14.700 call SETDIR(p— out,8,5,250) ; call SETDIR(p— out,8,6,l) ; 
14.800 call SETDIR(p— out,8,772) ; call SETDIR(p— out,8,ll,260) ; 
14.900 declare plot — out initial (13); call plotopen(plot — out); 
15.000 declare LT(IO) char(l); do i = 1 to 9; LT(i) = CHAR(i) ; end;LT (10) ='0'; 
15.100 penO = 0;penfin = l ;pendraw=2;penmove=3 ; 
15.200 limit :procedure(val,max,min) ; 
15.300 if val>max then return(max); 
15.400 if val< min then return(min) ; 
15.500 return (val) ; end limit; 
15.600 /* all dimensions in terms of hundreths of inches */ 
15.700 paper = 900 ;border = 20 ;let— size= 20 ;xoff =100 ;newsheet = 2550 ; 
15.800 drawframe : procedure ; 
15.900 call plot(plotout,0,0,penO) ; 
16.000 if havesetpen then call plot(plotout,newsheet,0,penmove) ; 
16.100 else do; pause; havesetpen =: 1; end; 
16.200 T = 1; call dispt(700, 'TIME(MSEC)') ; 
16.300 call dispy(2,100,8,l,300,'PP-INT(MSEC)') ; 
16.400 call plot(plotout,paper,0,penmove) ; 
16.500 T = .01; call dispt(1400,'TIME(SEC)') ; 
16.600 call dispy(l,200,4,l,300,'PP-INT(MSEC)') ; 
16.700 call dispy(2,2,4,6,-4,'SLOPE'); 
16.800 call plot(plotout,1000,800,pendraw) ; 
16.900 call plot(plotout,-paper,0,pendraw) ; 
17.000 call plot(plotout,0,0,penfin) ; call plot(plotout,0,0,penO) ; 
17.100 end drawframe; 
17.200 rati = 100; mini = 300; 
17.300 rat2 = 200; min2 = 300; 
17.400 drawnew: procedure; 
17.500 X = outbuf (2) -100; 
17.600 y = 100 * (outbuf (9)-minl)/ratl+border; 
17.700 y = limit (y,1000,xofr) ; 
17.800 call plotsymbol(plotout,x,y,let— size,LT(outbuf(l)),0,0) ; 
17.900 call plot(plotout,0,0,penmove) ; 
17.910 call plot(plotout,papersize,0,penmove) ; 
17.920 call plot(plotout,0,0,penO) ; 
17.930 x = 100; 
17.940 y = 100 ^' (outbuf (3)-min2)/rat2+xoffs; 
17.950 y = limit (y,600,xoff ) ; 
17.960 call plot(plotout,x,y,penmove) ; 
17.970 do 1 = 3 to 20; 
17.980 X = X + outbuf(l)/10; 
