How to recognize the "Enter" keystroke

[HenrikOlsson]

Hi,
I feel there might be an easier way but I'm currently not quite up to speed on the string modifiers so here's one way:

i       VAR BYTE
Value   VAR WORD
Array   VAR BYTE[5]

Main:
  GOSUB ClearArray

  HSEROUT["Enter new value or press enter to keep [ ", DEC Value," ] :",10,13]
  HSERIN[Str Array\7\13]

  ' Is the first character either a LF , CR or NULL? If so we abort and keep the old value.
  IF Array[0] = 10 or Array[0] = 13 OR Array[0] = 0 THEN Main
  ArrayRead Array,[DEC Value]
Goto Main

ClearArray:
    For i = 0 to 4
        Array[i] = 0
    NEXT
RETURN

/Henrik.