Prgm
  Local clicks
  0 → clicks
  1 → ok    © System variable also set by Dialog statement
  While ok = 1
    Dialog
      Title "Rosetta Code"
      Text "There have been " & string(clicks) & " OKs"
    EndDlog
    clicks + 1 → clicks
  EndWhile
EndPrgm