|
DataMuseum.dkPresents historical artifacts from the history of: Q1 computer |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Q1 computer Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: 8 I P Q q r
Length: 167150 (0x28cee)
Description: Bits:30008749 50001582
Types: 8" Floppy Disk
| flag | nrec | reclen | rec_trk | t0 | tn | name | artifact |
|---|---|---|---|---|---|---|---|
| 0 | 3 | 40 | 130 | 0 | 0 | INDEX | ⟦b5a1182a6⟧ Q1_HexDump, reclen=40, q1file |
| 0 | 139 | 79 | 82 | 1 | 5 | PROGCOP1 | ⟦7a2bf0f43⟧ Q1_Text, reclen=79, q1file |
0x00000…00028 (0, 0, 0) Catalog {f0=0x0000, name=»INDEX «, nrec=0x0003, reclen=0x0028, rectrack=0x0082, track0=0x0000, trackn=0x0000}
0x00028…00050 (0, 0, 1) Catalog {f0=0x0000, name=»PROGCOP1«, nrec=0x008b, reclen=0x004f, rectrack=0x0052, track0=0x0001, trackn=0x0005}
0x00050…00078 (0, 0, 2) Catalog {f0=0x0000, name=»ARBFIL «, nrec=0x0000, reclen=0x004f, rectrack=0x0052, track0=0x0006, trackn=0x0019}
0x00078…000a0 (0, 0, 3) 0x00[0x28]
[…0x7e…]
0x01450…0149f (1, 0, 0) DataSector[0x4f]
[…0x8a…]
0x03f35…03f84 (2, 0, 57) 0x00[0x4f]
[…0x69…]
0x05feb…0600b (3, 0, 81) 01 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ┆ ┆
0x0600b…0602b 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 ┆ ┆
0x0602b…0603a ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ┆ ┆
0x0603a…06089 (4, 0, 0) 0x00[0x4f]
[…0x2e…]
0x06ebb…06edb (4, 0, 47) 20 20 20 20 41 52 42 46 49 4c 20 20 46 49 4c 45 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ARBFIL FILE; ┆
0x06edb…06efb 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x06efb…06f0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x06f0a…06f59 (4, 0, 48) 0x20[0x4f]
0x06f59…06f79 (4, 0, 49) 2f 2a 20 20 20 20 20 20 57 4f 52 4b 49 4e 47 2d 53 54 4f 52 41 47 45 20 53 45 43 54 49 4f 4e 2e ┆/* WORKING-STORAGE SECTION.┆
0x06f79…06f99 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x06f99…06fa8 20 20 20 20 20 20 20 20 20 20 20 20 2a 2f 20 ┆ */ ┆
0x06fa8…06ff7 (4, 0, 50) 0x20[0x4f]
0x06ff7…07017 (4, 0, 51) 44 43 4c 20 20 20 20 20 44 41 54 55 4d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆DCL DATUM ┆
0x07017…07037 20 20 20 20 43 48 41 52 20 28 36 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ CHAR (6), ┆
0x07037…07046 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x07046…07066 (4, 0, 52) 20 20 20 20 20 20 20 20 52 41 44 41 4e 54 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ RADANT ┆
0x07066…07086 20 20 20 20 43 48 41 52 20 28 33 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ CHAR (3), ┆
0x07086…07095 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x07095…070b5 (4, 0, 53) 20 20 20 20 20 20 20 20 52 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ R ┆
0x070b5…070d5 20 20 20 20 43 48 41 52 20 28 32 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ CHAR (2), ┆
0x070d5…070e4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x070e4…07104 (4, 0, 54) 20 20 20 20 20 20 20 20 53 56 41 52 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ SVAR ┆
0x07104…07124 20 20 20 20 43 48 41 52 20 28 34 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ CHAR (4), ┆
0x07124…07133 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x07133…07153 (4, 0, 55) 20 20 20 20 20 20 20 20 49 4e 53 45 52 54 54 41 42 20 28 33 30 29 20 20 20 20 20 20 20 20 20 20 ┆ INSERTTAB (30) ┆
0x07153…07173 20 20 20 20 42 49 4e 41 52 59 20 49 4e 49 54 20 28 28 33 30 29 30 29 2c 20 20 20 20 20 20 20 20 ┆ BINARY INIT ((30)0), ┆
0x07173…07182 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x07182…071a2 (4, 0, 56) 20 20 20 20 20 20 20 20 46 49 4c 4e 41 4d 4e 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ FILNAMN1 ┆
0x071a2…071c2 20 20 20 20 43 48 41 52 20 28 38 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ CHAR (8), ┆
0x071c2…071d1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x071d1…071f1 (4, 0, 57) 20 20 20 20 20 20 20 20 46 49 4c 4e 41 4d 4e 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ FILNAMN2 ┆
0x071f1…07211 20 20 20 20 43 48 41 52 20 28 38 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ CHAR (8); ┆
0x07211…07220 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x07220…0726f (4, 0, 58) 0x20[0x4f]
[…0x1…]
0x072be…072de (4, 0, 60) 46 52 41 47 41 3a 20 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 ┆FRAGA: PROC; ┆
0x072de…072fe 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x072fe…0730d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0730d…0735c (4, 0, 61) 0x20[0x4f]
0x0735c…0737c (4, 0, 62) 46 31 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆F10: ┆
0x0737c…0739c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0739c…073ab 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x073ab…073cb (4, 0, 63) 20 20 20 20 44 43 4c 20 4a 4a 20 28 33 30 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ DCL JJ (30) ┆
0x073cb…073eb 20 20 20 20 42 49 4e 41 52 59 20 49 4e 49 54 20 28 31 30 33 2c 31 31 33 2c 31 32 33 2c 31 35 30 ┆ BINARY INIT (103,113,123,150┆
0x073eb…073fa 2c 31 36 30 2c 31 37 30 2c 31 39 37 2c 20 20 ┆,160,170,197, ┆
0x073fa…0741a (4, 0, 64) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0741a…0743a 20 20 20 20 32 30 37 2c 32 31 37 2c 32 34 34 2c 32 35 34 2c 32 36 34 2c 32 39 31 2c 33 30 31 2c ┆ 207,217,244,254,264,291,301,┆
0x0743a…07449 33 31 31 2c 33 33 38 2c 33 34 38 2c 33 35 38 ┆311,338,348,358┆
0x07449…07469 (4, 0, 65) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x07469…07489 20 20 20 20 2c 33 38 35 2c 33 39 35 2c 34 30 35 2c 34 33 32 2c 34 34 32 2c 34 35 32 2c 34 37 39 ┆ ,385,395,405,432,442,452,479┆
0x07489…07498 2c 34 38 39 2c 34 39 39 2c 35 32 36 2c 20 20 ┆,489,499,526, ┆
0x07498…074b8 (4, 0, 66) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x074b8…074d8 20 20 20 20 35 33 36 2c 35 34 36 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 536,546); ┆
0x074d8…074e7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x074e7…07536 (4, 0, 67) 0x20[0x4f]
0x07536…07556 (4, 0, 68) 20 20 20 20 20 20 20 20 4a 20 3d 20 4a 4a 28 4a 4a 4a 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆ J = JJ(JJJ); ┆
0x07556…07576 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x07576…07585 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x07585…075a5 (4, 0, 69) 20 20 20 20 20 20 20 20 43 41 4c 4c 20 4d 4f 56 45 42 55 46 46 20 28 4a 29 3b 20 20 20 20 20 20 ┆ CALL MOVEBUFF (J); ┆
0x075a5…075c5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x075c5…075d4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x075d4…075f4 (4, 0, 70) 20 20 20 20 20 20 20 20 43 41 4c 4c 20 54 59 50 49 53 54 20 28 53 56 41 52 2c 34 29 3b 20 20 20 ┆ CALL TYPIST (SVAR,4); ┆
0x075f4…07614 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x07614…07623 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x07623…07643 (4, 0, 71) 20 20 20 20 20 20 20 20 43 41 4c 4c 20 54 59 50 49 53 54 20 28 27 0d 27 2c 31 29 3b 20 20 20 20 ┆ CALL TYPIST (' ',1); ┆
0x07643…07663 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x07663…07672 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x07672…07692 (4, 0, 72) 46 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 ┆F99: ┆
0x07692…076b2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x076b2…076c1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x076c1…076e1 (4, 0, 73) 20 20 20 20 20 20 20 20 52 45 54 55 52 4e 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ RETURN; ┆
0x076e1…07701 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x07701…07710 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x07710…07730 (4, 0, 74) 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; ┆
0x07730…07750 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x07750…0775f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0775f…077ae (4, 0, 75) 0x20[0x4f]
[…0x2…]
0x0784c…0786c (4, 0, 78) 53 56 41 52 41 3a 20 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 ┆SVARA: PROC; ┆
0x0786c…0788c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0788c…0789b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0789b…078ea (4, 0, 79) 0x20[0x4f]
0x078ea…0790a (4, 0, 80) 53 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 ┆S10: ┆
0x0790a…0792a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0792a…07939 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x07939…07959 (4, 0, 81) 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 53 56 41 52 29 ┆ PUT FILE (D) EDIT (SVAR)┆
0x07959…07979 20 28 41 28 34 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(4)); ┆
0x07979…07988 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x07988…079a8 (5, 0, 0) 20 20 20 20 20 20 20 20 49 4e 53 45 52 54 54 41 42 20 28 4a 4a 4a 29 20 3d 20 53 56 41 52 3b 20 ┆ INSERTTAB (JJJ) = SVAR; ┆
0x079a8…079c8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x079c8…079d7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x079d7…079f7 (5, 0, 1) 20 20 20 20 20 20 20 20 4a 4a 4a 20 3d 20 4a 4a 4a 20 2b 20 31 3b 20 20 20 20 20 20 20 20 20 20 ┆ JJJ = JJJ + 1; ┆
0x079f7…07a17 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x07a17…07a26 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x07a26…07a46 (5, 0, 2) 20 20 20 20 20 20 20 20 49 46 20 4a 4a 4a 20 3d 20 33 31 20 54 48 45 4e 20 4a 4a 4a 20 3d 20 31 ┆ IF JJJ = 31 THEN JJJ = 1┆
0x07a46…07a66 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆; ┆
0x07a66…07a75 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x07a75…07a95 (5, 0, 3) 53 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 ┆S99: ┆
0x07a95…07ab5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x07ab5…07ac4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x07ac4…07ae4 (5, 0, 4) 20 20 20 20 20 20 20 20 52 45 54 55 52 4e 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ RETURN; ┆
0x07ae4…07b04 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x07b04…07b13 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x07b13…07b33 (5, 0, 5) 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; ┆
0x07b33…07b53 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x07b53…07b62 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x07b62…07bb1 (5, 0, 6) 0x20[0x4f]
[…0x1…]
0x07c00…07c20 (5, 0, 8) 2f 2a 20 20 20 20 20 20 50 52 4f 43 45 44 55 52 45 20 44 49 56 49 53 49 4f 4e 2e 20 20 20 20 20 ┆/* PROCEDURE DIVISION. ┆
0x07c20…07c40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x07c40…07c4f 20 20 20 20 20 20 20 20 20 20 20 20 2a 2f 20 ┆ */ ┆
0x07c4f…07c9e (5, 0, 9) 0x20[0x4f]
0x07c9e…07cbe (5, 0, 10) 41 31 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆A10: ┆
0x07cbe…07cde 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x07cde…07ced 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x07ced…07d0d (5, 0, 11) 20 20 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 20 28 44 29 20 53 4b 49 50 20 45 44 49 54 20 28 ┆ PUT FILE (D) SKIP EDIT (┆
0x07d0d…07d2d 27 50 52 4f 47 52 41 4d 4e 41 4d 4e 2c 66 69 6c 65 6e 20 73 6f 6d 20 73 6b 61 6c 6c 20 75 70 70 ┆'PROGRAMNAMN,filen som skall upp┆
0x07d2d…07d3c 64 61 74 65 72 61 73 3a 27 29 28 41 29 3b 20 ┆dateras:')(A); ┆
0x07d3c…07d5c (5, 0, 12) 20 20 20 20 20 20 20 20 43 41 4c 4c 20 4b 46 49 4c 45 20 28 57 48 41 54 49 4e 31 29 3b 20 20 20 ┆ CALL KFILE (WHATIN1); ┆
0x07d5c…07d7c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x07d7c…07d8b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x07d8b…07dab (5, 0, 13) 20 20 20 20 20 20 20 20 47 45 54 20 53 4b 49 50 20 4c 49 53 54 20 28 46 49 4c 4e 41 4d 4e 31 29 ┆ GET SKIP LIST (FILNAMN1)┆
0x07dab…07dcb 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆; ┆
0x07dcb…07dda 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x07dda…07dfa (5, 0, 14) 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 46 49 4c 4e 41 ┆ PUT FILE (D) EDIT (FILNA┆
0x07dfa…07e1a 4d 4e 31 29 20 28 41 28 38 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆MN1) (A(8)); ┆
0x07e1a…07e29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x07e29…07e49 (5, 0, 15) 20 20 20 20 20 20 20 20 4f 50 45 4e 20 57 48 41 54 49 4e 31 3b 20 20 20 20 20 20 20 20 20 20 20 ┆ OPEN WHATIN1; ┆
0x07e49…07e69 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x07e69…07e78 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x07e78…07e98 (5, 0, 16) 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 50 52 4f 47 ┆ PUT FILE (D) EDIT ('PROG┆
0x07e98…07eb8 52 41 4d 4e 41 4d 4e 2c 66 69 6c 65 6e 20 73 6f 6d 20 6c 7b 6d 6e 61 72 20 75 70 70 67 69 66 74 ┆RAMNAMN,filen som lämnar uppgift┆
0x07eb8…07ec7 65 72 3a 27 29 20 28 41 29 3b 20 20 20 20 20 ┆er:') (A); ┆
0x07ec7…07ee7 (5, 0, 17) 20 20 20 20 20 20 20 20 43 41 4c 4c 20 4b 46 49 4c 45 20 28 57 48 41 54 49 4e 32 29 3b 20 20 20 ┆ CALL KFILE (WHATIN2); ┆
0x07ee7…07f07 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x07f07…07f16 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x07f16…07f36 (5, 0, 18) 20 20 20 20 20 20 20 20 47 45 54 20 53 4b 49 50 20 4c 49 53 54 20 28 46 49 4c 4e 41 4d 4e 32 29 ┆ GET SKIP LIST (FILNAMN2)┆
0x07f36…07f56 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆; ┆
0x07f56…07f65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x07f65…07f85 (5, 0, 19) 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 46 49 4c 4e 41 ┆ PUT FILE (D) EDIT (FILNA┆
0x07f85…07fa5 4d 4e 32 29 20 28 41 28 38 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆MN2) (A(8)); ┆
0x07fa5…07fb4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x07fb4…07fd4 (5, 0, 20) 20 20 20 20 20 20 20 20 4f 50 45 4e 20 57 48 41 54 49 4e 32 3b 20 20 20 20 20 20 20 20 20 20 20 ┆ OPEN WHATIN2; ┆
0x07fd4…07ff4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x07ff4…08003 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x08003…08023 (5, 0, 21) 20 20 20 20 20 20 20 20 47 45 54 20 53 4b 49 50 20 4c 49 53 54 20 28 53 56 41 52 29 3b 20 20 20 ┆ GET SKIP LIST (SVAR); ┆
0x08023…08043 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x08043…08052 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x08052…08072 (5, 0, 22) 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 20 20 20 ┆ PUT FILE (D) EDIT (' ┆
0x08072…08092 20 20 50 52 4f 47 52 41 4d 2d 31 20 20 20 20 20 20 20 20 20 20 20 20 50 52 4f 47 52 41 4d 2d 32 ┆ PROGRAM-1 PROGRAM-2┆
0x08092…080a1 20 20 20 27 29 20 28 41 28 34 37 29 29 3b 20 ┆ ') (A(47)); ┆
0x080a1…080c1 (5, 0, 23) 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 20 20 20 ┆ PUT FILE (D) EDIT (' ┆
0x080c1…080e1 20 20 69 6e 20 65 66 74 65 72 20 72 61 64 20 20 20 20 20 20 66 72 2e 6f 2e 6d 20 2d 20 74 2e 6f ┆ in efter rad fr.o.m - t.o┆
0x080e1…080f0 2e 6d 2e 20 27 29 20 28 41 28 34 37 29 29 3b ┆.m. ') (A(47));┆
0x080f0…08110 (5, 0, 24) 41 32 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆A20: ┆
0x08110…08130 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x08130…0813f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0813f…0815f (5, 0, 25) 20 20 20 20 20 20 20 20 47 45 54 20 53 4b 49 50 20 4c 49 53 54 20 28 53 56 41 52 29 3b 20 20 20 ┆ GET SKIP LIST (SVAR); ┆
0x0815f…0817f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0817f…0818e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0818e…081ae (5, 0, 26) 20 20 20 20 20 20 20 20 43 41 4c 4c 20 4b 45 59 46 55 4e 20 28 4b 29 3b 20 20 20 20 20 20 20 20 ┆ CALL KEYFUN (K); ┆
0x081ae…081ce 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x081ce…081dd 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x081dd…081fd (5, 0, 27) 20 20 20 20 20 20 20 20 49 46 20 4b 20 3d 20 31 34 30 20 54 48 45 4e 20 47 4f 20 54 4f 20 42 31 ┆ IF K = 140 THEN GO TO B1┆
0x081fd…0821d 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; ┆
0x0821d…0822c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0822c…0824c (5, 0, 28) 20 20 20 20 20 20 20 20 43 41 4c 4c 20 53 56 41 52 41 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ CALL SVARA; ┆
0x0824c…0826c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0826c…0827b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0827b…0829b (5, 0, 29) 20 20 20 20 20 20 20 20 43 41 4c 4c 20 46 52 41 47 41 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ CALL FRAGA; ┆
0x0829b…082bb 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x082bb…082ca 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x082ca…082ea (5, 0, 30) 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; ┆
0x082ea…0830a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0830a…08319 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x08319…08368 (5, 0, 31) 0x20[0x4f]
0x08368…08388 (5, 0, 32) 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: ┆
0x08388…083a8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x083a8…083b7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x083b7…083d7 (5, 0, 33) 20 20 20 20 20 20 20 20 4a 20 3d 20 31 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ J = 1; ┆
0x083d7…083f7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x083f7…08406 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x08406…08426 (5, 0, 34) 20 20 20 20 20 20 20 20 49 46 49 4c 31 20 3d 20 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IFIL1 = 0; ┆
0x08426…08446 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x08446…08455 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x08455…08475 (5, 0, 35) 20 20 20 20 20 20 20 20 49 46 49 4c 32 20 3d 20 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IFIL2 = 0; ┆
0x08475…08495 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x08495…084a4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x084a4…084c4 (5, 0, 36) 20 20 20 20 20 20 20 20 4f 50 45 4e 20 41 52 42 46 49 4c 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆ OPEN ARBFIL; ┆
0x084c4…084e4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x084e4…084f3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x084f3…08542 (5, 0, 37) 0x20[0x4f]
0x08542…08562 (5, 0, 38) 42 32 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆B20: ┆
0x08562…08582 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x08582…08591 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x08591…085b1 (5, 0, 39) 20 20 20 20 20 20 20 20 57 48 41 54 49 4e 31 20 3d 20 46 49 4c 4e 41 4d 4e 31 3b 20 20 20 20 20 ┆ WHATIN1 = FILNAMN1; ┆
0x085b1…085d1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x085d1…085e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x085e0…08600 (5, 0, 40) 20 20 20 20 20 20 20 20 20 41 4c 4c 20 4b 46 49 4c 45 20 28 57 48 41 54 49 4e 31 29 3b 20 20 20 ┆ ALL KFILE (WHATIN1); ┆
0x08600…08620 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x08620…0862f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0862f…0864f (5, 0, 41) 20 20 20 20 20 20 20 20 4f 50 45 4e 20 57 48 41 54 49 4e 31 3b 20 20 20 20 20 20 20 20 20 20 20 ┆ OPEN WHATIN1; ┆
0x0864f…0866f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0866f…0867e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0867e…0869e (5, 0, 42) 20 20 20 20 20 20 20 20 55 4e 53 50 45 43 20 28 57 48 41 54 49 4e 31 29 20 3d 20 49 46 49 4c 31 ┆ UNSPEC (WHATIN1) = IFIL1┆
0x0869e…086be 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆; ┆
0x086be…086cd 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x086cd…086ed (5, 0, 43) 42 33 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆B30: ┆
0x086ed…0870d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0870d…0871c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0871c…0873c (5, 0, 44) 20 20 20 20 20 20 20 20 4f 4e 20 45 52 52 4f 52 20 47 4f 20 54 4f 20 43 31 30 3b 20 20 20 20 20 ┆ ON ERROR GO TO C10; ┆
0x0873c…0875c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0875c…0876b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0876b…0878b (5, 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 44 32 30 3b 20 20 20 ┆ ON ENDFILE GO TO D20; ┆
0x0878b…087ab 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x087ab…087ba 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x087ba…087da (5, 0, 46) 20 20 20 20 20 20 20 20 52 45 41 44 20 46 49 4c 45 20 28 57 48 41 54 49 4e 31 29 20 49 4e 54 4f ┆ READ FILE (WHATIN1) INTO┆
0x087da…087fa 20 28 50 47 4d 50 4f 53 54 31 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ (PGMPOST1); ┆
0x087fa…08809 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x08809…08829 (5, 0, 47) 20 20 20 20 20 20 20 20 49 46 20 55 4e 53 50 45 43 20 28 57 48 41 54 49 4e 31 29 20 3d 20 49 4e ┆ IF UNSPEC (WHATIN1) = IN┆
0x08829…08849 53 45 52 54 54 41 42 20 28 4a 29 20 2d 20 31 20 54 48 45 4e 20 47 4f 20 54 4f 20 42 35 30 3b 20 ┆SERTTAB (J) - 1 THEN GO TO B50; ┆
0x08849…08858 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x08858…08878 (5, 0, 48) 20 20 20 20 20 20 20 20 57 52 49 54 45 20 46 49 4c 45 20 28 41 52 42 46 49 4c 29 20 46 52 4f 4d ┆ WRITE FILE (ARBFIL) FROM┆
0x08878…08898 20 28 50 47 4d 50 4f 53 54 31 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ (PGMPOST1); ┆
0x08898…088a7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x088a7…088c7 (5, 0, 49) 20 20 20 20 20 20 20 20 49 46 49 4c 31 20 3d 20 49 46 49 4c 31 20 2b 20 31 3b 20 20 20 20 20 20 ┆ IFIL1 = IFIL1 + 1; ┆
0x088c7…088e7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x088e7…088f6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x088f6…08916 (5, 0, 50) 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 42 33 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GO TO B30; ┆
0x08916…08936 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x08936…08945 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x08945…08994 (5, 0, 51) 0x20[0x4f]
0x08994…089b4 (5, 0, 52) 42 35 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆B50: ┆
0x089b4…089d4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x089d4…089e3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x089e3…08a03 (5, 0, 53) 20 20 20 20 20 20 20 20 4a 20 3d 20 4a 20 2b 20 31 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ J = J + 1; ┆
0x08a03…08a23 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x08a23…08a32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x08a32…08a52 (5, 0, 54) 20 20 20 20 20 20 20 20 43 41 4c 4c 20 4b 46 49 4c 45 20 28 57 48 41 54 49 4e 32 29 3b 20 20 20 ┆ CALL KFILE (WHATIN2); ┆
0x08a52…08a72 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x08a72…08a81 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x08a81…08aa1 (5, 0, 55) 20 20 20 20 20 20 20 20 57 48 41 54 49 4e 32 20 3d 20 46 49 4c 4e 41 4d 4e 32 3b 20 20 20 20 20 ┆ WHATIN2 = FILNAMN2; ┆
0x08aa1…08ac1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x08ac1…08ad0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x08ad0…08af0 (5, 0, 56) 20 20 20 20 20 20 20 20 4f 50 45 4e 20 57 48 41 54 49 4e 32 3b 20 20 20 20 20 20 20 20 20 20 20 ┆ OPEN WHATIN2; ┆
0x08af0…08b10 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x08b10…08b1f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x08b1f…08b3f (5, 0, 57) 20 20 20 20 20 20 20 20 55 4e 53 50 45 43 20 28 57 48 41 54 49 4e 32 29 20 3d 20 49 4e 53 45 52 ┆ UNSPEC (WHATIN2) = INSER┆
0x08b3f…08b5f 54 54 41 42 20 28 4a 29 20 2d 31 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆TTAB (J) -1; ┆
0x08b5f…08b6e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x08b6e…08b8e (5, 0, 58) 20 20 20 20 20 20 20 20 49 46 49 4c 32 20 3d 20 55 4e 53 50 45 43 20 28 57 48 41 54 49 4e 32 29 ┆ IFIL2 = UNSPEC (WHATIN2)┆
0x08b8e…08bae 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆; ┆
0x08bae…08bbd 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x08bbd…08bdd (5, 0, 59) 42 36 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆B60: ┆
0x08bdd…08bfd 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x08bfd…08c0c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x08c0c…08c2c (5, 0, 60) 20 20 20 20 20 20 20 20 4f 4e 20 45 52 52 4f 52 20 47 4f 20 54 4f 20 43 32 30 3b 20 20 20 20 20 ┆ ON ERROR GO TO C20; ┆
0x08c2c…08c4c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x08c4c…08c5b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x08c5b…08c7b (5, 0, 61) 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 44 31 30 3b 20 20 20 ┆ ON ENDFILE GO TO D10; ┆
0x08c7b…08c9b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x08c9b…08caa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x08caa…08cca (5, 0, 62) 20 20 20 20 20 20 20 20 52 45 41 44 20 46 49 4c 45 20 28 57 48 41 54 49 4e 32 29 20 49 4e 54 4f ┆ READ FILE (WHATIN2) INTO┆
0x08cca…08cea 20 28 50 47 4d 50 4f 53 54 32 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ (PGMPOST2); ┆
0x08cea…08cf9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x08cf9…08d19 (5, 0, 63) 20 20 20 20 20 20 20 20 49 46 20 55 4e 53 50 45 43 20 28 57 48 41 54 49 4e 32 29 20 3e 20 49 4e ┆ IF UNSPEC (WHATIN2) > IN┆
0x08d19…08d39 53 45 52 54 54 41 42 20 28 4a 20 2b 20 31 29 20 54 48 45 4e 20 47 4f 20 54 4f 20 42 37 30 3b 20 ┆SERTTAB (J + 1) THEN GO TO B70; ┆
0x08d39…08d48 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x08d48…08d68 (5, 0, 64) 20 20 20 20 20 20 20 20 57 52 49 54 45 20 46 49 4c 45 20 28 41 52 42 46 49 4c 29 20 46 52 4f 4d ┆ WRITE FILE (ARBFIL) FROM┆
0x08d68…08d88 20 28 50 47 4d 50 4f 53 54 32 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ (PGMPOST2); ┆
0x08d88…08d97 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x08d97…08db7 (5, 0, 65) 20 20 20 20 20 20 20 20 49 46 49 4c 32 20 3d 20 49 46 49 4c 32 20 2b 20 31 3b 20 20 20 20 20 20 ┆ IFIL2 = IFIL2 + 1; ┆
0x08db7…08dd7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x08dd7…08de6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x08de6…08e06 (5, 0, 66) 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 42 36 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GO TO B60; ┆
0x08e06…08e26 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x08e26…08e35 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x08e35…08e55 (5, 0, 67) 42 37 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆B70: ┆
0x08e55…08e75 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x08e75…08e84 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x08e84…08ea4 (5, 0, 68) 20 20 20 20 20 20 20 20 4a 20 3d 20 4a 20 2b 20 32 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ J = J + 2; ┆
0x08ea4…08ec4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x08ec4…08ed3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x08ed3…08ef3 (5, 0, 69) 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 42 32 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GO TO B20; ┆
0x08ef3…08f13 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x08f13…08f22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x08f22…08f71 (5, 0, 70) 0x20[0x4f]
0x08f71…08f91 (5, 0, 71) 43 31 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆C10: ┆
0x08f91…08fb1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x08fb1…08fc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x08fc0…08fe0 (5, 0, 72) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 4c 49 53 54 20 28 27 4c 5b 53 46 45 4c 20 49 ┆ PUT SKIP LIST ('LÄSFEL I┆
0x08fe0…09000 20 46 49 4c 31 20 27 2c 4f 4e 43 4f 44 45 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ FIL1 ',ONCODE); ┆
0x09000…0900f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0900f…0902f (5, 0, 73) 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 44 32 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GO TO D20; ┆
0x0902f…0904f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0904f…0905e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0905e…0907e (5, 0, 74) 43 32 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆C20: ┆
0x0907e…0909e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0909e…090ad 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x090ad…090cd (5, 0, 75) 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┆
0x090cd…090ed 20 46 49 4c 32 20 27 2c 4f 4e 43 4f 44 45 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ FIL2 ',ONCODE); ┆
0x090ed…090fc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x090fc…0911c (5, 0, 76) 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 44 32 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GO TO D20; ┆
0x0911c…0913c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0913c…0914b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0914b…0916b (5, 0, 77) 44 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 ┆D10: ┆
0x0916b…0918b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0918b…0919a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0919a…091ba (5, 0, 78) 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 42 32 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GO TO B20; ┆
0x091ba…091da 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x091da…091e9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x091e9…09209 (5, 0, 79) 44 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 ┆D20: ┆
0x09209…09229 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x09229…09238 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x09238…09258 (5, 0, 80) 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; ┆
0x09258…09278 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x09278…09287 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x09287…092d6 (5, 0, 81) 0x20[0x4f]
0x092d6…09325 (6, 0, 0) 0x00[0x4f]
[…0x50…]
0x0abd5…0abf5 (6, 0, 81) 01 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ┆ ┆
0x0abf5…0ac15 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 ┆ ┆
0x0ac15…0ac24 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ┆ ┆
0x0ac24…0ac73 (7, 0, 0) 0x00[0x4f]
[…0x50…]
0x0c523…0c543 (7, 0, 81) 01 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ┆ ┆
0x0c543…0c563 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 ┆ ┆
0x0c563…0c572 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ┆ ┆
0x0c572…0c5c1 (8, 0, 0) 0x00[0x4f]
[…0xf4…]
0x1110d…1112d (10, 0, 81) 01 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ┆ ┆
0x1112d…1114d 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 ┆ ┆
0x1114d…1115c ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ┆ ┆
0x1115c…111ab (11, 0, 0) 0x00[0x4f]
[…0x50…]
0x12a5b…12a7b (11, 0, 81) 01 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ┆ ┆
0x12a7b…12a9b 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 ┆ ┆
0x12a9b…12aaa ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ┆ ┆
0x12aaa…12af9 (12, 0, 0) 0x00[0x4f]
[…0xa2…]
0x15cf7…15d17 (13, 0, 81) 01 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ┆ ┆
0x15d17…15d37 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 ┆ ┆
0x15d37…15d46 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ┆ ┆
0x15d46…15d95 (14, 0, 0) 0x00[0x4f]
[…0x50…]
0x17645…17665 (14, 0, 81) 01 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ┆ ┆
0x17665…17685 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 ┆ ┆
0x17685…17694 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ┆ ┆
0x17694…176e3 (15, 0, 0) 0x00[0x4f]
[…0xf4…]
0x1c22f…1c24f (17, 0, 81) 01 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ┆ ┆
0x1c24f…1c26f 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 ┆ ┆
0x1c26f…1c27e ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ┆ ┆
0x1c27e…1c2cd (18, 0, 0) 0x00[0x4f]
[…0x50…]
0x1db7d…1db9d (18, 0, 81) 01 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ┆ ┆
0x1db9d…1dbbd 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 ┆ ┆
0x1dbbd…1dbcc ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ┆ ┆
0x1dbcc…1dc1b (19, 0, 0) 0x00[0x4f]
[…0x50…]
0x1f4cb…1f4eb (19, 0, 81) 01 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ┆ ┆
0x1f4eb…1f50b 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 ┆ ┆
0x1f50b…1f51a ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ┆ ┆
0x1f51a…1f569 (20, 0, 0) 0x00[0x4f]
[…0x146…]
0x25a03…25a23 (23, 0, 81) 01 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ┆ ┆
0x25a23…25a43 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 ┆ ┆
0x25a43…25a52 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ┆ ┆
0x25a52…25aa1 (24, 0, 0) 0x00[0x4f]
[…0x50…]
0x27351…27371 (24, 0, 81) 01 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ┆ ┆
0x27371…27391 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 ┆ ┆
0x27391…273a0 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ┆ ┆
0x273a0…273ef (25, 0, 0) 0x00[0x4f]
[…0x50…]
0x28c9f…28cbf (25, 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 ┆ ┆
0x28cbf…28cdf 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 ┆ ┆
0x28cdf…28cee ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ┆ ┆