|
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: 1920 (0x780)
Types: TextFile
Notes: Mikados_K
Names: »SKRIVFAK.K«
└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
└─⟦this⟧ »SKRIVFAK.K«
PROGRAM SKRIVFAK;
CONST ML=51;
VAR S:STRING(20);SS:STRING(120);
LINES:ARRAY (1..30) OF STRING(120);
L,I:INTEGER;
QUQ:^INTEGER;
F:TEXT;
PROCEDURE FF;
BEGIN
L:=L MOD ML;
WHILE L<ML DO
BEGIN
WRITELN(LIST);
L:=L+1
END;
L:=0
END;
BEGIN
S:='FAKTEXT:P1:30:K';
REWRITE(F,S);
L:=0;
FOR I:=1 TO 4 DO WRITELN(LIST);
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:='TOLDTXT:P1:30:K';
REWRITE(F,S);
READLN(F);
FF;
WHILE NOT EOF(F) DO
BEGIN
READLN(F,SS);
IF SS='%P' THEN FF ELSE BEGIN L:=L+1;
WRITELN(LIST,SS) END
END;
CLOSE(F);
FF;
S:='KRETEXT:P1:10:K';
REWRITE(F,S);
READLN(F);
WHILE NOT EOF(F) DO
BEGIN
READLN(F,SS);
IF SS='%P' THEN FF ELSE BEGIN WRITELN(LIST,SS); L:=L+1 END
END;
CLOSE(F);
REWRITE(F,S);
CLOSE(F);
FF;
CHAIN('INTRE *1','HOVSA:P1',QUQ)
END.
0x000…013 Line {l1=0x11, l2=»PROGRAM SKRIVFAK;«, l3=0x11}
0x013…021 Line {l1=0x0c, l2=»CONST ML=51;«, l3=0x0c}
0x021…043 Line {l1=0x20, l2=»VAR S:STRING(20);SS:STRING(120);«, l3=0x20}
0x043…06c Line {l1=0x27, l2=» LINES:ARRAY (1..30) OF STRING(120);«, l3=0x27}
0x06c…07c Line {l1=0x0e, l2=» L,I:INTEGER;«, l3=0x0e}
0x07c…08f Line {l1=0x11, l2=» QUQ:^INTEGER;«, l3=0x11}
0x08f…09c Line {l1=0x0b, l2=» F:TEXT;«, l3=0x0b}
0x09c…0ab Line {l1=0x0d, l2=»PROCEDURE FF;«, l3=0x0d}
0x0ab…0b2 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0b2…0c2 Line {l1=0x0e, l2=» L:=L MOD ML;«, l3=0x0e}
0x0c2…0d3 Line {l1=0x0f, l2=» WHILE L<ML DO«, l3=0x0f}
0x0d3…0dc Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0dc…0f0 Line {l1=0x12, l2=» WRITELN(LIST);«, l3=0x12}
0x0f0…0fc Line {l1=0x0a, l2=» L:=L+1«, l3=0x0a}
0x0fc…104 Line {l1=0x06, l2=» END;«, l3=0x06}
0x104…10c Line {l1=0x06, l2=» L:=0«, l3=0x06}
0x10c…112 Line {l1=0x04, l2=»END;«, l3=0x04}
0x112…119 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x119…132 Line {l1=0x17, l2=» S:='FAKTEXT:P1:30:K';«, l3=0x17}
0x132…143 Line {l1=0x0f, l2=» REWRITE(F,S);«, l3=0x0f}
0x143…14c Line {l1=0x07, l2=» L:=0;«, l3=0x07}
0x14c…16f Line {l1=0x21, l2=» FOR I:=1 TO 4 DO WRITELN(LIST);«, l3=0x21}
0x16f…17d Line {l1=0x0c, l2=» READLN(F);«, l3=0x0c}
0x17d…193 Line {l1=0x14, l2=» IF NOT EOF(F) THEN«, l3=0x14}
0x193…19c Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x19c…1b7 Line {l1=0x19, l2=» FOR I:=1 TO 30 DO BEGIN«, l3=0x19}
0x1b7…1d0 Line {l1=0x17, l2=» READLN(F,LINES(I));«, l3=0x17}
0x1d0…201 Line {l1=0x2f, l2=» IF LINES(I)='%P' THEN FF ELSE BEGIN L:=L+1;«, l3=0x2f}
0x201…222 Line {l1=0x1f, l2=» WRITELN(LIST,LINES(I)) END;«, l3=0x1f}
0x222…23c Line {l1=0x18, l2=» IF EOF(F) THEN I:=30«, l3=0x18}
0x23c…244 Line {l1=0x06, l2=» END;«, l3=0x06}
0x244…24e Line {l1=0x08, l2=» REPEAT«, l3=0x08}
[…0x1…]
0x258…26a Line {l1=0x10, l2=» CLEARSCREEN;«, l3=0x10}
0x26a…27c Line {l1=0x10, l2=» GOTOXY(1,5);«, l3=0x10}
0x27c…2a8 Line {l1=0x2a, l2=» WRITELN('FLERE TESTPRINT, 0 FOR NEJ');«, l3=0x2a}
0x2a8…2bb Line {l1=0x11, l2=» GOTOXY(40,5);«, l3=0x11}
0x2bb…2cf Line {l1=0x12, l2=» READLN;READ(I)«, l3=0x12}
0x2cf…2e4 Line {l1=0x13, l2=» UNTIL IORESULT=0;«, l3=0x13}
0x2e4…2f4 Line {l1=0x0e, l2=» IF I<>0 THEN«, l3=0x0e}
0x2f4…309 Line {l1=0x13, l2=» FOR I:=1 TO 30 DO«, l3=0x13}
0x309…353 Line {l1=0x48, l2=» IF LINES(I)='%P' THEN FF ELSE BEGIN WRITELN(LIST,LINES(I));L:=L+1 END;«, l3=0x48}
0x353…361 Line {l1=0x0c, l2=» UNTIL I=0;«, l3=0x0c}
0x361…378 Line {l1=0x15, l2=» WHILE NOT EOF(F) DO«, l3=0x15}
0x378…381 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x381…392 Line {l1=0x0f, l2=» READLN(F,SS);«, l3=0x0f}
0x392…3bb Line {l1=0x27, l2=» IF SS='%P' THEN FF ELSE BEGIN L:=L+1;«, l3=0x27}
0x3bb…3d3 Line {l1=0x16, l2=» WRITELN(LIST,SS) END«, l3=0x16}
0x3d3…3db Line {l1=0x06, l2=» END;«, l3=0x06}
[…0x1…]
0x3e3…3f0 Line {l1=0x0b, l2=» CLOSE(F);«, l3=0x0b}
0x3f0…409 Line {l1=0x17, l2=» S:='TOLDTXT:P1:30:K';«, l3=0x17}
0x409…41a Line {l1=0x0f, l2=» REWRITE(F,S);«, l3=0x0f}
0x41a…428 Line {l1=0x0c, l2=» READLN(F);«, l3=0x0c}
0x428…42f Line {l1=0x05, l2=» FF;«, l3=0x05}
0x42f…446 Line {l1=0x15, l2=» WHILE NOT EOF(F) DO«, l3=0x15}
0x446…44f Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x44f…462 Line {l1=0x11, l2=» READLN(F,SS);«, l3=0x11}
0x462…48b Line {l1=0x27, l2=» IF SS='%P' THEN FF ELSE BEGIN L:=L+1;«, l3=0x27}
0x48b…4a5 Line {l1=0x18, l2=» WRITELN(LIST,SS) END«, l3=0x18}
0x4a5…4ad Line {l1=0x06, l2=» END;«, l3=0x06}
0x4ad…4ba Line {l1=0x0b, l2=» CLOSE(F);«, l3=0x0b}
0x4ba…4c1 Line {l1=0x05, l2=» FF;«, l3=0x05}
0x4c1…4da Line {l1=0x17, l2=» S:='KRETEXT:P1:10:K';«, l3=0x17}
0x4da…4eb Line {l1=0x0f, l2=» REWRITE(F,S);«, l3=0x0f}
0x4eb…4f9 Line {l1=0x0c, l2=» READLN(F);«, l3=0x0c}
0x4f9…510 Line {l1=0x15, l2=» WHILE NOT EOF(F) DO«, l3=0x15}
0x510…519 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x519…52c Line {l1=0x11, l2=» READLN(F,SS);«, l3=0x11}
0x52c…56c Line {l1=0x3e, l2=» IF SS='%P' THEN FF ELSE BEGIN WRITELN(LIST,SS); L:=L+1 END«, l3=0x3e}
0x56c…574 Line {l1=0x06, l2=» END;«, l3=0x06}
0x574…581 Line {l1=0x0b, l2=» CLOSE(F);«, l3=0x0b}
0x581…592 Line {l1=0x0f, l2=» REWRITE(F,S);«, l3=0x0f}
0x592…59f Line {l1=0x0b, l2=» CLOSE(F);«, l3=0x0b}
0x59f…5a6 Line {l1=0x05, l2=» FF;«, l3=0x05}
0x5a6…5cc Line {l1=0x24, l2=» CHAIN('INTRE *1','HOVSA:P1',QUQ)«, l3=0x24}
0x5cc…5d2 Line {l1=0x04, l2=»END.«, l3=0x04}
0x5d2…5e0 00 00 46 29 3b 0c 15 20 20 57 48 49 4c 45 ┆ F); WHILE┆
0x5e0…600 20 4e 4f 54 20 45 4f 46 28 46 29 20 44 4f 15 07 20 20 42 45 47 49 4e 07 11 20 20 20 20 52 45 41 ┆ NOT EOF(F) DO BEGIN REA┆
0x600…620 44 4c 4e 28 46 2c 53 53 29 3b 11 2c 20 20 20 20 49 46 20 53 53 3d 27 25 50 27 20 54 48 45 4e 20 ┆DLN(F,SS); , IF SS='%P' THEN ┆
0x620…640 46 46 20 45 4c 53 45 20 57 52 49 54 45 4c 4e 28 4c 49 53 54 2c 53 53 29 2c 06 20 20 45 4e 44 3b ┆FF ELSE WRITELN(LIST,SS), END;┆
0x640…660 06 0b 20 20 43 4c 4f 53 45 28 46 29 3b 0b 0f 20 20 52 45 57 52 49 54 45 28 46 2c 53 29 3b 0f 0b ┆ CLOSE(F); REWRITE(F,S); ┆
0x660…680 20 20 43 4c 4f 53 45 28 46 29 3b 0b 05 20 20 46 46 3b 05 24 20 20 43 48 41 49 4e 28 27 49 4e 54 ┆ CLOSE(F); FF; $ CHAIN('INT┆
0x680…6a0 52 45 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 ┆RE *1','HOVSA:P1',QUQ)$ END. ┆
0x6a0…6c0 00 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 63 63 ┆ D. cccccccccccccccccccccccccc┆
0x6c0…6e0 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┆
[…0x4…]
0x760…780 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 ┆