REM $INCLUDE: '7188.bi'
REM $INCLUDE: 'printf.bas'
ChangeLine$ = CHR$(10) + CHR$(13)
temp = InstallCom(4, 57600, 8, 0, 1)
temp = print4(ChangeLine$ + "Press any key to start Timer")
temp = print4(ChangeLine$ + "then Press '0' to Reset Timer,'q' to quit" + ChnageLine$)
temp = RestoreCom4
temp = getch4
temp = InstallCom4(57600, 8, 0, 1)
temp = print4("start")
temp = TimerOpen
quit = 0
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
     time& = TimerReadValue
     sec& = time& / 1000
     sec1& = time& MOD 1000
     temp = print4(ChangeLine$ + "Time=" + STR$(sec&) + "." + STR$(sec1&))
LOOP
temp = TimerClose
temp = RestoreCom4