|
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: »VARREP.K«
└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
└─⟦this⟧ »VARREP.K«
PROGRAM VAREVEDL;
(*$IISFHEAD*)
VPOST=RECORD
A:AR;
VARENR1,LVRNDØR,OPRLAND,PAKENHED,
FORVLEVU,DATSBES1,DATSBES2,DATSORD1,DATSORD2,
DÆKGRASÅ,ANAFTILG:INTEGER;
NAVN:ARRAY(1..2) OF PACKED ARRAY (1..30) OF CHAR;
PRIS,KOSTPRIS,TOLDPNR,FYSLAGER,PRIMOLAG,MINLAGER,RESAFLAG,IORDRE,
RAIORDRE,STASBEST,ASOLGTIÅ,ASOLGTSÅ,OMSIÅR,OMSSÅR,DÆKBIDTD:REAL
END;
ZONE= RECORD
H:ISFHEAD;
T:ARRAY(1..451) OF INTEGER
END;
SYSPOST=RECORD
HELTAL:ARRAY(1..24) OF INTEGER;
KGB:ARRAY (1..5) OF REAL;
BETADAT:PACKED ARRAY (1..13) OF CHAR;
KODE:ARRAY (1..2) OF PACKED ARRAY (1..10) OF CHAR
END;
SYSFILE=FILE OF SYSPOST;
VAR F:ISF;
VZ:ZONE;
FILNAVN1,FILNAVN2:STRING(20);
IER,I:INTEGER;
VARE:VPOST;
SYSFIL:SYSFILE;
QUQ:^INTEGER;
KODE1,KODE2:STRING(10);
R:REAL;
(*$L-*)
(*$R-,IEXCOMCOP*)
(*$IIOPEN*)
(*$IREADPROC*)
(*$IFINDPOST*)
(*$IICLOSE*)
(*$IPUTGET*)
(*$L+*)
(*$IREPORT*)
(*$R+*)
PROCEDURE STOP;
VAR I:INTEGER;
BEGIN I:=I DIV 0 END;
PROCEDURE ERROR;
BEGIN
WRITELN('FEJL I VAREREG ',IER);
ICLOSE(VZ.H,F);
WRITELN('ICLOSE ',IER);
STOP
END;
BEGIN
FILNAVN2:='REGVARE:P1:1137:I';
REWRITE(F,FILNAVN2);
I:=IORESULT;
IF I<>0 THEN BEGIN WRITELN('REWRITE ',I);STOP END;
IOPEN(VZ.H,F,SKRIV);
IF IER<>0 THEN WRITE('IOPEN ',IER) ELSE
REPORT(VZ.H,F,1);
ICLOSE(VZ.H,F);
CLEARSCREEN;
WRITELN('ICLOSE ',IER);
END.
0x000…013 Line {l1=0x11, l2=»PROGRAM VAREVEDL;«, l3=0x11}
0x013…022 Line {l1=0x0d, l2=»(*$IISFHEAD*)«, l3=0x0d}
0x022…030 Line {l1=0x0c, l2=»VPOST=RECORD«, l3=0x0c}
0x030…03e Line {l1=0x0c, l2=» A:AR;«, l3=0x0c}
0x03e…068 Line {l1=0x28, l2=» VARENR1,LVRNDØR,OPRLAND,PAKENHED,«, l3=0x28}
0x068…09e Line {l1=0x34, l2=» FORVLEVU,DATSBES1,DATSBES2,DATSORD1,DATSORD2,«, l3=0x34}
0x09e…0c1 Line {l1=0x21, l2=» DÆKGRASÅ,ANAFTILG:INTEGER;«, l3=0x21}
0x0c1…0fb Line {l1=0x38, l2=» NAVN:ARRAY(1..2) OF PACKED ARRAY (1..30) OF CHAR;«, l3=0x38}
0x0fb…145 Line {l1=0x48, l2=» PRIS,KOSTPRIS,TOLDPNR,FYSLAGER,PRIMOLAG,MINLAGER,RESAFLAG,IORDRE,«, l3=0x48}
0x145…18d Line {l1=0x46, l2=» RAIORDRE,STASBEST,ASOLGTIÅ,ASOLGTSÅ,OMSIÅR,OMSSÅR,DÆKBIDTD:REAL«, l3=0x46}
0x18d…193 Line {l1=0x04, l2=»END;«, l3=0x04}
0x193…1a1 Line {l1=0x0c, l2=»ZONE= RECORD«, l3=0x0c}
0x1a1…1b4 Line {l1=0x11, l2=» H:ISFHEAD;«, l3=0x11}
0x1b4…1d7 Line {l1=0x21, l2=» T:ARRAY(1..451) OF INTEGER«, l3=0x21}
0x1d7…1de Line {l1=0x05, l2=» END;«, l3=0x05}
0x1de…1ee Line {l1=0x0e, l2=»SYSPOST=RECORD«, l3=0x0e}
0x1ee…20f Line {l1=0x1f, l2=»HELTAL:ARRAY(1..24) OF INTEGER;«, l3=0x1f}
0x20f…22a Line {l1=0x19, l2=»KGB:ARRAY (1..5) OF REAL;«, l3=0x19}
0x22a…251 Line {l1=0x25, l2=»BETADAT:PACKED ARRAY (1..13) OF CHAR;«, l3=0x25}
0x251…284 Line {l1=0x31, l2=»KODE:ARRAY (1..2) OF PACKED ARRAY (1..10) OF CHAR«, l3=0x31}
0x284…28a Line {l1=0x04, l2=»END;«, l3=0x04}
0x28a…2a4 Line {l1=0x18, l2=»SYSFILE=FILE OF SYSPOST;«, l3=0x18}
0x2a4…2b3 Line {l1=0x0d, l2=»VAR F:ISF;«, l3=0x0d}
0x2b3…2c4 Line {l1=0x0f, l2=» VZ:ZONE;«, l3=0x0f}
0x2c4…2e3 Line {l1=0x1d, l2=»FILNAVN1,FILNAVN2:STRING(20);«, l3=0x1d}
0x2e3…2f9 Line {l1=0x14, l2=» IER,I:INTEGER;«, l3=0x14}
0x2f9…30d Line {l1=0x12, l2=» VARE:VPOST;«, l3=0x12}
0x30d…325 Line {l1=0x16, l2=» SYSFIL:SYSFILE;«, l3=0x16}
0x325…33b Line {l1=0x14, l2=» QUQ:^INTEGER;«, l3=0x14}
0x33b…35b Line {l1=0x1e, l2=» KODE1,KODE2:STRING(10);«, l3=0x1e}
0x35b…36b Line {l1=0x0e, l2=» R:REAL;«, l3=0x0e}
0x36b…374 Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x374…387 Line {l1=0x11, l2=»(*$R-,IEXCOMCOP*)«, l3=0x11}
0x387…394 Line {l1=0x0b, l2=»(*$IIOPEN*)«, l3=0x0b}
0x394…3a4 Line {l1=0x0e, l2=»(*$IREADPROC*)«, l3=0x0e}
0x3a4…3b4 Line {l1=0x0e, l2=»(*$IFINDPOST*)«, l3=0x0e}
0x3b4…3c2 Line {l1=0x0c, l2=»(*$IICLOSE*)«, l3=0x0c}
0x3c2…3d0 Line {l1=0x0c, l2=»(*$IPUTGET*)«, l3=0x0c}
0x3d0…3d9 Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x3d9…3e7 Line {l1=0x0c, l2=»(*$IREPORT*)«, l3=0x0c}
0x3e7…3f0 Line {l1=0x07, l2=»(*$R+*)«, l3=0x07}
0x3f0…401 Line {l1=0x0f, l2=»PROCEDURE STOP;«, l3=0x0f}
0x401…411 Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x411…428 Line {l1=0x15, l2=»BEGIN I:=I DIV 0 END;«, l3=0x15}
0x428…43a Line {l1=0x10, l2=»PROCEDURE ERROR;«, l3=0x10}
0x43a…441 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x441…464 Line {l1=0x21, l2=» WRITELN('FEJL I VAREREG ',IER);«, l3=0x21}
0x464…477 Line {l1=0x11, l2=» ICLOSE(VZ.H,F);«, l3=0x11}
0x477…492 Line {l1=0x19, l2=» WRITELN('ICLOSE ',IER);«, l3=0x19}
0x492…49a Line {l1=0x06, l2=» STOP«, l3=0x06}
0x49a…4a0 Line {l1=0x04, l2=»END;«, l3=0x04}
0x4a0…4a7 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x4a7…4c9 Line {l1=0x20, l2=» FILNAVN2:='REGVARE:P1:1137:I';«, l3=0x20}
0x4c9…4e1 Line {l1=0x16, l2=» REWRITE(F,FILNAVN2);«, l3=0x16}
0x4e1…4f1 Line {l1=0x0e, l2=» I:=IORESULT;«, l3=0x0e}
0x4f1…525 Line {l1=0x32, l2=»IF I<>0 THEN BEGIN WRITELN('REWRITE ',I);STOP END;«, l3=0x32}
0x525…53d Line {l1=0x16, l2=» IOPEN(VZ.H,F,SKRIV);«, l3=0x16}
0x53d…566 Line {l1=0x27, l2=»IF IER<>0 THEN WRITE('IOPEN ',IER) ELSE«, l3=0x27}
0x566…57b Line {l1=0x13, l2=» REPORT(VZ.H,F,1);«, l3=0x13}
0x57b…58e Line {l1=0x11, l2=» ICLOSE(VZ.H,F);«, l3=0x11}
0x58e…59e Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x59e…5b9 Line {l1=0x19, l2=» WRITELN('ICLOSE ',IER);«, l3=0x19}
0x5b9…5bf Line {l1=0x04, l2=»END.«, l3=0x04}
0x5bf…5c0 00 ┆ ┆
0x5c0…5e0 00 45 4e 3b 0e 19 20 20 57 52 49 54 45 4c 4e 28 27 49 43 4c 4f 53 45 20 27 2c 49 45 52 29 3b 19 ┆ EN; WRITELN('ICLOSE ',IER); ┆
0x5e0…600 04 45 4e 44 2e 04 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ END. cccccccccccccccccccccccc┆
0x600…620 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x1d…]
0x9c0…9e0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 00 ┆ccccccccccccccccccccccccccccccc ┆