|
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: »SKRIVPAK.K«
└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
└─⟦this⟧ »SKRIVPAK.K«
PROGRAM SKRIVPAK;
CONST ML=72;
VAR S:STRING(20);SS:STRING(120);
LINES:ARRAY (1..15) 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
L:=0;
FOR I:=1 TO 5 DO WRITELN(LIST);
S:='PLISTE:P2:30:K';
REWRITE(F,S);
READLN(F);
IF NOT EOF(F) THEN
BEGIN
FOR I:=1 TO 15 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;
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 15 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;
FF;
CHAIN('INTRE *1','HOVSA:P1',QUQ)
END.
0x000…013 Line {l1=0x11, l2=»PROGRAM SKRIVPAK;«, l3=0x11}
0x013…021 Line {l1=0x0c, l2=»CONST ML=72;«, 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..15) 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…120 Line {l1=0x05, l2=»L:=0;«, l3=0x05}
0x120…141 Line {l1=0x1f, l2=»FOR I:=1 TO 5 DO WRITELN(LIST);«, l3=0x1f}
0x141…159 Line {l1=0x16, l2=» S:='PLISTE:P2:30:K';«, l3=0x16}
0x159…16a Line {l1=0x0f, l2=» REWRITE(F,S);«, l3=0x0f}
0x16a…178 Line {l1=0x0c, l2=» READLN(F);«, l3=0x0c}
0x178…18e Line {l1=0x14, l2=» IF NOT EOF(F) THEN«, l3=0x14}
0x18e…197 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x197…1c6 Line {l1=0x2d, l2=» FOR I:=1 TO 15 DO BEGIN READLN(F,LINES(I));«, l3=0x2d}
0x1c6…1f5 Line {l1=0x2d, l2=» IF LINES(I)='%P' THEN FF ELSE BEGIN L:=L+1;«, l3=0x2d}
0x1f5…22e Line {l1=0x37, l2=» WRITELN(LIST,LINES(I)) END; IF EOF(F) THEN I:=30 END;«, l3=0x37}
0x22e…236 Line {l1=0x06, l2=» END;«, l3=0x06}
0x236…240 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
[…0x1…]
0x24a…25c Line {l1=0x10, l2=» CLEARSCREEN;«, l3=0x10}
0x25c…26e Line {l1=0x10, l2=» GOTOXY(1,5);«, l3=0x10}
0x26e…29a Line {l1=0x2a, l2=» WRITELN('FLERE TESTPRINT, 0 FOR NEJ');«, l3=0x2a}
0x29a…2ad Line {l1=0x11, l2=» GOTOXY(40,5);«, l3=0x11}
0x2ad…2c1 Line {l1=0x12, l2=» READLN;READ(I)«, l3=0x12}
0x2c1…2d6 Line {l1=0x13, l2=» UNTIL IORESULT=0;«, l3=0x13}
0x2d6…2e6 Line {l1=0x0e, l2=» IF I<>0 THEN«, l3=0x0e}
0x2e6…2fb Line {l1=0x13, l2=» FOR I:=1 TO 15 DO«, l3=0x13}
0x2fb…345 Line {l1=0x48, l2=» IF LINES(I)='%P' THEN FF ELSE BEGIN WRITELN(LIST,LINES(I));L:=L+1 END;«, l3=0x48}
0x345…353 Line {l1=0x0c, l2=» UNTIL I=0;«, l3=0x0c}
0x353…36a Line {l1=0x15, l2=» WHILE NOT EOF(F) DO«, l3=0x15}
0x36a…373 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x373…384 Line {l1=0x0f, l2=» READLN(F,SS);«, l3=0x0f}
0x384…3ad Line {l1=0x27, l2=» IF SS='%P' THEN FF ELSE BEGIN L:=L+1;«, l3=0x27}
0x3ad…3c5 Line {l1=0x16, l2=» WRITELN(LIST,SS) END«, l3=0x16}
0x3c5…3c8 Line {l1=0x01, l2=» «, l3=0x01}
0x3c8…3d0 Line {l1=0x06, l2=» END;«, l3=0x06}
0x3d0…3d7 Line {l1=0x05, l2=» FF;«, l3=0x05}
0x3d7…3fd Line {l1=0x24, l2=» CHAIN('INTRE *1','HOVSA:P1',QUQ)«, l3=0x24}
0x3fd…403 Line {l1=0x04, l2=»END.«, l3=0x04}
0x403…420 00 00 13 0e 20 20 49 46 20 49 3c 3e 30 20 54 48 45 4e 0e 13 20 20 46 4f 52 20 49 3a 3d ┆ IF I<>0 THEN FOR I:=┆
0x420…440 31 20 54 4f 20 31 35 20 44 4f 13 37 20 20 49 46 20 4c 49 4e 45 53 28 49 29 3d 27 25 50 27 20 54 ┆1 TO 15 DO 7 IF LINES(I)='%P' T┆
0x440…460 48 45 4e 20 46 46 20 45 4c 53 45 20 57 52 49 54 45 4c 4e 28 4c 49 53 54 2c 4c 49 4e 45 53 28 49 ┆HEN FF ELSE WRITELN(LIST,LINES(I┆
0x460…480 29 29 3b 37 0c 20 20 55 4e 54 49 4c 20 49 3d 30 3b 0c 15 20 20 57 48 49 4c 45 20 4e 4f 54 20 45 ┆));7 UNTIL I=0; WHILE NOT E┆
0x480…4a0 4f 46 28 46 29 20 44 4f 15 07 20 20 42 45 47 49 4e 07 0f 20 20 52 45 41 44 4c 4e 28 46 2c 53 53 ┆OF(F) DO BEGIN READLN(F,SS┆
0x4a0…4c0 29 3b 0f 19 20 20 49 46 20 53 53 3d 27 25 50 27 20 54 48 45 4e 20 46 46 20 45 4c 53 45 19 12 20 ┆); IF SS='%P' THEN FF ELSE ┆
0x4c0…4e0 20 57 52 49 54 45 4c 4e 28 4c 49 53 54 2c 53 53 29 12 01 20 01 06 20 20 45 4e 44 3b 06 05 20 20 ┆ WRITELN(LIST,SS) END; ┆
0x4e0…500 46 46 3b 05 24 20 20 43 48 41 49 4e 28 27 49 4e 54 52 45 20 20 20 2a 31 27 2c 27 48 4f 56 53 41 ┆FF; $ CHAIN('INTRE *1','HOVSA┆
0x500…520 3a 50 31 27 2c 51 55 51 29 24 04 45 4e 44 2e 04 00 00 54 45 4c 4e 28 4c 49 53 54 2c 53 53 29 12 ┆:P1',QUQ)$ END. TELN(LIST,SS) ┆
0x520…540 01 20 01 06 20 20 45 4e 44 3b 06 05 20 20 46 46 3b 05 24 20 20 43 48 41 49 4e 28 27 49 4e 54 52 ┆ END; FF; $ CHAIN('INTR┆
0x540…560 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 00 ┆E *1','HOVSA:P1',QUQ)$ END. ┆
0x560…580 45 44 55 52 45 20 46 4c 28 46 4c 45 3a 49 4e 54 45 47 45 52 29 3b 1a 05 42 45 47 49 4e 05 0f 20 ┆EDURE FL(FLE:INTEGER); BEGIN ┆
0x580…5a0 20 4f 55 54 38 30 28 38 34 2c 32 34 29 3b 0f 13 20 20 4f 55 54 38 30 28 38 35 2c 46 4c 45 2b 36 ┆ OUT80(84,24); OUT80(85,FLE+6┆
0x5a0…5c0 34 29 3b 13 25 20 20 57 48 49 4c 45 20 49 4e 38 30 28 38 36 2c 36 34 29 3c 3e 30 20 44 4f 20 57 ┆4); % WHILE IN80(86,64)<>0 DO W┆
0x5c0…5e0 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 ┆ ┆
[…0x1f…]