DataMuseum.dk

Presents historical artifacts from the history of:

CP/M

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about CP/M

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦4d3e7c9e3⟧ TextFile

    Length: 768 (0x300)
    Types: TextFile
    Names: »GETSOURC.PRG«

Derivation

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

TextFile

*******************************************************************************
*DESIGN  NIF/ASD/SEPTEMBER 1985
*******************************************************************************
*
* TASK PFIL
* FUNCTION: OUTPUTS MENU OF PRINT ROUTINES AND PROVIDES THE LINK TO SUBROUTINES
*           PRINTING THE SELECTED FILES.
*******************************************************************************

ERASE
SET FORMAT TO SCREEN
STORE 'FILE' TO MSOURCE
@ 10,10 SAY 'ENTER POINTER TO THE MODULE_FILE: '+CONFIGNAME-'_'
@ 10,$+1 GET MSOURCE PICTURE 'AAAA'
READ
STORE !(MSOURCE) TO MSOURCE
STORE CONFIGNAME-MSOURCE-'.'-MEXTEN TO OPERDBF
RETURN
«eof»