|
DataMuseum.dkPresents historical artifacts from the history of: Christian Rovsing CR7, CR8 & CR16 CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Christian Rovsing CR7, CR8 & CR16 CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 1536 (0x600)
Types: TextFile
Names: »UNIT.PRG«
└─⟦71c82d5c0⟧ Bits:30004214 LISTAID - Partslist management system
└─ ⟦this⟧ »UNIT.PRG«
******************************************************************************* * DESIGN NIF/ASD/SEPTEMBER 1985 ******************************************************************************* * ACCEPTS UNITNAME AND CONFIGNAME ******************************************************************************* SET FORMAT TO SCREEN STORE $(PPLNAME,3,4) TO PPLNAME STORE $(CONFIGNAME,3,4) TO CONFIGNAME @ 8,10 SAY 'PLEASE ENTER THE DATE (YY/MM/DD) : ' GET DATO PICTURE '##/##/##' @ 10,8 SAY 'PLEASE ENTER PPL-NAME (ERS1 OR HIP1: ' GET PPLNAME PICTURE 'AAA#' READ DO WHILE .NOT.FILE(PDISK-':'-'PPL_'-PPLNAME) @ 10,50 SAY 'INVALID PPLNAME' @ 10,45 GET PPLNAME PICTURE 'AAA#' READ ENDDO @ 10,8 SAY ' ' CLEAR GETS @ 10,10 SAY 'PLEASE ENTER OPTIONAL UNITNAME :' @ 10,45 GET UNITNAME PICTURE 'XXXXXXXXXXXXXXXXXXXX' READ CLEAR GETS @ 10,10 SAY 'PLEASE ENTER FILEPOINTER FOR THE CONFIGURATION_FILE ' @ 10,63 GET CONFIGNAME PICTURE 'AAAA' @ 20,10 SAY 'THE FILEPOINTER CONSISTS OF FOUR ALPHA-CHARACTERS' @ 21,10 SAY 'IT IS UNIQUE TO THE UNIT CONCERNED AND DEFINES THE MODULES IN IT' READ STORE !(CONFIGNAME) TO CONFIGNAME *END OF 'ACCEPT USERDEFINED FILEPARAMETERS STORE 'SYSTEM' TO STATUS SET DATE TO &DATO STORE PDISK-':'-PPLNAME TO PPLNAME STORE UDISK-':'-CONFIGNAME TO CONFIGNAME RETURN «eof»