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

⟦75d0a4718⟧ TextFile

    Length: 1280 (0x500)
    Types: TextFile
    Names: »ORG.ED«

Derivation

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

TextFile

*     ORG.ED     -EDIT PROGRAM
STORE T TO MQ:EMORE
 STORE  ' EDIT '  TO MQ:MODE
* SET UP SCREEN VARIABLES
 STORE  AFNU  TO  MAFNU
 STORE  STED  TO  MSTED
 STORE  NAVN  TO  MNAVN
 STORE  CHEF  TO  MCHEF
 STORE  OVER  TO  MOVER
DO WHILE MQ:EMORE
 STORE T TO MQ:RPL
ERASE
* GET SCREEN INPUT
 DO  ORG.IO
 @ 21,10 SAY  ' ENTER ALL CHANGES '
 READ
* VALIDATE INPUT
 DO  ORG.VAL
 STORE  'N'  TO MQ:ECMD
 @ 21,10 SAY  ' ANY MORE CHANGES (Y/N)? '  GET MQ:ECMD
 READ
IF MAFNU<>AFNU
SET EXACT ON
STORE MAFNU 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  AFNU  WITH  MAFNU
 REPLACE  STED  WITH  MSTED
 REPLACE  NAVN  WITH  MNAVN
 REPLACE  CHEF  WITH  MCHEF
 REPLACE  OVER  WITH  MOVER
 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 MAFNU
RELEASE MSTED
RELEASE MNAVN
RELEASE MCHEF
RELEASE MOVER
 «eof»