|
DataMuseum.dkPresents historical artifacts from the history of: Q1 computer |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Q1 computer Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: 8 A B D H I K N P Q R V q r
Length: 246296 (0x3c218)
Description: Bits:30008623 DDMQ1-0063__LMC_Original_Generella_pgm_for_bokforing_Sid1_PL1_Sid2_kompil_781105_side1
Types: 8" Floppy Disk
| flag | nrec | reclen | rec_trk | t0 | tn | name | artifact |
|---|---|---|---|---|---|---|---|
| 0 | 127 | 79 | 41 | 61 | 64 | AKTSAL1 | ⟦f2fbbcaaf⟧ Q1_Text, reclen=79, q1file |
| 0 | 49 | 79 | 41 | 51 | 52 | ALTA1 | ⟦f88101c4c⟧ Q1_Text, reclen=79, q1file |
| 0 | 48 | 79 | 41 | 53 | 54 | ALTB1 | ⟦447e72635⟧ Q1_Text, reclen=79, q1file |
| 0 | 52 | 79 | 41 | 55 | 56 | ALTE1 | ⟦6b186eb3e⟧ Q1_Text, reclen=79, q1file |
| 0 | 52 | 79 | 41 | 57 | 58 | ALTF1 | ⟦e1fa5a2bf⟧ Q1_Text, reclen=79, q1file |
| 0 | 254 | 79 | 41 | 65 | 71 | AVDRES1 | ⟦bb3baf735⟧ Q1_Text, reclen=79, q1file |
| 0 | 234 | 79 | 41 | 24 | 30 | BALRÄKN1 | ⟦5515afb05⟧ Q1_Text, reclen=79, q1file |
| 0 | 185 | 79 | 41 | 3 | 7 | BOKRUT1 | ⟦014b64aeb⟧ Q1_Text, reclen=79, q1file |
| 0 | 119 | 79 | 41 | 47 | 49 | BOKSLUT1 | ⟦862c144a9⟧ Q1_Text, reclen=79, q1file |
| 0 | 73 | 79 | 41 | 42 | 44 | BUDGIN1 | ⟦17cffc1d0⟧ Q1_Text, reclen=79, q1file |
| 0 | 44 | 79 | 41 | 45 | 46 | BUDGUT1 | ⟦afdb66d6b⟧ Q1_Text, reclen=79, q1file |
| 0 | 9 | 255 | 15 | 1 | 1 | D | ⟦98fb93e76⟧ Q1_HexDump, reclen=255, q1file |
| 0 | 149 | 79 | 41 | 19 | 23 | HUVBOK1 | ⟦49b13a5d7⟧ Q1_Text, reclen=79, q1file |
| 0 | 56 | 79 | 41 | 38 | 39 | IBALIN1 | ⟦80a93890c⟧ Q1_Text, reclen=79, q1file |
| 0 | 39 | 79 | 41 | 40 | 41 | IBALUT1 | ⟦2a235ffdb⟧ Q1_Text, reclen=79, q1file |
| 0 | 26 | 40 | 50 | 0 | 0 | INDEX | ⟦433c514b2⟧ Q1_HexDump, reclen=40, q1file |
| 0 | 19 | 79 | 41 | 72 | 72 | KLIPP21 | ⟦c58246913⟧ Q1_Text, reclen=79, q1file |
| 0 | 51 | 79 | 41 | 10 | 11 | KOALT1 | ⟦04b342efe⟧ Q1_Text, reclen=79, q1file |
| 0 | 37 | 79 | 41 | 8 | 9 | KOUPP1 | ⟦31e7bed15⟧ Q1_HexDump, reclen=79, q1file |
| 0 | 38 | 79 | 41 | 12 | 12 | KOUT1 | ⟦f2f5a25ee⟧ Q1_Text, reclen=79, q1file |
| 0 | 19 | 79 | 41 | 50 | 50 | NYVERNR1 | ⟦c581f0b4b⟧ Q1_Text, reclen=79, q1file |
| 0 | 49 | 79 | 41 | 59 | 60 | NYÅR1 | ⟦5f6f2e54c⟧ Q1_Text, reclen=79, q1file |
| 0 | 3 | 255 | 15 | 2 | 2 | ⟦e120d8c13⟧ Q1_HexDump, reclen=255, q1file | |
| 0 | 266 | 79 | 41 | 31 | 37 | RESRÄKN1 | ⟦2df7bffb6⟧ Q1_Text, reclen=79, q1file |
| 0 | 132 | 79 | 41 | 13 | 16 | VERIFIN1 | ⟦fbb7066a5⟧ Q1_Text, reclen=79, q1file |
| 0 | 70 | 79 | 41 | 17 | 18 | VERIFUT1 | ⟦0afeed21b⟧ Q1_Text, reclen=79, q1file |
0x00000…00028 (0, 0, 0) Catalog {f0=0x0000, name=»INDEX «, nrec=0x001a, reclen=0x0028, rectrack=0x0032, track0=0x0000, trackn=0x0000}
0x00028…00050 (0, 0, 1) Catalog {f0=0x0000, name=»D «, nrec=0x0009, reclen=0x00ff, rectrack=0x000f, track0=0x0001, trackn=0x0001}
0x00050…00078 (0, 0, 2) Catalog {f0=0x0000, name=»PRINT «, nrec=0x0003, reclen=0x00ff, rectrack=0x000f, track0=0x0002, trackn=0x0002}
0x00078…000a0 (0, 0, 3) Catalog {f0=0x0000, name=»BOKRUT1 «, nrec=0x00b9, reclen=0x004f, rectrack=0x0029, track0=0x0003, trackn=0x0007}
0x000a0…000c8 (0, 0, 4) Catalog {f0=0x0000, name=»KOUPP1 «, nrec=0x0025, reclen=0x004f, rectrack=0x0029, track0=0x0008, trackn=0x0009}
0x000c8…000f0 (0, 0, 5) Catalog {f0=0x0000, name=»KOALT1 «, nrec=0x0033, reclen=0x004f, rectrack=0x0029, track0=0x000a, trackn=0x000b}
0x000f0…00118 (0, 0, 6) Catalog {f0=0x0000, name=»KOUT1 «, nrec=0x0026, reclen=0x004f, rectrack=0x0029, track0=0x000c, trackn=0x000c}
0x00118…00140 (0, 0, 7) Catalog {f0=0x0000, name=»VERIFIN1«, nrec=0x0084, reclen=0x004f, rectrack=0x0029, track0=0x000d, trackn=0x0010}
0x00140…00168 (0, 0, 8) Catalog {f0=0x0000, name=»VERIFUT1«, nrec=0x0046, reclen=0x004f, rectrack=0x0029, track0=0x0011, trackn=0x0012}
0x00168…00190 (0, 0, 9) Catalog {f0=0x0000, name=»HUVBOK1 «, nrec=0x0095, reclen=0x004f, rectrack=0x0029, track0=0x0013, trackn=0x0017}
0x00190…001b8 (0, 0, 10) Catalog {f0=0x0000, name=»BALRÄKN1«, nrec=0x00ea, reclen=0x004f, rectrack=0x0029, track0=0x0018, trackn=0x001e}
0x001b8…001e0 (0, 0, 11) Catalog {f0=0x0000, name=»RESRÄKN1«, nrec=0x010a, reclen=0x004f, rectrack=0x0029, track0=0x001f, trackn=0x0025}
0x001e0…00208 (0, 0, 12) Catalog {f0=0x0000, name=»IBALIN1 «, nrec=0x0038, reclen=0x004f, rectrack=0x0029, track0=0x0026, trackn=0x0027}
0x00208…00230 (0, 0, 13) Catalog {f0=0x0000, name=»IBALUT1 «, nrec=0x0027, reclen=0x004f, rectrack=0x0029, track0=0x0028, trackn=0x0029}
0x00230…00258 (0, 0, 14) Catalog {f0=0x0000, name=»BUDGIN1 «, nrec=0x0049, reclen=0x004f, rectrack=0x0029, track0=0x002a, trackn=0x002c}
0x00258…00280 (0, 0, 15) Catalog {f0=0x0000, name=»BUDGUT1 «, nrec=0x002c, reclen=0x004f, rectrack=0x0029, track0=0x002d, trackn=0x002e}
0x00280…002a8 (0, 0, 16) Catalog {f0=0x0000, name=»BOKSLUT1«, nrec=0x0077, reclen=0x004f, rectrack=0x0029, track0=0x002f, trackn=0x0031}
0x002a8…002d0 (0, 0, 17) Catalog {f0=0x0000, name=»NYVERNR1«, nrec=0x0013, reclen=0x004f, rectrack=0x0029, track0=0x0032, trackn=0x0032}
0x002d0…002f8 (0, 0, 18) Catalog {f0=0x0000, name=»ALTA1 «, nrec=0x0031, reclen=0x004f, rectrack=0x0029, track0=0x0033, trackn=0x0034}
0x002f8…00320 (0, 0, 19) Catalog {f0=0x0000, name=»ALTB1 «, nrec=0x0030, reclen=0x004f, rectrack=0x0029, track0=0x0035, trackn=0x0036}
0x00320…00348 (0, 0, 20) Catalog {f0=0x0000, name=»ALTE1 «, nrec=0x0034, reclen=0x004f, rectrack=0x0029, track0=0x0037, trackn=0x0038}
0x00348…00370 (0, 0, 21) Catalog {f0=0x0000, name=»ALTF1 «, nrec=0x0034, reclen=0x004f, rectrack=0x0029, track0=0x0039, trackn=0x003a}
0x00370…00398 (0, 0, 22) Catalog {f0=0x0000, name=»NYÅR1 «, nrec=0x0031, reclen=0x004f, rectrack=0x0029, track0=0x003b, trackn=0x003c}
0x00398…003c0 (0, 0, 23) Catalog {f0=0x0000, name=»AKTSAL1 «, nrec=0x007f, reclen=0x004f, rectrack=0x0029, track0=0x003d, trackn=0x0040}
0x003c0…003e8 (0, 0, 24) Catalog {f0=0x0000, name=»AVDRES1 «, nrec=0x00fe, reclen=0x004f, rectrack=0x0029, track0=0x0041, trackn=0x0047}
0x003e8…00410 (0, 0, 25) Catalog {f0=0x0000, name=»KLIPP21 «, nrec=0x0013, reclen=0x004f, rectrack=0x0029, track0=0x0048, trackn=0x0048}
0x00410…00430 (0, 0, 26) 09 00 01 20 20 20 20 20 20 20 09 00 ff 00 0f 01 00 00 00 00 00 00 08 00 00 00 00 00 00 00 00 00 ┆ ┆
0x00430…00438 00 00 00 00 00 00 00 00 ┆ ┆
0x00438…00458 (0, 0, 27) 09 00 01 20 20 20 20 20 20 20 09 00 ff 00 0f 01 00 00 00 00 00 00 08 00 00 00 00 00 00 00 00 00 ┆ ┆
0x00458…00460 00 00 00 00 00 00 00 00 ┆ ┆
0x00460…00480 (0, 0, 28) 09 00 01 20 20 20 20 20 20 20 09 00 ff 00 0f 01 00 00 00 00 00 00 08 00 00 00 00 00 00 00 00 00 ┆ ┆
0x00480…00488 00 00 00 00 00 00 00 00 ┆ ┆
0x00488…004a8 (0, 0, 29) 09 00 01 20 20 20 20 20 20 20 09 00 ff 00 0f 01 00 00 00 00 00 00 08 00 00 00 00 00 00 00 00 00 ┆ ┆
0x004a8…004b0 00 00 00 00 00 00 00 00 ┆ ┆
0x004b0…004d0 (0, 0, 30) 09 00 01 20 20 20 20 20 20 20 09 00 ff 00 0f 01 00 00 00 00 00 00 08 00 00 00 00 00 00 00 00 00 ┆ ┆
0x004d0…004d8 00 00 00 00 00 00 00 00 ┆ ┆
0x004d8…004f8 (0, 0, 31) 09 00 01 20 20 20 20 20 20 20 09 00 ff 00 0f 01 00 00 00 00 00 00 08 00 00 00 00 00 00 00 00 00 ┆ ┆
0x004f8…00500 00 00 00 00 00 00 00 00 ┆ ┆
0x00500…00520 (0, 0, 32) 02 13 00 18 32 02 48 96 32 02 09 02 13 43 18 32 02 48 98 32 02 09 00 00 00 00 00 00 00 00 00 00 ┆ 2 H 2 C 2 H 2 ┆
0x00520…00528 00 00 00 00 00 00 00 00 ┆ ┆
0x00528…00548 (0, 0, 33) 02 13 00 44 1d 49 40 00 1c 15 00 27 47 e7 32 00 47 e7 00 28 47 e9 00 00 00 00 00 00 00 00 00 00 ┆ D I@ 'G 2 G (G ┆
0x00548…00550 00 00 00 00 00 00 00 00 ┆ ┆
0x00550…00570 (0, 0, 34) 32 1b 00 04 00 28 48 9c 32 1f 47 14 00 28 48 bb 32 1d 47 14 00 28 00 00 00 00 00 00 00 00 00 00 ┆2 (H 2 G (H 2 G ( ┆
0x00570…00578 00 00 00 00 00 00 00 00 ┆ ┆
0x00578…00598 (0, 0, 35) 48 d8 00 24 47 14 00 28 48 fc 32 19 47 14 00 28 49 15 32 21 48 8e 00 00 00 00 00 00 00 00 00 00 ┆H $G (H 2 G (I 2!H ┆
0x00598…005a0 00 00 00 00 00 00 00 00 ┆ ┆
0x005a0…005c0 (0, 0, 36) 00 28 00 43 18 32 02 25 15 00 27 32 0d 32 01 2a 43 18 32 02 49 36 00 00 00 00 00 00 00 00 00 00 ┆ ( C 2 % '2 2 *C 2 I6 ┆
0x005c0…005c8 00 00 00 00 00 00 00 00 ┆ ┆
0x005c8…005e8 (0, 0, 37) 32 02 00 02 43 18 32 02 49 38 32 02 09 02 13 43 18 32 02 49 3a 32 00 00 00 00 00 00 00 00 00 00 ┆2 C 2 I82 C 2 I:2 ┆
0x005e8…005f0 00 00 00 00 00 00 00 00 ┆ ┆
0x005f0…00610 (0, 0, 38) 02 09 00 13 43 18 32 02 49 3c 32 02 09 02 13 4d bf 1d 49 40 00 1c 00 00 00 00 00 00 00 00 00 00 ┆ C 2 I<2 M I@ ┆
0x00610…00618 00 00 00 00 00 00 00 00 ┆ ┆
0x00618…00638 (0, 0, 39) 43 18 00 02 49 3e 32 02 09 02 4d d0 1d 46 14 00 1c 46 f0 00 1c 46 00 00 00 00 00 00 00 00 00 00 ┆C I>2 M F F F ┆
0x00638…00640 00 00 00 00 00 00 00 00 ┆ ┆
0x00640…00660 (0, 0, 40) dc 32 00 49 42 32 03 06 46 df 49 45 00 19 17 05 02 42 15 00 27 32 00 00 00 00 00 00 00 00 00 00 ┆ 2 IB2 F IE B '2 ┆
0x00660…00668 00 00 00 00 00 00 00 00 ┆ ┆
0x00668…00688 (0, 0, 41) 0d 32 00 2a 43 18 32 02 47 db 32 02 09 02 4e 07 1d 15 00 27 49 47 00 00 00 00 00 00 00 00 00 00 ┆ 2 *C 2 G 2 N 'IG ┆
0x00688…00690 00 00 00 00 00 00 00 00 ┆ ┆
0x00690…006b0 (0, 0, 42) 32 06 00 4e 14 1c 15 00 27 32 0d 32 01 2a 49 4d 32 06 26 15 00 27 00 00 00 00 00 00 00 00 00 00 ┆2 N '2 2 *IM2 & ' ┆
0x006b0…006b8 00 00 00 00 00 00 00 00 ┆ ┆
0x006b8…006d8 (0, 0, 43) 49 53 00 16 49 69 00 28 23 46 d6 32 06 25 15 00 27 32 0d 32 01 2a 00 00 00 00 00 00 00 00 00 00 ┆IS Ii (#F 2 % '2 2 * ┆
0x006d8…006e0 00 00 00 00 00 00 00 00 ┆ ┆
0x006e0…00700 (0, 0, 44) 43 18 00 02 47 e3 32 02 09 02 43 18 32 02 48 90 32 02 09 02 13 43 00 00 00 00 00 00 00 00 00 00 ┆C G 2 C 2 H 2 C ┆
0x00700…00708 00 00 00 00 00 00 00 00 ┆ ┆
0x00708…00728 (0, 0, 45) 18 32 00 47 db 32 02 09 02 13 43 18 32 02 47 dd 32 02 09 02 13 43 00 00 00 00 00 00 00 00 00 00 ┆ 2 G 2 C 2 G 2 C ┆
0x00728…00730 00 00 00 00 00 00 00 00 ┆ ┆
0x00730…00750 (0, 0, 46) 18 32 00 47 df 32 02 09 02 13 43 18 32 02 48 92 32 02 09 02 13 4e 00 00 00 00 00 00 00 00 00 00 ┆ 2 G 2 C 2 H 2 N ┆
0x00750…00758 00 00 00 00 00 00 00 00 ┆ ┆
0x00758…00778 (0, 0, 47) 75 1d 00 6b 00 1c 49 f0 00 1c 15 00 27 32 0d 32 01 2a 49 6d 32 17 00 00 00 00 00 00 00 00 00 00 ┆u k I '2 2 *Im2 ┆
0x00778…00780 00 00 00 00 00 00 00 00 ┆ ┆
0x00780…007a0 (0, 0, 48) 47 14 00 28 49 84 32 1c 47 14 00 28 49 a0 32 1a 48 8e 00 28 23 46 00 00 00 00 00 00 00 00 00 00 ┆G (I 2 G (I 2 H (#F ┆
0x007a0…007a8 00 00 00 00 00 00 00 00 ┆ ┆
0x007a8…007c8 (0, 0, 49) dc 32 00 25 15 00 27 32 0d 32 01 2a 46 df 49 45 00 19 17 05 02 42 00 00 00 00 00 00 00 00 00 00 ┆ 2 % '2 2 *F IE B ┆
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]
[…0x2…]
0x019be…01abd (2, 0, 3) 0x00[0xff]
[…0xb…]
0x025b2…02601 (3, 0, 0) DataSector[0x4f]
[…0xb8…]
0x05ec9…05ee9 (7, 0, 21) 43 41 4c 4c 20 4c 4f 41 44 28 49 4e 46 2c 41 4e 54 29 3b 47 4f 20 54 4f 20 55 54 3b 20 20 20 20 ┆CALL LOAD(INF,ANT);GO TO UT; ┆
0x05ee9…05f09 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x05f09…05f18 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x05f18…05f38 (7, 0, 22) 41 31 36 3a 44 41 47 3d 27 59 59 59 59 59 59 27 3b 52 45 57 52 49 54 45 20 46 49 4c 45 28 44 41 ┆A16:DAG='YYYYYY';REWRITE FILE(DA┆
0x05f38…05f58 54 46 49 4c 29 46 52 4f 4d 28 44 41 54 52 45 43 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆TFIL)FROM(DATREC); ┆
0x05f58…05f67 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x05f67…05f87 (7, 0, 23) 50 55 54 20 46 49 4c 45 28 44 29 20 53 4b 49 50 20 45 44 49 54 20 20 20 20 20 20 20 20 20 20 20 ┆PUT FILE(D) SKIP EDIT ┆
0x05f87…05fa7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x05fa7…05fb6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x05fb6…05fd6 (7, 0, 24) 28 27 53 5b 54 54 20 49 4e 20 45 4e 20 44 49 53 4b 45 54 54 20 4d 45 44 20 45 4e 20 46 49 4c 27 ┆('SÄTT IN EN DISKETT MED EN FIL'┆
0x05fd6…05ff6 29 28 41 28 33 37 29 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 ┆)(A(37)) ┆
0x05ff6…06005 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x06005…06025 (7, 0, 25) 28 27 53 4f 4d 20 48 45 54 45 52 20 4e 59 4b 54 4f 54 58 2c 4d 45 44 20 52 45 43 4f 52 44 4c 5b ┆('SOM HETER NYKTOTX,MED RECORDLÄ┆
0x06025…06045 4e 47 44 3d 35 35 27 29 28 41 28 33 37 29 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆NGD=55')(A(37)) ┆
0x06045…06054 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x06054…06074 (7, 0, 26) 28 27 4f 43 48 20 4d 49 4e 53 54 20 4c 49 4b 41 20 53 54 4f 52 20 53 4f 4d 20 4b 54 4f 54 58 2e ┆('OCH MINST LIKA STOR SOM KTOTX.┆
0x06074…06094 27 29 28 41 28 33 37 29 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆')(A(37)) ┆
0x06094…060a3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x060a3…060c3 (7, 0, 27) 28 27 56 45 52 49 46 49 4b 41 54 49 4f 4e 53 44 49 53 4b 45 54 54 45 4e 20 42 45 48 5c 56 53 20 ┆('VERIFIKATIONSDISKETTEN BEHÖVS ┆
0x060c3…060e3 45 4a 27 29 28 41 28 33 37 29 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆EJ')(A(37)) ┆
0x060e3…060f2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x060f2…06112 (7, 0, 28) 28 27 46 49 4c 45 4e 20 53 41 4d 53 4f 52 54 20 46 5d 52 20 45 4a 20 54 41 53 20 42 4f 52 54 27 ┆('FILEN SAMSORT FÅR EJ TAS BORT'┆
0x06112…06132 29 28 41 28 33 37 29 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 ┆)(A(37)) ┆
0x06132…06141 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x06141…06161 (7, 0, 29) 28 27 5b 52 20 44 55 20 4b 4c 41 52 3f 27 29 28 41 28 37 34 29 29 20 20 20 20 20 20 20 20 20 20 ┆('ÄR DU KLAR?')(A(74)) ┆
0x06161…06181 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x06181…06190 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x06190…061b0 (7, 0, 30) 28 27 53 56 41 52 41 20 22 4a 22 20 45 4c 4c 45 52 20 22 4e 22 3a 27 29 28 41 28 33 36 29 29 3b ┆('SVARA "J" ELLER "N":')(A(36));┆
0x061b0…061d0 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 53 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆GET SKIP LIST(S); ┆
0x061d0…061df 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x061df…061ff (7, 0, 31) 49 46 20 53 7f 3d 27 4a 20 27 20 54 48 45 4e 20 47 4f 20 54 4f 20 4c 30 3b 20 20 20 20 20 20 20 ┆IF S ='J ' THEN GO TO L0; ┆
0x061ff…0621f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0621f…0622e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0622e…0624e (7, 0, 32) 50 55 54 20 46 49 4c 45 28 44 29 53 4b 49 50 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆PUT FILE(D)SKIP; ┆
0x0624e…0626e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0626e…0627d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0627d…0629d (7, 0, 33) 41 4e 54 3d 30 3b 49 4e 46 4f 28 31 29 3d 27 27 3b 49 4e 46 4f 28 32 29 3d 27 27 3b 49 4e 46 4f ┆ANT=0;INFO(1)='';INFO(2)='';INFO┆
0x0629d…062bd 28 33 29 3d 27 27 3b 49 46 20 53 4f 52 54 4b 4f 44 28 31 34 29 7f 3d 27 4b 27 20 54 48 45 4e 20 ┆(3)='';IF SORTKOD(14) ='K' THEN ┆
0x062bd…062cc 44 4f 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆DO; ┆
0x062cc…062ec (7, 0, 34) 49 4e 46 4f 28 31 29 3d 27 53 4f 52 54 20 4b 54 4f 54 58 20 53 41 4d 53 4f 52 54 20 27 3b 41 4e ┆INFO(1)='SORT KTOTX SAMSORT ';AN┆
0x062ec…0630c 54 3d 31 39 3b 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆T=19;END; ┆
0x0630c…0631b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0631b…0633b (7, 0, 35) 49 4e 46 4f 28 32 29 3d 27 44 49 53 4b 20 43 20 4b 54 4f 54 58 20 4e 59 4b 54 4f 54 58 20 27 3b ┆INFO(2)='DISK C KTOTX NYKTOTX ';┆
0x0633b…0635b 41 4e 54 3d 41 4e 54 2b 32 31 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ANT=ANT+21; ┆
0x0635b…0636a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0636a…0638a (7, 0, 36) 49 46 20 53 4f 52 54 4b 4f 44 28 31 33 29 7f 3d 27 4b 27 20 54 48 45 4e 20 44 4f 3b 49 4e 46 4f ┆IF SORTKOD(13) ='K' THEN DO;INFO┆
0x0638a…063aa 28 33 29 3d 27 53 4f 52 54 20 53 41 4d 46 49 4c 20 53 41 4d 53 4f 52 54 20 27 3b 41 4e 54 3d 41 ┆(3)='SORT SAMFIL SAMSORT ';ANT=A┆
0x063aa…063b9 4e 54 2b 32 30 3b 45 4e 44 3b 20 20 20 20 20 ┆NT+20;END; ┆
0x063b9…063d9 (7, 0, 37) 53 4f 52 54 4b 4f 44 28 31 33 29 3d 27 4b 27 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆SORTKOD(13)='K'; ┆
0x063d9…063f9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x063f9…06408 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x06408…06428 (7, 0, 38) 49 4e 46 3d 49 4e 46 4f 28 31 29 20 43 41 54 20 49 4e 46 4f 28 33 29 20 43 41 54 20 49 4e 46 4f ┆INF=INFO(1) CAT INFO(3) CAT INFO┆
0x06428…06448 28 32 29 20 43 41 54 20 27 4e 59 5d 52 27 3b 41 4e 54 3d 41 4e 54 2b 34 3b 20 20 20 20 20 20 20 ┆(2) CAT 'NYÅR';ANT=ANT+4; ┆
0x06448…06457 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x06457…06477 (7, 0, 39) 43 41 4c 4c 20 4c 4f 41 44 28 49 4e 46 2c 41 4e 54 29 3b 47 4f 20 54 4f 20 55 54 3b 20 20 20 20 ┆CALL LOAD(INF,ANT);GO TO UT; ┆
0x06477…06497 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x06497…064a6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x064a6…064c6 (7, 0, 40) 55 54 3a 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆UT:END; ┆
0x064c6…064e6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x064e6…064f5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x064f5…06544 (8, 0, 0) DataSector[0x4f]
[…0x24…]
0x07060…070af (8, 0, 37) 0x00[0x4f]
[…0x2c…]
0x07e43…07e92 (10, 0, 0) DataSector[0x4f]
[…0x32…]
0x08e00…08e4f (11, 0, 10) 0x00[0x4f]
[…0x1e…]
0x09791…097e0 (12, 0, 0) DataSector[0x4f]
[…0x25…]
0x0a34b…0a39a (12, 0, 38) 0x00[0x4f]
[…0x2…]
0x0a438…0a487 (13, 0, 0) DataSector[0x4f]
[…0x83…]
0x0ccf4…0cd14 (16, 0, 9) 28 27 42 45 4c 4f 50 50 20 28 2b 4b 37 20 44 45 42 2c 2d 4b 36 20 4b 52 45 29 20 3a 27 29 28 41 ┆('BELOPP (+K7 DEB,-K6 KRE) :')(A┆
0x0cd14…0cd34 28 36 31 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 20 20 ┆(61)); ┆
0x0cd34…0cd43 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0cd43…0cd63 (16, 0, 10) 42 45 4c 49 4e 3a 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 42 45 4c 29 3b 43 41 4c 4c 20 4b 45 ┆BELIN:GET SKIP LIST(BEL);CALL KE┆
0x0cd63…0cd83 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 20 20 20 20 20 20 20 ┆YFUN(I); ┆
0x0cd83…0cd92 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0cd92…0cdb2 (16, 0, 11) 49 46 20 49 3d 31 33 39 20 54 48 45 4e 20 44 4f 3b 41 44 3d 41 44 2b 42 45 4c 3b 4b 4f 44 3d 27 ┆IF I=139 THEN DO;AD=AD+BEL;KOD='┆
0x0cdb2…0cdd2 44 27 3b 45 4e 44 3b 49 46 20 49 3d 31 33 38 20 54 48 45 4e 20 44 4f 3b 41 4b 3d 41 4b 2b 42 45 ┆D';END;IF I=138 THEN DO;AK=AK+BE┆
0x0cdd2…0cde1 4c 3b 4b 4f 44 3d 27 4b 27 3b 45 4e 44 3b 20 ┆L;KOD='K';END; ┆
0x0cde1…0ce01 (16, 0, 12) 49 46 28 49 7f 3d 31 33 38 29 26 28 49 7f 3d 31 33 39 29 20 54 48 45 4e 20 47 4f 20 54 4f 20 42 ┆IF(I =138)&(I =139) THEN GO TO B┆
0x0ce01…0ce21 45 4c 49 4e 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 ┆ELIN; ┆
0x0ce21…0ce30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0ce30…0ce50 (16, 0, 13) 50 55 54 20 46 49 4c 45 28 44 29 53 4b 49 50 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆PUT FILE(D)SKIP; ┆
0x0ce50…0ce70 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0ce70…0ce7f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0ce7f…0ce9f (16, 0, 14) 50 55 54 20 45 44 49 54 28 4b 4f 29 28 41 28 37 29 29 28 41 56 44 29 28 41 28 36 29 29 3b 20 20 ┆PUT EDIT(KO)(A(7))(AVD)(A(6)); ┆
0x0ce9f…0cebf 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0cebf…0cece 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0cece…0ceee (16, 0, 15) 49 46 20 49 3d 31 33 38 20 54 48 45 4e 20 50 55 54 20 45 44 49 54 28 27 20 27 29 28 41 28 31 36 ┆IF I=138 THEN PUT EDIT(' ')(A(16┆
0x0ceee…0cf0e 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 20 20 20 20 20 ┆)); ┆
0x0cf0e…0cf1d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0cf1d…0cf3d (16, 0, 16) 50 55 54 20 45 44 49 54 28 42 45 4c 29 28 50 27 2d 2d 2d 2d 2d 2d 2d 2d 2d 39 56 2e 39 39 27 29 ┆PUT EDIT(BEL)(P'---------9V.99')┆
0x0cf3d…0cf5d 53 4b 49 50 20 45 44 49 54 28 27 27 29 28 41 28 33 33 29 29 3b 52 41 44 3d 52 41 44 2d 31 3b 20 ┆SKIP EDIT('')(A(33));RAD=RAD-1; ┆
0x0cf5d…0cf6c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0cf6c…0cf8c (16, 0, 17) 57 52 49 54 45 20 46 49 4c 45 28 56 45 52 46 49 4c 29 46 52 4f 4d 28 56 45 52 29 3b 20 20 20 20 ┆WRITE FILE(VERFIL)FROM(VER); ┆
0x0cf8c…0cfac 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0cfac…0cfbb 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0cfbb…0cfdb (16, 0, 18) 45 58 3d 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 20 20 20 ┆EX=1; ┆
0x0cfdb…0cffb 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0cffb…0d00a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0d00a…0d02a (16, 0, 19) 49 46 20 41 44 2d 41 4b 7f 3d 30 20 54 48 45 4e 20 47 4f 20 54 4f 20 4d 45 52 3b 20 20 20 20 20 ┆IF AD-AK =0 THEN GO TO MER; ┆
0x0d02a…0d04a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0d04a…0d059 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0d059…0d079 (16, 0, 20) 52 45 57 52 49 54 45 20 46 49 4c 45 28 53 49 53 54 56 45 52 29 46 52 4f 4d 28 53 49 53 54 41 56 ┆REWRITE FILE(SISTVER)FROM(SISTAV┆
0x0d079…0d099 45 52 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 ┆ER); ┆
0x0d099…0d0a8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0d0a8…0d0c8 (16, 0, 21) 43 4c 4f 53 45 20 56 45 52 46 49 4c 3b 4f 50 45 4e 20 56 45 52 46 49 4c 3b 43 41 4c 4c 20 53 45 ┆CLOSE VERFIL;OPEN VERFIL;CALL SE┆
0x0d0c8…0d0e8 4f 46 28 56 45 52 46 49 4c 29 3b 47 4f 20 54 4f 20 53 54 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆OF(VERFIL);GO TO ST; ┆
0x0d0e8…0d0f7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0d0f7…0d117 (16, 0, 22) 46 45 4c 4b 4f 3a 43 41 4c 4c 20 4f 55 54 50 55 54 28 31 2c 36 29 3b 20 20 20 20 20 20 20 20 20 ┆FELKO:CALL OUTPUT(1,6); ┆
0x0d117…0d137 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0d137…0d146 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0d146…0d166 (16, 0, 23) 50 55 54 20 46 49 4c 45 28 44 29 20 53 4b 49 50 20 45 44 49 54 28 27 4b 4f 4e 54 4f 20 27 29 28 ┆PUT FILE(D) SKIP EDIT('KONTO ')(┆
0x0d166…0d186 41 29 28 4b 4f 29 28 41 28 35 29 29 28 27 46 49 4e 4e 53 20 45 4a 2e 27 29 28 41 28 32 36 29 29 ┆A)(KO)(A(5))('FINNS EJ.')(A(26))┆
0x0d186…0d195 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0d195…0d1b5 (16, 0, 24) 28 27 41 4e 47 45 20 52 5b 54 54 20 4b 4f 4e 54 4f 2e 41 56 44 2c 27 29 28 41 28 33 37 29 29 28 ┆('ANGE RÄTT KONTO.AVD,')(A(37))(┆
0x0d1b5…0d1d5 27 45 4c 4c 45 52 20 53 56 41 52 41 20 22 4e 59 54 54 22 3a 27 29 28 41 28 32 39 29 29 3b 20 20 ┆'ELLER SVARA "NYTT":')(A(29)); ┆
0x0d1d5…0d1e4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0d1e4…0d204 (16, 0, 25) 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 4b 4f 53 56 41 52 32 29 3b 20 20 20 20 20 20 20 20 20 ┆GET SKIP LIST(KOSVAR2); ┆
0x0d204…0d224 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0d224…0d233 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0d233…0d253 (16, 0, 26) 49 46 20 53 55 42 53 54 52 28 4b 4f 53 56 41 52 32 2c 31 2c 32 29 3d 27 4e 59 27 20 54 48 45 4e ┆IF SUBSTR(KOSVAR2,1,2)='NY' THEN┆
0x0d253…0d273 20 47 4f 20 54 4f 20 4e 59 4b 4f 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GO TO NYKO; ┆
0x0d273…0d282 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0d282…0d2a2 (16, 0, 27) 4b 4f 53 56 41 52 3d 4b 4f 53 56 41 52 32 3b 47 4f 20 54 4f 20 4b 4f 49 4e 3b 20 20 20 20 20 20 ┆KOSVAR=KOSVAR2;GO TO KOIN; ┆
0x0d2a2…0d2c2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0d2c2…0d2d1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0d2d1…0d2f1 (16, 0, 28) 46 45 4c 4b 4f 44 3a 43 41 4c 4c 20 4f 55 54 50 55 54 28 31 2c 36 29 3b 20 20 20 20 20 20 20 20 ┆FELKOD:CALL OUTPUT(1,6); ┆
0x0d2f1…0d311 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0d311…0d320 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0d320…0d340 (16, 0, 29) 50 55 54 20 46 49 4c 45 28 44 29 20 53 4b 49 50 20 45 44 49 54 28 4b 4f 53 56 41 52 29 28 41 28 ┆PUT FILE(D) SKIP EDIT(KOSVAR)(A(┆
0x0d340…0d360 31 34 29 29 28 27 5b 52 20 45 4e 20 46 45 4c 41 4b 54 49 47 20 4b 4f 44 21 27 29 28 41 28 32 33 ┆14))('ÄR EN FELAKTIG KOD!')(A(23┆
0x0d360…0d36f 29 29 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆)) ┆
0x0d36f…0d38f (16, 0, 30) 28 27 46 5c 52 53 5c 4b 20 49 47 45 4e 3a 27 29 28 41 28 32 39 29 29 3b 20 20 20 20 20 20 20 20 ┆('FÖRSÖK IGEN:')(A(29)); ┆
0x0d38f…0d3af 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0d3af…0d3be 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0d3be…0d3de (16, 0, 31) 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 4b 4f 53 56 41 52 29 3b 47 4f 20 54 4f 20 4b 4f 49 4e ┆GET SKIP LIST(KOSVAR);GO TO KOIN┆
0x0d3de…0d3fe 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 ┆; ┆
0x0d3fe…0d40d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0d40d…0d42d (16, 0, 32) 4e 59 4b 4f 3a 50 55 54 20 46 49 4c 45 28 44 29 53 4b 49 50 20 45 44 49 54 28 27 4b 4f 4e 54 4f ┆NYKO:PUT FILE(D)SKIP EDIT('KONTO┆
0x0d42d…0d44d 3a 27 29 28 41 28 33 33 29 29 28 4b 4f 29 28 41 28 34 29 29 28 27 54 45 58 54 3a 27 29 28 41 28 ┆:')(A(33))(KO)(A(4))('TEXT:')(A(┆
0x0d44d…0d45c 34 30 29 29 3b 20 20 20 20 20 20 20 20 20 20 ┆40)); ┆
0x0d45c…0d47c (16, 0, 33) 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 54 45 58 54 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆GET SKIP LIST(TEXT); ┆
0x0d47c…0d49c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0d49c…0d4ab 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0d4ab…0d4cb (16, 0, 34) 50 55 54 20 46 49 4c 45 28 44 29 53 4b 49 50 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆PUT FILE(D)SKIP; ┆
0x0d4cb…0d4eb 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0d4eb…0d4fa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0d4fa…0d51a (16, 0, 35) 4b 4f 4e 54 4f 3d 4b 4f 3b 5a 3d 27 41 27 3b 4b 3d 4b 4f 4e 54 4f 20 43 41 54 20 27 20 20 20 20 ┆KONTO=KO;Z='A';K=KONTO CAT ' ┆
0x0d51a…0d53a 27 3b 49 42 3d 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 ┆';IB=0; ┆
0x0d53a…0d549 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0d549…0d569 (16, 0, 36) 43 41 4c 4c 20 53 45 4f 46 28 4b 54 4f 54 58 29 3b 57 52 49 54 45 20 46 49 4c 45 28 4b 54 4f 54 ┆CALL SEOF(KTOTX);WRITE FILE(KTOT┆
0x0d569…0d589 58 29 46 52 4f 4d 28 4b 54 4f 29 3b 43 4c 4f 53 45 20 4b 54 4f 54 58 3b 4f 50 45 4e 20 4b 54 4f ┆X)FROM(KTO);CLOSE KTOTX;OPEN KTO┆
0x0d589…0d598 54 58 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆TX; ┆
0x0d598…0d5b8 (16, 0, 37) 53 4b 28 31 34 29 3d 27 20 27 3b 52 45 57 52 49 54 45 20 46 49 4c 45 28 44 41 54 46 49 4c 29 46 ┆SK(14)=' ';REWRITE FILE(DATFIL)F┆
0x0d5b8…0d5d8 52 4f 4d 28 44 41 54 52 45 43 29 3b 47 4f 20 54 4f 20 4b 54 4f 4f 4b 3b 20 20 20 20 20 20 20 20 ┆ROM(DATREC);GO TO KTOOK; ┆
0x0d5d8…0d5e7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0d5e7…0d607 (16, 0, 38) 55 54 3a 50 55 54 20 53 4b 49 50 28 32 29 45 44 49 54 28 27 54 4f 54 41 4c 54 20 41 4c 4c 41 20 ┆UT:PUT SKIP(2)EDIT('TOTALT ALLA ┆
0x0d607…0d627 54 52 41 4e 53 41 4b 54 49 4f 4e 45 52 3a 27 29 28 41 28 34 34 29 29 28 54 44 29 20 20 20 20 20 ┆TRANSAKTIONER:')(A(44))(TD) ┆
0x0d627…0d636 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0d636…0d656 (16, 0, 39) 28 50 27 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 39 56 2e 39 39 27 29 28 54 4b 29 28 50 27 2d 2d 2d 2d ┆(P'-----------9V.99')(TK)(P'----┆
0x0d656…0d676 2d 2d 2d 2d 2d 2d 2d 2d 39 56 2e 39 39 27 29 53 4b 49 50 28 52 41 44 2d 37 29 3b 20 20 20 20 20 ┆--------9V.99')SKIP(RAD-7); ┆
0x0d676…0d685 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0d685…0d6a5 (16, 0, 40) 53 4c 55 54 3a 43 41 4c 4c 20 4c 4f 41 44 28 27 42 4f 4b 52 55 54 27 2c 36 29 3b 45 4e 44 3b 20 ┆SLUT:CALL LOAD('BOKRUT',6);END; ┆
0x0d6a5…0d6c5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0d6c5…0d6d4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0d6d4…0d723 (17, 0, 0) DataSector[0x4f]
[…0x45…]
0x0ec6e…0ec8e (18, 0, 29) 50 55 54 20 45 44 49 54 28 42 45 4c 29 28 50 27 2d 2d 2d 2d 2d 2d 2d 2d 2d 39 56 2e 39 39 27 29 ┆PUT EDIT(BEL)(P'---------9V.99')┆
0x0ec8e…0ecae 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 ┆; ┆
0x0ecae…0ecbd 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0ecbd…0ecdd (18, 0, 30) 49 46 20 4b 4f 44 3d 27 44 27 20 54 48 45 4e 20 56 44 3d 56 44 2b 42 45 4c 3b 49 46 20 4b 4f 44 ┆IF KOD='D' THEN VD=VD+BEL;IF KOD┆
0x0ecdd…0ecfd 3d 27 4b 27 20 54 48 45 4e 20 56 4b 3d 56 4b 2b 42 45 4c 3b 49 46 20 56 45 52 49 46 59 28 4b 4f ┆='K' THEN VK=VK+BEL;IF VERIFY(KO┆
0x0ecfd…0ed0c 44 2c 27 44 4b 27 29 3d 30 20 20 20 20 20 20 ┆D,'DK')=0 ┆
0x0ed0c…0ed2c (18, 0, 31) 54 48 45 4e 20 47 4f 20 54 4f 20 46 45 4c 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆THEN GO TO FEL; ┆
0x0ed2c…0ed4c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0ed4c…0ed5b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0ed5b…0ed7b (18, 0, 32) 47 4f 20 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 ┆GO TO ST; ┆
0x0ed7b…0ed9b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0ed9b…0edaa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0edaa…0edca (18, 0, 33) 53 49 53 54 41 3a 56 45 52 4e 52 3d 39 39 39 39 39 39 39 3b 47 4f 54 4f 20 53 4b 52 49 56 3b 20 ┆SISTA:VERNR=9999999;GOTO SKRIV; ┆
0x0edca…0edea 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0edea…0edf9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0edf9…0ee19 (18, 0, 34) 55 54 3a 49 46 20 52 41 44 3c 31 31 20 54 48 45 4e 20 43 41 4c 4c 20 52 55 42 3b 20 20 20 20 20 ┆UT:IF RAD<11 THEN CALL RUB; ┆
0x0ee19…0ee39 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0ee39…0ee48 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0ee48…0ee68 (18, 0, 35) 50 55 54 20 53 4b 49 50 28 32 29 45 44 49 54 28 27 54 4f 54 41 4c 54 20 55 4e 44 45 52 20 4d 5d ┆PUT SKIP(2)EDIT('TOTALT UNDER MÅ┆
0x0ee68…0ee88 4e 41 44 45 4e 3a 27 29 28 41 28 35 36 29 29 28 54 44 29 28 50 27 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆NADEN:')(A(56))(TD)(P'----------┆
0x0ee88…0ee97 2d 39 56 2e 39 39 27 29 20 20 20 20 20 20 20 ┆-9V.99') ┆
0x0ee97…0eeb7 (18, 0, 36) 28 54 4b 29 28 50 27 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 39 56 2e 39 39 27 29 53 4b 49 50 28 52 ┆(TK)(P'------------9V.99')SKIP(R┆
0x0eeb7…0eed7 41 44 2d 37 29 3b 47 4f 20 54 4f 20 53 4c 55 54 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆AD-7);GO TO SLUT; ┆
0x0eed7…0eee6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0eee6…0ef06 (18, 0, 37) 46 45 4c 3a 50 55 54 20 53 4b 49 50 20 45 44 49 54 28 27 2a 2a 2a 20 46 45 4c 20 44 41 54 55 4d ┆FEL:PUT SKIP EDIT('*** FEL DATUM┆
0x0ef06…0ef26 20 45 4c 4c 45 52 20 41 4e 4e 41 54 20 49 20 4e 5b 53 54 41 20 54 52 41 4e 53 41 4b 54 49 4f 4e ┆ ELLER ANNAT I NÄSTA TRANSAKTION┆
0x0ef26…0ef35 2e 20 27 29 28 41 29 20 20 20 20 20 20 20 20 ┆. ')(A) ┆
0x0ef35…0ef55 (18, 0, 38) 28 27 52 5b 54 54 41 20 54 49 4c 4c 2c 20 4f 43 48 20 4b 5c 52 20 4c 49 53 54 41 4e 20 45 4e 20 ┆('RÄTTA TILL, OCH KÖR LISTAN EN ┆
0x0ef55…0ef75 47 5d 4e 47 20 54 49 4c 4c 2e 27 29 28 41 29 53 4b 49 50 28 52 41 44 2d 37 29 3b 20 20 20 20 20 ┆GÅNG TILL.')(A)SKIP(RAD-7); ┆
0x0ef75…0ef84 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0ef84…0efa4 (18, 0, 39) 44 4f 20 4a 3d 31 20 54 4f 20 35 3b 43 41 4c 4c 20 4f 55 54 50 55 54 28 31 2c 36 29 3b 44 4f 20 ┆DO J=1 TO 5;CALL OUTPUT(1,6);DO ┆
0x0efa4…0efc4 4a 4a 3d 31 20 54 4f 20 33 30 30 3b 45 4e 44 3b 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆JJ=1 TO 300;END;END; ┆
0x0efc4…0efd3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0efd3…0eff3 (18, 0, 40) 53 4c 55 54 3a 43 41 4c 4c 20 4c 4f 41 44 28 27 42 4f 4b 52 55 54 27 2c 36 29 3b 45 4e 44 3b 20 ┆SLUT:CALL LOAD('BOKRUT',6);END; ┆
0x0eff3…0f013 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0f013…0f022 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0f022…0f071 (19, 0, 0) DataSector[0x4f]
[…0x94…]
0x11e1d…11e3d (22, 0, 26) 43 43 20 43 48 41 52 28 31 37 29 49 4e 49 54 28 27 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 39 56 2e 39 ┆CC CHAR(17)INIT('-----------9V.9┆
0x11e3d…11e5d 39 2a 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 ┆9*'), ┆
0x11e5d…11e6c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x11e6c…11e8c (22, 0, 27) 43 43 43 20 43 48 41 52 28 31 36 29 49 4e 49 54 28 27 2d 2d 2d 2d 2d 39 56 2e 39 39 25 20 20 20 ┆CCC CHAR(16)INIT('-----9V.99% ┆
0x11e8c…11eac 20 20 27 29 2c 43 43 43 43 20 43 48 41 52 28 31 35 29 49 4e 49 54 28 27 2d 2d 2d 2d 39 56 2e 39 ┆ '),CCCC CHAR(15)INIT('----9V.9┆
0x11eac…11ebb 39 25 20 20 20 20 20 27 29 2c 20 20 20 20 20 ┆9% '), ┆
0x11ebb…11edb (22, 0, 28) 44 20 43 48 41 52 28 34 29 49 4e 49 54 28 27 5a 5a 5a 39 27 29 2c 45 20 43 48 41 52 28 31 32 29 ┆D CHAR(4)INIT('ZZZ9'),E CHAR(12)┆
0x11edb…11efb 49 4e 49 54 28 27 2d 2d 2d 2d 2d 2d 2d 39 56 2e 39 20 27 29 2c 51 20 46 49 58 45 44 28 31 29 2c ┆INIT('-------9V.9 '),Q FIXED(1),┆
0x11efb…11f0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x11f0a…11f2a (22, 0, 29) 45 45 20 43 48 41 52 28 31 32 29 49 4e 49 54 28 27 2d 2d 2d 2d 2d 2d 2d 39 56 2e 39 2a 27 29 2c ┆EE CHAR(12)INIT('-------9V.9*'),┆
0x11f2a…11f4a 4a 20 46 49 58 45 44 28 34 29 2c 4b 20 46 49 58 45 44 28 34 29 2c 4c 20 46 49 58 45 44 28 34 29 ┆J FIXED(4),K FIXED(4),L FIXED(4)┆
0x11f4a…11f59 2c 50 45 52 43 20 46 4c 4f 41 54 28 39 29 3b ┆,PERC FLOAT(9);┆
0x11f59…11fa8 (22, 0, 30) 0x20[0x4f]
0x11fa8…11fc8 (22, 0, 31) 52 55 42 3a 50 52 4f 43 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆RUB:PROC; ┆
0x11fc8…11fe8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x11fe8…11ff7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x11ff7…12017 (22, 0, 32) 53 49 44 41 3d 53 49 44 41 2b 31 3b 50 55 54 20 53 4b 49 50 28 52 41 44 29 45 44 49 54 28 27 42 ┆SIDA=SIDA+1;PUT SKIP(RAD)EDIT('B┆
0x12017…12037 41 4c 41 4e 53 52 5b 4b 4e 49 4e 47 20 4e 49 56 5d 20 27 29 28 41 29 28 4e 49 29 28 41 28 34 29 ┆ALANSRÄKNING NIVÅ ')(A)(NI)(A(4)┆
0x12037…12046 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆) ┆
0x12046…12066 (22, 0, 33) 28 27 41 56 53 45 45 4e 44 45 20 4d 5d 4e 41 44 20 27 29 28 41 29 28 4d 4f 4e 29 28 41 28 35 29 ┆('AVSEENDE MÅNAD ')(A)(MON)(A(5)┆
0x12066…12086 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 ┆) ┆
0x12086…12095 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x12095…120b5 (22, 0, 34) 28 27 20 20 20 20 44 41 54 55 4d 3a 27 29 28 41 29 28 44 41 47 29 28 41 28 31 30 29 29 28 27 53 ┆(' DATUM:')(A)(DAG)(A(10))('S┆
0x120b5…120d5 49 44 41 3a 27 29 28 41 29 28 53 49 44 41 29 28 41 29 53 4b 49 50 28 32 29 45 44 49 54 20 20 20 ┆IDA:')(A)(SIDA)(A)SKIP(2)EDIT ┆
0x120d5…120e4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x120e4…12104 (22, 0, 35) 28 27 4b 54 4f 27 29 28 41 28 35 29 29 28 27 42 45 4e 5b 4d 4e 49 4e 47 27 29 28 41 28 34 34 29 ┆('KTO')(A(5))('BENÄMNING')(A(44)┆
0x12104…12124 29 28 27 4d 5d 4e 20 44 45 42 27 29 28 41 28 31 36 29 29 28 27 4d 5d 4e 20 4b 52 45 27 29 28 41 ┆)('MÅN DEB')(A(16))('MÅN KRE')(A┆
0x12124…12133 28 31 33 29 29 20 20 20 20 20 20 20 20 20 20 ┆(13)) ┆
0x12133…12153 (22, 0, 36) 28 27 41 43 4b 2e 20 53 41 4c 44 4f 27 29 28 41 28 31 34 29 29 28 27 41 4e 44 45 4c 27 29 28 41 ┆('ACK. SALDO')(A(14))('ANDEL')(A┆
0x12153…12173 28 38 29 29 53 4b 49 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 ┆(8))SKIP; ┆
0x12173…12182 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x12182…121a2 (22, 0, 37) 52 41 44 3d 34 35 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 ┆RAD=45; ┆
0x121a2…121c2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x121c2…121d1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x121d1…121f1 (22, 0, 38) 52 45 54 55 52 4e 3b 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 ┆RETURN;END; ┆
0x121f1…12211 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x12211…12220 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x12220…1226f (22, 0, 39) 0x20[0x4f]
0x1226f…1228f (22, 0, 40) 41 42 53 53 3a 50 52 4f 43 28 51 51 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ABSS:PROC(QQ); ┆
0x1228f…122af 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x122af…122be 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x122be…122de (23, 0, 0) 2f 2a 46 5c 52 53 54 41 20 52 41 44 45 4e 2a 2f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆/*FÖRSTA RADEN*/ ┆
0x122de…122fe 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x122fe…1230d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1230d…1232d (23, 0, 1) 2f 2a 42 41 4c 52 5b 4b 4e 20 20 55 54 53 4b 52 49 46 54 20 41 56 20 42 41 4c 41 4e 53 52 5b 4b ┆/*BALRÄKN UTSKRIFT AV BALANSRÄK┆
0x1232d…1234d 4e 49 4e 47 20 20 47 45 4e 2e 20 50 47 4d 2e 20 20 4b 4c 41 52 54 3a 37 38 31 31 30 34 20 20 50 ┆NING GEN. PGM. KLART:781104 P┆
0x1234d…1235c 52 4f 47 52 3a 54 44 20 2a 2f 20 20 20 20 20 ┆ROGR:TD */ ┆
0x1235c…1237c (23, 0, 2) 44 43 4c 20 31 20 44 55 4d 2c 32 20 44 55 4d 31 20 43 48 41 52 28 33 29 2c 32 20 42 55 44 4b 4f ┆DCL 1 DUM,2 DUM1 CHAR(3),2 BUDKO┆
0x1237c…1239c 44 20 43 48 41 52 28 31 29 2c 32 20 44 55 4d 32 20 43 48 41 52 28 35 31 29 3b 20 20 20 20 20 20 ┆D CHAR(1),2 DUM2 CHAR(51); ┆
0x1239c…123ab 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x123ab…123cb (23, 0, 3) 44 43 4c 20 31 20 53 41 4d 31 28 35 29 2c 32 20 53 53 54 52 31 2c 33 20 53 4b 4f 31 20 46 49 58 ┆DCL 1 SAM1(5),2 SSTR1,3 SKO1 FIX┆
0x123cb…123eb 45 44 28 34 29 2c 33 20 53 41 56 44 31 20 43 48 41 52 28 33 29 2c 20 20 20 20 20 20 20 20 20 20 ┆ED(4),3 SAVD1 CHAR(3), ┆
0x123eb…123fa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x123fa…1241a (23, 0, 4) 32 20 53 41 44 31 28 31 32 29 20 46 49 58 45 44 28 31 31 2c 32 29 2c 32 20 53 41 4b 31 28 31 32 ┆2 SAD1(12) FIXED(11,2),2 SAK1(12┆
0x1241a…1243a 29 20 46 49 58 45 44 28 31 31 2c 32 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆) FIXED(11,2); ┆
0x1243a…12449 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x12449…12469 (23, 0, 5) 44 43 4c 20 31 20 53 41 4d 32 28 33 30 29 2c 32 20 53 53 54 52 32 2c 33 20 53 4b 4f 32 20 46 49 ┆DCL 1 SAM2(30),2 SSTR2,3 SKO2 FI┆
0x12469…12489 58 45 44 28 34 29 2c 33 20 53 41 56 44 32 20 43 48 41 52 28 33 29 2c 20 20 20 20 20 20 20 20 20 ┆XED(4),3 SAVD2 CHAR(3), ┆
0x12489…12498 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x12498…124b8 (23, 0, 6) 32 20 53 41 44 32 28 31 32 29 20 46 49 58 45 44 28 31 31 2c 32 29 2c 32 20 53 41 4b 32 28 31 32 ┆2 SAD2(12) FIXED(11,2),2 SAK2(12┆
0x124b8…124d8 29 20 46 49 58 45 44 28 31 31 2c 32 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆) FIXED(11,2); ┆
0x124d8…124e7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x124e7…12507 (23, 0, 7) 44 43 4c 20 31 20 53 41 4d 2c 32 20 53 53 54 52 2c 33 20 53 4b 4f 20 46 49 58 45 44 28 34 29 2c ┆DCL 1 SAM,2 SSTR,3 SKO FIXED(4),┆
0x12507…12527 33 20 53 41 56 44 20 43 48 41 52 28 33 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆3 SAVD CHAR(3), ┆
0x12527…12536 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x12536…12556 (23, 0, 8) 32 20 53 41 44 28 31 32 29 20 46 49 58 45 44 28 31 31 2c 32 29 2c 32 20 53 41 4b 28 31 32 29 20 ┆2 SAD(12) FIXED(11,2),2 SAK(12) ┆
0x12556…12576 46 49 58 45 44 28 31 31 2c 32 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆FIXED(11,2); ┆
0x12576…12585 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x12585…125a5 (23, 0, 9) 44 43 4c 20 31 20 4b 54 58 2c 32 20 4b 53 54 52 2c 33 20 54 4b 4f 20 46 49 58 45 44 28 34 29 2c ┆DCL 1 KTX,2 KSTR,3 TKO FIXED(4),┆
0x125a5…125c5 33 20 54 4b 4f 44 20 43 48 41 52 28 31 29 2c 32 20 54 4b 4f 32 20 43 48 41 52 28 34 29 2c 32 20 ┆3 TKOD CHAR(1),2 TKO2 CHAR(4),2 ┆
0x125c5…125d4 54 45 58 54 20 43 48 41 52 28 33 34 29 2c 20 ┆TEXT CHAR(34), ┆
0x125d4…125f4 (23, 0, 10) 32 20 49 42 20 46 49 58 45 44 28 31 33 2c 32 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆2 IB FIXED(13,2); ┆
0x125f4…12614 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x12614…12623 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x12623…12643 (23, 0, 11) 44 43 4c 20 31 20 54 58 2c 32 20 4b 53 54 52 58 2c 33 20 4b 4e 52 20 46 49 58 45 44 28 34 29 2c ┆DCL 1 TX,2 KSTRX,3 KNR FIXED(4),┆
0x12643…12663 33 20 5a 5a 20 43 48 41 52 28 31 29 2c 32 20 58 4b 4b 20 43 48 41 52 28 34 29 2c 32 20 58 54 58 ┆3 ZZ CHAR(1),2 XKK CHAR(4),2 XTX┆
0x12663…12672 54 20 43 48 41 52 28 33 34 29 2c 20 20 20 20 ┆T CHAR(34), ┆
0x12672…12692 (23, 0, 12) 32 20 58 58 49 42 20 46 49 58 45 44 28 31 33 2c 32 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆2 XXIB FIXED(13,2); ┆
0x12692…126b2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x126b2…126c1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x126c1…126e1 (23, 0, 13) 44 43 4c 20 31 20 4b 42 55 2c 32 20 42 53 54 52 2c 33 20 42 4b 4f 20 46 49 58 45 44 28 34 29 2c ┆DCL 1 KBU,2 BSTR,3 BKO FIXED(4),┆
0x126e1…12701 33 20 42 4b 4f 44 20 43 48 41 52 28 31 29 2c 32 20 42 41 56 44 20 43 48 41 52 28 33 29 2c 20 20 ┆3 BKOD CHAR(1),2 BAVD CHAR(3), ┆
0x12701…12710 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x12710…12730 (23, 0, 14) 32 20 58 42 55 44 28 31 32 29 20 46 49 58 45 44 28 37 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆2 XBUD(12) FIXED(7); ┆
0x12730…12750 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x12750…1275f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1275f…1277f (23, 0, 15) 44 43 4c 20 31 20 44 41 54 52 45 43 2c 32 20 58 44 41 47 20 43 48 41 52 28 36 29 2c 32 20 4d 4f ┆DCL 1 DATREC,2 XDAG CHAR(6),2 MO┆
0x1277f…1279f 4e 20 43 48 41 52 28 33 29 2c 32 20 4d 4e 52 20 46 49 58 45 44 28 32 29 2c 32 20 53 4b 28 31 34 ┆N CHAR(3),2 MNR FIXED(2),2 SK(14┆
0x1279f…127ae 29 20 43 48 41 52 28 31 29 2c 20 20 20 20 20 ┆) CHAR(1), ┆
0x127ae…127ce (23, 0, 16) 32 20 4b 4f 44 20 46 49 58 45 44 28 31 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆2 KOD FIXED(1); ┆
0x127ce…127ee 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x127ee…127fd 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x127fd…1281d (23, 0, 17) 44 43 4c 20 44 41 54 46 49 4c 20 46 49 4c 45 2c 4b 54 4f 54 58 20 46 49 4c 45 2c 53 20 43 48 41 ┆DCL DATFIL FILE,KTOTX FILE,S CHA┆
0x1281d…1283d 52 28 31 29 2c 52 41 44 20 46 49 58 45 44 28 32 29 2c 53 49 44 41 20 46 49 58 45 44 28 34 29 2c ┆R(1),RAD FIXED(2),SIDA FIXED(4),┆
0x1283d…1284c 49 4e 44 20 46 49 58 45 44 28 31 29 2c 20 20 ┆IND FIXED(1), ┆
0x1284c…1286c (23, 0, 18) 53 41 4d 46 49 4c 20 46 49 4c 45 2c 4e 49 20 46 49 58 45 44 28 31 29 2c 4b 4f 4b 4c 54 4f 54 28 ┆SAMFIL FILE,NI FIXED(1),KOKLTOT(┆
0x1286c…1288c 39 29 20 46 49 58 45 44 28 31 33 2c 32 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆9) FIXED(13,2), ┆
0x1288c…1289b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1289b…128bb (23, 0, 19) 44 31 20 46 49 58 45 44 28 31 33 2c 32 29 2c 44 32 20 46 49 58 45 44 28 31 33 2c 32 29 2c 44 33 ┆D1 FIXED(13,2),D2 FIXED(13,2),D3┆
0x128bb…128db 20 46 49 58 45 44 28 31 33 2c 32 29 2c 44 34 20 46 49 58 45 44 28 31 33 2c 32 29 2c 44 35 20 46 ┆ FIXED(13,2),D4 FIXED(13,2),D5 F┆
0x128db…128ea 49 58 45 44 28 31 33 2c 32 29 2c 20 20 20 20 ┆IXED(13,2), ┆
0x128ea…1290a (23, 0, 20) 4b 31 20 46 49 58 45 44 28 31 33 2c 32 29 2c 4b 32 20 46 49 58 45 44 28 31 33 2c 32 29 2c 4b 33 ┆K1 FIXED(13,2),K2 FIXED(13,2),K3┆
0x1290a…1292a 20 46 49 58 45 44 28 31 33 2c 32 29 2c 4b 34 20 46 49 58 45 44 28 31 33 2c 32 29 2c 4b 35 20 46 ┆ FIXED(13,2),K4 FIXED(13,2),K5 F┆
0x1292a…12939 49 58 45 44 28 31 33 2c 32 29 2c 20 20 20 20 ┆IXED(13,2), ┆
0x12939…12959 (23, 0, 21) 53 31 20 46 49 58 45 44 28 31 33 2c 32 29 2c 53 32 20 46 49 58 45 44 28 31 33 2c 32 29 2c 53 33 ┆S1 FIXED(13,2),S2 FIXED(13,2),S3┆
0x12959…12979 20 46 49 58 45 44 28 31 33 2c 32 29 2c 53 34 20 46 49 58 45 44 28 31 33 2c 32 29 2c 53 35 20 46 ┆ FIXED(13,2),S4 FIXED(13,2),S5 F┆
0x12979…12988 49 58 45 44 28 31 33 2c 32 29 2c 20 20 20 20 ┆IXED(13,2), ┆
0x12988…129a8 (23, 0, 22) 53 55 42 20 46 49 58 45 44 28 31 29 2c 44 55 28 36 29 20 46 49 58 45 44 28 31 33 2c 32 29 2c 4b ┆SUB FIXED(1),DU(6) FIXED(13,2),K┆
0x129a8…129c8 55 28 36 29 20 46 49 58 45 44 28 31 33 2c 32 29 2c 53 55 28 36 29 20 46 49 58 45 44 28 31 33 2c ┆U(6) FIXED(13,2),SU(6) FIXED(13,┆
0x129c8…129d7 32 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 ┆2), ┆
0x129d7…129f7 (23, 0, 23) 55 54 28 35 29 20 46 49 58 45 44 28 31 33 2c 32 29 2c 44 41 47 20 43 48 41 52 28 36 29 2c 54 44 ┆UT(5) FIXED(13,2),DAG CHAR(6),TD┆
0x129f7…12a17 20 46 49 58 45 44 28 31 33 2c 32 29 2c 54 4b 20 46 49 58 45 44 28 31 33 2c 32 29 2c 54 53 20 46 ┆ FIXED(13,2),TK FIXED(13,2),TS F┆
0x12a17…12a26 49 58 45 44 28 31 33 2c 32 29 2c 20 20 20 20 ┆IXED(13,2), ┆
0x12a26…12a46 (23, 0, 24) 58 53 4b 4f 20 46 49 58 45 44 28 34 29 2c 54 58 54 20 43 48 41 52 28 33 34 29 2c 52 45 43 4e 52 ┆XSKO FIXED(4),TXT CHAR(34),RECNR┆
0x12a46…12a66 20 42 49 4e 41 52 59 2c 53 41 4d 53 4c 55 54 20 42 49 4e 41 52 59 2c 20 20 20 20 20 20 20 20 20 ┆ BINARY,SAMSLUT BINARY, ┆
0x12a66…12a75 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x12a75…12a95 (23, 0, 25) 4b 54 4f 53 4c 55 54 20 42 49 4e 41 52 59 2c 4a 55 4d 50 20 46 49 58 45 44 28 31 29 2c 43 20 43 ┆KTOSLUT BINARY,JUMP FIXED(1),C C┆
0x12a95…12ab5 48 41 52 28 31 37 29 49 4e 49 54 28 27 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 39 56 2e 39 39 27 29 ┆HAR(17)INIT('------------9V.99')┆
0x12ab5…12ac4 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆, ┆
0x12ac4…12ae4 (23, 0, 26) 43 43 20 43 48 41 52 28 31 37 29 49 4e 49 54 28 27 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 39 56 2e 39 ┆CC CHAR(17)INIT('-----------9V.9┆
0x12ae4…12b04 39 2a 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 ┆9*'), ┆
0x12b04…12b13 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x12b13…12b33 (23, 0, 27) 43 43 43 20 43 48 41 52 28 31 36 29 49 4e 49 54 28 27 2d 2d 2d 2d 2d 39 56 2e 39 39 25 20 20 20 ┆CCC CHAR(16)INIT('-----9V.99% ┆
0x12b33…12b53 20 20 27 29 2c 43 43 43 43 20 43 48 41 52 28 31 35 29 49 4e 49 54 28 27 2d 2d 2d 2d 39 56 2e 39 ┆ '),CCCC CHAR(15)INIT('----9V.9┆
0x12b53…12b62 39 25 20 20 20 20 20 27 29 2c 20 20 20 20 20 ┆9% '), ┆
0x12b62…12b82 (23, 0, 28) 44 20 43 48 41 52 28 34 29 49 4e 49 54 28 27 5a 5a 5a 39 27 29 2c 45 20 43 48 41 52 28 31 32 29 ┆D CHAR(4)INIT('ZZZ9'),E CHAR(12)┆
0x12b82…12ba2 49 4e 49 54 28 27 2d 2d 2d 2d 2d 2d 2d 39 56 2e 39 20 27 29 2c 51 20 46 49 58 45 44 28 31 29 2c ┆INIT('-------9V.9 '),Q FIXED(1),┆
0x12ba2…12bb1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x12bb1…12bd1 (23, 0, 29) 45 45 20 43 48 41 52 28 31 32 29 49 4e 49 54 28 27 2d 2d 2d 2d 2d 2d 2d 39 56 2e 39 2a 27 29 2c ┆EE CHAR(12)INIT('-------9V.9*'),┆
0x12bd1…12bf1 4a 20 46 49 58 45 44 28 34 29 2c 4b 20 46 49 58 45 44 28 34 29 2c 4c 20 46 49 58 45 44 28 34 29 ┆J FIXED(4),K FIXED(4),L FIXED(4)┆
0x12bf1…12c00 2c 50 45 52 43 20 46 4c 4f 41 54 28 39 29 3b ┆,PERC FLOAT(9);┆
0x12c00…12c4f (23, 0, 30) 0x20[0x4f]
0x12c4f…12c6f (23, 0, 31) 52 55 42 3a 50 52 4f 43 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆RUB:PROC; ┆
0x12c6f…12c8f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x12c8f…12c9e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x12c9e…12cbe (23, 0, 32) 53 49 44 41 3d 53 49 44 41 2b 31 3b 50 55 54 20 53 4b 49 50 28 52 41 44 29 45 44 49 54 28 27 42 ┆SIDA=SIDA+1;PUT SKIP(RAD)EDIT('B┆
0x12cbe…12cde 41 4c 41 4e 53 52 5b 4b 4e 49 4e 47 20 4e 49 56 5d 20 27 29 28 41 29 28 4e 49 29 28 41 28 34 29 ┆ALANSRÄKNING NIVÅ ')(A)(NI)(A(4)┆
0x12cde…12ced 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆) ┆
0x12ced…12d0d (23, 0, 33) 28 27 41 56 53 45 45 4e 44 45 20 4d 5d 4e 41 44 20 27 29 28 41 29 28 4d 4f 4e 29 28 41 28 35 29 ┆('AVSEENDE MÅNAD ')(A)(MON)(A(5)┆
0x12d0d…12d2d 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 ┆) ┆
0x12d2d…12d3c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x12d3c…12d5c (23, 0, 34) 28 27 20 20 20 20 44 41 54 55 4d 3a 27 29 28 41 29 28 44 41 47 29 28 41 28 31 30 29 29 28 27 53 ┆(' DATUM:')(A)(DAG)(A(10))('S┆
0x12d5c…12d7c 49 44 41 3a 27 29 28 41 29 28 53 49 44 41 29 28 41 29 53 4b 49 50 28 32 29 45 44 49 54 20 20 20 ┆IDA:')(A)(SIDA)(A)SKIP(2)EDIT ┆
0x12d7c…12d8b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x12d8b…12dab (23, 0, 35) 28 27 4b 54 4f 27 29 28 41 28 35 29 29 28 27 42 45 4e 5b 4d 4e 49 4e 47 27 29 28 41 28 34 34 29 ┆('KTO')(A(5))('BENÄMNING')(A(44)┆
0x12dab…12dcb 29 28 27 4d 5d 4e 20 44 45 42 27 29 28 41 28 31 36 29 29 28 27 4d 5d 4e 20 4b 52 45 27 29 28 41 ┆)('MÅN DEB')(A(16))('MÅN KRE')(A┆
0x12dcb…12dda 28 31 33 29 29 20 20 20 20 20 20 20 20 20 20 ┆(13)) ┆
0x12dda…12dfa (23, 0, 36) 28 27 41 43 4b 2e 20 53 41 4c 44 4f 27 29 28 41 28 31 34 29 29 28 27 41 4e 44 45 4c 27 29 28 41 ┆('ACK. SALDO')(A(14))('ANDEL')(A┆
0x12dfa…12e1a 28 38 29 29 53 4b 49 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 ┆(8))SKIP; ┆
0x12e1a…12e29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x12e29…12e49 (23, 0, 37) 52 41 44 3d 34 35 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 ┆RAD=45; ┆
0x12e49…12e69 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x12e69…12e78 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x12e78…12e98 (23, 0, 38) 52 45 54 55 52 4e 3b 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 ┆RETURN;END; ┆
0x12e98…12eb8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x12eb8…12ec7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x12ec7…12f16 (23, 0, 39) 0x20[0x4f]
0x12f16…12f36 (23, 0, 40) 41 42 53 53 3a 50 52 4f 43 28 51 51 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ABSS:PROC(QQ); ┆
0x12f36…12f56 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x12f56…12f65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x12f65…12fb4 (24, 0, 0) DataSector[0x4f]
[…0xe9…]
0x1779b…177bb (29, 0, 29) 4b 54 4f 53 4c 55 54 20 42 49 4e 41 52 59 2c 4a 55 4d 50 20 46 49 58 45 44 28 31 29 2c 43 20 43 ┆KTOSLUT BINARY,JUMP FIXED(1),C C┆
0x177bb…177db 48 41 52 28 31 37 29 49 4e 49 54 28 27 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 39 56 2e 39 39 27 29 ┆HAR(17)INIT('------------9V.99')┆
0x177db…177ea 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆, ┆
0x177ea…1780a (29, 0, 30) 43 43 20 43 48 41 52 28 31 37 29 49 4e 49 54 28 27 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 39 56 2e 39 ┆CC CHAR(17)INIT('-----------9V.9┆
0x1780a…1782a 39 2a 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 ┆9*'), ┆
0x1782a…17839 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17839…17859 (29, 0, 31) 43 43 43 20 43 48 41 52 28 31 36 29 49 4e 49 54 28 27 2d 2d 2d 2d 2d 39 56 2e 39 39 25 20 20 20 ┆CCC CHAR(16)INIT('-----9V.99% ┆
0x17859…17879 20 20 27 29 2c 43 43 43 43 20 43 48 41 52 28 31 35 29 49 4e 49 54 28 27 2d 2d 2d 2d 39 56 2e 39 ┆ '),CCCC CHAR(15)INIT('----9V.9┆
0x17879…17888 39 25 20 20 20 20 20 27 29 2c 20 20 20 20 20 ┆9% '), ┆
0x17888…178a8 (29, 0, 32) 44 20 43 48 41 52 28 34 29 49 4e 49 54 28 27 5a 5a 5a 39 27 29 2c 45 20 43 48 41 52 28 31 32 29 ┆D CHAR(4)INIT('ZZZ9'),E CHAR(12)┆
0x178a8…178c8 49 4e 49 54 28 27 2d 2d 2d 2d 2d 2d 2d 39 56 2e 39 20 27 29 2c 50 45 52 43 20 46 4c 4f 41 54 28 ┆INIT('-------9V.9 '),PERC FLOAT(┆
0x178c8…178d7 39 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 ┆9), ┆
0x178d7…178f7 (29, 0, 33) 46 20 43 48 41 52 28 31 32 29 49 4e 49 54 28 27 2d 2d 2d 2d 2d 2d 2d 39 56 2e 39 25 27 29 2c 20 ┆F CHAR(12)INIT('-------9V.9%'), ┆
0x178f7…17917 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17917…17926 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17926…17946 (29, 0, 34) 45 45 20 43 48 41 52 28 31 32 29 49 4e 49 54 28 27 2d 2d 2d 2d 2d 2d 2d 39 56 2e 39 2a 27 29 2c ┆EE CHAR(12)INIT('-------9V.9*'),┆
0x17946…17966 4a 20 46 49 58 45 44 28 34 29 2c 4b 20 46 49 58 45 44 28 34 29 2c 4c 20 46 49 58 45 44 28 34 29 ┆J FIXED(4),K FIXED(4),L FIXED(4)┆
0x17966…17975 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆; ┆
0x17975…179c4 (29, 0, 35) 0x20[0x4f]
0x179c4…179e4 (29, 0, 36) 41 42 4f 52 54 3a 50 52 4f 43 28 41 42 54 58 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ABORT:PROC(ABTX); ┆
0x179e4…17a04 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17a04…17a13 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17a13…17a33 (29, 0, 37) 44 43 4c 20 41 42 54 58 20 43 48 41 52 28 31 35 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆DCL ABTX CHAR(15); ┆
0x17a33…17a53 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17a53…17a62 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17a62…17a82 (29, 0, 38) 50 55 54 20 53 4b 49 50 20 45 44 49 54 28 27 46 45 4c 21 20 27 29 28 41 29 28 41 42 54 58 29 28 ┆PUT SKIP EDIT('FEL! ')(A)(ABTX)(┆
0x17a82…17aa2 41 29 53 4b 49 50 28 52 41 44 2d 34 29 3b 47 4f 54 4f 20 53 4c 55 54 54 3b 20 20 20 20 20 20 20 ┆A)SKIP(RAD-4);GOTO SLUTT; ┆
0x17aa2…17ab1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17ab1…17ad1 (29, 0, 39) 52 45 54 55 52 4e 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 ┆RETURN; ┆
0x17ad1…17af1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17af1…17b00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17b00…17b20 (29, 0, 40) 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆END; ┆
0x17b20…17b40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17b40…17b4f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17b4f…17b6f (30, 0, 0) 2f 2a 46 5c 52 53 54 41 20 52 41 44 45 4e 2a 2f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆/*FÖRSTA RADEN*/ ┆
0x17b6f…17b8f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17b8f…17b9e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17b9e…17bbe (30, 0, 1) 2f 2a 52 45 53 52 5b 4b 4e 20 20 54 4f 54 41 4c 20 52 45 53 55 4c 54 41 54 52 5b 4b 4e 49 4e 47 ┆/*RESRÄKN TOTAL RESULTATRÄKNING┆
0x17bbe…17bde 2e 20 20 20 20 47 45 4e 45 52 45 4c 4c 54 20 50 47 4d 2e 20 20 4b 4c 41 52 54 3a 37 38 31 31 30 ┆. GENERELLT PGM. KLART:78110┆
0x17bde…17bed 34 20 20 50 52 4f 47 52 3a 54 44 20 2a 2f 20 ┆4 PROGR:TD */ ┆
0x17bed…17c3c (30, 0, 2) 0x20[0x4f]
0x17c3c…17c5c (30, 0, 3) 44 43 4c 20 31 20 44 55 4d 2c 32 20 44 55 4d 31 20 43 48 41 52 28 33 29 2c 32 20 42 55 44 4b 4f ┆DCL 1 DUM,2 DUM1 CHAR(3),2 BUDKO┆
0x17c5c…17c7c 44 20 43 48 41 52 28 31 29 2c 32 20 44 55 4d 32 20 43 48 41 52 28 35 31 29 3b 20 20 20 20 20 20 ┆D CHAR(1),2 DUM2 CHAR(51); ┆
0x17c7c…17c8b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17c8b…17cda (30, 0, 4) 0x20[0x4f]
0x17cda…17cfa (30, 0, 5) 44 43 4c 20 31 20 53 41 4d 2c 32 20 53 53 54 52 2c 33 20 53 4b 4f 20 46 49 58 45 44 28 34 29 2c ┆DCL 1 SAM,2 SSTR,3 SKO FIXED(4),┆
0x17cfa…17d1a 33 20 53 41 56 44 20 43 48 41 52 28 33 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆3 SAVD CHAR(3), ┆
0x17d1a…17d29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17d29…17d49 (30, 0, 6) 32 20 53 41 44 28 31 32 29 20 46 49 58 45 44 28 31 31 2c 32 29 2c 32 20 53 41 4b 28 31 32 29 20 ┆2 SAD(12) FIXED(11,2),2 SAK(12) ┆
0x17d49…17d69 46 49 58 45 44 28 31 31 2c 32 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆FIXED(11,2); ┆
0x17d69…17d78 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17d78…17d98 (30, 0, 7) 44 43 4c 20 31 20 4b 54 58 2c 32 20 4b 53 54 52 2c 33 20 54 4b 4f 20 46 49 58 45 44 28 34 29 2c ┆DCL 1 KTX,2 KSTR,3 TKO FIXED(4),┆
0x17d98…17db8 33 20 54 4b 4f 44 20 43 48 41 52 28 31 29 2c 32 20 54 4b 4f 32 20 43 48 41 52 28 34 29 2c 32 20 ┆3 TKOD CHAR(1),2 TKO2 CHAR(4),2 ┆
0x17db8…17dc7 54 45 58 54 20 43 48 41 52 28 33 34 29 2c 20 ┆TEXT CHAR(34), ┆
0x17dc7…17de7 (30, 0, 8) 32 20 49 42 20 46 49 58 45 44 28 31 33 2c 32 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆2 IB FIXED(13,2); ┆
0x17de7…17e07 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17e07…17e16 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17e16…17e36 (30, 0, 9) 44 43 4c 20 31 20 54 58 2c 32 20 4b 53 54 52 58 2c 33 20 4b 4e 52 20 46 49 58 45 44 28 34 29 2c ┆DCL 1 TX,2 KSTRX,3 KNR FIXED(4),┆
0x17e36…17e56 33 20 5a 5a 20 43 48 41 52 28 31 29 2c 32 20 58 4b 4b 20 43 48 41 52 28 34 29 2c 32 20 58 54 58 ┆3 ZZ CHAR(1),2 XKK CHAR(4),2 XTX┆
0x17e56…17e65 54 20 43 48 41 52 28 33 34 29 2c 20 20 20 20 ┆T CHAR(34), ┆
0x17e65…17e85 (30, 0, 10) 32 20 58 58 49 42 20 46 49 58 45 44 28 31 33 2c 32 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆2 XXIB FIXED(13,2); ┆
0x17e85…17ea5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17ea5…17eb4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17eb4…17ed4 (30, 0, 11) 44 43 4c 20 31 20 4b 42 55 2c 32 20 42 53 54 52 2c 33 20 42 4b 4f 20 46 49 58 45 44 28 34 29 2c ┆DCL 1 KBU,2 BSTR,3 BKO FIXED(4),┆
0x17ed4…17ef4 33 20 42 4b 4f 44 20 43 48 41 52 28 31 29 2c 32 20 42 41 56 44 20 43 48 41 52 28 33 29 2c 20 20 ┆3 BKOD CHAR(1),2 BAVD CHAR(3), ┆
0x17ef4…17f03 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17f03…17f23 (30, 0, 12) 32 20 58 42 55 44 28 31 32 29 20 46 49 58 45 44 28 37 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆2 XBUD(12) FIXED(7); ┆
0x17f23…17f43 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17f43…17f52 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17f52…17f72 (30, 0, 13) 44 43 4c 20 31 20 44 41 54 52 45 43 2c 32 20 58 44 41 47 20 43 48 41 52 28 36 29 2c 32 20 4d 4f ┆DCL 1 DATREC,2 XDAG CHAR(6),2 MO┆
0x17f72…17f92 4e 20 43 48 41 52 28 33 29 2c 32 20 4d 4e 52 20 46 49 58 45 44 28 32 29 2c 32 20 53 4b 28 31 34 ┆N CHAR(3),2 MNR FIXED(2),2 SK(14┆
0x17f92…17fa1 29 20 43 48 41 52 28 31 29 2c 20 20 20 20 20 ┆) CHAR(1), ┆
0x17fa1…17fc1 (30, 0, 14) 32 20 4b 4f 44 20 46 49 58 45 44 28 31 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆2 KOD FIXED(1); ┆
0x17fc1…17fe1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17fe1…17ff0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17ff0…18010 (30, 0, 15) 44 43 4c 20 44 41 54 46 49 4c 20 46 49 4c 45 2c 4b 54 4f 54 58 20 46 49 4c 45 2c 53 20 43 48 41 ┆DCL DATFIL FILE,KTOTX FILE,S CHA┆
0x18010…18030 52 28 31 29 2c 52 41 44 20 46 49 58 45 44 28 32 29 2c 53 49 44 41 20 46 49 58 45 44 28 34 29 2c ┆R(1),RAD FIXED(2),SIDA FIXED(4),┆
0x18030…1803f 49 4e 44 20 46 49 58 45 44 28 31 29 2c 20 20 ┆IND FIXED(1), ┆
0x1803f…1805f (30, 0, 16) 44 41 47 20 43 48 41 52 28 36 29 2c 41 56 44 53 49 44 41 20 46 49 58 45 44 28 34 29 2c 53 41 4d ┆DAG CHAR(6),AVDSIDA FIXED(4),SAM┆
0x1805f…1807f 46 49 4c 20 46 49 4c 45 2c 4e 49 20 46 49 58 45 44 28 31 29 2c 20 20 20 20 20 20 20 20 20 20 20 ┆FIL FILE,NI FIXED(1), ┆
0x1807f…1808e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1808e…180ae (30, 0, 17) 50 31 20 46 49 58 45 44 28 31 33 2c 32 29 2c 50 32 20 46 49 58 45 44 28 31 33 2c 32 29 2c 50 33 ┆P1 FIXED(13,2),P2 FIXED(13,2),P3┆
0x180ae…180ce 20 46 49 58 45 44 28 31 33 2c 32 29 2c 50 34 20 46 49 58 45 44 28 31 33 2c 32 29 2c 20 20 20 20 ┆ FIXED(13,2),P4 FIXED(13,2), ┆
0x180ce…180dd 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x180dd…180fd (30, 0, 18) 42 31 20 46 49 58 45 44 28 38 2c 31 29 2c 42 32 20 46 49 58 45 44 28 38 2c 31 29 2c 42 33 20 46 ┆B1 FIXED(8,1),B2 FIXED(8,1),B3 F┆
0x180fd…1811d 49 58 45 44 28 38 2c 31 29 2c 42 34 20 46 49 58 45 44 28 38 2c 31 29 2c 42 58 20 46 49 58 45 44 ┆IXED(8,1),B4 FIXED(8,1),BX FIXED┆
0x1811d…1812c 28 38 2c 31 29 2c 20 20 20 20 20 20 20 20 20 ┆(8,1), ┆
0x1812c…1814c (30, 0, 19) 53 31 20 46 49 58 45 44 28 31 33 2c 32 29 2c 53 32 20 46 49 58 45 44 28 31 33 2c 32 29 2c 53 33 ┆S1 FIXED(13,2),S2 FIXED(13,2),S3┆
0x1814c…1816c 20 46 49 58 45 44 28 31 33 2c 32 29 2c 53 34 20 46 49 58 45 44 28 31 33 2c 32 29 2c 20 20 20 20 ┆ FIXED(13,2),S4 FIXED(13,2), ┆
0x1816c…1817b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1817b…1819b (30, 0, 20) 50 42 31 20 46 49 58 45 44 28 38 2c 31 29 2c 50 42 32 20 46 49 58 45 44 28 38 2c 31 29 2c 50 42 ┆PB1 FIXED(8,1),PB2 FIXED(8,1),PB┆
0x1819b…181bb 33 20 46 49 58 45 44 28 38 2c 31 29 2c 50 42 34 20 46 49 58 45 44 28 38 2c 31 29 2c 20 20 20 20 ┆3 FIXED(8,1),PB4 FIXED(8,1), ┆
0x181bb…181ca 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x181ca…181ea (30, 0, 21) 4b 33 30 50 20 46 49 58 45 44 28 31 33 2c 32 29 2c 4b 33 30 53 20 46 49 58 45 44 28 31 33 2c 32 ┆K30P FIXED(13,2),K30S FIXED(13,2┆
0x181ea…1820a 29 2c 4b 34 50 20 46 49 58 45 44 28 31 33 2c 32 29 2c 4b 34 53 20 46 49 58 45 44 28 31 33 2c 32 ┆),K4P FIXED(13,2),K4S FIXED(13,2┆
0x1820a…18219 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆), ┆
0x18219…18239 (30, 0, 22) 44 49 46 31 20 46 49 58 45 44 28 38 2c 31 29 2c 44 49 46 32 20 46 49 58 45 44 28 38 2c 31 29 2c ┆DIF1 FIXED(8,1),DIF2 FIXED(8,1),┆
0x18239…18259 44 49 46 33 20 46 49 58 45 44 28 38 2c 31 29 2c 44 49 46 34 20 46 49 58 45 44 28 38 2c 31 29 2c ┆DIF3 FIXED(8,1),DIF4 FIXED(8,1),┆
0x18259…18268 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18268…18288 (30, 0, 23) 44 49 46 58 20 46 49 58 45 44 28 38 2c 31 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆DIFX FIXED(8,1), ┆
0x18288…182a8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x182a8…182b7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x182b7…182d7 (30, 0, 24) 53 55 42 20 46 49 58 45 44 28 31 29 2c 50 55 28 36 29 20 46 49 58 45 44 28 31 33 2c 32 29 2c 42 ┆SUB FIXED(1),PU(6) FIXED(13,2),B┆
0x182d7…182f7 55 28 36 29 20 46 49 58 45 44 28 38 2c 31 29 2c 53 55 28 36 29 20 46 49 58 45 44 28 31 33 2c 32 ┆U(6) FIXED(8,1),SU(6) FIXED(13,2┆
0x182f7…18306 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆), ┆
0x18306…18326 (30, 0, 25) 50 42 55 28 36 29 20 46 49 58 45 44 28 38 2c 31 29 2c 44 49 46 55 28 36 29 20 46 49 58 45 44 28 ┆PBU(6) FIXED(8,1),DIFU(6) FIXED(┆
0x18326…18346 38 2c 31 29 2c 55 54 28 35 29 20 46 49 58 45 44 28 31 33 2c 32 29 2c 20 20 20 20 20 20 20 20 20 ┆8,1),UT(5) FIXED(13,2), ┆
0x18346…18355 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18355…18375 (30, 0, 26) 54 50 20 46 49 58 45 44 28 31 33 2c 32 29 2c 54 53 20 46 49 58 45 44 28 31 33 2c 32 29 2c 54 50 ┆TP FIXED(13,2),TS FIXED(13,2),TP┆
0x18375…18395 42 20 46 49 58 45 44 28 38 2c 31 29 2c 54 42 20 46 49 58 45 44 28 38 2c 31 29 2c 54 44 49 46 20 ┆B FIXED(8,1),TB FIXED(8,1),TDIF ┆
0x18395…183a4 46 49 58 45 44 28 38 2c 31 29 2c 20 20 20 20 ┆FIXED(8,1), ┆
0x183a4…183c4 (30, 0, 27) 54 42 50 20 46 49 58 45 44 28 31 33 2c 32 29 2c 54 42 53 20 46 49 58 45 44 28 31 33 2c 32 29 2c ┆TBP FIXED(13,2),TBS FIXED(13,2),┆
0x183c4…183e4 54 47 50 20 46 4c 4f 41 54 28 39 29 2c 54 47 53 20 46 4c 4f 41 54 28 39 29 2c 20 20 20 20 20 20 ┆TGP FLOAT(9),TGS FLOAT(9), ┆
0x183e4…183f3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x183f3…18413 (30, 0, 28) 58 53 4b 4f 20 46 49 58 45 44 28 34 29 2c 58 53 41 56 44 20 43 48 41 52 28 33 29 2c 54 58 54 20 ┆XSKO FIXED(4),XSAVD CHAR(3),TXT ┆
0x18413…18433 43 48 41 52 28 33 34 29 2c 52 45 43 4e 52 20 42 49 4e 41 52 59 2c 53 41 4d 53 4c 55 54 20 42 49 ┆CHAR(34),RECNR BINARY,SAMSLUT BI┆
0x18433…18442 4e 41 52 59 2c 20 20 20 20 20 20 20 20 20 20 ┆NARY, ┆
0x18442…18462 (30, 0, 29) 4b 54 4f 53 4c 55 54 20 42 49 4e 41 52 59 2c 4a 55 4d 50 20 46 49 58 45 44 28 31 29 2c 43 20 43 ┆KTOSLUT BINARY,JUMP FIXED(1),C C┆
0x18462…18482 48 41 52 28 31 37 29 49 4e 49 54 28 27 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 39 56 2e 39 39 27 29 ┆HAR(17)INIT('------------9V.99')┆
0x18482…18491 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆, ┆
0x18491…184b1 (30, 0, 30) 43 43 20 43 48 41 52 28 31 37 29 49 4e 49 54 28 27 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 39 56 2e 39 ┆CC CHAR(17)INIT('-----------9V.9┆
0x184b1…184d1 39 2a 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 ┆9*'), ┆
0x184d1…184e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x184e0…18500 (30, 0, 31) 43 43 43 20 43 48 41 52 28 31 36 29 49 4e 49 54 28 27 2d 2d 2d 2d 2d 39 56 2e 39 39 25 20 20 20 ┆CCC CHAR(16)INIT('-----9V.99% ┆
0x18500…18520 20 20 27 29 2c 43 43 43 43 20 43 48 41 52 28 31 35 29 49 4e 49 54 28 27 2d 2d 2d 2d 39 56 2e 39 ┆ '),CCCC CHAR(15)INIT('----9V.9┆
0x18520…1852f 39 25 20 20 20 20 20 27 29 2c 20 20 20 20 20 ┆9% '), ┆
0x1852f…1854f (30, 0, 32) 44 20 43 48 41 52 28 34 29 49 4e 49 54 28 27 5a 5a 5a 39 27 29 2c 45 20 43 48 41 52 28 31 32 29 ┆D CHAR(4)INIT('ZZZ9'),E CHAR(12)┆
0x1854f…1856f 49 4e 49 54 28 27 2d 2d 2d 2d 2d 2d 2d 39 56 2e 39 20 27 29 2c 50 45 52 43 20 46 4c 4f 41 54 28 ┆INIT('-------9V.9 '),PERC FLOAT(┆
0x1856f…1857e 39 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 ┆9), ┆
0x1857e…1859e (30, 0, 33) 46 20 43 48 41 52 28 31 32 29 49 4e 49 54 28 27 2d 2d 2d 2d 2d 2d 2d 39 56 2e 39 25 27 29 2c 20 ┆F CHAR(12)INIT('-------9V.9%'), ┆
0x1859e…185be 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x185be…185cd 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x185cd…185ed (30, 0, 34) 45 45 20 43 48 41 52 28 31 32 29 49 4e 49 54 28 27 2d 2d 2d 2d 2d 2d 2d 39 56 2e 39 2a 27 29 2c ┆EE CHAR(12)INIT('-------9V.9*'),┆
0x185ed…1860d 4a 20 46 49 58 45 44 28 34 29 2c 4b 20 46 49 58 45 44 28 34 29 2c 4c 20 46 49 58 45 44 28 34 29 ┆J FIXED(4),K FIXED(4),L FIXED(4)┆
0x1860d…1861c 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆; ┆
0x1861c…1866b (30, 0, 35) 0x20[0x4f]
0x1866b…1868b (30, 0, 36) 41 42 4f 52 54 3a 50 52 4f 43 28 41 42 54 58 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ABORT:PROC(ABTX); ┆
0x1868b…186ab 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x186ab…186ba 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x186ba…186da (30, 0, 37) 44 43 4c 20 41 42 54 58 20 43 48 41 52 28 31 35 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆DCL ABTX CHAR(15); ┆
0x186da…186fa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x186fa…18709 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18709…18729 (30, 0, 38) 50 55 54 20 53 4b 49 50 20 45 44 49 54 28 27 46 45 4c 21 20 27 29 28 41 29 28 41 42 54 58 29 28 ┆PUT SKIP EDIT('FEL! ')(A)(ABTX)(┆
0x18729…18749 41 29 53 4b 49 50 28 52 41 44 2d 34 29 3b 47 4f 54 4f 20 53 4c 55 54 54 3b 20 20 20 20 20 20 20 ┆A)SKIP(RAD-4);GOTO SLUTT; ┆
0x18749…18758 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18758…18778 (30, 0, 39) 52 45 54 55 52 4e 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 ┆RETURN; ┆
0x18778…18798 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18798…187a7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x187a7…187c7 (30, 0, 40) 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆END; ┆
0x187c7…187e7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x187e7…187f6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x187f6…18845 (31, 0, 0) DataSector[0x4f]
[…0x109…]
0x1da0c…1da2c (37, 0, 20) 50 55 54 20 46 49 4c 45 28 44 29 20 53 4b 49 50 20 45 44 49 54 28 27 20 27 29 28 41 28 33 37 29 ┆PUT FILE(D) SKIP EDIT(' ')(A(37)┆
0x1da2c…1da4c 29 28 27 2a 2a 20 20 49 4e 4d 41 54 4e 49 4e 47 20 41 56 20 49 4e 47 5d 45 4e 44 45 20 42 41 4c ┆)('** INMATNING AV INGÅENDE BAL┆
0x1da4c…1da5b 41 4e 53 45 52 20 2a 2a 27 29 20 20 20 20 20 ┆ANSER **') ┆
0x1da5b…1da7b (37, 0, 21) 28 41 28 37 34 29 29 28 27 53 54 5b 4c 4c 20 49 4e 20 50 45 52 46 4f 52 45 52 49 4e 47 45 4e 27 ┆(A(74))('STÄLL IN PERFORERINGEN'┆
0x1da7b…1da9b 29 28 41 28 33 37 29 29 28 27 54 52 59 43 4b 20 53 45 44 41 4e 20 52 45 54 55 52 4e 2e 27 29 28 ┆)(A(37))('TRYCK SEDAN RETURN.')(┆
0x1da9b…1daaa 41 28 33 37 29 29 3b 20 20 20 20 20 20 20 20 ┆A(37)); ┆
0x1daaa…1daca (37, 0, 22) 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 53 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆GET SKIP LIST(S); ┆
0x1daca…1daea 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1daea…1daf9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1daf9…1db19 (37, 0, 23) 52 41 44 3d 35 3b 53 49 44 41 3d 30 3b 49 4e 44 3d 31 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆RAD=5;SIDA=0;IND=1; ┆
0x1db19…1db39 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1db39…1db48 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1db48…1db68 (37, 0, 24) 50 55 54 20 46 49 4c 45 28 44 29 53 4b 49 50 20 45 44 49 54 28 27 28 46 52 5d 4e 20 42 5c 52 4a ┆PUT FILE(D)SKIP EDIT('(FRÅN BÖRJ┆
0x1db68…1db88 41 4e 20 54 52 59 43 4b 20 42 41 52 41 20 52 45 54 55 52 4e 29 27 29 28 41 28 33 37 29 29 20 20 ┆AN TRYCK BARA RETURN)')(A(37)) ┆
0x1db88…1db97 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1db97…1dbb7 (37, 0, 25) 28 27 4b 4f 4e 54 4f 3a 27 29 28 41 28 33 33 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆('KONTO:')(A(33)); ┆
0x1dbb7…1dbd7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1dbd7…1dbe6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1dbe6…1dc06 (37, 0, 26) 52 55 42 3a 53 49 44 41 3d 53 49 44 41 2b 31 3b 50 55 54 20 53 4b 49 50 28 52 41 44 29 45 44 49 ┆RUB:SIDA=SIDA+1;PUT SKIP(RAD)EDI┆
0x1dc06…1dc26 54 28 27 49 4e 4d 41 54 4e 49 4e 47 20 41 56 20 49 4e 47 5d 45 4e 44 45 20 42 41 4c 41 4e 53 45 ┆T('INMATNING AV INGÅENDE BALANSE┆
0x1dc26…1dc35 52 2e 27 29 28 41 28 34 30 29 29 20 20 20 20 ┆R.')(A(40)) ┆
0x1dc35…1dc55 (37, 0, 27) 28 27 44 41 54 55 4d 3a 27 29 28 41 29 28 44 41 47 29 28 41 28 31 30 29 29 28 27 53 49 44 41 3a ┆('DATUM:')(A)(DAG)(A(10))('SIDA:┆
0x1dc55…1dc75 27 29 28 41 29 28 53 49 44 41 29 28 41 29 53 4b 49 50 28 32 29 45 44 49 54 20 20 20 20 20 20 20 ┆')(A)(SIDA)(A)SKIP(2)EDIT ┆
0x1dc75…1dc84 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1dc84…1dca4 (37, 0, 28) 28 27 4b 4f 4e 54 4f 27 29 28 41 28 37 29 29 28 27 42 45 4e 5b 4d 4e 49 4e 47 27 29 28 41 28 33 ┆('KONTO')(A(7))('BENÄMNING')(A(3┆
0x1dca4…1dcc4 38 29 29 28 27 49 4e 47 2e 20 42 41 4c 41 4e 53 20 56 49 44 20 5d 52 45 54 53 20 42 5c 52 4a 41 ┆8))('ING. BALANS VID ÅRETS BÖRJA┆
0x1dcc4…1dcd3 4e 27 29 28 41 29 53 4b 49 50 3b 20 20 20 20 ┆N')(A)SKIP; ┆
0x1dcd3…1dcf3 (37, 0, 29) 52 41 44 3d 34 35 3b 49 46 20 49 4e 44 20 54 48 45 4e 20 47 4f 20 54 4f 20 4b 4f 49 4e 3b 47 4f ┆RAD=45;IF IND THEN GO TO KOIN;GO┆
0x1dcf3…1dd13 20 54 4f 20 50 52 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 ┆ TO PRT; ┆
0x1dd13…1dd22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1dd22…1dd42 (37, 0, 30) 53 54 3a 50 55 54 20 46 49 4c 45 28 44 29 20 53 4b 49 50 20 45 44 49 54 28 27 4b 4f 4e 54 4f 3a ┆ST:PUT FILE(D) SKIP EDIT('KONTO:┆
0x1dd42…1dd62 27 29 28 41 28 33 37 29 29 28 27 28 4f 4d 20 4c 5c 50 41 4e 44 45 20 54 52 59 43 4b 20 52 45 54 ┆')(A(37))('(OM LÖPANDE TRYCK RET┆
0x1dd62…1dd71 55 52 4e 29 27 29 28 41 28 33 33 29 29 3b 20 ┆URN)')(A(33)); ┆
0x1dd71…1dd91 (37, 0, 31) 4b 4f 49 4e 3a 49 4e 44 3d 30 3b 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 53 56 41 52 29 3b 20 ┆KOIN:IND=0;GET SKIP LIST(SVAR); ┆
0x1dd91…1ddb1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1ddb1…1ddc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1ddc0…1dde0 (37, 0, 32) 4b 4f 49 4e 32 3a 49 46 20 53 56 41 52 3d 27 53 4c 55 54 27 20 54 48 45 4e 20 47 4f 20 54 4f 20 ┆KOIN2:IF SVAR='SLUT' THEN GO TO ┆
0x1dde0…1de00 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 20 ┆UT; ┆
0x1de00…1de0f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1de0f…1de2f (37, 0, 33) 49 46 20 53 56 41 52 3d 27 20 20 20 20 27 20 54 48 45 4e 20 49 4e 44 3d 31 3b 45 4c 53 45 20 58 ┆IF SVAR=' ' THEN IND=1;ELSE X┆
0x1de2f…1de4f 4b 4f 3d 53 56 41 52 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 ┆KO=SVAR; ┆
0x1de4f…1de5e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1de5e…1de7e (37, 0, 34) 49 46 20 49 4e 44 3d 30 26 53 55 42 53 54 52 28 53 56 41 52 2c 34 2c 31 29 3d 27 20 27 20 54 48 ┆IF IND=0&SUBSTR(SVAR,4,1)=' ' TH┆
0x1de7e…1de9e 45 4e 20 47 4f 20 54 4f 20 46 45 4c 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆EN GO TO FEL; ┆
0x1de9e…1dead 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1dead…1decd (37, 0, 35) 49 4e 3a 49 46 20 49 4e 44 20 54 48 45 4e 20 44 4f 3b 50 55 54 20 46 49 4c 45 28 44 29 53 4b 49 ┆IN:IF IND THEN DO;PUT FILE(D)SKI┆
0x1decd…1deed 50 20 45 44 49 54 28 27 56 5b 4e 54 41 20 50 4c 45 41 53 45 2e 27 29 28 41 28 33 37 29 29 3b 20 ┆P EDIT('VÄNTA PLEASE.')(A(37)); ┆
0x1deed…1defc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1defc…1df1c (37, 0, 36) 54 45 53 54 3a 4f 4e 20 45 52 52 4f 52 20 47 4f 20 54 4f 20 46 45 4c 3b 52 45 41 44 20 4b 45 59 ┆TEST:ON ERROR GO TO FEL;READ KEY┆
0x1df1c…1df3c 28 27 41 27 29 46 49 4c 45 28 4b 54 4f 54 58 29 49 4e 54 4f 28 4b 54 4f 29 4b 45 59 54 4f 28 5a ┆('A')FILE(KTOTX)INTO(KTO)KEYTO(Z┆
0x1df3c…1df4b 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆); ┆
0x1df4b…1df6b (37, 0, 37) 49 46 20 4b 4f 4e 54 4f 3c 31 30 30 30 20 54 48 45 4e 20 47 4f 20 54 4f 20 54 45 53 54 3b 20 20 ┆IF KONTO<1000 THEN GO TO TEST; ┆
0x1df6b…1df8b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1df8b…1df9a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1df9a…1dfba (37, 0, 38) 50 55 54 20 46 49 4c 45 28 44 29 53 4b 49 50 20 45 44 49 54 28 27 4b 4f 4e 54 4f 3a 27 29 28 41 ┆PUT FILE(D)SKIP EDIT('KONTO:')(A┆
0x1dfba…1dfda 28 33 33 29 29 28 4b 4f 4e 54 4f 29 28 41 28 34 29 29 3b 45 4e 44 3b 20 20 20 20 20 20 20 20 20 ┆(33))(KONTO)(A(4));END; ┆
0x1dfda…1dfe9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1dfe9…1e009 (37, 0, 39) 45 4c 53 45 20 44 4f 3b 50 55 54 20 46 49 4c 45 28 44 29 45 44 49 54 28 58 4b 4f 29 28 41 28 34 ┆ELSE DO;PUT FILE(D)EDIT(XKO)(A(4┆
0x1e009…1e029 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 20 20 20 20 20 ┆)); ┆
0x1e029…1e038 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1e038…1e058 (37, 0, 40) 4b 4f 4e 54 4f 3d 58 4b 4f 3b 5a 3d 27 41 27 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆KONTO=XKO;Z='A'; ┆
0x1e058…1e078 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1e078…1e087 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1e087…1e0d6 (38, 0, 0) DataSector[0x4f]
[…0x37…]
0x1f1cf…1f21e (39, 0, 15) 0x20[0x4f]
0x1f21e…1f23e (39, 0, 16) 4f 50 45 4e 20 44 41 54 46 49 4c 3b 4f 50 45 4e 20 4b 54 4f 54 58 3b 20 20 20 20 20 20 20 20 20 ┆OPEN DATFIL;OPEN KTOTX; ┆
0x1f23e…1f25e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1f25e…1f26d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1f26d…1f28d (39, 0, 17) 52 45 41 44 20 46 49 4c 45 28 44 41 54 46 49 4c 29 49 4e 54 4f 28 44 41 54 52 45 43 29 3b 49 46 ┆READ FILE(DATFIL)INTO(DATREC);IF┆
0x1f28d…1f2ad 20 58 44 41 47 3d 27 58 58 58 58 58 58 27 20 54 48 45 4e 20 47 4f 20 54 4f 20 53 4c 55 54 3b 20 ┆ XDAG='XXXXXX' THEN GO TO SLUT; ┆
0x1f2ad…1f2bc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1f2bc…1f2dc (39, 0, 18) 44 41 47 3d 58 44 41 47 3b 58 44 41 47 3d 27 58 58 58 58 58 58 27 3b 20 20 20 20 20 20 20 20 20 ┆DAG=XDAG;XDAG='XXXXXX'; ┆
0x1f2dc…1f2fc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1f2fc…1f30b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1f30b…1f32b (39, 0, 19) 52 45 57 52 49 54 45 20 46 49 4c 45 28 44 41 54 46 49 4c 29 46 52 4f 4d 28 44 41 54 52 45 43 29 ┆REWRITE FILE(DATFIL)FROM(DATREC)┆
0x1f32b…1f34b 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 ┆; ┆
0x1f34b…1f35a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1f35a…1f37a (39, 0, 20) 50 55 54 20 46 49 4c 45 28 44 29 20 53 4b 49 50 20 45 44 49 54 28 27 20 27 29 28 41 28 33 37 29 ┆PUT FILE(D) SKIP EDIT(' ')(A(37)┆
0x1f37a…1f39a 29 28 27 2a 2a 2a 20 55 54 53 4b 52 49 46 54 20 41 56 20 49 4e 47 5d 45 4e 44 45 20 42 41 4c 41 ┆)('*** UTSKRIFT AV INGÅENDE BALA┆
0x1f39a…1f3a9 4e 53 45 52 20 2a 2a 2a 27 29 20 20 20 20 20 ┆NSER ***') ┆
0x1f3a9…1f3c9 (39, 0, 21) 28 41 28 37 34 29 29 28 27 53 54 5b 4c 4c 20 49 4e 20 50 45 52 46 4f 52 45 52 49 4e 47 45 4e 27 ┆(A(74))('STÄLL IN PERFORERINGEN'┆
0x1f3c9…1f3e9 29 28 41 28 33 37 29 29 28 27 54 52 59 43 4b 20 53 45 44 41 4e 20 52 45 54 55 52 4e 2e 27 29 28 ┆)(A(37))('TRYCK SEDAN RETURN.')(┆
0x1f3e9…1f3f8 41 28 33 37 29 29 3b 20 20 20 20 20 20 20 20 ┆A(37)); ┆
0x1f3f8…1f418 (39, 0, 22) 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 53 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆GET SKIP LIST(S); ┆
0x1f418…1f438 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1f438…1f447 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1f447…1f467 (39, 0, 23) 50 55 54 20 46 49 4c 45 28 44 29 53 4b 49 50 20 45 44 49 54 28 27 20 27 29 28 41 28 34 33 29 29 ┆PUT FILE(D)SKIP EDIT(' ')(A(43))┆
0x1f467…1f487 28 27 2a 2a 2a 20 55 54 53 4b 52 49 46 54 20 50 5d 47 5d 52 20 2a 2a 2a 27 29 28 41 28 36 38 29 ┆('*** UTSKRIFT PÅGÅR ***')(A(68)┆
0x1f487…1f496 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆); ┆
0x1f496…1f4b6 (39, 0, 24) 54 49 42 3d 30 3b 52 41 44 3d 35 3b 53 49 44 41 3d 30 3b 49 4e 44 3d 31 3b 52 45 43 3d 30 3b 20 ┆TIB=0;RAD=5;SIDA=0;IND=1;REC=0; ┆
0x1f4b6…1f4d6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1f4d6…1f4e5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1f4e5…1f505 (39, 0, 25) 52 55 42 3a 53 49 44 41 3d 53 49 44 41 2b 31 3b 50 55 54 20 53 4b 49 50 28 52 41 44 29 45 44 49 ┆RUB:SIDA=SIDA+1;PUT SKIP(RAD)EDI┆
0x1f505…1f525 54 28 27 55 54 53 4b 52 49 46 54 20 41 56 20 49 4e 47 5d 45 4e 44 45 20 42 41 4c 41 4e 53 45 52 ┆T('UTSKRIFT AV INGÅENDE BALANSER┆
0x1f525…1f534 2e 27 29 28 41 28 34 30 29 29 20 20 20 20 20 ┆.')(A(40)) ┆
0x1f534…1f554 (39, 0, 26) 28 27 44 41 54 55 4d 3a 27 29 28 41 29 28 44 41 47 29 28 41 28 31 30 29 29 28 27 53 49 44 41 3a ┆('DATUM:')(A)(DAG)(A(10))('SIDA:┆
0x1f554…1f574 27 29 28 41 29 28 53 49 44 41 29 28 41 29 53 4b 49 50 28 32 29 45 44 49 54 20 20 20 20 20 20 20 ┆')(A)(SIDA)(A)SKIP(2)EDIT ┆
0x1f574…1f583 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1f583…1f5a3 (39, 0, 27) 28 27 4b 4f 4e 54 4f 27 29 28 41 28 37 29 29 28 27 42 45 4e 5b 4d 4e 49 4e 47 27 29 28 41 28 33 ┆('KONTO')(A(7))('BENÄMNING')(A(3┆
0x1f5a3…1f5c3 38 29 29 28 27 49 4e 47 2e 20 42 41 4c 41 4e 53 20 56 49 44 20 5d 52 45 54 53 20 42 5c 52 4a 41 ┆8))('ING. BALANS VID ÅRETS BÖRJA┆
0x1f5c3…1f5d2 4e 27 29 28 41 29 53 4b 49 50 3b 20 20 20 20 ┆N')(A)SKIP; ┆
0x1f5d2…1f5f2 (39, 0, 28) 52 41 44 3d 34 35 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 ┆RAD=45; ┆
0x1f5f2…1f612 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1f612…1f621 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1f621…1f641 (39, 0, 29) 53 54 3a 4f 4e 20 45 52 52 4f 52 20 47 4f 20 54 4f 20 55 54 3b 52 45 41 44 20 4b 45 59 28 27 41 ┆ST:ON ERROR GO TO UT;READ KEY('A┆
0x1f641…1f661 27 29 46 49 4c 45 28 4b 54 4f 54 58 29 49 4e 54 4f 28 4b 54 4f 29 4b 45 59 54 4f 28 5a 29 3b 20 ┆')FILE(KTOTX)INTO(KTO)KEYTO(Z); ┆
0x1f661…1f670 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1f670…1f690 (39, 0, 30) 49 46 20 55 4e 53 50 45 43 28 4b 54 4f 54 58 29 3c 52 45 43 20 54 48 45 4e 20 47 4f 20 54 4f 20 ┆IF UNSPEC(KTOTX)<REC THEN GO TO ┆
0x1f690…1f6b0 55 54 3b 45 4c 53 45 20 52 45 43 3d 55 4e 53 50 45 43 28 4b 54 4f 54 58 29 3b 20 20 20 20 20 20 ┆UT;ELSE REC=UNSPEC(KTOTX); ┆
0x1f6b0…1f6bf 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1f6bf…1f6df (39, 0, 31) 49 46 20 49 42 3d 30 20 54 48 45 4e 20 47 4f 20 54 4f 20 53 54 3b 20 20 20 20 20 20 20 20 20 20 ┆IF IB=0 THEN GO TO ST; ┆
0x1f6df…1f6ff 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1f6ff…1f70e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1f70e…1f72e (39, 0, 32) 49 46 20 4b 4f 4e 54 4f 3e 32 39 39 39 20 54 48 45 4e 20 49 42 3d 2d 49 42 3b 20 20 20 20 20 20 ┆IF KONTO>2999 THEN IB=-IB; ┆
0x1f72e…1f74e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1f74e…1f75d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1f75d…1f77d (39, 0, 33) 50 55 54 20 53 4b 49 50 20 45 44 49 54 28 4b 4f 4e 54 4f 29 28 41 28 37 29 29 20 20 20 20 20 20 ┆PUT SKIP EDIT(KONTO)(A(7)) ┆
0x1f77d…1f79d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1f79d…1f7ac 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1f7ac…1f7cc (39, 0, 34) 28 54 45 58 54 29 28 41 28 33 38 29 29 28 49 42 29 28 50 27 2d 2d 2d 2d 2d 2d 2d 2d 2d 39 56 2e ┆(TEXT)(A(38))(IB)(P'---------9V.┆
0x1f7cc…1f7ec 39 39 27 29 3b 52 41 44 3d 52 41 44 2d 31 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆99');RAD=RAD-1; ┆
0x1f7ec…1f7fb 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1f7fb…1f81b (39, 0, 35) 54 49 42 3d 54 49 42 2b 49 42 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆TIB=TIB+IB; ┆
0x1f81b…1f83b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1f83b…1f84a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1f84a…1f86a (39, 0, 36) 49 46 20 52 41 44 3c 31 32 20 54 48 45 4e 20 47 4f 20 54 4f 20 52 55 42 3b 47 4f 20 54 4f 20 53 ┆IF RAD<12 THEN GO TO RUB;GO TO S┆
0x1f86a…1f88a 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; ┆
0x1f88a…1f899 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1f899…1f8b9 (39, 0, 37) 55 54 3a 50 55 54 20 53 4b 49 50 28 32 29 45 44 49 54 28 27 2a 2a 2a 20 54 4f 54 41 4c 20 49 4e ┆UT:PUT SKIP(2)EDIT('*** TOTAL IN┆
0x1f8b9…1f8d9 47 5d 45 4e 44 45 20 42 41 4c 41 4e 53 3a 27 29 28 41 28 34 33 29 29 28 54 49 42 29 28 50 43 43 ┆GÅENDE BALANS:')(A(43))(TIB)(PCC┆
0x1f8d9…1f8e8 29 53 4b 49 50 28 52 41 44 2d 37 29 3b 20 20 ┆)SKIP(RAD-7); ┆
0x1f8e8…1f908 (39, 0, 38) 53 4c 55 54 3a 43 41 4c 4c 20 4c 4f 41 44 28 27 42 4f 4b 52 55 54 27 2c 36 29 3b 45 4e 44 3b 20 ┆SLUT:CALL LOAD('BOKRUT',6);END; ┆
0x1f908…1f928 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1f928…1f937 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1f937…1f957 (39, 0, 39) 41 56 44 49 4e 3a 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 4b 41 56 44 29 3b 20 20 20 20 20 20 ┆AVDIN:GET SKIP LIST(KAVD); ┆
0x1f957…1f977 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1f977…1f986 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1f986…1f9a6 (39, 0, 40) 4b 49 42 3d 30 3b 52 45 57 3d 30 3b 50 55 54 20 46 49 4c 45 28 44 29 45 44 49 54 28 4b 41 56 44 ┆KIB=0;REW=0;PUT FILE(D)EDIT(KAVD┆
0x1f9a6…1f9c6 29 28 41 28 33 29 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 ┆)(A(3)) ┆
0x1f9c6…1f9d5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1f9d5…1fa24 (40, 0, 0) DataSector[0x4f]
[…0x26…]
0x205de…205fe (40, 0, 39) 41 56 44 49 4e 3a 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 4b 41 56 44 29 3b 20 20 20 20 20 20 ┆AVDIN:GET SKIP LIST(KAVD); ┆
0x205fe…2061e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2061e…2062d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2062d…2064d (40, 0, 40) 4b 49 42 3d 30 3b 52 45 57 3d 30 3b 50 55 54 20 46 49 4c 45 28 44 29 45 44 49 54 28 4b 41 56 44 ┆KIB=0;REW=0;PUT FILE(D)EDIT(KAVD┆
0x2064d…2066d 29 28 41 28 33 29 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 ┆)(A(3)) ┆
0x2066d…2067c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2067c…2069c (41, 0, 0) 2f 2a 46 5c 52 53 54 41 20 52 41 44 45 4e 2a 2f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆/*FÖRSTA RADEN*/ ┆
0x2069c…206bc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x206bc…206cb 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x206cb…206eb (41, 0, 1) 2f 2a 42 55 44 47 49 4e 20 55 50 50 4c 5b 47 47 4e 49 4e 47 20 41 56 20 42 55 44 47 45 54 20 20 ┆/*BUDGIN UPPLÄGGNING AV BUDGET ┆
0x206eb…2070b 20 20 20 20 20 47 45 4e 45 52 45 4c 4c 54 20 50 47 4d 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GENERELLT PGM. ┆
0x2070b…2071a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2071a…2073a (41, 0, 2) 4b 4c 41 52 54 3a 20 37 38 31 31 30 34 20 20 20 50 52 4f 47 52 3a 54 44 20 2a 2f 20 20 20 20 20 ┆KLART: 781104 PROGR:TD */ ┆
0x2073a…2075a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2075a…20769 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x20769…20789 (41, 0, 3) 44 43 4c 20 31 20 4b 54 4f 2c 32 20 42 53 54 52 2c 33 20 4b 4f 4e 54 4f 20 46 49 58 45 44 28 34 ┆DCL 1 KTO,2 BSTR,3 KONTO FIXED(4┆
0x20789…207a9 29 2c 33 20 58 5a 20 43 48 41 52 28 31 29 2c 33 20 4b 41 56 44 20 43 48 41 52 28 33 29 2c 20 20 ┆),3 XZ CHAR(1),3 KAVD CHAR(3), ┆
0x207a9…207b8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x207b8…207d8 (41, 0, 4) 32 20 4b 42 55 44 28 31 32 29 20 46 49 58 45 44 28 37 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆2 KBUD(12) FIXED(7); ┆
0x207d8…207f8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x207f8…20807 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x20807…20827 (41, 0, 5) 44 43 4c 20 31 20 4b 54 58 2c 32 20 4b 53 54 52 2c 33 20 4b 4f 20 46 49 58 45 44 28 34 29 2c 33 ┆DCL 1 KTX,2 KSTR,3 KO FIXED(4),3┆
0x20827…20847 20 5a 20 43 48 41 52 28 31 29 2c 32 20 4b 4b 4b 20 43 48 41 52 28 34 29 2c 32 20 54 45 58 54 20 ┆ Z CHAR(1),2 KKK CHAR(4),2 TEXT ┆
0x20847…20856 43 48 41 52 28 33 34 29 2c 20 20 20 20 20 20 ┆CHAR(34), ┆
0x20856…20876 (41, 0, 6) 32 20 49 42 20 46 49 58 45 44 28 31 33 2c 32 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆2 IB FIXED(13,2); ┆
0x20876…20896 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x20896…208a5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x208a5…208f4 (41, 0, 7) 0x20[0x4f]
0x208f4…20914 (41, 0, 8) 44 43 4c 20 31 20 44 41 54 52 45 43 2c 32 20 58 44 41 47 20 43 48 41 52 28 36 29 2c 32 20 4d 4f ┆DCL 1 DATREC,2 XDAG CHAR(6),2 MO┆
0x20914…20934 4e 20 43 48 41 52 28 33 29 2c 32 20 4d 4e 52 20 46 49 58 45 44 28 32 29 2c 32 20 53 4b 28 31 34 ┆N CHAR(3),2 MNR FIXED(2),2 SK(14┆
0x20934…20943 29 20 43 48 41 52 28 31 29 2c 20 20 20 20 20 ┆) CHAR(1), ┆
0x20943…20963 (41, 0, 9) 32 20 43 4f 20 46 49 58 45 44 28 31 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆2 CO FIXED(1); ┆
0x20963…20983 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x20983…20992 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x20992…209b2 (41, 0, 10) 44 43 4c 20 44 41 54 46 49 4c 20 46 49 4c 45 2c 4b 54 4f 54 58 20 46 49 4c 45 2c 53 20 43 48 41 ┆DCL DATFIL FILE,KTOTX FILE,S CHA┆
0x209b2…209d2 52 28 31 29 2c 52 41 44 20 46 49 58 45 44 28 32 29 2c 53 49 44 41 20 46 49 58 45 44 28 34 29 2c ┆R(1),RAD FIXED(2),SIDA FIXED(4),┆
0x209d2…209e1 49 4e 44 20 46 49 58 45 44 28 31 29 2c 20 20 ┆IND FIXED(1), ┆
0x209e1…20a01 (41, 0, 11) 53 54 4d 20 46 49 58 45 44 28 32 29 2c 42 55 44 53 55 4d 28 31 32 29 20 46 49 58 45 44 28 37 2c ┆STM FIXED(2),BUDSUM(12) FIXED(7,┆
0x20a01…20a21 31 29 2c 52 45 57 20 46 49 58 45 44 28 31 29 2c 4b 4f 53 56 41 52 20 43 48 41 52 28 34 29 2c 20 ┆1),REW FIXED(1),KOSVAR CHAR(4), ┆
0x20a21…20a30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x20a30…20a50 (41, 0, 12) 58 4b 4f 20 46 49 58 45 44 28 34 29 2c 58 41 56 44 20 43 48 41 52 28 33 29 2c 20 20 20 20 20 20 ┆XKO FIXED(4),XAVD CHAR(3), ┆
0x20a50…20a70 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x20a70…20a7f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x20a7f…20a9f (41, 0, 13) 52 45 43 4e 52 20 42 49 4e 41 52 59 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆RECNR BINARY, ┆
0x20a9f…20abf 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x20abf…20ace 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x20ace…20aee (41, 0, 14) 4a 55 4d 50 20 46 49 58 45 44 28 31 29 2c 43 20 43 48 41 52 28 31 39 29 49 4e 49 54 28 27 2d 2d ┆JUMP FIXED(1),C CHAR(19)INIT('--┆
0x20aee…20b0e 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 39 56 2e 39 39 27 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 ┆------------9V.99'), ┆
0x20b0e…20b1d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x20b1d…20b3d (41, 0, 15) 43 43 20 43 48 41 52 28 31 39 29 49 4e 49 54 28 27 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 39 56 2e 39 ┆CC CHAR(19)INIT('-----------9V.9┆
0x20b3d…20b5d 39 2a 2a 2a 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 ┆9***'), ┆
0x20b5d…20b6c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x20b6c…20b8c (41, 0, 16) 43 43 43 20 43 48 41 52 28 31 39 29 49 4e 49 54 28 27 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 39 ┆CCC CHAR(19)INIT('-------------9┆
0x20b8c…20bac 56 2e 39 39 2a 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 ┆V.99*'), ┆
0x20bac…20bbb 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x20bbb…20bdb (41, 0, 17) 44 41 47 20 43 48 41 52 28 36 29 2c 54 20 46 49 58 45 44 28 39 29 2c 4b 49 42 20 46 49 58 45 44 ┆DAG CHAR(6),T FIXED(9),KIB FIXED┆
0x20bdb…20bfb 28 31 33 2c 32 29 2c 49 20 42 49 4e 41 52 59 2c 4a 20 42 49 4e 41 52 59 3b 20 20 20 20 20 20 20 ┆(13,2),I BINARY,J BINARY; ┆
0x20bfb…20c0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x20c0a…20c2a (41, 0, 18) 4f 50 45 4e 20 4b 54 4f 54 58 3b 4f 50 45 4e 20 44 41 54 46 49 4c 3b 20 20 20 20 20 20 20 20 20 ┆OPEN KTOTX;OPEN DATFIL; ┆
0x20c2a…20c4a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x20c4a…20c59 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x20c59…20c79 (41, 0, 19) 52 45 41 44 20 46 49 4c 45 28 44 41 54 46 49 4c 29 49 4e 54 4f 28 44 41 54 52 45 43 29 3b 49 46 ┆READ FILE(DATFIL)INTO(DATREC);IF┆
0x20c79…20c99 20 58 44 41 47 3d 27 58 58 58 58 58 58 27 20 54 48 45 4e 20 47 4f 20 54 4f 20 53 4c 55 54 3b 20 ┆ XDAG='XXXXXX' THEN GO TO SLUT; ┆
0x20c99…20ca8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x20ca8…20cc8 (41, 0, 20) 44 41 47 3d 58 44 41 47 3b 58 44 41 47 3d 27 58 58 58 58 58 58 27 3b 53 4b 28 31 34 29 3d 27 20 ┆DAG=XDAG;XDAG='XXXXXX';SK(14)=' ┆
0x20cc8…20ce8 27 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 ┆'; ┆
0x20ce8…20cf7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x20cf7…20d17 (41, 0, 21) 52 45 57 52 49 54 45 20 46 49 4c 45 28 44 41 54 46 49 4c 29 46 52 4f 4d 28 44 41 54 52 45 43 29 ┆REWRITE FILE(DATFIL)FROM(DATREC)┆
0x20d17…20d37 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 ┆; ┆
0x20d37…20d46 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x20d46…20d66 (41, 0, 22) 50 55 54 20 46 49 4c 45 28 44 29 20 53 4b 49 50 20 45 44 49 54 28 27 20 27 29 28 41 28 33 37 29 ┆PUT FILE(D) SKIP EDIT(' ')(A(37)┆
0x20d66…20d86 29 28 27 2a 2a 2a 20 20 20 20 20 55 50 50 4c 5b 47 47 4e 49 4e 47 20 41 56 20 42 55 44 47 45 54 ┆)('*** UPPLÄGGNING AV BUDGET┆
0x20d86…20d95 20 20 20 20 20 2a 2a 2a 27 29 20 20 20 20 20 ┆ ***') ┆
0x20d95…20db5 (41, 0, 23) 28 41 28 37 34 29 29 28 27 53 54 5b 4c 4c 20 49 4e 20 50 45 52 46 4f 52 45 52 49 4e 47 45 4e 27 ┆(A(74))('STÄLL IN PERFORERINGEN'┆
0x20db5…20dd5 29 28 41 28 33 37 29 29 28 27 54 52 59 43 4b 20 53 45 44 41 4e 20 52 45 54 55 52 4e 2e 27 29 28 ┆)(A(37))('TRYCK SEDAN RETURN.')(┆
0x20dd5…20de4 41 28 33 37 29 29 3b 20 20 20 20 20 20 20 20 ┆A(37)); ┆
0x20de4…20e04 (41, 0, 24) 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 53 29 3b 50 55 54 20 46 49 4c 45 28 44 29 53 4b 49 50 ┆GET SKIP LIST(S);PUT FILE(D)SKIP┆
0x20e04…20e24 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 ┆; ┆
0x20e24…20e33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x20e33…20e53 (41, 0, 25) 4a 55 4d 50 3d 30 3b 52 41 44 3d 35 3b 53 49 44 41 3d 30 3b 49 4e 44 3d 31 3b 52 45 57 3d 30 3b ┆JUMP=0;RAD=5;SIDA=0;IND=1;REW=0;┆
0x20e53…20e73 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x20e73…20e82 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x20e82…20ea2 (41, 0, 26) 52 55 42 3a 53 49 44 41 3d 53 49 44 41 2b 31 3b 50 55 54 20 53 4b 49 50 28 52 41 44 29 45 44 49 ┆RUB:SIDA=SIDA+1;PUT SKIP(RAD)EDI┆
0x20ea2…20ec2 54 28 27 55 50 50 4c 5b 47 47 4e 49 4e 47 20 41 56 20 42 55 44 47 45 54 2c 54 55 53 45 4e 54 41 ┆T('UPPLÄGGNING AV BUDGET,TUSENTA┆
0x20ec2…20ed1 4c 20 4b 52 4f 4e 4f 52 27 29 28 41 29 20 20 ┆L KRONOR')(A) ┆
0x20ed1…20ef1 (41, 0, 27) 28 27 20 28 6b 6b 72 29 20 20 20 20 20 44 41 54 55 4d 3a 27 29 28 41 29 28 44 41 47 29 28 41 28 ┆(' (kkr) DATUM:')(A)(DAG)(A(┆
0x20ef1…20f11 31 30 29 29 28 27 53 49 44 41 3a 27 29 28 41 29 28 53 49 44 41 29 28 41 29 53 4b 49 50 28 32 29 ┆10))('SIDA:')(A)(SIDA)(A)SKIP(2)┆
0x20f11…20f20 45 44 49 54 20 20 20 20 20 20 20 20 20 20 20 ┆EDIT ┆
0x20f20…20f40 (41, 0, 28) 28 27 4b 54 4f 27 29 28 41 28 35 29 29 28 27 41 56 44 27 29 28 41 28 36 29 29 28 27 4d 5d 4e 41 ┆('KTO')(A(5))('AVD')(A(6))('MÅNA┆
0x20f40…20f60 44 20 31 27 29 28 41 28 37 29 29 3b 44 4f 20 49 3d 32 20 54 4f 20 31 32 3b 50 55 54 20 45 44 49 ┆D 1')(A(7));DO I=2 TO 12;PUT EDI┆
0x20f60…20f6f 54 28 49 29 20 20 20 20 20 20 20 20 20 20 20 ┆T(I) ┆
0x20f6f…20f8f (41, 0, 29) 28 50 27 5a 5a 5a 5a 5a 5a 5a 5a 39 27 29 3b 45 4e 44 3b 50 55 54 20 45 44 49 54 28 27 20 20 20 ┆(P'ZZZZZZZZ9');END;PUT EDIT(' ┆
0x20f8f…20faf 20 20 20 20 20 54 4f 54 27 29 28 41 29 53 4b 49 50 28 32 29 3b 52 41 44 3d 34 34 3b 20 20 20 20 ┆ TOT')(A)SKIP(2);RAD=44; ┆
0x20faf…20fbe 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x20fbe…20fde (41, 0, 30) 53 54 3a 50 55 54 20 46 49 4c 45 28 44 29 20 53 4b 49 50 20 45 44 49 54 28 27 4b 4f 4e 54 4f 3a ┆ST:PUT FILE(D) SKIP EDIT('KONTO:┆
0x20fde…20ffe 27 29 28 41 28 33 33 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 ┆')(A(33)); ┆
0x20ffe…2100d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2100d…2102d (41, 0, 31) 4b 54 4f 49 4e 3a 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 4b 4f 53 56 41 52 29 3b 50 55 54 20 ┆KTOIN:GET SKIP LIST(KOSVAR);PUT ┆
0x2102d…2104d 46 49 4c 45 28 44 29 20 45 44 49 54 28 4b 4f 53 56 41 52 29 28 41 28 34 29 29 3b 20 20 20 20 20 ┆FILE(D) EDIT(KOSVAR)(A(4)); ┆
0x2104d…2105c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2105c…2107c (41, 0, 32) 49 46 20 4b 4f 53 56 41 52 3d 27 53 4c 55 54 27 20 54 48 45 4e 20 47 4f 20 54 4f 20 55 54 3b 4b ┆IF KOSVAR='SLUT' THEN GO TO UT;K┆
0x2107c…2109c 4f 4e 54 4f 3d 4b 4f 53 56 41 52 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ONTO=KOSVAR; ┆
0x2109c…210ab 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x210ab…210cb (41, 0, 33) 49 46 20 28 4b 4f 4e 54 4f 3c 33 30 30 30 29 7c 28 4b 4f 4e 54 4f 3e 38 39 39 39 29 20 54 48 45 ┆IF (KONTO<3000)ö(KONTO>8999) THE┆
0x210cb…210eb 4e 20 47 4f 20 54 4f 20 46 45 4c 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆N GO TO FEL; ┆
0x210eb…210fa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x210fa…2111a (41, 0, 34) 49 46 20 52 45 57 3d 30 20 54 48 45 4e 20 4f 50 45 4e 20 4b 54 4f 54 58 3b 20 20 20 20 20 20 20 ┆IF REW=0 THEN OPEN KTOTX; ┆
0x2111a…2113a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2113a…21149 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x21149…21169 (41, 0, 35) 4b 4f 3d 4b 4f 4e 54 4f 3b 5a 3d 27 41 27 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆KO=KONTO;Z='A'; ┆
0x21169…21189 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x21189…21198 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x21198…211b8 (41, 0, 36) 4f 4e 20 45 52 52 4f 52 20 47 4f 20 54 4f 20 46 45 4c 3b 52 45 41 44 20 4b 45 59 28 4b 53 54 52 ┆ON ERROR GO TO FEL;READ KEY(KSTR┆
0x211b8…211d8 29 46 49 4c 45 28 4b 54 4f 54 58 29 49 4e 54 4f 28 4b 54 58 29 3b 20 20 20 20 20 20 20 20 20 20 ┆)FILE(KTOTX)INTO(KTX); ┆
0x211d8…211e7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x211e7…21207 (41, 0, 37) 50 55 54 20 46 49 4c 45 28 44 29 45 44 49 54 28 54 45 58 54 29 28 41 28 33 37 29 29 20 20 20 20 ┆PUT FILE(D)EDIT(TEXT)(A(37)) ┆
0x21207…21227 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x21227…21236 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x21236…21256 (41, 0, 38) 28 27 41 56 44 45 4c 4e 49 4e 47 20 28 52 45 54 55 52 4e 20 4f 4d 20 49 4e 47 45 4e 29 3a 27 29 ┆('AVDELNING (RETURN OM INGEN):')┆
0x21256…21276 28 41 28 33 34 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(34)); ┆
0x21276…21285 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x21285…212a5 (41, 0, 39) 41 56 44 49 4e 3a 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 4b 41 56 44 29 3b 20 20 20 20 20 20 ┆AVDIN:GET SKIP LIST(KAVD); ┆
0x212a5…212c5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x212c5…212d4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x212d4…212f4 (41, 0, 40) 4b 49 42 3d 30 3b 52 45 57 3d 30 3b 50 55 54 20 46 49 4c 45 28 44 29 45 44 49 54 28 4b 41 56 44 ┆KIB=0;REW=0;PUT FILE(D)EDIT(KAVD┆
0x212f4…21314 29 28 41 28 33 29 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 ┆)(A(3)) ┆
0x21314…21323 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x21323…21372 (42, 0, 0) DataSector[0x4f]
[…0x48…]
0x229aa…229ca (43, 0, 32) 50 55 54 20 53 4b 49 50 20 45 44 49 54 28 4b 4f 4e 54 4f 29 28 41 28 36 29 29 28 4b 41 56 44 29 ┆PUT SKIP EDIT(KONTO)(A(6))(KAVD)┆
0x229ca…229ea 28 41 28 33 29 29 3b 52 41 44 3d 52 41 44 2d 31 3b 4b 49 42 3d 30 3b 20 20 20 20 20 20 20 20 20 ┆(A(3));RAD=RAD-1;KIB=0; ┆
0x229ea…229f9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x229f9…22a19 (43, 0, 33) 4b 4f 53 56 41 52 3d 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 ┆KOSVAR=KONTO; ┆
0x22a19…22a39 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x22a39…22a48 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x22a48…22a68 (43, 0, 34) 44 4f 20 49 3d 31 20 54 4f 20 31 32 3b 42 55 44 53 55 4d 3d 4b 42 55 44 28 49 29 2f 31 30 3b 20 ┆DO I=1 TO 12;BUDSUM=KBUD(I)/10; ┆
0x22a68…22a88 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x22a88…22a97 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x22a97…22ab7 (43, 0, 35) 49 46 20 56 45 52 49 46 59 28 53 55 42 53 54 52 28 4b 4f 53 56 41 52 2c 31 2c 31 29 2c 27 33 27 ┆IF VERIFY(SUBSTR(KOSVAR,1,1),'3'┆
0x22ab7…22ad7 29 54 48 45 4e 20 42 55 44 53 55 4d 3d 2d 42 55 44 53 55 4d 3b 20 20 20 20 20 20 20 20 20 20 20 ┆)THEN BUDSUM=-BUDSUM; ┆
0x22ad7…22ae6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x22ae6…22b06 (43, 0, 36) 50 55 54 20 45 44 49 54 28 42 55 44 53 55 4d 29 28 50 27 2d 2d 2d 2d 2d 2d 39 56 2e 39 27 29 3b ┆PUT EDIT(BUDSUM)(P'------9V.9');┆
0x22b06…22b26 4b 49 42 3d 4b 49 42 2b 42 55 44 53 55 4d 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆KIB=KIB+BUDSUM; ┆
0x22b26…22b35 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x22b35…22b55 (43, 0, 37) 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆END; ┆
0x22b55…22b75 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x22b75…22b84 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x22b84…22ba4 (43, 0, 38) 50 55 54 20 45 44 49 54 28 4b 49 42 29 28 50 27 2d 2d 2d 2d 2d 2d 2d 2d 39 56 2e 39 27 29 3b 20 ┆PUT EDIT(KIB)(P'--------9V.9'); ┆
0x22ba4…22bc4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x22bc4…22bd3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x22bd3…22bf3 (43, 0, 39) 49 46 20 56 45 52 49 46 59 28 53 55 42 53 54 52 28 4b 4f 53 56 41 52 2c 31 2c 31 29 2c 27 33 27 ┆IF VERIFY(SUBSTR(KOSVAR,1,1),'3'┆
0x22bf3…22c13 29 20 54 48 45 4e 20 50 55 54 20 45 44 49 54 28 27 20 4b 52 45 27 29 28 41 29 3b 20 20 20 20 20 ┆) THEN PUT EDIT(' KRE')(A); ┆
0x22c13…22c22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x22c22…22c42 (43, 0, 40) 45 4c 53 45 20 50 55 54 20 45 44 49 54 28 27 20 44 45 42 27 29 28 41 29 3b 20 20 20 20 20 20 20 ┆ELSE PUT EDIT(' DEB')(A); ┆
0x22c42…22c62 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x22c62…22c71 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x22c71…22c91 (44, 0, 0) 2f 2a 46 5c 52 53 54 41 20 52 41 44 45 4e 2a 2f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆/*FÖRSTA RADEN*/ ┆
0x22c91…22cb1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x22cb1…22cc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x22cc0…22ce0 (44, 0, 1) 2f 2a 42 55 44 47 55 54 20 55 54 53 4b 52 49 46 54 20 41 56 20 42 55 44 47 45 54 20 20 20 20 20 ┆/*BUDGUT UTSKRIFT AV BUDGET ┆
0x22ce0…22d00 20 20 20 20 20 47 45 4e 45 52 45 4c 4c 54 20 50 47 4d 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GENERELLT PGM. ┆
0x22d00…22d0f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x22d0f…22d2f (44, 0, 2) 4b 4c 41 52 54 3a 20 37 38 31 31 30 34 20 20 20 50 52 4f 47 52 3a 54 44 20 2a 2f 20 20 20 20 20 ┆KLART: 781104 PROGR:TD */ ┆
0x22d2f…22d4f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x22d4f…22d5e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x22d5e…22d7e (44, 0, 3) 44 43 4c 20 31 20 4b 54 4f 2c 32 20 42 53 54 52 2c 33 20 4b 4f 4e 54 4f 20 46 49 58 45 44 28 34 ┆DCL 1 KTO,2 BSTR,3 KONTO FIXED(4┆
0x22d7e…22d9e 29 2c 33 20 58 5a 20 43 48 41 52 28 31 29 2c 33 20 4b 41 56 44 20 43 48 41 52 28 33 29 2c 20 20 ┆),3 XZ CHAR(1),3 KAVD CHAR(3), ┆
0x22d9e…22dad 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x22dad…22dcd (44, 0, 4) 32 20 4b 42 55 44 28 31 32 29 20 46 49 58 45 44 28 37 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆2 KBUD(12) FIXED(7); ┆
0x22dcd…22ded 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x22ded…22dfc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x22dfc…22e1c (44, 0, 5) 44 43 4c 20 31 20 44 41 54 52 45 43 2c 32 20 58 44 41 47 20 43 48 41 52 28 36 29 2c 32 20 4d 4f ┆DCL 1 DATREC,2 XDAG CHAR(6),2 MO┆
0x22e1c…22e3c 4e 20 43 48 41 52 28 33 29 2c 32 20 4d 4e 52 20 46 49 58 45 44 28 32 29 2c 32 20 53 4b 28 31 34 ┆N CHAR(3),2 MNR FIXED(2),2 SK(14┆
0x22e3c…22e4b 29 20 43 48 41 52 28 31 29 2c 20 20 20 20 20 ┆) CHAR(1), ┆
0x22e4b…22e6b (44, 0, 6) 32 20 43 4f 20 46 49 58 45 44 28 31 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆2 CO FIXED(1); ┆
0x22e6b…22e8b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x22e8b…22e9a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x22e9a…22eba (44, 0, 7) 44 43 4c 20 44 41 54 46 49 4c 20 46 49 4c 45 2c 4b 54 4f 54 58 20 46 49 4c 45 2c 53 20 43 48 41 ┆DCL DATFIL FILE,KTOTX FILE,S CHA┆
0x22eba…22eda 52 28 31 29 2c 52 41 44 20 46 49 58 45 44 28 32 29 2c 53 49 44 41 20 46 49 58 45 44 28 34 29 2c ┆R(1),RAD FIXED(2),SIDA FIXED(4),┆
0x22eda…22ee9 49 4e 44 20 46 49 58 45 44 28 31 29 2c 20 20 ┆IND FIXED(1), ┆
0x22ee9…22f09 (44, 0, 8) 44 41 47 20 43 48 41 52 28 36 29 2c 42 55 44 53 55 4d 20 46 49 58 45 44 28 37 2c 31 29 2c 20 20 ┆DAG CHAR(6),BUDSUM FIXED(7,1), ┆
0x22f09…22f29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x22f29…22f38 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x22f38…22f58 (44, 0, 9) 58 4b 4f 20 46 49 58 45 44 28 34 29 2c 58 41 56 44 20 43 48 41 52 28 33 29 2c 20 20 20 20 20 20 ┆XKO FIXED(4),XAVD CHAR(3), ┆
0x22f58…22f78 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x22f78…22f87 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x22f87…22fa7 (44, 0, 10) 52 45 43 4e 52 20 42 49 4e 41 52 59 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆RECNR BINARY, ┆
0x22fa7…22fc7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x22fc7…22fd6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x22fd6…22ff6 (44, 0, 11) 4a 55 4d 50 20 46 49 58 45 44 28 31 29 2c 43 20 43 48 41 52 28 31 39 29 49 4e 49 54 28 27 2d 2d ┆JUMP FIXED(1),C CHAR(19)INIT('--┆
0x22ff6…23016 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 39 56 2e 39 39 27 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 ┆------------9V.99'), ┆
0x23016…23025 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x23025…23045 (44, 0, 12) 43 43 20 43 48 41 52 28 31 39 29 49 4e 49 54 28 27 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 39 56 2e 39 ┆CC CHAR(19)INIT('-----------9V.9┆
0x23045…23065 39 2a 2a 2a 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 ┆9***'), ┆
0x23065…23074 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x23074…23094 (44, 0, 13) 43 43 43 20 43 48 41 52 28 31 39 29 49 4e 49 54 28 27 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 39 ┆CCC CHAR(19)INIT('-------------9┆
0x23094…230b4 56 2e 39 39 2a 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 ┆V.99*'), ┆
0x230b4…230c3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x230c3…230e3 (44, 0, 14) 4b 4f 53 56 41 52 20 43 48 41 52 28 34 29 2c 4b 49 42 20 46 49 58 45 44 28 31 33 2c 32 29 3b 20 ┆KOSVAR CHAR(4),KIB FIXED(13,2); ┆
0x230e3…23103 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x23103…23112 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x23112…23161 (44, 0, 15) 0x20[0x4f]
0x23161…23181 (44, 0, 16) 4f 50 45 4e 20 44 41 54 46 49 4c 3b 4f 50 45 4e 20 4b 54 4f 54 58 3b 20 20 20 20 20 20 20 20 20 ┆OPEN DATFIL;OPEN KTOTX; ┆
0x23181…231a1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x231a1…231b0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x231b0…231d0 (44, 0, 17) 52 45 41 44 20 46 49 4c 45 28 44 41 54 46 49 4c 29 49 4e 54 4f 28 44 41 54 52 45 43 29 3b 49 46 ┆READ FILE(DATFIL)INTO(DATREC);IF┆
0x231d0…231f0 20 58 44 41 47 3d 27 58 58 58 58 58 58 27 20 54 48 45 4e 20 47 4f 20 54 4f 20 53 4c 55 54 3b 20 ┆ XDAG='XXXXXX' THEN GO TO SLUT; ┆
0x231f0…231ff 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x231ff…2321f (44, 0, 18) 44 41 47 3d 58 44 41 47 3b 58 44 41 47 3d 27 58 58 58 58 58 58 27 3b 20 20 20 20 20 20 20 20 20 ┆DAG=XDAG;XDAG='XXXXXX'; ┆
0x2321f…2323f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2323f…2324e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2324e…2326e (44, 0, 19) 52 45 57 52 49 54 45 20 46 49 4c 45 28 44 41 54 46 49 4c 29 46 52 4f 4d 28 44 41 54 52 45 43 29 ┆REWRITE FILE(DATFIL)FROM(DATREC)┆
0x2326e…2328e 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 ┆; ┆
0x2328e…2329d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2329d…232bd (44, 0, 20) 50 55 54 20 46 49 4c 45 28 44 29 20 53 4b 49 50 20 45 44 49 54 28 27 20 27 29 28 41 28 33 37 29 ┆PUT FILE(D) SKIP EDIT(' ')(A(37)┆
0x232bd…232dd 29 28 27 2a 2a 2a 20 20 20 20 20 20 55 54 53 4b 52 49 46 54 20 41 56 20 42 55 44 47 45 54 20 20 ┆)('*** UTSKRIFT AV BUDGET ┆
0x232dd…232ec 20 20 20 20 20 2a 2a 2a 27 29 20 20 20 20 20 ┆ ***') ┆
0x232ec…2330c (44, 0, 21) 28 41 28 37 34 29 29 28 27 53 54 5b 4c 4c 20 49 4e 20 50 45 52 46 4f 52 45 52 49 4e 47 45 4e 27 ┆(A(74))('STÄLL IN PERFORERINGEN'┆
0x2330c…2332c 29 28 41 28 33 37 29 29 28 27 54 52 59 43 4b 20 53 45 44 41 4e 20 52 45 54 55 52 4e 2e 27 29 28 ┆)(A(37))('TRYCK SEDAN RETURN.')(┆
0x2332c…2333b 41 28 33 37 29 29 3b 20 20 20 20 20 20 20 20 ┆A(37)); ┆
0x2333b…2335b (44, 0, 22) 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 53 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆GET SKIP LIST(S); ┆
0x2335b…2337b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2337b…2338a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2338a…233aa (44, 0, 23) 50 55 54 20 46 49 4c 45 28 44 29 53 4b 49 50 20 45 44 49 54 28 27 20 27 29 28 41 28 34 33 29 29 ┆PUT FILE(D)SKIP EDIT(' ')(A(43))┆
0x233aa…233ca 28 27 2a 2a 2a 20 55 54 53 4b 52 49 46 54 20 50 5d 47 5d 52 20 2a 2a 2a 27 29 28 41 28 36 38 29 ┆('*** UTSKRIFT PÅGÅR ***')(A(68)┆
0x233ca…233d9 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆); ┆
0x233d9…233f9 (44, 0, 24) 4b 49 42 3d 30 3b 52 45 43 4e 52 3d 30 3b 4a 55 4d 50 3d 30 3b 52 41 44 3d 35 3b 53 49 44 41 3d ┆KIB=0;RECNR=0;JUMP=0;RAD=5;SIDA=┆
0x233f9…23419 30 3b 49 4e 44 3d 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 ┆0;IND=1; ┆
0x23419…23428 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x23428…23448 (44, 0, 25) 52 55 42 3a 53 49 44 41 3d 53 49 44 41 2b 31 3b 50 55 54 20 53 4b 49 50 28 52 41 44 29 45 44 49 ┆RUB:SIDA=SIDA+1;PUT SKIP(RAD)EDI┆
0x23448…23468 54 28 27 55 54 53 4b 52 49 46 54 20 41 56 20 42 55 44 47 45 54 20 31 30 30 30 2d 54 41 4c 20 4b ┆T('UTSKRIFT AV BUDGET 1000-TAL K┆
0x23468…23477 52 4f 4e 4f 52 2e 27 29 28 41 29 20 20 20 20 ┆RONOR.')(A) ┆
0x23477…23497 (44, 0, 26) 28 27 20 28 6b 6b 72 29 20 20 20 20 20 44 41 54 55 4d 3a 27 29 28 41 29 28 44 41 47 29 28 41 28 ┆(' (kkr) DATUM:')(A)(DAG)(A(┆
0x23497…234b7 31 30 29 29 28 27 53 49 44 41 3a 27 29 28 41 29 28 53 49 44 41 29 28 41 29 53 4b 49 50 28 32 29 ┆10))('SIDA:')(A)(SIDA)(A)SKIP(2)┆
0x234b7…234c6 45 44 49 54 20 20 20 20 20 20 20 20 20 20 20 ┆EDIT ┆
0x234c6…234e6 (44, 0, 27) 28 27 4b 54 4f 27 29 28 41 28 35 29 29 28 27 41 56 44 27 29 28 41 28 36 29 29 28 27 4d 5d 4e 41 ┆('KTO')(A(5))('AVD')(A(6))('MÅNA┆
0x234e6…23506 44 20 31 27 29 28 41 28 37 29 29 3b 44 4f 20 49 3d 32 20 54 4f 20 31 32 3b 50 55 54 20 45 44 49 ┆D 1')(A(7));DO I=2 TO 12;PUT EDI┆
0x23506…23515 54 28 49 29 20 20 20 20 20 20 20 20 20 20 20 ┆T(I) ┆
0x23515…23535 (44, 0, 28) 28 50 27 5a 5a 5a 5a 5a 5a 5a 5a 39 27 29 3b 45 4e 44 3b 50 55 54 20 45 44 49 54 28 27 20 20 20 ┆(P'ZZZZZZZZ9');END;PUT EDIT(' ┆
0x23535…23555 20 20 20 20 20 54 4f 54 27 29 28 41 29 53 4b 49 50 3b 52 41 44 3d 34 35 3b 20 20 20 20 20 20 20 ┆ TOT')(A)SKIP;RAD=45; ┆
0x23555…23564 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x23564…23584 (44, 0, 29) 53 54 3a 49 46 20 52 41 44 3c 31 32 20 54 48 45 4e 20 47 4f 20 54 4f 20 52 55 42 3b 20 20 20 20 ┆ST:IF RAD<12 THEN GO TO RUB; ┆
0x23584…235a4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x235a4…235b3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x235b3…235d3 (44, 0, 30) 4f 4e 20 45 52 52 4f 52 20 47 4f 20 54 4f 20 53 4c 55 54 3b 52 45 41 44 20 4b 45 59 28 27 42 27 ┆ON ERROR GO TO SLUT;READ KEY('B'┆
0x235d3…235f3 29 46 49 4c 45 28 4b 54 4f 54 58 29 49 4e 54 4f 28 4b 54 4f 29 4b 45 59 54 4f 28 58 5a 29 3b 20 ┆)FILE(KTOTX)INTO(KTO)KEYTO(XZ); ┆
0x235f3…23602 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x23602…23622 (44, 0, 31) 49 46 20 52 45 43 4e 52 3e 3d 55 4e 53 50 45 43 28 4b 54 4f 54 58 29 20 54 48 45 4e 20 47 4f 20 ┆IF RECNR>=UNSPEC(KTOTX) THEN GO ┆
0x23622…23642 54 4f 20 55 54 3b 52 45 43 4e 52 3d 55 4e 53 50 45 43 28 4b 54 4f 54 58 29 3b 20 20 20 20 20 20 ┆TO UT;RECNR=UNSPEC(KTOTX); ┆
0x23642…23651 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x23651…23671 (44, 0, 32) 50 55 54 20 53 4b 49 50 20 45 44 49 54 28 4b 4f 4e 54 4f 29 28 41 28 36 29 29 28 4b 41 56 44 29 ┆PUT SKIP EDIT(KONTO)(A(6))(KAVD)┆
0x23671…23691 28 41 28 33 29 29 3b 52 41 44 3d 52 41 44 2d 31 3b 4b 49 42 3d 30 3b 20 20 20 20 20 20 20 20 20 ┆(A(3));RAD=RAD-1;KIB=0; ┆
0x23691…236a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x236a0…236c0 (44, 0, 33) 4b 4f 53 56 41 52 3d 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 ┆KOSVAR=KONTO; ┆
0x236c0…236e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x236e0…236ef 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x236ef…2370f (44, 0, 34) 44 4f 20 49 3d 31 20 54 4f 20 31 32 3b 42 55 44 53 55 4d 3d 4b 42 55 44 28 49 29 2f 31 30 3b 20 ┆DO I=1 TO 12;BUDSUM=KBUD(I)/10; ┆
0x2370f…2372f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2372f…2373e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2373e…2375e (44, 0, 35) 49 46 20 56 45 52 49 46 59 28 53 55 42 53 54 52 28 4b 4f 53 56 41 52 2c 31 2c 31 29 2c 27 33 27 ┆IF VERIFY(SUBSTR(KOSVAR,1,1),'3'┆
0x2375e…2377e 29 54 48 45 4e 20 42 55 44 53 55 4d 3d 2d 42 55 44 53 55 4d 3b 20 20 20 20 20 20 20 20 20 20 20 ┆)THEN BUDSUM=-BUDSUM; ┆
0x2377e…2378d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2378d…237ad (44, 0, 36) 50 55 54 20 45 44 49 54 28 42 55 44 53 55 4d 29 28 50 27 2d 2d 2d 2d 2d 2d 39 56 2e 39 27 29 3b ┆PUT EDIT(BUDSUM)(P'------9V.9');┆
0x237ad…237cd 4b 49 42 3d 4b 49 42 2b 42 55 44 53 55 4d 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆KIB=KIB+BUDSUM; ┆
0x237cd…237dc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x237dc…237fc (44, 0, 37) 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆END; ┆
0x237fc…2381c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2381c…2382b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2382b…2384b (44, 0, 38) 50 55 54 20 45 44 49 54 28 4b 49 42 29 28 50 27 2d 2d 2d 2d 2d 2d 2d 2d 39 56 2e 39 27 29 3b 20 ┆PUT EDIT(KIB)(P'--------9V.9'); ┆
0x2384b…2386b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2386b…2387a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2387a…2389a (44, 0, 39) 49 46 20 56 45 52 49 46 59 28 53 55 42 53 54 52 28 4b 4f 53 56 41 52 2c 31 2c 31 29 2c 27 33 27 ┆IF VERIFY(SUBSTR(KOSVAR,1,1),'3'┆
0x2389a…238ba 29 20 54 48 45 4e 20 50 55 54 20 45 44 49 54 28 27 20 4b 52 45 27 29 28 41 29 3b 20 20 20 20 20 ┆) THEN PUT EDIT(' KRE')(A); ┆
0x238ba…238c9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x238c9…238e9 (44, 0, 40) 45 4c 53 45 20 50 55 54 20 45 44 49 54 28 27 20 44 45 42 27 29 28 41 29 3b 20 20 20 20 20 20 20 ┆ELSE PUT EDIT(' DEB')(A); ┆
0x238e9…23909 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x23909…23918 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x23918…23967 (45, 0, 0) DataSector[0x4f]
[…0x2b…]
0x246ac…246fb (46, 0, 3) 0x20[0x4f]
0x246fb…2471b (46, 0, 4) 44 43 4c 20 31 20 44 55 4d 2c 32 20 44 55 4d 31 20 43 48 41 52 28 33 29 2c 32 20 42 55 44 4b 4f ┆DCL 1 DUM,2 DUM1 CHAR(3),2 BUDKO┆
0x2471b…2473b 44 20 43 48 41 52 28 31 29 2c 32 20 44 55 4d 32 20 43 48 41 52 28 35 31 29 3b 20 20 20 20 20 20 ┆D CHAR(1),2 DUM2 CHAR(51); ┆
0x2473b…2474a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2474a…24799 (46, 0, 5) 0x20[0x4f]
0x24799…247b9 (46, 0, 6) 44 43 4c 20 31 20 53 41 4d 2c 32 20 53 53 54 52 2c 33 20 53 4b 4f 20 46 49 58 45 44 28 34 29 2c ┆DCL 1 SAM,2 SSTR,3 SKO FIXED(4),┆
0x247b9…247d9 33 20 53 41 56 44 20 43 48 41 52 28 33 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆3 SAVD CHAR(3), ┆
0x247d9…247e8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x247e8…24808 (46, 0, 7) 32 20 53 41 44 28 31 32 29 20 46 49 58 45 44 28 31 31 2c 32 29 2c 32 20 53 41 4b 28 31 32 29 20 ┆2 SAD(12) FIXED(11,2),2 SAK(12) ┆
0x24808…24828 46 49 58 45 44 28 31 31 2c 32 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆FIXED(11,2); ┆
0x24828…24837 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x24837…24857 (46, 0, 8) 44 43 4c 20 31 20 4b 54 58 2c 32 20 4b 53 54 52 2c 33 20 54 4b 4f 20 46 49 58 45 44 28 34 29 2c ┆DCL 1 KTX,2 KSTR,3 TKO FIXED(4),┆
0x24857…24877 33 20 54 4b 4f 44 20 43 48 41 52 28 31 29 2c 32 20 54 4b 4f 32 20 43 48 41 52 28 34 29 2c 32 20 ┆3 TKOD CHAR(1),2 TKO2 CHAR(4),2 ┆
0x24877…24886 54 45 58 54 20 43 48 41 52 28 33 34 29 2c 20 ┆TEXT CHAR(34), ┆
0x24886…248a6 (46, 0, 9) 32 20 49 42 20 46 49 58 45 44 28 31 33 2c 32 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆2 IB FIXED(13,2); ┆
0x248a6…248c6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x248c6…248d5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x248d5…248f5 (46, 0, 10) 44 43 4c 20 31 20 44 41 54 52 45 43 2c 32 20 58 44 41 47 20 43 48 41 52 28 36 29 2c 32 20 4d 4f ┆DCL 1 DATREC,2 XDAG CHAR(6),2 MO┆
0x248f5…24915 4e 20 43 48 41 52 28 33 29 2c 32 20 4d 4e 52 20 46 49 58 45 44 28 32 29 2c 32 20 53 4b 28 31 34 ┆N CHAR(3),2 MNR FIXED(2),2 SK(14┆
0x24915…24924 29 20 43 48 41 52 28 31 29 2c 20 20 20 20 20 ┆) CHAR(1), ┆
0x24924…24944 (46, 0, 11) 32 20 4b 4f 44 20 46 49 58 45 44 28 31 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆2 KOD FIXED(1); ┆
0x24944…24964 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x24964…24973 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x24973…24993 (46, 0, 12) 44 43 4c 20 44 41 54 46 49 4c 20 46 49 4c 45 2c 4b 54 4f 54 58 20 46 49 4c 45 2c 53 20 43 48 41 ┆DCL DATFIL FILE,KTOTX FILE,S CHA┆
0x24993…249b3 52 28 31 29 2c 52 41 44 20 46 49 58 45 44 28 32 29 2c 53 49 44 41 20 46 49 58 45 44 28 34 29 2c ┆R(1),RAD FIXED(2),SIDA FIXED(4),┆
0x249b3…249c2 49 4e 44 20 46 49 58 45 44 28 31 29 2c 20 20 ┆IND FIXED(1), ┆
0x249c2…249e2 (46, 0, 13) 44 41 47 20 43 48 41 52 28 36 29 2c 53 41 4d 46 49 4c 20 46 49 4c 45 2c 20 20 20 20 20 20 20 20 ┆DAG CHAR(6),SAMFIL FILE, ┆
0x249e2…24a02 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x24a02…24a11 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x24a11…24a31 (46, 0, 14) 44 34 20 46 49 58 45 44 28 31 33 2c 32 29 2c 4b 34 20 46 49 58 45 44 28 31 33 2c 32 29 2c 4b 49 ┆D4 FIXED(13,2),K4 FIXED(13,2),KI┆
0x24a31…24a51 42 20 46 49 58 45 44 28 31 33 2c 32 29 2c 55 53 20 46 49 58 45 44 28 31 33 2c 32 29 2c 20 20 20 ┆B FIXED(13,2),US FIXED(13,2), ┆
0x24a51…24a60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x24a60…24a80 (46, 0, 15) 54 49 20 46 49 58 45 44 28 31 33 2c 32 29 2c 54 44 20 46 49 58 45 44 28 31 33 2c 32 29 2c 54 4b ┆TI FIXED(13,2),TD FIXED(13,2),TK┆
0x24a80…24aa0 20 46 49 58 45 44 28 31 33 2c 32 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ FIXED(13,2), ┆
0x24aa0…24aaf 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x24aaf…24acf (46, 0, 16) 58 53 4b 4f 20 46 49 58 45 44 28 34 29 2c 54 58 54 20 43 48 41 52 28 33 34 29 2c 52 45 43 4e 52 ┆XSKO FIXED(4),TXT CHAR(34),RECNR┆
0x24acf…24aef 20 42 49 4e 41 52 59 2c 53 41 4d 53 4c 55 54 20 42 49 4e 41 52 59 2c 20 20 20 20 20 20 20 20 20 ┆ BINARY,SAMSLUT BINARY, ┆
0x24aef…24afe 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x24afe…24b1e (46, 0, 17) 4b 54 4f 53 4c 55 54 20 42 49 4e 41 52 59 2c 43 20 43 48 41 52 28 31 37 29 49 4e 49 54 28 27 2d ┆KTOSLUT BINARY,C CHAR(17)INIT('-┆
0x24b1e…24b3e 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 39 56 2e 39 39 27 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆-----------9V.99'), ┆
0x24b3e…24b4d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x24b4d…24b6d (46, 0, 18) 43 43 20 43 48 41 52 28 31 37 29 49 4e 49 54 28 27 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 39 56 2e 39 ┆CC CHAR(17)INIT('-----------9V.9┆
0x24b6d…24b8d 39 2a 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 ┆9*'), ┆
0x24b8d…24b9c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x24b9c…24bbc (46, 0, 19) 43 43 43 20 43 48 41 52 28 31 36 29 49 4e 49 54 28 27 2d 2d 2d 2d 2d 39 56 2e 39 39 25 20 20 20 ┆CCC CHAR(16)INIT('-----9V.99% ┆
0x24bbc…24bdc 20 20 27 29 2c 43 43 43 43 20 43 48 41 52 28 31 35 29 49 4e 49 54 28 27 2d 2d 2d 2d 39 56 2e 39 ┆ '),CCCC CHAR(15)INIT('----9V.9┆
0x24bdc…24beb 39 25 20 20 20 20 20 27 29 2c 20 20 20 20 20 ┆9% '), ┆
0x24beb…24c0b (46, 0, 20) 44 20 43 48 41 52 28 34 29 49 4e 49 54 28 27 5a 5a 5a 39 27 29 2c 45 20 43 48 41 52 28 31 32 29 ┆D CHAR(4)INIT('ZZZ9'),E CHAR(12)┆
0x24c0b…24c2b 49 4e 49 54 28 27 2d 2d 2d 2d 2d 2d 2d 39 56 2e 39 20 27 29 2c 20 20 20 20 20 20 20 20 20 20 20 ┆INIT('-------9V.9 '), ┆
0x24c2b…24c3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x24c3a…24c5a (46, 0, 21) 45 45 20 43 48 41 52 28 31 32 29 49 4e 49 54 28 27 2d 2d 2d 2d 2d 2d 2d 39 56 2e 39 2a 27 29 2c ┆EE CHAR(12)INIT('-------9V.9*'),┆
0x24c5a…24c7a 4a 20 46 49 58 45 44 28 34 29 2c 4b 20 46 49 58 45 44 28 34 29 2c 4c 20 46 49 58 45 44 28 34 29 ┆J FIXED(4),K FIXED(4),L FIXED(4)┆
0x24c7a…24c89 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆; ┆
0x24c89…24cd8 (46, 0, 22) 0x20[0x4f]
0x24cd8…24cf8 (46, 0, 23) 41 42 4f 52 54 3a 50 52 4f 43 28 41 42 54 58 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ABORT:PROC(ABTX); ┆
0x24cf8…24d18 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x24d18…24d27 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x24d27…24d47 (46, 0, 24) 44 43 4c 20 41 42 54 58 20 43 48 41 52 28 31 35 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆DCL ABTX CHAR(15); ┆
0x24d47…24d67 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x24d67…24d76 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x24d76…24d96 (46, 0, 25) 50 55 54 20 53 4b 49 50 20 45 44 49 54 28 27 46 45 4c 21 20 27 29 28 41 29 28 41 42 54 58 29 28 ┆PUT SKIP EDIT('FEL! ')(A)(ABTX)(┆
0x24d96…24db6 41 29 53 4b 49 50 28 52 41 44 2d 34 29 3b 47 4f 54 4f 20 53 4c 55 54 54 3b 20 20 20 20 20 20 20 ┆A)SKIP(RAD-4);GOTO SLUTT; ┆
0x24db6…24dc5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x24dc5…24de5 (46, 0, 26) 52 45 54 55 52 4e 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 ┆RETURN; ┆
0x24de5…24e05 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x24e05…24e14 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x24e14…24e34 (46, 0, 27) 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆END; ┆
0x24e34…24e54 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x24e54…24e63 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x24e63…24eb2 (46, 0, 28) 0x20[0x4f]
0x24eb2…24ed2 (46, 0, 29) 52 55 42 3a 50 52 4f 43 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆RUB:PROC; ┆
0x24ed2…24ef2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x24ef2…24f01 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x24f01…24f21 (46, 0, 30) 53 49 44 41 3d 53 49 44 41 2b 31 3b 50 55 54 20 53 4b 49 50 28 52 41 44 29 45 44 49 54 28 27 52 ┆SIDA=SIDA+1;PUT SKIP(RAD)EDIT('R┆
0x24f21…24f41 5d 42 41 4c 41 4e 53 20 46 5c 52 20 42 4f 4b 53 4c 55 54 53 54 52 41 4e 53 41 4b 54 49 4f 4e 45 ┆ÅBALANS FÖR BOKSLUTSTRANSAKTIONE┆
0x24f41…24f50 52 27 29 28 41 29 20 20 20 20 20 20 20 20 20 ┆R')(A) ┆
0x24f50…24f70 (46, 0, 31) 28 27 20 20 20 20 44 41 54 55 4d 3a 27 29 28 41 29 28 44 41 47 29 28 41 28 31 30 29 29 28 27 53 ┆(' DATUM:')(A)(DAG)(A(10))('S┆
0x24f70…24f90 49 44 41 3a 27 29 28 41 29 28 53 49 44 41 29 28 41 28 33 30 29 29 28 27 2a 2a 20 42 4f 4b 53 4c ┆IDA:')(A)(SIDA)(A(30))('** BOKSL┆
0x24f90…24f9f 55 54 53 54 41 42 4c 5d 20 2a 2a 27 29 20 20 ┆UTSTABLÅ **') ┆
0x24f9f…24fbf (46, 0, 32) 28 41 29 53 4b 49 50 20 45 44 49 54 28 27 27 29 28 41 28 39 30 29 29 28 27 28 42 4f 4b 46 5c 52 ┆(A)SKIP EDIT('')(A(90))('(BOKFÖR┆
0x24fbf…24fdf 49 4e 47 53 4f 52 44 45 52 29 27 29 28 41 29 53 4b 49 50 28 32 29 45 44 49 54 20 20 20 20 20 20 ┆INGSORDER)')(A)SKIP(2)EDIT ┆
0x24fdf…24fee 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x24fee…2500e (46, 0, 33) 28 27 4b 54 4f 27 29 28 41 28 31 33 29 29 28 27 49 4e 47 2e 20 53 41 4c 44 4f 27 29 28 41 28 31 ┆('KTO')(A(13))('ING. SALDO')(A(1┆
0x2500e…2502e 38 29 29 28 27 41 43 4b 2e 20 44 45 42 27 29 28 41 28 31 36 29 29 28 27 41 43 4b 2e 20 4b 52 45 ┆8))('ACK. DEB')(A(16))('ACK. KRE┆
0x2502e…2503d 27 29 28 41 28 31 34 29 29 20 20 20 20 20 20 ┆')(A(14)) ┆
0x2503d…2505d (46, 0, 34) 28 27 55 54 47 2e 20 53 41 4c 44 4f 27 29 28 41 28 32 39 29 29 28 27 4b 4f 4e 54 4f 27 29 28 41 ┆('UTG. SALDO')(A(29))('KONTO')(A┆
0x2505d…2507d 28 31 31 29 29 28 27 44 45 42 27 29 28 41 28 31 30 29 29 28 27 4b 52 45 27 29 28 41 29 53 4b 49 ┆(11))('DEB')(A(10))('KRE')(A)SKI┆
0x2507d…2508c 50 20 45 44 49 54 20 20 20 20 20 20 20 20 20 ┆P EDIT ┆
0x2508c…250ac (46, 0, 35) 28 27 27 29 28 41 28 39 29 29 28 27 28 56 49 44 20 5d 52 45 54 53 20 42 5c 52 4a 41 4e 29 27 29 ┆('')(A(9))('(VID ÅRETS BÖRJAN)')┆
0x250ac…250cc 28 41 29 53 4b 49 50 3b 52 41 44 3d 34 33 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆(A)SKIP;RAD=43; ┆
0x250cc…250db 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x250db…250fb (46, 0, 36) 52 45 54 55 52 4e 3b 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 ┆RETURN;END; ┆
0x250fb…2511b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2511b…2512a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2512a…25179 (46, 0, 37) 0x20[0x4f]
0x25179…25199 (46, 0, 38) 53 55 42 41 3a 50 52 4f 43 28 53 55 42 4b 4f 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆SUBA:PROC(SUBKO); ┆
0x25199…251b9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x251b9…251c8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x251c8…251e8 (46, 0, 39) 44 43 4c 20 53 55 42 4b 4f 20 46 49 58 45 44 28 34 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆DCL SUBKO FIXED(4); ┆
0x251e8…25208 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x25208…25217 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x25217…25237 (46, 0, 40) 49 46 20 52 41 44 3c 31 32 20 54 48 45 4e 20 43 41 4c 4c 20 52 55 42 3b 20 20 20 20 20 20 20 20 ┆IF RAD<12 THEN CALL RUB; ┆
0x25237…25257 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x25257…25266 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x25266…252b5 (47, 0, 0) DataSector[0x4f]
[…0x76…]
0x2771f…2773f (49, 0, 37) 43 41 4c 4c 20 53 48 49 46 54 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆CALL SHIFT; ┆
0x2773f…2775f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2775f…2776e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2776e…2778e (49, 0, 38) 58 53 41 4d 32 28 49 29 3d 58 53 41 4d 33 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆XSAM2(I)=XSAM3; ┆
0x2778e…277ae 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x277ae…277bd 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x277bd…277dd (49, 0, 39) 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆END; ┆
0x277dd…277fd 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x277fd…2780c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2780c…2782c (49, 0, 40) 52 45 57 52 49 54 45 20 46 49 4c 45 28 53 41 4d 46 49 4c 29 46 52 4f 4d 28 58 53 41 4d 32 29 3b ┆REWRITE FILE(SAMFIL)FROM(XSAM2);┆
0x2782c…2784c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2784c…2785b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2785b…278aa (50, 0, 0) DataSector[0x4f]
[…0x12…]
0x27e38…27e58 (50, 0, 19) 44 43 4c 20 53 41 4d 46 49 4c 20 46 49 4c 45 2c 52 45 43 4e 52 20 42 49 4e 41 52 59 3b 20 20 20 ┆DCL SAMFIL FILE,RECNR BINARY; ┆
0x27e58…27e78 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x27e78…27e87 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x27e87…27ea7 (50, 0, 20) 53 48 49 46 54 3a 50 52 4f 43 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆SHIFT:PROC; ┆
0x27ea7…27ec7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x27ec7…27ed6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x27ed6…27ef6 (50, 0, 21) 58 41 56 44 33 3d 53 41 56 44 33 3b 58 4b 4f 33 3d 53 4b 4f 33 3b 20 20 20 20 20 20 20 20 20 20 ┆XAVD3=SAVD3;XKO3=SKO3; ┆
0x27ef6…27f16 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x27f16…27f25 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x27f25…27f45 (50, 0, 22) 44 4f 20 4a 3d 31 20 54 4f 20 31 32 3b 58 41 44 33 28 4a 29 3d 53 41 44 33 28 4a 29 3b 58 41 4b ┆DO J=1 TO 12;XAD3(J)=SAD3(J);XAK┆
0x27f45…27f65 33 28 4a 29 3d 53 41 4b 33 28 4a 29 3b 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆3(J)=SAK3(J);END; ┆
0x27f65…27f74 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x27f74…27f94 (50, 0, 23) 52 45 54 55 52 4e 3b 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 ┆RETURN;END; ┆
0x27f94…27fb4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x27fb4…27fc3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x27fc3…28012 (50, 0, 24) 0x20[0x4f]
0x28012…28032 (50, 0, 25) 4f 50 45 4e 20 53 41 4d 46 49 4c 3b 52 45 43 4e 52 3d 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆OPEN SAMFIL;RECNR=0; ┆
0x28032…28052 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x28052…28061 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x28061…28081 (50, 0, 26) 49 4e 31 3a 4f 4e 20 45 4e 44 46 49 4c 45 20 47 4f 20 54 4f 20 49 4e 32 3b 52 45 41 44 20 46 49 ┆IN1:ON ENDFILE GO TO IN2;READ FI┆
0x28081…280a1 4c 45 28 53 41 4d 46 49 4c 29 49 4e 54 4f 28 53 41 4d 31 29 3b 52 45 43 4e 52 3d 55 4e 53 50 45 ┆LE(SAMFIL)INTO(SAM1);RECNR=UNSPE┆
0x280a1…280b0 43 28 53 41 4d 46 49 4c 29 3b 20 20 20 20 20 ┆C(SAMFIL); ┆
0x280b0…280d0 (50, 0, 27) 44 4f 20 49 3d 31 20 54 4f 20 34 30 3b 53 41 4d 33 3d 53 41 4d 31 28 49 29 3b 20 20 20 20 20 20 ┆DO I=1 TO 40;SAM3=SAM1(I); ┆
0x280d0…280f0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x280f0…280ff 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x280ff…2811f (50, 0, 28) 43 41 4c 4c 20 53 48 49 46 54 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆CALL SHIFT; ┆
0x2811f…2813f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2813f…2814e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2814e…2816e (50, 0, 29) 58 53 41 4d 31 28 49 29 3d 58 53 41 4d 33 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆XSAM1(I)=XSAM3; ┆
0x2816e…2818e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2818e…2819d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2819d…281bd (50, 0, 30) 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆END; ┆
0x281bd…281dd 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x281dd…281ec 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x281ec…2820c (50, 0, 31) 52 45 57 52 49 54 45 20 46 49 4c 45 28 53 41 4d 46 49 4c 29 46 52 4f 4d 28 58 53 41 4d 31 29 3b ┆REWRITE FILE(SAMFIL)FROM(XSAM1);┆
0x2820c…2822c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2822c…2823b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2823b…2825b (50, 0, 32) 47 4f 20 54 4f 20 49 4e 31 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆GO TO IN1; ┆
0x2825b…2827b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2827b…2828a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2828a…282d9 (50, 0, 33) 0x20[0x4f]
0x282d9…282f9 (50, 0, 34) 49 4e 32 3a 55 4e 53 50 45 43 28 53 41 4d 46 49 4c 29 3d 52 45 43 4e 52 3b 20 20 20 20 20 20 20 ┆IN2:UNSPEC(SAMFIL)=RECNR; ┆
0x282f9…28319 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x28319…28328 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x28328…28348 (50, 0, 35) 49 4e 32 42 3a 4f 4e 20 45 4e 44 46 49 4c 45 20 47 4f 20 54 4f 20 49 4e 33 3b 52 45 41 44 20 46 ┆IN2B:ON ENDFILE GO TO IN3;READ F┆
0x28348…28368 49 4c 45 28 53 41 4d 46 49 4c 29 49 4e 54 4f 28 53 41 4d 32 29 3b 52 45 43 4e 52 3d 55 4e 53 50 ┆ILE(SAMFIL)INTO(SAM2);RECNR=UNSP┆
0x28368…28377 45 43 28 53 41 4d 46 49 4c 29 3b 20 20 20 20 ┆EC(SAMFIL); ┆
0x28377…28397 (50, 0, 36) 44 4f 20 49 3d 31 20 54 4f 20 37 3b 53 41 4d 33 3d 53 41 4d 32 28 49 29 3b 20 20 20 20 20 20 20 ┆DO I=1 TO 7;SAM3=SAM2(I); ┆
0x28397…283b7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x283b7…283c6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x283c6…283e6 (50, 0, 37) 43 41 4c 4c 20 53 48 49 46 54 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆CALL SHIFT; ┆
0x283e6…28406 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x28406…28415 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x28415…28435 (50, 0, 38) 58 53 41 4d 32 28 49 29 3d 58 53 41 4d 33 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆XSAM2(I)=XSAM3; ┆
0x28435…28455 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x28455…28464 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x28464…28484 (50, 0, 39) 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆END; ┆
0x28484…284a4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x284a4…284b3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x284b3…284d3 (50, 0, 40) 52 45 57 52 49 54 45 20 46 49 4c 45 28 53 41 4d 46 49 4c 29 46 52 4f 4d 28 58 53 41 4d 32 29 3b ┆REWRITE FILE(SAMFIL)FROM(XSAM2);┆
0x284d3…284f3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x284f3…28502 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x28502…28551 (51, 0, 0) DataSector[0x4f]
[…0x30…]
0x29421…29470 (52, 0, 8) 0x20[0x4f]
0x29470…29490 (52, 0, 9) 44 43 4c 20 31 20 53 41 4d 32 28 37 29 2c 32 20 53 4b 4f 32 20 46 49 58 45 44 28 34 29 2c 32 20 ┆DCL 1 SAM2(7),2 SKO2 FIXED(4),2 ┆
0x29490…294b0 53 41 56 44 32 20 43 48 41 52 28 33 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆SAVD2 CHAR(3), ┆
0x294b0…294bf 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x294bf…294df (52, 0, 10) 32 20 53 41 44 32 28 31 32 29 20 46 49 58 45 44 28 31 31 2c 32 29 2c 32 20 53 41 4b 32 28 31 32 ┆2 SAD2(12) FIXED(11,2),2 SAK2(12┆
0x294df…294ff 29 20 46 49 58 45 44 28 31 31 2c 32 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆) FIXED(11,2); ┆
0x294ff…2950e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2950e…2952e (52, 0, 11) 44 43 4c 20 31 20 58 53 41 4d 32 28 37 29 2c 32 20 58 41 56 44 32 20 43 48 41 52 28 33 29 2c 32 ┆DCL 1 XSAM2(7),2 XAVD2 CHAR(3),2┆
0x2952e…2954e 20 58 4b 4f 32 20 46 49 58 45 44 28 34 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ XKO2 FIXED(4), ┆
0x2954e…2955d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2955d…2957d (52, 0, 12) 32 20 58 41 44 32 28 31 32 29 20 46 49 58 45 44 28 31 31 2c 32 29 2c 32 20 58 41 4b 32 28 31 32 ┆2 XAD2(12) FIXED(11,2),2 XAK2(12┆
0x2957d…2959d 29 20 46 49 58 45 44 28 31 31 2c 32 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆) FIXED(11,2); ┆
0x2959d…295ac 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x295ac…295fb (52, 0, 13) 0x20[0x4f]
0x295fb…2961b (52, 0, 14) 44 43 4c 20 31 20 53 41 4d 33 2c 32 20 53 4b 4f 33 20 46 49 58 45 44 28 34 29 2c 32 20 53 41 56 ┆DCL 1 SAM3,2 SKO3 FIXED(4),2 SAV┆
0x2961b…2963b 44 33 20 43 48 41 52 28 33 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆D3 CHAR(3), ┆
0x2963b…2964a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2964a…2966a (52, 0, 15) 32 20 53 41 44 33 28 31 32 29 20 46 49 58 45 44 28 31 31 2c 32 29 2c 32 20 53 41 4b 33 28 31 32 ┆2 SAD3(12) FIXED(11,2),2 SAK3(12┆
0x2966a…2968a 29 20 46 49 58 45 44 28 31 31 2c 32 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆) FIXED(11,2); ┆
0x2968a…29699 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x29699…296b9 (52, 0, 16) 44 43 4c 20 31 20 58 53 41 4d 33 2c 32 20 58 41 56 44 33 20 43 48 41 52 28 33 29 2c 32 20 58 4b ┆DCL 1 XSAM3,2 XAVD3 CHAR(3),2 XK┆
0x296b9…296d9 4f 33 20 46 49 58 45 44 28 34 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆O3 FIXED(4), ┆
0x296d9…296e8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x296e8…29708 (52, 0, 17) 32 20 58 41 44 33 28 31 32 29 20 46 49 58 45 44 28 31 31 2c 32 29 2c 32 20 58 41 4b 33 28 31 32 ┆2 XAD3(12) FIXED(11,2),2 XAK3(12┆
0x29708…29728 29 20 46 49 58 45 44 28 31 31 2c 32 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆) FIXED(11,2); ┆
0x29728…29737 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x29737…29786 (52, 0, 18) 0x20[0x4f]
0x29786…297a6 (52, 0, 19) 44 43 4c 20 53 41 4d 46 49 4c 20 46 49 4c 45 2c 52 45 43 4e 52 20 42 49 4e 41 52 59 3b 20 20 20 ┆DCL SAMFIL FILE,RECNR BINARY; ┆
0x297a6…297c6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x297c6…297d5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x297d5…297f5 (52, 0, 20) 53 48 49 46 54 3a 50 52 4f 43 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆SHIFT:PROC; ┆
0x297f5…29815 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x29815…29824 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x29824…29844 (52, 0, 21) 53 41 56 44 33 3d 58 41 56 44 33 3b 53 4b 4f 33 3d 58 4b 4f 33 3b 20 20 20 20 20 20 20 20 20 20 ┆SAVD3=XAVD3;SKO3=XKO3; ┆
0x29844…29864 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x29864…29873 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x29873…29893 (52, 0, 22) 44 4f 20 4a 3d 31 20 54 4f 20 31 32 3b 53 41 44 33 28 4a 29 3d 58 41 44 33 28 4a 29 3b 53 41 4b ┆DO J=1 TO 12;SAD3(J)=XAD3(J);SAK┆
0x29893…298b3 33 28 4a 29 3d 58 41 4b 33 28 4a 29 3b 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆3(J)=XAK3(J);END; ┆
0x298b3…298c2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x298c2…298e2 (52, 0, 23) 52 45 54 55 52 4e 3b 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 ┆RETURN;END; ┆
0x298e2…29902 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x29902…29911 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x29911…29931 (52, 0, 24) 4f 50 45 4e 20 53 41 4d 46 49 4c 3b 52 45 43 4e 52 3d 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆OPEN SAMFIL;RECNR=0; ┆
0x29931…29951 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x29951…29960 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x29960…29980 (52, 0, 25) 49 4e 31 3a 4f 4e 20 45 4e 44 46 49 4c 45 20 47 4f 20 54 4f 20 49 4e 32 3b 52 45 41 44 20 46 49 ┆IN1:ON ENDFILE GO TO IN2;READ FI┆
0x29980…299a0 4c 45 28 53 41 4d 46 49 4c 29 49 4e 54 4f 28 58 53 41 4d 31 29 3b 52 45 43 4e 52 3d 55 4e 53 50 ┆LE(SAMFIL)INTO(XSAM1);RECNR=UNSP┆
0x299a0…299af 45 43 28 53 41 4d 46 49 4c 29 3b 20 20 20 20 ┆EC(SAMFIL); ┆
0x299af…299cf (52, 0, 26) 44 4f 20 49 3d 31 20 54 4f 20 34 30 3b 58 53 41 4d 33 3d 58 53 41 4d 31 28 49 29 3b 20 20 20 20 ┆DO I=1 TO 40;XSAM3=XSAM1(I); ┆
0x299cf…299ef 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x299ef…299fe 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x299fe…29a1e (52, 0, 27) 43 41 4c 4c 20 53 48 49 46 54 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆CALL SHIFT; ┆
0x29a1e…29a3e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x29a3e…29a4d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x29a4d…29a6d (52, 0, 28) 53 41 4d 31 28 49 29 3d 53 41 4d 33 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆SAM1(I)=SAM3; ┆
0x29a6d…29a8d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x29a8d…29a9c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x29a9c…29abc (52, 0, 29) 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆END; ┆
0x29abc…29adc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x29adc…29aeb 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x29aeb…29b0b (52, 0, 30) 52 45 57 52 49 54 45 20 46 49 4c 45 28 53 41 4d 46 49 4c 29 46 52 4f 4d 28 53 41 4d 31 29 3b 20 ┆REWRITE FILE(SAMFIL)FROM(SAM1); ┆
0x29b0b…29b2b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x29b2b…29b3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x29b3a…29b5a (52, 0, 31) 47 4f 20 54 4f 20 49 4e 31 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆GO TO IN1; ┆
0x29b5a…29b7a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x29b7a…29b89 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x29b89…29bd8 (52, 0, 32) 0x20[0x4f]
0x29bd8…29bf8 (52, 0, 33) 49 4e 32 3a 55 4e 53 50 45 43 28 53 41 4d 46 49 4c 29 3d 52 45 43 4e 52 3b 20 20 20 20 20 20 20 ┆IN2:UNSPEC(SAMFIL)=RECNR; ┆
0x29bf8…29c18 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x29c18…29c27 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x29c27…29c47 (52, 0, 34) 49 4e 32 42 3a 4f 4e 20 45 4e 44 46 49 4c 45 20 47 4f 20 54 4f 20 49 4e 33 3b 52 45 41 44 20 46 ┆IN2B:ON ENDFILE GO TO IN3;READ F┆
0x29c47…29c67 49 4c 45 28 53 41 4d 46 49 4c 29 49 4e 54 4f 28 58 53 41 4d 32 29 3b 52 45 43 4e 52 3d 55 4e 53 ┆ILE(SAMFIL)INTO(XSAM2);RECNR=UNS┆
0x29c67…29c76 50 45 43 28 53 41 4d 46 49 4c 29 3b 20 20 20 ┆PEC(SAMFIL); ┆
0x29c76…29c96 (52, 0, 35) 44 4f 20 49 3d 31 20 54 4f 20 37 3b 58 53 41 4d 33 3d 58 53 41 4d 32 28 49 29 3b 20 20 20 20 20 ┆DO I=1 TO 7;XSAM3=XSAM2(I); ┆
0x29c96…29cb6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x29cb6…29cc5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x29cc5…29ce5 (52, 0, 36) 43 41 4c 4c 20 53 48 49 46 54 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆CALL SHIFT; ┆
0x29ce5…29d05 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x29d05…29d14 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x29d14…29d34 (52, 0, 37) 53 41 4d 32 28 49 29 3d 53 41 4d 33 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆SAM2(I)=SAM3; ┆
0x29d34…29d54 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x29d54…29d63 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x29d63…29d83 (52, 0, 38) 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆END; ┆
0x29d83…29da3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x29da3…29db2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x29db2…29dd2 (52, 0, 39) 52 45 57 52 49 54 45 20 46 49 4c 45 28 53 41 4d 46 49 4c 29 46 52 4f 4d 28 53 41 4d 32 29 3b 20 ┆REWRITE FILE(SAMFIL)FROM(SAM2); ┆
0x29dd2…29df2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x29df2…29e01 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x29e01…29e21 (52, 0, 40) 47 4f 20 54 4f 20 49 4e 32 42 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆GO TO IN2B; ┆
0x29e21…29e41 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x29e41…29e50 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x29e50…29e9f (53, 0, 0) DataSector[0x4f]
[…0x2f…]
0x2ad20…2ad40 (54, 0, 7) 44 43 4c 20 31 20 58 44 55 4d 31 28 34 30 29 2c 32 20 58 4b 4f 44 31 20 43 48 41 52 28 31 29 2c ┆DCL 1 XDUM1(40),2 XKOD1 CHAR(1),┆
0x2ad40…2ad60 32 20 58 31 20 43 48 41 52 28 35 34 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆2 X1 CHAR(54); ┆
0x2ad60…2ad6f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2ad6f…2adbe (54, 0, 8) 0x20[0x4f]
0x2adbe…2adde (54, 0, 9) 44 43 4c 20 31 20 44 55 4d 32 28 37 29 2c 32 20 44 4b 4f 32 20 46 49 58 45 44 28 34 29 2c 32 20 ┆DCL 1 DUM2(7),2 DKO2 FIXED(4),2 ┆
0x2adde…2adfe 44 4b 4f 44 32 20 43 48 41 52 28 31 29 2c 32 20 44 58 32 20 43 48 41 52 28 35 31 29 3b 20 20 20 ┆DKOD2 CHAR(1),2 DX2 CHAR(51); ┆
0x2adfe…2ae0d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2ae0d…2ae2d (54, 0, 10) 44 43 4c 20 31 20 58 44 55 4d 32 28 37 29 2c 32 20 58 4b 4f 44 32 20 43 48 41 52 28 31 29 2c 32 ┆DCL 1 XDUM2(7),2 XKOD2 CHAR(1),2┆
0x2ae2d…2ae4d 20 58 32 20 43 48 41 52 28 35 34 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ X2 CHAR(54); ┆
0x2ae4d…2ae5c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2ae5c…2aeab (54, 0, 11) 0x20[0x4f]
0x2aeab…2aecb (54, 0, 12) 44 43 4c 20 31 20 44 55 4d 33 2c 32 20 44 4b 4f 33 20 46 49 58 45 44 28 34 29 2c 32 20 44 4b 4f ┆DCL 1 DUM3,2 DKO3 FIXED(4),2 DKO┆
0x2aecb…2aeeb 44 33 20 43 48 41 52 28 31 29 2c 32 20 44 58 33 20 43 48 41 52 28 35 31 29 3b 20 20 20 20 20 20 ┆D3 CHAR(1),2 DX3 CHAR(51); ┆
0x2aeeb…2aefa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2aefa…2af1a (54, 0, 13) 44 43 4c 20 31 20 58 44 55 4d 33 2c 32 20 58 4b 4f 44 33 20 43 48 41 52 28 31 29 2c 32 20 58 33 ┆DCL 1 XDUM3,2 XKOD3 CHAR(1),2 X3┆
0x2af1a…2af3a 20 43 48 41 52 28 35 34 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ CHAR(54); ┆
0x2af3a…2af49 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2af49…2af98 (54, 0, 14) 0x20[0x4f]
0x2af98…2afb8 (54, 0, 15) 44 43 4c 20 31 20 4b 54 58 2c 32 20 4b 4e 52 20 46 49 58 45 44 28 34 29 2c 32 20 4b 4f 44 20 43 ┆DCL 1 KTX,2 KNR FIXED(4),2 KOD C┆
0x2afb8…2afd8 48 41 52 28 31 29 2c 32 20 58 20 43 48 41 52 28 35 31 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆HAR(1),2 X CHAR(51); ┆
0x2afd8…2afe7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2afe7…2b007 (54, 0, 16) 44 43 4c 20 31 20 58 4b 54 58 2c 32 20 58 4b 4f 44 20 43 48 41 52 28 31 29 2c 32 20 58 4b 4e 52 ┆DCL 1 XKTX,2 XKOD CHAR(1),2 XKNR┆
0x2b007…2b027 20 46 49 58 45 44 28 34 29 2c 32 20 58 58 20 43 48 41 52 28 35 31 29 3b 20 20 20 20 20 20 20 20 ┆ FIXED(4),2 XX CHAR(51); ┆
0x2b027…2b036 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2b036…2b085 (54, 0, 17) 0x20[0x4f]
0x2b085…2b0a5 (54, 0, 18) 44 43 4c 20 31 20 4b 42 55 2c 32 20 42 4b 4f 20 46 49 58 45 44 28 34 29 2c 32 20 42 4b 4f 44 20 ┆DCL 1 KBU,2 BKO FIXED(4),2 BKOD ┆
0x2b0a5…2b0c5 43 48 41 52 28 31 29 2c 32 20 42 41 56 44 20 43 48 41 52 28 33 29 2c 32 20 59 20 43 48 41 52 28 ┆CHAR(1),2 BAVD CHAR(3),2 Y CHAR(┆
0x2b0c5…2b0d4 34 38 29 3b 20 20 20 20 20 20 20 20 20 20 20 ┆48); ┆
0x2b0d4…2b0f4 (54, 0, 19) 44 43 4c 20 31 20 58 4b 42 55 2c 32 20 58 42 4b 4f 44 20 43 48 41 52 28 31 29 2c 32 20 58 42 41 ┆DCL 1 XKBU,2 XBKOD CHAR(1),2 XBA┆
0x2b0f4…2b114 56 44 20 43 48 41 52 28 33 29 2c 32 20 58 42 4b 4f 20 46 49 58 45 44 28 34 29 2c 32 20 58 59 20 ┆VD CHAR(3),2 XBKO FIXED(4),2 XY ┆
0x2b114…2b123 43 48 41 52 28 34 38 29 3b 20 20 20 20 20 20 ┆CHAR(48); ┆
0x2b123…2b172 (54, 0, 20) 0x20[0x4f]
0x2b172…2b192 (54, 0, 21) 53 48 49 46 54 3a 50 52 4f 43 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆SHIFT:PROC; ┆
0x2b192…2b1b2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2b1b2…2b1c1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2b1c1…2b1e1 (54, 0, 22) 49 46 20 44 4b 4f 44 33 3d 27 41 27 20 54 48 45 4e 20 44 4f 3b 4b 54 58 3d 44 55 4d 33 3b 58 4b ┆IF DKOD3='A' THEN DO;KTX=DUM3;XK┆
0x2b1e1…2b201 4f 44 3d 4b 4f 44 3b 58 4b 4e 52 3d 4b 4e 52 3b 58 58 3d 58 3b 58 44 55 4d 33 3d 58 4b 54 58 3b ┆OD=KOD;XKNR=KNR;XX=X;XDUM3=XKTX;┆
0x2b201…2b210 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 ┆END; ┆
0x2b210…2b230 (54, 0, 23) 49 46 20 44 4b 4f 44 33 3d 27 42 27 20 54 48 45 4e 20 44 4f 3b 4b 42 55 3d 44 55 4d 33 3b 58 42 ┆IF DKOD3='B' THEN DO;KBU=DUM3;XB┆
0x2b230…2b250 4b 4f 44 3d 42 4b 4f 44 3b 58 42 41 56 44 3d 42 41 56 44 3b 58 42 4b 4f 3d 42 4b 4f 3b 58 59 3d ┆KOD=BKOD;XBAVD=BAVD;XBKO=BKO;XY=┆
0x2b250…2b25f 59 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆Y; ┆
0x2b25f…2b27f (54, 0, 24) 58 44 55 4d 33 3d 58 4b 42 55 3b 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆XDUM3=XKBU;END; ┆
0x2b27f…2b29f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2b29f…2b2ae 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2b2ae…2b2ce (54, 0, 25) 52 45 54 55 52 4e 3b 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 ┆RETURN;END; ┆
0x2b2ce…2b2ee 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2b2ee…2b2fd 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2b2fd…2b34c (54, 0, 26) 0x20[0x4f]
0x2b34c…2b36c (54, 0, 27) 44 43 4c 20 4b 54 4f 54 58 20 46 49 4c 45 2c 52 45 43 4e 52 20 42 49 4e 41 52 59 3b 4f 50 45 4e ┆DCL KTOTX FILE,RECNR BINARY;OPEN┆
0x2b36c…2b38c 20 4b 54 4f 54 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 20 20 ┆ KTOTX; ┆
0x2b38c…2b39b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2b39b…2b3bb (54, 0, 28) 52 45 43 4e 52 3d 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 ┆RECNR=0; ┆
0x2b3bb…2b3db 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2b3db…2b3ea 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2b3ea…2b40a (54, 0, 29) 49 4e 31 3a 4f 4e 20 45 4e 44 46 49 4c 45 20 47 4f 20 54 4f 20 49 4e 32 3b 52 45 41 44 20 46 49 ┆IN1:ON ENDFILE GO TO IN2;READ FI┆
0x2b40a…2b42a 4c 45 28 4b 54 4f 54 58 29 49 4e 54 4f 28 44 55 4d 31 29 3b 52 45 43 4e 52 3d 55 4e 53 50 45 43 ┆LE(KTOTX)INTO(DUM1);RECNR=UNSPEC┆
0x2b42a…2b439 28 4b 54 4f 54 58 29 3b 20 20 20 20 20 20 20 ┆(KTOTX); ┆
0x2b439…2b459 (54, 0, 30) 44 4f 20 49 3d 31 20 54 4f 20 34 30 3b 44 55 4d 33 3d 44 55 4d 31 28 49 29 3b 20 20 20 20 20 20 ┆DO I=1 TO 40;DUM3=DUM1(I); ┆
0x2b459…2b479 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2b479…2b488 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2b488…2b4a8 (54, 0, 31) 43 41 4c 4c 20 53 48 49 46 54 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆CALL SHIFT; ┆
0x2b4a8…2b4c8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2b4c8…2b4d7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2b4d7…2b4f7 (54, 0, 32) 58 44 55 4d 31 28 49 29 3d 58 44 55 4d 33 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆XDUM1(I)=XDUM3; ┆
0x2b4f7…2b517 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2b517…2b526 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2b526…2b546 (54, 0, 33) 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆END; ┆
0x2b546…2b566 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2b566…2b575 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2b575…2b595 (54, 0, 34) 52 45 57 52 49 54 45 20 46 49 4c 45 28 4b 54 4f 54 58 29 46 52 4f 4d 28 58 44 55 4d 31 29 3b 20 ┆REWRITE FILE(KTOTX)FROM(XDUM1); ┆
0x2b595…2b5b5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2b5b5…2b5c4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2b5c4…2b5e4 (54, 0, 35) 47 4f 20 54 4f 20 49 4e 31 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆GO TO IN1; ┆
0x2b5e4…2b604 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2b604…2b613 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2b613…2b662 (54, 0, 36) 0x20[0x4f]
0x2b662…2b682 (54, 0, 37) 49 4e 32 3a 55 4e 53 50 45 43 28 4b 54 4f 54 58 29 3d 52 45 43 4e 52 3b 20 20 20 20 20 20 20 20 ┆IN2:UNSPEC(KTOTX)=RECNR; ┆
0x2b682…2b6a2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2b6a2…2b6b1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2b6b1…2b6d1 (54, 0, 38) 49 4e 32 42 3a 4f 4e 20 45 4e 44 46 49 4c 45 20 47 4f 20 54 4f 20 49 4e 33 3b 52 45 41 44 20 46 ┆IN2B:ON ENDFILE GO TO IN3;READ F┆
0x2b6d1…2b6f1 49 4c 45 28 4b 54 4f 54 58 29 49 4e 54 4f 28 44 55 4d 32 29 3b 52 45 43 4e 52 3d 55 4e 53 50 45 ┆ILE(KTOTX)INTO(DUM2);RECNR=UNSPE┆
0x2b6f1…2b700 43 28 4b 54 4f 54 58 29 3b 20 20 20 20 20 20 ┆C(KTOTX); ┆
0x2b700…2b720 (54, 0, 39) 44 4f 20 49 3d 31 20 54 4f 20 37 3b 44 55 4d 33 3d 44 55 4d 32 28 49 29 3b 20 20 20 20 20 20 20 ┆DO I=1 TO 7;DUM3=DUM2(I); ┆
0x2b720…2b740 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2b740…2b74f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2b74f…2b76f (54, 0, 40) 43 41 4c 4c 20 53 48 49 46 54 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆CALL SHIFT; ┆
0x2b76f…2b78f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2b78f…2b79e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2b79e…2b7ed (55, 0, 0) DataSector[0x4f]
[…0x33…]
0x2c7aa…2c7f9 (56, 0, 11) 0x20[0x4f]
0x2c7f9…2c819 (56, 0, 12) 44 43 4c 20 31 20 44 55 4d 33 2c 32 20 44 4b 4f 33 20 46 49 58 45 44 28 34 29 2c 32 20 44 4b 4f ┆DCL 1 DUM3,2 DKO3 FIXED(4),2 DKO┆
0x2c819…2c839 44 33 20 43 48 41 52 28 31 29 2c 32 20 44 58 33 20 43 48 41 52 28 35 31 29 3b 20 20 20 20 20 20 ┆D3 CHAR(1),2 DX3 CHAR(51); ┆
0x2c839…2c848 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2c848…2c868 (56, 0, 13) 44 43 4c 20 31 20 58 44 55 4d 33 2c 32 20 58 4b 4f 44 33 20 43 48 41 52 28 31 29 2c 32 20 58 33 ┆DCL 1 XDUM3,2 XKOD3 CHAR(1),2 X3┆
0x2c868…2c888 20 43 48 41 52 28 35 34 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ CHAR(54); ┆
0x2c888…2c897 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2c897…2c8e6 (56, 0, 14) 0x20[0x4f]
0x2c8e6…2c906 (56, 0, 15) 44 43 4c 20 31 20 4b 54 58 2c 32 20 4b 4e 52 20 46 49 58 45 44 28 34 29 2c 32 20 4b 4f 44 20 43 ┆DCL 1 KTX,2 KNR FIXED(4),2 KOD C┆
0x2c906…2c926 48 41 52 28 31 29 2c 32 20 58 20 43 48 41 52 28 35 31 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆HAR(1),2 X CHAR(51); ┆
0x2c926…2c935 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2c935…2c955 (56, 0, 16) 44 43 4c 20 31 20 58 4b 54 58 2c 32 20 58 4b 4f 44 20 43 48 41 52 28 31 29 2c 32 20 58 4b 4e 52 ┆DCL 1 XKTX,2 XKOD CHAR(1),2 XKNR┆
0x2c955…2c975 20 46 49 58 45 44 28 34 29 2c 32 20 58 58 20 43 48 41 52 28 35 31 29 3b 20 20 20 20 20 20 20 20 ┆ FIXED(4),2 XX CHAR(51); ┆
0x2c975…2c984 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2c984…2c9d3 (56, 0, 17) 0x20[0x4f]
0x2c9d3…2c9f3 (56, 0, 18) 44 43 4c 20 31 20 4b 42 55 2c 32 20 42 4b 4f 20 46 49 58 45 44 28 34 29 2c 32 20 42 4b 4f 44 20 ┆DCL 1 KBU,2 BKO FIXED(4),2 BKOD ┆
0x2c9f3…2ca13 43 48 41 52 28 31 29 2c 32 20 42 41 56 44 20 43 48 41 52 28 33 29 2c 32 20 59 20 43 48 41 52 28 ┆CHAR(1),2 BAVD CHAR(3),2 Y CHAR(┆
0x2ca13…2ca22 34 38 29 3b 20 20 20 20 20 20 20 20 20 20 20 ┆48); ┆
0x2ca22…2ca42 (56, 0, 19) 44 43 4c 20 31 20 58 4b 42 55 2c 32 20 58 42 4b 4f 44 20 43 48 41 52 28 31 29 2c 32 20 58 42 41 ┆DCL 1 XKBU,2 XBKOD CHAR(1),2 XBA┆
0x2ca42…2ca62 56 44 20 43 48 41 52 28 33 29 2c 32 20 58 42 4b 4f 20 46 49 58 45 44 28 34 29 2c 32 20 58 59 20 ┆VD CHAR(3),2 XBKO FIXED(4),2 XY ┆
0x2ca62…2ca71 43 48 41 52 28 34 38 29 3b 20 20 20 20 20 20 ┆CHAR(48); ┆
0x2ca71…2cac0 (56, 0, 20) 0x20[0x4f]
0x2cac0…2cae0 (56, 0, 21) 53 48 49 46 54 3a 50 52 4f 43 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆SHIFT:PROC; ┆
0x2cae0…2cb00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2cb00…2cb0f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2cb0f…2cb2f (56, 0, 22) 49 46 20 58 4b 4f 44 33 3d 27 41 27 20 54 48 45 4e 20 44 4f 3b 58 4b 54 58 3d 58 44 55 4d 33 3b ┆IF XKOD3='A' THEN DO;XKTX=XDUM3;┆
0x2cb2f…2cb4f 4b 4f 44 3d 58 4b 4f 44 3b 4b 4e 52 3d 58 4b 4e 52 3b 58 3d 58 58 3b 44 55 4d 33 3d 4b 54 58 3b ┆KOD=XKOD;KNR=XKNR;X=XX;DUM3=KTX;┆
0x2cb4f…2cb5e 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 ┆END; ┆
0x2cb5e…2cb7e (56, 0, 23) 49 46 20 58 4b 4f 44 33 3d 27 42 27 20 54 48 45 4e 20 44 4f 3b 58 4b 42 55 3d 58 44 55 4d 33 3b ┆IF XKOD3='B' THEN DO;XKBU=XDUM3;┆
0x2cb7e…2cb9e 42 4b 4f 44 3d 58 42 4b 4f 44 3b 42 41 56 44 3d 58 42 41 56 44 3b 42 4b 4f 3d 58 42 4b 4f 3b 59 ┆BKOD=XBKOD;BAVD=XBAVD;BKO=XBKO;Y┆
0x2cb9e…2cbad 3d 58 59 3b 20 20 20 20 20 20 20 20 20 20 20 ┆=XY; ┆
0x2cbad…2cbcd (56, 0, 24) 44 55 4d 33 3d 4b 42 55 3b 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆DUM3=KBU;END; ┆
0x2cbcd…2cbed 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2cbed…2cbfc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2cbfc…2cc1c (56, 0, 25) 52 45 54 55 52 4e 3b 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 ┆RETURN;END; ┆
0x2cc1c…2cc3c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2cc3c…2cc4b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2cc4b…2cc9a (56, 0, 26) 0x20[0x4f]
0x2cc9a…2ccba (56, 0, 27) 44 43 4c 20 4b 54 4f 54 58 20 46 49 4c 45 2c 52 45 43 4e 52 20 42 49 4e 41 52 59 3b 4f 50 45 4e ┆DCL KTOTX FILE,RECNR BINARY;OPEN┆
0x2ccba…2ccda 20 4b 54 4f 54 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 20 20 ┆ KTOTX; ┆
0x2ccda…2cce9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2cce9…2cd09 (56, 0, 28) 52 45 43 4e 52 3d 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 ┆RECNR=0; ┆
0x2cd09…2cd29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2cd29…2cd38 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2cd38…2cd58 (56, 0, 29) 49 4e 31 3a 4f 4e 20 45 4e 44 46 49 4c 45 20 47 4f 20 54 4f 20 49 4e 32 3b 52 45 41 44 20 46 49 ┆IN1:ON ENDFILE GO TO IN2;READ FI┆
0x2cd58…2cd78 4c 45 28 4b 54 4f 54 58 29 49 4e 54 4f 28 58 44 55 4d 31 29 3b 52 45 43 4e 52 3d 55 4e 53 50 45 ┆LE(KTOTX)INTO(XDUM1);RECNR=UNSPE┆
0x2cd78…2cd87 43 28 4b 54 4f 54 58 29 3b 20 20 20 20 20 20 ┆C(KTOTX); ┆
0x2cd87…2cda7 (56, 0, 30) 44 4f 20 49 3d 31 20 54 4f 20 34 30 3b 58 44 55 4d 33 3d 58 44 55 4d 31 28 49 29 3b 20 20 20 20 ┆DO I=1 TO 40;XDUM3=XDUM1(I); ┆
0x2cda7…2cdc7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2cdc7…2cdd6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2cdd6…2cdf6 (56, 0, 31) 43 41 4c 4c 20 53 48 49 46 54 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆CALL SHIFT; ┆
0x2cdf6…2ce16 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2ce16…2ce25 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2ce25…2ce45 (56, 0, 32) 44 55 4d 31 28 49 29 3d 44 55 4d 33 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆DUM1(I)=DUM3; ┆
0x2ce45…2ce65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2ce65…2ce74 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2ce74…2ce94 (56, 0, 33) 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆END; ┆
0x2ce94…2ceb4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2ceb4…2cec3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2cec3…2cee3 (56, 0, 34) 52 45 57 52 49 54 45 20 46 49 4c 45 28 4b 54 4f 54 58 29 46 52 4f 4d 28 44 55 4d 31 29 3b 20 20 ┆REWRITE FILE(KTOTX)FROM(DUM1); ┆
0x2cee3…2cf03 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2cf03…2cf12 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2cf12…2cf32 (56, 0, 35) 47 4f 20 54 4f 20 49 4e 31 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆GO TO IN1; ┆
0x2cf32…2cf52 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2cf52…2cf61 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2cf61…2cfb0 (56, 0, 36) 0x20[0x4f]
0x2cfb0…2cfd0 (56, 0, 37) 49 4e 32 3a 55 4e 53 50 45 43 28 4b 54 4f 54 58 29 3d 52 45 43 4e 52 3b 20 20 20 20 20 20 20 20 ┆IN2:UNSPEC(KTOTX)=RECNR; ┆
0x2cfd0…2cff0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2cff0…2cfff 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2cfff…2d01f (56, 0, 38) 49 4e 32 42 3a 4f 4e 20 45 4e 44 46 49 4c 45 20 47 4f 20 54 4f 20 49 4e 33 3b 52 45 41 44 20 46 ┆IN2B:ON ENDFILE GO TO IN3;READ F┆
0x2d01f…2d03f 49 4c 45 28 4b 54 4f 54 58 29 49 4e 54 4f 28 58 44 55 4d 32 29 3b 52 45 43 4e 52 3d 55 4e 53 50 ┆ILE(KTOTX)INTO(XDUM2);RECNR=UNSP┆
0x2d03f…2d04e 45 43 28 4b 54 4f 54 58 29 3b 20 20 20 20 20 ┆EC(KTOTX); ┆
0x2d04e…2d06e (56, 0, 39) 44 4f 20 49 3d 31 20 54 4f 20 37 3b 58 44 55 4d 33 3d 58 44 55 4d 32 28 49 29 3b 20 20 20 20 20 ┆DO I=1 TO 7;XDUM3=XDUM2(I); ┆
0x2d06e…2d08e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2d08e…2d09d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2d09d…2d0bd (56, 0, 40) 43 41 4c 4c 20 53 48 49 46 54 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆CALL SHIFT; ┆
0x2d0bd…2d0dd 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2d0dd…2d0ec 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2d0ec…2d13b (57, 0, 0) DataSector[0x4f]
[…0x33…]
0x2e0f8…2e118 (58, 0, 11) 44 43 4c 20 31 20 44 41 54 52 45 43 2c 32 20 58 44 41 47 20 43 48 41 52 28 36 29 2c 32 20 4d 4f ┆DCL 1 DATREC,2 XDAG CHAR(6),2 MO┆
0x2e118…2e138 4e 20 43 48 41 52 28 33 29 2c 32 20 4d 4e 52 20 46 49 58 45 44 28 32 29 2c 32 20 53 4b 28 31 34 ┆N CHAR(3),2 MNR FIXED(2),2 SK(14┆
0x2e138…2e147 29 20 43 48 41 52 28 31 29 2c 20 20 20 20 20 ┆) CHAR(1), ┆
0x2e147…2e167 (58, 0, 12) 32 20 4b 4f 44 20 46 49 58 45 44 28 31 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆2 KOD FIXED(1); ┆
0x2e167…2e187 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2e187…2e196 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2e196…2e1b6 (58, 0, 13) 44 43 4c 20 31 20 53 49 53 54 41 56 45 52 2c 32 20 4d 41 4e 20 46 49 58 45 44 28 37 29 3b 20 20 ┆DCL 1 SISTAVER,2 MAN FIXED(7); ┆
0x2e1b6…2e1d6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2e1d6…2e1e5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2e1e5…2e234 (58, 0, 14) 0x20[0x4f]
0x2e234…2e254 (58, 0, 15) 44 43 4c 20 53 49 53 54 56 45 52 20 46 49 4c 45 2c 53 20 43 48 41 52 28 31 29 2c 49 4e 44 20 46 ┆DCL SISTVER FILE,S CHAR(1),IND F┆
0x2e254…2e274 49 58 45 44 28 31 29 2c 4e 59 4b 54 4f 54 58 20 46 49 4c 45 2c 20 20 20 20 20 20 20 20 20 20 20 ┆IXED(1),NYKTOTX FILE, ┆
0x2e274…2e283 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2e283…2e2a3 (58, 0, 16) 44 41 47 20 43 48 41 52 28 36 29 2c 53 41 4d 46 49 4c 20 46 49 4c 45 2c 44 34 20 46 49 58 45 44 ┆DAG CHAR(6),SAMFIL FILE,D4 FIXED┆
0x2e2a3…2e2c3 28 31 33 2c 32 29 2c 4b 34 20 46 49 58 45 44 28 31 33 2c 32 29 2c 20 20 20 20 20 20 20 20 20 20 ┆(13,2),K4 FIXED(13,2), ┆
0x2e2c3…2e2d2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2e2d2…2e2f2 (58, 0, 17) 58 4b 4f 20 46 49 58 45 44 28 34 29 2c 58 41 56 44 20 43 48 41 52 28 33 29 2c 51 20 46 49 58 45 ┆XKO FIXED(4),XAVD CHAR(3),Q FIXE┆
0x2e2f2…2e312 44 28 31 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 ┆D(1); ┆
0x2e312…2e321 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2e321…2e341 (58, 0, 18) 4f 50 45 4e 20 53 41 4d 46 49 4c 3b 4f 50 45 4e 20 4e 59 4b 54 4f 54 58 3b 20 20 20 20 20 20 20 ┆OPEN SAMFIL;OPEN NYKTOTX; ┆
0x2e341…2e361 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2e361…2e370 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2e370…2e390 (58, 0, 19) 50 55 54 20 46 49 4c 45 28 44 29 53 4b 49 50 20 45 44 49 54 28 27 20 27 29 28 41 28 33 37 29 29 ┆PUT FILE(D)SKIP EDIT(' ')(A(37))┆
0x2e390…2e3b0 28 27 2a 2a 20 20 4b 4f 4e 56 45 52 54 45 52 49 4e 47 20 46 5c 52 20 4e 59 54 54 20 42 4f 4b 46 ┆('** KONVERTERING FÖR NYTT BOKF┆
0x2e3b0…2e3bf 2e 5d 52 20 20 2a 2a 27 29 20 20 20 20 20 20 ┆.ÅR **') ┆
0x2e3bf…2e3df (58, 0, 20) 28 41 28 37 34 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(74)); ┆
0x2e3df…2e3ff 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2e3ff…2e40e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2e40e…2e42e (58, 0, 21) 49 4e 44 3d 31 3b 44 34 3d 30 3b 4b 34 3d 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆IND=1;D4=0;K4=0; ┆
0x2e42e…2e44e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2e44e…2e45d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2e45d…2e47d (58, 0, 22) 53 54 3a 4f 4e 20 45 4e 44 46 49 4c 45 20 47 4f 20 54 4f 20 55 54 3b 52 45 41 44 20 46 49 4c 45 ┆ST:ON ENDFILE GO TO UT;READ FILE┆
0x2e47d…2e49d 28 53 41 4d 46 49 4c 29 49 4e 54 4f 28 53 41 4d 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆(SAMFIL)INTO(SAM); ┆
0x2e49d…2e4ac 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2e4ac…2e4cc (58, 0, 23) 49 46 20 49 4e 44 3d 31 20 54 48 45 4e 20 44 4f 3b 58 4b 4f 3d 53 4b 4f 3b 45 4e 44 3b 49 4e 44 ┆IF IND=1 THEN DO;XKO=SKO;END;IND┆
0x2e4cc…2e4ec 3d 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 20 20 20 ┆=0; ┆
0x2e4ec…2e4fb 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2e4fb…2e51b (58, 0, 24) 49 46 20 58 4b 4f 7f 3d 53 4b 4f 20 54 48 45 4e 20 47 4f 20 54 4f 20 4e 49 34 55 54 3b 20 20 20 ┆IF XKO =SKO THEN GO TO NI4UT; ┆
0x2e51b…2e53b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2e53b…2e54a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2e54a…2e56a (58, 0, 25) 41 43 4b 55 4d 3a 58 4b 4f 3d 53 4b 4f 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ACKUM:XKO=SKO; ┆
0x2e56a…2e58a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2e58a…2e599 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2e599…2e5b9 (58, 0, 26) 44 4f 20 49 3d 31 20 54 4f 20 31 32 3b 44 34 3d 44 34 2b 53 41 44 28 49 29 3b 4b 34 3d 4b 34 2b ┆DO I=1 TO 12;D4=D4+SAD(I);K4=K4+┆
0x2e5b9…2e5d9 53 41 4b 28 49 29 3b 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 ┆SAK(I);END; ┆
0x2e5d9…2e5e8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2e5e8…2e608 (58, 0, 27) 47 4f 20 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 ┆GO TO ST; ┆
0x2e608…2e628 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2e628…2e637 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2e637…2e657 (58, 0, 28) 4e 49 34 55 54 3a 4b 4f 4e 54 4f 3d 58 4b 4f 3b 5a 3d 27 41 27 3b 20 20 20 20 20 20 20 20 20 20 ┆NI4UT:KONTO=XKO;Z='A'; ┆
0x2e657…2e677 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2e677…2e686 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2e686…2e6a6 (58, 0, 29) 4f 4e 20 45 52 52 4f 52 20 47 4f 20 54 4f 20 46 45 4c 3b 52 45 41 44 20 4b 45 59 28 4b 53 54 52 ┆ON ERROR GO TO FEL;READ KEY(KSTR┆
0x2e6a6…2e6c6 29 46 49 4c 45 28 4e 59 4b 54 4f 54 58 29 49 4e 54 4f 28 4b 54 58 29 3b 20 20 20 20 20 20 20 20 ┆)FILE(NYKTOTX)INTO(KTX); ┆
0x2e6c6…2e6d5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2e6d5…2e6f5 (58, 0, 30) 49 42 3d 49 42 2b 44 34 2d 4b 34 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆IB=IB+D4-K4; ┆
0x2e6f5…2e715 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2e715…2e724 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2e724…2e744 (58, 0, 31) 52 45 57 52 49 54 45 20 46 49 4c 45 28 4e 59 4b 54 4f 54 58 29 46 52 4f 4d 28 4b 54 58 29 3b 20 ┆REWRITE FILE(NYKTOTX)FROM(KTX); ┆
0x2e744…2e764 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2e764…2e773 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2e773…2e793 (58, 0, 32) 44 34 3d 30 3b 4b 34 3d 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆D4=0;K4=0; ┆
0x2e793…2e7b3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2e7b3…2e7c2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2e7c2…2e7e2 (58, 0, 33) 49 46 20 53 4b 4f 3d 39 39 39 39 20 54 48 45 4e 20 47 4f 20 54 4f 20 53 4c 55 54 3b 47 4f 20 54 ┆IF SKO=9999 THEN GO TO SLUT;GO T┆
0x2e7e2…2e802 4f 20 41 43 4b 55 4d 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 ┆O ACKUM; ┆
0x2e802…2e811 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2e811…2e831 (58, 0, 34) 55 54 3a 53 4b 4f 3d 39 39 39 39 3b 47 4f 20 54 4f 20 4e 49 34 55 54 3b 20 20 20 20 20 20 20 20 ┆UT:SKO=9999;GO TO NI4UT; ┆
0x2e831…2e851 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2e851…2e860 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2e860…2e880 (58, 0, 35) 46 45 4c 3a 50 55 54 20 53 4b 49 50 28 32 29 20 45 44 49 54 28 27 44 45 54 20 46 59 52 53 49 46 ┆FEL:PUT SKIP(2) EDIT('DET FYRSIF┆
0x2e880…2e8a0 46 52 49 47 41 20 4b 4f 4e 54 4f 54 20 27 29 28 41 29 28 58 4b 4f 29 28 41 29 20 20 20 20 20 20 ┆FRIGA KONTOT ')(A)(XKO)(A) ┆
0x2e8a0…2e8af 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2e8af…2e8cf (58, 0, 36) 28 27 20 53 41 4b 4e 41 53 20 49 20 4b 4f 4e 54 4f 50 4c 41 4e 45 4e 2e 27 29 28 41 29 53 4b 49 ┆(' SAKNAS I KONTOPLANEN.')(A)SKI┆
0x2e8cf…2e8ef 50 20 45 44 49 54 28 27 4c 5b 47 47 20 49 4e 20 44 45 54 54 41 20 4b 4f 4e 54 4f 2c 53 41 4d 54 ┆P EDIT('LÄGG IN DETTA KONTO,SAMT┆
0x2e8ef…2e8fe 20 4b 4f 4c 4c 41 20 27 29 28 41 29 20 20 20 ┆ KOLLA ')(A) ┆
0x2e8fe…2e91e (58, 0, 37) 28 27 41 54 54 20 4b 4f 4e 54 4f 50 4c 41 4e 45 4e 20 5b 52 20 4f 4b 2e 27 29 28 41 29 53 4b 49 ┆('ATT KONTOPLANEN ÄR OK.')(A)SKI┆
0x2e91e…2e93e 50 28 32 29 45 44 49 54 28 27 4b 5c 52 20 53 45 44 41 4e 20 52 55 54 49 4e 45 4e 20 46 5c 52 20 ┆P(2)EDIT('KÖR SEDAN RUTINEN FÖR ┆
0x2e93e…2e94d 4e 59 54 54 20 27 29 28 41 29 20 20 20 20 20 ┆NYTT ')(A) ┆
0x2e94d…2e96d (58, 0, 38) 28 27 42 4f 4b 46 5c 52 49 4e 47 53 5d 52 20 49 47 45 4e 2e 27 29 28 41 29 53 4b 49 50 28 32 29 ┆('BOKFÖRINGSÅR IGEN.')(A)SKIP(2)┆
0x2e96d…2e98d 45 44 49 54 28 27 27 29 28 41 28 33 30 29 29 28 27 4c 59 43 4b 41 20 54 49 4c 4c 21 27 29 28 41 ┆EDIT('')(A(30))('LYCKA TILL!')(A┆
0x2e98d…2e99c 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆) ┆
0x2e99c…2e9bc (58, 0, 39) 53 4b 49 50 28 32 29 45 44 49 54 28 27 27 29 28 41 28 33 30 29 29 28 27 2a 2a 20 51 31 20 2a 2a ┆SKIP(2)EDIT('')(A(30))('** Q1 **┆
0x2e9bc…2e9dc 27 29 28 41 29 53 4b 49 50 28 32 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆')(A)SKIP(2); ┆
0x2e9dc…2e9eb 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2e9eb…2ea0b (58, 0, 40) 47 4f 54 4f 20 53 4c 55 54 54 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆GOTO SLUTT; ┆
0x2ea0b…2ea2b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2ea2b…2ea3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2ea3a…2ea89 (59, 0, 0) DataSector[0x4f]
[…0x30…]
0x2f959…2f9a8 (60, 0, 8) 0x20[0x4f]
0x2f9a8…2f9c8 (60, 0, 9) 44 43 4c 20 31 20 56 45 52 2c 32 20 4b 4f 20 46 49 58 45 44 28 34 29 2c 32 20 41 56 44 20 43 48 ┆DCL 1 VER,2 KO FIXED(4),2 AVD CH┆
0x2f9c8…2f9e8 41 52 28 33 29 2c 32 20 44 41 54 20 46 49 58 45 44 28 34 29 2c 20 20 20 20 20 20 20 20 20 20 20 ┆AR(3),2 DAT FIXED(4), ┆
0x2f9e8…2f9f7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2f9f7…2fa17 (60, 0, 10) 32 20 56 45 52 4e 52 20 46 49 58 45 44 28 37 29 2c 32 20 56 54 58 54 20 43 48 41 52 28 32 30 29 ┆2 VERNR FIXED(7),2 VTXT CHAR(20)┆
0x2fa17…2fa37 2c 32 20 42 45 4c 20 46 49 58 45 44 28 31 31 2c 32 29 2c 32 20 4b 4f 44 20 43 48 41 52 28 31 29 ┆,2 BEL FIXED(11,2),2 KOD CHAR(1)┆
0x2fa37…2fa46 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆; ┆
0x2fa46…2fa95 (60, 0, 11) 0x20[0x4f]
0x2fa95…2fab5 (60, 0, 12) 44 43 4c 20 31 20 53 41 4d 2c 32 20 53 4b 4f 20 46 49 58 45 44 28 34 29 2c 32 20 53 41 56 44 20 ┆DCL 1 SAM,2 SKO FIXED(4),2 SAVD ┆
0x2fab5…2fad5 43 48 41 52 28 33 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 ┆CHAR(3), ┆
0x2fad5…2fae4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2fae4…2fb04 (60, 0, 13) 32 20 53 41 44 28 31 32 29 20 46 49 58 45 44 28 31 31 2c 32 29 2c 32 20 53 41 4b 28 31 32 29 20 ┆2 SAD(12) FIXED(11,2),2 SAK(12) ┆
0x2fb04…2fb24 46 49 58 45 44 28 31 31 2c 32 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆FIXED(11,2); ┆
0x2fb24…2fb33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2fb33…2fb82 (60, 0, 14) 0x20[0x4f]
0x2fb82…2fba2 (60, 0, 15) 44 43 4c 20 31 20 4b 54 58 2c 32 20 4b 53 54 52 2c 33 20 4b 4f 4e 54 4f 20 46 49 58 45 44 28 34 ┆DCL 1 KTX,2 KSTR,3 KONTO FIXED(4┆
0x2fba2…2fbc2 29 2c 33 20 5a 20 43 48 41 52 28 31 29 2c 32 20 4b 20 43 48 41 52 28 34 29 2c 32 20 54 45 58 54 ┆),3 Z CHAR(1),2 K CHAR(4),2 TEXT┆
0x2fbc2…2fbd1 20 43 48 41 52 28 33 34 29 2c 20 20 20 20 20 ┆ CHAR(34), ┆
0x2fbd1…2fbf1 (60, 0, 16) 32 20 49 42 20 46 49 58 45 44 28 31 33 2c 32 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆2 IB FIXED(13,2); ┆
0x2fbf1…2fc11 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2fc11…2fc20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2fc20…2fc6f (60, 0, 17) 0x20[0x4f]
0x2fc6f…2fc8f (60, 0, 18) 44 43 4c 20 31 20 44 41 54 52 45 43 2c 32 20 58 44 41 47 20 43 48 41 52 28 36 29 2c 32 20 4d 4f ┆DCL 1 DATREC,2 XDAG CHAR(6),2 MO┆
0x2fc8f…2fcaf 4e 20 43 48 41 52 28 33 29 2c 32 20 4d 4e 52 20 46 49 58 45 44 28 32 29 2c 32 20 53 4b 28 31 34 ┆N CHAR(3),2 MNR FIXED(2),2 SK(14┆
0x2fcaf…2fcbe 29 20 43 48 41 52 28 31 29 2c 20 20 20 20 20 ┆) CHAR(1), ┆
0x2fcbe…2fcde (60, 0, 19) 32 20 43 4f 20 46 49 58 45 44 28 31 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆2 CO FIXED(1); ┆
0x2fcde…2fcfe 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2fcfe…2fd0d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2fd0d…2fd2d (60, 0, 20) 44 43 4c 20 44 41 54 46 49 4c 20 46 49 4c 45 2c 58 58 4d 4e 52 20 46 49 58 45 44 28 32 29 2c 4b ┆DCL DATFIL FILE,XXMNR FIXED(2),K┆
0x2fd2d…2fd4d 54 4f 54 58 20 46 49 4c 45 2c 52 41 44 20 46 49 58 45 44 28 32 29 2c 49 4e 44 20 46 49 58 45 44 ┆TOTX FILE,RAD FIXED(2),IND FIXED┆
0x2fd4d…2fd5c 28 31 29 2c 20 20 20 20 20 20 20 20 20 20 20 ┆(1), ┆
0x2fd5c…2fd7c (60, 0, 21) 44 41 47 20 43 48 41 52 28 36 29 2c 53 20 43 48 41 52 28 31 29 2c 51 20 46 49 58 45 44 28 31 29 ┆DAG CHAR(6),S CHAR(1),Q FIXED(1)┆
0x2fd7c…2fd9c 2c 41 44 41 47 20 46 49 58 45 44 28 32 29 2c 53 41 4d 46 49 4c 20 46 49 4c 45 2c 20 20 20 20 20 ┆,ADAG FIXED(2),SAMFIL FILE, ┆
0x2fd9c…2fdab 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2fdab…2fdcb (60, 0, 22) 58 4b 4f 20 46 49 58 45 44 28 34 29 2c 41 4b 4f 28 31 30 29 20 46 49 58 45 44 28 34 29 20 49 4e ┆XKO FIXED(4),AKO(10) FIXED(4) IN┆
0x2fdcb…2fdeb 49 54 28 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 29 2c 20 20 20 20 20 20 20 20 ┆IT(0,0,0,0,0,0,0,0,0,0), ┆
0x2fdeb…2fdfa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2fdfa…2fe1a (60, 0, 23) 4b 44 20 46 49 58 45 44 28 31 33 2c 32 29 2c 4b 4b 20 46 49 58 45 44 28 31 33 2c 32 29 2c 51 4b ┆KD FIXED(13,2),KK FIXED(13,2),QK┆
0x2fe1a…2fe3a 54 4f 20 42 49 4e 41 52 59 2c 51 53 41 4d 20 42 49 4e 41 52 59 2c 51 56 45 52 20 42 49 4e 41 52 ┆TO BINARY,QSAM BINARY,QVER BINAR┆
0x2fe3a…2fe49 59 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆Y, ┆
0x2fe49…2fe69 (60, 0, 24) 52 45 43 4e 52 20 42 49 4e 41 52 59 2c 49 20 42 49 4e 41 52 59 2c 4d 53 20 46 49 58 45 44 28 31 ┆RECNR BINARY,I BINARY,MS FIXED(1┆
0x2fe69…2fe89 33 2c 32 29 2c 55 53 20 46 49 58 45 44 28 31 33 2c 32 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 ┆3,2),US FIXED(13,2), ┆
0x2fe89…2fe98 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2fe98…2feb8 (60, 0, 25) 4a 55 4d 50 20 46 49 58 45 44 28 31 29 2c 43 20 43 48 41 52 28 31 38 29 49 4e 49 54 28 27 2d 2d ┆JUMP FIXED(1),C CHAR(18)INIT('--┆
0x2feb8…2fed8 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 39 56 2e 39 39 27 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆-----------9V.99'), ┆
0x2fed8…2fee7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2fee7…2ff07 (60, 0, 26) 4b 49 42 20 46 49 58 45 44 28 31 33 2c 32 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆KIB FIXED(13,2); ┆
0x2ff07…2ff27 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2ff27…2ff36 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2ff36…2ff56 (60, 0, 27) 44 43 4c 20 56 45 52 53 49 4f 4e 20 43 48 41 52 28 33 37 29 20 49 4e 49 54 28 27 41 4b 54 53 41 ┆DCL VERSION CHAR(37) INIT('AKTSA┆
0x2ff56…2ff76 4c 20 56 65 72 73 69 6f 6e 20 32 2e 31 20 20 20 20 20 20 20 20 20 20 20 20 20 37 39 31 32 30 37 ┆L Version 2.1 791207┆
0x2ff76…2ff85 27 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 ┆'), ┆
0x2ff85…2ffa5 (60, 0, 28) 20 20 20 20 54 33 20 20 20 20 20 43 48 41 52 28 33 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ T3 CHAR(3), ┆
0x2ffa5…2ffc5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2ffc5…2ffd4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2ffd4…2fff4 (60, 0, 29) 20 20 20 20 54 41 4e 20 20 20 20 42 49 4e 41 52 59 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ TAN BINARY, ┆
0x2fff4…30014 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x30014…30023 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x30023…30043 (60, 0, 30) 20 20 20 20 54 39 20 20 20 43 48 41 52 28 39 29 20 49 4e 49 54 28 27 49 4e 47 20 53 41 4c 44 4f ┆ T9 CHAR(9) INIT('ING SALDO┆
0x30043…30063 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆'); ┆
0x30063…30072 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x30072…300c1 (60, 0, 31) 0x20[0x4f]
0x300c1…300e1 (60, 0, 32) 4f 50 45 4e 20 4b 54 4f 54 58 3b 4f 50 45 4e 20 44 41 54 46 49 4c 3b 4f 50 45 4e 20 56 45 52 46 ┆OPEN KTOTX;OPEN DATFIL;OPEN VERF┆
0x300e1…30101 49 4c 3b 4f 50 45 4e 20 53 41 4d 46 49 4c 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆IL;OPEN SAMFIL; ┆
0x30101…30110 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x30110…30130 (60, 0, 33) 52 45 41 44 20 46 49 4c 45 28 44 41 54 46 49 4c 29 49 4e 54 4f 28 44 41 54 52 45 43 29 3b 49 46 ┆READ FILE(DATFIL)INTO(DATREC);IF┆
0x30130…30150 20 58 44 41 47 3d 27 58 58 58 58 58 58 27 20 54 48 45 4e 20 47 4f 20 54 4f 20 53 4c 55 54 54 3b ┆ XDAG='XXXXXX' THEN GO TO SLUTT;┆
0x30150…3015f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3015f…3017f (60, 0, 34) 44 41 47 3d 58 44 41 47 3b 58 44 41 47 3d 27 58 58 58 58 58 58 27 3b 20 20 20 20 20 20 20 20 20 ┆DAG=XDAG;XDAG='XXXXXX'; ┆
0x3017f…3019f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3019f…301ae 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x301ae…301ce (60, 0, 35) 52 45 57 52 49 54 45 20 46 49 4c 45 28 44 41 54 46 49 4c 29 46 52 4f 4d 28 44 41 54 52 45 43 29 ┆REWRITE FILE(DATFIL)FROM(DATREC)┆
0x301ce…301ee 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 ┆; ┆
0x301ee…301fd 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x301fd…3021d (60, 0, 36) 20 20 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 28 44 29 20 53 4b 49 50 20 45 44 49 54 28 56 45 ┆ PUT FILE(D) SKIP EDIT(VE┆
0x3021d…3023d 52 53 49 4f 4e 29 28 41 28 37 34 29 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆RSION)(A(74)) ┆
0x3023d…3024c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3024c…3026c (60, 0, 37) 20 20 20 20 20 20 20 20 28 27 53 54 5b 4c 4c 20 49 4e 20 50 45 52 46 4f 52 45 52 49 4e 47 45 4e ┆ ('STÄLL IN PERFORERINGEN┆
0x3026c…3028c 27 29 28 41 28 33 37 29 29 28 27 54 52 59 43 4b 20 53 45 44 41 4e 20 52 45 54 55 52 4e 2e 27 29 ┆')(A(37))('TRYCK SEDAN RETURN.')┆
0x3028c…3029b 28 41 28 33 37 29 29 3b 20 20 20 20 20 20 20 ┆(A(37)); ┆
0x3029b…302bb (60, 0, 38) 20 20 20 20 20 20 20 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 53 29 3b 20 20 20 20 20 20 20 20 ┆ GET SKIP LIST(S); ┆
0x302bb…302db 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x302db…302ea 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x302ea…3030a (60, 0, 39) 20 20 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 28 44 29 20 53 4b 49 50 20 45 44 49 54 28 56 45 ┆ PUT FILE(D) SKIP EDIT(VE┆
0x3030a…3032a 52 53 49 4f 4e 29 28 41 28 37 34 29 29 28 27 4b 4f 4e 54 4f 20 4e 55 4d 4d 45 52 27 29 28 41 28 ┆RSION)(A(74))('KONTO NUMMER')(A(┆
0x3032a…30339 33 33 29 29 3b 20 20 20 20 20 20 20 20 20 20 ┆33)); ┆
0x30339…30359 (60, 0, 40) 20 20 20 20 20 20 20 20 44 4f 20 49 3d 31 20 54 4f 20 31 30 3b 20 20 20 20 20 20 20 20 20 20 20 ┆ DO I=1 TO 10; ┆
0x30359…30379 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x30379…30388 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x30388…303d7 (61, 0, 0) DataSector[0x4f]
[…0x7e…]
0x32ab9…32b08 (64, 0, 4) 0x20[0x4f]
0x32b08…32b28 (64, 0, 5) 44 43 4c 20 31 20 53 41 4d 2c 32 20 53 53 54 52 2c 33 20 53 4b 4f 20 46 49 58 45 44 28 34 29 2c ┆DCL 1 SAM,2 SSTR,3 SKO FIXED(4),┆
0x32b28…32b48 33 20 53 41 56 44 20 43 48 41 52 28 33 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆3 SAVD CHAR(3), ┆
0x32b48…32b57 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x32b57…32b77 (64, 0, 6) 32 20 53 41 44 28 31 32 29 20 46 49 58 45 44 28 31 31 2c 32 29 2c 32 20 53 41 4b 28 31 32 29 20 ┆2 SAD(12) FIXED(11,2),2 SAK(12) ┆
0x32b77…32b97 46 49 58 45 44 28 31 31 2c 32 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆FIXED(11,2); ┆
0x32b97…32ba6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x32ba6…32bc6 (64, 0, 7) 44 43 4c 20 31 20 4b 54 58 2c 32 20 4b 53 54 52 2c 33 20 54 4b 4f 20 46 49 58 45 44 28 34 29 2c ┆DCL 1 KTX,2 KSTR,3 TKO FIXED(4),┆
0x32bc6…32be6 33 20 54 4b 4f 44 20 43 48 41 52 28 31 29 2c 32 20 54 4b 4f 32 20 43 48 41 52 28 34 29 2c 32 20 ┆3 TKOD CHAR(1),2 TKO2 CHAR(4),2 ┆
0x32be6…32bf5 54 45 58 54 20 43 48 41 52 28 33 34 29 2c 20 ┆TEXT CHAR(34), ┆
0x32bf5…32c15 (64, 0, 8) 32 20 49 42 20 46 49 58 45 44 28 31 33 2c 32 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆2 IB FIXED(13,2); ┆
0x32c15…32c35 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x32c35…32c44 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x32c44…32c64 (64, 0, 9) 44 43 4c 20 31 20 54 58 2c 32 20 4b 53 54 52 58 2c 33 20 4b 4e 52 20 46 49 58 45 44 28 34 29 2c ┆DCL 1 TX,2 KSTRX,3 KNR FIXED(4),┆
0x32c64…32c84 33 20 5a 5a 20 43 48 41 52 28 31 29 2c 32 20 58 4b 4b 20 43 48 41 52 28 34 29 2c 32 20 58 54 58 ┆3 ZZ CHAR(1),2 XKK CHAR(4),2 XTX┆
0x32c84…32c93 54 20 43 48 41 52 28 33 34 29 2c 20 20 20 20 ┆T CHAR(34), ┆
0x32c93…32cb3 (64, 0, 10) 32 20 58 58 49 42 20 46 49 58 45 44 28 31 33 2c 32 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆2 XXIB FIXED(13,2); ┆
0x32cb3…32cd3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x32cd3…32ce2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x32ce2…32d02 (64, 0, 11) 44 43 4c 20 31 20 4b 42 55 2c 32 20 42 53 54 52 2c 33 20 42 4b 4f 20 46 49 58 45 44 28 34 29 2c ┆DCL 1 KBU,2 BSTR,3 BKO FIXED(4),┆
0x32d02…32d22 33 20 42 4b 4f 44 20 43 48 41 52 28 31 29 2c 32 20 42 41 56 44 20 43 48 41 52 28 33 29 2c 20 20 ┆3 BKOD CHAR(1),2 BAVD CHAR(3), ┆
0x32d22…32d31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x32d31…32d51 (64, 0, 12) 32 20 58 42 55 44 28 31 32 29 20 46 49 58 45 44 28 37 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆2 XBUD(12) FIXED(7); ┆
0x32d51…32d71 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x32d71…32d80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x32d80…32da0 (64, 0, 13) 44 43 4c 20 31 20 44 41 54 52 45 43 2c 32 20 58 44 41 47 20 43 48 41 52 28 36 29 2c 32 20 4d 4f ┆DCL 1 DATREC,2 XDAG CHAR(6),2 MO┆
0x32da0…32dc0 4e 20 43 48 41 52 28 33 29 2c 32 20 4d 4e 52 20 46 49 58 45 44 28 32 29 2c 32 20 53 4b 28 31 34 ┆N CHAR(3),2 MNR FIXED(2),2 SK(14┆
0x32dc0…32dcf 29 20 43 48 41 52 28 31 29 2c 20 20 20 20 20 ┆) CHAR(1), ┆
0x32dcf…32def (64, 0, 14) 32 20 4b 4f 44 20 46 49 58 45 44 28 31 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆2 KOD FIXED(1); ┆
0x32def…32e0f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x32e0f…32e1e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x32e1e…32e3e (64, 0, 15) 44 43 4c 20 44 41 54 46 49 4c 20 46 49 4c 45 2c 4b 54 4f 54 58 20 46 49 4c 45 2c 53 20 43 48 41 ┆DCL DATFIL FILE,KTOTX FILE,S CHA┆
0x32e3e…32e5e 52 28 31 29 2c 52 41 44 20 46 49 58 45 44 28 32 29 2c 53 49 44 41 20 46 49 58 45 44 28 34 29 2c ┆R(1),RAD FIXED(2),SIDA FIXED(4),┆
0x32e5e…32e6d 49 4e 44 20 46 49 58 45 44 28 31 29 2c 20 20 ┆IND FIXED(1), ┆
0x32e6d…32e8d (64, 0, 16) 58 41 56 44 20 43 48 41 52 28 33 29 2c 58 53 41 56 44 20 43 48 41 52 28 33 29 2c 41 56 44 53 49 ┆XAVD CHAR(3),XSAVD CHAR(3),AVDSI┆
0x32e8d…32ead 44 41 20 46 49 58 45 44 28 34 29 2c 53 41 4d 46 49 4c 20 46 49 4c 45 2c 4e 49 20 46 49 58 45 44 ┆DA FIXED(4),SAMFIL FILE,NI FIXED┆
0x32ead…32ebc 28 31 29 2c 20 20 20 20 20 20 20 20 20 20 20 ┆(1), ┆
0x32ebc…32edc (64, 0, 17) 44 41 47 20 43 48 41 52 28 36 29 2c 50 31 20 46 49 58 45 44 28 31 33 2c 32 29 2c 50 32 20 46 49 ┆DAG CHAR(6),P1 FIXED(13,2),P2 FI┆
0x32edc…32efc 58 45 44 28 31 33 2c 32 29 2c 50 33 20 46 49 58 45 44 28 31 33 2c 32 29 2c 50 34 20 46 49 58 45 ┆XED(13,2),P3 FIXED(13,2),P4 FIXE┆
0x32efc…32f0b 44 28 31 33 2c 32 29 2c 20 20 20 20 20 20 20 ┆D(13,2), ┆
0x32f0b…32f2b (64, 0, 18) 42 31 20 46 49 58 45 44 28 38 2c 31 29 2c 42 32 20 46 49 58 45 44 28 38 2c 31 29 2c 42 33 20 46 ┆B1 FIXED(8,1),B2 FIXED(8,1),B3 F┆
0x32f2b…32f4b 49 58 45 44 28 38 2c 31 29 2c 42 34 20 46 49 58 45 44 28 38 2c 31 29 2c 42 58 20 46 49 58 45 44 ┆IXED(8,1),B4 FIXED(8,1),BX FIXED┆
0x32f4b…32f5a 28 38 2c 31 29 2c 20 20 20 20 20 20 20 20 20 ┆(8,1), ┆
0x32f5a…32f7a (64, 0, 19) 53 31 20 46 49 58 45 44 28 31 33 2c 32 29 2c 53 32 20 46 49 58 45 44 28 31 33 2c 32 29 2c 53 33 ┆S1 FIXED(13,2),S2 FIXED(13,2),S3┆
0x32f7a…32f9a 20 46 49 58 45 44 28 31 33 2c 32 29 2c 53 34 20 46 49 58 45 44 28 31 33 2c 32 29 2c 20 20 20 20 ┆ FIXED(13,2),S4 FIXED(13,2), ┆
0x32f9a…32fa9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x32fa9…32fc9 (64, 0, 20) 50 42 31 20 46 49 58 45 44 28 38 2c 31 29 2c 50 42 32 20 46 49 58 45 44 28 38 2c 31 29 2c 50 42 ┆PB1 FIXED(8,1),PB2 FIXED(8,1),PB┆
0x32fc9…32fe9 33 20 46 49 58 45 44 28 38 2c 31 29 2c 50 42 34 20 46 49 58 45 44 28 38 2c 31 29 2c 20 20 20 20 ┆3 FIXED(8,1),PB4 FIXED(8,1), ┆
0x32fe9…32ff8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x32ff8…33018 (64, 0, 21) 44 49 46 31 20 46 49 58 45 44 28 38 2c 31 29 2c 44 49 46 32 20 46 49 58 45 44 28 38 2c 31 29 2c ┆DIF1 FIXED(8,1),DIF2 FIXED(8,1),┆
0x33018…33038 44 49 46 33 20 46 49 58 45 44 28 38 2c 31 29 2c 44 49 46 34 20 46 49 58 45 44 28 38 2c 31 29 2c ┆DIF3 FIXED(8,1),DIF4 FIXED(8,1),┆
0x33038…33047 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x33047…33067 (64, 0, 22) 44 49 46 58 20 46 49 58 45 44 28 38 2c 31 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆DIFX FIXED(8,1), ┆
0x33067…33087 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x33087…33096 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x33096…330b6 (64, 0, 23) 53 55 42 20 46 49 58 45 44 28 31 29 2c 50 55 28 36 29 20 46 49 58 45 44 28 31 33 2c 32 29 2c 42 ┆SUB FIXED(1),PU(6) FIXED(13,2),B┆
0x330b6…330d6 55 28 36 29 20 46 49 58 45 44 28 38 2c 31 29 2c 53 55 28 36 29 20 46 49 58 45 44 28 31 33 2c 32 ┆U(6) FIXED(8,1),SU(6) FIXED(13,2┆
0x330d6…330e5 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆), ┆
0x330e5…33105 (64, 0, 24) 50 42 55 28 36 29 20 46 49 58 45 44 28 38 2c 31 29 2c 44 49 46 55 28 36 29 20 46 49 58 45 44 28 ┆PBU(6) FIXED(8,1),DIFU(6) FIXED(┆
0x33105…33125 38 2c 31 29 2c 55 54 28 35 29 20 46 49 58 45 44 28 31 33 2c 32 29 2c 20 20 20 20 20 20 20 20 20 ┆8,1),UT(5) FIXED(13,2), ┆
0x33125…33134 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x33134…33154 (64, 0, 25) 41 50 20 46 49 58 45 44 28 31 33 2c 32 29 2c 41 53 20 46 49 58 45 44 28 31 33 2c 32 29 2c 41 50 ┆AP FIXED(13,2),AS FIXED(13,2),AP┆
0x33154…33174 42 20 46 49 58 45 44 28 38 2c 31 29 2c 41 42 20 46 49 58 45 44 28 38 2c 31 29 2c 41 44 49 46 20 ┆B FIXED(8,1),AB FIXED(8,1),ADIF ┆
0x33174…33183 46 49 58 45 44 28 38 2c 31 29 2c 20 20 20 20 ┆FIXED(8,1), ┆
0x33183…331a3 (64, 0, 26) 54 50 20 46 49 58 45 44 28 31 33 2c 32 29 2c 54 53 20 46 49 58 45 44 28 31 33 2c 32 29 2c 54 50 ┆TP FIXED(13,2),TS FIXED(13,2),TP┆
0x331a3…331c3 42 20 46 49 58 45 44 28 38 2c 31 29 2c 54 42 20 46 49 58 45 44 28 38 2c 31 29 2c 54 44 49 46 20 ┆B FIXED(8,1),TB FIXED(8,1),TDIF ┆
0x331c3…331d2 46 49 58 45 44 28 38 2c 31 29 2c 20 20 20 20 ┆FIXED(8,1), ┆
0x331d2…331f2 (64, 0, 27) 58 53 4b 4f 20 46 49 58 45 44 28 34 29 2c 54 58 54 20 43 48 41 52 28 33 34 29 2c 52 45 43 4e 52 ┆XSKO FIXED(4),TXT CHAR(34),RECNR┆
0x331f2…33212 20 42 49 4e 41 52 59 2c 53 41 4d 53 4c 55 54 20 42 49 4e 41 52 59 2c 20 20 20 20 20 20 20 20 20 ┆ BINARY,SAMSLUT BINARY, ┆
0x33212…33221 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x33221…33241 (64, 0, 28) 42 55 44 53 4c 55 54 20 42 49 4e 41 52 59 2c 43 20 43 48 41 52 28 31 37 29 49 4e 49 54 28 27 2d ┆BUDSLUT BINARY,C CHAR(17)INIT('-┆
0x33241…33261 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 39 56 2e 39 39 27 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆-----------9V.99'), ┆
0x33261…33270 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x33270…33290 (64, 0, 29) 43 43 20 43 48 41 52 28 31 37 29 49 4e 49 54 28 27 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 39 56 2e 39 ┆CC CHAR(17)INIT('-----------9V.9┆
0x33290…332b0 39 2a 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 ┆9*'), ┆
0x332b0…332bf 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x332bf…332df (64, 0, 30) 43 43 43 20 43 48 41 52 28 31 36 29 49 4e 49 54 28 27 2d 2d 2d 2d 2d 39 56 2e 39 39 25 20 20 20 ┆CCC CHAR(16)INIT('-----9V.99% ┆
0x332df…332ff 20 20 27 29 2c 43 43 43 43 20 43 48 41 52 28 31 35 29 49 4e 49 54 28 27 2d 2d 2d 2d 39 56 2e 39 ┆ '),CCCC CHAR(15)INIT('----9V.9┆
0x332ff…3330e 39 25 20 20 20 20 20 27 29 2c 20 20 20 20 20 ┆9% '), ┆
0x3330e…3332e (64, 0, 31) 44 20 43 48 41 52 28 34 29 49 4e 49 54 28 27 5a 5a 5a 39 27 29 2c 45 20 43 48 41 52 28 31 32 29 ┆D CHAR(4)INIT('ZZZ9'),E CHAR(12)┆
0x3332e…3334e 49 4e 49 54 28 27 2d 2d 2d 2d 2d 2d 2d 39 56 2e 39 20 27 29 2c 50 45 52 43 20 46 4c 4f 41 54 28 ┆INIT('-------9V.9 '),PERC FLOAT(┆
0x3334e…3335d 39 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 ┆9), ┆
0x3335d…3337d (64, 0, 32) 46 20 43 48 41 52 28 31 32 29 49 4e 49 54 28 27 2d 2d 2d 2d 2d 2d 2d 39 56 2e 39 25 27 29 2c 20 ┆F CHAR(12)INIT('-------9V.9%'), ┆
0x3337d…3339d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3339d…333ac 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x333ac…333cc (64, 0, 33) 45 45 20 43 48 41 52 28 31 32 29 49 4e 49 54 28 27 2d 2d 2d 2d 2d 2d 2d 39 56 2e 39 2a 27 29 2c ┆EE CHAR(12)INIT('-------9V.9*'),┆
0x333cc…333ec 4a 20 46 49 58 45 44 28 34 29 2c 4b 20 46 49 58 45 44 28 34 29 2c 4c 20 46 49 58 45 44 28 34 29 ┆J FIXED(4),K FIXED(4),L FIXED(4)┆
0x333ec…333fb 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆; ┆
0x333fb…3344a (64, 0, 34) 0x20[0x4f]
0x3344a…3346a (64, 0, 35) 41 42 4f 52 54 3a 50 52 4f 43 28 41 42 54 58 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ABORT:PROC(ABTX); ┆
0x3346a…3348a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3348a…33499 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x33499…334b9 (64, 0, 36) 44 43 4c 20 41 42 54 58 20 43 48 41 52 28 31 35 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆DCL ABTX CHAR(15); ┆
0x334b9…334d9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x334d9…334e8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x334e8…33508 (64, 0, 37) 50 55 54 20 53 4b 49 50 20 45 44 49 54 28 27 46 45 4c 21 20 27 29 28 41 29 28 41 42 54 58 29 28 ┆PUT SKIP EDIT('FEL! ')(A)(ABTX)(┆
0x33508…33528 41 29 53 4b 49 50 28 52 41 44 2d 34 29 3b 47 4f 54 4f 20 53 4c 55 54 54 3b 20 20 20 20 20 20 20 ┆A)SKIP(RAD-4);GOTO SLUTT; ┆
0x33528…33537 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x33537…33557 (64, 0, 38) 52 45 54 55 52 4e 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 ┆RETURN; ┆
0x33557…33577 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x33577…33586 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x33586…335a6 (64, 0, 39) 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆END; ┆
0x335a6…335c6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x335c6…335d5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x335d5…33624 (64, 0, 40) 0x20[0x4f]
0x33624…33673 (65, 0, 0) DataSector[0x4f]
[…0xfd…]
0x38486…384a6 (71, 0, 8) 49 46 20 55 4e 53 50 45 43 28 4e 59 4b 54 4f 54 58 29 3d 30 20 54 48 45 4e 20 47 4f 54 4f 20 55 ┆IF UNSPEC(NYKTOTX)=0 THEN GOTO U┆
0x384a6…384c6 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; ┆
0x384c6…384d5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x384d5…384f5 (71, 0, 9) 55 4e 53 50 45 43 28 4e 59 4b 54 4f 54 58 29 3d 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆UNSPEC(NYKTOTX)=0; ┆
0x384f5…38515 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x38515…38524 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x38524…38544 (71, 0, 10) 4f 4e 20 45 52 52 4f 52 20 47 4f 54 4f 20 55 54 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ON ERROR GOTO UT; ┆
0x38544…38564 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x38564…38573 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x38573…38593 (71, 0, 11) 52 45 41 44 20 4b 45 59 28 27 42 27 29 46 49 4c 45 28 4e 59 4b 54 4f 54 58 29 49 4e 54 4f 28 44 ┆READ KEY('B')FILE(NYKTOTX)INTO(D┆
0x38593…385b3 55 4d 29 4b 45 59 54 4f 28 58 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆UM)KEYTO(X); ┆
0x385b3…385c2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x385c2…385e2 (71, 0, 12) 55 4e 53 50 45 43 28 4e 59 4b 54 4f 54 58 29 3d 55 4e 53 50 45 43 28 4e 59 4b 54 4f 54 58 29 2d ┆UNSPEC(NYKTOTX)=UNSPEC(NYKTOTX)-┆
0x385e2…38602 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 20 20 20 20 20 20 ┆1; ┆
0x38602…38611 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x38611…38631 (71, 0, 13) 43 4c 4f 53 45 20 4e 59 4b 54 4f 54 58 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆CLOSE NYKTOTX; ┆
0x38631…38651 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x38651…38660 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x38660…38680 (71, 0, 14) 49 4e 46 3d 27 44 49 53 4b 20 52 20 4b 54 4f 54 58 20 46 44 4b 54 4f 54 58 20 44 49 53 4b 20 52 ┆INF='DISK R KTOTX FDKTOTX DISK R┆
0x38680…386a0 20 4e 59 4b 54 4f 54 58 20 4b 54 4f 54 58 20 53 4f 52 54 20 4b 54 4f 54 58 20 53 41 4d 53 4f 52 ┆ NYKTOTX KTOTX SORT KTOTX SAMSOR┆
0x386a0…386af 54 27 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆T'; ┆
0x386af…386cf (71, 0, 15) 43 41 4c 4c 20 4c 4f 41 44 28 49 4e 46 2c 37 30 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆CALL LOAD(INF,70); ┆
0x386cf…386ef 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x386ef…386fe 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x386fe…3871e (71, 0, 16) 47 4f 54 4f 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 ┆GOTO SLUT; ┆
0x3871e…3873e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3873e…3874d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3874d…3876d (71, 0, 17) 55 54 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆UT: ┆
0x3876d…3878d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3878d…3879c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3879c…387bc (71, 0, 18) 53 4c 55 54 3a 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆SLUT:END; ┆
0x387bc…387dc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x387dc…387eb 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x387eb…3880b (71, 0, 19) 1a 48 cd c2 46 da 9b 48 c3 bd 48 0d 49 4c 4c 45 aa 41 4c 20 49 4e 44 45 58 20 21 c6 00 aa d7 48 ┆ H F H H ILLE AL INDEX ! H┆
0x3880b…3882b fa 48 0e 0f c3 7d 43 43 48 45 43 4b 20 44 49 53 4b aa 00 00 22 aa 43 21 65 4a 3e 02 32 0f 43 3e ┆ H åCCHECK DISK " C!eJ> 2 C>┆
0x3882b…3883a 3d 11 16 00 01 00 43 cd 03 08 fe 06 c4 18 08 ┆= C ┆
0x3883a…3885a (71, 0, 20) 21 a5 40 36 00 c3 18 00 21 f2 42 aa 36 4c 2b 2b 77 fe 4c c2 aa 48 c3 e7 48 0d 46 49 4c 45 53 20 ┆! @6 ! B 6L++w L H H FILES ┆
0x3885a…3887a 43 4f 50 49 45 44 3a 3a 98 40 b7 ca fe 49 cd 1b aa cd 86 43 cd 1b 00 21 d2 40 11 e2 42 0e 08 1a ┆COPIED:: @ I C ! @ B ┆
0x3887a…38889 be 13 23 c2 76 49 aa c2 44 49 21 a5 40 36 fe ┆ # vI DI! @6 ┆
0x38889…388a9 (71, 0, 21) 21 e0 42 cd 0c 08 aa 18 08 21 a5 40 36 01 21 d0 40 cd 0c 08 c4 18 08 21 a5 40 36 00 cd 8e 49 c3 ┆! B ! @6 ! @ ! @6 I ┆
0x388a9…388c9 18 00 21 e0 42 cd 0c 08 c4 aa 08 aa d0 40 cd 0c 08 c4 18 08 cd 8e 49 c3 18 00 2a ec 42 eb 21 65 ┆ ! B @ I * B !e┆
0x388c9…388d8 4a 0e 00 0c ca b1 49 19 3a 02 08 fe 68 c2 aa ┆J I : h ┆
0x388d8…388f8 (71, 0, 22) 49 aa fe 68 d2 b1 49 3e aa 77 be ca aa 49 0d 79 f5 d5 21 65 4a 01 e0 42 cd 00 08 fe 06 d1 21 65 ┆I h I> w I y !eJ B !e┆
0x388f8…38918 4a ca dc 49 b7 c4 aa 08 01 d0 40 f1 f5 d5 00 aa d1 49 fa cd 03 08 c4 18 08 d1 f1 c3 b3 49 aa 01 ┆J I @ I I ┆
0x38918…38927 d0 40 21 e0 42 96 21 ea 42 86 ca aa 49 21 65 ┆ @! B ! B I!e┆
0x38927…38947 (71, 0, 23) 4a cd 03 08 c4 18 08 21 d0 40 cd 12 08 c4 18 08 c9 21 00 43 cd 0c 08 c4 18 08 21 01 00 22 00 43 ┆J ! @ ! C ! " C┆
0x38947…38967 0e aa 21 1e 49 cd 27 00 21 a5 40 36 fd 11 18 00 21 e0 42 01 00 43 3e 01 cd 00 08 fe 06 ca 5d 4a ┆ ! I ' ! @6 ! B C> ÅJ┆
0x38967…38976 b7 c4 18 08 21 d2 aa 0e 08 11 e2 42 1a 77 23 ┆ ! B w#┆
0x38976…38996 (71, 0, 24) 13 0d c2 39 aa 21 ef 42 36 01 21 d0 40 cd 0c 08 c2 1a 4a 21 e2 42 0e 08 cd 27 00 cd aa 49 c3 1a ┆ 9 ! B6 ! @ J! B ' I ┆
0x38996…389b6 4a 21 a5 40 36 00 c3 18 00 49 4c 4c 45 47 41 4c 20 43 4f 4d 4d 41 aa 44 20 50 52 45 53 53 20 52 ┆J! @6 ILLEGAL COMMA D PRESS R┆
0x389b6…389c5 45 aa 55 52 4e 20 54 4f 20 41 44 44 20 20 20 ┆E URN TO ADD ┆
0x389c5…389e5 (71, 0, 25) 20 20 54 52 41 43 4b 53 20 54 4f 20 20 20 20 45 4e 54 45 52 20 52 45 aa 4f aa 44 20 53 49 5a 45 ┆ TRACKS TO ENTER RE O D SIZE┆
0x389e5…38a05 20 4f 46 20 4e 45 57 20 46 49 4c 45 3a 20 50 52 45 53 53 20 52 45 54 55 52 4e 20 54 aa 20 44 45 ┆ OF NEW FILE: PRESS RETURN T DE┆
0x38a05…38a14 00 aa cb 4a 05 4c 45 54 45 20 0d aa 40 02 18 ┆ J LETE @ ┆
0x38a14…38a34 (71, 0, 26) 43 00 01 d0 40 21 e0 42 96 21 ea 42 86 ca f4 49 21 65 aa cd 03 08 c4 18 08 21 d0 40 cd 12 08 c4 ┆C @! B ! B I!e ! @ ┆
0x38a34…38a54 18 08 c9 21 00 43 cd 0c 08 c4 18 08 21 01 aa 22 00 43 0e 0e 21 1e 49 aa 27 00 21 a5 40 36 fd 11 ┆ ! C ! " C ! I ' ! @6 ┆
0x38a54…38a63 18 00 21 e0 42 01 00 43 3e 01 cd 00 08 fe 06 ┆ ! B C> ┆
0x38a63…38a83 (71, 0, 27) ca 5d 4a b7 c4 18 08 21 d2 40 0e 08 11 aa 42 1a 77 aa 13 0d c2 39 4a 21 ef 42 36 01 21 d0 40 cd ┆ ÅJ ! @ B w 9J! B6 ! @ ┆
0x38a83…38aa3 0c 08 c2 1a 4a 21 e2 42 0e 08 cd 27 00 cd 8e 49 c3 1a aa 21 a5 40 36 00 c3 18 00 49 4c 4c 45 47 ┆ J! B ' I ! @6 ILLEG┆
0x38aa3…38ab2 41 4c 20 aa 4f 4d 4d 41 4e 44 20 50 52 45 53 ┆AL OMMAND PRES┆
0x38ab2…38ad2 (71, 0, 28) 53 20 52 45 54 55 52 4e aa 54 4f 20 41 44 44 20 20 20 20 20 54 52 41 43 4b 53 20 54 4f 20 20 20 ┆S RETURN TO ADD TRACKS TO ┆
0x38ad2…38af2 20 45 4e 54 45 52 aa 52 45 43 4f 52 44 aa 53 49 5a 45 20 4f 46 20 4e 45 57 20 46 49 4c 45 3a 20 ┆ ENTER RECORD SIZE OF NEW FILE: ┆
0x38af2…38b01 50 52 45 53 53 20 52 45 54 55 52 4e 20 54 4f ┆PRESS RETURN TO┆
0x38b01…38b21 (71, 0, 29) 20 44 45 aa aa 49 4c 29 3b aa 20 20 20 20 20 20 20 20 20 20 20 52 45 41 44 20 46 49 4c 45 28 44 ┆ DE IL); READ FILE(D┆
0x38b21…38b41 41 54 46 49 4c 29 49 4e aa 4f 28 44 41 54 52 45 43 29 3b 49 46 20 58 44 41 47 3d aa 58 58 58 58 ┆ATFIL)IN O(DATREC);IF XDAG= XXXX┆
0x38b41…38b50 58 58 27 20 54 48 45 4e 20 47 4f 20 54 aa 20 ┆XX' THEN GO T ┆
0x38b50…38b70 (71, 0, 30) 53 4c 55 54 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 41 47 3d 58 44 41 47 3b aa 44 ┆SLUT; DAG=XDAG; D┆
0x38b70…38b90 41 47 3d aa 58 58 58 58 58 58 27 3b 53 4b 28 4d 4e 52 29 3d 27 20 27 3b 20 20 20 20 20 20 20 20 ┆AG= XXXXXX';SK(MNR)=' '; ┆
0x38b90…38b9f 20 20 20 20 20 20 20 20 aa 20 20 20 20 20 20 ┆ ┆
0x38b9f…38bbf (71, 0, 31) 20 aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4d 4f 4e 5f 23 3d 4d 4e 52 aa 4f ┆ MON_#=MNR O┆
0x38bbf…38bdf 46 46 53 45 54 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 aa 20 20 20 20 20 20 20 20 20 20 20 20 ┆FFSET; ┆
0x38bdf…38bee 20 20 20 aa 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x38bee…38c0e (71, 0, 32) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 aa 20 4d aa 4e 5f 23 3e 31 32 ┆ I M N_#>12┆
0x38c0e…38c2e 20 54 48 45 4e 20 4d 4f 4e 5f 23 3d 4d 4f 4e 5f 23 2d 31 32 3b 20 20 20 20 20 20 20 20 20 aa 20 ┆ THEN MON_#=MON_#-12; ┆
0x38c2e…38c3d 20 20 20 20 20 20 20 20 aa 20 20 20 20 20 20 ┆ ┆
0x38c3d…38c5d (71, 0, 33) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 aa 49 46 20 4d 4f 4e 5f 23 7f 3d 53 ┆ IF MON_# =S┆
0x38c5d…38c7d 55 42 53 54 52 28 44 41 47 2c 33 aa 32 29 20 54 48 45 4e 20 47 4f 20 54 4f aa 53 4c 55 54 3b 20 ┆UBSTR(DAG,3 2) THEN GO TO SLUT; ┆
0x38c7d…38c8c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x38c8c…38cac (71, 0, 34) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 aa aa 20 20 20 20 20 52 45 57 52 49 54 45 20 46 49 4c ┆ REWRITE FIL┆
0x38cac…38ccc 45 28 44 41 54 46 49 4c 29 46 52 4f 4d 28 44 41 54 52 45 43 aa 3b 20 20 20 20 20 20 20 20 20 20 ┆E(DATFIL)FROM(DATREC ; ┆
0x38ccc…38cdb aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x38cdb…38cfb (71, 0, 35) 20 20 20 20 20 20 20 20 20 20 aa 20 20 20 20 20 20 20 20 20 20 20 52 45 41 44 20 46 49 4c 45 28 ┆ READ FILE(┆
0x38cfb…38d1b 53 49 53 aa 56 45 52 29 aa 4e 54 4f 28 53 49 aa 54 41 56 45 52 29 3b 20 20 20 20 20 20 20 20 20 ┆SIS VER) NTO(SI TAVER); ┆
0x38d1b…38d2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x38d2a…38d4a (71, 0, 36) 20 20 20 20 20 aa aa 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 28 44 29 20 53 4b 49 50 20 45 44 ┆ PUT FILE(D) SKIP ED┆
0x38d4a…38d6a 49 54 28 27 20 27 29 28 41 28 aa 37 29 29 28 27 2a 2a 20 52 45 47 49 53 aa 52 45 52 49 4e 47 20 ┆IT(' ')(A( 7))('** REGIS RERING ┆
0x38d6a…38d79 41 56 20 56 45 52 49 46 49 4b 41 54 49 4f 4e ┆AV VERIFIKATION┆
0x38d79…38d99 (71, 0, 37) aa 52 20 20 2a 2a 27 29 20 20 20 20 20 28 41 28 37 34 29 29 28 27 53 54 5b 4c 4c aa 49 4e 20 50 ┆ R **') (A(74))('STÄLL IN P┆
0x38d99…38db9 45 52 46 4f 52 aa 52 49 4e 47 45 4e 27 29 28 41 28 33 37 29 29 28 27 54 52 59 43 4b 20 53 45 44 ┆ERFOR RINGEN')(A(37))('TRYCK SED┆
0x38db9…38dc8 41 4e 20 52 45 54 55 52 4e 2e aa 29 28 aa 28 ┆AN RETURN. )( (┆
0x38dc8…38de8 (71, 0, 38) 33 37 29 29 3b 20 20 20 20 20 20 20 20 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 53 29 3b 50 55 ┆37)); GET SKIP LIST(S);PU┆
0x38de8…38e08 aa 20 46 49 4c 45 28 44 29 20 53 4b 49 50 3b 20 aa 20 20 20 20 20 20 20 20 20 aa 20 20 20 20 20 ┆ FILE(D) SKIP; ┆
0x38e08…38e17 20 20 20 20 20 aa 20 20 20 20 20 20 20 20 20 ┆ ┆
0x38e17…38e37 (71, 0, 39) 20 20 20 20 20 20 20 20 20 20 20 20 20 45 58 3d 30 3b 50 aa 53 3d 30 3b 52 41 44 aa 35 3b 53 49 ┆ EX=0;P S=0;RAD 5;SI┆
0x38e37…38e57 44 41 3d 30 3b 49 4e 44 3d 31 3b 41 44 3d 30 3b 41 4b 3d 30 3b 54 44 3d 30 3b 54 4b 3d 30 3b 44 ┆DA=0;IND=1;AD=0;AK=0;TD=0;TK=0;D┆
0x38e57…38e66 aa 54 3d 53 55 aa 53 54 52 28 44 41 47 2c 33 ┆ T=SU STR(DAG,3┆
0x38e66…38e86 (71, 0, 40) 2c 34 29 3b 20 20 20 20 20 20 20 20 20 52 55 42 3a 53 49 44 41 3d aa 49 44 41 2b 31 3b 50 55 54 ┆,4); RUB:SIDA= IDA+1;PUT┆
0x38e86…38ea6 20 53 4b 49 50 28 52 41 aa 29 45 44 49 54 28 27 4d 41 4e 55 45 4c 4c 20 52 45 47 aa 53 54 52 45 ┆ SKIP(RA )EDIT('MANUELL REG STRE┆
0x38ea6…38eb5 52 49 4e 47 20 41 56 20 56 45 52 49 46 49 4b ┆RING AV VERIFIK┆
0x38eb5…38f04 (72, 0, 0) DataSector[0x4f]
[…0x12…]
0x39492…394b2 (72, 0, 19) 1a 48 cd c2 46 da 9b 48 c3 bd 48 0d 49 4c 4c 45 aa 41 4c 20 49 4e 44 45 58 20 21 c6 00 aa d7 48 ┆ H F H H ILLE AL INDEX ! H┆
0x394b2…394d2 fa 48 0e 0f c3 7d 43 43 48 45 43 4b 20 44 49 53 4b aa 00 00 22 aa 43 21 65 4a 3e 02 32 0f 43 3e ┆ H åCCHECK DISK " C!eJ> 2 C>┆
0x394d2…394e1 3d 11 16 00 01 00 43 cd 03 08 fe 06 c4 18 08 ┆= C ┆
0x394e1…39501 (72, 0, 20) 21 a5 40 36 00 c3 18 00 21 f2 42 aa 36 4c 2b 2b 77 fe 4c c2 aa 48 c3 e7 48 0d 46 49 4c 45 53 20 ┆! @6 ! B 6L++w L H H FILES ┆
0x39501…39521 43 4f 50 49 45 44 3a 3a 98 40 b7 ca fe 49 cd 1b aa cd 86 43 cd 1b 00 21 d2 40 11 e2 42 0e 08 1a ┆COPIED:: @ I C ! @ B ┆
0x39521…39530 be 13 23 c2 76 49 aa c2 44 49 21 a5 40 36 fe ┆ # vI DI! @6 ┆
0x39530…39550 (72, 0, 21) 21 e0 42 cd 0c 08 aa 18 08 21 a5 40 36 01 21 d0 40 cd 0c 08 c4 18 08 21 a5 40 36 00 cd 8e 49 c3 ┆! B ! @6 ! @ ! @6 I ┆
0x39550…39570 18 00 21 e0 42 cd 0c 08 c4 aa 08 aa d0 40 cd 0c 08 c4 18 08 cd 8e 49 c3 18 00 2a ec 42 eb 21 65 ┆ ! B @ I * B !e┆
0x39570…3957f 4a 0e 00 0c ca b1 49 19 3a 02 08 fe 68 c2 aa ┆J I : h ┆
0x3957f…3959f (72, 0, 22) 49 aa fe 68 d2 b1 49 3e aa 77 be ca aa 49 0d 79 f5 d5 21 65 4a 01 e0 42 cd 00 08 fe 06 d1 21 65 ┆I h I> w I y !eJ B !e┆
0x3959f…395bf 4a ca dc 49 b7 c4 aa 08 01 d0 40 f1 f5 d5 00 aa d1 49 fa cd 03 08 c4 18 08 d1 f1 c3 b3 49 aa 01 ┆J I @ I I ┆
0x395bf…395ce d0 40 21 e0 42 96 21 ea 42 86 ca aa 49 21 65 ┆ @! B ! B I!e┆
0x395ce…395ee (72, 0, 23) 4a cd 03 08 c4 18 08 21 d0 40 cd 12 08 c4 18 08 c9 21 00 43 cd 0c 08 c4 18 08 21 01 00 22 00 43 ┆J ! @ ! C ! " C┆
0x395ee…3960e 0e aa 21 1e 49 cd 27 00 21 a5 40 36 fd 11 18 00 21 e0 42 01 00 43 3e 01 cd 00 08 fe 06 ca 5d 4a ┆ ! I ' ! @6 ! B C> ÅJ┆
0x3960e…3961d b7 c4 18 08 21 d2 aa 0e 08 11 e2 42 1a 77 23 ┆ ! B w#┆
0x3961d…3963d (72, 0, 24) 13 0d c2 39 aa 21 ef 42 36 01 21 d0 40 cd 0c 08 c2 1a 4a 21 e2 42 0e 08 cd 27 00 cd aa 49 c3 1a ┆ 9 ! B6 ! @ J! B ' I ┆
0x3963d…3965d 4a 21 a5 40 36 00 c3 18 00 49 4c 4c 45 47 41 4c 20 43 4f 4d 4d 41 aa 44 20 50 52 45 53 53 20 52 ┆J! @6 ILLEGAL COMMA D PRESS R┆
0x3965d…3966c 45 aa 55 52 4e 20 54 4f 20 41 44 44 20 20 20 ┆E URN TO ADD ┆
0x3966c…3968c (72, 0, 25) 20 20 54 52 41 43 4b 53 20 54 4f 20 20 20 20 45 4e 54 45 52 20 52 45 aa 4f aa 44 20 53 49 5a 45 ┆ TRACKS TO ENTER RE O D SIZE┆
0x3968c…396ac 20 4f 46 20 4e 45 57 20 46 49 4c 45 3a 20 50 52 45 53 53 20 52 45 54 55 52 4e 20 54 aa 20 44 45 ┆ OF NEW FILE: PRESS RETURN T DE┆
0x396ac…396bb 00 aa cb 4a 05 4c 45 54 45 20 0d aa 40 02 18 ┆ J LETE @ ┆
0x396bb…396db (72, 0, 26) 43 00 01 d0 40 21 e0 42 96 21 ea 42 86 ca f4 49 21 65 aa cd 03 08 c4 18 08 21 d0 40 cd 12 08 c4 ┆C @! B ! B I!e ! @ ┆
0x396db…396fb 18 08 c9 21 00 43 cd 0c 08 c4 18 08 21 01 aa 22 00 43 0e 0e 21 1e 49 aa 27 00 21 a5 40 36 fd 11 ┆ ! C ! " C ! I ' ! @6 ┆
0x396fb…3970a 18 00 21 e0 42 01 00 43 3e 01 cd 00 08 fe 06 ┆ ! B C> ┆
0x3970a…3972a (72, 0, 27) ca 5d 4a b7 c4 18 08 21 d2 40 0e 08 11 aa 42 1a 77 aa 13 0d c2 39 4a 21 ef 42 36 01 21 d0 40 cd ┆ ÅJ ! @ B w 9J! B6 ! @ ┆
0x3972a…3974a 0c 08 c2 1a 4a 21 e2 42 0e 08 cd 27 00 cd 8e 49 c3 1a aa 21 a5 40 36 00 c3 18 00 49 4c 4c 45 47 ┆ J! B ' I ! @6 ILLEG┆
0x3974a…39759 41 4c 20 aa 4f 4d 4d 41 4e 44 20 50 52 45 53 ┆AL OMMAND PRES┆
0x39759…39779 (72, 0, 28) 53 20 52 45 54 55 52 4e aa 54 4f 20 41 44 44 20 20 20 20 20 54 52 41 43 4b 53 20 54 4f 20 20 20 ┆S RETURN TO ADD TRACKS TO ┆
0x39779…39799 20 45 4e 54 45 52 aa 52 45 43 4f 52 44 aa 53 49 5a 45 20 4f 46 20 4e 45 57 20 46 49 4c 45 3a 20 ┆ ENTER RECORD SIZE OF NEW FILE: ┆
0x39799…397a8 50 52 45 53 53 20 52 45 54 55 52 4e 20 54 4f ┆PRESS RETURN TO┆
0x397a8…397c8 (72, 0, 29) 20 44 45 aa aa 49 4c 29 3b aa 20 20 20 20 20 20 20 20 20 20 20 52 45 41 44 20 46 49 4c 45 28 44 ┆ DE IL); READ FILE(D┆
0x397c8…397e8 41 54 46 49 4c 29 49 4e aa 4f 28 44 41 54 52 45 43 29 3b 49 46 20 58 44 41 47 3d aa 58 58 58 58 ┆ATFIL)IN O(DATREC);IF XDAG= XXXX┆
0x397e8…397f7 58 58 27 20 54 48 45 4e 20 47 4f 20 54 aa 20 ┆XX' THEN GO T ┆
0x397f7…39817 (72, 0, 30) 53 4c 55 54 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 41 47 3d 58 44 41 47 3b aa 44 ┆SLUT; DAG=XDAG; D┆
0x39817…39837 41 47 3d aa 58 58 58 58 58 58 27 3b 53 4b 28 4d 4e 52 29 3d 27 20 27 3b 20 20 20 20 20 20 20 20 ┆AG= XXXXXX';SK(MNR)=' '; ┆
0x39837…39846 20 20 20 20 20 20 20 20 aa 20 20 20 20 20 20 ┆ ┆
0x39846…39866 (72, 0, 31) 20 aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4d 4f 4e 5f 23 3d 4d 4e 52 aa 4f ┆ MON_#=MNR O┆
0x39866…39886 46 46 53 45 54 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 aa 20 20 20 20 20 20 20 20 20 20 20 20 ┆FFSET; ┆
0x39886…39895 20 20 20 aa 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x39895…398b5 (72, 0, 32) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 aa 20 4d aa 4e 5f 23 3e 31 32 ┆ I M N_#>12┆
0x398b5…398d5 20 54 48 45 4e 20 4d 4f 4e 5f 23 3d 4d 4f 4e 5f 23 2d 31 32 3b 20 20 20 20 20 20 20 20 20 aa 20 ┆ THEN MON_#=MON_#-12; ┆
0x398d5…398e4 20 20 20 20 20 20 20 20 aa 20 20 20 20 20 20 ┆ ┆
0x398e4…39904 (72, 0, 33) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 aa 49 46 20 4d 4f 4e 5f 23 7f 3d 53 ┆ IF MON_# =S┆
0x39904…39924 55 42 53 54 52 28 44 41 47 2c 33 aa 32 29 20 54 48 45 4e 20 47 4f 20 54 4f aa 53 4c 55 54 3b 20 ┆UBSTR(DAG,3 2) THEN GO TO SLUT; ┆
0x39924…39933 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x39933…39953 (72, 0, 34) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 aa aa 20 20 20 20 20 52 45 57 52 49 54 45 20 46 49 4c ┆ REWRITE FIL┆
0x39953…39973 45 28 44 41 54 46 49 4c 29 46 52 4f 4d 28 44 41 54 52 45 43 aa 3b 20 20 20 20 20 20 20 20 20 20 ┆E(DATFIL)FROM(DATREC ; ┆
0x39973…39982 aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x39982…399a2 (72, 0, 35) 20 20 20 20 20 20 20 20 20 20 aa 20 20 20 20 20 20 20 20 20 20 20 52 45 41 44 20 46 49 4c 45 28 ┆ READ FILE(┆
0x399a2…399c2 53 49 53 aa 56 45 52 29 aa 4e 54 4f 28 53 49 aa 54 41 56 45 52 29 3b 20 20 20 20 20 20 20 20 20 ┆SIS VER) NTO(SI TAVER); ┆
0x399c2…399d1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x399d1…399f1 (72, 0, 36) 20 20 20 20 20 aa aa 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 28 44 29 20 53 4b 49 50 20 45 44 ┆ PUT FILE(D) SKIP ED┆
0x399f1…39a11 49 54 28 27 20 27 29 28 41 28 aa 37 29 29 28 27 2a 2a 20 52 45 47 49 53 aa 52 45 52 49 4e 47 20 ┆IT(' ')(A( 7))('** REGIS RERING ┆
0x39a11…39a20 41 56 20 56 45 52 49 46 49 4b 41 54 49 4f 4e ┆AV VERIFIKATION┆
0x39a20…39a40 (72, 0, 37) aa 52 20 20 2a 2a 27 29 20 20 20 20 20 28 41 28 37 34 29 29 28 27 53 54 5b 4c 4c aa 49 4e 20 50 ┆ R **') (A(74))('STÄLL IN P┆
0x39a40…39a60 45 52 46 4f 52 aa 52 49 4e 47 45 4e 27 29 28 41 28 33 37 29 29 28 27 54 52 59 43 4b 20 53 45 44 ┆ERFOR RINGEN')(A(37))('TRYCK SED┆
0x39a60…39a6f 41 4e 20 52 45 54 55 52 4e 2e aa 29 28 aa 28 ┆AN RETURN. )( (┆
0x39a6f…39a8f (72, 0, 38) 33 37 29 29 3b 20 20 20 20 20 20 20 20 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 53 29 3b 50 55 ┆37)); GET SKIP LIST(S);PU┆
0x39a8f…39aaf aa 20 46 49 4c 45 28 44 29 20 53 4b 49 50 3b 20 aa 20 20 20 20 20 20 20 20 20 aa 20 20 20 20 20 ┆ FILE(D) SKIP; ┆
0x39aaf…39abe 20 20 20 20 20 aa 20 20 20 20 20 20 20 20 20 ┆ ┆
0x39abe…39ade (72, 0, 39) 20 20 20 20 20 20 20 20 20 20 20 20 20 45 58 3d 30 3b 50 aa 53 3d 30 3b 52 41 44 aa 35 3b 53 49 ┆ EX=0;P S=0;RAD 5;SI┆
0x39ade…39afe 44 41 3d 30 3b 49 4e 44 3d 31 3b 41 44 3d 30 3b 41 4b 3d 30 3b 54 44 3d 30 3b 54 4b 3d 30 3b 44 ┆DA=0;IND=1;AD=0;AK=0;TD=0;TK=0;D┆
0x39afe…39b0d aa 54 3d 53 55 aa 53 54 52 28 44 41 47 2c 33 ┆ T=SU STR(DAG,3┆
0x39b0d…39b2d (72, 0, 40) 2c 34 29 3b 20 20 20 20 20 20 20 20 20 52 55 42 3a 53 49 44 41 3d aa 49 44 41 2b 31 3b 50 55 54 ┆,4); RUB:SIDA= IDA+1;PUT┆
0x39b2d…39b4d 20 53 4b 49 50 28 52 41 aa 29 45 44 49 54 28 27 4d 41 4e 55 45 4c 4c 20 52 45 47 aa 53 54 52 45 ┆ SKIP(RA )EDIT('MANUELL REG STRE┆
0x39b4d…39b5c 52 49 4e 47 20 41 56 20 56 45 52 49 46 49 4b ┆RING AV VERIFIK┆
0x39b5c…39b7c (73, 0, 0) 4b 4f 4e 54 4f 20 20 3a 20 78 78 78 78 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆KONTO : xxxx ┆
0x39b7c…39b81 20 20 20 20 20 ┆ ┆
0x39b81…39ba1 (73, 0, 1) 41 56 44 20 20 20 20 3a 20 63 63 63 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆AVD : ccc ┆
0x39ba1…39ba6 20 20 20 20 20 ┆ ┆
0x39ba6…39bc6 (73, 0, 2) 44 41 54 55 4d 20 20 3a 20 78 78 78 78 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆DATUM : xxxx ┆
0x39bc6…39bcb 20 20 20 20 20 ┆ ┆
0x39bcb…39beb (73, 0, 3) 56 45 52 2e 4e 52 20 3a 20 78 78 78 78 78 78 78 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆VER.NR : xxxxxxx ┆
0x39beb…39bf0 20 20 20 20 20 ┆ ┆
0x39bf0…39c10 (73, 0, 4) 42 45 4c 4f 50 50 20 3a 20 78 78 78 78 78 78 78 78 78 78 78 20 20 20 20 20 20 20 20 20 20 20 20 ┆BELOPP : xxxxxxxxxxx ┆
0x39c10…39c15 20 20 20 20 20 ┆ ┆
0x39c15…39c35 (73, 0, 5) 4b 4f 44 20 20 20 20 3a 20 63 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆KOD : c ┆
0x39c35…39c3a 20 20 20 20 20 ┆ ┆
0x39c3a…39c5a (73, 0, 6) 20 20 20 20 20 20 20 20 20 20 78 78 78 78 78 78 78 78 78 78 78 20 20 78 78 78 78 78 78 78 78 78 ┆ xxxxxxxxxxx xxxxxxxxx┆
0x39c5a…39c5f 78 78 20 20 20 ┆xx ┆
0x39c5f…39c7f (73, 0, 7) 4d 5d 4e 20 4b 52 45 20 3a 20 78 78 78 78 78 78 78 78 78 78 78 20 20 78 78 78 78 78 78 78 78 78 ┆MÅN KRE : xxxxxxxxxxx xxxxxxxxx┆
0x39c7f…39c84 78 78 20 20 20 ┆xx ┆
0x39c84…39ca4 (73, 0, 8) 20 20 20 20 20 20 20 20 20 20 78 78 78 78 78 78 78 78 78 78 78 20 20 78 78 78 78 78 78 78 78 78 ┆ xxxxxxxxxxx xxxxxxxxx┆
0x39ca4…39ca9 78 78 20 20 20 ┆xx ┆
0x39ca9…39cc9 (73, 0, 9) 20 20 20 20 20 20 20 20 20 20 78 78 78 78 78 78 78 78 78 78 78 20 20 78 78 78 78 78 78 78 78 78 ┆ xxxxxxxxxxx xxxxxxxxx┆
0x39cc9…39cce 78 78 20 20 20 ┆xx ┆
0x39cce…39cee (73, 0, 10) 20 20 20 20 20 20 20 20 20 20 78 78 78 78 78 78 78 78 78 78 78 20 20 78 78 78 78 78 78 78 78 78 ┆ xxxxxxxxxxx xxxxxxxxx┆
0x39cee…39cf3 78 78 20 20 20 ┆xx ┆
0x39cf3…39d13 (73, 0, 11) 20 20 20 20 20 20 20 20 20 20 78 78 78 78 78 78 78 78 78 78 78 20 20 78 78 78 78 78 78 78 78 78 ┆ xxxxxxxxxxx xxxxxxxxx┆
0x39d13…39d18 78 78 20 20 20 ┆xx ┆
0x39d18…39d38 (73, 0, 12) 20 20 20 20 20 20 20 20 20 20 78 78 78 78 78 78 78 78 78 78 78 20 20 78 78 78 78 78 78 78 78 78 ┆ xxxxxxxxxxx xxxxxxxxx┆
0x39d38…39d3d 78 78 20 20 20 ┆xx ┆
0x39d3d…39d5d (73, 0, 13) aa 54 4f 54 58 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 aa 20 20 20 20 20 20 20 20 20 20 20 20 ┆ TOTX; ┆
0x39d5d…39d62 20 20 20 20 20 ┆ ┆
0x39d62…39d82 (73, 0, 14) aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x39d82…39d87 aa 20 20 43 41 ┆ CA┆
0x39d87…39da7 (73, 0, 15) aa 4c 20 53 45 4f 46 28 4e 59 4b 54 4f 54 58 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ L SEOF(NYKTOTX); ┆
0x39da7…39dac 20 20 20 20 20 ┆ ┆
0x39dac…39dcc (73, 0, 16) aa 20 20 20 20 20 20 20 aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x39dcc…39dd1 20 20 20 20 20 ┆ ┆
0x39dd1…39df1 (73, 0, 17) aa 20 20 49 46 20 55 4e 53 50 45 43 28 4e 59 4b 54 4f 54 58 29 aa 30 20 54 48 45 4e 20 47 4f 54 ┆ IF UNSPEC(NYKTOTX) 0 THEN GOT┆
0x39df1…39df6 4f 20 55 54 3b ┆O UT;┆
0x39df6…39e16 (73, 0, 18) aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x39e16…39e1b 20 20 aa 20 20 ┆ ┆
0x39e1b…39e3b (73, 0, 19) aa 20 20 20 20 20 20 20 55 4e 53 50 45 43 28 4e 59 4b 54 4f 54 58 29 3d 30 3b 20 20 20 20 20 20 ┆ UNSPEC(NYKTOTX)=0; ┆
0x39e3b…39e40 20 20 20 20 20 ┆ ┆
0x39e40…39e60 (73, 0, 20) aa 20 20 20 20 20 20 20 20 20 aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x39e60…39e65 20 20 20 20 20 ┆ ┆
0x39e65…39e85 (73, 0, 21) aa 20 20 20 20 20 20 20 20 20 20 20 20 4f 4e 20 45 52 52 4f 52 20 47 aa 54 4f 20 55 54 3b 20 20 ┆ ON ERROR G TO UT; ┆
0x39e85…39e8a 20 20 20 20 20 ┆ ┆
0x39e8a…39eaa (73, 0, 22) aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x39eaa…39eaf 20 20 20 20 aa ┆ ┆
0x39eaf…39ecf (73, 0, 23) aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 41 44 20 4b 45 59 28 27 42 27 29 46 ┆ READ KEY('B')F┆
0x39ecf…39ed4 49 4c 45 28 4e ┆ILE(N┆
0x39ed4…39ef4 (73, 0, 24) aa 4b 54 4f 54 58 29 49 4e 54 4f 28 aa 55 4d 29 4b 45 59 54 4f 28 58 29 3b 20 20 20 20 20 20 20 ┆ KTOTX)INTO( UM)KEYTO(X); ┆
0x39ef4…39ef9 20 20 20 20 20 ┆ ┆
0x39ef9…39f19 (73, 0, 25) aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 55 4e aa 50 45 43 28 4e 59 ┆ UN PEC(NY┆
0x39f19…39f1e 4b 54 4f 54 58 ┆KTOTX┆
0x39f1e…39f3e (73, 0, 26) aa 3d 55 4e 53 50 45 43 28 4e 59 4b 54 4f 54 58 29 2d 31 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆ =UNSPEC(NYKTOTX)-1; ┆
0x39f3e…39f43 20 20 20 20 20 ┆ ┆
0x39f43…39f63 (73, 0, 27) aa aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 4c 4f 53 ┆ CLOS┆
0x39f63…39f68 45 20 4e 59 4b ┆E NYK┆
0x39f68…39f88 (73, 0, 28) aa 4f 54 58 3b 20 20 20 20 20 20 20 20 20 aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ OTX; ┆
0x39f88…39f8d 20 20 20 20 20 ┆ ┆
0x39f8d…39fad (73, 0, 29) aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 aa 20 20 20 20 ┆ ┆
0x39fad…39fb2 20 49 4e 46 3d ┆ INF=┆
0x39fb2…39fd2 (73, 0, 30) aa 44 49 53 4b 20 52 20 4b 54 4f 54 58 20 46 44 4b 54 4f 54 58 20 44 49 53 4b 20 52 20 4e 59 4b ┆ DISK R KTOTX FDKTOTX DISK R NYK┆
0x39fd2…39fd7 54 4f 54 58 20 ┆TOTX ┆
0x39fd7…39ff7 (73, 0, 31) aa 54 4f aa 58 20 53 4f 52 54 20 4b 54 4f 54 58 20 53 41 4d 53 4f 52 54 27 3b 20 20 20 20 20 20 ┆ TO X SORT KTOTX SAMSORT'; ┆
0x39ff7…39ffc 20 20 20 20 20 ┆ ┆
0x39ffc…3a01c (73, 0, 32) aa 43 41 4c 4c 20 4c 4f 41 44 28 49 4e 46 2c 37 aa 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ CALL LOAD(INF,7 ); ┆
0x3a01c…3a021 20 20 20 20 20 ┆ ┆
0x3a021…3a041 (73, 0, 33) aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 aa 20 20 ┆ ┆
0x3a041…3a046 20 20 20 20 20 ┆ ┆
0x3a046…3a066 (73, 0, 34) aa 20 20 20 20 20 47 4f 54 4f 20 53 4c 55 54 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GOTO SLUT; ┆
0x3a066…3a06b 20 20 20 20 20 ┆ ┆
0x3a06b…3a08b (73, 0, 35) aa 20 20 20 20 aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3a08b…3a090 20 20 20 20 20 ┆ ┆
0x3a090…3a0b0 (73, 0, 36) aa 20 20 20 20 20 20 20 20 20 20 55 54 3a 20 20 20 20 aa 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ UT: ┆
0x3a0b0…3a0b5 20 20 20 20 20 ┆ ┆
0x3a0b5…3a0d5 (73, 0, 37) aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 aa ┆ ┆
0x3a0d5…3a0da 20 20 20 20 20 ┆ ┆
0x3a0da…3a0fa (73, 0, 38) aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 4c 55 54 3a 45 4e 44 3b 20 20 20 20 20 20 20 ┆ SLUT:END; ┆
0x3a0fa…3a0ff 20 20 20 20 20 ┆ ┆
0x3a0ff…3a11f (73, 0, 39) aa 20 20 20 20 20 20 aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3a11f…3a124 20 20 20 20 20 ┆ ┆
0x3a124…3a144 (73, 0, 40) aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 aa aa 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3a144…3a149 20 20 20 20 20 ┆ ┆
0x3a149…3a169 (73, 0, 41) aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3a169…3a16e 20 aa 20 20 20 ┆ ┆
0x3a16e…3a18e (73, 0, 42) aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 aa 50 45 4e 20 4b ┆ PEN K┆
0x3a18e…3a193 54 4f 54 58 3b ┆TOTX;┆
0x3a193…3a1b3 (73, 0, 43) aa 50 45 4e 20 44 41 54 46 aa 4c 3b 4f 50 45 4e 20 53 41 4d 46 49 4c 3b 20 20 20 20 20 20 20 20 ┆ PEN DATF L;OPEN SAMFIL; ┆
0x3a1b3…3a1b8 20 20 20 20 20 ┆ ┆
0x3a1b8…3a1d8 (73, 0, 44) aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 aa 20 20 20 20 20 20 20 20 aa ┆ ┆
0x3a1d8…3a1dd 45 41 44 20 46 ┆EAD F┆
0x3a1dd…3a1fd (73, 0, 45) aa 4c 45 28 44 41 54 46 49 4c 29 49 4e 54 4f 28 44 41 54 52 45 43 29 3b 49 46 20 58 44 41 47 3d ┆ LE(DATFIL)INTO(DATREC);IF XDAG=┆
0x3a1fd…3a202 27 58 58 aa 58 ┆'XX X┆
0x3a202…3a222 (73, 0, 46) aa 58 27 20 54 48 45 4e 20 47 4f 20 54 4f 20 53 4c 55 54 54 3b 20 20 20 20 20 20 20 20 20 20 20 ┆ X' THEN GO TO SLUTT; ┆
0x3a222…3a227 20 20 20 20 aa ┆ ┆
0x3a227…3a247 (73, 0, 47) aa 47 3d 58 44 41 47 3b 58 44 41 aa 3d 27 58 58 58 58 58 58 27 3b 20 20 20 20 20 20 20 20 20 20 ┆ G=XDAG;XDA ='XXXXXX'; ┆
0x3a247…3a24c 20 20 20 20 20 ┆ ┆
0x3a24c…3a26c (73, 0, 48) aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 aa 20 20 20 20 20 20 20 ┆ ┆
0x3a26c…3a271 20 20 20 20 20 ┆ ┆
0x3a271…3a291 (73, 0, 49) aa 20 20 20 aa 45 57 52 49 54 45 20 46 49 4c 45 28 44 41 54 46 49 4c 29 46 52 4f 4d 28 44 41 54 ┆ EWRITE FILE(DATFIL)FROM(DAT┆
0x3a291…3a296 52 45 43 29 3b ┆REC);┆
0x3a296…3a2b6 (73, 0, 50) aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3a2b6…3a2bb 20 20 20 20 20 ┆ ┆
0x3a2bb…3a2db (73, 0, 51) aa 20 20 20 20 20 20 20 20 aa 55 54 20 aa 49 4c 45 28 44 29 20 53 4b 49 50 20 45 44 49 54 28 27 ┆ UT ILE(D) SKIP EDIT('┆
0x3a2db…3a2e0 20 27 29 28 41 ┆ ')(A┆
0x3a2e0…3a300 (73, 0, 52) aa 33 37 29 29 28 27 2a 2a 2a 20 20 20 20 20 20 20 20 52 45 53 55 4c 54 41 54 aa 5b 4b 4e 49 4e ┆ 37))('*** RESULTAT ÄKNIN┆
0x3a300…3a305 47 20 20 20 20 ┆G ┆
0x3a305…3a325 (73, 0, 53) aa 20 20 20 2a 2a 2a 27 29 20 20 20 20 20 aa 41 28 37 34 29 29 28 27 53 54 5b 4c 4c 20 49 4e 20 ┆ ***') A(74))('STÄLL IN ┆
0x3a325…3a32a 50 45 52 46 4f ┆PERFO┆
0x3a32a…3a34a (73, 0, 54) aa 45 aa 49 4e 47 45 4e 27 29 28 41 28 33 37 29 29 28 27 54 52 59 43 4b 20 53 45 44 41 4e 20 52 ┆ E INGEN')(A(37))('TRYCK SEDAN R┆
0x3a34a…3a34f 45 54 55 52 4e ┆ETURN┆
0x3a34f…3a36f (73, 0, 55) aa 27 29 28 41 28 33 37 29 29 3b 20 20 20 20 aa 20 20 20 aa 45 54 20 53 4b 49 50 20 4c 49 53 54 ┆ ')(A(37)); ET SKIP LIST┆
0x3a36f…3a374 28 53 29 3b 20 ┆(S); ┆
0x3a374…3a394 (73, 0, 56) aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 aa 20 20 20 ┆ ┆
0x3a394…3a399 20 20 20 20 20 ┆ ┆
0x3a399…3a3b9 (73, 0, 57) aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 aa 41 42 3a 50 55 54 20 ┆ AB:PUT ┆
0x3a3b9…3a3be 46 49 4c 45 28 ┆FILE(┆
0x3a3be…3a3de (73, 0, 58) aa 29 53 4b aa 50 20 45 44 49 54 28 27 56 49 4c 4b 45 4e 20 4e 49 56 5d 3f 27 29 28 41 28 33 37 ┆ )SK P EDIT('VILKEN NIVÅ?')(A(37┆
0x3a3de…3a3e3 29 29 20 20 20 ┆)) ┆
0x3a3e3…3a403 (73, 0, 59) aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 aa 20 20 20 20 20 20 20 20 20 20 20 aa 27 31 ┆ '1┆
0x3a403…3a408 20 2d 20 45 4e ┆ - EN┆
0x3a408…3a428 (73, 0, 60) aa 41 53 54 20 4b 4f 4e 54 4f 4b 4c 41 53 53 27 29 28 41 28 33 37 29 29 28 27 32 20 2d 20 aa 45 ┆ AST KONTOKLASS')(A(37))('2 - E┆
0x3a428…3a42d 52 20 4b 4f 4e ┆R KON┆
0x3a42d…3a44d (73, 0, 61) aa 4f 47 52 55 50 50 27 29 28 41 28 33 37 29 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ OGRUPP')(A(37)) ┆
0x3a44d…3a452 20 20 aa 27 33 ┆ '3┆
0x3a452…3a472 (73, 0, 62) aa 2d 20 50 45 52 aa 4b 4f 4e 54 4f 20 28 33 2d 53 49 46 46 52 49 47 54 29 27 29 28 41 28 33 37 ┆ - PER KONTO (3-SIFFRIGT)')(A(37┆
0x3a472…3a477 29 29 20 20 20 ┆)) ┆
0x3a477…3a497 (73, 0, 63) aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 aa 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3a497…3a49c 20 20 20 20 20 ┆ ┆
0x3a49c…3a4bc (73, 0, 64) aa 20 aa 27 34 20 2d 20 50 45 52 20 55 4e 44 45 52 4b 4f 4e 54 4f 20 28 34 2d 53 49 46 46 52 49 ┆ '4 - PER UNDERKONTO (4-SIFFRI┆
0x3a4bc…3a4c1 aa 54 29 27 29 ┆ T)')┆
0x3a4c1…3a4e1 (73, 0, 65) aa 41 28 33 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(35)); ┆
0x3a4e1…3a4e6 20 20 20 20 20 ┆ ┆
0x3a4e6…3a506 (73, 0, 66) aa 20 20 20 20 20 20 aa aa 54 20 53 4b 49 50 20 4c 49 53 54 28 4e 49 29 3b 49 46 20 4e 49 3c 31 ┆ T SKIP LIST(NI);IF NI<1┆
0x3a506…3a50b 7c 4e 49 3e 34 ┆öNI>4┆
0x3a50b…3a52b (74, 0, 0) 4b 54 4f 3a 78 78 78 78 20 20 20 41 56 44 3a 63 63 63 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆KTO:xxxx AVD:ccc ┆
0x3a52b…3a530 20 20 20 20 20 ┆ ┆
0x3a530…3a550 (74, 0, 1) 4d 5d 4e 20 44 45 42 20 3a 20 78 78 78 78 78 78 78 78 78 78 78 20 20 78 78 78 78 78 78 78 78 78 ┆MÅN DEB : xxxxxxxxxxx xxxxxxxxx┆
0x3a550…3a555 78 78 20 20 20 ┆xx ┆
0x3a555…3a575 (74, 0, 2) 20 20 20 20 20 20 20 20 20 20 78 78 78 78 78 78 78 78 78 78 78 20 20 78 78 78 78 78 78 78 78 78 ┆ xxxxxxxxxxx xxxxxxxxx┆
0x3a575…3a57a 78 78 20 20 20 ┆xx ┆
0x3a57a…3a59a (74, 0, 3) 20 20 20 20 20 20 20 20 20 20 78 78 78 78 78 78 78 78 78 78 78 20 20 78 78 78 78 78 78 78 78 78 ┆ xxxxxxxxxxx xxxxxxxxx┆
0x3a59a…3a59f 78 78 20 20 20 ┆xx ┆
0x3a59f…3a5bf (74, 0, 4) 20 20 20 20 20 20 20 20 20 20 78 78 78 78 78 78 78 78 78 78 78 20 20 78 78 78 78 78 78 78 78 78 ┆ xxxxxxxxxxx xxxxxxxxx┆
0x3a5bf…3a5c4 78 78 20 20 20 ┆xx ┆
0x3a5c4…3a5e4 (74, 0, 5) 20 20 20 20 20 20 20 20 20 20 78 78 78 78 78 78 78 78 78 78 78 20 20 78 78 78 78 78 78 78 78 78 ┆ xxxxxxxxxxx xxxxxxxxx┆
0x3a5e4…3a5e9 78 78 20 20 20 ┆xx ┆
0x3a5e9…3a609 (74, 0, 6) 20 20 20 20 20 20 20 20 20 20 78 78 78 78 78 78 78 78 78 78 78 20 20 78 78 78 78 78 78 78 78 78 ┆ xxxxxxxxxxx xxxxxxxxx┆
0x3a609…3a60e 78 78 20 20 20 ┆xx ┆
0x3a60e…3a62e (74, 0, 7) 4d 5d 4e 20 4b 52 45 20 3a 20 78 78 78 78 78 78 78 78 78 78 78 20 20 78 78 78 78 78 78 78 78 78 ┆MÅN KRE : xxxxxxxxxxx xxxxxxxxx┆
0x3a62e…3a633 78 78 20 20 20 ┆xx ┆
0x3a633…3a653 (74, 0, 8) 20 20 20 20 20 20 20 20 20 20 78 78 78 78 78 78 78 78 78 78 78 20 20 78 78 78 78 78 78 78 78 78 ┆ xxxxxxxxxxx xxxxxxxxx┆
0x3a653…3a658 78 78 20 20 20 ┆xx ┆
0x3a658…3a678 (74, 0, 9) 20 20 20 20 20 20 20 20 20 20 78 78 78 78 78 78 78 78 78 78 78 20 20 78 78 78 78 78 78 78 78 78 ┆ xxxxxxxxxxx xxxxxxxxx┆
0x3a678…3a67d 78 78 20 20 20 ┆xx ┆
0x3a67d…3a69d (74, 0, 10) 20 20 20 20 20 20 20 20 20 20 78 78 78 78 78 78 78 78 78 78 78 20 20 78 78 78 78 78 78 78 78 78 ┆ xxxxxxxxxxx xxxxxxxxx┆
0x3a69d…3a6a2 78 78 20 20 20 ┆xx ┆
0x3a6a2…3a6c2 (74, 0, 11) 20 20 20 20 20 20 20 20 20 20 78 78 78 78 78 78 78 78 78 78 78 20 20 78 78 78 78 78 78 78 78 78 ┆ xxxxxxxxxxx xxxxxxxxx┆
0x3a6c2…3a6c7 78 78 20 20 20 ┆xx ┆
0x3a6c7…3a6e7 (74, 0, 12) 20 20 20 20 20 20 20 20 20 20 78 78 78 78 78 78 78 78 78 78 78 20 20 78 78 78 78 78 78 78 78 78 ┆ xxxxxxxxxxx xxxxxxxxx┆
0x3a6e7…3a6ec 78 78 20 20 20 ┆xx ┆
0x3a6ec…3a70c (74, 0, 13) aa 54 4f 54 58 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 aa 20 20 20 20 20 20 20 20 20 20 20 20 ┆ TOTX; ┆
0x3a70c…3a711 20 20 20 20 20 ┆ ┆
0x3a711…3a731 (74, 0, 14) aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3a731…3a736 aa 20 20 43 41 ┆ CA┆
0x3a736…3a756 (74, 0, 15) aa 4c 20 53 45 4f 46 28 4e 59 4b 54 4f 54 58 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ L SEOF(NYKTOTX); ┆
0x3a756…3a75b 20 20 20 20 20 ┆ ┆
0x3a75b…3a77b (74, 0, 16) aa 20 20 20 20 20 20 20 aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3a77b…3a780 20 20 20 20 20 ┆ ┆
0x3a780…3a7a0 (74, 0, 17) aa 20 20 49 46 20 55 4e 53 50 45 43 28 4e 59 4b 54 4f 54 58 29 aa 30 20 54 48 45 4e 20 47 4f 54 ┆ IF UNSPEC(NYKTOTX) 0 THEN GOT┆
0x3a7a0…3a7a5 4f 20 55 54 3b ┆O UT;┆
0x3a7a5…3a7c5 (74, 0, 18) aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3a7c5…3a7ca 20 20 aa 20 20 ┆ ┆
0x3a7ca…3a7ea (74, 0, 19) aa 20 20 20 20 20 20 20 55 4e 53 50 45 43 28 4e 59 4b 54 4f 54 58 29 3d 30 3b 20 20 20 20 20 20 ┆ UNSPEC(NYKTOTX)=0; ┆
0x3a7ea…3a7ef 20 20 20 20 20 ┆ ┆
0x3a7ef…3a80f (74, 0, 20) aa 20 20 20 20 20 20 20 20 20 aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3a80f…3a814 20 20 20 20 20 ┆ ┆
0x3a814…3a834 (74, 0, 21) aa 20 20 20 20 20 20 20 20 20 20 20 20 4f 4e 20 45 52 52 4f 52 20 47 aa 54 4f 20 55 54 3b 20 20 ┆ ON ERROR G TO UT; ┆
0x3a834…3a839 20 20 20 20 20 ┆ ┆
0x3a839…3a859 (74, 0, 22) aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3a859…3a85e 20 20 20 20 aa ┆ ┆
0x3a85e…3a87e (74, 0, 23) aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 41 44 20 4b 45 59 28 27 42 27 29 46 ┆ READ KEY('B')F┆
0x3a87e…3a883 49 4c 45 28 4e ┆ILE(N┆
0x3a883…3a8a3 (74, 0, 24) aa 4b 54 4f 54 58 29 49 4e 54 4f 28 aa 55 4d 29 4b 45 59 54 4f 28 58 29 3b 20 20 20 20 20 20 20 ┆ KTOTX)INTO( UM)KEYTO(X); ┆
0x3a8a3…3a8a8 20 20 20 20 20 ┆ ┆
0x3a8a8…3a8c8 (74, 0, 25) aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 55 4e aa 50 45 43 28 4e 59 ┆ UN PEC(NY┆
0x3a8c8…3a8cd 4b 54 4f 54 58 ┆KTOTX┆
0x3a8cd…3a8ed (74, 0, 26) aa 3d 55 4e 53 50 45 43 28 4e 59 4b 54 4f 54 58 29 2d 31 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆ =UNSPEC(NYKTOTX)-1; ┆
0x3a8ed…3a8f2 20 20 20 20 20 ┆ ┆
0x3a8f2…3a912 (74, 0, 27) aa aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 4c 4f 53 ┆ CLOS┆
0x3a912…3a917 45 20 4e 59 4b ┆E NYK┆
0x3a917…3a937 (74, 0, 28) aa 4f 54 58 3b 20 20 20 20 20 20 20 20 20 aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ OTX; ┆
0x3a937…3a93c 20 20 20 20 20 ┆ ┆
0x3a93c…3a95c (74, 0, 29) aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 aa 20 20 20 20 ┆ ┆
0x3a95c…3a961 20 49 4e 46 3d ┆ INF=┆
0x3a961…3a981 (74, 0, 30) aa 44 49 53 4b 20 52 20 4b 54 4f 54 58 20 46 44 4b 54 4f 54 58 20 44 49 53 4b 20 52 20 4e 59 4b ┆ DISK R KTOTX FDKTOTX DISK R NYK┆
0x3a981…3a986 54 4f 54 58 20 ┆TOTX ┆
0x3a986…3a9a6 (74, 0, 31) aa 54 4f aa 58 20 53 4f 52 54 20 4b 54 4f 54 58 20 53 41 4d 53 4f 52 54 27 3b 20 20 20 20 20 20 ┆ TO X SORT KTOTX SAMSORT'; ┆
0x3a9a6…3a9ab 20 20 20 20 20 ┆ ┆
0x3a9ab…3a9cb (74, 0, 32) aa 43 41 4c 4c 20 4c 4f 41 44 28 49 4e 46 2c 37 aa 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ CALL LOAD(INF,7 ); ┆
0x3a9cb…3a9d0 20 20 20 20 20 ┆ ┆
0x3a9d0…3a9f0 (74, 0, 33) aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 aa 20 20 ┆ ┆
0x3a9f0…3a9f5 20 20 20 20 20 ┆ ┆
0x3a9f5…3aa15 (74, 0, 34) aa 20 20 20 20 20 47 4f 54 4f 20 53 4c 55 54 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GOTO SLUT; ┆
0x3aa15…3aa1a 20 20 20 20 20 ┆ ┆
0x3aa1a…3aa3a (74, 0, 35) aa 20 20 20 20 aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3aa3a…3aa3f 20 20 20 20 20 ┆ ┆
0x3aa3f…3aa5f (74, 0, 36) aa 20 20 20 20 20 20 20 20 20 20 55 54 3a 20 20 20 20 aa 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ UT: ┆
0x3aa5f…3aa64 20 20 20 20 20 ┆ ┆
0x3aa64…3aa84 (74, 0, 37) aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 aa ┆ ┆
0x3aa84…3aa89 20 20 20 20 20 ┆ ┆
0x3aa89…3aaa9 (74, 0, 38) aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 4c 55 54 3a 45 4e 44 3b 20 20 20 20 20 20 20 ┆ SLUT:END; ┆
0x3aaa9…3aaae 20 20 20 20 20 ┆ ┆
0x3aaae…3aace (74, 0, 39) aa 20 20 20 20 20 20 aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3aace…3aad3 20 20 20 20 20 ┆ ┆
0x3aad3…3aaf3 (74, 0, 40) aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 aa aa 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3aaf3…3aaf8 20 20 20 20 20 ┆ ┆
0x3aaf8…3ab18 (74, 0, 41) aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3ab18…3ab1d 20 aa 20 20 20 ┆ ┆
0x3ab1d…3ab3d (74, 0, 42) aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 aa 50 45 4e 20 4b ┆ PEN K┆
0x3ab3d…3ab42 54 4f 54 58 3b ┆TOTX;┆
0x3ab42…3ab62 (74, 0, 43) aa 50 45 4e 20 44 41 54 46 aa 4c 3b 4f 50 45 4e 20 53 41 4d 46 49 4c 3b 20 20 20 20 20 20 20 20 ┆ PEN DATF L;OPEN SAMFIL; ┆
0x3ab62…3ab67 20 20 20 20 20 ┆ ┆
0x3ab67…3ab87 (74, 0, 44) aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 aa 20 20 20 20 20 20 20 20 aa ┆ ┆
0x3ab87…3ab8c 45 41 44 20 46 ┆EAD F┆
0x3ab8c…3abac (74, 0, 45) aa 4c 45 28 44 41 54 46 49 4c 29 49 4e 54 4f 28 44 41 54 52 45 43 29 3b 49 46 20 58 44 41 47 3d ┆ LE(DATFIL)INTO(DATREC);IF XDAG=┆
0x3abac…3abb1 27 58 58 aa 58 ┆'XX X┆
0x3abb1…3abd1 (74, 0, 46) aa 58 27 20 54 48 45 4e 20 47 4f 20 54 4f 20 53 4c 55 54 54 3b 20 20 20 20 20 20 20 20 20 20 20 ┆ X' THEN GO TO SLUTT; ┆
0x3abd1…3abd6 20 20 20 20 aa ┆ ┆
0x3abd6…3abf6 (74, 0, 47) aa 47 3d 58 44 41 47 3b 58 44 41 aa 3d 27 58 58 58 58 58 58 27 3b 20 20 20 20 20 20 20 20 20 20 ┆ G=XDAG;XDA ='XXXXXX'; ┆
0x3abf6…3abfb 20 20 20 20 20 ┆ ┆
0x3abfb…3ac1b (74, 0, 48) aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 aa 20 20 20 20 20 20 20 ┆ ┆
0x3ac1b…3ac20 20 20 20 20 20 ┆ ┆
0x3ac20…3ac40 (74, 0, 49) aa 20 20 20 aa 45 57 52 49 54 45 20 46 49 4c 45 28 44 41 54 46 49 4c 29 46 52 4f 4d 28 44 41 54 ┆ EWRITE FILE(DATFIL)FROM(DAT┆
0x3ac40…3ac45 52 45 43 29 3b ┆REC);┆
0x3ac45…3ac65 (74, 0, 50) aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3ac65…3ac6a 20 20 20 20 20 ┆ ┆
0x3ac6a…3ac8a (74, 0, 51) aa 20 20 20 20 20 20 20 20 aa 55 54 20 aa 49 4c 45 28 44 29 20 53 4b 49 50 20 45 44 49 54 28 27 ┆ UT ILE(D) SKIP EDIT('┆
0x3ac8a…3ac8f 20 27 29 28 41 ┆ ')(A┆
0x3ac8f…3acaf (74, 0, 52) aa 33 37 29 29 28 27 2a 2a 2a 20 20 20 20 20 20 20 20 52 45 53 55 4c 54 41 54 aa 5b 4b 4e 49 4e ┆ 37))('*** RESULTAT ÄKNIN┆
0x3acaf…3acb4 47 20 20 20 20 ┆G ┆
0x3acb4…3acd4 (74, 0, 53) aa 20 20 20 2a 2a 2a 27 29 20 20 20 20 20 aa 41 28 37 34 29 29 28 27 53 54 5b 4c 4c 20 49 4e 20 ┆ ***') A(74))('STÄLL IN ┆
0x3acd4…3acd9 50 45 52 46 4f ┆PERFO┆
0x3acd9…3acf9 (74, 0, 54) aa 45 aa 49 4e 47 45 4e 27 29 28 41 28 33 37 29 29 28 27 54 52 59 43 4b 20 53 45 44 41 4e 20 52 ┆ E INGEN')(A(37))('TRYCK SEDAN R┆
0x3acf9…3acfe 45 54 55 52 4e ┆ETURN┆
0x3acfe…3ad1e (74, 0, 55) aa 27 29 28 41 28 33 37 29 29 3b 20 20 20 20 aa 20 20 20 aa 45 54 20 53 4b 49 50 20 4c 49 53 54 ┆ ')(A(37)); ET SKIP LIST┆
0x3ad1e…3ad23 28 53 29 3b 20 ┆(S); ┆
0x3ad23…3ad43 (74, 0, 56) aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 aa 20 20 20 ┆ ┆
0x3ad43…3ad48 20 20 20 20 20 ┆ ┆
0x3ad48…3ad68 (74, 0, 57) aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 aa 41 42 3a 50 55 54 20 ┆ AB:PUT ┆
0x3ad68…3ad6d 46 49 4c 45 28 ┆FILE(┆
0x3ad6d…3ad8d (74, 0, 58) aa 29 53 4b aa 50 20 45 44 49 54 28 27 56 49 4c 4b 45 4e 20 4e 49 56 5d 3f 27 29 28 41 28 33 37 ┆ )SK P EDIT('VILKEN NIVÅ?')(A(37┆
0x3ad8d…3ad92 29 29 20 20 20 ┆)) ┆
0x3ad92…3adb2 (74, 0, 59) aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 aa 20 20 20 20 20 20 20 20 20 20 20 aa 27 31 ┆ '1┆
0x3adb2…3adb7 20 2d 20 45 4e ┆ - EN┆
0x3adb7…3add7 (74, 0, 60) aa 41 53 54 20 4b 4f 4e 54 4f 4b 4c 41 53 53 27 29 28 41 28 33 37 29 29 28 27 32 20 2d 20 aa 45 ┆ AST KONTOKLASS')(A(37))('2 - E┆
0x3add7…3addc 52 20 4b 4f 4e ┆R KON┆
0x3addc…3adfc (74, 0, 61) aa 4f 47 52 55 50 50 27 29 28 41 28 33 37 29 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ OGRUPP')(A(37)) ┆
0x3adfc…3ae01 20 20 aa 27 33 ┆ '3┆
0x3ae01…3ae21 (74, 0, 62) aa 2d 20 50 45 52 aa 4b 4f 4e 54 4f 20 28 33 2d 53 49 46 46 52 49 47 54 29 27 29 28 41 28 33 37 ┆ - PER KONTO (3-SIFFRIGT)')(A(37┆
0x3ae21…3ae26 29 29 20 20 20 ┆)) ┆
0x3ae26…3ae46 (74, 0, 63) aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 aa 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3ae46…3ae4b 20 20 20 20 20 ┆ ┆
0x3ae4b…3ae6b (74, 0, 64) aa 20 aa 27 34 20 2d 20 50 45 52 20 55 4e 44 45 52 4b 4f 4e 54 4f 20 28 34 2d 53 49 46 46 52 49 ┆ '4 - PER UNDERKONTO (4-SIFFRI┆
0x3ae6b…3ae70 aa 54 29 27 29 ┆ T)')┆
0x3ae70…3ae90 (74, 0, 65) aa 41 28 33 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(35)); ┆
0x3ae90…3ae95 20 20 20 20 20 ┆ ┆
0x3ae95…3aeb5 (74, 0, 66) aa 20 20 20 20 20 20 aa aa 54 20 53 4b 49 50 20 4c 49 53 54 28 4e 49 29 3b 49 46 20 4e 49 3c 31 ┆ T SKIP LIST(NI);IF NI<1┆
0x3aeb5…3aeba 7c 4e 49 3e 34 ┆öNI>4┆
0x3aeba…3aeda (75, 0, 0) 4b 4f 4e 54 4f 20 3a 20 78 78 78 78 20 20 54 59 50 3a 63 20 28 41 3d 54 45 58 54 2c 42 3d 42 55 ┆KONTO : xxxx TYP:c (A=TEXT,B=BU┆
0x3aeda…3aedf 44 47 29 20 20 ┆DG) ┆
0x3aedf…3aeff (75, 0, 1) 4b 4f 4e 54 4f 20 3a 20 63 63 63 63 20 20 28 56 5b 4e 53 54 45 52 53 54 2e 29 20 20 20 20 20 20 ┆KONTO : cccc (VÄNSTERST.) ┆
0x3aeff…3af04 20 20 20 20 20 ┆ ┆
0x3af04…3af24 (75, 0, 2) 54 45 58 54 20 20 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 ┆TEXT : ┆
0x3af24…3af29 20 20 20 20 20 ┆ ┆
0x3af29…3af49 (75, 0, 3) 20 20 20 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ ccccccccccccccccccccccccccccc┆
0x3af49…3af4e 63 63 63 63 63 ┆ccccc┆
0x3af4e…3af6e (75, 0, 4) 49 42 20 20 20 20 3a 20 78 78 78 78 78 78 78 78 78 78 78 78 78 20 20 20 20 20 20 20 20 20 20 20 ┆IB : xxxxxxxxxxxxx ┆
0x3af6e…3af73 20 20 20 20 20 ┆ ┆
0x3af73…3af93 (75, 0, 5) 78 78 78 78 78 78 78 78 78 78 78 78 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆xxxxxxxxxxxx ┆
0x3af93…3af98 20 20 20 20 20 ┆ ┆
0x3af98…3afb8 (75, 0, 6) aa 20 20 20 20 20 20 20 20 20 78 78 78 78 78 78 78 78 78 78 78 20 20 78 78 78 78 78 78 78 78 78 ┆ xxxxxxxxxxx xxxxxxxxx┆
0x3afb8…3afbd 78 78 20 20 20 ┆xx ┆
0x3afbd…3afdd (75, 0, 7) aa 5d 4e 20 4b 52 45 20 3a 20 78 78 78 78 78 78 78 78 78 78 78 20 20 78 78 78 78 78 78 78 78 78 ┆ ÅN KRE : xxxxxxxxxxx xxxxxxxxx┆
0x3afdd…3afe2 78 78 20 20 20 ┆xx ┆
0x3afe2…3b002 (75, 0, 8) aa 20 20 20 20 20 20 20 20 20 78 78 78 78 78 78 78 78 78 78 78 20 20 78 78 78 78 78 78 78 78 78 ┆ xxxxxxxxxxx xxxxxxxxx┆
0x3b002…3b007 78 78 20 20 20 ┆xx ┆
0x3b007…3b027 (75, 0, 9) aa 20 20 20 20 20 20 20 20 20 78 78 78 78 78 78 78 78 78 78 78 20 20 78 78 78 78 78 78 78 78 78 ┆ xxxxxxxxxxx xxxxxxxxx┆
0x3b027…3b02c 78 78 20 20 20 ┆xx ┆
0x3b02c…3b04c (75, 0, 10) aa 20 20 20 20 20 20 20 20 20 78 78 78 78 78 78 78 78 78 78 78 20 20 78 78 78 78 78 78 78 78 78 ┆ xxxxxxxxxxx xxxxxxxxx┆
0x3b04c…3b051 78 78 20 20 20 ┆xx ┆
0x3b051…3b071 (75, 0, 11) aa 20 20 20 20 20 20 20 20 20 78 78 78 78 78 78 78 78 78 78 78 20 20 78 78 78 78 78 78 78 78 78 ┆ xxxxxxxxxxx xxxxxxxxx┆
0x3b071…3b076 78 78 20 20 20 ┆xx ┆
0x3b076…3b096 (75, 0, 12) aa 20 20 20 20 20 20 20 20 20 78 78 78 78 78 78 78 78 78 78 78 20 20 78 78 78 78 78 78 78 78 78 ┆ xxxxxxxxxxx xxxxxxxxx┆
0x3b096…3b09b 78 78 20 20 20 ┆xx ┆
0x3b09b…3b0bb (75, 0, 13) aa 54 4f 54 58 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 aa 20 20 20 20 20 20 20 20 20 20 20 20 ┆ TOTX; ┆
0x3b0bb…3b0c0 20 20 20 20 20 ┆ ┆
0x3b0c0…3b0e0 (75, 0, 14) aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3b0e0…3b0e5 aa 20 20 43 41 ┆ CA┆
0x3b0e5…3b105 (75, 0, 15) aa 4c 20 53 45 4f 46 28 4e 59 4b 54 4f 54 58 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ L SEOF(NYKTOTX); ┆
0x3b105…3b10a 20 20 20 20 20 ┆ ┆
0x3b10a…3b12a (75, 0, 16) aa 20 20 20 20 20 20 20 aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3b12a…3b12f 20 20 20 20 20 ┆ ┆
0x3b12f…3b14f (75, 0, 17) aa 20 20 49 46 20 55 4e 53 50 45 43 28 4e 59 4b 54 4f 54 58 29 aa 30 20 54 48 45 4e 20 47 4f 54 ┆ IF UNSPEC(NYKTOTX) 0 THEN GOT┆
0x3b14f…3b154 4f 20 55 54 3b ┆O UT;┆
0x3b154…3b174 (75, 0, 18) aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3b174…3b179 20 20 aa 20 20 ┆ ┆
0x3b179…3b199 (75, 0, 19) aa 20 20 20 20 20 20 20 55 4e 53 50 45 43 28 4e 59 4b 54 4f 54 58 29 3d 30 3b 20 20 20 20 20 20 ┆ UNSPEC(NYKTOTX)=0; ┆
0x3b199…3b19e 20 20 20 20 20 ┆ ┆
0x3b19e…3b1be (75, 0, 20) aa 20 20 20 20 20 20 20 20 20 aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3b1be…3b1c3 20 20 20 20 20 ┆ ┆
0x3b1c3…3b1e3 (75, 0, 21) aa 20 20 20 20 20 20 20 20 20 20 20 20 4f 4e 20 45 52 52 4f 52 20 47 aa 54 4f 20 55 54 3b 20 20 ┆ ON ERROR G TO UT; ┆
0x3b1e3…3b1e8 20 20 20 20 20 ┆ ┆
0x3b1e8…3b208 (75, 0, 22) aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3b208…3b20d 20 20 20 20 aa ┆ ┆
0x3b20d…3b22d (75, 0, 23) aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 41 44 20 4b 45 59 28 27 42 27 29 46 ┆ READ KEY('B')F┆
0x3b22d…3b232 49 4c 45 28 4e ┆ILE(N┆
0x3b232…3b252 (75, 0, 24) aa 4b 54 4f 54 58 29 49 4e 54 4f 28 aa 55 4d 29 4b 45 59 54 4f 28 58 29 3b 20 20 20 20 20 20 20 ┆ KTOTX)INTO( UM)KEYTO(X); ┆
0x3b252…3b257 20 20 20 20 20 ┆ ┆
0x3b257…3b277 (75, 0, 25) aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 55 4e aa 50 45 43 28 4e 59 ┆ UN PEC(NY┆
0x3b277…3b27c 4b 54 4f 54 58 ┆KTOTX┆
0x3b27c…3b29c (75, 0, 26) aa 3d 55 4e 53 50 45 43 28 4e 59 4b 54 4f 54 58 29 2d 31 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆ =UNSPEC(NYKTOTX)-1; ┆
0x3b29c…3b2a1 20 20 20 20 20 ┆ ┆
0x3b2a1…3b2c1 (75, 0, 27) aa aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 4c 4f 53 ┆ CLOS┆
0x3b2c1…3b2c6 45 20 4e 59 4b ┆E NYK┆
0x3b2c6…3b2e6 (75, 0, 28) aa 4f 54 58 3b 20 20 20 20 20 20 20 20 20 aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ OTX; ┆
0x3b2e6…3b2eb 20 20 20 20 20 ┆ ┆
0x3b2eb…3b30b (75, 0, 29) aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 aa 20 20 20 20 ┆ ┆
0x3b30b…3b310 20 49 4e 46 3d ┆ INF=┆
0x3b310…3b330 (75, 0, 30) aa 44 49 53 4b 20 52 20 4b 54 4f 54 58 20 46 44 4b 54 4f 54 58 20 44 49 53 4b 20 52 20 4e 59 4b ┆ DISK R KTOTX FDKTOTX DISK R NYK┆
0x3b330…3b335 54 4f 54 58 20 ┆TOTX ┆
0x3b335…3b355 (75, 0, 31) aa 54 4f aa 58 20 53 4f 52 54 20 4b 54 4f 54 58 20 53 41 4d 53 4f 52 54 27 3b 20 20 20 20 20 20 ┆ TO X SORT KTOTX SAMSORT'; ┆
0x3b355…3b35a 20 20 20 20 20 ┆ ┆
0x3b35a…3b37a (75, 0, 32) aa 43 41 4c 4c 20 4c 4f 41 44 28 49 4e 46 2c 37 aa 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ CALL LOAD(INF,7 ); ┆
0x3b37a…3b37f 20 20 20 20 20 ┆ ┆
0x3b37f…3b39f (75, 0, 33) aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 aa 20 20 ┆ ┆
0x3b39f…3b3a4 20 20 20 20 20 ┆ ┆
0x3b3a4…3b3c4 (75, 0, 34) aa 20 20 20 20 20 47 4f 54 4f 20 53 4c 55 54 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GOTO SLUT; ┆
0x3b3c4…3b3c9 20 20 20 20 20 ┆ ┆
0x3b3c9…3b3e9 (75, 0, 35) aa 20 20 20 20 aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3b3e9…3b3ee 20 20 20 20 20 ┆ ┆
0x3b3ee…3b40e (75, 0, 36) aa 20 20 20 20 20 20 20 20 20 20 55 54 3a 20 20 20 20 aa 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ UT: ┆
0x3b40e…3b413 20 20 20 20 20 ┆ ┆
0x3b413…3b433 (75, 0, 37) aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 aa ┆ ┆
0x3b433…3b438 20 20 20 20 20 ┆ ┆
0x3b438…3b458 (75, 0, 38) aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 4c 55 54 3a 45 4e 44 3b 20 20 20 20 20 20 20 ┆ SLUT:END; ┆
0x3b458…3b45d 20 20 20 20 20 ┆ ┆
0x3b45d…3b47d (75, 0, 39) aa 20 20 20 20 20 20 aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3b47d…3b482 20 20 20 20 20 ┆ ┆
0x3b482…3b4a2 (75, 0, 40) aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 aa aa 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3b4a2…3b4a7 20 20 20 20 20 ┆ ┆
0x3b4a7…3b4c7 (75, 0, 41) aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3b4c7…3b4cc 20 aa 20 20 20 ┆ ┆
0x3b4cc…3b4ec (75, 0, 42) aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 aa 50 45 4e 20 4b ┆ PEN K┆
0x3b4ec…3b4f1 54 4f 54 58 3b ┆TOTX;┆
0x3b4f1…3b511 (75, 0, 43) aa 50 45 4e 20 44 41 54 46 aa 4c 3b 4f 50 45 4e 20 53 41 4d 46 49 4c 3b 20 20 20 20 20 20 20 20 ┆ PEN DATF L;OPEN SAMFIL; ┆
0x3b511…3b516 20 20 20 20 20 ┆ ┆
0x3b516…3b536 (75, 0, 44) aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 aa 20 20 20 20 20 20 20 20 aa ┆ ┆
0x3b536…3b53b 45 41 44 20 46 ┆EAD F┆
0x3b53b…3b55b (75, 0, 45) aa 4c 45 28 44 41 54 46 49 4c 29 49 4e 54 4f 28 44 41 54 52 45 43 29 3b 49 46 20 58 44 41 47 3d ┆ LE(DATFIL)INTO(DATREC);IF XDAG=┆
0x3b55b…3b560 27 58 58 aa 58 ┆'XX X┆
0x3b560…3b580 (75, 0, 46) aa 58 27 20 54 48 45 4e 20 47 4f 20 54 4f 20 53 4c 55 54 54 3b 20 20 20 20 20 20 20 20 20 20 20 ┆ X' THEN GO TO SLUTT; ┆
0x3b580…3b585 20 20 20 20 aa ┆ ┆
0x3b585…3b5a5 (75, 0, 47) aa 47 3d 58 44 41 47 3b 58 44 41 aa 3d 27 58 58 58 58 58 58 27 3b 20 20 20 20 20 20 20 20 20 20 ┆ G=XDAG;XDA ='XXXXXX'; ┆
0x3b5a5…3b5aa 20 20 20 20 20 ┆ ┆
0x3b5aa…3b5ca (75, 0, 48) aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 aa 20 20 20 20 20 20 20 ┆ ┆
0x3b5ca…3b5cf 20 20 20 20 20 ┆ ┆
0x3b5cf…3b5ef (75, 0, 49) aa 20 20 20 aa 45 57 52 49 54 45 20 46 49 4c 45 28 44 41 54 46 49 4c 29 46 52 4f 4d 28 44 41 54 ┆ EWRITE FILE(DATFIL)FROM(DAT┆
0x3b5ef…3b5f4 52 45 43 29 3b ┆REC);┆
0x3b5f4…3b614 (75, 0, 50) aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3b614…3b619 20 20 20 20 20 ┆ ┆
0x3b619…3b639 (75, 0, 51) aa 20 20 20 20 20 20 20 20 aa 55 54 20 aa 49 4c 45 28 44 29 20 53 4b 49 50 20 45 44 49 54 28 27 ┆ UT ILE(D) SKIP EDIT('┆
0x3b639…3b63e 20 27 29 28 41 ┆ ')(A┆
0x3b63e…3b65e (75, 0, 52) aa 33 37 29 29 28 27 2a 2a 2a 20 20 20 20 20 20 20 20 52 45 53 55 4c 54 41 54 aa 5b 4b 4e 49 4e ┆ 37))('*** RESULTAT ÄKNIN┆
0x3b65e…3b663 47 20 20 20 20 ┆G ┆
0x3b663…3b683 (75, 0, 53) aa 20 20 20 2a 2a 2a 27 29 20 20 20 20 20 aa 41 28 37 34 29 29 28 27 53 54 5b 4c 4c 20 49 4e 20 ┆ ***') A(74))('STÄLL IN ┆
0x3b683…3b688 50 45 52 46 4f ┆PERFO┆
0x3b688…3b6a8 (75, 0, 54) aa 45 aa 49 4e 47 45 4e 27 29 28 41 28 33 37 29 29 28 27 54 52 59 43 4b 20 53 45 44 41 4e 20 52 ┆ E INGEN')(A(37))('TRYCK SEDAN R┆
0x3b6a8…3b6ad 45 54 55 52 4e ┆ETURN┆
0x3b6ad…3b6cd (75, 0, 55) aa 27 29 28 41 28 33 37 29 29 3b 20 20 20 20 aa 20 20 20 aa 45 54 20 53 4b 49 50 20 4c 49 53 54 ┆ ')(A(37)); ET SKIP LIST┆
0x3b6cd…3b6d2 28 53 29 3b 20 ┆(S); ┆
0x3b6d2…3b6f2 (75, 0, 56) aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 aa 20 20 20 ┆ ┆
0x3b6f2…3b6f7 20 20 20 20 20 ┆ ┆
0x3b6f7…3b717 (75, 0, 57) aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 aa 41 42 3a 50 55 54 20 ┆ AB:PUT ┆
0x3b717…3b71c 46 49 4c 45 28 ┆FILE(┆
0x3b71c…3b73c (75, 0, 58) aa 29 53 4b aa 50 20 45 44 49 54 28 27 56 49 4c 4b 45 4e 20 4e 49 56 5d 3f 27 29 28 41 28 33 37 ┆ )SK P EDIT('VILKEN NIVÅ?')(A(37┆
0x3b73c…3b741 29 29 20 20 20 ┆)) ┆
0x3b741…3b761 (75, 0, 59) aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 aa 20 20 20 20 20 20 20 20 20 20 20 aa 27 31 ┆ '1┆
0x3b761…3b766 20 2d 20 45 4e ┆ - EN┆
0x3b766…3b786 (75, 0, 60) aa 41 53 54 20 4b 4f 4e 54 4f 4b 4c 41 53 53 27 29 28 41 28 33 37 29 29 28 27 32 20 2d 20 aa 45 ┆ AST KONTOKLASS')(A(37))('2 - E┆
0x3b786…3b78b 52 20 4b 4f 4e ┆R KON┆
0x3b78b…3b7ab (75, 0, 61) aa 4f 47 52 55 50 50 27 29 28 41 28 33 37 29 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ OGRUPP')(A(37)) ┆
0x3b7ab…3b7b0 20 20 aa 27 33 ┆ '3┆
0x3b7b0…3b7d0 (75, 0, 62) aa 2d 20 50 45 52 aa 4b 4f 4e 54 4f 20 28 33 2d 53 49 46 46 52 49 47 54 29 27 29 28 41 28 33 37 ┆ - PER KONTO (3-SIFFRIGT)')(A(37┆
0x3b7d0…3b7d5 29 29 20 20 20 ┆)) ┆
0x3b7d5…3b7f5 (75, 0, 63) aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 aa 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3b7f5…3b7fa 20 20 20 20 20 ┆ ┆
0x3b7fa…3b81a (75, 0, 64) aa 20 aa 27 34 20 2d 20 50 45 52 20 55 4e 44 45 52 4b 4f 4e 54 4f 20 28 34 2d 53 49 46 46 52 49 ┆ '4 - PER UNDERKONTO (4-SIFFRI┆
0x3b81a…3b81f aa 54 29 27 29 ┆ T)')┆
0x3b81f…3b83f (75, 0, 65) aa 41 28 33 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(35)); ┆
0x3b83f…3b844 20 20 20 20 20 ┆ ┆
0x3b844…3b864 (75, 0, 66) aa 20 20 20 20 20 20 aa aa 54 20 53 4b 49 50 20 4c 49 53 54 28 4e 49 29 3b 49 46 20 4e 49 3c 31 ┆ T SKIP LIST(NI);IF NI<1┆
0x3b864…3b869 7c 4e 49 3e 34 ┆öNI>4┆
0x3b869…3b889 (76, 0, 0) 4b 54 4f 3a 78 78 78 78 20 20 54 59 50 3a 63 20 28 41 3d 54 58 54 2c 42 3d 42 55 44 29 20 41 56 ┆KTO:xxxx TYP:c (A=TXT,B=BUD) AV┆
0x3b889…3b88e 44 3a 63 63 63 ┆D:ccc┆
0x3b88e…3b8ae (76, 0, 1) 42 55 44 3a 28 31 30 30 2d 54 41 4c 20 4b 52 4f 4e 4f 52 29 20 20 28 4d 49 4e 55 53 3d 4b 52 45 ┆BUD:(100-TAL KRONOR) (MINUS=KRE┆
0x3b8ae…3b8b3 44 49 54 29 20 ┆DIT) ┆
0x3b8b3…3b8d3 (76, 0, 2) 20 20 20 20 78 78 78 78 78 78 78 20 20 20 78 78 78 78 78 78 78 20 20 20 78 78 78 78 78 78 78 20 ┆ xxxxxxx xxxxxxx xxxxxxx ┆
0x3b8d3…3b8d8 20 20 20 20 20 ┆ ┆
0x3b8d8…3b8f8 (76, 0, 3) 20 20 20 20 78 78 78 78 78 78 78 20 20 20 78 78 78 78 78 78 78 20 20 20 78 78 78 78 78 78 78 20 ┆ xxxxxxx xxxxxxx xxxxxxx ┆
0x3b8f8…3b8fd 20 20 20 20 20 ┆ ┆
0x3b8fd…3b91d (76, 0, 4) 20 20 20 20 78 78 78 78 78 78 78 20 20 20 78 78 78 78 78 78 78 20 20 20 78 78 78 78 78 78 78 20 ┆ xxxxxxx xxxxxxx xxxxxxx ┆
0x3b91d…3b922 20 20 20 20 20 ┆ ┆
0x3b922…3b942 (76, 0, 5) 20 20 20 20 78 78 78 78 78 78 78 20 20 20 78 78 78 78 78 78 78 20 20 20 78 78 78 78 78 78 78 20 ┆ xxxxxxx xxxxxxx xxxxxxx ┆
0x3b942…3b947 20 20 20 20 20 ┆ ┆
0x3b947…3b967 (76, 0, 6) aa 20 20 20 20 20 20 20 20 20 78 78 78 78 78 78 78 78 78 78 78 20 20 78 78 78 78 78 78 78 78 78 ┆ xxxxxxxxxxx xxxxxxxxx┆
0x3b967…3b96c 78 78 20 20 20 ┆xx ┆
0x3b96c…3b98c (76, 0, 7) aa 5d 4e 20 4b 52 45 20 3a 20 78 78 78 78 78 78 78 78 78 78 78 20 20 78 78 78 78 78 78 78 78 78 ┆ ÅN KRE : xxxxxxxxxxx xxxxxxxxx┆
0x3b98c…3b991 78 78 20 20 20 ┆xx ┆
0x3b991…3b9b1 (76, 0, 8) aa 20 20 20 20 20 20 20 20 20 78 78 78 78 78 78 78 78 78 78 78 20 20 78 78 78 78 78 78 78 78 78 ┆ xxxxxxxxxxx xxxxxxxxx┆
0x3b9b1…3b9b6 78 78 20 20 20 ┆xx ┆
0x3b9b6…3b9d6 (76, 0, 9) aa 20 20 20 20 20 20 20 20 20 78 78 78 78 78 78 78 78 78 78 78 20 20 78 78 78 78 78 78 78 78 78 ┆ xxxxxxxxxxx xxxxxxxxx┆
0x3b9d6…3b9db 78 78 20 20 20 ┆xx ┆
0x3b9db…3b9fb (76, 0, 10) aa 20 20 20 20 20 20 20 20 20 78 78 78 78 78 78 78 78 78 78 78 20 20 78 78 78 78 78 78 78 78 78 ┆ xxxxxxxxxxx xxxxxxxxx┆
0x3b9fb…3ba00 78 78 20 20 20 ┆xx ┆
0x3ba00…3ba20 (76, 0, 11) aa 20 20 20 20 20 20 20 20 20 78 78 78 78 78 78 78 78 78 78 78 20 20 78 78 78 78 78 78 78 78 78 ┆ xxxxxxxxxxx xxxxxxxxx┆
0x3ba20…3ba25 78 78 20 20 20 ┆xx ┆
0x3ba25…3ba45 (76, 0, 12) aa 20 20 20 20 20 20 20 20 20 78 78 78 78 78 78 78 78 78 78 78 20 20 78 78 78 78 78 78 78 78 78 ┆ xxxxxxxxxxx xxxxxxxxx┆
0x3ba45…3ba4a 78 78 20 20 20 ┆xx ┆
0x3ba4a…3ba6a (76, 0, 13) aa 54 4f 54 58 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 aa 20 20 20 20 20 20 20 20 20 20 20 20 ┆ TOTX; ┆
0x3ba6a…3ba6f 20 20 20 20 20 ┆ ┆
0x3ba6f…3ba8f (76, 0, 14) aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3ba8f…3ba94 aa 20 20 43 41 ┆ CA┆
0x3ba94…3bab4 (76, 0, 15) aa 4c 20 53 45 4f 46 28 4e 59 4b 54 4f 54 58 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ L SEOF(NYKTOTX); ┆
0x3bab4…3bab9 20 20 20 20 20 ┆ ┆
0x3bab9…3bad9 (76, 0, 16) aa 20 20 20 20 20 20 20 aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3bad9…3bade 20 20 20 20 20 ┆ ┆
0x3bade…3bafe (76, 0, 17) aa 20 20 49 46 20 55 4e 53 50 45 43 28 4e 59 4b 54 4f 54 58 29 aa 30 20 54 48 45 4e 20 47 4f 54 ┆ IF UNSPEC(NYKTOTX) 0 THEN GOT┆
0x3bafe…3bb03 4f 20 55 54 3b ┆O UT;┆
0x3bb03…3bb23 (76, 0, 18) aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3bb23…3bb28 20 20 aa 20 20 ┆ ┆
0x3bb28…3bb48 (76, 0, 19) aa 20 20 20 20 20 20 20 55 4e 53 50 45 43 28 4e 59 4b 54 4f 54 58 29 3d 30 3b 20 20 20 20 20 20 ┆ UNSPEC(NYKTOTX)=0; ┆
0x3bb48…3bb4d 20 20 20 20 20 ┆ ┆
0x3bb4d…3bb6d (76, 0, 20) aa 20 20 20 20 20 20 20 20 20 aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3bb6d…3bb72 20 20 20 20 20 ┆ ┆
0x3bb72…3bb92 (76, 0, 21) aa 20 20 20 20 20 20 20 20 20 20 20 20 4f 4e 20 45 52 52 4f 52 20 47 aa 54 4f 20 55 54 3b 20 20 ┆ ON ERROR G TO UT; ┆
0x3bb92…3bb97 20 20 20 20 20 ┆ ┆
0x3bb97…3bbb7 (76, 0, 22) aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3bbb7…3bbbc 20 20 20 20 aa ┆ ┆
0x3bbbc…3bbdc (76, 0, 23) aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 41 44 20 4b 45 59 28 27 42 27 29 46 ┆ READ KEY('B')F┆
0x3bbdc…3bbe1 49 4c 45 28 4e ┆ILE(N┆
0x3bbe1…3bc01 (76, 0, 24) aa 4b 54 4f 54 58 29 49 4e 54 4f 28 aa 55 4d 29 4b 45 59 54 4f 28 58 29 3b 20 20 20 20 20 20 20 ┆ KTOTX)INTO( UM)KEYTO(X); ┆
0x3bc01…3bc06 20 20 20 20 20 ┆ ┆
0x3bc06…3bc26 (76, 0, 25) aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 55 4e aa 50 45 43 28 4e 59 ┆ UN PEC(NY┆
0x3bc26…3bc2b 4b 54 4f 54 58 ┆KTOTX┆
0x3bc2b…3bc4b (76, 0, 26) aa 3d 55 4e 53 50 45 43 28 4e 59 4b 54 4f 54 58 29 2d 31 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆ =UNSPEC(NYKTOTX)-1; ┆
0x3bc4b…3bc50 20 20 20 20 20 ┆ ┆
0x3bc50…3bc70 (76, 0, 27) aa aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 4c 4f 53 ┆ CLOS┆
0x3bc70…3bc75 45 20 4e 59 4b ┆E NYK┆
0x3bc75…3bc95 (76, 0, 28) aa 4f 54 58 3b 20 20 20 20 20 20 20 20 20 aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ OTX; ┆
0x3bc95…3bc9a 20 20 20 20 20 ┆ ┆
0x3bc9a…3bcba (76, 0, 29) aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 aa 20 20 20 20 ┆ ┆
0x3bcba…3bcbf 20 49 4e 46 3d ┆ INF=┆
0x3bcbf…3bcdf (76, 0, 30) aa 44 49 53 4b 20 52 20 4b 54 4f 54 58 20 46 44 4b 54 4f 54 58 20 44 49 53 4b 20 52 20 4e 59 4b ┆ DISK R KTOTX FDKTOTX DISK R NYK┆
0x3bcdf…3bce4 54 4f 54 58 20 ┆TOTX ┆
0x3bce4…3bd04 (76, 0, 31) aa 54 4f aa 58 20 53 4f 52 54 20 4b 54 4f 54 58 20 53 41 4d 53 4f 52 54 27 3b 20 20 20 20 20 20 ┆ TO X SORT KTOTX SAMSORT'; ┆
0x3bd04…3bd09 20 20 20 20 20 ┆ ┆
0x3bd09…3bd29 (76, 0, 32) aa 43 41 4c 4c 20 4c 4f 41 44 28 49 4e 46 2c 37 aa 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ CALL LOAD(INF,7 ); ┆
0x3bd29…3bd2e 20 20 20 20 20 ┆ ┆
0x3bd2e…3bd4e (76, 0, 33) aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 aa 20 20 ┆ ┆
0x3bd4e…3bd53 20 20 20 20 20 ┆ ┆
0x3bd53…3bd73 (76, 0, 34) aa 20 20 20 20 20 47 4f 54 4f 20 53 4c 55 54 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GOTO SLUT; ┆
0x3bd73…3bd78 20 20 20 20 20 ┆ ┆
0x3bd78…3bd98 (76, 0, 35) aa 20 20 20 20 aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3bd98…3bd9d 20 20 20 20 20 ┆ ┆
0x3bd9d…3bdbd (76, 0, 36) aa 20 20 20 20 20 20 20 20 20 20 55 54 3a 20 20 20 20 aa 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ UT: ┆
0x3bdbd…3bdc2 20 20 20 20 20 ┆ ┆
0x3bdc2…3bde2 (76, 0, 37) aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 aa ┆ ┆
0x3bde2…3bde7 20 20 20 20 20 ┆ ┆
0x3bde7…3be07 (76, 0, 38) aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 4c 55 54 3a 45 4e 44 3b 20 20 20 20 20 20 20 ┆ SLUT:END; ┆
0x3be07…3be0c 20 20 20 20 20 ┆ ┆
0x3be0c…3be2c (76, 0, 39) aa 20 20 20 20 20 20 aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3be2c…3be31 20 20 20 20 20 ┆ ┆
0x3be31…3be51 (76, 0, 40) aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 aa aa 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3be51…3be56 20 20 20 20 20 ┆ ┆
0x3be56…3be76 (76, 0, 41) aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3be76…3be7b 20 aa 20 20 20 ┆ ┆
0x3be7b…3be9b (76, 0, 42) aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 aa 50 45 4e 20 4b ┆ PEN K┆
0x3be9b…3bea0 54 4f 54 58 3b ┆TOTX;┆
0x3bea0…3bec0 (76, 0, 43) aa 50 45 4e 20 44 41 54 46 aa 4c 3b 4f 50 45 4e 20 53 41 4d 46 49 4c 3b 20 20 20 20 20 20 20 20 ┆ PEN DATF L;OPEN SAMFIL; ┆
0x3bec0…3bec5 20 20 20 20 20 ┆ ┆
0x3bec5…3bee5 (76, 0, 44) aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 aa 20 20 20 20 20 20 20 20 aa ┆ ┆
0x3bee5…3beea 45 41 44 20 46 ┆EAD F┆
0x3beea…3bf0a (76, 0, 45) aa 4c 45 28 44 41 54 46 49 4c 29 49 4e 54 4f 28 44 41 54 52 45 43 29 3b 49 46 20 58 44 41 47 3d ┆ LE(DATFIL)INTO(DATREC);IF XDAG=┆
0x3bf0a…3bf0f 27 58 58 aa 58 ┆'XX X┆
0x3bf0f…3bf2f (76, 0, 46) aa 58 27 20 54 48 45 4e 20 47 4f 20 54 4f 20 53 4c 55 54 54 3b 20 20 20 20 20 20 20 20 20 20 20 ┆ X' THEN GO TO SLUTT; ┆
0x3bf2f…3bf34 20 20 20 20 aa ┆ ┆
0x3bf34…3bf54 (76, 0, 47) aa 47 3d 58 44 41 47 3b 58 44 41 aa 3d 27 58 58 58 58 58 58 27 3b 20 20 20 20 20 20 20 20 20 20 ┆ G=XDAG;XDA ='XXXXXX'; ┆
0x3bf54…3bf59 20 20 20 20 20 ┆ ┆
0x3bf59…3bf79 (76, 0, 48) aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 aa 20 20 20 20 20 20 20 ┆ ┆
0x3bf79…3bf7e 20 20 20 20 20 ┆ ┆
0x3bf7e…3bf9e (76, 0, 49) aa 20 20 20 aa 45 57 52 49 54 45 20 46 49 4c 45 28 44 41 54 46 49 4c 29 46 52 4f 4d 28 44 41 54 ┆ EWRITE FILE(DATFIL)FROM(DAT┆
0x3bf9e…3bfa3 52 45 43 29 3b ┆REC);┆
0x3bfa3…3bfc3 (76, 0, 50) aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3bfc3…3bfc8 20 20 20 20 20 ┆ ┆
0x3bfc8…3bfe8 (76, 0, 51) aa 20 20 20 20 20 20 20 20 aa 55 54 20 aa 49 4c 45 28 44 29 20 53 4b 49 50 20 45 44 49 54 28 27 ┆ UT ILE(D) SKIP EDIT('┆
0x3bfe8…3bfed 20 27 29 28 41 ┆ ')(A┆
0x3bfed…3c00d (76, 0, 52) aa 33 37 29 29 28 27 2a 2a 2a 20 20 20 20 20 20 20 20 52 45 53 55 4c 54 41 54 aa 5b 4b 4e 49 4e ┆ 37))('*** RESULTAT ÄKNIN┆
0x3c00d…3c012 47 20 20 20 20 ┆G ┆
0x3c012…3c032 (76, 0, 53) aa 20 20 20 2a 2a 2a 27 29 20 20 20 20 20 aa 41 28 37 34 29 29 28 27 53 54 5b 4c 4c 20 49 4e 20 ┆ ***') A(74))('STÄLL IN ┆
0x3c032…3c037 50 45 52 46 4f ┆PERFO┆
0x3c037…3c057 (76, 0, 54) aa 45 aa 49 4e 47 45 4e 27 29 28 41 28 33 37 29 29 28 27 54 52 59 43 4b 20 53 45 44 41 4e 20 52 ┆ E INGEN')(A(37))('TRYCK SEDAN R┆
0x3c057…3c05c 45 54 55 52 4e ┆ETURN┆
0x3c05c…3c07c (76, 0, 55) aa 27 29 28 41 28 33 37 29 29 3b 20 20 20 20 aa 20 20 20 aa 45 54 20 53 4b 49 50 20 4c 49 53 54 ┆ ')(A(37)); ET SKIP LIST┆
0x3c07c…3c081 28 53 29 3b 20 ┆(S); ┆
0x3c081…3c0a1 (76, 0, 56) aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 aa 20 20 20 ┆ ┆
0x3c0a1…3c0a6 20 20 20 20 20 ┆ ┆
0x3c0a6…3c0c6 (76, 0, 57) aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 aa 41 42 3a 50 55 54 20 ┆ AB:PUT ┆
0x3c0c6…3c0cb 46 49 4c 45 28 ┆FILE(┆
0x3c0cb…3c0eb (76, 0, 58) aa 29 53 4b aa 50 20 45 44 49 54 28 27 56 49 4c 4b 45 4e 20 4e 49 56 5d 3f 27 29 28 41 28 33 37 ┆ )SK P EDIT('VILKEN NIVÅ?')(A(37┆
0x3c0eb…3c0f0 29 29 20 20 20 ┆)) ┆
0x3c0f0…3c110 (76, 0, 59) aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 aa 20 20 20 20 20 20 20 20 20 20 20 aa 27 31 ┆ '1┆
0x3c110…3c115 20 2d 20 45 4e ┆ - EN┆
0x3c115…3c135 (76, 0, 60) aa 41 53 54 20 4b 4f 4e 54 4f 4b 4c 41 53 53 27 29 28 41 28 33 37 29 29 28 27 32 20 2d 20 aa 45 ┆ AST KONTOKLASS')(A(37))('2 - E┆
0x3c135…3c13a 52 20 4b 4f 4e ┆R KON┆
0x3c13a…3c15a (76, 0, 61) aa 4f 47 52 55 50 50 27 29 28 41 28 33 37 29 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ OGRUPP')(A(37)) ┆
0x3c15a…3c15f 20 20 aa 27 33 ┆ '3┆
0x3c15f…3c17f (76, 0, 62) aa 2d 20 50 45 52 aa 4b 4f 4e 54 4f 20 28 33 2d 53 49 46 46 52 49 47 54 29 27 29 28 41 28 33 37 ┆ - PER KONTO (3-SIFFRIGT)')(A(37┆
0x3c17f…3c184 29 29 20 20 20 ┆)) ┆
0x3c184…3c1a4 (76, 0, 63) aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 aa 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3c1a4…3c1a9 20 20 20 20 20 ┆ ┆
0x3c1a9…3c1c9 (76, 0, 64) aa 20 aa 27 34 20 2d 20 50 45 52 20 55 4e 44 45 52 4b 4f 4e 54 4f 20 28 34 2d 53 49 46 46 52 49 ┆ '4 - PER UNDERKONTO (4-SIFFRI┆
0x3c1c9…3c1ce aa 54 29 27 29 ┆ T)')┆
0x3c1ce…3c1ee (76, 0, 65) aa 41 28 33 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(35)); ┆
0x3c1ee…3c1f3 20 20 20 20 20 ┆ ┆
0x3c1f3…3c213 (76, 0, 66) aa 20 20 20 20 20 20 aa aa 54 20 53 4b 49 50 20 4c 49 53 54 28 4e 49 29 3b 49 46 20 4e 49 3c 31 ┆ T SKIP LIST(NI);IF NI<1┆
0x3c213…3c218 7c 4e 49 3e 34 ┆öNI>4┆