Topspeed_JPI/TS/REP16/PMIDBMS.EDT

(* $Header:   D:/logfiles/demos/pmidbms.edv   1.2   16 Dec 1990 18:12:30   coleb  $ *)
================================================================================
:1  (* This is the prompt that remains at the bottom of each screen *)
  NormalNext: 2
  Display Only
  Window:{
    No Box
    Position: (1, 25, 80, 25)
  }
  Colors:{
    ã = (LightMagenta, Black) bold
      (*This character (227) delimits areas in which Light Magenta
        characters appear on a Black background.*)
    â = (BrightWhite, Black)
      (*This character (226) delimits Bright White on Black *)
    }
--------------------------------------------------------------------------------
ã      âF1:â HELP     âF2:â EXIT     âF3:â MEMORY   âEsc:â BACK-UP     âF10:â SUBMIT       ã
================================================================================
:2  (* Top Level Menu *)
  Parent Frame: 0 (*DOS*)
  Normal Next: 2
  Field Mark: #
    (*This field mark stays in effect for all subsequent frames until it is
      changed.*)
  Fields: {
    (P)  '' Goto 4; prompt   (*Process a record*)
  This option lets you edit, create, delete, and print records.
    (U)  '' Goto 29; prompt  (*List Management*)
  Lets you search the file, and then store/use lists of matching customer names.
    (M)  '' Goto 9; prompt   (*File Management *)
  Lets you edit files, create/select other NdxFiles, and crunch this NdxFile.
    (E)  '' Goto 19; prompt  (*Export*)
  Lets you export records to ASCII files, other NdxFiles, and print files.
    (R)  '' Goto 0; prompt   (*Return to DOS *)
  Closes all PMIDbms files and returns to the operating system.
  }
  Help: {
Choose an option with the up and down
arrows and press F10}
  Window:{
    Position: (1, 1, 80, 24)
  }
  Colors:{
    á = (15, 1) bold
      (*This character (225) delimits areas in which Bright White
        characters appear on a blue background.*)
    � = (11, 1) Reverse Video
      (*This character (129) delimits Light Cyan on blue *)
    ‚ = ( 14, 3) Under Scored
      (*This character (130) delimits Yellow on Cyan *)
    }
--------------------------------------------------------------------------------

                        áPMI Customer Information Systemá

                 �                                             �
                 �  Highlight your choice and press <RETURN>:  �
                 �                                             �


                             ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
                             ³  #Process a record.#   ³
                             ³                      ³
                             ³   #Use list system.#   ³
                             ³                      ³
                             ³    #Manage files.#     ³
                             ³                      ³
                             ³   #Export records.#    ³
                             ³                      ³
                             ³    #Return to DOS.#    ³
                             ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
================================================================================
:3  (* Enter *)
  Field Mark: #; replace
    (*Using the replace option for the field mark means that the screen
      compiler will replace field marks with blanks instead of deleting them.
      It sometimes helps with alignment of columns.*)
  Parent Frame: 5 (*the menu at the top of the screen*)
  Normal Next: 5
  Fields: {
    () 'name' String; required; prompt
        Enter the customer's name.  This will also be the record name.
    () 'date' String
    () 'source' String; prompt
        Where did the customer hear about PMI?
    () 'address' Editor; 3 lines
    () 'phone1' String
    () 'phone2' String
    () 'acctbal' Real.2 [-9999..9999]
    () 'products' Editor; 5 lines
    () 'prchdates' Editor; 5 lines
    () 'versions' Editor; 5 lines; prompt
        Enter JPI, Logitech, Stony Brook, FST, FTL, ITC, etc.
    () 'srccodes' Editor; 5 lines; prompt
        Enter YES if customer bought source code, NO if not.
    () 'releases' Editor; 5 lines; prompt
        Enter the release number of the product purchased.
    () 'autoupds' Editor; 5 lines; prompt
        Enter YES if customer wants automatic updates, NO if not.
    () 'miscinfo' Editor; 4 lines
    () 'transact' Editor; 4 lines; prompt
       Use this field for credit card and P.O. numbers, shipping data, etc.
  }
  Help: {
Enter the customer information and press
F10.}
  Window:{
    EntryBox: ÇĶººÈͼ
    ExitBox:  ÚÄ¿³³ÀÄÙ
    Position: (1, 3, 80, 24)
  }
