DataMuseum.dk

top - metrics - download

    Length: 3584 (0xe00)
    Types: TextFile
    Names: »REGVEDLH.CMD«

└─⟦9c8e44efc⟧ Bits:30005957 Std. Rammesystem
    └─⟦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'
     STORE '     ' TO XSVAR
     GOTO TOP
     do while $(xsvar,1,1)<>'/' .and. xfunk='B'
        erase
        ? 'RECNR   NAVN/ADRESSE'
? '---------------------------------------------------------------------------'
        store $(str(0,133),1,70) to qlinie
        store 0 to qloop
        do while qloop<16
           if .not. eof
              store str(#,5)+' '+navn+' '+adresse to qlinie
              skip +1
           else
              store '..' to qlinie
           endif
           store qloop + 1 to qloop
           ? qlinie
        enddo
? '---------------------------------------------------------------------------'
ACCEPT 'TAST RECNR FOR HENT OPLYSN, + FREM, - FORFRA, / FUNK.VALG.. ' TO XSVAR
        IF val(XSVAR)>0 .and. val(xsvar)<99999
           &XSVAR
           store init to xkey
           SET FORMAT TO GEPANVIS
           &xlin18
           READ
           SET FORMAT TO
        ENDIF
        IF XSVAR='-'
           goto top
        ENDIF
        IF XSVAR='/'
           ERASE
           STORE ' ' TO XSVAR
           &XLIN18
           READ
        ENDIF
     enddo
  endif
ENDDO
RETURN
«eof»