Using @menu Problem

Harold haroldef at sbcglobal.net
Mon Aug 31 05:29:08 PDT 2009


Hi Nancy and Ken,

Still got a problem with the program.  Nancy, I have also used pushkey
"4A"{custname{"[ENTR]U," with the same results.  When the program hits line
200, screen 1,20, the cursor goes to the bottom center of the screen.  Ken,
I am still in @menu.  In thirty years of using Filepro I have never had 
this much trouble.

Harold

   1  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
@MENU  ◄ If: WT="WR"
        Then: EXIT
   2  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
        ◄ If: FL="1"
        Then: EXIT
   3  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
        ◄ If:
        Then: FL="1"


12  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
GMA    ◄ If:
        Then: INPUT POPUP ("6","10") NA "Enter The First 3 Or 4 Letters Of
The Last Name OR Press 'X' To Exit"
  13  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -  -
        ◄ If: NA="X"
        Then: EXIT
  14  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -  -
        ◄ If: NA=""
        Then: GOTO GMA
  15  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -  -
        ◄ If:
        Then: pushkey "U"
16  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
       ◄ If:
       Then: lookup - K=NA i=A -NX
17  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
       ◄ If: NOT -
       Then: show popup ("10","1") "Not Found---Try Again ";goto gma
18  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
       ◄ If:
       Then: GOTO ATT


145  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -  -
ATT    ◄ If:
        Then: SHOW POPUP ("5","10") "Number Scheduled To Attend Reunion "<79
146  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -  -
ERR    ◄ If:
        Then: PQ="";INPUT POPUP ("10","12") PQ "Correct Number Attending
Reunion"
147  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -  -
        ◄ If: PQ=""
        Then: GOTO ERR
148  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -  -
SC20   ◄ If:
        Then: CLEARS;GOTO TOP


199  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -  -
TOP    ◄ If:
        Then: SHOW Popup ("7","35") "Enter Number of Persons Attending This
Event”
200  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -  -
        ◄ If:
        Then: SCREEN 1,20



More information about the Filepro-list mailing list