DataMuseum.dk

Presents historical artifacts from the history of:

RC4000/8000/9000

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about RC4000/8000/9000

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - metrics - download

⟦2c579b2cd⟧ Bits:30004129/s28101.imd SW8101/2 BOSS v.2 rel. 2.0, 8" Floppy Disk, ImdContainer

    Length: 629248 (0x99a00)
    Description: Bits:30004129/s28101.imd SW8101/2 BOSS v.2 rel. 2.0
    Types: 8" Floppy Disk, ImdContainer

Hex Dump

Dumping the first 0x20 bytes of each record
0x00000…00080 (0, 0, 1)  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   ┆                                ┆
         […0x3…]
0x00200…00280 (0, 0, 5)  45 52 4d 41 50 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   ┆ERMAP                           ┆
0x00280…00300 (0, 0, 6)  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   ┆                                ┆
0x00300…00380 (0, 0, 7)  56 4f 4c 31 53 32 38 31 30 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆VOL1S28101                      ┆
0x00380…00400 (0, 0, 8)  48 44 52 31 20 30 31 46 4c 58 53 41 56 45 46 49 4c 20 20 20 20 20 30 30 35 31 32 20 30 31 30 30   ┆HDR1 01FLXSAVEFIL     00512 0100┆
0x00400…00480 (0, 0, 9)  44 44 52 31 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   ┆DDR1                            ┆
         […0x2b…]
