|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 2560 (0xa00)
Types: TextFile
Names: »DIRE.PRG«
└─⟦71c82d5c0⟧ Bits:30004214 LISTAID - Partslist management system
└─⟦this⟧ »DIRE.PRG«
└─⟦9ce0f2175⟧ Bits:30004308/disk3.imd Listaid database backup
└─⟦this⟧ »DIRE.PRG«
*******************************************************************************
* 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»