(* $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 *)