|
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 P Q R S V q r
Length: 261333 (0x3fcd5)
Description: Bits:30008654 DDMQ1-0094_Nya_bokforingssystemet_I_LMC_MSAB_COPY_Skriv_BOKRUT_780220_TD
Types: 8" Floppy Disk
| flag | nrec | reclen | rec_trk | t0 | tn | name | artifact |
|---|---|---|---|---|---|---|---|
| 0 | 39 | 79 | 41 | 70 | 70 | ALTA1 | ⟦205ee8252⟧ Q1_Text, reclen=79, q1file |
| 0 | 30 | 255 | 15 | 38 | 40 | BALRÄKN | ⟦725d8e123⟧ Q1_HexDump, reclen=255, q1file |
| 0 | 154 | 79 | 41 | 34 | 37 | BALRÄKN1 | ⟦0636eeabd⟧ Q1_Text, reclen=79, q1file |
| 0 | 24 | 255 | 15 | 7 | 8 | BOKRUT | ⟦4237a520c⟧ Q1_HexDump, reclen=255, q1file |
| 0 | 148 | 79 | 41 | 3 | 6 | BOKRUT1 | ⟦c7d7c4e7c⟧ Q1_Text, reclen=79, q1file |
| 0 | 44 | 79 | 41 | 61 | 64 | BOKSLUT1 | ⟦33437812a⟧ Q1_Text, reclen=79, q1file |
| 0 | 15 | 255 | 15 | 57 | 57 | BUDGIN | ⟦368532b4e⟧ Q1_HexDump, reclen=255, q1file |
| 0 | 81 | 79 | 41 | 55 | 56 | BUDGIN1 | ⟦e7aa78f4b⟧ Q1_Text, reclen=79, q1file |
| 0 | 8 | 255 | 15 | 60 | 60 | BUDGUT | ⟦345d72a9e⟧ Q1_HexDump, reclen=255, q1file |
| 0 | 54 | 79 | 41 | 58 | 59 | BUDGUT1 | ⟦0e9e84d18⟧ Q1_Text, reclen=79, q1file |
| 0 | 9 | 255 | 15 | 1 | 1 | DISK | ⟦98fb93e76⟧ Q1_HexDump, reclen=255, q1file |
| 0 | 22 | 255 | 15 | 31 | 33 | HUVBOK | ⟦2babe8d80⟧ Q1_HexDump, reclen=255, q1file |
| 0 | 148 | 79 | 41 | 26 | 30 | HUVBOK1 | ⟦25a78a7cb⟧ Q1_Text, reclen=79, q1file |
| 0 | 22 | 255 | 15 | 65 | 67 | HUVBOKX | ⟦2babe8d80⟧ Q1_HexDump, reclen=255, q1file |
| 0 | 10 | 255 | 15 | 50 | 51 | IBALIN | ⟦8f0c564a8⟧ Q1_HexDump, reclen=255, q1file |
| 0 | 63 | 79 | 41 | 48 | 49 | IBALIN1 | ⟦8690462cd⟧ Q1_Text, reclen=79, q1file |
| 0 | 6 | 255 | 15 | 54 | 54 | IBALUT | ⟦a6355103f⟧ Q1_HexDump, reclen=255, q1file |
| 0 | 44 | 79 | 41 | 52 | 53 | IBALUT1 | ⟦25a7796b0⟧ Q1_Text, reclen=79, q1file |
| 0 | 34 | 40 | 50 | 0 | 0 | INDEX | ⟦91aaabb57⟧ Q1_HexDump, reclen=40, q1file |
| 0 | 8 | 255 | 15 | 13 | 13 | KOALT | ⟦a92f13dc9⟧ Q1_HexDump, reclen=255, q1file |
| 0 | 52 | 79 | 41 | 11 | 12 | KOALT1 | ⟦fc45bd644⟧ Q1_Text, reclen=79, q1file |
| 0 | 8 | 255 | 15 | 10 | 10 | KOUPP | ⟦8b65e1f3c⟧ Q1_HexDump, reclen=255, q1file |
| 0 | 37 | 79 | 41 | 9 | 9 | KOUPP1 | ⟦b265b5bee⟧ Q1_Text, reclen=79, q1file |
| 0 | 6 | 255 | 15 | 15 | 15 | KOUT | ⟦d9391a196⟧ Q1_HexDump, reclen=255, q1file |
| 0 | 38 | 79 | 41 | 14 | 14 | KOUT1 | ⟦f023376bb⟧ Q1_Text, reclen=79, q1file |
| 0 | 3 | 255 | 15 | 2 | 2 | ⟦e120d8c13⟧ Q1_HexDump, reclen=255, q1file | |
| 0 | 45 | 79 | 41 | 41 | 44 | RESRÄKN1 | ⟦3abd6994d⟧ Q1_Text, reclen=79, q1file |
| 0 | 19 | 79 | 41 | 68 | 68 | SAMÖVER | ⟦28bfa747e⟧ Q1_Text, reclen=79, q1file |
| 0 | 39 | 79 | 41 | 69 | 69 | STRUC | ⟦aff46e301⟧ Q1_Text, reclen=79, q1file |
| 0 | 19 | 255 | 15 | 19 | 20 | VERIFIN | ⟦517a2dc8d⟧ Q1_HexDump, reclen=255, q1file |
| 0 | 101 | 79 | 41 | 16 | 18 | VERIFIN1 | ⟦6fe1e398f⟧ Q1_Text, reclen=79, q1file |
| 0 | 11 | 255 | 15 | 24 | 25 | VERIFUT | ⟦d2de0d0cd⟧ Q1_HexDump, reclen=255, q1file |
| 0 | 50 | 79 | 41 | 21 | 23 | VERIFUT1 | ⟦2eb921b9a⟧ Q1_Text, reclen=79, q1file |
0x00000…00028 (0, 0, 0) Catalog {f0=0x0000, name=»INDEX «, nrec=0x0022, reclen=0x0028, rectrack=0x0032, track0=0x0000, trackn=0x0000}
0x00028…00050 (0, 0, 1) Catalog {f0=0x0000, name=»DISK «, nrec=0x0009, reclen=0x00ff, rectrack=0x000f, track0=0x0001, trackn=0x0001}
0x00050…00078 (0, 0, 2) Catalog {f0=0x0000, name=»PRINT «, nrec=0x0003, reclen=0x00ff, rectrack=0x000f, track0=0x0002, trackn=0x0002}
0x00078…000a0 (0, 0, 3) Catalog {f0=0x0000, name=»BOKRUT1 «, nrec=0x0094, reclen=0x004f, rectrack=0x0029, track0=0x0003, trackn=0x0006}
0x000a0…000c8 (0, 0, 4) Catalog {f0=0x0000, name=»BOKRUT «, nrec=0x0018, reclen=0x00ff, rectrack=0x000f, track0=0x0007, trackn=0x0008}
0x000c8…000f0 (0, 0, 5) Catalog {f0=0x0000, name=»KOUPP1 «, nrec=0x0025, reclen=0x004f, rectrack=0x0029, track0=0x0009, trackn=0x0009}
0x000f0…00118 (0, 0, 6) Catalog {f0=0x0000, name=»KOUPP «, nrec=0x0008, reclen=0x00ff, rectrack=0x000f, track0=0x000a, trackn=0x000a}
0x00118…00140 (0, 0, 7) Catalog {f0=0x0000, name=»KOALT1 «, nrec=0x0034, reclen=0x004f, rectrack=0x0029, track0=0x000b, trackn=0x000c}
0x00140…00168 (0, 0, 8) Catalog {f0=0x0000, name=»KOALT «, nrec=0x0008, reclen=0x00ff, rectrack=0x000f, track0=0x000d, trackn=0x000d}
0x00168…00190 (0, 0, 9) Catalog {f0=0x0000, name=»KOUT1 «, nrec=0x0026, reclen=0x004f, rectrack=0x0029, track0=0x000e, trackn=0x000e}
0x00190…001b8 (0, 0, 10) Catalog {f0=0x0000, name=»KOUT «, nrec=0x0006, reclen=0x00ff, rectrack=0x000f, track0=0x000f, trackn=0x000f}
0x001b8…001e0 (0, 0, 11) Catalog {f0=0x0000, name=»VERIFIN1«, nrec=0x0065, reclen=0x004f, rectrack=0x0029, track0=0x0010, trackn=0x0012}
0x001e0…00208 (0, 0, 12) Catalog {f0=0x0000, name=»VERIFIN «, nrec=0x0013, reclen=0x00ff, rectrack=0x000f, track0=0x0013, trackn=0x0014}
0x00208…00230 (0, 0, 13) Catalog {f0=0x0000, name=»VERIFUT1«, nrec=0x0032, reclen=0x004f, rectrack=0x0029, track0=0x0015, trackn=0x0017}
0x00230…00258 (0, 0, 14) Catalog {f0=0x0000, name=»VERIFUT «, nrec=0x000b, reclen=0x00ff, rectrack=0x000f, track0=0x0018, trackn=0x0019}
0x00258…00280 (0, 0, 15) Catalog {f0=0x0000, name=»HUVBOK1 «, nrec=0x0094, reclen=0x004f, rectrack=0x0029, track0=0x001a, trackn=0x001e}
0x00280…002a8 (0, 0, 16) Catalog {f0=0x0000, name=»HUVBOK «, nrec=0x0016, reclen=0x00ff, rectrack=0x000f, track0=0x001f, trackn=0x0021}
0x002a8…002d0 (0, 0, 17) Catalog {f0=0x0000, name=»BALRÄKN1«, nrec=0x009a, reclen=0x004f, rectrack=0x0029, track0=0x0022, trackn=0x0025}
0x002d0…002f8 (0, 0, 18) Catalog {f0=0x0000, name=»BALRÄKN «, nrec=0x001e, reclen=0x00ff, rectrack=0x000f, track0=0x0026, trackn=0x0028}
0x002f8…00320 (0, 0, 19) Catalog {f0=0x0000, name=»RESRÄKN1«, nrec=0x002d, reclen=0x004f, rectrack=0x0029, track0=0x0029, trackn=0x002c}
0x00320…00348 (0, 0, 20) Catalog {f0=0x0000, name=»RESRÄKN «, nrec=0x0000, reclen=0x00ff, rectrack=0x000f, track0=0x002d, trackn=0x002f}
0x00348…00370 (0, 0, 21) Catalog {f0=0x0000, name=»IBALIN1 «, nrec=0x003f, reclen=0x004f, rectrack=0x0029, track0=0x0030, trackn=0x0031}
0x00370…00398 (0, 0, 22) Catalog {f0=0x0000, name=»IBALIN «, nrec=0x000a, reclen=0x00ff, rectrack=0x000f, track0=0x0032, trackn=0x0033}
0x00398…003c0 (0, 0, 23) Catalog {f0=0x0000, name=»IBALUT1 «, nrec=0x002c, reclen=0x004f, rectrack=0x0029, track0=0x0034, trackn=0x0035}
0x003c0…003e8 (0, 0, 24) Catalog {f0=0x0000, name=»IBALUT «, nrec=0x0006, reclen=0x00ff, rectrack=0x000f, track0=0x0036, trackn=0x0036}
0x003e8…00410 (0, 0, 25) Catalog {f0=0x0000, name=»BUDGIN1 «, nrec=0x0051, reclen=0x004f, rectrack=0x0029, track0=0x0037, trackn=0x0038}
0x00410…00438 (0, 0, 26) Catalog {f0=0x0000, name=»BUDGIN «, nrec=0x000f, reclen=0x00ff, rectrack=0x000f, track0=0x0039, trackn=0x0039}
0x00438…00460 (0, 0, 27) Catalog {f0=0x0000, name=»BUDGUT1 «, nrec=0x0036, reclen=0x004f, rectrack=0x0029, track0=0x003a, trackn=0x003b}
0x00460…00488 (0, 0, 28) Catalog {f0=0x0000, name=»BUDGUT «, nrec=0x0008, reclen=0x00ff, rectrack=0x000f, track0=0x003c, trackn=0x003c}
0x00488…004b0 (0, 0, 29) Catalog {f0=0x0000, name=»BOKSLUT1«, nrec=0x002c, reclen=0x004f, rectrack=0x0029, track0=0x003d, trackn=0x0040}
0x004b0…004d8 (0, 0, 30) Catalog {f0=0x0000, name=»HUVBOKX «, nrec=0x0016, reclen=0x00ff, rectrack=0x000f, track0=0x0041, trackn=0x0043}
0x004d8…00500 (0, 0, 31) Catalog {f0=0x0000, name=»SAMÖVER «, nrec=0x0013, reclen=0x004f, rectrack=0x0029, track0=0x0044, trackn=0x0044}
0x00500…00528 (0, 0, 32) Catalog {f0=0x0000, name=»STRUC «, nrec=0x0027, reclen=0x004f, rectrack=0x0029, track0=0x0045, trackn=0x0045}
0x00528…00550 (0, 0, 33) Catalog {f0=0x0000, name=»ALTA1 «, nrec=0x0027, reclen=0x004f, rectrack=0x0029, track0=0x0046, trackn=0x0046}
0x00550…00570 (0, 0, 34) 09 00 01 20 20 20 20 20 20 20 09 00 ff 00 0f 01 fc 00 fc 00 00 00 08 00 00 00 00 00 00 00 00 00 ┆ ┆
0x00570…00578 00 00 00 00 00 00 00 00 ┆ ┆
0x00578…00598 (0, 0, 35) 09 00 01 20 20 20 20 20 20 20 09 00 ff 00 0f 01 ff 00 ff 00 00 00 08 00 00 00 00 00 00 00 00 00 ┆ ┆
0x00598…005a0 00 00 00 00 00 00 00 00 ┆ ┆
0x005a0…005c0 (0, 0, 36) 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 ┆ ┆
0x005c0…005c8 00 00 00 00 00 00 00 00 ┆ ┆
0x005c8…005e8 (0, 0, 37) bb 46 00 1d 46 74 00 1c 0b b9 00 00 46 c0 0b c0 46 15 43 5d 02 02 00 00 00 00 00 00 00 00 00 00 ┆ F Ft F F CÅ ┆
0x005e8…005f0 00 00 00 00 00 00 00 00 ┆ ┆
0x005f0…00610 (0, 0, 38) 42 43 00 32 01 0c 0a 44 0b 00 0a 44 0d 00 17 08 05 0b d7 46 05 1d 00 00 00 00 00 00 00 00 00 00 ┆BC 2 D D F ┆
0x00610…00618 00 00 00 00 00 00 00 00 ┆ ┆
0x00618…00638 (0, 0, 39) 46 74 00 1c 0b d5 46 02 46 dc 0b dc 46 10 44 0f 44 11 00 03 44 0f 00 00 00 00 00 00 00 00 00 00 ┆Ft F F F D D D ┆
0x00638…00640 00 00 00 00 00 00 00 00 ┆ ┆
0x00640…00660 (0, 0, 40) 00 44 00 00 0c 0a 32 01 0b f0 46 27 20 44 0f 44 0f 00 32 01 0a 03 00 00 00 00 00 00 00 00 00 00 ┆ D 2 F' D D 2 ┆
0x00660…00668 00 00 00 00 00 00 00 00 ┆ ┆
0x00668…00688 (0, 0, 41) 46 e2 00 43 77 44 0f 00 32 01 0e 0a 32 01 43 5e 44 0f 00 32 01 0e 00 00 00 00 00 00 00 00 00 00 ┆F CwD 2 2 C^D 2 ┆
0x00688…00690 00 00 00 00 00 00 00 00 ┆ ┆
0x00690…006b0 (0, 0, 42) 0a 32 00 06 46 f1 1c 0b ec 46 04 47 17 46 fd 0b 17 47 4b 43 77 43 00 00 00 00 00 00 00 00 00 00 ┆ 2 F F G F GKCwC ┆
0x006b0…006b8 00 00 00 00 00 00 00 00 ┆ ┆
0x006b8…006d8 (0, 0, 43) 5d 02 00 42 1a 16 32 01 0e 0a 32 01 44 15 32 01 06 43 91 32 19 43 00 00 00 00 00 00 00 00 00 00 ┆Å B 2 2 D 2 C 2 C ┆
0x006d8…006e0 00 00 00 00 00 00 00 00 ┆ ┆
0x006e0…00700 (0, 0, 44) 6d 2d 00 15 00 27 32 0d 32 01 2a 44 15 32 01 44 16 00 28 44 18 32 00 00 00 00 00 00 00 00 00 00 ┆m- '2 2 *D 2 D (D 2 ┆
0x00700…00708 00 00 00 00 00 00 00 00 ┆ ┆
0x00708…00728 (0, 0, 45) 25 44 00 00 28 44 3f 32 16 44 16 00 28 44 55 32 13 44 16 00 28 23 00 00 00 00 00 00 00 00 00 00 ┆%D (D?2 D (DU2 D (# ┆
0x00728…00730 00 00 00 00 00 00 00 00 ┆ ┆
0x00730…00750 (0, 0, 46) 43 c1 00 01 25 15 00 00 0b 62 47 73 00 27 32 0d 32 01 2a 44 04 43 00 00 00 00 00 00 00 00 00 00 ┆C % bGs '2 2 *D C ┆
0x00750…00758 00 00 00 00 00 00 00 00 ┆ ┆
0x00758…00778 (0, 0, 47) 8f 00 00 17 05 01 41 43 c2 44 68 00 19 17 05 02 42 43 c4 43 8f 00 00 00 00 00 00 00 00 00 00 00 ┆ AC Dh BC C ┆
0x00778…00780 00 00 00 00 00 00 00 00 ┆ ┆
0x00780…007a0 (0, 0, 48) 19 17 00 03 43 43 c7 44 11 00 19 17 05 01 41 43 ce 43 8f 00 19 17 00 00 00 00 00 00 00 00 00 00 ┆ CC D AC C ┆
0x007a0…007a8 00 00 00 00 00 00 00 00 ┆ ┆
0x007a8…007c8 (0, 0, 49) 05 07 00 43 d5 43 8f 00 19 17 05 07 46 43 dc 43 8f 00 19 17 05 07 00 00 00 00 00 00 00 00 00 00 ┆ C C FC C ┆
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]
[…0x93…]
0x0535e…0537e (6, 0, 25) 27 53 4f 52 54 20 53 41 4d 46 49 4c 20 56 45 52 53 4f 52 54 20 27 3b 41 4e 54 3d 34 32 3b 45 4e ┆'SORT SAMFIL VERSORT ';ANT=42;EN┆
0x0537e…0539e 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 20 20 ┆D; ┆
0x0539e…053ad 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x053ad…053cd (6, 0, 26) 45 4c 53 45 20 44 4f 3b 49 4e 46 4f 28 31 29 3d 27 27 3b 45 4e 44 3b 20 20 20 20 20 20 20 20 20 ┆ELSE DO;INFO(1)='';END; ┆
0x053cd…053ed 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x053ed…053fc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x053fc…0541c (6, 0, 27) 49 4e 46 3d 49 4e 46 4f 28 31 29 20 43 41 54 20 27 42 55 44 47 55 54 0d 27 3b 41 4e 54 3d 41 4e ┆INF=INFO(1) CAT 'BUDGUT ';ANT=AN┆
0x0541c…0543c 54 2b 37 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 ┆T+7; ┆
0x0543c…0544b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0544b…0546b (6, 0, 28) 53 4f 52 54 4b 4f 44 28 31 33 29 3d 27 4b 27 3b 52 45 57 52 49 54 45 20 46 49 4c 45 28 44 41 54 ┆SORTKOD(13)='K';REWRITE FILE(DAT┆
0x0546b…0548b 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 20 ┆FIL)FROM(DATREC); ┆
0x0548b…0549a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0549a…054ba (6, 0, 29) 43 41 4c 4c 20 54 59 50 49 53 54 28 49 4e 46 2c 41 4e 54 29 3b 47 4f 20 54 4f 20 55 54 3b 20 20 ┆CALL TYPIST(INF,ANT);GO TO UT; ┆
0x054ba…054da 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x054da…054e9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x054e9…05509 (6, 0, 30) 41 31 33 3a 43 41 4c 4c 20 54 59 50 49 53 54 28 27 42 4f 4b 53 4c 55 54 0d 27 2c 38 29 3b 47 4f ┆A13:CALL TYPIST('BOKSLUT ',8);GO┆
0x05509…05529 20 54 4f 20 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 ┆ TO UT; ┆
0x05529…05538 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x05538…05558 (6, 0, 31) 41 31 34 3a 47 4f 20 54 4f 20 55 54 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆A14:GO TO UT; ┆
0x05558…05578 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x05578…05587 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x05587…055a7 (6, 0, 32) 41 31 35 3a 47 4f 20 54 4f 20 4c 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆A15:GO TO L0; ┆
0x055a7…055c7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x055c7…055d6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x055d6…055f6 (6, 0, 33) 41 31 36 3a 47 4f 20 54 4f 20 4c 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆A16:GO TO L0; ┆
0x055f6…05616 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x05616…05625 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x05625…05645 (6, 0, 34) 41 31 37 3a 47 4f 20 54 4f 20 4c 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆A17:GO TO L0; ┆
0x05645…05665 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x05665…05674 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x05674…05694 (6, 0, 35) 41 31 38 3a 47 4f 20 54 4f 20 4c 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆A18:GO TO L0; ┆
0x05694…056b4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x056b4…056c3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x056c3…056e3 (6, 0, 36) 41 31 39 3a 47 4f 20 54 4f 20 4c 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆A19:GO TO L0; ┆
0x056e3…05703 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x05703…05712 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x05712…05732 (6, 0, 37) 41 32 30 3a 47 4f 20 54 4f 20 4c 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆A20:GO TO L0; ┆
0x05732…05752 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x05752…05761 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x05761…05781 (6, 0, 38) 41 32 31 3a 47 4f 20 54 4f 20 4c 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆A21:GO TO L0; ┆
0x05781…057a1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x057a1…057b0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x057b0…057d0 (6, 0, 39) 41 32 32 3a 47 4f 20 54 4f 20 4c 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆A22:GO TO L0; ┆
0x057d0…057f0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x057f0…057ff 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x057ff…0581f (6, 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; ┆
0x0581f…0583f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0583f…0584e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0584e…0594d (7, 0, 0) DataSector[0xff]
[…0x17…]
0x07036…07056 (8, 0, 9) 0d ee 58 1e 42 10 42 12 00 2a 10 42 eb 2a 12 42 4e eb f3 7e 23 c5 e5 cd 33 00 e1 c1 0d c2 fd 58 ┆ X B B * B * BN ~# 3 X┆
0x07056…07076 fb c9 00 0c 43 4c 50 4f 4e 20 20 20 20 03 00 03 00 00 43 4c 50 4f 46 46 20 20 20 03 00 03 00 1f ┆ CLPON CLPOFF ┆
0x07076…07096 43 43 4c 45 45 52 20 20 20 04 00 04 00 00 43 42 53 58 20 20 20 20 20 05 00 0f 00 00 43 41 54 4f ┆CCLEER CBSX CATO┆
0x07096…070b6 45 20 20 20 20 0f 00 10 00 10 43 45 54 4f 41 20 20 20 20 0f 00 10 00 00 43 42 53 43 20 20 20 20 ┆E CETOA CBSC ┆
0x070b6…070d6 20 11 00 1a 00 00 43 4b 45 59 46 55 4e 20 20 1b 00 1b 00 1a 43 53 45 4f 46 20 20 20 20 1b 00 1b ┆ CKEYFUN CSEOF ┆
0x070d6…070f6 00 7f 43 4d 55 4c 54 49 20 20 20 1c 00 1c 00 09 43 55 4e 4d 55 4c 54 49 20 1c 00 1c 00 77 43 43 ┆ CMULTI CUNMULTI wCC┆
0x070f6…07116 48 4f 4f 53 45 20 20 1d 00 1d 00 00 43 4f 55 54 50 55 54 20 20 1e 00 1e 00 00 43 4b 46 49 4c 45 ┆HOOSE COUTPUT CKFILE┆
0x07116…07135 20 20 20 1f 00 1f 00 00 43 43 4c 45 45 52 20 20 20 20 00 20 00 00 43 00 00 00 00 00 00 1f 02 ┆ CCLEER C ┆
0x07135…07234 (8, 0, 10) 0x00[0xff]
[…0x4…]
0x07630…0767f (9, 0, 0) DataSector[0x4f]
[…0x24…]
0x0819b…081ea (9, 0, 37) 0x00[0x4f]
[…0x3…]
0x082d7…083d6 (10, 0, 0) DataSector[0xff]
[…0x7…]
0x08acf…08bce (10, 0, 8) 0x00[0xff]
[…0x6…]
0x091c8…09217 (11, 0, 0) DataSector[0x4f]
[…0x33…]
0x0a1d4…0a223 (12, 0, 11) 0x00[0x4f]
[…0x1d…]
0x0ab16…0ac15 (13, 0, 0) DataSector[0xff]
[…0x7…]
0x0b30e…0b40d (13, 0, 8) 0x00[0xff]
[…0x6…]
0x0ba07…0ba56 (14, 0, 0) DataSector[0x4f]
[…0x25…]
0x0c5c1…0c610 (14, 0, 38) 0x00[0x4f]
[…0x2…]
0x0c6ae…0c7ad (15, 0, 0) DataSector[0xff]
[…0x5…]
0x0cca8…0cda7 (15, 0, 6) 0x00[0xff]
[…0x8…]
0x0d59f…0d5ee (16, 0, 0) DataSector[0x4f]
[…0x64…]
0x0f4ca…0f519 (18, 0, 19) 0x00[0x4f]
[…0x15…]
0x0fb94…0fc93 (19, 0, 0) DataSector[0xff]
[…0x12…]
0x10e81…10f80 (20, 0, 4) 0x00[0xff]
[…0xa…]
0x11976…119c5 (21, 0, 0) DataSector[0x4f]
[…0x31…]
0x128e4…12933 (22, 0, 9) 0x00[0x4f]
[…0x48…]
0x13f6b…1406a (24, 0, 0) DataSector[0xff]
[…0xa…]
0x14a60…14b5f (24, 0, 11) 0x00[0xff]
[…0x12…]
0x15d4d…15d9c (26, 0, 0) DataSector[0x4f]
[…0x93…]
0x18af9…18b19 (29, 0, 25) 47 4f 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 ┆GO TO PRT; ┆
0x18b19…18b39 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18b39…18b48 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18b48…18b68 (29, 0, 26) 4e 59 4b 4f 3a 4a 55 4d 50 3d 34 3b 49 46 20 52 41 44 3c 31 32 20 54 48 45 4e 20 47 4f 20 54 4f ┆NYKO:JUMP=4;IF RAD<12 THEN GO TO┆
0x18b68…18b88 20 52 55 42 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ RUB; ┆
0x18b88…18b97 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18b97…18bb7 (29, 0, 27) 49 46 20 58 4b 4f 7f 3d 31 32 31 30 26 58 4b 4f 3c 33 30 30 30 26 52 45 47 3d 31 20 54 48 45 4e ┆IF XKO =1210&XKO<3000®=1 THEN┆
0x18bb7…18bd7 20 44 4f 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 ┆ DO; ┆
0x18bd7…18be6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18be6…18c06 (29, 0, 28) 53 4b 4f 3d 58 4b 4f 3b 53 41 56 44 3d 30 3b 53 50 52 4f 4a 3d 30 3b 53 4d 4e 52 3d 4d 4e 52 3b ┆SKO=XKO;SAVD=0;SPROJ=0;SMNR=MNR;┆
0x18c06…18c26 42 55 44 3d 27 20 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 ┆BUD=' '; ┆
0x18c26…18c35 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18c35…18c55 (29, 0, 29) 49 46 20 4e 59 52 45 47 3d 31 20 54 48 45 4e 20 47 4f 20 54 4f 20 57 52 4b 3b 20 20 20 20 20 20 ┆IF NYREG=1 THEN GO TO WRK; ┆
0x18c55…18c75 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18c75…18c84 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18c84…18ca4 (29, 0, 30) 4f 4e 20 45 52 52 4f 52 20 47 4f 20 54 4f 20 57 52 4b 3b 52 45 41 44 20 4b 45 59 28 53 53 54 52 ┆ON ERROR GO TO WRK;READ KEY(SSTR┆
0x18ca4…18cc4 29 46 49 4c 45 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 ┆)FILE(SAMFIL)INTO(SAM); ┆
0x18cc4…18cd3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18cd3…18cf3 (29, 0, 31) 53 41 44 3d 4b 44 3b 53 41 4b 3d 4b 4b 3b 48 4a 4b 4f 44 3d 27 20 27 3b 20 20 20 20 20 20 20 20 ┆SAD=KD;SAK=KK;HJKOD=' '; ┆
0x18cf3…18d13 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18d13…18d22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18d22…18d42 (29, 0, 32) 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 29 3b 47 4f ┆REWRITE FILE(SAMFIL)FROM(SAM);GO┆
0x18d42…18d62 20 54 4f 20 4b 4b 4c 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 ┆ TO KKLAR; ┆
0x18d62…18d71 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18d71…18d91 (29, 0, 33) 57 52 4b 3a 55 4e 53 50 45 43 28 53 41 4d 46 49 4c 29 3d 30 3b 43 41 4c 4c 20 53 45 4f 46 28 53 ┆WRK:UNSPEC(SAMFIL)=0;CALL SEOF(S┆
0x18d91…18db1 41 4d 46 49 4c 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 ┆AMFIL); ┆
0x18db1…18dc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18dc0…18de0 (29, 0, 34) 53 41 44 3d 4b 44 3b 53 41 4b 3d 4b 4b 3b 48 4a 4b 4f 44 3d 27 20 27 3b 20 20 20 20 20 20 20 20 ┆SAD=KD;SAK=KK;HJKOD=' '; ┆
0x18de0…18e00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18e00…18e0f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18e0f…18e2f (29, 0, 35) 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 29 3b 43 4c 4f 53 ┆WRITE FILE(SAMFIL)FROM(SAM);CLOS┆
0x18e2f…18e4f 45 20 53 41 4d 46 49 4c 3b 4f 50 45 4e 20 53 41 4d 46 49 4c 3b 45 4e 44 3b 20 20 20 20 20 20 20 ┆E SAMFIL;OPEN SAMFIL;END; ┆
0x18e4f…18e5e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18e5e…18e7e (29, 0, 36) 4b 4b 4c 41 52 3a 4f 4e 20 45 52 52 4f 52 20 47 4f 20 54 4f 20 45 4a 54 58 54 3b 52 45 41 44 20 ┆KKLAR:ON ERROR GO TO EJTXT;READ ┆
0x18e7e…18e9e 4b 45 59 28 58 4b 4f 29 46 49 4c 45 28 4b 54 4f 54 58 29 49 4e 54 4f 28 4b 54 4f 29 3b 47 4f 20 ┆KEY(XKO)FILE(KTOTX)INTO(KTO);GO ┆
0x18e9e…18ead 54 4f 20 4b 4f 50 52 54 3b 20 20 20 20 20 20 ┆TO KOPRT; ┆
0x18ead…18ecd (29, 0, 37) 45 4a 54 58 54 3a 54 45 58 54 3d 27 2a 2a 2a 20 4b 4f 4e 54 4f 54 20 53 41 4b 4e 41 53 20 49 20 ┆EJTXT:TEXT='*** KONTOT SAKNAS I ┆
0x18ecd…18eed 4b 4f 4e 54 4f 50 4c 41 4e 45 4e 20 20 20 27 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆KONTOPLANEN '; ┆
0x18eed…18efc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18efc…18f1c (29, 0, 38) 4b 4f 50 52 54 3a 50 55 54 20 53 4b 49 50 20 45 44 49 54 28 58 4b 4f 29 28 41 28 39 29 29 28 54 ┆KOPRT:PUT SKIP EDIT(XKO)(A(9))(T┆
0x18f1c…18f3c 45 58 54 29 28 41 28 33 35 29 29 28 4b 44 29 28 50 43 43 29 28 4b 4b 29 28 50 43 43 29 28 4b 44 ┆EXT)(A(35))(KD)(PCC)(KK)(PCC)(KD┆
0x18f3c…18f4b 2d 4b 4b 29 28 50 43 43 29 20 20 20 20 20 20 ┆-KK)(PCC) ┆
0x18f4b…18f6b (29, 0, 39) 28 4b 49 42 2b 4b 44 2d 4b 4b 29 28 50 43 29 53 4b 49 50 3b 52 41 44 3d 52 41 44 2d 32 3b 20 20 ┆(KIB+KD-KK)(PC)SKIP;RAD=RAD-2; ┆
0x18f6b…18f8b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18f8b…18f9a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18f9a…18fba (29, 0, 40) 54 44 3d 54 44 2b 4b 44 3b 54 4b 3d 54 4b 2b 4b 4b 3b 4b 44 3d 30 3b 4b 4b 3d 30 3b 51 3d 30 3b ┆TD=TD+KD;TK=TK+KK;KD=0;KK=0;Q=0;┆
0x18fba…18fda 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18fda…18fe9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18fe9…19009 (30, 0, 0) 49 46 20 49 4e 44 3d 2d 31 20 54 48 45 4e 20 47 4f 20 54 4f 20 55 54 3b 20 20 20 20 20 20 20 20 ┆IF IND=-1 THEN GO TO UT; ┆
0x19009…19029 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19029…19038 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19038…19058 (30, 0, 1) 47 4f 20 54 4f 20 4e 59 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 NY; ┆
0x19058…19078 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19078…19087 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19087…190d6 (30, 0, 2) 0x20[0x4f]
0x190d6…190f6 (30, 0, 3) 53 49 53 54 41 3a 49 4e 44 3d 2d 31 3b 47 4f 20 54 4f 20 54 45 53 54 32 3b 20 20 20 20 20 20 20 ┆SISTA:IND=-1;GO TO TEST2; ┆
0x190f6…19116 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19116…19125 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19125…19145 (30, 0, 4) 55 54 3a 50 55 54 20 53 4b 49 50 28 32 29 45 44 49 54 28 27 2a 2a 2a 2a 20 54 4f 54 41 4c 54 20 ┆UT:PUT SKIP(2)EDIT('**** TOTALT ┆
0x19145…19165 55 4e 44 45 52 20 4d 5d 4e 41 44 45 4e 3a 27 29 28 41 28 34 31 29 29 28 54 44 29 28 50 43 29 28 ┆UNDER MÅNADEN:')(A(41))(TD)(PC)(┆
0x19165…19174 54 4b 29 28 50 43 29 20 20 20 20 20 20 20 20 ┆TK)(PC) ┆
0x19174…19194 (30, 0, 5) 53 4b 49 50 28 52 41 44 2d 37 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆SKIP(RAD-7); ┆
0x19194…191b4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x191b4…191c3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x191c3…191e3 (30, 0, 6) 53 4c 55 54 54 3a 43 41 4c 4c 20 54 59 50 49 53 54 28 27 42 4f 4b 52 55 54 0d 27 2c 37 29 3b 45 ┆SLUTT:CALL TYPIST('BOKRUT ',7);E┆
0x191e3…19203 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 20 ┆ND; ┆
0x19203…19212 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19212…19232 (30, 0, 7) 52 41 44 3d 52 41 44 2b 32 3b 43 41 4c 4c 20 4e 59 53 49 44 3b 20 20 20 20 20 20 20 20 20 20 20 ┆RAD=RAD+2;CALL NYSID; ┆
0x19232…19252 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19252…19261 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19261…19281 (30, 0, 8) 53 4c 55 54 54 3a 43 41 4c 4c 20 54 59 50 49 53 54 28 27 42 4f 4b 52 55 54 0d 27 2c 37 29 3b 45 ┆SLUTT:CALL TYPIST('BOKRUT ',7);E┆
0x19281…192a1 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 20 ┆ND; ┆
0x192a1…192b0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x192b0…192d0 (30, 0, 9) 52 45 41 44 20 46 49 4c 45 28 56 45 52 46 49 4c 29 49 4e 54 4f 28 56 45 52 29 3b 20 20 20 20 20 ┆READ FILE(VERFIL)INTO(VER); ┆
0x192d0…192f0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x192f0…192ff 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x192ff…1931f (30, 0, 10) 54 45 53 54 32 3a 49 46 20 49 4e 44 3d 2d 31 7c 4b 4f 7f 3d 58 4b 4f 7c 41 56 44 7f 3d 58 41 56 ┆TEST2:IF IND=-1öKO =XKOöAVD =XAV┆
0x1931f…1933f 44 7c 50 52 4f 4a 7f 3d 58 50 52 4f 4a 20 54 48 45 4e 20 47 4f 20 54 4f 20 4e 59 50 52 4f 4a 3b ┆DöPROJ =XPROJ THEN GO TO NYPROJ;┆
0x1933f…1934e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1934e…1936e (30, 0, 11) 47 4f 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 ┆GO TO PRT; ┆
0x1936e…1938e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1938e…1939d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1939d…193ec (30, 0, 12) 0x20[0x4f]
0x193ec…1940c (30, 0, 13) 4e 59 50 52 4f 4a 3a 4a 55 4d 50 3d 32 3b 49 46 20 52 41 44 3e 28 52 41 44 4d 41 58 2d 36 29 20 ┆NYPROJ:JUMP=2;IF RAD>(RADMAX-6) ┆
0x1940c…1942c 54 48 45 4e 20 44 4f 3b 43 41 4c 4c 20 4e 59 53 49 44 3b 47 4f 20 54 4f 20 52 55 42 3b 45 4e 44 ┆THEN DO;CALL NYSID;GO TO RUB;END┆
0x1942c…1943b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆; ┆
0x1943b…1945b (30, 0, 14) 49 46 20 58 4b 4f 3e 32 39 39 39 26 52 45 47 3d 31 20 54 48 45 4e 20 44 4f 3b 20 20 20 20 20 20 ┆IF XKO>2999®=1 THEN DO; ┆
0x1945b…1947b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1947b…1948a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1948a…194aa (30, 0, 15) 53 4b 4f 3d 58 4b 4f 3b 53 41 56 44 3d 58 41 56 44 3b 53 50 52 4f 4a 3d 58 50 52 4f 4a 3b 53 4d ┆SKO=XKO;SAVD=XAVD;SPROJ=XPROJ;SM┆
0x194aa…194ca 4e 52 3d 4d 4e 52 3b 42 55 44 3d 27 20 27 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆NR=MNR;BUD=' '; ┆
0x194ca…194d9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x194d9…194f9 (30, 0, 16) 49 46 20 4e 59 52 45 47 3d 31 20 54 48 45 4e 20 47 4f 20 54 4f 20 57 52 50 3b 20 20 20 20 20 20 ┆IF NYREG=1 THEN GO TO WRP; ┆
0x194f9…19519 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19519…19528 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19528…19548 (30, 0, 17) 4f 4e 20 45 52 52 4f 52 20 47 4f 20 54 4f 20 57 52 50 3b 52 45 41 44 20 4b 45 59 28 53 53 54 52 ┆ON ERROR GO TO WRP;READ KEY(SSTR┆
0x19548…19568 29 46 49 4c 45 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 ┆)FILE(SAMFIL)INTO(SAM); ┆
0x19568…19577 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19577…19597 (30, 0, 18) 53 41 44 3d 50 44 3b 53 41 4b 3d 50 4b 3b 48 4a 4b 4f 44 3d 27 20 27 3b 20 20 20 20 20 20 20 20 ┆SAD=PD;SAK=PK;HJKOD=' '; ┆
0x19597…195b7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x195b7…195c6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x195c6…195e6 (30, 0, 19) 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 29 3b 20 20 ┆REWRITE FILE(SAMFIL)FROM(SAM); ┆
0x195e6…19606 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19606…19615 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19615…19635 (30, 0, 20) 47 4f 20 54 4f 20 50 4b 4c 41 52 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆GO TO PKLAR; ┆
0x19635…19655 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19655…19664 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19664…19684 (30, 0, 21) 57 52 50 3a 55 4e 53 50 45 43 28 53 41 4d 46 49 4c 29 3d 30 3b 43 41 4c 4c 20 53 45 4f 46 28 53 ┆WRP:UNSPEC(SAMFIL)=0;CALL SEOF(S┆
0x19684…196a4 41 4d 46 49 4c 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 ┆AMFIL); ┆
0x196a4…196b3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x196b3…196d3 (30, 0, 22) 53 41 44 3d 50 44 3b 53 41 4b 3d 50 4b 3b 48 4a 4b 4f 44 3d 27 20 27 3b 20 20 20 20 20 20 20 20 ┆SAD=PD;SAK=PK;HJKOD=' '; ┆
0x196d3…196f3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x196f3…19702 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19702…19722 (30, 0, 23) 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 29 3b 43 4c 4f 53 ┆WRITE FILE(SAMFIL)FROM(SAM);CLOS┆
0x19722…19742 45 20 53 41 4d 46 49 4c 3b 4f 50 45 4e 20 53 41 4d 46 49 4c 3b 45 4e 44 3b 20 20 20 20 20 20 20 ┆E SAMFIL;OPEN SAMFIL;END; ┆
0x19742…19751 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19751…19771 (30, 0, 24) 50 4b 4c 41 52 3a 41 44 3d 41 44 2b 50 44 3b 41 4b 3d 41 4b 2b 50 4b 3b 50 44 3d 30 3b 50 4b 3d ┆PKLAR:AD=AD+PD;AK=AK+PK;PD=0;PK=┆
0x19771…19791 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 20 ┆0; ┆
0x19791…197a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x197a0…197c0 (30, 0, 25) 49 46 20 49 4e 44 3d 2d 31 7c 4b 4f 7f 3d 58 4b 4f 7c 41 56 44 7f 3d 58 41 56 44 20 54 48 45 4e ┆IF IND=-1öKO =XKOöAVD =XAVD THEN┆
0x197c0…197e0 20 47 4f 20 54 4f 20 4e 59 41 56 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GO TO NYAVD; ┆
0x197e0…197ef 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x197ef…1980f (30, 0, 26) 47 4f 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 ┆GO TO PRT; ┆
0x1980f…1982f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1982f…1983e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1983e…1988d (30, 0, 27) 0x20[0x4f]
0x1988d…198ad (30, 0, 28) 4e 59 41 56 44 3a 4a 55 4d 50 3d 33 3b 49 46 20 52 41 44 3e 28 52 41 44 4d 41 58 2d 36 29 20 54 ┆NYAVD:JUMP=3;IF RAD>(RADMAX-6) T┆
0x198ad…198cd 48 45 4e 20 44 4f 3b 43 41 4c 4c 20 4e 59 53 49 44 3b 47 4f 20 54 4f 20 52 55 42 3b 45 4e 44 3b ┆HEN DO;CALL NYSID;GO TO RUB;END;┆
0x198cd…198dc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x198dc…198fc (30, 0, 29) 49 46 20 58 4b 4f 3d 4b 4f 26 58 41 56 44 7f 3d 41 56 44 20 54 48 45 4e 20 51 3d 31 3b 20 20 20 ┆IF XKO=KO&XAVD =AVD THEN Q=1; ┆
0x198fc…1991c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1991c…1992b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1992b…1994b (30, 0, 30) 49 46 20 44 45 4c 3d 31 26 51 3d 31 20 54 48 45 4e 20 44 4f 3b 50 55 54 20 53 4b 49 50 20 45 44 ┆IF DEL=1&Q=1 THEN DO;PUT SKIP ED┆
0x1994b…1996b 49 54 28 27 20 20 20 20 20 54 4f 54 41 4c 54 20 41 56 44 27 29 28 41 28 31 36 29 29 28 58 41 56 ┆IT(' TOTALT AVD')(A(16))(XAV┆
0x1996b…1997a 44 29 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆D) ┆
0x1997a…1999a (30, 0, 31) 28 50 27 5a 5a 39 27 2c 58 28 32 33 29 29 28 41 44 29 28 50 43 43 43 29 28 41 4b 29 28 50 43 43 ┆(P'ZZ9',X(23))(AD)(PCCC)(AK)(PCC┆
0x1999a…199ba 43 29 28 41 44 2d 41 4b 29 28 50 43 43 43 29 53 4b 49 50 3b 52 41 44 3d 52 41 44 2b 32 3b 45 4e ┆C)(AD-AK)(PCCC)SKIP;RAD=RAD+2;EN┆
0x199ba…199c9 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆D; ┆
0x199c9…199e9 (30, 0, 32) 49 46 20 58 4b 4f 3d 31 32 31 30 26 52 45 47 3d 31 20 54 48 45 4e 20 44 4f 3b 20 20 20 20 20 20 ┆IF XKO=1210®=1 THEN DO; ┆
0x199e9…19a09 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19a09…19a18 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19a18…19a38 (30, 0, 33) 53 4b 4f 3d 58 4b 4f 3b 53 41 56 44 3d 58 41 56 44 3b 53 50 52 4f 4a 3d 58 50 52 4f 4a 3b 53 4d ┆SKO=XKO;SAVD=XAVD;SPROJ=XPROJ;SM┆
0x19a38…19a58 4e 52 3d 4d 4e 52 3b 42 55 44 3d 27 20 27 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆NR=MNR;BUD=' '; ┆
0x19a58…19a67 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19a67…19a87 (30, 0, 34) 49 46 20 4e 59 52 45 47 3d 31 20 54 48 45 4e 20 47 4f 20 54 4f 20 57 52 41 3b 20 20 20 20 20 20 ┆IF NYREG=1 THEN GO TO WRA; ┆
0x19a87…19aa7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19aa7…19ab6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19ab6…19ad6 (30, 0, 35) 4f 4e 20 45 52 52 4f 52 20 47 4f 20 54 4f 20 57 52 41 3b 52 45 41 44 20 4b 45 59 28 53 53 54 52 ┆ON ERROR GO TO WRA;READ KEY(SSTR┆
0x19ad6…19af6 29 46 49 4c 45 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 ┆)FILE(SAMFIL)INTO(SAM); ┆
0x19af6…19b05 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19b05…19b25 (30, 0, 36) 53 41 44 3d 41 44 3b 53 41 4b 3d 41 4b 3b 48 4a 4b 4f 44 3d 27 20 27 3b 20 20 20 20 20 20 20 20 ┆SAD=AD;SAK=AK;HJKOD=' '; ┆
0x19b25…19b45 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19b45…19b54 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19b54…19b74 (30, 0, 37) 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 29 3b 20 20 ┆REWRITE FILE(SAMFIL)FROM(SAM); ┆
0x19b74…19b94 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19b94…19ba3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19ba3…19bc3 (30, 0, 38) 47 4f 20 54 4f 20 41 4b 4c 41 52 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆GO TO AKLAR; ┆
0x19bc3…19be3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19be3…19bf2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19bf2…19c12 (30, 0, 39) 57 52 41 3a 55 4e 53 50 45 43 28 53 41 4d 46 49 4c 29 3d 30 3b 43 41 4c 4c 20 53 45 4f 46 28 53 ┆WRA:UNSPEC(SAMFIL)=0;CALL SEOF(S┆
0x19c12…19c32 41 4d 46 49 4c 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 ┆AMFIL); ┆
0x19c32…19c41 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19c41…19c61 (30, 0, 40) 53 41 44 3d 41 44 3b 53 41 4b 3d 41 4b 3b 48 4a 4b 4f 44 3d 27 20 27 3b 20 20 20 20 20 20 20 20 ┆SAD=AD;SAK=AK;HJKOD=' '; ┆
0x19c61…19c81 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19c81…19c90 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19c90…19d8f (31, 0, 0) DataSector[0xff]
[…0x15…]
0x1b27a…1b29a (32, 0, 7) 0d b9 54 1e 42 10 42 12 00 2a 10 42 eb 2a 12 42 4e eb f3 7e 23 c5 e5 cd 33 00 e1 c1 0d c2 c8 54 ┆ T B B * B * BN ~# 3 T┆
0x1b29a…1b2ba fb c9 00 0c 43 4c 50 4f 4e 20 20 20 20 03 00 03 00 00 43 4c 50 4f 46 46 20 20 20 03 00 03 00 1f ┆ CLPON CLPOFF ┆
0x1b2ba…1b2da 43 43 4c 45 45 52 20 20 20 04 00 04 00 00 43 42 53 58 20 20 20 20 20 05 00 0f 00 00 43 41 54 4f ┆CCLEER CBSX CATO┆
0x1b2da…1b2fa 45 20 20 20 20 0f 00 10 00 10 43 45 54 4f 41 20 20 20 20 0f 00 10 00 00 43 42 53 43 20 20 20 20 ┆E CETOA CBSC ┆
0x1b2fa…1b31a 20 11 00 1a 00 00 43 4b 45 59 46 55 4e 20 20 1b 00 1b 00 1a 43 53 45 4f 46 20 20 20 20 1b 00 1b ┆ CKEYFUN CSEOF ┆
0x1b31a…1b33a 00 7f 43 4d 55 4c 54 49 20 20 20 1c 00 1c 00 09 43 55 4e 4d 55 4c 54 49 20 1c 00 1c 00 77 43 43 ┆ CMULTI CUNMULTI wCC┆
0x1b33a…1b35a 48 4f 4f 53 45 20 20 1d 00 1d 00 00 43 4f 55 54 50 55 54 20 20 1e 00 1e 00 00 43 4b 46 49 4c 45 ┆HOOSE COUTPUT CKFILE┆
0x1b35a…1b379 20 20 20 1f 00 1f 00 00 43 43 4c 45 45 52 20 20 20 20 00 20 00 00 43 00 00 00 00 00 00 1f 02 ┆ CCLEER C ┆
0x1b379…1b399 (32, 0, 8) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4a 55 4d 50 20 46 49 58 45 44 28 31 29 2c 43 20 43 48 ┆ JUMP FIXED(1),C CH┆
0x1b399…1b3b9 41 52 28 32 30 29 20 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 ┆AR(20) INIT('------------9V.99')┆
0x1b3b9…1b3d9 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 43 20 ┆, CC ┆
0x1b3d9…1b3f9 43 48 41 52 28 32 30 29 49 4e 49 54 28 27 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 39 56 2e 39 39 2a 27 ┆CHAR(20)INIT('-----------9V.99*'┆
0x1b3f9…1b419 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆), ┆
0x1b419…1b439 20 20 20 20 20 20 20 20 20 20 20 20 43 43 43 20 43 48 41 52 28 32 30 29 49 4e 49 54 28 27 2d 2d ┆ CCC CHAR(20)INIT('--┆
0x1b439…1b459 2d 2d 2d 39 56 2e 39 39 25 27 29 2c 43 43 43 43 20 43 48 41 52 28 32 30 29 49 4e 49 54 28 27 2d ┆---9V.99%'),CCCC CHAR(20)INIT('-┆
0x1b459…1b478 2d 2d 2d 39 56 2e 39 39 25 27 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 20 43 48 ┆---9V.99%'), D CH┆
0x1b478…1b498 (32, 0, 9) 41 52 28 34 29 49 4e 49 54 28 27 5a 5a 5a 39 27 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆AR(4)INIT('ZZZ9'), ┆
0x1b498…1b4b8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1b4b8…1b4d8 20 20 20 20 20 20 20 20 20 20 20 4a 20 46 49 58 45 44 28 34 29 2c 4b 20 46 49 58 45 44 28 34 29 ┆ J FIXED(4),K FIXED(4)┆
0x1b4d8…1b4f8 2c 4c 20 46 49 58 45 44 28 34 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆,L FIXED(4); ┆
0x1b4f8…1b518 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
[…0x2…]
0x1b558…1b577 20 20 20 20 20 20 20 20 20 4f 50 45 4e 20 4b 54 4f 54 58 3b 4f 50 45 4e 20 44 41 54 46 49 4c ┆ OPEN KTOTX;OPEN DATFIL┆
0x1b577…1b597 (32, 0, 10) 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 20 20 ┆;OPEN SAMFIL; ┆
0x1b597…1b5b7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 41 44 20 46 49 ┆ READ FI┆
0x1b5b7…1b5d7 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 44 41 47 3d 27 58 ┆LE(DATFIL)INTO(DATREC);IF DAG='X┆
0x1b5d7…1b5f7 58 58 58 58 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 ┆XXXXX' THEN GO TO SLUTT; ┆
0x1b5f7…1b617 20 20 20 20 20 20 20 20 44 4f 20 49 3d 31 20 54 4f 20 31 34 3b 58 53 4b 28 49 29 3d 53 4b 28 49 ┆ DO I=1 TO 14;XSK(I)=SK(I┆
0x1b617…1b637 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 20 20 20 20 20 ┆);END; ┆
0x1b637…1b657 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 57 52 49 54 45 20 46 ┆ REWRITE F┆
0x1b657…1b676 49 4c 45 28 44 41 54 46 49 4c 29 46 52 4f 4d 28 58 44 41 54 52 45 43 29 3b 20 20 20 20 20 20 ┆ILE(DATFIL)FROM(XDATREC); ┆
0x1b676…1b696 (32, 0, 11) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1b696…1b6b6 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 27 20 27 ┆ PUT FILE(D) SKIP EDIT(' '┆
0x1b6b6…1b6d6 29 28 41 28 33 37 29 29 28 27 2a 2a 2a 20 20 20 20 20 20 20 20 20 42 41 4c 41 4e 53 52 5b 4b 4e ┆)(A(37))('*** BALANSRÄKN┆
0x1b6d6…1b6f6 49 4e 47 20 20 20 20 20 20 20 20 20 2a 2a 2a 27 29 20 20 20 20 20 28 41 28 37 34 29 29 28 27 53 ┆ING ***') (A(74))('S┆
0x1b6f6…1b716 54 5b 4c 4c 20 49 4e 20 50 45 52 46 4f 52 45 52 49 4e 47 45 4e 27 29 28 41 28 33 37 29 29 28 27 ┆TÄLL IN PERFORERINGEN')(A(37))('┆
0x1b716…1b736 54 52 59 43 4b 20 53 45 44 41 4e 20 52 45 54 55 52 4e 2e 27 29 28 41 28 33 37 29 29 3b 20 20 20 ┆TRYCK SEDAN RETURN.')(A(37)); ┆
0x1b736…1b756 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 20 20 ┆ GET SKIP LIST(S); ┆
0x1b756…1b775 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1b775…1b795 (32, 0, 12) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 41 42 3a 50 55 54 20 46 49 4c ┆ TAB:PUT FIL┆
0x1b795…1b7b5 45 28 44 29 53 4b 49 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 ┆E(D)SKIP EDIT('VILKEN NIVÅ?')(A(┆
0x1b7b5…1b7d5 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 20 20 20 20 ┆37)) ┆
0x1b7d5…1b7f5 20 20 20 20 28 27 22 31 22 3d 45 4e 44 41 53 54 20 4b 4f 4e 54 4f 4b 4c 41 53 53 27 29 28 41 28 ┆ ('"1"=ENDAST KONTOKLASS')(A(┆
0x1b7f5…1b815 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 20 20 20 20 ┆37)) ┆
0x1b815…1b835 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0b 5b 76 01 06 57 a0 00 19 17 08 05 0b ┆ Äv W ┆
0x1b835…1b855 c1 63 38 1d 58 af 70 38 32 00 70 38 70 38 58 93 02 07 46 58 a1 02 07 46 0d 0b 5b 60 00 19 17 11 ┆ c8 X p82 p8p8X FX F Ä` ┆
0x1b855…1b874 04 08 70 40 1e 01 08 5b 7c 01 02 0b 05 07 46 58 93 02 07 46 58 a1 02 07 46 0d 0b 00 06 45 00 ┆ p@ Äö FX FX F E ┆
0x1b874…1b894 (32, 0, 13) 0b f9 63 07 57 a0 00 19 17 08 01 0b 02 64 0c 1d 58 af 58 af 02 07 46 0d 05 07 46 0b 00 64 02 64 ┆ c W d X X F F d d┆
0x1b894…1b8b4 0e 0b bf 63 02 64 11 0b 11 64 09 5b 7e 57 a0 00 19 17 04 06 0b 0e 64 03 64 1a 1c 0b 1a 64 36 59 ┆ c d d Ä~W d d d6Y┆
0x1b8b4…1b8d4 c1 59 35 02 03 43 5b 60 00 19 17 11 05 03 43 57 f1 02 01 41 5a e7 00 19 17 08 04 59 62 02 01 41 ┆ Y5 CÄ` CW AZ Yb A┆
0x1b8d4…1b8f4 59 cc 00 19 17 08 02 12 59 38 02 02 42 57 a0 00 19 17 08 05 12 0b 52 64 52 1d 59 3a 70 38 32 00 ┆Y Y8 BW RdR Y:p82 ┆
0x1b8f4…1b914 70 38 70 38 58 93 02 07 46 5b 84 00 19 17 0f 57 eb 59 c1 02 03 43 1a 16 32 07 0e 0a 02 07 46 11 ┆p8p8X FÄ W Y C 2 F ┆
0x1b914…1b934 04 08 70 40 1e 01 08 5b 86 01 02 0b 04 06 58 93 02 07 46 57 eb 59 c1 02 03 43 1a 16 32 07 0e 0a ┆ p@ Ä X FW Y C 2 ┆
0x1b934…1b954 02 07 46 0f 57 a0 00 19 17 08 01 0b a6 64 0a 1d 59 3a 59 3a 01 06 0d 04 06 0b a4 64 02 64 b0 0b ┆ F W d Y:Y: d d ┆
0x1b954…1b973 b0 64 1a 15 00 2a 32 0d 32 01 2a 59 35 02 03 43 1a 5a ad 00 28 5b 88 32 14 5b 9c 00 28 00 00 ┆ d *2 2 *Y5 C Z (Ä 2 Ä ( ┆
0x1b973…1b993 (32, 0, 14) 0b ca 64 67 59 38 02 02 42 1a 5b 48 00 28 58 4d 02 07 46 1a 59 67 32 14 29 58 70 02 07 46 1a 59 ┆ dgY8 B ÄH (XM F Yg2 )Xp F Y┆
0x1b993…1b9b3 67 32 14 29 58 93 02 07 46 1a 59 67 32 14 29 59 3a 01 06 1a 59 8f 32 14 29 58 a1 02 07 46 5b 60 ┆g2 )X F Yg2 )Y: Y 2 )X FÄ`┆
0x1b9b3…1b9d3 00 19 17 11 5b 7c 01 02 0b 1a 5b 9e 32 0f 29 58 af 02 07 46 1a 5b ad 32 10 29 57 d3 57 d3 02 02 ┆ Äö Ä 2 )X F Ä 2 )W W ┆
0x1b9d3…1b9f3 42 59 cc 00 19 17 0d 0b 05 02 42 0b 50 64 02 65 31 0b 31 65 87 58 46 58 46 02 07 46 58 4d 02 07 ┆BY B Pd e1 1e XFXF FXM ┆
0x1b9f3…1ba13 46 0b 05 07 46 58 69 58 69 02 07 46 58 70 02 07 46 0b 05 07 46 58 8c 58 8c 02 07 46 58 93 02 07 ┆F FXiXi FXp F FX X FX ┆
0x1ba13…1ba33 46 0b 05 07 46 58 9a 58 9a 02 07 46 58 a1 02 07 46 0b 05 07 46 58 a8 58 a8 02 07 46 58 af 02 07 ┆F FX X FX F FX X FX ┆
0x1ba33…1ba53 46 0b 05 07 46 58 4d 57 a0 00 19 17 05 07 46 58 70 57 a0 00 19 17 05 07 46 58 93 57 a0 00 19 17 ┆F FXMW FXpW FX W ┆
0x1ba53…1ba72 05 07 46 58 a1 57 a0 00 19 17 05 07 46 58 af 57 a0 00 19 17 05 07 46 59 35 02 03 43 00 00 00 ┆ FX W FX W FY5 C ┆
0x1ba72…1ba92 (33, 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*/ ┆
0x1ba92…1bab2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1bab2…1bad2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 42 41 4c 52 5b 4b 4e 20 20 55 54 53 4b 52 49 ┆ /*BALRÄKN UTSKRI┆
0x1bad2…1baf2 46 54 20 41 56 20 42 41 4c 41 4e 53 52 5b 4b 4e 49 4e 47 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆FT AV BALANSRÄKNING ┆
0x1baf2…1bb12 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4b 4c ┆ KL┆
0x1bb12…1bb32 41 52 54 3a 20 58 58 58 58 58 58 20 20 20 50 52 4f 47 52 3a 54 44 20 2a 2f 20 20 20 20 20 20 20 ┆ART: XXXXXX PROGR:TD */ ┆
0x1bb32…1bb52 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1bb52…1bb71 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1bb71…1bb91 (33, 0, 1) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1bb91…1bbb1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 43 4c ┆ DCL┆
0x1bbb1…1bbd1 20 31 20 53 41 4d 31 28 31 35 29 2c 32 20 53 53 54 52 31 2c 33 20 53 4b 4f 31 20 46 49 58 45 44 ┆ 1 SAM1(15),2 SSTR1,3 SKO1 FIXED┆
0x1bbd1…1bbf1 28 34 29 2c 33 20 53 41 56 44 31 20 46 49 58 45 44 28 32 29 2c 33 20 53 50 52 4f 4a 31 20 46 49 ┆(4),3 SAVD1 FIXED(2),3 SPROJ1 FI┆
0x1bbf1…1bc11 58 45 44 28 34 29 2c 20 20 20 20 20 33 20 53 4d 4e 52 31 20 46 49 58 45 44 28 32 29 2c 33 20 42 ┆XED(4), 3 SMNR1 FIXED(2),3 B┆
0x1bc11…1bc31 55 44 31 20 43 48 41 52 28 31 29 2c 32 20 53 41 44 31 20 46 49 58 45 44 28 31 31 2c 32 29 2c 32 ┆UD1 CHAR(1),2 SAD1 FIXED(11,2),2┆
0x1bc31…1bc51 20 53 41 4b 31 20 46 49 58 45 44 28 31 31 2c 32 29 2c 20 20 20 20 20 20 20 20 20 32 20 48 4a 4b ┆ SAK1 FIXED(11,2), 2 HJK┆
0x1bc51…1bc70 4f 44 31 20 43 48 41 52 28 31 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆OD1 CHAR(1); ┆
0x1bc70…1bc90 (33, 0, 2) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1bc90…1bcb0 20 20 20 20 20 20 20 20 20 20 20 44 43 4c 20 31 20 53 41 4d 32 28 32 30 30 29 2c 32 20 53 53 54 ┆ DCL 1 SAM2(200),2 SST┆
0x1bcb0…1bcd0 52 32 2c 33 20 53 4b 4f 32 20 46 49 58 45 44 28 34 29 2c 33 20 53 41 56 44 32 20 46 49 58 45 44 ┆R2,3 SKO2 FIXED(4),3 SAVD2 FIXED┆
0x1bcd0…1bcf0 28 32 29 2c 33 20 53 50 52 4f 4a 32 20 46 49 58 45 44 28 34 29 2c 20 20 20 20 33 20 53 4d 4e 52 ┆(2),3 SPROJ2 FIXED(4), 3 SMNR┆
0x1bcf0…1bd10 32 20 46 49 58 45 44 28 32 29 2c 33 20 42 55 44 32 20 43 48 41 52 28 31 29 2c 32 20 53 41 44 32 ┆2 FIXED(2),3 BUD2 CHAR(1),2 SAD2┆
0x1bd10…1bd30 20 46 49 58 45 44 28 31 31 2c 32 29 2c 32 20 53 41 4b 32 20 46 49 58 45 44 28 31 31 2c 32 29 2c ┆ FIXED(11,2),2 SAK2 FIXED(11,2),┆
0x1bd30…1bd50 20 20 20 20 20 20 20 20 20 32 20 48 4a 4b 4f 44 32 20 43 48 41 52 28 31 29 3b 20 20 20 20 20 20 ┆ 2 HJKOD2 CHAR(1); ┆
0x1bd50…1bd6f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1bd6f…1bd8f (33, 0, 3) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 43 4c 20 31 20 53 ┆ DCL 1 S┆
0x1bd8f…1bdaf 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 33 20 53 41 56 44 20 ┆AM,2 SSTR,3 SKO FIXED(4),3 SAVD ┆
0x1bdaf…1bdcf 46 49 58 45 44 28 32 29 2c 33 20 53 50 52 4f 4a 20 46 49 58 45 44 28 34 29 2c 20 20 20 20 20 20 ┆FIXED(2),3 SPROJ FIXED(4), ┆
0x1bdcf…1bdef 20 20 20 20 20 20 20 20 33 20 53 4d 4e 52 20 46 49 58 45 44 28 32 29 2c 33 20 42 55 44 20 43 48 ┆ 3 SMNR FIXED(2),3 BUD CH┆
0x1bdef…1be0f 41 52 28 31 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 ┆AR(1), ┆
0x1be0f…1be2f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 20 53 41 44 20 46 49 58 ┆ 2 SAD FIX┆
0x1be2f…1be4f 45 44 28 31 31 2c 32 29 2c 32 20 53 41 4b 20 46 49 58 45 44 28 31 31 2c 32 29 2c 32 20 48 4a 4b ┆ED(11,2),2 SAK FIXED(11,2),2 HJK┆
0x1be4f…1be6e 4f 44 20 43 48 41 52 28 31 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆OD CHAR(1); ┆
0x1be6e…1be8e (33, 0, 4) 20 20 20 20 20 20 20 44 43 4c 20 31 20 4b 54 4f 2c 32 20 4b 4f 4e 54 4f 20 46 49 58 45 44 28 34 ┆ DCL 1 KTO,2 KONTO FIXED(4┆
0x1be8e…1beae 29 2c 32 20 54 45 58 54 20 43 48 41 52 28 33 34 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆),2 TEXT CHAR(34); ┆
0x1beae…1bece 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 43 4c 20 31 20 44 41 54 52 ┆ DCL 1 DATR┆
0x1bece…1beee 45 43 2c 32 20 44 41 47 20 43 48 41 52 28 36 29 2c 32 20 4d 4f 4e 20 43 48 41 52 28 33 29 2c 32 ┆EC,2 DAG CHAR(6),2 MON CHAR(3),2┆
0x1beee…1bf0e 20 4d 4e 52 20 46 49 58 45 44 28 32 29 2c 32 20 53 4b 28 31 34 29 20 43 48 41 52 28 31 29 3b 20 ┆ MNR FIXED(2),2 SK(14) CHAR(1); ┆
0x1bf0e…1bf2e 20 20 20 20 20 44 43 4c 20 31 20 58 44 41 54 52 45 43 2c 32 20 58 44 41 47 20 43 48 41 52 28 39 ┆ DCL 1 XDATREC,2 XDAG CHAR(9┆
0x1bf2e…1bf4e 29 2c 32 20 58 4d 4e 52 20 46 49 58 45 44 28 32 29 2c 32 20 58 53 4b 28 31 34 29 20 43 48 41 52 ┆),2 XMNR FIXED(2),2 XSK(14) CHAR┆
0x1bf4e…1bf6d 28 31 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 58 44 41 47 3d 27 58 58 58 58 58 ┆(1); XDAG='XXXXX┆
0x1bf6d…1bf8d (33, 0, 5) 58 20 20 20 27 3b 58 4d 4e 52 3d 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆X ';XMNR=0; ┆
0x1bf8d…1bfad 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1bfad…1bfcd 20 20 20 20 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 ┆ DCL DATFIL FILE,KTOTX FILE,S┆
0x1bfcd…1bfed 20 43 48 41 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 ┆ CHAR(1),RAD FIXED(2),SIDA FIXED┆
0x1bfed…1c00d 28 34 29 2c 49 4e 44 20 46 49 58 45 44 28 31 29 2c 20 20 53 41 4d 46 49 4c 20 46 49 4c 45 2c 4e ┆(4),IND FIXED(1), SAMFIL FILE,N┆
0x1c00d…1c02d 49 20 46 49 58 45 44 28 31 29 2c 4b 4f 4b 4c 54 4f 54 28 39 29 20 46 49 58 45 44 28 31 32 2c 32 ┆I FIXED(1),KOKLTOT(9) FIXED(12,2┆
0x1c02d…1c04d 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆), ┆
0x1c04d…1c06c 20 20 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 ┆ D1 FIXED(13,2),D2 FIXED(13,2)┆
0x1c06c…1c08c (33, 0, 6) 2c 44 33 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 ┆,D3 FIXED(13,2),D4 FIXED(13,2),D┆
0x1c08c…1c0ac 35 20 46 49 58 45 44 28 31 33 2c 32 29 2c 20 20 20 20 4b 31 20 46 49 58 45 44 28 31 33 2c 32 29 ┆5 FIXED(13,2), K1 FIXED(13,2)┆
0x1c0ac…1c0cc 2c 4b 32 20 46 49 58 45 44 28 31 33 2c 32 29 2c 4b 33 20 46 49 58 45 44 28 31 33 2c 32 29 2c 4b ┆,K2 FIXED(13,2),K3 FIXED(13,2),K┆
0x1c0cc…1c0ec 34 20 46 49 58 45 44 28 31 33 2c 32 29 2c 4b 35 20 46 49 58 45 44 28 31 33 2c 32 29 2c 20 20 20 ┆4 FIXED(13,2),K5 FIXED(13,2), ┆
0x1c0ec…1c10c 20 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 ┆ S1 FIXED(13,2),S2 FIXED(13,2),S┆
0x1c10c…1c12c 33 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 ┆3 FIXED(13,2),S4 FIXED(13,2),S5 ┆
0x1c12c…1c14c 46 49 58 45 44 28 31 33 2c 32 29 2c 20 20 20 20 42 34 20 46 49 58 45 44 28 31 33 2c 32 29 2c 42 ┆FIXED(13,2), B4 FIXED(13,2),B┆
0x1c14c…1c16b 35 20 46 49 58 45 44 28 31 33 2c 32 29 2c 44 49 46 34 20 46 49 58 45 44 28 31 33 2c 32 29 2c ┆5 FIXED(13,2),DIF4 FIXED(13,2),┆
0x1c16b…1c18b (33, 0, 7) 44 49 46 35 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 ┆DIF5 FIXED(13,2), ┆
0x1c18b…1c1ab 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┆
0x1c1ab…1c1cb 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,┆
0x1c1cb…1c1eb 32 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 58 4b 4f 20 46 49 58 45 44 28 34 29 2c 58 41 56 44 ┆2), XKO FIXED(4),XAVD┆
0x1c1eb…1c20b 20 46 49 58 45 44 28 32 29 2c 50 45 52 43 20 46 4c 4f 41 54 28 39 29 2c 54 58 54 20 43 48 41 52 ┆ FIXED(2),PERC FLOAT(9),TXT CHAR┆
0x1c20b…1c22b 28 33 34 29 2c 51 20 46 49 58 45 44 28 31 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 ┆(34),Q FIXED(1), RE┆
0x1c22b…1c24b 43 4e 52 20 42 49 4e 41 52 59 2c 44 45 4c 20 46 49 58 45 44 28 31 29 2c 20 20 20 20 20 20 20 20 ┆CNR BINARY,DEL FIXED(1), ┆
0x1c24b…1c26a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1c26a…1c28a (33, 0, 8) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4a 55 4d 50 20 46 49 58 45 44 28 31 29 2c 43 20 43 48 ┆ JUMP FIXED(1),C CH┆
0x1c28a…1c2aa 41 52 28 32 30 29 20 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 ┆AR(20) INIT('------------9V.99')┆
0x1c2aa…1c2ca 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 43 20 ┆, CC ┆
0x1c2ca…1c2ea 43 48 41 52 28 32 30 29 49 4e 49 54 28 27 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 39 56 2e 39 39 2a 27 ┆CHAR(20)INIT('-----------9V.99*'┆
0x1c2ea…1c30a 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆), ┆
0x1c30a…1c32a 20 20 20 20 20 20 20 20 20 20 20 20 43 43 43 20 43 48 41 52 28 32 30 29 49 4e 49 54 28 27 2d 2d ┆ CCC CHAR(20)INIT('--┆
0x1c32a…1c34a 2d 2d 2d 39 56 2e 39 39 25 27 29 2c 43 43 43 43 20 43 48 41 52 28 32 30 29 49 4e 49 54 28 27 2d ┆---9V.99%'),CCCC CHAR(20)INIT('-┆
0x1c34a…1c369 2d 2d 2d 39 56 2e 39 39 25 27 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 20 43 48 ┆---9V.99%'), D CH┆
0x1c369…1c389 (33, 0, 9) 41 52 28 34 29 49 4e 49 54 28 27 5a 5a 5a 39 27 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆AR(4)INIT('ZZZ9'), ┆
0x1c389…1c3a9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1c3a9…1c3c9 20 20 20 20 20 20 20 20 20 20 20 4a 20 46 49 58 45 44 28 34 29 2c 4b 20 46 49 58 45 44 28 34 29 ┆ J FIXED(4),K FIXED(4)┆
0x1c3c9…1c3e9 2c 4c 20 46 49 58 45 44 28 34 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆,L FIXED(4); ┆
0x1c3e9…1c409 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
[…0x2…]
0x1c449…1c468 20 20 20 20 20 20 20 20 20 4f 50 45 4e 20 4b 54 4f 54 58 3b 4f 50 45 4e 20 44 41 54 46 49 4c ┆ OPEN KTOTX;OPEN DATFIL┆
0x1c468…1c488 (33, 0, 10) 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 20 20 ┆;OPEN SAMFIL; ┆
0x1c488…1c4a8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 41 44 20 46 49 ┆ READ FI┆
0x1c4a8…1c4c8 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 44 41 47 3d 27 58 ┆LE(DATFIL)INTO(DATREC);IF DAG='X┆
0x1c4c8…1c4e8 58 58 58 58 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 ┆XXXXX' THEN GO TO SLUTT; ┆
0x1c4e8…1c508 20 20 20 20 20 20 20 20 44 4f 20 49 3d 31 20 54 4f 20 31 34 3b 58 53 4b 28 49 29 3d 53 4b 28 49 ┆ DO I=1 TO 14;XSK(I)=SK(I┆
0x1c508…1c528 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 20 20 20 20 20 ┆);END; ┆
0x1c528…1c548 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 57 52 49 54 45 20 46 ┆ REWRITE F┆
0x1c548…1c567 49 4c 45 28 44 41 54 46 49 4c 29 46 52 4f 4d 28 58 44 41 54 52 45 43 29 3b 20 20 20 20 20 20 ┆ILE(DATFIL)FROM(XDATREC); ┆
0x1c567…1c587 (33, 0, 11) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1c587…1c5a7 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 27 20 27 ┆ PUT FILE(D) SKIP EDIT(' '┆
0x1c5a7…1c5c7 29 28 41 28 33 37 29 29 28 27 2a 2a 2a 20 20 20 20 20 20 20 20 20 42 41 4c 41 4e 53 52 5b 4b 4e ┆)(A(37))('*** BALANSRÄKN┆
0x1c5c7…1c5e7 49 4e 47 20 20 20 20 20 20 20 20 20 2a 2a 2a 27 29 20 20 20 20 20 28 41 28 37 34 29 29 28 27 53 ┆ING ***') (A(74))('S┆
0x1c5e7…1c607 54 5b 4c 4c 20 49 4e 20 50 45 52 46 4f 52 45 52 49 4e 47 45 4e 27 29 28 41 28 33 37 29 29 28 27 ┆TÄLL IN PERFORERINGEN')(A(37))('┆
0x1c607…1c627 54 52 59 43 4b 20 53 45 44 41 4e 20 52 45 54 55 52 4e 2e 27 29 28 41 28 33 37 29 29 3b 20 20 20 ┆TRYCK SEDAN RETURN.')(A(37)); ┆
0x1c627…1c647 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 20 20 ┆ GET SKIP LIST(S); ┆
0x1c647…1c666 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1c666…1c686 (33, 0, 12) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 41 42 3a 50 55 54 20 46 49 4c ┆ TAB:PUT FIL┆
0x1c686…1c6a6 45 28 44 29 53 4b 49 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 ┆E(D)SKIP EDIT('VILKEN NIVÅ?')(A(┆
0x1c6a6…1c6c6 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 20 20 20 20 ┆37)) ┆
0x1c6c6…1c6e6 20 20 20 20 28 27 22 31 22 3d 45 4e 44 41 53 54 20 4b 4f 4e 54 4f 4b 4c 41 53 53 27 29 28 41 28 ┆ ('"1"=ENDAST KONTOKLASS')(A(┆
0x1c6e6…1c706 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 20 20 20 20 ┆37)) ┆
0x1c706…1c726 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0b 5b 76 01 06 57 a0 00 19 17 08 05 0b ┆ Äv W ┆
0x1c726…1c746 c1 63 38 1d 58 af 70 38 32 00 70 38 70 38 58 93 02 07 46 58 a1 02 07 46 0d 0b 5b 60 00 19 17 11 ┆ c8 X p82 p8p8X FX F Ä` ┆
0x1c746…1c765 04 08 70 40 1e 01 08 5b 7c 01 02 0b 05 07 46 58 93 02 07 46 58 a1 02 07 46 0d 0b 00 06 45 00 ┆ p@ Äö FX FX F E ┆
0x1c765…1c785 (33, 0, 13) 0b f9 63 07 57 a0 00 19 17 08 01 0b 02 64 0c 1d 58 af 58 af 02 07 46 0d 05 07 46 0b 00 64 02 64 ┆ c W d X X F F d d┆
0x1c785…1c7a5 0e 0b bf 63 02 64 11 0b 11 64 09 5b 7e 57 a0 00 19 17 04 06 0b 0e 64 03 64 1a 1c 0b 1a 64 36 59 ┆ c d d Ä~W d d d6Y┆
0x1c7a5…1c7c5 c1 59 35 02 03 43 5b 60 00 19 17 11 05 03 43 57 f1 02 01 41 5a e7 00 19 17 08 04 59 62 02 01 41 ┆ Y5 CÄ` CW AZ Yb A┆
0x1c7c5…1c7e5 59 cc 00 19 17 08 02 12 59 38 02 02 42 57 a0 00 19 17 08 05 12 0b 52 64 52 1d 59 3a 70 38 32 00 ┆Y Y8 BW RdR Y:p82 ┆
0x1c7e5…1c805 70 38 70 38 58 93 02 07 46 5b 84 00 19 17 0f 57 eb 59 c1 02 03 43 1a 16 32 07 0e 0a 02 07 46 11 ┆p8p8X FÄ W Y C 2 F ┆
0x1c805…1c825 04 08 70 40 1e 01 08 5b 86 01 02 0b 04 06 58 93 02 07 46 57 eb 59 c1 02 03 43 1a 16 32 07 0e 0a ┆ p@ Ä X FW Y C 2 ┆
0x1c825…1c845 02 07 46 0f 57 a0 00 19 17 08 01 0b a6 64 0a 1d 59 3a 59 3a 01 06 0d 04 06 0b a4 64 02 64 b0 0b ┆ F W d Y:Y: d d ┆
0x1c845…1c864 b0 64 1a 15 00 2a 32 0d 32 01 2a 59 35 02 03 43 1a 5a ad 00 28 5b 88 32 14 5b 9c 00 28 00 00 ┆ d *2 2 *Y5 C Z (Ä 2 Ä ( ┆
0x1c864…1c884 (33, 0, 14) 0b ca 64 67 59 38 02 02 42 1a 5b 48 00 28 58 4d 02 07 46 1a 59 67 32 14 29 58 70 02 07 46 1a 59 ┆ dgY8 B ÄH (XM F Yg2 )Xp F Y┆
0x1c884…1c8a4 67 32 14 29 58 93 02 07 46 1a 59 67 32 14 29 59 3a 01 06 1a 59 8f 32 14 29 58 a1 02 07 46 5b 60 ┆g2 )X F Yg2 )Y: Y 2 )X FÄ`┆
0x1c8a4…1c8c4 00 19 17 11 5b 7c 01 02 0b 1a 5b 9e 32 0f 29 58 af 02 07 46 1a 5b ad 32 10 29 57 d3 57 d3 02 02 ┆ Äö Ä 2 )X F Ä 2 )W W ┆
0x1c8c4…1c8e4 42 59 cc 00 19 17 0d 0b 05 02 42 0b 50 64 02 65 31 0b 31 65 87 58 46 58 46 02 07 46 58 4d 02 07 ┆BY B Pd e1 1e XFXF FXM ┆
0x1c8e4…1c904 46 0b 05 07 46 58 69 58 69 02 07 46 58 70 02 07 46 0b 05 07 46 58 8c 58 8c 02 07 46 58 93 02 07 ┆F FXiXi FXp F FX X FX ┆
0x1c904…1c924 46 0b 05 07 46 58 9a 58 9a 02 07 46 58 a1 02 07 46 0b 05 07 46 58 a8 58 a8 02 07 46 58 af 02 07 ┆F FX X FX F FX X FX ┆
0x1c924…1c944 46 0b 05 07 46 58 4d 57 a0 00 19 17 05 07 46 58 70 57 a0 00 19 17 05 07 46 58 93 57 a0 00 19 17 ┆F FXMW FXpW FX W ┆
0x1c944…1c963 05 07 46 58 a1 57 a0 00 19 17 05 07 46 58 af 57 a0 00 19 17 05 07 46 59 35 02 03 43 00 00 00 ┆ FX W FX W FY5 C ┆
0x1c963…1c9b2 (34, 0, 0) DataSector[0x4f]
[…0x99…]
0x1f8e9…1f909 (37, 0, 31) 09 00 19 17 08 04 0b 90 61 05 1d 5b 6a 00 1c 0b 8e 61 02 61 95 0b 95 61 17 57 32 32 01 59 d0 32 ┆ a Äj a a a W22 Y 2┆
0x1f909…1f929 01 09 02 57 6e 02 02 42 57 30 02 02 42 08 06 12 0b ae 61 2e 1d 57 eb 59 bb 02 03 43 1a 16 32 07 ┆ Wn BW0 B a. W Y C 2 ┆
0x1f929…1f938 0e 0a 57 eb 59 bb 02 03 43 1a 16 32 07 0e 0a ┆ W Y C 2 ┆
0x1f938…1f958 (37, 0, 32) 02 07 46 57 33 02 06 45 0b 57 39 02 06 45 0d 0b 05 07 46 00 0d 00 0b ac 61 00 0b ac 61 02 61 dc ┆ FW3 E W9 E F a a a ┆
0x1f958…1f978 0b dc 61 03 61 56 1c 0b 51 61 04 61 df 61 62 0b df 61 04 5b 64 00 1c 0a 66 5b 02 e3 61 0b e3 61 ┆ a aV Qa a ab a Äd fÄ a a┆
0x1f978…1f987 06 57 d9 59 63 00 03 0a 68 5b 02 e9 61 0b e9 ┆ W Yc hÄ a ┆
0x1f987…1f9a7 (37, 0, 33) 61 2a 40 f9 5b 6a 00 03 57 d9 32 18 57 28 2b 01 59 bb 57 28 02 03 43 5b 60 00 19 17 11 05 03 43 ┆a*@ Äj W 2 W(+ Y W( CÄ` C┆
0x1f9a7…1f9c7 59 bb 02 03 43 5b 09 00 19 17 08 04 0b 15 62 05 1d 5b 6a 00 1c 0b 13 62 02 62 1a 0b 1a 62 17 57 ┆Y CÄ b Äj b b b W┆
0x1f9c7…1f9d6 32 32 01 59 d0 32 01 09 02 57 6e 02 02 42 57 ┆22 Y 2 Wn BW┆
0x1f9d6…1f9f6 (37, 0, 34) 30 02 02 42 08 06 12 0b 33 62 2e 1d 57 eb 59 bb 02 03 43 1a 16 32 07 0e 0a 57 eb 59 bb 02 03 43 ┆0 B 3b. W Y C 2 W Y C┆
0x1f9f6…1fa16 1a 16 32 07 0e 0a 02 07 46 57 33 02 06 45 0b 57 39 02 06 45 0d 0b 05 07 46 0b 31 62 02 62 61 0b ┆ 2 FW3 E W9 E F 1b ba ┆
0x1fa16…1fa25 61 62 04 5b 68 00 1c 0a 6a 5b 02 65 62 0b 65 ┆ab Äh jÄ eb e┆
0x1fa25…1fa45 (37, 0, 35) 62 06 57 d9 57 a0 00 03 0a 6c 5b 02 6b 62 0b 6b 62 13 40 f9 5c 7d 00 03 57 d9 32 18 57 28 2b 01 ┆b W W lÄ kb kb @ Öå W 2 W(+ ┆
0x1fa45…1fa65 57 28 02 03 43 00 0d 00 0b 7e 62 07 5b 6e 00 19 17 08 04 0b 87 62 05 1d 5c 7d 00 1c 0b 85 62 02 ┆W( C ~b Än b Öå b ┆
0x1fa65…1fa74 62 8c 0b 8c 62 0c 57 30 02 02 42 57 6e 02 02 ┆b b W0 BWn ┆
0x1fa74…1fa94 (37, 0, 36) 42 08 04 0b 9a 62 05 1d 5b 6c 00 1c 0b 98 62 02 62 9f 0b 9f 62 0c 57 d8 02 01 41 59 cc 00 19 17 ┆B b Äl b b b W AY ┆
0x1fa94…1fab4 08 02 0b ad 62 15 1d 59 35 57 28 02 03 43 05 03 43 59 38 57 2b 02 02 42 05 02 42 0b ab 62 02 62 ┆ b Y5W( C CY8W+ B B b b┆
0x1fab4…1fac3 c2 0b c2 62 23 57 d8 57 a0 00 19 17 05 01 41 ┆ b#W W A┆
0x1fac3…1fae3 (37, 0, 37) 59 38 02 02 42 57 2b 02 02 42 08 05 59 35 02 03 43 57 28 02 03 43 08 05 13 0b e7 62 05 1d 5b 72 ┆Y8 BW+ B Y5 CW( C b Är┆
0x1fae3…1fb03 00 1c 0b e5 62 02 62 ec 0a 70 5b 02 ec 62 0b ec 62 1e 59 38 57 2b 02 02 42 05 02 42 59 35 57 28 ┆ b b pÄ b b Y8W+ B BY5W(┆
0x1fb03…1fb12 02 03 43 05 03 43 57 32 32 01 5a cf 32 01 09 ┆ C CW22 Z 2 ┆
0x1fb12…1fb32 (37, 0, 38) 02 0b 0c 63 18 1d 58 a1 58 a1 02 07 46 57 33 02 06 45 0b 57 39 02 06 45 0d 0b 05 07 46 0b 0a 63 ┆ c X X FW3 E W9 E F c┆
0x1fb32…1fb52 02 63 27 0b 27 63 12 58 93 58 93 02 07 46 57 33 02 06 45 0b 57 39 02 06 45 00 0b 39 63 11 0d 0b ┆ c' 'c X X FW3 E W9 E 9c ┆
0x1fb52…1fb61 05 07 46 57 30 02 02 42 57 6e 02 02 42 08 02 ┆ FW0 BWn B ┆
0x1fb61…1fb81 (37, 0, 39) 0b 4c 63 21 1d 58 4d 58 4d 02 07 46 57 33 02 06 45 0b 05 07 46 58 70 58 70 02 07 46 57 39 02 06 ┆ Lc! XMXM FW3 E FXpXp FW9 ┆
0x1fb81…1fba1 45 0b 05 07 46 0b 4a 63 02 63 6d 0b 24 63 03 63 6d 1c 0b 6d 63 04 5b 6c 00 1c 0a 72 5b 02 71 63 ┆E F Jc cm $c cm mc Äl rÄ qc┆
0x1fba1…1fbb0 0b 71 63 16 59 66 5a ad 00 19 17 05 01 41 57 ┆ qc YfZ AW┆
0x1fbb0…1fbd0 (37, 0, 40) d3 02 02 42 5b 74 00 19 17 08 01 0b 89 63 05 1d 5a d2 00 1c 0b 87 63 02 63 8e 0b 8e 63 19 59 35 ┆ BÄt c Z c c c Y5┆
0x1fbd0…1fbf0 02 03 43 57 28 02 03 43 08 02 59 38 02 02 42 57 2b 02 02 42 08 05 12 0b a9 63 0b 1d 59 62 59 cc ┆ CW( C Y8 BW+ B c YbY ┆
0x1fbf0…1fbff 00 19 17 05 01 41 0b a7 63 02 63 b4 0b b4 63 ┆ A c c c┆
0x1fbff…1fcfe (38, 0, 0) DataSector[0xff]
[…0x1d…]
0x219e1…21a01 (40, 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*/ ┆
0x21a01…21a21 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x21a21…21a41 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 42 41 4c 52 5b 4b 4e 20 20 55 54 53 4b 52 49 ┆ /*BALRÄKN UTSKRI┆
0x21a41…21a61 46 54 20 41 56 20 42 41 4c 41 4e 53 52 5b 4b 4e 49 4e 47 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆FT AV BALANSRÄKNING ┆
0x21a61…21a81 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4b 4c ┆ KL┆
0x21a81…21aa1 41 52 54 3a 20 58 58 58 58 58 58 20 20 20 50 52 4f 47 52 3a 54 44 20 2a 2f 20 20 20 20 20 20 20 ┆ART: XXXXXX PROGR:TD */ ┆
0x21aa1…21ac1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x21ac1…21ae0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x21ae0…21b00 (40, 0, 1) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x21b00…21b20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 43 4c ┆ DCL┆
0x21b20…21b40 20 31 20 53 41 4d 31 28 31 35 29 2c 32 20 53 4b 4f 31 20 46 49 58 45 44 28 34 29 2c 32 20 53 4d ┆ 1 SAM1(15),2 SKO1 FIXED(4),2 SM┆
0x21b40…21b60 4e 52 31 20 46 49 58 45 44 28 32 29 2c 32 20 42 55 44 31 20 43 48 41 52 28 31 29 2c 20 20 20 20 ┆NR1 FIXED(2),2 BUD1 CHAR(1), ┆
0x21b60…21b80 20 20 20 20 20 20 20 20 20 20 20 20 32 20 53 41 56 44 31 20 46 49 58 45 44 28 32 29 2c 32 20 53 ┆ 2 SAVD1 FIXED(2),2 S┆
0x21b80…21ba0 50 52 4f 4a 31 20 46 49 58 45 44 28 34 29 2c 32 20 53 41 44 31 20 46 49 58 45 44 28 31 31 2c 32 ┆PROJ1 FIXED(4),2 SAD1 FIXED(11,2┆
0x21ba0…21bc0 29 2c 32 20 53 41 4b 31 20 46 49 58 45 44 28 31 31 2c 32 29 2c 20 20 20 20 20 20 32 20 48 4a 4b ┆),2 SAK1 FIXED(11,2), 2 HJK┆
0x21bc0…21bdf 4f 44 31 20 43 48 41 52 28 31 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆OD1 CHAR(1); ┆
0x21bdf…21bff (40, 0, 2) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x21bff…21c1f 20 20 20 20 20 20 20 20 20 20 20 44 43 4c 20 31 20 53 41 4d 32 28 32 30 30 29 2c 32 20 53 4b 4f ┆ DCL 1 SAM2(200),2 SKO┆
0x21c1f…21c3f 32 20 46 49 58 45 44 28 34 29 2c 32 20 53 4d 4e 52 32 20 46 49 58 45 44 28 32 29 2c 32 20 42 55 ┆2 FIXED(4),2 SMNR2 FIXED(2),2 BU┆
0x21c3f…21c5f 44 32 20 43 48 41 52 28 31 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 20 53 41 56 44 ┆D2 CHAR(1), 2 SAVD┆
0x21c5f…21c7f 32 20 46 49 58 45 44 28 32 29 2c 32 20 53 50 52 4f 4a 32 20 46 49 58 45 44 28 34 29 2c 32 20 53 ┆2 FIXED(2),2 SPROJ2 FIXED(4),2 S┆
0x21c7f…21c9f 41 44 32 20 46 49 58 45 44 28 31 31 2c 32 29 2c 32 20 53 41 4b 32 20 46 49 58 45 44 28 31 31 2c ┆AD2 FIXED(11,2),2 SAK2 FIXED(11,┆
0x21c9f…21cbf 32 29 2c 20 20 20 20 20 20 32 20 48 4a 4b 4f 44 32 20 43 48 41 52 28 31 29 3b 20 20 20 20 20 20 ┆2), 2 HJKOD2 CHAR(1); ┆
0x21cbf…21cde 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x21cde…21cfe (40, 0, 3) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 43 4c 20 31 20 53 ┆ DCL 1 S┆
0x21cfe…21d1e 41 4d 2c 32 20 53 4b 4f 20 46 49 58 45 44 28 34 29 2c 32 20 53 4d 4e 52 20 46 49 58 45 44 28 32 ┆AM,2 SKO FIXED(4),2 SMNR FIXED(2┆
0x21d1e…21d3e 29 2c 32 20 42 55 44 20 43 48 41 52 28 31 29 2c 32 20 53 41 56 44 20 46 49 58 45 44 28 32 29 2c ┆),2 BUD CHAR(1),2 SAVD FIXED(2),┆
0x21d3e…21d5e 20 20 20 20 20 20 20 20 32 20 53 50 52 4f 4a 20 46 49 58 45 44 28 34 29 2c 20 20 20 20 20 20 20 ┆ 2 SPROJ FIXED(4), ┆
0x21d5e…21d7e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x21d7e…21d9e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 20 53 41 44 20 46 49 58 ┆ 2 SAD FIX┆
0x21d9e…21dbe 45 44 28 31 31 2c 32 29 2c 32 20 53 41 4b 20 46 49 58 45 44 28 31 31 2c 32 29 2c 32 20 48 4a 4b ┆ED(11,2),2 SAK FIXED(11,2),2 HJK┆
0x21dbe…21ddd 4f 44 20 43 48 41 52 28 31 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆OD CHAR(1); ┆
0x21ddd…21dfd (40, 0, 4) 20 20 20 20 20 20 20 44 43 4c 20 31 20 4b 54 4f 2c 32 20 4b 4f 4e 54 4f 20 46 49 58 45 44 28 34 ┆ DCL 1 KTO,2 KONTO FIXED(4┆
0x21dfd…21e1d 29 2c 32 20 54 45 58 54 20 43 48 41 52 28 33 34 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆),2 TEXT CHAR(34); ┆
0x21e1d…21e3d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 43 4c 20 31 20 44 41 54 52 ┆ DCL 1 DATR┆
0x21e3d…21e5d 45 43 2c 32 20 44 41 47 20 43 48 41 52 28 36 29 2c 32 20 4d 4f 4e 20 43 48 41 52 28 33 29 2c 32 ┆EC,2 DAG CHAR(6),2 MON CHAR(3),2┆
0x21e5d…21e7d 20 4d 4e 52 20 46 49 58 45 44 28 32 29 2c 32 20 53 4b 28 31 34 29 20 43 48 41 52 28 31 29 3b 20 ┆ MNR FIXED(2),2 SK(14) CHAR(1); ┆
0x21e7d…21e9d 20 20 20 20 20 44 43 4c 20 31 20 58 44 41 54 52 45 43 2c 32 20 58 44 41 47 20 43 48 41 52 28 39 ┆ DCL 1 XDATREC,2 XDAG CHAR(9┆
0x21e9d…21ebd 29 2c 32 20 58 4d 4e 52 20 46 49 58 45 44 28 32 29 2c 32 20 58 53 4b 28 31 34 29 20 43 48 41 52 ┆),2 XMNR FIXED(2),2 XSK(14) CHAR┆
0x21ebd…21edc 28 31 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 58 44 41 47 3d 27 58 58 58 58 58 ┆(1); XDAG='XXXXX┆
0x21edc…21efc (40, 0, 5) 58 20 20 20 27 3b 58 4d 4e 52 3d 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆X ';XMNR=0; ┆
0x21efc…21f1c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x21f1c…21f3c 20 20 20 20 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 ┆ DCL DATFIL FILE,KTOTX FILE,S┆
0x21f3c…21f5c 20 43 48 41 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 ┆ CHAR(1),RAD FIXED(2),SIDA FIXED┆
0x21f5c…21f7c 28 34 29 2c 49 4e 44 20 46 49 58 45 44 28 31 29 2c 20 20 53 41 4d 46 49 4c 20 46 49 4c 45 2c 4e ┆(4),IND FIXED(1), SAMFIL FILE,N┆
0x21f7c…21f9c 49 20 46 49 58 45 44 28 31 29 2c 4b 4f 4b 4c 54 4f 54 28 32 29 20 46 49 58 45 44 28 31 32 2c 32 ┆I FIXED(1),KOKLTOT(2) FIXED(12,2┆
0x21f9c…21fbc 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆), ┆
0x21fbc…21fdb 20 20 58 50 52 4f 4a 20 46 49 58 45 44 28 34 29 2c 58 4b 4f 20 46 49 58 45 44 28 34 29 2c 58 ┆ XPROJ FIXED(4),XKO FIXED(4),X┆
0x21fdb…21ffb (40, 0, 6) 41 56 44 20 46 49 58 45 44 28 32 29 2c 58 44 41 54 20 46 49 58 45 44 28 34 29 2c 50 44 20 46 49 ┆AVD FIXED(2),XDAT FIXED(4),PD FI┆
0x21ffb…2201b 58 45 44 28 31 32 2c 32 29 2c 20 20 20 20 20 20 20 20 50 4b 20 46 49 58 45 44 28 31 32 2c 32 29 ┆XED(12,2), PK FIXED(12,2)┆
0x2201b…2203b 2c 41 44 20 46 49 58 45 44 28 31 32 2c 32 29 2c 41 4b 20 46 49 58 45 44 28 31 32 2c 32 29 2c 4b ┆,AD FIXED(12,2),AK FIXED(12,2),K┆
0x2203b…2205b 44 20 46 49 58 45 44 28 31 32 2c 32 29 2c 4b 4b 20 46 49 58 45 44 28 31 32 2c 32 29 2c 20 20 20 ┆D FIXED(12,2),KK FIXED(12,2), ┆
0x2205b…2207b 20 54 44 20 46 49 58 45 44 28 31 32 2c 32 29 2c 54 4b 20 46 49 58 45 44 28 31 32 2c 32 29 2c 52 ┆ TD FIXED(12,2),TK FIXED(12,2),R┆
0x2207b…2209b 45 47 20 46 49 58 45 44 28 31 29 2c 44 45 4c 20 46 49 58 45 44 28 31 29 2c 52 45 43 4e 52 20 42 ┆EG FIXED(1),DEL FIXED(1),RECNR B┆
0x2209b…220bb 49 4e 41 52 59 2c 20 20 20 20 20 20 20 20 20 20 4a 55 4d 50 20 46 49 58 45 44 28 31 29 2c 43 20 ┆INARY, JUMP FIXED(1),C ┆
0x220bb…220da 43 48 41 52 28 32 30 29 20 49 4e 49 54 28 27 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 39 56 ┆CHAR(20) INIT('--------------9V┆
0x220da…220fa (40, 0, 7) 2e 39 39 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 ┆.99'), ┆
0x220fa…2211a 43 43 20 43 48 41 52 28 32 30 29 49 4e 49 54 28 27 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 39 56 2e 39 ┆CC CHAR(20)INIT('-----------9V.9┆
0x2211a…2213a 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***'), ┆
0x2213a…2215a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 43 43 20 43 48 41 52 28 32 30 29 49 4e 49 54 28 ┆ CCC CHAR(20)INIT(┆
0x2215a…2217a 27 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 39 56 2e 39 39 2a 27 29 2c 20 20 20 20 20 20 20 20 20 ┆'-------------9V.99*'), ┆
0x2217a…2219a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4b 49 ┆ KI┆
0x2219a…221ba 42 20 46 49 58 45 44 28 31 32 2c 32 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆B FIXED(12,2); ┆
0x221ba…221d9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x221d9…221f9 (40, 0, 8) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
[…0x1…]
0x22219…22239 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4f 50 45 ┆ OPE┆
0x22239…22259 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 53 41 4d 46 49 4c 3b ┆N KTOTX;OPEN DATFIL;OPEN SAMFIL;┆
0x22259…22279 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x22279…22299 20 20 20 20 20 20 20 20 20 20 20 20 52 45 41 44 20 46 49 4c 45 28 44 41 54 46 49 4c 29 49 4e 54 ┆ READ FILE(DATFIL)INT┆
0x22299…222b9 4f 28 44 41 54 52 45 43 29 3b 49 46 20 44 41 47 3d 27 58 58 58 58 58 58 27 20 54 48 45 4e 20 47 ┆O(DATREC);IF DAG='XXXXXX' THEN G┆
0x222b9…222d8 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 20 20 44 4f 20 49 ┆O TO SLUT; DO I┆
0x222d8…222f8 (40, 0, 9) 3d 31 20 54 4f 20 31 34 3b 58 53 4b 28 49 29 3d 53 4b 28 49 29 3b 45 4e 44 3b 20 20 20 20 20 20 ┆=1 TO 14;XSK(I)=SK(I);END; ┆
0x222f8…22318 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x22318…22338 20 20 20 20 20 20 20 20 20 20 20 52 45 57 52 49 54 45 20 46 49 4c 45 28 44 41 54 46 49 4c 29 46 ┆ REWRITE FILE(DATFIL)F┆
0x22338…22358 52 4f 4d 28 58 44 41 54 52 45 43 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ROM(XDATREC); ┆
0x22358…22378 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 46 49 ┆ PUT FI┆
0x22378…22398 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 29 28 27 2a 2a 2a ┆LE(D) SKIP EDIT(' ')(A(37))('***┆
0x22398…223b8 20 20 20 20 20 20 20 20 20 42 41 4c 41 4e 53 52 5b 4b 4e 49 4e 47 20 20 20 20 20 20 20 20 20 2a ┆ BALANSRÄKNING *┆
0x223b8…223d7 2a 2a 27 29 20 20 20 20 20 28 41 28 37 34 29 29 28 27 53 54 5b 4c 4c 20 49 4e 20 50 45 52 46 ┆**') (A(74))('STÄLL IN PERF┆
0x223d7…223f7 (40, 0, 10) 4f 52 45 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 41 4e 20 ┆ORERINGEN')(A(37))('TRYCK SEDAN ┆
0x223f7…22417 52 45 54 55 52 4e 2e 27 29 28 41 28 33 37 29 29 3b 20 20 20 20 20 20 20 20 47 45 54 20 53 4b 49 ┆RETURN.')(A(37)); GET SKI┆
0x22417…22437 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 20 20 20 20 20 20 20 ┆P LIST(S); ┆
0x22437…22457 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x22457…22477 20 20 20 20 20 20 20 20 54 41 42 3a 50 55 54 20 46 49 4c 45 28 44 29 53 4b 49 50 20 45 44 49 54 ┆ TAB:PUT FILE(D)SKIP EDIT┆
0x22477…22497 28 27 56 49 4c 4b 45 4e 20 4e 49 56 5d 3f 27 29 28 41 28 33 36 29 29 3b 20 20 20 20 20 20 20 20 ┆('VILKEN NIVÅ?')(A(36)); ┆
0x22497…224b7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 45 54 20 53 4b 49 50 20 ┆ GET SKIP ┆
0x224b7…224d6 4c 49 53 54 28 4e 49 29 3b 49 46 20 4e 49 3c 31 7c 4e 49 3e 34 20 54 48 45 4e 20 47 4f 20 54 ┆LIST(NI);IF NI<1öNI>4 THEN GO T┆
0x224d6…224f6 (40, 0, 11) 4f 20 54 41 42 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆O TAB; ┆
0x224f6…22516 20 20 20 20 20 20 20 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 ┆ JUMP=0;RAD=5;SIDA=0;IND=1┆
0x22516…22536 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 ┆; ┆
0x22536…22556 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 55 42 3a 53 49 44 41 3d 53 ┆ RUB:SIDA=S┆
0x22556…22576 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 41 4c 41 4e 53 52 ┆IDA+1;PUT SKIP(RAD)EDIT('BALANSR┆
0x22576…22596 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 29 20 20 20 20 20 ┆ÄKNING NIVÅ ')(A)(NI)(A(4)) ┆
0x22596…225b6 20 20 20 20 20 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 ┆ ('AVSEENDE MÅNAD ')(A)(MON)┆
0x225b6…225d5 28 41 28 35 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(5)) ┆
0x225d5…225f5 (40, 0, 12) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 27 20 20 20 20 44 41 54 55 4d ┆ (' DATUM┆
0x225f5…22615 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 27 29 28 41 29 28 53 ┆:')(A)(DAG)(A(10))('SIDA:')(A)(S┆
0x22615…22635 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 20 20 20 20 20 20 20 ┆IDA)(A)SKIP(2)EDIT ┆
0x22635…22655 20 20 20 20 28 27 4b 54 4f 27 29 28 41 28 36 29 29 28 27 42 45 4e 5b 4d 4e 49 4e 47 27 29 28 41 ┆ ('KTO')(A(6))('BENÄMNING')(A┆
0x22655…22675 28 33 35 29 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 ┆(35))('MÅN DEB')(A(16))('MÅN KRE┆
0x22675…22695 27 29 28 41 28 31 36 29 29 20 20 20 20 20 20 20 20 20 20 4d 55 4c 54 49 20 1c 00 1c 00 77 43 43 ┆')(A(16)) MULTI wCC┆
0x22695…226b5 48 4f 4f 53 45 20 20 1d 00 1d 00 00 43 00 00 00 00 00 00 00 00 d3 ff d3 ff 00 00 00 00 00 00 00 ┆HOOSE C ┆
0x226b5…226d4 00 00 00 dd ff dd ff 00 00 00 00 00 00 00 00 00 00 dd ff dd ff 00 00 00 00 00 00 00 00 0f 02 ┆ ┆
0x226d4…226f4 (40, 0, 13) 0c bb 4d 04 00 00 91 40 0c c1 4d 02 ff 00 0c c5 4d 02 05 00 0b cf 4d 5d 4d b5 03 4d b9 4d b5 4d ┆ M @ M M MÅM M M M┆
0x226f4…22714 bb 00 33 00 02 0e 0a 00 03 4d b5 4d bb 00 33 00 02 0e 0a 4d bd 00 03 4d bf 33 00 00 4d b5 00 0a ┆ 3 M M 3 M M 3 M ┆
0x22714…22734 00 4d c1 00 12 03 33 00 00 4d b5 00 0a 33 00 00 4d b5 00 0a 00 4d bf 00 0c 0a 03 4d b5 4d bb 00 ┆ M 3 M 3 M M M M ┆
0x22734…22754 33 00 02 0e 0a 4d b9 00 03 33 00 00 4d b5 00 0a 4d bf 00 03 1f 0b 34 4e 25 4d c3 03 33 00 00 4d ┆3 M 3 M M 4N%M 3 M┆
0x22754…22774 c3 00 0a 4d bb 00 33 00 02 0e 0a 33 00 00 4d c3 00 0a 4d c5 00 33 00 02 0e 0a 00 03 1f 1b 00 fe ┆ M 3 3 M M 3 ┆
0x22774…22794 40 02 a3 43 0b 81 40 02 09 18 00 80 00 cd 00 08 fe 06 ca 06 45 b7 c4 18 08 21 00 43 0e 80 11 00 ┆@ C @ E ! C ┆
0x22794…227b4 50 cd 61 47 21 00 43 06 00 11 80 50 0e 80 cd 39 00 7c b5 c2 47 44 2a 80 42 23 cd 15 00 eb 2a d6 ┆P aG! C P 9 ö GD* B# * ┆
0x227b4…227d3 42 19 7d b4 ca 44 44 cd e5 46 db 01 3d fe 1e 3c d2 f7 44 32 91 40 3a 91 40 fe 0d ca a3 44 97 ┆B å DD F = < D2 @: @ D ┆
0x227d3…227f3 (40, 0, 14) 0d 59 4e 1e 42 10 42 12 00 2a 10 42 eb 2a 12 42 4e eb f3 7e 23 c5 e5 cd 33 00 e1 c1 0d c2 68 4e ┆ YN B B * B * BN ~# 3 hN┆
0x227f3…22813 fb c9 00 0c 43 4c 50 4f 4e 20 20 20 20 03 00 03 00 00 43 4c 50 4f 46 46 20 20 20 03 00 03 00 1f ┆ CLPON CLPOFF ┆
0x22813…22833 43 43 4c 45 45 52 20 20 20 04 00 04 00 00 43 42 53 58 20 20 20 20 20 05 00 0f 00 00 43 41 54 4f ┆CCLEER CBSX CATO┆
0x22833…22853 45 20 20 20 20 0f 00 10 00 10 43 45 54 4f 41 20 20 20 20 0f 00 10 00 00 43 42 53 43 20 20 20 20 ┆E CETOA CBSC ┆
0x22853…22873 20 11 00 1a 00 00 43 4b 45 59 46 55 4e 20 20 1b 00 1b 00 1a 43 53 45 4f 46 20 20 20 20 1b 00 1b ┆ CKEYFUN CSEOF ┆
0x22873…22893 00 7f 43 4d 55 4c 54 49 20 20 20 1c 00 1c 00 09 43 55 4e 4d 55 4c 54 49 20 1c 00 1c 00 77 43 43 ┆ CMULTI CUNMULTI wCC┆
0x22893…228b3 48 4f 4f 53 45 20 20 1d 00 1d 00 00 43 4f 55 54 50 55 54 20 20 1e 00 1e 00 00 43 4b 46 49 4c 45 ┆HOOSE COUTPUT CKFILE┆
0x228b3…228d2 20 20 20 1f 00 1f 00 00 43 43 4c 45 45 52 20 20 20 20 00 20 00 00 43 00 00 00 00 00 00 1f 02 ┆ CCLEER C ┆
0x228d2…22921 (41, 0, 0) DataSector[0x4f]
[…0x2c…]
0x236b5…236d5 (42, 0, 4) 33 20 53 4d 4e 52 20 46 49 58 45 44 28 32 29 2c 33 20 42 55 44 20 43 48 41 52 28 31 29 2c 20 20 ┆3 SMNR FIXED(2),3 BUD CHAR(1), ┆
0x236d5…236f5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x236f5…23704 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x23704…23724 (42, 0, 5) 32 20 53 41 44 20 46 49 58 45 44 28 31 31 2c 32 29 2c 32 20 53 41 4b 20 46 49 58 45 44 28 31 31 ┆2 SAD FIXED(11,2),2 SAK FIXED(11┆
0x23724…23744 2c 32 29 2c 32 20 48 4a 4b 4f 44 20 43 48 41 52 28 31 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆,2),2 HJKOD CHAR(1); ┆
0x23744…23753 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x23753…237a2 (42, 0, 6) 0x20[0x4f]
0x237a2…237c2 (42, 0, 7) 44 43 4c 20 31 20 4b 54 4f 2c 32 20 4b 4f 4e 54 4f 20 46 49 58 45 44 28 34 29 2c 32 20 54 45 58 ┆DCL 1 KTO,2 KONTO FIXED(4),2 TEX┆
0x237c2…237e2 54 20 43 48 41 52 28 33 34 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆T CHAR(34); ┆
0x237e2…237f1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x237f1…23840 (42, 0, 8) 0x20[0x4f]
0x23840…23860 (42, 0, 9) 44 43 4c 20 31 20 44 41 54 52 45 43 2c 32 20 44 41 47 20 43 48 41 52 28 36 29 2c 32 20 4d 4f 4e ┆DCL 1 DATREC,2 DAG CHAR(6),2 MON┆
0x23860…23880 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 29 ┆ CHAR(3),2 MNR FIXED(2),2 SK(14)┆
0x23880…2388f 20 43 48 41 52 28 31 29 3b 20 20 20 20 20 20 ┆ CHAR(1); ┆
0x2388f…238af (42, 0, 10) 44 43 4c 20 31 20 58 44 41 54 52 45 43 2c 32 20 58 44 41 47 20 43 48 41 52 28 39 29 2c 32 20 58 ┆DCL 1 XDATREC,2 XDAG CHAR(9),2 X┆
0x238af…238cf 4d 4e 52 20 46 49 58 45 44 28 32 29 2c 32 20 58 53 4b 28 31 34 29 20 43 48 41 52 28 31 29 3b 20 ┆MNR FIXED(2),2 XSK(14) CHAR(1); ┆
0x238cf…238de 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x238de…238fe (42, 0, 11) 58 44 41 47 3d 27 58 58 58 58 58 58 20 20 20 27 3b 58 4d 4e 52 3d 30 3b 20 20 20 20 20 20 20 20 ┆XDAG='XXXXXX ';XMNR=0; ┆
0x238fe…2391e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2391e…2392d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2392d…2394d (42, 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┆
0x2394d…2396d 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),┆
0x2396d…2397c 49 4e 44 20 46 49 58 45 44 28 31 29 2c 20 20 ┆IND FIXED(1), ┆
0x2397c…2399c (42, 0, 13) 53 41 4d 46 49 4c 20 46 49 4c 45 2c 53 56 41 52 20 43 48 41 52 28 34 29 2c 20 20 20 20 20 20 20 ┆SAMFIL FILE,SVAR CHAR(4), ┆
0x2399c…239bc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x239bc…239cb 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x239cb…239eb (42, 0, 14) 58 50 52 4f 4a 20 46 49 58 45 44 28 34 29 2c 58 4b 4f 20 46 49 58 45 44 28 34 29 2c 58 41 56 44 ┆XPROJ FIXED(4),XKO FIXED(4),XAVD┆
0x239eb…23a0b 20 46 49 58 45 44 28 32 29 2c 58 44 41 54 20 46 49 58 45 44 28 34 29 2c 42 45 4c 20 46 49 58 45 ┆ FIXED(2),XDAT FIXED(4),BEL FIXE┆
0x23a0b…23a1a 44 28 31 32 2c 32 29 2c 20 20 20 20 20 20 20 ┆D(12,2), ┆
0x23a1a…23a3a (42, 0, 15) 4a 55 4d 50 20 46 49 58 45 44 28 31 29 2c 43 20 43 48 41 52 28 32 30 29 20 49 4e 49 54 28 27 2d ┆JUMP FIXED(1),C CHAR(20) INIT('-┆
0x23a3a…23a5a 2d 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 ┆-------------9V.99'), ┆
0x23a5a…23a69 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x23a69…23a89 (42, 0, 16) 43 43 20 43 48 41 52 28 32 30 29 49 4e 49 54 28 27 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 39 56 2e 39 ┆CC CHAR(20)INIT('-----------9V.9┆
0x23a89…23aa9 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***'), ┆
0x23aa9…23ab8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x23ab8…23ad8 (42, 0, 17) 43 43 43 20 43 48 41 52 28 32 30 29 49 4e 49 54 28 27 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 39 ┆CCC CHAR(20)INIT('-------------9┆
0x23ad8…23af8 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*'), ┆
0x23af8…23b07 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x23b07…23b27 (42, 0, 18) 4b 49 42 20 46 49 58 45 44 28 31 32 2c 32 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆KIB FIXED(12,2); ┆
0x23b27…23b47 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x23b47…23b56 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x23b56…23ba5 (42, 0, 19) 0x20[0x4f]
0x23ba5…23bc5 (42, 0, 20) 4f 50 45 4e 20 44 41 54 46 49 4c 3b 4f 50 45 4e 20 4b 54 4f 54 58 3b 4f 50 45 4e 20 53 41 4d 46 ┆OPEN DATFIL;OPEN KTOTX;OPEN SAMF┆
0x23bc5…23be5 49 4c 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆IL; ┆
0x23be5…23bf4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x23bf4…23c14 (42, 0, 21) 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┆
0x23c14…23c34 20 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 20 ┆ DAG='XXXXXX' THEN GO TO SLUT; ┆
0x23c34…23c43 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x23c43…23c63 (42, 0, 22) 44 4f 20 49 3d 31 20 54 4f 20 31 34 3b 58 53 4b 28 49 29 3d 53 4b 28 49 29 3b 45 4e 44 3b 58 53 ┆DO I=1 TO 14;XSK(I)=SK(I);END;XS┆
0x23c63…23c83 4b 28 31 33 29 3d 27 20 27 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆K(13)=' '; ┆
0x23c83…23c92 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x23c92…23cb2 (42, 0, 23) 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 58 44 41 54 52 45 43 ┆REWRITE FILE(DATFIL)FROM(XDATREC┆
0x23cb2…23cd2 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆); ┆
0x23cd2…23ce1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x23ce1…23d01 (42, 0, 24) 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)┆
0x23d01…23d21 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┆
0x23d21…23d30 41 4e 53 45 52 20 2a 2a 27 29 20 20 20 20 20 ┆ANSER **') ┆
0x23d30…23d50 (42, 0, 25) 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'┆
0x23d50…23d70 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.')(┆
0x23d70…23d7f 41 28 33 37 29 29 3b 20 20 20 20 20 20 20 20 ┆A(37)); ┆
0x23d7f…23d9f (42, 0, 26) 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); ┆
0x23d9f…23dbf 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x23dbf…23dce 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x23dce…23dee (42, 0, 27) 52 41 44 3d 35 3b 53 49 44 41 3d 30 3b 49 4e 44 3d 31 3b 53 4d 4e 52 3d 30 3b 42 55 44 3d 27 20 ┆RAD=5;SIDA=0;IND=1;SMNR=0;BUD=' ┆
0x23dee…23e0e 27 3b 53 41 56 44 3d 30 3b 53 50 52 4f 4a 3d 30 3b 48 4a 4b 4f 44 3d 27 20 27 3b 20 20 20 20 20 ┆';SAVD=0;SPROJ=0;HJKOD=' '; ┆
0x23e0e…23e1d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x23e1d…23e3d (42, 0, 28) 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┆
0x23e3d…23e5d 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)) ┆
0x23e5d…23e6c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x23e6c…23e8c (42, 0, 29) 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)); ┆
0x23e8c…23eac 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x23eac…23ebb 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x23ebb…23edb (42, 0, 30) 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┆
0x23edb…23efb 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┆
0x23efb…23f0a 52 2e 27 29 28 41 28 34 30 29 29 20 20 20 20 ┆R.')(A(40)) ┆
0x23f0a…23f2a (42, 0, 31) 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:┆
0x23f2a…23f4a 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 ┆
0x23f4a…23f59 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x23f59…23f79 (42, 0, 32) 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┆
0x23f79…23f99 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┆
0x23f99…23fa8 4e 27 29 28 41 29 53 4b 49 50 3b 20 20 20 20 ┆N')(A)SKIP; ┆
0x23fa8…23fc8 (42, 0, 33) 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┆
0x23fc8…23fe8 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; ┆
0x23fe8…23ff7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x23ff7…24017 (42, 0, 34) 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:┆
0x24017…24037 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┆
0x24037…24046 55 52 4e 29 27 29 28 41 28 33 33 29 29 3b 20 ┆URN)')(A(33)); ┆
0x24046…24066 (42, 0, 35) 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); ┆
0x24066…24086 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x24086…24095 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x24095…240b5 (42, 0, 36) 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 ┆
0x240b5…240d5 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; ┆
0x240d5…240e4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x240e4…24104 (42, 0, 37) 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┆
0x24104…24124 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; ┆
0x24124…24133 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x24133…24153 (42, 0, 38) 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┆
0x24153…24173 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; ┆
0x24173…24182 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x24182…241a2 (42, 0, 39) 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┆
0x241a2…241c2 50 20 45 44 49 54 28 27 4f 4b 21 20 56 5b 4e 54 41 2e 27 29 28 41 28 33 37 29 29 3b 20 20 20 20 ┆P EDIT('OK! VÄNTA.')(A(37)); ┆
0x241c2…241d1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x241d1…241f1 (42, 0, 40) 54 45 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 ┆TEST:ON ENDFILE GO TO UT;READ FI┆
0x241f1…24211 4c 45 28 4b 54 4f 54 58 29 49 4e 54 4f 28 4b 54 4f 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆LE(KTOTX)INTO(KTO); ┆
0x24211…24220 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x24220…24240 (43, 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*/ ┆
0x24240…24260 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x24260…2426f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2426f…2428f (43, 0, 1) 2f 2a 49 42 41 4c 49 4e 20 49 4e 4d 41 54 4e 49 4e 47 20 41 56 20 49 4e 47 5d 45 4e 44 45 20 42 ┆/*IBALIN INMATNING AV INGÅENDE B┆
0x2428f…242af 41 4c 41 4e 53 45 52 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ALANSER ┆
0x242af…242be 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x242be…242de (43, 0, 2) 4b 4c 41 52 54 3a 20 58 58 58 58 58 58 20 20 20 50 52 4f 47 52 3a 54 44 20 2a 2f 20 20 20 20 20 ┆KLART: XXXXXX PROGR:TD */ ┆
0x242de…242fe 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x242fe…2430d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2430d…2432d (43, 0, 3) 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),┆
0x2432d…2434d 33 20 53 41 56 44 20 46 49 58 45 44 28 32 29 2c 33 20 53 50 52 4f 4a 20 46 49 58 45 44 28 34 29 ┆3 SAVD FIXED(2),3 SPROJ FIXED(4)┆
0x2434d…2435c 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆, ┆
0x2435c…2437c (43, 0, 4) 33 20 53 4d 4e 52 20 46 49 58 45 44 28 32 29 2c 33 20 42 55 44 20 43 48 41 52 28 31 29 2c 20 20 ┆3 SMNR FIXED(2),3 BUD CHAR(1), ┆
0x2437c…2439c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2439c…243ab 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x243ab…243cb (43, 0, 5) 32 20 53 41 44 20 46 49 58 45 44 28 31 31 2c 32 29 2c 32 20 53 41 4b 20 46 49 58 45 44 28 31 31 ┆2 SAD FIXED(11,2),2 SAK FIXED(11┆
0x243cb…243eb 2c 32 29 2c 32 20 48 4a 4b 4f 44 20 43 48 41 52 28 31 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆,2),2 HJKOD CHAR(1); ┆
0x243eb…243fa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x243fa…24449 (43, 0, 6) 0x20[0x4f]
0x24449…24469 (43, 0, 7) 44 43 4c 20 31 20 4b 54 4f 2c 32 20 4b 4f 4e 54 4f 20 46 49 58 45 44 28 34 29 2c 32 20 54 45 58 ┆DCL 1 KTO,2 KONTO FIXED(4),2 TEX┆
0x24469…24489 54 20 43 48 41 52 28 33 34 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆T CHAR(34); ┆
0x24489…24498 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x24498…244e7 (43, 0, 8) 0x20[0x4f]
0x244e7…24507 (43, 0, 9) 44 43 4c 20 31 20 44 41 54 52 45 43 2c 32 20 44 41 47 20 43 48 41 52 28 36 29 2c 32 20 4d 4f 4e ┆DCL 1 DATREC,2 DAG CHAR(6),2 MON┆
0x24507…24527 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 29 ┆ CHAR(3),2 MNR FIXED(2),2 SK(14)┆
0x24527…24536 20 43 48 41 52 28 31 29 3b 20 20 20 20 20 20 ┆ CHAR(1); ┆
0x24536…24556 (43, 0, 10) 44 43 4c 20 31 20 58 44 41 54 52 45 43 2c 32 20 58 44 41 47 20 43 48 41 52 28 39 29 2c 32 20 58 ┆DCL 1 XDATREC,2 XDAG CHAR(9),2 X┆
0x24556…24576 4d 4e 52 20 46 49 58 45 44 28 32 29 2c 32 20 58 53 4b 28 31 34 29 20 43 48 41 52 28 31 29 3b 20 ┆MNR FIXED(2),2 XSK(14) CHAR(1); ┆
0x24576…24585 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x24585…245a5 (43, 0, 11) 58 44 41 47 3d 27 58 58 58 58 58 58 20 20 20 27 3b 58 4d 4e 52 3d 30 3b 20 20 20 20 20 20 20 20 ┆XDAG='XXXXXX ';XMNR=0; ┆
0x245a5…245c5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x245c5…245d4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x245d4…245f4 (43, 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┆
0x245f4…24614 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),┆
0x24614…24623 49 4e 44 20 46 49 58 45 44 28 31 29 2c 20 20 ┆IND FIXED(1), ┆
0x24623…24643 (43, 0, 13) 53 41 4d 46 49 4c 20 46 49 4c 45 2c 53 56 41 52 20 43 48 41 52 28 34 29 2c 20 20 20 20 20 20 20 ┆SAMFIL FILE,SVAR CHAR(4), ┆
0x24643…24663 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x24663…24672 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x24672…24692 (43, 0, 14) 58 50 52 4f 4a 20 46 49 58 45 44 28 34 29 2c 58 4b 4f 20 46 49 58 45 44 28 34 29 2c 58 41 56 44 ┆XPROJ FIXED(4),XKO FIXED(4),XAVD┆
0x24692…246b2 20 46 49 58 45 44 28 32 29 2c 58 44 41 54 20 46 49 58 45 44 28 34 29 2c 42 45 4c 20 46 49 58 45 ┆ FIXED(2),XDAT FIXED(4),BEL FIXE┆
0x246b2…246c1 44 28 31 32 2c 32 29 2c 20 20 20 20 20 20 20 ┆D(12,2), ┆
0x246c1…246e1 (43, 0, 15) 4a 55 4d 50 20 46 49 58 45 44 28 31 29 2c 43 20 43 48 41 52 28 32 30 29 20 49 4e 49 54 28 27 2d ┆JUMP FIXED(1),C CHAR(20) INIT('-┆
0x246e1…24701 2d 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 ┆-------------9V.99'), ┆
0x24701…24710 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x24710…24730 (43, 0, 16) 43 43 20 43 48 41 52 28 32 30 29 49 4e 49 54 28 27 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 39 56 2e 39 ┆CC CHAR(20)INIT('-----------9V.9┆
0x24730…24750 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***'), ┆
0x24750…2475f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2475f…2477f (43, 0, 17) 43 43 43 20 43 48 41 52 28 32 30 29 49 4e 49 54 28 27 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 39 ┆CCC CHAR(20)INIT('-------------9┆
0x2477f…2479f 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*'), ┆
0x2479f…247ae 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x247ae…247ce (43, 0, 18) 4b 49 42 20 46 49 58 45 44 28 31 32 2c 32 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆KIB FIXED(12,2); ┆
0x247ce…247ee 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x247ee…247fd 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x247fd…2484c (43, 0, 19) 0x20[0x4f]
0x2484c…2486c (43, 0, 20) 4f 50 45 4e 20 44 41 54 46 49 4c 3b 4f 50 45 4e 20 4b 54 4f 54 58 3b 4f 50 45 4e 20 53 41 4d 46 ┆OPEN DATFIL;OPEN KTOTX;OPEN SAMF┆
0x2486c…2488c 49 4c 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆IL; ┆
0x2488c…2489b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2489b…248bb (43, 0, 21) 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┆
0x248bb…248db 20 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 20 ┆ DAG='XXXXXX' THEN GO TO SLUT; ┆
0x248db…248ea 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x248ea…2490a (43, 0, 22) 44 4f 20 49 3d 31 20 54 4f 20 31 34 3b 58 53 4b 28 49 29 3d 53 4b 28 49 29 3b 45 4e 44 3b 58 53 ┆DO I=1 TO 14;XSK(I)=SK(I);END;XS┆
0x2490a…2492a 4b 28 31 33 29 3d 27 20 27 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆K(13)=' '; ┆
0x2492a…24939 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x24939…24959 (43, 0, 23) 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 58 44 41 54 52 45 43 ┆REWRITE FILE(DATFIL)FROM(XDATREC┆
0x24959…24979 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆); ┆
0x24979…24988 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x24988…249a8 (43, 0, 24) 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)┆
0x249a8…249c8 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┆
0x249c8…249d7 41 4e 53 45 52 20 2a 2a 27 29 20 20 20 20 20 ┆ANSER **') ┆
0x249d7…249f7 (43, 0, 25) 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'┆
0x249f7…24a17 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.')(┆
0x24a17…24a26 41 28 33 37 29 29 3b 20 20 20 20 20 20 20 20 ┆A(37)); ┆
0x24a26…24a46 (43, 0, 26) 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); ┆
0x24a46…24a66 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x24a66…24a75 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x24a75…24a95 (43, 0, 27) 52 41 44 3d 35 3b 53 49 44 41 3d 30 3b 49 4e 44 3d 31 3b 53 4d 4e 52 3d 30 3b 42 55 44 3d 27 20 ┆RAD=5;SIDA=0;IND=1;SMNR=0;BUD=' ┆
0x24a95…24ab5 27 3b 53 41 56 44 3d 30 3b 53 50 52 4f 4a 3d 30 3b 48 4a 4b 4f 44 3d 27 20 27 3b 20 20 20 20 20 ┆';SAVD=0;SPROJ=0;HJKOD=' '; ┆
0x24ab5…24ac4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x24ac4…24ae4 (43, 0, 28) 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┆
0x24ae4…24b04 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)) ┆
0x24b04…24b13 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x24b13…24b33 (43, 0, 29) 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)); ┆
0x24b33…24b53 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x24b53…24b62 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x24b62…24b82 (43, 0, 30) 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┆
0x24b82…24ba2 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┆
0x24ba2…24bb1 52 2e 27 29 28 41 28 34 30 29 29 20 20 20 20 ┆R.')(A(40)) ┆
0x24bb1…24bd1 (43, 0, 31) 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:┆
0x24bd1…24bf1 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 ┆
0x24bf1…24c00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x24c00…24c20 (43, 0, 32) 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┆
0x24c20…24c40 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┆
0x24c40…24c4f 4e 27 29 28 41 29 53 4b 49 50 3b 20 20 20 20 ┆N')(A)SKIP; ┆
0x24c4f…24c6f (43, 0, 33) 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┆
0x24c6f…24c8f 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; ┆
0x24c8f…24c9e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x24c9e…24cbe (43, 0, 34) 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:┆
0x24cbe…24cde 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┆
0x24cde…24ced 55 52 4e 29 27 29 28 41 28 33 33 29 29 3b 20 ┆URN)')(A(33)); ┆
0x24ced…24d0d (43, 0, 35) 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); ┆
0x24d0d…24d2d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x24d2d…24d3c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x24d3c…24d5c (43, 0, 36) 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 ┆
0x24d5c…24d7c 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; ┆
0x24d7c…24d8b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x24d8b…24dab (43, 0, 37) 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┆
0x24dab…24dcb 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; ┆
0x24dcb…24dda 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x24dda…24dfa (43, 0, 38) 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┆
0x24dfa…24e1a 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; ┆
0x24e1a…24e29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x24e29…24e49 (43, 0, 39) 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┆
0x24e49…24e69 50 20 45 44 49 54 28 27 4f 4b 21 20 56 5b 4e 54 41 2e 27 29 28 41 28 33 37 29 29 3b 20 20 20 20 ┆P EDIT('OK! VÄNTA.')(A(37)); ┆
0x24e69…24e78 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x24e78…24e98 (43, 0, 40) 54 45 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 ┆TEST:ON ENDFILE GO TO UT;READ FI┆
0x24e98…24eb8 4c 45 28 4b 54 4f 54 58 29 49 4e 54 4f 28 4b 54 4f 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆LE(KTOTX)INTO(KTO); ┆
0x24eb8…24ec7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x24ec7…24ee7 (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*/ ┆
0x24ee7…24f07 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x24f07…24f16 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x24f16…24f36 (44, 0, 1) 2f 2a 49 42 41 4c 49 4e 20 49 4e 4d 41 54 4e 49 4e 47 20 41 56 20 49 4e 47 5d 45 4e 44 45 20 42 ┆/*IBALIN INMATNING AV INGÅENDE B┆
0x24f36…24f56 41 4c 41 4e 53 45 52 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ALANSER ┆
0x24f56…24f65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x24f65…24f85 (44, 0, 2) 4b 4c 41 52 54 3a 20 58 58 58 58 58 58 20 20 20 50 52 4f 47 52 3a 54 44 20 2a 2f 20 20 20 20 20 ┆KLART: XXXXXX PROGR:TD */ ┆
0x24f85…24fa5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x24fa5…24fb4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x24fb4…24fd4 (44, 0, 3) 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),┆
0x24fd4…24ff4 33 20 53 41 56 44 20 46 49 58 45 44 28 32 29 2c 33 20 53 50 52 4f 4a 20 46 49 58 45 44 28 34 29 ┆3 SAVD FIXED(2),3 SPROJ FIXED(4)┆
0x24ff4…25003 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆, ┆
0x25003…25023 (44, 0, 4) 33 20 53 4d 4e 52 20 46 49 58 45 44 28 32 29 2c 33 20 42 55 44 20 43 48 41 52 28 31 29 2c 20 20 ┆3 SMNR FIXED(2),3 BUD CHAR(1), ┆
0x25023…25043 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x25043…25052 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x25052…25072 (44, 0, 5) 32 20 53 41 44 20 46 49 58 45 44 28 31 31 2c 32 29 2c 32 20 53 41 4b 20 46 49 58 45 44 28 31 31 ┆2 SAD FIXED(11,2),2 SAK FIXED(11┆
0x25072…25092 2c 32 29 2c 32 20 48 4a 4b 4f 44 20 43 48 41 52 28 31 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆,2),2 HJKOD CHAR(1); ┆
0x25092…250a1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x250a1…250f0 (44, 0, 6) 0x20[0x4f]
0x250f0…25110 (44, 0, 7) 44 43 4c 20 31 20 4b 54 4f 2c 32 20 4b 4f 4e 54 4f 20 46 49 58 45 44 28 34 29 2c 32 20 54 45 58 ┆DCL 1 KTO,2 KONTO FIXED(4),2 TEX┆
0x25110…25130 54 20 43 48 41 52 28 33 34 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆T CHAR(34); ┆
0x25130…2513f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2513f…2518e (44, 0, 8) 0x20[0x4f]
0x2518e…251ae (44, 0, 9) 44 43 4c 20 31 20 44 41 54 52 45 43 2c 32 20 44 41 47 20 43 48 41 52 28 36 29 2c 32 20 4d 4f 4e ┆DCL 1 DATREC,2 DAG CHAR(6),2 MON┆
0x251ae…251ce 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 29 ┆ CHAR(3),2 MNR FIXED(2),2 SK(14)┆
0x251ce…251dd 20 43 48 41 52 28 31 29 3b 20 20 20 20 20 20 ┆ CHAR(1); ┆
0x251dd…251fd (44, 0, 10) 44 43 4c 20 31 20 58 44 41 54 52 45 43 2c 32 20 58 44 41 47 20 43 48 41 52 28 39 29 2c 32 20 58 ┆DCL 1 XDATREC,2 XDAG CHAR(9),2 X┆
0x251fd…2521d 4d 4e 52 20 46 49 58 45 44 28 32 29 2c 32 20 58 53 4b 28 31 34 29 20 43 48 41 52 28 31 29 3b 20 ┆MNR FIXED(2),2 XSK(14) CHAR(1); ┆
0x2521d…2522c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2522c…2524c (44, 0, 11) 58 44 41 47 3d 27 58 58 58 58 58 58 20 20 20 27 3b 58 4d 4e 52 3d 30 3b 20 20 20 20 20 20 20 20 ┆XDAG='XXXXXX ';XMNR=0; ┆
0x2524c…2526c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2526c…2527b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2527b…2529b (44, 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┆
0x2529b…252bb 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),┆
0x252bb…252ca 49 4e 44 20 46 49 58 45 44 28 31 29 2c 20 20 ┆IND FIXED(1), ┆
0x252ca…252ea (44, 0, 13) 53 41 4d 46 49 4c 20 46 49 4c 45 2c 53 56 41 52 20 43 48 41 52 28 34 29 2c 20 20 20 20 20 20 20 ┆SAMFIL FILE,SVAR CHAR(4), ┆
0x252ea…2530a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2530a…25319 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x25319…25339 (44, 0, 14) 58 50 52 4f 4a 20 46 49 58 45 44 28 34 29 2c 58 4b 4f 20 46 49 58 45 44 28 34 29 2c 58 41 56 44 ┆XPROJ FIXED(4),XKO FIXED(4),XAVD┆
0x25339…25359 20 46 49 58 45 44 28 32 29 2c 58 44 41 54 20 46 49 58 45 44 28 34 29 2c 42 45 4c 20 46 49 58 45 ┆ FIXED(2),XDAT FIXED(4),BEL FIXE┆
0x25359…25368 44 28 31 32 2c 32 29 2c 20 20 20 20 20 20 20 ┆D(12,2), ┆
0x25368…25388 (44, 0, 15) 4a 55 4d 50 20 46 49 58 45 44 28 31 29 2c 43 20 43 48 41 52 28 32 30 29 20 49 4e 49 54 28 27 2d ┆JUMP FIXED(1),C CHAR(20) INIT('-┆
0x25388…253a8 2d 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 ┆-------------9V.99'), ┆
0x253a8…253b7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x253b7…253d7 (44, 0, 16) 43 43 20 43 48 41 52 28 32 30 29 49 4e 49 54 28 27 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 39 56 2e 39 ┆CC CHAR(20)INIT('-----------9V.9┆
0x253d7…253f7 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***'), ┆
0x253f7…25406 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x25406…25426 (44, 0, 17) 43 43 43 20 43 48 41 52 28 32 30 29 49 4e 49 54 28 27 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 39 ┆CCC CHAR(20)INIT('-------------9┆
0x25426…25446 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*'), ┆
0x25446…25455 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x25455…25475 (44, 0, 18) 4b 49 42 20 46 49 58 45 44 28 31 32 2c 32 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆KIB FIXED(12,2); ┆
0x25475…25495 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x25495…254a4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x254a4…254f3 (44, 0, 19) 0x20[0x4f]
0x254f3…25513 (44, 0, 20) 4f 50 45 4e 20 44 41 54 46 49 4c 3b 4f 50 45 4e 20 4b 54 4f 54 58 3b 4f 50 45 4e 20 53 41 4d 46 ┆OPEN DATFIL;OPEN KTOTX;OPEN SAMF┆
0x25513…25533 49 4c 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆IL; ┆
0x25533…25542 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x25542…25562 (44, 0, 21) 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┆
0x25562…25582 20 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 20 ┆ DAG='XXXXXX' THEN GO TO SLUT; ┆
0x25582…25591 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x25591…255b1 (44, 0, 22) 44 4f 20 49 3d 31 20 54 4f 20 31 34 3b 58 53 4b 28 49 29 3d 53 4b 28 49 29 3b 45 4e 44 3b 58 53 ┆DO I=1 TO 14;XSK(I)=SK(I);END;XS┆
0x255b1…255d1 4b 28 31 33 29 3d 27 20 27 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆K(13)=' '; ┆
0x255d1…255e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x255e0…25600 (44, 0, 23) 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 58 44 41 54 52 45 43 ┆REWRITE FILE(DATFIL)FROM(XDATREC┆
0x25600…25620 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆); ┆
0x25620…2562f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2562f…2564f (44, 0, 24) 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)┆
0x2564f…2566f 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┆
0x2566f…2567e 41 4e 53 45 52 20 2a 2a 27 29 20 20 20 20 20 ┆ANSER **') ┆
0x2567e…2569e (44, 0, 25) 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'┆
0x2569e…256be 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.')(┆
0x256be…256cd 41 28 33 37 29 29 3b 20 20 20 20 20 20 20 20 ┆A(37)); ┆
0x256cd…256ed (44, 0, 26) 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); ┆
0x256ed…2570d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2570d…2571c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2571c…2573c (44, 0, 27) 52 41 44 3d 35 3b 53 49 44 41 3d 30 3b 49 4e 44 3d 31 3b 53 4d 4e 52 3d 30 3b 42 55 44 3d 27 20 ┆RAD=5;SIDA=0;IND=1;SMNR=0;BUD=' ┆
0x2573c…2575c 27 3b 53 41 56 44 3d 30 3b 53 50 52 4f 4a 3d 30 3b 48 4a 4b 4f 44 3d 27 20 27 3b 20 20 20 20 20 ┆';SAVD=0;SPROJ=0;HJKOD=' '; ┆
0x2575c…2576b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2576b…2578b (44, 0, 28) 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┆
0x2578b…257ab 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)) ┆
0x257ab…257ba 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x257ba…257da (44, 0, 29) 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)); ┆
0x257da…257fa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x257fa…25809 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x25809…25829 (44, 0, 30) 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┆
0x25829…25849 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┆
0x25849…25858 52 2e 27 29 28 41 28 34 30 29 29 20 20 20 20 ┆R.')(A(40)) ┆
0x25858…25878 (44, 0, 31) 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:┆
0x25878…25898 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 ┆
0x25898…258a7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x258a7…258c7 (44, 0, 32) 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┆
0x258c7…258e7 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┆
0x258e7…258f6 4e 27 29 28 41 29 53 4b 49 50 3b 20 20 20 20 ┆N')(A)SKIP; ┆
0x258f6…25916 (44, 0, 33) 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┆
0x25916…25936 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; ┆
0x25936…25945 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x25945…25965 (44, 0, 34) 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:┆
0x25965…25985 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┆
0x25985…25994 55 52 4e 29 27 29 28 41 28 33 33 29 29 3b 20 ┆URN)')(A(33)); ┆
0x25994…259b4 (44, 0, 35) 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); ┆
0x259b4…259d4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x259d4…259e3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x259e3…25a03 (44, 0, 36) 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 ┆
0x25a03…25a23 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; ┆
0x25a23…25a32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x25a32…25a52 (44, 0, 37) 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┆
0x25a52…25a72 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; ┆
0x25a72…25a81 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x25a81…25aa1 (44, 0, 38) 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┆
0x25aa1…25ac1 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; ┆
0x25ac1…25ad0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x25ad0…25af0 (44, 0, 39) 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┆
0x25af0…25b10 50 20 45 44 49 54 28 27 4f 4b 21 20 56 5b 4e 54 41 2e 27 29 28 41 28 33 37 29 29 3b 20 20 20 20 ┆P EDIT('OK! VÄNTA.')(A(37)); ┆
0x25b10…25b1f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x25b1f…25b3f (44, 0, 40) 54 45 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 ┆TEST:ON ENDFILE GO TO UT;READ FI┆
0x25b3f…25b5f 4c 45 28 4b 54 4f 54 58 29 49 4e 54 4f 28 4b 54 4f 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆LE(KTOTX)INTO(KTO); ┆
0x25b5f…25b6e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x25b6e…25b8e (45, 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*/ ┆
0x25b8e…25bae 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x25bae…25bce 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 49 42 41 4c 49 4e 20 49 4e 4d 41 54 4e 49 4e ┆ /*IBALIN INMATNIN┆
0x25bce…25bee 47 20 41 56 20 49 4e 47 5d 45 4e 44 45 20 42 41 4c 41 4e 53 45 52 20 20 20 20 20 20 20 20 20 20 ┆G AV INGÅENDE BALANSER ┆
0x25bee…25c0e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4b 4c ┆ KL┆
0x25c0e…25c2e 41 52 54 3a 20 58 58 58 58 58 58 20 20 20 50 52 4f 47 52 3a 54 44 20 2a 2f 20 20 20 20 20 20 20 ┆ART: XXXXXX PROGR:TD */ ┆
0x25c2e…25c4e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x25c4e…25c6d 20 20 20 20 20 20 20 20 20 20 20 20 20 44 43 4c 20 31 20 53 41 4d 2c 32 20 53 53 54 52 2c 33 ┆ DCL 1 SAM,2 SSTR,3┆
0x25c6d…25c8d (45, 0, 1) 20 53 4b 4f 20 46 49 58 45 44 28 34 29 2c 33 20 53 41 56 44 20 46 49 58 45 44 28 32 29 2c 33 20 ┆ SKO FIXED(4),3 SAVD FIXED(2),3 ┆
0x25c8d…25cad 53 50 52 4f 4a 20 46 49 58 45 44 28 34 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 33 20 53 ┆SPROJ FIXED(4), 3 S┆
0x25cad…25ccd 4d 4e 52 20 46 49 58 45 44 28 32 29 2c 33 20 42 55 44 20 43 48 41 52 28 31 29 2c 20 20 20 20 20 ┆MNR FIXED(2),3 BUD CHAR(1), ┆
0x25ccd…25ced 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x25ced…25d0d 20 20 20 20 20 20 20 20 20 20 20 20 32 20 53 41 44 20 46 49 58 45 44 28 31 31 2c 32 29 2c 32 20 ┆ 2 SAD FIXED(11,2),2 ┆
0x25d0d…25d2d 53 41 4b 20 46 49 58 45 44 28 31 31 2c 32 29 2c 32 20 48 4a 4b 4f 44 20 43 48 41 52 28 31 29 3b ┆SAK FIXED(11,2),2 HJKOD CHAR(1);┆
0x25d2d…25d4d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x25d4d…25d6c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x25d6c…25d8c (45, 0, 2) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x25d8c…25dac 20 20 20 20 20 20 20 20 20 20 20 44 43 4c 20 31 20 4b 54 4f 2c 32 20 4b 4f 4e 54 4f 20 46 49 58 ┆ DCL 1 KTO,2 KONTO FIX┆
0x25dac…25dcc 45 44 28 34 29 2c 32 20 54 45 58 54 20 43 48 41 52 28 33 34 29 3b 20 20 20 20 20 20 20 20 20 20 ┆ED(4),2 TEXT CHAR(34); ┆
0x25dcc…25dec 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
[…0x2…]
0x25e2c…25e4c 20 20 20 20 20 20 20 20 20 44 43 4c 20 31 20 44 41 54 52 45 43 2c 32 20 44 41 47 20 43 48 41 52 ┆ DCL 1 DATREC,2 DAG CHAR┆
0x25e4c…25e6b 28 36 29 2c 32 20 4d 4f 4e 20 43 48 41 52 28 33 29 2c 32 20 4d 4e 52 20 46 49 58 45 44 28 32 ┆(6),2 MON CHAR(3),2 MNR FIXED(2┆
0x25e6b…25e8b (45, 0, 3) 29 2c 32 20 53 4b 28 31 34 29 20 43 48 41 52 28 31 29 3b 20 20 20 20 20 20 44 43 4c 20 31 20 58 ┆),2 SK(14) CHAR(1); DCL 1 X┆
0x25e8b…25eab 44 41 54 52 45 43 2c 32 20 58 44 41 47 20 43 48 41 52 28 39 29 2c 32 20 58 4d 4e 52 20 46 49 58 ┆DATREC,2 XDAG CHAR(9),2 XMNR FIX┆
0x25eab…25ecb 45 44 28 32 29 2c 32 20 58 53 4b 28 31 34 29 20 43 48 41 52 28 31 29 3b 20 20 20 20 20 20 20 20 ┆ED(2),2 XSK(14) CHAR(1); ┆
0x25ecb…25eeb 20 20 20 20 20 20 20 20 58 44 41 47 3d 27 58 58 58 58 58 58 20 20 20 27 3b 58 4d 4e 52 3d 30 3b ┆ XDAG='XXXXXX ';XMNR=0;┆
0x25eeb…25f0b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x25f0b…25f2b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 43 4c 20 44 41 54 46 49 ┆ DCL DATFI┆
0x25f2b…25f4b 4c 20 46 49 4c 45 2c 4b 54 4f 54 58 20 46 49 4c 45 2c 53 20 43 48 41 52 28 31 29 2c 52 41 44 20 ┆L FILE,KTOTX FILE,S CHAR(1),RAD ┆
0x25f4b…25f6a 46 49 58 45 44 28 32 29 2c 53 49 44 41 20 46 49 58 45 44 28 34 29 2c 49 4e 44 20 46 49 58 45 ┆FIXED(2),SIDA FIXED(4),IND FIXE┆
0x25f6a…25f8a (45, 0, 4) 44 28 31 29 2c 20 20 53 41 4d 46 49 4c 20 46 49 4c 45 2c 53 56 41 52 20 43 48 41 52 28 34 29 2c ┆D(1), SAMFIL FILE,SVAR CHAR(4),┆
0x25f8a…25faa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x25faa…25fca 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 58 50 52 4f 4a 20 46 49 58 45 ┆ XPROJ FIXE┆
0x25fca…25fea 44 28 34 29 2c 58 4b 4f 20 46 49 58 45 44 28 34 29 2c 58 41 56 44 20 46 49 58 45 44 28 32 29 2c ┆D(4),XKO FIXED(4),XAVD FIXED(2),┆
0x25fea…2600a 58 44 41 54 20 46 49 58 45 44 28 34 29 2c 42 45 4c 20 46 49 58 45 44 28 31 32 2c 32 29 2c 20 20 ┆XDAT FIXED(4),BEL FIXED(12,2), ┆
0x2600a…2602a 20 20 20 20 20 4a 55 4d 50 20 46 49 58 45 44 28 31 29 2c 43 20 43 48 41 52 28 32 30 29 20 49 4e ┆ JUMP FIXED(1),C CHAR(20) IN┆
0x2602a…2604a 49 54 28 27 2d 2d 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 ┆IT('--------------9V.99'), ┆
0x2604a…26069 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 43 20 43 48 41 52 28 32 30 29 ┆ CC CHAR(20)┆
0x26069…26089 (45, 0, 5) 49 4e 49 54 28 27 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 39 56 2e 39 39 2a 2a 2a 27 29 2c 20 20 20 20 ┆INIT('-----------9V.99***'), ┆
0x26089…260a9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x260a9…260c9 20 20 20 20 43 43 43 20 43 48 41 52 28 32 30 29 49 4e 49 54 28 27 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ CCC CHAR(20)INIT('----------┆
0x260c9…260e9 2d 2d 2d 39 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 ┆---9V.99*'), ┆
0x260e9…26109 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4b 49 42 20 46 49 58 45 44 28 31 32 2c ┆ KIB FIXED(12,┆
0x26109…26129 32 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 ┆2); ┆
0x26129…26149 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x26149…26168 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x26168…26188 (45, 0, 6) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x26188…261a8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4f 50 45 4e 20 44 41 54 46 49 4c 3b 4f 50 ┆ OPEN DATFIL;OP┆
0x261a8…261c8 45 4e 20 4b 54 4f 54 58 3b 4f 50 45 4e 20 53 41 4d 46 49 4c 3b 20 20 20 20 20 20 20 20 20 20 20 ┆EN KTOTX;OPEN SAMFIL; ┆
0x261c8…261e8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x261e8…26208 20 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 ┆ READ FILE(DATFIL)INTO(DATREC);I┆
0x26208…26228 46 20 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 ┆F DAG='XXXXXX' THEN GO TO SLUT; ┆
0x26228…26248 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 4f 20 49 3d 31 20 54 4f 20 31 34 3b 58 53 4b ┆ DO I=1 TO 14;XSK┆
0x26248…26267 28 49 29 3d 53 4b 28 49 29 3b 45 4e 44 3b 58 53 4b 28 31 33 29 3d 27 20 27 3b 20 20 20 20 20 ┆(I)=SK(I);END;XSK(13)=' '; ┆
0x26267…26287 (45, 0, 7) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x26287…262a7 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 58 44 41 54 52 45 43 ┆REWRITE FILE(DATFIL)FROM(XDATREC┆
0x262a7…262c7 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆); ┆
0x262c7…262e7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 28 44 29 20 53 4b 49 50 20 ┆ PUT FILE(D) SKIP ┆
0x262e7…26307 45 44 49 54 28 27 20 27 29 28 41 28 33 37 29 29 28 27 2a 2a 20 20 49 4e 4d 41 54 4e 49 4e 47 20 ┆EDIT(' ')(A(37))('** INMATNING ┆
0x26307…26327 41 56 20 49 4e 47 5d 45 4e 44 45 20 42 41 4c 41 4e 53 45 52 20 2a 2a 27 29 20 20 20 20 20 28 41 ┆AV INGÅENDE BALANSER **') (A┆
0x26327…26347 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 29 28 ┆(74))('STÄLL IN PERFORERINGEN')(┆
0x26347…26366 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 41 ┆A(37))('TRYCK SEDAN RETURN.')(A┆
0x26366…26386 (45, 0, 8) 28 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 20 ┆(37)); GET SKIP LIST(S); ┆
0x26386…263a6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x263a6…263c6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 41 44 ┆ RAD┆
0x263c6…263e6 3d 35 3b 53 49 44 41 3d 30 3b 49 4e 44 3d 31 3b 53 4d 4e 52 3d 30 3b 42 55 44 3d 27 20 27 3b 53 ┆=5;SIDA=0;IND=1;SMNR=0;BUD=' ';S┆
0x263e6…26406 41 56 44 3d 30 3b 53 50 52 4f 4a 3d 30 3b 48 4a 4b 4f 44 3d 27 20 27 3b 20 20 20 20 20 20 20 20 ┆AVD=0;SPROJ=0;HJKOD=' '; ┆
0x26406…26426 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 28 44 29 53 4b 49 50 20 45 44 49 54 ┆ PUT FILE(D)SKIP EDIT┆
0x26426…26446 28 27 28 46 52 5d 4e 20 42 5c 52 4a 41 4e 20 54 52 59 43 4b 20 42 41 52 41 20 52 45 54 55 52 4e ┆('(FRÅN BÖRJAN TRYCK BARA RETURN┆
0x26446…26465 29 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 28 27 4b 4f ┆)')(A(37)) ('KO┆
0x26465…26485 (45, 0, 9) 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 20 20 20 20 ┆NTO:')(A(33)); ┆
0x26485…264a5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x264a5…264c5 20 20 20 20 20 20 20 20 20 20 20 52 55 42 3a 53 49 44 41 3d 53 49 44 41 2b 31 3b 50 55 54 20 53 ┆ RUB:SIDA=SIDA+1;PUT S┆
0x264c5…264e5 4b 49 50 28 52 41 44 29 45 44 49 54 28 27 49 4e 4d 41 54 4e 49 4e 47 20 41 56 20 49 4e 47 5d 45 ┆KIP(RAD)EDIT('INMATNING AV INGÅE┆
0x264e5…26505 4e 44 45 20 42 41 4c 41 4e 53 45 52 2e 27 29 28 41 28 34 30 29 29 20 20 20 20 28 27 44 41 54 55 ┆NDE BALANSER.')(A(40)) ('DATU┆
0x26505…26525 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 27 29 28 41 29 28 ┆M:')(A)(DAG)(A(10))('SIDA:')(A)(┆
0x26525…26545 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 20 20 20 20 20 20 ┆SIDA)(A)SKIP(2)EDIT ┆
0x26545…26564 20 20 20 20 20 20 20 20 20 28 27 4b 4f 4e 54 4f 27 29 28 41 28 37 29 29 28 27 42 45 4e 5b 4d ┆ ('KONTO')(A(7))('BENÄM┆
0x26564…26584 (45, 0, 10) 4e 49 4e 47 27 29 28 41 28 33 38 29 29 28 27 49 4e 47 2e 20 42 41 4c 41 4e 53 20 56 49 44 20 5d ┆NING')(A(38))('ING. BALANS VID Å┆
0x26584…265a4 52 45 54 53 20 42 5c 52 4a 41 4e 27 29 28 41 29 53 4b 49 50 3b 20 20 20 20 52 41 44 3d 34 35 3b ┆RETS BÖRJAN')(A)SKIP; RAD=45;┆
0x265a4…265c4 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 20 54 4f 20 50 52 54 ┆IF IND THEN GO TO KOIN;GO TO PRT┆
0x265c4…265e4 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 ┆; ┆
0x265e4…26604 20 20 20 20 20 20 20 20 53 54 3a 50 55 54 20 46 49 4c 45 28 44 29 20 53 4b 49 50 20 45 44 49 54 ┆ ST:PUT FILE(D) SKIP EDIT┆
0x26604…26624 28 27 4b 4f 4e 54 4f 3a 27 29 28 41 28 33 37 29 29 28 27 28 4f 4d 20 4c 5c 50 41 4e 44 45 20 54 ┆('KONTO:')(A(37))('(OM LÖPANDE T┆
0x26624…26644 52 59 43 4b 20 52 45 54 55 52 4e 29 27 29 28 41 28 33 33 29 29 3b 20 4b 4f 49 4e 3a 49 4e 44 3d ┆RYCK RETURN)')(A(33)); KOIN:IND=┆
0x26644…26663 30 3b 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 53 56 41 52 29 3b 20 20 20 20 20 20 20 20 20 ┆0;GET SKIP LIST(SVAR); ┆
0x26663…26683 (45, 0, 11) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x26683…266a3 20 20 20 20 20 20 20 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 ┆ KOIN2:IF SVAR='SLUT' THEN┆
0x266a3…266c3 20 47 4f 20 54 4f 20 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 ┆ GO TO UT; ┆
0x266c3…266e3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 53 56 41 52 3d 27 20 ┆ IF SVAR=' ┆
0x266e3…26703 20 20 20 27 20 54 48 45 4e 20 49 4e 44 3d 31 3b 45 4c 53 45 20 58 4b 4f 3d 53 56 41 52 3b 20 20 ┆ ' THEN IND=1;ELSE XKO=SVAR; ┆
0x26703…26723 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x26723…26743 20 20 20 20 20 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 ┆ IF IND=0&SUBSTR(SVAR,4,1)='┆
0x26743…26762 20 27 20 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 ┆ ' THEN GO TO FEL; ┆
0x26762…26782 (45, 0, 12) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 4e 3a 49 46 20 49 4e 44 20 54 ┆ IN:IF IND T┆
0x26782…267a2 48 45 4e 20 44 4f 3b 50 55 54 20 46 49 4c 45 28 44 29 53 4b 49 50 20 45 44 49 54 28 27 4f 4b 21 ┆HEN DO;PUT FILE(D)SKIP EDIT('OK!┆
0x267a2…267c2 20 56 5b 4e 54 41 2e 27 29 28 41 28 33 37 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ VÄNTA.')(A(37)); ┆
0x267c2…267e2 20 20 20 20 54 45 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 ┆ TEST:ON ENDFILE GO TO UT;REA┆
0x267e2…26802 44 20 46 49 4c 45 28 4b 54 4f 54 58 29 49 4e 54 4f 28 4b 54 4f 29 3b 20 20 20 20 20 20 20 20 20 ┆D FILE(KTOTX)INTO(KTO); ┆
0x26802…26822 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4d 55 4c 54 49 20 1c 00 1c 00 77 43 43 ┆ MULTI wCC┆
0x26822…26842 48 4f 4f 53 45 20 20 1d 00 1d 00 00 43 00 00 00 00 00 00 00 00 d3 ff d3 ff 00 00 00 00 00 00 00 ┆HOOSE C ┆
0x26842…26861 00 00 00 dd ff dd ff 00 00 00 00 00 00 00 00 00 00 dd ff dd ff 00 00 00 00 00 00 00 00 0f 02 ┆ ┆
0x26861…26881 (45, 0, 13) 0c bb 4d 04 00 00 91 40 0c c1 4d 02 ff 00 0c c5 4d 02 05 00 0b cf 4d 5d 4d b5 03 4d b9 4d b5 4d ┆ M @ M M MÅM M M M┆
0x26881…268a1 bb 00 33 00 02 0e 0a 00 03 4d b5 4d bb 00 33 00 02 0e 0a 4d bd 00 03 4d bf 33 00 00 4d b5 00 0a ┆ 3 M M 3 M M 3 M ┆
0x268a1…268c1 00 4d c1 00 12 03 33 00 00 4d b5 00 0a 33 00 00 4d b5 00 0a 00 4d bf 00 0c 0a 03 4d b5 4d bb 00 ┆ M 3 M 3 M M M M ┆
0x268c1…268e1 33 00 02 0e 0a 4d b9 00 03 33 00 00 4d b5 00 0a 4d bf 00 03 1f 0b 34 4e 25 4d c3 03 33 00 00 4d ┆3 M 3 M M 4N%M 3 M┆
0x268e1…26901 c3 00 0a 4d bb 00 33 00 02 0e 0a 33 00 00 4d c3 00 0a 4d c5 00 33 00 02 0e 0a 00 03 1f 1b 00 fe ┆ M 3 3 M M 3 ┆
0x26901…26921 40 02 a3 43 0b 81 40 02 09 18 00 80 00 cd 00 08 fe 06 ca 06 45 b7 c4 18 08 21 00 43 0e 80 11 00 ┆@ C @ E ! C ┆
0x26921…26941 50 cd 61 47 21 00 43 06 00 11 80 50 0e 80 cd 39 00 7c b5 c2 47 44 2a 80 42 23 cd 15 00 eb 2a d6 ┆P aG! C P 9 ö GD* B# * ┆
0x26941…26960 42 19 7d b4 ca 44 44 cd e5 46 db 01 3d fe 1e 3c d2 f7 44 32 91 40 3a 91 40 fe 0d ca a3 44 97 ┆B å DD F = < D2 @: @ D ┆
0x26960…26980 (45, 0, 14) 0d 59 4e 1e 42 10 42 12 00 2a 10 42 eb 2a 12 42 4e eb f3 7e 23 c5 e5 cd 33 00 e1 c1 0d c2 68 4e ┆ YN B B * B * BN ~# 3 hN┆
0x26980…269a0 fb c9 00 0c 43 4c 50 4f 4e 20 20 20 20 03 00 03 00 00 43 4c 50 4f 46 46 20 20 20 03 00 03 00 1f ┆ CLPON CLPOFF ┆
0x269a0…269c0 43 43 4c 45 45 52 20 20 20 04 00 04 00 00 43 42 53 58 20 20 20 20 20 05 00 0f 00 00 43 41 54 4f ┆CCLEER CBSX CATO┆
0x269c0…269e0 45 20 20 20 20 0f 00 10 00 10 43 45 54 4f 41 20 20 20 20 0f 00 10 00 00 43 42 53 43 20 20 20 20 ┆E CETOA CBSC ┆
0x269e0…26a00 20 11 00 1a 00 00 43 4b 45 59 46 55 4e 20 20 1b 00 1b 00 1a 43 53 45 4f 46 20 20 20 20 1b 00 1b ┆ CKEYFUN CSEOF ┆
0x26a00…26a20 00 7f 43 4d 55 4c 54 49 20 20 20 1c 00 1c 00 09 43 55 4e 4d 55 4c 54 49 20 1c 00 1c 00 77 43 43 ┆ CMULTI CUNMULTI wCC┆
0x26a20…26a40 48 4f 4f 53 45 20 20 1d 00 1d 00 00 43 4f 55 54 50 55 54 20 20 1e 00 1e 00 00 43 4b 46 49 4c 45 ┆HOOSE COUTPUT CKFILE┆
0x26a40…26a5f 20 20 20 1f 00 1f 00 00 43 43 4c 45 45 52 20 20 20 20 00 20 00 00 43 00 00 00 00 00 00 1f 02 ┆ CCLEER C ┆
0x26a5f…26a7f (46, 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*/ ┆
0x26a7f…26a9f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x26a9f…26abf 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 49 42 41 4c 49 4e 20 49 4e 4d 41 54 4e 49 4e ┆ /*IBALIN INMATNIN┆
0x26abf…26adf 47 20 41 56 20 49 4e 47 5d 45 4e 44 45 20 42 41 4c 41 4e 53 45 52 20 20 20 20 20 20 20 20 20 20 ┆G AV INGÅENDE BALANSER ┆
0x26adf…26aff 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4b 4c ┆ KL┆
0x26aff…26b1f 41 52 54 3a 20 58 58 58 58 58 58 20 20 20 50 52 4f 47 52 3a 54 44 20 2a 2f 20 20 20 20 20 20 20 ┆ART: XXXXXX PROGR:TD */ ┆
0x26b1f…26b3f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x26b3f…26b5e 20 20 20 20 20 20 20 20 20 20 20 20 20 44 43 4c 20 31 20 53 41 4d 2c 32 20 53 53 54 52 2c 33 ┆ DCL 1 SAM,2 SSTR,3┆
0x26b5e…26b7e (46, 0, 1) 20 53 4b 4f 20 46 49 58 45 44 28 34 29 2c 33 20 53 41 56 44 20 46 49 58 45 44 28 32 29 2c 33 20 ┆ SKO FIXED(4),3 SAVD FIXED(2),3 ┆
0x26b7e…26b9e 53 50 52 4f 4a 20 46 49 58 45 44 28 34 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 33 20 53 ┆SPROJ FIXED(4), 3 S┆
0x26b9e…26bbe 4d 4e 52 20 46 49 58 45 44 28 32 29 2c 33 20 42 55 44 20 43 48 41 52 28 31 29 2c 20 20 20 20 20 ┆MNR FIXED(2),3 BUD CHAR(1), ┆
0x26bbe…26bde 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x26bde…26bfe 20 20 20 20 20 20 20 20 20 20 20 20 32 20 53 41 44 20 46 49 58 45 44 28 31 31 2c 32 29 2c 32 20 ┆ 2 SAD FIXED(11,2),2 ┆
0x26bfe…26c1e 53 41 4b 20 46 49 58 45 44 28 31 31 2c 32 29 2c 32 20 48 4a 4b 4f 44 20 43 48 41 52 28 31 29 3b ┆SAK FIXED(11,2),2 HJKOD CHAR(1);┆
0x26c1e…26c3e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x26c3e…26c5d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x26c5d…26c7d (46, 0, 2) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x26c7d…26c9d 20 20 20 20 20 20 20 20 20 20 20 44 43 4c 20 31 20 4b 54 4f 2c 32 20 4b 4f 4e 54 4f 20 46 49 58 ┆ DCL 1 KTO,2 KONTO FIX┆
0x26c9d…26cbd 45 44 28 34 29 2c 32 20 54 45 58 54 20 43 48 41 52 28 33 34 29 3b 20 20 20 20 20 20 20 20 20 20 ┆ED(4),2 TEXT CHAR(34); ┆
0x26cbd…26cdd 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
[…0x2…]
0x26d1d…26d3d 20 20 20 20 20 20 20 20 20 44 43 4c 20 31 20 44 41 54 52 45 43 2c 32 20 44 41 47 20 43 48 41 52 ┆ DCL 1 DATREC,2 DAG CHAR┆
0x26d3d…26d5c 28 36 29 2c 32 20 4d 4f 4e 20 43 48 41 52 28 33 29 2c 32 20 4d 4e 52 20 46 49 58 45 44 28 32 ┆(6),2 MON CHAR(3),2 MNR FIXED(2┆
0x26d5c…26d7c (46, 0, 3) 29 2c 32 20 53 4b 28 31 34 29 20 43 48 41 52 28 31 29 3b 20 20 20 20 20 20 44 43 4c 20 31 20 58 ┆),2 SK(14) CHAR(1); DCL 1 X┆
0x26d7c…26d9c 44 41 54 52 45 43 2c 32 20 58 44 41 47 20 43 48 41 52 28 39 29 2c 32 20 58 4d 4e 52 20 46 49 58 ┆DATREC,2 XDAG CHAR(9),2 XMNR FIX┆
0x26d9c…26dbc 45 44 28 32 29 2c 32 20 58 53 4b 28 31 34 29 20 43 48 41 52 28 31 29 3b 20 20 20 20 20 20 20 20 ┆ED(2),2 XSK(14) CHAR(1); ┆
0x26dbc…26ddc 20 20 20 20 20 20 20 20 58 44 41 47 3d 27 58 58 58 58 58 58 20 20 20 27 3b 58 4d 4e 52 3d 30 3b ┆ XDAG='XXXXXX ';XMNR=0;┆
0x26ddc…26dfc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x26dfc…26e1c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 43 4c 20 44 41 54 46 49 ┆ DCL DATFI┆
0x26e1c…26e3c 4c 20 46 49 4c 45 2c 4b 54 4f 54 58 20 46 49 4c 45 2c 53 20 43 48 41 52 28 31 29 2c 52 41 44 20 ┆L FILE,KTOTX FILE,S CHAR(1),RAD ┆
0x26e3c…26e5b 46 49 58 45 44 28 32 29 2c 53 49 44 41 20 46 49 58 45 44 28 34 29 2c 49 4e 44 20 46 49 58 45 ┆FIXED(2),SIDA FIXED(4),IND FIXE┆
0x26e5b…26e7b (46, 0, 4) 44 28 31 29 2c 20 20 53 41 4d 46 49 4c 20 46 49 4c 45 2c 53 56 41 52 20 43 48 41 52 28 34 29 2c ┆D(1), SAMFIL FILE,SVAR CHAR(4),┆
0x26e7b…26e9b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x26e9b…26ebb 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 58 50 52 4f 4a 20 46 49 58 45 ┆ XPROJ FIXE┆
0x26ebb…26edb 44 28 34 29 2c 58 4b 4f 20 46 49 58 45 44 28 34 29 2c 58 41 56 44 20 46 49 58 45 44 28 32 29 2c ┆D(4),XKO FIXED(4),XAVD FIXED(2),┆
0x26edb…26efb 58 44 41 54 20 46 49 58 45 44 28 34 29 2c 42 45 4c 20 46 49 58 45 44 28 31 32 2c 32 29 2c 20 20 ┆XDAT FIXED(4),BEL FIXED(12,2), ┆
0x26efb…26f1b 20 20 20 20 20 4a 55 4d 50 20 46 49 58 45 44 28 31 29 2c 43 20 43 48 41 52 28 32 30 29 20 49 4e ┆ JUMP FIXED(1),C CHAR(20) IN┆
0x26f1b…26f3b 49 54 28 27 2d 2d 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 ┆IT('--------------9V.99'), ┆
0x26f3b…26f5a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 43 20 43 48 41 52 28 32 30 29 ┆ CC CHAR(20)┆
0x26f5a…26f7a (46, 0, 5) 49 4e 49 54 28 27 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 39 56 2e 39 39 2a 2a 2a 27 29 2c 20 20 20 20 ┆INIT('-----------9V.99***'), ┆
0x26f7a…26f9a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x26f9a…26fba 20 20 20 20 43 43 43 20 43 48 41 52 28 32 30 29 49 4e 49 54 28 27 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ CCC CHAR(20)INIT('----------┆
0x26fba…26fda 2d 2d 2d 39 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 ┆---9V.99*'), ┆
0x26fda…26ffa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4b 49 42 20 46 49 58 45 44 28 31 32 2c ┆ KIB FIXED(12,┆
0x26ffa…2701a 32 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 ┆2); ┆
0x2701a…2703a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2703a…27059 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x27059…27079 (46, 0, 6) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x27079…27099 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4f 50 45 4e 20 44 41 54 46 49 4c 3b 4f 50 ┆ OPEN DATFIL;OP┆
0x27099…270b9 45 4e 20 4b 54 4f 54 58 3b 4f 50 45 4e 20 53 41 4d 46 49 4c 3b 20 20 20 20 20 20 20 20 20 20 20 ┆EN KTOTX;OPEN SAMFIL; ┆
0x270b9…270d9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x270d9…270f9 20 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 ┆ READ FILE(DATFIL)INTO(DATREC);I┆
0x270f9…27119 46 20 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 ┆F DAG='XXXXXX' THEN GO TO SLUT; ┆
0x27119…27139 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 4f 20 49 3d 31 20 54 4f 20 31 34 3b 58 53 4b ┆ DO I=1 TO 14;XSK┆
0x27139…27158 28 49 29 3d 53 4b 28 49 29 3b 45 4e 44 3b 58 53 4b 28 31 33 29 3d 27 20 27 3b 20 20 20 20 20 ┆(I)=SK(I);END;XSK(13)=' '; ┆
0x27158…27178 (46, 0, 7) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x27178…27198 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 58 44 41 54 52 45 43 ┆REWRITE FILE(DATFIL)FROM(XDATREC┆
0x27198…271b8 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆); ┆
0x271b8…271d8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 28 44 29 20 53 4b 49 50 20 ┆ PUT FILE(D) SKIP ┆
0x271d8…271f8 45 44 49 54 28 27 20 27 29 28 41 28 33 37 29 29 28 27 2a 2a 20 20 49 4e 4d 41 54 4e 49 4e 47 20 ┆EDIT(' ')(A(37))('** INMATNING ┆
0x271f8…27218 41 56 20 49 4e 47 5d 45 4e 44 45 20 42 41 4c 41 4e 53 45 52 20 2a 2a 27 29 20 20 20 20 20 28 41 ┆AV INGÅENDE BALANSER **') (A┆
0x27218…27238 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 29 28 ┆(74))('STÄLL IN PERFORERINGEN')(┆
0x27238…27257 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 41 ┆A(37))('TRYCK SEDAN RETURN.')(A┆
0x27257…27277 (46, 0, 8) 28 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 20 ┆(37)); GET SKIP LIST(S); ┆
0x27277…27297 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x27297…272b7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 41 44 ┆ RAD┆
0x272b7…272d7 3d 35 3b 53 49 44 41 3d 30 3b 49 4e 44 3d 31 3b 53 4d 4e 52 3d 30 3b 42 55 44 3d 27 20 27 3b 53 ┆=5;SIDA=0;IND=1;SMNR=0;BUD=' ';S┆
0x272d7…272f7 41 56 44 3d 30 3b 53 50 52 4f 4a 3d 30 3b 48 4a 4b 4f 44 3d 27 20 27 3b 20 20 20 20 20 20 20 20 ┆AVD=0;SPROJ=0;HJKOD=' '; ┆
0x272f7…27317 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 28 44 29 53 4b 49 50 20 45 44 49 54 ┆ PUT FILE(D)SKIP EDIT┆
0x27317…27337 28 27 28 46 52 5d 4e 20 42 5c 52 4a 41 4e 20 54 52 59 43 4b 20 42 41 52 41 20 52 45 54 55 52 4e ┆('(FRÅN BÖRJAN TRYCK BARA RETURN┆
0x27337…27356 29 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 28 27 4b 4f ┆)')(A(37)) ('KO┆
0x27356…27376 (46, 0, 9) 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 20 20 20 20 ┆NTO:')(A(33)); ┆
0x27376…27396 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x27396…273b6 20 20 20 20 20 20 20 20 20 20 20 52 55 42 3a 53 49 44 41 3d 53 49 44 41 2b 31 3b 50 55 54 20 53 ┆ RUB:SIDA=SIDA+1;PUT S┆
0x273b6…273d6 4b 49 50 28 52 41 44 29 45 44 49 54 28 27 49 4e 4d 41 54 4e 49 4e 47 20 41 56 20 49 4e 47 5d 45 ┆KIP(RAD)EDIT('INMATNING AV INGÅE┆
0x273d6…273f6 4e 44 45 20 42 41 4c 41 4e 53 45 52 2e 27 29 28 41 28 34 30 29 29 20 20 20 20 28 27 44 41 54 55 ┆NDE BALANSER.')(A(40)) ('DATU┆
0x273f6…27416 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 27 29 28 41 29 28 ┆M:')(A)(DAG)(A(10))('SIDA:')(A)(┆
0x27416…27436 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 20 20 20 20 20 20 ┆SIDA)(A)SKIP(2)EDIT ┆
0x27436…27455 20 20 20 20 20 20 20 20 20 28 27 4b 4f 4e 54 4f 27 29 28 41 28 37 29 29 28 27 42 45 4e 5b 4d ┆ ('KONTO')(A(7))('BENÄM┆
0x27455…27475 (46, 0, 10) 4e 49 4e 47 27 29 28 41 28 33 38 29 29 28 27 49 4e 47 2e 20 42 41 4c 41 4e 53 20 56 49 44 20 5d ┆NING')(A(38))('ING. BALANS VID Å┆
0x27475…27495 52 45 54 53 20 42 5c 52 4a 41 4e 27 29 28 41 29 53 4b 49 50 3b 20 20 20 20 52 41 44 3d 34 35 3b ┆RETS BÖRJAN')(A)SKIP; RAD=45;┆
0x27495…274b5 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 20 54 4f 20 50 52 54 ┆IF IND THEN GO TO KOIN;GO TO PRT┆
0x274b5…274d5 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 ┆; ┆
0x274d5…274f5 20 20 20 20 20 20 20 20 53 54 3a 50 55 54 20 46 49 4c 45 28 44 29 20 53 4b 49 50 20 45 44 49 54 ┆ ST:PUT FILE(D) SKIP EDIT┆
0x274f5…27515 28 27 4b 4f 4e 54 4f 3a 27 29 28 41 28 33 37 29 29 28 27 28 4f 4d 20 4c 5c 50 41 4e 44 45 20 54 ┆('KONTO:')(A(37))('(OM LÖPANDE T┆
0x27515…27535 52 59 43 4b 20 52 45 54 55 52 4e 29 27 29 28 41 28 33 33 29 29 3b 20 4b 4f 49 4e 3a 49 4e 44 3d ┆RYCK RETURN)')(A(33)); KOIN:IND=┆
0x27535…27554 30 3b 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 53 56 41 52 29 3b 20 20 20 20 20 20 20 20 20 ┆0;GET SKIP LIST(SVAR); ┆
0x27554…27574 (46, 0, 11) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x27574…27594 20 20 20 20 20 20 20 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 ┆ KOIN2:IF SVAR='SLUT' THEN┆
0x27594…275b4 20 47 4f 20 54 4f 20 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 ┆ GO TO UT; ┆
0x275b4…275d4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 53 56 41 52 3d 27 20 ┆ IF SVAR=' ┆
0x275d4…275f4 20 20 20 27 20 54 48 45 4e 20 49 4e 44 3d 31 3b 45 4c 53 45 20 58 4b 4f 3d 53 56 41 52 3b 20 20 ┆ ' THEN IND=1;ELSE XKO=SVAR; ┆
0x275f4…27614 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x27614…27634 20 20 20 20 20 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 ┆ IF IND=0&SUBSTR(SVAR,4,1)='┆
0x27634…27653 20 27 20 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 ┆ ' THEN GO TO FEL; ┆
0x27653…27673 (46, 0, 12) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 4e 3a 49 46 20 49 4e 44 20 54 ┆ IN:IF IND T┆
0x27673…27693 48 45 4e 20 44 4f 3b 50 55 54 20 46 49 4c 45 28 44 29 53 4b 49 50 20 45 44 49 54 28 27 4f 4b 21 ┆HEN DO;PUT FILE(D)SKIP EDIT('OK!┆
0x27693…276b3 20 56 5b 4e 54 41 2e 27 29 28 41 28 33 37 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ VÄNTA.')(A(37)); ┆
0x276b3…276d3 20 20 20 20 54 45 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 ┆ TEST:ON ENDFILE GO TO UT;REA┆
0x276d3…276f3 44 20 46 49 4c 45 28 4b 54 4f 54 58 29 49 4e 54 4f 28 4b 54 4f 29 3b 20 20 20 20 20 20 20 20 20 ┆D FILE(KTOTX)INTO(KTO); ┆
0x276f3…27713 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4d 55 4c 54 49 20 1c 00 1c 00 77 43 43 ┆ MULTI wCC┆
0x27713…27733 48 4f 4f 53 45 20 20 1d 00 1d 00 00 43 00 00 00 00 00 00 00 00 d3 ff d3 ff 00 00 00 00 00 00 00 ┆HOOSE C ┆
0x27733…27752 00 00 00 dd ff dd ff 00 00 00 00 00 00 00 00 00 00 dd ff dd ff 00 00 00 00 00 00 00 00 0f 02 ┆ ┆
0x27752…27772 (46, 0, 13) 0c bb 4d 04 00 00 91 40 0c c1 4d 02 ff 00 0c c5 4d 02 05 00 0b cf 4d 5d 4d b5 03 4d b9 4d b5 4d ┆ M @ M M MÅM M M M┆
0x27772…27792 bb 00 33 00 02 0e 0a 00 03 4d b5 4d bb 00 33 00 02 0e 0a 4d bd 00 03 4d bf 33 00 00 4d b5 00 0a ┆ 3 M M 3 M M 3 M ┆
0x27792…277b2 00 4d c1 00 12 03 33 00 00 4d b5 00 0a 33 00 00 4d b5 00 0a 00 4d bf 00 0c 0a 03 4d b5 4d bb 00 ┆ M 3 M 3 M M M M ┆
0x277b2…277d2 33 00 02 0e 0a 4d b9 00 03 33 00 00 4d b5 00 0a 4d bf 00 03 1f 0b 34 4e 25 4d c3 03 33 00 00 4d ┆3 M 3 M M 4N%M 3 M┆
0x277d2…277f2 c3 00 0a 4d bb 00 33 00 02 0e 0a 33 00 00 4d c3 00 0a 4d c5 00 33 00 02 0e 0a 00 03 1f 1b 00 fe ┆ M 3 3 M M 3 ┆
0x277f2…27812 40 02 a3 43 0b 81 40 02 09 18 00 80 00 cd 00 08 fe 06 ca 06 45 b7 c4 18 08 21 00 43 0e 80 11 00 ┆@ C @ E ! C ┆
0x27812…27832 50 cd 61 47 21 00 43 06 00 11 80 50 0e 80 cd 39 00 7c b5 c2 47 44 2a 80 42 23 cd 15 00 eb 2a d6 ┆P aG! C P 9 ö GD* B# * ┆
0x27832…27851 42 19 7d b4 ca 44 44 cd e5 46 db 01 3d fe 1e 3c d2 f7 44 32 91 40 3a 91 40 fe 0d ca a3 44 97 ┆B å DD F = < D2 @: @ D ┆
0x27851…27871 (46, 0, 14) 0d 59 4e 1e 42 10 42 12 00 2a 10 42 eb 2a 12 42 4e eb f3 7e 23 c5 e5 cd 33 00 e1 c1 0d c2 68 4e ┆ YN B B * B * BN ~# 3 hN┆
0x27871…27891 fb c9 00 0c 43 4c 50 4f 4e 20 20 20 20 03 00 03 00 00 43 4c 50 4f 46 46 20 20 20 03 00 03 00 1f ┆ CLPON CLPOFF ┆
0x27891…278b1 43 43 4c 45 45 52 20 20 20 04 00 04 00 00 43 42 53 58 20 20 20 20 20 05 00 0f 00 00 43 41 54 4f ┆CCLEER CBSX CATO┆
0x278b1…278d1 45 20 20 20 20 0f 00 10 00 10 43 45 54 4f 41 20 20 20 20 0f 00 10 00 00 43 42 53 43 20 20 20 20 ┆E CETOA CBSC ┆
0x278d1…278f1 20 11 00 1a 00 00 43 4b 45 59 46 55 4e 20 20 1b 00 1b 00 1a 43 53 45 4f 46 20 20 20 20 1b 00 1b ┆ CKEYFUN CSEOF ┆
0x278f1…27911 00 7f 43 4d 55 4c 54 49 20 20 20 1c 00 1c 00 09 43 55 4e 4d 55 4c 54 49 20 1c 00 1c 00 77 43 43 ┆ CMULTI CUNMULTI wCC┆
0x27911…27931 48 4f 4f 53 45 20 20 1d 00 1d 00 00 43 4f 55 54 50 55 54 20 20 1e 00 1e 00 00 43 4b 46 49 4c 45 ┆HOOSE COUTPUT CKFILE┆
0x27931…27950 20 20 20 1f 00 1f 00 00 43 43 4c 45 45 52 20 20 20 20 00 20 00 00 43 00 00 00 00 00 00 1f 02 ┆ CCLEER C ┆
0x27950…27970 (47, 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*/ ┆
0x27970…27990 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x27990…279b0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 49 42 41 4c 49 4e 20 49 4e 4d 41 54 4e 49 4e ┆ /*IBALIN INMATNIN┆
0x279b0…279d0 47 20 41 56 20 49 4e 47 5d 45 4e 44 45 20 42 41 4c 41 4e 53 45 52 20 20 20 20 20 20 20 20 20 20 ┆G AV INGÅENDE BALANSER ┆
0x279d0…279f0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4b 4c ┆ KL┆
0x279f0…27a10 41 52 54 3a 20 58 58 58 58 58 58 20 20 20 50 52 4f 47 52 3a 54 44 20 2a 2f 20 20 20 20 20 20 20 ┆ART: XXXXXX PROGR:TD */ ┆
0x27a10…27a30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x27a30…27a4f 20 20 20 20 20 20 20 20 20 20 20 20 20 44 43 4c 20 31 20 53 41 4d 2c 32 20 53 53 54 52 2c 33 ┆ DCL 1 SAM,2 SSTR,3┆
0x27a4f…27a6f (47, 0, 1) 20 53 4b 4f 20 46 49 58 45 44 28 34 29 2c 33 20 53 41 56 44 20 46 49 58 45 44 28 32 29 2c 33 20 ┆ SKO FIXED(4),3 SAVD FIXED(2),3 ┆
0x27a6f…27a8f 53 50 52 4f 4a 20 46 49 58 45 44 28 34 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 33 20 53 ┆SPROJ FIXED(4), 3 S┆
0x27a8f…27aaf 4d 4e 52 20 46 49 58 45 44 28 32 29 2c 33 20 42 55 44 20 43 48 41 52 28 31 29 2c 20 20 20 20 20 ┆MNR FIXED(2),3 BUD CHAR(1), ┆
0x27aaf…27acf 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x27acf…27aef 20 20 20 20 20 20 20 20 20 20 20 20 32 20 53 41 44 20 46 49 58 45 44 28 31 31 2c 32 29 2c 32 20 ┆ 2 SAD FIXED(11,2),2 ┆
0x27aef…27b0f 53 41 4b 20 46 49 58 45 44 28 31 31 2c 32 29 2c 32 20 48 4a 4b 4f 44 20 43 48 41 52 28 31 29 3b ┆SAK FIXED(11,2),2 HJKOD CHAR(1);┆
0x27b0f…27b2f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x27b2f…27b4e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x27b4e…27b6e (47, 0, 2) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x27b6e…27b8e 20 20 20 20 20 20 20 20 20 20 20 44 43 4c 20 31 20 4b 54 4f 2c 32 20 4b 4f 4e 54 4f 20 46 49 58 ┆ DCL 1 KTO,2 KONTO FIX┆
0x27b8e…27bae 45 44 28 34 29 2c 32 20 54 45 58 54 20 43 48 41 52 28 33 34 29 3b 20 20 20 20 20 20 20 20 20 20 ┆ED(4),2 TEXT CHAR(34); ┆
0x27bae…27bce 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
[…0x2…]
0x27c0e…27c2e 20 20 20 20 20 20 20 20 20 44 43 4c 20 31 20 44 41 54 52 45 43 2c 32 20 44 41 47 20 43 48 41 52 ┆ DCL 1 DATREC,2 DAG CHAR┆
0x27c2e…27c4d 28 36 29 2c 32 20 4d 4f 4e 20 43 48 41 52 28 33 29 2c 32 20 4d 4e 52 20 46 49 58 45 44 28 32 ┆(6),2 MON CHAR(3),2 MNR FIXED(2┆
0x27c4d…27c6d (47, 0, 3) 29 2c 32 20 53 4b 28 31 34 29 20 43 48 41 52 28 31 29 3b 20 20 20 20 20 20 44 43 4c 20 31 20 58 ┆),2 SK(14) CHAR(1); DCL 1 X┆
0x27c6d…27c8d 44 41 54 52 45 43 2c 32 20 58 44 41 47 20 43 48 41 52 28 39 29 2c 32 20 58 4d 4e 52 20 46 49 58 ┆DATREC,2 XDAG CHAR(9),2 XMNR FIX┆
0x27c8d…27cad 45 44 28 32 29 2c 32 20 58 53 4b 28 31 34 29 20 43 48 41 52 28 31 29 3b 20 20 20 20 20 20 20 20 ┆ED(2),2 XSK(14) CHAR(1); ┆
0x27cad…27ccd 20 20 20 20 20 20 20 20 58 44 41 47 3d 27 58 58 58 58 58 58 20 20 20 27 3b 58 4d 4e 52 3d 30 3b ┆ XDAG='XXXXXX ';XMNR=0;┆
0x27ccd…27ced 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x27ced…27d0d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 43 4c 20 44 41 54 46 49 ┆ DCL DATFI┆
0x27d0d…27d2d 4c 20 46 49 4c 45 2c 4b 54 4f 54 58 20 46 49 4c 45 2c 53 20 43 48 41 52 28 31 29 2c 52 41 44 20 ┆L FILE,KTOTX FILE,S CHAR(1),RAD ┆
0x27d2d…27d4c 46 49 58 45 44 28 32 29 2c 53 49 44 41 20 46 49 58 45 44 28 34 29 2c 49 4e 44 20 46 49 58 45 ┆FIXED(2),SIDA FIXED(4),IND FIXE┆
0x27d4c…27d6c (47, 0, 4) 44 28 31 29 2c 20 20 53 41 4d 46 49 4c 20 46 49 4c 45 2c 53 56 41 52 20 43 48 41 52 28 34 29 2c ┆D(1), SAMFIL FILE,SVAR CHAR(4),┆
0x27d6c…27d8c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x27d8c…27dac 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 58 50 52 4f 4a 20 46 49 58 45 ┆ XPROJ FIXE┆
0x27dac…27dcc 44 28 34 29 2c 58 4b 4f 20 46 49 58 45 44 28 34 29 2c 58 41 56 44 20 46 49 58 45 44 28 32 29 2c ┆D(4),XKO FIXED(4),XAVD FIXED(2),┆
0x27dcc…27dec 58 44 41 54 20 46 49 58 45 44 28 34 29 2c 42 45 4c 20 46 49 58 45 44 28 31 32 2c 32 29 2c 20 20 ┆XDAT FIXED(4),BEL FIXED(12,2), ┆
0x27dec…27e0c 20 20 20 20 20 4a 55 4d 50 20 46 49 58 45 44 28 31 29 2c 43 20 43 48 41 52 28 32 30 29 20 49 4e ┆ JUMP FIXED(1),C CHAR(20) IN┆
0x27e0c…27e2c 49 54 28 27 2d 2d 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 ┆IT('--------------9V.99'), ┆
0x27e2c…27e4b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 43 20 43 48 41 52 28 32 30 29 ┆ CC CHAR(20)┆
0x27e4b…27e6b (47, 0, 5) 49 4e 49 54 28 27 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 39 56 2e 39 39 2a 2a 2a 27 29 2c 20 20 20 20 ┆INIT('-----------9V.99***'), ┆
0x27e6b…27e8b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x27e8b…27eab 20 20 20 20 43 43 43 20 43 48 41 52 28 32 30 29 49 4e 49 54 28 27 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ CCC CHAR(20)INIT('----------┆
0x27eab…27ecb 2d 2d 2d 39 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 ┆---9V.99*'), ┆
0x27ecb…27eeb 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4b 49 42 20 46 49 58 45 44 28 31 32 2c ┆ KIB FIXED(12,┆
0x27eeb…27f0b 32 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 ┆2); ┆
0x27f0b…27f2b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x27f2b…27f4a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x27f4a…27f6a (47, 0, 6) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x27f6a…27f8a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4f 50 45 4e 20 44 41 54 46 49 4c 3b 4f 50 ┆ OPEN DATFIL;OP┆
0x27f8a…27faa 45 4e 20 4b 54 4f 54 58 3b 4f 50 45 4e 20 53 41 4d 46 49 4c 3b 20 20 20 20 20 20 20 20 20 20 20 ┆EN KTOTX;OPEN SAMFIL; ┆
0x27faa…27fca 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x27fca…27fea 20 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 ┆ READ FILE(DATFIL)INTO(DATREC);I┆
0x27fea…2800a 46 20 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 ┆F DAG='XXXXXX' THEN GO TO SLUT; ┆
0x2800a…2802a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 4f 20 49 3d 31 20 54 4f 20 31 34 3b 58 53 4b ┆ DO I=1 TO 14;XSK┆
0x2802a…28049 28 49 29 3d 53 4b 28 49 29 3b 45 4e 44 3b 58 53 4b 28 31 33 29 3d 27 20 27 3b 20 20 20 20 20 ┆(I)=SK(I);END;XSK(13)=' '; ┆
0x28049…28069 (47, 0, 7) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x28069…28089 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 58 44 41 54 52 45 43 ┆REWRITE FILE(DATFIL)FROM(XDATREC┆
0x28089…280a9 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆); ┆
0x280a9…280c9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 28 44 29 20 53 4b 49 50 20 ┆ PUT FILE(D) SKIP ┆
0x280c9…280e9 45 44 49 54 28 27 20 27 29 28 41 28 33 37 29 29 28 27 2a 2a 20 20 49 4e 4d 41 54 4e 49 4e 47 20 ┆EDIT(' ')(A(37))('** INMATNING ┆
0x280e9…28109 41 56 20 49 4e 47 5d 45 4e 44 45 20 42 41 4c 41 4e 53 45 52 20 2a 2a 27 29 20 20 20 20 20 28 41 ┆AV INGÅENDE BALANSER **') (A┆
0x28109…28129 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 29 28 ┆(74))('STÄLL IN PERFORERINGEN')(┆
0x28129…28148 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 41 ┆A(37))('TRYCK SEDAN RETURN.')(A┆
0x28148…28168 (47, 0, 8) 28 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 20 ┆(37)); GET SKIP LIST(S); ┆
0x28168…28188 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x28188…281a8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 41 44 ┆ RAD┆
0x281a8…281c8 3d 35 3b 53 49 44 41 3d 30 3b 49 4e 44 3d 31 3b 53 4d 4e 52 3d 30 3b 42 55 44 3d 27 20 27 3b 53 ┆=5;SIDA=0;IND=1;SMNR=0;BUD=' ';S┆
0x281c8…281e8 41 56 44 3d 30 3b 53 50 52 4f 4a 3d 30 3b 48 4a 4b 4f 44 3d 27 20 27 3b 20 20 20 20 20 20 20 20 ┆AVD=0;SPROJ=0;HJKOD=' '; ┆
0x281e8…28208 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 28 44 29 53 4b 49 50 20 45 44 49 54 ┆ PUT FILE(D)SKIP EDIT┆
0x28208…28228 28 27 28 46 52 5d 4e 20 42 5c 52 4a 41 4e 20 54 52 59 43 4b 20 42 41 52 41 20 52 45 54 55 52 4e ┆('(FRÅN BÖRJAN TRYCK BARA RETURN┆
0x28228…28247 29 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 28 27 4b 4f ┆)')(A(37)) ('KO┆
0x28247…28267 (47, 0, 9) 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 20 20 20 20 ┆NTO:')(A(33)); ┆
0x28267…28287 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x28287…282a7 20 20 20 20 20 20 20 20 20 20 20 52 55 42 3a 53 49 44 41 3d 53 49 44 41 2b 31 3b 50 55 54 20 53 ┆ RUB:SIDA=SIDA+1;PUT S┆
0x282a7…282c7 4b 49 50 28 52 41 44 29 45 44 49 54 28 27 49 4e 4d 41 54 4e 49 4e 47 20 41 56 20 49 4e 47 5d 45 ┆KIP(RAD)EDIT('INMATNING AV INGÅE┆
0x282c7…282e7 4e 44 45 20 42 41 4c 41 4e 53 45 52 2e 27 29 28 41 28 34 30 29 29 20 20 20 20 28 27 44 41 54 55 ┆NDE BALANSER.')(A(40)) ('DATU┆
0x282e7…28307 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 27 29 28 41 29 28 ┆M:')(A)(DAG)(A(10))('SIDA:')(A)(┆
0x28307…28327 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 20 20 20 20 20 20 ┆SIDA)(A)SKIP(2)EDIT ┆
0x28327…28346 20 20 20 20 20 20 20 20 20 28 27 4b 4f 4e 54 4f 27 29 28 41 28 37 29 29 28 27 42 45 4e 5b 4d ┆ ('KONTO')(A(7))('BENÄM┆
0x28346…28366 (47, 0, 10) 4e 49 4e 47 27 29 28 41 28 33 38 29 29 28 27 49 4e 47 2e 20 42 41 4c 41 4e 53 20 56 49 44 20 5d ┆NING')(A(38))('ING. BALANS VID Å┆
0x28366…28386 52 45 54 53 20 42 5c 52 4a 41 4e 27 29 28 41 29 53 4b 49 50 3b 20 20 20 20 52 41 44 3d 34 35 3b ┆RETS BÖRJAN')(A)SKIP; RAD=45;┆
0x28386…283a6 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 20 54 4f 20 50 52 54 ┆IF IND THEN GO TO KOIN;GO TO PRT┆
0x283a6…283c6 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 ┆; ┆
0x283c6…283e6 20 20 20 20 20 20 20 20 53 54 3a 50 55 54 20 46 49 4c 45 28 44 29 20 53 4b 49 50 20 45 44 49 54 ┆ ST:PUT FILE(D) SKIP EDIT┆
0x283e6…28406 28 27 4b 4f 4e 54 4f 3a 27 29 28 41 28 33 37 29 29 28 27 28 4f 4d 20 4c 5c 50 41 4e 44 45 20 54 ┆('KONTO:')(A(37))('(OM LÖPANDE T┆
0x28406…28426 52 59 43 4b 20 52 45 54 55 52 4e 29 27 29 28 41 28 33 33 29 29 3b 20 4b 4f 49 4e 3a 49 4e 44 3d ┆RYCK RETURN)')(A(33)); KOIN:IND=┆
0x28426…28445 30 3b 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 53 56 41 52 29 3b 20 20 20 20 20 20 20 20 20 ┆0;GET SKIP LIST(SVAR); ┆
0x28445…28465 (47, 0, 11) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x28465…28485 20 20 20 20 20 20 20 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 ┆ KOIN2:IF SVAR='SLUT' THEN┆
0x28485…284a5 20 47 4f 20 54 4f 20 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 ┆ GO TO UT; ┆
0x284a5…284c5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 53 56 41 52 3d 27 20 ┆ IF SVAR=' ┆
0x284c5…284e5 20 20 20 27 20 54 48 45 4e 20 49 4e 44 3d 31 3b 45 4c 53 45 20 58 4b 4f 3d 53 56 41 52 3b 20 20 ┆ ' THEN IND=1;ELSE XKO=SVAR; ┆
0x284e5…28505 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x28505…28525 20 20 20 20 20 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 ┆ IF IND=0&SUBSTR(SVAR,4,1)='┆
0x28525…28544 20 27 20 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 ┆ ' THEN GO TO FEL; ┆
0x28544…28564 (47, 0, 12) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 4e 3a 49 46 20 49 4e 44 20 54 ┆ IN:IF IND T┆
0x28564…28584 48 45 4e 20 44 4f 3b 50 55 54 20 46 49 4c 45 28 44 29 53 4b 49 50 20 45 44 49 54 28 27 4f 4b 21 ┆HEN DO;PUT FILE(D)SKIP EDIT('OK!┆
0x28584…285a4 20 56 5b 4e 54 41 2e 27 29 28 41 28 33 37 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ VÄNTA.')(A(37)); ┆
0x285a4…285c4 20 20 20 20 54 45 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 ┆ TEST:ON ENDFILE GO TO UT;REA┆
0x285c4…285e4 44 20 46 49 4c 45 28 4b 54 4f 54 58 29 49 4e 54 4f 28 4b 54 4f 29 3b 20 20 20 20 20 20 20 20 20 ┆D FILE(KTOTX)INTO(KTO); ┆
0x285e4…28604 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4d 55 4c 54 49 20 1c 00 1c 00 77 43 43 ┆ MULTI wCC┆
0x28604…28624 48 4f 4f 53 45 20 20 1d 00 1d 00 00 43 00 00 00 00 00 00 00 00 d3 ff d3 ff 00 00 00 00 00 00 00 ┆HOOSE C ┆
0x28624…28643 00 00 00 dd ff dd ff 00 00 00 00 00 00 00 00 00 00 dd ff dd ff 00 00 00 00 00 00 00 00 0f 02 ┆ ┆
0x28643…28663 (47, 0, 13) 0c bb 4d 04 00 00 91 40 0c c1 4d 02 ff 00 0c c5 4d 02 05 00 0b cf 4d 5d 4d b5 03 4d b9 4d b5 4d ┆ M @ M M MÅM M M M┆
0x28663…28683 bb 00 33 00 02 0e 0a 00 03 4d b5 4d bb 00 33 00 02 0e 0a 4d bd 00 03 4d bf 33 00 00 4d b5 00 0a ┆ 3 M M 3 M M 3 M ┆
0x28683…286a3 00 4d c1 00 12 03 33 00 00 4d b5 00 0a 33 00 00 4d b5 00 0a 00 4d bf 00 0c 0a 03 4d b5 4d bb 00 ┆ M 3 M 3 M M M M ┆
0x286a3…286c3 33 00 02 0e 0a 4d b9 00 03 33 00 00 4d b5 00 0a 4d bf 00 03 1f 0b 34 4e 25 4d c3 03 33 00 00 4d ┆3 M 3 M M 4N%M 3 M┆
0x286c3…286e3 c3 00 0a 4d bb 00 33 00 02 0e 0a 33 00 00 4d c3 00 0a 4d c5 00 33 00 02 0e 0a 00 03 1f 1b 00 fe ┆ M 3 3 M M 3 ┆
0x286e3…28703 40 02 a3 43 0b 81 40 02 09 18 00 80 00 cd 00 08 fe 06 ca 06 45 b7 c4 18 08 21 00 43 0e 80 11 00 ┆@ C @ E ! C ┆
0x28703…28723 50 cd 61 47 21 00 43 06 00 11 80 50 0e 80 cd 39 00 7c b5 c2 47 44 2a 80 42 23 cd 15 00 eb 2a d6 ┆P aG! C P 9 ö GD* B# * ┆
0x28723…28742 42 19 7d b4 ca 44 44 cd e5 46 db 01 3d fe 1e 3c d2 f7 44 32 91 40 3a 91 40 fe 0d ca a3 44 97 ┆B å DD F = < D2 @: @ D ┆
0x28742…28762 (47, 0, 14) 0d 59 4e 1e 42 10 42 12 00 2a 10 42 eb 2a 12 42 4e eb f3 7e 23 c5 e5 cd 33 00 e1 c1 0d c2 68 4e ┆ YN B B * B * BN ~# 3 hN┆
0x28762…28782 fb c9 00 0c 43 4c 50 4f 4e 20 20 20 20 03 00 03 00 00 43 4c 50 4f 46 46 20 20 20 03 00 03 00 1f ┆ CLPON CLPOFF ┆
0x28782…287a2 43 43 4c 45 45 52 20 20 20 04 00 04 00 00 43 42 53 58 20 20 20 20 20 05 00 0f 00 00 43 41 54 4f ┆CCLEER CBSX CATO┆
0x287a2…287c2 45 20 20 20 20 0f 00 10 00 10 43 45 54 4f 41 20 20 20 20 0f 00 10 00 00 43 42 53 43 20 20 20 20 ┆E CETOA CBSC ┆
0x287c2…287e2 20 11 00 1a 00 00 43 4b 45 59 46 55 4e 20 20 1b 00 1b 00 1a 43 53 45 4f 46 20 20 20 20 1b 00 1b ┆ CKEYFUN CSEOF ┆
0x287e2…28802 00 7f 43 4d 55 4c 54 49 20 20 20 1c 00 1c 00 09 43 55 4e 4d 55 4c 54 49 20 1c 00 1c 00 77 43 43 ┆ CMULTI CUNMULTI wCC┆
0x28802…28822 48 4f 4f 53 45 20 20 1d 00 1d 00 00 43 4f 55 54 50 55 54 20 20 1e 00 1e 00 00 43 4b 46 49 4c 45 ┆HOOSE COUTPUT CKFILE┆
0x28822…28841 20 20 20 1f 00 1f 00 00 43 43 4c 45 45 52 20 20 20 20 00 20 00 00 43 00 00 00 00 00 00 1f 02 ┆ CCLEER C ┆
0x28841…28890 (48, 0, 0) DataSector[0x4f]
[…0x3e…]
0x29bb2…29bd2 (49, 0, 22) 51 49 29 43 0b 43 78 00 19 17 05 06 45 43 11 43 78 00 19 17 05 06 45 43 17 32 01 44 31 32 01 06 ┆QI)C Cx EC Cx EC 2 D12 ┆
0x29bd2…29bf2 43 d8 02 07 46 43 78 00 19 17 08 01 00 00 00 0b 7c 49 0c 1d 43 11 43 d8 02 07 46 0d 05 06 45 0b ┆C FCx öI C C F E ┆
0x29bf2…29c01 7a 49 02 49 8b 0b 8b 49 0a 43 0b 43 d8 02 07 ┆zI I I C C ┆
0x29c01…29c21 (49, 0, 23) 46 05 06 45 0b 88 49 03 49 95 1c 0b 95 49 19 32 00 43 b1 4a aa 1e 43 b1 32 18 43 00 2c 01 43 b1 ┆F E I I I 2 C J C 2 C , C ┆
0x29c21…29c41 2f 43 b1 22 45 0f 00 1c 0a 78 45 02 ae 49 0b ae 49 54 43 b0 43 78 00 19 17 05 01 41 15 00 27 32 ┆/C "E xE I ITC Cx A '2┆
0x29c41…29c50 0d 32 01 2a 44 a5 32 06 26 43 d0 02 03 43 1a ┆ 2 *D 2 &C C ┆
0x29c50…29c70 (49, 0, 24) 44 84 00 28 45 7a 32 09 45 83 00 28 45 85 32 0c 44 ab 00 28 23 43 c9 32 04 25 43 d0 43 c9 32 04 ┆D (Ez2 E (E 2 D (#C 2 %C C 2 ┆
0x29c70…29c90 17 05 03 43 43 c9 32 01 0c 0a 45 36 00 0a 44 2b 00 44 31 32 01 09 02 0b 04 4a 05 1d 45 78 00 1c ┆ CC 2 E6 D+ D12 J Ex ┆
0x29c90…29c9f 0b 02 4a 02 4a 09 0b 09 4a 04 45 2c 00 1c 0a ┆ J J J E, ┆
0x29c9f…29cbf (49, 0, 25) 91 45 02 0d 4a 0b 0d 4a 14 15 00 2a 32 0d 43 ab 02 02 42 44 84 00 19 17 0d 0b 1a 16 2a 0a 93 45 ┆ E J J *2 C BD * E┆
0x29cbf…29cdf 02 21 4a 0b 21 4a 0a 32 00 45 95 44 e4 4a cf 1e 1b 0b fe 40 02 9c 45 0b 81 40 02 09 18 00 00 00 ┆ !J !J 2 E D J @ E @ ┆
0x29cdf…29cee 00 0c 31 4a 04 00 00 91 40 0c 37 4a 02 ff 00 ┆ 1J @ 7J ┆
0x29cee…29d0e (49, 0, 26) 0c 3b 4a 02 05 00 0b 45 4a 5d 4a 2b 03 4a 2f 4a 2b 4a 31 00 33 00 02 0e 0a 00 03 4a 2b 4a 31 00 ┆ ;J EJÅJ+ J/J+J1 3 J+J1 ┆
0x29d0e…29d2e 33 00 02 0e 0a 4a 33 00 03 4a 35 33 00 00 4a 2b 00 0a 00 4a 37 00 12 03 33 00 00 4a 2b 00 0a 33 ┆3 J3 J53 J+ J7 3 J+ 3┆
0x29d2e…29d3d 00 00 4a 2b 00 0a 00 4a 35 00 0c 0a 03 4a 2b ┆ J+ J5 J+┆
0x29d3d…29d5d (49, 0, 27) 4a 31 00 33 00 02 0e 0a 4a 2f 00 03 33 00 00 4a 2b 00 0a 4a 35 00 03 1f 0b aa 4a 25 4a 39 03 33 ┆J1 3 J/ 3 J+ J5 J%J9 3┆
0x29d5d…29d7d 00 00 4a 39 00 0a 4a 31 00 33 00 02 0e 0a 33 00 00 4a 39 00 0a 4a 3b 00 33 00 02 0e 0a 00 03 1f ┆ J9 J1 3 3 J9 J; 3 ┆
0x29d7d…29d8c 1b 00 fe 40 02 a3 43 0b 81 40 02 09 18 00 80 ┆ @ C @ ┆
0x29d8c…29dac (49, 0, 28) 00 cd 00 08 fe 06 ca 06 45 b7 c4 18 08 21 00 43 0e 80 11 00 50 cd 61 47 21 00 43 06 00 11 80 50 ┆ E ! C P aG! C P┆
0x29dac…29dcc 0e 80 cd 39 00 7c b5 c2 47 44 2a 80 42 23 cd 15 00 eb 2a d6 42 19 7d b4 ca 44 44 cd e5 46 db 01 ┆ 9 ö GD* B# * B å DD F ┆
0x29dcc…29ddb 3d fe 1e 3c d2 f7 44 32 91 40 3a 91 40 fe 0d ┆= < D2 @: @ ┆
0x29ddb…29dfb (49, 0, 29) ca a3 44 97 0d cf 4a 1e 42 10 42 12 00 2a 10 42 eb 2a 12 42 4e eb f3 7e 23 c5 e5 cd 33 00 e1 c1 ┆ D J B B * B * BN ~# 3 ┆
0x29dfb…29e1b 0d c2 de 4a fb c9 00 0c 43 4c 50 4f 4e 20 20 20 20 03 00 03 00 00 43 4c 50 4f 46 46 20 20 20 03 ┆ J CLPON CLPOFF ┆
0x29e1b…29e2a 00 03 00 1f 43 43 4c 45 45 52 20 20 20 04 00 ┆ CCLEER ┆
0x29e2a…29e4a (49, 0, 30) 04 00 00 43 42 53 58 20 20 20 20 20 05 00 0f 00 00 43 41 54 4f 45 20 20 20 20 0f 00 10 00 10 43 ┆ CBSX CATOE C┆
0x29e4a…29e6a 45 54 4f 41 20 20 20 20 0f 00 10 00 00 43 42 53 43 20 20 20 20 20 11 00 1a 00 00 43 4b 45 59 46 ┆ETOA CBSC CKEYF┆
0x29e6a…29e79 55 4e 20 20 1b 00 1b 00 1a 43 53 45 4f 46 20 ┆UN CSEOF ┆
0x29e79…29e99 (49, 0, 31) 20 20 20 1b 00 1b 00 7f 43 4d 55 4c 54 49 20 20 20 1c 00 1c 00 09 43 55 4e 4d 55 4c 54 49 20 1c ┆ CMULTI CUNMULTI ┆
0x29e99…29eb9 00 1c 00 77 43 43 48 4f 4f 53 45 20 20 1d 00 1d 00 00 43 4f 55 54 50 55 54 20 20 1e 00 1e 00 00 ┆ wCCHOOSE COUTPUT ┆
0x29eb9…29ec8 43 4b 46 49 4c 45 20 20 20 1f 00 1f 00 00 43 ┆CKFILE C┆
0x29ec8…29ee8 (49, 0, 32) 43 4c 45 45 52 20 20 20 20 00 20 00 00 43 00 00 00 00 00 00 1f 02 20 20 20 20 20 20 20 20 20 20 ┆CLEER C ┆
0x29ee8…29f08 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x29f08…29f17 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x29f17…29f37 (49, 0, 33) 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 30 29 ┆ST:ON ERROR GO TO UT;READ KEY(0)┆
0x29f37…29f57 46 49 4c 45 28 53 41 4d 46 49 4c 29 49 4e 54 4f 28 53 41 4d 29 4b 45 59 54 4f 28 53 4d 4e 52 29 ┆FILE(SAMFIL)INTO(SAM)KEYTO(SMNR)┆
0x29f57…29f66 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆; ┆
0x29f66…29f86 (49, 0, 34) 49 46 20 55 4e 53 50 45 43 28 53 41 4d 46 49 4c 29 3c 52 45 43 20 54 48 45 4e 20 47 4f 20 54 4f ┆IF UNSPEC(SAMFIL)<REC THEN GO TO┆
0x29f86…29fa6 20 55 54 3b 45 4c 53 45 20 52 45 43 3d 55 4e 53 50 45 43 28 53 41 4d 46 49 4c 29 3b 20 20 20 20 ┆ UT;ELSE REC=UNSPEC(SAMFIL); ┆
0x29fa6…29fb5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x29fb5…29fd5 (49, 0, 35) 49 46 20 42 55 44 7f 3d 27 20 27 7c 53 41 56 44 7f 3d 30 7c 53 50 52 4f 4a 7f 3d 30 7c 53 4b 4f ┆IF BUD =' 'öSAVD =0öSPROJ =0öSKO┆
0x29fd5…29ff5 3c 31 30 30 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 20 20 ┆<1000 THEN GO TO ST; ┆
0x29ff5…2a004 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2a004…2a024 (49, 0, 36) 50 55 54 20 53 4b 49 50 20 45 44 49 54 28 53 4b 4f 29 28 41 28 37 29 29 3b 20 20 20 20 20 20 20 ┆PUT SKIP EDIT(SKO)(A(7)); ┆
0x2a024…2a044 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2a044…2a053 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2a053…2a073 (49, 0, 37) 4f 4e 20 45 52 52 4f 52 20 47 4f 20 54 4f 20 54 58 46 45 4c 3b 52 45 41 44 20 4b 45 59 28 53 4b ┆ON ERROR GO TO TXFEL;READ KEY(SK┆
0x2a073…2a093 4f 29 46 49 4c 45 28 4b 54 4f 54 58 29 49 4e 54 4f 28 4b 54 4f 29 3b 47 4f 20 54 4f 20 4b 4f 4f ┆O)FILE(KTOTX)INTO(KTO);GO TO KOO┆
0x2a093…2a0a2 4b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆K; ┆
0x2a0a2…2a0c2 (49, 0, 38) 54 58 46 45 4c 3a 54 45 58 54 3d 27 2a 2a 2a 20 53 41 4b 4e 41 53 20 49 20 4b 4f 4e 54 4f 50 4c ┆TXFEL:TEXT='*** SAKNAS I KONTOPL┆
0x2a0c2…2a0e2 41 4e 45 4e 20 2a 2a 2a 27 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ANEN ***'; ┆
0x2a0e2…2a0f1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2a0f1…2a111 (49, 0, 39) 4b 4f 4f 4b 3a 50 55 54 20 45 44 49 54 28 54 45 58 54 29 28 41 28 33 38 29 29 28 53 41 44 2d 53 ┆KOOK:PUT EDIT(TEXT)(A(38))(SAD-S┆
0x2a111…2a131 41 4b 29 28 50 27 2d 2d 2d 2d 2d 2d 2d 2d 2d 39 56 2e 39 39 27 29 3b 52 41 44 3d 52 41 44 2d 31 ┆AK)(P'---------9V.99');RAD=RAD-1┆
0x2a131…2a140 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆; ┆
0x2a140…2a160 (49, 0, 40) 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┆
0x2a160…2a180 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; ┆
0x2a180…2a18f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2a18f…2a28e (50, 0, 0) DataSector[0xff]
[…0x9…]
0x2ab85…2aba5 (50, 0, 10) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2aba5…2abc5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 54 3a 4f 4e 20 45 ┆ ST:ON E┆
0x2abc5…2abe5 52 52 4f 52 20 47 4f 20 54 4f 20 55 54 3b 52 45 41 44 20 4b 45 59 28 30 29 46 49 4c 45 28 53 41 ┆RROR GO TO UT;READ KEY(0)FILE(SA┆
0x2abe5…2ac05 4d 46 49 4c 29 49 4e 54 4f 28 53 41 4d 29 4b 45 59 54 4f 28 53 4d 4e 52 29 3b 20 20 20 20 20 20 ┆MFIL)INTO(SAM)KEYTO(SMNR); ┆
0x2ac05…2ac25 20 20 20 20 20 20 20 20 49 46 20 55 4e 53 50 45 43 28 53 41 4d 46 49 4c 29 3c 52 45 43 20 54 48 ┆ IF UNSPEC(SAMFIL)<REC TH┆
0x2ac25…2ac45 45 4e 20 47 4f 20 54 4f 20 55 54 3b 45 4c 53 45 20 52 45 43 3d 55 4e 53 50 45 43 28 53 41 4d 46 ┆EN GO TO UT;ELSE REC=UNSPEC(SAMF┆
0x2ac45…2ac65 49 4c 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 42 55 44 7f 3d 27 ┆IL); IF BUD ='┆
0x2ac65…2ac84 20 27 7c 53 41 56 44 7f 3d 30 7c 53 50 52 4f 4a 7f 3d 30 7c 53 4b 4f 3c 31 30 30 30 20 54 48 ┆ 'öSAVD =0öSPROJ =0öSKO<1000 TH┆
0x2ac84…2aca4 (50, 0, 11) 45 4e 20 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 ┆EN GO TO ST; ┆
0x2aca4…2acc4 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 45 44 49 54 28 53 4b 4f 29 28 41 28 37 29 29 3b ┆ PUT SKIP EDIT(SKO)(A(7));┆
0x2acc4…2ace4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2ace4…2ad04 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4f 4e 20 45 52 52 4f 52 20 47 ┆ ON ERROR G┆
0x2ad04…2ad24 4f 20 54 4f 20 54 58 46 45 4c 3b 52 45 41 44 20 4b 45 59 28 53 4b 4f 29 46 49 4c 45 28 4b 54 4f ┆O TO TXFEL;READ KEY(SKO)FILE(KTO┆
0x2ad24…2ad44 54 58 29 49 4e 54 4f 28 4b 54 4f 29 3b 47 4f 20 54 4f 20 4b 4f 4f 4b 3b 20 20 20 20 20 20 20 20 ┆TX)INTO(KTO);GO TO KOOK; ┆
0x2ad44…2ad64 20 20 20 20 20 54 58 46 45 4c 3a 54 45 58 54 3d 27 2a 2a 2a 20 53 41 4b 4e 41 53 20 49 20 4b 4f ┆ TXFEL:TEXT='*** SAKNAS I KO┆
0x2ad64…2ad83 4e 54 4f 50 4c 41 4e 45 4e 20 2a 2a 2a 27 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆NTOPLANEN ***'; ┆
0x2ad83…2ada3 (50, 0, 12) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4b 4f 4f 4b 3a 50 55 54 20 45 44 ┆ KOOK:PUT ED┆
0x2ada3…2adc3 49 54 28 54 45 58 54 29 28 41 28 33 38 29 29 28 53 41 44 2d 53 41 4b 29 28 50 27 2d 2d 2d 2d 2d ┆IT(TEXT)(A(38))(SAD-SAK)(P'-----┆
0x2adc3…2ade3 2d 2d 2d 2d 39 56 2e 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 ┆----9V.99');RAD=RAD-1; ┆
0x2ade3…2ae03 20 20 20 20 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 ┆ IF RAD<12 THEN GO TO RUB;GO ┆
0x2ae03…2ae23 54 4f 20 53 54 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆TO ST; ┆
0x2ae23…2ae43 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4d 55 4c 54 49 20 1c 00 1c 00 77 43 43 ┆ MULTI wCC┆
0x2ae43…2ae63 48 4f 4f 53 45 20 20 1d 00 1d 00 00 43 00 00 00 00 00 00 00 00 d3 ff d3 ff 00 00 00 00 00 00 00 ┆HOOSE C ┆
0x2ae63…2ae82 00 00 00 dd ff dd ff 00 00 00 00 00 00 00 00 00 00 dd ff dd ff 00 00 00 00 00 00 00 00 0f 02 ┆ ┆
0x2ae82…2aea2 (50, 0, 13) 0c bb 4d 04 00 00 91 40 0c c1 4d 02 ff 00 0c c5 4d 02 05 00 0b cf 4d 5d 4d b5 03 4d b9 4d b5 4d ┆ M @ M M MÅM M M M┆
0x2aea2…2aec2 bb 00 33 00 02 0e 0a 00 03 4d b5 4d bb 00 33 00 02 0e 0a 4d bd 00 03 4d bf 33 00 00 4d b5 00 0a ┆ 3 M M 3 M M 3 M ┆
0x2aec2…2aee2 00 4d c1 00 12 03 33 00 00 4d b5 00 0a 33 00 00 4d b5 00 0a 00 4d bf 00 0c 0a 03 4d b5 4d bb 00 ┆ M 3 M 3 M M M M ┆
0x2aee2…2af02 33 00 02 0e 0a 4d b9 00 03 33 00 00 4d b5 00 0a 4d bf 00 03 1f 0b 34 4e 25 4d c3 03 33 00 00 4d ┆3 M 3 M M 4N%M 3 M┆
0x2af02…2af22 c3 00 0a 4d bb 00 33 00 02 0e 0a 33 00 00 4d c3 00 0a 4d c5 00 33 00 02 0e 0a 00 03 1f 1b 00 fe ┆ M 3 3 M M 3 ┆
0x2af22…2af42 40 02 a3 43 0b 81 40 02 09 18 00 80 00 cd 00 08 fe 06 ca 06 45 b7 c4 18 08 21 00 43 0e 80 11 00 ┆@ C @ E ! C ┆
0x2af42…2af62 50 cd 61 47 21 00 43 06 00 11 80 50 0e 80 cd 39 00 7c b5 c2 47 44 2a 80 42 23 cd 15 00 eb 2a d6 ┆P aG! C P 9 ö GD* B# * ┆
0x2af62…2af81 42 19 7d b4 ca 44 44 cd e5 46 db 01 3d fe 1e 3c d2 f7 44 32 91 40 3a 91 40 fe 0d ca a3 44 97 ┆B å DD F = < D2 @: @ D ┆
0x2af81…2afa1 (50, 0, 14) 0d 59 4e 1e 42 10 42 12 00 2a 10 42 eb 2a 12 42 4e eb f3 7e 23 c5 e5 cd 33 00 e1 c1 0d c2 68 4e ┆ YN B B * B * BN ~# 3 hN┆
0x2afa1…2afc1 fb c9 00 0c 43 4c 50 4f 4e 20 20 20 20 03 00 03 00 00 43 4c 50 4f 46 46 20 20 20 03 00 03 00 1f ┆ CLPON CLPOFF ┆
0x2afc1…2afe1 43 43 4c 45 45 52 20 20 20 04 00 04 00 00 43 42 53 58 20 20 20 20 20 05 00 0f 00 00 43 41 54 4f ┆CCLEER CBSX CATO┆
0x2afe1…2b001 45 20 20 20 20 0f 00 10 00 10 43 45 54 4f 41 20 20 20 20 0f 00 10 00 00 43 42 53 43 20 20 20 20 ┆E CETOA CBSC ┆
0x2b001…2b021 20 11 00 1a 00 00 43 4b 45 59 46 55 4e 20 20 1b 00 1b 00 1a 43 53 45 4f 46 20 20 20 20 1b 00 1b ┆ CKEYFUN CSEOF ┆
0x2b021…2b041 00 7f 43 4d 55 4c 54 49 20 20 20 1c 00 1c 00 09 43 55 4e 4d 55 4c 54 49 20 1c 00 1c 00 77 43 43 ┆ CMULTI CUNMULTI wCC┆
0x2b041…2b061 48 4f 4f 53 45 20 20 1d 00 1d 00 00 43 4f 55 54 50 55 54 20 20 1e 00 1e 00 00 43 4b 46 49 4c 45 ┆HOOSE COUTPUT CKFILE┆
0x2b061…2b080 20 20 20 1f 00 1f 00 00 43 43 4c 45 45 52 20 20 20 20 00 20 00 00 43 00 00 00 00 00 00 1f 02 ┆ CCLEER C ┆
0x2b080…2b0a0 (51, 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*/ ┆
0x2b0a0…2b0c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2b0c0…2b0e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 49 42 41 4c 55 54 20 55 54 53 4b 52 49 46 54 ┆ /*IBALUT UTSKRIFT┆
0x2b0e0…2b100 20 41 56 20 49 4e 47 5d 45 4e 44 45 20 42 41 4c 41 4e 53 45 52 20 20 20 20 20 20 20 20 20 20 20 ┆ AV INGÅENDE BALANSER ┆
0x2b100…2b120 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4b 4c ┆ KL┆
0x2b120…2b140 41 52 54 3a 20 58 58 58 58 58 58 20 20 20 50 52 4f 47 52 3a 54 44 20 2a 2f 20 20 20 20 20 20 20 ┆ART: XXXXXX PROGR:TD */ ┆
0x2b140…2b160 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2b160…2b17f 20 20 20 20 20 20 20 20 20 20 20 20 20 44 43 4c 20 31 20 53 41 4d 2c 32 20 53 53 54 52 2c 33 ┆ DCL 1 SAM,2 SSTR,3┆
0x2b17f…2b19f (51, 0, 1) 20 53 4b 4f 20 46 49 58 45 44 28 34 29 2c 33 20 53 41 56 44 20 46 49 58 45 44 28 32 29 2c 33 20 ┆ SKO FIXED(4),3 SAVD FIXED(2),3 ┆
0x2b19f…2b1bf 53 50 52 4f 4a 20 46 49 58 45 44 28 34 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 33 20 53 ┆SPROJ FIXED(4), 3 S┆
0x2b1bf…2b1df 4d 4e 52 20 46 49 58 45 44 28 32 29 2c 33 20 42 55 44 20 43 48 41 52 28 31 29 2c 20 20 20 20 20 ┆MNR FIXED(2),3 BUD CHAR(1), ┆
0x2b1df…2b1ff 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2b1ff…2b21f 20 20 20 20 20 20 20 20 20 20 20 20 32 20 53 41 44 20 46 49 58 45 44 28 31 31 2c 32 29 2c 32 20 ┆ 2 SAD FIXED(11,2),2 ┆
0x2b21f…2b23f 53 41 4b 20 46 49 58 45 44 28 31 31 2c 32 29 2c 32 20 48 4a 4b 4f 44 20 43 48 41 52 28 31 29 3b ┆SAK FIXED(11,2),2 HJKOD CHAR(1);┆
0x2b23f…2b25f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2b25f…2b27e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2b27e…2b29e (51, 0, 2) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2b29e…2b2be 20 20 20 20 20 20 20 20 20 20 20 44 43 4c 20 31 20 4b 54 4f 2c 32 20 4b 4f 4e 54 4f 20 46 49 58 ┆ DCL 1 KTO,2 KONTO FIX┆
0x2b2be…2b2de 45 44 28 34 29 2c 32 20 54 45 58 54 20 43 48 41 52 28 33 34 29 3b 20 20 20 20 20 20 20 20 20 20 ┆ED(4),2 TEXT CHAR(34); ┆
0x2b2de…2b2fe 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
[…0x2…]
0x2b33e…2b35e 20 20 20 20 20 20 20 20 20 44 43 4c 20 31 20 44 41 54 52 45 43 2c 32 20 44 41 47 20 43 48 41 52 ┆ DCL 1 DATREC,2 DAG CHAR┆
0x2b35e…2b37d 28 36 29 2c 32 20 4d 4f 4e 20 43 48 41 52 28 33 29 2c 32 20 4d 4e 52 20 46 49 58 45 44 28 32 ┆(6),2 MON CHAR(3),2 MNR FIXED(2┆
0x2b37d…2b39d (51, 0, 3) 29 2c 32 20 53 4b 28 31 34 29 20 43 48 41 52 28 31 29 3b 20 20 20 20 20 20 44 43 4c 20 31 20 58 ┆),2 SK(14) CHAR(1); DCL 1 X┆
0x2b39d…2b3bd 44 41 54 52 45 43 2c 32 20 58 44 41 47 20 43 48 41 52 28 39 29 2c 32 20 58 4d 4e 52 20 46 49 58 ┆DATREC,2 XDAG CHAR(9),2 XMNR FIX┆
0x2b3bd…2b3dd 45 44 28 32 29 2c 32 20 58 53 4b 28 31 34 29 20 43 48 41 52 28 31 29 3b 20 20 20 20 20 20 20 20 ┆ED(2),2 XSK(14) CHAR(1); ┆
0x2b3dd…2b3fd 20 20 20 20 20 20 20 20 58 44 41 47 3d 27 58 58 58 58 58 58 20 20 20 27 3b 58 4d 4e 52 3d 30 3b ┆ XDAG='XXXXXX ';XMNR=0;┆
0x2b3fd…2b41d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2b41d…2b43d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 43 4c 20 44 41 54 46 49 ┆ DCL DATFI┆
0x2b43d…2b45d 4c 20 46 49 4c 45 2c 4b 54 4f 54 58 20 46 49 4c 45 2c 53 20 43 48 41 52 28 31 29 2c 52 41 44 20 ┆L FILE,KTOTX FILE,S CHAR(1),RAD ┆
0x2b45d…2b47c 46 49 58 45 44 28 32 29 2c 53 49 44 41 20 46 49 58 45 44 28 34 29 2c 49 4e 44 20 46 49 58 45 ┆FIXED(2),SIDA FIXED(4),IND FIXE┆
0x2b47c…2b49c (51, 0, 4) 44 28 31 29 2c 20 20 53 41 4d 46 49 4c 20 46 49 4c 45 2c 53 56 41 52 20 43 48 41 52 28 34 29 2c ┆D(1), SAMFIL FILE,SVAR CHAR(4),┆
0x2b49c…2b4bc 52 45 43 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 20 20 ┆REC BINARY, ┆
0x2b4bc…2b4dc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 58 50 52 4f 4a 20 46 49 58 45 ┆ XPROJ FIXE┆
0x2b4dc…2b4fc 44 28 34 29 2c 58 4b 4f 20 46 49 58 45 44 28 34 29 2c 58 41 56 44 20 46 49 58 45 44 28 32 29 2c ┆D(4),XKO FIXED(4),XAVD FIXED(2),┆
0x2b4fc…2b51c 58 44 41 54 20 46 49 58 45 44 28 34 29 2c 42 45 4c 20 46 49 58 45 44 28 31 32 2c 32 29 2c 20 20 ┆XDAT FIXED(4),BEL FIXED(12,2), ┆
0x2b51c…2b53c 20 20 20 20 20 4a 55 4d 50 20 46 49 58 45 44 28 31 29 2c 43 20 43 48 41 52 28 32 30 29 20 49 4e ┆ JUMP FIXED(1),C CHAR(20) IN┆
0x2b53c…2b55c 49 54 28 27 2d 2d 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 ┆IT('--------------9V.99'), ┆
0x2b55c…2b57b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 43 20 43 48 41 52 28 32 30 29 ┆ CC CHAR(20)┆
0x2b57b…2b59b (51, 0, 5) 49 4e 49 54 28 27 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 39 56 2e 39 39 2a 2a 2a 27 29 2c 20 20 20 20 ┆INIT('-----------9V.99***'), ┆
0x2b59b…2b5bb 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2b5bb…2b5db 20 20 20 20 43 43 43 20 43 48 41 52 28 32 30 29 49 4e 49 54 28 27 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ CCC CHAR(20)INIT('----------┆
0x2b5db…2b5fb 2d 2d 2d 39 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 ┆---9V.99*'), ┆
0x2b5fb…2b61b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4b 49 42 20 46 49 58 45 44 28 31 32 2c ┆ KIB FIXED(12,┆
0x2b61b…2b63b 32 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 ┆2); ┆
0x2b63b…2b65b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2b65b…2b67a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2b67a…2b69a (51, 0, 6) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2b69a…2b6ba 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4f 50 45 4e 20 44 41 54 46 49 4c 3b 4f 50 ┆ OPEN DATFIL;OP┆
0x2b6ba…2b6da 45 4e 20 4b 54 4f 54 58 3b 4f 50 45 4e 20 53 41 4d 46 49 4c 3b 20 20 20 20 20 20 20 20 20 20 20 ┆EN KTOTX;OPEN SAMFIL; ┆
0x2b6da…2b6fa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2b6fa…2b71a 20 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 ┆ READ FILE(DATFIL)INTO(DATREC);I┆
0x2b71a…2b73a 46 20 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 ┆F DAG='XXXXXX' THEN GO TO SLUT; ┆
0x2b73a…2b75a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 4f 20 49 3d 31 20 54 4f 20 31 34 3b 58 53 4b ┆ DO I=1 TO 14;XSK┆
0x2b75a…2b779 28 49 29 3d 53 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 ┆(I)=SK(I);END; ┆
0x2b779…2b799 (51, 0, 7) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2b799…2b7b9 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 58 44 41 54 52 45 43 ┆REWRITE FILE(DATFIL)FROM(XDATREC┆
0x2b7b9…2b7d9 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆); ┆
0x2b7d9…2b7f9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 28 44 29 20 53 4b 49 50 20 ┆ PUT FILE(D) SKIP ┆
0x2b7f9…2b819 45 44 49 54 28 27 20 27 29 28 41 28 33 37 29 29 28 27 2a 2a 2a 20 55 54 53 4b 52 49 46 54 20 41 ┆EDIT(' ')(A(37))('*** UTSKRIFT A┆
0x2b819…2b839 56 20 49 4e 47 5d 45 4e 44 45 20 42 41 4c 41 4e 53 45 52 20 2a 2a 2a 27 29 20 20 20 20 20 28 41 ┆V INGÅENDE BALANSER ***') (A┆
0x2b839…2b859 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 29 28 ┆(74))('STÄLL IN PERFORERINGEN')(┆
0x2b859…2b878 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 41 ┆A(37))('TRYCK SEDAN RETURN.')(A┆
0x2b878…2b898 (51, 0, 8) 28 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 20 ┆(37)); GET SKIP LIST(S); ┆
0x2b898…2b8b8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2b8b8…2b8d8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 ┆ PUT┆
0x2b8d8…2b8f8 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 28 27 2a ┆ FILE(D)SKIP EDIT(' ')(A(43))('*┆
0x2b8f8…2b918 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 29 3b 20 ┆** UTSKRIFT PÅGÅR ***')(A(68)); ┆
0x2b918…2b938 20 20 20 20 20 20 20 20 20 20 20 20 52 41 44 3d 35 3b 53 49 44 41 3d 30 3b 49 4e 44 3d 31 3b 52 ┆ RAD=5;SIDA=0;IND=1;R┆
0x2b938…2b958 45 43 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 ┆EC=0; ┆
0x2b958…2b977 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 55 42 3a ┆ RUB:┆
0x2b977…2b997 (51, 0, 9) 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 55 ┆SIDA=SIDA+1;PUT SKIP(RAD)EDIT('U┆
0x2b997…2b9b7 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 2e 27 29 28 ┆TSKRIFT AV INGÅENDE BALANSER.')(┆
0x2b9b7…2b9d7 41 28 34 30 29 29 20 20 20 20 20 28 27 44 41 54 55 4d 3a 27 29 28 41 29 28 44 41 47 29 28 41 28 ┆A(40)) ('DATUM:')(A)(DAG)(A(┆
0x2b9d7…2b9f7 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)┆
0x2b9f7…2ba17 45 44 49 54 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 27 4b 4f 4e 54 ┆EDIT ('KONT┆
0x2ba17…2ba37 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 38 29 29 28 27 49 ┆O')(A(7))('BENÄMNING')(A(38))('I┆
0x2ba37…2ba57 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 4e 27 29 28 41 29 ┆NG. BALANS VID ÅRETS BÖRJAN')(A)┆
0x2ba57…2ba76 53 4b 49 50 3b 20 20 20 20 52 41 44 3d 34 35 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆SKIP; RAD=45; ┆
0x2ba76…2ba96 (51, 0, 10) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2ba96…2bab6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 54 3a 4f 4e 20 45 ┆ ST:ON E┆
0x2bab6…2bad6 52 52 4f 52 20 47 4f 20 54 4f 20 55 54 3b 52 45 41 44 20 4b 45 59 28 30 29 46 49 4c 45 28 53 41 ┆RROR GO TO UT;READ KEY(0)FILE(SA┆
0x2bad6…2baf6 4d 46 49 4c 29 49 4e 54 4f 28 53 41 4d 29 4b 45 59 54 4f 28 53 4d 4e 52 29 3b 20 20 20 20 20 20 ┆MFIL)INTO(SAM)KEYTO(SMNR); ┆
0x2baf6…2bb16 20 20 20 20 20 20 20 20 49 46 20 55 4e 53 50 45 43 28 53 41 4d 46 49 4c 29 3c 52 45 43 20 54 48 ┆ IF UNSPEC(SAMFIL)<REC TH┆
0x2bb16…2bb36 45 4e 20 47 4f 20 54 4f 20 55 54 3b 45 4c 53 45 20 52 45 43 3d 55 4e 53 50 45 43 28 53 41 4d 46 ┆EN GO TO UT;ELSE REC=UNSPEC(SAMF┆
0x2bb36…2bb56 49 4c 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 42 55 44 7f 3d 27 ┆IL); IF BUD ='┆
0x2bb56…2bb75 20 27 7c 53 41 56 44 7f 3d 30 7c 53 50 52 4f 4a 7f 3d 30 7c 53 4b 4f 3c 31 30 30 30 20 54 48 ┆ 'öSAVD =0öSPROJ =0öSKO<1000 TH┆
0x2bb75…2bb95 (51, 0, 11) 45 4e 20 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 ┆EN GO TO ST; ┆
0x2bb95…2bbb5 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 45 44 49 54 28 53 4b 4f 29 28 41 28 37 29 29 3b ┆ PUT SKIP EDIT(SKO)(A(7));┆
0x2bbb5…2bbd5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2bbd5…2bbf5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4f 4e 20 45 52 52 4f 52 20 47 ┆ ON ERROR G┆
0x2bbf5…2bc15 4f 20 54 4f 20 54 58 46 45 4c 3b 52 45 41 44 20 4b 45 59 28 53 4b 4f 29 46 49 4c 45 28 4b 54 4f ┆O TO TXFEL;READ KEY(SKO)FILE(KTO┆
0x2bc15…2bc35 54 58 29 49 4e 54 4f 28 4b 54 4f 29 3b 47 4f 20 54 4f 20 4b 4f 4f 4b 3b 20 20 20 20 20 20 20 20 ┆TX)INTO(KTO);GO TO KOOK; ┆
0x2bc35…2bc55 20 20 20 20 20 54 58 46 45 4c 3a 54 45 58 54 3d 27 2a 2a 2a 20 53 41 4b 4e 41 53 20 49 20 4b 4f ┆ TXFEL:TEXT='*** SAKNAS I KO┆
0x2bc55…2bc74 4e 54 4f 50 4c 41 4e 45 4e 20 2a 2a 2a 27 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆NTOPLANEN ***'; ┆
0x2bc74…2bc94 (51, 0, 12) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4b 4f 4f 4b 3a 50 55 54 20 45 44 ┆ KOOK:PUT ED┆
0x2bc94…2bcb4 49 54 28 54 45 58 54 29 28 41 28 33 38 29 29 28 53 41 44 2d 53 41 4b 29 28 50 27 2d 2d 2d 2d 2d ┆IT(TEXT)(A(38))(SAD-SAK)(P'-----┆
0x2bcb4…2bcd4 2d 2d 2d 2d 39 56 2e 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 ┆----9V.99');RAD=RAD-1; ┆
0x2bcd4…2bcf4 20 20 20 20 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 ┆ IF RAD<12 THEN GO TO RUB;GO ┆
0x2bcf4…2bd14 54 4f 20 53 54 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆TO ST; ┆
0x2bd14…2bd34 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4d 55 4c 54 49 20 1c 00 1c 00 77 43 43 ┆ MULTI wCC┆
0x2bd34…2bd54 48 4f 4f 53 45 20 20 1d 00 1d 00 00 43 00 00 00 00 00 00 00 00 d3 ff d3 ff 00 00 00 00 00 00 00 ┆HOOSE C ┆
0x2bd54…2bd73 00 00 00 dd ff dd ff 00 00 00 00 00 00 00 00 00 00 dd ff dd ff 00 00 00 00 00 00 00 00 0f 02 ┆ ┆
0x2bd73…2bd93 (51, 0, 13) 0c bb 4d 04 00 00 91 40 0c c1 4d 02 ff 00 0c c5 4d 02 05 00 0b cf 4d 5d 4d b5 03 4d b9 4d b5 4d ┆ M @ M M MÅM M M M┆
0x2bd93…2bdb3 bb 00 33 00 02 0e 0a 00 03 4d b5 4d bb 00 33 00 02 0e 0a 4d bd 00 03 4d bf 33 00 00 4d b5 00 0a ┆ 3 M M 3 M M 3 M ┆
0x2bdb3…2bdd3 00 4d c1 00 12 03 33 00 00 4d b5 00 0a 33 00 00 4d b5 00 0a 00 4d bf 00 0c 0a 03 4d b5 4d bb 00 ┆ M 3 M 3 M M M M ┆
0x2bdd3…2bdf3 33 00 02 0e 0a 4d b9 00 03 33 00 00 4d b5 00 0a 4d bf 00 03 1f 0b 34 4e 25 4d c3 03 33 00 00 4d ┆3 M 3 M M 4N%M 3 M┆
0x2bdf3…2be13 c3 00 0a 4d bb 00 33 00 02 0e 0a 33 00 00 4d c3 00 0a 4d c5 00 33 00 02 0e 0a 00 03 1f 1b 00 fe ┆ M 3 3 M M 3 ┆
0x2be13…2be33 40 02 a3 43 0b 81 40 02 09 18 00 80 00 cd 00 08 fe 06 ca 06 45 b7 c4 18 08 21 00 43 0e 80 11 00 ┆@ C @ E ! C ┆
0x2be33…2be53 50 cd 61 47 21 00 43 06 00 11 80 50 0e 80 cd 39 00 7c b5 c2 47 44 2a 80 42 23 cd 15 00 eb 2a d6 ┆P aG! C P 9 ö GD* B# * ┆
0x2be53…2be72 42 19 7d b4 ca 44 44 cd e5 46 db 01 3d fe 1e 3c d2 f7 44 32 91 40 3a 91 40 fe 0d ca a3 44 97 ┆B å DD F = < D2 @: @ D ┆
0x2be72…2be92 (51, 0, 14) 0d 59 4e 1e 42 10 42 12 00 2a 10 42 eb 2a 12 42 4e eb f3 7e 23 c5 e5 cd 33 00 e1 c1 0d c2 68 4e ┆ YN B B * B * BN ~# 3 hN┆
0x2be92…2beb2 fb c9 00 0c 43 4c 50 4f 4e 20 20 20 20 03 00 03 00 00 43 4c 50 4f 46 46 20 20 20 03 00 03 00 1f ┆ CLPON CLPOFF ┆
0x2beb2…2bed2 43 43 4c 45 45 52 20 20 20 04 00 04 00 00 43 42 53 58 20 20 20 20 20 05 00 0f 00 00 43 41 54 4f ┆CCLEER CBSX CATO┆
0x2bed2…2bef2 45 20 20 20 20 0f 00 10 00 10 43 45 54 4f 41 20 20 20 20 0f 00 10 00 00 43 42 53 43 20 20 20 20 ┆E CETOA CBSC ┆
0x2bef2…2bf12 20 11 00 1a 00 00 43 4b 45 59 46 55 4e 20 20 1b 00 1b 00 1a 43 53 45 4f 46 20 20 20 20 1b 00 1b ┆ CKEYFUN CSEOF ┆
0x2bf12…2bf32 00 7f 43 4d 55 4c 54 49 20 20 20 1c 00 1c 00 09 43 55 4e 4d 55 4c 54 49 20 1c 00 1c 00 77 43 43 ┆ CMULTI CUNMULTI wCC┆
0x2bf32…2bf52 48 4f 4f 53 45 20 20 1d 00 1d 00 00 43 4f 55 54 50 55 54 20 20 1e 00 1e 00 00 43 4b 46 49 4c 45 ┆HOOSE COUTPUT CKFILE┆
0x2bf52…2bf71 20 20 20 1f 00 1f 00 00 43 43 4c 45 45 52 20 20 20 20 00 20 00 00 43 00 00 00 00 00 00 1f 02 ┆ CCLEER C ┆
0x2bf71…2bfc0 (52, 0, 0) DataSector[0x4f]
[…0x2b…]
0x2cd05…2cd25 (53, 0, 3) 52 45 54 55 52 4e 2e 2b 00 2a 2a 2a 20 55 54 53 4b 00 0c 8e 44 12 52 49 46 54 20 50 5d 47 5d 52 ┆RETURN.+ *** UTSK D RIFT PÅGÅR┆
0x2cd25…2cd45 20 2a 2a 2a 44 00 05 00 0c a2 44 5f 55 54 53 4b 52 49 46 54 20 41 56 20 49 4e 47 5d 45 4e 44 45 ┆ ***D D_UTSKRIFT AV INGÅENDE┆
0x2cd45…2cd54 20 42 41 4c 41 4e 53 45 52 2e 28 00 44 41 54 ┆ BALANSER.( DAT┆
0x2cd54…2cd74 (53, 0, 4) 55 4d 3a 0a 00 53 49 44 41 3a 02 00 4b 4f 4e 54 4f 07 00 42 45 4e 5b 4d 4e 49 4e 47 26 00 49 4e ┆UM: SIDA: KONTO BENÄMNING& IN┆
0x2cd74…2cd94 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 4e 2d 00 0c 03 45 02 ┆G. BALANS VID ÅRETS BÖRJAN- E ┆
0x2cd94…2cda3 e8 03 0c 07 45 1c 2a 2a 2a 20 53 41 4b 4e 41 ┆ E *** SAKNA┆
0x2cda3…2cdc3 (53, 0, 5) 53 20 49 20 4b 4f 4e 54 4f 50 4c 41 4e 45 4e 20 2a 2a 2a 0c 25 45 10 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆S I KONTOPLANEN *** %E ---------┆
0x2cdc3…2cde3 39 56 2e 39 39 0c 00 0c 39 45 07 42 4f 4b 52 55 54 0d 0b 40 45 2e 43 56 32 09 43 6f 32 09 06 43 ┆9V.99 9E BOKRUT @E.CV2 Co2 C┆
0x2cde3…2cdf2 5f 43 78 00 19 17 05 02 42 43 7a 22 43 92 22 ┆_Cx BCz"C "┆
0x2cdf2…2ce12 (53, 0, 6) 43 b1 22 43 7a 32 19 43 3d 2b 01 43 3d 32 06 44 25 32 06 09 02 0b 70 45 05 1d 45 37 00 1c 0b 6e ┆C "Cz2 C=+ C=2 D%2 pE E7 n┆
0x2ce12…2ce32 45 01 45 00 0b 6f 45 01 75 0b 75 45 10 44 2b 44 2d 00 03 44 2b 00 44 2f 00 0c 0a 32 01 0b 89 45 ┆E E oE u uE D+D- D+ D/ 2 E┆
0x2ce32…2ce41 27 20 44 2b 44 2b 00 32 01 0a 03 45 7b 1c 43 ┆' D+D+ 2 Eä C┆
0x2ce41…2ce61 (53, 0, 7) 60 44 2b 00 32 01 0e 0a 32 01 43 47 44 2b 00 32 01 0e 0a 32 01 06 45 8a 1c 0b 85 45 04 45 b0 45 ┆`D+ 2 2 CGD+ 2 2 E E E E┆
0x2ce61…2ce81 96 0b b0 45 72 43 7a 32 19 43 56 2d 01 15 00 27 32 0d 32 01 2a 44 31 32 01 44 32 00 28 44 34 32 ┆ ErCz2 CV- '2 2 *D12 D2 (D42┆
0x2ce81…2ce90 25 44 59 00 28 44 5b 32 16 44 32 00 28 44 71 ┆%DY (DÄ2 D2 (Dq┆
0x2ce90…2ceb0 (53, 0, 8) 32 13 44 32 00 28 23 43 aa 32 01 25 15 00 27 32 0d 32 01 2a 44 31 32 01 44 84 00 28 44 86 32 16 ┆2 D2 (#C 2 % '2 2 *D12 D (D 2 ┆
0x2ceb0…2ced0 44 9c 00 28 43 ab 44 9e 00 19 17 05 02 42 43 ad 43 78 00 19 17 05 03 43 43 b0 44 2d 00 19 17 05 ┆D (C D BC Cx CC D- ┆
0x2ced0…2cedf 01 41 43 cd 43 78 00 03 0a a0 44 02 22 46 0b ┆ AC Cx D "F ┆
0x2cedf…2ceff (53, 0, 9) 22 46 32 43 ad 43 ad 02 03 43 44 2d 00 19 17 0b 05 03 43 15 00 2a 32 0d 43 ab 02 02 42 1a 16 2a ┆"F2C C CD- C *2 C B *┆
0x2ceff…2cf1f 44 a2 32 1e 44 c0 00 28 44 c2 32 06 26 43 3d 32 06 44 c8 00 28 00 0b 54 46 36 44 ca 32 05 26 43 ┆D 2 D (D 2 &C=2 D ( TF6D 2 &C┆
0x2cf1f…2cf2e ad 02 03 43 1a 26 32 0d 44 cf 00 2a 44 d1 32 ┆ C &2 D *D 2┆
0x2cf2e…2cf4e (53, 0, 10) 05 44 d6 00 28 44 d8 32 09 44 e1 00 28 44 e3 32 1c 26 32 0d 32 01 2a 43 ab 44 ff 00 19 17 05 02 ┆ D (D 2 D (D 2 &2 2 *C D ┆
0x2cf4e…2cf6e 42 0a 01 45 02 8a 46 0b 8a 46 1d 40 f7 45 35 00 03 32 02 43 78 43 b1 32 18 43 00 33 00 08 2e 01 ┆B E F F @ E5 2 CxC 2 C 3 . ┆
0x2cf6e…2cf7d 43 b1 00 43 cd 00 07 01 0b a9 46 05 1d 45 35 ┆C C F E5┆
0x2cf7d…2cf9d (53, 0, 11) 00 1c 0b a7 46 02 46 b1 0b b1 46 06 43 cd 43 b1 00 03 0b ae 46 03 46 b7 1c 0b b7 46 31 43 0a 32 ┆ F F F C C F F F1C 2┆
0x2cf9d…2cfbd 01 44 31 32 01 09 05 43 03 02 02 42 43 78 00 19 17 08 05 13 43 05 02 03 43 43 78 00 19 17 08 05 ┆ D12 C BCx C CCx ┆
0x2cfbd…2cfcc 13 43 00 02 03 43 45 03 00 19 17 08 01 13 0b ┆ C CE ┆
0x2cfcc…2cfec (53, 0, 12) ea 46 05 1d 45 01 00 1c 0b e8 46 02 46 ef 0b ef 46 2b 15 00 2a 32 0d 32 01 2a 43 00 02 03 43 1a ┆ F E F F F+ *2 2 *C C ┆
0x2cfec…2d00c 44 d6 00 28 40 f7 45 05 00 03 32 03 43 00 43 92 32 25 43 18 33 00 00 2e 01 45 23 00 1c 0a 05 45 ┆D (@ E 2 C C 2%C 3 . E# E┆
0x2d00c…2d01b 02 1a 47 00 c8 00 00 00 0b 1a 47 09 43 1b 32 ┆ G G C 2┆
0x2d01b…2d03b (53, 0, 13) 22 45 07 32 1c 06 0a 23 45 02 23 47 0b 23 47 3a 15 00 2a 43 1b 32 22 44 e1 00 28 43 0b 02 06 45 ┆"E 2 #E #G #G: *C 2"D (C E┆
0x2d03b…2d05b 43 11 02 06 45 0d 0b 1a 45 25 32 0e 29 43 ab 43 ab 02 02 42 44 2d 00 19 17 0d 0b 05 02 42 43 ab ┆C E E%2 )C C BD- BC ┆
0x2d05b…2d06a 02 02 42 45 33 00 19 17 08 01 0b 5f 47 05 1d ┆ BE3 _G ┆
0x2d06a…2d08a (53, 0, 14) 44 a0 00 1c 0b 5d 47 02 47 64 0b 64 47 04 45 01 00 1c 0a 35 45 02 68 47 0b 68 47 14 15 00 2a 32 ┆D ÅG Gd dG E 5E hG hG *2┆
0x2d08a…2d0aa 0d 43 ab 02 02 42 44 9e 00 19 17 0d 0b 1a 16 2a 0a 37 45 02 7c 47 0b 7c 47 0a 32 00 45 39 44 d6 ┆ C BD * 7E öG öG 2 E9D ┆
0x2d0aa…2d0b9 47 86 1e 1b 0b fe 40 02 40 45 0b 81 40 02 09 ┆G @ @E @ ┆
0x2d0b9…2d0d9 (53, 0, 15) 18 00 05 13 43 00 02 03 43 45 03 00 19 17 08 01 13 0b ea 46 05 1d 45 01 00 1c 0b e8 46 02 46 ef ┆ C CE F E F F ┆
0x2d0d9…2d0f9 0b ef 46 2b 15 00 2a 32 0d 32 01 2a 43 00 02 03 43 1a 44 d6 00 28 40 f7 45 05 00 03 32 03 43 00 ┆ F+ *2 2 *C C D (@ E 2 C ┆
0x2d0f9…2d108 43 92 32 25 43 18 33 00 00 2e 01 45 23 00 1c ┆C 2%C 3 . E# ┆
0x2d108…2d128 (53, 0, 16) 0a 05 45 02 1a 47 00 c8 00 00 00 0d 86 47 1e 42 10 42 12 00 2a 10 42 eb 2a 12 42 4e eb f3 7e 23 ┆ E G G B B * B * BN ~#┆
0x2d128…2d148 c5 e5 cd 33 00 e1 c1 0d c2 95 47 fb c9 00 0c 43 4c 50 4f 4e 20 20 20 20 03 00 03 00 00 43 4c 50 ┆ 3 G CLPON CLP┆
0x2d148…2d157 4f 46 46 20 20 20 03 00 03 00 1f 43 43 4c 45 ┆OFF CCLE┆
0x2d157…2d177 (53, 0, 17) 45 52 20 20 20 04 00 04 00 00 43 42 53 58 20 20 20 20 20 05 00 0f 00 00 43 41 54 4f 45 20 20 20 ┆ER CBSX CATOE ┆
0x2d177…2d197 20 0f 00 10 00 10 43 45 54 4f 41 20 20 20 20 0f 00 10 00 00 43 42 53 43 20 20 20 20 20 11 00 1a ┆ CETOA CBSC ┆
0x2d197…2d1a6 00 00 43 4b 45 59 46 55 4e 20 20 1b 00 1b 00 ┆ CKEYFUN ┆
0x2d1a6…2d1c6 (53, 0, 18) 1a 43 53 45 4f 46 20 20 20 20 1b 00 1b 00 7f 43 4d 55 4c 54 49 20 20 20 1c 00 1c 00 09 43 55 4e ┆ CSEOF CMULTI CUN┆
0x2d1c6…2d1e6 4d 55 4c 54 49 20 1c 00 1c 00 77 43 43 48 4f 4f 53 45 20 20 1d 00 1d 00 00 43 4f 55 54 50 55 54 ┆MULTI wCCHOOSE COUTPUT┆
0x2d1e6…2d1f5 20 20 1e 00 1e 00 00 43 4b 46 49 4c 45 20 20 ┆ CKFILE ┆
0x2d1f5…2d215 (53, 0, 19) 20 1f 00 1f 00 00 43 43 4c 45 45 52 20 20 20 20 00 20 00 00 43 00 00 00 00 00 00 1f 02 20 20 20 ┆ CCLEER C ┆
0x2d215…2d235 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2d235…2d244 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2d244…2d264 (53, 0, 20) 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; ┆
0x2d264…2d284 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2d284…2d293 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2d293…2d2b3 (53, 0, 21) 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┆
0x2d2b3…2d2d3 20 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 20 ┆ DAG='XXXXXX' THEN GO TO SLUT; ┆
0x2d2d3…2d2e2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2d2e2…2d302 (53, 0, 22) 44 4f 20 49 3d 31 20 54 4f 20 31 34 3b 58 53 4b 28 49 29 3d 53 4b 28 49 29 3b 45 4e 44 3b 58 53 ┆DO I=1 TO 14;XSK(I)=SK(I);END;XS┆
0x2d302…2d322 4b 28 31 33 29 3d 27 20 27 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆K(13)=' '; ┆
0x2d322…2d331 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2d331…2d351 (53, 0, 23) 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 58 44 41 54 52 45 43 ┆REWRITE FILE(DATFIL)FROM(XDATREC┆
0x2d351…2d371 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆); ┆
0x2d371…2d380 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2d380…2d3a0 (53, 0, 24) 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)┆
0x2d3a0…2d3c0 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┆
0x2d3c0…2d3cf 20 20 20 20 20 2a 2a 2a 27 29 20 20 20 20 20 ┆ ***') ┆
0x2d3cf…2d3ef (53, 0, 25) 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'┆
0x2d3ef…2d40f 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.')(┆
0x2d40f…2d41e 41 28 33 37 29 29 3b 20 20 20 20 20 20 20 20 ┆A(37)); ┆
0x2d41e…2d43e (53, 0, 26) 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); ┆
0x2d43e…2d45e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2d45e…2d46d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2d46d…2d48d (53, 0, 27) 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;┆
0x2d48d…2d4ad 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2d4ad…2d4bc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2d4bc…2d4dc (53, 0, 28) 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┆
0x2d4dc…2d4fc 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┆
0x2d4fc…2d50b 4c 20 4b 52 4f 4e 4f 52 27 29 28 41 29 20 20 ┆L KRONOR')(A) ┆
0x2d50b…2d52b (53, 0, 29) 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┆
0x2d52b…2d54b 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 ┆
0x2d54b…2d55a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2d55a…2d57a (53, 0, 30) 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┆
0x2d57a…2d59a 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┆
0x2d59a…2d5a9 54 28 49 29 20 20 20 20 20 20 20 20 20 20 20 ┆T(I) ┆
0x2d5a9…2d5c9 (53, 0, 31) 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(' ┆
0x2d5c9…2d5e9 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; ┆
0x2d5e9…2d5f8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2d5f8…2d618 (53, 0, 32) 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:┆
0x2d618…2d638 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)); ┆
0x2d638…2d647 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2d647…2d667 (53, 0, 33) 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 ┆
0x2d667…2d687 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)); ┆
0x2d687…2d696 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2d696…2d6b6 (53, 0, 34) 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┆
0x2d6b6…2d6d6 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; ┆
0x2d6d6…2d6e5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2d6e5…2d705 (53, 0, 35) 49 46 28 53 55 42 53 54 52 28 4b 4f 53 56 41 52 2c 31 2c 31 29 3d 27 32 27 29 7c 28 28 53 55 42 ┆IF(SUBSTR(KOSVAR,1,1)='2')ö((SUB┆
0x2d705…2d725 53 54 52 28 4b 4f 53 56 41 52 2c 31 2c 31 29 3d 27 31 27 29 26 28 4b 4f 4e 54 4f 7f 3d 31 32 31 ┆STR(KOSVAR,1,1)='1')&(KONTO =121┆
0x2d725…2d734 30 29 29 20 20 20 20 20 20 20 20 20 20 20 20 ┆0)) ┆
0x2d734…2d754 (53, 0, 36) 7c 28 4b 4f 4e 54 4f 3c 31 30 30 30 29 7c 28 4b 4f 4e 54 4f 3e 38 39 39 39 29 20 54 48 45 4e 20 ┆ö(KONTO<1000)ö(KONTO>8999) THEN ┆
0x2d754…2d774 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 20 20 ┆GO TO FEL; ┆
0x2d774…2d783 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2d783…2d7a3 (53, 0, 37) 49 46 20 52 45 57 3d 30 20 54 48 45 4e 20 4f 50 45 4e 20 53 41 4d 46 49 4c 3b 20 20 20 20 20 20 ┆IF REW=0 THEN OPEN SAMFIL; ┆
0x2d7a3…2d7c3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2d7c3…2d7d2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2d7d2…2d7f2 (53, 0, 38) 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 4f 4e 54 ┆ON ERROR GO TO FEL;READ KEY(KONT┆
0x2d7f2…2d812 4f 29 46 49 4c 45 28 4b 54 4f 54 58 29 49 4e 54 4f 28 4b 54 4f 29 3b 53 4b 4f 3d 4b 4f 4e 54 4f ┆O)FILE(KTOTX)INTO(KTO);SKO=KONTO┆
0x2d812…2d821 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆; ┆
0x2d821…2d841 (53, 0, 39) 50 55 54 20 46 49 4c 45 28 44 29 20 45 44 49 54 28 27 41 56 44 45 4c 4e 49 4e 47 20 28 30 20 4f ┆PUT FILE(D) EDIT('AVDELNING (0 O┆
0x2d841…2d861 4d 20 49 4e 47 45 4e 29 3a 27 29 28 41 28 33 35 29 29 3b 47 45 54 20 53 4b 49 50 20 4c 49 53 54 ┆M INGEN):')(A(35));GET SKIP LIST┆
0x2d861…2d870 28 53 41 56 44 29 3b 20 20 20 20 20 20 20 20 ┆(SAVD); ┆
0x2d870…2d890 (53, 0, 40) 41 56 44 54 45 53 54 3a 49 46 20 53 4b 4f 3c 33 30 30 30 26 53 4b 4f 7f 3d 31 32 31 30 26 53 41 ┆AVDTEST:IF SKO<3000&SKO =1210&SA┆
0x2d890…2d8b0 56 44 7f 3d 30 20 54 48 45 4e 20 47 4f 20 54 4f 20 46 45 4c 41 56 44 3b 20 20 20 20 20 20 20 20 ┆VD =0 THEN GO TO FELAVD; ┆
0x2d8b0…2d8bf 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2d8bf…2d9be (54, 0, 0) DataSector[0xff]
[…0x5…]
0x2deb9…2ded9 (54, 0, 6) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2ded9…2def9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4f 50 45 4e 20 4b 54 4f 54 58 3b 4f 50 45 ┆ OPEN KTOTX;OPE┆
0x2def9…2df19 4e 20 44 41 54 46 49 4c 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆N DATFIL; ┆
0x2df19…2df39 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2df39…2df59 20 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 ┆ READ FILE(DATFIL)INTO(DATREC);I┆
0x2df59…2df79 46 20 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 ┆F DAG='XXXXXX' THEN GO TO SLUT; ┆
0x2df79…2df99 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 4f 20 49 3d 31 20 54 4f 20 31 34 3b 58 53 4b ┆ DO I=1 TO 14;XSK┆
0x2df99…2dfb8 28 49 29 3d 53 4b 28 49 29 3b 45 4e 44 3b 58 53 4b 28 31 33 29 3d 27 20 27 3b 20 20 20 20 20 ┆(I)=SK(I);END;XSK(13)=' '; ┆
0x2dfb8…2dfd8 (54, 0, 7) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2dfd8…2dff8 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 58 44 41 54 52 45 43 ┆REWRITE FILE(DATFIL)FROM(XDATREC┆
0x2dff8…2e018 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆); ┆
0x2e018…2e038 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 28 44 29 20 53 4b 49 50 20 ┆ PUT FILE(D) SKIP ┆
0x2e038…2e058 45 44 49 54 28 27 20 27 29 28 41 28 33 37 29 29 28 27 2a 2a 2a 20 20 20 20 20 55 50 50 4c 5b 47 ┆EDIT(' ')(A(37))('*** UPPLÄG┆
0x2e058…2e078 47 4e 49 4e 47 20 41 56 20 42 55 44 47 45 54 20 20 20 20 20 2a 2a 2a 27 29 20 20 20 20 20 28 41 ┆GNING AV BUDGET ***') (A┆
0x2e078…2e098 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 29 28 ┆(74))('STÄLL IN PERFORERINGEN')(┆
0x2e098…2e0b7 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 41 ┆A(37))('TRYCK SEDAN RETURN.')(A┆
0x2e0b7…2e0d7 (54, 0, 8) 28 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 20 ┆(37)); GET SKIP LIST(S); ┆
0x2e0d7…2e0f7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2e0f7…2e117 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4a 55 4d ┆ JUM┆
0x2e117…2e137 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 20 20 20 ┆P=0;RAD=5;SIDA=0;IND=1;REW=0; ┆
0x2e137…2e157 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2e157…2e177 20 20 20 20 20 20 20 20 20 20 20 20 52 55 42 3a 53 49 44 41 3d 53 49 44 41 2b 31 3b 50 55 54 20 ┆ RUB:SIDA=SIDA+1;PUT ┆
0x2e177…2e197 53 4b 49 50 28 52 41 44 29 45 44 49 54 28 27 55 50 50 4c 5b 47 47 4e 49 4e 47 20 41 56 20 42 55 ┆SKIP(RAD)EDIT('UPPLÄGGNING AV BU┆
0x2e197…2e1b6 44 47 45 54 2c 54 55 53 45 4e 54 41 4c 20 4b 52 4f 4e 4f 52 27 29 28 41 29 20 20 28 27 20 20 ┆DGET,TUSENTAL KRONOR')(A) (' ┆
0x2e1b6…2e1d6 (54, 0, 9) 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 49 44 41 3a ┆ DATUM:')(A)(DAG)(A(10))('SIDA:┆
0x2e1d6…2e1f6 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 ┆
0x2e1f6…2e216 20 20 20 20 20 20 20 20 20 20 20 28 27 4b 54 4f 27 29 28 41 28 35 29 29 28 27 41 56 44 27 29 28 ┆ ('KTO')(A(5))('AVD')(┆
0x2e216…2e236 41 28 36 29 29 28 27 4d 5d 4e 41 44 20 31 27 29 28 41 28 37 29 29 3b 44 4f 20 49 3d 32 20 54 4f ┆A(6))('MÅNAD 1')(A(7));DO I=2 TO┆
0x2e236…2e256 20 31 32 3b 50 55 54 20 45 44 49 54 28 49 29 20 20 20 20 20 20 20 20 20 20 20 28 50 27 5a 5a 5a ┆ 12;PUT EDIT(I) (P'ZZZ┆
0x2e256…2e276 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 20 20 20 20 20 54 ┆ZZZZZ9');END;PUT EDIT(' T┆
0x2e276…2e296 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 20 20 20 20 20 20 ┆OT')(A)SKIP(2);RAD=44; ┆
0x2e296…2e2b5 20 20 20 20 20 20 20 20 20 53 54 3a 50 55 54 20 46 49 4c 45 28 44 29 20 53 4b 49 50 20 45 44 ┆ ST:PUT FILE(D) SKIP ED┆
0x2e2b5…2e2d5 (54, 0, 10) 49 54 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 ┆IT('KONTO:')(A(33)); ┆
0x2e2d5…2e2f5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4b 54 4f 49 4e 3a 47 ┆ KTOIN:G┆
0x2e2f5…2e315 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 46 49 4c 45 28 44 29 ┆ET SKIP LIST(KOSVAR);PUT FILE(D)┆
0x2e315…2e335 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 20 20 20 20 20 20 20 ┆ EDIT(KOSVAR)(A(4)); ┆
0x2e335…2e355 20 20 20 20 20 20 20 20 49 46 20 4b 4f 53 56 41 52 3d 27 53 4c 55 54 27 20 54 48 45 4e 20 47 4f ┆ IF KOSVAR='SLUT' THEN GO┆
0x2e355…2e375 20 54 4f 20 55 54 3b 4b 4f 4e 54 4f 3d 4b 4f 53 56 41 52 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆ TO UT;KONTO=KOSVAR; ┆
0x2e375…2e395 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 28 53 55 42 53 54 52 ┆ IF(SUBSTR┆
0x2e395…2e3b4 28 4b 4f 53 56 41 52 2c 31 2c 31 29 3d 27 32 27 29 7c 28 28 53 55 42 53 54 52 28 4b 4f 53 56 ┆(KOSVAR,1,1)='2')ö((SUBSTR(KOSV┆
0x2e3b4…2e3d4 (54, 0, 11) 41 52 2c 31 2c 31 29 3d 27 31 27 29 26 28 4b 4f 4e 54 4f 7f 3d 31 32 31 30 29 29 20 20 20 20 20 ┆AR,1,1)='1')&(KONTO =1210)) ┆
0x2e3d4…2e3f4 20 20 20 20 20 20 20 7c 28 4b 4f 4e 54 4f 3c 31 30 30 30 29 7c 28 4b 4f 4e 54 4f 3e 38 39 39 39 ┆ ö(KONTO<1000)ö(KONTO>8999┆
0x2e3f4…2e414 29 20 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 ┆) THEN GO TO FEL; ┆
0x2e414…2e434 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 52 45 57 3d 30 20 54 ┆ IF REW=0 T┆
0x2e434…2e454 48 45 4e 20 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 ┆HEN OPEN SAMFIL; ┆
0x2e454…2e474 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2e474…2e494 20 20 20 20 20 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 ┆ ON ERROR GO TO FEL;READ KEY┆
0x2e494…2e4b3 28 4b 4f 4e 54 4f 29 46 49 4c 45 28 4b 54 4f 54 58 29 49 4e 54 4f 28 4b 54 4f 29 3b 53 4b 4f ┆(KONTO)FILE(KTOTX)INTO(KTO);SKO┆
0x2e4b3…2e4d3 (54, 0, 12) 3d 4b 4f 4e 54 4f 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 28 44 29 ┆=KONTO; PUT FILE(D)┆
0x2e4d3…2e4f3 20 45 44 49 54 28 27 41 56 44 45 4c 4e 49 4e 47 20 28 30 20 4f 4d 20 49 4e 47 45 4e 29 3a 27 29 ┆ EDIT('AVDELNING (0 OM INGEN):')┆
0x2e4f3…2e513 28 41 28 33 35 29 29 3b 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 53 41 56 44 29 3b 20 20 20 20 ┆(A(35));GET SKIP LIST(SAVD); ┆
0x2e513…2e533 20 20 20 20 41 56 44 54 45 53 54 3a 49 46 20 53 4b 4f 3c 33 30 30 30 26 53 4b 4f 7f 3d 31 32 31 ┆ AVDTEST:IF SKO<3000&SKO =121┆
0x2e533…2e553 30 26 53 41 56 44 7f 3d 30 20 54 48 45 4e 20 47 4f 20 54 4f 20 46 45 4c 41 56 44 3b 20 20 20 20 ┆0&SAVD =0 THEN GO TO FELAVD; ┆
0x2e553…2e573 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4d 55 4c 54 49 20 1c 00 1c 00 77 43 43 ┆ MULTI wCC┆
0x2e573…2e593 48 4f 4f 53 45 20 20 1d 00 1d 00 00 43 00 00 00 00 00 00 00 00 d3 ff d3 ff 00 00 00 00 00 00 00 ┆HOOSE C ┆
0x2e593…2e5b2 00 00 00 dd ff dd ff 00 00 00 00 00 00 00 00 00 00 dd ff dd ff 00 00 00 00 00 00 00 00 0f 02 ┆ ┆
0x2e5b2…2e5d2 (54, 0, 13) 0c bb 4d 04 00 00 91 40 0c c1 4d 02 ff 00 0c c5 4d 02 05 00 0b cf 4d 5d 4d b5 03 4d b9 4d b5 4d ┆ M @ M M MÅM M M M┆
0x2e5d2…2e5f2 bb 00 33 00 02 0e 0a 00 03 4d b5 4d bb 00 33 00 02 0e 0a 4d bd 00 03 4d bf 33 00 00 4d b5 00 0a ┆ 3 M M 3 M M 3 M ┆
0x2e5f2…2e612 00 4d c1 00 12 03 33 00 00 4d b5 00 0a 33 00 00 4d b5 00 0a 00 4d bf 00 0c 0a 03 4d b5 4d bb 00 ┆ M 3 M 3 M M M M ┆
0x2e612…2e632 33 00 02 0e 0a 4d b9 00 03 33 00 00 4d b5 00 0a 4d bf 00 03 1f 0b 34 4e 25 4d c3 03 33 00 00 4d ┆3 M 3 M M 4N%M 3 M┆
0x2e632…2e652 c3 00 0a 4d bb 00 33 00 02 0e 0a 33 00 00 4d c3 00 0a 4d c5 00 33 00 02 0e 0a 00 03 1f 1b 00 fe ┆ M 3 3 M M 3 ┆
0x2e652…2e672 40 02 a3 43 0b 81 40 02 09 18 00 80 00 cd 00 08 fe 06 ca 06 45 b7 c4 18 08 21 00 43 0e 80 11 00 ┆@ C @ E ! C ┆
0x2e672…2e692 50 cd 61 47 21 00 43 06 00 11 80 50 0e 80 cd 39 00 7c b5 c2 47 44 2a 80 42 23 cd 15 00 eb 2a d6 ┆P aG! C P 9 ö GD* B# * ┆
0x2e692…2e6b1 42 19 7d b4 ca 44 44 cd e5 46 db 01 3d fe 1e 3c d2 f7 44 32 91 40 3a 91 40 fe 0d ca a3 44 97 ┆B å DD F = < D2 @: @ D ┆
0x2e6b1…2e6d1 (54, 0, 14) 0d 59 4e 1e 42 10 42 12 00 2a 10 42 eb 2a 12 42 4e eb f3 7e 23 c5 e5 cd 33 00 e1 c1 0d c2 68 4e ┆ YN B B * B * BN ~# 3 hN┆
0x2e6d1…2e6f1 fb c9 00 0c 43 4c 50 4f 4e 20 20 20 20 03 00 03 00 00 43 4c 50 4f 46 46 20 20 20 03 00 03 00 1f ┆ CLPON CLPOFF ┆
0x2e6f1…2e711 43 43 4c 45 45 52 20 20 20 04 00 04 00 00 43 42 53 58 20 20 20 20 20 05 00 0f 00 00 43 41 54 4f ┆CCLEER CBSX CATO┆
0x2e711…2e731 45 20 20 20 20 0f 00 10 00 10 43 45 54 4f 41 20 20 20 20 0f 00 10 00 00 43 42 53 43 20 20 20 20 ┆E CETOA CBSC ┆
0x2e731…2e751 20 11 00 1a 00 00 43 4b 45 59 46 55 4e 20 20 1b 00 1b 00 1a 43 53 45 4f 46 20 20 20 20 1b 00 1b ┆ CKEYFUN CSEOF ┆
0x2e751…2e771 00 7f 43 4d 55 4c 54 49 20 20 20 1c 00 1c 00 09 43 55 4e 4d 55 4c 54 49 20 1c 00 1c 00 77 43 43 ┆ CMULTI CUNMULTI wCC┆
0x2e771…2e791 48 4f 4f 53 45 20 20 1d 00 1d 00 00 43 4f 55 54 50 55 54 20 20 1e 00 1e 00 00 43 4b 46 49 4c 45 ┆HOOSE COUTPUT CKFILE┆
0x2e791…2e7b0 20 20 20 1f 00 1f 00 00 43 43 4c 45 45 52 20 20 20 20 00 20 00 00 43 00 00 00 00 00 00 1f 02 ┆ CCLEER C ┆
0x2e7b0…2e7ff (55, 0, 0) DataSector[0x4f]
[…0x50…]
0x300af…300cf (56, 0, 40) 20 0f 00 10 00 10 43 45 54 4f 41 20 20 20 20 0f 00 10 00 00 43 42 53 43 20 20 20 20 20 11 00 1a ┆ CETOA CBSC ┆
0x300cf…300ef 00 00 43 4b 45 59 46 55 4e 20 20 1b 00 1b 00 1a 43 53 45 4f 46 20 20 20 20 1b 00 1b 00 7f 43 4d ┆ CKEYFUN CSEOF CM┆
0x300ef…300fe 55 4c 54 49 20 20 20 1c 00 1c 00 09 43 55 4e ┆ULTI CUN┆
0x300fe…301fd (57, 0, 0) DataSector[0xff]
[…0xe…]
0x30fef…3103e (58, 0, 0) DataSector[0x4f]
[…0x35…]
0x32099…320b9 (59, 0, 13) 02 47 59 0b 59 47 2f 40 f7 45 63 00 03 32 01 45 3d 43 b1 32 18 43 00 33 00 0a 2e 01 44 54 32 04 ┆ GY YG/@ Ec 2 E=C 2 C 3 . DT2 ┆
0x320b9…320d9 43 00 02 03 43 1a 06 44 11 44 67 00 32 02 0e 0a 00 43 b1 00 07 06 0b 8a 47 05 1d 45 63 00 1c 0b ┆C C D Dg 2 C G Ec ┆
0x320d9…320e8 88 47 02 47 8f 0b 8f 47 0d 44 11 44 67 00 32 ┆ G G G D Dg 2┆
0x320e8…32108 (59, 0, 14) 02 0e 0a 43 b1 00 03 0a 3e 45 02 9c 47 0b 9c 47 16 44 17 44 67 00 19 17 05 01 41 43 ab 02 02 42 ┆ C >E G G D Dg AC B┆
0x32108…32128 45 23 00 19 17 08 01 0b b4 47 05 1d 44 dc 00 1c 0b b2 47 02 47 b9 0b b9 47 4e 15 00 2a 32 0d 32 ┆E# G D G G GN *2 2┆
0x32128…32137 01 2a 43 00 02 03 43 1a 45 18 00 28 43 03 02 ┆ *C C E (C ┆
0x32137…32157 (59, 0, 15) 02 42 1a 45 40 32 02 29 32 20 44 67 00 2a 43 ab 43 ab 02 02 42 44 67 00 19 17 0d 0b 05 02 42 44 ┆ B E@2 )2 Dg *C C BDg BD┆
0x32157…32177 58 43 78 00 19 17 05 07 46 44 65 44 67 00 03 44 65 00 45 23 00 0c 0a 32 01 0b 0b 48 1a 20 44 65 ┆XCx FDeDg De E# 2 H De┆
0x32177…32186 44 65 00 32 01 0a 03 47 fd 1c 43 c9 43 0b 02 ┆De 2 G C C ┆
0x32186…321a6 (59, 0, 16) 06 45 45 42 00 19 17 11 00 1c 00 0b 25 48 22 43 11 02 06 45 45 42 00 19 17 11 0d 0b 05 05 c4 44 ┆ EEB %H"C EEB D┆
0x321a6…321c6 54 32 01 0c 0a 44 67 00 0a 44 67 00 45 44 32 01 34 0b 49 48 0c 1d 43 c9 43 c9 02 05 44 0d 05 05 ┆T2 Dg Dg ED2 4 IH C C D ┆
0x321c6…321d5 c4 0b 47 48 02 48 55 0b 55 48 26 15 00 2a 43 ┆ GH HU UH& *C┆
0x321d5…321f5 (59, 0, 17) c9 02 05 44 1a 45 45 32 0a 29 44 58 44 58 02 07 46 43 c9 02 05 44 0b 05 07 46 44 65 00 45 23 00 ┆ D EE2 )DXDX FC D FDe E# ┆
0x321f5…32215 07 01 0b 7d 48 1e 1d 43 08 44 65 00 44 67 00 0a 19 17 05 02 42 32 0b 43 00 43 b1 32 18 43 00 33 ┆ åH C De Dg B2 C C 2 C 3┆
0x32215…32224 00 00 2e 01 0b 7b 48 02 48 9b 0b 9b 48 03 48 ┆ . äH H H H┆
0x32224…32244 (59, 0, 18) 0c 1c 0b 07 48 04 48 9e 48 18 0b 9e 48 20 15 00 2a 44 58 02 07 46 1a 45 4f 32 0c 29 44 54 32 01 ┆ H H H H *DX F EO2 )DT2 ┆
0x32244…32264 0c 0a 44 67 00 0a 44 67 00 45 44 32 01 34 0b c0 48 09 1d 15 00 2a 45 5b 32 04 26 0b be 48 02 48 ┆ Dg Dg ED2 4 H *EÄ2 & H H┆
0x32264…32273 cc 0b cc 48 08 15 00 2a 45 5f 32 04 26 0b c9 ┆ H *E_2 & ┆
0x32273…32293 (59, 0, 19) 48 03 48 d4 1c 0b d4 48 11 44 11 44 d8 00 32 02 0e 0a 43 b1 00 03 43 b1 44 11 00 1c 00 0b e5 48 ┆H H H D D 2 C C D H┆
0x32293…322b3 62 44 67 00 32 02 0e 0a 00 03 43 d1 43 00 02 03 43 05 03 43 43 d4 43 03 02 02 42 05 02 42 43 05 ┆bDg 2 C C C CC C B BC ┆
0x322b3…322c2 43 78 00 19 17 05 03 43 43 08 44 67 00 19 17 ┆Cx CC Dg ┆
0x322c2…322e2 (59, 0, 20) 05 02 42 43 0a 32 01 45 3d 32 01 06 32 06 43 05 43 b1 32 18 43 00 33 00 05 2e 01 43 03 02 02 42 ┆ BC 2 E=2 2 C C 2 C 3 . C B┆
0x322e2…32302 43 d4 02 02 42 08 04 43 00 02 03 43 43 d1 02 03 43 08 02 12 0b 49 49 12 1d 44 11 44 67 00 32 02 ┆C B C CC C II D Dg 2 ┆
0x32302…32311 0e 0a 43 b1 00 03 45 3e 00 1c 0b 47 49 02 49 ┆ C E> GI I┆
0x32311…32331 (59, 0, 21) 5e 0b 5e 49 11 43 b1 44 11 44 d8 00 32 02 0e 0a 00 03 45 3b 00 1c 0b 5b 49 03 49 6f 1c 0a 63 45 ┆^ ^I C D D 2 E; ÄI Io cE┆
0x32331…32351 02 6f 49 0b 6f 49 14 15 00 2a 32 0d 43 ab 02 02 42 44 da 00 19 17 0d 0b 1a 16 2a 0a 65 45 02 83 ┆ oI oI *2 C BD * eE ┆
0x32351…32360 49 0b 83 49 0a 32 00 45 67 45 21 49 8d 1e 1b ┆I I 2 EgE!I ┆
0x32360…32380 (59, 0, 22) 0b fe 40 02 6e 45 0b 81 40 02 09 18 00 32 04 26 0b c9 48 03 48 d4 1c 0b d4 48 11 44 11 44 d8 00 ┆ @ nE @ 2 & H H H D D ┆
0x32380…323a0 32 02 0e 0a 43 b1 00 03 43 b1 44 11 00 1c 00 0d 8d 49 1e 42 10 42 12 00 2a 10 42 eb 2a 12 42 4e ┆2 C C D I B B * B * BN┆
0x323a0…323af eb f3 7e 23 c5 e5 cd 33 00 e1 c1 0d c2 9c 49 ┆ ~# 3 I┆
0x323af…323cf (59, 0, 23) fb c9 00 0c 43 4c 50 4f 4e 20 20 20 20 03 00 03 00 00 43 4c 50 4f 46 46 20 20 20 03 00 03 00 1f ┆ CLPON CLPOFF ┆
0x323cf…323ef 43 43 4c 45 45 52 20 20 20 04 00 04 00 00 43 42 53 58 20 20 20 20 20 05 00 0f 00 00 43 41 54 4f ┆CCLEER CBSX CATO┆
0x323ef…323fe 45 20 20 20 20 0f 00 10 00 10 43 45 54 4f 41 ┆E CETOA┆
0x323fe…3241e (59, 0, 24) 20 20 20 20 0f 00 10 00 00 43 42 53 43 20 20 20 20 20 11 00 1a 00 00 43 4b 45 59 46 55 4e 20 20 ┆ CBSC CKEYFUN ┆
0x3241e…3243e 1b 00 1b 00 1a 43 53 45 4f 46 20 20 20 20 1b 00 1b 00 7f 43 4d 55 4c 54 49 20 20 20 1c 00 1c 00 ┆ CSEOF CMULTI ┆
0x3243e…3244d 09 43 55 4e 4d 55 4c 54 49 20 1c 00 1c 00 77 ┆ CUNMULTI w┆
0x3244d…3246d (59, 0, 25) 43 43 48 4f 4f 53 45 20 20 1d 00 1d 00 00 43 4f 55 54 50 55 54 20 20 1e 00 1e 00 00 43 4b 46 49 ┆CCHOOSE COUTPUT CKFI┆
0x3246d…3248d 4c 45 20 20 20 1f 00 1f 00 00 43 43 4c 45 45 52 20 20 20 20 00 20 00 00 43 00 00 00 00 00 00 1f ┆LE CCLEER C ┆
0x3248d…3249c 02 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3249c…324bc (59, 0, 26) 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 53 41 4d 46 ┆OPEN KTOTX;OPEN DATFIL;OPEN SAMF┆
0x324bc…324dc 49 4c 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆IL; ┆
0x324dc…324eb 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x324eb…3250b (59, 0, 27) 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┆
0x3250b…3252b 20 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 20 ┆ DAG='XXXXXX' THEN GO TO SLUT; ┆
0x3252b…3253a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3253a…3255a (59, 0, 28) 44 4f 20 49 3d 31 20 54 4f 20 31 34 3b 58 53 4b 28 49 29 3d 53 4b 28 49 29 3b 45 4e 44 3b 20 20 ┆DO I=1 TO 14;XSK(I)=SK(I);END; ┆
0x3255a…3257a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3257a…32589 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x32589…325a9 (59, 0, 29) 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 58 44 41 54 52 45 43 ┆REWRITE FILE(DATFIL)FROM(XDATREC┆
0x325a9…325c9 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆); ┆
0x325c9…325d8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x325d8…325f8 (59, 0, 30) 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)┆
0x325f8…32618 29 28 27 2a 2a 2a 20 20 20 20 20 20 20 20 20 42 41 4c 41 4e 53 52 5b 4b 4e 49 4e 47 20 20 20 20 ┆)('*** BALANSRÄKNING ┆
0x32618…32627 20 20 20 20 20 2a 2a 2a 27 29 20 20 20 20 20 ┆ ***') ┆
0x32627…32647 (59, 0, 31) 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'┆
0x32647…32667 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.')(┆
0x32667…32676 41 28 33 37 29 29 3b 20 20 20 20 20 20 20 20 ┆A(37)); ┆
0x32676…32696 (59, 0, 32) 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); ┆
0x32696…326b6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x326b6…326c5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x326c5…326e5 (59, 0, 33) 54 41 42 3a 50 55 54 20 46 49 4c 45 28 44 29 53 4b 49 50 20 45 44 49 54 28 27 56 49 4c 4b 45 4e ┆TAB:PUT FILE(D)SKIP EDIT('VILKEN┆
0x326e5…32705 20 4e 49 56 5d 3f 27 29 28 41 28 33 36 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ NIVÅ?')(A(36)); ┆
0x32705…32714 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x32714…32734 (59, 0, 34) 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 4e 49 29 3b 49 46 20 4e 49 3c 31 7c 4e 49 3e 34 20 54 ┆GET SKIP LIST(NI);IF NI<1öNI>4 T┆
0x32734…32754 48 45 4e 20 47 4f 20 54 4f 20 54 41 42 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆HEN GO TO TAB; ┆
0x32754…32763 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x32763…32783 (59, 0, 35) 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 20 20 20 20 20 20 ┆JUMP=0;RAD=5;SIDA=0;IND=1; ┆
0x32783…327a3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x327a3…327b2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x327b2…327d2 (59, 0, 36) 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┆
0x327d2…327f2 54 28 27 42 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 ┆T('BALANSRÄKNING NIVÅ ')(A)(NI)(┆
0x327f2…32801 41 28 34 29 29 20 20 20 20 20 20 20 20 20 20 ┆A(4)) ┆
0x32801…32821 (59, 0, 37) 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)┆
0x32821…32841 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 ┆) ┆
0x32841…32850 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x32850…32870 (59, 0, 38) 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┆
0x32870…32890 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 ┆
0x32890…3289f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3289f…328bf (59, 0, 39) 28 27 4b 54 4f 27 29 28 41 28 36 29 29 28 27 42 45 4e 5b 4d 4e 49 4e 47 27 29 28 41 28 33 35 29 ┆('KTO')(A(6))('BENÄMNING')(A(35)┆
0x328bf…328df 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┆
0x328df…328ee 28 31 36 29 29 20 20 20 20 20 20 20 20 20 20 ┆(16)) ┆
0x328ee…3290e (59, 0, 40) 28 27 55 54 47 2e 20 53 41 4c 44 4f 27 29 28 41 29 53 4b 49 50 3b 20 20 20 20 20 20 20 20 20 20 ┆('UTG. SALDO')(A)SKIP; ┆
0x3290e…3292e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3292e…3293d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3293d…32a3c (60, 0, 0) DataSector[0xff]
[…0x7…]
0x33135…33155 (60, 0, 8) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4f 50 45 4e 20 4b 54 4f 54 58 3b 4f 50 45 4e 20 44 41 ┆ OPEN KTOTX;OPEN DA┆
0x33155…33175 54 46 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 ┆TFIL;OPEN SAMFIL; ┆
0x33175…33195 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 41 ┆ REA┆
0x33195…331b5 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 20 44 41 ┆D FILE(DATFIL)INTO(DATREC);IF DA┆
0x331b5…331d5 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 20 20 20 20 ┆G='XXXXXX' THEN GO TO SLUT; ┆
0x331d5…331f5 20 20 20 20 20 20 20 20 20 20 20 20 44 4f 20 49 3d 31 20 54 4f 20 31 34 3b 58 53 4b 28 49 29 3d ┆ DO I=1 TO 14;XSK(I)=┆
0x331f5…33215 53 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 20 ┆SK(I);END; ┆
0x33215…33234 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 57 52 ┆ REWR┆
0x33234…33254 (60, 0, 9) 49 54 45 20 46 49 4c 45 28 44 41 54 46 49 4c 29 46 52 4f 4d 28 58 44 41 54 52 45 43 29 3b 20 20 ┆ITE FILE(DATFIL)FROM(XDATREC); ┆
0x33254…33274 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x33274…33294 20 20 20 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 ┆ PUT FILE(D) SKIP EDIT┆
0x33294…332b4 28 27 20 27 29 28 41 28 33 37 29 29 28 27 2a 2a 2a 20 20 20 20 20 20 20 20 20 42 41 4c 41 4e 53 ┆(' ')(A(37))('*** BALANS┆
0x332b4…332d4 52 5b 4b 4e 49 4e 47 20 20 20 20 20 20 20 20 20 2a 2a 2a 27 29 20 20 20 20 20 28 41 28 37 34 29 ┆RÄKNING ***') (A(74)┆
0x332d4…332f4 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 29 28 41 28 33 37 ┆)('STÄLL IN PERFORERINGEN')(A(37┆
0x332f4…33314 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 41 28 33 37 29 29 ┆))('TRYCK SEDAN RETURN.')(A(37))┆
0x33314…33333 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 20 20 20 20 20 ┆; GET SKIP LIST(S); ┆
0x33333…33353 (60, 0, 10) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x33353…33373 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 41 42 3a 50 55 54 ┆ TAB:PUT┆
0x33373…33393 20 46 49 4c 45 28 44 29 53 4b 49 50 20 45 44 49 54 28 27 56 49 4c 4b 45 4e 20 4e 49 56 5d 3f 27 ┆ FILE(D)SKIP EDIT('VILKEN NIVÅ?'┆
0x33393…333b3 29 28 41 28 33 36 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆)(A(36)); ┆
0x333b3…333d3 20 20 20 20 20 20 20 20 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 4e 49 29 3b 49 46 20 4e 49 3c ┆ GET SKIP LIST(NI);IF NI<┆
0x333d3…333f3 31 7c 4e 49 3e 34 20 54 48 45 4e 20 47 4f 20 54 4f 20 54 41 42 3b 20 20 20 20 20 20 20 20 20 20 ┆1öNI>4 THEN GO TO TAB; ┆
0x333f3…33413 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4a 55 4d 50 3d 30 3b 52 41 ┆ JUMP=0;RA┆
0x33413…33432 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 20 ┆D=5;SIDA=0;IND=1; ┆
0x33432…33452 (60, 0, 11) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x33452…33472 20 20 20 20 20 20 20 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 ┆ RUB:SIDA=SIDA+1;PUT SKIP(┆
0x33472…33492 52 41 44 29 45 44 49 54 28 27 42 41 4c 41 4e 53 52 5b 4b 4e 49 4e 47 20 4e 49 56 5d 20 27 29 28 ┆RAD)EDIT('BALANSRÄKNING NIVÅ ')(┆
0x33492…334b2 41 29 28 4e 49 29 28 41 28 34 29 29 20 20 20 20 20 20 20 20 20 20 28 27 41 56 53 45 45 4e 44 45 ┆A)(NI)(A(4)) ('AVSEENDE┆
0x334b2…334d2 20 4d 5d 4e 41 44 20 27 29 28 41 29 28 4d 4f 4e 29 28 41 28 35 29 29 20 20 20 20 20 20 20 20 20 ┆ MÅNAD ')(A)(MON)(A(5)) ┆
0x334d2…334f2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x334f2…33512 20 20 20 20 20 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 ┆ (' DATUM:')(A)(DAG)(A(10┆
0x33512…33531 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 45 ┆))('SIDA:')(A)(SIDA)(A)SKIP(2)E┆
0x33531…33551 (60, 0, 12) 44 49 54 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 27 4b 54 4f 27 29 28 41 28 36 ┆DIT ('KTO')(A(6┆
0x33551…33571 29 29 28 27 42 45 4e 5b 4d 4e 49 4e 47 27 29 28 41 28 33 35 29 29 28 27 4d 5d 4e 20 44 45 42 27 ┆))('BENÄMNING')(A(35))('MÅN DEB'┆
0x33571…33591 29 28 41 28 31 36 29 29 28 27 4d 5d 4e 20 4b 52 45 27 29 28 41 28 31 36 29 29 20 20 20 20 20 20 ┆)(A(16))('MÅN KRE')(A(16)) ┆
0x33591…335b1 20 20 20 20 28 27 55 54 47 2e 20 53 41 4c 44 4f 27 29 28 41 29 53 4b 49 50 3b 20 20 20 20 20 20 ┆ ('UTG. SALDO')(A)SKIP; ┆
0x335b1…335d1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x335d1…335f1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 17 08 02 43 18 02 03 43 43 fd 02 03 43 ┆ C CC C┆
0x335f1…33611 08 05 13 43 1b 02 02 42 44 00 02 02 42 08 05 13 0b 98 4e 05 1d 46 94 00 1c 0b 96 4e 02 4e 9d 0b ┆ C BD B N F N N ┆
0x33611…33630 9d 4e 04 46 68 00 1c 0a 94 46 02 a1 4e 0b a1 4e 0a 44 41 46 62 00 19 17 05 01 41 00 45 00 00 ┆ N Fh F N N DAFb A E ┆
0x33630…33650 (60, 0, 13) 0b ab 4e 0c 43 da 02 02 42 46 6a 00 19 17 08 01 0b b9 4e 05 1d 45 c2 00 1c 0b b7 4e 02 4e be 0b ┆ N C BFj N E N N ┆
0x33650…33670 be 4e 19 43 fd 02 03 43 43 18 02 03 43 08 02 44 00 02 02 42 43 1b 02 02 42 08 05 12 0b d9 4e 0b ┆ N C CC C D BC B N ┆
0x33670…33690 1d 43 f8 44 8d 00 19 17 05 01 41 0b d7 4e 02 4e e4 0b e4 4e 19 44 3e 02 01 41 44 8d 00 19 17 08 ┆ C D A N N N D> AD ┆
0x33690…336b0 02 43 f8 02 01 41 44 8d 00 19 17 08 02 12 0b ff 4e 60 1d 15 00 2a 32 0d 32 01 2a 46 96 32 0f 46 ┆ C AD N` *2 2 *F 2 F┆
0x336b0…336d0 a5 00 28 44 00 02 02 42 1a 46 a7 32 03 29 32 20 46 3b 00 2a 44 13 02 07 46 1a 44 6a 32 14 29 44 ┆ (D B F 2 )2 F; *D F Dj2 )D┆
0x336d0…336f0 1a 02 07 46 1a 44 6a 32 14 29 44 13 02 07 46 44 1a 02 07 46 0d 0b 1a 44 6a 32 14 29 32 0d 32 01 ┆ F Dj2 )D FD F Dj2 )2 2 ┆
0x336f0…33710 2a 43 da 43 da 02 02 42 46 1d 00 19 17 0d 0b 05 02 42 0b fd 4e 02 4f 5f 0b 5f 4f 19 43 fd 02 03 ┆*C C BF B N O_ _O C ┆
0x33710…3372f 43 46 aa 00 19 17 08 02 44 3d 02 01 41 44 8d 00 19 17 08 02 12 0b 7a 4f 03 1d 43 2f 00 00 00 ┆CF D= AD zO C/ ┆
0x3372f…3374f (60, 0, 14) 0b 7d 4f 3b 43 fd 02 03 43 05 03 43 43 32 44 00 02 02 42 05 02 42 43 34 43 fa 02 03 43 05 03 43 ┆ åO;C C CC2D B BC4C C C┆
0x3374f…3376f 43 37 43 75 02 02 42 05 02 42 43 39 32 01 44 91 32 01 06 43 f9 02 01 41 44 8d 00 19 17 08 02 0b ┆C7Cu B BC92 D 2 C AD ┆
0x3376f…3378f ba 4f 05 1d 46 ac 00 1c 0b b8 4f 02 4f bf 0b bf 4f 3e 40 f7 46 ac 00 03 32 0b 43 2f 43 e0 32 18 ┆ O F O O O>@ F 2 C/C 2 ┆
0x3378f…337af 43 2f 33 00 00 2e 01 43 3a 44 13 02 07 46 05 06 45 43 40 44 1a 02 07 46 05 06 45 43 46 32 01 44 ┆C/3 . C:D F EC@D F ECF2 D┆
0x337af…337cf 91 32 01 06 43 e0 32 18 43 2f 2d 01 46 ae 00 1c 0a ac 46 02 fd 4f 0b fd 4f 38 43 e0 43 a7 00 03 ┆ 2 C 2 C/- F F O O8C C ┆
0x337cf…337ef 32 00 43 e0 53 5f 1e 43 3a 44 13 02 07 46 05 06 45 43 40 44 1a 02 07 46 05 06 45 43 46 32 01 44 ┆2 C S_ C:D F EC@D F ECF2 D┆
0x337ef…3380f 91 32 01 06 43 e0 32 18 43 2f 2c 01 43 e0 2f 43 e0 22 0b 78 4f 02 50 35 0a ae 46 02 35 50 0b 35 ┆ 2 C 2 C/, C /C " xO P5 F 5P 5┆
0x3380f…3382e 50 1c 44 21 44 21 02 07 46 44 13 02 07 46 0b 05 07 46 44 28 44 28 02 07 46 44 1a 02 07 46 00 ┆P D!D! FD F FD(D( FD F ┆
0x3382e…3387d (61, 0, 0) DataSector[0x4f]
[…0x2b…]
0x345c2…345e2 (62, 0, 3) 52 45 52 49 4e 47 45 4e 54 52 59 43 4b 20 53 45 44 00 0c da 44 0a 41 4e 20 52 45 54 55 52 4e 2e ┆RERINGENTRYCK SED D AN RETURN.┆
0x345e2…34602 0c e6 44 d8 56 49 4c 4b 45 4e 20 54 59 50 20 41 56 20 4b 5c 52 4e 49 4e 47 3f 22 31 22 3d 45 4e ┆ D VILKEN TYP AV KÖRNING?"1"=EN┆
0x34602…34611 44 41 53 54 20 4c 49 53 54 41 2c 4d 45 44 20 ┆DAST LISTA,MED ┆
0x34611…34631 (62, 0, 4) 54 4f 54 41 4c 45 52 2f 4b 4f 4e 54 4f 22 32 22 3d 20 2d 2d 2d 2d 22 2d 2d 2d 2d 20 20 2c 4d 45 ┆TOTALER/KONTO"2"= ----"---- ,ME┆
0x34631…34651 4e 20 4d 45 44 20 44 45 4c 53 55 4d 4d 4f 52 20 20 20 20 20 20 20 50 45 52 20 41 56 44 45 4c 4e ┆N MED DELSUMMOR PER AVDELN┆
0x34651…34660 49 4e 47 22 33 22 3d 4b 4f 4d 42 49 4e 45 52 ┆ING"3"=KOMBINER┆
0x34660…34680 (62, 0, 5) 41 44 20 4c 49 53 54 41 20 4f 43 48 20 52 45 47 49 53 54 52 45 52 49 4e 47 20 20 20 20 46 5c 52 ┆AD LISTA OCH REGISTRERING FÖR┆
0x34680…346a0 20 52 45 53 55 4c 54 41 54 2d 20 4f 43 48 20 42 41 4c 41 4e 53 52 5b 4b 4e 49 4e 47 31 32 33 33 ┆ RESULTAT- OCH BALANSRÄKNING1233┆
0x346a0…346af 0d 00 2a 00 2a 2a 2a 20 55 54 53 4b 52 49 46 ┆ * *** UTSKRIF┆
0x346af…346cf (62, 0, 6) 54 20 50 5d 47 5d 52 20 2a 2a 2a 45 00 31 32 0c c0 45 02 05 00 0c c4 45 0a 48 55 56 55 44 42 4f ┆T PÅGÅR ***E 12 E E HUVUDBO┆
0x346cf…346ef 4b 20 46 00 0c ce 45 96 5c 52 20 4d 5d 4e 41 44 20 04 00 55 50 50 44 45 4c 41 44 20 50 45 52 20 ┆K F E ÖR MÅNAD UPPDELAD PER ┆
0x346ef…346fe 41 56 44 2e 4d 45 44 20 52 45 47 2e 20 46 5c ┆AVD.MED REG. FÖ┆
0x346fe…3471e (62, 0, 7) 52 20 42 41 4c 41 4e 53 2d 20 4f 43 48 20 52 45 53 55 4c 54 41 54 2e 20 20 20 20 44 41 54 55 4d ┆R BALANS- OCH RESULTAT. DATUM┆
0x3471e…3473e 3a 0a 00 53 49 44 41 3a 02 00 4b 4f 4e 54 4f 41 56 44 2e 06 00 42 4f 4b 46 2e 44 41 54 54 59 50 ┆: SIDA: KONTOAVD. BOKF.DATTYP┆
0x3473e…3474d 56 45 52 2e 4e 52 17 00 44 45 42 45 54 11 00 ┆VER.NR DEBET ┆
0x3474d…3476d (62, 0, 8) 4b 52 45 44 49 54 0f 00 4d 5d 4e 2e 53 41 4c 44 4f 15 00 55 54 47 2e 53 41 4c 44 4f 2d 00 03 00 ┆KREDIT MÅN.SALDO UTG.SALDO- ┆
0x3476d…3478d 0c 6a 46 20 0c 00 09 00 5a 5a 5a 39 20 20 20 07 00 5a 5a 5a 39 39 2e 39 39 5a 5a 5a 5a 5a 5a 39 ┆ jF ZZZ9 ZZZ99.99ZZZZZZ9┆
0x3478d…3479c 4b 12 00 44 0c 8e 46 02 b7 0b 0c 96 46 16 20 ┆K D F F ┆
0x3479c…347bc (62, 0, 9) 20 20 20 20 54 4f 54 41 4c 54 20 41 56 44 10 00 5a 5a 39 ba 04 0c b2 46 02 b8 0b 0c ba 46 16 2a ┆ TOTALT AVD ZZ9 F F *┆
0x347bc…347dc 2a 2a 20 4b 4f 4e 54 4f 54 20 53 41 4b 4e 41 53 20 49 20 4b 4f 00 0c d0 46 0c 4e 54 4f 50 4c 41 ┆** KONTOT SAKNAS I KO F NTOPLA┆
0x347dc…347eb 4e 45 4e 20 20 20 0c de 46 02 23 00 0c e4 46 ┆NEN F # F┆
0x347eb…3480b (62, 0, 10) 1c 2a 2a 2a 2a 20 54 4f 54 41 4c 54 20 55 4e 44 45 52 20 4d 5d 4e 41 44 45 4e 3a 29 00 0c 02 47 ┆ **** TOTALT UNDER MÅNADEN:) G┆
0x3480b…3482b 07 42 4f 4b 52 55 54 0d 0b 09 47 38 32 00 43 00 52 c7 1e 43 85 32 09 43 9e 32 09 06 43 8e 43 a7 ┆ BOKRUT G82 C R C 2 C 2 C C ┆
0x3482b…3483a 00 19 17 05 02 42 43 c1 22 43 a9 22 43 00 22 ┆ BC "C "C "┆
0x3483a…3485a (62, 0, 11) 43 e0 22 43 a9 32 19 43 6c 2b 01 43 6c 32 06 44 85 32 06 09 02 0b 43 47 05 1d 46 e2 00 1c 0b 41 ┆C "C 2 Cl+ Cl2 D 2 CG F A┆
0x3485a…3487a 47 02 47 48 0b 48 47 10 44 8b 44 8d 00 03 44 8b 00 44 8f 00 0c 0a 32 01 0b 5c 47 27 20 44 8b 44 ┆G GH HG D D D D 2 ÖG' D D┆
0x3487a…34889 8b 00 32 01 0a 03 47 4e 1c 43 8f 44 8b 00 32 ┆ 2 GN C D 2┆
0x34889…348a9 (62, 0, 12) 01 0e 0a 32 01 43 76 44 8b 00 32 01 0e 0a 32 01 06 47 5d 1c 0b 58 47 04 47 83 47 69 0b 83 47 24 ┆ 2 CvD 2 2 GÅ XG G Gi G$┆
0x348a9…348c9 15 00 27 32 0d 32 01 2a 44 91 32 01 44 92 00 28 44 94 32 25 44 b9 00 28 44 bb 32 16 44 92 00 28 ┆ '2 2 *D 2 D (D 2%D (D 2 D (┆
0x348c9…348d8 44 d1 32 13 00 4b 4f 00 0b a7 47 0a 44 92 00 ┆D 2 KO G D ┆
0x348d8…348f8 (62, 0, 13) 28 23 43 d9 32 01 25 0a e4 44 02 b1 47 0b b1 47 3c 15 00 27 32 0d 32 01 2a 44 e6 32 16 44 92 00 ┆(#C 2 % D G G< '2 2 *D 2 D ┆
0x348f8…34918 28 44 fc 32 22 44 92 00 28 45 1e 32 36 44 b9 00 28 45 54 32 48 44 b9 00 28 23 43 d9 32 01 25 43 ┆(D 2"D (E 26D (ET2HD (#C 2 %C┆
0x34918…34927 d9 32 01 45 9c 32 03 34 43 a7 00 07 02 0b ef ┆ 2 E 2 4C ┆
0x34927…34947 (62, 0, 14) 47 05 1d 44 e4 00 1c 0b ed 47 02 47 f4 0b f4 47 12 15 00 27 32 0d 32 01 2a 43 d9 32 01 45 9f 32 ┆G D G G G '2 2 *C 2 E 2┆
0x34947…34967 01 09 02 0b 08 48 11 1d 43 8f 45 a0 00 32 01 0e 0a 32 01 44 91 32 01 06 0b 06 48 02 48 19 0b 19 ┆ H C E 2 2 D 2 H H ┆
0x34967…34976 48 25 43 a9 32 19 43 85 2d 01 15 00 27 44 91 ┆H%C 2 C - 'D ┆
0x34976…34996 (62, 0, 15) 32 01 45 a2 00 28 45 a4 32 16 45 ba 00 28 43 d9 32 01 45 bc 32 01 09 02 0b 40 48 15 1d 44 3d 43 ┆2 E (E 2 E (C 2 E 2 @H D=C┆
0x34996…349b6 a7 00 19 17 05 01 41 44 3e 43 a7 00 19 17 05 01 41 0b 3e 48 02 48 55 0b 55 48 0a 43 d9 32 01 45 ┆ AD>C A >H HU UH C 2 E┆
0x349b6…349c5 bd 32 01 09 02 0b 61 48 0d 1d 44 3d 43 a7 00 ┆ 2 aH D=C ┆
0x349c5…349e5 (62, 0, 16) 19 17 05 01 41 44 3e 00 4b 4f 00 0b 6e 48 08 44 8d 00 19 17 05 01 41 0b 5f 48 02 48 76 0b 76 48 ┆ AD> KO nH D A _H Hv vH┆
0x349e5…34a05 0a 43 d9 32 01 45 9f 32 01 09 02 0b 82 48 15 1d 44 3d 44 8d 00 19 17 05 01 41 44 3e 43 a7 00 19 ┆ C 2 E 2 H D=D AD>C ┆
0x34a05…34a14 17 05 01 41 0b 80 48 02 48 97 0b 97 48 16 43 ┆ A H H H C┆
0x34a14…34a34 (62, 0, 17) f9 44 8d 00 19 17 05 01 41 44 3d 02 01 41 44 8d 00 19 17 08 02 0b af 48 33 1d 43 37 43 75 02 02 ┆ D AD= AD H3 C7Cu ┆
0x34a34…34a54 42 05 02 42 43 39 32 01 44 91 32 01 06 40 f7 45 be 00 03 32 03 43 37 43 e0 32 18 43 2f 33 00 08 ┆B BC92 D 2 @ E 2 C7C 2 C/3 ┆
0x34a54…34a63 2e 01 43 f9 43 a7 00 19 17 05 01 41 0a be 45 ┆. C C A E┆
0x34a63…34a83 (62, 0, 18) 02 e2 48 0b ad 48 02 48 e2 0b e2 48 5c 44 41 43 a7 00 19 17 05 01 41 43 da 45 c0 00 19 17 05 02 ┆ H H H HÖDAC AC E ┆
0x34a83…34aa3 42 43 dc 43 a7 00 19 17 05 03 43 43 df 44 8d 00 19 17 05 01 41 44 05 43 a7 00 19 17 05 07 46 44 ┆BC C CC D AD C FD┆
0x34aa3…34ab2 0c 43 a7 00 19 17 05 07 46 44 13 43 a7 00 19 ┆ C FD C ┆
0x34ab2…34ad2 (62, 0, 19) 17 05 07 46 44 1a 43 a7 00 19 17 05 07 46 44 21 43 a7 00 19 17 05 07 46 44 28 00 4f 00 0b 3e 49 ┆ FD C FD!C FD( O >I┆
0x34ad2…34af2 6c 43 a7 00 19 17 05 07 46 44 2f 43 a7 00 19 17 05 07 46 44 36 43 a7 00 19 17 05 07 46 44 7e 43 ┆lC FD/C FD6C FD~C┆
0x34af2…34b01 a7 00 19 17 05 07 46 43 f8 43 a7 00 19 17 05 ┆ FC C ┆
0x34b01…34b21 (62, 0, 20) 01 41 44 3f 43 a7 00 03 40 f9 47 00 00 03 43 00 32 17 43 18 2b 01 43 fa 43 1d 02 03 43 05 03 43 ┆ AD?C @ G C 2 C + C C C C┆
0x34b21…34b41 44 00 43 1b 02 02 42 05 02 42 43 fd 43 18 02 03 43 05 03 43 44 02 43 20 02 03 43 05 03 43 0a c2 ┆D C B BC C C CD C C C ┆
0x34b41…34b50 45 02 aa 49 0b aa 49 36 43 dc 43 dc 02 03 43 ┆E I I6C C C┆
0x34b50…34b70 (62, 0, 21) 44 8d 00 19 17 0b 05 03 43 15 00 2a 32 0d 43 da 02 02 42 1a 16 2a 45 c4 32 13 26 43 72 32 03 45 ┆D C *2 C B *E 2 &Cr2 E┆
0x34b70…34b90 d7 00 28 44 3e 02 01 41 44 8d 00 19 17 08 02 0b e2 49 09 1d 15 00 2a 45 d9 32 11 26 0b e0 49 02 ┆ (D> AD I *E 2 & I ┆
0x34b90…34b9f 49 eb 0b eb 49 0c 44 3d 02 01 41 44 8d 00 19 ┆I I D= AD ┆
0x34b9f…34bbf (62, 0, 22) 17 08 02 0b f9 49 09 1d 15 00 2a 45 ea 32 22 26 0b f7 49 02 4a 02 0b 02 4a 12 15 00 2a 46 0c 32 ┆ I *E 2"& I J J *F 2┆
0x34bbf…34bdf 0a 26 43 6c 32 06 46 16 00 28 46 18 00 4f 00 0b 14 4a 70 32 05 26 43 dc 02 03 43 1a 26 32 0d 46 ┆ &Cl2 F (F O Jp2 &C C &2 F┆
0x34bdf…34bee 1d 00 2a 46 1f 32 05 46 16 00 28 46 24 32 04 ┆ *F 2 F (F$2 ┆
0x34bee…34c0e (62, 0, 23) 46 28 00 28 46 2a 32 08 46 16 00 28 46 32 32 03 45 c0 00 28 46 35 32 06 46 3b 00 28 46 3d 32 05 ┆F( (F*2 F (F22 E (F52 F; (F=2 ┆
0x34c0e…34c2e 46 42 00 28 46 44 32 06 46 4a 00 28 46 4c 32 09 46 55 00 28 46 57 32 09 26 32 0d 32 01 2a 43 da ┆FB (FD2 FJ (FL2 FU (FW2 &2 2 *C ┆
0x34c2e…34c3d 46 60 00 19 17 05 02 42 44 41 02 01 41 43 a7 ┆F` BDA AC ┆
0x34c3d…34c5d (62, 0, 24) 00 19 17 08 02 0b 86 4a 05 1d 46 64 00 1c 0b 84 4a 02 4a 8b 0b 8b 4a 0c 44 41 02 01 41 44 8d 00 ┆ J Fd J J J DA AD ┆
0x34c5d…34c7d 19 17 08 02 0b 99 4a 05 1d 46 68 00 1c 0b 97 4a 02 4a 9e 0b 9e 4a 0c 44 41 02 01 41 46 1d 00 19 ┆ J Fh J J J DA AF ┆
0x34c7d…34c8c 17 08 02 0b ac 4a 05 1d 46 8c 00 1c 0b aa 4a ┆ J F J┆
0x34c8c…34cac (62, 0, 25) 02 4a b1 0b b1 4a 0c 44 41 02 01 41 46 62 00 19 17 08 02 0b bf 4a 05 1d 46 94 00 1c 0b bd 4a 02 ┆ J J DA AFb J F J ┆
0x34cac…34ccc 4a c4 0b c4 4a 0c 44 41 02 01 41 45 d7 00 19 17 08 02 0b d2 4a 05 1d 46 b0 00 1c 0b d0 4a 01 4a ┆J J DA AE J F J J┆
0x34ccc…34cdb 00 0b d1 4a 01 d7 0a 64 46 02 d7 4a 0b d7 4a ┆ J dF J J┆
0x34cdb…34cfb (62, 0, 26) 2b 43 e0 44 3f 00 03 44 7e 43 a7 00 19 17 05 07 46 40 f7 46 68 00 03 32 03 43 18 43 e0 32 18 43 ┆+C D? D~C F@ Fh 2 C C 2 C┆
0x34cfb…34d1b 2f 33 00 00 2e 01 44 3f 43 e0 00 03 0a 66 46 02 02 4b 0b 02 4b 0c 43 2f 02 03 43 43 18 02 03 43 ┆/3 . D?C fF K K C/ CC C┆
0x34d1b…34d2a 08 05 0b 10 4b 05 1d 46 68 00 1c 0b 0e 4b 02 ┆ K Fh K ┆
0x34d2a…34d4a (62, 0, 27) 4b 15 0b 15 4b 17 43 37 02 02 42 43 75 02 02 42 08 01 43 39 32 01 44 91 32 01 09 02 12 0b 2e 4b ┆K K C7 BCu B C92 D 2 .K┆
0x34d4a…34d6a 18 1d 44 7e 44 7e 02 07 46 43 3a 02 06 45 0b 43 40 02 06 45 0d 0b 05 07 46 0b 2c 4b 02 4b 46 0b ┆ D~D~ FC: E C@ E F ,K KF ┆
0x34d6a…34d79 46 4b 12 40 f9 46 68 00 03 43 e0 32 18 43 2f ┆FK @ Fh C 2 C/┆
0x34d79…34d99 (62, 0, 28) 2b 01 46 66 00 1c 0a 68 46 02 58 4b 0b 58 4b 16 44 41 44 8d 00 19 17 05 01 41 43 da 02 02 42 46 ┆+ Ff hF XK XK DAD AC BF┆
0x34d99…34db9 6a 00 19 17 08 01 0b 70 4b 05 1d 45 c2 00 1c 0b 6e 4b 02 4b 75 0b 75 4b 19 43 df 02 01 41 44 8d ┆j pK E nK Ku uK C AD ┆
0x34db9…34dc8 00 19 17 08 02 43 18 02 03 43 43 fd 02 03 43 ┆ C CC C┆
0x34dc8…34de8 (62, 0, 29) 08 05 13 00 0b 8e 4b 00 0b 90 4b 13 1d 15 00 2a 32 0d 32 01 2a 43 18 02 03 43 1a 46 6c 00 28 0b ┆ K K *2 2 *C C Fl ( ┆
0x34de8…34e08 8e 4b 02 4b a6 0b a6 4b 10 15 00 2a 32 0d 32 01 2a 44 91 32 01 46 6c 00 28 0b a3 4b 03 4b b6 1c ┆ K K K *2 2 *D 2 Fl ( K K ┆
0x34e08…34e17 0b b6 4b 37 43 da 43 da 02 02 42 44 8d 00 19 ┆ K7C C BD ┆
0x34e17…34e37 (62, 0, 30) 17 0d 0b 05 02 42 43 df 02 01 41 44 8d 00 19 17 08 02 44 00 02 02 42 43 1b 02 02 42 08 05 13 43 ┆ BC AD D BC B C┆
0x34e37…34e57 fd 02 03 43 43 18 02 03 43 08 05 13 0b ef 4b 0f 1d 15 00 2a 43 1b 02 02 42 1a 46 6e 32 07 29 0b ┆ CC C K *C B Fn2 ) ┆
0x34e57…34e66 ed 4b 02 4c 01 0b 01 4c 0b 15 00 2a 44 91 32 ┆ K L L *D 2┆
0x34e66…34e86 (62, 0, 31) 01 46 75 00 28 0b fe 4b 03 4c 0c 1c 0b 0c 4c 26 43 df 02 01 41 44 8d 00 19 17 08 02 43 20 02 03 ┆ Fu ( K L L&C AD C ┆
0x34e86…34ea6 43 44 02 02 03 43 08 05 13 43 fd 02 03 43 43 18 02 03 43 08 05 13 0b 34 4c 15 1d 15 00 2a 43 20 ┆CD C C CC C 4L *C ┆
0x34ea6…34eb5 02 03 43 1a 46 77 32 08 29 32 20 45 d7 00 2a ┆ C Fw2 )2 E *┆
0x34eb5…34ed5 (62, 0, 32) 0b 32 4c 02 4c 4c 0b 4c 4c 0b 15 00 2a 44 91 32 01 46 6a 00 28 00 0b 57 4c 00 0b 49 4c 03 4c 57 ┆ 2L LL LL *D 2 Fj ( WL IL LW┆
0x34ed5…34ef5 1c 0b 57 4c 26 15 00 2a 43 23 32 01 46 1d 00 28 43 24 02 04 44 1a 46 7f 32 07 29 32 20 45 d7 00 ┆ WL& *C#2 F (C$ D F 2 )2 E ┆
0x34ef5…34f04 2a 43 2e 32 01 46 86 32 01 09 02 0b 7f 4c 0c ┆*C.2 F 2 L ┆
0x34f04…34f24 (62, 0, 33) 1d 15 00 2a 44 91 32 01 46 87 00 28 0b 7d 4c 02 4c 8b 0b 8b 4c 4a 15 00 2a 43 28 02 06 45 1a 44 ┆ *D 2 F ( åL L LJ *C( E D┆
0x34f24…34f44 42 32 14 29 43 df 43 a7 00 19 17 05 01 41 44 02 43 20 02 03 43 05 03 43 43 fa 43 1d 02 03 43 05 ┆B2 )C C AD C C CC C C ┆
0x34f44…34f53 03 43 44 00 43 1b 02 02 42 05 02 42 43 fd 43 ┆ CD C B BC C┆
0x34f53…34f73 (62, 0, 34) 18 02 03 43 05 03 43 43 2e 32 01 46 89 32 01 09 02 0b d7 4c 11 1d 44 05 44 05 02 07 46 43 28 02 ┆ C CC.2 F 2 L D D FC( ┆
0x34f73…34f93 06 45 0b 05 07 46 0b d5 4c 02 4c eb 0b eb 4c 10 44 0c 44 0c 02 07 46 43 28 02 06 45 0b 05 07 46 ┆ E F L L L D D FC( E F┆
0x34f93…34fa2 0b e8 4c 03 4c fb 1c 0b fb 4c 0e 40 f9 46 e0 ┆ L L L @ F ┆
0x34fa2…34fc2 (62, 0, 35) 00 03 43 00 32 17 43 18 2b 01 0a 8a 46 02 09 4d 0b 09 4d 12 43 df 02 01 41 44 8d 00 0c 19 17 08 ┆ C 2 C + F M M C AD ┆
0x34fc2…34fe2 02 43 18 02 03 43 00 00 0b 1b 4d 22 43 fd 02 03 43 08 05 13 43 1b 02 02 42 44 00 02 02 42 08 05 ┆ C C M"C C C BD B ┆
0x34fe2…34ff1 13 43 1d 02 03 43 43 fa 02 03 43 08 05 13 0b ┆ C CC C ┆
0x34ff1…35011 (62, 0, 36) 3f 4d 05 1d 46 8c 00 1c 0b 3d 4d 02 4d 44 0b 44 4d 04 46 68 00 1c 0a 8c 46 02 48 4d 0b 48 4d 16 ┆?M F =M MD DM Fh F HM HM ┆
0x35011…35031 44 41 46 1d 00 19 17 05 01 41 43 da 02 02 42 46 6a 00 19 17 08 01 0b 60 4d 05 1d 45 c2 00 1c 0b ┆DAF AC BFj `M E ┆
0x35031…35040 5e 4d 02 4d 65 0b 65 4d 19 43 fd 02 03 43 46 ┆^M Me eM C CF┆
0x35040…35060 (62, 0, 37) 8e 00 19 17 08 04 44 3d 02 01 41 44 8d 00 19 17 08 02 12 0b 80 4d 3e 1d 43 2f 43 fd 02 03 43 05 ┆ D= AD M> C/C C ┆
0x35060…35080 03 43 43 32 44 00 02 02 42 05 02 42 43 34 43 fa 02 03 43 05 03 43 43 37 43 75 02 02 42 05 02 42 ┆ CC2D B BC4C C CC7Cu B B┆
0x35080…3508f 43 39 32 01 44 91 32 01 06 43 f9 02 01 41 44 ┆C92 D 2 C AD┆
0x3508f…350af (62, 0, 38) 8d 00 19 17 08 02 0b c0 4d 05 1d 46 90 00 1c 0b be 4d 02 4d c5 0b c5 4d 1f 40 f7 46 90 00 03 32 ┆ M F M M M @ F 2┆
0x350af…350cf 0b 43 2f 43 e0 32 18 43 2f 33 00 00 2e 01 43 3a 44 05 02 07 46 05 06 45 00 00 0b e4 4d 1f 43 40 ┆ C/C 2 C/3 . C:D F E M C@┆
0x350cf…350de 44 0c 02 07 46 05 06 45 43 46 32 01 44 91 32 ┆D F ECF2 D 2┆
0x350de…350fe (62, 0, 39) 01 06 43 e0 32 18 43 2f 2d 01 46 92 00 1c 0a 90 46 02 03 4e 0b 03 4e 38 43 e0 43 a7 00 03 32 00 ┆ C 2 C/- F F N N8C C 2 ┆
0x350fe…3511e 43 e0 53 5f 1e 43 3a 44 05 02 07 46 05 06 45 43 40 44 0c 02 07 46 05 06 45 43 46 32 01 44 91 32 ┆C S_ C:D F EC@D F ECF2 D 2┆
0x3511e…3512d 01 06 43 e0 32 18 43 2f 2c 01 43 e0 2f 43 e0 ┆ C 2 C/, C /C ┆
0x3512d…3514d (62, 0, 40) 22 0b 7e 4d 02 4e 3b 0a 92 46 02 3b 4e 0b 3b 4e 5b 44 13 44 13 02 07 46 44 05 02 07 46 0b 05 07 ┆" ~M N; F ;N ;NÄD D FD F ┆
0x3514d…3516d 46 44 1a 44 1a 02 07 46 44 0c 02 07 46 0b 05 07 46 44 05 43 a7 00 19 17 05 07 46 44 0c 43 a7 00 ┆FD D FD F FD C FD C ┆
0x3516d…3517c 19 17 05 07 46 43 df 02 01 41 44 8d 00 0c 19 ┆ FC AD ┆
0x3517c…3519c (63, 0, 0) 0c 00 43 10 00 00 56 45 52 46 49 4c 20 20 00 00 00 00 00 00 0c 9e 43 1b 58 58 58 58 58 58 20 20 ┆ C VERFIL C XXXXXX ┆
0x3519c…351bc 20 00 00 00 00 44 41 54 46 49 4c 20 20 00 00 00 00 00 00 0c c1 43 10 00 00 4b 54 4f 54 58 20 20 ┆ DATFIL C KTOTX ┆
0x351bc…351cb 20 00 00 00 00 00 00 0c e0 43 10 00 00 53 41 ┆ C SA┆
0x351cb…351eb (63, 0, 1) 4d 46 49 4c 20 20 00 00 00 00 00 00 0c 42 44 14 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 39 56 ┆MFIL BD --------------9V┆
0x351eb…3520b 2e 39 39 00 0c 56 44 14 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 39 56 2e 39 39 2a 2a 2a 00 0c 6a 44 14 ┆.99 VD -----------9V.99*** jD ┆
0x3520b…3521a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 39 56 ┆-------------9V┆
0x3521a…3523a (63, 0, 2) 2e 39 39 2a 00 0c 85 44 06 58 58 58 58 58 58 0c 8d 44 4d 01 00 0e 00 20 25 00 2a 2a 2a 20 20 20 ┆.99* D XXXXXX DM % *** ┆
0x3523a…3525a 20 20 20 20 20 20 20 20 48 55 56 55 44 42 4f 4b 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 4a ┆ HUVUDBOK ***J┆
0x3525a…35269 00 53 54 5b 4c 4c 20 49 4e 20 50 45 52 46 4f ┆ STÄLL IN PERFO┆
0x35269…35289 (63, 0, 3) 52 45 52 49 4e 47 45 4e 54 52 59 43 4b 20 53 45 44 00 0c da 44 0a 41 4e 20 52 45 54 55 52 4e 2e ┆RERINGENTRYCK SED D AN RETURN.┆
0x35289…352a9 0c e6 44 d8 56 49 4c 4b 45 4e 20 54 59 50 20 41 56 20 4b 5c 52 4e 49 4e 47 3f 22 31 22 3d 45 4e ┆ D VILKEN TYP AV KÖRNING?"1"=EN┆
0x352a9…352b8 44 41 53 54 20 4c 49 53 54 41 2c 4d 45 44 20 ┆DAST LISTA,MED ┆
0x352b8…352d8 (63, 0, 4) 54 4f 54 41 4c 45 52 2f 4b 4f 4e 54 4f 22 32 22 3d 20 2d 2d 2d 2d 22 2d 2d 2d 2d 20 20 2c 4d 45 ┆TOTALER/KONTO"2"= ----"---- ,ME┆
0x352d8…352f8 4e 20 4d 45 44 20 44 45 4c 53 55 4d 4d 4f 52 20 20 20 20 20 20 20 50 45 52 20 41 56 44 45 4c 4e ┆N MED DELSUMMOR PER AVDELN┆
0x352f8…35307 49 4e 47 22 33 22 3d 4b 4f 4d 42 49 4e 45 52 ┆ING"3"=KOMBINER┆
0x35307…35327 (63, 0, 5) 41 44 20 4c 49 53 54 41 20 4f 43 48 20 52 45 47 49 53 54 52 45 52 49 4e 47 20 20 20 20 46 5c 52 ┆AD LISTA OCH REGISTRERING FÖR┆
0x35327…35347 20 52 45 53 55 4c 54 41 54 2d 20 4f 43 48 20 42 41 4c 41 4e 53 52 5b 4b 4e 49 4e 47 31 32 33 33 ┆ RESULTAT- OCH BALANSRÄKNING1233┆
0x35347…35356 0d 00 2a 00 2a 2a 2a 20 55 54 53 4b 52 49 46 ┆ * *** UTSKRIF┆
0x35356…35376 (63, 0, 6) 54 20 50 5d 47 5d 52 20 2a 2a 2a 45 00 31 32 0c c0 45 02 05 00 0c c4 45 0a 48 55 56 55 44 42 4f ┆T PÅGÅR ***E 12 E E HUVUDBO┆
0x35376…35396 4b 20 46 00 0c ce 45 96 5c 52 20 4d 5d 4e 41 44 20 04 00 55 50 50 44 45 4c 41 44 20 50 45 52 20 ┆K F E ÖR MÅNAD UPPDELAD PER ┆
0x35396…353a5 41 56 44 2e 4d 45 44 20 52 45 47 2e 20 46 5c ┆AVD.MED REG. FÖ┆
0x353a5…353c5 (63, 0, 7) 52 20 42 41 4c 41 4e 53 2d 20 4f 43 48 20 52 45 53 55 4c 54 41 54 2e 20 20 20 20 44 41 54 55 4d ┆R BALANS- OCH RESULTAT. DATUM┆
0x353c5…353e5 3a 0a 00 53 49 44 41 3a 02 00 4b 4f 4e 54 4f 41 56 44 2e 06 00 42 4f 4b 46 2e 44 41 54 54 59 50 ┆: SIDA: KONTOAVD. BOKF.DATTYP┆
0x353e5…353f4 56 45 52 2e 4e 52 17 00 44 45 42 45 54 11 00 ┆VER.NR DEBET ┆
0x353f4…35414 (63, 0, 8) 4b 52 45 44 49 54 0f 00 4d 5d 4e 2e 53 41 4c 44 4f 15 00 55 54 47 2e 53 41 4c 44 4f 2d 00 03 00 ┆KREDIT MÅN.SALDO UTG.SALDO- ┆
0x35414…35434 0c 6a 46 20 0c 00 09 00 5a 5a 5a 39 20 20 20 07 00 5a 5a 5a 39 39 2e 39 39 5a 5a 5a 5a 5a 5a 39 ┆ jF ZZZ9 ZZZ99.99ZZZZZZ9┆
0x35434…35443 4b 12 00 44 0c 8e 46 02 b7 0b 0c 96 46 16 20 ┆K D F F ┆
0x35443…35463 (63, 0, 9) 20 20 20 20 54 4f 54 41 4c 54 20 41 56 44 10 00 5a 5a 39 ba 04 0c b2 46 02 b8 0b 0c ba 46 16 2a ┆ TOTALT AVD ZZ9 F F *┆
0x35463…35483 2a 2a 20 4b 4f 4e 54 4f 54 20 53 41 4b 4e 41 53 20 49 20 4b 4f 00 0c d0 46 0c 4e 54 4f 50 4c 41 ┆** KONTOT SAKNAS I KO F NTOPLA┆
0x35483…35492 4e 45 4e 20 20 20 0c de 46 02 23 00 0c e4 46 ┆NEN F # F┆
0x35492…354b2 (63, 0, 10) 1c 2a 2a 2a 2a 20 54 4f 54 41 4c 54 20 55 4e 44 45 52 20 4d 5d 4e 41 44 45 4e 3a 29 00 0c 02 47 ┆ **** TOTALT UNDER MÅNADEN:) G┆
0x354b2…354d2 07 42 4f 4b 52 55 54 0d 0b 09 47 38 32 00 43 00 52 c7 1e 43 85 32 09 43 9e 32 09 06 43 8e 43 a7 ┆ BOKRUT G82 C R C 2 C 2 C C ┆
0x354d2…354e1 00 19 17 05 02 42 43 c1 22 43 a9 22 43 00 22 ┆ BC "C "C "┆
0x354e1…35501 (63, 0, 11) 43 e0 22 43 a9 32 19 43 6c 2b 01 43 6c 32 06 44 85 32 06 09 02 0b 43 47 05 1d 46 e2 00 1c 0b 41 ┆C "C 2 Cl+ Cl2 D 2 CG F A┆
0x35501…35521 47 02 47 48 0b 48 47 10 44 8b 44 8d 00 03 44 8b 00 44 8f 00 0c 0a 32 01 0b 5c 47 27 20 44 8b 44 ┆G GH HG D D D D 2 ÖG' D D┆
0x35521…35530 8b 00 32 01 0a 03 47 4e 1c 43 8f 44 8b 00 32 ┆ 2 GN C D 2┆
0x35530…35550 (63, 0, 12) 01 0e 0a 32 01 43 76 44 8b 00 32 01 0e 0a 32 01 06 47 5d 1c 0b 58 47 04 47 83 47 69 0b 83 47 24 ┆ 2 CvD 2 2 GÅ XG G Gi G$┆
0x35550…35570 15 00 27 32 0d 32 01 2a 44 91 32 01 44 92 00 28 44 94 32 25 44 b9 00 28 44 bb 32 16 44 92 00 28 ┆ '2 2 *D 2 D (D 2%D (D 2 D (┆
0x35570…3557f 44 d1 32 13 00 4b 4f 00 0b a7 47 0a 44 92 00 ┆D 2 KO G D ┆
0x3557f…3559f (63, 0, 13) 28 23 43 d9 32 01 25 0a e4 44 02 b1 47 0b b1 47 3c 15 00 27 32 0d 32 01 2a 44 e6 32 16 44 92 00 ┆(#C 2 % D G G< '2 2 *D 2 D ┆
0x3559f…355bf 28 44 fc 32 22 44 92 00 28 45 1e 32 36 44 b9 00 28 45 54 32 48 44 b9 00 28 23 43 d9 32 01 25 43 ┆(D 2"D (E 26D (ET2HD (#C 2 %C┆
0x355bf…355ce d9 32 01 45 9c 32 03 34 43 a7 00 07 02 0b ef ┆ 2 E 2 4C ┆
0x355ce…355ee (63, 0, 14) 47 05 1d 44 e4 00 1c 0b ed 47 02 47 f4 0b f4 47 12 15 00 27 32 0d 32 01 2a 43 d9 32 01 45 9f 32 ┆G D G G G '2 2 *C 2 E 2┆
0x355ee…3560e 01 09 02 0b 08 48 11 1d 43 8f 45 a0 00 32 01 0e 0a 32 01 44 91 32 01 06 0b 06 48 02 48 19 0b 19 ┆ H C E 2 2 D 2 H H ┆
0x3560e…3561d 48 25 43 a9 32 19 43 85 2d 01 15 00 27 44 91 ┆H%C 2 C - 'D ┆
0x3561d…3563d (63, 0, 15) 32 01 45 a2 00 28 45 a4 32 16 45 ba 00 28 43 d9 32 01 45 bc 32 01 09 02 0b 40 48 15 1d 44 3d 43 ┆2 E (E 2 E (C 2 E 2 @H D=C┆
0x3563d…3565d a7 00 19 17 05 01 41 44 3e 43 a7 00 19 17 05 01 41 0b 3e 48 02 48 55 0b 55 48 0a 43 d9 32 01 45 ┆ AD>C A >H HU UH C 2 E┆
0x3565d…3566c bd 32 01 09 02 0b 61 48 0d 1d 44 3d 43 a7 00 ┆ 2 aH D=C ┆
0x3566c…3568c (63, 0, 16) 19 17 05 01 41 44 3e 00 4b 4f 00 0b 6e 48 08 44 8d 00 19 17 05 01 41 0b 5f 48 02 48 76 0b 76 48 ┆ AD> KO nH D A _H Hv vH┆
0x3568c…356ac 0a 43 d9 32 01 45 9f 32 01 09 02 0b 82 48 15 1d 44 3d 44 8d 00 19 17 05 01 41 44 3e 43 a7 00 19 ┆ C 2 E 2 H D=D AD>C ┆
0x356ac…356bb 17 05 01 41 0b 80 48 02 48 97 0b 97 48 16 43 ┆ A H H H C┆
0x356bb…356db (63, 0, 17) f9 44 8d 00 19 17 05 01 41 44 3d 02 01 41 44 8d 00 19 17 08 02 0b af 48 33 1d 43 37 43 75 02 02 ┆ D AD= AD H3 C7Cu ┆
0x356db…356fb 42 05 02 42 43 39 32 01 44 91 32 01 06 40 f7 45 be 00 03 32 03 43 37 43 e0 32 18 43 2f 33 00 08 ┆B BC92 D 2 @ E 2 C7C 2 C/3 ┆
0x356fb…3570a 2e 01 43 f9 43 a7 00 19 17 05 01 41 0a be 45 ┆. C C A E┆
0x3570a…3572a (63, 0, 18) 02 e2 48 0b ad 48 02 48 e2 0b e2 48 5c 44 41 43 a7 00 19 17 05 01 41 43 da 45 c0 00 19 17 05 02 ┆ H H H HÖDAC AC E ┆
0x3572a…3574a 42 43 dc 43 a7 00 19 17 05 03 43 43 df 44 8d 00 19 17 05 01 41 44 05 43 a7 00 19 17 05 07 46 44 ┆BC C CC D AD C FD┆
0x3574a…35759 0c 43 a7 00 19 17 05 07 46 44 13 43 a7 00 19 ┆ C FD C ┆
0x35759…35779 (63, 0, 19) 17 05 07 46 44 1a 43 a7 00 19 17 05 07 46 44 21 43 a7 00 19 17 05 07 46 44 28 00 4f 00 0b 3e 49 ┆ FD C FD!C FD( O >I┆
0x35779…35799 6c 43 a7 00 19 17 05 07 46 44 2f 43 a7 00 19 17 05 07 46 44 36 43 a7 00 19 17 05 07 46 44 7e 43 ┆lC FD/C FD6C FD~C┆
0x35799…357a8 a7 00 19 17 05 07 46 43 f8 43 a7 00 19 17 05 ┆ FC C ┆
0x357a8…357c8 (63, 0, 20) 01 41 44 3f 43 a7 00 03 40 f9 47 00 00 03 43 00 32 17 43 18 2b 01 43 fa 43 1d 02 03 43 05 03 43 ┆ AD?C @ G C 2 C + C C C C┆
0x357c8…357e8 44 00 43 1b 02 02 42 05 02 42 43 fd 43 18 02 03 43 05 03 43 44 02 43 20 02 03 43 05 03 43 0a c2 ┆D C B BC C C CD C C C ┆
0x357e8…357f7 45 02 aa 49 0b aa 49 36 43 dc 43 dc 02 03 43 ┆E I I6C C C┆
0x357f7…35817 (63, 0, 21) 44 8d 00 19 17 0b 05 03 43 15 00 2a 32 0d 43 da 02 02 42 1a 16 2a 45 c4 32 13 26 43 72 32 03 45 ┆D C *2 C B *E 2 &Cr2 E┆
0x35817…35837 d7 00 28 44 3e 02 01 41 44 8d 00 19 17 08 02 0b e2 49 09 1d 15 00 2a 45 d9 32 11 26 0b e0 49 02 ┆ (D> AD I *E 2 & I ┆
0x35837…35846 49 eb 0b eb 49 0c 44 3d 02 01 41 44 8d 00 19 ┆I I D= AD ┆
0x35846…35866 (63, 0, 22) 17 08 02 0b f9 49 09 1d 15 00 2a 45 ea 32 22 26 0b f7 49 02 4a 02 0b 02 4a 12 15 00 2a 46 0c 32 ┆ I *E 2"& I J J *F 2┆
0x35866…35886 0a 26 43 6c 32 06 46 16 00 28 46 18 00 4f 00 0b 14 4a 70 32 05 26 43 dc 02 03 43 1a 26 32 0d 46 ┆ &Cl2 F (F O Jp2 &C C &2 F┆
0x35886…35895 1d 00 2a 46 1f 32 05 46 16 00 28 46 24 32 04 ┆ *F 2 F (F$2 ┆
0x35895…358b5 (63, 0, 23) 46 28 00 28 46 2a 32 08 46 16 00 28 46 32 32 03 45 c0 00 28 46 35 32 06 46 3b 00 28 46 3d 32 05 ┆F( (F*2 F (F22 E (F52 F; (F=2 ┆
0x358b5…358d5 46 42 00 28 46 44 32 06 46 4a 00 28 46 4c 32 09 46 55 00 28 46 57 32 09 26 32 0d 32 01 2a 43 da ┆FB (FD2 FJ (FL2 FU (FW2 &2 2 *C ┆
0x358d5…358e4 46 60 00 19 17 05 02 42 44 41 02 01 41 43 a7 ┆F` BDA AC ┆
0x358e4…35904 (63, 0, 24) 00 19 17 08 02 0b 86 4a 05 1d 46 64 00 1c 0b 84 4a 02 4a 8b 0b 8b 4a 0c 44 41 02 01 41 44 8d 00 ┆ J Fd J J J DA AD ┆
0x35904…35924 19 17 08 02 0b 99 4a 05 1d 46 68 00 1c 0b 97 4a 02 4a 9e 0b 9e 4a 0c 44 41 02 01 41 46 1d 00 19 ┆ J Fh J J J DA AF ┆
0x35924…35933 17 08 02 0b ac 4a 05 1d 46 8c 00 1c 0b aa 4a ┆ J F J┆
0x35933…35953 (63, 0, 25) 02 4a b1 0b b1 4a 0c 44 41 02 01 41 46 62 00 19 17 08 02 0b bf 4a 05 1d 46 94 00 1c 0b bd 4a 02 ┆ J J DA AFb J F J ┆
0x35953…35973 4a c4 0b c4 4a 0c 44 41 02 01 41 45 d7 00 19 17 08 02 0b d2 4a 05 1d 46 b0 00 1c 0b d0 4a 01 4a ┆J J DA AE J F J J┆
0x35973…35982 00 0b d1 4a 01 d7 0a 64 46 02 d7 4a 0b d7 4a ┆ J dF J J┆
0x35982…359a2 (63, 0, 26) 2b 43 e0 44 3f 00 03 44 7e 43 a7 00 19 17 05 07 46 40 f7 46 68 00 03 32 03 43 18 43 e0 32 18 43 ┆+C D? D~C F@ Fh 2 C C 2 C┆
0x359a2…359c2 2f 33 00 00 2e 01 44 3f 43 e0 00 03 0a 66 46 02 02 4b 0b 02 4b 0c 43 2f 02 03 43 43 18 02 03 43 ┆/3 . D?C fF K K C/ CC C┆
0x359c2…359d1 08 05 0b 10 4b 05 1d 46 68 00 1c 0b 0e 4b 02 ┆ K Fh K ┆
0x359d1…359f1 (63, 0, 27) 4b 15 0b 15 4b 17 43 37 02 02 42 43 75 02 02 42 08 01 43 39 32 01 44 91 32 01 09 02 12 0b 2e 4b ┆K K C7 BCu B C92 D 2 .K┆
0x359f1…35a11 18 1d 44 7e 44 7e 02 07 46 43 3a 02 06 45 0b 43 40 02 06 45 0d 0b 05 07 46 0b 2c 4b 02 4b 46 0b ┆ D~D~ FC: E C@ E F ,K KF ┆
0x35a11…35a20 46 4b 12 40 f9 46 68 00 03 43 e0 32 18 43 2f ┆FK @ Fh C 2 C/┆
0x35a20…35a40 (63, 0, 28) 2b 01 46 66 00 1c 0a 68 46 02 58 4b 0b 58 4b 16 44 41 44 8d 00 19 17 05 01 41 43 da 02 02 42 46 ┆+ Ff hF XK XK DAD AC BF┆
0x35a40…35a60 6a 00 19 17 08 01 0b 70 4b 05 1d 45 c2 00 1c 0b 6e 4b 02 4b 75 0b 75 4b 19 43 df 02 01 41 44 8d ┆j pK E nK Ku uK C AD ┆
0x35a60…35a6f 00 19 17 08 02 43 18 02 03 43 43 fd 02 03 43 ┆ C CC C┆
0x35a6f…35a8f (63, 0, 29) 08 05 13 00 0b 8e 4b 00 0b 90 4b 13 1d 15 00 2a 32 0d 32 01 2a 43 18 02 03 43 1a 46 6c 00 28 0b ┆ K K *2 2 *C C Fl ( ┆
0x35a8f…35aaf 8e 4b 02 4b a6 0b a6 4b 10 15 00 2a 32 0d 32 01 2a 44 91 32 01 46 6c 00 28 0b a3 4b 03 4b b6 1c ┆ K K K *2 2 *D 2 Fl ( K K ┆
0x35aaf…35abe 0b b6 4b 37 43 da 43 da 02 02 42 44 8d 00 19 ┆ K7C C BD ┆
0x35abe…35ade (63, 0, 30) 17 0d 0b 05 02 42 43 df 02 01 41 44 8d 00 19 17 08 02 44 00 02 02 42 43 1b 02 02 42 08 05 13 43 ┆ BC AD D BC B C┆
0x35ade…35afe fd 02 03 43 43 18 02 03 43 08 05 13 0b ef 4b 0f 1d 15 00 2a 43 1b 02 02 42 1a 46 6e 32 07 29 0b ┆ CC C K *C B Fn2 ) ┆
0x35afe…35b0d ed 4b 02 4c 01 0b 01 4c 0b 15 00 2a 44 91 32 ┆ K L L *D 2┆
0x35b0d…35b2d (63, 0, 31) 01 46 75 00 28 0b fe 4b 03 4c 0c 1c 0b 0c 4c 26 43 df 02 01 41 44 8d 00 19 17 08 02 43 20 02 03 ┆ Fu ( K L L&C AD C ┆
0x35b2d…35b4d 43 44 02 02 03 43 08 05 13 43 fd 02 03 43 43 18 02 03 43 08 05 13 0b 34 4c 15 1d 15 00 2a 43 20 ┆CD C C CC C 4L *C ┆
0x35b4d…35b5c 02 03 43 1a 46 77 32 08 29 32 20 45 d7 00 2a ┆ C Fw2 )2 E *┆
0x35b5c…35b7c (63, 0, 32) 0b 32 4c 02 4c 4c 0b 4c 4c 0b 15 00 2a 44 91 32 01 46 6a 00 28 00 0b 57 4c 00 0b 49 4c 03 4c 57 ┆ 2L LL LL *D 2 Fj ( WL IL LW┆
0x35b7c…35b9c 1c 0b 57 4c 26 15 00 2a 43 23 32 01 46 1d 00 28 43 24 02 04 44 1a 46 7f 32 07 29 32 20 45 d7 00 ┆ WL& *C#2 F (C$ D F 2 )2 E ┆
0x35b9c…35bab 2a 43 2e 32 01 46 86 32 01 09 02 0b 7f 4c 0c ┆*C.2 F 2 L ┆
0x35bab…35bcb (63, 0, 33) 1d 15 00 2a 44 91 32 01 46 87 00 28 0b 7d 4c 02 4c 8b 0b 8b 4c 4a 15 00 2a 43 28 02 06 45 1a 44 ┆ *D 2 F ( åL L LJ *C( E D┆
0x35bcb…35beb 42 32 14 29 43 df 43 a7 00 19 17 05 01 41 44 02 43 20 02 03 43 05 03 43 43 fa 43 1d 02 03 43 05 ┆B2 )C C AD C C CC C C ┆
0x35beb…35bfa 03 43 44 00 43 1b 02 02 42 05 02 42 43 fd 43 ┆ CD C B BC C┆
0x35bfa…35c1a (63, 0, 34) 18 02 03 43 05 03 43 43 2e 32 01 46 89 32 01 09 02 0b d7 4c 11 1d 44 05 44 05 02 07 46 43 28 02 ┆ C CC.2 F 2 L D D FC( ┆
0x35c1a…35c3a 06 45 0b 05 07 46 0b d5 4c 02 4c eb 0b eb 4c 10 44 0c 44 0c 02 07 46 43 28 02 06 45 0b 05 07 46 ┆ E F L L L D D FC( E F┆
0x35c3a…35c49 0b e8 4c 03 4c fb 1c 0b fb 4c 0e 40 f9 46 e0 ┆ L L L @ F ┆
0x35c49…35c69 (63, 0, 35) 00 03 43 00 32 17 43 18 2b 01 0a 8a 46 02 09 4d 0b 09 4d 12 43 df 02 01 41 44 8d 00 0c 19 17 08 ┆ C 2 C + F M M C AD ┆
0x35c69…35c89 02 43 18 02 03 43 00 00 0b 1b 4d 22 43 fd 02 03 43 08 05 13 43 1b 02 02 42 44 00 02 02 42 08 05 ┆ C C M"C C C BD B ┆
0x35c89…35c98 13 43 1d 02 03 43 43 fa 02 03 43 08 05 13 0b ┆ C CC C ┆
0x35c98…35cb8 (63, 0, 36) 3f 4d 05 1d 46 8c 00 1c 0b 3d 4d 02 4d 44 0b 44 4d 04 46 68 00 1c 0a 8c 46 02 48 4d 0b 48 4d 16 ┆?M F =M MD DM Fh F HM HM ┆
0x35cb8…35cd8 44 41 46 1d 00 19 17 05 01 41 43 da 02 02 42 46 6a 00 19 17 08 01 0b 60 4d 05 1d 45 c2 00 1c 0b ┆DAF AC BFj `M E ┆
0x35cd8…35ce7 5e 4d 02 4d 65 0b 65 4d 19 43 fd 02 03 43 46 ┆^M Me eM C CF┆
0x35ce7…35d07 (63, 0, 37) 8e 00 19 17 08 04 44 3d 02 01 41 44 8d 00 19 17 08 02 12 0b 80 4d 3e 1d 43 2f 43 fd 02 03 43 05 ┆ D= AD M> C/C C ┆
0x35d07…35d27 03 43 43 32 44 00 02 02 42 05 02 42 43 34 43 fa 02 03 43 05 03 43 43 37 43 75 02 02 42 05 02 42 ┆ CC2D B BC4C C CC7Cu B B┆
0x35d27…35d36 43 39 32 01 44 91 32 01 06 43 f9 02 01 41 44 ┆C92 D 2 C AD┆
0x35d36…35d56 (63, 0, 38) 8d 00 19 17 08 02 0b c0 4d 05 1d 46 90 00 1c 0b be 4d 02 4d c5 0b c5 4d 1f 40 f7 46 90 00 03 32 ┆ M F M M M @ F 2┆
0x35d56…35d76 0b 43 2f 43 e0 32 18 43 2f 33 00 00 2e 01 43 3a 44 05 02 07 46 05 06 45 00 00 0b e4 4d 1f 43 40 ┆ C/C 2 C/3 . C:D F E M C@┆
0x35d76…35d85 44 0c 02 07 46 05 06 45 43 46 32 01 44 91 32 ┆D F ECF2 D 2┆
0x35d85…35da5 (63, 0, 39) 01 06 43 e0 32 18 43 2f 2d 01 46 92 00 1c 0a 90 46 02 03 4e 0b 03 4e 38 43 e0 43 a7 00 03 32 00 ┆ C 2 C/- F F N N8C C 2 ┆
0x35da5…35dc5 43 e0 53 5f 1e 43 3a 44 05 02 07 46 05 06 45 43 40 44 0c 02 07 46 05 06 45 43 46 32 01 44 91 32 ┆C S_ C:D F EC@D F ECF2 D 2┆
0x35dc5…35dd4 01 06 43 e0 32 18 43 2f 2c 01 43 e0 2f 43 e0 ┆ C 2 C/, C /C ┆
0x35dd4…35df4 (63, 0, 40) 22 0b 7e 4d 02 4e 3b 0a 92 46 02 3b 4e 0b 3b 4e 5b 44 13 44 13 02 07 46 44 05 02 07 46 0b 05 07 ┆" ~M N; F ;N ;NÄD D FD F ┆
0x35df4…35e14 46 44 1a 44 1a 02 07 46 44 0c 02 07 46 0b 05 07 46 44 05 43 a7 00 19 17 05 07 46 44 0c 43 a7 00 ┆FD D FD F FD C FD C ┆
0x35e14…35e23 19 17 05 07 46 43 df 02 01 41 44 8d 00 0c 19 ┆ FC AD ┆
0x35e23…35e43 (64, 0, 0) 0c 00 43 10 00 00 56 45 52 46 49 4c 20 20 00 00 00 00 00 00 0c 9e 43 1b 58 58 58 58 58 58 20 20 ┆ C VERFIL C XXXXXX ┆
0x35e43…35e63 20 00 00 00 00 44 41 54 46 49 4c 20 20 00 00 00 00 00 00 0c c1 43 10 00 00 4b 54 4f 54 58 20 20 ┆ DATFIL C KTOTX ┆
0x35e63…35e72 20 00 00 00 00 00 00 0c e0 43 10 00 00 53 41 ┆ C SA┆
0x35e72…35e92 (64, 0, 1) 4d 46 49 4c 20 20 00 00 00 00 00 00 0c 42 44 14 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 39 56 ┆MFIL BD --------------9V┆
0x35e92…35eb2 2e 39 39 00 0c 56 44 14 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 39 56 2e 39 39 2a 2a 2a 00 0c 6a 44 14 ┆.99 VD -----------9V.99*** jD ┆
0x35eb2…35ec1 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 39 56 ┆-------------9V┆
0x35ec1…35ee1 (64, 0, 2) 2e 39 39 2a 00 0c 85 44 06 58 58 58 58 58 58 0c 8d 44 4d 01 00 0e 00 20 25 00 2a 2a 2a 20 20 20 ┆.99* D XXXXXX DM % *** ┆
0x35ee1…35f01 20 20 20 20 20 20 20 20 48 55 56 55 44 42 4f 4b 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 4a ┆ HUVUDBOK ***J┆
0x35f01…35f10 00 53 54 5b 4c 4c 20 49 4e 20 50 45 52 46 4f ┆ STÄLL IN PERFO┆
0x35f10…35f30 (64, 0, 3) 52 45 52 49 4e 47 45 4e 54 52 59 43 4b 20 53 45 44 00 0c da 44 0a 41 4e 20 52 45 54 55 52 4e 2e ┆RERINGENTRYCK SED D AN RETURN.┆
0x35f30…35f50 0c e6 44 d8 56 49 4c 4b 45 4e 20 54 59 50 20 41 56 20 4b 5c 52 4e 49 4e 47 3f 22 31 22 3d 45 4e ┆ D VILKEN TYP AV KÖRNING?"1"=EN┆
0x35f50…35f5f 44 41 53 54 20 4c 49 53 54 41 2c 4d 45 44 20 ┆DAST LISTA,MED ┆
0x35f5f…35f7f (64, 0, 4) 54 4f 54 41 4c 45 52 2f 4b 4f 4e 54 4f 22 32 22 3d 20 2d 2d 2d 2d 22 2d 2d 2d 2d 20 20 2c 4d 45 ┆TOTALER/KONTO"2"= ----"---- ,ME┆
0x35f7f…35f9f 4e 20 4d 45 44 20 44 45 4c 53 55 4d 4d 4f 52 20 20 20 20 20 20 20 50 45 52 20 41 56 44 45 4c 4e ┆N MED DELSUMMOR PER AVDELN┆
0x35f9f…35fae 49 4e 47 22 33 22 3d 4b 4f 4d 42 49 4e 45 52 ┆ING"3"=KOMBINER┆
0x35fae…35fce (64, 0, 5) 41 44 20 4c 49 53 54 41 20 4f 43 48 20 52 45 47 49 53 54 52 45 52 49 4e 47 20 20 20 20 46 5c 52 ┆AD LISTA OCH REGISTRERING FÖR┆
0x35fce…35fee 20 52 45 53 55 4c 54 41 54 2d 20 4f 43 48 20 42 41 4c 41 4e 53 52 5b 4b 4e 49 4e 47 31 32 33 33 ┆ RESULTAT- OCH BALANSRÄKNING1233┆
0x35fee…35ffd 0d 00 2a 00 2a 2a 2a 20 55 54 53 4b 52 49 46 ┆ * *** UTSKRIF┆
0x35ffd…3601d (64, 0, 6) 54 20 50 5d 47 5d 52 20 2a 2a 2a 45 00 31 32 0c c0 45 02 05 00 0c c4 45 0a 48 55 56 55 44 42 4f ┆T PÅGÅR ***E 12 E E HUVUDBO┆
0x3601d…3603d 4b 20 46 00 0c ce 45 96 5c 52 20 4d 5d 4e 41 44 20 04 00 55 50 50 44 45 4c 41 44 20 50 45 52 20 ┆K F E ÖR MÅNAD UPPDELAD PER ┆
0x3603d…3604c 41 56 44 2e 4d 45 44 20 52 45 47 2e 20 46 5c ┆AVD.MED REG. FÖ┆
0x3604c…3606c (64, 0, 7) 52 20 42 41 4c 41 4e 53 2d 20 4f 43 48 20 52 45 53 55 4c 54 41 54 2e 20 20 20 20 44 41 54 55 4d ┆R BALANS- OCH RESULTAT. DATUM┆
0x3606c…3608c 3a 0a 00 53 49 44 41 3a 02 00 4b 4f 4e 54 4f 41 56 44 2e 06 00 42 4f 4b 46 2e 44 41 54 54 59 50 ┆: SIDA: KONTOAVD. BOKF.DATTYP┆
0x3608c…3609b 56 45 52 2e 4e 52 17 00 44 45 42 45 54 11 00 ┆VER.NR DEBET ┆
0x3609b…360bb (64, 0, 8) 4b 52 45 44 49 54 0f 00 4d 5d 4e 2e 53 41 4c 44 4f 15 00 55 54 47 2e 53 41 4c 44 4f 2d 00 03 00 ┆KREDIT MÅN.SALDO UTG.SALDO- ┆
0x360bb…360db 0c 6a 46 20 0c 00 09 00 5a 5a 5a 39 20 20 20 07 00 5a 5a 5a 39 39 2e 39 39 5a 5a 5a 5a 5a 5a 39 ┆ jF ZZZ9 ZZZ99.99ZZZZZZ9┆
0x360db…360ea 4b 12 00 44 0c 8e 46 02 b7 0b 0c 96 46 16 20 ┆K D F F ┆
0x360ea…3610a (64, 0, 9) 20 20 20 20 54 4f 54 41 4c 54 20 41 56 44 10 00 5a 5a 39 ba 04 0c b2 46 02 b8 0b 0c ba 46 16 2a ┆ TOTALT AVD ZZ9 F F *┆
0x3610a…3612a 2a 2a 20 4b 4f 4e 54 4f 54 20 53 41 4b 4e 41 53 20 49 20 4b 4f 00 0c d0 46 0c 4e 54 4f 50 4c 41 ┆** KONTOT SAKNAS I KO F NTOPLA┆
0x3612a…36139 4e 45 4e 20 20 20 0c de 46 02 23 00 0c e4 46 ┆NEN F # F┆
0x36139…36159 (64, 0, 10) 1c 2a 2a 2a 2a 20 54 4f 54 41 4c 54 20 55 4e 44 45 52 20 4d 5d 4e 41 44 45 4e 3a 29 00 0c 02 47 ┆ **** TOTALT UNDER MÅNADEN:) G┆
0x36159…36179 07 42 4f 4b 52 55 54 0d 0b 09 47 38 32 00 43 00 52 c7 1e 43 85 32 09 43 9e 32 09 06 43 8e 43 a7 ┆ BOKRUT G82 C R C 2 C 2 C C ┆
0x36179…36188 00 19 17 05 02 42 43 c1 22 43 a9 22 43 00 22 ┆ BC "C "C "┆
0x36188…361a8 (64, 0, 11) 43 e0 22 43 a9 32 19 43 6c 2b 01 43 6c 32 06 44 85 32 06 09 02 0b 43 47 05 1d 46 e2 00 1c 0b 41 ┆C "C 2 Cl+ Cl2 D 2 CG F A┆
0x361a8…361c8 47 02 47 48 0b 48 47 10 44 8b 44 8d 00 03 44 8b 00 44 8f 00 0c 0a 32 01 0b 5c 47 27 20 44 8b 44 ┆G GH HG D D D D 2 ÖG' D D┆
0x361c8…361d7 8b 00 32 01 0a 03 47 4e 1c 43 8f 44 8b 00 32 ┆ 2 GN C D 2┆
0x361d7…361f7 (64, 0, 12) 01 0e 0a 32 01 43 76 44 8b 00 32 01 0e 0a 32 01 06 47 5d 1c 0b 58 47 04 47 83 47 69 0b 83 47 24 ┆ 2 CvD 2 2 GÅ XG G Gi G$┆
0x361f7…36217 15 00 27 32 0d 32 01 2a 44 91 32 01 44 92 00 28 44 94 32 25 44 b9 00 28 44 bb 32 16 44 92 00 28 ┆ '2 2 *D 2 D (D 2%D (D 2 D (┆
0x36217…36226 44 d1 32 13 00 4b 4f 00 0b a7 47 0a 44 92 00 ┆D 2 KO G D ┆
0x36226…36246 (64, 0, 13) 28 23 43 d9 32 01 25 0a e4 44 02 b1 47 0b b1 47 3c 15 00 27 32 0d 32 01 2a 44 e6 32 16 44 92 00 ┆(#C 2 % D G G< '2 2 *D 2 D ┆
0x36246…36266 28 44 fc 32 22 44 92 00 28 45 1e 32 36 44 b9 00 28 45 54 32 48 44 b9 00 28 23 43 d9 32 01 25 43 ┆(D 2"D (E 26D (ET2HD (#C 2 %C┆
0x36266…36275 d9 32 01 45 9c 32 03 34 43 a7 00 07 02 0b ef ┆ 2 E 2 4C ┆
0x36275…36295 (64, 0, 14) 47 05 1d 44 e4 00 1c 0b ed 47 02 47 f4 0b f4 47 12 15 00 27 32 0d 32 01 2a 43 d9 32 01 45 9f 32 ┆G D G G G '2 2 *C 2 E 2┆
0x36295…362b5 01 09 02 0b 08 48 11 1d 43 8f 45 a0 00 32 01 0e 0a 32 01 44 91 32 01 06 0b 06 48 02 48 19 0b 19 ┆ H C E 2 2 D 2 H H ┆
0x362b5…362c4 48 25 43 a9 32 19 43 85 2d 01 15 00 27 44 91 ┆H%C 2 C - 'D ┆
0x362c4…362e4 (64, 0, 15) 32 01 45 a2 00 28 45 a4 32 16 45 ba 00 28 43 d9 32 01 45 bc 32 01 09 02 0b 40 48 15 1d 44 3d 43 ┆2 E (E 2 E (C 2 E 2 @H D=C┆
0x362e4…36304 a7 00 19 17 05 01 41 44 3e 43 a7 00 19 17 05 01 41 0b 3e 48 02 48 55 0b 55 48 0a 43 d9 32 01 45 ┆ AD>C A >H HU UH C 2 E┆
0x36304…36313 bd 32 01 09 02 0b 61 48 0d 1d 44 3d 43 a7 00 ┆ 2 aH D=C ┆
0x36313…36333 (64, 0, 16) 19 17 05 01 41 44 3e 00 4b 4f 00 0b 6e 48 08 44 8d 00 19 17 05 01 41 0b 5f 48 02 48 76 0b 76 48 ┆ AD> KO nH D A _H Hv vH┆
0x36333…36353 0a 43 d9 32 01 45 9f 32 01 09 02 0b 82 48 15 1d 44 3d 44 8d 00 19 17 05 01 41 44 3e 43 a7 00 19 ┆ C 2 E 2 H D=D AD>C ┆
0x36353…36362 17 05 01 41 0b 80 48 02 48 97 0b 97 48 16 43 ┆ A H H H C┆
0x36362…36382 (64, 0, 17) f9 44 8d 00 19 17 05 01 41 44 3d 02 01 41 44 8d 00 19 17 08 02 0b af 48 33 1d 43 37 43 75 02 02 ┆ D AD= AD H3 C7Cu ┆
0x36382…363a2 42 05 02 42 43 39 32 01 44 91 32 01 06 40 f7 45 be 00 03 32 03 43 37 43 e0 32 18 43 2f 33 00 08 ┆B BC92 D 2 @ E 2 C7C 2 C/3 ┆
0x363a2…363b1 2e 01 43 f9 43 a7 00 19 17 05 01 41 0a be 45 ┆. C C A E┆
0x363b1…363d1 (64, 0, 18) 02 e2 48 0b ad 48 02 48 e2 0b e2 48 5c 44 41 43 a7 00 19 17 05 01 41 43 da 45 c0 00 19 17 05 02 ┆ H H H HÖDAC AC E ┆
0x363d1…363f1 42 43 dc 43 a7 00 19 17 05 03 43 43 df 44 8d 00 19 17 05 01 41 44 05 43 a7 00 19 17 05 07 46 44 ┆BC C CC D AD C FD┆
0x363f1…36400 0c 43 a7 00 19 17 05 07 46 44 13 43 a7 00 19 ┆ C FD C ┆
0x36400…36420 (64, 0, 19) 17 05 07 46 44 1a 43 a7 00 19 17 05 07 46 44 21 43 a7 00 19 17 05 07 46 44 28 00 4f 00 0b 3e 49 ┆ FD C FD!C FD( O >I┆
0x36420…36440 6c 43 a7 00 19 17 05 07 46 44 2f 43 a7 00 19 17 05 07 46 44 36 43 a7 00 19 17 05 07 46 44 7e 43 ┆lC FD/C FD6C FD~C┆
0x36440…3644f a7 00 19 17 05 07 46 43 f8 43 a7 00 19 17 05 ┆ FC C ┆
0x3644f…3646f (64, 0, 20) 01 41 44 3f 43 a7 00 03 40 f9 47 00 00 03 43 00 32 17 43 18 2b 01 43 fa 43 1d 02 03 43 05 03 43 ┆ AD?C @ G C 2 C + C C C C┆
0x3646f…3648f 44 00 43 1b 02 02 42 05 02 42 43 fd 43 18 02 03 43 05 03 43 44 02 43 20 02 03 43 05 03 43 0a c2 ┆D C B BC C C CD C C C ┆
0x3648f…3649e 45 02 aa 49 0b aa 49 36 43 dc 43 dc 02 03 43 ┆E I I6C C C┆
0x3649e…364be (64, 0, 21) 44 8d 00 19 17 0b 05 03 43 15 00 2a 32 0d 43 da 02 02 42 1a 16 2a 45 c4 32 13 26 43 72 32 03 45 ┆D C *2 C B *E 2 &Cr2 E┆
0x364be…364de d7 00 28 44 3e 02 01 41 44 8d 00 19 17 08 02 0b e2 49 09 1d 15 00 2a 45 d9 32 11 26 0b e0 49 02 ┆ (D> AD I *E 2 & I ┆
0x364de…364ed 49 eb 0b eb 49 0c 44 3d 02 01 41 44 8d 00 19 ┆I I D= AD ┆
0x364ed…3650d (64, 0, 22) 17 08 02 0b f9 49 09 1d 15 00 2a 45 ea 32 22 26 0b f7 49 02 4a 02 0b 02 4a 12 15 00 2a 46 0c 32 ┆ I *E 2"& I J J *F 2┆
0x3650d…3652d 0a 26 43 6c 32 06 46 16 00 28 46 18 00 4f 00 0b 14 4a 70 32 05 26 43 dc 02 03 43 1a 26 32 0d 46 ┆ &Cl2 F (F O Jp2 &C C &2 F┆
0x3652d…3653c 1d 00 2a 46 1f 32 05 46 16 00 28 46 24 32 04 ┆ *F 2 F (F$2 ┆
0x3653c…3655c (64, 0, 23) 46 28 00 28 46 2a 32 08 46 16 00 28 46 32 32 03 45 c0 00 28 46 35 32 06 46 3b 00 28 46 3d 32 05 ┆F( (F*2 F (F22 E (F52 F; (F=2 ┆
0x3655c…3657c 46 42 00 28 46 44 32 06 46 4a 00 28 46 4c 32 09 46 55 00 28 46 57 32 09 26 32 0d 32 01 2a 43 da ┆FB (FD2 FJ (FL2 FU (FW2 &2 2 *C ┆
0x3657c…3658b 46 60 00 19 17 05 02 42 44 41 02 01 41 43 a7 ┆F` BDA AC ┆
0x3658b…365ab (64, 0, 24) 00 19 17 08 02 0b 86 4a 05 1d 46 64 00 1c 0b 84 4a 02 4a 8b 0b 8b 4a 0c 44 41 02 01 41 44 8d 00 ┆ J Fd J J J DA AD ┆
0x365ab…365cb 19 17 08 02 0b 99 4a 05 1d 46 68 00 1c 0b 97 4a 02 4a 9e 0b 9e 4a 0c 44 41 02 01 41 46 1d 00 19 ┆ J Fh J J J DA AF ┆
0x365cb…365da 17 08 02 0b ac 4a 05 1d 46 8c 00 1c 0b aa 4a ┆ J F J┆
0x365da…365fa (64, 0, 25) 02 4a b1 0b b1 4a 0c 44 41 02 01 41 46 62 00 19 17 08 02 0b bf 4a 05 1d 46 94 00 1c 0b bd 4a 02 ┆ J J DA AFb J F J ┆
0x365fa…3661a 4a c4 0b c4 4a 0c 44 41 02 01 41 45 d7 00 19 17 08 02 0b d2 4a 05 1d 46 b0 00 1c 0b d0 4a 01 4a ┆J J DA AE J F J J┆
0x3661a…36629 00 0b d1 4a 01 d7 0a 64 46 02 d7 4a 0b d7 4a ┆ J dF J J┆
0x36629…36649 (64, 0, 26) 2b 43 e0 44 3f 00 03 44 7e 43 a7 00 19 17 05 07 46 40 f7 46 68 00 03 32 03 43 18 43 e0 32 18 43 ┆+C D? D~C F@ Fh 2 C C 2 C┆
0x36649…36669 2f 33 00 00 2e 01 44 3f 43 e0 00 03 0a 66 46 02 02 4b 0b 02 4b 0c 43 2f 02 03 43 43 18 02 03 43 ┆/3 . D?C fF K K C/ CC C┆
0x36669…36678 08 05 0b 10 4b 05 1d 46 68 00 1c 0b 0e 4b 02 ┆ K Fh K ┆
0x36678…36698 (64, 0, 27) 4b 15 0b 15 4b 17 43 37 02 02 42 43 75 02 02 42 08 01 43 39 32 01 44 91 32 01 09 02 12 0b 2e 4b ┆K K C7 BCu B C92 D 2 .K┆
0x36698…366b8 18 1d 44 7e 44 7e 02 07 46 43 3a 02 06 45 0b 43 40 02 06 45 0d 0b 05 07 46 0b 2c 4b 02 4b 46 0b ┆ D~D~ FC: E C@ E F ,K KF ┆
0x366b8…366c7 46 4b 12 40 f9 46 68 00 03 43 e0 32 18 43 2f ┆FK @ Fh C 2 C/┆
0x366c7…366e7 (64, 0, 28) 2b 01 46 66 00 1c 0a 68 46 02 58 4b 0b 58 4b 16 44 41 44 8d 00 19 17 05 01 41 43 da 02 02 42 46 ┆+ Ff hF XK XK DAD AC BF┆
0x366e7…36707 6a 00 19 17 08 01 0b 70 4b 05 1d 45 c2 00 1c 0b 6e 4b 02 4b 75 0b 75 4b 19 43 df 02 01 41 44 8d ┆j pK E nK Ku uK C AD ┆
0x36707…36716 00 19 17 08 02 43 18 02 03 43 43 fd 02 03 43 ┆ C CC C┆
0x36716…36736 (64, 0, 29) 08 05 13 00 0b 8e 4b 00 0b 90 4b 13 1d 15 00 2a 32 0d 32 01 2a 43 18 02 03 43 1a 46 6c 00 28 0b ┆ K K *2 2 *C C Fl ( ┆
0x36736…36756 8e 4b 02 4b a6 0b a6 4b 10 15 00 2a 32 0d 32 01 2a 44 91 32 01 46 6c 00 28 0b a3 4b 03 4b b6 1c ┆ K K K *2 2 *D 2 Fl ( K K ┆
0x36756…36765 0b b6 4b 37 43 da 43 da 02 02 42 44 8d 00 19 ┆ K7C C BD ┆
0x36765…36785 (64, 0, 30) 17 0d 0b 05 02 42 43 df 02 01 41 44 8d 00 19 17 08 02 44 00 02 02 42 43 1b 02 02 42 08 05 13 43 ┆ BC AD D BC B C┆
0x36785…367a5 fd 02 03 43 43 18 02 03 43 08 05 13 0b ef 4b 0f 1d 15 00 2a 43 1b 02 02 42 1a 46 6e 32 07 29 0b ┆ CC C K *C B Fn2 ) ┆
0x367a5…367b4 ed 4b 02 4c 01 0b 01 4c 0b 15 00 2a 44 91 32 ┆ K L L *D 2┆
0x367b4…367d4 (64, 0, 31) 01 46 75 00 28 0b fe 4b 03 4c 0c 1c 0b 0c 4c 26 43 df 02 01 41 44 8d 00 19 17 08 02 43 20 02 03 ┆ Fu ( K L L&C AD C ┆
0x367d4…367f4 43 44 02 02 03 43 08 05 13 43 fd 02 03 43 43 18 02 03 43 08 05 13 0b 34 4c 15 1d 15 00 2a 43 20 ┆CD C C CC C 4L *C ┆
0x367f4…36803 02 03 43 1a 46 77 32 08 29 32 20 45 d7 00 2a ┆ C Fw2 )2 E *┆
0x36803…36823 (64, 0, 32) 0b 32 4c 02 4c 4c 0b 4c 4c 0b 15 00 2a 44 91 32 01 46 6a 00 28 00 0b 57 4c 00 0b 49 4c 03 4c 57 ┆ 2L LL LL *D 2 Fj ( WL IL LW┆
0x36823…36843 1c 0b 57 4c 26 15 00 2a 43 23 32 01 46 1d 00 28 43 24 02 04 44 1a 46 7f 32 07 29 32 20 45 d7 00 ┆ WL& *C#2 F (C$ D F 2 )2 E ┆
0x36843…36852 2a 43 2e 32 01 46 86 32 01 09 02 0b 7f 4c 0c ┆*C.2 F 2 L ┆
0x36852…36872 (64, 0, 33) 1d 15 00 2a 44 91 32 01 46 87 00 28 0b 7d 4c 02 4c 8b 0b 8b 4c 4a 15 00 2a 43 28 02 06 45 1a 44 ┆ *D 2 F ( åL L LJ *C( E D┆
0x36872…36892 42 32 14 29 43 df 43 a7 00 19 17 05 01 41 44 02 43 20 02 03 43 05 03 43 43 fa 43 1d 02 03 43 05 ┆B2 )C C AD C C CC C C ┆
0x36892…368a1 03 43 44 00 43 1b 02 02 42 05 02 42 43 fd 43 ┆ CD C B BC C┆
0x368a1…368c1 (64, 0, 34) 18 02 03 43 05 03 43 43 2e 32 01 46 89 32 01 09 02 0b d7 4c 11 1d 44 05 44 05 02 07 46 43 28 02 ┆ C CC.2 F 2 L D D FC( ┆
0x368c1…368e1 06 45 0b 05 07 46 0b d5 4c 02 4c eb 0b eb 4c 10 44 0c 44 0c 02 07 46 43 28 02 06 45 0b 05 07 46 ┆ E F L L L D D FC( E F┆
0x368e1…368f0 0b e8 4c 03 4c fb 1c 0b fb 4c 0e 40 f9 46 e0 ┆ L L L @ F ┆
0x368f0…36910 (64, 0, 35) 00 03 43 00 32 17 43 18 2b 01 0a 8a 46 02 09 4d 0b 09 4d 12 43 df 02 01 41 44 8d 00 0c 19 17 08 ┆ C 2 C + F M M C AD ┆
0x36910…36930 02 43 18 02 03 43 00 00 0b 1b 4d 22 43 fd 02 03 43 08 05 13 43 1b 02 02 42 44 00 02 02 42 08 05 ┆ C C M"C C C BD B ┆
0x36930…3693f 13 43 1d 02 03 43 43 fa 02 03 43 08 05 13 0b ┆ C CC C ┆
0x3693f…3695f (64, 0, 36) 3f 4d 05 1d 46 8c 00 1c 0b 3d 4d 02 4d 44 0b 44 4d 04 46 68 00 1c 0a 8c 46 02 48 4d 0b 48 4d 16 ┆?M F =M MD DM Fh F HM HM ┆
0x3695f…3697f 44 41 46 1d 00 19 17 05 01 41 43 da 02 02 42 46 6a 00 19 17 08 01 0b 60 4d 05 1d 45 c2 00 1c 0b ┆DAF AC BFj `M E ┆
0x3697f…3698e 5e 4d 02 4d 65 0b 65 4d 19 43 fd 02 03 43 46 ┆^M Me eM C CF┆
0x3698e…369ae (64, 0, 37) 8e 00 19 17 08 04 44 3d 02 01 41 44 8d 00 19 17 08 02 12 0b 80 4d 3e 1d 43 2f 43 fd 02 03 43 05 ┆ D= AD M> C/C C ┆
0x369ae…369ce 03 43 43 32 44 00 02 02 42 05 02 42 43 34 43 fa 02 03 43 05 03 43 43 37 43 75 02 02 42 05 02 42 ┆ CC2D B BC4C C CC7Cu B B┆
0x369ce…369dd 43 39 32 01 44 91 32 01 06 43 f9 02 01 41 44 ┆C92 D 2 C AD┆
0x369dd…369fd (64, 0, 38) 8d 00 19 17 08 02 0b c0 4d 05 1d 46 90 00 1c 0b be 4d 02 4d c5 0b c5 4d 1f 40 f7 46 90 00 03 32 ┆ M F M M M @ F 2┆
0x369fd…36a1d 0b 43 2f 43 e0 32 18 43 2f 33 00 00 2e 01 43 3a 44 05 02 07 46 05 06 45 00 00 0b e4 4d 1f 43 40 ┆ C/C 2 C/3 . C:D F E M C@┆
0x36a1d…36a2c 44 0c 02 07 46 05 06 45 43 46 32 01 44 91 32 ┆D F ECF2 D 2┆
0x36a2c…36a4c (64, 0, 39) 01 06 43 e0 32 18 43 2f 2d 01 46 92 00 1c 0a 90 46 02 03 4e 0b 03 4e 38 43 e0 43 a7 00 03 32 00 ┆ C 2 C/- F F N N8C C 2 ┆
0x36a4c…36a6c 43 e0 53 5f 1e 43 3a 44 05 02 07 46 05 06 45 43 40 44 0c 02 07 46 05 06 45 43 46 32 01 44 91 32 ┆C S_ C:D F EC@D F ECF2 D 2┆
0x36a6c…36a7b 01 06 43 e0 32 18 43 2f 2c 01 43 e0 2f 43 e0 ┆ C 2 C/, C /C ┆
0x36a7b…36a9b (64, 0, 40) 22 0b 7e 4d 02 4e 3b 0a 92 46 02 3b 4e 0b 3b 4e 5b 44 13 44 13 02 07 46 44 05 02 07 46 0b 05 07 ┆" ~M N; F ;N ;NÄD D FD F ┆
0x36a9b…36abb 46 44 1a 44 1a 02 07 46 44 0c 02 07 46 0b 05 07 46 44 05 43 a7 00 19 17 05 07 46 44 0c 43 a7 00 ┆FD D FD F FD C FD C ┆
0x36abb…36aca 19 17 05 07 46 43 df 02 01 41 44 8d 00 0c 19 ┆ FC AD ┆
0x36aca…36bc9 (65, 0, 0) DataSector[0xff]
[…0x15…]
0x380b4…380d4 (66, 0, 7) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x380d4…380f4 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┆
0x380f4…38114 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; ┆
0x38114…38134 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 41 44 20 46 49 4c 45 28 44 41 54 46 49 4c 29 ┆ READ FILE(DATFIL)┆
0x38134…38154 49 4e 54 4f 28 44 41 54 52 45 43 29 3b 49 46 20 44 41 47 3d 27 58 58 58 58 58 58 27 20 54 48 45 ┆INTO(DATREC);IF DAG='XXXXXX' THE┆
0x38154…38174 4e 20 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 20 20 44 4f ┆N GO TO SLUT; DO┆
0x38174…38194 20 49 3d 31 20 54 4f 20 31 34 3b 58 53 4b 28 49 29 3d 53 4b 28 49 29 3b 45 4e 44 3b 20 20 20 20 ┆ I=1 TO 14;XSK(I)=SK(I);END; ┆
0x38194…381b3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x381b3…381d3 (66, 0, 8) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 57 52 49 54 45 20 46 49 4c 45 28 44 41 54 46 49 ┆ REWRITE FILE(DATFI┆
0x381d3…381f3 4c 29 46 52 4f 4d 28 58 44 41 54 52 45 43 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆L)FROM(XDATREC); ┆
0x381f3…38213 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 ┆ PUT┆
0x38213…38233 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 29 28 27 ┆ FILE(D) SKIP EDIT(' ')(A(37))('┆
0x38233…38253 2a 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆*** ┆
0x38253…38273 20 20 2a 2a 2a 27 29 20 20 20 20 20 28 41 28 37 34 29 29 28 27 53 54 5b 4c 4c 20 49 4e 20 50 45 ┆ ***') (A(74))('STÄLL IN PE┆
0x38273…38293 52 46 4f 52 45 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 41 ┆RFORERINGEN')(A(37))('TRYCK SEDA┆
0x38293…382b2 4e 20 52 45 54 55 52 4e 2e 27 29 28 41 28 33 37 29 29 3b 20 20 20 20 20 20 20 20 47 45 54 20 ┆N RETURN.')(A(37)); GET ┆
0x382b2…382d2 (66, 0, 9) 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 20 20 20 20 ┆SKIP LIST(S); ┆
0x382d2…382f2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x382f2…38312 20 20 20 20 20 20 20 20 20 20 20 54 41 42 3a 50 55 54 20 46 49 4c 45 28 44 29 53 4b 49 50 20 45 ┆ TAB:PUT FILE(D)SKIP E┆
0x38312…38332 44 49 54 28 27 56 49 4c 4b 45 4e 20 54 59 50 20 41 56 20 4b 5c 52 4e 49 4e 47 3f 27 29 28 41 28 ┆DIT('VILKEN TYP AV KÖRNING?')(A(┆
0x38332…38352 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 28 27 22 31 22 3d ┆37)) ('"1"=┆
0x38352…38372 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 29 ┆ ')┆
0x38372…38392 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 20 ┆(A(37)) ┆
0x38392…383b1 20 20 20 20 20 20 20 20 20 28 27 22 32 22 3d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ('"2"= ┆
0x383b1…383d1 (66, 0, 10) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x383d1…383f1 20 20 27 29 28 41 28 37 34 29 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 27 22 33 22 3d 20 ┆ ')(A(74)) ('"3"= ┆
0x383f1…38411 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
[…0x1…]
0x38431…38451 20 20 20 27 29 20 20 20 28 41 28 37 34 29 29 3b 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 53 29 ┆ ') (A(74));GET SKIP LIST(S)┆
0x38451…38471 3b 49 46 20 56 45 52 49 46 59 28 53 2c 27 31 32 33 27 29 3d 30 20 54 48 45 4e 20 47 4f 20 54 4f ┆;IF VERIFY(S,'123')=0 THEN GO TO┆
0x38471…38491 20 54 41 42 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4a 55 4d 50 3d 30 3b 52 41 ┆ TAB; JUMP=0;RA┆
0x38491…384b0 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 20 ┆D=5;SIDA=0;IND=1; ┆
0x384b0…384d0 (66, 0, 11) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x384d0…384f0 20 20 20 20 20 20 20 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 ┆ RUB:SIDA=SIDA+1;PUT SKIP(┆
0x384f0…38510 52 41 44 29 45 44 49 54 28 27 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆RAD)EDIT(' ┆
0x38510…38530 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 45 44 49 54 28 27 ┆ PUT EDIT('┆
0x38530…38550 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 49 44 ┆ DATUM:')(A)(DAG)(A(10))('SID┆
0x38550…38570 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 20 20 ┆A:')(A)(SIDA)(A)SKIP(2)EDIT ┆
0x38570…38590 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x38590…385af 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x385af…385cf (66, 0, 12) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 46 54 52 58 3a 52 45 54 55 52 4e ┆ FTRX:RETURN┆
0x385cf…385ef 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 20 20 20 20 ┆;END; ┆
0x385ef…3860f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
[…0x2…]
0x3864f…3866f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 55 42 52 55 54 3a 50 52 4f 43 3b 20 ┆ RUBRUT:PROC; ┆
0x3866f…3868f 2f 2a 20 52 55 42 52 49 4b 2d 52 55 54 49 4e 20 2a 2f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆/* RUBRIK-RUTIN */ ┆
0x3868f…386ae 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x386ae…386ce (66, 0, 13) 20 20 20 50 55 54 20 53 4b 49 50 28 35 29 20 45 44 49 54 28 27 20 27 29 28 41 28 56 4d 29 29 28 ┆ PUT SKIP(5) EDIT(' ')(A(VM))(┆
0x386ce…386ee 46 54 4e 41 4d 29 28 41 28 33 30 29 29 28 52 55 42 52 29 28 41 28 33 30 29 29 28 27 50 45 52 27 ┆FTNAM)(A(30))(RUBR)(A(30))('PER'┆
0x386ee…3870e 29 28 41 28 34 29 29 20 20 20 20 20 20 20 20 20 20 20 28 46 54 4d 4f 4e 29 28 41 28 34 29 29 28 ┆)(A(4)) (FTMON)(A(4))(┆
0x3870e…3872e 46 54 41 41 52 29 28 50 27 39 39 39 39 27 2c 58 28 34 29 29 28 27 4b 5c 52 44 27 29 28 41 28 35 ┆FTAAR)(P'9999',X(4))('KÖRD')(A(5┆
0x3872e…3874e 29 29 28 46 54 44 41 47 29 28 41 28 38 29 29 28 27 53 49 44 41 3a 27 29 28 41 28 36 29 29 20 20 ┆))(FTDAG)(A(8))('SIDA:')(A(6)) ┆
0x3874e…3876e 20 28 53 49 44 41 29 28 50 27 5a 5a 39 27 29 3b 52 41 44 3d 35 3b 20 20 20 20 20 20 20 20 20 20 ┆ (SIDA)(P'ZZ9');RAD=5; ┆
0x3876e…3878e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3878e…387ad 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 55 42 52 55 58 3a 52 45 54 55 52 4e 3b 45 ┆ RUBRUX:RETURN;E┆
0x387ad…387cd (66, 0, 14) 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 20 ┆ND; ┆
0x387cd…387ed 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
[…0x2…]
0x3882d…3884d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4e 59 53 49 44 3a 50 52 4f 43 3b 20 2f 2a 20 53 49 ┆ NYSID:PROC; /* SI┆
0x3884d…3886d 44 42 59 54 45 20 2a 2f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆DBYTE */ ┆
0x3886d…3888d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 ┆ PU┆
0x3888d…388ac 54 20 53 4b 49 50 28 52 41 44 4d 41 58 2d 52 41 44 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆T SKIP(RADMAX-RAD); ┆
0x388ac…388cc (67, 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*/ ┆
0x388cc…388ec 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x388ec…3890c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ /* ┆
0x3890c…3892c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3892c…3894c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4b 4c ┆ KL┆
0x3894c…3896c 41 52 54 3a 20 58 58 58 58 58 58 20 20 20 50 52 4f 47 52 3a 54 44 20 2a 2f 20 20 20 20 20 20 20 ┆ART: XXXXXX PROGR:TD */ ┆
0x3896c…3898c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3898c…389ab 20 20 20 20 20 20 20 20 20 20 20 20 20 44 43 4c 20 31 20 53 41 4d 2c 32 20 53 53 54 52 2c 33 ┆ DCL 1 SAM,2 SSTR,3┆
0x389ab…389cb (67, 0, 1) 20 53 4b 4f 20 46 49 58 45 44 28 34 29 2c 33 20 53 41 56 44 20 46 49 58 45 44 28 32 29 2c 33 20 ┆ SKO FIXED(4),3 SAVD FIXED(2),3 ┆
0x389cb…389eb 53 50 52 4f 4a 20 46 49 58 45 44 28 34 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 33 20 53 ┆SPROJ FIXED(4), 3 S┆
0x389eb…38a0b 4d 4e 52 20 46 49 58 45 44 28 32 29 2c 33 20 42 55 44 20 43 48 41 52 28 31 29 2c 20 20 20 20 20 ┆MNR FIXED(2),3 BUD CHAR(1), ┆
0x38a0b…38a2b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x38a2b…38a4b 20 20 20 20 20 20 20 20 20 20 20 20 32 20 53 41 44 20 46 49 58 45 44 28 31 31 2c 32 29 2c 32 20 ┆ 2 SAD FIXED(11,2),2 ┆
0x38a4b…38a6b 53 41 4b 20 46 49 58 45 44 28 31 31 2c 32 29 2c 32 20 48 4a 4b 4f 44 20 43 48 41 52 28 31 29 3b ┆SAK FIXED(11,2),2 HJKOD CHAR(1);┆
0x38a6b…38a8b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x38a8b…38aaa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x38aaa…38aca (67, 0, 2) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x38aca…38aea 20 20 20 20 20 20 20 20 20 20 20 44 43 4c 20 31 20 58 53 41 4d 2c 32 20 58 4b 4f 20 46 49 58 45 ┆ DCL 1 XSAM,2 XKO FIXE┆
0x38aea…38b0a 44 28 34 29 2c 32 20 58 4d 4e 52 20 46 49 58 45 44 28 32 29 2c 32 20 58 42 55 44 20 43 48 41 52 ┆D(4),2 XMNR FIXED(2),2 XBUD CHAR┆
0x38b0a…38b2a 28 31 29 2c 32 20 58 41 56 44 20 46 49 58 45 44 28 32 29 2c 20 20 20 20 20 20 32 20 58 50 52 4f ┆(1),2 XAVD FIXED(2), 2 XPRO┆
0x38b2a…38b4a 4a 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 20 ┆J FIXED(4), ┆
0x38b4a…38b6a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x38b6a…38b8a 20 20 20 20 20 20 20 20 20 32 20 58 41 44 20 46 49 58 45 44 28 31 31 2c 32 29 2c 32 20 58 41 4b ┆ 2 XAD FIXED(11,2),2 XAK┆
0x38b8a…38ba9 20 46 49 58 45 44 28 31 31 2c 32 29 2c 32 20 58 4a 4b 4f 44 20 43 48 41 52 28 31 29 3b 20 20 ┆ FIXED(11,2),2 XJKOD CHAR(1); ┆
0x38ba9…38bc9 (67, 0, 3) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 43 4c 20 53 41 4d ┆ DCL SAM┆
0x38bc9…38be9 46 49 4c 20 46 49 4c 45 3b 4f 50 45 4e 20 53 41 4d 46 49 4c 3b 20 20 20 20 20 20 20 20 20 20 20 ┆FIL FILE;OPEN SAMFIL; ┆
0x38be9…38c09 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x38c09…38c29 20 20 20 20 20 20 20 20 53 54 3a 4f 4e 20 45 4e 44 46 49 4c 45 20 47 4f 20 54 4f 20 55 54 3b 20 ┆ ST:ON ENDFILE GO TO UT; ┆
0x38c29…38c49 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x38c49…38c69 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 41 44 20 46 49 4c 45 ┆ READ FILE┆
0x38c69…38c89 28 53 41 4d 46 49 4c 29 49 4e 54 4f 28 58 53 41 4d 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆(SAMFIL)INTO(XSAM); ┆
0x38c89…38ca8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x38ca8…38cc8 (67, 0, 4) 20 20 20 20 20 20 20 53 4b 4f 3d 58 4b 4f 3b 53 41 56 44 3d 58 41 56 44 3b 53 50 52 4f 4a 3d 58 ┆ SKO=XKO;SAVD=XAVD;SPROJ=X┆
0x38cc8…38ce8 50 52 4f 4a 3b 53 4d 4e 52 3d 58 4d 4e 52 3b 42 55 44 3d 58 42 55 44 3b 53 41 44 3d 58 41 44 3b ┆PROJ;SMNR=XMNR;BUD=XBUD;SAD=XAD;┆
0x38ce8…38d08 53 41 4b 3d 58 41 4b 3b 48 4a 4b 4f 44 3d 27 20 27 3b 20 20 20 20 50 55 54 20 46 49 4c 45 28 44 ┆SAK=XAK;HJKOD=' '; PUT FILE(D┆
0x38d08…38d28 29 53 4b 49 50 20 4c 49 53 54 28 55 4e 53 50 45 43 28 53 41 4d 46 49 4c 29 29 3b 20 20 20 20 20 ┆)SKIP LIST(UNSPEC(SAMFIL)); ┆
0x38d28…38d48 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x38d48…38d68 20 20 20 20 20 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 ┆ REWRITE FILE(SAMFIL)FROM(SA┆
0x38d68…38d88 4d 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 ┆M); ┆
0x38d88…38da7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 53 54 3b 20 20 ┆ GO TO ST; ┆
0x38da7…38dc7 (67, 0, 5) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
[…0x1…]
0x38de7…38e07 20 20 20 20 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 ┆ UT:END; ┆
0x38e07…38e27 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
[…0x3…]
0x38e87…38ea6 20 20 43 43 20 43 48 41 52 28 32 30 29 49 4e 49 54 28 27 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 39 ┆ CC CHAR(20)INIT('-----------9┆
0x38ea6…38ec6 (67, 0, 6) 56 2e 39 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 ┆V.99***'), ┆
0x38ec6…38ee6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 43 43 20 43 48 41 52 28 32 30 29 49 4e ┆ CCC CHAR(20)IN┆
0x38ee6…38f06 49 54 28 27 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 39 56 2e 39 39 2a 27 29 2c 20 20 20 20 20 20 ┆IT('-------------9V.99*'), ┆
0x38f06…38f26 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x38f26…38f46 20 4b 49 42 20 46 49 58 45 44 28 31 32 2c 32 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ KIB FIXED(12,2); ┆
0x38f46…38f66 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
[…0x1…]
0x38f86…38fa5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x38fa5…38fc5 (67, 0, 7) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x38fc5…38fe5 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┆
0x38fe5…39005 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; ┆
0x39005…39025 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 41 44 20 46 49 4c 45 28 44 41 54 46 49 4c 29 ┆ READ FILE(DATFIL)┆
0x39025…39045 49 4e 54 4f 28 44 41 54 52 45 43 29 3b 49 46 20 44 41 47 3d 27 58 58 58 58 58 58 27 20 54 48 45 ┆INTO(DATREC);IF DAG='XXXXXX' THE┆
0x39045…39065 4e 20 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 20 20 44 4f ┆N GO TO SLUT; DO┆
0x39065…39085 20 49 3d 31 20 54 4f 20 31 34 3b 58 53 4b 28 49 29 3d 53 4b 28 49 29 3b 45 4e 44 3b 20 20 20 20 ┆ I=1 TO 14;XSK(I)=SK(I);END; ┆
0x39085…390a4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x390a4…390c4 (67, 0, 8) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 57 52 49 54 45 20 46 49 4c 45 28 44 41 54 46 49 ┆ REWRITE FILE(DATFI┆
0x390c4…390e4 4c 29 46 52 4f 4d 28 58 44 41 54 52 45 43 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆L)FROM(XDATREC); ┆
0x390e4…39104 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 ┆ PUT┆
0x39104…39124 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 29 28 27 ┆ FILE(D) SKIP EDIT(' ')(A(37))('┆
0x39124…39144 2a 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆*** ┆
0x39144…39164 20 20 2a 2a 2a 27 29 20 20 20 20 20 28 41 28 37 34 29 29 28 27 53 54 5b 4c 4c 20 49 4e 20 50 45 ┆ ***') (A(74))('STÄLL IN PE┆
0x39164…39184 52 46 4f 52 45 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 41 ┆RFORERINGEN')(A(37))('TRYCK SEDA┆
0x39184…391a3 4e 20 52 45 54 55 52 4e 2e 27 29 28 41 28 33 37 29 29 3b 20 20 20 20 20 20 20 20 47 45 54 20 ┆N RETURN.')(A(37)); GET ┆
0x391a3…391c3 (67, 0, 9) 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 20 20 20 20 ┆SKIP LIST(S); ┆
0x391c3…391e3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x391e3…39203 20 20 20 20 20 20 20 20 20 20 20 54 41 42 3a 50 55 54 20 46 49 4c 45 28 44 29 53 4b 49 50 20 45 ┆ TAB:PUT FILE(D)SKIP E┆
0x39203…39223 44 49 54 28 27 56 49 4c 4b 45 4e 20 54 59 50 20 41 56 20 4b 5c 52 4e 49 4e 47 3f 27 29 28 41 28 ┆DIT('VILKEN TYP AV KÖRNING?')(A(┆
0x39223…39243 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 28 27 22 31 22 3d ┆37)) ('"1"=┆
0x39243…39263 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 29 ┆ ')┆
0x39263…39283 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 20 ┆(A(37)) ┆
0x39283…392a2 20 20 20 20 20 20 20 20 20 28 27 22 32 22 3d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ('"2"= ┆
0x392a2…392c2 (67, 0, 10) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x392c2…392e2 20 20 27 29 28 41 28 37 34 29 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 27 22 33 22 3d 20 ┆ ')(A(74)) ('"3"= ┆
0x392e2…39302 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
[…0x1…]
0x39322…39342 20 20 20 27 29 20 20 20 28 41 28 37 34 29 29 3b 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 53 29 ┆ ') (A(74));GET SKIP LIST(S)┆
0x39342…39362 3b 49 46 20 56 45 52 49 46 59 28 53 2c 27 31 32 33 27 29 3d 30 20 54 48 45 4e 20 47 4f 20 54 4f ┆;IF VERIFY(S,'123')=0 THEN GO TO┆
0x39362…39382 20 54 41 42 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4a 55 4d 50 3d 30 3b 52 41 ┆ TAB; JUMP=0;RA┆
0x39382…393a1 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 20 ┆D=5;SIDA=0;IND=1; ┆
0x393a1…393c1 (67, 0, 11) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x393c1…393e1 20 20 20 20 20 20 20 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 ┆ RUB:SIDA=SIDA+1;PUT SKIP(┆
0x393e1…39401 52 41 44 29 45 44 49 54 28 27 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆RAD)EDIT(' ┆
0x39401…39421 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 45 44 49 54 28 27 ┆ PUT EDIT('┆
0x39421…39441 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 49 44 ┆ DATUM:')(A)(DAG)(A(10))('SID┆
0x39441…39461 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 20 20 ┆A:')(A)(SIDA)(A)SKIP(2)EDIT ┆
0x39461…39481 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x39481…394a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x394a0…394c0 (67, 0, 12) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 46 54 52 58 3a 52 45 54 55 52 4e ┆ FTRX:RETURN┆
0x394c0…394e0 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 20 20 20 20 ┆;END; ┆
0x394e0…39500 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
[…0x2…]
0x39540…39560 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 55 42 52 55 54 3a 50 52 4f 43 3b 20 ┆ RUBRUT:PROC; ┆
0x39560…39580 2f 2a 20 52 55 42 52 49 4b 2d 52 55 54 49 4e 20 2a 2f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆/* RUBRIK-RUTIN */ ┆
0x39580…3959f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3959f…395bf (67, 0, 13) 20 20 20 50 55 54 20 53 4b 49 50 28 35 29 20 45 44 49 54 28 27 20 27 29 28 41 28 56 4d 29 29 28 ┆ PUT SKIP(5) EDIT(' ')(A(VM))(┆
0x395bf…395df 46 54 4e 41 4d 29 28 41 28 33 30 29 29 28 52 55 42 52 29 28 41 28 33 30 29 29 28 27 50 45 52 27 ┆FTNAM)(A(30))(RUBR)(A(30))('PER'┆
0x395df…395ff 29 28 41 28 34 29 29 20 20 20 20 20 20 20 20 20 20 20 28 46 54 4d 4f 4e 29 28 41 28 34 29 29 28 ┆)(A(4)) (FTMON)(A(4))(┆
0x395ff…3961f 46 54 41 41 52 29 28 50 27 39 39 39 39 27 2c 58 28 34 29 29 28 27 4b 5c 52 44 27 29 28 41 28 35 ┆FTAAR)(P'9999',X(4))('KÖRD')(A(5┆
0x3961f…3963f 29 29 28 46 54 44 41 47 29 28 41 28 38 29 29 28 27 53 49 44 41 3a 27 29 28 41 28 36 29 29 20 20 ┆))(FTDAG)(A(8))('SIDA:')(A(6)) ┆
0x3963f…3965f 20 28 53 49 44 41 29 28 50 27 5a 5a 39 27 29 3b 52 41 44 3d 35 3b 20 20 20 20 20 20 20 20 20 20 ┆ (SIDA)(P'ZZ9');RAD=5; ┆
0x3965f…3967f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3967f…3969e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 55 42 52 55 58 3a 52 45 54 55 52 4e 3b 45 ┆ RUBRUX:RETURN;E┆
0x3969e…396be (67, 0, 14) 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 20 ┆ND; ┆
0x396be…396de 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
[…0x2…]
0x3971e…3973e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4e 59 53 49 44 3a 50 52 4f 43 3b 20 2f 2a 20 53 49 ┆ NYSID:PROC; /* SI┆
0x3973e…3975e 44 42 59 54 45 20 2a 2f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆DBYTE */ ┆
0x3975e…3977e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 ┆ PU┆
0x3977e…3979d 54 20 53 4b 49 50 28 52 41 44 4d 41 58 2d 52 41 44 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆T SKIP(RADMAX-RAD); ┆
0x3979d…397ec (68, 0, 0) DataSector[0x4f]
[…0x12…]
0x39d7a…39d9a (68, 0, 19) 43 43 20 43 48 41 52 28 32 30 29 49 4e 49 54 28 27 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 39 56 2e 39 ┆CC CHAR(20)INIT('-----------9V.9┆
0x39d9a…39dba 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***'), ┆
0x39dba…39dc9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x39dc9…39de9 (68, 0, 20) 43 43 43 20 43 48 41 52 28 32 30 29 49 4e 49 54 28 27 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 39 ┆CCC CHAR(20)INIT('-------------9┆
0x39de9…39e09 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*'), ┆
0x39e09…39e18 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x39e18…39e38 (68, 0, 21) 4b 49 42 20 46 49 58 45 44 28 31 32 2c 32 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆KIB FIXED(12,2); ┆
0x39e38…39e58 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x39e58…39e67 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x39e67…39eb6 (68, 0, 22) 0x20[0x4f]
0x39eb6…39ed6 (68, 0, 23) 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┆
0x39ed6…39ef6 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; ┆
0x39ef6…39f05 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x39f05…39f25 (68, 0, 24) 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┆
0x39f25…39f45 20 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 20 ┆ DAG='XXXXXX' THEN GO TO SLUT; ┆
0x39f45…39f54 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x39f54…39f74 (68, 0, 25) 44 4f 20 49 3d 31 20 54 4f 20 31 34 3b 58 53 4b 28 49 29 3d 53 4b 28 49 29 3b 45 4e 44 3b 20 20 ┆DO I=1 TO 14;XSK(I)=SK(I);END; ┆
0x39f74…39f94 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x39f94…39fa3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x39fa3…39fc3 (68, 0, 26) 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 58 44 41 54 52 45 43 ┆REWRITE FILE(DATFIL)FROM(XDATREC┆
0x39fc3…39fe3 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆); ┆
0x39fe3…39ff2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x39ff2…3a012 (68, 0, 27) 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)┆
0x3a012…3a032 29 28 27 2a 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆)('*** ┆
0x3a032…3a041 20 20 20 20 20 2a 2a 2a 27 29 20 20 20 20 20 ┆ ***') ┆
0x3a041…3a061 (68, 0, 28) 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'┆
0x3a061…3a081 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.')(┆
0x3a081…3a090 41 28 33 37 29 29 3b 20 20 20 20 20 20 20 20 ┆A(37)); ┆
0x3a090…3a0b0 (68, 0, 29) 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); ┆
0x3a0b0…3a0d0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3a0d0…3a0df 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3a0df…3a0ff (68, 0, 30) 54 41 42 3a 50 55 54 20 46 49 4c 45 28 44 29 53 4b 49 50 20 45 44 49 54 28 27 56 49 4c 4b 45 4e ┆TAB:PUT FILE(D)SKIP EDIT('VILKEN┆
0x3a0ff…3a11f 20 54 59 50 20 41 56 20 4b 5c 52 4e 49 4e 47 3f 27 29 28 41 28 33 37 29 29 20 20 20 20 20 20 20 ┆ TYP AV KÖRNING?')(A(37)) ┆
0x3a11f…3a12e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3a12e…3a14e (68, 0, 31) 28 27 22 31 22 3d 20 20 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"= ┆
0x3a14e…3a16e 20 20 20 20 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 ┆ ')(A(37)) ┆
0x3a16e…3a17d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3a17d…3a19d (68, 0, 32) 28 27 22 32 22 3d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆('"2"= ┆
0x3a19d…3a1bd 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 29 28 41 28 37 34 29 ┆ ')(A(74)┆
0x3a1bd…3a1cc 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆) ┆
0x3a1cc…3a1ec (68, 0, 33) 28 27 22 33 22 3d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆('"3"= ┆
0x3a1ec…3a20c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3a20c…3a21b 20 20 20 20 20 20 20 20 20 20 27 29 20 20 20 ┆ ') ┆
0x3a21b…3a23b (68, 0, 34) 28 41 28 37 34 29 29 3b 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 53 29 3b 49 46 20 56 45 52 49 ┆(A(74));GET SKIP LIST(S);IF VERI┆
0x3a23b…3a25b 46 59 28 53 2c 27 31 32 33 27 29 3d 30 20 54 48 45 4e 20 47 4f 20 54 4f 20 54 41 42 3b 20 20 20 ┆FY(S,'123')=0 THEN GO TO TAB; ┆
0x3a25b…3a26a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3a26a…3a28a (68, 0, 35) 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 20 20 20 20 20 20 ┆JUMP=0;RAD=5;SIDA=0;IND=1; ┆
0x3a28a…3a2aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3a2aa…3a2b9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3a2b9…3a2d9 (68, 0, 36) 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┆
0x3a2d9…3a2f9 54 28 27 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆T(' ┆
0x3a2f9…3a308 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3a308…3a328 (68, 0, 37) 50 55 54 20 45 44 49 54 28 27 20 20 20 20 44 41 54 55 4d 3a 27 29 28 41 29 28 44 41 47 29 28 41 ┆PUT EDIT(' DATUM:')(A)(DAG)(A┆
0x3a328…3a348 28 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 ┆(10))('SIDA:')(A)(SIDA)(A)SKIP(2┆
0x3a348…3a357 29 45 44 49 54 20 20 20 20 20 20 20 20 20 20 ┆)EDIT ┆
0x3a357…3a3a6 (68, 0, 38) 0x20[0x4f]
0x3a3a6…3a3c6 (68, 0, 39) 46 54 52 58 3a 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 ┆FTRX:RETURN;END; ┆
0x3a3c6…3a3e6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3a3e6…3a3f5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3a3f5…3a444 (68, 0, 40) 0x20[0x4f]
0x3a444…3a493 (69, 0, 0) DataSector[0x4f]
[…0x26…]
0x3b04d…3b06d (69, 0, 39) 46 54 52 58 3a 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 ┆FTRX:RETURN;END; ┆
0x3b06d…3b08d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3b08d…3b09c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3b09c…3b0eb (69, 0, 40) 0x20[0x4f]
0x3b0eb…3b13a (70, 0, 0) DataSector[0x4f]
[…0x26…]
0x3bcf4…3bd14 (70, 0, 39) 46 54 52 58 3a 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 ┆FTRX:RETURN;END; ┆
0x3bd14…3bd34 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3bd34…3bd43 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3bd43…3bd92 (70, 0, 40) 0x20[0x4f]
0x3bd92…3bdb2 (71, 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*/ ┆
0x3bdb2…3bdd2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3bdd2…3bde1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3bde1…3be01 (71, 0, 1) 2f 2a 48 55 56 42 4f 4b 31 20 55 54 53 4b 52 49 46 54 20 41 56 20 48 55 56 55 44 42 4f 4b 20 50 ┆/*HUVBOK1 UTSKRIFT AV HUVUDBOK P┆
0x3be01…3be21 45 52 20 4b 4f 4e 54 4f 20 55 4e 44 45 52 20 52 45 53 50 20 41 4e 47 49 56 45 4e 20 4d 5d 4e 41 ┆ER KONTO UNDER RESP ANGIVEN MÅNA┆
0x3be21…3be30 44 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆D ┆
0x3be30…3be50 (71, 0, 2) 53 45 4e 41 53 54 45 20 5b 4e 44 52 49 4e 47 3a 38 34 2d 30 32 2d 32 30 20 20 50 52 4f 47 52 3a ┆SENASTE ÄNDRING:84-02-20 PROGR:┆
0x3be50…3be70 45 4f 20 28 54 49 4c 4c 5b 47 47 20 46 20 46 54 47 20 4f 20 52 55 42 20 49 20 4c 49 53 54 4f 52 ┆EO (TILLÄGG F FTG O RUB I LISTOR┆
0x3be70…3be7f 29 20 2a 2f 20 20 20 20 20 20 20 20 20 20 20 ┆) */ ┆
0x3be7f…3bece (71, 0, 3) 0x20[0x4f]
0x3bece…3beee (71, 0, 4) 44 43 4c 20 56 45 52 46 49 4c 20 46 49 4c 45 3b 43 41 4c 4c 20 4b 46 49 4c 45 28 56 45 52 46 49 ┆DCL VERFIL FILE;CALL KFILE(VERFI┆
0x3beee…3bf0e 4c 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 ┆L); ┆
0x3bf0e…3bf1d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3bf1d…3bf6c (71, 0, 5) 0x20[0x4f]
0x3bf6c…3bf8c (71, 0, 6) 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 46 49 ┆DCL 1 VER,2 KO FIXED(4),2 AVD FI┆
0x3bf8c…3bfac 58 45 44 28 32 29 2c 32 20 50 52 4f 4a 20 46 49 58 45 44 28 34 29 2c 32 20 44 41 54 20 46 49 58 ┆XED(2),2 PROJ FIXED(4),2 DAT FIX┆
0x3bfac…3bfbb 45 44 28 34 29 2c 20 20 20 20 20 20 20 20 20 ┆ED(4), ┆
0x3bfbb…3bfdb (71, 0, 7) 32 20 54 59 50 20 43 48 41 52 28 31 29 2c 32 20 56 45 52 4e 52 20 46 49 58 45 44 28 36 29 2c 32 ┆2 TYP CHAR(1),2 VERNR FIXED(6),2┆
0x3bfdb…3bffb 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 3b 20 ┆ BEL FIXED(11,2),2 KOD CHAR(1); ┆
0x3bffb…3c00a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3c00a…3c059 (71, 0, 8) 0x20[0x4f]
0x3c059…3c079 (71, 0, 9) 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),┆
0x3c079…3c099 33 20 53 41 56 44 20 46 49 58 45 44 28 32 29 2c 33 20 53 50 52 4f 4a 20 46 49 58 45 44 28 34 29 ┆3 SAVD FIXED(2),3 SPROJ FIXED(4)┆
0x3c099…3c0a8 2c 33 20 53 53 54 52 32 2c 20 20 20 20 20 20 ┆,3 SSTR2, ┆
0x3c0a8…3c0c8 (71, 0, 10) 34 20 53 4d 4e 52 20 46 49 58 45 44 28 32 29 2c 34 20 42 55 44 20 43 48 41 52 28 31 29 2c 20 20 ┆4 SMNR FIXED(2),4 BUD CHAR(1), ┆
0x3c0c8…3c0e8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3c0e8…3c0f7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3c0f7…3c117 (71, 0, 11) 32 20 53 41 44 20 46 49 58 45 44 28 31 31 2c 32 29 2c 32 20 53 41 4b 20 46 49 58 45 44 28 31 31 ┆2 SAD FIXED(11,2),2 SAK FIXED(11┆
0x3c117…3c137 2c 32 29 2c 32 20 48 4a 4b 4f 44 20 43 48 41 52 28 31 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆,2),2 HJKOD CHAR(1); ┆
0x3c137…3c146 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3c146…3c195 (71, 0, 12) 0x20[0x4f]
0x3c195…3c1b5 (71, 0, 13) 44 43 4c 20 31 20 4b 54 4f 2c 32 20 4b 4f 4e 54 4f 20 46 49 58 45 44 28 34 29 2c 32 20 54 45 58 ┆DCL 1 KTO,2 KONTO FIXED(4),2 TEX┆
0x3c1b5…3c1d5 54 20 43 48 41 52 28 33 34 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆T CHAR(34); ┆
0x3c1d5…3c1e4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3c1e4…3c233 (71, 0, 14) 0x20[0x4f]
0x3c233…3c253 (71, 0, 15) 44 43 4c 20 31 20 44 41 54 52 45 43 2c 32 20 44 41 47 20 43 48 41 52 28 36 29 2c 32 20 4d 4f 4e ┆DCL 1 DATREC,2 DAG CHAR(6),2 MON┆
0x3c253…3c273 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 29 ┆ CHAR(3),2 MNR FIXED(2),2 SK(14)┆
0x3c273…3c282 20 43 48 41 52 28 31 29 3b 20 20 20 20 20 20 ┆ CHAR(1); ┆
0x3c282…3c2a2 (71, 0, 16) 44 43 4c 20 31 20 58 44 41 54 52 45 43 2c 32 20 58 44 41 47 20 43 48 41 52 28 39 29 2c 32 20 58 ┆DCL 1 XDATREC,2 XDAG CHAR(9),2 X┆
0x3c2a2…3c2c2 4d 4e 52 20 46 49 58 45 44 28 32 29 2c 32 20 58 53 4b 28 31 34 29 20 43 48 41 52 28 31 29 3b 20 ┆MNR FIXED(2),2 XSK(14) CHAR(1); ┆
0x3c2c2…3c2d1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3c2d1…3c2f1 (71, 0, 17) 58 44 41 47 3d 27 58 58 58 58 58 58 20 20 20 27 3b 58 4d 4e 52 3d 30 3b 20 20 20 20 20 20 20 20 ┆XDAG='XXXXXX ';XMNR=0; ┆
0x3c2f1…3c311 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3c311…3c320 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3c320…3c340 (71, 0, 18) 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┆
0x3c340…3c360 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),┆
0x3c360…3c36f 49 4e 44 20 46 49 58 45 44 28 31 29 2c 20 20 ┆IND FIXED(1), ┆
0x3c36f…3c38f (71, 0, 19) 53 41 4d 46 49 4c 20 46 49 4c 45 2c 51 20 46 49 58 45 44 28 31 29 2c 4e 59 52 45 47 20 46 49 58 ┆SAMFIL FILE,Q FIXED(1),NYREG FIX┆
0x3c38f…3c3af 45 44 28 31 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 ┆ED(1), ┆
0x3c3af…3c3be 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3c3be…3c3de (71, 0, 20) 58 50 52 4f 4a 20 46 49 58 45 44 28 34 29 2c 58 4b 4f 20 46 49 58 45 44 28 34 29 2c 58 41 56 44 ┆XPROJ FIXED(4),XKO FIXED(4),XAVD┆
0x3c3de…3c3fe 20 46 49 58 45 44 28 32 29 2c 58 44 41 54 20 46 49 58 45 44 28 34 29 2c 50 44 20 46 49 58 45 44 ┆ FIXED(2),XDAT FIXED(4),PD FIXED┆
0x3c3fe…3c40d 28 31 32 2c 32 29 2c 20 20 20 20 20 20 20 20 ┆(12,2), ┆
0x3c40d…3c42d (71, 0, 21) 50 4b 20 46 49 58 45 44 28 31 32 2c 32 29 2c 41 44 20 46 49 58 45 44 28 31 32 2c 32 29 2c 41 4b ┆PK FIXED(12,2),AD FIXED(12,2),AK┆
0x3c42d…3c44d 20 46 49 58 45 44 28 31 32 2c 32 29 2c 4b 44 20 46 49 58 45 44 28 31 32 2c 32 29 2c 4b 4b 20 46 ┆ FIXED(12,2),KD FIXED(12,2),KK F┆
0x3c44d…3c45c 49 58 45 44 28 31 32 2c 32 29 2c 20 20 20 20 ┆IXED(12,2), ┆
0x3c45c…3c47c (71, 0, 22) 54 44 20 46 49 58 45 44 28 31 32 2c 32 29 2c 54 4b 20 46 49 58 45 44 28 31 32 2c 32 29 2c 52 45 ┆TD FIXED(12,2),TK FIXED(12,2),RE┆
0x3c47c…3c49c 47 20 46 49 58 45 44 28 31 29 2c 44 45 4c 20 46 49 58 45 44 28 31 29 2c 52 45 43 4e 52 20 42 49 ┆G FIXED(1),DEL FIXED(1),RECNR BI┆
0x3c49c…3c4ab 4e 41 52 59 2c 20 20 20 20 20 20 20 20 20 20 ┆NARY, ┆
0x3c4ab…3c4cb (71, 0, 23) 4a 55 4d 50 20 46 49 58 45 44 28 31 29 2c 43 20 43 48 41 52 28 32 30 29 20 49 4e 49 54 28 27 2d ┆JUMP FIXED(1),C CHAR(20) INIT('-┆
0x3c4cb…3c4eb 2d 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 ┆-------------9V.99'), ┆
0x3c4eb…3c4fa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3c4fa…3c51a (71, 0, 24) 43 43 20 43 48 41 52 28 32 30 29 49 4e 49 54 28 27 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 39 56 2e 39 ┆CC CHAR(20)INIT('-----------9V.9┆
0x3c51a…3c53a 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***'), ┆
0x3c53a…3c549 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3c549…3c569 (71, 0, 25) 43 43 43 20 43 48 41 52 28 32 30 29 49 4e 49 54 28 27 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 39 ┆CCC CHAR(20)INIT('-------------9┆
0x3c569…3c589 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*'), ┆
0x3c589…3c598 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3c598…3c5b8 (71, 0, 26) 4b 49 42 20 46 49 58 45 44 28 31 32 2c 32 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆KIB FIXED(12,2); ┆
0x3c5b8…3c5d8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3c5d8…3c5e7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3c5e7…3c636 (71, 0, 27) 0x20[0x4f]
0x3c636…3c656 (71, 0, 28) 44 43 4c 20 46 54 20 46 49 4c 45 3b 44 43 4c 20 52 55 42 52 20 43 48 41 52 28 33 30 29 20 49 4e ┆DCL FT FILE;DCL RUBR CHAR(30) IN┆
0x3c656…3c676 49 54 28 27 48 55 56 55 44 42 4f 4b 27 29 3b 44 43 4c 20 56 4d 20 46 49 58 45 44 28 32 29 20 49 ┆IT('HUVUDBOK');DCL VM FIXED(2) I┆
0x3c676…3c685 4e 49 54 28 30 29 3b 20 20 20 20 20 20 20 20 ┆NIT(0); ┆
0x3c685…3c6a5 (71, 0, 29) 44 43 4c 20 31 20 46 54 57 2c 20 2f 2a 20 46 5c 52 45 54 41 47 53 2d 50 4f 53 54 20 2a 2f 20 20 ┆DCL 1 FTW, /* FÖRETAGS-POST */ ┆
0x3c6a5…3c6c5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3c6c5…3c6d4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3c6d4…3c6f4 (71, 0, 30) 20 20 20 20 32 20 46 54 4e 41 4d 20 43 48 41 52 28 33 30 29 20 49 4e 49 54 28 27 43 4f 4e 46 49 ┆ 2 FTNAM CHAR(30) INIT('CONFI┆
0x3c6f4…3c714 44 45 4e 53 49 41 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 ┆DENSIA'), ┆
0x3c714…3c723 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3c723…3c743 (71, 0, 31) 20 20 20 20 32 20 46 54 41 41 52 20 46 49 58 45 44 28 34 29 20 49 4e 49 54 28 30 29 2c 20 2f 2a ┆ 2 FTAAR FIXED(4) INIT(0), /*┆
0x3c743…3c763 20 5d 52 54 41 4c 20 46 5c 52 20 52 45 44 4f 56 49 53 41 44 20 4d 5d 4e 41 44 20 2a 2f 20 20 20 ┆ ÅRTAL FÖR REDOVISAD MÅNAD */ ┆
0x3c763…3c772 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3c772…3c792 (71, 0, 32) 20 20 20 20 32 20 46 54 4d 4f 4e 20 43 48 41 52 28 33 29 20 49 4e 49 54 28 27 20 27 29 2c 20 2f ┆ 2 FTMON CHAR(3) INIT(' '), /┆
0x3c792…3c7b2 2a 20 4d 5d 4e 41 44 20 2a 2f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆* MÅNAD */ ┆
0x3c7b2…3c7c1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3c7c1…3c7e1 (71, 0, 33) 20 20 20 20 32 20 46 54 44 41 47 20 46 49 58 45 44 28 36 29 20 49 4e 49 54 28 30 29 2c 20 2f 2a ┆ 2 FTDAG FIXED(6) INIT(0), /*┆
0x3c7e1…3c801 20 4b 5c 52 44 41 54 55 4d 20 2a 2f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ KÖRDATUM */ ┆
0x3c801…3c810 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3c810…3c830 (71, 0, 34) 20 20 20 20 32 20 52 41 44 4d 41 58 20 46 49 58 45 44 28 32 29 20 49 4e 49 54 28 35 31 29 3b 20 ┆ 2 RADMAX FIXED(2) INIT(51); ┆
0x3c830…3c850 2f 2a 20 42 4c 41 4e 4b 45 54 54 48 5c 4a 44 20 49 20 41 4e 54 41 4c 20 52 41 44 45 52 20 2a 2f ┆/* BLANKETTHÖJD I ANTAL RADER */┆
0x3c850…3c85f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3c85f…3c8ae (71, 0, 35) 0x20[0x4f]
0x3c8ae…3c8ce (71, 0, 36) 2f 2a 20 53 55 42 52 55 54 49 4e 45 52 20 2a 2f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆/* SUBRUTINER */ ┆
0x3c8ce…3c8ee 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3c8ee…3c8fd 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3c8fd…3c91d (71, 0, 37) 46 54 52 3a 50 52 4f 43 3b 20 2f 2a 20 4c 5b 53 20 46 5c 52 45 54 41 47 53 2d 50 4f 53 54 20 2a ┆FTR:PROC; /* LÄS FÖRETAGS-POST *┆
0x3c91d…3c93d 2f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆/ ┆
0x3c93d…3c94c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3c94c…3c96c (71, 0, 38) 4f 50 45 4e 20 46 54 3b 52 45 41 44 20 46 49 4c 45 28 46 54 29 20 49 4e 54 4f 28 46 54 57 29 3b ┆OPEN FT;READ FILE(FT) INTO(FTW);┆
0x3c96c…3c98c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3c98c…3c99b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3c99b…3c9bb (71, 0, 39) 46 54 52 58 3a 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 ┆FTRX:RETURN;END; ┆
0x3c9bb…3c9db 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3c9db…3c9ea 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3c9ea…3ca39 (71, 0, 40) 0x20[0x4f]
0x3ca39…3ca59 (72, 0, 0) 52 55 42 52 55 54 3a 50 52 4f 43 3b 20 2f 2a 20 52 55 42 52 49 4b 2d 52 55 54 49 4e 20 2a 2f 20 ┆RUBRUT:PROC; /* RUBRIK-RUTIN */ ┆
0x3ca59…3ca79 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3ca79…3ca88 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3ca88…3caa8 (72, 0, 1) 50 55 54 20 53 4b 49 50 28 35 29 20 45 44 49 54 28 27 20 27 29 28 41 28 56 4d 29 29 28 46 54 4e ┆PUT SKIP(5) EDIT(' ')(A(VM))(FTN┆
0x3caa8…3cac8 41 4d 29 28 41 28 33 30 29 29 28 52 55 42 52 29 28 41 28 33 30 29 29 28 27 50 45 52 27 29 28 41 ┆AM)(A(30))(RUBR)(A(30))('PER')(A┆
0x3cac8…3cad7 28 34 29 29 20 20 20 20 20 20 20 20 20 20 20 ┆(4)) ┆
0x3cad7…3caf7 (72, 0, 2) 28 46 54 4d 4f 4e 29 28 41 28 34 29 29 28 46 54 41 41 52 29 28 50 27 39 39 39 39 27 2c 58 28 34 ┆(FTMON)(A(4))(FTAAR)(P'9999',X(4┆
0x3caf7…3cb17 29 29 28 27 4b 5c 52 44 27 29 28 41 28 35 29 29 28 46 54 44 41 47 29 28 41 28 38 29 29 28 27 53 ┆))('KÖRD')(A(5))(FTDAG)(A(8))('S┆
0x3cb17…3cb26 49 44 41 3a 27 29 28 41 28 36 29 29 20 20 20 ┆IDA:')(A(6)) ┆
0x3cb26…3cb46 (72, 0, 3) 28 53 49 44 41 29 28 50 27 5a 5a 39 27 29 3b 52 41 44 3d 35 3b 20 20 20 20 20 20 20 20 20 20 20 ┆(SIDA)(P'ZZ9');RAD=5; ┆
0x3cb46…3cb66 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3cb66…3cb75 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3cb75…3cb95 (72, 0, 4) 52 55 42 52 55 58 3a 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 ┆RUBRUX:RETURN;END; ┆
0x3cb95…3cbb5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3cbb5…3cbc4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3cbc4…3cc13 (72, 0, 5) 0x20[0x4f]
0x3cc13…3cc33 (72, 0, 6) 4e 59 53 49 44 3a 50 52 4f 43 3b 20 2f 2a 20 53 49 44 42 59 54 45 20 2a 2f 20 20 20 20 20 20 20 ┆NYSID:PROC; /* SIDBYTE */ ┆
0x3cc33…3cc53 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3cc53…3cc62 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3cc62…3cc82 (72, 0, 7) 50 55 54 20 53 4b 49 50 28 52 41 44 4d 41 58 2d 52 41 44 29 3b 20 20 20 20 20 20 20 20 20 20 20 ┆PUT SKIP(RADMAX-RAD); ┆
0x3cc82…3cca2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3cca2…3ccb1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3ccb1…3ccd1 (72, 0, 8) 4e 59 53 49 44 58 3a 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 ┆NYSIDX:RETURN;END; ┆
0x3ccd1…3ccf1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3ccf1…3cd00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3cd00…3cd4f (72, 0, 9) 0x20[0x4f]
0x3cd4f…3cd6f (72, 0, 10) 2f 2a 20 48 20 55 20 56 20 55 20 44 20 2d 20 50 20 52 20 4f 20 47 20 52 20 41 20 4d 20 2a 2f 20 ┆/* H U V U D - P R O G R A M */ ┆
0x3cd6f…3cd8f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3cd8f…3cd9e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3cd9e…3cded (72, 0, 11) 0x20[0x4f]
0x3cded…3ce0d (72, 0, 12) 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┆
0x3ce0d…3ce2d 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; ┆
0x3ce2d…3ce3c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3ce3c…3ce5c (72, 0, 13) 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┆
0x3ce5c…3ce7c 20 44 41 47 3d 27 58 58 58 58 58 58 27 20 54 48 45 4e 20 47 4f 20 54 4f 20 55 54 3b 20 20 20 20 ┆ DAG='XXXXXX' THEN GO TO UT; ┆
0x3ce7c…3ce8b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3ce8b…3ceab (72, 0, 14) 44 4f 20 49 3d 31 20 54 4f 20 31 34 3b 58 53 4b 28 49 29 3d 53 4b 28 49 29 3b 45 4e 44 3b 20 20 ┆DO I=1 TO 14;XSK(I)=SK(I);END; ┆
0x3ceab…3cecb 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3cecb…3ceda 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3ceda…3cefa (72, 0, 15) 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)┆
0x3cefa…3cf1a 29 28 27 2a 2a 2a 20 20 20 20 20 20 20 20 20 20 20 48 55 56 55 44 42 4f 4b 20 20 20 20 20 20 20 ┆)('*** HUVUDBOK ┆
0x3cf1a…3cf29 20 20 20 20 20 2a 2a 2a 27 29 20 20 20 20 20 ┆ ***') ┆
0x3cf29…3cf49 (72, 0, 16) 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'┆
0x3cf49…3cf69 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.')(┆
0x3cf69…3cf78 41 28 33 37 29 29 3b 20 20 20 20 20 20 20 20 ┆A(37)); ┆
0x3cf78…3cf98 (72, 0, 17) 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); ┆
0x3cf98…3cfb8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3cfb8…3cfc7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3cfc7…3cfe7 (72, 0, 18) 54 41 42 3a 50 55 54 20 46 49 4c 45 28 44 29 53 4b 49 50 20 45 44 49 54 28 27 56 49 4c 4b 45 4e ┆TAB:PUT FILE(D)SKIP EDIT('VILKEN┆
0x3cfe7…3d007 20 54 59 50 20 41 56 20 4b 5c 52 4e 49 4e 47 3f 27 29 28 41 28 33 37 29 29 20 20 20 20 20 20 20 ┆ TYP AV KÖRNING?')(A(37)) ┆
0x3d007…3d016 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3d016…3d036 (72, 0, 19) 28 27 22 31 22 3d 45 4e 44 41 53 54 20 4c 49 53 54 41 2c 4d 45 44 20 54 4f 54 41 4c 45 52 2f 4b ┆('"1"=ENDAST LISTA,MED TOTALER/K┆
0x3d036…3d056 4f 4e 54 4f 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 ┆ONTO')(A(37)) ┆
0x3d056…3d065 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3d065…3d085 (72, 0, 20) 28 27 22 32 22 3d 20 2d 2d 2d 2d 22 2d 2d 2d 2d 20 20 2c 4d 45 4e 20 4d 45 44 20 44 45 4c 53 55 ┆('"2"= ----"---- ,MEN MED DELSU┆
0x3d085…3d0a5 4d 4d 4f 52 20 20 20 20 20 20 20 50 45 52 20 41 56 44 45 4c 4e 49 4e 47 27 29 28 41 28 37 34 29 ┆MMOR PER AVDELNING')(A(74)┆
0x3d0a5…3d0b4 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆) ┆
0x3d0b4…3d0d4 (72, 0, 21) 28 27 22 33 22 3d 4b 4f 4d 42 49 4e 45 52 41 44 20 4c 49 53 54 41 20 4f 43 48 20 52 45 47 49 53 ┆('"3"=KOMBINERAD LISTA OCH REGIS┆
0x3d0d4…3d0f4 54 52 45 52 49 4e 47 20 20 20 20 46 5c 52 20 52 45 53 55 4c 54 41 54 2d 20 4f 43 48 20 42 41 4c ┆TRERING FÖR RESULTAT- OCH BAL┆
0x3d0f4…3d103 41 4e 53 52 5b 4b 4e 49 4e 47 27 29 20 20 20 ┆ANSRÄKNING') ┆
0x3d103…3d123 (72, 0, 22) 28 41 28 37 34 29 29 3b 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 53 29 3b 49 46 20 56 45 52 49 ┆(A(74));GET SKIP LIST(S);IF VERI┆
0x3d123…3d143 46 59 28 53 2c 27 31 32 33 27 29 3d 30 20 54 48 45 4e 20 47 4f 20 54 4f 20 54 41 42 3b 20 20 20 ┆FY(S,'123')=0 THEN GO TO TAB; ┆
0x3d143…3d152 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3d152…3d172 (72, 0, 23) 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; ┆
0x3d172…3d192 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3d192…3d1a1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3d1a1…3d1c1 (72, 0, 24) 49 46 20 53 3d 27 33 27 20 54 48 45 4e 20 58 53 4b 28 31 33 29 3d 27 20 27 3b 52 45 57 52 49 54 ┆IF S='3' THEN XSK(13)=' ';REWRIT┆
0x3d1c1…3d1e1 45 20 46 49 4c 45 28 44 41 54 46 49 4c 29 46 52 4f 4d 28 58 44 41 54 52 45 43 29 3b 20 20 20 20 ┆E FILE(DATFIL)FROM(XDATREC); ┆
0x3d1e1…3d1f0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3d1f0…3d210 (72, 0, 25) 50 55 54 20 46 49 4c 45 28 44 29 20 45 44 49 54 28 27 20 27 29 28 41 28 34 32 29 29 28 27 2a 2a ┆PUT FILE(D) EDIT(' ')(A(42))('**┆
0x3d210…3d230 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 39 29 29 3b 20 20 ┆* UTSKRIFT PÅGÅR ***')(A(69)); ┆
0x3d230…3d23f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3d23f…3d25f (72, 0, 26) 49 46 20 53 3d 27 31 27 20 54 48 45 4e 20 44 4f 3b 52 45 47 3d 30 3b 44 45 4c 3d 30 3b 45 4e 44 ┆IF S='1' THEN DO;REG=0;DEL=0;END┆
0x3d25f…3d27f 3b 49 46 20 53 3d 27 32 27 20 54 48 45 4e 20 44 4f 3b 52 45 47 3d 30 3b 44 45 4c 3d 31 3b 45 4e ┆;IF S='2' THEN DO;REG=0;DEL=1;EN┆
0x3d27f…3d28e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆D; ┆
0x3d28e…3d2ae (72, 0, 27) 49 46 20 53 3d 27 33 27 20 54 48 45 4e 20 44 4f 3b 52 45 47 3d 31 3b 44 45 4c 3d 30 3b 45 4e 44 ┆IF S='3' THEN DO;REG=1;DEL=0;END┆
0x3d2ae…3d2ce 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 ┆; ┆
0x3d2ce…3d2dd 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3d2dd…3d2fd (72, 0, 28) 4e 59 52 45 47 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 ┆NYREG=1; ┆
0x3d2fd…3d31d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3d31d…3d32c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3d32c…3d34c (72, 0, 29) 49 46 20 52 45 47 3d 31 20 54 48 45 4e 20 44 4f 3b 53 4d 4e 52 3d 4d 4e 52 3b 42 55 44 3d 27 20 ┆IF REG=1 THEN DO;SMNR=MNR;BUD=' ┆
0x3d34c…3d36c 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 ┆'; ┆
0x3d36c…3d37b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3d37b…3d39b (72, 0, 30) 4f 4e 20 45 52 52 4f 52 20 47 4f 20 54 4f 20 4f 4b 3b 52 45 41 44 20 4b 45 59 28 53 53 54 52 32 ┆ON ERROR GO TO OK;READ KEY(SSTR2┆
0x3d39b…3d3bb 29 46 49 4c 45 28 53 41 4d 46 49 4c 29 49 4e 54 4f 28 53 41 4d 29 4b 45 59 54 4f 28 53 53 54 52 ┆)FILE(SAMFIL)INTO(SAM)KEYTO(SSTR┆
0x3d3bb…3d3ca 32 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆2); ┆
0x3d3ca…3d3ea (72, 0, 31) 4e 59 52 45 47 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 ┆NYREG=0; ┆
0x3d3ea…3d40a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3d40a…3d419 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3d419…3d439 (72, 0, 32) 4f 4b 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 ┆OK:END; ┆
0x3d439…3d459 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3d459…3d468 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3d468…3d488 (72, 0, 33) 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 50 44 3d 30 3b 50 ┆JUMP=0;RAD=5;SIDA=0;IND=1;PD=0;P┆
0x3d488…3d4a8 4b 3d 30 3b 41 44 3d 30 3b 41 4b 3d 30 3b 4b 44 3d 30 3b 4b 4b 3d 30 3b 54 44 3d 30 3b 54 4b 3d ┆K=0;AD=0;AK=0;KD=0;KK=0;TD=0;TK=┆
0x3d4a8…3d4b7 30 3b 4b 49 42 3d 30 3b 51 3d 30 3b 20 20 20 ┆0;KIB=0;Q=0; ┆
0x3d4b7…3d4d7 (72, 0, 34) 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; ┆
0x3d4d7…3d4f7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3d4f7…3d506 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3d506…3d526 (72, 0, 35) 4f 4e 20 45 4e 44 46 49 4c 45 20 47 4f 20 54 4f 20 53 4c 55 54 54 3b 52 45 41 44 20 46 49 4c 45 ┆ON ENDFILE GO TO SLUTT;READ FILE┆
0x3d526…3d546 28 56 45 52 46 49 4c 29 49 4e 54 4f 28 56 45 52 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆(VERFIL)INTO(VER); ┆
0x3d546…3d555 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3d555…3d575 (72, 0, 36) 58 50 52 4f 4a 3d 50 52 4f 4a 3b 58 41 56 44 3d 41 56 44 3b 58 4b 4f 3d 4b 4f 3b 58 44 41 54 3d ┆XPROJ=PROJ;XAVD=AVD;XKO=KO;XDAT=┆
0x3d575…3d595 44 41 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 ┆DAT; ┆
0x3d595…3d5a4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3d5a4…3d5f3 (72, 0, 37) 0x20[0x4f]
0x3d5f3…3d613 (72, 0, 38) 52 55 42 3a 53 49 44 41 3d 53 49 44 41 2b 31 3b 43 41 4c 4c 20 46 54 52 3b 43 41 4c 4c 20 52 55 ┆RUB:SIDA=SIDA+1;CALL FTR;CALL RU┆
0x3d613…3d633 42 52 55 54 3b 50 55 54 20 53 4b 49 50 20 45 44 49 54 28 27 20 27 29 28 41 28 56 4d 2b 33 30 29 ┆BRUT;PUT SKIP EDIT(' ')(A(VM+30)┆
0x3d633…3d642 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆); ┆
0x3d642…3d662 (72, 0, 39) 49 46 20 44 45 4c 3d 31 20 54 48 45 4e 20 50 55 54 20 45 44 49 54 28 27 55 50 50 44 45 4c 41 44 ┆IF DEL=1 THEN PUT EDIT('UPPDELAD┆
0x3d662…3d682 20 50 45 52 20 41 56 44 2e 27 29 28 41 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PER AVD.')(A); ┆
0x3d682…3d691 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3d691…3d6b1 (72, 0, 40) 49 46 20 52 45 47 3d 31 20 54 48 45 4e 20 50 55 54 20 45 44 49 54 28 27 4d 45 44 20 52 45 47 2e ┆IF REG=1 THEN PUT EDIT('MED REG.┆
0x3d6b1…3d6d1 20 46 5c 52 20 42 41 4c 41 4e 53 2d 20 4f 43 48 20 52 45 53 55 4c 54 41 54 2e 27 29 28 41 29 3b ┆ FÖR BALANS- OCH RESULTAT.')(A);┆
0x3d6d1…3d6e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3d6e0…3d700 (73, 0, 0) 50 55 54 20 53 4b 49 50 28 32 29 20 45 44 49 54 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆PUT SKIP(2) EDIT ┆
0x3d700…3d720 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3d720…3d72f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3d72f…3d74f (73, 0, 1) 28 27 4b 4f 4e 54 4f 27 29 28 41 28 31 30 29 29 28 27 41 56 44 2e 27 29 28 41 28 36 29 29 28 27 ┆('KONTO')(A(10))('AVD.')(A(6))('┆
0x3d74f…3d76f 42 4f 4b 46 2e 44 41 54 27 29 28 41 28 31 30 29 29 28 27 54 59 50 27 29 28 41 28 35 29 29 28 27 ┆BOKF.DAT')(A(10))('TYP')(A(5))('┆
0x3d76f…3d77e 56 45 52 2e 4e 52 27 29 28 41 28 32 33 29 29 ┆VER.NR')(A(23))┆
0x3d77e…3d79e (73, 0, 2) 28 27 44 45 42 45 54 27 29 28 41 28 31 37 29 29 28 27 4b 52 45 44 49 54 27 29 28 41 28 31 35 29 ┆('DEBET')(A(17))('KREDIT')(A(15)┆
0x3d79e…3d7be 29 28 27 4d 5d 4e 2e 53 41 4c 44 4f 27 29 28 41 28 32 31 29 29 20 20 20 20 20 20 20 20 20 20 20 ┆)('MÅN.SALDO')(A(21)) ┆
0x3d7be…3d7cd 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3d7cd…3d7ed (73, 0, 3) 28 27 55 54 47 2e 53 41 4c 44 4f 27 29 28 41 29 53 4b 49 50 3b 52 41 44 3d 52 41 44 2b 34 3b 20 ┆('UTG.SALDO')(A)SKIP;RAD=RAD+4; ┆
0x3d7ed…3d80d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3d80d…3d81c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3d81c…3d83c (73, 0, 4) 49 46 20 4a 55 4d 50 3d 30 20 54 48 45 4e 20 47 4f 20 54 4f 20 4e 59 3b 49 46 20 4a 55 4d 50 3d ┆IF JUMP=0 THEN GO TO NY;IF JUMP=┆
0x3d83c…3d85c 31 20 54 48 45 4e 20 47 4f 20 54 4f 20 50 52 54 3b 49 46 20 4a 55 4d 50 3d 32 20 54 48 45 4e 20 ┆1 THEN GO TO PRT;IF JUMP=2 THEN ┆
0x3d85c…3d86b 47 4f 20 54 4f 20 4e 59 50 52 4f 4a 3b 20 20 ┆GO TO NYPROJ; ┆
0x3d86b…3d88b (73, 0, 5) 49 46 20 4a 55 4d 50 3d 33 20 54 48 45 4e 20 47 4f 20 54 4f 20 4e 59 41 56 44 3b 49 46 20 4a 55 ┆IF JUMP=3 THEN GO TO NYAVD;IF JU┆
0x3d88b…3d8ab 4d 50 3d 34 20 54 48 45 4e 20 47 4f 20 54 4f 20 4e 59 4b 4f 3b 20 20 20 20 20 20 20 20 20 20 20 ┆MP=4 THEN GO TO NYKO; ┆
0x3d8ab…3d8ba 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3d8ba…3d8da (73, 0, 6) 4e 59 3a 55 4e 53 50 45 43 28 53 41 4d 46 49 4c 29 3d 52 45 43 4e 52 3b 4b 49 42 3d 30 3b 20 20 ┆NY:UNSPEC(SAMFIL)=RECNR;KIB=0; ┆
0x3d8da…3d8fa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3d8fa…3d909 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3d909…3d929 (73, 0, 7) 4f 4e 20 45 52 52 4f 52 20 47 4f 20 54 4f 20 50 52 54 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ON ERROR GO TO PRT; ┆
0x3d929…3d949 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3d949…3d958 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3d958…3d978 (73, 0, 8) 52 45 41 44 20 4b 45 59 28 4b 4f 29 46 49 4c 45 28 53 41 4d 46 49 4c 29 49 4e 54 4f 28 53 41 4d ┆READ KEY(KO)FILE(SAMFIL)INTO(SAM┆
0x3d978…3d998 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆); ┆
0x3d998…3d9a7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3d9a7…3d9c7 (73, 0, 9) 52 45 43 4e 52 3d 55 4e 53 50 45 43 28 53 41 4d 46 49 4c 29 3b 20 20 20 20 20 20 20 20 20 20 20 ┆RECNR=UNSPEC(SAMFIL); ┆
0x3d9c7…3d9e7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3d9e7…3d9f6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3d9f6…3da16 (73, 0, 10) 54 45 53 54 3a 49 46 20 53 4b 4f 7f 3d 4b 4f 20 54 48 45 4e 20 47 4f 20 54 4f 20 50 52 54 3b 20 ┆TEST:IF SKO =KO THEN GO TO PRT; ┆
0x3da16…3da36 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3da36…3da45 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3da45…3da65 (73, 0, 11) 49 46 20 53 4d 4e 52 3c 4d 4e 52 26 42 55 44 3d 27 20 27 20 54 48 45 4e 20 4b 49 42 3d 4b 49 42 ┆IF SMNR<MNR&BUD=' ' THEN KIB=KIB┆
0x3da65…3da85 2b 53 41 44 2d 53 41 4b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆+SAD-SAK; ┆
0x3da85…3da94 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3da94…3dab4 (73, 0, 12) 4f 4e 20 45 4e 44 46 49 4c 45 20 47 4f 20 54 4f 20 50 52 54 3b 20 20 20 20 20 20 20 20 20 20 20 ┆ON ENDFILE GO TO PRT; ┆
0x3dab4…3dad4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3dad4…3dae3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3dae3…3db03 (73, 0, 13) 52 45 41 44 20 46 49 4c 45 28 53 41 4d 46 49 4c 29 49 4e 54 4f 28 53 41 4d 29 3b 20 20 20 20 20 ┆READ FILE(SAMFIL)INTO(SAM); ┆
0x3db03…3db23 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3db23…3db32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3db32…3db52 (73, 0, 14) 47 4f 20 54 4f 20 54 45 53 54 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆GO TO TEST; ┆
0x3db52…3db72 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3db72…3db81 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3db81…3dbd0 (73, 0, 15) 0x20[0x4f]
0x3dbd0…3dbf0 (73, 0, 16) 50 52 54 3a 4a 55 4d 50 3d 31 3b 49 46 20 52 41 44 3e 28 52 41 44 4d 41 58 2d 36 29 20 54 48 45 ┆PRT:JUMP=1;IF RAD>(RADMAX-6) THE┆
0x3dbf0…3dc10 4e 20 44 4f 3b 43 41 4c 4c 20 4e 59 53 49 44 3b 47 4f 20 54 4f 20 52 55 42 3b 45 4e 44 3b 20 20 ┆N DO;CALL NYSID;GO TO RUB;END; ┆
0x3dc10…3dc1f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3dc1f…3dc3f (73, 0, 17) 49 46 20 49 4e 44 3d 31 7c 4b 4f 7f 3d 58 4b 4f 20 54 48 45 4e 20 50 55 54 20 53 4b 49 50 20 45 ┆IF IND=1öKO =XKO THEN PUT SKIP E┆
0x3dc3f…3dc5f 44 49 54 28 4b 4f 29 28 41 28 39 29 29 3b 45 4c 53 45 20 50 55 54 20 53 4b 49 50 20 45 44 49 54 ┆DIT(KO)(A(9));ELSE PUT SKIP EDIT┆
0x3dc5f…3dc6e 28 27 20 27 29 28 41 28 39 29 29 3b 20 20 20 ┆(' ')(A(9)); ┆
0x3dc6e…3dc8e (73, 0, 18) 52 41 44 3d 52 41 44 2b 31 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆RAD=RAD+1; ┆
0x3dc8e…3dcae 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3dcae…3dcbd 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3dcbd…3dcdd (73, 0, 19) 49 46 20 49 4e 44 3d 31 7c 58 41 56 44 7f 3d 41 56 44 7c 58 4b 4f 7f 3d 4b 4f 20 54 48 45 4e 20 ┆IF IND=1öXAVD =AVDöXKO =KO THEN ┆
0x3dcdd…3dcfd 50 55 54 20 45 44 49 54 28 41 56 44 29 28 50 27 5a 5a 5a 39 20 20 20 27 29 3b 20 20 20 20 20 20 ┆PUT EDIT(AVD)(P'ZZZ9 '); ┆
0x3dcfd…3dd0c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3dd0c…3dd2c (73, 0, 20) 45 4c 53 45 20 50 55 54 20 45 44 49 54 28 27 20 27 29 28 41 28 37 29 29 3b 20 20 20 20 20 20 20 ┆ELSE PUT EDIT(' ')(A(7)); ┆
0x3dd2c…3dd4c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3dd4c…3dd5b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3dd5b…3dd7b (73, 0, 21) 49 46 20 49 4e 44 3d 31 7c 44 41 54 7f 3d 58 44 41 54 7c 58 4b 4f 7f 3d 4b 4f 20 54 48 45 4e 20 ┆IF IND=1öDAT =XDATöXKO =KO THEN ┆
0x3dd7b…3dd9b 50 55 54 20 45 44 49 54 28 44 41 54 29 28 50 27 5a 5a 5a 39 39 2e 39 39 27 2c 58 28 34 29 29 3b ┆PUT EDIT(DAT)(P'ZZZ99.99',X(4));┆
0x3dd9b…3ddaa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3ddaa…3ddca (73, 0, 22) 45 4c 53 45 20 50 55 54 20 45 44 49 54 28 27 20 27 29 28 41 28 31 32 29 29 3b 20 20 20 20 20 20 ┆ELSE PUT EDIT(' ')(A(12)); ┆
0x3ddca…3ddea 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3ddea…3ddf9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3ddf9…3de19 (73, 0, 23) 50 55 54 20 45 44 49 54 28 54 59 50 29 28 41 28 32 29 29 28 56 45 52 4e 52 29 28 50 27 5a 5a 5a ┆PUT EDIT(TYP)(A(2))(VERNR)(P'ZZZ┆
0x3de19…3de39 5a 5a 5a 39 27 2c 58 28 34 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ZZZ9',X(4)); ┆
0x3de39…3de48 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3de48…3de68 (73, 0, 24) 49 46 20 4b 4f 44 3d 27 4b 27 20 54 48 45 4e 20 50 55 54 20 45 44 49 54 28 27 20 27 29 28 41 28 ┆IF KOD='K' THEN PUT EDIT(' ')(A(┆
0x3de68…3de88 31 38 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 ┆18)); ┆
0x3de88…3de97 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3de97…3deb7 (73, 0, 25) 50 55 54 20 45 44 49 54 28 42 45 4c 29 28 50 43 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆PUT EDIT(BEL)(PC); ┆
0x3deb7…3ded7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3ded7…3dee6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3dee6…3df06 (73, 0, 26) 49 4e 44 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 ┆IND=0; ┆
0x3df06…3df26 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3df26…3df35 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3df35…3df55 (73, 0, 27) 58 44 41 54 3d 44 41 54 3b 58 50 52 4f 4a 3d 50 52 4f 4a 3b 58 41 56 44 3d 41 56 44 3b 58 4b 4f ┆XDAT=DAT;XPROJ=PROJ;XAVD=AVD;XKO┆
0x3df55…3df75 3d 4b 4f 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 ┆=KO; ┆
0x3df75…3df84 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3df84…3dfa4 (73, 0, 28) 49 46 20 4b 4f 44 3d 27 44 27 20 54 48 45 4e 20 50 44 3d 50 44 2b 42 45 4c 3b 45 4c 53 45 20 50 ┆IF KOD='D' THEN PD=PD+BEL;ELSE P┆
0x3dfa4…3dfc4 4b 3d 50 4b 2b 42 45 4c 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆K=PK+BEL; ┆
0x3dfc4…3dfd3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3dfd3…3dff3 (73, 0, 29) 4f 4e 20 45 4e 44 46 49 4c 45 20 47 4f 20 54 4f 20 53 49 53 54 41 3b 20 20 20 20 20 20 20 20 20 ┆ON ENDFILE GO TO SISTA; ┆
0x3dff3…3e013 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3e013…3e022 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3e022…3e042 (73, 0, 30) 52 45 41 44 20 46 49 4c 45 28 56 45 52 46 49 4c 29 49 4e 54 4f 28 56 45 52 29 3b 20 20 20 20 20 ┆READ FILE(VERFIL)INTO(VER); ┆
0x3e042…3e062 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3e062…3e071 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3e071…3e091 (73, 0, 31) 54 45 53 54 32 3a 49 46 20 49 4e 44 3d 2d 31 7c 4b 4f 7f 3d 58 4b 4f 7c 41 56 44 7f 3d 58 41 56 ┆TEST2:IF IND=-1öKO =XKOöAVD =XAV┆
0x3e091…3e0b1 44 7c 50 52 4f 4a 7f 3d 58 50 52 4f 4a 20 54 48 45 4e 20 47 4f 20 54 4f 20 4e 59 50 52 4f 4a 3b ┆DöPROJ =XPROJ THEN GO TO NYPROJ;┆
0x3e0b1…3e0c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3e0c0…3e0e0 (73, 0, 32) 47 4f 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 ┆GO TO PRT; ┆
0x3e0e0…3e100 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3e100…3e10f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3e10f…3e15e (73, 0, 33) 0x20[0x4f]
0x3e15e…3e17e (73, 0, 34) 4e 59 50 52 4f 4a 3a 4a 55 4d 50 3d 32 3b 49 46 20 52 41 44 3e 28 52 41 44 4d 41 58 2d 36 29 20 ┆NYPROJ:JUMP=2;IF RAD>(RADMAX-6) ┆
0x3e17e…3e19e 54 48 45 4e 20 44 4f 3b 43 41 4c 4c 20 4e 59 53 49 44 3b 47 4f 20 54 4f 20 52 55 42 3b 45 4e 44 ┆THEN DO;CALL NYSID;GO TO RUB;END┆
0x3e19e…3e1ad 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆; ┆
0x3e1ad…3e1cd (73, 0, 35) 49 46 20 58 4b 4f 3e 32 39 39 39 26 52 45 47 3d 31 20 54 48 45 4e 20 44 4f 3b 20 20 20 20 20 20 ┆IF XKO>2999®=1 THEN DO; ┆
0x3e1cd…3e1ed 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3e1ed…3e1fc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3e1fc…3e21c (73, 0, 36) 53 4b 4f 3d 58 4b 4f 3b 53 41 56 44 3d 58 41 56 44 3b 53 50 52 4f 4a 3d 58 50 52 4f 4a 3b 53 4d ┆SKO=XKO;SAVD=XAVD;SPROJ=XPROJ;SM┆
0x3e21c…3e23c 4e 52 3d 4d 4e 52 3b 42 55 44 3d 27 20 27 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆NR=MNR;BUD=' '; ┆
0x3e23c…3e24b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3e24b…3e26b (73, 0, 37) 49 46 20 4e 59 52 45 47 3d 31 20 54 48 45 4e 20 47 4f 20 54 4f 20 57 52 50 3b 20 20 20 20 20 20 ┆IF NYREG=1 THEN GO TO WRP; ┆
0x3e26b…3e28b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3e28b…3e29a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3e29a…3e2ba (73, 0, 38) 4f 4e 20 45 52 52 4f 52 20 47 4f 20 54 4f 20 57 52 50 3b 52 45 41 44 20 4b 45 59 28 53 53 54 52 ┆ON ERROR GO TO WRP;READ KEY(SSTR┆
0x3e2ba…3e2da 29 46 49 4c 45 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 ┆)FILE(SAMFIL)INTO(SAM); ┆
0x3e2da…3e2e9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3e2e9…3e309 (73, 0, 39) 53 41 44 3d 50 44 3b 53 41 4b 3d 50 4b 3b 48 4a 4b 4f 44 3d 27 20 27 3b 20 20 20 20 20 20 20 20 ┆SAD=PD;SAK=PK;HJKOD=' '; ┆
0x3e309…3e329 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3e329…3e338 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3e338…3e358 (73, 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 53 41 4d 29 3b 20 20 ┆REWRITE FILE(SAMFIL)FROM(SAM); ┆
0x3e358…3e378 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3e378…3e387 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3e387…3e3a7 (74, 0, 0) 47 4f 20 54 4f 20 50 4b 4c 41 52 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆GO TO PKLAR; ┆
0x3e3a7…3e3c7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3e3c7…3e3d6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3e3d6…3e3f6 (74, 0, 1) 57 52 50 3a 55 4e 53 50 45 43 28 53 41 4d 46 49 4c 29 3d 30 3b 43 41 4c 4c 20 53 45 4f 46 28 53 ┆WRP:UNSPEC(SAMFIL)=0;CALL SEOF(S┆
0x3e3f6…3e416 41 4d 46 49 4c 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 ┆AMFIL); ┆
0x3e416…3e425 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3e425…3e445 (74, 0, 2) 53 41 44 3d 50 44 3b 53 41 4b 3d 50 4b 3b 48 4a 4b 4f 44 3d 27 20 27 3b 20 20 20 20 20 20 20 20 ┆SAD=PD;SAK=PK;HJKOD=' '; ┆
0x3e445…3e465 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3e465…3e474 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3e474…3e494 (74, 0, 3) 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 29 3b 43 4c 4f 53 ┆WRITE FILE(SAMFIL)FROM(SAM);CLOS┆
0x3e494…3e4b4 45 20 53 41 4d 46 49 4c 3b 4f 50 45 4e 20 53 41 4d 46 49 4c 3b 45 4e 44 3b 20 20 20 20 20 20 20 ┆E SAMFIL;OPEN SAMFIL;END; ┆
0x3e4b4…3e4c3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3e4c3…3e4e3 (74, 0, 4) 50 4b 4c 41 52 3a 41 44 3d 41 44 2b 50 44 3b 41 4b 3d 41 4b 2b 50 4b 3b 50 44 3d 30 3b 50 4b 3d ┆PKLAR:AD=AD+PD;AK=AK+PK;PD=0;PK=┆
0x3e4e3…3e503 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 20 ┆0; ┆
0x3e503…3e512 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3e512…3e532 (74, 0, 5) 49 46 20 49 4e 44 3d 2d 31 7c 4b 4f 7f 3d 58 4b 4f 7c 41 56 44 7f 3d 58 41 56 44 20 54 48 45 4e ┆IF IND=-1öKO =XKOöAVD =XAVD THEN┆
0x3e532…3e552 20 47 4f 20 54 4f 20 4e 59 41 56 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GO TO NYAVD; ┆
0x3e552…3e561 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3e561…3e581 (74, 0, 6) 47 4f 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 ┆GO TO PRT; ┆
0x3e581…3e5a1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3e5a1…3e5b0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3e5b0…3e5ff (74, 0, 7) 0x20[0x4f]
0x3e5ff…3e61f (74, 0, 8) 4e 59 41 56 44 3a 4a 55 4d 50 3d 33 3b 49 46 20 52 41 44 3e 28 52 41 44 4d 41 58 2d 36 29 20 54 ┆NYAVD:JUMP=3;IF RAD>(RADMAX-6) T┆
0x3e61f…3e63f 48 45 4e 20 44 4f 3b 43 41 4c 4c 20 4e 59 53 49 44 3b 47 4f 20 54 4f 20 52 55 42 3b 45 4e 44 3b ┆HEN DO;CALL NYSID;GO TO RUB;END;┆
0x3e63f…3e64e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3e64e…3e66e (74, 0, 9) 49 46 20 58 4b 4f 3d 4b 4f 26 58 41 56 44 7f 3d 41 56 44 20 54 48 45 4e 20 51 3d 31 3b 20 20 20 ┆IF XKO=KO&XAVD =AVD THEN Q=1; ┆
0x3e66e…3e68e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3e68e…3e69d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3e69d…3e6bd (74, 0, 10) 49 46 20 44 45 4c 3d 31 26 51 3d 31 20 54 48 45 4e 20 44 4f 3b 50 55 54 20 53 4b 49 50 20 45 44 ┆IF DEL=1&Q=1 THEN DO;PUT SKIP ED┆
0x3e6bd…3e6dd 49 54 28 27 20 20 20 20 20 54 4f 54 41 4c 54 20 41 56 44 27 29 28 41 28 31 36 29 29 28 58 41 56 ┆IT(' TOTALT AVD')(A(16))(XAV┆
0x3e6dd…3e6ec 44 29 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆D) ┆
0x3e6ec…3e70c (74, 0, 11) 28 50 27 5a 5a 39 27 2c 58 28 32 33 29 29 28 41 44 29 28 50 43 43 43 29 28 41 4b 29 28 50 43 43 ┆(P'ZZ9',X(23))(AD)(PCCC)(AK)(PCC┆
0x3e70c…3e72c 43 29 28 41 44 2d 41 4b 29 28 50 43 43 43 29 53 4b 49 50 3b 52 41 44 3d 52 41 44 2b 32 3b 45 4e ┆C)(AD-AK)(PCCC)SKIP;RAD=RAD+2;EN┆
0x3e72c…3e73b 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆D; ┆
0x3e73b…3e75b (74, 0, 12) 49 46 20 58 4b 4f 3d 31 32 31 30 26 52 45 47 3d 31 20 54 48 45 4e 20 44 4f 3b 20 20 20 20 20 20 ┆IF XKO=1210®=1 THEN DO; ┆
0x3e75b…3e77b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3e77b…3e78a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3e78a…3e7aa (74, 0, 13) 53 4b 4f 3d 58 4b 4f 3b 53 41 56 44 3d 58 41 56 44 3b 53 50 52 4f 4a 3d 58 50 52 4f 4a 3b 53 4d ┆SKO=XKO;SAVD=XAVD;SPROJ=XPROJ;SM┆
0x3e7aa…3e7ca 4e 52 3d 4d 4e 52 3b 42 55 44 3d 27 20 27 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆NR=MNR;BUD=' '; ┆
0x3e7ca…3e7d9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3e7d9…3e7f9 (74, 0, 14) 49 46 20 4e 59 52 45 47 3d 31 20 54 48 45 4e 20 47 4f 20 54 4f 20 57 52 41 3b 20 20 20 20 20 20 ┆IF NYREG=1 THEN GO TO WRA; ┆
0x3e7f9…3e819 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3e819…3e828 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3e828…3e848 (74, 0, 15) 4f 4e 20 45 52 52 4f 52 20 47 4f 20 54 4f 20 57 52 41 3b 52 45 41 44 20 4b 45 59 28 53 53 54 52 ┆ON ERROR GO TO WRA;READ KEY(SSTR┆
0x3e848…3e868 29 46 49 4c 45 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 ┆)FILE(SAMFIL)INTO(SAM); ┆
0x3e868…3e877 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3e877…3e897 (74, 0, 16) 53 41 44 3d 41 44 3b 53 41 4b 3d 41 4b 3b 48 4a 4b 4f 44 3d 27 20 27 3b 20 20 20 20 20 20 20 20 ┆SAD=AD;SAK=AK;HJKOD=' '; ┆
0x3e897…3e8b7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3e8b7…3e8c6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3e8c6…3e8e6 (74, 0, 17) 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 29 3b 20 20 ┆REWRITE FILE(SAMFIL)FROM(SAM); ┆
0x3e8e6…3e906 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3e906…3e915 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3e915…3e935 (74, 0, 18) 47 4f 20 54 4f 20 41 4b 4c 41 52 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆GO TO AKLAR; ┆
0x3e935…3e955 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3e955…3e964 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3e964…3e984 (74, 0, 19) 57 52 41 3a 55 4e 53 50 45 43 28 53 41 4d 46 49 4c 29 3d 30 3b 43 41 4c 4c 20 53 45 4f 46 28 53 ┆WRA:UNSPEC(SAMFIL)=0;CALL SEOF(S┆
0x3e984…3e9a4 41 4d 46 49 4c 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 ┆AMFIL); ┆
0x3e9a4…3e9b3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3e9b3…3e9d3 (74, 0, 20) 53 41 44 3d 41 44 3b 53 41 4b 3d 41 4b 3b 48 4a 4b 4f 44 3d 27 20 27 3b 20 20 20 20 20 20 20 20 ┆SAD=AD;SAK=AK;HJKOD=' '; ┆
0x3e9d3…3e9f3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3e9f3…3ea02 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3ea02…3ea22 (74, 0, 21) 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 29 3b 43 4c 4f 53 ┆WRITE FILE(SAMFIL)FROM(SAM);CLOS┆
0x3ea22…3ea42 45 20 53 41 4d 46 49 4c 3b 4f 50 45 4e 20 53 41 4d 46 49 4c 3b 45 4e 44 3b 20 20 20 20 20 20 20 ┆E SAMFIL;OPEN SAMFIL;END; ┆
0x3ea42…3ea51 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3ea51…3ea71 (74, 0, 22) 41 4b 4c 41 52 3a 4b 44 3d 4b 44 2b 41 44 3b 4b 4b 3d 4b 4b 2b 41 4b 3b 41 44 3d 30 3b 41 4b 3d ┆AKLAR:KD=KD+AD;KK=KK+AK;AD=0;AK=┆
0x3ea71…3ea91 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 20 ┆0; ┆
0x3ea91…3eaa0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3eaa0…3eac0 (74, 0, 23) 49 46 20 49 4e 44 3d 2d 31 7c 4b 4f 7f 3d 58 4b 4f 20 54 48 45 4e 20 47 4f 20 54 4f 20 4e 59 4b ┆IF IND=-1öKO =XKO THEN GO TO NYK┆
0x3eac0…3eae0 4f 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 ┆O; ┆
0x3eae0…3eaef 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3eaef…3eb0f (74, 0, 24) 47 4f 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 ┆GO TO PRT; ┆
0x3eb0f…3eb2f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3eb2f…3eb3e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3eb3e…3eb5e (74, 0, 25) 4e 59 4b 4f 3a 4a 55 4d 50 3d 34 3b 49 46 20 52 41 44 3e 28 52 41 44 4d 41 58 2d 36 29 20 54 48 ┆NYKO:JUMP=4;IF RAD>(RADMAX-6) TH┆
0x3eb5e…3eb7e 45 4e 20 44 4f 3b 43 41 4c 4c 20 4e 59 53 49 44 3b 47 4f 20 54 4f 20 52 55 42 3b 45 4e 44 3b 20 ┆EN DO;CALL NYSID;GO TO RUB;END; ┆
0x3eb7e…3eb8d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3eb8d…3ebad (74, 0, 26) 49 46 20 58 4b 4f 7f 3d 31 32 31 30 26 58 4b 4f 3c 33 30 30 30 26 52 45 47 3d 31 20 54 48 45 4e ┆IF XKO =1210&XKO<3000®=1 THEN┆
0x3ebad…3ebcd 20 44 4f 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 ┆ DO; ┆
0x3ebcd…3ebdc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3ebdc…3ebfc (74, 0, 27) 53 4b 4f 3d 58 4b 4f 3b 53 41 56 44 3d 30 3b 53 50 52 4f 4a 3d 30 3b 53 4d 4e 52 3d 4d 4e 52 3b ┆SKO=XKO;SAVD=0;SPROJ=0;SMNR=MNR;┆
0x3ebfc…3ec1c 42 55 44 3d 27 20 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 ┆BUD=' '; ┆
0x3ec1c…3ec2b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3ec2b…3ec4b (74, 0, 28) 49 46 20 4e 59 52 45 47 3d 31 20 54 48 45 4e 20 47 4f 20 54 4f 20 57 52 4b 3b 20 20 20 20 20 20 ┆IF NYREG=1 THEN GO TO WRK; ┆
0x3ec4b…3ec6b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3ec6b…3ec7a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3ec7a…3ec9a (74, 0, 29) 4f 4e 20 45 52 52 4f 52 20 47 4f 20 54 4f 20 57 52 4b 3b 52 45 41 44 20 4b 45 59 28 53 53 54 52 ┆ON ERROR GO TO WRK;READ KEY(SSTR┆
0x3ec9a…3ecba 29 46 49 4c 45 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 ┆)FILE(SAMFIL)INTO(SAM); ┆
0x3ecba…3ecc9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3ecc9…3ece9 (74, 0, 30) 53 41 44 3d 4b 44 3b 53 41 4b 3d 4b 4b 3b 48 4a 4b 4f 44 3d 27 20 27 3b 20 20 20 20 20 20 20 20 ┆SAD=KD;SAK=KK;HJKOD=' '; ┆
0x3ece9…3ed09 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3ed09…3ed18 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3ed18…3ed38 (74, 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 53 41 4d 29 3b 47 4f ┆REWRITE FILE(SAMFIL)FROM(SAM);GO┆
0x3ed38…3ed58 20 54 4f 20 4b 4b 4c 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 ┆ TO KKLAR; ┆
0x3ed58…3ed67 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3ed67…3ed87 (74, 0, 32) 57 52 4b 3a 55 4e 53 50 45 43 28 53 41 4d 46 49 4c 29 3d 30 3b 43 41 4c 4c 20 53 45 4f 46 28 53 ┆WRK:UNSPEC(SAMFIL)=0;CALL SEOF(S┆
0x3ed87…3eda7 41 4d 46 49 4c 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 ┆AMFIL); ┆
0x3eda7…3edb6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3edb6…3edd6 (74, 0, 33) 53 41 44 3d 4b 44 3b 53 41 4b 3d 4b 4b 3b 48 4a 4b 4f 44 3d 27 20 27 3b 20 20 20 20 20 20 20 20 ┆SAD=KD;SAK=KK;HJKOD=' '; ┆
0x3edd6…3edf6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3edf6…3ee05 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3ee05…3ee25 (74, 0, 34) 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 29 3b 43 4c 4f 53 ┆WRITE FILE(SAMFIL)FROM(SAM);CLOS┆
0x3ee25…3ee45 45 20 53 41 4d 46 49 4c 3b 4f 50 45 4e 20 53 41 4d 46 49 4c 3b 45 4e 44 3b 20 20 20 20 20 20 20 ┆E SAMFIL;OPEN SAMFIL;END; ┆
0x3ee45…3ee54 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3ee54…3ee74 (74, 0, 35) 4b 4b 4c 41 52 3a 4f 4e 20 45 52 52 4f 52 20 47 4f 20 54 4f 20 45 4a 54 58 54 3b 52 45 41 44 20 ┆KKLAR:ON ERROR GO TO EJTXT;READ ┆
0x3ee74…3ee94 4b 45 59 28 58 4b 4f 29 46 49 4c 45 28 4b 54 4f 54 58 29 49 4e 54 4f 28 4b 54 4f 29 3b 47 4f 20 ┆KEY(XKO)FILE(KTOTX)INTO(KTO);GO ┆
0x3ee94…3eea3 54 4f 20 4b 4f 50 52 54 3b 20 20 20 20 20 20 ┆TO KOPRT; ┆
0x3eea3…3eec3 (74, 0, 36) 45 4a 54 58 54 3a 54 45 58 54 3d 27 2a 2a 2a 20 4b 4f 4e 54 4f 54 20 53 41 4b 4e 41 53 20 49 20 ┆EJTXT:TEXT='*** KONTOT SAKNAS I ┆
0x3eec3…3eee3 4b 4f 4e 54 4f 50 4c 41 4e 45 4e 20 20 20 27 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆KONTOPLANEN '; ┆
0x3eee3…3eef2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3eef2…3ef12 (74, 0, 37) 4b 4f 50 52 54 3a 50 55 54 20 53 4b 49 50 20 45 44 49 54 28 58 4b 4f 29 28 41 28 39 29 29 28 54 ┆KOPRT:PUT SKIP EDIT(XKO)(A(9))(T┆
0x3ef12…3ef32 45 58 54 29 28 41 28 33 35 29 29 28 4b 44 29 28 50 43 43 29 28 4b 4b 29 28 50 43 43 29 28 4b 44 ┆EXT)(A(35))(KD)(PCC)(KK)(PCC)(KD┆
0x3ef32…3ef41 2d 4b 4b 29 28 50 43 43 29 20 20 20 20 20 20 ┆-KK)(PCC) ┆
0x3ef41…3ef61 (74, 0, 38) 28 4b 49 42 2b 4b 44 2d 4b 4b 29 28 50 43 29 53 4b 49 50 3b 52 41 44 3d 52 41 44 2b 32 3b 20 20 ┆(KIB+KD-KK)(PC)SKIP;RAD=RAD+2; ┆
0x3ef61…3ef81 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3ef81…3ef90 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3ef90…3efb0 (74, 0, 39) 54 44 3d 54 44 2b 4b 44 3b 54 4b 3d 54 4b 2b 4b 4b 3b 4b 44 3d 30 3b 4b 4b 3d 30 3b 51 3d 30 3b ┆TD=TD+KD;TK=TK+KK;KD=0;KK=0;Q=0;┆
0x3efb0…3efd0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3efd0…3efdf 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3efdf…3efff (74, 0, 40) 49 46 20 49 4e 44 3d 2d 31 20 54 48 45 4e 20 47 4f 20 54 4f 20 55 54 3b 20 20 20 20 20 20 20 20 ┆IF IND=-1 THEN GO TO UT; ┆
0x3efff…3f01f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3f01f…3f02e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3f02e…3f04e (75, 0, 0) 47 4f 20 54 4f 20 4e 59 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 NY; ┆
0x3f04e…3f06e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3f06e…3f07d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3f07d…3f0cc (75, 0, 1) 0x20[0x4f]
0x3f0cc…3f0ec (75, 0, 2) 53 49 53 54 41 3a 49 4e 44 3d 2d 31 3b 47 4f 20 54 4f 20 54 45 53 54 32 3b 20 20 20 20 20 20 20 ┆SISTA:IND=-1;GO TO TEST2; ┆
0x3f0ec…3f10c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3f10c…3f11b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3f11b…3f13b (75, 0, 3) 55 54 3a 50 55 54 20 53 4b 49 50 28 32 29 45 44 49 54 28 27 2a 2a 2a 2a 20 54 4f 54 41 4c 54 20 ┆UT:PUT SKIP(2)EDIT('**** TOTALT ┆
0x3f13b…3f15b 55 4e 44 45 52 20 4d 5d 4e 41 44 45 4e 3a 27 29 28 41 28 34 31 29 29 28 54 44 29 28 50 43 29 28 ┆UNDER MÅNADEN:')(A(41))(TD)(PC)(┆
0x3f15b…3f16a 54 4b 29 28 50 43 29 3b 20 20 20 20 20 20 20 ┆TK)(PC); ┆
0x3f16a…3f18a (75, 0, 4) 52 41 44 3d 52 41 44 2b 32 3b 43 41 4c 4c 20 4e 59 53 49 44 3b 20 20 20 20 20 20 20 20 20 20 20 ┆RAD=RAD+2;CALL NYSID; ┆
0x3f18a…3f1aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3f1aa…3f1b9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3f1b9…3f1d9 (75, 0, 5) 53 4c 55 54 54 3a 43 41 4c 4c 20 54 59 50 49 53 54 28 27 42 4f 4b 52 55 54 0d 27 2c 37 29 3b 45 ┆SLUTT:CALL TYPIST('BOKRUT ',7);E┆
0x3f1d9…3f1f9 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 20 ┆ND; ┆
0x3f1f9…3f208 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3f208…3f228 (75, 0, 6) 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 46 49 ┆DCL 1 VER,2 KO FIXED(4),2 AVD FI┆
0x3f228…3f248 58 45 44 28 32 29 2c 32 20 50 52 4f 4a 20 46 49 58 45 44 28 34 29 2c 32 20 44 41 54 20 46 49 58 ┆XED(2),2 PROJ FIXED(4),2 DAT FIX┆
0x3f248…3f257 45 44 28 34 29 2c 20 20 20 20 20 20 20 20 20 ┆ED(4), ┆
0x3f257…3f277 (75, 0, 7) 32 20 54 59 50 20 43 48 41 52 28 31 29 2c 32 20 56 45 52 4e 52 20 46 49 58 45 44 28 36 29 2c 32 ┆2 TYP CHAR(1),2 VERNR FIXED(6),2┆
0x3f277…3f297 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 3b 20 ┆ BEL FIXED(11,2),2 KOD CHAR(1); ┆
0x3f297…3f2a6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3f2a6…3f2f5 (75, 0, 8) 0x20[0x4f]
0x3f2f5…3f315 (75, 0, 9) 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),┆
0x3f315…3f335 33 20 53 41 56 44 20 46 49 58 45 44 28 32 29 2c 33 20 53 50 52 4f 4a 20 46 49 58 45 44 28 34 29 ┆3 SAVD FIXED(2),3 SPROJ FIXED(4)┆
0x3f335…3f344 2c 33 20 53 53 54 52 32 2c 20 20 20 20 20 20 ┆,3 SSTR2, ┆
0x3f344…3f364 (75, 0, 10) 34 20 53 4d 4e 52 20 46 49 58 45 44 28 32 29 2c 34 20 42 55 44 20 43 48 41 52 28 31 29 2c 20 20 ┆4 SMNR FIXED(2),4 BUD CHAR(1), ┆
0x3f364…3f384 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3f384…3f393 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3f393…3f3b3 (75, 0, 11) 32 20 53 41 44 20 46 49 58 45 44 28 31 31 2c 32 29 2c 32 20 53 41 4b 20 46 49 58 45 44 28 31 31 ┆2 SAD FIXED(11,2),2 SAK FIXED(11┆
0x3f3b3…3f3d3 2c 32 29 2c 32 20 48 4a 4b 4f 44 20 43 48 41 52 28 31 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆,2),2 HJKOD CHAR(1); ┆
0x3f3d3…3f3e2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3f3e2…3f431 (75, 0, 12) 0x20[0x4f]
0x3f431…3f451 (75, 0, 13) 44 43 4c 20 31 20 4b 54 4f 2c 32 20 4b 4f 4e 54 4f 20 46 49 58 45 44 28 34 29 2c 32 20 54 45 58 ┆DCL 1 KTO,2 KONTO FIXED(4),2 TEX┆
0x3f451…3f471 54 20 43 48 41 52 28 33 34 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆T CHAR(34); ┆
0x3f471…3f480 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3f480…3f4cf (75, 0, 14) 0x20[0x4f]
0x3f4cf…3f4ef (75, 0, 15) 44 43 4c 20 31 20 44 41 54 52 45 43 2c 32 20 44 41 47 20 43 48 41 52 28 36 29 2c 32 20 4d 4f 4e ┆DCL 1 DATREC,2 DAG CHAR(6),2 MON┆
0x3f4ef…3f50f 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 29 ┆ CHAR(3),2 MNR FIXED(2),2 SK(14)┆
0x3f50f…3f51e 20 43 48 41 52 28 31 29 3b 20 20 20 20 20 20 ┆ CHAR(1); ┆
0x3f51e…3f53e (75, 0, 16) 44 43 4c 20 31 20 58 44 41 54 52 45 43 2c 32 20 58 44 41 47 20 43 48 41 52 28 39 29 2c 32 20 58 ┆DCL 1 XDATREC,2 XDAG CHAR(9),2 X┆
0x3f53e…3f55e 4d 4e 52 20 46 49 58 45 44 28 32 29 2c 32 20 58 53 4b 28 31 34 29 20 43 48 41 52 28 31 29 3b 20 ┆MNR FIXED(2),2 XSK(14) CHAR(1); ┆
0x3f55e…3f56d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3f56d…3f58d (75, 0, 17) 58 44 41 47 3d 27 58 58 58 58 58 58 20 20 20 27 3b 58 4d 4e 52 3d 30 3b 20 20 20 20 20 20 20 20 ┆XDAG='XXXXXX ';XMNR=0; ┆
0x3f58d…3f5ad 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3f5ad…3f5bc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3f5bc…3f5dc (75, 0, 18) 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┆
0x3f5dc…3f5fc 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),┆
0x3f5fc…3f60b 49 4e 44 20 46 49 58 45 44 28 31 29 2c 20 20 ┆IND FIXED(1), ┆
0x3f60b…3f62b (75, 0, 19) 53 41 4d 46 49 4c 20 46 49 4c 45 2c 51 20 46 49 58 45 44 28 31 29 2c 4e 59 52 45 47 20 46 49 58 ┆SAMFIL FILE,Q FIXED(1),NYREG FIX┆
0x3f62b…3f64b 45 44 28 31 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 ┆ED(1), ┆
0x3f64b…3f65a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3f65a…3f67a (75, 0, 20) 58 50 52 4f 4a 20 46 49 58 45 44 28 34 29 2c 58 4b 4f 20 46 49 58 45 44 28 34 29 2c 58 41 56 44 ┆XPROJ FIXED(4),XKO FIXED(4),XAVD┆
0x3f67a…3f69a 20 46 49 58 45 44 28 32 29 2c 58 44 41 54 20 46 49 58 45 44 28 34 29 2c 50 44 20 46 49 58 45 44 ┆ FIXED(2),XDAT FIXED(4),PD FIXED┆
0x3f69a…3f6a9 28 31 32 2c 32 29 2c 20 20 20 20 20 20 20 20 ┆(12,2), ┆
0x3f6a9…3f6c9 (75, 0, 21) 50 4b 20 46 49 58 45 44 28 31 32 2c 32 29 2c 41 44 20 46 49 58 45 44 28 31 32 2c 32 29 2c 41 4b ┆PK FIXED(12,2),AD FIXED(12,2),AK┆
0x3f6c9…3f6e9 20 46 49 58 45 44 28 31 32 2c 32 29 2c 4b 44 20 46 49 58 45 44 28 31 32 2c 32 29 2c 4b 4b 20 46 ┆ FIXED(12,2),KD FIXED(12,2),KK F┆
0x3f6e9…3f6f8 49 58 45 44 28 31 32 2c 32 29 2c 20 20 20 20 ┆IXED(12,2), ┆
0x3f6f8…3f718 (75, 0, 22) 54 44 20 46 49 58 45 44 28 31 32 2c 32 29 2c 54 4b 20 46 49 58 45 44 28 31 32 2c 32 29 2c 52 45 ┆TD FIXED(12,2),TK FIXED(12,2),RE┆
0x3f718…3f738 47 20 46 49 58 45 44 28 31 29 2c 44 45 4c 20 46 49 58 45 44 28 31 29 2c 52 45 43 4e 52 20 42 49 ┆G FIXED(1),DEL FIXED(1),RECNR BI┆
0x3f738…3f747 4e 41 52 59 2c 20 20 20 20 20 20 20 20 20 20 ┆NARY, ┆
0x3f747…3f767 (75, 0, 23) 4a 55 4d 50 20 46 49 58 45 44 28 31 29 2c 43 20 43 48 41 52 28 32 30 29 20 49 4e 49 54 28 27 2d ┆JUMP FIXED(1),C CHAR(20) INIT('-┆
0x3f767…3f787 2d 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 ┆-------------9V.99'), ┆
0x3f787…3f796 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3f796…3f7b6 (75, 0, 24) 43 43 20 43 48 41 52 28 32 30 29 49 4e 49 54 28 27 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 39 56 2e 39 ┆CC CHAR(20)INIT('-----------9V.9┆
0x3f7b6…3f7d6 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***'), ┆
0x3f7d6…3f7e5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3f7e5…3f805 (75, 0, 25) 43 43 43 20 43 48 41 52 28 32 30 29 49 4e 49 54 28 27 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 39 ┆CCC CHAR(20)INIT('-------------9┆
0x3f805…3f825 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*'), ┆
0x3f825…3f834 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3f834…3f854 (75, 0, 26) 4b 49 42 20 46 49 58 45 44 28 31 32 2c 32 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆KIB FIXED(12,2); ┆
0x3f854…3f874 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3f874…3f883 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3f883…3f8d2 (75, 0, 27) 0x20[0x4f]
0x3f8d2…3f8f2 (75, 0, 28) 44 43 4c 20 46 54 20 46 49 4c 45 3b 44 43 4c 20 52 55 42 52 20 43 48 41 52 28 33 30 29 20 49 4e ┆DCL FT FILE;DCL RUBR CHAR(30) IN┆
0x3f8f2…3f912 49 54 28 27 48 55 56 55 44 42 4f 4b 27 29 3b 44 43 4c 20 56 4d 20 46 49 58 45 44 28 32 29 20 49 ┆IT('HUVUDBOK');DCL VM FIXED(2) I┆
0x3f912…3f921 4e 49 54 28 30 29 3b 20 20 20 20 20 20 20 20 ┆NIT(0); ┆
0x3f921…3f941 (75, 0, 29) 44 43 4c 20 31 20 46 54 57 2c 20 2f 2a 20 46 5c 52 45 54 41 47 53 2d 50 4f 53 54 20 2a 2f 20 20 ┆DCL 1 FTW, /* FÖRETAGS-POST */ ┆
0x3f941…3f961 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3f961…3f970 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3f970…3f990 (75, 0, 30) 20 20 20 20 32 20 46 54 4e 41 4d 20 43 48 41 52 28 33 30 29 20 49 4e 49 54 28 27 43 4f 4e 46 49 ┆ 2 FTNAM CHAR(30) INIT('CONFI┆
0x3f990…3f9b0 44 45 4e 53 49 41 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 ┆DENSIA'), ┆
0x3f9b0…3f9bf 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3f9bf…3f9df (75, 0, 31) 20 20 20 20 32 20 46 54 41 41 52 20 46 49 58 45 44 28 34 29 20 49 4e 49 54 28 30 29 2c 20 2f 2a ┆ 2 FTAAR FIXED(4) INIT(0), /*┆
0x3f9df…3f9ff 20 5d 52 54 41 4c 20 46 5c 52 20 52 45 44 4f 56 49 53 41 44 20 4d 5d 4e 41 44 20 2a 2f 20 20 20 ┆ ÅRTAL FÖR REDOVISAD MÅNAD */ ┆
0x3f9ff…3fa0e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3fa0e…3fa2e (75, 0, 32) 20 20 20 20 32 20 46 54 4d 4f 4e 20 43 48 41 52 28 33 29 20 49 4e 49 54 28 27 20 27 29 2c 20 2f ┆ 2 FTMON CHAR(3) INIT(' '), /┆
0x3fa2e…3fa4e 2a 20 4d 5d 4e 41 44 20 2a 2f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆* MÅNAD */ ┆
0x3fa4e…3fa5d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3fa5d…3fa7d (75, 0, 33) 20 20 20 20 32 20 46 54 44 41 47 20 46 49 58 45 44 28 36 29 20 49 4e 49 54 28 30 29 2c 20 2f 2a ┆ 2 FTDAG FIXED(6) INIT(0), /*┆
0x3fa7d…3fa9d 20 4b 5c 52 44 41 54 55 4d 20 2a 2f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ KÖRDATUM */ ┆
0x3fa9d…3faac 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3faac…3facc (75, 0, 34) 20 20 20 20 32 20 52 41 44 4d 41 58 20 46 49 58 45 44 28 32 29 20 49 4e 49 54 28 35 31 29 3b 20 ┆ 2 RADMAX FIXED(2) INIT(51); ┆
0x3facc…3faec 2f 2a 20 42 4c 41 4e 4b 45 54 54 48 5c 4a 44 20 49 20 41 4e 54 41 4c 20 52 41 44 45 52 20 2a 2f ┆/* BLANKETTHÖJD I ANTAL RADER */┆
0x3faec…3fafb 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3fafb…3fb4a (75, 0, 35) 0x20[0x4f]
0x3fb4a…3fb6a (75, 0, 36) 2f 2a 20 53 55 42 52 55 54 49 4e 45 52 20 2a 2f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆/* SUBRUTINER */ ┆
0x3fb6a…3fb8a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3fb8a…3fb99 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3fb99…3fbb9 (75, 0, 37) 46 54 52 3a 50 52 4f 43 3b 20 2f 2a 20 4c 5b 53 20 46 5c 52 45 54 41 47 53 2d 50 4f 53 54 20 2a ┆FTR:PROC; /* LÄS FÖRETAGS-POST *┆
0x3fbb9…3fbd9 2f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆/ ┆
0x3fbd9…3fbe8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3fbe8…3fc08 (75, 0, 38) 4f 50 45 4e 20 46 54 3b 52 45 41 44 20 46 49 4c 45 28 46 54 29 20 49 4e 54 4f 28 46 54 57 29 3b ┆OPEN FT;READ FILE(FT) INTO(FTW);┆
0x3fc08…3fc28 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3fc28…3fc37 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3fc37…3fc57 (75, 0, 39) 46 54 52 58 3a 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 ┆FTRX:RETURN;END; ┆
0x3fc57…3fc77 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3fc77…3fc86 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3fc86…3fcd5 (75, 0, 40) 0x20[0x4f]