|
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: »QKRIVFAK.K«
└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
└─⟦this⟧ »QKRIVFAK.K«
PROGRAM SKRIVFAK;
VAR S:STRING(20);SS:STRING(120);
ML,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;
PROCEDURE TESTPRINT;
VAR LINES:ARRAY (1..30) OF STRING(120);
CH:CHAR;
BEGIN
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, J/N ');
GOTOXY(22,5);
READLN;READ(CH)
UNTIL IORESULT=0;
IF CH='n' THEN CH:='N';
IF CH<>'N' THEN
BEGIN
IF LINES(1)<>'%P' THEN FF;
FOR I:=1 TO 30 DO
IF LINES(I)='%P' THEN
FF
ELSE
BEGIN
WRITELN(LIST,LINES(I));L:=L+1
END
END
UNTIL CH='N'
END
END;
BEGIN
S:='FAKTEXT:P1:30:K';
REWRITE(F,S);
L:=0;
ML:=51;
FOR I:=1 TO 4 DO WRITELN(LIST);
READLN(F);
TESTPRINT;
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);
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;
ML:=72;
S:='TOLDPTXT:P1:10:K';
REWRITE(F,S);
READLN(F);
IF NOT EOF(F) THEN
BEGIN
WRITELN('Monter udførselsangivelser, tryk RETURN');READLN
END;
TESTPRINT;
WHILE NOT EOF(F) DO
BEGIN
READLN(F,SS);
L:=L+1;
WRITELN(LIST,SS)
END;
FF;
CLOSE(F);
REWRITE(F,S);
CLOSE(F);
S:='CERTITXT:P1:10:K';
REWRITE(F,S);
READLN(F);
IF NOT EOF(F) THEN
BEGIN
WRITELN('Monter varecertifikater, tryk RETURN');READLN
END;
TESTPRINT;
WHILE NOT EOF(F) DO
BEGIN
READLN(F,SS);
L:=L+1;
WRITELN(LIST,SS);
END;
FF;
CLOSE(F);
REWRITE(F,S);
CLOSE(F);
0x000…013 Line {l1=0x11, l2=»PROGRAM SKRIVFAK;«, l3=0x11}
0x013…035 Line {l1=0x20, l2=»VAR S:STRING(20);SS:STRING(120);«, l3=0x20}
0x035…04a Line {l1=0x13, l2=» ML,L,I:INTEGER;«, l3=0x13}
0x04a…05d Line {l1=0x11, l2=» QUQ:^INTEGER;«, l3=0x11}
0x05d…06a Line {l1=0x0b, l2=» F:TEXT;«, l3=0x0b}
0x06a…079 Line {l1=0x0d, l2=»PROCEDURE FF;«, l3=0x0d}
0x079…080 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x080…090 Line {l1=0x0e, l2=» L:=L MOD ML;«, l3=0x0e}
0x090…0a1 Line {l1=0x0f, l2=» WHILE L<ML DO«, l3=0x0f}
0x0a1…0aa Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0aa…0be Line {l1=0x12, l2=» WRITELN(LIST);«, l3=0x12}
0x0be…0ca Line {l1=0x0a, l2=» L:=L+1«, l3=0x0a}
0x0ca…0d2 Line {l1=0x06, l2=» END;«, l3=0x06}
0x0d2…0da Line {l1=0x06, l2=» L:=0«, l3=0x06}
0x0da…0e0 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0e0…0f6 Line {l1=0x14, l2=»PROCEDURE TESTPRINT;«, l3=0x14}
0x0f6…11f Line {l1=0x27, l2=»VAR LINES:ARRAY (1..30) OF STRING(120);«, l3=0x27}
0x11f…12d Line {l1=0x0c, l2=» CH:CHAR;«, l3=0x0c}
0x12d…134 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x134…14a Line {l1=0x14, l2=» IF NOT EOF(F) THEN«, l3=0x14}
0x14a…153 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x153…16a Line {l1=0x15, l2=» FOR I:=1 TO 30 DO«, l3=0x15}
0x16a…175 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x175…190 Line {l1=0x19, l2=» READLN(F,LINES(I));«, l3=0x19}
0x190…1ad Line {l1=0x1b, l2=» IF LINES(I)='%P' THEN«, l3=0x1b}
0x1ad…1b9 Line {l1=0x0a, l2=» FF«, l3=0x0a}
0x1b9…1c5 Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x1c5…1d2 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x1d2…1e3 Line {l1=0x0f, l2=» L:=L+1;«, l3=0x0f}
0x1e3…203 Line {l1=0x1e, l2=» WRITELN(LIST,LINES(I))«, l3=0x1e}
0x203…20f Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x20f…22b Line {l1=0x1a, l2=» IF EOF(F) THEN I:=30«, l3=0x1a}
0x22b…235 Line {l1=0x08, l2=» END;«, l3=0x08}
0x235…241 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x241…24f Line {l1=0x0c, l2=» REPEAT«, l3=0x0c}
0x24f…265 Line {l1=0x14, l2=» CLEARSCREEN;«, l3=0x14}
0x265…27b Line {l1=0x14, l2=» GOTOXY(1,5);«, l3=0x14}
0x27b…2a6 Line {l1=0x29, l2=» WRITELN('FLERE TESTPRINT, J/N ');«, l3=0x29}
0x2a6…2bd Line {l1=0x15, l2=» GOTOXY(22,5);«, l3=0x15}
0x2bd…2d6 Line {l1=0x17, l2=» READLN;READ(CH)«, l3=0x17}
0x2d6…2ef Line {l1=0x17, l2=» UNTIL IORESULT=0;«, l3=0x17}
0x2ef…30e Line {l1=0x1d, l2=» IF CH='n' THEN CH:='N';«, l3=0x1d}
0x30e…325 Line {l1=0x15, l2=» IF CH<>'N' THEN«, l3=0x15}
0x325…332 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x332…356 Line {l1=0x22, l2=» IF LINES(1)<>'%P' THEN FF;«, l3=0x22}
0x356…371 Line {l1=0x19, l2=» FOR I:=1 TO 30 DO«, l3=0x19}
0x371…390 Line {l1=0x1d, l2=» IF LINES(I)='%P' THEN«, l3=0x1d}
0x390…39e Line {l1=0x0c, l2=» FF«, l3=0x0c}
0x39e…3ac Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x3ac…3bb Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x3bb…3e4 Line {l1=0x27, l2=» WRITELN(LIST,LINES(I));L:=L+1«, l3=0x27}
0x3e4…3f1 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x3f1…3fc Line {l1=0x09, l2=» END«, l3=0x09}
0x3fc…40e Line {l1=0x10, l2=» UNTIL CH='N'«, l3=0x10}
0x40e…415 Line {l1=0x05, l2=» END«, l3=0x05}
0x415…41b Line {l1=0x04, l2=»END;«, l3=0x04}
0x41b…422 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x422…43b Line {l1=0x17, l2=» S:='FAKTEXT:P1:30:K';«, l3=0x17}
0x43b…44c Line {l1=0x0f, l2=» REWRITE(F,S);«, l3=0x0f}
0x44c…455 Line {l1=0x07, l2=» L:=0;«, l3=0x07}
0x455…460 Line {l1=0x09, l2=» ML:=51;«, l3=0x09}
0x460…483 Line {l1=0x21, l2=» FOR I:=1 TO 4 DO WRITELN(LIST);«, l3=0x21}
0x483…491 Line {l1=0x0c, l2=» READLN(F);«, l3=0x0c}
0x491…49f Line {l1=0x0c, l2=» TESTPRINT;«, l3=0x0c}
0x49f…4b6 Line {l1=0x15, l2=» WHILE NOT EOF(F) DO«, l3=0x15}
0x4b6…4bf Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x4bf…4d2 Line {l1=0x11, l2=» READLN(F,SS);«, l3=0x11}
0x4d2…4e7 Line {l1=0x13, l2=» IF SS='%P' THEN«, l3=0x13}
0x4e7…4f1 Line {l1=0x08, l2=» FF«, l3=0x08}
0x4f1…4fb Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x4fb…506 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x506…515 Line {l1=0x0d, l2=» L:=L+1;«, l3=0x0d}
0x515…52d Line {l1=0x16, l2=» WRITELN(LIST,SS)«, l3=0x16}
0x52d…536 Line {l1=0x07, l2=» END«, l3=0x07}
0x536…53e Line {l1=0x06, l2=» END;«, l3=0x06}
0x53e…54b Line {l1=0x0b, l2=» CLOSE(F);«, l3=0x0b}
0x54b…564 Line {l1=0x17, l2=» S:='TOLDTXT:P1:30:K';«, l3=0x17}
0x564…575 Line {l1=0x0f, l2=» REWRITE(F,S);«, l3=0x0f}
0x575…583 Line {l1=0x0c, l2=» READLN(F);«, l3=0x0c}
0x583…58a Line {l1=0x05, l2=» FF;«, l3=0x05}
0x58a…5a1 Line {l1=0x15, l2=» WHILE NOT EOF(F) DO«, l3=0x15}
0x5a1…5aa Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x5aa…5bd Line {l1=0x11, l2=» READLN(F,SS);«, l3=0x11}
0x5bd…5d2 Line {l1=0x13, l2=» IF SS='%P' THEN«, l3=0x13}
0x5d2…5dc Line {l1=0x08, l2=» FF«, l3=0x08}
0x5dc…5e6 Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x5e6…5f1 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x5f1…600 Line {l1=0x0d, l2=» L:=L+1;«, l3=0x0d}
0x600…618 Line {l1=0x16, l2=» WRITELN(LIST,SS)«, l3=0x16}
0x618…621 Line {l1=0x07, l2=» END«, l3=0x07}
0x621…629 Line {l1=0x06, l2=» END;«, l3=0x06}
0x629…636 Line {l1=0x0b, l2=» CLOSE(F);«, l3=0x0b}
0x636…63d Line {l1=0x05, l2=» FF;«, l3=0x05}
0x63d…656 Line {l1=0x17, l2=» S:='KRETEXT:P1:10:K';«, l3=0x17}
0x656…667 Line {l1=0x0f, l2=» REWRITE(F,S);«, l3=0x0f}
0x667…675 Line {l1=0x0c, l2=» READLN(F);«, l3=0x0c}
0x675…68c Line {l1=0x15, l2=» WHILE NOT EOF(F) DO«, l3=0x15}
0x68c…695 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x695…6a8 Line {l1=0x11, l2=» READLN(F,SS);«, l3=0x11}
0x6a8…6e8 Line {l1=0x3e, l2=» IF SS='%P' THEN FF ELSE BEGIN WRITELN(LIST,SS); L:=L+1 END«, l3=0x3e}
0x6e8…6f0 Line {l1=0x06, l2=» END;«, l3=0x06}
0x6f0…6fd Line {l1=0x0b, l2=» CLOSE(F);«, l3=0x0b}
0x6fd…70e Line {l1=0x0f, l2=» REWRITE(F,S);«, l3=0x0f}
0x70e…71b Line {l1=0x0b, l2=» CLOSE(F);«, l3=0x0b}
0x71b…722 Line {l1=0x05, l2=» FF;«, l3=0x05}
0x722…72d Line {l1=0x09, l2=» ML:=72;«, l3=0x09}
0x72d…747 Line {l1=0x18, l2=» S:='TOLDPTXT:P1:10:K';«, l3=0x18}
0x747…758 Line {l1=0x0f, l2=» REWRITE(F,S);«, l3=0x0f}
0x758…766 Line {l1=0x0c, l2=» READLN(F);«, l3=0x0c}
0x766…77c Line {l1=0x14, l2=» IF NOT EOF(F) THEN«, l3=0x14}
0x77c…785 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x785…7c4 Line {l1=0x3d, l2=» WRITELN('Monter udførselsangivelser, tryk RETURN');READLN«, l3=0x3d}
0x7c4…7cc Line {l1=0x06, l2=» END;«, l3=0x06}
0x7cc…7da Line {l1=0x0c, l2=» TESTPRINT;«, l3=0x0c}
0x7da…7f1 Line {l1=0x15, l2=» WHILE NOT EOF(F) DO«, l3=0x15}
0x7f1…7fa Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x7fa…80d Line {l1=0x11, l2=» READLN(F,SS);«, l3=0x11}
0x80d…81a Line {l1=0x0b, l2=» L:=L+1;«, l3=0x0b}
0x81a…830 Line {l1=0x14, l2=» WRITELN(LIST,SS)«, l3=0x14}
0x830…838 Line {l1=0x06, l2=» END;«, l3=0x06}
0x838…83f Line {l1=0x05, l2=» FF;«, l3=0x05}
0x83f…84c Line {l1=0x0b, l2=» CLOSE(F);«, l3=0x0b}
0x84c…85d Line {l1=0x0f, l2=» REWRITE(F,S);«, l3=0x0f}
0x85d…86a Line {l1=0x0b, l2=» CLOSE(F);«, l3=0x0b}
0x86a…884 Line {l1=0x18, l2=» S:='CERTITXT:P1:10:K';«, l3=0x18}
0x884…895 Line {l1=0x0f, l2=» REWRITE(F,S);«, l3=0x0f}
0x895…8a3 Line {l1=0x0c, l2=» READLN(F);«, l3=0x0c}
0x8a3…8b9 Line {l1=0x14, l2=» IF NOT EOF(F) THEN«, l3=0x14}
0x8b9…8c2 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x8c2…8fe Line {l1=0x3a, l2=» WRITELN('Monter varecertifikater, tryk RETURN');READLN«, l3=0x3a}
0x8fe…906 Line {l1=0x06, l2=» END;«, l3=0x06}
0x906…914 Line {l1=0x0c, l2=» TESTPRINT;«, l3=0x0c}
0x914…92b Line {l1=0x15, l2=» WHILE NOT EOF(F) DO«, l3=0x15}
0x92b…934 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x934…947 Line {l1=0x11, l2=» READLN(F,SS);«, l3=0x11}
0x947…954 Line {l1=0x0b, l2=» L:=L+1;«, l3=0x0b}
0x954…96b Line {l1=0x15, l2=» WRITELN(LIST,SS);«, l3=0x15}
0x96b…973 Line {l1=0x06, l2=» END;«, l3=0x06}
0x973…97a Line {l1=0x05, l2=» FF;«, l3=0x05}
0x97a…987 Line {l1=0x0b, l2=» CLOSE(F);«, l3=0x0b}
0x987…998 Line {l1=0x0f, l2=» REWRITE(F,S);«, l3=0x0f}
0x998…9a5 Line {l1=0x0b, l2=» CLOSE(F);«, l3=0x0b}
0x9a5…9c0 4e 44 2e 04 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ND. ┆