--------------------------------------------------------------------------------

      Name:#                  # Date: #       # Source: #                    #
   Address:#                          #  Phone No. Day: #                    #
                                                 Night: #                    #
                                       Account Balance: #     $0.00#
       á    ÕÍÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÑÍÍÍÍÍÍÍÍÑÍÍÍ͸    á
       á    ³  Product  ³Purchase ³             ³    ³Present ³Auto³    á
       á    ³    Name   ³  Date   ³ Version(s)  ³Src?³Release ³Upd?³    á
       á    ÃÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÅÄÄÄÄÄÄÄÄÅÄÄÄÄ´    á
       á    ³#         #³#       #³#           #³#  #³#      #³#  #³    á
       á    ³           ³         ³             ³    ³        ³    ³    á
       á    ³           ³         ³             ³    ³        ³    ³    á
       á    ³           ³         ³             ³    ³        ³    ³    á
       á    ³           ³         ³             ³    ³        ³    ³    á
       á    ÀÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÁÄÄÄÄÄÄÄÄÁÄÄÄÄÙ    á
  Miscellaneous Information:          Transactions:
    #                              #  #                                  #
=================================
:4 (*Record selection*)
  Field Mark: #
    (*Return to the previous field mark for frames below.*)
  Parent Frame: 2
  Normal Next: 5
  Fields: {
    () 'name' String; prompt; required
Enter the full, exact name of the customer and press <RETURN>.
  }
  Help: {
If you can't remember or don't know the
name, return to the top-level menu and
use the Search option.}
  Window:{
    ClearAfter
    Position: (4, 6, 34, 12)
  }
---------------------------------

   áName of the customer:á

     #                   #
================================================================================
:5  (*Menu at top of form*)
  Parent Frame: 2
  Fields: {
   (E) '' Goto 3; prompt
     Moves the cursor into the form.  Esc and F10 return you to this menu.
   (P) '' Goto PrintDialog; prompt
  Takes you to a print menu.  Actually writes to a .PRN file, not the printer.
   (D) '' Goto 11; prompt
     Deletes the record after asking for confirmation.
   (S) '' Goto 15; prompt
     Press <RETURN> now to store the record exactly as you see it.
  }
  Help:{
Use the arrows to select an option from
the top line, or press Esc to get back to
the record selection form.
  }
  Colors:{
    ˆ = (11, 1) Plain
      (*This character (136) delimits Light Cyan on blue *)
  }
  Window:{
    EntryBox: ÉÍ»ººÈͼ
    ExitBox:  ÉÍ»ººÇĶ
    Position: (1, 1, 80, 3)
  }
--------------------------------------------------------------------------------

    #Edit#  #Print#  #Delete#  #Store#                                                   ˆºˆ
================================================================================
:6
(*The Create/Select new file form.*)
  Parent Frame: 9
  Normal Next: 7
  Fields:{
    () 'path' string
  }
  Help:{
This screen selects an index file to use
henceforth for this session. You may
choose an existing file or create a new
one.  Either a search string or an actual
file name may be entered.
  }
  Window:{
    Position: (1, 1, 80, 24)
  }
  Data:{
    NAME, DATE, SOURCE, ADDRESS, PHONE1, PHONE2, ACCTBAL,
    PRODUCTS, PRCHDATES, VERSIONS, SRCCODES, RELEASES, AUTOUPDS,
    MISCINFO, TRANSACT
   }
    (*These are field names for the database to be created.  We
      put them here because our M2 program can access them as
      the DataList subfield of the MainFrame record, and it's
      more convenient than hard coding them.*)
  
--------------------------------------------------------------------------------

                       áPMI File Creation/Selection Formá


    Enter a file specification for
    the file to be created or selected: #*.ndx                          #

                      Matching files will be listed below.
ˆÇÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄĶˆ
================================================================================
:7
(*A blank screen for the directory listing promised in frame 6.*)
  Parent Frame: 6
  Normal Next: 999 (*just distinguishes Normal Next from Parent Frame.*)
  Help:{
Use the arrows to select an index file to
use from now on in this session. You may
return to this screen switch to another
file as often as you wish. To avoid this
choice and continue to use the current
file, press Esc.
  }
  Window:{
    No Box
    Position:(2, 10, 79,23)
  }
--------------------------------------------------------------------------------

========================================================================
:8
  Parent Frame : 9999  (* exits the dbms routine *)
  Normal Next : 9999
  Hit Any Key
  Window:{
    Position:( 1, 1, 80, 24)
  }
------------------------------------------------------------------------







            ã Sorry.  This demonstration cannot proceed  ã
            ã any further at this time.  The file        ã
            ã PMIDBMS.NDX must be in your PATH to use    ã
            ã this portion of the demo.                  ã





            Press any key to return to the main demo menu.
================================================================================
:9 (*File Management*)
  Parent Frame: 2
  Normal Next: 2
  Help:{
You may edit any existing DOS file,
switch the NdxFile being used for this
session, or view and eliminate free space
in the current index file. }
  Fields:{
    (C) '' Goto 6
    (s) '' Goto 10
    (M) '' Goto MergeOpts
    (E) '' Goto 18
  }
  Window:{
    Position:( 1, 1, 80, 24)
  }
--------------------------------------------------------------------------------


                         áPMI Customer Information Systemá
                              áFile Management Formá



                   ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
                   ³                                         ³
                   ³       #Create or select a new file.#      ³
                   ³                                         ³
                   ³     #Manage space usage in this file.#    ³
                   ³                                         ³
                   ³     #Merge records from another file.#    ³
                   ³                                         ³
                   ³           #Edit an ASCII file.#           ³
                   ³                                         ³
                   ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ

================================================================================
:MergeOpts
  Parent Frame: 9 (*File management form*)
  Normal Next: 2
  FieldMark: #; replace
  Fields: {
    () 'fname' string; required
    () '' Group 2
    (y) 'add' choice
    (n) '' choice
    () '' Group 2
    (y) 'transf' choice
    (n) '' choice
    () '' Group 3
    (O) 'upd' choice
    (N) '' choice
    (A) '' choice
    (O) '' Goto SUBMIT
    (C) '' Goto CANCEL
  }
Colors:{
  NormalText = (Yellow, Black) plain
  Border = (Green, Black) plain
   = (Red, LightGrey) plain
   = (Yellow, LightGrey) plain
   = (LightGrey, Green) UnderScored
  }
  Window:{
    Caption: 'File Merger Options'
    Position: (5, 3, 55, 23)
  }
--------------------------------------------------------------------------------


   Name of the file to be merged:      
                                       
     #                             #   
                                       

   Add records not yet in this file?  
                                      
     #yes#  #no#                      
                                      

   Delete records from the other file 
   as they are copied?                
                                      
     #yes#  #no#                      
                                      

   When do you want to update present records?  
                                                
     #Only when more recent#  #Never#  #Always# 
                                                

             ÚÄÄÄÄÄÄ¿ ÚÄÄÄÄÄÄÄÄ¿
             ³#Okay#³ ³#Cancel#³
             ÀÄÄÄÄÄÄÙ ÀÄÄÄÄÄÄÄÄÙ

================================================================================
:10 (*Crunch form.*)
  Parent Frame: 9
  Normal Next: 9
  Fields: {
    () 'custs' Display
    () 'size' Display
    () 'pct' Display
    () 'grecs' Display
    () 'save' Display
    (y) '' GoTo 12
    (n) '' GoTo 9
  }
  Help: {
Examine the file information and select Y
to compact the file or N to leave the
file as it is for now.}
  Colors:{
    NormalText = (LightGrey, Blue) plain
    Border = (LightGrey, Blue) plain
  }
  Window:{
    Position: (1, 1, 80, 24)
  }
