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

⟦8d3d4c54a⟧ TextFile

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

Derivation

└─⟦48e849709⟧ Bits:30005353 TTY program version: 1/4-82
    └─⟦this⟧ »KODENR.K«

Mikados K File

PROGRAM KODENR;
 
(* BR-04.12.84 *)
 
VAR KODE : STRING(10);
    BLANKON,BLANKOFF : STRING(2);
 
BEGIN
  BLANKON:=' _';
  BLANKOFF:=' q';
  BLANKON(1):=CHR(27);
  BLANKOFF(1):=CHR(27);
  CLEARSCREEN;
  WRITELN(CHR(27),'&');
  GOTOXY(25,10);
  WRITE(CHR(27),')');
  WRITE(BLANKON);
  GOTOXY(32,10);
  WRITE(BLANKOFF);
  WRITE(CHR(27),'(');
  GOTOXY(7,10);
  WRITE('Indlæs password : ');
  KODE:='      ';
  GOTOXY(25,10);
  EDIT(KODE:6);
  GOTOXY(7,12);
  IF KODE='BR0621' THEN
    WRITELN('OK')
  ELSE
    WRITELN('TUUUUUUUUUUUUUD : ',KODE);
  WRITELN(CHR(27),CHR(39));
END.

Mikados K File

0x000…011 Line {l1=0x0f, l2=»PROGRAM KODENR;«, l3=0x0f}
0x011…014 Line {l1=0x01, l2=» «, l3=0x01}
0x014…027 Line {l1=0x11, l2=»(* BR-04.12.84 *)«, l3=0x11}
0x027…02a Line {l1=0x01, l2=» «, l3=0x01}
0x02a…042 Line {l1=0x16, l2=»VAR KODE : STRING(10);«, l3=0x16}
0x042…065 Line {l1=0x21, l2=»    BLANKON,BLANKOFF : STRING(2);«, l3=0x21}
0x065…068 Line {l1=0x01, l2=» «, l3=0x01}
0x068…06f Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x06f…081 Line {l1=0x10, l2=»  BLANKON:=' _';«, l3=0x10}
0x081…094 Line {l1=0x11, l2=»  BLANKOFF:=' q';«, l3=0x11}
0x094…0ac Line {l1=0x16, l2=»  BLANKON(1):=CHR(27);«, l3=0x16}
0x0ac…0c5 Line {l1=0x17, l2=»  BLANKOFF(1):=CHR(27);«, l3=0x17}
0x0c5…0d5 Line {l1=0x0e, l2=»  CLEARSCREEN;«, l3=0x0e}
0x0d5…0ee Line {l1=0x17, l2=»  WRITELN(CHR(27),'&');«, l3=0x17}
0x0ee…100 Line {l1=0x10, l2=»  GOTOXY(25,10);«, l3=0x10}
0x100…117 Line {l1=0x15, l2=»  WRITE(CHR(27),')');«, l3=0x15}
0x117…12a Line {l1=0x11, l2=»  WRITE(BLANKON);«, l3=0x11}
0x12a…13c Line {l1=0x10, l2=»  GOTOXY(32,10);«, l3=0x10}
0x13c…150 Line {l1=0x12, l2=»  WRITE(BLANKOFF);«, l3=0x12}
0x150…167 Line {l1=0x15, l2=»  WRITE(CHR(27),'(');«, l3=0x15}
0x167…178 Line {l1=0x0f, l2=»  GOTOXY(7,10);«, l3=0x0f}
0x178…198 Line {l1=0x1e, l2=»  WRITE('Indlæs password : ');«, l3=0x1e}
0x198…1ab Line {l1=0x11, l2=»  KODE:='      ';«, l3=0x11}
0x1ab…1bd Line {l1=0x10, l2=»  GOTOXY(25,10);«, l3=0x10}
0x1bd…1ce Line {l1=0x0f, l2=»  EDIT(KODE:6);«, l3=0x0f}
0x1ce…1df Line {l1=0x0f, l2=»  GOTOXY(7,12);«, l3=0x0f}
0x1df…1f8 Line {l1=0x17, l2=»  IF KODE='BR0621' THEN«, l3=0x17}
0x1f8…20b Line {l1=0x11, l2=»    WRITELN('OK')«, l3=0x11}
0x20b…213 Line {l1=0x06, l2=»  ELSE«, l3=0x06}
0x213…23c Line {l1=0x27, l2=»    WRITELN('TUUUUUUUUUUUUUD : ',KODE);«, l3=0x27}
0x23c…259 Line {l1=0x1b, l2=»  WRITELN(CHR(27),CHR(39));«, l3=0x1b}
0x259…25f Line {l1=0x04, l2=»END.«, l3=0x04}
0x25f…260 00                                                                                                ┆ ┆
0x260…280 00 48 52 28 33 39 29 29 3b 1b 04 45 4e 44 2e 04 00 00 45 4c 53 45 06 1c 20 20 20 20 57 52 49 54   ┆ HR(39));  END.   ELSE      WRIT┆
0x280…2a0 45 4c 4e 28 27 46 4f 52 4b 45 52 54 20 4b 4f 44 45 27 29 3b 1c 1b 20 20 57 52 49 54 45 4c 4e 28   ┆ELN('FORKERT KODE');    WRITELN(┆
0x2a0…2c0 43 48 52 28 32 37 29 2c 43 48 52 28 33 39 29 29 3b 1b 04 45 4e 44 2e 04 00 00 00 00 63 63 63 63   ┆CHR(27),CHR(39));  END.     cccc┆
0x2c0…2e0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63   ┆cccccccccccccccccccccccccccccccc┆
          […0x10…]

Reduced view