REM $INCLUDE: '7188.bi'
REM $INCLUDE: 'printf.bas'
DIM DelayTime(5) AS LONG
DIM data1(5) AS INTEGER
ChangeLine$ = CHR$(10) + CHR$(13)
DelayTime(1) = 1000
DelayTime(2) = 500
DelayTime(3) = 400
DelayTime(4) = 300
DelayTime(5) = 200
data1(1) = 0
data1(2) = 0
data1(3) = 0
data1(4) = 0
data1(5) = 0

temp = InstallCom4(57600, 8, 0, 1)
temp = Is7188
IF temp = 0 THEN
   temp = print4(ChangeLine$ + "The program must run on I-7188")
   END
END IF
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 = StopWatchStart(1)
temp = StopWatchStart(2)
temp = StopWatchStart(3)
temp = StopWatchStart(4)
temp = StopWatchStart(5)
quit = 0
DO WHILE quit = 0
   temp = IsCom4
   IF temp <> 0 THEN
      temp = ReadCom4
      SELECT CASE CHR$(temp)
	  CASE "q"
	    quit = 1
	  CASE ELSE
	    temp = print4("Please press 'q' to quit ")
      END SELECT
   END IF
   FOR i = 1 TO 5
       temp = StopWatchReadValue(i, value&)
       IF value& >= DelayTime(i) THEN
	  temp = StopWatchStart(i)
	  temp = Show5DigitLed(i, data1(i))
	  data1(i) = data1(i) + 1
	  data1(i) = data1(i) AND &HF
       END IF
   NEXT i
LOOP
temp = RestoreCom4
temp = TimerClose
CALL LedOn
END