DataMuseum.dk

top - download

    Length: 2496 (0x9c0)
    Types: TextFile
    Notes: Mikados_K
    Names: »READPROC.K«

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

Mikados K File

(*$P*)
PROCEDURE READTABLE(VAR F:ISF;BUTENTRY:INTEGER);
BEGIN
  WITH FILEHEAD(CURRHEAD) DO
  IF BUTENTRY<>BUCINZONE THEN                                       
  BEGIN                                                             
    IF BLKCHG THEN                                                  
      COPSEGS(F,Z((BLKINZONE-1)*ENTRYSIZE+BLT),BLKSIZE,BLK,SKRIV);  
    IF BLTCHG THEN                                                  
      COPSEGS(F,Z((BUCINZONE-1)*ENTRYSIZE+BUT),BLTSIZE,BLT,SKRIV);  
    BLKCHG:=FALSE;                                                  
    BLTCHG:=FALSE;                                                  
    COPSEGS(F,Z((BUTENTRY-1)*ENTRYSIZE+BUT),BLTSIZE,BLT,LÆS);       
    BUCINZONE:=BUTENTRY;                                            
    BLKINZONE:=0                                                    
  END                                                               
END;
 
PROCEDURE READBLOCK(VAR F:ISF;BLTENTRY,STARTPOST:INTEGER);
BEGIN
  WITH FILEHEAD(CURRHEAD) DO
  IF BLTENTRY<>BLKINZONE THEN
  BEGIN
    IF BLKCHG THEN
    BEGIN
      COPSEGS(F,Z((BLKINZONE-1)*ENTRYSIZE+BLT),BLKSIZE,BLK,SKRIV);
      BLKCHG:=FALSE 
    END;
    COPSEGS(F,Z((BLTENTRY-1)*ENTRYSIZE+BLT),BLKSIZE,BLK+(STARTPOST-1)*
                                                         RECSIZE,LÆS);
    BLKINZONE:=BLTENTRY
  END
END;