DataMuseum.dk Presents historical artifacts from the history of: CP/M

This is an automatic "excavation" of a thematic subset of artifacts from Datamuseum.dk's BitArchive. See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software.

top - download

⟦1a1ae220f⟧ Bits:30004190 COMPAS Pascal v.2.2, 5¼" Floppy Disk, CpmFSAuto, ImdContainer

    Length: 204800 (0x32000)
    Description: Bits:30004190 COMPAS Pascal v.2.2
    Types: 5¼" Floppy Disk, CpmFSAuto, ImdContainer
    Notes: CpmFSAuto,512,1024,32,0x0,1<3<2,2:0-39:0

Media:             [0, 0, 1] … [39, 0, 10] {512: 400}
Signature:         CpmFSAuto,512,1024,32,0x0,1<3<2,2:0-39:0
Confidence score:  +25/-0
Sector size:       512
Block size:        1024
Directory entries: 32
Block number size: 8
Extent-mask:       0x00
Sector-interleave: 1, 4, 7, 10, 3, 6, 9, 2, 5, 8
Tracks:            (2, 0), (3, 0), (4, 0), (5, 0), (6, 0), (7, 0) […] (34, 0), (35, 0), (36, 0), (37, 0), (38, 0), (39, 0)

0x00000…00020 (0, 0, 1)   e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5   ┆                                ┆
         […0x13f…]
