|
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 D I P Q S q r
Length: 140178 (0x22392)
Description: Bits:30008661 DDMQ1-0101_DEMO_MSAB-SEARCH_STEST_123456701-123458199_part1
Types: 8" Floppy Disk
| flag | nrec | reclen | rec_trk | t0 | tn | name | artifact |
|---|---|---|---|---|---|---|---|
| 0 | 9 | 255 | 15 | 1 | 1 | DISK | ⟦98fb93e76⟧ Q1_HexDump, reclen=255, q1file |
| 0 | 4 | 40 | 50 | 0 | 0 | INDEX | ⟦ae8789431⟧ Q1_HexDump, reclen=40, q1file |
| 0 | 3 | 255 | 15 | 2 | 2 | ⟦e120d8c13⟧ Q1_HexDump, reclen=255, q1file | |
| 0 | 1499 | 80 | 40 | 3 | 42 | STEST | ⟦3ac3631fe⟧ Q1_Text, reclen=80, q1file |
0x00000…00028 (0, 0, 0) Catalog {f0=0x0000, name=»INDEX «, nrec=0x0004, reclen=0x0028, rectrack=0x0032, track0=0x0000, trackn=0x0000}
0x00028…00050 (0, 0, 1) Catalog {f0=0x0000, name=»DISK «, nrec=0x0009, reclen=0x00ff, rectrack=0x000f, track0=0x0001, trackn=0x0001}
0x00050…00078 (0, 0, 2) Catalog {f0=0x0000, name=»PRINT «, nrec=0x0003, reclen=0x00ff, rectrack=0x000f, track0=0x0002, trackn=0x0002}
0x00078…000a0 (0, 0, 3) Catalog {f0=0x0000, name=»STEST «, nrec=0x05db, reclen=0x0050, rectrack=0x0028, track0=0x0003, trackn=0x002a}
0x000a0…000c0 (0, 0, 4) 09 00 01 20 20 20 20 20 20 20 09 00 ff 00 0f 02 00 00 00 00 00 00 08 00 00 00 00 00 00 00 00 00 ┆ ┆
0x000c0…000c8 00 00 00 00 00 00 00 00 ┆ ┆
0x000c8…000e8 (0, 0, 5) 09 00 01 20 20 20 20 20 20 20 09 00 ff 00 0f 02 00 00 00 00 00 00 08 00 00 00 00 00 00 00 00 00 ┆ ┆
0x000e8…000f0 00 00 00 00 00 00 00 00 ┆ ┆
0x000f0…00110 (0, 0, 6) 09 00 01 20 20 20 20 20 20 20 09 00 ff 00 0f 02 fe 00 fe 00 00 00 08 00 00 00 00 00 00 00 00 00 ┆ ┆
0x00110…00118 00 00 00 00 00 00 00 00 ┆ ┆
0x00118…00138 (0, 0, 7) 09 00 01 20 20 20 20 20 20 20 09 00 ff 00 0f 02 00 00 00 00 00 00 08 00 00 00 00 00 00 00 00 00 ┆ ┆
0x00138…00140 00 00 00 00 00 00 00 00 ┆ ┆
0x00140…00160 (0, 0, 8) 00 00 00 00 00 00 00 00 00 00 00 00 ff ff ff ff 10 fa ff ff ff ff 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x00160…00168 00 00 00 00 00 00 00 00 ┆ ┆
0x00168…00188 (0, 0, 9) ff ff 00 ff ff 10 10 10 10 10 78 10 78 10 10 10 10 9d 10 10 10 80 00 00 00 00 00 00 00 00 00 00 ┆ x x ┆
0x00188…00190 00 00 00 00 00 00 00 00 ┆ ┆
0x00190…001b0 (0, 0, 10) ef ef 00 ef ef ef ef ef ef ef ef ef ef ef ef 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x001b0…001b8 00 00 00 00 00 00 00 00 ┆ ┆
0x001b8…001d8 (0, 0, 11) 00 00 00 00 00 00 00 00 00 10 ff ff ff ff 10 fa ff ff ff ff ff ff 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x001d8…001e0 00 00 00 00 00 00 00 00 ┆ ┆
0x001e0…00200 (0, 0, 12) ff ff 00 10 10 10 10 10 78 10 78 10 10 10 10 9d 10 10 10 81 ef ef 00 00 00 00 00 00 00 00 00 00 ┆ x x ┆
0x00200…00208 00 00 00 00 00 00 00 00 ┆ ┆
0x00208…00228 (0, 0, 13) ef ef 00 ef ef ef ef ef ef ef ef ef ef 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x00228…00230 00 00 00 00 00 00 00 00 ┆ ┆
0x00230…00250 (0, 0, 14) 00 00 00 00 00 00 00 10 ff ff ff ff 10 fa ff ff ff ff ff ff ff ff 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x00250…00258 00 00 00 00 00 00 00 00 ┆ ┆
0x00258…00278 (0, 0, 15) ff 10 00 10 10 10 78 10 78 10 10 10 10 95 10 10 10 80 ef ef ef ef 00 00 00 00 00 00 00 00 00 00 ┆ x x ┆
0x00278…00280 00 00 00 00 00 00 00 00 ┆ ┆
0x00280…002a0 (0, 0, 16) ef ef 00 ef ef ef ef ef ef ef ef 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x002a0…002a8 00 00 00 00 00 00 00 00 ┆ ┆
0x002a8…002c8 (0, 0, 17) 00 00 00 00 00 10 ff ff ff ff 10 fa ff ff ff ff ff ff ff ff ff 10 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x002c8…002d0 00 00 00 00 00 00 00 00 ┆ ┆
0x002d0…002f0 (0, 0, 18) 10 10 00 10 78 10 78 10 10 10 10 91 10 10 10 0f 09 07 09 32 47 07 00 00 00 00 00 00 00 00 00 00 ┆ x x 2G ┆
0x002f0…002f8 00 00 00 00 00 00 00 00 ┆ ┆
0x002f8…00318 (0, 0, 19) 47 03 00 00 ef ef ef ef ef 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆G ┆
0x00318…00320 00 00 00 00 00 00 00 00 ┆ ┆
0x00320…00340 (0, 0, 20) 00 00 00 10 ff ff ff ff 10 fa ff ff ff ff ff ff ff ff ff 10 10 10 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x00340…00348 00 00 00 00 00 00 00 00 ┆ ┆
0x00348…00368 (0, 0, 21) 10 10 00 10 78 10 10 10 10 95 10 10 10 81 ef ef ef ef ef ef ef ef 00 00 00 00 00 00 00 00 00 00 ┆ x ┆
0x00368…00370 00 00 00 00 00 00 00 00 ┆ ┆
0x00370…00390 (0, 0, 22) ef ef 00 ef ef ef ef 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x00390…00398 00 00 00 00 00 00 00 00 ┆ ┆
0x00398…003b8 (0, 0, 23) 00 10 00 ff ff ff 10 fa ff ff ff ff ff ff ff ff ff 10 10 10 10 10 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x003b8…003c0 00 00 00 00 00 00 00 00 ┆ ┆
0x003c0…003e0 (0, 0, 24) 78 10 00 10 10 10 10 95 10 10 10 81 ef ef ef ef ef ef ef ef ef ef 00 00 00 00 00 00 00 00 00 00 ┆x ┆
0x003e0…003e8 00 00 00 00 00 00 00 00 ┆ ┆
0x003e8…00408 (0, 0, 25) ef ef 00 ef ef 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 10 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x00408…00410 00 00 00 00 00 00 00 00 ┆ ┆
0x00410…00430 (0, 0, 26) ff ff 00 ff 10 fa ff ff ff ff ff ff ff ff ff 10 10 10 10 10 f8 10 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x00430…00438 00 00 00 00 00 00 00 00 ┆ ┆
0x00438…00458 (0, 0, 27) 78 10 00 10 10 95 10 10 10 80 ef ef ef ef ef ef ef ef ef ef ef ef 00 00 00 00 00 00 00 00 00 00 ┆x ┆
0x00458…00460 00 00 00 00 00 00 00 00 ┆ ┆
0x00460…00480 (0, 0, 28) ef ef 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 10 ff ff 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x00480…00488 00 00 00 00 00 00 00 00 ┆ ┆
0x00488…004a8 (0, 0, 29) ff ff 00 fa ff ff ff ff ff ff ff ff ff 10 10 10 10 10 78 10 78 10 00 00 00 00 00 00 00 00 00 00 ┆ x x ┆
0x004a8…004b0 00 00 00 00 00 00 00 00 ┆ ┆
0x004b0…004d0 (0, 0, 30) 10 10 00 95 10 10 10 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x004d0…004d8 00 00 00 00 00 00 00 00 ┆ ┆
0x004d8…004f8 (0, 0, 31) 20 20 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x004f8…00500 00 00 00 00 00 00 00 00 ┆ ┆
0x00500…00520 (0, 0, 32) 20 20 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x00520…00528 00 00 00 00 00 00 00 00 ┆ ┆
0x00528…00548 (0, 0, 33) 20 20 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x00548…00550 00 00 00 00 00 00 00 00 ┆ ┆
0x00550…00570 (0, 0, 34) 20 20 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x00570…00578 00 00 00 00 00 00 00 00 ┆ ┆
0x00578…00598 (0, 0, 35) 20 20 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x00598…005a0 00 00 00 00 00 00 00 00 ┆ ┆
0x005a0…005c0 (0, 0, 36) 20 20 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x005c0…005c8 00 00 00 00 00 00 00 00 ┆ ┆
0x005c8…005e8 (0, 0, 37) 20 20 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x005e8…005f0 00 00 00 00 00 00 00 00 ┆ ┆
0x005f0…00610 (0, 0, 38) 20 20 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x00610…00618 00 00 00 00 00 00 00 00 ┆ ┆
0x00618…00638 (0, 0, 39) 20 20 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x00638…00640 00 00 00 00 00 00 00 00 ┆ ┆
0x00640…00660 (0, 0, 40) 20 20 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x00660…00668 00 00 00 00 00 00 00 00 ┆ ┆
0x00668…00688 (0, 0, 41) 20 20 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x00688…00690 00 00 00 00 00 00 00 00 ┆ ┆
0x00690…006b0 (0, 0, 42) 20 20 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x006b0…006b8 00 00 00 00 00 00 00 00 ┆ ┆
0x006b8…006d8 (0, 0, 43) 20 20 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x006d8…006e0 00 00 00 00 00 00 00 00 ┆ ┆
0x006e0…00700 (0, 0, 44) 20 20 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x00700…00708 00 00 00 00 00 00 00 00 ┆ ┆
0x00708…00728 (0, 0, 45) 20 20 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x00728…00730 00 00 00 00 00 00 00 00 ┆ ┆
0x00730…00750 (0, 0, 46) 20 20 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x00750…00758 00 00 00 00 00 00 00 00 ┆ ┆
0x00758…00778 (0, 0, 47) 20 20 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x00778…00780 00 00 00 00 00 00 00 00 ┆ ┆
0x00780…007a0 (0, 0, 48) 20 20 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x007a0…007a8 00 00 00 00 00 00 00 00 ┆ ┆
0x007a8…007c8 (0, 0, 49) 20 20 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x007c8…007d0 00 00 00 00 00 00 00 00 ┆ ┆
0x007d0…008cf (1, 0, 0) DataSector[0xff]
[…0x8…]
0x010c7…011c6 (1, 0, 9) 0x00[0xff]
[…0x5…]
0x016c1…017c0 (2, 0, 0) DataSector[0xff]
[…0x2…]
0x019be…01abd (2, 0, 3) 0x00[0xff]
[…0xb…]
0x025b2…02602 (3, 0, 0) DataSector[0x50]
[…0x5da…]
0x1fa22…1fa72 (40, 0, 19) 0x00[0x50]
[…0x64…]
0x219b2…219d2 (43, 0, 0) 2f 2a 46 5c 52 53 54 41 20 52 41 44 45 4e 2a 2f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆/*FÖRSTA RADEN*/ ┆
0x219d2…219f2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x219f2…21a01 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x21a01…21a21 (43, 0, 1) 44 43 4c 20 31 20 4d 31 28 31 30 30 29 2c 32 20 41 31 20 43 48 41 52 28 39 29 2c 32 20 42 31 20 ┆DCL 1 M1(100),2 A1 CHAR(9),2 B1 ┆
0x21a21…21a41 43 48 41 52 28 37 31 29 2c 31 20 48 31 28 31 30 30 29 2c 32 20 43 31 20 43 48 41 52 28 39 29 2c ┆CHAR(71),1 H1(100),2 C1 CHAR(9),┆
0x21a41…21a50 32 20 44 31 20 42 49 4e 41 52 59 3b 20 20 20 ┆2 D1 BINARY; ┆
0x21a50…21a70 (43, 0, 2) 44 43 4c 20 31 20 4d 32 28 32 30 29 2c 32 20 41 32 20 43 48 41 52 28 39 29 2c 32 20 42 32 20 43 ┆DCL 1 M2(20),2 A2 CHAR(9),2 B2 C┆
0x21a70…21a90 48 41 52 28 37 31 29 3b 44 43 4c 20 31 20 48 32 28 32 30 29 2c 32 20 43 32 20 43 48 41 52 28 39 ┆HAR(71);DCL 1 H2(20),2 C2 CHAR(9┆
0x21a90…21a9f 29 2c 32 20 44 32 20 42 49 4e 41 52 59 3b 20 ┆),2 D2 BINARY; ┆
0x21a9f…21abf (43, 0, 3) 44 43 4c 20 31 20 4d 33 28 35 29 2c 32 20 41 33 20 43 48 41 52 28 39 29 2c 32 20 42 33 20 43 48 ┆DCL 1 M3(5),2 A3 CHAR(9),2 B3 CH┆
0x21abf…21adf 41 52 28 37 31 29 3b 44 43 4c 20 31 20 48 33 28 35 29 2c 32 20 43 33 20 43 48 41 52 28 39 29 2c ┆AR(71);DCL 1 H3(5),2 C3 CHAR(9),┆
0x21adf…21aee 32 20 44 33 20 42 49 4e 41 52 59 3b 20 20 20 ┆2 D3 BINARY; ┆
0x21aee…21b0e (43, 0, 4) 44 43 4c 20 31 20 4d 34 2c 32 20 41 34 20 43 48 41 52 28 39 29 2c 32 20 42 34 20 43 48 41 52 28 ┆DCL 1 M4,2 A4 CHAR(9),2 B4 CHAR(┆
0x21b0e…21b2e 37 31 29 3b 44 43 4c 20 31 20 48 34 2c 32 20 43 34 20 43 48 41 52 28 39 29 2c 32 20 44 34 20 42 ┆71);DCL 1 H4,2 C4 CHAR(9),2 D4 B┆
0x21b2e…21b3d 49 4e 41 52 59 3b 20 20 20 20 20 20 20 20 20 ┆INARY; ┆
0x21b3d…21b5d (43, 0, 5) 44 43 4c 20 52 45 43 20 42 49 4e 41 52 59 2c 58 52 45 43 20 42 49 4e 41 52 59 2c 4d 41 49 4e 20 ┆DCL REC BINARY,XREC BINARY,MAIN ┆
0x21b5d…21b7d 46 49 4c 45 2c 41 49 44 20 46 49 4c 45 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆FILE,AID FILE; ┆
0x21b7d…21b8c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x21b8c…21bac (43, 0, 6) 43 41 4c 4c 20 4b 46 49 4c 45 28 4d 41 49 4e 29 3b 43 41 4c 4c 20 4b 46 49 4c 45 28 41 49 44 29 ┆CALL KFILE(MAIN);CALL KFILE(AID)┆
0x21bac…21bcc 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆; ┆
0x21bcc…21bdb 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x21bdb…21bfb (43, 0, 7) 4f 50 45 4e 20 41 49 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 ┆OPEN AID; ┆
0x21bfb…21c1b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x21c1b…21c2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x21c2a…21c4a (43, 0, 8) 44 4f 20 49 3d 31 20 54 4f 20 33 3b 4a 3d 28 49 2d 31 29 2a 31 30 30 30 30 3b 52 45 43 3d 30 3b ┆DO I=1 TO 3;J=(I-1)*10000;REC=0;┆
0x21c4a…21c6a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x21c6a…21c79 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x21c79…21c99 (43, 0, 9) 43 41 4c 4c 20 43 48 4f 4f 53 45 28 49 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆CALL CHOOSE(I); ┆
0x21c99…21cb9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x21cb9…21cc8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x21cc8…21ce8 (43, 0, 10) 4f 4e 20 45 52 52 4f 52 20 47 4f 20 54 4f 20 55 54 31 3b 4f 50 45 4e 20 4d 41 49 4e 3b 20 20 20 ┆ON ERROR GO TO UT1;OPEN MAIN; ┆
0x21ce8…21d08 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x21d08…21d17 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x21d17…21d37 (43, 0, 11) 49 4e 31 3a 4f 4e 20 45 4e 44 46 49 4c 45 20 47 4f 20 54 4f 20 49 4e 32 3b 52 45 41 44 20 46 49 ┆IN1:ON ENDFILE GO TO IN2;READ FI┆
0x21d37…21d57 4c 45 28 4d 41 49 4e 29 49 4e 54 4f 28 4d 31 29 3b 52 45 43 3d 55 4e 53 50 45 43 28 4d 41 49 4e ┆LE(MAIN)INTO(M1);REC=UNSPEC(MAIN┆
0x21d57…21d66 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆); ┆
0x21d66…21d86 (43, 0, 12) 44 4f 20 4b 3d 31 20 54 4f 20 31 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆DO K=1 TO 100; ┆
0x21d86…21da6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x21da6…21db5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x21db5…21dd5 (43, 0, 13) 4d 34 3d 4d 31 28 4b 29 3b 43 34 3d 41 34 3b 44 34 3d 4a 2b 52 45 43 2b 4b 2d 31 30 31 3b 48 31 ┆M4=M1(K);C4=A4;D4=J+REC+K-101;H1┆
0x21dd5…21df5 28 4b 29 3d 48 34 3b 45 4e 44 3b 57 52 49 54 45 20 46 49 4c 45 28 41 49 44 29 46 52 4f 4d 28 48 ┆(K)=H4;END;WRITE FILE(AID)FROM(H┆
0x21df5…21e04 31 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆1); ┆
0x21e04…21e24 (43, 0, 14) 47 4f 20 54 4f 20 49 4e 31 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆GO TO IN1; ┆
0x21e24…21e44 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x21e44…21e53 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x21e53…21e73 (43, 0, 15) 49 4e 32 3a 55 4e 53 50 45 43 28 4d 41 49 4e 29 3d 52 45 43 3b 20 20 20 20 20 20 20 20 20 20 20 ┆IN2:UNSPEC(MAIN)=REC; ┆
0x21e73…21e93 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x21e93…21ea2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x21ea2…21ec2 (43, 0, 16) 49 4e 32 42 3a 4f 4e 20 45 4e 44 46 49 4c 45 20 47 4f 20 54 4f 20 49 4e 33 3b 52 45 41 44 20 46 ┆IN2B:ON ENDFILE GO TO IN3;READ F┆
0x21ec2…21ee2 49 4c 45 28 4d 41 49 4e 29 49 4e 54 4f 28 4d 32 29 3b 52 45 43 3d 55 4e 53 50 45 43 28 4d 41 49 ┆ILE(MAIN)INTO(M2);REC=UNSPEC(MAI┆
0x21ee2…21ef1 4e 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆N); ┆
0x21ef1…21f11 (43, 0, 17) 44 4f 20 4b 3d 31 20 54 4f 20 32 30 3b 4d 34 3d 4d 32 28 4b 29 3b 43 34 3d 41 34 3b 44 34 3d 4a ┆DO K=1 TO 20;M4=M2(K);C4=A4;D4=J┆
0x21f11…21f31 2b 52 45 43 2b 4b 2d 32 31 3b 48 32 28 4b 29 3d 48 34 3b 45 4e 44 3b 57 52 49 54 45 20 46 49 4c ┆+REC+K-21;H2(K)=H4;END;WRITE FIL┆
0x21f31…21f40 45 28 41 49 44 29 46 52 4f 4d 28 48 32 29 3b ┆E(AID)FROM(H2);┆
0x21f40…21f60 (43, 0, 18) 47 4f 20 54 4f 20 49 4e 32 42 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆GO TO IN2B; ┆
0x21f60…21f80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x21f80…21f8f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x21f8f…21faf (43, 0, 19) 49 4e 33 3a 55 4e 53 50 45 43 28 4d 41 49 4e 29 3d 52 45 43 3b 20 20 20 20 20 20 20 20 20 20 20 ┆IN3:UNSPEC(MAIN)=REC; ┆
0x21faf…21fcf 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x21fcf…21fde 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x21fde…21ffe (43, 0, 20) 49 4e 33 42 3a 4f 4e 20 45 4e 44 46 49 4c 45 20 47 4f 20 54 4f 20 49 4e 34 3b 52 45 41 44 20 46 ┆IN3B:ON ENDFILE GO TO IN4;READ F┆
0x21ffe…2201e 49 4c 45 28 4d 41 49 4e 29 49 4e 54 4f 28 4d 33 29 3b 52 45 43 3d 55 4e 53 50 45 43 28 4d 41 49 ┆ILE(MAIN)INTO(M3);REC=UNSPEC(MAI┆
0x2201e…2202d 4e 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆N); ┆
0x2202d…2204d (43, 0, 21) 44 4f 20 4b 3d 31 20 54 4f 20 35 3b 4d 34 3d 4d 33 28 4b 29 3b 43 34 3d 41 34 3b 44 34 3d 4a 2b ┆DO K=1 TO 5;M4=M3(K);C4=A4;D4=J+┆
0x2204d…2206d 52 45 43 2b 4b 2d 36 3b 48 33 28 4b 29 3d 48 34 3b 45 4e 44 3b 57 52 49 54 45 20 46 49 4c 45 28 ┆REC+K-6;H3(K)=H4;END;WRITE FILE(┆
0x2206d…2207c 41 49 44 29 46 52 4f 4d 28 48 33 29 3b 20 20 ┆AID)FROM(H3); ┆
0x2207c…2209c (43, 0, 22) 47 4f 20 54 4f 20 49 4e 33 42 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆GO TO IN3B; ┆
0x2209c…220bc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x220bc…220cb 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x220cb…220eb (43, 0, 23) 49 4e 34 3a 55 4e 53 50 45 43 28 4d 41 49 4e 29 3d 52 45 43 3b 20 20 20 20 20 20 20 20 20 20 20 ┆IN4:UNSPEC(MAIN)=REC; ┆
0x220eb…2210b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2210b…2211a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2211a…2213a (43, 0, 24) 49 4e 34 42 3a 4f 4e 20 45 4e 44 46 49 4c 45 20 47 4f 20 54 4f 20 55 54 31 3b 52 45 41 44 20 46 ┆IN4B:ON ENDFILE GO TO UT1;READ F┆
0x2213a…2215a 49 4c 45 28 4d 41 49 4e 29 49 4e 54 4f 28 4d 34 29 3b 52 45 43 3d 55 4e 53 50 45 43 28 4d 41 49 ┆ILE(MAIN)INTO(M4);REC=UNSPEC(MAI┆
0x2215a…22169 4e 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆N); ┆
0x22169…22189 (43, 0, 25) 43 34 3d 41 34 3b 44 34 3d 4a 2b 52 45 43 2d 31 3b 57 52 49 54 45 20 46 49 4c 45 28 41 49 44 29 ┆C4=A4;D4=J+REC-1;WRITE FILE(AID)┆
0x22189…221a9 46 52 4f 4d 28 48 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 ┆FROM(H4); ┆
0x221a9…221b8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x221b8…221d8 (43, 0, 26) 47 4f 20 54 4f 20 49 4e 34 42 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆GO TO IN4B; ┆
0x221d8…221f8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x221f8…22207 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x22207…22227 (43, 0, 27) 55 54 31 3a 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 ┆UT1:END; ┆
0x22227…22247 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x22247…22256 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x22256…22276 (43, 0, 28) 43 4c 4f 53 45 20 41 49 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆CLOSE AID; ┆
0x22276…22296 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x22296…222a5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x222a5…222c5 (43, 0, 29) 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 ┆CALL CHOOSE(0); ┆
0x222c5…222e5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x222e5…222f4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x222f4…22314 (43, 0, 30) 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆END; ┆
0x22314…22334 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x22334…22343 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x22343…22392 (43, 0, 31) 0x20[0x4f]