--------------------------------------------------------------------------------

                         áPMI Customer File Informationá



                      Number of records in file = #       #

                            Total bytes in file = #       #

                            File is  #   #% used.

                      Number of garbage records = #       #

          Bytes that would be saved by a Crunch = #       #


                 Do you want to crunch the file?  #Yes#

                                                  #No#
================================================================================
:11
  Parent Frame: 5
  Normal Next: 5
  Hit Any Key
  Help:{
You do not need to delete this record; it
is not yet stored in the file.
  }
  Colors:{
    ƒ = (15, 0) Blinking
      (*This character (131) delimits areas in which Bright White
        characters  appear on a black background.*)
    }
  Window:{
    No Box
    Overlay
    Position: (2, 2, 79, 2)
  }
--------------------------------------------------------------------------------
                               ƒ This record is not yet stored in the file. ƒ
================================================================================
:12
  Parent Frame: 2
  Normal Next: 13
  Display Only
  Window:{
    Overlay
    No Box
    Position: (2, 21, 80, 21)
  }
--------------------------------------------------------------------------------
                            ƒ File Crunch in Progress ƒ
================================================================================
:13
  Parent Frame: 2
  Normal Next: 10
  Hit Any Key
  Help:{
The empty space in the file has been
eliminated. No data has been lost.
  }
  Window:{
    Overlay
    No Box
    Position: (2, 21, 80, 21)
  }
--------------------------------------------------------------------------------
                            ƒ File Crunch is Complete ƒ
================================================================================
:14
  Parent Frame: 5
  Normal Next: 5
  Hit Any Key
  Window:{
    No Box
    Overlay
    Position: (2, 2, 79, 2)
  }
--------------------------------------------------------------------------------
                                     ƒ This Record Has been Deleted. ƒ
================================================================================
:15
  Parent Frame: 5
  Normal Next: 5
  Hit Any Key
  Window:{
    No Box
    Overlay
    Position: (2, 2, 79, 2)
  }
--------------------------------------------------------------------------------
                                ƒ This Record Has been Written To The File. ƒ
================================================================================
:16  (* Invoice Print Success Menu *)
  Parent Frame: PrintDialog
  Normal Next: PrintDialog
  Hit Any Key
  Help:{
Two copies of the invoice have been added
to file INVOICE.PRN in the default
directory.
  }
  Window:{
    Position: (5, 3, 60, 20)
  }
--------------------------------------------------------------------------------









                  ƒ Invoice Printed ƒ
================================================================================
:17
  Parent Frame: 5
  Normal Next: 5
  Hit Any Key
  Help:{
There is a problem with either this
record or the file. Probably either the
record is a duplicate, has all blanks for
the name, or there is no more room on the
disk.
  }
  Window:{
    No Box
    Overlay
    Position: (2, 2, 79, 2)
  }
--------------------------------------------------------------------------------
                               ƒ This record cannot be written to the file. ƒ
================================================================================
:18 (*File name prompt window for the editor*)
  Parent Frame: 9
  Normal Next: 999
  Help:{
You may edit any DOS file on any disk in
any directory, with the restriction that
the entire file must fit within the
memory available.
  }
  Fields:{
    () 'fname' string; required
  }
  Window:{
    Position:(1, 1, 80, 8)
  }
--------------------------------------------------------------------------------

  Enter the name of the file to
  be edited:

    #                                                       #

    Example:  c:\drafts\letter1.txt
================================================================================
:19 (*Export Form*)
  Parent Frame: 2
  Normal Next: 999
  Help:{
This screen allows you to move records to
plain ASCII files, or between Ndx files.
Fill in either the two fields for the
ASCII file, the one printer field, or the
Ndx file fields. Press F10 with the
cursor in one of the fields you filled.
  }
  Fields:{
    (l) 'explist' string
    (A) '' Goto 1000
    (f) 'expfname' string
    (P) '' Goto 1001
    (p) 'prnlist' string
    (N) '' Goto 23
    (c) 'cpylist' string
    (x) 'cpyfname' string
  }
  Window:{
    Position:(1,1, 80,24)
  }
