|
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: 1248 (0x4e0)
Types: TextFile
Notes: Mikados_K
Names: »COPY1.K«
└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
└─⟦this⟧ »COPY1.K«
PROGRAM COPY;
VAR F1,F2:TEXT;
NAVN1,NAVN2:STRING(20);
IND,UD:CHAR;
BEGIN
NAVN1:='FAKTURA:P2:0:K';
NAVN2:='GAKTURA:P2:150:K';
REWRITE(F1,NAVN1);
REWRITE(F2,NAVN2);
READLN(F1);
(*$C-*)
REPEAT
REPEAT
READ(F1,IND);
UNTIL IORESULT=0;
WRITE(IND);
WRITE(F2,IND);
IF EOLN(F1) THEN BEGIN WRITELN;WRITELN(F2) END;
UNTIL FALSE;
END.
0x000…00f Line {l1=0x0d, l2=»PROGRAM COPY;«, l3=0x0d}
0x00f…020 Line {l1=0x0f, l2=»VAR F1,F2:TEXT;«, l3=0x0f}
0x020…03d Line {l1=0x1b, l2=» NAVN1,NAVN2:STRING(20);«, l3=0x1b}
0x03d…04f Line {l1=0x10, l2=» IND,UD:CHAR;«, l3=0x10}
0x04f…056 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x056…072 Line {l1=0x1a, l2=» NAVN1:='FAKTURA:P2:0:K';«, l3=0x1a}
0x072…090 Line {l1=0x1c, l2=» NAVN2:='GAKTURA:P2:150:K';«, l3=0x1c}
0x090…0a6 Line {l1=0x14, l2=» REWRITE(F1,NAVN1);«, l3=0x14}
0x0a6…0bc Line {l1=0x14, l2=» REWRITE(F2,NAVN2);«, l3=0x14}
0x0bc…0cb Line {l1=0x0d, l2=» READLN(F1);«, l3=0x0d}
0x0cb…0d4 Line {l1=0x07, l2=»(*$C-*)«, l3=0x07}
0x0d4…0de Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x0de…0eb Line {l1=0x0b, l2=» REPEAT«, l3=0x0b}
0x0eb…101 Line {l1=0x14, l2=» READ(F1,IND);«, l3=0x14}
0x101…119 Line {l1=0x16, l2=» UNTIL IORESULT=0;«, l3=0x16}
0x119…12b Line {l1=0x10, l2=» WRITE(IND);«, l3=0x10}
0x12b…140 Line {l1=0x13, l2=» WRITE(F2,IND);«, l3=0x13}
0x140…176 Line {l1=0x34, l2=» IF EOLN(F1) THEN BEGIN WRITELN;WRITELN(F2) END;«, l3=0x34}
0x176…186 Line {l1=0x0e, l2=» UNTIL FALSE;«, l3=0x0e}
0x186…18c Line {l1=0x04, l2=»END.«, l3=0x04}
0x18c…1a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x1a0…1c0 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 ┆ ┆
[…0x19…]