OXITEST PLUS 7 OPERATING MANUAL
CLS
PRINT "NELLCOR pulse oximeter SpO2/Heart Rate
sweep"
PRINT "Press <ESC> to quit": PRINT
PRINT " SpO2 (%) Heart Rate (BPM)"
VIEW PRINT 5 TO 6
' Open COM1 for serial communications at 96ØØ baud
OPEN "COM1: 96ØØ,N,8,1,CDØ,CSØ,DSØ,OPØ,RB32,TB32"
FOR OUTPUT AS #1
' Select NELLCOR N-200 pulse oximeter
' Note the following command may change with
changes
' in Oxitest software revision. The command OXØ35
is
' used here only as an example.
PRINT #1, "OXØ35"
INPUT #1, C$
SpO2% = 1
DO
' Set the SpO2
PRINT #1, "SO";
PRINT #1, USING "#"; SpO2%
INPUT #1, C$
GOSUB CommDelay
' Sweep the heart rate from 60 to 140 BPM
FOR HeartRate% = 6Ø TO 14Ø STEP 2Ø
PRINT #1, "HR";
IF HeartRate% < 1ØØ THEN
PRINT #1, USING "##"; HeartRate%
ELSE
PRINT #1, USING "###"; HeartRate%
END IF
INPUT #1, C$
' Display current SpO2 and HR on PC screen
SELECT CASE SpO2%
CASE 2:
O2sat% = 93
Program Example
Computer Control/Chapter 4
#
Page 37
