|
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: »SYSFIX.K«
└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
└─⟦this⟧ »SYSFIX.K«
PROGRAM SYSVEDL;
TYPE
SYSPOST=RECORD
HELTAL:ARRAY(1..14) OF INTEGER;
BETADAT:PACKED ARRAY (1..13) OF CHAR;
KODE:ARRAY(1..2) OF PACKED ARRAY (1..10) OF CHAR
END;
SYSFILE=FILE OF SYSPOST;
SYSPOST1=RECORD
(*DATO1,DATO2,
UGENR,
MAXEXC,
ORDRENR1-2,
FAKTNR1-2,
KREDNTNR1-2,
BILAGSNR1-2,JOURFILNR,MOMS,
KASSFILNR,KASSJOURFILNR,KASSSID,
FAKJOURNR,POSTJOURNR,LA1-5*)
HELTAL: ARRAY (1..24) OF INTEGER;
KGB:ARRAY (1..3) OF REAL;
BETADAT:PACKED ARRAY (1..13) OF CHAR;
(*KIKKODE,ÆNDKODE*) KODE:ARRAY (1..2) OF PACKED ARRAY (1..10) OF CHAR
END;
SYSFILE1=FILE OF SYSPOST1;
VAR I,J:INTEGER;
R:REAL;
FILNAVN:STRING(20);
TEKST:STRING(13);
F:SYSFILE;
F1:SYSFILE1;
QUQ:^INTEGER;
BEGIN
FILNAVN:='SYSREG:P2:1:I';
REWRITE(F,FILNAVN);
SEEK(F,1);
GET(F);
FILNAVN:='SYSREG:P1:1:I';
REWRITE(F1,FILNAVN);
SEEK(F1,1);
FOR I:=1 TO 14 DO F1^.HELTAL(I):=F^.HELTAL(I);
FOR I:=15 TO 24 DO F1^.HELTAL(I):=1;
FOR I:=1 TO 3 DO F1^.KGB(1):=0.0;
F1^.BETADAT:=F^.BETADAT;
F1^.KODE(1):=F^.KODE(1);
F1^.KODE(2):=F^.KODE(2);
PUT(F1);
CLOSE(F);
CLOSE(F1);
END.