Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Posting-Version: version B 2.10.2 7/1/84; site seismo.UUCP
Path: utzoo!watmath!clyde!burl!ulysses!mhuxl!houxm!houxz!vax135!cornell!uw-beaver!tektronix!hplabs!hao!seismo!keith
From: keith@seismo.UUCP (Keith Bostic)
Newsgroups: net.micro
Subject: dbase II problem
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