Basic Forms

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.