DataMuseum.dk

top - download

    Length: 1248 (0x4e0)
    Types: TextFile
    Notes: Mikados_K
    Names: »SÆTØG.K«

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

Mikados K File

(*$P*)
PROCEDURE ØGNUM;                  
VAR BUCNUM,BLKNUM:INTEGER;
BEGIN
  WITH FILEHEAD(CURRHEAD) DO
  BEGIN
    BUCNUM:=(BUCINZONE-1)*ENTRYSIZE+BUT+1;
    BLKNUM:=(BLKINZONE-1)*ENTRYSIZE+BLT+1;
    Z(BUCNUM):=Z(BUCNUM)+1;
    Z(BLKNUM):=Z(BLKNUM)+1;
    RECINUSE:=RECINUSE+1;
    IF Z(BLKNUM)=1 THEN
    BEGIN
      BLKINUSE:=BLKINUSE+1;
      IF Z(BUCNUM)=1 THEN BUCINUSE:=BUCINUSE+1
    END;
    BUTCHG:=TRUE;
    BLTCHG:=TRUE
  END
END;
 
PROCEDURE SÆTKEY(BLKPEG:INTEGER);
VAR BUCNUM,BLKNUM,I:INTEGER;
BEGIN
  WITH FILEHEAD(CURRHEAD) DO
  BEGIN
    BUCNUM:=(BUCINZONE-1)*ENTRYSIZE+BUT+1;
    BLKNUM:=(BLKINZONE-1)*ENTRYSIZE+BLT+1;
    EXTRACT((BLKPEG-1)*RECSIZE+BLK,KEY1);
    IF (Z(BUCNUM)=0) OR
       ((Z(BLKNUM)>0) AND (COMPARE(BLKNUM+1,BUCNUM+1)=0)) OR
       (COMPARE(KEY1,BUCNUM+1)>0)                
    THEN                                      
    BEGIN                                     
      FOR I:=1 TO KEYSIZE DO Z(BUCNUM+I):=Z(KEY1-1+I);    
      BUTCHG:=TRUE                            
    END;                                      
    FOR I:=1 TO KEYSIZE DO Z(BLKNUM+I):=Z(KEY1-1+I);
    BLTCHG:=TRUE
  END
END;