--------------------------------------------------------------------------------


                         áPMI Customer Information Systemá
                                   áExport Formá



                                     ÚÄÄ Name of the
                                     ³   list of records: #                  #
                                     ³
   #Export records to an ASCII file.#ÄÄÁÄÄ Name of the file:#                  #

                     #Print records.#ÄÄÄÄÄ Name of the
                                         list of records: #                  #

  #Copy records to another Ndx file.#ÄÄ¿
                                     ³
                                     ÃÄÄ Name of the
                                     ³   list of records: #                  #
                                     ³
                                     ÀÄÄ Name of the file:#                  #
================================================================================
:20 (*List Storage Form*)
  Parent Frame: 21
  Normal Next: 999
  Help:{
This list of records will be stored in
the file under the name you enter. You
may examine and change the list, before
storing it by pressing F10.  If you press
Esc, the list will not be stored.
  }
  Fields:{
    () 'list' editor; 18 lines
    () 'size' display
    () 'name' string; required
  }
  Window:{
    Position: (1, 1, 80, 24)
  }
--------------------------------------------------------------------------------

                                áList Storage Formá


                                This is the list   #                        #
                                    you've built:

                             You can edit it, but
                                 don't add record
                             names unless you are
                              certain they are in
                                        the file.

                           Number of matching
                           records found: #     #

       Enter a name for this list if you
       would like to store it for later use.

          #                                 #
================================================================================
:21  (*List Building Form*)
  Parent Frame: 29
  Normal Next: 20
  Help:{
    22
  }
  Fields: {
    () 'name' String; prompt
   Enter an expression describing the records sought.  Example: 'Dan' & 'Smith'
    () 'date' String; prompt
   Remember that strings must be delimited by single or double quotes.
    () 'source' String
    () 'address' String
    () 'acctbal' String
    () 'products' String
    () 'prchdates' String
    () 'versions' String
    () 'srccodes' String
    () 'releases' String
    () 'autoupds' String
    () 'miscinfo' String
    () 'transact' String
    () 'listname' String; prompt
 Enter the name of a list created in the "Use List System."  Limits the search.
  }
  Window:{
    Position: (1, 1, 80, 24)
  }
--------------------------------------------------------------------------------

                               áList Building Formá


              Name: #                                         #
              Date: #                                         #
            Source: #                                         #
           Address: #                                         #
     Acct. Balance: #                                         #
          Products: #                                         #
      Purch. Dates: #                                         #
          Versions: #                                         #
       Source Code: #                                         #
          Releases: #                                         #
     Auto. Updates: #                                         #
        Misc. Info: #                                         #
       Trans. Info: #                                         #

          Name of limiting list: #                            #

        Records in which ‚any‚ matching field is found will be
        listed. Fields left blank will not be searched.
==========================================
:22
(*Help screen for screen 21.*)
  Parent Frame: 0
  Normal Next: 0
  Hit Any Key
  Window:{
    ClearAfter
    Position:( 35,5,77,18)
  }
-------------------------------------------

  These are the fields you can search in
  this database.  In each field that you
  care to search, enter an expression
  like this:

           'smith' | 'jones'

  This expression would cause the
  program to retrieve a list of all
  records with 'smith' or 'jones' in the
  designated field.
================================================================================
:23 (* Field Matching Form *)
  Parent Frame: 19 (*Export Form*)
  Normal Next: 999
  Field Mark: #; replace
  Help:{
    39}
  Fields:{
    () 'oldstruct' editor; 15 lines
    () 'newstruct' editor; 15 lines
    () 'matches' editor; 12 lines
  }
  Window:{
    Position: (1, 1, 80, 24)
  }
--------------------------------------------------------------------------------

                               áField Matching Formá

      These are the names                               These are the names
        of fields in the                                  of fields in the
      file presently open:                                destination file:
                             Only fields matched by
   #                   #        an '=' below will        #                   #
                                 be transferred:

                          #                            #
=================================
:24
  Parent Frame: 2
  Normal Next: 2
  Hit Any Key
  Window:{
    Single Box
    Position:( 50, 3, 79, 10)
  }
---------------------------------


       ƒ List Exported. ƒ

