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

⟦9b9dc845c⟧ TextFile

    Length: 1152 (0x480)
    Types: TextFile
    Names: »BRUKAT.ED«

Derivation

└─⟦c2fe28dee⟧ Bits:30008867 CORN 2 851210 CORN 3Z (RC org. database?)
    └─⟦this⟧ »BRUKAT.ED«

TextFile

*     brukat.ED     -EDIT PROGRAM
STORE T TO MQ:EMORE
 STORE  ' EDIT '  TO MQ:MODE
* SET UP SCREEN VARIABLES
 STORE  MANR  TO  MMANR
 STORE  INIT  TO  MINIT
 STORE  AFNU  TO  MAFNU
DO WHILE MQ:EMORE
 STORE T TO MQ:RPL
ERASE
* GET SCREEN INPUT
 DO  brukat.IO
 @ 21,10 SAY  ' ENTER ALL CHANGES '
 READ
* VALIDATE INPUT
 DO  brukat.VAL
 STORE  'N'  TO MQ:ECMD
 @ 21,10 SAY  ' ANY MORE CHANGES (Y/N)? '  GET MQ:ECMD
 READ
IF MMANR<>MANR
SET EXACT ON
STORE MMANR TO MQ:KEY
STORE # TO MQ:REC
FIND &MQ:KEY
SET EXACT OFF
IF # <> 0
  STORE F TO MQ:RPL
ENDIF #<>0
GOTO MQ:REC
ENDIF
IF MQ:RPL
* PUT SCREEN ENTRIES INTO FILE
 REPLACE  MANR  WITH  MMANR
 REPLACE  INIT  WITH  MINIT
 REPLACE  AFNU  WITH  MAFNU
 IF  !(MQ:ECMD)<> 'Y'
  STORE F TO MQ:EMORE
 ENDIF
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  MQ:RPL
ENDDO
RELEASE MQ:MODE,MQ:EMORE,MQ:ECMD
RELEASE MQ:RPL,MQ:REC,MQ:KEY
RELEASE MMANR
RELEASE MINIT
RELEASE MAFNU
 «eof»