home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / xbase / library / dbase / mysoft / softdisp.prg < prev    next >
Encoding:
Text File  |  1985-12-25  |  2.8 KB  |  85 lines
  1. ** DISPLAY MENU MODULE FOR "MYSOFT", A DBASE III SOFTWARE LIST
  2. ** MAINTENANCE PROGRAM
  3. ** BY LES PENNER, 11/27/85
  4. ******************************************************************
  5. * DISPLAY  MENU
  6. SET FUNCTION 3 TO 'SOFTDISP'
  7. DO WHILE .T.
  8.     CLEAR
  9.     SET COLOR TO &TITLES
  10.     @ 1,20 SAY  ' ******** DISPLAY/PRINTOUT *********'
  11.     SET COLOR TO ®ULAR
  12.     @ 7,20 SAY  ' D --- DISPLAY ONE ENTRY IN DETAIL'
  13.     @ 8,20 SAY  ' S --- SELECTIVE DISPLAY'
  14.     @ 9,20 SAY  ' B --- BRIEF DISPLAY/PRINTOUT OF ALL ENTRIES'
  15.     @ 10,20 SAY ' F --- FULL DISPLAY/PRINTOUT OF ALL ENTRIES'
  16.     @ 12,20 SAY ' ANY OTHER KEY TO RETURN TO MAIN MENU'
  17.     ?
  18.     ?
  19.     ?    
  20.     ACCEPT '    ENTER YOUR SELECTION: ' TO SELECTION
  21.     SET EXACT ON
  22.     DO CASE
  23.         CASE UPPER(SELECTION)='D'
  24.             DO SOFTDIS1
  25.         CASE UPPER(SELECTION)='B'
  26.             CLEAR
  27.             SET COLOR TO &TITLES
  28.             @ 5,10 SAY ' ***** BRIEF DISPLAY OF ALL ENTRIES ì
  29. *****'
  30.             SET COLOR TO ®ULAR    
  31.             ?
  32.             ACCEPT '     DO YOU WANT THE LIST PRINTED (Y/N) ?' TO ANSWER
  33.                 IF UPPER(ANSWER)='Y'
  34.                     ?
  35.                     ?'      TURN ON THE PRINTER'
  36.                     WAIT
  37.                     SET PRINT ON
  38.                     ? &PICA
  39.                     ?'        ***************   SOFTWARE LIST   ì
  40. ******* '
  41.                     ?? DATE ()           
  42.                     LIST OFF ALL PROGRAM,VERS,CATEGORY, DISKS, GRAPHICS, ì
  43. DEVICE, DESCR
  44.                     ?
  45.                     SET PRINT OFF
  46.                 ELSE
  47.                     DISPLAY OFF ALL PROGRAM, VERS, CATEGORY, ì
  48. DISKS, GRAPHICS, DEVICE, DESCR
  49.                     ?
  50.                     WAIT
  51.                 ENDIF
  52.         CASE UPPER(SELECTION)='F'
  53.             CLEAR
  54.             SET COLOR TO &TITLES
  55.             @ 5,10 SAY ' ***** FULL DISPLAY OF ALL ENTRIES *****'
  56.             SET COLOR TO ®ULAR
  57.             ?
  58.             ACCEPT '      DO YOU WANT THE LIST PRINTED (Y/N) ?' ì
  59. TO ANSWER
  60.                 IF UPPER(ANSWER)='Y'
  61.                     ?
  62.                     ?'       TURN ON THE PRINTER'
  63.                     WAIT
  64.                     SET PRINT ON
  65.                     ? &COMPRESSED
  66.                     ? '          ******************** SOFTWARE ì
  67. LIST ********************          '
  68.                     ?? DATE()
  69.                     LIST OFF ALL PROGRAM, VERS, CATEGORY, DISKS, ì
  70. PROT,DOCS,DEVICE,GRAPHICS,DESCR
  71.                     ? &PICA
  72.                     SET PRINT OFF
  73.                 ELSE
  74.                     DISPLAY OFF ALL PROGRAM, VERS, CATEGORY, ì
  75. DISKS, PROT,DOCS,DEVICE,GRAPHICS,DESCR
  76.                     ?
  77.                     WAIT
  78.                 ENDIF
  79.         CASE UPPER(SELECTION)='S'
  80.             DO SOFTDIS3
  81.         OTHERWISE
  82.             RETURN 
  83.     ENDCASE
  84. ENDDO
  85.