REM $INCLUDE: '7188.bi'
REM $INCLUDE: 'printf.bas'
CALL Init5DigitLed
temp = installCom(4, 57600, 8, 0, 1)
ChangeLine$ = CHR$(10) + CHR$(13)

quit = 0
DO WHILE quit = 0
   d1$ = DATE$
   t1$ = TIME$
   temp = print4(ChangeLine$ + DATE$)
   temp = print4(ChangeLine$ + TIME$)
   CALL DelayMs(1000)
   temp = IsCom4
   IF temp <> 0 THEN
     d1% = ReadCom4
      IF CHR$(d1%) = "q" OR CHR$(d1%) = "Q" THEN
	  quit = 1
      ELSEIF CHR$(d1%) = "s" OR CHR$(d1%) = "S" THEN
	  temp = print4(ChangeLine$ + "Set new time:")
	  dataStr$ = ""
	  FOR i = 1 TO 10
a1:
	     temp = IsCom4
	     IF temp <> 0 THEN
		d1% = ReadCom4
		temp = ToCom4(d1%)
		dataStr$ = dataStr$ + CHR$(d1%)
	     ELSE
		GOTO a1
	     END IF
	  NEXT
	  DATE$ = dataStr$
	  temp = print4(ChangLine$ + "new time:" + DATE$)
      END IF
   END IF
LOOP
temp = RestoreCom4