; UNTIL: the condition is tested after each turn

PROC Main()
  BYTE number

  DO
    Print("Enter a number from 1 to 10: ")
    number=InputB()
  UNTIL number>=1 AND number<=10
  OD

  PutE()
  Print("Thank you, you entered ")
  PrintBE(number)
RETURN