|
DataMuseum.dkPresents historical artifacts from the history of: Q1 computer |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Q1 computer Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: * 8 A D E F I L M N P Q S q r
Length: 139000 (0x21ef8) Description: Bits:30008688 DDMQ1-0128_NYCKEL Types: 8" Floppy Disk
flag | nrec | reclen | rec_trk | t0 | tn | name | artifact |
---|---|---|---|---|---|---|---|
0 | 2 | 255 | 15 | 8 | 11 | * | ⟦575dc697d⟧ Q1_HexDump, reclen=255, q1file |
0 | 20 | 255 | 15 | 20 | 21 | ASM | ⟦8e9e7c80e⟧ Q1_HexDump, reclen=255, q1file |
0 | 9 | 255 | 15 | 1 | 1 | DISK | ⟦98fb93e76⟧ Q1_HexDump, reclen=255, q1file |
0 | 5 | 255 | 15 | 2 | 2 | EDIT | ⟦5799046db⟧ Q1_HexDump, reclen=255, q1file |
0 | 3 | 37 | 67 | 32 | 32 | FSIDOR | ⟦46e64d39f⟧ Q1_Text, reclen=37, q1file |
0 | 17 | 40 | 50 | 0 | 0 | INDEX | ⟦298f30cbf⟧ Q1_HexDump, reclen=40, q1file |
0 | 5 | 255 | 15 | 12 | 12 | LINK | ⟦7d6316fa0⟧ Q1_HexDump, reclen=255, q1file |
0 | 20 | 40 | 64 | 18 | 18 | MFILE | ⟦f26949d57⟧ Q1_Text, reclen=40, q1file |
0 | 17 | 79 | 41 | 22 | 22 | NYCKEL | ⟦1bbb18697⟧ Q1_Text, reclen=79, q1file |
0 | 14 | 255 | 15 | 6 | 7 | PASS2 | ⟦65a1d59e5⟧ Q1_HexDump, reclen=255, q1file |
0 | 15 | 255 | 15 | 3 | 4 | PL1 | ⟦71cde0c21⟧ Q1_HexDump, reclen=255, q1file |
0 | 18 | 255 | 15 | 13 | 17 | PL1LIB | ⟦fb32eb1b4⟧ Q1_HexDump, reclen=255, q1file |
0 | 3 | 255 | 15 | 5 | 5 | ⟦e120d8c13⟧ Q1_HexDump, reclen=255, q1file | |
0 | 7 | 79 | 41 | 31 | 31 | PRIS | ⟦7393848bd⟧ Q1_Text, reclen=79, q1file |
0 | 72 | 37 | 67 | 27 | 30 | SIDOR | ⟦2cb424469⟧ Q1_Text, reclen=37, q1file |
0 | 5 | 255 | 15 | 19 | 19 | SORT | ⟦f9b8e39b1⟧ Q1_HexDump, reclen=255, q1file |
0x00000…00028 (0, 0, 0) Catalog {f0=0x0000, name=»INDEX «, nrec=0x0011, reclen=0x0028, rectrack=0x0032, track0=0x0000, trackn=0x0000} 0x00028…00050 (0, 0, 1) Catalog {f0=0x0000, name=»DISK «, nrec=0x0009, reclen=0x00ff, rectrack=0x000f, track0=0x0001, trackn=0x0001} 0x00050…00078 (0, 0, 2) Catalog {f0=0x0000, name=»EDIT «, nrec=0x0005, reclen=0x00ff, rectrack=0x000f, track0=0x0002, trackn=0x0002} 0x00078…000a0 (0, 0, 3) Catalog {f0=0x0000, name=»PL1 «, nrec=0x000f, reclen=0x00ff, rectrack=0x000f, track0=0x0003, trackn=0x0004} 0x000a0…000c8 (0, 0, 4) Catalog {f0=0x0000, name=»PRINT «, nrec=0x0003, reclen=0x00ff, rectrack=0x000f, track0=0x0005, trackn=0x0005} 0x000c8…000f0 (0, 0, 5) Catalog {f0=0x0000, name=»PASS2 «, nrec=0x000e, reclen=0x00ff, rectrack=0x000f, track0=0x0006, trackn=0x0007} 0x000f0…00118 (0, 0, 6) Catalog {f0=0x0000, name=»* «, nrec=0x0002, reclen=0x00ff, rectrack=0x000f, track0=0x0008, trackn=0x000b} 0x00118…00140 (0, 0, 7) Catalog {f0=0x0000, name=»LINK «, nrec=0x0005, reclen=0x00ff, rectrack=0x000f, track0=0x000c, trackn=0x000c} 0x00140…00168 (0, 0, 8) Catalog {f0=0x0000, name=»PL1LIB «, nrec=0x0012, reclen=0x00ff, rectrack=0x000f, track0=0x000d, trackn=0x0011} 0x00168…00190 (0, 0, 9) Catalog {f0=0x0000, name=»MFILE «, nrec=0x0014, reclen=0x0028, rectrack=0x0040, track0=0x0012, trackn=0x0012} 0x00190…001b8 (0, 0, 10) Catalog {f0=0x0000, name=»SORT «, nrec=0x0005, reclen=0x00ff, rectrack=0x000f, track0=0x0013, trackn=0x0013} 0x001b8…001e0 (0, 0, 11) Catalog {f0=0x0000, name=»ASM «, nrec=0x0014, reclen=0x00ff, rectrack=0x000f, track0=0x0014, trackn=0x0015} 0x001e0…00208 (0, 0, 12) Catalog {f0=0x0000, name=»NYCKEL «, nrec=0x0011, reclen=0x004f, rectrack=0x0029, track0=0x0016, trackn=0x0016} 0x00208…00230 (0, 0, 13) Catalog {f0=0x0000, name=»SLASK «, nrec=0x0000, reclen=0x0025, rectrack=0x0043, track0=0x0017, trackn=0x001a} 0x00230…00258 (0, 0, 14) Catalog {f0=0x0000, name=»SIDOR «, nrec=0x0048, reclen=0x0025, rectrack=0x0043, track0=0x001b, trackn=0x001e} 0x00258…00280 (0, 0, 15) Catalog {f0=0x0000, name=»PRIS «, nrec=0x0007, reclen=0x004f, rectrack=0x0029, track0=0x001f, trackn=0x001f} 0x00280…002a8 (0, 0, 16) Catalog {f0=0x0000, name=»FSIDOR «, nrec=0x0003, reclen=0x0025, rectrack=0x0043, track0=0x0020, trackn=0x0020} 0x002a8…002c8 (0, 0, 17) 09 00 01 20 20 20 20 20 20 20 09 00 ff 00 0f 01 00 00 00 00 00 00 08 00 00 00 00 00 00 00 00 00 ┆ ┆ 0x002c8…002d0 00 00 00 00 00 00 00 00 ┆ ┆ 0x002d0…002f0 (0, 0, 18) 09 00 01 20 20 20 20 20 20 20 09 00 ff 00 0f 01 ff 00 ff 00 00 00 08 00 00 00 00 00 00 00 00 00 ┆ ┆ 0x002f0…002f8 00 00 00 00 00 00 00 00 ┆ ┆ 0x002f8…00318 (0, 0, 19) 09 00 01 20 20 20 20 20 20 20 09 00 ff 00 0f 01 ff 00 ff 00 00 00 08 00 00 00 00 00 00 00 00 00 ┆ ┆ 0x00318…00320 00 00 00 00 00 00 00 00 ┆ ┆ 0x00320…00340 (0, 0, 20) 09 00 01 20 20 20 20 20 20 20 09 00 ff 00 0f 01 ff 00 ff 00 00 00 08 00 00 00 00 00 00 00 00 00 ┆ ┆ 0x00340…00348 00 00 00 00 00 00 00 00 ┆ ┆ 0x00348…00368 (0, 0, 21) 09 00 01 20 20 20 20 20 20 20 09 00 ff 00 0f 01 ff 00 ff 00 00 00 08 00 00 00 00 00 00 00 00 00 ┆ ┆ 0x00368…00370 00 00 00 00 00 00 00 00 ┆ ┆ 0x00370…00390 (0, 0, 22) 00 00 00 49 44 4f 52 20 20 20 00 00 25 00 43 00 4a 00 4a 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ IDOR % C J J ┆ 0x00390…00398 00 00 00 00 00 00 00 00 ┆ ┆ 0x00398…003b8 (0, 0, 23) 55 56 00 20 2d 00 4f 00 29 00 47 00 48 00 00 00 ff ff 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 ┆UV - O ) G H ┆ 0x003b8…003c0 00 00 00 00 00 00 00 00 ┆ ┆ 0x003c0…003e0 (0, 0, 24) ff ff 00 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 ┆ ┆ 0x003e0…003e8 00 00 00 00 00 00 00 00 ┆ ┆ 0x003e8…00408 (0, 0, 25) ff ff 00 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 ┆ ┆ 0x00408…00410 00 00 00 00 00 00 00 00 ┆ ┆ 0x00410…00430 (0, 0, 26) ff ff 00 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 ┆ ┆ 0x00430…00438 00 00 00 00 00 00 00 00 ┆ ┆ 0x00438…00458 (0, 0, 27) ff ff 00 ff ff ff ff ff ff be fe fe be fe be fe be fe 00 fe fe fe 00 00 00 00 00 00 00 00 00 00 ┆ ┆ 0x00458…00460 00 00 00 00 00 00 00 00 ┆ ┆ 0x00460…00480 (0, 0, 28) fe fe 00 fe fe fe fe fe fe fe fe fe fe fe fe fe fe fe 00 32 b2 b2 00 00 00 00 00 00 00 00 00 00 ┆ 2 ┆ 0x00480…00488 00 00 00 00 00 00 00 00 ┆ ┆ 0x00488…004a8 (0, 0, 29) b2 b2 00 ba b2 ba ba ba ba ba ba ba b2 fa ba ba 92 b2 00 b2 b2 f2 00 00 00 00 00 00 00 00 00 00 ┆ ┆ 0x004a8…004b0 00 00 00 00 00 00 00 00 ┆ ┆ 0x004b0…004d0 (0, 0, 30) f2 f2 00 f2 f2 f2 b2 bf bf bf bf bf bf bf bf bf bf bf 00 bf bf bf 00 00 00 00 00 00 00 00 00 00 ┆ ┆ 0x004d0…004d8 00 00 00 00 00 00 00 00 ┆ ┆ 0x004d8…004f8 (0, 0, 31) bf bf 00 ff bf bf bf ff ff bf bf ff bf bf bf ff bf bf 00 af af af 00 00 00 00 00 00 00 00 00 00 ┆ ┆ 0x004f8…00500 00 00 00 00 00 00 00 00 ┆ ┆ 0x00500…00520 (0, 0, 32) bf af 00 bf bf bf bf bf bf bf bf bf bf bf bf bf bf bf 00 bf bf bf 00 00 00 00 00 00 00 00 00 00 ┆ ┆ 0x00520…00528 00 00 00 00 00 00 00 00 ┆ ┆ 0x00528…00548 (0, 0, 33) bf bf 00 bf bf ff ff ff ff ff ff ff ff ff ff ff ff ff 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 ┆ ┆ 0x00548…00550 00 00 00 00 00 00 00 00 ┆ ┆ 0x00550…00570 (0, 0, 34) ff ff 00 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 ┆ ┆ 0x00570…00578 00 00 00 00 00 00 00 00 ┆ ┆ 0x00578…00598 (0, 0, 35) ff ff 00 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 ┆ ┆ 0x00598…005a0 00 00 00 00 00 00 00 00 ┆ ┆ 0x005a0…005c0 (0, 0, 36) ff ff 00 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 ┆ ┆ 0x005c0…005c8 00 00 00 00 00 00 00 00 ┆ ┆ 0x005c8…005e8 (0, 0, 37) ff ff 00 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 ┆ ┆ 0x005e8…005f0 00 00 00 00 00 00 00 00 ┆ ┆ 0x005f0…00610 (0, 0, 38) ff ff 00 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 ┆ ┆ 0x00610…00618 00 00 00 00 00 00 00 00 ┆ ┆ 0x00618…00638 (0, 0, 39) ff ff 00 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 ┆ ┆ 0x00638…00640 00 00 00 00 00 00 00 00 ┆ ┆ 0x00640…00660 (0, 0, 40) ff ff 00 ff ff ff ff ff ff ff ff 73 f3 73 f3 73 f3 73 00 73 f3 73 00 00 00 00 00 00 00 00 00 00 ┆ s s s s s s ┆ 0x00660…00668 00 00 00 00 00 00 00 00 ┆ ┆ 0x00668…00688 (0, 0, 41) f3 73 00 73 f3 f2 f2 73 f3 72 f3 73 70 f2 f2 f2 f3 f2 00 f3 f3 b7 00 00 00 00 00 00 00 00 00 00 ┆ s s s r sp ┆ 0x00688…00690 00 00 00 00 00 00 00 00 ┆ ┆ 0x00690…006b0 (0, 0, 42) bf bf 00 b7 b7 b7 b7 bf b7 b7 b7 b7 b7 b7 b7 bf b7 bf 00 bf b7 bf 00 00 00 00 00 00 00 00 00 00 ┆ ┆ 0x006b0…006b8 00 00 00 00 00 00 00 00 ┆ ┆ 0x006b8…006d8 (0, 0, 43) b7 bf 00 bf bf bf bf bf bf a7 b7 a7 a7 a7 b7 a7 a7 b7 00 a7 b7 b7 00 00 00 00 00 00 00 00 00 00 ┆ ┆ 0x006d8…006e0 00 00 00 00 00 00 00 00 ┆ ┆ 0x006e0…00700 (0, 0, 44) b7 b7 00 b7 b7 b7 b7 b7 b7 b7 b7 b7 b7 b7 b7 b7 b7 b7 00 bf bf bf 00 00 00 00 00 00 00 00 00 00 ┆ ┆ 0x00700…00708 00 00 00 00 00 00 00 00 ┆ ┆ 0x00708…00728 (0, 0, 45) bf bf 00 bf bf bf bf bf bf bf bf bf bf bf bf bf bf bf 00 bf bf bf 00 00 00 00 00 00 00 00 00 00 ┆ ┆ 0x00728…00730 00 00 00 00 00 00 00 00 ┆ ┆ 0x00730…00750 (0, 0, 46) bf bf 00 bf bf bf bf b7 b7 b7 b7 b7 b7 b7 b7 b7 b7 b7 00 b7 b7 b7 00 00 00 00 00 00 00 00 00 00 ┆ ┆ 0x00750…00758 00 00 00 00 00 00 00 00 ┆ ┆ 0x00758…00778 (0, 0, 47) b7 b7 00 b7 b7 b7 b7 b7 b7 b7 b7 b7 b7 b7 b7 b7 b7 ff 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 ┆ ┆ 0x00778…00780 00 00 00 00 00 00 00 00 ┆ ┆ 0x00780…007a0 (0, 0, 48) ff ff 00 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 ┆ ┆ 0x007a0…007a8 00 00 00 00 00 00 00 00 ┆ ┆ 0x007a8…007c8 (0, 0, 49) ff ff 00 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 00 ff ff ff 00 00 00 00 00 00 00 00 00 00 ┆ ┆ 0x007c8…007d0 00 00 00 00 00 00 00 00 ┆ ┆ 0x007d0…008cf (1, 0, 0) DataSector[0xff] […0x8…] 0x010c7…011c6 (1, 0, 9) 0x00[0xff] […0x5…] 0x016c1…017c0 (2, 0, 0) DataSector[0xff] […0x4…] 0x01bbc…01cbb (2, 0, 5) 0x00[0xff] […0x9…] 0x025b2…026b1 (3, 0, 0) DataSector[0xff] […0xe…] 0x034a3…035a2 (4, 0, 0) 0x00[0xff] […0xe…] 0x04394…04493 (5, 0, 0) DataSector[0xff] […0x2…] 0x04691…04790 (5, 0, 3) 0x00[0xff] […0xb…] 0x05285…05384 (6, 0, 0) DataSector[0xff] […0xd…] 0x06077…06176 (6, 0, 14) 0x00[0xff] […0xf…] 0x07067…07166 (8, 0, 0) DataSector[0xff] […0x1…] 0x07265…07285 (8, 0, 2) 0c 19 44 04 00 00 91 40 0c 1f 44 02 ff 00 0c 23 44 02 05 00 0b 2d 44 53 44 13 03 44 17 44 13 44 ┆ D @ D #D -DSD D D D┆ 0x07285…072a5 19 00 33 00 02 0e 0a 00 03 44 13 44 19 00 33 00 02 0e 0a 44 1b 00 03 44 1d 33 00 00 44 13 00 0a ┆ 3 D D 3 D D 3 D ┆ 0x072a5…072c5 00 03 33 00 00 44 13 00 0a 44 19 00 03 44 13 44 19 00 33 00 02 0e 0a 44 17 00 03 33 00 00 44 13 ┆ 3 D D D D 3 D 3 D ┆ 0x072c5…072e5 00 0a 44 1d 00 44 1f 00 12 03 1f 0b 88 44 25 44 21 03 33 00 00 44 21 00 0a 44 19 00 33 00 02 0e ┆ D D D%D! 3 D! D 3 ┆ 0x072e5…07305 0a 33 00 00 44 21 00 0a 44 23 00 33 00 02 0e 0a 00 03 1f 1b 00 fe 40 02 99 43 0b 81 40 02 09 18 ┆ 3 D! D# 3 @ C @ ┆ 0x07305…07325 00 00 01 d0 40 21 00 43 3e 01 11 80 00 cd 00 08 fe 06 ca 06 45 b7 c4 18 08 21 00 43 0e 80 11 00 ┆ @! C> E ! C ┆ 0x07325…07345 50 cd 61 47 21 00 43 06 00 11 80 50 0e 80 cd 39 00 7c b5 c2 47 44 2a 80 42 23 cd 15 00 eb 2a d6 ┆P aG! C P 9 ö GD* B# * ┆ 0x07345…07364 42 19 7d b4 ca 44 44 cd e5 46 db 01 3d fe 1e 3c d2 f7 44 32 91 40 3a 91 40 fe 0d ca a3 44 97 ┆B å DD F = < D2 @: @ D ┆ 0x07364…07384 (8, 0, 3) 0c 25 46 8d 20 20 5a 5a 5a 5a 5a 5a 5a 5a 39 56 2e 39 39 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ %F ZZZZZZZZ9V.99 ┆ 0x07384…073a4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 54 41 4c 54 20 42 45 4c 4f 50 50 20 20 46 41 4b ┆ BETALT BELOPP FAK┆ 0x073a4…073c4 54 55 52 45 52 41 44 20 54 4f 54 41 4c 53 55 4d 4d 41 20 20 20 20 20 20 20 20 5a 5a 5a 5a 5a 5a ┆TURERAD TOTALSUMMA ZZZZZZ┆ 0x073c4…073e4 5a 5a 5a 5a 39 56 2e 39 39 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 54 ┆ZZZZ9V.99 BET┆ 0x073e4…07404 41 4c 44 20 54 4f 54 41 4c 53 55 4d 4d 41 20 20 20 0c b8 46 0f 20 20 20 20 53 4b 55 4c 44 3a 20 ┆ALD TOTALSUMMA F SKULD: ┆ 0x07404…07424 20 53 76 4b 0b c7 46 39 15 00 27 32 0d 32 01 2a 44 50 32 12 26 44 48 32 08 25 44 62 22 15 00 27 ┆ SvK F9 '2 2 *DP2 &DH2 %Db" '┆ 0x07424…07444 32 0d 32 01 2a 44 80 32 32 26 15 00 27 44 b2 32 1f 26 44 7a 32 01 25 44 7a 32 01 44 d1 32 01 09 ┆2 2 *D 22& 'D 2 &Dz2 %Dz2 D 2 ┆ 0x07444…07463 02 0b 02 47 13 1d 15 00 27 32 0d 32 01 2a 44 d2 32 16 26 44 7b 32 05 25 0b 00 47 02 47 15 00 ┆ G '2 2 *D 2 &Dä2 % G G ┆ 0x07463…07483 (8, 0, 4) 0b 02 47 00 0b 15 47 8b 15 00 2a 32 0d 44 e8 00 2a 43 40 32 32 44 ea 00 28 43 72 32 35 44 ec 00 ┆ G G *2 D *C@22D (Cr25D ┆ 0x07483…074a3 28 43 a7 32 0f 44 ee 00 28 44 48 32 08 44 f0 00 28 15 00 2a 32 0d 44 f2 00 2a 43 b6 32 35 26 43 ┆(C 2 D (DH2 D ( *2 D *C 25&C┆ 0x074a3…074c3 eb 32 35 26 44 20 32 28 26 44 f4 44 fa 00 19 17 04 06 44 fc 45 02 00 19 17 04 06 45 04 45 02 00 ┆ 25&D 2(&D D D E E E ┆ 0x074c3…074e3 19 17 04 06 45 0a 45 02 00 19 17 04 06 15 00 27 32 0d 32 01 2a 45 10 32 2e 26 45 3e 24 04 06 45 ┆ E E '2 2 *E 2.&E>$ E┆ 0x074e3…07503 44 24 04 06 45 4a 24 04 06 45 50 24 04 06 45 56 24 04 06 0a 5c 45 02 a0 47 0b a0 47 1b 40 f9 46 ┆D$ EJ$ EP$ EV$ ÖE G G @ F┆ 0x07503…07523 06 00 03 44 62 33 00 40 43 00 2b 01 43 13 02 05 44 43 2a 02 05 44 08 02 0b bd 47 05 1d 45 5c 00 ┆ Db3 @C + C DC* D G EÖ ┆ 0x07523…07543 1c 0b bb 47 02 47 c2 0b c2 47 0a 43 18 32 01 45 5e 32 01 09 02 0b ce 47 09 1d 45 5f 45 65 01 02 ┆ G G G C 2 E^2 G E_Ee ┆ 0x07543…07562 04 06 0b cc 47 02 47 d7 0b d7 47 0a 43 18 32 01 45 67 32 01 09 02 0b e3 47 01 1d 00 47 15 00 ┆ G G G C 2 Eg2 G G ┆ 0x07562…07582 (8, 0, 5) 0b e4 47 08 45 5f 45 44 01 06 04 06 0b e1 47 02 47 ec 0b ec 47 0a 43 18 32 01 45 68 32 01 09 02 ┆ G E_ED G G G C 2 Eh2 ┆ 0x07582…075a2 0b f8 47 09 1d 45 5f 45 3e 01 06 04 06 0b f6 47 02 48 01 0b 01 48 0a 43 18 32 01 45 69 32 01 09 ┆ G E_E> G H H C 2 Ei2 ┆ 0x075a2…075c2 02 0b 0d 48 09 1d 45 5f 45 50 01 06 04 06 0b 0b 48 02 48 16 0b 16 48 0a 43 18 32 01 45 6a 32 01 ┆ H E_EP H H H C 2 Ej2 ┆ 0x075c2…075e2 09 02 0b 22 48 09 1d 45 5f 45 4a 01 06 04 06 0b 20 48 02 48 2b 0b 2b 48 0a 43 18 32 01 45 6b 32 ┆ "H E_EJ H H+ +H C 2 Ek2┆ 0x075e2…07602 01 09 02 0b 37 48 09 1d 45 5f 45 56 01 06 04 06 0b 35 48 02 48 40 0b 40 48 0b 44 f4 01 06 44 fa ┆ 7H E_EV 5H H@ @H D D ┆ 0x07602…07622 00 19 17 08 02 0b 4d 48 05 1d 45 e0 00 1c 0b 4b 48 02 48 52 0b 52 48 0a 44 7a 32 01 45 6c 32 01 ┆ MH E KH HR RH Dz2 El2 ┆ 0x07622…07642 09 02 0b 5e 48 05 1d 45 72 00 1c 0b 5c 48 02 48 63 0b 63 48 0a 44 7b 32 05 45 6d 32 05 09 02 0b ┆ ^H Er ÖH Hc cH Dä2 Em2 ┆ 0x07642…07661 6f 48 05 1d 45 e0 00 1c 0b 6d 48 02 48 74 0b 74 48 0a 43 08 32 05 44 7b 32 05 09 05 00 00 00 ┆oH E mH Ht tH C 2 Dä2 ┆ 0x07661…07681 (8, 0, 6) 0b 80 48 05 1d 45 5c 00 1c 0b 7e 48 02 48 85 0a 72 45 02 85 48 0b 85 48 0a 43 08 32 05 45 74 00 ┆ H EÖ ~H H rE H H C 2 Et ┆ 0x07681…076a1 19 09 05 0b 91 48 6b 1d 15 00 2a 32 0d 44 f2 00 2a 45 76 32 20 26 15 00 2a 44 fc 01 06 1a 45 96 ┆ Hk *2 D *Ev2 & *D E ┆ 0x076a1…076c1 32 0c 29 15 00 2a 45 a2 32 29 26 15 00 2a 45 04 01 06 1a 45 cb 32 0e 29 15 00 2a 32 0d 44 e8 00 ┆2 ) *E 2)& *E E 2 ) *2 D ┆ 0x076c1…076e1 2a 45 d9 32 01 26 45 0a 45 0a 01 06 44 fc 01 06 0b 04 06 45 da 45 da 01 06 45 04 01 06 0b 04 06 ┆*E 2 &E E D E E E ┆ 0x076e1…07701 45 04 45 02 00 19 17 04 06 44 fc 45 02 00 19 17 04 06 0b 8f 48 02 48 fc 0a e0 45 02 fc 48 0b fc ┆E E D E H H E H ┆ 0x07701…07721 48 59 44 fc 44 fc 01 06 43 13 02 05 44 45 5f 01 06 0f 0b 04 06 44 f4 45 02 00 19 17 04 06 45 04 ┆HYD D C DE_ D E E ┆ 0x07721…07741 45 04 01 06 43 2a 02 05 44 45 5f 01 06 0f 0b 04 06 15 00 2a 32 0d 44 f2 00 2a 43 08 32 05 45 e2 ┆E C* DE_ *2 D *C 2 E ┆ 0x07741…07760 00 28 43 0d 32 06 44 f0 00 28 43 00 32 08 45 e4 00 28 15 00 2a 43 13 02 05 44 1a 00 00 00 00 ┆ (C 2 D (C 2 E ( *C D ┆ 0x07760…07780 (8, 0, 7) 0b 55 49 a3 45 e6 32 0a 29 32 20 45 f0 00 2a 43 18 32 01 45 f2 00 28 43 19 02 02 42 1a 45 f4 32 ┆ UI E 2 )2 E *C 2 E (C B E 2┆ 0x07780…077a0 03 29 32 20 45 f7 00 2a 15 00 2a 43 1b 32 04 45 f2 00 28 43 1f 02 05 44 1a 45 f9 32 09 29 32 20 ┆ )2 E * *C 2 E (C D E 2 )2 ┆ 0x077a0…077c0 44 f2 00 2a 43 24 32 06 45 f7 00 28 15 00 2a 43 2a 02 05 44 32 20 44 fa 00 2a 1a 45 e6 32 0a 29 ┆D *C$2 E ( *C* D2 D * E 2 )┆ 0x077c0…077e0 43 2f 02 05 44 32 20 45 f7 00 2a 1a 45 f9 32 09 29 32 20 46 02 00 2a 15 00 2a 43 2e 44 fa 00 33 ┆C/ D2 E * E 2 )2 F * *C.D 3┆ 0x077e0…07800 00 06 0e 0a 32 06 46 04 00 28 43 2e 44 f2 00 33 00 06 0e 0a 32 06 45 f2 00 28 43 08 32 05 45 74 ┆ 2 F (C.D 3 2 E (C 2 Et┆ 0x07800…07820 00 19 06 45 5c 00 1c 0a 06 46 02 f8 49 0b f8 49 4b 15 00 2a 32 0d 44 e8 00 2a 46 08 32 1f 26 15 ┆ EÖ F I IK *2 D *F 2 & ┆ 0x07820…07840 00 2a 44 fc 01 06 1a 46 27 32 0d 29 15 00 2a 46 34 32 2a 26 15 00 2a 45 04 01 06 1a 46 27 32 0d ┆ *D F'2 ) *F42*& *E F'2 ┆ 0x07840…0785f 29 45 0a 45 0a 01 06 44 fc 01 06 0b 04 06 45 da 45 da 01 06 45 04 01 06 0b 04 06 15 00 00 00 ┆)E E D E E E ┆ 0x0785f…0787f (8, 0, 8) 0b 43 4a 68 00 2a 32 0d 46 02 00 2a 46 5e 32 1d 26 15 00 2a 45 0a 01 06 1a 46 7b 32 0f 29 15 00 ┆ CJh *2 F *F^2 & *E Fä2 ) ┆ 0x0787f…0789f 2a 46 8a 32 28 26 15 00 2a 45 da 01 06 1a 46 7b 32 0f 29 46 b2 45 0a 01 06 45 da 01 06 0d 0b 04 ┆*F 2(& *E Fä2 )F E E ┆ 0x0789f…078bf 06 15 00 2a 46 b8 32 0b 26 15 00 2a 46 b2 01 06 1a 46 27 32 0d 29 15 00 2a 46 c3 32 04 26 15 00 ┆ *F 2 & *F F'2 ) *F 2 & ┆ 0x078bf…078df 2a 45 da 01 06 1a 46 7b 32 0f 29 1b 0b fe 40 02 c7 46 0b 81 40 02 09 18 00 2a 43 2e 44 fa 00 33 ┆*E Fä2 ) @ F @ *C.D 3┆ 0x078df…078ff 00 06 0e 0a 32 06 46 04 00 28 43 2e 44 f2 00 33 00 06 0e 0a 32 06 45 f2 00 28 43 08 32 05 45 74 ┆ 2 F (C.D 3 2 E (C 2 Et┆ 0x078ff…0791f 00 19 06 45 5c 00 1c 0a 06 46 02 f8 49 0b f8 49 4b 15 00 2a 32 0d 44 e8 00 2a 46 08 32 1f 26 15 ┆ EÖ F I IK *2 D *F 2 & ┆ 0x0791f…0793f 00 2a 44 fc 01 06 1a 46 27 32 0d 29 15 00 2a 46 34 32 2a 26 15 00 2a 45 04 01 06 1a 46 27 32 0d ┆ *D F'2 ) *F42*& *E F'2 ┆ 0x0793f…0795e 29 45 0a 45 0a 01 06 44 fc 01 06 0b 04 06 45 da 45 da 01 06 45 04 01 06 0b 04 06 15 00 00 00 ┆)E E D E E E ┆ 0x0795e…07a5d (8, 0, 9) 0x00[0xff] […0x32…] 0x0ac2b…0ad2a (12, 0, 0) DataSector[0xff] […0x4…] 0x0b126…0b225 (12, 0, 5) 0x00[0xff] […0x9…] 0x0bb1c…0bc1b (13, 0, 0) DataSector[0xff] […0x11…] 0x0cd0a…0ce09 (14, 0, 3) 0x00[0xff] […0x38…] 0x105d1…105f9 (18, 0, 0) DataSector[0x28] […0x13…] 0x108f1…10919 (18, 0, 20) 0x00[0x28] […0x2b…] 0x10fd1…110d0 (19, 0, 0) DataSector[0xff] […0x4…] 0x114cc…115cb (19, 0, 5) 0x00[0xff] […0x9…] 0x11ec2…11fc1 (20, 0, 0) DataSector[0xff] […0x13…] 0x132ae…133ad (21, 0, 5) 0x00[0xff] […0x9…] 0x13ca4…13cf3 (22, 0, 0) DataSector[0x4f] […0x10…] 0x141e3…14232 (22, 0, 17) 0x00[0x4f] […0x17…] 0x1494b…1496b (23, 0, 0) 45 44 49 54 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 33 2c 20 34 32 20 20 ┆EDIT 3, 42 ┆ 0x1496b…14970 20 20 20 20 20 ┆ ┆ 0x14970…14995 (23, 0, 1) 0x00[0x25] […0x10a…] 0x17007…1702c (27, 0, 0) DataSector[0x25] […0x47…] 0x17a6f…17a8f (28, 0, 5) 57 52 49 54 45 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 36 2c 20 33 36 20 ┆WRITE 16, 36 ┆ 0x17a8f…17a94 20 20 20 20 20 ┆ ┆ 0x17a94…17ab4 (28, 0, 6) 57 52 49 54 45 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 36 2c 20 33 36 20 ┆WRITE 16, 36 ┆ 0x17ab4…17ab9 20 20 20 20 20 ┆ ┆ 0x17ab9…17ad9 (28, 0, 7) 57 52 49 54 45 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 36 2c 20 33 36 20 ┆WRITE 16, 36 ┆ 0x17ad9…17ade 20 20 20 20 20 ┆ ┆ 0x17ade…17afe (28, 0, 8) 57 52 49 54 45 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 36 2c 20 33 36 20 ┆WRITE 16, 36 ┆ 0x17afe…17b03 20 20 20 20 20 ┆ ┆ 0x17b03…17b23 (28, 0, 9) 41 41 41 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 20 20 20 20 20 20 ┆AAA 1 ┆ 0x17b23…17b28 20 20 20 20 20 ┆ ┆ 0x17b28…17b4d (28, 0, 10) 0x00[0x25] […0xbe…] 0x196c3…19712 (31, 0, 0) DataSector[0x4f] […0x6…] 0x198ec…1993b (31, 0, 7) 0x20[0x4f] 0x1993b…1998a (31, 0, 8) 0x00[0x4f] […0x20…] 0x1a36a…1a38f (32, 0, 0) DataSector[0x25] […0x2…] 0x1a3d9…1a3fe (32, 0, 3) 0x00[0x25] […0x3f…] 0x1ad19…1ad39 (33, 0, 0) 49 46 28 4c 41 4e 44 20 20 3d 20 27 4a 27 29 54 48 45 4e 20 56 41 4c 20 3d 20 59 3b 20 20 20 20 ┆IF(LAND = 'J')THEN VAL = Y; ┆ 0x1ad39…1ad59 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 ┆ ┆ 0x1ad59…1ad68 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1ad68…1ad88 (33, 0, 1) 49 46 28 4c 41 4e 44 20 3d 20 27 46 27 29 20 54 48 45 4e 20 56 41 4c 20 3d 20 46 3b 20 20 20 20 ┆IF(LAND = 'F') THEN VAL = F; ┆ 0x1ad88…1ada8 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 ┆ ┆ 0x1ada8…1adb7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1adb7…1add7 (33, 0, 2) 49 46 28 4c 41 4e 44 20 3d 20 27 44 27 29 20 54 48 45 4e 20 56 41 4c 20 3d 20 44 4b 52 3b 20 20 ┆IF(LAND = 'D') THEN VAL = DKR; ┆ 0x1add7…1adf7 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 ┆ ┆ 0x1adf7…1ae06 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1ae06…1ae26 (33, 0, 3) 49 46 28 58 20 3d 20 31 29 20 54 48 45 4e 20 47 4f 20 54 4f 20 47 4f 4f 4e 3b 20 20 20 20 20 20 ┆IF(X = 1) THEN GO TO GOON; ┆ 0x1ae26…1ae46 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 ┆ ┆ 0x1ae46…1ae55 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1ae55…1ae75 (33, 0, 4) 49 46 28 41 20 3d 20 27 41 27 29 20 54 48 45 4e 20 47 4f 20 54 4f 20 50 52 4e 54 3b 20 20 20 20 ┆IF(A = 'A') THEN GO TO PRNT; ┆ 0x1ae75…1ae95 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 ┆ ┆ 0x1ae95…1aea4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1aea4…1aec4 (33, 0, 5) 49 46 28 4c 4c 20 3d 20 27 20 20 20 20 20 27 29 20 54 48 45 4e 20 47 4f 20 54 4f 20 47 4f 4f 4e ┆IF(LL = ' ') THEN GO TO GOON┆ 0x1aec4…1aee4 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆; ┆ 0x1aee4…1aef3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1aef3…1af13 (33, 0, 6) 49 46 28 4c 45 56 20 7f 3d 20 4c 4c 29 20 54 48 45 4e 20 47 4f 20 54 4f 20 53 54 41 52 54 3b 20 ┆IF(LEV = LL) THEN GO TO START; ┆ 0x1af13…1af33 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 ┆ ┆ 0x1af33…1af42 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1af42…1af62 (33, 0, 7) 50 52 4e 54 3a 20 49 46 28 4c 45 56 20 7f 3d 20 4c 4c 45 56 29 20 54 48 45 4e 20 44 4f 3b 20 20 ┆PRNT: IF(LEV = LLEV) THEN DO; ┆ 0x1af62…1af82 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 ┆ ┆ 0x1af82…1af91 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1af91…1afb1 (33, 0, 8) 50 55 54 20 53 4b 49 50 28 32 29 4c 49 53 54 28 27 46 41 4b 54 55 52 45 52 41 44 20 53 55 4d 4d ┆PUT SKIP(2)LIST('FAKTURERAD SUMM┆ 0x1afb1…1afd1 41 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆A '); ┆ 0x1afd1…1afe0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1afe0…1b000 (33, 0, 9) 50 55 54 20 45 44 49 54 28 53 55 4d 4d 41 29 20 28 50 27 5a 5a 5a 5a 5a 5a 5a 39 56 2e 39 39 27 ┆PUT EDIT(SUMMA) (P'ZZZZZZZ9V.99'┆ 0x1b000…1b020 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆); ┆ 0x1b020…1b02f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1b02f…1b04f (33, 0, 10) 50 55 54 20 4c 49 53 54 28 27 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆PUT LIST(' ┆ 0x1b04f…1b06f 20 20 20 20 20 42 45 54 41 4c 54 20 42 45 4c 4f 50 50 20 27 29 3b 20 20 20 20 20 20 20 20 20 20 ┆ BETALT BELOPP '); ┆ 0x1b06f…1b07e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1b07e…1b09e (33, 0, 11) 50 55 54 20 45 44 49 54 28 53 55 4d 29 28 50 27 5a 5a 5a 5a 5a 5a 5a 5a 5a 39 56 2e 39 39 27 29 ┆PUT EDIT(SUM)(P'ZZZZZZZZZ9V.99')┆ 0x1b09e…1b0be 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆; ┆ 0x1b0be…1b0cd 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1b0cd…1b0ed (33, 0, 12) 50 55 54 20 53 4b 49 50 28 33 29 4c 49 53 54 28 27 20 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 ┆PUT SKIP(3)LIST(' '); ┆ 0x1b0ed…1b10d 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 ┆ ┆ 0x1b10d…1b11c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1b11c…1b13c (33, 0, 13) 53 31 20 3d 20 53 31 20 2b 20 53 55 4d 4d 41 3b 20 53 32 20 3d 20 53 32 20 2b 20 53 55 4d 3b 20 ┆S1 = S1 + SUMMA; S2 = S2 + SUM; ┆ 0x1b13c…1b15c 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 ┆ ┆ 0x1b15c…1b16b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1b16b…1b18b (33, 0, 14) 53 55 4d 20 3d 20 30 3b 20 20 53 55 4d 4d 41 20 3d 20 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆SUM = 0; SUMMA = 0; ┆ 0x1b18b…1b1ab 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 ┆ ┆ 0x1b1ab…1b1ba 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1b1ba…1b1da (33, 0, 15) 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆END; ┆ 0x1b1da…1b1fa 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 ┆ ┆ 0x1b1fa…1b209 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1b209…1b229 (33, 0, 16) 47 4f 4f 4e 3a 20 53 55 4d 4d 41 20 3d 20 53 55 4d 4d 41 20 2b 28 55 42 45 4c 20 2a 20 56 41 4c ┆GOON: SUMMA = SUMMA +(UBEL * VAL┆ 0x1b229…1b249 29 3b 20 20 58 20 3d 20 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆); X = 0; ┆ 0x1b249…1b258 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1b258…1b278 (33, 0, 17) 53 55 4d 20 3d 20 53 55 4d 20 2b 28 53 42 45 4c 2a 20 56 41 4c 29 3b 20 20 20 20 20 20 20 20 20 ┆SUM = SUM +(SBEL* VAL); ┆ 0x1b278…1b298 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 ┆ ┆ 0x1b298…1b2a7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1b2a7…1b2c7 (33, 0, 18) 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 28 32 29 20 45 44 49 54 28 4c 45 56 29 28 41 28 39 ┆ PUT SKIP(2) EDIT(LEV)(A(9┆ 0x1b2c7…1b2e7 29 29 20 28 46 44 41 54 29 28 41 28 31 30 29 29 20 28 46 41 4b 54 4e 52 29 28 41 28 31 35 29 29 ┆)) (FDAT)(A(10)) (FAKTNR)(A(15))┆ 0x1b2e7…1b2f6 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆; ┆ 0x1b2f6…1b316 (33, 0, 19) 50 55 54 20 45 44 49 54 28 55 42 45 4c 29 28 50 27 2d 2d 2d 2d 2d 39 56 2e 39 39 27 2c 58 28 35 ┆PUT EDIT(UBEL)(P'-----9V.99',X(5┆ 0x1b316…1b336 29 29 28 4c 41 4e 44 29 28 41 28 37 29 29 20 28 56 45 43 4b 41 29 28 50 27 5a 5a 5a 27 2c 58 28 ┆))(LAND)(A(7)) (VECKA)(P'ZZZ',X(┆ 0x1b336…1b345 36 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 ┆6)); ┆ 0x1b345…1b365 (33, 0, 20) 20 20 20 20 20 50 55 54 20 45 44 49 54 20 4b 4f 4e 54 4f 28 41 28 37 29 29 20 28 53 4d 4f 4d 53 ┆ PUT EDIT KONTO(A(7)) (SMOMS┆ 0x1b365…1b385 29 28 50 27 2d 2d 2d 2d 39 56 2e 39 39 27 2c 58 28 32 29 29 28 42 56 45 43 4b 29 28 41 28 36 29 ┆)(P'----9V.99',X(2))(BVECK)(A(6)┆ 0x1b385…1b394 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆); ┆ 0x1b394…1b3b4 (33, 0, 21) 20 20 20 20 20 50 55 54 20 45 44 49 54 28 53 42 45 4c 29 28 58 28 31 29 2c 50 27 2d 2d 2d 2d 2d ┆ PUT EDIT(SBEL)(X(1),P'-----┆ 0x1b3b4…1b3d4 39 56 2e 39 39 27 29 20 28 44 42 45 4c 29 28 58 28 36 29 2c 50 27 2d 2d 2d 2d 39 56 2e 39 39 27 ┆9V.99') (DBEL)(X(6),P'----9V.99'┆ 0x1b3d4…1b3e3 2c 58 28 34 29 29 3b 20 20 20 20 20 20 20 20 ┆,X(4)); ┆ 0x1b3e3…1b403 (33, 0, 22) 50 55 54 20 45 44 49 54 28 56 4e 52 28 31 29 20 29 20 28 41 28 38 29 29 20 28 56 4e 52 28 32 29 ┆PUT EDIT(VNR(1) ) (A(8)) (VNR(2)┆ 0x1b403…1b423 29 28 41 28 37 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆)(A(7)); ┆ 0x1b423…1b432 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1b432…1b452 (33, 0, 23) 4c 45 56 20 3d 20 4c 4c 45 56 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆LEV = LLEV; ┆ 0x1b452…1b472 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 ┆ ┆ 0x1b472…1b481 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1b481…1b4a1 (33, 0, 24) 20 20 20 20 20 47 4f 20 54 4f 20 53 54 41 52 54 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GO TO START; ┆ 0x1b4a1…1b4c1 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 ┆ ┆ 0x1b4c1…1b4d0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1b4d0…1b4f0 (33, 0, 25) 53 4c 55 54 3a 20 50 55 54 20 53 4b 49 50 28 33 29 4c 49 53 54 28 27 46 41 4b 54 55 52 45 52 41 ┆SLUT: PUT SKIP(3)LIST('FAKTURERA┆ 0x1b4f0…1b510 44 20 53 55 4d 4d 41 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 29 3b 20 20 20 20 20 20 20 ┆D SUMMA '); ┆ 0x1b510…1b51f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1b51f…1b53f (33, 0, 26) 50 55 54 20 45 44 49 54 28 53 55 4d 4d 41 29 20 28 50 27 5a 5a 5a 5a 5a 5a 5a 5a 39 56 2e 39 39 ┆PUT EDIT(SUMMA) (P'ZZZZZZZZ9V.99┆ 0x1b53f…1b55f 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆'); ┆ 0x1b55f…1b56e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1b56e…1b58e (33, 0, 27) 50 55 54 20 4c 49 53 54 28 27 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆PUT LIST(' ┆ 0x1b58e…1b5ae 20 20 20 20 20 42 45 54 41 4c 54 20 42 45 4c 4f 50 50 20 20 27 29 3b 20 20 20 20 20 20 20 20 20 ┆ BETALT BELOPP '); ┆ 0x1b5ae…1b5bd 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1b5bd…1b5dd (33, 0, 28) 50 55 54 20 45 44 49 54 28 53 55 4d 29 20 28 50 27 5a 5a 5a 5a 5a 5a 5a 5a 39 56 2e 39 39 27 29 ┆PUT EDIT(SUM) (P'ZZZZZZZZ9V.99')┆ 0x1b5dd…1b5fd 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆; ┆ 0x1b5fd…1b60c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1b60c…1b62c (33, 0, 29) 53 31 20 3d 20 53 31 20 2b 20 53 55 4d 4d 41 3b 20 53 32 20 3d 20 53 32 20 2b 20 53 55 4d 3b 20 ┆S1 = S1 + SUMMA; S2 = S2 + SUM; ┆ 0x1b62c…1b64c 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 ┆ ┆ 0x1b64c…1b65b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1b65b…1b67b (33, 0, 30) 50 55 54 20 53 4b 49 50 28 34 29 20 4c 49 53 54 28 27 46 41 4b 54 55 52 45 52 41 44 20 54 4f 54 ┆PUT SKIP(4) LIST('FAKTURERAD TOT┆ 0x1b67b…1b69b 41 4c 53 55 4d 4d 41 20 20 20 20 20 20 20 20 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ALSUMMA '); ┆ 0x1b69b…1b6aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1b6aa…1b6ca (33, 0, 31) 50 55 54 20 45 44 49 54 28 53 31 29 20 28 50 27 5a 5a 5a 5a 5a 5a 5a 5a 5a 5a 39 56 2e 39 39 27 ┆PUT EDIT(S1) (P'ZZZZZZZZZZ9V.99'┆ 0x1b6ca…1b6ea 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆); ┆ 0x1b6ea…1b6f9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1b6f9…1b719 (33, 0, 32) 50 55 54 20 4c 49 53 54 28 27 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 ┆PUT LIST(' BE┆ 0x1b719…1b739 54 41 4c 44 20 54 4f 54 41 4c 53 55 4d 4d 41 20 20 20 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 ┆TALD TOTALSUMMA '); ┆ 0x1b739…1b748 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1b748…1b768 (33, 0, 33) 50 55 54 20 45 44 49 54 28 53 32 29 20 28 50 27 5a 5a 5a 5a 5a 5a 5a 5a 5a 5a 39 56 2e 39 39 27 ┆PUT EDIT(S2) (P'ZZZZZZZZZZ9V.99'┆ 0x1b768…1b788 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆); ┆ 0x1b788…1b797 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1b797…1b7b7 (33, 0, 34) 53 33 20 3d 20 53 31 20 2d 20 53 32 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆S3 = S1 - S2; ┆ 0x1b7b7…1b7d7 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 ┆ ┆ 0x1b7d7…1b7e6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1b7e6…1b806 (33, 0, 35) 50 55 54 20 4c 49 53 54 28 27 20 20 20 20 53 4b 55 4c 44 3a 20 27 29 3b 20 50 55 54 20 45 44 49 ┆PUT LIST(' SKULD: '); PUT EDI┆ 0x1b806…1b826 54 28 53 33 29 28 50 27 5a 5a 5a 5a 5a 5a 5a 5a 39 56 2e 39 39 27 29 3b 20 50 55 54 20 4c 49 53 ┆T(S3)(P'ZZZZZZZZ9V.99'); PUT LIS┆ 0x1b826…1b835 54 28 27 20 53 76 4b 27 29 3b 20 20 20 20 20 ┆T(' SvK'); ┆ 0x1b835…1b855 (33, 0, 36) 50 55 54 20 45 44 49 54 28 53 32 29 20 28 50 27 5a 5a 5a 5a 5a 5a 5a 5a 5a 5a 39 56 2e 39 39 27 ┆PUT EDIT(S2) (P'ZZZZZZZZZZ9V.99'┆ 0x1b855…1b875 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆); ┆ 0x1b875…1b884 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1b884…1b8a4 (33, 0, 37) 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆END; ┆ 0x1b8a4…1b8c4 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 ┆ ┆ 0x1b8c4…1b8d3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1b8d3…1b8f3 (33, 0, 38) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x1b913…1b922 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x1b922…1b942 (33, 0, 39) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x1b962…1b971 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x1b971…1b991 (33, 0, 40) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x1b9b1…1b9c0 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x1b9c0…1b9e0 (34, 0, 0) 31 32 33 34 35 36 37 38 42 52 20 20 20 37 36 30 37 30 31 00 00 05 00 00 45 06 32 34 30 31 20 00 ┆12345678BR 760701 E 2401 ┆ 0x1b9e0…1ba00 00 00 00 00 37 36 30 37 32 37 00 00 05 00 00 00 00 00 00 00 36 30 30 31 20 20 20 20 20 20 20 20 ┆ 760727 6001 ┆ 0x1ba00…1ba0f 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆ 0x1ba0f…1ba2f (34, 0, 1) 31 32 33 36 35 34 20 20 42 52 20 20 20 37 36 30 37 30 35 00 00 02 00 00 45 06 32 34 30 31 20 00 ┆123654 BR 760705 E 2401 ┆ 0x1ba2f…1ba4f 00 00 00 00 20 20 20 20 20 20 00 00 00 00 00 00 00 00 00 00 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1ba4f…1ba5e 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆ 0x1ba5e…1ba7e (34, 0, 2) 31 32 33 34 35 20 20 20 53 4c 42 30 31 37 36 30 37 30 32 00 00 02 23 00 53 06 32 34 30 31 20 00 ┆12345 SLB01760702 # S 2401 ┆ 0x1ba7e…1ba9e 00 00 33 00 20 20 20 20 20 20 00 00 00 00 00 00 00 00 00 00 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 3 ┆ 0x1ba9e…1baad 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆ 0x1baad…1bacd (34, 0, 3) 33 36 35 34 20 20 20 20 53 4c 50 30 31 37 36 30 37 30 34 00 00 10 00 00 53 06 33 36 39 31 20 00 ┆3654 SLP01760704 S 3691 ┆ 0x1bacd…1baed 00 01 50 00 20 20 20 20 20 20 00 00 00 00 00 00 00 00 00 00 20 20 20 20 20 20 20 20 20 20 20 20 ┆ P ┆ 0x1baed…1bafc 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆ 0x1bafc…1bb1c (34, 0, 4) 33 32 31 34 20 20 20 20 53 4c 54 30 31 37 36 30 37 30 33 00 00 03 00 00 53 06 32 36 37 33 20 00 ┆3214 SLT01760703 S 2673 ┆ 0x1bb1c…1bb3c 00 00 45 00 20 20 20 20 20 20 00 00 00 00 00 00 00 00 00 00 20 20 20 20 20 20 20 20 20 20 20 20 ┆ E ┆ 0x1bb3c…1bb4b 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆ 0x1bb4b…1bb6b (34, 0, 5) 31 32 33 34 37 20 20 20 53 4c 42 30 31 37 36 30 37 30 35 00 00 02 50 00 53 06 35 34 30 31 20 00 ┆12347 SLB01760705 P S 5401 ┆ 0x1bb6b…1bb8b 00 00 50 00 20 20 20 20 20 20 00 00 00 00 00 00 00 00 00 00 20 20 20 20 20 20 20 20 20 20 20 20 ┆ P ┆ 0x1bb8b…1bb9a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆ 0x1bb9a…1bbba (34, 0, 6) 38 35 32 31 20 20 20 20 45 50 20 20 20 37 36 30 39 32 33 00 00 01 00 00 55 06 46 32 31 31 20 00 ┆8521 EP 760923 U F211 ┆ 0x1bbba…1bbda 00 00 00 00 37 36 31 30 30 31 00 00 01 00 00 00 00 00 00 00 35 30 30 32 20 20 20 20 20 20 20 20 ┆ 761001 5002 ┆ 0x1bbda…1bbe9 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆ 0x1bbe9…1bc09 (34, 0, 7) 37 34 31 32 20 20 20 20 41 42 20 20 20 37 36 30 39 32 34 00 00 00 50 00 55 06 47 32 31 31 20 00 ┆7412 AB 760924 P U G211 ┆ 0x1bc09…1bc29 00 00 00 00 20 20 20 20 20 20 00 00 00 00 00 00 00 00 00 00 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1bc29…1bc38 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆ 0x1bc38…1bc58 (34, 0, 8) 39 38 37 34 31 20 20 20 53 45 4c 20 20 37 36 30 39 32 34 00 00 05 00 00 53 06 48 32 31 31 20 00 ┆98741 SEL 760924 S H211 ┆ 0x1bc58…1bc78 00 00 50 00 20 20 20 20 20 20 00 00 00 00 00 00 00 00 00 00 20 20 20 20 20 20 20 20 20 20 20 20 ┆ P ┆ 0x1bc78…1bc87 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆ 0x1bc87…1bca7 (34, 0, 9) 31 32 33 34 36 37 38 20 53 56 44 41 54 20 20 20 20 20 20 00 00 05 00 00 53 06 50 20 20 20 20 00 ┆1234678 SVDAT S P ┆ 0x1bca7…1bcc7 00 00 75 00 20 20 20 20 20 20 00 00 00 00 00 00 00 00 00 00 20 20 20 20 20 20 20 20 20 20 20 20 ┆ u ┆ 0x1bcc7…1bcd6 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆ 0x1bcd6…1bcf6 (34, 0, 10) 37 38 39 36 35 34 20 20 42 52 20 20 20 34 35 36 33 32 31 00 00 07 65 00 46 06 50 34 30 31 20 00 ┆789654 BR 456321 e F P401 ┆ 0x1bcf6…1bd16 00 00 00 00 20 20 20 20 20 20 00 00 00 00 00 00 00 00 00 00 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1bd16…1bd25 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆ 0x1bd25…1bd45 (34, 0, 11) 39 35 31 20 20 20 20 20 46 41 20 20 20 37 36 31 31 30 31 00 00 07 98 00 45 06 50 34 30 31 20 00 ┆951 FA 761101 E P401 ┆ 0x1bd45…1bd65 00 00 00 00 37 36 31 31 31 31 00 00 07 98 00 00 00 00 00 00 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 761111 ┆ 0x1bd65…1bd74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆ 0x1bd74…1bd94 (34, 0, 12) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x1bdb4…1bdc3 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x1bdc3…1bde3 (34, 0, 13) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x1be03…1be12 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x1be12…1be32 (34, 0, 14) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x1be52…1be61 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x1be61…1be81 (34, 0, 15) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x1bea1…1beb0 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x1beb0…1bed0 (34, 0, 16) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x1bef0…1beff 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x1beff…1bf1f (34, 0, 17) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x1bf3f…1bf4e 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x1bf4e…1bf6e (34, 0, 18) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x1bf8e…1bf9d 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x1bf9d…1bfbd (34, 0, 19) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x1bfdd…1bfec 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x1bfec…1c00c (34, 0, 20) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x1c02c…1c03b 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x1c03b…1c05b (34, 0, 21) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x1c07b…1c08a 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x1c08a…1c0aa (34, 0, 22) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x1c0ca…1c0d9 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x1c0d9…1c0f9 (34, 0, 23) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x1c119…1c128 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x1c128…1c148 (34, 0, 24) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x1c168…1c177 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x1c177…1c197 (34, 0, 25) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x1c1b7…1c1c6 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x1c1c6…1c1e6 (34, 0, 26) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x1c206…1c215 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x1c215…1c235 (34, 0, 27) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x1c255…1c264 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x1c264…1c284 (34, 0, 28) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x1c2a4…1c2b3 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x1c2b3…1c2d3 (34, 0, 29) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x1c2f3…1c302 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x1c302…1c322 (34, 0, 30) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x1c342…1c351 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x1c351…1c371 (34, 0, 31) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x1c391…1c3a0 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x1c3a0…1c3c0 (34, 0, 32) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x1c3e0…1c3ef 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x1c3ef…1c40f (34, 0, 33) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x1c42f…1c43e 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x1c43e…1c45e (34, 0, 34) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x1c47e…1c48d 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x1c48d…1c4ad (34, 0, 35) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x1c4cd…1c4dc 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x1c4dc…1c4fc (34, 0, 36) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x1c51c…1c52b 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x1c52b…1c54b (34, 0, 37) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x1c56b…1c57a 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x1c57a…1c59a (34, 0, 38) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x1c5ba…1c5c9 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x1c5c9…1c5e9 (34, 0, 39) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x1c609…1c618 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x1c618…1c638 (34, 0, 40) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x1c658…1c667 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x1c667…1c687 (35, 0, 0) 44 43 4c 20 31 20 52 45 53 4b 4f 4e 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆DCL 1 RESKON, ┆ 0x1c687…1c6a7 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 ┆ ┆ 0x1c6a7…1c6b6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1c6b6…1c6d6 (35, 0, 1) 20 20 20 20 32 20 46 41 4b 54 4e 52 20 43 48 41 52 28 38 29 2c 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 FAKTNR CHAR(8), ┆ 0x1c6d6…1c6f6 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 ┆ ┆ 0x1c6f6…1c705 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1c705…1c725 (35, 0, 2) 20 20 20 20 32 20 4c 45 56 20 43 48 41 52 28 35 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 LEV CHAR(5), ┆ 0x1c725…1c745 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 ┆ ┆ 0x1c745…1c754 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1c754…1c774 (35, 0, 3) 20 20 20 20 32 20 46 44 41 54 20 43 48 41 52 28 36 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 FDAT CHAR(6), ┆ 0x1c774…1c794 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 ┆ ┆ 0x1c794…1c7a3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1c7a3…1c7c3 (35, 0, 4) 20 20 20 20 32 20 55 42 45 4c 20 46 49 58 45 44 28 39 2c 32 29 2c 20 20 20 20 20 20 20 20 20 20 ┆ 2 UBEL FIXED(9,2), ┆ 0x1c7c3…1c7e3 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 ┆ ┆ 0x1c7e3…1c7f2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1c7f2…1c812 (35, 0, 5) 20 20 20 20 32 20 4c 41 4e 44 20 43 48 41 52 28 31 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 LAND CHAR(1), ┆ 0x1c812…1c832 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 ┆ ┆ 0x1c832…1c841 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1c841…1c861 (35, 0, 6) 20 20 20 20 32 20 56 45 43 4b 41 20 46 49 58 45 44 28 33 29 2c 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 VECKA FIXED(3), ┆ 0x1c861…1c881 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 ┆ ┆ 0x1c881…1c890 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1c890…1c8b0 (35, 0, 7) 20 20 20 20 32 20 4b 4f 4e 54 4f 20 43 48 41 52 28 34 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 KONTO CHAR(4), ┆ 0x1c8b0…1c8d0 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 ┆ ┆ 0x1c8d0…1c8df 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1c8df…1c8ff (35, 0, 8) 20 20 20 20 32 20 53 4d 4f 4d 53 20 46 49 58 45 44 28 38 2c 32 29 2c 20 20 20 20 20 20 20 20 20 ┆ 2 SMOMS FIXED(8,2), ┆ 0x1c8ff…1c91f 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 ┆ ┆ 0x1c91f…1c92e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1c92e…1c94e (35, 0, 9) 20 20 20 20 32 20 42 56 45 43 4b 20 43 48 41 52 28 36 29 20 20 49 4e 49 54 49 41 4c 28 27 20 20 ┆ 2 BVECK CHAR(6) INITIAL(' ┆ 0x1c94e…1c96e 20 20 20 20 27 29 2c 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 ┆ '), ┆ 0x1c96e…1c97d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1c97d…1c99d (35, 0, 10) 20 20 20 20 32 20 53 42 45 4c 20 46 49 58 45 44 28 39 2c 32 29 20 49 4e 49 54 49 41 4c 28 30 2e ┆ 2 SBEL FIXED(9,2) INITIAL(0.┆ 0x1c99d…1c9bd 30 29 2c 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 ┆0), ┆ 0x1c9bd…1c9cc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1c9cc…1c9ec (35, 0, 11) 20 20 20 20 32 20 44 42 45 4c 20 46 49 58 45 44 28 38 2c 32 29 20 49 4e 49 54 49 41 4c 28 30 2e ┆ 2 DBEL FIXED(8,2) INITIAL(0.┆ 0x1c9ec…1ca0c 30 29 2c 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 ┆0), ┆ 0x1ca0c…1ca1b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1ca1b…1ca3b (35, 0, 12) 20 20 20 20 32 20 56 4e 52 28 32 29 20 43 48 41 52 28 36 29 20 49 4e 49 54 49 41 4c 28 27 20 20 ┆ 2 VNR(2) CHAR(6) INITIAL(' ┆ 0x1ca3b…1ca5b 20 20 20 20 27 2c 27 20 20 20 20 20 20 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ',' '); ┆ 0x1ca5b…1ca6a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1ca6a…1ca8a (35, 0, 13) 44 43 4c 20 52 55 42 31 20 20 43 48 41 52 28 35 30 29 20 49 4e 49 54 49 41 4c 28 27 4d 20 20 53 ┆DCL RUB1 CHAR(50) INITIAL('M S┆ 0x1ca8a…1caaa 20 54 20 45 20 4e 20 48 20 41 20 52 20 44 20 54 20 20 41 42 27 29 3b 20 20 20 20 20 20 20 20 20 ┆ T E N H A R D T AB'); ┆ 0x1caaa…1cab9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1cab9…1cad9 (35, 0, 14) 44 43 4c 20 52 55 42 32 20 43 48 41 52 28 35 33 29 20 49 4e 49 54 49 41 4c 28 27 4c 20 20 45 20 ┆DCL RUB2 CHAR(53) INITIAL('L E ┆ 0x1cad9…1caf9 20 56 20 20 45 20 20 52 20 20 41 20 20 4e 20 20 54 20 20 5c 20 20 52 20 20 53 20 20 52 20 20 45 ┆ V E R A N T Ö R S R E┆ 0x1caf9…1cb08 20 20 53 20 20 4b 20 20 4f 20 20 4e 27 29 3b ┆ S K O N');┆ 0x1cb08…1cb28 (35, 0, 15) 44 43 4c 20 52 55 42 32 41 20 43 48 41 52 28 31 35 29 49 4e 49 54 28 27 20 20 54 20 20 52 20 20 ┆DCL RUB2A CHAR(15)INIT(' T R ┆ 0x1cb28…1cb48 41 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆A'); ┆ 0x1cb48…1cb57 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1cb57…1cb77 (35, 0, 16) 44 43 4c 20 44 41 54 55 4d 20 43 48 41 52 28 38 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆DCL DATUM CHAR(8); ┆ 0x1cb77…1cb97 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 ┆ ┆ 0x1cb97…1cba6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1cba6…1cbc6 (35, 0, 17) 50 55 54 20 46 49 4c 45 28 44 49 53 50 29 20 53 4b 49 50 20 4c 49 53 54 28 27 41 4e 47 45 20 44 ┆PUT FILE(DISP) SKIP LIST('ANGE D┆ 0x1cbc6…1cbe6 41 47 45 4e 53 20 44 41 54 55 4d 20 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆AGENS DATUM '); ┆ 0x1cbe6…1cbf5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1cbf5…1cc15 (35, 0, 18) 47 45 54 20 4c 49 53 54 28 44 41 54 55 4d 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆GET LIST(DATUM); ┆ 0x1cc15…1cc35 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 ┆ ┆ 0x1cc35…1cc44 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1cc44…1cc64 (35, 0, 19) 44 43 4c 20 41 4d 20 43 48 41 52 28 32 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆DCL AM CHAR(2); ┆ 0x1cc64…1cc84 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 ┆ ┆ 0x1cc84…1cc93 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1cc93…1ccb3 (35, 0, 20) 44 43 4c 20 52 45 53 46 49 4c 20 46 49 4c 45 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆DCL RESFIL FILE; ┆ 0x1ccb3…1ccd3 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 ┆ ┆ 0x1ccd3…1cce2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1cce2…1cd02 (35, 0, 21) 4f 50 45 4e 20 52 45 53 46 49 4c 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆OPEN RESFIL; ┆ 0x1cd02…1cd22 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 ┆ ┆ 0x1cd22…1cd31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1cd31…1cd51 (35, 0, 22) 50 55 54 20 46 49 4c 45 28 44 49 53 50 29 20 53 4b 49 50 20 4c 49 53 54 28 27 41 4e 47 45 20 4d ┆PUT FILE(DISP) SKIP LIST('ANGE M┆ 0x1cd51…1cd71 5d 4e 41 44 45 4e 20 53 4f 4d 20 53 4b 41 20 53 55 4d 4d 45 52 41 53 20 27 29 3b 20 20 20 20 20 ┆ÅNADEN SOM SKA SUMMERAS '); ┆ 0x1cd71…1cd80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1cd80…1cda0 (35, 0, 23) 47 45 54 20 4c 49 53 54 28 41 4d 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆GET LIST(AM); ┆ 0x1cda0…1cdc0 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 ┆ ┆ 0x1cdc0…1cdcf 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1cdcf…1cdef (35, 0, 24) 50 55 54 20 53 4b 49 50 28 33 29 20 45 44 49 54 28 52 55 42 31 29 28 41 28 34 30 29 29 20 28 52 ┆PUT SKIP(3) EDIT(RUB1)(A(40)) (R┆ 0x1cdef…1ce0f 55 42 32 29 28 41 28 35 30 29 29 20 28 52 55 42 32 41 29 28 41 28 31 32 29 29 28 44 41 54 55 4d ┆UB2)(A(50)) (RUB2A)(A(12))(DATUM┆ 0x1ce0f…1ce1e 29 28 41 28 31 30 29 29 3b 20 20 20 20 20 20 ┆)(A(10)); ┆ 0x1ce1e…1ce3e (35, 0, 25) 53 55 4d 20 3d 20 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆SUM = 0; ┆ 0x1ce3e…1ce5e 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 ┆ ┆ 0x1ce5e…1ce6d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1ce6d…1ce8d (35, 0, 26) 50 55 54 20 46 49 4c 45 28 44 49 53 50 29 20 53 4b 49 50 20 4c 49 53 54 28 27 41 4e 47 45 20 4b ┆PUT FILE(DISP) SKIP LIST('ANGE K┆ 0x1ce8d…1cead 55 52 53 45 52 20 46 5c 52 20 44 4f 4c 4c 41 52 2c 20 50 55 4e 44 2c 20 46 52 41 4e 43 45 20 59 ┆URSER FÖR DOLLAR, PUND, FRANCE Y┆ 0x1cead…1cebc 45 4e 20 44 4b 52 20 27 29 3b 20 20 20 20 20 ┆EN DKR '); ┆ 0x1cebc…1cedc (35, 0, 27) 47 45 54 20 4c 49 53 54 28 44 2c 50 2c 46 2c 59 2c 44 4b 52 29 3b 20 20 20 20 20 20 20 20 20 20 ┆GET LIST(D,P,F,Y,DKR); ┆ 0x1cedc…1cefc 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 ┆ ┆ 0x1cefc…1cf0b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1cf0b…1cf2b (35, 0, 28) 53 54 41 52 54 3a 20 20 20 20 4f 4e 20 45 4e 44 46 49 4c 45 20 47 4f 20 54 4f 20 53 4c 55 54 3b ┆START: ON ENDFILE GO TO SLUT;┆ 0x1cf2b…1cf4b 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 ┆ ┆ 0x1cf4b…1cf5a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1cf5a…1cf7a (35, 0, 29) 20 20 20 20 20 52 45 41 44 20 46 49 4c 45 28 52 45 53 46 49 4c 29 20 49 4e 54 4f 28 52 45 53 4b ┆ READ FILE(RESFIL) INTO(RESK┆ 0x1cf7a…1cf9a 4f 4e 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ON); ┆ 0x1cf9a…1cfa9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1cfa9…1cfc9 (35, 0, 30) 49 46 28 53 55 42 53 54 52 28 42 56 45 43 4b 2c 33 2c 32 29 20 20 7f 3d 20 41 4d 29 20 54 48 45 ┆IF(SUBSTR(BVECK,3,2) = AM) THE┆ 0x1cfc9…1cfe9 4e 20 47 4f 20 54 4f 20 53 54 41 52 54 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆N GO TO START; ┆ 0x1cfe9…1cff8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1cff8…1d018 (35, 0, 31) 49 46 28 53 42 45 4c 20 3d 20 30 2e 30 30 29 20 54 48 45 4e 20 47 4f 20 54 4f 20 53 54 41 52 54 ┆IF(SBEL = 0.00) THEN GO TO START┆ 0x1d018…1d038 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆; ┆ 0x1d038…1d047 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1d047…1d067 (35, 0, 32) 49 46 28 4c 41 4e 44 20 3d 20 27 53 27 29 54 48 45 4e 20 56 41 4c 20 3d 20 31 2e 3b 20 20 20 20 ┆IF(LAND = 'S')THEN VAL = 1.; ┆ 0x1d067…1d087 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 ┆ ┆ 0x1d087…1d096 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1d096…1d0b6 (35, 0, 33) 49 46 28 4c 41 4e 44 20 3d 20 27 45 27 29 54 48 45 4e 20 56 41 4c 20 3d 20 50 3b 20 20 20 20 20 ┆IF(LAND = 'E')THEN VAL = P; ┆ 0x1d0b6…1d0d6 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 ┆ ┆ 0x1d0d6…1d0e5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1d0e5…1d105 (35, 0, 34) 49 46 28 4c 41 4e 44 20 3d 27 55 27 29 20 54 48 45 4e 20 56 41 4c 20 3d 20 44 3b 20 20 20 20 20 ┆IF(LAND ='U') THEN VAL = D; ┆ 0x1d105…1d125 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 ┆ ┆ 0x1d125…1d134 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1d134…1d154 (35, 0, 35) 49 46 28 4c 41 4e 44 20 20 3d 20 27 4a 27 29 54 48 45 4e 20 56 41 4c 20 3d 20 59 3b 20 20 20 20 ┆IF(LAND = 'J')THEN VAL = Y; ┆ 0x1d154…1d174 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 ┆ ┆ 0x1d174…1d183 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1d183…1d1a3 (35, 0, 36) 49 46 28 4c 41 4e 44 20 3d 20 27 46 27 29 20 54 48 45 4e 20 56 41 4c 20 3d 20 46 3b 20 20 20 20 ┆IF(LAND = 'F') THEN VAL = F; ┆ 0x1d1a3…1d1c3 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 ┆ ┆ 0x1d1c3…1d1d2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1d1d2…1d1f2 (35, 0, 37) 49 46 28 4c 41 4e 44 20 3d 20 27 44 27 29 20 54 48 45 4e 20 56 41 4c 20 3d 20 44 4b 52 3b 20 20 ┆IF(LAND = 'D') THEN VAL = DKR; ┆ 0x1d1f2…1d212 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 ┆ ┆ 0x1d212…1d221 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1d221…1d241 (35, 0, 38) 53 55 4d 4d 41 20 3d 20 53 42 45 4c 20 2a 20 56 41 4c 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆SUMMA = SBEL * VAL; ┆ 0x1d241…1d261 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 ┆ ┆ 0x1d261…1d270 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1d270…1d290 (35, 0, 39) 53 55 4d 20 3d 20 53 55 4d 20 2b 20 53 55 4d 4d 41 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆SUM = SUM + SUMMA; ┆ 0x1d290…1d2b0 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 ┆ ┆ 0x1d2b0…1d2bf 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1d2bf…1d2df (35, 0, 40) 20 20 20 20 20 47 4f 20 54 4f 20 53 54 41 52 54 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GO TO START; ┆ 0x1d2df…1d2ff 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 ┆ ┆ 0x1d2ff…1d30e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1d30e…1d32e (36, 0, 0) 53 4c 55 54 3a 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 ┆SLUT: ┆ 0x1d32e…1d34e 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 ┆ ┆ 0x1d34e…1d35d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1d35d…1d37d (36, 0, 1) 50 55 54 20 53 4b 49 50 28 34 29 4c 49 53 54 28 27 20 20 20 20 42 45 54 41 4c 54 20 42 45 4c 4f ┆PUT SKIP(4)LIST(' BETALT BELO┆ 0x1d37d…1d39d 50 50 20 20 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆PP '); ┆ 0x1d39d…1d3ac 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1d3ac…1d3cc (36, 0, 2) 50 55 54 20 45 44 49 54 28 53 55 4d 29 20 28 50 27 5a 5a 5a 5a 5a 5a 5a 5a 39 56 2e 39 39 27 29 ┆PUT EDIT(SUM) (P'ZZZZZZZZ9V.99')┆ 0x1d3cc…1d3ec 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆; ┆ 0x1d3ec…1d3fb 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1d3fb…1d41b (36, 0, 3) 50 55 54 20 4c 49 53 54 28 27 20 20 20 20 53 56 45 4e 53 4b 41 20 4b 52 4f 4e 4f 52 20 27 29 3b ┆PUT LIST(' SVENSKA KRONOR ');┆ 0x1d41b…1d43b 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 ┆ ┆ 0x1d43b…1d44a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1d44a…1d46a (36, 0, 4) 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆END; ┆ 0x1d46a…1d48a 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 ┆ ┆ 0x1d48a…1d499 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1d499…1d4b9 (36, 0, 5) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x1d4d9…1d4e8 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x1d4e8…1d508 (36, 0, 6) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x1d528…1d537 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x1d537…1d557 (36, 0, 7) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x1d577…1d586 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x1d586…1d5a6 (36, 0, 8) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x1d5c6…1d5d5 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x1d5d5…1d5f5 (36, 0, 9) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x1d615…1d624 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x1d624…1d644 (36, 0, 10) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x1d664…1d673 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x1d673…1d693 (36, 0, 11) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x1d6b3…1d6c2 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x1d6c2…1d6e2 (36, 0, 12) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x1d702…1d711 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x1d711…1d731 (36, 0, 13) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x1d751…1d760 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x1d760…1d780 (36, 0, 14) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x1d7a0…1d7af 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x1d7af…1d7cf (36, 0, 15) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x1d7ef…1d7fe 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x1d7fe…1d81e (36, 0, 16) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x1d83e…1d84d 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x1d84d…1d86d (36, 0, 17) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x1d88d…1d89c 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x1d89c…1d8bc (36, 0, 18) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x1d8dc…1d8eb 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x1d8eb…1d90b (36, 0, 19) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x1d92b…1d93a 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x1d93a…1d95a (36, 0, 20) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x1d97a…1d989 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x1d989…1d9a9 (36, 0, 21) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x1d9c9…1d9d8 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x1d9d8…1d9f8 (36, 0, 22) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x1da18…1da27 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x1da27…1da47 (36, 0, 23) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x1da67…1da76 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x1da76…1da96 (36, 0, 24) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x1dab6…1dac5 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x1dac5…1dae5 (36, 0, 25) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x1db05…1db14 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x1db14…1db34 (36, 0, 26) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x1db54…1db63 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x1db63…1db83 (36, 0, 27) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x1dba3…1dbb2 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x1dbb2…1dbd2 (36, 0, 28) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x1dbf2…1dc01 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x1dc01…1dc21 (36, 0, 29) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x1dc41…1dc50 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x1dc50…1dc70 (36, 0, 30) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x1dc90…1dc9f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x1dc9f…1dcbf (36, 0, 31) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x1dcdf…1dcee 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x1dcee…1dd0e (36, 0, 32) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x1dd2e…1dd3d 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x1dd3d…1dd5d (36, 0, 33) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x1dd7d…1dd8c 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x1dd8c…1ddac (36, 0, 34) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x1ddcc…1dddb 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x1dddb…1ddfb (36, 0, 35) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x1de1b…1de2a 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x1de2a…1de4a (36, 0, 36) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x1de6a…1de79 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x1de79…1de99 (36, 0, 37) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x1deb9…1dec8 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x1dec8…1dee8 (36, 0, 38) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x1df08…1df17 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x1df17…1df37 (36, 0, 39) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x1df57…1df66 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x1df66…1df86 (36, 0, 40) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x1dfa6…1dfb5 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x1dfb5…1dfd5 (37, 0, 0) 44 43 4c 20 31 20 52 45 53 4b 4f 4e 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆DCL 1 RESKON, ┆ 0x1dfd5…1dff5 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 ┆ ┆ 0x1dff5…1e004 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1e004…1e024 (37, 0, 1) 20 20 20 20 32 20 46 41 4b 54 4e 52 20 43 48 41 52 28 38 29 2c 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 FAKTNR CHAR(8), ┆ 0x1e024…1e044 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 ┆ ┆ 0x1e044…1e053 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1e053…1e073 (37, 0, 2) 20 20 20 20 32 20 4c 45 56 20 43 48 41 52 28 35 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 LEV CHAR(5), ┆ 0x1e073…1e093 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 ┆ ┆ 0x1e093…1e0a2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1e0a2…1e0c2 (37, 0, 3) 20 20 20 20 32 20 46 44 41 54 20 43 48 41 52 28 36 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 FDAT CHAR(6), ┆ 0x1e0c2…1e0e2 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 ┆ ┆ 0x1e0e2…1e0f1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1e0f1…1e111 (37, 0, 4) 20 20 20 20 32 20 55 42 45 4c 20 46 49 58 45 44 28 39 2c 32 29 2c 20 20 20 20 20 20 20 20 20 20 ┆ 2 UBEL FIXED(9,2), ┆ 0x1e111…1e131 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 ┆ ┆ 0x1e131…1e140 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1e140…1e160 (37, 0, 5) 20 20 20 20 32 20 4c 41 4e 44 20 43 48 41 52 28 31 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 LAND CHAR(1), ┆ 0x1e160…1e180 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 ┆ ┆ 0x1e180…1e18f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1e18f…1e1af (37, 0, 6) 20 20 20 20 32 20 56 45 43 4b 41 20 46 49 58 45 44 28 33 29 2c 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 VECKA FIXED(3), ┆ 0x1e1af…1e1cf 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 ┆ ┆ 0x1e1cf…1e1de 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1e1de…1e1fe (37, 0, 7) 20 20 20 20 32 20 4b 4f 4e 54 4f 20 43 48 41 52 28 34 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 KONTO CHAR(4), ┆ 0x1e1fe…1e21e 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 ┆ ┆ 0x1e21e…1e22d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1e22d…1e24d (37, 0, 8) 20 20 20 20 32 20 53 4d 4f 4d 53 20 46 49 58 45 44 28 38 2c 32 29 2c 20 20 20 20 20 20 20 20 20 ┆ 2 SMOMS FIXED(8,2), ┆ 0x1e24d…1e26d 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 ┆ ┆ 0x1e26d…1e27c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1e27c…1e29c (37, 0, 9) 20 20 20 20 32 20 42 56 45 43 4b 20 43 48 41 52 28 36 29 20 20 49 4e 49 54 49 41 4c 28 27 20 20 ┆ 2 BVECK CHAR(6) INITIAL(' ┆ 0x1e29c…1e2bc 20 20 20 20 27 29 2c 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 ┆ '), ┆ 0x1e2bc…1e2cb 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1e2cb…1e2eb (37, 0, 10) 20 20 20 20 32 20 53 42 45 4c 20 46 49 58 45 44 28 39 2c 32 29 20 49 4e 49 54 49 41 4c 28 30 2e ┆ 2 SBEL FIXED(9,2) INITIAL(0.┆ 0x1e2eb…1e30b 30 29 2c 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 ┆0), ┆ 0x1e30b…1e31a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1e31a…1e33a (37, 0, 11) 20 20 20 20 32 20 44 42 45 4c 20 46 49 58 45 44 28 38 2c 32 29 20 49 4e 49 54 49 41 4c 28 30 2e ┆ 2 DBEL FIXED(8,2) INITIAL(0.┆ 0x1e33a…1e35a 30 29 2c 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 ┆0), ┆ 0x1e35a…1e369 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1e369…1e389 (37, 0, 12) 20 20 20 20 32 20 56 4e 52 28 32 29 20 43 48 41 52 28 36 29 20 49 4e 49 54 49 41 4c 28 27 20 20 ┆ 2 VNR(2) CHAR(6) INITIAL(' ┆ 0x1e389…1e3a9 20 20 20 20 27 2c 27 20 20 20 20 20 20 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ',' '); ┆ 0x1e3a9…1e3b8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1e3b8…1e3d8 (37, 0, 13) 44 43 4c 20 52 55 42 31 20 20 43 48 41 52 28 35 30 29 20 49 4e 49 54 49 41 4c 28 27 4d 20 20 53 ┆DCL RUB1 CHAR(50) INITIAL('M S┆ 0x1e3d8…1e3f8 20 54 20 45 20 4e 20 48 20 41 20 52 20 44 20 54 20 20 41 42 27 29 3b 20 20 20 20 20 20 20 20 20 ┆ T E N H A R D T AB'); ┆ 0x1e3f8…1e407 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1e407…1e427 (37, 0, 14) 44 43 4c 20 52 55 42 32 20 43 48 41 52 28 35 33 29 20 49 4e 49 54 49 41 4c 28 27 4c 20 20 45 20 ┆DCL RUB2 CHAR(53) INITIAL('L E ┆ 0x1e427…1e447 20 56 20 20 45 20 20 52 20 20 41 20 20 4e 20 20 54 20 20 5c 20 20 52 20 20 53 20 20 52 20 20 45 ┆ V E R A N T Ö R S R E┆ 0x1e447…1e456 20 20 53 20 20 4b 20 20 4f 20 20 4e 27 29 3b ┆ S K O N');┆ 0x1e456…1e476 (37, 0, 15) 44 43 4c 20 52 55 42 32 41 20 43 48 41 52 28 31 35 29 49 4e 49 54 28 27 20 20 54 20 20 52 20 20 ┆DCL RUB2A CHAR(15)INIT(' T R ┆ 0x1e476…1e496 41 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆A'); ┆ 0x1e496…1e4a5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1e4a5…1e4c5 (37, 0, 16) 44 43 4c 20 52 55 42 33 20 43 48 41 52 28 35 33 29 20 49 4e 49 54 28 27 20 20 4c 45 56 20 20 46 ┆DCL RUB3 CHAR(53) INIT(' LEV F┆ 0x1e4c5…1e4e5 41 4b 54 2e 44 41 54 20 20 20 20 20 46 41 4b 54 2e 4e 52 20 20 20 20 20 20 54 4f 54 2e 42 45 4c ┆AKT.DAT FAKT.NR TOT.BEL┆ 0x1e4e5…1e4f4 4f 50 50 20 20 4c 41 4e 44 20 20 27 29 3b 20 ┆OPP LAND '); ┆ 0x1e4f4…1e514 (37, 0, 17) 44 43 4c 20 52 55 42 34 20 20 43 48 41 52 28 35 33 29 20 49 4e 49 54 28 27 20 53 49 53 54 41 20 ┆DCL RUB4 CHAR(53) INIT(' SISTA ┆ 0x1e514…1e534 42 45 54 20 20 4b 4f 4e 54 4f 20 20 20 49 4e 47 2e 4d 4f 4d 53 20 20 42 45 54 2e 56 45 43 4b 41 ┆BET KONTO ING.MOMS BET.VECKA┆ 0x1e534…1e543 20 20 20 27 29 3b 20 20 20 20 20 20 20 20 20 ┆ '); ┆ 0x1e543…1e563 (37, 0, 18) 44 43 4c 20 52 55 42 35 20 43 48 41 52 28 34 30 29 49 4e 49 54 20 28 27 20 42 45 54 41 4c 54 20 ┆DCL RUB5 CHAR(40)INIT (' BETALT ┆ 0x1e563…1e583 20 20 20 20 20 20 44 49 46 46 20 20 20 56 45 52 49 46 49 4b 41 54 49 4f 4e 53 20 4e 52 2e 27 29 ┆ DIFF VERIFIKATIONS NR.')┆ 0x1e583…1e592 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆; ┆ 0x1e592…1e5b2 (37, 0, 19) 44 43 4c 20 44 41 54 55 4d 20 43 48 41 52 28 38 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆DCL DATUM CHAR(8); ┆ 0x1e5b2…1e5d2 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 ┆ ┆ 0x1e5d2…1e5e1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1e5e1…1e601 (37, 0, 20) 50 55 54 20 46 49 4c 45 28 44 49 53 50 29 20 53 4b 49 50 20 4c 49 53 54 28 27 41 4e 47 45 20 44 ┆PUT FILE(DISP) SKIP LIST('ANGE D┆ 0x1e601…1e621 41 47 45 4e 53 20 44 41 54 55 4d 20 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆AGENS DATUM '); ┆ 0x1e621…1e630 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1e630…1e650 (37, 0, 21) 47 45 54 20 4c 49 53 54 28 44 41 54 55 4d 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆GET LIST(DATUM); ┆ 0x1e650…1e670 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 ┆ ┆ 0x1e670…1e67f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1e67f…1e69f (37, 0, 22) 44 43 4c 20 52 45 53 46 49 4c 20 46 49 4c 45 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆DCL RESFIL FILE; ┆ 0x1e69f…1e6bf 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 ┆ ┆ 0x1e6bf…1e6ce 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1e6ce…1e6ee (37, 0, 23) 4f 50 45 4e 20 52 45 53 46 49 4c 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆OPEN RESFIL; ┆ 0x1e6ee…1e70e 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 ┆ ┆ 0x1e70e…1e71d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1e71d…1e73d (37, 0, 24) 50 55 54 20 46 49 4c 45 28 44 49 53 50 29 20 53 4b 49 50 20 4c 49 53 54 28 27 41 4e 47 45 20 41 ┆PUT FILE(DISP) SKIP LIST('ANGE A┆ 0x1e73d…1e75d 4b 54 55 45 4c 4c 20 56 45 43 4b 41 20 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆KTUELL VECKA '); ┆ 0x1e75d…1e76c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1e76c…1e78c (37, 0, 25) 47 45 54 20 4c 49 53 54 28 41 56 45 43 4b 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆GET LIST(AVECK); ┆ 0x1e78c…1e7ac 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 ┆ ┆ 0x1e7ac…1e7bb 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1e7bb…1e7db (37, 0, 26) 50 55 54 20 53 4b 49 50 28 33 29 20 45 44 49 54 28 52 55 42 31 29 28 41 28 34 30 29 29 20 28 52 ┆PUT SKIP(3) EDIT(RUB1)(A(40)) (R┆ 0x1e7db…1e7fb 55 42 32 29 28 41 28 35 30 29 29 20 28 52 55 42 32 41 29 28 41 28 31 32 29 29 28 44 41 54 55 4d ┆UB2)(A(50)) (RUB2A)(A(12))(DATUM┆ 0x1e7fb…1e80a 29 28 41 28 31 30 29 29 3b 20 20 20 20 20 20 ┆)(A(10)); ┆ 0x1e80a…1e82a (37, 0, 27) 50 55 54 20 53 4b 49 50 28 32 29 20 4c 49 53 54 28 52 55 42 33 2c 52 55 42 34 2c 52 55 42 35 29 ┆PUT SKIP(2) LIST(RUB3,RUB4,RUB5)┆ 0x1e82a…1e84a 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆; ┆ 0x1e84a…1e859 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1e859…1e879 (37, 0, 28) 53 54 41 52 54 3a 20 20 20 20 4f 4e 20 45 4e 44 46 49 4c 45 20 47 4f 20 54 4f 20 53 4c 55 54 3b ┆START: ON ENDFILE GO TO SLUT;┆ 0x1e879…1e899 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 ┆ ┆ 0x1e899…1e8a8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1e8a8…1e8c8 (37, 0, 29) 20 20 20 20 20 52 45 41 44 20 46 49 4c 45 28 52 45 53 46 49 4c 29 20 49 4e 54 4f 28 52 45 53 4b ┆ READ FILE(RESFIL) INTO(RESK┆ 0x1e8c8…1e8e8 4f 4e 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ON); ┆ 0x1e8e8…1e8f7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1e8f7…1e917 (37, 0, 30) 49 46 28 56 45 43 4b 41 20 3e 20 41 56 45 43 4b 29 54 48 45 4e 20 47 4f 20 54 4f 20 53 54 41 52 ┆IF(VECKA > AVECK)THEN GO TO STAR┆ 0x1e917…1e937 54 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆T; ┆ 0x1e937…1e946 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1e946…1e966 (37, 0, 31) 49 46 28 55 42 45 4c 20 3d 20 53 42 45 4c 29 20 54 48 45 4e 20 47 4f 20 54 4f 20 53 54 41 52 54 ┆IF(UBEL = SBEL) THEN GO TO START┆ 0x1e966…1e986 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆; ┆ 0x1e986…1e995 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1e995…1e9b5 (37, 0, 32) 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 28 32 29 20 45 44 49 54 28 4c 45 56 29 28 41 28 39 ┆ PUT SKIP(2) EDIT(LEV)(A(9┆ 0x1e9b5…1e9d5 29 29 20 28 46 44 41 54 29 28 41 28 31 30 29 29 20 28 46 41 4b 54 4e 52 29 28 41 28 31 35 29 29 ┆)) (FDAT)(A(10)) (FAKTNR)(A(15))┆ 0x1e9d5…1e9e4 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆; ┆ 0x1e9e4…1ea04 (37, 0, 33) 50 55 54 20 45 44 49 54 28 55 42 45 4c 29 28 50 27 2d 2d 2d 2d 2d 39 56 2e 39 39 27 2c 58 28 35 ┆PUT EDIT(UBEL)(P'-----9V.99',X(5┆ 0x1ea04…1ea24 29 29 28 4c 41 4e 44 29 28 41 28 37 29 29 20 28 56 45 43 4b 41 29 28 50 27 5a 5a 5a 27 2c 58 28 ┆))(LAND)(A(7)) (VECKA)(P'ZZZ',X(┆ 0x1ea24…1ea33 33 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 ┆3)); ┆ 0x1ea33…1ea53 (37, 0, 34) 20 20 20 20 20 50 55 54 20 45 44 49 54 20 4b 4f 4e 54 4f 28 41 28 37 29 29 20 28 53 4d 4f 4d 53 ┆ PUT EDIT KONTO(A(7)) (SMOMS┆ 0x1ea53…1ea73 29 28 50 27 2d 2d 2d 2d 39 56 2e 39 39 27 2c 58 28 35 29 29 28 42 56 45 43 4b 29 28 41 28 36 29 ┆)(P'----9V.99',X(5))(BVECK)(A(6)┆ 0x1ea73…1ea82 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆); ┆ 0x1ea82…1eaa2 (37, 0, 35) 20 20 20 20 20 50 55 54 20 45 44 49 54 28 53 42 45 4c 29 28 58 28 31 29 2c 50 27 2d 2d 2d 2d 2d ┆ PUT EDIT(SBEL)(X(1),P'-----┆ 0x1eaa2…1eac2 39 56 2e 39 39 27 29 20 28 44 42 45 4c 29 28 58 28 32 29 2c 50 27 2d 2d 2d 2d 39 56 2e 39 39 27 ┆9V.99') (DBEL)(X(2),P'----9V.99'┆ 0x1eac2…1ead1 2c 58 28 34 29 29 3b 20 20 20 20 20 20 20 20 ┆,X(4)); ┆ 0x1ead1…1eaf1 (37, 0, 36) 50 55 54 20 45 44 49 54 28 56 4e 52 28 31 29 20 29 20 28 41 28 38 29 29 20 28 56 4e 52 28 32 29 ┆PUT EDIT(VNR(1) ) (A(8)) (VNR(2)┆ 0x1eaf1…1eb11 29 28 41 28 37 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆)(A(7)); ┆ 0x1eb11…1eb20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1eb20…1eb40 (37, 0, 37) 20 20 20 20 20 47 4f 20 54 4f 20 53 54 41 52 54 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GO TO START; ┆ 0x1eb40…1eb60 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 ┆ ┆ 0x1eb60…1eb6f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1eb6f…1eb8f (37, 0, 38) 53 4c 55 54 3a 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 ┆SLUT: ┆ 0x1eb8f…1ebaf 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 ┆ ┆ 0x1ebaf…1ebbe 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1ebbe…1ebde (37, 0, 39) 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆END; ┆ 0x1ebde…1ebfe 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 ┆ ┆ 0x1ebfe…1ec0d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1ec0d…1ec2d (37, 0, 40) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x1ec4d…1ec5c 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x1ec5c…1ec7c (39, 0, 0) 44 43 4c 20 31 20 52 45 53 4b 4f 4e 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆DCL 1 RESKON, ┆ 0x1ec7c…1ec9c 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 ┆ ┆ 0x1ec9c…1ecab 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1ecab…1eccb (39, 0, 1) 20 20 20 20 32 20 46 41 4b 54 4e 52 20 43 48 41 52 28 38 29 2c 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 FAKTNR CHAR(8), ┆ 0x1eccb…1eceb 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 ┆ ┆ 0x1eceb…1ecfa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1ecfa…1ed1a (39, 0, 2) 20 20 20 20 32 20 4c 45 56 20 43 48 41 52 28 35 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 LEV CHAR(5), ┆ 0x1ed1a…1ed3a 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 ┆ ┆ 0x1ed3a…1ed49 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1ed49…1ed69 (39, 0, 3) 20 20 20 20 32 20 46 44 41 54 20 43 48 41 52 28 36 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 FDAT CHAR(6), ┆ 0x1ed69…1ed89 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 ┆ ┆ 0x1ed89…1ed98 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1ed98…1edb8 (39, 0, 4) 20 20 20 20 32 20 55 42 45 4c 20 46 49 58 45 44 28 39 2c 32 29 2c 20 20 20 20 20 20 20 20 20 20 ┆ 2 UBEL FIXED(9,2), ┆ 0x1edb8…1edd8 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 ┆ ┆ 0x1edd8…1ede7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1ede7…1ee07 (39, 0, 5) 20 20 20 20 32 20 4c 41 4e 44 20 43 48 41 52 28 31 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 LAND CHAR(1), ┆ 0x1ee07…1ee27 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 ┆ ┆ 0x1ee27…1ee36 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1ee36…1ee56 (39, 0, 6) 20 20 20 20 32 20 56 45 43 4b 41 20 46 49 58 45 44 28 33 29 2c 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 VECKA FIXED(3), ┆ 0x1ee56…1ee76 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 ┆ ┆ 0x1ee76…1ee85 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1ee85…1eea5 (39, 0, 7) 20 20 20 20 32 20 4b 4f 4e 54 4f 20 43 48 41 52 28 34 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 KONTO CHAR(4), ┆ 0x1eea5…1eec5 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 ┆ ┆ 0x1eec5…1eed4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1eed4…1eef4 (39, 0, 8) 20 20 20 20 32 20 53 4d 4f 4d 53 20 46 49 58 45 44 28 38 2c 32 29 2c 20 20 20 20 20 20 20 20 20 ┆ 2 SMOMS FIXED(8,2), ┆ 0x1eef4…1ef14 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 ┆ ┆ 0x1ef14…1ef23 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1ef23…1ef43 (39, 0, 9) 20 20 20 20 32 20 42 56 45 43 4b 20 43 48 41 52 28 36 29 20 20 49 4e 49 54 49 41 4c 28 27 20 20 ┆ 2 BVECK CHAR(6) INITIAL(' ┆ 0x1ef43…1ef63 20 20 20 20 27 29 2c 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 ┆ '), ┆ 0x1ef63…1ef72 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1ef72…1ef92 (39, 0, 10) 20 20 20 20 32 20 53 42 45 4c 20 46 49 58 45 44 28 39 2c 32 29 20 49 4e 49 54 49 41 4c 28 30 2e ┆ 2 SBEL FIXED(9,2) INITIAL(0.┆ 0x1ef92…1efb2 30 29 2c 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 ┆0), ┆ 0x1efb2…1efc1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1efc1…1efe1 (39, 0, 11) 20 20 20 20 32 20 44 42 45 4c 20 46 49 58 45 44 28 38 2c 32 29 20 49 4e 49 54 49 41 4c 28 30 2e ┆ 2 DBEL FIXED(8,2) INITIAL(0.┆ 0x1efe1…1f001 30 29 2c 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 ┆0), ┆ 0x1f001…1f010 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1f010…1f030 (39, 0, 12) 20 20 20 20 32 20 56 4e 52 28 32 29 20 43 48 41 52 28 36 29 20 49 4e 49 54 49 41 4c 28 27 20 20 ┆ 2 VNR(2) CHAR(6) INITIAL(' ┆ 0x1f030…1f050 20 20 20 20 27 2c 27 20 20 20 20 20 20 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ',' '); ┆ 0x1f050…1f05f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1f05f…1f07f (39, 0, 13) 44 43 4c 20 52 55 42 31 20 20 43 48 41 52 28 35 30 29 20 49 4e 49 54 49 41 4c 28 27 4d 20 20 53 ┆DCL RUB1 CHAR(50) INITIAL('M S┆ 0x1f07f…1f09f 20 54 20 45 20 4e 20 48 20 41 20 52 20 44 20 54 20 20 41 42 27 29 3b 20 20 20 20 20 20 20 20 20 ┆ T E N H A R D T AB'); ┆ 0x1f09f…1f0ae 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1f0ae…1f0ce (39, 0, 14) 44 43 4c 20 52 55 42 32 20 43 48 41 52 28 35 33 29 20 49 4e 49 54 49 41 4c 28 27 4c 20 20 45 20 ┆DCL RUB2 CHAR(53) INITIAL('L E ┆ 0x1f0ce…1f0ee 20 56 20 20 45 20 20 52 20 20 41 20 20 4e 20 20 54 20 20 5c 20 20 52 20 20 53 20 20 52 20 20 45 ┆ V E R A N T Ö R S R E┆ 0x1f0ee…1f0fd 20 20 53 20 20 4b 20 20 4f 20 20 4e 27 29 3b ┆ S K O N');┆ 0x1f0fd…1f11d (39, 0, 15) 44 43 4c 20 52 55 42 32 41 20 43 48 41 52 28 31 35 29 49 4e 49 54 28 27 20 20 54 20 20 52 20 20 ┆DCL RUB2A CHAR(15)INIT(' T R ┆ 0x1f11d…1f13d 41 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆A'); ┆ 0x1f13d…1f14c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1f14c…1f16c (39, 0, 16) 44 43 4c 20 52 55 42 33 20 43 48 41 52 28 35 33 29 20 49 4e 49 54 28 27 20 20 4c 45 56 20 20 46 ┆DCL RUB3 CHAR(53) INIT(' LEV F┆ 0x1f16c…1f18c 41 4b 54 2e 44 41 54 20 20 20 20 20 46 41 4b 54 2e 4e 52 20 20 20 20 20 20 54 4f 54 2e 42 45 4c ┆AKT.DAT FAKT.NR TOT.BEL┆ 0x1f18c…1f19b 4f 50 50 20 20 4c 41 4e 44 20 20 27 29 3b 20 ┆OPP LAND '); ┆ 0x1f19b…1f1bb (39, 0, 17) 44 43 4c 20 52 55 42 34 20 20 43 48 41 52 28 35 33 29 20 49 4e 49 54 28 27 20 20 53 49 53 54 41 ┆DCL RUB4 CHAR(53) INIT(' SISTA┆ 0x1f1bb…1f1db 20 42 45 54 20 20 4b 4f 4e 54 4f 20 20 20 49 4e 47 2e 4d 4f 4d 53 20 20 42 45 54 2e 56 45 43 4b ┆ BET KONTO ING.MOMS BET.VECK┆ 0x1f1db…1f1ea 41 20 20 20 27 29 3b 20 20 20 20 20 20 20 20 ┆A '); ┆ 0x1f1ea…1f20a (39, 0, 18) 44 43 4c 20 52 55 42 35 20 43 48 41 52 28 34 30 29 49 4e 49 54 20 28 27 20 42 45 54 41 4c 54 20 ┆DCL RUB5 CHAR(40)INIT (' BETALT ┆ 0x1f20a…1f22a 20 20 20 20 20 20 44 49 46 46 20 20 20 20 20 20 20 20 56 45 52 49 46 49 4b 2e 4e 52 2e 27 29 3b ┆ DIFF VERIFIK.NR.');┆ 0x1f22a…1f239 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1f239…1f259 (39, 0, 19) 44 43 4c 20 44 41 54 55 4d 20 43 48 41 52 28 38 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆DCL DATUM CHAR(8); ┆ 0x1f259…1f279 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 ┆ ┆ 0x1f279…1f288 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1f288…1f2a8 (39, 0, 20) 50 55 54 20 46 49 4c 45 28 44 49 53 50 29 20 53 4b 49 50 20 4c 49 53 54 28 27 41 4e 47 45 20 44 ┆PUT FILE(DISP) SKIP LIST('ANGE D┆ 0x1f2a8…1f2c8 41 47 45 4e 53 20 44 41 54 55 4d 20 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆AGENS DATUM '); ┆ 0x1f2c8…1f2d7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1f2d7…1f2f7 (39, 0, 21) 47 45 54 20 4c 49 53 54 28 44 41 54 55 4d 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆GET LIST(DATUM); ┆ 0x1f2f7…1f317 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 ┆ ┆ 0x1f317…1f326 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1f326…1f346 (39, 0, 22) 44 43 4c 20 52 45 53 46 49 4c 20 46 49 4c 45 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆DCL RESFIL FILE; ┆ 0x1f346…1f366 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 ┆ ┆ 0x1f366…1f375 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1f375…1f395 (39, 0, 23) 4f 50 45 4e 20 52 45 53 46 49 4c 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆OPEN RESFIL; ┆ 0x1f395…1f3b5 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 ┆ ┆ 0x1f3b5…1f3c4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1f3c4…1f3e4 (39, 0, 24) 44 43 4c 20 41 20 43 48 41 52 28 32 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆DCL A CHAR(2); ┆ 0x1f3e4…1f404 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 ┆ ┆ 0x1f404…1f413 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1f413…1f433 (39, 0, 25) 50 55 54 20 46 49 4c 45 28 44 49 53 50 29 20 53 4b 49 50 20 4c 49 53 54 28 27 41 4e 47 45 20 4d ┆PUT FILE(DISP) SKIP LIST('ANGE M┆ 0x1f433…1f453 5d 4e 41 44 45 4e 20 53 4f 4d 20 41 56 53 45 53 20 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆ÅNADEN SOM AVSES '); ┆ 0x1f453…1f462 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1f462…1f482 (39, 0, 26) 47 45 54 20 4c 49 53 54 28 41 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆GET LIST(A); ┆ 0x1f482…1f4a2 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 ┆ ┆ 0x1f4a2…1f4b1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1f4b1…1f4d1 (39, 0, 27) 50 55 54 20 53 4b 49 50 28 33 29 20 45 44 49 54 28 52 55 42 31 29 28 41 28 34 30 29 29 20 28 52 ┆PUT SKIP(3) EDIT(RUB1)(A(40)) (R┆ 0x1f4d1…1f4f1 55 42 32 29 28 41 28 35 30 29 29 20 28 52 55 42 32 41 29 28 41 28 31 32 29 29 28 44 41 54 55 4d ┆UB2)(A(50)) (RUB2A)(A(12))(DATUM┆ 0x1f4f1…1f500 29 28 41 28 31 30 29 29 3b 20 20 20 20 20 20 ┆)(A(10)); ┆ 0x1f500…1f520 (39, 0, 28) 50 55 54 20 53 4b 49 50 28 32 29 20 4c 49 53 54 28 52 55 42 33 2c 52 55 42 34 2c 52 55 42 35 29 ┆PUT SKIP(2) LIST(RUB3,RUB4,RUB5)┆ 0x1f520…1f540 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆; ┆ 0x1f540…1f54f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1f54f…1f56f (39, 0, 29) 20 20 20 20 20 20 20 20 20 20 53 55 4d 4d 41 20 3d 20 30 3b 20 53 55 4d 20 3d 20 30 3b 20 20 20 ┆ SUMMA = 0; SUM = 0; ┆ 0x1f56f…1f58f 53 31 20 3d 20 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆S1 = 0; ┆ 0x1f58f…1f59e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1f59e…1f5be (39, 0, 30) 53 54 41 52 54 3a 20 20 20 20 4f 4e 20 45 4e 44 46 49 4c 45 20 47 4f 20 54 4f 20 53 4c 55 54 3b ┆START: ON ENDFILE GO TO SLUT;┆ 0x1f5be…1f5de 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 ┆ ┆ 0x1f5de…1f5ed 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1f5ed…1f60d (39, 0, 31) 20 20 20 20 20 52 45 41 44 20 46 49 4c 45 28 52 45 53 46 49 4c 29 20 49 4e 54 4f 28 52 45 53 4b ┆ READ FILE(RESFIL) INTO(RESK┆ 0x1f60d…1f62d 4f 4e 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ON); ┆ 0x1f62d…1f63c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1f63c…1f65c (39, 0, 32) 49 46 28 53 4d 4f 4d 53 20 3d 20 30 29 20 54 48 45 4e 20 47 4f 20 54 4f 20 53 54 41 52 54 3b 20 ┆IF(SMOMS = 0) THEN GO TO START; ┆ 0x1f65c…1f67c 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 ┆ ┆ 0x1f67c…1f68b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1f68b…1f6ab (39, 0, 33) 49 46 28 53 55 42 53 54 52 28 46 44 41 54 2c 33 2c 32 29 20 7f 3d 20 41 29 20 54 48 45 4e 20 47 ┆IF(SUBSTR(FDAT,3,2) = A) THEN G┆ 0x1f6ab…1f6cb 4f 20 54 4f 20 53 54 41 52 54 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆O TO START; ┆ 0x1f6cb…1f6da 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1f6da…1f6fa (39, 0, 34) 53 55 4d 20 3d 20 53 55 4d 20 2b 20 53 4d 4f 4d 53 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆SUM = SUM + SMOMS; ┆ 0x1f6fa…1f71a 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 ┆ ┆ 0x1f71a…1f729 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1f729…1f749 (39, 0, 35) 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 28 32 29 20 45 44 49 54 28 4c 45 56 29 28 41 28 39 ┆ PUT SKIP(2) EDIT(LEV)(A(9┆ 0x1f749…1f769 29 29 20 28 46 44 41 54 29 28 41 28 31 30 29 29 20 28 46 41 4b 54 4e 52 29 28 41 28 31 35 29 29 ┆)) (FDAT)(A(10)) (FAKTNR)(A(15))┆ 0x1f769…1f778 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆; ┆ 0x1f778…1f798 (39, 0, 36) 50 55 54 20 45 44 49 54 28 55 42 45 4c 29 28 50 27 2d 2d 2d 2d 2d 39 56 2e 39 39 27 2c 58 28 35 ┆PUT EDIT(UBEL)(P'-----9V.99',X(5┆ 0x1f798…1f7b8 29 29 28 4c 41 4e 44 29 28 41 28 37 29 29 20 28 56 45 43 4b 41 29 28 50 27 5a 5a 5a 27 2c 58 28 ┆))(LAND)(A(7)) (VECKA)(P'ZZZ',X(┆ 0x1f7b8…1f7c7 37 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 ┆7)); ┆ 0x1f7c7…1f7e7 (39, 0, 37) 20 20 20 20 20 50 55 54 20 45 44 49 54 20 4b 4f 4e 54 4f 28 41 28 37 29 29 20 28 53 4d 4f 4d 53 ┆ PUT EDIT KONTO(A(7)) (SMOMS┆ 0x1f7e7…1f807 29 28 50 27 2d 2d 2d 2d 39 56 2e 39 39 27 2c 58 28 35 29 29 20 28 42 56 45 43 4b 29 28 41 28 36 ┆)(P'----9V.99',X(5)) (BVECK)(A(6┆ 0x1f807…1f816 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆)); ┆ 0x1f816…1f836 (39, 0, 38) 20 20 20 20 20 50 55 54 20 45 44 49 54 28 53 42 45 4c 29 28 58 28 31 29 2c 50 27 2d 2d 2d 2d 2d ┆ PUT EDIT(SBEL)(X(1),P'-----┆ 0x1f836…1f856 39 56 2e 39 39 27 29 20 28 44 42 45 4c 29 28 58 28 32 29 2c 50 27 2d 2d 2d 2d 39 56 2e 39 39 27 ┆9V.99') (DBEL)(X(2),P'----9V.99'┆ 0x1f856…1f865 2c 58 28 34 29 29 3b 20 20 20 20 20 20 20 20 ┆,X(4)); ┆ 0x1f865…1f885 (39, 0, 39) 50 55 54 20 45 44 49 54 28 56 4e 52 28 31 29 29 20 28 41 28 38 29 29 20 28 56 4e 52 28 32 29 29 ┆PUT EDIT(VNR(1)) (A(8)) (VNR(2))┆ 0x1f885…1f8a5 20 20 28 41 28 37 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ (A(7)); ┆ 0x1f8a5…1f8b4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1f8b4…1f8d4 (39, 0, 40) 20 20 20 20 20 47 4f 20 54 4f 20 53 54 41 52 54 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GO TO START; ┆ 0x1f8d4…1f8f4 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 ┆ ┆ 0x1f8f4…1f903 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1f903…1f923 (40, 0, 0) 53 4c 55 54 3a 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 ┆SLUT: ┆ 0x1f923…1f943 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 ┆ ┆ 0x1f943…1f952 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1f952…1f972 (40, 0, 1) 50 55 54 20 53 4b 49 50 28 33 29 4c 49 53 54 28 27 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆PUT SKIP(3)LIST(' ┆ 0x1f972…1f992 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 55 4d 4d 41 20 49 4e 47 5d 45 ┆ SUMMA INGÅE┆ 0x1f992…1f9a1 4e 44 45 20 4d 4f 4d 53 20 20 20 20 27 29 3b ┆NDE MOMS ');┆ 0x1f9a1…1f9c1 (40, 0, 2) 50 55 54 20 45 44 49 54 28 53 55 4d 29 20 28 58 28 39 29 2c 50 27 5a 5a 5a 5a 5a 5a 5a 5a 39 56 ┆PUT EDIT(SUM) (X(9),P'ZZZZZZZZ9V┆ 0x1f9c1…1f9e1 2e 39 39 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆.99'); ┆ 0x1f9e1…1f9f0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1f9f0…1fa10 (40, 0, 3) 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆END; ┆ 0x1fa10…1fa30 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 ┆ ┆ 0x1fa30…1fa3f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1fa3f…1fa5f (40, 0, 4) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x1fa7f…1fa8e 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x1fa8e…1faae (40, 0, 5) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x1face…1fadd 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x1fadd…1fafd (40, 0, 6) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x1fb1d…1fb2c 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x1fb2c…1fb4c (40, 0, 7) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x1fb6c…1fb7b 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x1fb7b…1fb9b (40, 0, 8) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x1fbbb…1fbca 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x1fbca…1fbea (40, 0, 9) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x1fc0a…1fc19 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x1fc19…1fc39 (40, 0, 10) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x1fc59…1fc68 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x1fc68…1fc88 (40, 0, 11) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x1fca8…1fcb7 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x1fcb7…1fcd7 (40, 0, 12) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x1fcf7…1fd06 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x1fd06…1fd26 (40, 0, 13) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x1fd46…1fd55 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x1fd55…1fd75 (40, 0, 14) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x1fd95…1fda4 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x1fda4…1fdc4 (40, 0, 15) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x1fde4…1fdf3 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x1fdf3…1fe13 (40, 0, 16) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x1fe33…1fe42 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x1fe42…1fe62 (40, 0, 17) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x1fe82…1fe91 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x1fe91…1feb1 (40, 0, 18) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x1fed1…1fee0 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x1fee0…1ff00 (40, 0, 19) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x1ff20…1ff2f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x1ff2f…1ff4f (40, 0, 20) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x1ff6f…1ff7e 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x1ff7e…1ff9e (40, 0, 21) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x1ffbe…1ffcd 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x1ffcd…1ffed (40, 0, 22) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x2000d…2001c 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x2001c…2003c (40, 0, 23) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x2005c…2006b 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x2006b…2008b (40, 0, 24) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x200ab…200ba 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x200ba…200da (40, 0, 25) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x200fa…20109 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x20109…20129 (40, 0, 26) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x20149…20158 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x20158…20178 (40, 0, 27) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x20198…201a7 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x201a7…201c7 (40, 0, 28) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x201e7…201f6 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x201f6…20216 (40, 0, 29) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x20236…20245 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x20245…20265 (40, 0, 30) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x20285…20294 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x20294…202b4 (40, 0, 31) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x202d4…202e3 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x202e3…20303 (40, 0, 32) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x20323…20332 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x20332…20352 (40, 0, 33) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x20372…20381 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x20381…203a1 (40, 0, 34) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x203c1…203d0 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x203d0…203f0 (40, 0, 35) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x20410…2041f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x2041f…2043f (40, 0, 36) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x2045f…2046e 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x2046e…2048e (40, 0, 37) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x204ae…204bd 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x204bd…204dd (40, 0, 38) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x204fd…2050c 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x2050c…2052c (40, 0, 39) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x2054c…2055b 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x2055b…2057b (40, 0, 40) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x2059b…205aa 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x205aa…205ca (41, 0, 0) 44 43 4c 20 31 20 52 45 53 4b 4f 4e 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆DCL 1 RESKON, ┆ 0x205ca…205ea 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 ┆ ┆ 0x205ea…205f9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x205f9…20619 (41, 0, 1) 20 20 20 20 32 20 46 41 4b 54 4e 52 20 43 48 41 52 28 38 29 2c 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 FAKTNR CHAR(8), ┆ 0x20619…20639 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 ┆ ┆ 0x20639…20648 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x20648…20668 (41, 0, 2) 20 20 20 20 32 20 4c 45 56 20 43 48 41 52 28 35 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 LEV CHAR(5), ┆ 0x20668…20688 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 ┆ ┆ 0x20688…20697 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x20697…206b7 (41, 0, 3) 20 20 20 20 32 20 46 44 41 54 20 43 48 41 52 28 36 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 FDAT CHAR(6), ┆ 0x206b7…206d7 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 ┆ ┆ 0x206d7…206e6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x206e6…20706 (41, 0, 4) 20 20 20 20 32 20 55 42 45 4c 20 46 49 58 45 44 28 39 2c 32 29 2c 20 20 20 20 20 20 20 20 20 20 ┆ 2 UBEL FIXED(9,2), ┆ 0x20706…20726 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 ┆ ┆ 0x20726…20735 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x20735…20755 (41, 0, 5) 20 20 20 20 32 20 4c 41 4e 44 20 43 48 41 52 28 31 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 LAND CHAR(1), ┆ 0x20755…20775 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 ┆ ┆ 0x20775…20784 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x20784…207a4 (41, 0, 6) 20 20 20 20 32 20 56 45 43 4b 41 20 46 49 58 45 44 28 33 29 2c 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 VECKA FIXED(3), ┆ 0x207a4…207c4 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 ┆ ┆ 0x207c4…207d3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x207d3…207f3 (41, 0, 7) 20 20 20 20 32 20 4b 4f 4e 54 4f 20 43 48 41 52 28 34 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 KONTO CHAR(4), ┆ 0x207f3…20813 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 ┆ ┆ 0x20813…20822 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x20822…20842 (41, 0, 8) 20 20 20 20 32 20 53 4d 4f 4d 53 20 46 49 58 45 44 28 38 2c 32 29 2c 20 20 20 20 20 20 20 20 20 ┆ 2 SMOMS FIXED(8,2), ┆ 0x20842…20862 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 ┆ ┆ 0x20862…20871 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x20871…20891 (41, 0, 9) 20 20 20 20 32 20 42 56 45 43 4b 20 43 48 41 52 28 36 29 20 20 49 4e 49 54 49 41 4c 28 27 20 20 ┆ 2 BVECK CHAR(6) INITIAL(' ┆ 0x20891…208b1 20 20 20 20 27 29 2c 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 ┆ '), ┆ 0x208b1…208c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x208c0…208e0 (41, 0, 10) 20 20 20 20 32 20 53 42 45 4c 20 46 49 58 45 44 28 39 2c 32 29 20 49 4e 49 54 49 41 4c 28 30 2e ┆ 2 SBEL FIXED(9,2) INITIAL(0.┆ 0x208e0…20900 30 29 2c 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 ┆0), ┆ 0x20900…2090f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x2090f…2092f (41, 0, 11) 20 20 20 20 32 20 44 42 45 4c 20 46 49 58 45 44 28 38 2c 32 29 20 49 4e 49 54 49 41 4c 28 30 2e ┆ 2 DBEL FIXED(8,2) INITIAL(0.┆ 0x2092f…2094f 30 29 2c 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 ┆0), ┆ 0x2094f…2095e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x2095e…2097e (41, 0, 12) 20 20 20 20 32 20 56 4e 52 28 32 29 20 43 48 41 52 28 36 29 20 49 4e 49 54 49 41 4c 28 27 20 20 ┆ 2 VNR(2) CHAR(6) INITIAL(' ┆ 0x2097e…2099e 20 20 20 20 27 2c 27 20 20 20 20 20 20 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ',' '); ┆ 0x2099e…209ad 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x209ad…209cd (41, 0, 13) 44 43 4c 20 52 55 42 31 20 20 43 48 41 52 28 35 30 29 20 49 4e 49 54 49 41 4c 28 27 4d 20 20 53 ┆DCL RUB1 CHAR(50) INITIAL('M S┆ 0x209cd…209ed 20 54 20 45 20 4e 20 48 20 41 20 52 20 44 20 54 20 20 41 42 27 29 3b 20 20 20 20 20 20 20 20 20 ┆ T E N H A R D T AB'); ┆ 0x209ed…209fc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x209fc…20a1c (41, 0, 14) 44 43 4c 20 52 55 42 32 20 43 48 41 52 28 35 33 29 20 49 4e 49 54 49 41 4c 28 27 4c 20 20 45 20 ┆DCL RUB2 CHAR(53) INITIAL('L E ┆ 0x20a1c…20a3c 20 56 20 20 45 20 20 52 20 20 41 20 20 4e 20 20 54 20 20 5c 20 20 52 20 20 53 20 20 52 20 20 45 ┆ V E R A N T Ö R S R E┆ 0x20a3c…20a4b 20 20 53 20 20 4b 20 20 4f 20 20 4e 27 29 3b ┆ S K O N');┆ 0x20a4b…20a6b (41, 0, 15) 44 43 4c 20 52 55 42 32 41 20 43 48 41 52 28 31 35 29 49 4e 49 54 28 27 20 20 54 20 20 52 20 20 ┆DCL RUB2A CHAR(15)INIT(' T R ┆ 0x20a6b…20a8b 41 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆A'); ┆ 0x20a8b…20a9a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x20a9a…20aba (41, 0, 16) 44 43 4c 20 44 41 54 55 4d 20 43 48 41 52 28 38 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆DCL DATUM CHAR(8); ┆ 0x20aba…20ada 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 ┆ ┆ 0x20ada…20ae9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x20ae9…20b09 (41, 0, 17) 50 55 54 20 46 49 4c 45 28 44 49 53 50 29 20 53 4b 49 50 20 4c 49 53 54 28 27 41 4e 47 45 20 44 ┆PUT FILE(DISP) SKIP LIST('ANGE D┆ 0x20b09…20b29 41 47 45 4e 53 20 44 41 54 55 4d 20 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆AGENS DATUM '); ┆ 0x20b29…20b38 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x20b38…20b58 (41, 0, 18) 47 45 54 20 4c 49 53 54 28 44 41 54 55 4d 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆GET LIST(DATUM); ┆ 0x20b58…20b78 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 ┆ ┆ 0x20b78…20b87 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x20b87…20ba7 (41, 0, 19) 44 43 4c 20 41 4d 20 43 48 41 52 28 32 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆DCL AM CHAR(2); ┆ 0x20ba7…20bc7 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 ┆ ┆ 0x20bc7…20bd6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x20bd6…20bf6 (41, 0, 20) 44 43 4c 20 52 45 53 46 49 4c 20 46 49 4c 45 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆DCL RESFIL FILE; ┆ 0x20bf6…20c16 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 ┆ ┆ 0x20c16…20c25 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x20c25…20c45 (41, 0, 21) 4f 50 45 4e 20 52 45 53 46 49 4c 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆OPEN RESFIL; ┆ 0x20c45…20c65 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 ┆ ┆ 0x20c65…20c74 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x20c74…20c94 (41, 0, 22) 50 55 54 20 46 49 4c 45 28 44 49 53 50 29 20 53 4b 49 50 20 4c 49 53 54 28 27 41 4e 47 45 20 4d ┆PUT FILE(DISP) SKIP LIST('ANGE M┆ 0x20c94…20cb4 5d 4e 41 44 45 4e 20 53 4f 4d 20 53 4b 41 20 53 55 4d 4d 45 52 41 53 20 27 29 3b 20 20 20 20 20 ┆ÅNADEN SOM SKA SUMMERAS '); ┆ 0x20cb4…20cc3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x20cc3…20ce3 (41, 0, 23) 47 45 54 20 4c 49 53 54 28 41 4d 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆GET LIST(AM); ┆ 0x20ce3…20d03 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 ┆ ┆ 0x20d03…20d12 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x20d12…20d32 (41, 0, 24) 50 55 54 20 53 4b 49 50 28 33 29 20 45 44 49 54 28 52 55 42 31 29 28 41 28 34 30 29 29 20 28 52 ┆PUT SKIP(3) EDIT(RUB1)(A(40)) (R┆ 0x20d32…20d52 55 42 32 29 28 41 28 35 30 29 29 20 28 52 55 42 32 41 29 28 41 28 31 32 29 29 28 44 41 54 55 4d ┆UB2)(A(50)) (RUB2A)(A(12))(DATUM┆ 0x20d52…20d61 29 28 41 28 31 30 29 29 3b 20 20 20 20 20 20 ┆)(A(10)); ┆ 0x20d61…20d81 (41, 0, 25) 53 55 4d 20 3d 20 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆SUM = 0; ┆ 0x20d81…20da1 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 ┆ ┆ 0x20da1…20db0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x20db0…20dd0 (41, 0, 26) 53 54 41 52 54 3a 20 20 20 20 4f 4e 20 45 4e 44 46 49 4c 45 20 47 4f 20 54 4f 20 53 4c 55 54 3b ┆START: ON ENDFILE GO TO SLUT;┆ 0x20dd0…20df0 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 ┆ ┆ 0x20df0…20dff 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x20dff…20e1f (41, 0, 27) 20 20 20 20 20 52 45 41 44 20 46 49 4c 45 28 52 45 53 46 49 4c 29 20 49 4e 54 4f 28 52 45 53 4b ┆ READ FILE(RESFIL) INTO(RESK┆ 0x20e1f…20e3f 4f 4e 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ON); ┆ 0x20e3f…20e4e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x20e4e…20e6e (41, 0, 28) 49 46 28 53 55 42 53 54 52 28 42 56 45 43 4b 2c 33 2c 32 29 20 20 7f 3d 20 41 4d 29 20 54 48 45 ┆IF(SUBSTR(BVECK,3,2) = AM) THE┆ 0x20e6e…20e8e 4e 20 47 4f 20 54 4f 20 53 54 41 52 54 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆N GO TO START; ┆ 0x20e8e…20e9d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x20e9d…20ebd (41, 0, 29) 49 46 28 53 42 45 4c 20 3d 20 30 2e 30 30 29 20 54 48 45 4e 20 47 4f 20 54 4f 20 53 54 41 52 54 ┆IF(SBEL = 0.00) THEN GO TO START┆ 0x20ebd…20edd 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆; ┆ 0x20edd…20eec 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x20eec…20f0c (41, 0, 30) 50 55 54 20 46 49 4c 45 28 44 49 53 50 29 20 53 4b 49 50 20 4c 49 53 54 28 27 41 4e 47 45 20 4b ┆PUT FILE(DISP) SKIP LIST('ANGE K┆ 0x20f0c…20f2c 55 52 53 45 4e 20 46 5c 52 20 44 4f 4c 4c 41 52 2c 20 50 55 4e 44 2c 20 46 46 52 41 4e 43 45 20 ┆URSEN FÖR DOLLAR, PUND, FFRANCE ┆ 0x20f2c…20f3b 59 45 4e 20 44 4b 52 20 27 29 3b 20 20 20 20 ┆YEN DKR '); ┆ 0x20f3b…20f5b (41, 0, 31) 47 45 54 20 4c 49 53 54 28 44 2c 50 2c 46 2c 59 2c 44 4b 52 29 3b 20 20 20 20 20 20 20 20 20 20 ┆GET LIST(D,P,F,Y,DKR); ┆ 0x20f5b…20f7b 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 ┆ ┆ 0x20f7b…20f8a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x20f8a…20faa (41, 0, 32) 49 46 28 4c 41 4e 44 20 3d 20 27 53 27 29 54 48 45 4e 20 56 41 4c 20 3d 20 31 2e 3b 20 20 20 20 ┆IF(LAND = 'S')THEN VAL = 1.; ┆ 0x20faa…20fca 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 ┆ ┆ 0x20fca…20fd9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x20fd9…20ff9 (41, 0, 33) 49 46 28 4c 41 4e 44 20 3d 20 27 45 27 29 54 48 45 4e 20 56 41 4c 20 3d 20 50 3b 20 20 20 20 20 ┆IF(LAND = 'E')THEN VAL = P; ┆ 0x20ff9…21019 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 ┆ ┆ 0x21019…21028 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x21028…21048 (41, 0, 34) 49 46 28 4c 41 4e 44 20 3d 27 55 27 29 20 54 48 45 4e 20 56 41 4c 20 3d 20 44 3b 20 20 20 20 20 ┆IF(LAND ='U') THEN VAL = D; ┆ 0x21048…21068 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 ┆ ┆ 0x21068…21077 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x21077…21097 (41, 0, 35) 49 46 28 4c 41 4e 44 20 20 3d 20 27 4a 27 29 54 48 45 4e 20 56 41 4c 20 3d 20 59 3b 20 20 20 20 ┆IF(LAND = 'J')THEN VAL = Y; ┆ 0x21097…210b7 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 ┆ ┆ 0x210b7…210c6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x210c6…210e6 (41, 0, 36) 49 46 28 4c 41 4e 44 20 3d 20 27 46 27 29 20 54 48 45 4e 20 56 41 4c 20 3d 20 46 3b 20 20 20 20 ┆IF(LAND = 'F') THEN VAL = F; ┆ 0x210e6…21106 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 ┆ ┆ 0x21106…21115 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x21115…21135 (41, 0, 37) 49 46 28 4c 41 4e 44 20 3d 20 27 44 27 29 20 54 48 45 4e 20 56 41 4c 20 3d 20 44 4b 52 3b 20 20 ┆IF(LAND = 'D') THEN VAL = DKR; ┆ 0x21135…21155 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 ┆ ┆ 0x21155…21164 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x21164…21184 (41, 0, 38) 53 55 4d 4d 41 20 3d 20 53 42 45 4c 20 2a 20 56 41 4c 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆SUMMA = SBEL * VAL; ┆ 0x21184…211a4 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 ┆ ┆ 0x211a4…211b3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x211b3…211d3 (41, 0, 39) 53 55 4d 20 3d 20 53 55 4d 20 2b 20 53 55 4d 4d 41 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆SUM = SUM + SUMMA; ┆ 0x211d3…211f3 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 ┆ ┆ 0x211f3…21202 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x21202…21222 (41, 0, 40) 20 20 20 20 20 47 4f 20 54 4f 20 53 54 41 52 54 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GO TO START; ┆ 0x21222…21242 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 ┆ ┆ 0x21242…21251 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x21251…21271 (42, 0, 0) 53 4c 55 54 3a 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 ┆SLUT: ┆ 0x21271…21291 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 ┆ ┆ 0x21291…212a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x212a0…212c0 (42, 0, 1) 50 55 54 20 53 4b 49 50 28 34 29 4c 49 53 54 28 27 20 20 20 20 42 45 54 41 4c 54 20 42 45 4c 4f ┆PUT SKIP(4)LIST(' BETALT BELO┆ 0x212c0…212e0 50 50 20 20 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆PP '); ┆ 0x212e0…212ef 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x212ef…2130f (42, 0, 2) 50 55 54 20 45 44 49 54 28 53 55 4d 29 20 28 50 27 5a 5a 5a 5a 5a 5a 5a 5a 39 56 2e 39 39 27 29 ┆PUT EDIT(SUM) (P'ZZZZZZZZ9V.99')┆ 0x2130f…2132f 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆; ┆ 0x2132f…2133e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x2133e…2135e (42, 0, 3) 50 55 54 20 4c 49 53 54 28 27 20 20 20 20 53 56 45 4e 53 4b 41 20 4b 52 4f 4e 4f 52 20 27 29 3b ┆PUT LIST(' SVENSKA KRONOR ');┆ 0x2135e…2137e 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 ┆ ┆ 0x2137e…2138d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x2138d…213ad (42, 0, 4) 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆END; ┆ 0x213ad…213cd 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 ┆ ┆ 0x213cd…213dc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x213dc…213fc (42, 0, 5) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x2141c…2142b 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x2142b…2144b (42, 0, 6) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x2146b…2147a 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x2147a…2149a (42, 0, 7) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x214ba…214c9 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x214c9…214e9 (42, 0, 8) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x21509…21518 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x21518…21538 (42, 0, 9) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x21558…21567 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x21567…21587 (42, 0, 10) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x215a7…215b6 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x215b6…215d6 (42, 0, 11) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x215f6…21605 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x21605…21625 (42, 0, 12) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x21645…21654 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x21654…21674 (42, 0, 13) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x21694…216a3 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x216a3…216c3 (42, 0, 14) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x216e3…216f2 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x216f2…21712 (42, 0, 15) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x21732…21741 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x21741…21761 (42, 0, 16) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x21781…21790 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x21790…217b0 (42, 0, 17) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x217d0…217df 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x217df…217ff (42, 0, 18) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x2181f…2182e 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x2182e…2184e (42, 0, 19) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x2186e…2187d 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x2187d…2189d (42, 0, 20) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x218bd…218cc 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x218cc…218ec (42, 0, 21) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x2190c…2191b 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x2191b…2193b (42, 0, 22) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x2195b…2196a 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x2196a…2198a (42, 0, 23) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x219aa…219b9 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x219b9…219d9 (42, 0, 24) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x219f9…21a08 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x21a08…21a28 (42, 0, 25) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x21a48…21a57 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x21a57…21a77 (42, 0, 26) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x21a97…21aa6 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x21aa6…21ac6 (42, 0, 27) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x21ae6…21af5 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x21af5…21b15 (42, 0, 28) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x21b35…21b44 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x21b44…21b64 (42, 0, 29) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x21b84…21b93 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x21b93…21bb3 (42, 0, 30) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x21bd3…21be2 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x21be2…21c02 (42, 0, 31) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x21c22…21c31 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x21c31…21c51 (42, 0, 32) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x21c71…21c80 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x21c80…21ca0 (42, 0, 33) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x21cc0…21ccf 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x21ccf…21cef (42, 0, 34) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x21d0f…21d1e 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x21d1e…21d3e (42, 0, 35) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x21d5e…21d6d 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x21d6d…21d8d (42, 0, 36) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x21dad…21dbc 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x21dbc…21ddc (42, 0, 37) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x21dfc…21e0b 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x21e0b…21e2b (42, 0, 38) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x21e4b…21e5a 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x21e5a…21e7a (42, 0, 39) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x21e9a…21ea9 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆ 0x21ea9…21ec9 (42, 0, 40) 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 5f ┆_UNREAD__UNREAD__UNREAD__UNREAD_┆ […0x1…] 0x21ee9…21ef8 5f 55 4e 52 45 41 44 5f 5f 55 4e 52 45 41 44 ┆_UNREAD__UNREAD┆