| 12345678910111213141516171819202122232425262728293031323334353637 |
- (* $Header: A:/demos/demo1.edv 1.3 28 Oct 1990 20:51:16 coleb $ *)
- (* Top of file DEMO1.EDT *)
- ======================================================
- :NameScrn
- ParentFrame: 0
- (*The EndCode; means backing up from
- this screen ends the frame sequence.*)
- NormalNext: EntryScreen
- Fields:{
- () 'RecName' string; required
- }
- ------------------------------------------------------
- Enter a record name:
- # #
- ======================================================
- :EntryScreen
- ParentFrame: NameScrn
- NormalNext: none
- Fields:{
- () 'RecName' Display
- () 'age' integer [0..149]
- () 'job' string; required
- }
- ------------------------------------------------------
- Record Name: # #
- Age: # #
- Occupation: # #
- (* Bottom of file DEMO1.EDT *)
|
