DLG(NameEdit=a, NameEdit=b, Button='OK')

IF (a < b) THEN
    WRITE(Messagebox) a, ' is less than ', b
  ELSEIF(a == b) THEN
    WRITE(Messagebox) a, ' is equal to ', b
  ELSEIF(a > b) THEN
    WRITE(Messagebox) a, ' is greater than ', b
ENDIF