|
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: 1984 (0x7c0)
Types: TextFile
Notes: Mikados_K
Names: »RETURNEZ.K«
└─⟦5630b2e42⟧ Bits:30009005 START APRIL 1985 aft april 1985 (PASCAL kildetekster)
└─⟦this⟧ »RETURNEZ.K«
└─⟦6c21327e0⟧ Bits:30008986 LINIMATIC K-FILER (IKKE HELT UPTODTATE)
└─⟦this⟧ »RETURNEZ.K«
SEGMENT PROCEDURE RETURNEZ;
VAR I:INTEGER;
BEGIN
WITH USER(CURRUSER) DO
BEGIN
WITH FILEHEAD(CURRHEAD) DO
BEGIN
REC^(1):=NBUC;
REC^(2):=NBLK;
REC^(3):=NREC;
REC^(4):=BLKPRBUC;
REC^(5):=RECPRBUC;
REC^(6):=RECPRBLK;
REC^(7):=KEYFLDS;
REC^(8):=AZSIZE;
REC^(9):=BUTSIZE;
REC^(10):=BLTSIZE;
REC^(11):=BLKSIZE;
REC^(12):=RECSIZE;
REC^(13):=KEYSIZE;
REC^(14):=SEGINFLH;
REC^(15):=SEGINBUT;
REC^(16):=SEGINBUC;
REC^(17):=SEGINBLT;
REC^(18):=SEGINBLK;
REC^(19):=INITREC;
REC^(20):=BUCINUSE;
REC^(21):=BLKINUSE;
REC^(22):=RECINUSE;
IF FILEINIT THEN REC^(23):=1 ELSE REC^(23):=0;
IF FILEOPEN THEN REC^(24):=1 ELSE REC^(24):=0;
FOR I:=1 TO 9 DO
BEGIN
REC^(22+I*3):=KEYPOS(I);
REC^(23+I*3):=KEYLNG(I);
REC^(24+I*3):=KEYSGN(I)
END
END
END
END;
(*$P*)