REM $INCLUDE: '7188.bi'
REM $INCLUDE: 'printf.bas'

 DIM i AS INTEGER, j AS INTEGER
 DIM data1 AS INTEGER, mode AS INTEGER, temp AS INTEGER
 DIM c AS INTEGER
 DIM NVRAM(31) AS INTEGER

  InitLib                    ' driver initial      
  Init5DigitLed              ' 5-digit LED initial 
  temp = InstallCom(4, 57600, 8, 0, 1)

  temp = Show5DigitLed(1, 0)' show 0 in 5-digit LED
  temp = Show5DigitLed(2, 0)' show 0 in 5-digit LED
  temp = Show5DigitLed(3, 17)' show - in 5-digit LED
  temp = Show5DigitLed(4, 3)' show 3 in 5-digit LED
  temp = Show5DigitLed(5, 0)' show 0 in 5-digit LED

'   read current NVRAM 0-31
  ChangeLine$ = CHR$(10) + CHR$(13)
  temp=print4 (ChangeLine$ + "Current Values are:"+ ChangeLine$ )
  FOR j = 0 TO 30
      NVRAM(j) = ReadNVRAM(j)
      temp=print4 (STR$(NVRAM(j))): temp=print4 (" ")
      NVRAM(j) = NVRAM(j) + 1
      temp = WriteNVRAM(j, NVRAM(j))  ' write to NVRAM for test
  NEXT j

  temp=print4 (ChangeLine$ + "After write Values are:" + ChangeLine$ )
  FOR j = 0 TO 30
   temp=print4 (STR$(ReadNVRAM(j)))
   temp=print4 (" ")
  NEXT j

  temp = RestoreCom(4)