home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
dbdict.zip
/
DICT.EDT
< prev
next >
Wrap
Text File
|
1986-02-17
|
4KB
|
139 lines
* DICT.EDT
* Paul Ferrara [70075,252]
* Bill Lonborg [70045,1237]
* Last Change: 02-17-86 00:05
*
SET COLOR TO &mtitl./&mnorb.,&menhf./&menhb.,&mbord
CLEAR
@ 1, 0 SAY "EDIT THE DICTIONARY"
@ 1,72 SAY date()
@ 2, 0 SAY "═══════════════════════════════════════════════════════"
@ 2,55 SAY "═════════════════════════"
@ 22, 0 SAY "═══════════════════════════════════════════════════════"
@ 22,55 SAY "═════════════════════════"
@ 23,14 SAY "1=next file 2=forwards 3=backwards 4=insert"
@ 24,14 SAY "5=delete 6=delete file 0=exit to menu"
SET COLOR TO &mnorf./&mnorb.,&menhf./&menhb.,&mbord
@ 4, 4 SAY "Enter filename"
@ 5, 4 SAY "File Description"
@ 7, 4 SAY "Field #"
@ 8, 4 SAY "Field name"
@ 9, 4 SAY "Field type"
@ 10, 4 SAY "Field length"
@ 11, 4 SAY "Decimals places"
@ 12, 4 SAY "Field description"
@ 14,31 SAY "Select option"
IF .NOT. FILE("DICTNARY.DBF")
SET COLOR TO &mblnk.*/&mnorb.,&menhf./&menhb.,&mbord
@ 20,30 SAY "No dictionary file."
SET COLOR TO &mmess./&mnorb.,&menhf./&menhb.,&mbord
@ 21,29 SAY "Press any key to quit."
SET COLOR TO &mnorf./&mnorb.,&menhf./&menhb.,&mbord
SET CONSOLE OFF
WAIT
SET CONSOLE ON
CLOSE DATABASES
CLEAR
RETURN
ENDIF
SELECT 1
USE dictnary
STORE 2 TO choice
DO WHILE .NOT. choice=0
STORE SPACE(8) TO mfileinput
@ 4,22 GET mfileinput PICTURE "!!!!!!!!"
READ
LOCATE FOR file_name="&mfileinput"
IF EOF()
* say file not found
SET COLOR TO &mblnk.*/&mnorb.,&menhf./&menhb.,&mbord
@ 20,31 SAY "Invalid filename."
SET COLOR TO &mmess./&mnorb.,&menhf./&menhb.,&mbord
@ 21,19 SAY "Press 'Q' to quit, or any key to continue."
SET COLOR TO &mnorf./&mnorb.,&menhf./&menhb.,&mbord
SET CONSOLE OFF
WAIT TO option
SET CONSOLE ON
IF UPPER(option)="Q"
CLOSE DATABASES
CLEAR
RETURN
ELSE
@ 20, 0
@ 21, 0
LOOP
ENDIF
ELSE
@ 5,22 GET field_desc
READ
SKIP
ENDIF
* found 1st field in database
STORE "CLEAR GETS" TO macro
STORE 1 TO mcounter
STORE 2 TO choice
DO WHILE choice<>0 .AND. choice<>1
SET COLOR TO &mtitl./&mnorb.,&menhf./&menhb.,&mbord
@ 7,23 SAY mcounter PICTURE "999"
SET COLOR TO &mnorf./&mnorb.,&menhf./&menhb.,&mbord
@ 8,22 GET field_name PICTURE "!!!!!!!!!!"
@ 9,22 GET field_type PICTURE "@! A"
@ 10,22 GET field_len
@ 11,22 GET field_dec
@ 12,22 GET field_desc
¯o
@ 14,45 GET choice PICTURE "9" RANGE 0,6
READ
* "1=next file 2=forwards 3=backwards 4=insert"
* "5=delete 6=delete file 0=exit to menu"
DO CASE
CASE choice=2
IF .NOT. EOF()
SKIP
STORE mcounter+1 TO mcounter
IF file_name<>"&mfileinput" .OR. EOF()
SKIP -1
STORE mcounter-1 TO mcounter
ENDIF
STORE "CLEAR GETS" TO macro
CASE choice=3
IF .NOT. BOF()
SKIP-1
STORE mcounter-1 TO mcounter
IF file_name<>"&mfileinput" .OR. field_type="X" .OR. BOF()
SKIP
STORE mcounter+1 TO mcounter
ENDIF
STORE "CLEAR GETS" TO macro
CASE choice=4
INSERT BEFORE BLANK
REPLACE file_name WITH "&mfileinput"
STORE "READ" TO macro
CASE choice=5
DELETE
SET COLOR TO &mblnk.*/&mnorb.,&menhf./&menhb.,&mbord
@ 20,33 SAY "Field omitted."
SET COLOR TO &mnorf./&mnorb.,&menhf./&menhb.,&mbord
@ 14,45 GET choice PICTURE "9" RANGE 0,6
READ
STORE "CLEAR GETS" TO macro
SKIP
@ 20, 0
CASE choice=6
SET COLOR TO &mblnk.*/&mnorb.,&menhf./&menhb.,&mbord
@ 20,33 SAY "File omitted."
SET COLOR TO &mnorf./&mnorb.,&menhf./&menhb.,&mbord
GO TOP
LOCATE FOR file_name="&mfileinput"
DELETE WHILE file_name="&mfileinput"
@ 14,45 GET choice PICTURE "9" RANGE 0,1
READ
STORE "CLEAR GETS" TO macro
@ 20, 0
ENDCASE
ENDDO
ENDDO
CLEAR
CLOSE DATABASES
RETURN