|
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 - downloadIndex: ┃ 5 A C E F I K L M O P R T ┃
Length: 328704 (0x50400)
Description: Bits:30003286 MINICALC eksempler - Piccolo
Types: 5¼" Floppy Disk, CP/M Filesystem - RC702 5¼ DD(a)", CpmFileSystemRc702a
| bytes | name | artifact |
|---|---|---|
| 1792 | ASCII.CHP | ⟦fc10a7f76⟧ |
| 4736 | ENERGIBE.MID | ⟦4fd48a863⟧ |
| 4736 | EOVERM.MID | ⟦2580f63c7⟧ |
| 4736 | FRITFALD.MID | ⟦15e8b8a33⟧ |
| 4736 | IMPULSEL.MID | ⟦4f9c364d7⟧ |
| 4736 | IMPULSUE.MID | ⟦fd2bf7dd1⟧ |
| 4736 | KASSE.MID | ⟦e3b551059⟧ |
| 4736 | KONDITAL.MID | ⟦f132f9707⟧ |
| 4736 | LIS.MID | ⟦0f6652085⟧ |
| 26112 | MINICALC.COM | ⟦6d68fc268⟧ |
| 9984 | MINICALC.HLP | ⟦ea67175e6⟧ TextFile |
| 4736 | OHMSLOV.MID | ⟦52c33e30f⟧ |
| 11264 | OLDREG.COM | ⟦60cd62d05⟧ |
| 4736 | OVERVGT.MID | ⟦af860e5ec⟧ |
| 4736 | PKOVELSE.MID | ⟦50483d477⟧ |
| 5376 | REGOLD.PAS | ⟦5a1fdf897⟧ TextFile |
| 20864 | REGRES.COM | ⟦acb1cdcc6⟧ |
| 16000 | REGRES.PAS | ⟦44e1f7021⟧ 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 02 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 0a 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…01020 (0, 1, 9) f3 23 be ca aa e4 3a 22 f3 b7 c4 0e e5 3a 12 f3 32 17 f3 2a 13 f3 22 18 f3 2a 1f f3 22 1a f3 3a ┆ # :" : 2 * " * " :┆
0x01020…01040 2b f3 b7 c4 1b e5 af 32 22 f3 3a 15 f3 21 56 f3 a6 6f 26 00 29 29 29 29 29 29 29 11 81 ee 19 eb ┆+ 2" : !V o& ))))))) ┆
0x01040…01060 2a 2e f3 01 80 00 eb 3a 2c f3 b7 c2 d4 e4 3e 01 32 22 f3 eb ed b0 3a 2d f3 fe 01 21 2a f3 7e f5 ┆*. :, > 2" :- !* ü ┆
0x01060…01080 b7 ca e8 e4 af 32 21 f3 f1 36 00 c2 ff e4 b7 c2 ff e4 af 32 22 f3 cd 0e e5 21 2a f3 7e 36 00 e1 ┆ 2! 6 2" !* ü6 ┆
0x01080…010a0 f9 c9 eb 21 13 f3 1a be c0 13 23 1a be c9 3a 5b f3 b7 c2 05 e8 cd 32 e5 c3 fa e5 3a 29 f3 b7 c2 ┆ ! # :Æ 2 :) ┆
0x010a0…010c0 25 e5 32 23 f3 3a 5b f3 b7 c2 20 e8 cd 32 e5 c3 b0 e5 3a 1a f3 4f 3a 33 f3 47 3d b9 3a 17 f3 d2 ┆% 2# :Æ 2 : O:3 G= : ┆
0x010c0…010e0 4d e5 f6 04 32 39 f3 79 90 4f c3 50 e5 32 39 f3 06 00 2a 58 f3 09 7e 32 3d f3 3a 18 f3 32 3c f3 ┆M 29 y O P 29 *X ü2= : 2< ┆
0x010e0…01100 21 81 ee 22 3a f3 3a 17 f3 21 1c f3 be c2 80 e5 3a 18 f3 21 1d f3 be c2 80 e5 3a 19 f3 23 be c8 ┆! ": : ! : ! : # ┆
0x01100…01120 (0, 1, 10) 3a 17 f3 32 1c f3 2a 18 f3 22 1d f3 cd 3e e7 cd 08 e7 cd 45 e7 3a 39 f3 e6 03 c6 20 b8 c8 cd 3e ┆: 2 * " > E :9 >┆
0x01120…01140 e7 cd bf e6 c5 cd 45 e7 cd 08 e7 cd 45 e7 c1 c9 3e 0a 32 3e f3 cd 24 e6 cd 3e e7 2a 30 f3 4e 23 ┆ E E > 2> $ > *0 N#┆
0x01140…01160 46 23 cd 7d e7 cd 1a e6 cd 54 e7 0e 00 21 3f f3 7e e6 f8 c8 e6 08 c2 f0 e5 3a 3e f3 3d 32 3e f3 ┆F# å T !? ü :> =2> ┆
0x01160…01180 ca f0 e5 fe 05 cc 9e e5 af b9 ca b5 e5 c3 ff e5 79 32 21 f3 3e 01 32 2a f3 c9 3e 0a 32 3e f3 cd ┆ y2! > 2* > 2> ┆
0x01180…011a0 24 e6 cd 3e e7 2a 30 f3 4e 23 46 23 cd 5c e7 cd 1f e6 cd 54 e7 0e 01 c3 cd e5 3e 06 c3 87 e7 3e ┆$ > *0 N#F# Ø T > >┆
0x011a0…011c0 05 c3 87 e7 db 14 e6 80 c8 f3 2a e1 ff 7d b4 2a e7 ff 22 e1 ff fb c0 3e 01 d3 14 21 32 00 cd 4c ┆ * å * " > !2 L┆
0x011c0…011e0 e6 c9 db 14 e6 80 c8 3e 00 d3 14 c9 22 e3 ff 2a e3 ff 7d b4 c2 4f e6 c9 3a 22 f3 b7 20 03 32 21 ┆ > " * å O :" 2!┆
0x011e0…01200 f3 3a 5b f3 a7 ca 8e e6 3a 12 f3 32 1c f3 2a 51 f3 11 0d 00 19 5e 23 56 ed 53 1d f3 cd 80 e8 cd ┆ :Æ : 2 *Q ^#V S ┆
0x01200…01220 (0, 1, 11) e3 e8 d0 cd f5 e8 db 67 e6 10 ca 86 e6 c9 cd 24 e6 3a 12 f3 32 39 f3 32 1c f3 af 32 1d f3 32 1e ┆ g $ : 29 2 2 2 ┆
0x01220…01240 f3 cd 3e e7 cd bf e6 cd 45 e7 c9 db 04 e6 c0 fe 80 c2 ab e6 c9 db 04 e6 c0 fe c0 c2 b5 e6 c9 cd ┆ > E ┆
0x01240…01260 ab e6 3e 07 d3 05 cd ab e6 3a 39 f3 e6 03 d3 05 c9 cd ab e6 3e 04 d3 05 cd ab e6 3a 39 f3 e6 03 ┆ > :9 > :9 ┆
0x01260…01280 d3 05 cd b5 e6 db 05 32 3f f3 c9 cd ab e6 3e 08 d3 05 cd b5 e6 db 05 32 3f f3 e6 c0 fe 80 c8 cd ┆ 2? > 2? ┆
0x01280…012a0 b5 e6 db 05 32 40 f3 c9 cd ab e6 3e 0f d3 05 cd ab e6 3a 39 f3 e6 03 d3 05 cd ab e6 3a 3c f3 d3 ┆ 2@ > :9 :< ┆
0x012a0…012c0 05 c9 21 3f f3 16 07 cd b5 e6 db 05 77 23 3e 04 3d c2 30 e7 db 04 e6 10 c8 15 c2 27 e7 c9 f3 af ┆ !? w#> = 0 ' ┆
0x012c0…012e0 32 4f f3 fb c9 cd 54 e7 3a 3f f3 47 3a 40 f3 4f cd 3e e7 c9 3a 4f f3 b7 ca 54 e7 c9 3e 05 f3 d3 ┆2O T :? G:@ O > :O T > ┆
0x012e0…01300 fa 3e 49 d3 fb d3 fc 3a 3a f3 d3 f2 3a 3b f3 d3 f2 79 d3 f3 78 d3 f3 3e 01 d3 fa fb c9 3e 05 f3 ┆ >I :: :; y x > > ┆
0x01300…01320 (0, 1, 12) d3 fa 3e 45 c3 63 e7 f5 f3 cd ab e6 f1 46 23 80 d3 05 cd ab e6 3a 39 f3 d3 05 cd ab e6 3a 3c f3 ┆ >E c F# :9 :< ┆
0x01320…01340 d3 05 cd ab e6 3a 39 f3 1f 1f e6 03 d3 05 cd ab e6 3a 3d f3 d3 05 cd ab e6 7e 23 d3 05 cd ab e6 ┆ :9 := ü# ┆
0x01340…01360 7e 23 d3 05 cd ab e6 7e d3 05 cd ab e6 3a 5a f3 d3 05 fb c9 ed 73 4b f3 31 20 f6 f5 c5 d5 e5 3e ┆ü# ü :Z sK 1 >┆
0x01360…01380 ff 32 4f f3 3e 05 3d c2 e6 e7 db 04 e6 10 c2 f7 e7 cd eb e6 c3 fa e7 cd 22 e7 e1 d1 c1 f1 ed 7b ┆ 2O > = " æ┆
0x01380…013a0 4b f3 fb ed 4d cd 3b e8 d4 80 e8 cd 01 e9 d0 2a 30 f3 4e 23 46 cd 20 e9 3e 30 d3 67 cd f5 e8 c9 ┆K M ; *0 N#F >0 g ┆
0x013a0…013c0 cd 3b e8 d4 80 e8 cd 01 e9 d0 2a 30 f3 4e 23 46 cd 16 e9 3e 28 d3 67 cd f5 e8 c9 21 81 ee 22 3a ┆ ; *0 N#F >( g ! ":┆
0x013c0…013e0 f3 3a 17 f3 21 1c f3 be c2 5f e8 3a 18 f3 21 1d f3 be c2 5f e8 3a 19 f3 23 be c2 5f e8 a7 c9 3a ┆ : ! _ : ! _ : # _ :┆
0x013e0…01400 17 f3 32 1c f3 2a 18 f3 22 1d f3 cd 80 e8 cd e3 e8 d2 7e e8 cd f5 e8 db 67 e6 10 ca 77 e8 37 c9 ┆ 2 * " ü g w 7 ┆
0x01400…01420 (0, 1, 13) 2a 30 f3 11 ff ff eb 19 af 4e 06 00 2a 1a f3 a7 ed 42 da 99 e8 3c c3 8f e8 09 f5 7d d3 63 3a 1c ┆*0 N * B < å c: ┆
0x01420…01440 f3 0e 00 21 35 f3 96 21 36 f3 be da c1 e8 96 0c 21 37 f3 be da c1 e8 96 0c 21 38 f3 be da c1 e8 ┆ !5 !6 !7 !8 ┆
0x01440…01460 0c cb 21 cb 21 cb 21 f1 b1 21 05 00 19 b6 d3 66 2a 1d f3 7d d3 64 7c e6 03 d3 65 21 06 00 19 7e ┆ ! ! ! ! f* å dø e! ü┆
0x01460…01480 d3 61 c9 2a 30 f3 11 05 00 19 3e 70 b6 cd 01 e9 d0 d3 67 37 c9 3a 4d f3 b7 ca f5 e8 af 32 4d f3 ┆ a *0 >p g7 :M 2M ┆
0x01480…014a0 c9 f5 db 67 e6 50 fe 50 ca 13 e9 3e bb 32 2a f3 f1 a7 c9 f1 37 c9 3e 04 f3 d3 fa 3e 44 c3 27 e9 ┆ g P P > 2* 7 > >D ' ┆
0x014a0…014c0 3e 04 f3 d3 fa 3e 48 d3 fb d3 fc 3a 3a f3 d3 f0 3a 3b f3 d3 f0 79 d3 f1 78 d3 f1 3e 00 d3 fa fb ┆> >H :: :; y x > ┆
0x014c0…014e0 c9 d3 66 af d3 61 d3 62 d3 63 d3 64 d3 65 3e 10 b0 d3 67 c9 d3 66 78 d3 61 79 d3 62 7b d3 64 7a ┆ f a b c d e> g fx ay bæ dz┆
0x014e0…01500 d3 65 2a 2e f3 22 3a f3 cd 01 e9 d2 80 e9 01 ff 01 cd 20 e9 3e 50 d3 67 cd f5 e8 3a 2a f3 a7 c8 ┆ e*. ": >P g :* ┆
0x01500…01520 (0, 1, 14) af 32 2a f3 3e 01 c9 ed 73 4b f3 31 20 f6 f5 c5 d5 e5 3e ff 32 4d f3 db 67 32 47 f3 e6 01 ca b2 ┆ 2* > sK 1 > 2M g2G ┆
0x01520…01540 e9 db 61 32 48 f3 2a 49 f3 23 22 49 f3 3e bb 32 2a f3 e1 d1 c1 f1 ed 7b 4b f3 fb ed 4d 01 07 0d ┆ a2H *I #"I > 2* æK M ┆
0x01540…01560 13 19 05 0b 11 17 03 09 0f 15 02 08 0e 14 1a 06 0c 12 18 04 0a 10 16 01 05 09 0d 02 06 0a 0e 03 ┆ ┆
0x01560…01580 07 0b 0f 04 08 0c 01 03 05 07 09 02 04 06 08 01 02 03 04 05 06 07 08 09 0a 0b 0c 0d 0e 0f 10 11 ┆ ┆
0x01580…015a0 12 13 14 15 16 17 18 19 1a 20 00 03 07 00 90 00 3f 00 c0 00 10 00 00 00 40 00 04 0f 01 90 00 7f ┆ ? @ ┆
0x015a0…015c0 00 c0 00 20 00 00 00 48 00 04 0f 01 86 00 7f 00 c0 00 20 00 02 00 78 00 04 0f 00 d7 01 7f 00 c0 ┆ H x ┆
0x015c0…015e0 00 20 00 02 00 80 01 04 0f 00 c1 01 7f 00 c0 00 00 00 03 00 80 01 04 0f 01 86 00 7f 00 c0 00 00 ┆ ┆
0x015e0…01600 00 03 00 80 01 05 1f 01 eb 01 ff 01 f0 00 00 00 1b 00 80 01 06 3f 03 eb 01 ff 01 c0 00 00 00 1b ┆ ? ┆
0x01600…01620 (0, 1, 15) 00 80 01 07 7f 07 ee 01 ff 01 80 00 00 00 1b 00 02 00 02 00 03 00 1b 00 00 00 00 00 00 00 00 00 ┆ ┆
0x01620…01640 09 ea 08 10 00 00 01 ef e9 80 00 7b 95 6f 7a 9c 18 ea 10 20 00 01 02 ef e9 ff 00 4a 2a e8 39 eb ┆ æ oz J* 9 ┆
0x01640…01660 27 ea 10 48 00 03 03 e6 e9 ff 00 d5 2a e4 39 d1 36 ea 10 78 00 03 03 d7 e9 ff 00 00 00 00 00 00 ┆' H * 9 6 x ┆
0x01660…01680 45 ea 10 80 01 03 03 00 00 00 ff 32 31 3a cd 65 54 ea 10 80 01 03 03 00 00 00 ff 19 eb 21 00 00 ┆E 21: eT ! ┆
0x01680…016a0 63 ea 20 80 01 03 03 00 00 00 ff 21 b4 42 5e 23 72 ea 40 80 01 03 03 00 00 00 ff 00 19 5e 23 56 ┆c ! B^#r @ ^#V┆
0x016a0…016c0 81 ea 80 80 01 03 03 00 00 00 ff 00 c3 39 3a cd 20 7f 00 00 00 10 07 24 20 ff 00 40 01 10 0e 24 ┆ 9: $ @ $┆
0x016c0…016e0 12 ff 01 40 02 09 1b 24 1e ff 01 40 02 0f 1b 4d 10 ff 01 18 00 00 20 00 10 ff 01 18 00 00 20 00 ┆ @ $ @ M ┆
0x016e0…01700 10 ff 01 29 00 00 20 00 10 ff 01 53 00 00 20 00 10 ff 01 a6 00 00 20 00 00 00 00 00 00 00 00 00 ┆ ) S ┆
0x01700…01720 (0, 1, 16) 81 f0 18 ea 48 f1 01 f1 00 00 00 00 00 00 00 00 81 f0 18 ea af f1 68 f1 00 00 00 00 00 00 00 00 ┆ H h ┆
0x01720…01740 81 f0 54 ea 00 00 cf f1 00 00 00 00 00 00 00 00 81 f0 81 ea 00 00 16 f2 00 00 00 00 00 00 00 00 ┆ T ┆
0x01740…01760 81 f0 72 ea 00 00 55 f2 00 00 00 00 00 00 00 00 81 f0 72 ea 00 00 94 f2 00 00 00 00 00 00 00 00 ┆ r U r ┆
0x01760…01780 81 f0 63 ea 00 00 d3 f2 fb ed 4d d5 cd 0a 3b 3a 03 3b 26 00 6f e3 e9 00 00 00 00 00 00 c3 00 00 ┆ c M ;: ;& o ┆
0x01780…017a0 e8 eb e8 eb 42 e2 d4 e7 87 e9 e8 eb e8 eb e8 eb 09 dd 22 dd 3b dd 50 dd 6d dd 86 dd 9f dd b9 dd ┆ B " ; P m ┆
0x017a0…017c0 43 ec 58 ec 00 ec 00 00 3a 26 ec c9 3a 26 ec b7 ca 2c ec f3 af 32 26 ec fb db 10 4f 21 00 f7 cd ┆C X :& :& , 2& O! ┆
0x017c0…017e0 00 de c9 ed 73 4b f3 31 20 f6 f5 3e ff 32 26 ec f1 ed 7b 4b f3 fb ed 4d ed 73 4b f3 31 20 f6 f5 ┆ sK 1 > 2& æK M sK 1 ┆
0x017e0…01800 3e ff 32 27 ec f1 ed 7b 4b f3 fb ed 4d 0a 3b 3a 03 3b 26 00 6f e3 e9 00 00 00 00 00 00 c3 00 00 ┆> 2' æK M ;: ;& o ┆
0x01800…01820 (1, 0, 1) c3 5c c7 c3 58 c7 7f 00 00 00 43 4f 50 59 52 49 47 48 54 20 28 43 29 20 31 39 37 39 20 44 49 47 ┆ Ø X COPYRIGHT (C) 1979 DIG┆
0x01820…01840 49 54 41 4c 20 52 45 53 45 41 52 43 48 20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ITAL RESEARCH ┆
0x01840…01860 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…]
0x01880…018a0 00 00 00 00 00 00 00 00 08 c4 00 00 5f 0e 02 c3 05 00 c5 cd 8c c4 c1 c9 3e 0d cd 92 c4 3e 0a c3 ┆ _ > > ┆
0x018a0…018c0 92 c4 3e 20 c3 92 c4 c5 cd 98 c4 e1 7e b7 c8 23 e5 cd 8c c4 e1 c3 ac c4 0e 0d c3 05 00 5f 0e 0e ┆ > ü # _ ┆
0x018c0…018e0 c3 05 00 cd 05 00 32 ee cb 3c c9 0e 0f c3 c3 c4 af 32 ed cb 11 cd cb c3 cb c4 0e 10 c3 c3 c4 0e ┆ 2 < 2 ┆
0x018e0…01900 11 c3 c3 c4 0e 12 c3 c3 c4 11 cd cb c3 df c4 0e 13 c3 05 00 cd 05 00 b7 c9 0e 14 c3 f4 c4 11 cd ┆ ┆
0x01900…01920 cb c3 f9 c4 0e 15 c3 f4 c4 0e 16 c3 c3 c4 0e 17 c3 05 00 1e ff 0e 20 c3 05 00 cd 13 c5 87 87 87 ┆ ┆
0x01920…01940 87 21 ef cb b6 32 04 00 c9 3a ef cb 32 04 00 c9 fe 61 d8 fe 7b d0 e6 5f c9 3a ab cb b7 ca 96 c5 ┆ ! 2 : 2 a æ _ : ┆
0x01940…01960 3a ef cb b7 3e 00 c4 bd c4 11 ac cb cd cb c4 ca 96 c5 3a bb cb 3d 32 cc cb 11 ac cb cd f9 c4 c2 ┆: > : =2 ┆
0x01960…01980 96 c5 11 07 c4 21 80 00 06 80 cd 42 c8 21 ba cb 36 00 23 35 11 ac cb cd da c4 ca 96 c5 3a ef cb ┆ ! B ! 6 #5 : ┆
0x01980…019a0 b7 c4 bd c4 21 08 c4 cd ac c4 cd c2 c5 ca a7 c5 cd dd c5 c3 82 c7 cd dd c5 cd 1a c5 0e 0a 11 06 ┆ ! ┆
0x019a0…019c0 c4 cd 05 00 cd 29 c5 21 07 c4 46 23 78 b7 ca ba c5 7e cd 30 c5 77 05 c3 ab c5 77 21 08 c4 22 88 ┆ ) ! F#x ü 0 w w! " ┆
0x019c0…019e0 c4 c9 0e 0b cd 05 00 b7 c8 0e 01 cd 05 00 b7 c9 0e 19 c3 05 00 11 80 00 0e 1a c3 05 00 21 ab cb ┆ ! ┆
0x019e0…01a00 7e b7 c8 36 00 af cd bd c4 11 ac cb cd ef c4 3a ef cb c3 bd c4 11 28 c7 21 00 cc 06 06 1a be c2 ┆ü 6 : ( ! ┆
0x01a00…01a20 (1, 0, 2) c1 ce fe 08 c2 16 ce 78 b7 ca ef cd 05 3a 0c cf 32 0a cf c3 70 ce fe 7f c2 26 ce 78 b7 ca ef cd ┆ x : 2 p & x ┆
0x01a20…01a40 7e 05 2b c3 a9 ce fe 05 c2 37 ce c5 e5 cd c9 cd af 32 0b cf c3 f1 cd fe 10 c2 48 ce e5 21 0d cf ┆ü + 7 2 H ! ┆
0x01a40…01a60 3e 01 96 77 e1 c3 ef cd fe 18 c2 5f ce e1 3a 0b cf 21 0c cf be d2 e1 cd 35 cd a4 cd c3 4e ce fe ┆> w _ : ! 5 N ┆
0x01a60…01a80 15 c2 6b ce cd b1 cd e1 c3 e1 cd fe 12 c2 a6 ce c5 cd b1 cd c1 e1 e5 c5 78 b7 ca 8a ce 23 4e 05 ┆ k x #N ┆
0x01a80…01aa0 c5 e5 cd 7f cd e1 c1 c3 78 ce e5 3a 0a cf b7 ca f1 cd 21 0c cf 96 32 0a cf cd a4 cd 21 0a cf 35 ┆ x : ! 2 ! 5┆
0x01aa0…01ac0 c2 99 ce c3 f1 cd 23 77 04 c5 e5 4f cd 7f cd e1 c1 7e fe 03 78 c2 bd ce fe 01 ca 00 00 b9 da ef ┆ #w O ü x ┆
0x01ac0…01ae0 cd e1 70 0e 0d c3 48 cd cd 06 cd c3 01 cf cd 15 da c3 01 cf 79 3c ca e0 ce 3c ca 06 da c3 0c da ┆ p H y< < ┆
0x01ae0…01b00 cd 06 da b7 ca 91 d9 cd 09 da c3 01 cf 3a 03 00 c3 01 cf 21 03 00 71 c9 eb 4d 44 c3 d3 cd cd 23 ┆ : ! q MD #┆
0x01b00…01b20 cd 32 45 cf c9 3e 01 c3 01 cf 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ 2E > ┆
0x01b20…01b40 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 ┆ ┆
0x01b40…01b60 00 00 00 00 00 00 00 21 0b cc 5e 23 56 eb e9 0c 0d c8 1a 77 13 23 c3 50 cf 3a 42 cf 4f cd 1b da ┆ ! ^#V w # P :B O ┆
0x01b60…01b80 7c b5 c8 5e 23 56 23 22 b3 d9 23 23 22 b5 d9 23 23 22 b7 d9 23 23 eb 22 d0 d9 21 b9 d9 0e 08 cd ┆ø ^#V#" ##" ##" ## " ! ┆
0x01b80…01ba0 4f cf 2a bb d9 eb 21 c1 d9 0e 0f cd 4f cf 2a c6 d9 7c 21 dd d9 36 ff b7 ca 9d cf 36 00 3e ff b7 ┆O * ! O * ø! 6 6 > ┆
0x01ba0…01bc0 c9 cd 18 da af 2a b5 d9 77 23 77 2a b7 d9 77 23 77 c9 cd 27 da c3 bb cf cd 2a da b7 c8 21 09 cc ┆ * w#w* w#w ' * ! ┆
0x01bc0…01be0 c3 4a cf 2a ea d9 0e 02 cd ea d0 22 e5 d9 22 ec d9 21 e5 d9 4e 23 46 2a b7 d9 5e 23 56 2a b5 d9 ┆ J * " " ! N#F* ^#V* ┆
0x01be0…01c00 7e 23 66 6f 79 93 78 9a d2 fa cf e5 2a c1 d9 7b 95 5f 7a 9c 57 e1 2b c3 e4 cf e5 2a c1 d9 19 da ┆ü#foy x * æ _z W + * ┆
0x01c00…01c20 (1, 0, 3) cf c7 13 23 05 c2 fd c5 c9 cd 98 c4 2a 8a c4 7e fe 20 ca 22 c6 b7 ca 22 c6 e5 cd 8c c4 e1 23 c3 ┆ # * ü " " # ┆
0x01c20…01c40 0f c6 3e 3f cd 8c c4 cd 98 c4 cd dd c5 c3 82 c7 1a b7 c8 fe 20 da 09 c6 c8 fe 3d c8 fe 5f c8 fe ┆ >? = _ ┆
0x01c40…01c60 2e c8 fe 3a c8 fe 3b c8 fe 3c c8 fe 3e c8 c9 1a b7 c8 fe 20 c0 13 c3 4f c6 85 6f d0 24 c9 3e 00 ┆. : ; < > O o $ > ┆
0x01c60…01c80 21 cd cb cd 59 c6 e5 e5 af 32 f0 cb 2a 88 c4 eb cd 4f c6 eb 22 8a c4 eb e1 1a b7 ca 89 c6 de 40 ┆! Y 2 * O " @┆
0x01c80…01ca0 47 13 1a fe 3a ca 90 c6 1b 3a ef cb 77 c3 96 c6 78 32 f0 cb 70 13 06 08 cd 30 c6 ca b9 c6 23 fe ┆G : : w x2 p 0 # ┆
0x01ca0…01cc0 2a c2 a9 c6 36 3f c3 ab c6 77 13 05 c2 98 c6 cd 30 c6 ca c0 c6 13 c3 af c6 23 36 20 05 c2 b9 c6 ┆* 6? w 0 #6 ┆
0x01cc0…01ce0 06 03 fe 2e c2 e9 c6 13 cd 30 c6 ca e9 c6 23 fe 2a c2 d9 c6 36 3f c3 db c6 77 13 05 c2 c8 c6 cd ┆ . 0 # * 6? w ┆
0x01ce0…01d00 30 c6 ca f0 c6 13 c3 df c6 23 36 20 05 c2 e9 c6 06 03 23 36 00 05 c2 f2 c6 eb 22 88 c4 e1 01 0b ┆0 #6 #6 " ┆
0x01d00…01d20 00 23 7e fe 3f c2 09 c7 04 0d c2 01 c7 78 b7 c9 44 49 52 20 45 52 41 20 54 59 50 45 53 41 56 45 ┆ #ü ? x DIR ERA TYPESAVE┆
0x01d20…01d40 52 45 4e 20 55 53 45 52 d5 16 08 00 00 0f 21 10 c7 0e 00 79 fe 06 d0 11 ce cb 06 04 1a be c2 4f ┆REN USER ! y O┆
0x01d40…01d60 c7 13 23 05 c2 3c c7 1a fe 20 c2 54 c7 79 c9 23 05 c2 4f c7 0c c3 33 c7 af 32 07 c4 31 ab cb c5 ┆ # < T y # O 3 2 1 ┆
0x01d60…01d80 79 1f 1f 1f 1f e6 0f 5f cd 15 c5 cd b8 c4 32 ab cb c1 79 e6 0f 32 ef cb cd bd c4 3a 07 c4 b7 c2 ┆y _ 2 y 2 : ┆
0x01d80…01da0 98 c7 31 ab cb cd 98 c4 cd d0 c5 c6 41 cd 8c c4 3e 3e cd 8c c4 cd 39 c5 11 80 00 cd d8 c5 cd d0 ┆ 1 A >> 9 ┆
0x01da0…01dc0 c5 32 ef cb cd 5e c6 c4 09 c6 3a f0 cb b7 c2 a5 ca cd 2e c7 21 c1 c7 5f 16 00 19 19 7e 23 66 6f ┆ 2 ^ : . ! _ ü#fo┆
0x01dc0…01de0 e9 77 c8 1f c9 5d c9 ad c9 10 ca 8e ca a5 ca 21 f3 76 22 00 c4 21 00 c4 e9 01 df c7 c3 a7 c4 52 ┆ w Å ! v" ! R┆
0x01de0…01e00 45 41 44 20 45 52 52 4f 52 00 01 f0 c7 c3 a7 c4 4e 4f 20 46 49 4c 45 00 cd 5e c6 3a f0 cb b7 c2 ┆EAD ERROR NO FILE ^ : ┆
0x01e00…01e20 (1, 0, 4) 0f d0 79 95 78 9c da 0f d0 eb e1 23 c3 fa cf e1 c5 d5 e5 eb 2a ce d9 19 44 4d cd 1e da d1 2a b5 ┆ y x # * DM * ┆
0x01e20…01e40 d9 73 23 72 d1 2a b7 d9 73 23 72 c1 79 93 4f 78 9a 47 2a d0 d9 eb cd 30 da 4d 44 c3 21 da 21 c3 ┆ s#r * s#r y Ox G* 0 MD ! ! ┆
0x01e40…01e60 d9 4e 3a e3 d9 b7 1f 0d c2 45 d0 47 3e 08 96 4f 3a e2 d9 0d ca 5c d0 b7 17 c3 53 d0 80 c9 2a 43 ┆ N: E G> O: Ø S *C┆
0x01e60…01e80 cf 11 10 00 19 09 3a dd d9 b7 ca 71 d0 6e 26 00 c9 09 5e 23 56 eb c9 cd 3e d0 4f 06 00 cd 5e d0 ┆ : q n& ^#V > O ^ ┆
0x01e80…01ea0 22 e5 d9 c9 2a e5 d9 7d b4 c9 3a c3 d9 2a e5 d9 29 3d c2 90 d0 22 e7 d9 3a c4 d9 4f 3a e3 d9 a1 ┆" * å : * )= " : O: ┆
0x01ea0…01ec0 b5 6f 22 e5 d9 c9 2a 43 cf 11 0c 00 19 c9 2a 43 cf 11 0f 00 19 eb 21 11 00 19 c9 cd ae d0 7e 32 ┆ o" *C *C ! ü2┆
0x01ec0…01ee0 e3 d9 eb 7e 32 e1 d9 cd a6 d0 3a c5 d9 a6 32 e2 d9 c9 cd ae d0 3a d5 d9 fe 02 c2 de d0 af 4f 3a ┆ ü2 : 2 : O:┆
0x01ee0…01f00 e3 d9 81 77 eb 3a e1 d9 77 c9 0c 0d c8 7c b7 1f 67 7d 1f 6f c3 eb d0 0e 80 2a b9 d9 af 86 23 0d ┆ w : w ø gå o * # ┆
0x01f00…01f20 c2 fd d0 c9 0c 0d c8 29 c3 05 d1 c5 3a 42 cf 4f 21 01 00 cd 04 d1 c1 79 b5 6f 78 b4 67 c9 2a ad ┆ ) :B O! y ox g * ┆
0x01f20…01f40 d9 3a 42 cf 4f cd ea d0 7d e6 01 c9 21 ad d9 4e 23 46 cd 0b d1 22 ad d9 2a c8 d9 23 eb 2a b3 d9 ┆ :B O å ! N#F " * # * ┆
0x01f40…01f60 73 23 72 c9 cd 5e d1 11 09 00 19 7e 17 d0 21 0f cc c3 4a cf cd 1e d1 c8 21 0d cc c3 4a cf 2a b9 ┆s#r ^ ü ! J ! J * ┆
0x01f60…01f80 d9 3a e9 d9 85 6f d0 24 c9 2a 43 cf 11 0e 00 19 7e c9 cd 69 d1 36 00 c9 cd 69 d1 f6 80 77 c9 2a ┆ : o $ *C ü i 6 i w *┆
0x01f80…01fa0 ea d9 eb 2a b3 d9 7b 96 23 7a 9e c9 cd 7f d1 d8 13 72 2b 73 c9 7b 95 6f 7a 9c 67 c9 0e ff 2a ec ┆ * æ #z r+s æ oz g * ┆
0x01fa0…01fc0 d9 eb 2a cc d9 cd 95 d1 d0 c5 cd f7 d0 2a bd d9 eb 2a ec d9 19 c1 0c ca c4 d1 be c8 cd 7f d1 d0 ┆ * * * ┆
0x01fc0…01fe0 cd 2c d1 c9 77 c9 cd 9c d1 cd e0 d1 0e 01 cd b8 cf c3 da d1 cd e0 d1 cd b2 cf 21 b1 d9 c3 e3 d1 ┆ , w ! ┆
0x01fe0…02000 21 b9 d9 4e 23 46 c3 24 da 2a b9 d9 eb 2a b1 d9 0e 80 c3 4f cf 21 ea d9 7e 23 be c0 3c c9 21 ff ┆! N#F $ * * O ! ü# < ! ┆
0x02000…02020 (1, 0, 5) 09 c6 21 ce cb 01 0b 00 7e fe 20 ca 33 c8 23 d6 30 fe 0a d2 09 c6 57 78 e6 e0 c2 09 c6 78 07 07 ┆ ! ü 3 # 0 Wx x ┆
0x02020…02040 07 80 da 09 c6 80 da 09 c6 82 da 09 c6 47 0d c2 08 c8 c9 7e fe 20 c2 09 c6 23 0d c2 33 c8 78 c9 ┆ G ü # 3 x ┆
0x02040…02060 06 03 7e 12 23 13 05 c2 42 c8 c9 21 80 00 81 cd 59 c6 7e c9 af 32 cd cb 3a f0 cb b7 c8 3d 21 ef ┆ ü # B ! Y ü 2 : =! ┆
0x02060…02080 cb be c8 c3 bd c4 3a f0 cb b7 c8 3d 21 ef cb be c8 3a ef cb c3 bd c4 cd 5e c6 cd 54 c8 21 ce cb ┆ : =! : ^ T ! ┆
0x02080…020a0 7e fe 20 c2 8f c8 06 0b 36 3f 23 05 c2 88 c8 1e 00 d5 cd e9 c4 cc ea c7 ca 1b c9 3a ee cb 0f 0f ┆ü 6?# : ┆
0x020a0…020c0 0f e6 60 4f 3e 0a cd 4b c8 17 da 0f c9 d1 7b 1c d5 e6 03 f5 c2 cc c8 cd 98 c4 c5 cd d0 c5 c1 c6 ┆ `O> K æ ┆
0x020c0…020e0 41 cd 92 c4 3e 3a cd 92 c4 c3 d4 c8 cd a2 c4 3e 3a cd 92 c4 cd a2 c4 06 01 78 cd 4b c8 e6 7f fe ┆A >: >: x K ┆
0x020e0…02100 20 c2 f9 c8 f1 f5 fe 03 c2 f7 c8 3e 09 cd 4b c8 e6 7f fe 20 ca 0e c9 3e 20 cd 92 c4 04 78 fe 0c ┆ > K > x ┆
0x02100…02120 d2 0e c9 fe 09 c2 d9 c8 cd a2 c4 c3 d9 c8 f1 cd c2 c5 c2 1b c9 cd e4 c4 c3 98 c8 d1 c3 86 cb cd ┆ ┆
0x02120…02140 5e c6 fe 0b c2 42 c9 01 52 c9 cd a7 c4 cd 39 c5 21 07 c4 35 c2 82 c7 23 7e fe 59 c2 82 c7 23 22 ┆^ B R 9 ! 5 #ü Y #"┆
0x02140…02160 88 c4 cd 54 c8 11 cd cb cd ef c4 3c cc ea c7 c3 86 cb 41 4c 4c 20 28 59 2f 4e 29 3f 00 cd 5e c6 ┆ T < ALL (Y/N)? ^ ┆
0x02160…02180 c2 09 c6 cd 54 c8 cd d0 c4 ca a7 c9 cd 98 c4 21 f1 cb 36 ff 21 f1 cb 7e fe 80 da 87 c9 e5 cd fe ┆ T ! 6 ! ü ┆
0x02180…021a0 c4 e1 c2 a0 c9 af 77 34 21 80 00 cd 59 c6 7e fe 1a ca 86 cb cd 8c c4 cd c2 c5 c2 86 cb c3 74 c9 ┆ w4! Y ü t ┆
0x021a0…021c0 3d ca 86 cb cd d9 c7 cd 66 c8 c3 09 c6 cd f8 c7 f5 cd 5e c6 c2 09 c6 cd 54 c8 11 cd cb d5 cd ef ┆= f ^ T ┆
0x021c0…021e0 c4 d1 cd 09 c5 ca fb c9 af 32 ed cb f1 6f 26 00 29 11 00 01 7c b5 ca f1 c9 2b e5 21 80 00 19 e5 ┆ 2 o& ) ø + ! ┆
0x021e0…02200 cd d8 c5 11 cd cb cd 04 c5 d1 e1 c2 fb c9 c3 d4 c9 11 cd cb cd da c4 3c c2 01 ca 01 07 ca cd a7 ┆ < ┆
0x02200…02220 (1, 0, 6) ff 22 ea d9 c9 2a c8 d9 eb 2a ea d9 23 22 ea d9 cd 95 d1 d2 19 d2 c3 fe d1 3a ea d9 e6 03 06 05 ┆ " * * #" : ┆
0x02220…02240 87 05 c2 20 d2 32 e9 d9 b7 c0 c5 cd c3 cf cd d4 d1 c1 c3 9e d1 79 e6 07 3c 5f 57 79 0f 0f 0f e6 ┆ 2 y <_Wy ┆
0x02240…02260 1f 4f 78 87 87 87 87 87 b1 4f 78 0f 0f 0f e6 1f 47 2a bf d9 09 7e 07 1d c2 56 d2 c9 d5 cd 35 d2 ┆ Ox Ox G* ü V 5 ┆
0x02260…02280 e6 fe c1 b1 0f 15 c2 64 d2 77 c9 cd 5e d1 11 10 00 19 c5 0e 11 d1 0d c8 d5 3a dd d9 b7 ca 88 d2 ┆ d w ^ : ┆
0x02280…022a0 c5 e5 4e 06 00 c3 8e d2 0d c5 4e 23 46 e5 79 b0 ca 9d d2 2a c6 d9 7d 91 7c 98 d4 5c d2 e1 23 c1 ┆ N N#F y * å ø Ø # ┆
0x022a0…022c0 c3 75 d2 2a c6 d9 0e 03 cd ea d0 23 44 4d 2a bf d9 36 00 23 0b 78 b1 c2 b1 d2 2a ca d9 eb 2a bf ┆ u * #DM* 6 # x * * ┆
0x022c0…022e0 d9 73 23 72 cd a1 cf 2a b3 d9 36 03 23 36 00 cd fe d1 0e ff cd 05 d2 cd f5 d1 c8 cd 5e d1 3e e5 ┆ s#r * 6 #6 ^ > ┆
0x022e0…02300 be ca d2 d2 3a 41 cf be c2 f6 d2 23 7e d6 24 c2 f6 d2 3d 32 45 cf 0e 01 cd 6b d2 cd 8c d1 c3 d2 ┆ :A #ü $ =2E k ┆
0x02300…02320 d2 3a d4 d9 c3 01 cf c5 f5 3a c5 d9 2f 47 79 a0 4f f1 a0 91 e6 1f c1 c9 3e ff 32 d4 d9 21 d8 d9 ┆ : : /Gy O > 2 ! ┆
0x02320…02340 71 2a 43 cf 22 d9 d9 cd fe d1 cd a1 cf 0e 00 cd 05 d2 cd f5 d1 ca 94 d3 2a d9 d9 eb 1a fe e5 ca ┆q*C " * ┆
0x02340…02360 4a d3 d5 cd 7f d1 d1 d2 94 d3 cd 5e d1 3a d8 d9 4f 06 00 79 b7 ca 83 d3 1a fe 3f ca 7c d3 78 fe ┆J ^ : O y ? ø x ┆
0x02360…02380 0d ca 7c d3 fe 0c 1a ca 73 d3 96 e6 7f c2 2d d3 c3 7c d3 c5 4e cd 07 d3 c1 c2 2d d3 13 23 04 0d ┆ ø s - ø N - # ┆
0x02380…023a0 c3 53 d3 3a ea d9 e6 03 32 45 cf 21 d4 d9 7e 17 d0 af 77 c9 cd fe d1 3e ff c3 01 cf cd 54 d1 0e ┆ S : 2E ! ü w > T ┆
0x023a0…023c0 0c cd 18 d3 cd f5 d1 c8 cd 44 d1 cd 5e d1 36 e5 0e 00 cd 6b d2 cd c6 d1 cd 2d d3 c3 a4 d3 50 59 ┆ D ^ 6 k - PY┆
0x023c0…023e0 79 b0 ca d1 d3 0b d5 c5 cd 35 d2 1f d2 ec d3 c1 d1 2a c6 d9 7b 95 7a 9c d2 f4 d3 13 c5 d5 42 4b ┆y 5 * æ z BK┆
0x023e0…02400 cd 35 d2 1f d2 ec d3 d1 c1 c3 c0 d3 17 3c cd 64 d2 e1 d1 c9 79 b0 c2 c0 d3 21 00 00 c9 0e 00 1e ┆ 5 < d y ! ┆
0x02400…02420 (1, 0, 7) c4 cd d5 c5 c3 86 cb 4e 4f 20 53 50 41 43 45 00 cd 5e c6 c2 09 c6 3a f0 cb f5 cd 54 c8 cd e9 c4 ┆ NO SPACE ^ : T ┆
0x02420…02440 c2 79 ca 21 cd cb 11 dd cb 06 10 cd 42 c8 2a 88 c4 eb cd 4f c6 fe 3d ca 3f ca fe 5f c2 73 ca eb ┆ y ! B * O = ? _ s ┆
0x02440…02460 23 22 88 c4 cd 5e c6 c2 73 ca f1 47 21 f0 cb 7e b7 ca 59 ca b8 70 c2 73 ca 70 af 32 cd cb cd e9 ┆#" ^ s G! ü Y p s p 2 ┆
0x02460…02480 c4 ca 6d ca 11 cd cb cd 0e c5 c3 86 cb cd ea c7 c3 86 cb cd 66 c8 c3 09 c6 01 82 ca cd a7 c4 c3 ┆ m f ┆
0x02480…024a0 86 cb 46 49 4c 45 20 45 58 49 53 54 53 00 cd f8 c7 fe 10 d2 09 c6 5f 3a ce cb fe 20 ca 09 c6 cd ┆ FILE EXISTS _: ┆
0x024a0…024c0 15 c5 c3 89 cb cd f5 c5 3a ce cb fe 20 c2 c4 ca 3a f0 cb b7 ca 89 cb 3d 32 ef cb cd 29 c5 cd bd ┆ : : =2 ) ┆
0x024c0…024e0 c4 c3 89 cb 11 d6 cb 1a fe 20 c2 09 c6 d5 cd 54 c8 d1 21 83 cb cd 40 c8 cd d0 c4 ca 6b cb 21 00 ┆ T ! @ k ! ┆
0x024e0…02500 01 e5 eb cd d8 c5 11 cd cb cd f9 c4 c2 01 cb e1 11 80 00 19 11 00 c4 7d 93 7c 9a d2 71 cb c3 e1 ┆ å ø q ┆
0x02500…02520 ca e1 3d c2 71 cb cd 66 c8 cd 5e c6 21 f0 cb e5 7e 32 cd cb 3e 10 cd 60 c6 e1 7e 32 dd cb af 32 ┆ = q f ^ ! ü2 > ` ü2 2┆
0x02520…02540 ed cb 11 5c 00 21 cd cb 06 21 cd 42 c8 21 08 c4 7e b7 ca 3e cb fe 20 ca 3e cb 23 c3 30 cb 06 00 ┆ Ø ! ! B ! ü > > # 0 ┆
0x02540…02560 11 81 00 7e 12 b7 ca 4f cb 04 23 13 c3 43 cb 78 32 80 00 cd 98 c4 cd d5 c5 cd 1a c5 cd 00 01 31 ┆ ü O # C x2 1┆
0x02560…02580 ab cb cd 29 c5 cd bd c4 c3 82 c7 cd 66 c8 c3 09 c6 01 7a cb cd a7 c4 c3 86 cb 42 41 44 20 4c 4f ┆ ) f z BAD LO┆
0x02580…025a0 41 44 00 43 4f 4d cd 66 c8 cd 5e c6 3a ce cb d6 20 21 f0 cb b6 c2 09 c6 c3 82 c7 00 00 00 00 00 ┆AD COM f ^ : ! ┆
0x025a0…025c0 00 00 00 00 00 00 00 00 00 00 00 00 00 24 24 24 20 20 20 20 20 53 55 42 00 00 00 00 00 00 00 00 ┆ $$$ SUB ┆
0x025c0…025e0 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…]
0x02600…02620 (1, 0, 8) 20 d5 06 00 2a 43 cf 09 eb cd 5e d1 c1 cd 4f cf cd c3 cf c3 c6 d1 cd 54 d1 0e 0c cd 18 d3 2a 43 ┆ *C ^ O T *C┆
0x02620…02640 cf 7e 11 10 00 19 77 cd f5 d1 c8 cd 44 d1 0e 10 1e 0c cd 01 d4 cd 2d d3 c3 27 d4 0e 0c cd 18 d3 ┆ ü w D - ' ┆
0x02640…02660 cd f5 d1 c8 0e 00 1e 0c cd 01 d4 cd 2d d3 c3 40 d4 0e 0f cd 18 d3 cd f5 d1 c8 cd a6 d0 7e f5 e5 ┆ - @ ü ┆
0x02660…02680 cd 5e d1 eb 2a 43 cf 0e 20 d5 cd 4f cf cd 78 d1 d1 21 0c 00 19 4e 21 0f 00 19 46 e1 f1 77 79 be ┆ ^ *C O x ! N! F wy ┆
0x02680…026a0 78 ca 8b d4 3e 00 da 8b d4 3e 80 2a 43 cf 11 0f 00 19 77 c9 7e 23 b6 2b c0 1a 77 13 23 1a 77 1b ┆x > > *C w ü# + w # w ┆
0x026a0…026c0 2b c9 af 32 45 cf 32 ea d9 32 eb d9 cd 1e d1 c0 cd 69 d1 e6 80 c0 0e 0f cd 18 d3 cd f5 d1 c8 01 ┆+ 2E 2 2 i ┆
0x026c0…026e0 10 00 cd 5e d1 09 eb 2a 43 cf 09 0e 10 3a dd d9 b7 ca e8 d4 7e b7 1a c2 db d4 77 b7 c2 e1 d4 7e ┆ ^ *C : ü w ü┆
0x026e0…02700 12 be c2 1f d5 c3 fd d4 cd 94 d4 eb cd 94 d4 eb 1a be c2 1f d5 13 23 1a be c2 1f d5 0d 13 23 0d ┆ # # ┆
0x02700…02720 c2 cd d4 01 ec ff 09 eb 09 1a be da 17 d5 77 01 03 00 09 eb 09 7e 12 3e ff 32 d2 d9 c3 10 d4 21 ┆ w ü > 2 !┆
0x02720…02740 45 cf 35 c9 cd 54 d1 2a 43 cf e5 21 ac d9 22 43 cf 0e 01 cd 18 d3 cd f5 d1 e1 22 43 cf c8 eb 21 ┆E 5 T *C ! "C "C !┆
0x02740…02760 0f 00 19 0e 11 af 77 23 0d c2 46 d5 21 0d 00 19 77 cd 8c d1 cd fd d3 c3 78 d1 af 32 d2 d9 cd a2 ┆ w# F ! w x 2 ┆
0x02760…02780 d4 cd f5 d1 c8 2a 43 cf 01 0c 00 09 7e 3c e6 1f 77 ca 83 d5 47 3a c5 d9 a0 21 d2 d9 a6 ca 8e d5 ┆ *C ü< w G: ! ┆
0x02780…027a0 c3 ac d5 01 02 00 09 34 7e e6 0f ca b6 d5 0e 0f cd 18 d3 cd f5 d1 c2 ac d5 3a d3 d9 3c ca b6 d5 ┆ 4ü : < ┆
0x027a0…027c0 cd 24 d5 cd f5 d1 ca b6 d5 c3 af d5 cd 5a d4 cd bb d0 af c3 01 cf cd 05 cf c3 78 d1 3e 01 32 d5 ┆ $ Z x > 2 ┆
0x027c0…027e0 d9 3e ff 32 d3 d9 cd bb d0 3a e3 d9 21 e1 d9 be da e6 d5 fe 80 c2 fb d5 cd 5a d5 af 32 e3 d9 3a ┆ > 2 : ! Z 2 :┆
0x027e0…02800 45 cf b7 c2 fb d5 cd 77 d0 cd 84 d0 ca fb d5 cd 8a d0 cd d1 cf cd b2 cf c3 d2 d0 c3 05 cf 3e 01 ┆E w > ┆
0x02800…02820 (1, 0, 9) d5 16 08 00 00 0f c3 11 cc 99 cc a5 cc ab cc b1 cc eb 22 43 cf eb 7b 32 d6 d9 21 00 00 22 45 cf ┆ "C æ2 ! "E ┆
0x02820…02840 39 22 0f cf 31 41 cf af 32 e0 d9 32 de d9 21 74 d9 e5 79 fe 29 d0 4b 21 47 cc 5f 16 00 19 19 5e ┆9" 1A 2 2 !t y ) K!G _ ^┆
0x02840…02860 23 56 2a 43 cf eb e9 03 da c8 ce 90 cd ce ce 12 da 0f da d4 ce ed ce f3 ce f8 ce e1 cd fe ce 7e ┆#V*C ü┆
0x02860…02880 d8 83 d8 45 d8 9c d8 a5 d8 ab d8 c8 d8 d7 d8 e0 d8 e6 d8 ec d8 f5 d8 fe d8 04 d9 0a d9 11 d9 2c ┆ E ,┆
0x02880…028a0 d1 17 d9 1d d9 26 d9 2d d9 41 d9 47 d9 4d d9 0e d8 53 d9 04 cf 04 cf 9b d9 21 ca cc cd e5 cc fe ┆ & - A G M S ! ┆
0x028a0…028c0 03 ca 00 00 c9 21 d5 cc c3 b4 cc 21 e1 cc c3 b4 cc 21 dc cc cd e5 cc c3 00 00 42 64 6f 73 20 45 ┆ ! ! ! Bdos E┆
0x028c0…028e0 72 72 20 4f 6e 20 20 3a 20 24 42 61 64 20 53 65 63 74 6f 72 24 53 65 6c 65 63 74 24 46 69 6c 65 ┆rr On : $Bad Sector$Select$File┆
0x028e0…02900 20 52 2f 4f 24 e5 cd c9 cd 3a 42 cf c6 41 32 c6 cc 01 ba cc cd d3 cd c1 cd d3 cd 21 0e cf 7e 36 ┆ R/O$ :B A2 ! ü6┆
0x02900…02920 00 b7 c0 c3 09 da cd fb cc cd 14 cd d8 f5 4f cd 90 cd f1 c9 fe 0d c8 fe 0a c8 fe 09 c8 fe 08 c8 ┆ O ┆
0x02920…02940 fe 20 c9 3a 0e cf b7 c2 45 cd cd 06 da e6 01 c8 cd 09 da fe 13 c2 42 cd cd 09 da fe 03 ca 00 00 ┆ : E B ┆
0x02940…02960 af c9 32 0e cf 3e 01 c9 3a 0a cf b7 c2 62 cd c5 cd 23 cd c1 c5 cd 0c da c1 c5 3a 0d cf b7 c4 0f ┆ 2 > : b # : ┆
0x02960…02980 da c1 79 21 0c cf fe 7f c8 34 fe 20 d0 35 7e b7 c8 79 fe 08 c2 79 cd 35 c9 fe 0a c0 36 00 c9 79 ┆ y! 4 5ü y y 5 6 y┆
0x02980…029a0 cd 14 cd d2 90 cd f5 0e 5e cd 48 cd f1 f6 40 4f 79 fe 09 c2 48 cd 0e 20 cd 48 cd 3a 0c cf e6 07 ┆ ^ H @Oy H H : ┆
0x029a0…029c0 c2 96 cd c9 cd ac cd 0e 20 cd 0c da 0e 08 c3 0c da 0e 23 cd 48 cd cd c9 cd 3a 0c cf 21 0b cf be ┆ # H : ! ┆
0x029c0…029e0 d0 0e 20 cd 48 cd c3 b9 cd 0e 0d cd 48 cd 0e 0a c3 48 cd 0a fe 24 c8 03 c5 4f cd 90 cd c1 c3 d3 ┆ H H H $ O ┆
0x029e0…02a00 cd 3a 0c cf 32 0b cf 2a 43 cf 4e 23 e5 06 00 c5 e5 cd fb cc e6 7f e1 c1 fe 0d ca c1 ce fe 0a ca ┆ : 2 *C N# ┆
0x02a00…02a20 (1, 1, 1) 32 d5 d9 3e 00 32 d3 d9 cd 54 d1 2a 43 cf cd 47 d1 cd bb d0 3a e3 d9 fe 80 d2 05 cf cd 77 d0 cd ┆2 > 2 T *C G : w ┆
0x02a20…02a40 84 d0 0e 00 c2 6e d6 cd 3e d0 32 d7 d9 01 00 00 b7 ca 3b d6 4f 0b cd 5e d0 44 4d cd be d3 7d b4 ┆ n > 2 ; O ^ DM å ┆
0x02a40…02a60 c2 48 d6 3e 02 c3 01 cf 22 e5 d9 eb 2a 43 cf 01 10 00 09 3a dd d9 b7 3a d7 d9 ca 64 d6 cd 64 d1 ┆ H > " *C : : d d ┆
0x02a60…02a80 73 c3 6c d6 4f 06 00 09 09 73 23 72 0e 02 3a 45 cf b7 c0 c5 cd 8a d0 3a d5 d9 3d 3d c2 bb d6 c1 ┆s l O s#r :E : == ┆
0x02a80…02aa0 c5 79 3d 3d c2 bb d6 e5 2a b9 d9 57 77 23 14 f2 8c d6 cd e0 d1 2a e7 d9 0e 02 22 e5 d9 c5 cd d1 ┆ y== * Ww# * " ┆
0x02aa0…02ac0 cf c1 cd b8 cf 2a e5 d9 0e 00 3a c4 d9 47 a5 b8 23 c2 9a d6 e1 22 e5 d9 cd da d1 cd d1 cf c1 c5 ┆ * : G # " ┆
0x02ac0…02ae0 cd b8 cf c1 3a e3 d9 21 e1 d9 be da d2 d6 77 34 0e 02 0d 0d c2 df d6 f5 cd 69 d1 e6 7f 77 f1 fe ┆ : ! w4 i w ┆
0x02ae0…02b00 7f c2 00 d7 3a d5 d9 fe 01 c2 00 d7 cd d2 d0 cd 5a d5 21 45 cf 7e b7 c2 fe d6 3d 32 e3 d9 36 00 ┆ : Z !E ü =2 6 ┆
0x02b00…02b20 c3 d2 d0 af 32 d5 d9 c5 2a 43 cf eb 21 21 00 19 7e e6 7f f5 7e 17 23 7e 17 e6 1f 4f 7e 1f 1f 1f ┆ 2 *C !! ü ü #ü Oü ┆
0x02b20…02b40 1f e6 0f 47 f1 23 6e 2c 2d 2e 06 c2 8b d7 21 20 00 19 77 21 0c 00 19 79 96 c2 47 d7 21 0e 00 19 ┆ G #n,-. ! w! y G ! ┆
0x02b40…02b60 78 96 e6 7f ca 7f d7 c5 d5 cd a2 d4 d1 c1 2e 03 3a 45 cf 3c ca 84 d7 21 0c 00 19 71 21 0e 00 19 ┆x . :E < ! q! ┆
0x02b60…02b80 70 cd 51 d4 3a 45 cf 3c c2 7f d7 c1 c5 2e 04 0c ca 84 d7 cd 24 d5 2e 05 3a 45 cf 3c ca 84 d7 c1 ┆p Q :E < . $ . :E < ┆
0x02b80…02ba0 af c3 01 cf e5 cd 69 d1 36 c0 e1 c1 7d 32 45 cf c3 78 d1 0e ff cd 03 d7 cc c1 d5 c9 0e 00 cd 03 ┆ i 6 å2E x ┆
0x02ba0…02bc0 d7 cc 03 d6 c9 eb 19 4e 06 00 21 0c 00 19 7e 0f e6 80 81 4f 3e 00 88 47 7e 0f e6 0f 80 47 21 0e ┆ N ! ü O> Gü G! ┆
0x02bc0…02be0 00 19 7e 87 87 87 87 f5 80 47 f5 e1 7d e1 b5 e6 01 c9 0e 0c cd 18 d3 2a 43 cf 11 21 00 19 e5 72 ┆ ü G å *C ! r┆
0x02be0…02c00 23 72 23 72 cd f5 d1 ca 0c d8 cd 5e d1 11 0f 00 cd a5 d7 e1 e5 5f 79 96 23 78 9e 23 7b 9e da 06 ┆#r#r ^ _y #x #æ ┆
0x02c00…02c20 (1, 1, 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…]
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…03020 (1, 1, 4) 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 ┆ ┆
[…0x5f…]
0x03c00…03c20 (2, 0, 1) DirEnt {status=0x00, name=»REGRES PAS«, xl=0x00, bc=0x00, xh=0x00, rc=0x7d, al=[0x02, 0x03, 0x04, 0x05, 0x06, 0x07, 0x08, 0x09, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x03c20…03c40 DirEnt {status=0x00, name=»REGRES COM«, xl=0x01, bc=0x00, xh=0x00, rc=0x23, al=[0x0a, 0x0b, 0x0c, 0x0d, 0x0e, 0x0f, 0x10, 0x11, 0x12, 0x13, 0x14, 0x00, 0x00, 0x00, 0x00, 0x00], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x03c40…03c60 DirEnt {status=0x00, name=»ASCII CHP«, xl=0x00, bc=0x00, xh=0x00, rc=0x0e, al=[0x18, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x03c60…03c80 DirEnt {status=0x00, name=»MINICALCHLP«, xl=0x00, bc=0x00, xh=0x00, rc=0x4e, al=[0x24, 0x25, 0x27, 0x32, 0x3b, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x03c80…03ca0 DirEnt {status=0x00, name=»LIS MID«, xl=0x00, bc=0x00, xh=0x00, rc=0x25, al=[0x2f, 0x30, 0x31, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x03ca0…03cc0 DirEnt {status=0x00, name=»REGOLD PAS«, xl=0x00, bc=0x00, xh=0x00, rc=0x2a, al=[0x15, 0x16, 0x17, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x03cc0…03ce0 DirEnt {status=0x00, name=»KASSE MID«, xl=0x00, bc=0x00, xh=0x00, rc=0x25, al=[0x33, 0x34, 0x38, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x03ce0…03d00 UnusedDirEnt {status=0xe5}
[…0x3…]
0x03d60…03d80 DirEnt {status=0x00, name=»OLDREG COM«, xl=0x00, bc=0x00, xh=0x00, rc=0x58, al=[0x49, 0x4a, 0x4b, 0x4c, 0x4e, 0x5c, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x03d80…03da0 DirEnt {status=0x00, name=»IMPULSELMID«, xl=0x00, bc=0x00, xh=0x00, rc=0x25, al=[0x4d, 0x75, 0x76, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x03da0…03dc0 UnusedDirEnt {status=0xe5}
0x03dc0…03de0 DirEnt {status=0x00, name=»MINICALCCOM«, xl=0x01, bc=0x00, xh=0x00, rc=0x4c, al=[0x28, 0x29, 0x2a, 0x35, 0x3a, 0x3f, 0x40, 0x41, 0x43, 0x44, 0x50, 0x51, 0x52, 0x00, 0x00, 0x00], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x03de0…03e00 UnusedDirEnt {status=0xe5}
[…0x11…]
0x04020…04040 DirEnt {status=0x00, name=»IMPULSUEMID«, xl=0x00, bc=0x00, xh=0x00, rc=0x25, al=[0x77, 0x78, 0x79, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x04040…04060 UnusedDirEnt {status=0xe5}
0x04060…04080 DirEnt {status=0x00, name=»ENERGIBEMID«, xl=0x00, bc=0x00, xh=0x00, rc=0x25, al=[0x7a, 0x7b, 0x7c, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x04080…040a0 UnusedDirEnt {status=0xe5}
0x040a0…040c0 DirEnt {status=0x00, name=»KONDITALMID«, xl=0x00, bc=0x00, xh=0x00, rc=0x25, al=[0x37, 0x3c, 0x3d, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x040c0…040e0 DirEnt {status=0x00, name=»OVERVGT MID«, xl=0x00, bc=0x00, xh=0x00, rc=0x25, al=[0x3e, 0x42, 0x4f, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x040e0…04100 DirEnt {status=0x00, name=»EOVERM MID«, xl=0x00, bc=0x00, xh=0x00, rc=0x25, al=[0x6d, 0x6e, 0x6f, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x04100…04120 UnusedDirEnt {status=0xe5}
[…0x3…]
0x04180…041a0 DirEnt {status=0x00, name=»OHMSLOV MID«, xl=0x00, bc=0x00, xh=0x00, rc=0x25, al=[0x6a, 0x6b, 0x6c, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x041a0…041c0 DirEnt {status=0x00, name=»FRITFALDMID«, xl=0x00, bc=0x00, xh=0x00, rc=0x25, al=[0x7d, 0x7e, 0x7f, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x041c0…041e0 DirEnt {status=0x00, name=»PKOVELSEMID«, xl=0x00, bc=0x00, xh=0x00, rc=0x25, al=[0x65, 0x66, 0x80, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x041e0…04200 UnusedDirEnt {status=0xe5}
[…0x40…]
0x04a00…04c00 (2, 0, 8) DataBlock {»REGRES.PAS«}
0x04c00…04c20 (2, 0, 9) UnusedDirEnt {status=0xe5}
[…0xf…]
0x04e00…05000 (2, 1, 1) DataBlock {»REGRES.PAS«}
[…0x1b…]
0x08600…08800 (4, 0, 2) DataBlock {»REGRES.COM«}
0x08800…08a00 (4, 0, 3) DataBlock {»REGRES.PAS«}
0x08a00…08c00 (4, 0, 4) DataBlock {»REGRES.COM«}
0x08c00…08e00 (4, 0, 5) DataBlock {»REGRES.PAS«}
0x08e00…09000 (4, 0, 6) DataBlock {»REGRES.COM«}
0x09000…09200 (4, 0, 7) DataBlock {»REGRES.PAS«}
0x09200…09400 (4, 0, 8) DataBlock {»REGRES.COM«}
[…0x26…]
0x0e000…0e200 (6, 1, 2) DataBlock {»REGOLD.PAS«}
0x0e200…0e400 (6, 1, 3) DataBlock {»REGRES.COM«}
0x0e400…0e600 (6, 1, 4) DataBlock {»REGOLD.PAS«}
0x0e600…0e800 (6, 1, 5) DataBlock {»REGRES.COM«}
0x0e800…0ea00 (6, 1, 6) DataBlock {»REGOLD.PAS«}
[…0x6…]
0x0f600…0f800 (7, 0, 4) DataBlock {»ASCII.CHP«}
0x0f800…0fa00 (7, 0, 5) DataBlock {»REGOLD.PAS«}
0x0fa00…0fc00 (7, 0, 6) DataBlock {»ASCII.CHP«}
0x0fc00…0fe00 (7, 0, 7) DataBlock {»REGOLD.PAS«}
0x0fe00…10000 (7, 0, 8) DataBlock {»ASCII.CHP«}
0x10000…10200 (7, 0, 9) DataBlock {»REGOLD.PAS«}
0x10200…10400 (7, 1, 1) DataBlock {»ASCII.CHP«}
0x10400…10420 (7, 1, 2) 21 55 12 e5 21 e2 28 5e 23 56 eb eb e1 73 23 72 cd 1a 09 06 53 4f 55 52 43 45 cd ce 07 21 a1 07 ┆!U ! (^#V s#r SOURCE ! ┆
0x10420…10440 23 23 e5 21 a1 07 11 06 00 19 e5 2a ce 0c e5 cd 44 0d 21 b0 07 16 00 5e d5 21 00 00 e5 cd f6 25 ┆## ! * D ! ^ ! %┆
0x10440…10460 f1 d2 b4 09 21 b1 07 7e 1f d2 77 09 21 a1 07 11 08 00 19 5e 23 56 d5 21 18 00 e5 cd c8 07 21 a1 ┆ ! ü w ! ^#V ! ! ┆
0x10460…10480 07 11 06 00 19 e5 21 34 00 eb e1 73 23 72 21 34 00 22 ce 0c c3 9f 09 21 a1 07 11 08 00 19 5e 23 ┆ !4 s#r!4 " ! ^#┆
0x10480…104a0 56 d5 21 08 00 e5 cd c8 07 21 a1 07 11 06 00 19 e5 21 20 00 eb e1 73 23 72 21 20 00 22 ce 0c 21 ┆V ! ! ! s#r! " !┆
0x104a0…104c0 a1 07 23 23 e5 21 a1 07 11 06 00 19 e5 2a ce 0c e5 cd 44 0d 21 a1 07 11 08 00 19 5e 23 56 d5 21 ┆ ## ! * D ! ^#V !┆
0x104c0…104e0 b0 07 16 00 5e d5 cd c8 07 21 a1 07 23 23 e5 21 01 00 eb e1 73 23 72 21 a1 07 11 06 00 19 e5 21 ┆ ^ ! ## ! s#r! !┆
0x104e0…10500 00 00 eb e1 73 23 72 21 a1 07 23 23 e5 21 a1 07 11 06 00 19 e5 21 a1 07 23 23 23 23 5e 23 56 eb ┆ s#r! ## ! ! ####^#V ┆
0x10500…10520 23 e5 cd 44 0d c9 cd 15 0a 0b 44 45 53 54 49 4e 41 54 49 4f 4e cd ce 07 21 55 12 e5 21 e2 28 5e ┆# D DESTINATION !U ! (^┆
0x10520…10540 23 56 eb eb e1 73 23 72 21 97 07 11 08 00 19 5e 23 56 d5 21 00 00 e5 cd c8 07 21 97 07 11 06 00 ┆#V s#r! ^#V ! ! ┆
0x10540…10560 19 e5 21 00 00 eb e1 73 23 72 21 97 07 23 23 e5 21 00 00 eb e1 73 23 72 21 b1 07 7e 1f d2 69 0a ┆ ! s#r! ## ! s#r! ü i ┆
0x10560…10580 21 1a 00 22 ce 0c c3 6f 0a 21 10 00 22 ce 0c 21 97 07 23 23 e5 21 97 07 11 06 00 19 e5 2a ce 0c ┆! " o ! " ! ## ! * ┆
0x10580…105a0 e5 cd 47 0d 21 af 07 16 00 5e d5 21 00 00 e5 cd f6 25 f1 d2 06 0b 21 b1 07 7e 1f d2 c9 0a 21 97 ┆ G ! ^ ! % ! ü ! ┆
0x105a0…105c0 07 11 08 00 19 5e 23 56 d5 21 18 00 e5 cd c8 07 21 97 07 11 06 00 19 e5 21 34 00 eb e1 73 23 72 ┆ ^#V ! ! !4 s#r┆
0x105c0…105e0 21 34 00 22 ce 0c c3 f1 0a 21 97 07 11 08 00 19 5e 23 56 d5 21 08 00 e5 cd c8 07 21 97 07 11 06 ┆!4 " ! ^#V ! ! ┆
0x105e0…10600 00 19 e5 21 20 00 eb e1 73 23 72 21 20 00 22 ce 0c 21 97 07 23 23 e5 21 97 07 11 06 00 19 e5 2a ┆ ! s#r! " ! ## ! *┆
0x10600…10620 (7, 1, 3) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 c3 b2 01 c3 16 01 2a a9 07 e5 3a b0 07 26 00 6f ┆ * : & o┆
0x10620…10640 e5 cd c8 07 2a 9f 07 e5 3a af 07 26 00 6f e5 cd c8 07 21 5e 18 e5 cd 31 26 cd a3 24 21 5e 18 e5 ┆ * : & o !^ 1& $!^ ┆
0x10640…10660 cd 31 26 cd 7e 01 37 20 20 49 4e 53 45 52 54 20 53 59 53 54 45 4d 20 44 49 53 4b 45 54 54 45 20 ┆ 1& ü 7 INSERT SYSTEM DISKETTE ┆
0x10660…10680 49 4e 20 44 52 49 56 45 20 41 20 41 4e 44 20 50 52 45 53 53 20 3c 52 45 54 55 52 4e 3e 20 cd 37 ┆IN DRIVE A AND PRESS <RETURN> 7┆
0x10680…106a0 26 cd b4 26 21 b5 07 e5 21 9b 17 e5 cd 31 26 cd 93 24 21 ff ff e5 21 ff ff e5 cd 31 19 e1 7d 2f ┆& &! ! 1& $! ! 1 å/┆
0x106a0…106c0 1f d2 ae 01 21 5e 18 e5 cd 31 26 cd a3 24 cd c0 22 c9 2a 06 00 f9 cd fd 16 21 00 00 e5 21 00 00 ┆ !^ 1& $ " * ! ! ┆
0x106c0…106e0 eb 21 01 00 19 16 00 5e d5 21 00 00 eb 21 02 00 19 16 00 5e d5 cd cc 28 e1 d1 19 11 33 00 19 d1 ┆ ! ^ ! ! ^ ( 3 ┆
0x106e0…10700 19 16 00 5e d5 21 00 00 e5 cd ae 25 e1 7d 32 b2 07 3a b2 07 26 00 1f d2 15 02 21 5e 18 e5 cd 31 ┆ ^ ! % å2 : & !^ 1┆
0x10700…10720 26 cd 0c 02 07 20 20 52 43 37 30 30 cd 37 26 cd b4 26 c3 2d 02 21 5e 18 e5 cd 31 26 cd 27 02 07 ┆& RC700 7& & - !^ 1& ' ┆
0x10720…10740 20 20 52 43 38 35 35 cd 37 26 cd b4 26 21 5e 18 e5 cd 31 26 cd 4b 02 13 20 42 41 43 4b 55 50 20 ┆ RC855 7& &!^ 1& K BACKUP ┆
0x10740…10760 56 45 52 53 2e 32 2e 31 20 2d 20 cd 37 26 cd b4 26 cd 5c 02 07 33 31 2f 31 2d 38 33 cd 37 26 cd ┆VERS.2.1 - 7& & Ø 31/1-83 7& ┆
0x10760…10780 b4 26 cd a3 24 21 5e 18 e5 cd 31 26 cd a3 24 21 80 00 16 00 5e d5 21 00 00 e5 cd e1 25 f1 d2 d8 ┆ & $!^ 1& $! ^ ! % ┆
0x10780…107a0 02 cd 8a 02 05 20 46 41 53 54 21 80 00 e5 cd d5 19 21 00 00 e5 cd e1 25 f1 d2 a6 02 21 01 00 7d ┆ FAST! ! % ! å┆
0x107a0…107c0 32 b3 07 c3 d5 02 21 5e 18 e5 cd 31 26 cd c9 02 18 20 20 49 4c 4c 45 47 41 4c 20 43 41 4c 4c 20 ┆2 !^ 1& ILLEGAL CALL ┆
0x107c0…107e0 50 41 52 41 4d 45 54 45 52 cd 37 26 cd b4 26 cd a3 24 cd c0 22 c3 df 02 21 00 00 7d 32 b3 07 21 ┆PARAMETER 7& & $ " ! å2 !┆
0x107e0…10800 5e 18 e5 cd 31 26 cd 02 03 18 20 20 53 4f 55 52 43 45 20 44 52 49 56 45 20 28 41 2f 42 2f 43 29 ┆^ 1& SOURCE DRIVE (A/B/C)┆
0x10800…10820 (7, 1, 4) ce 0c e5 cd 47 0d 21 97 07 11 08 00 19 5e 23 56 d5 21 af 07 16 00 5e d5 cd c8 07 21 97 07 23 23 ┆ G ! ^#V ! ^ ! ##┆
0x10820…10840 e5 21 01 00 eb e1 73 23 72 21 97 07 11 06 00 19 e5 21 00 00 eb e1 73 23 72 21 97 07 23 23 e5 21 ┆ ! s#r! ! s#r! ## !┆
0x10840…10860 97 07 11 06 00 19 e5 21 97 07 23 23 23 23 5e 23 56 eb 23 e5 cd 47 0d c9 cd c3 22 e1 7d 32 dc 0c ┆ ! ####^#V # G " å2 ┆
0x10860…10880 e1 22 de 0c cd c9 22 21 00 00 e5 21 00 00 eb 21 01 00 19 16 00 5e d5 21 00 00 eb 21 02 00 19 16 ┆ " "! ! ! ^ ! ! ┆
0x10880…108a0 00 5e d5 cd cc 28 e1 d1 19 11 34 00 19 eb 2a de 0c 19 d1 19 e5 3a dc 0c 26 00 6f eb e1 73 c9 cd ┆ ^ ( 4 * : & o s ┆
0x108a0…108c0 c3 22 e1 22 ea 0c cd c9 22 21 00 00 e5 21 00 00 eb 21 01 00 19 16 00 5e d5 21 00 00 eb 21 02 00 ┆ " " "! ! ! ^ ! ! ┆
0x108c0…108e0 19 16 00 5e d5 cd cc 28 e1 d1 19 11 34 00 19 eb 2a ea 0c 19 d1 19 16 00 5e eb 7d 32 e0 0c 3a e0 ┆ ^ ( 4 * ^ å2 : ┆
0x108e0…10900 0c 26 00 6f e3 e9 cd c3 22 21 ec 0c e3 e5 21 51 00 e5 cd 57 26 cd c9 22 21 a1 07 11 08 00 19 5e ┆ & o "! !Q W& "! ^┆
0x10900…10920 23 56 d5 21 97 07 11 08 00 19 5e 23 56 d5 cd f6 25 f1 d2 18 0c c3 cd 0c 21 5e 18 e5 cd 31 26 cd ┆#V ! ^#V % !^ 1& ┆
0x10920…10940 2c 0c 09 20 20 49 4e 53 45 52 54 20 cd 37 26 cd b4 26 21 ec 0c e5 cd 37 26 cd b4 26 cd 53 0c 13 ┆, INSERT 7& &! 7& & S ┆
0x10940…10960 20 44 49 53 4b 45 54 54 45 20 49 4e 20 44 52 49 56 45 20 cd 37 26 cd b4 26 21 97 07 11 08 00 19 ┆ DISKETTE IN DRIVE 7& &! ┆
0x10960…10980 5e 23 56 d5 21 41 00 d1 19 e5 cd 37 26 cd 73 28 cd 88 0c 14 20 41 4e 44 20 50 52 45 53 53 20 3c ┆^#V !A 7& s( AND PRESS <┆
0x10980…109a0 72 65 74 75 72 6e 3e 20 cd 37 26 cd b4 26 21 b5 07 e5 21 9b 17 e5 cd 31 26 cd 93 24 21 ff ff e5 ┆return> 7& &! ! 1& $! ┆
0x109a0…109c0 21 ff ff e5 cd 31 19 e1 7d 2f 1f d2 b8 0c 21 5e 18 e5 cd 31 26 cd a3 24 21 b5 07 16 00 5e d5 21 ┆! 1 å/ !^ 1& $! ^ !┆
0x109c0…109e0 03 00 e5 cd ae 25 f1 d2 cd 0c cd 13 01 c9 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ % ┆
0x109e0…10a00 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 ┆ ┆
0x10a00…10a20 (7, 1, 5) 3a 20 cd 37 26 cd b4 26 21 b5 07 e5 21 9b 17 e5 cd 31 26 cd 93 24 3a b5 07 26 00 6f e5 21 03 00 ┆: 7& &! ! 1& $: & o ! ┆
0x10a20…10a40 e5 cd ae 25 f1 d2 2b 03 cd c0 22 21 5e 18 e5 cd 31 26 cd a3 24 3a b5 07 26 00 6f eb 21 df 00 7d ┆ % + "!^ 1& $: & o ! å┆
0x10a40…10a60 a3 6f 7c a2 67 eb 21 41 00 eb af ed 52 22 a9 07 3a b5 07 26 00 6f e5 21 41 00 e5 21 43 00 e5 cd ┆ oø g !A R" : & o !A !C ┆
0x10a60…10a80 24 23 21 61 00 e5 21 63 00 e5 cd 24 23 cd bb 23 cd 70 23 21 09 00 e5 2a a9 07 e5 cd 5e 16 21 00 ┆$#!a !c $# # p#! * ^ ! ┆
0x10a80…10aa0 00 e5 cd f6 25 e1 d1 7d a3 1f d2 df 02 21 5e 18 e5 cd 31 26 cd b5 03 1d 20 20 44 45 53 54 49 4e ┆ % å !^ 1& DESTIN┆
0x10aa0…10ac0 41 54 49 4f 4e 20 44 52 49 56 45 20 28 41 2f 42 2f 43 29 3a 20 cd 37 26 cd b4 26 21 b5 07 e5 21 ┆ATION DRIVE (A/B/C): 7& &! !┆
0x10ac0…10ae0 9b 17 e5 cd 31 26 cd 93 24 3a b5 07 26 00 6f e5 21 03 00 e5 cd ae 25 f1 d2 de 03 cd c0 22 21 5e ┆ 1& $: & o ! % "!^┆
0x10ae0…10b00 18 e5 cd 31 26 cd a3 24 3a b5 07 26 00 6f eb 21 df 00 7d a3 6f 7c a2 67 eb 21 41 00 eb af ed 52 ┆ 1& $: & o ! å oø g !A R┆
0x10b00…10b20 22 9f 07 3a b5 07 26 00 6f e5 21 41 00 e5 21 43 00 e5 cd 24 23 21 61 00 e5 21 63 00 e5 cd 24 23 ┆" : & o !A !C $#!a !c $#┆
0x10b20…10b40 cd bb 23 cd 70 23 21 09 00 e5 2a 9f 07 e5 cd 5e 16 21 00 00 e5 cd f6 25 e1 d1 7d a3 1f d2 8d 03 ┆ # p#! * ^ ! % å ┆
0x10b40…10b60 2a a9 07 e5 21 02 00 e5 cd ae 25 2a 9f 07 e5 21 02 00 e5 cd ae 25 e1 d1 7d a3 6f 7d 2f 1f d2 8d ┆* ! %* ! % å oå/ ┆
0x10b60…10b80 03 2a a9 07 e5 cd cb 07 e1 7d 32 b0 07 2a 9f 07 e5 cd cb 07 e1 7d 32 af 07 3a b0 07 26 00 6f e5 ┆ * å2 * å2 : & o ┆
0x10b80…10ba0 21 20 00 e5 cd 16 26 3a af 07 26 00 6f e5 21 20 00 e5 cd 16 26 e1 d1 7d a3 6f e5 3a b0 07 26 00 ┆! &: & o ! & å o : & ┆
0x10ba0…10bc0 6f e5 3a af 07 26 00 6f e5 cd f6 25 e1 d1 7d a3 6f e5 3a b0 07 26 00 6f e5 21 1f 00 e5 cd e1 25 ┆o : & o % å o : & o ! %┆
0x10bc0…10be0 3a b0 07 26 00 6f e5 3a af 07 26 00 6f d1 eb af ed 52 e5 21 18 00 e5 cd f6 25 e1 d1 7d a3 6f d1 ┆: & o : & o R ! % å o ┆
0x10be0…10c00 7d b3 6f e5 3a af 07 26 00 6f e5 21 1f 00 e5 cd e1 25 3a af 07 26 00 6f e5 3a b0 07 26 00 6f d1 ┆å o : & o ! %: & o : & o ┆
0x10c00…10c20 (7, 1, 6) 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 ┆ ┆
0x10c20…10c40 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 c3 00 ┆ ┆
0x10c40…10c60 00 c3 4a 0d c3 56 0f c3 c3 10 21 a1 07 11 08 00 19 5e 23 56 d5 21 02 00 e5 cd 16 26 f1 d2 94 0d ┆ J V ! ^#V ! & ┆
0x10c60…10c80 21 a1 07 23 23 5e 23 56 eb 22 59 12 21 ad 07 e5 21 a1 07 5e 23 56 eb eb e1 73 23 72 21 ab 07 e5 ┆! ##^#V "Y ! ! ^#V s#r! ┆
0x10c80…10ca0 21 a1 07 23 23 23 23 5e 23 56 eb 23 eb e1 73 23 72 c3 c5 0d 21 97 07 23 23 5e 23 56 eb 22 59 12 ┆! ####^#V # s#r ! ##^#V "Y ┆
0x10ca0…10cc0 21 ad 07 e5 21 97 07 5e 23 56 eb eb e1 73 23 72 21 ab 07 e5 21 97 07 23 23 23 23 5e 23 56 eb 23 ┆! ! ^#V s#r! ! ####^#V #┆
0x10cc0…10ce0 eb e1 73 23 72 21 a1 07 11 06 00 19 e5 21 00 00 eb e1 73 23 72 21 97 07 11 06 00 19 e5 21 00 00 ┆ s#r! ! s#r! ! ┆
0x10ce0…10d00 eb e1 73 23 72 21 dc 28 5e 23 56 d5 21 e2 28 5e 23 56 eb d1 eb af ed 52 6c 26 00 22 5f 12 2a 5f ┆ s#r! (^#V ! (^#V Rl& "_ *_┆
0x10d00…10d20 12 e5 21 02 00 e5 cd be 28 e1 22 5b 12 21 dc 28 5e 23 56 d5 21 e2 28 5e 23 56 eb d1 eb af ed 52 ┆ ! ( "Æ ! (^#V ! (^#V R┆
0x10d20…10d40 26 00 22 5f 12 2a 5b 12 e5 2a 5f 12 e5 21 80 00 e5 cd f9 27 e1 d1 19 e5 21 ab 07 5e 23 56 d5 cd ┆& "_ *Æ *_ ! ' ! ^#V ┆
0x10d40…10d60 f9 27 e1 22 5b 12 2a 59 12 e5 21 ad 07 5e 23 56 d5 cd 0d 26 f1 d2 55 0f 2a 59 12 eb 2a 5b 12 19 ┆ ' "Æ *Y ! ^#V & U *Y *Æ ┆
0x10d60…10d80 e5 21 ad 07 5e 23 56 d5 cd e1 25 f1 d2 82 0e 21 ad 07 5e 23 56 d5 2a 59 12 d1 eb af ed 52 23 22 ┆ ! ^#V % ! ^#V *Y R#"┆
0x10d80…10da0 5b 12 cd 8c 0e 06 53 4f 55 52 43 45 cd ce 07 21 e2 28 5e 23 56 eb 22 55 12 21 01 00 e5 2a 5b 12 ┆Æ SOURCE ! (^#V "U ! *Æ ┆
0x10da0…10dc0 e5 d1 e1 2b e5 d5 22 5d 12 d1 e1 23 e5 d5 cd 92 22 22 71 12 2a 5d 12 23 22 5d 12 2a 71 12 2b 22 ┆ + "Å # ""q *Å #"Å *q +"┆
0x10dc0…10de0 71 12 7c b5 ca e2 0e 21 a1 07 23 23 e5 21 a1 07 11 06 00 19 e5 21 ab 07 5e 23 56 d5 cd 44 0d c3 ┆q ø ! ## ! ! ^#V D ┆
0x10de0…10e00 b4 0e cd f1 0e 0b 44 45 53 54 49 4e 41 54 49 4f 4e cd ce 07 21 e2 28 5e 23 56 eb 22 55 12 21 01 ┆ DESTINATION ! (^#V "U ! ┆
0x10e00…10e20 (7, 1, 7) eb af ed 52 e5 21 18 00 e5 cd f6 25 e1 d1 7d a3 6f d1 7d b3 1f d2 44 05 21 5e 18 e5 cd 31 26 cd ┆ R ! % å o å D !^ 1& ┆
0x10e20…10e40 38 05 15 20 20 42 41 43 4b 55 50 20 4e 4f 54 20 50 4f 53 53 49 42 4c 45 cd 37 26 cd b4 26 cd a3 ┆8 BACKUP NOT POSSIBLE 7& & ┆
0x10e40…10e60 24 cd c0 22 21 14 00 e5 cd b0 24 e1 22 b7 07 2a b7 07 e5 21 07 00 e5 cd 1f 25 e1 7d 2f 6f 7d 32 ┆$ "! $ " * ! % å/oå2┆
0x10e60…10e80 b1 07 21 5e 18 e5 cd 31 26 cd a3 24 2a a9 07 e5 2a 9f 07 e5 cd f6 25 2a a9 07 e5 21 02 00 e5 cd ┆ !^ 1& $* * %* ! ┆
0x10e80…10ea0 16 26 e1 d1 7d a3 1f d2 06 06 21 5e 18 e5 cd 31 26 cd c1 05 2c 20 20 49 4e 53 45 52 54 20 53 4f ┆ & å !^ 1& , INSERT SO┆
0x10ea0…10ec0 55 52 43 45 20 44 49 53 4b 45 54 54 45 20 41 4e 44 20 50 52 45 53 53 20 3c 52 45 54 55 52 4e 3e ┆URCE DISKETTE AND PRESS <RETURN>┆
0x10ec0…10ee0 20 cd 37 26 cd b4 26 21 b5 07 e5 21 9b 17 e5 cd 31 26 cd 93 24 3a b5 07 26 00 6f e5 21 03 00 e5 ┆ 7& &! ! 1& $: & o ! ┆
0x10ee0…10f00 cd ae 25 f1 d2 ea 05 cd 13 01 21 ff ff e5 21 ff ff e5 cd 31 19 e1 7d 2f 1f d2 06 06 21 5e 18 e5 ┆ % ! ! 1 å/ !^ ┆
0x10f00…10f20 cd 31 26 cd a3 24 21 57 12 e5 21 00 00 eb e1 73 21 a1 07 e5 2a a9 07 e5 cd 78 12 21 97 07 e5 2a ┆ 1& $!W ! s! * x ! *┆
0x10f20…10f40 9f 07 e5 cd 78 12 2a a9 07 e5 2a 9f 07 e5 cd f6 25 2a 9f 07 e5 21 02 00 e5 cd 16 26 e1 d1 7d a3 ┆ x * * %* ! & å ┆
0x10f40…10f60 1f d2 c5 06 21 5e 18 e5 cd 31 26 cd 80 06 31 20 20 49 4e 53 45 52 54 20 44 45 53 54 49 4e 41 54 ┆ !^ 1& 1 INSERT DESTINAT┆
0x10f60…10f80 49 4f 4e 20 44 49 53 4b 45 54 54 45 20 41 4e 44 20 50 52 45 53 53 20 3c 52 45 54 55 52 4e 3e 20 ┆ION DISKETTE AND PRESS <RETURN> ┆
0x10f80…10fa0 cd 37 26 cd b4 26 21 b5 07 e5 21 9b 17 e5 cd 31 26 cd 93 24 3a b5 07 26 00 6f e5 21 03 00 e5 cd ┆ 7& &! ! 1& $: & o ! ┆
0x10fa0…10fc0 ae 25 f1 d2 a9 06 cd 13 01 21 ff ff e5 21 ff ff e5 cd 31 19 e1 7d 2f 1f d2 c5 06 21 5e 18 e5 cd ┆ % ! ! 1 å/ !^ ┆
0x10fc0…10fe0 31 26 cd a3 24 2a a9 07 e5 21 02 00 e5 cd 16 26 2a 9f 07 e5 21 02 00 e5 cd 16 26 e1 d1 7d a3 1f ┆1& $* ! &* ! & å ┆
0x10fe0…11000 d2 e9 06 cd bc 07 c3 ec 06 cd bf 07 21 57 12 16 00 5e d5 21 00 00 e5 cd ae 25 f1 d2 62 07 21 a1 ┆ !W ^ ! % b ! ┆
0x11000…11020 (7, 1, 8) 00 e5 2a 5b 12 e5 d1 e1 2b e5 d5 22 5d 12 d1 e1 23 e5 d5 cd 92 22 22 73 12 2a 5d 12 23 22 5d 12 ┆ *Æ + "Å # ""s *Å #"Å ┆
0x11020…11040 2a 73 12 2b 22 73 12 7c b5 ca 47 0f 21 97 07 23 23 e5 21 97 07 11 06 00 19 e5 21 ab 07 5e 23 56 ┆*s +"s ø G ! ## ! ! ^#V┆
0x11040…11060 d5 cd 47 0d c3 19 0f 2a 59 12 eb 2a 5b 12 19 22 59 12 c3 46 0e c9 cd c3 22 e1 22 61 12 e1 22 63 ┆ G *Y *Æ "Y F " "a "c┆
0x11060…11080 12 e1 22 65 12 cd c9 22 21 01 00 22 53 12 21 09 00 e5 21 a1 07 11 08 00 19 5e 23 56 d5 cd 5e 16 ┆ "e "! "S ! ! ^#V ^ ┆
0x11080…110a0 e1 22 67 12 21 0a 00 e5 2a 65 12 5e 23 56 d5 cd 5e 16 e1 22 67 12 2a 53 12 e5 2a 61 12 e5 cd 0d ┆ "g ! *e ^#V ^ "g *S *a ┆
0x110a0…110c0 26 f1 d2 c2 10 2a 63 12 5e 23 56 d5 21 a1 07 23 23 23 23 5e 23 56 d5 cd e1 25 f1 d2 ed 0f 2a 65 ┆& *c ^#V ! ####^#V % *e┆
0x110c0…110e0 12 e5 2a 65 12 5e 23 56 eb 23 eb e1 73 23 72 21 0a 00 e5 2a 65 12 5e 23 56 d5 cd 5e 16 e1 22 67 ┆ *e ^#V # s#r! *e ^#V ^ "g┆
0x110e0…11100 12 2a 63 12 e5 21 00 00 eb e1 73 23 72 21 0b 00 e5 2a 63 12 5e 23 56 d5 cd 5e 16 e1 22 67 12 21 ┆ *c ! s#r! *c ^#V ^ "g !┆
0x11100…11120 0c 00 e5 2a 55 12 e5 cd 5e 16 e1 22 67 12 21 0d 00 e5 21 00 00 e5 cd 5e 16 e1 26 00 7d 32 57 12 ┆ *U ^ "g ! ! ^ & å2W ┆
0x11120…11140 3a 57 12 26 00 6f e5 21 00 00 e5 cd f6 25 f1 d2 9d 10 21 5e 18 e5 cd 31 26 cd 58 10 1b 20 42 41 ┆:W & o ! % !^ 1& X BA┆
0x11140…11160 44 20 53 45 43 54 4f 52 20 4f 4e 20 53 4f 55 52 43 45 20 44 49 53 4b 20 cd 37 26 cd b4 26 21 b5 ┆D SECTOR ON SOURCE DISK 7& &! ┆
0x11160…11180 07 e5 21 9b 17 e5 cd 31 26 cd 93 24 21 ff ff e5 21 ff ff e5 cd 31 19 e1 7d 2f 1f d2 88 10 21 5e ┆ ! 1& $! ! 1 å/ !^┆
0x11180…111a0 18 e5 cd 31 26 cd a3 24 21 b5 07 16 00 5e d5 21 03 00 e5 cd ae 25 f1 d2 9d 10 cd 13 01 2a 63 12 ┆ 1& $! ^ ! % *c ┆
0x111a0…111c0 e5 2a 63 12 5e 23 56 eb 23 eb e1 73 23 72 2a 53 12 23 22 53 12 2a 55 12 11 80 00 19 22 55 12 c3 ┆ *c ^#V # s#r*S #"S *U "U ┆
0x111c0…111e0 96 0f c9 cd c3 22 e1 22 69 12 e1 22 6b 12 e1 22 6d 12 cd c9 22 21 01 00 22 53 12 21 09 00 e5 21 ┆ " "i "k "m "! "S ! !┆
0x111e0…11200 97 07 11 08 00 19 5e 23 56 d5 cd 5e 16 e1 22 6f 12 21 0a 00 e5 2a 6d 12 5e 23 56 d5 cd 5e 16 e1 ┆ ^#V ^ "o ! *m ^#V ^ ┆
0x11200…11220 (7, 1, 9) 07 e5 2a a9 07 e5 cd 78 12 21 97 07 e5 2a 9f 07 e5 cd 78 12 cd 41 0d 3a b3 07 26 00 6f 7d 2f 6f ┆ * x ! * x A : & oå/o┆
0x11220…11240 e5 21 57 12 16 00 5e d5 21 00 00 e5 cd ae 25 e1 d1 7d a3 1f d2 62 07 21 5e 18 e5 cd 31 26 cd 56 ┆ !W ^ ! % å b !^ 1& V┆
0x11240…11260 07 14 20 20 43 48 45 43 4b 20 52 45 41 44 49 4e 47 20 43 4f 50 59 cd 37 26 cd b4 26 cd a3 24 cd ┆ CHECK READING COPY 7& & $ ┆
0x11260…11280 7b 12 21 5e 18 e5 cd 31 26 cd a3 24 21 5e 18 e5 cd 31 26 cd 88 07 11 20 20 42 41 43 4b 55 50 20 ┆æ !^ 1& $!^ 1& BACKUP ┆
0x11280…112a0 43 4f 4d 50 4c 45 54 45 cd 37 26 cd b4 26 cd a3 24 cd 13 01 cd c0 22 00 00 00 00 00 00 00 00 00 ┆COMPLETE 7& & $ " ┆
0x112a0…112c0 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 c3 00 00 c3 d1 07 c3 ┆ ┆
0x112c0…112e0 d8 07 c3 b9 08 c3 06 0a c3 58 0b c3 9f 0b c3 e6 0b cd c2 07 cd c5 07 c9 21 b0 07 16 00 5e d5 21 ┆ X ! ^ !┆
0x112e0…11300 20 00 e5 cd 16 26 f1 d2 ed 07 cd c2 07 21 b1 07 7e 1f d2 fe 07 21 4e 00 22 ce 0c c3 04 08 21 30 ┆ & ! ü !N " !0┆
0x11300…11320 00 22 ce 0c 21 00 00 22 d8 0c 21 02 00 22 da 0c 21 55 12 e5 21 e2 28 5e 23 56 eb eb e1 73 23 72 ┆ " ! " ! " !U ! (^#V s#r┆
0x11320…11340 21 af 07 16 00 5e d5 21 1f 00 e5 cd e1 25 f1 d2 44 08 21 da 0c e5 21 d8 0c e5 2a ce 0c e5 cd 47 ┆! ^ ! % D ! ! * G┆
0x11340…11360 0d c3 53 08 21 da 0c e5 21 d8 0c e5 2a ce 0c e5 cd 44 0d 21 80 00 22 d8 0c 21 b1 07 7e 1f d2 6a ┆ S ! ! * D ! " ! ü j┆
0x11360…11380 08 21 78 00 22 ce 0c c3 70 08 21 48 00 22 ce 0c 21 af 07 16 00 5e d5 21 1f 00 e5 cd e1 25 f1 d2 ┆ !x " p !H " ! ^ ! % ┆
0x11380…113a0 94 08 21 da 0c e5 21 d8 0c e5 2a ce 0c e5 cd 47 0d c3 a3 08 21 da 0c e5 21 d8 0c e5 2a ce 0c e5 ┆ ! ! * G ! ! * ┆
0x113a0…113c0 cd 44 0d 21 af 07 16 00 5e d5 21 20 00 e5 cd 16 26 f1 d2 b8 08 cd c5 07 c9 21 a1 07 11 08 00 19 ┆ D ! ^ ! & ! ┆
0x113c0…113e0 5e 23 56 d5 21 00 00 e5 cd c8 07 21 a1 07 11 06 00 19 e5 21 00 00 eb e1 73 23 72 21 a1 07 23 23 ┆^#V ! ! ! s#r! ##┆
0x113e0…11400 e5 21 00 00 eb e1 73 23 72 21 b1 07 7e 1f d2 fa 08 21 1a 00 22 ce 0c c3 00 09 21 10 00 22 ce 0c ┆ ! s#r! ü ! " ! " ┆
0x11400…11420 (8, 0, 1) c3 33 04 20 20 20 43 6f 70 79 72 69 67 68 74 20 28 63 29 20 31 39 37 39 2c 20 44 69 67 69 74 61 ┆ 3 Copyright (c) 1979, Digita┆
0x11420…11440 6c 20 52 65 73 65 61 72 63 68 3f 3f 3f 3f 3f 3f 3f 3f 3f 3f 3f 3f 00 00 00 43 4f 4e 3a 52 44 52 ┆l Research???????????? CON:RDR┆
0x11440…11460 3a 50 55 4e 3a 4c 53 54 3a 44 45 56 3a 56 41 4c 3a 55 53 52 3a 44 53 4b 3a 54 54 59 3a 43 52 54 ┆:PUN:LST:DEV:VAL:USR:DSK:TTY:CRT┆
0x11460…11480 3a 42 41 54 3a 55 43 31 3a 54 54 59 3a 50 54 52 3a 55 52 31 3a 55 52 32 3a 54 54 59 3a 50 54 50 ┆:BAT:UC1:TTY:PTR:UR1:UR2:TTY:PTP┆
0x11480…114a0 3a 55 50 31 3a 55 50 32 3a 54 54 59 3a 43 52 54 3a 4c 50 54 3a 55 4c 31 3a 52 2f 4f 00 52 2f 57 ┆:UP1:UP2:TTY:CRT:LPT:UL1:R/O R/W┆
0x114a0…114c0 00 53 59 53 00 44 49 52 00 52 2f 4f 20 52 2f 57 20 53 59 53 20 44 49 52 20 2a 2a 20 41 62 6f 72 ┆ SYS DIR R/O R/W SYS DIR ** Abor┆
0x114c0…114e0 74 65 64 20 2a 2a 00 41 63 74 69 76 65 20 55 73 65 72 20 3a 00 41 63 74 69 76 65 20 46 69 6c 65 ┆ted ** Active User : Active File┆
0x114e0…11500 73 3a 00 20 20 20 20 00 20 44 72 69 76 65 20 43 68 61 72 61 63 74 65 72 69 73 74 69 63 73 00 36 ┆s: Drive Characteristics 6┆
0x11500…11520 35 35 33 36 3a 20 00 31 32 38 20 42 79 74 65 20 52 65 63 6f 72 64 20 43 61 70 61 63 69 74 79 00 ┆5536: 128 Byte Record Capacity ┆
0x11520…11540 4b 69 6c 6f 62 79 74 65 20 44 72 69 76 65 20 20 43 61 70 61 63 69 74 79 00 33 32 20 20 42 79 74 ┆Kilobyte Drive Capacity 32 Byt┆
0x11540…11560 65 20 44 69 72 65 63 74 6f 72 79 20 45 6e 74 72 69 65 73 00 43 68 65 63 6b 65 64 20 20 44 69 72 ┆e Directory Entries Checked Dir┆
0x11560…11580 65 63 74 6f 72 79 20 45 6e 74 72 69 65 73 00 52 65 63 6f 72 64 73 2f 20 45 78 74 65 6e 74 00 52 ┆ectory Entries Records/ Extent R┆
0x11580…115a0 65 63 6f 72 64 73 2f 20 42 6c 6f 63 6b 00 53 65 63 74 6f 72 73 2f 20 54 72 61 63 6b 00 52 65 73 ┆ecords/ Block Sectors/ Track Res┆
0x115a0…115c0 65 72 76 65 64 20 54 72 61 63 6b 73 00 20 69 73 20 00 54 65 6d 70 20 52 2f 4f 20 44 69 73 6b 3a ┆erved Tracks is Temp R/O Disk:┆
0x115c0…115e0 20 64 3a 3d 52 2f 4f 00 53 65 74 20 49 6e 64 69 63 61 74 6f 72 3a 20 64 3a 66 69 6c 65 6e 61 6d ┆ d:=R/O Set Indicator: d:filenam┆
0x115e0…11600 65 2e 74 79 70 20 24 52 2f 4f 20 24 52 2f 57 20 24 53 59 53 20 24 44 49 52 00 44 69 73 6b 20 53 ┆e.typ $R/O $R/W $SYS $DIR Disk S┆
0x11600…11620 (8, 0, 2) 15 3a a9 15 e6 fe 1f 1f 32 a9 15 cd a0 04 21 a7 15 34 c2 c2 0a c3 46 0c 3a a7 15 fe 06 c2 ae 0b ┆ : 2 ! 4 F : ┆
0x11620…11640 01 b2 02 cd d2 04 01 c8 02 cd d2 04 01 fa 02 cd d2 04 01 15 03 cd d2 04 01 29 03 cd d2 04 21 a7 ┆ ) ! ┆
0x11640…11660 15 36 00 3e 03 21 a7 15 be da ab 0b cd a0 04 3a a7 15 87 87 4f 06 00 21 39 01 09 44 4d cd 69 0c ┆ 6 > ! : O !9 DM i ┆
0x11660…11680 01 38 03 cd b1 04 21 a8 15 36 00 3e 0c 21 a8 15 be da a4 0b c3 85 0b 3a a8 15 c6 04 32 a8 15 d2 ┆ 8 ! 6 > ! : 2 ┆
0x11680…116a0 6b 0b c3 a4 0b 0e 20 cd 90 04 3a a7 15 87 87 87 87 21 a8 15 86 4f 06 00 21 59 01 09 44 4d cd 69 ┆k : ! O !Y DM i┆
0x116a0…116c0 0c c3 77 0b 21 a7 15 34 c2 43 0b c3 46 0c 3a a7 15 fe 07 c2 bf 0b cd 19 08 3e 01 c9 c3 46 0c 3a ┆ w ! 4 C F : > F :┆
0x116c0…116e0 a7 15 fe 08 c2 cd 0b cd dd 09 c3 46 0c 3a a7 15 3d 32 a7 15 87 87 87 87 32 a8 15 cd 39 06 3a 59 ┆ F : =2 2 9 :Y┆
0x116e0…11700 15 fe 3d ca ef 0b 01 3b 03 cd d2 04 3e 01 c9 cd 39 06 2a a8 15 26 00 01 59 01 09 44 4d 1e 04 cd ┆ = ; > 9 * & Y DM ┆
0x11700…11720 19 0a 3d 32 a8 15 fe ff c2 14 0c 01 49 03 cd d2 04 3e 01 c9 21 a9 15 36 fc 3a a7 15 3d 32 a7 15 ┆ =2 I > ! 6 : =2 ┆
0x11720…11740 fe ff ca 38 0c 3a a9 15 07 07 32 a9 15 3a a8 15 87 87 32 a8 15 c3 19 0c 3a a9 15 21 03 00 a6 21 ┆ 8 : 2 : 2 : ! !┆
0x11740…11760 a8 15 b6 32 03 00 cd 39 06 3a 59 15 fe 20 c2 54 0c 3e 01 c9 3a 59 15 fe 2c ca 65 0c 01 5c 03 cd ┆ 2 9 :Y T > :Y , e Ø ┆
0x11760…11780 d2 04 3e 01 c9 c3 8c 0a c9 21 ac 15 70 2b 71 2a ab 15 7e fe 3a ca 89 0c 2a ab 15 4e cd 90 04 2a ┆ > ! p+q* ü : * N *┆
0x11780…117a0 ab 15 23 22 ab 15 c3 6f 0c 0e 3a cd 90 04 c9 21 ae 15 70 2b 71 21 10 27 22 b1 15 21 b0 15 36 00 ┆ #" o : ! p+q! '" ! 6 ┆
0x117a0…117c0 3e 00 11 b1 15 cd ea 14 b5 ca fc 0c 2a ad 15 eb 2a b1 15 cd 7f 14 7b 32 af 15 2a ad 15 eb cd 81 ┆> * * æ2 * ┆
0x117c0…117e0 14 22 ad 15 50 59 21 0a 00 cd 7f 14 eb 22 b1 15 3e 00 cd d3 14 b5 d6 01 9f 21 b0 15 b6 2b f5 7e ┆ " PY! " > ! + ü┆
0x117e0…11800 93 c6 ff 9f c1 48 b1 1f d2 f9 0c 21 b0 15 36 01 3a af 15 c6 30 4f cd 90 04 c3 a0 0c 0e 6b cd 90 ┆ H ! 6 : 0O k ┆
0x11800…11820 (8, 0, 3) 74 61 74 75 73 20 20 3a 20 44 53 4b 3a 20 64 3a 44 53 4b 3a 00 55 73 65 72 20 53 74 61 74 75 73 ┆tatus : DSK: d:DSK: User Status┆
0x11820…11840 20 20 3a 20 55 53 52 3a 00 49 6f 62 79 74 65 20 41 73 73 69 67 6e 3a 00 20 3d 00 42 61 64 20 44 ┆ : USR: Iobyte Assign: = Bad D┆
0x11840…11860 65 6c 69 6d 69 74 65 72 00 49 6e 76 61 6c 69 64 20 41 73 73 69 67 6e 6d 65 6e 74 00 42 61 64 20 ┆elimiter Invalid Assignment Bad ┆
0x11860…11880 44 65 6c 69 6d 69 74 65 72 00 3a 20 00 42 79 74 65 73 20 52 65 6d 61 69 6e 69 6e 67 20 4f 6e 20 ┆Delimiter : Bytes Remaining On ┆
0x11880…118a0 00 52 2f 00 2c 20 53 70 61 63 65 3a 20 00 49 6e 76 61 6c 69 64 20 46 69 6c 65 20 49 6e 64 69 63 ┆ R/ , Space: Invalid File Indic┆
0x118a0…118c0 61 74 6f 72 00 2a 2a 20 54 6f 6f 20 4d 61 6e 79 20 46 69 6c 65 73 20 2a 2a 00 46 69 6c 65 20 4e ┆ator ** Too Many Files ** File N┆
0x118c0…118e0 6f 74 20 46 6f 75 6e 64 00 20 53 69 7a 65 20 00 20 52 65 63 73 20 20 42 79 74 65 73 20 20 45 78 ┆ot Found Size Recs Bytes Ex┆
0x118e0…11900 74 20 41 63 63 00 36 35 35 33 36 00 20 73 65 74 20 74 6f 20 00 52 2f 4f 20 49 6e 76 61 6c 69 64 ┆t Acc 65536 set to R/O Invalid┆
0x11900…11920 20 44 69 73 6b 20 41 73 73 69 67 6e 6d 65 6e 74 00 57 72 6f 6e 67 20 43 50 2f 4d 20 56 65 72 73 ┆ Disk Assignment Wrong CP/M Vers┆
0x11920…11940 69 6f 6e 20 28 52 65 71 75 69 72 65 73 20 32 2e 30 29 00 21 00 00 39 22 32 15 21 54 15 f9 cd ed ┆ion (Requires 2.0) ! 9"2 !T ┆
0x11940…11960 04 fe 20 d2 4f 04 01 11 04 cd d2 04 c3 8b 04 21 5d 15 36 01 3a 5c 00 d6 00 d6 01 9f f5 3a 5d 00 ┆ O !Å 6 :Ø :Å ┆
0x11960…11980 d6 20 d6 01 9f c1 48 a1 1f d2 72 04 cd 33 0d c3 8b 04 3a 5c 00 fe 00 ca 80 04 cd 02 14 c3 8b 04 ┆ H r 3 :Ø ┆
0x11980…119a0 cd 87 0a 2f 1f d2 8b 04 cd ba 0d 2a 32 15 f9 c9 21 22 15 71 2a 22 15 26 00 eb 0e 02 cd 4c 14 c9 ┆ / *2 !" q*" & L ┆
0x119a0…119c0 0e 0d cd 90 04 0e 0a cd 90 04 c9 0e 20 cd 90 04 c9 21 24 15 70 2b 71 2a 23 15 7e fe 00 ca d1 04 ┆ !$ p+q*# ü ┆
0x119c0…119e0 2a 23 15 4e cd 90 04 2a 23 15 23 22 23 15 c3 b7 04 c9 21 26 15 70 2b 71 cd a0 04 2a 25 15 44 4d ┆*# N *# #"# !& p+q *% DM┆
0x119e0…11a00 cd b1 04 c9 11 00 00 0e 0b cd 4f 14 c9 11 00 00 0e 0c cd 4f 14 c9 21 28 15 71 2a 28 15 26 00 eb ┆ O O !( q*( & ┆
0x11a00…11a20 (8, 0, 4) 04 cd a0 04 c9 cd 51 05 22 20 15 cd 38 05 c6 41 4f cd 90 04 01 6a 03 cd b1 04 c9 0e 01 cd b7 07 ┆ Q " 8 AO j ┆
0x11a20…11a40 44 4d cd 8f 0c c9 01 6d 03 cd d2 04 cd 05 0d cd 1b 0d c9 cd 5a 05 22 b3 15 cd 6c 05 22 b5 15 21 ┆DM m Z " l " !┆
0x11a40…11a60 b7 15 36 00 3e 00 11 b3 15 cd ea 14 b5 ca a5 0d 2a b3 15 7d 1f d2 86 0d 2a b7 15 4d cd cc 05 cd ┆ 6 > * å * M ┆
0x11a60…11a80 05 0d 01 81 03 cd b1 04 2a b5 15 7d 1f d2 78 0d 0e 4f cd 90 04 c3 7d 0d 0e 57 cd 90 04 01 84 03 ┆ * å x O å W ┆
0x11a80…11aa0 cd b1 04 cd 1b 0d 0e 01 21 b3 15 cd c3 14 eb 2b 73 23 72 0e 01 21 b5 15 cd c3 14 eb 2b 73 23 72 ┆ ! +s#r ! +s#r┆
0x11aa0…11ac0 23 34 c3 44 0d cd a0 04 c9 3a 5c 00 fe 00 ca b9 0d 3a 5c 00 3d 4f cd cc 05 c9 cd b3 05 cd a9 0d ┆#4 D :Ø :Ø =O ┆
0x11ac0…11ae0 21 1d 15 36 00 21 cc 29 36 ff cd 6c 13 1f d2 e4 0d 3a cc 29 fe 00 c2 da 0d c9 3a cc 29 3d 32 cc ┆! 6 ! )6 l : ) : )=2 ┆
0x11ae0…11b00 29 c3 f0 0d 3a 5d 00 fe 20 c2 f0 0d cd 26 0d c9 21 00 00 22 b8 15 7d 32 5c 00 21 68 00 36 3f 21 ┆) :Å & ! " å2Ø !h 6?!┆
0x11b00…11b20 6a 00 36 3f 01 5c 00 cd 19 05 3a 27 15 fe ff ca 43 10 3a 27 15 e6 03 87 87 87 87 87 c6 80 6f 26 ┆j 6? Ø :' C :' o&┆
0x11b20…11b40 00 22 ba 29 21 cb 29 36 00 21 00 00 22 be 29 3a cb 29 2f 01 b8 15 11 be 29 f5 cd dd 14 9f c1 48 ┆ " )! )6 ! " ): )/ ) H┆
0x11b40…11b60 a1 1f d2 98 0e cd 5d 13 21 c6 29 36 01 3e 0b 21 c6 29 be da 8e 0e 2a c6 29 26 00 eb 2a ba 29 19 ┆ Å ! )6 > ! ) * )& * ) ┆
0x11b60…11b80 e5 2a c6 29 26 00 eb 2a bc 29 19 c1 0a be ca 79 0e 21 c6 29 36 0b c3 84 0e 3a c6 29 d6 0b d6 01 ┆ * )& * ) y ! )6 : ) ┆
0x11b80…11ba0 9f 32 cb 29 3a c6 29 3c 32 c6 29 c2 4d 0e 2a be 29 23 22 be 29 c3 2f 0e 3a cb 29 1f d2 a9 0e 2a ┆ 2 ): )<2 ) M * )#" ) / : ) *┆
0x11ba0…11bc0 be 29 2b 22 be 29 c3 60 0f 2a b8 15 22 be 29 23 22 b8 15 cd 5d 13 11 00 02 21 b8 15 cd f8 14 9f ┆ )+" ) ` * " )#" Å ! ┆
0x11bc0…11be0 11 10 00 2a bc 29 19 eb 21 06 00 f5 cd f8 14 9f 2f c1 48 b1 1f d2 ed 0e 01 a5 03 cd d2 04 21 00 ┆ * ) ! / H ! ┆
0x11be0…11c00 00 22 be 29 21 01 00 22 b8 15 cd 5d 13 2a be 29 01 ba 15 29 09 e5 2a be 29 eb e1 73 23 72 21 c6 ┆ " )! " Å * ) ) * ) s#r! ┆
0x11c00…11c20 (8, 0, 5) 0e 0e cd 4c 14 c9 21 2a 15 70 2b 71 2a 29 15 eb 0e 0f cd 4f 14 32 27 15 c9 21 2c 15 70 2b 71 2a ┆ L !* p+q*) O 2' !, p+q*┆
0x11c20…11c40 2b 15 eb 0e 11 cd 4f 14 32 27 15 c9 11 00 00 0e 12 cd 4f 14 32 27 15 c9 11 00 00 0e 19 cd 4f 14 ┆+ O 2' O 2' O ┆
0x11c40…11c60 c9 21 2e 15 70 2b 71 2a 2d 15 eb 0e 1a cd 4c 14 c9 11 00 00 0e 1b cd 52 14 c9 11 00 00 0e 18 cd ┆ !. p+q*- L R ┆
0x11c60…11c80 52 14 c9 11 00 00 0e 1c cd 4c 14 c9 11 00 00 0e 1d cd 52 14 c9 11 5c 00 0e 1e cd 4c 14 c9 11 00 ┆R L R Ø L ┆
0x11c80…11ca0 00 0e 1f cd 52 14 22 1e 15 c9 11 ff 00 0e 20 cd 4f 14 c9 21 2f 15 71 2a 2f 15 26 00 eb 0e 20 cd ┆ R " O !/ q*/ & ┆
0x11ca0…11cc0 4c 14 c9 21 31 15 70 2b 71 2a 30 15 eb 0e 23 cd 4c 14 c9 cd 7e 05 2a 1e 15 23 23 4e 21 01 00 cd ┆L !1 p+q*0 # L ü * ##N! ┆
0x11cc0…11ce0 bd 14 11 80 00 cd 9e 14 22 54 15 c9 21 56 15 71 2a 56 15 4d cd f6 04 cd b3 05 c9 21 58 15 70 2b ┆ "T !V q*V M !X p+┆
0x11ce0…11d00 71 0e 03 21 57 15 cd c3 14 eb 2a 20 15 19 3e 07 11 57 15 e5 cd 72 14 23 4d e1 cd b2 14 c9 21 5f ┆q !W * > W r #M !_┆
0x11d00…11d20 15 70 2b 71 21 60 15 36 00 3e 03 21 60 15 be da 36 06 2a 60 15 26 00 eb 2a 5e 15 19 e5 2a 60 15 ┆ p+q!` 6 > !` 6 *` & *^ *` ┆
0x11d20…11d40 26 00 01 59 15 09 d1 1a be ca 2f 06 3e 00 c9 21 60 15 34 c2 09 06 3e 01 c9 2a 5d 15 26 00 01 80 ┆& Y / > !` 4 > *Å & ┆
0x11d40…11d60 00 09 7e fe 20 c2 4f 06 21 5d 15 34 c3 39 06 21 61 15 36 00 3a 61 15 fe 04 d2 e6 06 2a 5d 15 26 ┆ ü O !Å 4 9 !a 6 :a *Å &┆
0x11d60…11d80 00 01 80 00 09 7e 32 62 15 4f 3e 01 b9 d2 7a 06 2a 62 15 4d cd eb 06 c3 7f 06 0e 20 cd eb 06 3e ┆ ü2b O> z *b M >┆
0x11d80…11da0 01 21 62 15 96 9f 2f f5 7e d6 2c d6 01 9f c1 48 b1 f5 7e d6 3a d6 01 9f c1 48 b1 f5 7e d6 2a d6 ┆ !b / ü , H ü : H ü * ┆
0x11da0…11dc0 01 9f c1 48 b1 f5 7e d6 2e d6 01 9f c1 48 b1 f5 7e d6 3e d6 01 9f c1 48 b1 f5 7e d6 3c d6 01 9f ┆ H ü . H ü > H ü < ┆
0x11dc0…11de0 c1 48 b1 f5 7e d6 3d d6 01 9f c1 48 b1 1f d2 df 06 2a 5d 15 26 00 01 80 00 09 36 01 c3 e3 06 21 ┆ H ü = H *Å & 6 !┆
0x11de0…11e00 5d 15 34 c3 54 06 21 5d 15 34 c9 21 63 15 71 2a 61 15 26 00 01 59 15 09 3a 63 15 77 21 61 15 34 ┆Å 4 T !Å 4 !c q*a & Y :c w!a 4┆
0x11e00…11e20 (8, 0, 6) 29 36 00 3e 0b 21 c6 29 be da 2e 0f 2a c6 29 26 00 eb 2a ba 29 19 e5 2a c6 29 26 00 eb 2a bc 29 ┆)6 > ! ) . * )& * ) * )& * )┆
0x11e20…11e40 19 c1 0a 77 3a c6 29 3c 32 c6 29 c2 03 0f 2a be 29 01 ba 19 29 09 3e 00 77 23 36 00 2a be 29 01 ┆ w: )<2 ) * ) ) > w#6 * ) ┆
0x11e40…11e60 ba 1d 29 09 77 23 36 00 2a be 29 01 ba 21 29 09 77 23 36 00 2a be 29 01 ba 25 29 09 77 23 36 00 ┆ ) w#6 * ) !) w#6 * ) %) w#6 ┆
0x11e60…11e80 2a be 29 01 ba 19 29 09 4e 23 46 03 2a be 29 c5 01 ba 19 29 09 c1 71 23 70 2a be 29 01 ba 25 29 ┆* ) ) N#F * ) ) q#p* ) %)┆
0x11e80…11ea0 09 01 0f 00 e5 2a ba 29 09 7e d1 cd 65 14 01 0c 00 e5 2a ba 29 09 01 04 00 e5 2a 1e 15 09 7e e1 ┆ * ) ü e * ) * ü ┆
0x11ea0…11ec0 a6 6f 26 00 11 80 00 cd 9e 14 c1 09 e5 2a be 29 01 ba 25 29 09 c1 71 23 70 21 c7 29 36 01 01 05 ┆ o& * ) %) q#p! )6 ┆
0x11ec0…11ee0 00 2a 1e 15 09 3e ff cd f5 14 d2 d2 0f 21 c7 29 36 02 21 c6 29 36 10 3e 1f 21 c6 29 be da 3d 10 ┆ * > ! )6 ! )6 > ! ) = ┆
0x11ee0…11f00 c3 f1 0f 3a c7 29 21 c6 29 86 77 d2 d7 0f c3 3d 10 2a c6 29 26 00 eb 2a ba 29 19 7e 32 c8 29 3a ┆ : )! ) w = * )& * ) ü2 ):┆
0x11f00…11f20 c7 29 fe 02 c2 1c 10 2a c6 29 26 00 01 01 00 09 eb 2a ba 29 19 3a c8 29 b6 32 c8 29 3a c8 29 fe ┆ ) * )& * ) : ) 2 ): ) ┆
0x11f20…11f40 00 ca 3a 10 2a be 29 01 ba 21 29 09 e5 2a be 29 01 ba 1d 29 09 eb c1 cd 73 07 c3 e3 0f cd 2c 05 ┆ : * ) !) * ) ) s , ┆
0x11f40…11f60 c3 0a 0e 3e 00 11 b8 15 cd ea 14 b5 c2 58 10 01 ba 03 cd d2 04 c3 5c 13 3a cc 29 fe ff c2 93 12 ┆ > X Ø : ) ┆
0x11f60…11f80 3e 01 21 b8 15 cd f5 14 d2 64 11 21 01 00 22 c0 29 3e 00 21 c0 29 cd f5 14 d2 64 11 21 00 00 22 ┆> ! d ! " )> ! ) d ! "┆
0x11f80…11fa0 c0 29 21 00 00 22 c4 29 2a b8 15 2b 2b eb 21 c4 29 cd f8 14 da 61 11 2a c4 29 01 bc 15 29 09 5e ┆ )! " )* ++ ! ) a * ) ) ^┆
0x11fa0…11fc0 23 56 eb 22 be 29 cd 5d 13 2a bc 29 22 ba 29 2a c4 29 01 ba 15 29 09 5e 23 56 eb 22 be 29 cd 5d ┆#V " ) Å * )" )* ) ) ^#V " ) Å┆
0x11fc0…11fe0 13 21 c6 29 36 01 3e 0b 21 c6 29 be da 54 11 2a c6 29 26 00 eb 2a ba 29 19 7e 32 c9 29 e5 2a c6 ┆ ! )6 > ! ) T * )& * ) ü2 ) * ┆
0x11fe0…12000 29 26 00 eb 2a bc 29 19 7e 32 ca 29 4f d1 1a b9 d2 3b 11 2a c4 29 01 ba 15 29 09 5e 23 56 eb 22 ┆)& * ) ü2 )O ; * ) ) ^#V "┆
0x12000…12020 (8, 0, 7) c9 21 67 15 72 2b 73 2b 70 2b 71 21 68 15 36 01 3e 00 11 66 15 cd ea 14 b5 ca 72 07 2a 64 15 eb ┆ !g r+s+p+q!h 6 > f r *d ┆
0x12020…12040 2a 66 15 cd 7f 14 21 69 15 73 2a 64 15 eb cd 81 14 22 64 15 50 59 21 0a 00 cd 7f 14 eb 22 66 15 ┆*f !i s*d "d PY! "f ┆
0x12040…12060 3e 00 cd d3 14 b5 c6 ff 9f 21 68 15 a6 23 f5 7e 93 d6 01 9f c1 48 a1 1f d2 61 07 cd ab 04 c3 6f ┆> !h # ü H a o┆
0x12060…12080 07 21 68 15 36 00 3a 69 15 c6 30 4f cd 90 04 c3 10 07 c9 21 6d 15 72 2b 73 2b 70 2b 71 2a 6c 15 ┆ !h 6 :i 0O !m r+s+p+q*l ┆
0x12080…120a0 11 54 15 e5 cd 5a 14 eb e1 73 23 72 2a 6c 15 eb 01 00 04 cd e2 14 da b6 07 2a 6c 15 eb 01 00 04 ┆ T Z s#r*l *l ┆
0x120a0…120c0 cd e2 14 eb 2b 73 23 72 2a 6a 15 4e 23 46 03 2b 71 23 70 c3 8c 07 c9 21 6e 15 71 21 00 00 22 6f ┆ +s#r*j N#F +q#p !n q! "o┆
0x120c0…120e0 15 22 71 15 7d 32 75 15 6f 26 00 22 73 15 01 05 00 2a 1e 15 09 eb 01 73 15 cd dd 14 da 0e 08 3a ┆ "q å2u o& "s * s :┆
0x120e0…12100 6e 15 1f d2 f1 07 2a 73 15 44 4d cd db 05 32 75 15 3a 75 15 1f da 01 08 11 71 15 01 6f 15 cd 73 ┆n *s DM 2u :u q o s┆
0x12100…12120 07 11 01 00 2a 73 15 19 22 73 15 d2 ce 07 2a 6f 15 c9 01 b9 01 cd d2 04 c9 01 c7 01 cd d2 04 cd ┆ *s "s *o ┆
0x12120…12140 8a 05 4f 06 00 11 0a 00 cd 01 07 01 d5 01 cd d2 04 21 76 15 36 00 3e 1f 21 76 15 be da 51 08 2a ┆ O !v 6 > !v Q *┆
0x12140…12160 76 15 26 00 01 77 15 09 36 00 60 69 2b 34 c2 36 08 01 cf 29 cd 41 05 01 2a 01 cd 19 05 3a 27 15 ┆v & w 6 `i+4 6 ) A * :' ┆
0x12160…12180 fe ff ca 93 08 3a 27 15 e6 03 87 87 87 87 87 4f 06 00 21 cf 29 09 7e 32 76 15 fe e5 ca 8d 08 3a ┆ :' O ! ) ü2v :┆
0x12180…121a0 76 15 e6 1f 4f 06 00 21 77 15 09 36 01 cd 2c 05 c3 5d 08 21 76 15 36 00 3e 1f 21 76 15 be da c2 ┆v O !w 6 , Å !v 6 > !v ┆
0x121a0…121c0 08 2a 76 15 26 00 01 77 15 09 7e 1f d2 bb 08 2a 76 15 4d 06 00 11 0a 00 cd 01 07 21 76 15 34 c2 ┆ *v & w ü *v M !v 4 ┆
0x121c0…121e0 98 08 c9 01 e3 01 cd d2 04 cd 38 05 c6 41 4f cd 90 04 0e 3a cd 90 04 01 e8 01 cd b1 04 2a 1e 15 ┆ 8 AO : * ┆
0x121e0…12200 23 23 4e 21 01 00 cd bd 14 22 97 15 01 05 00 2a 1e 15 09 4e 23 46 03 2a 97 15 eb cd a0 14 22 99 ┆##N! " * N#F * " ┆
0x12200…12220 (8, 0, 8) c2 29 2a c4 29 01 bc 15 29 09 e5 2a c4 29 01 ba 15 29 09 e3 4e 23 46 e1 71 23 70 2a c4 29 01 bc ┆ )* ) ) * ) ) N#F q#p* ) ┆
0x12220…12240 15 29 09 e5 2a c2 29 eb e1 73 23 72 2a c0 29 23 22 c0 29 21 c6 29 36 0b c3 4a 11 3a ca 29 21 c9 ┆ ) * ) s#r* )#" )! )6 J : )! ┆
0x12240…12260 29 be d2 4a 11 21 c6 29 36 0b 3a c6 29 3c 32 c6 29 c2 c6 10 11 01 00 2a c4 29 19 22 c4 29 d2 88 ┆) J ! )6 : )<2 ) * ) " ) ┆
0x12260…12280 10 c3 71 10 3a 1d 15 1f d2 74 11 01 c9 03 cd d2 04 c3 77 11 cd a0 04 01 d0 03 cd b1 04 21 00 00 ┆ q : t w ! ┆
0x12280…122a0 22 c0 29 01 b8 15 11 c0 29 cd dd 14 d2 8d 12 2a c0 29 01 ba 15 29 09 5e 23 56 eb 22 be 29 cd 5d ┆" ) ) * ) ) ^#V " ) Å┆
0x122a0…122c0 13 cd a0 04 2e 10 e5 2a bc 29 44 4d 11 5c 00 e1 0a 12 03 13 2d c2 b0 11 21 5c 00 36 00 3a 1d 15 ┆ . * )DM Ø - !Ø 6 : ┆
0x122c0…122e0 1f d2 e9 11 01 5c 00 cd a3 05 3a 7f 00 fe 00 ca db 11 01 e6 03 cd b1 04 c3 e6 11 2a 7d 00 44 4d ┆ Ø : *å DM┆
0x122e0…12300 11 10 27 cd 01 07 cd ab 04 2a be 29 01 ba 25 29 09 4e 23 46 11 10 27 cd 01 07 cd ab 04 2a be 29 ┆ ' * ) %) N#F ' * )┆
0x12300…12320 01 ba 21 29 09 4e 23 46 11 10 27 cd 01 07 0e 6b cd 90 04 cd ab 04 2a be 29 01 ba 19 29 09 4e 23 ┆ !) N#F ' k * ) ) N#┆
0x12320…12340 46 11 e8 03 cd 01 07 cd ab 04 0e 52 cd 90 04 0e 2f cd 90 04 01 09 00 2a bc 29 09 7e 07 1f d2 49 ┆F R / * ) ü I┆
0x12340…12360 12 0e 4f cd 90 04 c3 4e 12 0e 57 cd 90 04 cd ab 04 cd 38 05 c6 41 4f cd 90 04 0e 3a cd 90 04 01 ┆ O N W 8 AO : ┆
0x12360…12380 0a 00 2a bc 29 09 7e 07 32 c8 29 1f d2 74 12 0e 28 cd 90 04 cd c0 13 3a c8 29 1f d2 83 12 0e 29 ┆ * ) ü 2 ) t ( : ) )┆
0x12380…123a0 cd 90 04 2a c0 29 23 22 c0 29 c3 83 11 cd 26 0d c3 5c 13 21 00 00 22 c0 29 01 b8 15 11 c0 29 cd ┆ * )#" ) & Ø ! " ) ) ┆
0x123a0…123c0 dd 14 d2 5c 13 cd e4 04 1f d2 b0 12 cd 12 08 c9 2a c0 29 22 be 29 cd 5d 13 cd a0 04 cd c0 13 2a ┆ Ø * )" ) Å *┆
0x123c0…123e0 cc 29 4d 06 00 21 17 13 09 09 5e 23 56 eb e9 01 09 00 2a bc 29 09 3e 80 b6 2a bc 29 09 77 c3 1f ┆ )M ! ^#V * ) > * ) w ┆
0x123e0…12400 13 01 09 00 2a bc 29 09 3e 7f a6 2a bc 29 09 77 c3 1f 13 01 0a 00 2a bc 29 09 3e 80 b6 2a bc 29 ┆ * ) > * ) w * ) > * )┆
0x12400…12420 (8, 0, 9) 15 3e 00 cd d3 14 b5 d6 01 9f 21 97 15 f5 cd f8 14 b5 c6 ff 9f c1 48 a1 1f d2 25 09 01 ff 01 cd ┆ > ! H % ┆
0x12420…12440 d2 04 c3 2d 09 2a 99 15 44 4d cd c0 09 01 07 02 cd b1 04 0e 00 cd b7 07 44 4d cd c0 09 01 20 02 ┆ - * DM DM ┆
0x12440…12460 cd b1 04 01 07 00 2a 1e 15 09 4e 23 46 03 cd c0 09 01 39 02 cd b1 04 01 0b 00 2a 1e 15 09 5e 23 ┆ * N#F 9 * ^#┆
0x12460…12480 56 eb 29 29 44 4d cd c0 09 01 54 02 cd b1 04 01 04 00 2a 1e 15 09 7e 3c 6f 26 00 11 80 00 cd 9e ┆V ))DM T * ü<o& ┆
0x12480…124a0 14 44 4d cd c0 09 01 6f 02 cd b1 04 2a 97 15 44 4d cd c0 09 01 7f 02 cd b1 04 2a 1e 15 4e 23 46 ┆ DM o * DM * N#F┆
0x124a0…124c0 cd c0 09 01 8e 02 cd b1 04 01 0d 00 2a 1e 15 09 4e 23 46 cd c0 09 01 9d 02 cd b1 04 cd a0 04 c9 ┆ * N#F ┆
0x124c0…124e0 21 9c 15 70 2b 71 cd a0 04 2a 9b 15 44 4d 11 10 27 cd 01 07 0e 3a cd 90 04 cd ab 04 c9 cd 5a 05 ┆! p+q * DM ' : Z ┆
0x124e0…12500 22 9d 15 21 9f 15 36 00 3e 00 11 9d 15 cd ea 14 b5 ca 18 0a 2a 9d 15 7d 1f d2 06 0a 2a 9f 15 4d ┆" ! 6 > * å * M┆
0x12500…12520 cd cc 05 cd c3 08 0e 01 21 9d 15 cd c3 14 eb 2b 73 23 72 23 34 c3 e8 09 c9 21 a2 15 73 2b 70 2b ┆ ! +s#r#4 ! s+p+┆
0x12520…12540 71 21 a4 15 36 00 21 a6 15 36 00 36 01 3a a2 15 21 a6 15 be da 84 0a 21 a5 15 36 01 21 a3 15 36 ┆q! 6 ! 6 6 : ! ! 6 ! 6┆
0x12540…12560 00 3e 03 21 a3 15 be da 72 0a 2a a4 15 26 00 eb 2a a0 15 19 e5 2a a3 15 26 00 01 59 15 09 d1 1a ┆ > ! r * & * * & Y ┆
0x12560…12580 be ca 69 0a 21 a5 15 36 00 21 a4 15 34 2b 34 c2 41 0a 3a a5 15 1f d2 7d 0a 3a a6 15 c9 21 a6 15 ┆ i ! 6 ! 4+4 A : å : ! ┆
0x12580…125a0 34 c2 2d 0a 3e 00 c9 21 aa 15 36 00 cd 39 06 1e 08 01 39 01 cd 19 0a 32 a7 15 fe 00 c2 a8 0a 3a ┆4 - > ! 6 9 9 2 :┆
0x125a0…125c0 aa 15 d6 00 c6 ff 9f c9 21 aa 15 34 3a a7 15 fe 05 c2 18 0b 3a 03 00 32 a9 15 21 a8 15 36 00 2b ┆ ! 4: : 2 ! 6 +┆
0x125c0…125e0 36 00 3e 03 21 a7 15 be da 15 0b 3a a7 15 87 87 4f 06 00 21 39 01 09 44 4d cd 69 0c 01 ad 02 cd ┆6 > ! : O !9 DM i ┆
0x125e0…12600 b1 04 3a a9 15 e6 03 87 87 21 a8 15 86 4f 06 00 21 59 01 09 44 4d cd 69 0c 3a a8 15 c6 10 32 a8 ┆ : ! O !Y DM i : 2 ┆
0x12600…12620 (8, 1, 1) 09 77 c3 1f 13 01 0a 00 2a bc 29 09 3e 7f a6 2a bc 29 09 77 c3 1f 13 cf 12 e1 12 f3 12 05 13 2e ┆ w * ) > * ) w .┆
0x12620…12640 10 e5 2a bc 29 44 4d 11 5c 00 e1 0a 12 03 13 2d c2 2b 13 21 5c 00 36 00 cd 75 05 01 ec 03 cd b1 ┆ * )DM Ø - + !Ø 6 u ┆
0x12640…12660 04 3a cc 29 87 87 4f 06 00 21 99 01 09 44 4d cd b1 04 2a c0 29 23 22 c0 29 c3 99 12 c9 2a be 29 ┆ : ) O ! DM * )#" ) * )┆
0x12660…12680 29 29 29 29 11 cf 29 19 22 bc 29 c9 3a 6d 00 fe 20 c2 77 13 3e 00 c9 2e 04 11 59 15 01 6e 00 0a ┆)))) ) " ) :m w > . Y n ┆
0x12680…126a0 12 03 13 2d c2 7f 13 3a 59 15 d6 53 d6 01 9f f5 3a 5a 15 d6 20 d6 01 9f c1 48 a1 1f d2 a7 13 21 ┆ - :Y S :Z H !┆
0x126a0…126c0 1d 15 36 01 3e fe c9 1e 04 01 a9 01 cd 19 0a 32 cc 29 fe 00 c2 bd 13 01 8e 03 cd d2 04 3e 01 c9 ┆ 6 > 2 ) > ┆
0x126c0…126e0 21 cd 29 36 01 3e 0b 21 cd 29 be da 01 14 2a cd 29 26 00 eb 2a bc 29 19 3e 7f a6 32 ce 29 fe 20 ┆! )6 > ! ) * )& * ) > 2 ) ┆
0x126e0…12700 ca f7 13 3a cd 29 fe 09 c2 f0 13 0e 2e cd 90 04 2a ce 29 4d cd 90 04 3a cd 29 3c 32 cd 29 c2 c5 ┆ : ) . * )M : )<2 ) ┆
0x12700…12720 13 c9 cd 39 06 cd 39 06 3a 59 15 fe 3d c2 2f 14 cd 39 06 01 f5 03 cd fe 05 1f d2 26 14 cd a9 0d ┆ 9 9 :Y = / 9 & ┆
0x12720…12740 cd 63 05 c3 2c 14 01 f9 03 cd d2 04 c3 48 14 cd a9 0d 1e 08 01 39 01 cd 19 0a fe 08 c2 45 14 cd ┆ c , H 9 E ┆
0x12740…12760 c3 08 c3 48 14 cd ba 0d c9 c3 00 00 c3 05 00 c3 05 00 cd 05 00 c9 c9 c9 69 60 4e 23 46 1a 81 6f ┆ H i`N#F o┆
0x12760…12780 13 1a 88 67 c9 eb 5f 16 00 eb 1a 85 6f 13 1a 8c 67 c9 eb 5f 16 00 eb 1a a5 6f 13 1a a4 67 c9 44 ┆ g _ o g _ o g D┆
0x12780…127a0 4d 21 00 00 3e 10 f5 29 eb 97 29 eb 8d 91 6f 7c 98 67 13 d2 98 14 09 1b f1 3d c2 86 14 c9 44 4d ┆M! > ) ) oø g = DM┆
0x127a0…127c0 21 00 00 3e 10 29 eb 29 eb d2 ad 14 09 3d c2 a5 14 c9 7e 07 0d c2 b3 14 c9 5e 23 56 eb 29 0d c2 ┆! > ) ) = ü ^#V ) ┆
0x127c0…127e0 bd 14 c9 5e 23 56 eb 7c b7 1f 67 7d 1f 6f 0d c2 c7 14 c9 5f 16 00 7b 95 6f 7a 9c 67 c9 69 60 4e ┆ ^#V ø gå o _ æ oz g i`N┆
0x127e0…12800 23 46 1a 91 6f 13 1a 98 67 c9 6f 26 00 1a 95 6f 13 1a 9c 67 c9 5f 16 00 7b 96 5f 7a 23 9e 57 eb ┆#F o g o& o g _ æ _z# W ┆
0x12800…12820 (8, 1, 2) 21 68 05 7e 32 70 05 b7 28 40 23 22 6e 05 3a 70 05 3d fa 32 05 32 70 05 2a 6e 05 7e 23 22 6e 05 ┆!h ü2p (@#"n :p = 2 2p *n ü#"n ┆
0x12820…12840 2a 71 05 cd 87 04 d6 30 5f 16 00 19 22 71 05 c3 0e 05 2a 71 05 c1 d1 d5 c5 b7 ed 52 38 21 19 03 ┆*q 0_ "q *q R8! ┆
0x12840…12860 b7 ed 42 d2 5f 05 09 7d 3d 37 f5 e5 0e 02 1e 0a cd 05 00 0e 02 1e 0d cd 05 00 e1 f1 c1 d1 c9 21 ┆ B _ å=7 !┆
0x12860…12880 5f 0b cd 7c 05 18 85 05 00 00 00 00 00 00 69 05 00 00 00 d1 2b 29 19 5e 23 56 eb e9 32 d8 05 7e ┆_ ø i +) ^#V 2 ü┆
0x12880…128a0 b7 c8 fe 06 cc b7 05 fe 05 c2 a1 05 3a d8 05 3d 32 d8 05 b7 f2 9f 05 3e 2a 32 d8 05 c3 a1 05 3e ┆ : =2 >*2 >┆
0x128a0…128c0 20 fe 1f 28 0b 5f e5 0e 02 cd 05 00 e1 23 18 cf 4f cd 0c da 23 18 c8 4f cd 0c da 23 56 23 5e 3a ┆ ( _ # O # O #V#^:┆
0x128c0…128e0 33 da b7 c2 cf 05 4a cd 0c da 4b cd 0c da c9 4b cd 0c da 4a cd 0c da c9 ff 11 4b 06 0e 09 cd 05 ┆3 J K K J K ┆
0x128e0…12900 00 c3 00 00 0a 0a 0d 52 43 37 30 30 20 43 50 2f 4d 20 43 4f 4e 46 49 47 55 52 41 54 49 4f 4e 20 ┆ RC700 CP/M CONFIGURATION ┆
0x12900…12920 55 54 49 4c 49 54 59 20 20 56 45 52 53 20 32 2e 31 20 20 31 33 2e 30 31 2e 38 33 24 0a 0d 53 45 ┆UTILITY VERS 2.1 13.01.83$ SE┆
0x12920…12940 4c 45 43 54 20 53 59 53 54 45 4d 20 44 49 53 4b 20 46 4f 52 20 43 4f 4e 46 49 47 55 52 41 54 49 ┆LECT SYSTEM DISK FOR CONFIGURATI┆
0x12940…12960 4f 4e 20 28 41 2f 43 29 3f 20 24 0a 0d 42 41 44 20 53 45 43 54 4f 52 20 24 0c 06 32 25 2a 2a 2a ┆ON (A/C)? $ BAD SECTOR $ 2%***┆
0x12960…12980 2a 2a 2a 2a 2a 2a 2a 20 4d 45 4e 55 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 0d 06 32 27 31 3a 20 50 ┆******* MENU ********** 2'1: P┆
0x12980…129a0 52 49 4e 54 45 52 20 50 4f 52 54 0a 0d 06 32 28 32 3a 20 54 45 52 4d 49 4e 41 4c 20 50 4f 52 54 ┆RINTER PORT 2(2: TERMINAL PORT┆
0x129a0…129c0 0a 0d 06 32 29 33 3a 20 43 4f 4e 56 45 52 53 49 4f 4e 0a 0d 06 32 2a 34 3a 20 43 55 52 53 4f 52 ┆ 2)3: CONVERSION 2*4: CURSOR┆
0x129c0…129e0 0a 0d 06 32 2b 35 3a 20 4d 49 4e 49 20 4d 4f 54 4f 52 20 53 54 4f 50 20 54 49 4d 45 52 0a 0d 06 ┆ 2+5: MINI MOTOR STOP TIMER ┆
0x129e0…12a00 32 2c 36 3a 20 53 41 56 45 20 43 4f 4e 46 49 47 55 52 41 54 49 4f 4e 20 44 45 53 43 52 49 50 54 ┆2,6: SAVE CONFIGURATION DESCRIPT┆
0x12a00…12a20 (8, 1, 3) c9 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 ┆ ┆
0x12a20…12a40 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 ┆ ┆
[…0x2…]
0x12a80…12aa0 12 03 13 2d c2 7f 13 3a 59 15 d6 53 d6 01 9f f5 3a 5a 15 d6 20 d6 01 9f c1 48 a1 1f d2 a7 13 21 ┆ - :Y S :Z H !┆
0x12aa0…12ac0 1d 15 36 01 3e fe c9 1e 04 01 a9 01 cd 19 0a 32 cc 29 fe 00 c2 bd 13 01 8e 03 cd d2 04 3e 01 c9 ┆ 6 > 2 ) > ┆
0x12ac0…12ae0 21 cd 29 36 01 3e 0b 21 cd 29 be da 01 14 2a cd 29 26 00 eb 2a bc 29 19 3e 7f a6 32 ce 29 fe 20 ┆! )6 > ! ) * )& * ) > 2 ) ┆
0x12ae0…12b00 ca f7 13 3a cd 29 fe 09 c2 f0 13 0e 2e cd 90 04 2a ce 29 4d cd 90 04 3a cd 29 3c 32 cd 29 c2 c5 ┆ : ) . * )M : )<2 ) ┆
0x12b00…12b20 13 c9 cd 39 06 cd 39 06 3a 59 15 fe 3d c2 2f 14 cd 39 06 01 f5 03 cd fe 05 1f d2 26 14 cd a9 0d ┆ 9 9 :Y = / 9 & ┆
0x12b20…12b40 cd 63 05 c3 2c 14 01 f9 03 cd d2 04 c3 48 14 cd a9 0d 1e 08 01 39 01 cd 19 0a fe 08 c2 45 14 cd ┆ c , H 9 E ┆
0x12b40…12b60 c3 08 c3 48 14 cd ba 0d c9 c3 00 00 c3 05 00 c3 05 00 cd 05 00 c9 c9 c9 69 60 4e 23 46 1a 81 6f ┆ H i`N#F o┆
0x12b60…12b80 13 1a 88 67 c9 eb 5f 16 00 eb 1a 85 6f 13 1a 8c 67 c9 eb 5f 16 00 eb 1a a5 6f 13 1a a4 67 c9 44 ┆ g _ o g _ o g D┆
0x12b80…12ba0 4d 21 00 00 3e 10 f5 29 eb 97 29 eb 8d 91 6f 7c 98 67 13 d2 98 14 09 1b f1 3d c2 86 14 c9 44 4d ┆M! > ) ) oø g = DM┆
0x12ba0…12bc0 21 00 00 3e 10 29 eb 29 eb d2 ad 14 09 3d c2 a5 14 c9 7e 07 0d c2 b3 14 c9 5e 23 56 eb 29 0d c2 ┆! > ) ) = ü ^#V ) ┆
0x12bc0…12be0 bd 14 c9 5e 23 56 eb 7c b7 1f 67 7d 1f 6f 0d c2 c7 14 c9 5f 16 00 7b 95 6f 7a 9c 67 c9 69 60 4e ┆ ^#V ø gå o _ æ oz g i`N┆
0x12be0…12c00 23 46 1a 91 6f 13 1a 98 67 c9 6f 26 00 1a 95 6f 13 1a 9c 67 c9 5f 16 00 7b 96 5f 7a 23 9e 57 eb ┆#F o g o& o g _ æ _z# W ┆
0x12c00…12c20 (8, 1, 4) 49 4f 4e 0a 0d 06 32 2d 00 06 32 25 1f 06 32 25 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 54 45 52 4d 49 4e ┆ION 2- 2% 2%********* TERMIN┆
0x12c20…12c40 41 4c 20 50 4f 52 54 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 0d 06 32 27 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆AL PORT ********* 2'**********┆
0x12c40…12c60 2a 2a 2a 20 4d 45 4e 55 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 0d 06 32 29 31 3a 20 4e ┆*** MENU ************** 2)1: N┆
0x12c60…12c80 55 4d 42 45 52 20 4f 46 20 53 54 4f 50 20 42 49 54 53 20 50 52 2e 20 43 48 41 52 41 43 54 45 52 ┆UMBER OF STOP BITS PR. CHARACTER┆
0x12c80…12ca0 0a 0d 06 32 2a 32 3a 20 50 41 52 49 54 59 0a 0d 06 32 2b 33 3a 20 42 41 55 44 52 41 54 45 0a 0d ┆ 2*2: PARITY 2+3: BAUDRATE ┆
0x12ca0…12cc0 06 32 2c 34 3a 20 4e 55 4d 42 45 52 20 4f 46 20 42 49 54 53 20 50 52 2e 20 43 48 41 52 41 43 54 ┆ 2,4: NUMBER OF BITS PR. CHARACT┆
0x12cc0…12ce0 45 52 20 54 4f 20 54 52 41 4e 53 4d 49 54 0a 0d 06 32 2d 35 3a 20 4e 55 4d 42 45 52 20 4f 46 20 ┆ER TO TRANSMIT 2-5: NUMBER OF ┆
0x12ce0…12d00 42 49 54 53 20 50 52 2e 20 43 48 41 52 41 43 54 45 52 20 54 4f 20 52 45 43 45 49 56 45 0a 0d 06 ┆BITS PR. CHARACTER TO RECEIVE ┆
0x12d00…12d20 32 2e 00 06 32 26 1f 06 32 27 2a 2a 2a 2a 2a 2a 2a 2a 20 46 4f 52 4d 41 54 20 2a 2a 2a 2a 2a 2a ┆2. 2& 2'******** FORMAT ******┆
0x12d20…12d40 2a 2a 0a 0d 06 31 29 05 31 3a 20 42 4c 49 4e 4b 49 4e 47 20 52 45 56 45 52 53 45 20 56 49 44 45 ┆** 1) 1: BLINKING REVERSE VIDE┆
0x12d40…12d60 4f 0a 0d 06 31 2a 05 32 3a 20 42 4c 49 4e 4b 49 4e 47 20 55 4e 44 45 52 4c 49 4e 45 0a 0d 06 31 ┆O 1* 2: BLINKING UNDERLINE 1┆
0x12d60…12d80 2b 05 33 3a 20 52 45 56 45 52 53 45 20 56 49 44 45 4f 0a 0d 06 31 2c 05 34 3a 20 55 4e 44 45 52 ┆+ 3: REVERSE VIDEO 1, 4: UNDER┆
0x12d80…12da0 4c 49 4e 45 0a 0d 06 32 2d 00 06 32 25 1f 06 32 25 2a 2a 2a 2a 2a 2a 2a 2a 20 43 4f 4e 56 45 52 ┆LINE 2- 2% 2%******** CONVER┆
0x12da0…12dc0 53 49 4f 4e 20 54 41 42 4c 45 20 2a 2a 2a 2a 2a 2a 2a 2a 0a 0d 06 31 27 05 31 3a 20 44 41 4e 49 ┆SION TABLE ******** 1' 1: DANI┆
0x12dc0…12de0 53 48 0a 0d 06 31 28 05 32 3a 20 53 57 45 44 49 53 48 0a 0d 06 31 29 05 33 3a 20 47 45 52 4d 41 ┆SH 1( 2: SWEDISH 1) 3: GERMA┆
0x12de0…12e00 4e 0a 0d 06 31 2a 05 34 3a 20 55 4b 2d 41 53 43 49 49 0a 0d 06 31 2b 05 35 3a 20 55 53 2d 41 53 ┆N 1* 4: UK-ASCII 1+ 5: US-AS┆
0x12e00…12e20 (8, 1, 5) 26 00 e5 21 03 00 d1 cd 5f 05 e5 2a 69 ba 26 00 d1 7d b3 6f e5 21 64 ba e5 21 01 00 2b d1 19 6e ┆& ! _ *i & å o !d ! + n┆
0x12e20…12e40 26 00 7d ee 01 6f e5 21 64 ba e5 21 02 00 2b d1 19 6e 26 00 7d ee 01 6f d1 7d a3 6f e5 2a 0a bc ┆& å o !d ! + n& å o å o * ┆
0x12e40…12e60 26 00 e5 21 47 00 d1 cd 5f 05 d1 7d a3 6f e5 2a 01 bc e5 21 00 00 d1 cd 5f 05 d1 7d a3 6f d1 7d ┆& !G _ å o * ! _ å o å┆
0x12e60…12e80 b3 6f cb 45 ca af 5a 2a 6a ba 26 00 e5 21 03 00 d1 cd 5f 05 e5 2a 69 ba 26 00 d1 7d b3 6f cb 45 ┆ o E Z*j & ! _ *i & å o E┆
0x12e80…12ea0 ca 1b 5a 21 14 00 e5 21 02 00 cd dc 1b cd 1e 15 cd 40 18 0f 82 50 52 45 53 53 20 3c 53 50 41 43 ┆ Z! ! @ PRESS <SPAC┆
0x12ea0…12ec0 45 3e 84 cd 0f 1c 21 be 00 cd 06 15 21 6a ba cd 97 16 cd 0f 1c 2a 6a ba 26 00 e5 21 20 00 d1 cd ┆E> ! !j *j & ! ┆
0x12ec0…12ee0 5f 05 cb 45 ca a6 5f cd 1e 15 21 0c 00 cd b1 17 cd 4f 18 cd 0f 1c cd 1e 15 cd 40 18 40 2e 2e 2e ┆_ E _ ! O @ @...┆
0x12ee0…12f00 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 48 49 47 ┆.............................HIG┆
0x12f00…12f20 48 2d 53 43 4f 52 45 20 4c 49 53 54 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e cd 40 18 ┆H-SCORE LIST................. @ ┆
0x12f20…12f40 0d 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e cd 4f 18 cd 0f 1c cd 1e 15 cd 4f 18 cd 0f 1c 21 01 00 ┆ ............. O O ! ┆
0x12f40…12f60 e5 21 0a 00 d1 cd 46 05 7a b3 ca dd 60 d5 7d 32 0c bc cd 1e 15 2a 0c bc 26 00 e5 21 0a 00 cd b5 ┆ ! F z ` å2 * & ! ┆
0x12f60…12f80 17 21 2e 00 cd b1 17 21 1b bb e5 2a 0c bc 26 00 2b e5 29 e5 29 e5 29 29 d1 19 d1 19 d1 19 d1 19 ┆ !. ! * & + ) ) )) ┆
0x12f80…12fa0 cd 1a 04 21 14 00 cd 30 18 cd 40 18 09 20 2d 2d 2d 2d 2d 3e 3e 20 21 1b bb e5 2a 0c bc 26 00 2b ┆ ! 0 @ ----->> ! * & +┆
0x12fa0…12fc0 e5 29 e5 29 e5 29 29 d1 19 d1 19 d1 19 d1 19 11 15 00 19 5e 23 56 eb e5 21 0a 00 cd b5 17 cd 40 ┆ ) ) )) ^#V ! @┆
0x12fc0…12fe0 18 0a 20 50 4f 49 4e 54 53 2e 2e 2e cd 4f 18 cd 0f 1c 2a 0c bc 26 00 23 d1 1b c3 48 60 cd 1e 15 ┆ POINTS... O * & # H` ┆
0x12fe0…13000 cd 4f 18 cd 0f 1c cd 1e 15 cd 40 18 1e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 59 4f 55 52 ┆ O @ YOUR┆
0x13000…13020 (8, 1, 6) 43 49 49 0a 0d 06 31 2c 05 36 3a 20 46 52 45 4e 43 48 0a 0d 06 31 2d 05 37 3a 20 4c 49 42 52 41 ┆CII 1, 6: FRENCH 1- 7: LIBRA┆
0x13020…13040 52 59 0a 0d 06 32 2e 00 06 32 26 1f 06 32 27 2a 2a 2a 2a 2a 2a 2a 2a 20 53 54 4f 50 42 49 54 53 ┆RY 2. 2& 2'******** STOPBITS┆
0x13040…13060 20 2a 2a 2a 2a 2a 2a 2a 2a 0a 0d 06 31 29 05 31 3a 20 31 20 42 49 54 0a 0d 06 31 2a 05 32 3a 20 ┆ ******** 1) 1: 1 BIT 1* 2: ┆
0x13060…13080 31 2e 35 20 42 49 54 0a 0d 06 31 2b 05 33 3a 20 32 20 42 49 54 0a 0d 06 32 2c 00 06 32 26 1f 06 ┆1.5 BIT 1+ 3: 2 BIT 2, 2& ┆
0x13080…130a0 32 27 2a 2a 2a 2a 2a 2a 2a 2a 20 50 41 52 49 54 59 20 2a 2a 2a 2a 2a 2a 2a 2a 0a 0d 06 31 29 05 ┆2'******** PARITY ******** 1) ┆
0x130a0…130c0 31 3a 20 45 56 45 4e 0a 0d 06 31 2a 05 32 3a 20 4e 4f 0a 0d 06 31 2b 05 33 3a 20 4f 44 44 0a 0d ┆1: EVEN 1* 2: NO 1+ 3: ODD ┆
0x130c0…130e0 06 32 2c 00 06 32 26 1f 06 32 27 2a 2a 2a 2a 2a 2a 2a 2a 20 42 41 55 44 52 41 54 45 20 2a 2a 2a ┆ 2, 2& 2'******** BAUDRATE ***┆
0x130e0…13100 2a 2a 2a 2a 2a 0a 0d 06 31 29 05 20 31 3a 20 20 20 20 20 35 30 20 42 50 53 0a 0d 06 31 2a 05 20 ┆***** 1) 1: 50 BPS 1* ┆
0x13100…13120 32 3a 20 20 20 20 20 37 35 20 42 50 53 0a 0d 06 31 2b 05 20 33 3a 20 20 20 20 31 31 30 20 42 50 ┆2: 75 BPS 1+ 3: 110 BP┆
0x13120…13140 53 0a 0d 06 31 2c 05 20 34 3a 20 20 20 20 31 35 30 20 42 50 53 0a 0d 06 31 2d 05 20 35 3a 20 20 ┆S 1, 4: 150 BPS 1- 5: ┆
0x13140…13160 20 20 33 30 30 20 42 50 53 0a 0d 06 31 2e 05 20 36 3a 20 20 20 20 36 30 30 20 42 50 53 0a 0d 06 ┆ 300 BPS 1. 6: 600 BPS ┆
0x13160…13180 31 2f 05 20 37 3a 20 20 20 31 32 30 30 20 42 50 53 0a 0d 06 31 30 05 20 38 3a 20 20 20 32 34 30 ┆1/ 7: 1200 BPS 10 8: 240┆
0x13180…131a0 30 20 42 50 53 0a 0d 06 31 31 05 20 39 3a 20 20 20 34 38 30 30 20 42 50 53 0a 0d 06 31 32 05 31 ┆0 BPS 11 9: 4800 BPS 12 1┆
0x131a0…131c0 30 3a 20 20 20 39 36 30 30 20 42 50 53 0a 0d 06 31 33 05 31 31 3a 20 20 31 39 32 30 30 20 42 50 ┆0: 9600 BPS 13 11: 19200 BP┆
0x131c0…131e0 53 0a 0d 06 32 34 00 06 32 25 1f 06 32 25 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 50 52 49 4e 54 45 52 20 ┆S 24 2% 2%********* PRINTER ┆
0x131e0…13200 50 4f 52 54 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 0d 06 32 27 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆PORT ********* 2'*************┆
0x13200…13220 (8, 1, 7) 00 00 00 e3 31 f5 0f e5 11 e4 05 0e 09 cd 05 00 11 1c 06 0e 09 cd 05 00 0e 0a 11 67 05 cd 05 00 ┆ 1 g ┆
0x13220…13240 3a 68 05 fe 01 20 e9 21 69 05 7e fe 03 ca 00 00 e6 df fe 41 28 04 fe 43 20 d6 d6 41 32 5e 0d af ┆:h !i ü A( C A2^ ┆
0x13240…13260 cd f6 03 cd 62 01 0e 02 1e 0c cd 05 00 cd 29 03 cd 7e 03 cd 75 02 cd 2b 02 cd 81 02 cd 4a 02 c3 ┆ b ) ü u + J ┆
0x13260…13280 00 00 21 59 06 11 01 00 01 06 00 cd e7 04 d0 11 62 01 d5 cd 73 05 a0 01 82 01 02 03 40 03 b6 03 ┆ !Y b s @ ┆
0x13280…132a0 dc 03 21 09 07 11 01 00 01 05 00 cd e7 04 d0 11 82 01 d5 cd 73 05 be 01 eb 01 16 02 8d 02 9a 02 ┆ ! s ┆
0x132a0…132c0 21 c7 0a 11 01 00 01 04 00 cd e7 04 d0 11 a0 01 d5 cd 73 05 c4 01 f1 01 35 02 a1 02 ae 02 21 7f ┆! s 5 ! ┆
0x132c0…132e0 0d c3 ca 01 21 8a 0d c3 ca 01 7e e5 0f 0f e6 03 3d 21 28 09 11 01 00 01 03 00 cd e7 04 d1 d0 d5 ┆ ! ü =!( ┆
0x132e0…13300 7d 07 07 47 e1 7e e6 f3 80 77 c9 21 7f 0d c3 f7 01 21 8a 0d c3 f7 01 7e e5 3c e6 03 21 7b 09 11 ┆å G ü w ! ! ü < !æ ┆
0x13300…13320 01 00 01 03 00 cd e7 04 d1 d0 d5 7d ee 02 47 e1 7e e6 fc 80 77 c9 21 9f 0d cd 54 02 d0 79 32 76 ┆ å G ü w ! T y2v┆
0x13320…13340 0d 3a 7f 0d e6 3f 80 32 7f 0d c9 3e 47 d3 0c 3a 76 0d d3 0c c9 21 a0 0d cd 54 02 d0 79 32 78 0d ┆ : ? 2 >G :v ! T y2x ┆
0x13340…13360 3a 8a 0d e6 3f 80 32 8a 0d c9 3e 47 d3 0d 3a 78 0d d3 0d c9 e5 7e 21 c4 09 11 01 00 01 0b 00 cd ┆: ? 2 >G :x ü! ┆
0x13360…13380 e7 04 d1 d0 d5 2b eb 21 6a 0d 19 4e 21 5f 0d 19 46 e1 77 37 c9 21 7d 0d 06 09 0e 0a f3 ed b3 fb ┆ + !j N!_ F w7 !å ┆
0x13380…133a0 c9 21 86 0d 06 0b 0e 0b f3 ed b3 fb c9 21 83 0d cd af 02 d0 e6 60 32 34 da c9 21 81 0d cd da 02 ┆ ! ! `24 ! ┆
0x133a0…133c0 c9 21 8e 0d cd af 02 d0 e6 60 32 35 da c9 c9 7e e5 07 07 07 e6 03 21 75 0b 11 01 00 01 04 00 cd ┆ ! `25 ü !u ┆
0x133c0…133e0 e7 04 d1 d0 d5 0f d2 cc 02 3f c6 02 0f 0f 0f e6 60 47 e1 7e e6 9f b0 77 37 c9 7e e5 07 07 e6 03 ┆ ? `G ü w7 ü ┆
0x133e0…13400 21 e6 0b 11 01 00 01 04 00 cd e7 04 d1 d0 d5 0f d2 f6 02 3f c6 02 0f 0f e6 c0 47 e1 7e e6 3f 80 ┆! ? G ü ? ┆
0x13400…13420 (8, 1, 8) 20 4d 45 4e 55 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 0d 06 32 29 31 3a 20 53 54 4f 50 42 ┆ MENU ************* 2)1: STOPB┆
0x13420…13440 49 54 0a 0d 06 32 2a 32 3a 20 50 41 52 49 54 59 0a 0d 06 32 2b 33 3a 20 42 41 55 44 52 41 54 45 ┆IT 2*2: PARITY 2+3: BAUDRATE┆
0x13440…13460 0a 0d 06 32 2c 34 3a 20 42 49 54 20 50 52 2e 20 43 48 41 52 41 43 54 45 52 0a 0d 06 32 2d 00 06 ┆ 2,4: BIT PR. CHARACTER 2- ┆
0x13460…13480 40 37 07 2a 2a 2a 20 49 4c 4c 45 47 41 4c 20 2a 2a 2a 0a 0d 00 06 32 26 1f 06 32 27 2a 2a 2a 2a ┆@7 *** ILLEGAL *** 2& 2'****┆
0x13480…134a0 2a 2a 20 42 49 54 53 2f 43 48 41 52 20 54 52 41 4e 53 4d 49 54 54 45 52 20 2a 2a 2a 2a 2a 2a 0a ┆** BITS/CHAR TRANSMITTER ****** ┆
0x134a0…134c0 0d 06 31 29 05 31 3a 20 31 20 54 4f 20 35 20 42 49 54 53 0a 0d 06 31 2b 05 33 3a 20 37 20 42 49 ┆ 1) 1: 1 TO 5 BITS 1+ 3: 7 BI┆
0x134c0…134e0 54 53 0a 0d 06 31 2a 05 32 3a 20 36 20 42 49 54 53 0a 0d 06 31 2c 05 34 3a 20 38 20 42 49 54 53 ┆TS 1* 2: 6 BITS 1, 4: 8 BITS┆
0x134e0…13500 0a 0d 06 32 2d 00 06 32 26 1f 06 32 27 2a 2a 2a 2a 2a 2a 20 42 49 54 53 2f 43 48 41 52 20 52 45 ┆ 2- 2& 2'****** BITS/CHAR RE┆
0x13500…13520 43 45 49 56 45 52 20 2a 2a 2a 2a 2a 2a 0a 0d 06 31 29 05 31 3a 20 35 20 42 49 54 53 0a 0d 06 31 ┆CEIVER ****** 1) 1: 5 BITS 1┆
0x13520…13540 2b 05 33 3a 20 37 20 42 49 54 53 0a 0d 06 31 2a 05 32 3a 20 36 20 42 49 54 53 0a 0d 06 31 2c 05 ┆+ 3: 7 BITS 1* 2: 6 BITS 1, ┆
0x13540…13560 34 3a 20 38 20 42 49 54 53 0a 0d 06 32 2d 00 06 32 25 1f 06 32 25 2a 2a 2a 20 43 55 52 53 4f 52 ┆4: 8 BITS 2- 2% 2%*** CURSOR┆
0x13560…13580 20 2a 2a 2a 0a 0d 06 32 27 2a 2a 2a 2a 20 4d 45 4e 55 20 2a 2a 2a 2a 0a 0d 06 32 28 31 3a 20 46 ┆ *** 2'**** MENU **** 2(1: F┆
0x13580…135a0 4f 52 4d 41 54 0a 0d 06 32 29 32 3a 20 41 44 44 52 45 53 53 49 4e 47 0a 0d 06 32 2a 00 06 32 26 ┆ORMAT 2)2: ADDRESSING 2* 2&┆
0x135a0…135c0 1f 06 32 27 2a 2a 2a 2a 2a 2a 20 41 44 44 52 45 53 53 49 4e 47 20 2a 2a 2a 2a 2a 2a 0a 0d 06 31 ┆ 2'****** ADDRESSING ****** 1┆
0x135c0…135e0 29 05 31 3a 20 48 2c 56 0a 0d 06 31 2a 05 32 3a 20 56 2c 48 0a 0d 06 32 2b 00 06 32 37 43 48 4f ┆) 1: H,V 1* 2: V,H 2+ 27CHO┆
0x135e0…13600 49 43 45 3a 20 00 06 32 25 1f 06 32 25 2a 2a 2a 2a 2a 20 4d 49 4e 49 20 4d 4f 54 4f 52 20 53 54 ┆ICE: 2% 2%***** MINI MOTOR ST┆
0x13600…13620 (8, 1, 9) 77 c9 21 8a 08 3a 9e 0d 11 01 00 01 07 00 cd e7 04 d0 32 9e 0d 21 f5 0f 01 80 01 3d fa 23 03 09 ┆w ! : 2 ! = # ┆
0x13620…13640 c3 1b 03 11 f5 0d ed b0 c9 3a 9e 0d 21 f5 0f 01 80 01 3d fa 3a 03 09 c3 32 03 11 80 f6 ed b0 c9 ┆ : ! = : 2 ┆
0x13640…13660 21 4f 0c 11 01 00 01 02 00 cd e7 04 d0 11 40 03 d5 cd 73 05 58 03 9f 03 21 03 08 3a 9d 0d 11 01 ┆!O @ s X ! : ┆
0x13660…13680 00 01 04 00 cd e7 04 d0 7d 3d 32 9d 0d e6 03 07 07 07 07 4f 3a 98 0d e6 cf b1 32 98 0d c9 3e 40 ┆ å=2 O: 2 >@┆
0x13680…136a0 d3 01 3e 00 d3 01 3a 95 0d d3 00 3a 96 0d d3 00 3a 97 0d d3 00 3a 98 0d d3 00 3e 23 d3 01 c9 21 ┆ > : : : : ># !┆
0x136a0…136c0 9d 0c 3a a1 0d 11 01 00 01 02 00 cd e7 04 d0 32 a1 0d 32 33 da c9 21 e6 0c cd 7c 05 2a a2 0d cd ┆ : 2 23 ! ø * ┆
0x136c0…136e0 97 04 cd a7 04 21 26 0d 11 05 00 01 b0 04 cd e7 04 d0 cd 8e 04 22 e7 ff 22 a2 0d c9 3e 01 cd f6 ┆ !& " " > ┆
0x136e0…13700 03 c9 b7 28 08 01 00 00 cd 2a da 18 03 cd 27 da fe 00 c2 d9 05 c9 f5 3a 5e 0d fe 02 28 1d f1 21 ┆ ( * ' :^ ( !┆
0x13700…13720 37 da 46 c5 f5 db 14 e6 80 28 04 3e 00 18 02 3e 10 77 01 00 00 cd 1b da c3 22 04 06 00 0e 02 cd ┆7 F ( > > w " ┆
0x13720…13740 1b da 01 00 00 cd 1e da 01 01 00 cd 21 da 01 75 0d cd 24 da f1 f5 cd e2 03 01 f5 0d cd 24 da 01 ┆ ! u $ $ ┆
0x13740…13760 02 00 cd 21 da f1 f5 cd e2 03 01 75 0e cd 24 da 01 03 00 cd 21 da f1 f5 cd e2 03 01 f5 0e cd 24 ┆ ! u $ ! $┆
0x13760…13780 da 01 04 00 cd 21 da f1 cd e2 03 3a 5e 0d fe 02 ca 7f 04 21 37 da f1 77 01 00 00 cd 1b da c9 06 ┆ ! :^ !7 w ┆
0x13780…137a0 00 0e 02 cd 1b da c9 29 54 5d 29 29 19 c9 cd 87 04 54 5d 29 29 19 c9 11 01 00 01 ce ff 09 7c b5 ┆ )TÅ)) TÅ)) ø ┆
0x137a0…137c0 28 03 13 18 f8 eb c9 06 00 11 10 27 cd c4 04 11 e8 03 cd c4 04 11 64 00 cd c4 04 11 0a 00 cd c4 ┆( ' d ┆
0x137c0…137e0 04 11 01 00 0e 30 b7 ed 52 38 03 0c 18 f8 19 3e 30 b9 28 02 06 01 af b8 f5 e5 c5 d5 59 0e 02 c4 ┆ 0 R8 >0 ( Y ┆
0x137e0…13800 05 00 d1 c1 e1 f1 c9 d5 c5 cd 7c 05 21 da 0c cd 7c 05 21 00 00 22 71 05 0e 0a 11 67 05 cd 05 00 ┆ ø ! ø ! "q g ┆
0x13800…13820 (9, 0, 1) 4f 50 20 54 49 4d 45 52 20 2a 2a 2a 2a 2a 0a 0d 06 32 27 43 55 52 52 45 4e 54 20 56 41 4c 55 45 ┆OP TIMER ***** 2'CURRENT VALUE┆
0x13820…13840 20 49 53 3a 20 00 20 53 45 43 4f 4e 44 53 0a 0d 06 32 29 53 45 4c 45 43 54 20 4e 45 57 20 56 41 ┆ IS: SECONDS 2)SELECT NEW VA┆
0x13840…13860 4c 55 45 20 28 52 41 4e 47 45 20 35 2d 31 32 30 30 20 53 45 43 4f 4e 44 53 29 2e 0a 0d 00 00 c0 ┆LUE (RANGE 5-1200 SECONDS). ┆
0x13860…13880 c0 c0 c0 c0 40 40 40 40 40 40 c1 80 58 40 20 40 20 10 08 04 02 00 00 00 00 00 00 00 00 00 00 00 ┆ @@@@@@ X@ @ ┆
0x13880…138a0 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 ┆ ┆
0x138a0…138c0 00 00 00 00 e5 d5 2a bb 3a e5 e5 2a 96 3a e5 21 c0 02 e5 21 40 30 e5 c5 c9 cd 93 30 c1 e1 d1 cd ┆ * : * : ! !@0 0 ┆
0x138c0…138e0 49 0d c2 6f 30 3a 9f 3a b7 c2 58 30 78 b1 c2 6f 30 2a 91 3a e5 cd ea 34 e1 cd cb 2c af 32 9f 3a ┆I o0: : X0x o0* : 4 , 2 :┆
0x138e0…13900 d1 d5 2a 98 3a e5 eb e9 d5 cd c8 35 b7 ca a2 30 11 8d 38 cd de 35 cd 72 2f fe 0d c2 7a 30 e5 c5 ┆ * : 5 0 8 5 r/ z0 ┆
0x13900…13920 2a 9a 3a e5 2a 9c 3a e5 2a 98 3a e9 d1 e1 22 98 3a e1 22 9c 3a e1 22 9a 3a eb e9 0b 62 6b c3 45 ┆* : * : * : " : " : " : bk E┆
0x13920…13940 30 3a 93 3a b7 ca cf 04 32 9f 3a c1 e1 d1 11 c5 30 d5 e5 c5 af 32 9e 3a c3 06 0b c3 ab 04 3a 9f ┆0: : 2 : 0 2 : : ┆
0x13940…13960 3a b7 ca 24 31 c1 01 d6 01 c5 cd 1b 0b fe 3a cc 1b 0b cd 10 05 c0 b7 f0 4f e6 08 c2 f8 30 79 e6 ┆: $1 : O 0y ┆
0x13960…13980 10 c2 00 31 79 e6 20 c2 08 31 79 e6 40 c2 15 31 c9 3a 9e 3a 3d 32 9e 3a c9 3a 9e 3a 3c 32 9e 3a ┆ 1y 1y @ 1 : :=2 : : :<2 :┆
0x13980…139a0 c9 3a 9e 3a b7 c0 3a 3a 38 b7 c8 c3 02 26 3a 9e 3a b7 c0 23 7e fe 08 c8 3e ff c3 68 26 c1 d1 e1 ┆ : : ::8 &: : #ü > h& ┆
0x139a0…139c0 21 c0 02 e5 d5 c5 c9 b7 f5 cd 3f 2c 22 a0 3a cd bc 2e 4f 3a 40 39 fe 20 ca 4a 31 2a a0 3a cd cb ┆! ?," : .O:@9 J1* : ┆
0x139c0…139e0 2c f1 c9 79 36 00 2b fe 2c c4 87 04 f1 f5 ca 86 31 cd ef 0a fe 3c c4 87 04 f1 77 e5 f5 0e 00 2b ┆, y6 + , 1 < w +┆
0x139e0…13a00 3a 40 39 fe 20 c2 e1 31 f1 f5 47 ca 94 31 cd df 2e 0c fe 0d ca de 31 fe 3e ca e1 31 c3 75 31 cd ┆:@9 1 G 1 . 1 > 1 u1 ┆
0x13a00…13a20 (9, 0, 2) 0b 0c 0d 0e 8f 10 91 92 93 14 15 96 97 18 19 1a 1b 1c 9d 1e 9f 20 31 32 33 34 35 36 37 38 39 aa ┆ 123456789 ┆
0x13a20…13a40 30 2d ad 2e 8b 30 31 32 33 34 35 36 37 38 39 ba 30 2d bd 2e 83 12 86 c2 c3 c4 05 82 c7 08 09 0a ┆0- . 0123456789 0- . ┆
0x13a40…13a60 84 85 cd ce cf 81 d1 87 d3 d4 d5 80 d7 18 d9 1a db dc dd de 30 e0 8e e2 e3 e4 e5 8a e7 e8 e9 ea ┆ 0 ┆
0x13a60…13a80 8c 8d ed ee ef 89 f1 8f f3 f4 f5 88 f7 f8 f9 fa fb fc fd fe 7f 00 01 02 03 04 05 06 07 08 09 0a ┆ ┆
0x13a80…13aa0 0b 0c 0d 0e 0f 10 11 12 13 14 15 16 17 18 19 1a 1b 1c 1d 1e 1f 20 21 22 23 24 25 26 27 28 29 2a ┆ !"#$%&'()*┆
0x13aa0…13ac0 2b 2c 2d 2e 2f 30 31 32 33 34 35 36 37 38 39 3a 3b 3c 3d 3e 3f 05 41 42 43 44 45 46 47 48 49 4a ┆+,-./0123456789:;<=>? ABCDEFGHIJ┆
0x13ac0…13ae0 4b 4c 4d 4e 4f 50 51 52 53 54 55 56 57 58 59 5a 0b 0c 0d 5e 5f 16 61 62 63 64 65 66 67 68 69 6a ┆KLMNOPQRSTUVWXYZ ^_ abcdefghij┆
0x13ae0…13b00 6b 6c 6d 6e 6f 70 71 72 73 74 75 76 77 78 79 7a 1b 1c 1d 0f 7f 00 11 02 03 04 05 06 07 08 09 0a ┆klmnopqrstuvwxyz ┆
0x13b00…13b20 0b 0c 0d 0e 0f 10 01 12 13 14 15 16 1a 18 19 17 1b 1c 1d 1e 1f 20 21 22 23 24 25 26 27 28 29 2a ┆ !"#$%&'()*┆
0x13b20…13b40 2b 2c 2d 2e 2f 30 31 32 33 34 35 36 37 38 39 3a 3b 3c 3d 3e 3f 40 51 42 43 44 45 46 47 48 49 4a ┆+,-./0123456789:;<=>?@QBCDEFGHIJ┆
0x13b40…13b60 4b 4c 5b 4e 4f 50 41 52 53 54 55 56 5a 58 59 57 4d 5c 5d 5e 5f 60 71 62 63 64 65 66 67 68 69 6a ┆KLÆNOPARSTUVZXYWMØÅ^_`qbcdefghij┆
0x13b60…13b80 6b 6c 7b 6e 6f 70 61 72 73 74 75 76 7a 78 79 77 6d 7c 7d 7e 7f 80 01 82 03 04 05 86 87 08 09 0a ┆klænoparstuvzxywmøåü ┆
0x13b80…13ba0 0b 0c 0d 0e 8f 10 91 92 93 14 15 96 97 18 19 1a 1b 1c 9d 1e 9f 20 31 32 33 34 35 36 37 38 39 aa ┆ 123456789 ┆
0x13ba0…13bc0 30 2d ad 2e 8b 30 31 32 33 34 35 36 37 38 39 ba 30 2d bd 2e 83 12 86 c2 c3 c4 05 82 c7 08 c9 0a ┆0- . 0123456789 0- . ┆
0x13bc0…13be0 84 85 cd ce cf 81 d1 87 d3 d4 d5 80 d7 18 d9 1a db dc dd de 30 e0 8e e2 e3 e4 e5 8a e7 e8 e9 ea ┆ 0 ┆
0x13be0…13c00 8c 8d ed ee ef 89 f1 8f f3 f4 f5 88 f7 f8 f9 fa fb fc fd fe 7f 00 01 02 03 04 05 06 07 08 09 0a ┆ ┆
0x13c00…13c20 (9, 0, 3) e9 0a d6 3c 32 a7 3a cc b0 0a c3 60 31 cd b0 0a fe 0d ca d7 31 f5 3a a7 3a b7 ca b9 31 f1 11 e1 ┆ <2 : `1 1 : : 1 ┆
0x13c20…13c40 31 d5 fe 20 c8 fe 09 c8 fe 3b c8 fe 2c c8 d1 c3 d1 31 f1 fe 3c ca cd 31 fe 3e c2 d1 31 04 05 ca ┆1 ; , 1 < 1 > 1 ┆
0x13c40…13c60 e1 31 05 c3 d1 31 04 c3 d1 31 0c 77 2b c3 94 31 3a a7 3a b7 c2 e1 31 cd b7 04 36 00 2b cd 6f 2c ┆ 1 1 1 w+ 1: : 1 6 + o,┆
0x13c60…13c80 78 b7 c4 87 04 f1 e1 22 a2 3a 26 00 69 22 96 3a c1 d1 e1 01 07 32 c3 f6 2f af c2 3e 01 c3 2e 31 ┆x " :& i" : 2 / > .1┆
0x13c80…13ca0 c1 01 f8 2f c5 2a bd 3a 3e 01 32 a9 3a e5 cd 8a 2f f5 cd 89 2c ca 4b 32 f1 e1 fe 0d ca f7 2d fe ┆ / * :> 2 : / , K2 - ┆
0x13ca0…13cc0 3b ca ec 2d fe 27 ca 3b 32 fe 22 ca 3b 32 cd 7f 2d c3 21 32 47 cd d6 2c fe 0d ca f7 2d b8 ca 35 ┆; - ' ;2 " ;2 - !2G , - 5┆
0x13cc0…13ce0 32 c3 3c 32 f1 e1 22 bd 3a af cd 91 35 cd f4 35 c1 d1 e1 21 c0 02 e5 d5 2a bb 3a e5 e5 2a a2 3a ┆2 <2 " : 5 5 ! * : * :┆
0x13ce0…13d00 e5 2a 96 3a e5 21 c0 02 e5 21 76 32 e5 c5 c9 cd 93 30 c1 e1 d1 00 01 02 03 04 05 06 07 08 09 0a ┆ * : ! !v2 0 ┆
0x13d00…13d20 0b 0c 0d 0e 0f 10 11 12 13 14 15 16 17 18 19 1a 1b 1c 1d 1e 1f 20 21 22 23 24 25 26 27 28 29 2a ┆ !"#$%&'()*┆
0x13d20…13d40 2b 2c 2d 2e 2f 30 31 32 33 34 35 36 37 38 39 3a 3b 3c 3d 3e 3f 40 41 42 43 44 45 46 47 48 49 4a ┆+,-./0123456789:;<=>?@ABCDEFGHIJ┆
0x13d40…13d60 4b 4c 4d 4e 4f 50 51 52 53 54 55 56 57 58 59 5a 5b 5c 5d 5e 5f 60 61 62 63 64 65 66 67 68 69 6a ┆KLMNOPQRSTUVWXYZÆØÅ^_`abcdefghij┆
0x13d60…13d80 6b 6c 6d 6e 6f 70 71 72 73 74 75 76 77 78 79 7a 7b 7c 7d 7e 7f 00 01 02 03 04 05 06 07 08 09 0a ┆klmnopqrstuvwxyzæøåü ┆
0x13d80…13da0 0b 0c 0d 0e 0f 10 11 12 13 14 15 16 17 18 19 1a 1b 1c 1d 1e 1f 20 21 22 23 24 25 26 27 28 29 2a ┆ !"#$%&'()*┆
0x13da0…13dc0 2b 2c 2d 2e 2f 30 31 32 33 34 35 36 37 38 39 3a 3b 3c 3d 3e 3f 40 41 42 43 44 45 46 47 48 49 4a ┆+,-./0123456789:;<=>?@ABCDEFGHIJ┆
0x13dc0…13de0 4b 4c 4d 4e 4f 50 51 52 53 54 55 56 57 58 59 5a 5b 5c 5d 5e 5f 60 61 62 63 64 65 66 67 68 69 6a ┆KLMNOPQRSTUVWXYZÆØÅ^_`abcdefghij┆
0x13de0…13e00 6b 6c 6d 6e 6f 70 71 72 73 74 75 76 77 78 79 7a 7b 7c 7d 7e 7f 80 01 82 03 04 05 86 87 08 09 0a ┆klmnopqrstuvwxyzæøåü ┆
0x13e00…13e20 (9, 0, 4) 0b 0c 0d 0e 0f 10 11 12 13 14 15 16 17 18 19 1a 1b 1c 1d 1e 1f 20 21 22 23 04 25 26 27 28 29 2a ┆ !"# %&'()*┆
0x13e20…13e40 2b 2c 2d 2e 2f 30 31 32 33 34 35 36 37 38 39 3a 3b 0b 3d 0d 3f 05 41 42 43 44 45 46 47 48 49 4a ┆+,-./0123456789:; = ? ABCDEFGHIJ┆
0x13e40…13e60 4b 4c 4d 4e 4f 50 51 52 53 54 55 56 57 58 59 5a 5b 5c 5d 5e 5f 16 61 62 63 64 65 66 67 68 69 6a ┆KLMNOPQRSTUVWXYZÆØÅ^_ abcdefghij┆
0x13e60…13e80 6b 6c 6d 6e 6f 70 71 72 73 74 75 76 77 78 79 7a 7b 7c 7d 10 7f 00 01 02 03 04 05 06 07 08 09 0a ┆klmnopqrstuvwxyzæøå ┆
0x13e80…13ea0 0b 0c 0d 0e 0f 10 11 12 13 14 15 16 17 18 19 1a 1b 1c 1d 1e 1f 20 21 22 23 24 25 26 27 28 29 5e ┆ !"#$%&'()^┆
0x13ea0…13ec0 7e 2c 2b 2e 2d 30 31 32 33 34 35 36 37 38 39 2a 2f 3b 3f 3a 5f 3c 41 42 43 44 45 46 47 48 49 4a ┆ü,+.-0123456789*/;?:_<ABCDEFGHIJ┆
0x13ec0…13ee0 4b 4c 4d 4e 4f 50 51 52 53 54 55 56 57 58 59 5a 5b 5c 5d 40 3d 3e 61 62 63 64 65 66 67 68 69 6a ┆KLMNOPQRSTUVWXYZÆØÅ@=>abcdefghij┆
0x13ee0…13f00 6b 6c 6d 6e 6f 70 71 72 73 74 75 76 77 78 79 7a 7b 7c 7d 60 7f 80 1d 82 0c 12 05 86 87 08 09 0a ┆klmnopqrstuvwxyzæøå` ┆
0x13f00…13f20 15 0c 0d 13 8f 10 91 92 93 94 95 96 97 18 99 1a 1b 9c 9d 9e 9f 20 31 32 33 34 35 36 37 38 39 aa ┆ 123456789 ┆
0x13f20…13f40 30 2d ad 2e 8b 30 31 32 33 34 35 36 37 38 39 ba 30 2d bd 2e 83 c0 86 c2 c3 c4 c5 82 c7 c8 c9 ca ┆0- . 0123456789 0- . ┆
0x13f40…13f60 84 85 cd ce cf 81 d1 87 d3 d4 d5 80 d7 d8 d9 da db dc dd de 30 e0 8e e2 e3 e4 e5 8a e7 e8 e9 ea ┆ 0 ┆
0x13f60…13f80 8c 8d ed ee ef 89 f1 8f f3 f4 f5 88 f7 f8 f9 fa fb fc fd fe 7f 80 1d 82 0c 12 05 86 87 08 09 0a ┆ ┆
0x13f80…13fa0 0b 0c 0d 0e 8f 10 91 92 93 14 15 96 97 18 19 1a 1b 1c 9d 1e 9f 20 31 32 33 34 35 36 37 38 39 aa ┆ 123456789 ┆
0x13fa0…13fc0 30 2d ad 2e 8b 30 31 32 33 34 35 36 37 38 39 ba 30 2d bd 2e 83 12 86 c2 c3 c4 05 82 c7 08 c9 0a ┆0- . 0123456789 0- . ┆
0x13fc0…13fe0 84 85 cd ce cf 81 d1 87 d3 d4 d5 80 d7 18 d9 1a db dc dd de 30 e0 8e e2 e3 e4 e5 8a e7 e8 e9 ea ┆ 0 ┆
0x13fe0…14000 8c 8d ed ee ef 89 f1 8f f3 f4 f5 88 f7 f8 f9 fa fb fc fd fe 7f 00 01 02 03 04 05 06 07 08 09 0a ┆ ┆
0x14000…14020 (9, 0, 5) 0b 0c 0d 0e 8f 10 91 92 93 14 15 96 97 18 19 1a 1b 1c 9d 1e 9f 20 31 32 33 34 35 36 37 38 39 aa ┆ 123456789 ┆
0x14020…14040 30 2d ad 2e 8b 30 31 32 33 34 35 36 37 38 39 ba 30 2d bd 2e 83 12 86 c2 c3 c4 05 82 c7 08 c9 0a ┆0- . 0123456789 0- . ┆
0x14040…14060 84 85 cd ce cf 81 d1 87 d3 d4 d5 80 d7 18 d9 1a db dc dd de 30 e0 8e e2 e3 e4 e5 8a e7 e8 e9 ea ┆ 0 ┆
0x14060…14080 8c 8d ed ee ef 89 f1 8f f3 f4 f5 88 f7 f8 f9 fa fb fc fd fe 7f 00 01 02 03 04 05 06 07 08 09 0a ┆ ┆
0x14080…140a0 0b 0c 0d 0e 0f 10 11 12 13 14 15 16 17 18 19 1a 1b 1c 1d 1e 1f 20 21 22 23 24 25 26 27 28 29 2a ┆ !"#$%&'()*┆
0x140a0…140c0 2b 2c 2d 2e 2f 30 31 32 33 34 35 36 37 38 39 3a 3b 3c 3d 3e 3f 0a 41 42 43 44 45 46 47 48 49 4a ┆+,-./0123456789:;<=>? ABCDEFGHIJ┆
0x140c0…140e0 4b 4c 4d 4e 4f 50 51 52 53 54 55 56 57 58 59 5a 06 0e 5d 00 5f 1a 61 62 63 64 65 66 67 68 69 6a ┆KLMNOPQRSTUVWXYZ Å _ abcdefghij┆
0x140e0…14100 6b 6c 6d 6e 6f 70 71 72 73 74 75 76 77 78 79 7a 60 7e 7d 40 7f 00 01 02 03 04 05 06 07 08 09 0a ┆klmnopqrstuvwxyz`üå@ ┆
0x14100…14120 0b 0c 0d 0e 0f 10 11 12 13 14 15 16 17 18 19 1a 1b 1c 1d 1e 1f 20 21 22 23 24 25 26 2f 28 29 2a ┆ !"#$%&/()*┆
0x14120…14140 5e 2c 2b 2e 2d 30 31 32 33 34 35 36 37 38 39 27 7e 3b 3f 3a 5f 3c 41 42 43 44 45 46 47 48 49 4a ┆^,+.-0123456789'ü;?:_<ABCDEFGHIJ┆
0x14140…14160 4b 4c 4d 4e 4f 50 51 52 53 54 55 56 57 58 59 5a 5c 5b 5d 60 3d 3e 61 62 63 64 65 66 67 68 69 6a ┆KLMNOPQRSTUVWXYZØÆÅ`=>abcdefghij┆
0x14160…14180 6b 6c 6d 6e 6f 70 71 72 73 74 75 76 77 78 79 7a 7c 7b 7d 40 7f 80 01 82 03 04 05 86 87 08 09 0a ┆klmnopqrstuvwxyzøæå@ ┆
0x14180…141a0 0b 0c 0d 0e 8f 10 91 92 93 14 15 96 97 18 19 1a 1b 1c 9d 1e 9f 20 31 32 33 34 35 36 37 38 39 aa ┆ 123456789 ┆
0x141a0…141c0 30 2d ad 2e 8b 30 31 32 33 34 35 36 37 38 39 ba 30 2d bd 2e 83 12 86 c2 c3 c4 05 82 c7 08 c9 0a ┆0- . 0123456789 0- . ┆
0x141c0…141e0 84 85 cd ce cf 81 d1 87 d3 d4 d5 80 d7 18 d9 1a db dc dd de 30 e0 8e e2 e3 e4 e5 8a e7 e8 e9 ea ┆ 0 ┆
0x141e0…14200 8c 8d ed ee ef 89 f1 8f f3 f4 f5 88 f7 f8 f9 fa fb fc fd fe 7f 00 01 02 03 04 05 06 07 08 09 0a ┆ ┆
0x14200…14220 (9, 0, 6) e5 08 cd 68 0a 08 37 cd 71 0a 3d 20 f9 d9 7c d9 a4 d9 67 7b d9 a3 d9 5f 7a d9 a2 d9 57 79 d9 a1 ┆ h 7 q = ø gæ _z Wy ┆
0x14220…14240 d9 4f 78 d9 a0 d9 47 c3 71 09 d9 c5 d5 e5 d9 cd a2 0e d9 cd f3 0a d9 cd 77 09 18 eb 7d b7 c8 cb ┆ Ox G q w å ┆
0x14240…14260 78 3e 05 c2 43 1d cd a2 0e 7d c6 80 cb 2f c6 80 6f d6 14 f5 d9 c5 d5 e5 cd eb 09 cd 03 09 2d c5 ┆x> C å / o - ┆
0x14260…14280 d5 e5 cd 77 09 7d e1 d1 c1 d9 e1 d1 c1 e3 bc e3 30 e3 f1 d9 c9 d9 cd 84 0e 2d cd 77 09 d9 cd 84 ┆ w å 0 - w ┆
0x14280…142a0 0e 2c d9 7d fe 6c d8 c5 cb b8 cd d5 0a c1 38 09 cd eb 09 cd 2a 0b cd 8d 09 cb 78 28 03 cd 03 09 ┆ , å l 8 * x( ┆
0x142a0…142c0 d9 2d d9 cd d5 0a f5 38 03 cd 77 09 d9 2d d9 cd d5 0a 38 05 d9 2c cd 77 09 7d fe 6c 38 3b d9 01 ┆ - 8 w - 8 , w å l8; ┆
0x142c0…142e0 aa 2a 11 aa aa 21 7f aa cd 8d 09 dd e5 dd 21 fd 0b 3e 05 cd 2a 0e dd e1 cd a2 0e cd 8d 09 cd 8d ┆ * ! ! > * ┆
0x142e0…14300 09 c5 d5 e5 d9 cd a2 0e 2d 2d d9 2d cd 03 09 d9 e1 d1 c1 d9 cd 77 09 2c 2c f1 2c 2d c8 d8 78 ee ┆ -- - w ,, ,- x ┆
0x14300…14320 80 47 c9 67 aa 3f 2b 32 d7 6e b6 2a 1d ef 38 74 0d d0 00 0d d0 7a 88 88 88 88 08 7e ab aa aa aa ┆ G g ?+2 n * 8t z ü ┆
0x14320…14340 aa 2c 2d 3e 06 ca 43 1d cb 78 c2 43 1d d9 cd 8e 0e d9 7d 2e 81 95 f5 cd eb 09 d9 cd 7c 0e d9 cd ┆ ,-> C x C å. ø ┆
0x14340…14360 77 09 c5 d5 e5 d9 2c cd 03 09 d9 e1 d1 c1 cd eb 09 dd e5 dd 21 82 0c 3e 06 cd 2a 0e dd e1 2c d9 ┆w , ! > * , ┆
0x14360…14380 cd 98 0e 2d d9 cd 03 09 f1 c5 d5 e5 6f 26 00 30 01 25 cd fe 0e d9 2c cd 8d 09 d9 e1 d1 c1 cd 03 ┆ - o& 0 % , ┆
0x14380…143a0 09 7d fe 67 da 68 0a c9 7d 8a 9d d8 89 1d 7d e9 a2 8b 2e 3a 7d 8e e3 38 8e 63 7e 49 92 24 49 12 ┆ å g h å å .:å 8 cüI $I ┆
0x143a0…143c0 7e cd cc cc cc 4c 7f ab aa aa aa 2a d9 cd 98 0e d9 b7 cb 78 f5 cb b8 cd eb 09 7d fe 88 30 47 c5 ┆ü L * x å 0G ┆
0x143c0…143e0 d5 e5 2c cd c6 0e e5 cb 3c cb 1d 7d e1 f5 cd fe 0e 2c 2d 28 01 2d d9 f1 e1 d1 c1 f5 cd 77 09 dd ┆ , < å ,-( - w ┆
0x143e0…14400 e5 dd 21 06 0d 3e 08 cd 3f 0e dd e1 f1 30 0a f5 d9 cd 8e 0e d9 cd 8d 09 f1 85 6f 38 09 f1 c8 d9 ┆ ! > ? 0 o8 ┆
0x14400…14420 (9, 0, 7) 0b 0c 0d 0e 0f 10 11 12 13 14 15 16 17 18 19 1a 1b 1c 1d 1e 1f 20 21 22 23 24 25 26 27 28 29 2a ┆ !"#$%&'()*┆
0x14420…14440 2b 2c 2d 2e 2f 30 31 32 33 34 35 36 37 38 39 3a 3b 3c 3d 3e 3f 13 41 42 43 44 45 46 47 48 49 4a ┆+,-./0123456789:;<=>? ABCDEFGHIJ┆
0x14440…14460 4b 4c 4d 4e 4f 50 51 52 53 54 55 56 57 58 59 5a 06 0e 00 5e 5f 16 61 62 63 64 65 66 67 68 69 6a ┆KLMNOPQRSTUVWXYZ ^_ abcdefghij┆
0x14460…14480 6b 6c 6d 6e 6f 70 71 72 73 74 75 76 77 78 79 7a 60 7e 40 11 7f 00 01 02 03 04 05 06 07 08 09 0a ┆klmnopqrstuvwxyz`ü@ ┆
0x14480…144a0 0b 0c 0d 0e 0f 10 11 12 13 14 15 16 17 18 1a 19 1b 1c 1d 1e 1f 20 21 22 40 24 25 26 2f 28 29 5e ┆ !"@$%&/()^┆
0x144a0…144c0 2a 2c 7e 2e 2d 30 31 32 33 34 35 36 37 38 39 23 2b 3b 3f 3a 5f 3c 41 42 43 44 45 46 47 48 49 4a ┆*,ü.-0123456789#+;?:_<ABCDEFGHIJ┆
0x144c0…144e0 4b 4c 4d 4e 4f 50 51 52 53 54 55 56 57 58 5a 59 5c 5b 5d 27 3d 3e 61 62 63 64 65 66 67 68 69 6a ┆KLMNOPQRSTUVWXZYØÆÅ'=>abcdefghij┆
0x144e0…14500 6b 6c 6d 6e 6f 70 71 72 73 74 75 76 77 78 7a 79 7c 7b 7d 60 7f 80 01 82 03 04 05 86 87 08 09 0a ┆klmnopqrstuvwxzyøæå` ┆
0x14500…14520 0b 0c 0d 0e 8f 10 91 92 93 14 15 96 97 18 19 1a 1b 9c 9d 1e 9f 20 31 32 33 34 35 36 37 38 39 aa ┆ 123456789 ┆
0x14520…14540 30 2d ad 2e 8b 30 31 32 33 34 35 36 37 38 39 ba 30 2d bd 2e 83 12 86 c2 c3 c4 05 82 c7 08 c9 0a ┆0- . 0123456789 0- . ┆
0x14540…14560 84 85 cd ce cf 81 d1 87 d3 d4 d5 80 d7 18 d9 1a db dc dd de 30 e0 8e e2 e3 e4 e5 8a e7 e8 e9 ea ┆ 0 ┆
0x14560…14580 8c 8d ed ee ef 89 f1 8f f3 f4 f5 88 f7 f8 f9 fa fb fc fd fe 7f 00 01 02 03 04 05 06 07 08 09 0a ┆ ┆
0x14580…145a0 0b 0c 0d 0e 0f 10 11 12 13 14 15 16 17 18 19 1a 1b 1c 1d 1e 1f 20 21 22 03 24 25 26 27 28 29 2a ┆ !" $%&'()*┆
0x145a0…145c0 2b 2c 2d 2e 2f 30 31 32 33 34 35 36 37 38 39 3a 3b 3c 3d 3e 3f 05 41 42 43 44 45 46 47 48 49 4a ┆+,-./0123456789:;<=>? ABCDEFGHIJ┆
0x145c0…145e0 4b 4c 4d 4e 4f 50 51 52 53 54 55 56 57 58 59 5a 0b 0c 0d 5e 5f 16 61 62 63 64 65 66 67 68 69 6a ┆KLMNOPQRSTUVWXYZ ^_ abcdefghij┆
0x145e0…14600 6b 6c 6d 6e 6f 70 71 72 73 74 75 76 77 78 79 7a 1b 1c 1d 0f 7f 00 01 02 03 04 05 06 07 08 09 0a ┆klmnopqrstuvwxyz ┆
0x14600…14620 (9, 0, 8) cd 7c 0e c3 eb 09 e1 3e 03 c3 43 1d 6d 2e 1d 11 60 31 70 46 2c fe e5 7f 74 36 7c 89 84 21 77 53 ┆ ø > C m. `1pF, t6ø !wS┆
0x14620…14640 3c ff c3 2e 7a d2 7d 5b 95 1d 7c 25 b8 46 58 63 7e 16 fc ef fd 75 80 d2 f7 17 72 31 7d b7 c8 dd ┆< .z åÆ ø% FXcü u r1å ┆
0x14640…14660 e5 d9 cd 7c 0e d9 af cb 78 28 03 3c cb b8 f5 cd d5 0a 38 08 d9 cd eb 09 f1 cb ff f5 d9 01 cf 06 ┆ ø x( < 8 ┆
0x14660…14680 11 8e e9 21 7e 4a d9 cd d5 0a 30 05 cd 24 0e 18 4f dd 21 c4 0d 3e 02 08 d9 11 12 00 dd 19 cd 69 ┆ !üJ 0 $ O ! > i┆
0x14680…146a0 0e d9 cd d5 0a 38 0b 08 3d 20 ec d9 11 0c 00 dd 19 d9 d9 cd 64 0e cb f8 cd 03 09 c5 d5 e5 cd 69 ┆ 8 = d i┆
0x146a0…146c0 0e cd 8d 09 d9 cd 7c 0e cd 03 09 d9 e1 d1 c1 cd eb 09 dd e5 cd 24 0e dd e1 d9 cd 64 0e cd 03 09 ┆ ø $ d ┆
0x146c0…146e0 f1 17 30 0a f5 d9 cd 84 0e 2d cd 77 09 f1 dd e1 cb 4f c8 cb f8 c9 7f e7 cf cc 13 54 7f f6 f4 a2 ┆ 0 - w O T ┆
0x146e0…14700 30 09 7f 6a c1 91 0a 06 80 b5 9e 8a 6f 44 80 82 2c 3a cd 13 80 6a c1 91 0a 06 81 00 00 00 00 00 ┆0 j oD ,: j ┆
0x14700…14720 80 21 a2 da 0f 49 7d e8 a2 8b 2e ba 7d 8e e3 38 8e 63 7e 49 92 24 49 92 7e cd cc cc cc 4c 7f ab ┆ ! Iå . å 8 cüI $I ü L ┆
0x14720…14740 aa aa aa aa dd 21 00 0e 3e 05 c5 d5 e5 f5 cd a2 0e cd 8d 09 f1 cd 3f 0e d9 e1 d1 c1 c3 8d 09 f5 ┆ ! > ? ┆
0x14740…14760 d9 cd 64 0e 18 10 f5 d9 c5 d5 e5 cd 64 0e cd 03 09 d9 e1 d1 c1 d9 cd 8d 09 f1 3d 20 e9 d9 cd 7c ┆ d d = ø┆
0x14760…14780 0e c3 03 09 11 06 00 dd 19 dd 6e 00 dd 66 01 dd 5e 02 dd 56 03 dd 4e 04 dd 46 05 c9 21 81 00 44 ┆ n f ^ V N F ! D┆
0x14780…147a0 4c 54 5c c9 01 0f 49 11 a2 da 21 82 21 c9 01 04 35 11 33 f3 21 81 fa c9 01 72 31 11 f7 17 21 80 ┆LTØ I ! ! 5 3 ! r1 ! ┆
0x147a0…147c0 d2 c9 c5 d5 e5 d9 e1 d1 c1 c9 cd 88 06 21 80 00 3e 20 cb 78 20 0d cb 23 cb 12 cb 11 cb 10 2d 3d ┆ ! > x # -=┆
0x147c0…147e0 20 f0 6f cb b8 c9 cb 78 d9 cd 7c 0e 28 02 cb f8 2d cd 03 09 b7 cb 7d 28 1c cb 78 08 cb f8 3e 8f ┆ o x ø ( - å( x > ┆
0x147e0…14800 bd 38 16 28 06 cd 70 0a 2c 18 f3 cd 70 0a 08 60 69 c8 c3 79 06 21 00 00 c9 3e 07 c3 43 1d 7c b5 ┆ 8 ( p , p `i y ! > C ø ┆
0x14800…14820 (9, 0, 9) 0b 0c 0d 0e 0f 10 11 12 13 14 15 16 17 18 19 1a 1b 1c 1d 1e 1f 20 21 22 23 24 25 26 27 28 29 2a ┆ !"#$%&'()*┆
0x14820…14840 2b 2c 2d 2e 2f 30 31 32 33 34 35 36 37 38 39 3a 3b 3c 3d 3e 3f 40 41 42 43 44 45 46 47 48 49 4a ┆+,-./0123456789:;<=>?@ABCDEFGHIJ┆
0x14840…14860 4b 4c 4d 4e 4f 50 51 52 53 54 55 56 57 58 59 5a 5b 5c 5d 5e 5f 60 61 62 63 64 65 66 67 68 69 6a ┆KLMNOPQRSTUVWXYZÆØÅ^_`abcdefghij┆
0x14860…14880 6b 6c 6d 6e 6f 70 71 72 73 74 75 76 77 78 79 7a 7b 7c 7d 7e 7f 80 01 82 03 04 05 86 87 08 09 0a ┆klmnopqrstuvwxyzæøåü ┆
0x14880…148a0 0b 0c 0d 0e 8f 10 91 92 93 14 15 96 97 18 19 1a 1b 1c 9d 1d 9f 20 31 32 33 34 35 36 37 38 39 aa ┆ 123456789 ┆
0x148a0…148c0 30 2d ad 2e 8b 30 31 32 33 34 35 36 37 38 39 ba 30 2d bd 2e 83 12 86 c2 c3 c4 05 82 c7 08 c9 0a ┆0- . 0123456789 0- . ┆
0x148c0…148e0 84 85 cd ce cf 81 d1 87 d3 d4 d5 80 d7 18 d9 1a db dc dd de 30 e0 8e e2 e3 e4 e5 8a e7 e8 e9 ea ┆ 0 ┆
0x148e0…14900 8c 8d ed ee ef 89 f1 8f f3 f4 f5 88 f7 f8 f9 fa fb fc fd fe 7f 00 01 02 03 04 05 06 07 08 09 0a ┆ ┆
0x14900…14920 0b 0c 0d 0e 0f 10 11 12 13 14 15 16 17 18 19 1a 1b 1c 1d 1e 1f 20 21 22 23 24 25 26 27 28 29 2a ┆ !"#$%&'()*┆
0x14920…14940 2b 2c 2d 2e 2f 30 31 32 33 34 35 36 37 38 39 3a 3b 3c 3d 3e 3f 05 41 42 43 44 45 46 47 48 49 4a ┆+,-./0123456789:;<=>? ABCDEFGHIJ┆
0x14940…14960 4b 4c 4d 4e 4f 50 51 52 53 54 55 56 57 58 59 5a 0b 0c 0d 5e 5f 16 61 62 63 64 65 66 67 68 69 6a ┆KLMNOPQRSTUVWXYZ ^_ abcdefghij┆
0x14960…14980 6b 6c 6d 6e 6f 70 71 72 73 74 75 76 77 78 79 7a 1b 1c 1d 0f 7f 00 01 02 03 04 05 06 07 08 09 0a ┆klmnopqrstuvwxyz ┆
0x14980…149a0 0b 0c 0d 0e 0f 10 11 12 13 14 15 16 17 18 19 1a 1b 1c 1d 1e 1f 20 21 22 23 24 25 26 27 28 29 2a ┆ !"#$%&'()*┆
0x149a0…149c0 2b 2c 2d 2e 2f 30 31 32 33 34 35 36 37 38 39 3a 3b 3c 3d 3e 3f 40 41 42 43 44 45 46 47 48 49 4a ┆+,-./0123456789:;<=>?@ABCDEFGHIJ┆
0x149c0…149e0 4b 4c 4d 4e 4f 50 51 52 53 54 55 56 57 58 59 5a 5b 5c 5d 5e 5f 60 61 62 63 64 65 66 67 68 69 6a ┆KLMNOPQRSTUVWXYZÆØÅ^_`abcdefghij┆
0x149e0…14a00 6b 6c 6d 6e 6f 70 71 72 73 74 75 76 77 78 79 7a 7b 7c 7d 7e 7f 80 01 82 03 04 05 86 87 08 09 0a ┆klmnopqrstuvwxyzæøåü ┆
0x14a00…14a20 (9, 1, 1) ca 68 0a cb 7c 08 cd 76 06 3e 90 29 3d cb 7c 28 fa 44 4d 11 00 00 62 6f 08 c0 cb b8 c9 cd e1 03 ┆ h ø v > )= ø( DM bo ┆
0x14a20…14a40 eb 1e 00 38 04 fe 19 38 18 1d cd e1 03 d9 cb 78 d9 16 07 28 01 14 92 30 01 af fe 09 38 02 3e 09 ┆ 8 8 x ( 0 8 > ┆
0x14a40…14a60 3c 57 d5 d9 fd 21 5d 00 dd e5 cd e1 0f dd e1 d1 4f 7a 3c cb 7b 20 10 81 f2 61 0f fd 36 00 00 18 ┆<W !Å Oz< æ a 6 ┆
0x14a60…14a80 0b fe 0c 38 02 3e 0b d5 cd 76 10 d1 cb 78 28 05 3e 2d cd db 0f cb 7b 28 03 61 0e 00 cb 79 28 05 ┆ 8 > v x( >- æ( a y( ┆
0x14a80…14aa0 cd d9 0f 18 07 cd cf 0f 0d f2 85 0f 7a b7 28 17 3e 2e cd db 0f 0c 28 06 cd d9 0f 15 20 f7 15 fa ┆ z ( >. ( ┆
0x14aa0…14ac0 a7 0f cd cf 0f 18 f7 cb 7b c8 3e 45 cd db 0f 3e 2b cb 7c 28 06 7c ed 44 67 3e 2d cd db 0f 7c 06 ┆ æ >E >+ ø( ø Dg>- ø ┆
0x14ac0…14ae0 2f 04 d6 0a 30 fb c6 3a dd 70 00 dd 23 18 0c fd 7e 00 fd 23 b7 20 04 fd 2b 3e 30 dd 77 00 dd 23 ┆/ 0 : p # ü # +>0 w #┆
0x14ae0…14b00 c9 fd e5 2c 2d 20 0e 06 0c fd 36 00 30 fd 23 10 f8 af c3 73 10 c5 cb b8 7d d9 d6 80 6f 9f 67 11 ┆ ,- 6 0 # s å o g ┆
0x14b00…14b20 4d 00 cd f0 05 11 05 00 19 7c fe d9 20 01 3c fd 77 00 ed 44 cd 3b 11 7d fe 81 30 06 cd ae 11 fd ┆M ø < w D ; å 0 ┆
0x14b20…14b40 35 00 cb f8 3e 84 95 2e 00 28 08 cd 70 0a cb 1d 3d 20 f8 fd 7e 00 f5 3e 0c 08 78 1f 1f 1f 1f e6 ┆5 > . ( p = ü > x ┆
0x14b40…14b60 0f c6 30 fd 77 00 fd 23 78 e6 0f 47 c5 d5 e5 cb 25 cd 7d 0a cb 25 cd 7d 0a eb e3 19 d1 e3 ed 5a ┆ 0 w #x G % å % å Z┆
0x14b60…14b80 eb e1 e3 ed 4a 44 4d e1 cb 25 cd 7d 0a 08 3d 20 c8 f1 c1 fd e1 c9 fd e5 e1 5f 16 00 19 7e 36 00 ┆ JDM % å = _ ü6 ┆
0x14b80…14ba0 fe 35 d8 1d fa 92 10 2b 7e 3c 77 fe 3a d8 36 00 18 f1 36 31 23 36 00 0c c9 d9 01 00 00 d9 cd 68 ┆ 5 +ü<w : 6 61#6 h┆
0x14ba0…14bc0 0a dd 7e 00 cd 3c 03 fe 2e 20 0c d9 cb 70 37 c0 cb f0 d9 dd 23 18 ea fe 45 28 21 cd 2f 11 30 54 ┆ ü < . p7 # E(! / 0T┆
0x14bc0…14be0 08 cd ae 11 d8 08 d9 c5 6f 26 00 cd fe 0e cd df 08 d9 c1 d8 cb 70 28 01 0d d9 18 d7 cd 14 11 d8 ┆ o& p( ┆
0x14be0…14c00 d9 cb e0 dd 23 dd 7e 00 fe 2b 28 06 fe 2d 20 04 cb e8 dd 23 cd 2c 11 3f d8 4f dd 23 cd 2c 11 30 ┆ # ü +( - # , ? O # , 0┆
0x14c00…14c20 (9, 1, 2) 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 ┆ ┆
0x14c20…14c40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 c3 00 00 c3 34 19 cd c3 22 e1 22 85 19 e1 22 87 19 cd ┆ 4 " " " ┆
0x14c40…14c60 c9 22 2a 85 19 e5 21 01 00 7d 2f 6f 7c 2f 67 23 e5 cd ae 25 f1 d2 6a 19 21 9b 17 11 3b 00 19 16 ┆ "* ! å/oø/g# % j ! ; ┆
0x14c60…14c80 00 5e eb 7d 32 81 19 c3 79 19 2a 87 19 11 3b 00 19 16 00 5e eb 7d 32 81 19 3a 81 19 26 00 6f e3 ┆ ^ å2 y * ; ^ å2 : & o ┆
0x14c80…14ca0 e9 00 00 00 00 00 00 00 00 c3 00 00 c3 8f 19 cd c3 22 e1 7d 32 d0 19 cd c9 22 21 8c 22 5e 23 56 ┆ " å2 "! "^#V┆
0x14ca0…14cc0 eb 11 c2 00 19 eb 21 00 00 19 e5 3a d0 19 26 00 6f eb e1 73 21 8c 22 5e 23 56 d5 21 8c 22 5e 23 ┆ ! : & o s! "^#V ! "^#┆
0x14cc0…14ce0 56 eb 11 34 00 19 5e 23 56 d5 cd 97 1d c9 00 00 00 00 c3 00 00 c3 61 1a c3 db 19 cd c3 22 e1 22 ┆V 4 ^#V a " "┆
0x14ce0…14d00 d0 1b e1 22 d2 1b cd c9 22 21 00 00 7d 32 cc 1b 21 01 00 e5 3a c7 1b 26 00 6f e5 d1 e1 2b 22 d4 ┆ " "! å2 ! : & o +" ┆
0x14d00…14d20 1b 23 e5 d5 cd 92 22 22 d6 1b 2a d4 1b 23 22 d4 1b 2a d6 1b 2b 22 d6 1b 7c b5 ca 52 1a 21 d2 1b ┆ # "" * #" * +" ø R ! ┆
0x14d20…14d40 5e 23 56 d5 21 d0 1b 5e 23 56 eb d1 01 01 00 cd 4d 24 f1 d2 39 1a c3 59 1a 2a d2 1b eb 21 01 00 ┆^#V ! ^#V M$ 9 Y * ! ┆
0x14d40…14d60 19 22 d2 1b 2a d0 1b eb 21 01 00 19 22 d0 1b c3 0a 1a 21 01 00 7d 32 cc 1b 3a cc 1b 26 00 6f e3 ┆ " * ! " ! å2 : & o ┆
0x14d60…14d80 e9 cd c3 22 e1 22 70 1b 21 72 1b e3 e5 21 51 00 e5 cd 57 26 cd c9 22 21 00 00 7d 32 ca 1b 21 72 ┆ " "p !r !Q W& "! å2 !r┆
0x14d80…14da0 1b eb 21 01 00 19 16 00 5e eb 7d 32 c4 1b 2a 70 1b 16 00 5e eb 7d 32 c6 1b 21 01 00 7d 32 c8 1b ┆ ! ^ å2 *p ^ å2 ! å2 ┆
0x14da0…14dc0 21 72 1b 16 00 5e eb 7d 32 c7 1b 3a c8 1b 26 00 6f e5 3a c6 1b 26 00 6f e5 cd 0d 26 3a ca 1b 26 ┆!r ^ å2 : & o : & o &: &┆
0x14dc0…14de0 00 6f 7d 2f 6f d1 7d a3 1f d2 42 1b 3a c4 1b 26 00 6f e5 2a 70 1b e5 3a c8 1b 26 00 6f d1 19 16 ┆ oå/o å B : & o *p : & o ┆
0x14de0…14e00 00 5e d5 cd ae 25 3a c6 1b 26 00 6f e5 3a c8 1b 26 00 6f d1 7b 95 6f 7a 9c 67 eb 21 01 00 19 e5 ┆ ^ %: & o : & o æ oz g ! ┆
0x14e00…14e20 (9, 1, 3) 22 6f 12 2a 53 12 e5 2a 69 12 e5 cd 0d 26 f1 d2 34 12 2a 6b 12 5e 23 56 d5 21 97 07 23 23 23 23 ┆"o *S *i & 4 *k ^#V ! ####┆
0x14e20…14e40 5e 23 56 d5 cd e1 25 f1 d2 5a 11 2a 6d 12 e5 2a 6d 12 5e 23 56 eb 23 eb e1 73 23 72 21 0a 00 e5 ┆^#V % Z *m *m ^#V # s#r! ┆
0x14e40…14e60 2a 6d 12 5e 23 56 d5 cd 5e 16 e1 22 6f 12 2a 6b 12 e5 21 00 00 eb e1 73 23 72 21 0b 00 e5 2a 6b ┆*m ^#V ^ "o *k ! s#r! *k┆
0x14e60…14e80 12 5e 23 56 d5 cd 5e 16 e1 22 6f 12 21 0c 00 e5 2a 55 12 e5 cd 5e 16 e1 22 6f 12 21 0e 00 e5 21 ┆ ^#V ^ "o ! *U ^ "o ! !┆
0x14e80…14ea0 02 00 e5 cd 5e 16 e1 26 00 7d 32 57 12 3a 57 12 26 00 6f e5 21 00 00 e5 cd f6 25 f1 d2 0f 12 21 ┆ ^ & å2W :W & o ! % !┆
0x14ea0…14ec0 5e 18 e5 cd 31 26 cd ca 11 20 20 42 41 44 20 53 45 43 54 4f 52 20 4f 4e 20 44 45 53 54 49 4e 41 ┆^ 1& BAD SECTOR ON DESTINA┆
0x14ec0…14ee0 54 49 4f 4e 20 44 49 53 4b 20 cd 37 26 cd b4 26 21 b5 07 e5 21 9b 17 e5 cd 31 26 cd 93 24 21 ff ┆TION DISK 7& &! ! 1& $! ┆
0x14ee0…14f00 ff e5 21 ff ff e5 cd 31 19 e1 7d 2f 1f d2 fa 11 21 5e 18 e5 cd 31 26 cd a3 24 21 b5 07 16 00 5e ┆ ! 1 å/ !^ 1& $! ^┆
0x14f00…14f20 d5 21 03 00 e5 cd ae 25 f1 d2 0f 12 cd 13 01 2a 6b 12 e5 2a 6b 12 5e 23 56 eb 23 eb e1 73 23 72 ┆ ! % *k *k ^#V # s#r┆
0x14f20…14f40 2a 53 12 23 22 53 12 2a 55 12 11 80 00 19 22 55 12 c3 03 11 21 0b 00 e5 21 04 00 e5 cd 5e 16 e1 ┆*S #"S *U "U ! ! ^ ┆
0x14f40…14f60 22 6f 12 21 0d 00 e5 21 00 00 e5 cd 5e 16 e1 22 6f 12 c9 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆"o ! ! ^ "o ┆
0x14f60…14f80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 c3 00 00 c3 7e 12 c3 27 13 cd c3 ┆ ü ' ┆
0x14f80…14fa0 22 e1 22 37 15 e1 22 39 15 cd c9 22 2a 37 15 e5 2a 39 15 23 23 e5 2a 39 15 e5 21 3d 15 e5 2a 39 ┆" "7 "9 "*7 *9 ## *9 != *9┆
0x14fa0…14fc0 15 23 23 23 23 e5 21 3b 15 e5 cd 4a 15 e1 7d 2f 1f d2 e1 12 21 5e 18 e5 cd 31 26 cd d5 12 16 20 ┆ #### !; J å/ !^ 1& ┆
0x14fc0…14fe0 20 44 49 53 4b 20 50 41 52 41 4d 45 54 45 52 20 45 52 52 4f 52 cd 37 26 cd b4 26 cd a3 24 cd 13 ┆ DISK PARAMETER ERROR 7& & $ ┆
0x14fe0…15000 01 2a 39 15 e5 2a 39 15 5e 23 56 d5 2a 39 15 23 23 5e 23 56 eb d1 19 2b eb e1 73 23 72 2a 39 15 ┆ *9 *9 ^#V *9 ##^#V + s#r*9 ┆
0x15000…15020 (9, 1, 4) 3a c7 1b 26 00 6f e5 cd c5 25 e1 d1 7d a3 1f d2 30 1b 2a 70 1b e5 3a c8 1b 26 00 6f d1 19 e5 21 ┆: & o % å 0 *p : & o !┆
0x15020…15040 72 1b eb 21 01 00 19 e5 cd d8 19 e1 7d 32 ca 1b 3a c8 1b 26 00 6f eb 21 01 00 19 7d 32 c8 1b c3 ┆r ! å2 : & o ! å2 ┆
0x15040…15060 ab 1a 3a ca 1b 26 00 1f d2 61 1b 3a c8 1b 26 00 6f eb 21 01 00 7b 95 6f 7a 9c 67 22 6c 1b c3 67 ┆ : & a : & o ! æ oz g"l g┆
0x15060…15080 1b 21 00 00 22 6c 1b 2a 6c 1b e3 e9 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ! "l *l ┆
0x15080…150a0 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…]
0x150c0…150e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 c3 00 00 c3 de 1b 21 8c ┆ ! ┆
0x150e0…15100 22 5e 23 56 eb 11 38 00 19 16 00 5e d5 21 03 00 e5 cd e1 25 f1 d2 2c 1c 21 8c 22 5e 23 56 d5 21 ┆"^#V 8 ^ ! % , ! "^#V !┆
0x15100…15120 8c 22 5e 23 56 eb 11 34 00 19 5e 23 56 d5 cd 6e 1c 21 8c 22 5e 23 56 eb 11 c2 00 19 eb 21 00 00 ┆ "^#V 4 ^#V n ! "^#V ! ┆
0x15120…15140 19 16 00 5e eb 7d 32 67 1c c3 5d 1c 21 8c 22 5e 23 56 eb 11 c2 00 19 eb 21 00 00 19 16 00 5e eb ┆ ^ å2g Å ! "^#V ! ^ ┆
0x15140…15160 7d 32 67 1c 21 8c 22 5e 23 56 d5 21 8c 22 5e 23 56 eb 11 34 00 19 5e 23 56 d5 cd 6e 1c 3a 67 1c ┆å2g ! "^#V ! "^#V 4 ^#V n :g ┆
0x15160…15180 26 00 6f e3 e9 00 00 00 00 00 00 c3 00 00 c3 71 1c cd c3 22 e1 22 8e 1d e1 22 90 1d cd c9 22 2a ┆& o q " " " "*┆
0x15180…151a0 90 1d 11 3b 00 19 e5 21 00 00 eb e1 73 21 8c 22 e5 2a 90 1d eb e1 73 23 72 2a 90 1d 11 3c 00 19 ┆ ; ! s! " * s#r* < ┆
0x151a0…151c0 7e 1f d2 b6 1c 2a 90 1d 11 3b 00 19 e5 21 01 00 eb e1 73 c3 8d 1d cd bf 1d 2a 90 1d 11 40 00 19 ┆ü * ; ! s * @ ┆
0x151c0…151e0 7e 1f d2 8d 1d 2a 90 1d 11 3c 00 19 e5 2a 90 1d 11 c2 00 19 eb 21 00 00 19 16 00 5e d5 21 1a 00 ┆ü * < * ! ^ ! ┆
0x151e0…15200 e5 cd ae 25 2a 90 1d 11 3c 00 19 16 00 5e eb d1 7d b3 6f eb e1 73 2a 90 1d 11 c2 00 19 eb 21 00 ┆ %* < ^ å o s* ! ┆
0x15200…15220 (9, 1, 5) 23 23 23 23 e5 2a 39 15 23 23 23 23 5e 23 56 eb 2b eb e1 73 23 72 2a 39 15 11 06 00 19 e5 21 00 ┆#### *9 ####^#V + s#r*9 ! ┆
0x15220…15240 00 eb e1 73 23 72 c9 21 23 15 e5 21 a1 07 e5 21 0a 00 e5 cd 2b 28 21 a1 07 e5 21 97 07 e5 21 0a ┆ s#r !# ! ! +(! ! ! ┆
0x15240…15260 00 e5 cd 2b 28 21 a1 07 22 43 15 2a 43 15 11 06 00 19 e5 21 00 00 eb e1 73 23 72 2a 43 15 23 23 ┆ +(! "C *C ! s#r*C ##┆
0x15260…15280 e5 21 02 00 eb e1 73 23 72 21 09 00 e5 2a 43 15 11 08 00 19 5e 23 56 d5 cd 5e 16 e1 22 41 15 21 ┆ ! s#r! *C ^#V ^ "A !┆
0x15280…152a0 0c 00 e5 21 e2 28 5e 23 56 d5 cd 5e 16 e1 22 41 15 21 01 00 e5 21 ab 07 5e 23 56 d5 21 ad 07 5e ┆ ! (^#V ^ "A ! ! ^#V ! ^┆
0x152a0…152c0 23 56 eb 2b e5 cd be 28 d1 e1 2b e5 d5 22 3f 15 d1 e1 23 e5 d5 cd 92 22 22 45 15 2a 3f 15 23 22 ┆#V + ( + "? # ""E *? #"┆
0x152c0…152e0 3f 15 2a 45 15 2b 22 45 15 7c b5 ca 02 15 21 0a 00 e5 2a 43 15 23 23 5e 23 56 d5 cd 5e 16 e1 22 ┆? *E +"E ø ! *C ##^#V ^ "┆
0x152e0…15300 41 15 21 0b 00 e5 2a 43 15 11 06 00 19 5e 23 56 d5 cd 5e 16 e1 22 41 15 21 0d 00 e5 21 00 00 e5 ┆A ! *C ^#V ^ "A ! ! ┆
0x15300…15320 cd 5e 16 e1 26 00 7d 32 21 15 3a 21 15 26 00 6f e5 21 00 00 e5 cd f6 25 f1 d2 8b 14 21 5e 18 e5 ┆ ^ & å2! :! & o ! % !^ ┆
0x15320…15340 cd 31 26 cd 3a 14 13 20 20 42 41 44 20 53 45 43 54 4f 52 20 46 4f 55 4e 44 20 cd 37 26 cd b4 26 ┆ 1& : BAD SECTOR FOUND 7& &┆
0x15340…15360 21 b5 07 e5 21 9b 17 e5 cd 31 26 cd 93 24 21 5e 18 e5 cd 31 26 cd a3 24 21 b5 07 16 00 5e d5 21 ┆! ! 1& $!^ 1& $! ^ !┆
0x15360…15380 03 00 e5 cd ae 25 f1 d2 8b 14 21 97 07 e5 21 a1 07 e5 21 0a 00 e5 cd 2b 28 21 a1 07 e5 21 23 15 ┆ % ! ! ! +(! !# ┆
0x15380…153a0 e5 21 0a 00 e5 cd 2b 28 c3 20 15 2a 43 15 11 06 00 19 e5 2a 43 15 11 06 00 19 5e 23 56 eb 23 eb ┆ ! +( *C *C ^#V # ┆
0x153a0…153c0 e1 73 23 72 2a 43 15 23 23 e5 2a 43 15 23 23 5e 23 56 d5 2a 43 15 11 06 00 19 5e 23 56 d5 2a 43 ┆ s#r*C ## *C ##^#V *C ^#V *C┆
0x153c0…153e0 15 23 23 23 23 5e 23 56 eb 23 e5 cd f9 27 e1 d1 19 eb e1 73 23 72 2a 43 15 11 06 00 19 e5 2a 43 ┆ ####^#V # ' s#r*C *C┆
0x153e0…15400 15 11 06 00 19 5e 23 56 d5 2a 43 15 23 23 23 23 5e 23 56 eb 23 e5 cd 05 28 e1 eb e1 73 23 72 c3 ┆ ^#V *C ####^#V # ( s#r ┆
0x15400…15420 (9, 1, 6) 00 19 16 00 5e d5 21 0d 00 e5 cd ae 25 e1 7d 32 92 1d 3a 92 1d 26 00 6f e5 2a 90 1d 11 3c 00 19 ┆ ^ ! % å2 : & o * < ┆
0x15420…15440 16 00 5e eb d1 7d b3 1f d2 39 1d 2a 90 1d 11 3b 00 19 e5 21 01 00 eb e1 73 3a 92 1d 26 00 6f e5 ┆ ^ å 9 * ; ! s: & o ┆
0x15440…15460 2a 90 1d 11 38 00 19 16 00 5e d5 21 02 00 e5 cd ae 25 e1 d1 7d a3 1f d2 5d 1d cd bf 1d 2a 90 1d ┆* 8 ^ ! % å Å * ┆
0x15460…15480 11 3c 00 19 16 00 5e d5 2a 90 1d 11 3b 00 19 16 00 5e eb d1 7d b3 1f d2 8d 1d 2a 90 1d 11 c2 00 ┆ < ^ * ; ^ å * ┆
0x15480…154a0 19 eb 21 00 00 19 e5 21 20 00 eb e1 73 c9 00 00 00 00 00 00 c3 00 00 c3 9a 1d cd c3 22 e1 22 b8 ┆ ! ! s " " ┆
0x154a0…154c0 1d e1 22 ba 1d cd c9 22 21 8c 22 e5 2a ba 1d eb e1 73 23 72 cd 31 20 c9 00 00 00 00 c3 00 00 c3 ┆ " "! " * s#r 1 ┆
0x154c0…154e0 c2 1d 21 8c 22 5e 23 56 eb 11 3d 00 19 e5 21 21 20 e5 21 02 00 e5 cd 24 28 21 8c 22 5e 23 56 eb ┆ ! "^#V = !! ! $(! "^#V ┆
0x154e0…15500 11 38 00 19 16 00 5e d5 21 04 00 e5 cd ae 25 f1 d2 60 1e 2a 21 20 e5 21 01 00 e5 21 00 00 e5 cd ┆ 8 ^ ! % ` *! ! ! ┆
0x15500…15520 cd 24 e1 eb e1 73 2a 21 20 16 00 5e d5 21 0d 00 e5 cd ae 25 f1 d2 2a 1e 21 02 00 e5 21 0a 00 e5 ┆ $ s*! ^ ! % * ! ! ┆
0x15520…15540 cd cd 24 e1 22 23 20 c3 5a 1e 2a 21 20 16 00 5e d5 21 08 00 e5 cd ae 25 f1 d2 5a 1e 21 02 00 e5 ┆ $ "# Z *! ^ ! % Z ! ┆
0x15540…15560 21 20 00 e5 cd cd 24 e1 22 23 20 21 02 00 e5 21 08 00 e5 cd cd 24 e1 22 23 20 c3 20 20 c3 a2 1e ┆! $ "# ! ! $ "# ┆
0x15560…15580 21 8c 22 5e 23 56 eb 11 38 00 19 16 00 5e d5 21 05 00 e5 cd ae 25 f1 d2 a2 1e 2a 21 20 e5 21 06 ┆! "^#V 8 ^ ! % *! ! ┆
0x15580…155a0 00 e5 21 ff 00 e5 cd cd 24 e1 eb e1 73 2a 21 20 16 00 5e d5 21 00 00 e5 cd f6 25 f1 d2 7a 1e c3 ┆ ! $ s*! ^ ! % z ┆
0x155a0…155c0 20 20 21 8c 22 5e 23 56 eb 11 41 00 19 7e 1f d2 c7 1e 21 8c 22 5e 23 56 eb 11 3c 00 19 e5 21 01 ┆ ! "^#V A ü ! "^#V < ! ┆
0x155c0…155e0 00 eb e1 73 c3 20 20 21 01 00 e5 21 8c 22 5e 23 56 eb 11 39 00 19 5e 23 56 d5 d1 e1 2b e5 d5 22 ┆ s ! ! "^#V 9 ^#V + "┆
0x155e0…15600 25 20 d1 e1 23 e5 d5 cd 92 22 22 27 20 2a 25 20 23 22 25 20 2a 27 20 2b 22 27 20 7c b5 ca 09 20 ┆% # ""' *% #"% *' +"' ø ┆
0x15600…15620 (9, 1, 7) bb 13 21 97 07 e5 21 a1 07 e5 21 0a 00 e5 cd 2b 28 21 a1 07 e5 21 23 15 e5 21 0a 00 e5 cd 2b 28 ┆ ! ! ! +(! !# ! +(┆
0x15620…15640 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 00 00 00 00 00 ┆ ┆
0x15640…15660 00 00 00 00 00 00 00 c3 00 00 c3 4d 15 cd c3 22 e1 22 4f 16 e1 22 51 16 e1 22 53 16 e1 22 55 16 ┆ M " "O "Q "S "U ┆
0x15660…15680 e1 22 57 16 e1 7d 32 59 16 cd c9 22 21 09 00 e5 3a 59 16 26 00 6f e5 cd 5e 16 e1 22 43 16 2a 43 ┆ "W å2Y "! :Y & o ^ "C *C┆
0x15680…156a0 16 e5 21 00 00 e5 cd ae 25 f1 d2 97 15 21 00 00 7d 32 45 16 c3 3b 16 2a 57 16 e5 2a 43 16 11 0a ┆ ! % ! å2E ; *W *C ┆
0x156a0…156c0 00 19 5e 23 56 eb 11 0d 00 19 5e 23 56 eb eb e1 73 23 72 2a 51 16 e5 2a 43 16 11 0a 00 19 5e 23 ┆ ^#V ^#V s#r*Q *C ^#┆
0x156c0…156e0 56 eb 5e 23 56 eb eb e1 73 23 72 2a 4f 16 e5 2a 43 16 11 0a 00 19 5e 23 56 eb 23 23 23 16 00 5e ┆V ^#V s#r*O *C ^#V ### ^┆
0x156e0…15700 eb 23 eb e1 73 23 72 2a 53 16 e5 2a 43 16 11 0a 00 19 5e 23 56 eb 11 05 00 19 5e 23 56 eb 23 eb ┆ # s#r*S *C ^#V ^#V # ┆
0x15700…15720 e1 73 23 72 2a 55 16 e5 2a 53 16 5e 23 56 d5 2a 4f 16 5e 23 56 d5 cd be 28 2a 51 16 5e 23 56 eb ┆ s#r*U *S ^#V *O ^#V (*Q ^#V ┆
0x15720…15740 d1 19 2b e5 2a 51 16 5e 23 56 d5 cd f9 27 e1 eb e1 73 23 72 21 01 00 7d 32 45 16 3a 45 16 26 00 ┆ + *Q ^#V ' s#r! å2E :E & ┆
0x15740…15760 6f e3 e9 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 c3 00 00 c3 6e ┆o n┆
0x15760…15780 16 c3 64 16 2a f5 16 4d 44 2a fb 16 e9 c9 cd c3 22 e1 22 f5 16 e1 7d 32 f7 16 cd c9 22 21 00 00 ┆ d * MD* " " å2 "! ┆
0x15780…157a0 22 f9 16 21 00 00 eb 21 01 00 19 16 00 5e d5 21 00 00 eb 21 02 00 19 16 00 5e d5 cd cc 28 e1 d1 ┆" ! ! ^ ! ! ^ ( ┆
0x157a0…157c0 19 e5 3a f7 16 26 00 6f e5 21 03 00 e5 cd be 28 e1 d1 19 2b 2b 2b 22 fb 16 3a f7 16 26 00 6f e5 ┆ : & o ! ( +++" : & o ┆
0x157c0…157e0 21 09 00 e5 cd ae 25 f1 d2 d9 16 cd 61 16 e5 d1 21 f9 16 73 23 72 c3 e0 16 cd 61 16 21 f9 16 77 ┆! % a ! s#r a ! w┆
0x157e0…15800 2a f9 16 22 eb 16 2a eb 16 e3 e9 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 03 01 ┆* " * * ┆
0x15800…15820 (9, 1, 8) 21 8c 22 5e 23 56 eb 22 29 20 2a 29 20 11 3f 00 19 16 00 5e d5 21 80 00 e5 cd ae 25 f1 d2 8b 1f ┆! "^#V ") *) ? ^ ! % ┆
0x15820…15840 2a 29 20 11 3f 00 19 e5 21 00 00 eb e1 73 2a 29 20 11 41 00 19 16 00 5e eb 7d 2f 1f d2 8b 1f 21 ┆*) ? ! s*) A ^ å/ !┆
0x15840…15860 1a 00 e5 2a 29 20 11 42 00 19 e5 cd cd 24 e1 22 23 20 21 8a 22 e5 21 14 00 e5 2a 29 20 11 11 00 ┆ *) B $ "# ! " ! *) ┆
0x15860…15880 19 e5 cd cd 24 e1 eb e1 73 23 72 21 8a 22 5e 23 56 d5 21 00 00 e5 cd f6 25 f1 d2 8b 1f 2a 29 20 ┆ $ s#r! "^#V ! % *) ┆
0x15880…158a0 11 41 00 19 e5 21 01 00 eb e1 73 2a 29 20 11 41 00 19 7e 1f d2 c8 1f 2a 21 20 e5 21 ff 00 eb e1 ┆ A ! s*) A ü *! ! ┆
0x158a0…158c0 73 2a 29 20 11 3c 00 19 e5 21 01 00 eb e1 73 2a 29 20 11 36 00 19 e5 21 00 00 eb e1 73 23 72 cd ┆s*) < ! s*) 6 ! s#r ┆
0x158c0…158e0 d0 24 c3 20 20 c3 e8 1f 2a 21 20 e5 2a 29 20 11 42 00 19 e5 2a 29 20 11 3f 00 19 16 00 5e eb d1 ┆ $ *! *) B *) ? ^ ┆
0x158e0…15900 19 16 00 5e eb eb e1 73 2a 29 20 11 3f 00 19 e5 2a 29 20 11 3f 00 19 16 00 5e eb 23 eb e1 73 2a ┆ ^ s*) ? *) ? ^ # s*┆
0x15900…15920 21 20 23 22 21 20 c3 ed 1e 21 8c 22 5e 23 56 eb 11 36 00 19 e5 21 00 00 eb e1 73 23 72 cd d0 24 ┆! #"! ! "^#V 6 ! s#r $┆
0x15920…15940 c9 00 00 00 00 00 00 00 00 00 00 c3 00 00 c3 34 20 c3 d6 20 cd c3 22 e1 7d 32 65 22 cd c9 22 21 ┆ 4 " å2e" "!┆
0x15940…15960 8c 22 5e 23 56 eb 22 71 22 2a 71 22 11 3f 00 19 16 00 5e d5 21 80 00 e5 cd ae 25 f1 d2 9f 20 21 ┆ "^#V "q"*q" ? ^ ! % !┆
0x15960…15980 8a 22 e5 21 1a 00 e5 2a 71 22 11 42 00 19 e5 cd cd 24 e1 eb e1 73 23 72 21 8a 22 e5 21 15 00 e5 ┆ " ! *q" B $ s#r! " ! ┆
0x15980…159a0 2a 71 22 11 11 00 19 e5 cd cd 24 e1 eb e1 73 23 72 2a 71 22 11 3f 00 19 e5 21 00 00 eb e1 73 2a ┆*q" $ s#r*q" ? ! s*┆
0x159a0…159c0 71 22 11 42 00 19 e5 2a 71 22 11 3f 00 19 16 00 5e eb d1 19 e5 3a 65 22 26 00 6f eb e1 73 2a 71 ┆q" B *q" ? ^ :e"& o s*q┆
0x159c0…159e0 22 11 3f 00 19 e5 2a 71 22 11 3f 00 19 16 00 5e eb 23 eb e1 73 c9 21 8a 22 e5 21 00 00 eb e1 73 ┆" ? *q" ? ^ # s ! " ! s┆
0x159e0…15a00 23 72 21 8c 22 5e 23 56 eb 11 3d 00 19 e5 21 69 22 e5 21 02 00 e5 cd 24 28 21 8c 22 5e 23 56 eb ┆#r! "^#V = !i" ! $(! "^#V ┆
0x15a00…15a20 (9, 1, 9) 7d b4 ca 18 17 06 10 5e 23 56 23 1b 7b b2 13 ca 14 17 af 12 05 c2 07 17 21 2a 19 36 01 23 36 00 ┆å ^#V# æ !* 6 #6 ┆
0x15a20…15a40 23 36 00 23 36 00 21 28 19 36 01 23 36 00 21 e2 28 23 23 11 00 00 19 22 e2 28 21 80 ff 39 22 dc ┆#6 #6 !( 6 #6 ! (## " (! 9" ┆
0x15a40…15a60 28 22 d6 28 3e 02 32 25 19 21 30 30 22 26 19 21 9b 17 01 86 01 36 00 23 0b 78 b1 c2 55 17 21 01 ┆(" (> 2% !00"& ! 6 # x U ! ┆
0x15a60…15a80 00 22 d4 17 22 cf 17 22 97 18 22 92 18 3e 04 32 d3 17 32 96 18 3e 01 32 db 17 32 9e 18 3e 20 32 ┆ " " " " > 2 2 > 2 2 > 2┆
0x15a80…15aa0 5d 18 21 5d 18 22 d8 17 21 20 19 22 9b 18 21 db 1b 22 21 19 21 8c 19 22 23 19 c9 00 00 00 00 00 ┆Å !Å " ! " ! "! ! "# ┆
0x15aa0…15ac0 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 ┆ ┆
[…0xa…]
0x15c00…15e00 (10, 0, 1) DataBlock {»MINICALC.HLP«}
[…0x6…]
0x16a00…16a20 (10, 0, 8) 11 38 00 19 16 00 5e d5 21 03 00 e5 cd e1 25 f1 d2 14 22 21 8c 22 5e 23 56 eb 22 73 22 21 01 00 ┆ 8 ^ ! % "! "^#V "s"! ┆
0x16a20…16a40 e5 2a 73 22 11 39 00 19 5e 23 56 d5 d1 e1 2b e5 d5 22 6f 22 d1 e1 23 e5 d5 cd 92 22 22 75 22 2a ┆ *s" 9 ^#V + "o" # ""u"*┆
0x16a40…16a60 6f 22 23 22 6f 22 2a 75 22 2b 22 75 22 7c b5 ca 11 22 2a 69 22 16 00 5e eb 7d 32 6b 22 3a 6b 22 ┆o"#"o"*u"+"u"ø "*i" ^ å2k":k"┆
0x16a60…16a80 26 00 6f e5 21 0a 00 e5 cd ae 25 f1 d2 72 21 c3 62 22 2a 73 22 11 38 00 19 16 00 5e d5 21 06 00 ┆& o ! % r! b"*s" 8 ^ ! ┆
0x16a80…16aa0 e5 cd ae 25 f1 d2 be 21 21 05 00 e5 3a 6b 22 26 00 6f e5 cd cd 24 e1 22 6d 22 3a 6b 22 26 00 6f ┆ % !! :k"& o $ "m":k"& o┆
0x16aa0…16ac0 e5 21 0d 00 e5 cd ae 25 f1 d2 bb 21 21 05 00 e5 21 0a 00 e5 cd cd 24 e1 22 6d 22 c3 07 22 21 02 ┆ ! % !! ! $ "m" "! ┆
0x16ac0…16ae0 00 e5 3a 6b 22 26 00 6f e5 cd cd 24 e1 22 6d 22 2a 73 22 11 38 00 19 16 00 5e d5 21 04 00 e5 cd ┆ :k"& o $ "m"*s" 8 ^ ! ┆
0x16ae0…16b00 ae 25 f1 d2 07 22 3a 6b 22 26 00 6f e5 21 0d 00 e5 cd ae 25 f1 d2 07 22 21 02 00 e5 21 0a 00 e5 ┆ % ":k"& o ! % "! ! ┆
0x16b00…16b20 cd cd 24 e1 22 6d 22 2a 69 22 23 22 69 22 c3 3f 21 c3 61 22 21 01 00 e5 21 8c 22 5e 23 56 eb 11 ┆ $ "m"*i"#"i" ?! a"! ! "^#V ┆
0x16b20…16b40 39 00 19 5e 23 56 d5 d1 e1 2b e5 d5 22 6f 22 d1 e1 23 e5 d5 cd 92 22 22 77 22 2a 6f 22 23 22 6f ┆9 ^#V + "o" # ""w"*o"#"o┆
0x16b40…16b60 22 2a 77 22 2b 22 77 22 7c b5 ca 61 22 2a 69 22 16 00 5e d5 cd 2e 20 2a 69 22 23 22 69 22 c3 3a ┆"*w"+"w"ø a"*i" ^ . *i"#"i" :┆
0x16b60…16b80 22 c9 c3 07 22 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 c3 00 00 c3 7f 22 2a ┆" " "*┆
0x16b80…16ba0 8a 22 22 8e 22 2a 8e 22 e3 e9 00 00 00 00 00 00 00 00 e1 22 be 22 d1 e1 e5 d5 e5 d5 cd e1 25 f1 ┆ "" "* " " " % ┆
0x16ba0…16bc0 da b3 22 d1 e1 7b 95 6f 7a 9c 67 23 23 e5 2a be 22 e3 c9 e1 d1 21 01 00 e5 2a be 22 e3 c9 00 00 ┆ " æ oz g## * " ! * " ┆
0x16bc0…16be0 c3 00 00 e1 e3 22 ce 22 c9 2a ce 22 e3 e9 00 00 06 20 36 00 23 05 c2 d2 22 c9 e1 22 1f 24 e1 22 ┆ " " * " 6 # " " $ "┆
0x16be0…16c00 21 24 21 e0 ff 39 f9 cd d0 22 2a 21 24 7c b7 c2 f5 22 cd f9 22 2a 1f 24 e9 3a 21 24 0f 0f 0f e6 ┆!$! 9 "*!$ø " "* $ :!$ ┆
0x16c00…16e00 (10, 0, 9) DataBlock {»MINICALC.HLP«}
0x16e00…16e20 (10, 1, 1) 1f 5f 16 00 21 02 00 39 19 e5 3a 21 24 e6 07 5f 16 00 21 1c 23 19 7e e1 47 b6 77 c9 01 02 04 08 ┆ _ ! 9 :!$ _ ! # ü G w ┆
0x16e20…16e40 10 20 40 80 e1 22 1f 24 e1 22 27 24 e1 22 25 24 21 e0 ff 39 f9 cd d0 22 2a 25 24 7c b7 c2 f5 22 ┆ @ " $ "'$ "%$! 9 "*%$ø "┆
0x16e40…16e60 22 21 24 eb 2a 27 24 7c b7 c2 f5 22 7d bb da f5 22 ca 69 23 cd f9 22 2a 21 24 23 22 21 24 eb 2a ┆"!$ *'$ø "å " i# "*!$#"!$ *┆
0x16e60…16e80 27 24 7b 95 7a 9c c2 54 23 cd f9 22 2a 1f 24 e9 e1 22 1f 24 21 00 00 39 44 4d 21 20 00 39 5e 23 ┆'$æ z T# "* $ " $! 9DM! 9^#┆
0x16e80…16ea0 56 eb 22 21 24 7c b7 c2 b5 23 c5 7d 0f 0f 0f e6 1f 5f 16 00 e1 19 46 3a 21 24 e6 07 5f 16 00 21 ┆V "!$ø # å _ F:!$ _ !┆
0x16ea0…16ec0 1c 23 19 7e a0 ca b5 23 11 01 00 21 22 00 39 f9 d5 2a 1f 24 e9 11 00 00 c3 ab 23 e1 22 1f 24 21 ┆ # ü # !" 9 * $ # " $!┆
0x16ec0…16ee0 00 00 39 eb 21 20 00 39 06 20 1a b6 77 23 13 05 c2 ca 23 21 20 00 39 f9 2a 1f 24 e9 e1 22 1f 24 ┆ 9 ! 9 w# #! 9 * $ " $┆
0x16ee0…16f00 21 00 00 39 eb 21 20 00 39 06 20 1a 2f a6 77 23 13 05 c2 eb 23 21 20 00 39 f9 2a 1f 24 e9 e1 22 ┆! 9 ! 9 / w# #! 9 * $ "┆
0x16f00…16f20 1f 24 21 00 00 39 eb 21 20 00 39 06 20 1a a6 77 23 13 05 c2 0d 24 21 20 00 39 f9 2a 1f 24 e9 00 ┆ $! 9 ! 9 w# $! 9 * $ ┆
0x16f20…16f40 00 00 00 00 00 00 00 00 00 eb 1a be c2 3c 24 13 23 0b 79 b0 c2 2a 24 21 01 00 e3 e9 79 4d 44 21 ┆ <$ # y *$! yMD!┆
0x16f40…16f60 00 00 e3 e5 60 69 4f 06 00 3e 01 b7 c9 cd 29 24 e1 7d ee 01 6f e3 e9 cd 29 24 79 b0 ca 64 24 1a ┆ `iO > )$ å o )$y d$ ┆
0x16f60…16f80 be da 6a 24 e1 21 00 00 e3 e9 e1 21 01 00 e3 e9 cd 29 24 79 b0 ca 64 24 eb 1a be da 6a 24 c3 64 ┆ j$ ! ! )$y d$ j$ d┆
0x16f80…16fa0 24 cd 29 24 ca 6a 24 c3 5f 24 cd 29 24 ca 6a 24 c3 78 24 e1 22 a1 24 cd a8 26 c1 e1 71 2a a1 24 ┆$ )$ j$ _$ )$ j$ x$ " $ & q* $┆
0x16fa0…16fc0 e9 00 00 0e 0d c5 cd 7a 28 0e 0a c5 cd 7a 28 c9 c1 d1 21 db 00 63 22 c7 24 3e c9 32 c9 24 cd c7 ┆ z( z( ! c" $> 2 $ ┆
0x16fc0…16fe0 24 6f 26 00 e5 c5 c9 00 00 00 c3 00 00 c3 d3 24 c3 fd 24 cd c3 22 e1 22 17 25 e1 22 19 25 cd c9 ┆$o& $ $ " " % " % ┆
0x16fe0…17000 22 2a 19 25 4d 2a 17 25 eb cd 05 00 6f 26 00 22 1b 25 2a 1b 25 22 0d 25 2a 0d 25 e3 e9 21 1a 00 ┆"* %M* % o& " %* %" %* % ! ┆
0x17000…17200 (10, 1, 2) DataBlock {»MINICALC.HLP«}
0x17200…17220 (10, 1, 3) e5 21 80 00 e5 cd cd 24 e1 22 1d 25 c9 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 c1 ┆ ! $ " % ┆
0x17220…17240 e1 d1 c5 29 01 3e 25 09 7b a6 5f 23 7a a6 b3 c2 38 25 e1 11 00 00 d5 e9 e1 11 01 00 d5 e9 01 00 ┆ ) >% æ _#z 8% ┆
0x17240…17260 02 00 04 00 08 00 10 00 20 00 40 00 80 00 00 01 00 02 00 04 00 08 00 10 00 20 00 40 00 80 c1 e1 ┆ @ @ ┆
0x17260…17280 d1 c5 29 01 3e 25 09 4e 23 46 eb 7e b1 77 23 7e b0 77 c9 c1 e1 d1 c5 29 01 3e 25 09 7e 2f 4f 23 ┆ ) >% N#F ü w#ü w ) >% ü/O#┆
0x17280…172a0 7e 2f 47 eb 7e a1 77 23 7e a0 77 c9 e1 7e 23 e5 b7 ca ab 25 fe 01 ca f3 25 fe 02 ca de 25 fe 03 ┆ü/G ü w#ü w ü# % % % ┆
0x172a0…172c0 ca 13 26 fe 04 ca c2 25 c3 0a 26 cd 1c 26 c1 d1 e1 7d 93 c2 bb 25 7c 9a ca 03 26 21 00 00 e5 60 ┆ & % & & å %ø &! `┆
0x172c0…172e0 69 e9 cd 1c 26 c1 d1 e1 7a ac fa d7 25 7d 93 7c 9a f2 03 26 c3 bb 25 a4 f2 03 26 c3 bb 25 cd 1c ┆i & z %å ø & % & % ┆
0x172e0…17300 26 c1 d1 e1 7a ac fa d7 25 7b 95 7a 9c da 03 26 c3 bb 25 cd 1c 26 c1 d1 e1 7d 93 c2 03 26 7c 9a ┆& z %æ z & % & å &ø ┆
0x17300…17320 ca bb 25 21 01 00 e5 60 69 e9 cd 1c 26 c1 e1 d1 c3 c8 25 cd 1c 26 c1 e1 d1 c3 e4 25 c1 d1 e1 26 ┆ %! `i & % & % &┆
0x17320…17340 00 7d e6 01 6f e3 26 00 7d e6 01 6f e3 e5 d5 c5 c9 e1 e3 22 8c 22 c9 e1 11 ff ff d5 d5 e9 e1 e3 ┆ å o & å o " " ┆
0x17340…17360 22 21 19 c9 e1 e3 22 23 19 c9 21 db 1b 22 21 19 21 8c 19 22 23 19 c9 af 32 a2 26 e1 22 a3 26 e1 ┆"! "# ! "! ! "# 2 & " & ┆
0x17360…17380 c1 d1 d5 eb 22 a5 26 eb 59 50 7a b7 ca 95 26 d5 1a bd ca 7e 26 da 7e 26 3e 01 32 a2 26 7d 3c 6f ┆ " & YPz & ü& ü&> 2 &å<o┆
0x17380…173a0 26 00 e5 32 a7 26 cd 2b 28 2a a5 26 3a a7 26 3d 77 2a a3 26 e9 e1 36 01 23 73 3e 02 32 a7 26 c3 ┆& 2 & +(* &: &=w* & 6 #s> 2 & ┆
0x173a0…173c0 89 26 00 00 00 00 00 00 21 b0 26 e5 2a 21 19 e9 c1 e1 c5 e9 e1 22 d7 26 e1 22 d9 26 e1 22 db 26 ┆ & ! & *! " & " & " &┆
0x173c0…173e0 e1 23 e5 2b 6e 26 00 e5 2a db 26 e5 2a d9 26 e5 cd dd 26 2a d7 26 e9 00 00 00 00 00 00 c1 e1 e1 ┆ # +n& * & * & &* & ┆
0x173e0…17400 d1 d5 c5 7c fe ff ca f6 26 7d 93 6f 7c 9a 67 fa f6 26 23 cd 84 28 c1 d1 e1 c5 7b b2 c8 d5 4e e5 ┆ ø &å oø g &# ( æ N ┆
0x17400…17600 (10, 1, 4) DataBlock {»MINICALC.HLP«}
0x17600…17620 (10, 1, 5) c5 cd 7a 28 e1 d1 23 1b 7a b3 c2 fd 26 c9 e1 3a 23 28 1f f5 e9 eb 21 00 00 af 32 23 28 79 b0 c2 ┆ z( # z & :#( ! 2#(y ┆
0x17620…17640 25 27 c3 5e 27 78 2f 47 79 2f 4f 03 3e 11 3d c2 36 27 eb c3 5c 27 29 da 50 27 eb 29 eb d2 41 27 ┆%' ^'x/Gy/O > = 6' Ø') P' ) A'┆
0x17640…17660 2c e5 09 da 4a 27 e1 c3 2e 27 1c 33 33 c3 2e 27 eb 29 eb d2 57 27 2c 09 1c c3 2e 27 eb c9 0e 09 ┆, J' .' 33 .' ) W', .' ┆
0x17660…17680 11 69 27 cd 05 00 cd c0 22 0d 0a 44 49 56 20 30 0d 0a 24 c9 af 32 23 28 b1 c2 85 27 b0 ca ea 27 ┆ i' " DIV 0 $ 2#( ' '┆
0x17680…176a0 ee 80 ca ea 27 78 a7 fa b2 27 b2 fa 93 27 eb cd 15 27 c9 7d fe 01 ca ab 27 7b 2f 6f 7a 2f 67 23 ┆ 'x ' ' ' å 'æ/oz/g#┆
0x176a0…176c0 cd 15 27 7b 2f 5f 7a 2f 57 13 c9 21 ff ff cd 19 27 c9 af 91 4f 3e 00 98 47 7a a7 fa d8 27 c2 c5 ┆ 'æ/_z/W ! ' O> Gz ' ┆
0x176c0…176e0 27 b3 ca d8 27 eb cd 15 27 7b 2f 5f 7a 2f 57 13 7d 91 6f 7c 98 67 23 c9 af 93 6f 3e 00 9a 67 cd ┆' ' 'æ/_z/W å oø g# o> g ┆
0x176e0…17700 15 27 af 95 6f 3e 00 9c 67 c9 c3 5e 27 3e 01 32 23 28 11 ff ff 21 00 00 c9 e1 c1 d1 e5 2e 00 cd ┆ ' o> g ^'> 2#( ! . ┆
0x17700…17720 74 27 e1 d5 e9 e1 c1 d1 e5 2e 01 cd 74 27 e3 e9 d1 c1 e1 d5 cd 15 27 eb e3 e9 d1 c1 e1 d5 cd 15 ┆t' . t' ' ┆
0x17720…17740 27 e3 e9 00 e1 c1 d1 e3 c3 30 28 e1 c1 d1 e3 eb 78 b1 ca 3f 28 7e 12 23 13 0b 78 b1 c2 35 28 eb ┆' 0( x ?(ü # x 5( ┆
0x17740…17760 c9 e1 c1 d1 e3 eb c3 4d 28 e1 c1 d1 e3 78 b1 ca 61 28 09 2b eb 09 2b 7e 12 2b 1b 0b 78 b1 c2 57 ┆ M( x a( + +ü + x W┆
0x17760…17780 28 eb c9 e1 c1 d1 e3 7b b2 c8 71 23 1b 7b b2 c2 6a 28 c9 c1 e1 e1 c5 cd 84 28 e1 c1 e5 c5 59 cd ┆( æ q# æ j( ( Y ┆
0x17780…177a0 9b 28 c1 c9 11 01 00 19 7d b4 c8 2d c8 2d c8 1e 20 e5 cd 9b 28 e1 2d c2 8f 28 c9 e1 d5 e5 2a 23 ┆ ( å - - ( - ( *#┆
0x177a0…177c0 19 e9 eb 11 00 00 79 48 06 08 1f d2 b1 28 eb 19 eb 29 05 c2 aa 28 79 a7 c2 a7 28 eb e3 e9 e1 c1 ┆ yH ( ) (y ( ┆
0x177c0…177e0 d1 e5 c3 a2 28 4d 44 cd a2 28 e1 c9 e1 e3 7d 6c 67 e3 e9 c9 00 00 00 00 00 00 00 00 00 00 00 00 ┆ (MD ( ålg ┆
0x177e0…17800 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 ┆ ┆
0x17800…17a00 (10, 1, 6) DataBlock {»MINICALC.COM«}
0x17a00…17c00 (10, 1, 7) DataBlock {»MINICALC.HLP«}
0x17c00…17e00 (10, 1, 8) DataBlock {»MINICALC.COM«}
0x17e00…18000 (10, 1, 9) DataBlock {»MINICALC.HLP«}
0x18000…18200 (11, 0, 1) DataBlock {»MINICALC.COM«}
[…0x9…]
0x19400…19420 (11, 1, 2) 0e 17 cd 05 00 c9 21 c3 1e 70 2b 71 2a c2 1e eb 0e 1e cd 05 00 c9 11 ff 00 0e 20 cd 05 00 c9 21 ┆ ! p+q* !┆
0x19420…19440 c4 1e 71 2a c4 1e 26 00 eb 0e 20 cd 05 00 c9 2a c0 1e 4d cd 1f 09 c9 2a c1 1e 4d cd 1f 09 c9 21 ┆ q* & * M * M !┆
0x19440…19460 c6 1e 70 2b 71 2a c5 1e eb 0e 21 cd 05 00 c9 21 c8 1e 70 2b 71 2a c7 1e eb 0e 22 cd 05 00 c9 21 ┆ p+q* ! ! p+q* " !┆
0x19460…19480 ca 1e 70 2b 71 2a c9 1e eb 0e 24 cd 05 00 c9 21 cb 1e 36 80 11 cb 1e 0e 0a cd 05 00 c9 11 00 00 ┆ p+q* $ ! 6 ┆
0x19480…194a0 0e 0b cd 05 00 c9 21 6b 1f 70 2b 71 2a 6a 1f eb 0e 1a cd 05 00 c9 3e 0c d3 01 3e 08 d3 01 db 01 ┆ !k p+q*j > > ┆
0x194a0…194c0 07 07 07 1f da aa 09 c3 9e 09 db 03 e6 7f c9 21 71 1f 70 2b 71 cd 2f 09 2a 70 1f 44 4d cd 39 08 ┆ !q p+q / *p DM 9 ┆
0x194c0…194e0 0e 3a cd 1c 08 0e 20 cd 1c 08 3a 4d 1f 32 72 1f 3a 4e 1f 21 72 1f be da f8 09 21 cc 1e 3a 72 1f ┆ : :M 2r :N !r ! :r ┆
0x194e0…19500 be d2 f1 09 2a 72 1f 26 00 01 cd 1e 09 4e cd 1c 08 21 72 1f 34 c2 d0 09 21 cc 1e 36 00 01 3a 02 ┆ *r & N !r 4 ! 6 : ┆
0x19500…19520 cd 94 08 3a ae 1e fe ff ca 11 0a 01 3a 02 cd b3 08 cd 2e 08 c3 0e 05 c9 21 77 1f 73 2b 70 2b 71 ┆ : : . !w s+p+q┆
0x19520…19540 2b d1 c1 70 2b 71 d5 3a 77 1f 3d 32 77 1f fe ff ca 4e 0a 2a 73 1f e5 2a 75 1f c1 0a 77 2a 73 1f ┆+ p+q :w =2w N *s *u w*s ┆
0x19540…19560 23 22 73 1f 2a 75 1f 23 22 75 1f c3 27 0a c9 21 00 00 22 9d 1e 2a 03 1e 4d cd 5e 08 cd 37 09 21 ┆#"s *u #"u ' ! " * M ^ 7 !┆
0x19560…19580 78 1f 36 00 3a fb 1d 21 78 1f be da be 0a 2a 9d 1e eb 2a 01 1e 19 44 4d cd 86 09 01 06 1e cd c3 ┆x 6 : !x * * DM ┆
0x19580…195a0 08 32 79 1f fe 00 ca ad 0a 3a 79 1f fe 01 ca 97 0a 01 94 02 cd af 09 2a 9d 1e 22 9f 1e eb 2a 01 ┆ 2y :y * " * ┆
0x195a0…195c0 1e 19 36 1a 3a fb 1d 32 78 1f c3 b7 0a 11 80 00 2a 9d 1e 19 22 9d 1e 21 78 1f 34 c2 64 0a 21 00 ┆ 6 : 2x * " !x 4 d ! ┆
0x195c0…195e0 00 22 9d 1e cd 2f 09 c9 0e 07 21 a1 1e cd 6a 1d 7d 3d 32 7c 1f fe ff c2 db 0a c9 21 00 00 22 a1 ┆ " / ! j å=2ø ! " ┆
0x195e0…19600 1e 2a 4b 1e 4d cd 5e 08 01 27 1e cd 5f 09 21 7a 1f 36 00 3a 7c 1f 21 7a 1f be da 31 0b 2a a1 1e ┆ *K M ^ ' _ !z 6 :ø !z 1 * ┆
0x19600…19620 (11, 1, 3) c3 ce 04 c9 00 00 c9 00 00 1a 00 00 00 00 00 00 28 49 4e 50 3a 2f 4f 55 54 3a 53 50 41 43 45 29 ┆ (INP:/OUT:SPACE)┆
0x19620…19640 28 49 4e 50 3a 2f 4f 55 54 3a 53 50 41 43 45 29 28 49 4e 50 3a 2f 4f 55 54 3a 53 50 41 43 45 29 ┆(INP:/OUT:SPACE)(INP:/OUT:SPACE)┆
[…0x6…]
0x19700…19720 20 20 20 43 4f 50 59 52 49 47 48 54 20 28 43 29 20 31 39 37 39 2c 20 44 49 47 49 54 41 4c 20 52 ┆ COPYRIGHT (C) 1979, DIGITAL R┆
0x19720…19740 45 53 45 41 52 43 48 2c 20 20 50 49 50 20 56 45 52 53 20 31 2e 35 03 01 06 01 00 24 24 24 20 20 ┆ESEARCH, PIP VERS 1.5 $$$ ┆
0x19740…19760 20 20 20 53 55 42 00 00 00 20 3d 2e 3a 2c 3c 3e 0d 5f 5b 5d 49 4e 50 49 52 44 50 54 52 55 52 31 ┆ SUB =.:,<> _ÆÅINPIRDPTRUR1┆
0x19760…19780 55 52 32 52 44 52 4f 55 54 4c 50 54 55 4c 31 50 52 4e 4c 53 54 50 54 50 55 50 31 55 50 32 50 55 ┆UR2RDROUTLPTUL1PRNLSTPTPUP1UP2PU┆
0x19780…197a0 4e 54 54 59 43 52 54 55 43 31 43 4f 4e 4e 55 4c 45 4f 46 00 44 49 53 4b 20 52 45 41 44 20 45 52 ┆NTTYCRTUC1CONNULEOF DISK READ ER┆
0x197a0…197c0 52 4f 52 24 44 49 53 4b 20 57 52 49 54 45 20 45 52 52 4f 52 24 56 45 52 49 46 59 20 45 52 52 4f ┆ROR$DISK WRITE ERROR$VERIFY ERRO┆
0x197c0…197e0 52 24 4e 4f 54 20 41 20 43 48 41 52 41 43 54 45 52 20 53 49 4e 4b 24 52 45 41 44 45 52 20 53 54 ┆R$NOT A CHARACTER SINK$READER ST┆
0x197e0…19800 4f 50 50 49 4e 47 0d 0a 24 4e 4f 54 20 41 20 43 48 41 52 41 43 54 45 52 20 53 4f 55 52 43 45 24 ┆OPPING $NOT A CHARACTER SOURCE$┆
0x19800…19820 (11, 1, 4) 01 ca 1f 09 22 7d 1f 2a 7d 1f 44 4d cd 86 09 01 27 1e cd d3 08 fe 00 ca 20 0b 01 a4 02 cd af 09 ┆ "å *å DM ' ┆
0x19820…19840 11 80 00 2a a1 1e 19 22 a1 1e 21 7a 1f 34 c2 f3 0a 3a 65 1f 1f d2 c9 0b 21 00 00 22 a1 1e 01 80 ┆ * " !z 4 :e ! " ┆
0x19840…19860 00 cd 86 09 21 7a 1f 36 00 3a 7c 1f 21 7a 1f be da c0 0b 01 27 1e cd 3f 09 d6 00 d6 01 9f 32 7f ┆ !z 6 :ø !z ' ? 2 ┆
0x19860…19880 1f 2a 48 1e 23 22 48 1e 21 7b 1f 36 00 3a 7b 1f d6 80 9f 21 7f 1f a6 1f d2 a2 0b 2a 7b 1f 26 00 ┆ *H #"H !æ 6 :æ ! *æ & ┆
0x19880…198a0 01 80 00 09 3a 7b 1f 11 a1 1e e5 cd 34 1d 01 ca 1f 09 c1 0a 96 d6 01 9f 32 7f 1f 21 7b 1f 34 c3 ┆ :æ 4 2 !æ 4 ┆
0x198a0…198c0 6d 0b 11 80 00 2a a1 1e 19 22 a1 1e 3a 7f 1f 1f da b9 0b 01 b5 02 cd af 09 21 7a 1f 34 c2 49 0b ┆m * " : !z 4 I ┆
0x198c0…198e0 01 27 1e cd d3 08 32 7f 1f 21 00 00 22 a1 1e c9 21 80 1f 71 3a 80 1f fe 20 da f4 0b 21 f3 1d 34 ┆ ' 2 ! " ! q: ! 4┆
0x198e0…19900 3e 00 21 53 1f be d2 f4 0b 3a 53 1f 21 f3 1d be d2 f4 0b c9 3a 03 00 32 81 1f 2a a3 1e 4d 06 00 ┆> !S :S ! : 2 * M ┆
0x19900…19920 21 dd 0c 09 09 5e 23 56 eb e9 01 ff 1d 11 a1 1e cd 8e 1d da 19 0c cd c8 0a 2a a1 1e 01 ca 1f 09 ┆! ^#V * ┆
0x19920…19940 3a 80 1f 77 2a a1 1e 23 22 a1 1e c3 05 0d c3 3d 0c c3 3d 0c c3 3d 0c c3 3d 0c c3 3d 0c 01 c2 02 ┆: w* #" = = = = = ┆
0x19940…19960 cd af 09 c3 05 0d 2a 80 1f 4d cd e6 07 c3 05 0d 21 03 00 36 80 c3 71 0c c3 05 0d 21 03 00 36 c0 ┆ * M ! 6 q ! 6 ┆
0x19960…19980 c3 71 0c c3 05 0d 21 03 00 00 00 c3 71 0c c3 05 0d 2a 80 1f 26 00 eb 0e 05 cd 05 00 c3 05 0d 21 ┆ q ! q * & !┆
0x19980…199a0 03 00 36 10 c3 a0 0c c3 05 0d 21 03 00 36 20 c3 a0 0c c3 05 0d 21 03 00 36 30 c3 a0 0c c3 05 0d ┆ 6 ! 6 ! 60 ┆
0x199a0…199c0 2a 80 1f 26 00 eb 0e 04 cd 05 00 c3 05 0d 21 03 00 36 00 c3 cf 0c c3 05 0d 21 03 00 36 01 c3 cf ┆* & ! 6 ! 6 ┆
0x199c0…199e0 0c c3 05 0d 21 03 00 36 03 c3 cf 0c c3 05 0d 2a 80 1f 26 00 eb 0e 02 cd 05 00 c3 05 0d 0a 0c 2e ┆ ! 6 * & .┆
0x199e0…19a00 0c 31 0c 34 0c 37 0c 3a 0c 3d 0c 46 0c 50 0c 5b 0c 66 0c 71 0c 7f 0c 8a 0c 95 0c a0 0c ae 0c b9 ┆ 1 4 7 : = F P Æ f q ┆
0x19a00…19a20 (11, 1, 5) 41 42 4f 52 54 45 44 24 42 41 44 20 50 41 52 41 4d 45 54 45 52 24 49 4e 56 41 4c 49 44 20 55 53 ┆ABORTED$BAD PARAMETER$INVALID US┆
0x19a20…19a40 45 52 20 4e 55 4d 42 45 52 24 52 45 43 4f 52 44 20 54 4f 4f 20 4c 4f 4e 47 24 49 4e 56 41 4c 49 ┆ER NUMBER$RECORD TOO LONG$INVALI┆
0x19a40…19a60 44 20 44 49 47 49 54 24 45 4e 44 20 4f 46 20 46 49 4c 45 2c 20 43 54 4c 2d 5a 3f 24 43 48 45 43 ┆D DIGIT$END OF FILE, CTL-Z?$CHEC┆
0x19a60…19a80 4b 53 55 4d 20 45 52 52 4f 52 24 43 4f 52 52 45 43 54 20 45 52 52 4f 52 2c 20 54 59 50 45 20 52 ┆KSUM ERROR$CORRECT ERROR, TYPE R┆
0x19a80…19aa0 45 54 55 52 4e 20 4f 52 20 43 54 4c 2d 5a 24 49 4e 56 41 4c 49 44 20 46 4f 52 4d 41 54 24 48 45 ┆ETURN OR CTL-Z$INVALID FORMAT$HE┆
0x19aa0…19ac0 58 24 24 24 24 4e 4f 20 44 49 52 45 43 54 4f 52 59 20 53 50 41 43 45 24 4e 4f 20 46 49 4c 45 24 ┆X$$$$NO DIRECTORY SPACE$NO FILE$┆
0x19ac0…19ae0 43 4f 4d 24 53 54 41 52 54 20 4e 4f 54 20 46 4f 55 4e 44 24 51 55 49 54 20 4e 4f 54 20 46 4f 55 ┆COM$START NOT FOUND$QUIT NOT FOU┆
0x19ae0…19b00 4e 44 24 43 41 4e 4e 4f 54 20 43 4c 4f 53 45 20 44 45 53 54 49 4e 41 54 49 4f 4e 20 46 49 4c 45 ┆ND$CANNOT CLOSE DESTINATION FILE┆
0x19b00…19b20 24 44 45 53 54 49 4e 41 54 49 4f 4e 20 49 53 20 52 2f 4f 2c 20 44 45 4c 45 54 45 20 28 59 2f 4e ┆$DESTINATION IS R/O, DELETE (Y/N┆
0x19b20…19b40 29 3f 24 2a 2a 4e 4f 54 20 44 45 4c 45 54 45 44 2a 2a 24 24 24 24 24 24 24 4e 4f 54 20 46 4f 55 ┆)?$**NOT DELETED**$$$$$$$NOT FOU┆
0x19b40…19b60 4e 44 24 43 4f 50 59 49 4e 47 20 2d 24 52 45 51 55 49 52 45 53 20 43 50 2f 4d 20 32 2e 30 20 4f ┆ND$COPYING -$REQUIRES CP/M 2.0 O┆
0x19b60…19b80 52 20 4e 45 57 45 52 20 46 4f 52 20 4f 50 45 52 41 54 49 4f 4e 2e 24 55 4e 52 45 43 4f 47 4e 49 ┆R NEWER FOR OPERATION.$UNRECOGNI┆
0x19b80…19ba0 5a 45 44 20 44 45 53 54 49 4e 41 54 49 4f 4e 24 43 41 4e 4e 4f 54 20 57 52 49 54 45 24 49 4e 56 ┆ZED DESTINATION$CANNOT WRITE$INV┆
0x19ba0…19bc0 41 4c 49 44 20 50 49 50 20 46 4f 52 4d 41 54 24 43 41 4e 4e 4f 54 20 52 45 41 44 24 49 4e 56 41 ┆ALID PIP FORMAT$CANNOT READ$INVA┆
0x19bc0…19be0 4c 49 44 20 53 45 50 41 52 41 54 4f 52 24 31 f2 1d 01 80 00 c5 1e 80 01 cc 1e cd 18 0a 3a cc 1e ┆LID SEPARATOR$1 : ┆
0x19be0…19c00 d6 00 d6 01 9f 32 a5 1e cd 4c 08 eb 3e 20 cd 84 1d d2 fd 04 01 4d 04 cd 39 08 cd 00 00 cd 16 09 ┆ 2 L > M 9 ┆
0x19c00…19c20 (11, 1, 6) 0c c4 0c cf 0c 3a 81 1f 32 03 00 c9 21 82 1f 71 3a 82 1f fe 09 ca 22 0d 2a 82 1f 4d cd d0 0b c3 ┆ : 2 ! q: " * M ┆
0x19c20…19c40 6e 0d 3a 63 1f fe 00 c2 34 0d 2a 82 1f 4d cd d0 0b c3 6e 0d 3a f3 1d 32 83 1f 21 63 1f 3a 83 1f ┆n :c 4 * M n : 2 !c : ┆
0x19c40…19c60 be da 51 0d 21 63 1f 3a 83 1f 96 32 83 1f c3 3a 0d 21 83 1f 3a 63 1f 96 77 3e 00 21 83 1f be d2 ┆ Q !c : 2 : ! :c w> ! ┆
0x19c60…19c80 6e 0d 21 83 1f 35 0e 20 cd d0 0b c3 59 0d 3a 82 1f fe 0d c2 7b 0d 21 f3 1d 36 00 c9 21 84 1f 71 ┆n ! 5 Y : æ ! 6 ! q┆
0x19c80…19ca0 3a 84 1f d6 00 d6 01 9f 21 6c 1f a6 77 1f d2 99 0d 0e 20 cd 0c 0d c3 a2 0d 3a 84 1f c6 30 4f cd ┆: !l w : 0O ┆
0x19ca0…19cc0 0c 0d c9 21 85 1f 71 3a 85 1f e6 f8 1f 1f 1f 1f 4f cd 7c 0d 3a 85 1f e6 0f 4f cd 7c 0d c9 21 86 ┆ ! q: O ø : O ø ! ┆
0x19cc0…19ce0 1f 36 01 3a 5d 1f d6 01 d6 01 9f 32 6c 1f 3a 6f 1f 86 27 32 6f 1f 3a 6e 1f ce 00 27 32 6e 1f 3a ┆ 6 :Å 2l :o '2o :n '2n :┆
0x19ce0…19d00 6d 1f ce 00 27 32 6d 1f 2a 6d 1f 4d cd a3 0d 2a 6e 1f 4d cd a3 0d 2a 6f 1f 4d cd a3 0d 3a 5d 1f ┆m '2m *m M *n M *o M :Å ┆
0x19d00…19d20 fe 01 c2 12 0e 0e 3a cd 0c 0d 0e 20 cd 0c 0d c3 17 0e 0e 09 cd 0c 0d c9 2a a1 1e 7d e6 7f 32 89 ┆ : * å 2 ┆
0x19d20…19d40 1f 11 80 ff cd 44 1d 22 87 1f cd c8 0a 2a 87 1f 01 ca 1f 09 e5 2a 89 1f eb cd 18 0a 2a 89 1f 26 ┆ D " * * * &┆
0x19d40…19d60 00 22 a1 1e c9 21 8a 1f 71 3a 55 1f 1f d2 59 0e 3a 8a 1f fe 0c c2 59 0e c9 3a a6 1e 1f d2 a9 0e ┆ " ! q:U Y : Y : ┆
0x19d60…19d80 3a 8a 1f fe 0c ca a9 0e 3a 5f 1f 32 8b 1f fe 00 ca 98 0e 3a 8b 1f fe 01 c2 80 0e 21 8b 1f 36 3c ┆: :_ 2 : ! 6<┆
0x19d80…19da0 3a f4 1d 3c 32 f4 1d 21 8b 1f be da 98 0e 21 f4 1d 36 00 0e 0c cd 0c 0d 3e 00 21 5d 1f be d2 a4 ┆: <2 ! ! 6 > !Å ┆
0x19da0…19dc0 0e cd be 0d 21 a6 1e 36 00 3a 51 1f 1f d2 cc 0e 3a 8a 1f d6 13 d6 01 9f f5 3a a3 1e d6 00 d6 01 ┆ ! 6 :Q : : ┆
0x19dc0…19de0 9f c1 48 a1 1f d2 cc 0e cd 18 0e c9 3a 8a 1f fe 0c c2 d9 0e 21 f4 1d 36 00 2a 8a 1f 4d cd 0c 0d ┆ H : ! 6 * M ┆
0x19de0…19e00 3a 8a 1f fe 0a c2 ed 0e 21 a6 1e 36 01 c9 21 8c 1f 71 3a 8c 1f d6 61 9f 2f f5 3e 7a 21 8c 1f 96 ┆: ! 6 ! q: a / >z! ┆
0x19e00…19e20 (11, 1, 7) 32 c0 1e 11 00 00 0e 19 cd 05 00 32 fc 1d 31 f2 1d cd 40 1a 3a c0 1e 32 c1 1e 21 6f 1f 36 00 2b ┆2 2 1 @ : 2 !o 6 +┆
0x19e20…19e40 36 00 2b 36 00 21 a6 1e 36 01 23 36 00 21 f3 1d 36 00 23 36 fe 3a a5 1e 1f d2 47 05 0e 2a cd 1c ┆6 +6 ! 6 #6 ! 6 #6 : G * ┆
0x19e40…19e60 08 cd 6f 09 cd 2e 08 21 4e 1f 36 ff 3a cc 1e fe 02 d2 5e 05 2a fc 1d 4d cd 5e 08 cd 00 00 21 4b ┆ o . !N 6 : ^ * M ^ !K┆
0x19e60…19e80 1e 36 00 21 03 1e 36 00 21 a4 1e 36 00 2b 36 00 01 27 1e cd 20 12 3a a9 1e fe 03 c2 81 05 c3 24 ┆ 6 ! 6 ! 6 +6 ' : $┆
0x19e80…19ea0 06 3a a9 1e fe 04 c2 c3 05 3a 94 1f 3d 32 4b 1e cd 0c 1d 01 06 1e cd 20 12 3a a9 1e fe 02 ca a4 ┆ : : =2K : ┆
0x19ea0…19ec0 05 cd 5c 18 3a f5 1d 1f d2 b7 05 01 5c 00 cd ee 1c cd 78 1b c3 c0 05 01 27 1e cd ee 1c cd b2 1a ┆ Ø : Ø x ' ┆
0x19ec0…19ee0 c3 db 07 3a a9 1e d6 02 c6 ff 9f 21 f5 1d b6 1f d2 d6 05 cd 5c 18 cd a2 1c cd 0c 1d 01 06 1e cd ┆ : ! Ø ┆
0x19ee0…19f00 20 12 3a a9 1e fe 04 c2 05 06 cd 88 1c cd c6 1c 01 27 1e c5 1e 21 01 06 1e cd 18 0a cd df 1c cd ┆ : ' ! ┆
0x19f00…19f20 b2 1a c3 db 07 3a a9 1e fe 02 c2 24 06 cd 11 12 3a a8 1e fe 0d ca 1b 06 c3 24 06 cd 88 1c cd b2 ┆ : $ : $ ┆
0x19f20…19f40 1a c3 db 07 21 4e 1f 36 ff 01 27 1e cd 20 12 3a a9 1e d6 02 9f 21 f5 1d b6 1f d2 43 06 01 77 04 ┆ !N 6 ' : ! C w ┆
0x19f40…19f60 cd af 09 21 05 1e 36 00 3a a9 1e fe 02 c2 5e 06 cd a2 1c cd 63 18 21 a8 1e 36 ff c3 7b 06 3a a8 ┆ ! 6 : ^ c ! 6 æ : ┆
0x19f60…19f80 1e d6 13 9f 2f f5 3e 05 21 a8 1e 96 9f 2f c1 48 b1 1f d2 7b 06 01 90 04 cd af 09 3a a8 1e 3c 32 ┆ / > ! / H æ : <2┆
0x19f80…19fa0 a3 1e fe 0f c2 8a 06 cd cf 15 01 06 1e cd 20 12 3a a9 1e d6 01 c6 ff 9f f5 3a a8 1e d6 3d c6 ff ┆ : : = ┆
0x19fa0…19fc0 9f c1 48 b1 1f d2 ae 06 01 9d 04 cd af 09 21 a7 1f 36 01 3a a7 1f 1f d2 be 07 3a c0 1e 32 c1 1e ┆ H ! 6 : : 2 ┆
0x19fc0…19fe0 01 06 1e cd 20 12 21 04 1e 36 00 3a a9 1e d6 02 d6 01 9f f5 3a f5 1d 2f c1 48 a1 1f d2 ed 06 cd ┆ ! 6 : : / H ┆
0x19fe0…1a000 88 1c cd be 18 21 a8 1e 36 ff c3 13 07 3a a9 1e d6 03 c6 ff 9f f5 3e 0a 21 a8 1e 96 9f 2f f5 3e ┆ ! 6 : > ! / >┆
0x1a000…1a020 (11, 1, 8) 9f 2f c1 48 a1 1f d2 11 0f 3a 8c 1f e6 5f 32 8c 1f 3a 8c 1f c9 21 8d 1f 71 3a 8d 1f d6 41 9f 2f ┆ / H : _2 : ! q: A /┆
0x1a020…1a040 f5 3e 5a 21 8d 1f 96 9f 2f c1 48 a1 1f d2 38 0f 3a 8d 1f f6 20 32 8d 1f 3a 8d 1f c9 3a a4 1e 3d ┆ >Z! / H 8 : 2 : : =┆
0x1a040…1a060 4f 3e 05 b9 da 6d 0f 3a 57 1f 21 51 1f b6 f5 cd 7d 09 c1 48 a1 1f d2 6d 0f cd 13 08 fe 1a c2 64 ┆O> m :W !Q å H m d┆
0x1a060…1a080 0f 3e 1a c9 01 d7 02 cd 39 08 3e 13 c9 21 90 1f 36 01 3a 03 00 32 8e 1f 2a a4 1e 4d 06 00 21 45 ┆ > 9 > ! 6 : 2 * M !E┆
0x1a080…1a0a0 10 09 09 5e 23 56 eb e9 01 fd 1d 11 9d 1e cd 8e 1d da 97 0f cd 4f 0a 2a 9d 1e eb 2a 01 1e 19 7e ┆ ^#V O * * ü┆
0x1a0a0…1a0c0 32 8f 1f 2a 9d 1e 23 22 9d 1e c3 6d 10 cd f3 07 32 8f 1f c3 6d 10 cd 96 09 32 8f 1f c3 6d 10 21 ┆2 * #" m 2 m 2 m !┆
0x1a0c0…1a0e0 03 00 36 04 c3 e0 0f c3 6d 10 21 03 00 36 08 c3 e0 0f c3 6d 10 21 03 00 36 0c c3 e0 0f c3 6d 10 ┆ 6 m ! 6 m ! 6 m ┆
0x1a0e0…1a100 11 00 00 0e 03 cd 05 00 e6 7f 32 8f 1f c3 6d 10 c3 08 10 c3 08 10 c3 08 10 c3 08 10 c3 08 10 c3 ┆ 2 m ┆
0x1a100…1a120 08 10 c3 08 10 c3 08 10 01 e9 02 cd af 09 c3 6d 10 21 03 00 36 00 c3 32 10 c3 6d 10 21 03 00 36 ┆ m ! 6 2 m ! 6┆
0x1a120…1a140 01 c3 32 10 c3 6d 10 21 03 00 36 03 c3 32 10 c3 6d 10 21 90 1f 36 00 11 00 00 0e 01 cd 05 00 32 ┆ 2 m ! 6 2 m ! 6 2┆
0x1a140…1a160 8f 1f c3 6d 10 88 0f ad 0f b6 0f bf 0f ca 0f d5 0f e0 0f f0 0f f3 0f f6 0f f9 0f fc 0f ff 0f 02 ┆ m ┆
0x1a160…1a180 10 05 10 08 10 11 10 1c 10 27 10 32 10 3a 8e 1f 32 03 00 3a 54 1f 1f d2 92 10 3a a3 1e 32 8e 1f ┆ ' 2 : 2 :T : 2 ┆
0x1a180…1a1a0 21 a3 1e 36 13 2a 8f 1f 4d cd 45 0e 3a 8e 1f 32 a3 1e 3a 90 1f 1f d2 dc 10 3a 5e 1f 1f d2 b2 10 ┆! 6 * M E : 2 : :^ ┆
0x1a1a0…1a1c0 3a a7 1e 3c 32 a7 1e d6 00 d6 01 9f 32 90 1f c3 bd 10 3a 8f 1f d6 0a d6 01 9f 32 90 1f 3a 90 1f ┆: <2 2 : 2 : ┆
0x1a1c0…1a1e0 1f d2 dc 10 cd 7d 09 1f d2 dc 10 cd 13 08 fe 1a c2 d6 10 3e 1a c9 01 00 03 cd af 09 3a 69 1f 1f ┆ å > :i ┆
0x1a1e0…1a200 d2 eb 10 3a 8f 1f e6 7f 32 8f 1f 3a 64 1f 1f d2 fa 10 2a 8f 1f 4d cd ee 0e c9 3a 5b 1f 1f d2 09 ┆ : 2 :d * M :Æ ┆
0x1a200…1a220 (11, 1, 9) 05 96 9f c1 48 a1 c1 48 b1 1f d2 13 07 01 b0 04 cd af 09 3a 04 1e 21 5e 1f b6 77 3a a8 1e 3c 32 ┆ H H : !^ w: <2┆
0x1a220…1a240 a4 1e 3a a8 1e fe 13 c2 30 07 cd cf 15 c3 7d 07 3a a8 1e fe 14 c2 40 07 0e 1a cd 45 0e c3 7d 07 ┆ : 0 å : @ E å ┆
0x1a240…1a260 3a a8 1e d6 05 9f 21 05 1e a6 1f d2 53 07 21 57 1f 36 01 3a a3 1e fe 0a c2 7a 07 21 5d 1f 36 01 ┆: ! S !W 6 : z !Å 6 ┆
0x1a260…1a280 3a 63 1f fe 00 c2 6d 07 21 63 1f 36 08 3a 5f 1f fe 00 c2 7a 07 21 5f 1f 36 01 cd 6c 1a cd 12 19 ┆:c m !c 6 :_ z !_ 6 l ┆
0x1a280…1a2a0 01 06 1e cd 20 12 3a a9 1e d6 01 c6 ff 9f f5 3a a8 1e d6 2c c6 ff 9f f5 3a a8 1e d6 0d c6 ff 9f ┆ : : , : ┆
0x1a2a0…1a2c0 c1 48 a1 c1 48 b1 1f d2 b0 07 01 bc 04 cd af 09 3a a8 1e d6 0d c6 ff 9f 32 a7 1f c3 b3 06 3a a3 ┆ H H : 2 : ┆
0x1a2c0…1a2e0 1e fe 0f c2 ce 07 0e 1a cd 45 0e cd cf 15 3a a3 1e fe 00 c2 db 07 0e 00 cd 31 19 3a a5 1e 32 cc ┆ E : 1 : 2 ┆
0x1a2e0…1a300 1e c3 14 05 fb 76 21 f2 1d 71 21 f2 07 e5 2a 38 02 e9 c9 21 fb 07 e5 2a 36 02 e9 3a 09 01 c9 3e ┆ v! q! *8 ! *6 : >┆
0x1a300…1a320 fa cd a6 1d 3e fa cd a6 1d c9 11 00 00 0e 03 cd 05 00 c9 11 00 00 0e 01 cd 05 00 c9 21 ab 1e 71 ┆ > ! q┆
0x1a320…1a340 3a ab 1e e6 7f 5f 16 00 0e 02 cd 05 00 c9 0e 0d cd 1c 08 0e 0a cd 1c 08 c9 21 ad 1e 70 2b 71 cd ┆: _ ! p+q ┆
0x1a340…1a360 2e 08 2a ac 1e eb 0e 09 cd 05 00 c9 11 00 00 0e 0c cd 05 00 c9 11 00 00 0e 0d cd 05 00 c9 21 af ┆. * ! ┆
0x1a360…1a380 1e 71 2a af 1e 26 00 eb 0e 0e cd 05 00 c9 21 b1 1e 70 2b 71 2a b0 1e eb 0e 0f cd 05 00 32 ae 1e ┆ q* & ! p+q* 2 ┆
0x1a380…1a3a0 c9 21 b3 1e 70 2b 71 2a b2 1e eb 0e 10 cd 05 00 32 ae 1e c9 21 b5 1e 70 2b 71 2a b4 1e eb 0e 11 ┆ ! p+q* 2 ! p+q* ┆
0x1a3a0…1a3c0 cd 05 00 32 ae 1e c9 11 00 00 0e 12 cd 05 00 32 ae 1e c9 21 b7 1e 70 2b 71 2a b6 1e eb 0e 13 cd ┆ 2 2 ! p+q* ┆
0x1a3c0…1a3e0 05 00 c9 21 b9 1e 70 2b 71 2a b8 1e eb 0e 14 cd 05 00 c9 21 bb 1e 70 2b 71 2a ba 1e eb 0e 15 cd ┆ ! p+q* ! p+q* ┆
0x1a3e0…1a400 05 00 c9 21 bd 1e 70 2b 71 2a bc 1e eb 0e 16 cd 05 00 32 ae 1e c9 21 bf 1e 70 2b 71 2a be 1e eb ┆ ! p+q* 2 ! p+q* ┆
0x1a400…1a420 (12, 0, 1) 11 2a 8f 1f 4d cd 15 0f c9 3a 8f 1f c9 3e 00 21 fa 1d be d2 28 11 3a fa 1d 3d 32 fa 1d fe 01 c2 ┆ * M : > ! ( : =2 ┆
0x1a420…1a440 25 11 3e 0a c9 3e 1a c9 3e 00 21 f8 1d be d2 46 11 21 f8 1d 35 2b 4e 06 00 21 cd 1e 09 7e 32 91 ┆% > > > ! F ! 5+N ! ü2 ┆
0x1a440…1a460 1f 21 f7 1d 34 c9 cd 3c 0f 32 91 1f fe 1a c2 54 11 3e 1a c9 3e 00 21 62 1f be d2 7d 11 2a 62 1f ┆ ! 4 < 2 T > > !b å *b ┆
0x1a460…1a480 4d cd ad 11 1f d2 7a 11 21 62 1f 7e 32 f7 1d 36 00 21 f9 1d 7e 36 00 3c 2b 77 c3 a9 11 3e 00 21 ┆M z !b ü2 6 ! ü6 <+w > !┆
0x1a480…1a4a0 60 1f be d2 a5 11 2a 60 1f 4d cd ad 11 1f d2 9e 11 21 60 1f 36 00 21 fa 1d 36 02 3e 0d c9 3a 91 ┆` *` M !` 6 ! 6 > : ┆
0x1a4a0…1a4c0 1f c9 c3 a9 11 3a 91 1f c9 c3 28 11 c9 21 92 1f 71 3a f9 1d 21 92 1f 86 77 4f 06 00 21 cd 1e 09 ┆ : ( ! q: ! wO ! ┆
0x1a4c0…1a4e0 7e 32 93 1f fe 1a c2 d9 11 2a 92 1f 26 00 01 cd 1e 09 3a 91 1f 77 3e 01 c9 21 91 1f 3a 93 1f be ┆ü2 * & : w> ! : ┆
0x1a4e0…1a500 c2 ea 11 21 f9 1d 34 c3 ef 11 21 f9 1d 36 00 3e 00 c9 3a 4e 1f 3c 32 4e 1f 21 cc 1e be da 03 12 ┆ ! 4 ! 6 > :N <2N ! ┆
0x1a500…1a520 3e 0d c9 2a 4e 1f 26 00 01 cd 1e 09 4e cd ee 0e c9 cd f2 11 32 a8 1e fe 20 c2 1f 12 c3 11 12 c9 ┆> *N & N 2 ┆
0x1a520…1a540 21 96 1f 70 2b 71 21 f5 1d 36 00 21 a9 1e 36 00 2b 36 20 21 aa 1e 36 00 3a aa 1e fe 20 d2 53 12 ┆! p+q! 6 ! 6 +6 ! 6 : S ┆
0x1a540…1a560 3a aa 1e fe 0b c2 4d 12 21 a8 1e 36 00 cd 67 14 c3 38 12 cd 11 12 3a 4e 1f 32 4d 1f 2a a8 1e 4d ┆: M ! 6 g 8 :N 2M * M┆
0x1a560…1a580 cd 38 14 1f d2 70 12 cd c1 15 21 a9 1e 36 01 c9 21 94 1f 36 00 21 97 1f 36 00 3e 19 21 97 1f be ┆ 8 p ! 6 ! 6 ! 6 > ! ┆
0x1a580…1a5a0 da 95 12 2a 97 1f 26 00 01 50 1f 09 36 00 21 97 1f 34 c2 7a 12 21 f6 1d 36 00 21 f8 1d 36 00 23 ┆ * & P 6 ! 4 z ! 6 ! 6 #┆
0x1a5a0…1a5c0 36 00 23 36 00 21 aa 1e 36 00 2a a8 1e 4d cd 38 14 1f da da 12 3a aa 1e fe 08 da be 12 c9 3a a8 ┆6 #6 ! 6 * M 8 : : ┆
0x1a5c0…1a5e0 1e fe 2a c2 ce 12 0e 08 cd 87 14 c3 d1 12 cd 67 14 cd f2 11 32 a8 1e c3 aa 12 3a a8 1e fe 3a c2 ┆ * g 2 : : ┆
0x1a5e0…1a600 bf 13 3a 94 1f fe 00 ca eb 12 c9 3a aa 1e fe 01 c2 2c 13 0e 01 cd a1 14 d6 41 3c 32 94 1f 4f 3e ┆ : : , A<2 O>┆
0x1a600…1a620 (12, 0, 2) b1 f5 3a bf 1f d6 15 d6 01 9f c1 48 b1 f5 3a bf 1f d6 16 d6 01 9f c1 48 b1 1f da 22 1b 21 be 1f ┆ : H : H " ! ┆
0x1a620…1a640 36 00 21 bf 1f 34 c2 c9 1a 3a be 1f 1f d2 5f 1b cd 16 1a cd 6a 1b 1f da 59 1b cd 4f 0a cd 6a 1b ┆6 ! 4 : _ j Y O j ┆
0x1a640…1a660 1f d2 4d 1b 2a 9f 1e 22 a1 1e c3 53 1b 2a ff 1d 22 a1 1e cd c8 0a c3 33 1b cd 40 1a c3 62 1b cd ┆ M * " S * " 3 @ b ┆
0x1a660…1a680 6c 1a 2a be 1f 4d cd 31 19 c9 01 ff ff 11 9f 1e cd 93 1d b5 c6 ff 9f c9 21 00 00 22 c0 1f 22 c4 ┆l * M 1 ! " " ┆
0x1a680…1a6a0 1f cd 37 09 2a 03 1e 4d cd 5e 08 01 80 00 cd 86 09 01 5c 00 cd 94 08 21 00 00 22 c2 1f 3a ae 1e ┆ 7 * M ^ Ø ! " : ┆
0x1a6a0…1a6c0 d6 ff c6 ff 9f 01 c0 1f 11 c2 1f f5 cd 8e 1d 9f c1 48 a1 1f d2 c4 1b 2a c2 1f 23 22 c2 1f cd a7 ┆ H * #" ┆
0x1a6c0…1a6e0 08 c3 9d 1b cd 2f 09 3a ae 1e fe ff c2 e5 1b 3e 00 11 c4 1f cd 9b 1d b5 c2 e1 1b 01 39 04 cd af ┆ / : > 9 ┆
0x1a6e0…1a700 09 cd 2e 08 c9 2a c2 1f 23 22 c0 1f 3a ae 1e e6 03 87 87 87 87 87 5f 16 00 21 80 00 19 e5 1e 10 ┆ . * #" : _ ! ┆
0x1a700…1a720 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 ┆
0x1a720…1a740 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 ┆
0x1a740…1a760 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 > ! * & ┆
0x1a760…1a780 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 ┆
0x1a780…1a7a0 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 ┆
0x1a7a0…1a7c0 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 :┆
0x1a7c0…1a7e0 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 Ø ┆
0x1a7e0…1a800 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 * ┆
0x1a800…1a820 (12, 0, 3) 1a b9 d2 06 13 c9 cd 11 12 2a a8 1e 4d cd 38 14 1f d2 29 13 3a a8 1e fe 5b c2 1f 13 cd b1 14 21 ┆ * M 8 ) : Æ !┆
0x1a820…1a840 4e 1f 35 21 a9 1e 36 04 c9 c3 b1 13 3a aa 1e fe 03 ca 35 13 c9 21 a1 1f 36 ff 23 36 00 3e 14 21 ┆N 5! 6 : 5 ! 6 #6 > !┆
0x1a840…1a860 a2 1f be da b0 13 21 a0 1f 36 00 3a a0 1f 3c 32 a0 1f 4f 3e 03 91 9f 2f f5 3a a0 1f 21 a1 1f 86 ┆ ! 6 : <2 O> / : ! ┆
0x1a860…1a880 4f 06 00 21 54 02 09 e5 2a a0 1f 4d cd a1 14 e1 96 d6 01 9f c1 48 a1 1f d2 7e 13 c3 4b 13 3a a0 ┆O !T * M H ü K : ┆
0x1a880…1a8a0 1f fe 04 c2 a1 13 21 a9 1e 36 03 cd f2 11 fe 5b c2 96 13 cd b1 14 21 4e 1f 35 3a a2 1f 32 a8 1e ┆ ! 6 Æ !N 5: 2 ┆
0x1a8a0…1a8c0 c9 3a a1 1f c6 03 32 a1 1f 21 a2 1f 34 c2 3d 13 c9 3a a8 1e fe 5b c2 bc 13 cd b1 14 c3 34 14 3a ┆ : 2 ! 4 = : Æ 4 :┆
0x1a8c0…1a8e0 aa 1e fe 00 c2 c8 13 c9 21 aa 1e 36 08 3a a8 1e fe 2e c2 02 14 cd f2 11 32 a8 1e 4f cd 38 14 1f ┆ ! 6 : . 2 O 8 ┆
0x1a8e0…1a900 da 02 14 3a aa 1e fe 0b da ec 13 c9 3a a8 1e fe 2a c2 fc 13 0e 0b cd 87 14 c3 ff 13 cd 67 14 c3 ┆ : : * g ┆
0x1a900…1a920 d5 13 3a a8 1e fe 5b c2 0d 14 cd b1 14 21 4e 1f 35 21 a9 1e 36 02 3a 94 1f fe 00 c2 25 14 3a fc ┆ : Æ !N 5! 6 : % : ┆
0x1a920…1a940 1d 3c 32 94 1f 2a 95 1f 36 00 01 20 00 2a 95 1f 09 36 00 c9 c3 a5 12 c9 21 9a 1f 71 21 9b 1f 36 ┆ <2 * 6 * 6 ! q! 6┆
0x1a940…1a960 00 3e 0a 21 9b 1f be da 64 14 2a 9b 1f 26 00 01 49 02 09 3a 9a 1f be c2 5d 14 3e 01 c9 21 9b 1f ┆ > ! d * & I : Å > ! ┆
0x1a960…1a980 34 c2 41 14 3e 00 c9 3a aa 1e 3c 32 aa 1e 4f 06 00 2a 95 1f 09 3a a8 1e 77 3a a8 1e fe 3f c2 86 ┆4 A > : <2 O * : w: ? ┆
0x1a980…1a9a0 14 21 f5 1d 36 01 c9 21 9c 1f 71 21 a8 1e 36 3f 21 9c 1f 3a aa 1e be d2 a0 14 cd 67 14 c3 90 14 ┆ ! 6 ! q! 6?! : g ┆
0x1a9a0…1a9c0 c9 21 9d 1f 71 2a 9d 1f 26 00 eb 2a 95 1f 19 7e c9 21 f6 1d 36 01 3a c0 1e 32 c1 1e cd f2 11 32 ┆ ! q* & * ü ! 6 : 2 2┆
0x1a9c0…1a9e0 a8 1e 3a a8 1e d6 0d d6 01 9f f5 3a a8 1e d6 5d d6 01 9f c1 48 b1 1f da ba 15 3a a8 1e d6 41 32 ┆ : : Å H : A2┆
0x1a9e0…1aa00 9e 1f 4f 3e 19 b9 d2 03 15 3a a8 1e fe 20 c2 fa 14 cd f2 11 32 a8 1e c3 00 15 01 08 03 cd af 09 ┆ O> : 2 ┆
0x1aa00…1aa20 (12, 0, 4) 1f 44 4d 1e 21 cd 18 0a cd c6 1c c9 01 06 1e cd 20 12 3a a9 1e d6 01 d6 01 9f f5 3a a8 1e d6 3d ┆ DM ! : : =┆
0x1aa20…1aa40 d6 01 9f c1 48 a1 1f da 2d 1d cd 5c 18 3a 4e 1f 32 4f 1f c9 eb 5f 16 00 eb 1a 85 6f 13 1a 8c 67 ┆ H - Ø :N 2O _ o g┆
0x1aa40…1aa60 c9 5f 16 00 7b a5 6f 7a a4 67 c9 5e 23 56 eb 29 e5 29 29 c1 09 c9 5f 16 00 7b b5 6f 7a b4 67 c9 ┆ _ æ oz g ^#V ) )) _ æ oz g ┆
0x1aa60…1aa80 5e 23 56 eb 29 0d c2 64 1d c9 5e 23 56 eb 7c b7 1f 67 7d 1f 6f 0d c2 6e 1d c9 5f 16 00 7b 95 6f ┆^#V ) d ^#V ø gå o n _ æ o┆
0x1aa80…1aaa0 7a 9c 67 c9 4f 06 00 7b 91 6f 7a 98 67 c9 69 60 4e 23 46 1a 91 6f 13 1a 98 67 c9 6f 26 00 1a 95 ┆z g O æ oz g i`N#F o g o& ┆
0x1aaa0…1aac0 6f 13 1a 9c 67 c9 06 0c 48 0d c2 a9 1d 3d c2 a8 1d c9 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆o g H = ┆
0x1aac0…1aae0 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…]
0x1ab00…1ab20 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 ┆
0x1ab20…1ab40 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 ┆
0x1ab40…1ab60 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 > ! * & ┆
0x1ab60…1ab80 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 ┆
0x1ab80…1aba0 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 ┆
0x1aba0…1abc0 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 :┆
0x1abc0…1abe0 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 Ø ┆
0x1abe0…1ac00 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 * ┆
0x1ac00…1ac20 (12, 0, 5) c3 b7 15 3a a8 1e d6 53 d6 01 9f f5 3a a8 1e d6 51 d6 01 9f c1 48 b1 1f d2 49 15 3a 4e 1f 3c 32 ┆ : S : Q H I :N <2┆
0x1ac20…1ac40 9f 1f cd f2 11 32 a8 1e d6 1a d6 01 9f f5 3a a8 1e d6 0d d6 01 9f c1 48 b1 1f da 40 15 c3 22 15 ┆ 2 : H @ " ┆
0x1ac40…1ac60 cd f2 11 32 a8 1e c3 8d 15 cd f2 11 32 a8 1e d6 30 32 9f 1f 4f 3e 09 b9 d2 63 15 21 9f 1f 36 01 ┆ 2 2 02 O> c ! 6 ┆
0x1ac60…1ac80 c3 8d 15 cd f2 11 32 a8 1e d6 30 32 99 1f 4f 3e 09 b9 da 8d 15 2a 9f 1f 26 00 cd 4f 1d e5 2a 99 ┆ 2 02 O> * & O * ┆
0x1ac80…1aca0 1f 26 00 c1 09 eb 21 9f 1f 73 c3 63 15 2a 9e 1f 26 00 01 50 1f 09 3a 9f 1f 77 3a 9e 1f fe 06 c2 ┆ & ! s c * & P : w: ┆
0x1aca0…1acc0 b7 15 3e 1f 21 9f 1f be d2 b1 15 01 16 03 cd af 09 3a 9f 1f 32 c1 1e c3 c2 14 cd f2 11 32 a8 1e ┆ > ! : 2 2 ┆
0x1acc0…1ace0 c9 3a a8 1e fe 5f c2 ce 15 21 a8 1e 36 3d c9 21 a3 1f 36 00 3e 27 21 a3 1f be da e9 15 0e 00 cd ┆ : _ ! 6= ! 6 >'! ┆
0x1ace0…1ad00 45 0e 21 a3 1f 34 c2 d4 15 c9 21 a9 1f 70 2b 71 2a a8 1f e5 1e 03 01 30 1e cd 18 0a c9 21 ad 1f ┆E ! 4 ! p+q* 0 ! ┆
0x1ad00…1ad20 72 2b 73 2b 70 2b 71 2a ac 1f 7e fe 24 ca 37 16 2a ac 1f 3e 7f a6 2a aa 1f f5 3e 7f a6 c1 48 b9 ┆r+s+p+q* ü $ 7 * > * > H ┆
0x1ad20…1ad40 ca 26 16 3e 00 c9 2a aa 1f 23 22 aa 1f 2a ac 1f 23 22 ac 1f c3 07 16 3e 01 c9 cd 0d 11 32 a8 1e ┆ & > * #" * #" > 2 ┆
0x1ad40…1ad60 3a 5e 1f 1f d2 52 16 01 9d 1e 11 9f 1e cd 8e 1d 9f c9 3a a8 1e d6 1a d6 01 9f c9 21 af 1f 36 01 ┆:^ R : ! 6 ┆
0x1ad60…1ad80 21 9c 1e 36 00 cd 3d 17 32 b5 1f fe 3a ca 99 16 21 9c 1e 36 00 3a b5 1f fe 1a c2 93 16 01 48 03 ┆! 6 = 2 : ! 6 : H ┆
0x1ad80…1ada0 cd 39 08 cd 13 08 fe 1a c2 8e 16 3e 01 c9 21 9c 1e 36 00 cd 2d 17 c3 65 16 21 b5 1f 36 00 cd bb ┆ 9 > ! 6 - e ! 6 ┆
0x1ada0…1adc0 17 32 b4 1f fe 00 c2 c7 16 cd 3d 17 32 b4 1f fe 1a ca ba 16 cd 2d 17 c3 a9 16 3a af 1f 1f d2 c4 ┆ 2 = 2 - : ┆
0x1adc0…1ade0 16 3e 01 c9 3e 02 c9 cd c4 17 22 b7 1f cd bb 17 32 b6 1f 3a b4 1f d6 00 c6 ff 9f 21 af 1f a6 1f ┆ > > " 2 : ! ┆
0x1ade0…1ae00 d2 f0 16 21 b4 1f 35 cd bb 17 32 b3 1f c3 d3 16 cd ac 17 21 b5 1f 86 fe 00 ca 02 17 01 5c 03 cd ┆ ! 5 2 ! Ø ┆
0x1ae00…1ae20 (12, 0, 6) f9 f9 fb fb d9 f8 fb 00 f9 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x1ae20…1ae40 00 00 00 00 00 00 00 00 00 ff ff ff ff ff ff ff ff ff ff ff ff ff ff fb c4 1a 00 03 02 54 19 53 ┆ T S┆
0x1ae40…1ae60 7c 6e 64 65 72 62 6f 72 67 20 54 65 6b 6e 69 73 6b 65 20 53 6b 6f 6c 65 20 47 79 6d 6e 0e 53 6b ┆ønderborg Tekniske Skole Gymn Sk┆
0x1ae60…1ae80 6f 76 62 72 79 6e 65 74 20 20 32 36 37 61 6e 65 6d 7c 6c 6c 65 76 65 6a 20 20 38 37 08 41 74 74 ┆ovbrynet 267anemøllevej 87 Att┆
0x1ae80…1aea0 2e 20 48 54 58 67 65 6e 20 53 63 68 75 6c 74 7a 65 6e 52 61 73 6d 75 73 73 65 6e 0f 36 34 30 30 ┆. HTXgen SchultzenRasmussen 6400┆
0x1aea0…1aec0 20 53 7c 6e 64 65 72 62 6f 72 67 76 30 20 00 39 33 33 65 72 75 70 72 67 6a 01 00 06 31 20 20 4b ┆ Sønderborgv0 933eruprgj 1 K┆
0x1aec0…1aee0 65 6d 14 00 00 00 01 00 06 32 46 4e 4b 65 6d 14 00 00 00 01 00 06 32 53 20 4b 65 6d 14 00 00 00 ┆em 2FNKem 2S Kem ┆
0x1aee0…1af00 01 00 06 5c 20 20 4b 65 6d 1e 00 00 00 00 00 00 fb ff ff ff fb fb 00 00 00 00 00 00 00 fb ff ff ┆ Ø Kem ┆
0x1af00…1af20 ff fb fb 00 00 00 00 00 00 00 fb ff ff ff fb fb 00 00 00 00 00 00 00 fb ff ff ff fb fb 00 00 00 ┆ ┆
0x1af20…1af40 00 00 00 00 fb ff ff ff fb fb 00 00 00 00 00 00 00 fb ff ff ff fb fb 00 00 00 00 00 00 00 fb ff ┆ ┆
0x1af40…1af60 ff ff fb fb 00 00 00 00 00 00 00 fb ff ff ff fb fb 00 00 00 00 00 00 00 fb ff ff ff fb fb 00 00 ┆ ┆
0x1af60…1af80 00 00 00 00 00 fb ff ff ff fb fb 00 00 00 00 00 00 00 fb ff ff ff fb fb 00 00 00 00 00 00 00 fb ┆ ┆
0x1af80…1afa0 ff ff ff fb fb 00 00 00 00 00 00 00 fb ff ff ff fb fb 00 00 00 00 00 00 00 fb ff ff ff fb fb 00 ┆ ┆
0x1afa0…1afc0 00 00 00 00 00 00 fb ff ff ff fb fb 00 00 00 00 00 00 00 fb ff ff ff fb fb 00 00 00 00 00 00 00 ┆ ┆
0x1afc0…1afe0 fb ff ff ff fb fb 00 00 00 00 00 00 00 fb ff ff ff fb fb 00 00 00 00 00 00 00 fb ff ff ff fb fb ┆ ┆
0x1afe0…1b000 00 00 00 00 00 00 00 fb ff ff ff fb fb 00 00 00 00 00 00 00 fb ff ff ff fb fb 00 00 00 00 00 00 ┆ ┆
0x1b000…1b020 (12, 0, 7) 12 17 cd 2d 17 3a af 1f 1f d2 0f 17 3e 00 c9 3e 02 c9 21 b1 1f 70 2b 71 3a af 1f 1f d2 2c 17 21 ┆ - : > > ! p+q: , !┆
0x1b020…1b040 af 1f 36 00 2a b0 1f 44 4d cd 39 08 c9 3a ae 1f 1f d2 3c 17 21 ae 1f 36 00 cd 18 0e c9 3a af 1f ┆ 6 * DM 9 : < ! 6 : ┆
0x1b040…1b060 1f d2 7a 17 cd 0d 11 32 b2 1f fe 13 c2 57 17 21 ae 1f 36 01 c3 44 17 2a 9c 1e 26 00 01 4c 1e 09 ┆ z 2 W ! 6 D * & L ┆
0x1b060…1b080 3a b2 1f 77 3a 9c 1e 3c 32 9c 1e fe 4f da 76 17 01 2a 03 cd 12 17 3a b2 1f c9 3e 1a c9 cd 3d 17 ┆: w: <2 O v * : > = ┆
0x1b080…1b0a0 32 b9 1f d6 30 4f 3e 09 b9 da 92 17 3a b9 1f d6 30 c9 3a b9 1f d6 41 4f 3e 05 b9 d2 a4 17 01 3a ┆2 0O> : 0 : AO> :┆
0x1b0a0…1b0c0 03 cd 12 17 3a b9 1f d6 41 c6 0a c9 cd 7d 17 87 87 87 87 f5 cd 7d 17 c1 48 b1 c9 cd ac 17 21 b5 ┆ : A å å H ! ┆
0x1b0c0…1b0e0 1f 86 77 c9 cd bb 17 4f 06 00 60 69 0e 08 cd 64 1d e5 cd bb 17 e1 cd 56 1d c9 cd 5b 16 32 ba 1f ┆ w O `i d V Æ 2 ┆
0x1b0e0…1b100 4f 3e 01 b9 da 32 18 3a ba 1f d6 01 d6 01 9f 21 58 1f a6 1f da 1c 18 21 bb 1f 36 01 3a 9c 1e 21 ┆O> 2 : !X ! 6 : !┆
0x1b100…1b120 bb 1f be da 1c 18 3a bb 1f 3d 4f 06 00 21 4c 1e 09 4e cd 45 0e 21 bb 1f 34 c2 fc 17 0e 0d cd 45 ┆ : =O !L N E ! 4 E┆
0x1b120…1b140 0e 0e 0a cd 45 0e 3a ba 1f fe 01 c2 2f 18 c9 c3 da 17 cd 2e 08 2a 9c 1e 26 00 01 4c 1e 09 36 24 ┆ E : / . * & L 6$┆
0x1b140…1b160 01 4c 1e cd 39 08 01 6b 03 cd 39 08 cd 2e 08 cd 13 08 fe 1a c2 58 18 c9 c3 da 17 c9 01 8f 03 cd ┆ L 9 k 9 . X ┆
0x1b160…1b180 af 09 c9 2a 4b 1e 4d cd 5e 08 11 9e 03 01 30 1e cd fd 15 32 05 1e 01 30 1e c5 1e 03 01 a4 1f cd ┆ *K M ^ 0 2 0 ┆
0x1b180…1b1a0 18 0a 3a 30 1e e6 7f 32 30 1e 3a 31 1e e6 7f 32 31 1e 01 a2 03 cd ea 15 01 27 1e cd b3 08 01 27 ┆ :0 20 :1 21 ' '┆
0x1b1a0…1b1c0 1e cd e3 08 3a ae 1e fe ff c2 b2 18 01 a5 03 cd af 09 21 47 1e 36 00 21 00 00 22 a1 1e c9 21 ff ┆ : !G 6 ! " ! ┆
0x1b1c0…1b1e0 ff 22 9f 1e cd 37 09 2a 03 1e 4d cd 5e 08 01 06 1e cd 6e 08 cd 2f 09 3a 61 1f 2f f5 3a 10 1e 07 ┆ " 7 * M ^ n / :a / : ┆
0x1b1e0…1b200 c1 48 a1 1f d2 ec 18 21 ae 1e 36 ff 3a ae 1e fe ff c2 fa 18 01 b8 03 cd af 09 21 26 1e 36 00 11 ┆ H ! 6 : !& 6 ┆
0x1b200…1b400 (12, 0, 8) DataBlock {»LIS.MID«}
0x1b400…1b420 (12, 0, 9) c0 03 01 0f 1e cd fd 15 32 04 1e 2a fd 1d 22 9d 1e c9 3e 00 21 62 1f be d2 21 19 01 c4 03 cd af ┆ 2 * " > !b ! ┆
0x1b420…1b440 09 3e 00 21 60 1f be d2 30 19 01 d4 03 cd af 09 c9 21 bc 1f 71 3a bc 1f 1f d2 45 19 3a 13 1e 32 ┆ > !` 0 ! q: E : 2┆
0x1b440…1b460 34 1e c3 4a 19 21 34 1e 36 00 2a a1 1e 7d e6 7f fe 00 ca 61 19 21 34 1e 34 0e 1a cd 45 0e c3 4a ┆4 J !4 6 * å a !4 4 E J┆
0x1b460…1b480 19 cd 12 19 cd c8 0a 2a 4b 1e 4d cd 5e 08 01 27 1e cd 81 08 3a ae 1e fe ff c2 82 19 01 e3 03 cd ┆ *K M ^ ' : ┆
0x1b480…1b4a0 af 09 01 a4 1f cd ea 15 21 33 1e 36 00 01 27 1e cd 6e 08 3a ae 1e fe ff ca e9 19 3a 30 1e 07 1f ┆ !3 6 ' n : :0 ┆
0x1b4a0…1b4c0 d2 e3 19 3a 66 1f 1f da d5 19 01 01 04 cd 39 08 cd 13 08 4f cd ee 0e fe 59 ca d2 19 01 23 04 cd ┆ :f 9 O Y # ┆
0x1b4c0…1b4e0 39 08 cd 2e 08 01 33 04 cd ea 15 01 27 1e cd b3 08 c9 cd 2e 08 3a 30 1e e6 7f 32 30 1e 01 27 1e ┆9 . 3 ' . :0 20 ' ┆
0x1b4e0…1b500 cd 06 09 01 27 1e cd b3 08 01 27 1e c5 1e 10 01 37 1e cd 18 0a 01 36 04 cd ea 15 01 27 1e cd f6 ┆ ' ' 7 6 ' ┆
0x1b500…1b520 08 c9 0e 07 21 ff 1d cd 6a 1d 3e ff cd 41 1d 2b eb 21 fb 1d 73 c9 21 ca 1f 22 01 1e 01 00 40 11 ┆ ! j > A + ! s ! " @ ┆
0x1b520…1b540 ff 1d cd 93 1d da 31 1a 21 80 7f 22 ff 1d c3 3c 1a 2a fd 1d eb 2a ff 1d 19 22 ff 1d cd 02 1a c9 ┆ 1 ! " < * * " ┆
0x1b540…1b560 01 ca 1f 11 06 00 cd 93 1d 0e 01 e5 cd 6e 1d 01 ca 1f 09 22 01 1e 11 00 ff e1 cd 44 1d 0e 01 cd ┆ n " D ┆
0x1b560…1b580 6e 1d 22 fd 1d 22 ff 1d cd 02 1a c9 3a a4 1e d6 00 c6 ff 9f 21 51 1f a6 32 bd 1f 1f d2 82 1a cd ┆n " " : !Q 2 ┆
0x1b580…1b5a0 16 1a 3a 58 1f 21 57 1f b6 1f d2 93 1a cd da 17 c3 a4 1a cd 3a 16 1f da a4 1a 2a a8 1e 4d cd 45 ┆ :X !W : * M E┆
0x1b5a0…1b5c0 0e c3 93 1a 3a bd 1f 1f d2 b1 1a cd 18 0e cd 40 1a c9 cd 40 1a 3a 4f 1f 32 4d 1f cd 63 18 cd be ┆ : @ @ :O 2M c ┆
0x1b5c0…1b5e0 18 21 be 1f 36 01 23 36 00 3e 19 21 bf 1f be da 29 1b 2a bf 1f 26 00 01 50 1f 09 7e fe 00 ca 22 ┆ ! 6 #6 > ! ) * & P ü "┆
0x1b5e0…1b600 1b 3a bf 1f d6 06 d6 01 9f f5 3a bf 1f d6 0e d6 01 9f c1 48 b1 f5 3a bf 1f d6 11 d6 01 9f c1 48 ┆ : : H : H┆
0x1b600…1b800 (12, 1, 1) DataBlock {»LIS.MID«}
[…0x9…]
0x1ca00…1cc00 (13, 0, 2) DataBlock {»MINICALC.HLP«}
0x1cc00…1ce00 (13, 0, 3) DataBlock {»LIS.MID«}
0x1ce00…1d000 (13, 0, 4) DataBlock {»KASSE.MID«}
0x1d000…1d200 (13, 0, 5) DataBlock {»MINICALC.HLP«}
0x1d200…1d400 (13, 0, 6) DataBlock {»KASSE.MID«}
0x1d400…1d600 (13, 0, 7) DataBlock {»MINICALC.HLP«}
0x1d600…1d800 (13, 0, 8) DataBlock {»KASSE.MID«}
0x1d800…1da00 (13, 0, 9) DataBlock {»MINICALC.HLP«}
0x1da00…1dc00 (13, 1, 1) DataBlock {»KASSE.MID«}
0x1dc00…1de00 (13, 1, 2) DataBlock {»MINICALC.COM«}
0x1de00…1e000 (13, 1, 3) DataBlock {»KASSE.MID«}
0x1e000…1e200 (13, 1, 4) DataBlock {»MINICALC.COM«}
0x1e200…1e400 (13, 1, 5) DataBlock {»KASSE.MID«}
0x1e400…1e600 (13, 1, 6) DataBlock {»MINICALC.COM«}
0x1e600…1e800 (13, 1, 7) DataBlock {»KASSE.MID«}
0x1e800…1ea00 (13, 1, 8) DataBlock {»MINICALC.COM«}
0x1ea00…1ec00 (13, 1, 9) DataBlock {»KASSE.MID«}
0x1ec00…1ec20 (14, 0, 1) 65 20 6f 6b 27 29 3b 0d 0a 09 65 6e 64 3b 0d 0a 09 6f 6b 3a 3d 20 59 4e 20 3d 20 27 59 27 3b 0d ┆e ok'); end; ok:= YN = 'Y'; ┆
0x1ec20…1ec40 0a 09 57 52 49 54 45 28 52 45 54 55 52 2c 53 4c 45 54 45 4f 4c 29 0d 0a 65 6e 64 3b 09 7b 20 6f ┆ WRITE(RETUR,SLETEOL) end; æ o┆
0x1ec40…1ec60 6b 20 7d 0d 0a 0d 0a 70 72 6f 63 65 64 75 72 65 20 64 69 72 3b 0d 0a 76 61 72 09 69 2c 20 74 2c ┆k å procedure dir; var i, t,┆
0x1ec60…1ec80 20 72 65 74 2c 20 73 74 6b 3a 20 69 6e 74 65 67 65 72 3b 20 6e 61 76 6e 3a 20 73 74 72 69 6e 67 ┆ ret, stk: integer; navn: string┆
0x1ec80…1eca0 5b 31 32 5d 3b 0d 0a 62 65 67 69 6e 0d 0a 09 73 6c 65 74 28 30 2c 32 30 2c 30 29 3b 20 67 6f 74 ┆Æ12Å; begin slet(0,20,0); got┆
0x1eca0…1ecc0 6f 78 79 28 30 2c 30 29 3b 0d 0a 09 77 72 69 74 65 6c 6e 28 27 27 3a 32 30 2c 27 4b 61 74 61 6c ┆oxy(0,0); writeln('':20,'Katal┆
0x1ecc0…1ece0 6f 67 20 6f 76 65 72 20 6f 70 67 61 76 65 72 3a 27 29 3b 0d 0a 09 77 72 69 74 65 6c 6e 3b 0d 0a ┆og over opgaver:'); writeln; ┆
0x1ece0…1ed00 09 6d 65 6d 28 2e 24 30 30 35 63 2e 29 3a 3d 30 3b 0d 0a 09 66 6f 72 20 69 3a 3d 30 20 74 6f 20 ┆ mem(.$005c.):=0; for i:=0 to ┆
0x1ed00…1ed20 31 30 20 64 6f 20 6d 65 6d 28 2e 24 30 30 35 64 2b 69 2e 29 3a 3d 6f 72 64 28 27 3f 27 29 3b 0d ┆10 do mem(.$005d+i.):=ord('?'); ┆
0x1ed20…1ed40 0a 09 62 64 6f 73 28 32 36 2c 24 65 65 38 31 29 3b 0d 0a 09 72 65 74 3a 3d 62 64 6f 73 28 31 37 ┆ bdos(26,$ee81); ret:=bdos(17┆
0x1ed40…1ed60 2c 24 30 30 35 63 29 3b 0d 0a 09 73 74 6b 3a 3d 30 3b 0d 0a 09 72 65 70 65 61 74 0d 0a 09 09 69 ┆,$005c); stk:=0; repeat i┆
0x1ed60…1ed80 3a 3d 30 3b 20 4e 41 56 4e 3a 3d 27 27 3b 09 09 0d 0a 09 09 72 65 70 65 61 74 0d 0a 09 09 09 74 ┆:=0; NAVN:=''; repeat t┆
0x1ed80…1eda0 3a 3d 6d 65 6d 28 2e 69 2b 24 65 65 38 32 2b 72 65 74 2a 33 32 2e 29 3b 0d 0a 09 09 09 77 68 69 ┆:=mem(.i+$ee82+ret*32.); whi┆
0x1eda0…1edc0 6c 65 20 74 3e 31 32 38 20 64 6f 20 74 3a 3d 74 2d 31 32 38 3b 0d 0a 09 09 09 6e 61 76 6e 3a 3d ┆le t>128 do t:=t-128; navn:=┆
0x1edc0…1ede0 6e 61 76 6e 20 2b 20 63 68 72 28 74 29 3b 0d 0a 09 09 09 69 3a 3d 69 2b 31 3b 0d 0a 09 09 09 69 ┆navn + chr(t); i:=i+1; i┆
0x1ede0…1ee00 66 20 69 3d 38 20 74 68 65 6e 20 6e 61 76 6e 3a 3d 20 6e 61 76 6e 20 2b 20 27 2e 27 3b 0d 0a 09 ┆f i=8 then navn:= navn + '.'; ┆
0x1ee00…1f000 (14, 0, 2) DataBlock {»KONDITAL.MID«}
0x1f000…1f020 (14, 0, 3) 09 75 6e 74 69 6c 20 69 3d 31 31 3b 0d 0a 09 09 69 66 20 70 6f 73 28 27 2e 4d 49 44 27 2c 4e 41 ┆ until i=11; if pos('.MID',NA┆
0x1f020…1f040 56 4e 29 20 3e 20 30 20 54 48 45 4e 20 42 45 47 49 4e 0d 0a 09 09 09 57 52 49 54 45 28 4e 41 56 ┆VN) > 0 THEN BEGIN WRITE(NAV┆
0x1f040…1f060 4e 29 3b 20 53 54 4b 3a 3d 20 53 54 4b 2b 31 3b 0d 0a 09 09 09 69 66 20 73 74 6b 20 6d 6f 64 20 ┆N); STK:= STK+1; if stk mod ┆
0x1f060…1f080 35 3d 30 20 74 68 65 6e 20 77 72 69 74 65 6c 6e 20 65 6c 73 65 20 77 72 69 74 65 28 27 20 20 20 ┆5=0 then writeln else write(' ┆
0x1f080…1f0a0 27 29 0d 0a 09 09 45 4e 44 3b 0d 0a 09 09 72 65 74 3a 3d 62 64 6f 73 28 31 38 2c 30 29 0d 0a 09 ┆') END; ret:=bdos(18,0) ┆
0x1f0a0…1f0c0 75 6e 74 69 6c 20 72 65 74 3d 32 35 35 0d 0a 65 6e 64 3b 09 7b 20 64 69 72 20 7d 0d 0a 09 0d 0a ┆until ret=255 end; æ dir å ┆
0x1f0c0…1f0e0 70 72 6f 63 65 64 75 72 65 20 47 45 4d 48 45 4e 54 28 43 48 3a 20 43 48 41 52 29 3b 0d 0a 76 61 ┆procedure GEMHENT(CH: CHAR); va┆
0x1f0e0…1f100 72 20 6b 61 74 61 6c 6f 67 3a 20 62 6f 6f 6c 65 61 6e 3b 0d 0a 62 65 67 69 6e 0d 0a 09 67 6f 74 ┆r katalog: boolean; begin got┆
0x1f100…1f120 6f 78 79 28 30 2c 32 34 29 3b 0d 0a 09 77 72 69 74 65 28 53 4c 45 54 45 4f 4c 2c 27 27 3a 31 30 ┆oxy(0,24); write(SLETEOL,'':10┆
0x1f120…1f140 2c 27 5c 6e 73 6b 65 73 20 6b 61 74 61 6c 6f 67 20 6f 76 65 72 20 6f 70 67 61 76 65 72 27 29 3b ┆,'Ønskes katalog over opgaver');┆
0x1f140…1f160 0d 0a 09 6b 61 74 61 6c 6f 67 3a 3d 20 59 4e 20 3d 27 59 27 3b 0d 0a 09 69 66 20 6b 61 74 61 6c ┆ katalog:= YN ='Y'; if katal┆
0x1f160…1f180 6f 67 20 74 68 65 6e 20 62 65 67 69 6e 0d 0a 09 09 66 6f 72 20 69 3a 3d 20 31 20 74 6f 20 32 30 ┆og then begin for i:= 1 to 20┆
0x1f180…1f1a0 30 30 20 64 6f 20 6b 6f 70 69 73 63 72 65 65 6e 5b 49 5d 3a 3d 73 63 72 65 65 6e 5b 69 5d 3b 0d ┆00 do kopiscreenÆIÅ:=screenÆiÅ; ┆
0x1f1a0…1f1c0 0a 09 09 64 69 72 0d 0a 09 65 6e 64 3b 0d 0a 09 67 6f 74 6f 78 79 28 30 2c 32 34 29 3b 0d 0a 09 ┆ dir end; gotoxy(0,24); ┆
0x1f1c0…1f1e0 49 46 20 43 48 3d 27 47 27 20 54 48 45 4e 20 77 72 69 74 65 28 53 4c 45 54 45 4f 4c 2c 27 27 3a ┆IF CH='G' THEN write(SLETEOL,'':┆
0x1f1e0…1f200 31 30 2c 27 48 76 61 64 20 73 6b 61 6c 20 6f 70 67 61 76 65 6e 20 68 65 64 64 65 20 3f 27 29 20 ┆10,'Hvad skal opgaven hedde ?') ┆
0x1f200…1f400 (14, 0, 4) DataBlock {»KONDITAL.MID«}
0x1f400…1f420 (14, 0, 5) 45 4c 53 45 0d 0a 09 09 57 52 49 54 45 28 53 4c 45 54 45 4f 4c 2c 27 27 3a 31 30 2c 27 48 76 61 ┆ELSE WRITE(SLETEOL,'':10,'Hva┆
0x1f420…1f440 64 20 68 65 64 64 65 72 20 6f 70 67 61 76 65 6e 20 3f 20 27 29 3b 0d 0a 09 67 6f 74 6f 78 79 28 ┆d hedder opgaven ? '); gotoxy(┆
0x1f440…1f460 34 34 2c 32 34 29 3b 20 77 72 69 74 65 28 27 2e 4d 49 44 27 29 3b 0d 0a 09 72 65 70 65 61 74 0d ┆44,24); write('.MID'); repeat ┆
0x1f460…1f480 0a 09 09 66 69 6c 6e 61 76 6e 3a 3d 27 27 3b 20 66 69 6c 6e 61 76 6e 3a 3d 73 74 72 65 6e 67 28 ┆ filnavn:=''; filnavn:=streng(┆
0x1f480…1f4a0 66 69 6c 6e 61 76 6e 2c 33 36 2c 32 34 2c 38 29 3b 0d 0a 09 09 66 69 6c 6e 61 76 6e 3a 3d 20 75 ┆filnavn,36,24,8); filnavn:= u┆
0x1f4a0…1f4c0 70 63 61 73 65 28 66 69 6c 6e 61 76 6e 29 3b 20 6c 6f 76 6c 69 67 3a 3d 74 72 75 65 3b 0d 0a 09 ┆pcase(filnavn); lovlig:=true; ┆
0x1f4c0…1f4e0 09 66 6f 72 20 6a 3a 3d 20 31 20 74 6f 20 6c 65 6e 28 66 69 6c 6e 61 76 6e 29 20 64 6f 0d 0a 09 ┆ for j:= 1 to len(filnavn) do ┆
0x1f4e0…1f500 09 6c 6f 76 6c 69 67 3a 3d 20 6c 6f 76 6c 69 67 20 61 6e 64 20 28 66 69 6c 6e 61 76 6e 5b 6a 5d ┆ lovlig:= lovlig and (filnavnÆjÅ┆
0x1f500…1f520 20 69 6e 20 55 53 20 2b 20 63 69 66 66 65 72 29 3b 0d 0a 09 09 69 66 20 6e 6f 74 20 6c 6f 76 6c ┆ in US + ciffer); if not lovl┆
0x1f520…1f540 69 67 20 74 68 65 6e 20 62 65 67 69 6e 0d 0a 09 09 09 67 6f 74 6f 78 79 28 35 30 2c 32 34 29 3b ┆ig then begin gotoxy(50,24);┆
0x1f540…1f560 20 77 72 69 74 65 28 27 6b 75 6e 20 41 2e 2e 5a 2c 30 2e 2e 39 20 27 29 3b 76 65 6e 74 3b 20 42 ┆ write('kun A..Z,0..9 ');vent; B┆
0x1f560…1f580 53 28 32 35 29 0d 0a 09 09 65 6e 64 0d 0a 09 75 6e 74 69 6c 20 6c 6f 76 6c 69 67 3b 0d 0a 09 66 ┆S(25) end until lovlig; f┆
0x1f580…1f5a0 69 6c 6e 61 76 6e 3a 3d 20 66 69 6c 6e 61 76 6e 20 2b 20 27 2e 4d 49 44 27 3b 0d 0a 09 61 73 73 ┆ilnavn:= filnavn + '.MID'; ass┆
0x1f5a0…1f5c0 69 67 6e 28 46 4f 50 47 2c 66 69 6c 6e 61 76 6e 29 3b 0d 0a 09 49 46 20 43 48 3d 27 47 27 20 54 ┆ign(FOPG,filnavn); IF CH='G' T┆
0x1f5c0…1f5e0 48 45 4e 20 42 45 47 49 4e 20 72 65 77 72 69 74 65 28 46 4f 50 47 29 3b 20 77 72 69 74 65 28 46 ┆HEN BEGIN rewrite(FOPG); write(F┆
0x1f5e0…1f600 4f 50 47 2c 4f 50 47 29 20 45 4e 44 0d 0a 09 45 4c 53 45 20 42 45 47 49 4e 20 7b 24 49 2d 7d 20 ┆OPG,OPG) END ELSE BEGIN æ$I-å ┆
0x1f600…1f800 (14, 0, 6) DataBlock {»KONDITAL.MID«}
0x1f800…1f820 (14, 0, 7) 72 65 73 65 74 28 66 6f 70 67 29 3b 20 7b 24 49 2b 7d 0d 0a 09 09 69 66 20 69 6f 72 65 73 3d 30 ┆reset(fopg); æ$I+å if iores=0┆
0x1f820…1f840 20 74 68 65 6e 20 62 65 67 69 6e 20 72 65 61 64 28 66 6f 70 67 2c 6f 70 67 29 3b 20 6e 79 6f 70 ┆ then begin read(fopg,opg); nyop┆
0x1f840…1f860 67 3a 3d 66 61 6c 73 65 20 65 6e 64 0d 0a 09 09 65 6c 73 65 20 77 72 69 74 65 28 52 45 54 55 52 ┆g:=false end else write(RETUR┆
0x1f860…1f880 2c 27 27 3a 31 30 2c 27 4f 70 67 61 76 65 6e 20 66 69 6e 64 65 73 20 69 6b 6b 65 27 29 0d 0a 09 ┆,'':10,'Opgaven findes ikke') ┆
0x1f880…1f8a0 45 4e 44 3b 0d 0a 09 69 66 20 6b 61 74 61 6c 6f 67 20 61 6e 64 20 28 63 68 3d 27 47 27 29 20 74 ┆END; if katalog and (ch='G') t┆
0x1f8a0…1f8c0 68 65 6e 0d 0a 09 66 6f 72 20 69 3a 3d 20 31 20 74 6f 20 31 39 32 30 20 64 6f 20 73 63 72 65 65 ┆hen for i:= 1 to 1920 do scree┆
0x1f8c0…1f8e0 6e 5b 69 5d 3a 3d 20 6b 6f 70 69 73 63 72 65 65 6e 5b 69 5d 3b 0d 0a 09 63 6c 6f 73 65 28 46 4f ┆nÆiÅ:= kopiscreenÆiÅ; close(FO┆
0x1f8e0…1f900 50 47 29 0d 0a 65 6e 64 3b 09 7b 20 67 65 6d 68 65 6e 74 20 7d 0d 0a 0d 0a 70 72 6f 63 65 64 75 ┆PG) end; æ gemhent å procedu┆
0x1f900…1f920 72 65 20 74 65 67 6e 73 6b 65 6d 61 28 73 6f 6a 6c 65 2c 68 2c 72 3a 20 42 59 54 45 29 3b 0d 0a ┆re tegnskema(sojle,h,r: BYTE); ┆
0x1f920…1f940 70 72 6f 63 65 64 75 72 65 20 74 65 67 6e 28 73 3a 73 74 72 32 30 29 3b 0d 0a 62 65 67 69 6e 0d ┆procedure tegn(s:str20); begin ┆
0x1f940…1f960 0a 09 77 72 69 74 65 28 27 27 3a 72 68 29 3b 0d 0a 09 66 6f 72 20 6a 3a 3d 20 31 20 74 6f 20 73 ┆ write('':rh); for j:= 1 to s┆
0x1f960…1f980 6f 6a 6c 65 20 64 6f 20 77 72 69 74 65 28 63 6f 70 79 28 53 2c 31 2c 62 72 65 64 64 65 2b 31 29 ┆ojle do write(copy(S,1,bredde+1)┆
0x1f980…1f9a0 29 3b 0d 0a 09 77 72 69 74 65 6c 6e 28 27 21 27 29 0d 0a 65 6e 64 3b 0d 0a 62 65 67 69 6e 0d 0a ┆); writeln('!') end; begin ┆
0x1f9a0…1f9c0 09 62 72 65 64 64 65 3a 3d 20 28 37 39 2d 73 6f 6a 6c 65 29 20 64 69 76 20 73 6f 6a 6c 65 3b 20 ┆ bredde:= (79-sojle) div sojle; ┆
0x1f9c0…1f9e0 69 66 20 62 72 65 64 64 65 20 3e 20 31 39 20 74 68 65 6e 20 62 72 65 64 64 65 3a 3d 31 39 3b 0d ┆if bredde > 19 then bredde:=19; ┆
0x1f9e0…1fa00 0a 09 72 68 3a 3d 28 37 39 20 2d 20 73 6f 6a 6c 65 2a 28 62 72 65 64 64 65 2b 31 29 29 20 64 69 ┆ rh:=(79 - sojle*(bredde+1)) di┆
0x1fa00…1fc00 (14, 0, 8) DataBlock {»KASSE.MID«}
0x1fc00…1fe00 (14, 0, 9) DataBlock {»KONDITAL.MID«}
0x1fe00…20000 (14, 1, 1) DataBlock {»KASSE.MID«}
0x20000…20020 (14, 1, 2) 65 2d 31 3b 0d 0a 20 20 72 65 70 65 61 74 0d 0a 20 20 20 20 69 3a 3d 20 30 3b 0d 0a 20 20 20 20 ┆e-1; repeat i:= 0; ┆
0x20020…20040 72 65 70 65 61 74 0d 0a 20 20 20 20 20 20 61 6b 74 69 76 28 32 29 3b 20 65 6e 73 3a 3d 20 66 61 ┆repeat aktiv(2); ens:= fa┆
0x20040…20060 6c 73 65 3b 20 69 3a 3d 20 69 2b 31 3b 20 0d 0a 20 20 20 20 20 20 54 45 53 54 4e 41 56 4e 28 4f ┆lse; i:= i+1; TESTNAVN(O┆
0x20060…20080 50 47 2e 41 4e 41 56 4e 5b 49 5d 29 3b 20 41 52 45 4e 5b 49 5d 3a 3d 20 46 4e 41 56 4e 28 4f 50 ┆PG.ANAVNÆIÅ); ARENÆIÅ:= FNAVN(OP┆
0x20080…200a0 47 2e 41 4e 41 56 4e 5b 49 5d 29 3b 0d 0a 20 20 20 20 20 20 66 6f 72 20 6a 3a 3d 20 31 20 74 6f ┆G.ANAVNÆIÅ); for j:= 1 to┆
0x200a0…200c0 20 49 2d 31 20 64 6f 20 65 6e 73 3a 3d 20 65 6e 73 20 4f 52 20 28 41 52 45 4e 5b 6a 5d 20 3d 20 ┆ I-1 do ens:= ens OR (ARENÆjÅ = ┆
0x200c0…200e0 41 52 45 4e 5b 69 5d 29 3b 0d 0a 20 20 20 20 20 20 69 66 20 65 6e 73 20 74 68 65 6e 20 62 65 67 ┆ARENÆiÅ); if ens then beg┆
0x200e0…20100 69 6e 0d 0a 20 20 20 20 20 20 20 20 4f 50 47 2e 41 6e 61 76 6e 5b 69 5d 3a 3d 27 27 3b 20 69 3a ┆in OPG.AnavnÆiÅ:=''; i:┆
0x20100…20120 3d 20 69 2d 31 3b 20 46 45 4a 4c 28 31 29 0d 0a 20 20 20 20 20 20 65 6e 64 0d 0a 20 20 20 20 75 ┆= i-1; FEJL(1) end u┆
0x20120…20140 6e 74 69 6c 20 28 69 3d 20 6f 70 67 2e 61 73 6f 6a 6c 65 29 20 61 6e 64 20 6e 6f 74 20 65 6e 73 ┆ntil (i= opg.asojle) and not ens┆
0x20140…20160 0d 0a 20 20 75 6e 74 69 6c 20 6f 6b 28 32 29 0d 0a 65 6e 64 3b 09 7b 20 6c 61 65 73 41 68 6f 76 ┆ until ok(2) end; æ laesAhov┆
0x20160…20180 65 64 20 7d 0d 0a 0d 0a 70 72 6f 63 65 64 75 72 65 20 6c 61 65 73 41 3b 0d 0a 76 61 72 09 6f 6b ┆ed å procedure laesA; var ok┆
0x20180…201a0 61 79 3a 20 62 6f 6f 6c 65 61 6e 3b 0d 0a 62 65 67 69 6e 0d 0a 09 69 3a 3d 31 3b 20 6a 3a 3d 31 ┆ay: boolean; begin i:=1; j:=1┆
0x201a0…201c0 3b 20 6f 6b 61 79 3a 3d 20 66 61 6c 73 65 3b 20 62 6c 61 6e 6b 65 3a 3d 20 63 6f 70 79 28 74 6f ┆; okay:= false; blanke:= copy(to┆
0x201c0…201e0 6d 2c 32 2c 6c 61 6e 67 29 3b 0d 0a 09 77 69 74 68 20 6f 70 67 20 64 6f 20 72 65 70 65 61 74 0d ┆m,2,lang); with opg do repeat ┆
0x201e0…20200 0a 09 09 61 6b 74 69 76 28 31 29 3b 20 67 6f 74 6f 78 79 28 72 62 68 2b 69 2a 28 62 72 65 64 64 ┆ aktiv(1); gotoxy(rbh+i*(bredd┆
0x20200…20400 (14, 1, 3) DataBlock {»KASSE.MID«}
0x20400…20420 (14, 1, 4) 65 2b 31 29 2c 34 2b 65 6e 74 6f 2a 28 6a 2d 31 29 29 3b 0d 0a 09 09 41 5b 69 2c 6a 5d 3a 3d 6c ┆e+1),4+ento*(j-1)); AÆi,jÅ:=l┆
0x20420…20440 61 65 73 72 65 61 6c 28 41 5b 69 2c 6a 5d 2c 6d 69 6e 72 65 61 6c 2c 6d 61 78 72 65 61 6c 29 3b ┆aesreal(AÆi,jÅ,minreal,maxreal);┆
0x20440…20460 0d 0a 09 09 69 66 20 28 49 3d 61 73 6f 6a 6c 65 29 20 61 6e 64 20 28 4a 3d 72 61 6b 6b 65 29 20 ┆ if (I=asojle) and (J=rakke) ┆
0x20460…20480 74 68 65 6e 20 6f 6b 61 79 3a 3d 20 6f 6b 28 31 29 3b 0d 0a 09 09 63 61 73 65 20 63 68 20 6f 66 ┆then okay:= ok(1); case ch of┆
0x20480…204a0 0d 0a 09 09 54 49 4c 42 3a 09 49 3a 3d 20 31 20 2b 20 28 49 2b 41 53 4f 4a 4c 45 2d 32 29 20 4d ┆ TILB: I:= 1 + (I+ASOJLE-2) M┆
0x204a0…204c0 4f 44 20 41 53 4f 4a 4c 45 3b 0d 0a 09 09 52 45 54 55 52 2c 46 52 45 4d 3a 42 45 47 49 4e 20 49 ┆OD ASOJLE; RETUR,FREM:BEGIN I┆
0x204c0…204e0 46 20 49 3d 41 53 4f 4a 4c 45 20 54 48 45 4e 20 4a 3a 3d 20 4a 20 4d 4f 44 20 52 41 4b 4b 45 20 ┆F I=ASOJLE THEN J:= J MOD RAKKE ┆
0x204e0…20500 2b 31 3b 0d 0a 09 09 09 49 3a 3d 20 49 20 4d 4f 44 20 41 53 4f 4a 4c 45 20 2b 31 20 45 4e 44 3b ┆+1; I:= I MOD ASOJLE +1 END;┆
0x20500…20520 0d 0a 09 09 4f 50 3a 09 4a 3a 3d 20 31 20 2b 20 28 4a 2b 52 41 4b 4b 45 2d 32 29 20 4d 4f 44 20 ┆ OP: J:= 1 + (J+RAKKE-2) MOD ┆
0x20520…20540 52 41 4b 4b 45 3b 0d 0a 09 09 4e 45 44 3a 09 4a 3a 3d 20 4a 20 4d 4f 44 20 52 41 4b 4b 45 20 2b ┆RAKKE; NED: J:= J MOD RAKKE +┆
0x20540…20560 20 31 3b 0d 0a 09 09 45 53 43 3a 09 69 66 20 6e 6f 74 20 6f 6b 28 31 29 20 74 68 65 6e 20 62 65 ┆ 1; ESC: if not ok(1) then be┆
0x20560…20580 67 69 6e 20 69 3a 3d 31 3b 20 6a 3a 3d 31 20 65 6e 64 0d 0a 09 09 09 65 6c 73 65 20 6f 6b 61 79 ┆gin i:=1; j:=1 end else okay┆
0x20580…205a0 3a 3d 20 74 72 75 65 0d 0a 09 09 65 6e 64 0d 0a 09 75 6e 74 69 6c 20 6f 6b 61 79 0d 0a 65 6e 64 ┆:= true end until okay end┆
0x205a0…205c0 3b 09 7b 20 6c 61 65 73 41 20 7d 0d 0a 0d 0a 70 72 6f 63 65 64 75 72 65 20 73 6b 72 69 76 41 3b ┆; æ laesA å procedure skrivA;┆
0x205c0…205e0 0d 0a 62 65 67 69 6e 0d 0a 09 4c 61 65 73 41 68 6f 76 65 64 3b 0d 0a 09 66 6f 72 20 69 3a 3d 20 ┆ begin LaesAhoved; for i:= ┆
0x205e0…20600 31 20 74 6f 20 6f 70 67 2e 61 73 6f 6a 6c 65 20 64 6f 20 66 6f 72 20 6a 3a 3d 31 20 74 6f 20 6f ┆1 to opg.asojle do for j:=1 to o┆
0x20600…20800 (14, 1, 5) DataBlock {»KASSE.MID«}
0x20800…20a00 (14, 1, 6) DataBlock {»MINICALC.COM«}
0x20a00…20a20 (14, 1, 7) 76 20 32 3b 20 72 62 68 3a 3d 20 72 68 20 2d 20 62 72 65 64 64 65 3b 0d 0a 09 69 66 20 68 3d 31 ┆v 2; rbh:= rh - bredde; if h=1┆
0x20a20…20a40 20 74 68 65 6e 20 62 65 67 69 6e 20 67 6f 74 6f 78 79 28 30 2c 31 29 3b 74 65 67 6e 28 62 73 74 ┆ then begin gotoxy(0,1);tegn(bst┆
0x20a40…20a60 72 32 29 3b 74 65 67 6e 28 74 6f 6d 29 3b 74 65 67 6e 28 62 73 74 72 32 29 20 65 6e 64 3b 0d 0a ┆r2);tegn(tom);tegn(bstr2) end; ┆
0x20a60…20a80 09 67 6f 74 6f 78 79 28 30 2c 34 29 3b 0d 0a 09 66 6f 72 20 69 3a 3d 20 31 20 74 6f 20 72 20 64 ┆ gotoxy(0,4); for i:= 1 to r d┆
0x20a80…20aa0 6f 0d 0a 09 09 63 61 73 65 20 65 6e 74 6f 20 6f 66 0d 0a 09 09 09 31 3a 20 74 65 67 6e 28 74 6f ┆o case ento of 1: tegn(to┆
0x20aa0…20ac0 6d 29 3b 0d 0a 09 09 09 32 3a 20 62 65 67 69 6e 20 74 65 67 6e 28 74 6f 6d 29 3b 74 65 67 6e 28 ┆m); 2: begin tegn(tom);tegn(┆
0x20ac0…20ae0 62 73 74 72 31 29 20 65 6e 64 0d 0a 09 09 65 6e 64 3b 0d 0a 09 69 66 20 72 20 69 6e 20 5b 39 2e ┆bstr1) end end; if r in Æ9.┆
0x20ae0…20b00 2e 31 37 5d 20 74 68 65 6e 20 74 65 67 6e 28 62 73 74 72 31 29 0d 0a 65 6e 64 3b 09 7b 20 74 65 ┆.17Å then tegn(bstr1) end; æ te┆
0x20b00…20b20 67 6e 73 6b 65 6d 61 20 7d 0d 0a 0d 0a 70 72 6f 63 65 64 75 72 65 20 74 65 73 74 6e 61 76 6e 28 ┆gnskema å procedure testnavn(┆
0x20b20…20b40 76 61 72 20 6e 61 76 6e 3a 20 73 74 72 31 30 29 3b 0d 0a 56 41 52 09 48 4f 4a 53 54 31 30 3a 20 ┆var navn: str10); VAR HOJST10: ┆
0x20b40…20b60 42 59 54 45 3b 0d 0a 62 65 67 69 6e 0d 0a 09 49 46 20 4c 41 4e 47 20 3e 20 31 30 20 54 48 45 4e ┆BYTE; begin IF LANG > 10 THEN┆
0x20b60…20b80 20 48 4f 4a 53 54 31 30 3a 3d 20 31 30 20 45 4c 53 45 20 48 4f 4a 53 54 31 30 3a 3d 4c 41 4e 47 ┆ HOJST10:= 10 ELSE HOJST10:=LANG┆
0x20b80…20ba0 3b 0d 0a 09 72 65 70 65 61 74 0d 0a 09 6e 61 76 6e 3a 3d 73 74 72 65 6e 67 28 6e 61 76 6e 2c 72 ┆; repeat navn:=streng(navn,r┆
0x20ba0…20bc0 62 68 2b 49 2a 28 62 72 65 64 64 65 2b 31 29 2c 32 2c 68 6f 6a 73 74 31 30 29 3b 0d 0a 09 49 4b ┆bh+I*(bredde+1),2,hojst10); IK┆
0x20bc0…20be0 4b 45 42 4f 47 53 54 3a 3d 4e 4f 54 20 28 75 70 63 68 61 72 28 4e 41 56 4e 5b 31 5d 29 20 49 4e ┆KEBOGST:=NOT (upchar(NAVNÆ1Å) IN┆
0x20be0…20c00 20 42 4f 47 53 54 41 56 29 20 6f 72 20 28 6c 65 6e 28 6e 61 76 6e 29 3d 30 29 3b 0d 0a 09 49 46 ┆ BOGSTAV) or (len(navn)=0); IF┆
0x20c00…20e00 (14, 1, 8) DataBlock {»MINICALC.COM«}
0x20e00…20e20 (14, 1, 9) 20 49 4b 4b 45 42 4f 47 53 54 20 54 48 45 4e 20 42 45 47 49 4e 20 6e 61 76 6e 3a 3d 27 27 3b 20 ┆ IKKEBOGST THEN BEGIN navn:=''; ┆
0x20e20…20e40 46 45 4a 4c 28 33 29 20 65 6e 64 3b 0d 0a 09 6c 6f 76 6c 69 67 3a 3d 74 72 75 65 3b 0d 0a 09 66 ┆FEJL(3) end; lovlig:=true; f┆
0x20e40…20e60 6f 72 20 6a 3a 3d 20 31 20 74 6f 20 6c 65 6e 28 6e 61 76 6e 29 20 64 6f 0d 0a 09 6c 6f 76 6c 69 ┆or j:= 1 to len(navn) do lovli┆
0x20e60…20e80 67 3a 3d 20 6c 6f 76 6c 69 67 20 61 6e 64 20 28 75 70 63 68 61 72 28 6e 61 76 6e 5b 6a 5d 29 20 ┆g:= lovlig and (upchar(navnÆjÅ) ┆
0x20e80…20ea0 69 6e 20 62 6f 67 73 74 61 76 20 2b 20 63 69 66 66 65 72 20 2b 20 5b 27 2f 27 5d 29 3b 0d 0a 09 ┆in bogstav + ciffer + Æ'/'Å); ┆
0x20ea0…20ec0 69 66 20 6e 6f 74 20 6c 6f 76 6c 69 67 20 74 68 65 6e 20 62 65 67 69 6e 20 6e 61 76 6e 3a 3d 27 ┆if not lovlig then begin navn:='┆
0x20ec0…20ee0 27 3b 20 66 65 6a 6c 28 34 29 20 65 6e 64 0d 0a 75 6e 74 69 6c 20 6c 6f 76 6c 69 67 20 61 6e 64 ┆'; fejl(4) end until lovlig and┆
0x20ee0…20f00 20 6e 6f 74 20 69 6b 6b 65 62 6f 67 73 74 0d 0a 45 4e 44 3b 0d 0a 0d 0a 66 75 6e 63 74 69 6f 6e ┆ not ikkebogst END; function┆
0x20f00…20f20 20 66 6e 61 76 6e 28 73 3a 73 74 72 31 30 29 3a 73 74 72 31 30 3b 0d 0a 76 61 72 09 65 6e 68 65 ┆ fnavn(s:str10):str10; var enhe┆
0x20f20…20f40 64 3a 20 62 6f 6f 6c 65 61 6e 3b 0d 0a 62 65 67 69 6e 0d 0a 09 73 3a 3d 75 70 63 61 73 65 28 73 ┆d: boolean; begin s:=upcase(s┆
0x20f40…20f60 29 3b 20 65 6e 68 65 64 3a 3d 70 6f 73 28 27 2f 27 2c 53 29 20 3e 20 30 3b 0d 0a 09 69 66 20 65 ┆); enhed:=pos('/',S) > 0; if e┆
0x20f60…20f80 6e 68 65 64 20 74 68 65 6e 20 46 4e 41 56 4e 3a 3d 20 63 6f 70 79 28 53 2c 31 2c 70 6f 73 28 27 ┆nhed then FNAVN:= copy(S,1,pos('┆
0x20f80…20fa0 2f 27 2c 53 29 2d 31 29 20 65 6c 73 65 20 46 4e 41 56 4e 3a 3d 53 0d 0a 65 6e 64 3b 0d 0a 0d 0a ┆/',S)-1) else FNAVN:=S end; ┆
0x20fa0…20fc0 70 72 6f 63 65 64 75 72 65 20 6c 61 65 73 41 68 6f 76 65 64 3b 0d 0a 76 61 72 09 6a 3a 20 69 6e ┆procedure laesAhoved; var j: in┆
0x20fc0…20fe0 74 65 67 65 72 3b 0d 0a 62 65 67 69 6e 0d 0a 20 20 69 66 20 62 72 65 64 64 65 20 3e 20 31 30 20 ┆teger; begin if bredde > 10 ┆
0x20fe0…21000 74 68 65 6e 20 6c 61 6e 67 3a 3d 20 31 30 20 65 6c 73 65 20 6c 61 6e 67 3a 3d 20 62 72 65 64 64 ┆then lang:= 10 else lang:= bredd┆
0x21000…21200 (15, 0, 1) DataBlock {»MINICALC.COM«}
0x21200…21400 (15, 0, 2) DataBlock {»MINICALC.HLP«}
0x21400…21600 (15, 0, 3) DataBlock {»MINICALC.COM«}
0x21600…21800 (15, 0, 4) DataBlock {»KONDITAL.MID«}
0x21800…21a00 (15, 0, 5) DataBlock {»MINICALC.HLP«}
0x21a00…21c00 (15, 0, 6) DataBlock {»KONDITAL.MID«}
0x21c00…21e00 (15, 0, 7) DataBlock {»MINICALC.HLP«}
0x21e00…22000 (15, 0, 8) DataBlock {»KONDITAL.MID«}
0x22000…22200 (15, 0, 9) DataBlock {»MINICALC.HLP«}
0x22200…22400 (15, 1, 1) DataBlock {»KONDITAL.MID«}
0x22400…22600 (15, 1, 2) DataBlock {»OVERVGT.MID«}
0x22600…22800 (15, 1, 3) DataBlock {»KONDITAL.MID«}
0x22800…22a00 (15, 1, 4) DataBlock {»OVERVGT.MID«}
0x22a00…22c00 (15, 1, 5) DataBlock {»KONDITAL.MID«}
0x22c00…22e00 (15, 1, 6) DataBlock {»OVERVGT.MID«}
0x22e00…23000 (15, 1, 7) DataBlock {»KONDITAL.MID«}
0x23000…23200 (15, 1, 8) DataBlock {»OVERVGT.MID«}
0x23200…23400 (15, 1, 9) DataBlock {»KONDITAL.MID«}
0x23400…23600 (16, 0, 1) DataBlock {»MINICALC.COM«}
[…0x9…]
0x24800…24a00 (16, 1, 2) DataBlock {»OVERVGT.MID«}
0x24a00…24c00 (16, 1, 3) DataBlock {»MINICALC.COM«}
0x24c00…24e00 (16, 1, 4) DataBlock {»OVERVGT.MID«}
0x24e00…25000 (16, 1, 5) DataBlock {»MINICALC.COM«}
[…0x1…]
0x25200…25400 (16, 1, 7) DataBlock {»OVERVGT.MID«}
0x25400…25600 (16, 1, 8) DataBlock {»MINICALC.COM«}
0x25600…25800 (16, 1, 9) DataBlock {»OVERVGT.MID«}
0x25800…25a00 (17, 0, 1) DataBlock {»MINICALC.COM«}
[…0x2…]
0x25e00…25e20 (17, 0, 4) 70 67 2e 72 61 6b 6b 65 20 64 6f 20 62 65 67 69 6e 0d 0a 09 67 6f 74 6f 78 79 28 72 62 68 2b 69 ┆pg.rakke do begin gotoxy(rbh+i┆
0x25e20…25e40 2a 28 62 72 65 64 64 65 2b 31 29 2c 34 2b 65 6e 74 6f 2a 28 6a 2d 31 29 29 3b 20 77 72 69 74 65 ┆*(bredde+1),4+ento*(j-1)); write┆
0x25e40…25e60 28 4f 50 47 2e 41 5b 69 2c 6a 5d 29 20 65 6e 64 3b 0d 0a 09 4c 61 65 73 41 0d 0a 65 6e 64 3b 0d ┆(OPG.AÆi,jÅ) end; LaesA end; ┆
0x25e60…25e80 0a 0d 0a 66 75 6e 63 74 69 6f 6e 20 75 64 73 6b 72 28 69 3a 62 79 74 65 29 3a 20 62 6f 6f 6c 65 ┆ function udskr(i:byte): boole┆
0x25e80…25ea0 61 6e 3b 0d 0a 62 65 67 69 6e 0d 0a 09 67 6f 74 6f 78 79 28 30 2c 32 34 29 3b 20 77 72 69 74 65 ┆an; begin gotoxy(0,24); write┆
0x25ea0…25ec0 28 53 4c 45 54 45 4f 4c 2c 27 5c 6e 73 6b 65 73 20 27 3a 31 37 29 3b 0d 0a 09 63 61 73 65 20 69 ┆(SLETEOL,'Ønskes ':17); case i┆
0x25ec0…25ee0 20 6f 66 0d 0a 09 09 31 3a 20 77 72 69 74 65 28 27 6d 7d 6c 73 6b 65 6d 61 65 74 27 29 3b 0d 0a ┆ of 1: write('målskemaet'); ┆
0x25ee0…25f00 09 09 32 3a 20 77 72 69 74 65 28 27 66 6f 72 73 6b 72 69 66 74 65 72 6e 65 27 29 3b 0d 0a 09 09 ┆ 2: write('forskrifterne'); ┆
0x25f00…25f20 33 3a 20 77 72 69 74 65 28 27 62 65 72 65 67 6e 69 6e 67 65 72 6e 65 27 29 0d 0a 09 65 6e 64 3b ┆3: write('beregningerne') end;┆
0x25f20…25f40 0d 0a 09 77 72 69 74 65 28 27 20 70 7d 20 70 72 69 6e 74 65 72 27 29 3b 20 75 64 73 6b 72 3a 3d ┆ write(' på printer'); udskr:=┆
0x25f40…25f60 20 59 4e 20 3d 20 27 59 27 0d 0a 65 6e 64 3b 0d 0a 0d 0a 70 72 6f 63 65 64 75 72 65 20 6d 61 61 ┆ YN = 'Y' end; procedure maa┆
0x25f60…25f80 6c 3b 0d 0a 62 65 67 69 6e 0d 0a 20 20 67 6f 74 6f 78 79 28 30 2c 30 29 3b 20 77 72 69 74 65 28 ┆l; begin gotoxy(0,0); write(┆
0x25f80…25fa0 53 4c 45 54 45 4f 4c 2c 27 4d 7d 6c 65 73 6b 65 6d 61 3a 27 3a 34 35 29 3b 0d 0a 20 20 69 66 20 ┆SLETEOL,'Måleskema:':45); if ┆
0x25fa0…25fc0 6e 6f 74 20 6e 79 6f 70 67 20 74 68 65 6e 20 62 65 67 69 6e 0d 0a 20 20 20 20 67 6f 74 6f 78 79 ┆not nyopg then begin gotoxy┆
0x25fc0…25fe0 28 30 2c 32 34 29 3b 20 77 72 69 74 65 28 53 4c 45 54 45 4f 4c 2c 27 27 3a 31 30 2c 27 6e 79 74 ┆(0,24); write(SLETEOL,'':10,'nyt┆
0x25fe0…26000 20 6d 7d 6c 65 73 6b 65 6d 61 27 29 3b 20 6e 79 6f 70 67 3a 3d 20 59 4e 20 3d 20 27 59 27 3b 0d ┆ måleskema'); nyopg:= YN = 'Y'; ┆
0x26000…26200 (17, 0, 5) DataBlock {»MINICALC.COM«}
0x26200…26220 (17, 0, 6) 0a 20 20 65 6e 64 3b 0d 0a 20 20 69 66 20 6e 79 6f 70 67 20 74 68 65 6e 20 6e 75 6c 73 74 69 6c ┆ end; if nyopg then nulstil┆
0x26220…26240 3b 0d 0a 20 20 67 6f 74 6f 78 79 28 31 30 2c 32 34 29 3b 0d 0a 20 20 77 69 74 68 20 6f 70 67 20 ┆; gotoxy(10,24); with opg ┆
0x26240…26260 64 6f 20 62 65 67 69 6e 0d 0a 20 20 20 20 77 72 69 74 65 28 53 4c 45 54 45 4f 4c 2c 27 41 6e 74 ┆do begin write(SLETEOL,'Ant┆
0x26260…26280 61 6c 20 73 7c 6a 6c 65 72 28 31 2e 2e 27 2c 4d 41 58 53 4f 4a 4c 45 2c 27 29 20 3a 20 27 2c 61 ┆al søjler(1..',MAXSOJLE,') : ',a┆
0x26280…262a0 73 6f 6a 6c 65 2c 54 49 4c 42 29 3b 0d 0a 20 20 20 20 41 73 6f 6a 6c 65 3a 3d 20 6c 61 65 73 69 ┆sojle,TILB); Asojle:= laesi┆
0x262a0…262c0 6e 74 28 61 73 6f 6a 6c 65 2c 31 2c 4d 41 58 53 4f 4a 4c 45 29 3b 0d 0a 20 20 20 20 67 6f 74 6f ┆nt(asojle,1,MAXSOJLE); goto┆
0x262c0…262e0 78 79 28 34 30 2c 32 34 29 3b 0d 0a 20 20 20 20 77 72 69 74 65 28 27 2c 20 41 6e 74 61 6c 20 72 ┆xy(40,24); write(', Antal r┆
0x262e0…26300 7b 6b 6b 65 72 28 31 2e 2e 27 2c 4d 41 58 52 41 4b 4b 45 2c 27 29 20 3a 20 27 2c 72 61 6b 6b 65 ┆ækker(1..',MAXRAKKE,') : ',rakke┆
0x26300…26320 2c 54 49 4c 42 29 3b 0d 0a 20 20 20 20 69 66 20 72 61 6b 6b 65 3e 39 20 74 68 65 6e 20 77 72 69 ┆,TILB); if rakke>9 then wri┆
0x26320…26340 74 65 28 54 49 4c 42 29 3b 0d 0a 20 20 20 20 72 61 6b 6b 65 3a 3d 20 6c 61 65 73 69 6e 74 28 72 ┆te(TILB); rakke:= laesint(r┆
0x26340…26360 61 6b 6b 65 2c 31 2c 4d 41 58 52 41 4b 4b 45 29 3b 0d 0a 20 20 20 20 69 66 20 72 61 6b 6b 65 3c ┆akke,1,MAXRAKKE); if rakke<┆
0x26360…26380 39 20 74 68 65 6e 20 65 6e 74 6f 3a 3d 32 20 65 6c 73 65 20 65 6e 74 6f 3a 3d 31 3b 0d 0a 20 20 ┆9 then ento:=2 else ento:=1; ┆
0x26380…263a0 20 20 53 4c 45 54 28 31 2c 32 30 2c 30 29 3b 0d 0a 20 20 20 20 49 46 20 52 41 4b 4b 45 20 3d 20 ┆ SLET(1,20,0); IF RAKKE = ┆
0x263a0…263c0 31 37 20 54 48 45 4e 20 53 4c 45 54 28 32 31 2c 32 31 2c 30 29 3b 0d 0a 20 20 20 20 54 45 47 4e ┆17 THEN SLET(21,21,0); TEGN┆
0x263c0…263e0 53 4b 45 4d 41 28 41 73 6f 6a 6c 65 2c 31 2c 72 61 6b 6b 65 29 0d 0a 20 20 65 6e 64 3b 0d 0a 20 ┆SKEMA(Asojle,1,rakke) end; ┆
0x263e0…26400 20 69 66 20 6e 79 6f 70 67 20 74 68 65 6e 20 20 62 65 67 69 6e 20 6c 61 65 73 41 68 6f 76 65 64 ┆ if nyopg then begin laesAhoved┆
0x26400…26600 (17, 0, 7) DataBlock {»MINICALC.COM«}
0x26600…26620 (17, 0, 8) 3b 20 6c 61 65 73 41 20 65 6e 64 20 65 6c 73 65 20 73 6b 72 69 76 41 3b 0d 0a 20 20 69 66 20 70 ┆; laesA end else skrivA; if p┆
0x26620…26640 72 69 6e 74 65 72 20 74 68 65 6e 20 69 66 20 75 64 73 6b 72 28 31 29 20 74 68 65 6e 20 73 6b 72 ┆rinter then if udskr(1) then skr┆
0x26640…26660 69 76 73 6b 61 72 6d 28 30 2c 65 6e 74 6f 2a 6f 70 67 2e 72 61 6b 6b 65 2b 34 29 3b 0d 0a 20 20 ┆ivskarm(0,ento*opg.rakke+4); ┆
0x26660…26680 6e 79 6f 70 67 3a 3d 66 61 6c 73 65 0d 0a 65 6e 64 3b 09 7b 20 6d 61 61 6c 20 7d 0d 0a 0d 0a 70 ┆nyopg:=false end; æ maal å p┆
0x26680…266a0 72 6f 63 65 64 75 72 65 20 6c 61 65 73 42 68 6f 76 65 64 3b 0d 0a 62 65 67 69 6e 0d 0a 20 20 73 ┆rocedure laesBhoved; begin s┆
0x266a0…266c0 6c 65 74 28 31 30 2c 32 30 2c 30 29 3b 0d 0a 20 20 46 4f 52 20 49 3a 3d 20 31 20 54 4f 20 32 30 ┆let(10,20,0); FOR I:= 1 TO 20┆
0x266c0…266e0 30 30 20 44 4f 20 4b 4f 50 49 53 43 52 45 45 4e 5b 49 5d 3a 3d 53 43 52 45 45 4e 5b 49 5d 3b 0d ┆00 DO KOPISCREENÆIÅ:=SCREENÆIÅ; ┆
0x266e0…26700 0a 20 20 53 4c 45 54 28 30 2c 34 2c 30 29 3b 0d 0a 20 20 46 4f 52 20 49 3a 3d 20 33 32 31 20 54 ┆ SLET(0,4,0); FOR I:= 321 T┆
0x26700…26720 4f 20 31 31 32 30 20 44 4f 20 53 43 52 45 45 4e 5b 49 5d 3a 3d 4b 4f 50 49 53 43 52 45 45 4e 5b ┆O 1120 DO SCREENÆIÅ:=KOPISCREENÆ┆
0x26720…26740 49 2d 33 32 30 5d 3b 0d 0a 20 20 67 6f 74 6f 78 79 28 30 2c 30 29 3b 20 77 72 69 74 65 28 27 42 ┆I-320Å; gotoxy(0,0); write('B┆
0x26740…26760 65 72 65 67 6e 69 6e 67 73 73 6b 65 6d 61 3a 27 3a 34 38 29 3b 0d 0a 20 20 67 6f 74 6f 78 79 28 ┆eregningsskema:':48); gotoxy(┆
0x26760…26780 30 2c 32 34 29 3b 0d 0a 20 20 77 72 69 74 65 28 53 4c 45 54 45 4f 4c 2c 27 27 3a 31 30 2c 27 41 ┆0,24); write(SLETEOL,'':10,'A┆
0x26780…267a0 6e 74 61 6c 20 73 7c 6a 6c 65 72 28 31 2e 2e 27 2c 4d 41 58 53 4f 4a 4c 45 2c 27 29 20 3a 20 27 ┆ntal søjler(1..',MAXSOJLE,') : '┆
0x267a0…267c0 2c 6f 70 67 2e 62 73 6f 6a 6c 65 2c 54 49 4c 42 29 3b 0d 0a 20 20 6f 70 67 2e 62 73 6f 6a 6c 65 ┆,opg.bsojle,TILB); opg.bsojle┆
0x267c0…267e0 3a 3d 20 6c 61 65 73 69 6e 74 28 6f 70 67 2e 62 73 6f 6a 6c 65 2c 31 2c 4d 41 58 53 4f 4a 4c 45 ┆:= laesint(opg.bsojle,1,MAXSOJLE┆
0x267e0…26800 29 3b 0d 0a 20 20 54 45 47 4e 53 4b 45 4d 41 28 6f 70 67 2e 62 73 6f 6a 6c 65 2c 31 2c 30 29 3b ┆); TEGNSKEMA(opg.bsojle,1,0);┆
0x26800…26a00 (17, 0, 9) DataBlock {»MINICALC.COM«}
0x26a00…26a20 (17, 1, 1) 0d 0a 20 20 6c 61 6e 67 3a 3d 20 62 72 65 64 64 65 2d 31 3b 20 69 66 20 6c 61 6e 67 20 3e 31 32 ┆ lang:= bredde-1; if lang >12┆
0x26a20…26a40 20 74 68 65 6e 20 6c 61 6e 67 3a 3d 31 32 3b 0d 0a 20 20 77 69 74 68 20 6f 70 67 20 64 6f 20 72 ┆ then lang:=12; with opg do r┆
0x26a40…26a60 65 70 65 61 74 0d 0a 20 20 20 20 69 3a 3d 20 30 3b 0d 0a 20 20 20 20 72 65 70 65 61 74 0d 0a 20 ┆epeat i:= 0; repeat ┆
0x26a60…26a80 20 20 20 20 20 61 6b 74 69 76 28 32 29 3b 20 65 6e 73 3a 3d 20 66 61 6c 73 65 3b 20 69 3a 3d 20 ┆ aktiv(2); ens:= false; i:= ┆
0x26a80…26aa0 69 2b 31 3b 0d 0a 20 20 20 20 20 20 54 45 53 54 4e 41 56 4e 28 62 6e 61 76 6e 5b 49 5d 29 3b 20 ┆i+1; TESTNAVN(bnavnÆIÅ); ┆
0x26aa0…26ac0 42 52 45 4e 5b 49 5d 3a 3d 46 4e 41 56 4e 28 42 4e 41 56 4e 5b 49 5d 29 3b 0d 0a 20 20 20 20 20 ┆BRENÆIÅ:=FNAVN(BNAVNÆIÅ); ┆
0x26ac0…26ae0 20 66 6f 72 20 6a 3a 3d 20 31 20 74 6f 20 61 73 6f 6a 6c 65 20 64 6f 20 65 6e 73 3a 3d 20 65 6e ┆ for j:= 1 to asojle do ens:= en┆
0x26ae0…26b00 73 20 4f 52 20 28 41 52 45 4e 5b 6a 5d 20 3d 20 42 52 45 4e 5b 69 5d 29 3b 0d 0a 20 20 20 20 20 ┆s OR (ARENÆjÅ = BRENÆiÅ); ┆
0x26b00…26b20 20 66 6f 72 20 6a 3a 3d 20 31 20 74 6f 20 49 2d 31 20 64 6f 20 65 6e 73 3a 3d 20 65 6e 73 20 4f ┆ for j:= 1 to I-1 do ens:= ens O┆
0x26b20…26b40 52 20 28 42 52 45 4e 5b 6a 5d 20 3d 20 42 52 45 4e 5b 69 5d 29 3b 0d 0a 20 20 20 20 20 20 69 66 ┆R (BRENÆjÅ = BRENÆiÅ); if┆
0x26b40…26b60 20 65 6e 73 20 74 68 65 6e 20 62 65 67 69 6e 0d 0a 20 20 20 20 20 20 20 20 42 6e 61 76 6e 5b 69 ┆ ens then begin BnavnÆi┆
0x26b60…26b80 5d 3a 3d 27 27 3b 20 69 3a 3d 20 69 2d 31 3b 20 46 45 4a 4c 28 31 29 0d 0a 20 20 20 20 20 20 65 ┆Å:=''; i:= i-1; FEJL(1) e┆
0x26b80…26ba0 6e 64 20 0d 0a 20 20 20 20 75 6e 74 69 6c 20 28 69 3d 20 62 73 6f 6a 6c 65 29 20 61 6e 64 20 6e ┆nd until (i= bsojle) and n┆
0x26ba0…26bc0 6f 74 20 65 6e 73 0d 0a 20 20 75 6e 74 69 6c 20 6f 6b 28 32 29 0d 0a 65 6e 64 3b 09 7b 20 6c 61 ┆ot ens until ok(2) end; æ la┆
0x26bc0…26be0 65 73 42 68 6f 76 65 64 20 7d 0d 0a 0d 0a 70 72 6f 63 65 64 75 72 65 20 6c 61 65 73 46 3b 0d 0a ┆esBhoved å procedure laesF; ┆
0x26be0…26c00 56 41 52 09 50 56 45 4e 53 54 52 45 2c 50 48 4f 4a 52 45 3a 20 42 59 54 45 3b 0d 0a 62 65 67 69 ┆VAR PVENSTRE,PHOJRE: BYTE; begi┆
0x26c00…26c20 (17, 1, 2) 5d 29 3b 0d 0a 09 09 53 54 52 28 42 4a 4b 3a 31 34 2c 4f 50 47 2e 42 5b 4a 2c 4b 5d 29 0d 0a 09 ┆Å); STR(BJK:14,OPG.BÆJ,KÅ) ┆
0x26c20…26c40 09 45 4e 44 20 45 4c 53 45 20 42 45 47 49 4e 0d 0a 09 09 09 57 52 49 54 45 28 66 65 6a 6c 6e 61 ┆ END ELSE BEGIN WRITE(fejlna┆
0x26c40…26c60 76 6e 5b 66 65 6a 6c 61 72 74 5d 29 3b 20 4f 50 47 2e 42 5b 4a 2c 4b 5d 3a 3d 27 3f 27 0d 0a 09 ┆vnÆfejlartÅ); OPG.BÆJ,KÅ:='?' ┆
0x26c60…26c80 09 45 4e 44 0d 0a 09 45 4e 44 0d 0a 45 4e 44 3b 0d 0a 65 6e 64 0d 0a 65 6e 64 3b 09 7b 20 72 65 ┆ END END END; end end; æ re┆
0x26c80…26ca0 67 6e 42 20 7d 0d 0a 0d 0a 70 72 6f 63 65 64 75 72 65 20 66 75 6e 6b 74 69 6f 6e 42 3b 0d 0a 62 ┆gnB å procedure funktionB; b┆
0x26ca0…26cc0 65 67 69 6e 0d 0a 09 4c 61 65 73 42 68 6f 76 65 64 3b 20 4c 61 65 73 46 0d 0a 65 6e 64 3b 0d 0a ┆egin LaesBhoved; LaesF end; ┆
0x26cc0…26ce0 09 09 0d 0a 70 72 6f 63 65 64 75 72 65 20 62 65 72 65 67 6e 42 3b 0d 0a 62 65 67 69 6e 0d 0a 66 ┆ procedure beregnB; begin f┆
0x26ce0…26d00 6f 72 20 69 3a 3d 20 31 20 74 6f 20 6f 70 67 2e 62 73 6f 6a 6c 65 20 64 6f 20 62 65 67 69 6e 20 ┆or i:= 1 to opg.bsojle do begin ┆
0x26d00…26d20 46 4f 52 4d 5b 49 5d 3a 3d 27 45 27 2b 43 48 52 28 34 33 2b 4c 41 4e 47 29 3b 20 44 45 43 5b 49 ┆FORMÆIÅ:='E'+CHR(43+LANG); DECÆI┆
0x26d20…26d40 5d 3a 3d 4c 41 4e 47 20 65 6e 64 3b 0d 0a 72 65 70 65 61 74 0d 0a 09 72 65 67 6e 42 3b 0d 0a 09 ┆Å:=LANG end; repeat regnB; ┆
0x26d40…26d60 69 66 20 70 72 69 6e 74 65 72 20 74 68 65 6e 20 69 66 20 75 64 73 6b 72 28 33 29 20 74 68 65 6e ┆if printer then if udskr(3) then┆
0x26d60…26d80 20 73 6b 72 69 76 73 6b 61 72 6d 28 30 2c 65 6e 74 6f 2a 6f 70 67 2e 72 61 6b 6b 65 2b 34 29 3b ┆ skrivskarm(0,ento*opg.rakke+4);┆
0x26d80…26da0 0d 0a 09 6e 79 74 66 6f 72 6d 61 74 0d 0a 75 6e 74 69 6c 20 6e 6f 74 20 6e 79 74 66 3b 0d 0a 7b ┆ nytformat until not nytf; æ┆
0x26da0…26dc0 09 63 6c 6f 73 65 6c 09 09 7d 0d 0a 65 6e 64 3b 09 7b 20 62 65 72 65 67 6e 42 20 7d 0d 0a 0d 0a ┆ closel å end; æ beregnB å ┆
0x26dc0…26de0 70 72 6f 63 65 64 75 72 65 20 68 65 6e 74 68 6a 61 65 6c 70 3b 0d 0a 56 41 52 09 46 55 4e 44 45 ┆procedure henthjaelp; VAR FUNDE┆
0x26de0…26e00 54 3a 09 42 4f 4f 4c 45 41 4e 3b 20 49 4e 44 46 3a 54 45 58 54 3b 0d 0a 0d 0a 42 45 47 49 4e 0d ┆T: BOOLEAN; INDF:TEXT; BEGIN ┆
0x26e00…26e20 (17, 1, 3) 6e 0d 0a 20 20 73 6c 65 74 28 31 30 2c 32 30 2c 30 29 3b 0d 0a 20 20 77 69 74 68 20 6f 70 67 20 ┆n slet(10,20,0); with opg ┆
0x26e20…26e40 64 6f 20 72 65 70 65 61 74 0d 0a 20 20 20 20 66 6f 72 20 4a 3a 3d 20 31 20 74 6f 20 42 73 6f 6a ┆do repeat for J:= 1 to Bsoj┆
0x26e40…26e60 6c 65 20 64 6f 20 62 65 67 69 6e 0d 0a 20 20 20 20 20 20 52 45 50 45 41 54 0d 0a 20 20 20 20 20 ┆le do begin REPEAT ┆
0x26e60…26e80 20 20 20 41 6b 74 69 76 28 32 29 3b 0d 0a 20 20 20 20 20 20 20 20 67 6f 74 6f 78 79 28 35 2c 31 ┆ Aktiv(2); gotoxy(5,1┆
0x26e80…26ea0 30 2b 4a 29 3b 20 4c 4f 56 4c 49 47 3a 3d 20 54 52 55 45 3b 20 50 76 65 6e 73 74 72 65 3a 3d 30 ┆0+J); LOVLIG:= TRUE; Pvenstre:=0┆
0x26ea0…26ec0 3b 20 50 68 6f 6a 72 65 3a 3d 30 3b 0d 0a 20 20 20 20 20 20 20 20 77 72 69 74 65 28 53 4c 45 54 ┆; Phojre:=0; write(SLET┆
0x26ec0…26ee0 45 4f 4c 2c 27 46 6f 72 73 6b 72 69 66 74 2c 20 27 2c 20 42 52 45 4e 5b 4a 5d 2c 27 20 3a 3d 20 ┆EOL,'Forskrift, ', BRENÆJÅ,' := ┆
0x26ee0…26f00 27 29 3b 0d 0a 20 20 20 20 20 20 20 20 46 5b 4a 5d 3a 3d 20 73 74 72 65 6e 67 28 46 5b 4a 5d 2c ┆'); FÆJÅ:= streng(FÆJÅ,┆
0x26f00…26f20 33 30 2c 31 30 2b 4a 2c 34 39 29 3b 20 46 5b 4a 5d 3a 3d 20 55 50 43 41 53 45 28 46 5b 4a 5d 29 ┆30,10+J,49); FÆJÅ:= UPCASE(FÆJÅ)┆
0x26f20…26f40 3b 0d 0a 20 20 20 20 20 20 20 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 4c 45 4e 28 46 5b 4a 5d 29 ┆; FOR I:=1 TO LEN(FÆJÅ)┆
0x26f40…26f60 20 44 4f 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 4c 4f 56 4c 49 47 3a 3d 28 46 5b ┆ DO BEGIN LOVLIG:=(FÆ┆
0x26f60…26f80 4a 5d 5b 49 5d 20 49 4e 20 42 4f 47 53 54 41 56 2b 43 49 46 46 45 52 2b 4f 50 45 52 41 54 4f 52 ┆JÅÆIÅ IN BOGSTAV+CIFFER+OPERATOR┆
0x26f80…26fa0 29 20 41 4e 44 20 4c 4f 56 4c 49 47 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 50 56 45 4e 53 54 52 ┆) AND LOVLIG; PVENSTR┆
0x26fa0…26fc0 45 3a 3d 20 50 56 45 4e 53 54 52 45 2b 50 4f 53 28 27 28 27 2c 46 5b 4a 5d 5b 49 5d 29 3b 0d 0a ┆E:= PVENSTRE+POS('(',FÆJÅÆIÅ); ┆
0x26fc0…26fe0 20 20 20 20 20 20 20 20 20 20 50 48 4f 4a 52 45 3a 3d 20 50 48 4f 4a 52 45 2b 50 4f 53 28 27 29 ┆ PHOJRE:= PHOJRE+POS(')┆
0x26fe0…27000 27 2c 46 5b 4a 5d 5b 49 5d 29 0d 0a 20 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 20 20 ┆',FÆJÅÆIÅ) END; ┆
0x27000…27020 (17, 1, 4) 0a 41 53 53 49 47 4e 28 49 4e 44 46 2c 27 4d 49 4e 49 43 41 4c 43 2e 48 4c 50 27 29 3b 20 7b 24 ┆ ASSIGN(INDF,'MINICALC.HLP'); æ$┆
0x27020…27040 49 2d 7d 20 52 45 53 45 54 28 49 4e 44 46 29 3b 20 7b 24 49 2b 7d 0d 0a 46 55 4e 44 45 54 3a 3d ┆I-å RESET(INDF); æ$I+å FUNDET:=┆
0x27040…27060 20 49 4f 52 45 53 20 3d 20 30 3b 0d 0a 49 46 20 4e 4f 54 20 46 55 4e 44 45 54 20 54 48 45 4e 20 ┆ IORES = 0; IF NOT FUNDET THEN ┆
0x27060…27080 42 45 47 49 4e 0d 0a 09 47 4f 54 4f 58 59 28 30 2c 32 34 29 3b 0d 0a 09 57 52 49 54 45 28 53 4c ┆BEGIN GOTOXY(0,24); WRITE(SL┆
0x27080…270a0 45 54 45 4f 4c 2c 27 27 3a 31 30 2c 27 4d 49 4e 49 43 41 4c 43 2e 48 4c 50 20 66 69 6e 64 65 73 ┆ETEOL,'':10,'MINICALC.HLP findes┆
0x270a0…270c0 20 69 6b 6b 65 20 70 7d 20 64 69 73 6b 65 74 74 65 6e 27 29 3b 0d 0a 09 56 45 4e 54 3b 20 42 53 ┆ ikke på disketten'); VENT; BS┆
0x270c0…270e0 28 34 37 29 0d 0a 45 4e 44 20 45 4c 53 45 20 42 45 47 49 4e 0d 0a 09 46 4f 52 20 49 3a 3d 20 31 ┆(47) END ELSE BEGIN FOR I:= 1┆
0x270e0…27100 20 54 4f 20 32 30 30 30 20 44 4f 20 4b 4f 50 49 53 43 52 45 45 4e 5b 49 5d 3a 3d 53 43 52 45 45 ┆ TO 2000 DO KOPISCREENÆIÅ:=SCREE┆
0x27100…27120 4e 5b 49 5d 3b 0d 0a 09 47 4f 54 4f 58 59 28 30 2c 30 29 3b 20 57 52 49 54 45 28 53 4c 45 54 45 ┆NÆIÅ; GOTOXY(0,0); WRITE(SLETE┆
0x27120…27140 4f 53 29 3b 0d 0a 09 57 52 49 54 45 4c 4e 28 27 27 3a 31 30 2c 27 44 75 20 6b 61 6e 20 6e 75 20 ┆OS); WRITELN('':10,'Du kan nu ┆
0x27140…27160 62 6c 61 64 72 65 20 76 65 6a 6c 65 64 6e 69 6e 67 65 6e 20 69 67 65 6e 6e 65 6d 2e 27 29 3b 0d ┆bladre vejledningen igennem.'); ┆
0x27160…27180 0a 09 57 52 49 54 45 4c 4e 28 27 27 3a 31 30 2c 27 53 70 61 63 65 20 65 6c 6c 65 72 20 72 65 74 ┆ WRITELN('':10,'Space eller ret┆
0x27180…271a0 75 72 6e 20 67 69 76 65 72 20 64 65 20 31 32 20 6e 7b 73 74 65 20 6c 69 6e 69 65 72 27 29 3b 0d ┆urn giver de 12 næste linier'); ┆
0x271a0…271c0 0a 09 77 72 69 74 65 6c 6e 28 27 27 3a 31 30 2c 27 50 49 4c 20 6f 70 20 65 6c 6c 65 72 20 6e 65 ┆ writeln('':10,'PIL op eller ne┆
0x271c0…271e0 64 20 73 74 61 72 74 65 72 20 76 65 6a 6c 65 64 6e 69 6e 67 65 6e 20 66 6f 72 66 72 61 2e 27 29 ┆d starter vejledningen forfra.')┆
0x271e0…27200 3b 0d 0a 09 77 72 69 74 65 6c 6e 28 27 27 3a 31 30 2c 27 45 53 43 20 61 66 62 72 79 64 65 72 20 ┆; writeln('':10,'ESC afbryder ┆
0x27200…27220 (17, 1, 5) 20 20 4c 4f 56 4c 49 47 3a 3d 20 4c 4f 56 4c 49 47 20 41 4e 44 20 28 50 56 45 4e 53 54 52 45 20 ┆ LOVLIG:= LOVLIG AND (PVENSTRE ┆
0x27220…27240 3d 20 50 48 4f 4a 52 45 29 3b 0d 0a 20 20 20 20 20 20 20 20 49 46 20 4e 4f 54 20 4c 4f 56 4c 49 ┆= PHOJRE); IF NOT LOVLI┆
0x27240…27260 47 20 54 48 45 4e 20 46 45 4a 4c 28 32 29 0d 0a 20 20 20 20 20 20 55 4e 54 49 4c 20 4c 4f 56 4c ┆G THEN FEJL(2) UNTIL LOVL┆
0x27260…27280 49 47 0d 0a 20 20 20 20 65 6e 64 0d 0a 20 20 75 6e 74 69 6c 20 6f 6b 28 33 29 3b 0d 0a 20 20 69 ┆IG end until ok(3); i┆
0x27280…272a0 66 20 70 72 69 6e 74 65 72 20 74 68 65 6e 20 69 66 20 75 64 73 6b 72 28 32 29 20 74 68 65 6e 20 ┆f printer then if udskr(2) then ┆
0x272a0…272c0 73 6b 72 69 76 73 6b 61 72 6d 28 31 30 2c 31 30 2b 4f 50 47 2e 62 73 6f 6a 6c 65 29 20 0d 0a 45 ┆skrivskarm(10,10+OPG.bsojle) E┆
0x272c0…272e0 4e 44 3b 09 7b 20 6c 61 65 73 46 20 7d 0d 0a 0d 0a 70 72 6f 63 65 64 75 72 65 20 6e 79 74 66 6f ┆ND; æ laesF å procedure nytfo┆
0x272e0…27300 72 6d 61 74 3b 0d 0a 62 65 67 69 6e 0d 0a 67 6f 74 6f 78 79 28 30 2c 32 34 29 3b 20 77 72 69 74 ┆rmat; begin gotoxy(0,24); writ┆
0x27300…27320 65 28 53 4c 45 54 45 4f 4c 2c 27 27 3a 31 30 2c 27 5b 6e 64 72 65 74 20 66 6f 72 6d 61 74 20 69 ┆e(SLETEOL,'':10,'Ændret format i┆
0x27320…27340 20 75 64 73 6b 72 69 66 74 27 29 3b 0d 0a 6e 79 74 66 3a 3d 20 59 4e 20 3d 20 27 59 27 3b 0d 0a ┆ udskrift'); nytf:= YN = 'Y'; ┆
0x27340…27360 69 66 20 6e 79 74 66 20 74 68 65 6e 20 62 65 67 69 6e 0d 0a 09 73 6c 65 74 28 31 30 2c 32 30 2c ┆if nytf then begin slet(10,20,┆
0x27360…27380 30 29 3b 20 67 6f 74 6f 78 79 28 30 2c 31 32 29 3b 0d 0a 09 77 72 69 74 65 6c 6e 28 27 27 3a 31 ┆0); gotoxy(0,12); writeln('':1┆
0x27380…273a0 30 2c 27 41 6e 67 69 76 20 66 6f 72 20 68 76 65 72 20 73 7c 6a 6c 65 2c 27 29 3b 0d 0a 09 77 72 ┆0,'Angiv for hver søjle,'); wr┆
0x273a0…273c0 69 74 65 6c 6e 28 27 27 3a 31 30 2c 27 6f 6d 20 64 75 20 76 69 6c 20 68 61 76 65 20 65 6b 73 70 ┆iteln('':10,'om du vil have eksp┆
0x273c0…273e0 6f 6e 65 6e 74 69 65 6c 20 28 45 30 2e 2e 45 37 29 27 29 3b 0d 0a 09 77 72 69 74 65 6c 6e 28 27 ┆onentiel (E0..E7)'); writeln('┆
0x273e0…27400 27 3a 31 30 2c 27 65 6c 6c 65 72 20 64 65 63 69 6d 61 6c 20 6e 6f 74 61 74 69 6f 6e 20 20 20 20 ┆':10,'eller decimal notation ┆
0x27400…27420 (17, 1, 6) 67 65 6e 6e 65 6d 6c 7b 73 6e 69 6e 67 65 6e 2e 27 29 3b 0d 0a 09 77 72 69 74 65 6c 6e 28 27 27 ┆gennemlæsningen.'); writeln(''┆
0x27420…27440 3a 31 30 2c 27 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆:10,'---------------------------┆
0x27440…27460 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 27 29 3b 0d 0a 09 77 72 69 74 65 6c 6e 3b ┆------------------'); writeln;┆
0x27460…27480 20 57 52 49 54 45 4c 4e 3b 0d 0a 09 53 56 41 52 3a 3d 20 52 45 54 55 52 3b 0d 0a 09 52 45 50 45 ┆ WRITELN; SVAR:= RETUR; REPE┆
0x27480…274a0 41 54 0d 0a 09 09 4b 3a 3d 30 3b 0d 0a 09 09 49 46 20 53 56 41 52 20 49 4e 20 5b 4f 50 2c 4e 45 ┆AT K:=0; IF SVAR IN ÆOP,NE┆
0x274a0…274c0 44 5d 20 54 48 45 4e 20 42 45 47 49 4e 0d 0a 09 09 09 47 4f 54 4f 58 59 28 30 2c 30 29 3b 20 77 ┆DÅ THEN BEGIN GOTOXY(0,0); w┆
0x274c0…274e0 72 69 74 65 28 53 4c 45 54 45 4f 53 29 3b 20 52 45 53 45 54 28 49 4e 44 46 29 0d 0a 09 09 45 4e ┆rite(SLETEOS); RESET(INDF) EN┆
0x274e0…27500 44 3b 0d 0a 09 09 49 46 20 53 56 41 52 20 49 4e 20 5b 4f 50 2c 4e 45 44 2c 52 45 54 55 52 2c 53 ┆D; IF SVAR IN ÆOP,NED,RETUR,S┆
0x27500…27520 50 41 43 45 5d 20 54 48 45 4e 20 52 45 50 45 41 54 0d 0a 09 09 09 52 45 41 44 28 49 4e 44 46 2c ┆PACEÅ THEN REPEAT READ(INDF,┆
0x27520…27540 43 48 29 3b 0d 0a 09 09 09 49 46 20 43 48 3d 54 41 42 20 54 48 45 4e 20 57 52 49 54 45 28 54 41 ┆CH); IF CH=TAB THEN WRITE(TA┆
0x27540…27560 42 29 3b 0d 0a 09 09 09 57 52 49 54 45 28 43 48 29 3b 0d 0a 09 09 09 49 46 20 43 48 20 3d 20 52 ┆B); WRITE(CH); IF CH = R┆
0x27560…27580 45 54 55 52 20 54 48 45 4e 20 4b 3a 3d 4b 2b 31 3b 0d 0a 09 09 55 4e 54 49 4c 20 28 4b 3d 31 32 ┆ETUR THEN K:=K+1; UNTIL (K=12┆
0x27580…275a0 29 20 4f 52 20 45 4f 46 28 49 4e 44 46 29 3b 0d 0a 09 09 52 45 41 44 28 4b 42 44 2c 53 56 41 52 ┆) OR EOF(INDF); READ(KBD,SVAR┆
0x275a0…275c0 29 0d 0a 09 55 4e 54 49 4c 20 28 53 56 41 52 20 3d 20 45 53 43 29 20 4f 52 20 45 4f 46 28 49 4e ┆) UNTIL (SVAR = ESC) OR EOF(IN┆
0x275c0…275e0 44 46 29 3b 0d 0a 09 46 4f 52 20 49 3a 3d 20 31 20 54 4f 20 32 30 30 30 20 44 4f 20 53 43 52 45 ┆DF); FOR I:= 1 TO 2000 DO SCRE┆
0x275e0…27600 45 4e 5b 49 5d 3a 3d 20 4b 4f 50 49 53 43 52 45 45 4e 5b 49 5d 0d 0a 45 4e 44 0d 0a 45 4e 44 3b ┆ENÆIÅ:= KOPISCREENÆIÅ END END;┆
0x27600…27620 (17, 1, 7) 20 20 28 44 30 2e 2e 44 37 29 2e 27 29 3b 0d 0a 09 77 72 69 74 65 6c 6e 28 27 27 3a 31 30 2c 27 ┆ (D0..D7).'); writeln('':10,'┆
0x27620…27640 64 6f 67 20 7b 6e 64 72 65 73 20 66 6f 72 6d 61 74 65 74 2c 20 68 76 69 73 20 74 61 6c 6c 65 74 ┆dog ændres formatet, hvis tallet┆
0x27640…27660 20 66 79 6c 64 65 72 20 66 6f 72 20 6d 65 67 65 74 27 29 3b 0d 0a 09 77 72 69 74 65 6c 6e 28 27 ┆ fylder for meget'); writeln('┆
0x27660…27680 27 3a 31 30 2c 27 65 6b 73 2e 20 45 32 20 62 65 74 79 64 65 72 20 65 6b 73 70 6f 6e 65 6e 74 69 ┆':10,'eks. E2 betyder eksponenti┆
0x27680…276a0 65 6c 20 6e 6f 74 61 74 69 6f 6e 20 69 20 32 20 2b 20 35 20 66 65 6c 74 65 72 27 29 3b 0d 0a 09 ┆el notation i 2 + 5 felter'); ┆
0x276a0…276c0 77 72 69 74 65 6c 6e 28 27 27 3a 31 30 2c 27 20 20 20 20 20 44 33 20 62 65 74 79 64 65 72 20 33 ┆writeln('':10,' D3 betyder 3┆
0x276c0…276e0 20 64 65 63 69 6d 61 6c 65 72 2e 27 29 3b 0d 0a 09 66 6f 72 20 69 3a 3d 20 31 20 74 6f 20 6f 70 ┆ decimaler.'); for i:= 1 to op┆
0x276e0…27700 67 2e 62 73 6f 6a 6c 65 20 64 6f 20 62 65 67 69 6e 0d 0a 09 09 52 45 50 45 41 54 0d 0a 09 09 09 ┆g.bsojle do begin REPEAT ┆
0x27700…27720 66 6f 72 6d 5b 49 5d 3a 3d 73 74 72 65 6e 67 28 66 6f 72 6d 5b 69 5d 2c 72 62 68 2b 49 2a 28 62 ┆formÆIÅ:=streng(formÆiÅ,rbh+I*(b┆
0x27720…27740 72 65 64 64 65 2b 31 29 2c 31 31 2c 32 29 3b 0d 0a 09 09 09 66 6f 72 6d 5b 49 5d 3a 3d 20 75 70 ┆redde+1),11,2); formÆIÅ:= up┆
0x27740…27760 63 61 73 65 28 66 6f 72 6d 5b 69 5d 29 3b 0d 0a 09 09 55 4e 54 49 4c 20 28 66 6f 72 6d 5b 69 5d ┆case(formÆiÅ); UNTIL (formÆiÅ┆
0x27760…27780 5b 31 5d 20 69 6e 20 5b 27 44 27 2c 27 45 27 5d 29 20 61 6e 64 20 28 66 6f 72 6d 5b 69 5d 5b 32 ┆Æ1Å in Æ'D','E'Å) and (formÆiÅÆ2┆
0x27780…277a0 5d 20 69 6e 20 5b 27 30 27 2e 2e 27 37 27 5d 29 3b 0d 0a 09 09 69 66 20 66 6f 72 6d 5b 69 5d 5b ┆Å in Æ'0'..'7'Å); if formÆiÅÆ┆
0x277a0…277c0 31 5d 20 3d 20 27 44 27 20 74 68 65 6e 20 64 65 63 5b 69 5d 3a 3d 20 6f 72 64 28 66 6f 72 6d 5b ┆1Å = 'D' then decÆiÅ:= ord(formÆ┆
0x277c0…277e0 69 5d 5b 32 5d 29 2d 20 34 38 0d 0a 09 09 65 6c 73 65 20 64 65 63 5b 69 5d 3a 3d 20 6f 72 64 28 ┆iÅÆ2Å)- 48 else decÆiÅ:= ord(┆
0x277e0…27800 66 6f 72 6d 5b 69 5d 5b 32 5d 29 20 2d 20 34 33 3b 0d 0a 09 09 49 46 20 44 45 43 5b 49 5d 20 3e ┆formÆiÅÆ2Å) - 43; IF DECÆIÅ >┆
0x27800…27820 (17, 1, 8) 09 7b 20 68 65 6e 74 68 6a 61 65 6c 70 20 7d 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 20 54 45 47 ┆ æ henthjaelp å PROCEDURE TEG┆
0x27820…27840 4e 4d 45 4e 55 3b 0d 0a 42 45 47 49 4e 0d 0a 42 53 54 52 3a 3d 43 4f 50 59 28 42 53 54 52 31 2c ┆NMENU; BEGIN BSTR:=COPY(BSTR1,┆
0x27840…27860 32 2c 31 39 29 3b 0d 0a 67 6f 74 6f 78 79 28 32 2c 32 31 29 3b 20 57 52 49 54 45 28 42 53 54 52 ┆2,19); gotoxy(2,21); WRITE(BSTR┆
0x27860…27880 2c 42 53 54 52 2c 42 53 54 52 2c 42 53 54 52 29 3b 0d 0a 67 6f 74 6f 78 79 28 32 2c 32 33 29 3b ┆,BSTR,BSTR,BSTR); gotoxy(2,23);┆
0x27880…278a0 20 57 52 49 54 45 28 42 53 54 52 2c 42 53 54 52 2c 42 53 54 52 2c 42 53 54 52 29 3b 0d 0a 47 4f ┆ WRITE(BSTR,BSTR,BSTR,BSTR); GO┆
0x278a0…278c0 54 4f 58 59 28 38 2c 32 32 29 3b 0d 0a 57 52 49 54 45 28 27 56 65 6a 6c 65 64 6e 2e 20 20 4d 7d ┆TOXY(8,22); WRITE('Vejledn. Må┆
0x278c0…278e0 6c 74 61 6c 2c 20 20 20 46 75 6e 6b 74 69 6f 6e 2c 20 42 65 72 65 67 6e 2c 20 20 20 47 65 6d 2c ┆ltal, Funktion, Beregn, Gem,┆
0x278e0…27900 20 20 20 20 20 20 48 65 6e 74 2c 20 20 20 20 20 53 74 6f 70 27 29 3b 0d 0a 45 4e 44 3b 09 7b 20 ┆ Hent, Stop'); END; æ ┆
0x27900…27920 74 65 67 6e 6d 65 6e 75 20 7d 0d 0a 0d 0a 28 2a 20 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ┆tegnmenu å (* ===============┆
0x27920…27940 3d 3d 20 48 20 4f 20 56 20 45 20 44 20 50 20 52 20 4f 20 47 20 52 20 41 20 4d 20 3d 3d 3d 3d 3d ┆== H O V E D P R O G R A M =====┆
0x27940…27960 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 2a 29 0d 0a 62 65 67 69 6e 0d 0a 47 ┆====================*) begin G┆
0x27960…27980 4f 54 4f 58 59 28 30 2c 30 29 3b 20 57 52 49 54 45 28 53 4c 45 54 45 4f 53 29 3b 20 56 45 4a 4c ┆OTOXY(0,0); WRITE(SLETEOS); VEJL┆
0x27980…279a0 45 44 4e 49 4e 47 3b 20 4c 3a 3d 31 3b 20 4c 31 3a 3d 31 3b 53 3a 3d 27 4d 27 3b 0d 0a 54 45 47 ┆EDNING; L:=1; L1:=1;S:='M'; TEG┆
0x279a0…279c0 4e 4d 45 4e 55 3b 0d 0a 4e 55 4c 53 54 49 4c 3b 0d 0a 47 4f 54 4f 58 59 28 30 2c 32 34 29 3b 20 ┆NMENU; NULSTIL; GOTOXY(0,24); ┆
0x279c0…279e0 57 52 49 54 45 28 27 27 3a 31 30 2c 27 45 72 20 64 65 72 20 61 64 67 61 6e 67 20 74 69 6c 20 70 ┆WRITE('':10,'Er der adgang til p┆
0x279e0…27a00 72 69 6e 74 65 72 27 29 3b 0d 0a 50 52 49 4e 54 45 52 3a 3d 20 59 4e 20 3d 20 27 59 27 3b 20 53 ┆rinter'); PRINTER:= YN = 'Y'; S┆
0x27a00…27a20 (17, 1, 9) 20 4c 41 4e 47 20 54 48 45 4e 20 44 45 43 5b 49 5d 3a 3d 4c 41 4e 47 0d 0a 09 65 6e 64 0d 0a 65 ┆ LANG THEN DECÆIÅ:=LANG end e┆
0x27a20…27a40 6e 64 0d 0a 65 6e 64 3b 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 20 72 65 67 6e 42 3b 0d 0a 76 61 ┆nd end; PROCEDURE regnB; va┆
0x27a40…27a60 72 09 4d 49 4e 55 53 3a 20 42 59 54 45 3b 20 42 4a 4b 3a 20 52 45 41 4c 3b 0d 0a 62 65 67 69 6e ┆r MINUS: BYTE; BJK: REAL; begin┆
0x27a60…27a80 0d 0a 77 69 74 68 20 6f 70 67 20 64 6f 20 62 65 67 69 6e 0d 0a 53 4c 45 54 28 34 2c 32 30 2c 30 ┆ with opg do begin SLET(4,20,0┆
0x27a80…27aa0 29 3b 20 49 46 20 52 41 4b 4b 45 20 3d 20 31 37 20 54 48 45 4e 20 53 4c 45 54 28 32 31 2c 32 31 ┆); IF RAKKE = 17 THEN SLET(21,21┆
0x27aa0…27ac0 2c 30 29 3b 0d 0a 74 65 67 6e 73 6b 65 6d 61 28 62 73 6f 6a 6c 65 2c 30 2c 72 61 6b 6b 65 29 3b ┆,0); tegnskema(bsojle,0,rakke);┆
0x27ac0…27ae0 0d 0a 46 4f 52 20 4b 3a 3d 20 31 20 54 4f 20 52 41 4b 4b 45 20 44 4f 20 42 45 47 49 4e 0d 0a 09 ┆ FOR K:= 1 TO RAKKE DO BEGIN ┆
0x27ae0…27b00 46 4f 52 20 4a 3a 3d 20 31 20 54 4f 20 42 53 4f 4a 4c 45 20 44 4f 20 42 45 47 49 4e 0d 0a 09 09 ┆FOR J:= 1 TO BSOJLE DO BEGIN ┆
0x27b00…27b20 67 6f 74 6f 78 79 28 72 62 68 2b 4a 2a 28 62 72 65 64 64 65 2b 31 29 2c 34 2b 65 6e 74 6f 2a 28 ┆gotoxy(rbh+J*(bredde+1),4+ento*(┆
0x27b20…27b40 4b 2d 31 29 29 3b 0d 0a 09 09 42 45 52 45 47 4e 28 46 5b 4a 5d 2c 42 4a 4b 2c 46 45 4a 4c 41 52 ┆K-1)); BEREGN(FÆJÅ,BJK,FEJLAR┆
0x27b40…27b60 54 29 3b 0d 0a 09 09 49 46 20 28 46 45 4a 4c 41 52 54 3d 30 29 20 54 48 45 4e 20 42 45 47 49 4e ┆T); IF (FEJLART=0) THEN BEGIN┆
0x27b60…27b80 0d 0a 09 09 49 46 20 42 4a 4b 20 3c 20 30 20 54 48 45 4e 20 4d 49 4e 55 53 3a 3d 31 20 45 4c 53 ┆ IF BJK < 0 THEN MINUS:=1 ELS┆
0x27b80…27ba0 45 20 4d 49 4e 55 53 3a 3d 20 30 3b 0d 0a 09 09 69 66 20 28 66 6f 72 6d 5b 6a 5d 5b 31 5d 3d 27 ┆E MINUS:= 0; if (formÆjÅÆ1Å='┆
0x27ba0…27bc0 44 27 29 20 41 4e 44 20 28 61 62 73 28 42 4a 4b 29 3c 50 57 52 54 45 4e 28 4c 41 4e 47 2d 44 45 ┆D') AND (abs(BJK)<PWRTEN(LANG-DE┆
0x27bc0…27be0 43 5b 4a 5d 2d 4d 49 4e 55 53 29 29 0d 0a 09 09 54 48 45 4e 20 57 52 49 54 45 28 42 4a 4b 3a 6c ┆CÆJÅ-MINUS)) THEN WRITE(BJK:l┆
0x27be0…27c00 61 6e 67 3a 64 65 63 5b 6a 5d 29 20 65 6c 73 65 20 57 52 49 54 45 28 42 4a 4b 3a 44 45 43 5b 6a ┆ang:decÆjÅ) else WRITE(BJK:DECÆj┆
0x27c00…27c20 (18, 0, 1) 4c 45 54 28 32 34 2c 32 34 2c 30 29 3b 0d 0a 52 45 50 45 41 54 0d 0a 09 67 6f 74 6f 78 79 28 38 ┆LET(24,24,0); REPEAT gotoxy(8┆
0x27c20…27c40 2b 4c 2a 31 30 2c 32 32 29 3b 20 52 45 41 44 28 4b 42 44 2c 43 48 29 3b 20 43 48 3a 3d 20 55 50 ┆+L*10,22); READ(KBD,CH); CH:= UP┆
0x27c40…27c60 43 48 41 52 28 43 48 29 3b 0d 0a 09 49 46 20 43 48 20 49 4e 20 5b 54 49 4c 42 2c 46 52 45 4d 2c ┆CHAR(CH); IF CH IN ÆTILB,FREM,┆
0x27c60…27c80 4f 50 2c 4e 45 44 5d 20 54 48 45 4e 20 43 41 53 45 20 43 48 20 4f 46 0d 0a 09 09 54 49 4c 42 2c ┆OP,NEDÅ THEN CASE CH OF TILB,┆
0x27c80…27ca0 4e 45 44 3a 20 4c 3a 3d 20 28 4c 2b 36 29 20 4d 4f 44 20 37 3b 0d 0a 09 09 46 52 45 4d 2c 4f 50 ┆NED: L:= (L+6) MOD 7; FREM,OP┆
0x27ca0…27cc0 20 3a 20 4c 3a 3d 20 28 4c 2b 31 29 20 4d 4f 44 20 37 3b 0d 0a 09 45 4e 44 3b 0d 0a 09 47 4f 54 ┆ : L:= (L+1) MOD 7; END; GOT┆
0x27cc0…27ce0 4f 58 59 28 38 2b 4c 2a 31 30 2c 32 32 29 3b 0d 0a 09 53 3a 3d 53 4e 41 56 4e 5b 4c 5d 3b 20 4c ┆OXY(8+L*10,22); S:=SNAVNÆLÅ; L┆
0x27ce0…27d00 31 3a 3d 20 50 4f 53 28 43 48 2c 27 56 4d 46 42 47 48 53 27 2b 52 45 54 55 52 29 3b 0d 0a 09 49 ┆1:= POS(CH,'VMFBGHS'+RETUR); I┆
0x27d00…27d20 46 20 4c 31 20 3e 20 30 20 54 48 45 4e 20 42 45 47 49 4e 0d 0a 09 09 49 46 20 43 48 20 3c 3e 20 ┆F L1 > 0 THEN BEGIN IF CH <> ┆
0x27d20…27d40 52 45 54 55 52 20 20 54 48 45 4e 20 42 45 47 49 4e 0d 0a 09 09 09 4c 3a 3d 4c 31 2d 31 3b 20 53 ┆RETUR THEN BEGIN L:=L1-1; S┆
0x27d40…27d60 3a 3d 53 4e 41 56 4e 5b 4c 5d 20 45 4e 44 3b 0d 0a 09 09 43 41 53 45 20 53 20 4f 46 0d 0a 09 09 ┆:=SNAVNÆLÅ END; CASE S OF ┆
0x27d60…27d80 09 27 56 27 3a 20 48 45 4e 54 48 4a 41 45 4c 50 3b 0d 0a 09 09 09 27 4d 27 3a 20 4d 41 41 4c 3b ┆ 'V': HENTHJAELP; 'M': MAAL;┆
0x27d80…27da0 0d 0a 09 09 09 27 46 27 3a 20 46 55 4e 4b 54 49 4f 4e 42 3b 0d 0a 09 09 09 27 42 27 3a 20 42 45 ┆ 'F': FUNKTIONB; 'B': BE┆
0x27da0…27dc0 52 45 47 4e 42 3b 0d 0a 09 09 09 27 47 27 2c 27 48 27 3a 20 47 45 4d 48 45 4e 54 28 53 29 0d 0a ┆REGNB; 'G','H': GEMHENT(S) ┆
0x27dc0…27de0 09 09 45 4e 44 3b 0d 0a 09 54 45 47 4e 4d 45 4e 55 0d 0a 09 45 4e 44 0d 0a 55 4e 54 49 4c 20 28 ┆ END; TEGNMENU END UNTIL (┆
0x27de0…27e00 43 48 3d 27 53 27 29 20 4f 52 20 28 28 53 3d 27 53 27 29 20 41 4e 44 20 28 43 48 3d 52 45 54 55 ┆CH='S') OR ((S='S') AND (CH=RETU┆
0x27e00…28000 (18, 0, 2) DataBlock {»OLDREG.COM«}
0x28000…28020 (18, 0, 3) 52 29 29 3b 0d 0a 47 4f 54 4f 58 59 28 30 2c 30 29 3b 20 77 72 69 74 65 6c 6e 28 53 4c 45 54 45 ┆R)); GOTOXY(0,0); writeln(SLETE┆
0x28020…28040 4f 53 2c 27 44 65 74 20 76 61 72 20 68 79 67 67 65 6c 69 67 74 2e 2e 27 29 0d 0a 65 6e 64 2e 0d ┆OS,'Det var hyggeligt..') end. ┆
0x28040…28060 0a 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 ┆ ┆
0x28060…28080 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 ┆ ┆
0x28080…280a0 4e 45 44 3a 20 4c 3a 3d 20 28 4c 2b 36 29 20 4d 4f 44 20 37 3b 0d 0a 09 09 46 52 45 4d 2c 4f 50 ┆NED: L:= (L+6) MOD 7; FREM,OP┆
0x280a0…280c0 20 3a 20 4c 3a 3d 20 28 4c 2b 31 29 20 4d 4f 44 20 37 3b 0d 0a 09 45 4e 44 3b 0d 0a 09 47 4f 54 ┆ : L:= (L+1) MOD 7; END; GOT┆
0x280c0…280e0 4f 58 59 28 38 2b 4c 2a 31 30 2c 32 32 29 3b 0d 0a 09 53 3a 3d 53 4e 41 56 4e 5b 4c 5d 3b 20 4c ┆OXY(8+L*10,22); S:=SNAVNÆLÅ; L┆
0x280e0…28100 31 3a 3d 20 50 4f 53 28 43 48 2c 27 56 4d 46 42 47 48 53 27 2b 52 45 54 55 52 29 3b 0d 0a 09 49 ┆1:= POS(CH,'VMFBGHS'+RETUR); I┆
0x28100…28120 46 20 4c 31 20 3e 20 30 20 54 48 45 4e 20 42 45 47 49 4e 0d 0a 09 09 49 46 20 43 48 20 3c 3e 20 ┆F L1 > 0 THEN BEGIN IF CH <> ┆
0x28120…28140 52 45 54 55 52 20 20 54 48 45 4e 20 42 45 47 49 4e 0d 0a 09 09 09 4c 3a 3d 4c 31 2d 31 3b 20 53 ┆RETUR THEN BEGIN L:=L1-1; S┆
0x28140…28160 3a 3d 53 4e 41 56 4e 5b 4c 5d 20 45 4e 44 3b 0d 0a 09 09 43 41 53 45 20 53 20 4f 46 0d 0a 09 09 ┆:=SNAVNÆLÅ END; CASE S OF ┆
0x28160…28180 09 27 56 27 3a 20 48 45 4e 54 48 4a 41 45 4c 50 3b 0d 0a 09 09 09 27 4d 27 3a 20 4d 41 41 4c 3b ┆ 'V': HENTHJAELP; 'M': MAAL;┆
0x28180…281a0 0d 0a 09 09 09 27 46 27 3a 20 46 55 4e 4b 54 49 4f 4e 42 3b 0d 0a 09 09 09 27 42 27 3a 20 42 45 ┆ 'F': FUNKTIONB; 'B': BE┆
0x281a0…281c0 52 45 47 4e 42 3b 0d 0a 09 09 09 27 47 27 2c 27 48 27 3a 20 47 45 4d 48 45 4e 54 28 53 29 0d 0a ┆REGNB; 'G','H': GEMHENT(S) ┆
0x281c0…281e0 09 09 45 4e 44 3b 0d 0a 09 54 45 47 4e 4d 45 4e 55 0d 0a 09 45 4e 44 0d 0a 55 4e 54 49 4c 20 28 ┆ END; TEGNMENU END UNTIL (┆
0x281e0…28200 43 48 3d 27 53 27 29 20 4f 52 20 28 28 53 3d 27 53 27 29 20 41 4e 44 20 28 43 48 3d 52 45 54 55 ┆CH='S') OR ((S='S') AND (CH=RETU┆
0x28200…28400 (18, 0, 4) DataBlock {»OLDREG.COM«}
0x28400…28420 (18, 0, 5) 69 74 65 6c 6e 28 27 27 3a 31 30 2c 27 64 6f 67 20 7b 6e 64 72 65 73 20 66 6f 72 6d 61 74 65 74 ┆iteln('':10,'dog ændres formatet┆
0x28420…28440 2c 20 68 76 69 73 20 74 61 6c 6c 65 74 20 66 79 6c 64 65 72 20 66 6f 72 20 6d 65 67 65 74 27 29 ┆, hvis tallet fylder for meget')┆
0x28440…28460 3b 0d 0a 09 77 72 69 74 65 6c 6e 28 27 27 3a 31 30 2c 27 65 6b 73 2e 20 45 32 20 62 65 74 79 64 ┆; writeln('':10,'eks. E2 betyd┆
0x28460…28480 65 72 20 65 6b 73 70 6f 6e 65 6e 74 69 65 6c 20 6e 6f 74 61 74 69 6f 6e 20 69 20 32 20 2b 20 35 ┆er eksponentiel notation i 2 + 5┆
0x28480…284a0 20 66 65 6c 74 65 72 27 29 3b 0d 0a 09 77 72 69 74 65 6c 6e 28 27 27 3a 31 30 2c 27 20 20 20 20 ┆ felter'); writeln('':10,' ┆
0x284a0…284c0 20 44 33 20 62 65 74 79 64 65 72 20 33 20 64 65 63 69 6d 61 6c 65 72 2e 27 29 3b 0d 0a 09 66 6f ┆ D3 betyder 3 decimaler.'); fo┆
0x284c0…284e0 72 20 69 3a 3d 20 31 20 74 6f 20 6f 70 67 2e 62 73 6f 6a 6c 65 20 64 6f 20 62 65 67 69 6e 0d 0a ┆r i:= 1 to opg.bsojle do begin ┆
0x284e0…28500 09 09 52 45 50 45 41 54 0d 0a 09 09 09 66 6f 72 6d 5b 49 5d 3a 3d 73 74 72 65 6e 67 28 66 6f 72 ┆ REPEAT formÆIÅ:=streng(for┆
0x28500…28520 6d 5b 69 5d 2c 72 62 68 2b 49 2a 28 62 72 65 64 64 65 2b 31 29 2c 31 31 2c 32 29 3b 0d 0a 09 09 ┆mÆiÅ,rbh+I*(bredde+1),11,2); ┆
0x28520…28540 09 66 6f 72 6d 5b 49 5d 3a 3d 20 75 70 63 61 73 65 28 66 6f 72 6d 5b 69 5d 29 3b 0d 0a 09 09 55 ┆ formÆIÅ:= upcase(formÆiÅ); U┆
0x28540…28560 4e 54 49 4c 20 28 66 6f 72 6d 5b 69 5d 5b 31 5d 20 69 6e 20 5b 27 44 27 2c 27 45 27 5d 29 20 61 ┆NTIL (formÆiÅÆ1Å in Æ'D','E'Å) a┆
0x28560…28580 6e 64 20 28 66 6f 72 6d 5b 69 5d 5b 32 5d 20 69 6e 20 5b 27 30 27 2e 2e 27 37 27 5d 29 3b 0d 0a ┆nd (formÆiÅÆ2Å in Æ'0'..'7'Å); ┆
0x28580…285a0 09 09 69 66 20 66 6f 72 6d 5b 69 5d 5b 31 5d 20 3d 20 27 44 27 20 74 68 65 6e 20 64 65 63 5b 69 ┆ if formÆiÅÆ1Å = 'D' then decÆi┆
0x285a0…285c0 5d 3a 3d 20 6f 72 64 28 66 6f 72 6d 5b 69 5d 5b 32 5d 29 2d 20 34 38 0d 0a 09 09 65 6c 73 65 20 ┆Å:= ord(formÆiÅÆ2Å)- 48 else ┆
0x285c0…285e0 64 65 63 5b 69 5d 3a 3d 20 6f 72 64 28 66 6f 72 6d 5b 69 5d 5b 32 5d 29 20 2d 20 34 33 3b 0d 0a ┆decÆiÅ:= ord(formÆiÅÆ2Å) - 43; ┆
0x285e0…28600 09 09 49 46 20 44 45 43 5b 49 5d 20 3e 20 4c 41 4e 47 20 54 48 45 4e 20 44 45 43 5b 49 5d 3a 3d ┆ IF DECÆIÅ > LANG THEN DECÆIÅ:=┆
0x28600…28800 (18, 0, 6) DataBlock {»OLDREG.COM«}
0x28800…28820 (18, 0, 7) 4c 41 4e 47 0d 0a 09 65 6e 64 0d 0a 65 6e 64 0d 0a 65 6e 64 3b 0d 0a 0d 0a 50 52 4f 43 45 44 55 ┆LANG end end end; PROCEDU┆
0x28820…28840 52 45 20 72 65 67 6e 42 3b 0d 0a 76 61 72 09 4d 49 4e 55 53 3a 20 42 59 54 45 3b 20 42 4a 4b 3a ┆RE regnB; var MINUS: BYTE; BJK:┆
0x28840…28860 20 52 45 41 4c 3b 0d 0a 62 65 67 69 6e 0d 0a 77 69 74 68 20 6f 70 67 20 64 6f 20 62 65 67 69 6e ┆ REAL; begin with opg do begin┆
0x28860…28880 0d 0a 53 4c 45 54 28 34 2c 32 30 2c 30 29 3b 20 49 46 20 52 41 4b 4b 45 20 3d 20 31 37 20 54 48 ┆ SLET(4,20,0); IF RAKKE = 17 TH┆
0x28880…288a0 45 4e 20 53 4c 45 54 28 32 31 2c 32 31 2c 30 29 3b 0d 0a 74 65 67 6e 73 6b 65 6d 61 28 62 73 6f ┆EN SLET(21,21,0); tegnskema(bso┆
0x288a0…288c0 6a 6c 65 2c 30 2c 72 61 6b 6b 65 29 3b 0d 0a 46 4f 52 20 4b 3a 3d 20 31 20 54 4f 20 52 41 4b 4b ┆jle,0,rakke); FOR K:= 1 TO RAKK┆
0x288c0…288e0 45 20 44 4f 20 42 45 47 49 4e 0d 0a 09 46 4f 52 20 4a 3a 3d 20 31 20 54 4f 20 42 53 4f 4a 4c 45 ┆E DO BEGIN FOR J:= 1 TO BSOJLE┆
0x288e0…28900 20 44 4f 20 42 45 47 49 4e 0d 0a 09 09 67 6f 74 6f 78 79 28 72 62 68 2b 4a 2a 28 62 72 65 64 64 ┆ DO BEGIN gotoxy(rbh+J*(bredd┆
0x28900…28920 65 2b 31 29 2c 34 2b 65 6e 74 6f 2a 28 4b 2d 31 29 29 3b 0d 0a 09 09 42 45 52 45 47 4e 28 46 5b ┆e+1),4+ento*(K-1)); BEREGN(FÆ┆
0x28920…28940 4a 5d 2c 42 4a 4b 2c 46 45 4a 4c 41 52 54 29 3b 0d 0a 09 09 49 46 20 28 46 45 4a 4c 41 52 54 3d ┆JÅ,BJK,FEJLART); IF (FEJLART=┆
0x28940…28960 30 29 20 54 48 45 4e 20 42 45 47 49 4e 0d 0a 09 09 49 46 20 42 4a 4b 20 3c 20 30 20 54 48 45 4e ┆0) THEN BEGIN IF BJK < 0 THEN┆
0x28960…28980 20 4d 49 4e 55 53 3a 3d 31 20 45 4c 53 45 20 4d 49 4e 55 53 3a 3d 20 30 3b 0d 0a 09 09 69 66 20 ┆ MINUS:=1 ELSE MINUS:= 0; if ┆
0x28980…289a0 28 66 6f 72 6d 5b 6a 5d 5b 31 5d 3d 27 44 27 29 20 41 4e 44 20 28 61 62 73 28 42 4a 4b 29 3c 50 ┆(formÆjÅÆ1Å='D') AND (abs(BJK)<P┆
0x289a0…289c0 57 52 54 45 4e 28 4c 41 4e 47 2d 44 45 43 5b 4a 5d 2d 4d 49 4e 55 53 29 29 0d 0a 09 09 54 48 45 ┆WRTEN(LANG-DECÆJÅ-MINUS)) THE┆
0x289c0…289e0 4e 20 57 52 49 54 45 28 42 4a 4b 3a 6c 61 6e 67 3a 64 65 63 5b 6a 5d 29 20 65 6c 73 65 20 57 52 ┆N WRITE(BJK:lang:decÆjÅ) else WR┆
0x289e0…28a00 49 54 45 28 42 4a 4b 3a 44 45 43 5b 6a 5d 29 3b 0d 0a 09 09 53 54 52 28 42 4a 4b 3a 31 34 2c 4f ┆ITE(BJK:DECÆjÅ); STR(BJK:14,O┆
0x28a00…28c00 (18, 0, 8) DataBlock {»OLDREG.COM«}
[…0xb…]
0x2a200…2a400 (19, 0, 2) DataBlock {»IMPULSEL.MID«}
0x2a400…2a600 (19, 0, 3) DataBlock {»OLDREG.COM«}
[…0x1…]
0x2a800…2aa00 (19, 0, 5) DataBlock {»IMPULSEL.MID«}
0x2aa00…2ac00 (19, 0, 6) DataBlock {»OLDREG.COM«}
0x2ac00…2ae00 (19, 0, 7) DataBlock {»IMPULSEL.MID«}
0x2ae00…2b000 (19, 0, 8) DataBlock {»OLDREG.COM«}
0x2b000…2b200 (19, 0, 9) DataBlock {»IMPULSEL.MID«}
0x2b200…2b400 (19, 1, 1) DataBlock {»OLDREG.COM«}
0x2b400…2b600 (19, 1, 2) DataBlock {»MINICALC.COM«}
0x2b600…2b800 (19, 1, 3) DataBlock {»OVERVGT.MID«}
0x2b800…2ba00 (19, 1, 4) DataBlock {»MINICALC.COM«}
0x2ba00…2bc00 (19, 1, 5) DataBlock {»OVERVGT.MID«}
0x2bc00…2be00 (19, 1, 6) DataBlock {»MINICALC.COM«}
0x2be00…2c000 (19, 1, 7) DataBlock {»OVERVGT.MID«}
0x2c000…2c200 (19, 1, 8) DataBlock {»MINICALC.COM«}
0x2c200…2c400 (19, 1, 9) DataBlock {»OVERVGT.MID«}
0x2c400…2c600 (20, 0, 1) DataBlock {»MINICALC.COM«}
[…0x6…]
0x2d200…2d220 (20, 0, 8) 0d 0a 70 72 6f 67 72 61 6d 20 4d 49 4e 49 43 41 4c 43 3b 09 7b 20 43 6f 70 79 72 69 67 68 74 20 ┆ program MINICALC; æ Copyright ┆
0x2d220…2d240 28 63 29 2c 20 43 61 72 6c 20 48 65 6d 6d 69 6e 67 73 65 6e 2c 20 46 41 47 20 31 32 2f 35 2d 31 ┆(c), Carl Hemmingsen, FAG 12/5-1┆
0x2d240…2d260 39 38 34 20 7d 0d 0a 0d 0a 63 6f 6e 73 74 09 6d 61 78 72 61 6b 6b 65 20 3d 20 31 37 3b 20 6d 61 ┆984 å const maxrakke = 17; ma┆
0x2d260…2d280 78 73 6f 6a 6c 65 20 3d 20 39 3b 0d 0a 09 6d 69 6e 72 65 61 6c 20 3d 20 2d 39 2e 39 39 39 39 39 ┆xsojle = 9; minreal = -9.99999┆
0x2d280…2d2a0 39 39 39 39 45 2b 33 37 3b 20 6d 61 78 72 65 61 6c 20 3d 20 39 2e 39 39 39 39 39 39 39 39 39 45 ┆9999E+37; maxreal = 9.999999999E┆
0x2d2a0…2d2c0 2b 33 37 3b 0d 0a 74 79 70 65 09 73 74 72 35 20 20 3d 20 73 74 72 69 6e 67 5b 35 5d 3b 09 73 74 ┆+37; type str5 = stringÆ5Å; st┆
0x2d2c0…2d2e0 72 36 20 20 3d 20 73 74 72 69 6e 67 5b 36 5d 3b 0d 0a 09 73 74 72 31 30 20 3d 20 73 74 72 69 6e ┆r6 = stringÆ6Å; str10 = strin┆
0x2d2e0…2d300 67 5b 31 30 5d 3b 09 73 74 72 31 34 20 3d 20 53 54 52 49 4e 47 5b 31 34 5d 3b 0d 0a 09 73 74 72 ┆gÆ10Å; str14 = STRINGÆ14Å; str┆
0x2d300…2d320 32 30 20 3d 20 73 74 72 69 6e 67 5b 32 30 5d 3b 09 73 74 72 35 30 20 3d 20 73 74 72 69 6e 67 5b ┆20 = stringÆ20Å; str50 = stringÆ┆
0x2d320…2d340 35 30 5d 3b 0d 0a 09 53 54 59 50 45 20 3d 20 41 52 52 41 59 5b 30 2e 2e 36 5d 20 4f 46 20 43 48 ┆50Å; STYPE = ARRAYÆ0..6Å OF CH┆
0x2d340…2d360 41 52 3b 0d 0a 09 66 65 6a 6c 74 79 70 65 20 3d 20 61 72 72 61 79 5b 31 2e 2e 36 5d 20 6f 66 20 ┆AR; fejltype = arrayÆ1..6Å of ┆
0x2d360…2d380 73 74 72 36 3b 0d 0a 09 63 68 61 72 73 65 74 20 3d 20 73 65 74 20 6f 66 20 63 68 61 72 3b 0d 0a ┆str6; charset = set of char; ┆
0x2d380…2d3a0 09 42 54 59 50 45 20 3d 20 41 52 52 41 59 5b 31 2e 2e 6d 61 78 73 6f 6a 6c 65 2c 31 2e 2e 6d 61 ┆ BTYPE = ARRAYÆ1..maxsojle,1..ma┆
0x2d3a0…2d3c0 78 72 61 6b 6b 65 5d 20 4f 46 20 53 54 52 31 34 3b 0d 0a 09 41 54 59 50 45 20 3d 20 41 52 52 41 ┆xrakkeÅ OF STR14; ATYPE = ARRA┆
0x2d3c0…2d3e0 59 5b 31 2e 2e 6d 61 78 73 6f 6a 6c 65 2c 31 2e 2e 6d 61 78 72 61 6b 6b 65 5d 20 4f 46 20 53 54 ┆YÆ1..maxsojle,1..maxrakkeÅ OF ST┆
0x2d3e0…2d400 52 31 30 3b 0d 0a 09 4e 54 59 50 45 20 3d 20 41 52 52 41 59 5b 31 2e 2e 6d 61 78 73 6f 6a 6c 65 ┆R10; NTYPE = ARRAYÆ1..maxsojle┆
0x2d400…2d600 (20, 0, 9) DataBlock {»MINICALC.COM«}
0x2d600…2d620 (20, 1, 1) 5d 20 4f 46 20 53 54 52 31 30 3b 0d 0a 09 46 54 59 50 45 20 3d 20 41 52 52 41 59 5b 31 2e 2e 6d ┆Å OF STR10; FTYPE = ARRAYÆ1..m┆
0x2d620…2d640 61 78 73 6f 6a 6c 65 5d 20 4f 46 20 53 54 52 35 30 3b 0d 0a 09 4f 50 47 41 56 45 3d 20 52 45 43 ┆axsojleÅ OF STR50; OPGAVE= REC┆
0x2d640…2d660 4f 52 44 0d 0a 09 09 41 53 4f 4a 4c 45 2c 52 41 4b 4b 45 2c 42 53 4f 4a 4c 45 3a 20 42 59 54 45 ┆ORD ASOJLE,RAKKE,BSOJLE: BYTE┆
0x2d660…2d680 3b 0d 0a 09 09 41 3a 20 41 54 59 50 45 3b 0d 0a 09 09 42 3a 20 42 54 59 50 45 3b 0d 0a 09 09 41 ┆; A: ATYPE; B: BTYPE; A┆
0x2d680…2d6a0 6e 61 76 6e 2c 42 6e 61 76 6e 3a 20 6e 74 79 70 65 3b 0d 0a 09 09 46 3a 20 46 54 59 50 45 0d 0a ┆navn,Bnavn: ntype; F: FTYPE ┆
0x2d6a0…2d6c0 09 45 4e 44 3b 0d 0a 0d 0a 63 6f 6e 73 74 09 53 4e 41 56 4e 3a 20 53 54 59 50 45 20 3d 20 28 27 ┆ END; const SNAVN: STYPE = ('┆
0x2d6c0…2d6e0 56 27 2c 27 4d 27 2c 27 46 27 2c 27 42 27 2c 27 47 27 2c 27 48 27 2c 27 53 27 29 3b 0d 0a 66 65 ┆V','M','F','B','G','H','S'); fe┆
0x2d6e0…2d700 6a 6c 6e 61 76 6e 3a 20 66 65 6a 6c 74 79 70 65 20 3d 28 27 6c 6e 28 2d 29 27 2c 27 72 6f 64 28 ┆jlnavn: fejltype =('ln(-)','rod(┆
0x2d700…2d720 2d 29 27 2c 27 28 2d 29 5e 27 2c 27 64 69 76 20 30 27 2c 27 66 28 78 29 3d 3f 27 2c 27 3f 3f 3f ┆-)','(-)^','div 0','f(x)=?','???┆
0x2d720…2d740 3f 3f 27 29 3b 0d 0a 09 62 73 74 72 31 3a 20 73 74 72 32 30 20 3d 20 27 21 2d 2d 2d 2d 2d 2d 2d ┆??'); bstr1: str20 = '!-------┆
0x2d740…2d760 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 27 3b 0d 0a 09 62 73 74 72 32 3a 20 73 74 72 32 30 20 3d 20 ┆------------'; bstr2: str20 = ┆
0x2d760…2d780 27 21 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 27 3b 0d 0a 09 74 6f 6d 20 3a 20 ┆'!==================='; tom : ┆
0x2d780…2d7a0 20 73 74 72 32 30 20 3d 20 27 21 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 3b ┆ str20 = '! ';┆
0x2d7a0…2d7c0 0d 0a 09 54 49 4c 42 20 3d 20 40 38 3b 20 46 52 45 4d 20 3d 20 40 31 32 3b 20 4f 50 20 3d 20 40 ┆ TILB = @8; FREM = @12; OP = @┆
0x2d7c0…2d7e0 31 31 3b 20 4e 45 44 20 3d 20 40 31 30 3b 20 45 53 43 20 3d 20 40 32 37 3b 20 52 45 54 55 52 20 ┆11; NED = @10; ESC = @27; RETUR ┆
0x2d7e0…2d800 3d 20 40 31 33 3b 0d 0a 09 53 50 41 43 45 20 3d 20 40 33 32 3b 20 54 41 42 20 3d 20 40 39 3b 20 ┆= @13; SPACE = @32; TAB = @9; ┆
0x2d800…2d820 (20, 1, 2) 6e 64 3b 09 7b 20 73 6b 72 69 76 73 6b 61 72 6d 20 7d 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 20 ┆nd; æ skrivskarm å PROCEDURE ┆
0x2d820…2d840 4e 55 4c 53 54 49 4c 3b 0d 0a 42 45 47 49 4e 0d 0a 09 6e 79 6f 70 67 3a 3d 20 74 72 75 65 3b 0d ┆NULSTIL; BEGIN nyopg:= true; ┆
0x2d840…2d860 0a 09 77 69 74 68 20 6f 70 67 20 64 6f 20 62 65 67 69 6e 0d 0a 09 09 61 73 6f 6a 6c 65 3a 3d 31 ┆ with opg do begin asojle:=1┆
0x2d860…2d880 3b 20 62 73 6f 6a 6c 65 3a 3d 31 3b 20 72 61 6b 6b 65 3a 3d 31 3b 0d 0a 09 09 66 6f 72 20 69 3a ┆; bsojle:=1; rakke:=1; for i:┆
0x2d880…2d8a0 3d 20 31 20 74 6f 20 6d 61 78 73 6f 6a 6c 65 20 64 6f 20 62 65 67 69 6e 0d 0a 09 09 09 66 6f 72 ┆= 1 to maxsojle do begin for┆
0x2d8a0…2d8c0 20 6a 3a 3d 20 31 20 74 6f 20 6d 61 78 72 61 6b 6b 65 20 64 6f 0d 0a 09 09 09 62 65 67 69 6e 20 ┆ j:= 1 to maxrakke do begin ┆
0x2d8c0…2d8e0 41 5b 69 2c 6a 5d 3a 3d 20 27 30 27 3b 20 42 5b 69 2c 6a 5d 3a 3d 27 30 27 20 65 6e 64 3b 0d 0a ┆AÆi,jÅ:= '0'; BÆi,jÅ:='0' end; ┆
0x2d8e0…2d900 09 09 09 41 6e 61 76 6e 5b 69 5d 3a 3d 27 27 3b 20 42 6e 61 76 6e 5b 69 5d 3a 3d 27 27 3b 20 46 ┆ AnavnÆiÅ:=''; BnavnÆiÅ:=''; F┆
0x2d900…2d920 5b 69 5d 3a 3d 27 27 3b 0d 0a 09 09 09 41 52 45 4e 5b 49 5d 3a 3d 27 27 3b 42 52 45 4e 5b 49 5d ┆ÆiÅ:=''; ARENÆIÅ:='';BRENÆIÅ┆
0x2d920…2d940 3a 3d 27 27 3b 0d 0a 09 09 65 6e 64 0d 0a 09 65 6e 64 0d 0a 45 4e 44 3b 0d 0a 0d 0a 70 72 6f 63 ┆:=''; end end END; proc┆
0x2d940…2d960 65 64 75 72 65 20 61 6b 74 69 76 28 69 3a 20 62 79 74 65 29 3b 0d 0a 62 65 67 69 6e 0d 0a 09 67 ┆edure aktiv(i: byte); begin g┆
0x2d960…2d980 6f 74 6f 78 79 28 30 2c 32 33 29 3b 20 77 72 69 74 65 28 43 4c 52 45 4f 4c 2c 27 41 6b 74 69 76 ┆otoxy(0,23); write(CLREOL,'Aktiv┆
0x2d980…2d9a0 65 20 74 61 73 74 65 72 20 3a 20 27 29 3b 0d 0a 09 63 61 73 65 20 69 20 6f 66 0d 0a 09 09 31 3a ┆e taster : '); case i of 1:┆
0x2d9a0…2d9c0 20 77 72 69 74 65 28 27 45 53 43 2c 20 52 45 54 55 52 4e 2c 20 50 49 4c 20 66 72 65 6d 2c 20 74 ┆ write('ESC, RETURN, PIL frem, t┆
0x2d9c0…2d9e0 69 6c 62 61 67 65 2c 20 6f 70 20 6f 67 20 6e 65 64 27 29 3b 0d 0a 09 09 32 3a 20 77 72 69 74 65 ┆ilbage, op og ned'); 2: write┆
0x2d9e0…2da00 28 27 42 53 2c 20 44 45 4c 2c 20 52 45 54 55 52 4e 2c 20 50 49 4c 20 66 72 65 6d 2c 20 74 69 6c ┆('BS, DEL, RETURN, PIL frem, til┆
0x2da00…2da20 (20, 1, 3) 44 45 4c 20 3d 20 40 31 39 3b 20 42 45 4c 4c 20 3d 20 40 37 3b 20 42 41 4b 54 41 42 20 3d 20 40 ┆DEL = @19; BELL = @7; BAKTAB = @┆
0x2da20…2da40 30 3b 0d 0a 09 66 6b 74 6b 65 79 73 3a 20 63 68 61 72 73 65 74 20 3d 20 5b 74 69 6c 62 2c 66 72 ┆0; fktkeys: charset = Ætilb,fr┆
0x2da40…2da60 65 6d 2c 6f 70 2c 6e 65 64 2c 73 70 61 63 65 2c 65 73 63 2c 72 65 74 75 72 5d 3b 0d 0a 09 55 53 ┆em,op,ned,space,esc,returÅ; US┆
0x2da60…2da80 3a 09 20 43 48 41 52 53 45 54 20 3d 20 5b 27 41 27 2e 2e 27 5a 27 5d 3b 0d 0a 09 42 4f 47 53 54 ┆: CHARSET = Æ'A'..'Z'Å; BOGST┆
0x2da80…2daa0 41 56 3a 20 43 48 41 52 53 45 54 20 3d 20 5b 27 41 27 2e 2e 27 5d 27 5d 3b 0d 0a 09 63 69 66 66 ┆AV: CHARSET = Æ'A'..'Å'Å; ciff┆
0x2daa0…2dac0 65 72 20 3a 20 63 68 61 72 73 65 74 20 3d 20 5b 27 30 27 2e 2e 27 39 27 5d 3b 0d 0a 09 6f 70 65 ┆er : charset = Æ'0'..'9'Å; ope┆
0x2dac0…2dae0 72 61 74 6f 72 3a 63 68 61 72 73 65 74 20 3d 20 5b 27 28 27 2c 27 29 27 2c 27 5e 27 2c 27 2b 27 ┆rator:charset = Æ'(',')','^','+'┆
0x2dae0…2db00 2c 27 2d 27 2c 27 2f 27 2c 27 2a 27 2c 27 2e 27 2c 27 20 27 5d 3b 0d 0a 09 74 61 6c 74 65 67 6e ┆,'-','/','*','.',' 'Å; taltegn┆
0x2db00…2db20 3a 20 43 48 41 52 53 45 54 20 3d 20 5b 27 45 27 2c 27 30 27 2e 2e 27 39 27 2c 27 2e 27 2c 27 2d ┆: CHARSET = Æ'E','0'..'9','.','-┆
0x2db20…2db40 27 2c 27 2b 27 5d 3b 0d 0a 0d 0a 76 61 72 09 41 52 45 4e 2c 42 52 45 4e 3a 20 4e 54 59 50 45 3b ┆','+'Å; var AREN,BREN: NTYPE;┆
0x2db40…2db60 0d 0a 09 66 6f 72 6d 3a 09 61 72 72 61 79 5b 31 2e 2e 6d 61 78 73 6f 6a 6c 65 5d 20 6f 66 20 73 ┆ form: arrayÆ1..maxsojleÅ of s┆
0x2db60…2db80 74 72 69 6e 67 5b 32 5d 3b 0d 0a 09 64 65 63 3a 09 61 72 72 61 79 5b 31 2e 2e 6d 61 78 73 6f 6a ┆tringÆ2Å; dec: arrayÆ1..maxsoj┆
0x2db80…2dba0 6c 65 5d 20 6f 66 20 62 79 74 65 3b 0d 0a 09 49 2c 4a 2c 4b 2c 72 62 68 3a 09 09 09 09 69 6e 74 ┆leÅ of byte; I,J,K,rbh: int┆
0x2dba0…2dbc0 65 67 65 72 3b 0d 0a 09 66 65 6a 6c 61 72 74 2c 20 62 72 65 64 64 65 2c 20 6c 61 6e 67 2c 20 65 ┆eger; fejlart, bredde, lang, e┆
0x2dbc0…2dbe0 6e 74 6f 2c 20 4c 2c 20 4c 31 2c 20 72 68 3a 20 62 79 74 65 3b 0d 0a 09 73 2c 20 74 2c 20 63 68 ┆nto, L, L1, rh: byte; s, t, ch┆
0x2dbe0…2dc00 2c 20 74 65 67 6e 2c 20 73 76 61 72 3a 09 09 09 63 68 61 72 3b 0d 0a 09 65 6e 73 2c 20 6e 79 6f ┆, tegn, svar: char; ens, nyo┆
0x2dc00…2dc20 (20, 1, 4) 62 61 67 65 2c 20 6f 70 20 6f 67 20 6e 65 64 27 29 0d 0a 09 65 6e 64 0d 0a 65 6e 64 3b 09 7b 20 ┆bage, op og ned') end end; æ ┆
0x2dc20…2dc40 61 6b 74 69 76 20 7d 0d 0a 0d 0a 66 75 6e 63 74 69 6f 6e 20 59 4e 3a 20 63 68 61 72 3b 0d 0a 62 ┆aktiv å function YN: char; b┆
0x2dc40…2dc60 65 67 69 6e 0d 0a 09 77 72 69 74 65 28 27 20 3f 20 28 59 2f 4e 29 20 3a 20 27 29 3b 0d 0a 09 72 ┆egin write(' ? (Y/N) : '); r┆
0x2dc60…2dc80 65 70 65 61 74 20 72 65 61 64 28 6b 62 64 2c 73 76 61 72 29 3b 20 73 76 61 72 3a 3d 75 70 63 68 ┆epeat read(kbd,svar); svar:=upch┆
0x2dc80…2dca0 61 72 28 73 76 61 72 29 20 75 6e 74 69 6c 20 73 76 61 72 20 69 6e 20 5b 27 59 27 2c 27 4e 27 5d ┆ar(svar) until svar in Æ'Y','N'Å┆
0x2dca0…2dcc0 3b 0d 0a 09 57 52 49 54 45 28 53 56 41 52 29 3b 0d 0a 09 59 4e 3a 3d 20 73 76 61 72 0d 0a 65 6e ┆; WRITE(SVAR); YN:= svar en┆
0x2dcc0…2dce0 64 3b 0d 0a 0d 0a 66 75 6e 63 74 69 6f 6e 20 6f 6b 28 69 3a 62 79 74 65 29 3a 20 62 6f 6f 6c 65 ┆d; function ok(i:byte): boole┆
0x2dce0…2dd00 61 6e 3b 0d 0a 62 65 67 69 6e 0d 0a 09 67 6f 74 6f 78 79 28 30 2c 32 33 29 3b 20 77 72 69 74 65 ┆an; begin gotoxy(0,23); write┆
0x2dd00…2dd20 28 43 4c 52 45 4f 4c 2c 27 45 72 20 27 3a 31 33 29 3b 0d 0a 09 63 61 73 65 20 69 20 6f 66 0d 0a ┆(CLREOL,'Er ':13); case i of ┆
0x2dd20…2dd40 09 09 31 3a 20 77 72 69 74 65 28 27 73 6b 65 6d 61 65 74 20 6f 6b 27 29 3b 0d 0a 09 09 32 3a 20 ┆ 1: write('skemaet ok'); 2: ┆
0x2dd40…2dd60 77 72 69 74 65 28 27 6e 61 76 6e 65 6e 65 20 6f 6b 27 29 3b 0d 0a 09 09 33 3a 20 77 72 69 74 65 ┆write('navnene ok'); 3: write┆
0x2dd60…2dd80 28 27 66 6f 72 73 6b 72 69 66 74 65 72 6e 65 20 6f 6b 27 29 3b 0d 0a 09 65 6e 64 3b 0d 0a 09 6f ┆('forskrifterne ok'); end; o┆
0x2dd80…2dda0 6b 3a 3d 20 59 4e 20 3d 20 27 59 27 3b 0d 0a 09 57 52 49 54 45 28 52 45 54 55 52 2c 43 4c 52 45 ┆k:= YN = 'Y'; WRITE(RETUR,CLRE┆
0x2dda0…2ddc0 4f 4c 29 0d 0a 65 6e 64 3b 09 7b 20 6f 6b 20 7d 0d 0a 0d 0a 70 72 6f 63 65 64 75 72 65 20 64 69 ┆OL) end; æ ok å procedure di┆
0x2ddc0…2dde0 72 3b 0d 0a 76 61 72 09 69 2c 20 74 2c 20 72 65 74 2c 20 73 74 6b 3a 20 69 6e 74 65 67 65 72 3b ┆r; var i, t, ret, stk: integer;┆
0x2dde0…2de00 20 6e 61 76 6e 3a 20 73 74 72 69 6e 67 5b 31 32 5d 3b 0d 0a 62 65 67 69 6e 0d 0a 09 73 6c 65 74 ┆ navn: stringÆ12Å; begin slet┆
0x2de00…2de20 (20, 1, 5) 70 67 2c 20 70 72 69 6e 74 65 72 2c 20 69 6b 6b 65 62 6f 67 73 74 2c 20 6c 6f 76 6c 69 67 2c 20 ┆pg, printer, ikkebogst, lovlig, ┆
0x2de20…2de40 6e 79 74 66 3a 09 62 6f 6f 6c 65 61 6e 3b 0d 0a 09 62 6c 61 6e 6b 65 3a 09 53 54 52 31 30 3b 20 ┆nytf: boolean; blanke: STR10; ┆
0x2de40…2de60 42 53 54 52 3a 53 54 52 32 30 3b 0d 0a 09 46 49 4c 4e 41 56 4e 3a 09 09 09 09 53 54 52 31 34 3b ┆BSTR:STR20; FILNAVN: STR14;┆
0x2de60…2de80 0d 0a 09 46 4f 50 47 3a 20 46 49 4c 45 20 4f 46 20 4f 50 47 41 56 45 3b 0d 0a 09 4f 50 47 3a 20 ┆ FOPG: FILE OF OPGAVE; OPG: ┆
0x2de80…2dea0 4f 50 47 41 56 45 3b 0d 0a 28 2a 20 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ┆OPGAVE; (* ====================┆
0x2dea0…2dec0 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 3d 3d 3d 3d 3d ┆================================┆
0x2dec0…2dee0 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 20 2a 29 0d 0a 20 20 20 20 20 20 20 20 28 2a 24 49 20 ┆============== *) (*$I ┆
0x2dee0…2df00 41 3a 4d 49 4e 49 43 41 4c 43 2e 49 4e 43 2a 29 0d 0a 70 72 6f 63 65 64 75 72 65 20 76 65 6a 6c ┆A:MINICALC.INC*) procedure vejl┆
0x2df00…2df20 65 64 6e 69 6e 67 3b 0d 0a 62 65 67 69 6e 0d 0a 67 6f 74 6f 78 79 28 30 2c 30 29 3b 20 77 72 69 ┆edning; begin gotoxy(0,0); wri┆
0x2df20…2df40 74 65 6c 6e 3b 20 77 72 69 74 65 6c 6e 3b 0d 0a 77 72 69 74 65 6c 6e 28 27 20 20 20 20 20 4d 69 ┆teln; writeln; writeln(' Mi┆
0x2df40…2df60 6e 69 63 61 6c 63 2c 20 43 6f 70 79 72 69 67 68 74 20 28 63 29 20 61 70 72 69 6c 20 2d 20 31 39 ┆nicalc, Copyright (c) april - 19┆
0x2df60…2df80 38 34 2c 20 43 61 72 6c 20 48 65 6d 6d 69 6e 67 73 65 6e 2c 27 29 3b 0d 0a 77 72 69 74 65 6c 6e ┆84, Carl Hemmingsen,'); writeln┆
0x2df80…2dfa0 28 27 20 20 20 20 20 46 6f 72 6c 61 67 65 74 20 46 41 47 2c 20 5b 67 69 72 73 76 65 6a 20 33 2c ┆(' Forlaget FAG, Ægirsvej 3,┆
0x2dfa0…2dfc0 20 33 36 30 30 20 46 72 65 64 65 72 69 6b 73 73 75 6e 64 2e 27 29 3b 0d 0a 77 72 69 74 65 6c 6e ┆ 3600 Frederikssund.'); writeln┆
0x2dfc0…2dfe0 3b 0d 0a 77 72 69 74 65 6c 6e 28 27 20 20 20 20 20 44 65 74 74 65 20 70 72 6f 67 72 61 6d 20 65 ┆; writeln(' Dette program e┆
0x2dfe0…2e000 72 20 65 6e 20 67 6f 64 20 68 6a 7b 6c 70 20 76 65 64 20 73 74 7c 72 72 65 20 62 65 72 65 67 6e ┆r en god hjælp ved større beregn┆
0x2e000…2e020 (20, 1, 6) 70 72 6f 67 72 61 6d 20 4d 49 4e 49 43 41 4c 43 3b 09 7b 20 43 6f 70 79 72 69 67 68 74 20 28 63 ┆program MINICALC; æ Copyright (c┆
0x2e020…2e040 29 2c 20 43 61 72 6c 20 48 65 6d 6d 69 6e 67 73 65 6e 2c 20 46 41 47 20 31 32 2f 35 2d 31 39 38 ┆), Carl Hemmingsen, FAG 12/5-198┆
0x2e040…2e060 34 20 7d 0d 0a 0d 0a 63 6f 6e 73 74 09 6d 61 78 72 61 6b 6b 65 20 3d 20 31 37 3b 20 6d 61 78 73 ┆4 å const maxrakke = 17; maxs┆
0x2e060…2e080 6f 6a 6c 65 20 3d 20 39 3b 0d 0a 09 6d 69 6e 72 65 61 6c 20 3d 20 2d 39 2e 39 39 39 39 39 39 39 ┆ojle = 9; minreal = -9.9999999┆
0x2e080…2e0a0 39 39 45 2b 33 37 3b 20 6d 61 78 72 65 61 6c 20 3d 20 39 2e 39 39 39 39 39 39 39 39 39 45 2b 33 ┆99E+37; maxreal = 9.999999999E+3┆
0x2e0a0…2e0c0 37 3b 0d 0a 74 79 70 65 09 73 74 72 35 20 20 3d 20 73 74 72 69 6e 67 5b 35 5d 3b 09 73 74 72 36 ┆7; type str5 = stringÆ5Å; str6┆
0x2e0c0…2e0e0 20 20 3d 20 73 74 72 69 6e 67 5b 36 5d 3b 0d 0a 09 73 74 72 31 30 20 3d 20 73 74 72 69 6e 67 5b ┆ = stringÆ6Å; str10 = stringÆ┆
0x2e0e0…2e100 31 30 5d 3b 09 73 74 72 31 34 20 3d 20 53 54 52 49 4e 47 5b 31 34 5d 3b 0d 0a 09 73 74 72 32 30 ┆10Å; str14 = STRINGÆ14Å; str20┆
0x2e100…2e120 20 3d 20 73 74 72 69 6e 67 5b 32 30 5d 3b 09 73 74 72 35 30 20 3d 20 73 74 72 69 6e 67 5b 35 30 ┆ = stringÆ20Å; str50 = stringÆ50┆
0x2e120…2e140 5d 3b 0d 0a 09 53 54 59 50 45 20 3d 20 41 52 52 41 59 5b 30 2e 2e 36 5d 20 4f 46 20 43 48 41 52 ┆Å; STYPE = ARRAYÆ0..6Å OF CHAR┆
0x2e140…2e160 3b 0d 0a 09 66 65 6a 6c 74 79 70 65 20 3d 20 61 72 72 61 79 5b 31 2e 2e 36 5d 20 6f 66 20 73 74 ┆; fejltype = arrayÆ1..6Å of st┆
0x2e160…2e180 72 36 3b 0d 0a 09 63 68 61 72 73 65 74 20 3d 20 73 65 74 20 6f 66 20 63 68 61 72 3b 0d 0a 09 42 ┆r6; charset = set of char; B┆
0x2e180…2e1a0 54 59 50 45 20 3d 20 41 52 52 41 59 5b 31 2e 2e 6d 61 78 73 6f 6a 6c 65 2c 31 2e 2e 6d 61 78 72 ┆TYPE = ARRAYÆ1..maxsojle,1..maxr┆
0x2e1a0…2e1c0 61 6b 6b 65 5d 20 4f 46 20 53 54 52 31 34 3b 0d 0a 09 41 54 59 50 45 20 3d 20 41 52 52 41 59 5b ┆akkeÅ OF STR14; ATYPE = ARRAYÆ┆
0x2e1c0…2e1e0 31 2e 2e 6d 61 78 73 6f 6a 6c 65 2c 31 2e 2e 6d 61 78 72 61 6b 6b 65 5d 20 4f 46 20 53 54 52 31 ┆1..maxsojle,1..maxrakkeÅ OF STR1┆
0x2e1e0…2e200 30 3b 0d 0a 09 4e 54 59 50 45 20 3d 20 41 52 52 41 59 5b 31 2e 2e 6d 61 78 73 6f 6a 6c 65 5d 20 ┆0; NTYPE = ARRAYÆ1..maxsojleÅ ┆
0x2e200…2e220 (20, 1, 7) 69 6e 67 65 72 2e 27 29 3b 0d 0a 77 72 69 74 65 6c 6e 3b 0d 0a 77 72 69 74 65 6c 6e 28 27 20 20 ┆inger.'); writeln; writeln(' ┆
0x2e220…2e240 20 20 20 4d 5d 4c 54 41 4c 3a 20 20 20 44 65 20 6d 7d 6c 74 65 20 73 74 7c 72 72 65 6c 73 65 72 ┆ MÅLTAL: De målte størrelser┆
0x2e240…2e260 20 69 6e 64 74 61 73 74 65 73 20 69 20 65 74 20 6d 7d 6c 65 73 6b 65 6d 61 2e 27 29 3b 0d 0a 77 ┆ indtastes i et måleskema.'); w┆
0x2e260…2e280 72 69 74 65 6c 6e 28 27 27 3a 31 35 2c 27 42 65 6e 79 74 20 63 75 72 73 6f 72 70 69 6c 65 6e 65 ┆riteln('':15,'Benyt cursorpilene┆
0x2e280…2e2a0 20 76 65 64 20 72 65 74 6e 69 6e 67 20 61 66 20 74 61 6c 6c 65 6e 65 2e 27 29 3b 0d 0a 77 72 69 ┆ ved retning af tallene.'); wri┆
0x2e2a0…2e2c0 74 65 6c 6e 28 27 20 20 20 20 20 46 55 4e 4b 54 49 4f 4e 3a 20 41 6e 67 69 76 20 61 6e 74 61 6c ┆teln(' FUNKTION: Angiv antal┆
0x2e2c0…2e2e0 6c 65 74 20 61 66 20 73 7c 6a 6c 65 72 20 69 20 62 65 72 65 67 6e 69 6e 67 73 6b 65 6d 61 65 74 ┆let af søjler i beregningskemaet┆
0x2e2e0…2e300 2c 27 29 3b 0d 0a 77 72 69 74 65 6c 6e 28 27 27 3a 31 35 2c 27 6f 67 20 66 6f 72 73 6b 72 69 66 ┆,'); writeln('':15,'og forskrif┆
0x2e300…2e320 74 65 72 6e 65 20 66 6f 72 20 62 65 72 65 67 6e 65 64 65 20 73 74 7c 72 72 65 6c 73 65 72 2e 27 ┆terne for beregnede størrelser.'┆
0x2e320…2e340 29 3b 0d 0a 77 72 69 74 65 6c 6e 28 27 27 3a 31 35 2c 27 49 20 66 6f 72 73 6b 72 69 66 74 65 6e ┆); writeln('':15,'I forskriften┆
0x2e340…2e360 20 6d 7d 20 69 6e 64 67 7d 20 6d 7d 6c 74 65 20 6f 67 20 61 6c 6c 65 72 65 64 65 20 62 65 72 65 ┆ må indgå målte og allerede bere┆
0x2e360…2e380 67 6e 65 64 65 20 73 74 7c 72 72 65 6c 73 65 72 27 29 3b 0d 0a 77 72 69 74 65 6c 6e 28 27 27 3a ┆gnede størrelser'); writeln('':┆
0x2e380…2e3a0 31 35 2c 27 73 61 6d 74 3a 20 61 62 73 2c 73 71 72 74 2c 20 73 69 6e 2c 20 63 6f 73 2c 20 61 72 ┆15,'samt: abs,sqrt, sin, cos, ar┆
0x2e3a0…2e3c0 63 74 61 6e 2c 20 6c 6e 2c 20 6c 6f 67 20 6f 67 20 65 78 70 2e 27 29 3b 0d 0a 77 72 69 74 65 6c ┆ctan, ln, log og exp.'); writel┆
0x2e3c0…2e3e0 6e 28 27 20 20 20 20 20 42 45 52 45 47 4e 3a 20 20 20 55 64 72 65 67 6e 69 6e 67 65 72 6e 65 20 ┆n(' BEREGN: Udregningerne ┆
0x2e3e0…2e400 66 6f 72 65 74 61 67 65 73 2e 27 29 3b 0d 0a 77 72 69 74 65 6c 6e 28 27 27 3a 31 35 2c 27 45 66 ┆foretages.'); writeln('':15,'Ef┆
0x2e400…2e420 (20, 1, 8) 4f 46 20 53 54 52 31 30 3b 0d 0a 09 46 54 59 50 45 20 3d 20 41 52 52 41 59 5b 31 2e 2e 6d 61 78 ┆OF STR10; FTYPE = ARRAYÆ1..max┆
0x2e420…2e440 73 6f 6a 6c 65 5d 20 4f 46 20 53 54 52 35 30 3b 0d 0a 09 4f 50 47 41 56 45 3d 20 52 45 43 4f 52 ┆sojleÅ OF STR50; OPGAVE= RECOR┆
0x2e440…2e460 44 0d 0a 09 09 41 53 4f 4a 4c 45 2c 52 41 4b 4b 45 2c 42 53 4f 4a 4c 45 3a 20 42 59 54 45 3b 0d ┆D ASOJLE,RAKKE,BSOJLE: BYTE; ┆
0x2e460…2e480 0a 09 09 41 3a 20 41 54 59 50 45 3b 0d 0a 09 09 42 3a 20 42 54 59 50 45 3b 0d 0a 09 09 41 6e 61 ┆ A: ATYPE; B: BTYPE; Ana┆
0x2e480…2e4a0 76 6e 2c 42 6e 61 76 6e 3a 20 6e 74 79 70 65 3b 0d 0a 09 09 46 3a 20 46 54 59 50 45 0d 0a 09 45 ┆vn,Bnavn: ntype; F: FTYPE E┆
0x2e4a0…2e4c0 4e 44 3b 0d 0a 0d 0a 63 6f 6e 73 74 09 53 4e 41 56 4e 3a 20 53 54 59 50 45 20 3d 20 28 27 56 27 ┆ND; const SNAVN: STYPE = ('V'┆
0x2e4c0…2e4e0 2c 27 4d 27 2c 27 46 27 2c 27 42 27 2c 27 47 27 2c 27 48 27 2c 27 53 27 29 3b 0d 0a 09 66 65 6a ┆,'M','F','B','G','H','S'); fej┆
0x2e4e0…2e500 6c 6e 61 76 6e 3a 20 66 65 6a 6c 74 79 70 65 20 3d 28 27 6c 6e 28 2d 29 27 2c 27 72 6f 64 28 2d ┆lnavn: fejltype =('ln(-)','rod(-┆
0x2e500…2e520 29 27 2c 27 28 2d 29 5e 27 2c 27 64 69 76 20 30 27 2c 27 66 28 78 29 3d 3f 27 2c 27 3f 3f 3f 3f ┆)','(-)^','div 0','f(x)=?','????┆
0x2e520…2e540 3f 27 29 3b 0d 0a 09 62 73 74 72 31 3a 20 73 74 72 32 30 20 3d 20 27 21 2d 2d 2d 2d 2d 2d 2d 2d ┆?'); bstr1: str20 = '!--------┆
0x2e540…2e560 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 27 3b 0d 0a 09 62 73 74 72 32 3a 20 73 74 72 32 30 20 3d 20 27 ┆-----------'; bstr2: str20 = '┆
0x2e560…2e580 21 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 27 3b 0d 0a 09 74 6f 6d 20 3a 20 20 ┆!==================='; tom : ┆
0x2e580…2e5a0 73 74 72 32 30 20 3d 20 27 21 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 3b 0d ┆str20 = '! '; ┆
0x2e5a0…2e5c0 0a 09 54 49 4c 42 20 3d 20 40 38 3b 20 46 52 45 4d 20 3d 20 40 32 34 3b 20 4f 50 20 3d 20 40 32 ┆ TILB = @8; FREM = @24; OP = @2┆
0x2e5c0…2e5e0 36 3b 20 4e 45 44 20 3d 20 40 31 30 3b 20 45 53 43 20 3d 20 40 32 37 3b 20 52 45 54 55 52 20 3d ┆6; NED = @10; ESC = @27; RETUR =┆
0x2e5e0…2e600 20 40 31 33 3b 0d 0a 09 53 50 41 43 45 20 3d 20 40 33 32 3b 20 54 41 42 20 3d 20 40 39 3b 20 53 ┆ @13; SPACE = @32; TAB = @9; S┆
0x2e600…2e620 (20, 1, 9) 74 65 72 20 68 76 65 72 20 70 72 6f 63 65 64 75 72 65 20 6b 61 6e 20 73 6b 7b 72 6d 65 6e 20 6b ┆ter hver procedure kan skærmen k┆
0x2e620…2e640 6f 70 69 65 72 65 73 20 70 7d 20 70 72 69 6e 74 65 72 65 6e 2e 27 29 3b 0d 0a 77 72 69 74 65 6c ┆opieres på printeren.'); writel┆
0x2e640…2e660 6e 28 27 20 20 20 20 20 47 45 4d 3a 20 20 20 20 20 20 48 65 6c 65 20 6f 70 67 61 76 65 6e 20 67 ┆n(' GEM: Hele opgaven g┆
0x2e660…2e680 65 6d 6d 65 73 20 70 7d 20 64 69 73 6b 65 74 74 65 6e 2e 27 29 3b 0d 0a 77 72 69 74 65 6c 6e 28 ┆emmes på disketten.'); writeln(┆
0x2e680…2e6a0 27 20 20 20 20 20 48 45 4e 54 3a 20 20 20 20 20 4c 7b 73 65 72 20 65 6e 20 6f 70 67 61 76 65 20 ┆' HENT: Læser en opgave ┆
0x2e6a0…2e6c0 66 72 61 20 64 69 73 6b 65 74 74 65 6e 2e 27 29 3b 0d 0a 77 72 69 74 65 6c 6e 28 27 27 3a 31 35 ┆fra disketten.'); writeln('':15┆
0x2e6c0…2e6e0 2c 27 48 65 6e 74 20 66 2e 65 6b 73 2e 20 6b 61 73 73 65 2e 20 4f 67 20 61 66 70 72 7c 76 20 4d ┆,'Hent f.eks. kasse. Og afprøv M┆
0x2e6e0…2e700 7d 6c 74 61 6c 2c 20 46 75 6e 6b 74 69 6f 6e 20 6f 67 20 42 65 72 65 67 6e 2e 27 29 3b 0d 0a 77 ┆åltal, Funktion og Beregn.'); w┆
0x2e700…2e720 72 69 74 65 6c 6e 28 27 20 20 20 20 20 56 45 4a 4c 45 44 4e 49 4e 47 3a 20 6c 7b 73 65 72 20 6d ┆riteln(' VEJLEDNING: læser m┆
0x2e720…2e740 69 6e 69 63 61 6c 63 2e 68 6c 70 2e 27 29 0d 0a 65 6e 64 3b 09 7b 20 76 65 6a 6c 65 64 6e 69 6e ┆inicalc.hlp.') end; æ vejlednin┆
0x2e740…2e760 67 20 7d 0d 0a 0d 0a 70 72 6f 63 65 64 75 72 65 20 63 6c 6f 73 65 6c 3b 0d 0a 62 65 67 69 6e 0d ┆g å procedure closel; begin ┆
0x2e760…2e780 0a 09 70 6f 72 74 28 2e 31 31 2e 29 3a 3d 31 3b 20 77 68 69 6c 65 20 28 70 6f 72 74 28 2e 31 31 ┆ port(.11.):=1; while (port(.11┆
0x2e780…2e7a0 2e 29 20 61 6e 64 20 31 29 3d 30 20 64 6f 20 70 6f 72 74 28 2e 31 31 2e 29 3a 3d 31 3b 0d 0a 09 ┆.) and 1)=0 do port(.11.):=1; ┆
0x2e7a0…2e7c0 70 6f 72 74 28 2e 31 31 2e 29 3a 3d 35 3b 20 70 6f 72 74 28 2e 31 31 2e 29 3a 3d 33 32 3b 0d 0a ┆port(.11.):=5; port(.11.):=32; ┆
0x2e7c0…2e7e0 65 6e 64 3b 0d 0a 0d 0a 70 72 6f 63 65 64 75 72 65 20 73 6b 72 69 76 73 6b 61 72 6d 3b 0d 0a 62 ┆end; procedure skrivskarm; b┆
0x2e7e0…2e800 65 67 69 6e 0d 0a 09 77 72 69 74 65 28 6c 73 74 2c 63 68 72 28 32 37 29 2b 27 48 27 29 0d 0a 65 ┆egin write(lst,chr(27)+'H') e┆
0x2e800…2e820 (21, 0, 1) 4c 45 54 45 4f 4c 20 3d 20 40 33 30 3b 20 42 45 4c 4c 20 3d 20 40 37 3b 20 53 4c 45 54 45 4f 53 ┆LETEOL = @30; BELL = @7; SLETEOS┆
0x2e820…2e840 20 3d 20 40 33 31 3b 0d 0a 09 66 6b 74 6b 65 79 73 3a 20 63 68 61 72 73 65 74 20 3d 20 5b 74 69 ┆ = @31; fktkeys: charset = Æti┆
0x2e840…2e860 6c 62 2c 66 72 65 6d 2c 6f 70 2c 6e 65 64 2c 73 70 61 63 65 2c 65 73 63 2c 72 65 74 75 72 5d 3b ┆lb,frem,op,ned,space,esc,returÅ;┆
0x2e860…2e880 0d 0a 09 55 53 3a 09 20 43 48 41 52 53 45 54 20 3d 20 5b 27 41 27 2e 2e 27 5a 27 5d 3b 0d 0a 09 ┆ US: CHARSET = Æ'A'..'Z'Å; ┆
0x2e880…2e8a0 42 4f 47 53 54 41 56 3a 20 43 48 41 52 53 45 54 20 3d 20 5b 27 41 27 2e 2e 27 5d 27 5d 3b 0d 0a ┆BOGSTAV: CHARSET = Æ'A'..'Å'Å; ┆
0x2e8a0…2e8c0 09 63 69 66 66 65 72 20 3a 20 63 68 61 72 73 65 74 20 3d 20 5b 27 30 27 2e 2e 27 39 27 5d 3b 0d ┆ ciffer : charset = Æ'0'..'9'Å; ┆
0x2e8c0…2e8e0 0a 09 6f 70 65 72 61 74 6f 72 3a 63 68 61 72 73 65 74 20 3d 20 5b 27 28 27 2c 27 29 27 2c 27 5e ┆ operator:charset = Æ'(',')','^┆
0x2e8e0…2e900 27 2c 27 2b 27 2c 27 2d 27 2c 27 2f 27 2c 27 2a 27 2c 27 2e 27 2c 27 20 27 5d 3b 0d 0a 09 74 61 ┆','+','-','/','*','.',' 'Å; ta┆
0x2e900…2e920 6c 74 65 67 6e 3a 20 43 48 41 52 53 45 54 20 3d 20 5b 27 45 27 2c 27 30 27 2e 2e 27 39 27 2c 27 ┆ltegn: CHARSET = Æ'E','0'..'9','┆
0x2e920…2e940 2e 27 2c 27 2d 27 2c 27 2b 27 5d 3b 0d 0a 0d 0a 76 61 72 09 41 52 45 4e 2c 42 52 45 4e 3a 20 4e ┆.','-','+'Å; var AREN,BREN: N┆
0x2e940…2e960 54 59 50 45 3b 0d 0a 09 66 6f 72 6d 3a 09 61 72 72 61 79 5b 31 2e 2e 6d 61 78 73 6f 6a 6c 65 5d ┆TYPE; form: arrayÆ1..maxsojleÅ┆
0x2e960…2e980 20 6f 66 20 73 74 72 69 6e 67 5b 32 5d 3b 0d 0a 09 64 65 63 3a 09 61 72 72 61 79 5b 31 2e 2e 6d ┆ of stringÆ2Å; dec: arrayÆ1..m┆
0x2e980…2e9a0 61 78 73 6f 6a 6c 65 5d 20 6f 66 20 62 79 74 65 3b 0d 0a 09 49 2c 4a 2c 4b 2c 72 62 68 3a 09 09 ┆axsojleÅ of byte; I,J,K,rbh: ┆
0x2e9a0…2e9c0 09 09 69 6e 74 65 67 65 72 3b 0d 0a 09 66 65 6a 6c 61 72 74 2c 20 62 72 65 64 64 65 2c 20 6c 61 ┆ integer; fejlart, bredde, la┆
0x2e9c0…2e9e0 6e 67 2c 20 65 6e 74 6f 2c 20 4c 2c 20 4c 31 2c 20 72 68 3a 20 62 79 74 65 3b 0d 0a 09 53 43 52 ┆ng, ento, L, L1, rh: byte; SCR┆
0x2e9e0…2ea00 45 45 4e 3a 20 41 52 52 41 59 5b 31 2e 2e 32 30 30 30 5d 20 4f 46 20 43 48 41 52 20 41 54 20 24 ┆EEN: ARRAYÆ1..2000Å OF CHAR AT $┆
0x2ea00…2ea20 (21, 0, 2) 77 72 69 74 65 28 42 45 4c 4c 29 3b 0d 0a 09 09 69 66 20 6c 65 6e 28 73 29 3e 31 30 20 74 68 65 ┆write(BELL); if len(s)>10 the┆
0x2ea20…2ea40 6e 20 62 65 67 69 6e 20 73 3a 3d 27 3c 31 31 20 74 65 67 6e 20 21 27 3b 77 72 69 74 65 28 73 29 ┆n begin s:='<11 tegn !';write(s)┆
0x2ea40…2ea60 3b 0d 0a 09 09 72 65 61 64 28 6b 62 64 2c 74 65 67 6e 29 3b 20 42 53 28 4c 45 4e 28 53 29 29 20 ┆; read(kbd,tegn); BS(LEN(S)) ┆
0x2ea60…2ea80 65 6e 64 0d 0a 09 65 6e 64 0d 0a 75 6e 74 69 6c 20 6f 6b 3b 0d 0a 6c 61 65 73 72 65 61 6c 3a 3d ┆end end until ok; laesreal:=┆
0x2ea80…2eaa0 53 0d 0a 65 6e 64 3b 09 7b 20 6c 61 65 73 72 65 61 6c 20 7d 0d 0a 0d 0a 46 55 4e 43 54 49 4f 4e ┆S end; æ laesreal å FUNCTION┆
0x2eaa0…2eac0 20 53 54 52 45 4e 47 28 53 3a 20 53 54 52 35 30 3b 20 58 2c 59 2c 4c 3a 20 49 4e 54 45 47 45 52 ┆ STRENG(S: STR50; X,Y,L: INTEGER┆
0x2eac0…2eae0 29 3a 20 53 54 52 35 30 3b 0d 0a 0d 0a 43 4f 4e 53 54 09 44 4f 54 53 3a 20 53 54 52 35 30 20 3d ┆): STR50; CONST DOTS: STR50 =┆
0x2eae0…2eb00 20 27 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e ┆ '..............................┆
0x2eb00…2eb20 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 27 3b 0d 0a 0d 0a 56 41 52 09 50 3a ┆....................'; VAR P:┆
0x2eb20…2eb40 20 42 59 54 45 3b 20 43 48 3a 20 43 48 41 52 3b 0d 0a 42 45 47 49 4e 0d 0a 09 47 4f 54 4f 58 59 ┆ BYTE; CH: CHAR; BEGIN GOTOXY┆
0x2eb40…2eb60 28 58 2c 59 29 3b 0d 0a 09 57 52 49 54 45 28 53 29 3b 20 49 46 20 4c 45 4e 28 53 29 3c 4c 20 54 ┆(X,Y); WRITE(S); IF LEN(S)<L T┆
0x2eb60…2eb80 48 45 4e 20 57 52 49 54 45 28 43 4f 50 59 28 44 4f 54 53 2c 31 2c 4c 2d 4c 45 4e 28 53 29 29 29 ┆HEN WRITE(COPY(DOTS,1,L-LEN(S)))┆
0x2eb80…2eba0 3b 0d 0a 09 50 3a 3d 30 3b 0d 0a 09 52 45 50 45 41 54 0d 0a 09 20 20 47 4f 54 4f 58 59 28 58 2b ┆; P:=0; REPEAT GOTOXY(X+┆
0x2eba0…2ebc0 50 2c 59 29 3b 20 52 45 41 44 28 4b 42 44 2c 43 48 29 3b 0d 0a 09 20 20 43 41 53 45 20 43 48 20 ┆P,Y); READ(KBD,CH); CASE CH ┆
0x2ebc0…2ebe0 4f 46 0d 0a 09 09 40 35 3a 20 09 49 46 20 50 3e 30 20 54 48 45 4e 20 42 45 47 49 4e 20 44 45 4c ┆OF @5: IF P>0 THEN BEGIN DEL┆
0x2ebe0…2ec00 45 54 45 28 53 2c 50 2c 31 29 3b 0d 0a 09 09 09 57 52 49 54 45 28 43 48 2c 43 4f 50 59 28 53 2c ┆ETE(S,P,1); WRITE(CH,COPY(S,┆
0x2ec00…2ec20 (21, 0, 3) 46 38 30 30 3b 0d 0a 09 4b 4f 50 49 53 43 52 45 45 4e 3a 20 41 52 52 41 59 5b 31 2e 2e 32 30 30 ┆F800; KOPISCREEN: ARRAYÆ1..200┆
0x2ec20…2ec40 30 5d 20 4f 46 20 43 48 41 52 3b 0d 0a 09 73 2c 20 74 2c 20 63 68 2c 20 74 65 67 6e 2c 20 73 76 ┆0Å OF CHAR; s, t, ch, tegn, sv┆
0x2ec40…2ec60 61 72 3a 09 09 09 63 68 61 72 3b 0d 0a 09 65 6e 73 2c 20 6e 79 6f 70 67 2c 20 70 72 69 6e 74 65 ┆ar: char; ens, nyopg, printe┆
0x2ec60…2ec80 72 2c 20 69 6b 6b 65 62 6f 67 73 74 2c 20 6c 6f 76 6c 69 67 2c 20 6e 79 74 66 3a 09 62 6f 6f 6c ┆r, ikkebogst, lovlig, nytf: bool┆
0x2ec80…2eca0 65 61 6e 3b 0d 0a 09 62 6c 61 6e 6b 65 3a 09 53 54 52 31 30 3b 20 42 53 54 52 3a 53 54 52 32 30 ┆ean; blanke: STR10; BSTR:STR20┆
0x2eca0…2ecc0 3b 0d 0a 09 46 49 4c 4e 41 56 4e 3a 09 09 09 09 53 54 52 31 34 3b 0d 0a 09 46 4f 50 47 3a 20 46 ┆; FILNAVN: STR14; FOPG: F┆
0x2ecc0…2ece0 49 4c 45 20 4f 46 20 4f 50 47 41 56 45 3b 0d 0a 09 4f 50 47 3a 20 4f 50 47 41 56 45 3b 0d 0a 28 ┆ILE OF OPGAVE; OPG: OPGAVE; (┆
0x2ece0…2ed00 2a 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 3d 3d 3d ┆* ==============================┆
0x2ed00…2ed20 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 3d 3d 3d 3d 3d ┆================================┆
0x2ed20…2ed40 3d 3d 3d 3d 20 2a 29 0d 0a 0d 0a 46 55 4e 43 54 49 4f 4e 20 55 50 43 48 41 52 28 43 48 3a 20 43 ┆==== *) FUNCTION UPCHAR(CH: C┆
0x2ed40…2ed60 48 41 52 29 3a 20 43 48 41 52 3b 0d 0a 42 45 47 49 4e 0d 0a 09 49 46 20 43 48 20 49 4e 20 5b 27 ┆HAR): CHAR; BEGIN IF CH IN Æ'┆
0x2ed60…2ed80 61 27 2e 2e 27 7d 27 5d 20 54 48 45 4e 20 43 48 3a 3d 43 48 52 28 4f 52 44 28 43 48 29 2d 33 32 ┆a'..'å'Å THEN CH:=CHR(ORD(CH)-32┆
0x2ed80…2eda0 29 20 45 4c 53 45 20 43 48 3a 3d 43 48 3b 0d 0a 09 55 50 43 48 41 52 3a 3d 20 43 48 0d 0a 45 4e ┆) ELSE CH:=CH; UPCHAR:= CH EN┆
0x2eda0…2edc0 44 3b 09 7b 20 75 70 63 68 61 72 20 7d 0d 0a 0d 0a 46 55 4e 43 54 49 4f 4e 20 55 50 43 41 53 45 ┆D; æ upchar å FUNCTION UPCASE┆
0x2edc0…2ede0 28 43 48 3a 20 53 54 52 35 30 29 3a 20 53 54 52 35 30 3b 0d 0a 56 41 52 09 49 3a 20 42 59 54 45 ┆(CH: STR50): STR50; VAR I: BYTE┆
0x2ede0…2ee00 3b 0d 0a 42 45 47 49 4e 0d 0a 09 46 4f 52 20 49 3a 3d 20 31 20 54 4f 20 4c 45 4e 28 43 48 29 20 ┆; BEGIN FOR I:= 1 TO LEN(CH) ┆
0x2ee00…2ee20 (21, 0, 4) 50 2c 4c 29 2c 27 2e 27 29 3b 20 50 3a 3d 20 50 2d 31 20 45 4e 44 3b 0d 0a 09 09 40 31 32 37 3a ┆P,L),'.'); P:= P-1 END; @127:┆
0x2ee20…2ee40 20 09 42 45 47 49 4e 0d 0a 09 09 09 50 3a 3d 30 3b 20 53 3a 3d 27 27 3b 20 47 4f 54 4f 58 59 28 ┆ BEGIN P:=0; S:=''; GOTOXY(┆
0x2ee40…2ee60 58 2c 59 29 3b 20 57 52 49 54 45 28 43 4f 50 59 28 44 4f 54 53 2c 31 2c 4c 29 29 0d 0a 09 09 09 ┆X,Y); WRITE(COPY(DOTS,1,L)) ┆
0x2ee60…2ee80 45 4e 44 3b 0d 0a 09 09 54 49 4c 42 3a 20 09 49 46 20 50 3e 30 20 54 48 45 4e 20 50 3a 3d 50 2d ┆END; TILB: IF P>0 THEN P:=P-┆
0x2ee80…2eea0 31 3b 0d 0a 09 09 46 52 45 4d 3a 20 09 49 46 20 50 3c 4c 45 4e 28 53 29 20 54 48 45 4e 20 50 3a ┆1; FREM: IF P<LEN(S) THEN P:┆
0x2eea0…2eec0 3d 50 2b 31 3b 0d 0a 09 09 4e 45 44 20 3a 20 09 50 3a 3d 30 3b 0d 0a 09 09 4f 50 20 20 3a 20 09 ┆=P+1; NED : P:=0; OP : ┆
0x2eec0…2eee0 50 3a 3d 4c 45 4e 28 53 29 3b 0d 0a 09 09 40 33 33 2e 2e 40 31 32 36 3a 42 45 47 49 4e 0d 0a 09 ┆P:=LEN(S); @33..@126:BEGIN ┆
0x2eee0…2ef00 09 09 49 46 20 50 3c 4c 20 54 48 45 4e 20 42 45 47 49 4e 20 44 45 4c 45 54 45 28 53 2c 4c 2c 31 ┆ IF P<L THEN BEGIN DELETE(S,L,1┆
0x2ef00…2ef20 29 3b 49 4e 53 45 52 54 28 43 48 2c 53 2c 50 2b 31 29 3b 0d 0a 09 09 09 50 3a 3d 50 2b 31 3b 20 ┆);INSERT(CH,S,P+1); P:=P+1; ┆
0x2ef20…2ef40 57 52 49 54 45 28 43 4f 50 59 28 53 2c 50 2c 4c 29 29 20 45 4e 44 20 45 4c 53 45 20 57 52 49 54 ┆WRITE(COPY(S,P,L)) END ELSE WRIT┆
0x2ef40…2ef60 45 28 42 45 4c 4c 29 0d 0a 20 20 20 20 09 09 09 45 4e 44 0d 0a 09 20 20 09 45 4e 44 0d 0a 09 55 ┆E(BELL) END END U┆
0x2ef60…2ef80 4e 54 49 4c 20 43 48 20 3d 20 52 45 54 55 52 3b 0d 0a 09 47 4f 54 4f 58 59 28 58 2b 4c 45 4e 28 ┆NTIL CH = RETUR; GOTOXY(X+LEN(┆
0x2ef80…2efa0 53 29 2c 59 29 3b 20 57 52 49 54 45 28 27 27 3a 4c 2d 4c 45 4e 28 53 29 29 3b 0d 0a 09 47 4f 54 ┆S),Y); WRITE('':L-LEN(S)); GOT┆
0x2efa0…2efc0 4f 58 59 28 58 2b 4c 45 4e 28 53 29 2c 59 29 3b 20 53 54 52 45 4e 47 3a 3d 53 0d 0a 45 4e 44 3b ┆OXY(X+LEN(S),Y); STRENG:=S END;┆
0x2efc0…2efe0 09 7b 20 73 74 72 65 6e 67 20 7d 0d 0a 0d 0a 70 72 6f 63 65 64 75 72 65 20 73 6c 65 74 28 59 31 ┆ æ streng å procedure slet(Y1┆
0x2efe0…2f000 2c 59 32 2c 58 3a 20 42 59 54 45 29 3b 0d 0a 76 61 72 09 59 3a 20 62 79 74 65 3b 0d 0a 62 65 67 ┆,Y2,X: BYTE); var Y: byte; beg┆
0x2f000…2f020 (21, 0, 5) 44 4f 20 49 46 20 43 48 5b 49 5d 20 49 4e 20 5b 27 61 27 2e 2e 27 7d 27 5d 20 54 48 45 4e 0d 0a ┆DO IF CHÆIÅ IN Æ'a'..'å'Å THEN ┆
0x2f020…2f040 09 43 48 5b 49 5d 20 3a 3d 43 48 52 28 4f 52 44 28 43 48 5b 49 5d 29 2d 33 32 29 20 45 4c 53 45 ┆ CHÆIÅ :=CHR(ORD(CHÆIÅ)-32) ELSE┆
0x2f040…2f060 20 43 48 5b 49 5d 3a 3d 43 48 5b 49 5d 3b 0d 0a 09 55 50 43 41 53 45 3a 3d 20 43 48 0d 0a 45 4e ┆ CHÆIÅ:=CHÆIÅ; UPCASE:= CH EN┆
0x2f060…2f080 44 3b 09 7b 20 75 70 63 61 73 65 20 7d 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 20 56 45 4e 54 3b ┆D; æ upcase å PROCEDURE VENT;┆
0x2f080…2f0a0 0d 0a 42 45 47 49 4e 0d 0a 09 57 52 49 54 45 28 27 20 52 45 54 55 52 4e 20 2d 3e 27 29 3b 0d 0a ┆ BEGIN WRITE(' RETURN ->'); ┆
0x2f0a0…2f0c0 09 52 45 50 45 41 54 20 52 45 41 44 28 4b 42 44 2c 54 45 47 4e 29 20 55 4e 54 49 4c 20 54 45 47 ┆ REPEAT READ(KBD,TEGN) UNTIL TEG┆
0x2f0c0…2f0e0 4e 20 3d 20 52 45 54 55 52 0d 0a 45 4e 44 3b 0d 0a 0d 0a 70 72 6f 63 65 64 75 72 65 20 42 53 28 ┆N = RETUR END; procedure BS(┆
0x2f0e0…2f100 71 3a 62 79 74 65 29 3b 0d 0a 76 61 72 09 69 3a 20 62 79 74 65 3b 0d 0a 42 45 47 49 4e 0d 0a 09 ┆q:byte); var i: byte; BEGIN ┆
0x2f100…2f120 46 4f 52 20 49 3a 3d 20 31 20 54 4f 20 51 20 44 4f 20 57 52 49 54 45 28 54 49 4c 42 2c 27 20 27 ┆FOR I:= 1 TO Q DO WRITE(TILB,' '┆
0x2f120…2f140 2c 54 49 4c 42 29 3b 0d 0a 45 4e 44 3b 0d 0a 0d 0a 70 72 6f 63 65 64 75 72 65 20 66 65 6a 6c 28 ┆,TILB); END; procedure fejl(┆
0x2f140…2f160 69 3a 20 62 79 74 65 29 3b 0d 0a 62 65 67 69 6e 0d 0a 67 6f 74 6f 78 79 28 30 2c 32 34 29 3b 20 ┆i: byte); begin gotoxy(0,24); ┆
0x2f160…2f180 77 72 69 74 65 28 53 4c 45 54 45 4f 4c 2c 42 45 4c 4c 2c 27 27 3a 31 30 29 3b 0d 0a 63 61 73 65 ┆write(SLETEOL,BELL,'':10); case┆
0x2f180…2f1a0 20 69 20 6f 66 0d 0a 09 31 3a 20 77 72 69 74 65 28 27 49 6e 67 65 6e 20 6f 76 65 72 73 6b 72 69 ┆ i of 1: write('Ingen overskri┆
0x2f1a0…2f1c0 66 74 65 72 20 6d 7d 20 76 7b 72 65 20 65 6e 73 20 21 27 29 3b 0d 0a 09 32 3a 20 77 72 69 74 65 ┆fter må være ens !'); 2: write┆
0x2f1c0…2f1e0 28 27 75 6c 6f 76 6c 69 67 74 20 74 65 67 6e 20 69 20 66 6f 72 73 6b 72 69 66 74 21 20 65 6c 2e ┆('ulovligt tegn i forskrift! el.┆
0x2f1e0…2f200 20 28 29 20 66 65 6a 6c 27 29 3b 0d 0a 09 33 3a 20 77 72 69 74 65 28 27 66 7c 72 73 74 65 20 74 ┆ () fejl'); 3: write('første t┆
0x2f200…2f220 (21, 0, 6) 69 6e 0d 0a 09 66 6f 72 20 59 3a 3d 20 59 31 20 74 6f 20 59 32 20 64 6f 20 62 65 67 69 6e 20 67 ┆in for Y:= Y1 to Y2 do begin g┆
0x2f220…2f240 6f 74 6f 78 79 28 58 2c 59 29 3b 20 77 72 69 74 65 28 53 4c 45 54 45 4f 4c 29 20 65 6e 64 0d 0a ┆otoxy(X,Y); write(SLETEOL) end ┆
0x2f240…2f260 65 6e 64 3b 09 7b 20 73 6c 65 74 20 7d 0d 0a 0d 0a 28 2a 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆end; æ slet å (* ------------┆
0x2f260…2f280 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x2f280…2f2a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 29 0d 0a 0d 0a 50 52 4f ┆-----------------------*) PRO┆
0x2f2a0…2f2c0 43 45 44 55 52 45 20 42 45 52 45 47 4e 28 46 4f 52 53 4b 52 49 46 54 3a 53 54 52 35 30 3b 56 41 ┆CEDURE BEREGN(FORSKRIFT:STR50;VA┆
0x2f2c0…2f2e0 52 20 56 41 52 44 49 3a 52 45 41 4c 3b 56 41 52 20 46 45 4a 4c 41 52 54 3a 42 59 54 45 29 3b 0d ┆R VARDI:REAL;VAR FEJLART:BYTE); ┆
0x2f2e0…2f300 0a 56 41 52 09 50 4f 53 3a 20 42 59 54 45 3b 20 43 48 3a 20 43 48 41 52 3b 20 49 2c 50 3a 20 49 ┆ VAR POS: BYTE; CH: CHAR; I,P: I┆
0x2f300…2f320 4e 54 45 47 45 52 3b 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 20 4e 59 54 54 45 47 4e 3b 0d 0a 42 ┆NTEGER; PROCEDURE NYTTEGN; B┆
0x2f320…2f340 45 47 49 4e 0d 0a 09 50 4f 53 3a 3d 50 4f 53 2b 31 3b 0d 0a 09 49 46 20 50 4f 53 3c 3d 4c 45 4e ┆EGIN POS:=POS+1; IF POS<=LEN┆
0x2f340…2f360 28 46 4f 52 53 4b 52 49 46 54 29 20 54 48 45 4e 20 43 48 3a 3d 46 4f 52 53 4b 52 49 46 54 5b 50 ┆(FORSKRIFT) THEN CH:=FORSKRIFTÆP┆
0x2f360…2f380 4f 53 5d 20 45 4c 53 45 20 43 48 3a 3d 20 52 45 54 55 52 0d 0a 45 4e 44 3b 0d 0a 0d 0a 46 55 4e ┆OSÅ ELSE CH:= RETUR END; FUN┆
0x2f380…2f3a0 43 54 49 4f 4e 20 55 44 54 52 59 4b 3a 20 52 45 41 4c 3b 0d 0a 56 41 52 09 45 3a 20 52 45 41 4c ┆CTION UDTRYK: REAL; VAR E: REAL┆
0x2f3a0…2f3c0 3b 20 4f 50 52 3a 20 43 48 41 52 3b 0d 0a 0d 0a 46 55 4e 43 54 49 4f 4e 20 4c 45 44 3a 20 52 45 ┆; OPR: CHAR; FUNCTION LED: RE┆
0x2f3c0…2f3e0 41 4c 3b 0d 0a 56 41 52 09 53 2c 20 4e 41 56 4e 45 52 3a 20 52 45 41 4c 3b 20 4f 50 52 3a 20 43 ┆AL; VAR S, NAVNER: REAL; OPR: C┆
0x2f3e0…2f400 48 41 52 3b 0d 0a 0d 0a 46 55 4e 43 54 49 4f 4e 20 54 45 52 4d 3a 20 52 45 41 4c 3b 0d 0a 56 41 ┆HAR; FUNCTION TERM: REAL; VA┆
0x2f400…2f420 (21, 0, 7) 65 67 6e 20 73 6b 61 6c 20 76 7b 72 65 20 65 74 20 62 6f 67 73 74 61 76 27 29 3b 0d 0a 09 34 3a ┆egn skal være et bogstav'); 4:┆
0x2f420…2f440 20 77 72 69 74 65 28 27 62 65 6e 79 74 20 6b 75 6e 20 62 6f 67 73 74 61 76 65 72 2c 20 74 61 6c ┆ write('benyt kun bogstaver, tal┆
0x2f440…2f460 20 6f 67 20 2f 20 20 65 6b 73 2e 20 52 2f 4f 48 4d 27 29 0d 0a 65 6e 64 3b 0d 0a 56 45 4e 54 3b ┆ og / eks. R/OHM') end; VENT;┆
0x2f460…2f480 20 57 52 49 54 45 28 52 45 54 55 52 2c 53 4c 45 54 45 4f 4c 29 0d 0a 65 6e 64 3b 09 7b 20 66 65 ┆ WRITE(RETUR,SLETEOL) end; æ fe┆
0x2f480…2f4a0 6a 6c 20 7d 0d 0a 0d 0a 66 75 6e 63 74 69 6f 6e 20 6c 61 65 73 69 6e 74 28 74 61 6c 2c 6d 69 6e ┆jl å function laesint(tal,min┆
0x2f4a0…2f4c0 2c 6d 61 78 3a 20 69 6e 74 65 67 65 72 29 3a 20 69 6e 74 65 67 65 72 3b 0d 0a 76 61 72 09 6e 2c ┆,max: integer): integer; var n,┆
0x2f4c0…2f4e0 20 70 3a 20 69 6e 74 65 67 65 72 3b 20 6f 6b 3a 20 62 6f 6f 6c 65 61 6e 3b 20 73 2c 20 62 75 66 ┆ p: integer; ok: boolean; s, buf┆
0x2f4e0…2f500 3a 73 74 72 35 3b 0d 0a 62 65 67 69 6e 0d 0a 09 72 65 70 65 61 74 0d 0a 09 09 73 74 72 28 74 61 ┆:str5; begin repeat str(ta┆
0x2f500…2f520 6c 2c 62 75 66 29 3b 20 72 65 61 64 28 73 29 3b 0d 0a 09 09 69 66 20 73 3d 27 27 20 74 68 65 6e ┆l,buf); read(s); if s='' then┆
0x2f520…2f540 20 73 3a 3d 20 62 75 66 3b 0d 0a 09 09 76 61 6c 28 73 2c 6e 2c 70 29 3b 0d 0a 09 09 6f 6b 3a 3d ┆ s:= buf; val(s,n,p); ok:=┆
0x2f540…2f560 20 28 70 3d 30 29 20 61 6e 64 20 28 6e 3e 3d 6d 69 6e 29 20 61 6e 64 20 28 6e 3c 3d 6d 61 78 29 ┆ (p=0) and (n>=min) and (n<=max)┆
0x2f560…2f580 3b 0d 0a 09 09 69 66 20 6e 6f 74 20 6f 6b 20 74 68 65 6e 20 42 53 28 4c 45 4e 28 73 29 29 3b 0d ┆; if not ok then BS(LEN(s)); ┆
0x2f580…2f5a0 0a 09 75 6e 74 69 6c 20 6f 6b 3b 0d 0a 09 6c 61 65 73 69 6e 74 3a 3d 6e 0d 0a 65 6e 64 3b 09 7b ┆ until ok; laesint:=n end; æ┆
0x2f5a0…2f5c0 20 6c 61 65 73 69 6e 74 20 7d 0d 0a 0d 0a 66 75 6e 63 74 69 6f 6e 20 6c 61 65 73 72 65 61 6c 28 ┆ laesint å function laesreal(┆
0x2f5c0…2f5e0 74 61 6c 3a 20 73 74 72 31 30 3b 6d 69 6e 2c 6d 61 78 3a 20 72 65 61 6c 29 3a 20 73 74 72 31 30 ┆tal: str10;min,max: real): str10┆
0x2f5e0…2f600 3b 0d 0a 76 61 72 20 78 3a 20 72 65 61 6c 3b 20 70 3a 20 69 6e 74 65 67 65 72 3b 20 6f 6b 3a 20 ┆; var x: real; p: integer; ok: ┆
0x2f600…2f620 (21, 0, 8) 52 09 54 3a 20 52 45 41 4c 3b 0d 0a 0d 0a 46 55 4e 43 54 49 4f 4e 20 4d 49 4e 55 53 46 41 4b 54 ┆R T: REAL; FUNCTION MINUSFAKT┆
0x2f620…2f640 4f 52 3a 20 52 45 41 4c 3b 0d 0a 0d 0a 46 55 4e 43 54 49 4f 4e 20 46 41 4b 54 4f 52 3a 20 52 45 ┆OR: REAL; FUNCTION FAKTOR: RE┆
0x2f640…2f660 41 4c 3b 0d 0a 0d 0a 54 59 50 45 09 53 54 44 46 20 3d 20 28 46 41 42 53 2c 46 53 51 52 54 2c 46 ┆AL; TYPE STDF = (FABS,FSQRT,F┆
0x2f660…2f680 53 49 4e 2c 46 43 4f 53 2c 46 41 52 43 54 41 4e 2c 46 4c 4e 2c 46 4c 4f 47 2c 46 45 58 50 29 3b ┆SIN,FCOS,FARCTAN,FLN,FLOG,FEXP);┆
0x2f680…2f6a0 0d 0a 09 53 54 44 46 4c 49 53 54 20 3d 20 41 52 52 41 59 5b 53 54 44 46 5d 20 4f 46 20 53 54 52 ┆ STDFLIST = ARRAYÆSTDFÅ OF STR┆
0x2f6a0…2f6c0 36 3b 0d 0a 0d 0a 43 4f 4e 53 54 09 53 54 44 46 55 4e 3a 53 54 44 46 4c 49 53 54 3d 28 27 41 42 ┆6; CONST STDFUN:STDFLIST=('AB┆
0x2f6c0…2f6e0 53 27 2c 27 53 51 52 54 27 2c 27 53 49 4e 27 2c 27 43 4f 53 27 2c 27 41 52 43 54 41 4e 27 2c 27 ┆S','SQRT','SIN','COS','ARCTAN','┆
0x2f6e0…2f700 4c 4e 27 2c 27 4c 4f 47 27 2c 27 45 58 50 27 29 3b 0d 0a 0d 0a 56 41 52 09 50 4f 53 31 3a 20 49 ┆LN','LOG','EXP'); VAR POS1: I┆
0x2f700…2f720 4e 54 45 47 45 52 3b 20 46 4f 55 4e 44 3a 20 42 4f 4f 4c 45 41 4e 3b 0d 0a 09 46 3a 20 52 45 41 ┆NTEGER; FOUND: BOOLEAN; F: REA┆
0x2f720…2f740 4c 3b 20 53 46 3a 20 53 54 44 46 3b 20 46 53 3a 20 53 54 52 32 30 3b 0d 0a 42 45 47 49 4e 0d 0a ┆L; SF: STDF; FS: STR20; BEGIN ┆
0x2f740…2f760 49 46 20 43 48 20 49 4e 20 5b 27 30 27 2e 2e 27 39 27 5d 20 54 48 45 4e 20 42 45 47 49 4e 0d 0a ┆IF CH IN Æ'0'..'9'Å THEN BEGIN ┆
0x2f760…2f780 09 50 4f 53 31 3a 3d 20 50 4f 53 3b 0d 0a 09 52 45 50 45 41 54 20 4e 59 54 54 45 47 4e 0d 0a 09 ┆ POS1:= POS; REPEAT NYTTEGN ┆
0x2f780…2f7a0 55 4e 54 49 4c 20 4e 4f 54 28 43 48 20 49 4e 20 5b 27 2e 27 2c 27 30 27 2e 2e 27 39 27 5d 29 3b ┆UNTIL NOT(CH IN Æ'.','0'..'9'Å);┆
0x2f7a0…2f7c0 0d 0a 09 49 46 20 43 48 3d 27 45 27 20 54 48 45 4e 20 42 45 47 49 4e 0d 0a 09 09 4e 59 54 54 45 ┆ IF CH='E' THEN BEGIN NYTTE┆
0x2f7c0…2f7e0 47 4e 3b 0d 0a 09 09 49 46 20 43 48 20 49 4e 20 5b 27 2b 27 2c 27 2d 27 5d 20 54 48 45 4e 20 4e ┆GN; IF CH IN Æ'+','-'Å THEN N┆
0x2f7e0…2f800 59 54 54 45 47 4e 3b 0d 0a 09 09 57 48 49 4c 45 20 43 48 20 49 4e 20 5b 27 30 27 2e 2e 27 39 27 ┆YTTEGN; WHILE CH IN Æ'0'..'9'┆
0x2f800…2f820 (21, 0, 9) 62 6f 6f 6c 65 61 6e 3b 20 73 2c 20 62 75 66 3a 73 74 72 32 30 3b 0d 0a 62 65 67 69 6e 0d 0a 72 ┆boolean; s, buf:str20; begin r┆
0x2f820…2f840 65 70 65 61 74 0d 0a 09 62 75 66 3a 3d 20 74 61 6c 3b 20 73 3a 3d 27 27 3b 0d 0a 09 72 65 70 65 ┆epeat buf:= tal; s:=''; repe┆
0x2f840…2f860 61 74 0d 0a 09 09 72 65 61 64 28 6b 62 64 2c 63 68 29 3b 20 63 68 3a 3d 20 75 70 63 68 61 72 28 ┆at read(kbd,ch); ch:= upchar(┆
0x2f860…2f880 63 68 29 3b 0d 0a 09 09 69 66 20 63 68 20 69 6e 20 74 61 6c 74 65 67 6e 20 74 68 65 6e 20 62 65 ┆ch); if ch in taltegn then be┆
0x2f880…2f8a0 67 69 6e 0d 0a 09 09 09 73 3a 3d 20 73 2b 63 68 3b 0d 0a 09 09 09 69 66 20 6c 65 6e 28 73 29 3d ┆gin s:= s+ch; if len(s)=┆
0x2f8a0…2f8c0 31 20 74 68 65 6e 20 62 65 67 69 6e 0d 0a 09 09 09 77 72 69 74 65 28 63 68 20 2b 20 62 6c 61 6e ┆1 then begin write(ch + blan┆
0x2f8c0…2f8e0 6b 65 29 3b 20 42 53 28 6c 65 6e 28 62 6c 61 6e 6b 65 29 29 20 45 4e 44 20 0d 0a 09 09 09 65 6c ┆ke); BS(len(blanke)) END el┆
0x2f8e0…2f900 73 65 20 77 72 69 74 65 28 63 68 29 0d 0a 09 09 65 6e 64 0d 0a 09 75 6e 74 69 6c 20 63 68 20 69 ┆se write(ch) end until ch i┆
0x2f900…2f920 6e 20 66 6b 74 6b 65 79 73 3b 0d 0a 09 69 66 20 73 3d 27 27 20 74 68 65 6e 20 73 3a 3d 62 75 66 ┆n fktkeys; if s='' then s:=buf┆
0x2f920…2f940 3b 0d 0a 09 09 70 3a 3d 20 70 6f 73 28 27 2e 27 2c 73 29 3b 0d 0a 09 69 66 20 28 70 3d 31 29 20 ┆; p:= pos('.',s); if (p=1) ┆
0x2f940…2f960 6f 72 20 28 70 3d 32 29 20 61 6e 64 20 28 73 5b 31 5d 20 3d 27 2d 27 29 20 74 68 65 6e 20 62 65 ┆or (p=2) and (sÆ1Å ='-') then be┆
0x2f960…2f980 67 69 6e 0d 0a 09 69 6e 73 65 72 74 28 27 30 27 2c 73 2c 70 29 3b 20 62 73 28 6c 65 6e 28 73 29 ┆gin insert('0',s,p); bs(len(s)┆
0x2f980…2f9a0 2d 31 29 3b 20 77 72 69 74 65 28 73 29 20 65 6e 64 3b 0d 0a 09 76 61 6c 28 73 2c 78 2c 70 29 3b ┆-1); write(s) end; val(s,x,p);┆
0x2f9a0…2f9c0 0d 0a 09 6f 6b 3a 3d 20 28 70 3d 30 29 20 61 6e 64 20 28 78 3e 3d 6d 69 6e 29 20 61 6e 64 20 28 ┆ ok:= (p=0) and (x>=min) and (┆
0x2f9c0…2f9e0 78 3c 3d 6d 61 78 29 20 61 6e 64 20 28 6c 65 6e 28 73 29 3c 3d 31 30 29 3b 0d 0a 09 69 66 20 6e ┆x<=max) and (len(s)<=10); if n┆
0x2f9e0…2fa00 6f 74 20 6f 6b 20 74 68 65 6e 20 62 65 67 69 6e 0d 0a 09 09 42 53 28 4c 45 4e 28 73 29 29 3b 20 ┆ot ok then begin BS(LEN(s)); ┆
0x2fa00…2fa20 (21, 1, 1) 5d 20 44 4f 20 4e 59 54 54 45 47 4e 0d 0a 09 45 4e 44 3b 0d 0a 09 56 41 4c 28 43 4f 50 59 28 46 ┆Å DO NYTTEGN END; VAL(COPY(F┆
0x2fa20…2fa40 4f 52 53 4b 52 49 46 54 2c 50 4f 53 31 2c 50 4f 53 2d 50 4f 53 31 29 2c 46 2c 50 29 3b 20 49 46 ┆ORSKRIFT,POS1,POS-POS1),F,P); IF┆
0x2fa40…2fa60 20 50 3c 3e 30 20 54 48 45 4e 20 43 48 3a 3d 27 3f 27 0d 0a 45 4e 44 20 45 4c 53 45 20 49 46 20 ┆ P<>0 THEN CH:='?' END ELSE IF ┆
0x2fa60…2fa80 43 48 3d 27 28 27 20 54 48 45 4e 20 42 45 47 49 4e 0d 0a 09 4e 59 54 54 45 47 4e 3b 0d 0a 09 46 ┆CH='(' THEN BEGIN NYTTEGN; F┆
0x2fa80…2faa0 3a 3d 55 44 54 52 59 4b 3b 0d 0a 09 49 46 20 43 48 3d 27 29 27 20 54 48 45 4e 20 4e 59 54 54 45 ┆:=UDTRYK; IF CH=')' THEN NYTTE┆
0x2faa0…2fac0 47 4e 20 45 4c 53 45 20 43 48 3a 3d 27 3f 27 0d 0a 45 4e 44 20 45 4c 53 45 20 49 46 20 43 48 20 ┆GN ELSE CH:='?' END ELSE IF CH ┆
0x2fac0…2fae0 49 4e 20 42 4f 47 53 54 41 56 20 54 48 45 4e 20 42 45 47 49 4e 0d 0a 09 46 4f 55 4e 44 3a 3d 46 ┆IN BOGSTAV THEN BEGIN FOUND:=F┆
0x2fae0…2fb00 41 4c 53 45 3b 20 50 4f 53 31 3a 3d 20 50 4f 53 3b 0d 0a 09 52 45 50 45 41 54 20 4e 59 54 54 45 ┆ALSE; POS1:= POS; REPEAT NYTTE┆
0x2fb00…2fb20 47 4e 20 55 4e 54 49 4c 20 28 43 48 20 49 4e 20 4f 50 45 52 41 54 4f 52 29 20 4f 52 20 28 43 48 ┆GN UNTIL (CH IN OPERATOR) OR (CH┆
0x2fb20…2fb40 3d 52 45 54 55 52 29 3b 0d 0a 09 46 53 3a 3d 20 43 4f 50 59 28 46 4f 52 53 4b 52 49 46 54 2c 50 ┆=RETUR); FS:= COPY(FORSKRIFT,P┆
0x2fb40…2fb60 4f 53 31 2c 50 4f 53 2d 50 4f 53 31 29 3b 0d 0a 09 49 46 20 46 53 20 3d 20 27 50 49 27 20 54 48 ┆OS1,POS-POS1); IF FS = 'PI' TH┆
0x2fb60…2fb80 45 4e 20 42 45 47 49 4e 20 46 3a 3d 20 50 49 3b 20 46 4f 55 4e 44 3a 3d 20 54 52 55 45 20 45 4e ┆EN BEGIN F:= PI; FOUND:= TRUE EN┆
0x2fb80…2fba0 44 3b 0d 0a 09 49 3a 3d 31 3b 0d 0a 09 57 48 49 4c 45 20 4e 4f 54 20 46 4f 55 4e 44 20 41 4e 44 ┆D; I:=1; WHILE NOT FOUND AND┆
0x2fba0…2fbc0 20 28 49 3c 3d 4f 50 47 2e 41 53 4f 4a 4c 45 29 20 44 4f 20 42 45 47 49 4e 0d 0a 09 09 49 46 20 ┆ (I<=OPG.ASOJLE) DO BEGIN IF ┆
0x2fbc0…2fbe0 46 53 20 3d 20 41 52 45 4e 5b 49 5d 20 54 48 45 4e 20 42 45 47 49 4e 0d 0a 09 09 09 56 41 4c 28 ┆FS = ARENÆIÅ THEN BEGIN VAL(┆
0x2fbe0…2fc00 4f 50 47 2e 41 5b 49 2c 4b 5d 2c 46 2c 50 29 3b 20 49 46 20 50 3c 3e 30 20 54 48 45 4e 20 43 48 ┆OPG.AÆI,KÅ,F,P); IF P<>0 THEN CH┆
0x2fc00…2fc20 (21, 1, 2) 28 30 2c 31 39 2c 30 29 3b 20 67 6f 74 6f 78 79 28 30 2c 30 29 3b 0d 0a 09 77 72 69 74 65 6c 6e ┆(0,19,0); gotoxy(0,0); writeln┆
0x2fc20…2fc40 28 27 27 3a 32 30 2c 27 4b 61 74 61 6c 6f 67 20 6f 76 65 72 20 6f 70 67 61 76 65 72 3a 27 29 3b ┆('':20,'Katalog over opgaver:');┆
0x2fc40…2fc60 0d 0a 09 77 72 69 74 65 6c 6e 3b 0d 0a 09 6d 65 6d 28 2e 24 30 30 35 63 2e 29 3a 3d 30 3b 0d 0a ┆ writeln; mem(.$005c.):=0; ┆
0x2fc60…2fc80 09 66 6f 72 20 69 3a 3d 30 20 74 6f 20 31 30 20 64 6f 20 6d 65 6d 28 2e 24 30 30 35 64 2b 69 2e ┆ for i:=0 to 10 do mem(.$005d+i.┆
0x2fc80…2fca0 29 3a 3d 6f 72 64 28 27 3f 27 29 3b 0d 0a 09 62 64 6f 73 28 32 36 2c 24 65 65 38 31 29 3b 0d 0a ┆):=ord('?'); bdos(26,$ee81); ┆
0x2fca0…2fcc0 09 72 65 74 3a 3d 62 64 6f 73 28 31 37 2c 24 30 30 35 63 29 3b 0d 0a 09 73 74 6b 3a 3d 30 3b 0d ┆ ret:=bdos(17,$005c); stk:=0; ┆
0x2fcc0…2fce0 0a 09 72 65 70 65 61 74 0d 0a 09 09 69 3a 3d 30 3b 20 4e 41 56 4e 3a 3d 27 27 3b 09 09 0d 0a 09 ┆ repeat i:=0; NAVN:=''; ┆
0x2fce0…2fd00 09 72 65 70 65 61 74 0d 0a 09 09 09 74 3a 3d 6d 65 6d 28 2e 69 2b 24 65 65 38 32 2b 72 65 74 2a ┆ repeat t:=mem(.i+$ee82+ret*┆
0x2fd00…2fd20 33 32 2e 29 3b 0d 0a 09 09 09 77 68 69 6c 65 20 74 3e 31 32 38 20 64 6f 20 74 3a 3d 74 2d 31 32 ┆32.); while t>128 do t:=t-12┆
0x2fd20…2fd40 38 3b 0d 0a 09 09 09 6e 61 76 6e 3a 3d 6e 61 76 6e 20 2b 20 63 68 72 28 74 29 3b 0d 0a 09 09 09 ┆8; navn:=navn + chr(t); ┆
0x2fd40…2fd60 69 3a 3d 69 2b 31 3b 0d 0a 09 09 09 69 66 20 69 3d 38 20 74 68 65 6e 20 6e 61 76 6e 3a 3d 20 6e ┆i:=i+1; if i=8 then navn:= n┆
0x2fd60…2fd80 61 76 6e 20 2b 20 27 2e 27 3b 0d 0a 09 09 75 6e 74 69 6c 20 69 3d 31 31 3b 0d 0a 09 09 69 66 20 ┆avn + '.'; until i=11; if ┆
0x2fd80…2fda0 70 6f 73 28 27 2e 4d 49 44 27 2c 4e 41 56 4e 29 20 3e 20 30 20 54 48 45 4e 20 42 45 47 49 4e 0d ┆pos('.MID',NAVN) > 0 THEN BEGIN ┆
0x2fda0…2fdc0 0a 09 09 09 57 52 49 54 45 28 4e 41 56 4e 29 3b 20 53 54 4b 3a 3d 20 53 54 4b 2b 31 3b 0d 0a 09 ┆ WRITE(NAVN); STK:= STK+1; ┆
0x2fdc0…2fde0 09 09 69 66 20 73 74 6b 20 6d 6f 64 20 35 3d 30 20 74 68 65 6e 20 77 72 69 74 65 6c 6e 20 65 6c ┆ if stk mod 5=0 then writeln el┆
0x2fde0…2fe00 73 65 20 77 72 69 74 65 28 27 20 20 20 27 29 0d 0a 09 09 45 4e 44 3b 0d 0a 09 09 72 65 74 3a 3d ┆se write(' ') END; ret:=┆
0x2fe00…2fe20 (21, 1, 3) 3a 3d 27 3f 27 3b 0d 0a 09 09 09 46 4f 55 4e 44 3a 3d 54 52 55 45 0d 0a 09 09 45 4e 44 20 45 4c ┆:='?'; FOUND:=TRUE END EL┆
0x2fe20…2fe40 53 45 20 49 3a 3d 49 2b 31 0d 0a 09 45 4e 44 3b 0d 0a 09 49 3a 3d 31 3b 0d 0a 09 57 48 49 4c 45 ┆SE I:=I+1 END; I:=1; WHILE┆
0x2fe40…2fe60 20 4e 4f 54 20 46 4f 55 4e 44 20 41 4e 44 20 28 49 3c 3d 4a 29 20 44 4f 20 42 45 47 49 4e 0d 0a ┆ NOT FOUND AND (I<=J) DO BEGIN ┆
0x2fe60…2fe80 09 09 49 46 20 46 53 20 3d 20 42 52 45 4e 5b 49 5d 20 54 48 45 4e 20 42 45 47 49 4e 0d 0a 09 09 ┆ IF FS = BRENÆIÅ THEN BEGIN ┆
0x2fe80…2fea0 09 56 41 4c 28 4f 50 47 2e 42 5b 49 2c 4b 5d 2c 46 2c 50 29 3b 20 49 46 20 50 3c 3e 30 20 54 48 ┆ VAL(OPG.BÆI,KÅ,F,P); IF P<>0 TH┆
0x2fea0…2fec0 45 4e 20 43 48 3a 3d 27 3f 27 3b 0d 0a 09 09 09 46 4f 55 4e 44 3a 3d 54 52 55 45 0d 0a 09 09 45 ┆EN CH:='?'; FOUND:=TRUE E┆
0x2fec0…2fee0 4e 44 20 45 4c 53 45 20 49 3a 3d 49 2b 31 0d 0a 09 45 4e 44 3b 0d 0a 09 53 46 3a 3d 46 41 42 53 ┆ND ELSE I:=I+1 END; SF:=FABS┆
0x2fee0…2ff00 3b 0d 0a 09 49 46 20 4e 4f 54 20 46 4f 55 4e 44 20 54 48 45 4e 20 52 45 50 45 41 54 0d 0a 09 09 ┆; IF NOT FOUND THEN REPEAT ┆
0x2ff00…2ff20 49 46 20 46 53 20 3d 20 53 54 44 46 55 4e 5b 53 46 5d 20 54 48 45 4e 20 42 45 47 49 4e 0d 0a 09 ┆IF FS = STDFUNÆSFÅ THEN BEGIN ┆
0x2ff20…2ff40 09 09 46 3a 3d 20 46 41 4b 54 4f 52 3b 20 46 4f 55 4e 44 3a 3d 20 54 52 55 45 3b 0d 0a 09 09 09 ┆ F:= FAKTOR; FOUND:= TRUE; ┆
0x2ff40…2ff60 43 41 53 45 20 53 46 20 4f 46 0d 0a 09 09 09 46 41 42 53 3a 09 46 3a 3d 41 42 53 28 46 29 3b 0d ┆CASE SF OF FABS: F:=ABS(F); ┆
0x2ff60…2ff80 0a 09 09 09 46 53 51 52 54 3a 09 49 46 20 46 3e 3d 30 20 54 48 45 4e 20 46 3a 3d 53 51 52 54 28 ┆ FSQRT: IF F>=0 THEN F:=SQRT(┆
0x2ff80…2ffa0 46 29 20 45 4c 53 45 20 43 48 3a 3d 27 21 27 3b 0d 0a 09 09 09 46 53 49 4e 3a 09 46 3a 3d 53 49 ┆F) ELSE CH:='!'; FSIN: F:=SI┆
0x2ffa0…2ffc0 4e 28 46 29 3b 0d 0a 09 09 09 46 43 4f 53 3a 09 46 3a 3d 43 4f 53 28 46 29 3b 0d 0a 09 09 09 46 ┆N(F); FCOS: F:=COS(F); F┆
0x2ffc0…2ffe0 41 52 43 54 41 4e 3a 46 3a 3d 41 52 43 54 41 4e 28 46 29 3b 0d 0a 09 09 09 46 4c 4e 3a 09 49 46 ┆ARCTAN:F:=ARCTAN(F); FLN: IF┆
0x2ffe0…30000 20 46 3e 30 20 54 48 45 4e 20 46 3a 3d 4c 4e 28 46 29 20 45 4c 53 45 20 43 48 3a 3d 27 24 27 3b ┆ F>0 THEN F:=LN(F) ELSE CH:='$';┆
0x30000…30020 (21, 1, 4) 62 64 6f 73 28 31 38 2c 30 29 0d 0a 09 75 6e 74 69 6c 20 72 65 74 3d 32 35 35 0d 0a 65 6e 64 3b ┆bdos(18,0) until ret=255 end;┆
0x30020…30040 09 7b 20 64 69 72 20 7d 0d 0a 09 0d 0a 70 72 6f 63 65 64 75 72 65 20 47 45 4d 48 45 4e 54 28 43 ┆ æ dir å procedure GEMHENT(C┆
0x30040…30060 48 3a 20 43 48 41 52 29 3b 0d 0a 76 61 72 20 6b 61 74 61 6c 6f 67 3a 20 62 6f 6f 6c 65 61 6e 3b ┆H: CHAR); var katalog: boolean;┆
0x30060…30080 0d 0a 62 65 67 69 6e 0d 0a 09 67 6f 74 6f 78 79 28 30 2c 32 33 29 3b 0d 0a 09 77 72 69 74 65 28 ┆ begin gotoxy(0,23); write(┆
0x30080…300a0 43 4c 52 45 4f 4c 2c 27 27 3a 31 30 2c 27 5c 6e 73 6b 65 73 20 6b 61 74 61 6c 6f 67 20 6f 76 65 ┆CLREOL,'':10,'Ønskes katalog ove┆
0x300a0…300c0 72 20 6f 70 67 61 76 65 72 27 29 3b 0d 0a 09 6b 61 74 61 6c 6f 67 3a 3d 20 59 4e 20 3d 27 59 27 ┆r opgaver'); katalog:= YN ='Y'┆
0x300c0…300e0 3b 0d 0a 09 69 66 20 6b 61 74 61 6c 6f 67 20 74 68 65 6e 20 64 69 72 3b 0d 0a 09 67 6f 74 6f 78 ┆; if katalog then dir; gotox┆
0x300e0…30100 79 28 30 2c 32 33 29 3b 0d 0a 09 49 46 20 43 48 3d 27 47 27 20 54 48 45 4e 20 77 72 69 74 65 28 ┆y(0,23); IF CH='G' THEN write(┆
0x30100…30120 43 4c 52 45 4f 4c 2c 27 27 3a 31 30 2c 27 48 76 61 64 20 73 6b 61 6c 20 6f 70 67 61 76 65 6e 20 ┆CLREOL,'':10,'Hvad skal opgaven ┆
0x30120…30140 68 65 64 64 65 20 3f 27 29 20 45 4c 53 45 0d 0a 09 09 57 52 49 54 45 28 43 4c 52 45 4f 4c 2c 27 ┆hedde ?') ELSE WRITE(CLREOL,'┆
0x30140…30160 27 3a 31 30 2c 27 48 76 61 64 20 68 65 64 64 65 72 20 6f 70 67 61 76 65 6e 20 3f 20 27 29 3b 0d ┆':10,'Hvad hedder opgaven ? '); ┆
0x30160…30180 0a 09 67 6f 74 6f 78 79 28 34 34 2c 32 33 29 3b 20 77 72 69 74 65 28 27 2e 4d 49 44 27 29 3b 0d ┆ gotoxy(44,23); write('.MID'); ┆
0x30180…301a0 0a 09 72 65 70 65 61 74 0d 0a 09 09 66 69 6c 6e 61 76 6e 3a 3d 27 27 3b 20 66 69 6c 6e 61 76 6e ┆ repeat filnavn:=''; filnavn┆
0x301a0…301c0 3a 3d 73 74 72 65 6e 67 28 66 69 6c 6e 61 76 6e 2c 33 36 2c 32 33 2c 38 29 3b 0d 0a 09 09 66 69 ┆:=streng(filnavn,36,23,8); fi┆
0x301c0…301e0 6c 6e 61 76 6e 3a 3d 20 75 70 63 61 73 65 28 66 69 6c 6e 61 76 6e 29 3b 20 6c 6f 76 6c 69 67 3a ┆lnavn:= upcase(filnavn); lovlig:┆
0x301e0…30200 3d 74 72 75 65 3b 0d 0a 09 09 66 6f 72 20 6a 3a 3d 20 31 20 74 6f 20 6c 65 6e 28 66 69 6c 6e 61 ┆=true; for j:= 1 to len(filna┆
0x30200…30220 (21, 1, 5) 0d 0a 09 09 09 46 4c 4f 47 3a 09 49 46 20 46 3e 30 20 54 48 45 4e 20 46 3a 3d 4c 4e 28 46 29 2f ┆ FLOG: IF F>0 THEN F:=LN(F)/┆
0x30220…30240 4c 4e 28 31 30 29 20 45 4c 53 45 20 43 48 3a 3d 27 24 27 3b 0d 0a 09 09 09 46 45 58 50 3a 09 46 ┆LN(10) ELSE CH:='$'; FEXP: F┆
0x30240…30260 3a 3d 45 58 50 28 46 29 0d 0a 09 09 09 45 4e 44 0d 0a 09 09 45 4e 44 20 45 4c 53 45 20 49 46 20 ┆:=EXP(F) END END ELSE IF ┆
0x30260…30280 53 46 3c 20 46 45 58 50 20 54 48 45 4e 20 53 46 3a 3d 20 53 55 43 43 28 53 46 29 0d 0a 09 55 4e ┆SF< FEXP THEN SF:= SUCC(SF) UN┆
0x30280…302a0 54 49 4c 20 46 4f 55 4e 44 20 4f 52 20 28 53 46 20 3d 20 46 45 58 50 29 3b 0d 0a 09 49 46 20 4e ┆TIL FOUND OR (SF = FEXP); IF N┆
0x302a0…302c0 4f 54 20 46 4f 55 4e 44 20 41 4e 44 20 4e 4f 54 20 28 43 48 20 49 4e 20 5b 27 24 27 2c 27 21 27 ┆OT FOUND AND NOT (CH IN Æ'$','!'┆
0x302c0…302e0 5d 29 20 54 48 45 4e 20 43 48 3a 3d 27 3f 27 0d 0a 45 4e 44 3b 0d 0a 46 41 4b 54 4f 52 3a 3d 46 ┆Å) THEN CH:='?' END; FAKTOR:=F┆
0x302e0…30300 0d 0a 45 4e 44 3b 09 7b 20 46 41 4b 54 4f 52 20 7d 0d 0a 0d 0a 42 45 47 49 4e 09 7b 20 4d 49 4e ┆ END; æ FAKTOR å BEGIN æ MIN┆
0x30300…30320 55 53 46 41 4b 54 4f 52 20 7d 0d 0a 09 49 46 20 43 48 3d 27 2d 27 20 54 48 45 4e 20 42 45 47 49 ┆USFAKTOR å IF CH='-' THEN BEGI┆
0x30320…30340 4e 0d 0a 09 09 4e 59 54 54 45 47 4e 3b 20 4d 49 4e 55 53 46 41 4b 54 4f 52 3a 3d 2d 46 41 4b 54 ┆N NYTTEGN; MINUSFAKTOR:=-FAKT┆
0x30340…30360 4f 52 0d 0a 09 45 4e 44 20 45 4c 53 45 20 4d 49 4e 55 53 46 41 4b 54 4f 52 3a 3d 46 41 4b 54 4f ┆OR END ELSE MINUSFAKTOR:=FAKTO┆
0x30360…30380 52 0d 0a 45 4e 44 3b 09 7b 20 4d 49 4e 55 53 46 41 4b 54 4f 52 20 7d 0d 0a 0d 0a 42 45 47 49 4e ┆R END; æ MINUSFAKTOR å BEGIN┆
0x30380…303a0 09 7b 20 54 45 52 4d 20 7d 0d 0a 09 54 3a 3d 4d 49 4e 55 53 46 41 4b 54 4f 52 3b 0d 0a 09 57 48 ┆ æ TERM å T:=MINUSFAKTOR; WH┆
0x303a0…303c0 49 4c 45 20 43 48 3d 27 5e 27 20 44 4f 20 42 45 47 49 4e 0d 0a 09 09 4e 59 54 54 45 47 4e 3b 0d ┆ILE CH='^' DO BEGIN NYTTEGN; ┆
0x303c0…303e0 0a 09 09 49 46 20 54 3e 30 20 54 48 45 4e 20 54 3a 3d 45 58 50 28 4c 4e 28 54 29 2a 4d 49 4e 55 ┆ IF T>0 THEN T:=EXP(LN(T)*MINU┆
0x303e0…30400 53 46 41 4b 54 4f 52 29 20 45 4c 53 45 20 43 48 3a 3d 27 26 27 0d 0a 09 45 4e 44 3b 0d 0a 09 54 ┆SFAKTOR) ELSE CH:='&' END; T┆
0x30400…30420 (21, 1, 6) 76 6e 29 20 64 6f 0d 0a 09 09 6c 6f 76 6c 69 67 3a 3d 20 6c 6f 76 6c 69 67 20 61 6e 64 20 28 66 ┆vn) do lovlig:= lovlig and (f┆
0x30420…30440 69 6c 6e 61 76 6e 5b 6a 5d 20 69 6e 20 55 53 20 2b 20 63 69 66 66 65 72 29 3b 0d 0a 09 09 69 66 ┆ilnavnÆjÅ in US + ciffer); if┆
0x30440…30460 20 6e 6f 74 20 6c 6f 76 6c 69 67 20 74 68 65 6e 20 62 65 67 69 6e 0d 0a 09 09 09 67 6f 74 6f 78 ┆ not lovlig then begin gotox┆
0x30460…30480 79 28 35 30 2c 32 33 29 3b 20 77 72 69 74 65 28 27 6b 75 6e 20 41 2e 2e 5a 2c 30 2e 2e 39 20 27 ┆y(50,23); write('kun A..Z,0..9 '┆
0x30480…304a0 29 3b 76 65 6e 74 3b 20 42 53 28 32 35 29 0d 0a 09 09 65 6e 64 0d 0a 09 75 6e 74 69 6c 20 6c 6f ┆);vent; BS(25) end until lo┆
0x304a0…304c0 76 6c 69 67 3b 0d 0a 09 66 69 6c 6e 61 76 6e 3a 3d 20 66 69 6c 6e 61 76 6e 20 2b 20 27 2e 4d 49 ┆vlig; filnavn:= filnavn + '.MI┆
0x304c0…304e0 44 27 3b 0d 0a 09 61 73 73 69 67 6e 28 46 4f 50 47 2c 66 69 6c 6e 61 76 6e 29 3b 0d 0a 09 49 46 ┆D'; assign(FOPG,filnavn); IF┆
0x304e0…30500 20 43 48 3d 27 47 27 20 54 48 45 4e 20 42 45 47 49 4e 20 72 65 77 72 69 74 65 28 46 4f 50 47 29 ┆ CH='G' THEN BEGIN rewrite(FOPG)┆
0x30500…30520 3b 20 77 72 69 74 65 28 46 4f 50 47 2c 4f 50 47 29 20 45 4e 44 0d 0a 09 45 4c 53 45 20 42 45 47 ┆; write(FOPG,OPG) END ELSE BEG┆
0x30520…30540 49 4e 20 7b 24 49 2d 7d 20 72 65 73 65 74 28 66 6f 70 67 29 3b 20 7b 24 49 2b 7d 0d 0a 09 09 69 ┆IN æ$I-å reset(fopg); æ$I+å i┆
0x30540…30560 66 20 69 6f 72 65 73 3d 30 20 74 68 65 6e 20 62 65 67 69 6e 20 72 65 61 64 28 66 6f 70 67 2c 6f ┆f iores=0 then begin read(fopg,o┆
0x30560…30580 70 67 29 3b 20 6e 79 6f 70 67 3a 3d 66 61 6c 73 65 20 65 6e 64 0d 0a 09 09 65 6c 73 65 20 77 72 ┆pg); nyopg:=false end else wr┆
0x30580…305a0 69 74 65 28 52 45 54 55 52 2c 27 27 3a 31 30 2c 27 4f 70 67 61 76 65 6e 20 66 69 6e 64 65 73 20 ┆ite(RETUR,'':10,'Opgaven findes ┆
0x305a0…305c0 69 6b 6b 65 27 29 0d 0a 09 45 4e 44 3b 0d 0a 09 63 6c 6f 73 65 28 46 4f 50 47 29 0d 0a 65 6e 64 ┆ikke') END; close(FOPG) end┆
0x305c0…305e0 3b 09 7b 20 67 65 6d 68 65 6e 74 20 7d 0d 0a 0d 0a 70 72 6f 63 65 64 75 72 65 20 74 65 67 6e 73 ┆; æ gemhent å procedure tegns┆
0x305e0…30600 6b 65 6d 61 28 68 6f 76 65 64 3a 20 62 6f 6f 6c 65 61 6e 3b 20 73 6f 6a 6c 65 2c 6c 69 6e 69 65 ┆kema(hoved: boolean; sojle,linie┆
0x30600…30620 (21, 1, 7) 45 52 4d 3a 3d 54 0d 0a 45 4e 44 3b 09 7b 20 54 45 52 4d 20 7d 0d 0a 0d 0a 42 45 47 49 4e 20 7b ┆ERM:=T END; æ TERM å BEGIN æ┆
0x30620…30640 20 4c 45 44 20 7d 0d 0a 09 53 3a 3d 54 45 52 4d 3b 0d 0a 09 57 48 49 4c 45 20 43 48 20 49 4e 20 ┆ LED å S:=TERM; WHILE CH IN ┆
0x30640…30660 5b 27 2a 27 2c 27 2f 27 5d 20 44 4f 20 42 45 47 49 4e 0d 0a 09 09 4f 50 52 3a 3d 43 48 3b 20 4e ┆Æ'*','/'Å DO BEGIN OPR:=CH; N┆
0x30660…30680 59 54 54 45 47 4e 3b 0d 0a 09 09 43 41 53 45 20 4f 50 52 20 4f 46 0d 0a 09 09 09 27 2a 27 3a 20 ┆YTTEGN; CASE OPR OF '*': ┆
0x30680…306a0 53 3a 3d 53 2a 54 45 52 4d 3b 0d 0a 09 09 09 27 2f 27 3a 20 42 45 47 49 4e 20 4e 41 56 4e 45 52 ┆S:=S*TERM; '/': BEGIN NAVNER┆
0x306a0…306c0 3a 3d 54 45 52 4d 3b 20 49 46 20 4e 41 56 4e 45 52 3c 3e 30 20 54 48 45 4e 20 53 3a 3d 53 2f 4e ┆:=TERM; IF NAVNER<>0 THEN S:=S/N┆
0x306c0…306e0 41 56 4e 45 52 0d 0a 09 09 09 09 45 4c 53 45 20 43 48 3a 3d 27 25 27 20 45 4e 44 0d 0a 09 09 45 ┆AVNER ELSE CH:='%' END E┆
0x306e0…30700 4e 44 0d 0a 09 45 4e 44 3b 0d 0a 09 4c 45 44 3a 3d 53 0d 0a 45 4e 44 3b 09 7b 20 4c 45 44 20 7d ┆ND END; LED:=S END; æ LED å┆
0x30700…30720 0d 0a 0d 0a 42 45 47 49 4e 09 7b 20 55 44 54 52 59 4b 20 7d 0d 0a 09 45 3a 3d 4c 45 44 3b 0d 0a ┆ BEGIN æ UDTRYK å E:=LED; ┆
0x30720…30740 09 57 48 49 4c 45 20 43 48 20 49 4e 20 5b 27 2b 27 2c 27 2d 27 5d 20 44 4f 20 42 45 47 49 4e 0d ┆ WHILE CH IN Æ'+','-'Å DO BEGIN ┆
0x30740…30760 0a 09 09 4f 50 52 3a 3d 43 48 3b 20 4e 59 54 54 45 47 4e 3b 0d 0a 09 09 43 41 53 45 20 4f 50 52 ┆ OPR:=CH; NYTTEGN; CASE OPR┆
0x30760…30780 20 4f 46 0d 0a 09 09 09 27 2b 27 3a 20 45 3a 3d 45 2b 4c 45 44 3b 0d 0a 09 09 09 27 2d 27 3a 20 ┆ OF '+': E:=E+LED; '-': ┆
0x30780…307a0 45 3a 3d 45 2d 4c 45 44 0d 0a 09 09 45 4e 44 0d 0a 09 45 4e 44 3b 0d 0a 09 55 44 54 52 59 4b 3a ┆E:=E-LED END END; UDTRYK:┆
0x307a0…307c0 3d 45 0d 0a 45 4e 44 3b 09 7b 20 55 44 54 52 59 4b 20 7d 0d 0a 0d 0a 42 45 47 49 4e 09 7b 20 42 ┆=E END; æ UDTRYK å BEGIN æ B┆
0x307c0…307e0 45 52 45 47 4e 20 7d 0d 0a 09 50 4f 53 3a 3d 30 3b 20 4e 59 54 54 45 47 4e 3b 20 56 41 52 44 49 ┆EREGN å POS:=0; NYTTEGN; VARDI┆
0x307e0…30800 3a 3d 55 44 54 52 59 4b 3b 0d 0a 09 49 46 20 4c 45 4e 28 46 4f 52 53 4b 52 49 46 54 29 3d 30 20 ┆:=UDTRYK; IF LEN(FORSKRIFT)=0 ┆
0x30800…30820 (21, 1, 8) 2c 72 3a 20 42 59 54 45 29 3b 0d 0a 70 72 6f 63 65 64 75 72 65 20 74 65 67 6e 28 73 3a 73 74 72 ┆,r: BYTE); procedure tegn(s:str┆
0x30820…30840 32 30 29 3b 0d 0a 62 65 67 69 6e 0d 0a 09 77 72 69 74 65 28 27 27 3a 72 68 29 3b 0d 0a 09 66 6f ┆20); begin write('':rh); fo┆
0x30840…30860 72 20 6a 3a 3d 20 31 20 74 6f 20 73 6f 6a 6c 65 20 64 6f 20 77 72 69 74 65 28 63 6f 70 79 28 53 ┆r j:= 1 to sojle do write(copy(S┆
0x30860…30880 2c 31 2c 62 72 65 64 64 65 2b 31 29 29 3b 0d 0a 09 77 72 69 74 65 6c 6e 28 27 21 27 29 0d 0a 65 ┆,1,bredde+1)); writeln('!') e┆
0x30880…308a0 6e 64 3b 0d 0a 62 65 67 69 6e 0d 0a 09 62 72 65 64 64 65 3a 3d 20 28 37 39 2d 73 6f 6a 6c 65 29 ┆nd; begin bredde:= (79-sojle)┆
0x308a0…308c0 20 64 69 76 20 73 6f 6a 6c 65 3b 20 69 66 20 62 72 65 64 64 65 20 3e 20 31 39 20 74 68 65 6e 20 ┆ div sojle; if bredde > 19 then ┆
0x308c0…308e0 62 72 65 64 64 65 3a 3d 31 39 3b 0d 0a 09 72 68 3a 3d 28 37 39 20 2d 20 73 6f 6a 6c 65 2a 28 62 ┆bredde:=19; rh:=(79 - sojle*(b┆
0x308e0…30900 72 65 64 64 65 2b 31 29 29 20 64 69 76 20 32 3b 20 72 62 68 3a 3d 20 72 68 20 2d 20 62 72 65 64 ┆redde+1)) div 2; rbh:= rh - bred┆
0x30900…30920 64 65 3b 0d 0a 09 69 66 20 68 6f 76 65 64 20 74 68 65 6e 0d 0a 09 20 20 20 20 20 20 20 20 62 65 ┆de; if hoved then be┆
0x30920…30940 67 69 6e 20 67 6f 74 6f 78 79 28 30 2c 6c 69 6e 69 65 29 3b 74 65 67 6e 28 62 73 74 72 32 29 3b ┆gin gotoxy(0,linie);tegn(bstr2);┆
0x30940…30960 74 65 67 6e 28 74 6f 6d 29 3b 74 65 67 6e 28 62 73 74 72 32 29 20 65 6e 64 3b 0d 0a 09 67 6f 74 ┆tegn(tom);tegn(bstr2) end; got┆
0x30960…30980 6f 78 79 28 30 2c 33 2b 6c 69 6e 69 65 29 3b 0d 0a 09 66 6f 72 20 69 3a 3d 20 31 20 74 6f 20 72 ┆oxy(0,3+linie); for i:= 1 to r┆
0x30980…309a0 20 64 6f 0d 0a 09 09 63 61 73 65 20 65 6e 74 6f 20 6f 66 0d 0a 09 09 09 31 3a 20 74 65 67 6e 28 ┆ do case ento of 1: tegn(┆
0x309a0…309c0 74 6f 6d 29 3b 0d 0a 09 09 09 32 3a 20 62 65 67 69 6e 20 74 65 67 6e 28 74 6f 6d 29 3b 74 65 67 ┆tom); 2: begin tegn(tom);teg┆
0x309c0…309e0 6e 28 62 73 74 72 31 29 20 65 6e 64 0d 0a 09 09 65 6e 64 3b 0d 0a 09 69 66 20 72 20 69 6e 20 5b ┆n(bstr1) end end; if r in Æ┆
0x309e0…30a00 39 2e 2e 31 37 5d 20 74 68 65 6e 20 74 65 67 6e 28 62 73 74 72 31 29 0d 0a 65 6e 64 3b 09 7b 20 ┆9..17Å then tegn(bstr1) end; æ ┆
0x30a00…30a20 (21, 1, 9) 54 48 45 4e 20 43 48 3a 3d 27 23 27 3b 0d 0a 09 43 41 53 45 20 43 48 20 4f 46 0d 0a 09 09 52 45 ┆THEN CH:='#'; CASE CH OF RE┆
0x30a20…30a40 54 55 52 3a 09 46 45 4a 4c 41 52 54 3a 3d 30 3b 0d 0a 09 09 27 24 27 3a 09 46 45 4a 4c 41 52 54 ┆TUR: FEJLART:=0; '$': FEJLART┆
0x30a40…30a60 3a 3d 31 3b 0d 0a 09 09 27 21 27 3a 09 46 45 4a 4c 41 52 54 3a 3d 32 3b 0d 0a 09 09 27 26 27 3a ┆:=1; '!': FEJLART:=2; '&':┆
0x30a60…30a80 09 46 45 4a 4c 41 52 54 3a 3d 33 3b 0d 0a 09 09 27 25 27 3a 09 46 45 4a 4c 41 52 54 3a 3d 34 3b ┆ FEJLART:=3; '%': FEJLART:=4;┆
0x30a80…30aa0 0d 0a 09 09 27 23 27 3a 09 46 45 4a 4c 41 52 54 3a 3d 35 3b 0d 0a 09 09 4f 54 48 45 52 57 49 53 ┆ '#': FEJLART:=5; OTHERWIS┆
0x30aa0…30ac0 45 20 46 45 4a 4c 41 52 54 3a 3d 36 0d 0a 09 45 4e 44 0d 0a 45 4e 44 3b 09 7b 20 42 45 52 45 47 ┆E FEJLART:=6 END END; æ BEREG┆
0x30ac0…30ae0 4e 20 7d 0d 0a 0d 0a 28 2a 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆N å (* ----------------------┆
0x30ae0…30b00 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x30b00…30b20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 2a 29 0d 0a 0d 0a 70 72 6f 63 65 64 75 72 65 20 76 65 6a ┆------------ *) procedure vej┆
0x30b20…30b40 6c 65 64 6e 69 6e 67 3b 0d 0a 62 65 67 69 6e 0d 0a 67 6f 74 6f 78 79 28 30 2c 30 29 3b 20 77 72 ┆ledning; begin gotoxy(0,0); wr┆
0x30b40…30b60 69 74 65 6c 6e 3b 20 77 72 69 74 65 6c 6e 3b 0d 0a 77 72 69 74 65 6c 6e 28 27 20 20 20 20 20 4d ┆iteln; writeln; writeln(' M┆
0x30b60…30b80 69 6e 69 63 61 6c 63 2c 20 43 6f 70 79 72 69 67 68 74 20 28 63 29 20 61 70 72 69 6c 20 2d 20 31 ┆inicalc, Copyright (c) april - 1┆
0x30b80…30ba0 39 38 34 2c 20 43 61 72 6c 20 48 65 6d 6d 69 6e 67 73 65 6e 2c 27 29 3b 0d 0a 77 72 69 74 65 6c ┆984, Carl Hemmingsen,'); writel┆
0x30ba0…30bc0 6e 28 27 20 20 20 20 20 46 6f 72 6c 61 67 65 74 20 46 41 47 2c 20 5b 67 69 72 73 76 65 6a 20 33 ┆n(' Forlaget FAG, Ægirsvej 3┆
0x30bc0…30be0 2c 20 33 36 30 30 20 46 72 65 64 65 72 69 6b 73 73 75 6e 64 2e 27 29 3b 0d 0a 77 72 69 74 65 6c ┆, 3600 Frederikssund.'); writel┆
0x30be0…30c00 6e 3b 0d 0a 77 72 69 74 65 6c 6e 28 27 20 20 20 20 20 44 65 74 74 65 20 70 72 6f 67 72 61 6d 20 ┆n; writeln(' Dette program ┆
0x30c00…30c20 (22, 0, 1) c3 c5 1d a9 9a a5 87 87 8a 88 50 19 00 01 06 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ P ┆
0x30c20…30c40 ff 20 00 01 1f 00 00 00 00 00 00 00 01 1e 00 00 00 00 00 00 00 00 b7 c9 00 b7 c9 00 b7 c9 95 02 ┆ ┆
0x30c40…30c60 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 ┆ ┆
[…0x3…]
0x30cc0…30ce0 52 43 2d 37 30 32 20 50 69 63 63 6f 6c 6f 2c 20 52 43 2d 38 35 35 20 20 20 20 20 20 20 20 20 20 ┆RC-702 Piccolo, RC-855 ┆
0x30ce0…30d00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x30d00…30d20 11 03 00 cd 29 02 e6 01 18 06 11 06 00 cd 29 02 6f 26 00 c9 11 12 00 18 f4 11 0c 00 18 08 11 0f ┆ ) ) o& ┆
0x30d20…30d40 00 18 03 11 09 00 e1 c1 e5 2a 01 00 19 e9 22 db 00 d5 78 32 e1 00 79 b7 28 0b 3e c3 32 38 00 21 ┆ * " x2 y ( > 28 !┆
0x30d40…30d60 2f 1d 22 39 00 21 6b 02 11 a0 00 01 18 00 ed b0 21 83 02 11 b8 00 01 12 00 ed b0 e1 01 03 00 ed ┆/ "9 !k ! ┆
0x30d60…30d80 b0 af 32 d9 00 3e 7f 32 da 00 c9 c3 00 02 c3 0a 02 c3 23 02 c3 19 02 c3 1e 02 c3 14 02 c3 23 02 ┆ 2 > 2 # # ┆
0x30d80…30da0 c3 0a 02 03 00 00 03 01 00 01 02 00 02 03 00 03 04 00 03 05 00 c5 d5 e5 dd e5 6f 26 00 e5 cd a6 ┆ o& ┆
0x30da0…30dc0 00 dd e1 e1 d1 c1 c9 c5 d5 e5 dd e5 cd a3 00 7d 18 ef e3 7e 23 b7 28 05 cd 95 02 18 f6 e3 c9 cd ┆ å ü# ( ┆
0x30dc0…30de0 b2 02 0d 0a 00 c9 0e ff 18 0c 0e 00 ed 5b db 00 13 1a fe 20 28 fa d5 21 65 00 06 03 cd 55 03 d1 ┆ Æ ( !e U ┆
0x30de0…30e00 1a cd 5c 03 fe 41 38 12 fe 51 30 0e 47 13 1a fe 3a 20 06 78 d6 40 13 18 02 1b af 21 5c 00 77 23 ┆ Ø A8 Q0 G : x @ !Ø w#┆
0x30e00…30e20 (22, 0, 2) 78 28 06 cd 09 0b c8 3f c9 7d d9 bd d9 c0 b7 c8 c3 dc 0a 7d d6 81 da 88 0a 3c fe 28 d0 d9 c5 d5 ┆x( ? å å < ( ┆
0x30e20…30e40 e5 08 cd 88 0a 08 37 cd 91 0a 3d 20 f9 d9 7c d9 a4 d9 67 7b d9 a3 d9 5f 7a d9 a2 d9 57 79 d9 a1 ┆ 7 = ø gæ _z Wy ┆
0x30e40…30e60 d9 4f 78 d9 a0 d9 47 c3 91 09 d9 c5 d5 e5 d9 cd c2 0e d9 cd 13 0b d9 cd 97 09 18 eb 7d b7 c8 cb ┆ Ox G å ┆
0x30e60…30e80 78 3e 05 c2 67 1d cd c2 0e 7d c6 80 cb 2f c6 80 6f d6 14 f5 d9 c5 d5 e5 cd 0b 0a cd 23 09 2d c5 ┆x> g å / o # - ┆
0x30e80…30ea0 d5 e5 cd 97 09 7d e1 d1 c1 d9 e1 d1 c1 e3 bc e3 30 e3 f1 d9 c9 d9 cd a4 0e 2d cd 97 09 d9 cd a4 ┆ å 0 - ┆
0x30ea0…30ec0 0e 2c d9 7d fe 6c d8 c5 cb b8 cd f5 0a c1 38 09 cd 0b 0a cd 4a 0b cd ad 09 cb 78 28 03 cd 23 09 ┆ , å l 8 J x( # ┆
0x30ec0…30ee0 d9 2d d9 cd f5 0a f5 38 03 cd 97 09 d9 2d d9 cd f5 0a 38 05 d9 2c cd 97 09 7d fe 6c 38 3b d9 01 ┆ - 8 - 8 , å l8; ┆
0x30ee0…30f00 aa 2a 11 aa aa 21 7f aa cd ad 09 dd e5 dd 21 1d 0c 3e 05 cd 4a 0e dd e1 cd c2 0e cd ad 09 cd ad ┆ * ! ! > J ┆
0x30f00…30f20 09 c5 d5 e5 d9 cd c2 0e 2d 2d d9 2d cd 23 09 d9 e1 d1 c1 d9 cd 97 09 2c 2c f1 2c 2d c8 d8 78 ee ┆ -- - # ,, ,- x ┆
0x30f20…30f40 80 47 c9 67 aa 3f 2b 32 d7 6e b6 2a 1d ef 38 74 0d d0 00 0d d0 7a 88 88 88 88 08 7e ab aa aa aa ┆ G g ?+2 n * 8t z ü ┆
0x30f40…30f60 aa 2c 2d 3e 06 ca 67 1d cb 78 c2 67 1d d9 cd ae 0e d9 7d 2e 81 95 f5 cd 0b 0a d9 cd 9c 0e d9 cd ┆ ,-> g x g å. ┆
0x30f60…30f80 97 09 c5 d5 e5 d9 2c cd 23 09 d9 e1 d1 c1 cd 0b 0a dd e5 dd 21 a2 0c 3e 06 cd 4a 0e dd e1 2c d9 ┆ , # ! > J , ┆
0x30f80…30fa0 cd b8 0e 2d d9 cd 23 09 f1 c5 d5 e5 6f 26 00 30 01 25 cd 1e 0f d9 2c cd ad 09 d9 e1 d1 c1 cd 23 ┆ - # o& 0 % , #┆
0x30fa0…30fc0 09 7d fe 67 da 88 0a c9 7d 8a 9d d8 89 1d 7d e9 a2 8b 2e 3a 7d 8e e3 38 8e 63 7e 49 92 24 49 12 ┆ å g å å .:å 8 cüI $I ┆
0x30fc0…30fe0 7e cd cc cc cc 4c 7f ab aa aa aa 2a d9 cd b8 0e d9 b7 cb 78 f5 cb b8 cd 0b 0a 7d fe 88 30 47 c5 ┆ü L * x å 0G ┆
0x30fe0…31000 d5 e5 2c cd e6 0e e5 cb 3c cb 1d 7d e1 f5 cd 1e 0f 2c 2d 28 01 2d d9 f1 e1 d1 c1 f5 cd 97 09 dd ┆ , < å ,-( - ┆
0x31000…31020 (22, 0, 3) 0c 0d 28 19 1a cd 65 03 30 13 fe 3f 28 0f fe 2a 28 0b fe 2e 28 07 06 0b cd 51 03 18 10 06 08 cd ┆ ( e 0 ?( *( .( Q ┆
0x31020…31040 38 03 1a fe 2e 20 06 13 06 03 cd 38 03 21 68 00 06 18 36 00 23 10 fb c9 1a 0c 0d 28 08 fe 3f 28 ┆8 . 8 !h 6 # ( ?(┆
0x31040…31060 09 fe 2a 28 0b cd 65 03 38 0b 77 23 13 10 e9 c9 13 3e 3f 18 02 3e 20 77 23 10 fc c9 fe 61 d8 fe ┆ *( e 8 w# >? > w# a ┆
0x31060…31080 7b d0 d6 20 c9 cd 5c 03 fe 30 d8 fe 3a 3f d0 fe 41 d8 fe 5b 3f c9 7c cd 7b 03 7d f5 1f 1f 1f 1f ┆æ Ø 0 :? A Æ? ø æ å ┆
0x31080…310a0 cd 84 03 f1 e6 0f c6 90 27 ce 40 27 c3 95 02 cd 35 01 d8 c5 d5 e5 21 0d 01 cd f6 03 3a 20 01 b7 ┆ ' @' 5 ! : ┆
0x310a0…310c0 28 03 7b 5a 57 3a 21 01 f5 82 cd c2 03 21 16 01 cd f6 03 f1 83 cd c2 03 21 1b 01 cd f6 03 e1 d1 ┆( æZW:! ! ! ┆
0x310c0…310e0 c1 c9 21 22 01 4e 0c 0d ca 95 02 21 e3 03 06 00 09 41 2b 0e 2f 0c 96 30 fc 86 f5 79 cd 95 02 f1 ┆ !" N ! A+ / 0 y ┆
0x310e0…31100 10 f0 c9 01 0a 64 cd 38 01 d8 21 23 01 18 07 cd 3b 01 d8 21 2c 01 46 04 05 c8 23 7e cd 95 02 18 ┆ d 8 !# ; !, F #ü ┆
0x31100…31120 f7 af 37 cb 7c c0 7c b7 7d c8 3e ff c9 22 cd 00 ed 43 df 00 eb d1 f9 01 00 fe 09 22 cf 00 eb 22 ┆ 7 ø ø å > " C " "┆
0x31120…31140 d5 00 e9 e5 2a cf 00 b7 ed 42 22 cf 00 ed 5b cd 00 b7 ed 52 19 eb e1 da 26 1c ed b0 c9 2a cf 00 ┆ * B" Æ R & * ┆
0x31140…31160 ed b0 22 cf 00 d9 c9 5e 23 56 23 d5 5e 23 56 23 4e 23 46 e1 c9 dd e1 eb 1a 4f 06 00 2f 6f 26 ff ┆ " ^#V# ^#V#N#F O /o& ┆
0x31160…31180 39 f9 eb 03 ed b0 dd e9 d1 1a 4f 06 00 2f 6f 26 ff 39 f9 eb 03 ed b0 e9 dd e1 eb 21 e0 ff 39 f9 ┆9 O /o& 9 ! 9 ┆
0x31180…311a0 eb c5 04 05 28 05 af 12 13 10 fc ed b0 c1 3e 20 90 91 28 06 47 af 12 13 10 fc dd e9 dd e1 21 e0 ┆ ( > ( G ! ┆
0x311a0…311c0 ff 39 f9 06 20 af 77 23 10 fc dd e9 dd e1 45 cd d5 04 b6 77 dd e9 dd e1 d1 7d 93 38 f7 3c 4f 43 ┆ 9 w# E w å 8 <OC┆
0x311c0…311e0 cd d5 04 5f 41 af b3 cb 23 30 06 b6 77 23 af 1e 01 10 f3 18 dd 78 e6 f8 0f 0f 0f c6 02 6f 26 00 ┆ _A #0 w# x o& ┆
0x311e0…31200 39 78 e6 07 3c 47 af 37 17 10 fd c9 e5 d9 eb e3 73 23 72 23 d1 73 23 72 23 71 23 70 c9 dd e1 78 ┆9x <G 7 s#r# s#r#q#p x┆
0x31200…31220 (22, 0, 4) e5 dd 21 26 0d 3e 08 cd 5f 0e dd e1 f1 30 0a f5 d9 cd ae 0e d9 cd ad 09 f1 85 6f 38 09 f1 c8 d9 ┆ !& > _ 0 o8 ┆
0x31220…31240 cd 9c 0e c3 0b 0a e1 3e 03 c3 67 1d 6d 2e 1d 11 60 31 70 46 2c fe e5 7f 74 36 7c 89 84 21 77 53 ┆ > g m. `1pF, t6ø !wS┆
0x31240…31260 3c ff c3 2e 7a d2 7d 5b 95 1d 7c 25 b8 46 58 63 7e 16 fc ef fd 75 80 d2 f7 17 72 31 7d b7 c8 dd ┆< .z åÆ ø% FXcü u r1å ┆
0x31260…31280 e5 d9 cd 9c 0e d9 af cb 78 28 03 3c cb b8 f5 cd f5 0a 38 08 d9 cd 0b 0a f1 cb ff f5 d9 01 cf 06 ┆ x( < 8 ┆
0x31280…312a0 11 8e e9 21 7e 4a d9 cd f5 0a 30 05 cd 44 0e 18 4f dd 21 e4 0d 3e 02 08 d9 11 12 00 dd 19 cd 89 ┆ !üJ 0 D O ! > ┆
0x312a0…312c0 0e d9 cd f5 0a 38 0b 08 3d 20 ec d9 11 0c 00 dd 19 d9 d9 cd 84 0e cb f8 cd 23 09 c5 d5 e5 cd 89 ┆ 8 = # ┆
0x312c0…312e0 0e cd ad 09 d9 cd 9c 0e cd 23 09 d9 e1 d1 c1 cd 0b 0a dd e5 cd 44 0e dd e1 d9 cd 84 0e cd 23 09 ┆ # D # ┆
0x312e0…31300 f1 17 30 0a f5 d9 cd a4 0e 2d cd 97 09 f1 dd e1 cb 4f c8 cb f8 c9 7f e7 cf cc 13 54 7f f6 f4 a2 ┆ 0 - O T ┆
0x31300…31320 30 09 7f 6a c1 91 0a 06 80 b5 9e 8a 6f 44 80 82 2c 3a cd 13 80 6a c1 91 0a 06 81 00 00 00 00 00 ┆0 j oD ,: j ┆
0x31320…31340 80 21 a2 da 0f 49 7d e8 a2 8b 2e ba 7d 8e e3 38 8e 63 7e 49 92 24 49 92 7e cd cc cc cc 4c 7f ab ┆ ! Iå . å 8 cüI $I ü L ┆
0x31340…31360 aa aa aa aa dd 21 20 0e 3e 05 c5 d5 e5 f5 cd c2 0e cd ad 09 f1 cd 5f 0e d9 e1 d1 c1 c3 ad 09 f5 ┆ ! > _ ┆
0x31360…31380 d9 cd 84 0e 18 10 f5 d9 c5 d5 e5 cd 84 0e cd 23 09 d9 e1 d1 c1 d9 cd ad 09 f1 3d 20 e9 d9 cd 9c ┆ # = ┆
0x31380…313a0 0e c3 23 09 11 06 00 dd 19 dd 6e 00 dd 66 01 dd 5e 02 dd 56 03 dd 4e 04 dd 46 05 c9 21 81 00 44 ┆ # n f ^ V N F ! D┆
0x313a0…313c0 4c 54 5c c9 01 0f 49 11 a2 da 21 82 21 c9 01 04 35 11 33 f3 21 81 fa c9 01 72 31 11 f7 17 21 80 ┆LTØ I ! ! 5 3 ! r1 ! ┆
0x313c0…313e0 d2 c9 c5 d5 e5 d9 e1 d1 c1 c9 cd a8 06 21 80 00 3e 20 cb 78 20 0d cb 23 cb 12 cb 11 cb 10 2d 3d ┆ ! > x # -=┆
0x313e0…31400 20 f0 6f cb b8 c9 cb 78 d9 cd 9c 0e 28 02 cb f8 2d cd 23 09 b7 cb 7d 28 1c cb 78 08 cb f8 3e 8f ┆ o x ( - # å( x > ┆
0x31400…31420 (22, 0, 5) eb 21 00 00 44 39 4e e5 09 23 e3 b9 38 01 79 12 13 23 b7 28 03 4f ed b0 e1 f9 dd e9 dd e1 78 21 ┆ ! D9N # 8 y # ( O x!┆
0x31420…31440 00 00 44 39 4e e5 09 23 5e 23 56 18 dc dd e1 eb 68 26 00 44 39 ed b0 21 20 00 39 f9 dd e9 dd e1 ┆ D9N #^#V h& D9 ! 9 ┆
0x31440…31460 21 20 00 39 5e 23 56 68 26 00 44 39 ed b0 21 22 00 18 e7 dd e1 eb 78 2f 6f 26 ff 39 f9 70 23 48 ┆! 9^#Vh& D9 !" x/o& 9 p#H┆
0x31460…31480 06 00 eb ed b0 dd e9 b7 ed 52 19 d8 3e 08 c3 67 1d b7 ed 52 b7 ed 42 30 03 09 19 c9 3e 09 c3 67 ┆ R > g R B0 > g┆
0x31480…314a0 1d b7 ed 52 eb 13 ea 8c 05 f0 18 01 f8 11 00 00 c9 d5 eb b7 ed 52 eb e1 18 eb b7 ed 52 21 01 00 ┆ R R R! ┆
0x314a0…314c0 c8 2b c9 cd f5 0a 18 f5 cd c6 08 18 f0 b7 ed 52 21 01 00 c0 2b c9 cd f5 0a 18 f5 cd c6 08 18 f0 ┆ + R! + ┆
0x314c0…314e0 cd 88 06 21 01 00 d0 2b c9 cd f5 0a 18 f5 cd c6 08 18 f0 cd 88 06 21 01 00 c8 d8 2b c9 cd f5 0a ┆ ! + ! + ┆
0x314e0…31500 18 f4 cd c6 08 18 ef cd 88 06 21 00 00 c8 d8 23 c9 cd f5 0a 18 f4 cd c6 08 18 ef cd 88 06 21 01 ┆ ! # ! ┆
0x31500…31520 00 d8 2b c9 cd f5 0a 18 f5 cd c6 08 18 f0 54 5d 4b 42 eb 21 00 00 7a b7 3e 10 20 03 53 3e 08 29 ┆ + TÅKB ! z > S> )┆
0x31520…31540 eb 29 eb 30 01 09 3d 20 f6 c9 7c aa f5 cd 96 06 eb cd 96 06 eb 44 4d af 67 6f 3e 11 ed 6a ed 42 ┆ ) 0 = ø DM go> j B┆
0x31540…31560 30 02 09 37 3f cb 13 cb 12 3d 20 f0 eb f1 f0 18 48 e5 cd a8 06 cb 3c cb 1d d1 eb cd 2a 06 eb cb ┆0 7? = H < * ┆
0x31560…31580 7a c8 18 35 cd 77 06 c8 29 10 fd c9 cd 77 06 c8 cb 3c cb 1d 10 fa c9 eb 7a b7 20 08 7b fe 10 30 ┆z 5 w ) w < z æ 0┆
0x31580…315a0 03 47 b7 c9 af 67 6f c9 eb 7c aa 7c fa 94 06 ba c0 7d bb c9 17 c9 cb 7c c8 7c 2f 67 7d 2f 6f 23 ┆ G go ø ø å ø ø/gå/o#┆
0x315a0…315c0 c9 7d e6 01 6f 26 00 c9 ed 4b d3 00 ed 5b d1 00 c5 d5 78 41 4a 53 1e 00 1f cb 18 cb 19 cb 1a cb ┆ å o& K Æ xAJS ┆
0x315c0…315e0 1b e1 19 eb e1 ed 4a 44 4d 21 e9 62 19 22 d1 00 eb 21 19 36 ed 4a 22 d3 00 44 4d c9 06 00 11 10 ┆ JDM! b " ! 6 J" DM ┆
0x315e0…31600 27 cd f8 06 11 e8 03 cd f8 06 11 64 00 cd f8 06 1e 0a cd f8 06 7d 18 0d af 3c ed 52 30 fb 19 04 ┆' d å < R0 ┆
0x31600…31620 (22, 0, 6) bd 38 16 28 06 cd 90 0a 2c 18 f3 cd 90 0a 08 60 69 c8 c3 99 06 21 00 00 c9 3e 07 c3 67 1d 7c b5 ┆ 8 ( , `i ! > g ø ┆
0x31620…31640 ca 88 0a cb 7c 08 cd 96 06 3e 90 29 3d cb 7c 28 fa 44 4d 11 00 00 62 6f 08 c0 cb b8 c9 cd 01 04 ┆ ø > )= ø( DM bo ┆
0x31640…31660 eb 1e 00 38 04 fe 19 38 18 1d cd 01 04 d9 cb 78 d9 16 07 28 01 14 92 30 01 af fe 09 38 02 3e 09 ┆ 8 8 x ( 0 8 > ┆
0x31660…31680 3c 57 d5 d9 fd 21 5d 00 dd e5 cd 01 10 dd e1 d1 4f 7a 3c cb 7b 20 10 81 f2 81 0f fd 36 00 00 18 ┆<W !Å Oz< æ 6 ┆
0x31680…316a0 0b fe 0c 38 02 3e 0b d5 cd 96 10 d1 cb 78 28 05 3e 2d cd fb 0f cb 7b 28 03 61 0e 00 cb 79 28 05 ┆ 8 > x( >- æ( a y( ┆
0x316a0…316c0 cd f9 0f 18 07 cd ef 0f 0d f2 a5 0f 7a b7 28 17 3e 2e cd fb 0f 0c 28 06 cd f9 0f 15 20 f7 15 fa ┆ z ( >. ( ┆
0x316c0…316e0 c7 0f cd ef 0f 18 f7 cb 7b c8 3e 45 cd fb 0f 3e 2b cb 7c 28 06 7c ed 44 67 3e 2d cd fb 0f 7c 06 ┆ æ >E >+ ø( ø Dg>- ø ┆
0x316e0…31700 2f 04 d6 0a 30 fb c6 3a dd 70 00 dd 23 18 0c fd 7e 00 fd 23 b7 20 04 fd 2b 3e 30 dd 77 00 dd 23 ┆/ 0 : p # ü # +>0 w #┆
0x31700…31720 c9 fd e5 2c 2d 20 0e 06 0c fd 36 00 30 fd 23 10 f8 af c3 93 10 c5 cb b8 7d d9 d6 80 6f 9f 67 11 ┆ ,- 6 0 # å o g ┆
0x31720…31740 4d 00 cd 10 06 11 05 00 19 7c fe d9 20 01 3c fd 77 00 ed 44 cd 5b 11 7d fe 81 30 06 cd ce 11 fd ┆M ø < w D Æ å 0 ┆
0x31740…31760 35 00 cb f8 3e 84 95 2e 00 28 08 cd 90 0a cb 1d 3d 20 f8 fd 7e 00 f5 3e 0c 08 78 1f 1f 1f 1f e6 ┆5 > . ( = ü > x ┆
0x31760…31780 0f c6 30 fd 77 00 fd 23 78 e6 0f 47 c5 d5 e5 cb 25 cd 9d 0a cb 25 cd 9d 0a eb e3 19 d1 e3 ed 5a ┆ 0 w #x G % % Z┆
0x31780…317a0 eb e1 e3 ed 4a 44 4d e1 cb 25 cd 9d 0a 08 3d 20 c8 f1 c1 fd e1 c9 fd e5 e1 5f 16 00 19 7e 36 00 ┆ JDM % = _ ü6 ┆
0x317a0…317c0 fe 35 d8 1d fa b2 10 2b 7e 3c 77 fe 3a d8 36 00 18 f1 36 31 23 36 00 0c c9 d9 01 00 00 d9 cd 88 ┆ 5 +ü<w : 6 61#6 ┆
0x317c0…317e0 0a dd 7e 00 cd 5c 03 fe 2e 20 0c d9 cb 70 37 c0 cb f0 d9 dd 23 18 ea fe 45 28 21 cd 4f 11 30 54 ┆ ü Ø . p7 # E(! O 0T┆
0x317e0…31800 08 cd ce 11 d8 08 d9 c5 6f 26 00 cd 1e 0f cd ff 08 d9 c1 d8 cb 70 28 01 0d d9 18 d7 cd 34 11 d8 ┆ o& p( 4 ┆
0x31800…31820 (22, 0, 7) 3d 20 02 05 c8 c6 30 dd 77 00 dd 23 c9 dd 7e 00 d6 24 4f 21 00 00 20 02 dd 23 dd 7e 00 cd 5c 03 ┆= 0 w # ü $O! # ü Ø ┆
0x31820…31840 d6 30 38 29 fe 0a 38 0e 0c 0d 20 21 d6 07 fe 0a 38 1b fe 10 30 17 54 5d 29 d8 29 d8 0c 0d 20 02 ┆ 08) 8 ! 8 0 TÅ) ) ┆
0x31840…31860 54 5d 19 d8 29 d8 5f 16 00 19 d8 18 cb 79 b7 c8 7c 87 c9 dd e1 e1 e5 7d 26 00 23 39 4e 81 38 1c ┆TÅ ) _ y ø å& #9N 8 ┆
0x31860…31880 77 eb 21 00 00 44 ed 42 39 f9 eb e5 03 ed b0 eb e1 2b 1b 4f 03 ed b8 eb 23 f9 dd e9 3e 01 c3 69 ┆w ! D B9 + O # > i┆
0x31880…318a0 1d dd e1 cd 01 04 57 e1 cd f3 08 5f e1 e5 7d 93 38 1a 14 15 28 16 ba 38 16 4a 06 00 60 39 7b 82 ┆ W _ å 8 ( 8 J `9æ ┆
0x318a0…318c0 54 5d 3d 6f 60 39 79 ed b8 eb 18 09 af 18 03 3c 6b 2d 26 00 39 77 f9 dd e9 dd e1 e1 e5 7d 26 00 ┆TÅ=o`9y <k-& 9w å& ┆
0x318c0…318e0 23 39 f9 6f 26 00 dd e9 dd e1 21 00 00 54 39 5e 4b 23 e5 19 5e 43 23 e5 19 e5 fd e1 d1 e1 79 90 ┆#9 o& ! T9^K# ^C# y ┆
0x318e0…31900 38 10 3c 4f c5 d5 e5 1a be 28 0c e1 d1 c1 23 0d 20 f2 21 00 00 18 0e 23 13 10 ec d1 e1 c1 21 00 ┆8 <O ( # ! # ! ┆
0x31900…31920 00 39 eb ed 52 fd f9 dd e9 dd e1 cd 01 04 4f e1 cd f3 08 5f e1 7e 93 38 1b 0c 0d 28 17 91 38 12 ┆ 9 R O _ ü 8 ( 8 ┆
0x31920…31940 f5 7e 91 77 06 00 50 19 54 5d 09 f1 3c 4f ed b0 18 02 1d 73 dd e9 dd e1 cd f3 08 4f d1 ed 53 e6 ┆ ü w P TÅ <O s O S ┆
0x31940…31960 00 21 00 00 39 1a f5 86 38 03 b8 38 01 78 12 f1 57 5e 91 38 2f 3c 6f 7a 83 38 04 b8 7d 38 08 78 ┆ ! 9 8 8 x W^ 8/<oz 8 å8 x┆
0x31960…31980 93 38 26 91 38 23 3c b7 28 1f c5 d5 2a e6 00 5f 1d 16 00 42 19 09 d1 d5 e5 50 19 eb e1 4f ed b8 ┆ 8& 8#< ( * _ B P O ┆
0x31980…319a0 d1 c1 18 05 7a 3c 28 19 4f 78 91 3c bb 38 01 7b b7 28 0e 2a e6 00 06 00 09 eb 21 01 00 39 4f ed ┆ z<( Ox < 8 æ ( * ! 9O ┆
0x319a0…319c0 b0 21 00 00 54 39 5e 13 19 f9 dd e9 dd e1 e1 2d c2 7c 07 6c 26 00 dd e9 21 02 00 54 39 5e 13 19 ┆ ! T9^ - ø l& ! T9^ ┆
0x319c0…319e0 7e 36 01 23 77 c9 21 04 00 54 39 5e 4b 23 e5 19 5e 43 23 e5 19 e5 fd e1 d1 e1 af b8 28 04 b9 20 ┆ü6 #w ! T9^K# ^C# ( ┆
0x319e0…31a00 08 78 b9 e1 d1 fd f9 d5 e9 1a be 20 f6 23 13 05 0d 18 e7 7c b7 20 03 7d b7 c0 3e 02 c3 69 1d cd ┆ x # ø å > i ┆
0x31a00…31c00 (22, 0, 8) DataBlock {»OLDREG.COM«}
0x31c00…31c20 (22, 0, 9) 23 09 d0 3e 03 c3 67 1d cd 97 09 18 f5 cd c2 0e cd ad 09 18 ed d9 7d b7 d9 3e 04 ca 67 1d cd 0b ┆# > g å > g ┆
0x31c20…31c40 0a 18 df d9 cb 78 d9 c2 9e 09 d9 7d b7 d9 c8 d9 c5 d5 e5 d9 7d b7 20 05 d9 cb b8 18 54 c5 cb f8 ┆ x å å T ┆
0x31c40…31c60 af 08 d9 cb f8 7d d9 95 28 13 30 06 ed 44 08 3d 08 d9 cd 90 0a 2c 3d 20 f9 08 28 01 d9 f1 e6 80 ┆ å ( 0 D = ,= ( ┆
0x31c60…31c80 20 0f cd a8 0a 30 25 cd 91 0a b7 2c 20 1e 37 18 20 cd dc 0a 3f f5 28 10 38 01 d9 cd c2 0a cb 78 ┆ 0% , 7 ? ( 8 x┆
0x31c80…31ca0 20 09 cd 9c 0a 2d 20 f6 cd 88 0a f1 38 02 cb b8 b7 d9 e1 d1 c1 d9 c9 d9 cb 78 d9 c2 2a 09 cd a5 ┆ - 8 x * ┆
0x31ca0…31cc0 09 cd 2a 09 d8 2c 2d c8 78 ee 80 47 c9 d9 7d b7 d9 ca 88 0a 7d b7 c8 d9 85 d9 cd 63 0a c5 d5 e5 ┆ * ,- x G å å c ┆
0x31cc0…31ce0 dd 39 cd 88 0a d9 2e 05 d9 3e 08 dd 23 dd 6e 00 08 cb 1d 30 03 cd a8 0a cd 91 0a 08 3d 20 f1 d9 ┆ 9 . > # n 0 = ┆
0x31ce0…31d00 2d d9 20 e5 dd 6e fb cb 78 20 09 08 cd 9d 0a 2c 2d 28 01 2d f1 f1 f1 b7 08 f1 d9 c1 e1 d9 dd e1 ┆- n x ,-( - ┆
0x31d00…31d20 cb b8 b0 47 2c 2d cc 88 0a 08 c9 7d b7 c8 d9 95 d9 3f cd 63 0a e5 e5 e5 dd 39 d9 2e 05 d9 3e 08 ┆ G,- å ? c 9 . > ┆
0x31d20…31d40 08 cd dc 0a 38 03 cd c2 0a 3f cb 15 08 3d 20 0c dd 75 05 dd 2b d9 2d d9 28 0e 3e 08 cd 9c 0a 30 ┆ 8 ? = u + - ( > 0┆
0x31d40…31d60 df 08 cd c2 0a b7 18 e1 cd 9c 0a 38 04 cd dc 0a 3f e1 d1 c1 cb 78 20 05 cd 9d 0a 18 9a 2c 20 97 ┆ 8 ? x , ┆
0x31d60…31d80 37 18 95 38 06 c6 80 38 06 18 1b c6 80 38 17 6f dd e3 d9 e5 c5 78 cb f8 d9 a8 e6 80 f5 cb f8 dd ┆7 8 8 8 o x ┆
0x31d80…31da0 e5 dd 21 00 00 c9 e1 d8 af 6f 47 4f 57 5f 67 c9 b7 cb 18 cb 19 cb 1a cb 1b cb 1c c9 b7 cb 14 cb ┆ ! oGOW_g ┆
0x31da0…31dc0 13 cb 12 cb 11 cb 10 c9 7c d9 84 d9 67 7b d9 8b d9 5f 7a d9 8a d9 57 79 d9 89 d9 4f 78 d9 88 d9 ┆ ø gæ _z Wy Ox ┆
0x31dc0…31de0 47 c9 7c d9 94 d9 67 7b d9 9b d9 5f 7a d9 9a d9 57 79 d9 99 d9 4f 78 d9 98 d9 47 c9 78 d9 b8 d9 ┆G ø gæ _z Wy Ox G x ┆
0x31de0…31e00 c0 79 d9 b9 d9 c0 7a d9 ba d9 c0 7b d9 bb d9 c0 7c d9 bc d9 c9 d9 78 d9 a8 f2 ff 0a 78 17 c9 cb ┆ y z æ ø x x ┆
0x31e00…32000 (22, 1, 1) DataBlock {»OLDREG.COM«}
0x32000…32020 (22, 1, 2) b0 c9 3e 02 32 d9 00 c9 3e af 32 e6 00 cd 6c 15 c0 2a df 00 7c b5 3e 11 20 ea 2a e2 00 11 0c 00 ┆ > 2 > 2 l * ø > * ┆
0x32020…32040 19 11 5c 00 01 24 00 ed b0 11 5c 00 0e 0f cd 05 00 3c 28 ce 21 52 15 11 80 00 01 1a 00 ed b0 11 ┆ Ø $ Ø <( !R ┆
0x32040…32060 00 01 3a e6 00 b7 20 04 ed 5b 01 01 31 00 01 c3 81 00 ff d5 0e 1a cd 05 00 11 5c 00 0e 14 cd 05 ┆ : Æ 1 Ø ┆
0x32060…32080 00 d1 21 80 00 19 eb b7 28 e9 18 66 22 e2 00 cd 14 16 c8 3e 10 32 d9 00 c9 dd e1 dd e5 e5 21 ca ┆ ! ( f" > 2 ! ┆
0x32080…320a0 00 cd 8a 15 e1 c9 dd e1 dd e5 22 e2 00 cb 46 28 0b 23 7e fe 00 c0 23 36 00 c3 b7 15 3e 05 32 d9 ┆ " F( #ü #6 > 2 ┆
0x320a0…320c0 00 c9 e5 21 ca 00 cd ab 15 e1 c9 22 e2 00 cb 4e c0 3e 06 32 d9 00 c9 21 da 00 7e fe 80 38 02 3e ┆ ! " N > 2 ! ü 8 >┆
0x320c0…320e0 7f 4f 36 7f 2a db 00 22 dd 00 16 00 cd a7 02 77 fe 0d 28 3d 1e 01 fe 08 28 26 fe 7f 28 22 1d fe ┆ O6 * " w (= (& (" ┆
0x320e0…32100 18 28 1d fe 03 20 09 3a e1 00 b7 28 df c3 3e 1d fe 20 38 d8 79 ba 28 d4 7e 14 23 cd 95 02 18 cc ┆ ( : ( > 8 y ( ü # ┆
0x32100…32120 15 fa ca 15 2b cd b2 02 08 20 08 00 1d 28 bd 18 ef 36 1a c9 e5 2a e2 00 23 7e fe 06 e1 c9 cd 14 ┆ + ( 6 * #ü ┆
0x32120…32140 16 c8 cd ad 16 fe 1a c8 c5 d5 e5 2a e2 00 23 7e b7 20 0e 2a dd 00 7e fe 1a 28 68 23 22 dd 00 18 ┆ * #ü * ü (h#" ┆
0x32140…32160 62 3d 20 15 cd a7 02 f5 fe 20 38 05 cd 95 02 18 05 fe 0d cc bf 02 f1 18 4a 3d 20 05 cd a7 02 18 ┆b= 8 J= ┆
0x32160…32180 42 3d 3d 20 06 cd af 00 7d 18 38 3d 20 06 cd b5 00 7d 18 2f 0e 14 cd 09 1a 20 21 2a e2 00 23 23 ┆B== å 8= å / !* ##┆
0x32180…321a0 23 e5 7e c6 2d 5f 16 00 19 7e e1 fe 1a 28 14 34 f2 a3 16 36 00 2a e2 00 cb d6 18 07 3e 07 32 d9 ┆# ü -_ ü ( 4 6 * > 2 ┆
0x321a0…321c0 00 3e 1a 2a e2 00 23 23 77 e1 d1 c1 c9 3a d9 00 b7 3e 1a c0 e5 2a e2 00 23 23 7e e1 c9 e5 2a e2 ┆ > * ##w : > * ##ü * ┆
0x321c0…321e0 00 23 7e fe ff 28 45 cd 1e 16 cd ad 16 fe 20 28 0c fe 09 28 08 fe 0d 28 04 fe 0a 20 05 cd 28 16 ┆ #ü (E ( ( ( ( ┆
0x321e0…32200 18 e8 21 5d 00 06 1e cd ad 16 fe 20 28 16 fe 09 28 12 fe 0d 28 14 fe 1a 28 10 77 23 05 28 05 cd ┆ !Å ( ( ( ( w# ( ┆
0x32200…32400 (22, 1, 3) DataBlock {»OLDREG.COM«}
0x32400…32420 (22, 1, 4) 28 16 18 e3 cd 14 16 cc 28 16 36 00 e1 c9 dd 21 5d 00 dd 7e 00 b7 c8 06 00 fe 2d c0 04 dd 23 c9 ┆( ( 6 !Å ü - # ┆
0x32420…32440 38 05 dd 7e 00 b7 c8 3e 09 32 d9 00 37 c9 eb cd 14 16 20 07 cd ad 16 12 c3 28 16 cd 28 16 12 c9 ┆8 ü > 2 7 ( ( ┆
0x32440…32460 3e af 4f c5 cd bd 16 c1 cd 0e 17 c8 c5 e5 cd 0d 07 d1 c1 cd 20 17 d8 05 cc 99 06 eb 73 0c 0d 20 ┆> O s ┆
0x32460…32480 02 23 72 eb c9 cd bd 16 cd 0e 17 c8 c5 e5 cd b9 10 d9 e1 c1 cd 20 17 d8 05 d9 cc a5 09 d9 c3 ec ┆ #r ┆
0x32480…324a0 04 e5 cd 1e 16 cd ad 16 fe 0a 20 05 cd 28 16 18 f4 0e 00 cd ad 16 fe 0d 28 15 fe 1a 28 11 0c 23 ┆ ( ( ( #┆
0x324a0…324c0 77 05 28 05 cd 28 16 18 ea cd 14 16 cc 28 16 e1 71 c9 2a e2 00 23 7e fe 00 ca bf 02 cd ad 16 fe ┆w ( ( ( q * #ü ┆
0x324c0…324e0 0d 28 08 fe 1a c8 cd 28 16 18 f1 cd 14 16 20 09 cd 28 16 fe 0a c0 c3 28 16 2a e2 00 23 23 7e fe ┆ ( ( ( ( * ##ü ┆
0x324e0…32500 1a c8 36 00 c9 c5 d5 e5 cd ef 17 e1 d1 c1 c9 4f 3a d9 00 b7 c0 2a e2 00 23 7e fe 06 28 1b 30 39 ┆ 6 O: * #ü ( 09┆
0x32500…32520 e1 06 00 c5 e5 b7 ca a6 00 3d ca a6 00 3d 3d ca a9 00 3d ca ac 00 c3 b2 00 2b cb de 23 23 23 e5 ┆ = == = + ### ┆
0x32520…32540 7e c6 2d 5f 16 00 19 71 e1 34 f0 36 00 0e 15 cd fd 19 c8 3e 08 32 d9 00 c9 2a e6 00 3a e8 00 be ┆ü -_ q 4 6 > 2 * : ┆
0x32540…32560 c8 34 5e 16 00 19 71 c9 7d c3 e5 17 c1 d1 c5 dd 2a db 00 cb 7c 28 06 cd 99 06 eb 18 0e eb cb 7c ┆ 4^ q å * ø( ø┆
0x32560…32580 28 09 cd 99 06 dd 36 00 2d dd 23 d5 cd dc 06 e1 cd 01 04 ed 5b db 00 dd e5 e1 b7 ed 52 eb 93 38 ┆( 6 - # Æ R 8┆
0x32580…325a0 0a 28 08 47 3e 20 cd e5 17 10 f9 43 04 05 c8 7e cd e5 17 23 18 f7 c1 d1 d9 e1 d1 c1 d9 c5 dd 2a ┆ ( G> C ü # *┆
0x325a0…325c0 db 00 d5 cd 3d 0f 18 c7 c1 d1 c5 cd 01 04 cb 43 21 be 18 1e 04 20 c7 21 c2 18 1e 05 18 c0 54 52 ┆ = C! ! TR┆
0x325c0…325e0 55 45 46 41 4c 53 45 cd 01 04 21 02 00 39 5e 23 cd 7e 18 d1 f9 d5 c9 e1 7e 23 b7 28 08 47 7e cd ┆UEFALSE ! 9^# ü ü# ( Gü ┆
0x325e0…32600 e5 17 23 10 f9 e9 3e 0d cd e5 17 3e 0a c3 e5 17 06 0d 11 06 1a 22 e2 00 cb 46 21 00 00 c8 cd ad ┆ # > > " F! ┆
0x32600…32800 (22, 1, 5) DataBlock {»OLDREG.COM«}
0x32800…32820 (22, 1, 6) 16 b8 28 03 fe 1a c0 23 c9 e5 cd af 1a eb b7 ed 52 e1 30 0f cd 4d 19 2a e2 00 11 08 00 19 34 c0 ┆ ( # R 0 M * 4 ┆
0x32820…32840 23 34 c9 3e 0a 32 d9 00 c9 e5 cd af 1a b7 ed 52 20 0e 2a e2 00 11 04 00 19 34 20 04 23 34 28 06 ┆#4 > 2 R * 4 #4( ┆
0x32840…32860 e1 cd 4c 19 18 d1 3e 0b 32 d9 00 c9 3e af 32 e7 00 3a d9 00 b7 c0 eb 2a e2 00 cb 56 28 2f cb 96 ┆ L > 2 > 2 : * V(/ ┆
0x32860…32880 3a e7 00 b7 28 0f 23 7e 2b b7 20 09 78 b7 20 1d 79 b7 fa 8d 19 c5 d5 0e 21 cd 11 1a d1 c1 28 0d ┆: ( #ü+ x y ! ( ┆
0x32880…328a0 3d 28 04 fe 03 20 58 3a e7 00 b7 28 52 2a e2 00 3a e7 00 b7 28 02 cb de 23 23 23 7e c6 2d d5 5f ┆=( X: (R* : ( ###ü - _┆
0x328a0…328c0 16 00 19 d1 d6 2d cd e8 19 ed a0 e2 b3 19 3c f2 a9 19 3d 3c cd e8 19 2a e2 00 23 23 23 e6 7f 77 ┆ - < =< * ### w┆
0x328c0…328e0 20 16 c5 d5 e5 cd fb 19 e1 d1 c1 20 15 d5 11 2a 00 19 d1 34 20 02 23 34 78 b1 c2 57 19 eb c9 3e ┆ * 4 #4x W >┆
0x328e0…32900 0c 01 3e 0d 32 d9 00 c9 f5 3a e7 00 b7 28 01 eb f1 c9 22 e2 00 cd fb 19 c8 18 e7 0e 22 2a e2 00 ┆ > 2 : ( " "* ┆
0x32900…32920 cb d6 cb 5e c8 cb 9e 18 08 2a e2 00 cb 56 c8 cb 96 e5 c5 11 30 00 19 eb 0e 1a cd 05 00 c1 e1 11 ┆ ^ * V 0 ┆
0x32920…32940 0c 00 19 eb cd 05 00 b7 c9 c1 d1 ed 53 e2 00 c5 e5 cd af 1a d1 b7 ed 52 38 41 2a e2 00 01 06 00 ┆ S R8A* ┆
0x32940…32960 09 4e 23 46 23 73 23 72 cd 81 1a 01 04 00 09 30 01 13 7d e6 7f 29 eb ed 6a eb 53 5c 2a e2 00 23 ┆ N#F#s#r 0 å ) j SØ* #┆
0x32960…32980 23 23 77 01 2a 00 09 4e 23 46 eb b7 ed 42 09 c8 d5 e5 cd fb 19 d1 e1 72 2b 73 c9 3e 0e 32 d9 00 ┆##w * N#F B r+s > 2 ┆
0x32980…329a0 c9 d5 d9 e1 d9 21 00 00 54 5d 3e 10 29 eb ed 6a eb d9 29 d9 30 04 09 30 01 13 3d 20 ef c9 cd b2 ┆ ! TÅ> ) j ) 0 0 = ┆
0x329a0…329c0 1a b7 ed 52 21 00 00 c0 23 c9 cd b2 1a eb c9 2a e2 00 11 04 00 19 5e 23 56 23 d5 4e 23 46 23 5e ┆ R! # * ^#V# N#F#^┆
0x329c0…329e0 23 56 e1 c9 3e 22 18 02 3e 21 32 e7 00 44 4d dd e1 d1 e1 dd e5 22 e2 00 7e e6 03 ca 5b 1b 78 b1 ┆#V >" >!2 DM " ü Æ x ┆
0x329e0…32a00 28 4c c5 d5 0e 1a cd 05 00 2a e2 00 11 0c 00 19 eb 3a e7 00 4f cd 05 00 d1 c1 b7 28 10 6f 3a e7 ┆(L * : O ( o: ┆
0x32a00…32a20 (22, 1, 7) d9 cb e0 dd 23 dd 7e 00 fe 2b 28 06 fe 2d 20 04 cb e8 dd 23 cd 4c 11 3f d8 4f dd 23 cd 4c 11 30 ┆ # ü +( - # L ? O # L 0┆
0x32a20…32a40 0a dd 23 57 79 87 87 81 87 82 4f cb 68 28 04 79 ed 44 4f d9 d9 79 c6 80 fe 5a d8 fe a6 3f d8 c5 ┆ #Wy O h( y DO y Z ? ┆
0x32a40…32a60 dd e5 79 cd 5b 11 dd e1 d9 c1 d9 c9 dd 7e 00 d6 30 3f d0 fe 0a c9 7d cd 9c 0e d9 f5 b7 f2 62 11 ┆ y Æ ü 0? å b ┆
0x32a60…32a80 ed 44 f5 cb 3f cb 3f 3c 21 fa ff 11 06 00 19 3d 20 fc eb dd 21 92 11 dd 19 cd 89 0e f1 e6 03 28 ┆ D ? ?<! = ! (┆
0x32a80…32aa0 08 f5 cd ce 11 f1 3d 20 f8 f1 b7 f2 ad 09 d9 c3 0b 0a 81 00 00 00 00 00 8e 00 00 00 40 1c 9b 00 ┆ = @ ┆
0x32aa0…32ac0 00 20 bc 3e a8 00 10 a5 d4 68 b6 04 bf c9 1b 0e c3 ac c5 eb 78 2d d0 cd ce 1b c2 53 de f9 78 39 ┆ > h x- S x9┆
0x32ac0…32ae0 3f 01 eb 2b a8 ad c5 1d f8 c9 7b ce 97 40 7d b7 c8 cb f8 c5 d5 7c cd 90 0a cd 90 0a 84 67 e3 ed ┆? + æ @å ø g ┆
0x32ae0…32b00 5a eb e1 e3 ed 4a 44 4d e1 30 06 cd 91 0a 2c 37 c8 7d c6 03 6f cb b8 c9 0e 01 18 02 0e 00 cd 5a ┆Z JDM 0 ,7 å o Z┆
0x32b00…32b20 12 1a be 20 08 23 13 10 f8 79 ee 01 4f 21 40 00 39 f9 69 26 00 dd e9 0e 01 18 02 0e 00 cd 5a 12 ┆ # y O!@ 9 i& Z ┆
0x32b20…32b40 0d 20 01 eb 0e 00 1a b6 be 20 e2 23 13 10 f7 0e 01 18 da cd 5a 12 1a b6 77 23 13 10 f9 eb f9 dd ┆ # Z w# ┆
0x32b40…32b60 e9 cd 5a 12 1a 2f a6 77 23 13 10 f8 18 ef cd 5a 12 1a a6 77 23 13 10 f9 18 e3 fd e1 dd e1 21 00 ┆ Z / w# Z w# ! ┆
0x32b60…32b80 00 39 eb 21 20 00 45 39 fd e9 dd e1 21 20 00 39 46 cd d5 04 a6 21 22 00 39 f9 21 00 00 28 01 23 ┆ 9 ! E9 ! 9F !" 9 ! ( #┆
0x32b80…32ba0 dd e9 3e af 32 e6 00 fd e1 2a db 00 06 10 cd fd 04 af 12 e1 22 e2 00 fd e5 7c b7 20 06 3e 12 32 ┆ > 2 * " ø > 2┆
0x32ba0…32bc0 d9 00 c9 3a e6 00 b7 28 0d cd cf 12 20 08 2a e2 00 36 00 23 77 c9 cd ca 02 2a e2 00 36 00 23 36 ┆ : ( * 6 #w * 6 #6┆
0x32bc0…32be0 06 11 0b 00 19 eb 21 5c 00 01 24 00 ed b0 c9 06 06 21 ff 12 c5 e5 06 03 ed 5b db 00 13 1a fe 20 ┆ !Ø $ ! Æ ┆
0x32be0…32c00 28 fa 1a cd 5c 03 96 28 0a e1 c1 11 04 00 19 10 e3 b7 c9 23 13 10 eb c1 c1 1a fe 3a c0 7e c9 43 ┆( Ø ( # : ü C┆
0x32c00…32c20 (22, 1, 8) 00 fe 22 20 43 7d 3d 28 04 fe 03 20 4a c5 d5 2a e2 00 11 2d 00 19 4e 23 46 03 70 2b 71 11 db ff ┆ " Cå=( J * - N#F p+q ┆
0x32c20…32c40 19 71 23 70 d1 c1 21 80 00 19 eb 0b 18 b0 2a e2 00 11 09 00 19 46 2b 4e 2b 2b 2b 56 2b 5e eb b7 ┆ q#p ! * F+N+++V+^ ┆
0x32c40…32c60 ed 42 d0 eb 71 23 70 c9 3d 28 08 fe 03 28 04 3e 0c 18 0a 3e 0a 18 06 3e 0d 18 02 3e 0f 32 d9 00 ┆ B q#p =( ( > > > > 2 ┆
0x32c60…32c80 c9 c1 d1 ed 53 e2 00 c5 e5 cd af 1a d1 b7 ed 52 da 7b 1a 2a e2 00 01 08 00 09 73 23 72 01 24 00 ┆ S R æ * s#r $ ┆
0x32c80…32ca0 09 73 23 72 c9 22 e4 00 ed 53 e6 00 19 eb e1 22 e2 00 01 21 00 09 4e 23 46 eb b7 ed 42 28 5e 78 ┆ s#r " S " ! N#F B(^x┆
0x32ca0…32cc0 b1 20 1a 2a e2 00 01 0c 00 09 06 18 36 00 23 10 fb ed 5b e2 00 0e 0f cd 05 00 3c 28 48 2a e2 00 ┆ * 6 # Æ <(H* ┆
0x32cc0…32ce0 01 21 00 09 ed 4b e4 00 71 23 70 23 23 eb ed 4b e6 00 c5 d5 0e 1a cd 05 00 ed 5b e2 00 0e 21 cd ┆ ! K q#p## K Æ ! ┆
0x32ce0…32d00 05 00 b7 20 20 2a e2 00 01 21 00 09 34 20 02 23 34 d1 21 80 00 19 eb c1 0b 78 b1 20 d5 2a e2 00 ┆ * ! 4 #4 ! x * ┆
0x32d00…32d20 01 24 00 09 e9 dd 2a e2 00 3e 0b c3 69 1d e5 2a cd 00 e5 19 22 cd 00 ed 5b cf 00 b7 ed 52 d1 e1 ┆ $ * > i * " Æ R ┆
0x32d20…32d40 30 04 73 23 72 c9 3e 0a c3 67 1d ed 5b cd 00 18 f1 5e 23 56 ed 53 cd 00 c9 21 00 00 39 ed 5b cf ┆0 s#r > g Æ ^#V S ! 9 Æ ┆
0x32d40…32d60 00 b7 ed 52 19 38 01 eb ed 5b cd 00 b7 ed 52 c9 3e af 4f 22 e6 00 af 77 32 d9 00 78 32 e8 00 21 ┆ R 8 Æ R > O" w2 x2 !┆
0x32d60…32d80 c7 1c 22 e2 00 e1 22 e4 00 e1 0c 0d 20 05 cd 4c 18 18 03 cd 96 18 2a e4 00 e9 3e af 32 ea 00 22 ┆ " " L * > 2 "┆
0x32d80…32da0 e6 00 21 c7 1c 22 e2 00 e1 22 e4 00 e1 22 e8 00 21 5c 00 06 1e cd fd 04 af 12 2a e8 00 3a ea 00 ┆ ! " " " !Ø * : ┆
0x32da0…32dc0 b7 20 05 cd 41 17 18 03 cd 65 17 21 d9 00 7e 36 00 b7 67 6f 28 08 dd e5 e1 11 5c 00 ed 52 eb 2a ┆ A e ! ü6 go( Ø R *┆
0x32dc0…32de0 e6 00 73 23 72 18 af 03 ff 00 ed 5f 32 d4 00 c9 eb dd e1 c1 e1 78 b1 28 0b 73 0b 78 b1 28 05 54 ┆ s#r _2 x ( s x ( T┆
0x32de0…32e00 5d 13 ed b0 dd e9 44 4d dd e1 d1 e1 b7 ed 52 19 30 f0 0b 09 eb 09 eb 03 ed b8 dd e9 dd e1 d1 cd ┆Å DM R 0 ┆
0x32e00…32e20 (22, 1, 9) 4f 4e 00 54 52 4d 01 4b 42 44 02 4c 53 54 03 41 55 58 04 55 53 52 05 3e af 32 e6 00 cd 43 14 3a ┆ON TRM KBD LST AUX USR > 2 C :┆
0x32e20…32e40 d9 00 b7 c0 2a e2 00 23 7e fe 06 20 1f cd 0a 14 3a d9 00 b7 c0 2a e2 00 3a e6 00 b7 3e 06 20 02 ┆ * #ü : * : > ┆
0x32e40…32e60 3e 05 77 23 23 23 36 00 c0 c3 28 16 06 03 fe 02 20 02 06 01 fe 03 20 02 06 02 23 36 00 2b 2b 70 ┆> w###6 ( #6 ++p┆
0x32e60…32e80 c9 3e af 32 e6 00 ed 53 e4 00 cd 82 14 3a d9 00 b7 c0 cd 0a 14 3a d9 00 b7 c0 2a e2 00 36 07 23 ┆ > 2 S : : * 6 #┆
0x32e80…32ea0 23 23 77 11 05 00 19 77 23 77 11 24 00 19 77 23 77 11 d6 ff 19 3a e6 00 b7 20 1a e5 01 04 00 cd ┆##w w#w $ w#w : ┆
0x32ea0…32ec0 4d 19 e1 23 23 4e 23 46 2a e4 00 b7 ed 42 c8 3e 01 32 d9 00 c9 e5 af 77 23 77 23 ed 5b e4 00 73 ┆M ##N#F* B > 2 w#w# Æ s┆
0x32ec0…32ee0 23 72 e1 01 04 00 c3 4c 19 3e af 32 e6 00 cd a8 14 3a d9 00 b7 c0 cd 0a 14 3a d9 00 b7 c0 2a e2 ┆#r L > 2 : : * ┆
0x32ee0…32f00 00 36 07 e5 11 0c 00 19 eb 0e 23 cd 05 00 e1 11 2d 00 19 af 4e 77 23 46 77 11 d6 ff 19 71 23 70 ┆ 6 # - Nw#Fw q#p┆
0x32f00…32f20 23 36 80 23 77 23 77 23 77 c9 cd 34 14 2a e2 00 11 0c 00 19 eb 3a e6 00 b7 01 0f 02 28 0a d5 0e ┆#6 #w#w#w 4 * : ( ┆
0x32f20…32f40 13 cd 05 00 d1 01 16 03 c5 cd 05 00 c1 3c c0 78 32 d9 00 c9 2a e2 00 11 18 00 19 06 18 36 00 23 ┆ < x2 * 6 #┆
0x32f40…32f60 10 fb c9 22 e2 00 23 7e 2b fe 06 20 32 cb 4e 28 14 3e 1a cd e5 17 3a d9 00 b7 20 0c 2a e2 00 cb ┆ " #ü+ 2 N( > : * ┆
0x32f60…32f80 5e 20 ee 18 03 cb 46 c8 2a e2 00 e5 11 0c 00 19 eb 0e 10 cd 05 00 e1 3c 20 05 3e 04 32 d9 00 36 ┆^ F * < > 2 6┆
0x32f80…32fa0 00 c9 22 e2 00 7e e6 03 c8 cd fb 19 2a e2 00 11 2d 00 19 af 77 23 77 11 d5 ff 19 77 23 01 04 00 ┆ " ü * - w#w w# ┆
0x32fa0…32fc0 cd 4c 19 cd fb 19 18 c0 22 e2 00 7e e6 03 c8 18 b7 cd 6c 15 c0 11 0c 00 19 eb 0e 13 cd 05 00 3c ┆ L " ü l <┆
0x32fc0…32fe0 c0 18 3f fd e1 2a db 00 06 10 cd fd 04 af 12 e1 fd e5 cd 6c 15 c0 e5 cd ca 02 e1 e5 11 1c 00 19 ┆ ? * l ┆
0x32fe0…33000 eb 21 5c 00 01 0c 00 ed b0 e1 11 0c 00 19 e5 eb 0e 17 cd 05 00 d1 3c 28 09 21 5c 00 01 24 00 ed ┆ !Ø <( !Ø $ ┆
0x33000…33020 (23, 0, 1) 01 04 38 18 21 0b 01 be 30 12 47 eb cd 01 04 38 0b 21 0a 01 be 30 05 5f 50 cd 8f 03 dd e9 2a 01 ┆ 8 ! 0 G 8 ! 0 _P * ┆
0x33020…33040 00 19 19 19 e9 21 d9 00 7e 36 00 6f 26 00 c9 cd a0 00 7c b5 c8 cd a3 00 7d fe 03 c0 dd e1 cd b2 ┆ ! ü6 o& ø å ┆
0x33040…33060 02 0d 0a 55 53 45 52 20 49 4e 54 45 52 52 55 50 54 00 18 34 3a d9 00 b7 c8 dd e1 f5 cd b2 02 0d ┆ USER INTERRUPT 4: ┆
0x33060…33080 0a 49 2f 4f 00 18 12 dd e1 f5 cd b2 02 0d 0a 45 58 45 43 55 54 49 4f 4e 00 cd b2 02 20 45 52 52 ┆ I/O EXECUTION ERR┆
0x33080…330a0 4f 52 20 00 f1 cd 7b 03 cd b2 02 20 41 54 20 50 43 3d 00 dd e5 e1 ed 5b d5 00 b7 ed 52 11 15 00 ┆OR æ AT PC= Æ R ┆
0x330a0…330c0 19 22 d7 00 cd 76 03 cd b2 02 0d 0a 50 72 6f 67 72 61 6d 20 74 65 72 6d 69 6e 61 74 65 64 0d 0a ┆ " v Program terminated ┆
0x330c0…330e0 00 2a df 00 e9 31 00 01 21 86 cb 11 b8 00 01 00 ff cd 2e 02 21 d9 31 11 cb 4a 01 00 00 cd 0d 04 ┆ * 1 ! . ! 1 J ┆
0x330e0…33100 c3 02 31 c3 18 21 c3 18 2e c3 5c 2f c3 24 2f fd e1 e1 22 bb 4b fd e5 21 11 00 e5 cd e9 1d 21 01 ┆ 1 ! . Ø/ $/ " K ! ! ┆
0x33100…33120 00 e5 21 80 00 d1 cd 81 05 7a b3 ca 2c 1e d5 22 b1 4b 2a bb 4b e5 2a b1 4b 2b d1 19 6e 26 00 e5 ┆ ! z , " K* K * K+ n& ┆
0x33120…33140 cd e9 1d 2a b1 4b 23 d1 1b c3 09 1e c9 fd e1 e1 22 af 4b fd e5 21 01 00 e5 21 80 00 d1 cd 81 05 ┆ * K# " K ! ! ┆
0x33140…33160 7a b3 ca 63 1e d5 22 a5 4b 2a af 4b e5 2a a5 4b 2b d1 19 e5 cd ec 1d eb e1 73 2a a5 4b 23 d1 1b ┆z c " K* K * K+ s* K# ┆
0x33160…33180 c3 40 1e c9 2a 7c cb e5 21 01 00 c1 ed 69 2a 7c cb 4d ed 68 e5 21 01 00 d1 7c a2 67 7d a3 6f e5 ┆ @ *ø ! i*ø M h ! ø gå o ┆
0x33180…331a0 21 00 00 d1 cd 9a 05 cb 45 ca 99 1e 2a 7c cb e5 21 01 00 c1 ed 69 c3 6e 1e 2a 7c cb e5 21 18 00 ┆! E *ø ! i n *ø ! ┆
0x331a0…331c0 c1 ed 69 2a 7c cb e5 21 0b 00 d1 cd 9a 05 cb 45 ca 17 1f 21 0b 00 e5 21 02 00 c1 ed 69 21 0b 00 ┆ i*ø ! E ! ! i! ┆
0x331c0…331e0 e5 2a 74 cb c1 ed 69 21 0b 00 e5 21 04 00 c1 ed 69 21 0b 00 e5 21 47 00 c1 ed 69 21 0b 00 e5 21 ┆ *t i! ! i! !G i! !┆
0x331e0…33200 01 00 c1 ed 69 21 0b 00 e5 21 1f 00 c1 ed 69 21 0b 00 e5 21 03 00 c1 ed 69 21 0b 00 e5 21 60 00 ┆ i! ! i! ! i! !` ┆
0x33200…33220 (23, 0, 2) a2 15 cd d7 18 0f 76 7b 6c 67 20 66 75 6e 6b 74 69 6f 6e 3a 20 cd 54 1d 21 be 00 cd 86 15 21 3c ┆ vælg funktion: T ! !<┆
0x33220…33240 4b cd 2e 17 cd 54 1d 2a 3c 4b 26 00 e5 cd 9c 04 21 31 00 e5 21 39 00 cd b6 04 21 61 00 cd ac 04 ┆K . T *<K& !1 !9 !a ┆
0x33240…33260 cd 6a 12 cb 45 ca 18 27 21 0d 00 e5 21 00 00 eb c1 cd 05 00 2a 3c 4b 26 00 7d 32 45 4b 2a 45 4b ┆ j E '! ! *<K& å2EK*EK┆
0x33260…33280 26 00 c9 21 0a 00 e5 21 2d 00 c1 ed 69 21 0a 00 e5 21 02 00 c1 ed 69 21 0a 00 22 7c cb 21 0a 00 ┆& ! !- i! ! i! "ø ! ┆
0x33280…332a0 e5 21 10 00 c1 ed 69 21 0a 00 4d ed 68 e5 21 20 00 d1 7c a2 67 7d a3 6f e5 21 20 00 d1 cd ad 05 ┆ ! i! M h ! ø gå o ! ┆
0x332a0…332c0 cb 45 ca d2 27 21 0b 00 22 7c cb 21 0a 00 e5 21 05 00 c1 ed 69 21 0a 00 e5 21 00 00 c1 ed 69 21 ┆ E '! "ø ! ! i! ! i!┆
0x332c0…332e0 0b 00 e5 21 02 00 c1 ed 69 21 0b 00 4d ed 68 22 74 cb 2a 7c cb e5 21 18 00 c1 ed 69 2a 7c cb e5 ┆ ! i! M h"t *ø ! i*ø ┆
0x332e0…33300 21 02 00 d1 eb b7 ed 52 22 7a cb 2a 7c cb e5 21 02 00 d1 19 22 78 cb cd a2 15 cd d7 18 0b 5d 62 ┆! R"z *ø ! "x Åb┆
0x33300…33320 6e 65 72 20 70 6f 72 74 20 21 41 00 e5 21 0a 00 d1 eb b7 ed 52 e5 2a 7c cb d1 19 cd 48 18 cd d7 ┆ner port !A ! R *ø H ┆
0x33320…33340 18 07 20 76 65 6e 74 65 72 cd e6 18 cd 54 1d 2a 7c cb e5 21 04 00 c1 ed 69 2a 7c cb e5 21 44 00 ┆ venter T *ø ! i*ø !D ┆
0x33340…33360 c1 ed 69 2a 7c cb e5 21 03 00 c1 ed 69 2a 7c cb e5 21 c1 00 c1 ed 69 2a 7c cb e5 21 01 00 c1 ed ┆ i*ø ! i*ø ! i*ø ! ┆
0x33360…33380 69 2a 7c cb e5 21 00 00 c1 ed 69 2a 7c cb e5 21 05 00 c1 ed 69 2a 7c cb e5 21 80 00 c1 ed 69 2a ┆i*ø ! i*ø ! i*ø ! i*┆
0x33380…333a0 78 cb e5 21 47 00 c1 ed 69 2a 78 cb e5 21 01 00 c1 ed 69 2a 7c cb e5 21 10 00 c1 ed 69 2a 7c cb ┆x !G i*x ! i*ø ! i*ø ┆
0x333a0…333c0 4d ed 68 e5 21 08 00 d1 7c a2 67 7d a3 6f e5 21 08 00 d1 cd 9a 05 cb 45 ca 93 28 2a 7c cb e5 21 ┆M h ! ø gå o ! E (*ø !┆
0x333c0…333e0 05 00 c1 ed 69 2a 7c cb e5 21 ea 00 c1 ed 69 c9 fd e1 e1 7d 32 33 4b fd e5 cd a2 15 21 0c 00 cd ┆ i*ø ! i å23K ! ┆
0x333e0…33400 48 18 cd 54 1d cd 63 27 cd a2 15 21 0c 00 cd 48 18 cd d7 18 0a 77 61 69 74 69 6e 67 2e 2e 2e cd ┆H T c' ! H waiting... ┆
0x33400…33420 (23, 0, 3) c1 ed 69 21 0d 00 e5 21 47 00 c1 ed 69 21 0d 00 e5 21 20 00 c1 ed 69 c9 cd a2 15 21 0c 00 cd 48 ┆ i! !G i! ! i ! H┆
0x33420…33440 18 cd d7 18 0e 6c 6f 61 64 20 64 69 72 65 63 74 6f 72 79 cd e6 18 cd 54 1d 21 01 00 e5 21 78 00 ┆ load directory T ! !x ┆
0x33440…33460 d1 cd 81 05 7a b3 ca 70 1f d5 22 91 4b 21 5c c5 e5 2a 91 4b 2b 11 0d 00 cd 10 06 d1 19 e5 cd 68 ┆ z p " K!Ø * K+ h┆
0x33460…33480 04 00 06 0c cd 1c 05 2a 91 4b 23 d1 1b c3 44 1f 21 3d 4c e5 21 24 00 e5 21 00 00 cd d0 1c 21 01 ┆ * K# D !=L !$ ! ! ┆
0x33480…334a0 00 e5 21 0b 00 d1 cd 81 05 7a b3 ca ab 1f d5 22 91 4b 21 3d 4c e5 2a 91 4b d1 19 e5 21 3f 00 eb ┆ ! z " K!=L * K !? ┆
0x334a0…334c0 e1 73 2a 91 4b 23 d1 1b c3 89 1f 21 00 00 22 91 4b 21 1a 00 e5 21 bd 4b eb c1 cd 05 00 21 11 00 ┆ s* K# ! " K! ! K ! ┆
0x334c0…334e0 e5 21 3d 4c eb c1 cd 05 00 22 93 4b 2a 93 4b e5 21 ff 00 d1 cd fb 05 e5 2a 91 4b e5 21 78 00 d1 ┆ !=L " K* K ! * K !x ┆
0x334e0…33500 cd fb 05 d1 7d a3 6f cb 45 ca 05 21 2a 91 4b e5 21 01 00 d1 19 22 91 4b cd 68 04 00 06 0c 21 82 ┆ å o E !* K ! " K h ! ┆
0x33500…33520 4b cd fd 04 21 01 00 e5 21 0b 00 d1 cd 81 05 7a b3 ca b8 20 d5 22 8f 4b 2a 8f 4b e5 21 09 00 d1 ┆K ! ! z " K* K ! ┆
0x33520…33540 cd 9a 05 cb 45 ca 5c 20 21 5c c5 e5 2a 91 4b 2b 11 0d 00 cd 10 06 d1 19 e5 21 82 4b cd 55 04 06 ┆ E Ø !Ø * K+ ! K U ┆
0x33540…33560 0c cd 1c 05 21 82 4b cd 55 04 21 2e 00 65 2e 01 e5 cd 53 07 06 0c 21 82 4b cd fd 04 21 bd 4b e5 ┆ ! K U !. e. S ! K ! K ┆
0x33560…33580 2a 93 4b 11 20 00 cd 10 06 d1 19 e5 2a 8f 4b d1 19 6e 26 00 e5 21 7f 00 d1 7c a2 67 7d a3 6f 7d ┆* K * K n& ! ø gå oå┆
0x33580…335a0 32 81 4b 2a 81 4b 26 00 e5 21 20 00 d1 cd e7 05 cb 45 ca af 20 21 82 4b cd 55 04 2a 81 4b 26 00 ┆2 K* K& ! E ! K U * K& ┆
0x335a0…335c0 65 2e 01 e5 cd 53 07 06 0c 21 82 4b cd fd 04 2a 8f 4b 23 d1 1b c3 0f 20 21 82 4b e5 21 82 4b cd ┆e. S ! K * K# ! K ! K ┆
0x335c0…335e0 55 04 cd b9 07 d1 19 6e 26 00 e5 21 2e 00 d1 cd ad 05 cb 45 ca f3 20 21 5c c5 e5 2a 91 4b 2b 11 ┆U n& !. E !Ø * K+ ┆
0x335e0…33600 0d 00 cd 10 06 d1 19 e5 21 82 4b cd 55 04 06 0c cd 1c 05 21 12 00 e5 21 00 00 eb c1 cd 05 00 22 ┆ ! K U ! ! "┆
0x33600…33620 (23, 0, 4) 74 65 67 6e 73 6b 65 6d 61 20 7d 0d 0a 0d 0a 70 72 6f 63 65 64 75 72 65 20 74 65 73 74 6e 61 76 ┆tegnskema å procedure testnav┆
0x33620…33640 6e 28 76 61 72 20 6e 61 76 6e 3a 20 73 74 72 31 30 3b 6c 69 6e 69 65 3a 62 79 74 65 29 3b 0d 0a ┆n(var navn: str10;linie:byte); ┆
0x33640…33660 56 41 52 09 48 4f 4a 53 54 31 30 3a 20 42 59 54 45 3b 0d 0a 62 65 67 69 6e 0d 0a 09 49 46 20 4c ┆VAR HOJST10: BYTE; begin IF L┆
0x33660…33680 41 4e 47 20 3e 20 31 30 20 54 48 45 4e 20 48 4f 4a 53 54 31 30 3a 3d 20 31 30 20 45 4c 53 45 20 ┆ANG > 10 THEN HOJST10:= 10 ELSE ┆
0x33680…336a0 48 4f 4a 53 54 31 30 3a 3d 4c 41 4e 47 3b 0d 0a 09 72 65 70 65 61 74 0d 0a 09 6e 61 76 6e 3a 3d ┆HOJST10:=LANG; repeat navn:=┆
0x336a0…336c0 73 74 72 65 6e 67 28 6e 61 76 6e 2c 72 62 68 2b 49 2a 28 62 72 65 64 64 65 2b 31 29 2c 6c 69 6e ┆streng(navn,rbh+I*(bredde+1),lin┆
0x336c0…336e0 69 65 2c 68 6f 6a 73 74 31 30 29 3b 0d 0a 09 49 4b 4b 45 42 4f 47 53 54 3a 3d 4e 4f 54 20 28 75 ┆ie,hojst10); IKKEBOGST:=NOT (u┆
0x336e0…33700 70 63 68 61 72 28 4e 41 56 4e 5b 31 5d 29 20 49 4e 20 42 4f 47 53 54 41 56 29 20 6f 72 20 28 6c ┆pchar(NAVNÆ1Å) IN BOGSTAV) or (l┆
0x33700…33720 65 6e 28 6e 61 76 6e 29 3d 30 29 3b 0d 0a 09 49 46 20 49 4b 4b 45 42 4f 47 53 54 20 54 48 45 4e ┆en(navn)=0); IF IKKEBOGST THEN┆
0x33720…33740 20 42 45 47 49 4e 20 6e 61 76 6e 3a 3d 27 27 3b 20 46 45 4a 4c 28 33 29 20 65 6e 64 3b 0d 0a 09 ┆ BEGIN navn:=''; FEJL(3) end; ┆
0x33740…33760 6c 6f 76 6c 69 67 3a 3d 74 72 75 65 3b 0d 0a 09 66 6f 72 20 6a 3a 3d 20 31 20 74 6f 20 6c 65 6e ┆lovlig:=true; for j:= 1 to len┆
0x33760…33780 28 6e 61 76 6e 29 20 64 6f 0d 0a 09 6c 6f 76 6c 69 67 3a 3d 20 6c 6f 76 6c 69 67 20 61 6e 64 20 ┆(navn) do lovlig:= lovlig and ┆
0x33780…337a0 28 75 70 63 68 61 72 28 6e 61 76 6e 5b 6a 5d 29 20 69 6e 20 62 6f 67 73 74 61 76 20 2b 20 63 69 ┆(upchar(navnÆjÅ) in bogstav + ci┆
0x337a0…337c0 66 66 65 72 20 2b 20 5b 27 2f 27 5d 29 3b 0d 0a 09 69 66 20 6e 6f 74 20 6c 6f 76 6c 69 67 20 74 ┆ffer + Æ'/'Å); if not lovlig t┆
0x337c0…337e0 68 65 6e 20 62 65 67 69 6e 20 6e 61 76 6e 3a 3d 27 27 3b 20 66 65 6a 6c 28 34 29 20 65 6e 64 0d ┆hen begin navn:=''; fejl(4) end ┆
0x337e0…33800 0a 75 6e 74 69 6c 20 6c 6f 76 6c 69 67 20 61 6e 64 20 6e 6f 74 20 69 6b 6b 65 62 6f 67 73 74 0d ┆ until lovlig and not ikkebogst ┆
0x33800…33820 (23, 0, 5) 93 4b c3 cc 1f 2a 91 4b e5 21 00 00 d1 cd e7 05 7d 32 5b c5 cd e3 1d c9 2a 5b c5 26 00 cb 45 ca ┆ K * K ! å2Æ *Æ & E ┆
0x33820…33840 2d 23 cd a2 15 21 0c 00 cd 48 18 cd 54 1d 21 01 00 e5 21 78 00 d1 cd 81 05 7a b3 ca ba 21 d5 22 ┆-# ! H T ! !x z ! "┆
0x33840…33860 76 cb 2a 76 cb e5 21 01 00 d1 eb b7 ed 52 e5 21 18 00 d1 cd 2a 06 e5 21 10 00 d1 cd 10 06 e5 21 ┆v *v ! R ! * ! !┆
0x33860…33880 01 00 d1 19 e5 2a 76 cb e5 21 01 00 d1 eb b7 ed 52 e5 21 18 00 d1 cd 5b 06 e5 21 01 00 d1 19 cd ┆ *v ! R ! Æ ! ┆
0x33880…338a0 fc 1c 2a 76 cb cd a2 15 e5 21 03 00 cd 4c 18 21 3a 00 cd 48 18 21 5c c5 e5 2a 76 cb 2b 11 0d 00 ┆ *v ! L !: H !Ø *v + ┆
0x338a0…338c0 cd 10 06 d1 19 cd 55 04 21 00 00 cd c7 18 cd 54 1d 2a 76 cb 23 d1 1b c3 39 21 2a 76 cb e5 21 00 ┆ U ! T *v # 9!*v ! ┆
0x338c0…338e0 00 d1 cd e7 05 cb 45 ca ce 22 21 00 00 22 76 cb 21 19 00 e5 21 00 00 cd fc 1c cd a2 15 cd d7 18 ┆ E "! "v ! ! ┆
0x338e0…33900 04 6e 72 3a 20 cd 54 1d cd ef 03 21 76 cb cd 79 15 cd 41 17 cd b2 17 cd 54 1d 2a 76 cb e5 21 00 ┆ nr: T !v y A T *v ! ┆
0x33900…33920 00 d1 cd e7 05 e5 2a 76 cb e5 21 78 00 d1 cd d3 05 d1 7d a3 6f cb 45 ca cb 22 2a 76 cb e5 21 01 ┆ *v !x å o E "*v ! ┆
0x33920…33940 00 d1 eb b7 ed 52 e5 21 18 00 d1 cd 2a 06 e5 21 10 00 d1 cd 10 06 e5 21 05 00 d1 19 e5 2a 76 cb ┆ R ! * ! ! *v ┆
0x33940…33960 e5 21 01 00 d1 eb b7 ed 52 e5 21 18 00 d1 cd 5b 06 e5 21 01 00 d1 19 cd fc 1c cd a2 15 cd d7 18 ┆ ! R ! Æ ! ┆
0x33960…33980 0c 20 20 20 20 20 20 20 20 20 20 20 20 cd 54 1d 2a 76 cb e5 21 01 00 d1 eb b7 ed 52 e5 21 18 00 ┆ T *v ! R ! ┆
0x33980…339a0 d1 cd 2a 06 e5 21 10 00 d1 cd 10 06 e5 21 05 00 d1 19 e5 2a 76 cb e5 21 01 00 d1 eb b7 ed 52 e5 ┆ * ! ! *v ! R ┆
0x339a0…339c0 21 18 00 d1 cd 5b 06 e5 21 01 00 d1 19 cd fc 1c 21 5c c5 e5 2a 76 cb 2b 11 0d 00 cd 10 06 d1 19 ┆! Æ ! !Ø *v + ┆
0x339c0…339e0 cd 79 15 06 0c cd 81 17 cd 54 1d c3 ba 21 21 00 00 22 76 cb 2a 76 cb e5 21 01 00 d1 19 22 76 cb ┆ y T !! "v *v ! "v ┆
0x339e0…33a00 2a 76 cb e5 21 78 00 d1 cd 9a 05 e5 21 5c c5 e5 2a 76 cb 2b 11 0d 00 cd 10 06 d1 19 cd 55 04 cd ┆*v !x !Ø *v + U ┆
0x33a00…33a20 (23, 0, 6) 0a 45 4e 44 3b 0d 0a 0d 0a 66 75 6e 63 74 69 6f 6e 20 66 6e 61 76 6e 28 73 3a 73 74 72 31 30 29 ┆ END; function fnavn(s:str10)┆
0x33a20…33a40 3a 73 74 72 31 30 3b 0d 0a 76 61 72 09 65 6e 68 65 64 3a 20 62 6f 6f 6c 65 61 6e 3b 0d 0a 62 65 ┆:str10; var enhed: boolean; be┆
0x33a40…33a60 67 69 6e 0d 0a 09 73 3a 3d 75 70 63 61 73 65 28 73 29 3b 20 65 6e 68 65 64 3a 3d 70 6f 73 28 27 ┆gin s:=upcase(s); enhed:=pos('┆
0x33a60…33a80 2f 27 2c 53 29 20 3e 20 30 3b 0d 0a 09 69 66 20 65 6e 68 65 64 20 74 68 65 6e 20 46 4e 41 56 4e ┆/',S) > 0; if enhed then FNAVN┆
0x33a80…33aa0 3a 3d 20 63 6f 70 79 28 53 2c 31 2c 70 6f 73 28 27 2f 27 2c 53 29 2d 31 29 20 65 6c 73 65 20 46 ┆:= copy(S,1,pos('/',S)-1) else F┆
0x33aa0…33ac0 4e 41 56 4e 3a 3d 53 0d 0a 65 6e 64 3b 0d 0a 0d 0a 70 72 6f 63 65 64 75 72 65 20 6c 61 65 73 41 ┆NAVN:=S end; procedure laesA┆
0x33ac0…33ae0 68 6f 76 65 64 3b 0d 0a 76 61 72 09 6a 3a 20 69 6e 74 65 67 65 72 3b 0d 0a 62 65 67 69 6e 0d 0a ┆hoved; var j: integer; begin ┆
0x33ae0…33b00 20 20 69 66 20 62 72 65 64 64 65 20 3e 20 31 30 20 74 68 65 6e 20 6c 61 6e 67 3a 3d 20 31 30 20 ┆ if bredde > 10 then lang:= 10 ┆
0x33b00…33b20 65 6c 73 65 20 6c 61 6e 67 3a 3d 20 62 72 65 64 64 65 2d 31 3b 0d 0a 20 20 72 65 70 65 61 74 0d ┆else lang:= bredde-1; repeat ┆
0x33b20…33b40 0a 20 20 20 20 69 3a 3d 20 30 3b 0d 0a 20 20 20 20 72 65 70 65 61 74 0d 0a 20 20 20 20 20 20 61 ┆ i:= 0; repeat a┆
0x33b40…33b60 6b 74 69 76 28 32 29 3b 20 65 6e 73 3a 3d 20 66 61 6c 73 65 3b 20 69 3a 3d 20 69 2b 31 3b 20 0d ┆ktiv(2); ens:= false; i:= i+1; ┆
0x33b60…33b80 0a 20 20 20 20 20 20 54 45 53 54 4e 41 56 4e 28 4f 50 47 2e 41 4e 41 56 4e 5b 49 5d 2c 32 29 3b ┆ TESTNAVN(OPG.ANAVNÆIÅ,2);┆
0x33b80…33ba0 20 41 52 45 4e 5b 49 5d 3a 3d 20 46 4e 41 56 4e 28 4f 50 47 2e 41 4e 41 56 4e 5b 49 5d 29 3b 0d ┆ ARENÆIÅ:= FNAVN(OPG.ANAVNÆIÅ); ┆
0x33ba0…33bc0 0a 20 20 20 20 20 20 66 6f 72 20 6a 3a 3d 20 31 20 74 6f 20 49 2d 31 20 64 6f 20 65 6e 73 3a 3d ┆ for j:= 1 to I-1 do ens:=┆
0x33bc0…33be0 20 65 6e 73 20 4f 52 20 28 41 52 45 4e 5b 6a 5d 20 3d 20 41 52 45 4e 5b 69 5d 29 3b 0d 0a 20 20 ┆ ens OR (ARENÆjÅ = ARENÆiÅ); ┆
0x33be0…33c00 20 20 20 20 69 66 20 65 6e 73 20 74 68 65 6e 20 62 65 67 69 6e 0d 0a 20 20 20 20 20 20 20 20 4f ┆ if ens then begin O┆
0x33c00…33c20 (23, 0, 7) 68 04 00 cd bb 05 d1 7d b3 6f cb 45 ca d4 22 21 5c c5 e5 2a 76 cb 2b 11 0d 00 cd 10 06 d1 19 cd ┆h å o E "!Ø *v + ┆
0x33c20…33c40 55 04 cd 68 04 00 cd bb 05 7d 32 5b c5 c9 fd e1 e1 22 77 4b fd e5 21 00 00 e5 21 0c 00 d1 cd 81 ┆U h å2Æ "wK ! ! ┆
0x33c40…33c60 05 7a b3 ca 63 23 d5 22 6d 4b 21 61 4c e5 2a 6d 4b d1 19 e5 cd ec 1d eb e1 73 2a 6d 4b 23 d1 1b ┆ z c# "mK!aL *mK s*mK# ┆
0x33c60…33c80 c3 41 23 21 61 4c e5 2a 77 4b e5 21 0d 00 cd e6 1c c9 fd e1 06 0c 21 60 4b cd fd 04 fd e5 21 02 ┆ A#!aL *wK ! !`K ! ┆
0x33c80…33ca0 00 e5 cd e9 1d 21 60 4b e5 21 61 4c e5 21 0d 00 cd e6 1c 21 00 00 e5 21 0c 00 d1 cd 81 05 7a b3 ┆ !`K !aL ! ! ! z ┆
0x33ca0…33cc0 ca c0 23 d5 22 56 4b 21 61 4c e5 2a 56 4b d1 19 6e 26 00 e5 cd e9 1d 2a 56 4b 23 d1 1b c3 9e 23 ┆ # "VK!aL *VK n& *VK# #┆
0x33cc0…33ce0 c9 21 01 00 e5 21 78 00 d1 cd 81 05 7a b3 ca f8 23 d5 22 76 cb 21 5c c5 e5 2a 76 cb 2b 11 0d 00 ┆ ! !x z # "v !Ø *v + ┆
0x33ce0…33d00 cd 10 06 d1 19 e5 cd 68 04 00 06 0c cd 1c 05 2a 76 cb 23 d1 1b c3 cc 23 21 00 00 22 76 cb cd a2 ┆ h *v # #! "v ┆
0x33d00…33d20 15 21 0c 00 cd 48 18 cd 54 1d 2a 76 cb e5 21 01 00 d1 19 22 76 cb 2a 76 cb cd a2 15 e5 21 03 00 ┆ ! H T *v ! "v *v ! ┆
0x33d20…33d40 cd 4c 18 cd d7 18 02 3a 20 cd 54 1d 21 5c c5 e5 2a 76 cb 2b 11 0d 00 cd 10 06 d1 19 cd 79 15 06 ┆ L : T !Ø *v + y ┆
0x33d40…33d60 0c cd 81 17 cd b2 17 cd 54 1d 2a 76 cb e5 21 78 00 d1 cd 9a 05 e5 21 5c c5 e5 2a 76 cb 2b 11 0d ┆ T *v !x !Ø *v + ┆
0x33d60…33d80 00 cd 10 06 d1 19 cd 55 04 cd 68 04 00 cd a8 05 d1 7d b3 6f cb 45 ca 0a 24 2a 76 cb e5 21 01 00 ┆ U h å o E $*v ! ┆
0x33d80…33da0 d1 cd e7 05 7d 32 5b c5 c9 cd a2 15 21 0c 00 cd 48 18 cd d7 18 11 6c 6f 61 64 20 66 72 6f 6d 20 ┆ å2Æ ! H load from ┆
0x33da0…33dc0 77 68 65 72 65 3f 20 cd 54 1d 21 9e c4 cd 79 15 06 0c cd 81 17 cd b2 17 cd 54 1d 21 9e c4 cd 55 ┆where? T ! y T ! U┆
0x33dc0…33de0 04 cd 68 04 00 cd bb 05 cb 45 ca 73 25 21 01 00 e5 21 78 00 d1 cd 81 05 7a b3 ca 04 25 d5 22 76 ┆ h E s%! !x z % "v┆
0x33de0…33e00 cb 21 5c c5 e5 2a 76 cb 2b 11 0d 00 cd 10 06 d1 19 e5 cd 68 04 00 06 0c cd 1c 05 2a 76 cb 23 d1 ┆ !Ø *v + h *v # ┆
0x33e00…33e20 (23, 0, 8) 50 47 2e 41 6e 61 76 6e 5b 69 5d 3a 3d 27 27 3b 20 69 3a 3d 20 69 2d 31 3b 20 46 45 4a 4c 28 31 ┆PG.AnavnÆiÅ:=''; i:= i-1; FEJL(1┆
0x33e20…33e40 29 0d 0a 20 20 20 20 20 20 65 6e 64 0d 0a 20 20 20 20 75 6e 74 69 6c 20 28 69 3d 20 6f 70 67 2e ┆) end until (i= opg.┆
0x33e40…33e60 61 73 6f 6a 6c 65 29 20 61 6e 64 20 6e 6f 74 20 65 6e 73 0d 0a 20 20 75 6e 74 69 6c 20 6f 6b 28 ┆asojle) and not ens until ok(┆
0x33e60…33e80 32 29 0d 0a 65 6e 64 3b 09 7b 20 6c 61 65 73 41 68 6f 76 65 64 20 7d 0d 0a 0d 0a 70 72 6f 63 65 ┆2) end; æ laesAhoved å proce┆
0x33e80…33ea0 64 75 72 65 20 6c 61 65 73 41 3b 0d 0a 76 61 72 09 6f 6b 61 79 3a 20 62 6f 6f 6c 65 61 6e 3b 0d ┆dure laesA; var okay: boolean; ┆
0x33ea0…33ec0 0a 62 65 67 69 6e 0d 0a 09 69 3a 3d 31 3b 20 6a 3a 3d 31 3b 20 6f 6b 61 79 3a 3d 20 66 61 6c 73 ┆ begin i:=1; j:=1; okay:= fals┆
0x33ec0…33ee0 65 3b 20 62 6c 61 6e 6b 65 3a 3d 20 63 6f 70 79 28 74 6f 6d 2c 32 2c 6c 61 6e 67 29 3b 0d 0a 09 ┆e; blanke:= copy(tom,2,lang); ┆
0x33ee0…33f00 77 69 74 68 20 6f 70 67 20 64 6f 20 72 65 70 65 61 74 0d 0a 09 09 61 6b 74 69 76 28 31 29 3b 20 ┆with opg do repeat aktiv(1); ┆
0x33f00…33f20 67 6f 74 6f 78 79 28 72 62 68 2b 69 2a 28 62 72 65 64 64 65 2b 31 29 2c 34 2b 65 6e 74 6f 2a 28 ┆gotoxy(rbh+i*(bredde+1),4+ento*(┆
0x33f20…33f40 6a 2d 31 29 29 3b 0d 0a 09 09 41 5b 69 2c 6a 5d 3a 3d 6c 61 65 73 72 65 61 6c 28 41 5b 69 2c 6a ┆j-1)); AÆi,jÅ:=laesreal(AÆi,j┆
0x33f40…33f60 5d 2c 6d 69 6e 72 65 61 6c 2c 6d 61 78 72 65 61 6c 29 3b 0d 0a 09 09 69 66 20 28 49 3d 61 73 6f ┆Å,minreal,maxreal); if (I=aso┆
0x33f60…33f80 6a 6c 65 29 20 61 6e 64 20 28 4a 3d 72 61 6b 6b 65 29 20 74 68 65 6e 20 6f 6b 61 79 3a 3d 20 6f ┆jle) and (J=rakke) then okay:= o┆
0x33f80…33fa0 6b 28 31 29 3b 0d 0a 09 09 63 61 73 65 20 63 68 20 6f 66 0d 0a 09 09 54 49 4c 42 3a 09 49 3a 3d ┆k(1); case ch of TILB: I:=┆
0x33fa0…33fc0 20 31 20 2b 20 28 49 2b 41 53 4f 4a 4c 45 2d 32 29 20 4d 4f 44 20 41 53 4f 4a 4c 45 3b 0d 0a 09 ┆ 1 + (I+ASOJLE-2) MOD ASOJLE; ┆
0x33fc0…33fe0 09 52 45 54 55 52 2c 46 52 45 4d 3a 42 45 47 49 4e 20 49 46 20 49 3d 41 53 4f 4a 4c 45 20 54 48 ┆ RETUR,FREM:BEGIN IF I=ASOJLE TH┆
0x33fe0…34000 45 4e 20 4a 3a 3d 20 4a 20 4d 4f 44 20 52 41 4b 4b 45 20 2b 31 3b 0d 0a 09 09 09 49 3a 3d 20 49 ┆EN J:= J MOD RAKKE +1; I:= I┆
0x34000…34020 (23, 0, 9) 1b c3 d8 24 21 ab c4 e5 21 9e c4 cd 55 04 cd 68 04 04 2e 70 61 78 cd 53 07 cd 82 12 21 ab c4 cd ┆ $! ! U h .pax S ! ┆
0x34020…34040 18 13 cd 54 1d 21 01 00 22 76 cb 21 ab c4 cd 86 15 21 5c c5 e5 2a 76 cb 2b 11 0d 00 cd 10 06 d1 ┆ T ! "v ! !Ø *v + ┆
0x34040…34060 19 06 0c cd 81 17 cd b2 17 cd 54 1d 2a 76 cb e5 21 01 00 d1 19 22 76 cb 21 ab c4 cd f3 18 cb 45 ┆ T *v ! "v ! E┆
0x34060…34080 ca 2b 25 21 ab c4 cd 43 14 cd 54 1d 21 01 00 7d 32 5b c5 cd e3 1d c9 cd a2 15 21 0c 00 cd 48 18 ┆ +%! C T ! å2Æ ! H ┆
0x34080…340a0 cd 54 1d 2a 5b c5 26 00 cb 45 ca 99 25 cd a2 15 cd d7 18 02 4b 5c cd 54 1d 21 21 00 e5 21 03 00 ┆ T *Æ & E % KØ T !! ! ┆
0x340a0…340c0 cd fc 1c cd a2 15 cd d7 18 0f 53 49 4f 54 52 41 4e 53 4d 49 53 53 49 4f 4e cd 54 1d 21 21 00 e5 ┆ SIOTRANSMISSION T !! ┆
0x340c0…340e0 21 04 00 cd fc 1c cd a2 15 cd d7 18 0f 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d cd 54 1d 21 ┆! =============== T !┆
0x340e0…34100 21 00 e5 21 06 00 cd fc 1c cd a2 15 cd d7 18 0b 31 29 20 74 72 61 6e 73 6d 69 74 cd 54 1d 21 21 ┆! ! 1) transmit T !!┆
0x34100…34120 00 e5 21 07 00 cd fc 1c cd a2 15 cd d7 18 0a 32 29 20 72 65 63 65 69 76 65 cd 54 1d 21 21 00 e5 ┆ ! 2) receive T !! ┆
0x34120…34140 21 08 00 cd fc 1c cd a2 15 cd d7 18 0d 33 29 20 69 6e 64 74 61 73 74 20 6b 7c cd 54 1d 21 21 00 ┆! 3) indtast kø T !! ┆
0x34140…34160 e5 21 09 00 cd fc 1c cd a2 15 cd d7 18 0a 34 29 20 65 64 69 74 20 6b 7c cd 54 1d 21 21 00 e5 21 ┆ ! 4) edit kø T !! !┆
0x34160…34180 0a 00 cd fc 1c cd a2 15 cd d7 18 0a 35 29 20 73 6c 65 74 20 6b 7c cd 54 1d 21 21 00 e5 21 0b 00 ┆ 5) slet kø T !! ! ┆
0x34180…341a0 cd fc 1c cd a2 15 cd d7 18 0a 36 29 20 73 61 76 65 20 6b 7c cd 54 1d 21 21 00 e5 21 0c 00 cd fc ┆ 6) save kø T !! ! ┆
0x341a0…341c0 1c cd a2 15 cd d7 18 0a 37 29 20 6c 6f 61 64 20 6b 7c cd 54 1d 21 21 00 e5 21 0d 00 cd fc 1c cd ┆ 7) load kø T !! ! ┆
0x341c0…341e0 a2 15 cd d7 18 11 38 29 20 6c 6f 61 64 20 64 69 72 65 63 74 6f 72 79 cd 54 1d 21 21 00 e5 21 0e ┆ 8) load directory T !! ! ┆
0x341e0…34200 00 cd fc 1c cd a2 15 cd d7 18 07 39 29 20 73 74 6f 70 cd 54 1d 21 21 00 e5 21 14 00 cd fc 1c cd ┆ 9) stop T !! ! ┆
0x34200…34220 (23, 1, 1) 20 4d 4f 44 20 41 53 4f 4a 4c 45 20 2b 31 20 45 4e 44 3b 0d 0a 09 09 4f 50 3a 09 4a 3a 3d 20 31 ┆ MOD ASOJLE +1 END; OP: J:= 1┆
0x34220…34240 20 2b 20 28 4a 2b 52 41 4b 4b 45 2d 32 29 20 4d 4f 44 20 52 41 4b 4b 45 3b 0d 0a 09 09 4e 45 44 ┆ + (J+RAKKE-2) MOD RAKKE; NED┆
0x34240…34260 3a 09 4a 3a 3d 20 4a 20 4d 4f 44 20 52 41 4b 4b 45 20 2b 20 31 3b 0d 0a 09 09 45 53 43 3a 09 69 ┆: J:= J MOD RAKKE + 1; ESC: i┆
0x34260…34280 66 20 6e 6f 74 20 6f 6b 28 31 29 20 74 68 65 6e 20 62 65 67 69 6e 20 69 3a 3d 31 3b 20 6a 3a 3d ┆f not ok(1) then begin i:=1; j:=┆
0x34280…342a0 31 20 65 6e 64 0d 0a 09 09 09 65 6c 73 65 20 6f 6b 61 79 3a 3d 20 74 72 75 65 0d 0a 09 09 65 6e ┆1 end else okay:= true en┆
0x342a0…342c0 64 0d 0a 09 75 6e 74 69 6c 20 6f 6b 61 79 0d 0a 65 6e 64 3b 09 7b 20 6c 61 65 73 41 20 7d 0d 0a ┆d until okay end; æ laesA å ┆
0x342c0…342e0 0d 0a 70 72 6f 63 65 64 75 72 65 20 73 6b 72 69 76 41 3b 0d 0a 62 65 67 69 6e 0d 0a 09 4c 61 65 ┆ procedure skrivA; begin Lae┆
0x342e0…34300 73 41 68 6f 76 65 64 3b 0d 0a 09 66 6f 72 20 69 3a 3d 20 31 20 74 6f 20 6f 70 67 2e 61 73 6f 6a ┆sAhoved; for i:= 1 to opg.asoj┆
0x34300…34320 6c 65 20 64 6f 20 66 6f 72 20 6a 3a 3d 31 20 74 6f 20 6f 70 67 2e 72 61 6b 6b 65 20 64 6f 20 62 ┆le do for j:=1 to opg.rakke do b┆
0x34320…34340 65 67 69 6e 0d 0a 09 67 6f 74 6f 78 79 28 72 62 68 2b 69 2a 28 62 72 65 64 64 65 2b 31 29 2c 34 ┆egin gotoxy(rbh+i*(bredde+1),4┆
0x34340…34360 2b 65 6e 74 6f 2a 28 6a 2d 31 29 29 3b 20 77 72 69 74 65 28 4f 50 47 2e 41 5b 69 2c 6a 5d 29 20 ┆+ento*(j-1)); write(OPG.AÆi,jÅ) ┆
0x34360…34380 65 6e 64 3b 0d 0a 09 4c 61 65 73 41 0d 0a 65 6e 64 3b 0d 0a 0d 0a 66 75 6e 63 74 69 6f 6e 20 75 ┆end; LaesA end; function u┆
0x34380…343a0 64 73 6b 72 28 69 3a 62 79 74 65 29 3a 20 62 6f 6f 6c 65 61 6e 3b 0d 0a 62 65 67 69 6e 0d 0a 09 ┆dskr(i:byte): boolean; begin ┆
0x343a0…343c0 67 6f 74 6f 78 79 28 30 2c 32 33 29 3b 20 77 72 69 74 65 28 43 4c 52 45 4f 4c 2c 27 5c 6e 73 6b ┆gotoxy(0,23); write(CLREOL,'Ønsk┆
0x343c0…343e0 65 73 20 27 3a 31 37 29 3b 0d 0a 09 63 61 73 65 20 69 20 6f 66 0d 0a 09 09 31 3a 20 77 72 69 74 ┆es ':17); case i of 1: writ┆
0x343e0…34400 65 28 27 6d 7d 6c 73 6b 65 6d 61 65 74 27 29 3b 0d 0a 09 09 32 3a 20 77 72 69 74 65 28 27 66 6f ┆e('målskemaet'); 2: write('fo┆
0x34400…34420 (23, 1, 2) 52 29 20 41 4e 44 20 4c 4f 56 4c 49 47 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 50 56 45 4e 53 54 ┆R) AND LOVLIG; PVENST┆
0x34420…34440 52 45 3a 3d 20 50 56 45 4e 53 54 52 45 2b 50 4f 53 28 27 28 27 2c 46 5b 4a 5d 5b 49 5d 29 3b 0d ┆RE:= PVENSTRE+POS('(',FÆJÅÆIÅ); ┆
0x34440…34460 0a 20 20 20 20 20 20 20 20 20 20 50 48 4f 4a 52 45 3a 3d 20 50 48 4f 4a 52 45 2b 50 4f 53 28 27 ┆ PHOJRE:= PHOJRE+POS('┆
0x34460…34480 29 27 2c 46 5b 4a 5d 5b 49 5d 29 0d 0a 20 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 20 ┆)',FÆJÅÆIÅ) END; ┆
0x34480…344a0 20 20 20 4c 4f 56 4c 49 47 3a 3d 20 4c 4f 56 4c 49 47 20 41 4e 44 20 28 50 56 45 4e 53 54 52 45 ┆ LOVLIG:= LOVLIG AND (PVENSTRE┆
0x344a0…344c0 20 3d 20 50 48 4f 4a 52 45 29 3b 0d 0a 20 20 20 20 20 20 20 20 49 46 20 4e 4f 54 20 4c 4f 56 4c ┆ = PHOJRE); IF NOT LOVL┆
0x344c0…344e0 49 47 20 54 48 45 4e 20 46 45 4a 4c 28 32 29 0d 0a 20 20 20 20 20 20 55 4e 54 49 4c 20 4c 4f 56 ┆IG THEN FEJL(2) UNTIL LOV┆
0x344e0…34500 4c 49 47 0d 0a 20 20 20 20 65 6e 64 0d 0a 20 20 75 6e 74 69 6c 20 6f 6b 28 33 29 3b 0d 0a 20 20 ┆LIG end until ok(3); ┆
0x34500…34520 69 66 20 70 72 69 6e 74 65 72 20 74 68 65 6e 20 69 66 20 75 64 73 6b 72 28 32 29 20 74 68 65 6e ┆if printer then if udskr(2) then┆
0x34520…34540 20 62 65 67 69 6e 0d 0a 20 20 20 20 77 72 69 74 65 6c 6e 28 6c 73 74 29 3b 0d 0a 20 20 20 20 66 ┆ begin writeln(lst); f┆
0x34540…34560 6f 72 20 6a 3a 3d 20 31 20 74 6f 20 4f 50 47 2e 42 73 6f 6a 6c 65 20 64 6f 0d 0a 20 20 20 20 20 ┆or j:= 1 to OPG.Bsojle do ┆
0x34560…34580 20 77 72 69 74 65 6c 6e 28 6c 73 74 2c 27 46 6f 72 73 6b 72 69 66 74 2c 20 27 3a 32 30 2c 62 72 ┆ writeln(lst,'Forskrift, ':20,br┆
0x34580…345a0 65 6e 5b 6a 5d 2c 27 20 3a 3d 20 27 2c 4f 50 47 2e 46 5b 4a 5d 29 3b 0d 0a 20 20 20 20 77 72 69 ┆enÆjÅ,' := ',OPG.FÆJÅ); wri┆
0x345a0…345c0 74 65 6c 6e 28 6c 73 74 29 3b 0d 0a 20 20 65 6e 64 0d 0a 45 4e 44 3b 09 7b 20 6c 61 65 73 46 20 ┆teln(lst); end END; æ laesF ┆
0x345c0…345e0 7d 0d 0a 0d 0a 70 72 6f 63 65 64 75 72 65 20 6e 79 74 66 6f 72 6d 61 74 3b 0d 0a 62 65 67 69 6e ┆å procedure nytformat; begin┆
0x345e0…34600 0d 0a 20 67 6f 74 6f 78 79 28 30 2c 32 33 29 3b 20 77 72 69 74 65 28 43 4c 52 45 4f 4c 2c 27 27 ┆ gotoxy(0,23); write(CLREOL,''┆
0x34600…34620 (23, 1, 3) 72 73 6b 72 69 66 74 65 72 6e 65 27 29 3b 0d 0a 09 09 33 3a 20 77 72 69 74 65 28 27 62 65 72 65 ┆rskrifterne'); 3: write('bere┆
0x34620…34640 67 6e 69 6e 67 65 72 6e 65 27 29 0d 0a 09 65 6e 64 3b 0d 0a 09 77 72 69 74 65 28 27 20 70 7d 20 ┆gningerne') end; write(' på ┆
0x34640…34660 70 72 69 6e 74 65 72 27 29 3b 20 75 64 73 6b 72 3a 3d 20 59 4e 20 3d 20 27 59 27 3b 0d 0a 20 20 ┆printer'); udskr:= YN = 'Y'; ┆
0x34660…34680 20 20 20 20 20 20 77 72 69 74 65 28 72 65 74 75 72 2c 63 6c 72 65 6f 6c 29 0d 0a 65 6e 64 3b 0d ┆ write(retur,clreol) end; ┆
0x34680…346a0 0a 0d 0a 70 72 6f 63 65 64 75 72 65 20 6d 61 61 6c 3b 0d 0a 62 65 67 69 6e 0d 0a 20 20 67 6f 74 ┆ procedure maal; begin got┆
0x346a0…346c0 6f 78 79 28 30 2c 30 29 3b 20 77 72 69 74 65 28 43 4c 52 45 4f 4c 2c 27 4d 7d 6c 65 73 6b 65 6d ┆oxy(0,0); write(CLREOL,'Måleskem┆
0x346c0…346e0 61 3a 27 3a 34 35 29 3b 0d 0a 20 20 69 66 20 6e 6f 74 20 6e 79 6f 70 67 20 74 68 65 6e 20 62 65 ┆a:':45); if not nyopg then be┆
0x346e0…34700 67 69 6e 0d 0a 20 20 20 20 67 6f 74 6f 78 79 28 30 2c 32 33 29 3b 20 77 72 69 74 65 28 63 6c 72 ┆gin gotoxy(0,23); write(clr┆
0x34700…34720 65 6f 6c 2c 27 27 3a 31 30 2c 27 6e 79 74 20 6d 7d 6c 65 73 6b 65 6d 61 27 29 3b 20 6e 79 6f 70 ┆eol,'':10,'nyt måleskema'); nyop┆
0x34720…34740 67 3a 3d 20 59 4e 20 3d 20 27 59 27 3b 0d 0a 20 20 65 6e 64 3b 0d 0a 20 20 69 66 20 6e 79 6f 70 ┆g:= YN = 'Y'; end; if nyop┆
0x34740…34760 67 20 74 68 65 6e 20 6e 75 6c 73 74 69 6c 3b 0d 0a 20 20 67 6f 74 6f 78 79 28 31 30 2c 32 33 29 ┆g then nulstil; gotoxy(10,23)┆
0x34760…34780 3b 0d 0a 20 20 77 69 74 68 20 6f 70 67 20 64 6f 20 62 65 67 69 6e 0d 0a 20 20 20 20 77 72 69 74 ┆; with opg do begin writ┆
0x34780…347a0 65 28 43 4c 52 45 4f 4c 2c 27 41 6e 74 61 6c 20 73 7c 6a 6c 65 72 28 31 2e 2e 27 2c 4d 41 58 53 ┆e(CLREOL,'Antal søjler(1..',MAXS┆
0x347a0…347c0 4f 4a 4c 45 2c 27 29 20 3a 20 27 2c 61 73 6f 6a 6c 65 2c 54 49 4c 42 29 3b 0d 0a 20 20 20 20 41 ┆OJLE,') : ',asojle,TILB); A┆
0x347c0…347e0 73 6f 6a 6c 65 3a 3d 20 6c 61 65 73 69 6e 74 28 61 73 6f 6a 6c 65 2c 31 2c 4d 41 58 53 4f 4a 4c ┆sojle:= laesint(asojle,1,MAXSOJL┆
0x347e0…34800 45 29 3b 0d 0a 20 20 20 20 67 6f 74 6f 78 79 28 34 30 2c 32 33 29 3b 0d 0a 20 20 20 20 77 72 69 ┆E); gotoxy(40,23); wri┆
0x34800…34820 (23, 1, 4) 3a 31 30 2c 27 5b 6e 64 72 65 74 20 66 6f 72 6d 61 74 20 69 20 75 64 73 6b 72 69 66 74 27 29 3b ┆:10,'Ændret format i udskrift');┆
0x34820…34840 0d 0a 20 6e 79 74 66 3a 3d 20 59 4e 20 3d 20 27 59 27 3b 0d 0a 20 69 66 20 6e 79 74 66 20 74 68 ┆ nytf:= YN = 'Y'; if nytf th┆
0x34840…34860 65 6e 20 62 65 67 69 6e 0d 0a 09 73 6c 65 74 28 31 30 2c 31 39 2c 30 29 3b 20 67 6f 74 6f 78 79 ┆en begin slet(10,19,0); gotoxy┆
0x34860…34880 28 30 2c 31 32 29 3b 0d 0a 09 77 72 69 74 65 6c 6e 28 27 27 3a 31 30 2c 27 41 6e 67 69 76 20 66 ┆(0,12); writeln('':10,'Angiv f┆
0x34880…348a0 6f 72 20 68 76 65 72 20 73 7c 6a 6c 65 2c 27 29 3b 0d 0a 09 77 72 69 74 65 6c 6e 28 27 27 3a 31 ┆or hver søjle,'); writeln('':1┆
0x348a0…348c0 30 2c 27 6f 6d 20 64 75 20 76 69 6c 20 68 61 76 65 20 65 6b 73 70 6f 6e 65 6e 74 69 65 6c 20 28 ┆0,'om du vil have eksponentiel (┆
0x348c0…348e0 45 30 2e 2e 45 37 29 27 29 3b 0d 0a 09 77 72 69 74 65 6c 6e 28 27 27 3a 31 30 2c 27 65 6c 6c 65 ┆E0..E7)'); writeln('':10,'elle┆
0x348e0…34900 72 20 64 65 63 69 6d 61 6c 20 6e 6f 74 61 74 69 6f 6e 20 20 20 20 20 20 28 44 30 2e 2e 44 37 29 ┆r decimal notation (D0..D7)┆
0x34900…34920 2e 27 29 3b 0d 0a 09 77 72 69 74 65 6c 6e 28 27 27 3a 31 30 2c 27 64 6f 67 20 7b 6e 64 72 65 73 ┆.'); writeln('':10,'dog ændres┆
0x34920…34940 20 66 6f 72 6d 61 74 65 74 2c 20 68 76 69 73 20 74 61 6c 6c 65 74 20 66 79 6c 64 65 72 20 66 6f ┆ formatet, hvis tallet fylder fo┆
0x34940…34960 72 20 6d 65 67 65 74 27 29 3b 0d 0a 09 77 72 69 74 65 6c 6e 28 27 27 3a 31 30 2c 27 65 6b 73 2e ┆r meget'); writeln('':10,'eks.┆
0x34960…34980 20 45 32 20 62 65 74 79 64 65 72 20 65 6b 73 70 6f 6e 65 6e 74 69 65 6c 20 6e 6f 74 61 74 69 6f ┆ E2 betyder eksponentiel notatio┆
0x34980…349a0 6e 20 69 20 32 20 2b 20 35 20 66 65 6c 74 65 72 27 29 3b 0d 0a 09 77 72 69 74 65 6c 6e 28 27 27 ┆n i 2 + 5 felter'); writeln(''┆
0x349a0…349c0 3a 31 30 2c 27 20 20 20 20 20 44 33 20 62 65 74 79 64 65 72 20 33 20 64 65 63 69 6d 61 6c 65 72 ┆:10,' D3 betyder 3 decimaler┆
0x349c0…349e0 2e 27 29 3b 0d 0a 09 66 6f 72 20 69 3a 3d 20 31 20 74 6f 20 6f 70 67 2e 62 73 6f 6a 6c 65 20 64 ┆.'); for i:= 1 to opg.bsojle d┆
0x349e0…34a00 6f 20 62 65 67 69 6e 0d 0a 09 09 52 45 50 45 41 54 0d 0a 09 09 09 66 6f 72 6d 5b 49 5d 3a 3d 73 ┆o begin REPEAT formÆIÅ:=s┆
0x34a00…34a20 (23, 1, 5) 74 65 28 27 2c 20 41 6e 74 61 6c 20 72 7b 6b 6b 65 72 28 31 2e 2e 27 2c 4d 41 58 52 41 4b 4b 45 ┆te(', Antal rækker(1..',MAXRAKKE┆
0x34a20…34a40 2c 27 29 20 3a 20 27 2c 72 61 6b 6b 65 2c 54 49 4c 42 29 3b 0d 0a 20 20 20 20 69 66 20 72 61 6b ┆,') : ',rakke,TILB); if rak┆
0x34a40…34a60 6b 65 3e 39 20 74 68 65 6e 20 77 72 69 74 65 28 54 49 4c 42 29 3b 0d 0a 20 20 20 20 72 61 6b 6b ┆ke>9 then write(TILB); rakk┆
0x34a60…34a80 65 3a 3d 20 6c 61 65 73 69 6e 74 28 72 61 6b 6b 65 2c 31 2c 4d 41 58 52 41 4b 4b 45 29 3b 0d 0a ┆e:= laesint(rakke,1,MAXRAKKE); ┆
0x34a80…34aa0 20 20 20 20 69 66 20 72 61 6b 6b 65 3c 39 20 74 68 65 6e 20 65 6e 74 6f 3a 3d 32 20 65 6c 73 65 ┆ if rakke<9 then ento:=2 else┆
0x34aa0…34ac0 20 65 6e 74 6f 3a 3d 31 3b 0d 0a 20 20 20 20 53 4c 45 54 28 31 2c 32 33 2c 30 29 3b 0d 0a 20 20 ┆ ento:=1; SLET(1,23,0); ┆
0x34ac0…34ae0 20 20 54 45 47 4e 53 4b 45 4d 41 28 74 72 75 65 2c 41 73 6f 6a 6c 65 2c 31 2c 72 61 6b 6b 65 29 ┆ TEGNSKEMA(true,Asojle,1,rakke)┆
0x34ae0…34b00 0d 0a 20 20 65 6e 64 3b 0d 0a 20 20 69 66 20 6e 79 6f 70 67 20 74 68 65 6e 20 20 62 65 67 69 6e ┆ end; if nyopg then begin┆
0x34b00…34b20 20 6c 61 65 73 41 68 6f 76 65 64 3b 20 6c 61 65 73 41 20 65 6e 64 20 65 6c 73 65 20 73 6b 72 69 ┆ laesAhoved; laesA end else skri┆
0x34b20…34b40 76 41 3b 0d 0a 20 20 69 66 20 70 72 69 6e 74 65 72 20 74 68 65 6e 20 69 66 20 75 64 73 6b 72 28 ┆vA; if printer then if udskr(┆
0x34b40…34b60 31 29 20 74 68 65 6e 20 73 6b 72 69 76 73 6b 61 72 6d 3b 0d 0a 20 20 6e 79 6f 70 67 3a 3d 66 61 ┆1) then skrivskarm; nyopg:=fa┆
0x34b60…34b80 6c 73 65 0d 0a 65 6e 64 3b 09 7b 20 6d 61 61 6c 20 7d 0d 0a 0d 0a 70 72 6f 63 65 64 75 72 65 20 ┆lse end; æ maal å procedure ┆
0x34b80…34ba0 6c 61 65 73 42 68 6f 76 65 64 3b 0d 0a 62 65 67 69 6e 0d 0a 20 20 73 6c 65 74 28 36 2c 31 39 2c ┆laesBhoved; begin slet(6,19,┆
0x34ba0…34bc0 30 29 3b 0d 0a 20 20 67 6f 74 6f 78 79 28 30 2c 36 29 3b 20 77 72 69 74 65 28 27 42 65 72 65 67 ┆0); gotoxy(0,6); write('Bereg┆
0x34bc0…34be0 6e 69 6e 67 73 73 6b 65 6d 61 3a 27 3a 34 38 29 3b 0d 0a 20 20 67 6f 74 6f 78 79 28 30 2c 32 33 ┆ningsskema:':48); gotoxy(0,23┆
0x34be0…34c00 29 3b 0d 0a 20 20 77 72 69 74 65 28 43 4c 52 45 4f 4c 2c 27 27 3a 31 30 2c 27 41 6e 74 61 6c 20 ┆); write(CLREOL,'':10,'Antal ┆
0x34c00…34c20 (23, 1, 6) 74 72 65 6e 67 28 66 6f 72 6d 5b 69 5d 2c 72 62 68 2b 49 2a 28 62 72 65 64 64 65 2b 31 29 2c 31 ┆treng(formÆiÅ,rbh+I*(bredde+1),1┆
0x34c20…34c40 31 2c 32 29 3b 0d 0a 09 09 09 66 6f 72 6d 5b 49 5d 3a 3d 20 75 70 63 61 73 65 28 66 6f 72 6d 5b ┆1,2); formÆIÅ:= upcase(formÆ┆
0x34c40…34c60 69 5d 29 3b 0d 0a 09 09 55 4e 54 49 4c 20 28 66 6f 72 6d 5b 69 5d 5b 31 5d 20 69 6e 20 5b 27 44 ┆iÅ); UNTIL (formÆiÅÆ1Å in Æ'D┆
0x34c60…34c80 27 2c 27 45 27 5d 29 20 61 6e 64 20 28 66 6f 72 6d 5b 69 5d 5b 32 5d 20 69 6e 20 5b 27 30 27 2e ┆','E'Å) and (formÆiÅÆ2Å in Æ'0'.┆
0x34c80…34ca0 2e 27 37 27 5d 29 3b 0d 0a 09 09 69 66 20 66 6f 72 6d 5b 69 5d 5b 31 5d 20 3d 20 27 44 27 20 74 ┆.'7'Å); if formÆiÅÆ1Å = 'D' t┆
0x34ca0…34cc0 68 65 6e 20 64 65 63 5b 69 5d 3a 3d 20 6f 72 64 28 66 6f 72 6d 5b 69 5d 5b 32 5d 29 2d 20 34 38 ┆hen decÆiÅ:= ord(formÆiÅÆ2Å)- 48┆
0x34cc0…34ce0 0d 0a 09 09 65 6c 73 65 20 64 65 63 5b 69 5d 3a 3d 20 6f 72 64 28 66 6f 72 6d 5b 69 5d 5b 32 5d ┆ else decÆiÅ:= ord(formÆiÅÆ2Å┆
0x34ce0…34d00 29 20 2d 20 34 33 3b 0d 0a 09 09 49 46 20 44 45 43 5b 49 5d 20 3e 20 4c 41 4e 47 20 54 48 45 4e ┆) - 43; IF DECÆIÅ > LANG THEN┆
0x34d00…34d20 20 44 45 43 5b 49 5d 3a 3d 4c 41 4e 47 0d 0a 09 65 6e 64 0d 0a 65 6e 64 0d 0a 65 6e 64 3b 0d 0a ┆ DECÆIÅ:=LANG end end end; ┆
0x34d20…34d40 0d 0a 50 52 4f 43 45 44 55 52 45 20 72 65 67 6e 42 3b 0d 0a 76 61 72 09 4d 49 4e 55 53 3a 20 42 ┆ PROCEDURE regnB; var MINUS: B┆
0x34d40…34d60 59 54 45 3b 20 42 4a 4b 3a 20 52 45 41 4c 3b 0d 0a 62 65 67 69 6e 0d 0a 77 69 74 68 20 6f 70 67 ┆YTE; BJK: REAL; begin with opg┆
0x34d60…34d80 20 64 6f 20 62 65 67 69 6e 0d 0a 53 4c 45 54 28 34 2c 32 33 2c 30 29 3b 0d 0a 74 65 67 6e 73 6b ┆ do begin SLET(4,23,0); tegnsk┆
0x34d80…34da0 65 6d 61 28 66 61 6c 73 65 2c 62 73 6f 6a 6c 65 2c 31 2c 72 61 6b 6b 65 29 3b 0d 0a 46 4f 52 20 ┆ema(false,bsojle,1,rakke); FOR ┆
0x34da0…34dc0 4b 3a 3d 20 31 20 54 4f 20 52 41 4b 4b 45 20 44 4f 20 42 45 47 49 4e 0d 0a 09 46 4f 52 20 4a 3a ┆K:= 1 TO RAKKE DO BEGIN FOR J:┆
0x34dc0…34de0 3d 20 31 20 54 4f 20 42 53 4f 4a 4c 45 20 44 4f 20 42 45 47 49 4e 0d 0a 09 09 67 6f 74 6f 78 79 ┆= 1 TO BSOJLE DO BEGIN gotoxy┆
0x34de0…34e00 28 72 62 68 2b 4a 2a 28 62 72 65 64 64 65 2b 31 29 2c 34 2b 65 6e 74 6f 2a 28 4b 2d 31 29 29 3b ┆(rbh+J*(bredde+1),4+ento*(K-1));┆
0x34e00…34e20 (23, 1, 7) 73 7c 6a 6c 65 72 28 31 2e 2e 27 2c 4d 41 58 53 4f 4a 4c 45 2c 27 29 20 3a 20 27 2c 6f 70 67 2e ┆søjler(1..',MAXSOJLE,') : ',opg.┆
0x34e20…34e40 62 73 6f 6a 6c 65 2c 54 49 4c 42 29 3b 0d 0a 20 20 6f 70 67 2e 62 73 6f 6a 6c 65 3a 3d 20 6c 61 ┆bsojle,TILB); opg.bsojle:= la┆
0x34e40…34e60 65 73 69 6e 74 28 6f 70 67 2e 62 73 6f 6a 6c 65 2c 31 2c 4d 41 58 53 4f 4a 4c 45 29 3b 0d 0a 20 ┆esint(opg.bsojle,1,MAXSOJLE); ┆
0x34e60…34e80 20 54 45 47 4e 53 4b 45 4d 41 28 74 72 75 65 2c 6f 70 67 2e 62 73 6f 6a 6c 65 2c 37 2c 30 29 3b ┆ TEGNSKEMA(true,opg.bsojle,7,0);┆
0x34e80…34ea0 0d 0a 20 20 6c 61 6e 67 3a 3d 20 62 72 65 64 64 65 2d 31 3b 20 69 66 20 6c 61 6e 67 20 3e 31 32 ┆ lang:= bredde-1; if lang >12┆
0x34ea0…34ec0 20 74 68 65 6e 20 6c 61 6e 67 3a 3d 31 32 3b 0d 0a 20 20 77 69 74 68 20 6f 70 67 20 64 6f 20 72 ┆ then lang:=12; with opg do r┆
0x34ec0…34ee0 65 70 65 61 74 0d 0a 20 20 20 20 69 3a 3d 20 30 3b 0d 0a 20 20 20 20 72 65 70 65 61 74 0d 0a 20 ┆epeat i:= 0; repeat ┆
0x34ee0…34f00 20 20 20 20 20 61 6b 74 69 76 28 32 29 3b 20 65 6e 73 3a 3d 20 66 61 6c 73 65 3b 20 69 3a 3d 20 ┆ aktiv(2); ens:= false; i:= ┆
0x34f00…34f20 69 2b 31 3b 0d 0a 20 20 20 20 20 20 54 45 53 54 4e 41 56 4e 28 62 6e 61 76 6e 5b 49 5d 2c 38 29 ┆i+1; TESTNAVN(bnavnÆIÅ,8)┆
0x34f20…34f40 3b 20 42 52 45 4e 5b 49 5d 3a 3d 46 4e 41 56 4e 28 42 4e 41 56 4e 5b 49 5d 29 3b 0d 0a 20 20 20 ┆; BRENÆIÅ:=FNAVN(BNAVNÆIÅ); ┆
0x34f40…34f60 20 20 20 66 6f 72 20 6a 3a 3d 20 31 20 74 6f 20 61 73 6f 6a 6c 65 20 64 6f 20 65 6e 73 3a 3d 20 ┆ for j:= 1 to asojle do ens:= ┆
0x34f60…34f80 65 6e 73 20 4f 52 20 28 41 52 45 4e 5b 6a 5d 20 3d 20 42 52 45 4e 5b 69 5d 29 3b 0d 0a 20 20 20 ┆ens OR (ARENÆjÅ = BRENÆiÅ); ┆
0x34f80…34fa0 20 20 20 66 6f 72 20 6a 3a 3d 20 31 20 74 6f 20 49 2d 31 20 64 6f 20 65 6e 73 3a 3d 20 65 6e 73 ┆ for j:= 1 to I-1 do ens:= ens┆
0x34fa0…34fc0 20 4f 52 20 28 42 52 45 4e 5b 6a 5d 20 3d 20 42 52 45 4e 5b 69 5d 29 3b 0d 0a 20 20 20 20 20 20 ┆ OR (BRENÆjÅ = BRENÆiÅ); ┆
0x34fc0…34fe0 69 66 20 65 6e 73 20 74 68 65 6e 20 62 65 67 69 6e 0d 0a 20 20 20 20 20 20 20 20 42 6e 61 76 6e ┆if ens then begin Bnavn┆
0x34fe0…35000 5b 69 5d 3a 3d 27 27 3b 20 69 3a 3d 20 69 2d 31 3b 20 46 45 4a 4c 28 31 29 0d 0a 20 20 20 20 20 ┆ÆiÅ:=''; i:= i-1; FEJL(1) ┆
0x35000…35020 (23, 1, 8) 0d 0a 09 09 42 45 52 45 47 4e 28 46 5b 4a 5d 2c 42 4a 4b 2c 46 45 4a 4c 41 52 54 29 3b 0d 0a 09 ┆ BEREGN(FÆJÅ,BJK,FEJLART); ┆
0x35020…35040 09 49 46 20 28 46 45 4a 4c 41 52 54 3d 30 29 20 54 48 45 4e 20 42 45 47 49 4e 0d 0a 09 09 49 46 ┆ IF (FEJLART=0) THEN BEGIN IF┆
0x35040…35060 20 42 4a 4b 20 3c 20 30 20 54 48 45 4e 20 4d 49 4e 55 53 3a 3d 31 20 45 4c 53 45 20 4d 49 4e 55 ┆ BJK < 0 THEN MINUS:=1 ELSE MINU┆
0x35060…35080 53 3a 3d 20 30 3b 0d 0a 09 09 69 66 20 28 66 6f 72 6d 5b 6a 5d 5b 31 5d 3d 27 44 27 29 20 41 4e ┆S:= 0; if (formÆjÅÆ1Å='D') AN┆
0x35080…350a0 44 20 28 61 62 73 28 42 4a 4b 29 3c 50 57 52 54 45 4e 28 4c 41 4e 47 2d 44 45 43 5b 4a 5d 2d 4d ┆D (abs(BJK)<PWRTEN(LANG-DECÆJÅ-M┆
0x350a0…350c0 49 4e 55 53 29 29 0d 0a 09 09 54 48 45 4e 20 57 52 49 54 45 28 42 4a 4b 3a 6c 61 6e 67 3a 64 65 ┆INUS)) THEN WRITE(BJK:lang:de┆
0x350c0…350e0 63 5b 6a 5d 29 20 65 6c 73 65 20 57 52 49 54 45 28 42 4a 4b 3a 44 45 43 5b 6a 5d 29 3b 0d 0a 09 ┆cÆjÅ) else WRITE(BJK:DECÆjÅ); ┆
0x350e0…35100 09 53 54 52 28 42 4a 4b 3a 31 34 2c 4f 50 47 2e 42 5b 4a 2c 4b 5d 29 0d 0a 09 09 45 4e 44 20 45 ┆ STR(BJK:14,OPG.BÆJ,KÅ) END E┆
0x35100…35120 4c 53 45 20 42 45 47 49 4e 0d 0a 09 09 09 57 52 49 54 45 28 66 65 6a 6c 6e 61 76 6e 5b 66 65 6a ┆LSE BEGIN WRITE(fejlnavnÆfej┆
0x35120…35140 6c 61 72 74 5d 29 3b 20 4f 50 47 2e 42 5b 4a 2c 4b 5d 3a 3d 27 3f 27 0d 0a 09 09 45 4e 44 0d 0a ┆lartÅ); OPG.BÆJ,KÅ:='?' END ┆
0x35140…35160 09 45 4e 44 0d 0a 45 4e 44 3b 0d 0a 65 6e 64 0d 0a 65 6e 64 3b 09 7b 20 72 65 67 6e 42 20 7d 0d ┆ END END; end end; æ regnB å ┆
0x35160…35180 0a 0d 0a 70 72 6f 63 65 64 75 72 65 20 66 75 6e 6b 74 69 6f 6e 42 3b 0d 0a 62 65 67 69 6e 0d 0a ┆ procedure funktionB; begin ┆
0x35180…351a0 09 4c 61 65 73 42 68 6f 76 65 64 3b 20 4c 61 65 73 46 3b 0d 0a 20 20 20 20 20 20 20 20 67 6f 74 ┆ LaesBhoved; LaesF; got┆
0x351a0…351c0 6f 78 79 28 30 2c 31 39 29 3b 20 77 72 69 74 65 28 63 6c 72 65 6f 73 29 3b 0d 0a 20 20 20 20 20 ┆oxy(0,19); write(clreos); ┆
0x351c0…351e0 20 20 20 67 6f 74 6f 78 79 28 30 2c 32 33 29 3b 20 66 6f 72 20 6a 3a 3d 20 31 20 74 6f 20 37 20 ┆ gotoxy(0,23); for j:= 1 to 7 ┆
0x351e0…35200 64 6f 20 77 72 69 74 65 6c 6e 0d 0a 65 6e 64 3b 0d 0a 09 09 0d 0a 70 72 6f 63 65 64 75 72 65 20 ┆do writeln end; procedure ┆
0x35200…35220 (23, 1, 9) 20 65 6e 64 20 0d 0a 20 20 20 20 75 6e 74 69 6c 20 28 69 3d 20 62 73 6f 6a 6c 65 29 20 61 6e 64 ┆ end until (i= bsojle) and┆
0x35220…35240 20 6e 6f 74 20 65 6e 73 0d 0a 20 20 75 6e 74 69 6c 20 6f 6b 28 32 29 0d 0a 65 6e 64 3b 09 7b 20 ┆ not ens until ok(2) end; æ ┆
0x35240…35260 6c 61 65 73 42 68 6f 76 65 64 20 7d 0d 0a 0d 0a 70 72 6f 63 65 64 75 72 65 20 6c 61 65 73 46 3b ┆laesBhoved å procedure laesF;┆
0x35260…35280 0d 0a 56 41 52 09 50 56 45 4e 53 54 52 45 2c 50 48 4f 4a 52 45 3a 20 42 59 54 45 3b 0d 0a 62 65 ┆ VAR PVENSTRE,PHOJRE: BYTE; be┆
0x35280…352a0 67 69 6e 0d 0a 20 20 73 6c 65 74 28 31 30 2c 31 39 2c 30 29 3b 0d 0a 20 20 77 69 74 68 20 6f 70 ┆gin slet(10,19,0); with op┆
0x352a0…352c0 67 20 64 6f 20 72 65 70 65 61 74 0d 0a 20 20 20 20 66 6f 72 20 4a 3a 3d 20 31 20 74 6f 20 42 73 ┆g do repeat for J:= 1 to Bs┆
0x352c0…352e0 6f 6a 6c 65 20 64 6f 20 62 65 67 69 6e 0d 0a 20 20 20 20 20 20 52 45 50 45 41 54 0d 0a 20 20 20 ┆ojle do begin REPEAT ┆
0x352e0…35300 20 20 20 20 20 41 6b 74 69 76 28 32 29 3b 0d 0a 20 20 20 20 20 20 20 20 67 6f 74 6f 78 79 28 35 ┆ Aktiv(2); gotoxy(5┆
0x35300…35320 2c 31 30 2b 4a 29 3b 20 4c 4f 56 4c 49 47 3a 3d 20 54 52 55 45 3b 20 50 76 65 6e 73 74 72 65 3a ┆,10+J); LOVLIG:= TRUE; Pvenstre:┆
0x35320…35340 3d 30 3b 20 50 68 6f 6a 72 65 3a 3d 30 3b 0d 0a 20 20 20 20 20 20 20 20 77 72 69 74 65 28 43 4c ┆=0; Phojre:=0; write(CL┆
0x35340…35360 52 45 4f 4c 2c 27 46 6f 72 73 6b 72 69 66 74 2c 20 27 2c 20 42 52 45 4e 5b 4a 5d 2c 27 20 3a 3d ┆REOL,'Forskrift, ', BRENÆJÅ,' :=┆
0x35360…35380 20 27 29 3b 0d 0a 20 20 20 20 20 20 20 20 46 5b 4a 5d 3a 3d 20 73 74 72 65 6e 67 28 46 5b 4a 5d ┆ '); FÆJÅ:= streng(FÆJÅ┆
0x35380…353a0 2c 33 30 2c 31 30 2b 4a 2c 34 39 29 3b 20 46 5b 4a 5d 3a 3d 20 55 50 43 41 53 45 28 46 5b 4a 5d ┆,30,10+J,49); FÆJÅ:= UPCASE(FÆJÅ┆
0x353a0…353c0 29 3b 0d 0a 20 20 20 20 20 20 20 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 4c 45 4e 28 46 5b 4a 5d ┆); FOR I:=1 TO LEN(FÆJÅ┆
0x353c0…353e0 29 20 44 4f 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 4c 4f 56 4c 49 47 3a 3d 28 46 ┆) DO BEGIN LOVLIG:=(F┆
0x353e0…35400 5b 4a 5d 5b 49 5d 20 49 4e 20 42 4f 47 53 54 41 56 2b 43 49 46 46 45 52 2b 4f 50 45 52 41 54 4f ┆ÆJÅÆIÅ IN BOGSTAV+CIFFER+OPERATO┆
0x35400…35420 (24, 0, 1) 62 65 72 65 67 6e 42 3b 0d 0a 62 65 67 69 6e 0d 0a 66 6f 72 20 69 3a 3d 20 31 20 74 6f 20 6f 70 ┆beregnB; begin for i:= 1 to op┆
0x35420…35440 67 2e 62 73 6f 6a 6c 65 20 64 6f 20 62 65 67 69 6e 20 46 4f 52 4d 5b 49 5d 3a 3d 27 45 27 2b 43 ┆g.bsojle do begin FORMÆIÅ:='E'+C┆
0x35440…35460 48 52 28 34 33 2b 4c 41 4e 47 29 3b 20 44 45 43 5b 49 5d 3a 3d 4c 41 4e 47 20 65 6e 64 3b 0d 0a ┆HR(43+LANG); DECÆIÅ:=LANG end; ┆
0x35460…35480 72 65 70 65 61 74 0d 0a 09 72 65 67 6e 42 3b 0d 0a 09 69 66 20 70 72 69 6e 74 65 72 20 74 68 65 ┆repeat regnB; if printer the┆
0x35480…354a0 6e 20 69 66 20 75 64 73 6b 72 28 33 29 20 74 68 65 6e 20 73 6b 72 69 76 73 6b 61 72 6d 3b 0d 0a ┆n if udskr(3) then skrivskarm; ┆
0x354a0…354c0 09 6e 79 74 66 6f 72 6d 61 74 3b 0d 0a 75 6e 74 69 6c 20 6e 6f 74 20 6e 79 74 66 3b 0d 0a 7b 09 ┆ nytformat; until not nytf; æ ┆
0x354c0…354e0 63 6c 6f 73 65 6c 09 09 7d 0d 0a 65 6e 64 3b 09 7b 20 62 65 72 65 67 6e 42 20 7d 0d 0a 0d 0a 70 ┆closel å end; æ beregnB å p┆
0x354e0…35500 72 6f 63 65 64 75 72 65 20 68 65 6e 74 68 6a 61 65 6c 70 3b 0d 0a 56 41 52 09 46 55 4e 44 45 54 ┆rocedure henthjaelp; VAR FUNDET┆
0x35500…35520 3a 09 42 4f 4f 4c 45 41 4e 3b 20 49 4e 44 46 3a 54 45 58 54 3b 0d 0a 0d 0a 42 45 47 49 4e 0d 0a ┆: BOOLEAN; INDF:TEXT; BEGIN ┆
0x35520…35540 41 53 53 49 47 4e 28 49 4e 44 46 2c 27 4d 49 4e 49 43 41 4c 43 2e 48 4c 50 27 29 3b 20 7b 24 49 ┆ASSIGN(INDF,'MINICALC.HLP'); æ$I┆
0x35540…35560 2d 7d 20 52 45 53 45 54 28 49 4e 44 46 29 3b 20 7b 24 49 2b 7d 0d 0a 46 55 4e 44 45 54 3a 3d 20 ┆-å RESET(INDF); æ$I+å FUNDET:= ┆
0x35560…35580 49 4f 52 45 53 20 3d 20 30 3b 0d 0a 49 46 20 4e 4f 54 20 46 55 4e 44 45 54 20 54 48 45 4e 20 42 ┆IORES = 0; IF NOT FUNDET THEN B┆
0x35580…355a0 45 47 49 4e 0d 0a 09 47 4f 54 4f 58 59 28 30 2c 32 33 29 3b 0d 0a 09 57 52 49 54 45 28 43 4c 52 ┆EGIN GOTOXY(0,23); WRITE(CLR┆
0x355a0…355c0 45 4f 4c 2c 27 27 3a 31 30 2c 27 4d 49 4e 49 43 41 4c 43 2e 48 4c 50 20 66 69 6e 64 65 73 20 69 ┆EOL,'':10,'MINICALC.HLP findes i┆
0x355c0…355e0 6b 6b 65 20 70 7d 20 64 69 73 6b 65 74 74 65 6e 27 29 3b 0d 0a 09 56 45 4e 54 3b 20 42 53 28 34 ┆kke på disketten'); VENT; BS(4┆
0x355e0…35600 37 29 0d 0a 45 4e 44 20 45 4c 53 45 20 42 45 47 49 4e 0d 0a 09 47 4f 54 4f 58 59 28 30 2c 30 29 ┆7) END ELSE BEGIN GOTOXY(0,0)┆
0x35600…35620 (24, 0, 2) 20 74 68 65 6e 20 6e 75 6c 73 74 69 6c 3b 0d 0a 20 20 67 6f 74 6f 78 79 28 31 30 2c 32 34 29 3b ┆ then nulstil; gotoxy(10,24);┆
0x35620…35640 0d 0a 20 20 77 69 74 68 20 6f 70 67 20 64 6f 20 62 65 67 69 6e 0d 0a 20 20 20 20 77 72 69 74 65 ┆ with opg do begin write┆
0x35640…35660 28 53 4c 45 54 45 4f 4c 2c 27 41 6e 74 61 6c 20 73 7c 6a 6c 65 72 28 31 2e 2e 27 2c 4d 41 58 53 ┆(SLETEOL,'Antal søjler(1..',MAXS┆
0x35660…35680 4f 4a 4c 45 2c 27 29 20 3a 20 27 2c 61 73 6f 6a 6c 65 2c 54 49 4c 42 29 3b 0d 0a 20 20 20 20 41 ┆OJLE,') : ',asojle,TILB); A┆
0x35680…356a0 73 6f 6a 6c 65 3a 3d 20 6c 61 65 73 69 6e 74 28 61 73 6f 6a 6c 65 2c 31 2c 4d 41 58 53 4f 4a 4c ┆sojle:= laesint(asojle,1,MAXSOJL┆
0x356a0…356c0 45 29 3b 0d 0a 20 20 20 20 67 6f 74 6f 78 79 28 34 30 2c 32 34 29 3b 0d 0a 20 20 20 20 77 72 69 ┆E); gotoxy(40,24); wri┆
0x356c0…356e0 74 65 28 27 2c 20 41 6e 74 61 6c 20 72 7b 6b 6b 65 72 28 31 2e 2e 27 2c 4d 41 58 52 41 4b 4b 45 ┆te(', Antal rækker(1..',MAXRAKKE┆
0x356e0…35700 2c 27 29 20 3a 20 27 2c 72 61 6b 6b 65 2c 54 49 4c 42 29 3b 0d 0a 20 20 20 20 69 66 20 72 61 6b ┆,') : ',rakke,TILB); if rak┆
0x35700…35720 6b 65 3e 39 20 74 68 65 6e 20 77 72 69 74 65 28 54 49 4c 42 29 3b 0d 0a 20 20 20 20 72 61 6b 6b ┆ke>9 then write(TILB); rakk┆
0x35720…35740 65 3a 3d 20 6c 61 65 73 69 6e 74 28 72 61 6b 6b 65 2c 31 2c 4d 41 58 52 41 4b 4b 45 29 3b 0d 0a ┆e:= laesint(rakke,1,MAXRAKKE); ┆
0x35740…35760 20 20 20 20 69 66 20 72 61 6b 6b 65 3c 39 20 74 68 65 6e 20 65 6e 74 6f 3a 3d 32 20 65 6c 73 65 ┆ if rakke<9 then ento:=2 else┆
0x35760…35780 20 65 6e 74 6f 3a 3d 31 3b 0d 0a 20 20 20 20 53 4c 45 54 28 31 2c 32 30 2c 30 29 3b 0d 0a 20 20 ┆ ento:=1; SLET(1,20,0); ┆
0x35780…357a0 20 20 49 46 20 52 41 4b 4b 45 20 3d 20 31 37 20 54 48 45 4e 20 53 4c 45 54 28 32 31 2c 32 31 2c ┆ IF RAKKE = 17 THEN SLET(21,21,┆
0x357a0…357c0 30 29 3b 0d 0a 20 20 20 20 54 45 47 4e 53 4b 45 4d 41 28 41 73 6f 6a 6c 65 2c 31 2c 72 61 6b 6b ┆0); TEGNSKEMA(Asojle,1,rakk┆
0x357c0…357e0 65 29 0d 0a 20 20 65 6e 64 3b 0d 0a 20 20 69 66 20 6e 79 6f 70 67 20 74 68 65 6e 20 20 62 65 67 ┆e) end; if nyopg then beg┆
0x357e0…35800 69 6e 20 6c 61 65 73 41 68 6f 76 65 64 3b 20 6c 61 65 73 41 20 65 6e 64 20 65 6c 73 65 20 73 6b ┆in laesAhoved; laesA end else sk┆
0x35800…35820 (24, 0, 3) 3b 20 57 52 49 54 45 28 43 4c 52 45 4f 53 29 3b 0d 0a 09 57 52 49 54 45 4c 4e 28 27 27 3a 31 30 ┆; WRITE(CLREOS); WRITELN('':10┆
0x35820…35840 2c 27 44 75 20 6b 61 6e 20 6e 75 20 62 6c 61 64 72 65 20 76 65 6a 6c 65 64 6e 69 6e 67 65 6e 20 ┆,'Du kan nu bladre vejledningen ┆
0x35840…35860 69 67 65 6e 6e 65 6d 2e 27 29 3b 0d 0a 09 57 52 49 54 45 4c 4e 28 27 27 3a 31 30 2c 27 53 70 61 ┆igennem.'); WRITELN('':10,'Spa┆
0x35860…35880 63 65 20 65 6c 6c 65 72 20 72 65 74 75 72 6e 20 67 69 76 65 72 20 64 65 20 31 32 20 6e 7b 73 74 ┆ce eller return giver de 12 næst┆
0x35880…358a0 65 20 6c 69 6e 69 65 72 27 29 3b 0d 0a 09 77 72 69 74 65 6c 6e 28 27 27 3a 31 30 2c 27 50 49 4c ┆e linier'); writeln('':10,'PIL┆
0x358a0…358c0 20 6f 70 20 65 6c 6c 65 72 20 6e 65 64 20 73 74 61 72 74 65 72 20 76 65 6a 6c 65 64 6e 69 6e 67 ┆ op eller ned starter vejledning┆
0x358c0…358e0 65 6e 20 66 6f 72 66 72 61 2e 27 29 3b 0d 0a 09 77 72 69 74 65 6c 6e 28 27 27 3a 31 30 2c 27 45 ┆en forfra.'); writeln('':10,'E┆
0x358e0…35900 53 43 20 61 66 62 72 79 64 65 72 20 67 65 6e 6e 65 6d 6c 7b 73 6e 69 6e 67 65 6e 2e 27 29 3b 0d ┆SC afbryder gennemlæsningen.'); ┆
0x35900…35920 0a 09 77 72 69 74 65 6c 6e 28 27 27 3a 31 30 2c 27 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ writeln('':10,'---------------┆
0x35920…35940 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 27 29 ┆------------------------------')┆
0x35940…35960 3b 0d 0a 09 77 72 69 74 65 6c 6e 3b 20 57 52 49 54 45 4c 4e 3b 0d 0a 09 53 56 41 52 3a 3d 20 52 ┆; writeln; WRITELN; SVAR:= R┆
0x35960…35980 45 54 55 52 3b 0d 0a 09 52 45 50 45 41 54 0d 0a 09 09 4b 3a 3d 30 3b 0d 0a 09 09 49 46 20 53 56 ┆ETUR; REPEAT K:=0; IF SV┆
0x35980…359a0 41 52 20 49 4e 20 5b 4f 50 2c 4e 45 44 5d 20 54 48 45 4e 20 42 45 47 49 4e 0d 0a 09 09 09 47 4f ┆AR IN ÆOP,NEDÅ THEN BEGIN GO┆
0x359a0…359c0 54 4f 58 59 28 30 2c 30 29 3b 20 77 72 69 74 65 28 43 4c 52 45 4f 53 29 3b 20 52 45 53 45 54 28 ┆TOXY(0,0); write(CLREOS); RESET(┆
0x359c0…359e0 49 4e 44 46 29 0d 0a 09 09 45 4e 44 3b 0d 0a 09 09 49 46 20 53 56 41 52 20 49 4e 20 5b 4f 50 2c ┆INDF) END; IF SVAR IN ÆOP,┆
0x359e0…35a00 4e 45 44 2c 52 45 54 55 52 2c 53 50 41 43 45 5d 20 54 48 45 4e 20 52 45 50 45 41 54 0d 0a 09 09 ┆NED,RETUR,SPACEÅ THEN REPEAT ┆
0x35a00…35a20 (24, 0, 4) 72 69 76 41 3b 0d 0a 20 20 69 66 20 70 72 69 6e 74 65 72 20 74 68 65 6e 20 69 66 20 75 64 73 6b ┆rivA; if printer then if udsk┆
0x35a20…35a40 72 28 31 29 20 74 68 65 6e 20 73 6b 72 69 76 73 6b 61 72 6d 28 30 2c 65 6e 74 6f 2a 6f 70 67 2e ┆r(1) then skrivskarm(0,ento*opg.┆
0x35a40…35a60 72 61 6b 6b 65 2b 34 29 3b 0d 0a 20 20 6e 79 6f 70 67 3a 3d 66 61 6c 73 65 0d 0a 65 6e 64 3b 09 ┆rakke+4); nyopg:=false end; ┆
0x35a60…35a80 7b 20 6d 61 61 6c 20 7d 0d 0a 0d 0a 70 72 6f 63 65 64 75 72 65 20 6c 61 65 73 42 68 6f 76 65 64 ┆æ maal å procedure laesBhoved┆
0x35a80…35aa0 3b 0d 0a 62 65 67 69 6e 0d 0a 20 20 73 6c 65 74 28 31 30 2c 32 30 2c 30 29 3b 0d 0a 20 20 66 6f ┆; begin slet(10,20,0); fo┆
0x35aa0…35ac0 72 20 6a 3a 3d 20 31 20 74 6f 20 34 20 64 6f 20 62 65 67 69 6e 0d 0a 20 20 20 20 67 6f 74 6f 78 ┆r j:= 1 to 4 do begin gotox┆
0x35ac0…35ae0 79 28 31 30 2c 31 36 29 3b 20 77 72 69 74 65 28 40 32 29 3b 0d 0a 20 20 20 20 66 6f 72 20 69 3a ┆y(10,16); write(@2); for i:┆
0x35ae0…35b00 3d 20 31 20 74 6f 20 35 30 30 20 64 6f 20 67 6f 74 6f 78 79 28 30 2c 30 29 3b 20 77 72 69 74 65 ┆= 1 to 500 do gotoxy(0,0); write┆
0x35b00…35b20 28 40 31 29 0d 0a 20 20 65 6e 64 3b 0d 0a 20 20 67 6f 74 6f 78 79 28 30 2c 30 29 3b 20 77 72 69 ┆(@1) end; gotoxy(0,0); wri┆
0x35b20…35b40 74 65 28 27 42 65 72 65 67 6e 69 6e 67 73 73 6b 65 6d 61 3a 27 3a 34 38 29 3b 0d 0a 20 20 67 6f ┆te('Beregningsskema:':48); go┆
0x35b40…35b60 74 6f 78 79 28 30 2c 32 34 29 3b 0d 0a 20 20 77 72 69 74 65 28 53 4c 45 54 45 4f 4c 2c 27 27 3a ┆toxy(0,24); write(SLETEOL,'':┆
0x35b60…35b80 31 30 2c 27 41 6e 74 61 6c 20 73 7c 6a 6c 65 72 28 31 2e 2e 27 2c 4d 41 58 53 4f 4a 4c 45 2c 27 ┆10,'Antal søjler(1..',MAXSOJLE,'┆
0x35b80…35ba0 29 20 3a 20 27 2c 6f 70 67 2e 62 73 6f 6a 6c 65 2c 54 49 4c 42 29 3b 0d 0a 20 20 6f 70 67 2e 62 ┆) : ',opg.bsojle,TILB); opg.b┆
0x35ba0…35bc0 73 6f 6a 6c 65 3a 3d 20 6c 61 65 73 69 6e 74 28 6f 70 67 2e 62 73 6f 6a 6c 65 2c 31 2c 4d 41 58 ┆sojle:= laesint(opg.bsojle,1,MAX┆
0x35bc0…35be0 53 4f 4a 4c 45 29 3b 0d 0a 20 20 54 45 47 4e 53 4b 45 4d 41 28 6f 70 67 2e 62 73 6f 6a 6c 65 2c ┆SOJLE); TEGNSKEMA(opg.bsojle,┆
0x35be0…35c00 31 2c 30 29 3b 0d 0a 20 20 6c 61 6e 67 3a 3d 20 62 72 65 64 64 65 2d 31 3b 20 69 66 20 6c 61 6e ┆1,0); lang:= bredde-1; if lan┆
0x35c00…35c20 (24, 0, 5) 09 52 45 41 44 28 49 4e 44 46 2c 43 48 29 3b 0d 0a 09 09 09 49 46 20 43 48 3d 54 41 42 20 54 48 ┆ READ(INDF,CH); IF CH=TAB TH┆
0x35c20…35c40 45 4e 20 57 52 49 54 45 28 27 20 20 20 20 20 20 20 20 27 29 20 45 4c 53 45 20 57 52 49 54 45 28 ┆EN WRITE(' ') ELSE WRITE(┆
0x35c40…35c60 43 48 29 3b 0d 0a 09 09 09 49 46 20 43 48 20 3d 20 52 45 54 55 52 20 54 48 45 4e 20 4b 3a 3d 4b ┆CH); IF CH = RETUR THEN K:=K┆
0x35c60…35c80 2b 31 3b 0d 0a 09 09 55 4e 54 49 4c 20 28 4b 3d 31 32 29 20 4f 52 20 45 4f 46 28 49 4e 44 46 29 ┆+1; UNTIL (K=12) OR EOF(INDF)┆
0x35c80…35ca0 3b 0d 0a 09 09 52 45 41 44 28 4b 42 44 2c 53 56 41 52 29 0d 0a 09 55 4e 54 49 4c 20 28 53 56 41 ┆; READ(KBD,SVAR) UNTIL (SVA┆
0x35ca0…35cc0 52 20 3d 20 45 53 43 29 20 4f 52 20 45 4f 46 28 49 4e 44 46 29 3b 0d 0a 09 47 4f 54 4f 58 59 28 ┆R = ESC) OR EOF(INDF); GOTOXY(┆
0x35cc0…35ce0 30 2c 30 29 3b 20 57 52 49 54 45 28 43 4c 52 45 4f 53 29 3b 0d 0a 45 4e 44 0d 0a 45 4e 44 3b 09 ┆0,0); WRITE(CLREOS); END END; ┆
0x35ce0…35d00 7b 20 68 65 6e 74 68 6a 61 65 6c 70 20 7d 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 20 54 45 47 4e ┆æ henthjaelp å PROCEDURE TEGN┆
0x35d00…35d20 4d 45 4e 55 3b 0d 0a 42 45 47 49 4e 0d 0a 42 53 54 52 3a 3d 43 4f 50 59 28 42 53 54 52 31 2c 32 ┆MENU; BEGIN BSTR:=COPY(BSTR1,2┆
0x35d20…35d40 2c 31 39 29 3b 0d 0a 67 6f 74 6f 78 79 28 30 2c 32 30 29 3b 20 57 52 49 54 45 28 63 6c 72 65 6f ┆,19); gotoxy(0,20); WRITE(clreo┆
0x35d40…35d60 6c 2c 27 20 20 27 2c 42 53 54 52 2c 42 53 54 52 2c 42 53 54 52 2c 42 53 54 52 29 3b 0d 0a 67 6f ┆l,' ',BSTR,BSTR,BSTR,BSTR); go┆
0x35d60…35d80 74 6f 78 79 28 30 2c 32 32 29 3b 20 57 52 49 54 45 28 63 6c 72 65 6f 6c 2c 27 20 20 27 2c 42 53 ┆toxy(0,22); WRITE(clreol,' ',BS┆
0x35d80…35da0 54 52 2c 42 53 54 52 2c 42 53 54 52 2c 42 53 54 52 29 3b 0d 0a 47 4f 54 4f 58 59 28 30 2c 32 31 ┆TR,BSTR,BSTR,BSTR); GOTOXY(0,21┆
0x35da0…35dc0 29 3b 20 57 52 49 54 45 28 63 6c 72 65 6f 6c 2c 27 27 3a 38 29 3b 0d 0a 57 52 49 54 45 28 27 56 ┆); WRITE(clreol,'':8); WRITE('V┆
0x35dc0…35de0 65 6a 6c 65 64 6e 2e 20 20 4d 7d 6c 74 61 6c 2c 20 20 20 46 75 6e 6b 74 69 6f 6e 2c 20 42 65 72 ┆ejledn. Måltal, Funktion, Ber┆
0x35de0…35e00 65 67 6e 2c 20 20 20 47 65 6d 2c 20 20 20 20 20 20 48 65 6e 74 2c 20 20 20 20 20 53 74 6f 70 27 ┆egn, Gem, Hent, Stop'┆
0x35e00…35e20 (24, 0, 6) 67 20 3e 31 32 20 74 68 65 6e 20 6c 61 6e 67 3a 3d 31 32 3b 0d 0a 20 20 77 69 74 68 20 6f 70 67 ┆g >12 then lang:=12; with opg┆
0x35e20…35e40 20 64 6f 20 72 65 70 65 61 74 0d 0a 20 20 20 20 69 3a 3d 20 30 3b 0d 0a 20 20 20 20 72 65 70 65 ┆ do repeat i:= 0; repe┆
0x35e40…35e60 61 74 0d 0a 20 20 20 20 20 20 61 6b 74 69 76 28 32 29 3b 20 65 6e 73 3a 3d 20 66 61 6c 73 65 3b ┆at aktiv(2); ens:= false;┆
0x35e60…35e80 20 69 3a 3d 20 69 2b 31 3b 0d 0a 20 20 20 20 20 20 54 45 53 54 4e 41 56 4e 28 62 6e 61 76 6e 5b ┆ i:= i+1; TESTNAVN(bnavnÆ┆
0x35e80…35ea0 49 5d 29 3b 20 42 52 45 4e 5b 49 5d 3a 3d 46 4e 41 56 4e 28 42 4e 41 56 4e 5b 49 5d 29 3b 0d 0a ┆IÅ); BRENÆIÅ:=FNAVN(BNAVNÆIÅ); ┆
0x35ea0…35ec0 20 20 20 20 20 20 66 6f 72 20 6a 3a 3d 20 31 20 74 6f 20 61 73 6f 6a 6c 65 20 64 6f 20 65 6e 73 ┆ for j:= 1 to asojle do ens┆
0x35ec0…35ee0 3a 3d 20 65 6e 73 20 4f 52 20 28 41 52 45 4e 5b 6a 5d 20 3d 20 42 52 45 4e 5b 69 5d 29 3b 0d 0a ┆:= ens OR (ARENÆjÅ = BRENÆiÅ); ┆
0x35ee0…35f00 20 20 20 20 20 20 66 6f 72 20 6a 3a 3d 20 31 20 74 6f 20 49 2d 31 20 64 6f 20 65 6e 73 3a 3d 20 ┆ for j:= 1 to I-1 do ens:= ┆
0x35f00…35f20 65 6e 73 20 4f 52 20 28 42 52 45 4e 5b 6a 5d 20 3d 20 42 52 45 4e 5b 69 5d 29 3b 0d 0a 20 20 20 ┆ens OR (BRENÆjÅ = BRENÆiÅ); ┆
0x35f20…35f40 20 20 20 69 66 20 65 6e 73 20 74 68 65 6e 20 62 65 67 69 6e 0d 0a 20 20 20 20 20 20 20 20 42 6e ┆ if ens then begin Bn┆
0x35f40…35f60 61 76 6e 5b 69 5d 3a 3d 27 27 3b 20 69 3a 3d 20 69 2d 31 3b 20 46 45 4a 4c 28 31 29 0d 0a 20 20 ┆avnÆiÅ:=''; i:= i-1; FEJL(1) ┆
0x35f60…35f80 20 20 20 20 65 6e 64 20 0d 0a 20 20 20 20 75 6e 74 69 6c 20 28 69 3d 20 62 73 6f 6a 6c 65 29 20 ┆ end until (i= bsojle) ┆
0x35f80…35fa0 61 6e 64 20 6e 6f 74 20 65 6e 73 0d 0a 20 20 75 6e 74 69 6c 20 6f 6b 28 32 29 0d 0a 65 6e 64 3b ┆and not ens until ok(2) end;┆
0x35fa0…35fc0 09 7b 20 6c 61 65 73 42 68 6f 76 65 64 20 7d 0d 0a 0d 0a 70 72 6f 63 65 64 75 72 65 20 6c 61 65 ┆ æ laesBhoved å procedure lae┆
0x35fc0…35fe0 73 46 3b 0d 0a 56 41 52 09 50 56 45 4e 53 54 52 45 2c 50 48 4f 4a 52 45 3a 20 42 59 54 45 3b 0d ┆sF; VAR PVENSTRE,PHOJRE: BYTE; ┆
0x35fe0…36000 0a 62 65 67 69 6e 0d 0a 20 20 73 6c 65 74 28 31 30 2c 32 30 2c 30 29 3b 0d 0a 20 20 77 69 74 68 ┆ begin slet(10,20,0); with┆
0x36000…36020 (24, 0, 7) 29 3b 0d 0a 45 4e 44 3b 09 7b 20 74 65 67 6e 6d 65 6e 75 20 7d 0d 0a 0d 0a 28 2a 20 3d 3d 3d 3d ┆); END; æ tegnmenu å (* ====┆
0x36020…36040 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 20 48 20 4f 20 56 20 45 20 44 20 50 20 52 20 4f 20 47 20 ┆============= H O V E D P R O G ┆
0x36040…36060 52 20 41 20 4d 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 2a ┆R A M =========================*┆
0x36060…36080 29 0d 0a 62 65 67 69 6e 0d 0a 47 4f 54 4f 58 59 28 30 2c 30 29 3b 20 57 52 49 54 45 28 43 4c 52 ┆) begin GOTOXY(0,0); WRITE(CLR┆
0x36080…360a0 45 4f 53 29 3b 20 56 45 4a 4c 45 44 4e 49 4e 47 3b 20 4c 3a 3d 31 3b 20 4c 31 3a 3d 31 3b 53 3a ┆EOS); VEJLEDNING; L:=1; L1:=1;S:┆
0x360a0…360c0 3d 27 4d 27 3b 0d 0a 54 45 47 4e 4d 45 4e 55 3b 0d 0a 4e 55 4c 53 54 49 4c 3b 0d 0a 47 4f 54 4f ┆='M'; TEGNMENU; NULSTIL; GOTO┆
0x360c0…360e0 58 59 28 30 2c 32 33 29 3b 20 57 52 49 54 45 28 27 27 3a 31 30 2c 27 45 72 20 64 65 72 20 61 64 ┆XY(0,23); WRITE('':10,'Er der ad┆
0x360e0…36100 67 61 6e 67 20 74 69 6c 20 70 72 69 6e 74 65 72 27 29 3b 0d 0a 50 52 49 4e 54 45 52 3a 3d 20 59 ┆gang til printer'); PRINTER:= Y┆
0x36100…36120 4e 20 3d 20 27 59 27 3b 20 53 4c 45 54 28 32 33 2c 32 33 2c 30 29 3b 0d 0a 52 45 50 45 41 54 0d ┆N = 'Y'; SLET(23,23,0); REPEAT ┆
0x36120…36140 0a 09 67 6f 74 6f 78 79 28 38 2b 4c 2a 31 30 2c 32 31 29 3b 20 52 45 41 44 28 4b 42 44 2c 43 48 ┆ gotoxy(8+L*10,21); READ(KBD,CH┆
0x36140…36160 29 3b 20 43 48 3a 3d 20 55 50 43 48 41 52 28 43 48 29 3b 0d 0a 09 49 46 20 43 48 20 49 4e 20 5b ┆); CH:= UPCHAR(CH); IF CH IN Æ┆
0x36160…36180 54 49 4c 42 2c 46 52 45 4d 2c 4f 50 2c 4e 45 44 5d 20 54 48 45 4e 20 43 41 53 45 20 43 48 20 4f ┆TILB,FREM,OP,NEDÅ THEN CASE CH O┆
0x36180…361a0 46 0d 0a 09 09 54 49 4c 42 2c 4e 45 44 3a 20 4c 3a 3d 20 28 4c 2b 36 29 20 4d 4f 44 20 37 3b 0d ┆F TILB,NED: L:= (L+6) MOD 7; ┆
0x361a0…361c0 0a 09 09 46 52 45 4d 2c 4f 50 20 3a 20 4c 3a 3d 20 28 4c 2b 31 29 20 4d 4f 44 20 37 3b 0d 0a 09 ┆ FREM,OP : L:= (L+1) MOD 7; ┆
0x361c0…361e0 45 4e 44 3b 0d 0a 09 47 4f 54 4f 58 59 28 38 2b 4c 2a 31 30 2c 32 31 29 3b 0d 0a 09 53 3a 3d 53 ┆END; GOTOXY(8+L*10,21); S:=S┆
0x361e0…36200 4e 41 56 4e 5b 4c 5d 3b 20 4c 31 3a 3d 20 50 4f 53 28 43 48 2c 27 56 4d 46 42 47 48 53 27 2b 52 ┆NAVNÆLÅ; L1:= POS(CH,'VMFBGHS'+R┆
0x36200…36400 (24, 0, 8) DataBlock {»PKOVELSE.MID«}
0x36400…36420 (24, 0, 9) 45 54 55 52 29 3b 0d 0a 09 49 46 20 4c 31 20 3e 20 30 20 54 48 45 4e 20 42 45 47 49 4e 0d 0a 09 ┆ETUR); IF L1 > 0 THEN BEGIN ┆
0x36420…36440 09 49 46 20 43 48 20 3c 3e 20 52 45 54 55 52 20 20 54 48 45 4e 20 42 45 47 49 4e 0d 0a 09 09 09 ┆ IF CH <> RETUR THEN BEGIN ┆
0x36440…36460 4c 3a 3d 4c 31 2d 31 3b 20 53 3a 3d 53 4e 41 56 4e 5b 4c 5d 20 45 4e 44 3b 0d 0a 09 09 43 41 53 ┆L:=L1-1; S:=SNAVNÆLÅ END; CAS┆
0x36460…36480 45 20 53 20 4f 46 0d 0a 09 09 09 27 56 27 3a 20 48 45 4e 54 48 4a 41 45 4c 50 3b 0d 0a 09 09 09 ┆E S OF 'V': HENTHJAELP; ┆
0x36480…364a0 27 4d 27 3a 20 4d 41 41 4c 3b 0d 0a 09 09 09 27 46 27 3a 20 46 55 4e 4b 54 49 4f 4e 42 3b 0d 0a ┆'M': MAAL; 'F': FUNKTIONB; ┆
0x364a0…364c0 09 09 09 27 42 27 3a 20 42 45 52 45 47 4e 42 3b 0d 0a 09 09 09 27 47 27 2c 27 48 27 3a 20 47 45 ┆ 'B': BEREGNB; 'G','H': GE┆
0x364c0…364e0 4d 48 45 4e 54 28 53 29 0d 0a 09 09 45 4e 44 3b 0d 0a 09 54 45 47 4e 4d 45 4e 55 0d 0a 09 45 4e ┆MHENT(S) END; TEGNMENU EN┆
0x364e0…36500 44 0d 0a 55 4e 54 49 4c 20 28 43 48 3d 27 53 27 29 20 4f 52 20 28 28 53 3d 27 53 27 29 20 41 4e ┆D UNTIL (CH='S') OR ((S='S') AN┆
0x36500…36520 44 20 28 43 48 3d 52 45 54 55 52 29 29 3b 0d 0a 47 4f 54 4f 58 59 28 30 2c 30 29 3b 20 77 72 69 ┆D (CH=RETUR)); GOTOXY(0,0); wri┆
0x36520…36540 74 65 6c 6e 28 43 4c 52 45 4f 53 2c 27 44 65 74 20 76 61 72 20 68 79 67 67 65 6c 69 67 74 2e 2e ┆teln(CLREOS,'Det var hyggeligt..┆
0x36540…36560 27 29 0d 0a 65 6e 64 2e 0d 0a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆') end. ┆
0x36560…36580 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 ┆ ┆
0x36580…365a0 46 0d 0a 09 09 54 49 4c 42 2c 4e 45 44 3a 20 4c 3a 3d 20 28 4c 2b 36 29 20 4d 4f 44 20 37 3b 0d ┆F TILB,NED: L:= (L+6) MOD 7; ┆
0x365a0…365c0 0a 09 09 46 52 45 4d 2c 4f 50 20 3a 20 4c 3a 3d 20 28 4c 2b 31 29 20 4d 4f 44 20 37 3b 0d 0a 09 ┆ FREM,OP : L:= (L+1) MOD 7; ┆
0x365c0…365e0 45 4e 44 3b 0d 0a 09 47 4f 54 4f 58 59 28 38 2b 4c 2a 31 30 2c 32 31 29 3b 0d 0a 09 53 3a 3d 53 ┆END; GOTOXY(8+L*10,21); S:=S┆
0x365e0…36600 4e 41 56 4e 5b 4c 5d 3b 20 4c 31 3a 3d 20 50 4f 53 28 43 48 2c 27 56 4d 46 42 47 48 53 27 2b 52 ┆NAVNÆLÅ; L1:= POS(CH,'VMFBGHS'+R┆
0x36600…36800 (24, 1, 1) DataBlock {»PKOVELSE.MID«}
[…0x4…]
0x37000…37020 (24, 1, 6) 20 6f 70 67 20 64 6f 20 72 65 70 65 61 74 0d 0a 20 20 20 20 66 6f 72 20 4a 3a 3d 20 31 20 74 6f ┆ opg do repeat for J:= 1 to┆
0x37020…37040 20 42 73 6f 6a 6c 65 20 64 6f 20 62 65 67 69 6e 0d 0a 20 20 20 20 20 20 52 45 50 45 41 54 0d 0a ┆ Bsojle do begin REPEAT ┆
0x37040…37060 20 20 20 20 20 20 20 20 41 6b 74 69 76 28 32 29 3b 0d 0a 20 20 20 20 20 20 20 20 67 6f 74 6f 78 ┆ Aktiv(2); gotox┆
0x37060…37080 79 28 35 2c 31 30 2b 4a 29 3b 20 4c 4f 56 4c 49 47 3a 3d 20 54 52 55 45 3b 20 50 76 65 6e 73 74 ┆y(5,10+J); LOVLIG:= TRUE; Pvenst┆
0x37080…370a0 72 65 3a 3d 30 3b 20 50 68 6f 6a 72 65 3a 3d 30 3b 0d 0a 20 20 20 20 20 20 20 20 77 72 69 74 65 ┆re:=0; Phojre:=0; write┆
0x370a0…370c0 28 53 4c 45 54 45 4f 4c 2c 27 46 6f 72 73 6b 72 69 66 74 2c 20 27 2c 20 42 52 45 4e 5b 4a 5d 2c ┆(SLETEOL,'Forskrift, ', BRENÆJÅ,┆
0x370c0…370e0 27 20 3a 3d 20 27 29 3b 0d 0a 20 20 20 20 20 20 20 20 46 5b 4a 5d 3a 3d 20 73 74 72 65 6e 67 28 ┆' := '); FÆJÅ:= streng(┆
0x370e0…37100 46 5b 4a 5d 2c 33 30 2c 31 30 2b 4a 2c 34 39 29 3b 20 46 5b 4a 5d 3a 3d 20 55 50 43 41 53 45 28 ┆FÆJÅ,30,10+J,49); FÆJÅ:= UPCASE(┆
0x37100…37120 46 5b 4a 5d 29 3b 0d 0a 20 20 20 20 20 20 20 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 4c 45 4e 28 ┆FÆJÅ); FOR I:=1 TO LEN(┆
0x37120…37140 46 5b 4a 5d 29 20 44 4f 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 4c 4f 56 4c 49 47 ┆FÆJÅ) DO BEGIN LOVLIG┆
0x37140…37160 3a 3d 28 46 5b 4a 5d 5b 49 5d 20 49 4e 20 42 4f 47 53 54 41 56 2b 43 49 46 46 45 52 2b 4f 50 45 ┆:=(FÆJÅÆIÅ IN BOGSTAV+CIFFER+OPE┆
0x37160…37180 52 41 54 4f 52 29 20 41 4e 44 20 4c 4f 56 4c 49 47 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 50 56 ┆RATOR) AND LOVLIG; PV┆
0x37180…371a0 45 4e 53 54 52 45 3a 3d 20 50 56 45 4e 53 54 52 45 2b 50 4f 53 28 27 28 27 2c 46 5b 4a 5d 5b 49 ┆ENSTRE:= PVENSTRE+POS('(',FÆJÅÆI┆
0x371a0…371c0 5d 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 50 48 4f 4a 52 45 3a 3d 20 50 48 4f 4a 52 45 2b 50 ┆Å); PHOJRE:= PHOJRE+P┆
0x371c0…371e0 4f 53 28 27 29 27 2c 46 5b 4a 5d 5b 49 5d 29 0d 0a 20 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 ┆OS(')',FÆJÅÆIÅ) END; ┆
0x371e0…37200 20 20 20 20 20 20 20 4c 4f 56 4c 49 47 3a 3d 20 4c 4f 56 4c 49 47 20 41 4e 44 20 28 50 56 45 4e ┆ LOVLIG:= LOVLIG AND (PVEN┆
0x37200…37400 (24, 1, 7) DataBlock {»PKOVELSE.MID«}
0x37400…37420 (24, 1, 8) 53 54 52 45 20 3d 20 50 48 4f 4a 52 45 29 3b 0d 0a 20 20 20 20 20 20 20 20 49 46 20 4e 4f 54 20 ┆STRE = PHOJRE); IF NOT ┆
0x37420…37440 4c 4f 56 4c 49 47 20 54 48 45 4e 20 46 45 4a 4c 28 32 29 0d 0a 20 20 20 20 20 20 55 4e 54 49 4c ┆LOVLIG THEN FEJL(2) UNTIL┆
0x37440…37460 20 4c 4f 56 4c 49 47 0d 0a 20 20 20 20 65 6e 64 0d 0a 20 20 75 6e 74 69 6c 20 6f 6b 28 33 29 3b ┆ LOVLIG end until ok(3);┆
0x37460…37480 0d 0a 20 20 69 66 20 70 72 69 6e 74 65 72 20 74 68 65 6e 20 69 66 20 75 64 73 6b 72 28 32 29 20 ┆ if printer then if udskr(2) ┆
0x37480…374a0 74 68 65 6e 20 73 6b 72 69 76 73 6b 61 72 6d 28 31 30 2c 31 30 2b 4f 50 47 2e 62 73 6f 6a 6c 65 ┆then skrivskarm(10,10+OPG.bsojle┆
0x374a0…374c0 29 20 0d 0a 45 4e 44 3b 09 7b 20 6c 61 65 73 46 20 7d 0d 0a 0d 0a 70 72 6f 63 65 64 75 72 65 20 ┆) END; æ laesF å procedure ┆
0x374c0…374e0 6e 79 74 66 6f 72 6d 61 74 3b 0d 0a 62 65 67 69 6e 0d 0a 67 6f 74 6f 78 79 28 30 2c 32 34 29 3b ┆nytformat; begin gotoxy(0,24);┆
0x374e0…37500 20 77 72 69 74 65 28 53 4c 45 54 45 4f 4c 2c 27 27 3a 31 30 2c 27 5b 6e 64 72 65 74 20 66 6f 72 ┆ write(SLETEOL,'':10,'Ændret for┆
0x37500…37520 6d 61 74 20 69 20 75 64 73 6b 72 69 66 74 27 29 3b 0d 0a 6e 79 74 66 3a 3d 20 59 4e 20 3d 20 27 ┆mat i udskrift'); nytf:= YN = '┆
0x37520…37540 59 27 3b 0d 0a 69 66 20 6e 79 74 66 20 74 68 65 6e 20 62 65 67 69 6e 0d 0a 09 73 6c 65 74 28 31 ┆Y'; if nytf then begin slet(1┆
0x37540…37560 30 2c 32 30 2c 30 29 3b 20 67 6f 74 6f 78 79 28 30 2c 31 32 29 3b 0d 0a 09 77 72 69 74 65 6c 6e ┆0,20,0); gotoxy(0,12); writeln┆
0x37560…37580 28 27 27 3a 31 30 2c 27 41 6e 67 69 76 20 66 6f 72 20 68 76 65 72 20 73 7c 6a 6c 65 2c 27 29 3b ┆('':10,'Angiv for hver søjle,');┆
0x37580…375a0 0d 0a 09 77 72 69 74 65 6c 6e 28 27 27 3a 31 30 2c 27 6f 6d 20 64 75 20 76 69 6c 20 68 61 76 65 ┆ writeln('':10,'om du vil have┆
0x375a0…375c0 20 65 6b 73 70 6f 6e 65 6e 74 69 65 6c 20 28 45 30 2e 2e 45 37 29 27 29 3b 0d 0a 09 77 72 69 74 ┆ eksponentiel (E0..E7)'); writ┆
0x375c0…375e0 65 6c 6e 28 27 27 3a 31 30 2c 27 65 6c 6c 65 72 20 64 65 63 69 6d 61 6c 20 6e 6f 74 61 74 69 6f ┆eln('':10,'eller decimal notatio┆
0x375e0…37600 6e 20 20 20 20 20 20 28 44 30 2e 2e 44 37 29 2e 27 29 3b 0d 0a 09 77 72 69 74 65 6c 6e 28 27 27 ┆n (D0..D7).'); writeln(''┆
0x37600…37800 (24, 1, 9) DataBlock {»PKOVELSE.MID«}
0x37800…37820 (25, 0, 1) 3a 31 30 2c 27 64 6f 67 20 7b 6e 64 72 65 73 20 66 6f 72 6d 61 74 65 74 2c 20 68 76 69 73 20 74 ┆:10,'dog ændres formatet, hvis t┆
0x37820…37840 61 6c 6c 65 74 20 66 79 6c 64 65 72 20 66 6f 72 20 6d 65 67 65 74 27 29 3b 0d 0a 09 77 72 69 74 ┆allet fylder for meget'); writ┆
0x37840…37860 65 6c 6e 28 27 27 3a 31 30 2c 27 65 6b 73 2e 20 45 32 20 62 65 74 79 64 65 72 20 65 6b 73 70 6f ┆eln('':10,'eks. E2 betyder ekspo┆
0x37860…37880 6e 65 6e 74 69 65 6c 20 6e 6f 74 61 74 69 6f 6e 20 69 20 32 20 2b 20 35 20 66 65 6c 74 65 72 27 ┆nentiel notation i 2 + 5 felter'┆
0x37880…378a0 29 3b 0d 0a 09 77 72 69 74 65 6c 6e 28 27 27 3a 31 30 2c 27 20 20 20 20 20 44 33 20 62 65 74 79 ┆); writeln('':10,' D3 bety┆
0x378a0…378c0 64 65 72 20 33 20 64 65 63 69 6d 61 6c 65 72 2e 27 29 3b 0d 0a 09 66 6f 72 20 69 3a 3d 20 31 20 ┆der 3 decimaler.'); for i:= 1 ┆
0x378c0…378e0 74 6f 20 6f 70 67 2e 62 73 6f 6a 6c 65 20 64 6f 20 62 65 67 69 6e 0d 0a 09 09 52 45 50 45 41 54 ┆to opg.bsojle do begin REPEAT┆
0x378e0…37900 0d 0a 09 09 09 66 6f 72 6d 5b 49 5d 3a 3d 73 74 72 65 6e 67 28 66 6f 72 6d 5b 69 5d 2c 72 62 68 ┆ formÆIÅ:=streng(formÆiÅ,rbh┆
0x37900…37920 2b 49 2a 28 62 72 65 64 64 65 2b 31 29 2c 31 31 2c 32 29 3b 0d 0a 09 09 09 66 6f 72 6d 5b 49 5d ┆+I*(bredde+1),11,2); formÆIÅ┆
0x37920…37940 3a 3d 20 75 70 63 61 73 65 28 66 6f 72 6d 5b 69 5d 29 3b 0d 0a 09 09 55 4e 54 49 4c 20 28 66 6f ┆:= upcase(formÆiÅ); UNTIL (fo┆
0x37940…37960 72 6d 5b 69 5d 5b 31 5d 20 69 6e 20 5b 27 44 27 2c 27 45 27 5d 29 20 61 6e 64 20 28 66 6f 72 6d ┆rmÆiÅÆ1Å in Æ'D','E'Å) and (form┆
0x37960…37980 5b 69 5d 5b 32 5d 20 69 6e 20 5b 27 30 27 2e 2e 27 37 27 5d 29 3b 0d 0a 09 09 69 66 20 66 6f 72 ┆ÆiÅÆ2Å in Æ'0'..'7'Å); if for┆
0x37980…379a0 6d 5b 69 5d 5b 31 5d 20 3d 20 27 44 27 20 74 68 65 6e 20 64 65 63 5b 69 5d 3a 3d 20 6f 72 64 28 ┆mÆiÅÆ1Å = 'D' then decÆiÅ:= ord(┆
0x379a0…379c0 66 6f 72 6d 5b 69 5d 5b 32 5d 29 2d 20 34 38 0d 0a 09 09 65 6c 73 65 20 64 65 63 5b 69 5d 3a 3d ┆formÆiÅÆ2Å)- 48 else decÆiÅ:=┆
0x379c0…379e0 20 6f 72 64 28 66 6f 72 6d 5b 69 5d 5b 32 5d 29 20 2d 20 34 33 3b 0d 0a 09 09 49 46 20 44 45 43 ┆ ord(formÆiÅÆ2Å) - 43; IF DEC┆
0x379e0…37a00 5b 49 5d 20 3e 20 4c 41 4e 47 20 54 48 45 4e 20 44 45 43 5b 49 5d 3a 3d 4c 41 4e 47 0d 0a 09 65 ┆ÆIÅ > LANG THEN DECÆIÅ:=LANG e┆
0x37a00…37a20 (25, 0, 2) 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 20 48 20 4f 20 56 20 45 20 44 20 50 20 52 20 4f 20 47 20 52 ┆============ H O V E D P R O G R┆
0x37a20…37a40 20 41 20 4d 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 2a 29 ┆ A M =========================*)┆
0x37a40…37a60 0d 0a 62 65 67 69 6e 0d 0a 47 4f 54 4f 58 59 28 30 2c 30 29 3b 20 57 52 49 54 45 28 53 4c 45 54 ┆ begin GOTOXY(0,0); WRITE(SLET┆
0x37a60…37a80 45 4f 53 29 3b 20 56 45 4a 4c 45 44 4e 49 4e 47 3b 20 4c 3a 3d 31 3b 20 4c 31 3a 3d 31 3b 53 3a ┆EOS); VEJLEDNING; L:=1; L1:=1;S:┆
0x37a80…37aa0 3d 27 4d 27 3b 0d 0a 42 53 54 52 3a 3d 43 4f 50 59 28 42 53 54 52 31 2c 32 2c 31 39 29 3b 0d 0a ┆='M'; BSTR:=COPY(BSTR1,2,19); ┆
0x37aa0…37ac0 67 6f 74 6f 78 79 28 32 2c 32 31 29 3b 20 57 52 49 54 45 28 42 53 54 52 2c 42 53 54 52 2c 42 53 ┆gotoxy(2,21); WRITE(BSTR,BSTR,BS┆
0x37ac0…37ae0 54 52 2c 42 53 54 52 29 3b 0d 0a 67 6f 74 6f 78 79 28 32 2c 32 33 29 3b 20 57 52 49 54 45 28 42 ┆TR,BSTR); gotoxy(2,23); WRITE(B┆
0x37ae0…37b00 53 54 52 2c 42 53 54 52 2c 42 53 54 52 2c 42 53 54 52 29 3b 0d 0a 47 4f 54 4f 58 59 28 38 2c 32 ┆STR,BSTR,BSTR,BSTR); GOTOXY(8,2┆
0x37b00…37b20 32 29 3b 0d 0a 57 52 49 54 45 28 27 56 65 6a 6c 65 64 6e 2e 20 20 4d 7d 6c 74 61 6c 2c 20 20 20 ┆2); WRITE('Vejledn. Måltal, ┆
0x37b20…37b40 46 75 6e 6b 74 69 6f 6e 2c 20 42 65 72 65 67 6e 2c 20 20 20 47 65 6d 2c 20 20 20 20 20 20 48 65 ┆Funktion, Beregn, Gem, He┆
0x37b40…37b60 6e 74 2c 20 20 20 20 20 53 74 6f 70 27 29 3b 0d 0a 4e 55 4c 53 54 49 4c 3b 0d 0a 47 4f 54 4f 58 ┆nt, Stop'); NULSTIL; GOTOX┆
0x37b60…37b80 59 28 30 2c 32 34 29 3b 20 57 52 49 54 45 28 27 27 3a 31 30 2c 27 45 72 20 64 65 72 20 61 64 67 ┆Y(0,24); WRITE('':10,'Er der adg┆
0x37b80…37ba0 61 6e 67 20 74 69 6c 20 70 72 69 6e 74 65 72 27 29 3b 0d 0a 50 52 49 4e 54 45 52 3a 3d 20 59 4e ┆ang til printer'); PRINTER:= YN┆
0x37ba0…37bc0 20 3d 20 27 59 27 3b 20 53 4c 45 54 28 32 34 2c 32 34 2c 30 29 3b 0d 0a 52 45 50 45 41 54 0d 0a ┆ = 'Y'; SLET(24,24,0); REPEAT ┆
0x37bc0…37be0 09 67 6f 74 6f 78 79 28 38 2b 4c 2a 31 30 2c 32 32 29 3b 20 52 45 41 44 28 4b 42 44 2c 43 48 29 ┆ gotoxy(8+L*10,22); READ(KBD,CH)┆
0x37be0…37c00 3b 20 43 48 3a 3d 20 55 50 43 48 41 52 28 43 48 29 3b 0d 0a 09 49 46 20 43 48 20 49 4e 20 5b 54 ┆; CH:= UPCHAR(CH); IF CH IN ÆT┆
0x37c00…37c20 (25, 0, 3) 6e 64 0d 0a 65 6e 64 0d 0a 65 6e 64 3b 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 20 72 65 67 6e 42 ┆nd end end; PROCEDURE regnB┆
0x37c20…37c40 3b 0d 0a 76 61 72 09 4d 49 4e 55 53 3a 20 42 59 54 45 3b 20 42 4a 4b 3a 20 52 45 41 4c 3b 0d 0a ┆; var MINUS: BYTE; BJK: REAL; ┆
0x37c40…37c60 62 65 67 69 6e 0d 0a 77 69 74 68 20 6f 70 67 20 64 6f 20 62 65 67 69 6e 0d 0a 53 4c 45 54 28 34 ┆begin with opg do begin SLET(4┆
0x37c60…37c80 2c 32 30 2c 30 29 3b 20 49 46 20 52 41 4b 4b 45 20 3d 20 31 37 20 54 48 45 4e 20 53 4c 45 54 28 ┆,20,0); IF RAKKE = 17 THEN SLET(┆
0x37c80…37ca0 32 31 2c 32 31 2c 30 29 3b 0d 0a 74 65 67 6e 73 6b 65 6d 61 28 62 73 6f 6a 6c 65 2c 30 2c 72 61 ┆21,21,0); tegnskema(bsojle,0,ra┆
0x37ca0…37cc0 6b 6b 65 29 3b 0d 0a 46 4f 52 20 4b 3a 3d 20 31 20 54 4f 20 52 41 4b 4b 45 20 44 4f 20 42 45 47 ┆kke); FOR K:= 1 TO RAKKE DO BEG┆
0x37cc0…37ce0 49 4e 0d 0a 09 46 4f 52 20 4a 3a 3d 20 31 20 54 4f 20 42 53 4f 4a 4c 45 20 44 4f 20 42 45 47 49 ┆IN FOR J:= 1 TO BSOJLE DO BEGI┆
0x37ce0…37d00 4e 0d 0a 09 09 67 6f 74 6f 78 79 28 72 62 68 2b 4a 2a 28 62 72 65 64 64 65 2b 31 29 2c 34 2b 65 ┆N gotoxy(rbh+J*(bredde+1),4+e┆
0x37d00…37d20 6e 74 6f 2a 28 4b 2d 31 29 29 3b 0d 0a 09 09 42 45 52 45 47 4e 28 46 5b 4a 5d 2c 42 4a 4b 2c 46 ┆nto*(K-1)); BEREGN(FÆJÅ,BJK,F┆
0x37d20…37d40 45 4a 4c 41 52 54 29 3b 0d 0a 09 09 49 46 20 28 46 45 4a 4c 41 52 54 3d 30 29 20 54 48 45 4e 20 ┆EJLART); IF (FEJLART=0) THEN ┆
0x37d40…37d60 42 45 47 49 4e 0d 0a 09 09 49 46 20 42 4a 4b 20 3c 20 30 20 54 48 45 4e 20 4d 49 4e 55 53 3a 3d ┆BEGIN IF BJK < 0 THEN MINUS:=┆
0x37d60…37d80 31 20 45 4c 53 45 20 4d 49 4e 55 53 3a 3d 20 30 3b 0d 0a 09 09 69 66 20 28 66 6f 72 6d 5b 6a 5d ┆1 ELSE MINUS:= 0; if (formÆjÅ┆
0x37d80…37da0 5b 31 5d 3d 27 44 27 29 20 41 4e 44 20 28 61 62 73 28 42 4a 4b 29 3c 50 57 52 54 45 4e 28 4c 41 ┆Æ1Å='D') AND (abs(BJK)<PWRTEN(LA┆
0x37da0…37dc0 4e 47 2d 44 45 43 5b 4a 5d 2d 4d 49 4e 55 53 29 29 0d 0a 09 09 54 48 45 4e 20 57 52 49 54 45 28 ┆NG-DECÆJÅ-MINUS)) THEN WRITE(┆
0x37dc0…37de0 42 4a 4b 3a 6c 61 6e 67 3a 64 65 63 5b 6a 5d 29 20 65 6c 73 65 20 57 52 49 54 45 28 42 4a 4b 3a ┆BJK:lang:decÆjÅ) else WRITE(BJK:┆
0x37de0…37e00 44 45 43 5b 6a 5d 29 3b 0d 0a 09 09 53 54 52 28 42 4a 4b 3a 31 34 2c 4f 50 47 2e 42 5b 4a 2c 4b ┆DECÆjÅ); STR(BJK:14,OPG.BÆJ,K┆
0x37e00…37e20 (25, 0, 4) e6 18 cd 54 1d 2a 7c cb 4d ed 68 e5 21 04 00 d1 7c a2 67 7d a3 6f e5 21 04 00 d1 cd 9a 05 cb 45 ┆ T *ø M h ! ø gå o ! E┆
0x37e20…37e40 ca 05 29 2a 7a cb e5 21 00 00 c1 ed 69 2a 7c cb 4d ed 68 e5 21 04 00 d1 7c a2 67 7d a3 6f e5 21 ┆ )*z ! i*ø M h ! ø gå o !┆
0x37e40…37e60 04 00 d1 cd 9a 05 cb 45 ca 2d 29 2a 7a cb e5 21 00 00 c1 ed 69 cd ec 1d 7d 32 2a 4b 2a 2a 4b 26 ┆ E -)*z ! i å2*K**K&┆
0x37e60…37e80 00 e5 21 02 00 d1 cd 9a 05 cb 45 ca 44 2b 21 9e c4 e5 cd 2e 23 2a 33 4b 26 00 cb 45 ca 86 29 21 ┆ ! E D+! .#*3K& E )!┆
0x37e80…37ea0 00 00 e5 cd e6 1d 21 6e 4c e5 21 9e c4 cd 55 04 cd 83 12 cd a2 15 cd d7 18 0a 72 65 63 65 69 76 ┆ !nL ! U receiv┆
0x37ea0…37ec0 69 6e 67 20 21 9e c4 cd 55 04 21 00 00 cd c7 18 cd 54 1d 21 00 00 22 76 cb cd ec 1d 7d 32 2a 4b ┆ing ! U ! T ! "v å2*K┆
0x37ec0…37ee0 2a 2a 4b 26 00 e5 21 11 00 d1 cd 9a 05 cb 45 ca ba 2a 2a 76 cb e5 21 01 00 d1 19 22 76 cb 2a 76 ┆**K& ! E **v ! "v *v┆
0x37ee0…37f00 cb e5 21 f0 00 e5 21 01 00 d1 19 d1 cd 9a 05 cb 45 ca fd 29 21 6e 4c cd c9 13 cd 54 1d 2a 76 cb ┆ ! ! E )!nL T *v ┆
0x37f00…37f20 e5 21 f0 00 d1 cd 5b 06 e5 21 01 00 d1 cd 9a 05 e5 2a 76 cb e5 21 01 00 d1 cd e7 05 d1 7d a3 6f ┆ ! Æ ! *v ! å o┆
0x37f20…37f40 cb 45 ca 43 2a 21 6e 4c e5 21 9e 4c e5 21 01 00 2b 11 80 00 cd 10 06 d1 19 e5 21 f0 00 cd c4 1a ┆ E C*!nL ! L ! + ! ┆
0x37f40…37f60 cd 54 1d 21 9e 4c e5 2a 76 cb e5 21 01 00 d1 eb b7 ed 52 e5 21 f0 00 d1 cd 5b 06 e5 21 01 00 d1 ┆ T ! L *v ! R ! Æ ! ┆
0x37f60…37f80 19 2b 11 80 00 cd 10 06 d1 19 e5 cd 2d 1e cd ec 1d 7d 32 2a 4b 2a 2a 4b 26 00 e5 cd 9c 04 21 11 ┆ + - å2*K**K& ! ┆
0x37f80…37fa0 00 cd ac 04 21 03 00 cd ac 04 cd 6a 12 7d ee 01 6f cb 45 ca b7 2a cd a2 15 cd d7 18 06 65 72 72 ┆ ! j å o E * err┆
0x37fa0…37fc0 6f 72 31 cd 54 1d cd 79 15 cd b2 17 cd 54 1d 21 00 00 e5 d1 cd 1e 1d c3 c0 29 2a 76 cb e5 21 f0 ┆or1 T y T ! )*v ! ┆
0x37fc0…37fe0 00 e5 21 01 00 d1 19 d1 cd fb 05 cb 45 ca d9 2a 21 6e 4c cd c9 13 cd 54 1d 2a 76 cb e5 21 00 00 ┆ ! E *!nL T *v ! ┆
0x37fe0…38000 d1 cd e7 05 cb 45 ca 1e 2b 21 6e 4c e5 21 9e 4c e5 21 01 00 2b 11 80 00 cd 10 06 d1 19 e5 2a 76 ┆ E +!nL ! L ! + *v┆
0x38000…38020 (25, 0, 5) 5d 29 0d 0a 09 09 45 4e 44 20 45 4c 53 45 20 42 45 47 49 4e 0d 0a 09 09 09 57 52 49 54 45 28 66 ┆Å) END ELSE BEGIN WRITE(f┆
0x38020…38040 65 6a 6c 6e 61 76 6e 5b 66 65 6a 6c 61 72 74 5d 29 3b 20 4f 50 47 2e 42 5b 4a 2c 4b 5d 3a 3d 27 ┆ejlnavnÆfejlartÅ); OPG.BÆJ,KÅ:='┆
0x38040…38060 3f 27 0d 0a 09 09 45 4e 44 0d 0a 09 45 4e 44 0d 0a 45 4e 44 3b 0d 0a 65 6e 64 0d 0a 65 6e 64 3b ┆?' END END END; end end;┆
0x38060…38080 09 7b 20 72 65 67 6e 42 20 7d 0d 0a 0d 0a 70 72 6f 63 65 64 75 72 65 20 66 75 6e 6b 74 69 6f 6e ┆ æ regnB å procedure funktion┆
0x38080…380a0 42 3b 0d 0a 62 65 67 69 6e 0d 0a 09 4c 61 65 73 42 68 6f 76 65 64 3b 20 4c 61 65 73 46 0d 0a 65 ┆B; begin LaesBhoved; LaesF e┆
0x380a0…380c0 6e 64 3b 0d 0a 09 09 0d 0a 70 72 6f 63 65 64 75 72 65 20 62 65 72 65 67 6e 42 3b 0d 0a 62 65 67 ┆nd; procedure beregnB; beg┆
0x380c0…380e0 69 6e 0d 0a 66 6f 72 20 69 3a 3d 20 31 20 74 6f 20 6f 70 67 2e 62 73 6f 6a 6c 65 20 64 6f 20 62 ┆in for i:= 1 to opg.bsojle do b┆
0x380e0…38100 65 67 69 6e 20 46 4f 52 4d 5b 49 5d 3a 3d 27 45 27 2b 43 48 52 28 34 33 2b 4c 41 4e 47 29 3b 20 ┆egin FORMÆIÅ:='E'+CHR(43+LANG); ┆
0x38100…38120 44 45 43 5b 49 5d 3a 3d 4c 41 4e 47 20 65 6e 64 3b 0d 0a 72 65 70 65 61 74 0d 0a 09 72 65 67 6e ┆DECÆIÅ:=LANG end; repeat regn┆
0x38120…38140 42 3b 0d 0a 09 69 66 20 70 72 69 6e 74 65 72 20 74 68 65 6e 20 69 66 20 75 64 73 6b 72 28 33 29 ┆B; if printer then if udskr(3)┆
0x38140…38160 20 74 68 65 6e 20 73 6b 72 69 76 73 6b 61 72 6d 28 30 2c 65 6e 74 6f 2a 6f 70 67 2e 72 61 6b 6b ┆ then skrivskarm(0,ento*opg.rakk┆
0x38160…38180 65 2b 34 29 3b 0d 0a 09 6e 79 74 66 6f 72 6d 61 74 0d 0a 75 6e 74 69 6c 20 6e 6f 74 20 6e 79 74 ┆e+4); nytformat until not nyt┆
0x38180…381a0 66 3b 0d 0a 7b 09 63 6c 6f 73 65 6c 09 09 7d 0d 0a 65 6e 64 3b 09 7b 20 62 65 72 65 67 6e 42 20 ┆f; æ closel å end; æ beregnB ┆
0x381a0…381c0 7d 0d 0a 0d 0a 70 72 6f 63 65 64 75 72 65 20 68 65 6e 74 68 6a 61 65 6c 70 3b 0d 0a 56 41 52 09 ┆å procedure henthjaelp; VAR ┆
0x381c0…381e0 46 55 4e 44 45 54 3a 09 42 4f 4f 4c 45 41 4e 3b 20 49 4e 44 46 3a 54 45 58 54 3b 0d 0a 0d 0a 42 ┆FUNDET: BOOLEAN; INDF:TEXT; B┆
0x381e0…38200 45 47 49 4e 0d 0a 41 53 53 49 47 4e 28 49 4e 44 46 2c 27 4d 49 4e 49 43 41 4c 43 2e 48 4c 50 27 ┆EGIN ASSIGN(INDF,'MINICALC.HLP'┆
0x38200…38220 (25, 0, 6) cb e5 21 01 00 d1 eb b7 ed 52 e5 21 f0 00 d1 cd 5b 06 e5 21 01 00 d1 19 cd c4 1a cd 54 1d cd a2 ┆ ! R ! Æ ! T ┆
0x38220…38240 15 cd e6 18 cd 54 1d 21 6e 4c cd a8 14 cd 54 1d 2a 33 4b 26 00 cb 45 ca 41 2b 21 80 00 e5 cd e6 ┆ T !nL T *3K& E A+! ┆
0x38240…38260 1d c3 77 2b 2a 2a 4b 26 00 e5 21 04 00 d1 cd ad 05 cb 45 ca 77 2b cd a2 15 cd d7 18 06 65 72 72 ┆ w+**K& ! E w+ err┆
0x38260…38280 6f 72 32 cd 54 1d cd 79 15 cd b2 17 cd 54 1d 21 00 00 e5 d1 cd 1e 1d 2a 2a 4b 26 00 e5 21 04 00 ┆or2 T y T ! **K& ! ┆
0x38280…382a0 d1 cd 9a 05 cb 45 ca 55 29 cd 64 1e c9 cd a2 15 21 0c 00 cd 48 18 cd d7 18 0c 73 61 76 65 20 77 ┆ E U) d ! H save w┆
0x382a0…382c0 68 65 72 65 3f 20 cd 54 1d 21 9e c4 cd 79 15 06 0c cd 81 17 cd b2 17 cd 54 1d 2a 5b c5 26 00 e5 ┆here? T ! y T *Æ & ┆
0x382c0…382e0 21 9e c4 cd 55 04 cd 68 04 00 cd bb 05 d1 7d a3 6f cb 45 ca 61 2c 21 ab c4 e5 21 9e c4 cd 55 04 ┆! U h å o E a,! ! U ┆
0x382e0…38300 cd 68 04 04 2e 70 61 78 cd 53 07 cd 82 12 21 ab c4 cd 17 13 cd 54 1d 21 01 00 e5 21 78 00 d1 cd ┆ h .pax S ! T ! !x ┆
0x38300…38320 81 05 7a b3 ca 58 2c d5 22 76 cb 21 5c c5 e5 2a 76 cb 2b 11 0d 00 cd 10 06 d1 19 cd 55 04 cd 68 ┆ z X, "v !Ø *v + U h┆
0x38320…38340 04 00 cd bb 05 cb 45 ca 4f 2c 21 ab c4 cd ab 15 21 5c c5 e5 2a 76 cb 2b 11 0d 00 cd 10 06 d1 19 ┆ E O,! !Ø *v + ┆
0x38340…38360 cd 55 04 21 00 00 cd c7 18 cd e6 18 cd 54 1d 2a 76 cb 23 d1 1b c3 02 2c 21 ab c4 cd 43 14 cd 54 ┆ U ! T *v # ,! C T┆
0x38360…38380 1d c9 fd e1 06 0c 21 13 4b cd fd 04 fd e5 21 00 00 22 09 4b 21 6e 4c e5 21 13 4b cd 55 04 cd 83 ┆ ! K ! " K!nL ! K U ┆
0x38380…383a0 12 21 6e 4c cd ca 13 cd 25 1d e5 21 00 00 d1 cd e7 05 cb 45 ca bc 2c 21 13 4b cd 55 04 cd a2 15 ┆ !nL % ! E ,! K U ┆
0x383a0…383c0 21 00 00 cd c7 18 cd d7 18 0c 20 66 69 6e 64 65 73 20 69 6b 6b 65 cd e6 18 c3 17 2e 21 6e 4c cd ┆! findes ikke .!nL ┆
0x383c0…383e0 9e 1a 7d ee 01 6f cb 45 ca 90 2d 2a 09 4b e5 21 01 00 d1 19 22 09 4b 2a 09 4b e5 21 f0 00 e5 21 ┆ å o E -* K ! " K* K ! !┆
0x383e0…38400 01 00 d1 19 d1 cd 9a 05 cb 45 ca f6 2c 21 13 4b cd 55 04 cd 72 23 2a 09 4b e5 21 01 00 d1 eb b7 ┆ E ,! K U r#* K ! ┆
0x38400…38420 (25, 0, 7) 29 3b 20 7b 24 49 2d 7d 20 52 45 53 45 54 28 49 4e 44 46 29 3b 20 7b 24 49 2b 7d 0d 0a 46 55 4e ┆); æ$I-å RESET(INDF); æ$I+å FUN┆
0x38420…38440 44 45 54 3a 3d 20 49 4f 52 45 53 20 3d 20 30 3b 0d 0a 49 46 20 4e 4f 54 20 46 55 4e 44 45 54 20 ┆DET:= IORES = 0; IF NOT FUNDET ┆
0x38440…38460 54 48 45 4e 20 42 45 47 49 4e 0d 0a 09 47 4f 54 4f 58 59 28 30 2c 32 34 29 3b 0d 0a 09 57 52 49 ┆THEN BEGIN GOTOXY(0,24); WRI┆
0x38460…38480 54 45 28 53 4c 45 54 45 4f 4c 2c 27 27 3a 31 30 2c 27 4d 49 4e 49 43 41 4c 43 2e 48 4c 50 20 66 ┆TE(SLETEOL,'':10,'MINICALC.HLP f┆
0x38480…384a0 69 6e 64 65 73 20 69 6b 6b 65 20 70 7d 20 64 69 73 6b 65 74 74 65 6e 27 29 3b 0d 0a 09 56 45 4e ┆indes ikke på disketten'); VEN┆
0x384a0…384c0 54 3b 20 42 53 28 34 37 29 0d 0a 45 4e 44 20 45 4c 53 45 20 42 45 47 49 4e 0d 0a 09 46 4f 52 20 ┆T; BS(47) END ELSE BEGIN FOR ┆
0x384c0…384e0 49 3a 3d 20 31 20 54 4f 20 32 30 30 30 20 44 4f 20 4b 4f 50 49 53 43 52 45 45 4e 5b 49 5d 3a 3d ┆I:= 1 TO 2000 DO KOPISCREENÆIÅ:=┆
0x384e0…38500 53 43 52 45 45 4e 5b 49 5d 3b 0d 0a 09 47 4f 54 4f 58 59 28 30 2c 30 29 3b 20 57 52 49 54 45 28 ┆SCREENÆIÅ; GOTOXY(0,0); WRITE(┆
0x38500…38520 53 4c 45 54 45 4f 53 29 3b 0d 0a 09 57 52 49 54 45 4c 4e 28 27 27 3a 31 30 2c 27 44 75 20 6b 61 ┆SLETEOS); WRITELN('':10,'Du ka┆
0x38520…38540 6e 20 6e 75 20 62 6c 61 64 72 65 20 76 65 6a 6c 65 64 6e 69 6e 67 65 6e 20 69 67 65 6e 6e 65 6d ┆n nu bladre vejledningen igennem┆
0x38540…38560 2e 27 29 3b 0d 0a 09 57 52 49 54 45 4c 4e 28 27 27 3a 31 30 2c 27 53 70 61 63 65 20 65 6c 6c 65 ┆.'); WRITELN('':10,'Space elle┆
0x38560…38580 72 20 72 65 74 75 72 6e 20 67 69 76 65 72 20 64 65 20 31 32 20 6e 7b 73 74 65 20 6c 69 6e 69 65 ┆r return giver de 12 næste linie┆
0x38580…385a0 72 27 29 3b 0d 0a 09 77 72 69 74 65 6c 6e 28 27 27 3a 31 30 2c 27 50 49 4c 20 6f 70 20 65 6c 6c ┆r'); writeln('':10,'PIL op ell┆
0x385a0…385c0 65 72 20 6e 65 64 20 73 74 61 72 74 65 72 20 76 65 6a 6c 65 64 6e 69 6e 67 65 6e 20 66 6f 72 66 ┆er ned starter vejledningen forf┆
0x385c0…385e0 72 61 2e 27 29 3b 0d 0a 09 77 72 69 74 65 6c 6e 28 27 27 3a 31 30 2c 27 45 53 43 20 61 66 62 72 ┆ra.'); writeln('':10,'ESC afbr┆
0x385e0…38600 79 64 65 72 20 67 65 6e 6e 65 6d 6c 7b 73 6e 69 6e 67 65 6e 2e 27 29 3b 0d 0a 09 77 72 69 74 65 ┆yder gennemlæsningen.'); write┆
0x38600…38620 (25, 0, 8) ed 52 e5 21 f0 00 d1 cd 5b 06 e5 21 00 00 d1 cd 9a 05 e5 2a 09 4b e5 21 01 00 d1 cd e7 05 d1 7d ┆ R ! Æ ! * K ! å┆
0x38620…38640 a3 6f cb 45 ca 58 2d 21 01 00 e5 21 f0 00 d1 cd 81 05 7a b3 ca 58 2d d5 22 07 4b 21 9e 4c e5 2a ┆ o E X-! ! z X- " K! L *┆
0x38640…38660 07 4b 2b 11 80 00 cd 10 06 d1 19 e5 cd ef 1d 2a 07 4b 23 d1 1b c3 32 2d 21 6e 4c e5 21 9e 4c e5 ┆ K+ * K# 2-!nL ! L ┆
0x38660…38680 2a 09 4b e5 21 01 00 d1 eb b7 ed 52 e5 21 f0 00 d1 cd 5b 06 e5 21 01 00 d1 19 2b 11 80 00 cd 10 ┆* K ! R ! Æ ! + ┆
0x38680…386a0 06 d1 19 e5 21 01 00 cd c8 1a cd 54 1d c3 bc 2c 2a 09 4b e5 21 f0 00 e5 21 01 00 d1 19 d1 cd fb ┆ ! T ,* K ! ! ┆
0x386a0…386c0 05 cb 45 ca af 2d 21 13 4b cd 55 04 cd 72 23 2a 09 4b e5 21 00 00 d1 cd e7 05 cb 45 ca 07 2e 21 ┆ E -! K U r#* K ! E .!┆
0x386c0…386e0 01 00 e5 2a 09 4b e5 21 01 00 d1 eb b7 ed 52 e5 21 f0 00 d1 cd 5b 06 e5 21 01 00 d1 19 d1 cd 81 ┆ * K ! R ! Æ ! ┆
0x386e0…38700 05 7a b3 ca 07 2e d5 22 07 4b 21 9e 4c e5 2a 07 4b 2b 11 80 00 cd 10 06 d1 19 e5 cd ef 1d 2a 07 ┆ z . " K! L * K+ * ┆
0x38700…38720 4b 23 d1 1b c3 e1 2d 21 03 00 e5 cd e9 1d 21 6e 4c cd a8 14 cd 54 1d c9 fd e1 e1 22 05 4b fd e5 ┆K# -! !nL T " K ┆
0x38720…38740 21 00 00 22 f9 4a 21 3d 4c e5 21 24 00 e5 21 00 00 cd d0 1c 21 3d 4c e5 21 01 00 d1 19 e5 21 0b ┆! " J!=L !$ ! !=L ! ! ┆
0x38740…38760 00 e5 21 20 00 cd d0 1c 21 01 00 e5 21 9e c4 cd 55 04 cd b9 07 d1 cd 81 05 7a b3 ca f3 2e d5 22 ┆ ! ! ! U z . "┆
0x38760…38780 fb 4a 21 9e c4 e5 2a fb 4a d1 19 6e 26 00 11 61 00 01 1a 00 b7 ed 52 b7 ed 42 d2 ae 2e 21 3d 4c ┆ J! * J n& a R B .!=L┆
0x38780…387a0 e5 2a fb 4a e5 2a f9 4a d1 19 d1 19 e5 21 9e c4 e5 2a fb 4a d1 19 6e 26 00 e5 21 61 00 d1 eb b7 ┆ * J * J ! * J n& !a ┆
0x387a0…387c0 ed 52 e5 21 41 00 d1 19 eb e1 73 c3 ea 2e 19 09 11 2e 00 b7 ed 52 c2 cb 2e 21 08 00 e5 2a fb 4a ┆ R !A s . . R .! * J┆
0x387c0…387e0 d1 eb b7 ed 52 22 f9 4a c3 ea 2e 21 3d 4c e5 2a fb 4a e5 2a f9 4a d1 19 d1 19 e5 21 9e c4 e5 2a ┆ R" J .!=L * J * J ! *┆
0x387e0…38800 fb 4a d1 19 6e 26 00 eb e1 73 2a fb 4a 23 d1 1b c3 59 2e 21 3d 4c e5 21 09 00 d1 19 e5 21 3d 4c ┆ J n& s* J# Y.!=L ! !=L┆
0x38800…38820 (25, 0, 9) 6c 6e 28 27 27 3a 31 30 2c 27 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ln('':10,'----------------------┆
0x38820…38840 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 27 29 3b 0d 0a 09 77 72 69 ┆-----------------------'); wri┆
0x38840…38860 74 65 6c 6e 3b 20 57 52 49 54 45 4c 4e 3b 0d 0a 09 53 56 41 52 3a 3d 20 52 45 54 55 52 3b 0d 0a ┆teln; WRITELN; SVAR:= RETUR; ┆
0x38860…38880 09 52 45 50 45 41 54 0d 0a 09 09 4b 3a 3d 30 3b 0d 0a 09 09 49 46 20 53 56 41 52 20 49 4e 20 5b ┆ REPEAT K:=0; IF SVAR IN Æ┆
0x38880…388a0 4f 50 2c 4e 45 44 5d 20 54 48 45 4e 20 42 45 47 49 4e 0d 0a 09 09 09 47 4f 54 4f 58 59 28 30 2c ┆OP,NEDÅ THEN BEGIN GOTOXY(0,┆
0x388a0…388c0 30 29 3b 20 77 72 69 74 65 28 53 4c 45 54 45 4f 53 29 3b 20 52 45 53 45 54 28 49 4e 44 46 29 0d ┆0); write(SLETEOS); RESET(INDF) ┆
0x388c0…388e0 0a 09 09 45 4e 44 3b 0d 0a 09 09 49 46 20 53 56 41 52 20 49 4e 20 5b 4f 50 2c 4e 45 44 2c 52 45 ┆ END; IF SVAR IN ÆOP,NED,RE┆
0x388e0…38900 54 55 52 2c 53 50 41 43 45 5d 20 54 48 45 4e 20 52 45 50 45 41 54 0d 0a 09 09 09 52 45 41 44 28 ┆TUR,SPACEÅ THEN REPEAT READ(┆
0x38900…38920 49 4e 44 46 2c 43 48 29 3b 0d 0a 09 09 09 49 46 20 43 48 3d 54 41 42 20 54 48 45 4e 20 57 52 49 ┆INDF,CH); IF CH=TAB THEN WRI┆
0x38920…38940 54 45 28 54 41 42 29 3b 0d 0a 09 09 09 57 52 49 54 45 28 43 48 29 3b 0d 0a 09 09 09 49 46 20 43 ┆TE(TAB); WRITE(CH); IF C┆
0x38940…38960 48 20 3d 20 52 45 54 55 52 20 54 48 45 4e 20 4b 3a 3d 4b 2b 31 3b 0d 0a 09 09 55 4e 54 49 4c 20 ┆H = RETUR THEN K:=K+1; UNTIL ┆
0x38960…38980 28 4b 3d 31 32 29 20 4f 52 20 45 4f 46 28 49 4e 44 46 29 3b 0d 0a 09 09 52 45 41 44 28 4b 42 44 ┆(K=12) OR EOF(INDF); READ(KBD┆
0x38980…389a0 2c 53 56 41 52 29 0d 0a 09 55 4e 54 49 4c 20 28 53 56 41 52 20 3d 20 45 53 43 29 20 4f 52 20 45 ┆,SVAR) UNTIL (SVAR = ESC) OR E┆
0x389a0…389c0 4f 46 28 49 4e 44 46 29 3b 0d 0a 09 46 4f 52 20 49 3a 3d 20 31 20 54 4f 20 32 30 30 30 20 44 4f ┆OF(INDF); FOR I:= 1 TO 2000 DO┆
0x389c0…389e0 20 53 43 52 45 45 4e 5b 49 5d 3a 3d 20 4b 4f 50 49 53 43 52 45 45 4e 5b 49 5d 0d 0a 45 4e 44 0d ┆ SCREENÆIÅ:= KOPISCREENÆIÅ END ┆
0x389e0…38a00 0a 45 4e 44 3b 09 7b 20 68 65 6e 74 68 6a 61 65 6c 70 20 7d 0d 0a 0d 0a 28 2a 20 3d 3d 3d 3d 3d ┆ END; æ henthjaelp å (* =====┆
0x38a00…38a20 (25, 1, 1) e5 21 09 00 d1 19 6e 26 00 e5 2a 05 4b d1 7c b2 67 7d b3 6f eb e1 73 21 1e 00 e5 21 3d 4c eb c1 ┆ ! n& * K ø gå o s! !=L ┆
0x38a20…38a40 cd 05 00 c9 2a 7c cb 4d ed 68 e5 21 05 00 d1 7c a2 67 7d a3 6f e5 21 05 00 d1 cd 9a 05 cb 45 ca ┆ *ø M h ! ø gå o ! E ┆
0x38a40…38a60 24 2f 2a 7a cb 4d ed 68 7d 32 f8 4a 2a 7a cb e5 21 00 00 c1 ed 69 2a f8 4a 26 00 c9 fd e1 e1 7d ┆$/*z M hå2 J*z ! i* J& å┆
0x38a60…38a80 32 ef 4a fd e5 2a 7c cb 4d ed 68 e5 21 05 00 d1 7c a2 67 7d a3 6f e5 21 05 00 d1 cd 9a 05 cb 45 ┆2 J *ø M h ! ø gå o ! E┆
0x38a80…38aa0 ca 65 2f 2a 7a cb 4d ed 68 22 e5 4a 2a 7a cb e5 2a ef 4a 26 00 c1 ed 69 c9 21 01 00 e5 21 78 00 ┆ e/*z M h" J*z * J& i ! !x ┆
0x38aa0…38ac0 d1 cd 81 05 7a b3 ca d0 2f d5 22 76 cb 21 5c c5 e5 2a 76 cb 2b 11 0d 00 cd 10 06 d1 19 e5 cd 68 ┆ z / "v !Ø *v + h┆
0x38ac0…38ae0 04 00 06 0c cd 1c 05 2a 76 cb 23 d1 1b c3 a4 2f 21 00 00 7d 32 5b c5 c9 21 04 00 e5 cd e9 1d 2a ┆ *v # /! å2Æ ! *┆
0x38ae0…38b00 7c cb 4d ed 68 e5 21 01 00 d1 7c a2 67 7d a3 6f e5 21 01 00 d1 cd 9a 05 cb 45 ca df 2f 2a 7a cb ┆ø M h ! ø gå o ! E /*z ┆
0x38b00…38b20 4d ed 68 22 d3 4a 2a 7c cb 4d ed 68 e5 21 01 00 d1 7c a2 67 7d a3 6f e5 21 01 00 d1 cd 9a 05 cb ┆M h" J*ø M h ! ø gå o ! ┆
0x38b20…38b40 45 ca 06 30 2a 7a cb 4d ed 68 22 d3 4a cd 64 1e c9 cd a2 15 21 0c 00 cd 48 18 cd 54 1d cd 63 27 ┆E 0*z M h" J d ! H T c'┆
0x38b40…38b60 2a 5b c5 26 00 cb 45 ca a2 30 21 01 00 e5 21 78 00 d1 cd 81 05 7a b3 ca 9f 30 d5 22 76 cb 21 5c ┆*Æ & E 0! !x z 0 "v !Ø┆
0x38b60…38b80 c5 e5 2a 76 cb 2b 11 0d 00 cd 10 06 d1 19 cd 55 04 cd 68 04 00 cd bb 05 cb 45 ca 96 30 21 5c c5 ┆ *v + U h E 0!Ø ┆
0x38b80…38ba0 e5 2a 76 cb 2b 11 0d 00 cd 10 06 d1 19 cd 55 04 cd 62 2c c3 96 30 2a 76 cb 23 d1 1b c3 55 30 c3 ┆ *v + U b, 0*v # U0 ┆
0x38ba0…38bc0 fe 30 cd a2 15 cd d7 18 14 74 72 61 6e 73 6d 69 74 20 77 68 61 74 20 66 69 6c 65 3f 20 cd 54 1d ┆ 0 transmit what file? T ┆
0x38bc0…38be0 21 9e c4 cd 79 15 06 0c cd 81 17 cd b2 17 cd 54 1d 21 9e c4 cd 55 04 cd 68 04 00 cd bb 05 cb 45 ┆! y T ! U h E┆
0x38be0…38c00 ca ec 30 21 9e c4 cd 55 04 cd 62 2c 21 9e c4 cd 55 04 cd 68 04 00 cd a8 05 cb 45 ca a2 30 cd d8 ┆ 0! U b,! U h E 0 ┆
0x38c00…38e00 (25, 1, 2) DataBlock {»OHMSLOV.MID«}
[…0x8…]
0x39e00…3a000 (26, 0, 2) DataBlock {»EOVERM.MID«}
0x3a000…3a200 (26, 0, 3) DataBlock {»OHMSLOV.MID«}
0x3a200…3a400 (26, 0, 4) DataBlock {»EOVERM.MID«}
0x3a400…3a600 (26, 0, 5) DataBlock {»OHMSLOV.MID«}
0x3a600…3a800 (26, 0, 6) DataBlock {»EOVERM.MID«}
0x3a800…3aa00 (26, 0, 7) DataBlock {»OHMSLOV.MID«}
0x3aa00…3ac00 (26, 0, 8) DataBlock {»EOVERM.MID«}
[…0x6…]
0x3b800…3b820 (26, 1, 6) 2f c9 21 00 00 7d 32 5b c5 21 5c c5 e5 21 0d 00 e5 21 78 00 d1 cd 10 06 e5 21 00 00 cd d0 1c 21 ┆/ ! å2Æ !Ø ! !x ! !┆
0x3b820…3b840 01 00 cb 45 ca d6 31 cd 77 25 11 31 00 b7 ed 52 c2 39 31 cd 31 30 c3 d3 31 19 11 32 00 b7 ed 52 ┆ E 1 w% 1 R 91 10 1 2 R┆
0x3b840…3b860 c2 4d 31 21 00 00 e5 cd d0 28 c3 d3 31 19 11 33 00 b7 ed 52 c2 5d 31 cd c1 23 c3 d3 31 19 11 34 ┆ M1! ( 1 3 R Å1 # 1 4┆
0x3b860…3b880 00 b7 ed 52 c2 6d 31 cd e3 1d c3 d3 31 19 11 35 00 b7 ed 52 c2 7d 31 cd 99 2f c3 d3 31 19 11 36 ┆ R m1 1 5 R å1 / 1 6┆
0x3b880…3b8a0 00 b7 ed 52 c2 8d 31 cd 8d 2b c3 d3 31 19 11 37 00 b7 ed 52 c2 9d 31 cd 89 24 c3 d3 31 19 11 39 ┆ R 1 + 1 7 R 1 $ 1 9┆
0x3b8a0…3b8c0 00 b7 ed 52 c2 b2 31 21 00 00 e5 d1 cd 1e 1d c3 d3 31 19 11 61 00 b7 ed 52 c2 c6 31 21 01 00 e5 ┆ R 1! 1 a R 1! ┆
0x3b8c0…3b8e0 cd d0 28 c3 d3 31 19 11 38 00 b7 ed 52 c2 d3 31 cd 18 1f c3 1f 31 c3 c1 1d 23 c3 55 31 19 11 34 ┆ ( 1 8 R 1 1 # U1 4┆
0x3b8e0…3b900 00 b7 ed 52 c2 34 00 cd e3 1d c3 65 31 19 11 35 00 b7 ed 52 c2 35 00 cd 99 2f c3 75 31 19 11 36 ┆ R 4 e1 5 R 5 / u1 6┆
0x3b900…3b920 4d ed 68 22 d3 4a 2a 7c cb 4d ed 68 e5 21 01 00 d1 7c a2 67 7d a3 6f e5 21 01 00 d1 cd 9a 05 cb ┆M h" J*ø M h ! ø gå o ! ┆
0x3b920…3b940 45 ca 06 30 2a 7a cb 4d ed 68 22 d3 4a cd 64 1e c9 cd a2 15 21 0c 00 cd 48 18 cd 54 1d cd 63 27 ┆E 0*z M h" J d ! H T c'┆
0x3b940…3b960 2a 5b c5 26 00 cb 45 ca a2 30 21 01 00 e5 21 78 00 d1 cd 81 05 7a b3 ca 9f 30 d5 22 76 cb 21 5c ┆*Æ & E 0! !x z 0 "v !Ø┆
0x3b960…3b980 c5 e5 2a 76 cb 2b 11 0d 00 cd 10 06 d1 19 cd 55 04 cd 68 04 00 cd bb 05 cb 45 ca 96 30 21 5c c5 ┆ *v + U h E 0!Ø ┆
0x3b980…3b9a0 e5 2a 76 cb 2b 11 0d 00 cd 10 06 d1 19 cd 55 04 cd 62 2c c3 96 30 2a 76 cb 23 d1 1b c3 55 30 c3 ┆ *v + U b, 0*v # U0 ┆
0x3b9a0…3b9c0 fe 30 cd a2 15 cd d7 18 14 74 72 61 6e 73 6d 69 74 20 77 68 61 74 20 66 69 6c 65 3f 20 cd 54 1d ┆ 0 transmit what file? T ┆
0x3b9c0…3b9e0 21 9e c4 cd 79 15 06 0c cd 81 17 cd b2 17 cd 54 1d 21 9e c4 cd 55 04 cd 68 04 00 cd bb 05 cb 45 ┆! y T ! U h E┆
0x3b9e0…3ba00 ca ec 30 21 9e c4 cd 55 04 cd 62 2c 21 9e c4 cd 55 04 cd 68 04 00 cd a8 05 cb 45 ca a2 30 cd d8 ┆ 0! U b,! U h E 0 ┆
0x3ba00…3bc00 (26, 1, 7) DataBlock {»EOVERM.MID«}
0x3bc00…3bc20 (26, 1, 8) 68 61 6c 76 61 72 3a 20 69 6e 74 65 67 65 72 3b 09 7b 20 73 6f 6c 67 74 20 69 20 73 69 64 73 74 ┆halvar: integer; æ solgt i sidst┆
0x3bc20…3bc40 65 20 68 61 6c 76 61 72 20 7d 0d 0a 20 09 09 73 6f 6c 67 74 3a 20 72 65 61 6c 09 09 7b 20 73 6f ┆e halvar å solgt: real æ so┆
0x3bc40…3bc60 6c 67 74 20 69 20 61 6c 74 20 7d 0d 0a 09 45 4e 44 3b 0d 0a 09 49 44 58 20 3d 20 41 52 52 41 59 ┆lgt i alt å END; IDX = ARRAY┆
0x3bc60…3bc80 5b 30 2e 2e 4d 41 58 42 4f 47 5d 20 4f 46 20 42 59 54 45 3b 0d 0a 09 43 48 41 52 53 45 54 20 3d ┆Æ0..MAXBOGÅ OF BYTE; CHARSET =┆
0x3bc80…3bca0 20 53 45 54 20 4f 46 20 43 48 41 52 3b 0d 0a 0d 0a 43 4f 4e 53 54 09 44 4f 54 53 3a 20 53 54 52 ┆ SET OF CHAR; CONST DOTS: STR┆
0x3bca0…3bcc0 33 30 20 3d 20 27 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e ┆30 = '..........................┆
0x3bcc0…3bce0 2e 2e 2e 2e 27 3b 0d 0a 0d 0a 28 2a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ┆....'; (*====================┆
0x3bce0…3bd00 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 3d 3d 3d 3d 3d ┆================================┆
0x3bd00…3bd20 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 2a 29 0d 0a 56 41 52 0d 0a 09 42 4f 47 46 3a 09 46 49 ┆==============*) VAR BOGF: FI┆
0x3bd20…3bd40 4c 45 20 4f 46 20 42 4f 47 3b 09 09 7b 20 52 65 63 6f 72 64 20 66 69 6c 20 28 56 41 52 45 52 2e ┆LE OF BOG; æ Record fil (VARER.┆
0x3bd40…3bd60 44 41 54 29 20 7d 0d 0a 09 49 44 58 46 3a 09 46 49 4c 45 20 4f 46 20 49 44 58 3b 09 09 7b 20 49 ┆DAT) å IDXF: FILE OF IDX; æ I┆
0x3bd60…3bd80 6e 64 65 78 20 66 69 6c 20 20 28 49 4e 44 45 58 2e 44 41 54 29 20 7d 0d 0a 09 46 41 4b 4e 3a 09 ┆ndex fil (INDEX.DAT) å FAKN: ┆
0x3bd80…3bda0 46 49 4c 45 20 4f 46 20 46 41 4b 4e 4f 3b 0d 0a 09 49 4e 44 45 58 3a 09 49 44 58 3b 09 09 09 7b ┆FILE OF FAKNO; INDEX: IDX; æ┆
0x3bda0…3bdc0 20 4d 65 6d 6f 72 79 20 6b 6f 70 69 20 61 66 20 69 6e 64 65 78 20 7d 0d 0a 09 42 3a 09 42 4f 47 ┆ Memory kopi af index å B: BOG┆
0x3bdc0…3bde0 3b 09 09 09 7b 20 52 65 63 6f 72 64 20 62 75 66 66 65 72 20 7d 0d 0a 09 49 2c 20 4a 2c 20 50 2c ┆; æ Record buffer å I, J, P,┆
0x3bde0…3be00 20 41 4e 54 41 4c 42 4f 47 3a 09 42 59 54 45 3b 0d 0a 09 53 2c 20 54 2c 20 54 45 47 4e 3a 09 09 ┆ ANTALBOG: BYTE; S, T, TEGN: ┆
0x3be00…3c000 (26, 1, 9) DataBlock {»EOVERM.MID«}
0x3c000…3c020 (27, 0, 1) 43 48 41 52 3b 0d 0a 09 64 61 67 2c 6d 61 6e 65 64 2c 61 72 3a 09 09 46 41 4b 4e 4f 3b 0d 0a 09 ┆CHAR; dag,maned,ar: FAKNO; ┆
0x3c020…3c040 70 72 69 6e 74 65 72 2c 70 61 75 73 65 3a 09 09 62 6f 6f 6c 65 61 6e 3b 0d 0a 09 75 64 66 3a 09 ┆printer,pause: boolean; udf: ┆
0x3c040…3c060 09 09 74 65 78 74 3b 0d 0a 09 6d 65 6e 75 3a 09 09 09 66 69 6c 65 3b 09 7b 20 4d 45 4e 55 2e 43 ┆ text; menu: file; æ MENU.C┆
0x3c060…3c080 4f 4d 20 7d 09 0d 0a 0d 0a 09 28 2a 24 49 20 41 3a 53 45 52 56 49 43 45 2e 49 4e 43 2a 29 0d 0a ┆OM å (*$I A:SERVICE.INC*) ┆
0x3c080…3c0a0 46 55 4e 43 54 49 4f 4e 20 46 49 4e 44 50 4f 53 28 56 41 52 20 42 3a 20 42 4f 47 29 3a 20 49 4e ┆FUNCTION FINDPOS(VAR B: BOG): IN┆
0x3c0a0…3c0c0 54 45 47 45 52 3b 0d 0a 43 4f 4e 53 54 0d 0a 09 54 4f 4d 3a 20 53 54 52 31 38 20 3d 20 27 20 20 ┆TEGER; CONST TOM: STR18 = ' ┆
0x3c0c0…3c0e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 3b 0d 0a 56 41 52 0d 0a 09 43 3a 20 42 4f 47 ┆ '; VAR C: BOG┆
0x3c0e0…3c100 3b 0d 0a 09 50 4f 53 2c 20 4c 41 56 2c 20 53 4e 49 54 2c 20 44 4e 3a 20 49 4e 54 45 47 45 52 3b ┆; POS, LAV, SNIT, DN: INTEGER;┆
0x3c100…3c120 0d 0a 09 0d 0a 42 45 47 49 4e 0d 0a 09 49 46 20 42 2e 41 4e 41 56 4e 3d 27 27 20 54 48 45 4e 20 ┆ BEGIN IF B.ANAVN='' THEN ┆
0x3c120…3c140 42 2e 41 4e 41 56 4e 3a 3d 27 20 27 3b 0d 0a 09 4c 41 56 3a 3d 2d 31 3b 20 50 4f 53 3a 3d 41 4e ┆B.ANAVN:=' '; LAV:=-1; POS:=AN┆
0x3c140…3c160 54 41 4c 42 4f 47 3b 0d 0a 09 57 48 49 4c 45 20 50 4f 53 20 2d 20 4c 41 56 20 3e 20 31 20 44 4f ┆TALBOG; WHILE POS - LAV > 1 DO┆
0x3c160…3c180 0d 0a 09 42 45 47 49 4e 0d 0a 09 09 53 4e 49 54 3a 3d 28 50 4f 53 2d 4c 41 56 29 20 44 49 56 20 ┆ BEGIN SNIT:=(POS-LAV) DIV ┆
0x3c180…3c1a0 32 20 2b 20 4c 41 56 3b 0d 0a 09 09 53 45 45 4b 28 42 4f 47 46 2c 49 4e 44 45 58 5b 20 53 4e 49 ┆2 + LAV; SEEK(BOGF,INDEXÆ SNI┆
0x3c1a0…3c1c0 54 20 5d 29 3b 20 52 45 41 44 28 42 4f 47 46 2c 43 29 3b 0d 0a 09 09 44 4e 3a 3d 20 4c 45 4e 28 ┆T Å); READ(BOGF,C); DN:= LEN(┆
0x3c1c0…3c1e0 43 2e 41 4e 41 56 4e 29 20 2d 20 4c 45 4e 28 42 2e 41 4e 41 56 4e 29 3b 0d 0a 09 09 49 46 20 55 ┆C.ANAVN) - LEN(B.ANAVN); IF U┆
0x3c1e0…3c200 50 43 41 53 45 28 43 2e 41 4e 41 56 4e 20 2b 20 43 2e 46 4e 41 56 4e 29 20 3c 0d 0a 09 09 55 50 ┆PCASE(C.ANAVN + C.FNAVN) < UP┆
0x3c200…3c220 (27, 0, 2) 45 4e 20 42 45 47 49 4e 0d 0a 09 09 09 09 46 3a 3d 46 41 4b 54 4f 52 3b 0d 0a 09 09 09 09 43 41 ┆EN BEGIN F:=FAKTOR; CA┆
0x3c220…3c240 53 45 20 53 46 20 4f 46 0d 0a 09 09 09 09 09 46 41 42 53 3a 20 46 3a 3d 41 42 53 28 46 29 3b 0d ┆SE SF OF FABS: F:=ABS(F); ┆
0x3c240…3c260 0a 09 09 09 09 09 46 53 51 52 54 3a 20 46 3a 3d 53 51 52 54 28 46 29 3b 0d 0a 09 09 09 09 09 46 ┆ FSQRT: F:=SQRT(F); F┆
0x3c260…3c280 53 49 4e 3a 20 46 3a 3d 53 49 4e 28 46 29 3b 0d 0a 09 09 09 09 09 46 43 4f 53 3a 20 46 3a 3d 43 ┆SIN: F:=SIN(F); FCOS: F:=C┆
0x3c280…3c2a0 4f 53 28 46 29 3b 0d 0a 09 09 09 09 09 46 41 52 43 54 41 4e 3a 20 46 3a 3d 41 52 43 54 41 4e 28 ┆OS(F); FARCTAN: F:=ARCTAN(┆
0x3c2a0…3c2c0 46 29 3b 0d 0a 09 09 09 09 09 46 4c 4e 3a 20 46 3a 3d 4c 4e 28 46 29 3b 0d 0a 09 09 09 09 09 46 ┆F); FLN: F:=LN(F); F┆
0x3c2c0…3c2e0 45 58 50 3a 20 46 3a 3d 45 58 50 28 46 29 0d 0a 09 09 09 09 45 4e 44 3b 0d 0a 09 09 09 09 46 4f ┆EXP: F:=EXP(F) END; FO┆
0x3c2e0…3c300 55 4e 44 3a 3d 54 52 55 45 0d 0a 09 09 09 45 4e 44 0d 0a 09 09 45 4e 44 3b 0d 0a 09 09 49 46 20 ┆UND:=TRUE END END; IF ┆
0x3c300…3c320 4e 4f 54 20 46 4f 55 4e 44 20 54 48 45 4e 20 43 48 3a 3d 46 45 4a 4c 43 48 0d 0a 09 45 4e 44 3b ┆NOT FOUND THEN CH:=FEJLCH END;┆
0x3c320…3c340 0d 0a 09 46 41 4b 54 4f 52 3a 3d 46 0d 0a 45 4e 44 09 7b 20 46 41 4b 54 4f 52 20 7d 3b 0d 0a 0d ┆ FAKTOR:=F END æ FAKTOR å; ┆
0x3c340…3c360 0a 42 45 47 49 4e 09 7b 20 4d 49 4e 55 53 46 41 4b 54 4f 52 20 7d 0d 0a 09 49 46 20 43 48 3d 27 ┆ BEGIN æ MINUSFAKTOR å IF CH='┆
0x3c360…3c380 2d 27 20 54 48 45 4e 20 42 45 47 49 4e 0d 0a 09 09 4e 59 54 54 45 47 4e 3b 20 4d 49 4e 55 53 46 ┆-' THEN BEGIN NYTTEGN; MINUSF┆
0x3c380…3c3a0 41 4b 54 4f 52 3a 3d 2d 46 41 4b 54 4f 52 0d 0a 09 45 4e 44 20 45 4c 53 45 20 4d 49 4e 55 53 46 ┆AKTOR:=-FAKTOR END ELSE MINUSF┆
0x3c3a0…3c3c0 41 4b 54 4f 52 3a 3d 46 41 4b 54 4f 52 0d 0a 45 4e 44 09 7b 20 4d 49 4e 55 53 46 41 4b 54 4f 52 ┆AKTOR:=FAKTOR END æ MINUSFAKTOR┆
0x3c3c0…3c3e0 20 7d 3b 0d 0a 0d 0a 42 45 47 49 4e 09 7b 20 54 45 52 4d 20 7d 0d 0a 09 54 3a 3d 4d 49 4e 55 53 ┆ å; BEGIN æ TERM å T:=MINUS┆
0x3c3e0…3c400 46 41 4b 54 4f 52 3b 0d 0a 09 57 48 49 4c 45 20 43 48 3d 27 5e 27 20 44 4f 20 42 45 47 49 4e 0d ┆FAKTOR; WHILE CH='^' DO BEGIN ┆
0x3c400…3c420 (27, 0, 3) 43 41 53 45 28 42 2e 41 4e 41 56 4e 29 20 2b 20 43 4f 50 59 28 54 4f 4d 2c 31 2c 44 4e 29 20 2b ┆CASE(B.ANAVN) + COPY(TOM,1,DN) +┆
0x3c420…3c440 20 55 50 43 41 53 45 28 42 2e 46 4e 41 56 4e 29 0d 0a 09 09 54 48 45 4e 20 4c 41 56 3a 3d 53 4e ┆ UPCASE(B.FNAVN) THEN LAV:=SN┆
0x3c440…3c460 49 54 20 45 4c 53 45 20 50 4f 53 3a 3d 53 4e 49 54 0d 0a 09 45 4e 44 3b 20 0d 0a 09 46 49 4e 44 ┆IT ELSE POS:=SNIT END; FIND┆
0x3c460…3c480 50 4f 53 3a 3d 50 4f 53 0d 0a 45 4e 44 3b 20 09 7b 20 66 75 6e 63 74 69 6f 6e 20 66 69 6e 64 70 ┆POS:=POS END; æ function findp┆
0x3c480…3c4a0 6f 73 20 7d 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 20 4c 41 45 53 42 4f 47 28 56 41 52 20 42 3a ┆os å PROCEDURE LAESBOG(VAR B:┆
0x3c4a0…3c4c0 20 42 4f 47 3b 20 53 41 4e 44 3a 20 42 4f 4f 4c 45 41 4e 29 3b 0d 0a 42 45 47 49 4e 0d 0a 09 57 ┆ BOG; SAND: BOOLEAN); BEGIN W┆
0x3c4c0…3c4e0 49 54 48 20 42 20 44 4f 20 42 45 47 49 4e 0d 0a 09 09 49 46 20 4e 4f 54 20 53 41 4e 44 20 54 48 ┆ITH B DO BEGIN IF NOT SAND TH┆
0x3c4e0…3c500 45 4e 0d 0a 09 09 42 45 47 49 4e 0d 0a 09 09 09 46 4e 41 56 4e 3a 3d 27 27 3b 20 41 4e 41 56 4e ┆EN BEGIN FNAVN:=''; ANAVN┆
0x3c500…3c520 3a 3d 27 20 27 3b 0d 0a 09 09 09 70 72 69 73 6b 3a 3d 30 3b 20 70 72 69 73 6f 3a 3d 30 3b 20 76 ┆:=' '; prisk:=0; priso:=0; v┆
0x3c520…3c540 61 67 74 3a 3d 30 3b 0d 0a 09 09 09 6c 61 67 65 72 3a 3d 30 3b 20 68 61 6c 76 61 72 3a 3d 30 3b ┆agt:=0; lager:=0; halvar:=0;┆
0x3c540…3c560 20 73 6f 6c 67 74 3a 3d 30 0d 0a 09 09 45 4e 44 3b 0d 0a 20 20 09 09 52 45 50 45 41 54 0d 0a 09 ┆ solgt:=0 END; REPEAT ┆
0x3c560…3c580 09 09 46 4e 41 56 4e 3a 3d 53 54 52 45 4e 47 28 46 4e 41 56 4e 2c 31 38 2c 33 2c 33 30 29 3b 0d ┆ FNAVN:=STRENG(FNAVN,18,3,30); ┆
0x3c580…3c5a0 0a 09 09 09 41 4e 41 56 4e 3a 3d 53 54 52 45 4e 47 28 41 4e 41 56 4e 2c 31 38 2c 34 2c 31 38 29 ┆ ANAVN:=STRENG(ANAVN,18,4,18)┆
0x3c5a0…3c5c0 3b 0d 0a 09 09 09 67 6f 74 6f 78 79 28 31 38 2c 35 29 3b 20 70 72 69 73 6b 3a 3d 20 6c 61 65 73 ┆; gotoxy(18,5); prisk:= laes┆
0x3c5c0…3c5e0 69 6e 74 28 70 72 69 73 6b 2c 30 2c 6d 61 78 69 6e 74 29 3b 0d 0a 09 09 09 67 6f 74 6f 78 79 28 ┆int(prisk,0,maxint); gotoxy(┆
0x3c5e0…3c600 31 38 2c 36 29 3b 20 70 72 69 73 6f 3a 3d 20 6c 61 65 73 69 6e 74 28 70 72 69 73 6f 2c 30 2c 39 ┆18,6); priso:= laesint(priso,0,9┆
0x3c600…3c620 (27, 0, 4) 65 72 20 65 6e 20 67 6f 64 20 68 6a 7b 6c 70 20 76 65 64 20 73 74 7c 72 72 65 20 62 65 72 65 67 ┆er en god hjælp ved større bereg┆
0x3c620…3c640 6e 69 6e 67 65 72 2e 27 29 3b 0d 0a 77 72 69 74 65 6c 6e 3b 0d 0a 77 72 69 74 65 6c 6e 28 27 20 ┆ninger.'); writeln; writeln(' ┆
0x3c640…3c660 20 20 20 20 4d 5d 4c 54 41 4c 3a 20 20 20 44 65 20 6d 7d 6c 74 65 20 73 74 7c 72 72 65 6c 73 65 ┆ MÅLTAL: De målte størrelse┆
0x3c660…3c680 72 20 69 6e 64 74 61 73 74 65 73 20 69 20 65 74 20 6d 7d 6c 65 73 6b 65 6d 61 2e 27 29 3b 0d 0a ┆r indtastes i et måleskema.'); ┆
0x3c680…3c6a0 77 72 69 74 65 6c 6e 28 27 27 3a 31 35 2c 27 42 65 6e 79 74 20 63 75 72 73 6f 72 70 69 6c 65 6e ┆writeln('':15,'Benyt cursorpilen┆
0x3c6a0…3c6c0 65 20 76 65 64 20 72 65 74 6e 69 6e 67 20 61 66 20 74 61 6c 6c 65 6e 65 2e 27 29 3b 0d 0a 77 72 ┆e ved retning af tallene.'); wr┆
0x3c6c0…3c6e0 69 74 65 6c 6e 28 27 20 20 20 20 20 46 55 4e 4b 54 49 4f 4e 3a 20 41 6e 67 69 76 20 61 6e 74 61 ┆iteln(' FUNKTION: Angiv anta┆
0x3c6e0…3c700 6c 6c 65 74 20 61 66 20 73 7c 6a 6c 65 72 20 69 20 62 65 72 65 67 6e 69 6e 67 73 6b 65 6d 61 65 ┆llet af søjler i beregningskemae┆
0x3c700…3c720 74 2c 27 29 3b 0d 0a 77 72 69 74 65 6c 6e 28 27 27 3a 31 35 2c 27 6f 67 20 66 6f 72 73 6b 72 69 ┆t,'); writeln('':15,'og forskri┆
0x3c720…3c740 66 74 65 72 6e 65 20 66 6f 72 20 62 65 72 65 67 6e 65 64 65 20 73 74 7c 72 72 65 6c 73 65 72 2e ┆fterne for beregnede størrelser.┆
0x3c740…3c760 27 29 3b 0d 0a 77 72 69 74 65 6c 6e 28 27 27 3a 31 35 2c 27 49 20 66 6f 72 73 6b 72 69 66 74 65 ┆'); writeln('':15,'I forskrifte┆
0x3c760…3c780 6e 20 6d 7d 20 69 6e 64 67 7d 20 6d 7d 6c 74 65 20 6f 67 20 61 6c 6c 65 72 65 64 65 20 62 65 72 ┆n må indgå målte og allerede ber┆
0x3c780…3c7a0 65 67 6e 65 64 65 20 73 74 7c 72 72 65 6c 73 65 72 27 29 3b 0d 0a 77 72 69 74 65 6c 6e 28 27 27 ┆egnede størrelser'); writeln(''┆
0x3c7a0…3c7c0 3a 31 35 2c 27 73 61 6d 74 3a 20 61 62 73 2c 73 71 72 74 2c 20 73 69 6e 2c 20 63 6f 73 2c 20 61 ┆:15,'samt: abs,sqrt, sin, cos, a┆
0x3c7c0…3c7e0 72 63 74 61 6e 2c 20 6c 6e 2c 20 6c 6f 67 20 6f 67 20 65 78 70 2e 27 29 3b 0d 0a 77 72 69 74 65 ┆rctan, ln, log og exp.'); write┆
0x3c7e0…3c800 6c 6e 28 27 20 20 20 20 20 42 45 52 45 47 4e 3a 20 20 20 55 64 72 65 67 6e 69 6e 67 65 72 6e 65 ┆ln(' BEREGN: Udregningerne┆
0x3c800…3c820 (27, 0, 5) 49 4c 42 2c 46 52 45 4d 2c 4f 50 2c 4e 45 44 5d 20 54 48 45 4e 20 43 41 53 45 20 43 48 20 4f 46 ┆ILB,FREM,OP,NEDÅ THEN CASE CH OF┆
0x3c820…3c840 0d 0a 09 09 54 49 4c 42 2c 4e 45 44 3a 20 4c 3a 3d 20 28 4c 2b 36 29 20 4d 4f 44 20 37 3b 0d 0a ┆ TILB,NED: L:= (L+6) MOD 7; ┆
0x3c840…3c860 09 09 46 52 45 4d 2c 4f 50 20 3a 20 4c 3a 3d 20 28 4c 2b 31 29 20 4d 4f 44 20 37 3b 0d 0a 09 45 ┆ FREM,OP : L:= (L+1) MOD 7; E┆
0x3c860…3c880 4e 44 3b 0d 0a 09 47 4f 54 4f 58 59 28 38 2b 4c 2a 31 30 2c 32 32 29 3b 0d 0a 09 53 3a 3d 53 4e ┆ND; GOTOXY(8+L*10,22); S:=SN┆
0x3c880…3c8a0 41 56 4e 5b 4c 5d 3b 20 4c 31 3a 3d 20 50 4f 53 28 43 48 2c 27 56 4d 46 42 47 48 53 27 2b 52 45 ┆AVNÆLÅ; L1:= POS(CH,'VMFBGHS'+RE┆
0x3c8a0…3c8c0 54 55 52 29 3b 0d 0a 09 49 46 20 4c 31 20 3e 20 30 20 54 48 45 4e 20 42 45 47 49 4e 0d 0a 09 09 ┆TUR); IF L1 > 0 THEN BEGIN ┆
0x3c8c0…3c8e0 49 46 20 43 48 20 3c 3e 20 52 45 54 55 52 20 20 54 48 45 4e 20 42 45 47 49 4e 0d 0a 09 09 09 4c ┆IF CH <> RETUR THEN BEGIN L┆
0x3c8e0…3c900 3a 3d 4c 31 2d 31 3b 20 53 3a 3d 53 4e 41 56 4e 5b 4c 5d 20 45 4e 44 3b 0d 0a 09 09 43 41 53 45 ┆:=L1-1; S:=SNAVNÆLÅ END; CASE┆
0x3c900…3c920 20 53 20 4f 46 0d 0a 09 09 09 27 56 27 3a 20 48 45 4e 54 48 4a 41 45 4c 50 3b 0d 0a 09 09 09 27 ┆ S OF 'V': HENTHJAELP; '┆
0x3c920…3c940 4d 27 3a 20 4d 41 41 4c 3b 0d 0a 09 09 09 27 46 27 3a 20 46 55 4e 4b 54 49 4f 4e 42 3b 0d 0a 09 ┆M': MAAL; 'F': FUNKTIONB; ┆
0x3c940…3c960 09 09 27 42 27 3a 20 42 45 52 45 47 4e 42 3b 0d 0a 09 09 09 27 47 27 2c 27 48 27 3a 20 47 45 4d ┆ 'B': BEREGNB; 'G','H': GEM┆
0x3c960…3c980 48 45 4e 54 28 53 29 0d 0a 09 09 45 4e 44 0d 0a 09 45 4e 44 0d 0a 55 4e 54 49 4c 20 28 43 48 3d ┆HENT(S) END END UNTIL (CH=┆
0x3c980…3c9a0 27 53 27 29 20 4f 52 20 28 28 53 3d 27 53 27 29 20 41 4e 44 20 28 43 48 3d 52 45 54 55 52 29 29 ┆'S') OR ((S='S') AND (CH=RETUR))┆
0x3c9a0…3c9c0 3b 0d 0a 47 4f 54 4f 58 59 28 30 2c 30 29 3b 20 77 72 69 74 65 6c 6e 28 53 4c 45 54 45 4f 53 2c ┆; GOTOXY(0,0); writeln(SLETEOS,┆
0x3c9c0…3c9e0 27 44 65 74 20 76 61 72 20 68 79 67 67 65 6c 69 67 74 2e 2e 27 29 0d 0a 65 6e 64 2e 0d 0a 1a 1a ┆'Det var hyggeligt..') end. ┆
0x3c9e0…3ca00 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 ┆ ┆
0x3ca00…3ca20 (27, 0, 6) 20 66 6f 72 65 74 61 67 65 73 2e 27 29 3b 0d 0a 77 72 69 74 65 6c 6e 28 27 27 3a 31 35 2c 27 45 ┆ foretages.'); writeln('':15,'E┆
0x3ca20…3ca40 66 74 65 72 20 68 76 65 72 20 70 72 6f 63 65 64 75 72 65 20 6b 61 6e 20 73 6b 7b 72 6d 65 6e 20 ┆fter hver procedure kan skærmen ┆
0x3ca40…3ca60 6b 6f 70 69 65 72 65 73 20 70 7d 20 70 72 69 6e 74 65 72 65 6e 2e 27 29 3b 0d 0a 77 72 69 74 65 ┆kopieres på printeren.'); write┆
0x3ca60…3ca80 6c 6e 28 27 20 20 20 20 20 47 45 4d 3a 20 20 20 20 20 20 48 65 6c 65 20 6f 70 67 61 76 65 6e 20 ┆ln(' GEM: Hele opgaven ┆
0x3ca80…3caa0 67 65 6d 6d 65 73 20 70 7d 20 64 69 73 6b 65 74 74 65 6e 2e 27 29 3b 0d 0a 77 72 69 74 65 6c 6e ┆gemmes på disketten.'); writeln┆
0x3caa0…3cac0 28 27 20 20 20 20 20 48 45 4e 54 3a 20 20 20 20 20 4c 7b 73 65 72 20 65 6e 20 6f 70 67 61 76 65 ┆(' HENT: Læser en opgave┆
0x3cac0…3cae0 20 66 72 61 20 64 69 73 6b 65 74 74 65 6e 2e 27 29 3b 0d 0a 77 72 69 74 65 6c 6e 28 27 27 3a 31 ┆ fra disketten.'); writeln('':1┆
0x3cae0…3cb00 35 2c 27 48 65 6e 74 20 66 2e 65 6b 73 2e 20 6b 61 73 73 65 2e 20 4f 67 20 61 66 70 72 7c 76 20 ┆5,'Hent f.eks. kasse. Og afprøv ┆
0x3cb00…3cb20 4d 7d 6c 74 61 6c 2c 20 46 75 6e 6b 74 69 6f 6e 20 6f 67 20 42 65 72 65 67 6e 2e 27 29 3b 0d 0a ┆Måltal, Funktion og Beregn.'); ┆
0x3cb20…3cb40 77 72 69 74 65 6c 6e 28 27 20 20 20 20 20 56 45 4a 4c 45 44 4e 49 4e 47 3a 20 6c 7b 73 65 72 20 ┆writeln(' VEJLEDNING: læser ┆
0x3cb40…3cb60 6d 69 6e 69 63 61 6c 63 2e 68 6c 70 2e 27 29 0d 0a 65 6e 64 3b 09 7b 20 76 65 6a 6c 65 64 6e 69 ┆minicalc.hlp.') end; æ vejledni┆
0x3cb60…3cb80 6e 67 20 7d 0d 0a 0d 0a 70 72 6f 63 65 64 75 72 65 20 63 6c 6f 73 65 6c 3b 0d 0a 62 65 67 69 6e ┆ng å procedure closel; begin┆
0x3cb80…3cba0 0d 0a 09 70 6f 72 74 28 2e 31 31 2e 29 3a 3d 31 3b 20 77 68 69 6c 65 20 28 70 6f 72 74 28 2e 31 ┆ port(.11.):=1; while (port(.1┆
0x3cba0…3cbc0 31 2e 29 20 61 6e 64 20 31 29 3d 30 20 64 6f 20 70 6f 72 74 28 2e 31 31 2e 29 3a 3d 31 3b 0d 0a ┆1.) and 1)=0 do port(.11.):=1; ┆
0x3cbc0…3cbe0 09 70 6f 72 74 28 2e 31 31 2e 29 3a 3d 35 3b 20 70 6f 72 74 28 2e 31 31 2e 29 3a 3d 33 32 3b 0d ┆ port(.11.):=5; port(.11.):=32; ┆
0x3cbe0…3cc00 0a 65 6e 64 3b 0d 0a 0d 0a 70 72 6f 63 65 64 75 72 65 20 73 6b 72 69 76 73 6b 61 72 6d 28 59 31 ┆ end; procedure skrivskarm(Y1┆
0x3cc00…3cc20 (27, 0, 7) 4e 43 54 49 4f 4e 20 4d 49 4e 55 53 46 41 4b 54 4f 52 3a 20 52 45 41 4c 3b 0d 0a 0d 0a 46 55 4e ┆NCTION MINUSFAKTOR: REAL; FUN┆
0x3cc20…3cc40 43 54 49 4f 4e 20 46 41 4b 54 4f 52 3a 20 52 45 41 4c 3b 0d 0a 0d 0a 54 59 50 45 09 53 54 44 46 ┆CTION FAKTOR: REAL; TYPE STDF┆
0x3cc40…3cc60 20 3d 20 28 46 41 42 53 2c 46 53 51 52 54 2c 46 53 49 4e 2c 46 43 4f 53 2c 46 41 52 43 54 41 4e ┆ = (FABS,FSQRT,FSIN,FCOS,FARCTAN┆
0x3cc60…3cc80 2c 46 4c 4e 2c 46 45 58 50 29 3b 0d 0a 09 53 54 44 46 4c 49 53 54 20 3d 20 41 52 52 41 59 5b 53 ┆,FLN,FEXP); STDFLIST = ARRAYÆS┆
0x3cc80…3cca0 54 44 46 5d 20 4f 46 20 53 54 52 49 4e 47 5b 36 5d 3b 0d 0a 0d 0a 43 4f 4e 53 54 09 53 54 44 46 ┆TDFÅ OF STRINGÆ6Å; CONST STDF┆
0x3cca0…3ccc0 55 4e 3a 20 53 54 44 46 4c 49 53 54 20 3d 20 28 27 41 42 53 27 2c 27 53 51 52 54 27 2c 27 53 49 ┆UN: STDFLIST = ('ABS','SQRT','SI┆
0x3ccc0…3cce0 4e 27 2c 27 43 4f 53 27 2c 27 41 52 43 54 41 4e 27 2c 27 4c 4e 27 2c 27 45 58 50 27 29 3b 0d 0a ┆N','COS','ARCTAN','LN','EXP'); ┆
0x3cce0…3cd00 0d 0a 56 41 52 09 50 4f 53 31 3a 20 49 4e 54 45 47 45 52 3b 0d 0a 09 46 4f 55 4e 44 3a 20 42 4f ┆ VAR POS1: INTEGER; FOUND: BO┆
0x3cd00…3cd20 4f 4c 45 41 4e 3b 0d 0a 09 46 3a 20 52 45 41 4c 3b 20 53 46 3a 20 53 54 44 46 3b 20 46 53 3a 20 ┆OLEAN; F: REAL; SF: STDF; FS: ┆
0x3cd20…3cd40 53 54 52 49 4e 47 5b 36 5d 3b 0d 0a 42 45 47 49 4e 0d 0a 09 49 46 20 43 48 20 49 4e 20 5b 27 30 ┆STRINGÆ6Å; BEGIN IF CH IN Æ'0┆
0x3cd40…3cd60 27 2e 2e 27 39 27 5d 20 54 48 45 4e 20 42 45 47 49 4e 0d 0a 09 09 50 4f 53 31 3a 3d 50 4f 53 3b ┆'..'9'Å THEN BEGIN POS1:=POS;┆
0x3cd60…3cd80 0d 0a 09 09 52 45 50 45 41 54 20 4e 59 54 54 45 47 4e 20 55 4e 54 49 4c 20 4e 4f 54 28 43 48 20 ┆ REPEAT NYTTEGN UNTIL NOT(CH ┆
0x3cd80…3cda0 49 4e 20 5b 27 2e 27 2c 27 30 27 2e 2e 27 39 27 5d 29 3b 0d 0a 09 09 49 46 20 43 48 3d 27 45 27 ┆IN Æ'.','0'..'9'Å); IF CH='E'┆
0x3cda0…3cdc0 20 54 48 45 4e 20 42 45 47 49 4e 0d 0a 09 09 09 4e 59 54 54 45 47 4e 3b 0d 0a 09 09 09 49 46 20 ┆ THEN BEGIN NYTTEGN; IF ┆
0x3cdc0…3cde0 43 48 20 49 4e 20 5b 27 2b 27 2c 27 2d 27 5d 20 54 48 45 4e 20 4e 59 54 54 45 47 4e 3b 0d 0a 09 ┆CH IN Æ'+','-'Å THEN NYTTEGN; ┆
0x3cde0…3ce00 09 09 57 48 49 4c 45 20 43 48 20 49 4e 20 5b 27 30 27 2e 2e 27 39 27 5d 20 44 4f 20 4e 59 54 54 ┆ WHILE CH IN Æ'0'..'9'Å DO NYTT┆
0x3ce00…3ce20 (27, 0, 8) 2c 59 32 3a 62 79 74 65 29 3b 0d 0a 62 65 67 69 6e 0d 0a 09 66 6f 72 20 69 3a 3d 20 31 2b 79 31 ┆,Y2:byte); begin for i:= 1+y1┆
0x3ce20…3ce40 2a 38 30 20 74 6f 20 28 79 32 2b 31 29 2a 38 30 20 64 6f 20 62 65 67 69 6e 0d 0a 09 09 77 72 69 ┆*80 to (y2+1)*80 do begin wri┆
0x3ce40…3ce60 74 65 28 6c 73 74 2c 73 63 72 65 65 6e 5b 69 5d 29 3b 0d 0a 09 09 69 66 20 69 20 6d 6f 64 20 38 ┆te(lst,screenÆiÅ); if i mod 8┆
0x3ce60…3ce80 30 3d 30 20 74 68 65 6e 20 77 72 69 74 65 6c 6e 28 6c 73 74 29 0d 0a 09 65 6e 64 3b 0d 0a 09 77 ┆0=0 then writeln(lst) end; w┆
0x3ce80…3cea0 72 69 74 65 6c 6e 28 6c 73 74 29 0d 0a 65 6e 64 3b 09 7b 20 73 6b 72 69 76 73 6b 61 72 6d 20 7d ┆riteln(lst) end; æ skrivskarm å┆
0x3cea0…3cec0 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 20 4e 55 4c 53 54 49 4c 3b 0d 0a 42 45 47 49 4e 0d 0a 09 ┆ PROCEDURE NULSTIL; BEGIN ┆
0x3cec0…3cee0 6e 79 6f 70 67 3a 3d 20 74 72 75 65 3b 0d 0a 09 77 69 74 68 20 6f 70 67 20 64 6f 20 62 65 67 69 ┆nyopg:= true; with opg do begi┆
0x3cee0…3cf00 6e 0d 0a 09 09 61 73 6f 6a 6c 65 3a 3d 31 3b 20 62 73 6f 6a 6c 65 3a 3d 31 3b 20 72 61 6b 6b 65 ┆n asojle:=1; bsojle:=1; rakke┆
0x3cf00…3cf20 3a 3d 31 3b 0d 0a 09 09 66 6f 72 20 69 3a 3d 20 31 20 74 6f 20 6d 61 78 73 6f 6a 6c 65 20 64 6f ┆:=1; for i:= 1 to maxsojle do┆
0x3cf20…3cf40 20 62 65 67 69 6e 0d 0a 09 09 09 66 6f 72 20 6a 3a 3d 20 31 20 74 6f 20 6d 61 78 72 61 6b 6b 65 ┆ begin for j:= 1 to maxrakke┆
0x3cf40…3cf60 20 64 6f 0d 0a 09 09 09 62 65 67 69 6e 20 41 5b 69 2c 6a 5d 3a 3d 20 27 30 27 3b 20 42 5b 69 2c ┆ do begin AÆi,jÅ:= '0'; BÆi,┆
0x3cf60…3cf80 6a 5d 3a 3d 27 30 27 20 65 6e 64 3b 0d 0a 09 09 09 41 6e 61 76 6e 5b 69 5d 3a 3d 27 27 3b 20 42 ┆jÅ:='0' end; AnavnÆiÅ:=''; B┆
0x3cf80…3cfa0 6e 61 76 6e 5b 69 5d 3a 3d 27 27 3b 20 46 5b 69 5d 3a 3d 27 27 3b 0d 0a 09 09 09 41 52 45 4e 5b ┆navnÆiÅ:=''; FÆiÅ:=''; ARENÆ┆
0x3cfa0…3cfc0 49 5d 3a 3d 27 27 3b 42 52 45 4e 5b 49 5d 3a 3d 27 27 3b 0d 0a 09 09 65 6e 64 0d 0a 09 65 6e 64 ┆IÅ:='';BRENÆIÅ:=''; end end┆
0x3cfc0…3cfe0 0d 0a 45 4e 44 3b 0d 0a 0d 0a 70 72 6f 63 65 64 75 72 65 20 61 6b 74 69 76 28 69 3a 20 62 79 74 ┆ END; procedure aktiv(i: byt┆
0x3cfe0…3d000 65 29 3b 0d 0a 62 65 67 69 6e 0d 0a 09 67 6f 74 6f 78 79 28 30 2c 32 34 29 3b 20 77 72 69 74 65 ┆e); begin gotoxy(0,24); write┆
0x3d000…3d020 (27, 0, 9) 45 47 4e 0d 0a 09 09 45 4e 44 3b 0d 0a 09 09 56 41 4c 28 43 4f 50 59 28 46 4f 52 53 4b 52 49 46 ┆EGN END; VAL(COPY(FORSKRIF┆
0x3d020…3d040 54 2c 50 4f 53 31 2c 50 4f 53 2d 50 4f 53 31 29 2c 46 2c 50 29 3b 20 49 46 20 50 3c 3e 30 20 54 ┆T,POS1,POS-POS1),F,P); IF P<>0 T┆
0x3d040…3d060 48 45 4e 20 43 48 3a 3d 27 3f 27 0d 0a 09 45 4e 44 20 45 4c 53 45 20 49 46 20 43 48 3d 27 28 27 ┆HEN CH:='?' END ELSE IF CH='('┆
0x3d060…3d080 20 54 48 45 4e 20 42 45 47 49 4e 0d 0a 09 09 4e 59 54 54 45 47 4e 3b 0d 0a 09 09 46 3a 3d 55 44 ┆ THEN BEGIN NYTTEGN; F:=UD┆
0x3d080…3d0a0 54 52 59 4b 3b 0d 0a 09 09 49 46 20 43 48 3d 27 29 27 20 54 48 45 4e 20 4e 59 54 54 45 47 4e 20 ┆TRYK; IF CH=')' THEN NYTTEGN ┆
0x3d0a0…3d0c0 45 4c 53 45 20 43 48 3a 3d 46 45 4a 4c 43 48 0d 0a 09 45 4e 44 20 45 4c 53 45 20 49 46 20 43 48 ┆ELSE CH:=FEJLCH END ELSE IF CH┆
0x3d0c0…3d0e0 3d 27 58 27 20 54 48 45 4e 20 42 45 47 49 4e 09 7b 20 58 20 65 72 20 6c 69 67 20 76 7b 72 64 69 ┆='X' THEN BEGIN æ X er lig værdi┆
0x3d0e0…3d100 65 6e 20 61 66 20 66 6f 72 65 67 61 61 65 6e 64 65 20 7d 0d 0a 09 09 4e 59 54 54 45 47 4e 3b 20 ┆en af foregaaende å NYTTEGN; ┆
0x3d100…3d120 46 3a 3d 56 41 52 44 49 09 7b 20 62 65 72 65 67 6e 69 6e 67 20 7d 0d 0a 09 45 4e 44 20 45 4c 53 ┆F:=VARDI æ beregning å END ELS┆
0x3d120…3d140 45 20 49 46 20 43 48 20 49 4e 20 5b 40 36 35 2e 2e 40 39 33 5d 20 54 48 45 4e 20 42 45 47 49 4e ┆E IF CH IN Æ@65..@93Å THEN BEGIN┆
0x3d140…3d160 0d 0a 09 09 46 4f 55 4e 44 3a 3d 46 41 4c 53 45 3b 20 50 4f 53 31 3a 3d 50 4f 53 3b 0d 0a 09 09 ┆ FOUND:=FALSE; POS1:=POS; ┆
0x3d160…3d180 52 45 50 45 41 54 20 4e 59 54 54 45 47 4e 20 55 4e 54 49 4c 20 4e 4f 54 20 28 43 48 20 49 4e 20 ┆REPEAT NYTTEGN UNTIL NOT (CH IN ┆
0x3d180…3d1a0 5b 40 36 35 2e 2e 40 39 33 5d 29 3b 0d 0a 09 09 46 53 3a 3d 20 43 4f 50 59 28 46 4f 52 53 4b 52 ┆Æ@65..@93Å); FS:= COPY(FORSKR┆
0x3d1a0…3d1c0 49 46 54 2c 50 4f 53 31 2c 50 4f 53 2d 50 4f 53 31 29 3b 0d 0a 09 09 46 4f 52 20 53 46 3a 3d 46 ┆IFT,POS1,POS-POS1); FOR SF:=F┆
0x3d1c0…3d1e0 41 42 53 20 54 4f 20 46 45 58 50 20 44 4f 20 49 46 20 4e 4f 54 20 46 4f 55 4e 44 20 54 48 45 4e ┆ABS TO FEXP DO IF NOT FOUND THEN┆
0x3d1e0…3d200 20 42 45 47 49 4e 0d 0a 09 09 09 49 46 20 46 53 20 3d 20 53 54 44 46 55 4e 5b 53 46 5d 20 54 48 ┆ BEGIN IF FS = STDFUNÆSFÅ TH┆
0x3d200…3d220 (27, 1, 1) 28 53 4c 45 54 45 4f 4c 2c 27 41 6b 74 69 76 65 20 74 61 73 74 65 72 20 3a 20 27 29 3b 0d 0a 09 ┆(SLETEOL,'Aktive taster : '); ┆
0x3d220…3d240 63 61 73 65 20 69 20 6f 66 0d 0a 09 09 31 3a 20 77 72 69 74 65 28 27 45 53 43 2c 20 52 45 54 55 ┆case i of 1: write('ESC, RETU┆
0x3d240…3d260 52 4e 2c 20 50 49 4c 20 66 72 65 6d 2c 20 74 69 6c 62 61 67 65 2c 20 6f 70 20 6f 67 20 6e 65 64 ┆RN, PIL frem, tilbage, op og ned┆
0x3d260…3d280 27 29 3b 0d 0a 09 09 32 3a 20 77 72 69 74 65 28 27 42 53 2c 20 44 45 4c 2c 20 52 45 54 55 52 4e ┆'); 2: write('BS, DEL, RETURN┆
0x3d280…3d2a0 2c 20 50 49 4c 20 66 72 65 6d 2c 20 74 69 6c 62 61 67 65 2c 20 6f 70 20 6f 67 20 6e 65 64 27 29 ┆, PIL frem, tilbage, op og ned')┆
0x3d2a0…3d2c0 0d 0a 09 65 6e 64 0d 0a 65 6e 64 3b 09 7b 20 61 6b 74 69 76 20 7d 0d 0a 0d 0a 66 75 6e 63 74 69 ┆ end end; æ aktiv å functi┆
0x3d2c0…3d2e0 6f 6e 20 59 4e 3a 20 63 68 61 72 3b 0d 0a 62 65 67 69 6e 0d 0a 09 77 72 69 74 65 28 27 20 3f 20 ┆on YN: char; begin write(' ? ┆
0x3d2e0…3d300 28 59 2f 4e 29 20 27 29 3b 0d 0a 09 72 65 70 65 61 74 20 72 65 61 64 28 6b 62 64 2c 73 76 61 72 ┆(Y/N) '); repeat read(kbd,svar┆
0x3d300…3d320 29 3b 20 73 76 61 72 3a 3d 75 70 63 68 61 72 28 73 76 61 72 29 20 75 6e 74 69 6c 20 73 76 61 72 ┆); svar:=upchar(svar) until svar┆
0x3d320…3d340 20 69 6e 20 5b 27 59 27 2c 27 4e 27 5d 3b 0d 0a 09 59 4e 3a 3d 20 73 76 61 72 0d 0a 65 6e 64 3b ┆ in Æ'Y','N'Å; YN:= svar end;┆
0x3d340…3d360 0d 0a 0d 0a 66 75 6e 63 74 69 6f 6e 20 6f 6b 28 69 3a 62 79 74 65 29 3a 20 62 6f 6f 6c 65 61 6e ┆ function ok(i:byte): boolean┆
0x3d360…3d380 3b 0d 0a 62 65 67 69 6e 0d 0a 09 67 6f 74 6f 78 79 28 30 2c 32 34 29 3b 20 77 72 69 74 65 28 53 ┆; begin gotoxy(0,24); write(S┆
0x3d380…3d3a0 4c 45 54 45 4f 4c 2c 27 45 72 20 27 3a 31 33 29 3b 0d 0a 09 63 61 73 65 20 69 20 6f 66 0d 0a 09 ┆LETEOL,'Er ':13); case i of ┆
0x3d3a0…3d3c0 09 31 3a 20 77 72 69 74 65 28 27 73 6b 65 6d 61 65 74 20 6f 6b 27 29 3b 0d 0a 09 09 32 3a 20 77 ┆ 1: write('skemaet ok'); 2: w┆
0x3d3c0…3d3e0 72 69 74 65 28 27 6e 61 76 6e 65 6e 65 20 6f 6b 27 29 3b 0d 0a 09 09 33 3a 20 77 72 69 74 65 28 ┆rite('navnene ok'); 3: write(┆
0x3d3e0…3d400 27 66 6f 72 73 6b 72 69 66 74 65 72 6e 65 20 6f 6b 27 29 3b 0d 0a 09 65 6e 64 3b 0d 0a 09 6f 6b ┆'forskrifterne ok'); end; ok┆
0x3d400…3d420 (27, 1, 2) 64 64 65 3b 0d 0a 09 69 66 20 68 3d 31 20 74 68 65 6e 20 62 65 67 69 6e 20 67 6f 74 6f 78 79 28 ┆dde; if h=1 then begin gotoxy(┆
0x3d420…3d440 30 2c 31 29 3b 74 65 67 6e 28 62 73 74 72 32 29 3b 74 65 67 6e 28 74 6f 6d 29 3b 74 65 67 6e 28 ┆0,1);tegn(bstr2);tegn(tom);tegn(┆
0x3d440…3d460 62 73 74 72 32 29 20 65 6e 64 3b 0d 0a 09 67 6f 74 6f 78 79 28 30 2c 34 29 3b 0d 0a 09 66 6f 72 ┆bstr2) end; gotoxy(0,4); for┆
0x3d460…3d480 20 69 3a 3d 20 31 20 74 6f 20 72 20 64 6f 0d 0a 09 09 63 61 73 65 20 65 6e 74 6f 20 6f 66 0d 0a ┆ i:= 1 to r do case ento of ┆
0x3d480…3d4a0 09 09 09 31 3a 20 74 65 67 6e 28 74 6f 6d 29 3b 0d 0a 09 09 09 32 3a 20 62 65 67 69 6e 20 74 65 ┆ 1: tegn(tom); 2: begin te┆
0x3d4a0…3d4c0 67 6e 28 74 6f 6d 29 3b 74 65 67 6e 28 62 73 74 72 31 29 20 65 6e 64 0d 0a 09 09 65 6e 64 3b 0d ┆gn(tom);tegn(bstr1) end end; ┆
0x3d4c0…3d4e0 0a 09 69 66 20 72 20 69 6e 20 5b 39 2e 2e 31 37 5d 20 74 68 65 6e 20 74 65 67 6e 28 62 73 74 72 ┆ if r in Æ9..17Å then tegn(bstr┆
0x3d4e0…3d500 31 29 0d 0a 65 6e 64 3b 09 7b 20 74 65 67 6e 73 6b 65 6d 61 20 7d 0d 0a 0d 0a 70 72 6f 63 65 64 ┆1) end; æ tegnskema å proced┆
0x3d500…3d520 75 72 65 20 74 65 73 74 6e 61 76 6e 28 76 61 72 20 6e 61 76 6e 3a 20 73 74 72 31 30 29 3b 0d 0a ┆ure testnavn(var navn: str10); ┆
0x3d520…3d540 56 41 52 09 48 4f 4a 53 54 31 30 3a 20 42 59 54 45 3b 0d 0a 62 65 67 69 6e 0d 0a 09 49 46 20 4c ┆VAR HOJST10: BYTE; begin IF L┆
0x3d540…3d560 41 4e 47 20 3e 20 31 30 20 54 48 45 4e 20 48 4f 4a 53 54 31 30 3a 3d 20 31 30 20 45 4c 53 45 20 ┆ANG > 10 THEN HOJST10:= 10 ELSE ┆
0x3d560…3d580 48 4f 4a 53 54 31 30 3a 3d 4c 41 4e 47 3b 0d 0a 09 72 65 70 65 61 74 0d 0a 09 6e 61 76 6e 3a 3d ┆HOJST10:=LANG; repeat navn:=┆
0x3d580…3d5a0 73 74 72 65 6e 67 28 6e 61 76 6e 2c 72 62 68 2b 49 2a 28 62 72 65 64 64 65 2b 31 29 2c 32 2c 68 ┆streng(navn,rbh+I*(bredde+1),2,h┆
0x3d5a0…3d5c0 6f 6a 73 74 31 30 29 3b 0d 0a 09 49 4b 4b 45 42 4f 47 53 54 3a 3d 4e 4f 54 20 28 75 70 63 68 61 ┆ojst10); IKKEBOGST:=NOT (upcha┆
0x3d5c0…3d5e0 72 28 4e 41 56 4e 5b 31 5d 29 20 49 4e 20 42 4f 47 53 54 41 56 29 20 6f 72 20 28 6c 65 6e 28 6e ┆r(NAVNÆ1Å) IN BOGSTAV) or (len(n┆
0x3d5e0…3d600 61 76 6e 29 3d 30 29 3b 0d 0a 09 49 46 20 49 4b 4b 45 42 4f 47 53 54 20 54 48 45 4e 20 42 45 47 ┆avn)=0); IF IKKEBOGST THEN BEG┆
0x3d600…3d620 (27, 1, 3) 3a 3d 20 59 4e 20 3d 20 27 59 27 3b 0d 0a 09 57 52 49 54 45 28 52 45 54 55 52 2c 53 4c 45 54 45 ┆:= YN = 'Y'; WRITE(RETUR,SLETE┆
0x3d620…3d640 4f 4c 29 0d 0a 65 6e 64 3b 09 7b 20 6f 6b 20 7d 0d 0a 0d 0a 70 72 6f 63 65 64 75 72 65 20 64 69 ┆OL) end; æ ok å procedure di┆
0x3d640…3d660 72 3b 0d 0a 76 61 72 09 69 2c 20 74 2c 20 72 65 74 2c 20 73 74 6b 3a 20 69 6e 74 65 67 65 72 3b ┆r; var i, t, ret, stk: integer;┆
0x3d660…3d680 20 6e 61 76 6e 3a 20 73 74 72 69 6e 67 5b 31 32 5d 3b 0d 0a 62 65 67 69 6e 0d 0a 09 73 6c 65 74 ┆ navn: stringÆ12Å; begin slet┆
0x3d680…3d6a0 28 30 2c 32 30 2c 30 29 3b 20 67 6f 74 6f 78 79 28 30 2c 30 29 3b 0d 0a 09 77 72 69 74 65 6c 6e ┆(0,20,0); gotoxy(0,0); writeln┆
0x3d6a0…3d6c0 28 27 27 3a 32 30 2c 27 4b 61 74 61 6c 6f 67 20 6f 76 65 72 20 6f 70 67 61 76 65 72 3a 27 29 3b ┆('':20,'Katalog over opgaver:');┆
0x3d6c0…3d6e0 0d 0a 09 77 72 69 74 65 6c 6e 3b 0d 0a 09 6d 65 6d 28 2e 24 30 30 35 63 2e 29 3a 3d 30 3b 0d 0a ┆ writeln; mem(.$005c.):=0; ┆
0x3d6e0…3d700 09 66 6f 72 20 69 3a 3d 30 20 74 6f 20 31 30 20 64 6f 20 6d 65 6d 28 2e 24 30 30 35 64 2b 69 2e ┆ for i:=0 to 10 do mem(.$005d+i.┆
0x3d700…3d720 29 3a 3d 6f 72 64 28 27 3f 27 29 3b 0d 0a 09 62 64 6f 73 28 32 36 2c 24 65 65 38 31 29 3b 0d 0a ┆):=ord('?'); bdos(26,$ee81); ┆
0x3d720…3d740 09 72 65 74 3a 3d 62 64 6f 73 28 31 37 2c 24 30 30 35 63 29 3b 0d 0a 09 73 74 6b 3a 3d 30 3b 0d ┆ ret:=bdos(17,$005c); stk:=0; ┆
0x3d740…3d760 0a 09 72 65 70 65 61 74 0d 0a 09 09 69 3a 3d 30 3b 20 4e 41 56 4e 3a 3d 27 27 3b 09 09 0d 0a 09 ┆ repeat i:=0; NAVN:=''; ┆
0x3d760…3d780 09 72 65 70 65 61 74 0d 0a 09 09 09 74 3a 3d 6d 65 6d 28 2e 69 2b 24 65 65 38 32 2b 72 65 74 2a ┆ repeat t:=mem(.i+$ee82+ret*┆
0x3d780…3d7a0 33 32 2e 29 3b 0d 0a 09 09 09 77 68 69 6c 65 20 74 3e 31 32 38 20 64 6f 20 74 3a 3d 74 2d 31 32 ┆32.); while t>128 do t:=t-12┆
0x3d7a0…3d7c0 38 3b 0d 0a 09 09 09 6e 61 76 6e 3a 3d 6e 61 76 6e 20 2b 20 63 68 72 28 74 29 3b 0d 0a 09 09 09 ┆8; navn:=navn + chr(t); ┆
0x3d7c0…3d7e0 69 3a 3d 69 2b 31 3b 0d 0a 09 09 09 69 66 20 69 3d 38 20 74 68 65 6e 20 6e 61 76 6e 3a 3d 20 6e ┆i:=i+1; if i=8 then navn:= n┆
0x3d7e0…3d800 61 76 6e 20 2b 20 27 2e 27 3b 0d 0a 09 09 75 6e 74 69 6c 20 69 3d 31 31 3b 0d 0a 09 09 69 66 20 ┆avn + '.'; until i=11; if ┆
0x3d800…3d820 (27, 1, 4) 49 4e 20 6e 61 76 6e 3a 3d 27 27 3b 20 46 45 4a 4c 28 33 29 20 65 6e 64 3b 0d 0a 09 6c 6f 76 6c ┆IN navn:=''; FEJL(3) end; lovl┆
0x3d820…3d840 69 67 3a 3d 74 72 75 65 3b 0d 0a 09 66 6f 72 20 6a 3a 3d 20 31 20 74 6f 20 6c 65 6e 28 6e 61 76 ┆ig:=true; for j:= 1 to len(nav┆
0x3d840…3d860 6e 29 20 64 6f 0d 0a 09 6c 6f 76 6c 69 67 3a 3d 20 6c 6f 76 6c 69 67 20 61 6e 64 20 28 75 70 63 ┆n) do lovlig:= lovlig and (upc┆
0x3d860…3d880 68 61 72 28 6e 61 76 6e 5b 6a 5d 29 20 69 6e 20 62 6f 67 73 74 61 76 20 2b 20 63 69 66 66 65 72 ┆har(navnÆjÅ) in bogstav + ciffer┆
0x3d880…3d8a0 20 2b 20 5b 27 2f 27 5d 29 3b 0d 0a 09 69 66 20 6e 6f 74 20 6c 6f 76 6c 69 67 20 74 68 65 6e 20 ┆ + Æ'/'Å); if not lovlig then ┆
0x3d8a0…3d8c0 62 65 67 69 6e 20 6e 61 76 6e 3a 3d 27 27 3b 20 66 65 6a 6c 28 34 29 20 65 6e 64 0d 0a 75 6e 74 ┆begin navn:=''; fejl(4) end unt┆
0x3d8c0…3d8e0 69 6c 20 6c 6f 76 6c 69 67 20 61 6e 64 20 6e 6f 74 20 69 6b 6b 65 62 6f 67 73 74 0d 0a 45 4e 44 ┆il lovlig and not ikkebogst END┆
0x3d8e0…3d900 3b 0d 0a 0d 0a 66 75 6e 63 74 69 6f 6e 20 66 6e 61 76 6e 28 73 3a 73 74 72 31 30 29 3a 73 74 72 ┆; function fnavn(s:str10):str┆
0x3d900…3d920 31 30 3b 0d 0a 76 61 72 09 65 6e 68 65 64 3a 20 62 6f 6f 6c 65 61 6e 3b 0d 0a 62 65 67 69 6e 0d ┆10; var enhed: boolean; begin ┆
0x3d920…3d940 0a 09 73 3a 3d 75 70 63 61 73 65 28 73 29 3b 20 65 6e 68 65 64 3a 3d 70 6f 73 28 27 2f 27 2c 53 ┆ s:=upcase(s); enhed:=pos('/',S┆
0x3d940…3d960 29 20 3e 20 30 3b 0d 0a 09 69 66 20 65 6e 68 65 64 20 74 68 65 6e 20 46 4e 41 56 4e 3a 3d 20 63 ┆) > 0; if enhed then FNAVN:= c┆
0x3d960…3d980 6f 70 79 28 53 2c 31 2c 70 6f 73 28 27 2f 27 2c 53 29 2d 31 29 20 65 6c 73 65 20 46 4e 41 56 4e ┆opy(S,1,pos('/',S)-1) else FNAVN┆
0x3d980…3d9a0 3a 3d 53 0d 0a 65 6e 64 3b 0d 0a 0d 0a 70 72 6f 63 65 64 75 72 65 20 6c 61 65 73 41 68 6f 76 65 ┆:=S end; procedure laesAhove┆
0x3d9a0…3d9c0 64 3b 0d 0a 76 61 72 09 6a 3a 20 69 6e 74 65 67 65 72 3b 0d 0a 62 65 67 69 6e 0d 0a 20 20 69 66 ┆d; var j: integer; begin if┆
0x3d9c0…3d9e0 20 62 72 65 64 64 65 20 3e 20 31 30 20 74 68 65 6e 20 6c 61 6e 67 3a 3d 20 31 30 20 65 6c 73 65 ┆ bredde > 10 then lang:= 10 else┆
0x3d9e0…3da00 20 6c 61 6e 67 3a 3d 20 62 72 65 64 64 65 2d 31 3b 0d 0a 20 20 72 65 70 65 61 74 0d 0a 20 20 20 ┆ lang:= bredde-1; repeat ┆
0x3da00…3da20 (27, 1, 5) 70 6f 73 28 27 2e 4d 49 44 27 2c 4e 41 56 4e 29 20 3e 20 30 20 54 48 45 4e 20 42 45 47 49 4e 0d ┆pos('.MID',NAVN) > 0 THEN BEGIN ┆
0x3da20…3da40 0a 09 09 09 57 52 49 54 45 28 4e 41 56 4e 29 3b 20 53 54 4b 3a 3d 20 53 54 4b 2b 31 3b 0d 0a 09 ┆ WRITE(NAVN); STK:= STK+1; ┆
0x3da40…3da60 09 09 69 66 20 73 74 6b 20 6d 6f 64 20 35 3d 30 20 74 68 65 6e 20 77 72 69 74 65 6c 6e 20 65 6c ┆ if stk mod 5=0 then writeln el┆
0x3da60…3da80 73 65 20 77 72 69 74 65 28 27 20 20 20 27 29 0d 0a 09 09 45 4e 44 3b 0d 0a 09 09 72 65 74 3a 3d ┆se write(' ') END; ret:=┆
0x3da80…3daa0 62 64 6f 73 28 31 38 2c 30 29 0d 0a 09 75 6e 74 69 6c 20 72 65 74 3d 32 35 35 0d 0a 65 6e 64 3b ┆bdos(18,0) until ret=255 end;┆
0x3daa0…3dac0 09 7b 20 64 69 72 20 7d 0d 0a 09 0d 0a 70 72 6f 63 65 64 75 72 65 20 47 45 4d 48 45 4e 54 28 43 ┆ æ dir å procedure GEMHENT(C┆
0x3dac0…3dae0 48 3a 20 43 48 41 52 29 3b 0d 0a 76 61 72 20 6b 61 74 61 6c 6f 67 3a 20 62 6f 6f 6c 65 61 6e 3b ┆H: CHAR); var katalog: boolean;┆
0x3dae0…3db00 0d 0a 62 65 67 69 6e 0d 0a 09 67 6f 74 6f 78 79 28 30 2c 32 34 29 3b 0d 0a 09 77 72 69 74 65 28 ┆ begin gotoxy(0,24); write(┆
0x3db00…3db20 53 4c 45 54 45 4f 4c 2c 27 27 3a 31 30 2c 27 5c 6e 73 6b 65 73 20 6b 61 74 61 6c 6f 67 20 6f 76 ┆SLETEOL,'':10,'Ønskes katalog ov┆
0x3db20…3db40 65 72 20 6f 70 67 61 76 65 72 27 29 3b 0d 0a 09 6b 61 74 61 6c 6f 67 3a 3d 20 59 4e 20 3d 27 59 ┆er opgaver'); katalog:= YN ='Y┆
0x3db40…3db60 27 3b 0d 0a 09 69 66 20 6b 61 74 61 6c 6f 67 20 74 68 65 6e 20 62 65 67 69 6e 0d 0a 09 09 66 6f ┆'; if katalog then begin fo┆
0x3db60…3db80 72 20 69 3a 3d 20 31 20 74 6f 20 32 30 30 30 20 64 6f 20 6b 6f 70 69 73 63 72 65 65 6e 5b 49 5d ┆r i:= 1 to 2000 do kopiscreenÆIÅ┆
0x3db80…3dba0 3a 3d 73 63 72 65 65 6e 5b 69 5d 3b 0d 0a 09 09 64 69 72 0d 0a 09 65 6e 64 3b 0d 0a 09 67 6f 74 ┆:=screenÆiÅ; dir end; got┆
0x3dba0…3dbc0 6f 78 79 28 30 2c 32 34 29 3b 0d 0a 09 49 46 20 43 48 3d 27 47 27 20 54 48 45 4e 20 77 72 69 74 ┆oxy(0,24); IF CH='G' THEN writ┆
0x3dbc0…3dbe0 65 28 53 4c 45 54 45 4f 4c 2c 27 27 3a 31 30 2c 27 48 76 61 64 20 73 6b 61 6c 20 6f 70 67 61 76 ┆e(SLETEOL,'':10,'Hvad skal opgav┆
0x3dbe0…3dc00 65 6e 20 68 65 64 64 65 20 3f 27 29 20 45 4c 53 45 0d 0a 09 09 57 52 49 54 45 28 53 4c 45 54 45 ┆en hedde ?') ELSE WRITE(SLETE┆
0x3dc00…3dc20 (27, 1, 6) 20 69 3a 3d 20 30 3b 0d 0a 20 20 20 20 72 65 70 65 61 74 0d 0a 20 20 20 20 20 20 61 6b 74 69 76 ┆ i:= 0; repeat aktiv┆
0x3dc20…3dc40 28 32 29 3b 20 65 6e 73 3a 3d 20 66 61 6c 73 65 3b 20 69 3a 3d 20 69 2b 31 3b 20 0d 0a 20 20 20 ┆(2); ens:= false; i:= i+1; ┆
0x3dc40…3dc60 20 20 20 54 45 53 54 4e 41 56 4e 28 4f 50 47 2e 41 4e 41 56 4e 5b 49 5d 29 3b 20 41 52 45 4e 5b ┆ TESTNAVN(OPG.ANAVNÆIÅ); ARENÆ┆
0x3dc60…3dc80 49 5d 3a 3d 20 46 4e 41 56 4e 28 4f 50 47 2e 41 4e 41 56 4e 5b 49 5d 29 3b 0d 0a 20 20 20 20 20 ┆IÅ:= FNAVN(OPG.ANAVNÆIÅ); ┆
0x3dc80…3dca0 20 66 6f 72 20 6a 3a 3d 20 31 20 74 6f 20 49 2d 31 20 64 6f 20 65 6e 73 3a 3d 20 65 6e 73 20 4f ┆ for j:= 1 to I-1 do ens:= ens O┆
0x3dca0…3dcc0 52 20 28 41 52 45 4e 5b 6a 5d 20 3d 20 41 52 45 4e 5b 69 5d 29 3b 0d 0a 20 20 20 20 20 20 69 66 ┆R (ARENÆjÅ = ARENÆiÅ); if┆
0x3dcc0…3dce0 20 65 6e 73 20 74 68 65 6e 20 62 65 67 69 6e 0d 0a 20 20 20 20 20 20 20 20 4f 50 47 2e 41 6e 61 ┆ ens then begin OPG.Ana┆
0x3dce0…3dd00 76 6e 5b 69 5d 3a 3d 27 27 3b 20 69 3a 3d 20 69 2d 31 3b 20 46 45 4a 4c 28 31 29 0d 0a 20 20 20 ┆vnÆiÅ:=''; i:= i-1; FEJL(1) ┆
0x3dd00…3dd20 20 20 20 65 6e 64 0d 0a 20 20 20 20 75 6e 74 69 6c 20 28 69 3d 20 6f 70 67 2e 61 73 6f 6a 6c 65 ┆ end until (i= opg.asojle┆
0x3dd20…3dd40 29 20 61 6e 64 20 6e 6f 74 20 65 6e 73 0d 0a 20 20 75 6e 74 69 6c 20 6f 6b 28 32 29 0d 0a 65 6e ┆) and not ens until ok(2) en┆
0x3dd40…3dd60 64 3b 09 7b 20 6c 61 65 73 41 68 6f 76 65 64 20 7d 0d 0a 0d 0a 70 72 6f 63 65 64 75 72 65 20 6c ┆d; æ laesAhoved å procedure l┆
0x3dd60…3dd80 61 65 73 41 3b 0d 0a 76 61 72 09 6f 6b 61 79 3a 20 62 6f 6f 6c 65 61 6e 3b 0d 0a 62 65 67 69 6e ┆aesA; var okay: boolean; begin┆
0x3dd80…3dda0 0d 0a 09 69 3a 3d 31 3b 20 6a 3a 3d 31 3b 20 6f 6b 61 79 3a 3d 20 66 61 6c 73 65 3b 20 62 6c 61 ┆ i:=1; j:=1; okay:= false; bla┆
0x3dda0…3ddc0 6e 6b 65 3a 3d 20 63 6f 70 79 28 74 6f 6d 2c 32 2c 6c 61 6e 67 29 3b 0d 0a 09 77 69 74 68 20 6f ┆nke:= copy(tom,2,lang); with o┆
0x3ddc0…3dde0 70 67 20 64 6f 20 72 65 70 65 61 74 0d 0a 09 09 61 6b 74 69 76 28 31 29 3b 20 67 6f 74 6f 78 79 ┆pg do repeat aktiv(1); gotoxy┆
0x3dde0…3de00 28 72 62 68 2b 69 2a 28 62 72 65 64 64 65 2b 31 29 2c 34 2b 65 6e 74 6f 2a 28 6a 2d 31 29 29 3b ┆(rbh+i*(bredde+1),4+ento*(j-1));┆
0x3de00…3de20 (27, 1, 7) 4f 4c 2c 27 27 3a 31 30 2c 27 48 76 61 64 20 68 65 64 64 65 72 20 6f 70 67 61 76 65 6e 20 3f 20 ┆OL,'':10,'Hvad hedder opgaven ? ┆
0x3de20…3de40 27 29 3b 0d 0a 09 67 6f 74 6f 78 79 28 34 34 2c 32 34 29 3b 20 77 72 69 74 65 28 27 2e 4d 49 44 ┆'); gotoxy(44,24); write('.MID┆
0x3de40…3de60 27 29 3b 0d 0a 09 72 65 70 65 61 74 0d 0a 09 09 66 69 6c 6e 61 76 6e 3a 3d 27 27 3b 20 66 69 6c ┆'); repeat filnavn:=''; fil┆
0x3de60…3de80 6e 61 76 6e 3a 3d 73 74 72 65 6e 67 28 66 69 6c 6e 61 76 6e 2c 33 36 2c 32 34 2c 38 29 3b 0d 0a ┆navn:=streng(filnavn,36,24,8); ┆
0x3de80…3dea0 09 09 66 69 6c 6e 61 76 6e 3a 3d 20 75 70 63 61 73 65 28 66 69 6c 6e 61 76 6e 29 3b 20 6c 6f 76 ┆ filnavn:= upcase(filnavn); lov┆
0x3dea0…3dec0 6c 69 67 3a 3d 74 72 75 65 3b 0d 0a 09 09 66 6f 72 20 6a 3a 3d 20 31 20 74 6f 20 6c 65 6e 28 66 ┆lig:=true; for j:= 1 to len(f┆
0x3dec0…3dee0 69 6c 6e 61 76 6e 29 20 64 6f 0d 0a 09 09 6c 6f 76 6c 69 67 3a 3d 20 6c 6f 76 6c 69 67 20 61 6e ┆ilnavn) do lovlig:= lovlig an┆
0x3dee0…3df00 64 20 28 66 69 6c 6e 61 76 6e 5b 6a 5d 20 69 6e 20 55 53 20 2b 20 63 69 66 66 65 72 29 3b 0d 0a ┆d (filnavnÆjÅ in US + ciffer); ┆
0x3df00…3df20 09 09 69 66 20 6e 6f 74 20 6c 6f 76 6c 69 67 20 74 68 65 6e 20 62 65 67 69 6e 0d 0a 09 09 09 67 ┆ if not lovlig then begin g┆
0x3df20…3df40 6f 74 6f 78 79 28 35 30 2c 32 34 29 3b 20 77 72 69 74 65 28 27 6b 75 6e 20 41 2e 2e 5a 2c 30 2e ┆otoxy(50,24); write('kun A..Z,0.┆
0x3df40…3df60 2e 39 20 27 29 3b 76 65 6e 74 3b 20 42 53 28 32 35 29 0d 0a 09 09 65 6e 64 0d 0a 09 75 6e 74 69 ┆.9 ');vent; BS(25) end unti┆
0x3df60…3df80 6c 20 6c 6f 76 6c 69 67 3b 0d 0a 09 66 69 6c 6e 61 76 6e 3a 3d 20 66 69 6c 6e 61 76 6e 20 2b 20 ┆l lovlig; filnavn:= filnavn + ┆
0x3df80…3dfa0 27 2e 4d 49 44 27 3b 0d 0a 09 61 73 73 69 67 6e 28 46 4f 50 47 2c 66 69 6c 6e 61 76 6e 29 3b 0d ┆'.MID'; assign(FOPG,filnavn); ┆
0x3dfa0…3dfc0 0a 09 49 46 20 43 48 3d 27 47 27 20 54 48 45 4e 20 42 45 47 49 4e 20 72 65 77 72 69 74 65 28 46 ┆ IF CH='G' THEN BEGIN rewrite(F┆
0x3dfc0…3dfe0 4f 50 47 29 3b 20 77 72 69 74 65 28 46 4f 50 47 2c 4f 50 47 29 20 45 4e 44 0d 0a 09 45 4c 53 45 ┆OPG); write(FOPG,OPG) END ELSE┆
0x3dfe0…3e000 20 42 45 47 49 4e 20 7b 24 49 2d 7d 20 72 65 73 65 74 28 66 6f 70 67 29 3b 20 7b 24 49 2b 7d 0d ┆ BEGIN æ$I-å reset(fopg); æ$I+å ┆
0x3e000…3e020 (27, 1, 8) 0d 0a 09 09 41 5b 69 2c 6a 5d 3a 3d 6c 61 65 73 72 65 61 6c 28 41 5b 69 2c 6a 5d 2c 6d 69 6e 72 ┆ AÆi,jÅ:=laesreal(AÆi,jÅ,minr┆
0x3e020…3e040 65 61 6c 2c 6d 61 78 72 65 61 6c 29 3b 0d 0a 09 09 69 66 20 28 49 3d 61 73 6f 6a 6c 65 29 20 61 ┆eal,maxreal); if (I=asojle) a┆
0x3e040…3e060 6e 64 20 28 4a 3d 72 61 6b 6b 65 29 20 74 68 65 6e 20 6f 6b 61 79 3a 3d 20 6f 6b 28 31 29 3b 0d ┆nd (J=rakke) then okay:= ok(1); ┆
0x3e060…3e080 0a 09 09 63 61 73 65 20 63 68 20 6f 66 0d 0a 09 09 54 49 4c 42 3a 09 49 3a 3d 20 31 20 2b 20 28 ┆ case ch of TILB: I:= 1 + (┆
0x3e080…3e0a0 49 2b 41 53 4f 4a 4c 45 2d 32 29 20 4d 4f 44 20 41 53 4f 4a 4c 45 3b 0d 0a 09 09 52 45 54 55 52 ┆I+ASOJLE-2) MOD ASOJLE; RETUR┆
0x3e0a0…3e0c0 2c 46 52 45 4d 3a 42 45 47 49 4e 20 49 46 20 49 3d 41 53 4f 4a 4c 45 20 54 48 45 4e 20 4a 3a 3d ┆,FREM:BEGIN IF I=ASOJLE THEN J:=┆
0x3e0c0…3e0e0 20 4a 20 4d 4f 44 20 52 41 4b 4b 45 20 2b 31 3b 0d 0a 09 09 09 49 3a 3d 20 49 20 4d 4f 44 20 41 ┆ J MOD RAKKE +1; I:= I MOD A┆
0x3e0e0…3e100 53 4f 4a 4c 45 20 2b 31 20 45 4e 44 3b 0d 0a 09 09 4f 50 3a 09 4a 3a 3d 20 31 20 2b 20 28 4a 2b ┆SOJLE +1 END; OP: J:= 1 + (J+┆
0x3e100…3e120 52 41 4b 4b 45 2d 32 29 20 4d 4f 44 20 52 41 4b 4b 45 3b 0d 0a 09 09 4e 45 44 3a 09 4a 3a 3d 20 ┆RAKKE-2) MOD RAKKE; NED: J:= ┆
0x3e120…3e140 4a 20 4d 4f 44 20 52 41 4b 4b 45 20 2b 20 31 3b 0d 0a 09 09 45 53 43 3a 09 69 66 20 6e 6f 74 20 ┆J MOD RAKKE + 1; ESC: if not ┆
0x3e140…3e160 6f 6b 28 31 29 20 74 68 65 6e 20 62 65 67 69 6e 20 69 3a 3d 31 3b 20 6a 3a 3d 31 20 65 6e 64 0d ┆ok(1) then begin i:=1; j:=1 end ┆
0x3e160…3e180 0a 09 09 09 65 6c 73 65 20 6f 6b 61 79 3a 3d 20 74 72 75 65 0d 0a 09 09 65 6e 64 0d 0a 09 75 6e ┆ else okay:= true end un┆
0x3e180…3e1a0 74 69 6c 20 6f 6b 61 79 0d 0a 65 6e 64 3b 09 7b 20 6c 61 65 73 41 20 7d 0d 0a 0d 0a 70 72 6f 63 ┆til okay end; æ laesA å proc┆
0x3e1a0…3e1c0 65 64 75 72 65 20 73 6b 72 69 76 41 3b 0d 0a 62 65 67 69 6e 0d 0a 09 4c 61 65 73 41 68 6f 76 65 ┆edure skrivA; begin LaesAhove┆
0x3e1c0…3e1e0 64 3b 0d 0a 09 66 6f 72 20 69 3a 3d 20 31 20 74 6f 20 6f 70 67 2e 61 73 6f 6a 6c 65 20 64 6f 20 ┆d; for i:= 1 to opg.asojle do ┆
0x3e1e0…3e200 66 6f 72 20 6a 3a 3d 31 20 74 6f 20 6f 70 67 2e 72 61 6b 6b 65 20 64 6f 20 62 65 67 69 6e 0d 0a ┆for j:=1 to opg.rakke do begin ┆
0x3e200…3e220 (27, 1, 9) 0a 09 09 69 66 20 69 6f 72 65 73 3d 30 20 74 68 65 6e 20 62 65 67 69 6e 20 72 65 61 64 28 66 6f ┆ if iores=0 then begin read(fo┆
0x3e220…3e240 70 67 2c 6f 70 67 29 3b 20 6e 79 6f 70 67 3a 3d 66 61 6c 73 65 20 65 6e 64 0d 0a 09 09 65 6c 73 ┆pg,opg); nyopg:=false end els┆
0x3e240…3e260 65 20 77 72 69 74 65 28 52 45 54 55 52 2c 27 27 3a 31 30 2c 27 4f 70 67 61 76 65 6e 20 66 69 6e ┆e write(RETUR,'':10,'Opgaven fin┆
0x3e260…3e280 64 65 73 20 69 6b 6b 65 27 29 0d 0a 09 45 4e 44 3b 0d 0a 09 69 66 20 6b 61 74 61 6c 6f 67 20 61 ┆des ikke') END; if katalog a┆
0x3e280…3e2a0 6e 64 20 28 63 68 3d 27 47 27 29 20 74 68 65 6e 0d 0a 09 66 6f 72 20 69 3a 3d 20 31 20 74 6f 20 ┆nd (ch='G') then for i:= 1 to ┆
0x3e2a0…3e2c0 31 39 32 30 20 64 6f 20 73 63 72 65 65 6e 5b 69 5d 3a 3d 20 6b 6f 70 69 73 63 72 65 65 6e 5b 69 ┆1920 do screenÆiÅ:= kopiscreenÆi┆
0x3e2c0…3e2e0 5d 3b 0d 0a 09 63 6c 6f 73 65 28 46 4f 50 47 29 0d 0a 65 6e 64 3b 09 7b 20 67 65 6d 68 65 6e 74 ┆Å; close(FOPG) end; æ gemhent┆
0x3e2e0…3e300 20 7d 0d 0a 0d 0a 70 72 6f 63 65 64 75 72 65 20 74 65 67 6e 73 6b 65 6d 61 28 73 6f 6a 6c 65 2c ┆ å procedure tegnskema(sojle,┆
0x3e300…3e320 68 2c 72 3a 20 42 59 54 45 29 3b 0d 0a 70 72 6f 63 65 64 75 72 65 20 74 65 67 6e 28 73 3a 73 74 ┆h,r: BYTE); procedure tegn(s:st┆
0x3e320…3e340 72 32 30 29 3b 0d 0a 62 65 67 69 6e 0d 0a 09 77 72 69 74 65 28 27 27 3a 72 68 29 3b 0d 0a 09 66 ┆r20); begin write('':rh); f┆
0x3e340…3e360 6f 72 20 6a 3a 3d 20 31 20 74 6f 20 73 6f 6a 6c 65 20 64 6f 20 77 72 69 74 65 28 63 6f 70 79 28 ┆or j:= 1 to sojle do write(copy(┆
0x3e360…3e380 53 2c 31 2c 62 72 65 64 64 65 2b 31 29 29 3b 0d 0a 09 77 72 69 74 65 6c 6e 28 27 21 27 29 0d 0a ┆S,1,bredde+1)); writeln('!') ┆
0x3e380…3e3a0 65 6e 64 3b 0d 0a 62 65 67 69 6e 0d 0a 09 62 72 65 64 64 65 3a 3d 20 28 37 39 2d 73 6f 6a 6c 65 ┆end; begin bredde:= (79-sojle┆
0x3e3a0…3e3c0 29 20 64 69 76 20 73 6f 6a 6c 65 3b 20 69 66 20 62 72 65 64 64 65 20 3e 20 31 39 20 74 68 65 6e ┆) div sojle; if bredde > 19 then┆
0x3e3c0…3e3e0 20 62 72 65 64 64 65 3a 3d 31 39 3b 0d 0a 09 72 68 3a 3d 28 37 39 20 2d 20 73 6f 6a 6c 65 2a 28 ┆ bredde:=19; rh:=(79 - sojle*(┆
0x3e3e0…3e400 62 72 65 64 64 65 2b 31 29 29 20 64 69 76 20 32 3b 20 72 62 68 3a 3d 20 72 68 20 2d 20 62 72 65 ┆bredde+1)) div 2; rbh:= rh - bre┆
0x3e400…3e600 (28, 0, 1) DataBlock {»IMPULSEL.MID«}
[…0x6…]
0x3f200…3f400 (28, 0, 8) DataBlock {»IMPULSUE.MID«}
0x3f400…3f600 (28, 0, 9) DataBlock {»IMPULSEL.MID«}
0x3f600…3f800 (28, 1, 1) DataBlock {»IMPULSUE.MID«}
[…0x9…]
0x40a00…40c00 (29, 0, 2) DataBlock {»ENERGIBE.MID«}
0x40c00…40e00 (29, 0, 3) DataBlock {»IMPULSUE.MID«}
0x40e00…41000 (29, 0, 4) DataBlock {»ENERGIBE.MID«}
[…0x6…]
0x41c00…41e00 (29, 1, 2) DataBlock {»FRITFALD.MID«}
0x41e00…42000 (29, 1, 3) DataBlock {»ENERGIBE.MID«}
0x42000…42200 (29, 1, 4) DataBlock {»FRITFALD.MID«}
0x42200…42400 (29, 1, 5) DataBlock {»ENERGIBE.MID«}
0x42400…42600 (29, 1, 6) DataBlock {»FRITFALD.MID«}
0x42600…42800 (29, 1, 7) DataBlock {»ENERGIBE.MID«}
0x42800…42a00 (29, 1, 8) DataBlock {»FRITFALD.MID«}
0x42a00…42c00 (29, 1, 9) DataBlock {»ENERGIBE.MID«}
0x42c00…42e00 (30, 0, 1) DataBlock {»FRITFALD.MID«}
[…0x6…]
0x43a00…43c00 (30, 0, 8) DataBlock {»PKOVELSE.MID«}
0x43c00…43e00 (30, 0, 9) DataBlock {»FRITFALD.MID«}
0x43e00…44000 (30, 1, 1) DataBlock {»PKOVELSE.MID«}
0x44000…44020 (30, 1, 2) 72 69 76 41 3b 0d 0a 20 20 69 66 20 70 72 69 6e 74 65 72 20 74 68 65 6e 20 69 66 20 75 64 73 6b ┆rivA; if printer then if udsk┆
0x44020…44040 72 28 31 29 20 74 68 65 6e 20 73 6b 72 69 76 73 6b 61 72 6d 28 30 2c 65 6e 74 6f 2a 6f 70 67 2e ┆r(1) then skrivskarm(0,ento*opg.┆
0x44040…44060 72 61 6b 6b 65 2b 34 29 3b 0d 0a 20 20 6e 79 6f 70 67 3a 3d 66 61 6c 73 65 0d 0a 65 6e 64 3b 09 ┆rakke+4); nyopg:=false end; ┆
0x44060…44080 7b 20 6d 61 61 6c 20 7d 0d 0a 0d 0a 70 72 6f 63 65 64 75 72 65 20 6c 61 65 73 42 68 6f 76 65 64 ┆æ maal å procedure laesBhoved┆
0x44080…440a0 3b 0d 0a 62 65 67 69 6e 0d 0a 20 20 73 6c 65 74 28 31 30 2c 32 30 2c 30 29 3b 0d 0a 20 20 46 4f ┆; begin slet(10,20,0); FO┆
0x440a0…440c0 52 20 49 3a 3d 20 31 20 54 4f 20 32 30 30 30 20 44 4f 20 4b 4f 50 49 53 43 52 45 45 4e 5b 49 5d ┆R I:= 1 TO 2000 DO KOPISCREENÆIÅ┆
0x440c0…440e0 3a 3d 53 43 52 45 45 4e 5b 49 5d 3b 0d 0a 20 20 53 4c 45 54 28 30 2c 34 2c 30 29 3b 0d 0a 20 20 ┆:=SCREENÆIÅ; SLET(0,4,0); ┆
0x440e0…44100 46 4f 52 20 49 3a 3d 20 33 32 31 20 54 4f 20 31 31 32 30 20 44 4f 20 53 43 52 45 45 4e 5b 49 5d ┆FOR I:= 321 TO 1120 DO SCREENÆIÅ┆
0x44100…44120 3a 3d 4b 4f 50 49 53 43 52 45 45 4e 5b 49 2d 33 32 30 5d 3b 0d 0a 20 20 67 6f 74 6f 78 79 28 30 ┆:=KOPISCREENÆI-320Å; gotoxy(0┆
0x44120…44140 2c 30 29 3b 20 77 72 69 74 65 28 27 42 65 72 65 67 6e 69 6e 67 73 73 6b 65 6d 61 3a 27 3a 34 38 ┆,0); write('Beregningsskema:':48┆
0x44140…44160 29 3b 0d 0a 20 20 67 6f 74 6f 78 79 28 30 2c 32 34 29 3b 0d 0a 20 20 77 72 69 74 65 28 53 4c 45 ┆); gotoxy(0,24); write(SLE┆
0x44160…44180 54 45 4f 4c 2c 27 27 3a 31 30 2c 27 41 6e 74 61 6c 20 73 7c 6a 6c 65 72 28 31 2e 2e 27 2c 4d 41 ┆TEOL,'':10,'Antal søjler(1..',MA┆
0x44180…441a0 58 53 4f 4a 4c 45 2c 27 29 20 3a 20 27 2c 6f 70 67 2e 62 73 6f 6a 6c 65 2c 54 49 4c 42 29 3b 0d ┆XSOJLE,') : ',opg.bsojle,TILB); ┆
0x441a0…441c0 0a 20 20 6f 70 67 2e 62 73 6f 6a 6c 65 3a 3d 20 6c 61 65 73 69 6e 74 28 6f 70 67 2e 62 73 6f 6a ┆ opg.bsojle:= laesint(opg.bsoj┆
0x441c0…441e0 6c 65 2c 31 2c 4d 41 58 53 4f 4a 4c 45 29 3b 0d 0a 20 20 54 45 47 4e 53 4b 45 4d 41 28 6f 70 67 ┆le,1,MAXSOJLE); TEGNSKEMA(opg┆
0x441e0…44200 2e 62 73 6f 6a 6c 65 2c 31 2c 30 29 3b 0d 0a 20 20 6c 61 6e 67 3a 3d 20 62 72 65 64 64 65 2d 31 ┆.bsojle,1,0); lang:= bredde-1┆
0x44200…44400 (30, 1, 3) DataBlock {»PKOVELSE.MID«}
0x44400…44420 (30, 1, 4) 3b 20 69 66 20 6c 61 6e 67 20 3e 31 32 20 74 68 65 6e 20 6c 61 6e 67 3a 3d 31 32 3b 0d 0a 20 20 ┆; if lang >12 then lang:=12; ┆
0x44420…44440 77 69 74 68 20 6f 70 67 20 64 6f 20 72 65 70 65 61 74 0d 0a 20 20 20 20 69 3a 3d 20 30 3b 0d 0a ┆with opg do repeat i:= 0; ┆
0x44440…44460 20 20 20 20 72 65 70 65 61 74 0d 0a 20 20 20 20 20 20 61 6b 74 69 76 28 32 29 3b 20 65 6e 73 3a ┆ repeat aktiv(2); ens:┆
0x44460…44480 3d 20 66 61 6c 73 65 3b 20 69 3a 3d 20 69 2b 31 3b 0d 0a 20 20 20 20 20 20 54 45 53 54 4e 41 56 ┆= false; i:= i+1; TESTNAV┆
0x44480…444a0 4e 28 62 6e 61 76 6e 5b 49 5d 29 3b 20 42 52 45 4e 5b 49 5d 3a 3d 46 4e 41 56 4e 28 42 4e 41 56 ┆N(bnavnÆIÅ); BRENÆIÅ:=FNAVN(BNAV┆
0x444a0…444c0 4e 5b 49 5d 29 3b 0d 0a 20 20 20 20 20 20 66 6f 72 20 6a 3a 3d 20 31 20 74 6f 20 61 73 6f 6a 6c ┆NÆIÅ); for j:= 1 to asojl┆
0x444c0…444e0 65 20 64 6f 20 65 6e 73 3a 3d 20 65 6e 73 20 4f 52 20 28 41 52 45 4e 5b 6a 5d 20 3d 20 42 52 45 ┆e do ens:= ens OR (ARENÆjÅ = BRE┆
0x444e0…44500 4e 5b 69 5d 29 3b 0d 0a 20 20 20 20 20 20 66 6f 72 20 6a 3a 3d 20 31 20 74 6f 20 49 2d 31 20 64 ┆NÆiÅ); for j:= 1 to I-1 d┆
0x44500…44520 6f 20 65 6e 73 3a 3d 20 65 6e 73 20 4f 52 20 28 42 52 45 4e 5b 6a 5d 20 3d 20 42 52 45 4e 5b 69 ┆o ens:= ens OR (BRENÆjÅ = BRENÆi┆
0x44520…44540 5d 29 3b 0d 0a 20 20 20 20 20 20 69 66 20 65 6e 73 20 74 68 65 6e 20 62 65 67 69 6e 0d 0a 20 20 ┆Å); if ens then begin ┆
0x44540…44560 20 20 20 20 20 20 42 6e 61 76 6e 5b 69 5d 3a 3d 27 27 3b 20 69 3a 3d 20 69 2d 31 3b 20 46 45 4a ┆ BnavnÆiÅ:=''; i:= i-1; FEJ┆
0x44560…44580 4c 28 31 29 0d 0a 20 20 20 20 20 20 65 6e 64 20 0d 0a 20 20 20 20 75 6e 74 69 6c 20 28 69 3d 20 ┆L(1) end until (i= ┆
0x44580…445a0 62 73 6f 6a 6c 65 29 20 61 6e 64 20 6e 6f 74 20 65 6e 73 0d 0a 20 20 75 6e 74 69 6c 20 6f 6b 28 ┆bsojle) and not ens until ok(┆
0x445a0…445c0 32 29 0d 0a 65 6e 64 3b 09 7b 20 6c 61 65 73 42 68 6f 76 65 64 20 7d 0d 0a 0d 0a 70 72 6f 63 65 ┆2) end; æ laesBhoved å proce┆
0x445c0…445e0 64 75 72 65 20 6c 61 65 73 46 3b 0d 0a 56 41 52 09 50 56 45 4e 53 54 52 45 2c 50 48 4f 4a 52 45 ┆dure laesF; VAR PVENSTRE,PHOJRE┆
0x445e0…44600 3a 20 42 59 54 45 3b 0d 0a 62 65 67 69 6e 0d 0a 20 20 73 6c 65 74 28 31 30 2c 32 30 2c 30 29 3b ┆: BYTE; begin slet(10,20,0);┆
0x44600…44800 (30, 1, 5) DataBlock {»PKOVELSE.MID«}
0x44800…44820 (30, 1, 6) 0d 0a 20 20 77 69 74 68 20 6f 70 67 20 64 6f 20 72 65 70 65 61 74 0d 0a 20 20 20 20 66 6f 72 20 ┆ with opg do repeat for ┆
0x44820…44840 4a 3a 3d 20 31 20 74 6f 20 42 73 6f 6a 6c 65 20 64 6f 20 62 65 67 69 6e 0d 0a 20 20 20 20 20 20 ┆J:= 1 to Bsojle do begin ┆
0x44840…44860 52 45 50 45 41 54 0d 0a 20 20 20 20 20 20 20 20 41 6b 74 69 76 28 32 29 3b 0d 0a 20 20 20 20 20 ┆REPEAT Aktiv(2); ┆
0x44860…44880 20 20 20 67 6f 74 6f 78 79 28 35 2c 31 30 2b 4a 29 3b 20 4c 4f 56 4c 49 47 3a 3d 20 54 52 55 45 ┆ gotoxy(5,10+J); LOVLIG:= TRUE┆
0x44880…448a0 3b 20 50 76 65 6e 73 74 72 65 3a 3d 30 3b 20 50 68 6f 6a 72 65 3a 3d 30 3b 0d 0a 20 20 20 20 20 ┆; Pvenstre:=0; Phojre:=0; ┆
0x448a0…448c0 20 20 20 77 72 69 74 65 28 53 4c 45 54 45 4f 4c 2c 27 46 6f 72 73 6b 72 69 66 74 2c 20 27 2c 20 ┆ write(SLETEOL,'Forskrift, ', ┆
0x448c0…448e0 42 52 45 4e 5b 4a 5d 2c 27 20 3a 3d 20 27 29 3b 0d 0a 20 20 20 20 20 20 20 20 46 5b 4a 5d 3a 3d ┆BRENÆJÅ,' := '); FÆJÅ:=┆
0x448e0…44900 20 73 74 72 65 6e 67 28 46 5b 4a 5d 2c 33 30 2c 31 30 2b 4a 2c 34 39 29 3b 20 46 5b 4a 5d 3a 3d ┆ streng(FÆJÅ,30,10+J,49); FÆJÅ:=┆
0x44900…44920 20 55 50 43 41 53 45 28 46 5b 4a 5d 29 3b 0d 0a 20 20 20 20 20 20 20 20 46 4f 52 20 49 3a 3d 31 ┆ UPCASE(FÆJÅ); FOR I:=1┆
0x44920…44940 20 54 4f 20 4c 45 4e 28 46 5b 4a 5d 29 20 44 4f 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 ┆ TO LEN(FÆJÅ) DO BEGIN ┆
0x44940…44960 20 20 4c 4f 56 4c 49 47 3a 3d 28 46 5b 4a 5d 5b 49 5d 20 49 4e 20 42 4f 47 53 54 41 56 2b 43 49 ┆ LOVLIG:=(FÆJÅÆIÅ IN BOGSTAV+CI┆
0x44960…44980 46 46 45 52 2b 4f 50 45 52 41 54 4f 52 29 20 41 4e 44 20 4c 4f 56 4c 49 47 3b 0d 0a 20 20 20 20 ┆FFER+OPERATOR) AND LOVLIG; ┆
0x44980…449a0 20 20 20 20 20 20 50 56 45 4e 53 54 52 45 3a 3d 20 50 56 45 4e 53 54 52 45 2b 50 4f 53 28 27 28 ┆ PVENSTRE:= PVENSTRE+POS('(┆
0x449a0…449c0 27 2c 46 5b 4a 5d 5b 49 5d 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 50 48 4f 4a 52 45 3a 3d 20 ┆',FÆJÅÆIÅ); PHOJRE:= ┆
0x449c0…449e0 50 48 4f 4a 52 45 2b 50 4f 53 28 27 29 27 2c 46 5b 4a 5d 5b 49 5d 29 0d 0a 20 20 20 20 20 20 20 ┆PHOJRE+POS(')',FÆJÅÆIÅ) ┆
0x449e0…44a00 20 45 4e 44 3b 0d 0a 20 20 20 20 20 20 20 20 4c 4f 56 4c 49 47 3a 3d 20 4c 4f 56 4c 49 47 20 41 ┆ END; LOVLIG:= LOVLIG A┆
0x44a00…44a20 (30, 1, 7) 09 67 6f 74 6f 78 79 28 72 62 68 2b 69 2a 28 62 72 65 64 64 65 2b 31 29 2c 34 2b 65 6e 74 6f 2a ┆ gotoxy(rbh+i*(bredde+1),4+ento*┆
0x44a20…44a40 28 6a 2d 31 29 29 3b 20 77 72 69 74 65 28 4f 50 47 2e 41 5b 69 2c 6a 5d 29 20 65 6e 64 3b 0d 0a ┆(j-1)); write(OPG.AÆi,jÅ) end; ┆
0x44a40…44a60 09 4c 61 65 73 41 0d 0a 65 6e 64 3b 0d 0a 0d 0a 66 75 6e 63 74 69 6f 6e 20 75 64 73 6b 72 28 69 ┆ LaesA end; function udskr(i┆
0x44a60…44a80 3a 62 79 74 65 29 3a 20 62 6f 6f 6c 65 61 6e 3b 0d 0a 62 65 67 69 6e 0d 0a 09 67 6f 74 6f 78 79 ┆:byte): boolean; begin gotoxy┆
0x44a80…44aa0 28 30 2c 32 34 29 3b 20 77 72 69 74 65 28 53 4c 45 54 45 4f 4c 2c 27 5c 6e 73 6b 65 73 20 27 3a ┆(0,24); write(SLETEOL,'Ønskes ':┆
0x44aa0…44ac0 31 37 29 3b 0d 0a 09 63 61 73 65 20 69 20 6f 66 0d 0a 09 09 31 3a 20 77 72 69 74 65 28 27 6d 7d ┆17); case i of 1: write('må┆
0x44ac0…44ae0 6c 73 6b 65 6d 61 65 74 27 29 3b 0d 0a 09 09 32 3a 20 77 72 69 74 65 28 27 66 6f 72 73 6b 72 69 ┆lskemaet'); 2: write('forskri┆
0x44ae0…44b00 66 74 65 72 6e 65 27 29 3b 0d 0a 09 09 33 3a 20 77 72 69 74 65 28 27 62 65 72 65 67 6e 69 6e 67 ┆fterne'); 3: write('beregning┆
0x44b00…44b20 65 72 6e 65 27 29 0d 0a 09 65 6e 64 3b 0d 0a 09 77 72 69 74 65 28 27 20 70 7d 20 70 72 69 6e 74 ┆erne') end; write(' på print┆
0x44b20…44b40 65 72 27 29 3b 20 75 64 73 6b 72 3a 3d 20 59 4e 20 3d 20 27 59 27 0d 0a 65 6e 64 3b 0d 0a 0d 0a ┆er'); udskr:= YN = 'Y' end; ┆
0x44b40…44b60 70 72 6f 63 65 64 75 72 65 20 6d 61 61 6c 3b 0d 0a 62 65 67 69 6e 0d 0a 20 20 67 6f 74 6f 78 79 ┆procedure maal; begin gotoxy┆
0x44b60…44b80 28 30 2c 30 29 3b 20 77 72 69 74 65 28 53 4c 45 54 45 4f 4c 2c 27 4d 7d 6c 65 73 6b 65 6d 61 3a ┆(0,0); write(SLETEOL,'Måleskema:┆
0x44b80…44ba0 27 3a 34 35 29 3b 0d 0a 20 20 69 66 20 6e 6f 74 20 6e 79 6f 70 67 20 74 68 65 6e 20 62 65 67 69 ┆':45); if not nyopg then begi┆
0x44ba0…44bc0 6e 0d 0a 20 20 20 20 67 6f 74 6f 78 79 28 30 2c 32 34 29 3b 20 77 72 69 74 65 28 53 4c 45 54 45 ┆n gotoxy(0,24); write(SLETE┆
0x44bc0…44be0 4f 4c 2c 27 27 3a 31 30 2c 27 6e 79 74 20 6d 7d 6c 65 73 6b 65 6d 61 27 29 3b 20 6e 79 6f 70 67 ┆OL,'':10,'nyt måleskema'); nyopg┆
0x44be0…44c00 3a 3d 20 59 4e 20 3d 20 27 59 27 3b 0d 0a 20 20 65 6e 64 3b 0d 0a 20 20 69 66 20 6e 79 6f 70 67 ┆:= YN = 'Y'; end; if nyopg┆
0x44c00…44c20 (30, 1, 8) 4e 44 20 28 50 56 45 4e 53 54 52 45 20 3d 20 50 48 4f 4a 52 45 29 3b 0d 0a 20 20 20 20 20 20 20 ┆ND (PVENSTRE = PHOJRE); ┆
0x44c20…44c40 20 49 46 20 4e 4f 54 20 4c 4f 56 4c 49 47 20 54 48 45 4e 20 46 45 4a 4c 28 32 29 0d 0a 20 20 20 ┆ IF NOT LOVLIG THEN FEJL(2) ┆
0x44c40…44c60 20 20 20 55 4e 54 49 4c 20 4c 4f 56 4c 49 47 0d 0a 20 20 20 20 65 6e 64 0d 0a 20 20 75 6e 74 69 ┆ UNTIL LOVLIG end unti┆
0x44c60…44c80 6c 20 6f 6b 28 33 29 3b 0d 0a 20 20 69 66 20 70 72 69 6e 74 65 72 20 74 68 65 6e 20 69 66 20 75 ┆l ok(3); if printer then if u┆
0x44c80…44ca0 64 73 6b 72 28 32 29 20 74 68 65 6e 20 73 6b 72 69 76 73 6b 61 72 6d 28 31 30 2c 31 30 2b 4f 50 ┆dskr(2) then skrivskarm(10,10+OP┆
0x44ca0…44cc0 47 2e 62 73 6f 6a 6c 65 29 20 0d 0a 45 4e 44 3b 09 7b 20 6c 61 65 73 46 20 7d 0d 0a 0d 0a 70 72 ┆G.bsojle) END; æ laesF å pr┆
0x44cc0…44ce0 6f 63 65 64 75 72 65 20 6e 79 74 66 6f 72 6d 61 74 3b 0d 0a 62 65 67 69 6e 0d 0a 67 6f 74 6f 78 ┆ocedure nytformat; begin gotox┆
0x44ce0…44d00 79 28 30 2c 32 34 29 3b 20 77 72 69 74 65 28 53 4c 45 54 45 4f 4c 2c 27 27 3a 31 30 2c 27 5b 6e ┆y(0,24); write(SLETEOL,'':10,'Æn┆
0x44d00…44d20 64 72 65 74 20 66 6f 72 6d 61 74 20 69 20 75 64 73 6b 72 69 66 74 27 29 3b 0d 0a 6e 79 74 66 3a ┆dret format i udskrift'); nytf:┆
0x44d20…44d40 3d 20 59 4e 20 3d 20 27 59 27 3b 0d 0a 69 66 20 6e 79 74 66 20 74 68 65 6e 20 62 65 67 69 6e 0d ┆= YN = 'Y'; if nytf then begin ┆
0x44d40…44d60 0a 09 73 6c 65 74 28 31 30 2c 32 30 2c 30 29 3b 20 67 6f 74 6f 78 79 28 30 2c 31 32 29 3b 0d 0a ┆ slet(10,20,0); gotoxy(0,12); ┆
0x44d60…44d80 09 77 72 69 74 65 6c 6e 28 27 27 3a 31 30 2c 27 41 6e 67 69 76 20 66 6f 72 20 68 76 65 72 20 73 ┆ writeln('':10,'Angiv for hver s┆
0x44d80…44da0 7c 6a 6c 65 2c 27 29 3b 0d 0a 09 77 72 69 74 65 6c 6e 28 27 27 3a 31 30 2c 27 6f 6d 20 64 75 20 ┆øjle,'); writeln('':10,'om du ┆
0x44da0…44dc0 76 69 6c 20 68 61 76 65 20 65 6b 73 70 6f 6e 65 6e 74 69 65 6c 20 28 45 30 2e 2e 45 37 29 27 29 ┆vil have eksponentiel (E0..E7)')┆
0x44dc0…44de0 3b 0d 0a 09 77 72 69 74 65 6c 6e 28 27 27 3a 31 30 2c 27 65 6c 6c 65 72 20 64 65 63 69 6d 61 6c ┆; writeln('':10,'eller decimal┆
0x44de0…44e00 20 6e 6f 74 61 74 69 6f 6e 20 20 20 20 20 20 28 44 30 2e 2e 44 37 29 2e 27 29 3b 0d 0a 09 77 72 ┆ notation (D0..D7).'); wr┆
0x44e00…44e20 (30, 1, 9) 20 74 68 65 6e 20 6e 75 6c 73 74 69 6c 3b 0d 0a 20 20 67 6f 74 6f 78 79 28 31 30 2c 32 34 29 3b ┆ then nulstil; gotoxy(10,24);┆
0x44e20…44e40 0d 0a 20 20 77 69 74 68 20 6f 70 67 20 64 6f 20 62 65 67 69 6e 0d 0a 20 20 20 20 77 72 69 74 65 ┆ with opg do begin write┆
0x44e40…44e60 28 53 4c 45 54 45 4f 4c 2c 27 41 6e 74 61 6c 20 73 7c 6a 6c 65 72 28 31 2e 2e 27 2c 4d 41 58 53 ┆(SLETEOL,'Antal søjler(1..',MAXS┆
0x44e60…44e80 4f 4a 4c 45 2c 27 29 20 3a 20 27 2c 61 73 6f 6a 6c 65 2c 54 49 4c 42 29 3b 0d 0a 20 20 20 20 41 ┆OJLE,') : ',asojle,TILB); A┆
0x44e80…44ea0 73 6f 6a 6c 65 3a 3d 20 6c 61 65 73 69 6e 74 28 61 73 6f 6a 6c 65 2c 31 2c 4d 41 58 53 4f 4a 4c ┆sojle:= laesint(asojle,1,MAXSOJL┆
0x44ea0…44ec0 45 29 3b 0d 0a 20 20 20 20 67 6f 74 6f 78 79 28 34 30 2c 32 34 29 3b 0d 0a 20 20 20 20 77 72 69 ┆E); gotoxy(40,24); wri┆
0x44ec0…44ee0 74 65 28 27 2c 20 41 6e 74 61 6c 20 72 7b 6b 6b 65 72 28 31 2e 2e 27 2c 4d 41 58 52 41 4b 4b 45 ┆te(', Antal rækker(1..',MAXRAKKE┆
0x44ee0…44f00 2c 27 29 20 3a 20 27 2c 72 61 6b 6b 65 2c 54 49 4c 42 29 3b 0d 0a 20 20 20 20 69 66 20 72 61 6b ┆,') : ',rakke,TILB); if rak┆
0x44f00…44f20 6b 65 3e 39 20 74 68 65 6e 20 77 72 69 74 65 28 54 49 4c 42 29 3b 0d 0a 20 20 20 20 72 61 6b 6b ┆ke>9 then write(TILB); rakk┆
0x44f20…44f40 65 3a 3d 20 6c 61 65 73 69 6e 74 28 72 61 6b 6b 65 2c 31 2c 4d 41 58 52 41 4b 4b 45 29 3b 0d 0a ┆e:= laesint(rakke,1,MAXRAKKE); ┆
0x44f40…44f60 20 20 20 20 69 66 20 72 61 6b 6b 65 3c 39 20 74 68 65 6e 20 65 6e 74 6f 3a 3d 32 20 65 6c 73 65 ┆ if rakke<9 then ento:=2 else┆
0x44f60…44f80 20 65 6e 74 6f 3a 3d 31 3b 0d 0a 20 20 20 20 53 4c 45 54 28 31 2c 32 30 2c 30 29 3b 0d 0a 20 20 ┆ ento:=1; SLET(1,20,0); ┆
0x44f80…44fa0 20 20 49 46 20 52 41 4b 4b 45 20 3d 20 31 37 20 54 48 45 4e 20 53 4c 45 54 28 32 31 2c 32 31 2c ┆ IF RAKKE = 17 THEN SLET(21,21,┆
0x44fa0…44fc0 30 29 3b 0d 0a 20 20 20 20 54 45 47 4e 53 4b 45 4d 41 28 41 73 6f 6a 6c 65 2c 31 2c 72 61 6b 6b ┆0); TEGNSKEMA(Asojle,1,rakk┆
0x44fc0…44fe0 65 29 0d 0a 20 20 65 6e 64 3b 0d 0a 20 20 69 66 20 6e 79 6f 70 67 20 74 68 65 6e 20 20 62 65 67 ┆e) end; if nyopg then beg┆
0x44fe0…45000 69 6e 20 6c 61 65 73 41 68 6f 76 65 64 3b 20 6c 61 65 73 41 20 65 6e 64 20 65 6c 73 65 20 73 6b ┆in laesAhoved; laesA end else sk┆
0x45000…45020 (31, 0, 1) 69 74 65 6c 6e 28 27 27 3a 31 30 2c 27 64 6f 67 20 7b 6e 64 72 65 73 20 66 6f 72 6d 61 74 65 74 ┆iteln('':10,'dog ændres formatet┆
0x45020…45040 2c 20 68 76 69 73 20 74 61 6c 6c 65 74 20 66 79 6c 64 65 72 20 66 6f 72 20 6d 65 67 65 74 27 29 ┆, hvis tallet fylder for meget')┆
0x45040…45060 3b 0d 0a 09 77 72 69 74 65 6c 6e 28 27 27 3a 31 30 2c 27 65 6b 73 2e 20 45 32 20 62 65 74 79 64 ┆; writeln('':10,'eks. E2 betyd┆
0x45060…45080 65 72 20 65 6b 73 70 6f 6e 65 6e 74 69 65 6c 20 6e 6f 74 61 74 69 6f 6e 20 69 20 32 20 2b 20 35 ┆er eksponentiel notation i 2 + 5┆
0x45080…450a0 20 66 65 6c 74 65 72 27 29 3b 0d 0a 09 77 72 69 74 65 6c 6e 28 27 27 3a 31 30 2c 27 20 20 20 20 ┆ felter'); writeln('':10,' ┆
0x450a0…450c0 20 44 33 20 62 65 74 79 64 65 72 20 33 20 64 65 63 69 6d 61 6c 65 72 2e 27 29 3b 0d 0a 09 66 6f ┆ D3 betyder 3 decimaler.'); fo┆
0x450c0…450e0 72 20 69 3a 3d 20 31 20 74 6f 20 6f 70 67 2e 62 73 6f 6a 6c 65 20 64 6f 20 62 65 67 69 6e 0d 0a ┆r i:= 1 to opg.bsojle do begin ┆
0x450e0…45100 09 09 52 45 50 45 41 54 0d 0a 09 09 09 66 6f 72 6d 5b 49 5d 3a 3d 73 74 72 65 6e 67 28 66 6f 72 ┆ REPEAT formÆIÅ:=streng(for┆
0x45100…45120 6d 5b 69 5d 2c 72 62 68 2b 49 2a 28 62 72 65 64 64 65 2b 31 29 2c 31 31 2c 32 29 3b 0d 0a 09 09 ┆mÆiÅ,rbh+I*(bredde+1),11,2); ┆
0x45120…45140 09 66 6f 72 6d 5b 49 5d 3a 3d 20 75 70 63 61 73 65 28 66 6f 72 6d 5b 69 5d 29 3b 0d 0a 09 09 55 ┆ formÆIÅ:= upcase(formÆiÅ); U┆
0x45140…45160 4e 54 49 4c 20 28 66 6f 72 6d 5b 69 5d 5b 31 5d 20 69 6e 20 5b 27 44 27 2c 27 45 27 5d 29 20 61 ┆NTIL (formÆiÅÆ1Å in Æ'D','E'Å) a┆
0x45160…45180 6e 64 20 28 66 6f 72 6d 5b 69 5d 5b 32 5d 20 69 6e 20 5b 27 30 27 2e 2e 27 37 27 5d 29 3b 0d 0a ┆nd (formÆiÅÆ2Å in Æ'0'..'7'Å); ┆
0x45180…451a0 09 09 69 66 20 66 6f 72 6d 5b 69 5d 5b 31 5d 20 3d 20 27 44 27 20 74 68 65 6e 20 64 65 63 5b 69 ┆ if formÆiÅÆ1Å = 'D' then decÆi┆
0x451a0…451c0 5d 3a 3d 20 6f 72 64 28 66 6f 72 6d 5b 69 5d 5b 32 5d 29 2d 20 34 38 0d 0a 09 09 65 6c 73 65 20 ┆Å:= ord(formÆiÅÆ2Å)- 48 else ┆
0x451c0…451e0 64 65 63 5b 69 5d 3a 3d 20 6f 72 64 28 66 6f 72 6d 5b 69 5d 5b 32 5d 29 20 2d 20 34 33 3b 0d 0a ┆decÆiÅ:= ord(formÆiÅÆ2Å) - 43; ┆
0x451e0…45200 09 09 49 46 20 44 45 43 5b 49 5d 20 3e 20 4c 41 4e 47 20 54 48 45 4e 20 44 45 43 5b 49 5d 3a 3d ┆ IF DECÆIÅ > LANG THEN DECÆIÅ:=┆
0x45200…45220 (31, 0, 2) 50 52 4f 43 45 44 55 52 45 20 54 45 47 4e 4d 45 4e 55 3b 0d 0a 42 45 47 49 4e 0d 0a 42 53 54 52 ┆PROCEDURE TEGNMENU; BEGIN BSTR┆
0x45220…45240 3a 3d 43 4f 50 59 28 42 53 54 52 31 2c 32 2c 31 39 29 3b 0d 0a 67 6f 74 6f 78 79 28 32 2c 32 31 ┆:=COPY(BSTR1,2,19); gotoxy(2,21┆
0x45240…45260 29 3b 20 57 52 49 54 45 28 42 53 54 52 2c 42 53 54 52 2c 42 53 54 52 2c 42 53 54 52 29 3b 0d 0a ┆); WRITE(BSTR,BSTR,BSTR,BSTR); ┆
0x45260…45280 67 6f 74 6f 78 79 28 32 2c 32 33 29 3b 20 57 52 49 54 45 28 42 53 54 52 2c 42 53 54 52 2c 42 53 ┆gotoxy(2,23); WRITE(BSTR,BSTR,BS┆
0x45280…452a0 54 52 2c 42 53 54 52 29 3b 0d 0a 47 4f 54 4f 58 59 28 38 2c 32 32 29 3b 0d 0a 57 52 49 54 45 28 ┆TR,BSTR); GOTOXY(8,22); WRITE(┆
0x452a0…452c0 27 56 65 6a 6c 65 64 6e 2e 20 20 4d 7d 6c 74 61 6c 2c 20 20 20 46 75 6e 6b 74 69 6f 6e 2c 20 42 ┆'Vejledn. Måltal, Funktion, B┆
0x452c0…452e0 65 72 65 67 6e 2c 20 20 20 47 65 6d 2c 20 20 20 20 20 20 48 65 6e 74 2c 20 20 20 20 20 53 74 6f ┆eregn, Gem, Hent, Sto┆
0x452e0…45300 70 27 29 3b 0d 0a 45 4e 44 3b 09 7b 20 74 65 67 6e 6d 65 6e 75 20 7d 0d 0a 0d 0a 28 2a 20 3d 3d ┆p'); END; æ tegnmenu å (* ==┆
0x45300…45320 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 20 48 20 4f 20 56 20 45 20 44 20 50 20 52 20 4f 20 ┆=============== H O V E D P R O ┆
0x45320…45340 47 20 52 20 41 20 4d 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 ┆G R A M ========================┆
0x45340…45360 3d 2a 29 0d 0a 62 65 67 69 6e 0d 0a 47 4f 54 4f 58 59 28 30 2c 30 29 3b 20 57 52 49 54 45 28 53 ┆=*) begin GOTOXY(0,0); WRITE(S┆
0x45360…45380 4c 45 54 45 4f 53 29 3b 20 56 45 4a 4c 45 44 4e 49 4e 47 3b 20 4c 3a 3d 31 3b 20 4c 31 3a 3d 31 ┆LETEOS); VEJLEDNING; L:=1; L1:=1┆
0x45380…453a0 3b 53 3a 3d 27 4d 27 3b 0d 0a 54 45 47 4e 4d 45 4e 55 3b 0d 0a 4e 55 4c 53 54 49 4c 3b 0d 0a 47 ┆;S:='M'; TEGNMENU; NULSTIL; G┆
0x453a0…453c0 4f 54 4f 58 59 28 30 2c 32 34 29 3b 20 57 52 49 54 45 28 27 27 3a 31 30 2c 27 45 72 20 64 65 72 ┆OTOXY(0,24); WRITE('':10,'Er der┆
0x453c0…453e0 20 61 64 67 61 6e 67 20 74 69 6c 20 70 72 69 6e 74 65 72 27 29 3b 0d 0a 50 52 49 4e 54 45 52 3a ┆ adgang til printer'); PRINTER:┆
0x453e0…45400 3d 20 59 4e 20 3d 20 27 59 27 3b 20 53 4c 45 54 28 32 34 2c 32 34 2c 30 29 3b 0d 0a 52 45 50 45 ┆= YN = 'Y'; SLET(24,24,0); REPE┆
0x45400…45420 (31, 0, 3) 4c 41 4e 47 0d 0a 09 65 6e 64 0d 0a 65 6e 64 0d 0a 65 6e 64 3b 0d 0a 0d 0a 50 52 4f 43 45 44 55 ┆LANG end end end; PROCEDU┆
0x45420…45440 52 45 20 72 65 67 6e 42 3b 0d 0a 76 61 72 09 4d 49 4e 55 53 3a 20 42 59 54 45 3b 20 42 4a 4b 3a ┆RE regnB; var MINUS: BYTE; BJK:┆
0x45440…45460 20 52 45 41 4c 3b 0d 0a 62 65 67 69 6e 0d 0a 77 69 74 68 20 6f 70 67 20 64 6f 20 62 65 67 69 6e ┆ REAL; begin with opg do begin┆
0x45460…45480 0d 0a 53 4c 45 54 28 34 2c 32 30 2c 30 29 3b 20 49 46 20 52 41 4b 4b 45 20 3d 20 31 37 20 54 48 ┆ SLET(4,20,0); IF RAKKE = 17 TH┆
0x45480…454a0 45 4e 20 53 4c 45 54 28 32 31 2c 32 31 2c 30 29 3b 0d 0a 74 65 67 6e 73 6b 65 6d 61 28 62 73 6f ┆EN SLET(21,21,0); tegnskema(bso┆
0x454a0…454c0 6a 6c 65 2c 30 2c 72 61 6b 6b 65 29 3b 0d 0a 46 4f 52 20 4b 3a 3d 20 31 20 54 4f 20 52 41 4b 4b ┆jle,0,rakke); FOR K:= 1 TO RAKK┆
0x454c0…454e0 45 20 44 4f 20 42 45 47 49 4e 0d 0a 09 46 4f 52 20 4a 3a 3d 20 31 20 54 4f 20 42 53 4f 4a 4c 45 ┆E DO BEGIN FOR J:= 1 TO BSOJLE┆
0x454e0…45500 20 44 4f 20 42 45 47 49 4e 0d 0a 09 09 67 6f 74 6f 78 79 28 72 62 68 2b 4a 2a 28 62 72 65 64 64 ┆ DO BEGIN gotoxy(rbh+J*(bredd┆
0x45500…45520 65 2b 31 29 2c 34 2b 65 6e 74 6f 2a 28 4b 2d 31 29 29 3b 0d 0a 09 09 42 45 52 45 47 4e 28 46 5b ┆e+1),4+ento*(K-1)); BEREGN(FÆ┆
0x45520…45540 4a 5d 2c 42 4a 4b 2c 46 45 4a 4c 41 52 54 29 3b 0d 0a 09 09 49 46 20 28 46 45 4a 4c 41 52 54 3d ┆JÅ,BJK,FEJLART); IF (FEJLART=┆
0x45540…45560 30 29 20 54 48 45 4e 20 42 45 47 49 4e 0d 0a 09 09 49 46 20 42 4a 4b 20 3c 20 30 20 54 48 45 4e ┆0) THEN BEGIN IF BJK < 0 THEN┆
0x45560…45580 20 4d 49 4e 55 53 3a 3d 31 20 45 4c 53 45 20 4d 49 4e 55 53 3a 3d 20 30 3b 0d 0a 09 09 69 66 20 ┆ MINUS:=1 ELSE MINUS:= 0; if ┆
0x45580…455a0 28 66 6f 72 6d 5b 6a 5d 5b 31 5d 3d 27 44 27 29 20 41 4e 44 20 28 61 62 73 28 42 4a 4b 29 3c 50 ┆(formÆjÅÆ1Å='D') AND (abs(BJK)<P┆
0x455a0…455c0 57 52 54 45 4e 28 4c 41 4e 47 2d 44 45 43 5b 4a 5d 2d 4d 49 4e 55 53 29 29 0d 0a 09 09 54 48 45 ┆WRTEN(LANG-DECÆJÅ-MINUS)) THE┆
0x455c0…455e0 4e 20 57 52 49 54 45 28 42 4a 4b 3a 6c 61 6e 67 3a 64 65 63 5b 6a 5d 29 20 65 6c 73 65 20 57 52 ┆N WRITE(BJK:lang:decÆjÅ) else WR┆
0x455e0…45600 49 54 45 28 42 4a 4b 3a 44 45 43 5b 6a 5d 29 3b 0d 0a 09 09 53 54 52 28 42 4a 4b 3a 31 34 2c 4f ┆ITE(BJK:DECÆjÅ); STR(BJK:14,O┆
0x45600…45620 (31, 0, 4) 41 54 0d 0a 09 67 6f 74 6f 78 79 28 38 2b 4c 2a 31 30 2c 32 32 29 3b 20 52 45 41 44 28 4b 42 44 ┆AT gotoxy(8+L*10,22); READ(KBD┆
0x45620…45640 2c 43 48 29 3b 20 43 48 3a 3d 20 55 50 43 48 41 52 28 43 48 29 3b 0d 0a 09 49 46 20 43 48 20 49 ┆,CH); CH:= UPCHAR(CH); IF CH I┆
0x45640…45660 4e 20 5b 54 49 4c 42 2c 46 52 45 4d 2c 4f 50 2c 4e 45 44 5d 20 54 48 45 4e 20 43 41 53 45 20 43 ┆N ÆTILB,FREM,OP,NEDÅ THEN CASE C┆
0x45660…45680 48 20 4f 46 0d 0a 09 09 54 49 4c 42 2c 4e 45 44 3a 20 4c 3a 3d 20 28 4c 2b 36 29 20 4d 4f 44 20 ┆H OF TILB,NED: L:= (L+6) MOD ┆
0x45680…456a0 37 3b 0d 0a 09 09 46 52 45 4d 2c 4f 50 20 3a 20 4c 3a 3d 20 28 4c 2b 31 29 20 4d 4f 44 20 37 3b ┆7; FREM,OP : L:= (L+1) MOD 7;┆
0x456a0…456c0 0d 0a 09 45 4e 44 3b 0d 0a 09 47 4f 54 4f 58 59 28 38 2b 4c 2a 31 30 2c 32 32 29 3b 0d 0a 09 53 ┆ END; GOTOXY(8+L*10,22); S┆
0x456c0…456e0 3a 3d 53 4e 41 56 4e 5b 4c 5d 3b 20 4c 31 3a 3d 20 50 4f 53 28 43 48 2c 27 56 4d 46 42 47 48 53 ┆:=SNAVNÆLÅ; L1:= POS(CH,'VMFBGHS┆
0x456e0…45700 27 2b 52 45 54 55 52 29 3b 0d 0a 09 49 46 20 4c 31 20 3e 20 30 20 54 48 45 4e 20 42 45 47 49 4e ┆'+RETUR); IF L1 > 0 THEN BEGIN┆
0x45700…45720 0d 0a 09 09 49 46 20 43 48 20 3c 3e 20 52 45 54 55 52 20 20 54 48 45 4e 20 42 45 47 49 4e 0d 0a ┆ IF CH <> RETUR THEN BEGIN ┆
0x45720…45740 09 09 09 4c 3a 3d 4c 31 2d 31 3b 20 53 3a 3d 53 4e 41 56 4e 5b 4c 5d 20 45 4e 44 3b 0d 0a 09 09 ┆ L:=L1-1; S:=SNAVNÆLÅ END; ┆
0x45740…45760 43 41 53 45 20 53 20 4f 46 0d 0a 09 09 09 27 56 27 3a 20 48 45 4e 54 48 4a 41 45 4c 50 3b 0d 0a ┆CASE S OF 'V': HENTHJAELP; ┆
0x45760…45780 09 09 09 27 4d 27 3a 20 4d 41 41 4c 3b 0d 0a 09 09 09 27 46 27 3a 20 46 55 4e 4b 54 49 4f 4e 42 ┆ 'M': MAAL; 'F': FUNKTIONB┆
0x45780…457a0 3b 0d 0a 09 09 09 27 42 27 3a 20 42 45 52 45 47 4e 42 3b 0d 0a 09 09 09 27 47 27 2c 27 48 27 3a ┆; 'B': BEREGNB; 'G','H':┆
0x457a0…457c0 20 47 45 4d 48 45 4e 54 28 53 29 0d 0a 09 09 45 4e 44 3b 0d 0a 09 54 45 47 4e 4d 45 4e 55 0d 0a ┆ GEMHENT(S) END; TEGNMENU ┆
0x457c0…457e0 09 45 4e 44 0d 0a 55 4e 54 49 4c 20 28 43 48 3d 27 53 27 29 20 4f 52 20 28 28 53 3d 27 53 27 29 ┆ END UNTIL (CH='S') OR ((S='S')┆
0x457e0…45800 20 41 4e 44 20 28 43 48 3d 52 45 54 55 52 29 29 3b 0d 0a 47 4f 54 4f 58 59 28 30 2c 30 29 3b 20 ┆ AND (CH=RETUR)); GOTOXY(0,0); ┆
0x45800…45820 (31, 0, 5) 50 47 2e 42 5b 4a 2c 4b 5d 29 0d 0a 09 09 45 4e 44 20 45 4c 53 45 20 42 45 47 49 4e 0d 0a 09 09 ┆PG.BÆJ,KÅ) END ELSE BEGIN ┆
0x45820…45840 09 57 52 49 54 45 28 66 65 6a 6c 6e 61 76 6e 5b 66 65 6a 6c 61 72 74 5d 29 3b 20 4f 50 47 2e 42 ┆ WRITE(fejlnavnÆfejlartÅ); OPG.B┆
0x45840…45860 5b 4a 2c 4b 5d 3a 3d 27 3f 27 0d 0a 09 09 45 4e 44 0d 0a 09 45 4e 44 0d 0a 45 4e 44 3b 0d 0a 65 ┆ÆJ,KÅ:='?' END END END; e┆
0x45860…45880 6e 64 0d 0a 65 6e 64 3b 09 7b 20 72 65 67 6e 42 20 7d 0d 0a 0d 0a 70 72 6f 63 65 64 75 72 65 20 ┆nd end; æ regnB å procedure ┆
0x45880…458a0 66 75 6e 6b 74 69 6f 6e 42 3b 0d 0a 62 65 67 69 6e 0d 0a 09 4c 61 65 73 42 68 6f 76 65 64 3b 20 ┆funktionB; begin LaesBhoved; ┆
0x458a0…458c0 4c 61 65 73 46 0d 0a 65 6e 64 3b 0d 0a 09 09 0d 0a 70 72 6f 63 65 64 75 72 65 20 62 65 72 65 67 ┆LaesF end; procedure bereg┆
0x458c0…458e0 6e 42 3b 0d 0a 62 65 67 69 6e 0d 0a 66 6f 72 20 69 3a 3d 20 31 20 74 6f 20 6f 70 67 2e 62 73 6f ┆nB; begin for i:= 1 to opg.bso┆
0x458e0…45900 6a 6c 65 20 64 6f 20 62 65 67 69 6e 20 46 4f 52 4d 5b 49 5d 3a 3d 27 45 27 2b 43 48 52 28 34 33 ┆jle do begin FORMÆIÅ:='E'+CHR(43┆
0x45900…45920 2b 4c 41 4e 47 29 3b 20 44 45 43 5b 49 5d 3a 3d 4c 41 4e 47 20 65 6e 64 3b 0d 0a 72 65 70 65 61 ┆+LANG); DECÆIÅ:=LANG end; repea┆
0x45920…45940 74 0d 0a 09 72 65 67 6e 42 3b 0d 0a 09 69 66 20 70 72 69 6e 74 65 72 20 74 68 65 6e 20 69 66 20 ┆t regnB; if printer then if ┆
0x45940…45960 75 64 73 6b 72 28 33 29 20 74 68 65 6e 20 73 6b 72 69 76 73 6b 61 72 6d 28 30 2c 65 6e 74 6f 2a ┆udskr(3) then skrivskarm(0,ento*┆
0x45960…45980 6f 70 67 2e 72 61 6b 6b 65 2b 34 29 3b 0d 0a 09 6e 79 74 66 6f 72 6d 61 74 0d 0a 75 6e 74 69 6c ┆opg.rakke+4); nytformat until┆
0x45980…459a0 20 6e 6f 74 20 6e 79 74 66 3b 0d 0a 7b 09 63 6c 6f 73 65 6c 09 09 7d 0d 0a 65 6e 64 3b 09 7b 20 ┆ not nytf; æ closel å end; æ ┆
0x459a0…459c0 62 65 72 65 67 6e 42 20 7d 0d 0a 0d 0a 70 72 6f 63 65 64 75 72 65 20 68 65 6e 74 68 6a 61 65 6c ┆beregnB å procedure henthjael┆
0x459c0…459e0 70 3b 0d 0a 56 41 52 09 46 55 4e 44 45 54 3a 09 42 4f 4f 4c 45 41 4e 3b 20 49 4e 44 46 3a 54 45 ┆p; VAR FUNDET: BOOLEAN; INDF:TE┆
0x459e0…45a00 58 54 3b 0d 0a 0d 0a 42 45 47 49 4e 0d 0a 41 53 53 49 47 4e 28 49 4e 44 46 2c 27 4d 49 4e 49 43 ┆XT; BEGIN ASSIGN(INDF,'MINIC┆
0x45a00…45a20 (31, 0, 6) 77 72 69 74 65 6c 6e 28 53 4c 45 54 45 4f 53 2c 27 44 65 74 20 76 61 72 20 68 79 67 67 65 6c 69 ┆writeln(SLETEOS,'Det var hyggeli┆
0x45a20…45a40 67 74 2e 2e 27 29 0d 0a 65 6e 64 2e 0d 0a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆gt..') end. ┆
0x45a40…45a60 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…]
0x45a80…45aa0 37 3b 0d 0a 09 09 46 52 45 4d 2c 4f 50 20 3a 20 4c 3a 3d 20 28 4c 2b 31 29 20 4d 4f 44 20 37 3b ┆7; FREM,OP : L:= (L+1) MOD 7;┆
0x45aa0…45ac0 0d 0a 09 45 4e 44 3b 0d 0a 09 47 4f 54 4f 58 59 28 38 2b 4c 2a 31 30 2c 32 32 29 3b 0d 0a 09 53 ┆ END; GOTOXY(8+L*10,22); S┆
0x45ac0…45ae0 3a 3d 53 4e 41 56 4e 5b 4c 5d 3b 20 4c 31 3a 3d 20 50 4f 53 28 43 48 2c 27 56 4d 46 42 47 48 53 ┆:=SNAVNÆLÅ; L1:= POS(CH,'VMFBGHS┆
0x45ae0…45b00 27 2b 52 45 54 55 52 29 3b 0d 0a 09 49 46 20 4c 31 20 3e 20 30 20 54 48 45 4e 20 42 45 47 49 4e ┆'+RETUR); IF L1 > 0 THEN BEGIN┆
0x45b00…45b20 0d 0a 09 09 49 46 20 43 48 20 3c 3e 20 52 45 54 55 52 20 20 54 48 45 4e 20 42 45 47 49 4e 0d 0a ┆ IF CH <> RETUR THEN BEGIN ┆
0x45b20…45b40 09 09 09 4c 3a 3d 4c 31 2d 31 3b 20 53 3a 3d 53 4e 41 56 4e 5b 4c 5d 20 45 4e 44 3b 0d 0a 09 09 ┆ L:=L1-1; S:=SNAVNÆLÅ END; ┆
0x45b40…45b60 43 41 53 45 20 53 20 4f 46 0d 0a 09 09 09 27 56 27 3a 20 48 45 4e 54 48 4a 41 45 4c 50 3b 0d 0a ┆CASE S OF 'V': HENTHJAELP; ┆
0x45b60…45b80 09 09 09 27 4d 27 3a 20 4d 41 41 4c 3b 0d 0a 09 09 09 27 46 27 3a 20 46 55 4e 4b 54 49 4f 4e 42 ┆ 'M': MAAL; 'F': FUNKTIONB┆
0x45b80…45ba0 3b 0d 0a 09 09 09 27 42 27 3a 20 42 45 52 45 47 4e 42 3b 0d 0a 09 09 09 27 47 27 2c 27 48 27 3a ┆; 'B': BEREGNB; 'G','H':┆
0x45ba0…45bc0 20 47 45 4d 48 45 4e 54 28 53 29 0d 0a 09 09 45 4e 44 3b 0d 0a 09 54 45 47 4e 4d 45 4e 55 0d 0a ┆ GEMHENT(S) END; TEGNMENU ┆
0x45bc0…45be0 09 45 4e 44 0d 0a 55 4e 54 49 4c 20 28 43 48 3d 27 53 27 29 20 4f 52 20 28 28 53 3d 27 53 27 29 ┆ END UNTIL (CH='S') OR ((S='S')┆
0x45be0…45c00 20 41 4e 44 20 28 43 48 3d 52 45 54 55 52 29 29 3b 0d 0a 47 4f 54 4f 58 59 28 30 2c 30 29 3b 20 ┆ AND (CH=RETUR)); GOTOXY(0,0); ┆
0x45c00…45c20 (31, 0, 7) 41 4c 43 2e 48 4c 50 27 29 3b 20 7b 24 49 2d 7d 20 52 45 53 45 54 28 49 4e 44 46 29 3b 20 7b 24 ┆ALC.HLP'); æ$I-å RESET(INDF); æ$┆
0x45c20…45c40 49 2b 7d 0d 0a 46 55 4e 44 45 54 3a 3d 20 49 4f 52 45 53 20 3d 20 30 3b 0d 0a 49 46 20 4e 4f 54 ┆I+å FUNDET:= IORES = 0; IF NOT┆
0x45c40…45c60 20 46 55 4e 44 45 54 20 54 48 45 4e 20 42 45 47 49 4e 0d 0a 09 47 4f 54 4f 58 59 28 30 2c 32 34 ┆ FUNDET THEN BEGIN GOTOXY(0,24┆
0x45c60…45c80 29 3b 0d 0a 09 57 52 49 54 45 28 53 4c 45 54 45 4f 4c 2c 27 27 3a 31 30 2c 27 4d 49 4e 49 43 41 ┆); WRITE(SLETEOL,'':10,'MINICA┆
0x45c80…45ca0 4c 43 2e 48 4c 50 20 66 69 6e 64 65 73 20 69 6b 6b 65 20 70 7d 20 64 69 73 6b 65 74 74 65 6e 27 ┆LC.HLP findes ikke på disketten'┆
0x45ca0…45cc0 29 3b 0d 0a 09 56 45 4e 54 3b 20 42 53 28 34 37 29 0d 0a 45 4e 44 20 45 4c 53 45 20 42 45 47 49 ┆); VENT; BS(47) END ELSE BEGI┆
0x45cc0…45ce0 4e 0d 0a 09 46 4f 52 20 49 3a 3d 20 31 20 54 4f 20 32 30 30 30 20 44 4f 20 4b 4f 50 49 53 43 52 ┆N FOR I:= 1 TO 2000 DO KOPISCR┆
0x45ce0…45d00 45 45 4e 5b 49 5d 3a 3d 53 43 52 45 45 4e 5b 49 5d 3b 0d 0a 09 47 4f 54 4f 58 59 28 30 2c 30 29 ┆EENÆIÅ:=SCREENÆIÅ; GOTOXY(0,0)┆
0x45d00…45d20 3b 20 57 52 49 54 45 28 53 4c 45 54 45 4f 53 29 3b 0d 0a 09 57 52 49 54 45 4c 4e 28 27 27 3a 31 ┆; WRITE(SLETEOS); WRITELN('':1┆
0x45d20…45d40 30 2c 27 44 75 20 6b 61 6e 20 6e 75 20 62 6c 61 64 72 65 20 76 65 6a 6c 65 64 6e 69 6e 67 65 6e ┆0,'Du kan nu bladre vejledningen┆
0x45d40…45d60 20 69 67 65 6e 6e 65 6d 2e 27 29 3b 0d 0a 09 57 52 49 54 45 4c 4e 28 27 27 3a 31 30 2c 27 53 70 ┆ igennem.'); WRITELN('':10,'Sp┆
0x45d60…45d80 61 63 65 20 65 6c 6c 65 72 20 72 65 74 75 72 6e 20 67 69 76 65 72 20 64 65 20 31 32 20 6e 7b 73 ┆ace eller return giver de 12 næs┆
0x45d80…45da0 74 65 20 6c 69 6e 69 65 72 27 29 3b 0d 0a 09 77 72 69 74 65 6c 6e 28 27 27 3a 31 30 2c 27 50 49 ┆te linier'); writeln('':10,'PI┆
0x45da0…45dc0 4c 20 6f 70 20 65 6c 6c 65 72 20 6e 65 64 20 73 74 61 72 74 65 72 20 76 65 6a 6c 65 64 6e 69 6e ┆L op eller ned starter vejlednin┆
0x45dc0…45de0 67 65 6e 20 66 6f 72 66 72 61 2e 27 29 3b 0d 0a 09 77 72 69 74 65 6c 6e 28 27 27 3a 31 30 2c 27 ┆gen forfra.'); writeln('':10,'┆
0x45de0…45e00 45 53 43 20 61 66 62 72 79 64 65 72 20 67 65 6e 6e 65 6d 6c 7b 73 6e 69 6e 67 65 6e 2e 27 29 3b ┆ESC afbryder gennemlæsningen.');┆
0x45e00…45e20 (31, 0, 8) 43 4f 4e 53 54 09 53 54 44 46 55 4e 3a 53 54 44 46 4c 49 53 54 3d 28 27 41 42 53 27 2c 27 53 51 ┆CONST STDFUN:STDFLIST=('ABS','SQ┆
0x45e20…45e40 52 54 27 2c 27 53 49 4e 27 2c 27 43 4f 53 27 2c 27 41 52 43 54 41 4e 27 2c 27 4c 4e 27 2c 27 4c ┆RT','SIN','COS','ARCTAN','LN','L┆
0x45e40…45e60 4f 47 27 2c 27 45 58 50 27 29 3b 0d 0a 0d 0a 56 41 52 09 50 4f 53 31 2c 20 4c 3a 20 49 4e 54 45 ┆OG','EXP'); VAR POS1, L: INTE┆
0x45e60…45e80 47 45 52 3b 20 46 4f 55 4e 44 3a 20 42 4f 4f 4c 45 41 4e 3b 0d 0a 09 46 3a 20 52 45 41 4c 3b 0d ┆GER; FOUND: BOOLEAN; F: REAL; ┆
0x45e80…45ea0 0a 09 53 46 3a 20 53 54 44 46 3b 0d 0a 42 45 47 49 4e 0d 0a 49 46 20 43 48 20 49 4e 20 5b 27 30 ┆ SF: STDF; BEGIN IF CH IN Æ'0┆
0x45ea0…45ec0 27 2e 2e 27 39 27 5d 20 54 48 45 4e 20 42 45 47 49 4e 0d 0a 09 50 4f 53 31 3a 3d 20 50 4f 53 3b ┆'..'9'Å THEN BEGIN POS1:= POS;┆
0x45ec0…45ee0 0d 0a 09 52 45 50 45 41 54 20 4e 59 54 54 45 47 4e 0d 0a 09 55 4e 54 49 4c 20 4e 4f 54 28 43 48 ┆ REPEAT NYTTEGN UNTIL NOT(CH┆
0x45ee0…45f00 20 49 4e 20 5b 27 2e 27 2c 27 30 27 2e 2e 27 39 27 5d 29 3b 0d 0a 09 49 46 20 43 48 3d 27 45 27 ┆ IN Æ'.','0'..'9'Å); IF CH='E'┆
0x45f00…45f20 20 54 48 45 4e 20 42 45 47 49 4e 0d 0a 09 09 4e 59 54 54 45 47 4e 3b 0d 0a 09 09 49 46 20 43 48 ┆ THEN BEGIN NYTTEGN; IF CH┆
0x45f20…45f40 20 49 4e 20 5b 27 2b 27 2c 27 2d 27 5d 20 54 48 45 4e 20 4e 59 54 54 45 47 4e 3b 0d 0a 09 09 57 ┆ IN Æ'+','-'Å THEN NYTTEGN; W┆
0x45f40…45f60 48 49 4c 45 20 43 48 20 49 4e 20 5b 27 30 27 2e 2e 27 39 27 5d 20 44 4f 20 4e 59 54 54 45 47 4e ┆HILE CH IN Æ'0'..'9'Å DO NYTTEGN┆
0x45f60…45f80 0d 0a 09 45 4e 44 3b 0d 0a 09 56 41 4c 28 43 4f 50 59 28 46 4f 52 53 4b 52 49 46 54 2c 50 4f 53 ┆ END; VAL(COPY(FORSKRIFT,POS┆
0x45f80…45fa0 31 2c 50 4f 53 2d 50 4f 53 31 29 2c 46 2c 50 29 3b 20 49 46 20 50 3c 3e 30 20 54 48 45 4e 20 43 ┆1,POS-POS1),F,P); IF P<>0 THEN C┆
0x45fa0…45fc0 48 3a 3d 27 3f 27 0d 0a 45 4e 44 20 45 4c 53 45 20 49 46 20 43 48 3d 27 28 27 20 54 48 45 4e 20 ┆H:='?' END ELSE IF CH='(' THEN ┆
0x45fc0…45fe0 42 45 47 49 4e 0d 0a 09 4e 59 54 54 45 47 4e 3b 0d 0a 09 46 3a 3d 55 44 54 52 59 4b 3b 0d 0a 09 ┆BEGIN NYTTEGN; F:=UDTRYK; ┆
0x45fe0…46000 49 46 20 43 48 3d 27 29 27 20 54 48 45 4e 20 4e 59 54 54 45 47 4e 20 45 4c 53 45 20 43 48 3a 3d ┆IF CH=')' THEN NYTTEGN ELSE CH:=┆
0x46000…46020 (31, 0, 9) 0d 0a 09 77 72 69 74 65 6c 6e 28 27 27 3a 31 30 2c 27 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ writeln('':10,'--------------┆
0x46020…46040 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 27 ┆-------------------------------'┆
0x46040…46060 29 3b 0d 0a 09 77 72 69 74 65 6c 6e 3b 20 57 52 49 54 45 4c 4e 3b 0d 0a 09 53 56 41 52 3a 3d 20 ┆); writeln; WRITELN; SVAR:= ┆
0x46060…46080 52 45 54 55 52 3b 0d 0a 09 52 45 50 45 41 54 0d 0a 09 09 4b 3a 3d 30 3b 0d 0a 09 09 49 46 20 53 ┆RETUR; REPEAT K:=0; IF S┆
0x46080…460a0 56 41 52 20 49 4e 20 5b 4f 50 2c 4e 45 44 5d 20 54 48 45 4e 20 42 45 47 49 4e 0d 0a 09 09 09 47 ┆VAR IN ÆOP,NEDÅ THEN BEGIN G┆
0x460a0…460c0 4f 54 4f 58 59 28 30 2c 30 29 3b 20 77 72 69 74 65 28 53 4c 45 54 45 4f 53 29 3b 20 52 45 53 45 ┆OTOXY(0,0); write(SLETEOS); RESE┆
0x460c0…460e0 54 28 49 4e 44 46 29 0d 0a 09 09 45 4e 44 3b 0d 0a 09 09 49 46 20 53 56 41 52 20 49 4e 20 5b 4f ┆T(INDF) END; IF SVAR IN ÆO┆
0x460e0…46100 50 2c 4e 45 44 2c 52 45 54 55 52 2c 53 50 41 43 45 5d 20 54 48 45 4e 20 52 45 50 45 41 54 0d 0a ┆P,NED,RETUR,SPACEÅ THEN REPEAT ┆
0x46100…46120 09 09 09 52 45 41 44 28 49 4e 44 46 2c 43 48 29 3b 0d 0a 09 09 09 49 46 20 43 48 3d 54 41 42 20 ┆ READ(INDF,CH); IF CH=TAB ┆
0x46120…46140 54 48 45 4e 20 57 52 49 54 45 28 54 41 42 29 3b 0d 0a 09 09 09 57 52 49 54 45 28 43 48 29 3b 0d ┆THEN WRITE(TAB); WRITE(CH); ┆
0x46140…46160 0a 09 09 09 49 46 20 43 48 20 3d 20 52 45 54 55 52 20 54 48 45 4e 20 4b 3a 3d 4b 2b 31 3b 0d 0a ┆ IF CH = RETUR THEN K:=K+1; ┆
0x46160…46180 09 09 55 4e 54 49 4c 20 28 4b 3d 31 32 29 20 4f 52 20 45 4f 46 28 49 4e 44 46 29 3b 0d 0a 09 09 ┆ UNTIL (K=12) OR EOF(INDF); ┆
0x46180…461a0 52 45 41 44 28 4b 42 44 2c 53 56 41 52 29 0d 0a 09 55 4e 54 49 4c 20 28 53 56 41 52 20 3d 20 45 ┆READ(KBD,SVAR) UNTIL (SVAR = E┆
0x461a0…461c0 53 43 29 20 4f 52 20 45 4f 46 28 49 4e 44 46 29 3b 0d 0a 09 46 4f 52 20 49 3a 3d 20 31 20 54 4f ┆SC) OR EOF(INDF); FOR I:= 1 TO┆
0x461c0…461e0 20 32 30 30 30 20 44 4f 20 53 43 52 45 45 4e 5b 49 5d 3a 3d 20 4b 4f 50 49 53 43 52 45 45 4e 5b ┆ 2000 DO SCREENÆIÅ:= KOPISCREENÆ┆
0x461e0…46200 49 5d 0d 0a 45 4e 44 0d 0a 45 4e 44 3b 09 7b 20 68 65 6e 74 68 6a 61 65 6c 70 20 7d 0d 0a 0d 0a ┆IÅ END END; æ henthjaelp å ┆
0x46200…46220 (31, 1, 1) 27 3f 27 0d 0a 45 4e 44 09 45 4c 53 45 20 42 45 47 49 4e 0d 0a 09 46 4f 55 4e 44 3a 3d 46 41 4c ┆'?' END ELSE BEGIN FOUND:=FAL┆
0x46220…46240 53 45 3b 0d 0a 09 49 46 20 28 43 4f 50 59 28 46 4f 52 53 4b 52 49 46 54 2c 50 4f 53 2c 32 29 3d ┆SE; IF (COPY(FORSKRIFT,POS,2)=┆
0x46240…46260 27 50 49 27 29 20 41 4e 44 20 4e 4f 54 0d 0a 09 28 46 4f 52 53 4b 52 49 46 54 5b 50 4f 53 2b 32 ┆'PI') AND NOT (FORSKRIFTÆPOS+2┆
0x46260…46280 5d 20 49 4e 20 42 4f 47 53 54 41 56 29 20 54 48 45 4e 20 42 45 47 49 4e 0d 0a 09 09 50 4f 53 3a ┆Å IN BOGSTAV) THEN BEGIN POS:┆
0x46280…462a0 3d 50 4f 53 2b 31 3b 20 4e 59 54 54 45 47 4e 3b 20 46 3a 3d 20 50 49 3b 20 46 4f 55 4e 44 3a 3d ┆=POS+1; NYTTEGN; F:= PI; FOUND:=┆
0x462a0…462c0 20 54 52 55 45 0d 0a 09 45 4e 44 3b 0d 0a 09 49 3a 3d 31 3b 0d 0a 09 57 48 49 4c 45 20 4e 4f 54 ┆ TRUE END; I:=1; WHILE NOT┆
0x462c0…462e0 20 46 4f 55 4e 44 20 41 4e 44 20 28 49 3c 3d 4f 50 47 2e 41 53 4f 4a 4c 45 29 20 44 4f 20 42 45 ┆ FOUND AND (I<=OPG.ASOJLE) DO BE┆
0x462e0…46300 47 49 4e 0d 0a 09 4c 3a 3d 4c 45 4e 28 41 52 45 4e 5b 49 5d 29 3b 0d 0a 09 49 46 20 28 43 4f 50 ┆GIN L:=LEN(ARENÆIÅ); IF (COP┆
0x46300…46320 59 28 46 4f 52 53 4b 52 49 46 54 2c 50 4f 53 2c 4c 29 3d 41 52 45 4e 5b 49 5d 29 20 41 4e 44 20 ┆Y(FORSKRIFT,POS,L)=ARENÆIÅ) AND ┆
0x46320…46340 4e 4f 54 0d 0a 09 28 46 4f 52 53 4b 52 49 46 54 5b 50 4f 53 2b 4c 5d 20 49 4e 20 42 4f 47 53 54 ┆NOT (FORSKRIFTÆPOS+LÅ IN BOGST┆
0x46340…46360 41 56 29 20 54 48 45 4e 20 42 45 47 49 4e 0d 0a 09 09 50 4f 53 3a 3d 50 4f 53 2b 4c 2d 31 3b 20 ┆AV) THEN BEGIN POS:=POS+L-1; ┆
0x46360…46380 4e 59 54 54 45 47 4e 3b 0d 0a 09 09 56 41 4c 28 4f 50 47 2e 41 5b 49 2c 4b 5d 2c 46 2c 50 29 3b ┆NYTTEGN; VAL(OPG.AÆI,KÅ,F,P);┆
0x46380…463a0 20 49 46 20 50 3c 3e 30 20 54 48 45 4e 20 43 48 3a 3d 27 3f 27 3b 0d 0a 09 09 46 4f 55 4e 44 3a ┆ IF P<>0 THEN CH:='?'; FOUND:┆
0x463a0…463c0 3d 54 52 55 45 0d 0a 09 45 4e 44 20 45 4c 53 45 20 49 3a 3d 49 2b 31 0d 0a 09 45 4e 44 3b 0d 0a ┆=TRUE END ELSE I:=I+1 END; ┆
0x463c0…463e0 09 49 3a 3d 31 3b 0d 0a 09 57 48 49 4c 45 20 4e 4f 54 20 46 4f 55 4e 44 20 41 4e 44 20 28 49 3c ┆ I:=1; WHILE NOT FOUND AND (I<┆
0x463e0…46400 3d 4a 29 20 44 4f 20 42 45 47 49 4e 0d 0a 09 4c 3a 3d 4c 45 4e 28 42 52 45 4e 5b 49 5d 29 3b 0d ┆=J) DO BEGIN L:=LEN(BRENÆIÅ); ┆
0x46400…46420 (31, 1, 2) 69 6e 67 65 72 2e 27 29 3b 0d 0a 77 72 69 74 65 6c 6e 3b 0d 0a 77 72 69 74 65 6c 6e 28 27 20 20 ┆inger.'); writeln; writeln(' ┆
0x46420…46440 20 20 20 4d 5d 4c 54 41 4c 3a 20 20 20 44 65 20 6d 7d 6c 74 65 20 73 74 7c 72 72 65 6c 73 65 72 ┆ MÅLTAL: De målte størrelser┆
0x46440…46460 20 69 6e 64 74 61 73 74 65 73 20 69 20 65 74 20 6d 7d 6c 65 73 6b 65 6d 61 2e 27 29 3b 0d 0a 77 ┆ indtastes i et måleskema.'); w┆
0x46460…46480 72 69 74 65 6c 6e 28 27 27 3a 31 35 2c 27 42 65 6e 79 74 20 63 75 72 73 6f 72 70 69 6c 65 6e 65 ┆riteln('':15,'Benyt cursorpilene┆
0x46480…464a0 20 76 65 64 20 72 65 74 6e 69 6e 67 20 61 66 20 74 61 6c 6c 65 6e 65 2e 27 29 3b 0d 0a 77 72 69 ┆ ved retning af tallene.'); wri┆
0x464a0…464c0 74 65 6c 6e 28 27 20 20 20 20 20 46 55 4e 4b 54 49 4f 4e 3a 20 41 6e 67 69 76 20 61 6e 74 61 6c ┆teln(' FUNKTION: Angiv antal┆
0x464c0…464e0 6c 65 74 20 61 66 20 73 7c 6a 6c 65 72 20 69 20 62 65 72 65 67 6e 69 6e 67 73 6b 65 6d 61 65 74 ┆let af søjler i beregningskemaet┆
0x464e0…46500 2c 27 29 3b 0d 0a 77 72 69 74 65 6c 6e 28 27 27 3a 31 35 2c 27 6f 67 20 66 6f 72 73 6b 72 69 66 ┆,'); writeln('':15,'og forskrif┆
0x46500…46520 74 65 72 6e 65 20 66 6f 72 20 62 65 72 65 67 6e 65 64 65 20 73 74 7c 72 72 65 6c 73 65 72 2e 27 ┆terne for beregnede størrelser.'┆
0x46520…46540 29 3b 0d 0a 77 72 69 74 65 6c 6e 28 27 27 3a 31 35 2c 27 49 20 66 6f 72 73 6b 72 69 66 74 65 6e ┆); writeln('':15,'I forskriften┆
0x46540…46560 20 6d 7d 20 69 6e 64 67 7d 20 6d 7d 6c 74 65 20 6f 67 20 61 6c 6c 65 72 65 64 65 20 62 65 72 65 ┆ må indgå målte og allerede bere┆
0x46560…46580 67 6e 65 64 65 20 73 74 7c 72 72 65 6c 73 65 72 27 29 3b 0d 0a 77 72 69 74 65 6c 6e 28 27 27 3a ┆gnede størrelser'); writeln('':┆
0x46580…465a0 31 35 2c 27 73 61 6d 74 3a 20 61 62 73 2c 73 71 72 74 2c 20 73 69 6e 2c 20 63 6f 73 2c 20 61 72 ┆15,'samt: abs,sqrt, sin, cos, ar┆
0x465a0…465c0 63 74 61 6e 2c 20 6c 6e 2c 20 6c 6f 67 20 6f 67 20 65 78 70 2e 27 29 3b 0d 0a 77 72 69 74 65 6c ┆ctan, ln, log og exp.'); writel┆
0x465c0…465e0 6e 28 27 20 20 20 20 20 42 45 52 45 47 4e 3a 20 20 20 55 64 72 65 67 6e 69 6e 67 65 72 6e 65 20 ┆n(' BEREGN: Udregningerne ┆
0x465e0…46600 66 6f 72 65 74 61 67 65 73 2e 27 29 3b 0d 0a 77 72 69 74 65 6c 6e 28 27 27 3a 31 35 2c 27 45 66 ┆foretages.'); writeln('':15,'Ef┆
0x46600…46620 (31, 1, 3) 0a 09 49 46 20 28 43 4f 50 59 28 46 4f 52 53 4b 52 49 46 54 2c 50 4f 53 2c 4c 29 3d 42 52 45 4e ┆ IF (COPY(FORSKRIFT,POS,L)=BREN┆
0x46620…46640 5b 49 5d 29 20 41 4e 44 20 4e 4f 54 0d 0a 09 28 46 4f 52 53 4b 52 49 46 54 5b 50 4f 53 2b 4c 5d ┆ÆIÅ) AND NOT (FORSKRIFTÆPOS+LÅ┆
0x46640…46660 20 49 4e 20 42 4f 47 53 54 41 56 29 20 54 48 45 4e 20 42 45 47 49 4e 0d 0a 09 09 50 4f 53 3a 3d ┆ IN BOGSTAV) THEN BEGIN POS:=┆
0x46660…46680 50 4f 53 2b 4c 2d 31 3b 20 4e 59 54 54 45 47 4e 3b 0d 0a 09 09 56 41 4c 28 4f 50 47 2e 42 5b 49 ┆POS+L-1; NYTTEGN; VAL(OPG.BÆI┆
0x46680…466a0 2c 4b 5d 2c 46 2c 50 29 3b 20 49 46 20 50 3c 3e 30 20 54 48 45 4e 20 43 48 3a 3d 27 3f 27 3b 0d ┆,KÅ,F,P); IF P<>0 THEN CH:='?'; ┆
0x466a0…466c0 0a 09 09 46 4f 55 4e 44 3a 3d 54 52 55 45 0d 0a 09 45 4e 44 20 45 4c 53 45 20 49 3a 3d 49 2b 31 ┆ FOUND:=TRUE END ELSE I:=I+1┆
0x466c0…466e0 0d 0a 09 45 4e 44 3b 0d 0a 09 46 4f 52 20 53 46 3a 3d 46 41 42 53 20 54 4f 20 46 45 58 50 20 44 ┆ END; FOR SF:=FABS TO FEXP D┆
0x466e0…46700 4f 20 49 46 20 4e 4f 54 20 46 4f 55 4e 44 20 54 48 45 4e 20 42 45 47 49 4e 0d 0a 09 09 4c 3a 3d ┆O IF NOT FOUND THEN BEGIN L:=┆
0x46700…46720 4c 45 4e 28 53 54 44 46 55 4e 5b 53 46 5d 29 3b 0d 0a 09 09 49 46 20 43 4f 50 59 28 46 4f 52 53 ┆LEN(STDFUNÆSFÅ); IF COPY(FORS┆
0x46720…46740 4b 52 49 46 54 2c 50 4f 53 2c 4c 29 3d 53 54 44 46 55 4e 5b 53 46 5d 20 54 48 45 4e 20 42 45 47 ┆KRIFT,POS,L)=STDFUNÆSFÅ THEN BEG┆
0x46740…46760 49 4e 0d 0a 09 09 09 50 4f 53 3a 3d 50 4f 53 2b 4c 2d 31 3b 20 4e 59 54 54 45 47 4e 3b 0d 0a 09 ┆IN POS:=POS+L-1; NYTTEGN; ┆
0x46760…46780 09 09 46 3a 3d 46 41 4b 54 4f 52 3b 20 46 4f 55 4e 44 3a 3d 20 54 52 55 45 3b 0d 0a 09 09 09 43 ┆ F:=FAKTOR; FOUND:= TRUE; C┆
0x46780…467a0 41 53 45 20 53 46 20 4f 46 0d 0a 09 09 09 46 41 42 53 3a 20 46 3a 3d 41 42 53 28 46 29 3b 0d 0a ┆ASE SF OF FABS: F:=ABS(F); ┆
0x467a0…467c0 09 09 09 46 53 51 52 54 3a 49 46 20 46 3e 3d 30 20 54 48 45 4e 20 46 3a 3d 53 51 52 54 28 46 29 ┆ FSQRT:IF F>=0 THEN F:=SQRT(F)┆
0x467c0…467e0 20 45 4c 53 45 20 43 48 3a 3d 27 21 27 3b 0d 0a 09 09 09 46 53 49 4e 3a 20 46 3a 3d 53 49 4e 28 ┆ ELSE CH:='!'; FSIN: F:=SIN(┆
0x467e0…46800 46 29 3b 0d 0a 09 09 09 46 43 4f 53 3a 20 46 3a 3d 43 4f 53 28 46 29 3b 0d 0a 09 09 09 46 41 52 ┆F); FCOS: F:=COS(F); FAR┆
0x46800…46820 (31, 1, 4) 74 65 72 20 68 76 65 72 20 70 72 6f 63 65 64 75 72 65 20 6b 61 6e 20 73 6b 7b 72 6d 65 6e 20 6b ┆ter hver procedure kan skærmen k┆
0x46820…46840 6f 70 69 65 72 65 73 20 70 7d 20 70 72 69 6e 74 65 72 65 6e 2e 27 29 3b 0d 0a 77 72 69 74 65 6c ┆opieres på printeren.'); writel┆
0x46840…46860 6e 28 27 20 20 20 20 20 47 45 4d 3a 20 20 20 20 20 20 48 65 6c 65 20 6f 70 67 61 76 65 6e 20 67 ┆n(' GEM: Hele opgaven g┆
0x46860…46880 65 6d 6d 65 73 20 70 7d 20 64 69 73 6b 65 74 74 65 6e 2e 27 29 3b 0d 0a 77 72 69 74 65 6c 6e 28 ┆emmes på disketten.'); writeln(┆
0x46880…468a0 27 20 20 20 20 20 48 45 4e 54 3a 20 20 20 20 20 4c 7b 73 65 72 20 65 6e 20 6f 70 67 61 76 65 20 ┆' HENT: Læser en opgave ┆
0x468a0…468c0 66 72 61 20 64 69 73 6b 65 74 74 65 6e 2e 27 29 3b 0d 0a 77 72 69 74 65 6c 6e 28 27 27 3a 31 35 ┆fra disketten.'); writeln('':15┆
0x468c0…468e0 2c 27 48 65 6e 74 20 66 2e 65 6b 73 2e 20 6b 61 73 73 65 2e 20 4f 67 20 61 66 70 72 7c 76 20 4d ┆,'Hent f.eks. kasse. Og afprøv M┆
0x468e0…46900 7d 6c 74 61 6c 2c 20 46 75 6e 6b 74 69 6f 6e 20 6f 67 20 42 65 72 65 67 6e 2e 27 29 3b 0d 0a 77 ┆åltal, Funktion og Beregn.'); w┆
0x46900…46920 72 69 74 65 6c 6e 28 27 20 20 20 20 20 56 45 4a 4c 45 44 4e 49 4e 47 3a 20 6c 7b 73 65 72 20 6d ┆riteln(' VEJLEDNING: læser m┆
0x46920…46940 69 6e 69 63 61 6c 63 2e 68 6c 70 2e 27 29 0d 0a 65 6e 64 3b 09 7b 20 76 65 6a 6c 65 64 6e 69 6e ┆inicalc.hlp.') end; æ vejlednin┆
0x46940…46960 67 20 7d 0d 0a 0d 0a 70 72 6f 63 65 64 75 72 65 20 63 6c 6f 73 65 6c 3b 0d 0a 62 65 67 69 6e 0d ┆g å procedure closel; begin ┆
0x46960…46980 0a 09 70 6f 72 74 28 2e 31 31 2e 29 3a 3d 31 3b 20 77 68 69 6c 65 20 28 70 6f 72 74 28 2e 31 31 ┆ port(.11.):=1; while (port(.11┆
0x46980…469a0 2e 29 20 61 6e 64 20 31 29 3d 30 20 64 6f 20 70 6f 72 74 28 2e 31 31 2e 29 3a 3d 31 3b 0d 0a 09 ┆.) and 1)=0 do port(.11.):=1; ┆
0x469a0…469c0 70 6f 72 74 28 2e 31 31 2e 29 3a 3d 35 3b 20 70 6f 72 74 28 2e 31 31 2e 29 3a 3d 33 32 3b 0d 0a ┆port(.11.):=5; port(.11.):=32; ┆
0x469c0…469e0 65 6e 64 3b 0d 0a 0d 0a 70 72 6f 63 65 64 75 72 65 20 73 6b 72 69 76 73 6b 61 72 6d 28 59 31 2c ┆end; procedure skrivskarm(Y1,┆
0x469e0…46a00 59 32 3a 62 79 74 65 29 3b 0d 0a 62 65 67 69 6e 0d 0a 09 66 6f 72 20 69 3a 3d 20 31 2b 79 31 2a ┆Y2:byte); begin for i:= 1+y1*┆
0x46a00…46a20 (31, 1, 5) 43 54 41 4e 3a 20 46 3a 3d 41 52 43 54 41 4e 28 46 29 3b 0d 0a 09 09 09 46 4c 4e 3a 20 49 46 20 ┆CTAN: F:=ARCTAN(F); FLN: IF ┆
0x46a20…46a40 46 3e 30 20 54 48 45 4e 20 46 3a 3d 4c 4e 28 46 29 20 45 4c 53 45 20 43 48 3a 3d 27 24 27 3b 0d ┆F>0 THEN F:=LN(F) ELSE CH:='$'; ┆
0x46a40…46a60 0a 09 09 09 46 4c 4f 47 3a 49 46 20 46 3e 30 20 54 48 45 4e 20 46 3a 3d 4c 4e 28 46 29 2f 4c 4e ┆ FLOG:IF F>0 THEN F:=LN(F)/LN┆
0x46a60…46a80 28 31 30 29 20 45 4c 53 45 20 43 48 3a 3d 27 24 27 3b 0d 0a 09 09 09 46 45 58 50 3a 20 46 3a 3d ┆(10) ELSE CH:='$'; FEXP: F:=┆
0x46a80…46aa0 45 58 50 28 46 29 0d 0a 09 09 09 45 4e 44 0d 0a 09 09 45 4e 44 0d 0a 09 45 4e 44 3b 0d 0a 09 49 ┆EXP(F) END END END; I┆
0x46aa0…46ac0 46 20 4e 4f 54 20 46 4f 55 4e 44 20 41 4e 44 20 4e 4f 54 20 28 43 48 20 49 4e 20 5b 27 24 27 2c ┆F NOT FOUND AND NOT (CH IN Æ'$',┆
0x46ac0…46ae0 27 21 27 5d 29 20 54 48 45 4e 20 43 48 3a 3d 27 3f 27 0d 0a 45 4e 44 3b 0d 0a 46 41 4b 54 4f 52 ┆'!'Å) THEN CH:='?' END; FAKTOR┆
0x46ae0…46b00 3a 3d 46 0d 0a 45 4e 44 3b 09 7b 20 46 41 4b 54 4f 52 20 7d 0d 0a 0d 0a 42 45 47 49 4e 09 7b 20 ┆:=F END; æ FAKTOR å BEGIN æ ┆
0x46b00…46b20 4d 49 4e 55 53 46 41 4b 54 4f 52 20 7d 0d 0a 09 49 46 20 43 48 3d 27 2d 27 20 54 48 45 4e 20 42 ┆MINUSFAKTOR å IF CH='-' THEN B┆
0x46b20…46b40 45 47 49 4e 0d 0a 09 09 4e 59 54 54 45 47 4e 3b 20 4d 49 4e 55 53 46 41 4b 54 4f 52 3a 3d 2d 46 ┆EGIN NYTTEGN; MINUSFAKTOR:=-F┆
0x46b40…46b60 41 4b 54 4f 52 0d 0a 09 45 4e 44 20 45 4c 53 45 20 4d 49 4e 55 53 46 41 4b 54 4f 52 3a 3d 46 41 ┆AKTOR END ELSE MINUSFAKTOR:=FA┆
0x46b60…46b80 4b 54 4f 52 0d 0a 45 4e 44 3b 09 7b 20 4d 49 4e 55 53 46 41 4b 54 4f 52 20 7d 0d 0a 0d 0a 42 45 ┆KTOR END; æ MINUSFAKTOR å BE┆
0x46b80…46ba0 47 49 4e 09 7b 20 54 45 52 4d 20 7d 0d 0a 09 54 3a 3d 4d 49 4e 55 53 46 41 4b 54 4f 52 3b 0d 0a ┆GIN æ TERM å T:=MINUSFAKTOR; ┆
0x46ba0…46bc0 09 57 48 49 4c 45 20 43 48 3d 27 5e 27 20 44 4f 20 42 45 47 49 4e 0d 0a 09 09 4e 59 54 54 45 47 ┆ WHILE CH='^' DO BEGIN NYTTEG┆
0x46bc0…46be0 4e 3b 0d 0a 09 09 49 46 20 54 3e 30 20 54 48 45 4e 20 54 3a 3d 45 58 50 28 4c 4e 28 54 29 2a 4d ┆N; IF T>0 THEN T:=EXP(LN(T)*M┆
0x46be0…46c00 49 4e 55 53 46 41 4b 54 4f 52 29 20 45 4c 53 45 20 43 48 3a 3d 27 26 27 0d 0a 09 45 4e 44 3b 0d ┆INUSFAKTOR) ELSE CH:='&' END; ┆
0x46c00…46c20 (31, 1, 6) 38 30 20 74 6f 20 28 79 32 2b 31 29 2a 38 30 20 64 6f 20 62 65 67 69 6e 0d 0a 09 09 77 72 69 74 ┆80 to (y2+1)*80 do begin writ┆
0x46c20…46c40 65 28 6c 73 74 2c 73 63 72 65 65 6e 5b 69 5d 29 3b 0d 0a 09 09 69 66 20 69 20 6d 6f 64 20 38 30 ┆e(lst,screenÆiÅ); if i mod 80┆
0x46c40…46c60 3d 30 20 74 68 65 6e 20 77 72 69 74 65 6c 6e 28 6c 73 74 29 0d 0a 09 65 6e 64 3b 0d 0a 09 77 72 ┆=0 then writeln(lst) end; wr┆
0x46c60…46c80 69 74 65 6c 6e 28 6c 73 74 29 0d 0a 65 6e 64 3b 09 7b 20 73 6b 72 69 76 73 6b 61 72 6d 20 7d 0d ┆iteln(lst) end; æ skrivskarm å ┆
0x46c80…46ca0 0a 0d 0a 50 52 4f 43 45 44 55 52 45 20 4e 55 4c 53 54 49 4c 3b 0d 0a 42 45 47 49 4e 0d 0a 09 6e ┆ PROCEDURE NULSTIL; BEGIN n┆
0x46ca0…46cc0 79 6f 70 67 3a 3d 20 74 72 75 65 3b 0d 0a 09 77 69 74 68 20 6f 70 67 20 64 6f 20 62 65 67 69 6e ┆yopg:= true; with opg do begin┆
0x46cc0…46ce0 0d 0a 09 09 61 73 6f 6a 6c 65 3a 3d 31 3b 20 62 73 6f 6a 6c 65 3a 3d 31 3b 20 72 61 6b 6b 65 3a ┆ asojle:=1; bsojle:=1; rakke:┆
0x46ce0…46d00 3d 31 3b 0d 0a 09 09 66 6f 72 20 69 3a 3d 20 31 20 74 6f 20 6d 61 78 73 6f 6a 6c 65 20 64 6f 20 ┆=1; for i:= 1 to maxsojle do ┆
0x46d00…46d20 62 65 67 69 6e 0d 0a 09 09 09 66 6f 72 20 6a 3a 3d 20 31 20 74 6f 20 6d 61 78 72 61 6b 6b 65 20 ┆begin for j:= 1 to maxrakke ┆
0x46d20…46d40 64 6f 0d 0a 09 09 09 62 65 67 69 6e 20 41 5b 69 2c 6a 5d 3a 3d 20 27 30 27 3b 20 42 5b 69 2c 6a ┆do begin AÆi,jÅ:= '0'; BÆi,j┆
0x46d40…46d60 5d 3a 3d 27 30 27 20 65 6e 64 3b 0d 0a 09 09 09 41 6e 61 76 6e 5b 69 5d 3a 3d 27 27 3b 20 42 6e ┆Å:='0' end; AnavnÆiÅ:=''; Bn┆
0x46d60…46d80 61 76 6e 5b 69 5d 3a 3d 27 27 3b 20 46 5b 69 5d 3a 3d 27 27 3b 0d 0a 09 09 09 41 52 45 4e 5b 49 ┆avnÆiÅ:=''; FÆiÅ:=''; ARENÆI┆
0x46d80…46da0 5d 3a 3d 27 27 3b 42 52 45 4e 5b 49 5d 3a 3d 27 27 3b 0d 0a 09 09 65 6e 64 0d 0a 09 65 6e 64 0d ┆Å:='';BRENÆIÅ:=''; end end ┆
0x46da0…46dc0 0a 45 4e 44 3b 0d 0a 0d 0a 70 72 6f 63 65 64 75 72 65 20 61 6b 74 69 76 28 69 3a 20 62 79 74 65 ┆ END; procedure aktiv(i: byte┆
0x46dc0…46de0 29 3b 0d 0a 62 65 67 69 6e 0d 0a 09 67 6f 74 6f 78 79 28 30 2c 32 34 29 3b 20 77 72 69 74 65 28 ┆); begin gotoxy(0,24); write(┆
0x46de0…46e00 40 33 30 2c 27 41 6b 74 69 76 65 20 74 61 73 74 65 72 20 3a 20 27 29 3b 0d 0a 09 63 61 73 65 20 ┆@30,'Aktive taster : '); case ┆
0x46e00…46e20 (31, 1, 7) 0a 09 54 45 52 4d 3a 3d 54 0d 0a 45 4e 44 3b 09 7b 20 54 45 52 4d 20 7d 0d 0a 0d 0a 42 45 47 49 ┆ TERM:=T END; æ TERM å BEGI┆
0x46e20…46e40 4e 20 7b 20 4c 45 44 46 4f 52 53 4b 52 49 46 54 20 7d 0d 0a 09 53 3a 3d 54 45 52 4d 3b 0d 0a 09 ┆N æ LEDFORSKRIFT å S:=TERM; ┆
0x46e40…46e60 57 48 49 4c 45 20 43 48 20 49 4e 20 5b 27 2a 27 2c 27 2f 27 5d 20 44 4f 20 42 45 47 49 4e 0d 0a ┆WHILE CH IN Æ'*','/'Å DO BEGIN ┆
0x46e60…46e80 09 09 4f 50 52 3a 3d 43 48 3b 20 4e 59 54 54 45 47 4e 3b 0d 0a 09 09 43 41 53 45 20 4f 50 52 20 ┆ OPR:=CH; NYTTEGN; CASE OPR ┆
0x46e80…46ea0 4f 46 0d 0a 09 09 09 27 2a 27 3a 20 53 3a 3d 53 2a 54 45 52 4d 3b 0d 0a 09 09 09 27 2f 27 3a 20 ┆OF '*': S:=S*TERM; '/': ┆
0x46ea0…46ec0 42 45 47 49 4e 20 4e 41 56 4e 45 52 3a 3d 54 45 52 4d 3b 20 49 46 20 4e 41 56 4e 45 52 3c 3e 30 ┆BEGIN NAVNER:=TERM; IF NAVNER<>0┆
0x46ec0…46ee0 20 54 48 45 4e 20 53 3a 3d 53 2f 4e 41 56 4e 45 52 0d 0a 09 09 09 09 45 4c 53 45 20 43 48 3a 3d ┆ THEN S:=S/NAVNER ELSE CH:=┆
0x46ee0…46f00 27 25 27 20 45 4e 44 0d 0a 09 09 45 4e 44 0d 0a 09 45 4e 44 3b 0d 0a 09 4c 45 44 46 4f 52 53 4b ┆'%' END END END; LEDFORSK┆
0x46f00…46f20 52 49 46 54 3a 3d 53 0d 0a 45 4e 44 3b 09 7b 20 4c 45 44 46 4f 52 53 4b 52 49 46 54 20 7d 0d 0a ┆RIFT:=S END; æ LEDFORSKRIFT å ┆
0x46f20…46f40 0d 0a 42 45 47 49 4e 09 7b 20 55 44 54 52 59 4b 20 7d 0d 0a 09 45 3a 3d 4c 45 44 46 4f 52 53 4b ┆ BEGIN æ UDTRYK å E:=LEDFORSK┆
0x46f40…46f60 52 49 46 54 3b 0d 0a 09 57 48 49 4c 45 20 43 48 20 49 4e 20 5b 27 2b 27 2c 27 2d 27 5d 20 44 4f ┆RIFT; WHILE CH IN Æ'+','-'Å DO┆
0x46f60…46f80 20 42 45 47 49 4e 0d 0a 09 09 4f 50 52 3a 3d 43 48 3b 20 4e 59 54 54 45 47 4e 3b 0d 0a 09 09 43 ┆ BEGIN OPR:=CH; NYTTEGN; C┆
0x46f80…46fa0 41 53 45 20 4f 50 52 20 4f 46 0d 0a 09 09 09 27 2b 27 3a 20 45 3a 3d 45 2b 4c 45 44 46 4f 52 53 ┆ASE OPR OF '+': E:=E+LEDFORS┆
0x46fa0…46fc0 4b 52 49 46 54 3b 0d 0a 09 09 09 27 2d 27 3a 20 45 3a 3d 45 2d 4c 45 44 46 4f 52 53 4b 52 49 46 ┆KRIFT; '-': E:=E-LEDFORSKRIF┆
0x46fc0…46fe0 54 0d 0a 09 09 45 4e 44 0d 0a 09 45 4e 44 3b 0d 0a 09 55 44 54 52 59 4b 3a 3d 45 0d 0a 45 4e 44 ┆T END END; UDTRYK:=E END┆
0x46fe0…47000 3b 09 7b 20 55 44 54 52 59 4b 20 7d 0d 0a 0d 0a 42 45 47 49 4e 09 7b 20 42 45 52 45 47 4e 20 7d ┆; æ UDTRYK å BEGIN æ BEREGN å┆
0x47000…47020 (31, 1, 8) 69 20 6f 66 0d 0a 09 09 31 3a 20 77 72 69 74 65 28 27 45 53 43 2c 20 52 45 54 55 52 4e 2c 20 50 ┆i of 1: write('ESC, RETURN, P┆
0x47020…47040 49 4c 20 66 72 65 6d 2c 20 74 69 6c 62 61 67 65 2c 20 6f 70 20 6f 67 20 6e 65 64 27 29 3b 0d 0a ┆IL frem, tilbage, op og ned'); ┆
0x47040…47060 09 09 32 3a 20 77 72 69 74 65 28 27 42 53 2c 20 44 45 4c 2c 20 52 45 54 55 52 4e 2c 20 50 49 4c ┆ 2: write('BS, DEL, RETURN, PIL┆
0x47060…47080 20 66 72 65 6d 2c 20 74 69 6c 62 61 67 65 2c 20 6f 70 20 6f 67 20 6e 65 64 27 29 0d 0a 09 65 6e ┆ frem, tilbage, op og ned') en┆
0x47080…470a0 64 0d 0a 65 6e 64 3b 09 7b 20 61 6b 74 69 76 20 7d 0d 0a 0d 0a 66 75 6e 63 74 69 6f 6e 20 59 4e ┆d end; æ aktiv å function YN┆
0x470a0…470c0 3a 20 63 68 61 72 3b 0d 0a 62 65 67 69 6e 0d 0a 09 77 72 69 74 65 28 27 20 3f 20 28 59 2f 4e 29 ┆: char; begin write(' ? (Y/N)┆
0x470c0…470e0 20 27 29 3b 0d 0a 09 72 65 70 65 61 74 20 72 65 61 64 28 6b 62 64 2c 73 76 61 72 29 3b 20 73 76 ┆ '); repeat read(kbd,svar); sv┆
0x470e0…47100 61 72 3a 3d 75 70 63 68 61 72 28 73 76 61 72 29 20 75 6e 74 69 6c 20 73 76 61 72 20 69 6e 20 5b ┆ar:=upchar(svar) until svar in Æ┆
0x47100…47120 27 59 27 2c 27 4e 27 5d 3b 0d 0a 09 59 4e 3a 3d 20 73 76 61 72 0d 0a 65 6e 64 3b 0d 0a 0d 0a 66 ┆'Y','N'Å; YN:= svar end; f┆
0x47120…47140 75 6e 63 74 69 6f 6e 20 6f 6b 28 69 3a 62 79 74 65 29 3a 20 62 6f 6f 6c 65 61 6e 3b 0d 0a 62 65 ┆unction ok(i:byte): boolean; be┆
0x47140…47160 67 69 6e 0d 0a 09 67 6f 74 6f 78 79 28 30 2c 32 34 29 3b 20 77 72 69 74 65 28 40 33 30 2c 27 45 ┆gin gotoxy(0,24); write(@30,'E┆
0x47160…47180 72 20 27 3a 31 33 29 3b 0d 0a 09 63 61 73 65 20 69 20 6f 66 0d 0a 09 09 31 3a 20 77 72 69 74 65 ┆r ':13); case i of 1: write┆
0x47180…471a0 28 27 73 6b 65 6d 61 65 74 20 6f 6b 27 29 3b 0d 0a 09 09 32 3a 20 77 72 69 74 65 28 27 6e 61 76 ┆('skemaet ok'); 2: write('nav┆
0x471a0…471c0 6e 65 6e 65 20 6f 6b 27 29 3b 0d 0a 09 09 33 3a 20 77 72 69 74 65 28 27 66 6f 72 73 6b 72 69 66 ┆nene ok'); 3: write('forskrif┆
0x471c0…471e0 74 65 72 6e 65 20 6f 6b 27 29 3b 0d 0a 09 65 6e 64 3b 0d 0a 09 6f 6b 3a 3d 20 59 4e 20 3d 20 27 ┆terne ok'); end; ok:= YN = '┆
0x471e0…47200 59 27 3b 0d 0a 09 57 52 49 54 45 28 40 31 33 2c 40 33 30 29 0d 0a 65 6e 64 3b 09 7b 20 6f 6b 20 ┆Y'; WRITE(@13,@30) end; æ ok ┆
0x47200…47220 (31, 1, 9) 0d 0a 09 46 4f 52 53 4b 52 49 46 54 3a 3d 20 46 4f 52 53 4b 52 49 46 54 20 2b 20 27 20 27 3b 20 ┆ FORSKRIFT:= FORSKRIFT + ' '; ┆
0x47220…47240 50 4f 53 3a 3d 30 3b 20 4e 59 54 54 45 47 4e 3b 20 56 41 52 44 49 3a 3d 55 44 54 52 59 4b 3b 0d ┆POS:=0; NYTTEGN; VARDI:=UDTRYK; ┆
0x47240…47260 0a 09 43 41 53 45 20 43 48 20 4f 46 0d 0a 09 09 40 31 33 3a 20 46 45 4a 4c 41 52 54 3a 3d 30 3b ┆ CASE CH OF @13: FEJLART:=0;┆
0x47260…47280 0d 0a 09 09 27 24 27 3a 20 46 45 4a 4c 41 52 54 3a 3d 31 3b 0d 0a 09 09 27 21 27 3a 20 46 45 4a ┆ '$': FEJLART:=1; '!': FEJ┆
0x47280…472a0 4c 41 52 54 3a 3d 32 3b 0d 0a 09 09 27 26 27 3a 20 46 45 4a 4c 41 52 54 3a 3d 33 3b 0d 0a 09 09 ┆LART:=2; '&': FEJLART:=3; ┆
0x472a0…472c0 27 25 27 3a 20 46 45 4a 4c 41 52 54 3a 3d 34 3b 0d 0a 09 09 4f 54 48 45 52 57 49 53 45 20 46 45 ┆'%': FEJLART:=4; OTHERWISE FE┆
0x472c0…472e0 4a 4c 41 52 54 3a 3d 35 0d 0a 09 45 4e 44 0d 0a 45 4e 44 3b 09 7b 20 42 45 52 45 47 4e 20 7d 0d ┆JLART:=5 END END; æ BEREGN å ┆
0x472e0…47300 0a 0d 0a 28 2a 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ (* --------------------------┆
0x47300…47320 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x47320…47340 2d 2d 2d 2d 2d 2d 2d 2d 20 2a 29 0d 0a 0d 0a 70 72 6f 63 65 64 75 72 65 20 76 65 6a 6c 65 64 6e ┆-------- *) procedure vejledn┆
0x47340…47360 69 6e 67 3b 0d 0a 62 65 67 69 6e 0d 0a 67 6f 74 6f 78 79 28 30 2c 30 29 3b 20 77 72 69 74 65 6c ┆ing; begin gotoxy(0,0); writel┆
0x47360…47380 6e 3b 20 77 72 69 74 65 6c 6e 3b 0d 0a 77 72 69 74 65 6c 6e 28 27 20 20 20 20 20 4d 69 6e 69 63 ┆n; writeln; writeln(' Minic┆
0x47380…473a0 61 6c 63 2c 20 43 6f 70 79 72 69 67 68 74 20 28 63 29 20 31 35 2f 34 20 2d 20 31 39 38 34 2c 20 ┆alc, Copyright (c) 15/4 - 1984, ┆
0x473a0…473c0 43 61 72 6c 20 48 65 6d 6d 69 6e 67 73 65 6e 2c 20 46 41 47 27 29 3b 0d 0a 77 72 69 74 65 6c 6e ┆Carl Hemmingsen, FAG'); writeln┆
0x473c0…473e0 3b 0d 0a 77 72 69 74 65 6c 6e 28 27 20 20 20 20 20 44 65 74 74 65 20 70 72 6f 67 72 61 6d 20 65 ┆; writeln(' Dette program e┆
0x473e0…47400 72 20 65 6e 20 67 6f 64 20 68 6a 7b 6c 70 20 76 65 64 20 73 74 7c 72 72 65 20 62 65 72 65 67 6e ┆r en god hjælp ved større beregn┆
0x47400…47420 (32, 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 ┆ ┆
[…0x47f…]