|
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 - download
Length: 239616 (0x3a800)
Types: GA21-9182-File
Names: »01FLXSAVEFIL«
└─⟦2c579b2cd⟧ Bits:30004129/s28101.imd SW8101/2 BOSS v.2 rel. 2.0
└─⟦this⟧
Dumping the first 0x30 bytes of each record 0x00000…00200 (0,) 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 09 0c fb f2 00 00 54 00 01 56 73 32 38 31 30 31 ┆ flxcat P T Vs28101┆ 0x00200…00400 (1,) 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 13 00 07 46 00 00 08 64 69 73 63 00 00 00 00 00 ┆ tgetconv main F disc ┆ 0x00400…00600 (2,) 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 20 62 6f 73 73 32 2c 20 74 61 63 63 6f 75 6e 74 ┆ h ; jma 1980.07.10 boss2, taccount┆ 0x00600…00800 (3,) 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 74 65 6d 70 20 61 63 63 6f 75 6e 74 66 69 6c 65 ┆ h pe temp accountfile clear temp accountfile┆ 0x00800…00a00 (4,) 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 65 2c 20 6f 6e 6c 69 6e 65 6c 69 6e 65 73 2c 0a ┆ h stations, size, waitingtime, onlinelines, ┆ 0x00a00…00c00 (5,) 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 5f 6e 65 65 64 65 64 3b 0a 20 20 62 65 67 69 6e ┆ h es_needed; integer lines_needed; begin┆ 0x00c00…00e00 (6,) 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 2c 20 3c 3a 6c 6f 67 6f 75 74 20 20 20 20 20 20 ┆ h out, nl, 1, sp, 37, <:logout ┆ 0x00e00…01000 (7,) 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 20 20 20 20 2a 3e 0a 20 20 75 73 65 72 6e 61 6d ┆ h := 2; <* word *> usernam┆ 0x01000…01200 (8,) 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 70 64 72 75 6d 20 20 20 20 20 20 20 20 3a 3d 20 ┆ h ! <* word *> tempdrum := ┆ 0x01200…01400 (9,) 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 20 3a 3d 20 31 38 3b 20 3c 2a 20 77 6f 72 64 20 ┆ h % *> logintime := 18; <* word ┆ 0x01400…01600 (10,) 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 72 75 6e 74 69 6d 65 3a 3d 20 32 32 3b 20 3c 2a ┆ h )rd *> exp_grossruntime:= 22; <*┆ 0x01600…01800 (11,) 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 6d 3a 3d 20 31 3b 20 20 3c 2a 20 69 6e 73 74 61 ┆ h -:= 0; slicelength_on_drum:= 1; <* insta┆ 0x01800…01a00 (12,) 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 29 3b 0a 20 20 63 6c 6f 63 6b 3a 3d 20 74 3b 0a ┆ h 1; date:= systime(4, k, t); clock:= t; ┆ 0x01a00…01c00 (13,) 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 66 69 6e 69 73 3b 0a 20 20 20 20 63 61 75 73 65 ┆ h 5en begin comment jobfinis; cause┆ 0x01c00…01e00 (14,) 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 20 20 7a 2e 6d 6f 75 6e 74 73 20 65 78 74 72 61 ┆ h 9.stations extract 12, z.mounts extra┆ 0x01e00…02000 (15,) 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 74 20 28 2d 32 31 29 20 65 78 74 72 61 63 74 20 ┆ h =er:>); if devi1 shift (-21) extract ┆ 0x02000…02200 (16,) 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 73 68 69 66 74 20 69 20 65 78 74 72 61 63 74 20 ┆ h A write(out, if devi2 shift i extract ┆ 0x02200…02400 (17,) 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 65 72 61 74 69 6f 6e 73 29 3b 0a 20 20 65 6e 64 ┆ h E z.logintime, z.operations); end┆ 0x02400…02600 (18,) 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 38 31 39 32 2c 20 73 70 2c 20 31 2c 0a 20 20 20 ┆ h I z.exp_grossruntime*0.8192, sp, 1, ┆ 0x02600…02800 (19,) 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 62 63 3a 3e 29 0a 20 20 20 20 20 20 20 20 20 20 ┆ h Me = 3 then write(out, <:jobc:>) ┆ 0x02800…02a00 (20,) 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 31 20 31 32 20 30 39 2c 20 35 38 20 20 20 20 20 ┆ Qer 0.2) s. a20 w. 81 12 09, 58 ┆ 0x02a00…02c00 (21,) 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 65 6e 67 74 68 20 6f 66 20 64 65 76 69 63 65 6c ┆ U ; + length of devicel┆ 0x02c00…02e00 (22,) 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 61 ┆ Y ca┆ 0x02e00…03000 (23,) 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 73 73 20 2d 20 64 69 72 65 63 74 6c 79 20 74 72 ┆ Åause they are - more or less - directly tr┆ 0x03000…03200 (24,) 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 6c 65 6e 67 74 68 2e 20 54 68 65 73 65 20 72 65 ┆ aing of records of varying length. These re┆ 0x03200…03400 (25,) 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 64 20 74 6f 20 74 68 65 20 70 72 6f 6a 65 63 74 ┆ e entries which are promised to the project┆ 0x03400…03600 (26,) 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ iatalog en- tries work ┆ 0x03600…03800 (27,) 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 6f 20 20 20 20 20 20 20 20 20 20 20 20 20 30 20 ┆ m 6 ! do 0 ┆ 0x03800…03a00 (28,) 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 20 21 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ q-----! ! ! ┆ 0x03a00…03c00 (29,) 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 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 ┆ u ! ! ┆ 0x03c00…03e00 (30,) 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ y ! ┆ 0x03e00…04000 (31,) 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 65 64 20 75 6e 64 65 72 20 61 20 74 79 70 65 20 ┆ åon for each user is gathered under a type ┆ 0x04000…04200 (32,) 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 61 6e 64 20 61 6e 20 6f 64 64 20 69 6e 74 65 67 ┆ tandard va- lues are used and an odd integ┆ 0x04200…04400 (33,) 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 38 20 2d 20 20 20 20 20 20 20 20 20 72 65 73 74 ┆ max-interval - 8 - rest┆ 0x04400…04600 (34,) 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 20 20 20 2d 20 32 20 2d 20 20 20 20 20 20 20 20 ┆ s - 0 - 6, 12 - 2 - ┆ 0x04600…04800 (35,) 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 79 70 65 20 31 34 20 20 20 20 20 20 20 20 6d 65 ┆ - area claim type 14 me┆ 0x04800…04a00 (36,) 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 2d 20 20 20 20 20 20 20 20 20 32 30 2c 20 34 0a ┆ (ref1, ch2, p4) - 0 - 20, 4 ┆ 0x04a00…04c00 (37,) 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 20 70 37 29 0a 0a 20 20 20 2d 20 30 20 2d 20 20 ┆ (ref1, ch2, p7) - 0 - ┆ 0x04c00…04e00 (38,) 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 2d 20 20 20 20 20 20 20 20 20 20 74 6f 74 61 6c ┆ tries, rest slices - 8 - total┆ 0x04e00…05000 (39,) 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 20 20 20 2d 20 32 20 2d 20 20 20 20 20 20 20 20 ┆ 42 , variable length - 2 - ┆ 0x05000…05200 (40,) 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 20 30 20 2d 20 20 20 20 20 20 20 20 20 20 35 30 ┆ ime (ref1, ch2, p4) - 0 - 50┆ 0x05200…05400 (41,) 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 2d 20 20 20 20 20 20 20 20 20 20 63 6f 6e 76 65 ┆ 0 - 58, 4 - 2 - conve┆ 0x05400…05600 (42,) 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 0a 0a 20 20 74 79 70 65 20 36 36 20 20 20 20 20 ┆ start priority factor type 66 ┆ 0x05600…05800 (43,) 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 65 6e 63 65 73 0a 0a 28 31 29 20 20 42 6f 73 73 ┆ nks References (1) Boss┆ 0x05800…05a00 (44,) 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 74 72 61 6e 73 2c 20 6e 6f 5f 6f 66 5f 70 72 69 ┆ no_of_trans, no_of_vartrans, no_of_pri┆ 0x05a00…05c00 (45,) 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 76 61 6c 74 61 62 6c 65 5f 73 69 7a 65 20 3a 3d ┆ length of kittable; intervaltable_size :=┆ 0x05c00…05e00 (46,) 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 20 20 20 20 70 72 6f 6a 6e 6f 2c 20 75 70 64 61 ┆ 1:5); begin integer projno, upda┆ 0x05e00…06000 (47,) 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 76 69 63 65 2c 20 6d 61 78 64 65 76 69 63 65 2c ┆ serpool, device, maxdevice,┆ 0x06000…06200 (48,) 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 20 20 20 20 20 20 20 20 20 20 20 20 20 68 65 6c ┆ ; <* bbj 9 9 76 hel┆ 0x06200…06400 (49,) 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 6f 6e 73 20 61 72 65 20 61 6c 6c 72 65 61 64 79 ┆ l) 2. the transactions are allready┆ 0x06400…06600 (50,) 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 20 20 20 69 6e 70 75 74 20 6c 69 6e 65 20 28 69 ┆ first parameter on the input line (i┆ 0x06600…06800 (51,) 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 61 74 20 74 68 65 20 6e 75 6d 62 65 72 5f 6f 66 ┆ t the procedure checks, that the number_of┆ 0x06800…06a00 (52,) 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 6f 74 69 63 65 3a 20 69 66 20 74 68 65 20 61 63 ┆ egal type:>); comment notice: if the ac┆ 0x06a00…06c00 (53,) 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 6e 20 63 75 72 72 65 6e 74 0a 20 20 20 20 20 20 ┆ es the faulty parameters on current ┆ 0x06c00…06e00 (54,) 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 61 72 61 6d 28 31 29 29 3b 0a 20 20 20 20 20 20 ┆ write(out, <<d>, fpparam(1)); ┆ 0x06e00…07000 (55,) 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 3d 20 63 61 73 65 20 6a 20 6f 66 0a 20 20 20 20 ┆ exittest; end; i := case j of ┆ 0x07000…07200 (56,) 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 3a 20 2a 2a 2a 76 61 6c 75 65 20 73 68 6f 75 6c ┆ en write(out,<: ***value shoul┆ 0x07200…07400 (57,) 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 6c 6f 67 3b 0a 0a 63 6f 6d 6d 65 6e 74 20 69 6e ┆ ent no listing of usercatalog; comment in┆ 0x07400…07600 (58,) 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 73 74 65 70 20 31 20 75 6e 74 69 6c 20 35 2a 31 ┆ f username; for i := 0 step 1 until 5*1┆ 0x07600…07800 (59,) 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 6e 74 20 73 68 69 66 74 20 63 68 61 72 73 3b 0a ┆ := 1 shift 12 + 0; comment shift chars; ┆ 0x07800…07a00 (60,) 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 68 69 66 74 20 31 32 20 2b 20 69 3b 0a 20 20 20 ┆ lphabettable(i+512) := 7 shift 12 + i; ┆ 0x07a00…07c00 (61,) 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 70 68 61 62 65 74 74 61 62 6c 65 28 69 2b 35 31 ┆ ettable(i+384) := alphabettable(i+51┆ 0x07c00…07e00 (62,) 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 20 20 33 2e 20 6c 65 67 61 6c 20 70 61 72 61 6d ┆ me 2. action number 3. legal param┆ 0x07e00…08000 (63,) 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 79 70 65 32 2c 20 70 61 72 74 79 70 65 33 2c 0a ┆ r actionno, partype1, partype2, partype3, ┆ 0x08000…08200 (64,) 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 74 79 70 65 5f 32 20 20 20 3a 3d 20 31 20 73 68 ┆ + 10; end pack; type_2 := 1 sh┆ 0x08200…08400 (65,) 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 3b 0a 20 20 20 70 61 63 6b 28 3c 3a 63 62 75 66 ┆ _2, type_8, type_8, 14, 4); pack(<:cbuf┆ 0x08400…08600 (66,) 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 20 20 70 61 63 6b 28 3c 3a 6f 75 74 70 3a 3e 2c ┆ type_8, type_8, 58, 4); pack(<:outp:>,┆ 0x08600…08800 (67,) 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 61 63 6b 28 3c 3a 73 75 73 70 3a 3e 2c 20 31 2c ┆ pe_8, type_8, 28, 4); pack(<:susp:>, 1,┆ 0x08800…08a00 (68,) 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 0a 0a 0a 63 6f 6d 6d 65 6e 74 20 69 6e 69 74 69 ┆ catupdate ...12... *> comment initi┆ 0x08a00…08c00 (69,) 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 30 3b 0a 20 20 20 6e 6f 5f 6f 66 5f 70 72 69 76 ┆ f devicelist...; rec:= 0; no_of_priv┆ 0x08c00…08e00 (70,) 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 20 64 69 73 63 3b 0a 20 20 20 6d 6f 6e 69 74 6f ┆ ne(2) := 1; comment pref. disc; monito┆ 0x08e00…09000 (71,) 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 2e 2e 20 20 2a 3e 0a 0a 3c 2a 20 20 65 78 61 6d ┆ catupdate ...13... *> <* exam┆ 0x09000…09200 (72,) 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 6f 67 72 61 6d 6e 61 6d 65 3b 0a 0a 69 20 3a 3d ┆ !ent point at a possible programname; i :=┆ 0x09200…09400 (73,) 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 6f 6e 74 61 69 6e 73 20 74 68 65 0a 20 20 20 70 ┆ %the parameter, while i contains the p┆ 0x09400…09600 (74,) 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 63 61 74 2e 79 65 73 3b 0a 20 20 20 65 6e 64 20 ┆ )ooldcat:= true; end cat.yes; end ┆ 0x09600…09800 (75,) 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 30 3b 0a 0c 0a 3c 2a 20 20 62 62 6a 20 20 20 39 ┆ -_trans:= no_of_vartrans:= 0; <* bbj 9┆ 0x09800…09a00 (76,) 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 6f 6d 6d 65 6e 74 20 73 69 6d 75 6c 61 74 65 20 ┆ 1...; linetype := -1; comment simulate ┆ 0x09a00…09c00 (77,) 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 20 20 20 20 20 20 6c 69 73 74 20 3a 3d 20 66 70 ┆ 512) <> 8 then begin list := fp┆ 0x09c00…09e00 (78,) 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 20 61 72 65 61 3b 0a 0a 69 20 3a 3d 20 6d 6f 6e ┆ 9 else than a backing store area; i := mon┆ 0x09e00…0a000 (79,) 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 6c 69 6e 65 28 37 29 2c 20 6c 69 6e 65 28 38 29 ┆ == 18 then setposition(in, line(7), line(8)┆ 0x0a000…0a200 (80,) 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 20 20 20 63 6f 6d 6d 65 6e 74 20 6b 69 6e 64 20 ┆ A) of begin comment kind ┆ 0x0a200…0a400 (81,) 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 70 65 20 3d 20 35 20 74 68 65 6e 20 74 65 73 74 ┆ E, <:<10>:>); if inlinetype = 5 then test┆ 0x0a400…0a600 (82,) 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 6e 29 3b 0a 20 20 20 65 6e 64 3b 0a 0a 69 66 20 ┆ Iadd j, 1); repeatchar(in); end; if ┆ 0x0a600…0a800 (83,) 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 65 65 70 61 72 61 6d 20 3a 3d 20 6c 69 6e 65 6c ┆ Mnd, 1); repeatchar(in); freeparam := linel┆ 0x0a800…0aa00 (84,) 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 61 72 72 61 79 20 61 6e 64 20 66 69 6e 64 20 74 ┆ Q comment search the kind-array and find t┆ 0x0aa00…0ac00 (85,) 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 20 20 20 20 20 20 20 20 20 6e 75 6d 62 65 72 5f ┆ U extract 1 = 0 then number_┆ 0x0ac00…0ae00 (86,) 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 20 69 3b 20 63 6f 6d 6d 65 6e 74 20 74 68 65 20 ┆ Ynd; p(number_of_params) := i; comment the ┆ 0x0ae00…0b000 (87,) 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 20 28 2d 31 2c 20 2d 31 2c 20 20 30 2c 20 20 32 ┆ Åh := case linetype+2 of (-1, -1, 0, 2┆ 0x0b000…0b200 (88,) 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 72 6d 75 73 65 72 20 20 2c 0a 20 20 20 20 6c 69 ┆ alinetype1 , termproj , termuser , li┆ 0x0b200…0b400 (89,) 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 6c 69 6e 65 74 79 70 65 73 20 20 20 20 20 20 20 ┆ e9 9 76 linetypes ┆ 0x0b400…0b600 (90,) 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 65 28 66 72 65 65 70 61 72 61 6d 29 3b 0a 20 20 ┆ i)) - 1; p(4) := increase(freeparam); ┆ 0x0b600…0b800 (91,) 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 20 69 6e 73 65 72 74 20 73 74 64 20 6a 6f 62 2d ┆ m3 then begin comment insert std job-┆ 0x0b800…0ba00 (92,) 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 20 20 20 20 20 20 20 20 70 28 35 29 20 70 6f 69 ┆ q of simult. jobs, p(5) poi┆ 0x0ba00…0bc00 (93,) 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 5f 76 61 72 74 72 61 6e 73 3a 3d 20 6e 6f 5f 6f ┆ u no_of_trans - 1; no_of_vartrans:= no_o┆ 0x0bc00…0be00 (94,) 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 6e 61 6d 65 70 74 72 20 3a 3d 20 70 28 30 29 20 ┆ y then userpool:= true; nameptr := p(0) ┆ 0x0be00…0c000 (95,) 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 20 20 20 20 3b 20 63 6f 6d 6d 65 6e 74 20 20 73 ┆ årint_line; linetype5: ; comment s┆ 0x0c000…0c200 (96,) 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 78 74 72 61 63 74 20 74 68 65 20 66 69 72 73 74 ┆ shift 16; comment extract the first┆ 0x0c200…0c400 (97,) 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 20 6b 69 6e 64 28 70 28 69 29 29 20 3d 20 38 20 ┆ e option line...; if kind(p(i)) = 8 ┆ 0x0c400…0c600 (98,) 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 20 20 63 6f 6d 6d 65 6e 74 20 6d 61 78 69 6d 75 ┆ ift 12 + rectypelgth; comment maximu┆ 0x0c600…0c800 (99,) 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 6f 6e 73 2c 20 64 6f 65 73 20 6e 6f 74 20 65 78 ┆ <* used by older versions, does not ex┆ 0x0c800…0ca00 (100,) 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 65 6e 67 74 68 29 3b 0a 20 20 20 74 72 61 6e 73 ┆ rs; output(trans, maxlength); trans┆ 0x0ca00…0cc00 (101,) 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 61 6d 28 36 2c 20 36 2c 20 30 2c 20 31 20 73 68 ┆ *********** ; checkparam(6, 6, 0, 1 sh┆ 0x0cc00…0ce00 (102,) 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 2e 29 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ t project id (account inf.) *************┆ 0x0ce00…0d000 (103,) 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 2d 20 20 20 2d 20 20 2d 0a 20 20 20 2a 3e 0a 0a ┆ - - 2 - delete - - - *> ┆ 0x0d000…0d200 (104,) 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 78 64 65 76 69 63 65 77 6f 72 64 20 3a 3d 20 2d ┆ t(trans, maxlength); maxdeviceword := -┆ 0x0d200…0d400 (105,) 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 20 20 20 20 20 20 20 20 6c 69 6e 65 74 79 70 65 ┆ bbj 9 9 76 linetype┆ 0x0d400…0d600 (106,) 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 74 20 75 73 65 72 6e 61 6d 65 2e 2e 2e 3b 0a 20 ┆ * 2 + 2; comment point at username...; ┆ 0x0d600…0d800 (107,) 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 65 73 20 72 65 71 75 65 73 74 65 64 3b 0a 20 20 ┆ := 0; comment no devices requested; ┆ 0x0d800…0da00 (108,) 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ linetypes ┆ 0x0da00…0dc00 (109,) 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 61 78 6c 65 6e 67 74 68 29 3b 0a 20 20 20 20 20 ┆ d 6; output(trans, maxlength); ┆ 0x0dc00…0de00 (110,) 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 6c 6f 77 69 6e 67 20 63 6f 6e 74 61 69 6e 73 20 ┆ ... *> comment the following contains ┆ 0x0de00…0e000 (111,) 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 74 28 74 72 61 6e 73 2c 20 6d 61 78 6c 65 6e 67 ┆ ape, prio, link; output(trans, maxleng┆ 0x0e000…0e200 (112,) 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 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f ┆ devicenumber(i) > 0 then goto┆ 0x0e200…0e400 (113,) 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 61 72 6d 28 3c 3a 64 65 76 69 63 65 20 75 6e 6b ┆ oto device_found; alarm(<:device unk┆ 0x0e400…0e600 (114,) 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 63 74 69 6f 6e 73 20 20 20 20 20 20 20 20 20 20 ┆ special actions ┆ 0x0e600…0e800 (115,) 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 68 29 3b 0a 20 20 20 69 3a 3d 6c 69 6e 65 28 70 ┆ output(trans, maxlength); i:=line(p┆ 0x0e800…0ea00 (116,) 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 28 31 29 20 2b 20 32 29 20 3d 20 36 20 74 68 65 ┆ trans.long2 := if kind(p(1) + 2) = 6 the┆ 0x0ea00…0ec00 (117,) 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 20 73 70 65 63 69 61 6c 20 61 63 74 69 6f 6e 73 ┆ 9 9 76 special actions┆ 0x0ec00…0ee00 (118,) 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 5f 6c 69 6e 65 3b 0a 0a 73 70 65 63 69 61 6c 3a ┆ line(p(2)); goto print_line; special:┆ 0x0ee00…0f000 (119,) 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 32 20 2b 20 32 3b 20 20 63 6f 6d 6d 65 6e 74 20 ┆ >); nameptr := p(1) * 2 + 2; comment ┆ 0x0f000…0f200 (120,) 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 31 29 20 2a 20 32 20 2b 20 32 3b 20 20 63 6f 6d ┆ r mini; nameptr := p(1) * 2 + 2; com┆ 0x0f200…0f400 (121,) 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 63 6f 72 64 73 3b 0a 0a 20 20 20 72 65 63 74 79 ┆ hanged into transaction records; recty┆ 0x0f400…0f600 (122,) 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 65 63 6f 72 64 73 20 20 20 20 20 20 20 20 20 20 ┆ sorting of records ┆ 0x0f600…0f800 (123,) 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 6b 6c 7b 6e 67 64 65 3b 0a 20 20 20 20 20 20 73 ┆ længde := b * fysisksubbloklængde; s┆ 0x0f800…0fa00 (124,) 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 3b 0a 20 20 20 20 20 20 69 6e 74 65 67 65 72 20 ┆ long r; long field i; integer ┆ 0x0fa00…0fc00 (125,) 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 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f ┆ setshare(z,ia,1); mo┆ 0x0fc00…0fe00 (126,) 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 6f 70 62 61 73 69 73 20 65 6c 73 65 0a 20 20 20 ┆ if enblok then m:=m-opbasis else ┆ 0x0fe00…10000 (127,) 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 0a 20 20 20 20 20 20 20 20 20 69 66 20 7a 2e 6e ┆ vel) then goto søgned else if z.n┆ 0x10000…10200 (128,) 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 69 66 20 6f 70 2b 6f 70 62 61 73 69 73 20 3c 20 ┆ en level:= levels; if op+opbasis < ┆ 0x10200…10400 (129,) 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 72 74 3a 3d 73 74 61 72 74 32 3b 20 73 74 61 72 ┆ i:=start; start:=start2; star┆ 0x10400…10600 (130,) 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 62 6c 6f 6b 3a 3d 20 6c 6f 67 69 73 6b 2f 2f 6c ┆ isk:= fysisk+basis; blok:= logisk//l┆ 0x10600…10800 (131,) 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 20 2b 20 62 6c 6f 6b 62 61 73 69 73 3b 0a 20 20 ┆ oknr * fysisksubbloklængde + blokbasis; ┆ 0x10800…10a00 (132,) 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 64 65 20 3a 3d 20 62 20 2a 20 6c 6f 67 69 73 6b ┆ diff; logiskbloklængde := b * logisk┆ 0x10a00…10c00 (133,) 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 20 76 61 72 6c 65 6e 67 74 68 2c 20 6e 6f 5f 6f ┆ vartransname(increase(i)), varlength, no_o┆ 0x10c00…10e00 (134,) 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 65 72 31 2c 20 63 75 73 65 72 32 2c 20 63 74 79 ┆ cproj, cuser1, cuser2, cty┆ 0x10e00…11000 (135,) 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 20 6c 67 36 2c 20 6c 67 31 30 3b 0a 0a 69 6e 74 ┆ username2, lg6, lg10; int┆ 0x11000…11200 (136,) 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 70 69 6e 74 29 3b 0a 20 20 20 76 61 6c 75 65 20 ┆ !(start, project, lowint, upint); value ┆ 0x11200…11400 (137,) 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 6c 5f 61 6c 61 72 6d 3b 0a 20 20 20 73 74 61 72 ┆ %le_size then interval_alarm; star┆ 0x11400…11600 (138,) 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 65 72 65 20 61 72 65 20 6e 6f 20 70 72 6f 70 65 ┆ )xit; comment i.e. there are no prope┆ 0x11600…11800 (139,) 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 29 3b 0a 20 20 20 66 6f 72 20 69 20 3a 3d 20 6f ┆ -ock: inrec6(oldcat, 512); for i := o┆ 0x11800…11a00 (140,) 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 20 20 20 20 20 69 66 20 6c 6f 77 65 72 69 6e 74 ┆ 1 oldcat.cat.cupper; if lowerint┆ 0x11a00…11c00 (141,) 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 66 69 72 73 74 66 72 65 65 20 3a 3d 20 6c 6f 77 ┆ 5 intervals.lower.firstfree := low┆ 0x11c00…11e00 (142,) 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 2d 7a 6f 6e 65 2e 2e 2e 3b 0a 20 20 20 73 65 74 ┆ 9comment restore the oldcat-zone...; set┆ 0x11e00…12000 (143,) 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 3c 20 6c 6f 77 65 72 69 6e 74 20 74 68 65 6e 20 ┆ =intervals.lower.searchptr < lowerint then ┆ 0x12000…12200 (144,) 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 74 65 72 76 61 6c 73 2e 75 70 70 65 72 2e 6d 69 ┆ Aals.upper.minptr; intervals.upper.mi┆ 0x12200…12400 (145,) 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 73 65 61 72 63 68 65 73 20 74 68 65 20 69 6e 74 ┆ E comment the procedure searches the int┆ 0x12400…12600 (146,) 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 6e 64 20 6c 6f 77 69 6e 74 20 3c 3d 20 69 6e 74 ┆ I begin if extend lowint <= int┆ 0x12600…12800 (147,) 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 6f 77 69 6e 74 20 74 68 65 6e 20 67 6f 74 6f 20 ┆ Mnt...; if low < lowint then goto ┆ 0x12800…12a00 (148,) 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 68 2e 2e 2e 3b 0a 20 20 20 20 20 20 20 20 20 69 ┆ Q a hole is found big enough...; i┆ 0x12a00…12c00 (149,) 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 76 61 6c 73 2e 6c 6f 77 65 72 2e 70 74 72 20 2d ┆ Ut - 1 else if intervals.lower.ptr -┆ 0x12c00…12e00 (150,) 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 20 20 3a 3d 20 66 69 72 73 74 66 72 65 65 20 2b ┆ Yree; firstfree := firstfree +┆ 0x12e00…13000 (151,) 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 20 30 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 ┆ Åat, 512); nextnew := 0; end; ┆ 0x13000…13200 (152,) 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 20 20 20 20 3a 3e 29 3b 0a 20 20 20 65 6e 64 3b ┆ altable_size//6, <:<10>size :>); end;┆ 0x13200…13400 (153,) 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 78 74 5f 74 72 61 6e 73 3b 0a 20 20 20 65 6e 64 ┆ eg := false else goto next_trans; end┆ 0x13400…13600 (154,) 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 29 20 73 68 69 66 74 20 31 32 20 2f 2f 20 34 30 ┆ i write(out, <<d>, record(n) shift 12 // 40┆ 0x13600…13800 (155,) 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 0a 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 ┆ m, device); claim(n); end; ┆ 0x13800…13a00 (156,) 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 20 20 20 20 63 61 74 75 70 64 61 74 65 20 20 2e ┆ q proc printrec catupdate .┆ 0x13a00…13c00 (157,) 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 65 3d 32 2c 20 75 73 65 72 2d 72 65 63 6f 72 64 ┆ u end; comment type=2, user-record┆ 0x13c00…13e00 (158,) 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 63 6c 61 69 6d 28 37 29 3b 0a 20 20 20 20 20 20 ┆ y) :>, string name); claim(7); ┆ 0x13e00…14000 (159,) 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 20 20 20 20 20 20 20 69 66 20 6c 6f 6e 67 77 6f ┆ å 2 step 1 until 5 do if longwo┆ 0x14000…14200 (160,) 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 76 69 63 65 6e 75 6d 62 65 72 28 69 29 29 3b 0a ┆ dd>, typ, <: device :>, devicenumber(i)); ┆ 0x14200…14400 (161,) 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 73 74 61 6e 64 61 72 64 28 3c 3a 6d 6f 75 6e 3a ┆ comment type=22/23; standard(<:moun:┆ 0x14400…14600 (162,) 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 6b 20 3e 3d 20 36 30 20 20 20 74 68 65 6e 20 77 ┆ // 3600); if longwork >= 60 then w┆ 0x14600…14800 (163,) 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 20 73 74 72 69 6e 67 20 6c 6f 6e 67 74 65 78 74 ┆ write(out, <: 3 :>, string longtext┆ 0x14800…14a00 (164,) 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 20 20 20 20 20 6c 6f 6e 67 77 6f 72 6b 20 3a 3d ┆ for the job; begin longwork :=┆ 0x14a00…14c00 (165,) 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 61 6e 64 61 72 64 28 3c 3a 63 6f 72 65 3a 3e 29 ┆ mment type=60/61; standard(<:core:>)┆ 0x14c00…14e00 (166,) 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 28 6f 75 74 2c 3c 3c 64 64 64 3e 2c 20 74 79 70 ┆ begin write(out,<<ddd>, typ┆ 0x14e00…15000 (167,) 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 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ work shift (-10) extract 1, ┆ 0x15000…15200 (168,) 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 20 20 20 20 6c 6f 6e 67 77 6f 72 6b 20 73 68 69 ┆ 1, longwork shi┆ 0x15200…15400 (169,) 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 73 65 72 6e 61 6d 65 32 20 3a 3d 20 31 30 3b 0a ┆ pe = 2); username1 := 6; username2 := 10; ┆ 0x15400…15600 (170,) 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 2e 3b 0a 62 61 73 69 73 20 20 20 20 20 3a 3d 20 ┆ mment contains updateinf...; basis := ┆ 0x15600…15800 (171,) 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 20 73 68 69 66 74 20 34 20 2b 20 31 20 73 68 69 ┆ (if i=0 then (1 + 1 shift 4 + 1 shi┆ 0x15800…15a00 (172,) 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 20 20 20 20 20 77 6f 72 64 20 35 20 28 69 2e 65 ┆ ing the contents of word 5 (i.e┆ 0x15a00…15c00 (173,) 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 70 64 61 74 65 2d 74 61 62 6c 65 73 3b 0a 0c 0a ┆ ; end initialize update-tables; ┆ 0x15c00…15e00 (174,) 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 20 20 20 20 3a 3d 20 30 3b 0a 20 20 20 72 65 63 ┆ ercat_index; old := 0; rec┆ 0x15e00…16000 (175,) 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 78 74 6e 65 77 20 3a 3d 20 35 31 32 3b 0a 69 66 ┆ ame(increase(i))), 0); nextnew := 512; if┆ 0x16000…16200 (176,) 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 0a 0a 63 6f 6d 6d 65 6e 74 20 73 65 6c 65 63 74 ┆ comment *************** ; comment select┆ 0x16200…16400 (177,) 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 0a 20 20 20 65 6e 64 3b 0a 0a 69 66 20 74 74 79 ┆ (-12); comment recordtype; end; if tty┆ 0x16400…16600 (178,) 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 20 3e 20 63 6f 6d 70 28 32 2c 6c 65 76 65 6c 29 ┆ r else if comp(1,level) > comp(2,level)┆ 0x16600…16800 (179,) 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 73 74 20 74 68 65 6e 20 77 72 69 74 65 28 6f 75 ┆ ss...; comment iiff updatest then write(ou┆ 0x16800…16a00 (180,) 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 62 6c 65 73 20 2a 3e 0a 74 72 61 6e 73 6e 6f 20 ┆ ); <* current record-variables *> transno ┆ 0x16a00…16c00 (181,) 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 65 2e 2e 20 69 73 20 6d 65 74 3b 0a 0a 63 6f 70 ┆ less than ..copytype.. is met; cop┆ 0x16c00…16e00 (182,) 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 20 20 20 70 72 69 6e 74 20 3a 3d 20 70 72 69 6e ┆ write(out, <:<10>:>); print := prin┆ 0x16e00…17000 (183,) 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 72 65 64 3b 0a 0c 0a 3c 2a 20 20 62 62 6a 20 20 ┆ is to be seperatly considered; <* bbj ┆ 0x17000…17200 (184,) 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 75 73 65 72 32 20 3a 3d 20 63 74 79 70 65 20 3a ┆ .proj; cuser1 := cuser2 := ctype :┆ 0x17200…17400 (185,) 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 6d 65 32 3b 0a 20 20 20 20 20 20 20 20 6c 6f 77 ┆ user2 := oldcat.old.username2; low┆ 0x17400…17600 (186,) 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 74 72 79 20 74 68 69 73 20 72 65 63 6f 72 64 3b ┆ private kit is not ok, try this record;┆ 0x17600…17800 (187,) 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 3c 2a 20 20 62 62 6a 20 20 20 39 20 39 20 37 36 ┆ and recordtype is ok; <* bbj 9 9 76┆ 0x17800…17a00 (188,) 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 3b 0a 0a 20 20 20 20 20 20 20 20 69 66 20 64 65 ┆ update_alarm(<:existing:>); if de┆ 0x17a00…17c00 (189,) 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 20 64 65 6c 65 74 65 20 75 73 65 72 2e 2e 2e 3b ┆ begin comment delete user...;┆ 0x17c00…17e00 (190,) 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 6c 65 74 65 20 3a 3d 20 74 72 75 65 3b 20 20 63 ┆ elete: after_delete := true; c┆ 0x17e00…18000 (191,) 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 67 20 75 73 65 72 6e 61 6d 65 2d 72 65 63 6f 72 ┆ comment in case of deleting username-recor┆ 0x18000…18200 (192,) 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 6e 64 0a 20 20 20 20 20 20 20 20 65 6c 73 65 0a ┆ old.kitname2; end else ┆ 0x18200…18400 (193,) 00 00 cc 00 03 05 20 20 20 65 6e 64 3b 0a 0a 61 63 74 69 35 3a 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 6f 74 68 65 72 20 72 65 63 6f 72 ┆ end; acti5: begin comment other recor┆ 0x18400…18600 (194,) 00 00 cc 00 03 09 20 63 6f 6d 6d 65 6e 74 20 74 68 65 20 76 61 72 69 61 62 6c 65 20 62 6f 6f 6c 20 63 6f 6e 74 61 69 6e 73 20 69 6e 66 6f 72 6d ┆ comment the variable bool contains inform┆ 0x18600…18800 (195,) 00 00 cc 00 03 0d 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 6e 65 77 63 61 74 2e 6e ┆ end else newcat.n┆ 0x18800…18a00 (196,) 00 00 cc 00 03 11 64 20 63 61 74 6e 6f 20 3d 20 74 72 61 6e 73 6e 6f 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 ┆ d catno = transno; <* bbj 9 9 76 ┆ 0x18a00…18c00 (197,) 00 00 cc 00 03 15 74 3b 0a 20 20 20 20 20 20 20 20 69 66 20 2d 2c 20 70 72 6f 6a 6c 69 73 74 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ t; if -, projlist then ┆ 0x18c00…18e00 (198,) 00 00 cc 00 03 19 20 20 20 70 72 6f 6a 6c 6f 77 65 72 20 3a 3d 20 74 72 61 6e 73 2e 72 65 63 2e 63 6c 6f 77 65 72 3b 0a 20 20 20 20 20 20 20 20 ┆ projlower := trans.rec.clower; ┆ 0x18e00…19000 (199,) 00 00 cc 00 03 1d 76 61 6c 73 20 6f 66 20 74 68 65 20 75 73 65 72 20 6d 75 73 74 20 62 65 20 69 6e 73 65 72 74 65 64 20 69 6e 20 74 68 65 0a 20 ┆ vals of the user must be inserted in the ┆ 0x19000…19030 (200,) 00 00 cc 00 03 21 72 65 63 6f 72 64 2c 20 74 74 79 70 65 20 3d 20 33 34 3b 0a 20 20 20 20 20 20 20 20 69 66 20 6c 65 76 65 6c 20 3c 20 34 20 74 ┆ !record, ttype = 34; if level < 4 t┆ […truncated at 200 lines…]