Topspeed_JPI/TS/REP16/SCRNCOMP.EDT

(* $Header:   D:/logfiles/demos/scrncomp.edv   1.2   16 Dec 1990 18:12:54   coleb  $ *)

================================================================================
:Banner
  Parent Frame: 0
    (*Means the parent frame of this screen is outside the
      program--pressing the backup key will take you to the DOS
      command line.*)
  Normal Next: TopMenu
  Hit Any Key
  Window:{
    ClearAfter
    Position: ( 5,2, 75,255 )
  }
  Colors:{
    NormalText = (Black, LightGrey) ReverseVideo
    Border = (Red, black) Plain
    à = (yellow, brown) Reverse Video
      (*This character (224) delimits areas in which Light Magenta
        characters appear on a Black background.*)
    ƒ = (BrightWhite, Green) Plain
      (*This character (131) delimits areas in which Bright White
        characters  appear on a black background.*)
    $ = (Red, Green) Plain
    & = (LightGrey, black) Plain

  }
--------------------------------------------------------------------------------


        à  ËÍÍ» ËÍÍ» ËÍÍ» ËÍÍ» ËÍÍ» ÉÍËÍ» ÉÍÍ» ÍËÍ ËÍÍ» ËÍÍ» (R) à
        &à  ÌÍ˼ ÌÍ   ÌÍͼ ÌÍ   ÌÍ˼   º   º  º  º  ÌÍ˼ ÌÍ       à &
        &à  Ê ÈÍ ÊÍͼ Ê    ÊÍͼ Ê ÈÍ   Ê   ÈÍͼ ÍÊÍ Ê ÈÍ ÊÍͼ     à &
        &àÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ à &
          &                                                       &

           $ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿$
           &$³    ƒ             - from -               ƒ       ³$ &
           &$³    ƒ                                    ƒ       ³$ &
           &$³    ƒ               P M I                ƒ       ³$ &
           &$³    ƒ                                    ƒ       ³$ &
           &$³    ƒ       3279 North Nicolet Dr        ƒ       ³$ &
           &$³    ƒ      Green Bay Wisconsin 54311     ƒ       ³$ &
           &$³    ƒ        tel: (414) 468-6040         ƒ       ³$ &
           &$³    ƒ        fax: (414) 465-0464         ƒ       ³$ &
           &$³    ƒ    (c) Copyright PMI 1985-1991     ƒ       ³$ &
           &$³    ƒ        All Rights Reserved         ƒ       ³$ &
           &$ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ$ &
             &                                                &



===============================================================================
:TopMenu
  ParentFrame: Banner
  FrameBelow: FileMenu
  Help:{
    TopHelp}
  Fields:{
    (F) '' Goto FileMenu; prompt
 Press Return now to open or change ScrnComp's primary input and output files.
    (E) '' Goto EditMenu; prompt
   Lets you examine and change the source text of a screen or a file.
    (C) '' Goto CompMenu; prompt
  Lets you compile the source text of a screen or file of screens (.EDT file).
    (D) '' Goto DispMenu; prompt
   Displays visual result of the last frame compiled or of a specific frame.
    (R) '' Goto EntryPrompt; prompt
    Execute a prototype formed by links between frames in current .DSP file.
    (P) '' Goto PrintMenu; prompt
       Write a specified frame to a file or device.
    (s) '' Goto BlankScreen; prompt
       Clears the area beneath this menu.
    (x) '' Goto 0; prompt
      Close all files and return to DOS.
  }
  Window:{
    EntryBox: ÚÄ·³ºÔͼ
    ExitBox: ÚÄ·³ºÔͼ
    Position: (1, 1, 80, 3)
  }
  Colors:{
    PointerBar = (black, red) ReverseVideo
    NormalText = (Black, LightGrey) Plain
    Border = (Red, black) Plain
  }
-------------------------------------------------------------------------------

  #File#  #Edit#  #Compile#  #Display#  #Run#  #Print#  #Clear screen#  #Exit#



===============================================================================
:DispMenu
  ParentFrame: TopMenu
  FrameLeft: CompMenu
  FrameRight: FileMenu
  Fields:{
    (C) '' Goto NoCurrent; prompt
           Display the frame most recently compiled.
    (S) '' Goto FramePrompt; prompt
           Display a specific frame in the current .DSP file.
    (L) '' Goto ListBox; prompt
           Display a list of all the frame names in the current .DSP file.
  }
  Window:{
    No Box
    ClearAfter
    EntryBox: ÑÍ˳ºÔͼ
    ExitBox: ÑÍ˳ºÔͼ
    Position: (23, 3, 41, 7)
  }
  Colors:{
    PointerBar = (black, red) ReverseVideo
    NormalText = (Black, LightGrey) Plain
    Border = (Red, black) Plain
  }
