Proc Main()
 byte A

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