home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
xbase
/
library
/
dbase
/
mysoft
/
mysoft.prg
< prev
next >
Wrap
Text File
|
1985-12-25
|
4KB
|
123 lines
SET ECHO OFF
SET STEP OFF
** MAIN MENU MODULE FOR "MYSOFT", A DBASE III SOFTWARE LIST
** MAINTENANCE PROGRAM; 12/25/85, MERRY XMAS
** SEND $5 CONTRIBUTIONS TO:
** LES PENNER
** 25 SHADOW LANE
** GREAT NECK, NY 11021
******************************************************************
USE MYSOFT INDEX MYSOFT
RESTORE FROM MYSOFT
SET TALK OFF
SET SAFETY OFF
SET BELL OFF
SET CONFIRM ON
SET FUNCTION 2 TO 'MODI COMM '
SET FUNCTION 3 TO 'MYSOFT'
********* DISPLAY MAIN MENU
DO WHILE .T.
SET COLOR TO ®ULAR
CLEAR
? TIME()+ SPACE(55)
?? DATE()
SET COLOR TO &TITLES
? ' ********** M Y S O F T ********** '
SET COLOR TO ®ULAR
?
? ' VERSION 2'
? ' SOFTWARE LIST MAINTENANCE'
? ' IN dBASE III'
? ' by Les Penner '
?
? ' ======= MAIN MENU ======='
?
@ ROW()+1,20 SAY ' A --- ADD A NEW ENTRY'
@ ROW()+1,20 SAY ' D --- DISPLAY/PRINT ENTRIES'
@ ROW()+1,20 SAY ' M --- MODIFY ENTRIES'
@ ROW()+1,20 SAY ' E --- ERASE AN ENTRY'
@ ROW()+1,20 SAY ' C --- COUNT OF ENTRIES'
@ ROW()+1,20 SAY ' T --- TEXT FILE CREATION'
@ ROW()+1,20 SAY ' R --- RECONFIGURE THIS PROGRAM'
@ ROW()+1,20 SAY ' 3 --- EXIT TO DBASE III'
@ ROW()+1,20 SAY ' DOS - EXIT TO DOS'
@ ROW()+1,20 SAY ' ZAP - ERASE ALL DATA (BE CAREFUL!!)'
SET COLOR TO &WARNING
@ ROW()+2,15 SAY 'ALWAYS EXIT PROGRAM THROUGH "3" OR "DOS"'
?
SET COLOR TO ®ULAR
ACCEPT ' ENTER YOUR SELECTION: ' TO SELECTION
SET EXACT ON
DO CASE
CASE UPPER(SELECTION)='A'
DO SOFTADD
CASE UPPER(SELECTION)='D'
DO SOFTDISP
CASE UPPER(SELECTION)='M'
DO SOFTMOD
CASE UPPER(SELECTION)='E'
DO SOFTERAS
CASE UPPER(SELECTION)='C'
DO SOFTCNT
CASE UPPER(SELECTION)='T'
SET ALTERNATE TO &PATH
SET ALTERNATE ON
? ' **** SOFTWARE LIST **** '
?? DATE()
?
LIST OFF ALL PROGRAM, VERS, CATEGORY, DISKS, GRAPHICS, ì
DEVICE, DESCR
SET ALTERNATE OFF
CASE UPPER(SELECTION)='R'
ANSWER='N'
DO WHILE UPPER(ANSWER)='N'
CLEAR
SET COLOR TO &TITLES
@ 2,10 SAY ' ********** RECONFIGURATION MENU ì
**********'
SET COLOR TO ®ULAR
@ 5,10 SAY 'DO YOU HAVE COLOR OR MONOCHROME ? (C/M)'+'..'GET MONITOR
@ 6,10 SAY 'CODE FOR COMPRESSED PRINT' +'................'GET COMPRESSED
@ 7,10 SAY 'CODE FOR PICA PRINT'+'......................'GET PICA
@ 8,10 SAY 'PATH\FILENAME FOR SAVING TEXT FILE' +'.......'GET PATH
READ
@ 20,10 SAY ''
ACCEPT ' IS THIS CORRECT ? (Y/N/Q) ' TO ANSWER
IF UPPER(ANSWER)='Y'
IF UPPER(MONITOR)='C'
TITLES='+G/B'
REGULAR='W/B,+G/BR,B'
WARNING='+R/B'
ELSE
TITLES='+W/ ,, '
REGULAR='W/ , /W , '
WARNING='*W/ '
ENDIF COLOR
SAVE TO MYSOFT
RESTORE FROM MYSOFT
ENDIF
IF UPPER(ANSWER)='N'
LOOP
ENDIF
ENDDO
CASE SELECTION='3'
EXIT
CASE UPPER(SELECTION)='DOS'
QUIT
CASE UPPER(SELECTION)='ZAP'
CLEAR
SET COLOR TO &WARNING
@ 10,10 SAY 'THIS OPERATION WILL ERASE ALL THE DATA ì
!'
@ 11,10 SAY ''
ACCEPT ' DO YOU WANT TO PROCEED (Y/N) ? ' TO ì
ZAPANSWER
SET COLOR TO ®ULAR
IF UPPER(ZAPANSWER) ='Y'
ZAP
ENDIF
OTHERWISE
LOOP
ENDCASE
ENDDO