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

⟦23f064549⟧ TextFile

    Length: 2528 (0x9e0)
    Types: TextFile
    Notes: Mikados_K
    Names: »COMPARES.K«

Derivation

└─⟦ca21ef4c0⟧ Bits:30005311 Extended Pascal System Disc v. 04.07.1980 (SPC/1)
    └─⟦this⟧ »COMPARES.K«

Mikados K File

PROGRAM COMPARESTRINGS;
  VAR S: STRING;
      T: STRING(.40.);
      
BEGIN
S := 'SOMETHING';
T := 'SOMETHING BIGGER';
IF S = T THEN WRITELN('Strings don''t work too well')
ELSE IF S>T THEN WRITELN(S,' is greater than ', T)
     ELSE IF S<T THEN WRITELN(S,' is less than ', T);
IF S='SOMETHING' THEN WRITELN(S,' equals ',S);
IF S>'SAMETHING' THEN
     WRITELN(S,' is greater than SAMETHING');
IF S='SOMETHING ' THEN WRITELN('Blanks don''t count')
ELSE WRITELN('Blanks appear to make a difference');
S := 'XXX';
T := 'ABCDEF';
IF S>T THEN WRITELN(S,' is greater than ',T)
       ELSE WRITELN(S,' is less than ', T);
IF 'UPPERCASE'<'lowercase' THEN
       WRITELN('lowercase is greater than UPPERCASE')
ELSE WRITELN('Lowercase=uppercase')
END.

Mikados K File

0x000…019 Line {l1=0x17, l2=»PROGRAM COMPARESTRINGS;«, l3=0x17}
0x019…02b Line {l1=0x10, l2=»  VAR S: STRING;«, l3=0x10}
0x02b…043 Line {l1=0x16, l2=»      T: STRING(.40.);«, l3=0x16}
0x043…04b Line {l1=0x06, l2=»      «, l3=0x06}
0x04b…052 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x052…065 Line {l1=0x11, l2=»S := 'SOMETHING';«, l3=0x11}
0x065…07f Line {l1=0x18, l2=»T := 'SOMETHING BIGGER';«, l3=0x18}
0x07f…0b6 Line {l1=0x35, l2=»IF S = T THEN WRITELN('Strings don''t work too well')«, l3=0x35}
0x0b6…0ea Line {l1=0x32, l2=»ELSE IF S>T THEN WRITELN(S,' is greater than ', T)«, l3=0x32}
0x0ea…121 Line {l1=0x35, l2=»     ELSE IF S<T THEN WRITELN(S,' is less than ', T);«, l3=0x35}
0x121…151 Line {l1=0x2e, l2=»IF S='SOMETHING' THEN WRITELN(S,' equals ',S);«, l3=0x2e}
0x151…168 Line {l1=0x15, l2=»IF S>'SAMETHING' THEN«, l3=0x15}
0x168…197 Line {l1=0x2d, l2=»     WRITELN(S,' is greater than SAMETHING');«, l3=0x2d}
0x197…1ce Line {l1=0x35, l2=»IF S='SOMETHING ' THEN WRITELN('Blanks don''t count')«, l3=0x35}
0x1ce…203 Line {l1=0x33, l2=»ELSE WRITELN('Blanks appear to make a difference');«, l3=0x33}
0x203…210 Line {l1=0x0b, l2=»S := 'XXX';«, l3=0x0b}
0x210…220 Line {l1=0x0e, l2=»T := 'ABCDEF';«, l3=0x0e}
0x220…24e Line {l1=0x2c, l2=»IF S>T THEN WRITELN(S,' is greater than ',T)«, l3=0x2c}
0x24e…27b Line {l1=0x2b, l2=»       ELSE WRITELN(S,' is less than ', T);«, l3=0x2b}
0x27b…29c Line {l1=0x1f, l2=»IF 'UPPERCASE'<'lowercase' THEN«, l3=0x1f}
0x29c…2d3 Line {l1=0x35, l2=»       WRITELN('lowercase is greater than UPPERCASE')«, l3=0x35}
0x2d3…2f8 Line {l1=0x23, l2=»ELSE WRITELN('Lowercase=uppercase')«, l3=0x23}
0x2f8…2fe Line {l1=0x04, l2=»END.«, l3=0x04}
0x2fe…300 00 00                                                                                             ┆  ┆
0x300…320 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   ┆                                ┆
          […0x1e…]