-------------------------------------------------------------------------------

  #Current frame#
  #Specific frame#
  #List of frames#


===============================================================================
:ListBox
  ParentFrame: DispMenu
  Window:{
    EntryBox: ÚÄ·³ºÔͼ
    ExitBox: ÚÄ¿³³ÀÄÙ
    Position: (55, 4, 78, 253)
      (*The 253 means the bottom row is 3 up from wherever the
        bottom of the physical screen happens to be.*)
  }
  Colors:{
    PointerBar = (red, LightGrey) ReverseVideo
    NormalText = (black, LightGrey) plain
    Border = (red, black) plain
 }
-------------------------------------------------------------------------------

===============================================================================
:FileMenu
  ParentFrame: TopMenu
  FrameRight: EditMenu
  FrameLeft: DispMenu
  Fields:{
    (E) '' Goto EdtName; prompt; EdtFileHelp
       If you already have an .EDT file open, you'll be allowed to save it.
    (D) '' Goto DspName; prompt
        A .DSP file is a file of DiSPlayable screens.
    (f) '' Goto FramePrompt; prompt
       You will be prompted for the name of the frame you want to delete.
    (C) '' Goto FileName; prompt
     Removes holes created by deletions or size changes.
  }
  Window:{
    No Box
    ClearAfter
    EntryBox: ÑÍ˳ºÔͼ
    ExitBox: ÑÍ˳ºÔͼ
    Position: (2, 3, 21, 8)
  }
  Colors:{
    PointerBar = (black, red) ReverseVideo
    NormalText = (Black, LightGrey) Plain
    Border = (Red, black) Plain
  }
-------------------------------------------------------------------------------

  #Open .EDT file#
  #Open .DSP file#
  #Delete frame#
  #Crunch .DSP file#

===============================================================================
:CompMenu
  ParentFrame: TopMenu
  FrameLeft: EditMenu
  FrameRight: DispMenu
  Fields:{
    (E) '' Goto EditQ; prompt
    Compiles the CURRENT .EDT file if you have one open; see Files menu.
    (S) '' Goto FramePrompt; prompt
    Prompts for a frame name and tries to find it in the current .EDT file.
    (C) '' Goto StoreQ; prompt
    Current frame means the last individual frame edited or compiled.
  }
  Window:{
    No Box
    ClearAfter
    EntryBox: ÑÍ˳ºÔͼ
    ExitBox: ÑÍ˳ºÔͼ
    Position: (13, 3, 31, 7)
  }
  Colors:{
    PointerBar = (black, red) ReverseVideo
    NormalText = (Black, LightGrey) Plain
    Border = (Red, black) Plain
  }
-------------------------------------------------------------------------------

  #.EDT file#
  #Specific frame#
  #Current frame#

===============================================================================
:EditMenu
  ParentFrame: TopMenu
  FrameLeft: FileMenu
  FrameRight: CompMenu
  Help:{
    EditHelp
  }
  Fields:{
    (E) '' Goto EdtName
      (*Note that we can't have Goto TopMenu here because
        ControlFrameGroup needs a NextFrame not equal to ParentFrame
        to signal the end of the group.*)
    (S) '' Goto FramePrompt
    (f) '' Goto EdtName
    (A) '' Goto FileName
  }
  Window:{
    No Box
    ClearAfter
    EntryBox: ÑÍ˳ºÔͼ
    ExitBox: ÑÍ˳ºÔͼ
    Position: (7, 3, 27, 8)
  }
  Colors:{
    PointerBar = (black, red) ReverseVideo
    NormalText = (Black, LightGrey) Plain
    Border = (Red, black) Plain
  }
-------------------------------------------------------------------------------

  #Current .EDT file#
  #Specific frame#
  #Current frame#
  #ASCII file#

===============================================================================
:FramePrompt
  NormalNext: StoreQ
  Fields:{
    () 'TheStr' String
  }
  Window:{
    ClearAfter
    Position: ( 5, 7, 40, 14 )
  }
  Colors:{
    PointerBar = (LightGrey, black) ReverseVideo
    NormalText = (black, Brown) plain
    Border = (brown, black) plain
  }
-------------------------------------------------------------------------------


   Please enter the name
   of the frame:

   #                            #


===============================================================================
:EntryPrompt
  ParentFrame: TopMenu
  NormalNext: NewEntry
  Fields:{
    () 'TheStr' String
  }
  Window:{
    ClearAfter
    Position: ( 5, 5, 40, 15 )
  }
  Colors:{
    PointerBar = (LightGrey, black) ReverseVideo
    NormalText = (LightBlue, Brown) plain
    Border = (DarkGrey, Brown) plain
  }
-------------------------------------------------------------------------------

  Please enter the name
  of the first frame in
  the sequence:

  #                     #

