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

⟦e1c51ee86⟧ TextFile

    Length: 1536 (0x600)
    Types: TextFile
    Names: »DCON.PRG«

Derivation

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

TextFile

*******************************************************************************
* DESIGN: NIF/ASD/SEPTEMBER 85                                                *
*******************************************************************************
*                                                                             *
* TASK: DCON                                                                  *
* THIS COMMANDFILE IS PART OF THE 'LISTAID' PARTSLIST MANAGEMENT SYSTEM       *
*                                                                             *
*******************************************************************************

SET FORMAT TO SCREEN
ERASE

*CHECK IF CONFIGURATION_FILE EXISTS, RETURN IF IT DOES,ELSE CREATE

STORE 'CON_'-CONFIGNAME-'.DBF' TO OPERDBF
IF FILE(OPERDBF)
   STORE 'NOT ALLOWED! -- FILE IS EXISTING' TO STATUS
ELSE
   USE CON_STRUC
   COPY STRUCTURE TO &OPERDBF
   USE &OPERDBF

   *WHILE MORE INPUT

   STORE 'C' TO CONTINUE
   DO WHILE CONTINUE#'S'.AND.CONTINUE#'D'
      APPEND BLANK
      STORE 'C' TO CONTINUE
      STORE 'INITIAL STATE' TO VALIDSTATE

      *PROMPT USER FOR DATA AND VALIDATE THEM
      DO CONIN
   ENDDO

   *DELETE LAST APPENDED RECORD IF CONTINUE='D'

   IF CONTINUE='D'
      DELETE
      PACK
      STORE 'LAST ENTRY DELETED -- READY'  TO STATUS
   ELSE
      STORE 'READY' TO STATUS
   ENDIF
   RELEASE VALIDSTATE,CONTINUE,MSOURCE,CURRENT,MMODULE
ENDIF
RELEASE OPERDBF
USE
RETURN

«eof»