|
DataMuseum.dkPresents historical artifacts from the history of: RC4000/8000/9000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC4000/8000/9000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 629248 (0x99a00) Description: Bits:30004129/s28101.imd SW8101/2 BOSS v.2 rel. 2.0 Types: 8" Floppy Disk, ImdContainer
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…]