DataMuseum.dk

Presents historical artifacts from the history of:

RegneCentralen RC850

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about RegneCentralen RC850

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download

⟦892b8b31c⟧ TextFile

    Length: 3072 (0xc00)
    Types: TextFile
    Names: »REGVEDLH.CMD«

Derivation

└─⟦ae6bd3087⟧ Bits:30005879 RC Register-system generering
    └─⟦this⟧ »REGVEDLH.CMD«

TextFile

* REGVEDLH.CMD
ERASE
STORE 'H' TO XFUNK
  STORE ' ' TO XMSG
  &XLIN0
  &XLIN2
  &XLIN18
  READ
DO WHILE XFUNK<>' '
  IF @(XFUNK,'ORSVHB')=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
           STORE 1 TO XAKTIV
        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
           STORE 1 TO XAKTIV
        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
           SET FORMAT TO GEPANVIS
           READ
           SET FORMAT TO
        ENDIF
     ENDIF
  ENDIF
  IF XFUNK='S'
     @ 20,0
     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 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 1 TO XAKTIV
           STORE ' ' TO XMSG
           STORE 'S' TO XFUNK
        ENDIF
     ENDIF
  ENDIF
  IF XFUNK='B'
     GOTO TOP
     STORE '+' TO XFUNK
     DO WHILE XFUNK='+' .OR. XFUNK='-'
        @ 19,5 SAY 'BLADRING frem +, tilbage -, andet = slut   '
        READ
        IF XFUNK='+'
           SKIP +1
        ELSE
           SKIP -1
        ENDIF
        STORE &FELTNAVN TO XKEY
        SET FORMAT TO GEPANVIS
        READ
        SET FORMAT TO
     ENDDO
  ENDIF
ENDDO
RETURN
«eof»