|
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: 2528 (0x9e0)
Types: TextFile
Notes: Mikados_K
Names: »READPRO1.K«
└─⟦5630b2e42⟧ Bits:30009005 START APRIL 1985 aft april 1985 (PASCAL kildetekster)
└─⟦this⟧ »READPRO1.K«
└─⟦6c21327e0⟧ Bits:30008986 LINIMATIC K-FILER (IKKE HELT UPTODTATE)
└─⟦this⟧ »READPRO1.K«
(*$P*)
PROCEDURE READTABLE(BUTENTRY:INTEGER);
BEGIN
WITH FILEHEAD DO
IF BUTENTRY<>BUCINZONE THEN
BEGIN (*$XT*)
WRITELN('READTABLE');(*$X-*)
IF BLKCHG THEN
COPSEGS(Z((BLKINZONE-1)*ENTRYSIZE+BLT),BLKSIZE,BLK,SKRIV);
IF BLTCHG THEN
COPSEGS(Z((BUCINZONE-1)*ENTRYSIZE+BUT),BLTSIZE,BLT,SKRIV);
BLKCHG:=FALSE;
BLTCHG:=FALSE;
COPSEGS(Z((BUTENTRY-1)*ENTRYSIZE+BUT),BLTSIZE,BLT,LÆS);
BUCINZONE:=BUTENTRY;
BLKINZONE:=0
END
END;
PROCEDURE READBLOCK(BLTENTRY,STARTPOST:INTEGER);
BEGIN
WITH FILEHEAD DO
IF BLTENTRY<>BLKINZONE THEN
BEGIN (*$XT*)
WRITELN('READBLOCK');(*$X-*)
IF BLKCHG THEN
BEGIN
COPSEGS(Z((BLKINZONE-1)*ENTRYSIZE+BLT),BLKSIZE,BLK,SKRIV);
BLKCHG:=FALSE
END;
COPSEGS(Z((BLTENTRY-1)*ENTRYSIZE+BLT),BLKSIZE,BLK+(STARTPOST-1)*
RECSIZE,LÆS);
BLKINZONE:=BLTENTRY
END
END;