Anonymous user
Simple windowed application: Difference between revisions
→TI-89 BASIC: new example
(→TI-89 BASIC: new example) |
|||
Line 904:
.l configure -text "Number of clicks: [incr ::count]"
}</lang>
=={{header|TI-89 BASIC}}==
The Ti-89 does not have general onscreen buttons; this program uses the OK/Cancel choice of a dialog box to implement the UI.
<pre style="font-family:'TI Uni'">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</pre>
=={{header|Vedit macro language}}==
| |||