0x02800…02820 (2, 0, 1)   [0, 'COMPAS.COM', 0, 128, 'xl=00', 'bc=00', 'xh=00', 'rc=80', '0-0-0-0-0-0-0-0-0-0-0', [2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17]]
0x02820…02840             [0, 'COMPAS.COM', 1, 68, 'xl=01', 'bc=00', 'xh=00', 'rc=44', '0-0-0-0-0-0-0-0-0-0-0', [18, 19, 20, 21, 22, 23, 24, 25, 26, 0, 0, 0, 0, 0, 0, 0]]
0x02840…02860             [0, 'COMPAS.HLP', 0, 92, 'xl=00', 'bc=00', 'xh=00', 'rc=5c', '0-0-0-0-0-0-0-0-0-0-0', [27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 0, 0, 0, 0]]
0x02860…02880             [0, 'COMPAS.ERM', 0, 18, 'xl=00', 'bc=00', 'xh=00', 'rc=12', '0-0-0-0-0-0-0-0-0-0-0', [39, 40, 41, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02880…028a0             [0, 'CONFIG.COM', 0, 128, 'xl=00', 'bc=00', 'xh=00', 'rc=80', '0-0-0-0-0-0-0-0-0-0-0', [42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57]]
0x028a0…028c0             [0, 'CONFIG.COM', 1, 128, 'xl=01', 'bc=00', 'xh=00', 'rc=80', '0-0-0-0-0-0-0-0-0-0-0', [58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73]]
0x028c0…028e0             [0, 'CONFIG.COM', 2, 32, 'xl=02', 'bc=00', 'xh=00', 'rc=20', '0-0-0-0-0-0-0-0-0-0-0', [74, 75, 76, 77, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x028e0…02900             [0, 'CONFIG.DAT', 0, 128, 'xl=00', 'bc=00', 'xh=00', 'rc=80', '0-0-0-0-0-0-0-0-0-0-0', [78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93]]
0x02900…02920             [0, 'CONFIG.DAT', 1, 128, 'xl=01', 'bc=00', 'xh=00', 'rc=80', '0-0-0-0-0-0-0-0-0-0-0', [94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109]]
0x02920…02940             [0, 'CONFIG.DAT', 2, 11, 'xl=02', 'bc=00', 'xh=00', 'rc=0b', '0-0-0-0-0-0-0-0-0-0-0', [110, 111, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02940…02960             [0, 'CONFIG.PAS', 0, 97, 'xl=00', 'bc=00', 'xh=00', 'rc=61', '0-0-0-0-0-0-0-0-0-0-0', [112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 0, 0, 0]]
0x02960…02980             [0, 'CFIGIF.PAS', 0, 128, 'xl=00', 'bc=00', 'xh=00', 'rc=80', '0-0-0-0-0-0-0-0-0-0-0', [125, 126, 127, 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140]]
0x02980…029a0             [0, 'CFIGIF.PAS', 1, 57, 'xl=01', 'bc=00', 'xh=00', 'rc=39', '0-0-0-0-0-0-0-0-0-0-0', [141, 142, 143, 144, 145, 146, 147, 148, 0, 0, 0, 0, 0, 0, 0, 0]]
0x029a0…029c0             [0, 'CALC.PAS', 0, 34, 'xl=00', 'bc=00', 'xh=00', 'rc=22', '0-0-0-0-0-0-0-0-0-0-0', [149, 150, 151, 152, 153, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x029c0…029e0             [0, 'HEXDUMP.PAS', 0, 17, 'xl=00', 'bc=00', 'xh=00', 'rc=11', '0-0-0-0-0-0-0-0-0-0-0', [154, 155, 156, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x029e0…02a00             [0, 'PRIMES.PAS', 0, 10, 'xl=00', 'bc=00', 'xh=00', 'rc=0a', '0-0-0-0-0-0-0-0-0-0-0', [157, 158, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02a00…02c00 (2, 0, 2)   DataBlock {»COMPAS.COM«}
         […0x1…]
0x02e00…02e20 (2, 0, 4)   [0, 'CROSSREF.PAS', 0, 92, 'xl=00', 'bc=00', 'xh=00', 'rc=5c', '0-0-0-0-0-0-0-0-0-0-0', [159, 160, 161, 162, 163, 164, 165, 166, 167, 168, 169, 170, 0, 0, 0, 0]]
0x02e20…02e40             Dirent {Status=0xe5}
         […0xe…]
0x03000…03200 (2, 0, 5)   DataBlock {»COMPAS.COM«}
         […0x1…]
0x03400…03420 (2, 0, 7)   e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5   ┆                                ┆
         […0xf…]
0x03600…03800 (2, 0, 8)   DataBlock {»COMPAS.COM«}
         […0x1…]
0x03a00…03a20 (2, 0, 10)  e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5   ┆                                ┆
         […0xf…]
0x03c00…03e00 (3, 0, 1)   DataBlock {»COMPAS.COM«}
         […0x28…]
0x08e00…09000 (7, 0, 2)   DataBlock {»COMPAS.HLP«}
         […0x1…]
0x09200…09400 (7, 0, 4)   DataBlock {»COMPAS.COM«}
0x09400…09600 (7, 0, 5)   DataBlock {»COMPAS.HLP«}
         […0x1…]
0x09800…09a00 (7, 0, 7)   DataBlock {»COMPAS.COM«}
0x09a00…09c00 (7, 0, 8)   DataBlock {»COMPAS.HLP«}
         […0x1…]
0x09e00…09e20 (7, 0, 10)  e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5   ┆                                ┆
         […0xf…]
0x0a000…0a200 (8, 0, 1)   DataBlock {»COMPAS.HLP«}
         […0xa…]
0x0b600…0b620 (9, 0, 2)   e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5   ┆                                ┆
         […0xf…]
0x0b800…0ba00 (9, 0, 3)   DataBlock {»COMPAS.HLP«}
         […0x1…]
0x0bc00…0be00 (9, 0, 5)   DataBlock {»COMPAS.ERM«}
0x0be00…0c000 (9, 0, 6)   DataBlock {»COMPAS.HLP«}
         […0x1…]
0x0c200…0c400 (9, 0, 8)   DataBlock {»COMPAS.ERM«}
0x0c400…0c600 (9, 0, 9)   DataBlock {»COMPAS.HLP«}
         […0x1…]
0x0c800…0ca00 (10, 0, 1)  DataBlock {»COMPAS.ERM«}
0x0ca00…0cc00 (10, 0, 2)  DataBlock {»CONFIG.COM«}
         […0x1…]
0x0ce00…0d000 (10, 0, 4)  DataBlock {»COMPAS.ERM«}
0x0d000…0d200 (10, 0, 5)  DataBlock {»CONFIG.COM«}
         […0x1…]
0x0d400…0d500 (10, 0, 7)  DataBlock {»COMPAS.ERM«}
0x0d500…0d520             0d 0a 38 30 26 59 73 74 72 75 6b 74 75 72 65 72 65 74 20 26 43 0d 0a 38 31 4b 6f 6e 73 74 61 6e   ┆  80&Ystruktureret &C  81Konstan┆
0x0d520…0d540             74 20 75 64 65 6e 66 6f 72 20 74 69 6c 6c 61 64 74 65 20 67 72 7b 6e 73 65 72 0d 0a 38 32 46 69   ┆t udenfor tilladte grænser  82Fi┆
0x0d540…0d560             6c 65 72 20 6f 67 20 70 6f 69 6e 74 65 72 65 26 54 0d 0a 38 33 46 65 6a 6c 61 67 74 69 67 20 62   ┆ler og pointere&T  83Fejlagtig b┆
0x0d560…0d580             72 75 67 20 61 66 20 72 65 26 41 2d 66 61 63 69 6c 69 74 65 74 0d 0a 38 34 26 57 26 42 26 46 0d   ┆rug af re&A-facilitet  84&W&B&F ┆
0x0d580…0d5a0             0a 38 35 53 26 4a 26 56 26 46 0d 0a 38 36 54 65 6b 73 74 26 47 20 6f 67 20 26 41 6c 7c 73 65 20   ┆ 85S&J&V&F  86Tekst&G og &Aløse ┆
0x0d5a0…0d5c0             26 47 26 54 0d 0a 38 37 54 79 70 65 6c 7c 73 20 66 69 6c 26 46 0d 0a 38 38 50 6f 69 6e 74 65 72   ┆&G&T  87Typeløs fil&F  88Pointer┆
0x0d5c0…0d5e0             26 56 26 46 0d 0a 38 39 26 57 26 56 26 46 0d 0a 39 30 49 26 48 20 26 56 26 46 0d 0a 39 31 52 65   ┆&V&F  89&W&V&F  90I&H &V&F  91Re┆
0x0d5e0…0d600             73 65 72 76 65 72 65 74 20 6f 72 64 0d 0a 39 32 4c 61 62 65 6c 20 65 72 26 58 20 69 6e 64 65 6e   ┆serveret ord  92Label er&X inden┆
0x0d600…0d800 (10, 0, 8)  DataBlock {»CONFIG.COM«}
         […0x1…]
0x0da00…0da20 (10, 0, 10) e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5   ┆                                ┆
         […0xf…]
0x0dc00…0de00 (11, 0, 1)  DataBlock {»CONFIG.COM«}
         […0x3c…]
0x15600…15800 (17, 0, 2)  DataBlock {»CONFIG.DAT«}
0x15800…15a00 (17, 0, 3)  DataBlock {»CONFIG.COM«}
         […0x1…]
0x15c00…15e00 (17, 0, 5)  DataBlock {»CONFIG.DAT«}
0x15e00…16000 (17, 0, 6)  DataBlock {»CONFIG.COM«}
         […0x1…]
0x16200…16400 (17, 0, 8)  DataBlock {»CONFIG.DAT«}
         […0x1…]
0x16600…16800 (17, 0, 10) DataBlock {»CONFIG.COM«}
0x16800…16a00 (18, 0, 1)  DataBlock {»CONFIG.DAT«}
         […0x3c…]
0x1e200…1e400 (24, 0, 2)  DataBlock {»CONFIG.PAS«}
         […0x1…]
0x1e600…1e800 (24, 0, 4)  DataBlock {»CONFIG.DAT«}
0x1e800…1ea00 (24, 0, 5)  DataBlock {»CONFIG.PAS«}
         […0x1…]
0x1ec00…1ed80 (24, 0, 7)  DataBlock {»CONFIG.DAT«}
0x1ed80…1eda0             00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 19 00 02 0d 00   ┆                                ┆
0x1eda0…1edc0             30 5f ca 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00   ┆0_                              ┆
0x1edc0…1ede0             00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00   ┆                                ┆
         […0x1…]
0x1ee00…1f000 (24, 0, 8)  DataBlock {»CONFIG.PAS«}
         […0x1…]
0x1f200…1f220 (24, 0, 10) e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5   ┆                                ┆
         […0xf…]
0x1f400…1f600 (25, 0, 1)  DataBlock {»CONFIG.PAS«}
         […0xe…]
0x21080…210a0             20 20 57 52 49 54 45 4c 4e 3b 0d 0a 20 20 20 20 57 52 49 54 45 4c 4e 28 27 43 55 52 52 45 4e 54   ┆  WRITELN;      WRITELN('CURRENT┆
0x210a0…210c0             20 43 4f 4e 46 49 47 55 52 41 54 49 4f 4e 3a 20 27 2c 44 41 54 41 2e 43 4f 4e 46 4e 41 4d 45 29   ┆ CONFIGURATION: ',DATA.CONFNAME)┆
0x210c0…210e0             3b 0d 0a 20 20 20 20 57 52 49 54 45 4c 4e 3b 0d 0a 20 20 20 20 43 48 3a 3d 53 45 4c 45 43 54 28   ┆;      WRITELN;      CH:=SELECT(┆
0x210e0…21100             27 46 75 6e 63 74 69 6f 6e 28 31 2d 33 29 2c 20 45 78 69 74 28 58 29 2c 20 48 65 6c 70 28 59 29   ┆'Function(1-3), Exit(X), Help(Y)┆
0x21100…21120             27 2c 5b 27 31 27 2e 2e 27 33 27 2c 27 58 27 2c 27 59 27 5d 29 3b 0d 0a 20 20 20 20 43 41 53 45   ┆',Æ'1'..'3','X','Y'Å);      CASE┆
0x21120…21140             20 43 48 20 4f 46 0d 0a 20 20 20 20 20 20 27 31 27 3a 20 4c 53 43 4f 4e 46 49 47 28 54 52 55 45   ┆ CH OF        '1': LSCONFIG(TRUE┆
0x21140…21160             29 3b 0d 0a 20 20 20 20 20 20 27 32 27 3a 20 43 4f 4e 46 49 47 55 52 45 3b 0d 0a 20 20 20 20 20   ┆);        '2': CONFIGURE;       ┆
0x21160…21180             20 27 33 27 3a 20 4c 53 43 4f 4e 46 49 47 28 46 41 4c 53 45 29 3b 0d 0a 20 20 20 20 20 20 27 59   ┆ '3': LSCONFIG(FALSE);        'Y┆
0x21180…211a0             27 3a 20 48 45 4c 50 3b 0d 0a 20 20 20 20 45 4e 44 3b 0d 0a 20 20 55 4e 54 49 4c 20 43 48 3d 27   ┆': HELP;      END;    UNTIL CH='┆
0x211a0…211c0             58 27 3b 0d 0a 20 20 57 52 49 54 45 28 27 53 61 76 65 20 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e   ┆X';    WRITE('Save configuration┆
0x211c0…211e0             20 69 6e 20 27 2c 43 46 4e 2c 27 20 28 59 45 53 2f 4e 4f 29 3f 20 27 29 3b 0d 0a 20 20 49 46 20   ┆ in ',CFN,' (YES/NO)? ');    IF ┆
0x211e0…21200             52 45 41 44 59 4e 20 54 48 45 4e 0d 0a 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 50 55 54 44 41 54   ┆READYN THEN    BEGIN      PUTDAT┆
0x21200…21400 (26, 0, 6)  DataBlock {»CONFIG.PAS«}
         […0x1…]
0x21600…21620 (26, 0, 8)  e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5   ┆                                ┆
         […0xf…]
0x21800…21a00 (26, 0, 9)  DataBlock {»CONFIG.PAS«}
         […0x1…]
0x21c00…21e00 (27, 0, 1)  DataBlock {»CFIGIF.PAS«}
         […0x28…]
0x26e00…26e20 (31, 0, 2)  e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5   ┆                                ┆
         […0xf…]
0x27000…27200 (31, 0, 3)  DataBlock {»CFIGIF.PAS«}
         […0x1…]
0x27400…27600 (31, 0, 5)  DataBlock {»CALC.PAS«}
0x27600…27800 (31, 0, 6)  DataBlock {»CFIGIF.PAS«}
         […0x1…]
0x27a00…27c00 (31, 0, 8)  DataBlock {»CALC.PAS«}
0x27c00…27c80 (31, 0, 9)  DataBlock {»CFIGIF.PAS«}
0x27c80…27ca0             28 27 6d 6f 64 69 66 79 20 76 61 72 69 6f 75 73 20 73 79 73 74 65 6d 20 69 6e 66 6f 72 6d 61 74   ┆('modify various system informat┆
0x27ca0…27cc0             69 6f 6e 73 2e 27 29 3b 0d 0a 20 20 57 52 49 54 45 4c 4e 3b 0d 0a 20 20 50 52 45 53 53 52 45 54   ┆ions.');    WRITELN;    PRESSRET┆
0x27cc0…27ce0             55 52 4e 3b 0d 0a 45 4e 44 3b 0d 0a 0d 0a 42 45 47 49 4e 20 7b 43 4f 4e 46 49 47 55 52 45 7d 0d   ┆URN;  END;    BEGIN æCONFIGUREå ┆
0x27ce0…27d00             0a 20 20 57 49 54 48 20 44 41 54 41 20 44 4f 0d 0a 20 20 52 45 50 45 41 54 0d 0a 20 20 20 20 57   ┆   WITH DATA DO    REPEAT      W┆
0x27d00…27d20             52 49 54 45 4c 4e 28 27 4d 41 49 4e 20 43 4f 4e 46 49 47 55 52 41 54 49 4f 4e 20 4d 45 4e 55 3a   ┆RITELN('MAIN CONFIGURATION MENU:┆
0x27d20…27d40             27 29 3b 0d 0a 20 20 20 20 57 52 49 54 45 4c 4e 3b 0d 0a 20 20 20 20 57 52 49 54 45 4c 4e 28 27   ┆');      WRITELN;      WRITELN('┆
0x27d40…27d60             31 2e 20 43 52 54 20 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 27 29 3b 0d 0a 20 20 20 20 57 52 49   ┆1. CRT configuration');      WRI┆
0x27d60…27d80             54 45 4c 4e 28 27 32 2e 20 4b 65 79 62 6f 61 72 64 20 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 27   ┆TELN('2. Keyboard configuration'┆
0x27d80…27da0             29 3b 0d 0a 20 20 20 20 57 52 49 54 45 4c 4e 28 27 33 2e 20 4d 69 73 63 65 6c 6c 61 6e 65 6f 75   ┆);      WRITELN('3. Miscellaneou┆
0x27da0…27dc0             73 20 64 61 74 61 27 29 3b 0d 0a 20 20 20 20 57 52 49 54 45 4c 4e 3b 0d 0a 20 20 20 20 43 48 3a   ┆s data');      WRITELN;      CH:┆
0x27dc0…27de0             3d 53 45 4c 45 43 54 28 27 46 75 6e 63 74 69 6f 6e 28 31 2d 33 29 2c 20 45 78 69 74 28 58 29 2c   ┆=SELECT('Function(1-3), Exit(X),┆
0x27de0…27e00             20 48 65 6c 70 28 59 29 27 2c 5b 27 31 27 2e 2e 27 33 27 2c 27 58 27 2c 27 59 27 5d 29 3b 0d 0a   ┆ Help(Y)',Æ'1'..'3','X','Y'Å);  ┆
0x27e00…28000 (31, 0, 10) DataBlock {»CFIGIF.PAS«}
0x28000…28200 (32, 0, 1)  DataBlock {»CALC.PAS«}
0x28200…28220 (32, 0, 2)  e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5   ┆                                ┆
         […0xf…]
0x28400…28600 (32, 0, 3)  DataBlock {»CALC.PAS«}
         […0x1…]
0x28800…28a00 (32, 0, 5)  DataBlock {»HEXDUMP.PAS«}
0x28a00…28c00 (32, 0, 6)  DataBlock {»CALC.PAS«}
         […0x1…]
0x28e00…29000 (32, 0, 8)  DataBlock {»HEXDUMP.PAS«}
0x29000…29100 (32, 0, 9)  DataBlock {»CALC.PAS«}
0x29100…29120             20 7b 45 56 41 4c 55 41 54 45 7d 3b 0d 0a 0d 0a 42 45 47 49 4e 20 7b 43 41 4c 43 55 4c 41 54 4f   ┆ æEVALUATEå;    BEGIN æCALCULATO┆
0x29120…29140             52 7d 0d 0a 20 20 52 45 50 45 41 54 0d 0a 20 20 20 20 57 52 49 54 45 28 27 2a 20 27 29 3b 20 42   ┆Rå    REPEAT      WRITE('* '); B┆
0x29140…29160             55 46 4c 45 4e 3a 3d 53 54 52 4c 45 4e 3b 20 52 45 41 44 28 53 29 3b 0d 0a 20 20 20 20 49 46 20   ┆UFLEN:=STRLEN; READ(S);      IF ┆
0x29160…29180             28 53 3c 3e 27 27 29 20 41 4e 44 20 28 53 3c 3e 27 51 55 49 54 27 29 20 54 48 45 4e 0d 0a 20 20   ┆(S<>'') AND (S<>'QUIT') THEN    ┆
0x29180…291a0             20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 45 56 41 4c 55 41 54 45 28 53 2c 52 2c 45 29 3b 0d   ┆  BEGIN        EVALUATE(S,R,E); ┆
0x291a0…291c0             0a 20 20 20 20 20 20 49 46 20 45 3d 30 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 42 45 47 49 4e 0d   ┆       IF E=0 THEN        BEGIN ┆
0x291c0…291e0             0a 09 57 52 49 54 45 28 27 20 3d 27 29 3b 0d 0a 09 49 46 20 52 3e 3d 30 2e 30 20 54 48 45 4e 20   ┆  WRITE(' =');   IF R>=0.0 THEN ┆
0x291e0…29200             57 52 49 54 45 28 52 3a 31 37 29 20 45 4c 53 45 20 57 52 49 54 45 28 52 3a 31 38 29 3b 0d 0a 20   ┆WRITE(R:17) ELSE WRITE(R:18);   ┆
0x29200…29400 (32, 0, 10) DataBlock {»CALC.PAS«}
0x29400…29600 (33, 0, 1)  DataBlock {»HEXDUMP.PAS«}
0x29600…29620 (33, 0, 2)  e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5   ┆                                ┆
         […0xf…]
0x29800…29a00 (33, 0, 3)  DataBlock {»PRIMES.PAS«}
0x29a00…29c00 (33, 0, 4)  DataBlock {»HEXDUMP.PAS«}
0x29c00…29e00 (33, 0, 5)  DataBlock {»CROSSREF.PAS«}
0x29e00…2a000 (33, 0, 6)  DataBlock {»PRIMES.PAS«}
0x2a000…2a080 (33, 0, 7)  DataBlock {»HEXDUMP.PAS«}
0x2a080…2a0a0             45 2c 27 20 27 29 3b 0d 0a 09 57 52 49 54 45 28 4f 55 54 46 49 4c 45 2c 48 45 58 28 42 55 46 46   ┆E,' ');   WRITE(OUTFILE,HEX(BUFF┆
0x2a0a0…2a0c0             45 52 5b 4c 2c 50 5d 2c 32 29 3a 33 29 3b 0d 0a 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20   ┆ERÆL,PÅ,2):3);        END;      ┆
0x2a0c0…2a0e0             20 20 57 52 49 54 45 28 4f 55 54 46 49 4c 45 2c 27 20 20 27 29 3b 0d 0a 20 20 20 20 20 20 46 4f   ┆  WRITE(OUTFILE,'  ');        FO┆
0x2a0e0…2a100             52 20 50 3a 3d 30 20 54 4f 20 31 35 20 44 4f 0d 0a 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 09 43   ┆R P:=0 TO 15 DO        BEGIN   C┆
0x2a100…2a120             48 3a 3d 43 48 52 28 42 55 46 46 45 52 5b 4c 2c 50 5d 29 3b 0d 0a 09 49 46 20 28 43 48 3e 3d 40   ┆H:=CHR(BUFFERÆL,PÅ);   IF (CH>=@┆
0x2a120…2a140             33 32 29 20 41 4e 44 20 28 43 48 3c 3d 40 31 32 36 29 20 54 48 45 4e 0d 0a 09 57 52 49 54 45 28   ┆32) AND (CH<=@126) THEN   WRITE(┆
0x2a140…2a160             4f 55 54 46 49 4c 45 2c 43 48 29 20 45 4c 53 45 20 57 52 49 54 45 28 4f 55 54 46 49 4c 45 2c 27   ┆OUTFILE,CH) ELSE WRITE(OUTFILE,'┆
0x2a160…2a180             2e 27 29 3b 0d 0a 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28   ┆.');        END;        WRITELN(┆
0x2a180…2a1a0             4f 55 54 46 49 4c 45 29 3b 0d 0a 20 20 20 20 20 20 41 44 44 52 45 53 53 3a 3d 41 44 44 52 45 53   ┆OUTFILE);        ADDRESS:=ADDRES┆
0x2a1a0…2a1c0             53 2b 31 36 3b 0d 0a 20 20 20 20 20 20 49 46 20 4b 45 59 50 52 45 53 53 20 54 48 45 4e 0d 0a 20   ┆S+16;        IF KEYPRESS THEN   ┆
0x2a1c0…2a1e0             20 20 20 20 20 42 45 47 49 4e 0d 0a 09 52 45 41 44 28 4b 42 44 2c 43 48 29 3b 20 49 46 20 43 48   ┆     BEGIN   READ(KBD,CH); IF CH┆
0x2a1e0…2a200             3d 5e 43 20 54 48 45 4e 20 47 4f 54 4f 20 42 52 45 41 4b 3b 0d 0a 09 52 45 41 44 28 4b 42 44 2c   ┆=^C THEN GOTO BREAK;   READ(KBD,┆
0x2a200…2a400 (33, 0, 8)  DataBlock {»CROSSREF.PAS«}
0x2a400…2a500 (33, 0, 9)  DataBlock {»PRIMES.PAS«}
0x2a500…2a520             20 20 4d 41 58 32 20 3d 20 31 35 30 30 30 3b 20 20 20 7b 20 4d 41 58 50 52 49 4d 45 2f 32 20 7d   ┆  MAX2 = 15000;   æ MAXPRIME/2 å┆
0x2a520…2a540             0d 0a 20 20 4d 41 58 33 20 3d 20 31 30 30 30 30 3b 20 20 20 7b 20 4d 41 58 50 52 49 4d 45 2f 33   ┆    MAX3 = 10000;   æ MAXPRIME/3┆
0x2a540…2a560             20 7d 0d 0a 0d 0a 56 41 52 0d 0a 20 20 49 2c 4a 2c 4b 3a 20 49 4e 54 45 47 45 52 3b 0d 0a 20 20   ┆ å    VAR    I,J,K: INTEGER;    ┆
0x2a560…2a580             54 45 53 54 3a 20 41 52 52 41 59 5b 32 2e 2e 4d 41 58 32 5d 20 4f 46 20 42 4f 4f 4c 45 41 4e 3b   ┆TEST: ARRAYÆ2..MAX2Å OF BOOLEAN;┆
0x2a580…2a5a0             0d 0a 0d 0a 42 45 47 49 4e 0d 0a 20 20 57 52 49 54 45 28 31 3a 38 2c 32 3a 38 29 3b 0d 0a 20 20   ┆    BEGIN    WRITE(1:8,2:8);    ┆
0x2a5a0…2a5c0             46 4f 52 20 49 3a 3d 32 20 54 4f 20 4d 41 58 32 20 44 4f 20 54 45 53 54 5b 49 5d 3a 3d 54 52 55   ┆FOR I:=2 TO MAX2 DO TESTÆIÅ:=TRU┆
0x2a5c0…2a5e0             45 3b 0d 0a 20 20 46 4f 52 20 49 3a 3d 32 20 54 4f 20 4d 41 58 32 20 44 4f 0d 0a 20 20 49 46 20   ┆E;    FOR I:=2 TO MAX2 DO    IF ┆
0x2a5e0…2a600             54 45 53 54 5b 49 5d 20 54 48 45 4e 0d 0a 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 4a 3a 3d 49 2b   ┆TESTÆIÅ THEN    BEGIN      J:=I+┆
0x2a600…2a620 (33, 0, 10) e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5   ┆                                ┆
         […0xf…]
0x2a800…2aa00 (34, 0, 1)  DataBlock {»CROSSREF.PAS«}
         […0x14…]
0x2d200…2d220 (36, 0, 2)  e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5   ┆                                ┆
         […0x26f…]

Reduced view