DataMuseum.dk

Presents historical artifacts from the history of:

MIKADOS

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about MIKADOS

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦8e8eab9dd⟧ TextFile

    Length: 1248 (0x4e0)
    Types: TextFile
    Notes: Mikados_K
    Names: »LISTKUND.K«

Derivation

└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
    └─⟦this⟧ »LISTKUND.K«

Mikados K File

PROGRAM SKRIVFAK;
VAR S:STRING(20);SS:STRING(120);
    LINES:ARRAY (1..30) OF STRING(120);
    I:INTEGER;
    F:TEXT;
PROCEDURE FL(FLE:INTEGER);
BEGIN
  OUT80(84,24);
  OUT80(85,FLE+64);
  WHILE IN80(86,64)<>0 DO WRITE('Q');
  OUT80(86,1);
  OUT80(86,0)
END;
PROCEDURE FF;
BEGIN
  WHILE IN80(86,64)<>0 DO;
  OUT80(85,192);
  OUT80(85,64)
END;
BEGIN
FL(8); (*8 TOMMER*)
WRITELN(LIST,'<ShhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhHHHHHHHHHHHH>');
WRITELN(LIST,'<SvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvVVVVVVVVVVVVVVVV>');
WRITELN(LIST,'<Smmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm>');
  S:='KLISTE: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
    WRITELN(LIST,LINES(I));
    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 WRITELN(LIST,LINES(I));
  UNTIL I=0;
  WHILE NOT EOF(F) DO
  BEGIN
  READLN(F,SS);
  IF SS='%P' THEN FF ELSE
  WRITELN(LIST,SS)
 
  END;
  END;
  CLOSE(F);
END.

Mikados K File

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…05e Line {l1=0x27, l2=»    LINES:ARRAY (1..30) OF STRING(120);«, l3=0x27}
0x05e…06e Line {l1=0x0e, l2=»    I:INTEGER;«, l3=0x0e}
0x06e…07b Line {l1=0x0b, l2=»    F:TEXT;«, l3=0x0b}
0x07b…097 Line {l1=0x1a, l2=»PROCEDURE FL(FLE:INTEGER);«, l3=0x1a}
0x097…09e Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x09e…0af Line {l1=0x0f, l2=»  OUT80(84,24);«, l3=0x0f}
0x0af…0c4 Line {l1=0x13, l2=»  OUT80(85,FLE+64);«, l3=0x13}
0x0c4…0eb Line {l1=0x25, l2=»  WHILE IN80(86,64)<>0 DO WRITE('Q');«, l3=0x25}
0x0eb…0fb Line {l1=0x0e, l2=»  OUT80(86,1);«, l3=0x0e}
0x0fb…10a Line {l1=0x0d, l2=»  OUT80(86,0)«, l3=0x0d}
0x10a…110 Line {l1=0x04, l2=»END;«, l3=0x04}
0x110…11f Line {l1=0x0d, l2=»PROCEDURE FF;«, l3=0x0d}
0x11f…126 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x126…142 Line {l1=0x1a, l2=»  WHILE IN80(86,64)<>0 DO;«, l3=0x1a}
0x142…154 Line {l1=0x10, l2=»  OUT80(85,192);«, l3=0x10}
0x154…164 Line {l1=0x0e, l2=»  OUT80(85,64)«, l3=0x0e}
0x164…16a Line {l1=0x04, l2=»END;«, l3=0x04}
0x16a…171 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x171…186 Line {l1=0x13, l2=»FL(8); (*8 TOMMER*)«, l3=0x13}
0x186…1ca Line {l1=0x42, l2=»WRITELN(LIST,'<ShhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhHHHHHHHHHHHH>');«, l3=0x42}
0x1ca…212 Line {l1=0x46, l2=»WRITELN(LIST,'<SvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvVVVVVVVVVVVVVVVV>');«, l3=0x46}
0x212…253 Line {l1=0x3f, l2=»WRITELN(LIST,'<Smmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm>');«, l3=0x3f}
0x253…26b Line {l1=0x16, l2=»  S:='KLISTE:P1:30:K';«, l3=0x16}
0x26b…27c Line {l1=0x0f, l2=»  REWRITE(F,S);«, l3=0x0f}
0x27c…28a Line {l1=0x0c, l2=»  READLN(F);«, l3=0x0c}
0x28a…2a0 Line {l1=0x14, l2=»  IF NOT EOF(F) THEN«, l3=0x14}
0x2a0…2a9 Line {l1=0x07, l2=»  BEGIN«, l3=0x07}
0x2a9…2c4 Line {l1=0x19, l2=»  FOR I:=1 TO 30 DO BEGIN«, l3=0x19}
0x2c4…2dd Line {l1=0x17, l2=»    READLN(F,LINES(I));«, l3=0x17}
0x2dd…300 Line {l1=0x21, l2=»    IF LINES(I)='%P' THEN FF ELSE«, l3=0x21}
0x300…31d Line {l1=0x1b, l2=»    WRITELN(LIST,LINES(I));«, l3=0x1b}
0x31d…337 Line {l1=0x18, l2=»    IF EOF(F) THEN I:=30«, l3=0x18}
0x337…33f Line {l1=0x06, l2=»  END;«, l3=0x06}
0x33f…349 Line {l1=0x08, l2=»  REPEAT«, l3=0x08}
          […0x1…]
0x353…365 Line {l1=0x10, l2=»    CLEARSCREEN;«, l3=0x10}
0x365…377 Line {l1=0x10, l2=»    GOTOXY(1,5);«, l3=0x10}
0x377…3a3 Line {l1=0x2a, l2=»    WRITELN('FLERE TESTPRINT, 0 FOR NEJ');«, l3=0x2a}
0x3a3…3b6 Line {l1=0x11, l2=»    GOTOXY(40,5);«, l3=0x11}
0x3b6…3ca Line {l1=0x12, l2=»    READLN;READ(I)«, l3=0x12}
0x3ca…3df Line {l1=0x13, l2=»  UNTIL IORESULT=0;«, l3=0x13}
0x3df…3ef Line {l1=0x0e, l2=»  IF I<>0 THEN«, l3=0x0e}
0x3ef…404 Line {l1=0x13, l2=»  FOR I:=1 TO 30 DO«, l3=0x13}
0x404…43d Line {l1=0x37, l2=»  IF LINES(I)='%P' THEN FF ELSE WRITELN(LIST,LINES(I));«, l3=0x37}
0x43d…44b Line {l1=0x0c, l2=»  UNTIL I=0;«, l3=0x0c}
0x44b…462 Line {l1=0x15, l2=»  WHILE NOT EOF(F) DO«, l3=0x15}
0x462…46b Line {l1=0x07, l2=»  BEGIN«, l3=0x07}
0x46b…47c Line {l1=0x0f, l2=»  READLN(F,SS);«, l3=0x0f}
0x47c…497 Line {l1=0x19, l2=»  IF SS='%P' THEN FF ELSE«, l3=0x19}
0x497…4ab Line {l1=0x12, l2=»  WRITELN(LIST,SS)«, l3=0x12}
0x4ab…4ae Line {l1=0x01, l2=» «, l3=0x01}
0x4ae…4b6 Line {l1=0x06, l2=»  END;«, l3=0x06}
          […0x1…]
0x4be…4cb Line {l1=0x0b, l2=»  CLOSE(F);«, l3=0x0b}
0x4cb…4d1 Line {l1=0x04, l2=»END.«, l3=0x04}
0x4d1…4e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00                                                      ┆               ┆

Reduced view