|
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…16640 (14, 0, 29) 20 20 20 20 20 20 20 ┆ ┆
0x16640…16660 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 39 39 39 39 39 39 39 ┆ (ABIKTO) (P'99999999999┆
0x16660…1667c 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 27 2d 2d ┆99')(' ')(A(37)) (WTOT)(P'--┆
0x1667c…1fe68 […elided…]
0x1fe68…1fe80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1fe80…1fea0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1fea0…1feab 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…31fe0 (31, 0, 66) 20 20 20 20 20 20 20 20 20 20 20 20 55 44 ┆ UD┆
0x31fe0…32000 4b 56 20 3d 20 27 20 27 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆KV = ' '; ┆
0x32000…32015 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x32015…379fa […elided…]
0x379fa…37a00 20 20 20 20 20 20 ┆ ┆
0x37a00…37a20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x37a20…37a3d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 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]
[…0x32…]
0x46aa2…46ac0 (44, 0, 72) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x46ac0…46ae0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x46ae0…46ae5 00 00 00 00 00 ┆ ┆
0x46ae5…4f58c […elided…]
0x4f58c…4f5a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4f5a0…4f5c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4f5c0…4f5cf 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4f5cf…4f61e (50, 0, 31) 0x20[0x4f]
[…0xa…]
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]
[…0x23…]
0x77a87…77aa0 (75, 0, 55) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x77aa0…77ac0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x77ac0…77aca 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x77aca…78c2a […elided…]
0x78c2a…78c40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x78c40…78c60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x78c60…78c6d 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x78c6d…78cbc (76, 0, 31) 0x00[0x4f]
[…0x31…]
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 ┆ ┆