0x01a00…01c00 (1, 0, 1)  00 00 01 00 00 01 66 6c 78 63 61 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 08 00 07 50 a3 03   ┆      flxcat                 P  ┆
0x01c00…01e00 (1, 0, 2)  00 00 02 00 00 05 74 67 65 74 63 6f 6e 76 00 00 00 00 6d 61 69 6e 00 00 00 00 00 00 00 01 00 07   ┆      tgetconv    main          ┆
0x01e00…02000 (1, 0, 3)  00 00 68 00 00 09 0a 3b 20 6a 6d 61 20 31 39 38 30 2e 30 37 2e 31 30 20 20 20 20 20 20 20 20 20   ┆  h    ; jma 1980.07.10         ┆
0x02000…02200 (1, 0, 4)  00 00 68 00 00 0d 70 65 20 74 65 6d 70 20 61 63 63 6f 75 6e 74 66 69 6c 65 0a 63 6c 65 61 72 20   ┆  h   pe temp accountfile clear ┆
0x02200…02400 (1, 0, 5)  00 00 68 00 00 11 73 74 61 74 69 6f 6e 73 2c 20 73 69 7a 65 2c 20 77 61 69 74 69 6e 67 74 69 6d   ┆  h   stations, size, waitingtim┆
0x02400…02600 (1, 0, 6)  00 00 68 00 00 15 65 73 5f 6e 65 65 64 65 64 3b 0a 20 20 69 6e 74 65 67 65 72 20 6c 69 6e 65 73   ┆  h   es_needed;   integer lines┆
0x02600…02800 (1, 0, 7)  00 00 68 00 00 19 6f 75 74 2c 20 6e 6c 2c 20 31 2c 0a 20 20 20 20 20 20 20 20 73 70 2c 20 33 37   ┆  h   out, nl, 1,         sp, 37┆
0x02800…02a00 (1, 0, 8)  00 00 68 00 00 1d 20 20 20 20 20 20 3a 3d 20 20 32 3b 20 3c 2a 20 77 6f 72 64 20 20 20 20 20 20   ┆  h         :=  2; <* word      ┆
0x02a00…02c00 (1, 1, 1)  00 00 68 00 00 21 20 3c 2a 20 77 6f 72 64 20 20 20 20 20 20 20 20 20 20 2a 3e 0a 20 20 74 65 6d   ┆  h  ! <* word          *>   tem┆
0x02c00…02e00 (1, 1, 2)  00 00 68 00 00 25 20 20 20 20 20 20 2a 3e 0a 20 20 6c 6f 67 69 6e 74 69 6d 65 20 20 20 20 20 20   ┆  h  %      *>   logintime      ┆
0x02e00…03000 (1, 1, 3)  00 00 68 00 00 29 72 64 20 20 20 20 20 20 20 20 20 20 2a 3e 0a 20 20 65 78 70 5f 67 72 6f 73 73   ┆  h  )rd          *>   exp_gross┆
0x03000…03200 (1, 1, 4)  00 00 68 00 00 2d 3a 3d 20 30 3b 0a 20 20 73 6c 69 63 65 6c 65 6e 67 74 68 5f 6f 6e 5f 64 72 75   ┆  h  -:= 0;   slicelength_on_dru┆
0x03200…03400 (1, 1, 5)  00 00 68 00 00 31 3b 0a 20 20 64 61 74 65 3a 3d 20 73 79 73 74 69 6d 65 28 34 2c 20 6b 2c 20 74   ┆  h  1;   date:= systime(4, k, t┆
0x03400…03600 (1, 1, 6)  00 00 68 00 00 35 65 6e 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 63 6f 6d 6d 65 6e 74 20 6a 6f 62   ┆  h  5en   begin     comment job┆
0x03600…03800 (1, 1, 7)  00 00 68 00 00 39 2e 73 74 61 74 69 6f 6e 73 20 65 78 74 72 61 63 74 20 31 32 2c 0a 20 20 20 20   ┆  h  9.stations extract 12,     ┆
0x03800…03a00 (1, 1, 8)  00 00 68 00 00 3d 65 72 3a 3e 29 3b 0a 20 20 20 20 20 20 69 66 20 64 65 76 69 31 20 73 68 69 66   ┆  h  =er:>);       if devi1 shif┆
0x03a00…03c00 (2, 0, 1)  00 00 68 00 00 41 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 20 69 66 20 64 65 76 69 32 20   ┆  h  A      write(out, if devi2 ┆
0x03c00…03e00 (2, 0, 2)  00 00 68 00 00 45 20 20 20 7a 2e 6c 6f 67 69 6e 74 69 6d 65 2c 0a 20 20 20 20 20 20 7a 2e 6f 70   ┆  h  E   z.logintime,       z.op┆
0x03e00…04000 (2, 0, 3)  00 00 68 00 00 49 20 20 20 20 20 7a 2e 65 78 70 5f 67 72 6f 73 73 72 75 6e 74 69 6d 65 2a 30 2e   ┆  h  I     z.exp_grossruntime*0.┆
0x04000…04200 (2, 0, 4)  00 00 68 00 00 4d 65 20 3d 20 33 20 74 68 65 6e 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3a 6a 6f   ┆  h  Me = 3 then write(out, <:jo┆
0x04200…04400 (2, 0, 5)  00 00 cc 00 00 51 65 72 20 30 2e 32 29 0a 0a 0a 73 2e 20 61 32 30 20 77 2e 0a 20 20 20 20 20 38   ┆     Qer 0.2)   s. a20 w.      8┆
0x04400…04600 (2, 0, 6)  00 00 cc 00 00 55 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 20 20 20 2b 20 6c   ┆     U                ;      + l┆
0x04600…04800 (2, 0, 7)  00 00 cc 00 00 59 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   ┆     Y                          ┆
0x04800…04a00 (2, 0, 8)  00 00 cc 00 00 5d 61 75 73 65 20 74 68 65 79 20 61 72 65 20 2d 20 6d 6f 72 65 20 6f 72 20 6c 65   ┆     Åause they are - more or le┆
0x04a00…04c00 (2, 1, 1)  00 00 cc 00 00 61 69 6e 67 20 6f 66 20 72 65 63 6f 72 64 73 20 6f 66 20 76 61 72 79 69 6e 67 20   ┆     aing of records of varying ┆
0x04c00…04e00 (2, 1, 2)  00 00 cc 00 00 65 20 65 6e 74 72 69 65 73 20 77 68 69 63 68 20 61 72 65 20 70 72 6f 6d 69 73 65   ┆     e entries which are promise┆
0x04e00…05000 (2, 1, 3)  00 00 cc 00 00 69 61 74 61 6c 6f 67 20 65 6e 2d 0a 74 72 69 65 73 20 77 6f 72 6b 0a 0a 0a 20 20   ┆     iatalog en- tries work     ┆
0x05000…05200 (2, 1, 4)  00 00 cc 00 00 6d 20 20 20 20 20 20 20 20 20 20 20 20 36 20 20 21 20 20 20 20 20 20 20 20 20 64   ┆     m            6  !         d┆
0x05200…05400 (2, 1, 5)  00 00 cc 00 00 71 2d 2d 2d 2d 2d 21 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆     q-----!   !                ┆
0x05400…05600 (2, 1, 6)  00 00 cc 00 00 75 20 20 20 20 21 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆     u    !                     ┆
0x05600…05800 (2, 1, 7)  00 00 cc 00 00 79 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 20 20 20 20 20 20 20 20 20 20   ┆     y              !           ┆
0x05800…05a00 (2, 1, 8)  00 00 cc 00 00 7d 6f 6e 20 66 6f 72 20 65 61 63 68 20 75 73 65 72 0a 69 73 20 67 61 74 68 65 72   ┆     åon for each user is gather┆
0x05a00…05c00 (3, 0, 1)  00 00 cc 00 00 81 74 61 6e 64 61 72 64 20 76 61 2d 0a 6c 75 65 73 20 61 72 65 20 75 73 65 64 20   ┆      tandard va- lues are used ┆
0x05c00…05e00 (3, 0, 2)  00 00 cc 00 00 85 20 20 20 20 20 20 20 20 6d 61 78 2d 69 6e 74 65 72 76 61 6c 0a 20 20 20 2d 20   ┆              max-interval    - ┆
0x05e00…06000 (3, 0, 3)  00 00 cc 00 00 89 73 0a 0a 20 20 20 2d 20 30 20 2d 20 20 20 20 20 20 20 20 20 36 2c 20 31 32 0a   ┆      s     - 0 -         6, 12 ┆
0x06000…06200 (3, 0, 4)  00 00 cc 00 00 8d 20 2d 20 20 20 20 20 20 20 20 20 61 72 65 61 20 63 6c 61 69 6d 0a 0a 20 20 74   ┆       -         area claim    t┆
0x06200…06400 (3, 0, 5)  00 00 cc 00 00 91 20 20 28 72 65 66 31 2c 20 63 68 32 2c 20 70 34 29 0a 0a 20 20 20 2d 20 30 20   ┆        (ref1, ch2, p4)     - 0 ┆
0x06400…06600 (3, 0, 6)  00 00 cc 00 00 95 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 66 31 2c 20 63 68 32 2c   ┆                     (ref1, ch2,┆
0x06600…06800 (3, 0, 7)  00 00 cc 00 00 99 74 72 69 65 73 2c 20 72 65 73 74 20 73 6c 69 63 65 73 0a 20 20 20 2d 20 38 20   ┆      tries, rest slices    - 8 ┆
0x06800…06a00 (3, 0, 8)  00 00 cc 00 00 9d 20 20 20 20 20 34 32 20 2c 20 76 61 72 69 61 62 6c 65 20 6c 65 6e 67 74 68 0a   ┆           42 , variable length ┆
0x06a00…06c00 (3, 1, 1)  00 00 cc 00 00 a1 69 6d 65 20 20 28 72 65 66 31 2c 20 63 68 32 2c 20 70 34 29 0a 0a 20 20 20 2d   ┆      ime  (ref1, ch2, p4)     -┆
0x06c00…06e00 (3, 1, 2)  00 00 cc 00 00 a5 30 20 2d 20 20 20 20 20 20 20 20 20 20 35 38 2c 20 34 0a 20 20 20 2d 20 32 20   ┆      0 -          58, 4    - 2 ┆
0x06e00…07000 (3, 1, 3)  00 00 cc 00 00 a9 20 20 20 20 20 73 74 61 72 74 20 70 72 69 6f 72 69 74 79 20 66 61 63 74 6f 72   ┆           start priority factor┆
0x07000…07200 (3, 1, 4)  00 00 cc 00 00 ad 6e 6b 73 0a 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 65 66 65 72   ┆      nks                  Refer┆
0x07200…07400 (3, 1, 5)  00 00 cc 00 00 b1 20 20 20 20 6e 6f 5f 6f 66 5f 74 72 61 6e 73 2c 20 6e 6f 5f 6f 66 5f 76 61 72   ┆          no_of_trans, no_of_var┆
0x07400…07600 (3, 1, 6)  00 00 cc 00 00 b5 20 6c 65 6e 67 74 68 20 6f 66 20 6b 69 74 74 61 62 6c 65 3b 0a 69 6e 74 65 72   ┆       length of kittable; inter┆
0x07600…07800 (3, 1, 7)  00 00 cc 00 00 b9 31 3a 35 29 3b 0a 0a 0a 62 65 67 69 6e 0a 0a 69 6e 74 65 67 65 72 20 20 20 20   ┆      1:5);   begin  integer    ┆
0x07800…07a00 (3, 1, 8)  00 00 cc 00 00 bd 73 65 72 70 6f 6f 6c 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 65   ┆      serpool,                de┆
0x07a00…07c00 (4, 0, 1)  00 00 cc 00 00 c1 3b 0a 0c 0a 3c 2a 20 20 62 62 6a 20 20 20 39 20 39 20 37 36 20 20 20 20 20 20   ┆      ;   <*  bbj   9 9 76      ┆
0x07c00…07e00 (4, 0, 2)  00 00 cc 00 00 c5 6c 29 0a 20 20 20 20 20 20 20 32 2e 20 74 68 65 20 74 72 61 6e 73 61 63 74 69   ┆      l)        2. the transacti┆
0x07e00…08000 (4, 0, 3)  00 00 cc 00 00 c9 66 69 72 73 74 20 70 61 72 61 6d 65 74 65 72 20 6f 6e 20 74 68 65 0a 20 20 20   ┆      first parameter on the    ┆
0x08000…08200 (4, 0, 4)  00 00 cc 00 00 cd 74 20 74 68 65 20 70 72 6f 63 65 64 75 72 65 20 63 68 65 63 6b 73 2c 20 74 68   ┆      t the procedure checks, th┆
0x08200…08400 (4, 0, 5)  00 00 cc 00 00 d1 65 67 61 6c 20 74 79 70 65 3a 3e 29 3b 0a 20 20 20 63 6f 6d 6d 65 6e 74 20 6e   ┆      egal type:>);    comment n┆
0x08400…08600 (4, 0, 6)  00 00 cc 00 00 d5 65 73 20 74 68 65 20 66 61 75 6c 74 79 20 70 61 72 61 6d 65 74 65 72 73 20 6f   ┆      es the faulty parameters o┆
0x08600…08800 (4, 0, 7)  00 00 cc 00 00 d9 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3c 64 3e 2c 20 66 70 70   ┆            write(out, <<d>, fpp┆
0x08800…08a00 (4, 0, 8)  00 00 cc 00 00 dd 65 78 69 74 74 65 73 74 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 69 20 3a   ┆      exittest;     end;     i :┆
0x08a00…08c00 (4, 1, 1)  00 00 cc 00 00 e1 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c   ┆      en             write(out,<┆
0x08c00…08e00 (4, 1, 2)  00 00 cc 00 00 e5 65 6e 74 20 6e 6f 20 6c 69 73 74 69 6e 67 20 6f 66 20 75 73 65 72 63 61 74 61   ┆      ent no listing of usercata┆
0x08e00…09000 (4, 1, 3)  00 00 cc 00 00 e9 66 20 75 73 65 72 6e 61 6d 65 3b 0a 20 20 20 66 6f 72 20 69 20 3a 3d 20 30 20   ┆      f username;    for i := 0 ┆
0x09000…09200 (4, 1, 4)  00 00 cc 00 00 ed 3a 3d 20 31 20 73 68 69 66 74 20 31 32 20 2b 20 30 3b 20 20 20 63 6f 6d 6d 65   ┆      := 1 shift 12 + 0;   comme┆
0x09200…09400 (4, 1, 5)  00 00 cc 00 00 f1 6c 70 68 61 62 65 74 74 61 62 6c 65 28 69 2b 35 31 32 29 20 3a 3d 20 37 20 73   ┆      lphabettable(i+512) := 7 s┆
0x09400…09600 (4, 1, 6)  00 00 cc 00 00 f5 65 74 74 61 62 6c 65 28 69 2b 33 38 34 29 20 3a 3d 0a 20 20 20 20 20 20 61 6c   ┆      ettable(i+384) :=       al┆
0x09600…09800 (4, 1, 7)  00 00 cc 00 00 f9 6d 65 0a 20 20 20 20 32 2e 20 61 63 74 69 6f 6e 20 6e 75 6d 62 65 72 0a 20 20   ┆      me     2. action number   ┆
0x09800…09a00 (4, 1, 8)  00 00 cc 00 00 fd 72 20 61 63 74 69 6f 6e 6e 6f 2c 20 70 61 72 74 79 70 65 31 2c 20 70 61 72 74   ┆      r actionno, partype1, part┆
0x09a00…09c00 (5, 0, 1)  00 00 cc 00 01 01 2b 20 31 30 3b 0a 20 20 20 20 20 20 65 6e 64 20 70 61 63 6b 3b 0a 0a 20 20 20   ┆      + 10;       end pack;     ┆
0x09c00…09e00 (5, 0, 2)  00 00 cc 00 01 05 5f 32 2c 20 74 79 70 65 5f 38 2c 20 74 79 70 65 5f 38 2c 20 31 34 2c 20 34 29   ┆      _2, type_8, type_8, 14, 4)┆
0x09e00…0a000 (5, 0, 3)  00 00 cc 00 01 09 20 74 79 70 65 5f 38 2c 20 74 79 70 65 5f 38 2c 20 35 38 2c 20 34 29 3b 0a 20   ┆       type_8, type_8, 58, 4);  ┆
0x0a000…0a200 (5, 0, 4)  00 00 cc 00 01 0d 70 65 5f 38 2c 20 74 79 70 65 5f 38 2c 20 32 38 2c 20 34 29 3b 0a 20 20 20 70   ┆      pe_8, type_8, 28, 4);    p┆
0x0a200…0a400 (5, 0, 5)  00 00 cc 00 01 11 20 20 20 63 61 74 75 70 64 61 74 65 20 20 2e 2e 2e 31 32 2e 2e 2e 20 20 2a 3e   ┆         catupdate  ...12...  *>┆
0x0a400…0a600 (5, 0, 6)  00 00 cc 00 01 15 66 20 64 65 76 69 63 65 6c 69 73 74 2e 2e 2e 3b 0a 20 20 20 72 65 63 3a 3d 20   ┆      f devicelist...;    rec:= ┆
0x0a600…0a800 (5, 0, 7)  00 00 cc 00 01 19 6e 65 28 32 29 20 3a 3d 20 31 3b 20 20 63 6f 6d 6d 65 6e 74 20 70 72 65 66 2e   ┆      ne(2) := 1;  comment pref.┆
0x0a800…0aa00 (5, 0, 8)  00 00 cc 00 01 1d 20 20 20 20 20 20 20 20 20 63 61 74 75 70 64 61 74 65 20 20 2e 2e 2e 31 33 2e   ┆               catupdate  ...13.┆
0x0aa00…0ac00 (5, 1, 1)  00 00 cc 00 01 21 65 6e 74 20 70 6f 69 6e 74 20 61 74 20 61 20 70 6f 73 73 69 62 6c 65 20 70 72   ┆     !ent point at a possible pr┆
0x0ac00…0ae00 (5, 1, 2)  00 00 cc 00 01 25 74 68 65 20 70 61 72 61 6d 65 74 65 72 2c 20 77 68 69 6c 65 20 20 69 20 20 63   ┆     %the parameter, while  i  c┆
0x0ae00…0b000 (5, 1, 3)  00 00 cc 00 01 29 6f 6f 6c 64 63 61 74 3a 3d 20 74 72 75 65 3b 0a 20 20 20 20 20 20 65 6e 64 20   ┆     )ooldcat:= true;       end ┆
0x0b000…0b200 (5, 1, 4)  00 00 cc 00 01 2d 5f 74 72 61 6e 73 3a 3d 20 6e 6f 5f 6f 66 5f 76 61 72 74 72 61 6e 73 3a 3d 20   ┆     -_trans:= no_of_vartrans:= ┆
0x0b200…0b400 (5, 1, 5)  00 00 cc 00 01 31 2e 2e 2e 3b 0a 20 20 20 6c 69 6e 65 74 79 70 65 20 3a 3d 20 2d 31 3b 20 20 63   ┆     1...;    linetype := -1;  c┆
0x0b400…0b600 (5, 1, 6)  00 00 cc 00 01 35 31 32 29 20 3c 3e 20 38 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 0a   ┆     512) <> 8 then       begin ┆
0x0b600…0b800 (5, 1, 7)  00 00 cc 00 01 39 20 65 6c 73 65 20 74 68 61 6e 20 61 20 62 61 63 6b 69 6e 67 20 73 74 6f 72 65   ┆     9 else than a backing store┆
0x0b800…0ba00 (5, 1, 8)  00 00 cc 00 01 3d 3d 20 31 38 20 74 68 65 6e 0a 73 65 74 70 6f 73 69 74 69 6f 6e 28 69 6e 2c 20   ┆     == 18 then setposition(in, ┆
0x0ba00…0bc00 (6, 0, 1)  00 00 cc 00 01 41 29 20 6f 66 0a 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20   ┆     A) of          begin       ┆
0x0bc00…0be00 (6, 0, 2)  00 00 cc 00 01 45 2c 20 3c 3a 3c 31 30 3e 3a 3e 29 3b 0a 20 20 69 66 20 69 6e 6c 69 6e 65 74 79   ┆     E, <:<10>:>);   if inlinety┆
0x0be00…0c000 (6, 0, 3)  00 00 cc 00 01 49 61 64 64 20 6a 2c 20 31 29 3b 0a 20 20 20 72 65 70 65 61 74 63 68 61 72 28 69   ┆     Iadd j, 1);    repeatchar(i┆
0x0c000…0c200 (6, 0, 4)  00 00 cc 00 01 4d 6e 64 2c 20 31 29 3b 0a 72 65 70 65 61 74 63 68 61 72 28 69 6e 29 3b 0a 66 72   ┆     Mnd, 1); repeatchar(in); fr┆
0x0c200…0c400 (6, 0, 5)  00 00 cc 00 01 51 0a 0a 63 6f 6d 6d 65 6e 74 20 73 65 61 72 63 68 20 74 68 65 20 6b 69 6e 64 2d   ┆     Q  comment search the kind-┆
0x0c400…0c600 (6, 0, 6)  00 00 cc 00 01 55 0a 20 20 20 20 20 20 65 78 74 72 61 63 74 20 31 20 3d 20 30 20 74 68 65 6e 0a   ┆     U       extract 1 = 0 then ┆
0x0c600…0c800 (6, 0, 7)  00 00 cc 00 01 59 6e 64 3b 0a 70 28 6e 75 6d 62 65 72 5f 6f 66 5f 70 61 72 61 6d 73 29 20 3a 3d   ┆     Ynd; p(number_of_params) :=┆
0x0c800…0ca00 (6, 0, 8)  00 00 cc 00 01 5d 68 20 3a 3d 20 63 61 73 65 20 6c 69 6e 65 74 79 70 65 2b 32 20 6f 66 0a 20 20   ┆     Åh := case linetype+2 of   ┆
0x0ca00…0cc00 (6, 1, 1)  00 00 cc 00 01 61 6c 69 6e 65 74 79 70 65 31 20 2c 20 74 65 72 6d 70 72 6f 6a 20 20 2c 20 74 65   ┆     alinetype1 , termproj  , te┆
0x0cc00…0ce00 (6, 1, 2)  00 00 cc 00 01 65 39 20 39 20 37 36 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆     e9 9 76                    ┆
0x0ce00…0d000 (6, 1, 3)  00 00 cc 00 01 69 29 29 20 2d 20 31 3b 0a 20 20 20 70 28 34 29 20 3a 3d 20 69 6e 63 72 65 61 73   ┆     i)) - 1;    p(4) := increas┆
0x0d000…0d200 (6, 1, 4)  00 00 cc 00 01 6d 33 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74   ┆     m3 then       begin comment┆
0x0d200…0d400 (6, 1, 5)  00 00 cc 00 01 71 20 6f 66 20 73 69 6d 75 6c 74 2e 20 6a 6f 62 73 2c 0a 20 20 20 20 20 20 20 20   ┆     q of simult. jobs,         ┆
0x0d400…0d600 (6, 1, 6)  00 00 cc 00 01 75 20 6e 6f 5f 6f 66 5f 74 72 61 6e 73 20 2d 20 31 3b 0a 20 20 20 6e 6f 5f 6f 66   ┆     u no_of_trans - 1;    no_of┆
0x0d600…0d800 (6, 1, 7)  00 00 cc 00 01 79 20 74 68 65 6e 20 75 73 65 72 70 6f 6f 6c 3a 3d 20 74 72 75 65 3b 0a 20 20 20   ┆     y then userpool:= true;    ┆
0x0d800…0da00 (6, 1, 8)  00 00 cc 00 01 7d 72 69 6e 74 5f 6c 69 6e 65 3b 0a 0a 0a 6c 69 6e 65 74 79 70 65 35 3a 20 20 20   ┆     årint_line;   linetype5:   ┆
0x0da00…0dc00 (7, 0, 1)  00 00 cc 00 01 81 20 73 68 69 66 74 20 31 36 3b 0a 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 65   ┆       shift 16;       comment e┆
0x0dc00…0de00 (7, 0, 2)  00 00 cc 00 01 85 65 20 6f 70 74 69 6f 6e 20 6c 69 6e 65 2e 2e 2e 3b 0a 20 20 20 20 20 20 69 66   ┆      e option line...;       if┆
0x0de00…0e000 (7, 0, 3)  00 00 cc 00 01 89 69 66 74 20 31 32 20 2b 20 72 65 63 74 79 70 65 6c 67 74 68 3b 0a 20 20 20 20   ┆      ift 12 + rectypelgth;     ┆
0x0e000…0e200 (7, 0, 4)  00 00 cc 00 01 8d 0a 20 20 20 3c 2a 20 75 73 65 64 20 62 79 20 6f 6c 64 65 72 20 76 65 72 73 69   ┆          <* used by older versi┆
0x0e200…0e400 (7, 0, 5)  00 00 cc 00 01 91 72 73 3b 0a 0a 20 20 20 6f 75 74 70 75 74 28 74 72 61 6e 73 2c 20 6d 61 78 6c   ┆      rs;     output(trans, maxl┆
0x0e400…0e600 (7, 0, 6)  00 00 cc 00 01 95 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 3b 0a 0a 20 20 20 63 68 65 63 6b 70 61 72   ┆      *********** ;     checkpar┆
0x0e600…0e800 (7, 0, 7)  00 00 cc 00 01 99 74 20 20 70 72 6f 6a 65 63 74 20 69 64 20 28 61 63 63 6f 75 6e 74 20 69 6e 66   ┆      t  project id (account inf┆
0x0e800…0ea00 (7, 0, 8)  00 00 cc 00 01 9d 20 20 2d 20 20 20 2d 0a 20 20 20 20 20 20 32 20 2d 20 64 65 6c 65 74 65 20 20   ┆        -   -       2 - delete  ┆
0x0ea00…0ec00 (7, 1, 1)  00 00 cc 00 01 a1 74 28 74 72 61 6e 73 2c 20 6d 61 78 6c 65 6e 67 74 68 29 3b 0a 20 20 20 6d 61   ┆      t(trans, maxlength);    ma┆
0x0ec00…0ee00 (7, 1, 2)  00 00 cc 00 01 a5 20 20 62 62 6a 20 20 20 39 20 39 20 37 36 20 20 20 20 20 20 20 20 20 20 20 20   ┆        bbj   9 9 76            ┆
0x0ee00…0f000 (7, 1, 3)  00 00 cc 00 01 a9 20 2a 20 32 20 2b 20 32 3b 20 20 63 6f 6d 6d 65 6e 74 20 70 6f 69 6e 74 20 61   ┆       * 2 + 2;  comment point a┆
0x0f000…0f200 (7, 1, 4)  00 00 cc 00 01 ad 20 20 3a 3d 20 20 30 3b 20 20 63 6f 6d 6d 65 6e 74 20 6e 6f 20 64 65 76 69 63   ┆        :=  0;  comment no devic┆
0x0f200…0f400 (7, 1, 5)  00 00 cc 00 01 b1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 69 6e 65 74 79 70 65 73 20   ┆                      linetypes ┆
0x0f400…0f600 (7, 1, 6)  00 00 cc 00 01 b5 64 20 36 3b 0a 20 20 20 20 20 20 6f 75 74 70 75 74 28 74 72 61 6e 73 2c 20 6d   ┆      d 6;       output(trans, m┆
0x0f600…0f800 (7, 1, 7)  00 00 cc 00 01 b9 2e 2e 2e 20 20 2a 3e 0a 0a 0a 0a 63 6f 6d 6d 65 6e 74 20 74 68 65 20 66 6f 6c   ┆      ...  *>    comment the fol┆
0x0f800…0fa00 (7, 1, 8)  00 00 cc 00 01 bd 61 70 65 2c 20 70 72 69 6f 2c 20 6c 69 6e 6b 3b 0a 0a 20 20 20 6f 75 74 70 75   ┆      ape, prio, link;     outpu┆
0x0fa00…0fc00 (8, 0, 1)  00 00 cc 00 01 c1 20 64 65 76 69 63 65 6e 75 6d 62 65 72 28 69 29 20 3e 20 30 20 74 68 65 6e 0a   ┆       devicenumber(i) > 0 then ┆
0x0fc00…0fe00 (8, 0, 2)  00 00 cc 00 01 c5 6f 74 6f 20 64 65 76 69 63 65 5f 66 6f 75 6e 64 3b 0a 20 20 20 20 20 20 61 6c   ┆      oto device_found;       al┆
0x0fe00…10000 (8, 0, 3)  00 00 cc 00 01 c9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 70 65 63 69 61 6c 20 61   ┆                       special a┆
0x10000…10200 (8, 0, 4)  00 00 cc 00 01 cd 0a 20 20 20 6f 75 74 70 75 74 28 74 72 61 6e 73 2c 20 6d 61 78 6c 65 6e 67 74   ┆          output(trans, maxlengt┆
0x10200…10400 (8, 0, 5)  00 00 cc 00 01 d1 20 20 74 72 61 6e 73 2e 6c 6f 6e 67 32 20 3a 3d 20 69 66 20 6b 69 6e 64 28 70   ┆        trans.long2 := if kind(p┆
0x10400…10600 (8, 0, 6)  00 00 cc 00 01 d5 20 39 20 39 20 37 36 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆       9 9 76                   ┆
0x10600…10800 (8, 0, 7)  00 00 cc 00 01 d9 20 6c 69 6e 65 28 70 28 32 29 29 3b 0a 20 20 20 67 6f 74 6f 20 70 72 69 6e 74   ┆       line(p(2));    goto print┆
0x10800…10a00 (8, 0, 8)  00 00 cc 00 01 dd 3e 29 3b 0a 0a 20 20 20 6e 61 6d 65 70 74 72 20 3a 3d 20 70 28 31 29 20 2a 20   ┆      >);     nameptr := p(1) * ┆
0x10a00…10c00 (8, 1, 1)  00 00 cc 00 01 e1 72 20 20 6d 69 6e 69 3b 0a 0a 20 20 20 6e 61 6d 65 70 74 72 20 3a 3d 20 70 28   ┆      r  mini;     nameptr := p(┆
0x10c00…10e00 (8, 1, 2)  00 00 cc 00 01 e5 68 61 6e 67 65 64 20 69 6e 74 6f 20 74 72 61 6e 73 61 63 74 69 6f 6e 20 72 65   ┆      hanged into transaction re┆
0x10e00…11000 (8, 1, 3)  00 00 cc 00 01 e9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6f 72 74 69 6e 67 20 6f 66 20 72   ┆                    sorting of r┆
0x11000…11200 (8, 1, 4)  00 00 cc 00 01 ed 6c 7b 6e 67 64 65 20 3a 3d 20 62 20 2a 20 66 79 73 69 73 6b 73 75 62 62 6c 6f   ┆      længde := b * fysisksubblo┆
0x11200…11400 (8, 1, 5)  00 00 cc 00 01 f1 6c 6f 6e 67 20 72 3b 0a 20 20 20 20 20 20 6c 6f 6e 67 20 66 69 65 6c 64 20 69   ┆      long r;       long field i┆
0x11400…11600 (8, 1, 6)  00 00 cc 00 01 f5 20 20 20 20 20 20 20 20 20 20 73 65 74 73 68 61 72 65 28 7a 2c 69 61 2c 31 29   ┆                setshare(z,ia,1)┆
0x11600…11800 (8, 1, 7)  00 00 cc 00 01 f9 20 20 20 20 20 20 69 66 20 65 6e 62 6c 6f 6b 20 74 68 65 6e 20 6d 3a 3d 6d 2d   ┆            if enblok then m:=m-┆
0x11800…11a00 (8, 1, 8)  00 00 cc 00 01 fd 76 65 6c 29 20 74 68 65 6e 20 67 6f 74 6f 20 73 7c 67 6e 65 64 20 65 6c 73 65   ┆      vel) then goto søgned else┆
0x11a00…11c00 (9, 0, 1)  00 00 cc 00 02 01 65 6e 20 6c 65 76 65 6c 3a 3d 20 6c 65 76 65 6c 73 3b 0a 0a 20 20 20 20 20 20   ┆      en level:= levels;        ┆
0x11c00…11e00 (9, 0, 2)  00 00 cc 00 02 05 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 3a 3d 73 74 61 72 74 3b 20 73 74 61   ┆                   i:=start; sta┆
0x11e00…12000 (9, 0, 3)  00 00 cc 00 02 09 69 73 6b 3a 3d 20 66 79 73 69 73 6b 2b 62 61 73 69 73 3b 0a 20 20 20 20 20 20   ┆      isk:= fysisk+basis;       ┆
0x12000…12200 (9, 0, 4)  00 00 cc 00 02 0d 6f 6b 6e 72 20 2a 20 66 79 73 69 73 6b 73 75 62 62 6c 6f 6b 6c 7b 6e 67 64 65   ┆      oknr * fysisksubbloklængde┆
0x12200…12400 (9, 0, 5)  00 00 cc 00 02 11 64 69 66 66 3b 0a 20 20 20 20 20 20 6c 6f 67 69 73 6b 62 6c 6f 6b 6c 7b 6e 67   ┆      diff;       logiskbloklæng┆
0x12400…12600 (9, 0, 6)  00 00 cc 00 02 15 76 61 72 74 72 61 6e 73 6e 61 6d 65 28 69 6e 63 72 65 61 73 65 28 69 29 29 2c   ┆      vartransname(increase(i)),┆
0x12600…12800 (9, 0, 7)  00 00 cc 00 02 19 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 70 72 6f 6a 2c 20 63 75 73   ┆                      cproj, cus┆
0x12800…12a00 (9, 0, 8)  00 00 cc 00 02 1d 20 75 73 65 72 6e 61 6d 65 32 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆       username2,               ┆
0x12a00…12c00 (9, 1, 1)  00 00 cc 00 02 21 28 73 74 61 72 74 2c 20 70 72 6f 6a 65 63 74 2c 20 6c 6f 77 69 6e 74 2c 20 75   ┆     !(start, project, lowint, u┆
0x12c00…12e00 (9, 1, 2)  00 00 cc 00 02 25 6c 65 5f 73 69 7a 65 20 74 68 65 6e 0a 20 20 20 20 20 20 69 6e 74 65 72 76 61   ┆     %le_size then       interva┆
0x12e00…13000 (9, 1, 3)  00 00 cc 00 02 29 78 69 74 3b 0a 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 69 2e 65 2e 20 74 68   ┆     )xit;       comment i.e. th┆
0x13000…13200 (9, 1, 4)  00 00 cc 00 02 2d 6f 63 6b 3a 0a 20 20 20 69 6e 72 65 63 36 28 6f 6c 64 63 61 74 2c 20 35 31 32   ┆     -ock:    inrec6(oldcat, 512┆
0x13200…13400 (9, 1, 5)  00 00 cc 00 02 31 20 20 20 6f 6c 64 63 61 74 2e 63 61 74 2e 63 75 70 70 65 72 3b 0a 20 20 20 20   ┆     1   oldcat.cat.cupper;     ┆
0x13400…13600 (9, 1, 6)  00 00 cc 00 02 35 0a 20 20 20 20 20 20 20 20 20 69 6e 74 65 72 76 61 6c 73 2e 6c 6f 77 65 72 2e   ┆     5          intervals.lower.┆
0x13600…13800 (9, 1, 7)  00 00 cc 00 02 39 63 6f 6d 6d 65 6e 74 20 72 65 73 74 6f 72 65 20 74 68 65 20 6f 6c 64 63 61 74   ┆     9comment restore the oldcat┆
0x13800…13a00 (9, 1, 8)  00 00 cc 00 02 3d 69 6e 74 65 72 76 61 6c 73 2e 6c 6f 77 65 72 2e 73 65 61 72 63 68 70 74 72 20   ┆     =intervals.lower.searchptr ┆
0x13a00…13c00 (10, 0, 1) 00 00 cc 00 02 41 61 6c 73 2e 75 70 70 65 72 2e 6d 69 6e 70 74 72 3b 0a 20 20 20 20 20 20 69 6e   ┆     Aals.upper.minptr;       in┆
0x13c00…13e00 (10, 0, 2) 00 00 cc 00 02 45 0a 20 20 20 63 6f 6d 6d 65 6e 74 20 74 68 65 20 70 72 6f 63 65 64 75 72 65 20   ┆     E    comment the procedure ┆
0x13e00…14000 (10, 0, 3) 00 00 cc 00 02 49 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 69 66 20 65 78 74 65   ┆     I       begin       if exte┆
0x14000…14200 (10, 0, 4) 00 00 cc 00 02 4d 6e 74 2e 2e 2e 3b 0a 20 20 20 20 20 20 20 20 20 69 66 20 6c 6f 77 20 3c 20 6c   ┆     Mnt...;          if low < l┆
0x14200…14400 (10, 0, 5) 00 00 cc 00 02 51 20 61 20 68 6f 6c 65 20 69 73 20 66 6f 75 6e 64 20 62 69 67 20 65 6e 6f 75 67   ┆     Q a hole is found big enoug┆
0x14400…14600 (10, 0, 6) 00 00 cc 00 02 55 74 20 2d 20 31 0a 20 20 20 65 6c 73 65 0a 0a 20 20 20 69 66 20 69 6e 74 65 72   ┆     Ut - 1    else     if inter┆
0x14600…14800 (10, 0, 7) 00 00 cc 00 02 59 72 65 65 3b 0a 20 20 20 66 69 72 73 74 66 72 65 65 20 20 20 20 20 20 20 20 20   ┆     Yree;    firstfree         ┆
0x14800…14a00 (10, 0, 8) 00 00 cc 00 02 5d 61 74 2c 20 35 31 32 29 3b 0a 20 20 20 20 20 20 6e 65 78 74 6e 65 77 20 3a 3d   ┆     Åat, 512);       nextnew :=┆
0x14a00…14c00 (10, 1, 1) 00 00 cc 00 02 61 6c 74 61 62 6c 65 5f 73 69 7a 65 2f 2f 36 2c 20 3c 3a 3c 31 30 3e 73 69 7a 65   ┆     altable_size//6, <:<10>size┆
0x14c00…14e00 (10, 1, 2) 00 00 cc 00 02 65 67 20 3a 3d 20 66 61 6c 73 65 20 65 6c 73 65 0a 20 20 20 67 6f 74 6f 20 6e 65   ┆     eg := false else    goto ne┆
0x14e00…15000 (10, 1, 3) 00 00 cc 00 02 69 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3c 64 3e 2c 20 72 65 63 6f 72 64 28 6e   ┆     i write(out, <<d>, record(n┆
0x15000…15200 (10, 1, 4) 00 00 cc 00 02 6d 2c 20 64 65 76 69 63 65 29 3b 0a 20 20 20 20 20 20 63 6c 61 69 6d 28 6e 29 3b   ┆     m, device);       claim(n);┆
0x15200…15400 (10, 1, 5) 00 00 cc 00 02 71 20 70 72 6f 63 20 70 72 69 6e 74 72 65 63 20 20 20 20 20 20 20 20 20 20 20 20   ┆     q proc printrec            ┆
0x15400…15600 (10, 1, 6) 00 00 cc 00 02 75 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 63 6f 6d 6d 65 6e 74 20 74 79 70   ┆     u      end;     comment typ┆
0x15600…15800 (10, 1, 7) 00 00 cc 00 02 79 29 20 3a 3e 2c 20 73 74 72 69 6e 67 20 6e 61 6d 65 29 3b 0a 20 20 20 20 20 20   ┆     y) :>, string name);       ┆
0x15800…15a00 (10, 1, 8) 00 00 cc 00 02 7d 20 32 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 35 20 64 6f 0a 20 20 20 20 20   ┆     å 2 step 1 until 5 do      ┆
0x15a00…15c00 (11, 0, 1) 00 00 cc 00 02 81 64 64 3e 2c 20 74 79 70 2c 20 3c 3a 20 64 65 76 69 63 65 20 3a 3e 2c 20 64 65   ┆      dd>, typ, <: device :>, de┆
0x15c00…15e00 (11, 0, 2) 00 00 cc 00 02 85 63 6f 6d 6d 65 6e 74 20 74 79 70 65 3d 32 32 2f 32 33 3b 0a 20 20 20 20 20 20   ┆      comment type=22/23;       ┆
0x15e00…16000 (11, 0, 3) 00 00 cc 00 02 89 2f 2f 20 33 36 30 30 29 3b 0a 20 20 20 20 20 20 69 66 20 6c 6f 6e 67 77 6f 72   ┆      // 3600);       if longwor┆
0x16000…16200 (11, 0, 4) 00 00 cc 00 02 8d 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3a 20 20 33 20 3a 3e 2c   ┆            write(out, <:  3 :>,┆
0x16200…16400 (11, 0, 5) 00 00 cc 00 02 91 66 6f 72 20 74 68 65 20 6a 6f 62 3b 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20   ┆      for the job;       begin  ┆
0x16400…16600 (11, 0, 6) 00 00 cc 00 02 95 6d 6d 65 6e 74 20 74 79 70 65 3d 36 30 2f 36 31 3b 0a 20 20 20 20 20 20 73 74   ┆      mment type=60/61;       st┆
0x16600…16800 (11, 0, 7) 00 00 cc 00 02 99 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 77 72 69 74 65   ┆            begin          write┆
0x16800…16a00 (11, 0, 8) 00 00 cc 00 02 9d 77 6f 72 6b 20 73 68 69 66 74 20 28 2d 31 30 29 20 65 78 74 72 61 63 74 20 31   ┆      work shift (-10) extract 1┆
0x16a00…16c00 (11, 1, 1) 00 00 cc 00 02 a1 20 31 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆       1,                       ┆
0x16c00…16e00 (11, 1, 2) 00 00 cc 00 02 a5 70 65 20 3d 20 32 29 3b 0a 75 73 65 72 6e 61 6d 65 31 20 3a 3d 20 36 3b 0a 75   ┆      pe = 2); username1 := 6; u┆
0x16e00…17000 (11, 1, 3) 00 00 cc 00 02 a9 6d 6d 65 6e 74 20 63 6f 6e 74 61 69 6e 73 20 75 70 64 61 74 65 69 6e 66 2e 2e   ┆      mment contains updateinf..┆
0x17000…17200 (11, 1, 4) 00 00 cc 00 02 ad 20 20 20 20 20 20 28 69 66 20 69 3d 30 20 20 74 68 65 6e 20 28 31 20 2b 20 31   ┆            (if i=0  then (1 + 1┆
0x17200…17400 (11, 1, 5) 00 00 cc 00 02 b1 69 6e 67 20 74 68 65 20 63 6f 6e 74 65 6e 74 73 20 6f 66 0a 20 20 20 20 20 20   ┆      ing the contents of       ┆
0x17400…17600 (11, 1, 6) 00 00 cc 00 02 b5 20 20 20 20 3b 0a 0a 20 20 20 65 6e 64 20 69 6e 69 74 69 61 6c 69 7a 65 20 75   ┆          ;     end initialize u┆
0x17600…17800 (11, 1, 7) 00 00 cc 00 02 b9 65 72 63 61 74 5f 69 6e 64 65 78 3b 0a 20 20 20 6f 6c 64 20 20 20 20 20 20 20   ┆      ercat_index;    old       ┆
0x17800…17a00 (11, 1, 8) 00 00 cc 00 02 bd 61 6d 65 28 69 6e 63 72 65 61 73 65 28 69 29 29 29 2c 20 30 29 3b 0a 0a 6e 65   ┆      ame(increase(i))), 0);  ne┆
0x17a00…17c00 (12, 0, 1) 00 00 cc 00 02 c1 63 6f 6d 6d 65 6e 74 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 20 3b   ┆      comment ***************  ;┆
0x17c00…17e00 (12, 0, 2) 00 00 cc 00 02 c5 28 2d 31 32 29 3b 20 63 6f 6d 6d 65 6e 74 20 72 65 63 6f 72 64 74 79 70 65 3b   ┆      (-12); comment recordtype;┆
0x17e00…18000 (12, 0, 3) 00 00 cc 00 02 c9 72 20 65 6c 73 65 0a 20 20 20 69 66 20 63 6f 6d 70 28 31 2c 6c 65 76 65 6c 29   ┆      r else    if comp(1,level)┆
0x18000…18200 (12, 0, 4) 00 00 cc 00 02 cd 73 73 2e 2e 2e 3b 0a 63 6f 6d 6d 65 6e 74 20 69 69 66 66 20 75 70 64 61 74 65   ┆      ss...; comment iiff update┆
0x18200…18400 (12, 0, 5) 00 00 cc 00 02 d1 29 3b 20 3c 2a 20 63 75 72 72 65 6e 74 20 72 65 63 6f 72 64 2d 76 61 72 69 61   ┆      ); <* current record-varia┆
0x18400…18600 (12, 0, 6) 00 00 cc 00 02 d5 20 20 20 20 20 20 20 6c 65 73 73 20 74 68 61 6e 20 2e 2e 63 6f 70 79 74 79 70   ┆             less than ..copytyp┆
0x18600…18800 (12, 0, 7) 00 00 cc 00 02 d9 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3a 3c 31 30 3e 3a 3e 29 3b 0a 20 20 20   ┆       write(out, <:<10>:>);    ┆
0x18800…18a00 (12, 0, 8) 00 00 cc 00 02 dd 69 73 20 74 6f 20 62 65 20 73 65 70 65 72 61 74 6c 79 20 63 6f 6e 73 69 64 65   ┆      is to be seperatly conside┆
0x18a00…18c00 (12, 1, 1) 00 00 cc 00 02 e1 2e 70 72 6f 6a 3b 0a 20 20 20 20 20 20 20 20 63 75 73 65 72 31 20 3a 3d 20 63   ┆      .proj;         cuser1 := c┆
0x18c00…18e00 (12, 1, 2) 00 00 cc 00 02 e5 75 73 65 72 32 20 3a 3d 20 6f 6c 64 63 61 74 2e 6f 6c 64 2e 75 73 65 72 6e 61   ┆      user2 := oldcat.old.userna┆
0x18e00…19000 (12, 1, 3) 00 00 cc 00 02 e9 20 20 20 70 72 69 76 61 74 65 20 6b 69 74 20 69 73 20 6e 6f 74 20 6f 6b 2c 20   ┆         private kit is not ok, ┆
0x19000…19200 (12, 1, 4) 00 00 cc 00 02 ed 20 61 6e 64 20 72 65 63 6f 72 64 74 79 70 65 20 69 73 20 6f 6b 3b 20 0a 0c 0a   ┆       and recordtype is ok;    ┆
0x19200…19400 (12, 1, 5) 00 00 cc 00 02 f1 75 70 64 61 74 65 5f 61 6c 61 72 6d 28 3c 3a 65 78 69 73 74 69 6e 67 3a 3e 29   ┆      update_alarm(<:existing:>)┆
0x19400…19600 (12, 1, 6) 00 00 cc 00 02 f5 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74   ┆                   begin comment┆
0x19600…19800 (12, 1, 7) 00 00 cc 00 02 f9 65 6c 65 74 65 3a 0a 20 20 20 20 20 20 20 20 20 20 20 61 66 74 65 72 5f 64 65   ┆      elete:            after_de┆
0x19800…19a00 (12, 1, 8) 00 00 cc 00 02 fd 63 6f 6d 6d 65 6e 74 20 69 6e 20 63 61 73 65 20 6f 66 20 64 65 6c 65 74 69 6e   ┆      comment in case of deletin┆
0x19a00…19c00 (13, 0, 1) 00 00 cc 00 03 01 6f 6c 64 2e 6b 69 74 6e 61 6d 65 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 65   ┆      old.kitname2;            e┆
[…truncated at 200 lines…]