DataMuseum.dk

top - download

    Length: 2560 (0xa00)
    Types: TextFile
    Names: »DIRE.PRG«

└─⟦71c82d5c0⟧ Bits:30004214 LISTAID - Partslist management system
    └─ ⟦this⟧ »DIRE.PRG« 

TextFile

*******************************************************************************
* DESIGN:NIF/ASD/ NOVEMBER 1985
*******************************************************************************
*GIVES DIRECTORY OF FILES IN CONFIGURATION
*******************************************************************************
STORE 'A' TO MOPTION
STORE 'SYSTEM' TO STATUS
DO WHILE .NOT.(MOPTION='Q')
   ERASE
   SET FORMAT TO SCREEN
   @  5,10 SAY 'SELECTED OPTION ' GET MOPTION PICTURE 'A'
   @  7,10 SAY 'OPTION   FUNCTION'
   @  8,10 SAY '------------------------------------------------------'
   @  9,10 SAY '     A   DISPLAY ALL FILES CONCERNING THIS UNIT'
   @ 10,10 SAY '     B   DISPLAY SHORT FORM MODULE FILES'
   @ 11,10 SAY '     C   DISPLAY LONG FORM MODULE FILES'
   @ 12,10 SAY '     D   DISPLAY KIT FILES'
   @ 13,10 SAY '     E   DISPLAY SOT FILES'
   @ 14,10 SAY '     F   DISPLAY CONFIGURATION LEVEL FILES'
   @ 16,10 SAY '     Q   QUIT FILE LISTING'
   READ
   ERASE
   DO CASE
      CASE MOPTION='A'
           @ 3,0 SAY 'ALL FILES IN CONFIGURATION'

           STORE '????'-$(CONFIGNAME,3,4)-'.DBF' TO MSKEL
           DISPLAY FILES ON &UDISK LIKE &MSKEL
           ? '-----------------------------------------------------'
           ? ' '
           STORE $(CONFIGNAME,3,4)-'*'-'.PL*' TO MSKEL
           DISPLAY FILES ON &UDISK LIKE &MSKEL
           STORE $(CONFIGNAME,3,4)-'*'-'.S*' TO MSKEL
           DISPLAY FILES ON &UDISK LIKE &MSKEL
      CASE MOPTION='B'
           @ 3,0 SAY 'MODULE FILES (SHORT FORM)'
           STORE $(CONFIGNAME,3,4)-'*'-'.PLS' TO MSKEL
           DISPLAY FILES ON &UDISK LIKE &MSKEL
      CASE MOPTION='C'
           @ 3,0 SAY 'MODULE FILES (LONG FORM)'
           STORE $(CONFIGNAME,3,4)-'*'-'.PLL' TO MSKEL
           DISPLAY FILES ON &UDISK LIKE &MSKEL
      CASE MOPTION='D'
           @ 3,0 SAY 'KIT FILES'
           STORE $(CONFIGNAME,3,4)-'*'-'.KIT' TO MSKEL
           DISPLAY FILES ON &UDISK LIKE &MSKEL
      CASE MOPTION='E'
           @ 3,0 SAY 'SOT FILES '
           STORE $(CONFIGNAME,3,4)-'*'-'.S*' TO MSKEL
           DISPLAY FILES ON &UDISK LIKE &MSKEL
      CASE MOPTION='F'
           @ 3,0 SAY 'UNIT LEVEL FILES '
           STORE '????'-$(CONFIGNAME,3,4)-'.DBF' TO MSKEL
           DISPLAY FILES ON &UDISK LIKE &MSKEL
   ENDCASE

   IF MOPTION$'ABCDEF'
      STORE ' ' TO MDUMMY
      @ 1,0 SAY 'RETURN TO CONTINUE' GET MDUMMY PICTURE 'X'
      READ
   ENDIF
ENDDO
CLEAR GETS
RELEASE ALL LIKE M*
RETURN 


«eof»