|
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 H I P Q U q r
Length: 124432 (0x1e610)
Description: Bits:30008744 50001576
Types: 8" Floppy Disk
| flag | nrec | reclen | rec_trk | t0 | tn | name | artifact |
|---|---|---|---|---|---|---|---|
| 0 | 8 | 47 | 122 | 1 | 1 | HJFORM1 | ⟦3151f2fb8⟧ Q1_Text, reclen=47, q1file |
| 0 | 7 | 40 | 130 | 0 | 0 | INDEX | ⟦fe06f9489⟧ Q1_HexDump, reclen=40, q1file |
| 0 | 25 | 128 | 55 | 5 | 9 | PREGI | ⟦54be0d0d3⟧ Q1_Text, reclen=128, q1file |
| 0 | 101 | 79 | 82 | 2 | 4 | UPPDAT | ⟦223946771⟧ Q1_Text, reclen=79, q1file |
| 0 | 124 | 79 | 82 | 11 | 13 | UPPDAT1 | ⟦889339f91⟧ Q1_Text, reclen=79, q1file |
| 0 | 138 | 79 | 82 | 14 | 18 | UPPDAT2 | ⟦8c2881972⟧ Q1_Text, reclen=79, q1file |
0x00000…00028 (0, 0, 0) Catalog {f0=0x0000, name=»INDEX «, nrec=0x0007, reclen=0x0028, rectrack=0x0082, track0=0x0000, trackn=0x0000}
0x00028…00050 (0, 0, 1) Catalog {f0=0x0000, name=»HJFORM1 «, nrec=0x0008, reclen=0x002f, rectrack=0x007a, track0=0x0001, trackn=0x0001}
0x00050…00078 (0, 0, 2) Catalog {f0=0x0000, name=»UPPDAT «, nrec=0x0065, reclen=0x004f, rectrack=0x0052, track0=0x0002, trackn=0x0004}
0x00078…000a0 (0, 0, 3) Catalog {f0=0x0000, name=»PREGI «, nrec=0x0019, reclen=0x0080, rectrack=0x0037, track0=0x0005, trackn=0x0009}
0x000a0…000c8 (0, 0, 4) Catalog {f0=0x0000, name=»PTRANS «, nrec=0x0000, reclen=0x0080, rectrack=0x0037, track0=0x000a, trackn=0x000a}
0x000c8…000f0 (0, 0, 5) Catalog {f0=0x0000, name=»UPPDAT1 «, nrec=0x007c, reclen=0x004f, rectrack=0x0052, track0=0x000b, trackn=0x000d}
0x000f0…00118 (0, 0, 6) Catalog {f0=0x0000, name=»UPPDAT2 «, nrec=0x008a, reclen=0x004f, rectrack=0x0052, track0=0x000e, trackn=0x0012}
0x00118…00140 (0, 0, 7) 0x00[0x28]
0x00140…00160 (0, 0, 8) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ff 00 ff ff ff 00 00 00 00 00 00 00 00 ┆ ┆
0x00160…00168 00 00 00 00 00 00 00 00 ┆ ┆
0x00168…00188 (0, 0, 9) ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 00 00 00 00 00 00 00 00 ┆ ┆
0x00188…00190 00 00 00 00 00 00 00 00 ┆ ┆
0x00190…001b0 (0, 0, 10) ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 00 00 00 00 00 00 00 00 ┆ ┆
0x001b0…001b8 00 00 00 00 00 00 00 00 ┆ ┆
0x001b8…001d8 (0, 0, 11) ff ff ff ff ff ff ff ff ff ff ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x001d8…001e0 00 00 00 00 00 00 00 00 ┆ ┆
0x001e0…00200 (0, 0, 12) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x00200…00208 00 00 00 00 00 00 00 00 ┆ ┆
0x00208…00230 (0, 0, 13) 0x00[0x28]
0x00230…00250 (0, 0, 14) 00 00 00 00 00 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 00 00 00 00 00 00 00 00 ┆ ┆
0x00250…00258 00 00 00 00 00 00 00 00 ┆ ┆
0x00258…00278 (0, 0, 15) ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 00 00 00 00 00 00 00 00 ┆ ┆
0x00278…00280 00 00 00 00 00 00 00 00 ┆ ┆
0x00280…002a0 (0, 0, 16) ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x002a0…002a8 00 00 00 00 00 00 00 00 ┆ ┆
0x002a8…002d0 (0, 0, 17) 0x00[0x28]
0x002d0…002f0 (0, 0, 18) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x002f0…002f8 00 00 00 00 00 00 00 00 ┆ ┆
0x002f8…00318 (0, 0, 19) 00 00 00 00 00 00 00 00 00 00 00 00 00 ff ff ff ff ff ff ff ff ff ff ff 00 00 00 00 00 00 00 00 ┆ ┆
0x00318…00320 00 00 00 00 00 00 00 00 ┆ ┆
0x00320…00340 (0, 0, 20) ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 00 00 00 00 00 00 00 00 ┆ ┆
0x00340…00348 00 00 00 00 00 00 00 00 ┆ ┆
0x00348…00368 (0, 0, 21) ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 00 00 00 00 00 00 00 00 ┆ ┆
0x00368…00370 00 00 00 00 00 00 00 00 ┆ ┆
0x00370…00390 (0, 0, 22) ff ff ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x00390…00398 00 00 00 00 00 00 00 00 ┆ ┆
0x00398…003c0 (0, 0, 23) 0x00[0x28]
0x003c0…003e0 (0, 0, 24) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ff ff ff 00 00 00 00 00 00 00 00 ┆ ┆
0x003e0…003e8 00 00 00 00 00 00 00 00 ┆ ┆
0x003e8…00408 (0, 0, 25) ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 00 00 00 00 00 00 00 00 ┆ ┆
0x00408…00410 00 00 00 00 00 00 00 00 ┆ ┆
0x00410…00430 (0, 0, 26) ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 00 00 00 00 00 00 00 00 ┆ ┆
0x00430…00438 00 00 00 00 00 00 00 00 ┆ ┆
0x00438…00458 (0, 0, 27) ff ff ff ff ff ff ff ff ff ff ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x00458…00460 00 00 00 00 00 00 00 00 ┆ ┆
0x00460…00488 (0, 0, 28) 0x00[0x28]
[…0x1…]
0x004b0…004d0 (0, 0, 30) 00 00 00 00 00 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 00 00 00 00 00 00 00 00 ┆ ┆
0x004d0…004d8 00 00 00 00 00 00 00 00 ┆ ┆
0x004d8…004f8 (0, 0, 31) ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 00 00 00 00 00 00 00 00 ┆ ┆
0x004f8…00500 00 00 00 00 00 00 00 00 ┆ ┆
0x00500…00520 (0, 0, 32) ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x00520…00528 00 00 00 00 00 00 00 00 ┆ ┆
0x00528…00550 (0, 0, 33) 0x00[0x28]
0x00550…00570 (0, 0, 34) 00 00 00 00 00 00 00 00 00 00 00 4d 70 32 10 50 70 32 10 06 4d 66 32 0a 00 00 00 00 00 00 00 00 ┆ Mp2 Pp2 Mf2 ┆
0x00570…00578 00 00 00 00 00 00 00 00 ┆ ┆
0x00578…00598 (0, 0, 35) 50 66 32 0a 06 4d 5b 32 0b 50 5b 32 0b 06 4d 53 32 08 50 53 32 08 06 4d 00 00 00 00 00 00 00 00 ┆Pf2 MÄ2 PÄ2 MS2 PS2 M ┆
0x00598…005a0 00 00 00 00 00 00 00 00 ┆ ┆
0x005a0…005c0 (0, 0, 36) 4b 32 08 50 4b 32 08 06 4d 33 32 18 50 33 32 18 06 4d 28 32 0b 50 28 32 00 00 00 00 00 00 00 00 ┆K2 PK2 M32 P32 M(2 P(2 ┆
0x005c0…005c8 00 00 00 00 00 00 00 00 ┆ ┆
0x005c8…005e8 (0, 0, 37) 0b 06 4d 1c 32 0c 50 1c 32 0c 06 4d 08 32 14 50 08 32 14 06 4d 00 32 08 00 00 00 00 00 00 00 00 ┆ M 2 P 2 M 2 P 2 M 2 ┆
0x005e8…005f0 00 00 00 00 00 00 00 00 ┆ ┆
0x005f0…00610 (0, 0, 38) 50 00 32 08 06 1f 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆P 2 ┆
0x00610…00618 00 00 00 00 00 00 00 00 ┆ ┆
0x00618…00640 (0, 0, 39) 0x00[0x28]
0x00640…00660 (0, 0, 40) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ff ff ff 00 00 00 00 00 00 00 00 ┆ ┆
0x00660…00668 00 00 00 00 00 00 00 00 ┆ ┆
0x00668…00688 (0, 0, 41) ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 00 00 00 00 00 00 00 00 ┆ ┆
0x00688…00690 00 00 00 00 00 00 00 00 ┆ ┆
0x00690…006b0 (0, 0, 42) ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 00 00 00 00 00 00 00 00 ┆ ┆
0x006b0…006b8 00 00 00 00 00 00 00 00 ┆ ┆
0x006b8…006d8 (0, 0, 43) ff ff ff ff ff ff ff ff ff ff ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x006d8…006e0 00 00 00 00 00 00 00 00 ┆ ┆
0x006e0…00708 (0, 0, 44) 0x00[0x28]
[…0x1…]
0x00730…00750 (0, 0, 46) 00 00 00 00 00 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 00 00 00 00 00 00 00 00 ┆ ┆
0x00750…00758 00 00 00 00 00 00 00 00 ┆ ┆
0x00758…00778 (0, 0, 47) ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 00 00 00 00 00 00 00 00 ┆ ┆
0x00778…00780 00 00 00 00 00 00 00 00 ┆ ┆
0x00780…007a0 (0, 0, 48) ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x007a0…007a8 00 00 00 00 00 00 00 00 ┆ ┆
0x007a8…007d0 (0, 0, 49) 0x00[0x28]
[…0x1…]
0x007f8…00818 (0, 0, 51) 00 00 00 00 00 00 00 00 00 00 00 00 00 ff ff ff ff ff ff ff ff ff ff ff 00 00 00 00 00 00 00 00 ┆ ┆
0x00818…00820 00 00 00 00 00 00 00 00 ┆ ┆
0x00820…00840 (0, 0, 52) ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 00 00 00 00 00 00 00 00 ┆ ┆
0x00840…00848 00 00 00 00 00 00 00 00 ┆ ┆
0x00848…00868 (0, 0, 53) ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 00 00 00 00 00 00 00 00 ┆ ┆
0x00868…00870 00 00 00 00 00 00 00 00 ┆ ┆
0x00870…00890 (0, 0, 54) ff ff ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x00890…00898 00 00 00 00 00 00 00 00 ┆ ┆
0x00898…008c0 (0, 0, 55) 0x00[0x28]
0x008c0…008e0 (0, 0, 56) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ff ff ff 00 00 00 00 00 00 00 00 ┆ ┆
0x008e0…008e8 00 00 00 00 00 00 00 00 ┆ ┆
0x008e8…00908 (0, 0, 57) ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 00 00 00 00 00 00 00 00 ┆ ┆
0x00908…00910 00 00 00 00 00 00 00 00 ┆ ┆
0x00910…00930 (0, 0, 58) ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 00 00 00 00 00 00 00 00 ┆ ┆
0x00930…00938 00 00 00 00 00 00 00 00 ┆ ┆
0x00938…00958 (0, 0, 59) ff ff ff ff ff ff ff ff ff ff ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x00958…00960 00 00 00 00 00 00 00 00 ┆ ┆
0x00960…00988 (0, 0, 60) 0x00[0x28]
[…0x1…]
0x009b0…009d0 (0, 0, 62) 00 00 00 00 00 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 00 00 00 00 00 00 00 00 ┆ ┆
0x009d0…009d8 00 00 00 00 00 00 00 00 ┆ ┆
0x009d8…009f8 (0, 0, 63) ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 00 00 00 00 00 00 00 00 ┆ ┆
0x009f8…00a00 00 00 00 00 00 00 00 00 ┆ ┆
0x00a00…00a20 (0, 0, 64) ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x00a20…00a28 00 00 00 00 00 00 00 00 ┆ ┆
0x00a28…00a50 (0, 0, 65) 0x00[0x28]
[…0x1…]
0x00a78…00a98 (0, 0, 67) 00 00 00 00 00 00 00 00 00 00 00 00 00 ff ff ff ff ff ff ff ff ff ff ff 00 00 00 00 00 00 00 00 ┆ ┆
0x00a98…00aa0 00 00 00 00 00 00 00 00 ┆ ┆
0x00aa0…00ac0 (0, 0, 68) ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 00 00 00 00 00 00 00 00 ┆ ┆
0x00ac0…00ac8 00 00 00 00 00 00 00 00 ┆ ┆
0x00ac8…00ae8 (0, 0, 69) ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 00 00 00 00 00 00 00 00 ┆ ┆
0x00ae8…00af0 00 00 00 00 00 00 00 00 ┆ ┆
0x00af0…00b10 (0, 0, 70) ff ff ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x00b10…00b18 00 00 00 00 00 00 00 00 ┆ ┆
0x00b18…00b40 (0, 0, 71) 0x00[0x28]
0x00b40…00b60 (0, 0, 72) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ff ff ff 00 00 00 00 00 00 00 00 ┆ ┆
0x00b60…00b68 00 00 00 00 00 00 00 00 ┆ ┆
0x00b68…00b88 (0, 0, 73) ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 00 00 00 00 00 00 00 00 ┆ ┆
0x00b88…00b90 00 00 00 00 00 00 00 00 ┆ ┆
0x00b90…00bb0 (0, 0, 74) ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 00 00 00 00 00 00 00 00 ┆ ┆
0x00bb0…00bb8 00 00 00 00 00 00 00 00 ┆ ┆
0x00bb8…00bd8 (0, 0, 75) ff ff ff ff ff ff ff ff ff ff ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x00bd8…00be0 00 00 00 00 00 00 00 00 ┆ ┆
0x00be0…00c08 (0, 0, 76) 0x00[0x28]
[…0x1…]
0x00c30…00c50 (0, 0, 78) 00 00 00 00 00 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 00 00 00 00 00 00 00 00 ┆ ┆
0x00c50…00c58 00 00 00 00 00 00 00 00 ┆ ┆
0x00c58…00c78 (0, 0, 79) ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 00 00 00 00 00 00 00 00 ┆ ┆
0x00c78…00c80 00 00 00 00 00 00 00 00 ┆ ┆
0x00c80…00ca0 (0, 0, 80) ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x00ca0…00ca8 00 00 00 00 00 00 00 00 ┆ ┆
0x00ca8…00cd0 (0, 0, 81) 0x00[0x28]
[…0x1…]
0x00cf8…00d18 (0, 0, 83) 00 00 00 00 00 00 00 00 00 00 00 00 00 ff ff ff ff ff ff ff ff ff ff ff 00 00 00 00 00 00 00 00 ┆ ┆
0x00d18…00d20 00 00 00 00 00 00 00 00 ┆ ┆
0x00d20…00d40 (0, 0, 84) ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 00 00 00 00 00 00 00 00 ┆ ┆
0x00d40…00d48 00 00 00 00 00 00 00 00 ┆ ┆
0x00d48…00d68 (0, 0, 85) ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 00 00 00 00 00 00 00 00 ┆ ┆
0x00d68…00d70 00 00 00 00 00 00 00 00 ┆ ┆
0x00d70…00d90 (0, 0, 86) ff ff ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x00d90…00d98 00 00 00 00 00 00 00 00 ┆ ┆
0x00d98…00dc0 (0, 0, 87) 0x00[0x28]
0x00dc0…00de0 (0, 0, 88) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ff ff ff 00 00 00 00 00 00 00 00 ┆ ┆
0x00de0…00de8 00 00 00 00 00 00 00 00 ┆ ┆
0x00de8…00e08 (0, 0, 89) ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 00 00 00 00 00 00 00 00 ┆ ┆
0x00e08…00e10 00 00 00 00 00 00 00 00 ┆ ┆
0x00e10…00e30 (0, 0, 90) ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 00 00 00 00 00 00 00 00 ┆ ┆
0x00e30…00e38 00 00 00 00 00 00 00 00 ┆ ┆
0x00e38…00e58 (0, 0, 91) ff ff ff ff ff ff ff ff ff ff ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x00e58…00e60 00 00 00 00 00 00 00 00 ┆ ┆
0x00e60…00e88 (0, 0, 92) 0x00[0x28]
[…0x1…]
0x00eb0…00ed0 (0, 0, 94) 00 00 00 00 00 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 00 00 00 00 00 00 00 00 ┆ ┆
0x00ed0…00ed8 00 00 00 00 00 00 00 00 ┆ ┆
0x00ed8…00ef8 (0, 0, 95) ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 00 00 00 00 00 00 00 00 ┆ ┆
0x00ef8…00f00 00 00 00 00 00 00 00 00 ┆ ┆
0x00f00…00f20 (0, 0, 96) ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x00f20…00f28 00 00 00 00 00 00 00 00 ┆ ┆
0x00f28…00f50 (0, 0, 97) 0x00[0x28]
[…0x1…]
0x00f78…00f98 (0, 0, 99) 00 00 00 00 00 00 00 00 00 00 00 00 00 ff ff ff ff ff ff ff ff ff ff ff 00 00 00 00 00 00 00 00 ┆ ┆
0x00f98…00fa0 00 00 00 00 00 00 00 00 ┆ ┆
0x00fa0…00fc0 (0, 0, 100) ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 00 00 00 00 00 00 00 00 ┆ ┆
0x00fc0…00fc8 00 00 00 00 00 00 00 00 ┆ ┆
0x00fc8…00fe8 (0, 0, 101) ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 00 00 00 00 00 00 00 00 ┆ ┆
0x00fe8…00ff0 00 00 00 00 00 00 00 00 ┆ ┆
0x00ff0…01010 (0, 0, 102) ff ff ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x01010…01018 00 00 00 00 00 00 00 00 ┆ ┆
0x01018…01040 (0, 0, 103) 0x00[0x28]
0x01040…01060 (0, 0, 104) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ff ff ff 00 00 00 00 00 00 00 00 ┆ ┆
0x01060…01068 00 00 00 00 00 00 00 00 ┆ ┆
0x01068…01088 (0, 0, 105) ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 00 00 00 00 00 00 00 00 ┆ ┆
0x01088…01090 00 00 00 00 00 00 00 00 ┆ ┆
0x01090…010b0 (0, 0, 106) ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 00 00 00 00 00 00 00 00 ┆ ┆
0x010b0…010b8 00 00 00 00 00 00 00 00 ┆ ┆
0x010b8…010d8 (0, 0, 107) ff ff ff ff ff ff ff ff ff ff ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x010d8…010e0 00 00 00 00 00 00 00 00 ┆ ┆
0x010e0…01108 (0, 0, 108) 0x00[0x28]
[…0x1…]
0x01130…01150 (0, 0, 110) 00 00 00 00 00 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 00 00 00 00 00 00 00 00 ┆ ┆
0x01150…01158 00 00 00 00 00 00 00 00 ┆ ┆
0x01158…01178 (0, 0, 111) ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 00 00 00 00 00 00 00 00 ┆ ┆
0x01178…01180 00 00 00 00 00 00 00 00 ┆ ┆
0x01180…011a0 (0, 0, 112) ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x011a0…011a8 00 00 00 00 00 00 00 00 ┆ ┆
0x011a8…011d0 (0, 0, 113) 0x00[0x28]
[…0x1…]
0x011f8…01218 (0, 0, 115) 00 00 00 00 00 00 00 00 00 00 00 00 00 ff ff ff ff ff ff ff ff ff ff ff 00 00 00 00 00 00 00 00 ┆ ┆
0x01218…01220 00 00 00 00 00 00 00 00 ┆ ┆
0x01220…01240 (0, 0, 116) ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 00 00 00 00 00 00 00 00 ┆ ┆
0x01240…01248 00 00 00 00 00 00 00 00 ┆ ┆
0x01248…01268 (0, 0, 117) ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 00 00 00 00 00 00 00 00 ┆ ┆
0x01268…01270 00 00 00 00 00 00 00 00 ┆ ┆
0x01270…01290 (0, 0, 118) ff ff ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x01290…01298 00 00 00 00 00 00 00 00 ┆ ┆
0x01298…012c0 (0, 0, 119) 0x00[0x28]
0x012c0…012e0 (0, 0, 120) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ff ff ff 00 00 00 00 00 00 00 00 ┆ ┆
0x012e0…012e8 00 00 00 00 00 00 00 00 ┆ ┆
0x012e8…01308 (0, 0, 121) ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 00 00 00 00 00 00 00 00 ┆ ┆
0x01308…01310 00 00 00 00 00 00 00 00 ┆ ┆
0x01310…01330 (0, 0, 122) ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 00 00 00 00 00 00 00 00 ┆ ┆
0x01330…01338 00 00 00 00 00 00 00 00 ┆ ┆
0x01338…01358 (0, 0, 123) ff ff ff ff ff ff ff ff ff ff ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x01358…01360 00 00 00 00 00 00 00 00 ┆ ┆
0x01360…01388 (0, 0, 124) 0x00[0x28]
[…0x1…]
0x013b0…013d0 (0, 0, 126) 00 00 00 00 00 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 00 00 00 00 00 00 00 00 ┆ ┆
0x013d0…013d8 00 00 00 00 00 00 00 00 ┆ ┆
0x013d8…013f8 (0, 0, 127) ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 00 00 00 00 00 00 00 00 ┆ ┆
0x013f8…01400 00 00 00 00 00 00 00 00 ┆ ┆
0x01400…01420 (0, 0, 128) ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x01420…01428 00 00 00 00 00 00 00 00 ┆ ┆
0x01428…01450 (0, 0, 129) 0x00[0x28]
0x01450…0147f (1, 0, 0) DataSector[0x2f]
[…0x7…]
0x015c8…015f7 (1, 0, 8) 0x00[0x2f]
[…0x71…]
0x02ab6…02b05 (2, 0, 0) DataSector[0x4f]
[…0x64…]
0x049e1…04a01 (3, 0, 19) 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ END; ┆
0x04a01…04a21 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x04a21…04a30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x04a30…04a50 (3, 0, 20) 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ END; ┆
0x04a50…04a70 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x04a70…04a7f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x04a7f…04ace (3, 0, 21) 0x00[0x4f]
[…0x39…]
0x05c65…05c85 (3, 0, 79) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 20 20 20 45 4e 41 4d 4e 20 20 20 20 20 20 20 ┆ 2 ENAMN ┆
0x05c85…05ca5 43 48 41 52 20 28 32 30 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆CHAR (20), ┆
0x05ca5…05cb4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x05cb4…05cd4 (3, 0, 80) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 20 20 20 46 4e 41 4d 4e 20 20 20 20 20 20 20 ┆ 2 FNAMN ┆
0x05cd4…05cf4 43 48 41 52 20 28 31 32 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆CHAR (12), ┆
0x05cf4…05d03 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x05d03…05d23 (3, 0, 81) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 20 20 20 54 49 54 45 4c 20 20 20 20 20 20 20 ┆ 2 TITEL ┆
0x05d23…05d43 43 48 41 52 20 28 31 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 ┆CHAR (11), ┆
0x05d43…05d52 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x05d52…05d72 (4, 0, 0) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 20 20 20 41 44 52 45 53 53 20 20 20 20 20 20 ┆ 2 ADRESS ┆
0x05d72…05d92 43 48 41 52 20 28 32 35 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆CHAR (25), ┆
0x05d92…05da1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x05da1…05dc1 (4, 0, 1) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 20 20 20 47 41 54 55 4e 52 20 20 20 20 20 20 ┆ 2 GATUNR ┆
0x05dc1…05de1 43 48 41 52 20 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 20 20 ┆CHAR (4), ┆
0x05de1…05df0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x05df0…05e10 (4, 0, 2) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 20 20 20 49 4e 47 20 20 20 20 20 20 20 20 20 ┆ 2 ING ┆
0x05e10…05e30 43 48 41 52 20 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 20 20 ┆CHAR (4), ┆
0x05e30…05e3f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x05e3f…05e5f (4, 0, 3) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 20 20 20 50 4f 53 54 4e 52 20 20 20 20 20 20 ┆ 2 POSTNR ┆
0x05e5f…05e7f 43 48 41 52 20 28 36 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 ┆CHAR (6), ┆
0x05e7f…05e8e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x05e8e…05eae (4, 0, 4) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 20 20 20 52 45 53 32 20 20 20 20 20 20 20 20 ┆ 2 RES2 ┆
0x05eae…05ece 43 48 41 52 20 28 36 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 ┆CHAR (6), ┆
0x05ece…05edd 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x05edd…05efd (4, 0, 5) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 20 20 20 4f 52 54 4e 41 4d 4e 20 20 20 20 20 ┆ 2 ORTNAMN ┆
0x05efd…05f1d 43 48 41 52 20 28 31 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 ┆CHAR (11), ┆
0x05f1d…05f2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x05f2c…05f4c (4, 0, 6) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 20 20 20 52 49 4b 54 4e 52 20 20 20 20 20 20 ┆ 2 RIKTNR ┆
0x05f4c…05f6c 43 48 41 52 20 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 20 20 ┆CHAR (4), ┆
0x05f6c…05f7b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x05f7b…05f9b (4, 0, 7) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 20 20 20 54 45 4c 4e 52 20 20 20 20 20 20 20 ┆ 2 TELNR ┆
0x05f9b…05fbb 43 48 41 52 20 28 36 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 ┆CHAR (6), ┆
0x05fbb…05fca 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x05fca…05fea (4, 0, 8) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 20 20 20 52 45 53 33 20 20 20 20 20 20 20 20 ┆ 2 RES3 ┆
0x05fea…0600a 43 48 41 52 20 28 31 36 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆CHAR (16); ┆
0x0600a…06019 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x06019…06039 (4, 0, 9) 20 20 20 20 44 43 4c 20 20 20 20 20 31 20 20 20 54 52 41 4e 53 2c 20 20 20 20 20 20 20 20 20 20 ┆ DCL 1 TRANS, ┆
0x06039…06059 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x06059…06068 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x06068…06088 (4, 0, 10) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 20 20 20 54 41 4e 53 54 4e 52 20 20 20 20 20 ┆ 2 TANSTNR ┆
0x06088…060a8 43 48 41 52 20 28 36 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 ┆CHAR (6), ┆
0x060a8…060b7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x060b7…060d7 (4, 0, 11) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 20 20 20 54 4b 4f 44 20 20 20 20 20 20 20 20 ┆ 2 TKOD ┆
0x060d7…060f7 43 48 41 52 20 28 32 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆CHAR (2), ┆
0x060f7…06106 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x06106…06126 (4, 0, 12) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 20 20 20 54 45 4e 41 4d 4e 20 20 20 20 20 20 ┆ 2 TENAMN ┆
0x06126…06146 43 48 41 52 20 28 32 30 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆CHAR (20), ┆
0x06146…06155 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x06155…06175 (4, 0, 13) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 20 20 20 54 46 4e 41 4d 4e 20 20 20 20 20 20 ┆ 2 TFNAMN ┆
0x06175…06195 43 48 41 52 20 28 31 32 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆CHAR (12), ┆
0x06195…061a4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x061a4…061c4 (4, 0, 14) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 20 20 20 54 54 49 54 45 4c 20 20 20 20 20 20 ┆ 2 TTITEL ┆
0x061c4…061e4 43 48 41 52 20 28 31 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 ┆CHAR (11), ┆
0x061e4…061f3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x061f3…06213 (4, 0, 15) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 20 20 20 54 41 44 52 45 53 53 20 20 20 20 20 ┆ 2 TADRESS ┆
0x06213…06233 43 48 41 52 20 28 32 35 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆CHAR (25), ┆
0x06233…06242 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x06242…06262 (4, 0, 16) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 20 20 20 54 47 41 54 55 4e 52 20 20 20 20 20 ┆ 2 TGATUNR ┆
0x06262…06282 43 48 41 52 20 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 20 20 ┆CHAR (4), ┆
0x06282…06291 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x06291…062b1 (4, 0, 17) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 20 20 20 54 49 4e 47 20 20 20 20 20 20 20 20 ┆ 2 TING ┆
0x062b1…062d1 43 48 41 52 20 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 20 20 ┆CHAR (4), ┆
0x062d1…062e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x062e0…06300 (4, 0, 18) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 20 20 20 54 50 4f 53 54 4e 52 20 20 20 20 20 ┆ 2 TPOSTNR ┆
0x06300…06320 43 48 41 52 20 28 36 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 ┆CHAR (6), ┆
0x06320…0632f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0632f…0634f (4, 0, 19) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 20 20 20 54 52 45 53 32 20 20 20 20 20 20 20 ┆ 2 TRES2 ┆
0x0634f…0636f 43 48 41 52 20 28 32 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆CHAR (2), ┆
0x0636f…0637e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0637e…0639e (4, 0, 20) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 20 20 20 54 4f 52 54 4e 41 4d 4e 20 20 20 20 ┆ 2 TORTNAMN ┆
0x0639e…063be 43 48 41 52 20 28 31 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 ┆CHAR (11), ┆
0x063be…063cd 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x063cd…063ed (4, 0, 21) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 20 20 20 54 52 49 4b 54 4e 52 20 20 20 20 20 ┆ 2 TRIKTNR ┆
0x063ed…0640d 43 48 41 52 20 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 20 20 ┆CHAR (4), ┆
0x0640d…0641c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0641c…0643c (4, 0, 22) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 20 20 20 54 54 45 4c 4e 52 20 20 20 20 20 20 ┆ 2 TTELNR ┆
0x0643c…0645c 43 48 41 52 20 28 36 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 ┆CHAR (6), ┆
0x0645c…0646b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0646b…0648b (4, 0, 23) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 20 20 20 54 52 45 53 33 20 20 20 20 20 20 20 ┆ 2 TRES3 ┆
0x0648b…064ab 43 48 41 52 20 28 31 36 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆CHAR (16); ┆
0x064ab…064ba 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x064ba…064da (4, 0, 24) 2f 2a 20 20 50 52 4f 43 45 44 55 52 45 20 44 49 56 49 53 49 4f 4e 2e 20 20 20 20 20 20 20 20 20 ┆/* PROCEDURE DIVISION. ┆
0x064da…064fa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x064fa…06509 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2f ┆ */┆
0x06509…06529 (4, 0, 25) 20 20 20 20 41 31 30 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ A100: ┆
0x06529…06549 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x06549…06558 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x06558…06578 (4, 0, 26) 20 20 20 20 20 20 20 20 20 20 20 20 4f 50 45 4e 20 50 52 45 47 49 3b 20 20 20 20 20 20 20 20 20 ┆ OPEN PREGI; ┆
0x06578…06598 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x06598…065a7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x065a7…065c7 (4, 0, 27) 20 20 20 20 20 20 20 20 20 20 20 20 4f 50 45 4e 20 50 52 45 47 55 3b 20 20 20 20 20 20 20 20 20 ┆ OPEN PREGU; ┆
0x065c7…065e7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x065e7…065f6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x065f6…06616 (4, 0, 28) 20 20 20 20 20 20 20 20 20 20 20 20 4f 50 45 4e 20 50 54 52 41 4e 53 3b 20 20 20 20 20 20 20 20 ┆ OPEN PTRANS; ┆
0x06616…06636 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x06636…06645 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x06645…06665 (4, 0, 29) 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 20 28 44 29 20 53 4b 49 50 20 45 44 ┆ PUT FILE (D) SKIP ED┆
0x06665…06685 49 54 20 28 27 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 41 52 42 45 54 4e 49 4e 47 20 50 ┆IT (' BEARBETNING P┆
0x06685…06694 5d 47 5d 52 27 29 20 28 41 28 34 37 29 29 3b ┆ÅGÅR') (A(47));┆
0x06694…066b4 (4, 0, 30) 20 20 20 20 41 32 30 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ A200: ┆
0x066b4…066d4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x066d4…066e3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x066e3…06703 (4, 0, 31) 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 41 4e 53 54 4e 52 20 3d 20 27 39 39 39 39 39 39 27 ┆ IF ANSTNR = '999999'┆
0x06703…06723 20 54 48 45 4e 20 47 4f 20 54 4f 20 41 32 35 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ THEN GO TO A250; ┆
0x06723…06732 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x06732…06752 (4, 0, 32) 20 20 20 20 20 20 20 20 20 20 20 20 52 45 41 44 20 46 49 4c 45 20 28 50 52 45 47 49 29 20 49 4e ┆ READ FILE (PREGI) IN┆
0x06752…06772 54 4f 20 28 52 45 47 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 ┆TO (REG); ┆
0x06772…06781 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x06781…067a1 (4, 0, 33) 20 20 20 20 20 20 20 20 20 20 20 20 4f 4e 20 45 4e 44 46 49 4c 45 20 47 4f 20 54 4f 20 45 31 30 ┆ ON ENDFILE GO TO E10┆
0x067a1…067c1 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; ┆
0x067c1…067d0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x067d0…067f0 (4, 0, 34) 20 20 20 20 20 20 20 20 20 20 20 20 52 49 41 43 43 20 3d 20 52 49 41 43 43 20 2b 20 31 3b 20 20 ┆ RIACC = RIACC + 1; ┆
0x067f0…06810 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x06810…0681f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0681f…0683f (4, 0, 35) 20 20 20 20 41 32 35 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ A250: ┆
0x0683f…0685f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0685f…0686e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0686e…0688e (4, 0, 36) 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 54 41 4e 53 54 4e 52 20 3d 20 27 39 39 39 39 39 39 ┆ IF TANSTNR = '999999┆
0x0688e…068ae 27 20 54 48 45 4e 20 47 4f 20 54 4f 20 41 33 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆' THEN GO TO A300; ┆
0x068ae…068bd 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x068bd…068dd (4, 0, 37) 20 20 20 20 20 20 20 20 20 20 20 20 52 45 41 44 20 46 49 4c 45 20 28 50 54 52 41 4e 53 29 20 49 ┆ READ FILE (PTRANS) I┆
0x068dd…068fd 4e 54 4f 20 28 54 52 41 4e 53 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆NTO (TRANS); ┆
0x068fd…0690c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0690c…0692c (4, 0, 38) 20 20 20 20 20 20 20 20 20 20 20 20 4f 4e 20 45 4e 44 46 49 4c 45 20 47 4f 20 54 4f 20 46 31 30 ┆ ON ENDFILE GO TO F10┆
0x0692c…0694c 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; ┆
0x0694c…0695b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0695b…0697b (4, 0, 39) 20 20 20 20 20 20 20 20 20 20 20 20 54 41 43 43 20 3d 20 54 41 43 43 20 2b 20 31 3b 20 20 20 20 ┆ TACC = TACC + 1; ┆
0x0697b…0699b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0699b…069aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x069aa…069ca (4, 0, 40) 20 20 20 20 41 33 30 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ A300: ┆
0x069ca…069ea 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x069ea…069f9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x069f9…06a19 (4, 0, 41) 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 54 41 4e 53 54 4e 52 20 3d 20 41 4e 53 54 4e 52 20 ┆ IF TANSTNR = ANSTNR ┆
0x06a19…06a39 54 48 45 4e 20 47 4f 20 54 4f 20 42 31 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆THEN GO TO B100; ┆
0x06a39…06a48 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x06a48…06a68 (4, 0, 42) 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 54 41 4e 53 54 4e 52 20 3e 20 41 4e 53 54 4e 52 20 ┆ IF TANSTNR > ANSTNR ┆
0x06a68…06a88 54 48 45 4e 20 47 4f 20 54 4f 20 43 31 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆THEN GO TO C100; ┆
0x06a88…06a97 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x06a97…06ab7 (4, 0, 43) 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 54 41 4e 53 54 4e 52 20 3c 20 41 4e 53 54 4e 52 20 ┆ IF TANSTNR < ANSTNR ┆
0x06ab7…06ad7 54 48 45 4e 20 47 4f 20 54 4f 20 44 31 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆THEN GO TO D100; ┆
0x06ad7…06ae6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x06ae6…06b06 (4, 0, 44) 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 20 28 44 29 20 53 4b 49 50 20 45 44 ┆ PUT FILE (D) SKIP ED┆
0x06b06…06b26 49 54 20 28 27 46 45 4c 20 49 20 55 50 50 44 41 54 27 29 20 28 41 28 34 37 29 29 3b 20 20 20 20 ┆IT ('FEL I UPPDAT') (A(47)); ┆
0x06b26…06b35 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x06b35…06b55 (4, 0, 45) 20 20 20 20 20 20 20 20 20 20 20 20 47 45 54 20 53 4b 49 50 20 4c 49 53 54 20 28 54 52 45 53 33 ┆ GET SKIP LIST (TRES3┆
0x06b55…06b75 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 ┆); ┆
0x06b75…06b84 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x06b84…06ba4 (4, 0, 46) 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 20 46 49 4c 45 20 28 50 52 45 47 55 29 20 46 ┆ WRITE FILE (PREGU) F┆
0x06ba4…06bc4 52 4f 4d 20 28 54 52 41 4e 53 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ROM (TRANS); ┆
0x06bc4…06bd3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x06bd3…06bf3 (4, 0, 47) 20 20 20 20 42 31 30 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ B100: ┆
0x06bf3…06c13 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x06c13…06c22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x06c22…06c42 (4, 0, 48) 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 41 4e 53 54 4e 52 20 3d 20 27 39 39 39 39 39 39 27 ┆ IF ANSTNR = '999999'┆
0x06c42…06c62 20 54 48 45 4e 20 47 4f 20 54 4f 20 47 31 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ THEN GO TO G100; ┆
0x06c62…06c71 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x06c71…06c91 (4, 0, 49) 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 54 4b 4f 44 20 3d 20 44 4c 20 54 48 45 4e 20 47 4f ┆ IF TKOD = DL THEN GO┆
0x06c91…06cb1 20 54 4f 20 44 32 30 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 ┆ TO D200; ┆
0x06cb1…06cc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x06cc0…06ce0 (4, 0, 50) 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 20 46 49 4c 45 20 28 50 52 45 47 55 29 20 46 ┆ WRITE FILE (PREGU) F┆
0x06ce0…06d00 52 4f 4d 20 28 54 52 41 4e 53 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ROM (TRANS); ┆
0x06d00…06d0f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x06d0f…06d2f (4, 0, 51) 20 20 20 20 20 20 20 20 20 20 20 20 52 55 41 43 43 20 3d 20 52 55 41 43 43 20 2b 20 31 3b 20 20 ┆ RUACC = RUACC + 1; ┆
0x06d2f…06d4f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x06d4f…06d5e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x06d5e…06d7e (4, 0, 52) 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 41 32 30 30 3b 20 20 20 20 20 20 20 20 20 ┆ GO TO A200; ┆
0x06d7e…06d9e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x06d9e…06dad 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x06dad…06dcd (4, 0, 53) 20 20 20 20 43 31 30 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ C100: ┆
0x06dcd…06ded 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x06ded…06dfc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x06dfc…06e1c (4, 0, 54) 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 20 46 49 4c 45 20 28 50 52 45 47 55 29 20 46 ┆ WRITE FILE (PREGU) F┆
0x06e1c…06e3c 52 4f 4d 20 28 52 45 47 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ROM (REG); ┆
0x06e3c…06e4b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x06e4b…06e6b (4, 0, 55) 20 20 20 20 20 20 20 20 20 20 20 20 52 55 41 43 43 20 3d 20 52 55 41 43 43 20 2b 20 31 3b 20 20 ┆ RUACC = RUACC + 1; ┆
0x06e6b…06e8b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x06e8b…06e9a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x06e9a…06eba (4, 0, 56) 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 41 4e 53 54 4e 52 20 3d 20 27 39 39 39 39 39 39 27 ┆ IF ANSTNR = '999999'┆
0x06eba…06eda 20 54 48 45 4e 20 47 4f 20 54 4f 20 41 33 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ THEN GO TO A300; ┆
0x06eda…06ee9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x06ee9…06f09 (4, 0, 57) 20 20 20 20 20 20 20 20 20 20 20 20 52 45 41 44 20 46 49 4c 45 20 28 50 52 45 47 49 29 20 49 4e ┆ READ FILE (PREGI) IN┆
0x06f09…06f29 54 4f 20 28 52 45 47 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 ┆TO (REG); ┆
0x06f29…06f38 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x06f38…06f58 (4, 0, 58) 20 20 20 20 20 20 20 20 20 20 20 20 4f 4e 20 45 4e 44 46 49 4c 45 20 47 4f 20 54 4f 20 46 31 30 ┆ ON ENDFILE GO TO F10┆
0x06f58…06f78 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; ┆
0x06f78…06f87 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x06f87…06fa7 (4, 0, 59) 20 20 20 20 20 20 20 20 20 20 20 20 52 49 41 43 43 20 3d 20 52 49 41 43 43 20 2b 20 31 3b 20 20 ┆ RIACC = RIACC + 1; ┆
0x06fa7…06fc7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x06fc7…06fd6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x06fd6…06ff6 (4, 0, 60) 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 41 33 30 30 3b 20 20 20 20 20 20 20 20 20 ┆ GO TO A300; ┆
0x06ff6…07016 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x07016…07025 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x07025…07045 (4, 0, 61) 20 20 20 20 44 31 30 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ D100: ┆
0x07045…07065 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x07065…07074 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x07074…07094 (4, 0, 62) 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 20 46 49 4c 45 20 28 50 52 45 47 55 29 20 46 ┆ WRITE FILE (PREGU) F┆
0x07094…070b4 52 4f 4d 20 28 54 52 41 4e 53 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ROM (TRANS); ┆
0x070b4…070c3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x070c3…070e3 (4, 0, 63) 20 20 20 20 20 20 20 20 20 20 20 20 52 55 41 43 43 20 3d 20 52 55 41 43 43 20 2b 20 31 3b 20 20 ┆ RUACC = RUACC + 1; ┆
0x070e3…07103 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x07103…07112 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x07112…07132 (4, 0, 64) 20 20 20 20 44 32 30 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ D200: ┆
0x07132…07152 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x07152…07161 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x07161…07181 (4, 0, 65) 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 54 41 4e 53 54 4e 52 20 3d 20 27 39 39 39 39 39 39 ┆ IF TANSTNR = '999999┆
0x07181…071a1 27 20 54 48 45 4e 20 47 4f 20 54 4f 20 41 33 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆' THEN GO TO A300; ┆
0x071a1…071b0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x071b0…071d0 (4, 0, 66) 20 20 20 20 20 20 20 20 20 20 20 20 52 45 41 44 20 46 49 4c 45 20 28 50 54 52 41 4e 53 29 20 49 ┆ READ FILE (PTRANS) I┆
0x071d0…071f0 4e 54 4f 20 28 54 52 41 4e 53 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆NTO (TRANS); ┆
0x071f0…071ff 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x071ff…0721f (4, 0, 67) 20 20 20 20 20 20 20 20 20 20 20 20 4f 4e 20 45 4e 44 46 49 4c 45 20 47 4f 20 54 4f 20 46 31 30 ┆ ON ENDFILE GO TO F10┆
0x0721f…0723f 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; ┆
0x0723f…0724e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0724e…0726e (4, 0, 68) 20 20 20 20 20 20 20 20 20 20 20 20 54 41 43 43 20 3d 20 54 41 43 43 20 2b 20 31 3b 20 20 20 20 ┆ TACC = TACC + 1; ┆
0x0726e…0728e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0728e…0729d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0729d…072bd (4, 0, 69) 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 41 33 30 30 3b 20 20 20 20 20 20 20 20 20 ┆ GO TO A300; ┆
0x072bd…072dd 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x072dd…072ec 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x072ec…0730c (4, 0, 70) 20 20 20 20 45 31 30 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ E100: ┆
0x0730c…0732c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0732c…0733b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0733b…0735b (4, 0, 71) 20 20 20 20 46 31 30 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ F100: ┆
0x0735b…0737b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0737b…0738a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0738a…073aa (4, 0, 72) 20 20 20 20 47 31 30 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ G100: ┆
0x073aa…073ca 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x073ca…073d9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x073d9…073f9 (4, 0, 73) 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 20 46 49 4c 45 20 28 50 52 45 47 55 29 20 46 ┆ WRITE FILE (PREGU) F┆
0x073f9…07419 52 4f 4d 20 28 52 45 47 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ROM (REG); ┆
0x07419…07428 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x07428…07448 (4, 0, 74) 20 20 20 20 20 20 20 20 20 20 20 20 52 55 41 43 43 20 3d 20 52 55 41 43 43 20 2b 20 31 3b 20 20 ┆ RUACC = RUACC + 1; ┆
0x07448…07468 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x07468…07477 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x07477…07497 (4, 0, 75) 20 20 20 20 20 20 20 20 20 20 20 20 43 4c 4f 53 45 20 50 52 45 47 49 3b 20 20 20 20 20 20 20 20 ┆ CLOSE PREGI; ┆
0x07497…074b7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x074b7…074c6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x074c6…074e6 (4, 0, 76) 20 20 20 20 20 20 20 20 20 20 20 20 43 4c 4f 53 45 20 50 52 45 47 55 3b 20 20 20 20 20 20 20 20 ┆ CLOSE PREGU; ┆
0x074e6…07506 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x07506…07515 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x07515…07535 (4, 0, 77) 20 20 20 20 20 20 20 20 20 20 20 20 43 4c 4f 53 45 20 50 54 52 41 4e 53 3b 20 20 20 20 20 20 20 ┆ CLOSE PTRANS; ┆
0x07535…07555 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x07555…07564 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x07564…07584 (4, 0, 78) 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 28 35 29 20 45 44 49 54 20 28 27 ┆ PUT SKIP (5) EDIT ('┆
0x07584…075a4 41 4e 54 41 4c 20 52 45 47 50 4f 53 54 45 52 20 49 4e 27 29 20 28 41 28 32 35 29 29 20 28 52 49 ┆ANTAL REGPOSTER IN') (A(25)) (RI┆
0x075a4…075b3 41 43 43 29 20 28 50 27 5a 5a 5a 39 27 29 3b ┆ACC) (P'ZZZ9');┆
0x075b3…075d3 (4, 0, 79) 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 28 31 29 20 45 44 49 54 20 28 27 ┆ PUT SKIP (1) EDIT ('┆
0x075d3…075f3 41 4e 54 41 4c 20 52 45 47 50 4f 53 54 45 52 20 55 54 27 29 20 28 41 28 32 35 29 29 20 28 52 55 ┆ANTAL REGPOSTER UT') (A(25)) (RU┆
0x075f3…07602 41 43 43 29 20 28 50 27 5a 5a 5a 39 27 29 3b ┆ACC) (P'ZZZ9');┆
0x07602…07622 (4, 0, 80) 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 28 31 29 20 45 44 49 54 20 28 27 ┆ PUT SKIP (1) EDIT ('┆
0x07622…07642 41 4e 54 41 4c 20 54 52 41 4e 53 50 4f 53 54 45 52 27 29 20 28 41 28 32 35 29 29 20 28 54 41 43 ┆ANTAL TRANSPOSTER') (A(25)) (TAC┆
0x07642…07651 43 29 20 28 50 27 5a 5a 5a 39 27 29 3b 20 20 ┆C) (P'ZZZ9'); ┆
0x07651…07671 (4, 0, 81) 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ END; ┆
0x07671…07691 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x07691…076a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x076a0…07720 (5, 0, 0) DataSector[0x80]
[…0x18…]
0x08320…08340 (5, 0, 25) 39 36 30 30 35 30 20 20 50 65 72 73 73 6f 6e 20 20 20 20 20 20 20 20 20 20 20 20 20 48 61 72 64 ┆960050 Persson Hard┆
0x08340…08360 79 20 20 20 20 20 20 20 53 6b 2e 69 6e 67 20 20 20 20 20 53 65 6c 67 61 74 61 6e 20 20 20 20 20 ┆y Sk.ing Selgatan ┆
0x08360…08380 20 20 20 20 20 20 20 20 20 20 20 20 20 37 20 20 20 20 20 37 32 34 20 36 36 20 20 56 5b 53 54 45 ┆ 7 724 66 VÄSTE┆
0x08380…083a0 52 5d 53 20 20 20 30 32 31 20 31 31 32 38 31 39 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆RÅS 021 112819 ┆
0x083a0…083c0 (5, 0, 26) 39 36 30 30 35 31 20 20 47 75 73 74 61 76 73 73 6f 6e 20 20 20 20 20 20 20 20 20 20 5c 72 6a 61 ┆960051 Gustavsson Örja┆
0x083c0…083e0 6e 20 20 20 20 20 20 20 53 6b 2e 69 6e 67 20 20 20 20 20 42 7d 74 68 75 73 67 61 74 61 6e 20 20 ┆n Sk.ing Båthusgatan ┆
0x083e0…08400 20 20 20 20 20 20 20 20 20 20 20 20 20 33 20 20 20 20 20 37 32 34 20 38 31 20 20 56 5b 53 54 45 ┆ 3 724 81 VÄSTE┆
0x08400…08420 52 5d 53 20 20 20 30 32 31 20 33 35 31 34 32 34 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆RÅS 021 351424 ┆
0x08420…08440 (5, 0, 27) 39 36 30 30 35 32 20 20 54 68 75 6e 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 6f 6d 6d ┆960052 Thune Tomm┆
0x08440…08460 79 20 20 20 20 20 20 20 31 3a 65 20 44 72 2e 6d 7b 73 74 54 75 6e 62 79 76 7b 67 65 6e 20 20 20 ┆y 1:e Dr.mästTunbyvägen ┆
0x08460…08480 20 20 20 20 20 20 20 20 20 20 20 20 37 38 20 20 20 20 20 37 32 32 20 32 33 20 20 56 5b 53 54 45 ┆ 78 722 23 VÄSTE┆
0x08480…084a0 52 5d 53 20 20 20 30 32 31 20 31 38 31 36 31 34 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆RÅS 021 181614 ┆
0x084a0…084c0 (5, 0, 28) 39 36 30 30 35 34 20 20 42 65 72 67 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4c 65 6e 6e ┆960054 Berg Lenn┆
0x084c0…084e0 61 72 74 20 20 20 20 20 31 3a 65 20 44 72 2e 6d 7b 73 74 48 7c 67 61 74 61 6e 20 20 20 20 20 20 ┆art 1:e Dr.mästHögatan ┆
0x084e0…08500 20 20 20 20 20 20 20 20 20 20 20 20 20 31 20 20 20 20 20 37 32 34 20 36 36 20 20 56 5b 53 54 45 ┆ 1 724 66 VÄSTE┆
0x08500…08520 52 5d 53 20 20 20 30 32 31 20 31 31 37 30 34 34 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆RÅS 021 117044 ┆
0x08520…08540 (5, 0, 29) 39 36 30 30 35 35 20 20 53 6a 7c 6c 75 6e 64 20 20 20 20 20 20 20 20 20 20 20 20 20 42 65 72 74 ┆960055 Sjölund Bert┆
0x08540…08560 69 6c 20 20 20 20 20 20 53 6b 2e 69 6e 67 20 20 20 20 20 53 65 6c 67 61 74 61 6e 20 20 20 20 20 ┆il Sk.ing Selgatan ┆
0x08560…08580 20 20 20 20 20 20 20 20 20 20 20 20 20 39 20 20 20 20 20 37 32 34 20 36 37 20 20 56 5b 53 54 45 ┆ 9 724 67 VÄSTE┆
0x08580…085a0 52 5d 53 20 20 20 30 32 31 20 31 31 36 36 36 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆RÅS 021 116663 ┆
0x085a0…085c0 (5, 0, 30) 39 36 30 30 35 37 20 20 50 65 74 65 72 73 73 6f 6e 20 20 20 20 20 20 20 20 20 20 20 42 6a 7c 72 ┆960057 Petersson Björ┆
0x085c0…085e0 6e 20 20 20 20 20 20 20 31 3a 65 20 74 65 6b 6e 20 20 20 53 6c 7b 67 67 61 72 67 61 74 61 6e 20 ┆n 1:e tekn Släggargatan ┆
0x085e0…08600 20 20 20 20 20 20 20 20 20 20 20 20 32 30 20 20 20 20 20 37 32 33 20 33 37 20 20 56 5b 53 54 45 ┆ 20 723 37 VÄSTE┆
0x08600…08620 52 5d 53 20 20 20 30 32 31 20 31 38 32 39 38 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆RÅS 021 182982 ┆
0x08620…08640 (5, 0, 31) 39 36 30 30 36 32 20 20 4b 61 72 6c 73 74 72 7c 6d 20 20 20 20 20 20 20 20 20 20 20 45 72 69 6b ┆960062 Karlström Erik┆
0x08640…08660 20 20 20 20 20 20 20 20 31 3a 65 20 74 65 6b 6e 20 20 20 50 65 74 74 65 72 73 62 65 72 67 73 67 ┆ 1:e tekn Pettersbergsg┆
0x08660…08680 61 74 61 6e 20 20 20 20 20 20 20 20 32 30 20 20 20 20 20 37 32 34 20 36 33 20 20 56 5b 53 54 45 ┆atan 20 724 63 VÄSTE┆
0x08680…086a0 52 5d 53 20 20 20 30 32 31 20 31 31 36 35 36 35 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆RÅS 021 116565 ┆
0x086a0…086c0 (5, 0, 32) 39 36 30 30 36 35 20 20 4e 6f 72 64 69 6e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4b 65 6e 74 ┆960065 Nordin Kent┆
0x086c0…086e0 20 20 20 20 20 20 20 20 49 6e 67 65 6e 6a 7c 72 20 20 20 54 7c 72 75 6e 64 61 20 20 20 20 20 20 ┆ Ingenjör Törunda ┆
0x086e0…08700 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 37 32 35 20 39 30 20 20 56 5b 53 54 45 ┆ 725 90 VÄSTE┆
0x08700…08720 52 5d 53 20 20 20 30 32 31 20 20 35 35 35 36 35 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆RÅS 021 55565 ┆
0x08720…08740 (5, 0, 33) 39 36 30 30 37 33 20 20 50 65 72 73 73 6f 6e 20 20 20 20 20 20 20 20 20 20 20 20 20 57 69 6c 6c ┆960073 Persson Will┆
0x08740…08760 79 20 20 20 20 20 20 20 44 72 2e 6d 7b 73 74 20 20 20 20 4c 69 65 67 61 74 61 6e 20 20 20 20 20 ┆y Dr.mäst Liegatan ┆
0x08760…08780 20 20 20 20 20 20 20 20 20 20 20 31 38 36 20 20 20 20 20 37 32 34 20 36 37 20 20 56 5b 53 54 45 ┆ 186 724 67 VÄSTE┆
0x08780…087a0 52 5d 53 20 20 20 30 32 31 20 31 38 30 39 37 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆RÅS 021 180973 ┆
0x087a0…087c0 (5, 0, 34) 39 36 30 30 37 36 20 20 4a 7c 6e 73 73 6f 6e 20 20 20 20 20 20 20 20 20 20 20 20 20 41 72 6e 65 ┆960076 Jönsson Arne┆
0x087c0…087e0 20 20 20 20 20 20 20 20 31 3a 65 20 44 72 2e 6d 7b 73 74 4c 61 78 7c 72 69 6e 67 73 67 61 74 61 ┆ 1:e Dr.mästLaxöringsgata┆
0x087e0…08800 6e 20 20 20 20 20 20 20 20 20 20 20 31 34 20 20 20 20 20 37 32 33 20 34 38 20 20 56 5b 53 54 45 ┆n 14 723 48 VÄSTE┆
0x08800…08820 52 5d 53 20 20 20 30 32 31 20 31 31 36 34 39 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆RÅS 021 116490 ┆
0x08820…08840 (5, 0, 35) 39 36 30 30 38 32 20 20 43 61 72 6c 73 73 6f 6e 20 20 20 20 20 20 20 20 20 20 20 20 55 6c 66 20 ┆960082 Carlsson Ulf ┆
0x08840…08860 20 20 20 20 20 20 20 20 31 3a 65 20 72 65 70 20 20 20 20 53 61 6b 7c 72 65 67 61 74 61 6e 20 20 ┆ 1:e rep Saköregatan ┆
0x08860…08880 20 20 20 20 20 20 20 20 20 20 20 20 20 32 20 20 20 20 20 37 32 34 20 37 35 20 20 56 5b 53 54 45 ┆ 2 724 75 VÄSTE┆
0x08880…088a0 52 5d 53 20 20 20 30 32 31 20 20 35 35 35 37 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆RÅS 021 55573 ┆
0x088a0…088c0 (5, 0, 36) 39 36 30 30 38 36 20 20 54 75 6c 6c 73 74 65 64 74 20 20 20 20 20 20 20 20 20 20 20 4a 61 6e 20 ┆960086 Tullstedt Jan ┆
0x088c0…088e0 20 20 20 20 20 20 20 20 45 6b 2e 63 68 65 66 20 20 20 20 4c 61 78 7c 72 69 6e 67 73 67 61 74 61 ┆ Ek.chef Laxöringsgata┆
0x088e0…08900 6e 20 20 20 20 20 20 20 20 20 20 20 20 32 20 20 20 20 20 37 32 33 20 34 38 20 20 56 5b 53 54 45 ┆n 2 723 48 VÄSTE┆
0x08900…08920 52 5d 53 20 20 20 30 32 31 20 31 31 32 31 31 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆RÅS 021 112110 ┆
0x08920…08940 (5, 0, 37) 39 36 30 30 38 39 20 20 4e 6f 72 6c 69 6e 67 20 20 20 20 20 20 20 20 20 20 20 20 20 4c 61 72 73 ┆960089 Norling Lars┆
0x08940…08960 20 20 20 20 20 20 20 20 44 72 2e 6d 7b 73 74 20 20 20 20 52 65 6b 79 6c 67 61 74 61 6e 20 20 20 ┆ Dr.mäst Rekylgatan ┆
0x08960…08980 20 20 20 20 20 20 20 20 20 20 20 20 33 31 20 20 20 20 20 37 32 33 20 33 38 20 20 56 5b 53 54 45 ┆ 31 723 38 VÄSTE┆
0x08980…089a0 52 5d 53 20 20 20 30 32 31 20 31 34 31 30 37 34 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆RÅS 021 141074 ┆
0x089a0…089c0 (5, 0, 38) 39 36 30 30 39 38 20 20 46 65 72 6d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 65 69 6e ┆960098 Ferm Rein┆
0x089c0…089e0 65 72 74 20 20 20 20 20 31 3a 65 20 44 72 2e 6d 7b 73 74 42 65 73 73 65 6d 65 72 67 61 74 61 6e ┆ert 1:e Dr.mästBessemergatan┆
0x089e0…08a00 20 20 20 20 20 20 20 20 20 20 20 31 34 33 20 20 20 20 20 37 32 34 20 37 33 20 20 56 5b 53 54 45 ┆ 143 724 73 VÄSTE┆
0x08a00…08a20 52 5d 53 20 20 20 30 32 31 20 33 35 33 35 31 34 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆RÅS 021 353514 ┆
0x08a20…08a40 (5, 0, 39) 39 36 30 31 30 38 20 20 4a 6f 68 61 6e 73 73 6f 6e 20 20 20 20 20 20 20 20 20 20 20 42 65 72 74 ┆960108 Johansson Bert┆
0x08a40…08a60 69 6c 20 20 20 20 20 20 31 3a 65 20 74 65 6b 6e 20 20 20 56 61 6c 6c 62 79 20 53 6b 6f 6c 67 61 ┆il 1:e tekn Vallby Skolga┆
0x08a60…08a80 74 61 20 20 20 20 20 20 20 20 20 20 20 35 20 20 20 20 20 37 32 34 20 38 31 20 20 56 5b 53 54 45 ┆ta 5 724 81 VÄSTE┆
0x08a80…08aa0 52 5d 53 20 20 20 30 32 31 20 33 35 31 37 39 36 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆RÅS 021 351796 ┆
0x08aa0…08ac0 (5, 0, 40) 39 36 30 31 31 30 20 20 4c 61 72 73 73 6f 6e 20 20 20 20 20 20 20 20 20 20 20 20 20 43 6f 6e 6e ┆960110 Larsson Conn┆
0x08ac0…08ae0 79 20 20 20 20 20 20 20 31 3a 65 20 74 65 6b 6e 20 20 20 46 6f 72 65 6c 6c 67 61 74 61 6e 20 20 ┆y 1:e tekn Forellgatan ┆
0x08ae0…08b00 20 20 20 20 20 20 20 20 20 20 20 20 31 38 20 20 20 20 20 37 32 33 20 34 38 20 20 56 5b 53 54 45 ┆ 18 723 48 VÄSTE┆
0x08b00…08b20 52 5d 53 20 20 20 30 32 31 20 31 33 32 39 33 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆RÅS 021 132933 ┆
0x08b20…08b40 (5, 0, 41) 39 36 30 31 31 32 20 20 50 65 6e 6e 61 6e 65 6e 20 20 20 20 20 20 20 20 20 20 20 20 52 65 69 6a ┆960112 Pennanen Reij┆
0x08b40…08b60 6f 20 20 20 20 20 20 20 31 3a 65 20 74 65 6b 6e 20 20 20 34 3a 65 20 42 6a 75 72 68 6f 76 64 61 ┆o 1:e tekn 4:e Bjurhovda┆
0x08b60…08b80 67 7d 6e 67 65 6e 20 20 20 20 20 20 20 32 20 20 20 20 20 37 32 35 20 35 32 20 20 56 5b 53 54 45 ┆gången 2 725 52 VÄSTE┆
0x08b80…08ba0 52 5d 53 20 20 20 30 32 31 20 31 38 31 30 36 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆RÅS 021 181061 ┆
0x08ba0…08bc0 (5, 0, 42) 39 36 30 31 31 39 20 20 41 6e 64 65 72 73 73 6f 6e 20 20 20 20 20 20 20 20 20 20 20 54 6f 72 62 ┆960119 Andersson Torb┆
0x08bc0…08be0 6a 7c 72 6e 20 20 20 20 44 72 2e 6d 7b 73 74 20 20 20 20 4c 7c 76 68 61 67 73 67 61 74 61 6e 20 ┆jörn Dr.mäst Lövhagsgatan ┆
0x08be0…08c00 20 20 20 20 20 20 20 20 20 20 20 20 33 31 20 20 20 20 20 37 32 34 20 37 31 20 20 56 5b 53 54 45 ┆ 31 724 71 VÄSTE┆
0x08c00…08c20 52 5d 53 20 20 20 30 32 31 20 33 30 30 35 36 36 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆RÅS 021 300566 ┆
0x08c20…08c40 (5, 0, 43) 39 36 30 31 32 33 20 20 41 6e 64 65 72 73 73 6f 6e 20 20 20 20 20 20 20 20 20 20 20 53 74 65 6e ┆960123 Andersson Sten┆
0x08c40…08c60 20 20 20 20 20 20 20 20 49 6e 67 65 6e 6a 7c 72 20 20 20 4b 75 6c 73 74 7c 74 61 72 67 61 74 61 ┆ Ingenjör Kulstötargata┆
0x08c60…08c80 6e 20 20 20 20 20 20 20 20 20 20 20 31 36 20 20 20 20 20 37 32 32 20 34 31 20 20 56 5b 53 54 45 ┆n 16 722 41 VÄSTE┆
0x08c80…08ca0 52 5d 53 20 20 20 30 32 31 20 31 38 34 39 34 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆RÅS 021 184941 ┆
0x08ca0…08cc0 (5, 0, 44) 39 36 30 31 32 36 20 20 53 75 6e 64 71 76 69 73 74 20 20 20 20 20 20 20 20 20 20 20 42 65 72 6e ┆960126 Sundqvist Bern┆
0x08cc0…08ce0 65 20 20 20 20 20 20 20 49 6e 67 65 6e 6a 7c 72 20 20 20 44 72 61 67 76 65 72 6b 73 67 61 74 61 ┆e Ingenjör Dragverksgata┆
0x08ce0…08d00 6e 20 20 20 20 20 20 20 20 20 20 31 33 34 20 20 20 20 20 37 32 34 20 37 34 20 20 56 5b 53 54 45 ┆n 134 724 74 VÄSTE┆
0x08d00…08d20 52 5d 53 20 20 20 30 32 31 20 33 35 34 30 38 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆RÅS 021 354083 ┆
0x08d20…08d40 (5, 0, 45) 39 36 30 31 32 37 20 20 52 69 6e 67 76 61 6c 6c 20 20 20 20 20 20 20 20 20 20 20 20 52 75 6e 65 ┆960127 Ringvall Rune┆
0x08d40…08d60 20 20 20 20 20 20 20 20 44 72 2e 6d 7b 73 74 20 20 20 20 41 78 65 6c 20 4f 78 65 6e 73 74 69 65 ┆ Dr.mäst Axel Oxenstie┆
0x08d60…08d80 72 6e 61 73 20 47 61 74 61 20 20 20 32 39 20 20 20 20 20 37 32 34 20 37 33 20 20 56 5b 53 54 45 ┆rnas Gata 29 724 73 VÄSTE┆
0x08d80…08da0 52 5d 53 20 20 20 30 32 31 20 33 35 38 37 33 34 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆RÅS 021 358734 ┆
0x08da0…08dc0 (5, 0, 46) 39 36 30 31 33 30 20 20 44 61 67 6c 75 6e 64 20 20 20 20 20 20 20 20 20 20 20 20 20 4f 6c 6f 66 ┆960130 Daglund Olof┆
0x08dc0…08de0 20 20 20 20 20 20 20 20 44 72 2e 6d 7b 73 74 20 20 20 20 53 65 6c 6b 61 6d 6d 61 72 67 61 74 61 ┆ Dr.mäst Selkammargata┆
0x08de0…08e00 6e 20 20 20 20 20 20 20 20 20 20 20 31 33 20 20 20 20 20 37 32 34 20 38 31 20 20 56 5b 53 54 45 ┆n 13 724 81 VÄSTE┆
0x08e00…08e20 52 5d 53 20 20 20 30 32 31 20 33 35 38 34 33 36 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆RÅS 021 358436 ┆
0x08e20…08e40 (5, 0, 47) 39 36 30 31 33 34 20 20 46 72 65 64 72 69 6b 73 73 6f 6e 20 20 20 20 20 20 20 20 20 47 7c 72 61 ┆960134 Fredriksson Göra┆
0x08e40…08e60 6e 20 20 20 20 20 20 20 44 72 2e 6d 7b 73 74 20 20 20 20 42 61 72 6b 61 72 7c 20 42 79 67 61 74 ┆n Dr.mäst Barkarö Bygat┆
0x08e60…08e80 61 20 20 20 20 20 20 20 20 20 20 31 34 31 20 20 20 20 20 37 32 35 20 39 30 20 20 56 5b 53 54 45 ┆a 141 725 90 VÄSTE┆
0x08e80…08ea0 52 5d 53 20 20 20 30 32 31 20 20 35 32 33 36 36 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆RÅS 021 52366 ┆
0x08ea0…08ec0 (5, 0, 48) 39 36 30 31 34 30 20 20 41 73 70 68 6f 6c 6d 20 20 20 20 20 20 20 20 20 20 20 20 20 4a 61 6e 20 ┆960140 Aspholm Jan ┆
0x08ec0…08ee0 20 20 20 20 20 20 20 20 31 3a 65 20 6d 61 73 6b 20 20 20 4c 61 67 6d 61 6e 73 67 61 74 61 6e 20 ┆ 1:e mask Lagmansgatan ┆
0x08ee0…08f00 20 20 20 20 20 20 20 20 20 20 20 20 31 33 20 20 20 20 20 37 32 34 20 37 35 20 20 56 5b 53 54 45 ┆ 13 724 75 VÄSTE┆
0x08f00…08f20 52 5d 53 20 20 20 30 32 31 20 20 35 35 31 36 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆RÅS 021 55162 ┆
0x08f20…08f40 (5, 0, 49) 39 36 30 31 34 36 20 20 4b 61 72 6c 73 73 6f 6e 20 20 20 20 20 20 20 20 20 20 20 20 4c 61 72 73 ┆960146 Karlsson Lars┆
0x08f40…08f60 2d 4f 76 65 20 20 20 20 44 72 2e 6d 7b 73 74 20 20 20 20 44 72 69 76 69 73 76 7b 67 65 6e 20 20 ┆-Ove Dr.mäst Drivisvägen ┆
0x08f60…08f80 20 20 20 20 20 20 20 20 20 20 20 20 31 36 20 20 20 20 20 37 32 32 20 33 31 20 20 56 5b 53 54 45 ┆ 16 722 31 VÄSTE┆
0x08f80…08fa0 52 5d 53 20 20 20 30 32 31 20 20 32 34 30 36 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆RÅS 021 24062 ┆
0x08fa0…08fc0 (5, 0, 50) 39 36 30 31 34 37 20 20 4b 69 6e 64 73 74 65 64 74 20 20 20 20 20 20 20 20 20 20 20 53 76 65 6e ┆960147 Kindstedt Sven┆
0x08fc0…08fe0 2d 4f 6c 6f 76 20 20 20 44 72 2e 6d 7b 73 74 20 20 20 20 4c 69 65 67 61 74 61 6e 20 20 20 20 20 ┆-Olov Dr.mäst Liegatan ┆
0x08fe0…09000 20 20 20 20 20 20 20 20 20 20 20 20 20 33 20 20 20 20 20 37 32 34 20 36 37 20 20 56 5b 53 54 45 ┆ 3 724 67 VÄSTE┆
0x09000…09020 52 5d 53 20 20 20 30 32 31 20 31 38 39 37 31 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆RÅS 021 189713 ┆
0x09020…09040 (5, 0, 51) 39 36 30 31 34 38 20 20 47 75 73 74 61 66 73 73 6f 6e 20 20 20 20 20 20 20 20 20 20 53 76 65 6e ┆960148 Gustafsson Sven┆
0x09040…09060 2d 41 72 6e 65 20 20 20 44 72 2e 6d 7b 73 74 20 20 20 20 56 61 67 6e 73 6c 69 64 65 72 67 61 74 ┆-Arne Dr.mäst Vagnslidergat┆
0x09060…09080 61 6e 20 20 20 20 20 20 20 20 20 20 31 31 20 20 20 20 20 37 32 34 20 38 31 20 20 56 5b 53 54 45 ┆an 11 724 81 VÄSTE┆
0x09080…090a0 52 5d 53 20 20 20 30 32 31 20 33 35 38 39 36 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆RÅS 021 358963 ┆
0x090a0…090c0 (5, 0, 52) 39 36 30 31 34 39 20 20 57 65 73 74 69 6e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4a 61 6e 20 ┆960149 Westin Jan ┆
0x090c0…090e0 20 20 20 20 20 20 20 20 44 72 2e 6d 7b 73 74 20 20 20 20 53 70 69 6b 76 65 72 6b 73 67 61 74 61 ┆ Dr.mäst Spikverksgata┆
0x090e0…09100 6e 20 20 20 20 20 20 20 20 20 20 31 36 38 20 20 20 20 20 37 32 34 20 37 34 20 20 56 5b 53 54 45 ┆n 168 724 74 VÄSTE┆
0x09100…09120 52 5d 53 20 20 20 30 32 31 20 33 35 32 33 30 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆RÅS 021 352303 ┆
0x09120…09140 (5, 0, 53) 39 36 30 31 35 31 20 20 57 69 62 65 72 67 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 6f 6c 61 ┆960151 Wiberg Rola┆
0x09140…09160 6e 64 20 20 20 20 20 20 44 72 2e 6d 7b 73 74 20 20 20 20 53 70 69 6b 76 65 72 6b 73 67 61 74 61 ┆nd Dr.mäst Spikverksgata┆
0x09160…09180 6e 20 20 20 20 20 20 20 20 20 20 31 35 32 20 20 20 20 20 37 32 34 20 37 34 20 20 56 5b 53 54 45 ┆n 152 724 74 VÄSTE┆
0x09180…091a0 52 5d 53 20 20 20 30 32 31 20 33 35 33 33 37 38 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆RÅS 021 353378 ┆
0x091a0…091c0 (5, 0, 54) 39 36 30 31 35 37 20 20 54 76 65 72 64 69 6b 20 20 20 20 20 20 20 20 20 20 20 20 20 56 61 63 6c ┆960157 Tverdik Vacl┆
0x091c0…091e0 61 76 20 20 20 20 20 20 31 3a 65 20 74 65 6b 6e 20 20 20 50 6c 7d 74 76 65 72 6b 73 67 61 74 61 ┆av 1:e tekn Plåtverksgata┆
0x091e0…09200 6e 20 20 20 20 20 20 20 20 20 20 31 34 38 20 20 20 20 20 37 32 34 20 37 34 20 20 56 5b 53 54 45 ┆n 148 724 74 VÄSTE┆
0x09200…09220 52 5d 53 20 20 20 30 32 31 20 33 35 38 35 39 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆RÅS 021 358592 ┆
0x09220…09240 (6, 0, 0) 39 36 30 31 35 38 20 20 4a 6f 68 61 6e 73 73 6f 6e 20 20 20 20 20 20 20 20 20 20 20 4f 6c 6f 66 ┆960158 Johansson Olof┆
0x09240…09260 20 20 20 20 20 20 20 20 31 3a 65 20 74 65 6b 6e 20 20 20 52 75 73 74 62 6f 64 73 67 61 74 61 6e ┆ 1:e tekn Rustbodsgatan┆
0x09260…09280 20 20 20 20 20 20 20 20 20 20 20 20 31 36 20 20 20 20 20 37 32 34 20 38 31 20 20 56 5b 53 54 45 ┆ 16 724 81 VÄSTE┆
0x09280…092a0 52 5d 53 20 20 20 30 32 31 20 33 35 38 30 37 38 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆RÅS 021 358078 ┆
0x092a0…092c0 (6, 0, 1) 39 36 30 31 35 39 20 20 47 69 64 6c 7c 66 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 75 6e 65 ┆960159 Gidlöf Sune┆
0x092c0…092e0 20 20 20 20 20 20 20 20 46 2d 6d 7b 73 74 20 20 20 20 20 4c 69 6e 64 73 62 6f 72 67 73 67 61 74 ┆ F-mäst Lindsborgsgat┆
0x092e0…09300 61 6e 20 20 20 20 20 20 20 20 20 20 20 35 20 20 20 20 20 37 32 32 20 31 38 20 20 56 5b 53 54 45 ┆an 5 722 18 VÄSTE┆
0x09300…09320 52 5d 53 20 20 20 30 32 31 20 31 32 30 39 30 37 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆RÅS 021 120907 ┆
0x09320…10ba0 (6, 0, 2) […elided…]
0x10ba0…10c20 (10, 0, 23) 0x00[0x80]
[…0x1e…]
0x11b20…11b40 (10, 0, 54) 01 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ┆ ┆
0x11b40…11b60 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ┆ ┆
[…0x2…]
0x11ba0…11bef (11, 0, 0) DataSector[0x4f]
[…0x7b…]
0x141e4…14204 (12, 0, 42) 20 20 20 20 20 20 20 20 20 20 20 20 43 4c 4f 53 45 20 50 52 45 47 49 3b 20 20 20 20 20 20 20 20 ┆ CLOSE PREGI; ┆
0x14204…14224 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x14224…14233 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x14233…14253 (12, 0, 43) 20 20 20 20 20 20 20 20 20 20 20 20 43 4c 4f 53 45 20 50 52 45 47 55 3b 20 20 20 20 20 20 20 20 ┆ CLOSE PREGU; ┆
0x14253…14273 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x14273…14282 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x14282…142a2 (12, 0, 44) 20 20 20 20 20 20 20 20 20 20 20 20 43 4c 4f 53 45 20 50 54 52 41 4e 53 3b 20 20 20 20 20 20 20 ┆ CLOSE PTRANS; ┆
0x142a2…142c2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x142c2…142d1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x142d1…142f1 (12, 0, 45) 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 28 35 29 20 45 44 49 54 20 28 27 ┆ PUT SKIP (5) EDIT ('┆
0x142f1…14311 41 4e 54 41 4c 20 52 45 47 50 4f 53 54 45 52 20 49 4e 27 29 20 28 41 28 32 35 29 29 20 28 52 49 ┆ANTAL REGPOSTER IN') (A(25)) (RI┆
0x14311…14320 41 43 43 29 20 28 50 27 5a 5a 5a 39 27 29 3b ┆ACC) (P'ZZZ9');┆
0x14320…14340 (12, 0, 46) 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 28 31 29 20 45 44 49 54 20 28 27 ┆ PUT SKIP (1) EDIT ('┆
0x14340…14360 41 4e 54 41 4c 20 52 45 47 50 4f 53 54 45 52 20 55 54 27 29 20 28 41 28 32 35 29 29 20 28 52 55 ┆ANTAL REGPOSTER UT') (A(25)) (RU┆
0x14360…1436f 41 43 43 29 20 28 50 27 5a 5a 5a 39 27 29 3b ┆ACC) (P'ZZZ9');┆
0x1436f…1438f (12, 0, 47) 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 28 31 29 20 45 44 49 54 20 28 27 ┆ PUT SKIP (1) EDIT ('┆
0x1438f…143af 41 4e 54 41 4c 20 54 52 41 4e 53 50 4f 53 54 45 52 27 29 20 28 41 28 32 35 29 29 20 28 54 41 43 ┆ANTAL TRANSPOSTER') (A(25)) (TAC┆
0x143af…143be 43 29 20 28 50 27 5a 5a 5a 39 27 29 3b 20 20 ┆C) (P'ZZZ9'); ┆
0x143be…143de (12, 0, 48) 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ END; ┆
0x143de…143fe 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x143fe…1440d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1440d…1445c (12, 0, 49) 0x00[0x4f]
[…0x8…]
0x146d4…146f4 (12, 0, 58) 20 20 20 20 44 43 4c 20 20 20 20 20 31 20 20 20 57 52 45 47 2c 20 20 20 20 20 20 20 20 20 20 20 ┆ DCL 1 WREG, ┆
0x146f4…14714 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x14714…14723 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x14723…14743 (12, 0, 59) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 20 20 20 41 4e 53 54 4e 52 20 20 20 20 20 20 ┆ 2 ANSTNR ┆
0x14743…14763 43 48 41 52 20 28 36 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 ┆CHAR (6), ┆
0x14763…14772 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x14772…14792 (12, 0, 60) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 20 20 20 52 45 53 31 20 20 20 20 20 20 20 20 ┆ 2 RES1 ┆
0x14792…147b2 43 48 41 52 20 28 32 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆CHAR (2), ┆
0x147b2…147c1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x147c1…147e1 (12, 0, 61) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 20 20 20 45 4e 41 4d 4e 20 20 20 20 20 20 20 ┆ 2 ENAMN ┆
0x147e1…14801 43 48 41 52 20 28 32 30 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆CHAR (20), ┆
0x14801…14810 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x14810…14830 (12, 0, 62) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 20 20 20 46 4e 41 4d 4e 20 20 20 20 20 20 20 ┆ 2 FNAMN ┆
0x14830…14850 43 48 41 52 20 28 31 32 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆CHAR (12), ┆
0x14850…1485f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1485f…1487f (12, 0, 63) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 20 20 20 54 49 54 45 4c 20 20 20 20 20 20 20 ┆ 2 TITEL ┆
0x1487f…1489f 43 48 41 52 20 28 31 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 ┆CHAR (11), ┆
0x1489f…148ae 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x148ae…148ce (12, 0, 64) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 20 20 20 41 44 52 45 53 53 20 20 20 20 20 20 ┆ 2 ADRESS ┆
0x148ce…148ee 43 48 41 52 20 28 32 35 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆CHAR (25), ┆
0x148ee…148fd 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x148fd…1491d (12, 0, 65) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 20 20 20 47 41 54 55 4e 52 20 20 20 20 20 20 ┆ 2 GATUNR ┆
0x1491d…1493d 43 48 41 52 20 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 20 20 ┆CHAR (4), ┆
0x1493d…1494c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1494c…1496c (12, 0, 66) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 20 20 20 49 4e 47 20 20 20 20 20 20 20 20 20 ┆ 2 ING ┆
0x1496c…1498c 43 48 41 52 20 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 20 20 ┆CHAR (4), ┆
0x1498c…1499b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1499b…149bb (12, 0, 67) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 20 20 20 50 4f 53 54 4e 52 20 20 20 20 20 20 ┆ 2 POSTNR ┆
0x149bb…149db 43 48 41 52 20 28 36 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 ┆CHAR (6), ┆
0x149db…149ea 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x149ea…14a0a (12, 0, 68) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 20 20 20 52 45 53 32 20 20 20 20 20 20 20 20 ┆ 2 RES2 ┆
0x14a0a…14a2a 43 48 41 52 20 28 36 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 ┆CHAR (6), ┆
0x14a2a…14a39 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x14a39…14a59 (12, 0, 69) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 20 20 20 4f 52 54 4e 41 4d 4e 20 20 20 20 20 ┆ 2 ORTNAMN ┆
0x14a59…14a79 43 48 41 52 20 28 31 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 ┆CHAR (11), ┆
0x14a79…14a88 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x14a88…14aa8 (12, 0, 70) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 20 20 20 52 49 4b 54 4e 52 20 20 20 20 20 20 ┆ 2 RIKTNR ┆
0x14aa8…14ac8 43 48 41 52 20 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 20 20 ┆CHAR (4), ┆
0x14ac8…14ad7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x14ad7…14af7 (12, 0, 71) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 20 20 20 54 45 4c 4e 52 20 20 20 20 20 20 20 ┆ 2 TELNR ┆
0x14af7…14b17 43 48 41 52 20 28 36 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 ┆CHAR (6), ┆
0x14b17…14b26 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x14b26…14b46 (12, 0, 72) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 20 20 20 52 45 53 33 20 20 20 20 20 20 20 20 ┆ 2 RES3 ┆
0x14b46…14b66 43 48 41 52 20 28 31 36 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆CHAR (16); ┆
0x14b66…14b75 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x14b75…14b95 (12, 0, 73) 20 20 20 20 44 43 4c 20 20 20 20 20 31 20 20 20 54 52 41 4e 53 20 28 32 35 29 2c 20 20 20 20 20 ┆ DCL 1 TRANS (25), ┆
0x14b95…14bb5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x14bb5…14bc4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x14bc4…14be4 (12, 0, 74) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 20 20 20 54 41 4e 53 54 4e 52 20 20 20 20 20 ┆ 2 TANSTNR ┆
0x14be4…14c04 43 48 41 52 20 28 36 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 ┆CHAR (6), ┆
0x14c04…14c13 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x14c13…14c33 (12, 0, 75) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 20 20 20 54 4b 4f 44 20 20 20 20 20 20 20 20 ┆ 2 TKOD ┆
0x14c33…14c53 43 48 41 52 20 28 32 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆CHAR (2), ┆
0x14c53…14c62 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x14c62…14c82 (12, 0, 76) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 20 20 20 54 45 4e 41 4d 4e 20 20 20 20 20 20 ┆ 2 TENAMN ┆
0x14c82…14ca2 43 48 41 52 20 28 32 30 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆CHAR (20), ┆
0x14ca2…14cb1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x14cb1…14cd1 (12, 0, 77) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 20 20 20 54 46 4e 41 4d 4e 20 20 20 20 20 20 ┆ 2 TFNAMN ┆
0x14cd1…14cf1 43 48 41 52 20 28 31 32 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆CHAR (12), ┆
0x14cf1…14d00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x14d00…14d20 (12, 0, 78) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 20 20 20 54 54 49 54 45 4c 20 20 20 20 20 20 ┆ 2 TTITEL ┆
0x14d20…14d40 43 48 41 52 20 28 31 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 ┆CHAR (11), ┆
0x14d40…14d4f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x14d4f…14d6f (12, 0, 79) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 20 20 20 54 41 44 52 45 53 53 20 20 20 20 20 ┆ 2 TADRESS ┆
0x14d6f…14d8f 43 48 41 52 20 28 32 35 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆CHAR (25), ┆
0x14d8f…14d9e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x14d9e…14dbe (12, 0, 80) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 20 20 20 54 47 41 54 55 4e 52 20 20 20 20 20 ┆ 2 TGATUNR ┆
0x14dbe…14dde 43 48 41 52 20 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 20 20 ┆CHAR (4), ┆
0x14dde…14ded 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x14ded…14e0d (12, 0, 81) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 20 20 20 54 49 4e 47 20 20 20 20 20 20 20 20 ┆ 2 TING ┆
0x14e0d…14e2d 43 48 41 52 20 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 20 20 ┆CHAR (4), ┆
0x14e2d…14e3c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x14e3c…14e5c (13, 0, 0) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 20 20 20 54 50 4f 53 54 4e 52 20 20 20 20 20 ┆ 2 TPOSTNR ┆
0x14e5c…14e7c 43 48 41 52 20 28 36 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 ┆CHAR (6), ┆
0x14e7c…14e8b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x14e8b…14eab (13, 0, 1) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 20 20 20 54 52 45 53 32 20 20 20 20 20 20 20 ┆ 2 TRES2 ┆
0x14eab…14ecb 43 48 41 52 20 28 32 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆CHAR (2), ┆
0x14ecb…14eda 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x14eda…14efa (13, 0, 2) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 20 20 20 54 4f 52 54 4e 41 4d 4e 20 20 20 20 ┆ 2 TORTNAMN ┆
0x14efa…14f1a 43 48 41 52 20 28 31 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 ┆CHAR (11), ┆
0x14f1a…14f29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x14f29…14f49 (13, 0, 3) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 20 20 20 54 52 49 4b 54 4e 52 20 20 20 20 20 ┆ 2 TRIKTNR ┆
0x14f49…14f69 43 48 41 52 20 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 20 20 ┆CHAR (4), ┆
0x14f69…14f78 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x14f78…14f98 (13, 0, 4) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 20 20 20 54 54 45 4c 4e 52 20 20 20 20 20 20 ┆ 2 TTELNR ┆
0x14f98…14fb8 43 48 41 52 20 28 36 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 ┆CHAR (6), ┆
0x14fb8…14fc7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x14fc7…14fe7 (13, 0, 5) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 20 20 20 54 52 45 53 33 20 20 20 20 20 20 20 ┆ 2 TRES3 ┆
0x14fe7…15007 43 48 41 52 20 28 31 36 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆CHAR (16); ┆
0x15007…15016 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x15016…15036 (13, 0, 6) 2f 2a 20 20 50 52 4f 43 45 44 55 52 45 20 44 49 56 49 53 49 4f 4e 2e 20 20 20 20 20 20 20 20 20 ┆/* PROCEDURE DIVISION. ┆
0x15036…15056 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x15056…15065 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2f ┆ */┆
0x15065…15085 (13, 0, 7) 20 20 20 20 41 31 30 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ A100: ┆
0x15085…150a5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x150a5…150b4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x150b4…150d4 (13, 0, 8) 20 20 20 20 20 20 20 20 20 20 20 20 4f 50 45 4e 20 50 52 45 47 49 3b 20 20 20 20 20 20 20 20 20 ┆ OPEN PREGI; ┆
0x150d4…150f4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x150f4…15103 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x15103…15123 (13, 0, 9) 20 20 20 20 20 20 20 20 20 20 20 20 4f 50 45 4e 20 50 52 45 47 55 3b 20 20 20 20 20 20 20 20 20 ┆ OPEN PREGU; ┆
0x15123…15143 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x15143…15152 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x15152…15172 (13, 0, 10) 20 20 20 20 20 20 20 20 20 20 20 20 4f 50 45 4e 20 50 54 52 41 4e 53 3b 20 20 20 20 20 20 20 20 ┆ OPEN PTRANS; ┆
0x15172…15192 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x15192…151a1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x151a1…151c1 (13, 0, 11) 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 20 28 44 29 20 53 4b 49 50 20 45 44 ┆ PUT FILE (D) SKIP ED┆
0x151c1…151e1 49 54 20 28 27 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 41 52 42 45 54 4e 49 4e 47 20 50 ┆IT (' BEARBETNING P┆
0x151e1…151f0 5d 47 5d 52 27 29 20 28 41 28 34 37 29 29 3b ┆ÅGÅR') (A(47));┆
0x151f0…15210 (13, 0, 12) 20 20 20 20 41 32 30 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ A200: ┆
0x15210…15230 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x15230…1523f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1523f…1525f (13, 0, 13) 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 41 4e 53 54 4e 52 20 28 4a 29 20 3d 20 27 39 39 39 ┆ IF ANSTNR (J) = '999┆
0x1525f…1527f 39 39 39 27 20 54 48 45 4e 20 47 4f 20 54 4f 20 41 32 35 30 3b 20 20 20 20 20 20 20 20 20 20 20 ┆999' THEN GO TO A250; ┆
0x1527f…1528e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1528e…152ae (13, 0, 14) 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 4a 20 3d 20 52 49 4d 41 58 20 54 48 45 4e 20 52 45 ┆ IF J = RIMAX THEN RE┆
0x152ae…152ce 54 55 52 20 3d 20 27 41 32 34 30 27 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆TUR = 'A240'; ┆
0x152ce…152dd 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x152dd…152fd (13, 0, 15) 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 4a 20 3d 20 52 49 4d 41 58 20 54 48 45 4e 20 47 4f ┆ IF J = RIMAX THEN GO┆
0x152fd…1531d 20 54 4f 20 45 31 30 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 ┆ TO E100; ┆
0x1531d…1532c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1532c…1534c (13, 0, 16) 20 20 20 20 41 32 34 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ A240: ┆
0x1534c…1536c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1536c…1537b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1537b…1539b (13, 0, 17) 20 20 20 20 20 20 20 20 20 20 20 20 4a 20 3d 20 4a 20 2b 20 31 3b 20 20 20 20 20 20 20 20 20 20 ┆ J = J + 1; ┆
0x1539b…153bb 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x153bb…153ca 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x153ca…153ea (13, 0, 18) 20 20 20 20 41 32 35 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ A250: ┆
0x153ea…1540a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1540a…15419 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x15419…15439 (13, 0, 19) 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 54 41 4e 53 54 4e 52 20 3d 20 27 39 39 39 39 39 39 ┆ IF TANSTNR = '999999┆
0x15439…15459 27 20 54 48 45 4e 20 47 4f 20 54 4f 20 41 33 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆' THEN GO TO A300; ┆
0x15459…15468 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x15468…15488 (13, 0, 20) 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 54 49 4e 44 20 3d 20 32 35 20 54 48 45 4e 20 44 4f ┆ IF TIND = 25 THEN DO┆
0x15488…154a8 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 ┆; ┆
0x154a8…154b7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x154b7…154d7 (13, 0, 21) 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 20 28 50 ┆ READ FILE (P┆
0x154d7…154f7 54 52 41 4e 53 29 20 49 4e 54 4f 20 28 54 52 41 4e 53 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆TRANS) INTO (TRANS); ┆
0x154f7…15506 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x15506…15526 (13, 0, 22) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4f 4e 20 45 4e 44 46 49 4c 45 20 47 ┆ ON ENDFILE G┆
0x15526…15546 4f 20 54 4f 20 46 31 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆O TO F100; ┆
0x15546…15555 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x15555…15575 (13, 0, 23) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 41 43 43 20 3d 20 54 41 43 43 20 ┆ TACC = TACC ┆
0x15575…15595 2b 20 31 20 20 20 20 20 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 ┆
0x15595…155a4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x155a4…155c4 (13, 0, 24) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 20 20 20 20 20 20 20 20 ┆ END; ┆
0x155c4…155e4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x155e4…155f3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x155f3…15613 (13, 0, 25) 20 20 20 20 41 33 30 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ A300: ┆
0x15613…15633 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x15633…15642 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x15642…15662 (13, 0, 26) 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 54 41 4e 53 54 4e 52 20 3d 20 41 4e 53 54 4e 52 20 ┆ IF TANSTNR = ANSTNR ┆
0x15662…15682 54 48 45 4e 20 47 4f 20 54 4f 20 42 31 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆THEN GO TO B100; ┆
0x15682…15691 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x15691…156b1 (13, 0, 27) 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 54 41 4e 53 54 4e 52 20 3e 20 41 4e 53 54 4e 52 20 ┆ IF TANSTNR > ANSTNR ┆
0x156b1…156d1 54 48 45 4e 20 47 4f 20 54 4f 20 43 31 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆THEN GO TO C100; ┆
0x156d1…156e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x156e0…15700 (13, 0, 28) 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 54 41 4e 53 54 4e 52 20 3c 20 41 4e 53 54 4e 52 20 ┆ IF TANSTNR < ANSTNR ┆
0x15700…15720 54 48 45 4e 20 47 4f 20 54 4f 20 44 31 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆THEN GO TO D100; ┆
0x15720…1572f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1572f…1574f (13, 0, 29) 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 20 28 44 29 20 53 4b 49 50 20 45 44 ┆ PUT FILE (D) SKIP ED┆
0x1574f…1576f 49 54 20 28 27 46 45 4c 20 49 20 55 50 50 44 41 54 27 29 20 28 41 28 34 37 29 29 3b 20 20 20 20 ┆IT ('FEL I UPPDAT') (A(47)); ┆
0x1576f…1577e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1577e…1579e (13, 0, 30) 20 20 20 20 20 20 20 20 20 20 20 20 47 45 54 20 53 4b 49 50 20 4c 49 53 54 20 28 54 52 45 53 33 ┆ GET SKIP LIST (TRES3┆
0x1579e…157be 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 ┆); ┆
0x157be…157cd 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x157cd…157ed (13, 0, 31) 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 20 46 49 4c 45 20 28 50 52 45 47 55 29 20 46 ┆ WRITE FILE (PREGU) F┆
0x157ed…1580d 52 4f 4d 20 28 54 52 41 4e 53 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ROM (TRANS); ┆
0x1580d…1581c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1581c…1583c (13, 0, 32) 20 20 20 20 42 31 30 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ B100: ┆
0x1583c…1585c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1585c…1586b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1586b…1588b (13, 0, 33) 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 41 4e 53 54 4e 52 20 3d 20 27 39 39 39 39 39 39 27 ┆ IF ANSTNR = '999999'┆
0x1588b…158ab 20 54 48 45 4e 20 47 4f 20 54 4f 20 47 31 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ THEN GO TO G100; ┆
0x158ab…158ba 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x158ba…158da (13, 0, 34) 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 54 4b 4f 44 20 3d 20 44 4c 20 54 48 45 4e 20 47 4f ┆ IF TKOD = DL THEN GO┆
0x158da…158fa 20 54 4f 20 44 32 30 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 ┆ TO D200; ┆
0x158fa…15909 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x15909…15929 (13, 0, 35) 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 20 46 49 4c 45 20 28 50 52 45 47 55 29 20 46 ┆ WRITE FILE (PREGU) F┆
0x15929…15949 52 4f 4d 20 28 54 52 41 4e 53 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ROM (TRANS); ┆
0x15949…15958 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x15958…15978 (13, 0, 36) 20 20 20 20 20 20 20 20 20 20 20 20 52 55 41 43 43 20 3d 20 52 55 41 43 43 20 2b 20 31 3b 20 20 ┆ RUACC = RUACC + 1; ┆
0x15978…15998 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x15998…159a7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x159a7…159c7 (13, 0, 37) 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 41 32 30 30 3b 20 20 20 20 20 20 20 20 20 ┆ GO TO A200; ┆
0x159c7…159e7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x159e7…159f6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x159f6…15a16 (13, 0, 38) 20 20 20 20 43 31 30 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ C100: ┆
0x15a16…15a36 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x15a36…15a45 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x15a45…15a65 (13, 0, 39) 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 20 46 49 4c 45 20 28 50 52 45 47 55 29 20 46 ┆ WRITE FILE (PREGU) F┆
0x15a65…15a85 52 4f 4d 20 28 52 45 47 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ROM (REG); ┆
0x15a85…15a94 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x15a94…15ab4 (13, 0, 40) 20 20 20 20 20 20 20 20 20 20 20 20 52 55 41 43 43 20 3d 20 52 55 41 43 43 20 2b 20 31 3b 20 20 ┆ RUACC = RUACC + 1; ┆
0x15ab4…15ad4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x15ad4…15ae3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x15ae3…15b03 (13, 0, 41) 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 41 4e 53 54 4e 52 20 28 4a 29 20 3d 20 27 39 39 39 ┆ IF ANSTNR (J) = '999┆
0x15b03…15b23 39 39 39 27 20 54 48 45 4e 20 47 4f 20 54 4f 20 41 33 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 ┆999' THEN GO TO A300; ┆
0x15b23…15b32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x15b32…15b52 (13, 0, 42) 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 4a 20 3d 20 52 49 4d 41 58 20 54 48 45 4e 20 52 45 ┆ IF J = RIMAX THEN RE┆
0x15b52…15b72 54 55 52 20 3d 20 27 43 32 30 30 27 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆TUR = 'C200'; ┆
0x15b72…15b81 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x15b81…15ba1 (13, 0, 43) 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 4a 20 3d 20 52 49 4d 41 58 20 54 48 45 4e 20 47 4f ┆ IF J = RIMAX THEN GO┆
0x15ba1…15bc1 20 54 4f 20 45 31 30 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 ┆ TO E100; ┆
0x15bc1…15bd0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x15bd0…15bf0 (13, 0, 44) 20 20 20 20 43 32 30 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ C200: ┆
0x15bf0…15c10 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x15c10…15c1f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x15c1f…15c3f (13, 0, 45) 20 20 20 20 20 20 20 20 20 20 20 20 4a 20 3d 20 4a 20 2b 20 31 3b 20 20 20 20 20 20 20 20 20 20 ┆ J = J + 1; ┆
0x15c3f…15c5f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x15c5f…15c6e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x15c6e…15c8e (13, 0, 46) 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 41 33 30 30 3b 20 20 20 20 20 20 20 20 20 ┆ GO TO A300; ┆
0x15c8e…15cae 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x15cae…15cbd 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x15cbd…15cdd (13, 0, 47) 20 20 20 20 44 31 30 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ D100: ┆
0x15cdd…15cfd 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x15cfd…15d0c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x15d0c…15d2c (13, 0, 48) 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 20 46 49 4c 45 20 28 50 52 45 47 55 29 20 46 ┆ WRITE FILE (PREGU) F┆
0x15d2c…15d4c 52 4f 4d 20 28 54 52 41 4e 53 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ROM (TRANS); ┆
0x15d4c…15d5b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x15d5b…15d7b (13, 0, 49) 20 20 20 20 20 20 20 20 20 20 20 20 52 55 41 43 43 20 3d 20 52 55 41 43 43 20 2b 20 31 3b 20 20 ┆ RUACC = RUACC + 1; ┆
0x15d7b…15d9b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x15d9b…15daa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x15daa…15dca (13, 0, 50) 20 20 20 20 44 32 30 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ D200: ┆
0x15dca…15dea 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x15dea…15df9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x15df9…15e19 (13, 0, 51) 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 54 41 4e 53 54 4e 52 20 3d 20 27 39 39 39 39 39 39 ┆ IF TANSTNR = '999999┆
0x15e19…15e39 27 20 54 48 45 4e 20 47 4f 20 54 4f 20 41 33 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆' THEN GO TO A300; ┆
0x15e39…15e48 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x15e48…15e68 (13, 0, 52) 20 20 20 20 20 20 20 20 20 20 20 20 52 45 41 44 20 46 49 4c 45 20 28 50 54 52 41 4e 53 29 20 49 ┆ READ FILE (PTRANS) I┆
0x15e68…15e88 4e 54 4f 20 28 54 52 41 4e 53 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆NTO (TRANS); ┆
0x15e88…15e97 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x15e97…15eb7 (13, 0, 53) 20 20 20 20 20 20 20 20 20 20 20 20 4f 4e 20 45 4e 44 46 49 4c 45 20 47 4f 20 54 4f 20 46 31 30 ┆ ON ENDFILE GO TO F10┆
0x15eb7…15ed7 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; ┆
0x15ed7…15ee6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x15ee6…15f06 (13, 0, 54) 20 20 20 20 20 20 20 20 20 20 20 20 54 41 43 43 20 3d 20 54 41 43 43 20 2b 20 31 3b 20 20 20 20 ┆ TACC = TACC + 1; ┆
0x15f06…15f26 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x15f26…15f35 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x15f35…15f55 (13, 0, 55) 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 41 33 30 30 3b 20 20 20 20 20 20 20 20 20 ┆ GO TO A300; ┆
0x15f55…15f75 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x15f75…15f84 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x15f84…15fa4 (13, 0, 56) 20 20 20 20 45 31 30 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ E100: ┆
0x15fa4…15fc4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x15fc4…15fd3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x15fd3…15ff3 (13, 0, 57) 20 20 20 20 20 20 20 20 20 20 20 20 52 45 41 44 20 46 49 4c 45 20 28 50 52 45 47 49 29 20 49 4e ┆ READ FILE (PREGI) IN┆
0x15ff3…16013 54 4f 20 28 52 45 47 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 ┆TO (REG); ┆
0x16013…16022 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x16022…16042 (13, 0, 58) 20 20 20 20 20 20 20 20 20 20 20 20 4a 20 3d 20 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ J = 0; ┆
0x16042…16062 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x16062…16071 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x16071…16091 (13, 0, 59) 20 20 20 20 45 32 30 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ E200: ┆
0x16091…160b1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x160b1…160c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x160c0…160e0 (13, 0, 60) 20 20 20 20 20 20 20 20 20 20 20 20 4a 20 3d 20 4a 20 2b 20 31 3b 20 20 20 20 20 20 20 20 20 20 ┆ J = J + 1; ┆
0x160e0…16100 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x16100…1610f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1610f…1612f (13, 0, 61) 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 4a 20 3d 20 32 35 20 54 48 45 4e 20 47 4f 20 54 4f ┆ IF J = 25 THEN GO TO┆
0x1612f…1614f 20 45 33 30 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 ┆ E300; ┆
0x1614f…1615e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1615e…1617e (13, 0, 62) 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 41 4e 53 54 4e 52 20 28 4a 29 20 3d 20 27 39 39 39 ┆ IF ANSTNR (J) = '999┆
0x1617e…1619e 39 39 39 27 20 54 48 45 4e 20 47 4f 20 54 4f 20 45 33 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 ┆999' THEN GO TO E300; ┆
0x1619e…161ad 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x161ad…161cd (13, 0, 63) 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 4a 20 3c 20 32 36 20 54 48 45 4e 20 47 4f 20 54 4f ┆ IF J < 26 THEN GO TO┆
0x161cd…161ed 20 45 32 30 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 ┆ E200; ┆
0x161ed…161fc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x161fc…1621c (13, 0, 64) 20 20 20 20 45 33 30 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ E300: ┆
0x1621c…1623c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1623c…1624b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1624b…1626b (13, 0, 65) 20 20 20 20 20 20 20 20 20 20 20 20 52 49 41 43 43 20 3d 20 52 49 41 43 43 20 2b 20 4a 3b 20 20 ┆ RIACC = RIACC + J; ┆
0x1626b…1628b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1628b…1629a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1629a…162ba (13, 0, 66) 20 20 20 20 20 20 20 20 20 20 20 20 52 49 4d 41 58 20 3d 20 4a 3b 20 20 20 20 20 20 20 20 20 20 ┆ RIMAX = J; ┆
0x162ba…162da 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x162da…162e9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x162e9…16309 (13, 0, 67) 20 20 20 20 20 20 20 20 20 20 20 20 4a 20 3d 20 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ J = 0; ┆
0x16309…16329 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x16329…16338 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x16338…16358 (13, 0, 68) 20 20 20 20 45 34 30 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ E400: ┆
0x16358…16378 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x16378…16387 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x16387…163a7 (13, 0, 69) 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 52 45 54 55 52 20 3d 20 27 41 32 34 30 27 20 54 48 ┆ IF RETUR = 'A240' TH┆
0x163a7…163c7 45 4e 20 47 4f 20 54 4f 20 41 32 34 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆EN GO TO A240; ┆
0x163c7…163d6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x163d6…163f6 (13, 0, 70) 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 52 45 54 55 52 20 3d 20 27 43 32 30 30 27 20 54 48 ┆ IF RETUR = 'C200' TH┆
0x163f6…16416 45 4e 20 47 4f 20 54 4f 20 43 32 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆EN GO TO C200; ┆
0x16416…16425 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x16425…16445 (13, 0, 71) 20 20 20 20 46 31 30 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ F100: ┆
0x16445…16465 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x16465…16474 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x16474…16494 (13, 0, 72) 20 20 20 20 47 31 30 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ G100: ┆
0x16494…164b4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x164b4…164c3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x164c3…164e3 (13, 0, 73) 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 20 46 49 4c 45 20 28 50 52 45 47 55 29 20 46 ┆ WRITE FILE (PREGU) F┆
0x164e3…16503 52 4f 4d 20 28 52 45 47 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ROM (REG); ┆
0x16503…16512 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x16512…16532 (13, 0, 74) 20 20 20 20 20 20 20 20 20 20 20 20 52 55 41 43 43 20 3d 20 52 55 41 43 43 20 2b 20 31 3b 20 20 ┆ RUACC = RUACC + 1; ┆
0x16532…16552 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x16552…16561 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x16561…16581 (13, 0, 75) 20 20 20 20 20 20 20 20 20 20 20 20 43 4c 4f 53 45 20 50 52 45 47 49 3b 20 20 20 20 20 20 20 20 ┆ CLOSE PREGI; ┆
0x16581…165a1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x165a1…165b0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x165b0…165d0 (13, 0, 76) 20 20 20 20 20 20 20 20 20 20 20 20 43 4c 4f 53 45 20 50 52 45 47 55 3b 20 20 20 20 20 20 20 20 ┆ CLOSE PREGU; ┆
0x165d0…165f0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x165f0…165ff 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x165ff…1661f (13, 0, 77) 20 20 20 20 20 20 20 20 20 20 20 20 43 4c 4f 53 45 20 50 54 52 41 4e 53 3b 20 20 20 20 20 20 20 ┆ CLOSE PTRANS; ┆
0x1661f…1663f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1663f…1664e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1664e…1666e (13, 0, 78) 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 28 35 29 20 45 44 49 54 20 28 27 ┆ PUT SKIP (5) EDIT ('┆
0x1666e…1668e 41 4e 54 41 4c 20 52 45 47 50 4f 53 54 45 52 20 49 4e 27 29 20 28 41 28 32 35 29 29 20 28 52 49 ┆ANTAL REGPOSTER IN') (A(25)) (RI┆
0x1668e…1669d 41 43 43 29 20 28 50 27 5a 5a 5a 39 27 29 3b ┆ACC) (P'ZZZ9');┆
0x1669d…166bd (13, 0, 79) 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 28 31 29 20 45 44 49 54 20 28 27 ┆ PUT SKIP (1) EDIT ('┆
0x166bd…166dd 41 4e 54 41 4c 20 52 45 47 50 4f 53 54 45 52 20 55 54 27 29 20 28 41 28 32 35 29 29 20 28 52 55 ┆ANTAL REGPOSTER UT') (A(25)) (RU┆
0x166dd…166ec 41 43 43 29 20 28 50 27 5a 5a 5a 39 27 29 3b ┆ACC) (P'ZZZ9');┆
0x166ec…1670c (13, 0, 80) 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 28 31 29 20 45 44 49 54 20 28 27 ┆ PUT SKIP (1) EDIT ('┆
0x1670c…1672c 41 4e 54 41 4c 20 54 52 41 4e 53 50 4f 53 54 45 52 27 29 20 28 41 28 32 35 29 29 20 28 54 41 43 ┆ANTAL TRANSPOSTER') (A(25)) (TAC┆
0x1672c…1673b 43 29 20 28 50 27 5a 5a 5a 39 27 29 3b 20 20 ┆C) (P'ZZZ9'); ┆
0x1673b…1675b (13, 0, 81) 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ END; ┆
0x1675b…1677b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1677b…1678a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1678a…167d9 (14, 0, 0) DataSector[0x4f]
[…0x89…]
0x19220…19240 (15, 0, 56) 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 28 31 29 20 45 44 49 54 20 28 27 ┆ PUT SKIP (1) EDIT ('┆
0x19240…19260 41 4e 54 41 4c 20 54 52 41 4e 53 50 4f 53 54 45 52 27 29 20 28 41 28 32 35 29 29 20 28 54 41 43 ┆ANTAL TRANSPOSTER') (A(25)) (TAC┆
0x19260…1926f 43 29 20 28 50 27 5a 5a 5a 39 27 29 3b 20 20 ┆C) (P'ZZZ9'); ┆
0x1926f…1928f (15, 0, 57) 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ END; ┆
0x1928f…192af 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x192af…192be 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x192be…192de (15, 0, 58) 20 20 20 20 20 20 20 20 20 20 20 20 54 49 41 4e 54 20 3d 20 54 49 41 4e 54 20 2d 20 4a 3b 20 20 ┆ TIANT = TIANT - J; ┆
0x192de…192fe 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x192fe…1930d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1930d…1932d (15, 0, 59) 20 20 20 20 20 20 20 20 20 20 20 20 43 41 4c 4c 20 42 4c 4f 43 4b 41 52 45 20 28 50 54 52 41 4e ┆ CALL BLOCKARE (PTRAN┆
0x1932d…1934d 53 20 54 52 41 4e 53 2c 20 49 2c 20 4b 4f 44 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆S TRANS, I, KOD); ┆
0x1934d…1935c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1935c…1937c (15, 0, 60) 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 49 20 7f 3d 20 30 20 54 48 45 4e 20 44 4f 20 20 20 ┆ IF I = 0 THEN DO ┆
0x1937c…1939c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1939c…193ab 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x193ab…193cb (15, 0, 61) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 20 28 44 29 ┆ PUT FILE (D)┆
0x193cb…193eb 20 53 4b 49 50 20 45 44 49 54 20 28 27 4c 5b 53 46 45 4c 20 54 52 41 4e 53 27 29 20 28 41 28 34 ┆ SKIP EDIT ('LÄSFEL TRANS') (A(4┆
0x193eb…193fa 32 29 29 20 4b 4f 44 20 28 27 50 39 27 29 3b ┆2)) KOD ('P9');┆
0x193fa…1941a (15, 0, 62) 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ END; ┆
0x1941a…1943a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1943a…19449 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19449…19469 (15, 0, 63) 20 20 20 20 20 20 20 20 20 20 20 20 54 49 41 43 43 20 3d 20 54 49 41 43 43 20 2b 20 31 3b 20 20 ┆ TIACC = TIACC + 1; ┆
0x19469…19489 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19489…19498 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19498…194b8 (15, 0, 64) 20 20 20 20 20 20 20 20 20 20 20 20 52 45 54 55 52 4e 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ RETURN; ┆
0x194b8…194d8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x194d8…194e7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x194e7…19507 (15, 0, 65) 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ END; ┆
0x19507…19527 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19527…19536 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19536…19556 (15, 0, 66) 20 20 20 20 47 31 30 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ G100: ┆
0x19556…19576 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19576…19585 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19585…195a5 (15, 0, 67) 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 20 46 49 4c 45 20 28 50 52 45 47 55 29 20 46 ┆ WRITE FILE (PREGU) F┆
0x195a5…195c5 52 4f 4d 20 28 52 45 47 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ROM (REG); ┆
0x195c5…195d4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x195d4…195f4 (15, 0, 68) 20 20 20 20 20 20 20 20 20 20 20 20 52 55 41 43 43 20 3d 20 52 55 41 43 43 20 2b 20 31 3b 20 20 ┆ RUACC = RUACC + 1; ┆
0x195f4…19614 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19614…19623 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19623…19643 (15, 0, 69) 20 20 20 20 20 20 20 20 20 20 20 20 43 4c 4f 53 45 20 50 52 45 47 49 3b 20 20 20 20 20 20 20 20 ┆ CLOSE PREGI; ┆
0x19643…19663 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19663…19672 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19672…19692 (15, 0, 70) 20 20 20 20 20 20 20 20 20 20 20 20 43 4c 4f 53 45 20 50 52 45 47 55 3b 20 20 20 20 20 20 20 20 ┆ CLOSE PREGU; ┆
0x19692…196b2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x196b2…196c1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x196c1…196e1 (15, 0, 71) 20 20 20 20 20 20 20 20 20 20 20 20 43 4c 4f 53 45 20 50 54 52 41 4e 53 3b 20 20 20 20 20 20 20 ┆ CLOSE PTRANS; ┆
0x196e1…19701 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19701…19710 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19710…19730 (15, 0, 72) 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 28 35 29 20 45 44 49 54 20 28 27 ┆ PUT SKIP (5) EDIT ('┆
0x19730…19750 41 4e 54 41 4c 20 52 45 47 50 4f 53 54 45 52 20 49 4e 27 29 20 28 41 28 32 35 29 29 20 28 52 49 ┆ANTAL REGPOSTER IN') (A(25)) (RI┆
0x19750…1975f 41 43 43 29 20 28 50 27 5a 5a 5a 39 27 29 3b ┆ACC) (P'ZZZ9');┆
0x1975f…1977f (15, 0, 73) 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 28 31 29 20 45 44 49 54 20 28 27 ┆ PUT SKIP (1) EDIT ('┆
0x1977f…1979f 41 4e 54 41 4c 20 52 45 47 50 4f 53 54 45 52 20 55 54 27 29 20 28 41 28 32 35 29 29 20 28 52 55 ┆ANTAL REGPOSTER UT') (A(25)) (RU┆
0x1979f…197ae 41 43 43 29 20 28 50 27 5a 5a 5a 39 27 29 3b ┆ACC) (P'ZZZ9');┆
0x197ae…197ce (15, 0, 74) 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 28 31 29 20 45 44 49 54 20 28 27 ┆ PUT SKIP (1) EDIT ('┆
0x197ce…197ee 41 4e 54 41 4c 20 54 52 41 4e 53 50 4f 53 54 45 52 27 29 20 28 41 28 32 35 29 29 20 28 54 41 43 ┆ANTAL TRANSPOSTER') (A(25)) (TAC┆
0x197ee…197fd 43 29 20 28 50 27 5a 5a 5a 39 27 29 3b 20 20 ┆C) (P'ZZZ9'); ┆
0x197fd…1981d (15, 0, 75) 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ END; ┆
0x1981d…1983d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1983d…1984c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1984c…1989b (15, 0, 76) 0x00[0x4f]
[…0x4…]
0x199d7…199f7 (15, 0, 81) 01 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ┆ ┆
0x199f7…19a17 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ┆ ┆
0x19a17…19a26 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ┆ ┆
0x19a26…19a75 (16, 0, 0) 0x00[0x4f]
[…0x18…]
0x1a1dd…1a1e0 (16, 0, 25) 00 00 00 ┆ ┆
0x1a1e0…1a200 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x1…]
0x1a220…1d610 […elided…]
0x1d610…1d620 54 49 41 4e 54 20 3d 20 55 4e 53 50 45 43 20 28 ┆TIANT = UNSPEC (┆
0x1d620…1d640 50 54 52 41 4e 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 20 20 ┆PTRANS); ┆
0x1d640…1d653 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1d653…1d673 (18, 0, 31) 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 20 28 44 29 20 53 4b 49 50 20 45 44 ┆ PUT FILE (D) SKIP ED┆
0x1d673…1d693 49 54 20 28 27 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 41 52 42 45 54 4e 49 4e 47 20 50 ┆IT (' BEARBETNING P┆
0x1d693…1d6a2 5d 47 5d 52 27 29 20 28 41 28 34 37 29 29 3b ┆ÅGÅR') (A(47));┆
0x1d6a2…1d6c2 (18, 0, 32) 20 20 20 20 41 32 30 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ A200: ┆
0x1d6c2…1d6e2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1d6e2…1d6f1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1d6f1…1d711 (18, 0, 33) 20 20 20 20 20 20 20 20 20 20 20 20 57 52 45 47 20 3d 20 52 45 47 20 28 4a 29 3b 20 20 20 20 20 ┆ WREG = REG (J); ┆
0x1d711…1d731 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1d731…1d740 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1d740…1d760 (18, 0, 34) 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 41 4e 53 54 4e 52 20 3d 20 27 39 39 39 39 39 39 27 ┆ IF ANSTNR = '999999'┆
0x1d760…1d780 20 54 48 45 4e 20 47 4f 20 54 4f 20 41 32 35 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ THEN GO TO A250; ┆
0x1d780…1d78f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1d78f…1d7af (18, 0, 35) 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 4a 20 3d 20 32 35 20 54 48 45 4e 20 43 41 4c 4c 20 ┆ IF J = 25 THEN CALL ┆
0x1d7af…1d7cf 52 31 30 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 ┆R100; ┆
0x1d7cf…1d7de 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1d7de…1d7fe (18, 0, 36) 20 20 20 20 20 20 20 20 20 20 20 20 4a 20 3d 20 4a 20 2b 20 31 3b 20 20 20 20 20 20 20 20 20 20 ┆ J = J + 1; ┆
0x1d7fe…1d81e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1d81e…1d82d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1d82d…1d84d (18, 0, 37) 20 20 20 20 41 32 35 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ A250: ┆
0x1d84d…1d86d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1d86d…1d87c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1d87c…1d89c (18, 0, 38) 20 20 20 20 20 20 20 20 20 20 20 20 57 54 52 41 4e 53 20 3d 20 54 52 41 4e 53 20 28 49 29 3b 20 ┆ WTRANS = TRANS (I); ┆
0x1d89c…1d8bc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1d8bc…1d8cb 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1d8cb…1d8eb (18, 0, 39) 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 54 41 4e 53 54 4e 52 20 3d 20 27 39 39 39 39 39 39 ┆ IF TANSTNR = '999999┆
0x1d8eb…1d90b 27 20 54 48 45 4e 20 47 4f 20 54 4f 20 41 33 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆' THEN GO TO A300; ┆
0x1d90b…1d91a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1d91a…1d93a (18, 0, 40) 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 49 20 3d 20 32 35 20 54 48 45 4e 20 43 41 4c 4c 20 ┆ IF I = 25 THEN CALL ┆
0x1d93a…1d95a 54 31 30 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 ┆T100; ┆
0x1d95a…1d969 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1d969…1d989 (18, 0, 41) 20 20 20 20 20 20 20 20 20 20 20 20 49 20 3d 20 49 20 2b 20 31 3b 20 20 20 20 20 20 20 20 20 20 ┆ I = I + 1; ┆
0x1d989…1d9a9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1d9a9…1d9b8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1d9b8…1d9d8 (18, 0, 42) 20 20 20 20 41 33 30 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ A300: ┆
0x1d9d8…1d9f8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1d9f8…1da07 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1da07…1da27 (18, 0, 43) 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 54 41 4e 53 54 4e 52 20 3d 20 41 4e 53 54 4e 52 20 ┆ IF TANSTNR = ANSTNR ┆
0x1da27…1da47 54 48 45 4e 20 47 4f 20 54 4f 20 42 31 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆THEN GO TO B100; ┆
0x1da47…1da56 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1da56…1da76 (18, 0, 44) 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 54 41 4e 53 54 4e 52 20 3e 20 41 4e 53 54 4e 52 20 ┆ IF TANSTNR > ANSTNR ┆
0x1da76…1da96 54 48 45 4e 20 47 4f 20 54 4f 20 43 31 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆THEN GO TO C100; ┆
0x1da96…1daa5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1daa5…1dac5 (18, 0, 45) 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 54 41 4e 53 54 4e 52 20 3c 20 41 4e 53 54 4e 52 20 ┆ IF TANSTNR < ANSTNR ┆
0x1dac5…1dae5 54 48 45 4e 20 47 4f 20 54 4f 20 44 31 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆THEN GO TO D100; ┆
0x1dae5…1daf4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1daf4…1db14 (18, 0, 46) 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 20 28 44 29 20 53 4b 49 50 20 45 44 ┆ PUT FILE (D) SKIP ED┆
0x1db14…1db34 49 54 20 28 27 46 45 4c 20 49 20 55 50 50 44 41 54 27 29 20 28 41 28 34 37 29 29 3b 20 20 20 20 ┆IT ('FEL I UPPDAT') (A(47)); ┆
0x1db34…1db43 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1db43…1db63 (18, 0, 47) 20 20 20 20 20 20 20 20 20 20 20 20 47 45 54 20 53 4b 49 50 20 4c 49 53 54 20 28 54 52 45 53 33 ┆ GET SKIP LIST (TRES3┆
0x1db63…1db83 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 ┆); ┆
0x1db83…1db92 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1db92…1dbb2 (18, 0, 48) 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 20 46 49 4c 45 20 28 50 52 45 47 55 29 20 46 ┆ WRITE FILE (PREGU) F┆
0x1dbb2…1dbd2 52 4f 4d 20 28 57 54 52 41 4e 53 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ROM (WTRANS); ┆
0x1dbd2…1dbe1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1dbe1…1dc01 (18, 0, 49) 20 20 20 20 42 31 30 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ B100: ┆
0x1dc01…1dc21 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1dc21…1dc30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1dc30…1dc50 (18, 0, 50) 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 41 4e 53 54 4e 52 20 3d 20 27 39 39 39 39 39 39 27 ┆ IF ANSTNR = '999999'┆
0x1dc50…1dc70 20 54 48 45 4e 20 47 4f 20 54 4f 20 47 31 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ THEN GO TO G100; ┆
0x1dc70…1dc7f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1dc7f…1dc9f (18, 0, 51) 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 54 4b 4f 44 20 3d 20 44 4c 20 54 48 45 4e 20 47 4f ┆ IF TKOD = DL THEN GO┆
0x1dc9f…1dcbf 20 54 4f 20 44 32 30 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 ┆ TO D200; ┆
0x1dcbf…1dcce 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1dcce…1dcee (18, 0, 52) 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 20 46 49 4c 45 20 28 50 52 45 47 55 29 20 46 ┆ WRITE FILE (PREGU) F┆
0x1dcee…1dd0e 52 4f 4d 20 28 57 54 52 41 4e 53 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ROM (WTRANS); ┆
0x1dd0e…1dd1d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1dd1d…1dd3d (18, 0, 53) 20 20 20 20 20 20 20 20 20 20 20 20 52 55 41 43 43 20 3d 20 52 55 41 43 43 20 2b 20 31 3b 20 20 ┆ RUACC = RUACC + 1; ┆
0x1dd3d…1dd5d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1dd5d…1dd6c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1dd6c…1dd8c (18, 0, 54) 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 41 32 30 30 3b 20 20 20 20 20 20 20 20 20 ┆ GO TO A200; ┆
0x1dd8c…1ddac 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1ddac…1ddbb 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1ddbb…1dddb (18, 0, 55) 20 20 20 20 43 31 30 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ C100: ┆
0x1dddb…1ddfb 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1ddfb…1de0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1de0a…1de2a (18, 0, 56) 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 20 46 49 4c 45 20 28 50 52 45 47 55 29 20 46 ┆ WRITE FILE (PREGU) F┆
0x1de2a…1de4a 52 4f 4d 20 28 57 52 45 47 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ROM (WREG); ┆
0x1de4a…1de59 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1de59…1de79 (18, 0, 57) 20 20 20 20 20 20 20 20 20 20 20 20 52 55 41 43 43 20 3d 20 52 55 41 43 43 20 2b 20 31 3b 20 20 ┆ RUACC = RUACC + 1; ┆
0x1de79…1de99 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1de99…1dea8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1dea8…1dec8 (18, 0, 58) 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 41 4e 53 54 4e 52 20 3d 20 27 39 39 39 39 39 39 27 ┆ IF ANSTNR = '999999'┆
0x1dec8…1dee8 20 54 48 45 4e 20 47 4f 20 54 4f 20 41 33 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ THEN GO TO A300; ┆
0x1dee8…1def7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1def7…1df17 (18, 0, 59) 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 4a 20 3d 20 32 35 20 54 48 45 4e 20 43 41 4c 4c 20 ┆ IF J = 25 THEN CALL ┆
0x1df17…1df37 52 31 30 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 ┆R100; ┆
0x1df37…1df46 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1df46…1df66 (18, 0, 60) 20 20 20 20 20 20 20 20 20 20 20 20 4a 20 3d 20 4a 20 2b 20 31 3b 20 20 20 20 20 20 20 20 20 20 ┆ J = J + 1; ┆
0x1df66…1df86 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1df86…1df95 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1df95…1dfb5 (18, 0, 61) 20 20 20 20 20 20 20 20 20 20 20 20 57 52 45 47 20 3d 20 52 45 47 20 28 4a 29 3b 20 20 20 20 20 ┆ WREG = REG (J); ┆
0x1dfb5…1dfd5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1dfd5…1dfe4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1dfe4…1e004 (18, 0, 62) 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 41 33 30 30 3b 20 20 20 20 20 20 20 20 20 ┆ GO TO A300; ┆
0x1e004…1e024 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1e024…1e033 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1e033…1e053 (18, 0, 63) 20 20 20 20 44 31 30 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ D100: ┆
0x1e053…1e073 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1e073…1e082 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1e082…1e0a2 (18, 0, 64) 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 20 46 49 4c 45 20 28 50 52 45 47 55 29 20 46 ┆ WRITE FILE (PREGU) F┆
0x1e0a2…1e0c2 52 4f 4d 20 28 57 54 52 41 4e 53 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ROM (WTRANS); ┆
0x1e0c2…1e0d1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1e0d1…1e0f1 (18, 0, 65) 20 20 20 20 20 20 20 20 20 20 20 20 52 55 41 43 43 20 3d 20 52 55 41 43 43 20 2b 20 31 3b 20 20 ┆ RUACC = RUACC + 1; ┆
0x1e0f1…1e111 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1e111…1e120 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1e120…1e140 (18, 0, 66) 20 20 20 20 44 32 30 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ D200: ┆
0x1e140…1e160 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1e160…1e16f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1e16f…1e18f (18, 0, 67) 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 54 41 4e 53 54 4e 52 20 3d 20 27 39 39 39 39 39 39 ┆ IF TANSTNR = '999999┆
0x1e18f…1e1af 27 20 54 48 45 4e 20 47 4f 20 54 4f 20 41 33 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆' THEN GO TO A300; ┆
0x1e1af…1e1be 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1e1be…1e1de (18, 0, 68) 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 49 20 3d 20 32 35 20 54 48 45 4e 20 43 41 4c 4c 20 ┆ IF I = 25 THEN CALL ┆
0x1e1de…1e1fe 54 31 30 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 ┆T100; ┆
0x1e1fe…1e20d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1e20d…1e22d (18, 0, 69) 20 20 20 20 20 20 20 20 20 20 20 20 49 20 3d 20 49 20 2b 20 31 3b 20 20 20 20 20 20 20 20 20 20 ┆ I = I + 1; ┆
0x1e22d…1e24d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1e24d…1e25c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1e25c…1e27c (18, 0, 70) 20 20 20 20 20 20 20 20 20 20 20 20 57 54 52 41 4e 53 20 3d 20 54 52 41 4e 53 20 28 49 29 3b 20 ┆ WTRANS = TRANS (I); ┆
0x1e27c…1e29c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1e29c…1e2ab 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1e2ab…1e2cb (18, 0, 71) 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 41 33 30 30 3b 20 20 20 20 20 20 20 20 20 ┆ GO TO A300; ┆
0x1e2cb…1e2eb 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1e2eb…1e2fa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1e2fa…1e31a (18, 0, 72) 20 20 20 20 47 31 30 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ G100: ┆
0x1e31a…1e33a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1e33a…1e349 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1e349…1e369 (18, 0, 73) 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 20 46 49 4c 45 20 28 50 52 45 47 55 29 20 46 ┆ WRITE FILE (PREGU) F┆
0x1e369…1e389 52 4f 4d 20 28 52 45 47 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ROM (REG); ┆
0x1e389…1e398 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1e398…1e3b8 (18, 0, 74) 20 20 20 20 20 20 20 20 20 20 20 20 52 55 41 43 43 20 3d 20 52 55 41 43 43 20 2b 20 31 3b 20 20 ┆ RUACC = RUACC + 1; ┆
0x1e3b8…1e3d8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1e3d8…1e3e7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1e3e7…1e407 (18, 0, 75) 20 20 20 20 20 20 20 20 20 20 20 20 43 4c 4f 53 45 20 50 52 45 47 49 3b 20 20 20 20 20 20 20 20 ┆ CLOSE PREGI; ┆
0x1e407…1e427 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1e427…1e436 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1e436…1e456 (18, 0, 76) 20 20 20 20 20 20 20 20 20 20 20 20 43 4c 4f 53 45 20 50 52 45 47 55 3b 20 20 20 20 20 20 20 20 ┆ CLOSE PREGU; ┆
0x1e456…1e476 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1e476…1e485 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1e485…1e4a5 (18, 0, 77) 20 20 20 20 20 20 20 20 20 20 20 20 43 4c 4f 53 45 20 50 54 52 41 4e 53 3b 20 20 20 20 20 20 20 ┆ CLOSE PTRANS; ┆
0x1e4a5…1e4c5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1e4c5…1e4d4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1e4d4…1e4f4 (18, 0, 78) 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 28 35 29 20 45 44 49 54 20 28 27 ┆ PUT SKIP (5) EDIT ('┆
0x1e4f4…1e514 41 4e 54 41 4c 20 52 45 47 50 4f 53 54 45 52 20 49 4e 27 29 20 28 41 28 32 35 29 29 20 28 52 49 ┆ANTAL REGPOSTER IN') (A(25)) (RI┆
0x1e514…1e523 41 43 43 29 20 28 50 27 5a 5a 5a 39 27 29 3b ┆ACC) (P'ZZZ9');┆
0x1e523…1e543 (18, 0, 79) 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 28 31 29 20 45 44 49 54 20 28 27 ┆ PUT SKIP (1) EDIT ('┆
0x1e543…1e563 41 4e 54 41 4c 20 52 45 47 50 4f 53 54 45 52 20 55 54 27 29 20 28 41 28 32 35 29 29 20 28 52 55 ┆ANTAL REGPOSTER UT') (A(25)) (RU┆
0x1e563…1e572 41 43 43 29 20 28 50 27 5a 5a 5a 39 27 29 3b ┆ACC) (P'ZZZ9');┆
0x1e572…1e592 (18, 0, 80) 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 28 31 29 20 45 44 49 54 20 28 27 ┆ PUT SKIP (1) EDIT ('┆
0x1e592…1e5b2 41 4e 54 41 4c 20 54 52 41 4e 53 50 4f 53 54 45 52 27 29 20 28 41 28 32 35 29 29 20 28 54 41 43 ┆ANTAL TRANSPOSTER') (A(25)) (TAC┆
0x1e5b2…1e5c1 43 29 20 28 50 27 5a 5a 5a 39 27 29 3b 20 20 ┆C) (P'ZZZ9'); ┆
0x1e5c1…1e5e1 (18, 0, 81) 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ END; ┆
0x1e5e1…1e601 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1e601…1e610 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