================================================================================
:PrintDialog
  Field Mark: #
  Parent Frame: 5 (* menu above customer data screen *)
  Normal Next: 26
  Fields: {
    () '' Group 3
    (A) 'label' choice
    (I) '' choice
    (T) '' choice
    () '' Group 2
    (f) 'file' choice
    (p) '' choice
    () '' Group 2
    (Y) 'ff' choice
    (N) '' choice
    () 'margin' integer [0..79]
    (O) '' Goto 28
    (C) '' Goto 5
  }
Colors:{
  NormalText = (Yellow, Black) plain
  Border = (Green, Black) plain
   = (Red, LightGrey) plain
   = (Yellow, LightGrey) plain
   = (Green, LightGrey) plain
  }
  Window:{
    Caption: 'Printer Options'
    Position: (5, 4, 65, 23)
  }
--------------------------------------------------------------------------------

   What do you want to print?                     
                                                  
    #Address label.#   #Invoice.#   #Transaction data.# 
                                                  

    Where do you want to print it?                 
                                                   
    #To PRINTER.TXT file.#  #Straight to the printer.# 
                                                   

    Do you want a FormFeed after it?       Left margin:  
                                                         
      #Yes#  #No#                                #  0#         
                                                         

             ÚÄÄÄÄ¿ ÚÄÄÄÄÄÄ¿
             ³#Okay#³ ³#Cancel#³
             ÀÄÄÄÄÙ ÀÄÄÄÄÄÄÙ

=========================================
:26  (* Address Print Success Menu *)
  Parent Frame: PrintDialog
  Normal Next: PrintDialog
  Hit Any Key
  Help:{
This customer's name and address have
been added in ASCII text to to file
ADDR.PRN in the default directory.
  }
  Colors:{
    NormalText = (LightGrey, Blue) plain
    Border = (LightGrey, Blue) plain
  }
  Window:{
    NoBox
    Overlay
    Position: (6, 17, 59, 17)
  }
-----------------------------------------
                   Address Printed
=================================
:27
  Normal Next: 21
  Parent Frame: 21
  Hit Any Key
  Help:{
This list is now stored by name in the
file.  You may examine or export its
records, or use it to create other lists.
  }
  Window:{
    Single Box
    Position:( 50, 3, 79, 10)
  }
---------------------------------


        ƒ List Stored. ƒ
================================================================================
:28
  Field Mark: #; replace
  Normal Next: 16
  Parent Frame: PrintDialog
  Fields:{
    () 'title' string
    () 'ournum' string
    () 'date' string
    () 'ponum' string
    () 'shipto' editor; 6 lines
    () 'soldto' editor; 6 lines
    () 'terms' string
    () 'shipdate' string
    () 'via' string
    () 'ordnum' integer [0..99]
    () 'shipnum' integer [0..99]
    () 'desc' string
    () 'unitp' real [0..999]
    () 'amount' real [0..99999]
    () 'orded' editor; 10 lines
    () 'shped' editor; 10 lines
    () 'dsced' editor; 10 lines
    () 'unted' editor; 10 lines
    () 'amted' editor; 10 lines
    () 'amtpaid' real [0..99999]
    () 'amtdue' real [0..99999]
  }
  Help:{
You may edit these fields if you wish.
When you press F10, two copies of this
invoice (one titled as shown, the other
titled 'For Your Records') will be sent
to the ASCII file INVOICE.TXT for later
printing.
  }
  Window:{
    NoBox
  }
--------------------------------------------------------------------------------


                                áINVOICEá


               #Please return this copy with your payment.#

                                          ______________________________
      From: PMI                          |       No.:  #       #        |
            PO Box 8402                  |                              |
            Green Bay, WI 54308          |      Date:  #       #        |
            USA                          |                              |
                                         | Your                         |
       Tel: 414-468-6040                 | Order No.:  #               #|
       Fax: 414-465-0464                 |______________________________|
    
     _____________________________        ______________________________
    | Ship To:                    |      | Sold To:                     |
    | #                          #|      | #                          # |
    |                             |      |                              |
    |                             |      |                              |
    |                             |      |                              |
    |                             |      |                              |
    |                             |      |                              |
    |_____________________________|      |______________________________|

 _____________________________________________________________________________
