Shareware Overload/ShartewareOverload.cdr/database/mysoft2.zip/SOFTDIS1.PRG

Text File | 1985-12-24 | 2KB | 63 lines

* SOFTDIS1.PRG
* PART OF "MYSOFT" SOFTWARE LIST MAINTENANCE PROGRAM
* DISPLAYS SINGLE DETAILED ENTRIES IN THE SOFTWARE LIST
SET TALK OFF
SET ECHO OFF
SET FUNCTION 3 TO 'SOFTDIS1'
SET EXACT OFF
NEW='N'
DO WHILE .T.
    IF NEW='N'
        CLEAR
        @ 10,10 SAY ''
        ACCEPT ' ENTER FIRST LETTERS OF PROGRAM NAME: ' TO PROGNAME
        LOCATE FOR PROGRAM=UPPER(TRIM(PROGNAME))
    ENDIF
    CLEAR
    SET COLOR TO &TITLES
    @ 2,10 SAY '********** SINGLE ENTRY DETAILED DISPLAY ì
**********'
    SET COLOR TO ®ULAR
    @6,10  SAY 'PROGRAM NAME'+'................'
    @7,10  SAY 'VERSION'+'.....................'
    @8,10  SAY 'PROGRAM TYPE'+'................'
    @9,10  SAY 'NUMBER OF DISKS'+'.............'
    @10,10 SAY 'COPY PROTECTION'+'.............'
    @11,10 SAY 'DOCUMENTATION'+'...............'
    @12,10 SAY 'GRAPHICS BOARD REQUIRED'+'.....'
    @13,10 SAY 'INPUT DEVICE'+'................'
    @14,10 SAY 'DESCRIPTION'+'.................'
    @18,10 SAY '     A --- ANOTHER ENTRY '
    @19,10 SAY '     C --- CONTINUE TO NEXT MATCH'
    @20,10 SAY '     Q --- QUIT TO MAIN MENU'
    ?
    ?
    SET COLOR TO &TITLES
    @6,38 SAY PROGRAM
    @7,38 SAY VERS
    @8,38 SAY CATEGORY
    @9,38 SAY DISKS
    @10,38 SAY PROT
    @11,38 SAY DOCS
    @12,38 SAY DOCS
    @13,38 SAY GRAPHICS
    @13,38 SAY DEVICE
    @14,38 SAY DESCR
    SET COLOR TO ®ULAR
    @22,1 SAY ''
    ACCEPT '        ENTER SELECTION TO PROCEED: ' TO ANSWER
    IF UPPER (ANSWER)='C'
        NEW='O'
        CONTINUE
    ENDIF O
    IF UPPER(ANSWER)='A'
        NEW='N'
    ENDIF A
    IF UPPER(ANSWER)='Q'
        SET EXACT ON
        RETURN
    ENDIF Q
ENDDO
SET EXACT ON
RETURN