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

⟦3957ceccb⟧ TextFile

    Length: 672 (0x2a0)
    Types: TextFile
    Notes: Mikados_K
    Names: »OFEJL.K«

Derivation

└─⟦5630b2e42⟧ Bits:30009005 START APRIL 1985 aft april 1985 (PASCAL kildetekster)
    └─⟦this⟧ »OFEJL.K«

Mikados K File

PROCEDURE OFEJL(VAR REC:AR);
VAR I:INTEGER;
BEGIN
  GOTOXY(1,20);                                                        (*$R-*)
  WRITELN('REGISTERFEJL ',IER,' I ',REC(-3),                           
          ' . SITUATIONEN ER FORSØGT REDDET.');                        (*$R+*)
  WRITELN('TAST 0, HVIS DER SKAL FORTSÆTTES');                         
  REPEAT GOTOXY(40,21);READLN;READ(I) UNTIL IORESULT=0;
  IF I<>0 THEN ERROR(REC);
  CLEARSCREEN
END;

Mikados K File

0x000…01e Line {l1=0x1c, l2=»PROCEDURE OFEJL(VAR REC:AR);«, l3=0x1c}
0x01e…02e Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x02e…035 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x035…085 Line {l1=0x4e, l2=»  GOTOXY(1,20);                                                        (*$R-*)«, l3=0x4e}
0x085…0ce Line {l1=0x47, l2=»  WRITELN('REGISTERFEJL ',IER,' I ',REC(-3),                           «, l3=0x47}
0x0ce…11e Line {l1=0x4e, l2=»          ' . SITUATIONEN ER FORSØGT REDDET.');                        (*$R+*)«, l3=0x4e}
0x11e…167 Line {l1=0x47, l2=»  WRITELN('TAST 0, HVIS DER SKAL FORTSÆTTES');                         «, l3=0x47}
0x167…1a0 Line {l1=0x37, l2=»  REPEAT GOTOXY(40,21);READLN;READ(I) UNTIL IORESULT=0;«, l3=0x37}
0x1a0…1bc Line {l1=0x1a, l2=»  IF I<>0 THEN ERROR(REC);«, l3=0x1a}
0x1bc…1cb Line {l1=0x0d, l2=»  CLEARSCREEN«, l3=0x0d}
0x1cb…1d1 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1d1…1e0 00 00 52 20 52 45 43 3a 41 52 29 3b 1c 0e 56                                                      ┆  R REC:AR);  V┆
0x1e0…200 41 52 20 49 3a 49 4e 54 45 47 45 52 3b 0e 05 42 45 47 49 4e 05 4e 20 20 47 4f 54 4f 58 59 28 31   ┆AR I:INTEGER;  BEGIN N  GOTOXY(1┆
0x200…220 2c 32 30 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆,20);                           ┆
0x220…240 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2a 24   ┆                             (*$┆
0x240…260 52 2d 2a 29 4e 47 20 20 57 52 49 54 45 4c 4e 28 27 52 45 47 49 53 54 45 52 46 45 4a 4c 20 27 2c   ┆R-*)NG  WRITELN('REGISTERFEJL ',┆
0x260…280 49 45 52 2c 27 20 49 20 27 2c 52 45 43 28 2d 33 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆IER,' I ',REC(-3),              ┆
0x280…2a0 20 20 20 20 20 20 20 20 20 20 20 20 20 47 4e 20 20 20 20 20 20 20 20 20 20 27 20 2e 20 53 49 54   ┆             GN          ' . SIT┆

Reduced view