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

⟦4c1557445⟧ TextFile

    Length: 1536 (0x600)
    Types: TextFile
    Names: »TEX.ED«

Derivation

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

TextFile

*     TEX.ED     -EDIT PROGRAM
STORE T TO MQ:EMORE
STORE ' RET ' TO MQ:MODE
* SET UP SCREEN VARIABLES
STORE  KODE2  TO  MKODE2
STORE  KODE6  TO  MKODE6
STORE  TEKST  TO  MTEKST
DO WHILE MQ:EMORE
  STORE T TO MQ:RPL
  ERASE
  * GET SCREEN INPUT
  DO  TEX.IO
  @ 21,0
  @ 22,0
  @ 23,0
  @ 21,07 SAY 'RET ØNSKEDE OPLYSNINGER,  ELLER TAST RETUR    !!   '
  @ 22,07 SAY 'CTRL-  & W-TAST  KAN OGSÅ  ANVENDES HER       !!   '
  READ
  * VALIDATE INPUT
  DO  TEX.VAL
  STORE  ' '  TO MQ:ECMD
  @ 21,0
  @ 22,0
  @ 21,07 SAY 'FLERE RETTELSER ?  TAST J (JA)  ELLERS TAST RETUR  ' GET MQ:ECMD
  READ
  IF MKODE2 <> KODE2 .OR. MKODE6 <> KODE6
     SET EXACT ON
     STORE MKODE2 + MKODE6 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  KODE2  WITH  MKODE2
     REPLACE  KODE6  WITH  MKODE6
     REPLACE  TEKST  WITH  MTEKST
     IF !(MQ:ECMD)<> 'J'
        STORE F TO MQ:EMORE
     ENDIF
  ELSE
     @ 21,0
     @ 22,0
     @ 23,0
     @ 21,07 SAY 'DU HAR RETTET NØGLEN, BRUG:  SLET & OPRET        !!'
     @ 22,07 SAY 'RETTELSEN ER AFVIST.  TAST RETUR FOR AT FORTSÆTTE !' GET OK
     READ
  ENDIF  MQ:RPL
ENDDO
RELEASE MQ:MODE,MQ:EMORE,MQ:ECMD
RELEASE MQ:RPL,MQ:REC,MQ:KEY
RELEASE MKODE2
RELEASE MKODE6
RELEASE MTEKST
 «eof»