|
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 - metrics - download
Length: 1408 (0x580)
Types: TextFile
Names: »DSOT.PRG«
└─⟦71c82d5c0⟧ Bits:30004214 LISTAID - Partslist management system
└─⟦this⟧ »DSOT.PRG«
└─⟦9ce0f2175⟧ Bits:30004308/disk3.imd Listaid database backup
└─⟦this⟧ »DSOT.PRG«
*******************************************************************************
* DESIGN: NIF/ASD/SEPTEMBER 85 *
*******************************************************************************
* *
* TASK: DSOT *
* THIS COMMANDFILE IS PART OF THE 'LISTAID' PARTSLIST MANAGEMENT SYSTEM *
* *
*******************************************************************************
SET FORMAT TO SCREEN
ERASE
*ASK USER TO DEFINE THE MODULEFILEPOINTER&SOT NO.
STORE ' ' TO MSOT
STORE 'FILE' TO MSOURCE
@ 10,10 SAY 'PLEASE ENTER POINTER TO MODULE_FILE:'
@ 10,49 SAY CONFIGNAME-'_'
@ 10,54 GET MSOURCE PICTURE 'AAAA'
@ 12,10 SAY 'PLEASE ENTER SOT-KIT No.: ' GET MSOT PICTURE '##'
READ
STORE !(MSOURCE) TO MSOURCE
*CHECK IF SOT FILE EXISTS, RETURN IF IT DOES,ELSE CREATE
IF RANK(MSOT)=RANK(' ').OR.RANK(MSOT)=RANK('0')
STORE $(MSOT,2,1) TO MSOT
ENDIF
STORE CONFIGNAME-MSOURCE-'.S'-MSOT TO OPERDBF
IF FILE(OPERDBF)
STORE 'NOT ALLOWED! -- FILE IS EXISTING' TO STATUS
ELSE
USE SOT_STRU
COPY STRUCTURE TO &OPERDBF
USE
STORE T TO CALL
DO USOT
USE
ENDIF
RETURN
«eof»