| Terms: #2%/10--net/30 # |  Date Shipped:#       # |  Shipped Via:#UPS     # |
|_________________________|_________________________|_________________________|

 _____________________________________________________________________________
|        |         |                                       |  Unit  |         |
|Ordered | Shipped |           Description                 | Price  | Amount  |
|________|_________|_______________________________________|________|_________|
|  #1#   |   #1#   | #                                   # |#149.00#|# 149.00#|
|  # #   |   # #   | #                                   # |#      #|#       #|
|        |         |                                       |        |         |
|        |         |                                       |        |         |
|        |         |                                       |        |         |
|        |         |                                       |        |         |
|        |         |                                       |        |         |
|        |         |                                       |        |         |
|        |         |                                       |        |         |
|        |         |                                       |        |         |
|        |         |                                       |        |         |
|________|_________|_______________________________________|________|_________|
|        |         |                          Amount Paid  |        |#$149.00#|
|        |         |                           Amount Due  |        |#  $0.00#|
|________|_________|_______________________________________|________|_________|
================================================================================
:29  (*List Management Form*)
  Field Mark: #
  Parent Frame: 2
  Normal Next: 999
    (*It shouldn't be possible to get this value back because all
      the fields on this screen are goto fields.*)
  Fields: {
    (M) '' Goto 21
    (D) '' Goto 30
    (S) '' Goto 31
    (E) '' Goto 32
    (A) '' Goto RecList
    (R) '' Goto 33
  }
  Help:{
    40
  }
  Window:{
    Position: (1, 1, 80, 24)
  }
--------------------------------------------------------------------------------


                              áList Management Formá


                   ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
                   ³                                       ³
                   ³           #Make a new list.#            ³
                   ³                                       ³
                   ³            #Delete a list.#             ³
                   ³                                       ³
                   ³     #Show lists presently stored.#      ³
                   ³                                       ³
                   ³         #Edit or copy a list.#          ³
                   ³                                       ³
                   ³    #Examine a list of All records.#     ³
                   ³                                       ³
                   ³       #Retrieve listed records.#        ³
                   ³                                       ³
                   ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
===================================
:30 (*Delete a list.*)
  Parent Frame: 29
  Normal Next: 30
  Fields:{
    () '' string
  }
  Help:{
Only the list itself, not the records in
the list, will be deleted.
  }
  Window:{
    Single Box
    Position:( 50, 3, 79, 10)
  }
---------------------------------

  Enter the name of the list
  to be deleted:

    #                      #
=================================
:31 (*Show lists.*)
  ParentFrame: 29
  NormalNext: 29
  Help:{
This screen is for information only.  You
can move the pointer bar between the
lists, but you are not selecting them for
further processing.  You will be returned
to the prior screen for other list
processing.
  }
  Window:{
    Single Box
    Heading Line: 6
    Position:( 3, 3, 33, 20)
  }
---------------------------------

 The lists presently stored in
 this file are shown below.
 When you are finished examining
 this screen, press Esc or F10.
 - - - - - - - - - - - - - - -
(*A window with only a heading,
  used to hold a list of names
  that we will create as the
  program executes.*)

=================================
:RecList
  ParentFrame: 29
  NormalNext: 29
  Window:{
    Heading Line: 6
    Position:( 3, 3, 35, 20)
  }
---------------------------------

 ãThese are the records presentlyã
 ãstored in this file:           ã
 - - - - - - - - - - - - - - - -

=================================
:32 (*Edit a list.*)
  Parent Frame: 29
  Normal Next: 32
  Fields:{
    () '' string
  }
  Help:{
This edit is to manually add or remove
records from a list.
  }
  Window:{
    Single Box
    Position:( 50, 3, 79, 10)
  }
---------------------------------

  Enter the name of the list
  to be edited:

    #                      #
=================================
:33 (*Retrieve listed records.*)
  Parent Frame: 29
  Normal Next: 33
  Fields:{
    () '' string
  }
  Help:{
   41
  }
  Window:{
    Single Box
    Position:( 50, 3, 79, 10)
  }
