Hello ALL,
    
I want to displpay the main menu and it does just fine.
However when I try to VIEW or EDIT the tables F2 or F8 does not work!
If you press Esc it takes you completely out of the script!!???
What is wrong with this????
;===========
; Main Menu
;============
 PROC DisplayMainMenu()
 CLEARALL
 SHOWPULLDOWN ENDMENU
  
     SHOWPULLDOWN
        "ð" : "Program Information." : "AltSpace"
           SUBMENU
              "Utilities" : "System Utilities" : "Utilities"
                 SUBMENU
                    "Time" : "Time of Day" : "Time"
                 ENDSUBMENU,
              SEPARATOR,
              "About" : "About this Application." : "AltSpace/About"
           ENDSUBMENU,       
        "Table" : "View or Edit a table"  : "TableNode"
            SUBMENU
                "View"  : "View the Lading Table" : "ViewTable",
                SEPARATOR,
                "Edit"  : "Edit a Lading"   : "EditTable",
                "New"   : "Create a Lading" : "NewTable"
            ENDSUBMENU,
            
        "Reports"   : "Print reports"   : "ReportNode"
            SUBMENU
                "Customer"   : "Customer listing"    : "Rpt_Cust",
                "Orders"     : "Order listing"       : "Rpt_Ord",
                SEPARATOR,
                "Ladeing"    : "Bill of Ladeing"     : "Rpt_Bol"
            ENDSUBMENU,
            
        "Exit"  : "Exit this application."  : "Exit"
            SUBMENU
                "No"    : "Do not exit application."    : "Exit/No",
                "Yes"   : "Exit this application."      : "Exit/Yes"
            ENDSUBMENU
            
 ENDMENU UNTIL 17        ; Ctrl-Q to quit                        
 
 
 WHILE True
    GETMENUSELECTION KEYTO KeyVar TO MenuItemSelected
    IF Retval
        THEN QUITLOOP
    ENDIF
    IF KeyVar = 17
        THEN QUITLOOP
    ENDIF
 ENDWHILE
 
 ; Evaluate MenuItemSelected and execute procedure
 SWITCH
    CASE (MenuItemSelected = "AltSpace/About") :    ; Show Splash
       DisplayAboutBox()
       DisplayMainMenu()  
    CASE (MenuItemSelected = "ViewTable") :     ; View a table
       See_Tables() 
    CASE (MenuItemSelected = "EditTable") :     ; Edit a table
       EDIT_TABLES()
    CASE (MenuItemSelected = "NewTable")  :     ; Create new table
       NewTableProc()
    CASE (MenuItemSelected = "Time")      :     ; Show time
       TimeProc()
    CASE (MenuItemSelected = "Exit/No")   :     ; No exit
       DisplyMainMenu()
    CASE (MenuItemSelected = "Exit/Yes")  :     ; User want to exit
        BEEP BEEP BEEP
        MESSAGE "Leaving application...."
        SLEEP 3000
        BEEP BEEP
        CLEARPULLDOWN
 ENDSWITCH
 
 ENDPROC
;=========================================
; SEE_TABLES()
;=========================================
 PROC SEE_TABLES()
     VIEW "Lading"
          PICKFORM "1"
          WINMAX
          WHILE(True)
             WAIT TABLE
               PROMPT "Press F8 when done Viewing the table. Esc to quit."
             UNTIL "F8", "Esc"
             IF Retval = "Esc"
               THEN QUITLOOP
             ENDIF
           ENDWHILE
         
         CLEARIMAGE
            
 ENDPROC
;=========================================
; Proc Name: EDIT_TABLES()
;=========================================
 
 PROC EDIT_TABLES()
    X_Path = DIRECTORY()
    DosPath = X_Path
        MESSAGE  "Your current directory is: " + DosPath
    SHOWTABLES DosPath
        "Select a table to view"
    TO TableVar
    IF TableVar  "Esc"
        THEN 
            COEDIT DosPath + TableVar
            
            PICKFORM 2
            WHILE(True)
               WAIT TABLE
                 PROMPT "Press F2 when down editing the table. Esc to quit."
               UNTIL "F2", "Esc"
              IF Retval = "Esc"
                THEN QUITLOOP
              ENDIF
            ENDWHILE
            CLEARALL
            DO_IT!         
            DisplayMainMenu()
            
    ENDIF
    DisplayMainMenu()        
 ENDPROC
;=====================
; This below Works!!!
; Why not the above?
;=====================
            
;            PICKFORM "2"
;            WINMAX
;        ELSE
;            DisplayMainMenu() 
;    ENDIF
;
; ENDPROC
DisplayMainMenu()
                              Bret
--- Msgedsq 2.2e
---------------