Megalextoria
Retro computing and gaming, sci-fi books, tv and movies and other geeky stuff.

Home » Archive » net.micro » dbase II problem
Show: Today's Messages :: Show Polls :: Message Navigator
E-mail to friend 
Return to the default flat view Create a new topic Submit Reply
dbase II problem [message #72240] Sat, 25 May 2013 10:23 Go to previous message
keith is currently offline  keith
Messages: 27
Registered: May 2013
Karma:
Junior Member
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
[Message index]
 
Read Message
Read Message
Previous Topic: Re: this should inflame the unix philes - (nf)
Next Topic: Vector Graphics 4/30 for sale - (nf)
Goto Forum:
  

-=] Back to Top [=-
[ Syndicate this forum (XML) ] [ RSS ] [ PDF ]

Current Time: Sat Apr 20 02:12:15 EDT 2024

Total time taken to generate the page: 0.03660 seconds