===============================================================================
:1
 ParentFrame: 0
 NormalNext: 8
 Display Only
 Colors:{
   & = (green, blue) ReverseVideo
 }
      (*Delimits green text on a blue background on color monitors,  *)
    (*   ReverseVideo on monochrome monitors.*) 

-------------------------------------------------------------------------------



            &                                                   &
            &                   M o d B a s e                   &
            &                                                   &
            &               A Simple Demonstration              &
            &                 Using Repertoire's                &
            &                   Screen System                   &
            &                                                   &
            &            (c) Copyright PMI 1986, 1987           &
            &                All Rights Reserved                &
            &                                                   &
            &                                                   &


===============================================================================
:2
Parent Frame: 0
(* returns us to DOS *)
Fields:{
 (R) '' goto 11; prompt
     Add a new record or edit an existing one.
 (F) '' goto 8; prompt
     Select a new database file.
 (I) '' goto 6; prompt
     Import records from a properly formatted ASCII file.
 (E) '' goto 7; prompt
     Export all records to an ASCII file.
 (D) '' goto 0; prompt
     Terminate this program and return to DOS.
}
   (*Zero is the EndCode; it signals the screen system that a 
     frame sequence is ended.*) 
Window:{
  Position:( 2,2, 79,23 )
  no box
}
-------------------------------------------------------------------------------
  #Record#    #File#     #Import#     #Export#     #DOS#
===============================================================================
:3
ParentFrame: 2
Fields:{
 (E) '' goto 4
 (S) '' goto 9
 (D) '' goto 10
 (R) '' goto 2
}
Window:{
  Position:( 2,2, 79,2 )
  no box
}
-------------------------------------------------------------------------------
  #Edit#   #Save#   #Delete#   #Return#
===============================================================================
:4
ParentFrame: 3
NormalNext: 3
Fields:{
  () 'NAME' display
  () 'COMPANY' string
  () 'ADDRESS1' string; required
  () 'ADDRESS2' string
  () 'CITY' string; required
  () 'STATE' string
  () 'ZIPCODE' string
  () 'ASKDATE' string
}
Window:{
  Position:( 2,3, 78,23 )
  no box
}
-------------------------------------------------------------------------------





                   Name:  #                              #

                Company:  #                              #
               Address1:  #                              #
               Address2:  #                              #

                   City:  #                    #

                  State:  #  #

               Zip Code:  #          #

          Date of entry:  #        #

===============================================================================
:5
 ParentFrame: 2
 NormalNext: 3
 Fields:{
   () 'name' string
 }
 Window:{
   Position:( 10,13, 44,21 )
   single box 
 }
-------------------------------------------------------------------------------

  Name:


  #                              #

===============================================================================
:6 
(*Import an ASCII file*)
 ParentFrame: 2
 NormalNext: 2
 Fields:{
   () 'filename' string
 }
 Help:{
   The ascii file must contain fixed-length records, each on a 
   single CR/LF-terminated line. 
 }
 Window:{
   Position:( 10,13, 44,21 )
   single box 
 }
-------------------------------------------------------------------------------

  Enter the name of the ASCII 
  file to be imported: 


  #                          #

===============================================================================
:7
 (*Export to an ASCII file*)
 ParentFrame: 2
 NormalNext: 2
 Fields:{
   () 'filename' string
 }
 Window:{
   Position:( 10,13, 44,21 )
   single box 
 }
-------------------------------------------------------------------------------

  Enter the name of the ASCII 
  file to be created: 


  #                          #

===============================================================================
:8
 ParentFrame: 2
 NormalNext: 2
 Fields:{
   () 'filename' string; required
 }
 Window:{
   Position:( 10,13, 44,21 )
   single box 
 }
-------------------------------------------------------------------------------

  Enter the DOS file name of 
  the database (.DBF extension 
  assumed): 


  #                          #

===============================================================================
:9
 ParentFrame: 3
 NormalNext: 3
 Hit Any Key
 Window:{
   Position:( 10,13, 44,21 )
   single box 
 }
-------------------------------------------------------------------------------

  Record successfully written 
  to the file.

===============================================================================
:10
 ParentFrame: 3
 NormalNext: 3
 Hit Any Key
 Window:{
   Position:( 10,13, 44,21 )
   single box 
 }
-------------------------------------------------------------------------------

  Record successfully deleted 
  from the file.

===============================================================================
:11
 ParentFrame: 2
 NormalNext: 2
 Fields:{
   (N) '' goto 1000
   (P) '' goto 1001
   (S) '' goto 5
 }
 Window:{
   Position:( 2,3, 79,7 )
   no box
 }
-------------------------------------------------------------------------------
 ³#Next  # ³
 ³#Prev  # ³
 ³#Specif# ³
 ÀÄÄÄÄÄÄÄÙ