|
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: 3744 (0xea0)
Types: TextFile
Notes: Mikados_K
Names: »OPSTART.K«
└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
└─⟦this⟧ »OPSTART.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:='SYSREG: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','HOVSA:P1',QUQ)
END.
0x000…012 Line {l1=0x10, l2=»PROGRAM OPSTART;«, l3=0x10}
0x012…018 Line {l1=0x04, l2=»TYPE«, l3=0x04}
0x018…028 Line {l1=0x0e, l2=»SYSPOST=RECORD«, l3=0x0e}
0x028…038 Line {l1=0x0e, l2=»(*DATO1,DATO2,«, l3=0x0e}
0x038…042 Line {l1=0x08, l2=» UGENR,«, l3=0x08}
0x042…04d Line {l1=0x09, l2=» MAXEXC,«, l3=0x09}
0x04d…05c Line {l1=0x0d, l2=» ORDRENR1-2,«, l3=0x0d}
0x05c…06a Line {l1=0x0c, l2=» FAKTNR1-2,«, l3=0x0c}
0x06a…07a Line {l1=0x0e, l2=» KREDNTNR1-2,«, l3=0x0e}
0x07a…0bc Line {l1=0x40, l2=» BILAGSNR1-2,JOURFILNR,MOMS*) HELTAL: ARRAY (1..24) OF INTEGER;«, l3=0x40}
0x0bc…0d9 Line {l1=0x1b, l2=» KGB:ARRAY (1..5) OF REAL;«, l3=0x1b}
0x0d9…102 Line {l1=0x27, l2=» BETADAT:PACKED ARRAY (1..13) OF CHAR;«, l3=0x27}
0x102…149 Line {l1=0x45, l2=»(*KIKKODE,ÆNDKODE*) KODE:ARRAY (1..2) OF PACKED ARRAY (1..10) OF CHAR«, l3=0x45}
0x149…14f Line {l1=0x04, l2=»END;«, l3=0x04}
0x14f…169 Line {l1=0x18, l2=»SYSFILE=FILE OF SYSPOST;«, l3=0x18}
0x169…181 Line {l1=0x16, l2=» PROCSTAT=RECORD«, l3=0x16}
0x181…195 Line {l1=0x12, l2=» NP:INTEGER;«, l3=0x12}
0x195…1ae Line {l1=0x17, l2=» NROSTART:INTEGER«, l3=0x17}
0x1ae…1bb Line {l1=0x0b, l2=» END;«, l3=0x0b}
0x1bb…1d7 Line {l1=0x1a, l2=»NPFILE = FILE OF PROCSTAT;«, l3=0x1a}
0x1d7…1ea Line {l1=0x11, l2=»VAR F:SYSFILE;«, l3=0x11}
0x1ea…1fd Line {l1=0x11, l2=» I:INTEGER;«, l3=0x11}
0x1fd…213 Line {l1=0x14, l2=» QUQ:^INTEGER;«, l3=0x14}
0x213…228 Line {l1=0x13, l2=» NRPF:NPFILE;«, l3=0x13}
0x228…240 Line {l1=0x16, l2=» FIL:STRING(20);«, l3=0x16}
0x240…25a Line {l1=0x18, l2=» TEKST:STRING(13);«, l3=0x18}
0x25a…26b Line {l1=0x0f, l2=» CH:CHAR;«, l3=0x0f}
0x26b…27e Line {l1=0x11, l2=» R1,R:REAL;«, l3=0x11}
0x27e…285 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x285…2a0 Line {l1=0x19, l2=» FIL:='PROCSTAT:P2:0:I';«, l3=0x19}
0x2a0…2a9 Line {l1=0x07, l2=»(*$C-*)«, l3=0x07}
0x2a9…2b3 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x2b3…2c9 Line {l1=0x14, l2=» REWRITE(NRPF,FIL);«, l3=0x14}
0x2c9…2da Line {l1=0x0f, l2=» SEEK(NRPF,1);«, l3=0x0f}
0x2da…2ea Line {l1=0x0e, l2=» I:=IORESULT;«, l3=0x0e}
0x2ea…330 Line {l1=0x44, l2=» IF I<>0 THEN BEGIN WRITELN('Ret fejl ved plade i drev 2, RETURN');«, l3=0x44}
0x330…351 Line {l1=0x1f, l2=» READLN END«, l3=0x1f}
0x351…35f Line {l1=0x0c, l2=» UNTIL I=0;«, l3=0x0c}
0x35f…368 Line {l1=0x07, l2=»(*$C+*)«, l3=0x07}
0x368…376 Line {l1=0x0c, l2=» GET(NRPF);«, l3=0x0c}
0x376…38d Line {l1=0x15, l2=» IF NRPF^.NP=-1 THEN«, l3=0x15}
0x38d…396 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x396…3da Line {l1=0x42, l2=»WRITELN(LIST,'<ShhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhHHHHHHHHHHHH>');«, l3=0x42}
0x3da…422 Line {l1=0x46, l2=»WRITELN(LIST,'<SvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvVVVVVVVVVVVVVVVV>');«, l3=0x46}
0x422…463 Line {l1=0x3f, l2=»WRITELN(LIST,'<Smmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm>');«, l3=0x3f}
0x463…475 Line {l1=0x10, l2=» NRPF^.NP:=0;«, l3=0x10}
0x475…490 Line {l1=0x19, l2=» FIL:='SYSREG:P2:1:I';«, l3=0x19}
0x490…4a5 Line {l1=0x13, l2=» REWRITE(F,FIL);«, l3=0x13}
0x4a5…4b5 Line {l1=0x0e, l2=» SEEK(F,1);«, l3=0x0e}
0x4b5…4c2 Line {l1=0x0b, l2=» GET(F);«, l3=0x0b}
0x4c2…4d4 Line {l1=0x10, l2=» CLEARSCREEN;«, l3=0x10}
0x4d4…4e8 Line {l1=0x12, l2=» GOTOXY(20,10);«, l3=0x12}
0x4e8…515 Line {l1=0x2b, l2=» R:=F^.HELTAL(1)*10000.0+F^.HELTAL(2)+1;«, l3=0x2b}
0x515…54a Line {l1=0x33, l2=» WRITELN('Systemdato : ',R:10:-2,' (J/N) ');«, l3=0x33}
0x54a…556 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x556…57b Line {l1=0x23, l2=» GOTOXY(57,10);READLN;READ(CH)«, l3=0x23}
0x57b…5c7 Line {l1=0x4a, l2=» UNTIL (IORESULT=0) AND ((CH='J') OR (CH='N') OR (CH='j') OR (CH='n'));«, l3=0x4a}
0x5c7…5d3 Line {l1=0x0a, l2=» R1:=R;«, l3=0x0a}
0x5d3…5f5 Line {l1=0x20, l2=» IF (CH='N') OR (CH='n') THEN«, l3=0x20}
0x5f5…601 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x601…62f Line {l1=0x2c, l2=» GOTOXY(45,10);WRITELN('Ny dato ');«, l3=0x2c}
0x62f…63d Line {l1=0x0c, l2=» REPEAT«, l3=0x0c}
0x63d…664 Line {l1=0x25, l2=» GOTOXY(57,10);READLN;READ(R1)«, l3=0x25}
0x664…67f Line {l1=0x19, l2=» UNTIL (IORESULT=0);«, l3=0x19}
0x67f…6a8 Line {l1=0x27, l2=» IF ((R1-R)<-1) OR ((R1-R)>2) THEN«, l3=0x27}
0x6a8…6b5 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x6b5…6f8 Line {l1=0x41, l2=» GOTOXY(20,11);WRITELN('Ny dato : ',R1:10:-2,' J/N ');«, l3=0x41}
0x6f8…708 Line {l1=0x0e, l2=» REPEAT«, l3=0x0e}
0x708…731 Line {l1=0x27, l2=» GOTOXY(57,11);READLN;READ(CH)«, l3=0x27}
0x731…780 Line {l1=0x4d, l2=» UNTIL (IORESULT=0) AND ((CH='J') OR (CH='N') OR (CH='j') OR (CH='n'))«, l3=0x4d}
0x780…78b Line {l1=0x09, l2=» END«, l3=0x09}
0x78b…7a0 Line {l1=0x13, l2=» ELSE CH:='J';«, l3=0x13}
0x7a0…7c1 Line {l1=0x1f, l2=» UNTIL (CH='J') OR (CH='j');«, l3=0x1f}
0x7c1…7e5 Line {l1=0x22, l2=» F^.HELTAL(1):=TRUNC(R1/10000);«, l3=0x22}
0x7e5…818 Line {l1=0x31, l2=» F^.HELTAL(2):=TRUNC(R1-F^.HELTAL(1)*10000.0);«, l3=0x31}
0x818…82c Line {l1=0x12, l2=» GOTOXY(20,12);«, l3=0x12}
0x82c…842 Line {l1=0x14, l2=» I:=F^.HELTAL(3);«, l3=0x14}
0x842…874 Line {l1=0x30, l2=» WRITELN('Ugenr : ',I:10,' (J/N) ');«, l3=0x30}
0x874…880 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x880…8a5 Line {l1=0x23, l2=» GOTOXY(57,12);READLN;READ(CH)«, l3=0x23}
0x8a5…8f1 Line {l1=0x4a, l2=» UNTIL (IORESULT=0) AND ((CH='J') OR (CH='N') OR (CH='j') OR (CH='n'));«, l3=0x4a}
0x8f1…913 Line {l1=0x20, l2=» IF (CH='N') OR (CH='n') THEN«, l3=0x20}
0x913…91f Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x91f…94e Line {l1=0x2d, l2=» GOTOXY(45,12);WRITELN('Nyt ugenr ');«, l3=0x2d}
0x94e…95c Line {l1=0x0c, l2=» REPEAT«, l3=0x0c}
0x95c…982 Line {l1=0x24, l2=» GOTOXY(57,12);READLN;READ(I)«, l3=0x24}
0x982…99d Line {l1=0x19, l2=» UNTIL (IORESULT=0);«, l3=0x19}
0x99d…9da Line {l1=0x3b, l2=» IF ((I-F^.HELTAL(3))<-1) OR ((I-F^.HELTAL(3))>2) THEN«, l3=0x3b}
0x9da…9e7 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x9e7…a26 Line {l1=0x3d, l2=» GOTOXY(20,13);WRITELN('Nyt ugenr : ',I:10,' J/N ');«, l3=0x3d}
0xa26…a36 Line {l1=0x0e, l2=» REPEAT«, l3=0x0e}
0xa36…a5f Line {l1=0x27, l2=» GOTOXY(57,13);READLN;READ(CH)«, l3=0x27}
0xa5f…aae Line {l1=0x4d, l2=» UNTIL (IORESULT=0) AND ((CH='J') OR (CH='N') OR (CH='j') OR (CH='n'))«, l3=0x4d}
0xaae…ab9 Line {l1=0x09, l2=» END«, l3=0x09}
0xab9…ace Line {l1=0x13, l2=» ELSE CH:='J';«, l3=0x13}
0xace…aef Line {l1=0x1f, l2=» UNTIL (CH='J') OR (CH='j');«, l3=0x1f}
0xaef…b05 Line {l1=0x14, l2=» F^.HELTAL(3):=I;«, l3=0x14}
0xb05…b11 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0xb11…b56 Line {l1=0x43, l2=» GOTOXY(20,14);WRITELN('Betalingsdato ',F^.BETADAT,' (J/N) ');«, l3=0x43}
0xb56…b64 Line {l1=0x0c, l2=» REPEAT«, l3=0x0c}
0xb64…b8b Line {l1=0x25, l2=» GOTOXY(57,14);READLN;READ(CH)«, l3=0x25}
0xb8b…bd9 Line {l1=0x4c, l2=» UNTIL (IORESULT=0) AND ((CH='J') OR (CH='N') OR (CH='j') OR (CH='n'));«, l3=0x4c}
0xbd9…bfd Line {l1=0x22, l2=» IF (CH='N') OR (CH='n') THEN«, l3=0x22}
0xbfd…c0a Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0xc0a…c35 Line {l1=0x29, l2=» GOTOXY(20,15);WRITELN('Ny dato');«, l3=0x29}
0xc35…c45 Line {l1=0x0e, l2=» REPEAT«, l3=0x0e}
0xc45…c71 Line {l1=0x2a, l2=» GOTOXY(34,15);READLN;READ(TEKST)«, l3=0x2a}
0xc71…c8c Line {l1=0x19, l2=» UNTIL IORESULT=0;«, l3=0x19}
0xc8c…cbb Line {l1=0x2d, l2=» FOR I:=1 TO 13 DO F^.BETADAT(I):=' ';«, l3=0x2d}
0xcbb…cf9 Line {l1=0x3c, l2=» FOR I:=1 TO LENGTH(TEKST) DO F^.BETADAT(I):=TEKST(I)«, l3=0x3c}
0xcf9…d04 Line {l1=0x09, l2=» END«, l3=0x09}
0xd04…d25 Line {l1=0x1f, l2=» UNTIL (CH='J') OR (CH='j');«, l3=0x1f}
0xd25…d4c Line {l1=0x25, l2=» NRPF^.NROSTART:=NRPF^.NROSTART+1;«, l3=0x25}
0xd4c…d5c Line {l1=0x0e, l2=» SEEK(F,1);«, l3=0x0e}
0xd5c…d69 Line {l1=0x0b, l2=» PUT(F);«, l3=0x0b}
0xd69…d77 Line {l1=0x0c, l2=» CLOSE(F)«, l3=0x0c}
0xd77…d7f Line {l1=0x06, l2=» END;«, l3=0x06}
0xd7f…d98 Line {l1=0x17, l2=» NRPF^.NP:=NRPF^.NP+1;«, l3=0x17}
0xd98…da9 Line {l1=0x0f, l2=» SEEK(NRPF,1);«, l3=0x0f}
0xda9…db7 Line {l1=0x0c, l2=» PUT(NRPF);«, l3=0x0c}
0xdb7…dc7 Line {l1=0x0e, l2=» CLOSE(NRPF);«, l3=0x0e}
0xdc7…ded Line {l1=0x24, l2=» CHAIN('INTRE *1','HOVSA:P1',QUQ)«, l3=0x24}
0xded…df3 Line {l1=0x04, l2=»END.«, l3=0x04}
0xdf3…e00 00 00 48 41 49 4e 28 27 49 4e 54 52 45 ┆ HAIN('INTRE┆
0xe00…e20 20 20 20 2a 31 27 2c 27 48 4f 56 53 41 3a 50 31 27 2c 51 55 51 29 24 04 45 4e 44 2e 04 00 00 00 ┆ *1','HOVSA:P1',QUQ)$ END. ┆
0xe20…e40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x3…]