===============================================================================
:NewEntry
  ParentFrame: TopMenu
  NormalNext: EntryPrompt
  Fields:{
    () 'TheStr' String
  }
  Window:{
    ClearAfter
    Position: ( 5, 5, 55, 15 )
  }
  Colors:{
    PointerBar = (LightGrey, black) ReverseVideo
    NormalText = (LightBlue, Brown) plain
    Border = (DarkGrey, Brown) plain
  }
-------------------------------------------------------------------------------

  The frame below is not a name
  in this file.  Please enter
  a new name, or press Escape to
  terminate the sequence:

  #                     #

===============================================================================
:EdtName
  NormalNext: TopMenu
  Fields:{
    () 'TheStr' String
  }
  Window:{
    ClearAfter
    Position: ( 5, 5, 55, 15 )
  }
  Colors:{
    PointerBar = (LightGrey, black) ReverseVideo
    NormalText = (blue, brown) plain
    Border = (DarkGrey, brown) plain
  }
-------------------------------------------------------------------------------

  Please enter the name of the .EDT file
  (.EDT extension assumed):

   #                                  #


===============================================================================
:DspName
  NormalNext: TopMenu
  Fields:{
    () 'TheStr' String
  }
  Window:{
    ClearAfter
    Position: ( 5, 5, 55, 15 )
  }
  Colors:{
    PointerBar = (LightGrey, black) ReverseVideo
    NormalText = (LightBlue, Brown) plain
    Border = (DarkGrey, Brown) plain
  }
-------------------------------------------------------------------------------

  Please enter the name of the .DSP file
  (.DSP extension assumed):

   #                                  #


===============================================================================
:FileName
  ParentFrame: FileMenu
  NormalNext: TopMenu
  Fields:{
    () 'TheStr' String
  }
  Window:{
    ClearAfter
    Position: ( 5, 5, 55, 15 )
  }
  Colors:{
    PointerBar = (LightGrey, black) ReverseVideo
    NormalText = (LightBlue, Brown) plain
    Border = (DarkGrey, Brown) plain
  }
-------------------------------------------------------------------------------

  Please enter the full name of the file:

   #                                  #


===============================================================================
:NoCurrent
  NormalNext: TopMenu
  ParentFrame: DispMenu
  HitAnyKey
  Window:{
    ClearAfter
    Position: ( 38, 5, 77, 10 )
  }
  Colors:{
    NormalText = (LightGrey, blue) plain
    Border = (green, blue) plain
  }
-------------------------------------------------------------------------------

  "Current Frame" means the last
  frame compiled.  You haven't yet
  compiled anything, so there is no
  Current Frame.

===============================================================================
:FileError
  NormalNext: TopMenu
  ParentFrame: TopMenu
  HitAnyKey
  Window:{
    ClearAfter
    Position: ( 40, 5, 75, 10 )
  }
  Colors:{
    NormalText = (BrightWhite, brown) plain
    Border = (Yellow, brown) plain
  }
-------------------------------------------------------------------------------

  Error opening file.  You may
  have mistyped the file name, or
  DOS may be denying access to the
  file.


===============================================================================
:CreateQ
  NormalNext: TopMenu
  ParentFrame: FileMenu
  Fields:{
    () '' Group 2
    (Y) '' Choice
    (N) '' Choice
  }
  Window:{
    ClearAfter
    Position: ( 45, 5, 75, 10 )
  }
  Colors:{
    NormalText = (LightGrey, blue) plain
    Border = (green, blue) plain
  }
-------------------------------------------------------------------------------

  File not found.  Create it?

    #Yes#  #No#


===============================================================================
:StoreQ
  NormalNext: TopMenu
  ParentFrame: FileMenu
  Fields:{
    () '' Group 2
    (Y) '' Choice
    (N) '' Choice
  }
  Window:{
    ClearAfter
    Position: ( 43, 5, 75, 10 )
  }
  Colors:{
    NormalText = (blue, LightGrey) plain
    Border = (green, LightGrey) plain
  }
-------------------------------------------------------------------------------

  Frame compiled successfully.
  Store it in the file?

    #Yes#  #No#


===============================================================================
:DisplayQ
  NormalNext: TopMenu
  ParentFrame: EditMenu
  Fields:{
    () '' Group 2
    (Y) '' Choice
    (N) '' Choice
  }
  Window:{
    ClearAfter
    Position: ( 45, 5, 70, 10 )
  }
  Colors:{
    NormalText = (LightGrey, blue) plain
    Border = (green, blue) plain
  }
-------------------------------------------------------------------------------

  Display this frame?

    #Yes#  #No#


===============================================================================
:EditQ
  NormalNext: CompMenu
  ParentFrame: TopMenu
  Fields:{
    () '' Group 2
    (Y) '' Choice
    (N) '' Choice
  }
  Window:{
    ClearAfter
    Position: ( 45, 5, 72, 10 )
  }
  Colors:{
    NormalText = (LightGrey, blue) plain
    Border = (green, blue) plain
  }
