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

⟦475f924ba⟧ TextFile

    Length: 1408 (0x580)
    Types: TextFile
    Names: »DSOT.PRG«

Derivation

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

TextFile

*******************************************************************************
* 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»