|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 1024 (0x400)
Types: TextFile
Names: »ORG.ADD«
└─⟦871340d2f⟧ Bits:30005949 RC Organisationsplan Diskette A 15/01-86
└─⟦this⟧ »ORG.ADD«
└─⟦c2fe28dee⟧ Bits:30008867 CORN 2 851210 CORN 3Z (RC org. database?)
└─⟦this⟧ »ORG.ADD«
* ORG.ADD -ADD PROGRAM
STORE T TO MQ:AMORE
DO WHILE MQ:AMORE
* SET UP DEFAULT VALUES
DO ORG.FAU
ERASE
STORE ' ADD ' TO MQ:MODE
* GET DATA TO ADD
DO ORG.IO
@ 21,10 SAY ' MAKE AS MANY ENTRIES AS YOU WANT '
@ 22,10 SAY ' WHEN DONE ENTER BLANKS FOR AFNU '
READ
* ARE WE DONE?
IF MAFNU <> ' '
SET EXACT ON
STORE MAFNU TO MQ:KEY
FIND &MQ:KEY
SET EXACT OFF
IF # = 0
* PERFORM VALIDATION
DO ORG.VAL
APPEND BLANK
* PUT SCREEN DATA INTO FILE
REPLACE AFNU WITH MAFNU
REPLACE STED WITH MSTED
REPLACE NAVN WITH MNAVN
REPLACE CHEF WITH MCHEF
REPLACE OVER WITH MOVER
ELSE
@ 21,10 SAY 'KEY FIELD MUST BE UNIQUE '
@ 22,10 SAY 'PLEASE PRESS RETURN TO CONTINUE '
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 MAFNU
RELEASE MSTED
RELEASE MNAVN
RELEASE MCHEF
RELEASE MOVER
«eof»