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