|
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: »BRUKAT.ADD«
└─⟦c2fe28dee⟧ Bits:30008867 CORN 2 851210 CORN 3Z (RC org. database?)
└─⟦this⟧ »BRUKAT.ADD«
* brukat.ADD -ADD PROGRAM
STORE T TO MQ:AMORE
DO WHILE MQ:AMORE
* SET UP DEFAULT VALUES
DO brukat.FAU
ERASE
STORE ' ADD ' TO MQ:MODE
* GET DATA TO ADD
DO brukat.IO
@ 21,10 SAY ' MAKE AS MANY ENTRIES AS YOU WANT '
@ 22,10 SAY ' WHEN DONE ENTER BLANKS FOR MANR '
READ
* ARE WE DONE?
IF MMANR <> ' '
SET EXACT ON
STORE MMANR TO MQ:KEY
FIND &MQ:KEY
SET EXACT OFF
IF # = 0
* PERFORM VALIDATION
DO brukat.VAL
APPEND BLANK
* PUT SCREEN DATA INTO FILE
REPLACE MANR WITH MMANR
REPLACE INIT WITH MINIT
REPLACE AFNU WITH MAFNU
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 MMANR
RELEASE MINIT
RELEASE MAFNU
«eof»