|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: 5 C P S T X
Length: 328704 (0x50400)
Description: Bits:30003088 Xray: elevopgave i Pascal, feb 92
Types: 5¼" Floppy Disk, CpmFSAuto
Notes: CP/M-fs(512_2048_0x1_16_*2+1+2_2:0_35:1)
Media: [0, 0, 1] … [35, 1, 9] {128: 16, 256: 16, 512: 630}
Signature: 512_2048_0x1_16_*2+1+2_2:0_35:1
Confidence score: +14/-0
Sector size: 512
Block size: 2048
Directory entries: 16
Block number size: 8
Extent-mask: 0x01
Sector-interleave: 1, 3, 5, 7, 9, 2, 4, 6, 8
Tracks: (2, 0), (2, 1), (3, 0), (3, 1), (4, 0), (4, 1) […] (33, 0), (33, 1), (34, 0), (34, 1), (35, 0), (35, 1)
| user | bc | length | name | artifact |
|---|---|---|---|---|
| 0 | 0 | 23552 | COMPAS.COM | ⟦88402073b⟧ |
| 0 | 0 | 2176 | COMPAS.ERM | ⟦fd2cb6fd2⟧ TextFile |
| 0 | 0 | 7424 | PIP.COM | ⟦f3084c673⟧ |
| 0 | 0 | 128 | SCTEST.DAT | ⟦9241aab2f⟧ |
| 0 | 0 | 21504 | XRAY.COM | ⟦436138e18⟧ |
| 0 | 0 | 5888 | XRAY.PAS | ⟦13de4994f⟧ TextFile |
| 0 | 0 | 8960 | XYBASIS.PAS | ⟦1f23b267f⟧ TextFile |
| 0 | 0 | 4736 | XYFYSIK.PAS | ⟦7524d7e6f⟧ TextFile |
| 0 | 0 | 5376 | XYGRAF.PAS | ⟦3301aabf5⟧ TextFile |
0x00000…00020 (0, 0, 1) 80 02 00 00 00 00 00 00 20 52 43 37 30 32 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ RC702 ┆
0x00020…00040 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 ┆ ┆
[…0x2…]
0x00080…000a0 (0, 0, 2) 47 04 47 20 d7 01 d7 01 18 04 47 03 61 05 20 01 1b 18 02 10 04 47 03 60 05 20 01 1f 48 49 4a 4b ┆G G G a G ` HIJK┆
0x000a0…000c0 4f 98 7a 4d 03 03 df 28 00 00 09 06 00 fa 00 08 08 20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ┆O zM ( ┆
0x000c0…000e0 02 02 00 00 d7 01 03 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 ┆ ┆
0x000e0…00100 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 ┆ ┆
0x00100…00120 (0, 0, 3) 00 01 02 03 04 05 06 07 08 09 0a 0b 0c 0d 0e 0f 10 11 12 13 14 15 16 17 18 19 1a 1b 1c 1d 1e 1f ┆ ┆
0x00120…00140 20 21 22 23 24 25 26 27 28 29 2a 2b 2c 2d 2e 2f 30 31 32 33 34 35 36 37 38 39 3a 3b 3c 3d 3e 3f ┆ !"#$%&'()*+,-./0123456789:;<=>?┆
0x00140…00160 40 41 42 43 44 45 46 47 48 49 4a 4b 4c 4d 4e 4f 50 51 52 53 54 55 56 57 58 59 5a 5b 5c 5d 5e 5f ┆@ABCDEFGHIJKLMNOPQRSTUVWXYZÆØÅ^_┆
0x00160…00180 60 61 62 63 64 65 66 67 68 69 6a 6b 6c 6d 6e 6f 70 71 72 73 74 75 76 77 78 79 7a 7b 7c 7d 7e 7f ┆`abcdefghijklmnopqrstuvwxyzæøåü ┆
0x00180…001a0 (0, 0, 4) 00 01 02 03 04 05 06 07 08 09 0a 0b 0c 0d 0e 0f 10 11 12 13 14 15 16 17 18 19 1a 1b 1c 1d 1e 1f ┆ ┆
0x001a0…001c0 20 21 22 23 24 25 26 27 28 29 2a 2b 2c 2d 2e 2f 30 31 32 33 34 35 36 37 38 39 3a 3b 3c 3d 3e 3f ┆ !"#$%&'()*+,-./0123456789:;<=>?┆
0x001c0…001e0 40 41 42 43 44 45 46 47 48 49 4a 4b 4c 4d 4e 4f 50 51 52 53 54 55 56 57 58 59 5a 5b 5c 5d 5e 5f ┆@ABCDEFGHIJKLMNOPQRSTUVWXYZÆØÅ^_┆
0x001e0…00200 60 61 62 63 64 65 66 67 68 69 6a 6b 6c 6d 6e 6f 70 71 72 73 74 75 76 77 78 79 7a 7b 7c 7d 7e 7f ┆`abcdefghijklmnopqrstuvwxyzæøåü ┆
0x00200…00220 (0, 0, 5) 80 01 82 03 04 05 86 87 08 09 0a 0b 0c 0d 0e 8f 10 91 92 93 14 15 96 97 18 19 1a 1b 1c 9d 1e 9f ┆ ┆
0x00220…00240 20 31 32 33 34 35 36 37 38 39 aa 30 2d ad 2e 8b 30 31 32 33 34 35 36 37 38 39 ba 30 2d bd 2e 83 ┆ 123456789 0- . 0123456789 0- . ┆
0x00240…00260 12 86 c2 c3 c4 05 82 c7 08 c9 0a 84 85 cd ce cf 81 d1 87 d3 d4 d5 80 d7 18 d9 1a db dc dd de 30 ┆ 0┆
0x00260…00280 e0 8e e2 e3 e4 e5 8a e7 e8 e9 ea 8c 8d ed ee ef 89 f1 8f f3 f4 f5 88 f7 f8 f9 fa fb fc fd fe 7f ┆ ┆
0x00280…002a0 (0, 0, 6) f3 21 00 00 11 80 d4 01 81 23 ed b0 21 80 d5 11 80 f6 01 80 01 ed b0 31 80 00 3a 25 ec ed 47 ed ┆ ! # ! 1 :% G ┆
0x002a0…002c0 5e 3e 20 d3 12 3e 22 d3 13 3e 4f d3 12 3e 0f d3 13 3e 83 d3 12 d3 13 3e 00 d3 0c 3a 00 d5 d3 0c ┆^> >" >O > > > : ┆
0x002c0…002e0 3a 01 d5 d3 0c 3a 02 d5 d3 0d 3a 03 d5 d3 0d 3a 04 d5 d3 0e 3a 05 d5 d3 0e 3a 06 d5 d3 0f 3a 07 ┆: : : : : : : ┆
0x002e0…00300 d5 d3 0f 3e 08 d3 44 3a 44 d5 d3 44 3a 45 d5 d3 44 3a 46 d5 d3 45 3a 46 d5 d3 46 3a 46 d5 d3 47 ┆ > D:D D:E D:F E:F F:F G┆
0x00300…00320 (0, 0, 7) 21 08 d5 06 09 0e 0a ed b3 21 11 d5 06 0b 0e 0b ed b3 db 0a 32 89 dc 3e 01 d3 0a db 0a 32 8a dc ┆! ! 2 > 2 ┆
0x00320…00340 db 0b 32 8b dc 3e 01 d3 0b db 0b 32 8c dc 3e 20 d3 f8 3a 1c d5 d3 fb 3a 1e d5 d3 fb 3a 1f d5 d3 ┆ 2 > 2 > : : : ┆
0x00340…00360 fb db 14 e6 80 ca e1 d7 21 2f d5 7e fe 08 c2 d3 d7 36 10 23 7e fe 08 c2 dc d7 36 10 3e 0f 32 26 ┆ !/ ü 6 #ü 6 > 2&┆
0x00360…00380 d5 db 04 e6 1f c2 e1 d7 21 24 d5 46 23 db 04 e6 c0 fe 80 c2 ed d7 7e d3 05 05 c2 ec d7 21 00 f8 ┆ !$ F# ü ! ┆
0x00380…003a0 (0, 0, 8) 11 01 f8 01 cf 07 36 20 ed b0 21 00 f5 11 01 f5 01 fa 00 36 00 ed b0 21 d1 ff 11 d2 ff 36 00 01 ┆ 6 ! 6 ! 6 ┆
0x003a0…003c0 2e 00 ed b0 3e 00 d3 01 3a 20 d5 d3 00 3a 21 d5 d3 00 3a 22 d5 d3 00 3a 23 d5 d3 00 3e 80 d3 01 ┆. > : :! :" :# > ┆
0x003c0…003e0 3e 00 d3 00 d3 00 3e e0 d3 01 3e 23 d3 01 11 80 ee 21 00 f5 a7 ed 52 4d 44 21 81 ee eb 36 00 ed ┆> > ># ! RMD! 6 ┆
0x003e0…00400 b0 3a 0e d5 e6 60 32 34 da 3a 19 d5 e6 60 32 35 da 3a 2c d5 32 33 da 2a 2d d5 22 e7 ff 3e ff 32 ┆ : `24 : `25 :, 23 *- " > 2┆
0x00400…00420 (0, 0, 9) 4f f3 cd 6f d9 fb 3e 01 32 4e f3 06 01 3e 20 cd 41 e9 01 00 f0 3a 4d f3 b7 20 08 0b 78 b1 20 f5 ┆O o > 2N > A :M x ┆
0x00420…00440 c3 1a d9 3a 2a f3 b7 3e 00 32 2a f3 32 4d f3 f5 21 b4 da cd e1 da af 32 b4 da f1 c2 8b d8 af 32 ┆ :* > 2* 2M ! 2 2┆
0x00440…00460 4d f3 32 4e f3 01 02 00 cd cd e2 01 00 00 cd 76 e3 01 7c 00 cd 7c e3 01 80 00 cd 82 e3 cd 8b e3 ┆M 2N v ø ø ┆
0x00460…00480 b7 28 0d 21 bd da cd e1 da 3e 0d 32 8d da 18 2a 11 31 d5 21 80 00 01 13 00 ed b0 21 31 d5 7e fe ┆ ( ! > 2 * 1 ! !1 ü ┆
0x00480…004a0 (0, 0, 10) 20 28 20 fe 28 28 1c 3a 37 da c6 18 77 23 36 ff 21 40 d5 36 02 23 36 01 18 09 3e ff 32 31 d5 af ┆ ( (( :7 w#6 !@ 6 #6 > 21 ┆
0x004a0…004c0 32 47 da cd 6f d9 21 a2 eb 22 6d d9 21 39 da e5 e1 e5 cd 9a d9 e1 23 e5 7e fe ff 20 f3 e1 01 1b ┆2G o ! "m !9 # ü ┆
0x004c0…004e0 00 21 3a da 11 98 ea 7e e5 e6 f8 21 29 00 fe 30 cc bc d9 21 52 00 fe 38 cc bc d9 21 a5 00 fe 40 ┆ !: ü !) 0 !R 8 ! @┆
0x004e0…00500 cc bc d9 e1 7e 23 fe ff 20 dd c3 00 da 00 00 0e 00 21 2f d5 11 37 da 7e fe ff ca 84 d9 12 0c 13 ┆ ü# !/ 7 ü ┆
0x00500…00520 (0, 0, 11) 23 c3 77 d9 79 3d 32 34 f3 3e 02 32 35 f3 21 41 d5 11 36 f3 01 03 00 ed b0 c9 11 0f 00 06 08 7e ┆# w y=24 > 25 !A 6 ü┆
0x00520…00540 e6 f8 21 09 ea b7 28 04 19 90 20 fc ed 5b 6d d9 eb 73 23 72 11 0f 00 19 22 6d d9 c9 09 eb 73 23 ┆ ! ( Æm s#r "m s#┆
0x00540…00560 72 23 eb 44 4d c9 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 ┆r# DM ┆
0x00560…00580 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 ┆ ┆
0x00580…005a0 (0, 0, 12) c3 78 db c3 c1 db c3 28 ec c3 2c ec c3 09 e2 c3 91 dc c3 e4 dc c3 d4 dc c3 58 e6 c3 cd e2 c3 76 ┆ x ( , X v┆
0x005a0…005c0 e3 c3 7c e3 c3 82 e3 c3 8b e3 c3 9f e3 c3 8d dc c3 88 e3 00 00 00 00 ff ff ff ff ff ff ff ff ff ┆ ø ┆
0x005c0…005e0 ff ff ff ff ff ff ff 00 00 00 c3 45 e7 c3 d0 dc c3 1a db c3 f7 da c3 04 db c3 54 e9 00 00 00 00 ┆ E T ┆
0x005e0…00600 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0d 0a 44 69 73 6b 20 72 65 61 64 20 65 72 72 ┆ Disk read err┆
0x00600…00620 (0, 0, 13) 6f 72 20 2d 20 72 65 73 65 74 0d 0a 00 0c 52 43 37 30 30 20 20 20 35 36 6b 20 43 50 2f 4d 20 76 ┆or - reset RC700 56k CP/M v┆
0x00620…00640 65 72 73 2e 32 2e 32 20 20 20 72 65 6c 2e 32 2e 31 0d 0a 00 0c 57 61 69 74 69 6e 67 00 0c 43 61 ┆ers.2.2 rel.2.1 Waiting Ca┆
0x00640…00660 6e 6e 6f 74 20 72 65 61 64 20 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 20 72 65 63 6f 72 64 0d 0a ┆nnot read configuration record ┆
0x00660…00680 00 7e b7 c8 e5 4f cd 09 e2 e1 23 c3 e1 da 21 71 da cd e1 da c3 f4 da 3e c3 32 e5 ff 22 e6 ff eb ┆ ü O # !q > 2 " ┆
0x00680…006a0 (0, 0, 14) 22 df ff c9 f3 b7 ca 12 db ed 5b fc ff 2a fe ff fb c9 ed 53 fc ff 22 fe ff c9 c6 0a 4f f3 3e 01 ┆" Æ * S " O > ┆
0x006a0…006c0 ed 79 ed 78 fb e6 01 28 f4 16 05 3e 00 cd 57 db 05 f8 cb 20 b0 cd 57 db f6 80 cd 57 db 21 02 00 ┆ y x ( > W W W ! ┆
0x006c0…006e0 cd 4c e6 79 fe 0a 3a 89 dc ca 4f db 3a 8b dc e6 20 ca 57 db 3e ff c9 f3 ed 51 ed 79 fb c9 af 32 ┆ L y : O : W > Q y 2┆
0x006e0…00700 4c d8 2a 9a d8 22 6f da 21 6f db 22 9a d8 c9 e5 2a 6f da 22 9a d8 e1 c9 31 80 00 21 8d da cd e1 ┆L * "o !o " *o " 1 ! ┆
0x00700…00720 (0, 0, 15) da af 32 04 00 32 50 f3 3a 47 da b7 ca 94 db 3e 02 32 04 00 af 32 21 f3 32 2a f3 32 22 f3 db 14 ┆ 2 2P :G > 2 2! 2* 2" ┆
0x00720…00740 e6 80 ca c1 db 3a 34 f3 fe 02 d2 be db 0e 01 cd cd e2 cd 58 e6 78 e6 10 3e 00 c2 be db 3c 32 34 ┆ :4 X x > <24┆
0x00740…00760 f3 fb 0e 00 3a 47 da b7 28 03 3e 02 4f cd cd e2 af 32 23 f3 32 03 00 32 39 f3 32 26 ec cd 58 e6 ┆ :G ( > O 2# 2 29 2& X ┆
0x00760…00780 31 80 00 01 00 c4 cd 82 e3 01 01 00 cd 76 e3 01 00 00 cd 7c e3 c5 cd 8b e3 b7 c2 ee da 2a 2e f3 ┆1 v ø *. ┆
0x00780…007a0 (0, 0, 16) 11 80 00 19 44 4d cd 82 e3 c1 03 cd 7c e3 79 fe 2c c2 f5 db 01 80 00 cd 82 e3 3e c3 32 00 00 21 ┆ DM ø y , > 2 !┆
0x007a0…007c0 03 da 22 01 00 32 05 00 21 06 cc 22 06 00 3a 04 00 e6 0f 4f 3a 47 da b9 28 1c cd cd e2 7c b5 28 ┆ " 2 ! " : O:G ( ø (┆
0x007c0…007e0 0f 01 02 00 cd 76 e3 cd 7c e3 cd 8b e3 b7 28 06 3a 47 da 32 04 00 3a 04 00 e6 0f 4f fe 02 d4 5e ┆ v ø ( :G 2 : O ^┆
0x007e0…00800 db cd cd e2 3a 04 00 4f 21 50 f3 7e 36 01 b7 28 10 3a 07 c4 b7 28 0a 21 09 c4 85 6f 7e b7 ca 03 ┆ : O!P ü6 ( : ( ! oü ┆
0x00800…00820 (0, 1, 1) c4 c3 00 c4 ff ff ff 00 00 00 00 00 00 3a 84 dc c9 3a 84 dc b7 ca 91 dc f3 3e 00 32 84 dc 3e 05 ┆ : : > 2 > ┆
0x00820…00840 d3 0b 3a 35 da c6 8a d3 0b 3e 01 d3 0b 3e 07 d3 0b 79 d3 09 fb c9 f3 af 32 85 dc 3e 05 d3 0a 3a ┆ :5 > > y 2 > :┆
0x00840…00860 34 da c6 8a d3 0a 3e 01 d3 0a 3e 1b d3 0a fb c9 3a 85 dc c9 cd d0 dc b7 ca d4 dc 3a 87 dc f5 cd ┆4 > > : : ┆
0x00860…00880 b6 dc f1 c9 3a 86 dc b7 ca e4 dc f3 3e 00 32 86 dc 3e 05 d3 0a 3a 34 da c6 8a d3 0a 3e 01 d3 0a ┆ : > 2 > :4 > ┆
0x00880…008a0 3e 1b d3 0a 79 d3 08 fb c9 ed 73 4b f3 31 20 f6 f5 3e 28 d3 0b 3e ff 32 84 dc f1 ed 7b 4b f3 fb ┆> y sK 1 >( > 2 æK ┆
0x008a0…008c0 ed 4d ed 73 4b f3 31 20 f6 f5 db 0b 32 8b dc 3e 10 d3 0b f1 ed 7b 4b f3 fb ed 4d ed 73 4b f3 31 ┆ M sK 1 2 > æK M sK 1┆
0x008c0…008e0 20 f6 f5 db 08 32 88 dc f1 ed 7b 4b f3 fb ed 4d ed 73 4b f3 31 20 f6 f5 3e 01 d3 0b db 0b 32 8c ┆ 2 æK M sK 1 > 2 ┆
0x008e0…00900 dc 3e 30 d3 0b f1 ed 7b 4b f3 fb ed 4d ed 73 4b f3 31 20 f6 f5 3e 28 d3 0a 3e ff 32 86 dc f1 ed ┆ >0 æK M sK 1 >( > 2 ┆
0x00900…00920 (0, 1, 2) 7b 4b f3 fb ed 4d ed 73 4b f3 31 20 f6 f5 db 0a 32 89 dc 3e 10 d3 0a f1 ed 7b 4b f3 fb ed 4d ed ┆æK M sK 1 2 > æK M ┆
0x00920…00940 73 4b f3 31 20 f6 f5 db 08 32 87 dc 3e ff 32 85 dc f1 ed 7b 4b f3 fb ed 4d ed 73 4b f3 31 20 f6 ┆sK 1 2 > 2 æK M sK 1 ┆
0x00940…00960 f5 3e 01 d3 0a db 0a 32 8a dc 3e 30 d3 0a 3e 00 32 87 dc 3e ff 32 85 dc f1 ed 7b 4b f3 fb ed 4d ┆ > 2 >0 > 2 > 2 æK M┆
0x00960…00980 00 00 00 7c 2f 67 7d 2f 6f c9 cd e3 dd 23 c9 2a d2 ff 7d fe 80 c0 7c fe 07 c9 3a e0 dd b7 79 c0 ┆ ø/gå/o # * å ø : y ┆
0x00980…009a0 06 00 09 7e c9 f5 3e 80 d3 01 3a d1 ff d3 00 3a d4 ff d3 00 f1 c9 2a d2 ff 11 50 00 19 22 d2 ff ┆ ü > : : * P " ┆
0x009a0…009c0 21 d4 ff 34 c3 05 de 2a d2 ff 11 b0 ff 19 22 d2 ff 21 d4 ff 35 c3 05 de 21 00 00 22 d2 ff af 32 ┆! 4 * " ! 5 ! " 2┆
0x009c0…009e0 d1 ff 32 d4 ff c9 b8 d8 90 c3 46 de 2a d5 ff 54 5d 13 01 4f 00 36 20 ed b0 3a db ff fe 00 c8 2a ┆ 2 F * TÅ O 6 : *┆
0x009e0…00a00 dc ff 54 5d 13 01 09 00 36 00 ed b0 c9 21 50 f8 11 00 f8 01 80 07 ed b0 21 80 ff 22 d5 ff 3a db ┆ TÅ 6 !P ! " : ┆
0x00a00…00a20 (0, 1, 3) ff fe 00 ca 4c de 21 0a f5 11 00 f5 01 f0 00 ed b0 21 f0 f5 22 dc ff c3 4c de 3e 00 06 03 cb 3c ┆ L ! ! " L > <┆
0x00a20…00a40 cb 1d 1f 05 c2 9e de fe 00 c8 06 05 1f 05 c2 ac de c9 11 00 f5 19 fe 00 47 3e 00 c2 c1 de a6 77 ┆ G> w┆
0x00a40…00a60 c9 37 17 05 c2 c1 de a6 77 c9 3e 00 b9 ca d3 de ed b0 c9 b8 c2 d0 de c9 3e 00 b9 ca e1 de ed b8 ┆ 7 w > > ┆
0x00a60…00a80 c9 b8 c2 de de c9 d3 1c c9 cd 38 de 3e 02 32 d7 ff c9 c9 3e 00 32 d1 ff c3 05 de 21 cf ff 11 ce ┆ 8 > 2 > 2 ! ┆
0x00a80…00aa0 ff 01 cf 07 36 20 ed b8 cd 38 de cd 05 de 3a db ff fe 00 c8 af 32 db ff 21 f9 f5 11 f8 f5 01 f9 ┆ 6 8 : 2 ! ┆
0x00aa0…00ac0 00 36 00 ed b8 c9 11 00 f8 2a d2 ff 19 11 4f 00 19 54 5d 1b 01 00 00 3a d1 ff 2f 3c c6 4f 4f 36 ┆ 6 * O TÅ : /< OO6┆
0x00ac0…00ae0 20 cd d8 de 3a db ff fe 00 c8 2a d2 ff 16 00 3a d1 ff 5f 19 cd 9a de cd b2 de 3a d1 ff cb 3f cb ┆ : * : _ : ? ┆
0x00ae0…00b00 3f cb 3f 2f c6 09 f8 4f 06 00 23 54 5d 13 3e 00 c3 ca de 2a d2 ff 3a d1 ff 4f 06 00 09 cd ea dd ┆? ?/ O #TÅ > * : O ┆
0x00b00…00b20 (0, 1, 4) 11 cf 07 19 44 4d 21 cf ff 11 ce ff 36 20 cd d8 de 3a db ff fe 00 c8 2a d2 ff 16 00 3a d1 ff 5f ┆ DM! 6 : * : _┆
0x00b20…00b40 19 cd 9a de cd b2 de cd e3 dd 11 f9 f5 19 3e 80 a4 c0 44 4d 62 6b 1b 36 00 c3 d8 de 3a d1 ff fe ┆ > DMbk 6 : ┆
0x00b40…00b60 00 ca cb df 3d 32 d1 ff c3 05 de 3e 4f 32 d1 ff 2a d2 ff 7d b4 c2 27 de 21 80 07 22 d2 ff 3e 18 ┆ =2 >O2 * å ' ! " > ┆
0x00b60…00b80 32 d4 ff c3 05 de 3a d1 ff fe 4f ca f5 df 3c 32 d1 ff c3 05 de 3e 00 32 d1 ff cd ef dd c2 16 de ┆2 : O <2 > 2 ┆
0x00b80…00ba0 cd 05 de c3 6d de cd e6 df cd e6 df cd e6 df c3 e6 df cd ef dd c2 16 de c3 6d de 2a d2 ff 7d b4 ┆ m m * å ┆
0x00ba0…00bc0 c2 27 de 21 80 07 22 d2 ff 3e 18 32 d4 ff c3 05 de cd 38 de c3 05 de 2a d2 ff 44 4d 11 50 f8 19 ┆ ' ! " > 2 8 * DM P ┆
0x00bc0…00be0 22 e1 dd 11 b0 ff 19 eb 60 69 cd ea dd 01 80 07 09 44 4d 2a e1 dd cd ca de 21 80 ff 22 d5 ff 3a ┆" `i DM* ! " :┆
0x00be0…00c00 db ff fe 00 ca 4c de 2a d2 ff cd 9a de 44 4d 11 0a f5 19 22 e1 dd 11 f6 ff 19 eb 60 69 cd ea dd ┆ L * DM " `i ┆
0x00c00…00c20 (0, 1, 5) 01 f0 00 09 44 4d 2a e1 dd cd ca de 21 f0 f5 22 dc ff c3 4c de 2a d2 ff 11 00 f8 19 22 d5 ff cd ┆ DM* ! " L * " ┆
0x00c20…00c40 ea dd 11 80 ff 19 44 4d 21 7f ff 11 cf ff cd d8 de 3a db ff fe 00 ca 4c de 2a d2 ff cd 9a de 11 ┆ DM! : L * ┆
0x00c40…00c60 00 f5 19 22 dc ff cd ea dd 11 f0 f5 19 44 4d 21 ef f5 11 f9 f5 cd d8 de c3 4c de 3e 02 32 db ff ┆ " DM! L > 2 ┆
0x00c60…00c80 c9 3e 01 32 db ff c9 21 00 f8 11 00 f5 06 fa 1a 0e 08 fe 00 c2 01 e1 36 20 23 0d c2 f7 e0 c3 0c ┆ > 2 ! 6 # ┆
0x00c80…00ca0 e1 1f da 07 e1 36 20 23 0d c2 01 e1 13 05 c2 ef e0 c9 f2 de 95 e0 37 e0 f2 de f2 de bc df e9 de ┆ 6 # 7 ┆
0x00ca0…00cc0 e6 de bc df 06 e0 12 e0 f2 de fb de f3 de f2 de f2 de f2 de f2 de f2 de f2 de db e0 e1 e0 e7 e0 ┆ ┆
0x00cc0…00ce0 f2 de e6 df f2 de 1b e0 f2 de f2 de 31 e0 26 df 73 df 3e 00 32 d7 ff 3a da ff 07 e6 3e 4f 06 00 ┆ 1 & s > 2 : >O ┆
0x00ce0…00d00 21 12 e1 09 5e 23 56 eb e9 3a da ff e6 7f d6 20 21 d7 ff 35 ca 7b e1 32 de ff c9 57 3a de ff 67 ┆! ^#V : ! 5 æ 2 W: g┆
0x00d00…00d20 (0, 1, 6) 3a 33 da b7 ca 88 e1 eb 7c 06 50 cd 46 de 32 d1 ff 7a 06 19 cd 46 de 32 d4 ff b7 ca 05 de 2a d2 ┆:3 ø P F 2 z F 2 * ┆
0x00d20…00d40 ff 11 50 00 19 3d c2 a4 e1 22 d2 ff c3 05 de 2a d2 ff 16 00 3a d1 ff 5f 19 22 d8 ff 3a da ff fe ┆ P = " * : _ " : ┆
0x00d40…00d60 c0 da c6 e1 d6 c0 4f fe 80 da d5 e1 e6 04 32 e0 dd 79 c3 db e1 21 80 f6 cd fa dd 2a d8 ff 11 00 ┆ O 2 y ! * ┆
0x00d60…00d80 f8 19 77 cd e6 df 3a db ff fe 02 c0 2a d8 ff cd 9a de 11 00 f5 19 fe 00 47 3e 01 c2 01 e2 b6 77 ┆ w : * G> w┆
0x00d80…00da0 c9 07 05 c2 01 e2 b6 77 c9 f3 e5 21 00 00 39 31 80 f6 fb e5 f5 c5 d5 79 32 da ff 3a d7 ff b7 ca ┆ w ! 91 y2 : ┆
0x00da0…00dc0 28 e2 cd 69 e1 c3 39 e2 3a da ff fe 20 d2 36 e2 cd 52 e1 c3 39 e2 cd af e1 d1 c1 f1 e1 f3 f9 e1 ┆( i 9 : 6 R 9 ┆
0x00dc0…00de0 fb c9 ed 73 4b f3 31 20 f6 f5 c5 d5 e5 db 01 3e 06 d3 fa 3e 07 d3 fa d3 fc 21 00 f8 7d d3 f4 7c ┆ sK 1 > > ! å ø┆
0x00de0…00e00 d3 f4 21 cf 07 7d d3 f5 7c d3 f5 3e 00 d3 f7 d3 f7 3e 02 d3 fa 3e 03 d3 fa 3e d7 d3 0e 3e 01 d3 ┆ ! å ø > > > > > ┆
0x00e00…00e20 (0, 1, 7) 0e 21 fc ff 34 c2 94 e2 23 34 c2 94 e2 23 34 c2 94 e2 23 34 2a df ff 7d b4 ca a5 e2 2b 7d b4 22 ┆ ! 4 #4 #4 #4* å +å "┆
0x00e20…00e40 df ff cc e5 ff 2a e1 ff 7d b4 ca b6 e2 2b 7d b4 22 e1 ff cc 42 e6 2a e3 ff 7d b4 ca c2 e2 2b 22 ┆ * å +å " B * å +"┆
0x00e40…00e60 e3 ff e1 d1 c1 f1 ed 7b 4b f3 fb ed 4d 21 00 00 39 31 80 f6 e5 21 00 00 3a 34 f3 b9 da 64 e3 79 ┆ æK M! 91 ! :4 d y┆
0x00e60…00e80 32 12 f3 01 10 00 11 37 da 21 00 00 b7 ca f6 e2 13 09 3d c3 ec e2 4d 44 eb 7e 21 32 f3 be ca 10 ┆2 7 ! = MD ü!2 ┆
0x00e80…00ea0 e3 f5 c5 3a 22 f3 b7 c4 0e e5 af 32 22 f3 c1 f1 32 32 f3 cd 69 e3 22 30 f3 23 23 23 23 7e 32 33 ┆ :" 2" 22 i "0 ####ü23┆
0x00ea0…00ec0 f3 c5 3a 32 f3 e6 f8 b7 17 5f 16 00 21 a0 ea 19 11 51 f3 01 10 00 ed b0 2a 51 f3 01 0d 00 09 eb ┆ :2 _ ! Q *Q ┆
0x00ec0…00ee0 21 90 ea 06 00 3a 12 f3 4f 09 09 01 02 00 ed b0 c1 21 78 eb 09 eb 21 0a 00 19 eb 3a 51 f3 12 13 ┆! : O !x ! :Q ┆
0x00ee0…00f00 3a 52 f3 12 eb e1 f9 eb c9 21 31 eb 3a 32 f3 e6 f8 5f 16 00 19 c9 60 69 22 13 f3 c9 69 60 22 15 ┆:R !1 :2 _ `i" i`" ┆
0x00f00…00f20 (0, 1, 8) f3 c9 60 69 22 2e f3 c9 60 69 c9 af 32 23 f3 3e 01 32 2c f3 32 2b f3 3e 02 32 2d f3 c3 3a e4 af ┆ `i". `i 2# > 2, 2+ > 2- : ┆
0x00f20…00f40 32 2c f3 79 32 2d f3 fe 02 c2 c4 e3 3a 53 f3 32 23 f3 3a 12 f3 32 24 f3 2a 13 f3 22 25 f3 2a 15 ┆2, y2- :S 2# : 2$ * "% * ┆
0x00f40…00f60 f3 22 27 f3 3a 23 f3 b7 ca 30 e4 3d 32 23 f3 3a 12 f3 21 24 f3 be c2 30 e4 21 25 f3 cd 02 e5 c2 ┆ "' :# 0 =2# : !$ 0 !% ┆
0x00f60…00f80 30 e4 3a 15 f3 21 27 f3 be c2 30 e4 3a 16 f3 23 be c2 30 e4 2a 27 f3 23 22 27 f3 eb 21 54 f3 c5 ┆0 : !' 0 : # 0 *' #"' !T ┆
0x00f80…00fa0 4e 23 46 eb a7 ed 42 c1 da 18 e4 21 00 00 22 27 f3 2a 25 f3 23 22 25 f3 af 32 2b f3 3a 15 f3 21 ┆N#F B ! "' *% #"% 2+ : !┆
0x00fa0…00fc0 56 f3 a6 be 3e 00 c2 2a e4 3c 32 29 f3 c3 3a e4 af 32 23 f3 3a 56 f3 32 2b f3 21 00 00 39 31 80 ┆V > * <2) : 2# :V 2+ ! 91 ┆
0x00fc0…00fe0 f6 e5 3a 57 f3 47 2a 15 f3 05 ca 54 e4 cb 3c cb 1d c3 49 e4 22 1f f3 21 21 f3 7e 36 01 b7 ca 8d ┆ :W G* T < I " !! ü6 ┆
0x00fe0…01000 e4 3a 12 f3 21 17 f3 be c2 86 e4 21 18 f3 cd 02 e5 c2 86 e4 3a 1f f3 21 1a f3 be c2 86 e4 3a 20 ┆ : ! ! : ! : ┆
0x01000…02c00 (0, 1, 9) […elided…]
0x02c00…02e00 (1, 1, 2) 0xe5[0x200]
0x02e00…02e20 (1, 1, 3) d8 73 2b 70 2b 71 cd 2d d3 c3 e4 d7 e1 c9 2a 43 cf 11 20 00 cd a5 d7 21 21 00 19 71 23 70 23 77 ┆ s+p+q - *C !! q#p#w┆
0x02e20…02e40 c9 2a af d9 3a 42 cf 4f cd ea d0 e5 eb cd 59 cf e1 cc 47 cf 7d 1f d8 2a af d9 4d 44 cd 0b d1 22 ┆ * :B O Y G å * MD "┆
0x02e40…02e60 af d9 c3 a3 d2 3a d6 d9 21 42 cf be c8 77 c3 21 d8 3e ff 32 de d9 2a 43 cf 7e e6 1f 3d 32 d6 d9 ┆ : !B w ! > 2 *C ü =2 ┆
0x02e60…02e80 fe 1e d2 75 d8 3a 42 cf 32 df d9 7e 32 e0 d9 e6 e0 77 cd 45 d8 3a 41 cf 2a 43 cf b6 77 c9 3e 22 ┆ u :B 2 ü2 w E :A *C w >"┆
0x02e80…02ea0 c3 01 cf 21 00 00 22 ad d9 22 af d9 af 32 42 cf 21 80 00 22 b1 d9 cd da d1 c3 21 d8 cd 72 d1 cd ┆ ! " " 2B ! " ! r ┆
0x02ea0…02ec0 51 d8 c3 51 d4 cd 51 d8 c3 a2 d4 0e 00 eb 7e fe 3f ca c2 d8 cd a6 d0 7e fe 3f c4 72 d1 cd 51 d8 ┆Q Q Q ü ? ü ? r Q ┆
0x02ec0…02ee0 0e 0f cd 18 d3 c3 e9 d1 2a d9 d9 22 43 cf cd 51 d8 cd 2d d3 c3 e9 d1 cd 51 d8 cd 9c d3 c3 01 d3 ┆ * "C Q - Q ┆
0x02ee0…02f00 cd 51 d8 c3 bc d5 cd 51 d8 c3 fe d5 cd 72 d1 cd 51 d8 c3 24 d5 cd 51 d8 cd 16 d4 c3 01 d3 2a af ┆ Q Q r Q $ Q * ┆
0x02f00…02f20 d9 c3 29 d9 3a 42 cf c3 01 cf eb 22 b1 d9 c3 da d1 2a bf d9 c3 29 d9 2a ad d9 c3 29 d9 cd 51 d8 ┆ ) :B " * ) * ) Q ┆
0x02f20…02f40 cd 3b d4 c3 01 d3 2a bb d9 22 45 cf c9 3a d6 d9 fe ff c2 3b d9 3a 41 cf c3 01 cf e6 1f 32 41 cf ┆ ; * "E : ; :A 2A ┆
0x02f40…02f60 c9 cd 51 d8 c3 93 d7 cd 51 d8 c3 9c d7 cd 51 d8 c3 d2 d7 2a 43 cf 7d 2f 5f 7c 2f 2a af d9 a4 57 ┆ Q Q Q *C å/_ø/* W┆
0x02f60…02f80 7d a3 5f 2a ad d9 eb 22 af d9 7d a3 6f 7c a2 67 22 ad d9 c9 3a de d9 b7 ca 91 d9 2a 43 cf 36 00 ┆å _* " å oø g" : *C 6 ┆
0x02f80…02fa0 3a e0 d9 b7 ca 91 d9 77 3a df d9 32 d6 d9 cd 45 d8 2a 0f cf f9 2a 45 cf 7d 44 c9 cd 51 d8 3e 02 ┆: w: 2 E * *E åD Q > ┆
0x02fa0…02fc0 32 d5 d9 0e 00 cd 07 d7 cc 03 d6 c9 e5 00 00 00 00 80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆2 ┆
0x02fc0…02fe0 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…]
0x03000…03200 (1, 1, 4) 0xe5[0x200]
[…0x5…]
0x03c00…03c20 (2, 0, 1) [0, 'COMPAS.COM', 0, 184, 'xl=01', 'bc=00', 'xh=00', 'rc=38', '0-0-0-0-0-0-0-0-0-0-0', [2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 0, 0, 0, 0]]
0x03c20…03c40 [0, 'COMPAS.ERM', 0, 17, 'xl=00', 'bc=00', 'xh=00', 'rc=11', '0-0-0-0-0-0-0-0-0-0-0', [14, 15, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x03c40…03c60 [0, 'PIP.COM', 0, 58, 'xl=00', 'bc=00', 'xh=00', 'rc=3a', '0-0-0-0-0-0-0-0-0-0-0', [16, 17, 18, 19, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x03c60…03c80 [0, 'XYBASIS.PAS', 0, 70, 'xl=00', 'bc=00', 'xh=00', 'rc=46', '0-0-0-0-0-0-0-0-0-0-0', [20, 21, 22, 23, 24, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x03c80…03ca0 [0, 'XYFYSIK.PAS', 0, 37, 'xl=00', 'bc=00', 'xh=00', 'rc=25', '0-0-0-0-0-0-0-0-0-0-0', [25, 26, 27, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x03ca0…03cc0 [0, 'XYGRAF.PAS', 0, 42, 'xl=00', 'bc=00', 'xh=00', 'rc=2a', '0-0-0-0-0-0-0-0-0-0-0', [28, 29, 30, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x03cc0…03ce0 Dirent {Status=0xe5}
0x03ce0…03d00 [0, 'XRAY.PAS', 0, 46, 'xl=00', 'bc=00', 'xh=00', 'rc=2e', '0-0-0-0-0-0-0-0-0-0-0', [34, 35, 36, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x03d00…03d20 [0, 'XRAY.COM', 0, 168, 'xl=01', 'bc=00', 'xh=00', 'rc=28', '0-0-0-0-0-0-0-0-0-0-0', [37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 0, 0, 0, 0, 0]]
0x03d20…03d40 [0, 'SCTEST.DAT', 0, 1, 'xl=00', 'bc=00', 'xh=00', 'rc=01', '0-0-0-0-0-0-0-0-0-0-0', [48, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x03d40…03d60 Dirent {Status=0xe5}
[…0x5…]
0x03e00…04000 (2, 0, 2) 0xe5[0x200]
[…0x5…]
0x04a00…04c00 (2, 0, 8) DataBlock {»COMPAS.COM«}
0x04c00…04e00 (2, 0, 9) 0xe5[0x200]
0x04e00…05000 (2, 1, 1) DataBlock {»COMPAS.COM«}
[…0x2c…]
0x0a800…0aa00 (5, 0, 1) 0xe5[0x200]
0x0aa00…0ac00 (5, 0, 2) DataBlock {»COMPAS.ERM«}
0x0ac00…0ae00 (5, 0, 3) 0xe5[0x200]
0x0ae00…0ae80 (5, 0, 4) DataBlock {»COMPAS.ERM«}
0x0ae80…0aea0 26 46 0d 0a 37 34 46 69 6c 26 56 26 46 0d 0a 37 35 54 65 6b 73 74 26 47 26 54 0d 0a 37 36 54 79 ┆&F 74Fil&V&F 75Tekst&G&T 76Ty┆
0x0aea0…0aec0 70 65 6c 7c 73 65 20 26 47 26 54 0d 0a 37 37 53 26 4a 26 43 26 46 0d 0a 37 38 53 26 4a 6c 7b 6e ┆peløse &G&T 77S&J&C&F 78S&Jlæn┆
0x0aec0…0aee0 67 64 65 20 73 74 65 6d 6d 65 72 26 58 20 6f 76 65 72 65 6e 73 20 6d 65 64 20 26 41 0d 0a 37 39 ┆gde stemmer&X overens med &A 79┆
0x0aee0…0af00 46 65 6a 6c 61 67 74 69 67 20 72 7b 6b 6b 65 66 7c 6c 67 65 20 61 66 20 66 65 6c 74 26 43 65 72 ┆Fejlagtig rækkefølge af felt&Cer┆
0x0af00…0af20 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┆
0x0af20…0af40 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┆
0x0af40…0af60 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┆
0x0af60…0af80 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 ┆
0x0af80…0afa0 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 ┆
0x0afa0…0afc0 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┆
0x0afc0…0afe0 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┆
0x0afe0…0b000 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┆
0x0b000…0b200 (5, 0, 5) DataBlock {»COMPAS.ERM«}
0x0b200…0b400 (5, 0, 6) 0xe5[0x200]
0x0b400…0b600 (5, 0, 7) DataBlock {»COMPAS.ERM«}
0x0b600…0b800 (5, 0, 8) 0xe5[0x200]
0x0b800…0ba00 (5, 0, 9) DataBlock {»COMPAS.ERM«}
0x0ba00…0bc00 (5, 1, 1) 0xe5[0x200]
0x0bc00…0be00 (5, 1, 2) DataBlock {»PIP.COM«}
[…0xb…]
0x0d300…0d320 01 27 1e cd 18 0a 21 27 1e 36 00 21 33 1e 36 00 01 27 1e c5 1e 10 01 06 1e cd 18 0a 3a 31 1e 07 ┆ ' !' 6 !3 6 ' :1 ┆
0x0d320…0d340 2f 21 61 1f b6 1f d2 45 1c 2a c4 1f 23 22 c4 1f 3e 01 cd 7a 1d b5 c2 3f 1c 01 43 04 cd 39 08 cd ┆/!a E * #" > z ? C 9 ┆
0x0d340…0d360 49 1c cd b2 1a c3 81 1b c9 cd 2e 08 21 c6 1f 36 01 3e 0b 21 c6 1f be da 87 1c 2a c6 1f 26 00 01 ┆I . ! 6 > ! * & ┆
0x0d360…0d380 27 1e 09 7e 32 c7 1f fe 20 ca 80 1c 3a c6 1f fe 09 c2 79 1c 0e 2e cd 1c 08 2a c7 1f 4d cd 1c 08 ┆' ü2 : y . * M ┆
0x0d380…0d3a0 21 c6 1f 34 c2 51 1c c9 3e 00 21 94 1f be d2 9b 1c 3a 94 1f 3d 32 03 1e c3 a1 1c 3a fc 1d 32 03 ┆! 4 Q > ! : =2 : 2 ┆
0x0d3a0…0d3c0 1e c9 3a f6 1d 1f d2 ac 1c cd 5c 18 3e 00 21 94 1f be d2 bf 1c 3a 94 1f 3d 32 4b 1e c3 c5 1c 3a ┆ : Ø > ! : =2K :┆
0x0d3c0…0d3e0 fc 1d 32 4b 1e c9 21 c0 1e 3a c1 1e be ca d1 1c c9 21 03 1e 3a 4b 1e be c2 de 1c cd 5c 18 c9 cd ┆ 2K ! : ! :K Ø ┆
0x0d3e0…0d400 11 12 3a a8 1e fe 0d ca ed 1c cd 5c 18 c9 21 c9 1f 70 2b 71 cd 88 1c cd df 1c 01 06 1e c5 2a c8 ┆ : Ø ! p+q * ┆
0x0d400…0d600 (6, 0, 5) DataBlock {»PIP.COM«}
0x0d600…0d800 (6, 0, 6) 0xe5[0x200]
0x0d800…0da00 (6, 0, 7) DataBlock {»PIP.COM«}
0x0da00…0dc00 (6, 0, 8) DataBlock {»XYBASIS.PAS«}
0x0dc00…0de00 (6, 0, 9) DataBlock {»PIP.COM«}
0x0de00…0e000 (6, 1, 1) DataBlock {»XYBASIS.PAS«}
[…0xe…]
0x0fb00…0fb20 58 59 43 55 52 59 2b 31 0d 0a 20 45 4e 44 3b 0d 0a 20 0d 0a 20 50 52 4f 43 45 44 55 52 45 20 58 ┆XYCURY+1 END; PROCEDURE X┆
0x0fb20…0fb40 55 59 4e 3b 0d 0a 20 42 45 47 49 4e 0d 0a 20 20 20 20 50 4f 52 54 28 2e 50 49 4f 44 41 54 41 2e ┆UYN; BEGIN PORT(.PIODATA.┆
0x0fb40…0fb60 29 3a 3d 35 34 3b 0d 0a 20 20 20 20 50 4f 52 54 28 2e 50 49 4f 44 41 54 41 2e 29 3a 3d 35 35 3b ┆):=54; PORT(.PIODATA.):=55;┆
0x0fb60…0fb80 0d 0a 20 20 20 20 58 59 43 55 52 58 3a 3d 58 59 43 55 52 58 2b 31 0d 0a 20 45 4e 44 3b 0d 0a 20 ┆ XYCURX:=XYCURX+1 END; ┆
0x0fb80…0fba0 0d 0a 20 50 52 4f 43 45 44 55 52 45 20 58 55 59 44 3b 0d 0a 20 42 45 47 49 4e 0d 0a 20 20 20 20 ┆ PROCEDURE XUYD; BEGIN ┆
0x0fba0…0fbc0 50 4f 52 54 28 2e 50 49 4f 44 41 54 41 2e 29 3a 3d 35 30 3b 0d 0a 20 20 20 20 50 4f 52 54 28 2e ┆PORT(.PIODATA.):=50; PORT(.┆
0x0fbc0…0fbe0 50 49 4f 44 41 54 41 2e 29 3a 3d 35 35 3b 0d 0a 20 20 20 20 58 59 43 55 52 58 3a 3d 58 59 43 55 ┆PIODATA.):=55; XYCURX:=XYCU┆
0x0fbe0…0fc00 52 58 2b 31 3b 20 58 59 43 55 52 59 3a 3d 58 59 43 55 52 59 2d 31 0d 0a 20 45 4e 44 3b 0d 0a 20 ┆RX+1; XYCURY:=XYCURY-1 END; ┆
0x0fc00…0fe00 (7, 0, 7) DataBlock {»XYBASIS.PAS«}
0x0fe00…10000 (7, 0, 8) 0xe5[0x200]
0x10000…10200 (7, 0, 9) DataBlock {»XYBASIS.PAS«}
0x10200…10400 (7, 1, 1) 0xe5[0x200]
0x10400…10600 (7, 1, 2) DataBlock {»XYFYSIK.PAS«}
[…0x8…]
0x11600…11800 (8, 0, 2) DataBlock {»XYGRAF.PAS«}
0x11800…11880 (8, 0, 3) DataBlock {»XYFYSIK.PAS«}
0x11880…118a0 64 6f 20 78 75 79 75 3b 20 28 2a 20 73 7b 74 20 78 2d 79 2d 74 72 69 67 67 65 72 6e 69 76 65 61 ┆do xuyu; (* sæt x-y-triggernivea┆
0x118a0…118c0 75 20 74 69 6c 20 31 2e 34 56 20 2a 29 0d 0a 20 20 63 6f 64 65 0d 0a 20 20 20 20 24 30 31 2c 50 ┆u til 1.4V *) code $01,P┆
0x118c0…118e0 49 4f 44 41 54 41 2c 24 32 41 2c 41 4e 54 41 4c 20 20 2c 24 44 44 2c 24 32 41 2c 50 55 4c 53 20 ┆IODATA,$2A,ANTAL ,$DD,$2A,PULS ┆
0x118e0…11900 20 20 2c 24 46 33 2c 24 45 44 2c 24 37 38 2c 24 45 36 2c 24 38 30 2c 24 32 38 2c 0d 0a 20 20 20 ┆ ,$F3,$ED,$78,$E6,$80,$28, ┆
0x11900…11920 20 24 46 41 2c 24 45 44 2c 24 37 38 2c 24 45 36 2c 24 38 30 2c 24 32 30 2c 24 46 41 2c 24 31 31 ┆ $FA,$ED,$78,$E6,$80,$20,$FA,$11┆
0x11920…11940 2c 24 30 30 2c 24 30 30 2c 24 45 44 2c 24 37 38 2c 24 43 42 2c 24 37 46 2c 24 32 30 2c 24 31 31 ┆,$00,$00,$ED,$78,$CB,$7F,$20,$11┆
0x11940…11960 2c 0d 0a 20 20 20 20 24 45 36 2c 24 34 30 2c 24 32 30 2c 24 46 36 2c 24 31 33 2c 24 45 44 2c 24 ┆, $E6,$40,$20,$F6,$13,$ED,$┆
0x11960…11980 37 38 2c 24 43 42 2c 24 37 46 2c 24 32 30 2c 24 30 36 2c 24 45 36 2c 24 34 30 2c 24 32 38 2c 24 ┆78,$CB,$7F,$20,$06,$E6,$40,$28,$┆
0x11980…119a0 46 36 2c 24 31 38 2c 0d 0a 20 20 20 20 24 45 39 2c 24 45 44 2c 24 37 38 2c 24 43 42 2c 24 37 46 ┆F6,$18, $E9,$ED,$78,$CB,$7F┆
0x119a0…119c0 2c 24 32 38 2c 24 31 31 2c 24 45 36 2c 24 34 30 2c 24 32 30 2c 24 46 36 2c 24 31 33 2c 24 45 44 ┆,$28,$11,$E6,$40,$20,$F6,$13,$ED┆
0x119c0…119e0 2c 24 37 38 2c 24 43 42 2c 24 37 46 2c 0d 0a 20 20 20 20 24 32 38 2c 24 30 36 2c 24 45 36 2c 24 ┆,$78,$CB,$7F, $28,$06,$E6,$┆
0x119e0…11a00 34 30 2c 24 32 38 2c 24 46 36 2c 24 31 38 2c 24 45 39 2c 24 44 44 2c 24 37 33 2c 24 30 30 2c 24 ┆40,$28,$F6,$18,$E9,$DD,$73,$00,$┆
0x11a00…11c00 (8, 0, 4) DataBlock {»XYGRAF.PAS«}
0x11c00…11e00 (8, 0, 5) 0xe5[0x200]
0x11e00…12000 (8, 0, 6) DataBlock {»XYGRAF.PAS«}
0x12000…12200 (8, 0, 7) 0xe5[0x200]
0x12200…12400 (8, 0, 8) DataBlock {»XYGRAF.PAS«}
[…0x3…]
0x12900…12920 4c 53 45 20 59 28 2e 49 2e 29 3a 3d 52 4f 55 4e 44 28 56 41 45 52 44 49 29 3b 0d 0a 20 20 20 20 ┆LSE Y(.I.):=ROUND(VAERDI); ┆
0x12920…12940 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 20 49 3a 3d 30 3b 0d 0a 20 20 20 20 20 52 45 50 45 41 ┆ END; I:=0; REPEA┆
0x12940…12960 54 0d 0a 20 20 20 20 20 20 20 20 57 48 49 4c 45 20 28 58 28 2e 49 2e 29 3c 30 29 20 4f 52 20 28 ┆T WHILE (X(.I.)<0) OR (┆
0x12960…12980 59 28 2e 49 2e 29 3c 30 29 20 44 4f 20 28 2a 20 55 4e 44 45 4e 46 4f 52 20 50 41 50 49 52 45 54 ┆Y(.I.)<0) DO (* UNDENFOR PAPIRET┆
0x12980…129a0 20 2a 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 20 49 3a 3d 49 2b 31 3b 20 49 46 ┆ *) BEGIN I:=I+1; IF┆
0x129a0…129c0 20 49 3e 3d 41 4e 54 41 4c 20 54 48 45 4e 20 47 4f 54 4f 20 45 58 49 54 20 45 4e 44 3b 0d 0a 20 ┆ I>=ANTAL THEN GOTO EXIT END; ┆
0x129c0…129e0 20 20 20 20 20 20 20 50 4f 53 49 54 49 4f 4e 28 58 28 2e 49 2e 29 2c 59 28 2e 49 2e 29 29 3b 0d ┆ POSITION(X(.I.),Y(.I.)); ┆
0x129e0…12a00 0a 20 20 20 20 20 20 20 20 57 48 49 4c 45 20 28 58 28 2e 49 2e 29 3e 3d 30 29 20 41 4e 44 20 28 ┆ WHILE (X(.I.)>=0) AND (┆
0x12a00…12c00 (8, 1, 3) DataBlock {»XYGRAF.PAS«}
0x12c00…12e00 (8, 1, 4) 0xe5[0x200]
0x12e00…13000 (8, 1, 5) DataBlock {»XYGRAF.PAS«}
0x13000…13020 (8, 1, 6) 0d 0a 20 70 72 6f 67 72 61 6d 20 52 4f 4e 54 3b 20 20 28 2a 20 6a 61 6e 20 31 39 39 32 20 2a 29 ┆ program RONT; (* jan 1992 *)┆
0x13020…13040 0d 0a 20 28 2a 24 49 20 78 79 62 61 73 69 73 20 2a 29 0d 0a 20 28 2a 24 49 20 78 79 66 79 73 69 ┆ (*$I xybasis *) (*$I xyfysi┆
0x13040…13060 6b 20 2a 29 0d 0a 20 28 2a 24 49 20 78 79 67 72 61 66 20 20 2a 29 0d 0a 20 28 2a 20 70 72 6f 67 ┆k *) (*$I xygraf *) (* prog┆
0x13060…13080 72 61 6d 6d 65 74 20 6b 61 6e 20 6b 75 6e 20 63 6f 6d 70 69 6c 65 73 20 74 69 6c 20 65 6e 20 63 ┆rammet kan kun compiles til en c┆
0x13080…130a0 6f 6d 2d 66 69 6c 2c 20 64 65 74 20 65 72 20 66 6f 72 20 73 74 6f 72 74 2e 20 2a 29 0d 0a 20 63 ┆om-fil, det er for stort. *) c┆
0x130a0…130c0 6f 6e 73 74 20 64 20 3d 32 30 31 2e 33 38 3b 0d 0a 20 56 41 52 20 20 20 20 64 61 74 61 66 69 6c ┆onst d =201.38; VAR datafil┆
0x130c0…130e0 20 20 3a 20 66 69 6c 65 20 6f 66 20 72 65 61 6c 3b 0d 0a 20 20 20 20 20 20 20 20 64 6f 62 76 69 ┆ : file of real; dobvi┆
0x130e0…13100 6e 6b 2c 61 6e 74 61 6c 2c 69 2c 6a 2c 6b 2c 6d 69 6e 76 2c 6d 61 78 76 2c 68 6f 6c 64 20 3a 20 ┆nk,antal,i,j,k,minv,maxv,hold : ┆
0x13100…13120 69 6e 74 65 67 65 72 3b 0d 0a 20 20 20 20 20 20 20 20 69 6d 70 75 6c 73 2c 76 69 6e 6b 65 6c 2c ┆integer; impuls,vinkel,┆
0x13120…13140 64 65 6c 74 61 76 69 6e 6b 65 6c 2c 74 69 64 2c 6c 2c 78 6d 61 78 2c 79 6d 61 78 20 20 3a 20 72 ┆deltavinkel,tid,l,xmax,ymax : r┆
0x13140…13160 65 61 6c 3b 0d 0a 20 20 20 20 20 20 20 20 63 68 2c 73 6c 65 74 20 3a 20 63 68 61 72 3b 0d 0a 20 ┆eal; ch,slet : char; ┆
0x13160…13180 20 20 20 20 20 20 20 7a 20 20 3a 20 69 6e 74 61 72 72 61 79 3b 0d 0a 20 20 20 20 20 20 20 20 78 ┆ z : intarray; x┆
0x13180…131a0 2c 79 20 3a 20 72 65 61 6c 61 72 72 61 79 3b 0d 0a 20 20 20 20 20 20 20 20 66 69 6c 6e 61 76 6e ┆,y : realarray; filnavn┆
0x131a0…131c0 20 3a 20 73 74 72 69 6e 67 28 2e 38 2e 29 3b 0d 0a 20 20 20 20 20 20 20 20 73 76 61 72 20 3a 20 ┆ : string(.8.); svar : ┆
0x131c0…131e0 63 68 61 72 3b 0d 0a 20 20 20 20 20 20 20 20 66 69 6c 66 65 6a 6c 20 3a 20 62 6f 6f 6c 65 61 6e ┆char; filfejl : boolean┆
0x131e0…13200 3b 0d 0a 0d 0a 20 42 45 47 49 4e 0d 0a 20 20 20 20 77 72 69 74 65 28 63 68 72 28 31 32 29 29 3b ┆; BEGIN write(chr(12));┆
0x13200…13400 (8, 1, 7) DataBlock {»XYGRAF.PAS«}
0x13400…13420 (8, 1, 8) 0d 0a 20 20 20 20 67 6f 74 6f 78 79 28 31 30 2c 35 29 3b 77 72 69 74 65 28 27 41 6e 67 69 76 20 ┆ gotoxy(10,5);write('Angiv ┆
0x13420…13440 65 74 20 6e 61 76 6e 20 74 69 6c 20 64 61 74 61 66 69 6c 65 6e 20 3a 20 27 29 3b 0d 0a 20 20 20 ┆et navn til datafilen : '); ┆
0x13440…13460 20 72 65 70 65 61 74 0d 0a 20 20 20 20 20 20 67 6f 74 6f 78 79 28 34 35 2c 35 29 3b 77 72 69 74 ┆ repeat gotoxy(45,5);writ┆
0x13460…13480 65 28 27 20 20 20 20 20 20 20 20 20 20 27 29 3b 0d 0a 20 20 20 20 20 20 67 6f 74 6f 78 79 28 34 ┆e(' '); gotoxy(4┆
0x13480…134a0 35 2c 35 29 3b 72 65 61 64 6c 6e 28 66 69 6c 6e 61 76 6e 29 3b 0d 0a 20 20 20 20 20 20 61 73 73 ┆5,5);readln(filnavn); ass┆
0x134a0…134c0 69 67 6e 28 64 61 74 61 66 69 6c 2c 66 69 6c 6e 61 76 6e 2b 27 2e 44 41 54 27 29 3b 0d 0a 20 20 ┆ign(datafil,filnavn+'.DAT'); ┆
0x134c0…134e0 20 20 20 20 28 2a 24 49 2d 2a 29 20 72 65 73 65 74 28 64 61 74 61 66 69 6c 29 3b 28 2a 24 49 2b ┆ (*$I-*) reset(datafil);(*$I+┆
0x134e0…13500 2a 29 0d 0a 20 20 20 20 20 20 66 69 6c 66 65 6a 6c 3a 3d 69 6f 72 65 73 3e 30 3b 0d 0a 20 20 20 ┆*) filfejl:=iores>0; ┆
0x13500…13520 20 20 20 69 66 20 66 69 6c 66 65 6a 6c 20 74 68 65 6e 20 62 65 67 69 6e 0d 0a 20 20 20 20 20 20 ┆ if filfejl then begin ┆
0x13520…13540 20 20 20 67 6f 74 6f 78 79 28 31 30 2c 37 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 77 72 69 74 65 ┆ gotoxy(10,7); write┆
0x13540…13560 28 27 53 6b 61 6c 20 65 6e 20 6e 79 20 66 69 6c 20 6f 70 72 65 74 74 65 73 20 28 4a 2f 4e 29 20 ┆('Skal en ny fil oprettes (J/N) ┆
0x13560…13580 3f 20 27 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 72 65 70 65 61 74 0d 0a 20 20 20 20 20 20 20 20 ┆? '); repeat ┆
0x13580…135a0 20 20 20 72 65 61 64 28 6b 62 64 2c 73 76 61 72 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 75 6e 74 ┆ read(kbd,svar); unt┆
0x135a0…135c0 69 6c 20 73 76 61 72 20 69 6e 20 28 2e 27 4a 27 2c 27 6a 27 2c 27 4e 27 2c 27 6e 27 2e 29 3b 0d ┆il svar in (.'J','j','N','n'.); ┆
0x135c0…135e0 0a 20 20 20 20 20 20 20 20 20 69 66 20 73 76 61 72 20 69 6e 20 28 2e 27 4a 27 2c 27 6a 27 2e 29 ┆ if svar in (.'J','j'.)┆
0x135e0…13600 20 74 68 65 6e 20 62 65 67 69 6e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 2a 24 49 2d 2a 29 ┆ then begin (*$I-*)┆
0x13600…13800 (8, 1, 9) DataBlock {»XYGRAF.PAS«}
0x13800…13820 (9, 0, 1) 20 72 65 77 72 69 74 65 28 64 61 74 61 66 69 6c 29 3b 28 2a 24 49 2b 2a 29 0d 0a 20 20 20 20 20 ┆ rewrite(datafil);(*$I+*) ┆
0x13820…13840 20 20 20 20 20 20 20 20 69 66 20 69 6f 72 65 73 3e 30 20 74 68 65 6e 0d 0a 20 20 20 20 20 20 20 ┆ if iores>0 then ┆
0x13840…13860 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 6c 6e 28 27 49 6b 6b 65 20 6d 65 72 65 20 70 6c 61 ┆ writeln('Ikke mere pla┆
0x13860…13880 64 73 20 70 7d 20 64 69 73 6b 65 74 74 65 6e 21 21 27 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ds på disketten!!') ┆
0x13880…138a0 20 20 65 6c 73 65 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 69 6c 66 65 6a 6c 3a ┆ else filfejl:┆
0x138a0…138c0 3d 66 61 6c 73 65 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0d 0a 20 20 20 20 20 20 65 ┆=false; end; e┆
0x138c0…138e0 6e 64 3b 0d 0a 20 20 20 20 75 6e 74 69 6c 20 6e 6f 74 20 66 69 6c 66 65 6a 6c 3b 0d 0a 20 20 20 ┆nd; until not filfejl; ┆
0x138e0…13900 20 77 72 69 74 65 28 63 68 72 28 31 32 29 29 3b 0d 0a 20 20 20 52 45 50 45 41 54 0d 0a 20 20 20 ┆ write(chr(12)); REPEAT ┆
0x13900…13920 20 20 57 52 49 54 45 28 43 48 52 28 31 32 29 29 3b 0d 0a 20 20 20 20 20 57 52 49 54 45 4c 4e 28 ┆ WRITE(CHR(12)); WRITELN(┆
0x13920…13940 27 20 20 20 20 20 20 20 20 2a 2a 2a 2a 20 20 52 5c 4e 54 47 45 4e 53 50 45 4b 54 52 55 4d 20 20 ┆' **** RØNTGENSPEKTRUM ┆
0x13940…13960 2a 2a 2a 2a 27 29 3b 57 52 49 54 45 4c 4e 3b 0d 0a 20 20 20 20 20 77 72 69 74 65 6c 6e 28 27 20 ┆****');WRITELN; writeln(' ┆
0x13960…13980 20 20 20 20 20 20 20 30 29 20 20 53 6c 65 74 74 65 20 67 61 6d 6c 65 20 64 61 74 61 66 69 6c 65 ┆ 0) Slette gamle datafile┆
0x13980…139a0 72 2e 27 29 3b 77 72 69 74 65 6c 6e 3b 0d 0a 20 20 20 20 20 57 52 49 54 45 4c 4e 28 27 20 20 20 ┆r.');writeln; WRITELN(' ┆
0x139a0…139c0 20 20 20 20 20 31 29 20 20 4f 70 74 61 67 65 20 6f 76 65 72 73 69 67 74 73 70 65 6b 74 72 75 6d ┆ 1) Optage oversigtspektrum┆
0x139c0…139e0 20 28 30 2e 35 30 20 67 72 61 64 65 72 29 27 29 3b 0d 0a 20 20 20 20 20 77 72 69 74 65 6c 6e 3b ┆ (0.50 grader)'); writeln;┆
0x139e0…13a00 0d 0a 20 20 20 20 20 77 72 69 74 65 6c 6e 28 27 20 20 20 20 20 20 20 20 32 29 20 20 4f 70 74 61 ┆ writeln(' 2) Opta┆
0x13a00…13a20 (9, 0, 2) 69 6c 29 3b 0d 0a 09 20 20 20 20 20 20 76 69 6e 6b 65 6c 3a 3d 76 69 6e 6b 65 6c 2b 64 65 6c 74 ┆il); vinkel:=vinkel+delt┆
0x13a20…13a40 61 76 69 6e 6b 65 6c 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 75 6e 74 69 6c 20 76 69 6e 6b 65 6c ┆avinkel; until vinkel┆
0x13a40…13a60 3e 6d 61 78 76 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 74 72 69 73 74 61 74 65 3b 0d 0a 20 20 20 ┆>maxv; tristate; ┆
0x13a60…13a80 20 20 20 20 20 20 20 65 6e 64 3b 0d 0a 20 20 20 20 27 33 27 20 3a 20 42 45 47 49 4e 0d 0a 20 20 ┆ end; '3' : BEGIN ┆
0x13a80…13aa0 20 20 20 20 20 20 20 20 20 20 72 65 73 65 74 28 64 61 74 61 66 69 6c 29 3b 72 65 61 64 28 64 61 ┆ reset(datafil);read(da┆
0x13aa0…13ac0 74 61 66 69 6c 2c 74 69 64 2c 64 65 6c 74 61 76 69 6e 6b 65 6c 29 3b 0d 0a 20 20 20 20 20 20 20 ┆tafil,tid,deltavinkel); ┆
0x13ac0…13ae0 20 20 20 20 20 77 72 69 74 65 28 20 63 68 72 28 31 32 29 20 29 3b 20 77 72 69 74 65 6c 6e 3b 20 ┆ write( chr(12) ); writeln; ┆
0x13ae0…13b00 77 72 69 74 65 6c 6e 3b 20 77 72 69 74 65 6c 6e 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 ┆writeln; writeln; w┆
0x13b00…13b20 72 69 74 65 6c 6e 28 43 4f 4e 2c 27 20 20 20 20 20 20 20 20 20 54 7b 6c 6c 65 74 69 64 20 3a 27 ┆riteln(CON,' Tælletid :'┆
0x13b20…13b40 2c 74 69 64 3a 35 2c 27 20 73 65 6b 75 6e 64 65 72 2e 27 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 ┆,tid:5,' sekunder.'); ┆
0x13b40…13b60 20 20 20 77 72 69 74 65 6c 6e 28 43 4f 4e 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 72 ┆ writeln(CON); wr┆
0x13b60…13b80 69 74 65 6c 6e 28 43 4f 4e 2c 27 20 20 20 20 20 20 56 69 6e 6b 65 6c 20 20 20 20 42 7c 6c 67 65 ┆iteln(CON,' Vinkel Bølge┆
0x13b80…13ba0 6c 7b 6e 67 64 65 20 20 20 20 49 6d 70 75 6c 73 65 72 27 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 ┆længde Impulser'); ┆
0x13ba0…13bc0 20 20 20 77 72 69 74 65 6c 6e 28 43 4f 4e 2c 27 20 20 20 20 20 20 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ┆ writeln(CON,' ==========┆
0x13bc0…13be0 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 27 29 3b 0d 0a 20 20 20 20 ┆======================='); ┆
0x13be0…13c00 20 20 20 20 20 20 20 20 77 72 69 74 65 6c 6e 28 43 4f 4e 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 ┆ writeln(CON); ┆
0x13c00…13c20 (9, 0, 3) 67 65 20 66 69 6e 73 70 65 6b 74 72 75 6d 20 28 30 2e 32 35 20 67 72 61 64 65 72 29 27 29 3b 0d ┆ge finspektrum (0.25 grader)'); ┆
0x13c20…13c40 0a 20 20 20 20 20 77 72 69 74 65 6c 6e 3b 0d 0a 20 20 20 20 20 77 72 69 74 65 6c 6e 28 27 20 20 ┆ writeln; writeln(' ┆
0x13c40…13c60 20 20 20 20 20 20 33 29 20 20 55 64 73 6b 72 69 76 65 20 64 61 74 61 20 70 7d 20 53 4b 5b 52 4d ┆ 3) Udskrive data på SKÆRM┆
0x13c60…13c80 2e 27 29 3b 0d 0a 20 20 20 20 20 77 72 69 74 65 6c 6e 3b 0d 0a 20 20 20 20 20 77 72 69 74 65 6c ┆.'); writeln; writel┆
0x13c80…13ca0 6e 28 27 20 20 20 20 20 20 20 20 34 29 20 20 55 64 73 6b 72 69 76 65 20 64 61 74 61 20 70 7d 20 ┆n(' 4) Udskrive data på ┆
0x13ca0…13cc0 50 52 49 4e 54 45 52 2e 27 29 3b 0d 0a 20 20 20 20 20 77 72 69 74 65 6c 6e 3b 0d 0a 20 20 20 20 ┆PRINTER.'); writeln; ┆
0x13cc0…13ce0 20 77 72 69 74 65 6c 6e 28 27 20 20 20 20 20 20 20 20 35 29 20 20 54 65 67 6e 69 6e 67 20 61 66 ┆ writeln(' 5) Tegning af┆
0x13ce0…13d00 20 67 72 61 66 20 70 7d 20 70 6c 6f 74 74 65 72 2e 27 29 3b 77 72 69 74 65 6c 6e 3b 0d 0a 20 20 ┆ graf på plotter.');writeln; ┆
0x13d00…13d20 20 20 20 77 72 69 74 65 6c 6e 28 27 20 20 20 20 20 20 20 20 36 29 20 20 53 74 6f 70 2e 27 29 3b ┆ writeln(' 6) Stop.');┆
0x13d20…13d40 0d 0a 20 20 20 20 20 0d 0a 20 20 20 20 20 77 72 69 74 65 6c 6e 3b 0d 0a 20 20 20 20 20 20 20 77 ┆ writeln; w┆
0x13d40…13d60 72 69 74 65 28 27 20 20 20 20 20 20 20 20 20 20 20 20 56 7b 6c 67 20 65 74 20 74 61 6c 20 28 30 ┆rite(' Vælg et tal (0┆
0x13d60…13d80 2c 31 2c 32 2c 33 2c 34 2c 35 2c 36 29 20 2d 2d 3e 20 20 27 29 3b 0d 0a 20 20 20 20 20 72 65 70 ┆,1,2,3,4,5,6) --> '); rep┆
0x13d80…13da0 65 61 74 20 72 65 61 64 28 4b 42 44 2c 63 68 29 20 75 6e 74 69 6c 20 63 68 20 69 6e 20 28 2e 27 ┆eat read(KBD,ch) until ch in (.'┆
0x13da0…13dc0 30 27 2e 2e 27 36 27 20 2e 29 3b 77 72 69 74 65 6c 6e 28 63 68 29 3b 0d 0a 20 20 20 20 20 43 41 ┆0'..'6' .);writeln(ch); CA┆
0x13dc0…13de0 53 45 20 63 68 20 4f 46 0d 0a 20 20 20 20 20 27 30 27 20 3a 20 62 65 67 69 6e 0d 0a 20 20 20 20 ┆SE ch OF '0' : begin ┆
0x13de0…13e00 20 20 20 20 20 20 20 20 20 77 72 69 74 65 28 63 68 72 28 31 32 29 29 3b 0d 0a 20 20 20 20 20 20 ┆ write(chr(12)); ┆
0x13e00…13e20 (9, 0, 4) 20 20 20 57 48 49 4c 45 20 4e 4f 54 20 45 4f 46 28 64 61 74 61 66 69 6c 29 20 44 4f 20 42 45 47 ┆ WHILE NOT EOF(datafil) DO BEG┆
0x13e20…13e40 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 41 44 28 64 61 74 61 66 69 6c 2c ┆IN READ(datafil,┆
0x13e40…13e60 76 69 6e 6b 65 6c 2c 69 6d 70 75 6c 73 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆vinkel,impuls); ┆
0x13e60…13e80 6c 3a 3d 32 2a 64 2a 73 69 6e 28 76 69 6e 6b 65 6c 2a 50 49 2f 31 38 30 29 3b 0d 0a 20 20 20 20 ┆l:=2*d*sin(vinkel*PI/180); ┆
0x13e80…13ea0 20 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 6c 6e 28 43 4f 4e 2c 76 69 6e 6b 65 6c 3a 31 31 ┆ writeln(CON,vinkel:11┆
0x13ea0…13ec0 3a 32 2c 72 6f 75 6e 64 28 6c 29 3a 31 32 2c 69 6d 70 75 6c 73 3a 31 33 29 3b 0d 0a 20 20 20 20 ┆:2,round(l):12,impuls:13); ┆
0x13ec0…13ee0 20 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 63 6c 6f 73 65 28 ┆ END; close(┆
0x13ee0…13f00 64 61 74 61 66 69 6c 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 6c 6e 3b 20 77 72 ┆datafil); writeln; wr┆
0x13f00…13f20 69 74 65 6c 6e 28 27 54 61 73 74 20 3c 52 45 54 55 52 3e 20 27 29 3b 20 72 65 61 64 6c 6e 28 20 ┆iteln('Tast <RETUR> '); readln( ┆
0x13f20…13f40 63 68 20 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 27 34 27 20 3a ┆ch ); END; '4' :┆
0x13f40…13f60 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 65 73 65 74 28 64 61 74 61 66 69 ┆ BEGIN reset(datafi┆
0x13f60…13f80 6c 29 3b 72 65 61 64 28 64 61 74 61 66 69 6c 2c 74 69 64 2c 64 65 6c 74 61 76 69 6e 6b 65 6c 29 ┆l);read(datafil,tid,deltavinkel)┆
0x13f80…13fa0 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 6c 6e 28 4c 53 54 2c 27 20 20 20 20 ┆; writeln(LST,' ┆
0x13fa0…13fc0 20 20 20 20 54 7b 6c 6c 65 74 69 64 20 20 27 2c 74 69 64 2c 27 20 73 65 6b 75 6e 64 65 72 20 20 ┆ Tælletid ',tid,' sekunder ┆
0x13fc0…13fe0 20 27 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 6c 6e 28 4c 53 54 29 3b 0d ┆ '); writeln(LST); ┆
0x13fe0…14000 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 6c 6e 28 4c 53 54 2c 27 20 20 20 20 20 20 ┆ writeln(LST,' ┆
0x14000…14020 (9, 0, 5) 20 20 20 20 20 20 20 67 6f 74 6f 78 79 28 31 30 2c 31 30 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 ┆ gotoxy(10,10); ┆
0x14020…14040 20 20 20 20 77 72 69 74 65 28 27 45 72 20 64 65 74 20 6f 6b 20 61 74 20 73 6c 65 74 74 65 20 67 ┆ write('Er det ok at slette g┆
0x14040…14060 61 6d 6c 65 20 64 61 74 61 3f 20 28 4a 2f 4e 29 27 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ┆amle data? (J/N)'); ┆
0x14060…14080 20 20 72 65 70 65 61 74 20 72 65 61 64 28 4b 42 44 2c 73 6c 65 74 29 20 75 6e 74 69 6c 20 73 6c ┆ repeat read(KBD,slet) until sl┆
0x14080…140a0 65 74 20 69 6e 20 28 2e 27 4a 27 2c 27 6a 27 2c 27 4e 27 2c 27 6e 27 2e 29 3b 0d 0a 20 20 20 20 ┆et in (.'J','j','N','n'.); ┆
0x140a0…140c0 20 20 20 20 20 20 20 20 20 69 66 20 73 6c 65 74 20 69 6e 20 28 2e 27 4a 27 2c 27 6a 27 2e 29 20 ┆ if slet in (.'J','j'.) ┆
0x140c0…140e0 74 68 65 6e 20 62 65 67 69 6e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 77 72 69 ┆then begin rewri┆
0x140e0…14100 74 65 28 64 61 74 61 66 69 6c 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6c 6f ┆te(datafil); clo┆
0x14100…14120 73 65 28 64 61 74 61 66 69 6c 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0d ┆se(datafil); end; ┆
0x14120…14140 0a 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0d 0a 20 20 20 20 20 27 31 27 2c 27 32 27 20 3a ┆ end; '1','2' :┆
0x14140…14160 20 42 45 47 49 4e 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 69 66 20 63 68 3d 27 31 27 20 74 68 ┆ BEGIN if ch='1' th┆
0x14160…14180 65 6e 20 64 65 6c 74 61 76 69 6e 6b 65 6c 3a 3d 30 2e 35 20 65 6c 73 65 20 64 65 6c 74 61 76 69 ┆en deltavinkel:=0.5 else deltavi┆
0x14180…141a0 6e 6b 65 6c 3a 3d 30 2e 32 35 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 28 63 68 72 ┆nkel:=0.25; write(chr┆
0x141a0…141c0 28 31 32 29 29 3b 0d 0a 09 20 20 69 66 20 6c 65 6e 67 74 68 28 64 61 74 61 66 69 6c 29 3e 32 20 ┆(12)); if length(datafil)>2 ┆
0x141c0…141e0 74 68 65 6e 20 62 65 67 69 6e 0d 0a 09 09 72 65 73 65 74 28 64 61 74 61 66 69 6c 29 3b 0d 0a 09 ┆then begin reset(datafil); ┆
0x141e0…14200 09 72 65 61 64 28 64 61 74 61 66 69 6c 2c 74 69 64 2c 64 65 6c 74 61 76 69 6e 6b 65 6c 29 3b 0d ┆ read(datafil,tid,deltavinkel); ┆
0x14200…14220 (9, 0, 6) 56 69 6e 6b 65 6c 20 20 20 20 42 7c 6c 67 65 6c 7b 6e 67 64 65 20 20 20 20 49 6d 70 75 6c 73 65 ┆Vinkel Bølgelængde Impulse┆
0x14220…14240 72 27 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 6c 6e 28 4c 53 54 2c 27 20 ┆r'); writeln(LST,' ┆
0x14240…14260 20 20 20 20 20 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ┆ ===========================┆
0x14260…14280 3d 3d 3d 3d 3d 3d 27 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 6c 6e 28 4c ┆======'); writeln(L┆
0x14280…142a0 53 54 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 57 48 49 4c 45 20 4e 4f 54 20 45 4f 46 28 ┆ST); WHILE NOT EOF(┆
0x142a0…142c0 64 61 74 61 66 69 6c 29 20 44 4f 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆datafil) DO BEGIN ┆
0x142c0…142e0 20 20 52 45 41 44 28 64 61 74 61 66 69 6c 2c 76 69 6e 6b 65 6c 2c 69 6d 70 75 6c 73 29 3b 0d 0a ┆ READ(datafil,vinkel,impuls); ┆
0x142e0…14300 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 3a 3d 32 2a 64 2a 73 69 6e 28 76 69 6e 6b 65 6c ┆ l:=2*d*sin(vinkel┆
0x14300…14320 2a 50 49 2f 31 38 30 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 6c ┆*PI/180); writel┆
0x14320…14340 6e 28 4c 53 54 2c 76 69 6e 6b 65 6c 3a 31 31 3a 32 2c 72 6f 75 6e 64 28 6c 29 3a 31 32 2c 69 6d ┆n(LST,vinkel:11:2,round(l):12,im┆
0x14340…14360 70 75 6c 73 3a 31 33 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 ┆puls:13); END; ┆
0x14360…14380 20 20 20 20 20 20 20 20 20 63 6c 6f 73 65 28 64 61 74 61 66 69 6c 29 3b 0d 0a 20 20 20 20 20 20 ┆ close(datafil); ┆
0x14380…143a0 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 20 20 27 36 27 20 3a 20 28 2a 20 73 7d 20 73 74 6f 70 ┆ END; '6' : (* så stop┆
0x143a0…143c0 70 65 72 20 76 69 20 2a 29 20 3b 0d 0a 20 20 20 20 20 20 27 35 27 20 3a 20 62 65 67 69 6e 0d 0a ┆per vi *) ; '5' : begin ┆
0x143c0…143e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 73 65 74 28 64 61 74 61 66 69 6c 29 3b 72 65 61 ┆ reset(datafil);rea┆
0x143e0…14400 64 28 64 61 74 61 66 69 6c 2c 74 69 64 2c 64 65 6c 74 61 76 69 6e 6b 65 6c 29 3b 61 6e 74 61 6c ┆d(datafil,tid,deltavinkel);antal┆
0x14400…14420 (9, 0, 7) 0a 09 09 77 72 69 74 65 6c 6e 28 27 44 61 74 61 66 69 6c 65 6e 20 69 6e 64 65 68 6f 6c 64 65 72 ┆ writeln('Datafilen indeholder┆
0x14420…14440 20 27 2c 6c 65 6e 67 74 68 28 64 61 74 61 66 69 6c 29 2d 32 2c 27 20 6d 7d 6c 65 74 61 6c 27 29 ┆ ',length(datafil)-2,' måletal')┆
0x14440…14460 3b 0d 0a 09 09 77 72 69 74 65 6c 6e 3b 0d 0a 09 20 20 65 6e 64 20 65 6c 73 65 20 62 65 67 69 6e ┆; writeln; end else begin┆
0x14460…14480 0d 0a 09 09 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 28 27 20 41 6e 67 69 76 20 ┆ write(' Angiv ┆
0x14480…144a0 6d 69 6e 64 73 74 65 20 76 69 6e 6b 65 6c 20 66 6f 72 20 6d 7d 6c 69 6e 67 20 28 68 65 6c 74 20 ┆mindste vinkel for måling (helt ┆
0x144a0…144c0 74 61 6c 29 20 27 29 3b 20 72 65 61 64 6c 6e 28 6d 69 6e 76 29 3b 0d 0a 20 20 20 20 20 20 20 20 ┆tal) '); readln(minv); ┆
0x144c0…144e0 20 20 20 20 77 72 69 74 65 28 27 20 41 6e 67 69 76 20 73 74 7c 72 73 74 65 20 76 69 6e 6b 65 6c ┆ write(' Angiv største vinkel┆
0x144e0…14500 20 66 6f 72 20 6d 7d 6c 69 6e 67 20 28 68 65 6c 74 20 74 61 6c 29 20 27 29 3b 20 72 65 61 64 6c ┆ for måling (helt tal) '); readl┆
0x14500…14520 6e 28 6d 61 78 76 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 6c 6e 3b 0d 0a ┆n(maxv); writeln; ┆
0x14520…14540 09 20 20 20 20 77 72 69 74 65 28 27 20 41 6e 67 69 76 20 74 7b 6c 6c 65 74 69 64 65 6e 20 69 20 ┆ write(' Angiv tælletiden i ┆
0x14540…14560 73 65 6b 75 6e 64 65 72 20 28 20 68 65 6c 74 20 74 61 6c 20 29 20 27 29 3b 72 65 61 64 6c 6e 28 ┆sekunder ( helt tal ) ');readln(┆
0x14560…14580 74 69 64 29 3b 0d 0a 20 20 20 20 20 20 20 09 20 20 20 20 77 72 69 74 65 6c 6e 3b 0d 0a 09 20 20 ┆tid); writeln; ┆
0x14580…145a0 20 20 72 65 77 72 69 74 65 28 64 61 74 61 66 69 6c 29 3b 20 77 72 69 74 65 28 64 61 74 61 66 69 ┆ rewrite(datafil); write(datafi┆
0x145a0…145c0 6c 2c 74 69 64 2c 64 65 6c 74 61 76 69 6e 6b 65 6c 29 3b 0d 0a 09 20 20 65 6e 64 3b 0d 0a 20 20 ┆l,tid,deltavinkel); end; ┆
0x145c0…145e0 20 20 20 20 20 20 20 20 74 72 69 73 74 61 74 65 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 77 72 69 ┆ tristate; wri┆
0x145e0…14600 74 65 6c 6e 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 6c 6e 28 27 20 54 72 79 6b 20 ┆teln; writeln(' Tryk ┆
0x14600…14620 (9, 0, 8) 3a 3d 30 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 6e 6f 74 20 65 6f ┆:=0; while not eo┆
0x14620…14640 66 28 64 61 74 61 66 69 6c 29 20 64 6f 20 62 65 67 69 6e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ┆f(datafil) do begin ┆
0x14640…14660 20 20 20 20 20 72 65 61 64 28 64 61 74 61 66 69 6c 2c 76 69 6e 6b 65 6c 2c 69 6d 70 75 6c 73 29 ┆ read(datafil,vinkel,impuls)┆
0x14660…14680 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 3a 3d 32 2a 64 2a 73 69 6e 28 76 69 ┆; l:=2*d*sin(vi┆
0x14680…146a0 6e 6b 65 6c 2a 70 69 2f 31 38 30 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 78 ┆nkel*pi/180); x┆
0x146a0…146c0 28 2e 61 6e 74 61 6c 2e 29 3a 3d 6c 3b 79 28 2e 61 6e 74 61 6c 2e 29 3a 3d 69 6d 70 75 6c 73 3b ┆(.antal.):=l;y(.antal.):=impuls;┆
0x146c0…146e0 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 6e 74 61 6c 3a 3d 61 6e 74 61 6c 2b 31 ┆ antal:=antal+1┆
0x146e0…14700 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0d 0a 20 20 20 20 20 20 20 20 20 ┆; end; ┆
0x14700…14720 20 20 20 20 20 63 6c 6f 73 65 28 64 61 74 61 66 69 6c 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆ close(datafil); ┆
0x14720…14740 20 20 20 20 79 6d 61 78 3a 3d 30 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 ┆ ymax:=0; for ┆
0x14740…14760 69 3a 3d 30 20 74 6f 20 61 6e 74 61 6c 2d 31 20 64 6f 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ┆i:=0 to antal-1 do ┆
0x14760…14780 20 20 20 20 20 20 69 66 20 79 6d 61 78 3c 79 28 2e 69 2e 29 20 74 68 65 6e 20 79 6d 61 78 3a 3d ┆ if ymax<y(.i.) then ymax:=┆
0x14780…147a0 79 28 2e 69 2e 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 78 6d 61 78 3a 3d 78 28 2e ┆y(.i.); xmax:=x(.┆
0x147a0…147c0 61 6e 74 61 6c 2d 31 2e 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 69 3a ┆antal-1.); for i:┆
0x147c0…147e0 3d 30 20 74 6f 20 61 6e 74 61 6c 2d 31 20 64 6f 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆=0 to antal-1 do ┆
0x147e0…14800 20 20 20 20 69 66 20 78 6d 61 78 3c 78 28 2e 69 2e 29 20 74 68 65 6e 20 78 6d 61 78 3a 3d 78 28 ┆ if xmax<x(.i.) then xmax:=x(┆
0x14800…14820 (9, 0, 9) 70 7d 20 65 6e 20 74 61 73 74 20 68 76 65 72 20 67 61 6e 67 20 65 6e 20 6e 79 20 6d 7d 6c 69 6e ┆på en tast hver gang en ny målin┆
0x14820…14840 67 20 73 6b 61 6c 20 6c 61 76 65 73 2e 27 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 77 72 69 74 ┆g skal laves.'); writ┆
0x14840…14860 65 6c 6e 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 76 69 6e 6b 65 6c 3a 3d 6d 69 6e 76 3b 0d 0a 09 ┆eln; vinkel:=minv; ┆
0x14860…14880 20 20 72 65 70 65 61 74 0d 0a 09 09 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 72 69 74 ┆ repeat writ┆
0x14880…148a0 65 28 27 20 56 69 6e 6b 65 6c 20 3a 27 2c 76 69 6e 6b 65 6c 3a 36 3a 32 29 3b 0d 0a 20 20 20 20 ┆e(' Vinkel :',vinkel:6:2); ┆
0x148a0…148c0 20 20 20 20 20 20 20 20 20 20 72 65 61 64 28 4b 42 44 2c 63 68 29 3b 0d 0a 20 20 20 20 20 20 20 ┆ read(KBD,ch); ┆
0x148c0…148e0 20 20 20 20 20 20 20 69 6d 70 75 6c 73 63 6c 6b 28 7a 2c 72 6f 75 6e 64 28 74 69 64 29 29 3b 0d ┆ impulsclk(z,round(tid)); ┆
0x148e0…14900 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6d 70 75 6c 73 3a 3d 30 3b 0d 0a 20 20 20 20 20 ┆ impuls:=0; ┆
0x14900…14920 20 20 20 20 20 20 20 20 20 66 6f 72 20 6a 3a 3d 30 20 74 6f 20 72 6f 75 6e 64 28 74 69 64 29 2d ┆ for j:=0 to round(tid)-┆
0x14920…14940 31 20 64 6f 20 69 6d 70 75 6c 73 3a 3d 69 6d 70 75 6c 73 2b 7a 28 2e 6a 2e 29 3b 0d 0a 20 20 20 ┆1 do impuls:=impuls+z(.j.); ┆
0x14940…14960 20 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 6c 6e 28 27 20 20 20 20 20 20 20 20 41 6e 74 61 ┆ writeln(' Anta┆
0x14960…14980 6c 20 69 6d 70 75 6c 73 65 72 20 3a 27 2c 69 6d 70 75 6c 73 3a 38 29 3b 0d 0a 20 20 20 20 20 20 ┆l impulser :',impuls:8); ┆
0x14980…149a0 20 20 20 20 20 20 20 20 72 65 73 65 74 28 64 61 74 61 66 69 6c 29 3b 20 73 65 65 6b 28 64 61 74 ┆ reset(datafil); seek(dat┆
0x149a0…149c0 61 66 69 6c 2c 20 6c 65 6e 67 74 68 28 64 61 74 61 66 69 6c 29 20 29 3b 0d 0a 20 20 20 20 20 20 ┆afil, length(datafil) ); ┆
0x149c0…149e0 20 20 20 20 20 20 20 20 77 72 69 74 65 28 64 61 74 61 66 69 6c 2c 76 69 6e 6b 65 6c 2c 69 6d 70 ┆ write(datafil,vinkel,imp┆
0x149e0…14a00 75 6c 73 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6c 6f 73 65 28 64 61 74 61 66 ┆uls); close(dataf┆
0x14a00…14a20 (9, 1, 1) 2e 69 2e 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 6c 6f 74 73 74 61 72 74 3b 0d ┆.i.); plotstart; ┆
0x14a20…14a40 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 67 6e 6b 75 72 76 65 28 78 2c 79 2c 61 6e 74 ┆ tegnkurve(x,y,ant┆
0x14a40…14a60 61 6c 2c 30 2c 78 6d 61 78 2c 30 2c 79 6d 61 78 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆al,0,xmax,0,ymax); ┆
0x14a60…14a80 20 20 70 6c 6f 74 73 6c 75 74 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0d 0a 20 ┆ plotslut; end; ┆
0x14a80…14aa0 20 20 20 45 4e 44 3b 0d 0a 20 55 4e 54 49 4c 20 63 68 20 3d 20 27 36 27 3b 0d 0a 20 45 4e 44 2e ┆ END; UNTIL ch = '6'; END.┆
0x14aa0…14ac0 0d 0a 20 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ ┆
0x14ac0…14ae0 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ ┆
[…0x1…]
0x14b00…14b20 20 20 20 20 20 63 6c 6f 73 65 28 64 61 74 61 66 69 6c 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆ close(datafil); ┆
0x14b20…14b40 20 20 20 20 79 6d 61 78 3a 3d 30 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 ┆ ymax:=0; for ┆
0x14b40…14b60 69 3a 3d 30 20 74 6f 20 61 6e 74 61 6c 2d 31 20 64 6f 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ┆i:=0 to antal-1 do ┆
0x14b60…14b80 20 20 20 20 20 20 69 66 20 79 6d 61 78 3c 79 28 2e 69 2e 29 20 74 68 65 6e 20 79 6d 61 78 3a 3d ┆ if ymax<y(.i.) then ymax:=┆
0x14b80…14ba0 79 28 2e 69 2e 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 78 6d 61 78 3a 3d 78 28 2e ┆y(.i.); xmax:=x(.┆
0x14ba0…14bc0 61 6e 74 61 6c 2d 31 2e 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 69 3a ┆antal-1.); for i:┆
0x14bc0…14be0 3d 30 20 74 6f 20 61 6e 74 61 6c 2d 31 20 64 6f 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆=0 to antal-1 do ┆
0x14be0…14c00 20 20 20 20 69 66 20 78 6d 61 78 3c 78 28 2e 69 2e 29 20 74 68 65 6e 20 78 6d 61 78 3a 3d 78 28 ┆ if xmax<x(.i.) then xmax:=x(┆
0x14c00…14e00 (9, 1, 2) DataBlock {»XRAY.PAS«}
[…0x8…]
0x15e00…16000 (10, 0, 2) DataBlock {»XRAY.COM«}
0x16000…16200 (10, 0, 3) DataBlock {»XRAY.PAS«}
0x16200…16400 (10, 0, 4) DataBlock {»XRAY.COM«}
0x16400…16600 (10, 0, 5) DataBlock {»XRAY.PAS«}
0x16600…16800 (10, 0, 6) DataBlock {»XRAY.COM«}
0x16800…16900 (10, 0, 7) DataBlock {»XRAY.PAS«}
0x16900…16920 20 20 20 20 20 63 6c 6f 73 65 28 64 61 74 61 66 69 6c 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆ close(datafil); ┆
0x16920…16940 20 20 20 20 79 6d 61 78 3a 3d 30 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 ┆ ymax:=0; for ┆
0x16940…16960 69 3a 3d 30 20 74 6f 20 61 6e 74 61 6c 2d 31 20 64 6f 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ┆i:=0 to antal-1 do ┆
0x16960…16980 20 20 20 20 20 20 69 66 20 79 6d 61 78 3c 79 28 2e 69 2e 29 20 74 68 65 6e 20 79 6d 61 78 3a 3d ┆ if ymax<y(.i.) then ymax:=┆
0x16980…169a0 79 28 2e 69 2e 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 78 6d 61 78 3a 3d 78 28 2e ┆y(.i.); xmax:=x(.┆
0x169a0…169c0 61 6e 74 61 6c 2d 31 2e 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 69 3a ┆antal-1.); for i:┆
0x169c0…169e0 3d 30 20 74 6f 20 61 6e 74 61 6c 2d 31 20 64 6f 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆=0 to antal-1 do ┆
0x169e0…16a00 20 20 20 20 69 66 20 78 6d 61 78 3c 78 28 2e 69 2e 29 20 74 68 65 6e 20 78 6d 61 78 3a 3d 78 28 ┆ if xmax<x(.i.) then xmax:=x(┆
0x16a00…16c00 (10, 0, 8) DataBlock {»XRAY.COM«}
[…0x26…]
0x1b800…1ba00 (12, 1, 2) 0xe5[0x200]
[…0x4…]
0x1c200…1c280 (12, 1, 7) DataBlock {»SCTEST.DAT«}
0x1c280…1c2a0 00 58 59 46 59 53 49 4b 20 50 41 53 00 00 00 25 19 1a 1b 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ XYFYSIK PAS % ┆
0x1c2a0…1c2c0 00 58 59 47 52 41 46 20 20 50 41 53 00 00 00 2a 1c 1d 1e 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ XYGRAF PAS * ┆
0x1c2c0…1c2e0 00 58 52 41 59 20 20 20 20 50 41 53 00 00 00 2e 1f 20 21 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ XRAY PAS . ! ┆
0x1c2e0…1c300 00 58 52 41 59 20 20 20 20 42 41 4b 00 00 00 2e 22 23 24 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ XRAY BAK ."#$ ┆
0x1c300…1c320 00 58 52 41 59 20 20 20 20 43 4f 4d 01 00 00 28 25 26 27 28 29 2a 2b 2c 2d 2e 2f 00 00 00 00 00 ┆ XRAY COM (%&'()*+,-./ ┆
0x1c320…1c340 00 53 43 54 45 53 54 20 20 44 41 54 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ SCTEST DAT ┆
0x1c340…1c360 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 ┆ ┆
[…0x5…]
0x1c400…1c600 (12, 1, 8) 0xe5[0x200]
[…0x19f…]