home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / xbase / library / dbase / mysoft / mysoft.prg < prev    next >
Encoding:
Text File  |  1985-12-25  |  4.1 KB  |  123 lines
  1. SET ECHO OFF
  2. SET STEP OFF
  3. ** MAIN MENU MODULE FOR "MYSOFT", A DBASE III SOFTWARE LIST
  4. ** MAINTENANCE PROGRAM; 12/25/85, MERRY XMAS
  5. ** SEND  $5 CONTRIBUTIONS TO:
  6. ** LES PENNER
  7. ** 25 SHADOW LANE
  8. ** GREAT NECK, NY 11021
  9. ******************************************************************
  10. USE MYSOFT INDEX MYSOFT
  11. RESTORE FROM MYSOFT
  12. SET TALK OFF
  13. SET SAFETY OFF
  14. SET BELL OFF
  15. SET CONFIRM ON
  16. SET FUNCTION 2 TO 'MODI COMM '
  17. SET FUNCTION 3 TO 'MYSOFT'
  18. ********* DISPLAY MAIN MENU
  19. DO WHILE .T.
  20.     SET COLOR TO ®ULAR
  21.     CLEAR
  22.     ?  TIME()+ SPACE(55)
  23.     ??  DATE()
  24.     SET COLOR TO &TITLES
  25.     ? '                  ********** M Y S O F T ********** '
  26.     SET COLOR TO ®ULAR
  27.     ?
  28.     ? '                             VERSION 2'
  29.     ? '                      SOFTWARE LIST MAINTENANCE'
  30.     ? '                            IN dBASE III'
  31.     ? '                           by Les Penner  '
  32.     ?
  33.     ? '                     ======= MAIN MENU ======='
  34.     ?
  35.     @ ROW()+1,20 SAY  ' A --- ADD A NEW ENTRY'
  36.     @ ROW()+1,20 SAY  ' D --- DISPLAY/PRINT ENTRIES'
  37.     @ ROW()+1,20 SAY  ' M --- MODIFY ENTRIES'
  38.     @ ROW()+1,20 SAY  ' E --- ERASE AN ENTRY'
  39.     @ ROW()+1,20 SAY  ' C --- COUNT OF ENTRIES'
  40.     @ ROW()+1,20 SAY  ' T --- TEXT FILE CREATION'
  41.     @ ROW()+1,20 SAY  ' R --- RECONFIGURE THIS PROGRAM'
  42.     @ ROW()+1,20 SAY  ' 3 --- EXIT TO DBASE III'
  43.     @ ROW()+1,20 SAY  ' DOS - EXIT TO DOS'
  44.     @ ROW()+1,20 SAY  ' ZAP - ERASE ALL DATA (BE CAREFUL!!)'
  45.     SET COLOR TO &WARNING
  46.     @ ROW()+2,15 SAY 'ALWAYS EXIT PROGRAM THROUGH "3" OR "DOS"'
  47.     ?
  48.     SET COLOR TO ®ULAR
  49.     ACCEPT '        ENTER YOUR SELECTION: ' TO SELECTION
  50.     SET EXACT ON
  51.     DO CASE
  52.         CASE UPPER(SELECTION)='A'
  53.             DO SOFTADD
  54.         CASE UPPER(SELECTION)='D'
  55.             DO SOFTDISP
  56.         CASE UPPER(SELECTION)='M'
  57.             DO SOFTMOD
  58.         CASE UPPER(SELECTION)='E'
  59.             DO SOFTERAS
  60.         CASE UPPER(SELECTION)='C'
  61.             DO SOFTCNT
  62.         CASE UPPER(SELECTION)='T'
  63.             SET ALTERNATE TO &PATH
  64.             SET ALTERNATE ON
  65.             ? '            **** SOFTWARE LIST ****  '
  66.             ?? DATE()
  67.             ?
  68.             LIST OFF ALL PROGRAM, VERS, CATEGORY, DISKS, GRAPHICS, ì
  69.  DEVICE, DESCR 
  70.             SET ALTERNATE OFF
  71.         CASE UPPER(SELECTION)='R'
  72.             ANSWER='N'
  73.             DO WHILE UPPER(ANSWER)='N'
  74.             CLEAR
  75.             SET COLOR TO &TITLES
  76.             @ 2,10  SAY ' ********** RECONFIGURATION MENU  ì
  77. **********'
  78.             SET COLOR TO ®ULAR
  79.       @ 5,10  SAY 'DO YOU HAVE COLOR OR MONOCHROME ? (C/M)'+'..'GET MONITOR
  80.       @ 6,10  SAY 'CODE FOR COMPRESSED PRINT' +'................'GET COMPRESSED
  81.       @ 7,10  SAY 'CODE FOR PICA PRINT'+'......................'GET PICA
  82.       @ 8,10  SAY 'PATH\FILENAME FOR SAVING TEXT FILE' +'.......'GET PATH
  83.             READ
  84.             @ 20,10 SAY ''
  85.             ACCEPT '            IS THIS CORRECT ? (Y/N/Q) ' TO ANSWER
  86.                 IF UPPER(ANSWER)='Y'
  87.                     IF UPPER(MONITOR)='C'
  88.                         TITLES='+G/B'
  89.                         REGULAR='W/B,+G/BR,B'
  90.                         WARNING='+R/B'
  91.                     ELSE
  92.                         TITLES='+W/ ,, '
  93.                         REGULAR='W/ , /W , '
  94.                         WARNING='*W/ '
  95.                     ENDIF COLOR
  96.                     SAVE TO MYSOFT
  97.                     RESTORE FROM MYSOFT
  98.                 ENDIF
  99.                 IF UPPER(ANSWER)='N'
  100.                     LOOP
  101.                 ENDIF 
  102.              ENDDO 
  103.         CASE SELECTION='3'
  104.             EXIT
  105.         CASE UPPER(SELECTION)='DOS'
  106.             QUIT
  107.         CASE UPPER(SELECTION)='ZAP'
  108.             CLEAR
  109.             SET COLOR TO &WARNING
  110.             @ 10,10 SAY 'THIS OPERATION WILL ERASE ALL THE DATA ì
  111. !'
  112.             @ 11,10 SAY ''
  113.             ACCEPT '          DO YOU WANT TO PROCEED (Y/N) ? ' TO  ì
  114. ZAPANSWER         
  115.             SET COLOR TO ®ULAR
  116.                 IF UPPER(ZAPANSWER) ='Y'
  117.                     ZAP
  118.                 ENDIF
  119.         OTHERWISE
  120.             LOOP 
  121.         ENDCASE
  122. ENDDO
  123.