|
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: 5056 (0x13c0)
Types: TextFile
Notes: Mikados_K
Names: »OPSTART1.K«
└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
└─⟦this⟧ »OPSTART1.K«
PROGRAM OPSTART;
TYPE
SYSPOST=RECORD
(*DATO1,DATO2,
UGENR,
MAXEXC,
ORDRENR1-2,
FAKTNR1-2,
KREDNTNR1-2,
BILAGSNR1-2,JOURFILNR,MOMS*) HELTAL: ARRAY (1..24) OF INTEGER;
KGB:ARRAY (1..5) OF REAL;
BETADAT:PACKED ARRAY (1..13) OF CHAR;
(*KIKKODE,ÆNDKODE*) KODE:ARRAY (1..2) OF PACKED ARRAY (1..10) OF CHAR
END;
SYSFILE=FILE OF SYSPOST;
PROCSTAT=RECORD
NP:INTEGER;
NROSTART:INTEGER
END;
NPFILE = FILE OF PROCSTAT;
VAR F:SYSFILE;
I:INTEGER;
QUQ:^INTEGER;
NRPF:NPFILE;
FIL:STRING(20);
TEKST:STRING(13);
CH:CHAR;
R1,R:REAL;
BEGIN
FIL:='PROCSTAT:P2:0:I';
(*$C-*)
REPEAT
REWRITE(NRPF,FIL);
SEEK(NRPF,1);
I:=IORESULT;
IF I<>0 THEN BEGIN WRITELN('Ret fejl ved plade i drev 2, RETURN');
READLN END
UNTIL I=0;
(*$C+*)
GET(NRPF);
IF NRPF^.NP=-1 THEN
BEGIN
WRITELN(LIST,'<ShhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhHHHHHHHHHHHH>');
WRITELN(LIST,'<SvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvVVVVVVVVVVVVVVVV>');
WRITELN(LIST,'<Smmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm>');
NRPF^.NP:=0;
FIL:='SYSREG1:P2:1:I';
REWRITE(F,FIL);
SEEK(F,1);
GET(F);
CLEARSCREEN;
GOTOXY(20,10);
R:=F^.HELTAL(1)*10000.0+F^.HELTAL(2)+1;
WRITELN('Systemdato : ',R:10:-2,' (J/N) ');
REPEAT
GOTOXY(57,10);READLN;READ(CH)
UNTIL (IORESULT=0) AND ((CH='J') OR (CH='N') OR (CH='j') OR (CH='n'));
R1:=R;
IF (CH='N') OR (CH='n') THEN
REPEAT
GOTOXY(45,10);WRITELN('Ny dato ');
REPEAT
GOTOXY(57,10);READLN;READ(R1)
UNTIL (IORESULT=0);
IF ((R1-R)<-1) OR ((R1-R)>2) THEN
BEGIN
GOTOXY(20,11);WRITELN('Ny dato : ',R1:10:-2,' J/N ');
REPEAT
GOTOXY(57,11);READLN;READ(CH)
UNTIL (IORESULT=0) AND ((CH='J') OR (CH='N') OR (CH='j') OR (CH='n'))
END
ELSE CH:='J';
UNTIL (CH='J') OR (CH='j');
F^.HELTAL(1):=TRUNC(R1/10000);
F^.HELTAL(2):=TRUNC(R1-F^.HELTAL(1)*10000.0);
GOTOXY(20,12);
I:=F^.HELTAL(3);
WRITELN('Ugenr : ',I:10,' (J/N) ');
REPEAT
GOTOXY(57,12);READLN;READ(CH)
UNTIL (IORESULT=0) AND ((CH='J') OR (CH='N') OR (CH='j') OR (CH='n'));
IF (CH='N') OR (CH='n') THEN
REPEAT
GOTOXY(45,12);WRITELN('Nyt ugenr ');
REPEAT
GOTOXY(57,12);READLN;READ(I)
UNTIL (IORESULT=0);
IF ((I-F^.HELTAL(3))<-1) OR ((I-F^.HELTAL(3))>2) THEN
BEGIN
GOTOXY(20,13);WRITELN('Nyt ugenr : ',I:10,' J/N ');
REPEAT
GOTOXY(57,13);READLN;READ(CH)
UNTIL (IORESULT=0) AND ((CH='J') OR (CH='N') OR (CH='j') OR (CH='n'))
END
ELSE CH:='J';
UNTIL (CH='J') OR (CH='j');
F^.HELTAL(3):=I;
REPEAT
GOTOXY(20,14);WRITELN('Betalingsdato ',F^.BETADAT,' (J/N) ');
REPEAT
GOTOXY(57,14);READLN;READ(CH)
UNTIL (IORESULT=0) AND ((CH='J') OR (CH='N') OR (CH='j') OR (CH='n'));
IF (CH='N') OR (CH='n') THEN
BEGIN
GOTOXY(20,15);WRITELN('Ny dato');
REPEAT
GOTOXY(34,15);READLN;READ(TEKST)
UNTIL IORESULT=0;
FOR I:=1 TO 13 DO F^.BETADAT(I):=' ';
FOR I:=1 TO LENGTH(TEKST) DO F^.BETADAT(I):=TEKST(I)
END
UNTIL (CH='J') OR (CH='j');
NRPF^.NROSTART:=NRPF^.NROSTART+1;
SEEK(F,1);
PUT(F);
CLOSE(F)
END;
NRPF^.NP:=NRPF^.NP+1;
SEEK(NRPF,1);
PUT(NRPF);
CLOSE(NRPF);
CHAIN('INTRE *1','HOVSA1:P1',QUQ)
END.
0x0000…0012 Line {l1=0x10, l2=»PROGRAM OPSTART;«, l3=0x10}
0x0012…0018 Line {l1=0x04, l2=»TYPE«, l3=0x04}
0x0018…0028 Line {l1=0x0e, l2=»SYSPOST=RECORD«, l3=0x0e}
0x0028…0038 Line {l1=0x0e, l2=»(*DATO1,DATO2,«, l3=0x0e}
0x0038…0042 Line {l1=0x08, l2=» UGENR,«, l3=0x08}
0x0042…004d Line {l1=0x09, l2=» MAXEXC,«, l3=0x09}
0x004d…005c Line {l1=0x0d, l2=» ORDRENR1-2,«, l3=0x0d}
0x005c…006a Line {l1=0x0c, l2=» FAKTNR1-2,«, l3=0x0c}
0x006a…007a Line {l1=0x0e, l2=» KREDNTNR1-2,«, l3=0x0e}
0x007a…00bc Line {l1=0x40, l2=» BILAGSNR1-2,JOURFILNR,MOMS*) HELTAL: ARRAY (1..24) OF INTEGER;«, l3=0x40}
0x00bc…00d9 Line {l1=0x1b, l2=» KGB:ARRAY (1..5) OF REAL;«, l3=0x1b}
0x00d9…0102 Line {l1=0x27, l2=» BETADAT:PACKED ARRAY (1..13) OF CHAR;«, l3=0x27}
0x0102…0149 Line {l1=0x45, l2=»(*KIKKODE,ÆNDKODE*) KODE:ARRAY (1..2) OF PACKED ARRAY (1..10) OF CHAR«, l3=0x45}
0x0149…014f Line {l1=0x04, l2=»END;«, l3=0x04}
0x014f…0169 Line {l1=0x18, l2=»SYSFILE=FILE OF SYSPOST;«, l3=0x18}
0x0169…0181 Line {l1=0x16, l2=» PROCSTAT=RECORD«, l3=0x16}
0x0181…0195 Line {l1=0x12, l2=» NP:INTEGER;«, l3=0x12}
0x0195…01ae Line {l1=0x17, l2=» NROSTART:INTEGER«, l3=0x17}
0x01ae…01bb Line {l1=0x0b, l2=» END;«, l3=0x0b}
0x01bb…01d7 Line {l1=0x1a, l2=»NPFILE = FILE OF PROCSTAT;«, l3=0x1a}
0x01d7…01ea Line {l1=0x11, l2=»VAR F:SYSFILE;«, l3=0x11}
0x01ea…01fd Line {l1=0x11, l2=» I:INTEGER;«, l3=0x11}
0x01fd…0213 Line {l1=0x14, l2=» QUQ:^INTEGER;«, l3=0x14}
0x0213…0228 Line {l1=0x13, l2=» NRPF:NPFILE;«, l3=0x13}
0x0228…0240 Line {l1=0x16, l2=» FIL:STRING(20);«, l3=0x16}
0x0240…025a Line {l1=0x18, l2=» TEKST:STRING(13);«, l3=0x18}
0x025a…026b Line {l1=0x0f, l2=» CH:CHAR;«, l3=0x0f}
0x026b…027e Line {l1=0x11, l2=» R1,R:REAL;«, l3=0x11}
0x027e…0285 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0285…02a0 Line {l1=0x19, l2=» FIL:='PROCSTAT:P2:0:I';«, l3=0x19}
0x02a0…02a9 Line {l1=0x07, l2=»(*$C-*)«, l3=0x07}
0x02a9…02b3 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x02b3…02c9 Line {l1=0x14, l2=» REWRITE(NRPF,FIL);«, l3=0x14}
0x02c9…02da Line {l1=0x0f, l2=» SEEK(NRPF,1);«, l3=0x0f}
0x02da…02ea Line {l1=0x0e, l2=» I:=IORESULT;«, l3=0x0e}
0x02ea…0330 Line {l1=0x44, l2=» IF I<>0 THEN BEGIN WRITELN('Ret fejl ved plade i drev 2, RETURN');«, l3=0x44}
0x0330…0351 Line {l1=0x1f, l2=» READLN END«, l3=0x1f}
0x0351…035f Line {l1=0x0c, l2=» UNTIL I=0;«, l3=0x0c}
0x035f…0368 Line {l1=0x07, l2=»(*$C+*)«, l3=0x07}
0x0368…0376 Line {l1=0x0c, l2=» GET(NRPF);«, l3=0x0c}
0x0376…038d Line {l1=0x15, l2=» IF NRPF^.NP=-1 THEN«, l3=0x15}
0x038d…0396 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0396…03da Line {l1=0x42, l2=»WRITELN(LIST,'<ShhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhHHHHHHHHHHHH>');«, l3=0x42}
0x03da…0422 Line {l1=0x46, l2=»WRITELN(LIST,'<SvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvVVVVVVVVVVVVVVVV>');«, l3=0x46}
0x0422…0463 Line {l1=0x3f, l2=»WRITELN(LIST,'<Smmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm>');«, l3=0x3f}
0x0463…0475 Line {l1=0x10, l2=» NRPF^.NP:=0;«, l3=0x10}
0x0475…0491 Line {l1=0x1a, l2=» FIL:='SYSREG1:P2:1:I';«, l3=0x1a}
0x0491…04a6 Line {l1=0x13, l2=» REWRITE(F,FIL);«, l3=0x13}
0x04a6…04b6 Line {l1=0x0e, l2=» SEEK(F,1);«, l3=0x0e}
0x04b6…04c3 Line {l1=0x0b, l2=» GET(F);«, l3=0x0b}
0x04c3…04d5 Line {l1=0x10, l2=» CLEARSCREEN;«, l3=0x10}
0x04d5…04e9 Line {l1=0x12, l2=» GOTOXY(20,10);«, l3=0x12}
0x04e9…0516 Line {l1=0x2b, l2=» R:=F^.HELTAL(1)*10000.0+F^.HELTAL(2)+1;«, l3=0x2b}
0x0516…054b Line {l1=0x33, l2=» WRITELN('Systemdato : ',R:10:-2,' (J/N) ');«, l3=0x33}
0x054b…0557 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x0557…057c Line {l1=0x23, l2=» GOTOXY(57,10);READLN;READ(CH)«, l3=0x23}
0x057c…05c8 Line {l1=0x4a, l2=» UNTIL (IORESULT=0) AND ((CH='J') OR (CH='N') OR (CH='j') OR (CH='n'));«, l3=0x4a}
0x05c8…05d4 Line {l1=0x0a, l2=» R1:=R;«, l3=0x0a}
0x05d4…05f6 Line {l1=0x20, l2=» IF (CH='N') OR (CH='n') THEN«, l3=0x20}
0x05f6…0602 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x0602…0630 Line {l1=0x2c, l2=» GOTOXY(45,10);WRITELN('Ny dato ');«, l3=0x2c}
0x0630…063e Line {l1=0x0c, l2=» REPEAT«, l3=0x0c}
0x063e…0665 Line {l1=0x25, l2=» GOTOXY(57,10);READLN;READ(R1)«, l3=0x25}
0x0665…0680 Line {l1=0x19, l2=» UNTIL (IORESULT=0);«, l3=0x19}
0x0680…06a9 Line {l1=0x27, l2=» IF ((R1-R)<-1) OR ((R1-R)>2) THEN«, l3=0x27}
0x06a9…06b6 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x06b6…06f9 Line {l1=0x41, l2=» GOTOXY(20,11);WRITELN('Ny dato : ',R1:10:-2,' J/N ');«, l3=0x41}
0x06f9…0709 Line {l1=0x0e, l2=» REPEAT«, l3=0x0e}
0x0709…0732 Line {l1=0x27, l2=» GOTOXY(57,11);READLN;READ(CH)«, l3=0x27}
0x0732…0781 Line {l1=0x4d, l2=» UNTIL (IORESULT=0) AND ((CH='J') OR (CH='N') OR (CH='j') OR (CH='n'))«, l3=0x4d}
0x0781…078c Line {l1=0x09, l2=» END«, l3=0x09}
0x078c…07a1 Line {l1=0x13, l2=» ELSE CH:='J';«, l3=0x13}
0x07a1…07c2 Line {l1=0x1f, l2=» UNTIL (CH='J') OR (CH='j');«, l3=0x1f}
0x07c2…07e6 Line {l1=0x22, l2=» F^.HELTAL(1):=TRUNC(R1/10000);«, l3=0x22}
0x07e6…0819 Line {l1=0x31, l2=» F^.HELTAL(2):=TRUNC(R1-F^.HELTAL(1)*10000.0);«, l3=0x31}
0x0819…082d Line {l1=0x12, l2=» GOTOXY(20,12);«, l3=0x12}
0x082d…0843 Line {l1=0x14, l2=» I:=F^.HELTAL(3);«, l3=0x14}
0x0843…0875 Line {l1=0x30, l2=» WRITELN('Ugenr : ',I:10,' (J/N) ');«, l3=0x30}
0x0875…0881 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x0881…08a6 Line {l1=0x23, l2=» GOTOXY(57,12);READLN;READ(CH)«, l3=0x23}
0x08a6…08f2 Line {l1=0x4a, l2=» UNTIL (IORESULT=0) AND ((CH='J') OR (CH='N') OR (CH='j') OR (CH='n'));«, l3=0x4a}
0x08f2…0914 Line {l1=0x20, l2=» IF (CH='N') OR (CH='n') THEN«, l3=0x20}
0x0914…0920 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x0920…094f Line {l1=0x2d, l2=» GOTOXY(45,12);WRITELN('Nyt ugenr ');«, l3=0x2d}
0x094f…095d Line {l1=0x0c, l2=» REPEAT«, l3=0x0c}
0x095d…0983 Line {l1=0x24, l2=» GOTOXY(57,12);READLN;READ(I)«, l3=0x24}
0x0983…099e Line {l1=0x19, l2=» UNTIL (IORESULT=0);«, l3=0x19}
0x099e…09db Line {l1=0x3b, l2=» IF ((I-F^.HELTAL(3))<-1) OR ((I-F^.HELTAL(3))>2) THEN«, l3=0x3b}
0x09db…09e8 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x09e8…0a27 Line {l1=0x3d, l2=» GOTOXY(20,13);WRITELN('Nyt ugenr : ',I:10,' J/N ');«, l3=0x3d}
0x0a27…0a37 Line {l1=0x0e, l2=» REPEAT«, l3=0x0e}
0x0a37…0a60 Line {l1=0x27, l2=» GOTOXY(57,13);READLN;READ(CH)«, l3=0x27}
0x0a60…0aaf Line {l1=0x4d, l2=» UNTIL (IORESULT=0) AND ((CH='J') OR (CH='N') OR (CH='j') OR (CH='n'))«, l3=0x4d}
0x0aaf…0aba Line {l1=0x09, l2=» END«, l3=0x09}
0x0aba…0acf Line {l1=0x13, l2=» ELSE CH:='J';«, l3=0x13}
0x0acf…0af0 Line {l1=0x1f, l2=» UNTIL (CH='J') OR (CH='j');«, l3=0x1f}
0x0af0…0b06 Line {l1=0x14, l2=» F^.HELTAL(3):=I;«, l3=0x14}
0x0b06…0b12 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x0b12…0b57 Line {l1=0x43, l2=» GOTOXY(20,14);WRITELN('Betalingsdato ',F^.BETADAT,' (J/N) ');«, l3=0x43}
0x0b57…0b65 Line {l1=0x0c, l2=» REPEAT«, l3=0x0c}
0x0b65…0b8c Line {l1=0x25, l2=» GOTOXY(57,14);READLN;READ(CH)«, l3=0x25}
0x0b8c…0bda Line {l1=0x4c, l2=» UNTIL (IORESULT=0) AND ((CH='J') OR (CH='N') OR (CH='j') OR (CH='n'));«, l3=0x4c}
0x0bda…0bfe Line {l1=0x22, l2=» IF (CH='N') OR (CH='n') THEN«, l3=0x22}
0x0bfe…0c0b Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x0c0b…0c36 Line {l1=0x29, l2=» GOTOXY(20,15);WRITELN('Ny dato');«, l3=0x29}
0x0c36…0c46 Line {l1=0x0e, l2=» REPEAT«, l3=0x0e}
0x0c46…0c72 Line {l1=0x2a, l2=» GOTOXY(34,15);READLN;READ(TEKST)«, l3=0x2a}
0x0c72…0c8d Line {l1=0x19, l2=» UNTIL IORESULT=0;«, l3=0x19}
0x0c8d…0cbc Line {l1=0x2d, l2=» FOR I:=1 TO 13 DO F^.BETADAT(I):=' ';«, l3=0x2d}
0x0cbc…0cfa Line {l1=0x3c, l2=» FOR I:=1 TO LENGTH(TEKST) DO F^.BETADAT(I):=TEKST(I)«, l3=0x3c}
0x0cfa…0d05 Line {l1=0x09, l2=» END«, l3=0x09}
0x0d05…0d26 Line {l1=0x1f, l2=» UNTIL (CH='J') OR (CH='j');«, l3=0x1f}
0x0d26…0d4d Line {l1=0x25, l2=» NRPF^.NROSTART:=NRPF^.NROSTART+1;«, l3=0x25}
0x0d4d…0d5d Line {l1=0x0e, l2=» SEEK(F,1);«, l3=0x0e}
0x0d5d…0d6a Line {l1=0x0b, l2=» PUT(F);«, l3=0x0b}
0x0d6a…0d78 Line {l1=0x0c, l2=» CLOSE(F)«, l3=0x0c}
0x0d78…0d80 Line {l1=0x06, l2=» END;«, l3=0x06}
0x0d80…0d99 Line {l1=0x17, l2=» NRPF^.NP:=NRPF^.NP+1;«, l3=0x17}
0x0d99…0daa Line {l1=0x0f, l2=» SEEK(NRPF,1);«, l3=0x0f}
0x0daa…0db8 Line {l1=0x0c, l2=» PUT(NRPF);«, l3=0x0c}
0x0db8…0dc8 Line {l1=0x0e, l2=» CLOSE(NRPF);«, l3=0x0e}
0x0dc8…0def Line {l1=0x25, l2=» CHAIN('INTRE *1','HOVSA1:P1',QUQ)«, l3=0x25}
0x0def…0df5 Line {l1=0x04, l2=»END.«, l3=0x04}
0x0df5…0e00 00 00 63 63 63 63 63 63 63 63 63 ┆ ccccccccc┆
0x0e00…0e20 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┆
[…0x2c…]
0x13a0…13c0 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 ┆