Message-ID:: <1955@seismo.UUCP>
Date: Thu, 12-Jul-84 12:58:35 EDT
Article-I.D.: seismo.1955
Posted: Thu Jul 12 12:58:35 1984
Date-Received: Sat, 14-Jul-84 00:59:39 EDT
Organization: Center for Seismic Studies, Arlington, VA
Lines: 46
I've got a dBase II program that's giving a bit of trouble. Here's
a portion of it. It's supposed to be a menu that reads an option entered
by the user. As long as a valid option is entered, the program functions
correctly. When an invalid option is entered, the program abends and
returns the user to the dBase II prompt.
=========================================================================
SET ECHO OFF
SET EXACT ON
SET TALK OFF
SET BELL OFF
SET CONFIRM OFF
SET INTENSITY OFF
STORE ' ' TO OPTION
STORE ' ' TO EXIT
ERASE
DO WHILE EXIT = 'F'
@ 1,35 SAY 'CLASS ABCD'
@ 3,10 SAY 'LOGIN CODE'
. Format the rest of the screen.
.
.
READ
DO CASE
CASE OPTION = 'K'
DO NUCH
CASE OPTION = 'N'
DO COMD
. Based on user entry DO some specified routine.
. Now, here's where we're having problems.
. It's with the OTHERWISE command:
OTHERWISE
? CHR(7)
@ 24,3 SAY '*** INVALID OPTION ***'
ENDCASE
STORE ' ' TO OPTION
STORE 'F' TO EXIT
ENDDO
=========================================================================
I'd appreciate any help anyone can offer. Thanks a lot. Also, we've tried
to find some documentation to answer the problem -- and were unsuccessful.
If you have some, could you reference it? Again, thanks.
Keith
ARPA: keith@seismo
UUCP: seismo!keith