|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: 5 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, CpmFSAuto
Notes: CP/M-fs(512_2048_0x1_32_*2+1+2_2:0_35:1)
Media: [0, 0, 1] … [35, 1, 9] {128: 16, 256: 16, 512: 630}
Signature: 512_2048_0x1_32_*2+1+2_2:0_35:1
Confidence score: +21/-0
Sector size: 512
Block size: 2048
Directory entries: 32
Block number size: 8
Extent-mask: 0x01
Sector-interleave: 1, 3, 5, 7, 9, 2, 4, 6, 8
Tracks: (2, 0), (2, 1), (3, 0), (3, 1), (4, 0), (4, 1) […] (33, 0), (33, 1), (34, 0), (34, 1), (35, 0), (35, 1)
| user | bc | length | name | artifact |
|---|---|---|---|---|
| 0 | 0 | 1792 | ASCII.CHP | ⟦fc10a7f76⟧ |
| 0 | 0 | 4736 | ENERGIBE.MID | ⟦4fd48a863⟧ |
| 0 | 0 | 4736 | EOVERM.MID | ⟦2580f63c7⟧ |
| 0 | 0 | 4736 | FRITFALD.MID | ⟦15e8b8a33⟧ |
| 0 | 0 | 4736 | IMPULSEL.MID | ⟦4f9c364d7⟧ |
| 0 | 0 | 4736 | IMPULSUE.MID | ⟦fd2bf7dd1⟧ |
| 0 | 0 | 4736 | KASSE.MID | ⟦e3b551059⟧ |
| 0 | 0 | 4736 | KONDITAL.MID | ⟦f132f9707⟧ |
| 0 | 0 | 4736 | LIS.MID | ⟦0f6652085⟧ |
| 0 | 0 | 26112 | MINICALC.COM | ⟦6d68fc268⟧ |
| 0 | 0 | 9984 | MINICALC.HLP | ⟦ea67175e6⟧ TextFile |
| 0 | 0 | 4736 | OHMSLOV.MID | ⟦52c33e30f⟧ |
| 0 | 0 | 11264 | OLDREG.COM | ⟦60cd62d05⟧ |
| 0 | 0 | 4736 | OVERVGT.MID | ⟦af860e5ec⟧ |
| 0 | 0 | 4736 | PKOVELSE.MID | ⟦50483d477⟧ |
| 0 | 0 | 5376 | REGOLD.PAS | ⟦5a1fdf897⟧ TextFile |
| 0 | 0 | 20864 | REGRES.COM | ⟦acb1cdcc6⟧ |
| 0 | 0 | 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…02c00 (0, 1, 9) […elided…]
0x02c00…02e00 (1, 1, 2) 0xe5[0x200]
0x02e00…02e20 (1, 1, 3) d8 73 2b 70 2b 71 cd 2d d3 c3 e4 d7 e1 c9 2a 43 cf 11 20 00 cd a5 d7 21 21 00 19 71 23 70 23 77 ┆ s+p+q - *C !! q#p#w┆
0x02e20…02e40 c9 2a af d9 3a 42 cf 4f cd ea d0 e5 eb cd 59 cf e1 cc 47 cf 7d 1f d8 2a af d9 4d 44 cd 0b d1 22 ┆ * :B O Y G å * MD "┆
0x02e40…02e60 af d9 c3 a3 d2 3a d6 d9 21 42 cf be c8 77 c3 21 d8 3e ff 32 de d9 2a 43 cf 7e e6 1f 3d 32 d6 d9 ┆ : !B w ! > 2 *C ü =2 ┆
0x02e60…02e80 fe 1e d2 75 d8 3a 42 cf 32 df d9 7e 32 e0 d9 e6 e0 77 cd 45 d8 3a 41 cf 2a 43 cf b6 77 c9 3e 22 ┆ u :B 2 ü2 w E :A *C w >"┆
0x02e80…02ea0 c3 01 cf 21 00 00 22 ad d9 22 af d9 af 32 42 cf 21 80 00 22 b1 d9 cd da d1 c3 21 d8 cd 72 d1 cd ┆ ! " " 2B ! " ! r ┆
0x02ea0…02ec0 51 d8 c3 51 d4 cd 51 d8 c3 a2 d4 0e 00 eb 7e fe 3f ca c2 d8 cd a6 d0 7e fe 3f c4 72 d1 cd 51 d8 ┆Q Q Q ü ? ü ? r Q ┆
0x02ec0…02ee0 0e 0f cd 18 d3 c3 e9 d1 2a d9 d9 22 43 cf cd 51 d8 cd 2d d3 c3 e9 d1 cd 51 d8 cd 9c d3 c3 01 d3 ┆ * "C Q - Q ┆
0x02ee0…02f00 cd 51 d8 c3 bc d5 cd 51 d8 c3 fe d5 cd 72 d1 cd 51 d8 c3 24 d5 cd 51 d8 cd 16 d4 c3 01 d3 2a af ┆ Q Q r Q $ Q * ┆
0x02f00…02f20 d9 c3 29 d9 3a 42 cf c3 01 cf eb 22 b1 d9 c3 da d1 2a bf d9 c3 29 d9 2a ad d9 c3 29 d9 cd 51 d8 ┆ ) :B " * ) * ) Q ┆
0x02f20…02f40 cd 3b d4 c3 01 d3 2a bb d9 22 45 cf c9 3a d6 d9 fe ff c2 3b d9 3a 41 cf c3 01 cf e6 1f 32 41 cf ┆ ; * "E : ; :A 2A ┆
0x02f40…02f60 c9 cd 51 d8 c3 93 d7 cd 51 d8 c3 9c d7 cd 51 d8 c3 d2 d7 2a 43 cf 7d 2f 5f 7c 2f 2a af d9 a4 57 ┆ Q Q Q *C å/_ø/* W┆
0x02f60…02f80 7d a3 5f 2a ad d9 eb 22 af d9 7d a3 6f 7c a2 67 22 ad d9 c9 3a de d9 b7 ca 91 d9 2a 43 cf 36 00 ┆å _* " å oø g" : *C 6 ┆
0x02f80…02fa0 3a e0 d9 b7 ca 91 d9 77 3a df d9 32 d6 d9 cd 45 d8 2a 0f cf f9 2a 45 cf 7d 44 c9 cd 51 d8 3e 02 ┆: w: 2 E * *E åD Q > ┆
0x02fa0…02fc0 32 d5 d9 0e 00 cd 07 d7 cc 03 d6 c9 e5 00 00 00 00 80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆2 ┆
0x02fc0…02fe0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x1…]
0x03000…03200 (1, 1, 4) 0xe5[0x200]
[…0x5…]
0x03c00…03c20 (2, 0, 1) [0, 'REGRES.PAS', 0, 125, 'xl=00', 'bc=00', 'xh=00', 'rc=7d', '0-0-0-0-0-0-0-0-0-0-0', [2, 3, 4, 5, 6, 7, 8, 9, 0, 0, 0, 0, 0, 0, 0, 0]]
0x03c20…03c40 [0, 'REGRES.COM', 0, 163, 'xl=01', 'bc=00', 'xh=00', 'rc=23', '0-0-0-0-0-0-0-0-0-0-0', [10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 0, 0, 0, 0, 0]]
0x03c40…03c60 [0, 'ASCII.CHP', 0, 14, 'xl=00', 'bc=00', 'xh=00', 'rc=0e', '0-0-0-0-0-0-0-0-0-0-0', [24, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x03c60…03c80 [0, 'MINICALC.HLP', 0, 78, 'xl=00', 'bc=00', 'xh=00', 'rc=4e', '0-0-0-0-0-0-0-0-0-0-0', [36, 37, 39, 50, 59, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x03c80…03ca0 [0, 'LIS.MID', 0, 37, 'xl=00', 'bc=00', 'xh=00', 'rc=25', '0-0-0-0-0-0-0-0-0-0-0', [47, 48, 49, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x03ca0…03cc0 [0, 'REGOLD.PAS', 0, 42, 'xl=00', 'bc=00', 'xh=00', 'rc=2a', '0-0-0-0-0-0-0-0-0-0-0', [21, 22, 23, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x03cc0…03ce0 [0, 'KASSE.MID', 0, 37, 'xl=00', 'bc=00', 'xh=00', 'rc=25', '0-0-0-0-0-0-0-0-0-0-0', [51, 52, 56, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x03ce0…03d00 Dirent {Status=0xe5}
[…0x3…]
0x03d60…03d80 [0, 'OLDREG.COM', 0, 88, 'xl=00', 'bc=00', 'xh=00', 'rc=58', '0-0-0-0-0-0-0-0-0-0-0', [73, 74, 75, 76, 78, 92, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x03d80…03da0 [0, 'IMPULSEL.MID', 0, 37, 'xl=00', 'bc=00', 'xh=00', 'rc=25', '0-0-0-0-0-0-0-0-0-0-0', [77, 117, 118, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x03da0…03dc0 Dirent {Status=0xe5}
0x03dc0…03de0 [0, 'MINICALC.COM', 0, 204, 'xl=01', 'bc=00', 'xh=00', 'rc=4c', '0-0-0-0-0-0-0-0-0-0-0', [40, 41, 42, 53, 58, 63, 64, 65, 67, 68, 80, 81, 82, 0, 0, 0]]
0x03de0…03e00 Dirent {Status=0xe5}
0x03e00…04000 (2, 0, 2) 0xe5[0x200]
0x04000…04020 (2, 0, 3) Dirent {Status=0xe5}
0x04020…04040 [0, 'IMPULSUE.MID', 0, 37, 'xl=00', 'bc=00', 'xh=00', 'rc=25', '0-0-0-0-0-0-0-0-0-0-0', [119, 120, 121, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x04040…04060 Dirent {Status=0xe5}
0x04060…04080 [0, 'ENERGIBE.MID', 0, 37, 'xl=00', 'bc=00', 'xh=00', 'rc=25', '0-0-0-0-0-0-0-0-0-0-0', [122, 123, 124, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x04080…040a0 Dirent {Status=0xe5}
0x040a0…040c0 [0, 'KONDITAL.MID', 0, 37, 'xl=00', 'bc=00', 'xh=00', 'rc=25', '0-0-0-0-0-0-0-0-0-0-0', [55, 60, 61, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x040c0…040e0 [0, 'OVERVGT.MID', 0, 37, 'xl=00', 'bc=00', 'xh=00', 'rc=25', '0-0-0-0-0-0-0-0-0-0-0', [62, 66, 79, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x040e0…04100 [0, 'EOVERM.MID', 0, 37, 'xl=00', 'bc=00', 'xh=00', 'rc=25', '0-0-0-0-0-0-0-0-0-0-0', [109, 110, 111, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x04100…04120 Dirent {Status=0xe5}
[…0x3…]
0x04180…041a0 [0, 'OHMSLOV.MID', 0, 37, 'xl=00', 'bc=00', 'xh=00', 'rc=25', '0-0-0-0-0-0-0-0-0-0-0', [106, 107, 108, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x041a0…041c0 [0, 'FRITFALD.MID', 0, 37, 'xl=00', 'bc=00', 'xh=00', 'rc=25', '0-0-0-0-0-0-0-0-0-0-0', [125, 126, 127, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x041c0…041e0 [0, 'PKOVELSE.MID', 0, 37, 'xl=00', 'bc=00', 'xh=00', 'rc=25', '0-0-0-0-0-0-0-0-0-0-0', [101, 102, 128, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x041e0…04200 Dirent {Status=0xe5}
0x04200…04400 (2, 0, 4) 0xe5[0x200]
0x04400…04420 (2, 0, 5) e5 50 4f 52 54 20 20 20 20 50 41 53 00 00 00 03 72 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ PORT PAS r ┆
0x04420…04440 e5 44 49 56 45 52 53 45 20 50 41 53 00 00 00 07 73 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ DIVERSE PAS s ┆
0x04440…04460 e5 43 41 4c 43 31 20 20 20 50 41 53 00 00 00 19 5f 84 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ CALC1 PAS _ ┆
0x04460…04480 e5 46 49 4c 4e 59 54 20 20 46 41 47 00 00 00 0f 7b 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ FILNYT FAG æ ┆
0x04480…044a0 e5 50 4f 53 54 20 20 20 20 42 41 4b 00 00 00 18 7c 7d 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ POST BAK øå ┆
0x044a0…044c0 e5 41 4c 46 41 42 45 54 20 42 41 4b 00 00 00 36 79 7a 7b 7d 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ALFABET BAK 6yzæå ┆
0x044c0…044e0 e5 46 41 4b 44 45 4c 31 20 42 41 4b 00 00 00 13 71 7c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ FAKDEL1 BAK qø ┆
0x044e0…04500 e5 53 45 54 54 49 4d 45 20 50 41 53 00 00 00 03 7e 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ SETTIME PAS ü ┆
0x04500…04520 e5 52 45 41 44 54 49 4d 45 50 41 53 00 00 00 03 7f 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ READTIMEPAS ┆
0x04520…04540 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 ┆ ┆
[…0x6…]
0x04600…04800 (2, 0, 6) 0xe5[0x200]
[…0x1…]
0x04a00…04c00 (2, 0, 8) DataBlock {»REGRES.PAS«}
0x04c00…04e00 (2, 0, 9) 0xe5[0x200]
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…09080 (4, 0, 7) DataBlock {»REGRES.PAS«}
0x09080…090a0 6d 27 29 3b 0d 0a 09 77 72 69 74 65 6c 6e 28 27 27 3a 31 30 2c 27 65 72 20 62 65 72 65 67 6e 65 ┆m'); writeln('':10,'er beregne┆
0x090a0…090c0 74 20 76 2e 68 2e 61 20 6d 69 6e 69 63 61 6c 63 2e 27 29 3b 0d 0a 09 77 72 69 74 65 6c 6e 28 27 ┆t v.h.a minicalc.'); writeln('┆
0x090c0…090e0 27 3a 31 30 2c 27 53 74 61 74 69 73 74 69 73 6b 20 69 6e 74 65 72 65 73 73 65 72 65 64 65 20 68 ┆':10,'Statistisk interesserede h┆
0x090e0…09100 65 6e 76 69 73 65 73 20 74 69 6c 3a 27 29 3b 0d 0a 09 77 72 69 74 65 6c 6e 28 27 27 3a 31 30 2c ┆envises til:'); writeln('':10,┆
0x09100…09120 27 53 74 61 74 69 73 74 69 6b 20 2b 20 64 69 73 6b 65 74 74 65 20 61 66 20 54 6f 6d 6d 79 20 42 ┆'Statistik + diskette af Tommy B┆
0x09120…09140 6f 72 63 68 2c 20 46 41 47 2e 27 29 3b 0d 0a 09 0d 0a 09 68 65 6e 74 6f 70 67 61 76 65 3b 09 09 ┆orch, FAG.'); hentopgave; ┆
0x09140…09160 09 7b 20 6f 70 67 61 76 65 6e 20 6c 61 65 73 65 73 20 70 61 61 20 64 69 73 6b 65 74 74 65 6e 20 ┆ æ opgaven laeses paa disketten ┆
0x09160…09180 7d 0d 0a 09 73 6b 61 65 72 6d 70 72 69 6e 74 65 72 3b 0d 0a 09 4c 61 65 73 53 6f 6a 6c 65 72 3b ┆å skaermprinter; LaesSojler;┆
0x09180…091a0 09 09 09 7b 20 73 7c 6a 6c 65 72 6e 65 20 66 69 6e 64 65 73 20 7d 0d 0a 09 69 66 20 70 72 69 6e ┆ æ søjlerne findes å if prin┆
0x091a0…091c0 74 65 72 20 74 68 65 6e 20 53 6b 72 69 76 53 6f 6a 6c 65 72 3b 0d 0a 09 72 65 67 72 65 73 3b 09 ┆ter then SkrivSojler; regres; ┆
0x091c0…091e0 09 09 09 7b 20 75 64 72 65 67 6e 69 6e 67 65 72 6e 65 20 66 6f 72 65 74 61 67 65 73 20 7d 0d 0a ┆ æ udregningerne foretages å ┆
0x091e0…09200 09 75 64 73 6b 72 69 76 3b 09 09 09 7b 20 72 65 73 75 6c 74 61 74 65 72 6e 65 20 73 6b 72 69 76 ┆ udskriv; æ resultaterne skriv┆
0x09200…09400 (4, 0, 8) DataBlock {»REGRES.COM«}
[…0x24…]
0x0db80…0dba0 26 00 e5 cd 61 04 21 59 00 cd 71 04 21 79 00 cd 71 04 21 4e 00 cd 71 04 21 6e 00 cd 71 04 cd 06 ┆& a !Y q !y q !N q !n q ┆
0x0dba0…0dbc0 12 cb 45 ca 6e 50 2a 8e 7b 26 00 e5 cd 61 04 21 4e 00 cd 71 04 21 6e 00 cd 71 04 cd 06 12 cb 45 ┆ E nP* æ& a !N q !n q E┆
0x0dbc0…0dbe0 ca 38 49 01 47 00 11 8c 7b c3 02 04 21 00 00 e5 21 00 00 cd df 1b cd ab 03 cd 21 15 cd 2d 04 00 ┆ 8I G æ ! ! ! - ┆
0x0dbe0…0dc00 21 0a 00 cd 33 18 cd 43 18 26 52 65 67 72 65 73 3a 20 65 74 20 68 6a 7b 6c 70 65 70 72 6f 67 72 ┆! 3 C &Regres: et hjælpeprogr┆
0x0dc00…0de00 (6, 0, 9) DataBlock {»REGRES.COM«}
0x0de00…0de20 (6, 1, 1) 6e 65 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 ┆ne foretages.'); writeln('':15,┆
0x0de20…0de40 27 45 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 ┆'Efter hver procedure kan skærme┆
0x0de40…0de60 6e 20 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 ┆n kopieres på printeren.'); wri┆
0x0de60…0de80 74 65 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 ┆teln(' GEM: Hele opgave┆
0x0de80…0dea0 6e 20 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 ┆n gemmes på disketten.'); write┆
0x0dea0…0dec0 6c 6e 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 ┆ln(' HENT: Læser en opga┆
0x0dec0…0dee0 76 65 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 ┆ve fra disketten.'); writeln(''┆
0x0dee0…0df00 3a 31 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 ┆:15,'Hent f.eks. kasse. Og afprø┆
0x0df00…0df20 76 20 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 ┆v Måltal, Funktion og Beregn.');┆
0x0df20…0df40 0d 0a 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 ┆ writeln(' VEJLEDNING: læse┆
0x0df40…0df60 72 20 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 ┆r minicalc.hlp.') end; æ vejled┆
0x0df60…0df80 6e 69 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 ┆ning å procedure closel; beg┆
0x0df80…0dfa0 69 6e 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 ┆in port(.11.):=1; while (port(┆
0x0dfa0…0dfc0 2e 31 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 ┆.11.) and 1)=0 do port(.11.):=1;┆
0x0dfc0…0dfe0 0d 0a 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 ┆ port(.11.):=5; port(.11.):=32┆
0x0dfe0…0e000 3b 0d 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 ┆; end; procedure skrivskarm(┆
0x0e000…0e200 (6, 1, 2) DataBlock {»REGOLD.PAS«}
0x0e200…0e220 (6, 1, 3) 59 31 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 ┆Y1,Y2:byte); begin for i:= 1+┆
0x0e220…0e240 79 31 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 ┆y1*80 to (y2+1)*80 do begin w┆
0x0e240…0e260 72 69 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 ┆rite(lst,screenÆiÅ); if i mod┆
0x0e260…0e280 20 38 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 ┆ 80=0 then writeln(lst) end; ┆
0x0e280…0e2a0 09 77 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 ┆ writeln(lst) end; æ skrivskarm┆
0x0e2a0…0e2c0 20 7d 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 ┆ å PROCEDURE NULSTIL; BEGIN ┆
0x0e2c0…0e2e0 0a 09 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 ┆ nyopg:= true; with opg do be┆
0x0e2e0…0e300 67 69 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 ┆gin asojle:=1; bsojle:=1; rak┆
0x0e300…0e320 6b 65 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 ┆ke:=1; for i:= 1 to maxsojle ┆
0x0e320…0e340 64 6f 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 ┆do begin for j:= 1 to maxrak┆
0x0e340…0e360 6b 65 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 ┆ke do begin AÆi,jÅ:= '0'; BÆ┆
0x0e360…0e380 69 2c 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 ┆i,jÅ:='0' end; AnavnÆiÅ:='';┆
0x0e380…0e3a0 20 42 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 ┆ BnavnÆiÅ:=''; FÆiÅ:=''; ARE┆
0x0e3a0…0e3c0 4e 5b 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 ┆NÆIÅ:='';BRENÆIÅ:=''; end e┆
0x0e3c0…0e3e0 6e 64 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 ┆nd END; procedure aktiv(i: b┆
0x0e3e0…0e400 79 74 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 ┆yte); begin gotoxy(0,24); wri┆
0x0e400…0e600 (6, 1, 4) DataBlock {»REGOLD.PAS«}
0x0e600…0e620 (6, 1, 5) 74 65 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 ┆te(SLETEOL,'Aktive taster : '); ┆
0x0e620…0e640 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 45 53 43 2c 20 52 45 ┆ case i of 1: write('ESC, RE┆
0x0e640…0e660 54 55 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 ┆TURN, PIL frem, tilbage, op og n┆
0x0e660…0e680 65 64 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 ┆ed'); 2: write('BS, DEL, RETU┆
0x0e680…0e6a0 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┆
0x0e6a0…0e6c0 27 29 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 ┆') end end; æ aktiv å func┆
0x0e6c0…0e6e0 74 69 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 ┆tion YN: char; begin write(' ┆
0x0e6e0…0e700 3f 20 28 59 2f 4e 29 20 3a 20 27 29 3b 0d 0a 09 72 65 70 65 61 74 20 72 65 61 64 28 6b 62 64 2c ┆? (Y/N) : '); repeat read(kbd,┆
0x0e700…0e720 73 76 61 72 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 ┆svar); svar:=upchar(svar) until ┆
0x0e720…0e740 73 76 61 72 20 69 6e 20 5b 27 59 27 2c 27 4e 27 5d 3b 0d 0a 09 77 72 69 74 65 28 73 76 61 72 29 ┆svar in Æ'Y','N'Å; write(svar)┆
0x0e740…0e760 3b 0d 0a 09 59 4e 3a 3d 20 73 76 61 72 0d 0a 65 6e 64 3b 0d 0a 0d 0a 66 75 6e 63 74 69 6f 6e 20 ┆; YN:= svar end; function ┆
0x0e760…0e780 6f 6b 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 67 6f ┆ok(i:byte): boolean; begin go┆
0x0e780…0e7a0 74 6f 78 79 28 30 2c 32 34 29 3b 20 77 72 69 74 65 28 53 4c 45 54 45 4f 4c 2c 27 45 72 20 27 3a ┆toxy(0,24); write(SLETEOL,'Er ':┆
0x0e7a0…0e7c0 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 28 27 73 6b ┆13); case i of 1: write('sk┆
0x0e7c0…0e7e0 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 6e 65 6e 65 ┆emaet ok'); 2: write('navnene┆
0x0e7e0…0e800 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 74 65 72 6e ┆ ok'); 3: write('forskriftern┆
0x0e800…0ea00 (6, 1, 6) DataBlock {»REGOLD.PAS«}
[…0x4…]
0x0f200…0f220 (7, 0, 2) 20 4e 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 ┆ NYTTEGN; WHILE CH IN Æ'0'..'┆
0x0f220…0f240 39 27 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 ┆9'Å DO NYTTEGN END; VAL(COPY┆
0x0f240…0f260 28 46 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 ┆(FORSKRIFT,POS1,POS-POS1),F,P); ┆
0x0f260…0f280 49 46 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 ┆IF P<>0 THEN CH:='?' END ELSE I┆
0x0f280…0f2a0 46 20 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 ┆F CH='(' THEN BEGIN NYTTEGN; ┆
0x0f2a0…0f2c0 09 46 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 ┆ F:=UDTRYK; IF CH=')' THEN NYT┆
0x0f2c0…0f2e0 54 45 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 ┆TEGN ELSE CH:='?' END ELSE IF C┆
0x0f2e0…0f300 48 20 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 ┆H IN BOGSTAV THEN BEGIN FOUND:┆
0x0f300…0f320 3d 46 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 ┆=FALSE; POS1:= POS; REPEAT NYT┆
0x0f320…0f340 54 45 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 ┆TEGN UNTIL (CH IN OPERATOR) OR (┆
0x0f340…0f360 43 48 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 ┆CH=RETUR); FS:= COPY(FORSKRIFT┆
0x0f360…0f380 2c 50 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 ┆,POS1,POS-POS1); IF FS = 'PI' ┆
0x0f380…0f3a0 54 48 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 ┆THEN BEGIN F:= PI; FOUND:= TRUE ┆
0x0f3a0…0f3c0 45 4e 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 ┆END; I:=1; WHILE NOT FOUND A┆
0x0f3c0…0f3e0 4e 44 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 ┆ND (I<=OPG.ASOJLE) DO BEGIN I┆
0x0f3e0…0f400 46 20 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 ┆F FS = ARENÆIÅ THEN BEGIN VA┆
0x0f400…0f600 (7, 0, 3) DataBlock {»REGOLD.PAS«}
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…10100 (7, 0, 9) DataBlock {»REGOLD.PAS«}
0x10100…10120 72 61 74 65 72 73 20 6d 65 74 6f 64 65 20 74 69 6c 20 6d 7d 6c 74 61 6c 2c 20 73 6f 6d 27 29 3b ┆raters metode til måltal, som');┆
0x10120…10140 0d 0a 09 77 72 69 74 65 6c 6e 28 27 27 3a 31 30 2c 27 65 72 20 62 65 72 65 67 6e 65 74 20 76 2e ┆ writeln('':10,'er beregnet v.┆
0x10140…10160 68 2e 61 20 6d 69 6e 69 63 61 6c 63 2e 27 29 3b 0d 0a 09 77 72 69 74 65 6c 6e 28 27 27 3a 31 30 ┆h.a minicalc.'); writeln('':10┆
0x10160…10180 2c 27 53 74 61 74 69 73 74 69 73 6b 20 69 6e 74 65 72 65 73 73 65 72 65 64 65 20 68 65 6e 76 69 ┆,'Statistisk interesserede henvi┆
0x10180…101a0 73 65 73 20 74 69 6c 3a 27 29 3b 0d 0a 09 77 72 69 74 65 6c 6e 28 27 27 3a 31 30 2c 27 53 74 61 ┆ses til:'); writeln('':10,'Sta┆
0x101a0…101c0 74 69 73 74 69 6b 20 2b 20 64 69 73 6b 65 74 74 65 20 61 66 20 54 6f 6d 6d 79 20 42 6f 72 63 68 ┆tistik + diskette af Tommy Borch┆
0x101c0…101e0 2c 20 46 41 47 2e 27 29 3b 0d 0a 09 0d 0a 09 68 65 6e 74 6f 70 67 61 76 65 3b 09 09 09 7b 20 6f ┆, FAG.'); hentopgave; æ o┆
0x101e0…10200 70 67 61 76 65 6e 20 6c 61 65 73 65 73 20 70 61 61 20 64 69 73 6b 65 74 74 65 6e 20 7d 0d 0a 09 ┆pgaven laeses paa disketten å ┆
0x10200…10300 (7, 1, 1) DataBlock {»ASCII.CHP«}
0x10300…10320 00 70 70 70 70 0d 0a 7f 7f 7f 00 00 00 00 70 70 70 70 0d 0a 00 00 00 0f 0f 0f 0f 70 70 70 70 0d ┆ pppp pppp pppp ┆
0x10320…10340 0a 0f 0f 0f 0f 0f 0f 0f 70 70 70 70 0d 0a 70 70 70 0f 0f 0f 0f 70 70 70 70 0d 0a 7f 7f 7f 0f 0f ┆ pppp ppp pppp ┆
0x10340…10360 0f 0f 70 70 70 70 0d 0a 00 00 00 70 70 70 70 70 70 70 70 0d 0a 0f 0f 0f 70 70 70 70 70 70 70 70 ┆ pppp pppppppp pppppppp┆
0x10360…10380 0d 0a 70 70 70 70 70 70 70 70 70 70 70 0d 0a 7f 7f 7f 70 70 70 70 70 70 70 70 0d 0a 00 00 00 7f ┆ ppppppppppp pppppppp ┆
0x10380…103a0 7f 7f 7f 70 70 70 70 0d 0a 0f 0f 0f 7f 7f 7f 7f 70 70 70 70 0d 0a 70 70 70 7f 7f 7f 7f 70 70 70 ┆ pppp pppp ppp ppp┆
0x103a0…103c0 70 0d 0a 7f 7f 7f 7f 7f 7f 7f 70 70 70 70 0d 0a 00 00 00 00 00 00 00 7f 7f 7f 7f 0d 0a 0f 0f 0f ┆p pppp ┆
0x103c0…103e0 00 00 00 00 7f 7f 7f 7f 0d 0a 70 70 70 00 00 00 00 7f 7f 7f 7f 0d 0a 7f 7f 7f 00 00 00 00 7f 7f ┆ ppp ┆
0x103e0…10400 7f 7f 0d 0a 00 00 00 0f 0f 0f 0f 7f 7f 7f 7f 0d 0a 0f 0f 0f 0f 0f 0f 0f 7f 7f 7f 7f 0d 0a 70 70 ┆ pp┆
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…14c00 […elided…]
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«}
[…0x7…]
0x1c480…1c4a0 45 47 2d 54 46 5b 4c 29 c6 21 16 51 4d 4f 44 54 2f 4d 49 53 2d 34 2e 31 38 36 45 33 2a 54 46 5b ┆EG-TFÆL) ! QMODT/MIS-4.186E3*TFÆ┆
0x1c4a0…1c4c0 4c c2 09 c6 78 07 07 07 80 da 09 c6 80 da 09 c6 82 da 09 c6 47 0d c2 08 c8 c9 7e fe 20 09 54 42 ┆L x G ü TB┆
0x1c4c0…1c4e0 45 47 2d 54 46 5b 4c 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 ┆EG-TFÆL ü # B ! Y ü 2 :┆
0x1c4e0…1c500 f0 cb b7 c8 3d 21 ef cb be c8 c3 bd c4 3a f0 cb 00 c8 3d 21 ef cb be c8 3a ef cb c3 bd c4 cd 5e ┆ =! : =! : ^┆
0x1c500…1c520 c6 cd 54 c8 21 ce cb 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 ┆ T ! ü 6?# ┆
0x1c520…1c540 1b c9 3a 00 cb 0f 0f 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 ┆ : `O> K æ ┆
0x1c540…1c560 c4 c5 cd d0 c5 c1 c6 41 cd 92 c4 3e 3a cd 92 c4 c3 d4 c8 cd a2 c4 00 3a cd 92 c4 cd a2 c4 06 01 ┆ A >: : ┆
0x1c560…1c580 78 cd 4b c8 e6 7f fe 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 ┆x K > K > ┆
0x1c580…1c5a0 cd 92 c4 04 78 fe 0c d2 0e 00 fe 09 c2 d9 c8 cd a2 c4 c3 d9 c8 f1 cd c2 c5 c2 1b c9 cd e4 c4 c3 ┆ x ┆
0x1c5a0…1c5c0 98 c8 d1 c3 86 cb cd 5e c6 fe 0b c2 42 c9 01 52 c9 cd a7 c4 cd 39 c5 21 07 c4 35 c2 00 c7 23 7e ┆ ^ B R 9 ! 5 #ü┆
0x1c5c0…1c5e0 fe 59 c2 82 c7 23 22 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 ┆ Y #" T < ALL (Y/┆
0x1c5e0…1c600 4e 29 3f 00 cd 5e c6 c2 09 c6 cd 54 c8 cd d0 00 ca a7 c9 cd 98 c4 21 f1 cb 36 ff 21 f1 cb 7e fe ┆N)? ^ T ! 6 ! ü ┆
0x1c600…1c800 (12, 1, 9) DataBlock {»LIS.MID«}
0x1c800…1c820 (13, 0, 1) 2c 27 41 52 43 54 41 4e 27 2c 27 4c 4e 27 2c 27 4c 4f 47 27 2c 27 45 58 50 27 29 3b 0d 0a 0d 0a ┆,'ARCTAN','LN','LOG','EXP'); ┆
0x1c820…1c840 56 41 52 09 45 2c 45 45 2c 4c 3a 20 49 4e 54 45 47 45 52 3b 0d 0a 09 50 55 4e 4b 54 55 4d 2c 4e ┆VAR E,EE,L: INTEGER; PUNKTUM,N┆
0x1c840…1c860 45 47 45 58 50 2c 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 ┆EGEXP,FOUND: BOOLEAN; F: REAL;┆
0x1c860…1c880 0d 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 ┆ SF: STDF; BEGIN IF CH IN Æ'┆
0x1c880…1c8a0 30 27 2e 2e 27 39 27 5d 20 54 48 45 4e 20 42 45 47 49 4e 0d 0a 09 46 3a 3d 30 2e 30 3b 20 45 3a ┆0'..'9'Å THEN BEGIN F:=0.0; E:┆
0x1c8a0…1c8c0 3d 30 3b 20 50 55 4e 4b 54 55 4d 3a 3d 46 41 4c 53 45 3b 0d 0a 09 52 45 50 45 41 54 0d 0a 09 09 ┆=0; PUNKTUM:=FALSE; REPEAT ┆
0x1c8c0…1c8e0 46 3a 3d 46 2a 31 30 2e 30 2b 28 4f 52 44 28 43 48 29 2d 34 38 29 3b 0d 0a 09 09 49 46 20 50 55 ┆F:=F*10.0+(ORD(CH)-48); IF PU┆
0x1c8e0…1c900 4e 4b 54 55 4d 20 54 48 45 4e 20 45 3a 3d 45 2d 31 3b 0d 0a 09 09 4e 59 54 54 45 47 4e 3b 0d 0a ┆NKTUM THEN E:=E-1; NYTTEGN; ┆
0x1c900…1c920 09 09 49 46 20 28 43 48 3d 27 2e 27 29 20 41 4e 44 20 4e 4f 54 20 50 55 4e 4b 54 55 4d 20 54 48 ┆ IF (CH='.') AND NOT PUNKTUM TH┆
0x1c920…1c940 45 4e 20 42 45 47 49 4e 0d 0a 09 09 09 50 55 4e 4b 54 55 4d 3a 3d 54 52 55 45 3b 20 4e 59 54 54 ┆EN BEGIN PUNKTUM:=TRUE; NYTT┆
0x1c940…1c960 45 47 4e 0d 0a 09 09 45 4e 44 0d 0a 09 55 4e 54 49 4c 20 4e 4f 54 28 43 48 20 49 4e 20 5b 27 30 ┆EGN END UNTIL NOT(CH IN Æ'0┆
0x1c960…1c980 27 2e 2e 27 39 27 5d 29 3b 0d 0a 09 49 46 20 43 48 3d 27 45 27 20 54 48 45 4e 20 42 45 47 49 4e ┆'..'9'Å); IF CH='E' THEN BEGIN┆
0x1c980…1c9a0 0d 0a 09 09 45 45 3a 3d 30 3b 20 4e 59 54 54 45 47 4e 3b 0d 0a 09 09 49 46 20 43 48 20 49 4e 20 ┆ EE:=0; NYTTEGN; IF CH IN ┆
0x1c9a0…1c9c0 5b 27 2b 27 2c 27 2d 27 5d 20 54 48 45 4e 20 42 45 47 49 4e 0d 0a 09 09 09 4e 45 47 45 58 50 3a ┆Æ'+','-'Å THEN BEGIN NEGEXP:┆
0x1c9c0…1c9e0 3d 43 48 3d 27 2d 27 3b 20 4e 59 54 54 45 47 4e 0d 0a 09 09 45 4e 44 20 45 4c 53 45 20 4e 45 47 ┆=CH='-'; NYTTEGN END ELSE NEG┆
0x1c9e0…1ca00 45 58 50 3a 3d 46 41 4c 53 45 3b 0d 0a 09 09 57 48 49 4c 45 20 43 48 20 49 4e 20 5b 27 30 27 2e ┆EXP:=FALSE; WHILE CH IN Æ'0'.┆
0x1ca00…1cc00 (13, 0, 2) DataBlock {»MINICALC.HLP«}
0x1cc00…1cc20 (13, 0, 3) 2e 27 39 27 5d 20 44 4f 20 42 45 47 49 4e 0d 0a 09 09 09 45 45 3a 3d 45 45 2a 31 30 2b 4f 52 44 ┆.'9'Å DO BEGIN EE:=EE*10+ORD┆
0x1cc20…1cc40 28 43 48 29 2d 34 38 3b 20 4e 59 54 54 45 47 4e 0d 0a 09 09 45 4e 44 3b 0d 0a 09 09 49 46 20 4e ┆(CH)-48; NYTTEGN END; IF N┆
0x1cc40…1cc60 45 47 45 58 50 20 54 48 45 4e 20 45 3a 3d 45 2d 45 45 20 45 4c 53 45 20 45 3a 3d 45 2b 45 45 0d ┆EGEXP THEN E:=E-EE ELSE E:=E+EE ┆
0x1cc60…1cc80 0a 09 45 4e 44 3b 0d 0a 09 46 3a 3d 46 2a 50 57 52 54 45 4e 28 45 29 0d 0a 45 4e 44 20 45 4c 53 ┆ END; F:=F*PWRTEN(E) END ELS┆
0x1cc80…1cca0 45 20 49 46 20 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 ┆E IF CH='(' THEN BEGIN NYTTEGN┆
0x1cca0…1ccc0 3b 0d 0a 09 46 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 ┆; F:=UDTRYK; IF CH=')' THEN ┆
0x1ccc0…1cce0 4e 59 54 54 45 47 4e 20 45 4c 53 45 20 43 48 3a 3d 27 3f 27 0d 0a 45 4e 44 09 45 4c 53 45 20 42 ┆NYTTEGN ELSE CH:='?' END ELSE B┆
0x1cce0…1cd00 45 47 49 4e 0d 0a 09 46 4f 55 4e 44 3a 3d 46 41 4c 53 45 3b 0d 0a 09 49 46 20 28 43 4f 50 59 28 ┆EGIN FOUND:=FALSE; IF (COPY(┆
0x1cd00…1cd20 46 4f 52 53 4b 52 49 46 54 2c 50 4f 53 2c 32 29 20 3d 20 27 50 49 27 29 20 41 4e 44 20 4e 4f 54 ┆FORSKRIFT,POS,2) = 'PI') AND NOT┆
0x1cd20…1cd40 0d 0a 09 28 46 4f 52 53 4b 52 49 46 54 5b 50 4f 53 2b 32 5d 20 49 4e 20 42 4f 47 53 54 41 56 29 ┆ (FORSKRIFTÆPOS+2Å IN BOGSTAV)┆
0x1cd40…1cd60 20 54 48 45 4e 20 42 45 47 49 4e 0d 0a 09 09 50 4f 53 3a 3d 50 4f 53 2b 31 3b 20 4e 59 54 54 45 ┆ THEN BEGIN POS:=POS+1; NYTTE┆
0x1cd60…1cd80 47 4e 3b 20 46 3a 3d 20 50 49 3b 20 46 4f 55 4e 44 3a 3d 20 54 52 55 45 0d 0a 09 45 4e 44 3b 0d ┆GN; F:= PI; FOUND:= TRUE END; ┆
0x1cd80…1cda0 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 20 28 49 ┆ I:=1; WHILE NOT FOUND AND (I┆
0x1cda0…1cdc0 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 4c 3a 3d 4c 45 4e 28 ┆<=OPG.ASOJLE) DO BEGIN L:=LEN(┆
0x1cdc0…1cde0 41 52 45 4e 5b 49 5d 29 3b 0d 0a 09 49 46 20 28 43 4f 50 59 28 46 4f 52 53 4b 52 49 46 54 2c 50 ┆ARENÆIÅ); IF (COPY(FORSKRIFT,P┆
0x1cde0…1ce00 4f 53 2c 4c 29 3d 41 52 45 4e 5b 49 5d 29 20 41 4e 44 20 4e 4f 54 0d 0a 09 28 46 4f 52 53 4b 52 ┆OS,L)=ARENÆIÅ) AND NOT (FORSKR┆
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…1fe80 (14, 1, 1) DataBlock {»KASSE.MID«}
0x1fe80…1fea0 5e c6 3a f0 cb b7 c2 09 c6 21 1d 32 2a 28 48 5c 4a 44 45 5e 32 2b 4c 5b 4e 47 44 45 5e 32 2b 42 ┆^ : ! 2*(HØJDE^2+LÆNGDE^2+B┆
0x1fea0…1fec0 52 45 44 44 45 5e 32 29 80 da 09 c6 80 da 09 c6 82 da 09 c6 47 0d c2 08 c8 c9 7e fe 20 00 09 c6 ┆REDDE^2) G ü ┆
0x1fec0…1fee0 23 0d c2 33 c8 78 c9 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 ┆# 3 x ü # B ! Y ü 2 :┆
0x1fee0…1ff00 f0 cb b7 c8 3d 21 ef cb be c8 c3 bd c4 3a f0 cb 00 c8 3d 21 ef cb be c8 3a ef cb c3 bd c4 cd 5e ┆ =! : =! : ^┆
0x1ff00…1ff20 c6 cd 54 c8 21 ce cb 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 ┆ T ! ü 6?# ┆
0x1ff20…1ff40 1b c9 3a 00 cb 0f 0f 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 ┆ : `O> K æ ┆
0x1ff40…1ff60 c4 c5 cd d0 c5 c1 c6 41 cd 92 c4 3e 3a cd 92 c4 c3 d4 c8 cd a2 c4 00 3a cd 92 c4 cd a2 c4 06 01 ┆ A >: : ┆
0x1ff60…1ff80 78 cd 4b c8 e6 7f fe 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 ┆x K > K > ┆
0x1ff80…1ffa0 cd 92 c4 04 78 fe 0c d2 0e 00 fe 09 c2 d9 c8 cd a2 c4 c3 d9 c8 f1 cd c2 c5 c2 1b c9 cd e4 c4 c3 ┆ x ┆
0x1ffa0…1ffc0 98 c8 d1 c3 86 cb cd 5e c6 fe 0b c2 42 c9 01 52 c9 cd a7 c4 cd 39 c5 21 07 c4 35 c2 00 c7 23 7e ┆ ^ B R 9 ! 5 #ü┆
0x1ffc0…1ffe0 fe 59 c2 82 c7 23 22 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 ┆ Y #" T < ALL (Y/┆
0x1ffe0…20000 4e 29 3f 00 cd 5e c6 c2 09 c6 cd 54 c8 cd d0 00 ca a7 c9 cd 98 c4 21 f1 cb 36 ff 21 f1 cb 7e fe ┆N)? ^ T ! 6 ! ü ┆
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…20220 (14, 1, 3) 2e 27 5d 27 5d 3b 0d 0a 09 63 69 66 66 65 72 20 3a 20 63 68 61 72 73 65 74 20 3d 20 5b 27 30 27 ┆.'Å'Å; ciffer : charset = Æ'0'┆
0x20220…20240 2e 2e 27 39 27 5d 3b 0d 0a 09 6f 70 65 72 61 74 6f 72 3a 63 68 61 72 73 65 74 20 3d 20 5b 27 28 ┆..'9'Å; operator:charset = Æ'(┆
0x20240…20260 27 2c 27 29 27 2c 27 5e 27 2c 27 2b 27 2c 27 2d 27 2c 27 2f 27 2c 27 2a 27 2c 27 2e 27 2c 27 20 ┆',')','^','+','-','/','*','.',' ┆
0x20260…20280 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 0d 0a 09 66 ┆'Å; var AREN,BREN: NTYPE; f┆
0x20280…202a0 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 74 72 69 6e ┆orm: arrayÆ1..maxsojleÅ of strin┆
0x202a0…202c0 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 6c 65 5d 20 ┆gÆ2Å; dec: arrayÆ1..maxsojleÅ ┆
0x202c0…202e0 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 65 67 65 72 ┆of byte; I,J,K,rbh: integer┆
0x202e0…20300 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 6e 74 6f 2c ┆; fejlart, bredde, lang, ento,┆
0x20300…20320 20 4c 2c 20 4c 31 2c 20 72 68 3a 20 62 79 74 65 3b 0d 0a 09 53 43 52 45 45 4e 3a 20 41 52 52 41 ┆ L, L1, rh: byte; SCREEN: ARRA┆
0x20320…20340 59 5b 31 2e 2e 32 30 30 30 5d 20 4f 46 20 43 48 41 52 20 41 54 20 24 46 38 30 30 3b 0d 0a 09 73 ┆YÆ1..2000Å OF CHAR AT $F800; s┆
0x20340…20360 2c 20 74 2c 20 63 68 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 ┆, t, ch, tegn, svar: char; e┆
0x20360…20380 6e 73 2c 20 6e 79 6f 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 ┆ns, nyopg, printer, ikkebogst, l┆
0x20380…203a0 6f 76 6c 69 67 2c 20 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 ┆ovlig, nytf: boolean; blanke: ┆
0x203a0…203c0 53 54 52 31 30 3b 20 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 ┆STR10; BSTR:STR20; FILNAVN: ┆
0x203c0…203e0 09 53 54 52 31 34 3b 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 ┆ STR14; FOPG: FILE OF OPGAVE; ┆
0x203e0…20400 0a 09 4f 50 47 3a 20 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 ┆ OPG: OPGAVE; (* =============┆
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…20620 (14, 1, 5) 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 ┆================================┆
0x20620…20640 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 20 2a 29 0d 0a 0d 0a 46 55 4e 43 ┆===================== *) FUNC┆
0x20640…20660 54 49 4f 4e 20 55 50 43 48 41 52 28 43 48 3a 20 43 48 41 52 29 3a 20 43 48 41 52 3b 0d 0a 42 45 ┆TION UPCHAR(CH: CHAR): CHAR; BE┆
0x20660…20680 47 49 4e 0d 0a 09 49 46 20 43 48 20 49 4e 20 5b 27 61 27 2e 2e 27 7d 27 5d 20 54 48 45 4e 20 43 ┆GIN IF CH IN Æ'a'..'å'Å THEN C┆
0x20680…206a0 48 3a 3d 43 48 52 28 4f 52 44 28 43 48 29 2d 33 32 29 20 45 4c 53 45 20 43 48 3a 3d 43 48 3b 0d ┆H:=CHR(ORD(CH)-32) ELSE CH:=CH; ┆
0x206a0…206c0 0a 09 55 50 43 48 41 52 3a 3d 20 43 48 0d 0a 45 4e 44 3b 09 7b 20 75 70 63 68 61 72 20 7d 0d 0a ┆ UPCHAR:= CH END; æ upchar å ┆
0x206c0…206e0 0d 0a 46 55 4e 43 54 49 4f 4e 20 55 50 43 41 53 45 28 43 48 3a 20 53 54 52 35 30 29 3a 20 53 54 ┆ FUNCTION UPCASE(CH: STR50): ST┆
0x206e0…20700 52 35 30 3b 0d 0a 56 41 52 09 49 3a 20 42 59 54 45 3b 0d 0a 42 45 47 49 4e 0d 0a 09 46 4f 52 20 ┆R50; VAR I: BYTE; BEGIN FOR ┆
0x20700…20720 49 3a 3d 20 31 20 54 4f 20 4c 45 4e 28 43 48 29 20 44 4f 20 49 46 20 43 48 5b 49 5d 20 49 4e 20 ┆I:= 1 TO LEN(CH) DO IF CHÆIÅ IN ┆
0x20720…20740 5b 27 61 27 2e 2e 27 7d 27 5d 20 54 48 45 4e 0d 0a 09 43 48 5b 49 5d 20 3a 3d 43 48 52 28 4f 52 ┆Æ'a'..'å'Å THEN CHÆIÅ :=CHR(OR┆
0x20740…20760 44 28 43 48 5b 49 5d 29 2d 33 32 29 20 45 4c 53 45 20 43 48 5b 49 5d 3a 3d 43 48 5b 49 5d 3b 0d ┆D(CHÆIÅ)-32) ELSE CHÆIÅ:=CHÆIÅ; ┆
0x20760…20780 0a 09 55 50 43 41 53 45 3a 3d 20 43 48 0d 0a 45 4e 44 3b 09 7b 20 75 70 63 61 73 65 20 7d 0d 0a ┆ UPCASE:= CH END; æ upcase å ┆
0x20780…207a0 0d 0a 50 52 4f 43 45 44 55 52 45 20 56 45 4e 54 3b 0d 0a 42 45 47 49 4e 0d 0a 09 57 52 49 54 45 ┆ PROCEDURE VENT; BEGIN WRITE┆
0x207a0…207c0 28 27 20 52 45 54 55 52 4e 20 2d 3e 27 29 3b 0d 0a 09 52 45 50 45 41 54 20 52 45 41 44 28 4b 42 ┆(' RETURN ->'); REPEAT READ(KB┆
0x207c0…207e0 44 2c 54 45 47 4e 29 20 55 4e 54 49 4c 20 54 45 47 4e 20 3d 40 31 33 0d 0a 45 4e 44 3b 0d 0a 0d ┆D,TEGN) UNTIL TEGN =@13 END; ┆
0x207e0…20800 0a 70 72 6f 63 65 64 75 72 65 20 42 53 28 71 3a 62 79 74 65 29 3b 0d 0a 76 61 72 09 69 3a 20 62 ┆ procedure BS(q:byte); var i: b┆
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…21300 (15, 0, 2) DataBlock {»MINICALC.HLP«}
0x21300…21320 72 65 67 6e 65 73 2e 0d 0a 0d 0a 09 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆regnes. --------------------┆
0x21320…21340 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 ┆--------------------------------┆
0x21340…21360 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a 09 50 53 3a 20 50 72 6f 67 72 61 6d 6d ┆--------------- PS: Programm┆
0x21360…21380 65 74 20 65 72 20 74 65 73 74 65 74 20 70 7d 20 66 6f 72 73 6b 65 6c 6c 69 67 20 76 69 73 2c 20 ┆et er testet på forskellig vis, ┆
0x21380…213a0 6d 65 6e 20 64 65 74 20 6b 61 6e 20 73 69 6b 6b 65 72 74 0d 0a 09 62 6c 69 76 65 20 62 65 64 72 ┆men det kan sikkert blive bedr┆
0x213a0…213c0 65 2e 20 48 61 72 20 64 75 20 66 6f 72 73 6c 61 67 20 74 69 6c 20 66 6f 72 62 65 64 72 69 6e 67 ┆e. Har du forslag til forbedring┆
0x213c0…213e0 65 72 2c 20 6f 70 64 61 67 65 72 20 64 75 20 65 6e 20 66 65 6a 6c 0d 0a 09 65 6c 6c 65 72 20 65 ┆er, opdager du en fejl eller e┆
0x213e0…21400 72 20 64 65 72 20 6e 6f 67 65 74 2c 20 73 6f 6d 20 64 75 20 69 6b 6b 65 20 66 6f 72 73 74 7d 72 ┆r der noget, som du ikke forstår┆
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…22a80 (15, 1, 5) DataBlock {»KONDITAL.MID«}
0x22a80…22aa0 2e 30 37 38 2f 56 5b 47 54 21 15 28 41 4d 41 58 2a 30 2e 32 31 31 2b 32 35 30 29 2f 56 5b 47 54 ┆.078/VÆGT! (AMAX*0.211+250)/VÆGT┆
0x22aa0…22ac0 e0 c2 09 c6 78 07 07 07 80 da 09 c6 80 da 09 c6 82 da 09 c6 47 0d c2 08 c8 c9 7e fe 20 00 09 c6 ┆ x G ü ┆
0x22ac0…22ae0 23 0d c2 33 c8 78 c9 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 ┆# 3 x ü # B ! Y ü 2 :┆
0x22ae0…22b00 f0 cb b7 c8 3d 21 ef cb be c8 c3 bd c4 3a f0 cb 00 c8 3d 21 ef cb be c8 3a ef cb c3 bd c4 cd 5e ┆ =! : =! : ^┆
0x22b00…22b20 c6 cd 54 c8 21 ce cb 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 ┆ T ! ü 6?# ┆
0x22b20…22b40 1b c9 3a 00 cb 0f 0f 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 ┆ : `O> K æ ┆
0x22b40…22b60 c4 c5 cd d0 c5 c1 c6 41 cd 92 c4 3e 3a cd 92 c4 c3 d4 c8 cd a2 c4 00 3a cd 92 c4 cd a2 c4 06 01 ┆ A >: : ┆
0x22b60…22b80 78 cd 4b c8 e6 7f fe 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 ┆x K > K > ┆
0x22b80…22ba0 cd 92 c4 04 78 fe 0c d2 0e 00 fe 09 c2 d9 c8 cd a2 c4 c3 d9 c8 f1 cd c2 c5 c2 1b c9 cd e4 c4 c3 ┆ x ┆
0x22ba0…22bc0 98 c8 d1 c3 86 cb cd 5e c6 fe 0b c2 42 c9 01 52 c9 cd a7 c4 cd 39 c5 21 07 c4 35 c2 00 c7 23 7e ┆ ^ B R 9 ! 5 #ü┆
0x22bc0…22be0 fe 59 c2 82 c7 23 22 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 ┆ Y #" T < ALL (Y/┆
0x22be0…22c00 4e 29 3f 00 cd 5e c6 c2 09 c6 cd 54 c8 cd d0 00 ca a7 c9 cd 98 c4 21 f1 cb 36 ff 21 f1 cb 7e fe ┆N)? ^ T ! 6 ! ü ┆
0x22c00…22e00 (15, 1, 6) DataBlock {»OVERVGT.MID«}
0x22e00…22e20 (15, 1, 7) 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 6e 64 20 0d ┆'; i:= i-1; FEJL(1) end ┆
0x22e20…22e40 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 6f 74 20 65 ┆ until (i= bsojle) and not e┆
0x22e40…22e60 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 65 73 42 68 ┆ns until ok(2) end; æ laesBh┆
0x22e60…22e80 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 56 41 52 09 ┆oved å procedure laesF; VAR ┆
0x22e80…22ea0 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 6e 0d 0a 20 ┆PVENSTRE,PHOJRE: BYTE; begin ┆
0x22ea0…22ec0 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 64 6f 20 72 ┆ slet(10,20,0); with opg do r┆
0x22ec0…22ee0 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 6c 65 20 64 ┆epeat for J:= 1 to Bsojle d┆
0x22ee0…22f00 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 20 20 20 67 ┆o begin REPEAT g┆
0x22f00…22f20 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 3b 20 50 76 ┆otoxy(5,10+J); LOVLIG:= TRUE; Pv┆
0x22f20…22f40 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 20 20 20 77 ┆enstre:=0; Phojre:=0; w┆
0x22f40…22f60 72 69 74 65 28 40 33 30 2c 27 46 6f 72 73 6b 72 69 66 74 2c 20 27 2c 20 42 52 45 4e 5b 4a 5d 2c ┆rite(@30,'Forskrift, ', BRENÆJÅ,┆
0x22f60…22f80 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(┆
0x22f80…22fa0 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(┆
0x22fa0…22fc0 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(┆
0x22fc0…22fe0 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┆
0x22fe0…23000 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┆
0x23000…23200 (15, 1, 8) DataBlock {»OVERVGT.MID«}
0x23200…23220 (15, 1, 9) 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┆
0x23220…23240 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┆
0x23240…23260 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┆
0x23260…23280 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; ┆
0x23280…232a0 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┆
0x232a0…232c0 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 ┆
0x232c0…232e0 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┆
0x232e0…23300 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);┆
0x23300…23320 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) ┆
0x23320…23340 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┆
0x23340…23360 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 ┆
0x23360…23380 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);┆
0x23380…233a0 20 77 72 69 74 65 28 40 33 30 2c 27 27 3a 31 30 2c 27 5b 6e 64 72 65 74 20 66 6f 72 6d 61 74 20 ┆ write(@30,'':10,'Ændret format ┆
0x233a0…233c0 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 59 27 3b 0d ┆i udskrift'); nytf:= YN = 'Y'; ┆
0x233c0…233e0 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 30 2c 32 30 ┆ if nytf then begin slet(10,20┆
0x233e0…23400 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 28 27 27 3a ┆,0); gotoxy(0,12); writeln('':┆
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…2ba80 (19, 1, 5) DataBlock {»OVERVGT.MID«}
0x2ba80…2baa0 5e c6 3a f0 cb b7 c2 09 c6 21 08 46 46 56 2a 31 2e 31 30 33 c8 23 d6 30 fe 0a d2 09 c6 57 78 e6 ┆^ : ! FFV*1.103 # 0 Wx ┆
0x2baa0…2bac0 e0 c2 09 c6 78 07 07 07 80 da 09 c6 80 da 09 c6 82 da 09 c6 47 0d c2 08 c8 c9 7e fe 20 08 46 46 ┆ x G ü FF┆
0x2bac0…2bae0 56 2a 31 2e 32 30 c9 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 ┆V*1.20 ü # B ! Y ü 2 :┆
0x2bae0…2bb00 f0 cb b7 c8 3d 21 ef cb be c8 c3 bd c4 3a f0 cb 0c 56 5b 47 54 2d 4f 50 54 56 5b 47 54 c4 cd 5e ┆ =! : VÆGT-OPTVÆGT ^┆
0x2bb00…2bb20 c6 cd 54 c8 21 ce cb 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 ┆ T ! ü 6?# ┆
0x2bb20…2bb40 1b c9 3a 00 cb 0f 0f 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 ┆ : `O> K æ ┆
0x2bb40…2bb60 c4 c5 cd d0 c5 c1 c6 41 cd 92 c4 3e 3a cd 92 c4 c3 d4 c8 cd a2 c4 00 3a cd 92 c4 cd a2 c4 06 01 ┆ A >: : ┆
0x2bb60…2bb80 78 cd 4b c8 e6 7f fe 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 ┆x K > K > ┆
0x2bb80…2bba0 cd 92 c4 04 78 fe 0c d2 0e 00 fe 09 c2 d9 c8 cd a2 c4 c3 d9 c8 f1 cd c2 c5 c2 1b c9 cd e4 c4 c3 ┆ x ┆
0x2bba0…2bbc0 98 c8 d1 c3 86 cb cd 5e c6 fe 0b c2 42 c9 01 52 c9 cd a7 c4 cd 39 c5 21 07 c4 35 c2 00 c7 23 7e ┆ ^ B R 9 ! 5 #ü┆
0x2bbc0…2bbe0 fe 59 c2 82 c7 23 22 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 ┆ Y #" T < ALL (Y/┆
0x2bbe0…2bc00 4e 29 3f 00 cd 5e c6 c2 09 c6 cd 54 c8 cd d0 00 ca a7 c9 cd 98 c4 21 f1 cb 36 ff 21 f1 cb 7e fe ┆N)? ^ T ! 6 ! ü ┆
0x2bc00…2be00 (19, 1, 6) DataBlock {»MINICALC.COM«}
0x2be00…2be20 (19, 1, 7) 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┆
0x2be20…2be40 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┆
0x2be40…2be60 6b 65 6d 61 28 73 6f 6a 6c 65 2c 68 2c 72 3a 20 42 59 54 45 29 3b 0d 0a 70 72 6f 63 65 64 75 72 ┆kema(sojle,h,r: BYTE); procedur┆
0x2be60…2be80 65 20 74 65 67 6e 28 73 3a 73 74 72 32 30 29 3b 0d 0a 62 65 67 69 6e 0d 0a 09 77 72 69 74 65 28 ┆e tegn(s:str20); begin write(┆
0x2be80…2bea0 27 27 3a 72 68 29 3b 0d 0a 09 66 6f 72 20 6a 3a 3d 20 31 20 74 6f 20 73 6f 6a 6c 65 20 64 6f 20 ┆'':rh); for j:= 1 to sojle do ┆
0x2bea0…2bec0 77 72 69 74 65 28 63 6f 70 79 28 53 2c 31 2c 62 72 65 64 64 65 2b 31 29 29 3b 0d 0a 09 77 72 69 ┆write(copy(S,1,bredde+1)); wri┆
0x2bec0…2bee0 74 65 6c 6e 28 27 21 27 29 0d 0a 65 6e 64 3b 0d 0a 62 65 67 69 6e 0d 0a 09 62 72 65 64 64 65 3a ┆teln('!') end; begin bredde:┆
0x2bee0…2bf00 3d 20 28 37 39 2d 73 6f 6a 6c 65 29 20 64 69 76 20 73 6f 6a 6c 65 3b 20 69 66 20 62 72 65 64 64 ┆= (79-sojle) div sojle; if bredd┆
0x2bf00…2bf20 65 20 3e 20 31 39 20 74 68 65 6e 20 62 72 65 64 64 65 3a 3d 31 39 3b 0d 0a 09 72 68 3a 3d 28 37 ┆e > 19 then bredde:=19; rh:=(7┆
0x2bf20…2bf40 39 20 2d 20 73 6f 6a 6c 65 2a 28 62 72 65 64 64 65 2b 31 29 29 20 64 69 76 20 32 3b 20 72 62 68 ┆9 - sojle*(bredde+1)) div 2; rbh┆
0x2bf40…2bf60 3a 3d 20 72 68 20 2d 20 62 72 65 64 64 65 3b 0d 0a 09 69 66 20 68 3d 31 20 74 68 65 6e 20 62 65 ┆:= rh - bredde; if h=1 then be┆
0x2bf60…2bf80 67 69 6e 20 67 6f 74 6f 78 79 28 30 2c 31 29 3b 74 65 67 6e 28 62 73 74 72 32 29 3b 74 65 67 6e ┆gin gotoxy(0,1);tegn(bstr2);tegn┆
0x2bf80…2bfa0 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 6f 78 79 28 ┆(tom);tegn(bstr2) end; gotoxy(┆
0x2bfa0…2bfc0 30 2c 34 29 3b 0d 0a 09 66 6f 72 20 69 3a 3d 20 31 20 74 6f 20 72 20 64 6f 0d 0a 09 09 63 61 73 ┆0,4); for i:= 1 to r do cas┆
0x2bfc0…2bfe0 65 20 65 6e 74 6f 20 6f 66 0d 0a 09 09 09 31 3a 20 74 65 67 6e 28 74 6f 6d 29 3b 0d 0a 09 09 09 ┆e ento of 1: tegn(tom); ┆
0x2bfe0…2c000 32 3a 20 62 65 67 69 6e 20 74 65 67 6e 28 74 6f 6d 29 3b 74 65 67 6e 28 62 73 74 72 31 29 20 65 ┆2: begin tegn(tom);tegn(bstr1) e┆
0x2c000…2c200 (19, 1, 8) DataBlock {»MINICALC.COM«}
0x2c200…2c220 (19, 1, 9) 6e 64 0d 0a 09 09 65 6e 64 3b 0d 0a 09 69 66 20 72 20 69 6e 20 5b 39 2e 2e 31 36 5d 20 74 68 65 ┆nd end; if r in Æ9..16Å the┆
0x2c220…2c240 6e 20 74 65 67 6e 28 62 73 74 72 31 29 0d 0a 65 6e 64 3b 09 7b 20 74 65 67 6e 73 6b 65 6d 61 20 ┆n tegn(bstr1) end; æ tegnskema ┆
0x2c240…2c260 7d 0d 0a 0d 0a 70 72 6f 63 65 64 75 72 65 20 74 65 73 74 6e 61 76 6e 28 76 61 72 20 6e 61 76 6e ┆å procedure testnavn(var navn┆
0x2c260…2c280 3a 20 73 74 72 31 30 29 3b 0d 0a 62 65 67 69 6e 0d 0a 72 65 70 65 61 74 0d 0a 09 6e 61 76 6e 3a ┆: str10); begin repeat navn:┆
0x2c280…2c2a0 3d 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 ┆=streng(navn,rbh+I*(bredde+1),2,┆
0x2c2a0…2c2c0 6c 61 6e 67 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 72 28 ┆lang); IKKEBOGST:=NOT (upchar(┆
0x2c2c0…2c2e0 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 61 76 ┆NAVNÆ1Å) IN BOGSTAV) or (len(nav┆
0x2c2e0…2c300 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 49 4e ┆n)=0); IF IKKEBOGST THEN BEGIN┆
0x2c300…2c320 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 69 67 ┆ navn:=''; FEJL(3) end; lovlig┆
0x2c320…2c340 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 6e 29 ┆:=true; for j:= 1 to len(navn)┆
0x2c340…2c360 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 68 61 ┆ do lovlig:= lovlig and (upcha┆
0x2c360…2c380 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 20 2b ┆r(navnÆjÅ) in bogstav + ciffer +┆
0x2c380…2c3a0 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 62 65 ┆ Æ'/'Å); if not lovlig then be┆
0x2c3a0…2c3c0 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 69 6c ┆gin navn:=''; fejl(4) end until┆
0x2c3c0…2c3e0 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 3b 0d ┆ lovlig and not ikkebogst END; ┆
0x2c3e0…2c400 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 31 30 ┆ function fnavn(s:str10):str10┆
0x2c400…2c600 (20, 0, 1) DataBlock {»MINICALC.COM«}
[…0x4…]
0x2ce00…2ce20 (20, 0, 6) 4f 50 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 ┆OPG.bsojle) END; æ laesF å ┆
0x2ce20…2ce40 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 0d 0a 67 6f 74 ┆procedure nytformat; begin got┆
0x2ce40…2ce60 6f 78 79 28 30 2c 32 34 29 3b 20 77 72 69 74 65 28 40 33 30 2c 27 27 3a 31 30 2c 27 5b 6e 64 72 ┆oxy(0,24); write(@30,'':10,'Ændr┆
0x2ce60…2ce80 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 3d 20 ┆et format i udskrift'); nytf:= ┆
0x2ce80…2cea0 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 0a 09 ┆YN = 'Y'; if nytf then begin ┆
0x2cea0…2cec0 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 09 77 ┆slet(10,20,0); gotoxy(0,12); w┆
0x2cec0…2cee0 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 7c 6a ┆riteln('':10,'Angiv for hver søj┆
0x2cee0…2cf00 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 76 69 ┆le,'); writeln('':10,'om du vi┆
0x2cf00…2cf20 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 3b 0d ┆l have eksponentiel (E0..E7)'); ┆
0x2cf20…2cf40 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 20 6e ┆ writeln('':10,'eller decimal n┆
0x2cf40…2cf60 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 69 74 ┆otation (D0..D7).'); writ┆
0x2cf60…2cf80 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 2c 20 ┆eln('':10,'dog ændres formatet, ┆
0x2cf80…2cfa0 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 3b 0d ┆hvis tallet fylder for meget'); ┆
0x2cfa0…2cfc0 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 65 72 ┆ writeln('':10,'eks. E2 betyder┆
0x2cfc0…2cfe0 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 20 66 ┆ eksponentiel notation i 2 + 5 f┆
0x2cfe0…2d000 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 20 44 ┆elter'); writeln('':10,' D┆
0x2d000…2d200 (20, 0, 7) DataBlock {»MINICALC.COM«}
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…30a00 (20, 1, 9) […elided…]
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…32220 (22, 1, 3) fb 05 cb 45 ca 1a 4d 21 02 00 11 00 00 01 00 01 cd 71 05 7d 32 73 cb c3 2a 4d 21 01 00 11 00 00 ┆ E M! q å2s *M! ┆
0x32220…32240 01 00 01 cd 71 05 7d 32 73 cb 21 01 00 e5 21 14 00 e5 21 00 00 e5 cd 71 2a 2a fc b2 6e 26 00 e5 ┆ q å2s ! ! ! q** n& ┆
0x32240…32260 21 01 00 e5 2a fc b2 11 01 00 19 6e 26 00 e5 cd b2 41 2a 69 cb 26 00 cb 45 ca 65 4d cd 4d 45 cd ┆! * n& A*i & E eM ME ┆
0x32260…32280 c0 46 c3 68 4d cd 89 49 2a 68 cb 26 00 cb 45 ca 9b 4d 21 01 00 e5 cd 60 4a cb 45 ca 9b 4d 21 00 ┆ F hM I*h & E M! `J E M! ┆
0x32280…322a0 00 e5 2a 73 cb 26 00 e5 2a c8 b7 26 00 d1 cd 10 06 e5 21 03 00 d1 19 e5 cd 23 3b 21 00 00 11 00 ┆ *s & * & ! #;! ┆
0x322a0…322c0 00 01 02 00 cd 71 05 7d 32 69 cb 01 08 00 11 fc b2 c3 3d 04 01 08 00 21 f4 b2 cd 23 04 21 0a 00 ┆ q å2i = ! # ! ┆
0x322c0…322e0 e5 21 14 00 e5 21 00 00 e5 cd 71 2a 21 01 00 e5 21 04 00 d1 cd 81 05 7a b3 ca 3e 4e d5 11 00 00 ┆ ! ! q*! ! z >N ┆
0x322e0…32300 01 00 01 cd 71 05 7d 32 77 cb 21 0a 00 e5 21 10 00 cd fc 1c cd a2 15 21 02 00 cd 48 18 cd 54 1d ┆ q å2w ! ! ! H T ┆
0x32300…32320 21 01 00 e5 21 f4 01 d1 cd 81 05 7a b3 ca 27 4e d5 22 7c cb 21 00 00 e5 21 00 00 cd fc 1c 2a 7c ┆! ! z 'N "ø ! ! *ø┆
0x32320…32340 cb 23 d1 1b c3 0b 4e cd a2 15 21 01 00 cd 48 18 cd 54 1d 2a 77 cb 26 00 23 d1 1b c3 d7 4d 21 00 ┆ # N ! H T *w & # M! ┆
0x32340…32360 00 e5 21 00 00 cd fc 1c cd a2 15 cd 68 04 10 42 65 72 65 67 6e 69 6e 67 73 73 6b 65 6d 61 3a 21 ┆ ! h Beregningsskema:!┆
0x32360…32380 30 00 cd c7 18 cd 54 1d 21 00 00 e5 21 18 00 cd fc 1c cd a2 15 21 1e 00 cd 48 18 cd 68 04 00 21 ┆0 T ! ! ! H h !┆
0x32380…323a0 0a 00 cd c7 18 cd d7 18 10 41 6e 74 61 6c 20 73 7c 6a 6c 65 72 28 31 2e 2e 21 09 00 e5 21 00 00 ┆ Antal søjler(1..! ! ┆
0x323a0…323c0 cd 4c 18 cd d7 18 04 29 20 3a 20 2a c9 b7 26 00 e5 21 00 00 cd 4c 18 21 08 00 cd 48 18 cd 54 1d ┆ L ) : * & ! L ! H T ┆
0x323c0…323e0 2a c9 b7 26 00 e5 21 01 00 e5 21 09 00 e5 cd 3c 23 11 00 00 01 00 01 cd 71 05 7d 32 c9 b7 2a 75 ┆* & ! ! <# q å2 *u┆
0x323e0…32400 cb 26 00 e5 21 0a 00 d1 cd e7 05 cb 45 ca 03 4f 21 0a 00 11 00 00 01 00 01 cd 71 05 7d 32 74 cb ┆ & ! E O! q å2t ┆
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…32620 (22, 1, 5) c3 1e 4f 2a 75 cb 26 00 e5 21 01 00 d1 eb b7 ed 52 11 00 00 01 00 01 cd 71 05 7d 32 74 cb 2a c9 ┆ O*u & ! R q å2t * ┆
0x32620…32640 b7 26 00 e5 21 01 00 e5 21 00 00 e5 cd b2 41 21 c7 b7 22 f4 b2 21 00 00 22 7c cb 21 02 00 e5 cd ┆ & ! ! A! " ! "ø ! ┆
0x32640…32660 72 3d 21 00 00 11 00 00 01 02 00 cd 71 05 7d 32 6a cb 2a 7c cb e5 21 01 00 d1 19 22 7c cb 2a f4 ┆r=! q å2j *ø ! "ø * ┆
0x32660…32680 b2 11 f0 0f 19 e5 2a 7c cb 2b 11 09 00 cd 67 05 11 0b 00 cd 10 06 d1 19 e5 cd d3 43 21 01 00 e5 ┆ *ø + g C! ┆
0x32680…326a0 2a f4 b2 6e 26 00 d1 cd 81 05 7a b3 ca fe 4f d5 11 00 00 01 00 01 cd 71 05 7d 32 77 cb 2a 6a cb ┆* n& z O q å2w *j ┆
0x326a0…326c0 26 00 e5 2a f4 b2 11 8d 0f 19 e5 2a 77 cb 26 00 2b 11 09 00 cd 67 05 11 0b 00 cd 10 06 d1 19 cd ┆& * *w & + g ┆
0x326c0…326e0 55 04 2a f4 b2 11 f0 0f 19 e5 2a 7c cb 2b 11 09 00 cd 67 05 11 0b 00 cd 10 06 d1 19 cd 55 04 cd ┆U * *ø + g U ┆
0x326e0…32700 a8 05 d1 7d b3 6f 11 00 00 01 02 00 cd 71 05 7d 32 6a cb 2a 77 cb 26 00 23 d1 1b c3 8a 4f 21 01 ┆ å o q å2j *w & # O! ┆
0x32700…32720 00 e5 2a 7c cb e5 21 01 00 d1 eb b7 ed 52 d1 cd 81 05 7a b3 ca 86 50 d5 11 00 00 01 00 01 cd 71 ┆ *ø ! R z P q┆
0x32720…32740 05 7d 32 77 cb 2a 6a cb 26 00 e5 2a f4 b2 11 f0 0f 19 e5 2a 77 cb 26 00 2b 11 09 00 cd 67 05 11 ┆ å2w *j & * *w & + g ┆
0x32740…32760 0b 00 cd 10 06 d1 19 cd 55 04 2a f4 b2 11 f0 0f 19 e5 2a 7c cb 2b 11 09 00 cd 67 05 11 0b 00 cd ┆ U * *ø + g ┆
0x32760…32780 10 06 d1 19 cd 55 04 cd a8 05 d1 7d b3 6f 11 00 00 01 02 00 cd 71 05 7d 32 6a cb 2a 77 cb 26 00 ┆ U å o q å2j *w & ┆
0x32780…327a0 23 d1 1b c3 12 50 2a 6a cb 26 00 cb 45 ca ca 50 2a f4 b2 11 f0 0f 19 e5 2a 7c cb 2b 11 09 00 cd ┆# P*j & E P* *ø + ┆
0x327a0…327c0 67 05 11 0b 00 cd 10 06 d1 19 e5 cd 68 04 00 06 0a cd 1c 05 2a 7c cb e5 21 01 00 d1 eb b7 ed 52 ┆g h *ø ! R┆
0x327c0…327e0 22 7c cb 21 01 00 e5 cd f1 21 2a 7c cb e5 2a f4 b2 11 02 00 19 6e 26 00 d1 cd 9a 05 e5 2a 6a cb ┆"ø ! !*ø * n& *j ┆
0x327e0…32800 26 00 7d ee 01 6f d1 7d a3 6f cb 45 ca 3b 4f 21 02 00 e5 cd c4 3e cb 45 ca 35 4f 01 08 00 11 f4 ┆& å o å o E ;O! > E 5O ┆
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…35200 (23, 0, 1) […elided…]
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…3a080 (26, 0, 3) DataBlock {»OHMSLOV.MID«}
0x3a080…3a0a0 13 05 c2 42 c8 c9 21 80 00 81 03 55 2a 49 48 2b 4c 4f 47 28 43 29 b7 c8 3d 21 ef cb be c8 c3 bd ┆ B ! U*IH+LOG(C) =! ┆
0x3a0a0…3a0c0 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 7e fe 00 48 5e ┆ : =! : ^ T ! ü H^┆
0x3a0c0…3a0e0 32 2f 28 43 2d 48 29 c2 88 c8 1e 00 d5 cd e9 c4 cc ea c7 ca 1b c9 3a ee cb 0f 0f 0f e6 60 4f 3e ┆2/(C-H) : `O>┆
0x3a0e0…3a100 0a cd 4b c8 17 da 0f c9 d1 7b 1c d5 e6 03 f5 c2 00 2d 4c 4f 47 28 4b 29 c5 c1 c6 41 cd 92 c4 3e ┆ K æ -LOG(K) A >┆
0x3a100…3a120 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 20 c2 f9 c8 f1 ┆: >: x K ┆
0x3a120…3a140 f5 fe 03 00 f7 c8 3e 09 cd 4b c8 e6 7f fe 20 ca 0e c9 3e 20 cd 92 c4 04 78 fe 0c d2 0e c9 fe 09 ┆ > K > x ┆
0x3a140…3a160 c2 d9 c8 cd a2 c4 c3 d9 c8 f1 cd c2 c5 c2 1b c9 cd e4 c4 c3 98 c8 00 c3 86 cb cd 5e c6 fe 0b c2 ┆ ^ ┆
0x3a160…3a180 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 88 c4 cd 54 c8 ┆B R 9 ! 5 #ü Y #" T ┆
0x3a180…3a1a0 11 cd cb cd ef c4 3c cc ea 00 c3 86 cb 41 4c 4c 20 28 59 2f 4e 29 3f 00 cd 5e c6 c2 09 c6 cd 54 ┆ < ALL (Y/N)? ^ T┆
0x3a1a0…3a1c0 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 c4 00 c2 a0 c9 ┆ ! 6 ! ü ┆
0x3a1c0…3a1e0 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 3d ca 86 cb cd ┆ w4! Y ü t = ┆
0x3a1e0…3a200 d9 c7 cd 66 c8 c3 09 c6 cd f8 c7 f5 cd 5e c6 00 09 c6 cd 54 c8 11 cd cb d5 cd ef c4 d1 cd 09 c5 ┆ f ^ T ┆
0x3a200…3a400 (26, 0, 4) DataBlock {»EOVERM.MID«}
0x3a400…3a420 (26, 0, 5) eb cd 32 33 cd 6b 33 d1 2a 8f 69 19 c9 3a 8f 69 b7 3e 95 28 02 3e 73 cd 4a 34 e1 c9 ed 5b 8f 69 ┆ 23 k3 * i : i > ( >s J4 Æ i┆
0x3a420…3a440 2a a0 6f e5 72 06 06 23 36 00 10 fb 23 73 e1 cd 3d 33 cd 6b 33 e1 c9 ff fe fc fb fa f9 2a d3 32 ┆* o r #6 #s =3 k3 * 2┆
0x3a440…3a460 36 01 23 ed 5b d5 32 73 23 72 c9 f5 e5 b7 3e 00 11 00 00 20 0b 2a d3 32 23 23 23 7e 23 5e 23 56 ┆6 # Æ 2s#r > * 2###ü#^#V┆
0x3a460…3a480 f5 d5 cd b3 33 d1 f1 cd f2 33 3e 02 d1 cd f2 33 cd ea 33 f1 b7 cc 40 34 c3 3d 35 f5 78 b7 20 05 ┆ 3 3> 3 3 @4 =5 x ┆
0x3a480…3a4a0 f1 eb c3 ff 33 d5 cd e7 33 cd d5 33 cd da 33 cd 40 34 05 28 15 2a d5 32 e5 cd e7 33 cd df 33 3e ┆ 3 3 3 3 @4 ( * 2 3 3>┆
0x3a4a0…3a4c0 01 d1 cd f2 33 cd 40 34 10 eb 2a d5 32 e5 cd b3 33 e1 d1 f1 e5 cd f2 33 cd d0 33 3e 01 d1 cd f2 ┆ 3 @4 * 2 3 3 3> ┆
0x3a4c0…3a4e0 33 3e 01 2a d5 32 c3 ff 33 3e 03 2a dd 32 c3 ff 33 4e 23 46 ed 5b 7e 68 21 93 69 c3 96 5d 2a dd ┆3> * 2 3> * 2 3N#F Æüh! i Å* ┆
0x3a4e0…3a500 32 7e f5 fe d3 ca 77 36 fe d1 20 06 cd 47 33 c3 77 36 fe d2 20 16 cd 47 33 2a dd 32 cd e7 32 22 ┆2ü w6 G3 w6 G3* 2 2"┆
0x3a500…3a520 dd 32 cd a3 34 0e 3a cd 40 0a 18 6b fe 78 28 12 fe d8 20 04 3e 78 18 0a fe 63 28 06 fe d5 20 54 ┆ 2 4 : @ k x( >x c( T┆
0x3a520…3a540 3e 63 cd 4a 34 2a dd 32 cd e7 32 23 7e 23 e5 22 dd 32 f5 b7 28 35 f5 cd 37 34 e5 cd 37 34 4e 23 ┆>c J4* 2 2#ü# " 2 (5 74 74N#┆
0x3a540…3a560 46 c5 78 b7 28 0c c5 3e 00 21 00 00 cd ff 33 c1 10 f4 c1 d1 c5 3e 03 cd 7b 35 c1 cb 41 28 08 21 ┆F x ( > ! 3 > æ5 A( !┆
0x3a560…3a580 5b 00 3e ff cd 4b 35 f1 3d 20 cb c1 d1 3e 03 cd 7b 35 18 03 cd 4a 34 f1 01 09 00 21 c7 21 ed b1 ┆Æ > K5 = > æ5 J4 ! ! ┆
0x3a580…3a5a0 cc 37 34 01 04 00 21 d0 21 ed b1 2a dd 32 cc e7 32 22 dd 32 01 09 00 21 be 21 ed b1 20 2a 3e ff ┆ 74 ! ! * 2 2" 2 ! ! *> ┆
0x3a5a0…3a5c0 32 db 32 2a dd 32 23 23 cd d1 35 fe 01 28 19 3a db 32 b7 0e 2c cc 40 0a cd 37 34 cd a3 34 22 dd ┆2 2* 2## 5 ( : 2 , @ 74 4" ┆
0x3a5c0…3a5e0 32 3e 00 32 db 32 18 db cd 37 34 cd d1 35 ed 5b 95 69 21 7e 39 e5 21 2e 39 01 50 00 cd ce 5d 2d ┆2> 2 2 74 5 Æ i!ü9 !.9 P Å-┆
0x3a5e0…3a600 39 4f 38 4f 38 4f 38 4f 38 4f 38 4f 38 4f 38 4f 38 4f 38 4f 38 4f 38 4f 38 4f 38 4f 38 4a 38 45 ┆9O8O8O8O8O8O8O8O8O8O8O8O8O8O8J8E┆
0x3a600…3a800 (26, 0, 6) DataBlock {»EOVERM.MID«}
0x3a800…3a820 (26, 0, 7) 38 40 38 df 37 d5 37 c8 37 c8 37 c1 37 ba 37 ba 37 ba 37 ba 37 ba 37 ba 37 ba 37 ba 37 ba 37 ba ┆8@8 7 7 7 7 7 7 7 7 7 7 7 7 7 7 ┆
0x3a820…3a840 37 ba 37 ba 37 ba 37 ba 37 ba 37 ba 37 ba 37 ba 37 b3 37 b3 37 ad 37 ad 37 ad 37 ad 37 a6 37 9e ┆7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 ┆
0x3a840…3a860 37 9e 37 9e 37 9e 37 9e 37 9e 37 9e 37 99 37 99 37 99 37 99 37 99 37 99 37 99 37 99 37 99 37 99 ┆7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 ┆
0x3a860…3a880 37 99 37 99 37 99 37 99 37 99 37 99 37 18 38 93 37 93 37 93 37 84 37 84 37 81 37 81 37 81 37 81 ┆7 7 7 7 7 7 7 8 7 7 7 7 7 7 7 7 ┆
0x3a880…3a8a0 37 c3 c9 35 cd c9 35 2a dd 32 ed 5b 93 69 19 22 dd 32 c9 eb 3e ff c3 4b 35 eb af c3 4b 35 d6 f1 ┆7 5 5* 2 Æ i " 2 > K5 K5 ┆
0x3a8a0…3a8c0 6f af 67 c3 4b 35 3a 93 69 fe 02 28 06 3e 02 eb c3 ff 33 3e 02 06 02 c3 7b 35 3e 02 06 01 c3 7b ┆o g K5: i ( > 3> æ5> æ┆
0x3a8c0…3a8e0 35 af 21 1f 00 c3 4b 35 cd 37 34 3a 93 69 47 eb 3e 03 c3 7b 35 3e 00 11 00 00 06 01 c3 7b 35 2a ┆5 ! K5 74: iG > æ5> æ5*┆
0x3a8e0…3a900 d5 32 e5 2a d3 32 e5 cd 37 34 3a 93 69 b7 28 0f cd 40 34 47 3e 03 ed 5b dd 32 cd 7b 35 18 03 cd ┆ 2 * 2 74: i ( @4G> Æ 2 æ5 ┆
0x3a900…3a920 c9 35 2a d3 32 cd f9 32 e1 22 d3 32 e1 22 d5 32 3e 40 cd 4a 34 c3 47 33 3a 93 69 3d 20 08 3e 00 ┆ 5* 2 2 " 2 " 2>@ J4 G3: i= > ┆
0x3a920…3a940 21 00 00 cd ff 33 2a 95 69 3e 00 cd 4b 35 cd 40 34 7e 23 5e 23 56 d5 cd 3d 35 d1 06 01 c3 7b 35 ┆! 3* i> K5 @4ü#^#V =5 æ5┆
0x3a940…3a960 3e 69 c3 4a 34 3e 93 c3 4a 34 3e 91 c3 4a 34 7b eb fe 1d 28 04 fe 1e 20 06 af e5 cd 4b 35 e1 7d ┆>i J4> J4> J4æ ( K5 å┆
0x3a960…3a980 fe 5c 28 08 fe 92 28 04 fe 3b 20 05 e5 cd 4a 34 e1 e5 21 94 38 e5 3a 93 69 fe 1c 28 0d fe 1d 28 ┆ Ø( ( ; J4 ! 8 : i ( (┆
0x3a980…3a9a0 09 fe 1e 28 05 fe 04 28 06 c9 3e 70 c3 4a 34 3e 98 c3 4a 34 e1 7d fe 11 28 09 2a d3 32 cd f9 32 ┆ ( ( >p J4> J4 å ( * 2 2┆
0x3a9a0…3a9c0 cd 27 34 ed 5b 93 69 7b 21 1a 39 01 13 00 cd ce 5d 19 39 09 39 09 39 fa 38 f5 38 f2 38 f2 38 f2 ┆ '4 Æ iæ! 9 Å 9 9 9 8 8 8 8 ┆
0x3a9c0…3a9e0 38 f2 38 ea 38 e5 38 e5 38 e5 38 dd 38 dd 38 dd 38 dd 38 d9 38 d9 38 d9 38 4b c3 40 0a 0e 3a cd ┆8 8 8 8 8 8 8 8 8 8 8 8 8K @ : ┆
0x3a9e0…3aa00 40 0a c3 47 33 0e 2c c3 40 0a 0e 3b cd 40 0a c3 47 33 c3 4a 34 3e a8 c3 4a 34 3e a9 cd 4a 34 cd ┆@ G3 , @ ; @ G3 J4> J4> J4 ┆
0x3aa00…3ac00 (26, 0, 8) DataBlock {»EOVERM.MID«}
[…0x2…]
0x3b000…3b020 (26, 1, 2) 23 23 e5 cd 57 09 d1 cd b9 3e c3 ab 41 fe 09 28 05 fe 08 c2 3e 40 11 02 00 3e 00 cd 7f 41 cd 84 ┆## W > A ( >@ > A ┆
0x3b020…3b040 0a c5 cd 84 0a 79 d1 57 b7 3e 6c fa c5 57 d5 3e 00 cd 7f 41 c1 c5 03 03 cd 26 3b c1 c5 2a 82 68 ┆ y W >l W > A &; * h┆
0x3b040…3b060 23 23 e5 78 b1 28 03 cd 57 09 e1 d1 cd e4 3e c3 ab 41 21 0e 69 22 58 3a e5 cd 54 5d e1 09 36 0d ┆## x ( W > A! i"X: TÅ 6 ┆
0x3b060…3b080 4f cd ae 41 c3 ab 41 2a 66 3a e5 cd d6 3a cd 80 3b c1 c5 03 03 03 03 cd 26 3b c1 c5 2a 82 68 23 ┆O A A*f: : ; &; * h#┆
0x3b080…3b0a0 23 23 23 cd 57 09 c5 cd ab 41 c1 e1 b7 ed 42 eb cd 8d 3d d1 c3 95 3b cd 6d 3b 4e 23 46 21 93 69 ┆### W A B = ; m;N#F! i┆
0x3b0a0…3b0c0 cd 8a 3c 2a 93 69 cd 7e 3e fe 05 20 10 ed 5b 8f 69 cd b0 3c ed 5b 93 69 3e 0b c3 aa 3c fe 09 28 ┆ <* i ü> Æ i < Æ i> < (┆
0x3b0c0…3b0e0 04 fe 0a 20 0d cd ff 40 2a 93 69 ed 4b 8f 69 c3 85 43 fe 00 ca 39 40 fe 02 20 0a 3a 95 69 fe ff ┆ @* i K i C 9@ : i ┆
0x3b0e0…3b100 c2 3e 40 18 0d fe 04 c2 3e 40 3a 95 69 fe fe c2 3e 40 eb 5e 23 56 23 4e 23 46 eb 3a 8f 69 f5 be ┆ >@ >@: i >@ ^#V#N#F : i ┆
0x3b100…3b120 3e 78 c2 c5 57 23 eb 60 69 f1 f5 e5 d5 cd dc 3a 42 4b e1 cd 8c 3e eb e1 09 f1 3d 20 ed eb 3a 95 ┆>x W# `i :BK > = : ┆
0x3b120…3b140 69 fe fe 3e 09 ca aa 3c 01 06 00 cd a4 3c 3e 03 c3 ad 3c cd d6 3a cd b0 3c d1 3e 0e c3 aa 3c 2a ┆i > < <> < : < > <*┆
0x3b140…3b160 65 68 23 23 4e 23 46 23 22 65 68 21 93 69 cd 8a 3c 2a 93 69 7e 23 b6 3e 6f c2 c5 57 ed 5b 8f 69 ┆eh##N#F#"eh! i <* iü# >o W Æ i┆
0x3b160…3b180 01 06 00 cd 7b 3a 2a 7a 68 b7 ed 42 e5 22 46 3a 21 0e 00 09 44 4d c5 cd 26 3b 01 08 00 3a 91 69 ┆ æ:*zh B "F:! DM &; : i┆
0x3b180…3b1a0 fe 04 20 3e cd dc 3a 1b 7a 13 b7 3e 65 fa c5 57 3a 8f 69 b7 20 22 c1 c1 21 0d 00 19 d5 44 4d cd ┆ > : z >e W: i " ! DM ┆
0x3b1a0…3b1c0 26 3b d1 2a 7a 68 b7 ed 52 2b 36 00 2b 36 00 2b 72 2b 73 3e 03 c3 59 4f ed 53 48 3a 21 04 00 19 ┆&; *zh R+6 +6 +r+s> YO SH:! ┆
0x3b1c0…3b1e0 44 4d 3a 8f 69 f5 c5 2a 82 68 3e 0e be 20 0f 2b 56 2b 5e 2b 46 2b 4e 2b 2b 22 82 68 18 06 cd dc ┆DM: i * h> +V+^+F+N++" h ┆
0x3b1e0…3b200 3a 01 01 00 eb b7 ed 42 3e 78 fa c5 57 09 eb 2a 46 3a 73 23 72 23 71 23 70 23 eb b7 ed 42 23 eb ┆: B>x W *F:s#r#q#p# B# ┆
0x3b200…3b400 (26, 1, 3) DataBlock {»EOVERM.MID«}
0x3b400…3b420 (26, 1, 4) c1 71 23 70 23 22 46 3a cd 7b 3a 7c b5 3e 6c c2 c5 57 f1 3d 20 af 3a 8f 69 e1 d1 1b 12 d5 c5 09 ┆ q#p#"F: æ:ø >l W = : i ┆
0x3b420…3b440 44 4d cd 26 3b c1 e1 e5 2b 0b 54 5d 1b 36 00 ed b8 3a 91 69 fe 03 3e 02 28 16 e5 af ed 4b 48 3a ┆DM &; + TÅ 6 : i > ( KH:┆
0x3b440…3b460 71 23 70 23 23 23 09 be 28 f2 e1 54 5d 1b 3e 04 eb 72 2b 73 2b d1 72 2b 73 22 7a 68 44 4d ed 5b ┆q#p### ( TÅ > r+s+ r+s"zhDM Æ┆
0x3b460…3b480 93 69 c3 9d 3f 21 64 68 7e 36 00 b7 ca 8f 51 01 0e 00 21 8c 51 e5 21 7e 51 cd ce 5d c3 57 6c 51 ┆ i ?!dhü6 Q ! Q !üQ Å WlQ┆
0x3b480…3b4a0 a4 50 9e 50 79 50 4a 50 19 50 0c 50 f1 4f ee 4f e4 4f c7 4f b2 4f a5 4f 9a 4f cd dc 3a 7a b7 f8 ┆ P PyPJP P P O O O O O O O :z ┆
0x3b4a0…3b4c0 ed 53 dc 68 c9 cd dc 3a 7a b7 f8 ed 53 da 68 c3 ad 42 cd d1 3a eb 01 0b 00 cd 78 3b eb 11 cf 68 ┆ S h :z S h B : x; h┆
0x3b4c0…3b4e0 ed 43 cd 68 c3 db 5d cd ac 3b cd 27 07 cd 92 3a 21 ad 68 e5 cd 90 42 cd ae 41 11 de 68 01 20 00 ┆ C h Å ; ' :! h B A h ┆
0x3b4e0…3b500 e1 ed b0 c9 cd f0 3d 4b cd c3 06 c3 ae 41 c3 f0 3d cd dc 3a 7a 42 4b b7 fa fe 4f b3 20 05 3e cc ┆ =K A = :zBK O > ┆
0x3b500…3b520 c3 c5 57 21 ad 68 cd dd 05 c3 ae 41 21 ad 68 cd 69 06 3e 0e b9 c4 ae 41 c9 21 68 3a 36 20 54 5d ┆ W! h A! h i > A !h:6 TÅ┆
0x3b520…3b540 13 01 0c 00 ed b0 cd d1 3a e5 21 0c 00 b7 ed 52 30 03 11 0c 00 42 4b 11 68 3a e1 cd 12 3b 21 ad ┆ : ! R0 BK h: ;! ┆
0x3b540…3b560 68 11 68 3a cd 81 06 c3 ae 41 3a 74 3a cd ad 3a cd ae 41 2a 75 3a dd 75 33 dd 74 34 dd 36 35 00 ┆h h: A:t: : A*u: u3 t4 65 ┆
0x3b560…3b580 2a 66 3a 2b 11 19 6a 19 36 00 dd 7e 2c fe 00 c8 dd 36 33 00 dd 36 34 00 c9 21 1e 6a 01 05 00 c5 ┆*f:+ j 6 ü, 63 64 ! j ┆
0x3b580…3b5a0 23 23 e5 4e 23 46 c5 dd e1 cd 92 50 e1 c1 0d 20 ee c9 cd 27 07 dd 36 33 00 dd 36 34 00 c9 cd 92 ┆## N#F P ' 63 64 ┆
0x3b5a0…3b5c0 50 c3 ab 41 2a 65 68 2b 2b 3e 2d be 21 61 51 20 0d cd dc 3a 7b e6 07 c6 30 21 5f 51 77 2b 01 ad ┆P A*eh++>- !aQ :æ 0!_Qw+ ┆
0x3b5c0…3b5e0 68 11 0a 00 cd 26 5d cd a5 3b dd e5 dd 2a 2a 6a 21 ad 68 3e 00 cd b6 07 cd ae 41 21 0e 69 01 20 ┆h &Å ; **j! h> A! i ┆
0x3b5e0…3b600 00 cd 57 09 dd 7e 2e b7 20 3a cd dc 41 20 33 21 0e 69 3a 97 69 be 20 e3 23 e5 06 0b 7e e6 7f 77 ┆ W ü. : A 3! i: i # ü w┆
0x3b600…3b800 (26, 1, 5) DataBlock {»EOVERM.MID«}
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…3be80 (26, 1, 9) DataBlock {»EOVERM.MID«}
0x3be80…3bea0 13 05 c2 42 c8 c9 21 80 00 81 0b 32 2a 55 2f 28 42 2a 52 29 5e 32 b7 c8 3d 21 ef cb be c8 c3 bd ┆ B ! 2*U/(B*R)^2 =! ┆
0x3bea0…3bec0 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 7e fe 00 48 5e ┆ : =! : ^ T ! ü H^┆
0x3bec0…3bee0 32 2f 28 43 2d 48 29 c2 88 c8 1e 00 d5 cd e9 c4 cc ea c7 ca 1b c9 3a ee cb 0f 0f 0f e6 60 4f 3e ┆2/(C-H) : `O>┆
0x3bee0…3bf00 0a cd 4b c8 17 da 0f c9 d1 7b 1c d5 e6 03 f5 c2 00 2d 4c 4f 47 28 4b 29 c5 c1 c6 41 cd 92 c4 3e ┆ K æ -LOG(K) A >┆
0x3bf00…3bf20 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 20 c2 f9 c8 f1 ┆: >: x K ┆
0x3bf20…3bf40 f5 fe 03 00 f7 c8 3e 09 cd 4b c8 e6 7f fe 20 ca 0e c9 3e 20 cd 92 c4 04 78 fe 0c d2 0e c9 fe 09 ┆ > K > x ┆
0x3bf40…3bf60 c2 d9 c8 cd a2 c4 c3 d9 c8 f1 cd c2 c5 c2 1b c9 cd e4 c4 c3 98 c8 00 c3 86 cb cd 5e c6 fe 0b c2 ┆ ^ ┆
0x3bf60…3bf80 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 88 c4 cd 54 c8 ┆B R 9 ! 5 #ü Y #" T ┆
0x3bf80…3bfa0 11 cd cb cd ef c4 3c cc ea 00 c3 86 cb 41 4c 4c 20 28 59 2f 4e 29 3f 00 cd 5e c6 c2 09 c6 cd 54 ┆ < ALL (Y/N)? ^ T┆
0x3bfa0…3bfc0 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 c4 00 c2 a0 c9 ┆ ! 6 ! ü ┆
0x3bfc0…3bfe0 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 3d ca 86 cb cd ┆ w4! Y ü t = ┆
0x3bfe0…3c000 d9 c7 cd 66 c8 c3 09 c6 cd f8 c7 f5 cd 5e c6 00 09 c6 cd 54 c8 11 cd cb d5 cd ef c4 d1 cd 09 c5 ┆ f ^ T ┆
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«}
[…0x1…]
0x3e680…3e6a0 13 05 c2 42 c8 c9 21 80 00 81 19 28 4d 31 2f 54 31 45 46 54 2b 4d 32 2f 54 32 45 46 54 29 2a 30 ┆ B ! (M1/T1EFT+M2/T2EFT)*0┆
0x3e6a0…3e6c0 2e 30 34 39 b7 c8 3d 21 ef cb be c8 3a ef cb c3 bd c4 cd 5e c6 cd 54 c8 21 ce cb 7e fe 14 28 50 ┆.049 =! : ^ T ! ü (P┆
0x3e6c0…3e6e0 45 46 54 2d 50 46 5c 52 29 2f 50 46 5c 52 2a 31 30 30 c7 ca 1b c9 3a ee cb 0f 0f 0f e6 60 4f 3e ┆EFT-PFØR)/PFØR*100 : `O>┆
0x3e6e0…3e700 0a cd 4b c8 17 da 0f c9 d1 7b 1c d5 e6 03 f5 c2 2f 30 2e 35 2a 30 2e 30 34 39 5e 32 2a 28 4d 31 ┆ K æ /0.5*0.049^2*(M1┆
0x3e700…3e720 2f 28 54 31 46 5c 52 2a 54 31 46 5c 52 29 2b 4d 32 2f 28 54 32 46 5c 52 2a 54 32 46 5c 52 29 29 ┆/(T1FØR*T1FØR)+M2/(T2FØR*T2FØR))┆
0x3e720…3e740 f5 fe 03 2f 30 2e 35 2a 30 2e 30 34 39 5e 32 2a 28 4d 31 2f 28 54 31 45 46 54 2a 54 31 45 46 54 ┆ /0.5*0.049^2*(M1/(T1EFT*T1EFT┆
0x3e740…3e760 29 2b 4d 32 2f 28 54 32 45 46 54 2a 54 32 45 46 54 29 29 c3 98 c8 14 28 45 45 46 54 2d 45 46 5c ┆)+M2/(T2EFT*T2EFT)) (EEFT-EFØ┆
0x3e760…3e780 52 29 2f 45 46 5c 52 2a 31 30 30 21 07 c4 35 c2 82 c7 23 7e fe 59 c2 82 c7 23 22 88 c4 cd 54 c8 ┆R)/EFØR*100! 5 #ü Y #" T ┆
0x3e780…3e7a0 11 cd cb cd ef c4 3c cc ea 00 c3 86 cb 41 4c 4c 20 28 59 2f 4e 29 3f 00 cd 5e c6 c2 09 c6 cd 54 ┆ < ALL (Y/N)? ^ T┆
0x3e7a0…3e7c0 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 c4 00 c2 a0 c9 ┆ ! 6 ! ü ┆
0x3e7c0…3e7e0 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 3d ca 86 cb cd ┆ w4! Y ü t = ┆
0x3e7e0…3e800 d9 c7 cd 66 c8 c3 09 c6 cd f8 c7 f5 cd 5e c6 00 09 c6 cd 54 c8 11 cd cb d5 cd ef c4 d1 cd 09 c5 ┆ f ^ T ┆
0x3e800…3ea00 (28, 0, 3) DataBlock {»IMPULSEL.MID«}
0x3ea00…3ea20 (28, 0, 4) 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┆
0x3ea20…3ea40 44 3b 0d 0a 0d 0a 46 55 4e 43 54 49 4f 4e 20 56 41 4c 47 28 54 45 4b 53 54 3a 20 53 54 52 34 38 ┆D; FUNCTION VALG(TEKST: STR48┆
0x3ea40…3ea60 3b 20 4b 45 59 53 3a 20 43 48 41 52 53 45 54 3b 20 58 2c 59 3a 49 4e 54 45 47 45 52 29 3a 20 43 ┆; KEYS: CHARSET; X,Y:INTEGER): C┆
0x3ea60…3ea80 48 41 52 3b 0d 0a 56 41 52 0d 0a 20 20 09 43 48 3a 20 43 48 41 52 3b 0d 0a 42 45 47 49 4e 0d 0a ┆HAR; VAR CH: CHAR; BEGIN ┆
0x3ea80…3eaa0 09 47 4f 54 4f 58 59 28 30 2c 59 29 3b 20 43 4c 52 45 4f 4c 3b 20 47 4f 54 4f 58 59 28 58 2c 59 ┆ GOTOXY(0,Y); CLREOL; GOTOXY(X,Y┆
0x3eaa0…3eac0 29 3b 20 57 52 49 54 45 28 54 45 4b 53 54 2c 27 20 3f 20 27 29 3b 0d 0a 09 52 45 50 45 41 54 0d ┆); WRITE(TEKST,' ? '); REPEAT ┆
0x3eac0…3eae0 0a 09 09 52 45 41 44 28 4b 42 44 2c 43 48 29 3b 20 43 48 3a 3d 55 50 43 41 53 45 28 43 48 29 0d ┆ READ(KBD,CH); CH:=UPCASE(CH) ┆
0x3eae0…3eb00 0a 09 55 4e 54 49 4c 20 43 48 20 49 4e 20 4b 45 59 53 3b 0d 0a 09 57 52 49 54 45 28 43 48 29 3b ┆ UNTIL CH IN KEYS; WRITE(CH);┆
0x3eb00…3eb20 0d 0a 09 56 41 4c 47 3a 3d 43 48 0d 0a 45 4e 44 3b 09 7b 20 66 75 6e 63 74 69 6f 6e 20 76 61 6c ┆ VALG:=CH END; æ function val┆
0x3eb20…3eb40 67 20 7d 0d 0a 0d 0a 46 55 4e 43 54 49 4f 4e 20 4b 4f 52 52 45 4b 54 28 58 2c 59 3a 20 49 4e 54 ┆g å FUNCTION KORREKT(X,Y: INT┆
0x3eb40…3eb60 45 47 45 52 29 3a 20 42 4f 4f 4c 45 41 4e 3b 0d 0a 42 45 47 49 4e 0d 0a 09 4b 4f 52 52 45 4b 54 ┆EGER): BOOLEAN; BEGIN KORREKT┆
0x3eb60…3eb80 3a 3d 56 41 4c 47 28 27 20 45 72 20 64 65 74 74 65 20 72 69 67 74 69 67 74 20 3f 20 28 59 2f 4e ┆:=VALG(' Er dette rigtigt ? (Y/N┆
0x3eb80…3eba0 29 27 2c 5b 27 59 27 2c 27 4e 27 5d 2c 58 2c 59 29 3d 27 59 27 0d 0a 45 4e 44 3b 0d 0a 0d 0a 46 ┆)',Æ'Y','N'Å,X,Y)='Y' END; F┆
0x3eba0…3ebc0 55 4e 43 54 49 4f 4e 20 53 54 52 45 4e 47 28 53 3a 20 53 54 52 34 38 3b 20 58 2c 59 2c 4c 3a 20 ┆UNCTION STRENG(S: STR48; X,Y,L: ┆
0x3ebc0…3ebe0 49 4e 54 45 47 45 52 29 3a 20 53 54 52 34 38 3b 0d 0a 43 4f 4e 53 54 0d 0a 09 44 4f 54 53 3a 20 ┆INTEGER): STR48; CONST DOTS: ┆
0x3ebe0…3ec00 53 54 52 34 38 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 ┆STR48 = '.......................┆
0x3ec00…3ee00 (28, 0, 5) DataBlock {»IMPULSEL.MID«}
0x3ee00…3ee20 (28, 0, 6) 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 27 3b 0d 0a 56 41 52 ┆.........................'; VAR┆
0x3ee20…3ee40 0d 0a 09 50 3a 20 42 59 54 45 3b 0d 0a 09 43 48 3a 20 43 48 41 52 3b 0d 0a 42 45 47 49 4e 0d 0a ┆ P: BYTE; CH: CHAR; BEGIN ┆
0x3ee40…3ee60 09 47 4f 54 4f 58 59 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 ┆ GOTOXY(X,Y); WRITE(S); IF LEN┆
0x3ee60…3ee80 28 53 29 3c 4c 20 54 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 ┆(S)<L THEN WRITE(COPY(DOTS,1,L-L┆
0x3ee80…3eea0 45 4e 28 53 29 29 29 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 ┆EN(S))); P:=0; REPEAT GO┆
0x3eea0…3eec0 54 4f 58 59 28 58 2b 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 ┆TOXY(X+P,Y); READ(KBD,CH); C┆
0x3eec0…3eee0 41 53 45 20 43 48 20 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 ┆ASE CH OF @5: IF P>0 THEN BE┆
0x3eee0…3ef00 47 49 4e 0d 0a 09 09 09 49 46 20 50 3e 31 20 54 48 45 4e 20 44 45 4c 45 54 45 28 53 2c 50 2c 31 ┆GIN IF P>1 THEN DELETE(S,P,1┆
0x3ef00…3ef20 29 20 45 4c 53 45 20 44 45 4c 45 54 45 28 53 2c 31 2c 31 29 3b 0d 0a 09 09 09 57 52 49 54 45 28 ┆) ELSE DELETE(S,1,1); WRITE(┆
0x3ef20…3ef40 43 48 2c 43 4f 50 59 28 53 2c 50 2c 4c 29 2c 27 2e 27 29 3b 20 50 3a 3d 50 2d 31 20 45 4e 44 3b ┆CH,COPY(S,P,L),'.'); P:=P-1 END;┆
0x3ef40…3ef60 0d 0a 09 09 40 31 32 37 3a 20 09 42 45 47 49 4e 0d 0a 09 09 09 50 3a 3d 30 3b 20 53 3a 3d 27 27 ┆ @127: BEGIN P:=0; S:=''┆
0x3ef60…3ef80 3b 20 47 4f 54 4f 58 59 28 58 2c 59 29 3b 20 57 52 49 54 45 28 43 4f 50 59 28 44 4f 54 53 2c 31 ┆; GOTOXY(X,Y); WRITE(COPY(DOTS,1┆
0x3ef80…3efa0 2c 4c 29 29 0d 0a 09 09 09 45 4e 44 3b 0d 0a 09 09 40 38 3a 20 09 49 46 20 50 3e 30 20 54 48 45 ┆,L)) END; @8: IF P>0 THE┆
0x3efa0…3efc0 4e 20 50 3a 3d 50 2d 31 3b 0d 0a 09 09 40 32 34 3a 20 09 49 46 20 50 3c 4c 45 4e 28 53 29 20 54 ┆N P:=P-1; @24: IF P<LEN(S) T┆
0x3efc0…3efe0 48 45 4e 20 50 3a 3d 50 2b 31 3b 0d 0a 09 09 40 32 36 3a 20 09 50 3a 3d 30 3b 0d 0a 09 09 40 31 ┆HEN P:=P+1; @26: P:=0; @1┆
0x3efe0…3f000 30 3a 20 09 50 3a 3d 4c 45 4e 28 53 29 3b 0d 0a 09 09 40 33 32 2e 2e 40 31 32 36 3a 42 45 47 49 ┆0: P:=LEN(S); @32..@126:BEGI┆
0x3f000…3f200 (28, 0, 7) DataBlock {»IMPULSEL.MID«}
0x3f200…3f400 (28, 0, 8) DataBlock {»IMPULSUE.MID«}
0x3f400…3f600 (28, 0, 9) DataBlock {»IMPULSEL.MID«}
0x3f600…3f800 (28, 1, 1) DataBlock {»IMPULSUE.MID«}
[…0x7…]
0x40480…404a0 13 05 c2 42 c8 c9 21 80 00 81 12 28 4d 31 2b 4d 32 29 2a 30 2e 30 34 39 2f 54 45 46 54 29 2a 30 ┆ B ! (M1+M2)*0.049/TEFT)*0┆
0x404a0…404c0 2e 30 34 39 b7 c8 3d 21 ef cb be c8 3a ef cb c3 bd c4 cd 5e c6 cd 54 c8 21 ce cb 7e fe 14 28 50 ┆.049 =! : ^ T ! ü (P┆
0x404c0…404e0 45 46 54 2d 50 46 5c 52 29 2f 50 46 5c 52 2a 31 30 30 c7 ca 1b c9 3a ee cb 0f 0f 0f e6 60 4f 3e ┆EFT-PFØR)/PFØR*100 : `O>┆
0x404e0…40500 0a cd 4b c8 17 da 0f c9 d1 7b 1c d5 e6 03 f5 c2 15 30 2e 35 2a 4d 31 2a 28 30 2e 30 34 39 2f 54 ┆ K æ 0.5*M1*(0.049/T┆
0x40500…40520 46 5c 52 29 5e 32 52 2a 54 31 46 5c 52 29 2b 4d 32 2f 28 54 32 46 5c 52 2a 54 32 46 5c 52 29 29 ┆FØR)^2R*T1FØR)+M2/(T2FØR*T2FØR))┆
0x40520…40540 f5 fe 03 1b 30 2e 35 2a 28 4d 31 2b 4d 32 29 2a 28 30 2e 30 34 39 30 2f 54 45 46 54 29 5e 32 54 ┆ 0.5*(M1+M2)*(0.0490/TEFT)^2T┆
0x40540…40560 29 2b 4d 32 2f 28 54 32 45 46 54 2a 54 32 45 46 54 29 29 c3 98 c8 0b 2d 4d 32 2f 28 4d 31 2b 4d ┆)+M2/(T2EFT*T2EFT)) -M2/(M1+M┆
0x40560…40580 32 29 2f 45 46 5c 52 2a 31 30 30 21 07 c4 35 c2 82 c7 23 7e fe 59 c2 82 c7 23 22 88 c4 cd 54 c8 ┆2)/EFØR*100! 5 #ü Y #" T ┆
0x40580…405a0 11 cd cb cd ef c4 3c cc ea 10 28 45 45 46 54 2d 45 46 5c 52 29 2f 45 46 5c 52 c6 c2 09 c6 cd 54 ┆ < (EEFT-EFØR)/EFØR T┆
0x405a0…405c0 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 c4 00 c2 a0 c9 ┆ ! 6 ! ü ┆
0x405c0…405e0 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 3d ca 86 cb cd ┆ w4! Y ü t = ┆
0x405e0…40600 d9 c7 cd 66 c8 c3 09 c6 cd f8 c7 f5 cd 5e c6 00 09 c6 cd 54 c8 11 cd cb d5 cd ef c4 d1 cd 09 c5 ┆ f ^ T ┆
0x40600…40800 (28, 1, 9) DataBlock {»IMPULSUE.MID«}
0x40800…40820 (29, 0, 1) 3a 34 2c 42 53 54 4b 29 3b 20 53 54 52 28 42 2e 50 52 49 53 4b 2b 42 2e 50 52 49 53 4f 2f 31 30 ┆:4,BSTK); STR(B.PRISK+B.PRISO/10┆
0x40820…40840 30 3a 33 3a 32 2c 42 50 52 49 53 29 3b 0d 0a 09 4c 49 4e 3a 3d 20 41 46 20 2b 20 42 53 54 4b 20 ┆0:3:2,BPRIS); LIN:= AF + BSTK ┆
0x40840…40860 2b 20 27 20 73 74 6b 2e 20 27 20 2b 20 42 2e 46 4e 41 56 4e 20 2b 20 27 20 27 20 2b 20 42 46 4f ┆+ ' stk. ' + B.FNAVN + ' ' + BFO┆
0x40860…40880 52 20 2b 20 42 2e 41 4e 41 56 4e 3b 0d 0a 09 49 46 20 49 41 4c 54 20 3c 3e 20 30 20 54 48 45 4e ┆R + B.ANAVN; IF IALT <> 0 THEN┆
0x40880…408a0 20 4c 49 4e 3a 3d 20 4c 49 4e 20 2b 20 27 20 60 20 27 20 2b 20 42 50 52 49 53 20 2b 20 27 20 4b ┆ LIN:= LIN + ' ` ' + BPRIS + ' K┆
0x408a0…408c0 72 2e 27 3b 0d 0a 09 57 52 49 54 45 28 4c 49 4e 2c 27 27 3a 36 30 2d 4c 45 4e 28 4c 49 4e 29 2c ┆r.'; WRITE(LIN,'':60-LEN(LIN),┆
0x408c0…408e0 49 41 4c 54 3a 31 30 3a 32 29 3b 0d 0a 09 49 46 20 53 3d 27 44 27 20 54 48 45 4e 20 42 2e 46 4e ┆IALT:10:2); IF S='D' THEN B.FN┆
0x408e0…40900 41 56 4e 3a 3d 27 20 27 3b 0d 0a 09 57 49 54 48 20 46 2e 46 41 4b 4c 49 4e 49 45 5b 46 4e 52 5d ┆AVN:=' '; WITH F.FAKLINIEÆFNRÅ┆
0x40900…40920 20 44 4f 20 42 45 47 49 4e 0d 0a 09 09 53 54 4b 3a 3d 20 53 54 59 4b 3b 0d 0a 09 09 4e 41 56 4e ┆ DO BEGIN STK:= STYK; NAVN┆
0x40920…40940 3a 3d 20 43 4f 50 59 28 42 2e 41 4e 41 56 4e 2c 31 2c 33 29 20 2b 20 43 4f 50 59 28 54 4f 4d 2c ┆:= COPY(B.ANAVN,1,3) + COPY(TOM,┆
0x40940…40960 31 2c 33 2d 4c 45 4e 28 42 2e 41 4e 41 56 4e 29 29 0d 0a 09 09 09 2b 20 43 4f 50 59 28 42 2e 46 ┆1,3-LEN(B.ANAVN)) + COPY(B.F┆
0x40960…40980 4e 41 56 4e 2c 31 2c 33 29 3b 0d 0a 09 09 50 52 49 53 4b 3a 3d 20 42 2e 50 52 49 53 4b 3b 20 50 ┆NAVN,1,3); PRISK:= B.PRISK; P┆
0x40980…409a0 52 49 53 4f 3a 3d 20 42 2e 50 52 49 53 4f 0d 0a 09 45 4e 44 0d 0a 65 6e 64 3b 09 7b 20 70 72 6f ┆RISO:= B.PRISO END end; æ pro┆
0x409a0…409c0 63 65 64 75 72 65 20 73 6b 72 69 76 6c 69 6e 69 65 20 7d 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 ┆cedure skrivlinie å PROCEDURE┆
0x409c0…409e0 20 42 45 52 45 47 4e 28 56 41 52 20 42 3a 20 42 4f 47 3b 20 56 41 52 20 4b 52 4f 4e 45 52 2c 20 ┆ BEREGN(VAR B: BOG; VAR KRONER, ┆
0x409e0…40a00 4d 41 53 53 45 3a 20 52 45 41 4c 29 3b 0d 0a 42 45 47 49 4e 0d 0a 09 57 49 54 48 20 42 20 44 4f ┆MASSE: REAL); BEGIN WITH B DO┆
0x40a00…40c00 (29, 0, 2) DataBlock {»ENERGIBE.MID«}
0x40c00…40c20 (29, 0, 3) 20 42 45 47 49 4e 0d 0a 09 09 4b 52 4f 4e 45 52 3a 3d 20 4b 52 4f 4e 45 52 20 2b 20 28 50 52 49 ┆ BEGIN KRONER:= KRONER + (PRI┆
0x40c20…40c40 53 4b 20 2b 20 50 52 49 53 4f 2f 31 30 30 29 2a 53 54 59 4b 3b 0d 0a 09 09 4d 41 53 53 45 3a 3d ┆SK + PRISO/100)*STYK; MASSE:=┆
0x40c40…40c60 20 4d 41 53 53 45 20 2b 20 56 41 47 54 2f 31 30 30 30 2a 53 54 59 4b 3b 0d 0a 09 09 4c 41 47 45 ┆ MASSE + VAGT/1000*STYK; LAGE┆
0x40c60…40c80 52 3a 3d 20 4c 41 47 45 52 20 2d 20 53 54 59 4b 3b 0d 0a 09 09 48 41 4c 56 41 52 3a 3d 20 48 41 ┆R:= LAGER - STYK; HALVAR:= HA┆
0x40c80…40ca0 4c 56 41 52 20 2b 20 53 54 59 4b 3b 0d 0a 09 09 53 4f 4c 47 54 3a 3d 20 53 4f 4c 47 54 20 2b 20 ┆LVAR + STYK; SOLGT:= SOLGT + ┆
0x40ca0…40cc0 53 54 59 4b 0d 0a 09 45 4e 44 0d 0a 45 4e 44 3b 09 7b 20 70 72 6f 63 65 64 75 72 65 20 62 65 72 ┆STYK END END; æ procedure ber┆
0x40cc0…40ce0 65 67 6e 20 7d 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 20 4d 6f 6d 73 50 6f 72 74 6f 54 6f 74 61 ┆egn å PROCEDURE MomsPortoTota┆
0x40ce0…40d00 6c 3b 0d 0a 56 41 52 09 49 3a 20 42 59 54 45 3b 0d 0a 42 45 47 49 4e 0d 0a 09 57 49 54 48 20 46 ┆l; VAR I: BYTE; BEGIN WITH F┆
0x40d00…40d20 2e 46 41 4b 54 4f 54 41 4c 20 44 4f 20 42 45 47 49 4e 0d 0a 09 09 54 4f 54 41 4c 3a 3d 4b 52 4f ┆.FAKTOTAL DO BEGIN TOTAL:=KRO┆
0x40d20…40d40 4e 45 52 3b 0d 0a 09 09 4d 4f 4d 53 3a 3d 20 54 4f 54 41 4c 2a 4d 4f 4d 53 53 41 54 53 2a 4d 4f ┆NER; MOMS:= TOTAL*MOMSSATS*MO┆
0x40d40…40d60 4d 53 4b 4f 44 45 3b 0d 0a 09 09 52 45 50 45 41 54 0d 0a 09 09 09 47 4f 54 4f 58 59 28 32 35 2c ┆MSKODE; REPEAT GOTOXY(25,┆
0x40d60…40d80 32 31 29 3b 20 57 52 49 54 45 28 27 4d 61 73 73 65 20 2f 20 6b 67 20 2e 2e 2e 2e 2e 3a 27 2c 4d ┆21); WRITE('Masse / kg .....:',M┆
0x40d80…40da0 41 53 53 45 3a 36 3a 32 29 3b 0d 0a 09 09 09 47 4f 54 4f 58 59 28 32 35 2c 32 32 29 3b 20 57 52 ┆ASSE:6:2); GOTOXY(25,22); WR┆
0x40da0…40dc0 49 54 45 28 27 50 6f 72 74 6f 20 2f 20 6b 72 20 2e 2e 2e 2e 2e 3f 20 27 29 3b 52 45 41 44 28 50 ┆ITE('Porto / kr .....? ');READ(P┆
0x40dc0…40de0 4f 52 54 4f 29 3b 0d 0a 09 09 09 47 4f 54 4f 58 59 28 32 35 2c 32 33 29 3b 20 57 52 49 54 45 28 ┆ORTO); GOTOXY(25,23); WRITE(┆
0x40de0…40e00 27 41 6e 74 61 6c 20 61 64 72 65 73 73 65 72 20 20 3f 20 27 29 3b 20 52 45 41 44 28 61 6e 74 61 ┆'Antal adresser ? '); READ(anta┆
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…42280 (29, 1, 5) DataBlock {»ENERGIBE.MID«}
0x42280…422a0 13 05 c2 42 c8 c9 21 80 00 81 0c 4d 4c 4f 44 2a 39 2e 38 32 2a 44 48 39 2f 54 45 46 54 29 2a 30 ┆ B ! MLOD*9.82*DH9/TEFT)*0┆
0x422a0…422c0 2e 30 34 39 b7 c8 3d 21 ef cb be c8 3a ef cb c3 bd c4 cd 5e c6 cd 54 c8 21 ce cb 7e fe 03 53 2f ┆.049 =! : ^ T ! ü S/┆
0x422c0…422e0 54 46 54 2d 50 46 5c 52 29 2f 50 46 5c 52 2a 31 30 30 c7 ca 1b c9 3a ee cb 0f 0f 0f e6 60 4f 3e ┆TFT-PFØR)/PFØR*100 : `O>┆
0x422e0…42300 0a cd 4b c8 17 da 0f c9 d1 7b 1c d5 e6 03 f5 c2 0c 30 2e 35 2a 4d 4c 4f 44 2a 56 5e 32 39 2f 54 ┆ K æ 0.5*MLOD*V^29/T┆
0x42300…42320 46 5c 52 29 5e 32 52 2a 54 31 46 5c 52 29 2b 4d 32 2f 28 54 32 46 5c 52 2a 54 32 46 5c 52 29 29 ┆FØR)^2R*T1FØR)+M2/(T2FØR*T2FØR))┆
0x42320…42340 f5 fe 03 0b 44 45 4b 49 4e 2b 44 45 50 4f 54 2a 31 30 30 30 34 39 30 2f 54 45 46 54 29 5e 32 54 ┆ DEKIN+DEPOT*1000490/TEFT)^2T┆
0x42340…42360 29 2b 4d 32 2f 28 54 32 45 46 54 2a 54 32 45 46 54 29 29 c3 98 c8 0f 44 45 4d 45 4b 2f 44 45 50 ┆)+M2/(T2EFT*T2EFT)) DEMEK/DEP┆
0x42360…42380 4f 54 2a 31 30 30 52 2a 31 30 30 21 07 c4 35 c2 82 c7 23 7e fe 59 c2 82 c7 23 22 88 c4 cd 54 c8 ┆OT*100R*100! 5 #ü Y #" T ┆
0x42380…423a0 11 cd cb cd ef c4 3c cc ea 00 28 45 45 46 54 2d 45 46 5c 52 29 2f 45 46 5c 52 c6 c2 09 c6 cd 54 ┆ < (EEFT-EFØR)/EFØR T┆
0x423a0…423c0 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 c4 00 c2 a0 c9 ┆ ! 6 ! ü ┆
0x423c0…423e0 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 3d ca 86 cb cd ┆ w4! Y ü t = ┆
0x423e0…42400 d9 c7 cd 66 c8 c3 09 c6 cd f8 c7 f5 cd 5e c6 00 09 c6 cd 54 c8 11 cd cb d5 cd ef c4 d1 cd 09 c5 ┆ f ^ T ┆
0x42400…42600 (29, 1, 6) DataBlock {»FRITFALD.MID«}
0x42600…42620 (29, 1, 7) 72 74 6f 27 3a 38 29 3b 0d 0a 09 57 52 49 54 45 4c 4e 28 4c 53 54 2c 27 64 61 74 6f 27 2c 27 6e ┆rto':8); WRITELN(LST,'dato','n┆
0x42620…42640 75 6d 6d 65 72 27 3a 31 32 2c 27 6e 75 6d 6d 65 72 27 3a 33 37 2c 27 6b 67 27 3a 38 2c 27 6b 72 ┆ummer':12,'nummer':37,'kg':8,'kr┆
0x42640…42660 27 3a 38 29 3b 0d 0a 09 57 52 49 54 45 4c 4e 28 4c 53 54 29 3b 0d 0a 09 57 52 49 54 45 4c 4e 28 ┆':8); WRITELN(LST); WRITELN(┆
0x42660…42680 4c 53 54 2c 27 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 ┆LST,'===========================┆
0x42680…426a0 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 27 2c 0d 0a 09 09 09 27 3d ┆=======================', '=┆
0x426a0…426c0 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 27 29 3b 0d 0a 09 57 52 49 54 45 ┆====================='); WRITE┆
0x426c0…426e0 4c 4e 28 4c 53 54 29 3b 0d 0a 45 4e 44 3b 09 7b 20 6f 76 65 72 73 6b 72 69 66 74 20 7d 0d 0a 0d ┆LN(LST); END; æ overskrift å ┆
0x426e0…42700 0a 50 52 4f 43 45 44 55 52 45 20 55 4e 44 45 52 53 4b 52 49 46 54 3b 0d 0a 42 45 47 49 4e 0d 0a ┆ PROCEDURE UNDERSKRIFT; BEGIN ┆
0x42700…42720 09 57 52 49 54 45 4c 4e 28 4c 53 54 2c 40 32 38 2c 27 45 72 20 64 65 72 20 69 6b 6b 65 20 70 6c ┆ WRITELN(LST,@28,'Er der ikke pl┆
0x42720…42740 61 64 73 20 74 69 6c 20 61 6c 6c 65 20 72 65 67 69 73 74 65 72 6e 75 6d 72 65 6e 65 20 69 27 2c ┆ads til alle registernumrene i',┆
0x42740…42760 0d 0a 09 27 20 73 6b 65 6d 61 65 74 2c 20 61 6e 66 7c 72 65 73 20 72 65 73 74 65 6e 20 70 61 61 ┆ ' skemaet, anføres resten paa┆
0x42760…42780 20 62 61 67 73 69 64 65 6e 27 29 3b 0d 0a 09 57 52 49 54 45 4c 4e 28 4c 53 54 29 3b 0d 0a 09 57 ┆ bagsiden'); WRITELN(LST); W┆
0x42780…427a0 52 49 54 45 4c 4e 28 4c 53 54 2c 27 46 72 2e 2d 73 75 6e 64 20 64 65 6e 20 5f 5f 5f 2f 5f 5f 5f ┆RITELN(LST,'Fr.-sund den ___/___┆
0x427a0…427c0 2d 31 39 5f 5f 5f 2c 20 65 6b 73 70 65 64 65 72 65 74 20 61 66 20 3a 20 27 2c 0d 0a 09 09 27 5f ┆-19___, ekspederet af : ', '_┆
0x427c0…427e0 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 27 2c 40 33 30 2c ┆__________________________',@30,┆
0x427e0…42800 40 32 34 2c 40 32 37 2b 27 32 27 2c 40 31 32 29 3b 0d 0a 09 49 3a 3d 20 30 3b 0d 0a 45 4e 44 3b ┆@24,@27+'2',@12); I:= 0; END;┆
0x42800…42a00 (29, 1, 8) DataBlock {»FRITFALD.MID«}
0x42a00…42a20 (29, 1, 9) 09 7b 20 75 6e 64 65 72 73 6b 72 69 66 74 20 7d 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 20 53 4b ┆ æ underskrift å PROCEDURE SK┆
0x42a20…42a40 52 49 56 3b 0d 0a 43 4f 4e 53 54 09 53 54 52 45 47 3a 20 53 54 52 33 30 20 3d 20 27 49 5f 5f 5f ┆RIV; CONST STREG: STR30 = 'I___┆
0x42a40…42a60 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 49 5f 5f 5f 5f 5f 5f 5f 49 5f 5f 5f 5f 5f 5f 27 3b 0d 0a 42 45 ┆___________I_______I______'; BE┆
0x42a60…42a80 47 49 4e 0d 0a 09 57 49 54 48 20 46 2e 46 41 4b 41 44 52 45 53 53 45 2c 20 46 2e 46 41 4b 44 41 ┆GIN WITH F.FAKADRESSE, F.FAKDA┆
0x42a80…42aa0 54 4f 20 44 4f 20 42 45 47 49 4e 0d 0a 09 09 57 52 49 54 45 4c 4e 28 4c 53 54 2c 44 41 47 3a 32 ┆TO DO BEGIN WRITELN(LST,DAG:2┆
0x42aa0…42ac0 2c 27 2f 27 2c 4d 41 4e 45 44 3a 32 2c 27 2d 31 39 27 2c 41 52 2c 46 2e 46 41 4b 4e 52 3a 36 2c ┆,'/',MANED:2,'-19',AR,F.FAKNR:6,┆
0x42ac0…42ae0 0d 0a 09 09 09 40 32 38 2c 40 39 2c 41 44 52 31 2c 27 27 3a 33 31 2d 4c 45 4e 28 41 44 52 31 29 ┆ @28,@9,ADR1,'':31-LEN(ADR1)┆
0x42ae0…42b00 2c 53 54 52 45 47 29 3b 0d 0a 09 09 57 52 49 54 45 4c 4e 28 4c 53 54 2c 40 39 2c 41 44 52 32 2c ┆,STREG); WRITELN(LST,@9,ADR2,┆
0x42b00…42b20 27 27 3a 33 31 2d 4c 45 4e 28 41 44 52 32 29 2c 53 54 52 45 47 29 3b 0d 0a 09 09 57 52 49 54 45 ┆'':31-LEN(ADR2),STREG); WRITE┆
0x42b20…42b40 4c 4e 28 4c 53 54 2c 40 39 2c 41 44 52 33 2c 27 27 3a 33 31 2d 4c 45 4e 28 41 44 52 33 29 2c 53 ┆LN(LST,@9,ADR3,'':31-LEN(ADR3),S┆
0x42b40…42b60 54 52 45 47 29 3b 0d 0a 09 09 57 52 49 54 45 4c 4e 28 4c 53 54 2c 40 39 2c 41 44 52 34 2c 27 27 ┆TREG); WRITELN(LST,@9,ADR4,''┆
0x42b60…42b80 3a 33 31 2d 4c 45 4e 28 41 44 52 34 29 2c 53 54 52 45 47 29 3b 0d 0a 09 09 57 52 49 54 45 4c 4e ┆:31-LEN(ADR4),STREG); WRITELN┆
0x42b80…42ba0 28 4c 53 54 2c 40 33 30 29 0d 0a 09 45 4e 44 3b 0d 0a 45 4e 44 3b 09 7b 20 73 6b 72 69 76 20 7d ┆(LST,@30) END; END; æ skriv å┆
0x42ba0…42bc0 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 20 50 41 4b 4b 45 4c 49 53 54 45 3b 0d 0a 42 45 47 49 4e ┆ PROCEDURE PAKKELISTE; BEGIN┆
0x42bc0…42be0 0d 0a 09 53 45 45 4b 28 46 41 4b 46 2c 30 29 3b 0d 0a 09 52 45 50 45 41 54 0d 0a 09 09 72 65 61 ┆ SEEK(FAKF,0); REPEAT rea┆
0x42be0…42c00 64 28 46 41 4b 46 2c 46 29 0d 0a 09 55 4e 54 49 4c 20 28 46 2e 46 41 4b 4e 52 20 3d 20 53 54 41 ┆d(FAKF,F) UNTIL (F.FAKNR = STA┆
0x42c00…42e00 (30, 0, 1) DataBlock {»FRITFALD.MID«}
[…0x1…]
0x42e80…42ea0 13 05 c2 42 c8 c9 21 80 00 81 0b 44 53 2f 32 2b 32 2a 44 54 2f 54 b7 c8 3d 21 ef cb be c8 c3 bd ┆ B ! DS/2+2*DT/T =! ┆
0x42ea0…42ec0 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 7e fe 06 47 2a ┆ : =! : ^ T ! ü G*┆
0x42ec0…42ee0 47 52 45 4c 2d 48 29 c2 88 c8 1e 00 d5 cd e9 c4 cc ea c7 ca 1b c9 3a ee cb 0f 0f 0f e6 60 4f 3e ┆GREL-H) : `O>┆
0x42ee0…42f00 0a cd 4b c8 17 da 0f c9 d1 7b 1c d5 e6 03 f5 c2 00 2d 4c 4f 47 28 4b 29 c5 c1 c6 41 cd 92 c4 3e ┆ K æ -LOG(K) A >┆
0x42f00…42f20 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 20 c2 f9 c8 f1 ┆: >: x K ┆
0x42f20…42f40 f5 fe 03 00 f7 c8 3e 09 cd 4b c8 e6 7f fe 20 ca 0e c9 3e 20 cd 92 c4 04 78 fe 0c d2 0e c9 fe 09 ┆ > K > x ┆
0x42f40…42f60 c2 d9 c8 cd a2 c4 c3 d9 c8 f1 cd c2 c5 c2 1b c9 cd e4 c4 c3 98 c8 00 c3 86 cb cd 5e c6 fe 0b c2 ┆ ^ ┆
0x42f60…42f80 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 88 c4 cd 54 c8 ┆B R 9 ! 5 #ü Y #" T ┆
0x42f80…42fa0 11 cd cb cd ef c4 3c cc ea 00 c3 86 cb 41 4c 4c 20 28 59 2f 4e 29 3f 00 cd 5e c6 c2 09 c6 cd 54 ┆ < ALL (Y/N)? ^ T┆
0x42fa0…42fc0 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 c4 00 c2 a0 c9 ┆ ! 6 ! ü ┆
0x42fc0…42fe0 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 3d ca 86 cb cd ┆ w4! Y ü t = ┆
0x42fe0…43000 d9 c7 cd 66 c8 c3 09 c6 cd f8 c7 f5 cd 5e c6 00 09 c6 cd 54 c8 11 cd cb d5 cd ef c4 d1 cd 09 c5 ┆ f ^ T ┆
0x43000…43200 (30, 0, 3) DataBlock {»FRITFALD.MID«}
0x43200…43220 (30, 0, 4) 4e 41 4d 45 2c 31 38 2c 34 2c 31 38 29 3b 0d 0a 09 09 67 6f 74 6f 78 79 28 31 38 2c 35 29 3b 20 ┆NAME,18,4,18); gotoxy(18,5); ┆
0x43220…43240 20 72 65 61 64 28 42 2e 70 72 69 73 29 3b 0d 0a 09 09 67 6f 74 6f 78 79 28 31 38 2c 36 29 3b 20 ┆ read(B.pris); gotoxy(18,6); ┆
0x43240…43260 20 72 65 61 64 28 42 2e 76 61 67 74 29 3b 0d 0a 09 09 67 6f 74 6f 78 79 28 31 38 2c 37 29 3b 20 ┆ read(B.vagt); gotoxy(18,7); ┆
0x43260…43280 20 72 65 61 64 28 42 2e 6b 61 73 73 65 29 3b 0d 0a 09 09 67 6f 74 6f 78 79 28 31 38 2c 38 29 3b ┆ read(B.kasse); gotoxy(18,8);┆
0x43280…432a0 20 20 72 65 61 64 28 42 2e 6c 61 67 65 72 29 3b 0d 0a 09 09 67 6f 74 6f 78 79 28 31 38 2c 39 29 ┆ read(B.lager); gotoxy(18,9)┆
0x432a0…432c0 3b 20 20 72 65 61 64 28 42 2e 68 61 6c 76 61 72 29 3b 0d 0a 09 09 67 6f 74 6f 78 79 28 31 38 2c ┆; read(B.halvar); gotoxy(18,┆
0x432c0…432e0 31 30 29 3b 20 72 65 61 64 28 42 2e 73 6f 6c 67 74 29 0d 0a 20 09 20 55 4e 54 49 4c 20 43 4f 52 ┆10); read(B.solgt) UNTIL COR┆
0x432e0…43300 52 45 43 54 0d 0a 45 4e 44 3b 20 28 2a 20 70 72 6f 63 65 64 75 72 65 20 72 65 61 64 62 6f 67 20 ┆RECT END; (* procedure readbog ┆
0x43300…43320 2a 29 0d 0a 0d 0a 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 ┆*) FUNCTION FINDPOS(VAR B: BO┆
0x43320…43340 47 29 3a 20 49 4e 54 45 47 45 52 3b 0d 0a 56 41 52 0d 0a 09 43 3a 20 42 4f 47 3b 0d 0a 09 50 4f ┆G): INTEGER; VAR C: BOG; PO┆
0x43340…43360 53 2c 20 4c 4f 57 2c 20 47 55 45 53 53 2c 20 4c 41 3a 20 49 4e 54 45 47 45 52 3b 0d 0a 09 41 4e ┆S, LOW, GUESS, LA: INTEGER; AN┆
0x43360…43380 2c 20 42 4e 3a 20 53 54 52 34 39 3b 0d 0a 42 45 47 49 4e 0d 0a 09 41 4e 3a 3d 42 2e 4c 4e 41 4d ┆, BN: STR49; BEGIN AN:=B.LNAM┆
0x43380…433a0 45 2b 43 48 52 28 30 29 2b 42 2e 46 4e 41 4d 45 3b 20 4c 41 3a 3d 4c 45 4e 28 41 4e 29 3b 0d 0a ┆E+CHR(0)+B.FNAME; LA:=LEN(AN); ┆
0x433a0…433c0 09 4c 4f 57 3a 3d 2d 31 3b 20 50 4f 53 3a 3d 4e 55 4d 42 4f 47 3b 0d 0a 09 57 48 49 4c 45 20 50 ┆ LOW:=-1; POS:=NUMBOG; WHILE P┆
0x433c0…433e0 4f 53 2d 4c 4f 57 3e 31 20 44 4f 0d 0a 09 42 45 47 49 4e 0d 0a 09 09 47 55 45 53 53 3a 3d 28 50 ┆OS-LOW>1 DO BEGIN GUESS:=(P┆
0x433e0…43400 4f 53 2d 4c 4f 57 29 20 44 49 56 20 32 2b 4c 4f 57 3b 0d 0a 09 09 53 45 45 4b 28 42 4f 47 46 2c ┆OS-LOW) DIV 2+LOW; SEEK(BOGF,┆
0x43400…43600 (30, 0, 5) DataBlock {»FRITFALD.MID«}
0x43600…43620 (30, 0, 6) 49 4e 44 45 58 5b 20 47 55 45 53 53 20 5d 29 3b 20 47 45 54 28 42 4f 47 46 2c 43 29 3b 0d 0a 09 ┆INDEXÆ GUESS Å); GET(BOGF,C); ┆
0x43620…43640 09 42 4e 3a 3d 43 2e 4c 4e 41 4d 45 2b 43 48 52 28 30 29 2b 43 2e 46 4e 41 4d 45 3b 0d 0a 09 09 ┆ BN:=C.LNAME+CHR(0)+C.FNAME; ┆
0x43640…43660 49 46 20 42 4e 5b 20 31 2e 2e 4c 41 20 5d 20 3c 20 41 4e 20 54 48 45 4e 20 4c 4f 57 3a 3d 47 55 ┆IF BNÆ 1..LA Å < AN THEN LOW:=GU┆
0x43660…43680 45 53 53 20 45 4c 53 45 20 50 4f 53 3a 3d 47 55 45 53 53 0d 0a 09 45 4e 44 3b 0d 0a 09 46 49 4e ┆ESS ELSE POS:=GUESS END; FIN┆
0x43680…436a0 44 50 4f 53 3a 3d 50 4f 53 0d 0a 45 4e 44 3b 20 28 2a 20 66 75 6e 63 74 69 6f 6e 20 66 69 6e 64 ┆DPOS:=POS END; (* function find┆
0x436a0…436c0 70 6f 73 20 2a 29 0d 0a 0d 0a 70 72 6f 63 65 64 75 72 65 20 73 6b 72 69 76 68 6f 76 65 64 3b 0d ┆pos *) procedure skrivhoved; ┆
0x436c0…436e0 0a 62 65 67 69 6e 0d 0a 09 47 4f 54 4f 58 59 28 30 2c 32 29 3b 20 43 4c 52 45 4f 53 3b 0d 0a 09 ┆ begin GOTOXY(0,2); CLREOS; ┆
0x436e0…43700 57 52 49 54 45 4c 4e 28 27 52 65 63 6f 72 64 20 6e 75 6d 62 65 72 2e 2e 2e 3a 27 29 3b 0d 0a 09 ┆WRITELN('Record number...:'); ┆
0x43700…43720 57 52 49 54 45 4c 4e 28 27 46 69 72 73 74 20 6e 61 6d 65 2e 2e 2e 2e 2e 2e 3a 27 29 3b 0d 0a 09 ┆WRITELN('First name......:'); ┆
0x43720…43740 57 52 49 54 45 4c 4e 28 27 4c 61 73 74 20 6e 61 6d 65 2e 2e 2e 2e 2e 2e 2e 3a 27 29 3b 0d 0a 09 ┆WRITELN('Last name.......:'); ┆
0x43740…43760 57 52 49 54 45 4c 4e 28 27 70 72 69 73 20 2f 20 7c 72 65 20 20 2e 2e 2e 2e 3a 27 29 3b 0d 0a 09 ┆WRITELN('pris / øre ....:'); ┆
0x43760…43780 57 52 49 54 45 4c 4e 28 27 76 61 67 74 20 2f 20 67 72 61 6d 20 2e 2e 2e 2e 3a 27 29 3b 0d 0a 09 ┆WRITELN('vagt / gram ....:'); ┆
0x43780…437a0 57 52 49 54 45 4c 4e 28 27 61 6e 74 61 6c 20 70 72 20 6b 61 73 73 65 2e 2e 3a 27 29 3b 0d 0a 09 ┆WRITELN('antal pr kasse..:'); ┆
0x437a0…437c0 57 52 49 54 45 4c 4e 28 27 6c 61 67 65 72 61 6e 74 61 6c 2e 2e 2e 2e 2e 2e 3a 27 29 3b 0d 0a 09 ┆WRITELN('lagerantal......:'); ┆
0x437c0…437e0 57 52 49 54 45 4c 4e 28 27 73 6f 6c 67 74 20 68 61 6c 76 61 72 2e 2e 2e 2e 3a 27 29 3b 0d 0a 09 ┆WRITELN('solgt halvar....:'); ┆
0x437e0…43800 57 52 49 54 45 4c 4e 28 27 73 6f 6c 67 74 20 69 61 6c 74 2e 2e 2e 2e 2e 2e 3a 27 29 0d 0a 45 4e ┆WRITELN('solgt ialt......:') EN┆
0x43800…43a00 (30, 0, 7) DataBlock {»FRITFALD.MID«}
0x43a00…43c00 (30, 0, 8) DataBlock {»PKOVELSE.MID«}
0x43c00…43e00 (30, 0, 9) DataBlock {»FRITFALD.MID«}
0x43e00…43e80 (30, 1, 1) DataBlock {»PKOVELSE.MID«}
0x43e80…43ea0 5e c6 3a f0 cb b7 c2 09 c6 21 0f 2d 4c 4f 47 28 48 5e 32 2f 28 43 2d 48 29 29 d2 09 c6 57 78 e6 ┆^ : ! -LOG(H^2/(C-H)) Wx ┆
0x43ea0…43ec0 e0 c2 09 c6 78 07 07 07 80 da 09 c6 80 da 09 c6 82 da 09 c6 47 0d c2 08 c8 c9 7e fe 20 0b 32 2a ┆ x G ü 2*┆
0x43ec0…43ee0 50 48 2b 4c 4f 47 28 43 29 7e 12 23 13 05 c2 42 c8 c9 21 80 00 81 cd 59 c6 7e c9 af 32 cd cb 3a ┆PH+LOG(C)ü # B ! Y ü 2 :┆
0x43ee0…43f00 f0 cb b7 c8 3d 21 ef cb be c8 c3 bd c4 3a f0 cb 00 c8 3d 21 ef cb be c8 3a ef cb c3 bd c4 cd 5e ┆ =! : =! : ^┆
0x43f00…43f20 c6 cd 54 c8 21 ce cb 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 ┆ T ! ü 6?# ┆
0x43f20…43f40 1b c9 3a 00 cb 0f 0f 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 ┆ : `O> K æ ┆
0x43f40…43f60 c4 c5 cd d0 c5 c1 c6 41 cd 92 c4 3e 3a cd 92 c4 c3 d4 c8 cd a2 c4 00 3a cd 92 c4 cd a2 c4 06 01 ┆ A >: : ┆
0x43f60…43f80 78 cd 4b c8 e6 7f fe 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 ┆x K > K > ┆
0x43f80…43fa0 cd 92 c4 04 78 fe 0c d2 0e 00 fe 09 c2 d9 c8 cd a2 c4 c3 d9 c8 f1 cd c2 c5 c2 1b c9 cd e4 c4 c3 ┆ x ┆
0x43fa0…43fc0 98 c8 d1 c3 86 cb cd 5e c6 fe 0b c2 42 c9 01 52 c9 cd a7 c4 cd 39 c5 21 07 c4 35 c2 00 c7 23 7e ┆ ^ B R 9 ! 5 #ü┆
0x43fc0…43fe0 fe 59 c2 82 c7 23 22 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 ┆ Y #" T < ALL (Y/┆
0x43fe0…44000 4e 29 3f 00 cd 5e c6 c2 09 c6 cd 54 c8 cd d0 00 ca a7 c9 cd 98 c4 21 f1 cb 36 ff 21 f1 cb 7e fe ┆N)? ^ T ! 6 ! ü ┆
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…44220 (30, 1, 3) 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 * ┆
0x44220…44240 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& ø å ┆
0x44240…44260 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: ┆
0x44260…44280 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┆
0x44280…442a0 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 ┆
0x442a0…442c0 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 ┆
0x442c0…442e0 00 2a df 00 e9 31 00 01 21 86 cb 11 b8 00 01 b8 00 cd 2e 02 21 2e 02 11 2e 02 01 00 00 cd 0d 04 ┆ * 1 ! . !. . ┆
0x442e0…44300 c3 7e cb 56 4d 46 42 47 48 53 05 6c 6e 28 2d 29 00 06 72 6f 64 28 2d 29 04 28 2d 29 5e 00 00 05 ┆ ü VMFBGHS ln(-) rod(-) (-)^ ┆
0x44300…44320 64 69 76 20 30 00 05 3f 3f 3f 3f 3f 00 14 21 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆div 0 ????? !-----------------┆
0x44320…44340 2d 2d 14 21 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 14 21 20 20 20 20 20 20 20 ┆-- !=================== ! ┆
0x44340…44360 20 20 20 20 20 20 20 20 20 20 20 20 00 25 00 0d 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ % ┆
0x44360…44380 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 fe ff ff 3f 00 00 00 00 00 00 00 00 ┆ ? ┆
0x44380…443a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ff 03 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x443a0…443c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 ef 00 00 00 00 00 40 00 00 00 00 00 00 00 00 ┆ @ ┆
0x443c0…443e0 00 00 00 00 00 00 00 00 00 00 00 00 01 0a 00 21 bd b7 cd 23 04 fd e1 e1 11 00 00 01 00 01 cd 71 ┆ ! # q┆
0x443e0…44400 05 7d 32 c5 b7 fd e5 2a c5 b7 26 00 e5 cd 9c 04 21 61 00 e5 21 7d 00 cd b6 04 cd 6a 12 cb 45 ca ┆ å2 * & !a !å j E ┆
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…44620 (30, 1, 5) 6a 12 2a c5 b7 26 00 e5 21 20 00 d1 eb b7 ed 52 11 00 00 01 00 01 cd 71 05 7d 32 c5 b7 c3 00 1f ┆j * & ! R q å2 ┆
0x44620…44640 2a c5 b7 26 00 11 00 00 01 00 01 cd 71 05 7d 32 c5 b7 2a c5 b7 26 00 11 00 00 01 00 01 cd 71 05 ┆* & q å2 * & q ┆
0x44640…44660 7d 32 c6 b7 2a c6 b7 26 00 d9 01 0a 00 11 bd b7 c3 3d 04 01 37 01 21 86 b6 cd 23 04 fd e1 06 96 ┆å2 * & = 7 ! # ┆
0x44660…44680 21 8f b6 cd fd 04 fd e5 21 01 00 e5 21 8f b6 cd 55 04 cd b9 07 d1 cd 81 05 7a b3 ca 00 00 d5 11 ┆! ! ! U z ┆
0x44680…446a0 00 00 01 00 01 cd 71 05 7d 32 86 b6 21 8f b6 e5 2a 86 b6 26 00 11 97 00 cd 67 05 d1 19 6e 26 00 ┆ q å2 ! * & g n& ┆
0x446a0…446c0 e5 cd 9c 04 21 61 00 e5 21 7d 00 cd b6 04 cd 6a 12 cb 45 ca 6a 12 21 8f b6 e5 2a 86 b6 26 00 11 ┆ !a !å j E j ! * & ┆
0x446c0…446e0 97 00 cd 67 05 d1 19 e5 21 8f b6 e5 2a 86 b6 26 00 11 97 00 cd 67 05 d1 19 6e 26 00 e5 21 20 00 ┆ g ! * & g n& ! ┆
0x446e0…44700 d1 eb b7 ed 52 11 00 00 01 00 01 cd 71 05 eb e1 73 c3 b4 1f 21 8f b6 e5 2a 86 b6 26 00 11 97 00 ┆ R q s ! * & ┆
0x44700…44720 cd 67 05 d1 19 e5 21 8f b6 e5 2a 86 b6 26 00 11 97 00 cd 67 05 d1 19 6e 26 00 11 00 00 01 00 01 ┆ g ! * & g n& ┆
0x44720…44740 cd 71 05 eb e1 73 2a 86 b6 26 00 23 d1 1b c3 79 1f 21 8f b6 cd 55 04 06 96 21 26 b7 cd fd 04 fd ┆ q s* & # y ! U !& ┆
0x44740…44760 e1 21 26 b7 cd 55 04 fd e5 01 37 01 11 86 b6 c3 3d 04 01 37 01 21 4f b5 cd 23 04 fd e1 06 96 21 ┆ !& U 7 = 7 !O # !┆
0x44760…44780 58 b5 cd fd 04 fd e5 21 01 00 e5 21 58 b5 cd 55 04 cd b9 07 d1 cd 81 05 7a b3 ca 00 00 d5 11 00 ┆X ! !X U z ┆
0x44780…447a0 00 01 00 01 cd 71 05 7d 32 4f b5 21 58 b5 e5 2a 4f b5 26 00 11 97 00 cd 67 05 d1 19 6e 26 00 e5 ┆ q å2O !X *O & g n& ┆
0x447a0…447c0 cd 9c 04 21 41 00 e5 21 5d 00 cd b6 04 cd 6a 12 cb 45 ca 6a 12 21 58 b5 e5 2a 4f b5 26 00 11 97 ┆ !A !Å j E j !X *O & ┆
0x447c0…447e0 00 cd 67 05 d1 19 e5 21 58 b5 e5 2a 4f b5 26 00 11 97 00 cd 67 05 d1 19 6e 26 00 e5 21 20 00 d1 ┆ g !X *O & g n& ! ┆
0x447e0…44800 19 11 00 00 01 00 01 cd 71 05 eb e1 73 c3 b3 20 21 58 b5 e5 2a 4f b5 26 00 11 97 00 cd 67 05 d1 ┆ q s !X *O & g ┆
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…4f400 […elided…]
0x4f400…4f600 (35, 1, 2) 0xe5[0x200]
[…0x7…]