DataMuseum.dk

Presents historical artifacts from the history of:

MIKADOS

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

See our Wiki for more about MIKADOS

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦c8cf907d5⟧ TextFile

    Length: 992 (0x3e0)
    Types: TextFile
    Notes: Mikados_K
    Names: »PEXTRACT.K«

Derivation

└─⟦5630b2e42⟧ Bits:30009005 START APRIL 1985 aft april 1985 (PASCAL kildetekster)
    └─⟦this⟧ »PEXTRACT.K« 
└─⟦6c21327e0⟧ Bits:30008986 LINIMATIC K-FILER (IKKE HELT UPTODTATE)
    └─⟦this⟧ »PEXTRACT.K«

Mikados K File

PROCEDURE PEXTRACT(RESPOS:INTEGER);
(*UDTRÆK NØGLE AF POST , OG GEM I KEY*)
VAR I:INTEGER;
    J,KP :POSTADR;
BEGIN
  WITH FILEHEAD(CURRHEAD) DO
  FOR I:=1 TO KEYFLDS DO            
  BEGIN                             
    KP:=KEYPOS(I)-1;                
    FOR J:=1 TO KEYLNG(I) DO        
    BEGIN                           
      KEY(RESPOS):=REC^(KP+J);        
      RESPOS:=RESPOS+1              
    END                             
  END                               
END;

Full view