DataMuseum.dk

top - download

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

└─⟦6b1c9961a⟧ Bits:30008989 INDPERM P1
    └─⟦this⟧ »SÆTØG.K« 

Mikados K File

PROCEDURE ØGNUM(VAR ZO:ISFHEAD);
VAR BUCNUM,BLKNUM:INTEGER;
BEGIN
  WITH ZO 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(VAR ZO:ISFHEAD;BLKPEG:INTEGER);
VAR BUCNUM,BLKNUM,I:INTEGER;
BEGIN
  WITH ZO DO
  BEGIN
    BUCNUM:=(BUCINZONE-1)*ENTRYSIZE+BUT+1;
    BLKNUM:=(BLKINZONE-1)*ENTRYSIZE+BLT+1;
    EXTRACT(ZO,Z,Z,(BLKPEG-1)*RECSIZE+BLK,KEY1);
    IF (Z(BUCNUM)=0) OR
       (COMPARE(ZO,Z,Z,BLKNUM+1,
                       BUCNUM+1)=0)  OR
       (COMPARE(ZO,Z,Z,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;