|
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 - download
Length: 24806 (0x60e6)
Types: Q1_HexDump, reclen=79
Notes: q1file
Names: »Q1«
└─⟦256585323⟧ Bits:30008759 50001598
└─⟦this⟧ »Q1«
0x0000…004f (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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x004f…009e (1,) 2f 2a 20 51 31 20 5b 52 20 45 54 54 20 4d 45 4e 59 50 52 4f 47 52 41 4d 20 53 4f 4d 20 54 41 52 20 49 4e 20 44 41 47 45 4e 53 20 44 41 54 55 4d 20 4f 43 48 20 42 45 4f 52 44 52 41 52 20 49 4e 53 54 5b 4c 4c 4e 49 4e 47 20 41 56 20 20 20 ┆/* Q1 ÄR ETT MENYPROGRAM SOM TAR IN DAGENS DATUM OCH BEORDRAR INSTÄLLNING AV ┆
0x009e…00ed (2,) 54 41 42 55 4c 41 54 4f 52 50 41 50 50 45 52 2e 20 56 41 4c 20 41 56 20 52 55 54 49 4e 20 53 4b 45 52 20 49 20 54 56 5d 20 53 54 45 47 2e 20 48 55 56 55 44 4d 45 4e 59 20 4f 43 48 20 55 4e 44 45 52 4d 45 4e 59 2e 20 20 20 20 20 20 20 20 ┆TABULATORPAPPER. VAL AV RUTIN SKER I TVÅ STEG. HUVUDMENY OCH UNDERMENY. ┆
0x00ed…013c (3,) 50 52 4f 47 52 41 4d 4d 45 54 20 41 44 4d 49 4e 49 53 54 45 52 41 52 20 53 45 44 41 4e 20 55 54 48 4f 50 50 20 54 49 4c 4c 20 42 45 4f 52 44 52 41 54 20 50 52 4f 47 52 41 4d 20 37 38 30 34 30 35 20 45 4a 20 4b 4c 41 52 20 4a 5d 20 2a 2f ┆PROGRAMMET ADMINISTERAR SEDAN UTHOPP TILL BEORDRAT PROGRAM 780405 EJ KLAR JÅ */┆
0x013c…018b (4,) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x018b…01da (5,) 44 43 4c 20 31 20 48 4a 53 54 52 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆DCL 1 HJSTR, ┆
0x01da…0229 (6,) 20 20 20 20 20 20 32 20 56 4e 52 20 46 49 58 45 44 28 37 29 2c 20 20 20 2f 2a 20 53 49 53 54 41 20 46 41 4b 54 55 52 41 4e 52 20 2a 2f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 VNR FIXED(7), /* SISTA FAKTURANR */ ┆
0x0229…0278 (7,) 20 20 20 20 20 20 32 20 56 56 52 20 46 49 58 45 44 28 37 29 2c 20 20 20 2f 2a 20 53 49 53 54 41 20 4f 52 44 45 52 4e 52 20 2a 2f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 VVR FIXED(7), /* SISTA ORDERNR */ ┆
0x0278…02c7 (8,) 20 20 20 20 20 20 32 20 4c 55 46 54 20 43 48 41 52 28 35 32 29 3b 20 20 2f 2a 20 45 4a 20 41 4e 56 5b 4e 44 20 41 52 45 41 20 2a 2f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 LUFT CHAR(52); /* EJ ANVÄND AREA */ ┆
0x02c7…0316 (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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0316…0365 (10,) 20 20 20 20 2f 2a 20 20 36 30 20 42 59 54 45 53 20 20 2a 2f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ /* 60 BYTES */ ┆
0x0365…03b4 (11,) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x03b4…0403 (12,) 44 43 4c 20 31 20 4b 53 54 52 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆DCL 1 KSTR, ┆
0x0403…0452 (13,) 20 20 20 20 20 20 32 20 47 45 4e 20 43 48 41 52 28 34 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 GEN CHAR(4), ┆
0x0452…04a1 (14,) 20 20 20 20 20 20 32 20 54 56 45 43 4b 54 4f 52 28 31 32 29 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 TVECKTOR(12) BINARY, ┆
0x04a1…04f0 (15,) 20 20 20 20 20 20 32 20 41 4e 4d 20 43 48 41 52 28 33 32 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 ANM CHAR(32); ┆
0x04f0…053f (16,) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x053f…058e (17,) 20 20 20 20 2f 2a 20 20 36 30 20 42 59 54 45 53 20 20 2a 2f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ /* 60 BYTES */ ┆
0x058e…05dd (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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
[…0x1…]
0x062c…067b (20,) 44 43 4c 20 4d 54 45 58 28 33 30 29 20 43 48 41 52 28 34 35 29 2c 20 20 2f 2a 20 54 45 58 54 45 52 20 49 20 4d 45 4e 59 45 52 4e 41 20 2a 2f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆DCL MTEX(30) CHAR(45), /* TEXTER I MENYERNA */ ┆
0x067b…06ca (21,) 20 20 20 20 4d 54 41 42 28 30 3a 31 32 2c 31 32 29 20 42 49 4e 41 52 59 2f 2a 20 4d 45 4e 59 54 45 58 54 20 50 45 4b 41 52 45 20 2a 2f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ MTAB(0:12,12) BINARY/* MENYTEXT PEKARE */ ┆
0x06ca…0719 (22,) 20 20 20 20 49 4e 49 54 28 20 33 2c 20 34 2c 31 32 2c 20 38 2c 20 31 2c 20 32 2c 20 30 2c 20 30 2c 20 30 2c 20 31 2c 20 30 2c 20 30 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 20 20 20 20 20 20 20 20 20 20 ┆ INIT( 3, 4,12, 8, 1, 2, 0, 0, 0, 1, 0, 0, ┆
0x0719…0768 (23,) 20 20 20 20 20 20 20 20 20 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 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 20 20 20 20 20 20 20 20 20 20 ┆ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, ┆
0x0768…07b7 (24,) 20 20 20 20 20 20 20 20 20 20 35 2c 20 36 2c 20 37 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 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 20 20 20 20 20 20 20 20 20 20 ┆ 5, 6, 7, 0, 0, 0, 0, 0, 0, 0, 0, 0, ┆
0x07b7…0806 (25,) 20 20 20 20 20 20 20 20 20 31 33 2c 31 34 2c 31 35 2c 31 36 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 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 20 20 20 20 20 20 20 20 20 20 ┆ 13,14,15,16, 0, 0, 0, 0, 0, 0, 0, 0, ┆
0x0806…0855 (26,) 20 20 20 20 20 20 20 20 20 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 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 20 20 20 20 20 20 20 20 20 20 ┆ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, ┆
0x0855…08a4 (27,) 20 20 20 20 20 20 20 20 20 20 39 2c 31 30 2c 31 31 2c 31 37 2c 31 38 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 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 20 20 20 20 20 20 20 20 20 20 ┆ 9,10,11,17,18, 0, 0, 0, 0, 0, 0, 0, ┆
0x08a4…08f3 (28,) 20 20 20 20 20 20 20 20 20 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 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 20 20 20 20 20 20 20 20 20 20 ┆ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, ┆
[…0x5…]
0x0a7e…0acd (34,) 20 20 20 20 20 20 20 20 20 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), ┆
0x0acd…0b1c (35,) 20 20 20 20 53 20 43 48 41 52 28 31 29 2c 20 20 20 20 20 20 20 20 20 20 2f 2a 20 53 4f 52 54 45 52 49 4e 47 53 20 46 4c 41 47 47 41 20 4e 3d 53 4f 52 54 45 52 49 4e 47 20 55 4e 44 45 52 54 52 59 43 4b 53 20 2a 2f 20 20 20 20 20 20 20 20 ┆ S CHAR(1), /* SORTERINGS FLAGGA N=SORTERING UNDERTRYCKS */ ┆
0x0b1c…0b6b (36,) 20 20 20 20 4c 54 45 58 28 31 35 29 20 43 48 41 52 28 32 35 29 2c 20 2f 2a 20 54 45 58 54 53 54 52 5b 4e 47 20 49 20 43 41 4c 4c 20 4c 4f 41 44 20 53 54 59 52 20 53 4f 52 54 20 26 20 48 4f 50 50 20 54 49 4c 4c 20 20 20 20 20 20 20 20 20 ┆ LTEX(15) CHAR(25), /* TEXTSTRÄNG I CALL LOAD STYR SORT & HOPP TILL ┆
0x0b6b…0bba (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 4c 5b 4d 50 4c 49 47 54 20 50 52 4f 47 52 41 4d 20 2a 2f 20 20 20 20 20 20 20 20 20 20 20 20 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ÄMPLIGT PROGRAM */ ┆
0x0bba…0c09 (38,) 20 20 20 20 4c 54 41 42 28 31 32 2c 31 32 29 20 42 49 4e 41 52 59 20 20 2f 2a 20 4c 4f 41 44 54 45 58 54 20 50 45 4b 41 52 45 20 2a 2f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ LTAB(12,12) BINARY /* LOADTEXT PEKARE */ ┆
0x0c09…0c58 (39,) 20 20 20 20 49 4e 49 54 28 20 32 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 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 20 20 20 20 20 20 20 20 20 20 ┆ INIT( 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, ┆
0x0c58…0ca7 (40,) 20 20 20 20 20 20 20 20 20 20 33 2c 20 33 2c 20 33 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 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 20 20 20 20 20 20 20 20 20 20 ┆ 3, 3, 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, ┆
0x0ca7…0cf6 (41,) 20 20 20 20 20 20 20 20 20 20 35 2c 20 36 2c 20 37 2c 20 35 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 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 20 20 20 20 20 20 20 20 20 20 ┆ 5, 6, 7, 5, 0, 0, 0, 0, 0, 0, 0, 0, ┆
0x0cf6…0d45 (42,) 20 20 20 20 20 20 20 20 20 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 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 20 20 20 20 20 20 20 20 20 20 ┆ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, ┆
0x0d45…0d94 (43,) 20 20 20 20 20 20 20 20 20 20 34 2c 20 34 2c 20 34 2c 20 38 2c 20 38 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 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 20 20 20 20 20 20 20 20 20 20 ┆ 4, 4, 4, 8, 8, 0, 0, 0, 0, 0, 0, 0, ┆
0x0d94…0de3 (44,) 20 20 20 20 20 20 20 20 20 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 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 20 20 20 20 20 20 20 20 20 20 ┆ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, ┆
[…0x3…]
0x0ed0…0f1f (48,) 20 20 20 20 20 20 20 20 20 20 31 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 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 20 20 20 20 20 20 20 20 20 20 ┆ 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, ┆
0x0f1f…0f6e (49,) 20 20 20 20 20 20 20 20 20 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 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 20 20 20 20 20 20 20 20 20 20 ┆ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, ┆
0x0f6e…0fbd (50,) 20 20 20 20 20 20 20 20 20 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), ┆
0x0fbd…100c (51,) 20 20 20 20 58 58 20 43 48 41 52 28 32 35 29 2c 20 20 20 20 20 20 20 20 2f 2a 20 54 4f 4d 20 53 54 52 5b 4e 47 20 2a 2f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ XX CHAR(25), /* TOM STRÄNG */ ┆
0x100c…105b (52,) 20 20 20 20 49 20 42 49 4e 41 52 59 2c 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 49 4e 44 45 58 52 45 47 20 2a 2f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ I BINARY, /* INDEXREG */ ┆
0x105b…10aa (53,) 20 20 20 20 53 56 41 52 20 43 48 41 52 28 31 29 2c 20 20 20 20 20 20 20 2f 2a 20 53 56 41 52 53 56 41 52 49 41 42 45 4c 20 2a 2f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ SVAR CHAR(1), /* SVARSVARIABEL */ ┆
0x10aa…10f9 (54,) 20 20 20 20 54 31 20 43 48 41 52 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ T1 CHAR(1), ┆
0x10f9…1148 (55,) 20 20 20 20 54 38 20 43 48 41 52 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ T8 CHAR(8), ┆
0x1148…1197 (56,) 20 20 20 20 4b 46 49 4c 20 46 49 4c 45 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ KFIL FILE, ┆
0x1197…11e6 (57,) 20 20 20 20 4b 38 30 20 46 49 4c 45 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ K80 FILE, ┆
0x11e6…1235 (58,) 20 20 20 20 4b 38 31 20 46 49 4c 45 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ K81 FILE, ┆
0x1235…1284 (59,) 20 20 20 20 4b 39 30 20 46 49 4c 45 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ K90 FILE, ┆
0x1284…12d3 (60,) 20 20 20 20 4b 39 31 20 46 49 4c 45 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ K91 FILE, ┆
0x12d3…1322 (61,) 20 20 20 20 4f 4e 52 43 48 20 43 48 41 52 28 36 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ONRCH CHAR(6), ┆
0x1322…1371 (62,) 20 20 20 20 52 4e 52 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ RNR BINARY, ┆
0x1371…13c0 (63,) 20 20 20 20 4f 4e 52 20 43 48 41 52 28 34 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ONR CHAR(4), ┆
0x13c0…140f (64,) 20 20 20 20 44 41 54 55 4d 20 43 48 41 52 28 36 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ DATUM CHAR(6), ┆
0x140f…145e (65,) 20 20 20 20 50 20 50 4f 49 4e 54 45 52 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ P POINTER, ┆
0x145e…14ad (66,) 20 20 20 20 44 20 42 41 53 45 44 28 50 29 20 43 48 41 52 28 36 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ D BASED(P) CHAR(6), ┆
0x14ad…14fc (67,) 20 20 20 20 50 50 20 50 4f 49 4e 54 45 52 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PP POINTER, ┆
0x14fc…154b (68,) 20 20 20 20 31 20 53 54 52 20 42 41 53 45 44 28 50 50 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 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 STR BASED(PP), ┆
0x154b…159a (69,) 20 20 20 20 20 20 32 20 58 20 43 48 41 52 28 32 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 X CHAR(2), ┆
0x159a…15e9 (70,) 20 20 20 20 20 20 32 20 59 20 43 48 41 52 28 32 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 Y CHAR(2), ┆
0x15e9…1638 (71,) 20 20 20 20 20 20 32 20 46 49 52 4d 41 20 43 48 41 52 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 FIRMA CHAR(1), ┆
0x1638…1687 (72,) 20 20 20 20 20 20 32 20 4f 50 5f 4b 4f 44 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 OP_KOD BINARY, ┆
0x1687…16d6 (73,) 20 20 20 20 20 20 32 20 52 41 44 41 4e 54 20 42 49 4e 41 52 59 20 20 20 20 20 20 20 20 49 4e 49 54 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 RADANT BINARY INIT (1), ┆
0x16d6…1725 (74,) 20 20 20 20 56 45 52 53 49 4f 4e 20 43 48 41 52 28 34 37 29 20 49 4e 49 54 28 27 20 20 51 31 20 56 65 72 73 69 6f 6e 20 31 2e 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 37 39 30 33 32 32 27 29 3b 20 20 ┆ VERSION CHAR(47) INIT(' Q1 Version 1.2 790322'); ┆
0x1725…1774 (75,) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
[…0x1…]
0x17c3…1812 (77,) 54 45 53 54 3a 50 52 4f 43 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆TEST:PROC; ┆
0x1812…1861 (78,) 44 43 4c 20 50 54 45 53 54 20 50 4f 49 4e 54 45 52 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆DCL PTEST POINTER, ┆
0x1861…18b0 (79,) 20 20 20 20 43 48 20 42 41 53 45 44 28 50 54 45 53 54 29 20 43 48 41 52 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ CH BASED(PTEST) CHAR(1), ┆
0x18b0…18ff (80,) 20 20 20 20 50 54 41 4e 20 50 4f 49 4e 54 45 52 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PTAN POINTER, ┆
0x18ff…194e (81,) 20 20 20 20 43 48 31 20 42 41 53 45 44 28 50 54 41 4e 29 20 43 48 41 52 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ CH1 BASED(PTAN) CHAR(1), ┆
0x194e…199d (82,) 20 20 20 20 41 4e 54 41 4c 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ANTAL BINARY; ┆
0x199d…19ec (83,) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19ec…1a3b (84,) 20 20 20 41 4e 54 41 4c 3d 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ANTAL=0; ┆
0x1a3b…1a8a (85,) 20 20 20 55 4e 53 50 45 43 28 50 54 45 53 54 29 3d 31 36 35 33 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ UNSPEC(PTEST)=16533; ┆
0x1a8a…1ad9 (86,) 20 20 20 55 4e 53 50 45 43 28 50 54 41 4e 29 3d 31 36 35 33 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ UNSPEC(PTAN)=16536; ┆
0x1ad9…1b28 (87,) 20 20 20 50 55 54 20 46 49 4c 45 28 44 29 20 53 4b 49 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PUT FILE(D) SKIP; ┆
0x1b28…1b77 (88,) 52 3a 20 50 55 54 20 46 49 4c 45 28 44 29 20 45 44 49 54 28 27 20 20 56 45 4d 20 5b 52 20 4f 50 45 52 41 54 5c 52 3a 27 29 28 41 28 34 31 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆R: PUT FILE(D) EDIT(' VEM ÄR OPERATÖR:')(A(41)); ┆
0x1b77…1bc6 (89,) 20 20 20 43 41 4c 4c 20 43 4f 52 45 44 28 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ CALL CORED(0); ┆
0x1bc6…1c15 (90,) 20 20 20 49 3d 31 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ I=1; ┆
0x1c15…1c64 (91,) 52 31 3a 49 46 20 43 48 7f 3d 27 00 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆R1:IF CH =' ' THEN DO; ┆
0x1c64…1cb3 (92,) 20 20 20 20 20 20 49 46 20 43 48 31 7f 3d 27 00 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF CH1 =' ' THEN DO; ┆
0x1cb3…1d02 (93,) 20 20 20 20 20 20 20 20 20 43 41 4c 4c 20 4f 55 54 50 55 54 28 31 2c 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ CALL OUTPUT(1,6); ┆
0x1d02…1d51 (94,) 20 20 20 20 20 20 20 20 20 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 4f 4e 52 43 48 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GET SKIP LIST(ONRCH); ┆
0x1d51…1da0 (95,) 20 20 20 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 28 44 29 20 53 4b 49 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PUT FILE(D) SKIP; ┆
0x1da0…1def (96,) 20 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GO TO R; ┆
0x1def…1e3e (97,) 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 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; ┆
0x1e3e…1e8d (98,) 20 20 20 20 20 20 43 41 4c 4c 20 54 59 50 49 53 54 28 27 0d 27 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ CALL TYPIST(' ',1); ┆
0x1e8d…1edc (99,) 20 20 20 20 20 20 47 4f 20 54 4f 20 52 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GO TO R2; ┆
0x1edc…1f2b (100,) 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 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; ┆
0x1f2b…1f7a (101,) 20 20 20 45 4c 53 45 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ELSE DO; ┆
0x1f7a…1fc9 (102,) 20 20 20 20 20 20 43 41 4c 4c 20 43 4c 45 45 52 28 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ CALL CLEER(1); ┆
0x1fc9…2018 (103,) 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 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; ┆
0x2018…2067 (104,) 20 20 20 47 4f 20 54 4f 20 52 31 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GO TO R1; ┆
0x2067…20b6 (105,) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x20b6…2105 (106,) 52 32 3a 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 53 55 42 53 54 52 28 4f 4e 52 43 48 2c 49 2c 31 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆R2:GET SKIP LIST(SUBSTR(ONRCH,I,1)); ┆
0x2105…2154 (107,) 20 20 20 49 3d 49 2b 31 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ I=I+1; ┆
0x2154…21a3 (108,) 20 20 20 49 46 20 49 3c 37 20 54 48 45 4e 20 47 4f 20 54 4f 20 52 31 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF I<7 THEN GO TO R1; ┆
0x21a3…21f2 (109,) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x21f2…2241 (110,) 20 20 20 4f 4e 52 3d 53 55 42 53 54 52 28 4f 4e 52 43 48 2c 33 2c 34 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ONR=SUBSTR(ONRCH,3,4); ┆
0x2241…2290 (111,) 20 20 20 52 4e 52 3d 53 55 42 53 54 52 28 4f 4e 52 43 48 2c 31 2c 32 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ RNR=SUBSTR(ONRCH,1,2); ┆
0x2290…22df (112,) 20 20 20 49 46 20 52 4e 52 3e 35 30 20 7c 20 52 4e 52 3c 31 20 54 48 45 4e 20 47 4f 20 54 4f 20 46 45 4c 31 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF RNR>50 ö RNR<1 THEN GO TO FEL1; ┆
0x22df…232e (113,) 20 20 20 4f 50 45 4e 20 4b 46 49 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ OPEN KFIL; ┆
0x232e…237d (114,) 20 20 20 55 4e 53 50 45 43 28 4b 46 49 4c 29 3d 52 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ UNSPEC(KFIL)=RNR; ┆
0x237d…23cc (115,) 20 20 20 52 45 41 44 20 46 49 4c 45 28 4b 46 49 4c 29 20 49 4e 54 4f 28 4b 53 54 52 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ READ FILE(KFIL) INTO(KSTR); ┆
0x23cc…241b (116,) 20 20 20 49 46 20 4f 4e 52 7f 3d 47 45 4e 20 54 48 45 4e 20 47 4f 20 54 4f 20 46 45 4c 31 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF ONR =GEN THEN GO TO FEL1; ┆
0x241b…246a (117,) 20 20 20 52 45 54 55 52 4e 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ RETURN; ┆
0x246a…24b9 (118,) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x24b9…2508 (119,) 46 45 4c 31 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆FEL1: ┆
0x2508…2557 (120,) 20 20 20 50 55 54 20 46 49 4c 45 28 44 29 20 45 44 49 54 28 4f 4e 52 43 48 29 28 41 28 36 29 29 28 27 20 20 4f 50 45 52 41 54 5c 52 53 4b 4f 44 45 4e 20 5b 52 20 49 4e 54 45 20 47 4f 44 4b 5b 4e 44 27 29 28 41 28 34 37 29 29 20 20 20 20 ┆ PUT FILE(D) EDIT(ONRCH)(A(6))(' OPERATÖRSKODEN ÄR INTE GODKÄND')(A(47)) ┆
0x2557…25a6 (121,) 20 20 20 28 27 20 20 56 41 52 20 47 4f 44 20 52 45 47 49 53 54 52 45 52 41 20 4e 59 20 4b 4f 44 27 29 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 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ (' VAR GOD REGISTRERA NY KOD')(A); ┆
0x25a6…25f5 (122,) 20 20 20 4a 4a 3d 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ JJ=0; ┆
0x25f5…2644 (123,) 20 20 20 43 41 4c 4c 20 4d 4f 56 45 42 55 46 46 28 4a 4a 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ CALL MOVEBUFF(JJ); ┆
0x2644…2693 (124,) 20 20 20 41 4e 54 41 4c 3d 41 4e 54 41 4c 2b 31 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ANTAL=ANTAL+1; ┆
0x2693…26e2 (125,) 20 20 20 49 46 20 41 4e 54 41 4c 3d 33 20 54 48 45 4e 20 44 4f 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF ANTAL=3 THEN DO; ┆
0x26e2…2731 (126,) 20 20 20 20 20 20 43 41 4c 4c 20 43 4f 52 45 44 28 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ CALL CORED(0); ┆
0x2731…2780 (127,) 52 33 3a 20 20 20 43 41 4c 4c 20 4f 55 54 50 55 54 28 31 2c 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆R3: CALL OUTPUT(1,6); ┆
0x2780…27cf (128,) 20 20 20 20 20 20 44 4f 20 49 3d 31 20 54 4f 20 33 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 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 I=1 TO 300; ┆
0x27cf…281e (129,) 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 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; ┆
0x281e…286d (130,) 20 20 20 20 20 20 47 4f 20 54 4f 20 52 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GO TO R3; ┆
0x286d…28bc (131,) 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 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; ┆
0x28bc…290b (132,) 20 20 20 47 4f 20 54 4f 20 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GO TO R; ┆
0x290b…295a (133,) 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 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; ┆
0x295a…29a9 (134,) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
[…0x2…]
0x2a47…2a96 (137,) 58 58 3d 27 20 20 20 20 20 20 20 20 20 20 20 20 20 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆XX=' '; ┆
0x2a96…2ae5 (138,) 4d 54 45 58 28 31 29 3d 27 31 30 20 3d 20 4f 50 45 52 41 54 5c 52 53 2d 49 44 20 50 41 52 41 4d 45 54 52 41 52 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 20 20 20 20 20 20 20 20 20 20 ┆MTEX(1)='10 = OPERATÖRS-ID PARAMETRAR'; ┆
0x2ae5…2b34 (139,) 4d 54 45 58 28 32 29 3d 27 53 20 20 3d 20 53 4c 55 54 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆MTEX(2)='S = SLUT'; ┆
0x2b34…2b83 (140,) 4d 54 45 58 28 33 29 3d 27 31 20 20 3d 20 56 45 52 49 46 49 4b 41 54 49 4f 4e 53 52 45 47 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆MTEX(3)='1 = VERIFIKATIONSREG'; ┆
0x2b83…2bd2 (141,) 4d 54 45 58 28 34 29 3d 27 32 20 20 3d 20 5b 4e 44 52 49 4e 47 20 4b 4f 4e 54 4f 54 41 42 45 4c 4c 45 52 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 20 20 20 20 20 20 20 20 20 20 20 20 ┆MTEX(4)='2 = ÄNDRING KONTOTABELLER'; ┆
0x2bd2…2c21 (142,) 4d 54 45 58 28 35 29 3d 27 31 20 3d 20 4b 4f 4e 54 4f 54 41 42 45 4c 4c 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆MTEX(5)='1 = KONTOTABELL'; ┆
0x2c21…2c70 (143,) 4d 54 45 58 28 36 29 3d 27 32 20 3d 20 55 4e 44 45 52 4b 4f 4e 54 4f 54 41 42 45 4c 4c 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆MTEX(6)='2 = UNDERKONTOTABELL'; ┆
0x2c70…2cbf (144,) 4d 54 45 58 28 37 29 3d 27 33 20 3d 20 49 2d 4b 2d 53 4c 41 47 53 54 41 42 45 4c 4c 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆MTEX(7)='3 = I-K-SLAGSTABELL'; ┆
0x2cbf…2d0e (145,) 4d 54 45 58 28 38 29 3d 27 35 20 20 3d 20 42 45 53 54 5b 4c 4c 4e 49 4e 47 2d 42 45 41 52 42 45 54 4e 49 4e 47 20 4c 49 53 54 4f 52 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 20 20 20 ┆MTEX(8)='5 = BESTÄLLNING-BEARBETNING LISTOR'; ┆
0x2d0e…2d5d (146,) 4d 54 45 58 28 39 29 3d 27 31 20 3d 20 4b 4f 4e 54 4f 50 4c 41 4e 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆MTEX(9)='1 = KONTOPLAN'; ┆
0x2d5d…2dac (147,) 4d 54 45 58 28 31 30 29 3d 27 32 20 3d 20 55 2d 4b 4f 4e 54 4f 54 41 42 45 4c 4c 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆MTEX(10)='2 = U-KONTOTABELL'; ┆
0x2dac…2dfb (148,) 4d 54 45 58 28 31 31 29 3d 27 33 20 3d 20 49 2d 4b 2d 53 4c 41 47 53 54 41 42 45 4c 4c 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆MTEX(11)='3 = I-K-SLAGSTABELL'; ┆
0x2dfb…2e4a (149,) 4d 54 45 58 28 31 32 29 3d 27 33 20 20 3d 20 44 41 47 4c 49 47 20 42 45 41 52 42 45 54 4e 49 4e 47 20 42 41 54 43 48 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 20 20 20 20 20 20 20 20 ┆MTEX(12)='3 = DAGLIG BEARBETNING BATCH'; ┆
0x2e4a…2e99 (150,) 4d 54 45 58 28 31 33 29 3d 27 31 20 3d 20 55 50 50 44 41 54 20 41 56 20 52 45 47 49 53 54 45 52 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆MTEX(13)='1 = UPPDAT AV REGISTER'; ┆
0x2e99…2ee8 (151,) 4d 54 45 58 28 31 34 29 3d 27 32 20 3d 20 56 45 52 49 46 49 4b 41 54 49 4f 4e 53 46 5c 52 54 2e 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆MTEX(14)='2 = VERIFIKATIONSFÖRT.'; ┆
0x2ee8…2f37 (152,) 4d 54 45 58 28 31 35 29 3d 27 33 20 3d 20 41 56 53 54 5b 4d 4e 49 4e 47 53 4c 49 53 54 20 46 5c 52 20 56 45 52 2e 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 20 20 20 20 20 20 20 20 20 ┆MTEX(15)='3 = AVSTÄMNINGSLIST FÖR VER.'; ┆
0x2f37…2f86 (153,) 4d 54 45 58 28 31 36 29 3d 27 34 20 3d 20 4b 4f 4e 54 4f 4b 4f 4e 54 52 4f 4c 4c 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆MTEX(16)='4 = KONTOKONTROLL'; ┆
0x2f86…2fd5 (154,) 4d 54 45 58 28 31 37 29 3d 27 34 20 3d 20 4b 4f 4e 54 4f 55 54 44 52 41 47 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆MTEX(17)='4 = KONTOUTDRAG'; ┆
0x2fd5…3024 (155,) 4d 54 45 58 28 31 38 29 3d 27 35 20 3d 20 53 41 4c 44 4f 4c 49 53 54 41 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆MTEX(18)='5 = SALDOLISTA'; ┆
0x3024…3073 (156,) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
[…0x4…]
0x31af…31fe (161,) 4c 54 45 58 28 31 29 3d 27 56 31 20 20 20 20 20 20 27 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆LTEX(1)='V1 '; ┆
0x31fe…324d (162,) 4c 54 45 58 28 32 29 3d 27 56 32 20 20 20 20 20 20 27 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆LTEX(2)='V2 '; ┆
0x324d…329c (163,) 4c 54 45 58 28 33 29 3d 27 56 33 20 20 20 20 20 20 27 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆LTEX(3)='V3 '; ┆
0x329c…32eb (164,) 4c 54 45 58 28 34 29 3d 27 56 34 20 20 20 20 20 20 27 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆LTEX(4)='V4 '; ┆
0x32eb…333a (165,) 4c 54 45 58 28 35 29 3d 27 56 35 20 20 20 20 20 20 27 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆LTEX(5)='V5 '; ┆
0x333a…3389 (166,) 4c 54 45 58 28 36 29 3d 27 56 38 20 20 20 20 20 20 27 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆LTEX(6)='V8 '; ┆
0x3389…33d8 (167,) 4c 54 45 58 28 37 29 3d 27 56 39 20 20 20 20 20 20 27 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆LTEX(7)='V9 '; ┆
0x33d8…3427 (168,) 4c 54 45 58 28 38 29 3d 27 56 31 30 20 20 20 20 20 27 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆LTEX(8)='V10 '; ┆
0x3427…3476 (169,) 4c 54 45 58 28 39 29 3d 27 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆LTEX(9)=''; ┆
0x3476…34c5 (170,) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
[…0x5…]
0x3650…369f (176,) 2f 2a 20 20 48 20 5b 20 52 20 20 20 42 20 5c 20 52 20 4a 20 41 20 52 20 20 20 48 20 55 20 56 20 55 20 44 20 50 20 52 20 4f 20 47 20 52 20 41 20 4d 20 4d 20 45 20 54 20 20 2a 2f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆/* H Ä R B Ö R J A R H U V U D P R O G R A M M E T */ ┆
0x369f…36ee (177,) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
[…0x1…]
0x373d…378c (179,) 20 20 20 55 4e 53 50 45 43 28 50 29 3d 31 36 35 37 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ UNSPEC(P)=16570; ┆
0x378c…37db (180,) 20 20 20 55 4e 53 50 45 43 28 50 50 29 3d 31 36 36 31 36 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ UNSPEC(PP)=16616; ┆
0x37db…382a (181,) 20 20 20 53 3d 27 4e 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ S='N'; ┆
0x382a…3879 (182,) 53 54 41 52 54 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆START: ┆
0x3879…38c8 (183,) 20 20 20 43 41 4c 4c 20 44 41 54 43 48 45 43 4b 28 44 41 54 55 4d 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ CALL DATCHECK(DATUM); ┆
0x38c8…3917 (184,) 20 20 20 49 46 20 44 41 54 55 4d 3d 27 30 20 20 20 20 20 27 20 54 48 45 4e 20 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF DATUM='0 ' THEN DO; ┆
0x3917…3966 (185,) 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 28 44 29 20 53 4b 49 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PUT FILE(D) SKIP; ┆
0x3966…39b5 (186,) 4c 30 31 3a 20 20 50 55 54 20 46 49 4c 45 28 44 29 20 45 44 49 54 28 27 20 20 20 20 20 20 20 20 20 20 20 20 51 31 2f 4c 49 54 45 20 61 74 20 79 6f 75 72 20 73 65 72 76 69 63 65 27 29 28 41 28 38 32 29 29 20 20 20 20 20 20 20 20 20 20 20 ┆L01: PUT FILE(D) EDIT(' Q1/LITE at your service')(A(82)) ┆
0x39b5…3a04 (187,) 20 20 20 20 20 20 28 27 64 61 74 75 6d 3a 27 29 28 41 28 36 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ('datum:')(A(6)); ┆
0x3a04…3a53 (188,) 20 20 20 20 20 20 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 44 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GET SKIP LIST(D); ┆
0x3a53…3aa2 (189,) 20 20 20 20 20 20 49 46 20 44 3d 27 20 20 20 20 20 20 27 20 54 48 45 4e 20 47 4f 20 54 4f 20 53 4c 55 54 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF D=' ' THEN GO TO SLUT; ┆
0x3aa2…3af1 (190,) 20 20 20 20 20 20 43 41 4c 4c 20 44 41 54 43 48 45 43 4b 28 44 41 54 55 4d 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ CALL DATCHECK(DATUM); ┆
0x3af1…3b40 (191,) 20 20 20 20 20 20 49 46 20 44 41 54 55 4d 3d 27 30 20 20 20 20 20 27 20 54 48 45 4e 20 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF DATUM='0 ' THEN DO; ┆
0x3b40…3b8f (192,) 20 20 20 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 28 44 29 20 45 44 49 54 28 27 20 20 20 20 20 20 20 20 41 4e 47 49 56 45 54 20 44 41 54 55 4d 20 27 29 28 41 29 28 44 29 28 41 28 37 29 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PUT FILE(D) EDIT(' ANGIVET DATUM ')(A)(D)(A(7)) ┆
0x3b8f…3bde (193,) 20 20 20 20 20 20 20 20 20 28 27 47 4f 44 4b 5b 4e 4e 45 53 20 45 4a 2e 27 29 28 41 28 32 34 29 29 28 27 20 20 56 41 52 20 47 4f 44 20 52 45 47 49 53 54 52 45 52 41 20 4e 59 54 54 20 44 41 54 55 4d 2e 27 29 28 41 28 31 32 30 29 29 20 20 ┆ ('GODKÄNNES EJ.')(A(24))(' VAR GOD REGISTRERA NYTT DATUM.')(A(120)) ┆
0x3bde…3c2d (194,) 20 20 20 20 20 20 20 20 20 28 58 58 29 28 41 28 31 32 30 29 29 28 58 58 29 28 41 28 31 31 35 29 29 28 58 58 29 28 41 28 36 38 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 20 20 20 20 20 ┆ (XX)(A(120))(XX)(A(115))(XX)(A(68)); ┆
0x3c2d…3c7c (195,) 20 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 4c 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GO TO L01; ┆
0x3c7c…3ccb (196,) 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 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; ┆
0x3ccb…3d1a (197,) 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 28 44 29 20 53 4b 49 50 20 45 44 49 54 28 56 45 52 53 49 4f 4e 29 28 41 28 39 36 29 29 28 27 5b 52 20 44 41 54 55 4d 27 29 28 41 28 39 29 29 28 44 41 54 55 4d 29 28 41 28 37 29 29 20 20 20 20 20 ┆ PUT FILE(D) SKIP EDIT(VERSION)(A(96))('ÄR DATUM')(A(9))(DATUM)(A(7)) ┆
0x3d1a…3d69 (198,) 20 20 20 20 20 20 28 27 52 5b 54 54 20 55 50 50 46 41 54 54 41 54 3f 20 22 4a 22 20 45 4c 4c 45 52 20 22 4e 22 27 29 28 41 28 37 38 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 20 20 20 ┆ ('RÄTT UPPFATTAT? "J" ELLER "N"')(A(78)); ┆
0x3d69…3db8 (199,) 20 20 20 20 20 20 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 53 56 41 52 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GET SKIP LIST(SVAR); ┆
0x3db8…3e07 (200,) 20 20 20 20 20 20 49 46 20 53 56 41 52 7f 3d 27 4a 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF SVAR ='J' THEN DO; ┆
0x3e07…3e56 (201,) 20 20 20 20 20 20 20 20 20 4a 3d 38 38 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ J=88; ┆
0x3e56…3ea5 (202,) 20 20 20 20 20 20 20 20 20 43 41 4c 4c 20 4d 4f 56 45 42 55 46 46 28 4a 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ CALL MOVEBUFF(J); ┆
0x3ea5…3ef4 (203,) 20 20 20 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 28 44 29 20 45 44 49 54 28 27 20 20 20 20 20 20 20 20 56 41 52 20 47 4f 44 20 52 45 47 49 53 54 52 45 52 41 20 4e 59 54 54 20 44 41 54 55 4d 2e 27 29 28 41 28 31 32 30 29 29 20 20 20 20 ┆ PUT FILE(D) EDIT(' VAR GOD REGISTRERA NYTT DATUM.')(A(120)) ┆
0x3ef4…3f43 (204,) 20 20 20 20 20 20 20 20 20 28 58 58 29 28 41 28 31 32 30 29 29 28 58 58 29 28 41 28 31 31 35 29 29 28 58 58 29 28 41 28 31 32 31 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ (XX)(A(120))(XX)(A(115))(XX)(A(121)); ┆
0x3f43…3f92 (205,) 20 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 4c 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GO TO L01; ┆
0x3f92…3fe1 (206,) 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 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; ┆
0x3fe1…4030 (207,) 20 20 20 20 20 20 43 41 4c 4c 20 54 45 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ CALL TEST; ┆
0x4030…407f (208,) 20 20 20 20 20 20 4f 50 5f 4b 4f 44 3d 52 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ OP_KOD=RNR; ┆
0x407f…40ce (209,) 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 20 28 44 29 20 53 4b 49 50 20 45 44 49 54 20 56 45 52 53 49 4f 4e 20 28 41 28 34 39 29 29 20 28 27 20 41 6e 74 61 6c 20 72 61 64 65 72 20 70 7d 20 62 6c 61 6e 6b 65 74 74 65 6e 20 27 29 20 20 20 ┆ PUT FILE (D) SKIP EDIT VERSION (A(49)) (' Antal rader på blanketten ') ┆
0x40ce…411d (210,) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 41 28 34 33 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ (A(43)); ┆
0x411d…416c (211,) 4c 30 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆L02: ┆
0x416c…41bb (212,) 20 20 20 20 20 20 47 45 54 20 53 4b 49 50 20 4c 49 53 54 20 28 52 41 44 41 4e 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GET SKIP LIST (RADANT); ┆
0x41bb…420a (213,) 20 20 20 20 20 20 49 46 20 52 41 44 41 4e 54 20 3c 20 32 20 20 54 48 45 4e 20 52 41 44 41 4e 54 20 3d 20 35 31 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF RADANT < 2 THEN RADANT = 51; ┆
0x420a…4259 (214,) 20 20 20 20 20 20 49 46 20 52 41 44 41 4e 54 20 3c 20 33 30 20 7c 20 52 41 44 41 4e 54 20 3e 20 38 30 20 54 48 45 4e 20 47 4f 20 54 4f 20 4c 30 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 20 ┆ IF RADANT < 30 ö RADANT > 80 THEN GO TO L02; ┆
0x4259…42a8 (215,) 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 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; ┆
0x42a8…42f7 (216,) 20 20 20 45 4c 53 45 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ELSE DO; ┆
0x42f7…4346 (217,) 20 20 20 20 20 20 4f 50 45 4e 20 4b 46 49 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ OPEN KFIL; ┆
0x4346…4395 (218,) 20 20 20 20 20 20 55 4e 53 50 45 43 28 4b 46 49 4c 29 3d 4f 50 5f 4b 4f 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ UNSPEC(KFIL)=OP_KOD; ┆
0x4395…43e4 (219,) 20 20 20 20 20 20 4f 4e 20 45 52 52 4f 52 20 47 4f 20 54 4f 20 4c 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ON ERROR GO TO L00; ┆
0x43e4…4433 (220,) 20 20 20 20 20 20 52 45 41 44 20 46 49 4c 45 28 4b 46 49 4c 29 20 49 4e 54 4f 28 4b 53 54 52 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ READ FILE(KFIL) INTO(KSTR); ┆
0x4433…4482 (221,) 20 20 20 20 20 20 47 4f 20 54 4f 20 4c 30 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GO TO L001; ┆
0x4482…44d1 (222,) 4c 30 30 3a 20 20 43 41 4c 4c 20 54 45 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆L00: CALL TEST; ┆
0x44d1…4520 (223,) 20 20 20 20 20 20 4f 50 5f 4b 4f 44 3d 52 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ OP_KOD=RNR; ┆
0x4520…456f (224,) 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 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; ┆
0x456f…45be (225,) 4c 30 30 31 3a 44 3d 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆L001:D='0'; ┆
0x45be…460d (226,) 4c 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆L0: ┆
0x460d…465c (227,) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x465c…46ab (228,) 20 20 20 58 3d 27 30 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ X='0 '; ┆
0x46ab…46fa (229,) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x46fa…4749 (230,) 4c 34 3a 50 55 54 20 46 49 4c 45 28 44 29 20 53 4b 49 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆L4:PUT FILE(D) SKIP; ┆
0x4749…4798 (231,) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4798…47e7 (232,) 20 20 20 44 4f 20 49 3d 31 20 54 4f 20 31 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 20 20 20 20 20 20 20 20 20 20 20 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 I=1 TO 12; ┆
0x47e7…4836 (233,) 20 20 20 20 20 49 46 20 4d 54 41 42 28 58 2c 49 29 3d 30 20 54 48 45 4e 20 47 4f 20 54 4f 20 4c 35 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF MTAB(X,I)=0 THEN GO TO L5; ┆
0x4836…4885 (234,) 20 20 20 20 20 50 55 54 20 46 49 4c 45 28 44 29 20 45 44 49 54 28 4d 54 45 58 28 4d 54 41 42 28 58 2c 49 29 29 29 28 41 28 34 37 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 20 20 20 20 ┆ PUT FILE(D) EDIT(MTEX(MTAB(X,I)))(A(47)); ┆
0x4885…48d4 (235,) 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 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; ┆
0x48d4…4923 (236,) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4923…4972 (237,) 4c 35 3a 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 59 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆L5:GET SKIP LIST(Y); ┆
0x4972…49c1 (238,) 20 20 20 49 46 20 59 3d 27 53 20 27 20 54 48 45 4e 20 47 4f 20 54 4f 20 53 54 41 52 54 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF Y='S ' THEN GO TO START; ┆
0x49c1…4a10 (239,) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4a10…4a5f (240,) 20 20 20 49 46 20 49 4e 44 45 58 28 27 31 20 3b 32 20 3b 33 20 3b 34 20 3b 35 20 3b 36 20 3b 37 20 3b 38 20 3b 39 20 3b 31 30 3b 31 31 3b 31 32 27 2c 59 29 3d 30 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 ┆ IF INDEX('1 ;2 ;3 ;4 ;5 ;6 ;7 ;8 ;9 ;10;11;12',Y)=0 THEN DO; ┆
0x4a5f…4aae (241,) 20 20 20 20 20 49 46 20 58 3d 27 30 20 27 20 54 48 45 4e 20 47 4f 20 54 4f 20 4c 35 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF X='0 ' THEN GO TO L5; ┆
0x4aae…4afd (242,) 20 20 20 20 20 47 4f 20 54 4f 20 4c 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GO TO L0; ┆
0x4afd…4b4c (243,) 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 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; ┆
0x4b4c…4b9b (244,) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4b9b…4bea (245,) 20 20 20 49 46 20 58 3d 27 30 20 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF X='0 ' THEN DO; ┆
0x4bea…4c39 (246,) 20 20 20 20 20 49 46 20 4d 54 41 42 28 30 2c 59 29 3d 30 20 54 48 45 4e 20 47 4f 20 54 4f 20 4c 35 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF MTAB(0,Y)=0 THEN GO TO L5; ┆
0x4c39…4c88 (247,) 20 20 20 20 20 58 3d 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ X=Y; ┆
0x4c88…4cd7 (248,) 20 20 20 20 20 49 46 20 4d 54 41 42 28 58 2c 31 29 3d 30 20 54 48 45 4e 20 44 4f 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF MTAB(X,1)=0 THEN DO; ┆
0x4cd7…4d26 (249,) 20 20 20 20 20 20 20 59 3d 27 31 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ Y='1 '; ┆
0x4d26…4d75 (250,) 20 20 20 20 20 20 20 47 4f 20 54 4f 20 4c 33 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GO TO L3; ┆
0x4d75…4dc4 (251,) 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 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; ┆
0x4dc4…4e13 (252,) 20 20 20 20 20 47 4f 20 54 4f 20 4c 34 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GO TO L4; ┆
0x4e13…4e62 (253,) 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 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; ┆
0x4e62…4eb1 (254,) 20 20 20 45 4c 53 45 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ELSE DO; ┆
0x4eb1…4f00 (255,) 20 20 20 20 20 49 46 20 4d 54 41 42 28 58 2c 59 29 3d 30 20 54 48 45 4e 20 47 4f 20 54 4f 20 4c 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF MTAB(X,Y)=0 THEN GO TO L0; ┆
0x4f00…4f4f (256,) 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 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; ┆
0x4f4f…4f9e (257,) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4f9e…4fed (258,) 4c 33 3a 4a 3d 31 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆L3:J=1; ┆
0x4fed…503c (259,) 20 20 20 44 4f 20 49 3d 32 20 54 4f 20 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 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 I=2 TO Y; ┆
0x503c…508b (260,) 20 20 20 20 20 20 4a 3d 4a 2a 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ J=J*2; ┆
0x508b…50da (261,) 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 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; ┆
0x50da…5129 (262,) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x5129…5178 (263,) 20 20 20 49 46 20 28 54 56 45 43 4b 54 4f 52 28 58 29 20 26 20 4a 29 20 3d 30 20 54 48 45 4e 20 44 4f 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF (TVECKTOR(X) & J) =0 THEN DO; ┆
0x5178…51c7 (264,) 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 28 44 29 20 53 4b 49 50 20 45 44 49 54 28 27 20 20 4f 50 45 52 41 54 5c 52 45 4e 20 4f 42 45 48 5c 52 49 47 27 29 28 41 28 34 39 29 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PUT FILE(D) SKIP EDIT(' OPERATÖREN OBEHÖRIG')(A(49)) ┆
0x51c7…5216 (265,) 20 20 20 20 20 20 28 27 54 52 59 43 4b 20 22 52 45 54 55 52 4e 22 20 46 5c 52 20 4e 59 54 54 20 52 55 54 49 4e 56 41 4c 27 29 28 41 28 34 35 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 ┆ ('TRYCK "RETURN" FÖR NYTT RUTINVAL')(A(45)); ┆
0x5216…5265 (266,) 20 20 20 20 20 20 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 53 56 41 52 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GET SKIP LIST(SVAR); ┆
0x5265…52b4 (267,) 20 20 20 20 20 20 47 4f 20 54 4f 20 4c 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GO TO L0; ┆
0x52b4…5303 (268,) 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 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; ┆
0x5303…5352 (269,) 20 20 20 49 46 20 58 7f 3d 27 31 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF X ='10' THEN DO; ┆
0x5352…53a1 (270,) 4c 36 3a 20 20 20 50 55 54 20 46 49 4c 45 28 44 29 20 53 4b 49 50 20 45 44 49 54 28 27 20 20 56 49 4c 4b 45 54 20 46 5c 52 45 54 41 47 20 53 4b 41 4c 4c 20 42 45 41 52 42 45 54 41 53 27 29 28 41 28 34 39 29 29 20 20 20 20 20 20 20 20 20 ┆L6: PUT FILE(D) SKIP EDIT(' VILKET FÖRETAG SKALL BEARBETAS')(A(49)) ┆
0x53a1…53f0 (271,) 20 20 20 20 20 20 28 27 38 20 3d 20 4b 56 56 20 2c 20 4b 57 41 52 4f 53 27 29 28 41 28 34 37 29 29 28 27 39 20 3d 20 41 52 4f 53 4b 52 41 46 54 27 29 28 41 28 34 37 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ('8 = KVV , KWAROS')(A(47))('9 = AROSKRAFT')(A(47)); ┆
0x53f0…543f (272,) 4c 36 35 3a 20 20 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 46 49 52 4d 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆L65: GET SKIP LIST(FIRMA); ┆
0x543f…548e (273,) 20 20 20 20 20 20 49 46 20 28 46 49 52 4d 41 7f 3d 27 38 27 29 20 26 20 28 46 49 52 4d 41 7f 3d 27 39 27 29 20 54 48 45 4e 20 44 4f 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF (FIRMA ='8') & (FIRMA ='9') THEN DO; ┆
0x548e…54dd (274,) 20 20 20 20 20 20 20 20 20 44 3d 44 41 54 55 4d 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ D=DATUM; ┆
0x54dd…552c (275,) 20 20 20 20 20 20 20 20 20 43 41 4c 4c 20 43 48 4f 4f 53 45 28 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ CALL CHOOSE(0); ┆
0x552c…557b (276,) 20 20 20 20 20 20 20 20 43 41 4c 4c 20 50 4c 4f 41 44 28 27 51 20 20 20 20 20 20 20 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ CALL PLOAD('Q '); ┆
0x557b…55ca (277,) 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 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; ┆
0x55ca…5619 (278,) 20 20 20 20 20 20 49 46 20 46 49 52 4d 41 3d 27 39 27 20 54 48 45 4e 20 47 4f 20 54 4f 20 4c 37 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF FIRMA='9' THEN GO TO L72; ┆
0x5619…5668 (279,) 4c 37 31 3a 20 20 49 3d 31 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆L71: I=1; ┆
0x5668…56b7 (280,) 20 20 20 20 20 20 43 41 4c 4c 20 43 48 4f 4f 53 45 28 32 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ CALL CHOOSE(2); ┆
0x56b7…5706 (281,) 20 20 20 20 20 20 4f 4e 20 45 52 52 4f 52 20 47 4f 20 54 4f 20 46 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ON ERROR GO TO FEL; ┆
0x5706…5755 (282,) 20 20 20 20 20 20 4f 50 45 4e 20 4b 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ OPEN K80; ┆
0x5755…57a4 (283,) 20 20 20 20 20 20 49 3d 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ I=2; ┆
0x57a4…57f3 (284,) 20 20 20 20 20 20 43 41 4c 4c 20 43 48 4f 4f 53 45 28 33 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ CALL CHOOSE(3); ┆
0x57f3…5842 (285,) 20 20 20 20 20 20 4f 4e 20 45 52 52 4f 52 20 47 4f 20 54 4f 20 46 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ON ERROR GO TO FEL; ┆
0x5842…5891 (286,) 20 20 20 20 20 20 4f 50 45 4e 20 4b 38 31 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ OPEN K81; ┆
0x5891…58e0 (287,) 20 20 20 20 20 20 47 4f 20 54 4f 20 4c 37 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GO TO L75; ┆
0x58e0…592f (288,) 4c 37 32 3a 20 20 49 3d 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆L72: I=3; ┆
0x592f…597e (289,) 20 20 20 20 20 20 43 41 4c 4c 20 43 48 4f 4f 53 45 28 32 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ CALL CHOOSE(2); ┆
0x597e…59cd (290,) 20 20 20 20 20 20 4f 4e 20 45 52 52 4f 52 20 47 4f 20 54 4f 20 46 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ON ERROR GO TO FEL; ┆
0x59cd…5a1c (291,) 20 20 20 20 20 20 4f 50 45 4e 20 4b 39 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ OPEN K90; ┆
0x5a1c…5a6b (292,) 20 20 20 20 20 20 49 3d 34 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ I=4; ┆
0x5a6b…5aba (293,) 20 20 20 20 20 20 43 41 4c 4c 20 43 48 4f 4f 53 45 28 33 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ CALL CHOOSE(3); ┆
0x5aba…5b09 (294,) 20 20 20 20 20 20 4f 4e 20 45 52 52 4f 52 20 47 4f 20 54 4f 20 46 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ON ERROR GO TO FEL; ┆
0x5b09…5b58 (295,) 20 20 20 20 20 20 4f 50 45 4e 20 4b 39 31 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ OPEN K91; ┆
0x5b58…5ba7 (296,) 20 20 20 20 20 20 47 4f 20 54 4f 20 4c 37 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GO TO L75; ┆
0x5ba7…5bf6 (297,) 46 45 4c 3a 20 20 49 46 20 49 3d 31 20 7c 20 49 3d 33 20 54 48 45 4e 20 50 55 54 20 46 49 4c 45 28 44 29 20 53 4b 49 50 20 45 44 49 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 20 20 ┆FEL: IF I=1 ö I=3 THEN PUT FILE(D) SKIP EDIT ┆
0x5bf6…5c45 (298,) 20 20 20 20 20 20 28 27 44 49 53 4b 45 54 54 20 4d 45 44 20 22 56 45 52 54 45 58 54 22 20 46 49 4e 4e 53 20 49 4e 54 45 20 49 20 44 52 49 56 45 20 32 27 29 28 41 28 34 37 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ('DISKETT MED "VERTEXT" FINNS INTE I DRIVE 2')(A(47)); ┆
0x5c45…5c94 (299,) 20 20 20 20 20 20 45 4c 53 45 20 50 55 54 20 46 49 4c 45 28 44 29 20 53 4b 49 50 20 45 44 49 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ELSE PUT FILE(D) SKIP EDIT ┆
0x5c94…5ce3 (300,) 20 20 20 20 20 20 28 27 44 49 53 4b 45 54 54 20 4d 45 44 20 22 56 45 52 42 45 4c 4f 50 22 20 46 49 4e 4e 53 20 49 4e 54 45 20 49 20 44 52 49 56 45 20 33 27 29 28 41 28 34 37 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ('DISKETT MED "VERBELOP" FINNS INTE I DRIVE 3')(A(47)); ┆
0x5ce3…5d32 (301,) 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 28 44 29 20 45 44 49 54 28 27 53 5b 54 54 20 49 4e 20 52 5b 54 54 20 44 49 53 4b 45 54 54 20 4f 43 48 20 41 4e 47 45 20 46 5c 52 45 54 41 47 27 29 28 41 28 34 37 29 29 20 20 20 20 20 20 20 20 20 ┆ PUT FILE(D) EDIT('SÄTT IN RÄTT DISKETT OCH ANGE FÖRETAG')(A(47)) ┆
0x5d32…5d81 (302,) 20 20 20 20 20 20 28 27 38 20 3d 20 4b 56 56 20 2c 20 4b 57 41 52 4f 53 27 29 28 41 28 34 37 29 29 28 27 39 20 3d 20 41 52 4f 53 4b 52 41 46 54 27 29 28 41 28 34 37 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ('8 = KVV , KWAROS')(A(47))('9 = AROSKRAFT')(A(47)); ┆
0x5d81…5dd0 (303,) 20 20 20 20 20 20 47 4f 20 54 4f 20 4c 36 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GO TO L65; ┆
0x5dd0…5e1f (304,) 4c 37 35 3a 20 20 43 41 4c 4c 20 43 48 4f 4f 53 45 28 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆L75: CALL CHOOSE(0); ┆
0x5e1f…5e6e (305,) 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 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; ┆
0x5e6e…5ebd (306,) 20 20 20 44 3d 44 41 54 55 4d 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ D=DATUM; ┆
0x5ebd…5f0c (307,) 20 20 20 49 46 20 4c 45 4e 47 54 48 28 4c 54 45 58 28 4c 54 41 42 28 58 2c 59 29 29 29 3d 38 20 54 48 45 4e 20 44 4f 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF LENGTH(LTEX(LTAB(X,Y)))=8 THEN DO; ┆
0x5f0c…5f5b (308,) 20 20 20 20 20 20 54 38 3d 4c 54 45 58 28 4c 54 41 42 28 58 2c 59 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ T8=LTEX(LTAB(X,Y)); ┆
0x5f5b…5faa (309,) 20 20 20 20 20 20 43 41 4c 4c 20 50 4c 4f 41 44 28 54 38 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ CALL PLOAD(T8); ┆
0x5faa…5ff9 (310,) 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 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; ┆
0x5ff9…6048 (311,) 20 20 20 43 41 4c 4c 20 4c 4f 41 44 28 4c 54 45 58 28 4c 54 41 42 28 58 2c 59 29 29 2c 32 35 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ CALL LOAD(LTEX(LTAB(X,Y)),25); ┆
0x6048…6097 (312,) 53 4c 55 54 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆SLUT: ┆
0x6097…60e6 (313,) 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 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; ┆