|
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 I Q V X Y q r
Length: 100125 (0x1871d)
Description: Bits:30008762 50001602
Types: 8" Floppy Disk
| flag | nrec | reclen | rec_trk | t0 | tn | name | artifact |
|---|---|---|---|---|---|---|---|
| 0 | 9 | 40 | 130 | 0 | 0 | INDEX | ⟦8a77494b9⟧ Q1_HexDump, reclen=40, q1file |
| 0 | 514 | 79 | 82 | 1 | 7 | V10KOLJA | ⟦d0aaf5f88⟧ Q1_Text, reclen=79, q1file |
| 0 | 7 | 47 | 122 | 8 | 8 | XKOLFORM | ⟦634f2bb3d⟧ Q1_Text, reclen=47, q1file |
| 0 | 18 | 100 | 67 | 11 | 11 | XKTOFIL | ⟦401b2653f⟧ Q1_HexDump, reclen=100, q1file |
| 0 | 3 | 47 | 122 | 10 | 10 | XRUBFORM | ⟦345bf5088⟧ Q1_Text, reclen=47, q1file |
| 0 | 9 | 100 | 67 | 13 | 13 | XXKTOFIL | ⟦567724f3e⟧ Q1_HexDump, reclen=100, q1file |
| 0 | 2 | 47 | 122 | 9 | 9 | YKOLFORM | ⟦852bd385f⟧ Q1_Text, reclen=47, q1file |
| 0 | 33 | 50 | 115 | 12 | 12 | YKTOFIL | ⟦38a4c5dd6⟧ Q1_HexDump, reclen=50, q1file |
0x00000…00028 (0, 0, 0) Catalog {f0=0x0000, name=»INDEX «, nrec=0x0009, reclen=0x0028, rectrack=0x0082, track0=0x0000, trackn=0x0000}
0x00028…00050 (0, 0, 1) Catalog {f0=0x0000, name=»V10KOLJA«, nrec=0x0202, reclen=0x004f, rectrack=0x0052, track0=0x0001, trackn=0x0007}
0x00050…00078 (0, 0, 2) Catalog {f0=0x0000, name=»XKOLFORM«, nrec=0x0007, reclen=0x002f, rectrack=0x007a, track0=0x0008, trackn=0x0008}
0x00078…000a0 (0, 0, 3) Catalog {f0=0x0000, name=»YKOLFORM«, nrec=0x0002, reclen=0x002f, rectrack=0x007a, track0=0x0009, trackn=0x0009}
0x000a0…000c8 (0, 0, 4) Catalog {f0=0x0000, name=»XRUBFORM«, nrec=0x0003, reclen=0x002f, rectrack=0x007a, track0=0x000a, trackn=0x000a}
0x000c8…000f0 (0, 0, 5) Catalog {f0=0x0000, name=»XKTOFIL «, nrec=0x0012, reclen=0x0064, rectrack=0x0043, track0=0x000b, trackn=0x000b}
0x000f0…00118 (0, 0, 6) Catalog {f0=0x0000, name=»YKTOFIL «, nrec=0x0021, reclen=0x0032, rectrack=0x0073, track0=0x000c, trackn=0x000c}
0x00118…00140 (0, 0, 7) Catalog {f0=0x0000, name=»XXKTOFIL«, nrec=0x0009, reclen=0x0064, rectrack=0x0043, track0=0x000d, trackn=0x000d}
0x00140…00168 (0, 0, 8) Catalog {f0=0x0000, name=»XKTOFILB«, nrec=0x0000, reclen=0x0064, rectrack=0x0043, track0=0x000e, trackn=0x000e}
0x00168…00188 (0, 0, 9) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ ┆
0x00188…00190 00 00 00 00 00 00 00 00 ┆ ┆
0x00190…001b0 (0, 0, 10) 20 20 20 20 20 50 55 54 20 46 49 4c 45 28 44 29 20 45 44 49 54 28 53 50 00 00 00 00 00 00 00 00 ┆ PUT FILE(D) EDIT(SP ┆
0x001b0…001b8 00 00 00 00 00 00 00 00 ┆ ┆
0x001b8…001d8 (0, 0, 11) 54 59 50 29 28 41 28 33 29 29 28 27 46 72 2e 6f 2e 6d 20 44 41 54 55 4d 00 00 00 00 00 00 00 00 ┆TYP)(A(3))('Fr.o.m DATUM ┆
0x001d8…001e0 00 00 00 00 00 00 00 00 ┆ ┆
0x001e0…00200 (0, 0, 12) 27 29 28 41 28 34 37 29 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆')(A(47)) ┆
0x00200…00208 00 00 00 00 00 00 00 00 ┆ ┆
0x00208…00228 (0, 0, 13) 20 20 20 20 20 20 20 20 20 20 20 20 28 27 54 69 6c 6c 20 44 41 54 55 4d 00 00 00 00 00 00 00 00 ┆ ('Till DATUM ┆
0x00228…00230 00 00 00 00 00 00 00 00 ┆ ┆
0x00230…00250 (0, 0, 14) 27 29 28 41 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆')(A); ┆
0x00250…00258 00 00 00 00 00 00 00 00 ┆ ┆
0x00258…00278 (0, 0, 15) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ ┆
0x00278…00280 00 00 00 00 00 00 00 00 ┆ ┆
0x00280…002a0 (0, 0, 16) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4a 3d 33 37 30 00 00 00 00 00 00 00 00 ┆ J=370 ┆
0x002a0…002a8 00 00 00 00 00 00 00 00 ┆ ┆
0x002a8…002c8 (0, 0, 17) 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆; ┆
0x002c8…002d0 00 00 00 00 00 00 00 00 ┆ ┆
0x002d0…002f0 (0, 0, 18) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ ┆
0x002f0…002f8 00 00 00 00 00 00 00 00 ┆ ┆
0x002f8…00318 (0, 0, 19) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ ┆
0x00318…00320 00 00 00 00 00 00 00 00 ┆ ┆
0x00320…00340 (0, 0, 20) 20 20 43 41 4c 4c 20 4d 4f 56 45 42 55 46 46 28 4a 29 3b 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ CALL MOVEBUFF(J); ┆
0x00340…00348 00 00 00 00 00 00 00 00 ┆ ┆
0x00348…00368 (0, 0, 21) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ ┆
0x00368…00370 00 00 00 00 00 00 00 00 ┆ ┆
0x00370…00390 (0, 0, 22) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ ┆
0x00390…00398 00 00 00 00 00 00 00 00 ┆ ┆
0x00398…003b8 (0, 0, 23) 20 53 33 3a 20 20 20 20 20 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 44 00 00 00 00 00 00 00 00 ┆ S3: GET SKIP LIST(D ┆
0x003b8…003c0 00 00 00 00 00 00 00 00 ┆ ┆
0x003c0…003e0 (0, 0, 24) 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆); ┆
0x003e0…003e8 00 00 00 00 00 00 00 00 ┆ ┆
0x003e8…00408 (0, 0, 25) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ ┆
0x00408…00410 00 00 00 00 00 00 00 00 ┆ ┆
0x00410…00430 (0, 0, 26) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 41 4c 4c 20 44 41 54 00 00 00 00 00 00 00 00 ┆ CALL DAT ┆
0x00430…00438 00 00 00 00 00 00 00 00 ┆ ┆
0x00438…00458 (0, 0, 27) 43 48 45 43 4b 28 44 41 54 55 4d 31 29 3b 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆CHECK(DATUM1); ┆
0x00458…00460 00 00 00 00 00 00 00 00 ┆ ┆
0x00460…00480 (0, 0, 28) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ ┆
0x00480…00488 00 00 00 00 00 00 00 00 ┆ ┆
0x00488…004a8 (0, 0, 29) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 00 00 00 00 00 00 00 00 ┆ I ┆
0x004a8…004b0 00 00 00 00 00 00 00 00 ┆ ┆
0x004b0…004d0 (0, 0, 30) 46 20 44 41 54 55 4d 31 3d 27 30 20 20 20 20 20 27 20 54 48 45 4e 20 47 00 00 00 00 00 00 00 00 ┆F DATUM1='0 ' THEN G ┆
0x004d0…004d8 00 00 00 00 00 00 00 00 ┆ ┆
0x004d8…004f8 (0, 0, 31) 4f 20 54 4f 20 53 33 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆O TO S3; ┆
0x004f8…00500 00 00 00 00 00 00 00 00 ┆ ┆
0x00500…00520 (0, 0, 32) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ ┆
0x00520…00528 00 00 00 00 00 00 00 00 ┆ ┆
0x00528…00548 (0, 0, 33) 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 28 44 29 20 45 44 49 54 28 44 00 00 00 00 00 00 00 00 ┆ PUT FILE(D) EDIT(D ┆
0x00548…00550 00 00 00 00 00 00 00 00 ┆ ┆
0x00550…00570 (0, 0, 34) 41 54 55 4d 31 29 28 41 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ATUM1)(A); ┆
0x00570…00578 00 00 00 00 00 00 00 00 ┆ ┆
0x00578…00598 (0, 0, 35) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ ┆
0x00598…005a0 00 00 00 00 00 00 00 00 ┆ ┆
0x005a0…005c0 (0, 0, 36) 20 20 20 20 20 20 20 20 20 20 20 20 20 4a 3d 34 31 37 3b 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ J=417; ┆
0x005c0…005c8 00 00 00 00 00 00 00 00 ┆ ┆
0x005c8…005e8 (0, 0, 37) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ ┆
0x005e8…005f0 00 00 00 00 00 00 00 00 ┆ ┆
0x005f0…00610 (0, 0, 38) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ ┆
0x00610…00618 00 00 00 00 00 00 00 00 ┆ ┆
0x00618…00638 (0, 0, 39) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 41 4c 4c 00 00 00 00 00 00 00 00 ┆ CALL ┆
0x00638…00640 00 00 00 00 00 00 00 00 ┆ ┆
0x00640…00660 (0, 0, 40) 20 4d 4f 56 45 42 55 46 46 28 4a 29 3b 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ MOVEBUFF(J); ┆
0x00660…00668 00 00 00 00 00 00 00 00 ┆ ┆
0x00668…00688 (0, 0, 41) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ ┆
0x00688…00690 00 00 00 00 00 00 00 00 ┆ ┆
0x00690…006b0 (0, 0, 42) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 32 3a 20 20 00 00 00 00 00 00 00 00 ┆ S2: ┆
0x006b0…006b8 00 00 00 00 00 00 00 00 ┆ ┆
0x006b8…006d8 (0, 0, 43) 20 20 20 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 44 29 3b 20 20 20 20 00 00 00 00 00 00 00 00 ┆ GET SKIP LIST(D); ┆
0x006d8…006e0 00 00 00 00 00 00 00 00 ┆ ┆
0x006e0…00700 (0, 0, 44) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ ┆
0x00700…00708 00 00 00 00 00 00 00 00 ┆ ┆
0x00708…00728 (0, 0, 45) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ ┆
0x00728…00730 00 00 00 00 00 00 00 00 ┆ ┆
0x00730…00750 (0, 0, 46) 20 20 20 20 20 20 20 20 20 20 43 41 4c 4c 20 44 41 54 43 48 45 43 4b 28 00 00 00 00 00 00 00 00 ┆ CALL DATCHECK( ┆
0x00750…00758 00 00 00 00 00 00 00 00 ┆ ┆
0x00758…00778 (0, 0, 47) 44 41 54 55 4d 32 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆DATUM2); ┆
0x00778…00780 00 00 00 00 00 00 00 00 ┆ ┆
0x00780…007a0 (0, 0, 48) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ ┆
0x007a0…007a8 00 00 00 00 00 00 00 00 ┆ ┆
0x007a8…007c8 (0, 0, 49) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 44 41 54 55 00 00 00 00 00 00 00 00 ┆ IF DATU ┆
0x007c8…007d0 00 00 00 00 00 00 00 00 ┆ ┆
0x007d0…007f0 (0, 0, 50) 4d 31 3e 3d 44 41 54 55 4d 32 20 20 54 48 45 4e 20 47 4f 20 54 4f 20 53 00 00 00 00 00 00 00 00 ┆M1>=DATUM2 THEN GO TO S ┆
0x007f0…007f8 00 00 00 00 00 00 00 00 ┆ ┆
0x007f8…00818 (0, 0, 51) 32 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆2; ┆
0x00818…00820 00 00 00 00 00 00 00 00 ┆ ┆
0x00820…00840 (0, 0, 52) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ ┆
0x00840…00848 00 00 00 00 00 00 00 00 ┆ ┆
0x00848…00868 (0, 0, 53) 44 3d 27 30 27 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆D='0'; ┆
0x00868…00870 00 00 00 00 00 00 00 00 ┆ ┆
0x00870…00890 (0, 0, 54) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ ┆
0x00890…00898 00 00 00 00 00 00 00 00 ┆ ┆
0x00898…008b8 (0, 0, 55) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ ┆
0x008b8…008c0 00 00 00 00 00 00 00 00 ┆ ┆
0x008c0…008e0 (0, 0, 56) 20 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 28 44 29 20 45 44 49 54 28 00 00 00 00 00 00 00 00 ┆ PUT FILE(D) EDIT( ┆
0x008e0…008e8 00 00 00 00 00 00 00 00 ┆ ┆
0x008e8…00908 (0, 0, 57) 44 41 54 55 4d 32 29 28 41 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆DATUM2)(A); ┆
0x00908…00910 00 00 00 00 00 00 00 00 ┆ ┆
0x00910…00930 (0, 0, 58) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ ┆
0x00930…00938 00 00 00 00 00 00 00 00 ┆ ┆
0x00938…00958 (0, 0, 59) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4a 20 3d 20 34 37 30 3b 20 20 00 00 00 00 00 00 00 00 ┆ J = 470; ┆
0x00958…00960 00 00 00 00 00 00 00 00 ┆ ┆
0x00960…00980 (0, 0, 60) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ ┆
0x00980…00988 00 00 00 00 00 00 00 00 ┆ ┆
0x00988…009a8 (0, 0, 61) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ ┆
0x009a8…009b0 00 00 00 00 00 00 00 00 ┆ ┆
0x009b0…009d0 (0, 0, 62) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 41 4c 00 00 00 00 00 00 00 00 ┆ CAL ┆
0x009d0…009d8 00 00 00 00 00 00 00 00 ┆ ┆
0x009d8…009f8 (0, 0, 63) 4c 20 4d 4f 56 45 42 55 46 46 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆L MOVEBUFF; ┆
0x009f8…00a00 00 00 00 00 00 00 00 00 ┆ ┆
0x00a00…00a20 (0, 0, 64) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ ┆
0x00a20…00a28 00 00 00 00 00 00 00 00 ┆ ┆
0x00a28…00a48 (0, 0, 65) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ ┆
0x00a48…00a50 00 00 00 00 00 00 00 00 ┆ ┆
0x00a50…00a70 (0, 0, 66) 20 20 20 20 50 55 54 20 46 49 4c 45 20 28 44 29 20 45 44 49 54 20 28 27 00 00 00 00 00 00 00 00 ┆ PUT FILE (D) EDIT (' ┆
0x00a70…00a78 00 00 00 00 00 00 00 00 ┆ ┆
0x00a78…00a98 (0, 0, 67) 20 27 29 20 28 41 28 32 29 29 20 28 27 4f 4c 4a 41 20 3d 20 4f 2c 20 4b 00 00 00 00 00 00 00 00 ┆ ') (A(2)) ('OLJA = O, K ┆
0x00a98…00aa0 00 00 00 00 00 00 00 00 ┆ ┆
0x00aa0…00ac0 (0, 0, 68) 4f 4c 20 3d 20 4b 27 29 20 28 41 28 31 38 29 29 3b 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆OL = K') (A(18)); ┆
0x00ac0…00ac8 00 00 00 00 00 00 00 00 ┆ ┆
0x00ac8…00ae8 (0, 0, 69) 20 20 20 20 20 20 20 20 20 20 20 4a 20 3d 20 35 31 35 3b 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ J = 515; ┆
0x00ae8…00af0 00 00 00 00 00 00 00 00 ┆ ┆
0x00af0…00b10 (0, 0, 70) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ ┆
0x00b10…00b18 00 00 00 00 00 00 00 00 ┆ ┆
0x00b18…00b38 (0, 0, 71) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ ┆
0x00b38…00b40 00 00 00 00 00 00 00 00 ┆ ┆
0x00b40…00b60 (0, 0, 72) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 41 4c 4c 20 4d 00 00 00 00 00 00 00 00 ┆ CALL M ┆
0x00b60…00b68 00 00 00 00 00 00 00 00 ┆ ┆
0x00b68…00b88 (0, 0, 73) 4f 56 45 42 55 46 46 20 28 4a 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆OVEBUFF (J); ┆
0x00b88…00b90 00 00 00 00 00 00 00 00 ┆ ┆
0x00b90…00bb0 (0, 0, 74) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ ┆
0x00bb0…00bb8 00 00 00 00 00 00 00 00 ┆ ┆
0x00bb8…00bd8 (0, 0, 75) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ ┆
0x00bd8…00be0 00 00 00 00 00 00 00 00 ┆ ┆
0x00be0…00c00 (0, 0, 76) 20 47 45 54 20 53 4b 49 50 20 4c 49 53 54 20 28 53 4f 4b 29 3b 20 20 20 00 00 00 00 00 00 00 00 ┆ GET SKIP LIST (SOK); ┆
0x00c00…00c08 00 00 00 00 00 00 00 00 ┆ ┆
0x00c08…00c28 (0, 0, 77) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ ┆
0x00c28…00c30 00 00 00 00 00 00 00 00 ┆ ┆
0x00c30…00c50 (0, 0, 78) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ ┆
0x00c50…00c58 00 00 00 00 00 00 00 00 ┆ ┆
0x00c58…00c78 (0, 0, 79) 20 20 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 20 28 44 29 20 45 44 49 00 00 00 00 00 00 00 00 ┆ PUT FILE (D) EDI ┆
0x00c78…00c80 00 00 00 00 00 00 00 00 ┆ ┆
0x00c80…00ca0 (0, 0, 80) 54 20 28 53 4f 4b 29 20 28 41 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆T (SOK) (A); ┆
0x00ca0…00ca8 00 00 00 00 00 00 00 00 ┆ ┆
0x00ca8…00cc8 (0, 0, 81) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ ┆
0x00cc8…00cd0 00 00 00 00 00 00 00 00 ┆ ┆
0x00cd0…00cf0 (0, 0, 82) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 54 59 50 31 3d 31 00 00 00 00 00 00 00 00 ┆ IF TYP1=1 ┆
0x00cf0…00cf8 00 00 00 00 00 00 00 00 ┆ ┆
0x00cf8…00d18 (0, 0, 83) 20 54 48 45 4e 20 59 3d 27 36 20 27 3b 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ THEN Y='6 '; ┆
0x00d18…00d20 00 00 00 00 00 00 00 00 ┆ ┆
0x00d20…00d40 (0, 0, 84) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ ┆
0x00d40…00d48 00 00 00 00 00 00 00 00 ┆ ┆
0x00d48…00d68 (0, 0, 85) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 00 00 00 00 00 00 00 00 ┆ IF ┆
0x00d68…00d70 00 00 00 00 00 00 00 00 ┆ ┆
0x00d70…00d90 (0, 0, 86) 20 54 59 50 31 3d 32 20 54 48 45 4e 20 59 3d 27 37 20 27 3b 20 20 20 20 00 00 00 00 00 00 00 00 ┆ TYP1=2 THEN Y='7 '; ┆
0x00d90…00d98 00 00 00 00 00 00 00 00 ┆ ┆
0x00d98…00db8 (0, 0, 87) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ ┆
0x00db8…00dc0 00 00 00 00 00 00 00 00 ┆ ┆
0x00dc0…00de0 (0, 0, 88) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ ┆
0x00de0…00de8 00 00 00 00 00 00 00 00 ┆ ┆
0x00de8…00e08 (0, 0, 89) 20 20 20 20 20 49 46 20 59 3d 27 34 20 27 20 54 48 45 4e 20 4c 49 53 54 00 00 00 00 00 00 00 00 ┆ IF Y='4 ' THEN LIST ┆
0x00e08…00e10 00 00 00 00 00 00 00 00 ┆ ┆
0x00e10…00e30 (0, 0, 90) 54 59 50 3d 31 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆TYP=1; ┆
0x00e30…00e38 00 00 00 00 00 00 00 00 ┆ ┆
0x00e38…00e58 (0, 0, 91) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ ┆
0x00e58…00e60 00 00 00 00 00 00 00 00 ┆ ┆
0x00e60…00e80 (0, 0, 92) 20 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 20 4c 49 53 54 54 59 50 00 00 00 00 00 00 00 00 ┆ ELSE LISTTYP ┆
0x00e80…00e88 00 00 00 00 00 00 00 00 ┆ ┆
0x00e88…00ea8 (0, 0, 93) 3d 32 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆=2; ┆
0x00ea8…00eb0 00 00 00 00 00 00 00 00 ┆ ┆
0x00eb0…00ed0 (0, 0, 94) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ ┆
0x00ed0…00ed8 00 00 00 00 00 00 00 00 ┆ ┆
0x00ed8…00ef8 (0, 0, 95) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 41 54 31 42 00 00 00 00 00 00 00 00 ┆ DAT1B ┆
0x00ef8…00f00 00 00 00 00 00 00 00 00 ┆ ┆
0x00f00…00f20 (0, 0, 96) 49 4e 3d 33 37 32 2a 28 53 55 42 53 54 52 28 44 41 54 55 4d 31 2c 31 2c 00 00 00 00 00 00 00 00 ┆IN=372*(SUBSTR(DATUM1,1, ┆
0x00f20…00f28 00 00 00 00 00 00 00 00 ┆ ┆
0x00f28…00f48 (0, 0, 97) 32 29 2d 37 38 29 2b 33 31 2a 28 53 55 42 53 54 52 28 44 41 54 55 4d 31 00 00 00 00 00 00 00 00 ┆2)-78)+31*(SUBSTR(DATUM1 ┆
0x00f48…00f50 00 00 00 00 00 00 00 00 ┆ ┆
0x00f50…00f70 (0, 0, 98) 2c 33 2c 32 29 2d 31 29 2b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆,3,2)-1)+ ┆
0x00f70…00f78 00 00 00 00 00 00 00 00 ┆ ┆
0x00f78…00f98 (0, 0, 99) 20 20 20 20 20 53 55 42 53 54 52 28 44 41 54 55 4d 31 2c 35 2c 32 29 2d 00 00 00 00 00 00 00 00 ┆ SUBSTR(DATUM1,5,2)- ┆
0x00f98…00fa0 00 00 00 00 00 00 00 00 ┆ ┆
0x00fa0…00fc0 (0, 0, 100) 31 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆1; ┆
0x00fc0…00fc8 00 00 00 00 00 00 00 00 ┆ ┆
0x00fc8…00fe8 (0, 0, 101) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ ┆
0x00fe8…00ff0 00 00 00 00 00 00 00 00 ┆ ┆
0x00ff0…01010 (0, 0, 102) 20 20 20 20 20 20 20 20 20 44 41 54 32 42 49 4e 3d 33 37 32 2a 28 53 55 00 00 00 00 00 00 00 00 ┆ DAT2BIN=372*(SU ┆
0x01010…01018 00 00 00 00 00 00 00 00 ┆ ┆
0x01018…01038 (0, 0, 103) 42 53 54 52 28 44 41 54 55 4d 32 2c 31 2c 32 29 2d 37 38 29 2b 33 31 2a 00 00 00 00 00 00 00 00 ┆BSTR(DATUM2,1,2)-78)+31* ┆
0x01038…01040 00 00 00 00 00 00 00 00 ┆ ┆
0x01040…01060 (0, 0, 104) 28 53 55 42 53 54 52 28 44 41 54 55 4d 32 2c 33 2c 32 29 2d 31 29 2b 20 00 00 00 00 00 00 00 00 ┆(SUBSTR(DATUM2,3,2)-1)+ ┆
0x01060…01068 00 00 00 00 00 00 00 00 ┆ ┆
0x01068…01088 (0, 0, 105) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 55 42 53 54 00 00 00 00 00 00 00 00 ┆ SUBST ┆
0x01088…01090 00 00 00 00 00 00 00 00 ┆ ┆
0x01090…010b0 (0, 0, 106) 52 28 44 41 54 55 4d 32 2c 35 2c 32 29 2d 31 3b 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆R(DATUM2,5,2)-1; ┆
0x010b0…010b8 00 00 00 00 00 00 00 00 ┆ ┆
0x010b8…010d8 (0, 0, 107) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ ┆
0x010d8…010e0 00 00 00 00 00 00 00 00 ┆ ┆
0x010e0…01100 (0, 0, 108) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 00 00 00 00 00 00 00 00 ┆ R ┆
0x01100…01108 00 00 00 00 00 00 00 00 ┆ ┆
0x01108…01128 (0, 0, 109) 45 54 55 52 4e 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ETURN; ┆
0x01128…01130 00 00 00 00 00 00 00 00 ┆ ┆
0x01130…01150 (0, 0, 110) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 32 39 33 2a 2f 20 20 20 00 00 00 00 00 00 00 00 ┆ /*293*/ ┆
0x01150…01158 00 00 00 00 00 00 00 00 ┆ ┆
0x01158…01178 (0, 0, 111) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 00 00 00 00 00 00 00 00 ┆ EN ┆
0x01178…01180 00 00 00 00 00 00 00 00 ┆ ┆
0x01180…011a0 (0, 0, 112) 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆D; ┆
0x011a0…011a8 00 00 00 00 00 00 00 00 ┆ ┆
0x011a8…011c8 (0, 0, 113) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ ┆
0x011c8…011d0 00 00 00 00 00 00 00 00 ┆ ┆
0x011d0…011f0 (0, 0, 114) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ ┆
0x011f0…011f8 00 00 00 00 00 00 00 00 ┆ ┆
0x011f8…01218 (0, 0, 115) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ ┆
0x01218…01220 00 00 00 00 00 00 00 00 ┆ ┆
0x01220…01240 (0, 0, 116) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ ┆
0x01240…01248 00 00 00 00 00 00 00 00 ┆ ┆
0x01248…01268 (0, 0, 117) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ ┆
0x01268…01270 00 00 00 00 00 00 00 00 ┆ ┆
0x01270…01290 (0, 0, 118) 20 20 20 20 20 20 20 20 20 20 20 20 53 54 41 52 54 50 4f 53 54 3a 50 52 00 00 00 00 00 00 00 00 ┆ STARTPOST:PR ┆
0x01290…01298 00 00 00 00 00 00 00 00 ┆ ┆
0x01298…012b8 (0, 0, 119) 4f 43 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆OC; ┆
0x012b8…012c0 00 00 00 00 00 00 00 00 ┆ ┆
0x012c0…012e0 (0, 0, 120) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ ┆
0x012e0…012e8 00 00 00 00 00 00 00 00 ┆ ┆
0x012e8…01308 (0, 0, 121) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ ┆
0x01308…01310 00 00 00 00 00 00 00 00 ┆ ┆
0x01310…01330 (0, 0, 122) 20 20 20 52 43 4f 44 45 3d 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ RCODE=0; ┆
0x01330…01338 00 00 00 00 00 00 00 00 ┆ ┆
0x01338…01358 (0, 0, 123) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ ┆
0x01358…01360 00 00 00 00 00 00 00 00 ┆ ┆
0x01360…01380 (0, 0, 124) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ ┆
0x01380…01388 00 00 00 00 00 00 00 00 ┆ ┆
0x01388…013a8 (0, 0, 125) 20 20 20 20 20 20 20 20 20 20 50 4b 3d 41 44 44 52 28 41 52 45 41 29 3b 00 00 00 00 00 00 00 00 ┆ PK=ADDR(AREA); ┆
0x013a8…013b0 00 00 00 00 00 00 00 00 ┆ ┆
0x013b0…013d0 (0, 0, 126) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ ┆
0x013d0…013d8 00 00 00 00 00 00 00 00 ┆ ┆
0x013d8…013f8 (0, 0, 127) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ ┆
0x013f8…01400 00 00 00 00 00 00 00 00 ┆ ┆
0x01400…01420 (0, 0, 128) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4f 50 45 4e 20 56 45 00 00 00 00 00 00 00 00 ┆ OPEN VE ┆
0x01420…01428 00 00 00 00 00 00 00 00 ┆ ┆
0x01428…01448 (0, 0, 129) 52 42 45 4c 4f 50 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆RBELOP; ┆
0x01448…01450 00 00 00 00 00 00 00 00 ┆ ┆
0x01450…0149f (1, 0, 0) DataSector[0x4f]
[…0x201…]
0x0b2ee…0b30e (7, 0, 22) 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆END; ┆
0x0b30e…0b32e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0b32e…0b33d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0b33d…0b35d (7, 0, 23) 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆END; ┆
0x0b35d…0b37d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0b37d…0b38c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0b38c…0b3ac (7, 0, 24) 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆END; ┆
0x0b3ac…0b3cc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0b3cc…0b3db 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0b3db…0b3fb (7, 0, 25) 20 20 20 20 20 20 20 20 55 4e 53 50 45 43 20 28 49 4b 29 20 3d 20 49 4b 20 2d 20 31 34 3b 20 20 ┆ UNSPEC (IK) = IK - 14; ┆
0x0b3fb…0b41b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0b41b…0b42a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0b42a…0b44a (7, 0, 26) 20 20 20 20 20 20 20 20 44 4f 20 49 20 3d 20 31 20 54 4f 20 33 39 3b 20 20 20 20 20 20 20 20 20 ┆ DO I = 1 TO 39; ┆
0x0b44a…0b46a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0b46a…0b479 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0b479…0b499 (7, 0, 27) 20 20 20 20 20 20 20 20 20 20 20 20 55 4e 53 50 45 43 20 28 49 4b 29 20 3d 20 49 4b 20 2b 20 31 ┆ UNSPEC (IK) = IK + 1┆
0x0b499…0b4b9 34 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 ┆4; ┆
0x0b4b9…0b4c8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0b4c8…0b4e8 (7, 0, 28) 20 20 20 20 20 20 20 20 20 20 20 20 59 52 41 44 4b 54 4f 52 45 44 45 46 20 3d 20 30 3b 20 20 20 ┆ YRADKTOREDEF = 0; ┆
0x0b4e8…0b508 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0b508…0b517 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0b517…0b537 (7, 0, 29) 20 20 20 20 20 20 20 20 20 20 20 20 59 52 41 44 54 45 58 54 52 45 44 45 46 20 3d 20 27 20 20 20 ┆ YRADTEXTREDEF = ' ┆
0x0b537…0b557 20 20 20 20 20 20 20 20 20 27 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ '; ┆
0x0b557…0b566 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0b566…0b586 (7, 0, 30) 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; ┆
0x0b586…0b5a6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0b5a6…0b5b5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0b5b5…0b5d5 (7, 0, 31) 20 20 20 20 20 20 20 20 55 4e 53 50 45 43 20 28 49 4b 29 20 3d 20 41 44 44 52 20 28 52 59 54 45 ┆ UNSPEC (IK) = ADDR (RYTE┆
0x0b5d5…0b5f5 58 54 20 28 31 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆XT (1)); ┆
0x0b5f5…0b604 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0b604…0b624 (7, 0, 32) 20 20 20 20 20 20 20 20 55 4e 53 50 45 43 20 28 49 4b 29 20 3d 20 49 4b 20 2d 20 31 34 3b 20 20 ┆ UNSPEC (IK) = IK - 14; ┆
0x0b624…0b644 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0b644…0b653 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0b653…0b673 (7, 0, 33) 20 20 20 20 20 20 20 20 44 4f 20 49 20 3d 20 31 20 54 4f 20 34 30 3b 20 20 20 20 20 20 20 20 20 ┆ DO I = 1 TO 40; ┆
0x0b673…0b693 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0b693…0b6a2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0b6a2…0b6c2 (7, 0, 34) 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 41 33 39 ┆ ON ENDFILE GO TO A39┆
0x0b6c2…0b6e2 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 ┆; ┆
0x0b6e2…0b6f1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0b6f1…0b711 (7, 0, 35) 20 20 20 20 20 20 20 20 20 20 20 20 52 45 41 44 20 46 49 4c 45 20 28 59 4b 54 4f 46 49 4c 29 20 ┆ READ FILE (YKTOFIL) ┆
0x0b711…0b731 49 4e 54 4f 20 28 59 4b 54 4f 50 4f 53 54 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆INTO (YKTOPOST); ┆
0x0b731…0b740 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0b740…0b760 (7, 0, 36) 20 20 20 20 20 20 20 20 20 20 20 20 55 4e 53 50 45 43 20 28 49 4b 29 20 3d 20 49 4b 20 2b 20 31 ┆ UNSPEC (IK) = IK + 1┆
0x0b760…0b780 34 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 ┆4; ┆
0x0b780…0b78f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0b78f…0b7af (7, 0, 37) 20 20 20 20 20 20 20 20 20 20 20 20 59 52 41 44 54 45 58 54 52 45 44 45 46 20 3d 20 59 54 45 58 ┆ YRADTEXTREDEF = YTEX┆
0x0b7af…0b7cf 54 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆T; ┆
0x0b7cf…0b7de 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0b7de…0b7fe (7, 0, 38) 20 20 20 20 20 20 20 20 20 20 20 20 59 52 41 44 4b 54 4f 52 45 44 45 46 20 3d 20 59 4b 54 4f 3b ┆ YRADKTOREDEF = YKTO;┆
0x0b7fe…0b81e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0b81e…0b82d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0b82d…0b84d (7, 0, 39) 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; ┆
0x0b84d…0b86d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0b86d…0b87c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0b87c…0b89c (7, 0, 40) 41 33 39 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆A39: ┆
0x0b89c…0b8bc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0b8bc…0b8cb 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0b8cb…0b8eb (7, 0, 41) 4c 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 20 20 20 20 20 20 ┆L0: ┆
0x0b8eb…0b90b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0b90b…0b91a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0b91a…0b93a (7, 0, 42) 20 20 20 20 20 20 20 20 43 41 4c 4c 20 4e 4f 4c 4c 54 41 42 3b 20 20 20 20 20 20 20 20 20 20 20 ┆ CALL NOLLTAB; ┆
0x0b93a…0b95a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0b95a…0b969 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0b969…0b989 (7, 0, 43) 20 20 20 20 20 20 20 20 43 41 4c 4c 20 4b 4f 4e 54 4f 52 45 44 3b 20 20 20 20 20 20 20 20 20 20 ┆ CALL KONTORED; ┆
0x0b989…0b9a9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0b9a9…0b9b8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0b9b8…0b9d8 (7, 0, 44) 20 20 20 20 20 20 20 20 43 41 4c 4c 20 53 54 41 52 54 50 4f 53 54 3b 20 20 20 20 20 20 20 20 20 ┆ CALL STARTPOST; ┆
0x0b9d8…0b9f8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0b9f8…0ba07 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0ba07…0ba27 (7, 0, 45) 20 20 20 20 20 20 20 20 49 46 20 52 43 4f 44 45 3d 31 20 54 48 45 4e 20 47 4f 20 54 4f 20 4c 33 ┆ IF RCODE=1 THEN GO TO L3┆
0x0ba27…0ba47 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 ┆; ┆
0x0ba47…0ba56 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0ba56…0ba76 (7, 0, 46) 4c 31 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆L1: ┆
0x0ba76…0ba96 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0ba96…0baa5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0baa5…0bac5 (7, 0, 47) 20 20 20 20 20 20 20 20 43 41 4c 4c 20 50 4f 53 54 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ CALL POST; ┆
0x0bac5…0bae5 20 20 20 20 2f 2a 20 49 4e 4c 5b 53 4e 2e 20 41 56 20 32 35 35 20 52 45 43 2e 20 46 52 5d 4e 20 ┆ /* INLÄSN. AV 255 REC. FRÅN ┆
0x0bae5…0baf4 56 45 52 42 45 4c 4f 50 20 2a 2f 20 20 20 20 ┆VERBELOP */ ┆
0x0baf4…0bb14 (7, 0, 48) 20 20 20 20 20 20 20 20 43 41 4c 4c 20 44 41 54 54 45 53 54 3b 20 20 20 20 20 20 20 20 20 20 20 ┆ CALL DATTEST; ┆
0x0bb14…0bb34 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0bb34…0bb43 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0bb43…0bb63 (7, 0, 49) 20 20 20 20 20 20 20 20 49 46 20 53 55 42 53 54 52 20 28 4b 4f 4e 54 4f 4e 52 2c 31 2c 38 29 20 ┆ IF SUBSTR (KONTONR,1,8) ┆
0x0bb63…0bb83 3e 20 4b 54 38 20 54 48 45 4e 20 47 4f 20 54 4f 20 4c 33 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆> KT8 THEN GO TO L3; ┆
0x0bb83…0bb92 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0bb92…0bbb2 (7, 0, 50) 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 4c 35 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GO TO L5; ┆
0x0bbb2…0bbd2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0bbd2…0bbe1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0bbe1…0bc01 (7, 0, 51) 4c 33 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆L3: ┆
0x0bc01…0bc21 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0bc21…0bc30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0bc30…0bc50 (7, 0, 52) 20 20 20 20 20 20 20 20 43 41 4c 4c 20 4b 4f 4e 54 4f 52 45 44 3b 20 20 20 20 20 20 20 20 20 20 ┆ CALL KONTORED; ┆
0x0bc50…0bc70 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0bc70…0bc7f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0bc7f…0bc9f (7, 0, 53) 20 20 20 20 20 20 20 20 49 46 20 52 43 4f 44 45 20 3d 20 33 20 54 48 45 4e 20 47 4f 20 54 4f 20 ┆ IF RCODE = 3 THEN GO TO ┆
0x0bc9f…0bcbf 55 54 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆UT; ┆
0x0bcbf…0bcce 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0bcce…0bcee (7, 0, 54) 20 20 20 20 20 20 20 20 43 41 4c 4c 20 53 54 41 52 54 50 4f 53 54 3b 20 20 20 20 20 20 20 20 20 ┆ CALL STARTPOST; ┆
0x0bcee…0bd0e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0bd0e…0bd1d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0bd1d…0bd3d (7, 0, 55) 20 20 20 20 20 20 20 20 49 46 20 52 43 4f 44 45 20 3d 20 31 20 54 48 45 4e 20 47 4f 20 54 4f 20 ┆ IF RCODE = 1 THEN GO TO ┆
0x0bd3d…0bd5d 4c 33 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 ┆L3; ┆
0x0bd5d…0bd6c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0bd6c…0bd8c (7, 0, 56) 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 4c 31 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GO TO L1; ┆
0x0bd8c…0bdac 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0bdac…0bdbb 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0bdbb…0bddb (7, 0, 57) 4c 35 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆L5: ┆
0x0bddb…0bdfb 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0bdfb…0be0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0be0a…0be59 (7, 0, 58) 0x20[0x4f]
0x0be59…0be79 (7, 0, 59) 20 20 20 20 20 20 20 20 49 46 20 4b 4f 4e 54 4f 4e 52 3d 27 53 4c 55 54 39 39 39 39 39 39 39 27 ┆ IF KONTONR='SLUT9999999'┆
0x0be79…0be99 20 54 48 45 4e 20 47 4f 20 54 4f 20 55 54 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ THEN GO TO UT; ┆
0x0be99…0bea8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0bea8…0bec8 (7, 0, 60) 20 20 20 20 20 20 20 20 43 41 4c 4c 20 59 4b 4f 52 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ CALL YKORD; ┆
0x0bec8…0bee8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0bee8…0bef7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0bef7…0bf17 (7, 0, 61) 20 20 20 20 20 20 20 20 49 46 20 4f 4b 45 59 20 3d 20 27 4a 27 20 54 48 45 4e 20 47 4f 20 54 4f ┆ IF OKEY = 'J' THEN GO TO┆
0x0bf17…0bf37 20 4c 31 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 ┆ L10; ┆
0x0bf37…0bf46 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0bf46…0bf66 (7, 0, 62) 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 4c 31 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GO TO L1; ┆
0x0bf66…0bf86 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0bf86…0bf95 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0bf95…0bfb5 (7, 0, 63) 4c 31 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 20 20 20 20 20 ┆L10: ┆
0x0bfb5…0bfd5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0bfd5…0bfe4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0bfe4…0c004 (7, 0, 64) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 4c 49 53 54 20 28 27 59 4c 2c 58 4c 20 3d 20 ┆ PUT SKIP LIST ('YL,XL = ┆
0x0c004…0c024 27 2c 59 4c 2c 58 4c 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆',YL,XL); ┆
0x0c024…0c033 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0c033…0c053 (7, 0, 65) 20 20 20 20 20 20 20 20 53 55 4d 4d 41 20 28 59 4c 2c 58 4c 29 20 3d 20 53 55 4d 4d 41 20 28 59 ┆ SUMMA (YL,XL) = SUMMA (Y┆
0x0c053…0c073 4c 2c 58 4c 29 20 2b 20 42 45 4c 4f 50 50 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆L,XL) + BELOPP; ┆
0x0c073…0c082 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0c082…0c0a2 (7, 0, 66) 20 20 20 20 20 20 20 20 53 55 4d 4d 41 20 28 59 4c 2c 58 41 4e 54 29 20 3d 20 53 55 4d 4d 41 20 ┆ SUMMA (YL,XANT) = SUMMA ┆
0x0c0a2…0c0c2 28 59 4c 2c 58 41 4e 54 29 20 2b 20 42 45 4c 4f 50 50 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆(YL,XANT) + BELOPP; ┆
0x0c0c2…0c0d1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0c0d1…0c0f1 (7, 0, 67) 20 20 20 20 20 20 20 20 53 55 4d 4d 41 20 28 33 39 2c 4b 49 4e 44 29 20 3d 20 53 55 4d 4d 41 20 ┆ SUMMA (39,KIND) = SUMMA ┆
0x0c0f1…0c111 28 33 39 2c 4b 49 4e 44 29 20 2b 20 42 45 4c 4f 50 50 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆(39,KIND) + BELOPP; ┆
0x0c111…0c120 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0c120…0c140 (7, 0, 68) 20 20 20 20 20 20 20 20 53 55 4d 4d 41 20 28 33 39 2c 58 41 4e 54 29 20 3d 20 53 55 4d 4d 41 20 ┆ SUMMA (39,XANT) = SUMMA ┆
0x0c140…0c160 28 33 39 2c 58 41 4e 54 29 20 2b 20 42 45 4c 4f 50 50 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆(39,XANT) + BELOPP; ┆
0x0c160…0c16f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0c16f…0c18f (7, 0, 69) 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 4c 31 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GO TO L1; ┆
0x0c18f…0c1af 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0c1af…0c1be 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0c1be…0c20d (7, 0, 70) 0x20[0x4f]
0x0c20d…0c22d (7, 0, 71) 55 54 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆UT: ┆
0x0c22d…0c24d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0c24d…0c25c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0c25c…0c27c (7, 0, 72) 53 4c 55 54 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆SLUT: ┆
0x0c27c…0c29c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0c29c…0c2ab 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0c2ab…0c2cb (7, 0, 73) 20 20 20 20 20 20 20 20 43 41 4c 4c 20 52 55 42 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ CALL RUB; ┆
0x0c2cb…0c2eb 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0c2eb…0c2fa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0c2fa…0c31a (7, 0, 74) 20 20 20 20 20 20 20 20 43 41 4c 4c 20 53 4b 52 49 56 5f 53 55 4d 4d 41 3b 20 20 20 20 20 20 20 ┆ CALL SKRIV_SUMMA; ┆
0x0c31a…0c33a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0c33a…0c349 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0c349…0c369 (7, 0, 75) 20 20 20 20 20 20 20 20 44 4f 20 49 20 3d 20 31 20 54 4f 20 32 30 30 30 3b 20 20 20 20 20 20 20 ┆ DO I = 1 TO 2000; ┆
0x0c369…0c389 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0c389…0c398 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0c398…0c3b8 (7, 0, 76) 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 20 20 20 20 ┆ END; ┆
0x0c3b8…0c3d8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0c3d8…0c3e7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0c3e7…0c407 (7, 0, 77) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 28 35 29 3b 20 20 20 20 20 20 20 20 20 20 20 ┆ PUT SKIP (5); ┆
0x0c407…0c427 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0c427…0c436 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0c436…0c456 (7, 0, 78) 20 20 20 20 20 20 20 20 44 3d 44 41 54 55 4d 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ D=DATUM; ┆
0x0c456…0c476 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0c476…0c485 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0c485…0c4a5 (7, 0, 79) 20 20 20 20 20 20 20 20 43 41 4c 4c 20 50 4c 4f 41 44 28 27 51 20 20 20 20 20 20 20 27 29 3b 20 ┆ CALL PLOAD('Q '); ┆
0x0c4a5…0c4c5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0c4c5…0c4d4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0c4d4…0c523 (7, 0, 80) 0x20[0x4f]
0x0c523…0c543 (7, 0, 81) 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆END; ┆
0x0c543…0c563 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0c563…0c572 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0c572…0c5a1 (8, 0, 0) DataSector[0x2f]
[…0x6…]
0x0c6bb…0c6ea (8, 0, 7) 0x00[0x2f]
[…0x72…]
0x0dbd8…0dc07 (9, 0, 0) DataSector[0x2f]
[…0x1…]
0x0dc36…0dc65 (9, 0, 2) 0x00[0x2f]
[…0x76…]
0x0f20f…0f22f (9, 0, 121) 00 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 ┆ ┆
0x0f22f…0f23e ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ┆ ┆
0x0f23e…0f26d (10, 0, 0) DataSector[0x2f]
[…0x2…]
0x0f2cb…0f2fa (10, 0, 3) 0x00[0x2f]
[…0x76…]
0x108a4…10908 (11, 0, 0) DataSector[0x64]
[…0x11…]
0x10fac…11010 (11, 0, 18) 0x00[0x64]
[…0x30…]
0x122d0…12302 (12, 0, 0) DataSector[0x32]
[…0x20…]
0x12942…12962 (12, 0, 33) 06 00 45 67 65 6e 20 70 65 72 73 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ Egen pers ┆
0x12962…12974 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x12974…129a6 (12, 0, 34) 0x00[0x32]
[…0x50…]
0x13946…139aa (13, 0, 0) DataSector[0x64]
[…0x8…]
0x13cca…13d2e (13, 0, 9) 0x00[0x64]
[…0x7c…]
0x16d9e…16ded (15, 0, 0) 0x20[0x4f]
[…0x1…]
0x16e3c…16e5c (15, 0, 2) 2f 2a 20 20 48 20 5b 20 52 20 20 20 42 20 5c 20 52 20 4a 20 41 20 52 20 20 20 48 20 55 20 56 20 ┆/* H Ä R B Ö R J A R H U V ┆
0x16e5c…16e7c 55 20 44 20 50 20 52 20 4f 20 47 20 52 20 41 20 4d 20 4d 20 45 20 54 20 20 2a 2f 20 20 20 20 20 ┆U D P R O G R A M M E T */ ┆
0x16e7c…16e8b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x16e8b…16eda (15, 0, 3) 0x20[0x4f]
[…0x1…]
0x16f29…16f49 (15, 0, 5) 53 54 41 52 54 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆START: ┆
0x16f49…16f69 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x16f69…16f78 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x16f78…16f98 (15, 0, 6) 20 20 20 20 20 20 20 20 43 41 4c 4c 20 44 41 54 43 48 45 43 4b 28 44 41 54 55 4d 29 3b 20 20 20 ┆ CALL DATCHECK(DATUM); ┆
0x16f98…16fb8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x16fb8…16fc7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x16fc7…16fe7 (15, 0, 7) 20 20 20 20 20 20 20 20 49 46 20 44 41 54 55 4d 3d 27 30 20 20 20 20 20 27 20 54 48 45 4e 20 43 ┆ IF DATUM='0 ' THEN C┆
0x16fe7…17007 41 4c 4c 20 50 4c 4f 41 44 28 27 51 20 20 20 20 20 20 20 27 29 3b 20 20 20 20 20 20 20 20 20 20 ┆ALL PLOAD('Q '); ┆
0x17007…17016 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17016…17036 (15, 0, 8) 20 20 20 20 20 20 20 20 55 4e 53 50 45 43 28 50 29 3d 31 36 35 37 30 3b 20 20 20 20 20 20 20 20 ┆ UNSPEC(P)=16570; ┆
0x17036…17056 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17056…17065 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17065…17085 (15, 0, 9) 20 20 20 20 20 20 20 20 44 3d 27 30 27 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ D='0'; ┆
0x17085…170a5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x170a5…170b4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x170b4…170d4 (15, 0, 10) 20 20 20 20 20 20 20 20 55 4e 53 50 45 43 28 50 50 29 3d 31 36 36 31 36 3b 20 20 20 20 20 20 20 ┆ UNSPEC(PP)=16616; ┆
0x170d4…170f4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x170f4…17103 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17103…17123 (15, 0, 11) 20 20 20 20 20 20 20 20 4f 50 45 4e 20 4b 4f 4e 54 4f 50 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆ OPEN KONTOP; ┆
0x17123…17143 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17143…17152 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17152…17172 (15, 0, 12) 20 20 20 20 20 20 20 20 52 41 44 41 4e 54 20 3d 20 35 31 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆ RADANT = 51; ┆
0x17172…17192 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17192…171a1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x171a1…171c1 (15, 0, 13) 41 31 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 20 20 20 20 20 ┆A10: ┆
0x171c1…171e1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x171e1…171f0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x171f0…17210 (15, 0, 14) 20 20 20 20 20 20 20 20 4f 50 45 4e 20 50 41 52 41 55 4b 49 4b 3b 20 20 20 20 20 20 20 20 20 20 ┆ OPEN PARAUKIK; ┆
0x17210…17230 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17230…1723f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1723f…1725f (15, 0, 15) 20 20 20 20 20 20 20 20 52 45 41 44 20 46 49 4c 45 20 28 50 41 52 41 55 4b 49 4b 29 20 49 4e 54 ┆ READ FILE (PARAUKIK) INT┆
0x1725f…1727f 4f 20 28 55 4b 49 4b 50 4f 53 54 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆O (UKIKPOST); ┆
0x1727f…1728e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1728e…172ae (15, 0, 16) 20 20 20 20 20 20 20 20 43 41 4c 4c 20 55 4b 49 4b 53 54 59 52 3b 20 20 20 20 20 20 20 20 20 20 ┆ CALL UKIKSTYR; ┆
0x172ae…172ce 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x172ce…172dd 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x172dd…172fd (15, 0, 17) 20 20 20 20 20 20 20 20 43 41 4c 4c 20 49 4b 50 4c 41 4e 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆ CALL IKPLAN; ┆
0x172fd…1731d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1731d…1732c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1732c…1734c (15, 0, 18) 20 20 20 20 20 20 20 20 44 4f 20 49 20 3d 20 31 20 54 4f 20 31 30 30 30 3b 20 20 20 20 20 20 20 ┆ DO I = 1 TO 1000; ┆
0x1734c…1736c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1736c…1737b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1737b…1739b (15, 0, 19) 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 20 20 20 20 ┆ END; ┆
0x1739b…173bb 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x173bb…173ca 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x173ca…17419 (15, 0, 20) 0x20[0x4f]
0x17419…17439 (15, 0, 21) 41 35 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 20 20 20 20 ┆A500: ┆
0x17439…17459 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17459…17468 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17468…17488 (15, 0, 22) 4c 30 3a 20 20 20 20 20 43 41 4c 4c 20 53 54 59 52 44 41 54 41 3b 20 20 20 20 20 20 20 20 20 20 ┆L0: CALL STYRDATA; ┆
0x17488…174a8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x174a8…174b7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x174b7…174d7 (15, 0, 23) 20 20 20 20 20 20 20 20 49 46 20 59 3d 27 36 20 27 20 7c 20 59 3d 27 37 20 27 20 54 48 45 4e 20 ┆ IF Y='6 ' ö Y='7 ' THEN ┆
0x174d7…174f7 44 4f 3b 20 20 20 20 20 20 20 20 2f 2a 20 20 55 2d 4b 4f 4e 54 4f 20 20 45 4c 4c 45 52 20 49 4b ┆DO; /* U-KONTO ELLER IK┆
0x174f7…17506 2d 53 4c 41 47 2a 2f 20 20 20 20 20 20 20 20 ┆-SLAG*/ ┆
0x17506…17526 (15, 0, 24) 20 20 20 20 20 20 20 20 20 20 20 44 3d 44 41 54 55 4d 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ D=DATUM; ┆
0x17526…17546 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17546…17555 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17555…17575 (15, 0, 25) 20 20 20 20 20 20 20 20 20 20 20 43 41 4c 4c 20 50 4c 4f 41 44 28 27 56 31 32 20 20 20 20 20 27 ┆ CALL PLOAD('V12 '┆
0x17575…17595 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 ┆); ┆
0x17595…175a4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x175a4…175c4 (15, 0, 26) 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 20 20 20 20 ┆ END; ┆
0x175c4…175e4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x175e4…175f3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x175f3…17613 (15, 0, 27) 20 20 20 20 20 20 20 20 43 41 4c 4c 20 4e 4f 4c 4c 54 41 42 3b 20 20 20 20 20 20 20 20 20 20 20 ┆ CALL NOLLTAB; ┆
0x17613…17633 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17633…17642 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17642…17662 (15, 0, 28) 20 20 20 20 20 20 20 20 43 41 4c 4c 20 53 54 41 52 54 50 4f 53 54 3b 20 20 20 20 20 20 20 20 20 ┆ CALL STARTPOST; ┆
0x17662…17682 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17682…17691 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17691…176b1 (15, 0, 29) 20 20 20 20 20 20 20 20 49 46 20 52 43 4f 44 45 3d 31 20 54 48 45 4e 20 47 4f 20 54 4f 20 4c 30 ┆ IF RCODE=1 THEN GO TO L0┆
0x176b1…176d1 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 ┆; ┆
0x176d1…176e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x176e0…17700 (15, 0, 30) 4c 31 3a 20 20 20 20 20 43 41 4c 4c 20 50 4f 53 54 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆L1: CALL POST; ┆
0x17700…17720 20 20 20 20 2f 2a 20 49 4e 4c 5b 53 4e 2e 20 41 56 20 32 35 35 20 52 45 43 2e 20 46 52 5d 4e 20 ┆ /* INLÄSN. AV 255 REC. FRÅN ┆
0x17720…1772f 56 45 52 42 45 4c 4f 50 20 2a 2f 20 20 20 20 ┆VERBELOP */ ┆
0x1772f…1774f (15, 0, 31) 20 20 20 20 20 20 20 20 43 41 4c 4c 20 44 41 54 54 45 53 54 3b 20 20 20 20 20 20 20 20 20 20 20 ┆ CALL DATTEST; ┆
0x1774f…1776f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1776f…1777e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1777e…1779e (15, 0, 32) 20 20 20 20 20 20 20 20 49 46 20 53 55 42 53 54 52 20 28 4b 4f 4e 54 4f 4e 52 2c 31 2c 35 29 20 ┆ IF SUBSTR (KONTONR,1,5) ┆
0x1779e…177be 3c 20 53 55 42 53 54 52 20 28 52 4b 4f 4e 54 4f 31 2c 31 2c 35 29 20 54 48 45 4e 20 47 4f 20 54 ┆< SUBSTR (RKONTO1,1,5) THEN GO T┆
0x177be…177cd 4f 20 4c 31 3b 20 20 20 20 20 20 20 20 20 20 ┆O L1; ┆
0x177cd…177ed (15, 0, 33) 20 20 20 20 20 20 20 20 49 46 20 52 43 4f 44 45 20 3d 20 31 20 54 48 45 4e 20 47 4f 20 54 4f 20 ┆ IF RCODE = 1 THEN GO TO ┆
0x177ed…1780d 4c 31 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆L1; ┆
0x1780d…1781c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1781c…1783c (15, 0, 34) 20 20 20 20 20 20 20 20 20 20 20 43 41 4c 4c 20 4b 4f 4e 54 4f 54 45 53 54 3b 20 20 20 20 20 20 ┆ CALL KONTOTEST; ┆
0x1783c…1785c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1785c…1786b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1786b…1788b (15, 0, 35) 20 20 20 20 20 20 20 20 20 20 20 49 46 20 53 55 42 53 54 52 20 28 4b 4f 4e 54 4f 4e 52 2c 31 2c ┆ IF SUBSTR (KONTONR,1,┆
0x1788b…178ab 35 29 20 3d 20 53 55 42 53 54 52 20 28 52 4b 4f 4e 54 4f 31 2c 31 2c 35 29 20 54 48 45 4e 20 20 ┆5) = SUBSTR (RKONTO1,1,5) THEN ┆
0x178ab…178ba 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x178ba…178da (15, 0, 36) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 55 42 53 54 52 20 28 4b 4f 4e 54 4f 4e 52 47 ┆ SUBSTR (KONTONRG┆
0x178da…178fa 2c 31 2c 35 29 20 3d 20 53 55 42 53 54 52 20 28 4b 4f 4e 54 4f 4e 52 2c 31 2c 35 29 3b 20 20 20 ┆,1,5) = SUBSTR (KONTONR,1,5); ┆
0x178fa…17909 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17909…17929 (15, 0, 37) 2f 2a 20 20 20 20 20 20 20 20 20 20 49 46 20 53 55 42 53 54 52 28 4b 4f 4e 54 4f 4e 52 2c 31 2c ┆/* IF SUBSTR(KONTONR,1,┆
0x17929…17949 35 29 20 3e 20 27 39 35 31 31 32 27 20 54 48 45 4e 20 44 4f 3b 20 20 20 20 20 20 20 20 20 20 20 ┆5) > '95112' THEN DO; ┆
0x17949…17958 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17958…17978 (15, 0, 38) 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 4c 49 53 54 20 28 27 4b 4f 4e 54 ┆ PUT SKIP LIST ('KONT┆
0x17978…17998 4f 4e 52 20 3d 20 27 2c 4b 4f 4e 54 4f 4e 52 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ONR = ',KONTONR); ┆
0x17998…179a7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x179a7…179c7 (15, 0, 39) 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 4c 49 53 54 20 28 27 4b 4f 4e 54 ┆ PUT SKIP LIST ('KONT┆
0x179c7…179e7 4f 4e 52 47 20 3d 20 27 2c 4b 4f 4e 54 4f 4e 52 47 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ONRG = ',KONTONRG); ┆
0x179e7…179f6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x179f6…17a16 (15, 0, 40) 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 4c 49 53 54 20 28 27 4b 4f 4e 54 ┆ PUT SKIP LIST ('KONT┆
0x17a16…17a36 4f 32 20 3d 20 27 2c 4b 4f 4e 54 4f 32 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆O2 = ',KONTO2); ┆
0x17a36…17a45 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17a45…17a65 (15, 0, 41) 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; ┆
0x17a65…17a85 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ */ ┆
0x17a85…17a94 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17a94…17ab4 (15, 0, 42) 2f 2a 20 20 20 20 20 20 49 46 20 55 49 48 45 4c 44 45 4c 20 3d 20 27 48 27 20 54 48 45 4e 20 44 ┆/* IF UIHELDEL = 'H' THEN D┆
0x17ab4…17ad4 4f 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆O; ┆
0x17ad4…17ae3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17ae3…17b03 (15, 0, 43) 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 53 55 42 53 54 52 20 28 4b 4f 4e 54 4f 4e 52 2c 31 ┆ IF SUBSTR (KONTONR,1┆
0x17b03…17b23 2c 35 29 20 3e 3d 20 53 55 42 53 54 52 20 28 4b 4f 4e 54 4f 32 2c 31 2c 35 29 20 54 48 45 4e 20 ┆,5) >= SUBSTR (KONTO2,1,5) THEN ┆
0x17b23…17b32 47 4f 20 54 4f 20 4c 33 3b 20 20 20 20 20 20 ┆GO TO L3; ┆
0x17b32…17b52 (15, 0, 44) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 20 47 4f 20 54 4f 20 4c 35 3b 20 20 ┆ ELSE GO TO L5; ┆
0x17b52…17b72 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17b72…17b81 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17b81…17ba1 (15, 0, 45) 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 20 20 20 20 ┆ END; ┆
0x17ba1…17bc1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17bc1…17bd0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17bd0…17c1f (15, 0, 46) 0x20[0x4f]
0x17c1f…17c3f (15, 0, 47) 4c 33 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆L3: ┆
0x17c3f…17c5f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17c5f…17c6e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17c6e…17cbd (15, 0, 48) 0x20[0x4f]
0x17cbd…17cdd (15, 0, 49) 20 20 20 20 20 20 20 20 20 20 20 49 46 20 53 55 42 53 54 52 20 28 4b 4f 4e 54 4f 4e 52 2c 31 2c ┆ IF SUBSTR (KONTONR,1,┆
0x17cdd…17cfd 35 29 20 7f 3d 20 53 55 42 53 54 52 20 28 4b 4f 4e 54 4f 4e 52 47 2c 31 2c 35 29 20 54 48 45 4e ┆5) = SUBSTR (KONTONRG,1,5) THEN┆
0x17cfd…17d0c 20 44 4f 3b 20 20 20 20 20 20 20 20 20 20 20 ┆ DO; ┆
0x17d0c…17d2c (15, 0, 50) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 41 4c 4c 20 53 4b 52 49 56 5f 53 55 4d 4d 41 ┆ CALL SKRIV_SUMMA┆
0x17d2c…17d4c 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 ┆; ┆
0x17d4c…17d5b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17d5b…17d7b (15, 0, 51) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 55 49 48 45 4c 44 45 4c 20 3d 20 27 48 ┆ IF UIHELDEL = 'H┆
0x17d7b…17d9b 27 20 54 48 45 4e 20 47 4f 20 54 4f 20 53 4c 55 54 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆' THEN GO TO SLUT; ┆
0x17d9b…17daa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17daa…17dca (15, 0, 52) 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 20 20 20 20 ┆ END; ┆
0x17dca…17dea 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17dea…17df9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17df9…17e19 (15, 0, 53) 4c 35 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆L5: ┆
0x17e19…17e39 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ */ ┆
0x17e39…17e48 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17e48…17e97 (15, 0, 54) 0x20[0x4f]
0x17e97…17eb7 (15, 0, 55) 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 53 55 42 53 54 52 20 28 4b 4f 4e 54 4f 4e 52 2c 31 ┆ IF SUBSTR (KONTONR,1┆
0x17eb7…17ed7 2c 35 29 20 3e 3d 20 53 55 42 53 54 52 20 28 52 4b 4f 4e 54 4f 32 2c 31 2c 35 29 20 54 48 45 4e ┆,5) >= SUBSTR (RKONTO2,1,5) THEN┆
0x17ed7…17ee6 20 43 41 4c 4c 20 20 20 20 20 20 20 20 20 20 ┆ CALL ┆
0x17ee6…17f06 (15, 0, 56) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 4b 52 49 56 5f 53 55 4d 4d 41 3b 20 20 20 20 ┆ SKRIV_SUMMA; ┆
0x17f06…17f26 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17f26…17f35 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17f35…17f84 (15, 0, 57) 0x20[0x4f]
[…0x1…]
0x17fd3…17ff3 (15, 0, 59) 20 20 20 20 20 20 20 20 49 46 20 4b 4f 4e 54 4f 4e 52 3d 27 53 4c 55 54 39 39 39 39 39 39 39 27 ┆ IF KONTONR='SLUT9999999'┆
0x17ff3…18013 20 54 48 45 4e 20 47 4f 20 54 4f 20 55 54 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ THEN GO TO UT; ┆
0x18013…18022 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18022…18042 (15, 0, 60) 20 20 20 20 20 20 20 20 49 46 20 53 55 42 53 54 52 20 28 4b 4f 4e 54 4f 4e 52 2c 31 2c 35 29 20 ┆ IF SUBSTR (KONTONR,1,5) ┆
0x18042…18062 3e 3d 20 53 55 42 53 54 52 20 28 52 4b 4f 4e 54 4f 32 2c 31 2c 35 29 20 54 48 45 4e 20 47 4f 20 ┆>= SUBSTR (RKONTO2,1,5) THEN GO ┆
0x18062…18071 54 4f 20 55 54 3b 20 20 20 20 20 20 20 20 20 ┆TO UT; ┆
0x18071…18091 (15, 0, 61) 20 20 20 20 20 20 20 20 49 46 20 4c 49 53 54 54 59 50 3d 31 20 54 48 45 4e 20 43 41 4c 4c 20 50 ┆ IF LISTTYP=1 THEN CALL P┆
0x18091…180b1 4f 53 54 53 4b 52 49 56 3b 20 20 20 20 20 20 2f 2a 20 20 20 20 20 20 20 4b 4f 4e 54 4f 55 54 44 ┆OSTSKRIV; /* KONTOUTD┆
0x180b1…180c0 52 41 47 20 20 2a 2f 20 20 20 20 20 20 20 20 ┆RAG */ ┆
0x180c0…180e0 (15, 0, 62) 20 20 20 20 20 20 20 20 43 41 4c 4c 20 59 58 4b 4f 52 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆ CALL YXKORD; ┆
0x180e0…18100 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18100…1810f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1810f…1812f (15, 0, 63) 20 20 20 20 20 20 20 20 49 46 20 4f 4b 20 3d 20 27 4a 27 20 54 48 45 4e 20 47 4f 20 54 4f 20 4c ┆ IF OK = 'J' THEN GO TO L┆
0x1812f…1814f 31 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 ┆10; ┆
0x1814f…1815e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1815e…1817e (15, 0, 64) 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 4c 31 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GO TO L1; ┆
0x1817e…1819e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1819e…181ad 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x181ad…181cd (15, 0, 65) 2f 2a 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 4c 49 53 54 20 28 27 4b 4f 4e 54 4f 4e 52 20 ┆/* PUT SKIP LIST ('KONTONR ┆
0x181cd…181ed 3d 20 27 2c 4b 4f 4e 54 4f 4e 52 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆= ',KONTONR); ┆
0x181ed…181fc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x181fc…1821c (15, 0, 66) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 4c 49 53 54 20 28 27 59 4c 20 3d 20 27 2c 59 ┆ PUT SKIP LIST ('YL = ',Y┆
0x1821c…1823c 4c 2c 27 20 20 58 4c 20 3d 20 27 2c 58 4c 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆L,' XL = ',XL); ┆
0x1823c…1824b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1824b…1826b (15, 0, 67) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 4c 49 53 54 20 28 27 53 55 4d 49 4e 44 20 3d ┆ PUT SKIP LIST ('SUMIND =┆
0x1826b…1828b 20 27 2c 53 55 4d 49 4e 44 29 3b 20 20 20 20 2a 2f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ',SUMIND); */ ┆
0x1828b…1829a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1829a…182ba (15, 0, 68) 4c 31 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 20 20 20 20 20 ┆L10: ┆
0x182ba…182da 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x182da…182e9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x182e9…18338 (15, 0, 69) 0x20[0x4f]
0x18338…18358 (15, 0, 70) 20 20 20 20 20 20 20 20 53 55 4d 4d 41 20 28 59 4c 2c 58 4c 29 20 3d 20 53 55 4d 4d 41 20 28 59 ┆ SUMMA (YL,XL) = SUMMA (Y┆
0x18358…18378 4c 2c 58 4c 29 20 2b 20 42 45 4c 4f 50 50 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆L,XL) + BELOPP; ┆
0x18378…18387 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18387…183a7 (15, 0, 71) 20 20 20 20 20 20 20 20 53 55 4d 4d 41 20 28 59 4c 2c 31 31 29 20 3d 20 53 55 4d 4d 41 20 28 59 ┆ SUMMA (YL,11) = SUMMA (Y┆
0x183a7…183c7 4c 2c 31 31 29 20 2b 20 42 45 4c 4f 50 50 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆L,11) + BELOPP; ┆
0x183c7…183d6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x183d6…183f6 (15, 0, 72) 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 4c 31 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GO TO L1; ┆
0x183f6…18416 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18416…18425 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18425…18474 (15, 0, 73) 0x20[0x4f]
0x18474…18494 (15, 0, 74) 55 54 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆UT: ┆
0x18494…184b4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x184b4…184c3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x184c3…184e3 (15, 0, 75) 53 4c 55 54 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆SLUT: ┆
0x184e3…18503 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18503…18512 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18512…18532 (15, 0, 76) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 28 34 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PUT SKIP(4); ┆
0x18532…18552 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18552…18561 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18561…185b0 (15, 0, 77) 0x20[0x4f]
0x185b0…185d0 (15, 0, 78) 20 20 20 20 20 20 20 20 44 3d 44 41 54 55 4d 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ D=DATUM; ┆
0x185d0…185f0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x185f0…185ff 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x185ff…1861f (15, 0, 79) 20 20 20 20 20 20 20 20 43 41 4c 4c 20 50 4c 4f 41 44 28 27 51 20 20 20 20 20 20 20 27 29 3b 20 ┆ CALL PLOAD('Q '); ┆
0x1861f…1863f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1863f…1864e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1864e…1869d (15, 0, 80) 0x20[0x4f]
0x1869d…186bd (15, 0, 81) 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆END; ┆
0x186bd…186dd 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x186dd…186ec 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x186ec…1870c (63, 0, 15) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 ff ff ff 80 00 00 0f ┆ ┆
0x1870c…1871d ff ff ff ff fc 00 01 ff e0 00 00 00 00 00 00 00 00 ┆ ┆