DATREND Systems Oxitest Plus 7, Руководство по эксплуатации

Страница: 48 / 62

OXITEST PLUS 7 OPERATING MANUAL
CASE 3:
O2sat% = 9Ø
CASE 4:
O2sat% = 8Ø
CASE 5:
O2sat% = 7Ø
CASE ELSE
O2sat% = 97
END SELECT
PRINT " "; O2sat%; " ";
HeartRate%
' Delay 20 sec before next heart rate increment
FOR i% = 1 TO 100
GOSUB CommDelay
' Quit if user presses ESCape key
IF INKEY$ = CHR$(27) THEN
CLOSE
END
END IF
NEXT i%
NEXT HeartRate%
' Select next saturation level
SpO2% = SpO2% + 1
IF SpO2% > 5 THEN
SpO2% = 1
END IF
LOOP WHILE SpO2% > Ø
END
' This subroutine produces a timed delay of 200
msec
CommDelay:
TeeZero! = TIMER
DO WHILE TIMER - TeeZero! < .2: LOOP
RETURN
Computer Control/Chapter 4
#
Page 38