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