PROC Main()
  BYTE v

  PrintE("Before loop")
  DO
    v=Rand(20)
    PrintBE(v)
    IF v=10 THEN
      EXIT
    FI
  OD
  PrintE("After loop")
RETURN