|
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 C H I Q q r
Length: 498730 (0x79c2a)
Description: Bits:30008773 50001606
Types: 8" Floppy Disk
| flag | nrec | reclen | rec_trk | t0 | tn | name | artifact |
|---|---|---|---|---|---|---|---|
| 0 | 15 | 255 | 30 | 66 | 66 | COPY | ⟦887389586⟧ Q1_HexDump, reclen=255, q1file |
| 0 | 835 | 79 | 82 | 21 | 35 | H3001 | ⟦e85971292⟧ Q1_Text, reclen=79, q1file |
| 0 | 677 | 79 | 82 | 36 | 50 | H4001 | ⟦24a975088⟧ Q1_Text, reclen=79, q1file |
| 0 | 660 | 79 | 82 | 67 | 76 | H4001U | ⟦aa1391a2c⟧ Q1_Text, reclen=79, q1file |
| 0 | 1044 | 79 | 82 | 1 | 20 | H5001 | ⟦fde080fa6⟧ Q1_Text, reclen=79, q1file |
| 0 | 1079 | 80 | 81 | 51 | 65 | H6001 | ⟦62ac7c56a⟧ Q1_Text, reclen=80, q1file |
| 0 | 7 | 40 | 130 | 0 | 0 | INDEX | ⟦0fe341c5c⟧ Q1_HexDump, reclen=40, 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=»H5001 «, nrec=0x0414, reclen=0x004f, rectrack=0x0052, track0=0x0001, trackn=0x0014}
0x00050…00078 (0, 0, 2) Catalog {f0=0x0000, name=»H3001 «, nrec=0x0343, reclen=0x004f, rectrack=0x0052, track0=0x0015, trackn=0x0023}
0x00078…000a0 (0, 0, 3) Catalog {f0=0x0000, name=»H4001 «, nrec=0x02a5, reclen=0x004f, rectrack=0x0052, track0=0x0024, trackn=0x0032}
0x000a0…000c8 (0, 0, 4) Catalog {f0=0x0000, name=»H6001 «, nrec=0x0437, reclen=0x0050, rectrack=0x0051, track0=0x0033, trackn=0x0041}
0x000c8…000f0 (0, 0, 5) Catalog {f0=0x0000, name=»COPY «, nrec=0x000f, reclen=0x00ff, rectrack=0x001e, track0=0x0042, trackn=0x0042}
0x000f0…00118 (0, 0, 6) Catalog {f0=0x0000, name=»H4001U «, nrec=0x0294, reclen=0x004f, rectrack=0x0052, track0=0x0043, trackn=0x004c}
0x00118…00140 (0, 0, 7) 0x00[0x28]
[…0x7a…]
0x01450…0149f (1, 0, 0) DataSector[0x4f]
[…0x413…]
0x1567c…1569c (13, 0, 60) 41 33 36 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 ┆A360: ┆
0x1569c…156bc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x156bc…156cb 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x156cb…156eb (13, 0, 61) 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 54 52 41 44 41 4e 54 20 3d 20 53 55 42 53 54 52 20 ┆ IF TRADANT = SUBSTR ┆
0x156eb…1570b 28 53 54 32 54 41 52 41 44 2c 35 2c 31 29 20 54 48 45 4e 20 47 4f 20 54 4f 20 41 33 38 30 3b 20 ┆(ST2TARAD,5,1) THEN GO TO A380; ┆
0x1570b…1571a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1571a…1573a (13, 0, 62) 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 52 20 3c 20 32 20 54 48 45 4e 20 44 4f 3b 3b 20 20 ┆ IF R < 2 THEN DO;; ┆
0x1573a…1575a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1575a…15769 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x15769…15789 (13, 0, 63) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 55 54 48 4f 50 50 20 3d 20 28 27 41 33 36 30 27 ┆ UTHOPP = ('A360'┆
0x15789…157a9 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 ┆); ┆
0x157a9…157b8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x157b8…157d8 (13, 0, 64) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 41 35 30 30 3b 20 20 20 20 20 ┆ GO TO A500; ┆
0x157d8…157f8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x157f8…15807 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x15807…15827 (13, 0, 65) 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; ┆
0x15827…15847 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x15847…15856 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x15856…15876 (13, 0, 66) 20 20 20 20 20 20 20 20 20 20 20 20 54 52 41 56 47 54 59 50 20 3d 20 27 35 27 3b 20 20 20 20 20 ┆ TRAVGTYP = '5'; ┆
0x15876…15896 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x15896…158a5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x158a5…158c5 (13, 0, 67) 20 20 20 20 20 20 20 20 20 20 20 20 43 41 4c 4c 20 54 52 4c 41 45 53 3b 20 20 20 20 20 20 20 20 ┆ CALL TRLAES; ┆
0x158c5…158e5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x158e5…158f4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x158f4…15914 (13, 0, 68) 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 4f 4e 43 4f 44 45 20 3d 20 34 20 54 48 45 4e 20 47 ┆ IF ONCODE = 4 THEN G┆
0x15914…15934 4f 20 54 4f 20 41 33 38 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 A380; ┆
0x15934…15943 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x15943…15963 (13, 0, 69) 20 20 20 20 20 20 20 20 20 20 20 20 54 52 41 44 41 4e 54 20 3d 20 54 52 41 44 41 4e 54 20 2b 20 ┆ TRADANT = TRADANT + ┆
0x15963…15983 27 31 27 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆'1'; ┆
0x15983…15992 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x15992…159b2 (13, 0, 70) 20 20 20 20 20 20 20 20 20 20 20 20 54 49 4c 4c 52 53 4f 52 54 20 3d 20 27 20 20 6b 57 68 20 27 ┆ TILLRSORT = ' kWh '┆
0x159b2…159d2 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 ┆; ┆
0x159d2…159e1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x159e1…15a01 (13, 0, 71) 20 20 20 20 20 20 20 20 20 20 20 20 43 41 4c 4c 20 54 52 53 4b 52 49 56 3b 20 20 20 20 20 20 20 ┆ CALL TRSKRIV; ┆
0x15a01…15a21 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x15a21…15a30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x15a30…15a50 (13, 0, 72) 20 20 20 20 20 20 20 20 20 20 20 20 43 41 4c 4c 20 52 4b 4f 44 54 45 53 54 3b 20 20 20 20 20 20 ┆ CALL RKODTEST; ┆
0x15a50…15a70 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x15a70…15a7f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x15a7f…15a9f (13, 0, 73) 20 20 20 20 20 20 20 20 20 20 20 20 43 41 4c 4c 20 53 4b 41 54 54 45 53 54 3b 20 20 20 20 20 20 ┆ CALL SKATTEST; ┆
0x15a9f…15abf 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x15abf…15ace 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x15ace…15aee (13, 0, 74) 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 41 33 36 30 3b 20 20 20 20 20 20 20 20 20 ┆ GO TO A360; ┆
0x15aee…15b0e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x15b0e…15b1d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x15b1d…15b3d (13, 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; ┆
0x15b3d…15b5d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x15b5d…15b6c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x15b6c…15b8c (13, 0, 76) 41 33 38 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 ┆A380: ┆
0x15b8c…15bac 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x15bac…15bbb 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x15bbb…15c0a (13, 0, 77) 0x20[0x4f]
[…0x1…]
0x15c59…15c79 (13, 0, 79) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x15c79…15c99 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 20 20 52 55 4e 44 4e 49 4e 47 53 42 45 4c ┆ /* RUNDNINGSBEL┆
0x15c99…15ca8 4f 50 50 53 20 52 41 44 20 20 20 20 2a 2f 20 ┆OPPS RAD */ ┆
0x15ca8…15cf7 (13, 0, 80) 0x20[0x4f]
0x15cf7…15d46 (13, 0, 81) 0x00[0x4f]
0x15d46…15d95 (14, 0, 0) 0x20[0x4f]
0x15d95…15db5 (14, 0, 1) 41 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 20 20 20 20 ┆A400: ┆
0x15db5…15dd5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x15dd5…15de4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x15de4…15e04 (14, 0, 2) 20 20 20 20 20 20 20 20 49 46 20 52 20 3c 20 32 20 54 48 45 4e 20 44 4f 3b 20 20 20 20 20 20 20 ┆ IF R < 2 THEN DO; ┆
0x15e04…15e24 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x15e24…15e33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x15e33…15e53 (14, 0, 3) 20 20 20 20 20 20 20 20 20 20 20 20 55 54 48 4f 50 50 20 3d 20 28 27 41 34 30 30 27 29 3b 20 20 ┆ UTHOPP = ('A400'); ┆
0x15e53…15e73 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x15e73…15e82 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x15e82…15ea2 (14, 0, 4) 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 41 35 30 30 3b 20 20 20 20 20 20 20 20 20 ┆ GO TO A500; ┆
0x15ea2…15ec2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x15ec2…15ed1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x15ed1…15ef1 (14, 0, 5) 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; ┆
0x15ef1…15f11 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x15f11…15f20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x15f20…15f40 (14, 0, 6) 20 20 20 20 20 20 20 20 52 57 54 4f 54 41 20 3d 20 57 54 4f 54 3b 20 20 20 20 20 20 20 20 20 20 ┆ RWTOTA = WTOT; ┆
0x15f40…15f60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x15f60…15f6f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x15f6f…15f8f (14, 0, 7) 20 20 20 20 20 20 20 20 43 41 4c 4c 20 52 55 4e 44 42 45 4c 3b 20 20 20 20 20 20 20 20 20 20 20 ┆ CALL RUNDBEL; ┆
0x15f8f…15faf 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x15faf…15fbe 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x15fbe…15fde (14, 0, 8) 20 20 20 20 20 20 20 20 49 46 20 52 55 4e 44 20 3d 20 30 2e 30 30 20 54 48 45 4e 20 44 4f 3b 20 ┆ IF RUND = 0.00 THEN DO; ┆
0x15fde…15ffe 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x15ffe…1600d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1600d…1602d (14, 0, 9) 20 20 20 20 20 20 20 20 20 20 20 20 52 20 3d 20 52 20 2b 20 32 3b 20 20 20 20 20 20 20 20 20 20 ┆ R = R + 2; ┆
0x1602d…1604d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1604d…1605c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1605c…1607c (14, 0, 10) 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 41 35 30 30 3b 20 20 20 20 20 20 20 20 20 ┆ GO TO A500; ┆
0x1607c…1609c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1609c…160ab 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x160ab…160cb (14, 0, 11) 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; ┆
0x160cb…160eb 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x160eb…160fa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x160fa…1611a (14, 0, 12) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 28 32 29 20 45 44 49 54 20 28 27 20 20 20 20 ┆ PUT SKIP (2) EDIT (' ┆
0x1611a…1613a 20 20 52 55 4e 44 4e 49 4e 47 53 42 45 4c 4f 50 50 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ RUNDNINGSBELOPP ┆
0x1613a…16149 20 20 20 20 27 29 20 28 41 29 20 20 20 20 20 ┆ ') (A) ┆
0x16149…16169 (14, 0, 13) 20 20 20 20 20 20 20 20 20 20 20 20 28 27 20 27 29 20 28 41 28 34 36 29 29 20 28 52 55 4e 44 29 ┆ (' ') (A(46)) (RUND)┆
0x16169…16189 20 28 50 27 2d 2d 2d 2d 2d 2d 2d 39 56 2c 39 39 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ (P'-------9V,99'); ┆
0x16189…16198 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x16198…161b8 (14, 0, 14) 20 20 20 20 20 20 20 20 57 53 4b 4f 52 45 53 55 54 4a 20 28 54 29 20 3d 20 57 53 4b 4f 52 45 53 ┆ WSKORESUTJ (T) = WSKORES┆
0x161b8…161d8 55 54 4a 20 28 54 29 20 2b 20 52 55 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆UTJ (T) + RUND; ┆
0x161d8…161e7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x161e7…16236 (14, 0, 15) 0x20[0x4f]
[…0x2…]
0x162d4…162f4 (14, 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 20 20 20 20 20 20 20 20 ┆ ┆
0x162f4…16314 20 2f 2a 20 20 54 4f 54 41 4c 52 41 44 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ /* TOTALRAD ┆
0x16314…16323 20 20 20 20 20 20 20 20 20 20 20 20 2a 2f 20 ┆ */ ┆
0x16323…16372 (14, 0, 19) 0x20[0x4f]
0x16372…16392 (14, 0, 20) 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: ┆
0x16392…163b2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x163b2…163c1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x163c1…163e1 (14, 0, 21) 20 20 20 20 20 20 20 20 49 46 20 52 55 4e 44 41 44 20 3d 20 27 4a 27 20 54 48 45 4e 20 47 4f 20 ┆ IF RUNDAD = 'J' THEN GO ┆
0x163e1…16401 54 4f 20 41 35 35 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 ┆TO A550; ┆
0x16401…16410 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x16410…16430 (14, 0, 22) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 28 52 2b 32 29 20 45 44 49 54 20 28 27 20 27 ┆ PUT SKIP (R+2) EDIT (' '┆
0x16430…16450 29 20 28 41 28 36 34 29 29 20 28 27 54 72 61 6e 73 70 6f 72 74 20 20 20 20 20 20 20 20 20 20 20 ┆) (A(64)) ('Transport ┆
0x16450…1645f 20 20 27 29 20 28 41 29 20 20 20 20 20 20 20 ┆ ') (A) ┆
0x1645f…1647f (14, 0, 23) 20 20 20 20 20 20 20 20 20 20 20 20 28 57 54 4f 54 29 20 28 50 27 2d 2d 2d 2d 2d 2d 2d 39 56 2c ┆ (WTOT) (P'-------9V,┆
0x1647f…1649f 39 39 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆99'); ┆
0x1649f…164ae 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x164ae…164ce (14, 0, 24) 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 41 36 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GO TO A600; ┆
0x164ce…164ee 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x164ee…164fd 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x164fd…1651d (14, 0, 25) 41 35 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 20 20 20 20 ┆A550: ┆
0x1651d…1653d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1653d…1654c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1654c…1656c (14, 0, 26) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 28 52 20 2d 20 31 29 20 45 44 49 54 20 28 27 ┆ PUT SKIP (R - 1) EDIT ('┆
0x1656c…1658c 20 27 29 20 28 41 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ') (A); ┆
0x1658c…1659b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1659b…165bb (14, 0, 27) 20 20 20 20 20 20 20 20 49 46 20 41 42 49 4b 54 4f 20 3e 20 30 20 54 48 45 4e 20 44 4f 3b 20 20 ┆ IF ABIKTO > 0 THEN DO; ┆
0x165bb…165db 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x165db…165ea 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x165ea…1660a (14, 0, 28) 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 45 44 49 54 20 28 27 20 20 20 20 ┆ PUT SKIP EDIT (' ┆
0x1660a…1662a 20 20 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 20 20 20 49 6e 74 65 72 6e 6b 6f 6e 74 6f 20 ┆ XXXXXXXXXXXXXXX Internkonto ┆
0x1662a…16639 27 29 20 28 41 29 20 20 20 20 20 20 20 20 20 ┆') (A) ┆
0x16639…16659 (14, 0, 29) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 41 42 49 4b 54 4f 29 20 28 50 27 39 39 39 39 ┆ (ABIKTO) (P'9999┆
0x16659…16679 39 39 39 39 39 39 39 39 39 27 29 28 27 20 27 29 28 41 28 33 37 29 29 20 28 57 54 4f 54 29 28 50 ┆999999999')(' ')(A(37)) (WTOT)(P┆
0x16679…16688 27 2d 2d 2d 2d 2d 2d 2d 39 56 2c 39 39 27 29 ┆'-------9V,99')┆
0x16688…166a8 (14, 0, 30) 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 41 35 37 30 3b 20 20 20 20 20 20 20 20 20 ┆ GO TO A570; ┆
0x166a8…166c8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x166c8…166d7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x166d7…166f7 (14, 0, 31) 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; ┆
0x166f7…16717 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x16717…16726 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x16726…16746 (14, 0, 32) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 45 44 49 54 20 28 27 20 27 29 20 28 41 28 32 ┆ PUT SKIP EDIT (' ') (A(2┆
0x16746…16766 32 29 29 20 28 53 55 42 53 54 52 28 50 41 52 41 46 46 44 2c 35 2c 32 29 29 20 28 50 27 5a 50 27 ┆2)) (SUBSTR(PARAFFD,5,2)) (P'ZP'┆
0x16766…16775 29 20 28 27 20 27 29 20 28 41 29 20 20 20 20 ┆) (' ') (A) ┆
0x16775…16795 (14, 0, 33) 20 20 20 20 20 20 20 20 20 20 20 20 20 28 57 4d 41 4e 41 44 20 28 57 4d 41 4e 41 44 4e 52 29 29 ┆ (WMANAD (WMANADNR))┆
0x16795…167b5 20 28 41 28 38 29 29 20 28 27 20 31 39 27 29 20 28 41 29 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ (A(8)) (' 19') (A) ┆
0x167b5…167c4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x167c4…167e4 (14, 0, 34) 20 20 20 20 20 20 20 20 20 20 20 20 28 53 55 42 53 54 52 20 28 50 41 52 41 46 46 44 2c 31 2c 32 ┆ (SUBSTR (PARAFFD,1,2┆
0x167e4…16804 29 29 20 28 41 29 20 28 27 20 27 29 20 28 41 28 34 38 29 29 20 28 57 54 4f 54 29 20 28 50 27 2d ┆)) (A) (' ') (A(48)) (WTOT) (P'-┆
0x16804…16813 2d 2d 2d 2d 2d 2d 39 56 2c 39 39 27 29 3b 20 ┆------9V,99'); ┆
0x16813…16833 (14, 0, 35) 41 35 37 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 ┆A570: ┆
0x16833…16853 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x16853…16862 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x16862…16882 (14, 0, 36) 20 20 20 20 20 20 20 20 4f 50 45 4e 20 50 52 45 4c 41 52 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆ OPEN PRELAR; ┆
0x16882…168a2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x168a2…168b1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x168b1…168d1 (14, 0, 37) 20 20 20 20 20 20 20 20 52 45 41 44 20 4b 45 59 20 28 41 42 41 42 4e 52 29 20 46 49 4c 45 20 28 ┆ READ KEY (ABABNR) FILE (┆
0x168d1…168f1 50 52 45 4c 41 52 29 20 49 4e 54 4f 20 28 50 52 45 4c 41 52 45 41 29 3b 20 20 20 20 20 20 20 20 ┆PRELAR) INTO (PRELAREA); ┆
0x168f1…16900 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x16900…16920 (14, 0, 38) 20 20 20 20 20 20 20 20 50 45 4b 41 52 45 20 3d 20 41 44 44 52 20 28 50 52 45 4c 41 52 45 41 29 ┆ PEKARE = ADDR (PRELAREA)┆
0x16920…16940 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 ┆; ┆
0x16940…1694f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1694f…1696f (14, 0, 39) 20 20 20 20 20 20 20 20 53 54 41 52 54 50 20 3d 20 50 45 4b 41 52 45 20 2b 20 35 20 2b 20 28 28 ┆ STARTP = PEKARE + 5 + ((┆
0x1696f…1698f 50 41 52 41 44 45 42 50 45 52 20 2d 20 31 29 20 2a 20 31 36 29 3b 20 20 20 20 20 20 20 20 20 20 ┆PARADEBPER - 1) * 16); ┆
0x1698f…1699e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1699e…169be (14, 0, 40) 20 20 20 20 20 20 20 20 55 4e 53 50 45 43 20 28 50 52 45 4c 29 20 3d 20 53 54 41 52 54 50 3b 20 ┆ UNSPEC (PREL) = STARTP; ┆
0x169be…169de 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x169de…169ed 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x169ed…16a0d (14, 0, 41) 20 20 20 20 20 20 20 20 53 55 42 53 54 52 20 28 50 52 4c 4f 45 50 4e 52 2c 31 2c 31 29 20 3d 20 ┆ SUBSTR (PRLOEPNR,1,1) = ┆
0x16a0d…16a2d 27 2d 27 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆'-'; ┆
0x16a2d…16a3c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x16a3c…16a5c (14, 0, 42) 20 20 20 20 20 20 20 20 53 55 42 53 54 52 20 28 50 52 4c 4f 45 50 4e 52 2c 32 2c 35 29 20 3d 20 ┆ SUBSTR (PRLOEPNR,2,5) = ┆
0x16a5c…16a7c 53 54 32 4c 4f 45 50 4e 52 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ST2LOEPNR; ┆
0x16a7c…16a8b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x16a8b…16aab (14, 0, 43) 20 20 20 20 20 20 20 20 50 52 42 45 4c 4f 50 50 20 3d 20 57 54 4f 54 3b 20 20 20 20 20 20 20 20 ┆ PRBELOPP = WTOT; ┆
0x16aab…16acb 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x16acb…16ada 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x16ada…16afa (14, 0, 44) 20 20 20 20 20 20 20 20 50 52 46 44 41 54 20 3d 20 50 41 52 41 44 45 42 44 41 54 3b 20 20 20 20 ┆ PRFDAT = PARADEBDAT; ┆
0x16afa…16b1a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x16b1a…16b29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x16b29…16b49 (14, 0, 45) 20 20 20 20 20 20 20 20 52 45 57 52 49 54 45 20 46 49 4c 45 20 28 50 52 45 4c 41 52 29 20 46 52 ┆ REWRITE FILE (PRELAR) FR┆
0x16b49…16b69 4f 4d 20 28 50 52 45 4c 41 52 45 41 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆OM (PRELAREA); ┆
0x16b69…16b78 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x16b78…16b98 (14, 0, 46) 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 41 36 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GO TO A600; ┆
0x16b98…16bb8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x16bb8…16bc7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x16bc7…16c16 (14, 0, 47) 0x20[0x4f]
[…0x2…]
0x16cb4…16cd4 (14, 0, 50) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x16cd4…16cf4 20 2f 2a 20 20 20 4e 4f 54 52 41 44 45 52 4e 41 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ /* NOTRADERNA ┆
0x16cf4…16d03 20 20 20 20 20 20 20 20 20 20 20 20 2a 2f 20 ┆ */ ┆
0x16d03…16d52 (14, 0, 51) 0x20[0x4f]
0x16d52…16d72 (14, 0, 52) 41 36 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 ┆A600: ┆
0x16d72…16d92 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x16d92…16da1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x16da1…16dc1 (14, 0, 53) 20 20 20 20 20 20 20 20 49 46 20 4e 4f 54 49 4e 44 45 58 20 28 31 29 20 3d 20 27 20 27 20 54 48 ┆ IF NOTINDEX (1) = ' ' TH┆
0x16dc1…16de1 45 4e 20 44 4f 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆EN DO; ┆
0x16de1…16df0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x16df0…16e10 (14, 0, 54) 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 28 36 29 20 45 44 49 54 20 28 27 ┆ PUT SKIP (6) EDIT ('┆
0x16e10…16e30 20 27 29 20 28 41 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ') (A); ┆
0x16e30…16e3f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x16e3f…16e5f (14, 0, 55) 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 41 38 30 30 3b 20 20 20 20 20 20 20 20 20 ┆ GO TO A800; ┆
0x16e5f…16e7f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x16e7f…16e8e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x16e8e…16eae (14, 0, 56) 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; ┆
0x16eae…16ece 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x16ece…16edd 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x16edd…16efd (14, 0, 57) 20 20 20 20 20 20 20 20 49 46 20 4e 4f 54 49 4e 44 45 58 20 28 36 29 20 3d 20 27 20 27 20 54 48 ┆ IF NOTINDEX (6) = ' ' TH┆
0x16efd…16f1d 45 4e 20 47 4f 20 54 4f 20 41 36 35 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆EN GO TO A650; ┆
0x16f1d…16f2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x16f2c…16f7b (14, 0, 58) 0x20[0x4f]
0x16f7b…16f9b (14, 0, 59) 41 36 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 20 20 20 20 ┆A650: ┆
0x16f9b…16fbb 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x16fbb…16fca 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x16fca…16fea (14, 0, 60) 20 20 20 20 20 20 20 20 50 20 3d 20 35 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ P = 5; ┆
0x16fea…1700a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1700a…17019 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17019…17039 (14, 0, 61) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 45 44 49 54 20 28 27 20 27 29 20 28 41 29 3b ┆ PUT SKIP EDIT (' ') (A);┆
0x17039…17059 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17059…17068 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17068…17088 (14, 0, 62) 20 20 20 20 20 20 20 20 44 4f 20 49 20 3d 20 31 20 54 4f 20 31 30 3b 20 20 20 20 20 20 20 20 20 ┆ DO I = 1 TO 10; ┆
0x17088…170a8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x170a8…170b7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x170b7…170d7 (14, 0, 63) 20 20 20 20 20 20 20 20 20 20 20 20 52 45 41 44 20 4b 45 59 20 28 4e 4f 54 49 4e 44 45 58 20 28 ┆ READ KEY (NOTINDEX (┆
0x170d7…170f7 49 29 29 20 46 49 4c 45 20 28 4e 4f 54 45 52 29 20 49 4e 54 4f 20 28 4e 4f 54 50 4f 53 54 29 3b ┆I)) FILE (NOTER) INTO (NOTPOST);┆
0x170f7…17106 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17106…17126 (14, 0, 64) 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 4e 4f 54 20 3d 20 27 50 27 20 54 48 45 4e 20 44 4f ┆ IF NOT = 'P' THEN DO┆
0x17126…17146 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 ┆; ┆
0x17146…17155 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17155…17175 (14, 0, 65) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 41 4c 4c 20 50 4e 4f 54 45 4e 3b 20 20 20 20 ┆ CALL PNOTEN; ┆
0x17175…17195 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17195…171a4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x171a4…171c4 (14, 0, 66) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 41 36 36 30 3b 20 20 20 20 20 ┆ GO TO A660; ┆
0x171c4…171e4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x171e4…171f3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x171f3…17213 (14, 0, 67) 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; ┆
0x17213…17233 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17233…17242 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17242…17262 (14, 0, 68) 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 4e 4f 54 20 3d 20 27 20 27 20 54 48 45 4e 20 47 4f ┆ IF NOT = ' ' THEN GO┆
0x17262…17282 20 54 4f 20 41 36 37 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 A670; ┆
0x17282…17291 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17291…172b1 (14, 0, 69) 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 45 44 49 54 20 28 27 20 27 29 20 ┆ PUT SKIP EDIT (' ') ┆
0x172b1…172d1 28 41 28 36 29 29 20 28 4e 4f 54 29 20 28 41 29 20 28 27 20 3d 20 27 29 20 28 41 29 20 28 4e 4f ┆(A(6)) (NOT) (A) (' = ') (A) (NO┆
0x172d1…172e0 54 54 45 58 54 29 20 28 41 29 3b 20 20 20 20 ┆TTEXT) (A); ┆
0x172e0…17300 (14, 0, 70) 41 36 36 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 ┆A660: ┆
0x17300…17320 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17320…1732f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1732f…1734f (14, 0, 71) 20 20 20 20 20 20 20 20 50 20 3d 20 50 20 2d 20 31 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ P = P - 1; ┆
0x1734f…1736f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1736f…1737e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1737e…1739e (14, 0, 72) 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; ┆
0x1739e…173be 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x173be…173cd 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x173cd…173ed (14, 0, 73) 41 36 37 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 ┆A670: ┆
0x173ed…1740d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1740d…1741c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1741c…1743c (14, 0, 74) 20 20 20 20 20 20 20 20 49 46 20 50 20 3e 20 30 20 54 48 45 4e 20 44 4f 3b 20 20 20 20 20 20 20 ┆ IF P > 0 THEN DO; ┆
0x1743c…1745c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1745c…1746b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1746b…1748b (14, 0, 75) 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 28 50 29 20 45 44 49 54 20 28 27 ┆ PUT SKIP (P) EDIT ('┆
0x1748b…174ab 20 27 29 20 28 41 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ') (A); ┆
0x174ab…174ba 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x174ba…174da (14, 0, 76) 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; ┆
0x174da…174fa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x174fa…17509 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17509…17529 (14, 0, 77) 41 36 38 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 ┆A680: ┆
0x17529…17549 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17549…17558 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17558…17578 (14, 0, 78) 20 20 20 20 20 20 20 20 43 41 4c 4c 20 4e 4f 54 49 4e 44 45 58 4e 4f 4c 4c 3b 20 20 20 20 20 20 ┆ CALL NOTINDEXNOLL; ┆
0x17578…17598 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17598…175a7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x175a7…175f6 (14, 0, 79) 0x20[0x4f]
[…0x1…]
0x17645…17694 (14, 0, 81) 0x00[0x4f]
0x17694…176b4 (15, 0, 0) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x176b4…176d4 20 2f 2a 20 20 41 44 52 45 53 53 52 41 44 45 52 4e 41 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ /* ADRESSRADERNA ┆
0x176d4…176e3 20 20 20 20 20 20 20 20 20 20 20 20 2a 2f 20 ┆ */ ┆
0x176e3…17732 (15, 0, 1) 0x20[0x4f]
[…0x1…]
0x17781…177a1 (15, 0, 3) 41 38 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 ┆A800: ┆
0x177a1…177c1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x177c1…177d0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x177d0…177f0 (15, 0, 4) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 28 32 29 20 45 44 49 54 20 28 27 20 20 20 20 ┆ PUT SKIP (2) EDIT (' ┆
0x177f0…17810 20 20 54 45 4b 4e 49 53 4b 41 20 56 45 52 4b 45 4e 27 29 20 28 41 28 33 37 29 29 20 28 41 42 52 ┆ TEKNISKA VERKEN') (A(37)) (ABR┆
0x17810…1781f 4e 41 4d 4e 29 20 28 41 28 33 36 29 29 20 20 ┆NAMN) (A(36)) ┆
0x1781f…1783f (15, 0, 5) 20 20 20 20 20 20 20 20 20 20 20 20 28 27 20 27 29 20 28 41 28 39 29 29 20 28 27 56 5b 53 54 45 ┆ (' ') (A(9)) ('VÄSTE┆
0x1783f…1785f 52 5d 53 20 31 27 29 20 28 41 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆RÅS 1') (A); ┆
0x1785f…1786e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1786e…1788e (15, 0, 6) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 45 44 49 54 20 28 27 20 20 20 20 20 20 42 4f ┆ PUT SKIP EDIT (' BO┆
0x1788e…178ae 58 20 31 34 27 29 20 28 41 28 33 37 29 29 20 28 41 42 52 41 44 52 29 20 28 41 28 33 36 29 29 20 ┆X 14') (A(37)) (ABRADR) (A(36)) ┆
0x178ae…178bd 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x178bd…178dd (15, 0, 7) 20 20 20 20 20 20 20 20 20 20 20 20 28 27 20 27 29 20 28 41 28 39 29 29 20 28 27 50 4f 52 54 4f ┆ (' ') (A(9)) ('PORTO┆
0x178dd…178fd 20 42 45 54 41 4c 54 27 29 20 28 41 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ BETALT') (A); ┆
0x178fd…1790c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1790c…1792c (15, 0, 8) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 28 32 29 20 45 44 49 54 28 27 20 20 20 20 20 ┆ PUT SKIP (2) EDIT(' ┆
0x1792c…1794c 20 37 32 31 20 30 33 20 20 56 5b 53 54 45 52 5d 53 27 29 28 41 28 33 37 29 29 28 53 55 42 53 54 ┆ 721 03 VÄSTERÅS')(A(37))(SUBST┆
0x1794c…1795b 52 28 41 42 52 50 4e 52 2c 31 2c 33 29 29 20 ┆R(ABRPNR,1,3)) ┆
0x1795b…1797b (15, 0, 9) 20 20 20 20 20 20 20 20 20 20 20 20 28 41 29 20 28 27 20 27 29 20 28 41 29 20 28 53 55 42 53 54 ┆ (A) (' ') (A) (SUBST┆
0x1797b…1799b 52 28 41 42 52 50 4e 52 2c 34 2c 32 29 29 20 28 41 29 20 28 27 20 20 27 29 20 28 41 29 20 20 20 ┆R(ABRPNR,4,2)) (A) (' ') (A) ┆
0x1799b…179aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x179aa…179ca (15, 0, 10) 20 20 20 20 20 20 20 20 20 20 20 20 28 41 42 52 4f 52 54 29 20 28 41 28 32 38 29 29 20 28 27 20 ┆ (ABRORT) (A(28)) (' ┆
0x179ca…179ea 27 29 20 28 41 28 39 29 29 20 28 27 50 20 32 31 27 29 20 28 41 29 3b 20 20 20 20 20 20 20 20 20 ┆') (A(9)) ('P 21') (A); ┆
0x179ea…179f9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x179f9…17a48 (15, 0, 11) 0x20[0x4f]
[…0x2…]
0x17ae6…17b06 (15, 0, 14) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17b06…17b26 20 2f 2a 20 20 49 4e 42 45 54 41 4c 4e 49 4e 47 53 4b 4f 52 54 45 54 20 20 20 20 20 20 20 20 20 ┆ /* INBETALNINGSKORTET ┆
0x17b26…17b35 20 20 20 20 20 20 20 20 20 20 20 20 2a 2f 20 ┆ */ ┆
0x17b35…17b84 (15, 0, 15) 0x20[0x4f]
[…0x1…]
0x17bd3…17bf3 (15, 0, 17) 41 39 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 ┆A900: ┆
0x17bf3…17c13 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17c13…17c22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17c22…17c42 (15, 0, 18) 20 20 20 20 20 20 20 20 49 46 20 50 52 49 4e 54 41 42 4e 52 20 7f 3d 20 30 20 54 48 45 4e 20 53 ┆ IF PRINTABNR = 0 THEN S┆
0x17c42…17c62 56 41 52 20 3d 20 27 53 27 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆VAR = 'S'; ┆
0x17c62…17c71 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17c71…17c91 (15, 0, 19) 20 20 20 20 20 20 20 20 49 46 20 52 55 4e 44 41 44 20 7f 3d 20 27 4a 27 20 54 48 45 4e 20 47 4f ┆ IF RUNDAD = 'J' THEN GO┆
0x17c91…17cb1 20 54 4f 20 41 39 35 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 A950; ┆
0x17cb1…17cc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17cc0…17ce0 (15, 0, 20) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 28 34 29 20 45 44 49 54 20 28 27 20 27 29 20 ┆ PUT SKIP (4) EDIT (' ') ┆
0x17ce0…17d00 28 41 28 35 30 29 29 20 28 27 38 38 32 36 30 31 2d 38 27 29 20 28 41 29 3b 20 20 20 20 20 20 20 ┆(A(50)) ('882601-8') (A); ┆
0x17d00…17d0f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17d0f…17d2f (15, 0, 21) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 28 32 29 20 45 44 49 54 20 28 27 20 27 29 20 ┆ PUT SKIP (2) EDIT (' ') ┆
0x17d2f…17d4f 28 41 28 31 30 29 29 28 27 31 39 38 30 31 27 29 20 28 41 28 32 30 29 29 20 28 50 41 52 41 46 46 ┆(A(10))('19801') (A(20)) (PARAFF┆
0x17d4f…17d5e 44 29 20 28 41 29 20 28 27 20 27 29 20 20 20 ┆D) (A) (' ') ┆
0x17d5e…17d7e (15, 0, 22) 20 20 20 20 20 20 20 20 20 20 20 20 28 41 28 31 34 29 29 20 28 27 54 45 4b 4e 49 53 4b 41 20 56 ┆ (A(14)) ('TEKNISKA V┆
0x17d7e…17d9e 45 52 4b 45 4e 20 49 20 56 5b 53 54 45 52 5d 53 27 29 20 28 41 29 3b 20 20 20 20 20 20 20 20 20 ┆ERKEN I VÄSTERÅS') (A); ┆
0x17d9e…17dad 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17dad…17dcd (15, 0, 23) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 28 32 29 45 44 49 54 28 27 20 27 29 28 41 28 36 ┆ PUT SKIP(2)EDIT(' ')(A(6┆
0x17dcd…17ded 29 29 28 41 42 41 42 4e 52 29 28 50 27 39 39 39 39 39 39 39 39 27 29 28 27 2d 27 29 28 41 29 28 ┆))(ABABNR)(P'99999999')('-')(A)(┆
0x17ded…17dfc 53 54 32 4c 4f 45 50 4e 52 29 28 41 28 38 29 ┆ST2LOEPNR)(A(8)┆
0x17dfc…17e1c (15, 0, 24) 20 20 20 20 20 20 20 20 20 20 20 20 28 27 20 20 27 29 20 28 41 29 20 28 57 54 4f 54 29 20 28 50 ┆ (' ') (A) (WTOT) (P┆
0x17e1c…17e3c 27 5a 5a 5a 5a 5a 5a 5a 39 56 20 39 39 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆'ZZZZZZZ9V 99'); ┆
0x17e3c…17e4b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17e4b…17e6b (15, 0, 25) 20 20 20 20 20 20 20 20 49 46 20 41 42 49 4b 54 4f 20 3e 20 30 20 54 48 45 4e 20 47 4f 20 54 4f ┆ IF ABIKTO > 0 THEN GO TO┆
0x17e6b…17e8b 20 41 39 35 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 ┆ A950; ┆
0x17e8b…17e9a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17e9a…17eba (15, 0, 26) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 28 31 33 29 20 45 44 49 54 20 28 27 20 27 29 ┆ PUT SKIP (13) EDIT (' ')┆
0x17eba…17eda 20 28 41 28 34 31 29 29 20 28 57 54 4f 54 29 20 28 50 27 5a 5a 5a 5a 5a 5a 5a 39 56 20 39 39 27 ┆ (A(41)) (WTOT) (P'ZZZZZZZ9V 99'┆
0x17eda…17ee9 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆); ┆
0x17ee9…17f09 (15, 0, 27) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 28 36 29 20 45 44 49 54 20 28 27 20 27 29 20 ┆ PUT SKIP (6) EDIT (' ') ┆
0x17f09…17f29 28 41 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 ┆(A); ┆
0x17f29…17f38 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17f38…17f58 (15, 0, 28) 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 41 32 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GO TO A20; ┆
0x17f58…17f78 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17f78…17f87 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17f87…17fa7 (15, 0, 29) 41 39 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 20 20 20 20 ┆A950: ┆
0x17fa7…17fc7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17fc7…17fd6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x17fd6…17ff6 (15, 0, 30) 20 20 20 20 20 20 20 20 49 46 20 52 55 4e 44 41 44 20 7f 3d 20 27 4a 27 20 54 48 45 4e 20 50 55 ┆ IF RUNDAD = 'J' THEN PU┆
0x17ff6…18016 54 20 53 4b 49 50 20 28 39 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆T SKIP (9); ┆
0x18016…18025 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18025…18045 (15, 0, 31) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 28 31 33 29 20 45 44 49 54 20 28 27 20 27 29 ┆ PUT SKIP (13) EDIT (' ')┆
0x18045…18065 20 28 41 28 34 31 29 29 20 28 27 4d 20 41 20 4b 20 55 20 4c 20 45 20 52 20 41 20 44 27 29 20 28 ┆ (A(41)) ('M A K U L E R A D') (┆
0x18065…18074 41 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆A); ┆
0x18074…18094 (15, 0, 32) 20 20 20 20 20 20 20 20 49 46 20 52 55 4e 44 41 44 20 7f 3d 20 27 4a 27 20 54 48 45 4e 20 44 4f ┆ IF RUNDAD = 'J' THEN DO┆
0x18094…180b4 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 ┆; ┆
0x180b4…180c3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x180c3…180e3 (15, 0, 33) 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 ('┆
0x180e3…18103 20 27 29 20 28 41 28 38 35 29 29 20 28 27 66 6f 72 74 73 2e 72 7b 6b 6e 69 6e 67 27 29 20 28 41 ┆ ') (A(85)) ('forts.räkning') (A┆
0x18103…18112 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆); ┆
0x18112…18132 (15, 0, 34) 20 20 20 20 20 20 20 20 20 20 20 20 43 41 4c 4c 20 48 55 56 55 44 3b 20 20 20 20 20 20 20 20 20 ┆ CALL HUVUD; ┆
0x18132…18152 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18152…18161 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18161…18181 (15, 0, 35) 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 28 32 29 20 45 44 49 54 20 28 27 ┆ PUT SKIP (2) EDIT ('┆
0x18181…181a1 20 27 29 20 28 41 28 32 37 29 29 20 28 27 20 27 29 20 28 41 28 34 38 29 29 20 28 27 54 72 61 6e ┆ ') (A(27)) (' ') (A(48)) ('Tran┆
0x181a1…181b0 73 70 6f 72 74 20 20 27 29 20 28 41 29 20 20 ┆sport ') (A) ┆
0x181b0…181d0 (15, 0, 36) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 57 54 4f 54 29 20 28 50 27 5a 5a 5a 5a 5a 5a ┆ (WTOT) (P'ZZZZZZ┆
0x181d0…181f0 5a 39 56 2c 39 39 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆Z9V,99'); ┆
0x181f0…181ff 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x181ff…1821f (15, 0, 37) 20 20 20 20 20 20 20 20 20 20 20 20 52 20 3d 20 52 20 2d 20 31 3b 20 20 20 20 20 20 20 20 20 20 ┆ R = R - 1; ┆
0x1821f…1823f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1823f…1824e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1824e…1826e (15, 0, 38) 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 48 4f 50 50 45 54 3b 20 20 20 20 20 20 20 ┆ GO TO HOPPET; ┆
0x1826e…1828e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1828e…1829d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1829d…182bd (15, 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; ┆
0x182bd…182dd 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x182dd…182ec 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x182ec…1830c (15, 0, 40) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 28 36 29 20 45 44 49 54 20 28 27 20 27 29 20 ┆ PUT SKIP (6) EDIT (' ') ┆
0x1830c…1832c 28 41 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 ┆(A); ┆
0x1832c…1833b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1833b…1835b (15, 0, 41) 20 20 20 20 20 20 20 20 49 46 20 50 52 49 4e 54 41 42 4e 52 20 7f 3d 20 30 20 54 48 45 4e 20 53 ┆ IF PRINTABNR = 0 THEN S┆
0x1835b…1837b 56 41 52 20 3d 20 27 53 27 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆VAR = 'S'; ┆
0x1837b…1838a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1838a…183aa (15, 0, 42) 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 41 32 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GO TO A20; ┆
0x183aa…183ca 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x183ca…183d9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x183d9…18428 (15, 0, 43) 0x20[0x4f]
0x18428…18448 (15, 0, 44) 48 4f 50 50 45 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 ┆HOPPET: ┆
0x18448…18468 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18468…18477 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18477…18497 (15, 0, 45) 20 20 20 20 20 20 20 20 49 46 20 55 54 48 4f 50 50 20 3d 20 27 41 32 30 30 27 20 54 48 45 4e 20 ┆ IF UTHOPP = 'A200' THEN ┆
0x18497…184b7 47 4f 20 54 4f 20 41 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 ┆GO TO A200; ┆
0x184b7…184c6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x184c6…184e6 (15, 0, 46) 20 20 20 20 20 20 20 20 49 46 20 55 54 48 4f 50 50 20 3d 20 27 41 32 31 30 27 20 54 48 45 4e 20 ┆ IF UTHOPP = 'A210' THEN ┆
0x184e6…18506 47 4f 20 54 4f 20 41 32 31 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆GO TO A210; ┆
0x18506…18515 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18515…18535 (15, 0, 47) 20 20 20 20 20 20 20 20 49 46 20 55 54 48 4f 50 50 20 3d 20 27 41 32 32 30 27 20 54 48 45 4e 20 ┆ IF UTHOPP = 'A220' THEN ┆
0x18535…18555 47 4f 20 54 4f 20 41 32 32 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆GO TO A220; ┆
0x18555…18564 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18564…18584 (15, 0, 48) 20 20 20 20 20 20 20 20 49 46 20 55 54 48 4f 50 50 20 3d 20 27 41 32 33 30 27 20 54 48 45 4e 20 ┆ IF UTHOPP = 'A230' THEN ┆
0x18584…185a4 47 4f 20 54 4f 20 41 32 33 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆GO TO A230; ┆
0x185a4…185b3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x185b3…185d3 (15, 0, 49) 20 20 20 20 20 20 20 20 49 46 20 55 54 48 4f 50 50 20 3d 20 27 41 32 34 30 27 20 54 48 45 4e 20 ┆ IF UTHOPP = 'A240' THEN ┆
0x185d3…185f3 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 20 20 20 ┆GO TO A240; ┆
0x185f3…18602 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18602…18622 (15, 0, 50) 20 20 20 20 20 20 20 20 49 46 20 55 54 48 4f 50 50 20 3d 20 27 41 32 35 30 27 20 54 48 45 4e 20 ┆ IF UTHOPP = 'A250' THEN ┆
0x18622…18642 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 20 20 20 20 20 20 ┆GO TO A250; ┆
0x18642…18651 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18651…18671 (15, 0, 51) 20 20 20 20 20 20 20 20 49 46 20 55 54 48 4f 50 50 20 3d 20 27 41 33 30 30 27 20 54 48 45 4e 20 ┆ IF UTHOPP = 'A300' THEN ┆
0x18671…18691 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 20 20 20 20 20 20 ┆GO TO A300; ┆
0x18691…186a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x186a0…186c0 (15, 0, 52) 20 20 20 20 20 20 20 20 49 46 20 55 54 48 4f 50 50 20 3d 20 27 41 33 36 30 27 20 54 48 45 4e 20 ┆ IF UTHOPP = 'A360' THEN ┆
0x186c0…186e0 47 4f 20 54 4f 20 41 33 36 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆GO TO A360; ┆
0x186e0…186ef 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x186ef…1870f (15, 0, 53) 20 20 20 20 20 20 20 20 49 46 20 55 54 48 4f 50 50 20 3d 20 27 41 34 30 30 27 20 54 48 45 4e 20 ┆ IF UTHOPP = 'A400' THEN ┆
0x1870f…1872f 47 4f 20 54 4f 20 41 34 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆GO TO A400; ┆
0x1872f…1873e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1873e…1875e (15, 0, 54) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 4c 49 53 54 20 28 27 55 54 48 4f 50 50 53 46 ┆ PUT SKIP LIST ('UTHOPPSF┆
0x1875e…1877e 45 4c 20 49 54 4c 4c 20 48 4f 50 50 45 54 20 27 2c 55 54 48 4f 50 50 29 3b 20 20 20 20 20 20 20 ┆EL ITLL HOPPET ',UTHOPP); ┆
0x1877e…1878d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1878d…187dc (15, 0, 55) 0x20[0x4f]
[…0x2…]
0x1887a…1889a (15, 0, 58) 46 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 20 ┆F00: ┆
0x1889a…188ba 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x188ba…188c9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x188c9…188e9 (15, 0, 59) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 4c 49 53 54 20 28 27 4c 5b 53 46 45 4c 20 49 ┆ PUT SKIP LIST ('LÄSFEL I┆
0x188e9…18909 20 41 42 4f 4e 4e 52 45 47 20 27 2c 53 54 32 41 42 4e 52 29 3b 20 20 20 20 20 20 20 20 20 20 20 ┆ ABONNREG ',ST2ABNR); ┆
0x18909…18918 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18918…18938 (15, 0, 60) 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 5a 39 39 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GO TO Z99; ┆
0x18938…18958 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18958…18967 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18967…189b6 (15, 0, 61) 0x20[0x4f]
0x189b6…189d6 (15, 0, 62) 46 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 ┆F10: ┆
0x189d6…189f6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x189f6…18a05 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18a05…18a25 (15, 0, 63) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 4c 49 53 54 20 28 27 50 4f 53 54 45 4e 20 53 ┆ PUT SKIP LIST ('POSTEN S┆
0x18a25…18a45 41 4b 4e 41 53 20 49 20 41 42 4f 4e 4e 52 45 47 20 27 2c 53 54 32 41 42 4e 52 29 3b 20 20 20 20 ┆AKNAS I ABONNREG ',ST2ABNR); ┆
0x18a45…18a54 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18a54…18a74 (15, 0, 64) 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 5a 39 39 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GO TO Z99; ┆
0x18a74…18a94 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18a94…18aa3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18aa3…18ac3 (15, 0, 65) 47 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 20 ┆G00: ┆
0x18ac3…18ae3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18ae3…18af2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18af2…18b12 (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 4c 5b 53 46 45 4c 20 49 ┆ PUT SKIP LIST ('LÄSFEL I┆
0x18b12…18b32 20 53 54 41 54 52 45 47 31 20 27 2c 53 54 32 41 42 4e 52 29 3b 20 20 20 20 20 20 20 20 20 20 20 ┆ STATREG1 ',ST2ABNR); ┆
0x18b32…18b41 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18b41…18b61 (15, 0, 67) 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 5a 39 39 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GO TO Z99; ┆
0x18b61…18b81 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18b81…18b90 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18b90…18bb0 (15, 0, 68) 47 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 ┆G10: ┆
0x18bb0…18bd0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18bd0…18bdf 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18bdf…18bff (15, 0, 69) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 4c 49 53 54 20 28 27 50 4f 53 54 45 4e 20 53 ┆ PUT SKIP LIST ('POSTEN S┆
0x18bff…18c1f 41 4b 4e 41 53 20 49 20 53 54 41 54 52 45 47 31 20 27 2c 53 54 32 41 42 4e 52 29 3b 20 20 20 20 ┆AKNAS I STATREG1 ',ST2ABNR); ┆
0x18c1f…18c2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18c2e…18c4e (15, 0, 70) 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 5a 39 39 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GO TO Z99; ┆
0x18c4e…18c6e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18c6e…18c7d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18c7d…18c9d (15, 0, 71) 48 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 20 ┆H00: ┆
0x18c9d…18cbd 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18cbd…18ccc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18ccc…18cec (15, 0, 72) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 4c 49 53 54 20 28 27 4c 5b 53 46 45 4c 20 49 ┆ PUT SKIP LIST ('LÄSFEL I┆
0x18cec…18d0c 20 53 54 32 52 45 47 20 20 27 2c 4f 4e 43 4f 44 45 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ST2REG ',ONCODE); ┆
0x18d0c…18d1b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18d1b…18d3b (15, 0, 73) 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 5a 39 39 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GO TO Z99; ┆
0x18d3b…18d5b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18d5b…18d6a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18d6a…18db9 (15, 0, 74) 0x20[0x4f]
0x18db9…18dd9 (15, 0, 75) 48 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 ┆H10: ┆
0x18dd9…18df9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18df9…18e08 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18e08…18e28 (15, 0, 76) 20 20 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 20 28 44 29 20 45 44 49 54 20 28 27 20 27 29 20 ┆ PUT FILE (D) EDIT (' ') ┆
0x18e28…18e48 28 41 28 34 37 29 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆(A(47)) ┆
0x18e48…18e57 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18e57…18e77 (15, 0, 77) 20 20 20 20 20 20 20 20 20 20 20 20 28 27 53 5b 54 54 20 41 34 42 20 31 20 65 78 20 49 20 50 52 ┆ ('SÄTT A4B 1 ex I PR┆
0x18e77…18e97 49 4e 54 45 52 4e 27 29 20 28 41 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆INTERN') (A); ┆
0x18e97…18ea6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18ea6…18ec6 (15, 0, 78) 20 20 20 20 20 20 20 20 43 41 4c 4c 20 4f 55 54 50 55 54 20 28 31 2c 36 29 3b 20 20 20 20 20 20 ┆ CALL OUTPUT (1,6); ┆
0x18ec6…18ee6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18ee6…18ef5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18ef5…18f15 (15, 0, 79) 20 20 20 20 20 20 20 20 47 45 54 20 53 4b 49 50 20 4c 49 53 54 20 28 53 54 4f 50 50 29 3b 20 20 ┆ GET SKIP LIST (STOPP); ┆
0x18f15…18f35 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18f35…18f44 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x18f44…18f64 (15, 0, 80) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 28 34 29 20 45 44 49 54 20 28 27 20 20 20 20 ┆ PUT SKIP (4) EDIT (' ┆
0x18f64…18f84 41 56 53 54 5b 4d 4e 49 4e 47 53 42 4c 41 44 20 66 7c 72 20 48 5c 47 53 50 5b 4e 4e 49 4e 47 53 ┆AVSTÄMNINGSBLAD för HÖGSPÄNNINGS┆
0x18f84…18f93 44 45 42 49 54 45 52 49 4e 47 20 20 20 20 27 ┆DEBITERING '┆
0x18f93…18fe2 (15, 0, 81) 0x00[0x4f]
0x18fe2…19002 (16, 0, 0) 20 20 20 20 20 20 20 20 20 20 20 20 28 41 29 20 28 27 6b 76 61 72 74 61 6c 3a 20 27 29 20 28 41 ┆ (A) ('kvartal: ') (A┆
0x19002…19022 29 20 28 50 41 52 41 44 45 42 50 45 52 29 20 28 41 29 20 28 27 20 20 20 20 20 20 20 20 44 41 54 ┆) (PARADEBPER) (A) (' DAT┆
0x19022…19031 55 4d 3a 20 27 29 20 28 41 29 20 20 20 20 20 ┆UM: ') (A) ┆
0x19031…19051 (16, 0, 1) 20 20 20 20 20 20 20 20 20 20 20 20 28 50 41 52 41 44 45 42 44 41 54 29 20 28 50 27 5a 5a 5a 5a ┆ (PARADEBDAT) (P'ZZZZ┆
0x19051…19071 5a 39 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆Z9'); ┆
0x19071…19080 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19080…190a0 (16, 0, 2) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 28 34 29 20 45 44 49 54 20 28 27 54 41 52 49 ┆ PUT SKIP (4) EDIT ('TARI┆
0x190a0…190c0 46 46 27 29 20 28 41 28 33 31 29 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆FF') (A(31)) ┆
0x190c0…190cf 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x190cf…190ef (16, 0, 3) 20 20 20 20 20 20 20 20 20 20 20 20 28 27 46 5c 52 42 52 55 4b 4e 49 4e 47 20 20 20 20 20 20 20 ┆ ('FÖRBRUKNING ┆
0x190ef…1910f 20 20 46 5c 52 42 52 2e 41 56 47 20 20 20 20 20 46 41 53 54 20 41 56 47 20 20 20 20 20 20 20 53 ┆ FÖRBR.AVG FAST AVG S┆
0x1910f…1911e 4b 41 54 54 34 20 20 20 20 20 20 20 27 29 20 ┆KATT4 ') ┆
0x1911e…1913e (16, 0, 4) 20 20 20 20 20 20 20 20 20 20 20 20 28 41 29 20 28 27 53 4b 41 54 54 33 20 20 20 20 20 52 55 4e ┆ (A) ('SKATT3 RUN┆
0x1913e…1915e 44 2e 42 45 4c 20 20 20 20 20 20 20 20 54 4f 54 41 4c 20 20 20 20 41 4e 54 41 4c 27 29 20 28 41 ┆D.BEL TOTAL ANTAL') (A┆
0x1915e…1916d 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆); ┆
0x1916d…1918d (16, 0, 5) 20 20 20 20 20 20 20 20 44 4f 20 54 20 3d 20 31 20 54 4f 20 32 3b 20 20 20 20 20 20 20 20 20 20 ┆ DO T = 1 TO 2; ┆
0x1918d…191ad 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x191ad…191bc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x191bc…191dc (16, 0, 6) 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 28 32 29 20 45 44 49 54 20 28 57 ┆ PUT SKIP (2) EDIT (W┆
0x191dc…191fc 54 41 58 41 20 28 54 29 29 20 28 41 28 33 32 29 29 20 28 57 46 42 52 20 28 54 29 29 20 28 50 27 ┆TAXA (T)) (A(32)) (WFBR (T)) (P'┆
0x191fc…1920b 5a 5a 5a 5a 5a 5a 5a 5a 5a 39 27 29 20 20 20 ┆ZZZZZZZZZ9') ┆
0x1920b…1922b (16, 0, 7) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 27 20 27 29 20 28 41 28 35 29 29 20 20 20 20 ┆ (' ') (A(5)) ┆
0x1922b…1924b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1924b…1925a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1925a…1927a (16, 0, 8) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 27 20 20 27 29 20 28 41 29 20 28 57 46 42 52 ┆ (' ') (A) (WFBR┆
0x1927a…1929a 41 56 47 20 28 54 29 29 20 28 50 27 2d 2d 2d 2d 2d 2d 2d 39 56 3a 39 39 27 29 20 20 20 20 20 20 ┆AVG (T)) (P'-------9V:99') ┆
0x1929a…192a9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x192a9…192c9 (16, 0, 9) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 27 20 20 27 29 20 28 41 29 20 28 57 46 41 53 ┆ (' ') (A) (WFAS┆
0x192c9…192e9 54 41 56 47 20 28 54 29 29 20 28 50 27 2d 2d 2d 2d 2d 2d 2d 39 56 3a 39 39 27 29 20 20 20 20 20 ┆TAVG (T)) (P'-------9V:99') ┆
0x192e9…192f8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x192f8…19318 (16, 0, 10) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 27 20 20 27 29 20 28 41 29 20 28 57 53 4b 41 ┆ (' ') (A) (WSKA┆
0x19318…19338 54 54 34 20 28 54 29 29 20 28 50 27 2d 2d 2d 2d 2d 2d 2d 39 56 3a 39 39 27 29 20 20 20 20 20 20 ┆TT4 (T)) (P'-------9V:99') ┆
0x19338…19347 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19347…19367 (16, 0, 11) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 27 20 20 27 29 20 28 41 29 20 28 57 53 4b 41 ┆ (' ') (A) (WSKA┆
0x19367…19387 54 54 33 20 28 54 29 29 20 28 50 27 2d 2d 2d 2d 2d 2d 2d 39 56 3a 39 39 27 29 20 20 20 20 20 20 ┆TT3 (T)) (P'-------9V:99') ┆
0x19387…19396 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19396…193b6 (16, 0, 12) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 27 20 20 27 29 20 28 41 29 20 28 57 53 4b 4f ┆ (' ') (A) (WSKO┆
0x193b6…193d6 52 45 53 55 54 4a 20 28 54 29 29 20 28 50 27 2d 2d 2d 2d 2d 2d 2d 39 56 3a 39 39 27 29 3b 20 20 ┆RESUTJ (T)) (P'-------9V:99'); ┆
0x193d6…193e5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x193e5…19405 (16, 0, 13) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 53 41 4d 54 4f 54 20 28 54 29 20 3d 20 28 57 ┆ WSAMTOT (T) = (W┆
0x19405…19425 46 42 52 41 56 47 20 28 54 29 20 2b 20 57 46 41 53 54 41 56 47 20 28 54 29 20 2b 20 57 53 4b 41 ┆FBRAVG (T) + WFASTAVG (T) + WSKA┆
0x19425…19434 54 54 34 20 28 54 29 20 2b 20 20 20 20 20 20 ┆TT4 (T) + ┆
0x19434…19454 (16, 0, 14) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 53 4b 41 54 54 33 20 28 54 29 20 2b 20 57 53 ┆ WSKATT3 (T) + WS┆
0x19454…19474 4b 4f 52 45 53 55 54 4a 20 28 54 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆KORESUTJ (T)); ┆
0x19474…19483 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19483…194a3 (16, 0, 15) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 45 44 49 54 20 28 27 20 20 27 29 20 ┆ PUT EDIT (' ') ┆
0x194a3…194c3 28 41 29 20 28 57 53 41 4d 54 4f 54 20 28 54 29 29 20 28 50 27 2d 2d 2d 2d 2d 2d 2d 39 56 3a 39 ┆(A) (WSAMTOT (T)) (P'-------9V:9┆
0x194c3…194d2 39 27 29 20 20 20 20 20 20 20 20 20 20 20 20 ┆9') ┆
0x194d2…194f2 (16, 0, 16) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 27 20 20 27 29 20 28 41 29 20 28 57 41 42 41 ┆ (' ') (A) (WABA┆
0x194f2…19512 4e 54 20 28 54 29 29 20 28 50 27 5a 5a 5a 5a 39 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆NT (T)) (P'ZZZZ9'); ┆
0x19512…19521 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19521…19541 (16, 0, 17) 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; ┆
0x19541…19561 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19561…19570 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19570…19590 (16, 0, 18) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 28 32 29 20 45 44 49 54 20 28 27 53 55 4d 4d 41 ┆ PUT SKIP(2) EDIT ('SUMMA┆
0x19590…195b0 27 29 20 28 41 28 33 32 29 29 20 28 57 46 42 52 20 28 31 29 20 2b 20 57 46 42 52 20 28 32 29 29 ┆') (A(32)) (WFBR (1) + WFBR (2))┆
0x195b0…195bf 28 50 27 5a 5a 5a 5a 5a 5a 5a 5a 5a 39 27 29 ┆(P'ZZZZZZZZZ9')┆
0x195bf…195df (16, 0, 19) 20 20 20 20 20 20 20 20 20 20 20 20 28 27 20 27 29 20 28 41 28 37 29 29 20 28 57 46 42 52 41 56 ┆ (' ') (A(7)) (WFBRAV┆
0x195df…195ff 47 20 28 31 29 20 2b 20 57 46 42 52 41 56 47 20 28 32 29 29 20 28 50 27 2d 2d 2d 2d 2d 2d 2d 39 ┆G (1) + WFBRAVG (2)) (P'-------9┆
0x195ff…1960e 56 3a 39 39 27 29 20 20 20 20 20 20 20 20 20 ┆V:99') ┆
0x1960e…1962e (16, 0, 20) 20 20 20 20 20 20 20 20 20 20 20 20 28 27 20 27 29 20 28 41 28 32 29 29 20 28 57 46 41 53 54 41 ┆ (' ') (A(2)) (WFASTA┆
0x1962e…1964e 56 47 20 28 31 29 20 2b 20 57 46 41 53 54 41 56 47 20 28 32 29 29 20 28 50 27 2d 2d 2d 2d 2d 2d ┆VG (1) + WFASTAVG (2)) (P'------┆
0x1964e…1965d 2d 39 56 3a 39 39 27 29 20 20 20 20 20 20 20 ┆-9V:99') ┆
0x1965d…1967d (16, 0, 21) 20 20 20 20 20 20 20 20 20 20 20 20 28 27 20 27 29 20 28 41 28 32 29 29 20 28 57 53 4b 41 54 54 ┆ (' ') (A(2)) (WSKATT┆
0x1967d…1969d 34 20 28 31 29 20 2b 20 57 53 4b 41 54 54 34 20 28 32 29 29 20 28 50 27 2d 2d 2d 2d 2d 2d 2d 39 ┆4 (1) + WSKATT4 (2)) (P'-------9┆
0x1969d…196ac 56 3a 39 39 27 29 20 20 20 20 20 20 20 20 20 ┆V:99') ┆
0x196ac…196cc (16, 0, 22) 20 20 20 20 20 20 20 20 20 20 20 20 28 27 20 27 29 20 28 41 28 32 29 29 20 28 57 53 4b 41 54 54 ┆ (' ') (A(2)) (WSKATT┆
0x196cc…196ec 33 20 28 31 29 20 2b 20 57 53 4b 41 54 54 33 20 28 32 29 29 20 28 50 27 2d 2d 2d 2d 2d 2d 2d 39 ┆3 (1) + WSKATT3 (2)) (P'-------9┆
0x196ec…196fb 56 3a 39 39 27 29 20 20 20 20 20 20 20 20 20 ┆V:99') ┆
0x196fb…1971b (16, 0, 23) 20 20 20 20 20 20 20 20 20 20 20 20 28 27 20 27 29 20 28 41 28 32 29 29 20 28 57 53 4b 4f 52 45 ┆ (' ') (A(2)) (WSKORE┆
0x1971b…1973b 53 55 54 4a 20 28 31 29 20 2b 20 57 53 4b 4f 52 45 53 55 54 4a 20 28 32 29 29 20 28 50 27 2d 2d ┆SUTJ (1) + WSKORESUTJ (2)) (P'--┆
0x1973b…1974a 2d 2d 2d 2d 2d 39 56 3a 39 39 27 29 20 20 20 ┆-----9V:99') ┆
0x1974a…1976a (16, 0, 24) 20 20 20 20 20 20 20 20 20 20 20 20 28 27 20 27 29 20 28 41 28 32 29 29 20 28 57 53 41 4d 54 4f ┆ (' ') (A(2)) (WSAMTO┆
0x1976a…1978a 54 20 28 31 29 20 2b 20 57 53 41 4d 54 4f 54 20 28 32 29 29 20 28 50 27 2d 2d 2d 2d 2d 2d 2d 39 ┆T (1) + WSAMTOT (2)) (P'-------9┆
0x1978a…19799 56 3a 39 39 27 29 20 20 20 20 20 20 20 20 20 ┆V:99') ┆
0x19799…197b9 (16, 0, 25) 20 20 20 20 20 20 20 20 20 20 20 20 28 27 20 20 27 29 20 28 41 29 20 28 57 41 42 41 4e 54 20 28 ┆ (' ') (A) (WABANT (┆
0x197b9…197d9 31 29 20 2b 20 57 41 42 41 4e 54 20 28 32 29 29 20 28 50 27 5a 5a 5a 5a 39 27 29 3b 20 20 20 20 ┆1) + WABANT (2)) (P'ZZZZ9'); ┆
0x197d9…197e8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x197e8…19808 (16, 0, 26) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 28 34 29 20 45 44 49 54 20 28 27 46 5c 52 44 ┆ PUT SKIP (4) EDIT ('FÖRD┆
0x19808…19828 45 4c 4e 49 4e 47 20 41 56 20 46 5c 52 42 52 55 4b 4e 49 4e 47 41 52 20 50 5d 20 53 4b 41 54 54 ┆ELNING AV FÖRBRUKNINGAR PÅ SKATT┆
0x19828…19837 45 53 41 54 53 45 52 27 29 20 28 41 29 3b 20 ┆ESATSER') (A); ┆
0x19837…19857 (16, 0, 27) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 28 32 29 20 45 44 49 54 20 28 27 53 4b 41 54 ┆ PUT SKIP (2) EDIT ('SKAT┆
0x19857…19877 54 20 34 20 7c 72 65 2f 6b 57 68 20 27 29 20 28 41 28 33 32 29 29 20 20 20 20 20 20 20 20 20 20 ┆T 4 öre/kWh ') (A(32)) ┆
0x19877…19886 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19886…198a6 (16, 0, 28) 20 20 20 20 20 20 20 20 20 20 20 20 28 57 53 4b 34 46 42 52 20 28 31 29 20 2b 20 57 53 4b 34 46 ┆ (WSK4FBR (1) + WSK4F┆
0x198a6…198c6 42 52 20 28 32 29 29 20 28 50 27 2d 2d 2d 2d 2d 2d 2d 2d 2d 39 27 29 20 28 27 20 20 6b 57 68 27 ┆BR (2)) (P'---------9') (' kWh'┆
0x198c6…198d5 29 20 28 41 29 3b 20 20 20 20 20 20 20 20 20 ┆) (A); ┆
0x198d5…198f5 (16, 0, 29) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 28 32 29 20 45 44 49 54 20 28 27 53 4b 41 54 ┆ PUT SKIP (2) EDIT ('SKAT┆
0x198f5…19915 54 20 33 20 7c 72 65 2f 6b 57 68 20 27 29 20 28 41 28 33 32 29 29 20 20 20 20 20 20 20 20 20 20 ┆T 3 öre/kWh ') (A(32)) ┆
0x19915…19924 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19924…19944 (16, 0, 30) 20 20 20 20 20 20 20 20 20 20 20 20 28 57 53 4b 33 46 42 52 20 28 31 29 20 2b 20 57 53 4b 33 46 ┆ (WSK3FBR (1) + WSK3F┆
0x19944…19964 42 52 20 28 32 29 29 20 28 50 27 2d 2d 2d 2d 2d 2d 2d 2d 2d 39 27 29 20 28 27 20 20 6b 57 68 27 ┆BR (2)) (P'---------9') (' kWh'┆
0x19964…19973 29 20 28 41 29 3b 20 20 20 20 20 20 20 20 20 ┆) (A); ┆
0x19973…19993 (16, 0, 31) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 28 32 29 20 45 44 49 54 20 28 27 53 4b 41 54 ┆ PUT SKIP (2) EDIT ('SKAT┆
0x19993…199b3 54 45 46 52 49 20 27 29 20 28 41 28 33 32 29 29 20 28 57 53 4b 30 46 42 52 20 28 31 29 20 2b 20 ┆TEFRI ') (A(32)) (WSK0FBR (1) + ┆
0x199b3…199c2 57 53 4b 30 46 42 52 20 28 32 29 29 20 20 20 ┆WSK0FBR (2)) ┆
0x199c2…199e2 (16, 0, 32) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 50 27 2d 2d 2d 2d 2d 2d 2d 2d 2d 39 27 29 20 ┆ (P'---------9') ┆
0x199e2…19a02 28 27 20 20 6b 57 68 27 29 20 28 41 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆(' kWh') (A); ┆
0x19a02…19a11 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19a11…19a31 (16, 0, 33) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 28 32 29 20 45 44 49 54 20 28 27 53 55 4d 4d ┆ PUT SKIP (2) EDIT ('SUMM┆
0x19a31…19a51 41 20 66 7c 72 62 72 75 6b 6e 69 6e 67 20 27 29 20 28 41 28 33 32 29 29 20 20 20 20 20 20 20 20 ┆A förbrukning ') (A(32)) ┆
0x19a51…19a60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19a60…19a80 (16, 0, 34) 20 20 20 20 20 20 20 20 20 20 20 20 28 57 53 4b 34 46 42 52 20 28 31 29 20 2b 20 57 53 4b 34 46 ┆ (WSK4FBR (1) + WSK4F┆
0x19a80…19aa0 42 52 20 28 32 29 20 2b 20 57 53 4b 33 46 42 52 20 28 31 29 20 2b 20 57 53 4b 33 46 42 52 20 28 ┆BR (2) + WSK3FBR (1) + WSK3FBR (┆
0x19aa0…19aaf 32 29 20 2b 20 57 53 4b 30 46 42 52 20 28 31 ┆2) + WSK0FBR (1┆
0x19aaf…19acf (16, 0, 35) 20 20 20 20 20 20 20 20 20 20 20 20 2b 20 57 53 4b 30 46 42 52 20 28 32 29 29 20 28 50 27 2d 2d ┆ + WSK0FBR (2)) (P'--┆
0x19acf…19aef 2d 2d 2d 2d 2d 2d 2d 39 27 29 20 28 27 20 20 6b 57 68 27 29 20 28 41 29 3b 20 20 20 20 20 20 20 ┆-------9') (' kWh') (A); ┆
0x19aef…19afe 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19afe…19b1e (16, 0, 36) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 28 32 35 29 20 45 44 49 54 20 28 27 20 27 29 ┆ PUT SKIP (25) EDIT (' ')┆
0x19b1e…19b3e 20 28 41 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 ┆ (A); ┆
0x19b3e…19b4d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19b4d…19b9c (16, 0, 37) 0x20[0x4f]
[…0x1…]
0x19beb…19c0b (16, 0, 39) 5a 39 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 ┆Z99: ┆
0x19c0b…19c2b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19c2b…19c3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19c3a…19c5a (16, 0, 40) 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 20 20 20 20 ┆ END; ┆
0x19c5a…19c7a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19c7a…19c89 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19c89…19ca9 (16, 0, 41) 20 20 20 20 20 20 20 20 55 4e 53 50 45 43 20 28 53 54 31 29 20 3d 20 50 31 3b 20 20 20 20 20 20 ┆ UNSPEC (ST1) = P1; ┆
0x19ca9…19cc9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19cc9…19cd8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19cd8…19cf8 (16, 0, 42) 20 20 20 20 20 20 20 20 45 4d 53 54 31 20 3d 20 53 54 31 45 4d 53 54 3b 20 20 20 20 20 20 20 20 ┆ EMST1 = ST1EMST; ┆
0x19cf8…19d18 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19d18…19d27 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19d27…19d47 (16, 0, 43) 20 20 20 20 20 20 20 20 55 4e 53 50 45 43 20 28 53 54 31 29 20 3d 20 50 32 3b 20 20 20 20 20 20 ┆ UNSPEC (ST1) = P2; ┆
0x19d47…19d67 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19d67…19d76 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19d76…19d96 (16, 0, 44) 20 20 20 20 20 20 20 20 45 4d 53 54 32 20 3d 20 53 54 31 45 4d 53 54 3b 20 20 20 20 20 20 20 20 ┆ EMST2 = ST1EMST; ┆
0x19d96…19db6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19db6…19dc5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19dc5…19de5 (16, 0, 45) 20 20 20 20 20 20 20 20 45 46 42 52 20 3d 20 53 54 31 45 46 42 52 3b 20 20 20 20 20 20 20 20 20 ┆ EFBR = ST1EFBR; ┆
0x19de5…19e05 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19e05…19e14 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19e14…19e34 (16, 0, 46) 20 20 20 20 20 20 20 20 43 41 4c 4c 20 45 4d 53 54 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ CALL EMST; ┆
0x19e34…19e54 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19e54…19e63 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19e63…19e83 (16, 0, 47) 20 20 20 20 20 20 20 20 52 20 3d 20 20 52 2d 20 31 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ R = R- 1; ┆
0x19e83…19ea3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19ea3…19eb2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19eb2…19ed2 (16, 0, 48) 41 32 32 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 ┆A220: ┆
0x19ed2…19ef2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19ef2…19f01 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19f01…19f21 (16, 0, 49) 20 20 20 20 20 20 20 20 49 46 20 52 20 3c 20 31 20 54 48 45 4e 20 44 4f 3b 20 20 20 20 20 20 20 ┆ IF R < 1 THEN DO; ┆
0x19f21…19f41 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19f41…19f50 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19f50…19f70 (16, 0, 50) 20 20 20 20 20 20 20 20 20 20 20 20 55 54 48 4f 50 50 20 3d 20 28 27 41 32 32 30 27 29 3b 20 20 ┆ UTHOPP = ('A220'); ┆
0x19f70…19f90 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19f90…19f9f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19f9f…19fbf (16, 0, 51) 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 41 35 30 30 3b 20 20 20 20 20 20 20 20 20 ┆ GO TO A500; ┆
0x19fbf…19fdf 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19fdf…19fee 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19fee…1a00e (16, 0, 52) 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; ┆
0x1a00e…1a02e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1a02e…1a03d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1a03d…1a05d (16, 0, 53) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 45 44 49 54 20 28 27 20 20 20 20 20 20 20 20 ┆ PUT SKIP EDIT (' ┆
0x1a05d…1a07d 20 20 20 20 20 20 28 45 6e 65 72 67 69 20 6b 6f 6e 73 74 2e 20 20 20 27 29 28 41 29 28 41 42 45 ┆ (Energi konst. ')(A)(ABE┆
0x1a07d…1a08c 4b 4e 53 54 29 28 50 27 5a 5a 5a 39 27 29 20 ┆KNST)(P'ZZZ9') ┆
0x1a08c…1a0ac (16, 0, 54) 20 20 20 20 20 20 20 20 20 20 20 20 28 27 29 27 29 20 28 41 29 20 28 27 20 27 29 20 28 41 28 34 ┆ (')') (A) (' ') (A(4┆
0x1a0ac…1a0cc 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆)); ┆
0x1a0cc…1a0db 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1a0db…1a0fb (16, 0, 55) 20 20 20 20 20 20 20 20 44 53 44 41 54 55 4d 31 20 3d 20 53 54 31 41 56 4c 44 41 54 3b 20 20 20 ┆ DSDATUM1 = ST1AVLDAT; ┆
0x1a0fb…1a11b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1a11b…1a12a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1a12a…1a14a (16, 0, 56) 20 20 20 20 20 20 20 20 55 4e 53 50 45 43 20 28 53 54 31 29 20 3d 20 50 33 3b 20 20 20 20 20 20 ┆ UNSPEC (ST1) = P3; ┆
0x1a14a…1a16a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1a16a…1a179 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1a179…1a199 (16, 0, 57) 20 20 20 20 20 20 20 20 44 53 44 41 54 55 4d 32 20 3d 20 53 54 31 41 56 4c 44 41 54 3b 20 20 20 ┆ DSDATUM2 = ST1AVLDAT; ┆
0x1a199…1a1b9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1a1b9…1a1c8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1a1c8…1a1e8 (16, 0, 58) 20 20 20 20 20 20 20 20 43 41 4c 4c 20 44 41 54 53 4b 52 49 56 3b 20 20 20 20 20 20 20 20 20 20 ┆ CALL DATSKRIV; ┆
0x1a1e8…1a208 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1a208…1a217 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1a217…1a237 (16, 0, 59) 20 20 20 20 20 20 20 20 55 4e 53 50 45 43 20 28 53 54 31 29 20 3d 20 50 32 3b 20 20 20 20 20 20 ┆ UNSPEC (ST1) = P2; ┆
0x1a237…1a257 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1a257…1a266 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1a266…1a286 (16, 0, 60) 20 20 20 20 20 20 20 20 45 4d 53 54 31 20 3d 20 53 54 31 45 4d 53 54 3b 20 20 20 20 20 20 20 20 ┆ EMST1 = ST1EMST; ┆
0x1a286…1a2a6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1a2a6…1a2b5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1a2b5…1a2d5 (16, 0, 61) 20 20 20 20 20 20 20 20 55 4e 53 50 45 43 20 28 53 54 31 29 20 3d 20 50 33 3b 20 20 20 20 20 20 ┆ UNSPEC (ST1) = P3; ┆
0x1a2d5…1a2f5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1a2f5…1a304 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1a304…1a324 (16, 0, 62) 20 20 20 20 20 20 20 20 45 4d 53 54 32 20 3d 20 53 54 31 45 4d 53 54 3b 20 20 20 20 20 20 20 20 ┆ EMST2 = ST1EMST; ┆
0x1a324…1a344 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1a344…1a353 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1a353…1a373 (16, 0, 63) 20 20 20 20 20 20 20 20 45 46 42 52 20 3d 20 53 54 31 45 46 42 52 3b 20 20 20 20 20 20 20 20 20 ┆ EFBR = ST1EFBR; ┆
0x1a373…1a393 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1a393…1a3a2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1a3a2…1a3c2 (16, 0, 64) 20 20 20 20 20 20 20 20 43 41 4c 4c 20 45 4d 53 54 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ CALL EMST; ┆
0x1a3c2…1a3e2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1a3e2…1a3f1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1a3f1…1a411 (16, 0, 65) 20 20 20 20 20 20 20 20 52 20 3d 20 52 20 2d 20 31 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ R = R - 1; ┆
0x1a411…1a431 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1a431…1a440 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1a440…1a460 (16, 0, 66) 41 32 33 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 ┆A230: ┆
0x1a460…1a480 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1a480…1a48f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1a48f…1a4af (16, 0, 67) 20 20 20 20 20 20 20 20 49 46 20 52 20 3c 20 31 20 54 48 45 4e 20 44 4f 3b 20 20 20 20 20 20 20 ┆ IF R < 1 THEN DO; ┆
0x1a4af…1a4cf 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1a4cf…1a4de 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1a4de…1a4fe (16, 0, 68) 20 20 20 20 20 20 20 20 20 20 20 20 55 54 48 4f 50 50 20 3d 20 28 27 41 32 33 30 27 29 3b 20 20 ┆ UTHOPP = ('A230'); ┆
0x1a4fe…1a51e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1a51e…1a52d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1a52d…1a54d (16, 0, 69) 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 41 35 30 30 3b 20 20 20 20 20 20 20 20 20 ┆ GO TO A500; ┆
0x1a54d…1a56d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1a56d…1a57c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1a57c…1a59c (16, 0, 70) 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; ┆
0x1a59c…1a5bc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1a5bc…1a5cb 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1a5cb…1a5eb (16, 0, 71) 20 20 20 20 20 20 20 20 55 4e 53 50 45 43 20 28 53 54 31 29 20 3d 20 50 31 3b 20 20 20 20 20 20 ┆ UNSPEC (ST1) = P1; ┆
0x1a5eb…1a60b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1a60b…1a61a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1a61a…1a63a (16, 0, 72) 20 20 20 20 20 20 20 20 57 45 46 42 52 20 3d 20 53 54 31 45 46 42 52 3b 20 20 20 20 20 20 20 20 ┆ WEFBR = ST1EFBR; ┆
0x1a63a…1a65a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1a65a…1a669 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1a669…1a689 (16, 0, 73) 20 20 20 20 20 20 20 20 55 4e 53 50 45 43 20 28 53 54 31 29 20 3d 20 50 32 3b 20 20 20 20 20 20 ┆ UNSPEC (ST1) = P2; ┆
0x1a689…1a6a9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1a6a9…1a6b8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1a6b8…1a6d8 (16, 0, 74) 20 20 20 20 20 20 20 20 57 45 46 42 52 20 3d 20 57 45 46 42 52 20 2b 20 53 54 31 45 46 42 52 3b ┆ WEFBR = WEFBR + ST1EFBR;┆
0x1a6d8…1a6f8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1a6f8…1a707 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1a707…1a727 (16, 0, 75) 20 20 20 20 20 20 20 20 55 4e 53 50 45 43 20 28 53 54 31 29 20 3d 20 50 33 3b 20 20 20 20 20 20 ┆ UNSPEC (ST1) = P3; ┆
0x1a727…1a747 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1a747…1a756 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1a756…1a776 (16, 0, 76) 20 20 20 20 20 20 20 20 57 45 46 42 52 20 3d 20 57 45 46 42 52 20 2b 20 53 54 31 45 46 42 52 3b ┆ WEFBR = WEFBR + ST1EFBR;┆
0x1a776…1a796 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1a796…1a7a5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1a7a5…1a7c5 (16, 0, 77) 20 20 20 20 20 20 20 20 49 46 20 41 42 45 54 52 41 46 4f 20 3d 20 27 4a 27 20 54 48 45 4e 20 47 ┆ IF ABETRAFO = 'J' THEN G┆
0x1a7c5…1a7e5 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 20 20 20 20 20 20 20 ┆O TO A250; ┆
0x1a7e5…1a7f4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1a7f4…1a814 (16, 0, 78) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 45 44 49 54 20 28 27 20 20 20 20 20 20 53 75 ┆ PUT SKIP EDIT (' Su┆
0x1a814…1a834 6d 6d 61 20 75 70 70 6d 7b 74 74 20 65 6e 65 72 67 69 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆mma uppmätt energi ┆
0x1a834…1a843 27 29 20 28 41 29 3b 20 20 20 20 20 20 20 20 ┆') (A); ┆
0x1a843…1a863 (16, 0, 79) 20 20 20 20 20 20 20 20 45 46 46 42 52 20 3d 20 57 45 46 42 52 3b 20 20 20 20 20 20 20 20 20 20 ┆ EFFBR = WEFBR; ┆
0x1a863…1a883 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1a883…1a892 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1a892…1a8b2 (16, 0, 80) 20 20 20 20 20 20 20 20 43 41 4c 4c 20 45 50 46 42 52 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ CALL EPFBR; ┆
0x1a8b2…1a8d2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1a8d2…1a8e1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1a8e1…1a930 (16, 0, 81) 0x00[0x4f]
0x1a930…1a950 (17, 0, 0) 20 20 20 20 20 20 20 20 52 20 3d 20 52 20 2d 20 31 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ R = R - 1; ┆
0x1a950…1a970 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1a970…1a97f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1a97f…1a99f (17, 0, 1) 41 32 33 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 ┆A235: ┆
0x1a99f…1a9bf 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1a9bf…1a9ce 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1a9ce…1a9ee (17, 0, 2) 20 20 20 20 20 20 20 20 49 46 20 53 55 42 53 54 52 20 28 41 42 4d 41 4e 2c 32 2c 31 29 20 3d 20 ┆ IF SUBSTR (ABMAN,2,1) = ┆
0x1a9ee…1aa0e 27 55 27 20 54 48 45 4e 20 44 4f 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆'U' THEN DO; ┆
0x1aa0e…1aa1d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1aa1d…1aa3d (17, 0, 3) 20 20 20 20 20 20 20 20 20 20 20 20 4f 50 45 4e 20 54 49 4c 4c 52 41 44 3b 20 20 20 20 20 20 20 ┆ OPEN TILLRAD; ┆
0x1aa3d…1aa5d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1aa5d…1aa6c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1aa6c…1aa8c (17, 0, 4) 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; ┆
0x1aa8c…1aaac 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1aaac…1aabb 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1aabb…1ab0a (17, 0, 5) 0x20[0x4f]
0x1ab0a…1ab2a (17, 0, 6) 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 20 20 20 20 ┆A240: ┆
0x1ab2a…1ab4a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1ab4a…1ab59 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1ab59…1ab79 (17, 0, 7) 20 20 20 20 20 20 20 20 49 46 20 52 20 3c 20 31 20 54 48 45 4e 20 44 4f 3b 20 20 20 20 20 20 20 ┆ IF R < 1 THEN DO; ┆
0x1ab79…1ab99 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1ab99…1aba8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1aba8…1abc8 (17, 0, 8) 20 20 20 20 20 20 20 20 20 20 20 20 55 54 48 4f 50 50 20 3d 20 28 27 41 32 34 30 27 29 3b 20 20 ┆ UTHOPP = ('A240'); ┆
0x1abc8…1abe8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1abe8…1abf7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1abf7…1ac17 (17, 0, 9) 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 41 35 30 30 3b 20 20 20 20 20 20 20 20 20 ┆ GO TO A500; ┆
0x1ac17…1ac37 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1ac37…1ac46 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1ac46…1ac66 (17, 0, 10) 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; ┆
0x1ac66…1ac86 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1ac86…1ac95 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1ac95…1acb5 (17, 0, 11) 20 20 20 20 20 20 20 20 49 46 20 53 54 32 54 52 45 46 4f 52 4c 20 3e 20 30 20 54 48 45 4e 20 44 ┆ IF ST2TREFORL > 0 THEN D┆
0x1acb5…1acd5 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; ┆
0x1acd5…1ace4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1ace4…1ad04 (17, 0, 12) 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 45 44 49 54 20 28 27 20 20 20 20 ┆ PUT SKIP EDIT (' ┆
0x1ad04…1ad24 20 20 54 69 6c 6c 7b 67 67 20 74 72 61 6e 73 66 6f 2e 66 7c 72 6c 75 73 74 65 72 20 31 2c 35 25 ┆ Tillägg transfo.förluster 1,5%┆
0x1ad24…1ad33 20 20 20 20 27 29 20 28 41 29 3b 20 20 20 20 ┆ ') (A); ┆
0x1ad33…1ad53 (17, 0, 13) 20 20 20 20 20 20 20 20 20 20 20 20 45 46 46 42 52 20 3d 20 53 54 32 54 52 45 46 4f 52 4c 3b 20 ┆ EFFBR = ST2TREFORL; ┆
0x1ad53…1ad73 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1ad73…1ad82 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1ad82…1ada2 (17, 0, 14) 20 20 20 20 20 20 20 20 20 20 20 20 57 45 46 42 52 20 3d 20 57 45 46 42 52 20 2b 20 53 54 32 54 ┆ WEFBR = WEFBR + ST2T┆
0x1ada2…1adc2 52 45 46 4f 52 4c 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆REFORL; ┆
0x1adc2…1add1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1add1…1adf1 (17, 0, 15) 20 20 20 20 20 20 20 20 20 20 20 20 43 41 4c 4c 20 45 50 46 42 52 3b 20 20 20 20 20 20 20 20 20 ┆ CALL EPFBR; ┆
0x1adf1…1ae11 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1ae11…1ae20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1ae20…1ae40 (17, 0, 16) 20 20 20 20 20 20 20 20 20 20 20 20 52 20 3d 20 52 20 2d 20 31 3b 20 20 20 20 20 20 20 20 20 20 ┆ R = R - 1; ┆
0x1ae40…1ae60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1ae60…1ae6f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1ae6f…1ae8f (17, 0, 17) 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; ┆
0x1ae8f…1aeaf 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1aeaf…1aebe 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1aebe…1af0d (17, 0, 18) 0x20[0x4f]
0x1af0d…1af2d (17, 0, 19) 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 20 20 20 20 ┆A250: ┆
0x1af2d…1af4d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1af4d…1af5c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1af5c…1af7c (17, 0, 20) 20 20 20 20 20 20 20 20 49 46 20 52 20 3c 20 31 20 54 48 45 4e 20 44 4f 3b 20 20 20 20 20 20 20 ┆ IF R < 1 THEN DO; ┆
0x1af7c…1af9c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1af9c…1afab 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1afab…1afcb (17, 0, 21) 20 20 20 20 20 20 20 20 20 20 20 20 55 54 48 4f 50 50 20 3d 20 28 27 41 32 35 30 27 29 3b 20 20 ┆ UTHOPP = ('A250'); ┆
0x1afcb…1afeb 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1afeb…1affa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1affa…1b01a (17, 0, 22) 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; ┆
0x1b01a…1b03a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1b03a…1b049 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1b049…1b098 (17, 0, 23) 0x20[0x4f]
0x1b098…1b0b8 (17, 0, 24) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 45 44 49 54 20 28 27 20 20 20 20 20 20 45 4e ┆ PUT SKIP EDIT (' EN┆
0x1b0b8…1b0d8 45 52 47 49 41 56 47 20 20 20 20 20 20 27 29 20 28 41 29 20 28 54 50 41 4b 54 45 41 56 47 29 20 ┆ERGIAVG ') (A) (TPAKTEAVG) ┆
0x1b0d8…1b0e7 28 50 27 2d 2d 2d 39 56 2c 39 39 27 29 20 20 ┆(P'---9V,99') ┆
0x1b0e7…1b107 (17, 0, 25) 20 20 20 20 20 20 20 20 20 20 20 20 28 27 20 7c 72 65 2f 6b 57 68 20 20 20 20 27 29 20 28 41 29 ┆ (' öre/kWh ') (A)┆
0x1b107…1b127 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 ┆; ┆
0x1b127…1b136 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1b136…1b156 (17, 0, 26) 20 20 20 20 20 20 20 20 45 42 46 42 52 20 3d 20 57 45 46 42 52 3b 20 20 20 20 20 20 20 20 20 20 ┆ EBFBR = WEFBR; ┆
0x1b156…1b176 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1b176…1b185 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1b185…1b1a5 (17, 0, 27) 20 20 20 20 20 20 20 20 45 42 42 45 4c 20 3d 20 53 54 32 45 41 56 47 20 2b 20 53 54 32 54 52 45 ┆ EBBEL = ST2EAVG + ST2TRE┆
0x1b1a5…1b1c5 4b 52 54 49 4c 4c 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆KRTILL; ┆
0x1b1c5…1b1d4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1b1d4…1b1f4 (17, 0, 28) 20 20 20 20 20 20 20 20 57 54 4f 54 20 3d 20 57 54 4f 54 20 2b 20 45 42 42 45 4c 3b 20 20 20 20 ┆ WTOT = WTOT + EBBEL; ┆
0x1b1f4…1b214 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1b214…1b223 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1b223…1b243 (17, 0, 29) 20 20 20 20 20 20 20 20 57 46 42 52 20 28 54 29 20 3d 20 57 46 42 52 20 28 54 29 20 2b 20 57 45 ┆ WFBR (T) = WFBR (T) + WE┆
0x1b243…1b263 46 42 52 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆FBR; ┆
0x1b263…1b272 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1b272…1b292 (17, 0, 30) 20 20 20 20 20 20 20 20 57 46 42 52 41 56 47 20 28 54 29 20 3d 20 57 46 42 52 41 56 47 20 28 54 ┆ WFBRAVG (T) = WFBRAVG (T┆
0x1b292…1b2b2 29 20 2b 20 45 42 42 45 4c 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆) + EBBEL; ┆
0x1b2b2…1b2c1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1b2c1…1b2e1 (17, 0, 31) 20 20 20 20 20 20 20 20 43 41 4c 4c 20 45 42 45 4c 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ CALL EBEL; ┆
0x1b2e1…1b301 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1b301…1b310 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1b310…1b330 (17, 0, 32) 20 20 20 20 20 20 20 20 52 20 3d 20 52 20 2d 20 31 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ R = R - 1; ┆
0x1b330…1b350 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1b350…1b35f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1b35f…1b37f (17, 0, 33) 20 20 20 20 20 20 20 20 49 46 20 53 54 32 45 41 52 41 44 20 3d 20 27 30 27 20 54 48 45 4e 20 47 ┆ IF ST2EARAD = '0' THEN G┆
0x1b37f…1b39f 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 20 20 20 20 20 20 20 ┆O TO A300; ┆
0x1b39f…1b3ae 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1b3ae…1b3fd (17, 0, 34) 0x20[0x4f]
[…0x1…]
0x1b44c…1b46c (17, 0, 36) 41 32 38 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 ┆A280: ┆
0x1b46c…1b48c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1b48c…1b49b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1b49b…1b4bb (17, 0, 37) 20 20 20 20 20 20 20 20 54 52 41 44 41 4e 54 20 3d 20 27 30 27 3b 20 20 20 20 20 20 20 20 20 20 ┆ TRADANT = '0'; ┆
0x1b4bb…1b4db 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1b4db…1b4ea 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1b4ea…1b50a (17, 0, 38) 20 20 20 20 20 20 20 20 4f 50 45 4e 20 54 49 4c 4c 52 41 44 3b 20 20 20 20 20 20 20 20 20 20 20 ┆ OPEN TILLRAD; ┆
0x1b50a…1b52a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1b52a…1b539 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1b539…1b588 (17, 0, 39) 0x20[0x4f]
0x1b588…1b5a8 (17, 0, 40) 41 32 39 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 ┆A290: ┆
0x1b5a8…1b5c8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1b5c8…1b5d7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1b5d7…1b5f7 (17, 0, 41) 20 20 20 20 20 20 20 20 49 46 20 54 52 41 44 41 4e 54 20 3d 20 53 54 32 45 41 52 41 44 20 54 48 ┆ IF TRADANT = ST2EARAD TH┆
0x1b5f7…1b617 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 20 20 20 ┆EN GO TO A300; ┆
0x1b617…1b626 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1b626…1b646 (17, 0, 42) 20 20 20 20 20 20 20 20 54 52 41 56 47 54 59 50 20 3d 20 27 34 27 3b 20 20 20 20 20 20 20 20 20 ┆ TRAVGTYP = '4'; ┆
0x1b646…1b666 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1b666…1b675 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1b675…1b695 (17, 0, 43) 20 20 20 20 20 20 20 20 43 41 4c 4c 20 54 52 4c 41 45 53 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆ CALL TRLAES; ┆
0x1b695…1b6b5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1b6b5…1b6c4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1b6c4…1b6e4 (17, 0, 44) 20 20 20 20 20 20 20 20 49 46 20 4f 4e 43 4f 44 45 20 3d 20 34 20 54 48 45 4e 20 47 4f 20 54 4f ┆ IF ONCODE = 4 THEN GO TO┆
0x1b6e4…1b704 20 41 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 ┆ A200; ┆
0x1b704…1b713 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1b713…1b733 (17, 0, 45) 20 20 20 20 20 20 20 20 54 52 41 44 41 4e 54 20 3d 20 54 52 41 44 41 4e 54 20 2b 20 31 3b 20 20 ┆ TRADANT = TRADANT + 1; ┆
0x1b733…1b753 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1b753…1b762 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1b762…1b782 (17, 0, 46) 20 20 20 20 20 20 20 20 54 49 4c 4c 52 53 4f 52 54 20 3d 20 27 20 20 6b 57 68 20 27 3b 20 20 20 ┆ TILLRSORT = ' kWh '; ┆
0x1b782…1b7a2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1b7a2…1b7b1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1b7b1…1b7d1 (17, 0, 47) 20 20 20 20 20 20 20 20 43 41 4c 4c 20 54 52 53 4b 52 49 56 3b 20 20 20 20 20 20 20 20 20 20 20 ┆ CALL TRSKRIV; ┆
0x1b7d1…1b7f1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1b7f1…1b800 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1b800…1b820 (17, 0, 48) 20 20 20 20 20 20 20 20 43 41 4c 4c 20 52 41 44 4e 4f 54 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆ CALL RADNOT; ┆
0x1b820…1b840 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1b840…1b84f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1b84f…1b86f (17, 0, 49) 20 20 20 20 20 20 20 20 43 41 4c 4c 20 52 4b 4f 44 54 45 53 54 3b 20 20 20 20 20 20 20 20 20 20 ┆ CALL RKODTEST; ┆
0x1b86f…1b88f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1b88f…1b89e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1b89e…1b8be (17, 0, 50) 20 20 20 20 20 20 20 20 43 41 4c 4c 20 54 52 45 42 45 4c 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆ CALL TREBEL; ┆
0x1b8be…1b8de 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1b8de…1b8ed 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1b8ed…1b90d (17, 0, 51) 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 41 32 39 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GO TO A290; ┆
0x1b90d…1b92d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1b92d…1b93c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1b93c…1b98b (17, 0, 52) 0x20[0x4f]
0x1b98b…1b9ab (17, 0, 53) 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 20 20 20 20 ┆A300: ┆
0x1b9ab…1b9cb 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1b9cb…1b9da 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1b9da…1b9fa (17, 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 20 20 20 20 20 20 20 20 ┆ ┆
0x1b9fa…1ba1a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 20 20 45 4e 45 52 47 49 53 4b 41 54 54 45 ┆ /* ENERGISKATTE┆
0x1ba1a…1ba29 20 52 41 44 20 20 20 20 20 20 20 20 2a 2f 20 ┆ RAD */ ┆
0x1ba29…1ba78 (17, 0, 55) 0x20[0x4f]
0x1ba78…1ba98 (17, 0, 56) 20 20 20 20 20 20 20 20 49 46 20 52 20 3c 20 33 20 54 48 45 4e 20 44 4f 3b 20 20 20 20 20 20 20 ┆ IF R < 3 THEN DO; ┆
0x1ba98…1bab8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1bab8…1bac7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1bac7…1bae7 (17, 0, 57) 20 20 20 20 20 20 20 20 20 20 20 20 55 54 48 4f 50 50 20 3d 20 28 27 41 33 30 30 27 29 3b 20 20 ┆ UTHOPP = ('A300'); ┆
0x1bae7…1bb07 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1bb07…1bb16 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1bb16…1bb36 (17, 0, 58) 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 41 35 30 30 3b 20 20 20 20 20 20 20 20 20 ┆ GO TO A500; ┆
0x1bb36…1bb56 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1bb56…1bb65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1bb65…1bb85 (17, 0, 59) 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; ┆
0x1bb85…1bba5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1bba5…1bbb4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1bbb4…1bc03 (17, 0, 60) 0x20[0x4f]
0x1bc03…1bc23 (17, 0, 61) 20 20 20 20 20 20 20 20 49 46 20 41 42 53 4b 4b 4f 44 20 3d 20 27 30 27 20 54 48 45 4e 20 44 4f ┆ IF ABSKKOD = '0' THEN DO┆
0x1bc23…1bc43 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 ┆; ┆
0x1bc43…1bc52 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1bc52…1bc72 (17, 0, 62) 20 20 20 20 20 20 20 20 20 20 20 20 57 53 4b 30 46 42 52 20 28 54 29 20 3d 20 57 53 4b 30 46 42 ┆ WSK0FBR (T) = WSK0FB┆
0x1bc72…1bc92 52 20 28 54 29 20 2b 20 57 45 46 42 52 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆R (T) + WEFBR; ┆
0x1bc92…1bca1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1bca1…1bcc1 (17, 0, 63) 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 41 33 35 30 3b 20 20 20 20 20 20 20 20 20 ┆ GO TO A350; ┆
0x1bcc1…1bce1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1bce1…1bcf0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1bcf0…1bd10 (17, 0, 64) 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; ┆
0x1bd10…1bd30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1bd30…1bd3f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1bd3f…1bd8e (17, 0, 65) 0x20[0x4f]
0x1bd8e…1bdae (17, 0, 66) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 28 32 29 20 45 44 49 54 20 28 27 20 20 20 20 ┆ PUT SKIP (2) EDIT (' ┆
0x1bdae…1bdce 20 20 45 4e 45 52 47 49 53 4b 41 54 54 20 20 20 20 20 20 20 27 29 20 28 41 29 3b 20 20 20 20 20 ┆ ENERGISKATT ') (A); ┆
0x1bdce…1bddd 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1bddd…1bdfd (17, 0, 67) 20 20 20 20 20 20 20 20 49 46 20 53 54 32 53 4b 34 20 3e 20 30 20 54 48 45 4e 20 44 4f 3b 20 20 ┆ IF ST2SK4 > 0 THEN DO; ┆
0x1bdfd…1be1d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1be1d…1be2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1be2c…1be4c (17, 0, 68) 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 45 44 49 54 20 28 27 34 2c 30 30 20 7c 72 65 2f ┆ PUT EDIT ('4,00 öre/┆
0x1be4c…1be6c 6b 57 68 20 20 20 20 27 29 20 28 41 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆kWh ') (A); ┆
0x1be6c…1be7b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1be7b…1be9b (17, 0, 69) 20 20 20 20 20 20 20 20 20 20 20 20 45 42 46 42 52 20 3d 20 53 54 32 53 4b 34 46 42 52 3b 20 20 ┆ EBFBR = ST2SK4FBR; ┆
0x1be9b…1bebb 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1bebb…1beca 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1beca…1beea (17, 0, 70) 20 20 20 20 20 20 20 20 20 20 20 20 45 42 42 45 4c 20 3d 20 53 54 32 53 4b 34 3b 20 20 20 20 20 ┆ EBBEL = ST2SK4; ┆
0x1beea…1bf0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1bf0a…1bf19 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1bf19…1bf39 (17, 0, 71) 20 20 20 20 20 20 20 20 20 20 20 20 57 54 4f 54 20 3d 20 57 54 4f 54 20 2b 20 45 42 42 45 4c 3b ┆ WTOT = WTOT + EBBEL;┆
0x1bf39…1bf59 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1bf59…1bf68 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1bf68…1bf88 (17, 0, 72) 20 20 20 20 20 20 20 20 20 20 20 20 57 53 4b 41 54 54 34 20 28 54 29 20 3d 20 57 53 4b 41 54 54 ┆ WSKATT4 (T) = WSKATT┆
0x1bf88…1bfa8 34 20 28 54 29 20 2b 20 53 54 32 53 4b 34 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆4 (T) + ST2SK4; ┆
0x1bfa8…1bfb7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1bfb7…1bfd7 (17, 0, 73) 20 20 20 20 20 20 20 20 20 20 20 20 57 53 4b 34 46 42 52 20 28 54 29 20 3d 20 57 53 4b 34 46 42 ┆ WSK4FBR (T) = WSK4FB┆
0x1bfd7…1bff7 52 20 28 54 29 20 2b 20 53 54 32 53 4b 34 46 42 52 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆R (T) + ST2SK4FBR; ┆
0x1bff7…1c006 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1c006…1c026 (17, 0, 74) 20 20 20 20 20 20 20 20 20 20 20 20 43 41 4c 4c 20 45 42 45 4c 3b 20 20 20 20 20 20 20 20 20 20 ┆ CALL EBEL; ┆
0x1c026…1c046 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1c046…1c055 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1c055…1c075 (17, 0, 75) 20 20 20 20 20 20 20 20 20 20 20 20 52 20 3d 20 52 20 2d 20 32 3b 20 20 20 20 20 20 20 20 20 20 ┆ R = R - 2; ┆
0x1c075…1c095 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1c095…1c0a4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1c0a4…1c0c4 (17, 0, 76) 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; ┆
0x1c0c4…1c0e4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1c0e4…1c0f3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1c0f3…1c113 (17, 0, 77) 20 20 20 20 20 20 20 20 49 46 20 53 54 32 53 4b 33 20 3d 20 30 20 54 48 45 4e 20 47 4f 20 54 4f ┆ IF ST2SK3 = 0 THEN GO TO┆
0x1c113…1c133 20 41 33 35 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 ┆ A350; ┆
0x1c133…1c142 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1c142…1c162 (17, 0, 78) 20 20 20 20 20 20 20 20 49 46 20 53 54 32 53 4b 33 20 3e 20 30 20 54 48 45 4e 20 44 4f 3b 20 20 ┆ IF ST2SK3 > 0 THEN DO; ┆
0x1c162…1c182 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1c182…1c191 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1c191…1c1b1 (17, 0, 79) 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 53 54 32 53 4b 34 20 3d 20 30 20 54 48 45 4e 20 44 ┆ IF ST2SK4 = 0 THEN D┆
0x1c1b1…1c1d1 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; ┆
0x1c1d1…1c1e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1c1e0…1c200 (17, 0, 80) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 45 44 49 54 20 28 27 33 2c 30 30 20 ┆ PUT EDIT ('3,00 ┆
0x1c200…1c220 7c 72 65 2f 6b 57 68 20 20 20 20 27 29 20 28 41 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆öre/kWh ') (A); ┆
0x1c220…1c22f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1c22f…1c27e (17, 0, 81) 0x00[0x4f]
0x1c27e…1c29e (18, 0, 0) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 20 3d 20 52 20 2d 20 31 3b 20 20 20 20 20 20 ┆ R = R - 1; ┆
0x1c29e…1c2be 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1c2be…1c2cd 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1c2cd…1c2ed (18, 0, 1) 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; ┆
0x1c2ed…1c30d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1c30d…1c31c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1c31c…1c33c (18, 0, 2) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 20 44 4f 3b 20 20 20 20 20 20 20 20 ┆ ELSE DO; ┆
0x1c33c…1c35c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1c35c…1c36b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1c36b…1c38b (18, 0, 3) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 45 44 49 ┆ PUT SKIP EDI┆
0x1c38b…1c3ab 54 20 28 27 20 27 29 20 28 41 28 32 34 29 29 20 28 27 33 2c 30 30 20 7c 72 65 2f 6b 57 68 20 20 ┆T (' ') (A(24)) ('3,00 öre/kWh ┆
0x1c3ab…1c3ba 20 20 27 29 20 28 41 29 3b 20 20 20 20 20 20 ┆ ') (A); ┆
0x1c3ba…1c3da (18, 0, 4) 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; ┆
0x1c3da…1c3fa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1c3fa…1c409 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1c409…1c429 (18, 0, 5) 20 20 20 20 20 20 20 20 20 20 20 20 45 42 46 42 52 20 3d 20 53 54 32 53 4b 33 46 42 52 3b 20 20 ┆ EBFBR = ST2SK3FBR; ┆
0x1c429…1c449 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1c449…1c458 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1c458…1c478 (18, 0, 6) 20 20 20 20 20 20 20 20 20 20 20 20 45 42 42 45 4c 20 3d 20 53 54 32 53 4b 33 3b 20 20 20 20 20 ┆ EBBEL = ST2SK3; ┆
0x1c478…1c498 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1c498…1c4a7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1c4a7…1c4c7 (18, 0, 7) 20 20 20 20 20 20 20 20 20 20 20 20 57 53 4b 41 54 54 33 20 28 54 29 20 3d 20 57 53 4b 41 54 54 ┆ WSKATT3 (T) = WSKATT┆
0x1c4c7…1c4e7 33 20 28 54 29 20 2b 20 53 54 32 53 4b 33 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆3 (T) + ST2SK3; ┆
0x1c4e7…1c4f6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1c4f6…1c516 (18, 0, 8) 20 20 20 20 20 20 20 20 20 20 20 20 57 53 4b 33 46 42 52 20 28 54 29 20 3d 20 57 53 4b 33 46 42 ┆ WSK3FBR (T) = WSK3FB┆
0x1c516…1c536 52 20 28 54 29 20 2b 20 53 54 32 53 4b 33 46 42 52 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆R (T) + ST2SK3FBR; ┆
0x1c536…1c545 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1c545…1c565 (18, 0, 9) 20 20 20 20 20 20 20 20 20 20 20 20 57 54 4f 54 20 3d 20 57 54 4f 54 20 2b 20 45 42 42 45 4c 3b ┆ WTOT = WTOT + EBBEL;┆
0x1c565…1c585 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1c585…1c594 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1c594…1c5b4 (18, 0, 10) 20 20 20 20 20 20 20 20 20 20 20 20 43 41 4c 4c 20 45 42 45 4c 3b 20 20 20 20 20 20 20 20 20 20 ┆ CALL EBEL; ┆
0x1c5b4…1c5d4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1c5d4…1c5e3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1c5e3…1c603 (18, 0, 11) 20 20 20 20 20 20 20 20 20 20 20 20 52 20 3d 20 52 20 2d 20 31 3b 20 20 20 20 20 20 20 20 20 20 ┆ R = R - 1; ┆
0x1c603…1c623 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1c623…1c632 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1c632…1c652 (18, 0, 12) 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; ┆
0x1c652…1c672 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1c672…1c681 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1c681…1c6d0 (18, 0, 13) 0x20[0x4f]
0x1c6d0…1c6f0 (18, 0, 14) 41 33 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 20 20 20 20 ┆A350: ┆
0x1c6f0…1c710 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1c710…1c71f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1c71f…1c76e (18, 0, 15) 0x20[0x4f]
0x1c76e…1c78e (18, 0, 16) 20 20 20 20 20 20 20 20 49 46 20 53 55 42 53 54 52 20 28 53 54 32 54 41 52 41 44 2c 35 2c 31 29 ┆ IF SUBSTR (ST2TARAD,5,1)┆
0x1c78e…1c7ae 20 7f 3d 20 27 30 27 20 54 48 45 4e 20 44 4f 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ = '0' THEN DO; ┆
0x1c7ae…1c7bd 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1c7bd…1c7dd (18, 0, 17) 20 20 20 20 20 20 20 20 20 20 20 20 54 52 41 44 41 4e 54 20 3d 20 27 30 27 3b 20 20 20 20 20 20 ┆ TRADANT = '0'; ┆
0x1c7dd…1c7fd 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1c7fd…1c80c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1c80c…1c82c (18, 0, 18) 20 20 20 20 20 20 20 20 20 20 20 20 4f 50 45 4e 20 54 49 4c 4c 52 41 44 3b 20 20 20 20 20 20 20 ┆ OPEN TILLRAD; ┆
0x1c82c…1c84c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1c84c…1c85b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1c85b…1c87b (18, 0, 19) 41 33 36 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 ┆A360: ┆
0x1c87b…1c89b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1c89b…1c8aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1c8aa…1c8ca (18, 0, 20) 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 54 52 41 44 41 4e 54 20 3d 20 53 55 42 53 54 52 20 ┆ IF TRADANT = SUBSTR ┆
0x1c8ca…1c8ea 28 53 54 32 54 41 52 41 44 2c 35 2c 31 29 20 54 48 45 4e 20 47 4f 20 54 4f 20 41 33 38 30 3b 20 ┆(ST2TARAD,5,1) THEN GO TO A380; ┆
0x1c8ea…1c8f9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1c8f9…1c919 (18, 0, 21) 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 52 20 3c 20 32 20 54 48 45 4e 20 44 4f 3b 3b 20 20 ┆ IF R < 2 THEN DO;; ┆
0x1c919…1c939 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1c939…1c948 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1c948…1c968 (18, 0, 22) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 55 54 48 4f 50 50 20 3d 20 28 27 41 33 36 30 27 ┆ UTHOPP = ('A360'┆
0x1c968…1c988 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 ┆); ┆
0x1c988…1c997 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1c997…1c9b7 (18, 0, 23) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 41 35 30 30 3b 20 20 20 20 20 ┆ GO TO A500; ┆
0x1c9b7…1c9d7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1c9d7…1c9e6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1c9e6…1ca06 (18, 0, 24) 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; ┆
0x1ca06…1ca26 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1ca26…1ca35 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1ca35…1ca55 (18, 0, 25) 20 20 20 20 20 20 20 20 20 20 20 20 54 52 41 56 47 54 59 50 20 3d 20 27 35 27 3b 20 20 20 20 20 ┆ TRAVGTYP = '5'; ┆
0x1ca55…1ca75 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1ca75…1ca84 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1ca84…1caa4 (18, 0, 26) 20 20 20 20 20 20 20 20 20 20 20 20 43 41 4c 4c 20 54 52 4c 41 45 53 3b 20 20 20 20 20 20 20 20 ┆ CALL TRLAES; ┆
0x1caa4…1cac4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1cac4…1cad3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1cad3…1caf3 (18, 0, 27) 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 4f 4e 43 4f 44 45 20 3d 20 34 20 54 48 45 4e 20 47 ┆ IF ONCODE = 4 THEN G┆
0x1caf3…1cb13 4f 20 54 4f 20 41 33 38 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 A380; ┆
0x1cb13…1cb22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1cb22…1cb42 (18, 0, 28) 20 20 20 20 20 20 20 20 20 20 20 20 54 52 41 44 41 4e 54 20 3d 20 54 52 41 44 41 4e 54 20 2b 20 ┆ TRADANT = TRADANT + ┆
0x1cb42…1cb62 27 31 27 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆'1'; ┆
0x1cb62…1cb71 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1cb71…1cb91 (18, 0, 29) 20 20 20 20 20 20 20 20 20 20 20 20 54 49 4c 4c 52 53 4f 52 54 20 3d 20 27 20 20 6b 57 68 20 27 ┆ TILLRSORT = ' kWh '┆
0x1cb91…1cbb1 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 ┆; ┆
0x1cbb1…1cbc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1cbc0…1cbe0 (18, 0, 30) 20 20 20 20 20 20 20 20 20 20 20 20 43 41 4c 4c 20 54 52 53 4b 52 49 56 3b 20 20 20 20 20 20 20 ┆ CALL TRSKRIV; ┆
0x1cbe0…1cc00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1cc00…1cc0f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1cc0f…1cc2f (18, 0, 31) 20 20 20 20 20 20 20 20 20 20 20 20 43 41 4c 4c 20 52 4b 4f 44 54 45 53 54 3b 20 20 20 20 20 20 ┆ CALL RKODTEST; ┆
0x1cc2f…1cc4f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1cc4f…1cc5e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1cc5e…1cc7e (18, 0, 32) 20 20 20 20 20 20 20 20 20 20 20 20 43 41 4c 4c 20 53 4b 41 54 54 45 53 54 3b 20 20 20 20 20 20 ┆ CALL SKATTEST; ┆
0x1cc7e…1cc9e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1cc9e…1ccad 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1ccad…1cccd (18, 0, 33) 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 41 33 36 30 3b 20 20 20 20 20 20 20 20 20 ┆ GO TO A360; ┆
0x1cccd…1cced 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1cced…1ccfc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1ccfc…1cd1c (18, 0, 34) 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; ┆
0x1cd1c…1cd3c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1cd3c…1cd4b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1cd4b…1cd6b (18, 0, 35) 41 33 38 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 ┆A380: ┆
0x1cd6b…1cd8b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1cd8b…1cd9a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1cd9a…1cde9 (18, 0, 36) 0x20[0x4f]
[…0x1…]
0x1ce38…1ce58 (18, 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 20 20 20 20 20 20 20 20 ┆ ┆
0x1ce58…1ce78 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 20 20 52 55 4e 44 4e 49 4e 47 53 42 45 4c ┆ /* RUNDNINGSBEL┆
0x1ce78…1ce87 4f 50 50 53 20 52 41 44 20 20 20 20 2a 2f 20 ┆OPPS RAD */ ┆
0x1ce87…1ced6 (18, 0, 39) 0x20[0x4f]
[…0x1…]
0x1cf25…1cf45 (18, 0, 41) 41 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 20 20 20 20 ┆A400: ┆
0x1cf45…1cf65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1cf65…1cf74 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1cf74…1cf94 (18, 0, 42) 20 20 20 20 20 20 20 20 49 46 20 52 20 3c 20 32 20 54 48 45 4e 20 44 4f 3b 20 20 20 20 20 20 20 ┆ IF R < 2 THEN DO; ┆
0x1cf94…1cfb4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1cfb4…1cfc3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1cfc3…1cfe3 (18, 0, 43) 20 20 20 20 20 20 20 20 20 20 20 20 55 54 48 4f 50 50 20 3d 20 28 27 41 34 30 30 27 29 3b 20 20 ┆ UTHOPP = ('A400'); ┆
0x1cfe3…1d003 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1d003…1d012 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1d012…1d032 (18, 0, 44) 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 41 35 30 30 3b 20 20 20 20 20 20 20 20 20 ┆ GO TO A500; ┆
0x1d032…1d052 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1d052…1d061 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1d061…1d081 (18, 0, 45) 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; ┆
0x1d081…1d0a1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1d0a1…1d0b0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1d0b0…1d0d0 (18, 0, 46) 20 20 20 20 20 20 20 20 52 57 54 4f 54 41 20 3d 20 57 54 4f 54 3b 20 20 20 20 20 20 20 20 20 20 ┆ RWTOTA = WTOT; ┆
0x1d0d0…1d0f0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1d0f0…1d0ff 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1d0ff…1d11f (18, 0, 47) 20 20 20 20 20 20 20 20 43 41 4c 4c 20 52 55 4e 44 42 45 4c 3b 20 20 20 20 20 20 20 20 20 20 20 ┆ CALL RUNDBEL; ┆
0x1d11f…1d13f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1d13f…1d14e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1d14e…1d16e (18, 0, 48) 20 20 20 20 20 20 20 20 49 46 20 52 55 4e 44 20 3d 20 30 2e 30 30 20 54 48 45 4e 20 44 4f 3b 20 ┆ IF RUND = 0.00 THEN DO; ┆
0x1d16e…1d18e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1d18e…1d19d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1d19d…1d1bd (18, 0, 49) 20 20 20 20 20 20 20 20 20 20 20 20 52 20 3d 20 52 20 2b 20 32 3b 20 20 20 20 20 20 20 20 20 20 ┆ R = R + 2; ┆
0x1d1bd…1d1dd 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1d1dd…1d1ec 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1d1ec…1d20c (18, 0, 50) 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 41 35 30 30 3b 20 20 20 20 20 20 20 20 20 ┆ GO TO A500; ┆
0x1d20c…1d22c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1d22c…1d23b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1d23b…1d25b (18, 0, 51) 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; ┆
0x1d25b…1d27b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1d27b…1d28a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1d28a…1d2aa (18, 0, 52) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 28 32 29 20 45 44 49 54 20 28 27 20 20 20 20 ┆ PUT SKIP (2) EDIT (' ┆
0x1d2aa…1d2ca 20 20 52 55 4e 44 4e 49 4e 47 53 42 45 4c 4f 50 50 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ RUNDNINGSBELOPP ┆
0x1d2ca…1d2d9 20 20 20 20 27 29 20 28 41 29 20 20 20 20 20 ┆ ') (A) ┆
0x1d2d9…1d2f9 (18, 0, 53) 20 20 20 20 20 20 20 20 20 20 20 20 28 27 20 27 29 20 28 41 28 34 36 29 29 20 28 52 55 4e 44 29 ┆ (' ') (A(46)) (RUND)┆
0x1d2f9…1d319 20 28 50 27 2d 2d 2d 2d 2d 2d 2d 39 56 2c 39 39 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ (P'-------9V,99'); ┆
0x1d319…1d328 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1d328…1d348 (18, 0, 54) 20 20 20 20 20 20 20 20 57 53 4b 4f 52 45 53 55 54 4a 20 28 54 29 20 3d 20 57 53 4b 4f 52 45 53 ┆ WSKORESUTJ (T) = WSKORES┆
0x1d348…1d368 55 54 4a 20 28 54 29 20 2b 20 52 55 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆UTJ (T) + RUND; ┆
0x1d368…1d377 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1d377…1d3c6 (18, 0, 55) 0x20[0x4f]
[…0x2…]
0x1d464…1d484 (18, 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 20 20 20 20 20 20 20 20 ┆ ┆
0x1d484…1d4a4 20 2f 2a 20 20 54 4f 54 41 4c 52 41 44 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ /* TOTALRAD ┆
0x1d4a4…1d4b3 20 20 20 20 20 20 20 20 20 20 20 20 2a 2f 20 ┆ */ ┆
0x1d4b3…1d502 (18, 0, 59) 0x20[0x4f]
0x1d502…1d522 (18, 0, 60) 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: ┆
0x1d522…1d542 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1d542…1d551 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1d551…1d571 (18, 0, 61) 20 20 20 20 20 20 20 20 49 46 20 52 55 4e 44 41 44 20 3d 20 27 4a 27 20 54 48 45 4e 20 47 4f 20 ┆ IF RUNDAD = 'J' THEN GO ┆
0x1d571…1d591 54 4f 20 41 35 35 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 ┆TO A550; ┆
0x1d591…1d5a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1d5a0…1d5c0 (18, 0, 62) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 28 52 2b 32 29 20 45 44 49 54 20 28 27 20 27 ┆ PUT SKIP (R+2) EDIT (' '┆
0x1d5c0…1d5e0 29 20 28 41 28 36 34 29 29 20 28 27 54 72 61 6e 73 70 6f 72 74 20 20 20 20 20 20 20 20 20 20 20 ┆) (A(64)) ('Transport ┆
0x1d5e0…1d5ef 20 20 27 29 20 28 41 29 20 20 20 20 20 20 20 ┆ ') (A) ┆
0x1d5ef…1d60f (18, 0, 63) 20 20 20 20 20 20 20 20 20 20 20 20 28 57 54 4f 54 29 20 28 50 27 2d 2d 2d 2d 2d 2d 2d 39 56 2c ┆ (WTOT) (P'-------9V,┆
0x1d60f…1d62f 39 39 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆99'); ┆
0x1d62f…1d63e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1d63e…1d65e (18, 0, 64) 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 41 36 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GO TO A600; ┆
0x1d65e…1d67e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1d67e…1d68d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1d68d…1d6ad (18, 0, 65) 41 35 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 20 20 20 20 ┆A550: ┆
0x1d6ad…1d6cd 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1d6cd…1d6dc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1d6dc…1d6fc (18, 0, 66) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 28 52 20 2d 20 31 29 20 45 44 49 54 20 28 27 ┆ PUT SKIP (R - 1) EDIT ('┆
0x1d6fc…1d71c 20 27 29 20 28 41 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ') (A); ┆
0x1d71c…1d72b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1d72b…1d74b (18, 0, 67) 20 20 20 20 20 20 20 20 49 46 20 41 42 49 4b 54 4f 20 3e 20 30 20 54 48 45 4e 20 44 4f 3b 20 20 ┆ IF ABIKTO > 0 THEN DO; ┆
0x1d74b…1d76b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1d76b…1d77a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1d77a…1d79a (18, 0, 68) 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 45 44 49 54 20 28 27 20 20 20 20 ┆ PUT SKIP EDIT (' ┆
0x1d79a…1d7ba 20 20 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 20 20 20 49 6e 74 65 72 6e 6b 6f 6e 74 6f 20 ┆ XXXXXXXXXXXXXXX Internkonto ┆
0x1d7ba…1d7c9 27 29 20 28 41 29 20 20 20 20 20 20 20 20 20 ┆') (A) ┆
0x1d7c9…1d7e9 (18, 0, 69) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 41 42 49 4b 54 4f 29 20 28 50 27 39 39 39 39 ┆ (ABIKTO) (P'9999┆
0x1d7e9…1d809 39 39 39 39 39 39 39 39 39 27 29 28 27 20 27 29 28 41 28 33 37 29 29 20 28 57 54 4f 54 29 28 50 ┆999999999')(' ')(A(37)) (WTOT)(P┆
0x1d809…1d818 27 2d 2d 2d 2d 2d 2d 2d 39 56 2c 39 39 27 29 ┆'-------9V,99')┆
0x1d818…1d838 (18, 0, 70) 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 41 35 37 30 3b 20 20 20 20 20 20 20 20 20 ┆ GO TO A570; ┆
0x1d838…1d858 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1d858…1d867 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1d867…1d887 (18, 0, 71) 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; ┆
0x1d887…1d8a7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1d8a7…1d8b6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1d8b6…1d8d6 (18, 0, 72) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 45 44 49 54 20 28 27 20 27 29 20 28 41 28 32 ┆ PUT SKIP EDIT (' ') (A(2┆
0x1d8d6…1d8f6 32 29 29 20 28 53 55 42 53 54 52 28 50 41 52 41 46 46 44 2c 35 2c 32 29 29 20 28 50 27 5a 50 27 ┆2)) (SUBSTR(PARAFFD,5,2)) (P'ZP'┆
0x1d8f6…1d905 29 20 28 27 20 27 29 20 28 41 29 20 20 20 20 ┆) (' ') (A) ┆
0x1d905…1d925 (18, 0, 73) 20 20 20 20 20 20 20 20 20 20 20 20 20 28 57 4d 41 4e 41 44 20 28 57 4d 41 4e 41 44 4e 52 29 29 ┆ (WMANAD (WMANADNR))┆
0x1d925…1d945 20 28 41 28 38 29 29 20 28 27 20 31 39 27 29 20 28 41 29 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ (A(8)) (' 19') (A) ┆
0x1d945…1d954 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1d954…1d974 (18, 0, 74) 20 20 20 20 20 20 20 20 20 20 20 20 28 53 55 42 53 54 52 20 28 50 41 52 41 46 46 44 2c 31 2c 32 ┆ (SUBSTR (PARAFFD,1,2┆
0x1d974…1d994 29 29 20 28 41 29 20 28 27 20 27 29 20 28 41 28 34 38 29 29 20 28 57 54 4f 54 29 20 28 50 27 2d ┆)) (A) (' ') (A(48)) (WTOT) (P'-┆
0x1d994…1d9a3 2d 2d 2d 2d 2d 2d 39 56 2c 39 39 27 29 3b 20 ┆------9V,99'); ┆
0x1d9a3…1d9c3 (18, 0, 75) 41 35 37 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 ┆A570: ┆
0x1d9c3…1d9e3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1d9e3…1d9f2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1d9f2…1da12 (18, 0, 76) 20 20 20 20 20 20 20 20 4f 50 45 4e 20 50 52 45 4c 41 52 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆ OPEN PRELAR; ┆
0x1da12…1da32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1da32…1da41 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1da41…1da61 (18, 0, 77) 20 20 20 20 20 20 20 20 52 45 41 44 20 4b 45 59 20 28 41 42 41 42 4e 52 29 20 46 49 4c 45 20 28 ┆ READ KEY (ABABNR) FILE (┆
0x1da61…1da81 50 52 45 4c 41 52 29 20 49 4e 54 4f 20 28 50 52 45 4c 41 52 45 41 29 3b 20 20 20 20 20 20 20 20 ┆PRELAR) INTO (PRELAREA); ┆
0x1da81…1da90 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1da90…1dab0 (18, 0, 78) 20 20 20 20 20 20 20 20 50 45 4b 41 52 45 20 3d 20 41 44 44 52 20 28 50 52 45 4c 41 52 45 41 29 ┆ PEKARE = ADDR (PRELAREA)┆
0x1dab0…1dad0 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 ┆; ┆
0x1dad0…1dadf 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1dadf…1daff (18, 0, 79) 20 20 20 20 20 20 20 20 53 54 41 52 54 50 20 3d 20 50 45 4b 41 52 45 20 2b 20 35 20 2b 20 28 28 ┆ STARTP = PEKARE + 5 + ((┆
0x1daff…1db1f 50 41 52 41 44 45 42 50 45 52 20 2d 20 31 29 20 2a 20 31 36 29 3b 20 20 20 20 20 20 20 20 20 20 ┆PARADEBPER - 1) * 16); ┆
0x1db1f…1db2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1db2e…1db4e (18, 0, 80) 20 20 20 20 20 20 20 20 55 4e 53 50 45 43 20 28 50 52 45 4c 29 20 3d 20 53 54 41 52 54 50 3b 20 ┆ UNSPEC (PREL) = STARTP; ┆
0x1db4e…1db6e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1db6e…1db7d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1db7d…1dbcc (18, 0, 81) 0x00[0x4f]
0x1dbcc…1dbec (19, 0, 0) 20 20 20 20 20 20 20 20 53 55 42 53 54 52 20 28 50 52 4c 4f 45 50 4e 52 2c 31 2c 31 29 20 3d 20 ┆ SUBSTR (PRLOEPNR,1,1) = ┆
0x1dbec…1dc0c 27 2d 27 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆'-'; ┆
0x1dc0c…1dc1b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1dc1b…1dc3b (19, 0, 1) 20 20 20 20 20 20 20 20 53 55 42 53 54 52 20 28 50 52 4c 4f 45 50 4e 52 2c 32 2c 35 29 20 3d 20 ┆ SUBSTR (PRLOEPNR,2,5) = ┆
0x1dc3b…1dc5b 53 54 32 4c 4f 45 50 4e 52 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ST2LOEPNR; ┆
0x1dc5b…1dc6a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1dc6a…1dc8a (19, 0, 2) 20 20 20 20 20 20 20 20 50 52 42 45 4c 4f 50 50 20 3d 20 57 54 4f 54 3b 20 20 20 20 20 20 20 20 ┆ PRBELOPP = WTOT; ┆
0x1dc8a…1dcaa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1dcaa…1dcb9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1dcb9…1dcd9 (19, 0, 3) 20 20 20 20 20 20 20 20 50 52 46 44 41 54 20 3d 20 50 41 52 41 44 45 42 44 41 54 3b 20 20 20 20 ┆ PRFDAT = PARADEBDAT; ┆
0x1dcd9…1dcf9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1dcf9…1dd08 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1dd08…1dd28 (19, 0, 4) 20 20 20 20 20 20 20 20 52 45 57 52 49 54 45 20 46 49 4c 45 20 28 50 52 45 4c 41 52 29 20 46 52 ┆ REWRITE FILE (PRELAR) FR┆
0x1dd28…1dd48 4f 4d 20 28 50 52 45 4c 41 52 45 41 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆OM (PRELAREA); ┆
0x1dd48…1dd57 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1dd57…1dd77 (19, 0, 5) 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 41 36 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GO TO A600; ┆
0x1dd77…1dd97 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1dd97…1dda6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1dda6…1ddf5 (19, 0, 6) 0x20[0x4f]
[…0x2…]
0x1de93…1deb3 (19, 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 20 20 20 20 20 20 20 20 ┆ ┆
0x1deb3…1ded3 20 2f 2a 20 20 20 4e 4f 54 52 41 44 45 52 4e 41 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ /* NOTRADERNA ┆
0x1ded3…1dee2 20 20 20 20 20 20 20 20 20 20 20 20 2a 2f 20 ┆ */ ┆
0x1dee2…1df31 (19, 0, 10) 0x20[0x4f]
0x1df31…1df51 (19, 0, 11) 41 36 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 ┆A600: ┆
0x1df51…1df71 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1df71…1df80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1df80…1dfa0 (19, 0, 12) 20 20 20 20 20 20 20 20 49 46 20 4e 4f 54 49 4e 44 45 58 20 28 31 29 20 3d 20 27 20 27 20 54 48 ┆ IF NOTINDEX (1) = ' ' TH┆
0x1dfa0…1dfc0 45 4e 20 44 4f 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆EN DO; ┆
0x1dfc0…1dfcf 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1dfcf…1dfef (19, 0, 13) 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 28 36 29 20 45 44 49 54 20 28 27 ┆ PUT SKIP (6) EDIT ('┆
0x1dfef…1e00f 20 27 29 20 28 41 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ') (A); ┆
0x1e00f…1e01e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1e01e…1e03e (19, 0, 14) 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 41 38 30 30 3b 20 20 20 20 20 20 20 20 20 ┆ GO TO A800; ┆
0x1e03e…1e05e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1e05e…1e06d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1e06d…1e08d (19, 0, 15) 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; ┆
0x1e08d…1e0ad 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1e0ad…1e0bc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1e0bc…1e0dc (19, 0, 16) 20 20 20 20 20 20 20 20 49 46 20 4e 4f 54 49 4e 44 45 58 20 28 36 29 20 3d 20 27 20 27 20 54 48 ┆ IF NOTINDEX (6) = ' ' TH┆
0x1e0dc…1e0fc 45 4e 20 47 4f 20 54 4f 20 41 36 35 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆EN GO TO A650; ┆
0x1e0fc…1e10b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1e10b…1e15a (19, 0, 17) 0x20[0x4f]
0x1e15a…1e17a (19, 0, 18) 41 36 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 20 20 20 20 ┆A650: ┆
0x1e17a…1e19a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1e19a…1e1a9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1e1a9…1e1c9 (19, 0, 19) 20 20 20 20 20 20 20 20 50 20 3d 20 35 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ P = 5; ┆
0x1e1c9…1e1e9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1e1e9…1e1f8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1e1f8…1e218 (19, 0, 20) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 45 44 49 54 20 28 27 20 27 29 20 28 41 29 3b ┆ PUT SKIP EDIT (' ') (A);┆
0x1e218…1e238 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1e238…1e247 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1e247…1e267 (19, 0, 21) 20 20 20 20 20 20 20 20 44 4f 20 49 20 3d 20 31 20 54 4f 20 31 30 3b 20 20 20 20 20 20 20 20 20 ┆ DO I = 1 TO 10; ┆
0x1e267…1e287 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1e287…1e296 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1e296…1e2b6 (19, 0, 22) 20 20 20 20 20 20 20 20 20 20 20 20 52 45 41 44 20 4b 45 59 20 28 4e 4f 54 49 4e 44 45 58 20 28 ┆ READ KEY (NOTINDEX (┆
0x1e2b6…1e2d6 49 29 29 20 46 49 4c 45 20 28 4e 4f 54 45 52 29 20 49 4e 54 4f 20 28 4e 4f 54 50 4f 53 54 29 3b ┆I)) FILE (NOTER) INTO (NOTPOST);┆
0x1e2d6…1e2e5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1e2e5…1e305 (19, 0, 23) 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 4e 4f 54 20 3d 20 27 50 27 20 54 48 45 4e 20 44 4f ┆ IF NOT = 'P' THEN DO┆
0x1e305…1e325 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 ┆; ┆
0x1e325…1e334 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1e334…1e354 (19, 0, 24) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 41 4c 4c 20 50 4e 4f 54 45 4e 3b 20 20 20 20 ┆ CALL PNOTEN; ┆
0x1e354…1e374 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1e374…1e383 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1e383…1e3a3 (19, 0, 25) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 41 36 36 30 3b 20 20 20 20 20 ┆ GO TO A660; ┆
0x1e3a3…1e3c3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1e3c3…1e3d2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1e3d2…1e3f2 (19, 0, 26) 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; ┆
0x1e3f2…1e412 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1e412…1e421 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1e421…1e441 (19, 0, 27) 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 4e 4f 54 20 3d 20 27 20 27 20 54 48 45 4e 20 47 4f ┆ IF NOT = ' ' THEN GO┆
0x1e441…1e461 20 54 4f 20 41 36 37 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 A670; ┆
0x1e461…1e470 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1e470…1e490 (19, 0, 28) 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 45 44 49 54 20 28 27 20 27 29 20 ┆ PUT SKIP EDIT (' ') ┆
0x1e490…1e4b0 28 41 28 36 29 29 20 28 4e 4f 54 29 20 28 41 29 20 28 27 20 3d 20 27 29 20 28 41 29 20 28 4e 4f ┆(A(6)) (NOT) (A) (' = ') (A) (NO┆
0x1e4b0…1e4bf 54 54 45 58 54 29 20 28 41 29 3b 20 20 20 20 ┆TTEXT) (A); ┆
0x1e4bf…1e4df (19, 0, 29) 41 36 36 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 ┆A660: ┆
0x1e4df…1e4ff 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1e4ff…1e50e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1e50e…1e52e (19, 0, 30) 20 20 20 20 20 20 20 20 50 20 3d 20 50 20 2d 20 31 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ P = P - 1; ┆
0x1e52e…1e54e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1e54e…1e55d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1e55d…1e57d (19, 0, 31) 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; ┆
0x1e57d…1e59d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1e59d…1e5ac 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1e5ac…1e5cc (19, 0, 32) 41 36 37 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 ┆A670: ┆
0x1e5cc…1e5ec 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1e5ec…1e5fb 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1e5fb…1e61b (19, 0, 33) 20 20 20 20 20 20 20 20 49 46 20 50 20 3e 20 30 20 54 48 45 4e 20 44 4f 3b 20 20 20 20 20 20 20 ┆ IF P > 0 THEN DO; ┆
0x1e61b…1e63b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1e63b…1e64a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1e64a…1e66a (19, 0, 34) 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 28 50 29 20 45 44 49 54 20 28 27 ┆ PUT SKIP (P) EDIT ('┆
0x1e66a…1e68a 20 27 29 20 28 41 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ') (A); ┆
0x1e68a…1e699 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1e699…1e6b9 (19, 0, 35) 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; ┆
0x1e6b9…1e6d9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1e6d9…1e6e8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1e6e8…1e708 (19, 0, 36) 41 36 38 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 ┆A680: ┆
0x1e708…1e728 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1e728…1e737 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1e737…1e757 (19, 0, 37) 20 20 20 20 20 20 20 20 43 41 4c 4c 20 4e 4f 54 49 4e 44 45 58 4e 4f 4c 4c 3b 20 20 20 20 20 20 ┆ CALL NOTINDEXNOLL; ┆
0x1e757…1e777 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1e777…1e786 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1e786…1e7d5 (19, 0, 38) 0x20[0x4f]
[…0x1…]
0x1e824…1e844 (19, 0, 40) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1e844…1e864 20 2f 2a 20 20 41 44 52 45 53 53 52 41 44 45 52 4e 41 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ /* ADRESSRADERNA ┆
0x1e864…1e873 20 20 20 20 20 20 20 20 20 20 20 20 2a 2f 20 ┆ */ ┆
0x1e873…1e8c2 (19, 0, 41) 0x20[0x4f]
[…0x1…]
0x1e911…1e931 (19, 0, 43) 41 38 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 ┆A800: ┆
0x1e931…1e951 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1e951…1e960 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1e960…1e980 (19, 0, 44) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 28 32 29 20 45 44 49 54 20 28 27 20 20 20 20 ┆ PUT SKIP (2) EDIT (' ┆
0x1e980…1e9a0 20 20 54 45 4b 4e 49 53 4b 41 20 56 45 52 4b 45 4e 27 29 20 28 41 28 33 37 29 29 20 28 41 42 52 ┆ TEKNISKA VERKEN') (A(37)) (ABR┆
0x1e9a0…1e9af 4e 41 4d 4e 29 20 28 41 28 33 36 29 29 20 20 ┆NAMN) (A(36)) ┆
0x1e9af…1e9cf (19, 0, 45) 20 20 20 20 20 20 20 20 20 20 20 20 28 27 20 27 29 20 28 41 28 39 29 29 20 28 27 56 5b 53 54 45 ┆ (' ') (A(9)) ('VÄSTE┆
0x1e9cf…1e9ef 52 5d 53 20 31 27 29 20 28 41 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆RÅS 1') (A); ┆
0x1e9ef…1e9fe 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1e9fe…1ea1e (19, 0, 46) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 45 44 49 54 20 28 27 20 20 20 20 20 20 42 4f ┆ PUT SKIP EDIT (' BO┆
0x1ea1e…1ea3e 58 20 31 34 27 29 20 28 41 28 33 37 29 29 20 28 41 42 52 41 44 52 29 20 28 41 28 33 36 29 29 20 ┆X 14') (A(37)) (ABRADR) (A(36)) ┆
0x1ea3e…1ea4d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1ea4d…1ea6d (19, 0, 47) 20 20 20 20 20 20 20 20 20 20 20 20 28 27 20 27 29 20 28 41 28 39 29 29 20 28 27 50 4f 52 54 4f ┆ (' ') (A(9)) ('PORTO┆
0x1ea6d…1ea8d 20 42 45 54 41 4c 54 27 29 20 28 41 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ BETALT') (A); ┆
0x1ea8d…1ea9c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1ea9c…1eabc (19, 0, 48) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 28 32 29 20 45 44 49 54 28 27 20 20 20 20 20 ┆ PUT SKIP (2) EDIT(' ┆
0x1eabc…1eadc 20 37 32 31 20 30 33 20 20 56 5b 53 54 45 52 5d 53 27 29 28 41 28 33 37 29 29 28 53 55 42 53 54 ┆ 721 03 VÄSTERÅS')(A(37))(SUBST┆
0x1eadc…1eaeb 52 28 41 42 52 50 4e 52 2c 31 2c 33 29 29 20 ┆R(ABRPNR,1,3)) ┆
0x1eaeb…1eb0b (19, 0, 49) 20 20 20 20 20 20 20 20 20 20 20 20 28 41 29 20 28 27 20 27 29 20 28 41 29 20 28 53 55 42 53 54 ┆ (A) (' ') (A) (SUBST┆
0x1eb0b…1eb2b 52 28 41 42 52 50 4e 52 2c 34 2c 32 29 29 20 28 41 29 20 28 27 20 20 27 29 20 28 41 29 20 20 20 ┆R(ABRPNR,4,2)) (A) (' ') (A) ┆
0x1eb2b…1eb3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1eb3a…1eb5a (19, 0, 50) 20 20 20 20 20 20 20 20 20 20 20 20 28 41 42 52 4f 52 54 29 20 28 41 28 32 38 29 29 20 28 27 20 ┆ (ABRORT) (A(28)) (' ┆
0x1eb5a…1eb7a 27 29 20 28 41 28 39 29 29 20 28 27 50 20 32 31 27 29 20 28 41 29 3b 20 20 20 20 20 20 20 20 20 ┆') (A(9)) ('P 21') (A); ┆
0x1eb7a…1eb89 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1eb89…1ebd8 (19, 0, 51) 0x20[0x4f]
[…0x2…]
0x1ec76…1ec96 (19, 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 20 20 20 20 20 20 20 20 ┆ ┆
0x1ec96…1ecb6 20 2f 2a 20 20 49 4e 42 45 54 41 4c 4e 49 4e 47 53 4b 4f 52 54 45 54 20 20 20 20 20 20 20 20 20 ┆ /* INBETALNINGSKORTET ┆
0x1ecb6…1ecc5 20 20 20 20 20 20 20 20 20 20 20 20 2a 2f 20 ┆ */ ┆
0x1ecc5…1ed14 (19, 0, 55) 0x20[0x4f]
[…0x1…]
0x1ed63…1ed83 (19, 0, 57) 41 39 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 ┆A900: ┆
0x1ed83…1eda3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1eda3…1edb2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1edb2…1edd2 (19, 0, 58) 20 20 20 20 20 20 20 20 49 46 20 50 52 49 4e 54 41 42 4e 52 20 7f 3d 20 30 20 54 48 45 4e 20 53 ┆ IF PRINTABNR = 0 THEN S┆
0x1edd2…1edf2 56 41 52 20 3d 20 27 53 27 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆VAR = 'S'; ┆
0x1edf2…1ee01 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1ee01…1ee21 (19, 0, 59) 20 20 20 20 20 20 20 20 49 46 20 52 55 4e 44 41 44 20 7f 3d 20 27 4a 27 20 54 48 45 4e 20 47 4f ┆ IF RUNDAD = 'J' THEN GO┆
0x1ee21…1ee41 20 54 4f 20 41 39 35 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 A950; ┆
0x1ee41…1ee50 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1ee50…1ee70 (19, 0, 60) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 28 34 29 20 45 44 49 54 20 28 27 20 27 29 20 ┆ PUT SKIP (4) EDIT (' ') ┆
0x1ee70…1ee90 28 41 28 35 30 29 29 20 28 27 38 38 32 36 30 31 2d 38 27 29 20 28 41 29 3b 20 20 20 20 20 20 20 ┆(A(50)) ('882601-8') (A); ┆
0x1ee90…1ee9f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1ee9f…1eebf (19, 0, 61) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 28 32 29 20 45 44 49 54 20 28 27 20 27 29 20 ┆ PUT SKIP (2) EDIT (' ') ┆
0x1eebf…1eedf 28 41 28 31 30 29 29 28 27 31 39 38 30 31 27 29 20 28 41 28 32 30 29 29 20 28 50 41 52 41 46 46 ┆(A(10))('19801') (A(20)) (PARAFF┆
0x1eedf…1eeee 44 29 20 28 41 29 20 28 27 20 27 29 20 20 20 ┆D) (A) (' ') ┆
0x1eeee…1ef0e (19, 0, 62) 20 20 20 20 20 20 20 20 20 20 20 20 28 41 28 31 34 29 29 20 28 27 54 45 4b 4e 49 53 4b 41 20 56 ┆ (A(14)) ('TEKNISKA V┆
0x1ef0e…1ef2e 45 52 4b 45 4e 20 49 20 56 5b 53 54 45 52 5d 53 27 29 20 28 41 29 3b 20 20 20 20 20 20 20 20 20 ┆ERKEN I VÄSTERÅS') (A); ┆
0x1ef2e…1ef3d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1ef3d…1ef5d (19, 0, 63) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 28 32 29 45 44 49 54 28 27 20 27 29 28 41 28 36 ┆ PUT SKIP(2)EDIT(' ')(A(6┆
0x1ef5d…1ef7d 29 29 28 41 42 41 42 4e 52 29 28 50 27 39 39 39 39 39 39 39 39 27 29 28 27 2d 27 29 28 41 29 28 ┆))(ABABNR)(P'99999999')('-')(A)(┆
0x1ef7d…1ef8c 53 54 32 4c 4f 45 50 4e 52 29 28 41 28 38 29 ┆ST2LOEPNR)(A(8)┆
0x1ef8c…1efac (19, 0, 64) 20 20 20 20 20 20 20 20 20 20 20 20 28 27 20 20 27 29 20 28 41 29 20 28 57 54 4f 54 29 20 28 50 ┆ (' ') (A) (WTOT) (P┆
0x1efac…1efcc 27 5a 5a 5a 5a 5a 5a 5a 39 56 20 39 39 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆'ZZZZZZZ9V 99'); ┆
0x1efcc…1efdb 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1efdb…1effb (19, 0, 65) 20 20 20 20 20 20 20 20 49 46 20 41 42 49 4b 54 4f 20 3e 20 30 20 54 48 45 4e 20 47 4f 20 54 4f ┆ IF ABIKTO > 0 THEN GO TO┆
0x1effb…1f01b 20 41 39 35 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 ┆ A950; ┆
0x1f01b…1f02a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1f02a…1f04a (19, 0, 66) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 28 31 33 29 20 45 44 49 54 20 28 27 20 27 29 ┆ PUT SKIP (13) EDIT (' ')┆
0x1f04a…1f06a 20 28 41 28 34 31 29 29 20 28 57 54 4f 54 29 20 28 50 27 5a 5a 5a 5a 5a 5a 5a 39 56 20 39 39 27 ┆ (A(41)) (WTOT) (P'ZZZZZZZ9V 99'┆
0x1f06a…1f079 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆); ┆
0x1f079…1f099 (19, 0, 67) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 28 36 29 20 45 44 49 54 20 28 27 20 27 29 20 ┆ PUT SKIP (6) EDIT (' ') ┆
0x1f099…1f0b9 28 41 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 ┆(A); ┆
0x1f0b9…1f0c8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1f0c8…1f0e8 (19, 0, 68) 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 41 32 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GO TO A20; ┆
0x1f0e8…1f108 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1f108…1f117 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1f117…1f137 (19, 0, 69) 41 39 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 20 20 20 20 ┆A950: ┆
0x1f137…1f157 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1f157…1f166 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1f166…1f186 (19, 0, 70) 20 20 20 20 20 20 20 20 49 46 20 52 55 4e 44 41 44 20 7f 3d 20 27 4a 27 20 54 48 45 4e 20 50 55 ┆ IF RUNDAD = 'J' THEN PU┆
0x1f186…1f1a6 54 20 53 4b 49 50 20 28 39 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆T SKIP (9); ┆
0x1f1a6…1f1b5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1f1b5…1f1d5 (19, 0, 71) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 28 31 33 29 20 45 44 49 54 20 28 27 20 27 29 ┆ PUT SKIP (13) EDIT (' ')┆
0x1f1d5…1f1f5 20 28 41 28 34 31 29 29 20 28 27 4d 20 41 20 4b 20 55 20 4c 20 45 20 52 20 41 20 44 27 29 20 28 ┆ (A(41)) ('M A K U L E R A D') (┆
0x1f1f5…1f204 41 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆A); ┆
0x1f204…1f224 (19, 0, 72) 20 20 20 20 20 20 20 20 49 46 20 52 55 4e 44 41 44 20 7f 3d 20 27 4a 27 20 54 48 45 4e 20 44 4f ┆ IF RUNDAD = 'J' THEN DO┆
0x1f224…1f244 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 ┆; ┆
0x1f244…1f253 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1f253…1f273 (19, 0, 73) 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 ('┆
0x1f273…1f293 20 27 29 20 28 41 28 38 35 29 29 20 28 27 66 6f 72 74 73 2e 72 7b 6b 6e 69 6e 67 27 29 20 28 41 ┆ ') (A(85)) ('forts.räkning') (A┆
0x1f293…1f2a2 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆); ┆
0x1f2a2…1f2c2 (19, 0, 74) 20 20 20 20 20 20 20 20 20 20 20 20 43 41 4c 4c 20 48 55 56 55 44 3b 20 20 20 20 20 20 20 20 20 ┆ CALL HUVUD; ┆
0x1f2c2…1f2e2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1f2e2…1f2f1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1f2f1…1f311 (19, 0, 75) 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 28 32 29 20 45 44 49 54 20 28 27 ┆ PUT SKIP (2) EDIT ('┆
0x1f311…1f331 20 27 29 20 28 41 28 32 37 29 29 20 28 27 20 27 29 20 28 41 28 34 38 29 29 20 28 27 54 72 61 6e ┆ ') (A(27)) (' ') (A(48)) ('Tran┆
0x1f331…1f340 73 70 6f 72 74 20 20 27 29 20 28 41 29 20 20 ┆sport ') (A) ┆
0x1f340…1f360 (19, 0, 76) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 57 54 4f 54 29 20 28 50 27 5a 5a 5a 5a 5a 5a ┆ (WTOT) (P'ZZZZZZ┆
0x1f360…1f380 5a 39 56 2c 39 39 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆Z9V,99'); ┆
0x1f380…1f38f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1f38f…1f3af (19, 0, 77) 20 20 20 20 20 20 20 20 20 20 20 20 52 20 3d 20 52 20 2d 20 31 3b 20 20 20 20 20 20 20 20 20 20 ┆ R = R - 1; ┆
0x1f3af…1f3cf 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1f3cf…1f3de 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1f3de…1f3fe (19, 0, 78) 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 48 4f 50 50 45 54 3b 20 20 20 20 20 20 20 ┆ GO TO HOPPET; ┆
0x1f3fe…1f41e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1f41e…1f42d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1f42d…1f44d (19, 0, 79) 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; ┆
0x1f44d…1f46d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1f46d…1f47c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1f47c…1f49c (19, 0, 80) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 28 36 29 20 45 44 49 54 20 28 27 20 27 29 20 ┆ PUT SKIP (6) EDIT (' ') ┆
0x1f49c…1f4bc 28 41 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 ┆(A); ┆
0x1f4bc…1f4cb 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1f4cb…1f51a (19, 0, 81) 0x00[0x4f]
0x1f51a…1f53a (20, 0, 0) 20 20 20 20 20 20 20 20 49 46 20 50 52 49 4e 54 41 42 4e 52 20 7f 3d 20 30 20 54 48 45 4e 20 53 ┆ IF PRINTABNR = 0 THEN S┆
0x1f53a…1f55a 56 41 52 20 3d 20 27 53 27 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆VAR = 'S'; ┆
0x1f55a…1f569 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1f569…1f589 (20, 0, 1) 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 41 32 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GO TO A20; ┆
0x1f589…1f5a9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1f5a9…1f5b8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1f5b8…1f607 (20, 0, 2) 0x20[0x4f]
0x1f607…1f627 (20, 0, 3) 48 4f 50 50 45 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 ┆HOPPET: ┆
0x1f627…1f647 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1f647…1f656 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1f656…1f676 (20, 0, 4) 20 20 20 20 20 20 20 20 49 46 20 55 54 48 4f 50 50 20 3d 20 27 41 32 30 30 27 20 54 48 45 4e 20 ┆ IF UTHOPP = 'A200' THEN ┆
0x1f676…1f696 47 4f 20 54 4f 20 41 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 ┆GO TO A200; ┆
0x1f696…1f6a5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1f6a5…1f6c5 (20, 0, 5) 20 20 20 20 20 20 20 20 49 46 20 55 54 48 4f 50 50 20 3d 20 27 41 32 31 30 27 20 54 48 45 4e 20 ┆ IF UTHOPP = 'A210' THEN ┆
0x1f6c5…1f6e5 47 4f 20 54 4f 20 41 32 31 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆GO TO A210; ┆
0x1f6e5…1f6f4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1f6f4…1f714 (20, 0, 6) 20 20 20 20 20 20 20 20 49 46 20 55 54 48 4f 50 50 20 3d 20 27 41 32 32 30 27 20 54 48 45 4e 20 ┆ IF UTHOPP = 'A220' THEN ┆
0x1f714…1f734 47 4f 20 54 4f 20 41 32 32 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆GO TO A220; ┆
0x1f734…1f743 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1f743…1f763 (20, 0, 7) 20 20 20 20 20 20 20 20 49 46 20 55 54 48 4f 50 50 20 3d 20 27 41 32 33 30 27 20 54 48 45 4e 20 ┆ IF UTHOPP = 'A230' THEN ┆
0x1f763…1f783 47 4f 20 54 4f 20 41 32 33 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆GO TO A230; ┆
0x1f783…1f792 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1f792…1f7b2 (20, 0, 8) 20 20 20 20 20 20 20 20 49 46 20 55 54 48 4f 50 50 20 3d 20 27 41 32 34 30 27 20 54 48 45 4e 20 ┆ IF UTHOPP = 'A240' THEN ┆
0x1f7b2…1f7d2 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 20 20 20 ┆GO TO A240; ┆
0x1f7d2…1f7e1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1f7e1…1f801 (20, 0, 9) 20 20 20 20 20 20 20 20 49 46 20 55 54 48 4f 50 50 20 3d 20 27 41 32 35 30 27 20 54 48 45 4e 20 ┆ IF UTHOPP = 'A250' THEN ┆
0x1f801…1f821 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 20 20 20 20 20 20 ┆GO TO A250; ┆
0x1f821…1f830 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1f830…1f850 (20, 0, 10) 20 20 20 20 20 20 20 20 49 46 20 55 54 48 4f 50 50 20 3d 20 27 41 33 30 30 27 20 54 48 45 4e 20 ┆ IF UTHOPP = 'A300' THEN ┆
0x1f850…1f870 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 20 20 20 20 20 20 ┆GO TO A300; ┆
0x1f870…1f87f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1f87f…1f89f (20, 0, 11) 20 20 20 20 20 20 20 20 49 46 20 55 54 48 4f 50 50 20 3d 20 27 41 33 36 30 27 20 54 48 45 4e 20 ┆ IF UTHOPP = 'A360' THEN ┆
0x1f89f…1f8bf 47 4f 20 54 4f 20 41 33 36 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆GO TO A360; ┆
0x1f8bf…1f8ce 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1f8ce…1f8ee (20, 0, 12) 20 20 20 20 20 20 20 20 49 46 20 55 54 48 4f 50 50 20 3d 20 27 41 34 30 30 27 20 54 48 45 4e 20 ┆ IF UTHOPP = 'A400' THEN ┆
0x1f8ee…1f90e 47 4f 20 54 4f 20 41 34 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆GO TO A400; ┆
0x1f90e…1f91d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1f91d…1f93d (20, 0, 13) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 4c 49 53 54 20 28 27 55 54 48 4f 50 50 53 46 ┆ PUT SKIP LIST ('UTHOPPSF┆
0x1f93d…1f95d 45 4c 20 49 54 4c 4c 20 48 4f 50 50 45 54 20 27 2c 55 54 48 4f 50 50 29 3b 20 20 20 20 20 20 20 ┆EL ITLL HOPPET ',UTHOPP); ┆
0x1f95d…1f96c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1f96c…1f9bb (20, 0, 14) 0x20[0x4f]
[…0x2…]
0x1fa59…1fa79 (20, 0, 17) 46 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 20 ┆F00: ┆
0x1fa79…1fa99 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1fa99…1faa8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1faa8…1fac8 (20, 0, 18) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 4c 49 53 54 20 28 27 4c 5b 53 46 45 4c 20 49 ┆ PUT SKIP LIST ('LÄSFEL I┆
0x1fac8…1fae8 20 41 42 4f 4e 4e 52 45 47 20 27 2c 53 54 32 41 42 4e 52 29 3b 20 20 20 20 20 20 20 20 20 20 20 ┆ ABONNREG ',ST2ABNR); ┆
0x1fae8…1faf7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1faf7…1fb17 (20, 0, 19) 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 5a 39 39 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GO TO Z99; ┆
0x1fb17…1fb37 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1fb37…1fb46 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1fb46…1fb95 (20, 0, 20) 0x20[0x4f]
0x1fb95…1fbb5 (20, 0, 21) 46 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 ┆F10: ┆
0x1fbb5…1fbd5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1fbd5…1fbe4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1fbe4…1fc04 (20, 0, 22) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 4c 49 53 54 20 28 27 50 4f 53 54 45 4e 20 53 ┆ PUT SKIP LIST ('POSTEN S┆
0x1fc04…1fc24 41 4b 4e 41 53 20 49 20 41 42 4f 4e 4e 52 45 47 20 27 2c 53 54 32 41 42 4e 52 29 3b 20 20 20 20 ┆AKNAS I ABONNREG ',ST2ABNR); ┆
0x1fc24…1fc33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1fc33…1fc53 (20, 0, 23) 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 5a 39 39 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GO TO Z99; ┆
0x1fc53…1fc73 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1fc73…1fc82 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1fc82…1fca2 (20, 0, 24) 47 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 20 ┆G00: ┆
0x1fca2…1fcc2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1fcc2…1fcd1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1fcd1…1fcf1 (20, 0, 25) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 4c 49 53 54 20 28 27 4c 5b 53 46 45 4c 20 49 ┆ PUT SKIP LIST ('LÄSFEL I┆
0x1fcf1…1fd11 20 53 54 41 54 52 45 47 31 20 27 2c 53 54 32 41 42 4e 52 29 3b 20 20 20 20 20 20 20 20 20 20 20 ┆ STATREG1 ',ST2ABNR); ┆
0x1fd11…1fd20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1fd20…1fd40 (20, 0, 26) 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 5a 39 39 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GO TO Z99; ┆
0x1fd40…1fd60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1fd60…1fd6f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1fd6f…1fd8f (20, 0, 27) 47 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 ┆G10: ┆
0x1fd8f…1fdaf 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1fdaf…1fdbe 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1fdbe…1fdde (20, 0, 28) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 4c 49 53 54 20 28 27 50 4f 53 54 45 4e 20 53 ┆ PUT SKIP LIST ('POSTEN S┆
0x1fdde…1fdfe 41 4b 4e 41 53 20 49 20 53 54 41 54 52 45 47 31 20 27 2c 53 54 32 41 42 4e 52 29 3b 20 20 20 20 ┆AKNAS I STATREG1 ',ST2ABNR); ┆
0x1fdfe…1fe0d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1fe0d…1fe2d (20, 0, 29) 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 5a 39 39 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GO TO Z99; ┆
0x1fe2d…1fe4d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1fe4d…1fe5c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1fe5c…1fe7c (20, 0, 30) 48 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 20 ┆H00: ┆
0x1fe7c…1fe9c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1fe9c…1feab 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1feab…1fecb (20, 0, 31) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 4c 49 53 54 20 28 27 4c 5b 53 46 45 4c 20 49 ┆ PUT SKIP LIST ('LÄSFEL I┆
0x1fecb…1feeb 20 53 54 32 52 45 47 20 20 27 2c 4f 4e 43 4f 44 45 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ST2REG ',ONCODE); ┆
0x1feeb…1fefa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1fefa…1ff1a (20, 0, 32) 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 5a 39 39 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GO TO Z99; ┆
0x1ff1a…1ff3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1ff3a…1ff49 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1ff49…1ff98 (20, 0, 33) 0x20[0x4f]
0x1ff98…1ffb8 (20, 0, 34) 48 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 ┆H10: ┆
0x1ffb8…1ffd8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1ffd8…1ffe7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1ffe7…20007 (20, 0, 35) 20 20 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 20 28 44 29 20 45 44 49 54 20 28 27 20 27 29 20 ┆ PUT FILE (D) EDIT (' ') ┆
0x20007…20027 28 41 28 34 37 29 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆(A(47)) ┆
0x20027…20036 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x20036…20056 (20, 0, 36) 20 20 20 20 20 20 20 20 20 20 20 20 28 27 53 5b 54 54 20 41 34 42 20 31 20 65 78 20 49 20 50 52 ┆ ('SÄTT A4B 1 ex I PR┆
0x20056…20076 49 4e 54 45 52 4e 27 29 20 28 41 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆INTERN') (A); ┆
0x20076…20085 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x20085…200a5 (20, 0, 37) 20 20 20 20 20 20 20 20 43 41 4c 4c 20 4f 55 54 50 55 54 20 28 31 2c 36 29 3b 20 20 20 20 20 20 ┆ CALL OUTPUT (1,6); ┆
0x200a5…200c5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x200c5…200d4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x200d4…200f4 (20, 0, 38) 20 20 20 20 20 20 20 20 47 45 54 20 53 4b 49 50 20 4c 49 53 54 20 28 53 54 4f 50 50 29 3b 20 20 ┆ GET SKIP LIST (STOPP); ┆
0x200f4…20114 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x20114…20123 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x20123…20143 (20, 0, 39) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 28 34 29 20 45 44 49 54 20 28 27 20 20 20 20 ┆ PUT SKIP (4) EDIT (' ┆
0x20143…20163 41 56 53 54 5b 4d 4e 49 4e 47 53 42 4c 41 44 20 66 7c 72 20 48 5c 47 53 50 5b 4e 4e 49 4e 47 53 ┆AVSTÄMNINGSBLAD för HÖGSPÄNNINGS┆
0x20163…20172 44 45 42 49 54 45 52 49 4e 47 20 20 20 20 27 ┆DEBITERING '┆
0x20172…20192 (20, 0, 40) 20 20 20 20 20 20 20 20 20 20 20 20 28 41 29 20 28 27 6b 76 61 72 74 61 6c 3a 20 27 29 20 28 41 ┆ (A) ('kvartal: ') (A┆
0x20192…201b2 29 20 28 50 41 52 41 44 45 42 50 45 52 29 20 28 41 29 20 28 27 20 20 20 20 20 20 20 20 44 41 54 ┆) (PARADEBPER) (A) (' DAT┆
0x201b2…201c1 55 4d 3a 20 27 29 20 28 41 29 20 20 20 20 20 ┆UM: ') (A) ┆
0x201c1…201e1 (20, 0, 41) 20 20 20 20 20 20 20 20 20 20 20 20 28 50 41 52 41 44 45 42 44 41 54 29 20 28 50 27 5a 5a 5a 5a ┆ (PARADEBDAT) (P'ZZZZ┆
0x201e1…20201 5a 39 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆Z9'); ┆
0x20201…20210 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x20210…20230 (20, 0, 42) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 28 34 29 20 45 44 49 54 20 28 27 54 41 52 49 ┆ PUT SKIP (4) EDIT ('TARI┆
0x20230…20250 46 46 27 29 20 28 41 28 33 31 29 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆FF') (A(31)) ┆
0x20250…2025f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2025f…2027f (20, 0, 43) 20 20 20 20 20 20 20 20 20 20 20 20 28 27 46 5c 52 42 52 55 4b 4e 49 4e 47 20 20 20 20 20 20 20 ┆ ('FÖRBRUKNING ┆
0x2027f…2029f 20 20 46 5c 52 42 52 2e 41 56 47 20 20 20 20 20 46 41 53 54 20 41 56 47 20 20 20 20 20 20 20 53 ┆ FÖRBR.AVG FAST AVG S┆
0x2029f…202ae 4b 41 54 54 34 20 20 20 20 20 20 20 27 29 20 ┆KATT4 ') ┆
0x202ae…202ce (20, 0, 44) 20 20 20 20 20 20 20 20 20 20 20 20 28 41 29 20 28 27 53 4b 41 54 54 33 20 20 20 20 20 52 55 4e ┆ (A) ('SKATT3 RUN┆
0x202ce…202ee 44 2e 42 45 4c 20 20 20 20 20 20 20 20 54 4f 54 41 4c 20 20 20 20 41 4e 54 41 4c 27 29 20 28 41 ┆D.BEL TOTAL ANTAL') (A┆
0x202ee…202fd 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆); ┆
0x202fd…2031d (20, 0, 45) 20 20 20 20 20 20 20 20 44 4f 20 54 20 3d 20 31 20 54 4f 20 32 3b 20 20 20 20 20 20 20 20 20 20 ┆ DO T = 1 TO 2; ┆
0x2031d…2033d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2033d…2034c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2034c…2036c (20, 0, 46) 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 28 32 29 20 45 44 49 54 20 28 57 ┆ PUT SKIP (2) EDIT (W┆
0x2036c…2038c 54 41 58 41 20 28 54 29 29 20 28 41 28 33 32 29 29 20 28 57 46 42 52 20 28 54 29 29 20 28 50 27 ┆TAXA (T)) (A(32)) (WFBR (T)) (P'┆
0x2038c…2039b 5a 5a 5a 5a 5a 5a 5a 5a 5a 39 27 29 20 20 20 ┆ZZZZZZZZZ9') ┆
0x2039b…203bb (20, 0, 47) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 27 20 27 29 20 28 41 28 35 29 29 20 20 20 20 ┆ (' ') (A(5)) ┆
0x203bb…203db 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x203db…203ea 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x203ea…2040a (20, 0, 48) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 27 20 20 27 29 20 28 41 29 20 28 57 46 42 52 ┆ (' ') (A) (WFBR┆
0x2040a…2042a 41 56 47 20 28 54 29 29 20 28 50 27 2d 2d 2d 2d 2d 2d 2d 39 56 3a 39 39 27 29 20 20 20 20 20 20 ┆AVG (T)) (P'-------9V:99') ┆
0x2042a…20439 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x20439…20459 (20, 0, 49) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 27 20 20 27 29 20 28 41 29 20 28 57 46 41 53 ┆ (' ') (A) (WFAS┆
0x20459…20479 54 41 56 47 20 28 54 29 29 20 28 50 27 2d 2d 2d 2d 2d 2d 2d 39 56 3a 39 39 27 29 20 20 20 20 20 ┆TAVG (T)) (P'-------9V:99') ┆
0x20479…20488 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x20488…204a8 (20, 0, 50) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 27 20 20 27 29 20 28 41 29 20 28 57 53 4b 41 ┆ (' ') (A) (WSKA┆
0x204a8…204c8 54 54 34 20 28 54 29 29 20 28 50 27 2d 2d 2d 2d 2d 2d 2d 39 56 3a 39 39 27 29 20 20 20 20 20 20 ┆TT4 (T)) (P'-------9V:99') ┆
0x204c8…204d7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x204d7…204f7 (20, 0, 51) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 27 20 20 27 29 20 28 41 29 20 28 57 53 4b 41 ┆ (' ') (A) (WSKA┆
0x204f7…20517 54 54 33 20 28 54 29 29 20 28 50 27 2d 2d 2d 2d 2d 2d 2d 39 56 3a 39 39 27 29 20 20 20 20 20 20 ┆TT3 (T)) (P'-------9V:99') ┆
0x20517…20526 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x20526…20546 (20, 0, 52) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 27 20 20 27 29 20 28 41 29 20 28 57 53 4b 4f ┆ (' ') (A) (WSKO┆
0x20546…20566 52 45 53 55 54 4a 20 28 54 29 29 20 28 50 27 2d 2d 2d 2d 2d 2d 2d 39 56 3a 39 39 27 29 3b 20 20 ┆RESUTJ (T)) (P'-------9V:99'); ┆
0x20566…20575 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x20575…20595 (20, 0, 53) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 53 41 4d 54 4f 54 20 28 54 29 20 3d 20 28 57 ┆ WSAMTOT (T) = (W┆
0x20595…205b5 46 42 52 41 56 47 20 28 54 29 20 2b 20 57 46 41 53 54 41 56 47 20 28 54 29 20 2b 20 57 53 4b 41 ┆FBRAVG (T) + WFASTAVG (T) + WSKA┆
0x205b5…205c4 54 54 34 20 28 54 29 20 2b 20 20 20 20 20 20 ┆TT4 (T) + ┆
0x205c4…205e4 (20, 0, 54) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 53 4b 41 54 54 33 20 28 54 29 20 2b 20 57 53 ┆ WSKATT3 (T) + WS┆
0x205e4…20604 4b 4f 52 45 53 55 54 4a 20 28 54 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆KORESUTJ (T)); ┆
0x20604…20613 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x20613…20633 (20, 0, 55) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 45 44 49 54 20 28 27 20 20 27 29 20 ┆ PUT EDIT (' ') ┆
0x20633…20653 28 41 29 20 28 57 53 41 4d 54 4f 54 20 28 54 29 29 20 28 50 27 2d 2d 2d 2d 2d 2d 2d 39 56 3a 39 ┆(A) (WSAMTOT (T)) (P'-------9V:9┆
0x20653…20662 39 27 29 20 20 20 20 20 20 20 20 20 20 20 20 ┆9') ┆
0x20662…20682 (20, 0, 56) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 27 20 20 27 29 20 28 41 29 20 28 57 41 42 41 ┆ (' ') (A) (WABA┆
0x20682…206a2 4e 54 20 28 54 29 29 20 28 50 27 5a 5a 5a 5a 39 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆NT (T)) (P'ZZZZ9'); ┆
0x206a2…206b1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x206b1…206d1 (20, 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; ┆
0x206d1…206f1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x206f1…20700 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x20700…20720 (20, 0, 58) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 28 32 29 20 45 44 49 54 20 28 27 53 55 4d 4d 41 ┆ PUT SKIP(2) EDIT ('SUMMA┆
0x20720…20740 27 29 20 28 41 28 33 32 29 29 20 28 57 46 42 52 20 28 31 29 20 2b 20 57 46 42 52 20 28 32 29 29 ┆') (A(32)) (WFBR (1) + WFBR (2))┆
0x20740…2074f 28 50 27 5a 5a 5a 5a 5a 5a 5a 5a 5a 39 27 29 ┆(P'ZZZZZZZZZ9')┆
0x2074f…2076f (20, 0, 59) 20 20 20 20 20 20 20 20 20 20 20 20 28 27 20 27 29 20 28 41 28 37 29 29 20 28 57 46 42 52 41 56 ┆ (' ') (A(7)) (WFBRAV┆
0x2076f…2078f 47 20 28 31 29 20 2b 20 57 46 42 52 41 56 47 20 28 32 29 29 20 28 50 27 2d 2d 2d 2d 2d 2d 2d 39 ┆G (1) + WFBRAVG (2)) (P'-------9┆
0x2078f…2079e 56 3a 39 39 27 29 20 20 20 20 20 20 20 20 20 ┆V:99') ┆
0x2079e…207be (20, 0, 60) 20 20 20 20 20 20 20 20 20 20 20 20 28 27 20 27 29 20 28 41 28 32 29 29 20 28 57 46 41 53 54 41 ┆ (' ') (A(2)) (WFASTA┆
0x207be…207de 56 47 20 28 31 29 20 2b 20 57 46 41 53 54 41 56 47 20 28 32 29 29 20 28 50 27 2d 2d 2d 2d 2d 2d ┆VG (1) + WFASTAVG (2)) (P'------┆
0x207de…207ed 2d 39 56 3a 39 39 27 29 20 20 20 20 20 20 20 ┆-9V:99') ┆
0x207ed…2080d (20, 0, 61) 20 20 20 20 20 20 20 20 20 20 20 20 28 27 20 27 29 20 28 41 28 32 29 29 20 28 57 53 4b 41 54 54 ┆ (' ') (A(2)) (WSKATT┆
0x2080d…2082d 34 20 28 31 29 20 2b 20 57 53 4b 41 54 54 34 20 28 32 29 29 20 28 50 27 2d 2d 2d 2d 2d 2d 2d 39 ┆4 (1) + WSKATT4 (2)) (P'-------9┆
0x2082d…2083c 56 3a 39 39 27 29 20 20 20 20 20 20 20 20 20 ┆V:99') ┆
0x2083c…2085c (20, 0, 62) 20 20 20 20 20 20 20 20 20 20 20 20 28 27 20 27 29 20 28 41 28 32 29 29 20 28 57 53 4b 41 54 54 ┆ (' ') (A(2)) (WSKATT┆
0x2085c…2087c 33 20 28 31 29 20 2b 20 57 53 4b 41 54 54 33 20 28 32 29 29 20 28 50 27 2d 2d 2d 2d 2d 2d 2d 39 ┆3 (1) + WSKATT3 (2)) (P'-------9┆
0x2087c…2088b 56 3a 39 39 27 29 20 20 20 20 20 20 20 20 20 ┆V:99') ┆
0x2088b…208ab (20, 0, 63) 20 20 20 20 20 20 20 20 20 20 20 20 28 27 20 27 29 20 28 41 28 32 29 29 20 28 57 53 4b 4f 52 45 ┆ (' ') (A(2)) (WSKORE┆
0x208ab…208cb 53 55 54 4a 20 28 31 29 20 2b 20 57 53 4b 4f 52 45 53 55 54 4a 20 28 32 29 29 20 28 50 27 2d 2d ┆SUTJ (1) + WSKORESUTJ (2)) (P'--┆
0x208cb…208da 2d 2d 2d 2d 2d 39 56 3a 39 39 27 29 20 20 20 ┆-----9V:99') ┆
0x208da…208fa (20, 0, 64) 20 20 20 20 20 20 20 20 20 20 20 20 28 27 20 27 29 20 28 41 28 32 29 29 20 28 57 53 41 4d 54 4f ┆ (' ') (A(2)) (WSAMTO┆
0x208fa…2091a 54 20 28 31 29 20 2b 20 57 53 41 4d 54 4f 54 20 28 32 29 29 20 28 50 27 2d 2d 2d 2d 2d 2d 2d 39 ┆T (1) + WSAMTOT (2)) (P'-------9┆
0x2091a…20929 56 3a 39 39 27 29 20 20 20 20 20 20 20 20 20 ┆V:99') ┆
0x20929…20949 (20, 0, 65) 20 20 20 20 20 20 20 20 20 20 20 20 28 27 20 20 27 29 20 28 41 29 20 28 57 41 42 41 4e 54 20 28 ┆ (' ') (A) (WABANT (┆
0x20949…20969 31 29 20 2b 20 57 41 42 41 4e 54 20 28 32 29 29 20 28 50 27 5a 5a 5a 5a 39 27 29 3b 20 20 20 20 ┆1) + WABANT (2)) (P'ZZZZ9'); ┆
0x20969…20978 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x20978…20998 (20, 0, 66) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 28 34 29 20 45 44 49 54 20 28 27 46 5c 52 44 ┆ PUT SKIP (4) EDIT ('FÖRD┆
0x20998…209b8 45 4c 4e 49 4e 47 20 41 56 20 46 5c 52 42 52 55 4b 4e 49 4e 47 41 52 20 50 5d 20 53 4b 41 54 54 ┆ELNING AV FÖRBRUKNINGAR PÅ SKATT┆
0x209b8…209c7 45 53 41 54 53 45 52 27 29 20 28 41 29 3b 20 ┆ESATSER') (A); ┆
0x209c7…209e7 (20, 0, 67) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 28 32 29 20 45 44 49 54 20 28 27 53 4b 41 54 ┆ PUT SKIP (2) EDIT ('SKAT┆
0x209e7…20a07 54 20 34 20 7c 72 65 2f 6b 57 68 20 27 29 20 28 41 28 33 32 29 29 20 20 20 20 20 20 20 20 20 20 ┆T 4 öre/kWh ') (A(32)) ┆
0x20a07…20a16 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x20a16…20a36 (20, 0, 68) 20 20 20 20 20 20 20 20 20 20 20 20 28 57 53 4b 34 46 42 52 20 28 31 29 20 2b 20 57 53 4b 34 46 ┆ (WSK4FBR (1) + WSK4F┆
0x20a36…20a56 42 52 20 28 32 29 29 20 28 50 27 2d 2d 2d 2d 2d 2d 2d 2d 2d 39 27 29 20 28 27 20 20 6b 57 68 27 ┆BR (2)) (P'---------9') (' kWh'┆
0x20a56…20a65 29 20 28 41 29 3b 20 20 20 20 20 20 20 20 20 ┆) (A); ┆
0x20a65…20a85 (20, 0, 69) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 28 32 29 20 45 44 49 54 20 28 27 53 4b 41 54 ┆ PUT SKIP (2) EDIT ('SKAT┆
0x20a85…20aa5 54 20 33 20 7c 72 65 2f 6b 57 68 20 27 29 20 28 41 28 33 32 29 29 20 20 20 20 20 20 20 20 20 20 ┆T 3 öre/kWh ') (A(32)) ┆
0x20aa5…20ab4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x20ab4…20ad4 (20, 0, 70) 20 20 20 20 20 20 20 20 20 20 20 20 28 57 53 4b 33 46 42 52 20 28 31 29 20 2b 20 57 53 4b 33 46 ┆ (WSK3FBR (1) + WSK3F┆
0x20ad4…20af4 42 52 20 28 32 29 29 20 28 50 27 2d 2d 2d 2d 2d 2d 2d 2d 2d 39 27 29 20 28 27 20 20 6b 57 68 27 ┆BR (2)) (P'---------9') (' kWh'┆
0x20af4…20b03 29 20 28 41 29 3b 20 20 20 20 20 20 20 20 20 ┆) (A); ┆
0x20b03…20b23 (20, 0, 71) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 28 32 29 20 45 44 49 54 20 28 27 53 4b 41 54 ┆ PUT SKIP (2) EDIT ('SKAT┆
0x20b23…20b43 54 45 46 52 49 20 27 29 20 28 41 28 33 32 29 29 20 28 57 53 4b 30 46 42 52 20 28 31 29 20 2b 20 ┆TEFRI ') (A(32)) (WSK0FBR (1) + ┆
0x20b43…20b52 57 53 4b 30 46 42 52 20 28 32 29 29 20 20 20 ┆WSK0FBR (2)) ┆
0x20b52…20b72 (20, 0, 72) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 50 27 2d 2d 2d 2d 2d 2d 2d 2d 2d 39 27 29 20 ┆ (P'---------9') ┆
0x20b72…20b92 28 27 20 20 6b 57 68 27 29 20 28 41 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆(' kWh') (A); ┆
0x20b92…20ba1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x20ba1…20bc1 (20, 0, 73) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 28 32 29 20 45 44 49 54 20 28 27 53 55 4d 4d ┆ PUT SKIP (2) EDIT ('SUMM┆
0x20bc1…20be1 41 20 66 7c 72 62 72 75 6b 6e 69 6e 67 20 27 29 20 28 41 28 33 32 29 29 20 20 20 20 20 20 20 20 ┆A förbrukning ') (A(32)) ┆
0x20be1…20bf0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x20bf0…20c10 (20, 0, 74) 20 20 20 20 20 20 20 20 20 20 20 20 28 57 53 4b 34 46 42 52 20 28 31 29 20 2b 20 57 53 4b 34 46 ┆ (WSK4FBR (1) + WSK4F┆
0x20c10…20c30 42 52 20 28 32 29 20 2b 20 57 53 4b 33 46 42 52 20 28 31 29 20 2b 20 57 53 4b 33 46 42 52 20 28 ┆BR (2) + WSK3FBR (1) + WSK3FBR (┆
0x20c30…20c3f 32 29 20 2b 20 57 53 4b 30 46 42 52 20 28 31 ┆2) + WSK0FBR (1┆
0x20c3f…20c5f (20, 0, 75) 20 20 20 20 20 20 20 20 20 20 20 20 2b 20 57 53 4b 30 46 42 52 20 28 32 29 29 20 28 50 27 2d 2d ┆ + WSK0FBR (2)) (P'--┆
0x20c5f…20c7f 2d 2d 2d 2d 2d 2d 2d 39 27 29 20 28 27 20 20 6b 57 68 27 29 20 28 41 29 3b 20 20 20 20 20 20 20 ┆-------9') (' kWh') (A); ┆
0x20c7f…20c8e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x20c8e…20cae (20, 0, 76) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 28 32 35 29 20 45 44 49 54 20 28 27 20 27 29 ┆ PUT SKIP (25) EDIT (' ')┆
0x20cae…20cce 20 28 41 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 ┆ (A); ┆
0x20cce…20cdd 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x20cdd…20d2c (20, 0, 77) 0x20[0x4f]
[…0x1…]
0x20d7b…20d9b (20, 0, 79) 5a 39 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 ┆Z99: ┆
0x20d9b…20dbb 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x20dbb…20dca 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x20dca…20dea (20, 0, 80) 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 20 20 20 20 ┆ END; ┆
0x20dea…20e0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x20e0a…20e19 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x20e19…20e68 (20, 0, 81) 0x00[0x4f]
0x20e68…20eb7 (21, 0, 0) DataSector[0x4f]
[…0x342…]
0x31015…31035 (31, 0, 15) 20 20 20 20 20 20 20 50 45 52 45 46 42 52 20 3d 20 41 56 4c 45 4d 53 54 20 2d 20 53 54 31 45 4d ┆ PEREFBR = AVLEMST - ST1EM┆
0x31035…31055 53 54 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ST; ┆
0x31055…31064 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x31064…31084 (31, 0, 16) 20 20 20 20 20 20 20 20 4e 59 53 54 31 45 46 42 52 20 3d 20 50 45 52 45 46 42 52 20 2a 20 41 42 ┆ NYST1EFBR = PEREFBR * AB┆
0x31084…310a4 45 4b 4e 53 54 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆EKNST; ┆
0x310a4…310b3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x310b3…31102 (31, 0, 17) 0x20[0x4f]
0x31102…31122 (31, 0, 18) 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 20 20 20 20 ┆A300: ┆
0x31122…31142 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x31142…31151 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x31151…31171 (31, 0, 19) 20 20 20 20 20 20 20 20 4e 59 53 54 31 4b 56 20 3d 20 41 56 4c 4b 56 41 52 54 41 4c 3b 20 20 20 ┆ NYST1KV = AVLKVARTAL; ┆
0x31171…31191 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x31191…311a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x311a0…311c0 (31, 0, 20) 20 20 20 20 20 20 20 20 4e 59 53 54 31 50 45 52 20 3d 20 41 56 4c 50 45 52 49 4f 44 3b 20 20 20 ┆ NYST1PER = AVLPERIOD; ┆
0x311c0…311e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x311e0…311ef 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x311ef…3120f (31, 0, 21) 20 20 20 20 20 20 20 20 4e 59 53 54 31 41 56 4c 44 41 54 20 3d 20 41 56 4c 44 41 54 3b 20 20 20 ┆ NYST1AVLDAT = AVLDAT; ┆
0x3120f…3122f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3122f…3123e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3123e…3125e (31, 0, 22) 20 20 20 20 20 20 20 20 4e 59 53 54 31 50 4d 53 54 20 3d 20 41 56 4c 50 4d 53 54 3b 20 20 20 20 ┆ NYST1PMST = AVLPMST; ┆
0x3125e…3127e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3127e…3128d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3128d…312ad (31, 0, 23) 20 20 20 20 20 20 20 20 4e 59 53 54 31 50 4b 4e 53 54 20 3d 20 41 42 50 4b 4e 53 54 3b 20 20 20 ┆ NYST1PKNST = ABPKNST; ┆
0x312ad…312cd 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x312cd…312dc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x312dc…312fc (31, 0, 24) 20 20 20 20 20 20 20 20 4e 59 53 54 31 45 4d 53 54 20 3d 20 41 56 4c 45 4d 53 54 3b 20 20 20 20 ┆ NYST1EMST = AVLEMST; ┆
0x312fc…3131c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3131c…3132b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3132b…3134b (31, 0, 25) 20 20 20 20 20 20 20 20 4e 59 53 54 31 45 4b 4e 53 54 20 3d 20 41 42 45 4b 4e 53 54 3b 20 20 20 ┆ NYST1EKNST = ABEKNST; ┆
0x3134b…3136b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3136b…3137a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3137a…3139a (31, 0, 26) 20 20 20 20 20 20 20 20 53 54 31 49 4e 44 55 4d 4d 59 20 28 41 56 4c 50 45 52 49 4f 44 20 2b 20 ┆ ST1INDUMMY (AVLPERIOD + ┆
0x3139a…313ba 31 29 20 3d 20 4e 59 53 54 31 44 45 4c 50 4f 53 54 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆1) = NYST1DELPOST; ┆
0x313ba…313c9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x313c9…31418 (31, 0, 27) 0x20[0x4f]
0x31418…31438 (31, 0, 28) 20 20 20 20 20 20 20 20 52 45 57 52 49 54 45 20 46 49 4c 45 20 28 53 54 41 54 52 45 47 31 29 20 ┆ REWRITE FILE (STATREG1) ┆
0x31438…31458 46 52 4f 4d 20 28 53 54 31 49 4e 41 52 45 41 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆FROM (ST1INAREA); ┆
0x31458…31467 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x31467…31487 (31, 0, 29) 20 20 20 20 20 20 20 20 41 42 45 4d 53 54 20 3d 20 4e 59 53 54 31 45 4d 53 54 3b 20 20 20 20 20 ┆ ABEMST = NYST1EMST; ┆
0x31487…314a7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x314a7…314b6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x314b6…314d6 (31, 0, 30) 20 20 20 20 20 20 20 20 41 42 50 4d 53 54 20 3d 20 4e 59 53 54 31 50 4d 53 54 3b 20 20 20 20 20 ┆ ABPMST = NYST1PMST; ┆
0x314d6…314f6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x314f6…31505 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x31505…31525 (31, 0, 31) 20 20 20 20 20 20 20 20 52 45 57 52 49 54 45 20 46 49 4c 45 20 28 41 42 4f 4e 4e 52 45 47 29 20 ┆ REWRITE FILE (ABONNREG) ┆
0x31525…31545 46 52 4f 4d 20 28 41 42 4f 4e 50 4f 53 54 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆FROM (ABONPOST); ┆
0x31545…31554 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x31554…31574 (31, 0, 32) 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 41 32 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GO TO A20; ┆
0x31574…31594 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x31594…315a3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x315a3…315f2 (31, 0, 33) 0x20[0x4f]
0x315f2…31612 (31, 0, 34) 42 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 ┆B10: ┆
0x31612…31632 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x31632…31641 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x31641…31661 (31, 0, 35) 20 20 20 20 20 20 20 20 49 46 20 53 55 42 53 54 52 20 28 41 42 4d 41 4e 2c 31 2c 31 29 20 3d 20 ┆ IF SUBSTR (ABMAN,1,1) = ┆
0x31661…31681 27 4d 27 20 54 48 45 4e 20 47 4f 20 54 4f 20 41 32 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆'M' THEN GO TO A20; ┆
0x31681…31690 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x31690…316b0 (31, 0, 36) 20 20 20 20 20 20 20 20 49 46 20 48 4b 20 3d 20 27 31 27 20 54 48 45 4e 20 47 4f 20 54 4f 20 42 ┆ IF HK = '1' THEN GO TO B┆
0x316b0…316d0 31 33 3b 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 48 4b 3d 31 2c 20 53 45 4f 46 20 53 54 41 ┆13; /* HK=1, SEOF STA┆
0x316d0…316df 54 52 45 47 32 20 47 5c 52 53 20 45 4a 2a 2f ┆TREG2 GÖRS EJ*/┆
0x316df…316ff (31, 0, 37) 20 20 20 20 20 20 20 20 49 46 20 48 4b 20 3d 20 27 32 27 20 54 48 45 4e 20 47 4f 20 54 4f 20 42 ┆ IF HK = '2' THEN GO TO B┆
0x316ff…3171f 32 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 53 4c 55 54 20 55 4d 5b 54 4b 4f 4e 54 52 ┆20; /* SLUT UMÄTKONTR┆
0x3171f…3172e 2e 20 41 56 4c 20 46 49 4e 4e 53 20 2a 2f 20 ┆. AVL FINNS */ ┆
0x3172e…3174e (31, 0, 38) 20 20 20 20 20 20 20 20 4f 50 45 4e 20 53 54 41 54 52 45 47 32 3b 20 20 20 20 20 20 20 20 20 20 ┆ OPEN STATREG2; ┆
0x3174e…3176e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3176e…3177d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3177d…3179d (31, 0, 39) 20 20 20 20 20 20 20 20 43 41 4c 4c 20 53 45 4f 46 20 28 53 54 41 54 52 45 47 32 29 3b 20 20 20 ┆ CALL SEOF (STATREG2); ┆
0x3179d…317bd 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x317bd…317cc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x317cc…317ec (31, 0, 40) 20 20 20 20 20 20 20 20 4f 50 45 4e 20 50 41 52 41 44 45 42 46 3b 20 20 20 20 20 20 20 20 20 20 ┆ OPEN PARADEBF; ┆
0x317ec…3180c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3180c…3181b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3181b…3183b (31, 0, 41) 20 20 20 20 20 20 20 20 52 45 41 44 20 46 49 4c 45 20 28 50 41 52 41 44 45 42 46 29 20 49 4e 54 ┆ READ FILE (PARADEBF) INT┆
0x3183b…3185b 4f 20 28 50 41 52 41 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 (PARAPOST); ┆
0x3185b…3186a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3186a…3188a (31, 0, 42) 20 20 20 20 20 20 20 20 48 4b 20 3d 20 27 31 27 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ HK = '1'; ┆
0x3188a…318aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x318aa…318b9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x318b9…318d9 (31, 0, 43) 20 20 20 20 20 20 20 20 4f 50 45 4e 20 53 41 4d 46 49 4c 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆ OPEN SAMFIL; ┆
0x318d9…318f9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x318f9…31908 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x31908…31928 (31, 0, 44) 42 31 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 ┆B11: ┆
0x31928…31948 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x31948…31957 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x31957…31977 (31, 0, 45) 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 42 31 32 3b 20 20 20 ┆ ON ENDFILE GO TO B12; ┆
0x31977…31997 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 20 20 4e 4f 4c 4c 53 54 2e 41 56 20 44 45 ┆ /* NOLLST.AV DE┆
0x31997…319a6 42 4d 41 52 4b 2e 20 20 20 20 2a 2f 20 20 20 ┆BMARK. */ ┆
0x319a6…319c6 (31, 0, 46) 20 20 20 20 20 20 20 20 52 45 41 44 20 46 49 4c 45 20 28 53 41 4d 46 49 4c 29 20 49 4e 54 4f 20 ┆ READ FILE (SAMFIL) INTO ┆
0x319c6…319e6 28 53 41 4d 49 4e 41 52 45 41 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆(SAMINAREA); ┆
0x319e6…319f5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x319f5…31a15 (31, 0, 47) 20 20 20 20 20 20 20 20 53 49 4e 44 20 3d 20 41 44 44 52 20 28 53 41 4d 49 4e 41 52 45 41 29 3b ┆ SIND = ADDR (SAMINAREA);┆
0x31a15…31a35 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x31a35…31a44 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x31a44…31a64 (31, 0, 48) 20 20 20 20 20 20 20 20 55 50 45 4b 41 52 45 20 3d 20 53 49 4e 44 20 2b 20 31 35 3b 20 20 20 20 ┆ UPEKARE = SIND + 15; ┆
0x31a64…31a84 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x31a84…31a93 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x31a93…31ab3 (31, 0, 49) 20 20 20 20 20 20 20 20 44 4f 20 4a 20 3d 20 31 20 54 4f 20 32 30 3b 20 20 20 20 20 20 20 20 20 ┆ DO J = 1 TO 20; ┆
0x31ab3…31ad3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x31ad3…31ae2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x31ae2…31b02 (31, 0, 50) 20 20 20 20 20 20 20 20 20 20 20 20 55 50 45 4b 41 52 45 20 3d 20 55 50 45 4b 41 52 45 20 2b 20 ┆ UPEKARE = UPEKARE + ┆
0x31b02…31b22 32 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; ┆
0x31b22…31b31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x31b31…31b51 (31, 0, 51) 20 20 20 20 20 20 20 20 20 20 20 20 55 4e 53 50 45 43 20 28 53 49 4e 44 29 20 3d 20 55 50 45 4b ┆ UNSPEC (SIND) = UPEK┆
0x31b51…31b71 41 52 45 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 ┆ARE; ┆
0x31b71…31b80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x31b80…31ba0 (31, 0, 52) 20 20 20 20 20 20 20 20 20 20 20 20 53 44 45 42 4d 41 52 4b 20 3d 20 27 30 27 3b 20 20 20 20 20 ┆ SDEBMARK = '0'; ┆
0x31ba0…31bc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x31bc0…31bcf 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x31bcf…31bef (31, 0, 53) 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; ┆
0x31bef…31c0f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x31c0f…31c1e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x31c1e…31c3e (31, 0, 54) 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 42 31 31 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GO TO B11; ┆
0x31c3e…31c5e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x31c5e…31c6d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x31c6d…31cbc (31, 0, 55) 0x20[0x4f]
0x31cbc…31cdc (31, 0, 56) 42 31 32 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 ┆B12: ┆
0x31cdc…31cfc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x31cfc…31d0b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x31d0b…31d2b (31, 0, 57) 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 42 31 33 3b 20 20 20 ┆ ON ENDFILE GO TO B13; ┆
0x31d2b…31d4b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 20 4e 4f 4c 4c 53 54 2e 20 41 56 20 55 44 ┆ /* NOLLST. AV UD┆
0x31d4b…31d5a 45 42 46 49 4c 45 4e 2e 20 20 20 2a 2f 20 20 ┆EBFILEN. */ ┆
0x31d5a…31d7a (31, 0, 58) 20 20 20 20 20 20 20 20 52 45 41 44 20 46 49 4c 45 20 28 55 44 45 42 29 20 49 4e 54 4f 20 28 55 ┆ READ FILE (UDEB) INTO (U┆
0x31d7a…31d9a 44 45 42 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 20 20 20 20 ┆DEBPOST); ┆
0x31d9a…31da9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x31da9…31dc9 (31, 0, 59) 20 20 20 20 20 20 20 20 55 44 45 42 46 49 4c 4c 45 52 20 3d 20 27 20 20 20 20 20 20 20 20 20 20 ┆ UDEBFILLER = ' ┆
0x31dc9…31de9 20 20 20 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 ┆ '; ┆
0x31de9…31df8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x31df8…31e18 (31, 0, 60) 20 20 20 20 20 20 20 20 55 50 45 4b 41 52 45 20 3d 20 41 44 44 52 20 28 55 44 45 42 50 4f 53 54 ┆ UPEKARE = ADDR (UDEBPOST┆
0x31e18…31e38 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 ┆); ┆
0x31e38…31e47 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x31e47…31e67 (31, 0, 61) 20 20 20 20 20 20 20 20 48 4a 55 50 45 4b 41 52 45 20 3d 20 55 50 45 4b 41 52 45 20 2b 20 32 37 ┆ HJUPEKARE = UPEKARE + 27┆
0x31e67…31e87 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 ┆; ┆
0x31e87…31e96 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x31e96…31eb6 (31, 0, 62) 20 20 20 20 20 20 20 20 55 50 45 4b 41 52 45 20 3d 20 48 4a 55 50 45 4b 41 52 45 20 2b 20 28 50 ┆ UPEKARE = HJUPEKARE + (P┆
0x31eb6…31ed6 41 52 41 44 45 42 50 45 52 20 2d 20 31 29 20 2a 20 33 20 2a 20 32 30 3b 20 20 20 20 20 20 20 20 ┆ARADEBPER - 1) * 3 * 20; ┆
0x31ed6…31ee5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x31ee5…31f05 (31, 0, 63) 20 20 20 20 20 20 20 20 44 4f 20 4a 20 3d 20 31 20 54 4f 20 33 3b 20 20 20 20 20 20 20 20 20 20 ┆ DO J = 1 TO 3; ┆
0x31f05…31f25 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x31f25…31f34 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x31f34…31f54 (31, 0, 64) 20 20 20 20 20 20 20 20 20 20 20 20 55 50 45 4b 41 52 45 20 3d 20 55 50 45 4b 41 52 45 20 2b 20 ┆ UPEKARE = UPEKARE + ┆
0x31f54…31f74 32 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; ┆
0x31f74…31f83 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x31f83…31fa3 (31, 0, 65) 20 20 20 20 20 20 20 20 20 20 20 20 55 4e 53 50 45 43 20 28 55 49 4e 44 29 20 3d 20 55 50 45 4b ┆ UNSPEC (UIND) = UPEK┆
0x31fa3…31fc3 41 52 45 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 ┆ARE; ┆
0x31fc3…31fd2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x31fd2…31ff2 (31, 0, 66) 20 20 20 20 20 20 20 20 20 20 20 20 55 44 4b 56 20 3d 20 27 20 27 3b 20 20 20 20 20 20 20 20 20 ┆ UDKV = ' '; ┆
0x31ff2…32012 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x32012…32021 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x32021…32041 (31, 0, 67) 20 20 20 20 20 20 20 20 20 20 20 20 55 44 50 45 52 20 3d 20 30 3b 20 20 20 20 20 20 20 20 20 20 ┆ UDPER = 0; ┆
0x32041…32061 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x32061…32070 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x32070…32090 (31, 0, 68) 20 20 20 20 20 20 20 20 20 20 20 20 55 44 50 20 3d 20 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆ UDP = 0; ┆
0x32090…320b0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x320b0…320bf 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x320bf…320df (31, 0, 69) 20 20 20 20 20 20 20 20 20 20 20 20 55 44 45 20 3d 20 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆ UDE = 0; ┆
0x320df…320ff 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x320ff…3210e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3210e…3212e (31, 0, 70) 20 20 20 20 20 20 20 20 20 20 20 20 55 44 46 49 4c 4c 45 52 20 3d 20 27 20 20 20 20 20 20 20 27 ┆ UDFILLER = ' '┆
0x3212e…3214e 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 ┆; ┆
0x3214e…3215d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3215d…3217d (31, 0, 71) 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; ┆
0x3217d…3219d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3219d…321ac 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x321ac…321cc (31, 0, 72) 20 20 20 20 20 20 20 20 52 45 57 52 49 54 45 20 46 49 4c 45 20 28 55 44 45 42 29 20 46 52 4f 4d ┆ REWRITE FILE (UDEB) FROM┆
0x321cc…321ec 20 28 55 44 45 42 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 20 ┆ (UDEBPOST); ┆
0x321ec…321fb 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x321fb…3221b (31, 0, 73) 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 42 31 32 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GO TO B12; ┆
0x3221b…3223b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3223b…3224a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3224a…3226a (31, 0, 74) 42 31 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 ┆B13: ┆
0x3226a…3228a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3228a…32299 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x32299…322b9 (31, 0, 75) 20 20 20 20 20 20 20 20 49 46 20 48 4b 20 3d 20 27 32 27 20 54 48 45 4e 20 47 4f 20 54 4f 20 42 ┆ IF HK = '2' THEN GO TO B┆
0x322b9…322d9 32 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; ┆
0x322d9…322e8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x322e8…32308 (31, 0, 76) 20 20 20 20 20 20 20 20 4f 50 45 4e 20 55 44 45 42 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ OPEN UDEB; ┆
0x32308…32328 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x32328…32337 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x32337…32357 (31, 0, 77) 20 20 20 20 20 20 20 20 4f 50 45 4e 20 53 41 4d 46 49 4c 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆ OPEN SAMFIL; ┆
0x32357…32377 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x32377…32386 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x32386…323a6 (31, 0, 78) 20 20 20 20 20 20 20 20 49 46 20 53 55 42 53 54 52 20 28 41 42 4d 41 4e 2c 32 2c 31 29 20 3d 20 ┆ IF SUBSTR (ABMAN,2,1) = ┆
0x323a6…323c6 27 53 27 20 7c 20 53 55 42 53 54 52 20 28 41 42 4d 41 4e 2c 32 2c 31 29 20 3d 20 27 55 27 20 54 ┆'S' ö SUBSTR (ABMAN,2,1) = 'U' T┆
0x323c6…323d5 48 45 4e 20 47 4f 20 54 4f 20 42 31 34 3b 20 ┆HEN GO TO B14; ┆
0x323d5…323f5 (31, 0, 79) 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 41 32 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GO TO A20; ┆
0x323f5…32415 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x32415…32424 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x32424…32473 (31, 0, 80) 0x20[0x4f]
[…0x1…]
0x324c2…324e2 (32, 0, 0) 42 31 34 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 ┆B14: ┆
0x324e2…32502 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x32502…32511 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x32511…32531 (32, 0, 1) 20 20 20 20 20 20 20 20 52 45 41 44 20 4b 45 59 20 28 41 42 48 41 42 4e 52 29 20 46 49 4c 45 20 ┆ READ KEY (ABHABNR) FILE ┆
0x32531…32551 28 55 44 45 42 29 20 49 4e 54 4f 20 28 55 44 45 42 50 4f 53 54 29 3b 20 20 20 20 20 20 20 20 20 ┆(UDEB) INTO (UDEBPOST); ┆
0x32551…32560 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x32560…32580 (32, 0, 2) 20 20 20 20 20 20 20 20 52 45 41 44 20 4b 45 59 20 28 41 42 48 41 42 4e 52 29 20 46 49 4c 45 20 ┆ READ KEY (ABHABNR) FILE ┆
0x32580…325a0 28 53 41 4d 46 49 4c 29 20 49 4e 54 4f 20 28 53 41 4d 49 4e 41 52 45 41 29 3b 20 20 20 20 20 20 ┆(SAMFIL) INTO (SAMINAREA); ┆
0x325a0…325af 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x325af…325cf (32, 0, 3) 20 20 20 20 20 20 20 20 53 49 4e 44 20 3d 20 41 44 44 52 20 28 53 41 4d 49 4e 41 52 45 41 29 3b ┆ SIND = ADDR (SAMINAREA);┆
0x325cf…325ef 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x325ef…325fe 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x325fe…3261e (32, 0, 4) 20 20 20 20 20 20 20 20 55 50 45 4b 41 52 45 20 3d 20 53 49 4e 44 20 2b 20 31 35 3b 20 20 20 20 ┆ UPEKARE = SIND + 15; ┆
0x3261e…3263e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3263e…3264d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3264d…3266d (32, 0, 5) 20 20 20 20 20 20 20 20 44 4f 20 4a 20 3d 20 31 20 54 4f 20 32 30 3b 20 20 20 20 20 20 20 20 20 ┆ DO J = 1 TO 20; ┆
0x3266d…3268d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3268d…3269c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3269c…326bc (32, 0, 6) 20 20 20 20 20 20 20 20 20 20 20 20 55 50 45 4b 41 52 45 20 3d 20 55 50 45 4b 41 52 45 20 2b 20 ┆ UPEKARE = UPEKARE + ┆
0x326bc…326dc 32 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; ┆
0x326dc…326eb 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x326eb…3270b (32, 0, 7) 20 20 20 20 20 20 20 20 20 20 20 20 55 4e 53 50 45 43 20 28 53 49 4e 44 29 20 3d 20 55 50 45 4b ┆ UNSPEC (SIND) = UPEK┆
0x3270b…3272b 41 52 45 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 ┆ARE; ┆
0x3272b…3273a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3273a…3275a (32, 0, 8) 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 53 55 41 42 4e 52 20 3d 20 41 42 41 42 4e 52 20 54 ┆ IF SUABNR = ABABNR T┆
0x3275a…3277a 48 45 4e 20 47 4f 20 54 4f 20 42 31 35 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆HEN GO TO B15; ┆
0x3277a…32789 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x32789…327a9 (32, 0, 9) 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; ┆
0x327a9…327c9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x327c9…327d8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x327d8…327f8 (32, 0, 10) 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 41 4d 46 49 4c 20 53 ┆ PUT SKIP LIST ('SAMFIL S┆
0x327f8…32818 41 4b 4e 41 52 20 50 4f 53 54 2c 20 41 42 4e 52 20 3d 20 27 2c 41 42 41 42 4e 52 29 3b 20 20 20 ┆AKNAR POST, ABNR = ',ABABNR); ┆
0x32818…32827 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x32827…32847 (32, 0, 11) 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 41 32 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GO TO A20; ┆
0x32847…32867 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x32867…32876 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x32876…32896 (32, 0, 12) 42 31 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 ┆B15: ┆
0x32896…328b6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x328b6…328c5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x328c5…328e5 (32, 0, 13) 2f 2a 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 4c 49 53 54 20 28 27 55 41 42 4e 52 2c 20 41 ┆/* PUT SKIP LIST ('UABNR, A┆
0x328e5…32905 42 4e 52 20 27 2c 41 42 41 42 4e 52 2c 41 42 48 41 42 4e 52 29 3b 20 20 2a 2f 20 20 20 20 20 20 ┆BNR ',ABABNR,ABHABNR); */ ┆
0x32905…32914 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x32914…32934 (32, 0, 14) 20 20 20 20 20 20 20 20 44 4f 20 49 20 3d 20 30 20 54 4f 20 32 3b 20 20 20 20 20 20 20 20 20 20 ┆ DO I = 0 TO 2; ┆
0x32934…32954 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x32954…32963 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x32963…32983 (32, 0, 15) 20 20 20 20 20 20 20 20 20 20 20 20 55 50 45 4b 41 52 45 20 3d 20 41 44 44 52 20 28 55 44 45 42 ┆ UPEKARE = ADDR (UDEB┆
0x32983…329a3 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 20 20 20 20 20 20 20 ┆POST); ┆
0x329a3…329b2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x329b2…329d2 (32, 0, 16) 20 20 20 20 20 20 20 20 20 20 20 20 48 4a 55 50 45 4b 41 52 45 20 3d 20 55 50 45 4b 41 52 45 20 ┆ HJUPEKARE = UPEKARE ┆
0x329d2…329f2 2b 20 34 37 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆+ 47; ┆
0x329f2…32a01 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x32a01…32a21 (32, 0, 17) 20 20 20 20 20 20 20 20 20 20 20 20 55 50 45 4b 41 52 45 20 3d 20 48 4a 55 50 45 4b 41 52 45 20 ┆ UPEKARE = HJUPEKARE ┆
0x32a21…32a41 2b 20 28 28 50 41 52 41 44 45 42 50 45 52 20 2d 20 31 29 20 2a 20 33 20 2a 20 32 30 29 20 2b 20 ┆+ ((PARADEBPER - 1) * 3 * 20) + ┆
0x32a41…32a50 49 20 2a 20 32 30 3b 20 20 20 20 20 20 20 20 ┆I * 20; ┆
0x32a50…32a70 (32, 0, 18) 2f 2a 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 55 50 45 4b ┆/* PUT SKIP LIST ('UPEK┆
0x32a70…32a90 31 20 3d 20 27 2c 55 50 45 4b 41 52 45 29 3b 20 20 2a 2f 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆1 = ',UPEKARE); */ ┆
0x32a90…32a9f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x32a9f…32abf (32, 0, 19) 20 20 20 20 20 20 20 20 20 20 20 20 55 4e 53 50 45 43 20 28 55 49 4e 44 29 20 3d 20 55 50 45 4b ┆ UNSPEC (UIND) = UPEK┆
0x32abf…32adf 41 52 45 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 ┆ARE; ┆
0x32adf…32aee 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x32aee…32b0e (32, 0, 20) 20 20 20 20 20 20 20 20 20 20 20 20 50 45 4b 41 52 45 20 3d 20 53 54 41 52 54 50 20 2b 20 28 28 ┆ PEKARE = STARTP + ((┆
0x32b0e…32b2e 50 41 52 41 44 45 42 50 45 52 20 2d 20 31 29 20 2a 20 33 20 2b 20 31 29 20 2a 20 33 30 20 2b 20 ┆PARADEBPER - 1) * 3 + 1) * 30 + ┆
0x32b2e…32b3d 49 20 2a 20 33 30 3b 20 20 20 20 20 20 20 20 ┆I * 30; ┆
0x32b3d…32b5d (32, 0, 21) 2f 2a 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 53 54 31 50 ┆/* PUT SKIP LIST ('ST1P┆
0x32b5d…32b7d 45 4b 31 20 3d 20 27 2c 50 45 4b 41 52 45 29 3b 20 2a 2f 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆EK1 = ',PEKARE); */ ┆
0x32b7d…32b8c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x32b8c…32bac (32, 0, 22) 20 20 20 20 20 20 20 20 20 20 20 20 55 4e 53 50 45 43 20 28 53 54 31 29 20 3d 20 50 45 4b 41 52 ┆ UNSPEC (ST1) = PEKAR┆
0x32bac…32bcc 45 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 ┆E; ┆
0x32bcc…32bdb 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x32bdb…32bfb (32, 0, 23) 2f 2a 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 53 54 31 50 ┆/* PUT SKIP LIST ('ST1P┆
0x32bfb…32c1b 46 42 52 20 3d 20 27 2c 53 54 31 50 46 42 52 29 3b 2a 2f 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆FBR = ',ST1PFBR);*/ ┆
0x32c1b…32c2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x32c2a…32c4a (32, 0, 24) 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 53 50 20 3d 20 27 4e 27 20 54 48 45 4e 20 47 4f 20 ┆ IF SP = 'N' THEN GO ┆
0x32c4a…32c6a 54 4f 20 42 31 36 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆TO B16; ┆
0x32c6a…32c79 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x32c79…32c99 (32, 0, 25) 20 20 20 20 20 20 20 20 20 20 20 20 57 55 50 46 42 52 4d 45 4c 4c 20 3d 20 53 54 31 50 46 42 52 ┆ WUPFBRMELL = ST1PFBR┆
0x32c99…32cb9 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 ┆; ┆
0x32cb9…32cc8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x32cc8…32ce8 (32, 0, 26) 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 53 50 20 3d 20 27 2d 27 20 54 48 45 4e 20 44 4f 3b ┆ IF SP = '-' THEN DO;┆
0x32ce8…32d08 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x32d08…32d17 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x32d17…32d37 (32, 0, 27) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 55 50 46 42 52 4d 45 4c 4c 20 3d 20 57 55 50 ┆ WUPFBRMELL = WUP┆
0x32d37…32d57 46 42 52 4d 45 4c 4c 20 2a 20 2d 31 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆FBRMELL * -1; ┆
0x32d57…32d66 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x32d66…32d86 (32, 0, 28) 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; ┆
0x32d86…32da6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x32da6…32db5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x32db5…32dd5 (32, 0, 29) 2f 2a 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 55 44 50 31 ┆/* PUT SKIP LIST ('UDP1┆
0x32dd5…32df5 20 3d 20 27 2c 55 44 50 29 3b 20 20 20 20 20 20 20 2a 2f 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ = ',UDP); */ ┆
0x32df5…32e04 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x32e04…32e24 (32, 0, 30) 20 20 20 20 20 20 20 20 20 20 20 20 55 44 50 20 3d 20 55 44 50 20 2b 20 57 55 50 46 42 52 4d 45 ┆ UDP = UDP + WUPFBRME┆
0x32e24…32e44 4c 4c 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆LL; ┆
0x32e44…32e53 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x32e53…32e73 (32, 0, 31) 2f 2a 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 55 44 50 20 ┆/* PUT SKIP LIST ('UDP ┆
0x32e73…32e93 3d 20 27 2c 55 44 50 29 3b 20 20 20 20 20 20 20 20 2a 2f 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆= ',UDP); */ ┆
0x32e93…32ea2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x32ea2…32ef1 (32, 0, 32) 0x20[0x4f]
0x32ef1…32f11 (32, 0, 33) 42 31 36 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 ┆B16: ┆
0x32f11…32f31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x32f31…32f40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x32f40…32f60 (32, 0, 34) 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 53 45 20 3d 20 27 4e 27 20 54 48 45 4e 20 47 4f 20 ┆ IF SE = 'N' THEN GO ┆
0x32f60…32f80 54 4f 20 42 31 37 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆TO B17; ┆
0x32f80…32f8f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x32f8f…32faf (32, 0, 35) 20 20 20 20 20 20 20 20 20 20 20 20 57 55 45 46 42 52 4d 45 4c 4c 20 3d 20 53 54 31 45 46 42 52 ┆ WUEFBRMELL = ST1EFBR┆
0x32faf…32fcf 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 ┆; ┆
0x32fcf…32fde 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x32fde…32ffe (32, 0, 36) 2f 2a 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 57 55 45 46 ┆/* PUT SKIP LIST ('WUEF┆
0x32ffe…3301e 42 52 20 3d 20 27 2c 57 55 45 46 42 52 4d 45 4c 4c 29 3b 20 20 2a 2f 20 20 20 20 20 20 20 20 20 ┆BR = ',WUEFBRMELL); */ ┆
0x3301e…3302d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3302d…3304d (32, 0, 37) 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 53 45 20 3d 20 27 2d 27 20 54 48 45 4e 20 44 4f 3b ┆ IF SE = '-' THEN DO;┆
0x3304d…3306d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3306d…3307c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3307c…3309c (32, 0, 38) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 55 45 46 42 52 4d 45 4c 4c 20 3d 20 57 55 45 ┆ WUEFBRMELL = WUE┆
0x3309c…330bc 46 42 52 4d 45 4c 4c 20 2a 20 2d 31 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆FBRMELL * -1; ┆
0x330bc…330cb 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x330cb…330eb (32, 0, 39) 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; ┆
0x330eb…3310b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3310b…3311a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3311a…3313a (32, 0, 40) 2f 2a 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 55 44 45 31 ┆/* PUT SKIP LIST ('UDE1┆
0x3313a…3315a 20 3d 20 27 2c 55 44 45 29 3b 20 20 20 20 20 20 20 2a 2f 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ = ',UDE); */ ┆
0x3315a…33169 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x33169…33189 (32, 0, 41) 20 20 20 20 20 20 20 20 20 20 20 20 55 44 45 20 3d 20 55 44 45 20 2b 20 57 55 45 46 42 52 4d 45 ┆ UDE = UDE + WUEFBRME┆
0x33189…331a9 4c 4c 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆LL; ┆
0x331a9…331b8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x331b8…331d8 (32, 0, 42) 2f 2a 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 55 44 45 20 ┆/* PUT SKIP LIST ('UDE ┆
0x331d8…331f8 3d 20 27 2c 20 55 44 45 29 3b 20 20 20 20 20 20 20 2a 2f 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆= ', UDE); */ ┆
0x331f8…33207 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x33207…33227 (32, 0, 43) 20 20 20 20 20 20 20 20 20 20 20 20 55 44 4b 56 20 3d 20 50 41 52 41 44 45 42 50 45 52 3b 20 20 ┆ UDKV = PARADEBPER; ┆
0x33227…33247 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x33247…33256 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x33256…33276 (32, 0, 44) 20 20 20 20 20 20 20 20 20 20 20 20 55 44 50 45 52 20 3d 20 28 50 41 52 41 44 45 42 50 45 52 20 ┆ UDPER = (PARADEBPER ┆
0x33276…33296 2d 20 31 29 20 2a 20 33 20 2b 20 49 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆- 1) * 3 + I; ┆
0x33296…332a5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x332a5…332c5 (32, 0, 45) 42 31 37 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 ┆B17: ┆
0x332c5…332e5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x332e5…332f4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x332f4…33314 (32, 0, 46) 20 20 20 20 20 20 20 20 49 46 20 53 55 42 53 54 52 20 28 41 42 4d 41 4e 2c 32 2c 31 29 20 3d 20 ┆ IF SUBSTR (ABMAN,2,1) = ┆
0x33314…33334 27 55 27 20 54 48 45 4e 20 44 4f 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆'U' THEN DO; ┆
0x33334…33343 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x33343…33363 (32, 0, 47) 20 20 20 20 20 20 20 20 20 20 20 20 43 41 4c 4c 20 46 45 4c 4c 49 53 54 41 3b 20 20 20 20 20 20 ┆ CALL FELLISTA; ┆
0x33363…33383 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x33383…33392 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x33392…333b2 (32, 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; ┆
0x333b2…333d2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x333d2…333e1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x333e1…33401 (32, 0, 49) 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; ┆
0x33401…33421 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x33421…33430 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x33430…33450 (32, 0, 50) 20 20 20 20 20 20 20 20 53 44 45 42 4d 41 52 4b 20 3d 20 27 31 27 3b 20 20 20 20 20 20 20 20 20 ┆ SDEBMARK = '1'; ┆
0x33450…33470 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x33470…3347f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3347f…3349f (32, 0, 51) 20 20 20 20 20 20 20 20 52 45 57 52 49 54 45 20 46 49 4c 45 20 28 55 44 45 42 29 20 46 52 4f 4d ┆ REWRITE FILE (UDEB) FROM┆
0x3349f…334bf 20 28 55 44 45 42 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 20 ┆ (UDEBPOST); ┆
0x334bf…334ce 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x334ce…334ee (32, 0, 52) 20 20 20 20 20 20 20 20 52 45 57 52 49 54 45 20 46 49 4c 45 20 28 53 41 4d 46 49 4c 29 20 46 52 ┆ REWRITE FILE (SAMFIL) FR┆
0x334ee…3350e 4f 4d 20 28 53 41 4d 49 4e 41 52 45 41 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆OM (SAMINAREA); ┆
0x3350e…3351d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3351d…3353d (32, 0, 53) 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 41 32 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GO TO A20; ┆
0x3353d…3355d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3355d…3356c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3356c…335bb (32, 0, 54) 0x20[0x4f]
0x335bb…335db (32, 0, 55) 42 32 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 ┆B20: ┆
0x335db…335fb 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x335fb…3360a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3360a…3362a (32, 0, 56) 20 20 20 20 20 20 20 20 49 46 20 53 55 42 53 54 52 20 28 41 42 4d 41 4e 2c 32 2c 31 29 20 3d 20 ┆ IF SUBSTR (ABMAN,2,1) = ┆
0x3362a…3364a 27 53 27 20 7c 20 53 55 42 53 54 52 20 28 41 42 4d 41 4e 2c 32 2c 31 29 20 3d 20 27 55 27 20 54 ┆'S' ö SUBSTR (ABMAN,2,1) = 'U' T┆
0x3364a…33659 48 45 4e 20 47 4f 20 54 4f 20 41 32 30 3b 20 ┆HEN GO TO A20; ┆
0x33659…33679 (32, 0, 57) 20 20 20 20 20 20 20 20 43 41 4c 4c 20 53 54 32 4e 4f 4c 4c 53 54 41 4c 4c 3b 20 20 20 20 20 20 ┆ CALL ST2NOLLSTALL; ┆
0x33679…33699 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x33699…336a8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x336a8…336c8 (32, 0, 58) 20 20 20 20 20 20 20 20 53 54 32 41 42 4e 52 20 3d 20 41 42 41 42 4e 52 3b 20 20 20 20 20 20 20 ┆ ST2ABNR = ABABNR; ┆
0x336c8…336e8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x336e8…336f7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x336f7…33717 (32, 0, 59) 20 20 20 20 20 20 20 20 53 54 32 4b 56 20 3d 20 50 41 52 41 44 45 42 50 45 52 3b 20 20 20 20 20 ┆ ST2KV = PARADEBPER; ┆
0x33717…33737 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x33737…33746 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x33746…33766 (32, 0, 60) 20 20 20 20 20 20 20 20 53 55 42 53 54 52 20 28 53 54 32 4c 4f 45 50 4e 52 2c 31 2c 31 29 20 3d ┆ SUBSTR (ST2LOEPNR,1,1) =┆
0x33766…33786 20 53 55 42 53 54 52 20 28 50 41 52 41 44 45 42 41 52 2c 32 2c 31 29 3b 20 20 20 20 20 20 20 20 ┆ SUBSTR (PARADEBAR,2,1); ┆
0x33786…33795 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x33795…337b5 (32, 0, 61) 20 20 20 20 20 20 20 20 53 55 42 53 54 52 20 28 53 54 32 4c 4f 45 50 4e 52 2c 32 2c 31 29 20 3d ┆ SUBSTR (ST2LOEPNR,2,1) =┆
0x337b5…337d5 20 27 30 27 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ '0'; ┆
0x337d5…337e4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x337e4…33804 (32, 0, 62) 20 20 20 20 20 20 20 20 53 55 42 53 54 52 20 28 53 54 32 4c 4f 45 50 4e 52 2c 33 2c 31 29 20 3d ┆ SUBSTR (ST2LOEPNR,3,1) =┆
0x33804…33824 20 50 41 52 41 44 45 42 50 45 52 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PARADEBPER; ┆
0x33824…33833 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x33833…33853 (32, 0, 63) 20 20 20 20 20 20 20 20 53 55 42 53 54 52 20 28 53 54 32 4c 4f 45 50 4e 52 2c 34 2c 31 29 20 3d ┆ SUBSTR (ST2LOEPNR,4,1) =┆
0x33853…33873 20 27 30 27 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ '0'; ┆
0x33873…33882 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x33882…338a2 (32, 0, 64) 20 20 20 20 20 20 20 20 53 55 42 53 54 52 20 28 53 54 32 4c 4f 45 50 4e 52 2c 35 2c 31 29 20 3d ┆ SUBSTR (ST2LOEPNR,5,1) =┆
0x338a2…338c2 20 41 42 4c 4f 45 50 4e 52 20 2b 20 31 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ABLOEPNR + 1; ┆
0x338c2…338d1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x338d1…338f1 (32, 0, 65) 20 20 20 20 20 20 20 20 41 42 4c 4f 45 50 4e 52 20 3d 20 41 42 4c 4f 45 50 4e 52 20 2b 20 31 3b ┆ ABLOEPNR = ABLOEPNR + 1;┆
0x338f1…33911 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x33911…33920 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x33920…33940 (32, 0, 66) 42 32 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 ┆B25: ┆
0x33940…33960 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x33960…3396f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3396f…3398f (32, 0, 67) 20 20 20 20 20 20 20 20 49 46 20 53 55 42 53 54 52 20 28 41 42 4d 41 4e 2c 32 2c 31 29 20 3d 20 ┆ IF SUBSTR (ABMAN,2,1) = ┆
0x3398f…339af 27 48 27 20 54 48 45 4e 20 44 4f 3b 20 20 20 2f 2a 20 41 44 44 20 55 45 46 42 52 20 6f 20 55 50 ┆'H' THEN DO; /* ADD UEFBR o UP┆
0x339af…339be 46 42 52 20 74 20 53 54 31 50 4f 53 54 2a 2f ┆FBR t ST1POST*/┆
0x339be…339de (32, 0, 68) 20 20 20 20 20 20 20 20 20 20 20 20 4f 50 45 4e 20 55 44 45 42 3b 20 20 20 20 20 20 20 20 20 20 ┆ OPEN UDEB; ┆
0x339de…339fe 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x339fe…33a0d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x33a0d…33a2d (32, 0, 69) 20 20 20 20 20 20 20 20 20 20 20 20 52 45 41 44 20 4b 45 59 20 28 41 42 41 42 4e 52 29 20 46 49 ┆ READ KEY (ABABNR) FI┆
0x33a2d…33a4d 4c 45 20 28 55 44 45 42 29 20 49 4e 54 4f 20 28 55 44 45 42 50 4f 53 54 29 3b 20 20 20 20 20 20 ┆LE (UDEB) INTO (UDEBPOST); ┆
0x33a4d…33a5c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x33a5c…33a7c (32, 0, 70) 2f 2a 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 41 42 4e 52 ┆/* PUT SKIP LIST ('ABNR┆
0x33a7c…33a9c 20 3d 20 27 2c 41 42 41 42 4e 52 29 3b 20 20 20 20 2a 2f 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ = ',ABABNR); */ ┆
0x33a9c…33aab 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x33aab…33acb (32, 0, 71) 20 20 20 20 20 20 20 20 20 20 20 20 55 49 4e 44 20 3d 20 41 44 44 52 20 28 55 44 45 42 50 4f 53 ┆ UIND = ADDR (UDEBPOS┆
0x33acb…33aeb 54 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 ┆T); ┆
0x33aeb…33afa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x33afa…33b1a (32, 0, 72) 20 20 20 20 20 20 20 20 20 20 20 20 55 50 45 4b 41 52 45 20 3d 20 55 4e 53 50 45 43 20 28 55 49 ┆ UPEKARE = UNSPEC (UI┆
0x33b1a…33b3a 4e 44 29 20 2b 20 32 37 20 2b 20 28 50 41 52 41 44 45 42 50 45 52 20 2d 20 31 29 20 2a 20 36 30 ┆ND) + 27 + (PARADEBPER - 1) * 60┆
0x33b3a…33b49 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆; ┆
0x33b49…33b69 (32, 0, 73) 20 20 20 20 20 20 20 20 20 20 20 20 53 54 31 20 3d 20 41 44 44 52 20 28 53 54 31 49 4e 41 52 45 ┆ ST1 = ADDR (ST1INARE┆
0x33b69…33b89 41 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 ┆A); ┆
0x33b89…33b98 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x33b98…33bb8 (32, 0, 74) 20 20 20 20 20 20 20 20 20 20 20 20 50 45 4b 41 52 45 20 3d 20 55 4e 53 50 45 43 20 28 53 54 31 ┆ PEKARE = UNSPEC (ST1┆
0x33bb8…33bd8 29 20 2b 20 35 20 2b 20 28 50 41 52 41 44 45 42 50 45 52 20 2d 31 29 20 2a 20 39 30 3b 20 20 20 ┆) + 5 + (PARADEBPER -1) * 90; ┆
0x33bd8…33be7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x33be7…33c07 (32, 0, 75) 20 20 20 20 20 20 20 20 20 20 20 20 44 4f 20 49 20 3d 20 31 20 54 4f 20 33 3b 20 20 20 20 20 20 ┆ DO I = 1 TO 3; ┆
0x33c07…33c27 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x33c27…33c36 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x33c36…33c56 (32, 0, 76) 2f 2a 20 20 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 ┆/* PUT SKIP LIST ('┆
0x33c56…33c76 49 20 3d 20 20 20 20 27 2c 20 49 29 3b 20 20 20 20 2a 2f 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆I = ', I); */ ┆
0x33c76…33c85 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x33c85…33ca5 (32, 0, 77) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 45 4b 41 52 45 20 3d 20 50 45 4b 41 52 45 20 ┆ PEKARE = PEKARE ┆
0x33ca5…33cc5 2b 20 33 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 ┆+ 30; ┆
0x33cc5…33cd4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x33cd4…33cf4 (32, 0, 78) 2f 2a 20 20 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 ┆/* PUT SKIP LIST ('┆
0x33cf4…33d14 53 54 31 50 45 4b 32 20 3d 20 27 2c 50 45 4b 41 52 45 29 3b 20 20 2a 2f 20 20 20 20 20 20 20 20 ┆ST1PEK2 = ',PEKARE); */ ┆
0x33d14…33d23 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x33d23…33d43 (32, 0, 79) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 55 4e 53 50 45 43 20 28 53 54 31 29 20 3d 20 50 ┆ UNSPEC (ST1) = P┆
0x33d43…33d63 45 4b 41 52 45 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 ┆EKARE; ┆
0x33d63…33d72 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x33d72…33d92 (32, 0, 80) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 55 50 45 4b 41 52 45 20 3d 20 55 50 45 4b 41 52 ┆ UPEKARE = UPEKAR┆
0x33d92…33db2 45 20 2b 20 32 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 ┆E + 20; ┆
0x33db2…33dc1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x33dc1…33de1 (32, 0, 81) 2f 2a 20 20 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 ┆/* PUT SKIP LIST ('┆
0x33de1…33e01 55 50 45 4b 32 20 3d 20 27 2c 55 50 45 4b 41 52 45 29 3b 20 2a 2f 20 20 20 20 20 20 20 20 20 20 ┆UPEK2 = ',UPEKARE); */ ┆
0x33e01…33e10 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x33e10…33e30 (33, 0, 0) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 55 4e 53 50 45 43 20 28 55 49 4e 44 29 20 3d 20 ┆ UNSPEC (UIND) = ┆
0x33e30…33e50 55 50 45 4b 41 52 45 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 ┆UPEKARE; ┆
0x33e50…33e5f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x33e5f…33e7f (33, 0, 1) 2f 2a 20 20 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 ┆/* PUT SKIP LIST ('┆
0x33e7f…33e9f 53 54 31 50 46 42 52 20 3d 20 27 2c 53 54 31 50 46 42 52 29 3b 20 2a 2f 20 20 20 20 20 20 20 20 ┆ST1PFBR = ',ST1PFBR); */ ┆
0x33e9f…33eae 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x33eae…33ece (33, 0, 2) 2f 2a 20 20 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 ┆/* PUT SKIP LIST ('┆
0x33ece…33eee 55 44 50 20 3d 20 27 2c 55 44 50 29 3b 20 20 20 20 2a 2f 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆UDP = ',UDP); */ ┆
0x33eee…33efd 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x33efd…33f1d (33, 0, 3) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 54 31 50 46 42 52 20 3d 20 53 54 31 50 46 42 ┆ ST1PFBR = ST1PFB┆
0x33f1d…33f3d 52 20 2b 20 55 44 50 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆R + UDP; ┆
0x33f3d…33f4c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x33f4c…33f6c (33, 0, 4) 2f 2a 20 20 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 ┆/* PUT SKIP LIST ('┆
0x33f6c…33f8c 53 54 31 50 46 42 52 55 54 20 3d 20 27 2c 53 54 31 50 46 42 52 29 3b 20 20 2a 2f 20 20 20 20 20 ┆ST1PFBRUT = ',ST1PFBR); */ ┆
0x33f8c…33f9b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x33f9b…33fbb (33, 0, 5) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 54 31 45 46 42 52 20 3d 20 53 54 31 45 46 42 ┆ ST1EFBR = ST1EFB┆
0x33fbb…33fdb 52 20 2b 20 55 44 45 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 ┆R + UDE; ┆
0x33fdb…33fea 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x33fea…3400a (33, 0, 6) 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; ┆
0x3400a…3402a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3402a…34039 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x34039…34059 (33, 0, 7) 20 20 20 20 20 20 20 20 20 20 20 20 52 45 57 52 49 54 45 20 46 49 4c 45 20 28 55 44 45 42 29 20 ┆ REWRITE FILE (UDEB) ┆
0x34059…34079 46 52 4f 4d 20 28 55 44 45 42 50 4f 53 54 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆FROM (UDEBPOST); ┆
0x34079…34088 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x34088…340a8 (33, 0, 8) 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; ┆
0x340a8…340c8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x340c8…340d7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x340d7…340f7 (33, 0, 9) 20 20 20 20 20 20 20 20 53 54 31 20 3d 20 41 44 44 52 20 28 53 54 31 49 4e 41 52 45 41 29 3b 20 ┆ ST1 = ADDR (ST1INAREA); ┆
0x340f7…34117 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x34117…34126 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x34126…34146 (33, 0, 10) 20 20 20 20 20 20 20 20 50 45 4b 41 52 45 20 3d 20 55 4e 53 50 45 43 20 28 53 54 31 29 20 2b 20 ┆ PEKARE = UNSPEC (ST1) + ┆
0x34146…34166 35 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆5; ┆
0x34166…34175 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x34175…34195 (33, 0, 11) 20 20 20 20 20 20 20 20 57 46 42 52 20 3d 20 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ WFBR = 0; ┆
0x34195…341b5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x341b5…341c4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x341c4…341e4 (33, 0, 12) 20 20 20 20 20 20 20 20 53 54 32 50 4d 45 44 45 4c 31 20 3d 20 30 3b 20 20 20 20 20 20 20 20 20 ┆ ST2PMEDEL1 = 0; ┆
0x341e4…34204 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x34204…34213 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x34213…34233 (33, 0, 13) 20 20 20 20 20 20 20 20 53 54 32 50 4d 45 44 45 4c 32 20 3d 20 30 3b 20 20 20 20 20 20 20 20 20 ┆ ST2PMEDEL2 = 0; ┆
0x34233…34253 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x34253…34262 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x34262…342b1 (33, 0, 14) 0x20[0x4f]
[…0x2…]
0x3434f…3436f (33, 0, 17) 2f 2a 20 20 20 20 20 20 20 20 20 20 42 45 52 5b 4b 4e 49 4e 47 20 41 56 20 4d 45 44 45 4c 45 46 ┆/* BERÄKNING AV MEDELEF┆
0x3436f…3438f 46 45 4b 54 45 4e 20 46 5c 52 20 44 45 20 54 56 5d 20 48 5c 47 53 54 41 20 45 46 46 45 4b 54 54 ┆FEKTEN FÖR DE TVÅ HÖGSTA EFFEKTT┆
0x3438f…3439e 4f 50 50 41 52 4e 41 20 20 20 20 20 2a 2f 20 ┆OPPARNA */ ┆
0x3439e…343ed (33, 0, 18) 0x20[0x4f]
[…0x1…]
0x3443c…3445c (33, 0, 20) 42 33 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 ┆B30: ┆
0x3445c…3447c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3447c…3448b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3448b…344da (33, 0, 21) 0x20[0x4f]
[…0x1…]
0x34529…34549 (33, 0, 23) 2f 2a 20 20 20 20 20 20 44 45 54 54 41 20 5b 52 20 45 4e 20 50 52 4f 56 49 53 4f 52 49 53 4b 20 ┆/* DETTA ÄR EN PROVISORISK ┆
0x34549…34569 4c 5c 53 4e 49 4e 47 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 ┆LÖSNING */ ┆
0x34569…34578 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x34578…345c7 (33, 0, 24) 0x20[0x4f]
0x345c7…345e7 (33, 0, 25) 20 20 20 20 20 20 20 20 53 54 41 52 54 50 45 52 49 4f 44 20 3d 20 31 3b 20 20 20 20 20 20 20 20 ┆ STARTPERIOD = 1; ┆
0x345e7…34607 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x34607…34616 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x34616…34636 (33, 0, 26) 20 20 20 20 20 20 20 20 49 46 20 53 55 42 53 54 52 20 28 41 42 4d 41 4e 2c 33 2c 31 29 20 3d 20 ┆ IF SUBSTR (ABMAN,3,1) = ┆
0x34636…34656 27 41 27 20 54 48 45 4e 20 44 4f 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆'A' THEN DO; ┆
0x34656…34665 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x34665…34685 (33, 0, 27) 20 20 20 20 20 20 20 20 20 20 20 20 53 54 41 52 54 50 45 52 49 4f 44 20 3d 20 31 30 3b 20 20 20 ┆ STARTPERIOD = 10; ┆
0x34685…346a5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x346a5…346b4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x346b4…346d4 (33, 0, 28) 20 20 20 20 20 20 20 20 20 20 20 20 50 45 4b 41 52 45 20 3d 20 50 45 4b 41 52 45 20 2b 20 28 39 ┆ PEKARE = PEKARE + (9┆
0x346d4…346f4 20 2a 20 33 30 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 ┆ * 30); ┆
0x346f4…34703 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x34703…34723 (33, 0, 29) 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; ┆
0x34723…34743 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x34743…34752 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x34752…34772 (33, 0, 30) 20 20 20 20 20 20 20 20 44 4f 20 49 20 3d 20 53 54 41 52 54 50 45 52 49 4f 44 20 54 4f 20 50 41 ┆ DO I = STARTPERIOD TO PA┆
0x34772…34792 52 41 44 45 42 50 45 52 20 2a 20 33 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆RADEBPER * 3; ┆
0x34792…347a1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x347a1…347c1 (33, 0, 31) 20 20 20 20 20 20 20 20 20 20 20 20 50 45 4b 41 52 45 20 3d 20 50 45 4b 41 52 45 20 2b 20 33 30 ┆ PEKARE = PEKARE + 30┆
0x347c1…347e1 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 ┆; ┆
0x347e1…347f0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x347f0…34810 (33, 0, 32) 20 20 20 20 20 20 20 20 20 20 20 20 55 4e 53 50 45 43 20 28 53 54 31 29 20 3d 20 50 45 4b 41 52 ┆ UNSPEC (ST1) = PEKAR┆
0x34810…34830 45 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 ┆E; ┆
0x34830…3483f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3483f…3485f (33, 0, 33) 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 49 20 3d 20 31 20 54 48 45 4e 20 47 4f 20 54 4f 20 ┆ IF I = 1 THEN GO TO ┆
0x3485f…3487f 42 33 32 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 ┆B32; ┆
0x3487f…3488e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3488e…348ae (33, 0, 34) 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 49 20 3d 20 32 20 54 48 45 4e 20 47 4f 20 54 4f 20 ┆ IF I = 2 THEN GO TO ┆
0x348ae…348ce 42 33 35 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆B35; ┆
0x348ce…348dd 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x348dd…348fd (33, 0, 35) 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 50 4d 4c 41 47 53 54 20 3d 20 31 20 54 48 45 4e 20 ┆ IF PMLAGST = 1 THEN ┆
0x348fd…3491d 47 4f 20 54 4f 20 42 33 32 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆GO TO B32; ┆
0x3491d…3492c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3492c…3494c (33, 0, 36) 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 50 4d 4c 41 47 53 54 20 3d 20 32 20 20 54 48 45 4e ┆ IF PMLAGST = 2 THEN┆
0x3494c…3496c 20 47 4f 20 54 4f 20 42 33 35 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GO TO B35; ┆
0x3496c…3497b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3497b…3499b (33, 0, 37) 42 33 32 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 ┆B32: ┆
0x3499b…349bb 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x349bb…349ca 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x349ca…349ea (33, 0, 38) 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 53 55 42 53 54 52 20 28 41 42 4d 41 4e 2c 35 2c 31 ┆ IF SUBSTR (ABMAN,5,1┆
0x349ea…34a0a 29 20 3d 20 27 56 27 20 54 48 45 4e 20 44 4f 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆) = 'V' THEN DO; ┆
0x34a0a…34a19 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x34a19…34a39 (33, 0, 39) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 28 49 20 3e 20 33 20 26 20 49 20 3c 20 ┆ IF (I > 3 & I < ┆
0x34a39…34a59 31 30 29 20 54 48 45 4e 20 44 4f 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆10) THEN DO; ┆
0x34a59…34a68 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x34a68…34a88 (33, 0, 40) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 54 32 50 4d 45 44 45 4c 31 20 3d ┆ ST2PMEDEL1 =┆
0x34a88…34aa8 20 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 0; ┆
0x34aa8…34ab7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x34ab7…34ad7 (33, 0, 41) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 42 34 30 3b 20 20 ┆ GO TO B40; ┆
0x34ad7…34af7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x34af7…34b06 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x34b06…34b26 (33, 0, 42) 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; ┆
0x34b26…34b46 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x34b46…34b55 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x34b55…34b75 (33, 0, 43) 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; ┆
0x34b75…34b95 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x34b95…34ba4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x34ba4…34bc4 (33, 0, 44) 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 53 54 31 50 46 42 52 20 3e 20 53 54 32 50 4d 45 44 ┆ IF ST1PFBR > ST2PMED┆
0x34bc4…34be4 45 4c 31 20 54 48 45 4e 20 44 4f 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆EL1 THEN DO; ┆
0x34be4…34bf3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x34bf3…34c13 (33, 0, 45) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 54 32 50 4d 45 44 45 4c 31 20 3d 20 53 54 31 ┆ ST2PMEDEL1 = ST1┆
0x34c13…34c33 50 46 42 52 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆PFBR; ┆
0x34c33…34c42 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x34c42…34c62 (33, 0, 46) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 54 32 50 4d 31 4d 41 4e 20 3d 20 49 3b 20 20 ┆ ST2PM1MAN = I; ┆
0x34c62…34c82 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x34c82…34c91 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x34c91…34cb1 (33, 0, 47) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 42 34 30 3b 20 20 20 20 20 20 ┆ GO TO B40; ┆
0x34cb1…34cd1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x34cd1…34ce0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x34ce0…34d00 (33, 0, 48) 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; ┆
0x34d00…34d20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x34d20…34d2f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x34d2f…34d4f (33, 0, 49) 42 33 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 ┆B35: ┆
0x34d4f…34d6f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x34d6f…34d7e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x34d7e…34d9e (33, 0, 50) 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 53 55 42 53 54 52 20 28 41 42 4d 41 4e 2c 35 2c 31 ┆ IF SUBSTR (ABMAN,5,1┆
0x34d9e…34dbe 29 20 3d 20 27 56 27 20 54 48 45 4e 20 44 4f 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆) = 'V' THEN DO; ┆
0x34dbe…34dcd 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x34dcd…34ded (33, 0, 51) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 28 49 20 3e 20 33 20 26 20 49 20 3c 20 ┆ IF (I > 3 & I < ┆
0x34ded…34e0d 31 30 29 20 54 48 45 4e 20 44 4f 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆10) THEN DO; ┆
0x34e0d…34e1c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x34e1c…34e3c (33, 0, 52) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 54 32 50 4d 45 44 45 4c 32 20 3d ┆ ST2PMEDEL2 =┆
0x34e3c…34e5c 20 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 0; ┆
0x34e5c…34e6b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x34e6b…34e8b (33, 0, 53) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 42 34 30 3b 20 20 ┆ GO TO B40; ┆
0x34e8b…34eab 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x34eab…34eba 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x34eba…34eda (33, 0, 54) 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; ┆
0x34eda…34efa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x34efa…34f09 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x34f09…34f29 (33, 0, 55) 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; ┆
0x34f29…34f49 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x34f49…34f58 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x34f58…34f78 (33, 0, 56) 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 53 54 31 50 46 42 52 20 3e 20 53 54 32 50 4d 45 44 ┆ IF ST1PFBR > ST2PMED┆
0x34f78…34f98 45 4c 32 20 54 48 45 4e 20 44 4f 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆EL2 THEN DO; ┆
0x34f98…34fa7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x34fa7…34fc7 (33, 0, 57) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 54 32 50 4d 45 44 45 4c 32 20 3d 20 53 54 31 ┆ ST2PMEDEL2 = ST1┆
0x34fc7…34fe7 50 46 42 52 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆PFBR; ┆
0x34fe7…34ff6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x34ff6…35016 (33, 0, 58) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 54 32 50 4d 32 4d 41 4e 20 3d 20 49 3b 20 20 ┆ ST2PM2MAN = I; ┆
0x35016…35036 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x35036…35045 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x35045…35065 (33, 0, 59) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 42 34 30 3b 20 20 20 20 20 20 ┆ GO TO B40; ┆
0x35065…35085 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x35085…35094 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x35094…350b4 (33, 0, 60) 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; ┆
0x350b4…350d4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x350d4…350e3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x350e3…35103 (33, 0, 61) 42 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 20 20 20 20 20 ┆B40: ┆
0x35103…35123 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x35123…35132 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x35132…35152 (33, 0, 62) 20 20 20 20 20 20 20 20 49 46 20 53 54 32 50 4d 45 44 45 4c 32 20 3c 20 53 54 32 50 4d 45 44 45 ┆ IF ST2PMEDEL2 < ST2PMEDE┆
0x35152…35172 4c 31 20 54 48 45 4e 20 50 4d 4c 41 47 53 54 20 3d 20 27 32 27 3b 20 20 20 20 20 20 20 20 20 20 ┆L1 THEN PMLAGST = '2'; ┆
0x35172…35181 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x35181…351a1 (33, 0, 63) 20 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 20 50 4d 4c 41 47 53 54 20 3d 20 27 31 27 3b 20 ┆ ELSE PMLAGST = '1'; ┆
0x351a1…351c1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x351c1…351d0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x351d0…351f0 (33, 0, 64) 42 34 32 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 ┆B42: ┆
0x351f0…35210 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x35210…3521f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3521f…3523f (33, 0, 65) 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; ┆
0x3523f…3525f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3525f…3526e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3526e…3528e (33, 0, 66) 20 20 20 20 20 20 20 20 53 54 32 44 45 42 50 20 3d 20 28 53 54 32 50 4d 45 44 45 4c 31 20 2b 20 ┆ ST2DEBP = (ST2PMEDEL1 + ┆
0x3528e…352ae 53 54 32 50 4d 45 44 45 4c 32 29 20 2f 20 32 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ST2PMEDEL2) / 2; ┆
0x352ae…352bd 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x352bd…352dd (33, 0, 67) 42 34 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 ┆B43: ┆
0x352dd…352fd 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x352fd…3530c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3530c…3532c (33, 0, 68) 2f 2a 20 20 20 20 20 20 49 46 20 53 55 42 53 54 52 20 28 41 42 4d 41 4e 2c 35 2c 31 29 20 3d 20 ┆/* IF SUBSTR (ABMAN,5,1) = ┆
0x3532c…3534c 27 56 27 20 54 48 45 4e 20 47 5c 52 20 4e 5d 47 4f 4e 54 49 4e 47 20 54 49 4c 4c 20 4d 41 52 53 ┆'V' THEN GÖR NÅGONTING TILL MARS┆
0x3534c…3535b 20 38 32 2e 20 2a 2f 20 20 20 20 20 20 20 20 ┆ 82. */ ┆
0x3535b…3537b (33, 0, 69) 20 20 20 20 20 20 20 20 43 41 4c 4c 20 49 4e 55 54 44 41 54 3b 20 20 20 20 20 20 20 20 20 20 20 ┆ CALL INUTDAT; ┆
0x3537b…3539b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3539b…353aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x353aa…353ca (33, 0, 70) 20 20 20 20 20 20 20 20 49 46 20 49 55 44 41 4e 54 20 3d 20 39 39 39 39 39 20 54 48 45 4e 20 47 ┆ IF IUDANT = 99999 THEN G┆
0x353ca…353ea 4f 20 54 4f 20 41 32 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 ┆O TO A20; ┆
0x353ea…353f9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x353f9…35419 (33, 0, 71) 20 20 20 20 20 20 20 20 53 54 32 46 41 56 47 20 3d 20 54 50 41 4b 54 46 41 56 47 20 2a 20 49 55 ┆ ST2FAVG = TPAKTFAVG * IU┆
0x35419…35439 44 41 4e 54 20 2f 20 33 36 35 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆DANT / 365; ┆
0x35439…35448 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x35448…35468 (33, 0, 72) 20 20 20 20 20 20 20 20 49 46 20 53 55 42 53 54 52 20 28 41 42 4d 41 4e 2c 35 2c 31 29 20 3d 20 ┆ IF SUBSTR (ABMAN,5,1) = ┆
0x35468…35488 27 46 27 20 54 48 45 4e 20 53 54 32 46 41 56 47 20 3d 20 30 3b 20 20 20 20 20 20 20 20 20 20 20 ┆'F' THEN ST2FAVG = 0; ┆
0x35488…35497 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x35497…354b7 (33, 0, 73) 20 20 20 20 20 20 20 20 53 54 32 50 41 56 47 20 3d 20 53 54 32 44 45 42 50 20 2a 20 54 50 41 4b ┆ ST2PAVG = ST2DEBP * TPAK┆
0x354b7…354d7 54 50 41 56 47 20 2a 20 49 55 44 41 4e 54 20 2f 20 33 36 35 3b 20 20 20 20 20 20 20 20 20 20 20 ┆TPAVG * IUDANT / 365; ┆
0x354d7…354e6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x354e6…35506 (33, 0, 74) 20 20 20 20 20 20 20 20 57 46 42 52 20 3d 20 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ WFBR = 0; ┆
0x35506…35526 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x35526…35535 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x35535…35555 (33, 0, 75) 20 20 20 20 20 20 20 20 53 54 31 20 3d 20 41 44 44 52 20 28 53 54 31 49 4e 41 52 45 41 29 3b 20 ┆ ST1 = ADDR (ST1INAREA); ┆
0x35555…35575 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x35575…35584 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x35584…355a4 (33, 0, 76) 20 20 20 20 20 20 20 20 50 45 4b 41 52 45 20 3d 20 55 4e 53 50 45 43 20 28 53 54 31 29 20 2b 20 ┆ PEKARE = UNSPEC (ST1) + ┆
0x355a4…355c4 35 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆5; ┆
0x355c4…355d3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x355d3…355f3 (33, 0, 77) 20 20 20 20 20 20 20 20 50 45 4b 41 52 45 20 3d 20 50 45 4b 41 52 45 20 2b 20 33 20 2a 20 28 28 ┆ PEKARE = PEKARE + 3 * ((┆
0x355f3…35613 50 41 52 41 44 45 42 50 45 52 20 2d 20 31 29 20 2a 20 33 30 29 3b 20 20 20 20 20 20 20 20 20 20 ┆PARADEBPER - 1) * 30); ┆
0x35613…35622 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x35622…35642 (33, 0, 78) 20 20 20 20 20 20 20 20 44 4f 20 49 20 3d 20 31 20 54 4f 20 33 3b 20 20 20 20 20 20 20 20 20 20 ┆ DO I = 1 TO 3; ┆
0x35642…35662 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x35662…35671 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x35671…35691 (33, 0, 79) 20 20 20 20 20 20 20 20 20 20 20 20 50 45 4b 41 52 45 20 3d 20 50 45 4b 41 52 45 20 2b 20 33 30 ┆ PEKARE = PEKARE + 30┆
0x35691…356b1 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 ┆; ┆
0x356b1…356c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x356c0…356e0 (33, 0, 80) 20 20 20 20 20 20 20 20 20 20 20 20 55 4e 53 50 45 43 20 28 53 54 31 29 20 3d 20 50 45 4b 41 52 ┆ UNSPEC (ST1) = PEKAR┆
0x356e0…35700 45 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 ┆E; ┆
0x35700…3570f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3570f…3572f (33, 0, 81) 20 20 20 20 20 20 20 20 20 20 20 20 57 46 42 52 20 3d 20 57 46 42 52 20 2b 20 53 54 31 45 46 42 ┆ WFBR = WFBR + ST1EFB┆
0x3572f…3574f 52 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆R; ┆
0x3574f…3575e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3575e…3577e (34, 0, 0) 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; ┆
0x3577e…3579e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3579e…357ad 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x357ad…357cd (34, 0, 1) 20 20 20 20 20 20 20 20 53 54 32 45 41 56 47 20 3d 20 57 46 42 52 20 2a 20 54 50 41 4b 54 45 41 ┆ ST2EAVG = WFBR * TPAKTEA┆
0x357cd…357ed 56 47 20 2a 20 30 2e 30 31 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆VG * 0.01; ┆
0x357ed…357fc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x357fc…3581c (34, 0, 2) 20 20 20 20 20 20 20 20 53 54 32 54 52 50 46 4f 52 4c 20 3d 20 30 3b 20 20 20 20 20 20 20 20 20 ┆ ST2TRPFORL = 0; ┆
0x3581c…3583c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3583c…3584b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3584b…3586b (34, 0, 3) 20 20 20 20 20 20 20 20 53 54 32 54 52 50 4b 52 54 49 4c 4c 20 3d 20 30 3b 20 20 20 20 20 20 20 ┆ ST2TRPKRTILL = 0; ┆
0x3586b…3588b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3588b…3589a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3589a…358ba (34, 0, 4) 20 20 20 20 20 20 20 20 53 54 32 54 52 45 46 4f 52 4c 20 3d 20 30 3b 20 20 20 20 20 20 20 20 20 ┆ ST2TREFORL = 0; ┆
0x358ba…358da 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x358da…358e9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x358e9…35909 (34, 0, 5) 20 20 20 20 20 20 20 20 53 54 32 54 52 45 4b 52 54 49 4c 4c 20 3d 20 30 3b 20 20 20 20 20 20 20 ┆ ST2TREKRTILL = 0; ┆
0x35909…35929 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x35929…35938 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x35938…35958 (34, 0, 6) 20 20 20 20 20 20 20 20 53 54 32 54 52 48 59 52 20 3d 20 30 3b 20 20 20 20 20 20 20 20 20 20 20 ┆ ST2TRHYR = 0; ┆
0x35958…35978 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x35978…35987 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x35987…359a7 (34, 0, 7) 20 20 20 20 20 20 20 20 53 54 32 54 52 54 49 4c 4c 41 50 52 49 53 20 3d 20 30 2e 30 30 3b 20 20 ┆ ST2TRTILLAPRIS = 0.00; ┆
0x359a7…359c7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x359c7…359d6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x359d6…359f6 (34, 0, 8) 20 20 20 20 20 20 20 20 49 46 20 41 42 48 4f 47 4c 41 47 20 3d 20 27 4c 27 20 26 20 41 42 45 54 ┆ IF ABHOGLAG = 'L' & ABET┆
0x359f6…35a16 52 41 46 4f 20 3d 20 27 45 27 20 54 48 45 4e 20 44 4f 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆RAFO = 'E' THEN DO; ┆
0x35a16…35a25 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x35a25…35a45 (34, 0, 9) 20 20 20 20 20 20 20 20 20 20 20 20 53 54 32 54 52 50 46 4f 52 4c 20 3d 20 53 54 32 44 45 42 50 ┆ ST2TRPFORL = ST2DEBP┆
0x35a45…35a65 20 2a 20 30 2e 30 31 35 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ * 0.015; ┆
0x35a65…35a74 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x35a74…35a94 (34, 0, 10) 20 20 20 20 20 20 20 20 20 20 20 20 53 54 32 54 52 50 4b 52 54 49 4c 4c 20 3d 20 53 54 32 54 52 ┆ ST2TRPKRTILL = ST2TR┆
0x35a94…35ab4 50 46 4f 52 4c 20 2a 20 54 50 41 4b 54 50 41 56 47 20 2a 20 49 55 44 41 4e 54 20 2f 20 33 36 35 ┆PFORL * TPAKTPAVG * IUDANT / 365┆
0x35ab4…35ac3 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆; ┆
0x35ac3…35ae3 (34, 0, 11) 20 20 20 20 20 20 20 20 20 20 20 20 53 54 32 54 52 45 46 4f 52 4c 20 3d 20 57 46 42 52 20 2a 20 ┆ ST2TREFORL = WFBR * ┆
0x35ae3…35b03 30 2e 30 31 35 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆0.015; ┆
0x35b03…35b12 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x35b12…35b32 (34, 0, 12) 20 20 20 20 20 20 20 20 20 20 20 20 57 46 42 52 20 3d 20 57 46 42 52 20 2b 20 53 54 32 54 52 45 ┆ WFBR = WFBR + ST2TRE┆
0x35b32…35b52 46 4f 52 4c 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆FORL; ┆
0x35b52…35b61 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x35b61…35b81 (34, 0, 13) 20 20 20 20 20 20 20 20 20 20 20 20 53 54 32 54 52 45 4b 52 54 49 4c 4c 20 3d 20 53 54 32 54 52 ┆ ST2TREKRTILL = ST2TR┆
0x35b81…35ba1 45 46 4f 52 4c 20 2a 20 54 50 41 4b 54 45 41 56 47 20 2a 20 30 2e 30 31 3b 20 20 20 20 20 20 20 ┆EFORL * TPAKTEAVG * 0.01; ┆
0x35ba1…35bb0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x35bb0…35bd0 (34, 0, 14) 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 42 34 36 3b 20 20 20 20 20 20 20 20 20 20 ┆ GO TO B46; ┆
0x35bd0…35bf0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x35bf0…35bff 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x35bff…35c1f (34, 0, 15) 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; ┆
0x35c1f…35c3f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x35c3f…35c4e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x35c4e…35c6e (34, 0, 16) 20 20 20 20 20 20 20 20 49 46 20 41 42 48 4f 47 4c 41 47 20 3d 20 27 4c 27 20 26 20 41 42 45 54 ┆ IF ABHOGLAG = 'L' & ABET┆
0x35c6e…35c8e 52 41 46 4f 20 3d 20 27 54 27 20 54 48 45 4e 20 44 4f 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆RAFO = 'T' THEN DO; ┆
0x35c8e…35c9d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x35c9d…35cbd (34, 0, 17) 20 20 20 20 20 20 20 20 20 20 20 20 53 54 32 54 52 45 46 4f 52 4c 20 3d 20 57 46 42 52 20 2a 20 ┆ ST2TREFORL = WFBR * ┆
0x35cbd…35cdd 30 2e 30 31 35 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆0.015; ┆
0x35cdd…35cec 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x35cec…35d0c (34, 0, 18) 20 20 20 20 20 20 20 20 20 20 20 20 57 46 42 52 20 3d 20 57 46 42 52 20 2b 20 53 54 32 54 52 45 ┆ WFBR = WFBR + ST2TRE┆
0x35d0c…35d2c 46 4f 52 4c 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆FORL; ┆
0x35d2c…35d3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x35d3b…35d5b (34, 0, 19) 20 20 20 20 20 20 20 20 20 20 20 20 53 54 32 54 52 45 4b 52 54 49 4c 4c 20 3d 20 53 54 32 54 52 ┆ ST2TREKRTILL = ST2TR┆
0x35d5b…35d7b 45 46 4f 52 4c 20 2a 20 54 50 41 4b 54 45 41 56 47 20 2a 20 30 2e 30 31 3b 20 20 20 20 20 20 20 ┆EFORL * TPAKTEAVG * 0.01; ┆
0x35d7b…35d8a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x35d8a…35daa (34, 0, 20) 20 20 20 20 20 20 20 20 20 20 20 20 53 54 32 54 52 48 59 52 20 3d 20 28 54 50 41 4b 54 50 54 49 ┆ ST2TRHYR = (TPAKTPTI┆
0x35daa…35dca 4c 4c 4b 52 20 2b 20 28 53 54 32 44 45 42 50 20 2a 20 54 50 41 4b 54 50 4b 52 50 45 52 4b 57 29 ┆LLKR + (ST2DEBP * TPAKTPKRPERKW)┆
0x35dca…35dd9 29 2a 20 49 55 44 41 4e 54 20 2f 33 36 35 3b ┆)* IUDANT /365;┆
0x35dd9…35df9 (34, 0, 21) 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; ┆
0x35df9…35e19 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x35e19…35e28 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x35e28…35e48 (34, 0, 22) 42 34 36 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 ┆B46: ┆
0x35e48…35e68 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x35e68…35e77 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x35e77…35e97 (34, 0, 23) 20 20 20 20 20 20 20 20 53 54 32 4f 56 45 52 54 49 4c 4c 20 3d 20 30 2e 30 30 3b 20 20 20 20 20 ┆ ST2OVERTILL = 0.00; ┆
0x35e97…35eb7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x35eb7…35ec6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x35ec6…35ee6 (34, 0, 24) 20 20 20 20 20 20 20 20 20 20 20 20 53 54 32 4e 4f 54 54 20 3d 20 27 20 27 3b 20 20 20 20 20 20 ┆ ST2NOTT = ' '; ┆
0x35ee6…35f06 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x35f06…35f15 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x35f15…35f35 (34, 0, 25) 20 20 20 20 20 20 20 20 53 54 32 4f 56 52 41 56 44 52 20 3d 20 30 2e 30 30 3b 20 20 20 20 20 20 ┆ ST2OVRAVDR = 0.00; ┆
0x35f35…35f55 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x35f55…35f64 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x35f64…35f84 (34, 0, 26) 20 20 20 20 20 20 20 20 53 54 32 4e 4f 54 41 20 3d 20 27 20 27 3b 20 20 20 20 20 20 20 20 20 20 ┆ ST2NOTA = ' '; ┆
0x35f84…35fa4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x35fa4…35fb3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x35fb3…35fd3 (34, 0, 27) 20 20 20 20 20 20 20 20 49 46 20 41 42 53 4b 4b 4f 44 20 3d 20 27 31 27 20 54 48 45 4e 20 44 4f ┆ IF ABSKKOD = '1' THEN DO┆
0x35fd3…35ff3 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 ┆; ┆
0x35ff3…36002 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x36002…36022 (34, 0, 28) 20 20 20 20 20 20 20 20 20 20 20 20 53 54 32 53 4b 34 46 42 52 20 3d 20 57 46 42 52 3b 20 20 20 ┆ ST2SK4FBR = WFBR; ┆
0x36022…36042 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x36042…36051 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x36051…36071 (34, 0, 29) 20 20 20 20 20 20 20 20 20 20 20 20 53 54 32 53 4b 34 20 3d 20 57 46 42 52 20 2a 20 30 2e 30 34 ┆ ST2SK4 = WFBR * 0.04┆
0x36071…36091 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 ┆; ┆
0x36091…360a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x360a0…360c0 (34, 0, 30) 20 20 20 20 20 20 20 20 20 20 20 20 53 54 32 53 4b 33 46 42 52 20 3d 20 30 3b 20 20 20 20 20 20 ┆ ST2SK3FBR = 0; ┆
0x360c0…360e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x360e0…360ef 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x360ef…3610f (34, 0, 31) 20 20 20 20 20 20 20 20 20 20 20 20 53 54 32 53 4b 33 20 3d 20 30 2e 30 30 3b 20 20 20 20 20 20 ┆ ST2SK3 = 0.00; ┆
0x3610f…3612f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3612f…3613e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3613e…3615e (34, 0, 32) 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 42 38 30 3b 20 20 20 20 20 20 20 20 20 20 ┆ GO TO B80; ┆
0x3615e…3617e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3617e…3618d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3618d…361ad (34, 0, 33) 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; ┆
0x361ad…361cd 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x361cd…361dc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x361dc…361fc (34, 0, 34) 20 20 20 20 20 20 20 20 49 46 20 41 42 53 4b 4b 4f 44 20 3d 20 27 32 27 20 54 48 45 4e 20 47 4f ┆ IF ABSKKOD = '2' THEN GO┆
0x361fc…3621c 20 54 4f 20 42 35 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 ┆ TO B50; ┆
0x3621c…3622b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3622b…3624b (34, 0, 35) 20 20 20 20 20 20 20 20 49 46 20 41 42 53 4b 4b 4f 44 20 3d 20 27 30 27 20 54 48 45 4e 20 44 4f ┆ IF ABSKKOD = '0' THEN DO┆
0x3624b…3626b 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 ┆; ┆
0x3626b…3627a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3627a…3629a (34, 0, 36) 20 20 20 20 20 20 20 20 20 20 20 20 53 54 32 53 4b 34 46 42 52 20 3d 20 30 3b 20 20 20 20 20 20 ┆ ST2SK4FBR = 0; ┆
0x3629a…362ba 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x362ba…362c9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x362c9…362e9 (34, 0, 37) 20 20 20 20 20 20 20 20 20 20 20 20 53 54 32 53 4b 34 20 3d 20 30 2e 30 30 3b 20 20 20 20 20 20 ┆ ST2SK4 = 0.00; ┆
0x362e9…36309 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x36309…36318 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x36318…36338 (34, 0, 38) 20 20 20 20 20 20 20 20 20 20 20 20 53 54 32 53 4b 33 46 42 52 20 3d 20 30 3b 20 20 20 20 20 20 ┆ ST2SK3FBR = 0; ┆
0x36338…36358 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x36358…36367 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x36367…36387 (34, 0, 39) 20 20 20 20 20 20 20 20 20 20 20 20 53 54 32 53 4b 33 20 3d 20 30 2e 30 30 3b 20 20 20 20 20 20 ┆ ST2SK3 = 0.00; ┆
0x36387…363a7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x363a7…363b6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x363b6…363d6 (34, 0, 40) 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 42 38 30 3b 20 20 20 20 20 20 20 20 20 20 ┆ GO TO B80; ┆
0x363d6…363f6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x363f6…36405 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x36405…36425 (34, 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; ┆
0x36425…36445 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x36445…36454 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x36454…36474 (34, 0, 42) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 4c 49 53 54 20 28 27 4e 55 20 5b 52 20 44 45 ┆ PUT SKIP LIST ('NU ÄR DE┆
0x36474…36494 54 20 46 45 4c 20 49 20 53 4b 41 54 54 45 4b 4f 44 45 4e 20 3d 20 27 2c 41 42 53 4b 4b 4f 44 29 ┆T FEL I SKATTEKODEN = ',ABSKKOD)┆
0x36494…364a3 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆; ┆
0x364a3…364c3 (34, 0, 43) 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 42 38 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GO TO B80; ┆
0x364c3…364e3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x364e3…364f2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x364f2…36512 (34, 0, 44) 42 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 20 20 20 20 20 ┆B50: ┆
0x36512…36532 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x36532…36541 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x36541…36561 (34, 0, 45) 20 20 20 20 20 20 20 20 49 46 20 41 42 4f 52 45 44 4b 57 48 20 3d 20 57 4f 52 45 44 4b 57 48 20 ┆ IF ABOREDKWH = WOREDKWH ┆
0x36561…36581 54 48 45 4e 20 47 4f 20 54 4f 20 42 36 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆THEN GO TO B60; ┆
0x36581…36590 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x36590…365b0 (34, 0, 46) 20 20 20 20 20 20 20 20 49 46 20 41 42 4f 52 45 44 4b 57 48 20 3c 20 57 4f 52 45 44 4b 57 48 20 ┆ IF ABOREDKWH < WOREDKWH ┆
0x365b0…365d0 54 48 45 4e 20 47 4f 20 54 4f 20 42 37 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆THEN GO TO B70; ┆
0x365d0…365df 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x365df…365ff (34, 0, 47) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 4c 49 53 54 20 28 27 46 45 4c 20 49 20 53 4b ┆ PUT SKIP LIST ('FEL I SK┆
0x365ff…3661f 41 54 54 45 46 5b 4c 54 45 54 20 41 42 4e 52 20 3d 20 27 2c 41 42 41 42 4e 52 29 3b 20 20 20 20 ┆ATTEFÄLTET ABNR = ',ABABNR); ┆
0x3661f…3662e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3662e…3667d (34, 0, 48) 0x20[0x4f]
0x3667d…3669d (34, 0, 49) 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 42 38 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GO TO B80; ┆
0x3669d…366bd 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x366bd…366cc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x366cc…366ec (34, 0, 50) 42 36 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 ┆B60: ┆
0x366ec…3670c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3670c…3671b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3671b…3673b (34, 0, 51) 20 20 20 20 20 20 20 20 20 20 20 20 53 54 32 53 4b 33 46 42 52 20 3d 20 57 46 42 52 3b 20 20 20 ┆ ST2SK3FBR = WFBR; ┆
0x3673b…3675b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3675b…3676a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3676a…3678a (34, 0, 52) 20 20 20 20 20 20 20 20 20 20 20 20 53 54 32 53 4b 33 20 3d 20 57 46 42 52 20 2a 20 30 2e 30 33 ┆ ST2SK3 = WFBR * 0.03┆
0x3678a…367aa 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 ┆; ┆
0x367aa…367b9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x367b9…367d9 (34, 0, 53) 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 42 38 30 3b 20 20 20 20 20 20 20 20 20 20 ┆ GO TO B80; ┆
0x367d9…367f9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x367f9…36808 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x36808…36828 (34, 0, 54) 42 37 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 ┆B70: ┆
0x36828…36848 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x36848…36857 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x36857…36877 (34, 0, 55) 20 20 20 20 20 20 20 20 20 20 20 20 53 54 32 53 4b 34 46 42 52 20 3d 20 20 57 4f 52 45 44 4b 57 ┆ ST2SK4FBR = WOREDKW┆
0x36877…36897 48 20 2d 20 41 42 4f 52 45 44 4b 57 48 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆H - ABOREDKWH; ┆
0x36897…368a6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x368a6…368c6 (34, 0, 56) 20 20 20 20 20 20 20 20 20 20 20 20 41 42 4f 52 45 44 4b 57 48 20 3d 20 41 42 4f 52 45 44 4b 57 ┆ ABOREDKWH = ABOREDKW┆
0x368c6…368e6 48 20 2b 20 53 54 32 53 4b 34 46 42 52 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆H + ST2SK4FBR; ┆
0x368e6…368f5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x368f5…36915 (34, 0, 57) 20 20 20 20 20 20 20 20 20 20 20 20 53 54 32 53 4b 34 20 3d 20 53 54 32 53 4b 34 46 42 52 20 2a ┆ ST2SK4 = ST2SK4FBR *┆
0x36915…36935 20 30 2e 30 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 ┆ 0.04; ┆
0x36935…36944 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x36944…36964 (34, 0, 58) 20 20 20 20 20 20 20 20 20 20 20 20 53 54 32 53 4b 33 46 42 52 20 3d 20 57 46 42 52 20 2d 20 53 ┆ ST2SK3FBR = WFBR - S┆
0x36964…36984 54 32 53 4b 34 46 42 52 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆T2SK4FBR; ┆
0x36984…36993 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x36993…369b3 (34, 0, 59) 20 20 20 20 20 20 20 20 20 20 20 20 53 54 32 53 4b 33 20 3d 20 53 54 32 53 4b 33 46 42 52 20 2a ┆ ST2SK3 = ST2SK3FBR *┆
0x369b3…369d3 20 30 2e 30 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 ┆ 0.03; ┆
0x369d3…369e2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x369e2…36a02 (34, 0, 60) 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 42 38 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GO TO B80; ┆
0x36a02…36a22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x36a22…36a31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x36a31…36a51 (34, 0, 61) 2f 2a 20 20 20 20 20 20 4d 41 52 4b 45 52 49 4e 47 20 49 20 53 54 41 54 52 45 47 32 20 41 56 20 ┆/* MARKERING I STATREG2 AV ┆
0x36a51…36a71 41 54 54 20 54 49 4c 4c 52 41 44 45 52 20 46 49 4e 4e 53 20 4f 43 48 20 41 56 20 56 49 4c 4b 45 ┆ATT TILLRADER FINNS OCH AV VILKE┆
0x36a71…36a80 4e 20 54 59 50 20 44 45 20 5b 52 2e 20 2a 2f ┆N TYP DE ÄR. */┆
0x36a80…36acf (34, 0, 62) 0x20[0x4f]
0x36acf…36aef (34, 0, 63) 42 38 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 ┆B80: ┆
0x36aef…36b0f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x36b0f…36b1e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x36b1e…36b3e (34, 0, 64) 20 20 20 20 20 20 20 20 4f 50 45 4e 20 54 49 4c 4c 52 41 44 3b 20 20 20 20 20 20 20 20 20 20 20 ┆ OPEN TILLRAD; ┆
0x36b3e…36b5e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x36b5e…36b6d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x36b6d…36b8d (34, 0, 65) 42 38 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 ┆B85: ┆
0x36b8d…36bad 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x36bad…36bbc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x36bbc…36bdc (34, 0, 66) 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 42 31 30 30 3b 20 20 ┆ ON ENDFILE GO TO B100; ┆
0x36bdc…36bfc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x36bfc…36c0b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x36c0b…36c2b (34, 0, 67) 20 20 20 20 20 20 20 20 4f 4e 20 45 52 52 4f 52 20 47 4f 20 54 4f 20 42 39 30 3b 20 20 20 20 20 ┆ ON ERROR GO TO B90; ┆
0x36c2b…36c4b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x36c4b…36c5a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x36c5a…36c7a (34, 0, 68) 20 20 20 20 20 20 20 20 52 45 41 44 20 46 49 4c 45 20 28 54 49 4c 4c 52 41 44 29 20 49 4e 54 4f ┆ READ FILE (TILLRAD) INTO┆
0x36c7a…36c9a 20 28 54 49 4c 4c 52 41 44 50 4f 53 54 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ (TILLRADPOST); ┆
0x36c9a…36ca9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x36ca9…36cc9 (34, 0, 69) 20 20 20 20 20 20 20 20 49 46 20 54 49 4c 4c 41 42 4e 52 20 3d 20 41 42 41 42 4e 52 20 54 48 45 ┆ IF TILLABNR = ABABNR THE┆
0x36cc9…36ce9 4e 20 44 4f 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆N DO; ┆
0x36ce9…36cf8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x36cf8…36d18 (34, 0, 70) 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 54 49 4c 4c 4b 56 41 52 54 41 4c 20 3d 20 50 41 52 ┆ IF TILLKVARTAL = PAR┆
0x36d18…36d38 41 44 45 42 50 45 52 20 54 48 45 4e 20 44 4f 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ADEBPER THEN DO; ┆
0x36d38…36d47 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x36d47…36d67 (34, 0, 71) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 20 3d 20 53 55 42 53 54 52 20 28 54 49 4c 4c ┆ I = SUBSTR (TILL┆
0x36d67…36d87 52 4b 4f 44 2c 31 2c 31 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆RKOD,1,1); ┆
0x36d87…36d96 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x36d96…36db6 (34, 0, 72) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 55 42 53 54 52 20 28 53 54 32 54 41 52 41 44 ┆ SUBSTR (ST2TARAD┆
0x36db6…36dd6 2c 49 2c 31 29 20 3d 20 53 55 42 53 54 52 20 28 53 54 32 54 41 52 41 44 2c 49 2c 31 29 20 2b 20 ┆,I,1) = SUBSTR (ST2TARAD,I,1) + ┆
0x36dd6…36de5 27 31 27 3b 20 20 20 20 20 20 20 20 20 20 20 ┆'1'; ┆
0x36de5…36e05 (34, 0, 73) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 42 38 35 3b 20 20 20 20 20 20 ┆ GO TO B85; ┆
0x36e05…36e25 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x36e25…36e34 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x36e34…36e54 (34, 0, 74) 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; ┆
0x36e54…36e74 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x36e74…36e83 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x36e83…36ea3 (34, 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; ┆
0x36ea3…36ec3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x36ec3…36ed2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x36ed2…36ef2 (34, 0, 76) 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 42 38 35 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GO TO B85; ┆
0x36ef2…36f12 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x36f12…36f21 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x36f21…36f41 (34, 0, 77) 42 39 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 ┆B90: ┆
0x36f41…36f61 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x36f61…36f70 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x36f70…36f90 (34, 0, 78) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 4c 49 53 54 20 28 27 4c 5b 53 46 45 4c 20 49 ┆ PUT SKIP LIST ('LÄSFEL I┆
0x36f90…36fb0 20 54 49 4c 4c 52 41 44 20 41 42 4e 52 20 52 4b 4f 44 20 3d 20 27 2c 41 42 41 42 4e 52 2c 4f 4e ┆ TILLRAD ABNR RKOD = ',ABABNR,ON┆
0x36fb0…36fbf 43 4f 44 45 29 3b 20 20 20 20 20 20 20 20 20 ┆CODE); ┆
0x36fbf…36fdf (34, 0, 79) 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 5a 39 39 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GO TO Z99; ┆
0x36fdf…36fff 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x36fff…3700e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3700e…3702e (34, 0, 80) 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 20 20 20 20 ┆B100: ┆
0x3702e…3704e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3704e…3705d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3705d…370ac (34, 0, 81) 0x20[0x4f]
0x370ac…370cc (35, 0, 0) 20 20 20 20 20 20 20 20 57 52 49 54 45 20 46 49 4c 45 20 28 53 54 41 54 52 45 47 32 29 20 46 52 ┆ WRITE FILE (STATREG2) FR┆
0x370cc…370ec 4f 4d 20 28 53 54 32 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 ┆OM (ST2POST); ┆
0x370ec…370fb 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x370fb…3711b (35, 0, 1) 20 20 20 20 20 20 20 20 52 45 57 52 49 54 45 20 46 49 4c 45 20 28 41 42 4f 4e 4e 52 45 47 29 20 ┆ REWRITE FILE (ABONNREG) ┆
0x3711b…3713b 46 52 4f 4d 20 28 41 42 4f 4e 50 4f 53 54 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆FROM (ABONPOST); ┆
0x3713b…3714a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3714a…3716a (35, 0, 2) 20 20 20 20 20 20 20 20 52 45 57 52 49 54 45 20 46 49 4c 45 20 28 53 54 41 54 52 45 47 31 29 20 ┆ REWRITE FILE (STATREG1) ┆
0x3716a…3718a 46 52 4f 4d 20 28 53 54 31 49 4e 41 52 45 41 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆FROM (ST1INAREA); ┆
0x3718a…37199 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x37199…371b9 (35, 0, 3) 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 41 32 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GO TO A20; ┆
0x371b9…371d9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x371d9…371e8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x371e8…37237 (35, 0, 4) 0x20[0x4f]
0x37237…37257 (35, 0, 5) 2f 2a 20 20 20 20 20 20 5d 52 53 41 56 52 5b 4b 4e 49 4e 47 20 20 20 20 20 20 20 20 20 20 20 20 ┆/* ÅRSAVRÄKNING ┆
0x37257…37277 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x37277…37286 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2f ┆ */┆
0x37286…372d5 (35, 0, 6) 0x20[0x4f]
0x372d5…372f5 (35, 0, 7) 43 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 ┆C10: ┆
0x372f5…37315 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x37315…37324 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x37324…37344 (35, 0, 8) 20 20 20 20 20 20 20 20 49 46 20 41 42 46 4c 59 54 54 20 3d 20 27 46 27 20 54 48 45 4e 20 47 4f ┆ IF ABFLYTT = 'F' THEN GO┆
0x37344…37364 20 54 4f 20 41 32 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 ┆ TO A20; ┆
0x37364…37373 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x37373…37393 (35, 0, 9) 20 20 20 20 20 20 20 20 49 46 20 53 55 42 53 54 52 20 28 41 42 4d 41 4e 2c 32 2c 31 29 20 3d 20 ┆ IF SUBSTR (ABMAN,2,1) = ┆
0x37393…373b3 27 4d 27 20 54 48 45 4e 20 47 4f 20 54 4f 20 41 32 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆'M' THEN GO TO A20; ┆
0x373b3…373c2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x373c2…373e2 (35, 0, 10) 20 20 20 20 20 20 20 20 49 46 20 53 55 42 53 54 52 20 28 41 42 4d 41 4e 2c 32 2c 31 29 20 3d 20 ┆ IF SUBSTR (ABMAN,2,1) = ┆
0x373e2…37402 27 55 27 20 54 48 45 4e 20 47 4f 20 54 4f 20 41 32 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆'U' THEN GO TO A20; ┆
0x37402…37411 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x37411…37460 (35, 0, 11) 0x20[0x4f]
0x37460…37480 (35, 0, 12) 20 20 20 20 20 20 20 20 44 4f 20 49 20 3d 20 31 20 54 4f 20 34 3b 20 20 20 20 20 20 20 20 20 20 ┆ DO I = 1 TO 4; ┆
0x37480…374a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x374a0…374af 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x374af…374cf (35, 0, 13) 20 20 20 20 20 20 20 20 20 20 20 20 41 50 4d 4c 20 28 49 29 20 3d 20 30 3b 20 20 20 20 20 20 20 ┆ APML (I) = 0; ┆
0x374cf…374ef 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x374ef…374fe 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x374fe…3751e (35, 0, 14) 20 20 20 20 20 20 20 20 20 20 20 20 41 50 4d 4c 4d 41 4e 20 28 49 29 20 3d 20 30 3b 20 20 20 20 ┆ APMLMAN (I) = 0; ┆
0x3751e…3753e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3753e…3754d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3754d…3756d (35, 0, 15) 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; ┆
0x3756d…3758d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3758d…3759c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3759c…375eb (35, 0, 16) 0x20[0x4f]
0x375eb…3760b (35, 0, 17) 43 32 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 ┆C20: ┆
0x3760b…3762b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3762b…3763a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3763a…3765a (35, 0, 18) 20 20 20 20 20 20 20 20 44 4f 20 49 20 3d 20 31 20 54 4f 20 31 32 3b 20 20 20 20 20 20 20 20 20 ┆ DO I = 1 TO 12; ┆
0x3765a…3767a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3767a…37689 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x37689…376a9 (35, 0, 19) 20 20 20 20 20 20 20 20 20 20 20 20 50 45 4b 41 52 45 20 3d 20 53 54 41 52 54 50 20 2b 20 28 49 ┆ PEKARE = STARTP + (I┆
0x376a9…376c9 20 2a 20 33 30 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 ┆ * 30); ┆
0x376c9…376d8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x376d8…376f8 (35, 0, 20) 20 20 20 20 20 20 20 20 20 20 20 20 55 4e 53 50 45 43 20 28 53 54 31 29 20 3d 20 50 45 4b 41 52 ┆ UNSPEC (ST1) = PEKAR┆
0x376f8…37718 45 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 ┆E; ┆
0x37718…37727 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x37727…37747 (35, 0, 21) 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 53 55 42 53 54 52 20 28 41 42 4d 41 4e 2c 35 2c 31 ┆ IF SUBSTR (ABMAN,5,1┆
0x37747…37767 29 20 3d 20 27 56 27 20 54 48 45 4e 20 44 4f 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆) = 'V' THEN DO; ┆
0x37767…37776 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x37776…37796 (35, 0, 22) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 28 49 20 3e 20 33 20 26 20 49 20 3c 20 ┆ IF (I > 3 & I < ┆
0x37796…377b6 31 30 29 20 54 48 45 4e 20 44 4f 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆10) THEN DO; ┆
0x377b6…377c5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x377c5…377e5 (35, 0, 23) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 54 31 50 46 42 52 20 3d 20 30 3b ┆ ST1PFBR = 0;┆
0x377e5…37805 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x37805…37814 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x37814…37834 (35, 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; ┆
0x37834…37854 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x37854…37863 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x37863…37883 (35, 0, 25) 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; ┆
0x37883…378a3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x378a3…378b2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x378b2…378d2 (35, 0, 26) 20 20 20 20 20 20 20 20 20 20 20 20 43 41 4c 4c 20 41 50 4d 45 44 45 4c 3b 20 20 20 20 20 20 20 ┆ CALL APMEDEL; ┆
0x378d2…378f2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x378f2…37901 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x37901…37921 (35, 0, 27) 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; ┆
0x37921…37941 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x37941…37950 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x37950…3799f (35, 0, 28) 0x20[0x4f]
[…0x1…]
0x379ee…37a0e (35, 0, 30) 43 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 20 20 20 20 20 ┆C50: ┆
0x37a0e…37a2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x37a2e…37a3d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x37a3d…37a5d (35, 0, 31) 20 20 20 20 20 20 20 20 41 50 4d 4c 20 28 31 29 20 3d 20 41 50 4d 4c 20 28 31 29 20 2b 20 41 50 ┆ APML (1) = APML (1) + AP┆
0x37a5d…37a7d 4d 4c 20 28 32 29 20 2b 20 41 50 4d 4c 20 28 33 29 20 2b 20 41 50 4d 4c 20 28 34 29 3b 20 20 20 ┆ML (2) + APML (3) + APML (4); ┆
0x37a7d…37a8c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x37a8c…37aac (35, 0, 32) 20 20 20 20 20 20 20 20 41 50 4d 4c 20 28 32 29 20 3d 20 41 50 4d 4c 20 28 31 29 20 2f 20 34 3b ┆ APML (2) = APML (1) / 4;┆
0x37aac…37acc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x37acc…37adb 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x37adb…37b2a (35, 0, 33) 0x20[0x4f]
0x37b2a…37b4a (35, 0, 34) 43 36 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 ┆C60: ┆
0x37b4a…37b6a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x37b6a…37b79 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x37b79…37b99 (35, 0, 35) 20 20 20 20 20 20 20 20 4f 50 45 4e 20 53 54 41 54 52 45 47 32 3b 20 20 20 20 20 20 20 20 20 20 ┆ OPEN STATREG2; ┆
0x37b99…37bb9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x37bb9…37bc8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x37bc8…37be8 (35, 0, 36) 20 20 20 20 20 20 20 20 53 54 32 4e 41 42 4e 52 20 3d 20 41 42 41 42 4e 52 3b 20 20 20 20 20 20 ┆ ST2NABNR = ABABNR; ┆
0x37be8…37c08 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x37c08…37c17 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x37c17…37c37 (35, 0, 37) 20 20 20 20 20 20 20 20 53 54 32 4e 50 45 52 20 3d 20 50 41 52 41 44 45 42 50 45 52 3b 20 20 20 ┆ ST2NPER = PARADEBPER; ┆
0x37c37…37c57 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x37c57…37c66 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x37c66…37c86 (35, 0, 38) 20 20 20 20 20 20 20 20 52 45 41 44 20 4b 45 59 20 28 53 54 32 52 45 47 4e 59 43 4b 45 4c 29 20 ┆ READ KEY (ST2REGNYCKEL) ┆
0x37c86…37ca6 46 49 4c 45 20 28 53 54 41 54 52 45 47 32 29 20 49 4e 54 4f 20 28 53 54 32 50 4f 53 54 29 3b 20 ┆FILE (STATREG2) INTO (ST2POST); ┆
0x37ca6…37cb5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x37cb5…37cd5 (35, 0, 39) 20 20 20 20 20 20 20 20 53 54 32 44 45 42 50 20 3d 20 41 50 4d 4c 20 28 32 29 3b 20 20 20 20 20 ┆ ST2DEBP = APML (2); ┆
0x37cd5…37cf5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x37cf5…37d04 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x37d04…37d24 (35, 0, 40) 20 20 20 20 20 20 20 20 53 54 32 50 41 56 47 20 3d 20 53 54 32 44 45 42 50 20 2a 20 54 50 41 4b ┆ ST2PAVG = ST2DEBP * TPAK┆
0x37d24…37d44 54 50 41 56 47 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 ┆TPAVG; ┆
0x37d44…37d53 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x37d53…37d73 (35, 0, 41) 20 20 20 20 20 20 20 20 49 46 20 41 42 48 4f 47 4c 41 47 20 3d 20 27 4c 27 20 54 48 45 4e 20 44 ┆ IF ABHOGLAG = 'L' THEN D┆
0x37d73…37d93 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; ┆
0x37d93…37da2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x37da2…37dc2 (35, 0, 42) 20 20 20 20 20 20 20 20 20 20 20 20 53 54 32 54 52 50 46 4f 52 4c 20 3d 20 53 54 32 44 45 42 50 ┆ ST2TRPFORL = ST2DEBP┆
0x37dc2…37de2 20 2a 20 30 2e 30 31 35 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ * 0.015; ┆
0x37de2…37df1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x37df1…37e11 (35, 0, 43) 20 20 20 20 20 20 20 20 20 20 20 20 53 54 32 54 52 50 4b 52 54 49 4c 4c 20 3d 20 53 54 32 54 52 ┆ ST2TRPKRTILL = ST2TR┆
0x37e11…37e31 50 46 4f 52 4c 20 2a 20 54 50 41 4b 54 50 41 56 47 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆PFORL * TPAKTPAVG; ┆
0x37e31…37e40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x37e40…37e60 (35, 0, 44) 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; ┆
0x37e60…37e80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x37e80…37e8f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x37e8f…37eaf (35, 0, 45) 20 20 20 20 20 20 20 20 49 46 20 41 42 45 54 52 41 46 4f 20 3d 20 27 54 27 20 54 48 45 4e 20 44 ┆ IF ABETRAFO = 'T' THEN D┆
0x37eaf…37ecf 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; ┆
0x37ecf…37ede 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x37ede…37efe (35, 0, 46) 20 20 20 20 20 20 20 20 20 20 20 20 53 54 32 54 52 48 59 52 20 3d 20 28 53 54 32 44 45 42 50 20 ┆ ST2TRHYR = (ST2DEBP ┆
0x37efe…37f1e 2b 20 53 54 32 54 52 50 46 4f 52 4c 29 20 2a 20 31 32 2e 30 30 3b 20 20 20 20 20 20 20 20 20 20 ┆+ ST2TRPFORL) * 12.00; ┆
0x37f1e…37f2d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x37f2d…37f4d (35, 0, 47) 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 41 42 53 4c 49 4e 47 44 55 42 42 45 4c 20 3d 20 27 ┆ IF ABSLINGDUBBEL = '┆
0x37f4d…37f6d 44 27 20 54 48 45 4e 20 44 4f 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆D' THEN DO; ┆
0x37f6d…37f7c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x37f7c…37f9c (35, 0, 48) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 54 32 54 52 48 59 52 20 3d 20 28 53 54 32 44 ┆ ST2TRHYR = (ST2D┆
0x37f9c…37fbc 45 42 50 20 2b 20 53 54 32 54 52 50 46 4f 52 4c 29 20 2a 20 31 35 2e 30 30 3b 20 20 20 20 20 20 ┆EBP + ST2TRPFORL) * 15.00; ┆
0x37fbc…37fcb 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x37fcb…37feb (35, 0, 49) 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; ┆
0x37feb…3800b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3800b…3801a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3801a…3803a (35, 0, 50) 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; ┆
0x3803a…3805a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3805a…38069 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x38069…38089 (35, 0, 51) 20 20 20 20 20 20 20 20 53 54 32 41 52 53 41 56 52 20 3d 20 27 4a 27 3b 20 20 20 20 20 20 20 20 ┆ ST2ARSAVR = 'J'; ┆
0x38089…380a9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x380a9…380b8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x380b8…380d8 (35, 0, 52) 20 20 20 20 20 20 20 20 44 4f 20 49 20 3d 20 31 20 54 4f 20 34 3b 20 20 20 20 20 20 20 20 20 20 ┆ DO I = 1 TO 4; ┆
0x380d8…380f8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x380f8…38107 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x38107…38127 (35, 0, 53) 20 20 20 20 20 20 20 20 20 20 20 20 53 54 32 50 54 4f 50 50 20 28 49 29 20 3d 20 41 50 4d 4c 4d ┆ ST2PTOPP (I) = APMLM┆
0x38127…38147 41 4e 20 28 49 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆AN (I); ┆
0x38147…38156 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x38156…38176 (35, 0, 54) 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; ┆
0x38176…38196 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x38196…381a5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x381a5…381c5 (35, 0, 55) 20 20 20 20 20 20 20 20 52 45 57 52 49 54 45 20 46 49 4c 45 20 28 53 54 41 54 52 45 47 32 29 20 ┆ REWRITE FILE (STATREG2) ┆
0x381c5…381e5 46 52 4f 4d 20 28 53 54 32 50 4f 53 54 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆FROM (ST2POST); ┆
0x381e5…381f4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x381f4…38214 (35, 0, 56) 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 41 32 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GO TO A20; ┆
0x38214…38234 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x38234…38243 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x38243…38263 (35, 0, 57) 46 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 20 ┆F00: ┆
0x38263…38283 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x38283…38292 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x38292…382e1 (35, 0, 58) 0x20[0x4f]
[…0x2…]
0x3837f…3839f (35, 0, 61) 46 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 ┆F10: ┆
0x3839f…383bf 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x383bf…383ce 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x383ce…383ee (35, 0, 62) 20 20 20 20 20 20 20 20 49 46 20 53 56 41 52 20 3d 20 27 31 27 20 54 48 45 4e 20 47 4f 20 54 4f ┆ IF SVAR = '1' THEN GO TO┆
0x383ee…3840e 20 5a 39 39 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 ┆ Z99; ┆
0x3840e…3841d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3841d…3843d (35, 0, 63) 20 20 20 20 20 20 20 20 49 46 20 53 56 41 52 20 3d 20 27 33 27 20 54 48 45 4e 20 47 4f 20 54 4f ┆ IF SVAR = '3' THEN GO TO┆
0x3843d…3845d 20 5a 39 39 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 ┆ Z99; ┆
0x3845d…3846c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3846c…3848c (35, 0, 64) 20 20 20 20 20 20 20 20 49 46 20 48 4b 20 3d 20 27 32 27 20 54 48 45 4e 20 47 4f 20 54 4f 20 46 ┆ IF HK = '2' THEN GO TO F┆
0x3848c…384ac 32 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; ┆
0x384ac…384bb 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x384bb…384db (35, 0, 65) 20 20 20 20 20 20 20 20 49 46 20 48 4b 20 3d 20 27 31 27 20 54 48 45 4e 20 48 4b 20 3d 20 27 32 ┆ IF HK = '1' THEN HK = '2┆
0x384db…384fb 27 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆'; ┆
0x384fb…3850a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3850a…3852a (35, 0, 66) 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 41 31 35 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GO TO A15; ┆
0x3852a…3854a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3854a…38559 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x38559…38579 (35, 0, 67) 46 32 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 ┆F20: ┆
0x38579…38599 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x38599…385a8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x385a8…385c8 (35, 0, 68) 20 20 20 20 20 20 20 20 43 4c 4f 53 45 20 53 54 41 54 52 45 47 32 3b 20 20 20 20 20 20 20 20 20 ┆ CLOSE STATREG2; ┆
0x385c8…385e8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x385e8…385f7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x385f7…38646 (35, 0, 69) 0x20[0x4f]
0x38646…38666 (35, 0, 70) 47 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 20 ┆G00: ┆
0x38666…38686 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x38686…38695 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x38695…386e4 (35, 0, 71) 0x20[0x4f]
[…0x1…]
0x38733…38753 (35, 0, 73) 48 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 20 ┆H00: ┆
0x38753…38773 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x38773…38782 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x38782…387d1 (35, 0, 74) 0x20[0x4f]
0x387d1…387f1 (35, 0, 75) 49 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 20 ┆I00: ┆
0x387f1…38811 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x38811…38820 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x38820…38840 (35, 0, 76) 20 20 20 20 20 20 20 20 49 46 20 53 56 41 52 20 7f 3d 20 27 32 27 20 54 48 45 4e 20 47 4f 20 54 ┆ IF SVAR = '2' THEN GO T┆
0x38840…38860 4f 20 5a 39 39 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆O Z99; ┆
0x38860…3886f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3886f…3888f (35, 0, 77) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 28 52 41 44 41 43 43 29 3b 20 20 20 20 20 20 ┆ PUT SKIP (RADACC); ┆
0x3888f…388af 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x388af…388be 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x388be…3890d (35, 0, 78) 0x20[0x4f]
[…0x1…]
0x3895c…3897c (35, 0, 80) 5a 39 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 ┆Z99: ┆
0x3897c…3899c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3899c…389ab 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x389ab…389cb (35, 0, 81) 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; ┆
0x389cb…389eb 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x389eb…389fa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x389fa…38a49 (36, 0, 0) DataSector[0x4f]
[…0x2a4…]
0x45ae5…45b34 (44, 0, 21) 0x00[0x4f]
[…0xa3…]
0x48d81…48da1 (46, 0, 21) 44 43 4c 20 31 20 20 20 57 4d 45 46 46 45 4b 54 45 52 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆DCL 1 WMEFFEKTER, ┆
0x48da1…48dc1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x48dc1…48dd0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x48dd0…48df0 (46, 0, 22) 20 20 20 20 20 20 20 20 32 20 20 20 57 4d 45 46 46 45 4b 54 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 WMEFFEKT ┆
0x48df0…48e10 20 46 49 58 45 44 20 28 36 2c 32 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ FIXED (6,2), ┆
0x48e10…48e1f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x48e1f…48e3f (46, 0, 23) 20 20 20 20 20 20 20 20 32 20 20 20 57 4d 50 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 WMP1 ┆
0x48e3f…48e5f 20 46 49 58 45 44 20 28 36 2c 32 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ FIXED (6,2), ┆
0x48e5f…48e6e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x48e6e…48e8e (46, 0, 24) 20 20 20 20 20 20 20 20 32 20 20 20 57 4d 50 31 4d 41 4e 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 WMP1MAN ┆
0x48e8e…48eae 20 42 49 4e 41 52 59 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ BINARY, ┆
0x48eae…48ebd 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x48ebd…48edd (46, 0, 25) 20 20 20 20 20 20 20 20 32 20 20 20 57 4d 50 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 WMP2 ┆
0x48edd…48efd 20 46 49 58 45 44 20 28 36 2c 32 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ FIXED (6,2), ┆
0x48efd…48f0c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x48f0c…48f2c (46, 0, 26) 20 20 20 20 20 20 20 20 32 20 20 20 57 4d 50 32 4d 41 4e 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 WMP2MAN ┆
0x48f2c…48f4c 20 42 49 4e 41 52 59 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ BINARY; ┆
0x48f4c…48f5b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x48f5b…48faa (46, 0, 27) 0x20[0x4f]
[…0x1…]
0x48ff9…49019 (46, 0, 29) 44 43 4c 20 20 20 20 20 50 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆DCL P0 ┆
0x49019…49039 20 46 49 58 45 44 20 28 35 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ FIXED (5), ┆
0x49039…49048 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x49048…49068 (46, 0, 30) 20 20 20 20 20 20 20 20 50 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ P1 ┆
0x49068…49088 20 46 49 58 45 44 20 28 35 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ FIXED (5), ┆
0x49088…49097 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x49097…490b7 (46, 0, 31) 20 20 20 20 20 20 20 20 50 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ P2 ┆
0x490b7…490d7 20 46 49 58 45 44 20 28 35 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ FIXED (5), ┆
0x490d7…490e6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x490e6…49106 (46, 0, 32) 20 20 20 20 20 20 20 20 50 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ P3 ┆
0x49106…49126 20 46 49 58 45 44 20 28 35 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ FIXED (5), ┆
0x49126…49135 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x49135…49155 (46, 0, 33) 20 20 20 20 20 20 20 20 57 53 54 32 44 45 42 50 4d 45 4c 4c 20 20 20 20 20 20 20 20 20 20 20 20 ┆ WST2DEBPMELL ┆
0x49155…49175 20 46 49 58 45 44 20 28 36 2c 32 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ FIXED (6,2), ┆
0x49175…49184 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x49184…491a4 (46, 0, 34) 20 20 20 20 20 20 20 20 57 53 54 32 50 41 56 47 4d 45 4c 4c 20 20 20 20 20 20 20 20 20 20 20 20 ┆ WST2PAVGMELL ┆
0x491a4…491c4 20 46 49 58 45 44 20 28 31 30 2c 32 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ FIXED (10,2), ┆
0x491c4…491d3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x491d3…491f3 (46, 0, 35) 20 20 20 20 20 20 20 20 57 4d 41 4e 41 44 20 28 31 32 29 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ WMANAD (12) ┆
0x491f3…49213 20 43 48 41 52 20 28 31 30 29 20 49 4e 49 54 28 27 6a 61 6e 75 61 72 69 20 20 20 27 2c 20 20 20 ┆ CHAR (10) INIT('januari ', ┆
0x49213…49222 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x49222…49242 (46, 0, 36) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x49242…49262 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 66 65 62 72 75 61 72 69 20 20 27 2c 20 20 20 ┆ 'februari ', ┆
0x49262…49271 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x49271…49291 (46, 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 20 20 20 20 20 20 20 20 ┆ ┆
0x49291…492b1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 6d 61 72 73 20 20 20 20 20 20 27 2c 20 20 20 ┆ 'mars ', ┆
0x492b1…492c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x492c0…492e0 (46, 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 20 20 20 20 20 20 20 20 ┆ ┆
0x492e0…49300 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 61 70 72 69 6c 20 20 20 20 20 27 2c 20 20 20 ┆ 'april ', ┆
0x49300…4930f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4930f…4932f (46, 0, 39) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4932f…4934f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 6d 61 6a 20 20 20 20 20 20 20 27 2c 20 20 20 ┆ 'maj ', ┆
0x4934f…4935e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4935e…4937e (46, 0, 40) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4937e…4939e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 6a 75 6e 69 20 20 20 20 20 20 27 2c 20 20 20 ┆ 'juni ', ┆
0x4939e…493ad 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x493ad…493cd (46, 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 20 20 20 20 20 20 20 20 ┆ ┆
0x493cd…493ed 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 6a 75 6c 69 20 20 20 20 20 20 27 2c 20 20 20 ┆ 'juli ', ┆
0x493ed…493fc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x493fc…4941c (46, 0, 42) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4941c…4943c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 61 75 67 75 73 74 69 20 20 20 27 2c 20 20 20 ┆ 'augusti ', ┆
0x4943c…4944b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4944b…4946b (46, 0, 43) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4946b…4948b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 73 65 70 74 65 6d 62 65 72 20 27 2c 20 20 20 ┆ 'september ', ┆
0x4948b…4949a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4949a…494ba (46, 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 20 20 20 20 20 20 20 20 ┆ ┆
0x494ba…494da 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 6f 6b 74 6f 62 65 72 20 20 20 27 2c 20 20 20 ┆ 'oktober ', ┆
0x494da…494e9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x494e9…49509 (46, 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 20 20 20 20 20 20 20 20 ┆ ┆
0x49509…49529 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 6e 6f 76 65 6d 62 65 72 20 20 27 2c 20 20 20 ┆ 'november ', ┆
0x49529…49538 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x49538…49558 (46, 0, 46) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x49558…49578 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 64 65 63 65 6d 62 65 72 20 20 27 29 2c 20 20 ┆ 'december '), ┆
0x49578…49587 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x49587…495a7 (46, 0, 47) 20 20 20 20 20 20 20 20 57 4d 41 4e 41 44 4e 52 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ WMANADNR ┆
0x495a7…495c7 20 46 49 58 45 44 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 ┆ FIXED (2), ┆
0x495c7…495d6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x495d6…495f6 (46, 0, 48) 20 20 20 20 20 20 20 20 4e 4f 54 49 4e 44 45 58 20 28 31 30 29 20 20 20 20 20 20 20 20 20 20 20 ┆ NOTINDEX (10) ┆
0x495f6…49616 20 43 48 41 52 20 28 31 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ CHAR (1), ┆
0x49616…49625 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x49625…49645 (46, 0, 49) 20 20 20 20 20 20 20 20 57 50 46 42 52 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ WPFBR ┆
0x49645…49665 20 46 49 58 45 44 20 28 36 2c 32 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ FIXED (6,2), ┆
0x49665…49674 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x49674…49694 (46, 0, 50) 20 20 20 20 20 20 20 20 57 45 46 42 52 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ WEFBR ┆
0x49694…496b4 20 46 49 58 45 44 20 28 38 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ FIXED (8), ┆
0x496b4…496c3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x496c3…496e3 (46, 0, 51) 20 20 20 20 20 20 20 20 41 42 4e 52 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ABNR ┆
0x496e3…49703 20 43 48 41 52 20 28 38 29 20 49 4e 49 54 20 28 27 20 20 20 20 20 20 20 20 27 29 2c 20 20 20 20 ┆ CHAR (8) INIT (' '), ┆
0x49703…49712 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x49712…49732 (46, 0, 52) 20 20 20 20 20 20 20 20 4e 59 43 4b 45 4c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ NYCKEL ┆
0x49732…49752 20 46 49 58 45 44 20 28 38 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ FIXED (8), ┆
0x49752…49761 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x49761…49781 (46, 0, 53) 20 20 20 20 20 20 20 20 41 42 50 45 52 53 4e 52 43 48 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ABPERSNRCH ┆
0x49781…497a1 20 43 48 41 52 20 28 31 30 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ CHAR (10), ┆
0x497a1…497b0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x497b0…497d0 (46, 0, 54) 20 20 20 20 20 20 20 20 57 55 54 48 4f 50 50 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ WUTHOPP ┆
0x497d0…497f0 20 43 48 41 52 20 28 34 29 20 49 4e 49 54 20 28 27 20 20 20 20 27 29 2c 20 20 20 20 20 20 20 20 ┆ CHAR (4) INIT (' '), ┆
0x497f0…497ff 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x497ff…4981f (46, 0, 55) 20 20 20 20 20 20 20 20 57 54 41 58 41 20 28 32 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ WTAXA (2) ┆
0x4981f…4983f 20 43 48 41 52 20 28 33 29 20 49 4e 49 54 20 28 27 31 38 30 27 2c 27 31 38 31 27 29 2c 20 20 20 ┆ CHAR (3) INIT ('180','181'), ┆
0x4983f…4984e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4984e…4986e (46, 0, 56) 20 20 20 20 20 20 20 20 57 46 42 52 20 28 32 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ WFBR (2) ┆
0x4986e…4988e 20 46 49 58 45 44 20 28 31 30 29 20 49 4e 49 54 20 28 28 32 30 29 30 29 2c 20 20 20 20 20 20 20 ┆ FIXED (10) INIT ((20)0), ┆
0x4988e…4989d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4989d…498bd (46, 0, 57) 20 20 20 20 20 20 20 20 57 46 42 52 41 56 47 20 28 32 29 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ WFBRAVG (2) ┆
0x498bd…498dd 20 46 49 58 45 44 20 28 31 30 2c 32 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ FIXED (10,2), ┆
0x498dd…498ec 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x498ec…4990c (46, 0, 58) 20 20 20 20 20 20 20 20 57 46 41 53 54 41 56 47 20 28 32 29 20 20 20 20 20 20 20 20 20 20 20 20 ┆ WFASTAVG (2) ┆
0x4990c…4992c 20 46 49 58 45 44 20 28 31 30 2c 32 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ FIXED (10,2), ┆
0x4992c…4993b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4993b…4995b (46, 0, 59) 20 20 20 20 20 20 20 20 57 53 4b 41 54 54 34 20 28 32 29 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ WSKATT4 (2) ┆
0x4995b…4997b 20 46 49 58 45 44 20 28 31 30 2c 32 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ FIXED (10,2), ┆
0x4997b…4998a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4998a…499aa (46, 0, 60) 20 20 20 20 20 20 20 20 57 53 4b 34 46 42 52 20 28 32 29 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ WSK4FBR (2) ┆
0x499aa…499ca 20 46 49 58 45 44 20 28 31 30 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ FIXED (10), ┆
0x499ca…499d9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x499d9…499f9 (46, 0, 61) 20 20 20 20 20 20 20 20 57 53 4b 41 54 54 33 20 28 32 29 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ WSKATT3 (2) ┆
0x499f9…49a19 20 46 49 58 45 44 20 28 31 30 2c 32 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ FIXED (10,2), ┆
0x49a19…49a28 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x49a28…49a48 (46, 0, 62) 20 20 20 20 20 20 20 20 57 53 4b 33 46 42 52 20 28 32 29 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ WSK3FBR (2) ┆
0x49a48…49a68 20 46 49 58 45 44 20 28 31 30 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ FIXED (10), ┆
0x49a68…49a77 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x49a77…49a97 (46, 0, 63) 20 20 20 20 20 20 20 20 57 53 41 4d 54 4f 54 20 28 32 29 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ WSAMTOT (2) ┆
0x49a97…49ab7 20 46 49 58 45 44 20 28 31 30 2c 32 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ FIXED (10,2), ┆
0x49ab7…49ac6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x49ac6…49ae6 (46, 0, 64) 20 20 20 20 20 20 20 20 49 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ I ┆
0x49ae6…49b06 20 42 49 4e 41 52 59 2c 20 2f 2a 20 4e 4f 54 49 4e 44 45 58 20 20 20 20 20 20 20 20 20 20 20 20 ┆ BINARY, /* NOTINDEX ┆
0x49b06…49b15 20 20 20 20 20 20 20 20 20 20 20 20 2a 2f 20 ┆ */ ┆
0x49b15…49b35 (46, 0, 65) 20 20 20 20 20 20 20 20 50 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ P ┆
0x49b35…49b55 20 42 49 4e 41 52 59 2c 20 2f 2a 20 4e 4f 54 52 41 44 53 52 5b 4b 4e 41 52 45 20 20 20 20 20 20 ┆ BINARY, /* NOTRADSRÄKNARE ┆
0x49b55…49b64 20 20 20 20 20 20 20 20 20 20 20 20 2a 2f 20 ┆ */ ┆
0x49b64…49b84 (46, 0, 66) 20 20 20 20 20 20 20 20 54 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ T ┆
0x49b84…49ba4 20 42 49 4e 41 52 59 2c 20 2f 2a 20 49 4e 44 45 58 20 55 54 53 4b 52 49 46 54 20 41 56 20 54 41 ┆ BINARY, /* INDEX UTSKRIFT AV TA┆
0x49ba4…49bb3 58 45 53 41 4d 4d 41 4e 44 52 41 47 2a 2f 20 ┆XESAMMANDRAG*/ ┆
0x49bb3…49bd3 (46, 0, 67) 20 20 20 20 20 20 20 20 52 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ R ┆
0x49bd3…49bf3 20 42 49 4e 41 52 59 2c 20 2f 2a 20 52 41 44 52 5b 4b 4e 41 52 45 20 46 5c 52 20 46 41 4b 54 55 ┆ BINARY, /* RADRÄKNARE FÖR FAKTU┆
0x49bf3…49c02 52 41 53 50 45 43 45 4e 20 20 20 20 2a 2f 20 ┆RASPECEN */ ┆
0x49c02…49c22 (46, 0, 68) 20 20 20 20 20 20 20 20 4a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ J ┆
0x49c22…49c42 20 42 49 4e 41 52 59 2c 20 2f 2a 20 49 20 44 4f 2d 53 41 54 53 20 56 49 44 20 4e 4f 4c 4c 53 54 ┆ BINARY, /* I DO-SATS VID NOLLST┆
0x49c42…49c51 2e 20 41 56 20 4e 4f 54 49 4e 44 45 58 2a 2f ┆. AV NOTINDEX*/┆
0x49c51…49c71 (46, 0, 69) 20 20 20 20 20 20 20 20 4d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ M ┆
0x49c71…49c91 20 42 49 4e 41 52 59 2c 20 2f 2a 20 41 4e 54 41 4c 20 42 4c 41 4e 4b 50 4f 53 49 54 49 4f 4e 45 ┆ BINARY, /* ANTAL BLANKPOSITIONE┆
0x49c91…49ca0 52 20 56 49 44 20 55 54 53 4b 52 2e 20 2a 2f ┆R VID UTSKR. */┆
0x49ca0…49cc0 (46, 0, 70) 20 20 20 20 20 20 20 20 55 54 48 4f 50 50 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ UTHOPP ┆
0x49cc0…49ce0 20 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 ┆ CHAR (4), ┆
0x49ce0…49cef 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x49cef…49d0f (46, 0, 71) 20 20 20 20 20 20 20 20 53 56 41 52 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ SVAR ┆
0x49d0f…49d2f 20 43 48 41 52 20 28 31 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ CHAR (1), ┆
0x49d2f…49d3e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x49d3e…49d5e (46, 0, 72) 20 20 20 20 20 20 20 20 53 54 4f 50 50 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ STOPP ┆
0x49d5e…49d7e 20 43 48 41 52 20 28 31 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ CHAR (1), ┆
0x49d7e…49d8d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x49d8d…49dad (46, 0, 73) 20 20 20 20 20 20 20 20 50 4d 53 54 52 47 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PMSTRG ┆
0x49dad…49dcd 20 46 49 58 45 44 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 ┆ FIXED (6), ┆
0x49dcd…49ddc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x49ddc…49dfc (46, 0, 74) 20 20 20 20 20 20 20 20 50 46 42 52 52 47 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PFBRRG ┆
0x49dfc…49e1c 20 46 49 58 45 44 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 ┆ FIXED (6), ┆
0x49e1c…49e2b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x49e2b…49e4b (46, 0, 75) 20 20 20 20 20 20 20 20 50 45 52 50 46 42 52 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PERPFBR ┆
0x49e4b…49e6b 20 46 49 58 45 44 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 ┆ FIXED (6), ┆
0x49e6b…49e7a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x49e7a…49e9a (46, 0, 76) 20 20 20 20 20 20 20 20 50 45 4b 41 52 45 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PEKARE ┆
0x49e9a…49eba 20 46 49 58 45 44 20 28 35 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ FIXED (5), ┆
0x49eba…49ec9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x49ec9…49ee9 (46, 0, 77) 20 20 20 20 20 20 20 20 55 50 45 4b 41 52 45 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ UPEKARE ┆
0x49ee9…49f09 20 46 49 58 45 44 20 28 35 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ FIXED (5), ┆
0x49f09…49f18 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x49f18…49f38 (46, 0, 78) 20 20 20 20 20 20 20 20 53 54 41 52 54 50 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ STARTP ┆
0x49f38…49f58 20 46 49 58 45 44 20 28 35 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ FIXED (5), ┆
0x49f58…49f67 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x49f67…49f87 (46, 0, 79) 20 20 20 20 20 20 20 20 45 4d 53 54 52 47 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ EMSTRG ┆
0x49f87…49fa7 20 46 49 58 45 44 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 ┆ FIXED (6), ┆
0x49fa7…49fb6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x49fb6…49fd6 (46, 0, 80) 20 20 20 20 20 20 20 20 45 46 42 52 52 47 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ EFBRRG ┆
0x49fd6…49ff6 20 46 49 58 45 44 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 ┆ FIXED (6), ┆
0x49ff6…4a005 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4a005…4a025 (46, 0, 81) 20 20 20 20 20 20 20 20 50 45 52 45 46 42 52 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PEREFBR ┆
0x4a025…4a045 20 46 49 58 45 44 20 28 38 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ FIXED (8), ┆
0x4a045…4a054 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4a054…4a074 (47, 0, 0) 20 20 20 20 20 20 20 20 48 4b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ HK ┆
0x4a074…4a094 20 43 48 41 52 20 28 31 29 20 49 4e 49 54 20 28 27 20 27 29 2c 20 20 20 20 20 20 20 20 20 20 20 ┆ CHAR (1) INIT (' '), ┆
0x4a094…4a0a3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4a0a3…4a0c3 (47, 0, 1) 20 20 20 20 20 20 20 20 50 4d 4c 41 47 53 54 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PMLAGST ┆
0x4a0c3…4a0e3 20 43 48 41 52 20 28 31 29 20 49 4e 49 54 20 28 27 31 27 29 2c 20 20 20 20 20 20 20 20 20 20 20 ┆ CHAR (1) INIT ('1'), ┆
0x4a0e3…4a0f2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4a0f2…4a112 (47, 0, 2) 20 20 20 20 20 20 20 20 46 42 52 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ FBR ┆
0x4a112…4a132 20 46 49 58 45 44 20 28 38 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ FIXED (8); ┆
0x4a132…4a141 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4a141…4a190 (47, 0, 3) 0x20[0x4f]
[…0x3…]
0x4a27d…4a29d (47, 0, 7) 2f 2a 20 20 20 20 20 20 48 20 5b 20 52 20 20 42 20 5c 20 52 20 4a 20 41 20 52 20 20 48 20 55 20 ┆/* H Ä R B Ö R J A R H U ┆
0x4a29d…4a2bd 56 20 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 20 20 20 20 20 ┆V U D P R O G R A M M E T ┆
0x4a2bd…4a2cc 20 20 20 20 20 20 20 20 20 20 20 2a 2f 20 20 ┆ */ ┆
0x4a2cc…4a31b (47, 0, 8) 0x20[0x4f]
[…0x1…]
0x4a36a…4a38a (47, 0, 10) 20 20 20 20 20 20 20 20 4f 50 45 4e 20 41 42 4f 4e 4e 52 45 47 3b 20 20 20 20 20 20 20 20 20 20 ┆ OPEN ABONNREG; ┆
0x4a38a…4a3aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4a3aa…4a3b9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4a3b9…4a3d9 (47, 0, 11) 20 20 20 20 20 20 20 20 4f 50 45 4e 20 53 54 41 54 52 45 47 31 3b 20 20 20 20 20 20 20 20 20 20 ┆ OPEN STATREG1; ┆
0x4a3d9…4a3f9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4a3f9…4a408 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4a408…4a428 (47, 0, 12) 20 20 20 20 20 20 20 20 4f 50 45 4e 20 53 54 41 54 52 45 47 32 3b 20 20 20 20 20 20 20 20 20 20 ┆ OPEN STATREG2; ┆
0x4a428…4a448 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4a448…4a457 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4a457…4a477 (47, 0, 13) 20 20 20 20 20 20 20 20 4f 50 45 4e 20 50 52 45 4c 41 52 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆ OPEN PRELAR; ┆
0x4a477…4a497 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4a497…4a4a6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4a4a6…4a4c6 (47, 0, 14) 20 20 20 20 20 20 20 20 4f 50 45 4e 20 43 4f 4d 4d 45 4e 54 53 3b 20 20 20 20 20 20 20 20 20 20 ┆ OPEN COMMENTS; ┆
0x4a4c6…4a4e6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4a4e6…4a4f5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4a4f5…4a515 (47, 0, 15) 20 20 20 20 20 20 20 20 4f 50 45 4e 20 50 41 52 41 44 45 42 46 3b 20 20 20 20 20 20 20 20 20 20 ┆ OPEN PARADEBF; ┆
0x4a515…4a535 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4a535…4a544 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4a544…4a564 (47, 0, 16) 20 20 20 20 20 20 20 20 4f 50 45 4e 20 55 44 45 42 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ OPEN UDEB; ┆
0x4a564…4a584 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4a584…4a593 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4a593…4a5e2 (47, 0, 17) 0x20[0x4f]
0x4a5e2…4a602 (47, 0, 18) 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: ┆
0x4a602…4a622 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4a622…4a631 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4a631…4a651 (47, 0, 19) 20 20 20 20 20 20 20 20 52 45 41 44 20 46 49 4c 45 20 28 50 41 52 41 44 45 42 46 29 20 49 4e 54 ┆ READ FILE (PARADEBF) INT┆
0x4a651…4a671 4f 20 28 50 41 52 41 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 (PARAPOST); ┆
0x4a671…4a680 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4a680…4a6a0 (47, 0, 20) 20 20 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 20 28 44 29 20 45 44 49 54 20 28 27 20 27 29 20 ┆ PUT FILE (D) EDIT (' ') ┆
0x4a6a0…4a6c0 28 41 28 34 37 29 29 20 28 27 53 50 45 43 20 41 42 20 3d 20 53 2c 20 41 4c 4c 41 20 3d 20 41 20 ┆(A(47)) ('SPEC AB = S, ALLA = A ┆
0x4a6c0…4a6cf 27 29 20 28 41 28 34 36 29 29 3b 20 20 20 20 ┆') (A(46)); ┆
0x4a6cf…4a6ef (47, 0, 21) 20 20 20 20 20 20 20 20 47 45 54 20 53 4b 49 50 20 4c 49 53 54 20 28 53 56 41 52 29 3b 20 20 20 ┆ GET SKIP LIST (SVAR); ┆
0x4a6ef…4a70f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4a70f…4a71e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4a71e…4a73e (47, 0, 22) 20 20 20 20 20 20 20 20 49 46 20 53 56 41 52 20 3d 20 27 53 27 20 54 48 45 4e 20 44 4f 3b 20 20 ┆ IF SVAR = 'S' THEN DO; ┆
0x4a73e…4a75e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4a75e…4a76d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4a76d…4a78d (47, 0, 23) 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 45 44 49 54 20 28 27 ┆ PUT FILE (D) EDIT ('┆
0x4a78d…4a7ad 56 41 52 20 47 4f 44 20 41 4e 47 49 56 20 5c 4e 53 4b 41 54 20 41 42 4e 52 20 27 29 20 28 41 28 ┆VAR GOD ANGIV ÖNSKAT ABNR ') (A(┆
0x4a7ad…4a7bc 33 39 29 29 3b 20 20 20 20 20 20 20 20 20 20 ┆39)); ┆
0x4a7bc…4a7dc (47, 0, 24) 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 41 42 4e 52 29 ┆ GET SKIP LIST (ABNR)┆
0x4a7dc…4a7fc 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 ┆; ┆
0x4a7fc…4a80b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4a80b…4a82b (47, 0, 25) 20 20 20 20 20 20 20 20 20 20 20 20 4e 59 43 4b 45 4c 20 3d 20 41 42 4e 52 3b 20 20 20 20 20 20 ┆ NYCKEL = ABNR; ┆
0x4a82b…4a84b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4a84b…4a85a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4a85a…4a87a (47, 0, 26) 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 41 32 30 3b 20 20 20 20 20 20 20 20 20 20 ┆ GO TO A20; ┆
0x4a87a…4a89a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4a89a…4a8a9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4a8a9…4a8c9 (47, 0, 27) 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; ┆
0x4a8c9…4a8e9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4a8e9…4a8f8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4a8f8…4a918 (47, 0, 28) 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 41 35 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GO TO A50; ┆
0x4a918…4a938 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4a938…4a947 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4a947…4a996 (47, 0, 29) 0x20[0x4f]
0x4a996…4a9b6 (47, 0, 30) 41 32 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 ┆A20: ┆
0x4a9b6…4a9d6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4a9d6…4a9e5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4a9e5…4aa05 (47, 0, 31) 20 20 20 20 20 20 20 20 52 45 41 44 20 4b 45 59 20 28 4e 59 43 4b 45 4c 29 20 46 49 4c 45 20 28 ┆ READ KEY (NYCKEL) FILE (┆
0x4aa05…4aa25 41 42 4f 4e 4e 52 45 47 29 20 49 4e 54 4f 20 28 41 42 4f 4e 50 4f 53 54 29 3b 20 20 20 20 20 20 ┆ABONNREG) INTO (ABONPOST); ┆
0x4aa25…4aa34 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4aa34…4aa54 (47, 0, 32) 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 41 36 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GO TO A60; ┆
0x4aa54…4aa74 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4aa74…4aa83 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4aa83…4aad2 (47, 0, 33) 0x20[0x4f]
0x4aad2…4aaf2 (47, 0, 34) 41 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 20 20 20 20 20 ┆A50: ┆
0x4aaf2…4ab12 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4ab12…4ab21 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4ab21…4ab41 (47, 0, 35) 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 5a 39 39 3b 20 20 20 ┆ ON ENDFILE GO TO Z99; ┆
0x4ab41…4ab61 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4ab61…4ab70 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4ab70…4ab90 (47, 0, 36) 20 20 20 20 20 20 20 20 52 45 41 44 20 46 49 4c 45 20 28 41 42 4f 4e 4e 52 45 47 29 20 49 4e 54 ┆ READ FILE (ABONNREG) INT┆
0x4ab90…4abb0 4f 20 28 41 42 4f 4e 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 (ABONPOST); ┆
0x4abb0…4abbf 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4abbf…4abdf (47, 0, 37) 20 20 20 20 20 20 20 20 49 46 20 53 55 42 53 54 52 20 28 41 42 4d 41 4e 2c 31 2c 31 29 20 3d 20 ┆ IF SUBSTR (ABMAN,1,1) = ┆
0x4abdf…4abff 27 4d 27 20 54 48 45 4e 20 47 4f 20 54 4f 20 41 35 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆'M' THEN GO TO A50; ┆
0x4abff…4ac0e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4ac0e…4ac2e (47, 0, 38) 20 20 20 20 20 20 20 20 4e 59 43 4b 45 4c 20 3d 20 41 42 41 42 4e 52 3b 20 20 20 20 20 20 20 20 ┆ NYCKEL = ABABNR; ┆
0x4ac2e…4ac4e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4ac4e…4ac5d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4ac5d…4ac7d (47, 0, 39) 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 41 36 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GO TO A60; ┆
0x4ac7d…4ac9d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4ac9d…4acac 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4acac…4acfb (47, 0, 40) 0x20[0x4f]
0x4acfb…4ad1b (47, 0, 41) 41 36 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 ┆A60: ┆
0x4ad1b…4ad3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4ad3b…4ad4a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4ad4a…4ad6a (47, 0, 42) 20 20 20 20 20 20 20 20 4f 4e 20 45 52 52 4f 52 20 47 4f 20 54 4f 20 5a 39 39 3b 20 20 20 20 20 ┆ ON ERROR GO TO Z99; ┆
0x4ad6a…4ad8a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4ad8a…4ad99 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4ad99…4adb9 (47, 0, 43) 20 20 20 20 20 20 20 20 52 45 41 44 20 4b 45 59 20 28 4e 59 43 4b 45 4c 29 20 46 49 4c 45 20 28 ┆ READ KEY (NYCKEL) FILE (┆
0x4adb9…4add9 53 54 41 54 52 45 47 31 29 20 49 4e 54 4f 20 28 53 54 31 49 4e 41 52 45 41 29 3b 20 20 20 20 20 ┆STATREG1) INTO (ST1INAREA); ┆
0x4add9…4ade8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4ade8…4ae08 (47, 0, 44) 20 20 20 20 20 20 20 20 52 45 41 44 20 4b 45 59 20 28 4e 59 43 4b 45 4c 29 20 46 49 4c 45 20 28 ┆ READ KEY (NYCKEL) FILE (┆
0x4ae08…4ae28 50 52 45 4c 41 52 29 20 49 4e 54 4f 20 28 50 52 45 4c 41 52 45 41 29 3b 20 20 20 20 20 20 20 20 ┆PRELAR) INTO (PRELAREA); ┆
0x4ae28…4ae37 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4ae37…4ae57 (47, 0, 45) 20 20 20 20 20 20 20 20 52 45 41 44 20 4b 45 59 20 28 4e 59 43 4b 45 4c 29 20 46 49 4c 45 20 28 ┆ READ KEY (NYCKEL) FILE (┆
0x4ae57…4ae77 43 4f 4d 4d 45 4e 54 53 29 20 49 4e 54 4f 20 28 43 4f 4d 50 4f 53 54 29 3b 20 20 20 20 20 20 20 ┆COMMENTS) INTO (COMPOST); ┆
0x4ae77…4ae86 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4ae86…4aea6 (47, 0, 46) 20 20 20 20 20 20 20 20 49 46 20 53 55 42 53 54 52 20 28 41 42 4d 41 4e 2c 32 2c 31 29 20 3d 20 ┆ IF SUBSTR (ABMAN,2,1) = ┆
0x4aea6…4aec6 27 48 27 20 54 48 45 4e 20 44 4f 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆'H' THEN DO; ┆
0x4aec6…4aed5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4aed5…4aef5 (47, 0, 47) 20 20 20 20 20 20 20 20 20 20 20 20 52 45 41 44 20 4b 45 59 20 28 4e 59 43 4b 45 4c 29 20 46 49 ┆ READ KEY (NYCKEL) FI┆
0x4aef5…4af15 4c 45 20 28 55 44 45 42 29 20 49 4e 54 4f 20 28 55 44 45 42 50 4f 53 54 29 3b 20 20 20 20 20 20 ┆LE (UDEB) INTO (UDEBPOST); ┆
0x4af15…4af24 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4af24…4af44 (47, 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; ┆
0x4af44…4af64 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4af64…4af73 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4af73…4afc2 (47, 0, 49) 0x20[0x4f]
0x4afc2…4afe2 (47, 0, 50) 2f 2a 20 20 20 20 20 20 20 20 20 20 41 42 4e 52 20 2d 20 72 61 64 65 6e 20 20 20 20 20 20 20 20 ┆/* ABNR - raden ┆
0x4afe2…4b002 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4b002…4b011 20 20 20 20 20 20 20 20 20 20 20 20 2a 2f 20 ┆ */ ┆
0x4b011…4b060 (47, 0, 51) 0x20[0x4f]
0x4b060…4b080 (47, 0, 52) 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 20 20 20 20 ┆A100: ┆
0x4b080…4b0a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4b0a0…4b0af 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4b0af…4b0cf (47, 0, 53) 20 20 20 20 20 20 20 20 41 42 50 45 52 53 4e 52 43 48 20 3d 20 41 42 50 45 52 53 4e 52 3b 20 20 ┆ ABPERSNRCH = ABPERSNR; ┆
0x4b0cf…4b0ef 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4b0ef…4b0fe 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4b0fe…4b11e (47, 0, 54) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 28 33 29 20 45 44 49 54 20 28 27 20 20 20 41 ┆ PUT SKIP (3) EDIT (' A┆
0x4b11e…4b13e 42 4e 52 3a 20 20 20 27 29 20 28 41 29 20 28 41 42 41 42 4e 52 29 20 28 50 27 39 39 39 39 39 39 ┆BNR: ') (A) (ABABNR) (P'999999┆
0x4b13e…4b14d 39 39 27 29 20 20 20 20 20 20 20 20 20 20 20 ┆99') ┆
0x4b14d…4b16d (47, 0, 55) 20 20 20 20 20 20 20 20 20 20 20 20 28 27 20 27 29 20 28 41 28 33 34 29 29 20 28 27 4f 72 67 2e ┆ (' ') (A(34)) ('Org.┆
0x4b16d…4b18d 6e 72 3a 20 20 27 29 20 28 41 29 20 28 53 55 42 53 54 52 28 41 42 50 45 52 53 4e 52 43 48 2c 31 ┆nr: ') (A) (SUBSTR(ABPERSNRCH,1┆
0x4b18d…4b19c 2c 36 29 29 20 28 41 29 20 28 27 2d 27 29 20 ┆,6)) (A) ('-') ┆
0x4b19c…4b1bc (47, 0, 56) 20 20 20 20 20 20 20 20 20 20 20 20 28 41 29 20 28 53 55 42 53 54 52 28 41 42 50 45 52 53 4e 52 ┆ (A) (SUBSTR(ABPERSNR┆
0x4b1bc…4b1dc 43 48 2c 37 2c 34 29 29 28 41 29 20 28 27 20 27 29 20 28 41 28 31 30 29 29 20 28 27 45 67 65 6e ┆CH,7,4))(A) (' ') (A(10)) ('Egen┆
0x4b1dc…4b1eb 20 74 72 61 66 6f 3a 20 20 27 29 20 20 20 20 ┆ trafo: ') ┆
0x4b1eb…4b20b (47, 0, 57) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 41 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆ (A); ┆
0x4b20b…4b22b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4b22b…4b23a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4b23a…4b25a (47, 0, 58) 20 20 20 20 20 20 20 20 49 46 20 41 42 45 54 52 41 46 4f 20 3d 20 27 45 27 20 54 48 45 4e 20 44 ┆ IF ABETRAFO = 'E' THEN D┆
0x4b25a…4b27a 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; ┆
0x4b27a…4b289 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4b289…4b2a9 (47, 0, 59) 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 45 44 49 54 20 28 27 4a 41 20 20 20 20 20 27 29 ┆ PUT EDIT ('JA ')┆
0x4b2a9…4b2c9 20 28 41 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 ┆ (A); ┆
0x4b2c9…4b2d8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4b2d8…4b2f8 (47, 0, 60) 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; ┆
0x4b2f8…4b318 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4b318…4b327 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4b327…4b347 (47, 0, 61) 20 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 20 44 4f 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ELSE DO; ┆
0x4b347…4b367 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4b367…4b376 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4b376…4b396 (47, 0, 62) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 45 44 49 54 20 28 27 4e 45 4a 20 20 ┆ PUT EDIT ('NEJ ┆
0x4b396…4b3b6 20 20 27 29 20 28 41 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ') (A); ┆
0x4b3b6…4b3c5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4b3c5…4b3e5 (47, 0, 63) 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; ┆
0x4b3e5…4b405 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4b405…4b414 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4b414…4b434 (47, 0, 64) 20 20 20 20 20 20 20 20 50 55 54 20 45 44 49 54 20 28 27 54 61 72 69 66 66 3a 20 20 20 20 20 27 ┆ PUT EDIT ('Tariff: '┆
0x4b434…4b454 29 20 28 41 29 20 28 41 42 54 41 52 29 20 28 41 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆) (A) (ABTAR) (A); ┆
0x4b454…4b463 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4b463…4b4b2 (47, 0, 65) 0x20[0x4f]
[…0x1…]
0x4b501…4b521 (47, 0, 67) 2f 2a 20 20 20 20 20 20 52 4e 41 4d 4e 20 2d 20 72 61 64 65 6e 20 20 20 20 20 20 20 20 20 20 20 ┆/* RNAMN - raden ┆
0x4b521…4b541 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4b541…4b550 20 20 20 20 20 20 20 20 20 20 20 20 2a 2f 20 ┆ */ ┆
0x4b550…4b59f (47, 0, 68) 0x20[0x4f]
[…0x1…]
0x4b5ee…4b60e (47, 0, 70) 41 31 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 ┆A110: ┆
0x4b60e…4b62e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4b62e…4b63d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4b63d…4b65d (47, 0, 71) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 45 44 49 54 20 28 27 20 20 20 52 6e 61 6d 6e ┆ PUT SKIP EDIT (' Rnamn┆
0x4b65d…4b67d 3a 20 20 27 29 20 28 41 29 20 28 41 42 52 4e 41 4d 4e 29 20 28 41 28 33 36 29 29 20 28 27 20 27 ┆: ') (A) (ABRNAMN) (A(36)) (' '┆
0x4b67d…4b68c 29 20 28 41 28 36 29 29 20 20 20 20 20 20 20 ┆) (A(6)) ┆
0x4b68c…4b6ac (47, 0, 72) 20 20 20 20 20 20 20 20 20 20 20 20 28 27 41 76 73 65 72 3a 20 20 20 27 29 20 28 41 29 20 28 41 ┆ ('Avser: ') (A) (A┆
0x4b6ac…4b6cc 42 41 56 53 45 52 29 20 28 41 29 20 28 27 20 27 29 20 28 41 28 36 29 29 20 28 27 4d 61 6e 75 65 ┆BAVSER) (A) (' ') (A(6)) ('Manue┆
0x4b6cc…4b6db 6c 6c 64 65 62 3a 20 20 27 29 20 28 41 29 3b ┆lldeb: ') (A);┆
0x4b6db…4b6fb (47, 0, 73) 20 20 20 20 20 20 20 20 49 46 20 53 55 42 53 54 52 20 28 41 42 4d 41 4e 2c 31 2c 31 29 20 3d 20 ┆ IF SUBSTR (ABMAN,1,1) = ┆
0x4b6fb…4b71b 27 4d 27 20 54 48 45 4e 20 44 4f 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆'M' THEN DO; ┆
0x4b71b…4b72a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4b72a…4b74a (47, 0, 74) 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 45 44 49 54 20 28 27 4a 41 20 20 20 20 20 27 29 ┆ PUT EDIT ('JA ')┆
0x4b74a…4b76a 20 28 41 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 ┆ (A); ┆
0x4b76a…4b779 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4b779…4b799 (47, 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; ┆
0x4b799…4b7b9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4b7b9…4b7c8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4b7c8…4b7e8 (47, 0, 76) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 20 44 4f 3b 20 20 20 20 20 20 20 20 ┆ ELSE DO; ┆
0x4b7e8…4b808 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4b808…4b817 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4b817…4b837 (47, 0, 77) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 45 44 49 54 20 28 27 4e 45 4a 20 20 ┆ PUT EDIT ('NEJ ┆
0x4b837…4b857 20 20 27 29 20 28 41 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ') (A); ┆
0x4b857…4b866 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4b866…4b886 (47, 0, 78) 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; ┆
0x4b886…4b8a6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4b8a6…4b8b5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4b8b5…4b8d5 (47, 0, 79) 20 20 20 20 20 20 20 20 50 55 54 20 45 44 49 54 20 28 27 4b 61 74 65 67 6f 72 69 3a 20 20 20 27 ┆ PUT EDIT ('Kategori: '┆
0x4b8d5…4b8f5 29 20 28 41 29 20 28 41 42 4b 41 54 29 20 28 41 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆) (A) (ABKAT) (A); ┆
0x4b8f5…4b904 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4b904…4b953 (47, 0, 80) 0x20[0x4f]
[…0x2…]
0x4b9f1…4ba11 (48, 0, 1) 2f 2a 20 20 20 20 20 20 4d 5b 54 41 52 41 44 52 45 53 53 20 2d 20 72 61 64 65 6e 20 20 20 20 20 ┆/* MÄTARADRESS - raden ┆
0x4ba11…4ba31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4ba31…4ba40 20 20 20 20 20 20 20 20 20 20 20 20 2a 2f 20 ┆ */ ┆
0x4ba40…4ba8f (48, 0, 2) 0x20[0x4f]
[…0x1…]
0x4bade…4bafe (48, 0, 4) 41 31 32 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 ┆A120: ┆
0x4bafe…4bb1e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4bb1e…4bb2d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4bb2d…4bb4d (48, 0, 5) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 45 44 49 54 20 28 27 20 20 20 4d 7b 74 61 64 ┆ PUT SKIP EDIT (' Mätad┆
0x4bb4d…4bb6d 72 3a 20 27 29 20 28 41 29 20 28 41 42 41 41 44 52 29 20 28 41 29 20 28 27 20 27 29 20 28 41 28 ┆r: ') (A) (ABAADR) (A) (' ') (A(┆
0x4bb6d…4bb7c 31 35 29 29 20 20 20 20 20 20 20 20 20 20 20 ┆15)) ┆
0x4bb7c…4bb9c (48, 0, 6) 20 20 20 20 20 20 20 20 20 20 20 20 28 27 49 6e 74 2e 6b 74 6f 3a 20 27 29 20 28 41 29 20 28 41 ┆ ('Int.kto: ') (A) (A┆
0x4bb9c…4bbbc 42 49 4b 54 4f 29 20 28 41 28 31 33 29 29 20 28 27 20 27 29 20 28 41 28 38 29 29 20 28 27 41 76 ┆BIKTO) (A(13)) (' ') (A(8)) ('Av┆
0x4bbbc…4bbcb 64 72 20 55 2d 6d 7b 74 3a 20 20 27 29 20 20 ┆dr U-mät: ') ┆
0x4bbcb…4bbeb (48, 0, 7) 20 20 20 20 20 20 20 20 20 20 20 20 28 41 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ (A); ┆
0x4bbeb…4bc0b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4bc0b…4bc1a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4bc1a…4bc3a (48, 0, 8) 20 20 20 20 20 20 20 20 49 46 20 53 55 42 53 54 52 20 28 41 42 4d 41 4e 2c 32 2c 31 29 20 3d 20 ┆ IF SUBSTR (ABMAN,2,1) = ┆
0x4bc3a…4bc5a 27 48 27 20 54 48 45 4e 20 44 4f 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆'H' THEN DO; ┆
0x4bc5a…4bc69 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4bc69…4bc89 (48, 0, 9) 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 45 44 49 54 20 28 27 4a 41 20 20 20 20 20 27 29 ┆ PUT EDIT ('JA ')┆
0x4bc89…4bca9 20 28 41 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 ┆ (A); ┆
0x4bca9…4bcb8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4bcb8…4bcd8 (48, 0, 10) 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; ┆
0x4bcd8…4bcf8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4bcf8…4bd07 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4bd07…4bd27 (48, 0, 11) 20 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 20 44 4f 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ELSE DO; ┆
0x4bd27…4bd47 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4bd47…4bd56 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4bd56…4bd76 (48, 0, 12) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 45 44 49 54 20 28 27 4e 45 4a 20 20 ┆ PUT EDIT ('NEJ ┆
0x4bd76…4bd96 20 20 27 29 20 28 41 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ') (A); ┆
0x4bd96…4bda5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4bda5…4bdc5 (48, 0, 13) 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; ┆
0x4bdc5…4bde5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4bde5…4bdf4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4bdf4…4be43 (48, 0, 14) 0x20[0x4f]
0x4be43…4be63 (48, 0, 15) 20 20 20 20 20 20 20 20 50 55 54 20 45 44 49 54 20 28 27 53 6b 61 74 74 65 6b 6f 64 3a 20 20 27 ┆ PUT EDIT ('Skattekod: '┆
0x4be63…4be83 29 20 28 41 29 20 28 41 42 53 4b 4b 4f 44 29 20 28 41 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆) (A) (ABSKKOD) (A); ┆
0x4be83…4be92 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4be92…4bee1 (48, 0, 16) 0x20[0x4f]
[…0x2…]
0x4bf7f…4bf9f (48, 0, 19) 2f 2a 20 20 20 20 20 20 52 5b 4b 4e 49 4e 47 53 41 44 52 20 2d 20 72 61 64 65 6e 20 20 20 20 20 ┆/* RÄKNINGSADR - raden ┆
0x4bf9f…4bfbf 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4bfbf…4bfce 20 20 20 20 20 20 20 20 20 20 20 20 2a 2f 20 ┆ */ ┆
0x4bfce…4c01d (48, 0, 20) 0x20[0x4f]
[…0x1…]
0x4c06c…4c08c (48, 0, 22) 41 31 33 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 ┆A130: ┆
0x4c08c…4c0ac 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4c0ac…4c0bb 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4c0bb…4c0db (48, 0, 23) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 45 44 49 54 20 28 27 20 20 20 52 61 64 72 3a ┆ PUT SKIP EDIT (' Radr:┆
0x4c0db…4c0fb 20 20 20 27 29 20 28 41 29 20 28 41 42 52 41 44 52 29 20 28 41 29 20 28 27 20 27 29 20 28 41 28 ┆ ') (A) (ABRADR) (A) (' ') (A(┆
0x4c0fb…4c10a 31 35 29 29 20 20 20 20 20 20 20 20 20 20 20 ┆15)) ┆
0x4c10a…4c12a (48, 0, 24) 20 20 20 20 20 20 20 20 20 20 20 20 28 27 4b 6f 6e 74 64 61 74 3a 20 27 29 20 28 41 29 20 28 41 ┆ ('Kontdat: ') (A) (A┆
0x4c12a…4c14a 42 4b 4f 4e 54 44 41 54 29 20 28 50 27 39 39 39 39 39 39 27 29 20 28 27 20 27 29 20 28 41 28 31 ┆BKONTDAT) (P'999999') (' ') (A(1┆
0x4c14a…4c159 35 29 29 20 20 20 20 20 20 20 20 20 20 20 20 ┆5)) ┆
0x4c159…4c179 (48, 0, 25) 20 20 20 20 20 20 20 20 20 20 20 20 28 27 53 61 6d 6d 61 6e 6c 61 67 72 3a 20 20 27 29 20 28 41 ┆ ('Sammanlagr: ') (A┆
0x4c179…4c199 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 ┆); ┆
0x4c199…4c1a8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4c1a8…4c1c8 (48, 0, 26) 20 20 20 20 20 20 20 20 49 46 20 53 55 42 53 54 52 20 28 41 42 4d 41 4e 2c 34 2c 31 29 20 3d 20 ┆ IF SUBSTR (ABMAN,4,1) = ┆
0x4c1c8…4c1e8 27 53 27 20 54 48 45 4e 20 44 4f 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆'S' THEN DO; ┆
0x4c1e8…4c1f7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4c1f7…4c217 (48, 0, 27) 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 45 44 49 54 20 28 27 4a 41 20 20 20 20 20 27 29 ┆ PUT EDIT ('JA ')┆
0x4c217…4c237 20 28 41 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 ┆ (A); ┆
0x4c237…4c246 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4c246…4c266 (48, 0, 28) 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; ┆
0x4c266…4c286 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4c286…4c295 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4c295…4c2b5 (48, 0, 29) 20 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 20 44 4f 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ELSE DO; ┆
0x4c2b5…4c2d5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4c2d5…4c2e4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4c2e4…4c304 (48, 0, 30) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 45 44 49 54 20 28 27 4e 45 4a 20 20 ┆ PUT EDIT ('NEJ ┆
0x4c304…4c324 20 20 27 29 20 28 41 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ') (A); ┆
0x4c324…4c333 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4c333…4c353 (48, 0, 31) 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; ┆
0x4c353…4c373 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4c373…4c382 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4c382…4c3a2 (48, 0, 32) 20 20 20 20 20 20 20 20 50 55 54 20 45 44 49 54 20 28 27 5d 72 73 66 7c 72 62 72 3a 20 20 27 29 ┆ PUT EDIT ('Årsförbr: ')┆
0x4c3a2…4c3c2 20 28 41 29 20 28 41 42 41 52 46 42 52 29 20 28 50 27 5a 5a 5a 5a 5a 5a 5a 39 27 29 3b 20 20 20 ┆ (A) (ABARFBR) (P'ZZZZZZZ9'); ┆
0x4c3c2…4c3d1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4c3d1…4c420 (48, 0, 33) 0x20[0x4f]
[…0x2…]
0x4c4be…4c4de (48, 0, 36) 2f 2a 20 20 20 20 20 20 52 5b 4b 4e 49 4e 47 53 4f 52 54 20 2d 20 72 61 64 65 6e 20 20 20 20 20 ┆/* RÄKNINGSORT - raden ┆
0x4c4de…4c4fe 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4c4fe…4c50d 20 20 20 20 20 20 20 20 20 20 20 20 2a 2f 20 ┆ */ ┆
0x4c50d…4c55c (48, 0, 37) 0x20[0x4f]
[…0x1…]
0x4c5ab…4c5cb (48, 0, 39) 41 31 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 20 20 20 20 ┆A140: ┆
0x4c5cb…4c5eb 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4c5eb…4c5fa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4c5fa…4c61a (48, 0, 40) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 45 44 49 54 20 28 27 20 20 20 52 6f 72 74 3a ┆ PUT SKIP EDIT (' Rort:┆
0x4c61a…4c63a 20 20 20 27 29 20 28 41 29 20 28 53 55 42 53 54 52 28 41 42 52 50 4e 52 2c 31 2c 33 29 29 20 28 ┆ ') (A) (SUBSTR(ABRPNR,1,3)) (┆
0x4c63a…4c649 41 28 34 29 29 20 20 20 20 20 20 20 20 20 20 ┆A(4)) ┆
0x4c649…4c669 (48, 0, 41) 20 20 20 20 20 20 20 20 20 20 20 20 28 53 55 42 53 54 52 20 28 41 42 52 50 4e 52 2c 34 2c 32 29 ┆ (SUBSTR (ABRPNR,4,2)┆
0x4c669…4c689 29 20 28 41 28 34 29 29 20 28 41 42 52 4f 52 54 29 20 28 41 28 38 29 29 20 28 27 20 27 29 20 28 ┆) (A(4)) (ABRORT) (A(8)) (' ') (┆
0x4c689…4c698 41 28 32 36 29 29 20 20 20 20 20 20 20 20 20 ┆A(26)) ┆
0x4c698…4c6b8 (48, 0, 42) 20 20 20 20 20 20 20 20 20 20 20 20 28 27 4d 7b 74 73 69 64 61 3a 20 27 29 20 28 41 29 3b 20 20 ┆ ('Mätsida: ') (A); ┆
0x4c6b8…4c6d8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4c6d8…4c6e7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4c6e7…4c707 (48, 0, 43) 20 20 20 20 20 20 20 20 49 46 20 41 42 48 4f 47 4c 41 47 20 3d 20 27 4c 27 20 54 48 45 4e 20 44 ┆ IF ABHOGLAG = 'L' THEN D┆
0x4c707…4c727 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; ┆
0x4c727…4c736 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4c736…4c756 (48, 0, 44) 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 45 44 49 54 20 28 27 4c 53 50 27 29 20 28 41 29 ┆ PUT EDIT ('LSP') (A)┆
0x4c756…4c776 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 ┆; ┆
0x4c776…4c785 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4c785…4c7a5 (48, 0, 45) 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; ┆
0x4c7a5…4c7c5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4c7c5…4c7d4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4c7d4…4c7f4 (48, 0, 46) 20 20 20 20 20 20 20 20 49 46 20 41 42 48 4f 47 4c 41 47 20 7f 3d 20 27 4c 27 20 54 48 45 4e 20 ┆ IF ABHOGLAG = 'L' THEN ┆
0x4c7f4…4c814 44 4f 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆DO; ┆
0x4c814…4c823 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4c823…4c843 (48, 0, 47) 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 45 44 49 54 20 28 27 48 53 50 27 29 20 28 41 29 ┆ PUT EDIT ('HSP') (A)┆
0x4c843…4c863 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 ┆; ┆
0x4c863…4c872 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4c872…4c892 (48, 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; ┆
0x4c892…4c8b2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4c8b2…4c8c1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4c8c1…4c8e1 (48, 0, 49) 20 20 20 20 20 20 20 20 50 55 54 20 45 44 49 54 20 28 27 20 27 29 20 28 41 28 31 38 29 29 20 28 ┆ PUT EDIT (' ') (A(18)) (┆
0x4c8e1…4c901 27 52 7b 6b 6e 6c 7c 70 6e 72 3a 20 20 20 27 29 20 28 41 29 20 28 41 42 4c 4f 45 50 4e 52 29 20 ┆'Räknlöpnr: ') (A) (ABLOEPNR) ┆
0x4c901…4c910 28 41 29 20 20 20 20 20 20 20 20 20 20 20 20 ┆(A) ┆
0x4c910…4c930 (48, 0, 50) 20 20 20 20 20 20 20 20 20 20 20 20 28 27 20 27 29 20 28 41 28 36 29 29 20 28 27 54 72 61 66 6f ┆ (' ') (A(6)) ('Trafo┆
0x4c930…4c950 65 66 66 65 6b 74 3a 20 27 29 20 28 41 29 20 28 41 42 50 41 42 29 20 28 50 27 5a 5a 5a 5a 5a 39 ┆effekt: ') (A) (ABPAB) (P'ZZZZZ9┆
0x4c950…4c95f 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆'); ┆
0x4c95f…4c9ae (48, 0, 51) 0x20[0x4f]
[…0x2…]
0x4ca4c…4ca6c (48, 0, 54) 2f 2a 20 20 20 20 20 20 4d 5b 54 41 52 4e 52 20 2d 20 72 61 64 65 6e 20 20 20 20 20 20 20 20 20 ┆/* MÄTARNR - raden ┆
0x4ca6c…4ca8c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4ca8c…4ca9b 20 20 20 20 20 20 20 20 20 20 20 20 2a 2f 20 ┆ */ ┆
0x4ca9b…4caea (48, 0, 55) 0x20[0x4f]
[…0x2…]
0x4cb88…4cba8 (48, 0, 58) 41 31 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 20 20 20 20 ┆A150: ┆
0x4cba8…4cbc8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4cbc8…4cbd7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4cbd7…4cbf7 (48, 0, 59) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 28 32 29 20 45 44 49 54 20 28 27 20 20 20 4d ┆ PUT SKIP (2) EDIT (' M┆
0x4cbf7…4cc17 7b 74 2d 6e 72 3a 20 27 29 20 28 41 29 20 28 41 42 4d 4e 52 29 20 28 41 28 36 29 29 20 28 27 20 ┆ät-nr: ') (A) (ABMNR) (A(6)) (' ┆
0x4cc17…4cc26 27 29 20 28 41 28 35 29 29 20 20 20 20 20 20 ┆') (A(5)) ┆
0x4cc26…4cc46 (48, 0, 60) 20 20 20 20 20 20 20 20 20 20 20 20 28 27 4d 7b 74 74 79 70 3a 20 27 29 20 28 41 29 20 28 41 42 ┆ ('Mättyp: ') (A) (AB┆
0x4cc46…4cc66 4d 54 59 50 29 20 28 41 28 36 29 29 20 28 27 20 27 29 20 28 41 28 34 29 29 20 28 27 45 2d 6b 61 ┆MTYP) (A(6)) (' ') (A(4)) ('E-ka┆
0x4cc66…4cc75 70 3a 20 27 29 20 28 41 29 20 20 20 20 20 20 ┆p: ') (A) ┆
0x4cc75…4cc95 (48, 0, 61) 20 20 20 20 20 20 20 20 20 20 20 20 28 41 42 45 4b 41 50 29 20 28 41 29 20 28 27 20 27 29 20 28 ┆ (ABEKAP) (A) (' ') (┆
0x4cc95…4ccb5 41 28 35 29 29 20 28 27 44 65 62 2e 6b 2d 45 3a 20 27 29 20 28 41 29 20 28 41 42 45 4b 4e 53 54 ┆A(5)) ('Deb.k-E: ') (A) (ABEKNST┆
0x4ccb5…4ccc4 29 20 28 50 27 5a 5a 5a 39 27 29 20 20 20 20 ┆) (P'ZZZ9') ┆
0x4ccc4…4cce4 (48, 0, 62) 20 20 20 20 20 20 20 20 20 20 20 20 28 27 20 27 29 20 28 41 28 31 37 29 29 20 28 27 53 4b 34 30 ┆ (' ') (A(17)) ('SK40┆
0x4cce4…4cd04 30 30 30 6b 57 68 3a 20 20 27 29 20 28 41 29 20 28 41 42 4f 52 45 44 4b 57 48 29 20 28 50 27 5a ┆000kWh: ') (A) (ABOREDKWH) (P'Z┆
0x4cd04…4cd13 5a 5a 5a 39 27 29 20 28 27 20 27 29 20 20 20 ┆ZZZ9') (' ') ┆
0x4cd13…4cd33 (48, 0, 63) 20 20 20 20 20 20 20 20 20 20 20 20 28 41 28 32 29 29 20 28 27 54 72 61 66 6f 68 79 72 61 3a 20 ┆ (A(2)) ('Trafohyra: ┆
0x4cd33…4cd53 20 27 29 20 28 41 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ') (A); ┆
0x4cd53…4cd62 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4cd62…4cd82 (48, 0, 64) 20 20 20 20 20 20 20 20 49 46 20 41 42 53 4c 49 4e 47 44 55 42 42 45 4c 20 3d 20 27 53 27 20 54 ┆ IF ABSLINGDUBBEL = 'S' T┆
0x4cd82…4cda2 48 45 4e 20 44 4f 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆HEN DO; ┆
0x4cda2…4cdb1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4cdb1…4cdd1 (48, 0, 65) 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 45 44 49 54 20 28 27 53 4c 49 4e 47 4b 41 42 45 ┆ PUT EDIT ('SLINGKABE┆
0x4cdd1…4cdf1 4c 27 29 20 28 41 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 ┆L') (A); ┆
0x4cdf1…4ce00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4ce00…4ce20 (48, 0, 66) 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; ┆
0x4ce20…4ce40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4ce40…4ce4f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4ce4f…4ce6f (48, 0, 67) 20 20 20 20 20 20 20 20 49 46 20 41 42 53 4c 49 4e 47 44 55 42 42 45 4c 20 3d 20 27 44 27 20 54 ┆ IF ABSLINGDUBBEL = 'D' T┆
0x4ce6f…4ce8f 48 45 4e 20 44 4f 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆HEN DO; ┆
0x4ce8f…4ce9e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4ce9e…4cebe (48, 0, 68) 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 45 44 49 54 20 28 27 44 55 42 42 45 4c 4b 41 42 ┆ PUT EDIT ('DUBBELKAB┆
0x4cebe…4cede 45 4c 27 29 20 28 41 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 ┆EL') (A); ┆
0x4cede…4ceed 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4ceed…4cf0d (48, 0, 69) 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; ┆
0x4cf0d…4cf2d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4cf2d…4cf3c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4cf3c…4cf8b (48, 0, 70) 0x20[0x4f]
[…0x2…]
0x4d029…4d049 (48, 0, 73) 2f 2a 20 20 20 20 20 20 55 50 50 53 5b 54 54 4e 2e 44 41 54 55 4d 20 2d 20 72 61 64 65 6e 20 20 ┆/* UPPSÄTTN.DATUM - raden ┆
0x4d049…4d069 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4d069…4d078 20 20 20 20 20 20 20 20 20 20 20 20 2a 2f 20 ┆ */ ┆
0x4d078…4d0c7 (48, 0, 74) 0x20[0x4f]
[…0x1…]
0x4d116…4d136 (48, 0, 76) 41 31 36 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 ┆A160: ┆
0x4d136…4d156 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4d156…4d165 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4d165…4d185 (48, 0, 77) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 45 44 49 54 20 28 27 20 20 20 55 70 70 64 61 ┆ PUT SKIP EDIT (' Uppda┆
0x4d185…4d1a5 74 3a 20 27 29 20 28 41 29 20 28 41 42 55 44 41 54 29 20 28 50 27 39 39 39 39 39 39 27 29 20 28 ┆t: ') (A) (ABUDAT) (P'999999') (┆
0x4d1a5…4d1b4 27 20 27 29 20 28 41 28 35 29 29 20 20 20 20 ┆' ') (A(5)) ┆
0x4d1b4…4d1d4 (48, 0, 78) 20 20 20 20 20 20 20 20 20 20 20 20 28 27 50 2d 76 65 72 6b 3a 20 27 29 20 28 41 29 3b 20 20 20 ┆ ('P-verk: ') (A); ┆
0x4d1d4…4d1f4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4d1f4…4d203 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4d203…4d223 (48, 0, 79) 20 20 20 20 20 20 20 20 49 46 20 41 42 50 4d 54 59 50 20 3d 20 27 41 27 20 54 48 45 4e 20 44 4f ┆ IF ABPMTYP = 'A' THEN DO┆
0x4d223…4d243 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 ┆; ┆
0x4d243…4d252 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4d252…4d272 (48, 0, 80) 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 45 44 49 54 20 28 27 4b 55 4d 55 4c 20 20 20 20 ┆ PUT EDIT ('KUMUL ┆
0x4d272…4d292 20 27 29 20 28 41 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ') (A); ┆
0x4d292…4d2a1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4d2a1…4d2c1 (48, 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; ┆
0x4d2c1…4d2e1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4d2e1…4d2f0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4d2f0…4d310 (49, 0, 0) 20 20 20 20 20 20 20 20 49 46 20 41 42 50 4d 54 59 50 20 3d 20 27 47 27 20 54 48 45 4e 20 44 4f ┆ IF ABPMTYP = 'G' THEN DO┆
0x4d310…4d330 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 ┆; ┆
0x4d330…4d33f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4d33f…4d35f (49, 0, 1) 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 45 44 49 54 20 28 27 47 52 41 44 56 20 20 20 20 ┆ PUT EDIT ('GRADV ┆
0x4d35f…4d37f 20 27 29 20 28 41 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ') (A); ┆
0x4d37f…4d38e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4d38e…4d3ae (49, 0, 2) 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; ┆
0x4d3ae…4d3ce 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4d3ce…4d3dd 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4d3dd…4d3fd (49, 0, 3) 20 20 20 20 20 20 20 20 50 55 54 20 45 44 49 54 20 28 27 50 2d 6b 61 70 3a 20 27 29 20 28 41 29 ┆ PUT EDIT ('P-kap: ') (A)┆
0x4d3fd…4d41d 20 28 41 42 50 4b 41 50 29 20 28 41 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ (ABPKAP) (A) ┆
0x4d41d…4d42c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4d42c…4d44c (49, 0, 4) 20 20 20 20 20 20 20 20 20 20 20 20 28 27 20 27 29 20 28 41 28 35 29 29 20 20 20 20 20 20 20 20 ┆ (' ') (A(5)) ┆
0x4d44c…4d46c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4d46c…4d47b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4d47b…4d49b (49, 0, 5) 20 20 20 20 20 20 20 20 20 20 20 20 28 27 44 65 62 2e 6b 2d 50 3a 20 27 29 20 28 41 29 20 28 41 ┆ ('Deb.k-P: ') (A) (A┆
0x4d49b…4d4bb 42 50 4b 4e 53 54 29 20 28 50 27 5a 5a 5a 39 27 29 20 28 27 20 27 29 20 28 41 28 33 37 29 29 20 ┆BPKNST) (P'ZZZ9') (' ') (A(37)) ┆
0x4d4bb…4d4ca 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4d4ca…4d4ea (49, 0, 6) 20 20 20 20 20 20 20 20 20 20 20 20 28 27 54 72 61 66 6f 66 7c 72 6c 3a 20 20 27 29 20 28 41 29 ┆ ('Trafoförl: ') (A)┆
0x4d4ea…4d50a 20 28 27 31 2e 35 30 20 25 27 29 20 28 41 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ('1.50 %') (A); ┆
0x4d50a…4d519 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4d519…4d568 (49, 0, 7) 0x20[0x4f]
[…0x2…]
0x4d606…4d626 (49, 0, 10) 2f 2a 20 20 20 20 20 20 50 45 52 49 4f 44 52 55 42 52 49 4b 20 2d 20 72 61 64 65 6e 20 20 20 20 ┆/* PERIODRUBRIK - raden ┆
0x4d626…4d646 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4d646…4d655 20 20 20 20 20 20 20 20 20 20 20 20 2a 2f 20 ┆ */ ┆
0x4d655…4d6a4 (49, 0, 11) 0x20[0x4f]
[…0x1…]
0x4d6f3…4d713 (49, 0, 13) 41 31 37 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 ┆A170: ┆
0x4d713…4d733 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4d733…4d742 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4d742…4d762 (49, 0, 14) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 28 32 29 20 45 44 49 54 20 28 27 20 20 20 50 ┆ PUT SKIP (2) EDIT (' P┆
0x4d762…4d782 45 52 20 20 20 41 56 4c 44 41 54 20 20 20 20 20 20 50 2d 4d 53 54 20 20 20 44 45 42 2e 4b 2d 50 ┆ER AVLDAT P-MST DEB.K-P┆
0x4d782…4d791 20 20 20 20 50 2d 41 56 44 52 27 29 20 20 20 ┆ P-AVDR') ┆
0x4d791…4d7b1 (49, 0, 15) 20 20 20 20 20 20 20 20 20 20 20 20 28 41 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ (A) ┆
0x4d7b1…4d7d1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4d7d1…4d7e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4d7e0…4d800 (49, 0, 16) 20 20 20 20 20 20 20 20 20 20 20 20 28 27 20 20 20 20 50 2d 54 49 4c 4c 20 20 20 20 20 50 2d 53 ┆ (' P-TILL P-S┆
0x4d800…4d820 55 4d 20 20 20 20 45 2d 4d 53 54 20 20 20 20 44 45 42 2e 4b 2d 45 20 20 20 20 45 2d 41 56 44 52 ┆UM E-MST DEB.K-E E-AVDR┆
0x4d820…4d82f 20 20 20 20 27 29 20 28 41 29 20 20 20 20 20 ┆ ') (A) ┆
0x4d82f…4d84f (49, 0, 17) 20 20 20 20 20 20 20 20 20 20 20 20 28 27 45 2d 54 49 4c 4c 20 20 20 20 45 2d 53 55 4d 27 29 20 ┆ ('E-TILL E-SUM') ┆
0x4d84f…4d86f 28 41 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 ┆(A); ┆
0x4d86f…4d87e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4d87e…4d89e (49, 0, 18) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 45 44 49 54 20 28 27 20 27 29 20 28 41 29 3b ┆ PUT SKIP EDIT (' ') (A);┆
0x4d89e…4d8be 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4d8be…4d8cd 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4d8cd…4d8ed (49, 0, 19) 20 20 20 20 20 20 20 20 52 20 3d 20 31 35 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ R = 15; ┆
0x4d8ed…4d90d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4d90d…4d91c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4d91c…4d93c (49, 0, 20) 20 20 20 20 20 20 20 20 53 54 31 20 3d 20 41 44 44 52 20 28 53 54 31 49 4e 41 52 45 41 29 3b 20 ┆ ST1 = ADDR (ST1INAREA); ┆
0x4d93c…4d95c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4d95c…4d96b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4d96b…4d98b (49, 0, 21) 20 20 20 20 20 20 20 20 50 45 4b 41 52 45 20 3d 20 55 4e 53 50 45 43 20 28 53 54 31 29 20 2b 20 ┆ PEKARE = UNSPEC (ST1) + ┆
0x4d98b…4d9ab 35 20 2d 20 33 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 ┆5 - 30; ┆
0x4d9ab…4d9ba 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4d9ba…4d9da (49, 0, 22) 20 20 20 20 20 20 20 20 55 49 4e 44 20 3d 20 41 44 44 52 20 28 55 44 45 42 50 4f 53 54 29 3b 20 ┆ UIND = ADDR (UDEBPOST); ┆
0x4d9da…4d9fa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4d9fa…4da09 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4da09…4da29 (49, 0, 23) 20 20 20 20 20 20 20 20 55 50 45 4b 41 52 45 20 3d 20 55 4e 53 50 45 43 20 28 55 49 4e 44 29 20 ┆ UPEKARE = UNSPEC (UIND) ┆
0x4da29…4da49 2b 20 37 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆+ 7; ┆
0x4da49…4da58 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4da58…4daa7 (49, 0, 24) 0x20[0x4f]
0x4daa7…4dac7 (49, 0, 25) 2f 2a 20 20 20 20 20 20 50 45 52 49 4f 44 20 2d 20 72 61 64 65 72 6e 61 20 20 20 20 20 20 20 20 ┆/* PERIOD - raderna ┆
0x4dac7…4dae7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4dae7…4daf6 20 20 20 20 20 20 20 20 20 20 20 20 2a 2f 20 ┆ */ ┆
0x4daf6…4db45 (49, 0, 26) 0x20[0x4f]
0x4db45…4db65 (49, 0, 27) 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 20 20 20 20 ┆A200: ┆
0x4db65…4db85 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4db85…4db94 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4db94…4dbb4 (49, 0, 28) 20 20 20 20 20 20 20 20 44 4f 20 49 20 3d 20 30 20 54 4f 20 31 34 3b 20 20 20 20 20 20 20 20 20 ┆ DO I = 0 TO 14; ┆
0x4dbb4…4dbd4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4dbd4…4dbe3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4dbe3…4dc03 (49, 0, 29) 20 20 20 20 20 20 20 20 20 20 20 20 4b 56 41 52 54 53 4c 55 54 20 3d 20 30 3b 20 20 20 20 20 20 ┆ KVARTSLUT = 0; ┆
0x4dc03…4dc23 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4dc23…4dc32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4dc32…4dc52 (49, 0, 30) 20 20 20 20 20 20 20 20 20 20 20 20 52 20 3d 20 52 20 2d 20 31 3b 20 20 20 20 20 20 20 20 20 20 ┆ R = R - 1; ┆
0x4dc52…4dc72 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4dc72…4dc81 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4dc81…4dca1 (49, 0, 31) 20 20 20 20 20 20 20 20 20 20 20 20 50 45 4b 41 52 45 20 3d 20 50 45 4b 41 52 45 20 2b 20 33 30 ┆ PEKARE = PEKARE + 30┆
0x4dca1…4dcc1 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 ┆; ┆
0x4dcc1…4dcd0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4dcd0…4dcf0 (49, 0, 32) 20 20 20 20 20 20 20 20 20 20 20 20 55 4e 53 50 45 43 20 28 53 54 31 29 20 3d 20 50 45 4b 41 52 ┆ UNSPEC (ST1) = PEKAR┆
0x4dcf0…4dd10 45 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 ┆E; ┆
0x4dd10…4dd1f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4dd1f…4dd3f (49, 0, 33) 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 49 20 3e 20 30 20 54 48 45 4e 20 44 4f 3b 20 20 20 ┆ IF I > 0 THEN DO; ┆
0x4dd3f…4dd5f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4dd5f…4dd6e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4dd6e…4dd8e (49, 0, 34) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 55 50 45 4b 41 52 45 20 3d 20 55 50 45 4b 41 52 ┆ UPEKARE = UPEKAR┆
0x4dd8e…4ddae 45 20 2b 20 32 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 ┆E + 20; ┆
0x4ddae…4ddbd 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4ddbd…4dddd (49, 0, 35) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 55 4e 53 50 45 43 20 28 55 49 4e 44 29 20 3d 20 ┆ UNSPEC (UIND) = ┆
0x4dddd…4ddfd 55 50 45 4b 41 52 45 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 ┆UPEKARE; ┆
0x4ddfd…4de0c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4de0c…4de2c (49, 0, 36) 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; ┆
0x4de2c…4de4c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4de4c…4de5b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4de5b…4de7b (49, 0, 37) 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 49 20 3d 20 28 50 41 52 41 44 45 42 50 45 52 20 2a ┆ IF I = (PARADEBPER *┆
0x4de7b…4de9b 20 33 29 20 2b 20 31 20 54 48 45 4e 20 44 4f 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 3) + 1 THEN DO; ┆
0x4de9b…4deaa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4deaa…4deca (49, 0, 38) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 28 52 29 20 45 44 49 ┆ PUT SKIP (R) EDI┆
0x4deca…4deea 54 20 28 27 20 27 29 20 28 41 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆T (' ') (A); ┆
0x4deea…4def9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4def9…4df19 (49, 0, 39) 20 20 20 20 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 ┆ GO TO A300; ┆
0x4df19…4df39 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4df39…4df48 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4df48…4df68 (49, 0, 40) 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; ┆
0x4df68…4df88 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4df88…4df97 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4df97…4dfb7 (49, 0, 41) 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 49 20 3d 20 33 20 7c 20 49 20 3d 20 36 20 7c 20 49 ┆ IF I = 3 ö I = 6 ö I┆
0x4dfb7…4dfd7 20 3d 20 39 20 7c 20 49 20 3d 20 31 32 20 54 48 45 4e 20 44 4f 3b 20 20 20 20 20 20 20 20 20 20 ┆ = 9 ö I = 12 THEN DO; ┆
0x4dfd7…4dfe6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4dfe6…4e006 (49, 0, 42) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4e 59 43 4b 45 4c 41 42 4e 52 20 3d 20 41 42 41 ┆ NYCKELABNR = ABA┆
0x4e006…4e026 42 4e 52 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆BNR; ┆
0x4e026…4e035 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4e035…4e055 (49, 0, 43) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4e 59 43 4b 45 4c 4b 56 41 52 54 20 3d 20 49 2f ┆ NYCKELKVART = I/┆
0x4e055…4e075 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 20 ┆3; ┆
0x4e075…4e084 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4e084…4e0a4 (49, 0, 44) 2f 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 41 44 20 4b 45 59 20 28 4e 59 43 4b 45 4c ┆/* READ KEY (NYCKEL┆
0x4e0a4…4e0c4 53 54 32 29 20 46 49 4c 45 20 28 53 54 41 54 52 45 47 32 29 20 49 4e 54 4f 20 28 53 54 32 50 4f ┆ST2) FILE (STATREG2) INTO (ST2PO┆
0x4e0c4…4e0d3 53 54 29 3b 20 20 20 20 20 2a 2f 20 20 20 20 ┆ST); */ ┆
0x4e0d3…4e0f3 (49, 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; ┆
0x4e0f3…4e113 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4e113…4e122 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4e122…4e142 (49, 0, 46) 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; ┆
0x4e142…4e162 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4e162…4e171 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4e171…4e1c0 (49, 0, 47) 0x20[0x4f]
0x4e1c0…4e1e0 (49, 0, 48) 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 45 44 49 54 20 28 27 20 20 20 27 ┆ PUT SKIP EDIT (' '┆
0x4e1e0…4e200 29 20 28 41 29 20 28 53 54 31 50 45 52 29 20 28 50 27 39 39 27 29 20 28 27 20 20 20 20 27 29 20 ┆) (A) (ST1PER) (P'99') (' ') ┆
0x4e200…4e20f 28 41 29 20 28 53 54 31 41 56 4c 44 41 54 29 ┆(A) (ST1AVLDAT)┆
0x4e20f…4e22f (49, 0, 49) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 41 29 20 28 27 20 27 29 20 28 41 28 34 29 29 ┆ (A) (' ') (A(4))┆
0x4e22f…4e24f 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 ┆; ┆
0x4e24f…4e25e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4e25e…4e27e (49, 0, 50) 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 41 42 50 4b 41 50 20 3d 20 35 20 54 48 45 4e 20 44 ┆ IF ABPKAP = 5 THEN D┆
0x4e27e…4e29e 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; ┆
0x4e29e…4e2ad 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4e2ad…4e2cd (49, 0, 51) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 45 44 49 54 20 28 53 54 31 50 4d 53 ┆ PUT EDIT (ST1PMS┆
0x4e2cd…4e2ed 54 29 20 28 50 27 5a 5a 5a 5a 39 2e 39 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆T) (P'ZZZZ9.9'); ┆
0x4e2ed…4e2fc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4e2fc…4e31c (49, 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; ┆
0x4e31c…4e33c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4e33c…4e34b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4e34b…4e36b (49, 0, 53) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 20 44 4f 3b 20 20 20 20 20 20 20 20 ┆ ELSE DO; ┆
0x4e36b…4e38b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4e38b…4e39a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4e39a…4e3ba (49, 0, 54) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 45 44 49 54 20 28 53 54 ┆ PUT EDIT (ST┆
0x4e3ba…4e3da 31 50 4d 53 54 29 20 28 50 27 5a 5a 39 2e 39 39 39 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆1PMST) (P'ZZ9.999'); ┆
0x4e3da…4e3e9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4e3e9…4e409 (49, 0, 55) 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; ┆
0x4e409…4e429 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4e429…4e438 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4e438…4e458 (49, 0, 56) 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 45 44 49 54 20 28 27 20 27 29 20 28 41 28 36 29 ┆ PUT EDIT (' ') (A(6)┆
0x4e458…4e478 29 20 28 53 54 31 50 4b 4e 53 54 29 20 28 50 27 5a 5a 5a 39 27 29 20 28 27 20 20 20 27 29 20 28 ┆) (ST1PKNST) (P'ZZZ9') (' ') (┆
0x4e478…4e487 41 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆A); ┆
0x4e487…4e4a7 (49, 0, 57) 20 20 20 20 20 20 20 20 20 20 20 20 4d 20 3d 20 32 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ M = 20; ┆
0x4e4a7…4e4c7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4e4c7…4e4d6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4e4d6…4e4f6 (49, 0, 58) 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 49 20 3e 20 30 20 26 20 53 55 42 53 54 52 20 28 41 ┆ IF I > 0 & SUBSTR (A┆
0x4e4f6…4e516 42 4d 41 4e 2c 32 2c 31 29 20 3d 20 27 48 27 20 54 48 45 4e 20 44 4f 3b 20 20 20 20 20 20 20 20 ┆BMAN,2,1) = 'H' THEN DO; ┆
0x4e516…4e525 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4e525…4e545 (49, 0, 59) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 45 44 49 54 20 28 55 44 50 29 20 28 ┆ PUT EDIT (UDP) (┆
0x4e545…4e565 50 27 5a 5a 5a 39 56 2e 39 39 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆P'ZZZ9V.99'); ┆
0x4e565…4e574 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4e574…4e594 (49, 0, 60) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4d 20 3d 20 31 33 3b 20 20 20 20 20 20 20 20 20 ┆ M = 13; ┆
0x4e594…4e5b4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4e5b4…4e5c3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4e5c3…4e5e3 (49, 0, 61) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 4b 56 41 52 54 53 4c 55 54 20 3d 20 31 ┆ IF KVARTSLUT = 1┆
0x4e5e3…4e603 20 54 48 45 4e 20 4d 20 3d 20 33 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ THEN M = 3; ┆
0x4e603…4e612 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4e612…4e632 (49, 0, 62) 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; ┆
0x4e632…4e652 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4e652…4e661 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4e661…4e681 (49, 0, 63) 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 4b 56 41 52 54 53 4c 55 54 20 3d 20 31 20 54 48 45 ┆ IF KVARTSLUT = 1 THE┆
0x4e681…4e6a1 4e 20 44 4f 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆N DO; ┆
0x4e6a1…4e6b0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4e6b0…4e6d0 (49, 0, 64) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 45 44 49 54 20 28 27 20 27 29 20 28 ┆ PUT EDIT (' ') (┆
0x4e6d0…4e6f0 41 28 4d 29 29 20 28 53 54 32 54 52 50 46 4f 52 4c 29 20 28 50 27 5a 5a 5a 39 56 2e 39 39 27 29 ┆A(M)) (ST2TRPFORL) (P'ZZZ9V.99')┆
0x4e6f0…4e6ff 20 28 27 20 20 20 27 29 20 28 41 29 3b 20 20 ┆ (' ') (A); ┆
0x4e6ff…4e71f (49, 0, 65) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 50 46 42 52 20 3d 20 53 54 31 50 46 42 52 20 ┆ WPFBR = ST1PFBR ┆
0x4e71f…4e73f 2b 20 53 54 32 54 52 50 46 4f 52 4c 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆+ ST2TRPFORL; ┆
0x4e73f…4e74e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4e74e…4e76e (49, 0, 66) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 45 44 49 54 20 28 53 54 31 50 46 42 ┆ PUT EDIT (ST1PFB┆
0x4e76e…4e78e 52 29 20 28 50 27 5a 5a 5a 39 56 2e 39 39 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆R) (P'ZZZ9V.99'); ┆
0x4e78e…4e79d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4e79d…4e7bd (49, 0, 67) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 50 46 42 52 20 3d 20 30 3b 20 20 20 20 20 20 ┆ WPFBR = 0; ┆
0x4e7bd…4e7dd 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4e7dd…4e7ec 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4e7ec…4e80c (49, 0, 68) 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; ┆
0x4e80c…4e82c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4e82c…4e83b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4e83b…4e85b (49, 0, 69) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 20 44 4f 3b 20 20 20 20 20 20 20 20 ┆ ELSE DO; ┆
0x4e85b…4e87b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4e87b…4e88a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4e88a…4e8aa (49, 0, 70) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 45 44 49 54 20 28 27 20 ┆ PUT EDIT (' ┆
0x4e8aa…4e8ca 27 29 20 28 41 28 4d 29 29 20 28 53 54 31 50 46 42 52 29 20 28 50 27 5a 5a 5a 39 56 2e 39 39 27 ┆') (A(M)) (ST1PFBR) (P'ZZZ9V.99'┆
0x4e8ca…4e8d9 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆); ┆
0x4e8d9…4e8f9 (49, 0, 71) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 50 46 42 52 20 3d 20 57 50 46 42 ┆ WPFBR = WPFB┆
0x4e8f9…4e919 52 20 2b 20 53 54 31 50 46 42 52 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆R + ST1PFBR; ┆
0x4e919…4e928 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4e928…4e948 (49, 0, 72) 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; ┆
0x4e948…4e968 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4e968…4e977 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4e977…4e997 (49, 0, 73) 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 45 44 49 54 20 28 27 20 20 20 27 29 20 28 41 29 ┆ PUT EDIT (' ') (A)┆
0x4e997…4e9b7 20 28 53 54 31 45 4d 53 54 29 20 28 50 27 5a 5a 5a 5a 5a 39 27 29 20 28 27 20 27 29 20 28 41 28 ┆ (ST1EMST) (P'ZZZZZ9') (' ') (A(┆
0x4e9b7…4e9c6 36 29 29 20 28 53 54 31 45 4b 4e 53 54 29 20 ┆6)) (ST1EKNST) ┆
0x4e9c6…4e9e6 (49, 0, 74) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 50 27 20 5a 5a 5a 39 27 29 3b 20 20 20 20 20 ┆ (P' ZZZ9'); ┆
0x4e9e6…4ea06 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4ea06…4ea15 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4ea15…4ea64 (49, 0, 75) 0x20[0x4f]
[…0x1…]
0x4eab3…4ead3 (49, 0, 77) 20 20 20 20 20 20 20 20 20 20 20 20 4d 20 3d 20 32 31 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ M = 21; ┆
0x4ead3…4eaf3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4eaf3…4eb02 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4eb02…4eb22 (49, 0, 78) 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 49 20 3e 20 30 20 26 20 53 55 42 53 54 52 20 28 41 ┆ IF I > 0 & SUBSTR (A┆
0x4eb22…4eb42 42 4d 41 4e 2c 32 2c 31 29 20 3d 20 27 48 27 20 54 48 45 4e 20 44 4f 3b 20 20 20 20 20 20 20 20 ┆BMAN,2,1) = 'H' THEN DO; ┆
0x4eb42…4eb51 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4eb51…4eb71 (49, 0, 79) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 45 44 49 54 20 28 27 20 20 27 29 20 ┆ PUT EDIT (' ') ┆
0x4eb71…4eb91 28 41 29 20 28 55 44 45 29 20 28 50 27 5a 5a 5a 5a 5a 5a 5a 39 27 29 3b 20 20 20 20 20 20 20 20 ┆(A) (UDE) (P'ZZZZZZZ9'); ┆
0x4eb91…4eba0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4eba0…4ebc0 (49, 0, 80) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4d 20 3d 20 31 31 3b 20 20 20 20 20 20 20 20 20 ┆ M = 11; ┆
0x4ebc0…4ebe0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4ebe0…4ebef 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4ebef…4ec0f (49, 0, 81) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 4b 56 41 52 54 53 4c 55 54 20 3d 20 31 ┆ IF KVARTSLUT = 1┆
0x4ec0f…4ec2f 20 54 48 45 4e 20 4d 20 3d 20 32 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ THEN M = 2; ┆
0x4ec2f…4ec3e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4ec3e…4ec5e (50, 0, 0) 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; ┆
0x4ec5e…4ec7e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4ec7e…4ec8d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4ec8d…4ecdc (50, 0, 1) 0x20[0x4f]
0x4ecdc…4ecfc (50, 0, 2) 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 4b 56 41 52 54 53 4c 55 54 20 3d 20 31 20 54 48 45 ┆ IF KVARTSLUT = 1 THE┆
0x4ecfc…4ed1c 4e 20 44 4f 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆N DO; ┆
0x4ed1c…4ed2b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4ed2b…4ed4b (50, 0, 3) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 45 44 49 54 20 28 27 20 27 29 20 28 ┆ PUT EDIT (' ') (┆
0x4ed4b…4ed6b 41 28 4d 29 29 20 28 53 54 32 54 52 45 46 4f 52 4c 29 20 28 50 27 5a 5a 5a 5a 5a 5a 5a 39 27 29 ┆A(M)) (ST2TREFORL) (P'ZZZZZZZ9')┆
0x4ed6b…4ed7a 20 28 27 20 27 29 20 28 41 29 3b 20 20 20 20 ┆ (' ') (A); ┆
0x4ed7a…4ed9a (50, 0, 4) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 45 46 42 52 20 3d 20 53 54 31 45 46 42 52 20 ┆ WEFBR = ST1EFBR ┆
0x4ed9a…4edba 2b 20 53 54 32 54 52 45 46 4f 52 4c 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆+ ST2TREFORL; ┆
0x4edba…4edc9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4edc9…4ede9 (50, 0, 5) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 45 44 49 54 20 28 53 54 31 45 46 42 ┆ PUT EDIT (ST1EFB┆
0x4ede9…4ee09 52 29 20 28 50 27 5a 5a 5a 5a 5a 5a 5a 39 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆R) (P'ZZZZZZZ9'); ┆
0x4ee09…4ee18 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4ee18…4ee38 (50, 0, 6) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 45 46 42 52 20 3d 20 30 3b 20 20 20 20 20 20 ┆ WEFBR = 0; ┆
0x4ee38…4ee58 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4ee58…4ee67 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4ee67…4ee87 (50, 0, 7) 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; ┆
0x4ee87…4eea7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4eea7…4eeb6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4eeb6…4eed6 (50, 0, 8) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 20 44 4f 3b 20 20 20 20 20 20 20 20 ┆ ELSE DO; ┆
0x4eed6…4eef6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4eef6…4ef05 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4ef05…4ef25 (50, 0, 9) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 45 44 49 54 20 28 27 20 ┆ PUT EDIT (' ┆
0x4ef25…4ef45 27 29 20 28 41 28 4d 29 29 20 28 53 54 31 45 46 42 52 29 20 28 50 27 5a 5a 5a 5a 5a 5a 5a 39 27 ┆') (A(M)) (ST1EFBR) (P'ZZZZZZZ9'┆
0x4ef45…4ef54 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆); ┆
0x4ef54…4ef74 (50, 0, 10) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 45 46 42 52 20 3d 20 57 45 46 42 ┆ WEFBR = WEFB┆
0x4ef74…4ef94 52 20 2b 20 53 54 31 45 46 42 52 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆R + ST1EFBR; ┆
0x4ef94…4efa3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4efa3…4efc3 (50, 0, 11) 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; ┆
0x4efc3…4efe3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4efe3…4eff2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4eff2…4f012 (50, 0, 12) 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; ┆
0x4f012…4f032 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4f032…4f041 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4f041…4f090 (50, 0, 13) 0x20[0x4f]
[…0x2…]
0x4f12e…4f14e (50, 0, 16) 2f 2a 20 20 20 20 20 20 45 46 46 45 4b 54 20 2d 20 72 61 64 65 6e 20 20 20 20 20 20 20 20 20 20 ┆/* EFFEKT - raden ┆
0x4f14e…4f16e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4f16e…4f17d 20 20 20 20 20 20 20 20 20 20 20 20 2a 2f 20 ┆ */ ┆
0x4f17d…4f1cc (50, 0, 17) 0x20[0x4f]
[…0x1…]
0x4f21b…4f23b (50, 0, 19) 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 20 20 20 20 ┆A300: ┆
0x4f23b…4f25b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4f25b…4f26a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4f26a…4f28a (50, 0, 20) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 28 32 29 20 45 44 49 54 20 28 27 20 20 20 45 ┆ PUT SKIP (2) EDIT (' E┆
0x4f28a…4f2aa 46 46 45 4b 54 54 4f 50 50 20 20 20 20 4d 5d 4e 41 44 20 20 20 20 20 20 20 20 20 20 20 4d 45 44 ┆FFEKTTOPP MÅNAD MED┆
0x4f2aa…4f2b9 45 4c 45 46 46 45 4b 54 27 29 20 28 41 29 3b ┆ELEFFEKT') (A);┆
0x4f2b9…4f2d9 (50, 0, 21) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 28 32 29 20 45 44 49 54 20 28 27 20 20 20 27 ┆ PUT SKIP (2) EDIT (' '┆
0x4f2d9…4f2f9 29 20 28 41 29 20 28 53 54 32 50 4d 45 44 45 4c 31 29 20 28 50 27 5a 5a 5a 39 56 2e 39 39 27 29 ┆) (A) (ST2PMEDEL1) (P'ZZZ9V.99')┆
0x4f2f9…4f308 20 28 27 20 6b 57 20 20 20 20 27 29 28 41 29 ┆ (' kW ')(A)┆
0x4f308…4f328 (50, 0, 22) 20 20 20 20 20 20 20 20 20 20 20 20 28 57 4d 41 4e 41 44 20 28 53 54 32 50 4d 31 4d 41 4e 29 29 ┆ (WMANAD (ST2PM1MAN))┆
0x4f328…4f348 20 28 41 29 20 28 27 20 27 29 20 28 41 28 37 29 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ (A) (' ') (A(7)) ┆
0x4f348…4f357 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4f357…4f377 (50, 0, 23) 20 20 20 20 20 20 20 20 20 20 20 20 28 53 54 32 44 45 42 50 29 20 28 50 27 5a 5a 5a 39 56 2e 39 ┆ (ST2DEBP) (P'ZZZ9V.9┆
0x4f377…4f397 39 27 29 20 28 27 20 6b 57 27 29 20 28 41 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆9') (' kW') (A); ┆
0x4f397…4f3a6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4f3a6…4f3c6 (50, 0, 24) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 45 44 49 54 20 28 27 20 20 20 27 29 20 28 41 ┆ PUT SKIP EDIT (' ') (A┆
0x4f3c6…4f3e6 29 20 28 53 54 32 50 4d 45 44 45 4c 32 29 20 28 50 27 5a 5a 5a 39 56 2e 39 39 27 29 20 28 27 20 ┆) (ST2PMEDEL2) (P'ZZZ9V.99') (' ┆
0x4f3e6…4f3f5 6b 57 20 20 20 20 27 29 20 28 41 29 20 20 20 ┆kW ') (A) ┆
0x4f3f5…4f415 (50, 0, 25) 20 20 20 20 20 20 20 20 20 20 20 20 28 57 4d 41 4e 41 44 20 28 53 54 32 50 4d 32 4d 41 4e 29 29 ┆ (WMANAD (ST2PM2MAN))┆
0x4f415…4f435 20 28 41 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 ┆ (A); ┆
0x4f435…4f444 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4f444…4f493 (50, 0, 26) 0x20[0x4f]
[…0x2…]
0x4f531…4f551 (50, 0, 29) 2f 2a 20 20 20 20 20 20 50 52 45 4c 52 5b 4b 4e 20 2d 20 72 61 64 65 72 6e 61 20 20 20 20 20 20 ┆/* PRELRÄKN - raderna ┆
0x4f551…4f571 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4f571…4f580 20 20 20 20 20 20 20 20 20 20 20 20 2a 2f 20 ┆ */ ┆
0x4f580…4f5cf (50, 0, 30) 0x20[0x4f]
[…0xb…]
0x4f934…4f954 (50, 0, 42) 41 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 20 20 20 20 ┆A400: ┆
0x4f954…4f974 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4f974…4f983 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4f983…4f9a3 (50, 0, 43) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 28 32 29 20 45 44 49 54 20 28 27 20 20 20 50 ┆ PUT SKIP (2) EDIT (' P┆
0x4f9a3…4f9c3 52 45 4c 2e 52 5b 4b 4e 49 4e 47 41 52 20 20 20 20 20 46 41 2d 44 41 54 20 20 20 20 20 20 20 46 ┆REL.RÄKNINGAR FA-DAT F┆
0x4f9c3…4f9d2 41 2d 42 45 4c 4f 50 50 27 29 20 28 41 29 3b ┆A-BELOPP') (A);┆
0x4f9d2…4f9f2 (50, 0, 44) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 45 44 49 54 20 28 27 20 27 29 20 28 41 29 3b ┆ PUT SKIP EDIT (' ') (A);┆
0x4f9f2…4fa12 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4fa12…4fa21 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4fa21…4fa41 (50, 0, 45) 20 20 20 20 20 20 20 20 50 52 45 4c 20 3d 20 41 44 44 52 20 28 50 52 45 4c 41 52 45 41 29 3b 20 ┆ PREL = ADDR (PRELAREA); ┆
0x4fa41…4fa61 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4fa61…4fa70 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4fa70…4fa90 (50, 0, 46) 20 20 20 20 20 20 20 20 53 54 41 52 54 50 20 3d 20 55 4e 53 50 45 43 20 28 50 52 45 4c 29 20 2b ┆ STARTP = UNSPEC (PREL) +┆
0x4fa90…4fab0 20 35 20 2d 20 31 36 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 ┆ 5 - 16; ┆
0x4fab0…4fabf 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4fabf…4fb0e (50, 0, 47) 0x20[0x4f]
0x4fb0e…4fb2e (50, 0, 48) 20 20 20 20 20 20 20 20 44 4f 20 49 20 3d 20 31 20 54 4f 20 34 3b 20 20 20 20 20 20 20 20 20 20 ┆ DO I = 1 TO 4; ┆
0x4fb2e…4fb4e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4fb4e…4fb5d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4fb5d…4fb7d (50, 0, 49) 20 20 20 20 20 20 20 20 20 20 20 20 50 45 4b 41 52 45 20 3d 20 53 54 41 52 54 50 20 2b 20 28 49 ┆ PEKARE = STARTP + (I┆
0x4fb7d…4fb9d 20 2a 20 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 20 20 20 ┆ * 16); ┆
0x4fb9d…4fbac 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4fbac…4fbcc (50, 0, 50) 20 20 20 20 20 20 20 20 20 20 20 20 55 4e 53 50 45 43 20 28 50 52 45 4c 29 20 3d 20 50 45 4b 41 ┆ UNSPEC (PREL) = PEKA┆
0x4fbcc…4fbec 52 45 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 ┆RE; ┆
0x4fbec…4fbfb 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4fbfb…4fc1b (50, 0, 51) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 27 20 27 29 20 28 41 29 20 20 20 20 20 20 20 ┆ (' ') (A) ┆
0x4fc1b…4fc3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4fc3b…4fc4a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4fc4a…4fc6a (50, 0, 52) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 50 52 46 41 56 47 20 2b 20 50 52 50 41 56 47 ┆ (PRFAVG + PRPAVG┆
0x4fc6a…4fc8a 20 2b 20 50 52 54 52 48 59 52 20 2b 20 50 52 46 42 52 41 56 47 56 20 2b 20 50 52 46 42 52 41 56 ┆ + PRTRHYR + PRFBRAVGV + PRFBRAV┆
0x4fc8a…4fc99 47 53 20 2b 20 50 52 53 4b 41 54 54 4b 52 34 ┆GS + PRSKATTKR4┆
0x4fc99…4fcb9 (50, 0, 53) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2b 20 50 52 53 4b 41 54 54 4b 52 33 20 2b 20 50 ┆ + PRSKATTKR3 + P┆
0x4fcb9…4fcd9 52 52 55 4e 44 29 20 28 50 27 2d 2d 2d 2d 2d 2d 2d 39 56 3a 39 39 27 29 3b 20 20 20 20 20 20 20 ┆RRUND) (P'-------9V:99'); ┆
0x4fcd9…4fce8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4fce8…4fd08 (50, 0, 54) 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; ┆
0x4fd08…4fd28 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4fd28…4fd37 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4fd37…4fd57 (50, 0, 55) 41 34 39 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 ┆A490: ┆
0x4fd57…4fd77 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4fd77…4fd86 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4fd86…4fda6 (50, 0, 56) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 28 34 20 2d 20 49 29 3b 20 20 20 20 20 20 20 ┆ PUT SKIP (4 - I); ┆
0x4fda6…4fdc6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4fdc6…4fdd5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4fdd5…4fe24 (50, 0, 57) 0x20[0x4f]
[…0x2…]
0x4fec2…4fee2 (50, 0, 60) 2f 2a 20 20 20 20 20 20 4b 4f 4d 4d 45 4e 54 41 52 20 2d 20 72 61 64 65 72 65 6e 61 20 20 20 20 ┆/* KOMMENTAR - raderena ┆
0x4fee2…4ff02 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4ff02…4ff11 20 20 20 20 20 20 20 20 20 20 20 20 2a 2f 20 ┆ */ ┆
0x4ff11…4ff60 (50, 0, 61) 0x20[0x4f]
[…0x1…]
0x4ffaf…4ffcf (50, 0, 63) 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: ┆
0x4ffcf…4ffef 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4ffef…4fffe 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4fffe…5004d (50, 0, 64) 0x20[0x4f]
0x5004d…5006d (50, 0, 65) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 28 32 29 20 45 44 49 54 20 28 27 20 20 20 4b ┆ PUT SKIP (2) EDIT (' K┆
0x5006d…5008d 6f 6d 6d 65 6e 74 61 72 65 72 3a 20 20 20 27 29 20 28 41 28 32 30 29 29 3b 20 20 20 20 20 20 20 ┆ommentarer: ') (A(20)); ┆
0x5008d…5009c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x5009c…500bc (50, 0, 66) 20 20 20 20 20 20 20 20 50 45 4b 41 52 45 20 3d 20 41 44 44 52 20 28 43 4f 4d 50 4f 53 54 29 3b ┆ PEKARE = ADDR (COMPOST);┆
0x500bc…500dc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x500dc…500eb 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x500eb…5010b (50, 0, 67) 20 20 20 20 20 20 20 20 53 54 41 52 54 50 20 3d 20 50 45 4b 41 52 45 20 2b 20 35 20 2d 20 31 30 ┆ STARTP = PEKARE + 5 - 10┆
0x5010b…5012b 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; ┆
0x5012b…5013a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x5013a…5015a (50, 0, 68) 20 20 20 20 20 20 20 20 44 4f 20 49 20 3d 20 31 20 54 4f 20 35 3b 20 20 20 20 20 20 20 20 20 20 ┆ DO I = 1 TO 5; ┆
0x5015a…5017a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x5017a…50189 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x50189…501a9 (50, 0, 69) 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 49 20 3d 20 31 20 54 48 45 4e 20 47 4f 20 54 4f 20 ┆ IF I = 1 THEN GO TO ┆
0x501a9…501c9 41 35 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 ┆A510; ┆
0x501c9…501d8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x501d8…501f8 (50, 0, 70) 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 45 44 49 54 20 28 27 20 27 29 20 ┆ PUT SKIP EDIT (' ') ┆
0x501f8…50218 28 41 28 32 30 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆(A(20)); ┆
0x50218…50227 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x50227…50247 (50, 0, 71) 41 35 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 ┆A510: ┆
0x50247…50267 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x50267…50276 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x50276…50296 (50, 0, 72) 20 20 20 20 20 20 20 20 20 20 20 20 50 45 4b 41 52 45 20 3d 20 53 54 41 52 54 50 20 2b 20 49 20 ┆ PEKARE = STARTP + I ┆
0x50296…502b6 2a 20 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 ┆* 100; ┆
0x502b6…502c5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x502c5…502e5 (50, 0, 73) 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 45 44 49 54 20 28 43 4f 4d 54 45 58 54 20 28 49 ┆ PUT EDIT (COMTEXT (I┆
0x502e5…50305 29 29 20 28 41 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 ┆)) (A); ┆
0x50305…50314 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x50314…50334 (50, 0, 74) 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; ┆
0x50334…50354 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x50354…50363 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x50363…50383 (50, 0, 75) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 28 36 29 20 45 44 49 54 20 28 27 20 27 29 20 ┆ PUT SKIP (6) EDIT (' ') ┆
0x50383…503a3 28 41 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 ┆(A); ┆
0x503a3…503b2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x503b2…503d2 (50, 0, 76) 20 20 20 20 20 20 20 20 49 46 20 53 56 41 52 20 3d 20 27 53 27 20 54 48 45 4e 20 47 4f 20 54 4f ┆ IF SVAR = 'S' THEN GO TO┆
0x503d2…503f2 20 5a 39 39 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 ┆ Z99; ┆
0x503f2…50401 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x50401…50421 (50, 0, 77) 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 41 35 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GO TO A50; ┆
0x50421…50441 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x50441…50450 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x50450…5049f (50, 0, 78) 0x20[0x4f]
[…0x1…]
0x504ee…5050e (50, 0, 80) 5a 39 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 ┆Z99: ┆
0x5050e…5052e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x5052e…5053d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x5053d…5055d (50, 0, 81) 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; ┆
0x5055d…5057d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x5057d…5058c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x5058c…505dc (51, 0, 0) DataSector[0x50]
[…0x436…]
0x656bc…656dc (64, 0, 26) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 27 20 20 27 29 20 28 41 29 20 28 57 41 42 41 ┆ (' ') (A) (WABA┆
0x656dc…656fc 4e 54 20 28 54 29 29 20 28 50 27 5a 5a 5a 5a 39 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆NT (T)) (P'ZZZZ9'); ┆
0x656fc…6570c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x6570c…6572c (64, 0, 27) 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; ┆
0x6572c…6574c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x6574c…6575c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x6575c…6577c (64, 0, 28) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 28 32 29 20 45 44 49 54 20 28 27 53 55 4d 4d 41 ┆ PUT SKIP(2) EDIT ('SUMMA┆
0x6577c…6579c 27 29 20 28 41 28 33 32 29 29 20 28 57 46 42 52 20 28 31 29 20 2b 20 57 46 42 52 20 28 32 29 29 ┆') (A(32)) (WFBR (1) + WFBR (2))┆
0x6579c…657ac 28 50 27 5a 5a 5a 5a 5a 5a 5a 5a 5a 39 27 29 20 ┆(P'ZZZZZZZZZ9') ┆
0x657ac…657cc (64, 0, 29) 20 20 20 20 20 20 20 20 20 20 20 20 28 27 20 27 29 20 28 41 28 37 29 29 20 28 57 46 42 52 41 56 ┆ (' ') (A(7)) (WFBRAV┆
0x657cc…657ec 47 20 28 31 29 20 2b 20 57 46 42 52 41 56 47 20 28 32 29 29 20 28 50 27 2d 2d 2d 2d 2d 2d 2d 39 ┆G (1) + WFBRAVG (2)) (P'-------9┆
0x657ec…657fc 56 3a 39 39 27 29 20 20 20 20 20 20 20 20 20 20 ┆V:99') ┆
0x657fc…6581c (64, 0, 30) 20 20 20 20 20 20 20 20 20 20 20 20 28 27 20 27 29 20 28 41 28 32 29 29 20 28 57 46 41 53 54 41 ┆ (' ') (A(2)) (WFASTA┆
0x6581c…6583c 56 47 20 28 31 29 20 2b 20 57 46 41 53 54 41 56 47 20 28 32 29 29 20 28 50 27 2d 2d 2d 2d 2d 2d ┆VG (1) + WFASTAVG (2)) (P'------┆
0x6583c…6584c 2d 39 56 3a 39 39 27 29 20 20 20 20 20 20 20 20 ┆-9V:99') ┆
0x6584c…6586c (64, 0, 31) 20 20 20 20 20 20 20 20 20 20 20 20 28 27 20 27 29 20 28 41 28 32 29 29 20 28 57 53 4b 41 54 54 ┆ (' ') (A(2)) (WSKATT┆
0x6586c…6588c 34 20 28 31 29 20 2b 20 57 53 4b 41 54 54 34 20 28 32 29 29 20 28 50 27 2d 2d 2d 2d 2d 2d 2d 39 ┆4 (1) + WSKATT4 (2)) (P'-------9┆
0x6588c…6589c 56 3a 39 39 27 29 20 20 20 20 20 20 20 20 20 20 ┆V:99') ┆
0x6589c…658bc (64, 0, 32) 20 20 20 20 20 20 20 20 20 20 20 20 28 27 20 27 29 20 28 41 28 32 29 29 20 28 57 53 4b 41 54 54 ┆ (' ') (A(2)) (WSKATT┆
0x658bc…658dc 33 20 28 31 29 20 2b 20 57 53 4b 41 54 54 33 20 28 32 29 29 20 28 50 27 2d 2d 2d 2d 2d 2d 2d 39 ┆3 (1) + WSKATT3 (2)) (P'-------9┆
0x658dc…658ec 56 3a 39 39 27 29 20 20 20 20 20 20 20 20 20 20 ┆V:99') ┆
0x658ec…6590c (64, 0, 33) 20 20 20 20 20 20 20 20 20 20 20 20 28 27 20 27 29 20 28 41 28 32 29 29 20 28 57 53 4b 4f 52 45 ┆ (' ') (A(2)) (WSKORE┆
0x6590c…6592c 53 55 54 4a 20 28 31 29 20 2b 20 57 53 4b 4f 52 45 53 55 54 4a 20 28 32 29 29 20 28 50 27 2d 2d ┆SUTJ (1) + WSKORESUTJ (2)) (P'--┆
0x6592c…6593c 2d 2d 2d 2d 2d 39 56 3a 39 39 27 29 20 20 20 20 ┆-----9V:99') ┆
0x6593c…6595c (64, 0, 34) 20 20 20 20 20 20 20 20 20 20 20 20 28 27 20 27 29 20 28 41 28 32 29 29 20 28 57 53 41 4d 54 4f ┆ (' ') (A(2)) (WSAMTO┆
0x6595c…6597c 54 20 28 31 29 20 2b 20 57 53 41 4d 54 4f 54 20 28 32 29 29 20 28 50 27 2d 2d 2d 2d 2d 2d 2d 39 ┆T (1) + WSAMTOT (2)) (P'-------9┆
0x6597c…6598c 56 3a 39 39 27 29 20 20 20 20 20 20 20 20 20 20 ┆V:99') ┆
0x6598c…659ac (64, 0, 35) 20 20 20 20 20 20 20 20 20 20 20 20 28 27 20 20 27 29 20 28 41 29 20 28 57 41 42 41 4e 54 20 28 ┆ (' ') (A) (WABANT (┆
0x659ac…659cc 31 29 20 2b 20 57 41 42 41 4e 54 20 28 32 29 29 20 28 50 27 5a 5a 5a 5a 39 27 29 3b 20 20 20 20 ┆1) + WABANT (2)) (P'ZZZZ9'); ┆
0x659cc…659dc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x659dc…659fc (64, 0, 36) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 28 34 29 20 45 44 49 54 20 28 27 46 5c 52 44 ┆ PUT SKIP (4) EDIT ('FÖRD┆
0x659fc…65a1c 45 4c 4e 49 4e 47 20 41 56 20 46 5c 52 42 52 55 4b 4e 49 4e 47 41 52 20 50 5d 20 53 4b 41 54 54 ┆ELNING AV FÖRBRUKNINGAR PÅ SKATT┆
0x65a1c…65a2c 45 53 41 54 53 45 52 27 29 20 28 41 29 3b 20 20 ┆ESATSER') (A); ┆
0x65a2c…65a4c (64, 0, 37) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 28 32 29 20 45 44 49 54 20 28 27 53 4b 41 54 ┆ PUT SKIP (2) EDIT ('SKAT┆
0x65a4c…65a6c 54 20 34 20 7c 72 65 2f 6b 57 68 20 27 29 20 28 41 28 33 32 29 29 20 20 20 20 20 20 20 20 20 20 ┆T 4 öre/kWh ') (A(32)) ┆
0x65a6c…65a7c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x65a7c…65a9c (64, 0, 38) 20 20 20 20 20 20 20 20 20 20 20 20 28 57 53 4b 34 46 42 52 20 28 31 29 20 2b 20 57 53 4b 34 46 ┆ (WSK4FBR (1) + WSK4F┆
0x65a9c…65abc 42 52 20 28 32 29 29 20 28 50 27 2d 2d 2d 2d 2d 2d 2d 2d 2d 39 27 29 20 28 27 20 20 6b 57 68 27 ┆BR (2)) (P'---------9') (' kWh'┆
0x65abc…65acc 29 20 28 41 29 3b 20 20 20 20 20 20 20 20 20 20 ┆) (A); ┆
0x65acc…65aec (64, 0, 39) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 28 32 29 20 45 44 49 54 20 28 27 53 4b 41 54 ┆ PUT SKIP (2) EDIT ('SKAT┆
0x65aec…65b0c 54 20 33 20 7c 72 65 2f 6b 57 68 20 27 29 20 28 41 28 33 32 29 29 20 20 20 20 20 20 20 20 20 20 ┆T 3 öre/kWh ') (A(32)) ┆
0x65b0c…65b1c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x65b1c…65b3c (64, 0, 40) 20 20 20 20 20 20 20 20 20 20 20 20 28 57 53 4b 33 46 42 52 20 28 31 29 20 2b 20 57 53 4b 33 46 ┆ (WSK3FBR (1) + WSK3F┆
0x65b3c…65b5c 42 52 20 28 32 29 29 20 28 50 27 2d 2d 2d 2d 2d 2d 2d 2d 2d 39 27 29 20 28 27 20 20 6b 57 68 27 ┆BR (2)) (P'---------9') (' kWh'┆
0x65b5c…65b6c 29 20 28 41 29 3b 20 20 20 20 20 20 20 20 20 20 ┆) (A); ┆
0x65b6c…65b8c (64, 0, 41) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 28 32 29 20 45 44 49 54 20 28 27 53 4b 41 54 ┆ PUT SKIP (2) EDIT ('SKAT┆
0x65b8c…65bac 54 45 46 52 49 20 27 29 20 28 41 28 33 32 29 29 20 28 57 53 4b 30 46 42 52 20 28 31 29 20 2b 20 ┆TEFRI ') (A(32)) (WSK0FBR (1) + ┆
0x65bac…65bbc 57 53 4b 30 46 42 52 20 28 32 29 29 20 20 20 20 ┆WSK0FBR (2)) ┆
0x65bbc…65bdc (64, 0, 42) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 50 27 2d 2d 2d 2d 2d 2d 2d 2d 2d 39 27 29 20 ┆ (P'---------9') ┆
0x65bdc…65bfc 28 27 20 20 6b 57 68 27 29 20 28 41 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆(' kWh') (A); ┆
0x65bfc…65c0c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x65c0c…65c2c (64, 0, 43) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 28 32 29 20 45 44 49 54 20 28 27 53 55 4d 4d ┆ PUT SKIP (2) EDIT ('SUMM┆
0x65c2c…65c4c 41 20 66 7c 72 62 72 75 6b 6e 69 6e 67 20 27 29 20 28 41 28 33 32 29 29 20 20 20 20 20 20 20 20 ┆A förbrukning ') (A(32)) ┆
0x65c4c…65c5c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x65c5c…65c7c (64, 0, 44) 20 20 20 20 20 20 20 20 20 20 20 20 28 57 53 4b 34 46 42 52 20 28 31 29 20 2b 20 57 53 4b 34 46 ┆ (WSK4FBR (1) + WSK4F┆
0x65c7c…65c9c 42 52 20 28 32 29 20 2b 20 57 53 4b 33 46 42 52 20 28 31 29 20 2b 20 57 53 4b 33 46 42 52 20 28 ┆BR (2) + WSK3FBR (1) + WSK3FBR (┆
0x65c9c…65cac 32 29 20 2b 20 57 53 4b 30 46 42 52 20 28 31 29 ┆2) + WSK0FBR (1)┆
0x65cac…65ccc (64, 0, 45) 20 20 20 20 20 20 20 20 20 20 20 20 2b 20 57 53 4b 30 46 42 52 20 28 32 29 29 20 28 50 27 2d 2d ┆ + WSK0FBR (2)) (P'--┆
0x65ccc…65cec 2d 2d 2d 2d 2d 2d 2d 39 27 29 20 28 27 20 20 6b 57 68 27 29 20 28 41 29 3b 20 20 20 20 20 20 20 ┆-------9') (' kWh') (A); ┆
0x65cec…65cfc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x65cfc…65d1c (64, 0, 46) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 28 32 35 29 20 45 44 49 54 20 28 27 20 27 29 ┆ PUT SKIP (25) EDIT (' ')┆
0x65d1c…65d3c 20 28 41 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 ┆ (A); ┆
0x65d3c…65d4c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x65d4c…65d9c (64, 0, 47) 0x00[0x50]
[…0x71…]
0x680ec…6810c (65, 0, 80) 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 ┆ ┆
0x6810c…6812c 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 ┆ ┆
0x6812c…6813c ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ┆ ┆
0x6813c…6823b (66, 0, 0) DataSector[0xff]
[…0xe…]
0x6902d…6912c (66, 0, 15) 0x00[0xff]
[…0xe…]
0x69f1e…69f6d (67, 0, 0) DataSector[0x4f]
[…0x293…]
0x76aca…76b19 (75, 0, 4) 0x20[0x4f]
[…0x2…]
0x76bb7…76bd7 (75, 0, 7) 2f 2a 20 20 20 20 20 20 4b 4f 4d 4d 45 4e 54 41 52 20 2d 20 72 61 64 65 72 65 6e 61 20 20 20 20 ┆/* KOMMENTAR - raderena ┆
0x76bd7…76bf7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x76bf7…76c06 20 20 20 20 20 20 20 20 20 20 20 20 2a 2f 20 ┆ */ ┆
0x76c06…76c55 (75, 0, 8) 0x20[0x4f]
[…0x1…]
0x76ca4…76cc4 (75, 0, 10) 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: ┆
0x76cc4…76ce4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x76ce4…76cf3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x76cf3…76d42 (75, 0, 11) 0x20[0x4f]
0x76d42…76d62 (75, 0, 12) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 28 32 29 20 45 44 49 54 20 28 27 20 20 20 4b ┆ PUT SKIP (2) EDIT (' K┆
0x76d62…76d82 6f 6d 6d 65 6e 74 61 72 65 72 3a 20 20 20 27 29 20 28 41 28 32 30 29 29 3b 20 20 20 20 20 20 20 ┆ommentarer: ') (A(20)); ┆
0x76d82…76d91 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x76d91…76db1 (75, 0, 13) 20 20 20 20 20 20 20 20 50 45 4b 41 52 45 20 3d 20 41 44 44 52 20 28 43 4f 4d 50 4f 53 54 29 3b ┆ PEKARE = ADDR (COMPOST);┆
0x76db1…76dd1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x76dd1…76de0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x76de0…76e00 (75, 0, 14) 20 20 20 20 20 20 20 20 53 54 41 52 54 50 20 3d 20 50 45 4b 41 52 45 20 2b 20 35 20 2d 20 31 30 ┆ STARTP = PEKARE + 5 - 10┆
0x76e00…76e20 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; ┆
0x76e20…76e2f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x76e2f…76e4f (75, 0, 15) 20 20 20 20 20 20 20 20 44 4f 20 49 20 3d 20 31 20 54 4f 20 35 3b 20 20 20 20 20 20 20 20 20 20 ┆ DO I = 1 TO 5; ┆
0x76e4f…76e6f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x76e6f…76e7e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x76e7e…76e9e (75, 0, 16) 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 49 20 3d 20 31 20 54 48 45 4e 20 47 4f 20 54 4f 20 ┆ IF I = 1 THEN GO TO ┆
0x76e9e…76ebe 41 35 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 ┆A510; ┆
0x76ebe…76ecd 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x76ecd…76eed (75, 0, 17) 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 45 44 49 54 20 28 27 20 27 29 20 ┆ PUT SKIP EDIT (' ') ┆
0x76eed…76f0d 28 41 28 32 30 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆(A(20)); ┆
0x76f0d…76f1c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x76f1c…76f3c (75, 0, 18) 41 35 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 ┆A510: ┆
0x76f3c…76f5c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x76f5c…76f6b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x76f6b…76fba (75, 0, 19) 0x00[0x4f]
[…0x3d…]
0x7828d…782ad (75, 0, 81) 00 7f 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 ┆ ┆
0x782ad…782cd 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 ┆ ┆
0x782cd…782dc ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ┆ ┆
0x782dc…7832b (76, 0, 0) 0x00[0x4f]
[…0x50…]
0x79bdb…79bfb (76, 0, 81) 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 ┆ ┆
0x79bfb…79c1b 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 ┆ ┆
0x79c1b…79c2a ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ┆ ┆