Displays some form prompts that update as you enter new values.
Program
---
Form Program
---
prog_vars =
d/count 0
d/xpos 0
d/ypos 0
d/text_to_show "Jack is a very good boy"
d/name "jack"
d/height 1.84
d/age 0
prog_vars.
prog_start =
pclear
ptl 100 1 ^ts=24^ "Program Start"
etl h d ^pmt=Edit text^w=20^max=20^c=lime^var=name^ "Name /name"
etl h f ^pmt=age^w=20^max=20^c=lime^var=age^ "/age"
etl h h ^pmt=Height^w=20^max=20^c=lime^var=height^ "/height"
etl h j ^pmt=Speed^max=20^var=150^ "/150"
ptl h p ^id=h1^ts=16^ "Name: /name Age /age height: /height"
pb 10 100 ^n=update^p=update_values^
pb 10 150 ^n=Quit^p=exitprog^
prog_start.
prog_loop =
-- main program loop
ptl h p ^id=h1^ts=16^ "Name: /name Age /age height: /height"
prog_loop.
update_values =
ptl h p ^id=h1^ts=16^ "Name: /name Age /age height: /height"
update_values.
prog_stop =
print "Bye"
pclear
ptl m h ^ts=40^tc=red^ "Bye"
prog_stop.