---------------------------------

  Enter the name of the list
  of records to be retrieved:

    #                      #
=================================
:34
  Parent Frame: 29
  Normal Next: 29
  Hit Any Key
  Help:{
The list itself has been deleted, not the
records in the list. You may re-create
the list with the 'Make List' screen.
  }
  Window:{
    Single Box
    Position:( 50, 3, 79, 10)
  }
---------------------------------


 ƒ List successfully deleted.ƒ
=================================
:35
  Parent Frame: 29
  Normal Next: 29
  Hit Any Key
  Help:{
The list you entered does not exist (or
possibly no lists at all exist).
  }
  Window:{
    Single Box
    Position:( 50, 3, 79, 10)
  }
---------------------------------


       ƒ List not found.ƒ
========================================================================
:36
  Display Only
  Window:{
    Position:(1, 1, 80, 5)
  }
------------------------------------------------------------------------

    This is the invoice that will be printed (sent to a .PRN file) for this
    customer when you press F10.  Move through the text to make any changes
    that you desire.  If you choose not to print the invoice, press Esc.
=================================
:37
  Parent Frame: 2
  Normal Next: 2
  Hit Any Key
  Help:{
The list has been sent to the printer as
requested.
  }
  Window:{
    Single Box
    Position:( 50, 3, 79, 10)
  }
---------------------------------


       ƒ List Printed. ƒ
=================================
:38
  Window:{
    Single Box
    Position:( 50, 4, 68, 10)
  }
---------------------------------


    ƒ  Export  ƒ
    ƒ    In    ƒ
    ƒ Progress ƒ
==========================================
:39
(*Help screen for screen 23.*)
  Parent Frame: 0
  Normal Next: 0
  Hit Any Key
  Window:{
    ClearAfter
    Position:( 4, 5, 50, 20)
  }
-------------------------------------------

  The records in the list you chose on
  the last screen will be copied into
  the destination file.  This screen
  lets you specify how the fields from
  the current file will correspond to
  the fields in the destination file.
  Data in the the fields from the
  current file will be copied to the
  fields in the destination file that
  they are equated with in the middle
  window on this screen. You may change
  these relationships, but do not use
  field names that do not exist in
  their respective files.
==========================================
:40
(*Help screen for screen 29.*)
  Parent Frame: 0
  Normal Next: 0
  Hit Any Key
  Window:{
    ClearAfter
    Position:( 5, 5, 50, 20)
  }
-------------------------------------------

  These list management tools let you
  create lists of records by selectively
  sorting through the file according to
  criteria you specify.  You can display
  the resulting lists, edit them, use
  them to create other lists, and
  retrieve and manipulate the records in
  a list one by one.  Lists that you
  name will be saved in the file so you
  can use them later.  The 'Export'
  facility in the Main Menu allows you
  to export lists of records to other
  Ndx or ASCII files.
==========================================
:41
(*Help screen for screen 33.*)
  Parent Frame: 0
  Normal Next: 0
  Hit Any Key
  Window:{
    ClearAfter
    Position:( 5, 5, 49, 17)
  }
-------------------------------------------

  After you select a list, each record
  in that list will be successively
  passed to the the normal record
  manipulation screens.  You may
  examine, change, store, delete, or
  print each record as you wish.  You
  move to the next record in the list by
  leaving the record manipulation screen
  with Esc.  The next record in the list
  is automatically shown, etc, until the
  end of the list is reached.
====================================
:42
  NormalNext: 5
  Display Only
  Window:{
    No Box
    Position: (1, 25, 80, 25)
  }
-----------------------------------
ã  âF1:â HELP   âF2:â EXIT LIST    âF3:â TIME    âEsc:â NEXT RECORD    âF10:â NEXT ACTION  ã
=================================
:43
  Window:{
    Single Box
    Position:( 50, 3, 68, 10)
  }
---------------------------------


    ƒ   List   ƒ
    ƒ   Being  ƒ
    ƒ  Created ƒ