RosettaCodeData/Task/Loops-Do-while/XBasic/loops-do-while.basic

PROGRAM "dowhile"

DECLARE FUNCTION Entry()

FUNCTION Entry()
  val% = 0
  DO
    INC val%
    PRINT val%
  LOOP WHILE val% MOD 6 <> 0 ' or LOOP UNTIL val% MOD 6 = 0
END FUNCTION
END PROGRAM