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

⟦22c8c5d32⟧ TextFile

    Length: 960 (0x3c0)
    Types: TextFile
    Notes: Mikados_K
    Names: »FORMULA.K«

Derivation

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

Mikados K File

PROGRAM FORMULAR;
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(9);
WRITE(LIST,'<ShhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhHHHHHHHHHHHH>');
WRITELN(LIST);
WRITE(LIST,'<SvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvVVVVVVVVVVVVVVVV>');
WRITELN(LIST);
WRITE(LIST,'<Smmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm>');
WRITELN(LIST);
WRITE('FORMULAR-INITIERING AFSLUTTET');WRITELN
END.

Mikados K File

0x000…013 Line {l1=0x11, l2=»PROGRAM FORMULAR;«, l3=0x11}
0x013…02f Line {l1=0x1a, l2=»PROCEDURE FL(FLE:INTEGER);«, l3=0x1a}
0x02f…036 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x036…047 Line {l1=0x0f, l2=»  OUT80(84,24);«, l3=0x0f}
0x047…05c Line {l1=0x13, l2=»  OUT80(85,FLE+64);«, l3=0x13}
0x05c…083 Line {l1=0x25, l2=»  WHILE IN80(86,64)<>0 DO WRITE('Q');«, l3=0x25}
0x083…093 Line {l1=0x0e, l2=»  OUT80(86,1);«, l3=0x0e}
0x093…0a2 Line {l1=0x0d, l2=»  OUT80(86,0)«, l3=0x0d}
0x0a2…0a8 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0a8…0b7 Line {l1=0x0d, l2=»PROCEDURE FF;«, l3=0x0d}
0x0b7…0be Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0be…0da Line {l1=0x1a, l2=»  WHILE IN80(86,64)<>0 DO;«, l3=0x1a}
0x0da…0ec Line {l1=0x10, l2=»  OUT80(85,192);«, l3=0x10}
0x0ec…0fc Line {l1=0x0e, l2=»  OUT80(85,64)«, l3=0x0e}
0x0fc…102 Line {l1=0x04, l2=»END;«, l3=0x04}
0x102…109 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x109…111 Line {l1=0x06, l2=»FL(9);«, l3=0x06}
0x111…153 Line {l1=0x40, l2=»WRITE(LIST,'<ShhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhHHHHHHHHHHHH>');«, l3=0x40}
0x153…163 Line {l1=0x0e, l2=»WRITELN(LIST);«, l3=0x0e}
0x163…1a9 Line {l1=0x44, l2=»WRITE(LIST,'<SvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvVVVVVVVVVVVVVVVV>');«, l3=0x44}
0x1a9…1b9 Line {l1=0x0e, l2=»WRITELN(LIST);«, l3=0x0e}
0x1b9…1f8 Line {l1=0x3d, l2=»WRITE(LIST,'<Smmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm>');«, l3=0x3d}
0x1f8…208 Line {l1=0x0e, l2=»WRITELN(LIST);«, l3=0x0e}
0x208…238 Line {l1=0x2e, l2=»WRITE('FORMULAR-INITIERING AFSLUTTET');WRITELN«, l3=0x2e}
0x238…23e Line {l1=0x04, l2=»END.«, l3=0x04}
0x23e…240 00 00                                                                                             ┆  ┆
0x240…260 48 49 4c 45 20 49 4e 38 30 28 38 36 2c 36 34 29 3c 3e 30 20 44 4f 20 57 52 49 54 45 28 27 51 27   ┆HILE IN80(86,64)<>0 DO WRITE('Q'┆
0x260…280 29 3b 25 0e 20 20 4f 55 54 38 30 28 38 36 2c 31 29 3b 0e 0d 20 20 4f 55 54 38 30 28 38 36 2c 30   ┆);%   OUT80(86,1);    OUT80(86,0┆
0x280…2a0 29 0d 04 45 4e 44 3b 04 0d 50 52 4f 43 45 44 55 52 45 20 46 46 3b 0d 05 42 45 47 49 4e 05 1a 20   ┆)  END;  PROCEDURE FF;  BEGIN   ┆
0x2a0…2c0 20 57 48 49 4c 45 20 49 4e 38 30 28 38 36 2c 36 34 29 3c 3e 30 20 44 4f 3b 1a 10 20 20 4f 55 54   ┆ WHILE IN80(86,64)<>0 DO;    OUT┆
0x2c0…2e0 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   ┆                                ┆
          […0x7…]

Reduced view