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

⟦befcc303f⟧ TextFile

    Length: 2560 (0xa00)
    Types: TextFile
    Names: »REGVEDLH.CMD«

Derivation

└─⟦07be67046⟧ Bits:30008916 LINDA1 75MC
    └─⟦this⟧ »REGVEDLH.CMD«

TextFile

* REGVEDLH.CMD
*-------------
ERASE
STORE 'H' TO XFUNK

  STORE ' ' TO XMSG

  &XLIN0
  &XLIN2
  &XLIN18
  READ

DO WHILE XFUNK<>' '

  IF @(XFUNK,'ORSVH')=0
     RETURN
  ENDIF

  IF XFUNK='H'
     STORE ' ' TO XFUNK
  ENDIF

  IF XFUNK='O'
     STORE XKEYLGD TO XKEY
     @ 24,0 SAY '                               '
     @ 19,5 SAY &XPROMT1
     READ
     IF TRIM(XKEY)=' '
        &XLIN18
        READ
     ELSE
        FIND &XKEY
        STORE # TO XRECNR
        IF XRECNR=0
           APPEND BLANK
           REPLACE &XKEYINFO2
           SET FORMAT TO GEPANOPR
           READ
           SET FORMAT TO
        ELSE
           @ 24,0 SAY '*** ER OPRETTET ...'
        ENDIF
     ENDIF
  ENDIF

  IF XFUNK='R'
     STORE XKEYLGD TO XKEY
     @ 19,5 SAY &XPROMT1
     READ
     IF TRIM(XKEY)=' '
        &XLIN18
        READ
     ELSE
        FIND &XKEY
        STORE # TO XRECNR
        IF XRECNR=0
           @ 24,0 SAY '*** FINDES IKKE I REGISTERET'+CHR(7)
        ELSE
           SET FORMAT TO GEPANOPR
           READ
           SET FORMAT TO
        ENDIF
     ENDIF
  ENDIF

  IF XFUNK='V'
     STORE XKEYLGD TO XKEY
     @ 19,5 SAY &XPROMT1
     READ
     IF TRIM(XKEY)=' '
        &XLIN18
        READ
     ELSE
        FIND &XKEY
        STORE # TO XRECNR
        IF XRECNR=0
           @ 24,0 SAY '*** FINDES IKKE I REGISTERET'+CHR(7)
        ELSE
           DO FELTFLYT
           SET FORMAT TO GEPANVIS
           READ
           SET FORMAT TO
        ENDIF
     ENDIF
  ENDIF

  IF XFUNK='S'
     STORE XKEYLGD TO XKEY
     @ 19,5 SAY &XPROMT1
     READ
     IF TRIM(XKEY)=' '
        &XLIN18
        READ
     ELSE
        FIND &XKEY
        STORE # TO XRECNR
        IF XRECNR=0
           @ 24,0 SAY '*** FINDES IKKE I REGISTERET'+CHR(7)
        ELSE
           DO FELTFLYT
           SET FORMAT TO GEPANVIS
           STORE 'N' TO XFUNK
           STORE '..SLETNING udføres, hvis du taster J for JA ' TO XMSG
           READ
           IF @(!(XFUNK),'J')>0
              DELETE FOR &XKEYINFO
           ENDIF
           SET FORMAT TO
           STORE ' ' TO XMSG
           STORE 'S' TO XFUNK
        ENDIF
     ENDIF
  ENDIF

ENDDO
RETURN
«eof»