DataMuseum.dk

top - download

    Length: 2528 (0x9e0)
    Types: TextFile
    Notes: Mikados_K
    Names: »PUTGE1.K«

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

Mikados K File

(*$P*)
PROCEDURE PUTREC;
VAR I,PEG:INTEGER;
BEGIN
  IER:=0;
  WITH FILEHEAD DO
  IF FILEOPEN THEN
  IF FILEINIT THEN
  BEGIN
    PEG:=1;
    IF (BLKENTRY>0) AND (BLKENTRY<=Z(BLT+(BLKINZONE-1)*ENTRYSIZE+1)) THEN
    BEGIN
      REXTRACT(KEY1);
      EXTRACT(BLK+(BLKENTRY-1)*RECSIZE,KEY2);
      PEG:=COMPARE(KEY1,KEY2)
    END;
    IF PEG<>0 THEN FINDPOST;
    IF IER=0 THEN
    BEGIN
      PEG:=BLK+(BLKENTRY-1)*RECSIZE;
      MOVELEFT(REC^(1),Z(PEG),2*RECSIZE);
(*    FOR I:=1 TO RECSIZE DO Z(PEG+I):=REC^(I);*)
      BLKCHG:=TRUE
    END ELSE
    IF IER=-1 THEN IER:=-6
  END ELSE IER:=-12 ELSE IER:=-3
END;
 
PROCEDURE GETREC;
VAR I,PEG:INTEGER;
BEGIN
  IER:=0;
  WITH FILEHEAD DO
  IF FILEOPEN THEN
  IF FILEINIT THEN
  BEGIN
    FINDPOST;
    PEG:=BLK+(BLKENTRY-1)*RECSIZE;
    IF IER=0 THEN
      MOVELEFT(Z(PEG),REC^(1),2*RECSIZE);
(*                FOR I:=1 TO RECSIZE DO REC^(I):=Z(PEG+I);*)
    IF IER=-1 THEN IER:=-6
  END ELSE IER:=-12 ELSE IER:=-3
END;