Code:
CASE 1  
  Porta.0 = 1
  WHILE myVar = 1
    @ READKEYPAD _myvar
  WEND
  PortA.0 = 0
/Henrik.