RosettaCodeData/Task/Loops-Do-while/Action-/loops-do-while.action

Proc Main()
 byte A

 A=0
 Do
  A==+1
  PrintBE(A)
  Until A Mod 6=0
 Od
Return