|
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: »VARNUMRE.K«
└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
└─⟦this⟧ »VARNUMRE.K«
PROGRAM VARNUMRE;
(*$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;
PROCSTAT=RECORD
NP,NROSTART:INTEGER
END;
NPFILE=FILE OF PROCSTAT;
VAR F:ISF;
NRPF,CF:NPFILE;
VZ:ZONE;
FILNAVN2:STRING(20);
GNR,IER,NR,I,J,K :INTEGER;
CH:CHAR;
QUQ:^INTEGER;
VARE:VPOST;
R,FRA,TIL :REAL;
(*$L-*)
(*$R-,IEXCOMCOP*)
(*$IIOPEN*)
(*$IREADPROC*)
(*$IFINDPOST*)
(*$IICLOSE*)
(*$INEXTREC*)
(*$R+*)
(*$L+*)
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:='PROCSTAT:P2:0:I';
(*$C-*)
REPEAT
REWRITE(NRPF,FILNAVN2);
SEEK(NRPF,1)
UNTIL IORESULT=0;
(*$C+*)
GET(NRPF);
NRPF^.NP:=1;
SEEK(NRPF,1);
PUT(NRPF);
REPEAT
GOTOXY(1,20);
WRITELN('Sæt plade 1 i drev 1 og tryk RETURN');
READLN;
(*$C-*)
REWRITE(CF,'C1:P1:0:J');
SEEK(CF,1)
(*$C+*)
UNTIL IORESULT=0;
CLOSE(CF);
CLOSE(NRPF);
FILNAVN2:='REGVARE:P1:1137:I';
RESET(F,FILNAVN2);
IOPEN(VZ.H,F,LÆS);
VARE.VARENR1:=0;
GNR:=1000;
NEXTREC(VZ.H,F,VARE.A);
IF IER<>-1 THEN ERROR;
IER:=0;
WHILE IER=0 DO
BEGIN
WHILE GNR<VARE.VARENR1 DO
BEGIN
WRITELN(LIST,GNR:6);
GNR:=GNR+1;
IF GNR=5000 THEN GNR:=9000
END;
GNR:=GNR+1;
IF GNR=5000 THEN GNR:=9000;
WRITELN(LIST,VARE.VARENR1:6,' ',VARE.NAVN(1));
NEXTREC(VZ.H,F,VARE.A)
END;
WRITELN(LIST);
IF IER<>-2 THEN ERROR;
ICLOSE(VZ.H,F);
CHAIN('INTRE *1','HOVSA:P1',QUQ)
END.
0x000…013 Line {l1=0x11, l2=»PROGRAM VARNUMRE;«, 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…1dd Line {l1=0x04, l2=»END;«, l3=0x04}
0x1dd…1ee Line {l1=0x0f, l2=»PROCSTAT=RECORD«, l3=0x0f}
0x1ee…20a Line {l1=0x1a, l2=» NP,NROSTART:INTEGER«, l3=0x1a}
0x20a…210 Line {l1=0x04, l2=»END;«, l3=0x04}
0x210…22a Line {l1=0x18, l2=»NPFILE=FILE OF PROCSTAT;«, l3=0x18}
0x22a…239 Line {l1=0x0d, l2=»VAR F:ISF;«, l3=0x0d}
0x239…251 Line {l1=0x16, l2=» NRPF,CF:NPFILE;«, l3=0x16}
0x251…262 Line {l1=0x0f, l2=» VZ:ZONE;«, l3=0x0f}
0x262…281 Line {l1=0x1d, l2=» FILNAVN2:STRING(20);«, l3=0x1d}
0x281…2a4 Line {l1=0x21, l2=» GNR,IER,NR,I,J,K :INTEGER;«, l3=0x21}
0x2a4…2b4 Line {l1=0x0e, l2=» CH:CHAR;«, l3=0x0e}
0x2b4…2c9 Line {l1=0x13, l2=» QUQ:^INTEGER;«, l3=0x13}
0x2c9…2dd Line {l1=0x12, l2=» VARE:VPOST;«, l3=0x12}
0x2dd…2f6 Line {l1=0x17, l2=» R,FRA,TIL :REAL;«, l3=0x17}
0x2f6…2ff Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x2ff…312 Line {l1=0x11, l2=»(*$R-,IEXCOMCOP*)«, l3=0x11}
0x312…31f Line {l1=0x0b, l2=»(*$IIOPEN*)«, l3=0x0b}
0x31f…32f Line {l1=0x0e, l2=»(*$IREADPROC*)«, l3=0x0e}
0x32f…33f Line {l1=0x0e, l2=»(*$IFINDPOST*)«, l3=0x0e}
0x33f…34d Line {l1=0x0c, l2=»(*$IICLOSE*)«, l3=0x0c}
0x34d…35c Line {l1=0x0d, l2=»(*$INEXTREC*)«, l3=0x0d}
0x35c…365 Line {l1=0x07, l2=»(*$R+*)«, l3=0x07}
0x365…36e Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x36e…37f Line {l1=0x0f, l2=»PROCEDURE STOP;«, l3=0x0f}
0x37f…38f Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x38f…3a6 Line {l1=0x15, l2=»BEGIN I:=I DIV 0 END;«, l3=0x15}
0x3a6…3b8 Line {l1=0x10, l2=»PROCEDURE ERROR;«, l3=0x10}
0x3b8…3bf Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x3bf…3e2 Line {l1=0x21, l2=» WRITELN('FEJL I VAREREG ',IER);«, l3=0x21}
0x3e2…3f5 Line {l1=0x11, l2=» ICLOSE(VZ.H,F);«, l3=0x11}
0x3f5…410 Line {l1=0x19, l2=» WRITELN('ICLOSE ',IER);«, l3=0x19}
0x410…418 Line {l1=0x06, l2=» STOP«, l3=0x06}
0x418…41e Line {l1=0x04, l2=»END;«, l3=0x04}
0x41e…425 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x425…445 Line {l1=0x1e, l2=» FILNAVN2:='PROCSTAT:P2:0:I';«, l3=0x1e}
0x445…44e Line {l1=0x07, l2=»(*$C-*)«, l3=0x07}
0x44e…458 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x458…475 Line {l1=0x1b, l2=» REWRITE(NRPF,FILNAVN2);«, l3=0x1b}
0x475…487 Line {l1=0x10, l2=» SEEK(NRPF,1)«, l3=0x10}
0x487…49c Line {l1=0x13, l2=» UNTIL IORESULT=0;«, l3=0x13}
0x49c…4a5 Line {l1=0x07, l2=»(*$C+*)«, l3=0x07}
0x4a5…4b3 Line {l1=0x0c, l2=» GET(NRPF);«, l3=0x0c}
0x4b3…4c3 Line {l1=0x0e, l2=» NRPF^.NP:=1;«, l3=0x0e}
0x4c3…4d4 Line {l1=0x0f, l2=» SEEK(NRPF,1);«, l3=0x0f}
0x4d4…4e2 Line {l1=0x0c, l2=» PUT(NRPF);«, l3=0x0c}
0x4e2…4ec Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x4ec…4ff Line {l1=0x11, l2=» GOTOXY(1,20);«, l3=0x11}
0x4ff…534 Line {l1=0x33, l2=» WRITELN('Sæt plade 1 i drev 1 og tryk RETURN');«, l3=0x33}
0x534…541 Line {l1=0x0b, l2=» READLN;«, l3=0x0b}
0x541…54a Line {l1=0x07, l2=»(*$C-*)«, l3=0x07}
0x54a…568 Line {l1=0x1c, l2=» REWRITE(CF,'C1:P1:0:J');«, l3=0x1c}
0x568…578 Line {l1=0x0e, l2=» SEEK(CF,1)«, l3=0x0e}
0x578…581 Line {l1=0x07, l2=»(*$C+*)«, l3=0x07}
0x581…596 Line {l1=0x13, l2=» UNTIL IORESULT=0;«, l3=0x13}
0x596…5a4 Line {l1=0x0c, l2=» CLOSE(CF);«, l3=0x0c}
0x5a4…5b4 Line {l1=0x0e, l2=» CLOSE(NRPF);«, l3=0x0e}
0x5b4…5d6 Line {l1=0x20, l2=» FILNAVN2:='REGVARE:P1:1137:I';«, l3=0x20}
0x5d6…5ec Line {l1=0x14, l2=» RESET(F,FILNAVN2);«, l3=0x14}
0x5ec…602 Line {l1=0x14, l2=» IOPEN(VZ.H,F,LÆS);«, l3=0x14}
0x602…616 Line {l1=0x12, l2=» VARE.VARENR1:=0;«, l3=0x12}
0x616…624 Line {l1=0x0c, l2=» GNR:=1000;«, l3=0x0c}
0x624…63f Line {l1=0x19, l2=» NEXTREC(VZ.H,F,VARE.A);«, l3=0x19}
0x63f…659 Line {l1=0x18, l2=» IF IER<>-1 THEN ERROR;«, l3=0x18}
0x659…664 Line {l1=0x09, l2=» IER:=0;«, l3=0x09}
0x664…676 Line {l1=0x10, l2=» WHILE IER=0 DO«, l3=0x10}
0x676…67f Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x67f…69e Line {l1=0x1d, l2=» WHILE GNR<VARE.VARENR1 DO«, l3=0x1d}
0x69e…6a9 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x6a9…6c5 Line {l1=0x1a, l2=» WRITELN(LIST,GNR:6);«, l3=0x1a}
0x6c5…6d8 Line {l1=0x11, l2=» GNR:=GNR+1;«, l3=0x11}
0x6d8…6fa Line {l1=0x20, l2=» IF GNR=5000 THEN GNR:=9000«, l3=0x20}
0x6fa…704 Line {l1=0x08, l2=» END;«, l3=0x08}
0x704…715 Line {l1=0x0f, l2=» GNR:=GNR+1;«, l3=0x0f}
0x715…736 Line {l1=0x1f, l2=» IF GNR=5000 THEN GNR:=9000;«, l3=0x1f}
0x736…76b Line {l1=0x33, l2=» WRITELN(LIST,VARE.VARENR1:6,' ',VARE.NAVN(1));«, l3=0x33}
0x76b…787 Line {l1=0x1a, l2=» NEXTREC(VZ.H,F,VARE.A)«, l3=0x1a}
0x787…78f Line {l1=0x06, l2=» END;«, l3=0x06}
0x78f…7a1 Line {l1=0x10, l2=» WRITELN(LIST);«, l3=0x10}
0x7a1…7bb Line {l1=0x18, l2=» IF IER<>-2 THEN ERROR;«, l3=0x18}
0x7bb…7ce Line {l1=0x11, l2=» ICLOSE(VZ.H,F);«, l3=0x11}
0x7ce…7f4 Line {l1=0x24, l2=» CHAIN('INTRE *1','HOVSA:P1',QUQ)«, l3=0x24}
0x7f4…7fa Line {l1=0x04, l2=»END.«, l3=0x04}
0x7fa…800 00 00 63 63 63 63 ┆ cccc┆
0x800…820 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┆
[…0xd…]
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 ┆