REM $INCLUDE: '7188.bi'
REM $INCLUDE: 'printf.bas'
ChangeLine$ = CHR$(10) + CHR$(13)
temp = InstallCom(4, 57600, 8, 0, 1)
temp = Is7188
IF temp = 0 THEN
   temp = print4("The program must run on I-7188!!")
   END
END IF
temp = RestoreCom4
temp = InstallCom4(57600, 8, 0, 1)
Ver = GetLibVersion
'Hi = (Ver / 256) AND &HFF
'Lo = Ver AND &HFF
temp = print4(ChangeLine$ + "The Lib version:" + STR$((Ver / 256) AND &HFF) + "." + STR$(Ver AND &HFF))
temp = print4(ChangeLine$ + "Press 'q' or 'Q' quit program")
temp = TimerOpen
CALL LedOff
temp = CountDownTimerStart(0, 500)
quit = 0
LedMod = 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 = CountDownTimerReadValue(0, value&)
     IF value& = 0 THEN
	temp = CountDownTimerStart(0, 500)
	IF LedMod <> 0 THEN
	   CALL LedOff
	   LedMod = 0
	ELSE
	   CALL LedOn
	   LedMod = 1
	END IF
     END IF
     'temp = print4(ChangeLine$ + "Time=" + STR$(sec&) + "." + STR$(sec1&))
LOOP
temp = TimerClose
temp = RestoreCom4
CALL LedOn
END