home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
prg_hlp.zip
/
INACTIVE.PRG
< prev
next >
Wrap
Text File
|
1987-04-07
|
831b
|
38 lines
**********************************************************************
* *
* S. Robert Davidoff *
* inactive.prg *
* *
**********************************************************************
DO WHILE .T.
A = "INACTIVE"
MSG1 = "1. QUIT"
MSG2 = "0. MENU"
MSG3 = "XXXX"
MSG4 = "XXXX"
MSG5 = "XXXX"
MSG6 = "XXXX"
MSG7 = "XXXX"
MSG8 = "XXXX"
MSG9 = "XXXX"
MSG0 = "XXXX"
NUM_ITEMS = 2
X = 23
Y = 20
W = LEN(MSG1)
MSTRING = "QM"
DO CLEARIT WITH X-1,1,X,78
@ X-1,1 SAY BAR
@ X,1 SAY "NO MENU AT THIS TIME"
DO H_LIGHT WITH NUM_ITEMS,X,Y,W,MSG1,MSG2,MSG3,MSG4,MSG5,MSG6,MSG7,MSG8,MSG9,MSG0,MSTRING
CHOICE = STR(SELECTION,1)
DO CASE
CASE CHOICE = "1"
CLOSE DATABASES
CLEAR ALL
CANC
CASE CHOICE = "0"
RETURN
ENDCASE
ENDDO