You're not looping back.
code:
CLS
BREAK ON
DO
  NAMEINPUT()
  ?'Would you like to do the clean again? - Y/N'
  ?'>'
  WHILE $response<>'y' or $response<>'n'
    GET $response
  LOOP
  $response
UNTIL $response<>'Y'
LEAVE()
_________________________
There are two types of vessels, submarines and targets.