|
DataMuseum.dkPresents historical artifacts from the history of: Q1 computer |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Q1 computer Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: 8 A B D H I K N P Q R S V q r
Length: 242618 (0x3b3ba)
Description: Bits:30008625 DDMQ1-0065_Reflex_MSAB_Bokf_system_diskett_1_2_Sid2_Alla_pgm_PL1_781120_side0
Types: 8" Floppy Disk
| flag | nrec | reclen | rec_trk | t0 | tn | name | artifact |
|---|---|---|---|---|---|---|---|
| 0 | 102 | 79 | 41 | 60 | 62 | AKTSAL1 | ⟦ddafd03d7⟧ Q1_Text, reclen=79, q1file |
| 0 | 49 | 79 | 41 | 50 | 51 | ALTA1 | ⟦f88101c4c⟧ Q1_Text, reclen=79, q1file |
| 0 | 48 | 79 | 41 | 52 | 53 | ALTB1 | ⟦447e72635⟧ Q1_Text, reclen=79, q1file |
| 0 | 52 | 79 | 41 | 54 | 55 | ALTE1 | ⟦6b186eb3e⟧ Q1_Text, reclen=79, q1file |
| 0 | 52 | 79 | 41 | 56 | 57 | ALTF1 | ⟦e1fa5a2bf⟧ Q1_Text, reclen=79, q1file |
| 0 | 254 | 79 | 41 | 63 | 69 | AVDRES1 | ⟦bb3baf735⟧ Q1_Text, reclen=79, q1file |
| 0 | 234 | 79 | 41 | 23 | 29 | BALRÄKN1 | ⟦5515afb05⟧ Q1_Text, reclen=79, q1file |
| 0 | 183 | 79 | 41 | 3 | 7 | BOKRUT1 | ⟦2a1d18e1d⟧ Q1_Text, reclen=79, q1file |
| 0 | 119 | 79 | 41 | 46 | 48 | BOKSLUT1 | ⟦862c144a9⟧ Q1_Text, reclen=79, q1file |
| 0 | 73 | 79 | 41 | 41 | 43 | BUDGIN1 | ⟦ebc5f9b1a⟧ Q1_Text, reclen=79, q1file |
| 0 | 44 | 79 | 41 | 44 | 45 | BUDGUT1 | ⟦afdb66d6b⟧ Q1_Text, reclen=79, q1file |
| 0 | 1 | 50 | 56 | 71 | 71 | DATFIL | ⟦0101fc46f⟧ Q1_HexDump, reclen=50, q1file |
| 0 | 9 | 255 | 15 | 1 | 1 | DISK | ⟦98fb93e76⟧ Q1_HexDump, reclen=255, q1file |
| 0 | 149 | 79 | 41 | 18 | 22 | HUVBOK1 | ⟦de4ff5f86⟧ Q1_Text, reclen=79, q1file |
| 0 | 56 | 79 | 41 | 37 | 38 | IBALIN1 | ⟦80a93890c⟧ Q1_Text, reclen=79, q1file |
| 0 | 39 | 79 | 41 | 39 | 40 | IBALUT1 | ⟦2a235ffdb⟧ Q1_Text, reclen=79, q1file |
| 0 | 31 | 40 | 50 | 0 | 0 | INDEX | ⟦9ba113424⟧ Q1_HexDump, reclen=40, q1file |
| 0 | 6 | 37 | 67 | 75 | 75 | KBUTITT | ⟦6aabae94f⟧ Q1_Text, reclen=37, q1file |
| 0 | 19 | 79 | 41 | 70 | 70 | KLIPP21 | ⟦c58246913⟧ Q1_Text, reclen=79, q1file |
| 0 | 51 | 79 | 41 | 10 | 11 | KOALT1 | ⟦04b342efe⟧ Q1_Text, reclen=79, q1file |
| 0 | 37 | 79 | 41 | 8 | 9 | KOUPP1 | ⟦31e7bed15⟧ Q1_HexDump, reclen=79, q1file |
| 0 | 38 | 79 | 41 | 12 | 12 | KOUT1 | ⟦f2f5a25ee⟧ Q1_Text, reclen=79, q1file |
| 0 | 6 | 37 | 67 | 74 | 74 | KTXTITT | ⟦882879cab⟧ Q1_Text, reclen=37, q1file |
| 0 | 19 | 79 | 41 | 49 | 49 | NYVERNR1 | ⟦c581f0b4b⟧ Q1_Text, reclen=79, q1file |
| 0 | 49 | 79 | 41 | 58 | 59 | NYÅR1 | ⟦5f6f2e54c⟧ Q1_Text, reclen=79, q1file |
| 0 | 3 | 255 | 15 | 2 | 2 | ⟦e120d8c13⟧ Q1_HexDump, reclen=255, q1file | |
| 0 | 266 | 79 | 41 | 30 | 36 | RESRÄKN1 | ⟦39859b414⟧ Q1_Text, reclen=79, q1file |
| 0 | 13 | 37 | 67 | 73 | 73 | SAMTITT | ⟦fecaf8473⟧ Q1_Text, reclen=37, q1file |
| 0 | 100 | 79 | 41 | 13 | 15 | VERIFIN1 | ⟦40d243c0e⟧ Q1_Text, reclen=79, q1file |
| 0 | 68 | 79 | 41 | 16 | 17 | VERIFUT1 | ⟦b8bdd088e⟧ Q1_Text, reclen=79, q1file |
| 0 | 7 | 37 | 67 | 72 | 72 | VERTITT | ⟦4bc0eee2c⟧ Q1_Text, reclen=37, q1file |
0x00000…00028 (0, 0, 0) Catalog {f0=0x0000, name=»INDEX «, nrec=0x001f, 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=0x00b7, reclen=0x004f, rectrack=0x0029, track0=0x0003, trackn=0x0007}
0x000a0…000c8 (0, 0, 4) Catalog {f0=0x0000, name=»KOUPP1 «, nrec=0x0025, reclen=0x004f, rectrack=0x0029, track0=0x0008, trackn=0x0009}
0x000c8…000f0 (0, 0, 5) Catalog {f0=0x0000, name=»KOALT1 «, nrec=0x0033, reclen=0x004f, rectrack=0x0029, track0=0x000a, trackn=0x000b}
0x000f0…00118 (0, 0, 6) Catalog {f0=0x0000, name=»KOUT1 «, nrec=0x0026, reclen=0x004f, rectrack=0x0029, track0=0x000c, trackn=0x000c}
0x00118…00140 (0, 0, 7) Catalog {f0=0x0000, name=»VERIFIN1«, nrec=0x0064, reclen=0x004f, rectrack=0x0029, track0=0x000d, trackn=0x000f}
0x00140…00168 (0, 0, 8) Catalog {f0=0x0000, name=»VERIFUT1«, nrec=0x0044, reclen=0x004f, rectrack=0x0029, track0=0x0010, trackn=0x0011}
0x00168…00190 (0, 0, 9) Catalog {f0=0x0000, name=»HUVBOK1 «, nrec=0x0095, reclen=0x004f, rectrack=0x0029, track0=0x0012, trackn=0x0016}
0x00190…001b8 (0, 0, 10) Catalog {f0=0x0000, name=»BALRÄKN1«, nrec=0x00ea, reclen=0x004f, rectrack=0x0029, track0=0x0017, trackn=0x001d}
0x001b8…001e0 (0, 0, 11) Catalog {f0=0x0000, name=»RESRÄKN1«, nrec=0x010a, reclen=0x004f, rectrack=0x0029, track0=0x001e, trackn=0x0024}
0x001e0…00208 (0, 0, 12) Catalog {f0=0x0000, name=»IBALIN1 «, nrec=0x0038, reclen=0x004f, rectrack=0x0029, track0=0x0025, trackn=0x0026}
0x00208…00230 (0, 0, 13) Catalog {f0=0x0000, name=»IBALUT1 «, nrec=0x0027, reclen=0x004f, rectrack=0x0029, track0=0x0027, trackn=0x0028}
0x00230…00258 (0, 0, 14) Catalog {f0=0x0000, name=»BUDGIN1 «, nrec=0x0049, reclen=0x004f, rectrack=0x0029, track0=0x0029, trackn=0x002b}
0x00258…00280 (0, 0, 15) Catalog {f0=0x0000, name=»BUDGUT1 «, nrec=0x002c, reclen=0x004f, rectrack=0x0029, track0=0x002c, trackn=0x002d}
0x00280…002a8 (0, 0, 16) Catalog {f0=0x0000, name=»BOKSLUT1«, nrec=0x0077, reclen=0x004f, rectrack=0x0029, track0=0x002e, trackn=0x0030}
0x002a8…002d0 (0, 0, 17) Catalog {f0=0x0000, name=»NYVERNR1«, nrec=0x0013, reclen=0x004f, rectrack=0x0029, track0=0x0031, trackn=0x0031}
0x002d0…002f8 (0, 0, 18) Catalog {f0=0x0000, name=»ALTA1 «, nrec=0x0031, reclen=0x004f, rectrack=0x0029, track0=0x0032, trackn=0x0033}
0x002f8…00320 (0, 0, 19) Catalog {f0=0x0000, name=»ALTB1 «, nrec=0x0030, reclen=0x004f, rectrack=0x0029, track0=0x0034, trackn=0x0035}
0x00320…00348 (0, 0, 20) Catalog {f0=0x0000, name=»ALTE1 «, nrec=0x0034, reclen=0x004f, rectrack=0x0029, track0=0x0036, trackn=0x0037}
0x00348…00370 (0, 0, 21) Catalog {f0=0x0000, name=»ALTF1 «, nrec=0x0034, reclen=0x004f, rectrack=0x0029, track0=0x0038, trackn=0x0039}
0x00370…00398 (0, 0, 22) Catalog {f0=0x0000, name=»NYÅR1 «, nrec=0x0031, reclen=0x004f, rectrack=0x0029, track0=0x003a, trackn=0x003b}
0x00398…003c0 (0, 0, 23) Catalog {f0=0x0000, name=»AKTSAL1 «, nrec=0x0066, reclen=0x004f, rectrack=0x0029, track0=0x003c, trackn=0x003e}
0x003c0…003e8 (0, 0, 24) Catalog {f0=0x0000, name=»AVDRES1 «, nrec=0x00fe, reclen=0x004f, rectrack=0x0029, track0=0x003f, trackn=0x0045}
0x003e8…00410 (0, 0, 25) Catalog {f0=0x0000, name=»KLIPP21 «, nrec=0x0013, reclen=0x004f, rectrack=0x0029, track0=0x0046, trackn=0x0046}
0x00410…00438 (0, 0, 26) Catalog {f0=0x0000, name=»DATFIL «, nrec=0x0001, reclen=0x0032, rectrack=0x0038, track0=0x0047, trackn=0x0047}
0x00438…00460 (0, 0, 27) Catalog {f0=0x0000, name=»VERTITT «, nrec=0x0007, reclen=0x0025, rectrack=0x0043, track0=0x0048, trackn=0x0048}
0x00460…00488 (0, 0, 28) Catalog {f0=0x0000, name=»SAMTITT «, nrec=0x000d, reclen=0x0025, rectrack=0x0043, track0=0x0049, trackn=0x0049}
0x00488…004b0 (0, 0, 29) Catalog {f0=0x0000, name=»KTXTITT «, nrec=0x0006, reclen=0x0025, rectrack=0x0043, track0=0x004a, trackn=0x004a}
0x004b0…004d8 (0, 0, 30) Catalog {f0=0x0000, name=»KBUTITT «, nrec=0x0006, reclen=0x0025, rectrack=0x0043, track0=0x004b, trackn=0x004b}
0x004d8…004f8 (0, 0, 31) 72 69 00 74 20 49 6e 64 65 78 00 00 6e 20 53 65 6c 65 63 74 65 64 00 00 00 00 00 00 00 00 00 00 ┆ri t Index n Selected ┆
0x004f8…00500 00 00 00 00 00 00 00 00 ┆ ┆
0x00500…00520 (0, 0, 32) 20 44 00 69 76 65 46 36 20 2d 20 56 69 65 77 20 50 72 65 76 69 6f 00 00 00 00 00 00 00 00 00 00 ┆ D iveF6 - View Previo ┆
0x00520…00528 00 00 00 00 00 00 00 00 ┆ ┆
0x00528…00548 (0, 0, 33) 75 73 00 52 65 63 6f 72 64 46 37 20 2d 20 54 65 72 6d 69 6e 61 74 00 00 00 00 00 00 00 00 00 00 ┆us RecordF7 - Terminat ┆
0x00548…00550 00 00 00 00 00 00 00 00 ┆ ┆
0x00550…00570 (0, 0, 34) 65 20 00 49 4e 44 45 58 24 00 46 38 20 2d 20 44 69 73 70 6c 61 79 00 00 00 00 00 00 00 00 00 00 ┆e INDEX$ F8 - Display ┆
0x00570…00578 00 00 00 00 00 00 00 00 ┆ ┆
0x00578…00598 (0, 0, 35) 20 46 00 72 73 74 20 52 65 63 6f 72 64 20 2d 20 49 4e 44 45 58 46 00 00 00 00 00 00 00 00 00 00 ┆ F rst Record - INDEXF ┆
0x00598…005a0 00 00 00 00 00 00 00 00 ┆ ┆
0x005a0…005c0 (0, 0, 36) 39 20 00 20 44 69 73 70 6c 61 79 20 4c 69 73 74 20 6f 66 20 46 69 00 00 00 00 00 00 00 00 00 00 ┆9 Display List of Fi ┆
0x005c0…005c8 00 00 00 00 00 00 00 00 ┆ ┆
0x005c8…005e8 (0, 0, 37) 6c 65 00 4e 61 6d 65 73 52 45 54 55 52 4e 20 2d 20 44 69 73 70 6c 00 00 00 00 00 00 00 00 00 00 ┆le NamesRETURN - Displ ┆
0x005e8…005f0 00 00 00 00 00 00 00 00 ┆ ┆
0x005f0…00610 (0, 0, 38) 61 79 00 4e 65 78 74 20 52 65 63 6f 72 64 20 0c 56 0d 49 40 00 1c 00 00 00 00 00 00 00 00 00 00 ┆ay Next Record V I@ ┆
0x00610…00618 00 00 00 00 00 00 00 00 ┆ ┆
0x00618…00638 (0, 0, 39) 43 18 00 02 4b 88 03 1f 09 02 4d d0 1d 46 14 00 4b 8a 03 4a ea 33 00 00 00 00 00 00 00 00 00 00 ┆C K M F K J 3 ┆
0x00638…00640 00 00 00 00 00 00 00 00 ┆ ┆
0x00640…00660 (0, 0, 40) 00 00 00 8a 00 0a 4b 8c 00 32 02 0e 0a 00 03 1f 02 42 15 00 27 32 00 00 00 00 00 00 00 00 00 00 ┆ K 2 B '2 ┆
0x00660…00668 00 00 00 00 00 00 00 00 ┆ ┆
0x00668…00688 (0, 0, 41) 0d 32 00 8e 03 4a 5d 32 05 4b 90 32 05 06 4a 70 32 04 4b 95 32 04 00 00 00 00 00 00 00 00 00 00 ┆ 2 JÅ2 K 2 Jp2 K 2 ┆
0x00688…00690 00 00 00 00 00 00 00 00 ┆ ┆
0x00690…006b0 (0, 0, 42) 06 4a 00 32 05 4b 90 32 05 06 4a 95 32 04 4b 95 32 04 06 4a a7 32 00 00 00 00 00 00 00 00 00 00 ┆ J 2 K 2 J 2 K 2 J 2 ┆
0x006b0…006b8 00 00 00 00 00 00 00 00 ┆ ┆
0x006b8…006d8 (0, 0, 43) 05 4b 00 32 05 06 4a ba 32 04 4b 95 32 04 06 46 e8 32 14 42 ec 33 00 00 00 00 00 00 00 00 00 00 ┆ K 2 J 2 K 2 F 2 B 3 ┆
0x006d8…006e0 00 00 00 00 00 00 00 00 ┆ ┆
0x006e0…00700 (0, 0, 44) 00 00 00 8e 00 0a 00 32 14 0e 0a 32 14 06 4a 12 32 08 46 ea 32 08 00 00 00 00 00 00 00 00 00 00 ┆ 2 2 J 2 F 2 ┆
0x00700…00708 00 00 00 00 00 00 00 00 ┆ ┆
0x00708…00728 (0, 0, 45) 06 4a 00 32 08 46 f4 00 19 06 4b 99 4a e0 32 08 30 03 4a 5d 32 01 00 00 00 00 00 00 00 00 00 00 ┆ J 2 F K J 2 0 JÅ2 ┆
0x00728…00730 00 00 00 00 00 00 00 00 ┆ ┆
0x00730…00750 (0, 0, 46) 0c 0a 00 9b 00 0a 4b 99 00 4a e0 32 08 06 4a e0 32 08 46 f2 00 19 00 00 00 00 00 00 00 00 00 00 ┆ K J 2 J 2 F ┆
0x00750…00758 00 00 00 00 00 00 00 00 ┆ ┆
0x00758…00778 (0, 0, 47) 06 4b 00 4a e0 32 08 30 03 4a 70 32 01 0c 0a 4b 9b 00 0a 4b 99 00 00 00 00 00 00 00 00 00 00 00 ┆ K J 2 0 Jp2 K K ┆
0x00778…00780 00 00 00 00 00 00 00 00 ┆ ┆
0x00780…007a0 (0, 0, 48) 4a e0 00 08 06 4a e0 32 08 46 f6 00 19 06 4b 99 4a e0 32 08 30 03 00 00 00 00 00 00 00 00 00 00 ┆J J 2 F K J 2 0 ┆
0x007a0…007a8 00 00 00 00 00 00 00 00 ┆ ┆
0x007a8…007c8 (0, 0, 49) 4a 82 00 01 0c 0a 4b 9b 00 0a 4b 99 00 4a e0 32 08 06 46 fa 00 4b 00 00 00 00 00 00 00 00 00 00 ┆J K K J 2 F K ┆
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]
[…0xb6…]
0x05e2b…05e7a (7, 0, 19) 0x00[0x4f]
[…0x15…]
0x064f5…06544 (8, 0, 0) DataSector[0x4f]
[…0x24…]
0x07060…070af (8, 0, 37) 0x00[0x4f]
[…0x2c…]
0x07e43…07e92 (10, 0, 0) DataSector[0x4f]
[…0x32…]
0x08e00…08e4f (11, 0, 10) 0x00[0x4f]
[…0x1e…]
0x09791…097e0 (12, 0, 0) DataSector[0x4f]
[…0x25…]
0x0a34b…0a39a (12, 0, 38) 0x00[0x4f]
[…0x2…]
0x0a438…0a487 (13, 0, 0) DataSector[0x4f]
[…0x63…]
0x0c314…0c363 (15, 0, 18) 0x00[0x4f]
[…0x16…]
0x0ca2d…0ca7c (16, 0, 0) DataSector[0x4f]
[…0x43…]
0x0df29…0df78 (17, 0, 27) 0x00[0x4f]
[…0xd…]
0x0e37b…0e3ca (18, 0, 0) DataSector[0x4f]
[…0x94…]
0x11176…111c5 (21, 0, 26) 0x00[0x4f]
[…0x37…]
0x122be…1230d (23, 0, 0) DataSector[0x4f]
[…0xe9…]
0x16af4…16b43 (28, 0, 29) 0x00[0x4f]
[…0x34…]
0x17b4f…17b9e (30, 0, 0) DataSector[0x4f]
[…0x109…]
0x1cd65…1cdb4 (36, 0, 20) 0x00[0x4f]
[…0x14…]
0x1d3e0…1d42f (37, 0, 0) DataSector[0x4f]
[…0x37…]
0x1e528…1e577 (38, 0, 15) 0x00[0x4f]
[…0x19…]
0x1ed2e…1ed7d (39, 0, 0) DataSector[0x4f]
[…0x26…]
0x1f937…1f986 (39, 0, 39) 0x00[0x4f]
[…0x2a…]
0x2067c…206cb (41, 0, 0) DataSector[0x4f]
[…0x48…]
0x21d03…21d52 (42, 0, 32) 0x00[0x4f]
[…0x31…]
0x22c71…22cc0 (44, 0, 0) DataSector[0x4f]
[…0x2b…]
0x23a05…23a54 (45, 0, 3) 0x00[0x4f]
[…0x25…]
0x245bf…2460e (46, 0, 0) DataSector[0x4f]
[…0x76…]
0x26a78…26ac7 (48, 0, 37) 0x00[0x4f]
[…0x3…]
0x26bb4…26c03 (49, 0, 0) DataSector[0x4f]
[…0x12…]
0x27191…271e0 (49, 0, 19) 0x00[0x4f]
[…0x15…]
0x2785b…278aa (50, 0, 0) DataSector[0x4f]
[…0x30…]
0x2877a…287c9 (51, 0, 8) 0x00[0x4f]
[…0x20…]
0x291a9…291f8 (52, 0, 0) DataSector[0x4f]
[…0x2f…]
0x2a079…2a0c8 (53, 0, 7) 0x00[0x4f]
[…0x21…]
0x2aaf7…2ab46 (54, 0, 0) DataSector[0x4f]
[…0x33…]
0x2bb03…2bb52 (55, 0, 11) 0x00[0x4f]
[…0x1d…]
0x2c445…2c494 (56, 0, 0) DataSector[0x4f]
[…0x33…]
0x2d451…2d4a0 (57, 0, 11) 0x00[0x4f]
[…0x1d…]
0x2dd93…2dde2 (58, 0, 0) DataSector[0x4f]
[…0x30…]
0x2ecb2…2ed01 (59, 0, 8) 0x00[0x4f]
[…0x20…]
0x2f6e1…2f730 (60, 0, 0) DataSector[0x4f]
[…0x65…]
0x3165b…3167b (62, 0, 20) 49 46 20 51 56 45 52 3d 31 26 28 28 44 41 54 2d 31 30 30 2a 58 58 4d 4e 52 29 3c 3d 41 44 41 47 ┆IF QVER=1&((DAT-100*XXMNR)<=ADAG┆
0x3167b…3169b 29 20 54 48 45 4e 20 44 4f 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆) THEN DO; ┆
0x3169b…316aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x316aa…316ca (62, 0, 21) 49 46 20 4b 4f 44 3d 27 44 27 20 54 48 45 4e 20 4b 44 3d 4b 44 2b 42 45 4c 3b 49 46 20 4b 4f 44 ┆IF KOD='D' THEN KD=KD+BEL;IF KOD┆
0x316ca…316ea 3d 27 4b 27 20 54 48 45 4e 20 4b 4b 3d 4b 4b 2b 42 45 4c 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆='K' THEN KK=KK+BEL; ┆
0x316ea…316f9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x316f9…31719 (62, 0, 22) 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆END; ┆
0x31719…31739 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x31739…31748 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x31748…31768 (62, 0, 23) 4f 4e 20 45 4e 44 46 49 4c 45 20 47 4f 20 54 4f 20 41 43 4b 49 42 3b 52 45 41 44 20 46 49 4c 45 ┆ON ENDFILE GO TO ACKIB;READ FILE┆
0x31768…31788 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); ┆
0x31788…31797 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x31797…317b7 (62, 0, 24) 4a 3d 4b 4f 2f 49 49 3b 49 46 20 4a 7f 3d 41 4b 4f 28 49 29 20 54 48 45 4e 20 47 4f 20 54 4f 20 ┆J=KO/II;IF J =AKO(I) THEN GO TO ┆
0x317b7…317d7 41 43 4b 49 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 ┆ACKIB; ┆
0x317d7…317e6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x317e6…31806 (62, 0, 25) 51 56 45 52 3d 31 3b 47 4f 20 54 4f 20 41 43 4b 56 45 52 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆QVER=1;GO TO ACKVER; ┆
0x31806…31826 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x31826…31835 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x31835…31855 (62, 0, 26) 41 43 4b 49 42 3a 49 46 20 51 4b 54 4f 3d 31 26 5a 3d 27 41 27 20 54 48 45 4e 20 44 4f 3b 20 20 ┆ACKIB:IF QKTO=1&Z='A' THEN DO; ┆
0x31855…31875 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x31875…31884 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x31884…318a4 (62, 0, 27) 4b 49 42 3d 4b 49 42 2b 49 42 3b 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆KIB=KIB+IB;END; ┆
0x318a4…318c4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x318c4…318d3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x318d3…318f3 (62, 0, 28) 4f 4e 20 45 4e 44 46 49 4c 45 20 47 4f 54 4f 20 50 52 54 3b 52 45 41 44 20 46 49 4c 45 28 4b 54 ┆ON ENDFILE GOTO PRT;READ FILE(KT┆
0x318f3…31913 4f 54 58 29 49 4e 54 4f 28 4b 54 58 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆OTX)INTO(KTX); ┆
0x31913…31922 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x31922…31942 (62, 0, 29) 4a 3d 4b 4f 4e 54 4f 2f 49 49 3b 49 46 20 4a 7f 3d 41 4b 4f 28 49 29 20 54 48 45 4e 20 47 4f 54 ┆J=KONTO/II;IF J =AKO(I) THEN GOT┆
0x31942…31962 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 20 20 ┆O PRT; ┆
0x31962…31971 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x31971…31991 (62, 0, 30) 51 4b 54 4f 3d 31 3b 47 4f 54 4f 20 41 43 4b 49 42 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆QKTO=1;GOTO ACKIB; ┆
0x31991…319b1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x319b1…319c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x319c0…319e0 (62, 0, 31) 50 52 54 3a 4b 4f 4e 54 4f 3d 41 4b 4f 28 49 29 3b 5a 3d 27 41 27 3b 20 20 20 20 20 20 20 20 20 ┆PRT:KONTO=AKO(I);Z='A'; ┆
0x319e0…31a00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x31a00…31a0f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x31a0f…31a2f (62, 0, 32) 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 4b 45 59 28 4b 53 ┆ON ERROR GO TO EJTXT;READ KEY(KS┆
0x31a2f…31a4f 54 52 29 46 49 4c 45 28 4b 54 4f 54 58 29 49 4e 54 4f 28 4b 54 58 29 3b 47 4f 20 54 4f 20 4b 4f ┆TR)FILE(KTOTX)INTO(KTX);GO TO KO┆
0x31a4f…31a5e 50 52 54 3b 20 20 20 20 20 20 20 20 20 20 20 ┆PRT; ┆
0x31a5e…31a7e (62, 0, 33) 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 ┆
0x31a7e…31a9e 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 '; ┆
0x31a9e…31aad 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x31aad…31acd (62, 0, 34) 4b 4f 50 52 54 3a 4d 53 3d 4b 44 2d 4b 4b 3b 55 53 3d 4b 49 42 2b 4b 44 2d 4b 4b 3b 20 20 20 20 ┆KOPRT:MS=KD-KK;US=KIB+KD-KK; ┆
0x31acd…31aed 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x31aed…31afc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x31afc…31b1c (62, 0, 35) 49 46 20 41 4b 4f 28 49 29 2a 49 49 3e 32 39 39 39 20 54 48 45 4e 20 44 4f 3b 4b 49 42 3d 2d 4b ┆IF AKO(I)*II>2999 THEN DO;KIB=-K┆
0x31b1c…31b3c 49 42 3b 4d 53 3d 2d 4d 53 3b 55 53 3d 2d 55 53 3b 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 ┆IB;MS=-MS;US=-US;END; ┆
0x31b3c…31b4b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x31b4b…31b6b (62, 0, 36) 50 55 54 20 53 4b 49 50 20 45 44 49 54 28 41 4b 4f 28 49 29 29 28 50 27 5a 5a 5a 5a 39 20 20 20 ┆PUT SKIP EDIT(AKO(I))(P'ZZZZ9 ┆
0x31b6b…31b8b 27 29 28 54 45 58 54 29 28 41 28 33 35 29 29 28 4b 49 42 29 28 50 43 29 28 4b 44 29 28 50 43 29 ┆')(TEXT)(A(35))(KIB)(PC)(KD)(PC)┆
0x31b8b…31b9a 28 4b 4b 29 28 50 43 29 20 20 20 20 20 20 20 ┆(KK)(PC) ┆
0x31b9a…31bba (62, 0, 37) 28 4d 53 29 28 50 43 29 28 55 53 29 28 50 43 29 53 4b 49 50 3b 52 41 44 3d 52 41 44 2d 32 3b 20 ┆(MS)(PC)(US)(PC)SKIP;RAD=RAD-2; ┆
0x31bba…31bda 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x31bda…31be9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x31be9…31c09 (62, 0, 38) 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; ┆
0x31c09…31c29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x31c29…31c38 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x31c38…31c58 (62, 0, 39) 55 54 3a 50 55 54 20 53 4b 49 50 28 52 41 44 2d 35 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆UT:PUT SKIP(RAD-5); ┆
0x31c58…31c78 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x31c78…31c87 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x31c87…31ca7 (62, 0, 40) 53 4c 55 54 54 3a 43 41 4c 4c 20 4c 4f 41 44 28 27 42 4f 4b 52 55 54 27 2c 36 29 3b 45 4e 44 3b ┆SLUTT:CALL LOAD('BOKRUT',6);END;┆
0x31ca7…31cc7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x31cc7…31cd6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x31cd6…31d25 (63, 0, 0) DataSector[0x4f]
[…0xfd…]
0x36b38…36b87 (69, 0, 8) 0x00[0x4f]
[…0x20…]
0x37567…375b6 (70, 0, 0) DataSector[0x4f]
[…0x12…]
0x37b44…37b93 (70, 0, 19) 0x00[0x4f]
[…0x15…]
0x3820e…38240 (71, 0, 0) DataSector[0x32]
0x38240…38272 (71, 0, 1) 0x00[0x32]
[…0x36…]
0x38cfe…38d23 (72, 0, 0) DataSector[0x25]
[…0x6…]
0x38e01…38e26 (72, 0, 7) 0x00[0x25]
[…0x3b…]
0x396ad…396d2 (73, 0, 0) DataSector[0x25]
[…0xc…]
0x3988e…398b3 (73, 0, 13) 0x00[0x25]
[…0x35…]
0x3a05c…3a081 (74, 0, 0) DataSector[0x25]
[…0x5…]
0x3a13a…3a15f (74, 0, 6) 0x00[0x25]
[…0x3c…]
0x3aa0b…3aa30 (75, 0, 0) DataSector[0x25]
[…0x5…]
0x3aae9…3ab0e (75, 0, 6) 0x00[0x25]
[…0x3c…]