12 lines
263 B
Text
12 lines
263 B
Text
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
|