DECLARE SUB ABC ()

CLS
CALL ABC
END

SUB ABC
   INPUT A
   IF A THEN CALL ABC
   PRINT A;
END SUB