-------------------------------------------------------------------------------

  Edit the current frame?

       #Yes#  #No#

===============================================================================
:SaveQ
  NormalNext: TopMenu
  ParentFrame: EditMenu
  Fields:{
    () '' Group 2
    (Y) '' Choice
    (N) '' Choice
  }
  Window:{
    ClearAfter
    Position: ( 45, 5, 70, 10 )
  }
  Colors:{
    NormalText = (LightGrey, blue) plain
    Border = (green, blue) plain
  }
-------------------------------------------------------------------------------

  Save changes?

   #Yes#  #No#



===============================================================================
:SaveEdt
  NormalNext: TopMenu
  ParentFrame: EditMenu
  Fields:{
    () '' Group 2
    (Y) '' Choice
    (N) '' Choice
  }
  Window:{
    ClearAfter
    Position: ( 45, 5, 70, 12 )
  }
  Colors:{
    NormalText = (LightGrey, blue) plain
    Border = (green, blue) plain
  }
-------------------------------------------------------------------------------

  Do you want to write
  the current .EDT file
  back to disk?

   #Yes#  #No#


===============================================================================
:TopHelp
  NormalNext: 0
  ParentFrame: 0
  Window:{
    ClearAfter
    Position: ( 33, 5, 77, 17 )
  }
  Colors:{
    NormalText = (BrightWhite, brown) plain
    Border = (Yellow, brown) plain
  }
-------------------------------------------------------------------------------

  This is the top level menu in the
  "integrated environment" version of
  ScrnComp.  You can use ScrnComp from the
  DOS command line by removing ScrnComp.DSP
  from your hard disk, or by invoking
  ScrnComp like this:

    SCRNCOMP [EdtFileName] [DspFileName] /C

  This adds all the frames in [EdtFileName]
  to [DspFileName].

===============================================================================
:EditHelp
  NormalNext: 0
  ParentFrame: 0
  Window:{
    SingleBox
    ClearAfter
    Position: ( 20, 10, 70, 16 )
  }
  Colors:{
    NormalText = (BrightWhite, brown) plain
    Border = (Yellow, brown) plain
  }
-------------------------------------------------------------------------------

  Remember that you have to open an .EDT file
  with the top menu's Files option before you
  can use the "Specific frame" or "Current frame"
  options in the Edit menu.

===============================================================================
:EdtFileHelp
  NormalNext: 0
  ParentFrame: 0
  Window:{
    SingleBox
    ClearAfter
    Position: ( 20, 10, 70, 16 )
  }
  Colors:{
    NormalText = (BrightWhite, brown) plain
    Border = (Yellow, brown) plain
  }
-------------------------------------------------------------------------------

  An .EDT file is like source code for
  Repertoire's screen compiler.  It contains
  EDiTable representations of screens.  If you
  open one, compile it, and then open and compile
  another without changing .DSP files, all the
  screens in both .EDT files will be added to the
  same .DSP file.

===============================================================================
:BlankScreen
  NormalNext: TopMenu
  ParentFrame: TopMenu
  DisplayOnly
  Window:{
    NoBox
    ClearAfter
    Position: ( 1, 4, 256, 256 )
  }
  Colors:{
    NormalText = (lightgrey, black) plain
  }
-------------------------------------------------------------------------------


===============================================================================
:StatusFrame
  FieldMark: #; replace
  NormalNext: TopMenu
  ParentFrame: TopMenu
  DisplayOnly
  Window:{
    EntryBox: ÚÄ·³ºÔͼ
    ExitBox: ÚÄ·³ºÔͼ
    Position: ( 47, 4, 76, 15 )
  }
  Fields:{
    () 'line1' string
    () 'line2' string
    () 'line3' string
  }
  Colors:{
    NormalText = (black, LightGrey) ReverseVideo
    Border = (red, black) Plain
  }
-------------------------------------------------------------------------------


   $ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿$
   &$³                     ³$ &
   &$³ #                 # ³$ &
   &$³ #                 # ³$ &
   &$³ #                 # ³$ &
   &$³                     ³$ &
   &$ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ$ &
     &                      &

===============================================================================
:PrintDialog
  NormalNext: PrintDialog
  ParentFrame: TopMenu
  Fields:{
    () 'FrameName' String; required
    () 'DeviceName' String; required
  }
  Window:{
    ClearAfter
    Position: ( 5, 5, 55, 15 )
  }
  Colors:{
    PointerBar = (LightGrey, black) ReverseVideo
    NormalText = (LightBlue, Brown) plain
    Border = (DarkGrey, Brown) plain
  }
-------------------------------------------------------------------------------

  Name of frame to be printed:

    #                                 #


  Name of file or device to which the 
  frame should be appended:

   #                                  #