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

⟦ee1ec9080⟧ TextFile

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

Derivation

└─⟦a3d38fea3⟧ Bits:30008985 PRODUKTION NBT.
    └─⟦this⟧ »NBTHOVED.K«

Mikados K File

BEGIN
  REPEAT
    BEGIN
      CLEARSCREEN;
      GOTOXY(10,10);
      WRITELN('OPSPLITNING AF ORDRE');
      GOTOXY(10,12);
      WRITELN('INDTAST ORDRENR (1000 - 9999, 0:FÆRDIG) :');
      GOTOXY(50,12);
      READLN;
      IF EOLN THEN
        SETIORESULT(-1)
      ELSE
        READ(ORDRENUM);
    IF(IORESULT=0)AND((ORDRENUM>999)AND(ORDRENUM<10000)) THEN
     MAINTAIN;
    END;
  UNTIL(IORESULT=0) AND (ORDRENUM=0);
  GOTOXY(10,14);
  WRITELN('OPSPLITNING AFSLUTTET NORMALT');
 
  FNAVN:=' ';
  FNAVN(1):=PARM^(1);
  CHAIN('L       *1',CONCAT('HOVED:P2,',FNAVN),QUQ);
  IF IORESULT<>0 THEN WRITELN('IORESULT ',IORESULT)
END.

Mikados K File

0x000…007 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x007…011 Line {l1=0x08, l2=»  REPEAT«, l3=0x08}
0x011…01c Line {l1=0x09, l2=»    BEGIN«, l3=0x09}
0x01c…030 Line {l1=0x12, l2=»      CLEARSCREEN;«, l3=0x12}
0x030…046 Line {l1=0x14, l2=»      GOTOXY(10,10);«, l3=0x14}
0x046…06e Line {l1=0x26, l2=»      WRITELN('OPSPLITNING AF ORDRE');«, l3=0x26}
0x06e…084 Line {l1=0x14, l2=»      GOTOXY(10,12);«, l3=0x14}
0x084…0c1 Line {l1=0x3b, l2=»      WRITELN('INDTAST ORDRENR (1000 - 9999, 0:FÆRDIG) :');«, l3=0x3b}
0x0c1…0d7 Line {l1=0x14, l2=»      GOTOXY(50,12);«, l3=0x14}
0x0d7…0e6 Line {l1=0x0d, l2=»      READLN;«, l3=0x0d}
0x0e6…0fa Line {l1=0x12, l2=»      IF EOLN THEN«, l3=0x12}
0x0fa…113 Line {l1=0x17, l2=»        SETIORESULT(-1)«, l3=0x17}
0x113…11f Line {l1=0x0a, l2=»      ELSE«, l3=0x0a}
0x11f…138 Line {l1=0x17, l2=»        READ(ORDRENUM);«, l3=0x17}
0x138…177 Line {l1=0x3d, l2=»    IF(IORESULT=0)AND((ORDRENUM>999)AND(ORDRENUM<10000)) THEN«, l3=0x3d}
0x177…187 Line {l1=0x0e, l2=»     MAINTAIN;«, l3=0x0e}
0x187…191 Line {l1=0x08, l2=»    END;«, l3=0x08}
0x191…1b8 Line {l1=0x25, l2=»  UNTIL(IORESULT=0) AND (ORDRENUM=0);«, l3=0x25}
0x1b8…1ca Line {l1=0x10, l2=»  GOTOXY(10,14);«, l3=0x10}
0x1ca…1f7 Line {l1=0x2b, l2=»  WRITELN('OPSPLITNING AFSLUTTET NORMALT');«, l3=0x2b}
0x1f7…1fa Line {l1=0x01, l2=» «, l3=0x01}
0x1fa…209 Line {l1=0x0d, l2=»  FNAVN:=' ';«, l3=0x0d}
0x209…220 Line {l1=0x15, l2=»  FNAVN(1):=PARM^(1);«, l3=0x15}
0x220…256 Line {l1=0x34, l2=»  CHAIN('L       *1',CONCAT('HOVED:P2,',FNAVN),QUQ);«, l3=0x34}
0x256…28b Line {l1=0x33, l2=»  IF IORESULT<>0 THEN WRITELN('IORESULT ',IORESULT)«, l3=0x33}
0x28b…291 Line {l1=0x04, l2=»END.«, l3=0x04}
0x291…2a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00                                                      ┆               ┆
0x2a0…2c0 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   ┆                                ┆
          […0x11…]

Reduced view