0x6e0…700 46 49 4c 53 35 20 20 20 52 41 00 05 00 00 00 00 00 00 00 ec 00 13 41 ec 00 05 00 00 00 00 00 00   ┆FILS5   RA            A         ┆
0x700…720 13 02 46 49 4c 53 35 20 20 20 02 5c 02 01 00 00 00 76 76 76 13 0d 04 46 49 4c 53 35 20 20 20 02   ┆  FILS5    Ø     vvv   FILS5    ┆
0x720…740 00 00 08 0d 0d 04 43 52 45 58 54 20 20 20 02 00 00 10 0d 0d 05 42 41 53 49 52 20 20 20 01 00 00   ┆      CREXT          BASIR      ┆
0x740…760 10 0d 0d 05 55 44 49 4e 44 20 20 20 02 00 00 10 0d 0d 05 50 4c 4c 5b 53 20 20 20 03 00 00 10 0d   ┆    UDIND          PLLÆS        ┆
0x760…780 0d 05 50 4c 41 44 53 20 20 20 04 00 00 10 0d 0d 05 5b 4e 44 52 20 20 20 20 05 00 00 10 0d 0d 05   ┆  PLADS          ÆNDR           ┆
0x780…7a0 4d 4f 56 45 33 20 20 20 06 00 00 10 0d 0d 05 4d 4f 56 45 20 20 20 20 07 00 00 10 0d 0d 05 46 52   ┆MOVE3          MOVE           FR┆
0x7a0…7c0 49 49 46 20 20 20 08 00 00 10 0d 0d 05 42 41 53 49 46 20 20 20 09 00 00 10 0d 0d 05 53 4b 52 49   ┆IIF          BASIF          SKRI┆
0x7c0…7e0 56 20 20 20 0a 00 00 10 0d 0d 08 e1 c1 e5 c5 0a 2f 21 29 00 09 be ca 0d 04 0a 02 13 00 04 04 08   ┆V               /!)             ┆
0x7e0…800 3e 06 c3 04 04 0a 02 38 02 04 09 08 21 0a 00 09 3e 3c be c2 09 04 0a 02 22 00 04 04 08 3e 08 c3   ┆>      8    !   ><      "    >  ┆
0x800…820 04 04 0a 02 38 02 04 09 08 21 18 00 09 7e e6 01 c2 09 04 0a 02 31 00 04 04 08 3e 06 c3 04 04 0a   ┆    8    !   ü       1    >     ┆
0x820…840 02 38 02 04 16 08 e1 54 5d 01 13 00 09 4e 23 46 c5 23 4e 23 46 c5 eb e5 0e 03 cd 16 05 0b 01 00   ┆ 8     TÅ    N#F #N#F           ┆
0x840…860 00 00 05 0c 08 c1 c0 c5 21 18 00 09 3e 02 a6 ca 0c 04 0a 02 61 00 04 08 08 35 35 e1 e5 3e 02 cd   ┆        !   >       a    55  >  ┆
0x860…880 08 05 0b 02 00 00 00 05 02 08 c2 02 04 0a 02 07 02 04 04 08 e1 e5 cd 04 05 0b 03 00 00 00 05 0d   ┆                                ┆
0x880…8a0 08 c1 c5 21 20 00 09 5e 23 56 60 69 cd 0d 05 0b 04 00 00 00 05 02 08 c2 02 04 0a 02 07 02 04 05   ┆   !   ^#V`i                    ┆
0x8a0…8c0 08 e1 d5 e5 cd 05 05 0b 05 00 00 00 05 02 08 ca 02 04 0a 02 85 00 04 04 08 e1 e3 c3 04 04 0a 02   ┆                                ┆
0x8c0…8e0 07 02 04 16 08 e3 d5 c5 5a d5 97 f5 e5 01 0d 00 09 5e 7b 23 56 b2 23 46 b0 ca 16 04 0a 02 c8 00   ┆        Z        ^æ#V #F        ┆
0x8e0…900 04 17 08 78 c1 c5 21 13 00 09 73 23 72 23 77 21 16 00 09 3e 01 77 60 69 cd 17 05 0b 02 00 00 00   ┆   x  !   s#r#w!   > w`i        ┆
0x900…920 05 02 08 ca 02 04 0a 02 bc 00 04 04 08 e1 e3 c3 04 04 0a 02 00 02 04 0b 08 e1 f1 3c f5 e5 01 30   ┆                           <   0┆
0x920…940 00 09 c3 0b 04 0a 02 8d 00 04 06 08 e1 f1 e5 a7 c2 06 04 0a 02 e8 00 04 08 08 01 0d 00 09 0e 05   ┆                                ┆
0x940…960 cd 08 04 0a 02 3a 02 04 0f 08 e1 97 f5 e5 11 19 00 19 5e 23 56 23 46 c3 0f 04 0a 02 9c 00 04 0c   ┆     :            ^#V#F         ┆
0x960…980 08 01 30 00 09 01 0d 00 09 0e 05 cd 0c 04 0a 02 3a 02 04 0d 08 c1 c5 21 13 00 09 eb 21 24 00 09   ┆  0             :      !    !$  ┆
0x980…9a0 cd 0d 05 0b 06 00 00 00 05 11 08 e1 e5 01 30 00 09 01 10 00 09 7e 23 b6 23 b6 ca 11 04 0a 02 3c   ┆              0      ü# #      <┆
0x9a0…9c0 01 04 06 08 e1 e5 3e 02 cd 06 05 0b 02 00 00 00 05 02 08 c2 02 04 0a 02 00 02 04 0d 08 c1 c5 21   ┆      >                        !┆
0x9c0…9e0 2a 00 09 eb 21 13 00 09 cd 0d 05 0b 06 00 00 00 05 0b 08 21 16 00 09 3e 01 77 e1 e5 cd 0b 05 26   ┆*   !              !   > w     &┆

Reduced view