REM $INCLUDE: '7188.bi'
REM $INCLUDE: 'printf.bas'
ChangeLine$ = CHR$(10) + CHR$(13)
  quit = 0
  temp = TimerOpen
  ledmode = 0
  CALL LedOff
  temp = StopWatchStart(7)
  value& = 0
  temp = InstallCom4(57600, 8, 0, 1)
  DO WHILE quit = 0
     temp = IsCom4
     IF temp <> 0 THEN
	temp = ReadCom4
	SELECT CASE CHR$(temp)
	   CASE "0"
	     CALL TimerResetValue
	   CASE "q"
	     quit = 1
	   CASE ELSE
	    temp = print4("Please press 'q' to quit and '0' to reset timer")
	END SELECT
     END IF
      temp = StopWatchReadValue(7, value&)
      temp = print4(ChangeLine$ + "value:" + STR$(value&))
      value1& = TimerReadValue
      temp = print4(ChangeLine$ + "value1:" + STR$(value1&))
      IF value& >= 500 THEN
	 temp = StopWatchStart(7)
	 IF ledmode = 1 THEN
	    CALL LedOff
	    ledmode = 0
	 ELSE
	    CALL LedOn
	    ledmode = 1
	 END IF
	 'temp = print4("Timer test")
      END IF
  LOOP
  temp = TimerClose
  temp = RestoreCom4
 END