|
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 B D E F H I J L M P Q R S V q r
Length: 247295 (0x3c5ff)
Description: Bits:30008695 DDMQ1-0135_DUBBEL
Types: 8" Floppy Disk
| flag | nrec | reclen | rec_trk | t0 | tn | name | artifact |
|---|---|---|---|---|---|---|---|
| 0 | 5 | 255 | 15 | 8 | 11 | * | ⟦70f96b48f⟧ Q1_HexDump, reclen=255, q1file |
| 0 | 117 | 29 | 77 | 45 | 47 | BKONTO | ⟦f833b17ae⟧ Q1_Text, reclen=29, q1file |
| 0 | 29 | 79 | 41 | 42 | 44 | BOKK | ⟦5a787e1e9⟧ Q1_Text, reclen=79, q1file |
| 0 | 9 | 255 | 15 | 1 | 1 | DISK | ⟦98fb93e76⟧ Q1_HexDump, reclen=255, q1file |
| 0 | 48 | 79 | 41 | 48 | 49 | DUBBEL | ⟦def197a31⟧ Q1_Text, reclen=79, q1file |
| 0 | 5 | 255 | 15 | 2 | 2 | EDIT | ⟦5799046db⟧ Q1_HexDump, reclen=255, q1file |
| 0 | 14 | 71 | 44 | 50 | 74 | FAKFILE | ⟦be17bd4ca⟧ Q1_HexDump, reclen=71, q1file |
| 0 | 36 | 79 | 41 | 30 | 31 | FELLISTA | ⟦7fc764787⟧ Q1_Text, reclen=79, q1file |
| 0 | 75 | 79 | 41 | 39 | 41 | HUVBOK | ⟦ea7298f74⟧ Q1_Text, reclen=79, q1file |
| 0 | 22 | 40 | 50 | 0 | 0 | INDEX | ⟦7192e9f15⟧ Q1_HexDump, reclen=40, q1file |
| 0 | 1 | 255 | 15 | 22 | 22 | JOIN | ⟦d701aa010⟧ Q1_HexDump, reclen=255, q1file |
| 0 | 5 | 255 | 15 | 12 | 12 | LINK | ⟦7d6316fa0⟧ Q1_HexDump, reclen=255, q1file |
| 0 | 20 | 40 | 64 | 18 | 20 | MFILE | ⟦f26949d57⟧ Q1_Text, reclen=40, 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 | 56 | 79 | 41 | 37 | 38 | REVISION | ⟦9afb35ff7⟧ Q1_Text, reclen=79, q1file |
| 0 | 55 | 248 | 15 | 32 | 36 | SALREG | ⟦68a911ed6⟧ Q1_HexDump, reclen=248, q1file |
| 0 | 5 | 255 | 15 | 21 | 21 | SORT | ⟦f9b8e39b1⟧ Q1_HexDump, reclen=255, q1file |
| 0 | 96 | 79 | 41 | 23 | 26 | VERI | ⟦89f3abbb3⟧ Q1_Text, reclen=79, q1file |
| 0 | 54 | 79 | 41 | 27 | 29 | VERLIST | ⟦1725748fe⟧ Q1_Text, reclen=79, q1file |
0x00000…00028 (0, 0, 0) Catalog {f0=0x0000, name=»INDEX «, nrec=0x0016, 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=0x0005, 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=0x0014}
0x00190…001b8 (0, 0, 10) Catalog {f0=0x0000, name=»SORT «, nrec=0x0005, reclen=0x00ff, rectrack=0x000f, track0=0x0015, trackn=0x0015}
0x001b8…001e0 (0, 0, 11) Catalog {f0=0x0000, name=»JOIN «, nrec=0x0001, reclen=0x00ff, rectrack=0x000f, track0=0x0016, trackn=0x0016}
0x001e0…00208 (0, 0, 12) Catalog {f0=0x0000, name=»VERI «, nrec=0x0060, reclen=0x004f, rectrack=0x0029, track0=0x0017, trackn=0x001a}
0x00208…00230 (0, 0, 13) Catalog {f0=0x0000, name=»VERLIST «, nrec=0x0036, reclen=0x004f, rectrack=0x0029, track0=0x001b, trackn=0x001d}
0x00230…00258 (0, 0, 14) Catalog {f0=0x0000, name=»FELLISTA«, nrec=0x0024, reclen=0x004f, rectrack=0x0029, track0=0x001e, trackn=0x001f}
0x00258…00280 (0, 0, 15) Catalog {f0=0x0000, name=»SALREG «, nrec=0x0037, reclen=0x00f8, rectrack=0x000f, track0=0x0020, trackn=0x0024}
0x00280…002a8 (0, 0, 16) Catalog {f0=0x0000, name=»REVISION«, nrec=0x0038, reclen=0x004f, rectrack=0x0029, track0=0x0025, trackn=0x0026}
0x002a8…002d0 (0, 0, 17) Catalog {f0=0x0000, name=»HUVBOK «, nrec=0x004b, reclen=0x004f, rectrack=0x0029, track0=0x0027, trackn=0x0029}
0x002d0…002f8 (0, 0, 18) Catalog {f0=0x0000, name=»BOKK «, nrec=0x001d, reclen=0x004f, rectrack=0x0029, track0=0x002a, trackn=0x002c}
0x002f8…00320 (0, 0, 19) Catalog {f0=0x0000, name=»BKONTO «, nrec=0x0075, reclen=0x001d, rectrack=0x004d, track0=0x002d, trackn=0x002f}
0x00320…00348 (0, 0, 20) Catalog {f0=0x0000, name=»DUBBEL «, nrec=0x0030, reclen=0x004f, rectrack=0x0029, track0=0x0030, trackn=0x0031}
0x00348…00370 (0, 0, 21) Catalog {f0=0x0000, name=»FAKFILE «, nrec=0x000e, reclen=0x0047, rectrack=0x002c, track0=0x0032, trackn=0x004a}
0x00370…00390 (0, 0, 22) 02 02 00 02 02 02 02 00 80 80 c0 80 80 80 80 00 80 80 80 80 80 80 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x00390…00398 00 00 00 00 00 00 00 00 ┆ ┆
0x00398…003b8 (0, 0, 23) 80 00 00 00 00 00 00 00 00 02 02 02 02 02 02 02 02 80 80 80 fb 80 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x003b8…003c0 00 00 00 00 00 00 00 00 ┆ ┆
0x003c0…003e0 (0, 0, 24) 80 80 00 80 80 40 00 80 00 00 00 00 00 00 00 00 00 00 00 02 02 02 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) 02 02 00 02 02 00 00 00 a0 00 a0 a0 a0 40 20 00 20 00 20 00 20 00 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) 00 00 00 00 00 00 00 02 02 02 02 02 02 02 02 00 20 20 ee 20 20 20 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) 20 20 00 20 20 20 20 20 00 00 00 04 04 04 04 04 04 02 06 06 06 06 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) 02 06 00 00 00 00 80 00 80 80 c0 00 00 00 40 00 00 00 00 04 04 04 00 00 00 00 00 00 00 00 00 00 ┆ @ ┆
0x00480…00488 00 00 00 00 00 00 00 00 ┆ ┆
0x00488…004a8 (0, 0, 29) 04 04 00 04 04 06 06 06 06 06 06 06 06 00 00 80 fd 00 00 00 00 00 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) 00 00 00 00 00 00 00 04 04 04 04 04 04 04 04 06 06 06 06 06 06 06 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) 06 00 00 00 00 00 00 00 c0 00 00 00 00 00 00 00 00 04 04 04 04 04 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) 04 04 00 06 06 06 06 06 06 06 06 00 00 00 ff 00 00 00 00 00 00 00 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) 00 00 00 00 00 90 10 90 10 10 10 10 10 12 12 12 02 12 12 12 12 00 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) 80 00 00 80 80 80 80 00 00 00 80 80 80 80 80 10 10 10 10 10 10 10 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) 10 02 00 02 02 02 02 12 12 00 80 80 f4 80 80 80 80 00 00 80 00 00 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) 00 00 00 04 04 04 04 04 04 04 04 06 06 02 06 06 06 06 06 00 00 00 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) 80 00 00 80 80 00 00 00 00 00 00 00 40 04 04 04 04 04 04 04 04 06 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) 06 06 00 06 06 06 06 40 80 80 bf 00 00 00 00 00 00 00 00 00 00 00 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) 00 04 00 04 04 04 04 04 04 06 06 06 06 06 06 06 06 00 00 00 00 00 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) 00 00 00 00 00 00 40 00 40 00 40 04 04 04 04 04 04 00 04 06 06 06 00 00 00 00 00 00 00 00 00 00 ┆ @ @ @ ┆
0x00660…00668 00 00 00 00 00 00 00 00 ┆ ┆
0x00668…00688 (0, 0, 41) 06 06 00 06 06 00 00 00 ff 00 00 00 00 00 40 00 40 00 40 00 40 04 00 00 00 00 00 00 00 00 00 00 ┆ @ @ @ @ ┆
0x00688…00690 00 00 00 00 00 00 00 00 ┆ ┆
0x00690…006b0 (0, 0, 42) 04 04 00 04 14 14 04 06 06 06 06 06 06 06 06 00 00 00 80 00 80 80 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) 80 00 00 00 00 00 80 00 00 04 04 04 04 04 04 04 04 06 06 06 06 06 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) 06 06 00 00 80 00 fe 00 00 00 00 00 00 00 00 00 00 00 00 84 04 84 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) 84 84 00 94 84 06 06 06 06 06 06 06 06 00 80 80 80 80 80 80 80 00 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) 80 00 00 80 c0 80 c0 84 04 84 04 84 04 04 04 06 06 06 06 06 06 06 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) 06 00 00 80 fe c0 80 80 80 c0 40 00 40 00 00 00 40 82 00 00 00 02 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) 00 00 00 02 02 02 02 02 02 02 02 00 80 80 80 80 80 80 80 00 00 00 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) 80 80 00 80 80 80 00 00 00 00 00 00 00 02 02 02 02 02 02 02 02 00 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]
[…0x4…]
0x07562…07582 (8, 0, 5) 0b a1 47 1e 45 22 32 0c 29 45 2e 44 b3 01 06 44 b9 01 06 0d 0b 04 06 45 2e 01 06 44 ab 00 19 17 ┆ G E"2 )E.D D E. D ┆
0x07582…075a2 08 05 0b c1 47 0e 1d 15 00 2a 45 2e 01 06 1a 44 f7 32 0c 29 0b bf 47 02 47 cf 0b cf 47 3a 44 a5 ┆ G *E. D 2 ) G G G:D ┆
0x075a2…075c2 44 a5 01 06 44 b3 01 06 0b 04 06 44 ad 44 ad 01 06 44 b9 01 06 0b 04 06 44 b3 44 ab 00 19 17 04 ┆D D D D D D D ┆
0x075c2…075e2 06 44 b9 44 ab 00 19 17 04 06 44 cb 44 cb 01 06 45 34 00 19 17 0b 04 06 0a 36 45 02 09 48 0b 09 ┆ D D D D E4 6E H ┆
0x075e2…07602 48 26 44 c9 32 02 43 06 32 01 0c 0a 44 d1 00 0a 44 a3 00 06 44 c1 44 c7 00 19 17 04 06 44 cb 01 ┆H&D 2 C 2 D D D D D ┆
0x07602…07622 06 45 03 00 19 17 08 02 0b 31 48 05 1d 45 38 00 1c 0b 2f 48 02 48 36 0b 36 48 04 44 d5 00 1c 0a ┆ E 1H E8 /H H6 6H D ┆
0x07622…07642 38 45 02 3a 48 0b 3a 48 35 15 00 2a 32 0d 45 3a 00 2a 43 34 32 32 44 97 00 28 15 00 2a 43 66 32 ┆8E :H :H5 *2 E: *C422D ( *Cf2┆
0x07642…07661 32 26 15 00 2a 32 0d 44 a3 00 2a 43 98 32 32 26 43 ca 32 1e 26 44 c1 01 06 44 c7 00 19 17 00 ┆2& *2 D *C 22&C 2 &D D ┆
0x07661…07681 (8, 0, 6) 0b 6f 48 02 08 05 0b 73 48 0e 1d 15 00 2a 32 0d 32 01 2a 44 e9 32 0c 26 0b 71 48 02 48 81 0b 81 ┆ oH sH *2 2 *D 2 & qH H ┆
0x07681…076a1 48 0d 44 cb 44 d1 00 19 17 04 06 44 d3 00 1c 0a 3c 45 02 8e 48 0b 8e 48 47 45 3e 44 a5 01 06 44 ┆H D D D <E H HGE>D D┆
0x076a1…076c1 ad 01 06 0d 0b 04 06 15 00 2a 32 0d 44 a3 00 2a 45 44 32 09 26 15 00 2a 44 a5 01 06 32 20 45 4d ┆ *2 D *ED2 & *D 2 EM┆
0x076c1…076e1 00 2a 1a 45 4f 32 0a 29 44 ad 01 06 1a 45 22 32 0c 29 15 00 2a 45 3e 01 06 1a 45 59 32 0e 29 1b ┆ * EO2 )D E"2 ) *E> EY2 ) ┆
0x076e1…07701 0b fe 40 02 67 45 0b 81 40 02 09 18 00 d1 00 0a 44 a3 00 06 44 c1 44 c7 00 19 17 04 06 44 cb 01 ┆ @ gE @ D D D D ┆
0x07701…07721 06 45 03 00 19 17 08 02 0b 31 48 05 1d 45 38 00 1c 0b 2f 48 02 48 36 0b 36 48 04 44 d5 00 1c 0a ┆ E 1H E8 /H H6 6H D ┆
0x07721…07741 38 45 02 3a 48 0b 3a 48 35 15 00 2a 32 0d 45 3a 00 2a 43 34 32 32 44 97 00 28 15 00 2a 43 66 32 ┆8E :H :H5 *2 E: *C422D ( *Cf2┆
0x07741…07760 32 26 15 00 2a 32 0d 44 a3 00 2a 43 98 32 32 26 43 ca 32 1e 26 44 c1 01 06 44 c7 00 19 17 00 ┆2& *2 D *C 22&C 2 &D D ┆
0x07760…0785f (8, 0, 7) 0x00[0xff]
[…0x34…]
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]
[…0xab…]
0x123d1…124d0 (21, 0, 0) DataSector[0xff]
[…0x4…]
0x128cc…128ec (21, 0, 5) 41 52 28 35 30 29 49 4e 49 54 49 41 4c 28 27 20 44 41 54 55 4d 20 20 20 20 56 45 52 2e 4e 52 20 ┆AR(50)INITIAL(' DATUM VER.NR ┆
0x128ec…1290c 20 20 20 54 45 58 54 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 ┆ TEXT'); ┆
0x1290c…1292c 20 20 20 20 44 43 4c 20 52 55 42 34 20 43 48 41 52 28 35 35 29 49 4e 49 54 28 27 4b 4f 4e 54 4f ┆ DCL RUB4 CHAR(55)INIT('KONTO┆
0x1292c…1294c 20 20 20 4b 4f 44 20 20 20 20 20 20 20 20 44 45 42 45 54 20 20 20 20 20 20 20 20 20 4b 52 45 44 ┆ KOD DEBET KRED┆
0x1294c…1296c 49 54 20 20 20 20 20 44 49 46 46 45 52 45 4e 53 27 29 3b 44 43 4c 20 42 20 43 48 41 52 28 31 29 ┆IT DIFFERENS');DCL B CHAR(1)┆
0x1296c…1298c 3b 20 44 43 4c 20 59 20 43 48 41 52 28 31 29 49 4e 49 54 28 27 20 27 29 3b 20 20 20 20 20 20 20 ┆; DCL Y CHAR(1)INIT(' '); ┆
0x1298c…129ac 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x129ac…129cb 20 20 50 55 54 20 53 4b 49 50 28 32 29 20 45 44 49 54 28 52 55 42 31 29 20 28 41 28 33 35 29 ┆ PUT SKIP(2) EDIT(RUB1) (A(35)┆
0x129cb…129eb (21, 0, 6) 29 28 52 55 42 31 41 29 28 41 28 31 35 29 29 20 28 52 55 42 32 29 20 28 41 28 35 30 29 29 3b 20 ┆)(RUB1A)(A(15)) (RUB2) (A(50)); ┆
0x129eb…12a0b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 4c 49 53 54 28 27 20 20 20 20 ┆ PUT LIST(' ┆
0x12a0b…12a2b 20 44 41 54 55 4d 20 27 29 3b 50 55 54 20 45 44 49 54 28 44 41 54 29 28 41 28 31 32 29 29 3b 50 ┆ DATUM ');PUT EDIT(DAT)(A(12));P┆
0x12a2b…12a4b 55 54 20 4c 49 53 54 28 27 20 53 49 44 41 20 31 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆UT LIST(' SIDA 1'); ┆
0x12a4b…12a6b 20 59 59 20 3d 20 31 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 ┆ YY = 1; PUT SKIP┆
0x12a6b…12a8b 28 32 29 45 44 49 54 28 52 55 42 33 29 28 41 28 35 30 29 29 28 52 55 42 34 29 28 41 28 35 35 29 ┆(2)EDIT(RUB3)(A(50))(RUB4)(A(55)┆
0x12a8b…12aab 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4f 50 45 4e 20 56 45 52 49 46 49 4c 45 3b 20 44 ┆); OPEN VERIFILE; D┆
0x12aab…12aca 43 4c 20 58 20 43 48 41 52 28 31 29 3b 20 20 20 44 43 4c 20 4b 4f 4e 54 4f 20 43 48 41 52 28 ┆CL X CHAR(1); DCL KONTO CHAR(┆
0x12aca…12aea (21, 0, 7) 34 29 3b 20 20 20 20 20 44 43 4c 20 56 52 4e 52 20 43 48 41 52 28 36 29 3b 20 20 20 20 20 20 20 ┆4); DCL VRNR CHAR(6); ┆
0x12aea…12b0a 44 43 4c 20 42 31 20 43 48 41 52 28 31 32 29 49 4e 49 54 28 27 20 20 20 20 20 20 20 20 20 20 20 ┆DCL B1 CHAR(12)INIT(' ┆
0x12b0a…12b2a 20 27 29 2c 20 42 4c 20 43 48 41 52 28 31 32 29 49 4e 49 54 28 27 20 20 20 20 20 20 20 20 20 20 ┆ '), BL CHAR(12)INIT(' ┆
0x12b2a…12b4a 20 20 27 29 3b 20 20 20 20 20 20 20 20 20 20 58 20 3d 20 27 31 27 3b 20 53 55 4d 31 20 3d 20 30 ┆ '); X = '1'; SUM1 = 0┆
0x12b4a…12b6a 3b 53 55 4d 32 20 3d 20 30 3b 20 53 31 20 3d 20 30 3b 20 53 32 20 3d 20 30 3b 20 20 44 43 4c 20 ┆;SUM2 = 0; S1 = 0; S2 = 0; DCL ┆
0x12b6a…12b8a 56 56 20 43 48 41 52 28 36 29 49 4e 49 54 28 27 20 20 20 20 20 20 27 29 3b 20 20 20 20 20 4e 59 ┆VV CHAR(6)INIT(' '); NY┆
0x12b8a…12baa 54 54 3a 42 3d 27 20 27 3b 20 20 20 49 46 28 53 55 4d 31 20 7f 3d 20 53 55 4d 32 29 20 54 48 45 ┆TT:B=' '; IF(SUM1 = SUM2) THE┆
0x12baa…12bc9 4e 20 44 4f 3b 20 53 20 3d 20 53 55 4d 31 20 2d 20 53 55 4d 32 3b 20 20 56 45 4e 52 20 3d 20 ┆N DO; S = SUM1 - SUM2; VENR = ┆
0x12bc9…12be9 (21, 0, 8) 56 56 3b 20 20 20 20 20 20 20 20 20 20 20 43 41 4c 4c 20 4f 55 54 50 55 54 28 31 2c 36 29 3b 20 ┆VV; CALL OUTPUT(1,6); ┆
0x12be9…12c09 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x12c09…12c29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 ┆ PUT┆
0x12c29…12c49 20 46 49 4c 45 28 44 49 53 50 29 20 53 4b 49 50 20 4c 49 53 54 28 20 53 2c 27 20 44 45 54 54 41 ┆ FILE(DISP) SKIP LIST( S,' DETTA┆
0x12c49…12c69 20 5b 52 20 46 45 4c 2c 20 53 4b 52 49 56 20 22 58 22 20 27 29 3b 20 47 45 54 20 4c 49 53 54 28 ┆ ÄR FEL, SKRIV "X" '); GET LIST(┆
0x12c69…12c89 58 29 3b 45 4e 44 3b 20 20 20 20 20 49 46 28 58 20 3d 20 27 32 27 29 20 54 48 45 4e 20 47 4f 20 ┆X);END; IF(X = '2') THEN GO ┆
0x12c89…12ca9 54 4f 20 53 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 ┆TO ST; ┆
0x12ca9…12cc8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 28 58 ┆ IF(X┆
0x12cc8…12ce8 (21, 0, 9) 20 3d 20 27 31 27 29 20 54 48 45 4e 20 47 4f 20 54 4f 20 4e 59 3b 20 20 20 20 20 20 20 20 20 20 ┆ = '1') THEN GO TO NY; ┆
0x12ce8…12d08 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x12d08…12d28 20 20 20 20 20 20 20 20 20 20 20 49 46 28 58 20 7f 3d 20 27 58 27 29 20 54 48 45 4e 20 50 55 54 ┆ IF(X = 'X') THEN PUT┆
0x12d28…12d48 20 53 4b 49 50 20 45 44 49 54 28 53 29 28 58 28 38 32 29 2c 50 27 2d 2d 2d 2d 2d 2d 39 56 2e 39 ┆ SKIP EDIT(S)(X(82),P'------9V.9┆
0x12d48…12d68 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 49 46 28 58 20 3d ┆9'); IF(X =┆
0x12d68…12d88 20 27 58 27 29 20 54 48 45 4e 20 47 4f 20 54 4f 20 53 54 41 52 54 3b 20 20 53 55 4d 31 20 3d 20 ┆ 'X') THEN GO TO START; SUM1 = ┆
0x12d88…12da8 30 3b 20 53 55 4d 32 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 ┆0; SUM2 = 0; ┆
0x12da8…12dc7 20 20 20 20 20 20 20 20 20 4e 59 3a 20 20 20 20 50 55 54 20 46 49 4c 45 28 44 49 53 50 29 20 ┆ NY: PUT FILE(DISP) ┆
0x12dc7…12de7 (21, 0, 10) 53 4b 49 50 20 4c 49 53 54 28 27 41 4e 47 45 20 44 41 54 55 4d 20 27 29 3b 20 20 20 47 45 54 20 ┆SKIP LIST('ANGE DATUM '); GET ┆
0x12de7…12e07 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 50 55 54 20 46 ┆LIST(DATUM); PUT F┆
0x12e07…12e27 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 56 45 52 49 46 49 ┆ILE(DISP) SKIP LIST('ANGE VERIFI┆
0x12e27…12e47 4b 41 54 49 4f 4e 53 4e 55 4d 4d 45 52 20 27 29 3b 20 20 47 45 54 20 4c 49 53 54 28 56 45 4e 52 ┆KATIONSNUMMER '); GET LIST(VENR┆
0x12e47…12e67 29 3b 20 20 20 20 20 20 49 46 28 59 59 20 3d 20 31 29 20 54 48 45 4e 20 56 45 52 41 20 3d 20 56 ┆); IF(YY = 1) THEN VERA = V┆
0x12e67…12e87 45 4e 52 3b 20 59 59 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 ┆ENR; YY = 0; ┆
0x12e87…12ea7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 54 3a 50 55 54 20 46 49 ┆ ST:PUT FI┆
0x12ea7…12ec6 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 54 45 58 54 20 28 ┆LE(DISP) SKIP LIST('ANGE TEXT (┆
0x12ec6…12ee6 (21, 0, 11) 48 5c 47 53 54 20 32 30 20 54 45 43 4b 45 4e 29 20 27 29 3b 20 47 45 54 20 4c 49 53 54 28 56 54 ┆HÖGST 20 TECKEN) '); GET LIST(VT┆
0x12ee6…12f06 45 58 54 29 3b 20 20 53 55 4d 31 20 3d 20 30 3b 20 53 55 4d 32 20 3d 20 30 3b 20 20 20 20 20 20 ┆EXT); SUM1 = 0; SUM2 = 0; ┆
0x12f06…12f26 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x12f26…12f46 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 54 41 52 54 3a 20 20 20 20 ┆ START: ┆
0x12f46…12f66 4b 52 45 44 49 54 20 3d 20 27 20 20 20 20 27 3b 44 45 42 45 54 20 3d 20 27 20 20 20 20 27 3b 20 ┆KREDIT = ' ';DEBET = ' '; ┆
0x12f66…12f86 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x12f86…12fa6 20 20 20 20 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 ┆ PUT FILE(DISP) SKIP LIST('A┆
0x12fa6…12fc5 4e 47 45 20 4b 4f 4e 54 4f 20 27 29 3b 20 20 47 45 54 20 4c 49 53 54 28 4b 4f 4e 54 4f 29 3b ┆NGE KONTO '); GET LIST(KONTO);┆
0x12fc5…12fe5 (21, 0, 12) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 28 44 49 ┆ PUT FILE(DI┆
0x12fe5…13005 53 50 29 20 53 4b 49 50 20 4c 49 53 54 28 27 41 4e 47 45 20 42 45 4c 4f 50 50 20 54 52 59 43 4b ┆SP) SKIP LIST('ANGE BELOPP TRYCK┆
0x13005…13025 20 4b 37 20 46 5c 52 20 44 45 42 45 54 2c 20 4b 36 20 46 5c 52 20 4b 52 45 44 49 54 20 27 29 3b ┆ K7 FÖR DEBET, K6 FÖR KREDIT ');┆
0x13025…13045 20 20 20 20 42 42 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 ┆ BB = 0; ┆
0x13045…13065 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
[…0x1…]
0x13085…130a5 20 20 20 20 20 20 20 20 20 20 20 20 00 00 14 73 51 79 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ sQy ┆
0x130a5…130c4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 03 ┆ ┆
0x130c4…130e4 (21, 0, 13) 00 00 4d 46 49 4c 45 20 20 20 59 4f 55 52 20 46 49 4c 45 20 49 00 00 00 00 00 00 59 00 00 2a 20 ┆ MFILE YOUR FILE I Y * ┆
0x130e4…13104 20 20 20 20 20 20 07 00 ff 00 0f 00 08 00 0b 00 00 00 06 00 da 40 7c b5 ca 00 00 00 00 00 00 00 ┆ @ö ┆
0x13104…13124 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x1…]
0x13144…13164 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 20 20 20 ┆ ┆
0x13164…13184 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x13184…131a4 20 20 20 20 20 00 00 14 73 51 79 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ sQy ┆
0x131a4…131c3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 03 00 00 4d 46 49 4c 45 ┆ MFILE┆
0x131c3…131e3 (21, 0, 14) 20 20 20 59 4f 55 52 20 46 49 4c 45 20 49 00 00 00 00 00 00 59 00 00 2a 20 20 20 20 20 20 20 07 ┆ YOUR FILE I Y * ┆
0x131e3…13203 00 ff 00 0f 00 08 00 0b 00 00 00 06 00 da 40 7c b5 ca 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ @ö ┆
0x13203…13223 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x1…]
0x13243…13263 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 39 39 39 39 39 b9 01 45 ┆ 99999 E┆
0x13263…13283 08 44 04 00 c6 58 27 44 41 54 55 4d a7 03 45 0c 44 05 00 fb 58 27 42 45 4c 4f 50 50 2c 4f 4d 20 ┆ D X'DATUM E D X'BELOPP,OM ┆
0x13283…132a3 44 45 42 45 54 3d 4b 37 2c 20 4f 4d 20 4b 52 45 44 49 54 3d 4b 36 a7 03 45 11 44 20 00 68 56 4b ┆DEBET=K7, OM KREDIT=K6 E D hVK┆
0x132a3…132c2 45 59 46 55 ce d6 ff 31 00 02 00 0c 56 c9 00 45 31 44 02 00 56 59 31 33 b8 00 45 33 44 02 00 ┆EYFU 1 V E1D VY13 E3D ┆
0x132c2…133c1 (22, 0, 0) DataSector[0xff]
0x133c1…133e1 (22, 0, 1) 34 29 49 4e 49 54 49 41 4c 28 27 20 20 20 20 27 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆4)INITIAL(' '), ┆
0x133e1…13401 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x13401…13421 20 20 32 20 44 45 42 45 54 20 43 48 41 52 28 34 29 20 49 4e 49 54 49 41 4c 28 27 20 20 20 20 27 ┆ 2 DEBET CHAR(4) INITIAL(' '┆
0x13421…13441 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 20 ┆), ┆
0x13441…13461 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 20 4b 52 45 44 49 54 20 43 48 41 52 28 34 29 ┆ 2 KREDIT CHAR(4)┆
0x13461…13481 20 49 4e 49 54 49 41 4c 28 27 20 20 20 20 27 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ INITIAL(' '), ┆
0x13481…134a1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 ┆ 2┆
0x134a1…134c0 20 42 45 4c 4f 50 50 20 46 49 58 45 44 28 31 31 2c 32 29 2c 20 20 20 20 20 20 20 20 20 20 20 ┆ BELOPP FIXED(11,2), ┆
0x134c0…134e0 (22, 0, 2) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x134e0…13500 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 20 56 54 45 58 54 20 43 48 41 52 28 32 30 29 2c ┆ 2 VTEXT CHAR(20),┆
0x13500…13520 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x13520…13540 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 20 ┆ 2 ┆
0x13540…13560 4b 4f 44 20 43 48 41 52 28 32 29 49 4e 49 54 49 41 4c 28 27 20 20 27 29 3b 20 20 20 20 20 20 20 ┆KOD CHAR(2)INITIAL(' '); ┆
0x13560…13580 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x13580…135a0 20 20 20 20 20 20 20 20 20 44 43 4c 20 43 41 54 4c 20 43 48 41 52 28 36 29 3b 20 20 20 20 20 20 ┆ DCL CATL CHAR(6); ┆
0x135a0…135bf 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x135bf…135df (22, 0, 3) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 43 4c 20 56 45 52 ┆ DCL VER┆
0x135df…135ff 49 46 49 4c 45 20 46 49 4c 45 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆IFILE FILE; ┆
0x135ff…1361f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1361f…1363f 20 20 20 20 20 20 20 20 44 43 4c 20 52 55 42 31 20 43 48 41 52 28 35 30 29 49 4e 49 54 49 41 4c ┆ DCL RUB1 CHAR(50)INITIAL┆
0x1363f…1365f 28 27 4d 20 20 53 20 54 20 45 20 4e 20 48 20 41 20 52 20 44 20 54 20 20 41 20 42 27 29 3b 20 20 ┆('M S T E N H A R D T A B'); ┆
0x1365f…1367f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 43 4c 20 52 55 42 31 41 ┆ DCL RUB1A┆
0x1367f…1369f 20 43 48 41 52 28 32 30 29 20 49 4e 49 54 28 27 50 52 4f 47 52 3a 20 41 31 30 30 27 29 3b 20 20 ┆ CHAR(20) INIT('PROGR: A100'); ┆
0x1369f…136be 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x136be…136de (22, 0, 4) 20 20 20 20 20 20 20 44 43 4c 20 44 41 54 20 43 48 41 52 28 38 29 3b 20 20 20 20 20 20 20 20 20 ┆ DCL DAT CHAR(8); ┆
0x136de…136fe 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x136fe…1371e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 28 44 ┆ PUT FILE(D┆
0x1371e…1373e 49 53 50 29 53 4b 49 50 20 4c 49 53 54 28 27 41 4e 47 45 20 44 41 47 45 4e 53 20 44 41 54 55 4d ┆ISP)SKIP LIST('ANGE DAGENS DATUM┆
0x1373e…1375e 20 28 5d 5d 2e 4d 4d 2e 44 44 2e 29 20 27 29 3b 20 47 45 54 20 4c 49 53 54 28 44 41 54 29 3b 20 ┆ (ÅÅ.MM.DD.) '); GET LIST(DAT); ┆
0x1375e…1377e 20 20 20 20 20 44 43 4c 20 52 55 42 32 20 43 48 41 52 28 35 32 29 49 4e 49 54 49 41 4c 28 27 54 ┆ DCL RUB2 CHAR(52)INITIAL('T┆
0x1377e…1379e 20 52 20 41 20 4e 20 53 20 41 20 4b 20 54 20 49 20 4f 20 4e 20 53 20 52 20 45 20 47 20 49 20 53 ┆ R A N S A K T I O N S R E G I S┆
0x1379e…137bd 20 54 20 52 20 45 20 52 20 49 20 4e 20 47 27 29 3b 20 20 20 44 43 4c 20 52 55 42 33 20 43 48 ┆ T R E R I N G'); DCL RUB3 CH┆
0x137bd…137dd (22, 0, 5) 41 52 28 35 30 29 49 4e 49 54 49 41 4c 28 27 20 44 41 54 55 4d 20 20 20 20 56 45 52 2e 4e 52 20 ┆AR(50)INITIAL(' DATUM VER.NR ┆
0x137dd…137fd 20 20 20 54 45 58 54 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 ┆ TEXT'); ┆
0x137fd…1381d 20 20 20 20 44 43 4c 20 52 55 42 34 20 43 48 41 52 28 35 35 29 49 4e 49 54 28 27 4b 4f 4e 54 4f ┆ DCL RUB4 CHAR(55)INIT('KONTO┆
0x1381d…1383d 20 20 20 4b 4f 44 20 20 20 20 20 20 20 20 44 45 42 45 54 20 20 20 20 20 20 20 20 20 4b 52 45 44 ┆ KOD DEBET KRED┆
0x1383d…1385d 49 54 20 20 20 20 20 44 49 46 46 45 52 45 4e 53 27 29 3b 44 43 4c 20 42 20 43 48 41 52 28 31 29 ┆IT DIFFERENS');DCL B CHAR(1)┆
0x1385d…1387d 3b 20 44 43 4c 20 59 20 43 48 41 52 28 31 29 49 4e 49 54 28 27 20 27 29 3b 20 20 20 20 20 20 20 ┆; DCL Y CHAR(1)INIT(' '); ┆
0x1387d…1389d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1389d…138bc 20 20 50 55 54 20 53 4b 49 50 28 32 29 20 45 44 49 54 28 52 55 42 31 29 20 28 41 28 33 35 29 ┆ PUT SKIP(2) EDIT(RUB1) (A(35)┆
0x138bc…138dc (22, 0, 6) 29 28 52 55 42 31 41 29 28 41 28 31 35 29 29 20 28 52 55 42 32 29 20 28 41 28 35 30 29 29 3b 20 ┆)(RUB1A)(A(15)) (RUB2) (A(50)); ┆
0x138dc…138fc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 4c 49 53 54 28 27 20 20 20 20 ┆ PUT LIST(' ┆
0x138fc…1391c 20 44 41 54 55 4d 20 27 29 3b 50 55 54 20 45 44 49 54 28 44 41 54 29 28 41 28 31 32 29 29 3b 50 ┆ DATUM ');PUT EDIT(DAT)(A(12));P┆
0x1391c…1393c 55 54 20 4c 49 53 54 28 27 20 53 49 44 41 20 31 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆UT LIST(' SIDA 1'); ┆
0x1393c…1395c 20 59 59 20 3d 20 31 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 ┆ YY = 1; PUT SKIP┆
0x1395c…1397c 28 32 29 45 44 49 54 28 52 55 42 33 29 28 41 28 35 30 29 29 28 52 55 42 34 29 28 41 28 35 35 29 ┆(2)EDIT(RUB3)(A(50))(RUB4)(A(55)┆
0x1397c…1399c 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4f 50 45 4e 20 56 45 52 49 46 49 4c 45 3b 20 44 ┆); OPEN VERIFILE; D┆
0x1399c…139bb 43 4c 20 58 20 43 48 41 52 28 31 29 3b 20 20 20 44 43 4c 20 4b 4f 4e 54 4f 20 43 48 41 52 28 ┆CL X CHAR(1); DCL KONTO CHAR(┆
0x139bb…139db (22, 0, 7) 34 29 3b 20 20 20 20 20 44 43 4c 20 56 52 4e 52 20 43 48 41 52 28 36 29 3b 20 20 20 20 20 20 20 ┆4); DCL VRNR CHAR(6); ┆
0x139db…139fb 44 43 4c 20 42 31 20 43 48 41 52 28 31 32 29 49 4e 49 54 28 27 20 20 20 20 20 20 20 20 20 20 20 ┆DCL B1 CHAR(12)INIT(' ┆
0x139fb…13a1b 20 27 29 2c 20 42 4c 20 43 48 41 52 28 31 32 29 49 4e 49 54 28 27 20 20 20 20 20 20 20 20 20 20 ┆ '), BL CHAR(12)INIT(' ┆
0x13a1b…13a3b 20 20 27 29 3b 20 20 20 20 20 20 20 20 20 20 58 20 3d 20 27 31 27 3b 20 53 55 4d 31 20 3d 20 30 ┆ '); X = '1'; SUM1 = 0┆
0x13a3b…13a5b 3b 53 55 4d 32 20 3d 20 30 3b 20 53 31 20 3d 20 30 3b 20 53 32 20 3d 20 30 3b 20 20 44 43 4c 20 ┆;SUM2 = 0; S1 = 0; S2 = 0; DCL ┆
0x13a5b…13a7b 56 56 20 43 48 41 52 28 36 29 49 4e 49 54 28 27 20 20 20 20 20 20 27 29 3b 20 20 20 20 20 4e 59 ┆VV CHAR(6)INIT(' '); NY┆
0x13a7b…13a9b 54 54 3a 42 3d 27 20 27 3b 20 20 20 49 46 28 53 55 4d 31 20 7f 3d 20 53 55 4d 32 29 20 54 48 45 ┆TT:B=' '; IF(SUM1 = SUM2) THE┆
0x13a9b…13aba 4e 20 44 4f 3b 20 53 20 3d 20 53 55 4d 31 20 2d 20 53 55 4d 32 3b 20 20 56 45 4e 52 20 3d 20 ┆N DO; S = SUM1 - SUM2; VENR = ┆
0x13aba…13ada (22, 0, 8) 56 56 3b 20 20 20 20 20 20 20 20 20 20 20 43 41 4c 4c 20 4f 55 54 50 55 54 28 31 2c 36 29 3b 20 ┆VV; CALL OUTPUT(1,6); ┆
0x13ada…13afa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x13afa…13b1a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 ┆ PUT┆
0x13b1a…13b3a 20 46 49 4c 45 28 44 49 53 50 29 20 53 4b 49 50 20 4c 49 53 54 28 20 53 2c 27 20 44 45 54 54 41 ┆ FILE(DISP) SKIP LIST( S,' DETTA┆
0x13b3a…13b5a 20 5b 52 20 46 45 4c 2c 20 53 4b 52 49 56 20 22 58 22 20 27 29 3b 20 47 45 54 20 4c 49 53 54 28 ┆ ÄR FEL, SKRIV "X" '); GET LIST(┆
0x13b5a…13b7a 58 29 3b 45 4e 44 3b 20 20 20 20 20 49 46 28 58 20 3d 20 27 32 27 29 20 54 48 45 4e 20 47 4f 20 ┆X);END; IF(X = '2') THEN GO ┆
0x13b7a…13b9a 54 4f 20 53 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 ┆TO ST; ┆
0x13b9a…13bb9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 28 58 ┆ IF(X┆
0x13bb9…13bd9 (22, 0, 9) 20 3d 20 27 31 27 29 20 54 48 45 4e 20 47 4f 20 54 4f 20 4e 59 3b 20 20 20 20 20 20 20 20 20 20 ┆ = '1') THEN GO TO NY; ┆
0x13bd9…13bf9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x13bf9…13c19 20 20 20 20 20 20 20 20 20 20 20 49 46 28 58 20 7f 3d 20 27 58 27 29 20 54 48 45 4e 20 50 55 54 ┆ IF(X = 'X') THEN PUT┆
0x13c19…13c39 20 53 4b 49 50 20 45 44 49 54 28 53 29 28 58 28 38 32 29 2c 50 27 2d 2d 2d 2d 2d 2d 39 56 2e 39 ┆ SKIP EDIT(S)(X(82),P'------9V.9┆
0x13c39…13c59 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 49 46 28 58 20 3d ┆9'); IF(X =┆
0x13c59…13c79 20 27 58 27 29 20 54 48 45 4e 20 47 4f 20 54 4f 20 53 54 41 52 54 3b 20 20 53 55 4d 31 20 3d 20 ┆ 'X') THEN GO TO START; SUM1 = ┆
0x13c79…13c99 30 3b 20 53 55 4d 32 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 ┆0; SUM2 = 0; ┆
0x13c99…13cb8 20 20 20 20 20 20 20 20 20 4e 59 3a 20 20 20 20 50 55 54 20 46 49 4c 45 28 44 49 53 50 29 20 ┆ NY: PUT FILE(DISP) ┆
0x13cb8…13cd8 (22, 0, 10) 53 4b 49 50 20 4c 49 53 54 28 27 41 4e 47 45 20 44 41 54 55 4d 20 27 29 3b 20 20 20 47 45 54 20 ┆SKIP LIST('ANGE DATUM '); GET ┆
0x13cd8…13cf8 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 50 55 54 20 46 ┆LIST(DATUM); PUT F┆
0x13cf8…13d18 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 56 45 52 49 46 49 ┆ILE(DISP) SKIP LIST('ANGE VERIFI┆
0x13d18…13d38 4b 41 54 49 4f 4e 53 4e 55 4d 4d 45 52 20 27 29 3b 20 20 47 45 54 20 4c 49 53 54 28 56 45 4e 52 ┆KATIONSNUMMER '); GET LIST(VENR┆
0x13d38…13d58 29 3b 20 20 20 20 20 20 49 46 28 59 59 20 3d 20 31 29 20 54 48 45 4e 20 56 45 52 41 20 3d 20 56 ┆); IF(YY = 1) THEN VERA = V┆
0x13d58…13d78 45 4e 52 3b 20 59 59 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 ┆ENR; YY = 0; ┆
0x13d78…13d98 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 54 3a 50 55 54 20 46 49 ┆ ST:PUT FI┆
0x13d98…13db7 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 54 45 58 54 20 28 ┆LE(DISP) SKIP LIST('ANGE TEXT (┆
0x13db7…13dd7 (22, 0, 11) 48 5c 47 53 54 20 32 30 20 54 45 43 4b 45 4e 29 20 27 29 3b 20 47 45 54 20 4c 49 53 54 28 56 54 ┆HÖGST 20 TECKEN) '); GET LIST(VT┆
0x13dd7…13df7 45 58 54 29 3b 20 20 53 55 4d 31 20 3d 20 30 3b 20 53 55 4d 32 20 3d 20 30 3b 20 20 20 20 20 20 ┆EXT); SUM1 = 0; SUM2 = 0; ┆
0x13df7…13e17 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x13e17…13e37 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 54 41 52 54 3a 20 20 20 20 ┆ START: ┆
0x13e37…13e57 4b 52 45 44 49 54 20 3d 20 27 20 20 20 20 27 3b 44 45 42 45 54 20 3d 20 27 20 20 20 20 27 3b 20 ┆KREDIT = ' ';DEBET = ' '; ┆
0x13e57…13e77 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x13e77…13e97 20 20 20 20 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 ┆ PUT FILE(DISP) SKIP LIST('A┆
0x13e97…13eb6 4e 47 45 20 4b 4f 4e 54 4f 20 27 29 3b 20 20 47 45 54 20 4c 49 53 54 28 4b 4f 4e 54 4f 29 3b ┆NGE KONTO '); GET LIST(KONTO);┆
0x13eb6…13ed6 (22, 0, 12) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 28 44 49 ┆ PUT FILE(DI┆
0x13ed6…13ef6 53 50 29 20 53 4b 49 50 20 4c 49 53 54 28 27 41 4e 47 45 20 42 45 4c 4f 50 50 20 54 52 59 43 4b ┆SP) SKIP LIST('ANGE BELOPP TRYCK┆
0x13ef6…13f16 20 4b 37 20 46 5c 52 20 44 45 42 45 54 2c 20 4b 36 20 46 5c 52 20 4b 52 45 44 49 54 20 27 29 3b ┆ K7 FÖR DEBET, K6 FÖR KREDIT ');┆
0x13f16…13f36 20 20 20 20 42 42 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 ┆ BB = 0; ┆
0x13f36…13f56 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
[…0x1…]
0x13f76…13f96 20 20 20 20 20 20 20 20 20 20 20 20 00 00 14 73 51 79 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ sQy ┆
0x13f96…13fb5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 03 ┆ ┆
0x13fb5…13fd5 (22, 0, 13) 00 00 4d 46 49 4c 45 20 20 20 59 4f 55 52 20 46 49 4c 45 20 49 00 00 00 00 00 00 59 00 00 2a 20 ┆ MFILE YOUR FILE I Y * ┆
0x13fd5…13ff5 20 20 20 20 20 20 07 00 ff 00 0f 00 08 00 0b 00 00 00 06 00 da 40 7c b5 ca 00 00 00 00 00 00 00 ┆ @ö ┆
0x13ff5…14015 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x1…]
0x14035…14055 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 20 20 20 ┆ ┆
0x14055…14075 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x14075…14095 20 20 20 20 20 00 00 14 73 51 79 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ sQy ┆
0x14095…140b4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 03 00 00 4d 46 49 4c 45 ┆ MFILE┆
0x140b4…140d4 (22, 0, 14) 20 20 20 59 4f 55 52 20 46 49 4c 45 20 49 00 00 00 00 00 00 59 00 00 2a 20 20 20 20 20 20 20 07 ┆ YOUR FILE I Y * ┆
0x140d4…140f4 00 ff 00 0f 00 08 00 0b 00 00 00 06 00 da 40 7c b5 ca 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ @ö ┆
0x140f4…14114 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x1…]
0x14134…14154 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 39 39 39 39 39 b9 01 45 ┆ 99999 E┆
0x14154…14174 08 44 04 00 c6 58 27 44 41 54 55 4d a7 03 45 0c 44 05 00 fb 58 27 42 45 4c 4f 50 50 2c 4f 4d 20 ┆ D X'DATUM E D X'BELOPP,OM ┆
0x14174…14194 44 45 42 45 54 3d 4b 37 2c 20 4f 4d 20 4b 52 45 44 49 54 3d 4b 36 a7 03 45 11 44 20 00 68 56 4b ┆DEBET=K7, OM KREDIT=K6 E D hVK┆
0x14194…141b3 45 59 46 55 ce d6 ff 31 00 02 00 0c 56 c9 00 45 31 44 02 00 56 59 31 33 b8 00 45 33 44 02 00 ┆EYFU 1 V E1D VY13 E3D ┆
0x141b3…14202 (23, 0, 0) DataSector[0x4f]
[…0x5f…]
0x15f53…15f73 (25, 0, 14) 50 55 54 20 46 49 4c 45 28 44 49 53 50 29 53 4b 49 50 20 4c 49 53 54 28 27 41 4e 47 45 20 44 41 ┆PUT FILE(DISP)SKIP LIST('ANGE DA┆
0x15f73…15f93 47 45 4e 53 20 44 41 54 55 4d 20 28 5d 5d 2e 4d 4d 2e 44 44 2e 29 20 27 29 3b 20 47 45 54 20 4c ┆GENS DATUM (ÅÅ.MM.DD.) '); GET L┆
0x15f93…15fa2 49 53 54 28 44 41 54 29 3b 20 20 20 20 20 20 ┆IST(DAT); ┆
0x15fa2…15fc2 (25, 0, 15) 44 43 4c 20 4d 20 43 48 41 52 28 32 29 3b 20 20 20 50 55 54 20 46 49 4c 45 28 44 49 53 50 29 20 ┆DCL M CHAR(2); PUT FILE(DISP) ┆
0x15fc2…15fe2 53 4b 49 50 20 4c 49 53 54 28 27 41 4e 47 45 20 4d 5d 4e 41 44 20 27 29 3b 20 47 45 54 20 4c 49 ┆SKIP LIST('ANGE MÅNAD '); GET LI┆
0x15fe2…15ff1 53 54 28 4d 29 3b 20 20 20 20 20 20 20 20 20 ┆ST(M); ┆
0x15ff1…16011 (25, 0, 16) 44 43 4c 20 52 55 42 32 20 43 48 41 52 28 35 32 29 49 4e 49 54 49 41 4c 28 27 56 20 45 20 52 20 ┆DCL RUB2 CHAR(52)INITIAL('V E R ┆
0x16011…16031 49 20 46 20 49 20 4b 20 41 20 54 20 49 20 4f 20 4e 20 53 20 4c 20 49 20 53 20 54 20 41 20 20 20 ┆I F I K A T I O N S L I S T A ┆
0x16031…16040 20 20 20 20 20 20 4d 5d 4e 41 44 20 27 29 3b ┆ MÅNAD ');┆
0x16040…16060 (25, 0, 17) 44 43 4c 20 52 55 42 33 20 43 48 41 52 28 35 30 29 49 4e 49 54 49 41 4c 28 27 20 44 41 54 55 4d ┆DCL RUB3 CHAR(50)INITIAL(' DATUM┆
0x16060…16080 20 20 20 20 56 45 52 2e 4e 52 20 20 20 20 54 45 58 54 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 ┆ VER.NR TEXT'); ┆
0x16080…1608f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1608f…160af (25, 0, 18) 44 43 4c 20 52 55 42 34 20 43 48 41 52 28 35 35 29 49 4e 49 54 28 27 4b 4f 4e 54 4f 20 20 20 4b ┆DCL RUB4 CHAR(55)INIT('KONTO K┆
0x160af…160cf 4f 44 20 20 20 20 20 20 20 20 44 45 42 45 54 20 20 20 20 20 20 20 20 20 4b 52 45 44 49 54 20 20 ┆OD DEBET KREDIT ┆
0x160cf…160de 20 20 20 44 49 46 46 45 52 45 4e 53 27 29 3b ┆ DIFFERENS');┆
0x160de…160fe (25, 0, 19) 50 55 54 20 53 4b 49 50 28 33 29 20 45 44 49 54 28 52 55 42 31 29 20 28 41 28 33 35 29 29 28 52 ┆PUT SKIP(3) EDIT(RUB1) (A(35))(R┆
0x160fe…1611e 55 42 31 41 29 28 41 28 31 35 29 29 20 28 52 55 42 32 29 20 28 41 28 35 30 29 29 28 4d 29 20 28 ┆UB1A)(A(15)) (RUB2) (A(50))(M) (┆
0x1611e…1612d 41 28 34 29 29 3b 20 20 20 20 20 20 20 20 20 ┆A(4)); ┆
0x1612d…1614d (25, 0, 20) 50 55 54 20 4c 49 53 54 28 27 20 20 20 20 20 44 41 54 55 4d 20 27 29 3b 50 55 54 20 45 44 49 54 ┆PUT LIST(' DATUM ');PUT EDIT┆
0x1614d…1616d 28 44 41 54 29 28 41 28 31 32 29 29 3b 50 55 54 20 4c 49 53 54 28 27 20 53 49 44 41 20 31 27 29 ┆(DAT)(A(12));PUT LIST(' SIDA 1')┆
0x1616d…1617c 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆; ┆
0x1617c…1619c (25, 0, 21) 20 20 20 20 50 55 54 20 53 4b 49 50 28 32 29 45 44 49 54 28 52 55 42 33 29 28 41 28 35 30 29 29 ┆ PUT SKIP(2)EDIT(RUB3)(A(50))┆
0x1619c…161bc 28 52 55 42 34 29 28 41 28 35 35 29 29 3b 20 50 55 54 20 53 4b 49 50 20 4c 49 53 54 28 27 27 29 ┆(RUB4)(A(55)); PUT SKIP LIST('')┆
0x161bc…161cb 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆; ┆
0x161cb…161eb (25, 0, 22) 4f 50 45 4e 20 56 45 52 49 46 49 4c 45 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆OPEN VERIFILE; ┆
0x161eb…1620b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1620b…1621a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1621a…1623a (25, 0, 23) 59 59 20 3d 20 31 3b 52 3d 20 36 3b 20 20 20 20 53 55 4d 31 20 3d 20 30 3b 53 55 4d 32 20 3d 20 ┆YY = 1;R= 6; SUM1 = 0;SUM2 = ┆
0x1623a…1625a 30 3b 20 53 31 20 3d 20 30 3b 20 53 32 20 3d 20 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆0; S1 = 0; S2 = 0; ┆
0x1625a…16269 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x16269…16289 (25, 0, 24) 53 54 41 52 54 3a 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 20 ┆START: ON ENDFILE GO TO SLUT; ┆
0x16289…162a9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x162a9…162b8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x162b8…162d8 (25, 0, 25) 52 45 41 44 20 46 49 4c 45 28 56 45 52 49 46 49 4c 45 29 20 49 4e 54 4f 28 56 45 52 29 3b 20 20 ┆READ FILE(VERIFILE) INTO(VER); ┆
0x162d8…162f8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x162f8…16307 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x16307…16327 (25, 0, 26) 49 46 28 53 55 42 53 54 52 28 44 41 54 55 4d 2c 33 2c 32 29 20 7f 3d 20 4d 29 20 54 48 45 4e 20 ┆IF(SUBSTR(DATUM,3,2) = M) THEN ┆
0x16327…16347 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 20 20 ┆GO TO START; ┆
0x16347…16356 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x16356…16376 (25, 0, 27) 49 46 28 44 45 42 45 54 20 3d 20 27 20 20 20 20 27 29 20 54 48 45 4e 20 47 4f 20 54 4f 20 4b 52 ┆IF(DEBET = ' ') THEN GO TO KR┆
0x16376…16396 45 44 3b 20 20 20 49 46 28 59 59 20 3d 20 31 29 20 54 48 45 4e 20 4b 4f 4e 54 20 3d 20 44 45 42 ┆ED; IF(YY = 1) THEN KONT = DEB┆
0x16396…163a5 45 54 3b 20 59 59 3d 30 3b 20 20 20 20 20 20 ┆ET; YY=0; ┆
0x163a5…163c5 (25, 0, 28) 53 55 4d 31 20 3d 20 53 55 4d 31 20 2b 20 42 45 4c 4f 50 50 3b 20 20 53 31 20 3d 20 53 31 20 2b ┆SUM1 = SUM1 + BELOPP; S1 = S1 +┆
0x163c5…163e5 20 42 45 4c 4f 50 50 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 ┆ BELOPP; ┆
0x163e5…163f4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x163f4…16414 (25, 0, 29) 50 55 54 20 53 4b 49 50 20 45 44 49 54 28 44 41 54 55 4d 29 28 41 28 31 30 29 29 28 56 45 4e 52 ┆PUT SKIP EDIT(DATUM)(A(10))(VENR┆
0x16414…16434 29 28 41 28 31 30 29 29 28 56 54 45 58 54 29 28 41 28 33 30 29 29 28 44 45 42 45 54 29 28 41 28 ┆)(A(10))(VTEXT)(A(30))(DEBET)(A(┆
0x16434…16443 38 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 ┆8)); ┆
0x16443…16463 (25, 0, 30) 49 46 28 4b 4f 44 20 7f 3d 27 20 20 27 29 20 54 48 45 4e 20 44 4f 3b 50 55 54 20 45 44 49 54 28 ┆IF(KOD =' ') THEN DO;PUT EDIT(┆
0x16463…16483 4b 4f 44 29 28 41 28 34 29 29 3b 50 55 54 20 45 44 49 54 28 42 45 4c 4f 50 50 29 28 50 27 2d 2d ┆KOD)(A(4));PUT EDIT(BELOPP)(P'--┆
0x16483…16492 2d 2d 2d 2d 2d 2d 39 56 2e 39 39 27 29 3b 20 ┆------9V.99'); ┆
0x16492…164b2 (25, 0, 31) 42 45 4c 4f 50 50 20 3d 20 30 3b 20 20 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆BELOPP = 0; END; ┆
0x164b2…164d2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x164d2…164e1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x164e1…16501 (25, 0, 32) 49 46 28 4b 4f 44 3d 27 20 20 27 29 54 48 45 4e 20 50 55 54 20 45 44 49 54 28 42 45 4c 4f 50 50 ┆IF(KOD=' ')THEN PUT EDIT(BELOPP┆
0x16501…16521 29 20 28 58 28 34 29 2c 50 27 2d 2d 2d 2d 2d 2d 2d 2d 39 56 2e 39 39 27 2c 58 28 31 30 29 29 3b ┆) (X(4),P'--------9V.99',X(10));┆
0x16521…16530 20 20 42 45 4c 4f 50 50 20 3d 20 30 3b 20 20 ┆ BELOPP = 0; ┆
0x16530…16550 (25, 0, 33) 52 20 3d 20 52 20 2b 20 31 3b 20 4b 4f 44 20 3d 20 27 20 20 27 3b 20 49 46 28 52 20 3d 20 34 33 ┆R = R + 1; KOD = ' '; IF(R = 43┆
0x16550…16570 29 20 54 48 45 4e 20 47 4f 20 54 4f 20 50 52 49 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆) THEN GO TO PRI; ┆
0x16570…1657f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1657f…1659f (25, 0, 34) 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 20 20 ┆GO TO START; ┆
0x1659f…165bf 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x165bf…165ce 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x165ce…165ee (25, 0, 35) 4b 52 45 44 3a 20 20 49 46 28 59 59 20 3d 20 31 29 54 48 45 4e 20 4b 4f 4e 54 20 3d 20 4b 52 45 ┆KRED: IF(YY = 1)THEN KONT = KRE┆
0x165ee…1660e 44 49 54 3b 20 59 59 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 ┆DIT; YY = 0; ┆
0x1660e…1661d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1661d…1663d (25, 0, 36) 53 55 4d 32 20 3d 20 53 55 4d 32 20 2b 20 42 45 4c 4f 50 50 3b 20 20 53 32 20 3d 20 53 32 20 2b ┆SUM2 = SUM2 + BELOPP; S2 = S2 +┆
0x1663d…1665d 20 42 45 4c 4f 50 50 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 ┆ BELOPP; ┆
0x1665d…1666c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1666c…1668c (25, 0, 37) 50 55 54 20 53 4b 49 50 20 45 44 49 54 28 44 41 54 55 4d 29 28 41 28 31 30 29 29 20 28 56 45 4e ┆PUT SKIP EDIT(DATUM)(A(10)) (VEN┆
0x1668c…166ac 52 29 28 41 28 31 30 29 29 28 56 54 45 58 54 29 28 41 28 33 30 29 29 20 28 4b 52 45 44 49 54 29 ┆R)(A(10))(VTEXT)(A(30)) (KREDIT)┆
0x166ac…166bb 28 41 28 38 29 29 3b 20 20 20 20 20 20 20 20 ┆(A(8)); ┆
0x166bb…166db (25, 0, 38) 49 46 28 4b 4f 44 20 7f 3d 27 20 20 27 29 54 48 45 4e 20 44 4f 3b 50 55 54 20 45 44 49 54 28 4b ┆IF(KOD =' ')THEN DO;PUT EDIT(K┆
0x166db…166fb 4f 44 29 28 41 28 31 39 29 29 3b 50 55 54 20 45 44 49 54 28 42 45 4c 4f 50 50 29 28 50 27 2d 2d ┆OD)(A(19));PUT EDIT(BELOPP)(P'--┆
0x166fb…1670a 2d 2d 2d 2d 2d 2d 39 56 2e 39 39 27 29 3b 20 ┆------9V.99'); ┆
0x1670a…1672a (25, 0, 39) 42 45 4c 4f 50 50 20 3d 20 30 3b 20 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆BELOPP = 0; END; ┆
0x1672a…1674a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1674a…16759 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x16759…16779 (25, 0, 40) 49 46 28 4b 4f 44 3d 27 20 20 27 29 54 48 45 4e 20 50 55 54 20 45 44 49 54 28 42 45 4c 4f 50 50 ┆IF(KOD=' ')THEN PUT EDIT(BELOPP┆
0x16779…16799 29 20 28 58 28 31 39 29 2c 50 27 2d 2d 2d 2d 2d 2d 2d 2d 39 56 2e 39 39 27 29 3b 20 20 20 20 20 ┆) (X(19),P'--------9V.99'); ┆
0x16799…167a8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x167a8…167c8 (26, 0, 0) 44 43 4c 20 31 20 56 45 52 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆DCL 1 VER, ┆
0x167c8…167e8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x167e8…167f7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x167f7…16817 (26, 0, 1) 20 20 20 20 32 20 56 45 4e 52 20 43 48 41 52 28 36 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 VENR CHAR(6), ┆
0x16817…16837 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x16837…16846 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x16846…16866 (26, 0, 2) 20 20 20 20 32 20 44 41 54 55 4d 20 43 48 41 52 28 36 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 DATUM CHAR(6), ┆
0x16866…16886 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x16886…16895 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x16895…168b5 (26, 0, 3) 20 20 20 20 32 20 4b 4f 53 54 53 54 20 43 48 41 52 28 34 29 49 4e 49 54 49 41 4c 28 27 20 20 20 ┆ 2 KOSTST CHAR(4)INITIAL(' ┆
0x168b5…168d5 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 20 20 20 ┆ '), ┆
0x168d5…168e4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x168e4…16904 (26, 0, 4) 20 20 20 20 20 32 20 44 45 42 45 54 20 43 48 41 52 28 34 29 20 49 4e 49 54 49 41 4c 28 27 20 20 ┆ 2 DEBET CHAR(4) INITIAL(' ┆
0x16904…16924 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 20 20 ┆ '), ┆
0x16924…16933 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x16933…16953 (26, 0, 5) 20 20 20 20 32 20 4b 52 45 44 49 54 20 43 48 41 52 28 34 29 20 49 4e 49 54 49 41 4c 28 27 20 20 ┆ 2 KREDIT CHAR(4) INITIAL(' ┆
0x16953…16973 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 20 20 ┆ '), ┆
0x16973…16982 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x16982…169a2 (26, 0, 6) 20 20 20 20 32 20 42 45 4c 4f 50 50 20 46 49 58 45 44 28 31 31 2c 32 29 2c 20 20 20 20 20 20 20 ┆ 2 BELOPP FIXED(11,2), ┆
0x169a2…169c2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x169c2…169d1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x169d1…169f1 (26, 0, 7) 20 20 20 20 32 20 56 54 45 58 54 20 43 48 41 52 28 32 30 29 2c 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 VTEXT CHAR(20), ┆
0x169f1…16a11 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x16a11…16a20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x16a20…16a40 (26, 0, 8) 20 20 20 20 32 20 4b 4f 44 20 43 48 41 52 28 32 29 49 4e 49 54 49 41 4c 28 27 20 20 27 29 3b 20 ┆ 2 KOD CHAR(2)INITIAL(' '); ┆
0x16a40…16a60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x16a60…16a6f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x16a6f…16a8f (26, 0, 9) 53 49 44 20 3d 20 31 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 ┆SID = 1; ┆
0x16a8f…16aaf 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x16aaf…16abe 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x16abe…16ade (26, 0, 10) 44 43 4c 20 56 45 52 49 46 49 4c 45 20 46 49 4c 45 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆DCL VERIFILE FILE; ┆
0x16ade…16afe 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x16afe…16b0d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x16b0d…16b2d (26, 0, 11) 44 43 4c 20 52 55 42 31 20 43 48 41 52 28 35 30 29 49 4e 49 54 49 41 4c 28 27 4d 20 20 53 20 54 ┆DCL RUB1 CHAR(50)INITIAL('M S T┆
0x16b2d…16b4d 20 45 20 4e 20 48 20 41 20 52 20 44 20 54 20 20 41 20 42 27 29 3b 20 20 20 20 20 20 20 20 20 20 ┆ E N H A R D T A B'); ┆
0x16b4d…16b5c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x16b5c…16b7c (26, 0, 12) 44 43 4c 20 52 55 42 31 41 20 43 48 41 52 28 32 30 29 20 49 4e 49 54 28 27 50 52 4f 47 52 3a 20 ┆DCL RUB1A CHAR(20) INIT('PROGR: ┆
0x16b7c…16b9c 41 31 30 32 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 ┆A102'); ┆
0x16b9c…16bab 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x16bab…16bcb (26, 0, 13) 44 43 4c 20 44 41 54 20 43 48 41 52 28 38 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆DCL DAT CHAR(8); ┆
0x16bcb…16beb 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x16beb…16bfa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x16bfa…16c1a (26, 0, 14) 50 55 54 20 46 49 4c 45 28 44 49 53 50 29 53 4b 49 50 20 4c 49 53 54 28 27 41 4e 47 45 20 44 41 ┆PUT FILE(DISP)SKIP LIST('ANGE DA┆
0x16c1a…16c3a 47 45 4e 53 20 44 41 54 55 4d 20 28 5d 5d 2e 4d 4d 2e 44 44 2e 29 20 27 29 3b 20 47 45 54 20 4c ┆GENS DATUM (ÅÅ.MM.DD.) '); GET L┆
0x16c3a…16c49 49 53 54 28 44 41 54 29 3b 20 20 20 20 20 20 ┆IST(DAT); ┆
0x16c49…16c69 (26, 0, 15) 44 43 4c 20 4d 20 43 48 41 52 28 32 29 3b 20 20 20 50 55 54 20 46 49 4c 45 28 44 49 53 50 29 20 ┆DCL M CHAR(2); PUT FILE(DISP) ┆
0x16c69…16c89 53 4b 49 50 20 4c 49 53 54 28 27 41 4e 47 45 20 4d 5d 4e 41 44 20 27 29 3b 20 47 45 54 20 4c 49 ┆SKIP LIST('ANGE MÅNAD '); GET LI┆
0x16c89…16c98 53 54 28 4d 29 3b 20 20 20 20 20 20 20 20 20 ┆ST(M); ┆
0x16c98…16cb8 (26, 0, 16) 44 43 4c 20 52 55 42 32 20 43 48 41 52 28 35 32 29 49 4e 49 54 49 41 4c 28 27 56 20 45 20 52 20 ┆DCL RUB2 CHAR(52)INITIAL('V E R ┆
0x16cb8…16cd8 49 20 46 20 49 20 4b 20 41 20 54 20 49 20 4f 20 4e 20 53 20 4c 20 49 20 53 20 54 20 41 20 20 20 ┆I F I K A T I O N S L I S T A ┆
0x16cd8…16ce7 20 20 20 20 20 20 4d 5d 4e 41 44 20 27 29 3b ┆ MÅNAD ');┆
0x16ce7…16d07 (26, 0, 17) 44 43 4c 20 52 55 42 33 20 43 48 41 52 28 35 30 29 49 4e 49 54 49 41 4c 28 27 20 44 41 54 55 4d ┆DCL RUB3 CHAR(50)INITIAL(' DATUM┆
0x16d07…16d27 20 20 20 20 56 45 52 2e 4e 52 20 20 20 20 54 45 58 54 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 ┆ VER.NR TEXT'); ┆
0x16d27…16d36 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x16d36…16d56 (26, 0, 18) 44 43 4c 20 52 55 42 34 20 43 48 41 52 28 35 35 29 49 4e 49 54 28 27 4b 4f 4e 54 4f 20 20 20 4b ┆DCL RUB4 CHAR(55)INIT('KONTO K┆
0x16d56…16d76 4f 44 20 20 20 20 20 20 20 20 44 45 42 45 54 20 20 20 20 20 20 20 20 20 4b 52 45 44 49 54 20 20 ┆OD DEBET KREDIT ┆
0x16d76…16d85 20 20 20 44 49 46 46 45 52 45 4e 53 27 29 3b ┆ DIFFERENS');┆
0x16d85…16da5 (26, 0, 19) 50 55 54 20 53 4b 49 50 28 33 29 20 45 44 49 54 28 52 55 42 31 29 20 28 41 28 33 35 29 29 28 52 ┆PUT SKIP(3) EDIT(RUB1) (A(35))(R┆
0x16da5…16dc5 55 42 31 41 29 28 41 28 31 35 29 29 20 28 52 55 42 32 29 20 28 41 28 35 30 29 29 28 4d 29 20 28 ┆UB1A)(A(15)) (RUB2) (A(50))(M) (┆
0x16dc5…16dd4 41 28 34 29 29 3b 20 20 20 20 20 20 20 20 20 ┆A(4)); ┆
0x16dd4…16df4 (26, 0, 20) 50 55 54 20 4c 49 53 54 28 27 20 20 20 20 20 44 41 54 55 4d 20 27 29 3b 50 55 54 20 45 44 49 54 ┆PUT LIST(' DATUM ');PUT EDIT┆
0x16df4…16e14 28 44 41 54 29 28 41 28 31 32 29 29 3b 50 55 54 20 4c 49 53 54 28 27 20 53 49 44 41 20 31 27 29 ┆(DAT)(A(12));PUT LIST(' SIDA 1')┆
0x16e14…16e23 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆; ┆
0x16e23…16e43 (26, 0, 21) 20 20 20 20 50 55 54 20 53 4b 49 50 28 32 29 45 44 49 54 28 52 55 42 33 29 28 41 28 35 30 29 29 ┆ PUT SKIP(2)EDIT(RUB3)(A(50))┆
0x16e43…16e63 28 52 55 42 34 29 28 41 28 35 35 29 29 3b 20 50 55 54 20 53 4b 49 50 20 4c 49 53 54 28 27 27 29 ┆(RUB4)(A(55)); PUT SKIP LIST('')┆
0x16e63…16e72 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆; ┆
0x16e72…16e92 (26, 0, 22) 4f 50 45 4e 20 56 45 52 49 46 49 4c 45 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆OPEN VERIFILE; ┆
0x16e92…16eb2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x16eb2…16ec1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x16ec1…16ee1 (26, 0, 23) 59 59 20 3d 20 31 3b 52 3d 20 36 3b 20 20 20 20 53 55 4d 31 20 3d 20 30 3b 53 55 4d 32 20 3d 20 ┆YY = 1;R= 6; SUM1 = 0;SUM2 = ┆
0x16ee1…16f01 30 3b 20 53 31 20 3d 20 30 3b 20 53 32 20 3d 20 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆0; S1 = 0; S2 = 0; ┆
0x16f01…16f10 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x16f10…16f30 (26, 0, 24) 53 54 41 52 54 3a 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 20 ┆START: ON ENDFILE GO TO SLUT; ┆
0x16f30…16f50 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x16f50…16f5f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x16f5f…16f7f (26, 0, 25) 52 45 41 44 20 46 49 4c 45 28 56 45 52 49 46 49 4c 45 29 20 49 4e 54 4f 28 56 45 52 29 3b 20 20 ┆READ FILE(VERIFILE) INTO(VER); ┆
0x16f7f…16f9f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x16f9f…16fae 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x16fae…16fce (26, 0, 26) 49 46 28 53 55 42 53 54 52 28 44 41 54 55 4d 2c 33 2c 32 29 20 7f 3d 20 4d 29 20 54 48 45 4e 20 ┆IF(SUBSTR(DATUM,3,2) = M) THEN ┆
0x16fce…16fee 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 20 20 ┆GO TO START; ┆
0x16fee…16ffd 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x16ffd…1701d (26, 0, 27) 49 46 28 44 45 42 45 54 20 3d 20 27 20 20 20 20 27 29 20 54 48 45 4e 20 47 4f 20 54 4f 20 4b 52 ┆IF(DEBET = ' ') THEN GO TO KR┆
0x1701d…1703d 45 44 3b 20 20 20 49 46 28 59 59 20 3d 20 31 29 20 54 48 45 4e 20 4b 4f 4e 54 20 3d 20 44 45 42 ┆ED; IF(YY = 1) THEN KONT = DEB┆
0x1703d…1704c 45 54 3b 20 59 59 3d 30 3b 20 20 20 20 20 20 ┆ET; YY=0; ┆
0x1704c…1706c (26, 0, 28) 53 55 4d 31 20 3d 20 53 55 4d 31 20 2b 20 42 45 4c 4f 50 50 3b 20 20 53 31 20 3d 20 53 31 20 2b ┆SUM1 = SUM1 + BELOPP; S1 = S1 +┆
0x1706c…1708c 20 42 45 4c 4f 50 50 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 ┆ BELOPP; ┆
0x1708c…1709b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1709b…170bb (26, 0, 29) 50 55 54 20 53 4b 49 50 20 45 44 49 54 28 44 41 54 55 4d 29 28 41 28 31 30 29 29 28 56 45 4e 52 ┆PUT SKIP EDIT(DATUM)(A(10))(VENR┆
0x170bb…170db 29 28 41 28 31 30 29 29 28 56 54 45 58 54 29 28 41 28 33 30 29 29 28 44 45 42 45 54 29 28 41 28 ┆)(A(10))(VTEXT)(A(30))(DEBET)(A(┆
0x170db…170ea 38 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 ┆8)); ┆
0x170ea…1710a (26, 0, 30) 49 46 28 4b 4f 44 20 7f 3d 27 20 20 27 29 20 54 48 45 4e 20 44 4f 3b 50 55 54 20 45 44 49 54 28 ┆IF(KOD =' ') THEN DO;PUT EDIT(┆
0x1710a…1712a 4b 4f 44 29 28 41 28 34 29 29 3b 50 55 54 20 45 44 49 54 28 42 45 4c 4f 50 50 29 28 50 27 2d 2d ┆KOD)(A(4));PUT EDIT(BELOPP)(P'--┆
0x1712a…17139 2d 2d 2d 2d 2d 2d 39 56 2e 39 39 27 29 3b 20 ┆------9V.99'); ┆
0x17139…17159 (26, 0, 31) 42 45 4c 4f 50 50 20 3d 20 30 3b 20 20 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆BELOPP = 0; END; ┆
0x17159…17179 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17179…17188 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17188…171a8 (26, 0, 32) 49 46 28 4b 4f 44 3d 27 20 20 27 29 54 48 45 4e 20 50 55 54 20 45 44 49 54 28 42 45 4c 4f 50 50 ┆IF(KOD=' ')THEN PUT EDIT(BELOPP┆
0x171a8…171c8 29 20 28 58 28 34 29 2c 50 27 2d 2d 2d 2d 2d 2d 2d 2d 39 56 2e 39 39 27 2c 58 28 31 30 29 29 3b ┆) (X(4),P'--------9V.99',X(10));┆
0x171c8…171d7 20 20 42 45 4c 4f 50 50 20 3d 20 30 3b 20 20 ┆ BELOPP = 0; ┆
0x171d7…171f7 (26, 0, 33) 52 20 3d 20 52 20 2b 20 31 3b 20 4b 4f 44 20 3d 20 27 20 20 27 3b 20 49 46 28 52 20 3d 20 34 33 ┆R = R + 1; KOD = ' '; IF(R = 43┆
0x171f7…17217 29 20 54 48 45 4e 20 47 4f 20 54 4f 20 50 52 49 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆) THEN GO TO PRI; ┆
0x17217…17226 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17226…17246 (26, 0, 34) 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 20 20 ┆GO TO START; ┆
0x17246…17266 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17266…17275 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17275…17295 (26, 0, 35) 4b 52 45 44 3a 20 20 49 46 28 59 59 20 3d 20 31 29 54 48 45 4e 20 4b 4f 4e 54 20 3d 20 4b 52 45 ┆KRED: IF(YY = 1)THEN KONT = KRE┆
0x17295…172b5 44 49 54 3b 20 59 59 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 ┆DIT; YY = 0; ┆
0x172b5…172c4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x172c4…172e4 (26, 0, 36) 53 55 4d 32 20 3d 20 53 55 4d 32 20 2b 20 42 45 4c 4f 50 50 3b 20 20 53 32 20 3d 20 53 32 20 2b ┆SUM2 = SUM2 + BELOPP; S2 = S2 +┆
0x172e4…17304 20 42 45 4c 4f 50 50 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 ┆ BELOPP; ┆
0x17304…17313 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17313…17333 (26, 0, 37) 50 55 54 20 53 4b 49 50 20 45 44 49 54 28 44 41 54 55 4d 29 28 41 28 31 30 29 29 20 28 56 45 4e ┆PUT SKIP EDIT(DATUM)(A(10)) (VEN┆
0x17333…17353 52 29 28 41 28 31 30 29 29 28 56 54 45 58 54 29 28 41 28 33 30 29 29 20 28 4b 52 45 44 49 54 29 ┆R)(A(10))(VTEXT)(A(30)) (KREDIT)┆
0x17353…17362 28 41 28 38 29 29 3b 20 20 20 20 20 20 20 20 ┆(A(8)); ┆
0x17362…17382 (26, 0, 38) 49 46 28 4b 4f 44 20 7f 3d 27 20 20 27 29 54 48 45 4e 20 44 4f 3b 50 55 54 20 45 44 49 54 28 4b ┆IF(KOD =' ')THEN DO;PUT EDIT(K┆
0x17382…173a2 4f 44 29 28 41 28 31 39 29 29 3b 50 55 54 20 45 44 49 54 28 42 45 4c 4f 50 50 29 28 50 27 2d 2d ┆OD)(A(19));PUT EDIT(BELOPP)(P'--┆
0x173a2…173b1 2d 2d 2d 2d 2d 2d 39 56 2e 39 39 27 29 3b 20 ┆------9V.99'); ┆
0x173b1…173d1 (26, 0, 39) 42 45 4c 4f 50 50 20 3d 20 30 3b 20 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆BELOPP = 0; END; ┆
0x173d1…173f1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x173f1…17400 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17400…17420 (26, 0, 40) 49 46 28 4b 4f 44 3d 27 20 20 27 29 54 48 45 4e 20 50 55 54 20 45 44 49 54 28 42 45 4c 4f 50 50 ┆IF(KOD=' ')THEN PUT EDIT(BELOPP┆
0x17420…17440 29 20 28 58 28 31 39 29 2c 50 27 2d 2d 2d 2d 2d 2d 2d 2d 39 56 2e 39 39 27 29 3b 20 20 20 20 20 ┆) (X(19),P'--------9V.99'); ┆
0x17440…1744f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1744f…1749e (27, 0, 0) DataSector[0x4f]
[…0x35…]
0x184f9…18519 (28, 0, 13) 44 43 4c 20 52 55 42 35 20 43 48 41 52 28 34 30 29 49 4e 49 54 28 27 4d 5d 4e 41 44 45 4e 53 20 ┆DCL RUB5 CHAR(40)INIT('MÅNADENS ┆
0x18519…18539 4c 5b 47 53 54 41 20 56 45 52 2e 4e 52 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆LÄGSTA VER.NR'); ┆
0x18539…18548 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18548…18568 (28, 0, 14) 44 43 4c 20 52 55 42 36 20 43 48 41 52 28 34 30 29 49 4e 49 54 28 27 53 41 4b 4e 41 44 45 20 56 ┆DCL RUB6 CHAR(40)INIT('SAKNADE V┆
0x18568…18588 45 52 2e 4e 52 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 ┆ER.NR'); ┆
0x18588…18597 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18597…185b7 (28, 0, 15) 44 43 4c 20 52 55 42 38 20 43 48 41 52 28 34 30 29 49 4e 49 54 28 27 4d 5d 4e 41 44 45 4e 53 20 ┆DCL RUB8 CHAR(40)INIT('MÅNADENS ┆
0x185b7…185d7 48 5c 47 53 54 41 20 56 45 52 2e 4e 52 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆HÖGSTA VER.NR'); ┆
0x185d7…185e6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x185e6…18606 (28, 0, 16) 50 55 54 20 46 49 4c 45 28 44 49 53 50 29 53 4b 49 50 20 4c 49 53 54 28 27 48 41 52 20 44 55 20 ┆PUT FILE(DISP)SKIP LIST('HAR DU ┆
0x18606…18626 53 4f 52 54 45 52 41 54 20 46 49 4c 45 4e 20 50 5d 20 56 45 52 2e 4e 52 20 3f 20 41 4e 4e 41 52 ┆SORTERAT FILEN PÅ VER.NR ? ANNAR┆
0x18626…18635 53 20 42 5c 52 4a 41 20 4f 4d 27 29 3b 20 20 ┆S BÖRJA OM'); ┆
0x18635…18655 (28, 0, 17) 47 45 54 20 4c 49 53 54 28 41 29 3b 20 49 46 28 41 20 7f 3d 20 31 29 20 54 48 45 4e 20 47 4f 20 ┆GET LIST(A); IF(A = 1) THEN GO ┆
0x18655…18675 54 4f 20 53 4c 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 ┆TO SL; ┆
0x18675…18684 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18684…186a4 (28, 0, 18) 44 43 4c 20 50 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 P CHAR(2); ┆
0x186a4…186c4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x186c4…186d3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x186d3…186f3 (28, 0, 19) 50 55 54 20 46 49 4c 45 28 44 49 53 50 29 53 4b 49 50 20 4c 49 53 54 28 27 41 4e 47 45 20 50 45 ┆PUT FILE(DISP)SKIP LIST('ANGE PE┆
0x186f3…18713 52 49 4f 44 20 28 3d 4d 5d 4e 41 44 29 20 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆RIOD (=MÅNAD) '); ┆
0x18713…18722 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18722…18742 (28, 0, 20) 47 45 54 20 4c 49 53 54 28 50 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆GET LIST(P); ┆
0x18742…18762 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18762…18771 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18771…18791 (28, 0, 21) 50 55 54 20 53 4b 49 50 28 33 29 45 44 49 54 28 52 55 42 31 29 20 28 41 28 35 35 29 29 20 28 52 ┆PUT SKIP(3)EDIT(RUB1) (A(55)) (R┆
0x18791…187b1 55 42 32 29 20 28 41 28 35 30 29 29 3b 20 50 55 54 20 4c 49 53 54 28 27 20 4d 5d 4e 41 44 20 27 ┆UB2) (A(50)); PUT LIST(' MÅNAD '┆
0x187b1…187c0 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆); ┆
0x187c0…187e0 (28, 0, 22) 50 55 54 20 45 44 49 54 28 50 29 28 41 28 31 30 29 29 3b 20 20 20 50 55 54 20 53 4b 49 50 28 32 ┆PUT EDIT(P)(A(10)); PUT SKIP(2┆
0x187e0…18800 29 45 44 49 54 28 52 55 42 33 29 20 28 41 28 34 30 29 29 20 28 52 55 42 34 29 20 28 41 28 32 30 ┆)EDIT(RUB3) (A(40)) (RUB4) (A(20┆
0x18800…1880f 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆)); ┆
0x1880f…1882f (28, 0, 23) 44 43 4c 20 56 45 52 49 46 49 4c 45 20 46 49 4c 45 3b 20 4f 50 45 4e 20 56 45 52 49 46 49 4c 45 ┆DCL VERIFILE FILE; OPEN VERIFILE┆
0x1882f…1884f 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 ┆; ┆
0x1884f…1885e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1885e…1887e (28, 0, 24) 56 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 20 ┆V = 0; ┆
0x1887e…1889e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1889e…188ad 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x188ad…188cd (28, 0, 25) 53 54 41 52 54 3a 20 58 20 3d 20 30 3b 20 20 20 4f 4e 20 45 4e 44 46 49 4c 45 20 47 4f 20 54 4f ┆START: X = 0; ON ENDFILE GO TO┆
0x188cd…188ed 20 53 4c 55 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 ┆ SLUT; ┆
0x188ed…188fc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x188fc…1891c (28, 0, 26) 52 45 41 44 20 46 49 4c 45 28 56 45 52 49 46 49 4c 45 29 20 49 4e 54 4f 28 42 4f 4b 29 3b 20 20 ┆READ FILE(VERIFILE) INTO(BOK); ┆
0x1891c…1893c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1893c…1894b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1894b…1896b (28, 0, 27) 49 46 28 53 55 42 53 54 52 28 44 41 54 55 4d 2c 33 2c 32 29 20 7f 3d 20 50 29 54 48 45 4e 20 47 ┆IF(SUBSTR(DATUM,3,2) = P)THEN G┆
0x1896b…1898b 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; ┆
0x1898b…1899a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1899a…189ba (28, 0, 28) 56 20 3d 20 56 20 2b 31 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆V = V +1; ┆
0x189ba…189da 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x189da…189e9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x189e9…18a09 (28, 0, 29) 56 45 52 20 3d 20 56 45 4e 52 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆VER = VENR; ┆
0x18a09…18a29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18a29…18a38 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18a38…18a58 (28, 0, 30) 49 46 28 56 20 3d 20 31 29 54 48 45 4e 20 44 4f 3b 20 50 55 54 20 53 4b 49 50 28 32 29 45 44 49 ┆IF(V = 1)THEN DO; PUT SKIP(2)EDI┆
0x18a58…18a78 54 28 52 55 42 35 29 28 41 28 34 30 29 29 28 56 45 4e 52 29 28 41 28 31 30 29 29 3b 20 56 3d 56 ┆T(RUB5)(A(40))(VENR)(A(10)); V=V┆
0x18a78…18a87 45 52 3b 58 3d 31 3b 45 4e 44 3b 20 20 20 20 ┆ER;X=1;END; ┆
0x18a87…18aa7 (28, 0, 31) 49 46 28 58 20 3d 20 31 29 20 54 48 45 4e 20 47 4f 20 54 4f 20 53 54 41 52 54 3b 20 20 20 20 20 ┆IF(X = 1) THEN GO TO START; ┆
0x18aa7…18ac7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18ac7…18ad6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18ad6…18af6 (28, 0, 32) 49 46 28 28 56 2b 31 29 20 3d 20 56 45 52 29 54 48 45 4e 20 50 55 54 20 53 4b 49 50 20 45 44 49 ┆IF((V+1) = VER)THEN PUT SKIP EDI┆
0x18af6…18b16 54 28 52 55 42 36 29 28 41 28 34 30 29 29 28 56 29 28 41 28 31 30 29 29 3b 20 56 3d 56 45 52 3b ┆T(RUB6)(A(40))(V)(A(10)); V=VER;┆
0x18b16…18b25 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18b25…18b45 (28, 0, 33) 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 20 20 ┆GO TO START; ┆
0x18b45…18b65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18b65…18b74 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18b74…18b94 (28, 0, 34) 53 4c 55 54 3a 20 50 55 54 20 53 4b 49 50 20 45 44 49 54 28 52 55 42 38 29 28 41 28 34 30 29 29 ┆SLUT: PUT SKIP EDIT(RUB8)(A(40))┆
0x18b94…18bb4 28 56 45 4e 52 29 28 41 28 31 30 29 29 3b 20 53 4c 3a 20 20 20 45 4e 44 3b 20 20 20 20 20 20 20 ┆(VENR)(A(10)); SL: END; ┆
0x18bb4…18bc3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18bc3…18c12 (28, 0, 35) 0x20[0x4f]
0x18c12…18c32 (28, 0, 36) 00 00 59 00 00 2a 20 20 20 20 20 20 20 07 00 ff 00 0f 00 08 00 0b 00 00 00 06 00 da 40 7c b5 ca ┆ Y * @ö ┆
0x18c32…18c52 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x18c52…18c61 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x18c61…18c81 (28, 0, 37) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x18c81…18ca1 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18ca1…18cb0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18cb0…18cd0 (28, 0, 38) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 14 73 51 79 20 20 20 20 20 20 20 20 20 20 20 20 ┆ sQy ┆
0x18cd0…18cf0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18cf0…18cff 03 00 00 4d 46 49 4c 45 20 20 20 59 4f 55 52 ┆ MFILE YOUR┆
0x18cff…18d1f (28, 0, 39) 20 46 49 4c 45 20 49 00 00 00 00 00 00 59 00 00 2a 20 20 20 20 20 20 20 07 00 ff 00 0f 00 08 00 ┆ FILE I Y * ┆
0x18d1f…18d3f 0b 00 00 00 06 00 da 40 7c b5 ca 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ @ö ┆
0x18d3f…18d4e 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x18d4e…18d6e (28, 0, 40) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x1…]
0x18d8e…18d9d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18d9d…18dbd (29, 0, 0) 44 43 4c 20 31 20 42 4f 4b 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆DCL 1 BOK, ┆
0x18dbd…18ddd 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18ddd…18dec 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18dec…18e0c (29, 0, 1) 20 20 20 20 32 20 56 45 4e 52 20 43 48 41 52 28 36 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 VENR CHAR(6), ┆
0x18e0c…18e2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18e2c…18e3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18e3b…18e5b (29, 0, 2) 20 20 20 20 32 20 44 41 54 55 4d 20 43 48 41 52 28 36 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 DATUM CHAR(6), ┆
0x18e5b…18e7b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18e7b…18e8a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18e8a…18eaa (29, 0, 3) 20 20 20 20 20 32 20 4b 4f 53 54 53 54 20 43 48 41 52 28 34 29 49 4e 49 54 28 27 20 20 20 20 27 ┆ 2 KOSTST CHAR(4)INIT(' '┆
0x18eaa…18eca 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 20 ┆), ┆
0x18eca…18ed9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18ed9…18ef9 (29, 0, 4) 20 20 20 20 32 20 44 45 42 45 54 20 43 48 41 52 28 34 29 49 4e 49 54 28 27 20 20 20 20 27 29 2c ┆ 2 DEBET CHAR(4)INIT(' '),┆
0x18ef9…18f19 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18f19…18f28 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18f28…18f48 (29, 0, 5) 20 20 20 20 32 20 4b 52 45 44 49 54 20 43 48 41 52 28 34 29 49 4e 49 54 28 27 20 20 20 20 27 29 ┆ 2 KREDIT CHAR(4)INIT(' ')┆
0x18f48…18f68 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 20 20 ┆, ┆
0x18f68…18f77 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18f77…18f97 (29, 0, 6) 20 20 20 20 32 20 42 45 4c 4f 50 50 20 46 49 58 45 44 28 31 31 2c 32 29 2c 20 20 20 20 20 20 20 ┆ 2 BELOPP FIXED(11,2), ┆
0x18f97…18fb7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18fb7…18fc6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18fc6…18fe6 (29, 0, 7) 20 20 20 20 32 20 56 54 45 58 54 20 43 48 41 52 28 32 30 29 2c 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 VTEXT CHAR(20), ┆
0x18fe6…19006 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19006…19015 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19015…19035 (29, 0, 8) 20 20 20 20 32 20 4b 4f 44 20 43 48 41 52 28 32 29 49 4e 49 54 28 27 20 20 27 29 3b 20 20 20 20 ┆ 2 KOD CHAR(2)INIT(' '); ┆
0x19035…19055 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19055…19064 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19064…19084 (29, 0, 9) 44 43 4c 20 52 55 42 31 20 43 48 41 52 28 35 30 29 49 4e 49 54 28 27 4d 20 20 53 20 54 20 45 20 ┆DCL RUB1 CHAR(50)INIT('M S T E ┆
0x19084…190a4 4e 20 48 20 41 20 52 20 44 20 54 20 20 41 20 42 20 20 20 20 20 20 20 20 20 20 20 50 52 4f 47 52 ┆N H A R D T A B PROGR┆
0x190a4…190b3 3a 20 41 31 30 34 20 27 29 3b 20 20 20 20 20 ┆: A104 '); ┆
0x190b3…190d3 (29, 0, 10) 44 43 4c 20 52 55 42 32 20 43 48 41 52 28 35 30 29 49 4e 49 54 28 27 56 20 45 20 52 20 49 20 46 ┆DCL RUB2 CHAR(50)INIT('V E R I F┆
0x190d3…190f3 20 49 20 4b 20 41 20 54 20 49 20 4f 20 4e 20 53 20 46 20 45 20 4c 20 4c 20 49 20 53 20 54 20 41 ┆ I K A T I O N S F E L L I S T A┆
0x190f3…19102 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆'); ┆
0x19102…19122 (29, 0, 11) 44 43 4c 20 20 52 55 42 33 20 43 48 41 52 28 34 30 29 49 4e 49 54 28 27 41 4e 4d 5b 52 4b 4e 49 ┆DCL RUB3 CHAR(40)INIT('ANMÄRKNI┆
0x19122…19142 4e 47 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 ┆NG'); ┆
0x19142…19151 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19151…19171 (29, 0, 12) 44 43 4c 20 52 55 42 34 20 43 48 41 52 28 34 30 29 49 4e 49 54 28 27 56 45 52 49 46 49 4b 41 54 ┆DCL RUB4 CHAR(40)INIT('VERIFIKAT┆
0x19171…19191 49 4f 4e 53 4e 55 4d 4d 45 52 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆IONSNUMMER'); ┆
0x19191…191a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x191a0…191c0 (29, 0, 13) 44 43 4c 20 52 55 42 35 20 43 48 41 52 28 34 30 29 49 4e 49 54 28 27 4d 5d 4e 41 44 45 4e 53 20 ┆DCL RUB5 CHAR(40)INIT('MÅNADENS ┆
0x191c0…191e0 4c 5b 47 53 54 41 20 56 45 52 2e 4e 52 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆LÄGSTA VER.NR'); ┆
0x191e0…191ef 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x191ef…1920f (29, 0, 14) 44 43 4c 20 52 55 42 36 20 43 48 41 52 28 34 30 29 49 4e 49 54 28 27 53 41 4b 4e 41 44 45 20 56 ┆DCL RUB6 CHAR(40)INIT('SAKNADE V┆
0x1920f…1922f 45 52 2e 4e 52 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 ┆ER.NR'); ┆
0x1922f…1923e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1923e…1925e (29, 0, 15) 44 43 4c 20 52 55 42 38 20 43 48 41 52 28 34 30 29 49 4e 49 54 28 27 4d 5d 4e 41 44 45 4e 53 20 ┆DCL RUB8 CHAR(40)INIT('MÅNADENS ┆
0x1925e…1927e 48 5c 47 53 54 41 20 56 45 52 2e 4e 52 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆HÖGSTA VER.NR'); ┆
0x1927e…1928d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1928d…192ad (29, 0, 16) 50 55 54 20 46 49 4c 45 28 44 49 53 50 29 53 4b 49 50 20 4c 49 53 54 28 27 48 41 52 20 44 55 20 ┆PUT FILE(DISP)SKIP LIST('HAR DU ┆
0x192ad…192cd 53 4f 52 54 45 52 41 54 20 46 49 4c 45 4e 20 50 5d 20 56 45 52 2e 4e 52 20 3f 20 41 4e 4e 41 52 ┆SORTERAT FILEN PÅ VER.NR ? ANNAR┆
0x192cd…192dc 53 20 42 5c 52 4a 41 20 4f 4d 27 29 3b 20 20 ┆S BÖRJA OM'); ┆
0x192dc…192fc (29, 0, 17) 47 45 54 20 4c 49 53 54 28 41 29 3b 20 49 46 28 41 20 7f 3d 20 31 29 20 54 48 45 4e 20 47 4f 20 ┆GET LIST(A); IF(A = 1) THEN GO ┆
0x192fc…1931c 54 4f 20 53 4c 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 ┆TO SL; ┆
0x1931c…1932b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1932b…1934b (29, 0, 18) 44 43 4c 20 50 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 P CHAR(2); ┆
0x1934b…1936b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1936b…1937a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1937a…1939a (29, 0, 19) 50 55 54 20 46 49 4c 45 28 44 49 53 50 29 53 4b 49 50 20 4c 49 53 54 28 27 41 4e 47 45 20 50 45 ┆PUT FILE(DISP)SKIP LIST('ANGE PE┆
0x1939a…193ba 52 49 4f 44 20 28 3d 4d 5d 4e 41 44 29 20 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆RIOD (=MÅNAD) '); ┆
0x193ba…193c9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x193c9…193e9 (29, 0, 20) 47 45 54 20 4c 49 53 54 28 50 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆GET LIST(P); ┆
0x193e9…19409 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19409…19418 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19418…19438 (29, 0, 21) 50 55 54 20 53 4b 49 50 28 33 29 45 44 49 54 28 52 55 42 31 29 20 28 41 28 35 35 29 29 20 28 52 ┆PUT SKIP(3)EDIT(RUB1) (A(55)) (R┆
0x19438…19458 55 42 32 29 20 28 41 28 35 30 29 29 3b 20 50 55 54 20 4c 49 53 54 28 27 20 4d 5d 4e 41 44 20 27 ┆UB2) (A(50)); PUT LIST(' MÅNAD '┆
0x19458…19467 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆); ┆
0x19467…19487 (29, 0, 22) 50 55 54 20 45 44 49 54 28 50 29 28 41 28 31 30 29 29 3b 20 20 20 50 55 54 20 53 4b 49 50 28 32 ┆PUT EDIT(P)(A(10)); PUT SKIP(2┆
0x19487…194a7 29 45 44 49 54 28 52 55 42 33 29 20 28 41 28 34 30 29 29 20 28 52 55 42 34 29 20 28 41 28 32 30 ┆)EDIT(RUB3) (A(40)) (RUB4) (A(20┆
0x194a7…194b6 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆)); ┆
0x194b6…194d6 (29, 0, 23) 44 43 4c 20 56 45 52 49 46 49 4c 45 20 46 49 4c 45 3b 20 4f 50 45 4e 20 56 45 52 49 46 49 4c 45 ┆DCL VERIFILE FILE; OPEN VERIFILE┆
0x194d6…194f6 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 ┆; ┆
0x194f6…19505 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19505…19525 (29, 0, 24) 56 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 20 ┆V = 0; ┆
0x19525…19545 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19545…19554 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19554…19574 (29, 0, 25) 53 54 41 52 54 3a 20 58 20 3d 20 30 3b 20 20 20 4f 4e 20 45 4e 44 46 49 4c 45 20 47 4f 20 54 4f ┆START: X = 0; ON ENDFILE GO TO┆
0x19574…19594 20 53 4c 55 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 ┆ SLUT; ┆
0x19594…195a3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x195a3…195c3 (29, 0, 26) 52 45 41 44 20 46 49 4c 45 28 56 45 52 49 46 49 4c 45 29 20 49 4e 54 4f 28 42 4f 4b 29 3b 20 20 ┆READ FILE(VERIFILE) INTO(BOK); ┆
0x195c3…195e3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x195e3…195f2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x195f2…19612 (29, 0, 27) 49 46 28 53 55 42 53 54 52 28 44 41 54 55 4d 2c 33 2c 32 29 20 7f 3d 20 50 29 54 48 45 4e 20 47 ┆IF(SUBSTR(DATUM,3,2) = P)THEN G┆
0x19612…19632 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; ┆
0x19632…19641 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19641…19661 (29, 0, 28) 56 20 3d 20 56 20 2b 31 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆V = V +1; ┆
0x19661…19681 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19681…19690 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19690…196b0 (29, 0, 29) 56 45 52 20 3d 20 56 45 4e 52 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆VER = VENR; ┆
0x196b0…196d0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x196d0…196df 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x196df…196ff (29, 0, 30) 49 46 28 56 20 3d 20 31 29 54 48 45 4e 20 44 4f 3b 20 50 55 54 20 53 4b 49 50 28 32 29 45 44 49 ┆IF(V = 1)THEN DO; PUT SKIP(2)EDI┆
0x196ff…1971f 54 28 52 55 42 35 29 28 41 28 34 30 29 29 28 56 45 4e 52 29 28 41 28 31 30 29 29 3b 20 56 3d 56 ┆T(RUB5)(A(40))(VENR)(A(10)); V=V┆
0x1971f…1972e 45 52 3b 58 3d 31 3b 45 4e 44 3b 20 20 20 20 ┆ER;X=1;END; ┆
0x1972e…1974e (29, 0, 31) 49 46 28 58 20 3d 20 31 29 20 54 48 45 4e 20 47 4f 20 54 4f 20 53 54 41 52 54 3b 20 20 20 20 20 ┆IF(X = 1) THEN GO TO START; ┆
0x1974e…1976e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1976e…1977d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1977d…1979d (29, 0, 32) 49 46 28 28 56 2b 31 29 20 3d 20 56 45 52 29 54 48 45 4e 20 50 55 54 20 53 4b 49 50 20 45 44 49 ┆IF((V+1) = VER)THEN PUT SKIP EDI┆
0x1979d…197bd 54 28 52 55 42 36 29 28 41 28 34 30 29 29 28 56 29 28 41 28 31 30 29 29 3b 20 56 3d 56 45 52 3b ┆T(RUB6)(A(40))(V)(A(10)); V=VER;┆
0x197bd…197cc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x197cc…197ec (29, 0, 33) 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 20 20 ┆GO TO START; ┆
0x197ec…1980c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1980c…1981b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1981b…1983b (29, 0, 34) 53 4c 55 54 3a 20 50 55 54 20 53 4b 49 50 20 45 44 49 54 28 52 55 42 38 29 28 41 28 34 30 29 29 ┆SLUT: PUT SKIP EDIT(RUB8)(A(40))┆
0x1983b…1985b 28 56 45 4e 52 29 28 41 28 31 30 29 29 3b 20 53 4c 3a 20 20 20 45 4e 44 3b 20 20 20 20 20 20 20 ┆(VENR)(A(10)); SL: END; ┆
0x1985b…1986a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1986a…198b9 (29, 0, 35) 0x20[0x4f]
0x198b9…198d9 (29, 0, 36) 00 00 59 00 00 2a 20 20 20 20 20 20 20 07 00 ff 00 0f 00 08 00 0b 00 00 00 06 00 da 40 7c b5 ca ┆ Y * @ö ┆
0x198d9…198f9 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x198f9…19908 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x19908…19928 (29, 0, 37) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x19928…19948 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19948…19957 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19957…19977 (29, 0, 38) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 14 73 51 79 20 20 20 20 20 20 20 20 20 20 20 20 ┆ sQy ┆
0x19977…19997 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19997…199a6 03 00 00 4d 46 49 4c 45 20 20 20 59 4f 55 52 ┆ MFILE YOUR┆
0x199a6…199c6 (29, 0, 39) 20 46 49 4c 45 20 49 00 00 00 00 00 00 59 00 00 2a 20 20 20 20 20 20 20 07 00 ff 00 0f 00 08 00 ┆ FILE I Y * ┆
0x199c6…199e6 0b 00 00 00 06 00 da 40 7c b5 ca 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ @ö ┆
0x199e6…199f5 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x199f5…19a15 (29, 0, 40) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x1…]
0x19a35…19a44 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19a44…19a93 (30, 0, 0) DataSector[0x4f]
[…0x23…]
0x1a560…1a580 (30, 0, 36) 00 00 59 00 00 2a 20 20 20 20 20 20 20 07 00 ff 00 0f 00 08 00 0b 00 00 00 06 00 da 40 7c b5 ca ┆ Y * @ö ┆
0x1a580…1a5a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x1a5a0…1a5af 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x1a5af…1a5cf (30, 0, 37) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x1a5cf…1a5ef 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1a5ef…1a5fe 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1a5fe…1a61e (30, 0, 38) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 14 73 51 79 20 20 20 20 20 20 20 20 20 20 20 20 ┆ sQy ┆
0x1a61e…1a63e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1a63e…1a64d 03 00 00 4d 46 49 4c 45 20 20 20 59 4f 55 52 ┆ MFILE YOUR┆
0x1a64d…1a66d (30, 0, 39) 20 46 49 4c 45 20 49 00 00 00 00 00 00 59 00 00 2a 20 20 20 20 20 20 20 07 00 ff 00 0f 00 08 00 ┆ FILE I Y * ┆
0x1a66d…1a68d 0b 00 00 00 06 00 da 40 7c b5 ca 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ @ö ┆
0x1a68d…1a69c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x1a69c…1a6bc (30, 0, 40) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x1…]
0x1a6dc…1a6eb 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1a6eb…1a70b (31, 0, 0) 20 20 20 4e 41 4d 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ NAM ┆
0x1a70b…1a72b 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x1a72b…1a73a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x1a73a…1a789 (31, 0, 1) 0x00[0x4f]
[…0x1…]
0x1a7d8…1a7f8 (31, 0, 3) 00 00 00 00 00 00 00 00 00 00 00 20 20 20 4e 41 4d 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ NAM ┆
0x1a7f8…1a818 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x1a818…1a827 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x1a827…1a876 (31, 0, 4) 0x00[0x4f]
[…0x1…]
0x1a8c5…1a8e5 (31, 0, 6) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 20 20 20 4e 41 4d 00 00 00 00 ┆ NAM ┆
0x1a8e5…1a905 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x1a905…1a914 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x1a914…1a963 (31, 0, 7) 0x00[0x4f]
[…0x1…]
0x1a9b2…1a9d2 (31, 0, 9) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x1a9d2…1a9f2 00 20 20 20 4e 41 4d 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ NAM ┆
0x1a9f2…1aa01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x1aa01…1aa50 (31, 0, 10) 0x00[0x4f]
[…0x1…]
0x1aa9f…1aabf (31, 0, 12) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x1aabf…1aadf 00 00 00 00 00 00 00 00 00 00 00 00 20 20 20 4e 41 4d 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ NAM ┆
0x1aadf…1aaee 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x1aaee…1ab3d (31, 0, 13) 0x00[0x4f]
[…0x1…]
0x1ab8c…1abac (31, 0, 15) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x1abac…1abcc 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1abcc…1abdb 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1abdb…1abfb (31, 0, 16) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1abfb…1ac1b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1ac1b…1ac2a 20 20 03 00 00 4d 46 49 4c 45 20 20 20 59 4f ┆ MFILE YO┆
0x1ac2a…1ac4a (31, 0, 17) 55 52 20 46 49 4c 45 20 49 00 00 00 00 00 00 59 00 00 2a 20 20 20 20 20 20 20 07 00 ff 00 0f 00 ┆UR FILE I Y * ┆
0x1ac4a…1ac6a 08 00 0b 00 00 00 06 00 da 40 7c b5 ca 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ @ö ┆
0x1ac6a…1ac79 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x1ac79…1ac99 (31, 0, 18) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x1…]
0x1acb9…1acc8 00 00 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1acc8…1ace8 (31, 0, 19) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 02 70 44 ┆ pD┆
0x1ace8…1ad08 80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1ad08…1ad17 20 20 20 20 20 20 20 20 20 20 20 20 20 03 00 ┆ ┆
0x1ad17…1ad37 (31, 0, 20) 00 4d 46 49 4c 45 20 20 20 59 4f 55 52 20 46 49 4c 45 20 49 00 00 00 00 00 00 59 00 00 2a 20 20 ┆ MFILE YOUR FILE I Y * ┆
0x1ad37…1ad57 20 20 20 20 20 07 00 ff 00 0f 00 08 00 0b 00 00 00 06 00 da 40 7c b5 ca 00 00 00 00 00 00 00 00 ┆ @ö ┆
0x1ad57…1ad66 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x1ad66…1ad86 (31, 0, 21) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x1…]
0x1ada6…1adb5 00 00 00 00 00 00 00 00 00 00 00 00 00 20 20 ┆ ┆
0x1adb5…1add5 (31, 0, 22) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1add5…1adf5 20 20 20 20 20 20 00 00 14 65 57 79 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ eWy ┆
0x1adf5…1ae04 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1ae04…1ae24 (31, 0, 23) 20 20 20 20 20 20 20 20 20 03 00 00 4d 46 49 4c 45 20 20 20 59 4f 55 52 20 46 49 4c 45 20 49 00 ┆ MFILE YOUR FILE I ┆
0x1ae24…1ae44 00 00 00 00 00 59 00 00 2a 20 20 20 20 20 20 20 07 00 ff 00 0f 00 08 00 0b 00 00 00 06 00 da 40 ┆ Y * @┆
0x1ae44…1ae53 7c b5 ca 00 00 00 00 00 00 00 00 00 00 00 00 ┆ö ┆
0x1ae53…1aea2 (31, 0, 24) 0x00[0x4f]
0x1aea2…1aec2 (31, 0, 25) 00 00 00 00 00 00 00 00 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1aec2…1aee2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 14 65 57 79 20 20 20 20 20 20 20 20 20 ┆ eWy ┆
0x1aee2…1aef1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1aef1…1af11 (31, 0, 26) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 03 00 00 4d 46 49 4c 45 20 20 20 59 ┆ MFILE Y┆
0x1af11…1af31 4f 55 52 20 46 49 4c 45 20 49 00 00 00 00 00 00 59 00 00 2a 20 20 20 20 20 20 20 07 00 ff 00 0f ┆OUR FILE I Y * ┆
0x1af31…1af40 00 08 00 0b 00 00 00 06 00 da 40 7c b5 ca 00 ┆ @ö ┆
0x1af40…1af8f (31, 0, 27) 0x00[0x4f]
0x1af8f…1afaf (31, 0, 28) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1afaf…1afcf 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 14 73 ┆ s┆
0x1afcf…1afde 51 79 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆Qy ┆
0x1afde…1affe (31, 0, 29) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 03 ┆ ┆
0x1affe…1b01e 00 00 4d 46 49 4c 45 20 20 20 59 4f 55 52 20 46 49 4c 45 20 49 00 00 00 00 00 00 59 00 00 2a 20 ┆ MFILE YOUR FILE I Y * ┆
0x1b01e…1b02d 20 20 20 20 20 20 07 00 ff 00 0f 00 08 00 0b ┆ ┆
0x1b02d…1b04d (31, 0, 30) 00 00 00 06 00 da 40 7c b5 ca 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ @ö ┆
0x1b04d…1b06d 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x1b06d…1b07c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x1b07c…1b09c (31, 0, 31) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 20 ┆ ┆
0x1b09c…1b0bc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1b0bc…1b0cb 20 20 20 20 20 20 20 00 00 14 73 51 79 20 20 ┆ sQy ┆
0x1b0cb…1b0eb (31, 0, 32) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1b0eb…1b10b 20 20 20 20 20 20 20 20 20 20 03 00 00 4d 46 49 4c 45 20 20 20 59 4f 55 52 20 46 49 4c 45 20 49 ┆ MFILE YOUR FILE I┆
0x1b10b…1b11a 00 00 00 00 00 00 59 00 00 2a 20 20 20 20 20 ┆ Y * ┆
0x1b11a…1b13a (31, 0, 33) 20 20 07 00 ff 00 0f 00 08 00 0b 00 00 00 06 00 da 40 7c b5 ca 00 00 00 00 00 00 00 00 00 00 00 ┆ @ö ┆
0x1b13a…1b15a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x1b15a…1b169 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x1b169…1b189 (31, 0, 34) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x1b189…1b1a9 00 00 00 00 00 00 00 00 00 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1b1a9…1b1b8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1b1b8…1b1d8 (31, 0, 35) 20 20 20 00 00 14 73 51 79 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ sQy ┆
0x1b1d8…1b1f8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 03 00 00 4d 46 49 4c 45 20 20 20 ┆ MFILE ┆
0x1b1f8…1b207 59 4f 55 52 20 46 49 4c 45 20 49 00 00 00 00 ┆YOUR FILE I ┆
0x1b207…1b227 (31, 0, 36) 00 00 59 00 00 2a 20 20 20 20 20 20 20 07 00 ff 00 0f 00 08 00 0b 00 00 00 06 00 da 40 7c b5 ca ┆ Y * @ö ┆
0x1b227…1b247 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x1b247…1b256 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x1b256…1b276 (31, 0, 37) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x1b276…1b296 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1b296…1b2a5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1b2a5…1b2c5 (31, 0, 38) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 14 73 51 79 20 20 20 20 20 20 20 20 20 20 20 20 ┆ sQy ┆
0x1b2c5…1b2e5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1b2e5…1b2f4 03 00 00 4d 46 49 4c 45 20 20 20 59 4f 55 52 ┆ MFILE YOUR┆
0x1b2f4…1b314 (31, 0, 39) 20 46 49 4c 45 20 49 00 00 00 00 00 00 59 00 00 2a 20 20 20 20 20 20 20 07 00 ff 00 0f 00 08 00 ┆ FILE I Y * ┆
0x1b314…1b334 0b 00 00 00 06 00 da 40 7c b5 ca 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ @ö ┆
0x1b334…1b343 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x1b343…1b363 (31, 0, 40) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x1…]
0x1b383…1b392 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1b392…1b48a (32, 0, 0) DataSector[0xf8]
[…0x36…]
0x1e8da…1e8fa (35, 0, 10) 29 45 44 49 54 28 44 41 54 55 4d 29 28 41 28 31 32 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆)EDIT(DATUM)(A(12)); ┆
0x1e8fa…1e91a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 28 53 55 42 53 54 52 28 44 41 54 55 4d 2c ┆ IF(SUBSTR(DATUM,┆
0x1e91a…1e93a 35 2c 32 29 20 7f 3d 20 44 44 29 20 54 48 45 4e 20 47 4f 20 54 4f 20 50 52 4e 54 3b 20 20 20 20 ┆5,2) = DD) THEN GO TO PRNT; ┆
0x1e93a…1e95a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 ┆ I┆
0x1e95a…1e97a 46 28 44 45 42 45 54 20 7f 3d 20 27 20 20 20 20 27 29 20 54 48 45 4e 20 44 4f 3b 20 20 20 20 20 ┆F(DEBET = ' ') THEN DO; ┆
0x1e97a…1e99a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1e99a…1e9ba 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 45 44 49 54 28 56 45 4e 52 29 28 41 28 31 ┆ PUT EDIT(VENR)(A(1┆
0x1e9ba…1e9d2 30 29 29 20 28 44 45 42 45 54 29 28 41 28 37 29 29 20 28 42 45 4c 4f 50 ┆0)) (DEBET)(A(7)) (BELOP┆
0x1e9d2…1e9f2 (35, 0, 11) 50 29 28 50 27 2d 2d 2d 2d 2d 39 56 2e 39 39 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆P)(P'-----9V.99'); ┆
0x1e9f2…1ea12 20 20 20 20 20 53 55 4d 31 20 3d 20 53 55 4d 31 20 2b 20 42 45 4c 4f 50 50 3b 20 20 20 58 20 3d ┆ SUM1 = SUM1 + BELOPP; X =┆
0x1ea12…1ea32 20 30 3b 20 50 55 54 20 53 4b 49 50 20 4c 49 53 54 28 27 20 20 20 20 20 20 20 20 20 20 20 20 27 ┆ 0; PUT SKIP LIST(' '┆
0x1ea32…1ea52 29 3b 20 20 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 49 46 28 4b 52 45 44 49 54 20 7f 3d ┆); END; IF(KREDIT =┆
0x1ea52…1ea72 20 27 20 20 20 20 27 29 20 54 48 45 4e 20 44 4f 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ' ') THEN DO; ┆
0x1ea72…1ea92 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1ea92…1eab2 20 20 20 50 55 54 20 45 44 49 54 28 56 45 4e 52 29 20 28 41 28 31 30 29 29 20 28 4b 52 45 44 49 ┆ PUT EDIT(VENR) (A(10)) (KREDI┆
0x1eab2…1eaca 54 29 20 28 41 28 31 36 29 29 28 42 45 4c 4f 50 50 29 20 28 50 27 2d 2d ┆T) (A(16))(BELOPP) (P'--┆
0x1eaca…1eaea (35, 0, 12) 2d 2d 2d 2d 2d 39 56 2e 39 39 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 58 20 3d 20 30 3b ┆-----9V.99'); X = 0;┆
0x1eaea…1eb0a 20 20 53 55 4d 32 20 3d 20 53 55 4d 32 20 2b 20 42 45 4c 4f 50 50 3b 20 50 55 54 20 53 4b 49 50 ┆ SUM2 = SUM2 + BELOPP; PUT SKIP┆
0x1eb0a…1eb2a 20 4c 49 53 54 28 27 20 20 20 20 20 20 20 20 20 20 20 20 27 29 3b 20 20 20 20 45 4e 44 3b 20 20 ┆ LIST(' '); END; ┆
0x1eb2a…1eb4a 20 20 20 20 20 20 20 20 20 52 20 3d 20 52 20 2b 20 31 3b 20 49 46 28 52 20 3d 20 34 33 29 20 54 ┆ R = R + 1; IF(R = 43) T┆
0x1eb4a…1eb6a 48 45 4e 20 47 4f 20 54 4f 20 50 52 49 3b 20 20 20 47 4f 20 54 4f 20 53 54 41 52 54 3b 20 20 20 ┆HEN GO TO PRI; GO TO START; ┆
0x1eb6a…1eb8a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 52 4e 54 3a 20 20 49 ┆ PRNT: I┆
0x1eb8a…1ebaa 46 28 53 55 4d 3d 30 20 26 20 53 55 4d 32 20 3d 20 30 29 20 54 48 45 4e 20 47 4f 20 54 4f 20 53 ┆F(SUM=0 & SUM2 = 0) THEN GO TO S┆
0x1ebaa…1ebc2 53 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆S; ┆
0x1ebc2…1ebe2 (35, 0, 13) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 fc dc 12 57 ff dd 00 00 7f bd 81 b0 07 05 ee 57 a6 ┆ W W ┆
0x1ebe2…1ec02 82 a0 12 27 57 46 49 4c c5 c7 2f 57 46 49 58 45 c4 c2 37 57 46 4c 4f 41 d4 c1 00 00 46 52 4f cd ┆ 'WFIL /WFIXE 7WFLOA FRO ┆
0x1ec02…1ec22 d9 45 57 43 41 4c cc 94 4b 57 43 41 d4 dc 52 57 43 48 41 d2 c3 5e 57 43 48 41 52 41 43 54 45 d2 ┆ EWCAL KWCA RWCHA ^WCHARACTE ┆
0x1ec22…1ec42 c3 00 00 43 4c 4f 53 c5 95 2f 70 57 42 49 4e 41 52 d9 c0 00 00 42 d9 d3 12 58 44 43 cc 92 85 57 ┆ CLOS /pWBINAR B XDC W┆
0x1ec42…1ec62 44 45 43 4c 41 52 c5 92 8f 57 44 49 53 50 4c 41 d9 d7 00 00 44 cf 90 98 57 ac 8c a2 57 4c 45 4e ┆DECLAR WDISPLA D W WLEN┆
0x1ec62…1ec82 47 54 c8 0b 30 ae 58 4c 49 53 d4 88 af 57 47 45 d4 8e b4 57 47 cf 8a 00 00 47 4f 54 cf 8b db 59 ┆GT 0 XLIS WGE WG GOT Y┆
0x1ec82…1eca2 53 4b 49 d0 d4 c9 57 53 54 4f d0 91 00 00 53 55 42 53 54 d2 0a 00 00 55 4e 53 50 45 c3 09 00 00 ┆SKI WSTO SUBST UNSPE ┆
0x1eca2…1ecba 56 45 52 49 46 d9 0b 34 00 00 57 52 49 54 c5 96 2c 47 58 46 41 cb 08 45 ┆VERIF 4 WRIT ,GXFA E┆
0x1ecba…1ecda (35, 0, 14) 00 43 47 00 20 57 46 41 4b d4 03 45 00 43 0a 00 75 57 44 41 54 55 cd 03 45 0a 43 06 00 7b 57 44 ┆ CG WFAK E C uWDATU E C äWD┆
0x1ecda…1ecfa 45 42 45 d4 03 45 10 43 0a 00 00 00 4b 52 45 44 49 d4 03 45 1a 43 0a 00 67 57 42 45 4c 4f 50 d0 ┆EBE E C KREDI E C gWBELOP ┆
0x1ecfa…1ed1a 03 45 24 43 0a 00 d9 56 54 45 58 d4 03 45 2e 43 19 00 f9 57 46 41 4b 46 49 4c c5 07 45 47 43 18 ┆ E$C VTEX E.C WFAKFIL EGC ┆
0x1ed1a…1ed3a 00 62 58 52 55 42 b1 03 45 5f 43 1e 00 6e 58 52 55 42 b2 03 45 7d 43 0a 00 7a 58 52 55 42 b3 03 ┆ bXRUB E_C nXRUB EåC zXRUB ┆
0x1ed3a…1ed5a 45 87 43 28 00 86 58 52 55 42 b4 03 45 af 43 2d 00 00 00 52 55 42 b5 03 45 dc 43 05 00 d2 57 35 ┆E C( XRUB E C- RUB E C W5┆
0x1ed5a…1ed7a b0 00 45 e1 43 02 00 ed 58 b9 00 45 e3 43 02 00 bd 56 b2 00 45 e5 43 02 00 00 00 4c 4f 4f 50 b1 ┆ E C X E C V E C LOOP ┆
0x1ed7a…1ed9a 06 45 e7 43 02 00 4f 4f a4 56 b0 00 45 e9 43 02 00 b2 59 27 46 41 4b 54 55 52 41 4e 55 4d 4d 45 ┆ E C OO V E C Y'FAKTURANUMME┆
0x1ed9a…1edb2 52 2c 20 4f 4d 20 53 4c 55 54 20 39 39 39 39 39 39 a7 03 45 eb 43 1d 00 ┆R, OM SLUT 999999 E C ┆
0x1edb2…1edd2 (36, 0, 0) 44 43 4c 20 31 20 42 4f 4b 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆DCL 1 BOK, ┆
0x1edd2…1edf2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1edf2…1ee12 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 20 56 45 4e 52 20 43 48 41 52 28 36 ┆ 2 VENR CHAR(6┆
0x1ee12…1ee32 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 20 ┆), ┆
0x1ee32…1ee52 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1ee52…1ee72 20 20 32 20 44 41 54 55 4d 20 43 48 41 52 28 36 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 DATUM CHAR(6), ┆
0x1ee72…1ee92 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1ee92…1eeaa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 20 4b 4f 53 54 53 ┆ 2 KOSTS┆
0x1eeaa…1eeca (36, 0, 1) 54 20 43 48 41 52 28 34 29 49 4e 49 54 28 27 20 20 20 20 27 29 2c 20 20 20 20 20 20 20 20 20 20 ┆T CHAR(4)INIT(' '), ┆
0x1eeca…1eeea 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1eeea…1ef0a 20 20 20 20 20 20 20 20 32 20 44 45 42 45 54 20 43 48 41 52 28 34 29 49 4e 49 54 28 27 20 20 20 ┆ 2 DEBET CHAR(4)INIT(' ┆
0x1ef0a…1ef2a 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 20 20 20 ┆ '), ┆
0x1ef2a…1ef4a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 20 4b 52 45 44 49 54 20 ┆ 2 KREDIT ┆
0x1ef4a…1ef6a 43 48 41 52 28 34 29 49 4e 49 54 28 27 20 20 20 20 27 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 ┆CHAR(4)INIT(' '), ┆
0x1ef6a…1ef8a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1ef8a…1efa2 20 20 20 20 20 20 32 20 42 45 4c 4f 50 50 20 46 49 58 45 44 28 31 31 2c ┆ 2 BELOPP FIXED(11,┆
0x1efa2…1efc2 (36, 0, 2) 32 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 ┆2), ┆
0x1efc2…1efe2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 20 56 ┆ 2 V┆
0x1efe2…1f002 54 45 58 54 20 43 48 41 52 28 32 30 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆TEXT CHAR(20), ┆
0x1f002…1f022 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1f022…1f042 20 20 20 20 20 20 20 20 20 20 20 20 20 32 20 4b 4f 44 20 43 48 41 52 28 32 29 49 4e 49 54 28 27 ┆ 2 KOD CHAR(2)INIT('┆
0x1f042…1f062 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 20 20 ┆ '); ┆
0x1f062…1f082 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 43 4c 20 52 55 42 31 20 ┆ DCL RUB1 ┆
0x1f082…1f09a 43 48 41 52 28 35 30 29 49 4e 49 54 28 27 4d 20 20 53 20 54 20 45 20 4e ┆CHAR(50)INIT('M S T E N┆
0x1f09a…1f0ba (36, 0, 3) 20 48 20 41 20 52 20 44 20 54 20 20 41 20 42 20 20 20 20 20 20 20 20 50 52 4f 47 52 3a 20 41 31 ┆ H A R D T A B PROGR: A1┆
0x1f0ba…1f0da 30 35 20 27 29 3b 20 20 20 20 20 20 20 20 44 43 4c 20 52 55 42 32 20 43 48 41 52 28 35 30 29 49 ┆05 '); DCL RUB2 CHAR(50)I┆
0x1f0da…1f0fa 4e 49 54 28 27 52 20 45 20 56 20 49 20 53 20 49 20 4f 20 4e 20 53 20 4c 20 49 20 53 20 54 20 41 ┆NIT('R E V I S I O N S L I S T A┆
0x1f0fa…1f11a 20 20 20 20 50 45 52 49 4f 44 20 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 43 4c ┆ PERIOD '); DCL┆
0x1f11a…1f13a 20 52 55 42 33 20 43 48 41 52 28 35 30 29 49 4e 49 54 28 27 20 20 44 41 54 55 4d 20 20 56 45 52 ┆ RUB3 CHAR(50)INIT(' DATUM VER┆
0x1f13a…1f15a 49 46 49 4b 41 54 20 20 20 4b 4f 4e 54 4f 20 20 20 20 20 20 20 44 45 42 45 54 20 20 20 20 4b 52 ┆IFIKAT KONTO DEBET KR┆
0x1f15a…1f17a 45 44 49 54 27 29 3b 20 20 20 20 20 44 43 4c 20 52 55 42 33 41 20 43 48 41 52 28 33 30 29 49 4e ┆EDIT'); DCL RUB3A CHAR(30)IN┆
0x1f17a…1f192 49 54 28 27 20 20 20 20 44 49 46 46 45 52 45 4e 53 27 29 3b 20 20 20 20 ┆IT(' DIFFERENS'); ┆
0x1f192…1f1b2 (36, 0, 4) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1f1b2…1f1d2 20 20 20 44 43 4c 20 56 45 52 49 46 49 4c 45 20 46 49 4c 45 3b 20 20 4f 50 45 4e 20 56 45 52 49 ┆ DCL VERIFILE FILE; OPEN VERI┆
0x1f1d2…1f1f2 46 49 4c 45 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 ┆FILE; ┆
0x1f1f2…1f212 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 43 4c 20 44 41 54 20 43 48 41 52 28 38 ┆ DCL DAT CHAR(8┆
0x1f212…1f232 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 ┆); ┆
0x1f232…1f252 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1f252…1f272 20 44 43 4c 20 50 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 P CHAR(2); ┆
0x1f272…1f28a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1f28a…1f2aa (36, 0, 5) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 ┆ PUT FILE┆
0x1f2aa…1f2ca 28 44 49 53 50 29 20 53 4b 49 50 20 4c 49 53 54 28 27 48 41 52 20 44 55 20 53 4f 52 54 45 52 41 ┆(DISP) SKIP LIST('HAR DU SORTERA┆
0x1f2ca…1f2ea 54 20 56 45 52 49 46 49 4c 45 20 50 5d 20 44 41 54 55 4d 20 21 20 20 4f 4d 20 49 4e 54 45 20 42 ┆T VERIFILE PÅ DATUM ! OM INTE B┆
0x1f2ea…1f30a 5c 52 4a 41 27 29 3b 50 55 54 20 46 49 4c 45 28 44 49 53 50 29 4c 49 53 54 28 27 20 46 52 5d 4e ┆ÖRJA');PUT FILE(DISP)LIST(' FRÅN┆
0x1f30a…1f32a 20 42 5c 52 4a 41 4e 20 41 4e 4e 41 52 53 20 53 4c 5d 20 49 4e 20 45 4e 20 45 54 54 41 20 20 27 ┆ BÖRJAN ANNARS SLÅ IN EN ETTA '┆
0x1f32a…1f34a 29 3b 47 45 54 20 4c 49 53 54 28 41 29 3b 20 20 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 28 44 ┆);GET LIST(A); PUT FILE(D┆
0x1f34a…1f36a 49 53 50 29 20 53 4b 49 50 20 4c 49 53 54 28 27 41 4e 47 45 20 50 45 52 49 4f 44 20 28 3d 4d 5d ┆ISP) SKIP LIST('ANGE PERIOD (=MÅ┆
0x1f36a…1f382 4e 41 44 29 20 20 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆NAD) '); ┆
0x1f382…1f3a2 (36, 0, 6) 20 20 20 20 20 20 20 20 20 20 20 20 20 47 45 54 20 4c 49 53 54 28 50 29 3b 20 20 20 20 20 20 20 ┆ GET LIST(P); ┆
0x1f3a2…1f3c2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1f3c2…1f3e2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 ┆ PUT ┆
0x1f3e2…1f402 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 41 47 45 4e ┆FILE(DISP) SKIP LIST('ANGE DAGEN┆
0x1f402…1f422 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 20 20 20 20 ┆S DATUM '); ┆
0x1f422…1f442 20 20 20 20 20 20 20 20 20 20 20 47 45 54 20 4c 49 53 54 28 44 41 54 29 3b 20 20 20 20 20 20 20 ┆ GET LIST(DAT); ┆
0x1f442…1f462 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1f462…1f47a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1f47a…1f49a (36, 0, 7) 20 20 53 55 4d 20 3d 20 30 2e 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ SUM = 0.; ┆
0x1f49a…1f4ba 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1f4ba…1f4da 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 28 33 29 45 44 49 54 ┆ PUT SKIP(3)EDIT┆
0x1f4da…1f4fa 28 52 55 42 31 29 28 41 28 35 30 29 29 3b 50 55 54 20 4c 49 53 54 28 52 55 42 32 29 3b 20 50 55 ┆(RUB1)(A(50));PUT LIST(RUB2); PU┆
0x1f4fa…1f51a 54 20 45 44 49 54 28 50 29 28 41 28 31 30 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆T EDIT(P)(A(10)); ┆
0x1f51a…1f53a 50 55 54 20 4c 49 53 54 28 27 44 41 54 55 4d 20 20 20 27 29 3b 20 50 55 54 20 45 44 49 54 28 44 ┆PUT LIST('DATUM '); PUT EDIT(D┆
0x1f53a…1f55a 41 54 29 28 41 28 31 30 29 29 3b 20 20 20 20 50 55 54 20 53 4b 49 50 28 32 29 4c 49 53 54 28 52 ┆AT)(A(10)); PUT SKIP(2)LIST(R┆
0x1f55a…1f572 55 42 33 2c 52 55 42 33 41 29 3b 20 20 20 20 53 53 55 4d 20 3d 20 30 3b ┆UB3,RUB3A); SSUM = 0;┆
0x1f572…1f592 (36, 0, 8) 20 20 53 53 53 55 20 3d 20 30 3b 20 20 53 55 4d 31 20 3d 20 30 3b 20 20 53 55 4d 32 20 3d 20 30 ┆ SSSU = 0; SUM1 = 0; SUM2 = 0┆
0x1f592…1f5b2 3b 20 20 44 43 4c 20 42 20 43 48 41 52 28 32 29 49 4e 49 54 28 27 30 31 27 29 3b 20 58 3d 20 31 ┆; DCL B CHAR(2)INIT('01'); X= 1┆
0x1f5b2…1f5d2 3b 20 20 20 20 20 44 43 4c 20 44 44 20 43 48 41 52 28 32 29 49 4e 49 54 28 27 30 31 27 29 3b 20 ┆; DCL DD CHAR(2)INIT('01'); ┆
0x1f5d2…1f5f2 52 20 3d 20 35 3b 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 ┆R = 5; X = 0; ┆
0x1f5f2…1f612 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 54 41 52 54 3a 20 20 20 20 20 ┆ START: ┆
0x1f612…1f632 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
[…0x1…]
0x1f652…1f66a 20 20 20 20 4f 4e 20 45 4e 44 46 49 4c 45 20 47 4f 20 54 4f 20 53 4c 55 ┆ ON ENDFILE GO TO SLU┆
0x1f66a…1f68a (36, 0, 9) 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; ┆
0x1f68a…1f6aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 41 44 20 ┆ READ ┆
0x1f6aa…1f6ca 46 49 4c 45 28 56 45 52 49 46 49 4c 45 29 49 4e 54 4f 20 28 42 4f 4b 29 3b 20 20 20 20 20 20 20 ┆FILE(VERIFILE)INTO (BOK); ┆
0x1f6ca…1f6ea 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1f6ea…1f70a 20 20 20 20 20 20 20 20 20 20 49 46 28 53 55 42 53 54 52 28 44 41 54 55 4d 2c 33 2c 32 29 20 7f ┆ IF(SUBSTR(DATUM,3,2) ┆
0x1f70a…1f72a 3d 20 50 29 20 54 48 45 4e 20 47 4f 20 54 4f 20 53 54 41 52 54 3b 20 20 20 20 20 20 20 20 20 20 ┆= P) THEN GO TO START; ┆
0x1f72a…1f74a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4f 4d 3a 20 20 20 20 ┆ OM: ┆
0x1f74a…1f762 49 46 28 58 20 3d 20 31 29 54 48 45 4e 20 50 55 54 20 53 4b 49 50 28 32 ┆IF(X = 1)THEN PUT SKIP(2┆
0x1f762…1f782 (36, 0, 10) 29 45 44 49 54 28 44 41 54 55 4d 29 28 41 28 31 32 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆)EDIT(DATUM)(A(12)); ┆
0x1f782…1f7a2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 28 53 55 42 53 54 52 28 44 41 54 55 4d 2c ┆ IF(SUBSTR(DATUM,┆
0x1f7a2…1f7c2 35 2c 32 29 20 7f 3d 20 44 44 29 20 54 48 45 4e 20 47 4f 20 54 4f 20 50 52 4e 54 3b 20 20 20 20 ┆5,2) = DD) THEN GO TO PRNT; ┆
0x1f7c2…1f7e2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 ┆ I┆
0x1f7e2…1f802 46 28 44 45 42 45 54 20 7f 3d 20 27 20 20 20 20 27 29 20 54 48 45 4e 20 44 4f 3b 20 20 20 20 20 ┆F(DEBET = ' ') THEN DO; ┆
0x1f802…1f822 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1f822…1f842 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 45 44 49 54 28 56 45 4e 52 29 28 41 28 31 ┆ PUT EDIT(VENR)(A(1┆
0x1f842…1f85a 30 29 29 20 28 44 45 42 45 54 29 28 41 28 37 29 29 20 28 42 45 4c 4f 50 ┆0)) (DEBET)(A(7)) (BELOP┆
0x1f85a…1f87a (36, 0, 11) 50 29 28 50 27 2d 2d 2d 2d 2d 39 56 2e 39 39 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆P)(P'-----9V.99'); ┆
0x1f87a…1f89a 20 20 20 20 20 53 55 4d 31 20 3d 20 53 55 4d 31 20 2b 20 42 45 4c 4f 50 50 3b 20 20 20 58 20 3d ┆ SUM1 = SUM1 + BELOPP; X =┆
0x1f89a…1f8ba 20 30 3b 20 50 55 54 20 53 4b 49 50 20 4c 49 53 54 28 27 20 20 20 20 20 20 20 20 20 20 20 20 27 ┆ 0; PUT SKIP LIST(' '┆
0x1f8ba…1f8da 29 3b 20 20 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 49 46 28 4b 52 45 44 49 54 20 7f 3d ┆); END; IF(KREDIT =┆
0x1f8da…1f8fa 20 27 20 20 20 20 27 29 20 54 48 45 4e 20 44 4f 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ' ') THEN DO; ┆
0x1f8fa…1f91a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1f91a…1f93a 20 20 20 50 55 54 20 45 44 49 54 28 56 45 4e 52 29 20 28 41 28 31 30 29 29 20 28 4b 52 45 44 49 ┆ PUT EDIT(VENR) (A(10)) (KREDI┆
0x1f93a…1f952 54 29 20 28 41 28 31 36 29 29 28 42 45 4c 4f 50 50 29 20 28 50 27 2d 2d ┆T) (A(16))(BELOPP) (P'--┆
0x1f952…1f972 (36, 0, 12) 2d 2d 2d 2d 2d 39 56 2e 39 39 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 58 20 3d 20 30 3b ┆-----9V.99'); X = 0;┆
0x1f972…1f992 20 20 53 55 4d 32 20 3d 20 53 55 4d 32 20 2b 20 42 45 4c 4f 50 50 3b 20 50 55 54 20 53 4b 49 50 ┆ SUM2 = SUM2 + BELOPP; PUT SKIP┆
0x1f992…1f9b2 20 4c 49 53 54 28 27 20 20 20 20 20 20 20 20 20 20 20 20 27 29 3b 20 20 20 20 45 4e 44 3b 20 20 ┆ LIST(' '); END; ┆
0x1f9b2…1f9d2 20 20 20 20 20 20 20 20 20 52 20 3d 20 52 20 2b 20 31 3b 20 49 46 28 52 20 3d 20 34 33 29 20 54 ┆ R = R + 1; IF(R = 43) T┆
0x1f9d2…1f9f2 48 45 4e 20 47 4f 20 54 4f 20 50 52 49 3b 20 20 20 47 4f 20 54 4f 20 53 54 41 52 54 3b 20 20 20 ┆HEN GO TO PRI; GO TO START; ┆
0x1f9f2…1fa12 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 52 4e 54 3a 20 20 49 ┆ PRNT: I┆
0x1fa12…1fa32 46 28 53 55 4d 3d 30 20 26 20 53 55 4d 32 20 3d 20 30 29 20 54 48 45 4e 20 47 4f 20 54 4f 20 53 ┆F(SUM=0 & SUM2 = 0) THEN GO TO S┆
0x1fa32…1fa4a 53 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆S; ┆
0x1fa4a…1fa6a (36, 0, 13) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 fc dc 12 57 ff dd 00 00 7f bd 81 b0 07 05 ee 57 a6 ┆ W W ┆
0x1fa6a…1fa8a 82 a0 12 27 57 46 49 4c c5 c7 2f 57 46 49 58 45 c4 c2 37 57 46 4c 4f 41 d4 c1 00 00 46 52 4f cd ┆ 'WFIL /WFIXE 7WFLOA FRO ┆
0x1fa8a…1faaa d9 45 57 43 41 4c cc 94 4b 57 43 41 d4 dc 52 57 43 48 41 d2 c3 5e 57 43 48 41 52 41 43 54 45 d2 ┆ EWCAL KWCA RWCHA ^WCHARACTE ┆
0x1faaa…1faca c3 00 00 43 4c 4f 53 c5 95 2f 70 57 42 49 4e 41 52 d9 c0 00 00 42 d9 d3 12 58 44 43 cc 92 85 57 ┆ CLOS /pWBINAR B XDC W┆
0x1faca…1faea 44 45 43 4c 41 52 c5 92 8f 57 44 49 53 50 4c 41 d9 d7 00 00 44 cf 90 98 57 ac 8c a2 57 4c 45 4e ┆DECLAR WDISPLA D W WLEN┆
0x1faea…1fb0a 47 54 c8 0b 30 ae 58 4c 49 53 d4 88 af 57 47 45 d4 8e b4 57 47 cf 8a 00 00 47 4f 54 cf 8b db 59 ┆GT 0 XLIS WGE WG GOT Y┆
0x1fb0a…1fb2a 53 4b 49 d0 d4 c9 57 53 54 4f d0 91 00 00 53 55 42 53 54 d2 0a 00 00 55 4e 53 50 45 c3 09 00 00 ┆SKI WSTO SUBST UNSPE ┆
0x1fb2a…1fb42 56 45 52 49 46 d9 0b 34 00 00 57 52 49 54 c5 96 2c 47 58 46 41 cb 08 45 ┆VERIF 4 WRIT ,GXFA E┆
0x1fb42…1fb62 (36, 0, 14) 00 43 47 00 20 57 46 41 4b d4 03 45 00 43 0a 00 75 57 44 41 54 55 cd 03 45 0a 43 06 00 7b 57 44 ┆ CG WFAK E C uWDATU E C äWD┆
0x1fb62…1fb82 45 42 45 d4 03 45 10 43 0a 00 00 00 4b 52 45 44 49 d4 03 45 1a 43 0a 00 67 57 42 45 4c 4f 50 d0 ┆EBE E C KREDI E C gWBELOP ┆
0x1fb82…1fba2 03 45 24 43 0a 00 d9 56 54 45 58 d4 03 45 2e 43 19 00 f9 57 46 41 4b 46 49 4c c5 07 45 47 43 18 ┆ E$C VTEX E.C WFAKFIL EGC ┆
0x1fba2…1fbc2 00 62 58 52 55 42 b1 03 45 5f 43 1e 00 6e 58 52 55 42 b2 03 45 7d 43 0a 00 7a 58 52 55 42 b3 03 ┆ bXRUB E_C nXRUB EåC zXRUB ┆
0x1fbc2…1fbe2 45 87 43 28 00 86 58 52 55 42 b4 03 45 af 43 2d 00 00 00 52 55 42 b5 03 45 dc 43 05 00 d2 57 35 ┆E C( XRUB E C- RUB E C W5┆
0x1fbe2…1fc02 b0 00 45 e1 43 02 00 ed 58 b9 00 45 e3 43 02 00 bd 56 b2 00 45 e5 43 02 00 00 00 4c 4f 4f 50 b1 ┆ E C X E C V E C LOOP ┆
0x1fc02…1fc22 06 45 e7 43 02 00 4f 4f a4 56 b0 00 45 e9 43 02 00 b2 59 27 46 41 4b 54 55 52 41 4e 55 4d 4d 45 ┆ E C OO V E C Y'FAKTURANUMME┆
0x1fc22…1fc3a 52 2c 20 4f 4d 20 53 4c 55 54 20 39 39 39 39 39 39 a7 03 45 eb 43 1d 00 ┆R, OM SLUT 999999 E C ┆
0x1fc3a…1fc89 (37, 0, 0) DataSector[0x4f]
[…0x37…]
0x20d82…20da2 (38, 0, 15) 20 20 20 20 32 20 4b 53 41 4c 44 4f 28 31 32 29 20 46 49 58 45 44 28 31 30 2c 32 29 3b 20 20 20 ┆ 2 KSALDO(12) FIXED(10,2); ┆
0x20da2…20dc2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x20dc2…20dd1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x20dd1…20df1 (38, 0, 16) 44 43 4c 20 56 45 52 49 46 49 4c 45 20 46 49 4c 45 3b 20 20 20 44 43 4c 20 42 4b 4f 4e 54 4f 20 ┆DCL VERIFILE FILE; DCL BKONTO ┆
0x20df1…20e11 46 49 4c 45 3b 20 20 44 43 4c 20 53 41 4c 52 45 47 20 46 49 4c 45 3b 20 20 20 20 20 20 20 20 20 ┆FILE; DCL SALREG FILE; ┆
0x20e11…20e20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x20e20…20e40 (38, 0, 17) 44 43 4c 20 52 55 42 31 20 43 48 41 52 28 35 30 29 49 4e 49 54 28 27 4d 20 20 53 20 54 20 45 20 ┆DCL RUB1 CHAR(50)INIT('M S T E ┆
0x20e40…20e60 4e 20 48 20 41 20 52 20 44 20 54 20 20 41 20 42 20 20 20 20 20 20 20 20 50 52 4f 47 52 3a 20 41 ┆N H A R D T A B PROGR: A┆
0x20e60…20e6f 31 30 31 27 29 3b 20 20 20 20 20 20 20 20 20 ┆101'); ┆
0x20e6f…20e8f (38, 0, 18) 44 43 4c 20 52 55 42 32 20 43 48 41 52 28 35 35 29 49 4e 49 54 28 27 20 20 20 20 20 20 20 20 20 ┆DCL RUB2 CHAR(55)INIT(' ┆
0x20e8f…20eaf 20 20 20 20 20 20 20 20 48 20 55 20 56 20 55 20 44 20 42 20 4f 20 4b 20 20 20 20 20 20 20 20 20 ┆ H U V U D B O K ┆
0x20eaf…20ebe 20 20 44 41 54 55 4d 20 27 29 3b 20 20 20 20 ┆ DATUM '); ┆
0x20ebe…20ede (38, 0, 19) 44 43 4c 20 52 55 42 33 20 43 48 41 52 28 35 30 29 49 4e 49 54 28 27 4b 4f 4e 54 4f 20 20 20 42 ┆DCL RUB3 CHAR(50)INIT('KONTO B┆
0x20ede…20efe 45 4e 5b 4d 4e 49 4e 47 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ENÄMNING'); ┆
0x20efe…20f0d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x20f0d…20f2d (38, 0, 20) 44 43 4c 20 52 55 42 34 20 43 48 41 52 28 34 30 29 49 4e 49 54 28 27 54 45 58 54 27 29 3b 20 20 ┆DCL RUB4 CHAR(40)INIT('TEXT'); ┆
0x20f2d…20f4d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x20f4d…20f5c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x20f5c…20f7c (38, 0, 21) 44 43 4c 20 52 55 42 35 20 43 48 41 52 28 35 35 29 49 4e 49 54 28 27 56 45 52 49 46 2e 4e 52 20 ┆DCL RUB5 CHAR(55)INIT('VERIF.NR ┆
0x20f7c…20f9c 20 20 20 44 41 54 55 4d 20 20 20 20 20 20 44 45 42 45 54 20 20 20 20 20 20 4b 52 45 44 49 54 20 ┆ DATUM DEBET KREDIT ┆
0x20f9c…20fab 20 20 20 20 20 53 41 4c 44 4f 27 29 3b 20 20 ┆ SALDO'); ┆
0x20fab…20fcb (38, 0, 22) 44 43 4c 20 44 41 54 20 43 48 41 52 28 38 29 3b 20 50 55 54 20 46 49 4c 45 28 44 49 53 50 29 53 ┆DCL DAT CHAR(8); PUT FILE(DISP)S┆
0x20fcb…20feb 4b 49 50 20 4c 49 53 54 28 27 41 4e 47 45 20 44 41 54 55 4d 20 27 29 3b 20 47 45 54 20 4c 49 53 ┆KIP LIST('ANGE DATUM '); GET LIS┆
0x20feb…20ffa 54 28 44 41 54 29 3b 20 20 20 20 20 20 20 20 ┆T(DAT); ┆
0x20ffa…2101a (38, 0, 23) 50 55 54 20 53 4b 49 50 28 33 29 20 45 44 49 54 28 52 55 42 31 29 20 28 41 28 35 30 29 29 20 28 ┆PUT SKIP(3) EDIT(RUB1) (A(50)) (┆
0x2101a…2103a 52 55 42 32 29 20 28 41 28 35 30 29 29 20 28 44 41 54 29 20 28 41 28 31 35 29 29 3b 50 55 54 20 ┆RUB2) (A(50)) (DAT) (A(15));PUT ┆
0x2103a…21049 4c 49 53 54 28 27 53 49 44 41 27 29 3b 20 20 ┆LIST('SIDA'); ┆
0x21049…21069 (38, 0, 24) 53 20 3d 20 31 3b 20 20 50 55 54 20 45 44 49 54 28 53 29 20 28 50 27 5a 5a 5a 27 29 3b 20 20 20 ┆S = 1; PUT EDIT(S) (P'ZZZ'); ┆
0x21069…21089 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x21089…21098 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x21098…210b8 (38, 0, 25) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 28 32 29 20 45 44 49 54 28 52 55 42 33 29 20 28 ┆ PUT SKIP(2) EDIT(RUB3) (┆
0x210b8…210d8 41 28 34 30 29 29 20 28 52 55 42 34 29 20 28 41 28 32 35 29 29 3b 50 55 54 20 4c 49 53 54 28 52 ┆A(40)) (RUB4) (A(25));PUT LIST(R┆
0x210d8…210e7 55 42 35 29 3b 20 20 20 20 20 20 20 20 20 20 ┆UB5); ┆
0x210e7…21107 (38, 0, 26) 50 55 54 20 53 4b 49 50 28 32 29 20 4c 49 53 54 28 27 20 27 29 3b 20 20 20 20 20 20 20 20 20 20 ┆PUT SKIP(2) LIST(' '); ┆
0x21107…21127 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x21127…21136 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x21136…21156 (38, 0, 27) 4f 50 45 4e 20 56 45 52 49 46 49 4c 45 3b 20 20 4f 50 45 4e 20 42 4b 4f 4e 54 4f 3b 20 20 4f 50 ┆OPEN VERIFILE; OPEN BKONTO; OP┆
0x21156…21176 45 4e 20 53 41 4c 52 45 47 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆EN SALREG; ┆
0x21176…21185 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x21185…211a5 (38, 0, 28) 44 43 4c 20 53 55 4d 31 20 46 49 58 45 44 28 31 31 2c 32 29 20 49 4e 49 54 28 30 29 2c 20 20 53 ┆DCL SUM1 FIXED(11,2) INIT(0), S┆
0x211a5…211c5 55 4d 32 20 46 49 58 45 44 28 31 31 2c 32 29 49 4e 49 54 28 30 29 3b 20 20 20 20 20 20 20 20 20 ┆UM2 FIXED(11,2)INIT(0); ┆
0x211c5…211d4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x211d4…211f4 (38, 0, 29) 44 43 4c 20 54 4f 54 53 31 20 46 49 58 45 44 28 31 32 2c 32 29 49 4e 49 54 28 30 29 2c 20 54 4f ┆DCL TOTS1 FIXED(12,2)INIT(0), TO┆
0x211f4…21214 54 53 32 20 46 49 58 45 44 28 31 32 2c 32 29 49 4e 49 54 28 30 29 3b 20 20 20 20 20 20 20 20 20 ┆TS2 FIXED(12,2)INIT(0); ┆
0x21214…21223 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x21223…21243 (38, 0, 30) 44 43 4c 20 53 41 4c 20 46 49 58 45 44 28 31 31 2c 32 29 49 4e 49 54 28 30 29 2c 20 20 54 4f 54 ┆DCL SAL FIXED(11,2)INIT(0), TOT┆
0x21243…21263 53 41 4c 20 46 49 58 45 44 28 31 31 2c 32 29 49 4e 49 54 28 30 29 3b 20 20 20 20 20 20 20 20 20 ┆SAL FIXED(11,2)INIT(0); ┆
0x21263…21272 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x21272…21292 (38, 0, 31) 52 41 44 52 20 3d 20 36 3b 20 20 20 20 44 43 4c 20 4d 41 4e 20 43 48 41 52 28 32 29 3b 20 41 20 ┆RADR = 6; DCL MAN CHAR(2); A ┆
0x21292…212b2 3d 20 30 3b 20 42 20 3d 20 30 3b 20 44 43 4c 20 43 20 43 48 41 52 28 31 29 49 4e 49 54 28 27 20 ┆= 0; B = 0; DCL C CHAR(1)INIT(' ┆
0x212b2…212c1 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆'); ┆
0x212c1…212e1 (38, 0, 32) 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┆
0x212e1…21301 4b 54 55 45 4c 4c 20 4d 5d 4e 41 44 20 27 29 3b 20 47 45 54 20 4c 49 53 54 28 4d 41 4e 29 3b 20 ┆KTUELL MÅNAD '); GET LIST(MAN); ┆
0x21301…21310 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x21310…21330 (38, 0, 33) 53 54 41 52 54 3a 20 20 4f 4e 20 45 4e 44 46 49 4c 45 20 47 4f 20 54 4f 20 53 4c 55 54 3b 20 20 ┆START: ON ENDFILE GO TO SLUT; ┆
0x21330…21350 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x21350…2135f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2135f…2137f (38, 0, 34) 52 45 41 44 20 46 49 4c 45 28 42 4b 4f 4e 54 4f 29 20 49 4e 54 4f 28 42 4f 4b 29 3b 20 20 20 20 ┆READ FILE(BKONTO) INTO(BOK); ┆
0x2137f…2139f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4f 50 45 4e 20 56 45 52 49 46 ┆ OPEN VERIF┆
0x2139f…213ae 49 4c 45 3b 20 20 20 20 20 20 20 20 20 20 20 ┆ILE; ┆
0x213ae…213ce (38, 0, 35) 4f 4d 49 47 3a 20 20 20 4f 4e 20 45 4e 44 46 49 4c 45 20 47 4f 20 54 4f 20 50 52 49 3b 20 20 20 ┆OMIG: ON ENDFILE GO TO PRI; ┆
0x213ce…213ee 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x213ee…213fd 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x213fd…2141d (38, 0, 36) 52 45 41 44 20 46 49 4c 45 28 56 45 52 49 46 49 4c 45 29 20 49 4e 54 4f 28 56 45 52 29 3b 20 20 ┆READ FILE(VERIFILE) INTO(VER); ┆
0x2141d…2143d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2143d…2144c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2144c…2146c (38, 0, 37) 49 46 28 53 55 42 53 54 52 28 44 41 54 55 4d 2c 33 2c 32 29 20 7f 3d 20 4d 41 4e 29 20 54 48 45 ┆IF(SUBSTR(DATUM,3,2) = MAN) THE┆
0x2146c…2148c 4e 20 47 4f 20 54 4f 20 4f 4d 49 47 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆N GO TO OMIG; ┆
0x2148c…2149b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2149b…214bb (38, 0, 38) 49 46 28 44 45 42 45 54 20 20 3d 20 4b 4f 4e 54 4f 4e 52 20 29 20 54 48 45 4e 20 47 4f 20 54 4f ┆IF(DEBET = KONTONR ) THEN GO TO┆
0x214bb…214db 20 44 45 42 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 ┆ DEB; ┆
0x214db…214ea 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x214ea…2150a (38, 0, 39) 49 46 28 4b 52 45 44 49 54 20 20 3d 20 4b 4f 4e 54 4f 4e 52 29 20 54 48 45 4e 20 47 4f 20 54 4f ┆IF(KREDIT = KONTONR) THEN GO TO┆
0x2150a…2152a 20 4b 52 45 44 3b 20 20 20 20 20 20 47 4f 20 54 4f 20 4f 4d 49 47 3b 20 20 20 20 20 20 20 20 20 ┆ KRED; GO TO OMIG; ┆
0x2152a…21539 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x21539…21559 (38, 0, 40) 44 45 42 3a 41 20 3d 20 41 20 2b 20 31 3b 20 20 20 53 55 4d 31 20 3d 20 53 55 4d 31 20 2b 20 42 ┆DEB:A = A + 1; SUM1 = SUM1 + B┆
0x21559…21579 45 4c 4f 50 50 3b 20 20 54 4f 54 53 31 20 3d 20 54 4f 54 53 31 20 2b 20 42 45 4c 4f 50 50 3b 20 ┆ELOPP; TOTS1 = TOTS1 + BELOPP; ┆
0x21579…21588 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x21588…215d7 (39, 0, 0) DataSector[0x4f]
[…0x4a…]
0x22cad…22ccd (40, 0, 34) 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 4f 4d 20 52 5b 54 ┆PUT FILE(DISP) SKIP LIST('OM RÄT┆
0x22ccd…22ced 54 20 54 52 59 43 4b 20 50 5d 20 47 4f 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆T TRYCK PÅ GO'); ┆
0x22ced…22cfc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x22cfc…22d1c (40, 0, 35) 30 20 20 20 20 20 20 20 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 ┆
0x22d1c…22d3c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x22d3c…22d4b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x22d4b…22d9a (40, 0, 36) 0x20[0x4f]
0x22d9a…22dba (40, 0, 37) 43 41 4c 4c 20 53 45 4f 46 28 46 41 4b 46 49 4c 45 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆CALL SEOF(FAKFILE); ┆
0x22dba…22dda 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x22dda…22de9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x22de9…22e09 (40, 0, 38) 57 52 49 54 45 20 46 49 4c 45 28 46 41 4b 46 49 4c 45 29 20 46 52 4f 4d 20 46 41 4b 3b 20 20 20 ┆WRITE FILE(FAKFILE) FROM FAK; ┆
0x22e09…22e29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x22e29…22e38 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x22e38…22e58 (40, 0, 39) 43 4c 4f 53 45 20 46 41 4b 46 49 4c 45 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆CLOSE FAKFILE; ┆
0x22e58…22e78 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x22e78…22e87 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x22e87…22ea7 (40, 0, 40) 4f 50 45 4e 20 46 41 4b 46 49 4c 45 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆OPEN FAKFILE; ┆
0x22ea7…22ec7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x22ec7…22ed6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x22ed6…22ef6 (41, 0, 0) 44 43 4c 20 31 20 42 4f 4b 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆DCL 1 BOK, ┆
0x22ef6…22f16 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x22f16…22f25 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x22f25…22f45 (41, 0, 1) 20 20 20 20 32 20 4b 4f 4e 54 4f 4e 52 20 43 48 41 52 28 34 29 2c 20 20 20 20 20 20 20 20 20 20 ┆ 2 KONTONR CHAR(4), ┆
0x22f45…22f65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x22f65…22f74 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x22f74…22f94 (41, 0, 2) 20 20 20 20 32 20 54 45 58 54 20 43 48 41 52 28 32 35 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 TEXT CHAR(25); ┆
0x22f94…22fb4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x22fb4…22fc3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x22fc3…22fe3 (41, 0, 3) 44 43 4c 20 42 4b 4f 4e 54 4f 20 46 49 4c 45 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆DCL BKONTO FILE; ┆
0x22fe3…23003 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x23003…23012 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x23012…23032 (41, 0, 4) 44 43 4c 20 52 55 42 31 20 43 48 41 52 28 35 30 29 20 49 4e 49 54 49 41 4c 28 27 4d 20 20 53 20 ┆DCL RUB1 CHAR(50) INITIAL('M S ┆
0x23032…23052 54 20 45 20 4e 20 48 20 41 20 52 20 44 20 54 20 20 41 20 42 27 29 3b 20 20 20 20 20 20 20 20 20 ┆T E N H A R D T A B'); ┆
0x23052…23061 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x23061…23081 (41, 0, 5) 44 43 4c 20 52 55 42 32 20 43 48 41 52 28 35 30 29 20 49 4e 49 54 49 41 4c 28 27 55 50 50 4c 5b ┆DCL RUB2 CHAR(50) INITIAL('UPPLÄ┆
0x23081…230a1 47 47 4e 49 4e 47 20 41 56 20 4b 4f 4e 54 4f 4e 55 4d 4d 45 52 20 20 20 20 20 20 20 20 20 20 20 ┆GGNING AV KONTONUMMER ┆
0x230a1…230b0 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆'); ┆
0x230b0…230d0 (41, 0, 6) 44 43 4c 20 52 55 42 33 20 43 48 41 52 28 31 30 29 20 49 4e 49 54 49 41 4c 28 27 50 45 52 27 29 ┆DCL RUB3 CHAR(10) INITIAL('PER')┆
0x230d0…230f0 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 ┆; ┆
0x230f0…230ff 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x230ff…2311f (41, 0, 7) 44 43 4c 20 44 41 54 20 43 48 41 52 28 38 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆DCL DAT CHAR(8); ┆
0x2311f…2313f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2313f…2314e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2314e…2316e (41, 0, 8) 50 55 54 20 46 49 4c 45 20 28 44 49 53 50 4c 41 59 29 20 53 4b 49 50 20 4c 49 53 54 28 27 41 4e ┆PUT FILE (DISPLAY) SKIP LIST('AN┆
0x2316e…2318e 47 45 20 44 41 54 55 4d 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆GE DATUM'); ┆
0x2318e…2319d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2319d…231bd (41, 0, 9) 47 45 54 20 4c 49 53 54 20 28 44 41 54 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆GET LIST (DAT); ┆
0x231bd…231dd 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x231dd…231ec 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x231ec…2320c (41, 0, 10) 4f 50 45 4e 20 42 4b 4f 4e 54 4f 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆OPEN BKONTO; ┆
0x2320c…2322c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2322c…2323b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2323b…2325b (41, 0, 11) 50 55 54 20 53 4b 49 50 28 32 29 20 45 44 49 54 28 52 55 42 31 29 28 41 28 35 30 29 29 20 28 52 ┆PUT SKIP(2) EDIT(RUB1)(A(50)) (R┆
0x2325b…2327b 55 42 32 29 28 41 28 35 30 29 29 20 28 52 55 42 33 29 28 41 28 35 29 29 20 28 44 41 54 29 28 41 ┆UB2)(A(50)) (RUB3)(A(5)) (DAT)(A┆
0x2327b…2328a 28 31 30 29 29 3b 20 20 20 20 20 20 20 20 20 ┆(10)); ┆
0x2328a…232aa (41, 0, 12) 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); ┆
0x232aa…232ca 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x232ca…232d9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x232d9…232f9 (41, 0, 13) 53 54 41 52 54 3a 20 50 55 54 20 46 49 4c 45 28 44 49 53 50 4c 41 59 29 20 53 4b 49 50 20 4c 49 ┆START: PUT FILE(DISPLAY) SKIP LI┆
0x232f9…23319 53 54 28 27 41 4e 47 45 20 4b 4f 4e 54 4f 4e 55 4d 4d 45 52 20 27 29 3b 20 20 20 20 20 20 20 20 ┆ST('ANGE KONTONUMMER '); ┆
0x23319…23328 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x23328…23348 (41, 0, 14) 47 45 54 20 4c 49 53 54 28 4b 4f 4e 54 4f 4e 52 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆GET LIST(KONTONR); ┆
0x23348…23368 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x23368…23377 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x23377…23397 (41, 0, 15) 49 46 28 4b 4f 4e 54 4f 4e 52 20 3d 27 39 39 39 39 27 29 20 54 48 45 4e 20 47 4f 20 54 4f 20 53 ┆IF(KONTONR ='9999') THEN GO TO S┆
0x23397…233b7 4c 55 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 ┆LUT; ┆
0x233b7…233c6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x233c6…233e6 (41, 0, 16) 50 55 54 20 46 49 4c 45 28 44 49 53 50 4c 41 59 29 20 53 4b 49 50 20 4c 49 53 54 28 27 41 4e 47 ┆PUT FILE(DISPLAY) SKIP LIST('ANG┆
0x233e6…23406 45 20 54 45 58 54 20 54 49 4c 4c 4b 4f 4e 54 4f 4e 55 4d 52 45 54 20 27 29 3b 20 20 20 20 20 20 ┆E TEXT TILLKONTONUMRET '); ┆
0x23406…23415 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x23415…23435 (41, 0, 17) 47 45 54 20 4c 49 53 54 28 54 45 58 54 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆GET LIST(TEXT); ┆
0x23435…23455 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x23455…23464 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x23464…23484 (41, 0, 18) 50 55 54 20 53 4b 49 50 28 32 29 20 45 44 49 54 28 4b 4f 4e 54 4f 4e 52 29 28 41 28 31 30 29 29 ┆PUT SKIP(2) EDIT(KONTONR)(A(10))┆
0x23484…234a4 20 28 54 45 58 54 29 28 41 28 33 30 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ (TEXT)(A(30)); ┆
0x234a4…234b3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x234b3…234d3 (41, 0, 19) 50 55 54 20 46 49 4c 45 28 44 49 53 50 4c 41 59 29 20 53 4b 49 50 20 4c 49 53 54 28 27 4f 4d 20 ┆PUT FILE(DISPLAY) SKIP LIST('OM ┆
0x234d3…234f3 52 5b 54 54 2c 20 53 56 41 52 41 20 22 4f 4b 22 20 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆RÄTT, SVARA "OK" '); ┆
0x234f3…23502 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x23502…23522 (41, 0, 20) 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); ┆
0x23522…23542 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x23542…23551 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x23551…23571 (41, 0, 21) 49 46 28 41 20 7f 3d 20 27 4f 4b 27 29 20 54 48 45 4e 20 47 4f 20 54 4f 20 53 54 41 52 54 3b 20 ┆IF(A = 'OK') THEN GO TO START; ┆
0x23571…23591 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x23591…235a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x235a0…235c0 (41, 0, 22) 43 41 4c 4c 20 53 45 4f 46 28 42 4b 4f 4e 54 4f 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆CALL SEOF(BKONTO); ┆
0x235c0…235e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x235e0…235ef 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x235ef…2360f (41, 0, 23) 57 52 49 54 45 20 46 49 4c 45 28 42 4b 4f 4e 54 4f 29 20 46 52 4f 4d 28 42 4f 4b 29 3b 20 20 20 ┆WRITE FILE(BKONTO) FROM(BOK); ┆
0x2360f…2362f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2362f…2363e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2363e…2365e (41, 0, 24) 43 4c 4f 53 45 20 42 4b 4f 4e 54 4f 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆CLOSE BKONTO; ┆
0x2365e…2367e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2367e…2368d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2368d…236ad (41, 0, 25) 4f 50 45 4e 20 42 4b 4f 4e 54 4f 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆OPEN BKONTO; ┆
0x236ad…236cd 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x236cd…236dc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x236dc…236fc (41, 0, 26) 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 20 20 ┆GO TO START; ┆
0x236fc…2371c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2371c…2372b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2372b…2374b (41, 0, 27) 53 4c 55 54 3a 20 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 ┆SLUT: END; ┆
0x2374b…2376b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2376b…2377a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2377a…237c9 (41, 0, 28) 0x20[0x4f]
0x237c9…237e9 (41, 0, 29) 49 46 20 28 49 3d 31 33 38 29 20 54 48 45 4e 20 47 4f 20 54 4f 20 4b 52 45 44 49 54 3b 20 20 20 ┆IF (I=138) THEN GO TO KREDIT; ┆
0x237e9…23809 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x23809…23818 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x23818…23838 (41, 0, 30) 49 46 20 28 49 3d 31 33 39 29 20 54 48 45 4e 20 47 4f 20 54 4f 20 44 45 42 45 54 3b 20 20 20 20 ┆IF (I=139) THEN GO TO DEBET; ┆
0x23838…23858 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x23858…23867 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x23867…238b6 (41, 0, 31) 0x20[0x4f]
0x238b6…238d6 (41, 0, 32) 50 55 54 20 53 4b 49 50 20 45 44 49 54 28 46 41 4b 54 29 20 28 50 27 2d 2d 2d 2d 2d 2d 2d 56 2e ┆PUT SKIP EDIT(FAKT) (P'-------V.┆
0x238d6…238f6 39 39 27 29 20 28 58 28 33 29 29 2c 20 28 44 41 54 55 4d 29 20 28 50 39 39 39 39 39 39 29 20 28 ┆99') (X(3)), (DATUM) (P999999) (┆
0x238f6…23905 58 28 36 29 29 3b 20 20 20 20 20 20 20 20 20 ┆X(6)); ┆
0x23905…23925 (41, 0, 33) 50 55 54 20 45 44 49 54 28 44 45 42 45 54 29 20 28 50 27 2d 2d 2d 2d 2d 2d 2d 56 2e 39 39 29 20 ┆PUT EDIT(DEBET) (P'-------V.99) ┆
0x23925…23945 28 58 28 32 29 29 2c 20 28 4b 52 45 44 49 54 29 20 28 50 27 2d 2d 2d 2d 2d 2d 2d 56 2e 39 39 29 ┆(X(2)), (KREDIT) (P'-------V.99)┆
0x23945…23954 20 28 54 45 58 54 29 3b 20 20 20 20 20 20 20 ┆ (TEXT); ┆
0x23954…23974 (41, 0, 34) 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 4f 4d 20 52 5b 54 ┆PUT FILE(DISP) SKIP LIST('OM RÄT┆
0x23974…23994 54 20 54 52 59 43 4b 20 50 5d 20 47 4f 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆T TRYCK PÅ GO'); ┆
0x23994…239a3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x239a3…239c3 (41, 0, 35) 30 20 20 20 20 20 20 20 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 ┆
0x239c3…239e3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x239e3…239f2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x239f2…23a41 (41, 0, 36) 0x20[0x4f]
0x23a41…23a61 (41, 0, 37) 43 41 4c 4c 20 53 45 4f 46 28 46 41 4b 46 49 4c 45 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆CALL SEOF(FAKFILE); ┆
0x23a61…23a81 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x23a81…23a90 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x23a90…23ab0 (41, 0, 38) 57 52 49 54 45 20 46 49 4c 45 28 46 41 4b 46 49 4c 45 29 20 46 52 4f 4d 20 46 41 4b 3b 20 20 20 ┆WRITE FILE(FAKFILE) FROM FAK; ┆
0x23ab0…23ad0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x23ad0…23adf 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x23adf…23aff (41, 0, 39) 43 4c 4f 53 45 20 46 41 4b 46 49 4c 45 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆CLOSE FAKFILE; ┆
0x23aff…23b1f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x23b1f…23b2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x23b2e…23b4e (41, 0, 40) 4f 50 45 4e 20 46 41 4b 46 49 4c 45 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆OPEN FAKFILE; ┆
0x23b4e…23b6e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x23b6e…23b7d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x23b7d…23bcc (42, 0, 0) DataSector[0x4f]
[…0x1c…]
0x24470…24490 (42, 0, 29) 49 46 20 28 49 3d 31 33 38 29 20 54 48 45 4e 20 47 4f 20 54 4f 20 4b 52 45 44 49 54 3b 20 20 20 ┆IF (I=138) THEN GO TO KREDIT; ┆
0x24490…244b0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x244b0…244bf 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x244bf…244df (42, 0, 30) 49 46 20 28 49 3d 31 33 39 29 20 54 48 45 4e 20 47 4f 20 54 4f 20 44 45 42 45 54 3b 20 20 20 20 ┆IF (I=139) THEN GO TO DEBET; ┆
0x244df…244ff 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x244ff…2450e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2450e…2455d (42, 0, 31) 0x20[0x4f]
0x2455d…2457d (42, 0, 32) 50 55 54 20 53 4b 49 50 20 45 44 49 54 28 46 41 4b 54 29 20 28 50 27 2d 2d 2d 2d 2d 2d 2d 56 2e ┆PUT SKIP EDIT(FAKT) (P'-------V.┆
0x2457d…2459d 39 39 27 29 20 28 58 28 33 29 29 2c 20 28 44 41 54 55 4d 29 20 28 50 39 39 39 39 39 39 29 20 28 ┆99') (X(3)), (DATUM) (P999999) (┆
0x2459d…245ac 58 28 36 29 29 3b 20 20 20 20 20 20 20 20 20 ┆X(6)); ┆
0x245ac…245cc (42, 0, 33) 50 55 54 20 45 44 49 54 28 44 45 42 45 54 29 20 28 50 27 2d 2d 2d 2d 2d 2d 2d 56 2e 39 39 29 20 ┆PUT EDIT(DEBET) (P'-------V.99) ┆
0x245cc…245ec 28 58 28 32 29 29 2c 20 28 4b 52 45 44 49 54 29 20 28 50 27 2d 2d 2d 2d 2d 2d 2d 56 2e 39 39 29 ┆(X(2)), (KREDIT) (P'-------V.99)┆
0x245ec…245fb 20 28 54 45 58 54 29 3b 20 20 20 20 20 20 20 ┆ (TEXT); ┆
0x245fb…2461b (42, 0, 34) 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 4f 4d 20 52 5b 54 ┆PUT FILE(DISP) SKIP LIST('OM RÄT┆
0x2461b…2463b 54 20 54 52 59 43 4b 20 50 5d 20 47 4f 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆T TRYCK PÅ GO'); ┆
0x2463b…2464a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2464a…2466a (42, 0, 35) 30 20 20 20 20 20 20 20 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 ┆
0x2466a…2468a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2468a…24699 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x24699…246e8 (42, 0, 36) 0x20[0x4f]
0x246e8…24708 (42, 0, 37) 43 41 4c 4c 20 53 45 4f 46 28 46 41 4b 46 49 4c 45 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆CALL SEOF(FAKFILE); ┆
0x24708…24728 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x24728…24737 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x24737…24757 (42, 0, 38) 57 52 49 54 45 20 46 49 4c 45 28 46 41 4b 46 49 4c 45 29 20 46 52 4f 4d 20 46 41 4b 3b 20 20 20 ┆WRITE FILE(FAKFILE) FROM FAK; ┆
0x24757…24777 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x24777…24786 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x24786…247a6 (42, 0, 39) 43 4c 4f 53 45 20 46 41 4b 46 49 4c 45 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆CLOSE FAKFILE; ┆
0x247a6…247c6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x247c6…247d5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x247d5…247f5 (42, 0, 40) 4f 50 45 4e 20 46 41 4b 46 49 4c 45 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆OPEN FAKFILE; ┆
0x247f5…24815 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x24815…24824 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x24824…24844 (43, 0, 0) 31 30 31 20 4b 41 53 53 41 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 30 32 ┆101 KASSA 102┆
0x24844…24864 20 50 4f 53 54 47 49 52 4f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 30 34 20 42 41 ┆ POSTGIRO 104 BA┆
0x24864…24873 4e 4b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆NK ┆
0x24873…24893 (43, 0, 1) 20 20 20 20 20 20 20 20 31 32 31 20 4b 55 4e 44 46 4f 52 44 52 49 4e 47 41 52 20 20 20 20 20 20 ┆ 121 KUNDFORDRINGAR ┆
0x24893…248b3 20 20 20 20 20 31 34 37 20 49 4e 47 5d 45 4e 44 45 20 4d 4f 4d 53 20 20 20 20 20 20 20 20 20 20 ┆ 147 INGÅENDE MOMS ┆
0x248b3…248c2 20 20 31 34 39 20 5c 56 20 4b 4f 52 54 46 52 ┆ 149 ÖV KORTFR┆
0x248c2…248e2 (43, 0, 2) 49 53 54 20 46 4f 52 44 52 49 4e 47 41 52 20 20 31 35 31 20 4c 41 47 45 52 20 20 20 20 20 20 20 ┆IST FORDRINGAR 151 LAGER ┆
0x248e2…24902 20 20 20 20 20 20 20 20 20 20 20 20 20 31 35 38 20 46 5c 52 53 4b 4f 54 54 20 54 20 4c 45 56 45 ┆ 158 FÖRSKOTT T LEVE┆
0x24902…24911 52 4e 54 5c 52 20 20 20 20 20 31 36 31 20 53 ┆RNTÖR 161 S┆
0x24911…24931 (43, 0, 3) 50 5b 52 52 4b 4f 4e 54 4f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 38 32 20 49 4e 56 45 ┆PÄRRKONTO 182 INVE┆
0x24931…24951 4e 54 41 52 49 45 52 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 38 34 20 46 4f 52 44 4f 4e 20 ┆NTARIER 184 FORDON ┆
0x24951…24960 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x24960…24980 (43, 0, 4) 20 20 20 31 39 39 20 5c 56 52 49 47 41 20 54 49 4c 4c 47 2e 4b 4f 4e 54 4f 4e 20 20 20 20 20 20 ┆ 199 ÖVRIGA TILLG.KONTON ┆
0x24980…249a0 32 31 31 20 4c 45 56 45 52 41 4e 54 5c 52 53 4b 55 4c 44 45 52 20 20 20 20 20 20 20 20 32 31 32 ┆211 LEVERANTÖRSKULDER 212┆
0x249a0…249af 20 42 45 52 5b 4b 4e 20 4f 26 57 20 53 4b 55 ┆ BERÄKN O&W SKU┆
0x249af…249cf (43, 0, 5) 4c 44 45 52 20 20 20 20 20 20 20 32 32 31 20 42 4f 4c 41 47 53 53 4b 41 54 54 20 20 20 20 20 20 ┆LDER 221 BOLAGSSKATT ┆
0x249cf…249ef 20 20 20 20 20 20 20 20 32 33 32 20 53 45 4d 45 53 54 45 52 4c 5c 4e 45 53 4b 55 4c 44 20 20 20 ┆ 232 SEMESTERLÖNESKULD ┆
0x249ef…249fe 20 20 20 20 20 32 33 33 20 41 52 42 45 54 53 ┆ 233 ARBETS┆
0x249fe…24a1e (43, 0, 6) 47 49 56 41 52 41 56 47 49 46 54 45 52 20 20 20 20 20 20 32 34 38 20 4d 4f 4d 53 20 20 20 20 20 ┆GIVARAVGIFTER 248 MOMS ┆
0x24a1e…24a3e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 35 31 20 50 45 52 53 4f 4e 41 4c 53 4b 41 54 ┆ 251 PERSONALSKAT┆
0x24a3e…24a4d 54 20 20 20 20 20 20 20 20 20 20 20 20 32 36 ┆T 26┆
0x24a4d…24a6d (43, 0, 7) 31 20 46 5c 52 53 4b 4f 54 54 20 46 52 5d 4e 20 4b 55 4e 44 45 52 20 20 20 20 20 32 36 37 20 4c ┆1 FÖRSKOTT FRÅN KUNDER 267 L┆
0x24a6d…24a8d 5d 4e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 36 39 20 5c 56 52 49 ┆ÅN 269 ÖVRI┆
0x24a8d…24a9c 47 41 20 4b 4f 52 54 46 20 53 4b 55 4c 44 45 ┆GA KORTF SKULDE┆
0x24a9c…24abc (43, 0, 8) 52 20 20 20 20 20 32 37 32 20 43 48 45 43 4b 4b 52 45 44 49 54 20 20 20 20 20 20 20 20 20 20 20 ┆R 272 CHECKKREDIT ┆
0x24abc…24adc 20 20 20 32 37 39 20 5c 56 52 49 47 41 20 4c 5d 4e 47 46 52 49 53 54 2e 20 53 4b 55 4c 44 45 52 ┆ 279 ÖVRIGA LÅNGFRIST. SKULDER┆
0x24adc…24aeb 32 38 31 20 4c 41 47 45 52 52 45 53 45 52 56 ┆281 LAGERRESERV┆
0x24aeb…24b0b (43, 0, 9) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 39 39 31 41 4b 54 49 45 4b 41 50 20 20 20 20 20 20 ┆ 2991AKTIEKAP ┆
0x24b0b…24b2b 20 20 20 20 20 20 20 20 20 20 20 32 39 39 32 52 45 53 45 52 56 46 4f 4e 44 20 20 20 20 20 20 20 ┆ 2992RESERVFOND ┆
0x24b2b…24b3a 20 20 20 20 20 20 20 20 32 39 39 37 42 41 4c ┆ 2997BAL┆
0x24b3a…24b5a (43, 0, 10) 20 56 49 4e 53 54 20 46 52 5d 4e 20 46 5c 52 45 47 20 5d 52 20 20 32 39 39 38 42 41 4c 41 4e 53 ┆ VINST FRÅN FÖREG ÅR 2998BALANS┆
0x24b5a…24b7a 45 52 41 44 20 56 49 4e 53 54 20 45 4c 20 46 5c 52 4c 2e 32 39 39 39 52 45 44 4f 56 49 53 41 54 ┆ERAD VINST EL FÖRL.2999REDOVISAT┆
0x24b7a…24b89 20 52 45 53 55 4c 54 41 54 20 20 20 20 20 20 ┆ RESULTAT ┆
0x24b89…24ba9 (43, 0, 11) 20 33 30 31 20 46 5c 52 53 5b 4c 4a 4e 49 4e 47 20 20 20 20 20 20 20 20 20 20 20 20 20 20 33 30 ┆ 301 FÖRSÄLJNING 30┆
0x24ba9…24bc9 31 31 46 5c 52 53 5b 4c 4a 4e 20 4d 4f 4d 53 20 31 30 30 25 20 20 20 20 20 20 20 33 30 31 32 46 ┆11FÖRSÄLJN MOMS 100% 3012F┆
0x24bc9…24bd8 5c 52 53 5b 4c 4a 4e 20 4d 4f 4d 53 20 36 30 ┆ÖRSÄLJN MOMS 60┆
0x24bd8…24bf8 (43, 0, 12) 25 20 20 20 20 20 20 20 20 33 30 31 33 46 5c 52 53 5b 4c 4a 4e 20 4d 4f 4d 53 20 32 30 25 20 20 ┆% 3013FÖRSÄLJN MOMS 20% ┆
0x24bf8…24c18 20 20 20 20 20 20 33 30 31 34 46 5c 52 53 5b 4c 4a 4e 49 4e 47 20 4d 4f 4d 53 46 52 49 20 20 20 ┆ 3014FÖRSÄLJNING MOMSFRI ┆
0x24c18…24c27 20 20 20 33 30 38 20 49 4e 54 5b 4b 54 53 52 ┆ 308 INTÄKTSR┆
0x24c27…24c47 (43, 0, 13) 45 44 55 4b 54 49 4f 4e 45 52 20 20 20 20 20 20 20 33 34 35 20 46 5c 52 53 5b 4b 52 49 4e 47 53 ┆EDUKTIONER 345 FÖRSÄKRINGS┆
0x24c47…24c67 45 52 53 5b 54 54 4e 49 4e 47 20 20 20 20 33 39 39 20 44 49 56 20 5c 56 52 49 47 41 20 49 4e 54 ┆ERSÄTTNING 399 DIV ÖVRIGA INT┆
0x24c67…24c76 5b 4b 54 45 52 20 20 20 20 20 20 34 30 31 20 ┆ÄKTER 401 ┆
0x24c76…24c96 (43, 0, 14) 56 41 52 4f 52 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 34 30 38 20 49 4e 4b ┆VAROR 408 INK┆
0x24c96…24cb6 5c 50 53 50 52 49 53 52 45 44 55 4b 54 49 4f 4e 20 20 20 20 20 20 34 30 38 31 45 52 45 48 5d 4c ┆ÖPSPRISREDUKTION 4081EREHÅL┆
0x24cb6…24cc5 4c 4e 41 20 4b 41 53 53 41 52 41 42 20 20 20 ┆LNA KASSARAB ┆
0x24cc5…24ce5 (43, 0, 15) 20 20 20 20 34 30 38 32 45 52 48 5d 4c 4c 4e 41 20 4d 5b 4e 47 44 52 41 42 20 20 20 20 20 20 20 ┆ 4082ERHÅLLNA MÄNGDRAB ┆
0x24ce5…24d05 20 34 30 39 20 5c 4b 4e 20 45 4c 20 4d 49 4e 53 4b 4e 20 41 56 20 4c 41 47 45 52 20 20 20 34 34 ┆ 409 ÖKN EL MINSKN AV LAGER 44┆
0x24d05…24d14 31 20 45 4d 42 41 4c 4c 41 47 45 20 20 20 20 ┆1 EMBALLAGE ┆
0x24d14…24d34 (43, 0, 16) 20 20 20 20 20 20 20 20 20 20 20 20 35 30 31 20 4c 5c 4e 20 54 20 41 52 42 2d 4f 20 53 45 52 56 ┆ 501 LÖN T ARB-O SERV┆
0x24d34…24d54 2d 50 45 52 53 4f 4e 41 4c 35 32 31 20 4c 5c 4e 45 52 20 54 20 46 5c 52 45 54 41 47 53 4c 45 44 ┆-PERSONAL521 LÖNER T FÖRETAGSLED┆
0x24d54…24d63 4e 20 20 20 20 20 35 32 39 20 4c 5c 4e 45 52 ┆N 529 LÖNER┆
0x24d63…24d83 (43, 0, 17) 20 54 20 54 4a 5b 4e 53 54 45 4d 5b 4e 20 20 20 20 20 20 20 35 33 34 20 45 52 53 5b 54 54 4e 2c ┆ T TJÄNSTEMÄN 534 ERSÄTTN,┆
0x24d83…24da3 20 4d 5d 4c 54 49 44 53 4b 4f 53 54 4e 20 20 20 20 35 34 32 20 46 52 49 41 20 45 4c 20 53 55 42 ┆ MÅLTIDSKOSTN 542 FRIA EL SUB┆
0x24da3…24db2 56 45 4e 20 4d 5d 4c 54 49 44 45 52 20 20 35 ┆VEN MÅLTIDER 5┆
0x24db2…24dd2 (43, 0, 18) 34 35 20 4b 4f 53 54 4e 41 44 45 52 20 46 5c 52 20 46 52 49 20 42 49 4c 20 20 20 20 35 35 30 20 ┆45 KOSTNADER FÖR FRI BIL 550 ┆
0x24dd2…24df2 4b 4f 53 54 4e 41 44 53 45 52 53 5b 54 54 4e 49 4e 47 41 52 20 20 20 20 20 35 35 31 20 45 52 53 ┆KOSTNADSERSÄTTNINGAR 551 ERS┆
0x24df2…24e01 20 46 41 4b 54 20 4b 4f 53 54 20 4b 26 4c 20 ┆ FAKT KOST K&L ┆
0x24e01…24e21 (43, 0, 19) 54 4a 52 45 53 20 20 35 35 32 20 54 52 41 4b 54 2e 4d 45 4e 54 20 54 4a 2e 52 45 53 41 20 20 20 ┆TJRES 552 TRAKT.MENT TJ.RESA ┆
0x24e21…24e41 20 20 20 20 35 35 33 20 52 45 53 45 4b 4f 53 54 4e 2e 45 52 53 2d 20 42 49 4c 20 54 41 58 49 20 ┆ 553 RESEKOSTN.ERS- BIL TAXI ┆
0x24e41…24e50 20 35 35 37 20 52 45 50 52 45 53 45 4e 54 41 ┆ 557 REPRESENTA┆
0x24e50…24e70 (43, 0, 20) 54 49 4f 4e 53 45 52 53 20 20 20 20 20 20 20 35 36 31 20 4c 41 47 53 54 20 41 52 42 45 54 53 47 ┆TIONSERS 561 LAGST ARBETSG┆
0x24e70…24e90 49 56 2e 20 41 56 47 2e 20 20 20 20 35 36 32 20 53 4b 41 54 54 45 52 20 50 5d 20 41 52 42 45 54 ┆IV. AVG. 562 SKATTER PÅ ARBET┆
0x24e90…24e9f 53 4b 52 41 46 54 20 20 20 35 37 31 20 50 45 ┆SKRAFT 571 PE┆
0x24e9f…24ebf (43, 0, 21) 4e 53 49 4f 4e 53 46 5c 52 53 2e 20 41 56 47 20 20 20 20 20 20 20 20 35 37 36 20 41 4e 44 52 41 ┆NSIONSFÖRS. AVG 576 ANDRA┆
0x24ebf…24edf 20 4b 4f 4f 4c 45 4b 54 2e 20 41 56 47 2e 20 20 20 20 20 20 35 38 30 20 5c 56 45 52 49 47 41 20 ┆ KOOLEKT. AVG. 580 ÖVERIGA ┆
0x24edf…24eee 50 45 52 4f 4e 41 4c 4b 4f 53 54 4e 20 20 20 ┆PERONALKOSTN ┆
0x24eee…24f0e (43, 0, 22) 20 20 35 39 31 20 4b 4f 53 54 4e 20 50 45 52 4f 4e 41 4c 52 45 4b 52 59 54 20 20 20 20 20 20 36 ┆ 591 KOSTN PERONALREKRYT 6┆
0x24f0e…24f2e 30 31 20 4c 4f 4b 41 4c 48 59 52 41 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 36 30 38 20 ┆01 LOKALHYRA 608 ┆
0x24f2e…24f3d 52 45 50 20 4f 20 55 4e 44 45 52 48 2e 20 4c ┆REP O UNDERH. L┆
0x24f3d…24f5d (43, 0, 23) 4f 4b 41 4c 45 52 20 20 20 20 36 30 39 20 5c 56 52 49 47 41 20 4c 4f 4b 41 4c 4b 4f 53 4e 41 44 ┆OKALER 609 ÖVRIGA LOKALKOSNAD┆
0x24f5d…24f7d 45 52 20 20 20 20 20 36 32 31 20 45 4c 45 4b 54 49 43 49 54 45 54 20 20 20 20 20 20 20 20 20 20 ┆ER 621 ELEKTICITET ┆
0x24f7d…24f8c 20 20 20 20 36 32 39 20 5c 56 52 49 47 41 20 ┆ 629 ÖVRIGA ┆
0x24f8c…24fac (43, 0, 24) 42 52 5b 4e 53 4c 45 4e 20 20 20 20 20 20 20 20 20 20 36 34 31 20 46 5c 52 42 52 55 4b 4e 49 4e ┆BRÄNSLEN 641 FÖRBRUKNIN┆
0x24fac…24fcc 47 53 49 4e 56 45 4e 54 41 52 49 45 52 20 20 36 34 34 20 46 5c 52 42 52 55 4b 4e 49 4e 47 53 45 ┆GSINVENTARIER 644 FÖRBRUKNINGSE┆
0x24fcc…24fdb 4d 42 41 4c 4c 41 47 45 20 20 20 20 36 34 39 ┆MBALLAGE 649┆
0x24fdb…24ffb (43, 0, 25) 20 5c 56 52 49 47 41 20 46 5c 52 42 52 55 4b 4e 2e 56 41 52 4f 52 20 20 20 20 36 35 30 20 4b 4f ┆ ÖVRIGA FÖRBRUKN.VAROR 650 KO┆
0x24ffb…2501b 4e 54 4f 52 53 4d 41 54 20 26 20 54 52 59 43 4b 53 41 4b 45 52 20 20 36 36 30 20 52 45 50 20 4f ┆NTORSMAT & TRYCKSAKER 660 REP O┆
0x2501b…2502a 43 48 20 55 4e 44 45 52 48 5d 4c 4c 20 20 20 ┆CH UNDERHÅLL ┆
0x2502a…2504a (43, 0, 26) 20 20 20 20 20 36 37 33 20 42 4f 4b 46 5c 52 49 4e 47 53 4b 4f 53 54 4e 41 44 45 52 20 20 20 20 ┆ 673 BOKFÖRINGSKOSTNADER ┆
0x2504a…2506a 20 20 36 37 36 20 53 45 52 56 2e 45 52 53 20 42 52 41 4e 43 48 4f 52 47 41 4e 20 20 20 20 20 36 ┆ 676 SERV.ERS BRANCHORGAN 6┆
0x2506a…25079 37 39 20 5c 56 52 49 47 41 20 46 52 5b 4d 4d ┆79 ÖVRIGA FRÄMM┆
0x25079…25099 (43, 0, 27) 2e 20 54 4a 5b 4e 53 54 45 52 20 20 20 36 38 31 20 54 45 4c 45 46 4f 4e 20 20 20 20 20 20 20 20 ┆. TJÄNSTER 681 TELEFON ┆
0x25099…250b9 20 20 20 20 20 20 20 20 20 20 36 38 32 20 54 45 4c 45 58 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 682 TELEX ┆
0x250b9…250c8 20 20 20 20 20 20 20 36 38 35 20 50 4f 52 54 ┆ 685 PORT┆
0x250c8…250e8 (43, 0, 28) 4f 4b 4f 53 54 4e 41 44 45 52 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆OKOSTNADER ┆
0x250e8…25108 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x25108…25117 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x25117…25137 (43, 0, 29) 49 46 20 28 49 3d 31 33 38 29 20 54 48 45 4e 20 47 4f 20 54 4f 20 4b 52 45 44 49 54 3b 20 20 20 ┆IF (I=138) THEN GO TO KREDIT; ┆
0x25137…25157 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x25157…25166 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x25166…25186 (43, 0, 30) 49 46 20 28 49 3d 31 33 39 29 20 54 48 45 4e 20 47 4f 20 54 4f 20 44 45 42 45 54 3b 20 20 20 20 ┆IF (I=139) THEN GO TO DEBET; ┆
0x25186…251a6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x251a6…251b5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x251b5…25204 (43, 0, 31) 0x20[0x4f]
0x25204…25224 (43, 0, 32) 50 55 54 20 53 4b 49 50 20 45 44 49 54 28 46 41 4b 54 29 20 28 50 27 2d 2d 2d 2d 2d 2d 2d 56 2e ┆PUT SKIP EDIT(FAKT) (P'-------V.┆
0x25224…25244 39 39 27 29 20 28 58 28 33 29 29 2c 20 28 44 41 54 55 4d 29 20 28 50 39 39 39 39 39 39 29 20 28 ┆99') (X(3)), (DATUM) (P999999) (┆
0x25244…25253 58 28 36 29 29 3b 20 20 20 20 20 20 20 20 20 ┆X(6)); ┆
0x25253…25273 (43, 0, 33) 50 55 54 20 45 44 49 54 28 44 45 42 45 54 29 20 28 50 27 2d 2d 2d 2d 2d 2d 2d 56 2e 39 39 29 20 ┆PUT EDIT(DEBET) (P'-------V.99) ┆
0x25273…25293 28 58 28 32 29 29 2c 20 28 4b 52 45 44 49 54 29 20 28 50 27 2d 2d 2d 2d 2d 2d 2d 56 2e 39 39 29 ┆(X(2)), (KREDIT) (P'-------V.99)┆
0x25293…252a2 20 28 54 45 58 54 29 3b 20 20 20 20 20 20 20 ┆ (TEXT); ┆
0x252a2…252c2 (43, 0, 34) 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 4f 4d 20 52 5b 54 ┆PUT FILE(DISP) SKIP LIST('OM RÄT┆
0x252c2…252e2 54 20 54 52 59 43 4b 20 50 5d 20 47 4f 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆T TRYCK PÅ GO'); ┆
0x252e2…252f1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x252f1…25311 (43, 0, 35) 30 20 20 20 20 20 20 20 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 ┆
0x25311…25331 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x25331…25340 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x25340…2538f (43, 0, 36) 0x20[0x4f]
0x2538f…253af (43, 0, 37) 43 41 4c 4c 20 53 45 4f 46 28 46 41 4b 46 49 4c 45 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆CALL SEOF(FAKFILE); ┆
0x253af…253cf 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x253cf…253de 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x253de…253fe (43, 0, 38) 57 52 49 54 45 20 46 49 4c 45 28 46 41 4b 46 49 4c 45 29 20 46 52 4f 4d 20 46 41 4b 3b 20 20 20 ┆WRITE FILE(FAKFILE) FROM FAK; ┆
0x253fe…2541e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2541e…2542d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2542d…2544d (43, 0, 39) 43 4c 4f 53 45 20 46 41 4b 46 49 4c 45 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆CLOSE FAKFILE; ┆
0x2544d…2546d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2546d…2547c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2547c…2549c (43, 0, 40) 4f 50 45 4e 20 46 41 4b 46 49 4c 45 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆OPEN FAKFILE; ┆
0x2549c…254bc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x254bc…254cb 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x254cb…254eb (44, 0, 0) 31 30 31 20 4b 41 53 53 41 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 30 32 ┆101 KASSA 102┆
0x254eb…2550b 20 50 4f 53 54 47 49 52 4f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 30 34 20 42 41 ┆ POSTGIRO 104 BA┆
0x2550b…2551a 4e 4b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆NK ┆
0x2551a…2553a (44, 0, 1) 20 20 20 20 20 20 20 20 31 32 31 20 4b 55 4e 44 46 4f 52 44 52 49 4e 47 41 52 20 20 20 20 20 20 ┆ 121 KUNDFORDRINGAR ┆
0x2553a…2555a 20 20 20 20 20 31 34 37 20 49 4e 47 5d 45 4e 44 45 20 4d 4f 4d 53 20 20 20 20 20 20 20 20 20 20 ┆ 147 INGÅENDE MOMS ┆
0x2555a…25569 20 20 31 34 39 20 5c 56 20 4b 4f 52 54 46 52 ┆ 149 ÖV KORTFR┆
0x25569…25589 (44, 0, 2) 49 53 54 20 46 4f 52 44 52 49 4e 47 41 52 20 20 31 35 31 20 4c 41 47 45 52 20 20 20 20 20 20 20 ┆IST FORDRINGAR 151 LAGER ┆
0x25589…255a9 20 20 20 20 20 20 20 20 20 20 20 20 20 31 35 38 20 46 5c 52 53 4b 4f 54 54 20 54 20 4c 45 56 45 ┆ 158 FÖRSKOTT T LEVE┆
0x255a9…255b8 52 4e 54 5c 52 20 20 20 20 20 31 36 31 20 53 ┆RNTÖR 161 S┆
0x255b8…255d8 (44, 0, 3) 50 5b 52 52 4b 4f 4e 54 4f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 38 32 20 49 4e 56 45 ┆PÄRRKONTO 182 INVE┆
0x255d8…255f8 4e 54 41 52 49 45 52 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 38 34 20 46 4f 52 44 4f 4e 20 ┆NTARIER 184 FORDON ┆
0x255f8…25607 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x25607…25627 (44, 0, 4) 20 20 20 31 39 39 20 5c 56 52 49 47 41 20 54 49 4c 4c 47 2e 4b 4f 4e 54 4f 4e 20 20 20 20 20 20 ┆ 199 ÖVRIGA TILLG.KONTON ┆
0x25627…25647 32 31 31 20 4c 45 56 45 52 41 4e 54 5c 52 53 4b 55 4c 44 45 52 20 20 20 20 20 20 20 20 32 31 32 ┆211 LEVERANTÖRSKULDER 212┆
0x25647…25656 20 42 45 52 5b 4b 4e 20 4f 26 57 20 53 4b 55 ┆ BERÄKN O&W SKU┆
0x25656…25676 (44, 0, 5) 4c 44 45 52 20 20 20 20 20 20 20 32 32 31 20 42 4f 4c 41 47 53 53 4b 41 54 54 20 20 20 20 20 20 ┆LDER 221 BOLAGSSKATT ┆
0x25676…25696 20 20 20 20 20 20 20 20 32 33 32 20 53 45 4d 45 53 54 45 52 4c 5c 4e 45 53 4b 55 4c 44 20 20 20 ┆ 232 SEMESTERLÖNESKULD ┆
0x25696…256a5 20 20 20 20 20 32 33 33 20 41 52 42 45 54 53 ┆ 233 ARBETS┆
0x256a5…256c5 (44, 0, 6) 47 49 56 41 52 41 56 47 49 46 54 45 52 20 20 20 20 20 20 32 34 38 20 4d 4f 4d 53 20 20 20 20 20 ┆GIVARAVGIFTER 248 MOMS ┆
0x256c5…256e5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 35 31 20 50 45 52 53 4f 4e 41 4c 53 4b 41 54 ┆ 251 PERSONALSKAT┆
0x256e5…256f4 54 20 20 20 20 20 20 20 20 20 20 20 20 32 36 ┆T 26┆
0x256f4…25714 (44, 0, 7) 31 20 46 5c 52 53 4b 4f 54 54 20 46 52 5d 4e 20 4b 55 4e 44 45 52 20 20 20 20 20 32 36 37 20 4c ┆1 FÖRSKOTT FRÅN KUNDER 267 L┆
0x25714…25734 5d 4e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 36 39 20 5c 56 52 49 ┆ÅN 269 ÖVRI┆
0x25734…25743 47 41 20 4b 4f 52 54 46 20 53 4b 55 4c 44 45 ┆GA KORTF SKULDE┆
0x25743…25763 (44, 0, 8) 52 20 20 20 20 20 32 37 32 20 43 48 45 43 4b 4b 52 45 44 49 54 20 20 20 20 20 20 20 20 20 20 20 ┆R 272 CHECKKREDIT ┆
0x25763…25783 20 20 20 32 37 39 20 5c 56 52 49 47 41 20 4c 5d 4e 47 46 52 49 53 54 2e 20 53 4b 55 4c 44 45 52 ┆ 279 ÖVRIGA LÅNGFRIST. SKULDER┆
0x25783…25792 32 38 31 20 4c 41 47 45 52 52 45 53 45 52 56 ┆281 LAGERRESERV┆
0x25792…257b2 (44, 0, 9) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 39 39 31 41 4b 54 49 45 4b 41 50 20 20 20 20 20 20 ┆ 2991AKTIEKAP ┆
0x257b2…257d2 20 20 20 20 20 20 20 20 20 20 20 32 39 39 32 52 45 53 45 52 56 46 4f 4e 44 20 20 20 20 20 20 20 ┆ 2992RESERVFOND ┆
0x257d2…257e1 20 20 20 20 20 20 20 20 32 39 39 37 42 41 4c ┆ 2997BAL┆
0x257e1…25801 (44, 0, 10) 20 56 49 4e 53 54 20 46 52 5d 4e 20 46 5c 52 45 47 20 5d 52 20 20 32 39 39 38 42 41 4c 41 4e 53 ┆ VINST FRÅN FÖREG ÅR 2998BALANS┆
0x25801…25821 45 52 41 44 20 56 49 4e 53 54 20 45 4c 20 46 5c 52 4c 2e 32 39 39 39 52 45 44 4f 56 49 53 41 54 ┆ERAD VINST EL FÖRL.2999REDOVISAT┆
0x25821…25830 20 52 45 53 55 4c 54 41 54 20 20 20 20 20 20 ┆ RESULTAT ┆
0x25830…25850 (44, 0, 11) 20 33 30 31 20 46 5c 52 53 5b 4c 4a 4e 49 4e 47 20 20 20 20 20 20 20 20 20 20 20 20 20 20 33 30 ┆ 301 FÖRSÄLJNING 30┆
0x25850…25870 31 31 46 5c 52 53 5b 4c 4a 4e 20 4d 4f 4d 53 20 31 30 30 25 20 20 20 20 20 20 20 33 30 31 32 46 ┆11FÖRSÄLJN MOMS 100% 3012F┆
0x25870…2587f 5c 52 53 5b 4c 4a 4e 20 4d 4f 4d 53 20 36 30 ┆ÖRSÄLJN MOMS 60┆
0x2587f…2589f (44, 0, 12) 25 20 20 20 20 20 20 20 20 33 30 31 33 46 5c 52 53 5b 4c 4a 4e 20 4d 4f 4d 53 20 32 30 25 20 20 ┆% 3013FÖRSÄLJN MOMS 20% ┆
0x2589f…258bf 20 20 20 20 20 20 33 30 31 34 46 5c 52 53 5b 4c 4a 4e 49 4e 47 20 4d 4f 4d 53 46 52 49 20 20 20 ┆ 3014FÖRSÄLJNING MOMSFRI ┆
0x258bf…258ce 20 20 20 33 30 38 20 49 4e 54 5b 4b 54 53 52 ┆ 308 INTÄKTSR┆
0x258ce…258ee (44, 0, 13) 45 44 55 4b 54 49 4f 4e 45 52 20 20 20 20 20 20 20 33 34 35 20 46 5c 52 53 5b 4b 52 49 4e 47 53 ┆EDUKTIONER 345 FÖRSÄKRINGS┆
0x258ee…2590e 45 52 53 5b 54 54 4e 49 4e 47 20 20 20 20 33 39 39 20 44 49 56 20 5c 56 52 49 47 41 20 49 4e 54 ┆ERSÄTTNING 399 DIV ÖVRIGA INT┆
0x2590e…2591d 5b 4b 54 45 52 20 20 20 20 20 20 34 30 31 20 ┆ÄKTER 401 ┆
0x2591d…2593d (44, 0, 14) 56 41 52 4f 52 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 34 30 38 20 49 4e 4b ┆VAROR 408 INK┆
0x2593d…2595d 5c 50 53 50 52 49 53 52 45 44 55 4b 54 49 4f 4e 20 20 20 20 20 20 34 30 38 31 45 52 45 48 5d 4c ┆ÖPSPRISREDUKTION 4081EREHÅL┆
0x2595d…2596c 4c 4e 41 20 4b 41 53 53 41 52 41 42 20 20 20 ┆LNA KASSARAB ┆
0x2596c…2598c (44, 0, 15) 20 20 20 20 34 30 38 32 45 52 48 5d 4c 4c 4e 41 20 4d 5b 4e 47 44 52 41 42 20 20 20 20 20 20 20 ┆ 4082ERHÅLLNA MÄNGDRAB ┆
0x2598c…259ac 20 34 30 39 20 5c 4b 4e 20 45 4c 20 4d 49 4e 53 4b 4e 20 41 56 20 4c 41 47 45 52 20 20 20 34 34 ┆ 409 ÖKN EL MINSKN AV LAGER 44┆
0x259ac…259bb 31 20 45 4d 42 41 4c 4c 41 47 45 20 20 20 20 ┆1 EMBALLAGE ┆
0x259bb…259db (44, 0, 16) 20 20 20 20 20 20 20 20 20 20 20 20 35 30 31 20 4c 5c 4e 20 54 20 41 52 42 2d 4f 20 53 45 52 56 ┆ 501 LÖN T ARB-O SERV┆
0x259db…259fb 2d 50 45 52 53 4f 4e 41 4c 35 32 31 20 4c 5c 4e 45 52 20 54 20 46 5c 52 45 54 41 47 53 4c 45 44 ┆-PERSONAL521 LÖNER T FÖRETAGSLED┆
0x259fb…25a0a 4e 20 20 20 20 20 35 32 39 20 4c 5c 4e 45 52 ┆N 529 LÖNER┆
0x25a0a…25a2a (44, 0, 17) 20 54 20 54 4a 5b 4e 53 54 45 4d 5b 4e 20 20 20 20 20 20 20 35 33 34 20 45 52 53 5b 54 54 4e 2c ┆ T TJÄNSTEMÄN 534 ERSÄTTN,┆
0x25a2a…25a4a 20 4d 5d 4c 54 49 44 53 4b 4f 53 54 4e 20 20 20 20 35 34 32 20 46 52 49 41 20 45 4c 20 53 55 42 ┆ MÅLTIDSKOSTN 542 FRIA EL SUB┆
0x25a4a…25a59 56 45 4e 20 4d 5d 4c 54 49 44 45 52 20 20 35 ┆VEN MÅLTIDER 5┆
0x25a59…25a79 (44, 0, 18) 34 35 20 4b 4f 53 54 4e 41 44 45 52 20 46 5c 52 20 46 52 49 20 42 49 4c 20 20 20 20 35 35 30 20 ┆45 KOSTNADER FÖR FRI BIL 550 ┆
0x25a79…25a99 4b 4f 53 54 4e 41 44 53 45 52 53 5b 54 54 4e 49 4e 47 41 52 20 20 20 20 20 35 35 31 20 45 52 53 ┆KOSTNADSERSÄTTNINGAR 551 ERS┆
0x25a99…25aa8 20 46 41 4b 54 20 4b 4f 53 54 20 4b 26 4c 20 ┆ FAKT KOST K&L ┆
0x25aa8…25ac8 (44, 0, 19) 54 4a 52 45 53 20 20 35 35 32 20 54 52 41 4b 54 2e 4d 45 4e 54 20 54 4a 2e 52 45 53 41 20 20 20 ┆TJRES 552 TRAKT.MENT TJ.RESA ┆
0x25ac8…25ae8 20 20 20 20 35 35 33 20 52 45 53 45 4b 4f 53 54 4e 2e 45 52 53 2d 20 42 49 4c 20 54 41 58 49 20 ┆ 553 RESEKOSTN.ERS- BIL TAXI ┆
0x25ae8…25af7 20 35 35 37 20 52 45 50 52 45 53 45 4e 54 41 ┆ 557 REPRESENTA┆
0x25af7…25b17 (44, 0, 20) 54 49 4f 4e 53 45 52 53 20 20 20 20 20 20 20 35 36 31 20 4c 41 47 53 54 20 41 52 42 45 54 53 47 ┆TIONSERS 561 LAGST ARBETSG┆
0x25b17…25b37 49 56 2e 20 41 56 47 2e 20 20 20 20 35 36 32 20 53 4b 41 54 54 45 52 20 50 5d 20 41 52 42 45 54 ┆IV. AVG. 562 SKATTER PÅ ARBET┆
0x25b37…25b46 53 4b 52 41 46 54 20 20 20 35 37 31 20 50 45 ┆SKRAFT 571 PE┆
0x25b46…25b66 (44, 0, 21) 4e 53 49 4f 4e 53 46 5c 52 53 2e 20 41 56 47 20 20 20 20 20 20 20 20 35 37 36 20 41 4e 44 52 41 ┆NSIONSFÖRS. AVG 576 ANDRA┆
0x25b66…25b86 20 4b 4f 4f 4c 45 4b 54 2e 20 41 56 47 2e 20 20 20 20 20 20 35 38 30 20 5c 56 45 52 49 47 41 20 ┆ KOOLEKT. AVG. 580 ÖVERIGA ┆
0x25b86…25b95 50 45 52 4f 4e 41 4c 4b 4f 53 54 4e 20 20 20 ┆PERONALKOSTN ┆
0x25b95…25bb5 (44, 0, 22) 20 20 35 39 31 20 4b 4f 53 54 4e 20 50 45 52 4f 4e 41 4c 52 45 4b 52 59 54 20 20 20 20 20 20 36 ┆ 591 KOSTN PERONALREKRYT 6┆
0x25bb5…25bd5 30 31 20 4c 4f 4b 41 4c 48 59 52 41 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 36 30 38 20 ┆01 LOKALHYRA 608 ┆
0x25bd5…25be4 52 45 50 20 4f 20 55 4e 44 45 52 48 2e 20 4c ┆REP O UNDERH. L┆
0x25be4…25c04 (44, 0, 23) 4f 4b 41 4c 45 52 20 20 20 20 36 30 39 20 5c 56 52 49 47 41 20 4c 4f 4b 41 4c 4b 4f 53 4e 41 44 ┆OKALER 609 ÖVRIGA LOKALKOSNAD┆
0x25c04…25c24 45 52 20 20 20 20 20 36 32 31 20 45 4c 45 4b 54 49 43 49 54 45 54 20 20 20 20 20 20 20 20 20 20 ┆ER 621 ELEKTICITET ┆
0x25c24…25c33 20 20 20 20 36 32 39 20 5c 56 52 49 47 41 20 ┆ 629 ÖVRIGA ┆
0x25c33…25c53 (44, 0, 24) 42 52 5b 4e 53 4c 45 4e 20 20 20 20 20 20 20 20 20 20 36 34 31 20 46 5c 52 42 52 55 4b 4e 49 4e ┆BRÄNSLEN 641 FÖRBRUKNIN┆
0x25c53…25c73 47 53 49 4e 56 45 4e 54 41 52 49 45 52 20 20 36 34 34 20 46 5c 52 42 52 55 4b 4e 49 4e 47 53 45 ┆GSINVENTARIER 644 FÖRBRUKNINGSE┆
0x25c73…25c82 4d 42 41 4c 4c 41 47 45 20 20 20 20 36 34 39 ┆MBALLAGE 649┆
0x25c82…25ca2 (44, 0, 25) 20 5c 56 52 49 47 41 20 46 5c 52 42 52 55 4b 4e 2e 56 41 52 4f 52 20 20 20 20 36 35 30 20 4b 4f ┆ ÖVRIGA FÖRBRUKN.VAROR 650 KO┆
0x25ca2…25cc2 4e 54 4f 52 53 4d 41 54 20 26 20 54 52 59 43 4b 53 41 4b 45 52 20 20 36 36 30 20 52 45 50 20 4f ┆NTORSMAT & TRYCKSAKER 660 REP O┆
0x25cc2…25cd1 43 48 20 55 4e 44 45 52 48 5d 4c 4c 20 20 20 ┆CH UNDERHÅLL ┆
0x25cd1…25cf1 (44, 0, 26) 20 20 20 20 20 36 37 33 20 42 4f 4b 46 5c 52 49 4e 47 53 4b 4f 53 54 4e 41 44 45 52 20 20 20 20 ┆ 673 BOKFÖRINGSKOSTNADER ┆
0x25cf1…25d11 20 20 36 37 36 20 53 45 52 56 2e 45 52 53 20 42 52 41 4e 43 48 4f 52 47 41 4e 20 20 20 20 20 36 ┆ 676 SERV.ERS BRANCHORGAN 6┆
0x25d11…25d20 37 39 20 5c 56 52 49 47 41 20 46 52 5b 4d 4d ┆79 ÖVRIGA FRÄMM┆
0x25d20…25d40 (44, 0, 27) 2e 20 54 4a 5b 4e 53 54 45 52 20 20 20 36 38 31 20 54 45 4c 45 46 4f 4e 20 20 20 20 20 20 20 20 ┆. TJÄNSTER 681 TELEFON ┆
0x25d40…25d60 20 20 20 20 20 20 20 20 20 20 36 38 32 20 54 45 4c 45 58 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 682 TELEX ┆
0x25d60…25d6f 20 20 20 20 20 20 20 36 38 35 20 50 4f 52 54 ┆ 685 PORT┆
0x25d6f…25d8f (44, 0, 28) 4f 4b 4f 53 54 4e 41 44 45 52 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆OKOSTNADER ┆
0x25d8f…25daf 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x25daf…25dbe 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x25dbe…25dde (44, 0, 29) 49 46 20 28 49 3d 31 33 38 29 20 54 48 45 4e 20 47 4f 20 54 4f 20 4b 52 45 44 49 54 3b 20 20 20 ┆IF (I=138) THEN GO TO KREDIT; ┆
0x25dde…25dfe 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x25dfe…25e0d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x25e0d…25e2d (44, 0, 30) 49 46 20 28 49 3d 31 33 39 29 20 54 48 45 4e 20 47 4f 20 54 4f 20 44 45 42 45 54 3b 20 20 20 20 ┆IF (I=139) THEN GO TO DEBET; ┆
0x25e2d…25e4d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x25e4d…25e5c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x25e5c…25eab (44, 0, 31) 0x20[0x4f]
0x25eab…25ecb (44, 0, 32) 50 55 54 20 53 4b 49 50 20 45 44 49 54 28 46 41 4b 54 29 20 28 50 27 2d 2d 2d 2d 2d 2d 2d 56 2e ┆PUT SKIP EDIT(FAKT) (P'-------V.┆
0x25ecb…25eeb 39 39 27 29 20 28 58 28 33 29 29 2c 20 28 44 41 54 55 4d 29 20 28 50 39 39 39 39 39 39 29 20 28 ┆99') (X(3)), (DATUM) (P999999) (┆
0x25eeb…25efa 58 28 36 29 29 3b 20 20 20 20 20 20 20 20 20 ┆X(6)); ┆
0x25efa…25f1a (44, 0, 33) 50 55 54 20 45 44 49 54 28 44 45 42 45 54 29 20 28 50 27 2d 2d 2d 2d 2d 2d 2d 56 2e 39 39 29 20 ┆PUT EDIT(DEBET) (P'-------V.99) ┆
0x25f1a…25f3a 28 58 28 32 29 29 2c 20 28 4b 52 45 44 49 54 29 20 28 50 27 2d 2d 2d 2d 2d 2d 2d 56 2e 39 39 29 ┆(X(2)), (KREDIT) (P'-------V.99)┆
0x25f3a…25f49 20 28 54 45 58 54 29 3b 20 20 20 20 20 20 20 ┆ (TEXT); ┆
0x25f49…25f69 (44, 0, 34) 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 4f 4d 20 52 5b 54 ┆PUT FILE(DISP) SKIP LIST('OM RÄT┆
0x25f69…25f89 54 20 54 52 59 43 4b 20 50 5d 20 47 4f 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆T TRYCK PÅ GO'); ┆
0x25f89…25f98 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x25f98…25fb8 (44, 0, 35) 30 20 20 20 20 20 20 20 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 ┆
0x25fb8…25fd8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x25fd8…25fe7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x25fe7…26036 (44, 0, 36) 0x20[0x4f]
0x26036…26056 (44, 0, 37) 43 41 4c 4c 20 53 45 4f 46 28 46 41 4b 46 49 4c 45 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆CALL SEOF(FAKFILE); ┆
0x26056…26076 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x26076…26085 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x26085…260a5 (44, 0, 38) 57 52 49 54 45 20 46 49 4c 45 28 46 41 4b 46 49 4c 45 29 20 46 52 4f 4d 20 46 41 4b 3b 20 20 20 ┆WRITE FILE(FAKFILE) FROM FAK; ┆
0x260a5…260c5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x260c5…260d4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x260d4…260f4 (44, 0, 39) 43 4c 4f 53 45 20 46 41 4b 46 49 4c 45 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆CLOSE FAKFILE; ┆
0x260f4…26114 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x26114…26123 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x26123…26143 (44, 0, 40) 4f 50 45 4e 20 46 41 4b 46 49 4c 45 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆OPEN FAKFILE; ┆
0x26143…26163 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x26163…26172 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x26172…2618f (45, 0, 0) DataSector[0x1d]
[…0x74…]
0x26eb3…26ed0 (46, 0, 40) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 ┆ PUT ┆
0x26ed0…26eed (46, 0, 41) 53 4b 49 50 20 45 44 49 54 28 52 55 42 31 29 28 41 28 35 30 29 29 20 20 28 52 55 42 32 ┆SKIP EDIT(RUB1)(A(50)) (RUB2┆
0x26eed…26f0a (46, 0, 42) 29 20 28 41 28 39 29 29 20 28 52 55 42 33 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆) (A(9)) (RUB3); ┆
0x26f0a…26f27 (46, 0, 43) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 28 32 29 20 ┆ PUT SKIP(2) ┆
0x26f27…26f44 (46, 0, 44) 45 44 49 54 28 52 55 42 34 29 20 28 41 28 35 30 29 29 20 28 52 55 42 35 29 3b 20 20 20 ┆EDIT(RUB4) (A(50)) (RUB5); ┆
0x26f44…26f61 (46, 0, 45) 0x20[0x1d]
[…0x3…]
0x26fb8…26fd5 (46, 0, 49) 20 4f 50 45 4e 20 46 41 4b 46 49 4c 45 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ OPEN FAKFILE; ┆
0x26fd5…26ff2 (46, 0, 50) 0x20[0x1d]
0x26ff2…2700f (46, 0, 51) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4c 4f 4f 50 31 3a 20 ┆ LOOP1: ┆
0x2700f…2702c (46, 0, 52) 0x20[0x1d]
[…0x1…]
0x27049…27066 (46, 0, 54) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4b 52 45 44 49 54 20 3d 30 3b 20 44 45 42 45 ┆ KREDIT =0; DEBE┆
0x27066…27083 (46, 0, 55) 54 3d 30 3b 20 42 45 4c 4f 50 50 3d 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆T=0; BELOPP=0; ┆
0x27083…270a0 (46, 0, 56) 0x20[0x1d]
0x270a0…270bd (46, 0, 57) 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 28 44 49 53 50 29 20 53 4b 49 50 20 4c 49 53 ┆ PUT FILE(DISP) SKIP LIS┆
0x270bd…270da (46, 0, 58) 54 28 27 46 41 4b 54 55 52 41 4e 55 4d 4d 45 52 2c 20 4f 4d 20 53 4c 55 54 20 39 39 39 ┆T('FAKTURANUMMER, OM SLUT 999┆
0x270da…270f7 (46, 0, 59) 39 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 47 45 ┆999'); GE┆
0x270f7…27114 (46, 0, 60) 54 20 4c 49 53 54 20 28 46 41 4b 54 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆T LIST (FAKT); ┆
0x27114…27131 (46, 0, 61) 0x20[0x1d]
0x27131…2714e (46, 0, 62) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 28 46 41 4b 54 3d 39 ┆ IF (FAKT=9┆
0x2714e…2716b (46, 0, 63) 39 39 39 39 39 29 20 54 48 45 4e 20 47 4f 20 54 4f 20 53 4c 55 54 3b 20 20 20 20 20 20 ┆99999) THEN GO TO SLUT; ┆
0x2716b…27188 (46, 0, 64) 0x20[0x1d]
0x27188…271a5 (46, 0, 65) 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 28 44 49 53 50 29 20 44 41 54 ┆ PUT FILE(DISP) DAT┆
0x271a5…271c2 (46, 0, 66) 55 4d 20 53 4b 49 50 20 4c 49 53 54 28 27 44 41 54 55 4d 27 29 3b 20 20 20 20 20 20 20 ┆UM SKIP LIST('DATUM'); ┆
0x271c2…271df (46, 0, 67) 0x20[0x1d]
0x271df…271fc (46, 0, 68) 20 20 20 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 ┆ GET LIST(DATUM); ┆
0x271fc…27219 (46, 0, 69) 0x20[0x1d]
0x27219…27236 (46, 0, 70) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 46 ┆ PUT F┆
0x27236…27253 (46, 0, 71) 49 4c 45 28 44 49 53 50 29 20 53 4b 49 50 20 4c 49 53 54 28 27 42 45 4c 4f 50 50 2c 4f ┆ILE(DISP) SKIP LIST('BELOPP,O┆
0x27253…27270 (46, 0, 72) 4d 20 44 45 42 45 54 3d 4b 37 2c 20 4f 4d 20 4b 52 45 44 49 54 3d 4b 36 27 29 3b 20 20 ┆M DEBET=K7, OM KREDIT=K6'); ┆
0x27270…2728d (46, 0, 73) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 45 54 20 4c 49 53 54 28 42 45 4c 4f ┆ GET LIST(BELO┆
0x2728d…272aa (46, 0, 74) 50 50 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); ┆
0x272aa…272c7 (46, 0, 75) 0x20[0x1d]
0x272c7…272e4 (46, 0, 76) 20 20 20 20 20 20 20 20 43 41 4c 4c 20 4b 45 59 46 55 4e 28 49 29 3b 20 20 20 20 20 20 ┆ CALL KEYFUN(I); ┆
0x272e4…27301 (47, 0, 0) 44 43 4c 20 31 20 46 41 4b 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆DCL 1 FAK, ┆
0x27301…2731e (47, 0, 1) 0x20[0x1d]
[…0x3…]
0x27375…27392 (47, 0, 5) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 20 46 41 4b 54 20 43 48 41 52 28 ┆ 2 FAKT CHAR(┆
0x27392…273af (47, 0, 6) 31 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 ┆10), ┆
0x273af…273cc (47, 0, 7) 0x20[0x1d]
0x273cc…273e9 (47, 0, 8) 20 20 20 20 20 20 20 20 20 32 20 44 41 54 55 4d 20 43 48 41 52 28 36 29 2c 20 20 20 20 ┆ 2 DATUM CHAR(6), ┆
0x273e9…27406 (47, 0, 9) 0x20[0x1d]
[…0x1…]
0x27423…27440 (47, 0, 11) 20 32 20 44 45 42 45 54 20 43 48 41 52 28 31 30 29 20 49 4e 49 54 28 27 20 20 20 20 20 ┆ 2 DEBET CHAR(10) INIT(' ┆
0x27440…2745d (47, 0, 12) 20 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 ┆ '), ┆
0x2745d…2747a (47, 0, 13) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 20 4b 52 45 44 49 ┆ 2 KREDI┆
0x2747a…27497 (47, 0, 14) 54 20 43 48 41 52 28 31 30 29 20 49 4e 49 54 28 27 20 20 20 20 20 20 20 20 20 20 27 29 ┆T CHAR(10) INIT(' ')┆
0x27497…274b4 (47, 0, 15) 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 ┆, ┆
0x274b4…274d1 (47, 0, 16) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 20 42 45 4c 4f 50 50 20 43 48 41 52 28 31 ┆ 2 BELOPP CHAR(1┆
0x274d1…274ee (47, 0, 17) 30 29 20 49 4e 49 54 28 27 20 20 20 20 20 20 20 20 20 20 27 29 2c 20 20 20 20 20 20 20 ┆0) INIT(' '), ┆
0x274ee…2750b (47, 0, 18) 0x20[0x1d]
0x2750b…27528 (47, 0, 19) 20 20 20 20 20 20 32 20 54 45 58 54 20 43 48 41 52 28 32 35 29 20 49 4e 49 54 28 27 20 ┆ 2 TEXT CHAR(25) INIT(' ┆
0x27528…27545 (47, 0, 20) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 29 3b 20 20 ┆ '); ┆
0x27545…27562 (47, 0, 21) 0x20[0x1d]
[…0x2…]
0x2759c…275b9 (47, 0, 24) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 43 4c 20 46 41 4b 46 49 4c 45 20 46 49 ┆ DCL FAKFILE FI┆
0x275b9…275d6 (47, 0, 25) 4c 45 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 ┆LE; ┆
0x275d6…275f3 (47, 0, 26) 0x20[0x1d]
0x275f3…27610 (47, 0, 27) 20 20 20 20 20 20 20 44 43 4c 20 52 55 42 31 20 43 48 41 52 28 33 30 29 20 49 4e 49 54 ┆ DCL RUB1 CHAR(30) INIT┆
0x27610…2762d (47, 0, 28) 20 28 27 4d 20 20 53 20 54 20 45 20 4e 20 48 20 41 20 52 20 44 20 54 20 20 20 41 20 42 ┆ ('M S T E N H A R D T A B┆
0x2762d…2764a (47, 0, 29) 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 44 ┆'); D┆
0x2764a…27667 (47, 0, 30) 43 4c 20 52 55 42 32 20 43 48 41 52 28 31 30 29 20 49 4e 49 54 28 27 50 52 4f 47 52 3a ┆CL RUB2 CHAR(10) INIT('PROGR:┆
0x27667…27684 (47, 0, 31) 4d 53 31 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 ┆MS1'); ┆
0x27684…276a1 (47, 0, 32) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 43 4c 20 52 55 42 33 20 ┆ DCL RUB3 ┆
0x276a1…276be (47, 0, 33) 43 48 41 52 28 34 30 29 20 49 4e 49 54 20 28 27 44 20 55 20 42 20 42 20 45 20 4c 20 42 ┆CHAR(40) INIT ('D U B B E L B┆
0x276be…276db (47, 0, 34) 20 45 20 54 20 4b 20 4f 20 4e 20 54 20 52 20 4f 20 4c 20 4c 20 27 29 3b 20 20 20 20 20 ┆ E T K O N T R O L L '); ┆
0x276db…276f8 (47, 0, 35) 20 20 20 20 20 20 20 20 20 20 20 20 44 43 4c 20 52 55 42 34 20 43 48 41 52 28 34 35 29 ┆ DCL RUB4 CHAR(45)┆
0x276f8…27715 (47, 0, 36) 20 49 4e 49 54 20 28 27 46 41 4b 54 55 52 41 4e 52 20 20 20 20 44 41 54 55 4d 20 20 20 ┆ INIT ('FAKTURANR DATUM ┆
0x27715…27732 (47, 0, 37) 20 20 20 20 44 45 42 45 54 20 20 20 20 20 20 4b 52 45 44 49 54 27 29 3b 20 20 20 20 20 ┆ DEBET KREDIT'); ┆
0x27732…2774f (47, 0, 38) 20 20 20 20 44 43 4c 20 52 55 42 35 20 43 48 41 52 28 35 29 20 49 4e 49 54 20 28 27 54 ┆ DCL RUB5 CHAR(5) INIT ('T┆
0x2774f…2776c (47, 0, 39) 45 58 54 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 ┆EXT'); ┆
0x2776c…27789 (47, 0, 40) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 ┆ PUT ┆
0x27789…277a6 (47, 0, 41) 53 4b 49 50 20 45 44 49 54 28 52 55 42 31 29 28 41 28 35 30 29 29 20 20 28 52 55 42 32 ┆SKIP EDIT(RUB1)(A(50)) (RUB2┆
0x277a6…277c3 (47, 0, 42) 29 20 28 41 28 39 29 29 20 28 52 55 42 33 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆) (A(9)) (RUB3); ┆
0x277c3…277e0 (47, 0, 43) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 28 32 29 20 ┆ PUT SKIP(2) ┆
0x277e0…277fd (47, 0, 44) 45 44 49 54 28 52 55 42 34 29 20 28 41 28 35 30 29 29 20 28 52 55 42 35 29 3b 20 20 20 ┆EDIT(RUB4) (A(50)) (RUB5); ┆
0x277fd…2781a (47, 0, 45) 0x20[0x1d]
[…0x3…]
0x27871…2788e (47, 0, 49) 20 4f 50 45 4e 20 46 41 4b 46 49 4c 45 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ OPEN FAKFILE; ┆
0x2788e…278ab (47, 0, 50) 0x20[0x1d]
0x278ab…278c8 (47, 0, 51) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4c 4f 4f 50 31 3a 20 ┆ LOOP1: ┆
0x278c8…278e5 (47, 0, 52) 0x20[0x1d]
[…0x1…]
0x27902…2791f (47, 0, 54) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4b 52 45 44 49 54 20 3d 30 3b 20 44 45 42 45 ┆ KREDIT =0; DEBE┆
0x2791f…2793c (47, 0, 55) 54 3d 30 3b 20 42 45 4c 4f 50 50 3d 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆T=0; BELOPP=0; ┆
0x2793c…27959 (47, 0, 56) 0x20[0x1d]
0x27959…27976 (47, 0, 57) 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 28 44 49 53 50 29 20 53 4b 49 50 20 4c 49 53 ┆ PUT FILE(DISP) SKIP LIS┆
0x27976…27993 (47, 0, 58) 54 28 27 46 41 4b 54 55 52 41 4e 55 4d 4d 45 52 2c 20 4f 4d 20 53 4c 55 54 20 39 39 39 ┆T('FAKTURANUMMER, OM SLUT 999┆
0x27993…279b0 (47, 0, 59) 39 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 47 45 ┆999'); GE┆
0x279b0…279cd (47, 0, 60) 54 20 4c 49 53 54 20 28 46 41 4b 54 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆T LIST (FAKT); ┆
0x279cd…279ea (47, 0, 61) 0x20[0x1d]
0x279ea…27a07 (47, 0, 62) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 28 46 41 4b 54 3d 39 ┆ IF (FAKT=9┆
0x27a07…27a24 (47, 0, 63) 39 39 39 39 39 29 20 54 48 45 4e 20 47 4f 20 54 4f 20 53 4c 55 54 3b 20 20 20 20 20 20 ┆99999) THEN GO TO SLUT; ┆
0x27a24…27a41 (47, 0, 64) 0x20[0x1d]
0x27a41…27a5e (47, 0, 65) 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 28 44 49 53 50 29 20 44 41 54 ┆ PUT FILE(DISP) DAT┆
0x27a5e…27a7b (47, 0, 66) 55 4d 20 53 4b 49 50 20 4c 49 53 54 28 27 44 41 54 55 4d 27 29 3b 20 20 20 20 20 20 20 ┆UM SKIP LIST('DATUM'); ┆
0x27a7b…27a98 (47, 0, 67) 0x20[0x1d]
0x27a98…27ab5 (47, 0, 68) 20 20 20 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 ┆ GET LIST(DATUM); ┆
0x27ab5…27ad2 (47, 0, 69) 0x20[0x1d]
0x27ad2…27aef (47, 0, 70) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 46 ┆ PUT F┆
0x27aef…27b0c (47, 0, 71) 49 4c 45 28 44 49 53 50 29 20 53 4b 49 50 20 4c 49 53 54 28 27 42 45 4c 4f 50 50 2c 4f ┆ILE(DISP) SKIP LIST('BELOPP,O┆
0x27b0c…27b29 (47, 0, 72) 4d 20 44 45 42 45 54 3d 4b 37 2c 20 4f 4d 20 4b 52 45 44 49 54 3d 4b 36 27 29 3b 20 20 ┆M DEBET=K7, OM KREDIT=K6'); ┆
0x27b29…27b46 (47, 0, 73) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 45 54 20 4c 49 53 54 28 42 45 4c 4f ┆ GET LIST(BELO┆
0x27b46…27b63 (47, 0, 74) 50 50 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); ┆
0x27b63…27b80 (47, 0, 75) 0x20[0x1d]
0x27b80…27b9d (47, 0, 76) 20 20 20 20 20 20 20 20 43 41 4c 4c 20 4b 45 59 46 55 4e 28 49 29 3b 20 20 20 20 20 20 ┆ CALL KEYFUN(I); ┆
0x27b9d…27bec (48, 0, 0) DataSector[0x4f]
[…0x2f…]
0x28a6d…28a8d (49, 0, 7) cd 35 4d 2a 14 45 11 04 00 19 cd c6 45 2a 14 45 23 e3 22 1c 45 e5 21 24 45 22 1a 45 23 7e c6 20 ┆ 5M* E E* E# " E !$E" E#~ ┆
0x28a8d…28aad 47 fe 23 3e 07 d4 22 46 cd 8d 45 cd 66 51 e1 22 1c 45 21 12 4d cd bf 4f cd 14 4d cd f1 48 cd 35 ┆G #> "F E fQ " E! M O M H 5┆
0x28aad…28abc 4d 3a 26 45 c6 0a 47 cd 8d 45 21 00 00 cd ba ┆M:&E G E! ┆
0x28abc…28adc (49, 0, 8) 48 2a 09 45 cd 05 4c 06 1c cd 8d 45 2a 14 45 e5 21 ab 43 36 03 cd 19 46 d1 e1 cd 05 4c 06 1c cd ┆H* E L E* E ! C6 F L ┆
0x28adc…28afc 8d 45 01 fb ff 09 cd c6 45 2a 20 45 cd 05 4c eb cd 05 4c c3 d7 45 f0 2a 0b 45 22 1c 45 cd e2 4e ┆ E E* E L L E * E" E N┆
0x28afc…28b0b cd 5f 4f fe d3 ca bc 4f 21 01 32 cd 05 4c 2a ┆ _O O! 2 L*┆
0x28b0b…28b2b (49, 0, 9) 1a 45 23 36 00 22 1a 45 c9 fe 04 d4 27 52 b8 c8 fe 01 78 da 4f 4d ca 5d 4d 06 16 b7 ca 8d 45 04 ┆ E#6 " E 'R x OM ÅM E ┆
0x28b2b…28b4b c3 8d 45 3d f5 06 19 cd 8d 45 f1 c0 06 17 c3 8d 45 b7 f5 06 1a cd 8d 45 f1 c0 06 16 c3 8d 45 06 ┆ E= E E E E ┆
0x28b4b…28b5a 15 cd 8d 45 cd e2 4e cd 5f 4f fe c7 21 2a 00 ┆ E N _O !* ┆
0x28b5a…28b7a (49, 0, 10) c2 8d 4d cd e2 4e cd e2 4e cd e2 4e cd e2 4e 21 27 00 cd 05 4c cd 5f 4f fe 85 c8 fe d4 ca 5a 4e ┆ M N N N N!' L _O ZN┆
0x28b7a…28b9a fe d5 ca d5 4d fe 88 3e 00 c4 22 46 06 28 cd 96 49 cd bc 4f f5 cd f1 48 fe 03 06 26 ca c1 4d 06 ┆ M > "F ( I O H & M ┆
0x28b9a…28ba9 01 cd 35 4d 06 27 cd 8d 45 f1 fe 8c ca ac 4d ┆ 5M ' E M┆
0x28ba9…28bc9 (49, 0, 11) fe 87 c4 9d 50 cd e2 4e c3 90 4d cd bc 4f fe 86 c4 22 46 cd fd 48 23 22 1c 45 fe 50 ca 1e 4e fe ┆ P N M O "F H#" E P N ┆
0x28bc9…28be9 41 ca 40 4e fe 58 3e 0e c4 22 46 21 20 32 cd 05 4c cd 6d 52 06 2a cd 8d 45 cd 5f 4f fe 8c ca dd ┆A @N X> "F! 2 L mR * E _O ┆
0x28be9…28bf8 4d fe 87 c4 9d 50 cd fd 48 fe 28 ca d5 4d cd ┆M P H ( M ┆
0x28bf8…28c18 (49, 0, 12) e2 4e c3 90 4d cd f1 48 06 03 cd 35 4d cd 66 51 cd f1 48 fe 03 3e 07 c4 22 46 06 29 c5 cd e2 4e ┆ N M H 5M fQ H > "F ) N┆
0x28c18…28c38 c1 cd 8d 45 c3 03 4e cd f1 48 06 03 cd 35 4d cd fd 48 fe 28 06 26 c2 35 4e cd 6d 52 06 28 c3 3a ┆ E N H 5M H ( & 5N mR ( :┆
0x28c38…28c47 4e 21 0d 32 cd 05 4c cd fd 48 fe 28 ca 76 4e ┆N! 2 L H ( vN┆
0x28c47…28c67 (49, 0, 13) 50 55 54 20 53 4b 49 50 28 32 29 20 45 44 49 54 28 52 55 42 34 29 20 28 41 28 35 30 29 29 20 28 ┆PUT SKIP(2) EDIT(RUB4) (A(50)) (┆
0x28c67…28c87 52 55 42 35 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 ┆RUB5); ┆
0x28c87…28c96 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x28c96…28ce5 (49, 0, 14) 0x20[0x4f]
0x28ce5…28d05 (49, 0, 15) 4f 50 45 4e 20 46 41 4b 46 49 4c 45 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆OPEN FAKFILE; ┆
0x28d05…28d25 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x28d25…28d34 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x28d34…28d54 (49, 0, 16) 4c 4f 4f 50 31 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 ┆LOOP1: ┆
0x28d54…28d74 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x28d74…28d83 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x28d83…28da3 (49, 0, 17) 4b 52 45 44 49 54 20 3d 30 3b 20 44 45 42 45 54 3d 30 3b 20 42 45 4c 4f 50 50 3d 30 3b 20 20 20 ┆KREDIT =0; DEBET=0; BELOPP=0; ┆
0x28da3…28dc3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x28dc3…28dd2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x28dd2…28df2 (49, 0, 18) 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 46 41 4b 54 55 52 ┆PUT FILE(DISP) SKIP LIST('FAKTUR┆
0x28df2…28e12 41 4e 55 4d 4d 45 52 2c 20 4f 4d 20 53 4c 55 54 20 39 39 39 39 39 39 27 29 3b 20 20 20 20 20 20 ┆ANUMMER, OM SLUT 999999'); ┆
0x28e12…28e21 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x28e21…28e41 (49, 0, 19) 47 45 54 20 4c 49 53 54 20 28 46 41 4b 54 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆GET LIST (FAKT); ┆
0x28e41…28e61 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x28e61…28e70 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x28e70…28e90 (49, 0, 20) 49 46 20 28 46 41 4b 54 3d 39 39 39 39 39 39 29 20 54 48 45 4e 20 47 4f 20 54 4f 20 53 4c 55 54 ┆IF (FAKT=999999) THEN GO TO SLUT┆
0x28e90…28eb0 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 ┆; ┆
0x28eb0…28ebf 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x28ebf…28edf (49, 0, 21) 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 42 45 4c 4f 50 50 ┆PUT FILE(DISP) SKIP LIST('BELOPP┆
0x28edf…28eff 2c 20 4f 4d 20 44 45 42 45 54 3d 4b 37 2c 20 4f 4d 20 4b 52 45 44 49 54 3d 4b 36 20 20 20 20 27 ┆, OM DEBET=K7, OM KREDIT=K6 '┆
0x28eff…28f0e 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆); ┆
0x28f0e…28f2e (49, 0, 22) 58 58 3a 20 47 45 54 20 4c 49 53 54 20 28 42 45 4c 4f 50 50 29 3b 20 20 20 20 20 20 20 20 20 20 ┆XX: GET LIST (BELOPP); ┆
0x28f2e…28f4e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x28f4e…28f5d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x28f5d…28f7d (49, 0, 23) 43 41 4c 4c 20 4b 45 59 46 55 4e 28 49 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆CALL KEYFUN(I); ┆
0x28f7d…28f9d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x28f9d…28fac 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x28fac…28fcc (49, 0, 24) 49 46 20 28 49 3d 31 33 38 29 20 54 48 45 4e 20 47 4f 20 54 4f 20 4b 3b 20 20 20 20 20 20 20 20 ┆IF (I=138) THEN GO TO K; ┆
0x28fcc…28fec 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x28fec…28ffb 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x28ffb…2901b (49, 0, 25) 49 46 20 28 49 3d 31 33 39 29 20 54 48 45 4e 20 47 4f 20 54 4f 20 44 3b 20 20 20 20 20 20 20 20 ┆IF (I=139) THEN GO TO D; ┆
0x2901b…2903b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2903b…2904a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2904a…2906a (49, 0, 26) 47 4f 20 54 4f 20 58 58 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆GO TO XX; ┆
0x2906a…2908a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2908a…29099 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x29099…290b9 (49, 0, 27) 4b 3a 20 4b 52 45 44 49 54 20 3d 20 42 45 4c 4f 50 50 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆K: KREDIT = BELOPP; ┆
0x290b9…290d9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x290d9…290e8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x290e8…29108 (49, 0, 28) 47 4f 20 54 4f 20 4c 4f 50 50 41 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆GO TO LOPPA; ┆
0x29108…29128 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x29128…29137 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x29137…29157 (49, 0, 29) 44 3a 20 44 45 42 45 54 3d 42 45 4c 4f 50 50 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆D: DEBET=BELOPP; ┆
0x29157…29177 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x29177…29186 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x29186…291a6 (49, 0, 30) 4c 4f 50 50 41 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 ┆LOPPA: ┆
0x291a6…291c6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x291c6…291d5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x291d5…291f5 (49, 0, 31) 50 55 54 20 53 4b 49 50 20 45 44 49 54 28 46 41 4b 54 29 28 41 28 31 33 29 29 20 28 44 41 54 55 ┆PUT SKIP EDIT(FAKT)(A(13)) (DATU┆
0x291f5…29215 4d 29 28 41 28 31 30 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 ┆M)(A(10)); ┆
0x29215…29224 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x29224…29244 (49, 0, 32) 50 55 54 20 45 44 49 54 28 44 45 42 45 54 29 28 41 28 31 32 29 29 20 28 4b 52 45 44 49 54 29 20 ┆PUT EDIT(DEBET)(A(12)) (KREDIT) ┆
0x29244…29264 28 41 28 31 35 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(15)); ┆
0x29264…29273 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x29273…29293 (49, 0, 33) 50 55 54 20 45 44 49 54 28 54 45 58 54 29 28 41 28 32 30 29 29 3b 20 20 20 20 20 20 20 20 20 20 ┆PUT EDIT(TEXT)(A(20)); ┆
0x29293…292b3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x292b3…292c2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x292c2…29311 (49, 0, 34) 0x20[0x4f]
0x29311…29331 (49, 0, 35) 43 41 4c 4c 20 53 45 4f 46 28 46 41 4b 46 49 4c 45 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆CALL SEOF(FAKFILE); ┆
0x29331…29351 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x29351…29360 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x29360…29380 (49, 0, 36) 57 52 49 54 45 20 46 49 4c 45 28 46 41 4b 46 49 4c 45 29 20 46 52 4f 4d 20 28 46 41 4b 29 3b 20 ┆WRITE FILE(FAKFILE) FROM (FAK); ┆
0x29380…293a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x293a0…293af 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x293af…293cf (49, 0, 37) 43 4c 4f 53 45 20 46 41 4b 46 49 4c 45 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆CLOSE FAKFILE; ┆
0x293cf…293ef 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x293ef…293fe 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x293fe…2941e (49, 0, 38) 4f 50 45 4e 20 46 41 4b 46 49 4c 45 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆OPEN FAKFILE; ┆
0x2941e…2943e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2943e…2944d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2944d…2946d (49, 0, 39) 47 4f 20 54 4f 20 4c 4f 4f 50 31 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆GO TO LOOP1; ┆
0x2946d…2948d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2948d…2949c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2949c…294bc (49, 0, 40) 53 4c 55 54 3a 20 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 ┆SLUT: END; ┆
0x294bc…294dc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x294dc…294eb 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x294eb…29532 (50, 0, 0) DataSector[0x47]
[…0xd…]
0x298cd…29914 (50, 0, 14) 0x00[0x47]
[…0x43d…]