|
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: 2496 (0x9c0)
Types: TextFile
Notes: Mikados_K
Names: »LISTKNUD.K«
└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
└─⟦this⟧ »LISTKNUD.K«
PROGRAM LISTKNUD;
CONST ML=48;
TYPE
PROCSTAT=RECORD
NP,NROSTART:INTEGER
END;
NPFILE=FILE OF PROCSTAT;
VAR S:STRING(20);SS:STRING(120);
LINES:ARRAY (1..30) OF STRING(120);
L,I:INTEGER;
QUQ:^INTEGER;
NRPF,CF:NPFILE;
F:TEXT;
PROCEDURE FF;
BEGIN
L:=L MOD ML;
WHILE L<ML DO
BEGIN
WRITELN(LIST);
L:=L+1
END;
L:=0
END;
BEGIN
L:=0;
FOR I:=1 TO 1 DO WRITELN(LIST);
S:='KLABELS:P1:30:K';
REWRITE(F,S);
READLN(F);
IF NOT EOF(F) THEN
BEGIN
FOR I:=1 TO 30 DO BEGIN
READLN(F,LINES(I));
IF LINES(I)='%P' THEN FF ELSE BEGIN L:=L+1;
WRITELN(LIST,LINES(I)) END;
IF EOF(F) THEN I:=30
END;
REPEAT
REPEAT
CLEARSCREEN;
GOTOXY(1,5);
WRITELN('FLERE TESTPRINT, 0 FOR NEJ');
GOTOXY(40,5);
READLN;READ(I)
UNTIL IORESULT=0;
IF I<>0 THEN
FOR I:=1 TO 30 DO
IF LINES(I)='%P' THEN FF ELSE BEGIN WRITELN(LIST,LINES(I));L:=L+1 END
UNTIL I=0;
WHILE NOT EOF(F) DO
BEGIN
READLN(F,SS);
IF SS='%P' THEN FF ELSE
BEGIN
L:=L+1;
WRITELN(LIST,SS)
END
END;
END;
CLOSE(F);
S:='PROCSTAT:P2:0:I';
(*$C-*)
REPEAT
REWRITE(NRPF,S);
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);
CHAIN('INTRE *1','HOVSA:P1',QUQ)
END.
0x000…013 Line {l1=0x11, l2=»PROGRAM LISTKNUD;«, l3=0x11}
0x013…021 Line {l1=0x0c, l2=»CONST ML=48;«, l3=0x0c}
0x021…027 Line {l1=0x04, l2=»TYPE«, l3=0x04}
0x027…038 Line {l1=0x0f, l2=»PROCSTAT=RECORD«, l3=0x0f}
0x038…054 Line {l1=0x1a, l2=» NP,NROSTART:INTEGER«, l3=0x1a}
0x054…05a Line {l1=0x04, l2=»END;«, l3=0x04}
0x05a…074 Line {l1=0x18, l2=»NPFILE=FILE OF PROCSTAT;«, l3=0x18}
0x074…096 Line {l1=0x20, l2=»VAR S:STRING(20);SS:STRING(120);«, l3=0x20}
0x096…0bf Line {l1=0x27, l2=» LINES:ARRAY (1..30) OF STRING(120);«, l3=0x27}
0x0bf…0cf Line {l1=0x0e, l2=» L,I:INTEGER;«, l3=0x0e}
0x0cf…0e2 Line {l1=0x11, l2=» QUQ:^INTEGER;«, l3=0x11}
0x0e2…0f7 Line {l1=0x13, l2=» NRPF,CF:NPFILE;«, l3=0x13}
0x0f7…104 Line {l1=0x0b, l2=» F:TEXT;«, l3=0x0b}
0x104…113 Line {l1=0x0d, l2=»PROCEDURE FF;«, l3=0x0d}
0x113…11a Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x11a…12a Line {l1=0x0e, l2=» L:=L MOD ML;«, l3=0x0e}
0x12a…13b Line {l1=0x0f, l2=» WHILE L<ML DO«, l3=0x0f}
0x13b…144 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x144…158 Line {l1=0x12, l2=» WRITELN(LIST);«, l3=0x12}
0x158…164 Line {l1=0x0a, l2=» L:=L+1«, l3=0x0a}
0x164…16c Line {l1=0x06, l2=» END;«, l3=0x06}
0x16c…174 Line {l1=0x06, l2=» L:=0«, l3=0x06}
0x174…17a Line {l1=0x04, l2=»END;«, l3=0x04}
0x17a…181 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x181…18a Line {l1=0x07, l2=» L:=0;«, l3=0x07}
0x18a…1ad Line {l1=0x21, l2=» FOR I:=1 TO 1 DO WRITELN(LIST);«, l3=0x21}
0x1ad…1c6 Line {l1=0x17, l2=» S:='KLABELS:P1:30:K';«, l3=0x17}
0x1c6…1d7 Line {l1=0x0f, l2=» REWRITE(F,S);«, l3=0x0f}
0x1d7…1e5 Line {l1=0x0c, l2=» READLN(F);«, l3=0x0c}
0x1e5…1fb Line {l1=0x14, l2=» IF NOT EOF(F) THEN«, l3=0x14}
0x1fb…204 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x204…21f Line {l1=0x19, l2=» FOR I:=1 TO 30 DO BEGIN«, l3=0x19}
0x21f…238 Line {l1=0x17, l2=» READLN(F,LINES(I));«, l3=0x17}
0x238…269 Line {l1=0x2f, l2=» IF LINES(I)='%P' THEN FF ELSE BEGIN L:=L+1;«, l3=0x2f}
0x269…28a Line {l1=0x1f, l2=» WRITELN(LIST,LINES(I)) END;«, l3=0x1f}
0x28a…2a4 Line {l1=0x18, l2=» IF EOF(F) THEN I:=30«, l3=0x18}
0x2a4…2ac Line {l1=0x06, l2=» END;«, l3=0x06}
0x2ac…2b6 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
[…0x1…]
0x2c0…2d2 Line {l1=0x10, l2=» CLEARSCREEN;«, l3=0x10}
0x2d2…2e4 Line {l1=0x10, l2=» GOTOXY(1,5);«, l3=0x10}
0x2e4…310 Line {l1=0x2a, l2=» WRITELN('FLERE TESTPRINT, 0 FOR NEJ');«, l3=0x2a}
0x310…323 Line {l1=0x11, l2=» GOTOXY(40,5);«, l3=0x11}
0x323…337 Line {l1=0x12, l2=» READLN;READ(I)«, l3=0x12}
0x337…34c Line {l1=0x13, l2=» UNTIL IORESULT=0;«, l3=0x13}
0x34c…35c Line {l1=0x0e, l2=» IF I<>0 THEN«, l3=0x0e}
0x35c…371 Line {l1=0x13, l2=» FOR I:=1 TO 30 DO«, l3=0x13}
0x371…3ba Line {l1=0x47, l2=» IF LINES(I)='%P' THEN FF ELSE BEGIN WRITELN(LIST,LINES(I));L:=L+1 END«, l3=0x47}
0x3ba…3c8 Line {l1=0x0c, l2=» UNTIL I=0;«, l3=0x0c}
0x3c8…3df Line {l1=0x15, l2=» WHILE NOT EOF(F) DO«, l3=0x15}
0x3df…3e8 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x3e8…3f9 Line {l1=0x0f, l2=» READLN(F,SS);«, l3=0x0f}
0x3f9…414 Line {l1=0x19, l2=» IF SS='%P' THEN FF ELSE«, l3=0x19}
0x414…41d Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x41d…428 Line {l1=0x09, l2=» L:=L+1;«, l3=0x09}
0x428…43c Line {l1=0x12, l2=» WRITELN(LIST,SS)«, l3=0x12}
0x43c…443 Line {l1=0x05, l2=» END«, l3=0x05}
0x443…446 Line {l1=0x01, l2=» «, l3=0x01}
0x446…44e Line {l1=0x06, l2=» END;«, l3=0x06}
[…0x1…]
0x456…463 Line {l1=0x0b, l2=» CLOSE(F);«, l3=0x0b}
0x463…47c Line {l1=0x17, l2=» S:='PROCSTAT:P2:0:I';«, l3=0x17}
0x47c…485 Line {l1=0x07, l2=»(*$C-*)«, l3=0x07}
0x485…48f Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x48f…4a5 Line {l1=0x14, l2=» REWRITE(NRPF,S);«, l3=0x14}
0x4a5…4b7 Line {l1=0x10, l2=» SEEK(NRPF,1)«, l3=0x10}
0x4b7…4cc Line {l1=0x13, l2=» UNTIL IORESULT=0;«, l3=0x13}
0x4cc…4d5 Line {l1=0x07, l2=»(*$C+*)«, l3=0x07}
0x4d5…4e3 Line {l1=0x0c, l2=» GET(NRPF);«, l3=0x0c}
0x4e3…4f3 Line {l1=0x0e, l2=» NRPF^.NP:=1;«, l3=0x0e}
0x4f3…504 Line {l1=0x0f, l2=» SEEK(NRPF,1);«, l3=0x0f}
0x504…512 Line {l1=0x0c, l2=» PUT(NRPF);«, l3=0x0c}
0x512…51c Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x51c…52f Line {l1=0x11, l2=» GOTOXY(1,20);«, l3=0x11}
0x52f…564 Line {l1=0x33, l2=» WRITELN('Sæt plade 1 i drev 1 og tryk RETURN');«, l3=0x33}
0x564…571 Line {l1=0x0b, l2=» READLN;«, l3=0x0b}
0x571…57a Line {l1=0x07, l2=»(*$C-*)«, l3=0x07}
0x57a…598 Line {l1=0x1c, l2=» REWRITE(CF,'C1:P1:0:J');«, l3=0x1c}
0x598…5a8 Line {l1=0x0e, l2=» SEEK(CF,1)«, l3=0x0e}
0x5a8…5b1 Line {l1=0x07, l2=»(*$C+*)«, l3=0x07}
0x5b1…5c6 Line {l1=0x13, l2=» UNTIL IORESULT=0;«, l3=0x13}
0x5c6…5d4 Line {l1=0x0c, l2=» CLOSE(CF);«, l3=0x0c}
0x5d4…5e4 Line {l1=0x0e, l2=» CLOSE(NRPF);«, l3=0x0e}
0x5e4…60a Line {l1=0x24, l2=» CHAIN('INTRE *1','HOVSA:P1',QUQ)«, l3=0x24}
0x60a…610 Line {l1=0x04, l2=»END.«, l3=0x04}
0x610…620 00 00 11 33 20 20 20 20 57 52 49 54 45 4c 4e 28 ┆ 3 WRITELN(┆
0x620…640 27 53 7b 74 20 70 6c 61 64 65 20 31 20 69 20 64 72 65 76 20 31 20 6f 67 20 74 72 79 6b 20 52 45 ┆'Sæt plade 1 i drev 1 og tryk RE┆
0x640…660 54 55 52 4e 27 29 3b 33 0b 20 20 20 20 52 45 41 44 4c 4e 3b 0b 07 28 2a 24 43 2d 2a 29 07 1c 20 ┆TURN');3 READLN; (*$C-*) ┆
0x660…680 20 20 20 52 45 57 52 49 54 45 28 43 46 2c 27 43 31 3a 50 31 3a 30 3a 4a 27 29 3b 1c 0e 20 20 20 ┆ REWRITE(CF,'C1:P1:0:J'); ┆
0x680…6a0 20 53 45 45 4b 28 43 46 2c 31 29 0e 07 28 2a 24 43 2b 2a 29 07 13 20 20 55 4e 54 49 4c 20 49 4f ┆ SEEK(CF,1) (*$C+*) UNTIL IO┆
0x6a0…6c0 52 45 53 55 4c 54 3d 30 3b 13 0c 20 20 43 4c 4f 53 45 28 43 46 29 3b 0c 0e 20 20 43 4c 4f 53 45 ┆RESULT=0; CLOSE(CF); CLOSE┆
0x6c0…6e0 28 4e 52 50 46 29 3b 0e 24 20 20 43 48 41 49 4e 28 27 49 4e 54 52 45 20 20 20 2a 31 27 2c 27 48 ┆(NRPF); $ CHAIN('INTRE *1','H┆
0x6e0…700 4f 56 53 41 3a 50 31 27 2c 51 55 51 29 24 04 45 4e 44 2e 04 00 00 00 00 00 00 00 00 00 00 00 00 ┆OVSA:P1',QUQ)$ END. ┆
0x700…720 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 ┆ ┆
[…0x15…]