|
DataMuseum.dkPresents historical artifacts from the history of: MIKADOS |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 1248 (0x4e0)
Types: TextFile
Notes: Mikados_K
Names: »PUTGET.K«
└─⟦5630b2e42⟧ Bits:30009005 START APRIL 1985 aft april 1985 (PASCAL kildetekster)
└─⟦this⟧ »PUTGET.K«
└─⟦6c21327e0⟧ Bits:30008986 LINIMATIC K-FILER (IKKE HELT UPTODTATE)
└─⟦this⟧ »PUTGET.K«
(*$P*)
PROCEDURE PUTREC(VAR F:ISF);
VAR I,PEG:INTEGER;
BEGIN
IER:=0;
WITH FILEHEAD(CURRHEAD) 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(F);
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 F:ISF);
VAR I,PEG:INTEGER;
BEGIN
IER:=0;
WITH FILEHEAD(CURRHEAD) DO
IF FILEOPEN THEN
IF FILEINIT THEN
BEGIN
FINDPOST(F);
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;