(* $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: # #