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 - metrics - download

⟦f269bf955⟧ TextFile

    Length: 1280 (0x500)
    Types: TextFile
    Names: »TEX.ADD«

Derivation

└─⟦c252abf18⟧ Bits:30008917 RCTOAX RC TIME OG OMKOSTNINGS OVERSIGT ARBEJDSDISK
    └─⟦this⟧ »TEX.ADD«

TextFile

*     TEX.ADD     -ADD PROGRAM
STORE T TO MQ:AMORE
DO WHILE MQ:AMORE
* SET UP DEFAULT VALUES
 DO  TEX.FAU
ERASE
STORE  ' OPRET '  TO MQ:MODE
* GET DATA TO ADD
DO  TEX.IO
@ 21,07 SAY 'OPRET TEKSTER.     VED SLUT SÅ TAST KODE2 = BLANKE,        '
@ 22,07 SAY 'SAMT TAST RETUR    ELLER TAST CTRL-  &  W-TAST    !        '
READ
* ARE WE DONE?
IF MKODE2 <> '  '
   SET EXACT ON
   STORE MKODE2 + MKODE6 TO MQ:KEY
   FIND &MQ:KEY
   SET EXACT OFF
   IF # = 0
      * PERFORM VALIDATION
      DO  TEX.VAL
      IF MKODE2 = '  '
         STORE F TO MQ:AMORE
         LOOP
      ENDIF
      APPEND BLANK
      * PUT SCREEN DATA INTO FILE
      REPLACE  KODE2  WITH  MKODE2
      REPLACE  KODE6  WITH  MKODE6
      REPLACE  TEKST  WITH  MTEKST
   ELSE
      @ 21,07 SAY 'IKKE OPRETTET,  DA NØGLEN FINDES I FORVEJEN !!            '
      @ 22,07 SAY '                TAST RETUR FOR AT FORTSÆTTE !!            '
      SET CONSOLE OFF
      WAIT
      SET CONSOLE ON
   ENDIF  # = 0
ELSE
   STORE F TO MQ:AMORE
ENDIF
ENDDO
RELEASE MQ:MODE,MQ:AMORE
RELEASE MQ:KEY
* RELEASE INPUT FIELDS
RELEASE MKODE2
RELEASE MKODE6
RELEASE MTEKST
«eof»