|
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: 0 5 A B C D E F G H I J K M N O P R S T U
Length: 819200 (0xc8000)
Description: Bits:30004681 Pascal opgaver (Butler)
Types: 5¼" Floppy Disk, CpmFSButler1b, ImdContainer
Notes: CpmFSButler1b,512,2048,80,0x0,1<2<3,2:0-159:1
Media: [0, 0, 1] … [159, 1, 10] {512: 1600}
Signature: CpmFSButler1b,512,2048,80,0x0,1<2<3,2:0-159:1
Confidence score: +88/-45
Sector size: 512
Block size: 2048
Directory entries: 80
Block number size: 16
Extent-mask: 0x00
Sector-interleave: 1, 4, 7, 10, 2, 5, 8, 3, 6, 9
Tracks: (2, 0), (3, 1), (4, 0), (5, 1), (6, 0), (7, 1) […] (154, 0), (155, 1), (156, 0), (157, 1), (158, 0), (159, 1)
| user | bc | length | name | artifact |
|---|---|---|---|---|
| 0 | 0 | 1152 | ADDITION.PAS | ⟦5aceb7dca⟧ |
| 0 | 0 | 1536 | AEOEAA.PAS | ⟦d0331b8cc⟧ TextFile |
| 0 | 0 | 384 | BAGFRA.PAS | ⟦048a71490⟧ 0xe5[0x180] |
| 0 | 0 | 1408 | BAGSIDE.PAS | ⟦4d88841b8⟧ |
| 0 | 0 | 1152 | BIBLIOT.PAS | ⟦6b4ad7c36⟧ TextFile |
| 0 | 0 | 1792 | BININSRT.PAS | ⟦e35b28563⟧ TextFile |
| 0 | 0 | 640 | BINOM1.PAS | ⟦2d454d3e1⟧ TextFile |
| 0 | 0 | 512 | BINOM2.PAS | ⟦1d1318a48⟧ TextFile |
| 0 | 0 | 512 | BINOM3.PAS | ⟦dbcac6dc3⟧ 0xe5[0x200] |
| 0 | 0 | 768 | BINOM4.PAS | ⟦07f2aa981⟧ TextFile |
| 0 | 0 | 896 | BINTERN.PAS | ⟦f69986c9d⟧ |
| 0 | 0 | 4096 | BINTRAE1.PAS | ⟦12a695414⟧ |
| 0 | 0 | 4224 | BINTRAE2.PAS | ⟦ef4643971⟧ |
| 0 | 0 | 1792 | BISEC.PAS | ⟦ddd7ab548⟧ |
| 0 | 0 | 1152 | BOLDSPIL.PAS | ⟦0c24cbbb5⟧ TextFile |
| 0 | 0 | 3456 | BREV1.PAS | ⟦a78aa7194⟧ TextFile |
| 0 | 0 | 3072 | BRIDGE1.PAS | ⟦2c00be6ac⟧ |
| 0 | 0 | 3328 | BRIDGE2.PAS | ⟦5e407c897⟧ TextFile |
| 0 | 0 | 1408 | BUBBLE2.PAS | ⟦1642c3e68⟧ TextFile |
| 0 | 0 | 1408 | BUBBLE3.PAS | ⟦37c521d9b⟧ |
| 0 | 0 | 640 | CELSIUS.PAS | ⟦18fa0e65a⟧ TextFile |
| 0 | 0 | 1792 | CHECK1.PAS | ⟦387fa4426⟧ TextFile |
| 0 | 0 | 768 | CHECK2.PAS | ⟦870082150⟧ TextFile |
| 0 | 0 | 768 | CHECK3.PAS | ⟦12592bc5b⟧ TextFile |
| 0 | 0 | 3328 | CPR.PAS | ⟦6b413ba6b⟧ |
| 0 | 0 | 1408 | CPRDATO.PAS | ⟦525957f5e⟧ TextFile |
| 0 | 0 | 1920 | CPRDATO2.PAS | ⟦7f7f77d8b⟧ TextFile |
| 0 | 0 | 1024 | CPRNUMRE.PAS | ⟦207e1dce3⟧ TextFile |
| 0 | 0 | 1920 | CRAPS2.PAS | ⟦6a2225209⟧ TextFile |
| 0 | 0 | 640 | DEMOLEN.PAS | ⟦bcccf4293⟧ TextFile |
| 0 | 0 | 512 | DEMO_STR.PAS | ⟦dbcac6dc3⟧ 0xe5[0x200] |
| 0 | 0 | 3200 | DIVISION.PAS | ⟦4115027bb⟧ |
| 0 | 0 | 640 | DIVISOR.PAS | ⟦f7224317f⟧ |
| 0 | 0 | 640 | DIVISOR2.PAS | ⟦21fdec0ac⟧ TextFile |
| 0 | 0 | 7808 | DOBBELT.PAS | ⟦db9f3a100⟧ TextFile |
| 0 | 0 | 1024 | ENGSTIL.PAS | ⟦ec67d7b02⟧ TextFile |
| 0 | 0 | 1280 | ERATOSTH.PAS | ⟦340855dc7⟧ |
| 0 | 0 | 640 | FAHRENHE.PAS | ⟦51f703bd6⟧ TextFile |
| 0 | 0 | 2816 | FAKTURA.PAS | ⟦09cb43a99⟧ TextFile |
| 0 | 0 | 384 | FIBO.PAS | ⟦a659aa291⟧ TextFile |
| 0 | 0 | 512 | FIBOFORH.PAS | ⟦dbcac6dc3⟧ 0xe5[0x200] |
| 0 | 0 | 512 | FIBONAC1.PAS | ⟦dbcac6dc3⟧ 0xe5[0x200] |
| 0 | 0 | 768 | FIBONAC2.PAS | ⟦eb55303f4⟧ TextFile |
| 0 | 0 | 1024 | FILKOPI.PAS | ⟦46c7ade49⟧ 0xe5[0x400] |
| 0 | 0 | 768 | FLADE.PAS | ⟦5ae1564b9⟧ TextFile |
| 0 | 0 | 4608 | FLETNING.PAS | ⟦8751788a4⟧ TextFile |
| 0 | 0 | 1024 | FORKORT.PAS | ⟦46c7ade49⟧ 0xe5[0x400] |
| 0 | 0 | 2048 | GAETTEGN.PAS | ⟦307246cb3⟧ TextFile |
| 0 | 0 | 2944 | GRUNDTAL.PAS | ⟦47c20a593⟧ TextFile |
| 0 | 0 | 384 | HARMONIC.PAS | ⟦c7767fe53⟧ TextFile |
| 0 | 0 | 3840 | HASHTAB.PAS | ⟦64f2210dc⟧ |
| 0 | 0 | 1408 | HENTPOST.PAS | ⟦ef8ad1bc0⟧ |
| 0 | 0 | 4224 | IDEAL.PAS | ⟦78c08e2a4⟧ |
| 0 | 0 | 3328 | IDENTIFI.PAS | ⟦e86df442e⟧ |
| 0 | 0 | 16384 | INSTALL.COM | ⟦cdaf823ec⟧ |
| 0 | 0 | 1408 | INSTALL.TRM | ⟦648823df6⟧ |
| 0 | 0 | 1792 | INTERHYP.PAS | ⟦8de193f92⟧ TextFile |
| 0 | 0 | 1280 | INVERS.PAS | ⟦870c5e3a9⟧ TextFile |
| 0 | 0 | 1024 | JOURNAL.PAS | ⟦dd4e1584d⟧ |
| 0 | 0 | 4864 | KAEDE2.PAS | ⟦b7e7f887b⟧ TextFile |
| 0 | 0 | 4224 | KAEDE3.PAS | ⟦4b8440ac5⟧ TextFile |
| 0 | 0 | 5376 | KAEDE4.PAS | ⟦a95c4c783⟧ TextFile |
| 0 | 0 | 2432 | NAVNSOEG.PAS | ⟦c97415785⟧ |
| 0 | 0 | 1536 | NAVNSORT.PAS | ⟦967431f03⟧ |
| 0 | 0 | 1408 | NYGAARD.PAS | ⟦f4d4da0b9⟧ TextFile |
| 0 | 0 | 4352 | ORDHYP.PAS | ⟦ad3befd37⟧ |
| 0 | 0 | 3968 | OVERF_1.PAS | ⟦47658ce70⟧ |
| 0 | 0 | 3840 | OVERF_2.PAS | ⟦59a989f31⟧ |
| 0 | 0 | 1152 | PAKKEPST.PAS | ⟦ad11cd01f⟧ |
| 0 | 0 | 512 | PALINDR.PAS | ⟦2d39c3620⟧ TextFile |
| 0 | 0 | 2432 | PANT.PAS | ⟦a0d9fa73b⟧ |
| 0 | 0 | 9984 | PERSONER.PAS | ⟦62617a5b8⟧ TextFile |
| 0 | 0 | 1024 | POST1.PAS | ⟦7428b3c06⟧ TextFile |
| 0 | 0 | 6144 | POSTKOPI.PAS | ⟦6ef57a18b⟧ TextFile |
| 0 | 0 | 5120 | POST_ANT.PAS | ⟦42307e4c1⟧ |
| 0 | 0 | 28416 | PPAS.COM | ⟦d3e68375e⟧ |
| 0 | 0 | 768 | PREDEF.PAS | ⟦41dd0b6fa⟧ TextFile |
| 0 | 0 | 896 | PRIMFORD.PAS | ⟦0430f47e0⟧ TextFile |
| 0 | 0 | 1152 | PRIMTAL.PAS | ⟦f449afc6f⟧ 0xe5[0x480] |
0x00000…00020 (0, 0, 1) c3 5c d7 c3 58 d7 7f 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 4f 50 59 52 49 47 48 ┆ Ø X COPYRIGH┆
0x00020…00040 54 20 28 43 29 20 31 39 37 39 2c 20 44 49 47 49 54 41 4c 20 52 45 53 45 41 52 43 48 20 20 00 00 ┆T (C) 1979, DIGITAL RESEARCH ┆
0x00040…00060 00 00 00 00 00 00 00 00 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…]
0x00080…000a0 00 00 00 00 00 00 00 00 08 d4 00 00 5f 0e 02 c3 05 00 c5 cd 8c d4 c1 c9 3e 0d cd 92 d4 3e 0a c3 ┆ _ > > ┆
0x000a0…000c0 92 d4 3e 20 c3 92 d4 c5 cd 98 d4 e1 7e b7 c8 23 e5 cd 8c d4 e1 c3 ac d4 0e 0d c3 05 00 5f 0e 0e ┆ > ü # _ ┆
0x000c0…000e0 c3 05 00 cd 05 00 32 ee db 3c c9 0e 0f c3 c3 d4 af 32 ed db 11 cd db c3 cb d4 0e 10 c3 c3 d4 0e ┆ 2 < 2 ┆
0x000e0…00100 11 c3 c3 d4 0e 12 c3 c3 d4 11 cd db c3 df d4 0e 13 c3 05 00 cd 05 00 b7 c9 0e 14 c3 f4 d4 11 cd ┆ ┆
0x00100…00120 db c3 f9 d4 0e 15 c3 f4 d4 0e 16 c3 c3 d4 0e 17 c3 05 00 1e ff 0e 20 c3 05 00 cd 13 d5 87 87 87 ┆ ┆
0x00120…00140 87 21 ef db b6 32 04 00 c9 3a ef db 32 04 00 c9 fe 61 d8 fe 7b d0 e6 5f c9 3a ab db b7 ca 96 d5 ┆ ! 2 : 2 a æ _ : ┆
0x00140…00160 3a ef db b7 3e 00 c4 bd d4 11 ac db cd cb d4 ca 96 d5 3a bb db 3d 32 cc db 11 ac db cd f9 d4 c2 ┆: > : =2 ┆
0x00160…00180 96 d5 11 07 d4 21 80 00 06 80 cd 42 d8 21 ba db 36 00 23 35 11 ac db cd da d4 ca 96 d5 3a ef db ┆ ! B ! 6 #5 : ┆
0x00180…001a0 b7 c4 bd d4 21 08 d4 cd ac d4 cd c2 d5 ca a7 d5 cd dd d5 c3 82 d7 cd dd d5 cd 1a d5 0e 0a 11 06 ┆ ! ┆
0x001a0…001c0 d4 cd 05 00 cd 29 d5 21 07 d4 46 23 78 b7 ca ba d5 7e cd 30 d5 77 05 c3 ab d5 77 21 08 d4 22 88 ┆ ) ! F#x ü 0 w w! " ┆
0x001c0…001e0 d4 c9 0e 0b cd 05 00 b7 c8 0e 01 cd 05 00 b7 c9 0e 19 c3 05 00 11 80 00 0e 1a c3 05 00 21 ab db ┆ ! ┆
0x001e0…00200 7e b7 c8 36 00 af cd bd d4 11 ac db cd ef d4 3a ef db c3 bd d4 11 28 d7 21 00 dc 06 06 1a be c2 ┆ü 6 : ( ! ┆
0x00200…00220 (0, 0, 2) cf d7 13 23 05 c2 fd d5 c9 cd 98 d4 2a 8a d4 7e fe 20 ca 22 d6 b7 ca 22 d6 e5 cd 8c d4 e1 23 c3 ┆ # * ü " " # ┆
0x00220…00240 0f d6 3e 3f cd 8c d4 cd 98 d4 cd dd d5 c3 82 d7 1a b7 c8 fe 20 da 09 d6 c8 fe 3d c8 fe 5f c8 fe ┆ >? = _ ┆
0x00240…00260 2e c8 fe 3a c8 fe 3b c8 fe 3c c8 fe 3e c8 c9 1a b7 c8 fe 20 c0 13 c3 4f d6 85 6f d0 24 c9 3e 00 ┆. : ; < > O o $ > ┆
0x00260…00280 21 cd db cd 59 d6 e5 e5 af 32 f0 db 2a 88 d4 eb cd 4f d6 eb 22 8a d4 eb e1 1a b7 ca 89 d6 de 40 ┆! Y 2 * O " @┆
0x00280…002a0 47 13 1a fe 3a ca 90 d6 1b 3a ef db 77 c3 96 d6 78 32 f0 db 70 13 06 08 cd 30 d6 ca b9 d6 23 fe ┆G : : w x2 p 0 # ┆
0x002a0…002c0 2a c2 a9 d6 36 3f c3 ab d6 77 13 05 c2 98 d6 cd 30 d6 ca c0 d6 13 c3 af d6 23 36 20 05 c2 b9 d6 ┆* 6? w 0 #6 ┆
0x002c0…002e0 06 03 fe 2e c2 e9 d6 13 cd 30 d6 ca e9 d6 23 fe 2a c2 d9 d6 36 3f c3 db d6 77 13 05 c2 c8 d6 cd ┆ . 0 # * 6? w ┆
0x002e0…00300 30 d6 ca f0 d6 13 c3 df d6 23 36 20 05 c2 e9 d6 06 03 23 36 00 05 c2 f2 d6 eb 22 88 d4 e1 01 0b ┆0 #6 #6 " ┆
0x00300…00320 00 23 7e fe 3f c2 09 d7 04 0d c2 01 d7 78 b7 c9 44 49 52 20 45 52 41 20 54 59 50 45 53 41 56 45 ┆ #ü ? x DIR ERA TYPESAVE┆
0x00320…00340 52 45 4e 20 55 53 45 52 4d 16 04 00 00 75 21 10 d7 0e 00 79 fe 06 d0 11 ce db 06 04 1a be c2 4f ┆REN USERM u! y O┆
0x00340…00360 d7 13 23 05 c2 3c d7 1a fe 20 c2 54 d7 79 c9 23 05 c2 4f d7 0c c3 33 d7 af 32 07 d4 31 ab db c5 ┆ # < T y # O 3 2 1 ┆
0x00360…00380 79 1f 1f 1f 1f e6 0f 5f cd 15 d5 cd b8 d4 32 ab db c1 79 e6 0f 32 ef db cd bd d4 3a 07 d4 b7 c2 ┆y _ 2 y 2 : ┆
0x00380…003a0 98 d7 31 ab db cd 98 d4 cd d0 d5 c6 41 cd 8c d4 3e 3e cd 8c d4 cd 39 d5 11 80 00 cd d8 d5 cd d0 ┆ 1 A >> 9 ┆
0x003a0…003c0 d5 32 ef db cd 5e d6 c4 09 d6 3a f0 db b7 c2 a5 da cd 2e d7 21 c1 d7 5f 16 00 19 19 7e 23 66 6f ┆ 2 ^ : . ! _ ü#fo┆
0x003c0…003e0 e9 77 d8 1f d9 5d d9 ad d9 10 da 8e da a5 da 21 f3 76 22 00 d4 21 00 d4 e9 01 df d7 c3 a7 d4 52 ┆ w Å ! v" ! R┆
0x003e0…00400 45 41 44 20 45 52 52 4f 52 00 01 f0 d7 c3 a7 d4 4e 4f 20 46 49 4c 45 00 cd 5e d6 3a f0 db b7 c2 ┆EAD ERROR NO FILE ^ : ┆
0x00400…00420 (0, 0, 3) 09 d6 21 ce db 01 0b 00 7e fe 20 ca 33 d8 23 d6 30 fe 0a d2 09 d6 57 78 e6 e0 c2 09 d6 78 07 07 ┆ ! ü 3 # 0 Wx x ┆
0x00420…00440 07 80 da 09 d6 80 da 09 d6 82 da 09 d6 47 0d c2 08 d8 c9 7e fe 20 c2 09 d6 23 0d c2 33 d8 78 c9 ┆ G ü # 3 x ┆
0x00440…00460 06 03 7e 12 23 13 05 c2 42 d8 c9 21 80 00 81 cd 59 d6 7e c9 af 32 cd db 3a f0 db b7 c8 3d 21 ef ┆ ü # B ! Y ü 2 : =! ┆
0x00460…00480 db be c8 c3 bd d4 3a f0 db b7 c8 3d 21 ef db be c8 3a ef db c3 bd d4 cd 5e d6 cd 54 d8 21 ce db ┆ : =! : ^ T ! ┆
0x00480…004a0 7e fe 20 c2 8f d8 06 0b 36 3f 23 05 c2 88 d8 1e 00 d5 cd e9 d4 cc ea d7 ca 1b d9 3a ee db 0f 0f ┆ü 6?# : ┆
0x004a0…004c0 0f e6 60 4f 3e 0a cd 4b d8 17 da 0f d9 d1 7b 1c d5 e6 03 f5 c2 cc d8 cd 98 d4 c5 cd d0 d5 c1 c6 ┆ `O> K æ ┆
0x004c0…004e0 41 cd 92 d4 3e 3a cd 92 d4 c3 d4 d8 cd a2 d4 3e 3a cd 92 d4 cd a2 d4 06 01 78 cd 4b d8 e6 7f fe ┆A >: >: x K ┆
0x004e0…00500 20 c2 f9 d8 f1 f5 fe 03 c2 f7 d8 3e 09 cd 4b d8 e6 7f fe 20 ca 0e d9 3e 20 cd 92 d4 04 78 fe 0c ┆ > K > x ┆
0x00500…00520 d2 0e d9 fe 09 c2 d9 d8 cd a2 d4 c3 d9 d8 f1 cd c2 d5 c2 1b d9 cd e4 d4 c3 98 d8 d1 c3 86 db cd ┆ ┆
0x00520…00540 5e d6 fe 0b c2 42 d9 01 52 d9 cd a7 d4 cd 39 d5 21 07 d4 35 c2 82 d7 23 7e fe 59 c2 82 d7 23 22 ┆^ B R 9 ! 5 #ü Y #"┆
0x00540…00560 88 d4 cd 54 d8 11 cd db cd ef d4 3c cc ea d7 c3 86 db 41 4c 4c 20 28 59 2f 4e 29 3f 00 cd 5e d6 ┆ T < ALL (Y/N)? ^ ┆
0x00560…00580 c2 09 d6 cd 54 d8 cd d0 d4 ca a7 d9 cd 98 d4 21 f1 db 36 ff 21 f1 db 7e fe 80 da 87 d9 e5 cd fe ┆ T ! 6 ! ü ┆
0x00580…005a0 d4 e1 c2 a0 d9 af 77 34 21 80 00 cd 59 d6 7e fe 1a ca 86 db cd 8c d4 cd c2 d5 c2 86 db c3 74 d9 ┆ w4! Y ü t ┆
0x005a0…005c0 3d ca 86 db cd d9 d7 cd 66 d8 c3 09 d6 cd f8 d7 f5 cd 5e d6 c2 09 d6 cd 54 d8 11 cd db d5 cd ef ┆= f ^ T ┆
0x005c0…005e0 d4 d1 cd 09 d5 ca fb d9 af 32 ed db f1 6f 26 00 29 11 00 01 7c b5 ca f1 d9 2b e5 21 80 00 19 e5 ┆ 2 o& ) ø + ! ┆
0x005e0…00600 cd d8 d5 11 cd db cd 04 d5 d1 e1 c2 fb d9 c3 d4 d9 11 cd db cd da d4 3c c2 01 da 01 07 da cd a7 ┆ < ┆
0x00600…00620 (0, 0, 4) d4 cd d5 d5 c3 86 db 4e 4f 20 53 50 41 43 45 00 cd 5e d6 c2 09 d6 3a f0 db f5 cd 54 d8 cd e9 d4 ┆ NO SPACE ^ : T ┆
0x00620…00640 c2 79 da 21 cd db 11 dd db 06 10 cd 42 d8 2a 88 d4 eb cd 4f d6 fe 3d ca 3f da fe 5f c2 73 da eb ┆ y ! B * O = ? _ s ┆
0x00640…00660 23 22 88 d4 cd 5e d6 c2 73 da f1 47 21 f0 db 7e b7 ca 59 da b8 70 c2 73 da 70 af 32 cd db cd e9 ┆#" ^ s G! ü Y p s p 2 ┆
0x00660…00680 d4 ca 6d da 11 cd db cd 0e d5 c3 86 db cd ea d7 c3 86 db cd 66 d8 c3 09 d6 01 82 da cd a7 d4 c3 ┆ m f ┆
0x00680…006a0 86 db 46 49 4c 45 20 45 58 49 53 54 53 00 cd f8 d7 fe 10 d2 09 d6 5f 3a ce db fe 20 ca 09 d6 cd ┆ FILE EXISTS _: ┆
0x006a0…006c0 15 d5 c3 89 db cd f5 d5 3a ce db fe 20 c2 c4 da 3a f0 db b7 ca 89 db 3d 32 ef db cd 29 d5 cd bd ┆ : : =2 ) ┆
0x006c0…006e0 d4 c3 89 db 11 d6 db 1a fe 20 c2 09 d6 d5 cd 54 d8 d1 21 83 db cd 40 d8 cd d0 d4 ca 6b db 21 00 ┆ T ! @ k ! ┆
0x006e0…00700 01 e5 eb cd d8 d5 11 cd db cd f9 d4 c2 01 db e1 11 80 00 19 11 00 d4 7d 93 7c 9a d2 71 db c3 e1 ┆ å ø q ┆
0x00700…00720 da e1 3d c2 71 db cd 66 d8 cd 5e d6 21 f0 db e5 7e 32 cd db 3e 10 cd 60 d6 e1 7e 32 dd db af 32 ┆ = q f ^ ! ü2 > ` ü2 2┆
0x00720…00740 ed db 11 5c 00 21 cd db 06 21 cd 42 d8 21 08 d4 7e b7 ca 3e db fe 20 ca 3e db 23 c3 30 db 06 00 ┆ Ø ! ! B ! ü > > # 0 ┆
0x00740…00760 11 81 00 7e 12 b7 ca 4f db 04 23 13 c3 43 db 78 32 80 00 cd 98 d4 cd d5 d5 cd 1a d5 cd 00 01 31 ┆ ü O # C x2 1┆
0x00760…00780 ab db cd 29 d5 cd bd d4 c3 82 d7 cd 66 d8 c3 09 d6 01 7a db cd a7 d4 c3 86 db 42 41 44 20 4c 4f ┆ ) f z BAD LO┆
0x00780…007a0 41 44 00 43 4f 4d cd 66 d8 cd 5e d6 3a ce db d6 20 21 f0 db b6 c2 09 d6 c3 82 d7 00 00 00 00 00 ┆AD COM f ^ : ! ┆
0x007a0…007c0 00 00 00 00 00 00 00 00 00 00 00 00 00 24 24 24 20 20 20 20 20 53 55 42 00 00 00 00 00 00 00 00 ┆ $$$ SUB ┆
0x007c0…007e0 00 00 00 00 00 00 00 00 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…]
0x00800…00820 (0, 0, 5) 4d 16 04 00 00 75 c3 11 dc 99 dc a5 dc ab dc b1 dc eb 22 43 df eb 7b 32 d6 e9 21 00 00 22 45 df ┆M u "C æ2 ! "E ┆
0x00820…00840 39 22 0f df 31 41 df af 32 e0 e9 32 de e9 21 74 e9 e5 79 fe 29 d0 4b 21 47 dc 5f 16 00 19 19 5e ┆9" 1A 2 2 !t y ) K!G _ ^┆
0x00840…00860 23 56 2a 43 df eb e9 03 ea c8 de 90 dd ce de 12 ea 0f ea d4 de ed de f3 de f8 de e1 dd fe de 7e ┆#V*C ü┆
0x00860…00880 e8 83 e8 45 e8 9c e8 a5 e8 ab e8 c8 e8 d7 e8 e0 e8 e6 e8 ec e8 f5 e8 fe e8 04 e9 0a e9 11 e9 2c ┆ E ,┆
0x00880…008a0 e1 17 e9 1d e9 26 e9 2d e9 41 e9 47 e9 4d e9 0e e8 53 e9 04 df 04 df 9b e9 21 ca dc cd e5 dc fe ┆ & - A G M S ! ┆
0x008a0…008c0 03 ca 00 00 c9 21 d5 dc c3 b4 dc 21 e1 dc c3 b4 dc 21 dc dc cd e5 dc c3 00 00 42 64 6f 73 20 45 ┆ ! ! ! Bdos E┆
0x008c0…008e0 72 72 20 4f 6e 20 20 3a 20 24 42 61 64 20 53 65 63 74 6f 72 24 53 65 6c 65 63 74 24 46 69 6c 65 ┆rr On : $Bad Sector$Select$File┆
0x008e0…00900 20 52 2f 4f 24 e5 cd c9 dd 3a 42 df c6 41 32 c6 dc 01 ba dc cd d3 dd c1 cd d3 dd 21 0e df 7e 36 ┆ R/O$ :B A2 ! ü6┆
0x00900…00920 00 b7 c0 c3 09 ea cd fb dc cd 14 dd d8 f5 4f cd 90 dd f1 c9 fe 0d c8 fe 0a c8 fe 09 c8 fe 08 c8 ┆ O ┆
0x00920…00940 fe 20 c9 3a 0e df b7 c2 45 dd cd 06 ea e6 01 c8 cd 09 ea fe 13 c2 42 dd cd 09 ea fe 03 ca 00 00 ┆ : E B ┆
0x00940…00960 af c9 32 0e df 3e 01 c9 3a 0a df b7 c2 62 dd c5 cd 23 dd c1 c5 cd 0c ea c1 c5 3a 0d df b7 c4 0f ┆ 2 > : b # : ┆
0x00960…00980 ea c1 79 21 0c df fe 7f c8 34 fe 20 d0 35 7e b7 c8 79 fe 08 c2 79 dd 35 c9 fe 0a c0 36 00 c9 79 ┆ y! 4 5ü y y 5 6 y┆
0x00980…009a0 cd 14 dd d2 90 dd f5 0e 5e cd 48 dd f1 f6 40 4f 79 fe 09 c2 48 dd 0e 20 cd 48 dd 3a 0c df e6 07 ┆ ^ H @Oy H H : ┆
0x009a0…009c0 c2 96 dd c9 cd ac dd 0e 20 cd 0c ea 0e 08 c3 0c ea 0e 23 cd 48 dd cd c9 dd 3a 0c df 21 0b df be ┆ # H : ! ┆
0x009c0…009e0 d0 0e 20 cd 48 dd c3 b9 dd 0e 0d cd 48 dd 0e 0a c3 48 dd 0a fe 24 c8 03 c5 4f cd 90 dd c1 c3 d3 ┆ H H H $ O ┆
0x009e0…00a00 dd 3a 0c df 32 0b df 2a 43 df 4e 23 e5 06 00 c5 e5 cd fb dc e6 7f e1 c1 fe 0d ca c1 de fe 0a ca ┆ : 2 *C N# ┆
0x00a00…00a20 (0, 0, 6) c1 de fe 08 c2 16 de 78 b7 ca ef dd 05 3a 0c df 32 0a df c3 70 de fe 7f c2 26 de 78 b7 ca ef dd ┆ x : 2 p & x ┆
0x00a20…00a40 7e 05 2b c3 a9 de fe 05 c2 37 de c5 e5 cd c9 dd af 32 0b df c3 f1 dd fe 10 c2 48 de e5 21 0d df ┆ü + 7 2 H ! ┆
0x00a40…00a60 3e 01 96 77 e1 c3 ef dd fe 18 c2 5f de e1 3a 0b df 21 0c df be d2 e1 dd 35 cd a4 dd c3 4e de fe ┆> w _ : ! 5 N ┆
0x00a60…00a80 15 c2 6b de cd b1 dd e1 c3 e1 dd fe 12 c2 a6 de c5 cd b1 dd c1 e1 e5 c5 78 b7 ca 8a de 23 4e 05 ┆ k x #N ┆
0x00a80…00aa0 c5 e5 cd 7f dd e1 c1 c3 78 de e5 3a 0a df b7 ca f1 dd 21 0c df 96 32 0a df cd a4 dd 21 0a df 35 ┆ x : ! 2 ! 5┆
0x00aa0…00ac0 c2 99 de c3 f1 dd 23 77 04 c5 e5 4f cd 7f dd e1 c1 7e fe 03 78 c2 bd de fe 01 ca 00 00 b9 da ef ┆ #w O ü x ┆
0x00ac0…00ae0 dd e1 70 0e 0d c3 48 dd cd 06 dd c3 01 df cd 15 ea c3 01 df 79 3c ca e0 de 3c ca 06 ea c3 0c ea ┆ p H y< < ┆
0x00ae0…00b00 cd 06 ea b7 ca 91 e9 cd 09 ea c3 01 df 3a 03 00 c3 01 df 21 03 00 71 c9 eb 4d 44 c3 d3 dd cd 23 ┆ : ! q MD #┆
0x00b00…00b20 dd 32 45 df c9 3e 01 c3 01 df 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ 2E > ┆
0x00b20…00b40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x00b40…00b60 00 00 00 00 00 00 00 21 0b dc 5e 23 56 eb e9 0c 0d c8 1a 77 13 23 c3 50 df 3a 42 df 4f cd 1b ea ┆ ! ^#V w # P :B O ┆
0x00b60…00b80 7c b5 c8 5e 23 56 23 22 b3 e9 23 23 22 b5 e9 23 23 22 b7 e9 23 23 eb 22 d0 e9 21 b9 e9 0e 08 cd ┆ø ^#V#" ##" ##" ## " ! ┆
0x00b80…00ba0 4f df 2a bb e9 eb 21 c1 e9 0e 0f cd 4f df 2a c6 e9 7c 21 dd e9 36 ff b7 ca 9d df 36 00 3e ff b7 ┆O * ! O * ø! 6 6 > ┆
0x00ba0…00bc0 c9 cd 18 ea af 2a b5 e9 77 23 77 2a b7 e9 77 23 77 c9 cd 27 ea c3 bb df cd 2a ea b7 c8 21 09 dc ┆ * w#w* w#w ' * ! ┆
0x00bc0…00be0 c3 4a df 2a ea e9 0e 02 cd ea e0 22 e5 e9 22 ec e9 21 e5 e9 4e 23 46 2a b7 e9 5e 23 56 2a b5 e9 ┆ J * " " ! N#F* ^#V* ┆
0x00be0…00c00 7e 23 66 6f 79 93 78 9a d2 fa df e5 2a c1 e9 7b 95 5f 7a 9c 57 e1 2b c3 e4 df e5 2a c1 e9 19 da ┆ü#foy x * æ _z W + * ┆
0x00c00…00c20 (0, 0, 7) 0f e0 79 95 78 9c da 0f e0 eb e1 23 c3 fa df e1 c5 d5 e5 eb 2a ce e9 19 44 4d cd 1e ea d1 2a b5 ┆ y x # * DM * ┆
0x00c20…00c40 e9 73 23 72 d1 2a b7 e9 73 23 72 c1 79 93 4f 78 9a 47 2a d0 e9 eb cd 30 ea 4d 44 c3 21 ea 21 c3 ┆ s#r * s#r y Ox G* 0 MD ! ! ┆
0x00c40…00c60 e9 4e 3a e3 e9 b7 1f 0d c2 45 e0 47 3e 08 96 4f 3a e2 e9 0d ca 5c e0 b7 17 c3 53 e0 80 c9 2a 43 ┆ N: E G> O: Ø S *C┆
0x00c60…00c80 df 11 10 00 19 09 3a dd e9 b7 ca 71 e0 6e 26 00 c9 09 5e 23 56 eb c9 cd 3e e0 4f 06 00 cd 5e e0 ┆ : q n& ^#V > O ^ ┆
0x00c80…00ca0 22 e5 e9 c9 2a e5 e9 7d b4 c9 3a c3 e9 2a e5 e9 29 3d c2 90 e0 22 e7 e9 3a c4 e9 4f 3a e3 e9 a1 ┆" * å : * )= " : O: ┆
0x00ca0…00cc0 b5 6f 22 e5 e9 c9 2a 43 df 11 0c 00 19 c9 2a 43 df 11 0f 00 19 eb 21 11 00 19 c9 cd ae e0 7e 32 ┆ o" *C *C ! ü2┆
0x00cc0…00ce0 e3 e9 eb 7e 32 e1 e9 cd a6 e0 3a c5 e9 a6 32 e2 e9 c9 cd ae e0 3a d5 e9 fe 02 c2 de e0 af 4f 3a ┆ ü2 : 2 : O:┆
0x00ce0…00d00 e3 e9 81 77 eb 3a e1 e9 77 c9 0c 0d c8 7c b7 1f 67 7d 1f 6f c3 eb e0 0e 80 2a b9 e9 af 86 23 0d ┆ w : w ø gå o * # ┆
0x00d00…00d20 c2 fd e0 c9 0c 0d c8 29 c3 05 e1 c5 3a 42 df 4f 21 01 00 cd 04 e1 c1 79 b5 6f 78 b4 67 c9 2a ad ┆ ) :B O! y ox g * ┆
0x00d20…00d40 e9 3a 42 df 4f cd ea e0 7d e6 01 c9 21 ad e9 4e 23 46 cd 0b e1 22 ad e9 2a c8 e9 23 eb 2a b3 e9 ┆ :B O å ! N#F " * # * ┆
0x00d40…00d60 73 23 72 c9 cd 5e e1 11 09 00 19 7e 17 d0 21 0f dc c3 4a df cd 1e e1 c8 21 0d dc c3 4a df 2a b9 ┆s#r ^ ü ! J ! J * ┆
0x00d60…00d80 e9 3a e9 e9 85 6f d0 24 c9 2a 43 df 11 0e 00 19 7e c9 cd 69 e1 36 00 c9 cd 69 e1 f6 80 77 c9 2a ┆ : o $ *C ü i 6 i w *┆
0x00d80…00da0 ea e9 eb 2a b3 e9 7b 96 23 7a 9e c9 cd 7f e1 d8 13 72 2b 73 c9 7b 95 6f 7a 9c 67 c9 0e ff 2a ec ┆ * æ #z r+s æ oz g * ┆
0x00da0…00dc0 e9 eb 2a cc e9 cd 95 e1 d0 c5 cd f7 e0 2a bd e9 eb 2a ec e9 19 c1 0c ca c4 e1 be c8 cd 7f e1 d0 ┆ * * * ┆
0x00dc0…00de0 cd 2c e1 c9 77 c9 cd 9c e1 cd e0 e1 0e 01 cd b8 df c3 da e1 cd e0 e1 cd b2 df 21 b1 e9 c3 e3 e1 ┆ , w ! ┆
0x00de0…00e00 21 b9 e9 4e 23 46 c3 24 ea 2a b9 e9 eb 2a b1 e9 0e 80 c3 4f df 21 ea e9 7e 23 be c0 3c c9 21 ff ┆! N#F $ * * O ! ü# < ! ┆
0x00e00…00e20 (0, 0, 8) ff 22 ea e9 c9 2a c8 e9 eb 2a ea e9 23 22 ea e9 cd 95 e1 d2 19 e2 c3 fe e1 3a ea e9 e6 03 06 05 ┆ " * * #" : ┆
0x00e20…00e40 87 05 c2 20 e2 32 e9 e9 b7 c0 c5 cd c3 df cd d4 e1 c1 c3 9e e1 79 e6 07 3c 5f 57 79 0f 0f 0f e6 ┆ 2 y <_Wy ┆
0x00e40…00e60 1f 4f 78 87 87 87 87 87 b1 4f 78 0f 0f 0f e6 1f 47 2a bf e9 09 7e 07 1d c2 56 e2 c9 d5 cd 35 e2 ┆ Ox Ox G* ü V 5 ┆
0x00e60…00e80 e6 fe c1 b1 0f 15 c2 64 e2 77 c9 cd 5e e1 11 10 00 19 c5 0e 11 d1 0d c8 d5 3a dd e9 b7 ca 88 e2 ┆ d w ^ : ┆
0x00e80…00ea0 c5 e5 4e 06 00 c3 8e e2 0d c5 4e 23 46 e5 79 b0 ca 9d e2 2a c6 e9 7d 91 7c 98 d4 5c e2 e1 23 c1 ┆ N N#F y * å ø Ø # ┆
0x00ea0…00ec0 c3 75 e2 2a c6 e9 0e 03 cd ea e0 23 44 4d 2a bf e9 36 00 23 0b 78 b1 c2 b1 e2 2a ca e9 eb 2a bf ┆ u * #DM* 6 # x * * ┆
0x00ec0…00ee0 e9 73 23 72 cd a1 df 2a b3 e9 36 03 23 36 00 cd fe e1 0e ff cd 05 e2 cd f5 e1 c8 cd 5e e1 3e e5 ┆ s#r * 6 #6 ^ > ┆
0x00ee0…00f00 be ca d2 e2 3a 41 df be c2 f6 e2 23 7e d6 24 c2 f6 e2 3d 32 45 df 0e 01 cd 6b e2 cd 8c e1 c3 d2 ┆ :A #ü $ =2E k ┆
0x00f00…00f20 e2 3a d4 e9 c3 01 df c5 f5 3a c5 e9 2f 47 79 a0 4f f1 a0 91 e6 1f c1 c9 3e ff 32 d4 e9 21 d8 e9 ┆ : : /Gy O > 2 ! ┆
0x00f20…00f40 71 2a 43 df 22 d9 e9 cd fe e1 cd a1 df 0e 00 cd 05 e2 cd f5 e1 ca 94 e3 2a d9 e9 eb 1a fe e5 ca ┆q*C " * ┆
0x00f40…00f60 4a e3 d5 cd 7f e1 d1 d2 94 e3 cd 5e e1 3a d8 e9 4f 06 00 79 b7 ca 83 e3 1a fe 3f ca 7c e3 78 fe ┆J ^ : O y ? ø x ┆
0x00f60…00f80 0d ca 7c e3 fe 0c 1a ca 73 e3 96 e6 7f c2 2d e3 c3 7c e3 c5 4e cd 07 e3 c1 c2 2d e3 13 23 04 0d ┆ ø s - ø N - # ┆
0x00f80…00fa0 c3 53 e3 3a ea e9 e6 03 32 45 df 21 d4 e9 7e 17 d0 af 77 c9 cd fe e1 3e ff c3 01 df cd 54 e1 0e ┆ S : 2E ! ü w > T ┆
0x00fa0…00fc0 0c cd 18 e3 cd f5 e1 c8 cd 44 e1 cd 5e e1 36 e5 0e 00 cd 6b e2 cd c6 e1 cd 2d e3 c3 a4 e3 50 59 ┆ D ^ 6 k - PY┆
0x00fc0…00fe0 79 b0 ca d1 e3 0b d5 c5 cd 35 e2 1f d2 ec e3 c1 d1 2a c6 e9 7b 95 7a 9c d2 f4 e3 13 c5 d5 42 4b ┆y 5 * æ z BK┆
0x00fe0…01000 cd 35 e2 1f d2 ec e3 d1 c1 c3 c0 e3 17 3c cd 64 e2 e1 d1 c9 79 b0 c2 c0 e3 21 00 00 c9 0e 00 1e ┆ 5 < d y ! ┆
0x01000…01020 (0, 0, 9) 20 d5 06 00 2a 43 df 09 eb cd 5e e1 c1 cd 4f df cd c3 df c3 c6 e1 cd 54 e1 0e 0c cd 18 e3 2a 43 ┆ *C ^ O T *C┆
0x01020…01040 df 7e 11 10 00 19 77 cd f5 e1 c8 cd 44 e1 0e 10 1e 0c cd 01 e4 cd 2d e3 c3 27 e4 0e 0c cd 18 e3 ┆ ü w D - ' ┆
0x01040…01060 cd f5 e1 c8 0e 00 1e 0c cd 01 e4 cd 2d e3 c3 40 e4 0e 0f cd 18 e3 cd f5 e1 c8 cd a6 e0 7e f5 e5 ┆ - @ ü ┆
0x01060…01080 cd 5e e1 eb 2a 43 df 0e 20 d5 cd 4f df cd 78 e1 d1 21 0c 00 19 4e 21 0f 00 19 46 e1 f1 77 79 be ┆ ^ *C O x ! N! F wy ┆
0x01080…010a0 78 ca 8b e4 3e 00 da 8b e4 3e 80 2a 43 df 11 0f 00 19 77 c9 7e 23 b6 2b c0 1a 77 13 23 1a 77 1b ┆x > > *C w ü# + w # w ┆
0x010a0…010c0 2b c9 af 32 45 df 32 ea e9 32 eb e9 cd 1e e1 c0 cd 69 e1 e6 80 c0 0e 0f cd 18 e3 cd f5 e1 c8 01 ┆+ 2E 2 2 i ┆
0x010c0…010e0 10 00 cd 5e e1 09 eb 2a 43 df 09 0e 10 3a dd e9 b7 ca e8 e4 7e b7 1a c2 db e4 77 b7 c2 e1 e4 7e ┆ ^ *C : ü w ü┆
0x010e0…01100 12 be c2 1f e5 c3 fd e4 cd 94 e4 eb cd 94 e4 eb 1a be c2 1f e5 13 23 1a be c2 1f e5 0d 13 23 0d ┆ # # ┆
0x01100…01120 c2 cd e4 01 ec ff 09 eb 09 1a be da 17 e5 77 01 03 00 09 eb 09 7e 12 3e ff 32 d2 e9 c3 10 e4 21 ┆ w ü > 2 !┆
0x01120…01140 45 df 35 c9 cd 54 e1 2a 43 df e5 21 ac e9 22 43 df 0e 01 cd 18 e3 cd f5 e1 e1 22 43 df c8 eb 21 ┆E 5 T *C ! "C "C !┆
0x01140…01160 0f 00 19 0e 11 af 77 23 0d c2 46 e5 21 0d 00 19 77 cd 8c e1 cd fd e3 c3 78 e1 af 32 d2 e9 cd a2 ┆ w# F ! w x 2 ┆
0x01160…01180 e4 cd f5 e1 c8 2a 43 df 01 0c 00 09 7e 3c e6 1f 77 ca 83 e5 47 3a c5 e9 a0 21 d2 e9 a6 ca 8e e5 ┆ *C ü< w G: ! ┆
0x01180…011a0 c3 ac e5 01 02 00 09 34 7e e6 0f ca b6 e5 0e 0f cd 18 e3 cd f5 e1 c2 ac e5 3a d3 e9 3c ca b6 e5 ┆ 4ü : < ┆
0x011a0…011c0 cd 24 e5 cd f5 e1 ca b6 e5 c3 af e5 cd 5a e4 cd bb e0 af c3 01 df cd 05 df c3 78 e1 3e 01 32 d5 ┆ $ Z x > 2 ┆
0x011c0…011e0 e9 3e ff 32 d3 e9 cd bb e0 3a e3 e9 21 e1 e9 be da e6 e5 fe 80 c2 fb e5 cd 5a e5 af 32 e3 e9 3a ┆ > 2 : ! Z 2 :┆
0x011e0…01200 45 df b7 c2 fb e5 cd 77 e0 cd 84 e0 ca fb e5 cd 8a e0 cd d1 df cd b2 df c3 d2 e0 c3 05 df 3e 01 ┆E w > ┆
0x01200…01220 (0, 0, 10) 32 d5 e9 3e 00 32 d3 e9 cd 54 e1 2a 43 df cd 47 e1 cd bb e0 3a e3 e9 fe 80 d2 05 df cd 77 e0 cd ┆2 > 2 T *C G : w ┆
0x01220…01240 84 e0 0e 00 c2 6e e6 cd 3e e0 32 d7 e9 01 00 00 b7 ca 3b e6 4f 0b cd 5e e0 44 4d cd be e3 7d b4 ┆ n > 2 ; O ^ DM å ┆
0x01240…01260 c2 48 e6 3e 02 c3 01 df 22 e5 e9 eb 2a 43 df 01 10 00 09 3a dd e9 b7 3a d7 e9 ca 64 e6 cd 64 e1 ┆ H > " *C : : d d ┆
0x01260…01280 73 c3 6c e6 4f 06 00 09 09 73 23 72 0e 02 3a 45 df b7 c0 c5 cd 8a e0 3a d5 e9 3d 3d c2 bb e6 c1 ┆s l O s#r :E : == ┆
0x01280…012a0 c5 79 3d 3d c2 bb e6 e5 2a b9 e9 57 77 23 14 f2 8c e6 cd e0 e1 2a e7 e9 0e 02 22 e5 e9 c5 cd d1 ┆ y== * Ww# * " ┆
0x012a0…012c0 df c1 cd b8 df 2a e5 e9 0e 00 3a c4 e9 47 a5 b8 23 c2 9a e6 e1 22 e5 e9 cd da e1 cd d1 df c1 c5 ┆ * : G # " ┆
0x012c0…012e0 cd b8 df c1 3a e3 e9 21 e1 e9 be da d2 e6 77 34 0e 02 0d 0d c2 df e6 f5 cd 69 e1 e6 7f 77 f1 fe ┆ : ! w4 i w ┆
0x012e0…01300 7f c2 00 e7 3a d5 e9 fe 01 c2 00 e7 cd d2 e0 cd 5a e5 21 45 df 7e b7 c2 fe e6 3d 32 e3 e9 36 00 ┆ : Z !E ü =2 6 ┆
0x01300…01320 c3 d2 e0 af 32 d5 e9 c5 2a 43 df eb 21 21 00 19 7e e6 7f f5 7e 17 23 7e 17 e6 1f 4f 7e 1f 1f 1f ┆ 2 *C !! ü ü #ü Oü ┆
0x01320…01340 1f e6 0f 47 f1 23 6e 2c 2d 2e 06 c2 8b e7 21 20 00 19 77 21 0c 00 19 79 96 c2 47 e7 21 0e 00 19 ┆ G #n,-. ! w! y G ! ┆
0x01340…01360 78 96 e6 7f ca 7f e7 c5 d5 cd a2 e4 d1 c1 2e 03 3a 45 df 3c ca 84 e7 21 0c 00 19 71 21 0e 00 19 ┆x . :E < ! q! ┆
0x01360…01380 70 cd 51 e4 3a 45 df 3c c2 7f e7 c1 c5 2e 04 0c ca 84 e7 cd 24 e5 2e 05 3a 45 df 3c ca 84 e7 c1 ┆p Q :E < . $ . :E < ┆
0x01380…013a0 af c3 01 df e5 cd 69 e1 36 c0 e1 c1 7d 32 45 df c3 78 e1 0e ff cd 03 e7 cc c1 e5 c9 0e 00 cd 03 ┆ i 6 å2E x ┆
0x013a0…013c0 e7 cc 03 e6 c9 eb 19 4e 06 00 21 0c 00 19 7e 0f e6 80 81 4f 3e 00 88 47 7e 0f e6 0f 80 47 21 0e ┆ N ! ü O> Gü G! ┆
0x013c0…013e0 00 19 7e 87 87 87 87 f5 80 47 f5 e1 7d e1 b5 e6 01 c9 0e 0c cd 18 e3 2a 43 df 11 21 00 19 e5 72 ┆ ü G å *C ! r┆
0x013e0…01400 23 72 23 72 cd f5 e1 ca 0c e8 cd 5e e1 11 0f 00 cd a5 e7 e1 e5 5f 79 96 23 78 9e 23 7b 9e da 06 ┆#r#r ^ _y #x #æ ┆
0x01400…01420 (1, 1, 1) e8 73 2b 70 2b 71 cd 2d e3 c3 e4 e7 e1 c9 2a 43 df 11 20 00 cd a5 e7 21 21 00 19 71 23 70 23 77 ┆ s+p+q - *C !! q#p#w┆
0x01420…01440 c9 2a af e9 3a 42 df 4f cd ea e0 e5 eb cd 59 df e1 cc 47 df 7d 1f d8 2a af e9 4d 44 cd 0b e1 22 ┆ * :B O Y G å * MD "┆
0x01440…01460 af e9 c3 a3 e2 3a d6 e9 21 42 df be c8 77 c3 21 e8 3e ff 32 de e9 2a 43 df 7e e6 1f 3d 32 d6 e9 ┆ : !B w ! > 2 *C ü =2 ┆
0x01460…01480 fe 1e d2 75 e8 3a 42 df 32 df e9 7e 32 e0 e9 e6 e0 77 cd 45 e8 3a 41 df 2a 43 df b6 77 c9 3e 22 ┆ u :B 2 ü2 w E :A *C w >"┆
0x01480…014a0 c3 01 df 21 00 00 22 ad e9 22 af e9 af 32 42 df 21 80 00 22 b1 e9 cd da e1 c3 21 e8 cd 72 e1 cd ┆ ! " " 2B ! " ! r ┆
0x014a0…014c0 51 e8 c3 51 e4 cd 51 e8 c3 a2 e4 0e 00 eb 7e fe 3f ca c2 e8 cd a6 e0 7e fe 3f c4 72 e1 cd 51 e8 ┆Q Q Q ü ? ü ? r Q ┆
0x014c0…014e0 0e 0f cd 18 e3 c3 e9 e1 2a d9 e9 22 43 df cd 51 e8 cd 2d e3 c3 e9 e1 cd 51 e8 cd 9c e3 c3 01 e3 ┆ * "C Q - Q ┆
0x014e0…01500 cd 51 e8 c3 bc e5 cd 51 e8 c3 fe e5 cd 72 e1 cd 51 e8 c3 24 e5 cd 51 e8 cd 16 e4 c3 01 e3 2a af ┆ Q Q r Q $ Q * ┆
0x01500…01520 e9 c3 29 e9 3a 42 df c3 01 df eb 22 b1 e9 c3 da e1 2a bf e9 c3 29 e9 2a ad e9 c3 29 e9 cd 51 e8 ┆ ) :B " * ) * ) Q ┆
0x01520…01540 cd 3b e4 c3 01 e3 2a bb e9 22 45 df c9 3a d6 e9 fe ff c2 3b e9 3a 41 df c3 01 df e6 1f 32 41 df ┆ ; * "E : ; :A 2A ┆
0x01540…01560 c9 cd 51 e8 c3 93 e7 cd 51 e8 c3 9c e7 cd 51 e8 c3 d2 e7 2a 43 df 7d 2f 5f 7c 2f 2a af e9 a4 57 ┆ Q Q Q *C å/_ø/* W┆
0x01560…01580 7d a3 5f 2a ad e9 eb 22 af e9 7d a3 6f 7c a2 67 22 ad e9 c9 3a de e9 b7 ca 91 e9 2a 43 df 36 00 ┆å _* " å oø g" : *C 6 ┆
0x01580…015a0 3a e0 e9 b7 ca 91 e9 77 3a df e9 32 d6 e9 cd 45 e8 2a 0f df f9 2a 45 df 7d 44 c9 cd 51 e8 3e 02 ┆: w: 2 E * *E åD Q > ┆
0x015a0…015c0 32 d5 e9 0e 00 cd 07 e7 cc 03 e6 c9 e5 00 00 00 00 80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆2 ┆
0x015c0…015e0 00 00 00 00 00 00 00 00 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…]
0x01600…01620 (1, 1, 2) e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0x7f…]
0x02600…02620 (1, 1, 10) 00 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 ┆ ┆
0x02620…02640 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 ┆ ┆
[…0xe…]
0x02800…02820 (2, 0, 1) [0, 'PPAS.COM', 0, 128, 'xl=00', 'bc=00', 'xh=00', 'rc=80', '0-0-0-0-0-0-0-0-0-0-0', [2, 0, 3, 0, 4, 0, 5, 0, 6, 0, 7, 0, 8, 0, 9, 0]]
0x02820…02840 [0, 'PPAS.COM', 1, 94, 'xl=01', 'bc=00', 'xh=00', 'rc=5e', '0-0-0-0-0-0-0-0-0-0-0', [10, 0, 11, 0, 12, 0, 13, 0, 14, 0, 15, 0, 0, 0, 0, 0]]
0x02840…02860 [0, 'INSTALL.TRM', 0, 11, 'xl=00', 'bc=00', 'xh=00', 'rc=0b', '0-0-0-0-0-0-0-0-0-0-0', [16, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02860…02880 [0, 'BREV1.PAS', 0, 27, 'xl=00', 'bc=00', 'xh=00', 'rc=1b', '0-0-0-0-0-0-0-0-0-0-0', [18, 0, 19, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02880…028a0 [0, 'ADDITION.PAS', 0, 9, 'xl=00', 'bc=00', 'xh=00', 'rc=09', '0-0-0-0-0-0-0-0-0-0-0', [1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x028a0…028c0 [0, 'INSTALL.COM', 0, 128, 'xl=00', 'bc=00', 'xh=00', 'rc=80', '0-0-0-0-0-0-0-0-0-0-0', [22, 0, 23, 0, 162, 0, 163, 0, 164, 0, 165, 0, 166, 0, 167, 0]]
0x028c0…028e0 [0, 'AEOEAA.PAS', 0, 12, 'xl=00', 'bc=00', 'xh=00', 'rc=0c', '0-0-0-0-0-0-0-0-0-0-0', [20, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x028e0…02900 [0, 'BAGFRA.PAS', 0, 3, 'xl=00', 'bc=00', 'xh=00', 'rc=03', '0-0-0-0-0-0-0-0-0-0-0', [21, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02900…02920 [0, 'BAGSIDE.PAS', 0, 11, 'xl=00', 'bc=00', 'xh=00', 'rc=0b', '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]]
0x02920…02940 [0, 'BIBLIOT.PAS', 0, 9, 'xl=00', 'bc=00', 'xh=00', 'rc=09', '0-0-0-0-0-0-0-0-0-0-0', [25, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02940…02960 [0, 'BININSRT.PAS', 0, 14, 'xl=00', 'bc=00', 'xh=00', 'rc=0e', '0-0-0-0-0-0-0-0-0-0-0', [26, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02960…02980 [0, 'BINOM1.PAS', 0, 5, 'xl=00', 'bc=00', 'xh=00', 'rc=05', '0-0-0-0-0-0-0-0-0-0-0', [27, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02980…029a0 [0, 'BINOM2.PAS', 0, 4, 'xl=00', 'bc=00', 'xh=00', 'rc=04', '0-0-0-0-0-0-0-0-0-0-0', [28, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x029a0…029c0 [0, 'BINOM3.PAS', 0, 4, 'xl=00', 'bc=00', 'xh=00', 'rc=04', '0-0-0-0-0-0-0-0-0-0-0', [29, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x029c0…029e0 [0, 'BINOM4.PAS', 0, 6, 'xl=00', 'bc=00', 'xh=00', 'rc=06', '0-0-0-0-0-0-0-0-0-0-0', [30, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x029e0…02a00 [0, 'BINTERN.PAS', 0, 7, 'xl=00', 'bc=00', 'xh=00', 'rc=07', '0-0-0-0-0-0-0-0-0-0-0', [31, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02a00…02a20 (2, 0, 2) [0, 'NAVNSOEG.PAS', 0, 19, 'xl=00', 'bc=00', 'xh=00', 'rc=13', '0-0-0-0-0-0-0-0-0-0-0', [125, 0, 126, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02a00…02c00 DataBlock {»ADDITION.PAS«}
0x02a20…02a40 [0, 'NAVNSORT.PAS', 0, 12, 'xl=00', 'bc=00', 'xh=00', 'rc=0c', '0-0-0-0-0-0-0-0-0-0-0', [127, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02a40…02a60 [0, 'NYGAARD.PAS', 0, 11, 'xl=00', 'bc=00', 'xh=00', 'rc=0b', '0-0-0-0-0-0-0-0-0-0-0', [128, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02a60…02a80 [0, 'ORDHYP.PAS', 0, 34, 'xl=00', 'bc=00', 'xh=00', 'rc=22', '0-0-0-0-0-0-0-0-0-0-0', [129, 0, 130, 0, 131, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02a80…02aa0 [0, 'OVERF_1.PAS', 0, 31, 'xl=00', 'bc=00', 'xh=00', 'rc=1f', '0-0-0-0-0-0-0-0-0-0-0', [132, 0, 133, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02aa0…02ac0 [0, 'OVERF_2.PAS', 0, 30, 'xl=00', 'bc=00', 'xh=00', 'rc=1e', '0-0-0-0-0-0-0-0-0-0-0', [134, 0, 135, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02ac0…02ae0 [0, 'PAKKEPST.PAS', 0, 9, 'xl=00', 'bc=00', 'xh=00', 'rc=09', '0-0-0-0-0-0-0-0-0-0-0', [136, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02ae0…02b00 [0, 'PALINDR.PAS', 0, 4, 'xl=00', 'bc=00', 'xh=00', 'rc=04', '0-0-0-0-0-0-0-0-0-0-0', [137, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02b00…02b20 [0, 'PANT.PAS', 0, 19, 'xl=00', 'bc=00', 'xh=00', 'rc=13', '0-0-0-0-0-0-0-0-0-0-0', [138, 0, 139, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02b20…02b40 [0, 'PERSONER.PAS', 0, 78, 'xl=00', 'bc=00', 'xh=00', 'rc=4e', '0-0-0-0-0-0-0-0-0-0-0', [140, 0, 141, 0, 142, 0, 143, 0, 144, 0, 0, 0, 0, 0, 0, 0]]
0x02b40…02b60 [0, 'POST1.PAS', 0, 8, 'xl=00', 'bc=00', 'xh=00', 'rc=08', '0-0-0-0-0-0-0-0-0-0-0', [145, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02b60…02b80 [0, 'POSTKOPI.PAS', 0, 48, 'xl=00', 'bc=00', 'xh=00', 'rc=30', '0-0-0-0-0-0-0-0-0-0-0', [146, 0, 147, 0, 148, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02b80…02ba0 [0, 'POST_ANT.PAS', 0, 40, 'xl=00', 'bc=00', 'xh=00', 'rc=28', '0-0-0-0-0-0-0-0-0-0-0', [149, 0, 150, 0, 151, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02ba0…02bc0 [0, 'PREDEF.PAS', 0, 6, 'xl=00', 'bc=00', 'xh=00', 'rc=06', '0-0-0-0-0-0-0-0-0-0-0', [152, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02bc0…02be0 [0, 'PRIMFORD.PAS', 0, 7, 'xl=00', 'bc=00', 'xh=00', 'rc=07', '0-0-0-0-0-0-0-0-0-0-0', [153, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02be0…02c00 [0, 'PRIMTAL.PAS', 0, 9, 'xl=00', 'bc=00', 'xh=00', 'rc=09', '0-0-0-0-0-0-0-0-0-0-0', [154, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02c00…02c20 (2, 0, 3) 50 52 4f 47 52 41 4d 20 61 64 64 69 74 69 6f 6e 3b 0d 0a 0d 0a 20 20 56 41 52 0d 0a 20 20 20 20 ┆PROGRAM addition; VAR ┆
0x02c20…02c40 67 72 61 64 2c 20 78 2c 20 79 2c 20 74 61 65 6c 6c 65 72 2c 20 73 75 6d 2c 20 69 20 3a 20 49 4e ┆grad, x, y, taeller, sum, i : IN┆
0x02c40…02c60 54 45 47 45 52 3b 0d 0a 20 20 20 20 63 68 20 3a 20 43 48 41 52 3b 0d 0a 20 20 0d 0a 20 20 42 45 ┆TEGER; ch : CHAR; BE┆
0x02c60…02c80 47 49 4e 0d 0a 20 20 20 20 52 41 4e 44 4f 4d 49 5a 45 3b 0d 0a 20 20 20 20 52 45 50 45 41 54 0d ┆GIN RANDOMIZE; REPEAT ┆
0x02c80…02ca0 0a 20 20 20 20 20 20 57 52 49 54 45 28 43 4c 52 48 4f 4d 29 3b 0d 0a 20 20 20 20 20 20 57 52 49 ┆ WRITE(CLRHOM); WRI┆
0x02ca0…02cc0 54 45 4c 4e 28 27 41 44 44 49 54 49 4f 4e 53 4f 50 47 41 56 45 52 27 29 3b 0d 0a 20 20 20 20 20 ┆TELN('ADDITIONSOPGAVER'); ┆
0x02cc0…02ce0 20 57 52 49 54 45 28 27 49 6e 64 74 61 73 74 20 73 76 7b 72 68 65 64 73 67 72 61 64 20 28 31 20 ┆ WRITE('Indtast sværhedsgrad (1 ┆
0x02ce0…02d00 2d 20 31 30 29 3a 20 27 29 3b 0d 0a 20 20 20 20 20 20 52 45 50 45 41 54 0d 0a 20 20 20 20 20 20 ┆- 10): '); REPEAT ┆
0x02d00…02d20 20 20 52 45 41 44 4c 4e 28 67 72 61 64 29 3b 0d 0a 20 20 20 20 20 20 55 4e 54 49 4c 20 28 31 20 ┆ READLN(grad); UNTIL (1 ┆
0x02d20…02d40 3c 3d 20 67 72 61 64 29 20 41 4e 44 20 28 67 72 61 64 20 3c 3d 20 31 30 29 3b 0d 0a 20 20 20 20 ┆<= grad) AND (grad <= 10); ┆
0x02d40…02d60 20 20 74 61 65 6c 6c 65 72 20 3a 3d 20 30 3b 0d 0a 20 20 20 20 20 20 46 4f 52 20 69 20 3a 3d 20 ┆ taeller := 0; FOR i := ┆
0x02d60…02d80 31 20 54 4f 20 31 30 20 44 4f 0d 0a 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 ┆1 TO 10 DO BEGIN ┆
0x02d80…02da0 20 20 20 20 20 78 20 3a 3d 20 52 41 4e 44 4f 4d 28 31 30 20 2a 20 53 51 52 28 67 72 61 64 29 29 ┆ x := RANDOM(10 * SQR(grad))┆
0x02da0…02dc0 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 79 20 3a 3d 20 52 41 4e 44 4f 4d 28 31 30 20 2a 20 53 51 ┆; y := RANDOM(10 * SQ┆
0x02dc0…02de0 52 28 67 72 61 64 29 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 78 2c 20 27 20 ┆R(grad)); WRITE(x, ' ┆
0x02de0…02e00 2b 20 27 2c 20 79 2c 20 27 20 3d 20 27 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 52 45 41 44 4c ┆+ ', y, ' = '); READL┆
0x02e00…02e20 (2, 0, 4) [0, 'BINTRAE1.PAS', 0, 32, 'xl=00', 'bc=00', 'xh=00', 'rc=20', '0-0-0-0-0-0-0-0-0-0-0', [32, 0, 33, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02e20…02e40 [0, 'BINTRAE2.PAS', 0, 33, 'xl=00', 'bc=00', 'xh=00', 'rc=21', '0-0-0-0-0-0-0-0-0-0-0', [34, 0, 35, 0, 36, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02e40…02e60 [0, 'BISEC.PAS', 0, 14, 'xl=00', 'bc=00', 'xh=00', 'rc=0e', '0-0-0-0-0-0-0-0-0-0-0', [37, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02e60…02e80 [0, 'BOLDSPIL.PAS', 0, 9, 'xl=00', 'bc=00', 'xh=00', 'rc=09', '0-0-0-0-0-0-0-0-0-0-0', [38, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02e80…02ea0 [0, 'BRIDGE1.PAS', 0, 24, 'xl=00', 'bc=00', 'xh=00', 'rc=18', '0-0-0-0-0-0-0-0-0-0-0', [39, 0, 40, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02ea0…02ec0 [0, 'BRIDGE2.PAS', 0, 26, 'xl=00', 'bc=00', 'xh=00', 'rc=1a', '0-0-0-0-0-0-0-0-0-0-0', [41, 0, 42, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02ec0…02ee0 [0, 'BUBBLE2.PAS', 0, 11, 'xl=00', 'bc=00', 'xh=00', 'rc=0b', '0-0-0-0-0-0-0-0-0-0-0', [43, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02ee0…02f00 [0, 'BUBBLE3.PAS', 0, 11, 'xl=00', 'bc=00', 'xh=00', 'rc=0b', '0-0-0-0-0-0-0-0-0-0-0', [44, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02f00…02f20 [0, 'CELSIUS.PAS', 0, 5, 'xl=00', 'bc=00', 'xh=00', 'rc=05', '0-0-0-0-0-0-0-0-0-0-0', [45, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02f20…02f40 [0, 'CHECK1.PAS', 0, 14, 'xl=00', 'bc=00', 'xh=00', 'rc=0e', '0-0-0-0-0-0-0-0-0-0-0', [46, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02f40…02f60 [0, 'CHECK2.PAS', 0, 6, 'xl=00', 'bc=00', 'xh=00', 'rc=06', '0-0-0-0-0-0-0-0-0-0-0', [47, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02f60…02f80 [0, 'CHECK3.PAS', 0, 6, 'xl=00', 'bc=00', 'xh=00', 'rc=06', '0-0-0-0-0-0-0-0-0-0-0', [48, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02f80…02fa0 [0, 'CPR.PAS', 0, 26, 'xl=00', 'bc=00', 'xh=00', 'rc=1a', '0-0-0-0-0-0-0-0-0-0-0', [49, 0, 50, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02fa0…02fc0 [0, 'CPRDATO.PAS', 0, 11, 'xl=00', 'bc=00', 'xh=00', 'rc=0b', '0-0-0-0-0-0-0-0-0-0-0', [51, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02fc0…02fe0 [0, 'CPRDATO2.PAS', 0, 15, 'xl=00', 'bc=00', 'xh=00', 'rc=0f', '0-0-0-0-0-0-0-0-0-0-0', [52, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02fe0…03000 [0, 'CPRNUMRE.PAS', 0, 8, 'xl=00', 'bc=00', 'xh=00', 'rc=08', '0-0-0-0-0-0-0-0-0-0-0', [53, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x03000…03200 (2, 0, 5) DataBlock {»ADDITION.PAS«}
0x03200…03400 (2, 0, 6) DataBlock {»PPAS.COM«}
0x03400…03420 (2, 0, 7) [0, 'CRAPS2.PAS', 0, 15, 'xl=00', 'bc=00', 'xh=00', 'rc=0f', '0-0-0-0-0-0-0-0-0-0-0', [54, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x03420…03440 [0, 'DEMOLEN.PAS', 0, 5, 'xl=00', 'bc=00', 'xh=00', 'rc=05', '0-0-0-0-0-0-0-0-0-0-0', [55, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x03440…03460 [0, 'DEMO_STR.PAS', 0, 4, 'xl=00', 'bc=00', 'xh=00', 'rc=04', '0-0-0-0-0-0-0-0-0-0-0', [56, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x03460…03480 [0, 'DIVISION.PAS', 0, 25, 'xl=00', 'bc=00', 'xh=00', 'rc=19', '0-0-0-0-0-0-0-0-0-0-0', [57, 0, 58, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x03480…034a0 [0, 'DIVISOR.PAS', 0, 5, 'xl=00', 'bc=00', 'xh=00', 'rc=05', '0-0-0-0-0-0-0-0-0-0-0', [59, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x034a0…034c0 [0, 'DIVISOR2.PAS', 0, 5, 'xl=00', 'bc=00', 'xh=00', 'rc=05', '0-0-0-0-0-0-0-0-0-0-0', [60, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x034c0…034e0 [0, 'DOBBELT.PAS', 0, 61, 'xl=00', 'bc=00', 'xh=00', 'rc=3d', '0-0-0-0-0-0-0-0-0-0-0', [61, 0, 62, 0, 63, 0, 64, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x034e0…03500 [0, 'ENGSTIL.PAS', 0, 8, 'xl=00', 'bc=00', 'xh=00', 'rc=08', '0-0-0-0-0-0-0-0-0-0-0', [65, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x03500…03520 [0, 'ERATOSTH.PAS', 0, 10, 'xl=00', 'bc=00', 'xh=00', 'rc=0a', '0-0-0-0-0-0-0-0-0-0-0', [66, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x03520…03540 [0, 'FAHRENHE.PAS', 0, 5, 'xl=00', 'bc=00', 'xh=00', 'rc=05', '0-0-0-0-0-0-0-0-0-0-0', [67, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x03540…03560 [0, 'FAKTURA.PAS', 0, 22, 'xl=00', 'bc=00', 'xh=00', 'rc=16', '0-0-0-0-0-0-0-0-0-0-0', [68, 0, 69, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x03560…03580 [0, 'FIBO.PAS', 0, 3, 'xl=00', 'bc=00', 'xh=00', 'rc=03', '0-0-0-0-0-0-0-0-0-0-0', [70, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x03580…035a0 [0, 'FIBOFORH.PAS', 0, 4, 'xl=00', 'bc=00', 'xh=00', 'rc=04', '0-0-0-0-0-0-0-0-0-0-0', [71, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x035a0…035c0 [0, 'FIBONAC1.PAS', 0, 4, 'xl=00', 'bc=00', 'xh=00', 'rc=04', '0-0-0-0-0-0-0-0-0-0-0', [72, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x035c0…035e0 [0, 'FIBONAC2.PAS', 0, 6, 'xl=00', 'bc=00', 'xh=00', 'rc=06', '0-0-0-0-0-0-0-0-0-0-0', [73, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x035e0…03600 [0, 'FILKOPI.PAS', 0, 8, 'xl=00', 'bc=00', 'xh=00', 'rc=08', '0-0-0-0-0-0-0-0-0-0-0', [74, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x03600…03680 (2, 0, 8) DataBlock {»ADDITION.PAS«}
0x03680…036a0 c3 b6 02 c3 8c 02 c1 00 82 00 43 00 c4 00 c5 00 c1 00 c5 d5 e5 dd e5 6f 26 00 e5 cd b6 00 dd e1 ┆ C o& ┆
0x036a0…036c0 e1 d1 c1 c9 c5 d5 e5 dd e5 cd b3 00 7d 18 ef e3 7e 23 b7 28 05 cd 92 03 18 f6 e3 c9 cd af 03 0d ┆ å ü# ( ┆
0x036c0…036e0 0a 00 c9 0e ff 18 0c 0e 00 ed 5b e2 00 13 1a fe 20 28 fa d5 21 65 00 06 03 cd 52 04 d1 1a cd 7d ┆ Æ ( !e R å┆
0x036e0…03700 04 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 0c 0d 28 ┆ A8 Q0 G : x @ !Ø w# (┆
0x03700…03720 19 1a cd 59 04 20 13 fe 3f 28 0f fe 2a 28 0b fe 2e 28 07 06 0b cd 4e 04 18 10 06 08 cd 35 04 1a ┆ Y ?( *( .( N 5 ┆
0x03720…03740 fe 2e 20 06 13 06 03 cd 35 04 21 68 00 06 18 36 00 23 10 fb c9 1a 0c 0d 28 08 fe 3f 28 09 fe 2a ┆ . 5 !h 6 # ( ?( *┆
0x03740…03760 28 0b cd 59 04 28 0b 77 23 13 10 e9 c9 13 3e 3f 18 02 3e 20 77 23 10 fc c9 cd 7d 04 fe 20 38 0d ┆( Y ( w# >? > w# å 8 ┆
0x03760…03780 e5 c5 21 6f 04 01 0e 00 ed b1 c1 e1 c9 bf c9 20 2e 2c 3b 3a 3d 3f 2a 5b 5d 3c 3e 7b 7d fe 61 d8 ┆ !o .,;:=?*ÆÅ<>æå a ┆
0x03780…037a0 fe 7b d0 d6 20 c9 7c cd 8b 04 7d f5 1f 1f 1f 1f cd 94 04 f1 e6 0f c6 90 27 ce 40 27 c3 92 03 c5 ┆ æ ø å ' @' ┆
0x037a0…037c0 d5 e5 2a d6 01 7c b5 28 05 cd 24 03 18 28 21 42 01 cd fe 04 3a 55 01 b7 28 03 7b 5a 57 3a 56 01 ┆ * ø ( $ (!B :U ( æZW:V ┆
0x037c0…037e0 f5 82 cd da 04 21 4b 01 cd fe 04 f1 83 cd da 04 21 50 01 cd fe 04 e1 d1 c1 c9 21 57 01 4e 0c 0d ┆ !K !P !W N ┆
0x037e0…03800 ca 92 03 21 fb 04 06 00 09 41 2b 0e 2f 0c 96 30 fc 86 f5 79 cd 92 03 f1 10 f0 c9 01 0a 64 46 04 ┆ ! A+ / 0 y dF ┆
0x03800…03a00 (2, 0, 9) DataBlock {»PPAS.COM«}
0x03a00…03a20 (2, 0, 10) [0, 'FLADE.PAS', 0, 6, 'xl=00', 'bc=00', 'xh=00', 'rc=06', '0-0-0-0-0-0-0-0-0-0-0', [75, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x03a20…03a40 [0, 'FLETNING.PAS', 0, 36, 'xl=00', 'bc=00', 'xh=00', 'rc=24', '0-0-0-0-0-0-0-0-0-0-0', [76, 0, 77, 0, 78, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x03a40…03a60 [0, 'FORKORT.PAS', 0, 8, 'xl=00', 'bc=00', 'xh=00', 'rc=08', '0-0-0-0-0-0-0-0-0-0-0', [79, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x03a60…03a80 [0, 'GAETTEGN.PAS', 0, 16, 'xl=00', 'bc=00', 'xh=00', 'rc=10', '0-0-0-0-0-0-0-0-0-0-0', [80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x03a80…03aa0 [0, 'GRUNDTAL.PAS', 0, 23, 'xl=00', 'bc=00', 'xh=00', 'rc=17', '0-0-0-0-0-0-0-0-0-0-0', [81, 0, 82, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x03aa0…03ac0 [0, 'HARMONIC.PAS', 0, 3, 'xl=00', 'bc=00', 'xh=00', 'rc=03', '0-0-0-0-0-0-0-0-0-0-0', [83, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x03ac0…03ae0 [0, 'HASHTAB.PAS', 0, 30, 'xl=00', 'bc=00', 'xh=00', 'rc=1e', '0-0-0-0-0-0-0-0-0-0-0', [84, 0, 85, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x03ae0…03b00 [0, 'HENTPOST.PAS', 0, 11, 'xl=00', 'bc=00', 'xh=00', 'rc=0b', '0-0-0-0-0-0-0-0-0-0-0', [86, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x03b00…03b20 [0, 'IDEAL.PAS', 0, 33, 'xl=00', 'bc=00', 'xh=00', 'rc=21', '0-0-0-0-0-0-0-0-0-0-0', [87, 0, 88, 0, 89, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x03b20…03b40 [0, 'IDENTIFI.PAS', 0, 26, 'xl=00', 'bc=00', 'xh=00', 'rc=1a', '0-0-0-0-0-0-0-0-0-0-0', [90, 0, 91, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x03b40…03b60 [0, 'INTERHYP.PAS', 0, 14, 'xl=00', 'bc=00', 'xh=00', 'rc=0e', '0-0-0-0-0-0-0-0-0-0-0', [92, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x03b60…03b80 [0, 'INVERS.PAS', 0, 10, 'xl=00', 'bc=00', 'xh=00', 'rc=0a', '0-0-0-0-0-0-0-0-0-0-0', [93, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x03b80…03ba0 [0, 'JOURNAL.PAS', 0, 8, 'xl=00', 'bc=00', 'xh=00', 'rc=08', '0-0-0-0-0-0-0-0-0-0-0', [94, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x03ba0…03bc0 [0, 'KAEDE2.PAS', 0, 38, 'xl=00', 'bc=00', 'xh=00', 'rc=26', '0-0-0-0-0-0-0-0-0-0-0', [95, 0, 96, 0, 97, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x03bc0…03be0 [0, 'KAEDE3.PAS', 0, 33, 'xl=00', 'bc=00', 'xh=00', 'rc=21', '0-0-0-0-0-0-0-0-0-0-0', [98, 0, 99, 0, 100, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x03be0…03c00 [0, 'KAEDE4.PAS', 0, 42, 'xl=00', 'bc=00', 'xh=00', 'rc=2a', '0-0-0-0-0-0-0-0-0-0-0', [101, 0, 102, 0, 103, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x03c00…03e00 (3, 1, 1) DataBlock {»PPAS.COM«}
[…0x32…]
0x0a200…0a400 (8, 0, 2) DataBlock {»INSTALL.TRM«}
0x0a400…0a420 (8, 0, 3) 28 00 20 00 13 44 69 67 69 74 61 6c 20 52 61 69 6e 62 6f 77 20 31 30 30 00 00 00 00 00 00 00 00 ┆( Digital Rainbow 100 ┆
0x0a420…0a440 00 00 00 00 09 4f 73 62 6f 72 6e 65 20 31 20 26 20 45 78 65 63 75 74 69 76 65 00 00 00 00 00 00 ┆ Osborne 1 & Executive ┆
0x0a440…0a460 00 00 00 00 13 4e 43 52 20 44 65 63 69 73 69 6f 6e 20 4d 61 74 65 20 56 6f 63 68 72 6f 6d 65 20 ┆ NCR Decision Mate Vochrome ┆
0x0a460…0a480 43 52 54 29 1c 52 65 67 6e 65 63 65 6e 74 72 61 6c 65 6e 20 52 43 2d 37 30 32 2f 52 43 2d 37 30 ┆CRT) Regnecentralen RC-702/RC-70┆
0x0a480…0a4a0 33 33 33 00 15 52 65 67 6e 65 63 65 6e 74 72 61 6c 65 6e 20 52 43 2d 38 35 35 2f 52 43 2d 37 30 ┆333 Regnecentralen RC-855/RC-70┆
0x0a4a0…0a4c0 33 33 33 00 1f 49 43 4c 20 43 6f 6d 65 74 2c 20 48 48 20 4d 50 53 2d 33 30 30 30 20 28 46 33 20 ┆333 ICL Comet, HH MPS-3000 (F3 ┆
0x0a4c0…0a4e0 52 4f 4d 29 1f 49 43 4c 20 43 6f 6d 65 74 2c 20 48 48 20 4d 50 53 2d 33 30 30 30 20 28 46 34 20 ┆ROM) ICL Comet, HH MPS-3000 (F4 ┆
0x0a4e0…0a500 52 4f 4d 29 1f 49 43 4c 20 43 6f 6d 65 74 2c 20 48 48 20 4d 50 53 2d 33 30 30 30 20 28 46 36 20 ┆ROM) ICL Comet, HH MPS-3000 (F6 ┆
0x0a500…0a520 52 4f 4d 29 0f 47 65 6d 69 6e 69 20 47 61 6c 61 78 79 20 32 00 00 00 00 00 00 00 00 00 00 00 00 ┆ROM) Gemini Galaxy 2 ┆
0x0a520…0a540 00 00 00 00 0b 45 50 53 4f 4e 20 51 58 2d 31 30 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ EPSON QX-10 ┆
0x0a540…0a560 00 00 00 00 09 44 45 43 20 56 54 2d 35 32 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ DEC VT-52 ┆
0x0a560…0a580 00 00 00 00 0c 53 68 61 72 70 20 4d 5a 2d 38 30 42 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ Sharp MZ-80B ┆
0x0a580…0a5a0 00 00 00 00 0d 4e 65 77 42 72 61 69 6e 20 43 50 2f 4d 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ NewBrain CP/M ┆
0x0a5a0…0a5c0 00 00 00 00 0d 50 68 69 6c 69 70 73 20 32 30 30 30 43 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ Philips 2000C ┆
0x0a5c0…0a5e0 00 00 00 00 11 41 64 6c 65 72 20 41 6c 70 68 61 74 72 6f 6e 69 63 00 00 00 00 00 00 00 00 00 00 ┆ Adler Alphatronic ┆
0x0a5e0…0a600 00 00 00 00 0c 53 70 65 63 74 72 61 56 69 64 65 6f 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ SpectraVideo ┆
0x0a600…0a800 (8, 0, 4) DataBlock {»PPAS.COM«}
0x0a800…0aa00 (8, 0, 5) DataBlock {»INSTALL.TRM«}
0x0aa00…0aa20 (8, 0, 6) 00 00 00 00 18 49 43 4c 20 43 6f 6d 65 74 20 28 46 34 20 2b 20 43 68 61 72 67 65 6e 29 46 34 20 ┆ ICL Comet (F4 + Chargen)F4 ┆
0x0aa20…0aa40 52 4f 4d 29 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ROM) ┆
0x0aa40…0aa60 00 00 00 00 00 00 00 00 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…]
0x0aa80…0aaa0 00 00 00 00 00 50 68 69 6c 69 70 73 20 32 30 30 30 43 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ Philips 2000C ┆
[…0x2…]
0x0aae0…0ab00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x8…]
0x0ac00…0ae00 (8, 0, 7) DataBlock {»PPAS.COM«}
0x0ae00…0af80 (8, 0, 8) DataBlock {»INSTALL.TRM«}
0x0af80…0afa0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 e8 03 ┆ ┆
0x0afa0…0afc0 10 01 7f 12 02 11 7f 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x0afc0…0afe0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0xd…]
0x0b180…0b1a0 26 4f 0d 0a 35 35 49 6c 6c 65 67 61 6c 20 63 68 61 72 61 63 74 65 72 20 69 6e 26 4a 0d 0a 35 36 ┆&O 55Illegal character in&J 56┆
0x0b1a0…0b1c0 27 5b 27 26 45 0d 0a 35 37 27 5d 27 26 45 0d 0a 35 38 27 3a 27 26 45 0d 0a 35 39 27 3b 27 26 45 ┆'Æ'&E 57'Å'&E 58':'&E 59';'&E┆
0x0b1c0…0b1e0 0d 0a 36 30 26 53 26 54 0d 0a 36 31 27 2c 27 26 45 0d 0a 36 32 27 28 27 26 45 0d 0a 36 33 27 29 ┆ 60&S&T 61','&E 62'('&E 63')┆
0x0b1e0…0b200 27 26 45 0d 0a 36 34 27 3d 27 26 45 0d 0a 36 35 27 3a 3d 27 26 45 0d 0a 36 36 4f 46 26 45 0d 0a ┆'&E 64'='&E 65':='&E 66OF&E ┆
0x0b200…0b300 (8, 0, 10) DataBlock {»PPAS.COM«}
0x0b300…0b320 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 ┆ ┆
[…0x7…]
0x0b400…0b420 (9, 1, 1) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x4…]
0x0b4a0…0b4c0 13 4e 43 52 20 44 65 63 69 73 69 6f 6e 20 4d 61 74 65 20 56 6f 63 68 72 6f 6d 65 20 43 52 54 29 ┆ NCR Decision Mate Vochrome CRT)┆
0x0b4c0…0b4e0 4f 18 02 1b 3d 00 00 00 00 00 00 00 3b 00 00 00 00 48 00 00 00 00 20 00 02 1b 3a 20 20 1b 4a 00 ┆O = ; H : J ┆
0x0b4e0…0b500 00 02 1b 59 00 00 00 00 00 00 02 1b 54 00 00 00 00 00 00 02 1b 45 4c 00 00 00 00 00 02 1b 52 4d ┆ Y T EL RM┆
0x0b500…0b520 00 00 00 00 00 02 1b 29 6d 00 00 00 00 00 02 1b 28 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ )m ( ┆
0x0b520…0b540 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x5…]
0x0b5e0…0b600 00 00 00 00 00 00 00 00 00 00 00 00 e8 03 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x0b600…0b800 (9, 1, 2) DataBlock {»BREV1.PAS«}
[…0x1…]
0x0ba00…0ba20 (9, 1, 4) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x6…]
0x0bae0…0bb00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 1c 52 65 67 6e 65 63 65 6e 74 72 61 6c 65 6e 20 52 43 ┆ Regnecentralen RC┆
0x0bb00…0bb20 2d 37 30 32 2f 52 43 2d 37 30 33 33 33 00 4f 19 01 06 3d 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆-702/RC-70333 O = ┆
0x0bb20…0bb40 00 00 00 ff 20 00 01 0c 00 00 00 00 00 00 00 01 1f 00 00 00 00 00 00 00 01 1e 00 00 00 00 00 00 ┆ ┆
0x0bb40…0bb60 00 01 01 00 00 00 00 00 00 00 01 02 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x0bb60…0bb80 00 00 00 00 00 00 00 00 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…]
0x0bba0…0bbc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ec 01 0d 02 00 00 00 00 3e 13 32 88 f7 32 ┆ > 2 2┆
0x0bbc0…0bbe0 c8 f7 3e 04 32 98 f7 32 d8 f7 3e 05 32 9a f7 32 da f7 3e 18 32 8a f7 32 ca f7 c9 3e 08 32 88 f7 ┆ > 2 2 > 2 2 > 2 2 > 2 ┆
0x0bbe0…0bc00 32 c8 f7 3e 18 32 98 f7 32 d8 f7 3e 1a 32 9a f7 32 da f7 3e 0a 32 8a f7 32 ca f7 c9 00 00 00 00 ┆2 > 2 2 > 2 2 > 2 2 ┆
0x0bc00…0be00 (9, 1, 5) DataBlock {»BREV1.PAS«}
[…0x1…]
0x0bf80…0bfa0 20 73 6d 7d 72 65 70 65 72 61 74 69 6f 6e 65 72 20 66 6f 72 20 0d 0a 48 2e 43 2e 20 44 65 73 75 ┆ småreperationer for H.C. Desu┆
0x0bfa0…0bfc0 64 65 6e 20 68 61 72 20 76 69 20 73 74 75 64 65 72 65 6e 64 65 20 20 68 65 72 75 64 65 2c 20 6f ┆den har vi studerende herude, o┆
0x0bfc0…0bfe0 67 20 20 64 65 20 73 6b 61 6c 20 20 6f 67 73 7d 20 68 6a 7b 6c 70 65 73 2e 0d 0a 44 65 72 20 65 ┆g de skal også hjælpes. Der e┆
0x0bfe0…0c000 72 20 6a 6f 20 6c 79 73 20 64 65 72 20 73 6b 61 6c 20 73 7b 74 74 65 73 20 6f 70 2c 20 6f 67 20 ┆r jo lys der skal sættes op, og ┆
0x0c000…0c200 (9, 1, 7) DataBlock {»BREV1.PAS«}
[…0x1…]
0x0c400…0c420 (9, 1, 9) 6d 65 67 65 74 20 61 6e 64 65 74 2e 20 46 6f 72 20 61 74 20 76 69 20 6f 76 65 72 2d 0d 0a 68 6f ┆meget andet. For at vi over- ho┆
0x0c420…0c440 76 65 64 65 74 20 6b 61 61 6e 20 6b 6f 6d 6d 65 20 69 67 61 6e 67 2c 20 68 61 72 20 6a 65 67 20 ┆vedet kaan komme igang, har jeg ┆
0x0c440…0c460 61 66 20 6d 69 6e 65 20 20 65 67 6e 65 20 6d 69 64 6c 65 72 20 73 74 69 6c 6c 65 74 20 65 6e 0d ┆af mine egne midler stillet en ┆
0x0c460…0c480 0a 6b 6f 6d 70 6c 65 74 20 43 50 2f 4d 20 63 6f 6d 70 75 74 65 72 20 74 69 6c 20 66 72 69 74 20 ┆ komplet CP/M computer til frit ┆
0x0c480…0c4a0 62 72 75 67 20 20 68 65 72 75 64 65 2e 20 44 65 74 20 65 72 20 6a 6f 20 20 6b 6c 61 72 74 2c 20 ┆brug herude. Det er jo klart, ┆
0x0c4a0…0c4c0 61 74 0d 0a 64 65 74 20 6a 6f 20 65 72 20 65 74 20 6d 65 67 65 74 20 74 69 64 73 72 7c 76 65 6e ┆at det jo er et meget tidsrøven┆
0x0c4c0…0c4e0 64 65 20 61 72 62 65 6a 64 65 2c 20 6e 7d 72 20 61 6c 6c 65 20 75 64 6b 6f 6d 6d 65 6e 64 65 20 ┆de arbejde, når alle udkommende ┆
0x0c4e0…0c500 20 64 61 74 61 0d 0a 66 72 61 20 76 7b 6b 73 74 6b 61 6d 6d 65 72 65 74 20 73 6b 61 6c 20 62 65 ┆ data fra vækstkammeret skal be┆
0x0c500…0c520 68 61 6e 64 6c 65 73 2e 20 49 61 6c 74 20 65 72 20 64 65 72 20 20 38 20 64 61 74 61 6b 61 6e 61 ┆handles. Ialt er der 8 datakana┆
0x0c520…0c540 6c 65 72 2e 20 44 65 72 0d 0a 73 6b 61 6c 20 67 65 72 6e 65 20 6d 7d 6c 65 73 20 68 76 65 72 74 ┆ler. Der skal gerne måles hvert┆
0x0c540…0c560 20 33 30 20 73 65 6b 75 6e 64 2c 20 6f 67 20 69 61 6c 74 20 65 72 20 20 64 65 72 20 39 39 20 20 ┆ 30 sekund, og ialt er der 99 ┆
0x0c560…0c580 73 63 61 6e 6e 69 6e 67 65 72 2e 0d 0a 44 65 74 74 65 20 67 69 76 65 72 20 6f 6d 6b 72 69 6e 67 ┆scanninger. Dette giver omkring┆
0x0c580…0c5a0 20 35 30 30 30 20 65 6e 6b 65 6c 74 74 61 6c 20 66 6f 72 75 64 65 6e 20 6b 6f 6d 6d 61 65 72 2c ┆ 5000 enkelttal foruden kommaer,┆
0x0c5a0…0c5c0 20 64 65 72 20 75 64 65 6e 20 62 72 75 67 0d 0a 61 66 20 63 6f 6d 70 75 74 65 72 20 73 6b 75 6c ┆ der uden brug af computer skul┆
0x0c5c0…0c5e0 6c 65 20 68 7d 6e 64 69 6e 64 74 61 73 74 65 73 20 70 7d 20 20 65 6e 20 20 72 65 67 6e 65 6d 61 ┆le håndindtastes på en regnema┆
0x0c5e0…0c600 73 6b 69 6e 65 2e 20 44 65 73 75 64 65 6e 20 65 72 0d 0a 6d 65 67 65 74 20 73 74 6f 72 65 20 6d ┆skine. Desuden er meget store m┆
0x0c600…0c800 (9, 1, 10) DataBlock {»BREV1.PAS«}
0x0c800…0ca00 (10, 0, 1) DataBlock {»AEOEAA.PAS«}
0x0ca00…0cb80 (10, 0, 2) DataBlock {»BAGFRA.PAS«}
0x0cb80…0cba0 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 ┆ ┆
[…0x3…]
0x0cc00…0cc20 (10, 0, 3) 50 52 4f 47 52 41 4d 20 62 61 67 66 72 61 3b 0d 0a 0d 0a 20 20 54 59 50 45 0d 0a 20 20 20 20 73 ┆PROGRAM bagfra; TYPE s┆
0x0cc20…0cc40 74 72 33 30 20 3d 20 53 54 52 49 4e 47 28 2e 33 30 2e 29 3b 0d 0a 20 20 0d 0a 20 20 56 41 52 0d ┆tr30 = STRING(.30.); VAR ┆
0x0cc40…0cc60 0a 20 20 20 20 73 31 2c 20 73 32 20 3a 20 73 74 72 33 30 3b 0d 0a 20 20 20 20 69 20 3a 20 49 4e ┆ s1, s2 : str30; i : IN┆
0x0cc60…0cc80 54 45 47 45 52 3b 0d 0a 20 20 20 0d 0a 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 57 52 49 54 45 28 ┆TEGER; BEGIN WRITE(┆
0x0cc80…0cca0 43 4c 52 48 4f 4d 2c 20 27 49 6e 64 74 61 73 74 20 65 6e 20 74 65 6b 73 74 3a 20 27 29 3b 0d 0a ┆CLRHOM, 'Indtast en tekst: '); ┆
0x0cca0…0ccc0 20 20 20 20 42 55 46 4c 45 4e 20 3a 3d 20 33 30 3b 0d 0a 20 20 20 20 52 45 41 44 4c 4e 28 73 31 ┆ BUFLEN := 30; READLN(s1┆
0x0ccc0…0cce0 29 3b 0d 0a 20 20 20 20 73 32 20 3a 3d 20 27 27 3b 0d 0a 20 20 20 20 46 4f 52 20 69 20 3a 3d 20 ┆); s2 := ''; FOR i := ┆
0x0cce0…0cd00 4c 45 4e 28 73 31 29 20 44 4f 57 4e 54 4f 20 31 20 44 4f 0d 0a 20 20 20 20 20 20 73 32 20 3a 3d ┆LEN(s1) DOWNTO 1 DO s2 :=┆
0x0cd00…0cd20 20 73 32 20 2b 20 73 31 28 2e 69 2e 29 3b 0d 0a 20 20 20 20 57 52 49 54 45 4c 4e 28 27 46 4f 52 ┆ s2 + s1(.i.); WRITELN('FOR┆
0x0cd20…0cd40 46 52 41 3a 20 27 2c 20 73 31 29 3b 0d 0a 20 20 20 20 57 52 49 54 45 4c 4e 28 27 42 41 47 46 52 ┆FRA: ', s1); WRITELN('BAGFR┆
0x0cd40…0cd60 41 3a 20 27 2c 20 73 32 29 3b 0d 0a 20 20 45 4e 44 2e 0d 0a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆A: ', s2); END. ┆
0x0cd60…0cd80 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 ┆ ┆
0x0cd80…0cda0 66 6f 72 2c 20 68 76 61 64 20 20 76 69 20 20 69 67 72 75 6e 64 65 6e 20 6c 61 76 65 72 2e 20 50 ┆for, hvad vi igrunden laver. P┆
0x0cda0…0cdc0 65 72 73 6f 6e 6c 69 67 74 20 65 72 0d 0a 6a 65 67 20 64 61 20 69 6e 74 65 72 65 73 73 65 72 65 ┆ersonligt er jeg da interessere┆
0x0cdc0…0cde0 74 2e 20 44 65 74 20 76 61 72 20 6d 7d 73 6b 65 20 6f 67 73 7d 20 67 6f 64 74 20 61 74 20 76 69 ┆t. Det var måske også godt at vi┆
0x0cde0…0ce00 20 74 61 6c 74 65 20 6c 69 64 74 20 6d 65 64 0d 0a 68 69 6e 61 6e 64 65 6e 2c 20 66 6f 72 20 74 ┆ talte lidt med hinanden, for t┆
0x0ce00…0d000 (10, 0, 4) DataBlock {»AEOEAA.PAS«}
0x0d000…0d020 (10, 0, 5) c3 f5 1e 00 00 a7 9b a4 87 87 87 87 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x0d020…0d040 13 44 69 67 69 74 61 6c 20 52 61 69 6e 62 6f 77 20 31 30 30 00 00 00 00 00 00 00 00 00 00 00 00 ┆ Digital Rainbow 100 ┆
0x0d040…0d060 50 18 01 9b 00 00 00 00 00 00 00 01 3b 00 00 00 01 48 00 00 00 00 01 02 04 9b 48 9b 4a 00 00 00 ┆P ; H H J ┆
0x0d060…0d080 00 02 9b 4a 00 00 00 00 00 00 02 9b 4b 00 00 00 00 00 00 02 9b 4c 00 00 00 00 00 00 02 9b 4d 00 ┆ J K L M ┆
0x0d080…0d0a0 00 00 00 00 00 03 9b 37 6d 00 00 00 00 00 00 00 00 00 00 00 00 00 00 03 9b 31 6d 00 00 00 00 00 ┆ 7m 1m ┆
0x0d0a0…0d0c0 00 00 00 00 00 00 00 00 00 03 9b 34 6d 00 00 00 00 00 00 00 00 00 00 00 00 00 00 03 9b 35 6d 00 ┆ 4m 5m ┆
0x0d0c0…0d0e0 00 00 00 00 00 00 00 00 00 00 00 00 00 02 9b 6d 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ m ┆
0x0d0e0…0d100 00 00 00 00 00 00 00 00 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…]
0x0d160…0d180 00 00 00 00 00 00 00 00 00 00 00 00 3a ed 00 b7 3e 01 20 14 2a d8 01 7c b5 28 05 cd 24 03 18 06 ┆ : > * ø ( $ ┆
0x0d180…0d1a0 11 03 00 cd 20 03 e6 01 6f 26 00 c9 21 ed 00 7e 36 00 b7 20 12 2a da 01 7c b5 28 05 cd 24 03 18 ┆ o& ! ü6 * ø ( $ ┆
0x0d1a0…0d1c0 06 11 06 00 cd 20 03 6f 26 00 3a ef 00 b7 c8 7d fe 03 c0 c3 15 1e e1 c1 e5 2a dc 01 7c b5 28 05 ┆ o& : å * ø ( ┆
0x0d1c0…0d1e0 cd 24 03 18 06 11 09 00 cd 20 03 3a ef 00 b7 c8 21 ee 00 7e 34 e6 03 c0 cd 6c 02 7c b5 c8 cd 8c ┆ $ : ! ü4 l ø ┆
0x0d1e0…0d200 02 7d fe 13 28 a6 32 ed 00 c9 e1 c1 e5 2a de 01 7c b5 c2 24 03 11 0c 00 18 26 e1 c1 e5 2a e0 01 ┆ å ( 2 * ø $ & * ┆
0x0d200…0d400 (10, 0, 6) DataBlock {»INSTALL.COM«}
0x0d400…0d600 (10, 0, 7) DataBlock {»AEOEAA.PAS«}
0x0d600…0d620 (10, 0, 8) 7c b5 c2 24 03 11 0f 00 18 16 2a e2 01 7c b5 28 05 cd 24 03 18 06 11 12 00 cd 20 03 6f 26 00 c9 ┆ø $ * ø ( $ o& ┆
0x0d620…0d640 2a 01 00 19 e9 22 e2 00 78 32 ef 00 79 b7 28 0b 3e c3 32 38 00 21 f8 1d 22 39 00 2a e4 01 7c b5 ┆* " x2 y ( > 28 ! "9 * ø ┆
0x0d640…0d660 c4 24 03 21 6e 03 11 b0 00 01 18 00 ed b0 21 86 03 11 c8 00 01 0c 00 ed b0 af 6f 67 32 ed 00 32 ┆ $ !n ! og2 2┆
0x0d660…0d680 e0 00 22 e4 00 22 e6 00 3e 7e 32 e1 00 c9 c3 6c 02 c3 8c 02 c3 b6 02 c3 ea 02 c3 fa 02 c3 0a 03 ┆ " " >ü2 l ┆
0x0d680…0d6a0 c3 b6 02 c3 8c 02 c1 00 82 00 43 00 c4 00 c5 00 c1 00 c5 d5 e5 dd e5 6f 26 00 e5 cd b6 00 dd e1 ┆ C o& ┆
0x0d6a0…0d6c0 e1 d1 c1 c9 c5 d5 e5 dd e5 cd b3 00 7d 18 ef e3 7e 23 b7 28 05 cd 92 03 18 f6 e3 c9 cd af 03 0d ┆ å ü# ( ┆
0x0d6c0…0d6e0 0a 00 c9 0e ff 18 0c 0e 00 ed 5b e2 00 13 1a fe 20 28 fa d5 21 65 00 06 03 cd 52 04 d1 1a cd 7b ┆ Æ ( !e R æ┆
0x0d6e0…0d700 04 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 0c 0d 28 ┆ A8 Q0 G : x @ !Ø w# (┆
0x0d700…0d720 19 1a cd 59 04 20 13 fe 3f 28 0f fe 2a 28 0b fe 2e 28 07 06 0b cd 4e 04 18 10 06 08 cd 35 04 1a ┆ Y ?( *( .( N 5 ┆
0x0d720…0d740 fe 2e 20 06 13 06 03 cd 35 04 21 68 00 06 18 36 00 23 10 fb c9 1a 0c 0d 28 08 fe 3f 28 09 fe 2a ┆ . 5 !h 6 # ( ?( *┆
0x0d740…0d760 28 0b cd 59 04 28 0b 77 23 13 10 e9 c9 13 3e 3f 18 02 3e 20 77 23 10 fc c9 cd 7b 04 fe 20 38 0d ┆( Y ( w# >? > w# æ 8 ┆
0x0d760…0d780 e5 c5 21 6f 04 01 0c 00 ed b1 c1 e1 c9 bf c9 20 2e 2c 3b 3a 3d 3f 2a 5b 5d 3c 3e fe 61 d8 fe 7b ┆ !o .,;:=?*ÆÅ<> a æ┆
0x0d780…0d7a0 d0 d6 20 c9 7c cd 89 04 7d f5 1f 1f 1f 1f cd 92 04 f1 e6 0f c6 90 27 ce 40 27 c3 92 03 c5 d5 e5 ┆ ø å ' @' ┆
0x0d7a0…0d7c0 2a d6 01 7c b5 28 05 cd 24 03 18 28 21 42 01 cd fc 04 3a 55 01 b7 28 03 7b 5a 57 3a 56 01 f5 82 ┆* ø ( $ (!B :U ( æZW:V ┆
0x0d7c0…0d7e0 cd d8 04 21 4b 01 cd fc 04 f1 83 cd d8 04 21 50 01 cd fc 04 e1 d1 c1 c9 21 57 01 4e 0c 0d ca 92 ┆ !K !P !W N ┆
0x0d7e0…0d800 03 21 f9 04 06 00 09 41 2b 0e 2f 0c 96 30 fc 86 f5 79 cd 92 03 f1 10 f0 c9 01 0a 64 46 04 05 c8 ┆ ! A+ / 0 y dF ┆
0x0d800…0da00 (10, 0, 9) DataBlock {»INSTALL.COM«}
0x0da00…0da20 (10, 0, 10) 61 74 0d 0a 64 65 74 20 6a 6f 20 65 72 20 65 74 20 6d 65 67 65 74 20 74 69 64 73 72 7c 76 65 6e ┆at det jo er et meget tidsrøven┆
0x0da20…0da40 64 65 20 61 72 62 65 6a 64 65 2c 20 6e 7d 72 20 61 6c 6c 65 20 75 64 6b 6f 6d 6d 65 6e 64 65 20 ┆de arbejde, når alle udkommende ┆
0x0da40…0da60 20 64 61 74 61 0d 0a 66 72 61 20 76 7b 6b 73 74 6b 61 6d 6d 65 72 65 74 20 73 6b 61 6c 20 62 65 ┆ data fra vækstkammeret skal be┆
0x0da60…0da80 68 61 6e 64 6c 65 73 2e 20 49 61 6c 74 20 65 72 20 64 65 72 20 20 38 20 64 61 74 61 6b 61 6e 61 ┆handles. Ialt er der 8 datakana┆
0x0da80…0daa0 6c 65 72 2e 20 44 65 72 0d 0a 73 6b 61 6c 20 67 65 72 6e 65 20 6d 7d 6c 65 73 20 68 76 65 72 74 ┆ler. Der skal gerne måles hvert┆
0x0daa0…0dac0 20 33 30 20 73 65 6b 75 6e 64 2c 20 6f 67 20 69 61 6c 74 20 65 72 20 20 64 65 72 20 39 39 20 20 ┆ 30 sekund, og ialt er der 99 ┆
0x0dac0…0dae0 73 63 61 6e 6e 69 6e 67 65 72 2e 0d 0a 44 65 74 74 65 20 67 69 76 65 72 20 6f 6d 6b 72 69 6e 67 ┆scanninger. Dette giver omkring┆
0x0dae0…0db00 20 35 30 30 30 20 65 6e 6b 65 6c 74 74 61 6c 20 66 6f 72 75 64 65 6e 20 6b 6f 6d 6d 61 65 72 2c ┆ 5000 enkelttal foruden kommaer,┆
0x0db00…0db20 20 64 65 72 20 75 64 65 6e 20 62 72 75 67 0d 0a 61 66 20 63 6f 6d 70 75 74 65 72 20 73 6b 75 6c ┆ der uden brug af computer skul┆
0x0db20…0db40 6c 65 20 68 7d 6e 64 69 6e 64 74 61 73 74 65 73 20 70 7d 20 20 65 6e 20 20 72 65 67 6e 65 6d 61 ┆le håndindtastes på en regnema┆
0x0db40…0db60 73 6b 69 6e 65 2e 20 44 65 73 75 64 65 6e 20 65 72 0d 0a 6d 65 67 65 74 20 73 74 6f 72 65 20 6d ┆skine. Desuden er meget store m┆
0x0db60…0db80 75 6c 69 67 68 65 64 65 72 20 66 6f 72 20 66 65 6a 6c 69 6e 64 74 61 73 74 6e 69 6e 67 65 72 2c ┆uligheder for fejlindtastninger,┆
0x0db80…0dba0 20 6e 7d 72 20 64 65 74 74 65 20 67 7c 72 65 73 20 6d 65 64 0d 0a 68 7d 6e 64 62 65 74 6a 65 6e ┆ når dette gøres med håndbetjen┆
0x0dba0…0dbc0 69 6e 67 2e 20 4d 65 64 20 65 74 20 73 7d 64 61 6e 74 20 70 72 6f 67 72 61 6d 2c 20 6f 67 20 65 ┆ing. Med et sådant program, og e┆
0x0dbc0…0dbe0 6e 20 65 67 6e 65 74 20 63 6f 6d 70 75 74 65 72 20 65 72 20 64 65 74 0d 0a 6f 67 73 7d 20 6d 75 ┆n egnet computer er det også mu┆
0x0dbe0…0dc00 6c 69 67 74 20 61 74 20 66 7d 20 76 69 73 74 20 64 61 74 61 20 73 6f 6d 20 68 69 73 74 6f 67 72 ┆ligt at få vist data som histogr┆
0x0dc00…0de00 (11, 1, 1) DataBlock {»INSTALL.COM«}
[…0x1…]
0x0e000…0e200 (11, 1, 3) DataBlock {»BAGSIDE.PAS«}
0x0e200…0e400 (11, 1, 4) DataBlock {»INSTALL.COM«}
[…0x1…]
0x0e600…0e780 (11, 1, 6) DataBlock {»BAGSIDE.PAS«}
0x0e780…0e7a0 3e 09 3c 57 d5 d9 fd 21 5d 00 dd e5 cd 23 11 dd e1 d1 4f 7a 3c cb 7b 20 10 81 f2 a3 10 fd 36 00 ┆> <W !Å # Oz< æ 6 ┆
0x0e7a0…0e7c0 00 18 0b fe 0c 38 02 3e 0b d5 cd b8 11 d1 cb 78 28 05 3e 2d cd 1d 11 cb 7b 28 03 61 0e 00 cb 79 ┆ 8 > x( >- æ( a y┆
0x0e7c0…0e7e0 28 05 cd 1b 11 18 07 cd 11 11 0d f2 c7 10 7a b7 28 17 3e 2e cd 1d 11 0c 28 06 cd 1b 11 15 20 f7 ┆( z ( >. ( ┆
0x0e7e0…0e800 15 fa e9 10 cd 11 11 18 f7 cb 7b c8 3e 45 cd 1d 11 3e 2b cb 7c 28 06 7c ed 44 67 3e 2d cd 1d 11 ┆ æ >E >+ ø( ø Dg>- ┆
0x0e800…0ea00 (11, 1, 7) DataBlock {»INSTALL.COM«}
0x0ea00…0ec00 (11, 1, 8) DataBlock {»BAGSIDE.PAS«}
0x0ec00…0ec20 (11, 1, 9) 20 20 20 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ ***************************┆
0x0ec20…0ec40 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x0ec40…0ec60 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 20 20 20 20 20 20 20 20 20 20 0d 0a 20 20 ┆**************** ┆
0x0ec60…0ec80 20 20 20 0d 0a 20 20 20 20 20 50 61 73 63 61 6c 0d 0a 20 20 20 20 20 2d 2d 2d 2d 2d 2d 0d 0a 20 ┆ Pascal ------ ┆
0x0ec80…0eca0 20 20 20 20 0d 0a 20 20 20 20 20 45 6e 20 67 72 75 6e 64 6c 7b 67 67 65 6e 64 65 20 69 6e 64 66 ┆ En grundlæggende indf┆
0x0eca0…0ecc0 7c 72 69 6e 67 20 69 20 70 72 6f 67 72 61 6d 6d 65 72 69 6e 67 73 73 70 72 6f 67 65 74 20 50 61 ┆øring i programmeringssproget Pa┆
0x0ecc0…0ece0 73 63 61 6c 20 0d 0a 20 20 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆scal --------------------┆
0x0ece0…0ed00 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 ┆--------------------------------┆
0x0ed00…0ed20 2d 2d 2d 2d 2d 0d 0a 20 20 20 20 20 0d 0a 20 20 20 20 20 69 6e 64 65 68 6f 6c 64 65 72 3a 0d 0a ┆----- indeholder: ┆
0x0ed20…0ed40 20 20 20 20 20 0d 0a 20 20 20 20 20 31 2e 20 20 45 6e 20 6f 6d 68 79 67 67 65 6c 69 67 20 67 65 ┆ 1. En omhyggelig ge┆
0x0ed40…0ed60 6e 6e 65 6d 67 61 6e 67 20 61 66 20 50 6f 6c 79 50 61 73 63 61 6c 27 73 20 65 64 69 74 6f 72 2e ┆nnemgang af PolyPascal's editor.┆
0x0ed60…0ed80 0d 0a 20 20 20 20 20 20 0d 0a 20 20 20 20 20 32 2e 20 20 45 6e 20 67 65 6e 6e 65 6d 67 61 6e 67 ┆ 2. En gennemgang┆
0x0ed80…0eda0 20 61 66 20 70 72 6f 67 72 61 6d 6d 65 72 69 6e 67 20 50 6f 6c 79 50 61 73 63 61 6c 20 28 74 69 ┆ af programmering PolyPascal (ti┆
0x0eda0…0edc0 64 6c 69 67 65 72 65 20 43 4f 4d 50 41 53 20 50 61 73 63 61 6c 29 2c 0d 0a 20 20 20 20 20 20 20 ┆dligere COMPAS Pascal), ┆
0x0edc0…0ede0 20 20 62 65 6c 79 73 74 20 76 65 64 20 6d 61 6e 67 65 20 6b 6f 6d 6d 65 6e 74 65 72 65 64 65 20 ┆ belyst ved mange kommenterede ┆
0x0ede0…0ee00 65 6b 73 65 6d 70 6c 65 72 20 6f 67 20 7c 76 65 6c 73 65 72 2e 0d 0a 20 20 20 20 20 0d 0a 20 20 ┆eksempler og øvelser. ┆
0x0ee00…0f000 (11, 1, 10) DataBlock {»INSTALL.COM«}
0x0f000…0f200 (12, 0, 1) DataBlock {»BIBLIOT.PAS«}
0x0f200…0f400 (12, 0, 2) DataBlock {»BININSRT.PAS«}
[…0x1…]
0x0f500…0f520 20 20 20 20 74 61 62 65 6c 20 3a 20 74 61 62 65 6c 74 79 70 65 3b 0d 0a 20 20 20 20 20 20 20 20 ┆ tabel : tabeltype; ┆
0x0f520…0f540 20 20 0d 0a 20 20 20 20 20 20 20 20 20 20 50 52 4f 43 45 44 55 52 45 20 73 6f 72 74 65 72 28 76 ┆ PROCEDURE sorter(v┆
0x0f540…0f560 65 6e 73 74 72 65 2c 20 68 6f 65 6a 72 65 20 3a 20 49 4e 54 45 47 45 52 3b 0d 0a 20 20 20 20 20 ┆enstre, hoejre : INTEGER; ┆
0x0f560…0f580 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 56 41 52 20 76 65 6b 74 6f 72 ┆ VAR vektor┆
0x0f580…0f5a0 20 3a 20 74 61 62 65 6c 74 79 70 65 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 0d 0a 20 20 20 20 ┆ : tabeltype); ┆
0x0f5a0…0f5c0 20 20 20 20 20 20 20 20 56 41 52 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 61 65 73 74 ┆ VAR naest┆
0x0f5c0…0f5e0 65 2c 20 69 2c 20 6a 2c 20 6d 69 64 74 2c 20 76 2c 20 68 20 3a 20 49 4e 54 45 47 45 52 3b 0d 0a ┆e, i, j, midt, v, h : INTEGER; ┆
0x0f5e0…0f600 20 20 20 20 20 20 20 20 20 20 20 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d ┆ BEGIN ┆
0x0f600…0f800 (12, 0, 4) DataBlock {»BIBLIOT.PAS«}
0x0f800…0fa00 (12, 0, 5) DataBlock {»BININSRT.PAS«}
0x0fa00…0fc00 (12, 0, 6) DataBlock {»BINOM1.PAS«}
0x0fc00…0fc80 (12, 0, 7) DataBlock {»BIBLIOT.PAS«}
0x0fc80…0fca0 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 ┆ ┆
[…0xb…]
0x0fe00…10000 (12, 0, 8) DataBlock {»BININSRT.PAS«}
0x10000…10080 (12, 0, 9) DataBlock {»BINOM1.PAS«}
0x10080…100a0 20 20 20 20 20 20 20 20 45 4e 44 3b 20 28 2a 20 46 4f 52 20 69 20 2a 29 0d 0a 20 20 20 20 20 20 ┆ END; (* FOR i *) ┆
0x100a0…100c0 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 0d 0a 20 20 20 20 20 20 20 20 ┆ END; ┆
0x100c0…100e0 20 20 42 45 47 49 4e 20 28 2a 20 62 69 6e 69 6e 73 72 74 20 2a 29 0d 0a 20 20 20 20 20 20 20 20 ┆ BEGIN (* bininsrt *) ┆
0x100e0…10100 20 20 20 20 57 52 49 54 45 28 43 48 52 28 31 32 29 2c 20 27 54 61 73 74 20 61 6e 74 61 6c 20 28 ┆ WRITE(CHR(12), 'Tast antal (┆
0x10100…10120 6d 61 78 20 31 30 30 30 29 3a 20 27 29 3b 20 52 45 41 44 4c 4e 28 6e 29 3b 0d 0a 20 20 20 20 20 ┆max 1000): '); READLN(n); ┆
0x10120…10140 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 27 46 7c 6c 67 65 6e 64 65 20 74 61 6c 20 76 69 6c ┆ WRITELN('Følgende tal vil┆
0x10140…10160 20 62 6c 69 76 65 20 73 6f 72 74 65 72 65 74 3a 27 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ blive sorteret:'); ┆
0x10160…10180 20 46 4f 52 20 69 20 3a 3d 20 31 20 54 4f 20 6e 20 44 4f 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ FOR i := 1 TO n DO ┆
0x10180…101a0 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 61 62 65 6c 28 ┆ BEGIN tabel(┆
0x101a0…101c0 2e 69 2e 29 20 3a 3d 20 52 41 4e 44 4f 4d 28 6d 61 78 29 20 2b 20 31 3b 0d 0a 20 20 20 20 20 20 ┆.i.) := RANDOM(max) + 1; ┆
0x101c0…101e0 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 74 61 62 65 6c 28 2e 69 2e 29 20 3a 20 35 29 3b ┆ WRITE(tabel(.i.) : 5);┆
0x101e0…10200 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆ END; ┆
0x10200…10220 (12, 0, 10) e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0x6f…]
0x11000…11200 (13, 1, 7) DataBlock {»BINOM2.PAS«}
0x11200…11400 (13, 1, 8) DataBlock {»BINOM3.PAS«}
0x11400…11420 (13, 1, 9) 50 52 4f 47 52 41 4d 20 62 69 6e 6f 6d 33 3b 0d 0a 0d 0a 20 20 56 41 52 0d 0a 20 20 20 20 6e 2c ┆PROGRAM binom3; VAR n,┆
0x11420…11440 20 72 2c 20 67 72 61 65 6e 73 65 20 3a 20 49 4e 54 45 47 45 52 3b 0d 0a 20 20 0d 0a 20 20 46 55 ┆ r, graense : INTEGER; FU┆
0x11440…11460 4e 43 54 49 4f 4e 20 6b 28 6e 2c 20 72 20 3a 20 49 4e 54 45 47 45 52 29 20 3a 20 49 4e 54 45 47 ┆NCTION k(n, r : INTEGER) : INTEG┆
0x11460…11480 45 52 3b 0d 0a 20 20 0d 0a 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 49 46 20 28 6e 20 ┆ER; BEGIN IF (n ┆
0x11480…114a0 3d 20 72 29 20 4f 52 20 28 72 20 3d 20 30 29 0d 0a 20 20 20 20 20 20 20 20 54 48 45 4e 20 6b 20 ┆= r) OR (r = 0) THEN k ┆
0x114a0…114c0 3a 3d 20 31 0d 0a 20 20 20 20 20 20 20 20 45 4c 53 45 20 6b 20 3a 3d 20 6b 28 6e 20 2d 20 31 2c ┆:= 1 ELSE k := k(n - 1,┆
0x114c0…114e0 20 72 29 20 2b 20 6b 28 6e 20 2d 20 31 2c 20 72 20 2d 20 31 29 3b 0d 0a 20 20 20 20 45 4e 44 3b ┆ r) + k(n - 1, r - 1); END;┆
0x114e0…11500 0d 0a 20 20 0d 0a 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 57 52 49 54 45 28 43 4c 52 48 4f 4d 29 ┆ BEGIN WRITE(CLRHOM)┆
0x11500…11520 3b 0d 0a 20 20 20 20 57 52 49 54 45 28 27 54 61 73 74 20 61 6e 74 61 6c 20 6c 69 6e 69 65 72 3a ┆; WRITE('Tast antal linier:┆
0x11520…11540 20 27 29 3b 20 52 45 41 44 4c 4e 28 67 72 61 65 6e 73 65 29 3b 0d 0a 20 20 20 20 46 4f 52 20 6e ┆ '); READLN(graense); FOR n┆
0x11540…11560 20 3a 3d 20 31 20 54 4f 20 67 72 61 65 6e 73 65 20 44 4f 0d 0a 20 20 20 20 20 20 42 45 47 49 4e ┆ := 1 TO graense DO BEGIN┆
0x11560…11580 0d 0a 20 20 20 20 20 20 20 20 46 4f 52 20 72 20 3a 3d 20 30 20 54 4f 20 6e 20 44 4f 0d 0a 20 20 ┆ FOR r := 0 TO n DO ┆
0x11580…115a0 20 20 20 20 20 20 20 20 57 52 49 54 45 28 6b 28 6e 2c 72 29 20 3a 20 34 29 3b 0d 0a 20 20 20 20 ┆ WRITE(k(n,r) : 4); ┆
0x115a0…115c0 20 20 20 20 57 52 49 54 45 4c 4e 3b 0d 0a 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 45 4e 44 2e ┆ WRITELN; END; END.┆
0x115c0…115e0 0d 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 ┆ ┆
0x115e0…11600 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 ┆ ┆
0x11600…11620 (13, 1, 10) e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0xf…]
0x11800…11a00 (14, 0, 1) DataBlock {»BINOM4.PAS«}
0x11a00…11c00 (14, 0, 2) DataBlock {»BINTERN.PAS«}
0x11c00…11c20 (14, 0, 3) 50 52 4f 47 52 41 4d 20 62 69 6e 74 65 72 6e 3b 0d 0a 0d 0a 20 20 43 4f 4e 53 54 0d 0a 20 20 20 ┆PROGRAM bintern; CONST ┆
0x11c20…11c40 20 73 65 72 69 65 6c 61 65 6e 67 64 65 20 3d 20 31 30 3b 0d 0a 20 20 20 20 0d 0a 20 20 54 59 50 ┆ serielaengde = 10; TYP┆
0x11c40…11c60 45 0d 0a 20 20 20 20 61 72 72 20 3d 20 41 52 52 41 59 28 2e 30 20 2e 2e 20 73 65 72 69 65 6c 61 ┆E arr = ARRAY(.0 .. seriela┆
0x11c60…11c80 65 6e 67 64 65 2e 29 20 4f 46 20 49 4e 54 45 47 45 52 3b 0d 0a 20 20 0d 0a 20 20 56 41 52 0d 0a ┆engde.) OF INTEGER; VAR ┆
0x11c80…11ca0 20 20 20 20 74 61 62 65 6c 20 3a 20 61 72 72 3b 0d 0a 20 20 20 20 61 6e 74 61 6c 2c 20 73 65 6b ┆ tabel : arr; antal, sek┆
0x11ca0…11cc0 73 65 72 65 2c 20 6b 61 73 74 2c 20 69 2c 20 6a 20 3a 20 49 4e 54 45 47 45 52 3b 0d 0a 20 20 0d ┆sere, kast, i, j : INTEGER; ┆
0x11cc0…11ce0 0a 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 57 52 49 54 45 28 43 4c 52 48 4f 4d 29 3b 0d 0a 20 20 ┆ BEGIN WRITE(CLRHOM); ┆
0x11ce0…11d00 20 20 57 52 49 54 45 28 27 49 6e 64 74 61 73 74 20 61 6e 74 61 6c 20 73 65 72 69 65 72 3a 20 27 ┆ WRITE('Indtast antal serier: '┆
0x11d00…11d20 29 3b 0d 0a 20 20 20 20 52 45 41 44 4c 4e 28 61 6e 74 61 6c 29 3b 0d 0a 20 20 20 20 52 41 4e 44 ┆); READLN(antal); RAND┆
0x11d20…11d40 4f 4d 49 5a 45 3b 0d 0a 20 20 20 20 46 4f 52 20 69 20 3a 3d 20 30 20 54 4f 20 73 65 72 69 65 6c ┆OMIZE; FOR i := 0 TO seriel┆
0x11d40…11d60 61 65 6e 67 64 65 20 44 4f 0d 0a 20 20 20 20 20 20 74 61 62 65 6c 28 2e 69 2e 29 20 3a 3d 20 30 ┆aengde DO tabel(.i.) := 0┆
0x11d60…11d80 3b 0d 0a 20 20 20 20 46 4f 52 20 69 20 3a 3d 20 31 20 54 4f 20 61 6e 74 61 6c 20 44 4f 0d 0a 20 ┆; FOR i := 1 TO antal DO ┆
0x11d80…11da0 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 73 65 6b 73 65 72 65 20 3a 3d 20 30 ┆ BEGIN seksere := 0┆
0x11da0…11dc0 3b 0d 0a 20 20 20 20 20 20 20 20 46 4f 52 20 6a 20 3a 3d 20 31 20 54 4f 20 73 65 72 69 65 6c 61 ┆; FOR j := 1 TO seriela┆
0x11dc0…11de0 65 6e 67 64 65 20 44 4f 0d 0a 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 ┆engde DO BEGIN ┆
0x11de0…11e00 20 20 20 20 20 20 20 6b 61 73 74 20 3a 3d 20 52 41 4e 44 4f 4d 28 36 29 3b 0d 0a 20 20 20 20 20 ┆ kast := RANDOM(6); ┆
0x11e00…11f00 (14, 0, 4) DataBlock {»BINOM4.PAS«}
0x11f00…11f20 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 ┆ ┆
[…0x7…]
0x12000…12180 (14, 0, 5) DataBlock {»BINTERN.PAS«}
0x12180…121a0 20 20 20 20 20 20 20 50 52 4f 43 45 44 55 52 45 20 69 6e 64 73 61 65 74 28 56 41 52 20 74 72 61 ┆ PROCEDURE indsaet(VAR tra┆
0x121a0…121c0 65 20 3a 20 70 6f 69 6e 74 65 72 3b 20 6e 79 74 6f 72 64 20 3a 20 73 74 72 33 30 29 3b 0d 0a 20 ┆e : pointer; nytord : str30); ┆
0x121c0…121e0 20 20 20 20 20 20 20 20 20 20 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 56 41 52 0d 0a 20 20 ┆ VAR ┆
0x121e0…12200 20 20 20 20 20 20 20 20 20 20 20 20 63 68 20 3a 20 43 48 41 52 3b 0d 0a 20 20 20 20 20 20 20 20 ┆ ch : CHAR; ┆
0x12200…12400 (14, 0, 6) DataBlock {»BINTRAE1.PAS«}
0x12400…12420 (14, 0, 7) e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0xf…]
0x12600…12620 (14, 0, 8) 20 20 20 20 20 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 20 28 2a 20 69 6e 64 ┆ BEGIN (* ind┆
0x12620…12640 73 61 65 74 20 2a 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 74 72 61 65 20 3d ┆saet *) IF trae =┆
0x12640…12660 20 4e 49 4c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 20 28 2a 20 6f 70 ┆ NIL THEN (* op┆
0x12660…12680 72 65 74 20 6e 79 20 66 6f 72 67 72 65 6e 69 6e 67 20 2a 29 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆ret ny forgrening *) ┆
0x12680…126a0 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ BEGIN ┆
0x126a0…126c0 20 20 20 4e 45 57 28 74 72 61 65 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ NEW(trae); ┆
0x126c0…126e0 20 20 20 57 49 54 48 20 74 72 61 65 5e 20 44 4f 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ WITH trae^ DO ┆
0x126e0…12700 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ BEGIN ┆
0x12700…12720 20 20 20 20 20 20 20 76 65 6e 73 74 72 65 20 3a 3d 20 4e 49 4c 3b 0d 0a 20 20 20 20 20 20 20 20 ┆ venstre := NIL; ┆
0x12720…12740 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 68 6f 65 6a 72 65 20 3a 3d 20 4e 49 4c 3b 0d 0a ┆ hoejre := NIL; ┆
0x12740…12760 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 61 74 61 20 3a 3d 20 ┆ data := ┆
0x12760…12780 6e 79 74 6f 72 64 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 ┆nytord; E┆
0x12780…127a0 4e 44 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 0d 0a 20 20 20 20 20 ┆ND END ┆
0x127a0…127c0 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ELSE ┆
0x127c0…127e0 20 20 20 57 49 54 48 20 74 72 61 65 5e 20 44 4f 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ WITH trae^ DO ┆
0x127e0…12800 20 20 20 20 20 20 49 46 20 6e 79 74 6f 72 64 20 3c 20 64 61 74 61 20 28 2a 20 53 7c 67 20 69 20 ┆ IF nytord < data (* Søg i ┆
0x12800…12a00 (14, 0, 9) DataBlock {»BINTRAE1.PAS«}
0x12a00…12a20 (14, 0, 10) e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0xf…]
0x12c00…12e00 (15, 1, 1) DataBlock {»BINTRAE1.PAS«}
[…0x1…]
0x13000…13200 (15, 1, 3) DataBlock {»BINTRAE2.PAS«}
0x13200…13400 (15, 1, 4) DataBlock {»BINTRAE1.PAS«}
[…0x1…]
0x13600…13800 (15, 1, 6) DataBlock {»BINTRAE2.PAS«}
0x13800…13a00 (15, 1, 7) DataBlock {»BINTRAE1.PAS«}
0x13a00…13c00 (15, 1, 8) DataBlock {»BINTRAE2.PAS«}
[…0x1…]
0x13e00…14000 (15, 1, 10) DataBlock {»BINTRAE1.PAS«}
0x14000…14200 (16, 0, 1) DataBlock {»BINTRAE2.PAS«}
[…0x1…]
0x14280…142a0 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 ┆ ┆
[…0xb…]
0x14400…14420 (16, 0, 3) 20 20 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 ┆ END; END┆
0x14420…14440 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 55 4e 54 49 4c 20 63 68 20 49 4e 20 28 2e 27 41 27 ┆; UNTIL ch IN (.'A'┆
0x14440…14460 2c 20 27 61 27 2e 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 45 4e 44 2e 20 28 2a 20 62 69 6e 74 ┆, 'a'.); END. (* bint┆
0x14460…14480 72 61 65 32 20 2a 29 0d 0a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆rae2 *) ┆
0x14480…144a0 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 ┆ ┆
[…0xb…]
0x14600…14800 (16, 0, 4) DataBlock {»BINTRAE2.PAS«}
0x14800…14820 (16, 0, 5) 50 52 4f 47 52 41 4d 20 62 69 73 65 63 3b 0d 0a 0d 0a 20 20 28 2a 20 49 20 64 65 74 74 65 20 70 ┆PROGRAM bisec; (* I dette p┆
0x14820…14840 72 6f 67 72 61 6d 20 67 65 6e 74 61 67 65 73 20 69 6e 74 65 72 76 61 6c 68 61 6c 76 65 72 69 6e ┆rogram gentages intervalhalverin┆
0x14840…14860 67 65 72 6e 65 20 69 6e 64 74 69 6c 20 2a 29 0d 0a 20 20 28 2a 20 69 6e 74 65 72 76 61 6c 6c 65 ┆gerne indtil *) (* intervalle┆
0x14860…14880 74 73 20 65 6e 64 65 70 75 6e 6b 74 65 72 20 66 61 6c 64 65 72 20 73 61 6d 6d 65 6e 20 28 69 20 ┆ts endepunkter falder sammen (i ┆
0x14880…148a0 64 61 74 61 6d 61 74 65 6e 73 20 20 2a 29 0d 0a 20 20 28 2a 20 69 6e 74 65 72 6e 65 20 72 65 70 ┆datamatens *) (* interne rep┆
0x148a0…148c0 72 7b 73 65 6e 74 61 74 69 6f 6e 20 61 66 20 65 6e 64 65 70 75 6e 6b 74 65 72 6e 65 29 2e 20 20 ┆ræsentation af endepunkterne). ┆
0x148c0…148e0 20 20 20 20 20 20 20 20 20 20 20 2a 29 0d 0a 20 20 28 2a 20 45 6e 20 6d 65 72 65 20 7c 6b 6f 6e ┆ *) (* En mere økon┆
0x148e0…14900 6f 6d 69 73 6b 20 6d 65 74 6f 64 65 20 76 69 6c 6c 65 20 76 7b 72 65 20 61 74 20 67 65 6e 74 61 ┆omisk metode ville være at genta┆
0x14900…14920 67 65 20 68 61 6c 76 65 2d 20 2a 29 0d 0a 20 20 28 2a 20 72 69 6e 67 65 72 6e 65 2c 20 69 6e 64 ┆ge halve- *) (* ringerne, ind┆
0x14920…14940 74 69 6c 20 69 6e 74 65 72 76 61 6c 6c 7b 6e 67 64 65 6e 20 76 61 72 20 6d 69 6e 64 72 65 20 65 ┆til intervallængden var mindre e┆
0x14940…14960 6e 64 20 65 6e 20 20 20 20 2a 29 0d 0a 20 20 28 2a 20 62 65 73 74 65 6d 74 20 74 6f 6c 65 72 65 ┆nd en *) (* bestemt tolere┆
0x14960…14980 6e 63 65 76 7b 72 64 69 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆nceværdi. ┆
0x14980…149a0 20 20 20 20 20 20 20 20 2a 29 0d 0a 20 20 0d 0a 20 20 56 41 52 0d 0a 20 20 20 20 78 2c 20 61 2c ┆ *) VAR x, a,┆
0x149a0…149c0 20 62 2c 20 67 6c 61 2c 20 67 6c 62 2c 20 67 6c 6d 65 6c 6c 65 6d 2c 20 6d 65 6c 6c 65 6d 20 3a ┆ b, gla, glb, glmellem, mellem :┆
0x149c0…149e0 20 52 45 41 4c 3b 0d 0a 20 20 20 20 69 2c 20 6a 2c 20 68 61 6c 76 65 72 69 6e 67 20 3a 20 49 4e ┆ REAL; i, j, halvering : IN┆
0x149e0…14a00 54 45 47 45 52 3b 0d 0a 20 20 20 20 63 68 20 3a 20 43 48 41 52 3b 0d 0a 0d 0a 20 20 46 55 4e 43 ┆TEGER; ch : CHAR; FUNC┆
0x14a00…14c00 (16, 0, 6) DataBlock {»BISEC.PAS«}
0x14c00…14e00 (16, 0, 7) DataBlock {»BINTRAE2.PAS«}
0x14e00…14e20 (16, 0, 8) 54 49 4f 4e 20 66 28 78 20 3a 20 52 45 41 4c 29 20 3a 20 52 45 41 4c 3b 0d 0a 0d 0a 20 20 20 20 ┆TION f(x : REAL) : REAL; ┆
0x14e20…14e40 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 66 20 3a 3d 20 43 4f 53 28 78 29 20 2d 20 78 3b 0d 0a 20 ┆BEGIN f := COS(x) - x; ┆
0x14e40…14e60 20 20 20 45 4e 44 3b 0d 0a 0d 0a 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 57 52 49 54 45 28 43 4c ┆ END; BEGIN WRITE(CL┆
0x14e60…14e80 52 48 4f 4d 29 3b 0d 0a 20 20 20 20 57 52 49 54 45 4c 4e 28 27 4e 75 6c 70 75 6e 6b 74 65 72 20 ┆RHOM); WRITELN('Nulpunkter ┆
0x14e80…14ea0 76 65 64 20 62 69 73 65 63 74 69 6f 6e 27 29 3b 0d 0a 20 20 20 20 57 52 49 54 45 4c 4e 3b 0d 0a ┆ved bisection'); WRITELN; ┆
0x14ea0…14ec0 20 20 20 20 52 45 50 45 41 54 0d 0a 20 20 20 20 20 20 52 45 50 45 41 54 0d 0a 20 20 20 20 20 20 ┆ REPEAT REPEAT ┆
0x14ec0…14ee0 20 20 57 52 49 54 45 28 27 42 65 67 79 6e 64 65 6c 73 65 73 70 75 6e 6b 74 20 69 20 69 6e 74 65 ┆ WRITE('Begyndelsespunkt i inte┆
0x14ee0…14f00 72 76 61 6c 6c 65 74 3a 20 27 29 3b 20 52 45 41 44 4c 4e 28 61 29 3b 0d 0a 20 20 20 20 20 20 20 ┆rvallet: '); READLN(a); ┆
0x14f00…14f20 20 57 52 49 54 45 28 27 53 6c 75 74 70 75 6e 6b 74 20 69 20 69 6e 74 65 72 76 61 6c 6c 65 74 20 ┆ WRITE('Slutpunkt i intervallet ┆
0x14f20…14f40 20 20 20 20 20 20 3a 20 27 29 3b 20 52 45 41 44 4c 4e 28 62 29 3b 0d 0a 20 20 20 20 20 20 20 20 ┆ : '); READLN(b); ┆
0x14f40…14f60 49 46 20 66 28 61 29 20 2a 20 66 28 62 29 20 3e 20 30 0d 0a 20 20 20 20 20 20 20 20 20 20 54 48 ┆IF f(a) * f(b) > 0 TH┆
0x14f60…14f80 45 4e 20 57 52 49 54 45 4c 4e 28 27 53 61 6d 6d 65 20 66 75 6e 6b 74 69 6f 6e 73 76 7b 72 64 69 ┆EN WRITELN('Samme funktionsværdi┆
0x14f80…14fa0 20 69 20 69 6e 74 65 72 76 61 6c 65 6e 64 65 70 75 6e 6b 74 65 72 6e 65 21 27 29 3b 0d 0a 20 20 ┆ i intervalendepunkterne!'); ┆
0x14fa0…14fc0 20 20 20 20 55 4e 54 49 4c 20 66 28 61 29 20 2a 20 66 28 62 29 20 3c 3d 20 30 3b 0d 0a 20 20 20 ┆ UNTIL f(a) * f(b) <= 0; ┆
0x14fc0…14fe0 20 20 20 67 6c 61 20 3a 3d 20 61 3b 0d 0a 20 20 20 20 20 20 67 6c 62 20 3a 3d 20 62 3b 0d 0a 20 ┆ gla := a; glb := b; ┆
0x14fe0…15000 20 20 20 20 20 6d 65 6c 6c 65 6d 20 3a 3d 20 28 61 20 2b 20 62 29 20 2f 20 32 3b 0d 0a 20 20 20 ┆ mellem := (a + b) / 2; ┆
0x15000…15200 (16, 0, 9) DataBlock {»BISEC.PAS«}
0x15200…15400 (16, 0, 10) DataBlock {»BINTRAE2.PAS«}
0x15400…15600 (17, 1, 1) DataBlock {»BISEC.PAS«}
0x15600…15680 (17, 1, 2) DataBlock {»BOLDSPIL.PAS«}
0x15680…156a0 20 3a 3d 20 6b 6c 6f 65 72 20 54 4f 20 73 70 61 72 20 44 4f 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆ := kloer TO spar DO ┆
0x156a0…156c0 20 20 20 20 20 20 46 4f 52 20 69 20 3a 3d 20 30 20 54 4f 20 31 32 20 44 4f 0d 0a 20 20 20 20 20 ┆ FOR i := 0 TO 12 DO ┆
0x156c0…156e0 20 20 20 20 20 20 20 20 20 20 20 20 20 57 49 54 48 20 6b 6f 72 74 28 2e 35 32 20 2d 20 28 31 33 ┆ WITH kort(.52 - (13┆
0x156e0…15700 20 2a 20 4f 52 44 28 66 61 72 76 65 29 20 2b 20 69 29 2e 29 20 44 4f 0d 0a 20 20 20 20 20 20 20 ┆ * ORD(farve) + i).) DO ┆
0x15700…15720 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ BEGIN ┆
0x15720…15740 20 20 20 20 20 20 20 20 20 20 6b 75 6c 6f 65 72 20 3a 3d 20 66 61 72 76 65 3b 0d 0a 20 20 20 20 ┆ kuloer := farve; ┆
0x15740…15760 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 72 20 3a 3d 20 69 20 2b 20 31 3b 0d 0a ┆ nr := i + 1; ┆
0x15760…15780 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 20 20 ┆ END; ┆
0x15780…157a0 20 20 20 20 20 20 45 4e 44 3b 20 28 2a 20 6f 70 72 65 74 73 70 69 6c 20 2a 29 0d 0a 20 20 20 20 ┆ END; (* opretspil *) ┆
0x157a0…157c0 20 20 20 20 20 20 0d 0a 20 20 20 20 20 20 20 20 20 20 50 52 4f 43 45 44 55 52 45 20 62 6c 61 6e ┆ PROCEDURE blan┆
0x157c0…157e0 64 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 56 41 52 0d ┆d; VAR ┆
0x157e0…15800 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 2c 20 62 79 74 20 3a 20 49 4e 54 45 47 45 52 3b ┆ i, byt : INTEGER;┆
0x15800…15a00 (17, 1, 3) DataBlock {»BRIDGE1.PAS«}
0x15a00…15b00 (17, 1, 4) DataBlock {»BISEC.PAS«}
0x15b00…15b20 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 ┆ ┆
[…0x7…]
0x15c00…15c20 (17, 1, 5) 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 6d 70 20 3a 20 62 6c 61 64 3b 0d 0a 20 20 ┆ temp : blad; ┆
0x15c20…15c40 20 20 20 20 20 20 20 20 20 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 20 28 2a ┆ BEGIN (*┆
0x15c40…15c60 20 62 6c 61 6e 64 20 2a 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 41 4e 44 4f 4d 49 ┆ bland *) RANDOMI┆
0x15c60…15c80 5a 45 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 46 4f 52 20 69 20 3a 3d 20 31 20 54 4f ┆ZE; FOR i := 1 TO┆
0x15c80…15ca0 20 35 32 20 44 4f 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 ┆ 52 DO BEGIN ┆
0x15ca0…15cc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 79 74 20 3a 3d 52 41 4e 44 4f 4d 28 35 32 ┆ byt :=RANDOM(52┆
0x15cc0…15ce0 29 20 2b 20 31 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 6d 70 20 3a ┆) + 1; temp :┆
0x15ce0…15d00 3d 20 6b 6f 72 74 28 2e 69 2e 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆= kort(.i.); ┆
0x15d00…15d20 6b 6f 72 74 28 2e 69 2e 29 20 3a 3d 20 6b 6f 72 74 28 2e 62 79 74 2e 29 3b 0d 0a 20 20 20 20 20 ┆kort(.i.) := kort(.byt.); ┆
0x15d20…15d40 20 20 20 20 20 20 20 20 20 20 20 20 20 6b 6f 72 74 28 2e 62 79 74 2e 29 20 3a 3d 20 74 65 6d 70 ┆ kort(.byt.) := temp┆
0x15d40…15d60 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 20 20 20 ┆; END; ┆
0x15d60…15d80 20 20 20 20 20 45 4e 44 3b 20 28 2a 20 62 6c 61 6e 64 20 2a 29 0d 0a 20 20 20 20 20 20 20 20 20 ┆ END; (* bland *) ┆
0x15d80…15da0 20 0d 0a 20 20 20 20 20 20 20 20 20 20 50 52 4f 43 45 44 55 52 45 20 75 64 64 65 6c 3b 0d 0a 20 ┆ PROCEDURE uddel; ┆
0x15da0…15dc0 20 20 20 20 20 20 20 20 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 56 41 52 0d 0a 20 20 20 20 20 ┆ VAR ┆
0x15dc0…15de0 20 20 20 20 20 20 20 20 69 20 3a 20 49 4e 54 45 47 45 52 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆ i : INTEGER; ┆
0x15de0…15e00 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 20 28 2a 20 75 64 64 65 6c 20 2a 29 0d ┆ BEGIN (* uddel *) ┆
0x15e00…16000 (17, 1, 6) DataBlock {»BRIDGE1.PAS«}
0x16000…16200 (17, 1, 7) DataBlock {»BOLDSPIL.PAS«}
0x16200…16400 (17, 1, 8) DataBlock {»BRIDGE1.PAS«}
[…0x1…]
0x16600…16800 (17, 1, 10) DataBlock {»BOLDSPIL.PAS«}
0x16800…16a00 (18, 0, 1) DataBlock {»BRIDGE1.PAS«}
0x16a00…16c00 (18, 0, 2) DataBlock {»BRIDGE2.PAS«}
[…0x1…]
0x16e00…17000 (18, 0, 4) DataBlock {»BRIDGE1.PAS«}
0x17000…17200 (18, 0, 5) DataBlock {»BRIDGE2.PAS«}
[…0x1…]
0x17400…17420 (18, 0, 7) e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0xf…]
0x17600…17800 (18, 0, 8) DataBlock {»BRIDGE2.PAS«}
[…0x1…]
0x17a00…17a20 (18, 0, 10) e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0xf…]
0x17c00…17d00 (19, 1, 1) DataBlock {»BRIDGE2.PAS«}
0x17d00…17d20 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 ┆ ┆
[…0x7…]
0x17e00…17f80 (19, 1, 2) DataBlock {»BUBBLE2.PAS«}
0x17f80…17fa0 20 49 46 20 76 28 2e 6a 2e 29 20 3e 20 76 28 2e 6a 20 2b 20 31 2e 29 0d 0a 20 20 20 20 20 20 20 ┆ IF v(.j.) > v(.j + 1.) ┆
0x17fa0…17fc0 20 20 20 20 20 20 20 20 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ THEN ┆
0x17fc0…17fe0 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6c 75 74 ┆ BEGIN slut┆
0x17fe0…18000 20 3a 3d 20 46 41 4c 53 45 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ := FALSE; ┆
0x18000…18200 (19, 1, 3) DataBlock {»BUBBLE3.PAS«}
0x18200…18220 (19, 1, 4) e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0xf…]
0x18400…18420 (19, 1, 5) 62 79 74 20 3a 3d 20 76 28 2e 6a 2e 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆byt := v(.j.); ┆
0x18420…18440 20 20 20 20 76 28 2e 6a 2e 29 20 3a 3d 20 76 28 2e 6a 20 2b 20 31 2e 29 3b 0d 0a 20 20 20 20 20 ┆ v(.j.) := v(.j + 1.); ┆
0x18440…18460 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 76 28 2e 6a 20 2b 20 31 2e 29 20 3a 3d 20 62 79 74 ┆ v(.j + 1.) := byt┆
0x18460…18480 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 20 ┆; END; ┆
0x18480…184a0 20 20 20 20 20 55 4e 54 49 4c 20 28 69 20 3d 20 31 29 20 4f 52 20 73 6c 75 74 3b 0d 0a 20 20 20 ┆ UNTIL (i = 1) OR slut; ┆
0x184a0…184c0 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 ┆ WRITELN; WRITE┆
0x184c0…184e0 4c 4e 28 27 44 65 20 73 6f 72 74 65 72 65 64 65 20 74 61 6c 20 65 72 3a 27 29 3b 0d 0a 20 20 20 ┆LN('De sorterede tal er:'); ┆
0x184e0…18500 20 20 20 20 20 20 20 46 4f 52 20 69 20 3a 3d 20 31 20 54 4f 20 6d 61 78 20 44 4f 0d 0a 20 20 20 ┆ FOR i := 1 TO max DO ┆
0x18500…18520 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 76 28 2e 69 2e 29 20 3a 20 34 29 3b 0d 0a 20 20 20 ┆ WRITE(v(.i.) : 4); ┆
0x18520…18540 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 3b 0d 0a 20 20 20 20 20 20 20 20 45 4e 44 2e 0d 0a 1a ┆ WRITELN; END. ┆
0x18540…18560 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ ┆
[…0x1…]
0x18580…185a0 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 ┆ ┆
[…0x3…]
0x18600…18780 (19, 1, 6) DataBlock {»BUBBLE3.PAS«}
0x18780…187a0 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 ┆ ┆
[…0x3…]
0x18800…18a00 (19, 1, 7) DataBlock {»BUBBLE2.PAS«}
0x18a00…18c00 (19, 1, 8) DataBlock {»BUBBLE3.PAS«}
0x18c00…18c20 (19, 1, 9) 20 20 20 20 20 20 50 52 4f 47 52 41 4d 20 62 75 62 62 6c 65 33 3b 0d 0a 20 20 20 20 20 20 20 20 ┆ PROGRAM bubble3; ┆
0x18c20…18c40 0d 0a 20 20 20 20 20 20 20 20 28 2a 20 50 72 6f 67 72 61 6d 6d 65 74 20 73 6f 72 74 65 72 65 72 ┆ (* Programmet sorterer┆
0x18c40…18c60 20 65 6e 20 72 7b 6b 6b 65 20 74 61 6c 20 76 65 64 20 62 75 62 62 6c 65 73 6f 72 74 2d 6d 65 74 ┆ en række tal ved bubblesort-met┆
0x18c60…18c80 6f 64 65 6e 20 2a 29 0d 0a 20 20 20 20 20 20 20 20 28 2a 20 42 75 62 62 6c 65 73 6f 72 74 20 6d ┆oden *) (* Bubblesort m┆
0x18c80…18ca0 65 64 20 66 6c 61 67 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 ┆ed flag ┆
0x18ca0…18cc0 20 20 20 20 20 20 20 20 20 20 20 20 2a 29 0d 0a 20 20 20 20 20 20 20 20 28 2a 20 55 64 73 6b 72 ┆ *) (* Udskr┆
0x18cc0…18ce0 69 66 74 65 6e 20 6b 6f 6d 6d 65 72 20 70 7d 20 73 6b 7b 72 6d 65 6e 20 20 20 20 20 20 20 20 20 ┆iften kommer på skærmen ┆
0x18ce0…18d00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 29 0d 0a 20 20 20 20 20 20 20 20 0d ┆ *) ┆
0x18d00…18d20 0a 20 20 20 20 20 20 20 20 43 4f 4e 53 54 0d 0a 20 20 20 20 20 20 20 20 20 20 6d 61 78 20 3d 20 ┆ CONST max = ┆
0x18d20…18d40 31 30 30 3b 0d 0a 20 20 20 20 20 20 20 20 0d 0a 20 20 20 20 20 20 20 20 54 59 50 45 0d 0a 20 20 ┆100; TYPE ┆
0x18d40…18d60 20 20 20 20 20 20 20 20 76 65 6b 74 6f 72 20 3d 20 41 52 52 41 59 28 2e 31 20 2e 2e 20 6d 61 78 ┆ vektor = ARRAY(.1 .. max┆
0x18d60…18d80 2e 29 20 4f 46 20 49 4e 54 45 47 45 52 3b 0d 0a 20 20 20 20 20 20 20 20 0d 0a 20 20 20 20 20 20 ┆.) OF INTEGER; ┆
0x18d80…18da0 20 20 56 41 52 0d 0a 20 20 20 20 20 20 20 20 20 20 76 20 3a 20 76 65 6b 74 6f 72 3b 0d 0a 20 20 ┆ VAR v : vektor; ┆
0x18da0…18dc0 20 20 20 20 20 20 20 20 69 2c 20 6a 2c 20 62 79 74 20 3a 20 49 4e 54 45 47 45 52 3b 0d 0a 20 20 ┆ i, j, byt : INTEGER; ┆
0x18dc0…18de0 20 20 20 20 20 20 20 20 73 6c 75 74 20 3a 20 42 4f 4f 4c 45 41 4e 3b 0d 0a 20 20 20 20 20 20 20 ┆ slut : BOOLEAN; ┆
0x18de0…18e00 20 20 20 0d 0a 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 52 41 ┆ BEGIN RA┆
0x18e00…19000 (19, 1, 10) DataBlock {»BUBBLE2.PAS«}
0x19000…19200 (20, 0, 1) DataBlock {»CELSIUS.PAS«}
0x19200…19400 (20, 0, 2) DataBlock {»CHECK1.PAS«}
[…0x1…]
0x19500…19520 69 2c 20 70 6f 73 69 74 69 6f 6e 20 3a 20 49 4e 54 45 47 45 52 3b 0d 0a 20 20 20 20 20 20 20 20 ┆i, position : INTEGER; ┆
0x19520…19540 20 20 76 20 3a 20 76 65 6b 74 6f 72 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 63 73 74 72 65 6e 67 ┆ v : vektor; cstreng┆
0x19540…19560 20 3a 20 63 69 66 66 65 72 73 74 72 65 6e 67 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 72 65 74 75 ┆ : cifferstreng; retu┆
0x19560…19580 72 20 3a 20 43 48 41 52 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 0d 0a 20 20 20 20 20 20 20 20 42 ┆r : CHAR; B┆
0x19580…195a0 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 52 45 50 45 41 54 0d 0a 20 20 20 20 20 20 20 20 ┆EGIN REPEAT ┆
0x195a0…195c0 20 20 20 20 57 52 49 54 45 28 43 4c 52 48 4f 4d 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ WRITE(CLRHOM); ┆
0x195c0…195e0 47 4f 54 4f 58 59 28 31 30 2c 20 35 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 ┆GOTOXY(10, 5); WRIT┆
0x195e0…19600 45 28 27 49 6e 64 74 61 73 74 20 65 74 20 68 65 6c 74 20 74 61 6c 20 70 7d 20 27 2c 20 6d 61 78 ┆E('Indtast et helt tal på ', max┆
0x19600…19680 (20, 0, 4) DataBlock {»CELSIUS.PAS«}
0x19680…196a0 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 ┆ ┆
[…0xb…]
0x19800…19a00 (20, 0, 5) DataBlock {»CHECK1.PAS«}
0x19a00…19c00 (20, 0, 6) DataBlock {»CHECK2.PAS«}
0x19c00…19c20 (20, 0, 7) e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0xf…]
0x19e00…1a000 (20, 0, 8) DataBlock {»CHECK1.PAS«}
0x1a000…1a100 (20, 0, 9) DataBlock {»CHECK2.PAS«}
0x1a100…1a120 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 27 46 65 6a 6c 61 67 74 69 67 ┆ WRITE('Fejlagtig┆
0x1a120…1a140 74 20 74 65 67 6e 20 2d 20 54 61 73 74 20 3c 52 45 54 55 52 4e 3e 27 29 3b 0d 0a 20 20 20 20 20 ┆t tegn - Tast <RETURN>'); ┆
0x1a140…1a160 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 41 44 4c 4e 28 72 65 74 75 72 29 3b 0d 0a 20 20 20 ┆ READLN(retur); ┆
0x1a160…1a180 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 55 4e 54 ┆ END; UNT┆
0x1a180…1a1a0 49 4c 20 70 6f 73 69 74 69 6f 6e 20 3d 20 30 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 47 4f 54 4f ┆IL position = 0; GOTO┆
0x1a1a0…1a1c0 58 59 28 31 30 2c 20 39 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 27 43 69 66 ┆XY(10, 9); WRITE('Cif┆
0x1a1c0…1a1e0 72 65 6e 65 20 65 72 3a 20 27 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 46 4f 52 20 69 20 3a 3d ┆rene er: '); FOR i :=┆
0x1a1e0…1a200 20 31 20 54 4f 20 6d 61 78 74 65 67 6e 20 44 4f 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 42 45 ┆ 1 TO maxtegn DO BE┆
0x1a200…1a220 (20, 0, 10) e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0x1f…]
0x1a600…1a620 (21, 1, 2) 69 20 3a 20 49 4e 54 45 47 45 52 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 65 73 74 20 3a ┆i : INTEGER; test :┆
0x1a620…1a640 20 42 4f 4f 4c 45 41 4e 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 0d 0a 20 20 20 20 20 20 20 20 20 ┆ BOOLEAN; ┆
0x1a640…1a660 20 42 45 47 49 4e 20 28 2a 20 63 70 72 5f 6f 6b 20 2a 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ BEGIN (* cpr_ok *) ┆
0x1a660…1a680 20 73 75 6d 20 3a 3d 20 30 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 65 73 74 20 3a 3d 20 ┆ sum := 0; test := ┆
0x1a680…1a6a0 54 52 55 45 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 46 4f 52 20 69 20 3a 3d 20 31 20 54 4f ┆TRUE; FOR i := 1 TO┆
0x1a6a0…1a6c0 20 37 20 44 4f 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 75 6d 20 3a 3d 20 73 75 6d 20 ┆ 7 DO sum := sum ┆
0x1a6c0…1a6e0 2b 20 6e 75 6d 6d 65 72 28 2e 31 31 20 2d 20 69 2e 29 20 2a 20 69 3b 0d 0a 20 20 20 20 20 20 20 ┆+ nummer(.11 - i.) * i; ┆
0x1a6e0…1a700 20 20 20 20 20 46 4f 52 20 69 20 3a 3d 20 32 20 54 4f 20 34 20 44 4f 0d 0a 20 20 20 20 20 20 20 ┆ FOR i := 2 TO 4 DO ┆
0x1a700…1a720 20 20 20 20 20 20 20 73 75 6d 20 3a 3d 20 73 75 6d 20 2b 20 6e 75 6d 6d 65 72 28 2e 35 20 2d 20 ┆ sum := sum + nummer(.5 - ┆
0x1a720…1a740 69 2e 29 20 2a 20 69 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 73 75 6d 20 4d 4f 44 ┆i.) * i; IF sum MOD┆
0x1a740…1a760 20 31 31 20 3c 3e 20 30 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 20 74 65 73 ┆ 11 <> 0 THEN tes┆
0x1a760…1a780 74 20 3a 3d 20 46 41 4c 53 45 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 64 61 67 20 3a 3d 20 ┆t := FALSE; dag := ┆
0x1a780…1a7a0 6e 75 6d 6d 65 72 28 2e 31 2e 29 20 2a 20 31 30 2b 20 6e 75 6d 6d 65 72 28 2e 32 2e 29 3b 0d 0a ┆nummer(.1.) * 10+ nummer(.2.); ┆
0x1a7a0…1a7c0 20 20 20 20 20 20 20 20 20 20 20 20 6d 61 61 6e 65 64 20 3a 3d 20 6e 75 6d 6d 65 72 28 2e 33 2e ┆ maaned := nummer(.3.┆
0x1a7c0…1a7e0 29 20 2a 20 31 30 20 2b 20 6e 75 6d 6d 65 72 28 2e 34 2e 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 ┆) * 10 + nummer(.4.); ┆
0x1a7e0…1a800 20 20 20 61 61 72 20 3a 3d 20 6e 75 6d 6d 65 72 28 2e 35 2e 29 20 2a 20 31 30 20 2b 20 6e 75 6d ┆ aar := nummer(.5.) * 10 + num┆
0x1a800…1aa00 (21, 1, 3) DataBlock {»CPR.PAS«}
0x1aa00…1aa20 (21, 1, 4) e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0xf…]
0x1ac00…1ac20 (21, 1, 5) 6d 65 72 28 2e 36 2e 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 28 64 61 67 20 3d ┆mer(.6.); IF (dag =┆
0x1ac20…1ac40 20 30 29 20 4f 52 20 28 64 61 67 20 3e 20 33 31 29 20 4f 52 20 28 6d 61 61 6e 65 64 20 3d 20 30 ┆ 0) OR (dag > 31) OR (maaned = 0┆
0x1ac40…1ac60 29 20 4f 52 20 28 6d 61 61 6e 65 64 20 3e 20 31 32 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆) OR (maaned > 12) ┆
0x1ac60…1ac80 20 20 54 48 45 4e 20 74 65 73 74 20 3a 3d 20 46 41 4c 53 45 3b 0d 0a 20 20 20 20 20 20 20 20 20 ┆ THEN test := FALSE; ┆
0x1ac80…1aca0 20 20 20 49 46 20 28 28 6d 61 61 6e 65 64 20 3d 20 34 29 20 4f 52 20 28 6d 61 61 6e 65 64 20 3d ┆ IF ((maaned = 4) OR (maaned =┆
0x1aca0…1acc0 20 36 29 20 4f 52 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 61 6e 65 64 20 ┆ 6) OR (maaned ┆
0x1acc0…1ace0 3d 20 39 29 20 4f 52 20 28 6d 61 61 6e 65 64 20 3d 20 31 31 29 29 20 41 4e 44 20 28 64 61 67 20 ┆= 9) OR (maaned = 11)) AND (dag ┆
0x1ace0…1ad00 3d 20 33 31 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 20 74 65 73 74 20 3a ┆= 31) THEN test :┆
0x1ad00…1ad20 3d 20 46 41 4c 53 45 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 28 6d 61 61 6e 65 64 ┆= FALSE; IF (maaned┆
0x1ad20…1ad40 20 3d 20 32 29 20 41 4e 44 20 28 64 61 67 3d 20 32 39 29 20 41 4e 44 20 28 28 61 61 72 20 4d 4f ┆ = 2) AND (dag= 29) AND ((aar MO┆
0x1ad40…1ad60 44 20 34 20 3c 3e 30 29 20 4f 52 20 28 61 61 72 20 3d 20 30 29 29 0d 0a 20 20 20 20 20 20 20 20 ┆D 4 <>0) OR (aar = 0)) ┆
0x1ad60…1ad80 20 20 20 20 20 20 54 48 45 4e 20 74 65 73 74 20 3a 3d 20 66 61 6c 73 65 3b 0d 0a 20 20 20 20 20 ┆ THEN test := false; ┆
0x1ad80…1ada0 20 20 20 20 20 20 20 63 70 72 5f 6f 6b 20 3a 3d 20 74 65 73 74 3b 0d 0a 20 20 20 20 20 20 20 20 ┆ cpr_ok := test; ┆
0x1ada0…1adc0 20 20 45 4e 44 3b 20 28 2a 20 63 70 72 5f 6f 6b 20 2a 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ END; (* cpr_ok *) ┆
0x1adc0…1ade0 20 0d 0a 20 20 20 20 20 20 20 20 42 45 47 49 4e 20 28 2a 20 63 70 72 20 2a 29 0d 0a 20 20 20 20 ┆ BEGIN (* cpr *) ┆
0x1ade0…1ae00 20 20 20 20 20 20 52 45 50 45 41 54 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 52 45 50 45 41 54 ┆ REPEAT REPEAT┆
0x1ae00…1b000 (21, 1, 6) DataBlock {»CPR.PAS«}
0x1b000…1b200 (21, 1, 7) DataBlock {»CHECK3.PAS«}
0x1b200…1b400 (21, 1, 8) DataBlock {»CPR.PAS«}
[…0x1…]
0x1b600…1b700 (21, 1, 10) DataBlock {»CHECK3.PAS«}
0x1b700…1b720 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 ┆ ┆
[…0x7…]
0x1b800…1ba00 (22, 0, 1) DataBlock {»CPR.PAS«}
0x1ba00…1bc00 (22, 0, 2) DataBlock {»CPRDATO.PAS«}
0x1bc00…1bc20 (22, 0, 3) 50 52 4f 47 52 41 4d 20 63 70 72 64 61 74 6f 3b 0d 0a 0d 0a 20 20 54 59 50 45 0d 0a 20 20 20 20 ┆PROGRAM cprdato; TYPE ┆
0x1bc20…1bc40 73 74 72 36 20 3d 20 53 54 52 49 4e 47 28 2e 36 2e 29 3b 0d 0a 20 20 20 20 61 72 72 20 3d 20 41 ┆str6 = STRING(.6.); arr = A┆
0x1bc40…1bc60 52 52 41 59 28 2e 31 20 2e 2e 20 36 2e 29 20 4f 46 20 49 4e 54 45 47 45 52 3b 0d 0a 20 20 20 20 ┆RRAY(.1 .. 6.) OF INTEGER; ┆
0x1bc60…1bc80 0d 0a 20 20 56 41 52 0d 0a 20 20 20 20 73 74 72 20 3a 20 73 74 72 36 3b 0d 0a 20 20 20 20 63 69 ┆ VAR str : str6; ci┆
0x1bc80…1bca0 66 20 3a 20 61 72 72 3b 0d 0a 20 20 20 20 67 2c 20 68 2c 20 69 2c 20 64 61 74 6f 73 75 6d 2c 20 ┆f : arr; g, h, i, datosum, ┆
0x1bca0…1bcc0 67 73 75 6d 2c 20 68 73 75 6d 2c 20 69 73 75 6d 2c 20 63 68 65 63 6b 2c 20 6a 20 3a 20 49 4e 54 ┆gsum, hsum, isum, check, j : INT┆
0x1bcc0…1bce0 45 47 45 52 3b 0d 0a 20 20 20 20 6f 6b 20 3a 20 42 4f 4f 4c 45 41 4e 3b 0d 0a 20 20 20 20 0d 0a ┆EGER; ok : BOOLEAN; ┆
0x1bce0…1bd00 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 57 52 49 54 45 28 43 4c 52 48 4f 4d 29 3b 0d 0a 20 20 20 ┆ BEGIN WRITE(CLRHOM); ┆
0x1bd00…1bd20 20 52 45 50 45 41 54 0d 0a 20 20 20 20 20 20 47 4f 54 4f 58 59 28 31 30 2c 20 35 29 3b 0d 0a 20 ┆ REPEAT GOTOXY(10, 5); ┆
0x1bd20…1bd40 20 20 20 20 20 57 52 49 54 45 28 27 49 6e 64 74 61 73 74 20 65 6e 20 64 61 74 6f 20 73 7d 6c 65 ┆ WRITE('Indtast en dato såle┆
0x1bd40…1bd60 64 65 73 3a 20 44 44 4d 4d 5d 5d 27 29 3b 0d 0a 20 20 20 20 20 20 47 4f 54 4f 58 59 28 33 35 2c ┆des: DDMMÅÅ'); GOTOXY(35,┆
0x1bd60…1bd80 20 36 29 3b 0d 0a 20 20 20 20 20 20 57 52 49 54 45 28 43 4c 52 45 4f 4c 29 3b 0d 0a 20 20 20 20 ┆ 6); WRITE(CLREOL); ┆
0x1bd80…1bda0 20 20 42 55 46 4c 45 4e 20 3a 3d 20 36 3b 0d 0a 20 20 20 20 20 20 52 45 41 44 4c 4e 28 73 74 72 ┆ BUFLEN := 6; READLN(str┆
0x1bda0…1bdc0 29 3b 0d 0a 20 20 20 20 20 20 6f 6b 20 3a 3d 20 54 52 55 45 3b 0d 0a 20 20 20 20 20 20 49 46 20 ┆); ok := TRUE; IF ┆
0x1bdc0…1bde0 4c 45 4e 28 73 74 72 29 20 3c 20 36 0d 0a 20 20 20 20 20 20 20 20 54 48 45 4e 20 6f 6b 20 3a 3d ┆LEN(str) < 6 THEN ok :=┆
0x1bde0…1be00 20 46 41 4c 53 45 0d 0a 20 20 20 20 20 20 20 20 45 4c 53 45 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆ FALSE ELSE ┆
0x1be00…1c000 (22, 0, 4) DataBlock {»CPR.PAS«}
0x1c000…1c200 (22, 0, 5) DataBlock {»CPRDATO.PAS«}
0x1c200…1c400 (22, 0, 6) DataBlock {»CPRDATO2.PAS«}
0x1c400…1c500 (22, 0, 7) DataBlock {»CPR.PAS«}
0x1c500…1c520 6c 65 20 77 6f 75 6c 64 20 6f 76 65 72 66 6c 6f 77 20 74 68 65 20 6d 65 6d 6f 72 79 20 62 75 66 ┆le would overflow the memory buf┆
0x1c520…1c540 66 65 72 2c 0d 0a 43 4f 4d 50 41 53 20 64 69 73 70 6c 61 79 73 20 27 46 69 6c 65 20 74 6f 6f 20 ┆fer, COMPAS displays 'File too ┆
0x1c540…1c560 62 69 67 27 2e 20 46 6f 72 20 62 6f 74 68 20 65 72 72 6f 72 73 2c 20 74 68 65 20 74 65 78 74 20 ┆big'. For both errors, the text ┆
0x1c560…1c580 61 6c 72 65 61 64 79 20 69 6e 20 6d 65 6d 6f 72 79 0d 0a 72 65 6d 61 69 6e 73 20 75 6e 63 68 61 ┆already in memory remains uncha┆
0x1c580…1c5a0 6e 67 65 64 2e 0d 0a 0d 0a 25 53 43 4f 4d 50 41 53 20 4f 4e 2d 4c 49 4e 45 20 48 45 4c 50 3a 20 ┆nged. %SCOMPAS ON-LINE HELP: ┆
0x1c5a0…1c5c0 54 68 65 20 53 41 56 45 20 63 6f 6d 6d 61 6e 64 2e 0d 0a 0d 0a 54 68 65 20 53 41 56 45 20 63 6f ┆The SAVE command. The SAVE co┆
0x1c5c0…1c5e0 6d 6d 61 6e 64 20 69 73 20 75 73 65 64 20 74 6f 20 73 61 76 65 20 74 68 65 20 74 65 78 74 20 69 ┆mmand is used to save the text i┆
0x1c5e0…1c600 6e 20 6d 65 6d 6f 72 79 20 69 6e 20 61 20 64 69 73 6b 20 66 69 6c 65 2e 20 54 68 65 20 63 6f 6d ┆n memory in a disk file. The com┆
0x1c600…1c780 (22, 0, 8) DataBlock {»CPRDATO.PAS«}
0x1c780…1c7a0 66 28 2e 36 2e 29 3b 0d 0a 20 20 20 20 20 20 49 46 20 28 64 61 67 20 3d 20 30 29 20 4f 52 20 28 ┆f(.6.); IF (dag = 0) OR (┆
0x1c7a0…1c7c0 64 61 67 20 3e 20 33 31 29 20 4f 52 20 28 6d 61 61 6e 65 64 20 3d 20 30 29 20 4f 52 20 28 6d 61 ┆dag > 31) OR (maaned = 0) OR (ma┆
0x1c7c0…1c7e0 61 6e 65 64 20 3e 20 31 32 29 0d 0a 20 20 20 20 20 20 20 20 54 48 45 4e 20 20 6f 6b 20 3a 3d 20 ┆aned > 12) THEN ok := ┆
0x1c7e0…1c800 46 41 4c 53 45 3b 0d 0a 20 20 20 20 20 20 49 46 20 28 28 6d 61 61 6e 65 64 20 3d 20 34 29 20 4f ┆FALSE; IF ((maaned = 4) O┆
0x1c800…1ca00 (22, 0, 9) DataBlock {»CPRDATO2.PAS«}
0x1ca00…1ca20 (22, 0, 10) 2d 0d 0a 6d 61 6e 64 20 6c 69 6e 65 20 66 6f 72 6d 61 74 20 69 73 3a 0d 0a 0d 0a 20 20 20 20 20 ┆- mand line format is: ┆
0x1ca20…1ca40 20 20 20 53 41 56 45 20 3c 66 69 6c 65 6e 61 6d 65 3e 0d 0a 0d 0a 49 66 20 3c 66 69 6c 65 6e 61 ┆ SAVE <filename> If <filena┆
0x1ca40…1ca60 6d 65 3e 20 69 73 20 6f 6d 69 74 74 65 64 20 65 6e 74 69 72 65 6c 79 2c 20 69 74 20 64 65 66 61 ┆me> is omitted entirely, it defa┆
0x1ca60…1ca80 75 6c 74 73 20 74 6f 20 74 68 65 20 63 75 72 72 65 6e 74 20 66 69 6c 65 20 6e 61 6d 65 20 73 65 ┆ults to the current file name se┆
0x1ca80…1caa0 74 20 62 79 0d 0a 4c 4f 41 44 20 6f 72 20 4e 41 4d 45 2e 20 49 66 20 74 68 65 20 66 69 6c 65 20 ┆t by LOAD or NAME. If the file ┆
0x1caa0…1cac0 74 79 70 65 20 69 73 20 6f 6d 69 74 74 65 64 2c 20 69 74 20 64 65 66 61 75 6c 74 73 20 74 6f 20 ┆type is omitted, it defaults to ┆
0x1cac0…1cae0 27 2e 50 41 53 27 2e 20 49 66 20 61 20 66 69 6c 65 20 6f 66 0d 0a 74 68 65 20 73 61 6d 65 20 6e ┆'.PAS'. If a file of the same n┆
0x1cae0…1cb00 61 6d 65 20 61 6e 64 20 74 79 70 65 20 65 78 69 73 74 73 20 6f 6e 20 74 68 65 20 64 69 73 6b 20 ┆ame and type exists on the disk ┆
0x1cb00…1cb20 73 70 65 63 69 66 69 65 64 2c 20 69 74 73 20 74 79 70 65 20 69 73 20 63 68 61 6e 67 65 64 20 74 ┆specified, its type is changed t┆
0x1cb20…1cb40 6f 0d 0a 27 2e 42 41 4b 27 20 62 65 66 6f 72 65 20 74 68 65 20 6e 65 77 20 66 69 6c 65 20 69 73 ┆o '.BAK' before the new file is┆
0x1cb40…1cb60 20 63 72 65 61 74 65 64 2e 20 49 66 20 74 68 65 20 64 69 73 6b 20 64 69 72 65 63 74 6f 72 79 20 ┆ created. If the disk directory ┆
0x1cb60…1cb80 69 73 20 66 75 6c 6c 2c 20 43 4f 4d 50 41 53 0d 0a 64 69 73 70 6c 61 79 73 20 27 44 69 72 65 63 ┆is full, COMPAS displays 'Direc┆
0x1cb80…1cba0 74 6f 72 79 20 69 73 20 66 75 6c 6c 27 2e 20 49 66 20 74 68 65 72 65 20 69 73 20 6e 6f 74 20 65 ┆tory is full'. If there is not e┆
0x1cba0…1cbc0 6e 6f 75 67 68 20 72 6f 6f 6d 20 6f 6e 20 74 68 65 20 64 69 73 6b 20 74 6f 20 63 72 65 2d 0d 0a ┆nough room on the disk to cre- ┆
0x1cbc0…1cbe0 61 74 65 20 61 20 6e 65 77 20 66 69 6c 65 2c 20 43 4f 4d 50 41 53 20 64 69 73 70 6c 61 79 73 20 ┆ate a new file, COMPAS displays ┆
0x1cbe0…1cc00 27 44 69 73 6b 20 69 73 20 66 75 6c 6c 27 2e 20 49 66 20 6f 6e 65 20 6f 66 20 74 68 65 73 65 20 ┆'Disk is full'. If one of these ┆
0x1cc00…1ce00 (23, 1, 1) DataBlock {»CPRDATO2.PAS«}
0x1ce00…1ce20 (23, 1, 2) 6b 61 73 74 32 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 41 53 45 20 70 6f 69 6e 74 ┆kast2; CASE point┆
0x1ce20…1ce40 73 20 4f 46 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 37 2c 20 31 31 20 20 20 20 3a ┆s OF 7, 11 :┆
0x1ce40…1ce60 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ BEGIN ┆
0x1ce60…1ce80 20 20 20 20 20 76 75 6e 64 65 74 20 3a 3d 20 76 75 6e 64 65 74 20 2b 31 3b 0d 0a 20 20 20 20 20 ┆ vundet := vundet +1; ┆
0x1ce80…1cea0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 65 6c 73 65 6a 72 20 ┆ delsejr ┆
0x1cea0…1cec0 3a 3d 20 54 52 55 45 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆:= TRUE; ┆
0x1cec0…1cee0 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 2c 20 33 2c ┆ END; 2, 3,┆
0x1cee0…1cf00 20 31 32 20 3a 20 28 2a 20 69 6e 74 65 74 20 2a 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 12 : (* intet *); ┆
0x1cf00…1cf20 20 20 4f 54 48 45 52 57 49 53 45 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 66 67 ┆ OTHERWISE afg┆
0x1cf20…1cf40 6a 6f 72 74 20 3a 3d 20 46 41 4c 53 45 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆jort := FALSE; ┆
0x1cf40…1cf60 52 45 50 45 41 54 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6b 61 73 74 31 20 ┆REPEAT kast1 ┆
0x1cf60…1cf80 3a 3d 20 52 41 4e 44 4f 4d 28 36 29 20 2b 20 31 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆:= RANDOM(6) + 1; ┆
0x1cf80…1cfa0 20 20 20 20 20 6b 61 73 74 32 20 3a 3d 20 52 41 4e 44 4f 4d 28 36 29 20 2b 20 31 3b 0d 0a 20 20 ┆ kast2 := RANDOM(6) + 1; ┆
0x1cfa0…1cfc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 75 6d 20 3a 3d 20 6b 61 73 74 31 20 2b 20 6b ┆ sum := kast1 + k┆
0x1cfc0…1cfe0 61 73 74 32 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 73 75 6d 20 ┆ast2; IF sum ┆
0x1cfe0…1d000 3d 20 70 6f 69 6e 74 73 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 ┆= points T┆
0x1d000…1d200 (23, 1, 3) DataBlock {»CRAPS2.PAS«}
0x1d200…1d380 (23, 1, 4) DataBlock {»CPRDATO2.PAS«}
0x1d380…1d3a0 20 69 73 3a 0d 0a 0d 0a 20 20 20 20 20 20 20 20 46 49 4e 44 20 3c 6f 66 66 73 65 74 3e 0d 0a 0d ┆ is: FIND <offset> ┆
0x1d3a0…1d3c0 0a 77 68 65 72 65 20 3c 6f 66 66 73 65 74 3e 20 69 73 20 74 68 65 20 6f 66 66 73 65 74 20 61 64 ┆ where <offset> is the offset ad┆
0x1d3c0…1d3e0 64 72 65 73 73 20 6f 66 20 74 68 65 20 73 74 61 74 65 6d 65 6e 74 20 74 6f 20 62 65 20 6c 6f 63 ┆dress of the statement to be loc┆
0x1d3e0…1d400 61 74 65 64 2e 20 54 68 65 20 6f 66 66 2d 0d 0a 73 65 74 20 61 64 64 72 65 73 73 20 6d 75 73 74 ┆ated. The off- set address must┆
0x1d400…1d420 (23, 1, 5) 48 45 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e ┆HEN BEGIN┆
0x1d420…1d440 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 76 75 6e 64 65 74 ┆ vundet┆
0x1d440…1d460 20 3a 3d 20 76 75 6e 64 65 74 20 2b 31 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ := vundet +1; ┆
0x1d460…1d480 20 20 20 20 20 20 20 20 64 65 6c 73 65 6a 72 20 3a 3d 20 54 52 55 45 3b 0d 0a 20 20 20 20 20 20 ┆ delsejr := TRUE; ┆
0x1d480…1d4a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 66 67 6a 6f 72 74 20 3a 3d 20 54 52 55 ┆ afgjort := TRU┆
0x1d4a0…1d4c0 45 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a ┆E; END; ┆
0x1d4c0…1d4e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 73 75 6d 20 3d 20 37 20 0d 0a 20 ┆ IF sum = 7 ┆
0x1d4e0…1d500 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 20 61 66 67 6a 6f 72 74 20 ┆ THEN afgjort ┆
0x1d500…1d520 3a 3d 20 54 52 55 45 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 55 4e 54 49 4c 20 ┆:= TRUE; UNTIL ┆
0x1d520…1d540 61 66 67 6a 6f 72 74 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 ┆afgjort; END; ┆
0x1d540…1d560 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 64 65 6c 73 65 6a 72 0d 0a 20 20 20 20 20 20 20 20 ┆ IF delsejr ┆
0x1d560…1d580 20 20 20 20 20 20 20 20 54 48 45 4e 20 57 52 49 54 45 28 27 53 65 6a 72 20 20 27 29 0d 0a 20 20 ┆ THEN WRITE('Sejr ') ┆
0x1d580…1d5a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 20 57 52 49 54 45 28 27 54 61 62 20 20 20 ┆ ELSE WRITE('Tab ┆
0x1d5a0…1d5c0 27 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 27 56 75 ┆'); WRITELN('Vu┆
0x1d5c0…1d5e0 6e 64 65 74 3a 20 27 2c 20 76 75 6e 64 65 74 2c 20 27 20 20 20 54 61 62 74 3a 20 27 2c 20 69 20 ┆ndet: ', vundet, ' Tabt: ', i ┆
0x1d5e0…1d600 2d 20 76 75 6e 64 65 74 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 ┆- vundet); END; ┆
0x1d600…1d800 (23, 1, 6) DataBlock {»CRAPS2.PAS«}
0x1d800…1da00 (23, 1, 7) DataBlock {»CPRNUMRE.PAS«}
0x1da00…1dc00 (23, 1, 8) DataBlock {»CRAPS2.PAS«}
[…0x1…]
0x1dd80…1dda0 65 6c 73 65 6a 72 20 3a 3d 20 46 41 4c 53 45 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆elsejr := FALSE; ┆
0x1dda0…1ddc0 6b 61 73 74 31 20 3a 3d 20 52 41 4e 44 4f 4d 28 36 29 20 2b 20 31 3b 0d 0a 20 20 20 20 20 20 20 ┆kast1 := RANDOM(6) + 1; ┆
0x1ddc0…1dde0 20 20 20 20 20 20 20 6b 61 73 74 32 20 3a 3d 20 52 41 4e 44 4f 4d 28 36 29 20 2b 20 31 3b 0d 0a ┆ kast2 := RANDOM(6) + 1; ┆
0x1dde0…1de00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 6f 69 6e 74 73 20 3a 3d 20 6b 61 73 74 31 20 2b 20 ┆ points := kast1 + ┆
0x1de00…1e000 (23, 1, 10) DataBlock {»CPRNUMRE.PAS«}
0x1e000…1e200 (24, 0, 1) DataBlock {»DEMOLEN.PAS«}
0x1e200…1e400 (24, 0, 2) DataBlock {»DEMO_STR.PAS«}
0x1e400…1e420 (24, 0, 3) 20 20 20 20 20 20 20 20 50 52 4f 47 52 41 4d 20 64 65 6d 6f 5f 73 74 72 3b 0d 0a 20 20 20 20 20 ┆ PROGRAM demo_str; ┆
0x1e420…1e440 20 20 20 0d 0a 20 20 20 20 20 20 20 20 20 20 54 59 50 45 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ TYPE ┆
0x1e440…1e460 20 73 74 72 65 6e 67 20 3d 20 53 54 52 49 4e 47 28 2e 33 30 2e 29 3b 0d 0a 20 20 20 20 20 20 20 ┆ streng = STRING(.30.); ┆
0x1e460…1e480 20 20 20 0d 0a 20 20 20 20 20 20 20 20 20 20 56 41 52 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ VAR ┆
0x1e480…1e4a0 74 61 6c 31 20 3a 20 52 45 41 4c 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 61 6c 32 20 3a ┆tal1 : REAL; tal2 :┆
0x1e4a0…1e4c0 20 49 4e 54 45 47 45 52 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 74 72 65 6e 67 31 2c 20 ┆ INTEGER; streng1, ┆
0x1e4c0…1e4e0 73 74 72 65 6e 67 32 20 3a 20 73 74 72 65 6e 67 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 0d 0a 20 ┆streng2 : streng; ┆
0x1e4e0…1e500 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 61 6c 31 ┆ BEGIN tal1┆
0x1e500…1e520 20 3a 3d 20 50 49 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 61 6c 32 20 3a 3d 20 54 52 55 ┆ := PI; tal2 := TRU┆
0x1e520…1e540 4e 43 28 32 33 20 2f 20 33 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 53 54 52 28 74 61 6c ┆NC(23 / 3); STR(tal┆
0x1e540…1e560 31 3a 36 3a 34 2c 20 73 74 72 65 6e 67 31 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 53 54 ┆1:6:4, streng1); ST┆
0x1e560…1e580 52 28 74 61 6c 32 3a 34 2c 20 73 74 72 65 6e 67 32 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ┆R(tal2:4, streng2); ┆
0x1e580…1e5a0 20 57 52 49 54 45 4c 4e 28 73 74 72 65 6e 67 31 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ WRITELN(streng1); ┆
0x1e5a0…1e5c0 57 52 49 54 45 4c 4e 28 73 74 72 65 6e 67 32 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 45 4e 44 ┆WRITELN(streng2); END┆
0x1e5c0…1e5e0 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 1a 1a 1a 1a 1a 1a 1a ┆. ┆
0x1e5e0…1e600 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 ┆ ┆
0x1e600…1e680 (24, 0, 4) DataBlock {»DEMOLEN.PAS«}
0x1e680…1e6a0 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 ┆ ┆
[…0xb…]
0x1e800…1e820 (24, 0, 5) 50 52 4f 47 52 41 4d 20 64 69 76 69 73 69 6f 6e 3b 0d 0a 0d 0a 20 20 56 41 52 0d 0a 20 20 20 20 ┆PROGRAM division; VAR ┆
0x1e820…1e840 6e 61 76 6e 20 3a 20 53 54 52 49 4e 47 28 2e 33 30 2e 29 3b 0d 0a 20 20 20 20 63 68 20 3a 20 43 ┆navn : STRING(.30.); ch : C┆
0x1e840…1e860 48 41 52 3b 0d 0a 20 20 20 20 64 69 76 69 73 6f 72 2c 20 64 69 76 69 73 6f 72 31 2c 20 64 69 76 ┆HAR; divisor, divisor1, div┆
0x1e860…1e880 69 73 6f 72 32 2c 20 64 69 76 69 64 65 6e 64 2c 0d 0a 20 20 20 20 64 69 76 69 64 65 6e 64 31 2c ┆isor2, dividend, dividend1,┆
0x1e880…1e8a0 20 64 69 76 69 64 65 6e 64 32 2c 20 67 72 61 64 2c 20 61 6e 74 61 6c 2c 0d 0a 20 20 20 20 72 69 ┆ dividend2, grad, antal, ri┆
0x1e8a0…1e8c0 67 74 69 67 65 2c 20 66 6f 72 73 6f 65 67 2c 20 74 61 65 6c 6c 65 72 2c 20 6e 61 65 76 6e 65 72 ┆gtige, forsoeg, taeller, naevner┆
0x1e8c0…1e8e0 20 3a 20 49 4e 54 45 47 45 52 3b 0d 0a 20 20 20 20 66 65 6a 6c 20 3a 20 42 4f 4f 4c 45 41 4e 3b ┆ : INTEGER; fejl : BOOLEAN;┆
0x1e8e0…1e900 0d 0a 20 20 0d 0a 20 20 46 55 4e 43 54 49 4f 4e 20 73 66 64 28 6e 2c 20 6d 20 3a 20 49 4e 54 45 ┆ FUNCTION sfd(n, m : INTE┆
0x1e900…1e920 47 45 52 29 20 3a 20 49 4e 54 45 47 45 52 3b 0d 0a 20 20 20 20 0d 0a 20 20 20 20 56 41 52 0d 0a ┆GER) : INTEGER; VAR ┆
0x1e920…1e940 20 20 20 20 20 20 72 65 73 74 20 3a 20 49 4e 54 45 47 45 52 3b 0d 0a 20 20 20 20 0d 0a 20 20 20 ┆ rest : INTEGER; ┆
0x1e940…1e960 20 42 45 47 49 4e 20 28 2a 20 73 66 64 20 2a 29 0d 0a 20 20 20 20 20 20 57 48 49 4c 45 20 6d 20 ┆ BEGIN (* sfd *) WHILE m ┆
0x1e960…1e980 3e 20 30 20 44 4f 0d 0a 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 ┆> 0 DO BEGIN ┆
0x1e980…1e9a0 20 72 65 73 74 20 3a 3d 20 6e 20 4d 4f 44 20 6d 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 6e 20 3a ┆ rest := n MOD m; n :┆
0x1e9a0…1e9c0 3d 20 6d 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 6d 20 3a 3d 20 72 65 73 74 3b 0d 0a 20 20 20 20 ┆= m; m := rest; ┆
0x1e9c0…1e9e0 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 20 20 73 66 64 20 3a 3d 20 6e 3b 0d 0a 20 20 20 20 45 ┆ END; sfd := n; E┆
0x1e9e0…1ea00 4e 44 3b 20 28 2a 20 73 66 64 20 2a 29 0d 0a 20 20 20 20 0d 0a 20 20 50 52 4f 43 45 44 55 52 45 ┆ND; (* sfd *) PROCEDURE┆
0x1ea00…1ec00 (24, 0, 6) DataBlock {»DIVISION.PAS«}
0x1ec00…1ec20 (24, 0, 7) e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0xf…]
0x1ee00…1ee20 (24, 0, 8) 20 66 6f 72 6b 6f 72 74 28 56 41 52 20 74 61 65 6c 6c 65 72 2c 20 6e 61 65 76 6e 65 72 20 3a 20 ┆ forkort(VAR taeller, naevner : ┆
0x1ee20…1ee40 49 4e 54 45 47 45 52 29 3b 0d 0a 20 20 0d 0a 20 20 20 20 56 41 52 0d 0a 20 20 20 20 20 20 66 61 ┆INTEGER); VAR fa┆
0x1ee40…1ee60 6b 74 6f 72 20 3a 20 49 4e 54 45 47 45 52 3b 0d 0a 20 20 20 20 0d 0a 20 20 20 20 42 45 47 49 4e ┆ktor : INTEGER; BEGIN┆
0x1ee60…1ee80 20 28 2a 20 66 6f 72 6b 6f 72 74 20 2a 29 0d 0a 20 20 20 20 20 20 66 61 6b 74 6f 72 20 3a 3d 20 ┆ (* forkort *) faktor := ┆
0x1ee80…1eea0 73 66 64 28 74 61 65 6c 6c 65 72 2c 20 6e 61 65 76 6e 65 72 29 3b 0d 0a 20 20 20 20 20 20 74 61 ┆sfd(taeller, naevner); ta┆
0x1eea0…1eec0 65 6c 6c 65 72 20 3a 3d 20 74 61 65 6c 6c 65 72 20 44 49 56 20 66 61 6b 74 6f 72 3b 0d 0a 20 20 ┆eller := taeller DIV faktor; ┆
0x1eec0…1eee0 20 20 20 20 6e 61 65 76 6e 65 72 20 3a 3d 20 6e 61 65 76 6e 65 72 20 44 49 56 20 66 61 6b 74 6f ┆ naevner := naevner DIV fakto┆
0x1eee0…1ef00 72 3b 0d 0a 20 20 20 20 45 4e 44 3b 20 28 2a 20 66 6f 72 6b 6f 72 74 20 2a 29 0d 0a 20 20 0d 0a ┆r; END; (* forkort *) ┆
0x1ef00…1ef20 20 20 42 45 47 49 4e 20 28 2a 20 64 69 76 69 73 69 6f 6e 20 2a 29 0d 0a 20 20 20 20 57 52 49 54 ┆ BEGIN (* division *) WRIT┆
0x1ef20…1ef40 45 28 43 4c 52 48 4f 4d 29 3b 0d 0a 20 20 20 20 52 41 4e 44 4f 4d 49 5a 45 3b 0d 0a 20 20 20 20 ┆E(CLRHOM); RANDOMIZE; ┆
0x1ef40…1ef60 57 52 49 54 45 28 27 48 76 61 64 20 68 65 64 64 65 72 20 64 75 3a 20 27 29 3b 20 52 45 41 44 4c ┆WRITE('Hvad hedder du: '); READL┆
0x1ef60…1ef80 4e 28 6e 61 76 6e 29 3b 0d 0a 20 20 20 20 52 45 50 45 41 54 0d 0a 20 20 20 20 20 20 57 52 49 54 ┆N(navn); REPEAT WRIT┆
0x1ef80…1efa0 45 28 27 48 76 69 6c 6b 65 6e 20 73 76 7b 72 68 65 64 73 67 72 61 64 20 7c 6e 73 6b 65 72 20 64 ┆E('Hvilken sværhedsgrad ønsker d┆
0x1efa0…1efc0 75 20 28 31 20 2d 20 31 30 29 3a 20 27 29 3b 0d 0a 20 20 20 20 20 20 52 45 41 44 4c 4e 28 67 72 ┆u (1 - 10): '); READLN(gr┆
0x1efc0…1efe0 61 64 29 3b 0d 0a 20 20 20 20 55 4e 54 49 4c 20 28 31 20 3c 3d 20 67 72 61 64 29 20 41 4e 44 20 ┆ad); UNTIL (1 <= grad) AND ┆
0x1efe0…1f000 28 67 72 61 64 20 3c 3d 20 31 30 29 3b 0d 0a 20 20 20 20 57 52 49 54 45 4c 4e 3b 0d 0a 20 20 20 ┆(grad <= 10); WRITELN; ┆
0x1f000…1f200 (24, 0, 9) DataBlock {»DIVISION.PAS«}
0x1f200…1f220 (24, 0, 10) e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0xf…]
0x1f400…1f600 (25, 1, 1) DataBlock {»DIVISION.PAS«}
[…0x1…]
0x1f680…1f6a0 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 ┆ ┆
[…0xb…]
0x1f800…1f880 (25, 1, 3) DataBlock {»DIVISOR.PAS«}
0x1f880…1f8a0 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 ┆ ┆
[…0xb…]
0x1fa00…1fc00 (25, 1, 4) DataBlock {»DIVISION.PAS«}
0x1fc00…1fc20 (25, 1, 5) 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 ┆ ┆
[…0x1f…]
0x20000…20200 (25, 1, 7) DataBlock {»DIVISION.PAS«}
0x20200…20400 (25, 1, 8) DataBlock {»DIVISOR.PAS«}
0x20400…20420 (25, 1, 9) 50 52 4f 47 52 41 4d 20 64 69 76 69 73 6f 72 3b 0d 0a 0d 0a 28 2a 20 50 72 6f 67 72 61 6d 6d 65 ┆PROGRAM divisor; (* Programme┆
0x20420…20440 74 20 66 69 6e 64 65 72 20 64 69 76 69 73 6f 72 65 72 6e 65 20 69 20 65 74 20 68 65 6c 74 61 6c ┆t finder divisorerne i et heltal┆
0x20440…20460 20 2a 29 0d 0a 0d 0a 20 20 56 41 52 0d 0a 20 20 20 20 68 65 6c 74 61 6c 2c 20 64 69 76 69 73 6f ┆ *) VAR heltal, diviso┆
0x20460…20480 72 20 3a 20 49 4e 54 45 47 45 52 3b 0d 0a 20 20 0d 0a 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 57 ┆r : INTEGER; BEGIN W┆
0x20480…204a0 52 49 54 45 28 43 4c 52 48 4f 4d 29 3b 0d 0a 20 20 20 20 57 52 49 54 45 28 27 49 6e 64 74 61 73 ┆RITE(CLRHOM); WRITE('Indtas┆
0x204a0…204c0 74 20 65 74 20 68 65 6c 74 61 6c 3a 20 27 29 3b 20 52 45 41 44 4c 4e 28 68 65 6c 74 61 6c 29 3b ┆t et heltal: '); READLN(heltal);┆
0x204c0…204e0 0d 0a 20 20 20 20 57 52 49 54 45 4c 4e 28 68 65 6c 74 61 6c 2c 20 27 20 68 61 72 20 66 7c 6c 67 ┆ WRITELN(heltal, ' har følg┆
0x204e0…20500 65 6e 64 65 20 64 69 76 69 73 6f 72 65 72 3a 27 29 3b 0d 0a 20 20 20 20 64 69 76 69 73 6f 72 20 ┆ende divisorer:'); divisor ┆
0x20500…20520 3a 3d 20 32 3b 0d 0a 20 20 20 20 52 45 50 45 41 54 0d 0a 20 20 20 20 20 20 49 46 20 28 68 65 6c ┆:= 2; REPEAT IF (hel┆
0x20520…20540 74 61 6c 20 4d 4f 44 20 64 69 76 69 73 6f 72 29 20 3d 20 30 0d 0a 20 20 20 20 20 20 20 20 54 48 ┆tal MOD divisor) = 0 TH┆
0x20540…20560 45 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ┆EN BEGIN ┆
0x20560…20580 20 57 52 49 54 45 28 64 69 76 69 73 6f 72 20 3a 20 36 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆ WRITE(divisor : 6); ┆
0x20580…205a0 20 20 49 46 20 64 69 76 69 73 6f 72 20 3c 3e 20 28 68 65 6c 74 61 6c 20 44 49 56 20 64 69 76 69 ┆ IF divisor <> (heltal DIV divi┆
0x205a0…205c0 73 6f 72 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 20 57 52 49 54 45 4c 4e ┆sor) THEN WRITELN┆
0x205c0…205e0 28 68 65 6c 74 61 6c 20 44 49 56 20 64 69 76 69 73 6f 72 20 3a 20 36 29 3b 0d 0a 20 20 20 20 20 ┆(heltal DIV divisor : 6); ┆
0x205e0…20600 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 20 20 64 69 76 69 73 6f 72 20 3a 3d 20 64 69 76 69 ┆ END; divisor := divi┆
0x20600…20800 (25, 1, 10) DataBlock {»DIVISION.PAS«}
0x20800…20a00 (26, 0, 1) DataBlock {»DIVISOR2.PAS«}
0x20a00…20c00 (26, 0, 2) DataBlock {»DOBBELT.PAS«}
[…0x1…]
0x20e00…20e80 (26, 0, 4) DataBlock {»DIVISOR2.PAS«}
0x20e80…20ea0 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 ┆ ┆
[…0xb…]
0x21000…21200 (26, 0, 5) DataBlock {»DOBBELT.PAS«}
[…0x1…]
0x21400…21420 (26, 0, 7) e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0xf…]
0x21600…21800 (26, 0, 8) DataBlock {»DOBBELT.PAS«}
[…0x1…]
0x21a00…21a20 (26, 0, 10) e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0xf…]
0x21c00…21e00 (27, 1, 1) DataBlock {»DOBBELT.PAS«}
[…0x8…]
0x22c80…22ca0 30 2c 34 29 3b 20 57 52 49 54 45 28 27 53 4f 52 54 45 52 45 54 20 4b 5b 44 45 27 29 3b 0d 0a 20 ┆0,4); WRITE('SORTERET KÆDE'); ┆
0x22ca0…22cc0 20 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 31 30 2c 37 29 3b 20 57 52 49 54 45 ┆ GOTOXY(10,7); WRITE┆
0x22cc0…22ce0 28 27 49 2e 20 49 6e 64 73 7b 74 20 70 65 72 73 6f 6e 20 69 20 6b 7b 64 65 6e 2e 27 29 3b 0d 0a ┆('I. Indsæt person i kæden.'); ┆
0x22ce0…22d00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 31 30 2c 39 29 3b 20 57 52 49 54 ┆ GOTOXY(10,9); WRIT┆
0x22d00…22d20 45 28 27 46 2e 20 46 6a 65 72 6e 65 20 70 65 72 73 6f 6e 20 66 72 61 20 6b 7b 64 65 6e 2e 27 29 ┆E('F. Fjerne person fra kæden.')┆
0x22d20…22d40 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 31 30 2c 31 31 29 3b 20 ┆; GOTOXY(10,11); ┆
0x22d40…22d60 57 52 49 54 45 28 27 55 2e 20 55 64 73 6b 72 69 76 65 20 6b 7b 64 65 6e 20 66 6f 72 66 72 61 2e ┆WRITE('U. Udskrive kæden forfra.┆
0x22d60…22d80 27 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 31 30 2c 31 33 29 ┆'); GOTOXY(10,13)┆
0x22d80…22da0 3b 20 57 52 49 54 45 28 27 42 2e 20 55 64 73 6b 72 69 76 65 20 6b 7b 64 65 6e 20 62 61 67 66 72 ┆; WRITE('B. Udskrive kæden bagfr┆
0x22da0…22dc0 61 2e 27 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 31 30 2c 31 ┆a.'); GOTOXY(10,1┆
0x22dc0…22de0 35 29 3b 20 57 52 49 54 45 28 27 41 2e 20 41 66 73 6c 75 74 74 65 20 70 72 6f 67 72 61 6d 6d 65 ┆5); WRITE('A. Afslutte programme┆
0x22de0…22e00 74 2e 27 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 31 30 2c 31 ┆t.'); GOTOXY(10,1┆
0x22e00…23000 (27, 1, 10) DataBlock {»DOBBELT.PAS«}
0x23000…23200 (28, 0, 1) DataBlock {»ENGSTIL.PAS«}
0x23200…23400 (28, 0, 2) DataBlock {»ERATOSTH.PAS«}
0x23400…23420 (28, 0, 3) 50 52 4f 47 52 41 4d 20 65 72 61 74 6f 73 74 68 3b 0d 0a 0d 0a 20 20 54 59 50 45 0d 0a 20 20 20 ┆PROGRAM eratosth; TYPE ┆
0x23420…23440 20 61 72 72 61 79 74 79 70 65 20 3d 20 41 52 52 41 59 28 2e 31 20 2e 2e 20 31 36 33 38 34 2e 29 ┆ arraytype = ARRAY(.1 .. 16384.)┆
0x23440…23460 20 4f 46 20 42 4f 4f 4c 45 41 4e 3b 0d 0a 20 20 0d 0a 20 20 56 41 52 0d 0a 20 20 20 20 74 61 62 ┆ OF BOOLEAN; VAR tab┆
0x23460…23480 20 3a 20 61 72 72 61 79 74 79 70 65 3b 20 28 2a 20 74 61 62 28 2e 69 2e 29 20 72 65 70 72 7b 73 ┆ : arraytype; (* tab(.i.) repræs┆
0x23480…234a0 65 6e 74 65 72 65 72 20 64 65 74 20 75 6c 69 67 65 20 74 61 6c 20 32 20 2a 20 69 20 2b 20 31 20 ┆enterer det ulige tal 2 * i + 1 ┆
0x234a0…234c0 2a 29 0d 0a 20 20 20 20 67 72 61 65 6e 73 65 2c 20 67 72 61 65 6e 73 65 32 2c 20 67 72 61 65 6e ┆*) graense, graense2, graen┆
0x234c0…234e0 73 65 33 2c 20 69 2c 20 6a 2c 20 6b 20 3a 20 49 4e 54 45 47 45 52 3b 0d 0a 20 20 0d 0a 20 20 42 ┆se3, i, j, k : INTEGER; B┆
0x234e0…23500 45 47 49 4e 0d 0a 20 20 20 20 57 52 49 54 45 28 43 4c 52 48 4f 4d 29 3b 0d 0a 20 20 20 20 57 52 ┆EGIN WRITE(CLRHOM); WR┆
0x23500…23520 49 54 45 28 27 49 6e 64 74 61 73 74 20 7c 76 72 65 20 67 72 7b 6e 73 65 20 28 6d 61 78 3a 20 33 ┆ITE('Indtast øvre grænse (max: 3┆
0x23520…23540 32 37 36 37 29 3a 20 27 29 3b 20 52 45 41 44 4c 4e 28 67 72 61 65 6e 73 65 29 3b 0d 0a 20 20 20 ┆2767): '); READLN(graense); ┆
0x23540…23560 20 67 72 61 65 6e 73 65 32 20 3a 3d 20 67 72 61 65 6e 73 65 20 44 49 56 20 32 3b 0d 0a 20 20 20 ┆ graense2 := graense DIV 2; ┆
0x23560…23580 20 67 72 61 65 6e 73 65 33 20 3a 3d 20 67 72 61 65 6e 73 65 20 44 49 56 20 33 20 2b 20 31 3b 0d ┆ graense3 := graense DIV 3 + 1; ┆
0x23580…235a0 0a 20 20 20 20 46 4f 52 20 69 20 3a 3d 20 31 20 54 4f 20 67 72 61 65 6e 73 65 32 20 44 4f 0d 0a ┆ FOR i := 1 TO graense2 DO ┆
0x235a0…235c0 20 20 20 20 20 20 74 61 62 28 2e 69 2e 29 20 3a 3d 20 54 52 55 45 3b 0d 0a 20 20 20 20 57 52 49 ┆ tab(.i.) := TRUE; WRI┆
0x235c0…235e0 54 45 4c 4e 3b 0d 0a 20 20 20 20 49 46 20 67 72 61 65 6e 73 65 20 3e 20 31 0d 0a 20 20 20 20 20 ┆TELN; IF graense > 1 ┆
0x235e0…23600 20 54 48 45 4e 20 57 52 49 54 45 28 32 20 3a 20 38 29 3b 0d 0a 20 20 20 20 46 4f 52 20 69 20 3a ┆ THEN WRITE(2 : 8); FOR i :┆
0x23600…23800 (28, 0, 4) DataBlock {»ENGSTIL.PAS«}
0x23800…23a00 (28, 0, 5) DataBlock {»ERATOSTH.PAS«}
0x23a00…23c00 (28, 0, 6) DataBlock {»FAHRENHE.PAS«}
0x23c00…23c20 (28, 0, 7) e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0xf…]
0x23e00…23f00 (28, 0, 8) DataBlock {»ERATOSTH.PAS«}
0x23f00…23f20 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 ┆ ┆
[…0x7…]
0x24000…24080 (28, 0, 9) DataBlock {»FAHRENHE.PAS«}
0x24080…240a0 0d 0a 20 20 20 20 57 52 49 54 45 4c 4e 3b 0d 0a 20 20 45 4e 44 2e 0d 0a 78 1a 1a 1a 1a 1a 1a 1a ┆ WRITELN; END. x ┆
0x240a0…240c0 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ ┆
[…0x2…]
0x24100…24120 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 ┆ ┆
[…0x27…]
0x24600…24800 (29, 1, 2) DataBlock {»FAKTURA.PAS«}
[…0x1…]
0x24900…24920 20 73 6b 72 69 76 28 6b 75 6e 64 65 20 3a 20 73 74 72 33 30 3b 20 70 6f 73 74 61 6e 74 61 6c 20 ┆ skriv(kunde : str30; postantal ┆
0x24920…24940 3a 20 49 4e 54 45 47 45 52 3b 20 56 41 52 20 6e 75 6d 6d 65 72 20 3a 20 74 61 62 69 6e 74 3b 20 ┆: INTEGER; VAR nummer : tabint; ┆
0x24940…24960 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 56 41 52 20 6e 61 76 6e 20 3a 20 74 ┆ VAR navn : t┆
0x24960…24980 61 62 73 74 72 3b 20 56 41 52 20 61 6e 74 61 6c 20 3a 20 74 61 62 69 6e 74 3b 20 56 41 52 20 70 ┆abstr; VAR antal : tabint; VAR p┆
0x24980…249a0 72 69 73 20 3a 20 74 61 62 72 65 61 6c 3b 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ris : tabreal; ┆
0x249a0…249c0 20 20 20 74 6f 74 61 6c 2c 20 6d 6f 6d 73 20 3a 20 52 45 41 4c 29 3b 0d 0a 20 20 20 20 0d 0a 20 ┆ total, moms : REAL); ┆
0x249c0…249e0 20 20 20 56 41 52 0d 0a 20 20 20 20 20 20 70 72 69 6b 6b 65 72 20 3a 20 73 74 72 33 30 3b 0d 0a ┆ VAR prikker : str30; ┆
0x249e0…24a00 20 20 20 20 20 20 69 20 3a 20 49 4e 54 45 47 45 52 3b 0d 0a 20 20 20 20 20 20 0d 0a 20 20 20 20 ┆ i : INTEGER; ┆
0x24a00…24a20 (29, 1, 4) e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0xf…]
0x24c00…24e00 (29, 1, 5) DataBlock {»FAKTURA.PAS«}
0x24e00…24e20 (29, 1, 6) 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 57 52 49 54 45 28 43 4c 52 48 4f 4d 29 3b 0d 0a 20 20 20 ┆BEGIN WRITE(CLRHOM); ┆
0x24e20…24e40 20 20 20 70 72 69 6b 6b 65 72 20 3a 3d 20 27 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e ┆ prikker := '.................┆
0x24e40…24e60 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 27 3b 0d 0a 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 27 41 ┆............'; WRITELN('A┆
0x24e60…24e80 2e 42 2e 43 61 72 6c 73 65 6e 20 41 70 73 27 29 3b 0d 0a 20 20 20 20 20 20 57 52 49 54 45 4c 4e ┆.B.Carlsen Aps'); WRITELN┆
0x24e80…24ea0 28 27 53 7c 67 61 64 65 20 34 30 30 27 29 3b 0d 0a 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 27 ┆('Søgade 400'); WRITELN('┆
0x24ea0…24ec0 30 30 30 30 20 56 65 73 74 62 79 27 29 3b 0d 0a 20 20 20 20 20 20 57 52 49 54 45 4c 4e 3b 0d 0a ┆0000 Vestby'); WRITELN; ┆
0x24ec0…24ee0 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 27 4b 55 4e 44 45 3a 20 27 2c 20 6b 75 6e 64 65 29 3b ┆ WRITELN('KUNDE: ', kunde);┆
0x24ee0…24f00 0d 0a 20 20 20 20 20 20 57 52 49 54 45 4c 4e 3b 0d 0a 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 ┆ WRITELN; WRITELN(┆
0x24f00…24f20 27 20 20 20 20 20 20 20 20 4e 52 20 20 20 20 20 56 41 52 45 20 20 20 20 20 20 20 20 20 20 20 20 ┆' NR VARE ┆
0x24f20…24f40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 41 4e 54 41 4c 20 20 20 20 20 20 50 52 49 53 27 2c 0d ┆ ANTAL PRIS', ┆
0x24f40…24f60 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 20 20 20 20 20 42 45 4c 5c 42 27 29 3b 0d 0a 20 ┆ ' BELØB'); ┆
0x24f60…24f80 20 20 20 20 20 57 52 49 54 45 4c 4e 3b 0d 0a 20 20 20 20 20 20 46 4f 52 20 69 20 3a 3d 20 31 20 ┆ WRITELN; FOR i := 1 ┆
0x24f80…24fa0 54 4f 20 70 6f 73 74 61 6e 74 61 6c 20 44 4f 0d 0a 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 0a ┆TO postantal DO BEGIN ┆
0x24fa0…24fc0 20 20 20 20 20 20 20 20 20 20 6e 61 76 6e 28 2e 69 2e 29 20 3a 3d 20 6e 61 76 6e 28 2e 69 2e 29 ┆ navn(.i.) := navn(.i.)┆
0x24fc0…24fe0 20 2b 20 27 20 27 20 2b 20 70 72 69 6b 6b 65 72 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 57 52 49 ┆ + ' ' + prikker; WRI┆
0x24fe0…25000 54 45 4c 4e 28 6e 75 6d 6d 65 72 28 2e 69 2e 29 20 3a 20 31 30 2c 20 27 20 20 20 20 20 27 2c 20 ┆TELN(nummer(.i.) : 10, ' ', ┆
0x25000…25200 (29, 1, 7) DataBlock {»FAKTURA.PAS«}
[…0x1…]
0x25400…25420 (29, 1, 9) 6e 61 76 6e 28 2e 69 2e 29 2c 20 61 6e 74 61 6c 28 2e 69 2e 29 20 3a 20 35 2c 20 0d 0a 20 20 20 ┆navn(.i.), antal(.i.) : 5, ┆
0x25420…25440 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 72 69 73 28 2e 69 2e 29 20 3a 20 31 30 20 3a 20 ┆ pris(.i.) : 10 : ┆
0x25440…25460 32 2c 20 61 6e 74 61 6c 28 2e 69 2e 29 20 2a 20 70 72 69 73 28 2e 69 2e 29 20 3a 20 31 30 20 3a ┆2, antal(.i.) * pris(.i.) : 10 :┆
0x25460…25480 20 32 29 3b 0d 0a 20 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 20 20 57 52 49 54 45 4c ┆ 2); END; WRITEL┆
0x25480…254a0 4e 28 27 20 27 20 3a 20 34 35 2c 20 27 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆N(' ' : 45, '-------------------┆
0x254a0…254c0 2d 2d 2d 2d 2d 2d 27 29 3b 0d 0a 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 27 20 27 20 3a 20 34 ┆------'); WRITELN(' ' : 4┆
0x254c0…254e0 35 2c 20 27 54 4f 54 41 4c 27 2c 20 74 6f 74 61 6c 20 3a 20 32 30 20 3a 20 32 29 3b 0d 0a 20 20 ┆5, 'TOTAL', total : 20 : 2); ┆
0x254e0…25500 20 20 20 20 57 52 49 54 45 4c 4e 28 27 20 27 20 3a 20 34 35 2c 20 27 4d 4f 4d 53 20 27 2c 20 6d ┆ WRITELN(' ' : 45, 'MOMS ', m┆
0x25500…25520 6f 6d 73 20 3a 20 32 30 20 3a 20 32 29 3b 0d 0a 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 27 20 ┆oms : 20 : 2); WRITELN(' ┆
0x25520…25540 27 20 3a 20 34 35 2c 20 27 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆' : 45, '-----------------------┆
0x25540…25560 2d 2d 27 29 3b 0d 0a 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 27 20 27 20 3a 20 34 35 2c 20 20 ┆--'); WRITELN(' ' : 45, ┆
0x25560…25580 27 49 41 4c 54 20 27 2c 20 74 6f 74 61 6c 20 2b 20 6d 6f 6d 73 20 3a 20 32 30 20 3a 20 32 29 3b ┆'IALT ', total + moms : 20 : 2);┆
0x25580…255a0 0d 0a 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 0d 0a 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 69 ┆ END; BEGIN i┆
0x255a0…255c0 6e 64 28 6b 75 6e 64 65 6e 61 76 6e 2c 20 61 6e 74 61 6c 5f 76 61 72 65 72 2c 20 76 61 72 65 6e ┆nd(kundenavn, antal_varer, varen┆
0x255c0…255e0 75 6d 6d 65 72 2c 20 76 61 72 65 6e 61 76 6e 2c 20 76 61 72 65 61 6e 74 61 6c 2c 20 76 61 72 65 ┆ummer, varenavn, vareantal, vare┆
0x255e0…25600 70 72 69 73 29 3b 0d 0a 20 20 20 20 73 75 6d 20 3a 3d 20 30 3b 0d 0a 20 20 20 20 46 4f 52 20 69 ┆pris); sum := 0; FOR i┆
0x25600…25800 (29, 1, 10) DataBlock {»FAKTURA.PAS«}
0x25800…25980 (30, 0, 1) DataBlock {»FIBO.PAS«}
0x25980…259a0 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 ┆ ┆
[…0x3…]
0x25a00…25c00 (30, 0, 2) DataBlock {»FIBOFORH.PAS«}
0x25c00…25c20 (30, 0, 3) 50 52 4f 47 52 41 4d 20 66 69 62 6f 66 6f 72 68 3b 0d 0a 0d 0a 20 20 43 4f 4e 53 54 0d 0a 20 20 ┆PROGRAM fiboforh; CONST ┆
0x25c20…25c40 20 20 61 6e 74 61 6c 20 3d 20 35 30 3b 0d 0a 20 20 20 20 0d 0a 20 20 56 41 52 0d 0a 20 20 20 20 ┆ antal = 50; VAR ┆
0x25c40…25c60 61 2c 20 62 2c 20 67 65 6d 2c 20 66 6f 72 68 6f 6c 64 20 3a 20 52 45 41 4c 3b 0d 0a 20 20 20 20 ┆a, b, gem, forhold : REAL; ┆
0x25c60…25c80 69 20 3a 20 49 4e 54 45 47 45 52 3b 0d 0a 20 20 20 20 0d 0a 20 20 42 45 47 49 4e 0d 0a 20 20 20 ┆i : INTEGER; BEGIN ┆
0x25c80…25ca0 20 57 52 49 54 45 28 43 4c 52 48 4f 4d 29 3b 0d 0a 20 20 20 20 61 20 3a 3d 20 31 3b 0d 0a 20 20 ┆ WRITE(CLRHOM); a := 1; ┆
0x25ca0…25cc0 20 20 62 20 3a 3d 20 31 3b 0d 0a 20 20 20 20 46 4f 52 20 69 20 3a 3d 20 31 20 54 4f 20 61 6e 74 ┆ b := 1; FOR i := 1 TO ant┆
0x25cc0…25ce0 61 6c 20 44 4f 0d 0a 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 67 65 6d 20 ┆al DO BEGIN gem ┆
0x25ce0…25d00 3a 3d 20 62 3b 0d 0a 20 20 20 20 20 20 20 20 62 20 3a 3d 20 61 20 2b 20 62 3b 0d 0a 20 20 20 20 ┆:= b; b := a + b; ┆
0x25d00…25d20 20 20 20 20 61 20 3a 3d 20 67 65 6d 3b 0d 0a 20 20 20 20 20 20 20 20 66 6f 72 68 6f 6c 64 20 3a ┆ a := gem; forhold :┆
0x25d20…25d40 3d 20 62 20 2f 20 61 3b 0d 0a 20 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 61 20 3a 20 31 35 ┆= b / a; WRITELN(a : 15┆
0x25d40…25d60 20 3a 20 30 2c 20 62 20 3a 20 31 35 20 3a 20 30 2c 20 66 6f 72 68 6f 6c 64 20 3a 20 31 35 20 3a ┆ : 0, b : 15 : 0, forhold : 15 :┆
0x25d60…25d80 20 38 2c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 51 52 28 32 20 2a 20 66 6f 72 ┆ 8, SQR(2 * for┆
0x25d80…25da0 68 6f 6c 64 20 2d 20 31 29 20 3a 20 31 35 20 3a 20 38 29 3b 0d 0a 20 20 20 20 20 20 45 4e 44 3b ┆hold - 1) : 15 : 8); END;┆
0x25da0…25dc0 0d 0a 20 20 45 4e 44 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. ┆
0x25dc0…25de0 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ ┆
[…0x1…]
0x25e00…25e20 (30, 0, 4) e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0xf…]
0x26000…26020 (30, 0, 5) 20 20 20 20 20 20 20 20 50 52 4f 47 52 41 4d 20 66 69 62 6f 6e 61 63 31 3b 0d 0a 20 20 20 20 20 ┆ PROGRAM fibonac1; ┆
0x26020…26040 20 20 20 0d 0a 20 20 20 20 20 20 20 20 20 20 56 41 52 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ VAR ┆
0x26040…26060 69 20 3a 20 49 4e 54 45 47 45 52 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 0d 0a 20 20 20 20 20 20 ┆i : INTEGER; ┆
0x26060…26080 20 20 20 20 46 55 4e 43 54 49 4f 4e 20 66 69 62 28 6e 20 3a 20 49 4e 54 45 47 45 52 29 20 3a 20 ┆ FUNCTION fib(n : INTEGER) : ┆
0x26080…260a0 49 4e 54 45 47 45 52 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 0d 0a 20 20 20 20 20 20 20 20 ┆INTEGER; ┆
0x260a0…260c0 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 6e 20 3c 20 ┆ BEGIN IF n < ┆
0x260c0…260e0 33 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 20 66 69 62 20 3a 3d 20 31 ┆3 THEN fib := 1┆
0x260e0…26100 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 20 66 69 62 20 3a 3d 20 66 69 ┆ ELSE fib := fi┆
0x26100…26120 62 28 6e 20 2d 20 31 29 20 2b 20 66 69 62 28 6e 20 2d 20 32 29 3b 0d 0a 20 20 20 20 20 20 20 20 ┆b(n - 1) + fib(n - 2); ┆
0x26120…26140 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆ END; ┆
0x26140…26160 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 46 4f 52 20 69 20 3a 3d 20 31 20 54 4f ┆BEGIN FOR i := 1 TO┆
0x26160…26180 20 32 33 20 44 4f 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 27 46 ┆ 23 DO WRITELN('F┆
0x26180…261a0 69 62 28 27 2c 20 69 2c 20 27 29 20 3d 20 27 2c 20 66 69 62 28 69 29 29 3b 0d 0a 20 20 20 20 20 ┆ib(', i, ') = ', fib(i)); ┆
0x261a0…261c0 20 20 20 20 20 45 4e 44 2e 0d 0a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ END. ┆
0x261c0…261e0 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ ┆
[…0x1…]
0x26200…26400 (30, 0, 6) DataBlock {»FIBONAC1.PAS«}
0x26400…26420 (30, 0, 7) e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0x4f…]
0x26e00…26e20 (31, 1, 2) 20 3a 3d 20 30 3b 0d 0a 20 20 20 20 49 46 20 6c 61 65 6e 67 64 65 20 3e 3d 20 31 30 30 20 0d 0a ┆ := 0; IF laengde >= 100 ┆
0x26e20…26e40 20 20 20 20 20 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 ┆ THEN BEGIN ┆
0x26e40…26e60 20 20 20 20 20 52 45 50 45 41 54 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 42 4c 4f 43 4b 52 45 ┆ REPEAT BLOCKRE┆
0x26e60…26e80 41 44 28 69 6e 64 66 69 6c 2c 20 62 75 66 66 65 72 2c 20 31 30 30 29 3b 0d 0a 20 20 20 20 20 20 ┆AD(indfil, buffer, 100); ┆
0x26e80…26ea0 20 20 20 20 20 20 42 4c 4f 43 4b 57 52 49 54 45 28 75 64 66 69 6c 2c 20 62 75 66 66 65 72 2c 20 ┆ BLOCKWRITE(udfil, buffer, ┆
0x26ea0…26ec0 31 30 30 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 20 3a 3d 20 69 20 2b 20 31 30 30 3b ┆100); i := i + 100;┆
0x26ec0…26ee0 0d 0a 20 20 20 20 20 20 20 20 20 20 55 4e 54 49 4c 20 28 6c 61 65 6e 67 64 65 20 2d 20 69 29 20 ┆ UNTIL (laengde - i) ┆
0x26ee0…26f00 3c 20 31 30 30 3b 0d 0a 20 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 49 46 20 28 6c 61 ┆< 100; END; IF (la┆
0x26f00…26f20 65 6e 67 64 65 20 2d 20 69 29 20 3e 20 30 0d 0a 20 20 20 20 20 20 54 48 45 4e 0d 0a 20 20 20 20 ┆engde - i) > 0 THEN ┆
0x26f20…26f40 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 42 4c 4f 43 4b 52 45 41 44 28 69 ┆ BEGIN BLOCKREAD(i┆
0x26f40…26f60 6e 64 66 69 6c 2c 20 62 75 66 66 65 72 2c 20 6c 61 65 6e 67 64 65 20 2d 20 69 29 3b 0d 0a 20 20 ┆ndfil, buffer, laengde - i); ┆
0x26f60…26f80 20 20 20 20 20 20 20 20 42 4c 4f 43 4b 57 52 49 54 45 28 75 64 66 69 6c 2c 20 62 75 66 66 65 72 ┆ BLOCKWRITE(udfil, buffer┆
0x26f80…26fa0 2c 20 6c 61 65 6e 67 64 65 20 2d 20 69 29 3b 0d 0a 20 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 ┆, laengde - i); END; ┆
0x26fa0…26fc0 20 20 20 43 4c 4f 53 45 28 69 6e 64 66 69 6c 29 3b 0d 0a 20 20 20 20 43 4c 4f 53 45 28 75 64 66 ┆ CLOSE(indfil); CLOSE(udf┆
0x26fc0…26fe0 69 6c 29 3b 0d 0a 20 20 45 4e 44 2e 0d 0a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆il); END. ┆
0x26fe0…27000 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 ┆ ┆
0x27000…27200 (31, 1, 3) DataBlock {»FILKOPI.PAS«}
0x27200…27220 (31, 1, 4) e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0x2f…]
0x27800…27a00 (31, 1, 7) DataBlock {»FIBONAC2.PAS«}
0x27a00…27c00 (31, 1, 8) DataBlock {»FILKOPI.PAS«}
0x27c00…27c20 (31, 1, 9) 50 52 4f 47 52 41 4d 20 66 69 6c 6b 6f 70 69 3b 0d 0a 0d 0a 20 20 54 59 50 45 0d 0a 20 20 20 20 ┆PROGRAM filkopi; TYPE ┆
0x27c20…27c40 62 75 66 66 65 72 74 79 70 65 20 3d 20 41 52 52 41 59 28 2e 31 20 2e 2e 20 31 32 38 30 30 2e 29 ┆buffertype = ARRAY(.1 .. 12800.)┆
0x27c40…27c60 20 4f 46 20 43 48 41 52 3b 0d 0a 20 20 20 20 73 74 72 31 34 20 3d 20 53 54 52 49 4e 47 28 2e 31 ┆ OF CHAR; str14 = STRING(.1┆
0x27c60…27c80 34 2e 29 3b 0d 0a 20 20 20 20 0d 0a 20 20 56 41 52 0d 0a 20 20 20 20 62 75 66 66 65 72 20 3a 20 ┆4.); VAR buffer : ┆
0x27c80…27ca0 62 75 66 66 65 72 74 79 70 65 3b 0d 0a 20 20 20 20 69 6e 64 6e 61 76 6e 2c 20 75 64 6e 61 76 6e ┆buffertype; indnavn, udnavn┆
0x27ca0…27cc0 20 3a 20 73 74 72 31 34 3b 0d 0a 20 20 20 20 69 6e 64 66 69 6c 2c 20 75 64 66 69 6c 20 3a 20 46 ┆ : str14; indfil, udfil : F┆
0x27cc0…27ce0 49 4c 45 3b 0d 0a 20 20 20 20 69 2c 20 6c 61 65 6e 67 64 65 20 3a 20 49 4e 54 45 47 45 52 3b 0d ┆ILE; i, laengde : INTEGER; ┆
0x27ce0…27d00 0a 20 20 20 20 0d 0a 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 57 52 49 54 45 28 43 4c 52 48 4f 4d ┆ BEGIN WRITE(CLRHOM┆
0x27d00…27d20 29 3b 0d 0a 20 20 20 20 57 52 49 54 45 28 27 48 76 69 6c 6b 65 6e 20 66 69 6c 20 73 6b 61 6c 20 ┆); WRITE('Hvilken fil skal ┆
0x27d20…27d40 6b 6f 70 69 65 72 65 73 3a 20 27 29 3b 20 52 45 41 44 4c 4e 28 69 6e 64 6e 61 76 6e 29 3b 0d 0a ┆kopieres: '); READLN(indnavn); ┆
0x27d40…27d60 20 20 20 20 57 52 49 54 45 28 27 48 76 61 64 20 73 6b 61 6c 20 6b 6f 70 69 65 6e 20 68 65 64 64 ┆ WRITE('Hvad skal kopien hedd┆
0x27d60…27d80 65 3a 20 27 29 3b 20 52 45 41 44 4c 4e 28 75 64 6e 61 76 6e 29 3b 0d 0a 20 20 20 20 41 53 53 49 ┆e: '); READLN(udnavn); ASSI┆
0x27d80…27da0 47 4e 28 69 6e 64 66 69 6c 2c 20 69 6e 64 6e 61 76 6e 29 3b 0d 0a 20 20 20 20 41 53 53 49 47 4e ┆GN(indfil, indnavn); ASSIGN┆
0x27da0…27dc0 28 75 64 66 69 6c 2c 20 75 64 6e 61 76 6e 29 3b 0d 0a 20 20 20 20 52 45 53 45 54 28 69 6e 64 66 ┆(udfil, udnavn); RESET(indf┆
0x27dc0…27de0 69 6c 29 3b 0d 0a 20 20 20 20 52 45 57 52 49 54 45 28 75 64 66 69 6c 29 3b 0d 0a 20 20 20 20 6c ┆il); REWRITE(udfil); l┆
0x27de0…27e00 61 65 6e 67 64 65 20 3a 3d 20 4c 45 4e 47 54 48 28 69 6e 64 66 69 6c 29 3b 0d 0a 20 20 20 20 69 ┆aengde := LENGTH(indfil); i┆
0x27e00…27f00 (31, 1, 10) DataBlock {»FIBONAC2.PAS«}
0x27f00…27f20 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 ┆ ┆
[…0x7…]
0x28000…28200 (32, 0, 1) DataBlock {»FLADE.PAS«}
0x28200…28400 (32, 0, 2) DataBlock {»FLETNING.PAS«}
[…0x1…]
0x28600…28700 (32, 0, 4) DataBlock {»FLADE.PAS«}
0x28700…28720 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 ┆ ┆
[…0x7…]
0x28800…28a00 (32, 0, 5) DataBlock {»FLETNING.PAS«}
[…0x1…]
0x28c00…28c20 (32, 0, 7) e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0xf…]
0x28e00…29000 (32, 0, 8) DataBlock {»FLETNING.PAS«}
[…0x1…]
0x29200…29220 (32, 0, 10) e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0xf…]
0x29400…29600 (33, 1, 1) DataBlock {»FLETNING.PAS«}
0x29600…29620 (33, 1, 2) 20 45 4c 53 45 20 49 46 20 74 61 65 6c 6c 65 72 20 4d 4f 44 20 6e 61 65 76 6e 65 72 20 3d 20 30 ┆ ELSE IF taeller MOD naevner = 0┆
0x29620…29640 0d 0a 20 20 20 20 20 20 20 20 54 48 45 4e 20 57 52 49 54 45 4c 4e 28 27 20 3d 20 27 2c 20 74 61 ┆ THEN WRITELN(' = ', ta┆
0x29640…29660 65 6c 6c 65 72 20 44 49 56 20 6e 61 65 76 6e 65 72 29 0d 0a 20 20 20 20 20 20 45 4c 53 45 0d 0a ┆eller DIV naevner) ELSE ┆
0x29660…29680 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 74 61 65 6c 6c 65 72 ┆ BEGIN taeller┆
0x29680…296a0 20 3a 3d 20 74 61 65 6c 6c 65 72 20 44 49 56 20 74 61 65 6c 6c 65 72 6b 6f 70 69 3b 0d 0a 20 20 ┆ := taeller DIV taellerkopi; ┆
0x296a0…296c0 20 20 20 20 20 20 20 20 6e 61 65 76 6e 65 72 20 3a 3d 20 6e 61 65 76 6e 65 72 20 44 49 56 20 74 ┆ naevner := naevner DIV t┆
0x296c0…296e0 61 65 6c 6c 65 72 6b 6f 70 69 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 27 ┆aellerkopi; WRITELN('┆
0x296e0…29700 20 3d 20 27 2c 20 74 61 65 6c 6c 65 72 2c 20 27 20 2f 20 27 2c 20 6e 61 65 76 6e 65 72 29 3b 20 ┆ = ', taeller, ' / ', naevner); ┆
0x29700…29720 0d 0a 20 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 45 4e 44 3b 0d 0a 20 20 0d 0a 20 20 ┆ END; END; ┆
0x29720…29740 42 45 47 49 4e 0d 0a 20 20 20 20 57 52 49 54 45 28 43 4c 52 48 4f 4d 29 3b 0d 0a 20 20 20 20 57 ┆BEGIN WRITE(CLRHOM); W┆
0x29740…29760 52 49 54 45 28 27 54 61 73 74 20 74 7b 6c 6c 65 72 3a 20 27 29 3b 20 52 45 41 44 4c 4e 28 74 29 ┆RITE('Tast tæller: '); READLN(t)┆
0x29760…29780 3b 0d 0a 20 20 20 20 57 52 49 54 45 28 27 54 61 73 74 20 6e 7b 76 6e 65 72 3a 20 27 29 3b 20 52 ┆; WRITE('Tast nævner: '); R┆
0x29780…297a0 45 41 44 4c 4e 28 6e 29 3b 0d 0a 20 20 20 20 66 6f 72 68 6f 6c 64 28 74 2c 20 6e 29 3b 0d 0a 20 ┆EADLN(n); forhold(t, n); ┆
0x297a0…297c0 20 45 4e 44 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 1a 1a 1a ┆ END. ┆
0x297c0…297e0 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ ┆
[…0x1…]
0x29800…29a00 (33, 1, 3) DataBlock {»FORKORT.PAS«}
0x29a00…29c00 (33, 1, 4) DataBlock {»FLETNING.PAS«}
0x29c00…29c20 (33, 1, 5) 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 ┆ ┆
[…0x1f…]
0x2a000…2a200 (33, 1, 7) DataBlock {»FLETNING.PAS«}
0x2a200…2a400 (33, 1, 8) DataBlock {»FORKORT.PAS«}
0x2a400…2a420 (33, 1, 9) 50 52 4f 47 52 41 4d 20 66 6f 72 6b 6f 72 74 3b 0d 0a 0d 0a 20 20 56 41 52 0d 0a 20 20 20 20 74 ┆PROGRAM forkort; VAR t┆
0x2a420…2a440 2c 20 6e 20 3a 20 49 4e 54 45 47 45 52 3b 0d 0a 20 20 0d 0a 20 20 50 52 4f 43 45 44 55 52 45 20 ┆, n : INTEGER; PROCEDURE ┆
0x2a440…2a460 66 6f 72 68 6f 6c 64 28 74 61 65 6c 6c 65 72 2c 20 6e 61 65 76 6e 65 72 20 3a 20 49 4e 54 45 47 ┆forhold(taeller, naevner : INTEG┆
0x2a460…2a480 45 52 29 3b 0d 0a 20 20 0d 0a 20 20 20 20 56 41 52 0d 0a 20 20 20 20 20 20 74 61 65 6c 6c 65 72 ┆ER); VAR taeller┆
0x2a480…2a4a0 6b 6f 70 69 2c 20 6e 61 65 76 6e 65 72 6b 6f 70 69 2c 20 72 65 73 74 20 3a 20 49 4e 54 45 47 45 ┆kopi, naevnerkopi, rest : INTEGE┆
0x2a4a0…2a4c0 52 3b 0d 0a 20 20 20 20 0d 0a 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 74 61 65 6c 6c ┆R; BEGIN taell┆
0x2a4c0…2a4e0 65 72 6b 6f 70 69 20 3a 3d 20 74 61 65 6c 6c 65 72 3b 0d 0a 20 20 20 20 20 20 6e 61 65 76 6e 65 ┆erkopi := taeller; naevne┆
0x2a4e0…2a500 72 6b 6f 70 69 20 3a 3d 20 6e 61 65 76 6e 65 72 3b 0d 0a 20 20 20 20 20 20 52 45 50 45 41 54 0d ┆rkopi := naevner; REPEAT ┆
0x2a500…2a520 0a 20 20 20 20 20 20 20 20 72 65 73 74 20 3a 3d 20 74 61 65 6c 6c 65 72 6b 6f 70 69 20 4d 4f 44 ┆ rest := taellerkopi MOD┆
0x2a520…2a540 20 6e 61 65 76 6e 65 72 6b 6f 70 69 3b 0d 0a 20 20 20 20 20 20 20 20 74 61 65 6c 6c 65 72 6b 6f ┆ naevnerkopi; taellerko┆
0x2a540…2a560 70 69 20 3a 3d 20 6e 61 65 76 6e 65 72 6b 6f 70 69 3b 0d 0a 20 20 20 20 20 20 20 20 6e 61 65 76 ┆pi := naevnerkopi; naev┆
0x2a560…2a580 6e 65 72 6b 6f 70 69 20 3a 3d 20 72 65 73 74 3b 0d 0a 20 20 20 20 20 20 55 4e 54 49 4c 20 6e 61 ┆nerkopi := rest; UNTIL na┆
0x2a580…2a5a0 65 76 6e 65 72 6b 6f 70 69 20 3d 20 30 3b 0d 0a 20 20 20 20 20 20 57 52 49 54 45 28 74 61 65 6c ┆evnerkopi = 0; WRITE(tael┆
0x2a5a0…2a5c0 6c 65 72 2c 20 27 20 2f 20 27 2c 20 6e 61 65 76 6e 65 72 29 3b 0d 0a 20 20 20 20 20 20 49 46 20 ┆ler, ' / ', naevner); IF ┆
0x2a5c0…2a5e0 74 61 65 6c 6c 65 72 6b 6f 70 69 20 3d 20 31 0d 0a 20 20 20 20 20 20 20 20 54 48 45 4e 20 57 52 ┆taellerkopi = 1 THEN WR┆
0x2a5e0…2a600 49 54 45 4c 4e 28 27 20 65 72 20 75 66 6f 72 6b 6f 72 74 65 6c 69 67 27 29 0d 0a 20 20 20 20 20 ┆ITELN(' er uforkortelig') ┆
0x2a600…2a620 (33, 1, 10) e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0xf…]
0x2a800…2aa00 (34, 0, 1) DataBlock {»GAETTEGN.PAS«}
0x2aa00…2ac00 (34, 0, 2) DataBlock {»GRUNDTAL.PAS«}
[…0x1…]
0x2ae00…2b000 (34, 0, 4) DataBlock {»GAETTEGN.PAS«}
0x2b000…2b200 (34, 0, 5) DataBlock {»GRUNDTAL.PAS«}
[…0x1…]
0x2b400…2b600 (34, 0, 7) DataBlock {»GAETTEGN.PAS«}
0x2b600…2b800 (34, 0, 8) DataBlock {»GRUNDTAL.PAS«}
[…0x1…]
0x2b980…2b9a0 4f 52 44 28 27 41 27 29 20 2d 20 31 31 20 2b 20 69 29 3b 0d 0a 20 20 20 20 57 52 49 54 45 28 43 ┆ORD('A') - 11 + i); WRITE(C┆
0x2b9a0…2b9c0 4c 52 48 4f 4d 29 3b 0d 0a 20 20 20 20 52 45 50 45 41 54 0d 0a 20 20 20 20 20 20 52 45 50 45 41 ┆LRHOM); REPEAT REPEA┆
0x2b9c0…2b9e0 54 0d 0a 20 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 35 2c 20 31 29 3b 0d 0a 20 20 20 20 20 20 ┆T GOTOXY(5, 1); ┆
0x2b9e0…2ba00 20 20 57 52 49 54 45 28 43 4c 52 45 4f 4c 29 3b 0d 0a 20 20 20 20 20 20 20 20 42 55 46 4c 45 4e ┆ WRITE(CLREOL); BUFLEN┆
0x2ba00…2bc00 (34, 0, 10) DataBlock {»GAETTEGN.PAS«}
0x2bc00…2bc20 (35, 1, 1) e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0xf…]
0x2be00…2be20 (35, 1, 2) 62 65 6c 20 3a 20 68 61 73 68 74 61 62 65 6c 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 63 70 ┆bel : hashtabel; cp┆
0x2be20…2be40 72 20 3a 20 73 74 72 31 30 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 63 68 20 3a 20 43 48 41 ┆r : str10; ch : CHA┆
0x2be40…2be60 52 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 64 65 78 20 3a 20 69 6e 64 65 78 74 79 70 ┆R; index : indextyp┆
0x2be60…2be80 65 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 2c 20 74 65 73 74 20 3a 20 49 4e 54 45 47 45 ┆e; i, test : INTEGE┆
0x2be80…2bea0 52 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 0d 0a 20 20 20 20 20 20 20 20 20 20 46 55 4e 43 ┆R; FUNC┆
0x2bea0…2bec0 54 49 4f 4e 20 73 6f 65 67 28 74 61 62 70 6f 69 6e 74 65 72 20 3a 20 70 6f 69 6e 74 65 72 3b 20 ┆TION soeg(tabpointer : pointer; ┆
0x2bec0…2bee0 6e 72 20 3a 20 73 74 72 31 30 29 20 3a 20 42 4f 4f 4c 45 41 4e 3b 0d 0a 20 20 20 20 20 20 20 20 ┆nr : str10) : BOOLEAN; ┆
0x2bee0…2bf00 20 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 56 41 52 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ VAR ┆
0x2bf00…2bf20 20 20 20 66 75 6e 64 65 74 20 3a 20 42 4f 4f 4c 45 41 4e 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆ fundet : BOOLEAN; ┆
0x2bf20…2bf40 20 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 20 28 2a 20 73 6f 65 67 20 2a 29 ┆ BEGIN (* soeg *)┆
0x2bf40…2bf60 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 75 6e 64 65 74 20 3a 3d 46 41 4c 53 45 3b 0d ┆ fundet :=FALSE; ┆
0x2bf60…2bf80 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 48 49 4c 45 20 28 74 61 62 70 6f 69 6e 74 65 72 ┆ WHILE (tabpointer┆
0x2bf80…2bfa0 20 3c 3e 20 4e 49 4c 29 20 41 4e 44 20 4e 4f 54 20 66 75 6e 64 65 74 20 44 4f 0d 0a 20 20 20 20 ┆ <> NIL) AND NOT fundet DO ┆
0x2bfa0…2bfc0 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 74 61 62 70 6f 69 6e 74 65 72 5e 2e 6e 75 6d 6d 65 ┆ IF tabpointer^.numme┆
0x2bfc0…2bfe0 72 20 3d 20 6e 72 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 20 66 ┆r = nr THEN f┆
0x2bfe0…2c000 75 6e 64 65 74 20 3a 3d 20 54 52 55 45 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆undet := TRUE ┆
0x2c000…2c200 (35, 1, 3) DataBlock {»HASHTAB.PAS«}
0x2c200…2c220 (35, 1, 4) e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0xf…]
0x2c400…2c420 (35, 1, 5) 20 45 4c 53 45 20 74 61 62 70 6f 69 6e 74 65 72 20 3a 3d 20 74 61 62 70 6f 69 6e 74 65 72 5e 2e ┆ ELSE tabpointer := tabpointer^.┆
0x2c420…2c440 6e 61 65 73 74 65 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6f 65 67 20 3a 3d 20 66 ┆naeste; soeg := f┆
0x2c440…2c460 75 6e 64 65 74 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 20 28 2a 20 73 6f 65 67 ┆undet; END; (* soeg┆
0x2c460…2c480 20 2a 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 0d 0a 20 20 20 20 20 20 20 20 20 20 50 52 4f ┆ *) PRO┆
0x2c480…2c4a0 43 45 44 55 52 45 20 69 6e 64 73 61 65 74 28 56 41 52 20 74 61 62 20 3a 20 68 61 73 68 74 61 62 ┆CEDURE indsaet(VAR tab : hashtab┆
0x2c4a0…2c4c0 65 6c 3b 20 6e 72 20 3a 20 73 74 72 31 30 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 0d 0a 20 20 ┆el; nr : str10); ┆
0x2c4c0…2c4e0 20 20 20 20 20 20 20 20 20 20 56 41 52 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 64 ┆ VAR ind┆
0x2c4e0…2c500 65 78 20 3a 20 69 6e 64 65 78 74 79 70 65 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e ┆ex : indextype; n┆
0x2c500…2c520 61 65 73 74 65 2c 20 70 70 20 3a 20 70 6f 69 6e 74 65 72 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆aeste, pp : pointer; ┆
0x2c520…2c540 20 20 20 20 74 65 73 74 20 3a 20 49 4e 54 45 47 45 52 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ test : INTEGER; ┆
0x2c540…2c560 20 20 20 63 68 20 3a 20 43 48 41 52 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0d 0a 20 ┆ ch : CHAR; ┆
0x2c560…2c580 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 20 28 2a 20 69 6e 64 73 61 65 74 20 2a 29 0d 0a ┆ BEGIN (* indsaet *) ┆
0x2c580…2c5a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 56 41 4c 28 43 4f 50 59 28 6e 72 2c 20 38 2c 20 33 29 ┆ VAL(COPY(nr, 8, 3)┆
0x2c5a0…2c5c0 2c 20 69 6e 64 65 78 2c 20 74 65 73 74 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 ┆, index, test); I┆
0x2c5c0…2c5e0 46 20 20 28 74 65 73 74 20 3c 3e 20 30 29 20 4f 52 20 28 4c 45 4e 28 6e 72 29 20 3c 20 31 30 29 ┆F (test <> 0) OR (LEN(nr) < 10)┆
0x2c5e0…2c600 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 20 20 ┆ THEN ┆
0x2c600…2c800 (35, 1, 6) DataBlock {»HASHTAB.PAS«}
0x2c800…2c980 (35, 1, 7) DataBlock {»HARMONIC.PAS«}
0x2c980…2c9a0 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 ┆ ┆
[…0x3…]
0x2ca00…2cc00 (35, 1, 8) DataBlock {»HASHTAB.PAS«}
[…0x1…]
0x2ce00…2ce20 (35, 1, 10) e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0xf…]
0x2d000…2d200 (36, 0, 1) DataBlock {»HASHTAB.PAS«}
0x2d200…2d400 (36, 0, 2) DataBlock {»HENTPOST.PAS«}
0x2d400…2d420 (36, 0, 3) 20 20 20 20 20 20 20 20 50 52 4f 47 52 41 4d 20 68 65 6e 74 70 6f 73 74 3b 0d 0a 20 20 20 20 20 ┆ PROGRAM hentpost; ┆
0x2d420…2d440 20 20 20 0d 0a 20 20 20 20 20 20 20 20 20 20 54 59 50 45 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ TYPE ┆
0x2d440…2d460 20 6d 65 64 6c 65 6d 73 70 6f 73 74 20 3d 20 52 45 43 4f 52 44 0d 0a 20 20 20 20 20 20 20 20 20 ┆ medlemspost = RECORD ┆
0x2d460…2d480 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 6f 65 62 65 6e 72 20 3a 20 49 4e 54 ┆ loebenr : INT┆
0x2d480…2d4a0 45 47 45 52 3b 0d 0a 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 ┆EGER; ┆
0x2d4a0…2d4c0 20 20 20 6e 61 76 6e 20 3a 20 53 54 52 49 4e 47 28 2e 33 30 2e 29 3b 0d 0a 20 20 20 20 20 20 20 ┆ navn : STRING(.30.); ┆
0x2d4c0…2d4e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 61 64 65 20 3a 20 53 54 52 49 ┆ gade : STRI┆
0x2d4e0…2d500 4e 47 28 2e 33 30 2e 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆NG(.30.); ┆
0x2d500…2d520 20 20 20 20 20 20 20 70 6f 73 74 6e 72 62 79 20 3a 20 53 54 52 49 4e 47 28 2e 33 30 2e 29 3b 0d ┆ postnrby : STRING(.30.); ┆
0x2d520…2d540 0a 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 69 6e 66 ┆ inf┆
0x2d540…2d560 6f 20 3a 20 53 54 52 49 4e 47 28 2e 31 30 30 2e 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆o : STRING(.100.); ┆
0x2d560…2d580 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 0d 0a ┆ END; ┆
0x2d580…2d5a0 20 20 20 20 20 20 20 20 20 20 20 20 72 65 67 69 73 74 65 72 20 3d 20 46 49 4c 45 20 4f 46 20 6d ┆ register = FILE OF m┆
0x2d5a0…2d5c0 65 64 6c 65 6d 73 70 6f 73 74 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 0d 0a 20 20 20 20 20 ┆edlemspost; ┆
0x2d5c0…2d5e0 20 20 20 20 20 56 41 52 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 65 64 6c 65 6d 20 3a 20 6d ┆ VAR medlem : m┆
0x2d5e0…2d600 65 64 6c 65 6d 73 70 6f 73 74 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 65 67 69 73 74 65 ┆edlemspost; registe┆
0x2d600…2d800 (36, 0, 4) DataBlock {»HASHTAB.PAS«}
0x2d800…2da00 (36, 0, 5) DataBlock {»HENTPOST.PAS«}
0x2da00…2dc00 (36, 0, 6) DataBlock {»IDEAL.PAS«}
0x2dc00…2de00 (36, 0, 7) DataBlock {»HASHTAB.PAS«}
0x2de00…2df80 (36, 0, 8) DataBlock {»HENTPOST.PAS«}
0x2df80…2dfa0 3b 0d 0a 20 20 20 20 20 20 57 52 49 54 45 28 27 2a 2a 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 ┆; WRITE('**** ┆
0x2dfa0…2dfc0 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 ┆ ┆
0x2dfc0…2dfe0 20 20 20 20 20 2a 2a 2a 2a 27 29 3b 0d 0a 20 20 20 20 20 20 47 4f 54 4f 58 59 28 78 2c 20 79 20 ┆ ****'); GOTOXY(x, y ┆
0x2dfe0…2e000 2b 20 37 29 3b 0d 0a 20 20 20 20 20 20 57 52 49 54 45 28 27 2a 2a 2a 2a 20 20 20 20 20 20 20 20 ┆+ 7); WRITE('**** ┆
0x2e000…2e200 (36, 0, 9) DataBlock {»IDEAL.PAS«}
0x2e200…2e300 (36, 0, 10) DataBlock {»HASHTAB.PAS«}
0x2e300…2e320 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 ┆ ┆
[…0x7…]
0x2e400…2e600 (37, 1, 1) DataBlock {»IDEAL.PAS«}
[…0x1…]
0x2e800…2e820 (37, 1, 3) 45 4e 20 75 6e 6f 72 6d 61 6c 0d 0a 20 20 20 20 20 20 20 20 45 4c 53 45 20 75 64 3b 0d 0a 20 20 ┆EN unormal ELSE ud; ┆
0x2e820…2e840 20 20 45 4e 44 3b 20 28 2a 20 75 64 73 6b 72 69 66 74 20 2a 29 0d 0a 20 20 20 20 0d 0a 20 20 50 ┆ END; (* udskrift *) P┆
0x2e840…2e860 52 4f 43 45 44 55 52 45 20 73 70 6f 65 72 67 28 56 41 52 20 6b 6f 65 6e 20 3a 20 73 74 72 36 3b ┆ROCEDURE spoerg(VAR koen : str6;┆
0x2e860…2e880 20 56 41 52 20 68 6f 65 6a 64 65 20 3a 20 49 4e 54 45 47 45 52 29 3b 0d 0a 20 20 0d 0a 20 20 20 ┆ VAR hoejde : INTEGER); ┆
0x2e880…2e8a0 20 56 41 52 0d 0a 20 20 20 20 20 20 73 74 72 65 6e 67 20 3a 20 73 74 72 36 3b 0d 0a 20 20 20 20 ┆ VAR streng : str6; ┆
0x2e8a0…2e8c0 20 20 74 65 73 74 20 3a 20 49 4e 54 45 47 45 52 3b 0d 0a 20 20 20 20 20 20 0d 0a 20 20 20 20 42 ┆ test : INTEGER; B┆
0x2e8c0…2e8e0 45 47 49 4e 20 28 2a 20 73 70 6f 65 72 67 20 2a 29 0d 0a 20 20 20 20 20 20 57 52 49 54 45 28 43 ┆EGIN (* spoerg *) WRITE(C┆
0x2e8e0…2e900 4c 52 48 4f 4d 29 3b 0d 0a 20 20 20 20 20 20 52 45 50 45 41 54 0d 0a 20 20 20 20 20 20 20 20 47 ┆LRHOM); REPEAT G┆
0x2e900…2e920 4f 54 4f 58 59 28 35 2c 20 32 29 3b 0d 0a 20 20 20 20 20 20 20 20 57 52 49 54 45 28 27 49 6e 64 ┆OTOXY(5, 2); WRITE('Ind┆
0x2e920…2e940 74 61 73 74 20 6b 7c 6e 20 28 6b 76 69 6e 64 65 2f 6d 61 6e 64 29 3a 20 27 2c 20 43 4c 52 45 4f ┆tast køn (kvinde/mand): ', CLREO┆
0x2e940…2e960 4c 29 3b 0d 0a 20 20 20 20 20 20 20 20 42 55 46 4c 45 4e 20 3a 3d 20 36 3b 0d 0a 20 20 20 20 20 ┆L); BUFLEN := 6; ┆
0x2e960…2e980 20 20 20 52 45 41 44 28 6b 6f 65 6e 29 3b 0d 0a 20 20 20 20 20 20 55 4e 54 49 4c 20 28 6b 6f 65 ┆ READ(koen); UNTIL (koe┆
0x2e980…2e9a0 6e 20 3d 20 27 6b 76 69 6e 64 65 27 29 20 4f 52 20 28 6b 6f 65 6e 20 3d 20 27 6d 61 6e 64 27 29 ┆n = 'kvinde') OR (koen = 'mand')┆
0x2e9a0…2e9c0 3b 0d 0a 20 20 20 20 20 20 52 45 50 45 41 54 0d 0a 20 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 ┆; REPEAT GOTOXY(┆
0x2e9c0…2e9e0 35 2c 20 35 29 3b 0d 0a 20 20 20 20 20 20 20 20 57 52 49 54 45 28 27 49 6e 64 74 61 73 74 20 64 ┆5, 5); WRITE('Indtast d┆
0x2e9e0…2ea00 69 6e 20 68 7c 6a 64 65 20 69 20 68 65 6c 65 20 63 6d 2e 3a 20 27 2c 20 43 4c 52 45 4f 4c 29 3b ┆in højde i hele cm.: ', CLREOL);┆
0x2ea00…2ec00 (37, 1, 4) DataBlock {»IDEAL.PAS«}
[…0x1…]
0x2ee00…2ee20 (37, 1, 6) 0d 0a 20 20 20 20 20 20 20 20 52 45 41 44 28 73 74 72 65 6e 67 29 3b 0d 0a 20 20 20 20 20 20 20 ┆ READ(streng); ┆
0x2ee20…2ee40 20 56 41 4c 28 73 74 72 65 6e 67 2c 20 68 6f 65 6a 64 65 2c 20 74 65 73 74 29 3b 0d 0a 20 20 20 ┆ VAL(streng, hoejde, test); ┆
0x2ee40…2ee60 20 20 20 55 4e 54 49 4c 20 74 65 73 74 20 3d 20 30 3b 0d 0a 20 20 20 20 20 20 75 64 73 6b 72 69 ┆ UNTIL test = 0; udskri┆
0x2ee60…2ee80 66 74 28 6b 6f 65 6e 2c 20 68 6f 65 6a 64 65 29 3b 0d 0a 20 20 20 20 45 4e 44 3b 20 28 2a 20 73 ┆ft(koen, hoejde); END; (* s┆
0x2ee80…2eea0 70 6f 65 72 67 20 2a 29 0d 0a 20 20 20 20 0d 0a 20 20 42 45 47 49 4e 20 28 2a 20 69 64 65 61 6c ┆poerg *) BEGIN (* ideal┆
0x2eea0…2eec0 20 2a 29 0d 0a 20 20 20 20 52 45 50 45 41 54 0d 0a 20 20 20 20 20 20 66 6f 72 73 69 64 65 3b 0d ┆ *) REPEAT forside; ┆
0x2eec0…2eee0 0a 20 20 20 20 20 20 73 70 6f 65 72 67 28 6b 6f 65 6e 2c 20 68 6f 65 6a 64 65 29 3b 0d 0a 20 20 ┆ spoerg(koen, hoejde); ┆
0x2eee0…2ef00 20 20 20 20 75 64 73 6b 72 69 66 74 28 6b 6f 65 6e 2c 20 68 6f 65 6a 64 65 29 3b 0d 0a 20 20 20 ┆ udskrift(koen, hoejde); ┆
0x2ef00…2ef20 20 20 20 47 4f 54 4f 58 59 28 35 2c 20 32 30 29 3b 0d 0a 20 20 20 20 20 20 57 52 49 54 45 28 27 ┆ GOTOXY(5, 20); WRITE('┆
0x2ef20…2ef40 5c 6e 73 6b 65 72 20 64 75 20 61 74 20 70 72 7c 76 65 20 69 67 65 6e 20 28 6a 2f 6e 29 3a 20 27 ┆Ønsker du at prøve igen (j/n): '┆
0x2ef40…2ef60 29 3b 0d 0a 20 20 20 20 20 20 52 45 50 45 41 54 0d 0a 20 20 20 20 20 20 20 20 52 45 41 44 28 4b ┆); REPEAT READ(K┆
0x2ef60…2ef80 42 44 2c 20 63 68 29 3b 0d 0a 20 20 20 20 20 20 55 4e 54 49 4c 20 63 68 20 49 4e 20 28 2e 27 4a ┆BD, ch); UNTIL ch IN (.'J┆
0x2ef80…2efa0 27 2c 20 27 6a 27 2c 20 27 4e 27 2c 20 27 6e 27 2e 29 3b 0d 0a 20 20 20 20 55 4e 54 49 4c 20 63 ┆', 'j', 'N', 'n'.); UNTIL c┆
0x2efa0…2efc0 68 20 49 4e 20 28 2e 27 4e 27 2c 20 27 6e 27 2e 29 3b 0d 0a 20 20 20 20 47 4f 54 4f 58 59 28 35 ┆h IN (.'N', 'n'.); GOTOXY(5┆
0x2efc0…2efe0 2c 20 32 31 29 3b 0d 0a 20 20 20 20 57 52 49 54 45 4c 4e 28 27 53 7d 20 73 6c 75 74 74 65 72 20 ┆, 21); WRITELN('Så slutter ┆
0x2efe0…2f000 76 69 20 66 6f 72 20 69 20 64 61 67 2e 27 29 3b 0d 0a 20 20 45 4e 44 2e 20 28 2a 20 69 64 65 61 ┆vi for i dag.'); END. (* idea┆
0x2f000…2f200 (37, 1, 7) DataBlock {»IDEAL.PAS«}
[…0x1…]
0x2f280…2f2a0 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 ┆ ┆
[…0xb…]
0x2f400…2f420 (37, 1, 9) 6c 20 2a 29 0d 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 ┆l *) ┆
0x2f420…2f440 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ ┆
[…0x2…]
0x2f480…2f4a0 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 ┆ ┆
[…0xb…]
0x2f600…2f800 (37, 1, 10) DataBlock {»IDEAL.PAS«}
0x2f800…2fa00 (38, 0, 1) DataBlock {»IDENTIFI.PAS«}
[…0x1…]
0x2fc00…2fc20 (38, 0, 3) 69 6e 69 65 29 20 3e 20 30 0d 0a 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 0d 0a 20 20 20 20 20 ┆inie) > 0 THEN ┆
0x2fc20…2fc40 20 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 20 3a 3d ┆ BEGIN i :=┆
0x2fc40…2fc60 20 31 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 50 45 41 54 0d 0a 20 20 20 20 20 ┆ 1; REPEAT ┆
0x2fc60…2fc80 20 20 20 20 20 20 20 20 20 20 20 63 68 20 3a 3d 20 6c 69 6e 69 65 28 2e 69 2e 29 3b 0d 0a 20 20 ┆ ch := linie(.i.); ┆
0x2fc80…2fca0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 48 49 4c 45 20 28 69 20 3c 20 4c 45 4e 28 6c 69 6e ┆ WHILE (i < LEN(lin┆
0x2fca0…2fcc0 69 65 29 29 20 41 4e 44 20 4e 4f 54 20 28 63 68 20 49 4e 20 62 6f 67 73 74 61 76 65 72 29 20 44 ┆ie)) AND NOT (ch IN bogstaver) D┆
0x2fcc0…2fce0 4f 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 ┆O BEGIN ┆
0x2fce0…2fd00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 20 3a 3d 20 69 20 2b 20 31 3b 0d 0a 20 20 20 ┆ i := i + 1; ┆
0x2fd00…2fd20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 68 20 3a 3d 20 6c 69 6e 69 65 28 2e 69 2e ┆ ch := linie(.i.┆
0x2fd20…2fd40 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 ┆); END; ┆
0x2fd40…2fd60 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 63 68 20 49 4e 20 62 6f 67 73 74 61 76 65 72 20 0d ┆ IF ch IN bogstaver ┆
0x2fd60…2fd80 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 20 0d 0a 20 20 20 20 20 20 ┆ THEN ┆
0x2fd80…2fda0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ BEGIN ┆
0x2fda0…2fdc0 20 20 20 20 20 20 20 20 20 73 74 61 72 74 20 3a 3d 20 69 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆ start := i; ┆
0x2fdc0…2fde0 20 20 20 20 20 20 20 20 20 20 57 48 49 4c 45 20 28 69 20 3c 20 4c 45 4e 28 6c 69 6e 69 65 29 29 ┆ WHILE (i < LEN(linie))┆
0x2fde0…2fe00 20 41 4e 44 20 28 20 63 68 20 49 4e 20 62 6f 67 73 74 61 76 65 72 29 20 44 4f 0d 0a 20 20 20 20 ┆ AND ( ch IN bogstaver) DO ┆
0x2fe00…30000 (38, 0, 4) DataBlock {»IDENTIFI.PAS«}
[…0x1…]
0x30200…30400 (38, 0, 6) DataBlock {»INTERHYP.PAS«}
0x30400…30600 (38, 0, 7) DataBlock {»IDENTIFI.PAS«}
[…0x1…]
0x30700…30720 20 20 20 46 4f 52 20 69 20 3a 3d 20 31 20 54 4f 20 6d 61 78 61 6e 74 61 6c 20 44 4f 0d 0a 20 20 ┆ FOR i := 1 TO maxantal DO ┆
0x30720…30740 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 49 46 20 74 61 62 65 6c 28 ┆ BEGIN IF tabel(┆
0x30740…30760 2e 69 2e 29 20 3c 20 6d 69 6e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 20 6d 69 6e ┆.i.) < min THEN min┆
0x30760…30780 20 3a 3d 20 74 61 62 65 6c 28 2e 69 2e 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 49 46 20 74 61 ┆ := tabel(.i.); IF ta┆
0x30780…307a0 62 65 6c 28 2e 69 2e 29 20 3e 20 6d 61 78 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 ┆bel(.i.) > max THE┆
0x307a0…307c0 4e 20 6d 61 78 20 3a 3d 20 74 61 62 65 6c 28 2e 69 2e 29 3b 0d 0a 20 20 20 20 20 20 20 20 45 4e ┆N max := tabel(.i.); EN┆
0x307c0…307e0 44 3b 0d 0a 20 20 20 20 45 4e 44 3b 0d 0a 20 20 0d 0a 20 20 50 52 4f 43 45 44 55 52 45 20 75 64 ┆D; END; PROCEDURE ud┆
0x307e0…30800 28 6d 69 6e 2c 20 6d 61 78 2c 20 62 72 65 64 64 65 20 3a 20 49 4e 54 45 47 45 52 3b 20 56 41 52 ┆(min, max, bredde : INTEGER; VAR┆
0x30800…30a00 (38, 0, 9) DataBlock {»INTERHYP.PAS«}
0x30a00…30c00 (38, 0, 10) DataBlock {»IDENTIFI.PAS«}
0x30c00…30e00 (39, 1, 1) DataBlock {»INTERHYP.PAS«}
0x30e00…30f00 (39, 1, 2) DataBlock {»INVERS.PAS«}
0x30f00…30f20 20 20 20 20 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 28 74 65 6b 73 74 ┆ THEN IF (tekst┆
0x30f20…30f40 28 2e 69 2e 29 20 3c 20 27 30 27 29 20 4f 52 20 28 74 65 6b 73 74 28 2e 69 2e 29 20 3e 20 27 39 ┆(.i.) < '0') OR (tekst(.i.) > '9┆
0x30f40…30f60 27 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 20 6f 6b 20 3a 3d 20 46 41 4c ┆') THEN ok := FAL┆
0x30f60…30f80 53 45 3b 0d 0a 20 20 20 20 49 46 20 6f 6b 0d 0a 20 20 20 20 20 20 54 48 45 4e 20 57 52 49 54 45 ┆SE; IF ok THEN WRITE┆
0x30f80…30fa0 4c 4e 28 74 65 6b 73 74 2c 20 27 20 65 72 20 69 20 6f 72 64 65 6e 27 29 0d 0a 20 20 20 20 20 20 ┆LN(tekst, ' er i orden') ┆
0x30fa0…30fc0 45 4c 53 45 20 57 52 49 54 45 4c 4e 28 74 65 6b 73 74 2c 20 27 20 65 72 20 69 6b 6b 65 20 6b 6f ┆ELSE WRITELN(tekst, ' er ikke ko┆
0x30fc0…30fe0 72 72 65 6b 74 27 29 3b 0d 0a 20 20 45 4e 44 2e 0d 0a 20 20 20 20 20 20 20 1a 1a 1a 1a 1a 1a 1a ┆rrekt'); END. ┆
0x30fe0…31000 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 ┆ ┆
0x31000…31200 (39, 1, 3) DataBlock {»JOURNAL.PAS«}
0x31200…31300 (39, 1, 4) DataBlock {»INTERHYP.PAS«}
0x31300…31320 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 ┆ ┆
[…0x27…]
0x31800…31a00 (39, 1, 7) DataBlock {»INVERS.PAS«}
0x31a00…31c00 (39, 1, 8) DataBlock {»JOURNAL.PAS«}
0x31c00…31c20 (39, 1, 9) 50 52 4f 47 52 41 4d 20 6a 6f 75 72 6e 61 6c 3b 0d 0a 20 20 0d 0a 20 20 54 59 50 45 0d 0a 20 20 ┆PROGRAM journal; TYPE ┆
0x31c20…31c40 20 20 73 74 72 33 30 20 3d 20 53 54 52 49 4e 47 28 2e 33 30 2e 29 3b 0d 0a 20 20 0d 0a 20 20 56 ┆ str30 = STRING(.30.); V┆
0x31c40…31c60 41 52 0d 0a 20 20 20 20 74 65 6b 73 74 20 3a 20 73 74 72 33 30 3b 0d 0a 20 20 20 20 69 2c 20 73 ┆AR tekst : str30; i, s┆
0x31c60…31c80 74 61 72 74 2c 20 73 6c 75 74 20 3a 20 49 4e 54 45 47 45 52 3b 0d 0a 20 20 20 20 6f 6b 20 3a 20 ┆tart, slut : INTEGER; ok : ┆
0x31c80…31ca0 42 4f 4f 4c 45 41 4e 3b 0d 0a 20 20 20 20 0d 0a 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 57 52 49 ┆BOOLEAN; BEGIN WRI┆
0x31ca0…31cc0 54 45 28 43 4c 52 48 4f 4d 29 3b 0d 0a 20 20 20 20 57 52 49 54 45 28 27 53 6b 72 69 76 20 6a 6f ┆TE(CLRHOM); WRITE('Skriv jo┆
0x31cc0…31ce0 75 72 6e 61 6c 6e 75 6d 6d 65 72 20 28 41 2d 30 30 2d 30 30 30 29 3a 20 27 29 3b 0d 0a 20 20 20 ┆urnalnummer (A-00-000): '); ┆
0x31ce0…31d00 20 52 45 41 44 4c 4e 28 74 65 6b 73 74 29 3b 0d 0a 20 20 20 20 69 20 3a 3d 20 31 3b 0d 0a 20 20 ┆ READLN(tekst); i := 1; ┆
0x31d00…31d20 20 20 57 48 49 4c 45 20 74 65 6b 73 74 28 2e 69 2e 29 20 3d 20 27 20 27 20 44 4f 0d 0a 20 20 20 ┆ WHILE tekst(.i.) = ' ' DO ┆
0x31d20…31d40 20 20 20 69 20 3a 3d 20 69 20 2b 20 31 3b 0d 0a 20 20 20 20 73 74 61 72 74 20 3a 3d 20 69 3b 0d ┆ i := i + 1; start := i; ┆
0x31d40…31d60 0a 20 20 20 20 69 20 3a 3d 20 4c 45 4e 28 74 65 6b 73 74 29 3b 0d 0a 20 20 20 20 57 48 49 4c 45 ┆ i := LEN(tekst); WHILE┆
0x31d60…31d80 20 74 65 6b 73 74 28 2e 69 2e 29 20 3d 20 27 20 27 20 44 4f 0d 0a 20 20 20 20 20 20 69 20 3a 3d ┆ tekst(.i.) = ' ' DO i :=┆
0x31d80…31da0 20 69 20 2d 20 31 3b 0d 0a 20 20 20 20 73 6c 75 74 20 3a 3d 20 69 3b 0d 0a 20 20 20 20 74 65 6b ┆ i - 1; slut := i; tek┆
0x31da0…31dc0 73 74 20 3a 3d 20 43 4f 50 59 28 74 65 6b 73 74 2c 20 73 74 61 72 74 2c 20 73 6c 75 74 20 2d 20 ┆st := COPY(tekst, start, slut - ┆
0x31dc0…31de0 73 74 61 72 74 20 2b 20 31 29 3b 20 28 2a 20 62 6c 61 6e 6b 74 65 67 6e 20 73 6c 65 74 74 65 73 ┆start + 1); (* blanktegn slettes┆
0x31de0…31e00 20 2a 29 0d 0a 20 20 20 20 6f 6b 20 3a 3d 20 54 52 55 45 3b 0d 0a 20 20 20 20 49 46 20 4c 45 4e ┆ *) ok := TRUE; IF LEN┆
0x31e00…32000 (39, 1, 10) DataBlock {»INVERS.PAS«}
0x32000…32200 (40, 0, 1) DataBlock {»KAEDE2.PAS«}
[…0x8…]
0x33100…33120 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 41 44 4c 4e 28 63 68 29 3b 0d 0a 20 20 20 20 ┆ READLN(ch); ┆
0x33120…33140 20 20 20 20 20 20 20 20 45 4e 44 3b 20 28 2a 20 75 64 73 6b 72 69 76 20 2a 29 0d 0a 20 20 20 20 ┆ END; (* udskriv *) ┆
0x33140…33160 20 20 20 20 20 20 0d 0a 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 20 28 2a 20 6b 61 65 64 65 ┆ BEGIN (* kaede┆
0x33160…33180 32 20 2a 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 6f 70 20 3a 3d 20 4e 49 4c 3b 0d 0a 20 ┆2 *) top := NIL; ┆
0x33180…331a0 20 20 20 20 20 20 20 20 20 20 20 4e 45 57 28 75 64 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ NEW(ud); ┆
0x331a0…331c0 20 52 45 50 45 41 54 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 43 4c 52 ┆ REPEAT WRITE(CLR┆
0x331c0…331e0 48 4f 4d 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 31 30 2c 34 ┆HOM); GOTOXY(10,4┆
0x331e0…33200 29 3b 20 57 52 49 54 45 28 27 53 4f 52 54 45 52 45 54 20 4b 5b 44 45 27 29 3b 0d 0a 20 20 20 20 ┆); WRITE('SORTERET KÆDE'); ┆
0x33200…33400 (40, 0, 10) DataBlock {»KAEDE2.PAS«}
0x33400…33420 (41, 1, 1) e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0xf…]
0x33600…33800 (41, 1, 2) DataBlock {»KAEDE3.PAS«}
[…0x1…]
0x33a00…33a20 (41, 1, 4) e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0xf…]
0x33c00…33e00 (41, 1, 5) DataBlock {»KAEDE3.PAS«}
[…0x6…]
0x34880…348a0 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 ┆ ┆
[…0xb…]
0x34a00…34c00 (42, 0, 2) DataBlock {»KAEDE4.PAS«}
[…0x1…]
0x34e00…34e20 (42, 0, 4) e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0xf…]
0x35000…35200 (42, 0, 5) DataBlock {»KAEDE4.PAS«}
[…0x1…]
0x35400…35420 (42, 0, 7) e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0xf…]
0x35600…35800 (42, 0, 8) DataBlock {»KAEDE4.PAS«}
[…0x1…]
0x35a00…35a20 (42, 0, 10) e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0xf…]
0x35c00…35e00 (43, 1, 1) DataBlock {»KAEDE4.PAS«}
[…0x1…]
0x35f00…35f20 20 21 20 5e 4b 5e 52 20 20 52 65 61 64 20 20 20 20 20 20 21 20 5e 57 20 20 20 20 41 44 4a 55 53 ┆ ! ^K^R Read ! ^W ADJUS┆
0x35f20…35f40 54 20 6f 6e 2f 6f 66 66 20 21 0d 0a 21 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆T on/off ! ! ┆
0x35f40…35f60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 5e 4b 5e 57 20 20 57 72 69 74 65 20 ┆ ! ^K^W Write ┆
0x35f60…35f80 20 20 20 20 21 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0d 0a 21 20 41 ┆ ! ! ! A┆
0x35f80…35fa0 6c 73 6f 20 75 73 65 20 63 75 72 73 6f 72 20 61 72 72 6f 77 73 20 6f 6e 20 6b 65 79 62 6f 61 72 ┆lso use cursor arrows on keyboar┆
0x35fa0…35fc0 64 20 20 21 20 5e 4b 5e 48 20 20 44 65 6c 20 6d 61 72 6b 73 20 21 20 20 20 20 20 20 20 20 20 20 ┆d ! ^K^H Del marks ! ┆
0x35fc0…35fe0 20 20 20 20 20 20 20 20 20 20 20 21 0d 0a 2b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ ! +-----------------┆
0x35fe0…36000 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------+-----------┆
0x36000…36020 (43, 1, 3) 0d 0a 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 52 ┆ R┆
0x36020…36040 45 41 44 4c 4e 28 63 68 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆EADLN(ch); ┆
0x36040…36060 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 0d ┆ END; END; ┆
0x36060…36080 0a 20 20 20 20 20 20 20 20 20 20 20 20 55 4e 54 49 4c 20 63 68 20 49 4e 20 28 2e 27 41 27 2c 20 ┆ UNTIL ch IN (.'A', ┆
0x36080…360a0 27 61 27 2e 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 45 4e 44 2e 20 28 2a 20 6b 61 65 64 65 34 ┆'a'.); END. (* kaede4┆
0x360a0…360c0 20 2a 29 0d 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 ┆ *) ┆
0x360c0…360e0 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ ┆
[…0x1…]
0x36100…36120 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 ┆ ┆
[…0x7…]
0x36200…36400 (43, 1, 4) DataBlock {»KAEDE4.PAS«}
0x36400…36420 (43, 1, 5) 2d 2d 2d 2d 2d 2d 2b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2b 0d 0a 21 ┆------+---------------------+ !┆
0x36420…36440 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 65 6c 65 74 65 20 20 20 20 20 20 20 20 20 20 20 ┆ Delete ┆
0x36440…36460 20 20 20 20 20 21 20 20 20 20 20 20 45 64 69 74 20 20 20 20 20 20 20 21 20 20 20 20 20 20 20 53 ┆ ! Edit ! S┆
0x36460…36480 65 61 72 63 68 20 20 20 20 20 20 20 20 21 0d 0a 2b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆earch ! +---------------┆
0x36480…364a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2b 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆----------------------+---------┆
0x364a0…364c0 2d 2d 2d 2d 2d 2d 2d 2d 2b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2b 0d ┆--------+---------------------+ ┆
0x364c0…364e0 0a 21 20 5e 48 20 20 20 20 43 68 61 72 20 6c 65 66 74 20 20 20 5e 47 20 20 20 20 43 68 61 72 20 ┆ ! ^H Char left ^G Char ┆
0x364e0…36500 72 69 67 68 74 20 20 21 20 52 45 54 4e 20 20 4e 65 77 20 6c 69 6e 65 20 20 21 20 5e 51 5e 46 20 ┆right ! RETN New line ! ^Q^F ┆
0x36500…36520 20 46 69 6e 64 20 73 74 72 69 6e 67 20 20 20 21 0d 0a 21 20 5e 51 5e 48 20 20 53 74 61 72 74 20 ┆ Find string ! ! ^Q^H Start ┆
0x36520…36540 6c 69 6e 65 20 20 5e 51 5e 59 20 20 45 6e 64 20 6c 69 6e 65 20 20 20 20 21 20 5e 49 20 20 20 20 ┆line ^Q^Y End line ! ^I ┆
0x36540…36560 54 61 62 75 6c 61 74 65 20 20 21 20 5e 51 5e 41 20 20 46 69 6e 64 2f 72 65 70 6c 61 63 65 20 20 ┆Tabulate ! ^Q^A Find/replace ┆
0x36560…36580 21 0d 0a 21 20 5e 59 20 20 20 20 4c 69 6e 65 20 61 6c 6c 20 20 20 20 5e 54 20 20 20 20 57 6f 72 ┆! ! ^Y Line all ^T Wor┆
0x36580…365a0 64 20 72 69 67 68 74 20 20 21 20 5e 4e 20 20 20 20 49 6e 73 65 72 74 20 43 52 20 21 20 5e 4c 20 ┆d right ! ^N Insert CR ! ^L ┆
0x365a0…365c0 20 20 20 46 69 6e 64 20 6e 65 78 74 20 20 20 20 20 21 0d 0a 2b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ Find next ! +-----------┆
0x365c0…365e0 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 2b 2d 2d 2d 2d 2d ┆--------------------------+-----┆
0x365e0…36600 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆------------+-------------------┆
0x36600…36620 (43, 1, 6) e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0xf…]
0x36800…36a00 (43, 1, 7) DataBlock {»KAEDE4.PAS«}
0x36a00…36a20 (43, 1, 8) 2d 2d 2b 0d 0a 21 20 53 65 61 72 63 68 20 6f 70 74 69 6f 6e 73 3a 20 47 20 3d 20 47 6c 6f 62 61 ┆--+ ! Search options: G = Globa┆
0x36a20…36a40 6c 2c 20 4e 20 3d 20 4e 6f 20 70 72 6f 6d 70 74 73 2c 20 55 20 3d 20 49 67 6e 6f 72 65 20 63 61 ┆l, N = No prompts, U = Ignore ca┆
0x36a40…36a60 73 65 2c 20 57 20 3d 20 57 6f 72 64 73 20 6f 6e 6c 79 20 21 0d 0a 2b 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆se, W = Words only ! +---------┆
0x36a60…36a80 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 ┆--------------------------------┆
[…0x1…]
0x36aa0…36ac0 2d 2d 2d 2d 2b 0d 0a 0d 0a 25 20 50 6f 6c 79 50 61 73 63 61 6c 20 4f 6e 2d 4c 69 6e 65 20 48 65 ┆----+ % PolyPascal On-Line He┆
0x36ac0…36ae0 6c 70 3a 20 54 68 65 20 43 6f 6d 6d 61 6e 64 20 4d 6f 64 65 2e 0d 0a 0d 0a 50 6f 6c 79 50 61 73 ┆lp: The Command Mode. PolyPas┆
0x36ae0…36b00 63 61 6c 20 70 72 6f 6d 70 74 73 20 62 79 20 70 72 69 6e 74 69 6e 67 20 27 3e 3e 27 2e 20 20 45 ┆cal prompts by printing '>>'. E┆
0x36b00…36b20 61 63 68 20 74 69 6d 65 20 74 68 69 73 20 70 72 6f 6d 70 74 20 61 70 70 65 61 72 73 2c 20 20 50 ┆ach time this prompt appears, P┆
0x36b20…36b40 6f 6c 79 2d 0d 0a 50 61 73 63 61 6c 20 20 69 73 20 72 65 61 64 79 20 74 6f 20 61 63 63 65 70 74 ┆oly- Pascal is ready to accept┆
0x36b40…36b60 20 61 6e 64 20 70 72 6f 63 65 73 73 20 61 20 63 6f 6d 6d 61 6e 64 20 6c 69 6e 65 2e 20 20 54 68 ┆ and process a command line. Th┆
0x36b60…36b80 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 20 63 6f 6d 2d 0d 0a 6d 61 6e 64 73 20 61 72 65 20 61 76 61 ┆e following com- mands are ava┆
0x36b80…36ba0 69 6c 61 62 6c 65 20 69 6e 20 74 68 65 20 63 6f 6d 6d 61 6e 64 20 6d 6f 64 65 2e 0d 0a 0d 0a 20 ┆ilable in the command mode. ┆
0x36ba0…36bc0 4c 4f 41 44 20 20 20 20 20 4c 6f 61 64 20 61 20 6e 65 77 20 66 69 6c 65 2e 20 20 20 20 20 20 20 ┆LOAD Load a new file. ┆
0x36bc0…36be0 20 20 20 20 20 20 53 41 56 45 20 20 20 20 20 53 61 76 65 20 74 68 65 20 77 6f 72 6b 66 69 6c 65 ┆ SAVE Save the workfile┆
0x36be0…36c00 2e 0d 0a 20 4e 41 4d 45 20 20 20 20 20 53 65 74 20 77 6f 72 6b 66 69 6c 65 20 6e 61 6d 65 2e 20 ┆. NAME Set workfile name. ┆
0x36c00…36c20 (43, 1, 9) 25 2a 2b 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 ┆%*+-----------------------------┆
0x36c20…36c40 2d 2d 2d 2d 2d 2d 2d 2d 2b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2b 2d 2d 2d 2d 2d ┆--------+-----------------+-----┆
0x36c40…36c60 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2b 0d 0a 21 20 20 20 20 20 20 20 20 20 20 20 43 ┆----------------+ ! C┆
0x36c60…36c80 75 72 73 6f 72 20 6d 6f 76 65 6d 65 6e 74 20 20 20 20 20 20 20 20 20 20 20 21 20 20 20 20 20 20 ┆ursor movement ! ┆
0x36c80…36ca0 42 6c 6f 63 6b 20 20 20 20 20 20 21 20 20 20 20 20 20 20 56 61 72 69 6f 75 73 20 20 20 20 20 20 ┆Block ! Various ┆
0x36ca0…36cc0 20 21 0d 0a 2b 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 ┆ ! +---------------------------┆
0x36cc0…36ce0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2b 2d 2d 2d ┆----------+-----------------+---┆
0x36ce0…36d00 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2b 0d 0a 21 20 5e 53 20 20 20 20 4c 65 66 ┆------------------+ ! ^S Lef┆
0x36d00…36d20 74 20 63 68 61 72 20 20 20 5e 44 20 20 20 20 52 69 67 68 74 20 63 68 61 72 20 20 21 20 5e 4b 5e ┆t char ^D Right char ! ^K^┆
0x36d20…36d40 42 20 20 42 65 67 69 6e 20 20 20 20 20 21 20 5e 4a 20 20 20 20 48 65 6c 70 20 20 20 20 20 20 20 ┆B Begin ! ^J Help ┆
0x36d40…36d60 20 20 20 21 0d 0a 21 20 5e 41 20 20 20 20 4c 65 66 74 20 77 6f 72 64 20 20 20 5e 46 20 20 20 20 ┆ ! ! ^A Left word ^F ┆
0x36d60…36d80 52 69 67 68 74 20 77 6f 72 64 20 20 21 20 5e 4b 5e 4b 20 20 45 6e 64 20 20 20 20 20 20 20 21 20 ┆Right word ! ^K^K End ! ┆
0x36d80…36da0 5e 4b 5e 44 20 20 51 75 69 74 20 65 64 69 74 6f 72 20 20 20 21 0d 0a 21 20 5e 51 5e 53 20 20 53 ┆^K^D Quit editor ! ! ^Q^S S┆
0x36da0…36dc0 74 61 72 74 20 6c 69 6e 65 20 20 5e 51 5e 44 20 20 45 6e 64 20 6c 69 6e 65 20 20 20 20 21 20 5e ┆tart line ^Q^D End line ! ^┆
0x36dc0…36de0 4b 5e 59 20 20 44 65 6c 65 74 65 20 20 20 20 21 20 5e 4b 5e 58 20 20 45 78 69 74 20 65 64 69 74 ┆K^Y Delete ! ^K^X Exit edit┆
0x36de0…36e00 6f 72 20 20 20 21 0d 0a 21 20 5e 45 20 20 20 20 55 70 20 6c 69 6e 65 20 20 20 20 20 5e 58 20 20 ┆or ! ! ^E Up line ^X ┆
0x36e00…37000 (43, 1, 10) DataBlock {»KAEDE4.PAS«}
0x37000…37020 (44, 0, 1) 20 20 20 20 20 20 20 20 20 20 45 44 49 54 20 20 20 20 20 49 6e 76 6f 6b 65 20 74 68 65 20 65 64 ┆ EDIT Invoke the ed┆
0x37020…37040 69 74 6f 72 2e 0d 0a 20 57 48 45 52 45 20 20 20 20 52 65 73 74 61 72 74 20 74 68 65 20 65 64 69 ┆itor. WHERE Restart the edi┆
0x37040…37060 74 6f 72 2e 20 20 20 20 20 20 20 20 20 20 43 4f 4d 50 49 4c 45 20 20 43 6f 6d 70 69 6c 65 20 70 ┆tor. COMPILE Compile p┆
0x37060…37080 72 6f 67 72 61 6d 20 69 6e 20 6d 65 6d 6f 72 79 2e 0d 0a 20 52 55 4e 20 20 20 20 20 20 52 75 6e ┆rogram in memory. RUN Run┆
0x37080…370a0 20 63 75 72 72 65 6e 74 20 70 72 6f 67 72 61 6d 2e 20 20 20 20 20 20 20 20 20 50 52 4f 47 52 41 ┆ current program. PROGRA┆
0x370a0…370c0 4d 20 20 43 6f 6d 70 69 6c 65 20 74 6f 20 70 72 6f 67 72 61 6d 20 66 69 6c 65 2e 0d 0a 20 4f 42 ┆M Compile to program file. OB┆
0x370c0…370e0 4a 45 43 54 20 20 20 43 6f 6d 70 69 6c 65 20 74 6f 20 6f 62 6a 65 63 74 20 66 69 6c 65 2e 20 20 ┆JECT Compile to object file. ┆
0x370e0…37100 20 20 20 20 46 49 4e 44 20 20 20 20 20 46 69 6e 64 20 72 75 6e 2d 74 69 6d 65 20 65 72 72 6f 72 ┆ FIND Find run-time error┆
0x37100…37120 2e 0d 0a 20 44 49 52 20 20 20 20 20 20 44 69 73 70 6c 61 79 20 64 69 73 6b 20 64 69 72 65 63 74 ┆. DIR Display disk direct┆
0x37120…37140 6f 72 79 2e 20 20 20 20 20 20 55 53 45 20 20 20 20 20 20 53 65 74 20 64 72 69 76 65 2f 64 69 72 ┆ory. USE Set drive/dir┆
0x37140…37160 65 63 74 6f 72 79 2e 0d 0a 20 4d 45 4d 4f 52 59 20 20 20 44 69 73 70 6c 61 79 20 6d 65 6d 6f 72 ┆ectory. MEMORY Display memor┆
0x37160…37180 79 20 73 69 7a 65 2e 20 20 20 20 20 20 20 20 20 5a 41 50 20 20 20 20 20 20 44 65 6c 65 74 65 20 ┆y size. ZAP Delete ┆
0x37180…371a0 74 65 78 74 20 6f 72 20 66 69 6c 65 2e 0d 0a 20 48 45 4c 50 20 20 20 20 20 44 69 73 70 6c 61 79 ┆text or file. HELP Display┆
0x371a0…371c0 20 68 65 6c 70 20 74 65 78 74 73 2e 20 20 20 20 20 20 20 20 20 20 51 55 49 54 20 20 20 20 20 52 ┆ help texts. QUIT R┆
0x371c0…371e0 65 74 75 72 6e 20 74 6f 20 43 50 2f 4d 2e 0d 0a 0d 0a 4e 6f 74 65 20 74 68 61 74 20 61 6c 6c 20 ┆eturn to CP/M. Note that all ┆
0x371e0…37200 63 6f 6d 6d 61 6e 64 73 20 6d 61 79 20 62 65 20 73 68 6f 72 74 65 6e 65 64 20 74 6f 20 74 68 65 ┆commands may be shortened to the┆
0x37200…37220 (44, 0, 2) 6e 67 20 0d 0a 5e 4b 5e 58 2c 20 74 68 65 20 6e 65 77 20 66 69 6c 65 20 62 65 63 6f 6d 65 73 20 ┆ng ^K^X, the new file becomes ┆
0x37220…37240 74 68 65 20 77 6f 72 6b 66 69 6c 65 20 61 6e 64 20 72 65 6d 61 69 6e 73 20 69 6e 20 6d 65 6d 6f ┆the workfile and remains in memo┆
0x37240…37260 72 79 2e 0d 0a 0d 0a 25 57 50 6f 6c 79 50 61 73 63 61 6c 20 4f 6e 2d 4c 69 6e 65 20 48 65 6c 70 ┆ry. %WPolyPascal On-Line Help┆
0x37260…37280 3a 20 54 68 65 20 57 48 45 52 45 20 43 6f 6d 6d 61 6e 64 2e 0d 0a 0d 0a 54 68 65 20 20 57 48 45 ┆: The WHERE Command. The WHE┆
0x37280…372a0 52 45 20 63 6f 6d 6d 61 6e 64 20 69 73 20 75 73 65 64 20 74 6f 20 72 65 73 74 61 72 74 20 74 68 ┆RE command is used to restart th┆
0x372a0…372c0 65 20 65 64 69 74 6f 72 2e 20 20 57 68 65 6e 65 76 65 72 20 79 6f 75 20 20 6c 65 61 76 65 20 20 ┆e editor. Whenever you leave ┆
0x372c0…372e0 74 68 65 20 0d 0a 65 64 69 74 6f 72 20 20 28 75 73 69 6e 67 20 5e 4b 5e 44 20 6f 72 20 5e 4b 5e ┆the editor (using ^K^D or ^K^┆
0x372e0…37300 58 29 2c 20 20 74 68 65 20 70 6f 73 69 74 69 6f 6e 20 6f 66 20 74 68 65 20 63 75 72 73 6f 72 20 ┆X), the position of the cursor ┆
0x37300…37320 69 73 20 73 61 76 65 64 2e 20 20 49 66 20 79 6f 75 20 0d 0a 75 73 65 20 61 20 57 48 45 52 45 20 ┆is saved. If you use a WHERE ┆
0x37320…37340 63 6f 6d 6d 61 6e 64 20 74 6f 20 73 74 61 72 74 20 74 68 65 20 65 64 69 74 6f 72 20 61 67 61 69 ┆command to start the editor agai┆
0x37340…37360 6e 2c 20 20 74 68 65 20 63 75 72 73 6f 72 20 77 69 6c 6c 20 62 65 20 6d 6f 76 65 64 20 74 6f 20 ┆n, the cursor will be moved to ┆
0x37360…37380 0d 0a 74 68 65 20 70 6f 73 69 74 69 6f 6e 20 79 6f 75 20 6a 75 73 74 20 6c 65 66 74 2e 0d 0a 0d ┆ the position you just left. ┆
0x37380…373a0 0a 57 68 65 6e 20 74 68 65 20 63 6f 6d 70 69 6c 65 72 20 72 65 70 6f 72 74 73 20 61 6e 20 65 72 ┆ When the compiler reports an er┆
0x373a0…373c0 72 6f 72 2c 20 20 69 74 20 61 6c 73 6f 20 74 65 6c 6c 73 20 74 68 65 20 65 64 69 74 6f 72 20 74 ┆ror, it also tells the editor t┆
0x373c0…373e0 68 65 20 20 70 6f 73 69 74 69 6f 6e 20 0d 0a 6f 66 20 20 74 68 65 20 65 72 72 6f 72 2e 20 20 54 ┆he position of the error. T┆
0x373e0…37400 68 75 73 2c 20 20 69 66 20 79 6f 75 20 75 73 65 20 74 68 65 20 57 48 45 52 45 20 63 6f 6d 6d 61 ┆hus, if you use the WHERE comma┆
0x37400…37420 (44, 0, 3) 6c 79 50 61 73 63 61 6c 20 64 69 73 70 6c 61 79 73 20 27 44 69 72 65 63 74 6f 72 79 20 69 73 20 ┆lyPascal displays 'Directory is ┆
0x37420…37440 66 75 6c 6c 27 2e 20 20 49 66 20 74 68 65 72 65 20 69 73 20 6e 6f 74 20 65 6e 6f 75 67 68 20 0d ┆full'. If there is not enough ┆
0x37440…37460 0a 72 6f 6f 6d 20 6f 6e 20 74 68 65 20 64 69 73 6b 20 74 6f 20 63 72 65 61 74 65 20 61 20 6e 65 ┆ room on the disk to create a ne┆
0x37460…37480 77 20 66 69 6c 65 2c 20 20 50 6f 6c 79 50 61 73 63 61 6c 20 64 69 73 70 6c 61 79 73 20 27 44 69 ┆w file, PolyPascal displays 'Di┆
0x37480…374a0 73 6b 20 69 73 20 66 75 6c 6c 27 2e 20 0d 0a 49 66 20 6f 6e 65 20 6f 66 20 74 68 65 73 65 20 65 ┆sk is full'. If one of these e┆
0x374a0…374c0 72 72 6f 72 73 20 61 72 65 20 72 65 70 6f 72 74 65 64 2c 20 20 69 6e 73 65 72 74 20 61 6e 6f 74 ┆rrors are reported, insert anot┆
0x374c0…374e0 68 65 72 20 64 69 73 6b 2c 20 20 6c 6f 67 20 69 74 20 69 6e 20 20 77 69 74 68 20 0d 0a 74 68 65 ┆her disk, log it in with the┆
0x374e0…37500 20 55 53 45 20 63 6f 6d 6d 61 6e 64 2c 20 61 6e 64 20 74 72 79 20 53 41 56 45 20 61 67 61 69 6e ┆ USE command, and try SAVE again┆
0x37500…37520 2e 0d 0a 0d 0a 25 4e 50 6f 6c 79 50 61 73 63 61 6c 20 4f 6e 2d 4c 69 6e 65 20 48 65 6c 70 3a 20 ┆. %NPolyPascal On-Line Help: ┆
0x37520…37540 54 68 65 20 4e 41 4d 45 20 43 6f 6d 6d 61 6e 64 2e 0d 0a 0d 0a 54 68 65 20 20 4e 41 4d 45 20 20 ┆The NAME Command. The NAME ┆
0x37540…37560 63 6f 6d 6d 61 6e 64 20 20 69 73 20 75 73 65 64 20 74 6f 20 64 69 73 70 6c 61 79 20 61 6e 64 20 ┆command is used to display and ┆
0x37560…37580 63 68 61 6e 67 65 20 74 68 65 20 20 77 6f 72 6b 66 69 6c 65 20 20 6e 61 6d 65 2e 20 20 54 68 65 ┆change the workfile name. The┆
0x37580…375a0 20 0d 0a 77 6f 72 6b 66 69 6c 65 20 6e 61 6d 65 20 69 73 20 75 73 65 64 20 62 79 20 74 68 65 20 ┆ workfile name is used by the ┆
0x375a0…375c0 4c 4f 41 44 2c 20 53 41 56 45 2c 20 50 52 4f 47 52 41 4d 20 61 6e 64 20 4f 42 4a 45 43 54 20 63 ┆LOAD, SAVE, PROGRAM and OBJECT c┆
0x375c0…375e0 6f 6d 6d 61 6e 64 73 20 77 68 65 6e 20 61 20 0d 0a 66 69 6c 65 20 6e 61 6d 65 20 69 73 20 6e 6f ┆ommands when a file name is no┆
0x375e0…37600 74 20 65 78 70 6c 69 63 69 74 6c 79 20 73 74 61 74 65 64 2e 20 54 68 65 20 63 6f 6d 6d 61 6e 64 ┆t explicitly stated. The command┆
0x37600…37620 (44, 0, 4) 69 72 20 66 69 72 73 74 20 6c 65 74 74 65 72 2c 20 66 6f 72 20 69 6e 73 74 61 6e 63 65 20 0d 0a ┆ir first letter, for instance ┆
0x37620…37640 27 4c 27 20 69 6e 73 74 65 61 64 20 6f 66 20 27 4c 4f 41 44 27 2e 0d 0a 0d 0a 46 6f 72 20 66 75 ┆'L' instead of 'LOAD'. For fu┆
0x37640…37660 72 74 68 65 72 20 68 65 6c 70 20 6f 6e 20 61 20 73 70 65 63 69 66 69 63 20 63 6f 6d 6d 61 6e 64 ┆rther help on a specific command┆
0x37660…37680 2c 20 65 6e 74 65 72 20 27 48 27 20 6f 72 20 27 48 45 4c 50 27 20 66 6f 6c 6c 6f 77 65 64 20 62 ┆, enter 'H' or 'HELP' followed b┆
0x37680…376a0 79 20 74 68 65 20 0d 0a 63 6f 6d 6d 61 6e 64 20 28 6f 72 20 69 74 73 20 66 69 72 73 74 20 6c 65 ┆y the command (or its first le┆
0x376a0…376c0 74 74 65 72 29 2e 0d 0a 0d 0a 25 4c 50 6f 6c 79 50 61 73 63 61 6c 20 4f 6e 2d 4c 69 6e 65 20 48 ┆tter). %LPolyPascal On-Line H┆
0x376c0…376e0 65 6c 70 3a 20 54 68 65 20 4c 4f 41 44 20 43 6f 6d 6d 61 6e 64 2e 0d 0a 0d 0a 54 68 65 20 4c 4f ┆elp: The LOAD Command. The LO┆
0x376e0…37700 41 44 20 63 6f 6d 6d 61 6e 64 20 69 73 20 75 73 65 64 20 74 6f 20 6c 6f 61 64 20 61 20 6e 65 77 ┆AD command is used to load a new┆
0x37700…37720 20 66 69 6c 65 20 69 6e 74 6f 20 6d 65 6d 6f 72 79 2e 20 20 54 68 65 20 63 6f 6d 6d 61 6e 64 20 ┆ file into memory. The command ┆
0x37720…37740 20 6c 69 6e 65 20 0d 0a 66 6f 72 6d 61 74 20 69 73 3a 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆ line format is: ┆
0x37740…37760 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4c 4f 41 44 20 3c 66 69 6c 65 6e 61 ┆ LOAD <filena┆
0x37760…37780 6d 65 3e 0d 0a 0d 0a 54 68 65 20 20 66 69 6c 65 20 74 79 70 65 20 64 65 66 61 75 6c 74 73 20 74 ┆me> The file type defaults t┆
0x37780…377a0 6f 20 27 2e 50 41 53 27 2e 20 20 49 66 20 3c 66 69 6c 65 6e 61 6d 65 3e 20 69 73 20 6f 6d 69 74 ┆o '.PAS'. If <filename> is omit┆
0x377a0…377c0 74 65 64 2c 20 20 74 68 65 20 77 6f 72 6b 66 69 6c 65 20 0d 0a 6e 61 6d 65 20 69 73 20 75 73 65 ┆ted, the workfile name is use┆
0x377c0…377e0 64 2e 20 20 49 66 20 74 68 65 20 77 6f 72 6b 66 69 6c 65 20 68 61 73 20 62 65 65 6e 20 65 64 69 ┆d. If the workfile has been edi┆
0x377e0…37800 74 65 64 20 73 69 6e 63 65 20 69 74 20 77 61 73 20 6c 6f 61 64 65 64 20 6f 72 20 20 6c 61 73 74 ┆ted since it was loaded or last┆
0x37800…37820 (44, 0, 5) 50 52 4f 47 52 41 4d 20 6b 6f 6e 74 72 6f 6c 3b 0d 0a 0d 0a 20 20 54 59 50 45 0d 0a 20 20 20 20 ┆PROGRAM kontrol; TYPE ┆
0x37820…37840 73 74 72 32 20 3d 20 53 54 52 49 4e 47 28 2e 32 2e 29 3b 0d 0a 20 20 0d 0a 20 20 56 41 52 0d 0a ┆str2 = STRING(.2.); VAR ┆
0x37840…37860 20 20 20 20 73 74 72 65 6e 67 20 3a 20 73 74 72 32 3b 0d 0a 20 20 20 20 74 61 6c 2c 20 74 65 73 ┆ streng : str2; tal, tes┆
0x37860…37880 74 20 3a 20 49 4e 54 45 47 45 52 3b 0d 0a 20 20 0d 0a 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 57 ┆t : INTEGER; BEGIN W┆
0x37880…378a0 52 49 54 45 28 43 4c 52 48 4f 4d 29 3b 0d 0a 20 20 20 20 52 45 50 45 41 54 0d 0a 20 20 20 20 20 ┆RITE(CLRHOM); REPEAT ┆
0x378a0…378c0 20 47 4f 54 4f 58 59 28 30 2c 20 35 29 3b 0d 0a 20 20 20 20 20 20 57 52 49 54 45 28 43 4c 52 45 ┆ GOTOXY(0, 5); WRITE(CLRE┆
0x378c0…378e0 4f 4c 2c 20 27 54 61 73 74 20 65 74 20 68 65 6c 74 61 6c 20 66 72 61 20 32 30 20 74 69 6c 20 33 ┆OL, 'Tast et heltal fra 20 til 3┆
0x378e0…37900 30 3a 20 27 29 3b 0d 0a 20 20 20 20 20 20 42 55 46 4c 45 4e 20 3a 3d 20 32 3b 0d 0a 20 20 20 20 ┆0: '); BUFLEN := 2; ┆
0x37900…37920 20 20 52 45 41 44 4c 4e 28 73 74 72 65 6e 67 29 3b 0d 0a 20 20 20 20 20 20 56 41 4c 28 73 74 72 ┆ READLN(streng); VAL(str┆
0x37920…37940 65 6e 67 2c 20 74 61 6c 2c 20 74 65 73 74 29 3b 0d 0a 20 20 20 20 55 4e 54 49 4c 20 28 74 65 73 ┆eng, tal, test); UNTIL (tes┆
0x37940…37960 74 20 3d 20 30 29 20 41 4e 44 20 28 32 30 20 3c 3d 20 74 61 6c 29 20 41 4e 44 20 28 74 61 6c 20 ┆t = 0) AND (20 <= tal) AND (tal ┆
0x37960…37980 3c 3d 20 33 30 29 3b 0d 0a 20 20 20 20 57 52 49 54 45 4c 4e 28 27 44 65 74 20 69 6e 64 74 61 73 ┆<= 30); WRITELN('Det indtas┆
0x37980…379a0 74 65 64 65 20 74 61 6c 20 65 72 20 6f 6b 27 29 3b 0d 0a 20 20 45 4e 44 2e 0d 0a 1a 1a 1a 1a 1a ┆tede tal er ok'); END. ┆
0x379a0…379c0 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ ┆
[…0x2…]
0x37a00…37a20 (44, 0, 6) 20 6c 69 6e 65 20 66 6f 72 6d 61 74 20 69 73 3a 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ line format is: ┆
0x37a20…37a40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4e 41 4d 45 20 3c 66 69 6c 65 6e 61 6d 65 ┆ NAME <filename┆
0x37a40…37a60 3e 0d 0a 0d 0a 54 68 65 20 66 69 6c 65 20 74 79 70 65 20 64 65 66 61 75 6c 74 73 20 74 6f 20 27 ┆> The file type defaults to '┆
0x37a60…37a80 2e 50 41 53 27 2e 20 20 49 66 20 3c 66 69 6c 65 6e 61 6d 65 3e 20 69 73 20 6f 6d 69 74 74 65 64 ┆.PAS'. If <filename> is omitted┆
0x37a80…37aa0 20 65 6e 74 69 72 65 6c 79 2c 20 20 4e 41 4d 45 20 0d 0a 64 69 73 70 6c 61 79 73 20 74 68 65 20 ┆ entirely, NAME displays the ┆
0x37aa0…37ac0 77 6f 72 6b 66 69 6c 65 20 6e 61 6d 65 20 77 69 74 68 6f 75 74 20 63 68 61 6e 67 69 6e 67 20 69 ┆workfile name without changing i┆
0x37ac0…37ae0 74 2e 0d 0a 0d 0a 54 68 65 20 77 6f 72 6b 66 69 6c 65 20 6e 61 6d 65 20 69 73 20 73 65 74 20 74 ┆t. The workfile name is set t┆
0x37ae0…37b00 6f 20 27 57 4f 52 4b 2e 50 41 53 27 20 77 68 65 6e 20 50 6f 6c 79 50 61 73 63 61 6c 20 69 73 20 ┆o 'WORK.PAS' when PolyPascal is ┆
0x37b00…37b20 69 6e 69 74 69 61 6c 6c 79 20 72 75 6e 20 61 6e 64 20 0d 0a 77 68 65 6e 20 61 20 5a 41 50 20 63 ┆initially run and when a ZAP c┆
0x37b20…37b40 6f 6d 6d 61 6e 64 20 69 73 20 69 73 73 75 65 64 2e 0d 0a 0d 0a 25 45 50 6f 6c 79 50 61 73 63 61 ┆ommand is issued. %EPolyPasca┆
0x37b40…37b60 6c 20 4f 6e 2d 4c 69 6e 65 20 48 65 6c 70 3a 20 54 68 65 20 45 44 49 54 20 43 6f 6d 6d 61 6e 64 ┆l On-Line Help: The EDIT Command┆
0x37b60…37b80 2e 0d 0a 0d 0a 54 68 65 20 45 44 49 54 20 63 6f 6d 6d 61 6e 64 20 69 73 20 75 73 65 64 20 74 6f ┆. The EDIT command is used to┆
0x37b80…37ba0 20 69 6e 76 6f 6b 65 20 74 68 65 20 65 64 69 74 6f 72 2e 20 54 68 65 20 63 6f 6d 6d 61 6e 64 20 ┆ invoke the editor. The command ┆
0x37ba0…37bc0 6c 69 6e 65 20 66 6f 72 6d 61 74 20 69 73 3a 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆line format is: ┆
0x37bc0…37be0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 44 49 54 20 3c 66 69 6c 65 6e 61 6d 65 3e ┆ EDIT <filename>┆
0x37be0…37c00 0d 0a 0d 0a 54 68 65 20 66 69 6c 65 20 74 79 70 65 20 64 65 66 61 75 6c 74 73 20 74 6f 20 27 2e ┆ The file type defaults to '.┆
0x37c00…37c20 (44, 0, 7) 20 0d 0a 73 61 76 65 64 2c 20 20 50 6f 6c 79 50 61 73 63 61 6c 20 61 73 6b 73 20 79 6f 75 20 69 ┆ saved, PolyPascal asks you i┆
0x37c20…37c40 66 20 79 6f 75 20 77 61 6e 74 20 74 6f 20 73 61 76 65 20 74 68 65 20 6f 6c 64 20 66 69 6c 65 20 ┆f you want to save the old file ┆
0x37c40…37c60 62 65 66 6f 72 65 20 6c 6f 61 64 69 6e 67 20 0d 0a 74 68 65 20 20 6e 65 77 20 66 69 6c 65 2e 20 ┆before loading the new file. ┆
0x37c60…37c80 20 49 66 20 79 6f 75 20 61 6e 73 77 65 72 20 6e 6f 2c 20 20 74 68 65 20 6d 6f 64 69 66 69 63 61 ┆ If you answer no, the modifica┆
0x37c80…37ca0 74 69 6f 6e 73 20 79 6f 75 20 6d 61 79 20 68 61 76 65 20 6d 61 64 65 20 20 61 72 65 20 0d 0a 6c ┆tions you may have made are l┆
0x37ca0…37cc0 6f 73 74 2e 20 20 57 68 65 6e 20 61 20 66 69 6c 65 20 69 73 20 6c 6f 61 64 65 64 20 69 74 20 62 ┆ost. When a file is loaded it b┆
0x37cc0…37ce0 65 63 6f 6d 65 73 20 74 68 65 20 77 6f 72 6b 66 69 6c 65 2c 20 20 61 6e 64 20 69 74 73 20 6e 61 ┆ecomes the workfile, and its na┆
0x37ce0…37d00 6d 65 20 77 69 6c 6c 20 62 65 20 0d 0a 74 68 65 20 64 65 66 61 75 6c 74 20 66 69 6c 65 20 6e 61 ┆me will be the default file na┆
0x37d00…37d20 6d 65 20 75 73 65 64 20 62 79 20 74 68 65 20 4c 4f 41 44 2c 20 20 53 41 56 45 2c 20 50 52 4f 47 ┆me used by the LOAD, SAVE, PROG┆
0x37d20…37d40 52 41 4d 20 61 6e 64 20 4f 42 4a 45 43 54 20 63 6f 6d 6d 61 6e 64 73 2e 20 0d 0a 49 66 20 74 68 ┆RAM and OBJECT commands. If th┆
0x37d40…37d60 65 20 66 69 6c 65 20 79 6f 75 20 73 70 65 63 69 66 79 20 64 6f 65 73 20 6e 6f 74 20 65 78 69 73 ┆e file you specify does not exis┆
0x37d60…37d80 74 2c 20 50 6f 6c 79 50 61 73 63 61 6c 20 64 69 73 70 6c 61 79 73 20 27 4e 6f 20 73 75 63 68 20 ┆t, PolyPascal displays 'No such ┆
0x37d80…37da0 66 69 6c 65 27 2e 20 0d 0a 49 66 20 20 74 68 65 72 65 20 20 69 73 20 6e 6f 74 20 65 6e 6f 75 67 ┆file'. If there is not enoug┆
0x37da0…37dc0 68 20 72 6f 6f 6d 20 69 6e 20 6d 65 6d 6f 72 79 20 66 6f 72 20 74 68 65 20 66 69 6c 65 2c 20 20 ┆h room in memory for the file, ┆
0x37dc0…37de0 50 6f 6c 79 50 61 73 63 61 6c 20 20 64 69 73 70 6c 61 79 73 20 0d 0a 27 46 69 6c 65 20 74 6f 6f ┆PolyPascal displays 'File too┆
0x37de0…37e00 20 62 69 67 27 2e 20 20 49 6e 20 62 6f 74 68 20 74 68 65 73 65 20 63 61 73 65 73 2c 20 20 74 68 ┆ big'. In both these cases, th┆
0x37e00…37e20 (44, 0, 8) e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0xf…]
0x38000…38020 (44, 0, 9) 50 41 53 27 2e 20 49 66 20 3c 66 69 6c 65 6e 61 6d 65 3e 20 69 73 20 6f 6d 69 74 74 65 64 20 28 ┆PAS'. If <filename> is omitted (┆
0x38020…38040 77 68 69 63 68 20 69 74 20 75 73 75 61 6c 2d 0d 0a 6c 79 20 20 69 73 29 2c 20 20 74 68 65 20 20 ┆which it usual- ly is), the ┆
0x38040…38060 65 64 69 74 6f 72 20 73 74 61 72 74 65 64 20 69 6d 6d 65 64 69 61 74 65 6c 79 2c 20 20 61 6e 64 ┆editor started immediately, and┆
0x38060…38080 20 79 6f 75 20 6d 61 79 20 65 64 69 74 20 20 74 68 65 20 20 74 65 78 74 20 20 69 6e 20 0d 0a 6d ┆ you may edit the text in m┆
0x38080…380a0 65 6d 6f 72 79 2e 20 20 49 66 20 3c 66 69 6c 65 6e 61 6d 65 3e 20 69 73 20 73 70 65 63 69 66 69 ┆emory. If <filename> is specifi┆
0x380a0…380c0 65 64 2c 20 20 74 68 65 20 77 6f 72 6b 66 69 6c 65 20 69 73 20 73 61 76 65 64 20 28 69 66 20 69 ┆ed, the workfile is saved (if i┆
0x380c0…380e0 74 20 68 61 73 20 62 65 65 6e 20 0d 0a 63 68 61 6e 67 65 64 20 20 73 69 6e 63 65 20 20 69 74 20 ┆t has been changed since it ┆
0x380e0…38100 77 61 73 20 6c 6f 61 64 65 64 20 6f 72 20 6c 61 73 74 20 73 61 76 65 64 29 2c 20 20 61 6e 64 20 ┆was loaded or last saved), and ┆
0x38100…38120 74 68 65 20 6e 65 77 20 66 69 6c 65 20 20 69 73 20 20 6c 6f 61 64 65 64 20 0d 0a 62 65 66 6f 72 ┆the new file is loaded befor┆
0x38120…38140 65 20 20 74 68 65 20 65 64 69 74 6f 72 20 69 73 20 73 74 61 72 74 65 64 2e 20 20 49 6e 20 74 68 ┆e the editor is started. In th┆
0x38140…38160 69 73 20 63 61 73 65 2c 20 20 69 66 20 79 6f 75 20 65 78 69 74 20 74 68 65 20 65 64 69 74 6f 72 ┆is case, if you exit the editor┆
0x38160…38180 20 75 73 69 6e 67 20 0d 0a 74 68 65 20 5e 4b 5e 44 20 63 6f 6d 6d 61 6e 64 2c 20 20 50 6f 6c 79 ┆ using the ^K^D command, Poly┆
0x38180…381a0 50 61 73 63 61 6c 20 77 69 6c 6c 20 72 65 76 65 72 73 65 20 74 68 65 20 70 72 6f 63 65 73 73 2c ┆Pascal will reverse the process,┆
0x381a0…381c0 20 74 68 75 73 20 73 61 76 69 6e 67 20 74 68 65 20 6e 65 77 20 0d 0a 66 69 6c 65 20 61 6e 64 20 ┆ thus saving the new file and ┆
0x381c0…381e0 72 65 6c 6f 61 64 69 6e 67 20 74 68 65 20 6f 72 69 67 69 6e 61 6c 20 66 69 6c 65 2e 20 48 6f 77 ┆reloading the original file. How┆
0x381e0…38200 65 76 65 72 2c 20 69 66 20 79 6f 75 20 65 78 69 74 20 74 68 65 20 65 64 69 74 6f 72 20 75 73 69 ┆ever, if you exit the editor usi┆
0x38200…38220 (44, 0, 10) 65 20 6d 65 6d 6f 72 79 20 62 75 66 66 65 72 20 69 73 20 63 6c 65 61 72 65 64 20 61 6e 64 20 74 ┆e memory buffer is cleared and t┆
0x38220…38240 68 65 20 0d 0a 77 6f 72 6b 66 69 6c 65 20 6e 61 6d 65 20 69 73 20 73 65 74 20 74 6f 20 27 57 4f ┆he workfile name is set to 'WO┆
0x38240…38260 52 4b 2e 50 41 53 27 2e 0d 0a 0d 0a 25 53 50 6f 6c 79 50 61 73 63 61 6c 20 4f 6e 2d 4c 69 6e 65 ┆RK.PAS'. %SPolyPascal On-Line┆
0x38260…38280 20 48 65 6c 70 3a 20 54 68 65 20 53 41 56 45 20 43 6f 6d 6d 61 6e 64 2e 0d 0a 0d 0a 54 68 65 20 ┆ Help: The SAVE Command. The ┆
0x38280…382a0 20 53 41 56 45 20 63 6f 6d 6d 61 6e 64 20 69 73 20 75 73 65 64 20 74 6f 20 73 61 76 65 20 74 68 ┆ SAVE command is used to save th┆
0x382a0…382c0 65 20 77 6f 72 6b 66 69 6c 65 20 6f 6e 20 64 69 73 6b 2e 20 20 54 68 65 20 20 63 6f 6d 6d 61 6e ┆e workfile on disk. The comman┆
0x382c0…382e0 64 20 20 6c 69 6e 65 20 0d 0a 66 6f 72 6d 61 74 20 69 73 3a 0d 0a 0d 0a 20 20 20 20 20 20 20 20 ┆d line format is: ┆
0x382e0…38300 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 41 56 45 20 3c 66 69 6c 65 ┆ SAVE <file┆
0x38300…38320 6e 61 6d 65 3e 0d 0a 0d 0a 54 68 65 20 66 69 6c 65 20 74 79 70 65 20 64 65 66 61 75 6c 74 73 20 ┆name> The file type defaults ┆
0x38320…38340 74 6f 20 27 2e 50 41 53 27 2e 20 20 49 66 20 3c 66 69 6c 65 6e 61 6d 65 3e 20 69 73 20 6f 6d 69 ┆to '.PAS'. If <filename> is omi┆
0x38340…38360 74 74 65 64 2c 20 20 74 68 65 20 20 77 6f 72 6b 66 69 6c 65 20 0d 0a 6e 61 6d 65 20 69 73 20 75 ┆tted, the workfile name is u┆
0x38360…38380 73 65 64 2e 20 20 49 66 20 61 20 66 69 6c 65 20 6f 66 20 74 68 65 20 73 61 6d 65 20 6e 61 6d 65 ┆sed. If a file of the same name┆
0x38380…383a0 20 61 6e 64 20 74 79 70 65 20 61 6c 72 65 61 64 79 20 65 78 69 73 74 73 2c 20 69 74 73 20 74 79 ┆ and type already exists, its ty┆
0x383a0…383c0 70 65 20 0d 0a 69 73 20 63 68 61 6e 67 65 64 20 74 6f 20 27 2e 42 41 4b 27 20 62 65 66 6f 72 65 ┆pe is changed to '.BAK' before┆
0x383c0…383e0 20 74 68 65 20 6e 65 77 20 66 69 6c 65 20 69 73 20 63 72 65 61 74 65 64 2e 20 20 49 66 20 74 68 ┆ the new file is created. If th┆
0x383e0…38400 65 20 64 69 73 6b 20 64 69 72 65 63 74 6f 72 79 20 0d 0a 69 73 20 20 66 75 6c 6c 2c 20 20 50 6f ┆e disk directory is full, Po┆
0x38400…38420 (45, 1, 1) e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0xf…]
0x38600…38620 (45, 1, 2) 68 29 20 2d 20 36 31 29 3b 20 57 52 49 54 45 28 63 68 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆h) - 61); WRITE(ch); ┆
0x38620…38640 47 4f 54 4f 58 59 28 37 38 2c 20 4f 52 44 28 63 68 29 20 2d 20 36 31 29 3b 20 57 52 49 54 45 28 ┆GOTOXY(78, ORD(ch) - 61); WRITE(┆
0x38640…38660 63 68 29 3b 0d 0a 20 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 20 20 67 65 6e 65 72 61 ┆ch); END; genera┆
0x38660…38680 74 69 6f 6e 20 3a 3d 20 31 3b 0d 0a 20 20 20 20 45 4e 44 3b 20 28 2a 20 69 6e 69 74 20 2a 29 0d ┆tion := 1; END; (* init *) ┆
0x38680…386a0 0a 20 20 0d 0a 20 20 50 52 4f 43 45 44 55 52 45 20 6e 79 67 65 6e 65 72 61 74 69 6f 6e 3b 0d 0a ┆ PROCEDURE nygeneration; ┆
0x386a0…386c0 20 20 20 20 0d 0a 20 20 20 20 56 41 52 0d 0a 20 20 20 20 20 20 78 2c 20 79 2c 20 61 6e 74 61 6c ┆ VAR x, y, antal┆
0x386c0…386e0 20 3a 20 49 4e 54 45 47 45 52 3b 0d 0a 20 20 20 20 0d 0a 20 20 20 20 46 55 4e 43 54 49 4f 4e 20 ┆ : INTEGER; FUNCTION ┆
0x386e0…38700 6e 61 62 6f 28 78 2c 20 79 20 3a 20 49 4e 54 45 47 45 52 29 20 3a 20 49 4e 54 45 47 45 52 3b 0d ┆nabo(x, y : INTEGER) : INTEGER; ┆
0x38700…38720 0a 20 20 20 20 0d 0a 20 20 20 20 20 20 56 41 52 0d 0a 20 20 20 20 20 20 20 20 69 2c 20 6a 2c 20 ┆ VAR i, j, ┆
0x38720…38740 61 6e 74 61 6c 20 3a 20 49 4e 54 45 47 45 52 3b 0d 0a 20 20 20 20 20 20 0d 0a 20 20 20 20 20 20 ┆antal : INTEGER; ┆
0x38740…38760 42 45 47 49 4e 20 28 2a 20 6e 61 62 6f 20 2a 29 0d 0a 20 20 20 20 20 20 20 20 61 6e 74 61 6c 20 ┆BEGIN (* nabo *) antal ┆
0x38760…38780 3a 3d 20 30 3b 0d 0a 20 20 20 20 20 20 20 20 46 4f 52 20 69 20 3a 3d 20 78 20 2d 31 20 54 4f 20 ┆:= 0; FOR i := x -1 TO ┆
0x38780…387a0 78 20 2b 20 31 20 44 4f 0d 0a 20 20 20 20 20 20 20 20 20 20 49 46 20 67 6c 67 65 6e 28 2e 69 2c ┆x + 1 DO IF glgen(.i,┆
0x387a0…387c0 20 79 20 2d 20 31 2e 29 20 3d 20 27 2a 27 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4e ┆ y - 1.) = '*' THEN┆
0x387c0…387e0 20 61 6e 74 61 6c 20 3a 3d 20 61 6e 74 61 6c 20 2b 20 31 3b 0d 0a 20 20 20 20 20 20 20 20 46 4f ┆ antal := antal + 1; FO┆
0x387e0…38800 52 20 69 20 3a 3d 20 78 2d 31 20 54 4f 20 78 20 2b 20 31 20 44 4f 0d 0a 20 20 20 20 20 20 20 20 ┆R i := x-1 TO x + 1 DO ┆
0x38800…38820 (45, 1, 3) 28 34 35 2c 20 31 30 29 3b 20 57 52 49 54 45 28 27 41 2e 20 41 66 73 6c 75 74 20 69 6e 64 74 61 ┆(45, 10); WRITE('A. Afslut indta┆
0x38820…38840 73 74 6e 69 6e 67 27 29 3b 0d 0a 20 20 20 20 20 20 47 4f 54 4f 58 59 28 34 35 2c 20 31 32 29 3b ┆stning'); GOTOXY(45, 12);┆
0x38840…38860 20 57 52 49 54 45 28 27 5c 6e 73 6b 65 3a 20 3c 20 3e 27 29 3b 0d 0a 20 20 20 20 20 20 47 4f 54 ┆ WRITE('Ønske: < >'); GOT┆
0x38860…38880 4f 58 59 28 34 35 2c 20 31 34 29 3b 20 57 52 49 54 45 28 27 50 6c 61 63 65 72 69 6e 67 3a 20 3c ┆OXY(45, 14); WRITE('Placering: <┆
0x38880…388a0 20 20 3e 27 29 3b 0d 0a 20 20 20 20 20 20 52 45 50 45 41 54 0d 0a 20 20 20 20 20 20 20 20 47 4f ┆ >'); REPEAT GO┆
0x388a0…388c0 54 4f 58 59 28 35 33 2c 20 31 32 29 3b 20 57 52 49 54 45 28 27 20 27 2c 20 43 48 52 28 38 29 29 ┆TOXY(53, 12); WRITE(' ', CHR(8))┆
0x388c0…388e0 3b 0d 0a 20 20 20 20 20 20 20 20 52 45 50 45 41 54 0d 0a 20 20 20 20 20 20 20 20 20 20 52 45 41 ┆; REPEAT REA┆
0x388e0…38900 44 28 4b 42 44 2c 20 63 68 29 3b 0d 0a 20 20 20 20 20 20 20 20 55 4e 54 49 4c 20 63 68 20 49 4e ┆D(KBD, ch); UNTIL ch IN┆
0x38900…38920 20 28 2e 27 49 27 2c 20 27 69 27 2c 20 27 53 27 2c 20 27 73 27 2c 20 27 41 27 2c 20 27 61 27 2e ┆ (.'I', 'i', 'S', 's', 'A', 'a'.┆
0x38920…38940 29 3b 0d 0a 20 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 63 68 29 3b 0d 0a 20 20 20 20 20 20 ┆); WRITELN(ch); ┆
0x38940…38960 20 20 49 46 20 63 68 20 49 4e 20 28 2e 27 49 27 2c 20 27 69 27 2c 20 27 53 27 2c 20 27 73 27 2e ┆ IF ch IN (.'I', 'i', 'S', 's'.┆
0x38960…38980 29 0d 0a 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 42 ┆) THEN B┆
0x38980…389a0 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 50 45 41 54 0d 0a 20 20 20 20 ┆EGIN REPEAT ┆
0x389a0…389c0 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 35 37 2c 20 31 34 29 3b 20 57 52 49 54 ┆ GOTOXY(57, 14); WRIT┆
0x389c0…389e0 45 28 27 20 20 27 2c 20 43 48 52 28 38 29 2c 20 43 48 52 28 38 29 29 3b 0d 0a 20 20 20 20 20 20 ┆E(' ', CHR(8), CHR(8)); ┆
0x389e0…38a00 20 20 20 20 20 20 20 20 20 20 42 55 46 4c 45 4e 20 3a 3d 20 32 3b 0d 0a 20 20 20 20 20 20 20 20 ┆ BUFLEN := 2; ┆
0x38a00…38a20 (45, 1, 4) e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0xf…]
0x38c00…38c20 (45, 1, 5) 20 20 49 46 20 67 6c 67 65 6e 28 2e 69 2c 20 79 20 2b 20 31 2e 29 20 3d 20 27 2a 27 0d 0a 20 20 ┆ IF glgen(.i, y + 1.) = '*' ┆
0x38c20…38c40 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 20 61 6e 74 61 6c 20 3a 3d 20 61 6e 74 61 6c 20 2b 20 ┆ THEN antal := antal + ┆
0x38c40…38c60 31 3b 0d 0a 20 20 20 20 20 20 20 20 49 46 20 67 6c 67 65 6e 28 2e 78 20 2d 20 31 2c 20 79 2e 29 ┆1; IF glgen(.x - 1, y.)┆
0x38c60…38c80 20 3d 20 27 2a 27 0d 0a 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 20 61 6e 74 61 6c 20 3a 3d 20 ┆ = '*' THEN antal := ┆
0x38c80…38ca0 61 6e 74 61 6c 20 2b 20 31 3b 0d 0a 20 20 20 20 20 20 20 20 49 46 20 67 6c 67 65 6e 28 2e 78 20 ┆antal + 1; IF glgen(.x ┆
0x38ca0…38cc0 2b 20 31 2c 20 79 2e 29 20 3d 20 27 2a 27 0d 0a 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 20 61 ┆+ 1, y.) = '*' THEN a┆
0x38cc0…38ce0 6e 74 61 6c 20 3a 3d 20 61 6e 74 61 6c 20 2b 20 31 3b 0d 0a 20 20 20 20 20 20 20 20 6e 61 62 6f ┆ntal := antal + 1; nabo┆
0x38ce0…38d00 20 3a 3d 20 61 6e 74 61 6c 3b 0d 0a 20 20 20 20 20 20 45 4e 44 3b 20 28 2a 20 6e 61 62 6f 20 2a ┆ := antal; END; (* nabo *┆
0x38d00…38d20 29 0d 0a 20 20 20 20 0d 0a 20 20 20 20 50 52 4f 43 45 44 55 52 45 20 74 65 67 6e 62 61 6e 65 28 ┆) PROCEDURE tegnbane(┆
0x38d20…38d40 6e 72 20 3a 20 49 4e 54 45 47 45 52 29 3b 0d 0a 20 20 20 20 0d 0a 20 20 20 20 20 20 56 41 52 0d ┆nr : INTEGER); VAR ┆
0x38d40…38d60 0a 20 20 20 20 20 20 20 20 69 2c 20 6a 20 3a 20 49 4e 54 45 47 45 52 3b 0d 0a 20 20 20 20 20 20 ┆ i, j : INTEGER; ┆
0x38d60…38d80 0d 0a 20 20 20 20 20 20 42 45 47 49 4e 20 28 2a 20 74 65 67 6e 62 61 6e 65 20 2a 29 0d 0a 20 20 ┆ BEGIN (* tegnbane *) ┆
0x38d80…38da0 20 20 20 20 20 20 46 4f 52 20 69 20 3a 3d 20 31 20 54 4f 20 31 37 20 44 4f 0d 0a 20 20 20 20 20 ┆ FOR i := 1 TO 17 DO ┆
0x38da0…38dc0 20 20 20 20 20 46 4f 52 20 6a 20 3a 3d 20 31 20 54 4f 20 31 37 20 44 4f 0d 0a 20 20 20 20 20 20 ┆ FOR j := 1 TO 17 DO ┆
0x38dc0…38de0 20 20 20 20 20 20 49 46 20 6e 72 20 3d 20 31 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 ┆ IF nr = 1 T┆
0x38de0…38e00 48 45 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 ┆HEN BEGIN ┆
0x38e00…38e20 (45, 1, 6) 20 20 20 20 20 20 20 20 52 45 41 44 28 70 6c 61 63 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ READ(plac); ┆
0x38e20…38e40 20 20 20 55 4e 54 49 4c 20 28 70 6c 61 63 28 2e 31 2e 29 20 49 4e 20 28 2e 27 61 27 20 2e 2e 20 ┆ UNTIL (plac(.1.) IN (.'a' .. ┆
0x38e40…38e60 27 71 27 2e 29 29 20 41 4e 44 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆'q'.)) AND ┆
0x38e60…38e80 28 70 6c 61 63 28 2e 32 2e 29 20 49 4e 20 28 2e 27 41 27 20 2e 2e 20 27 51 27 2e 29 29 3b 0d 0a ┆(plac(.2.) IN (.'A' .. 'Q'.)); ┆
0x38e80…38ea0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 28 4f 52 44 28 70 6c 61 63 28 2e ┆ GOTOXY((ORD(plac(.┆
0x38ea0…38ec0 31 2e 29 29 20 2d 20 39 36 29 20 2a 20 32 2c 20 4f 52 44 28 70 6c 61 63 28 2e 32 2e 29 29 20 2d ┆1.)) - 96) * 2, ORD(plac(.2.)) -┆
0x38ec0…38ee0 20 36 31 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 63 68 20 49 4e 20 28 2e ┆ 61); IF ch IN (.┆
0x38ee0…38f00 27 49 27 2c 20 27 69 27 2e 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4e ┆'I', 'i'.) THEN┆
0x38f00…38f20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 ┆ BEGIN ┆
0x38f20…38f40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 27 2a 27 29 3b 0d 0a 20 20 20 20 ┆ WRITE('*'); ┆
0x38f40…38f60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 79 67 65 6e 28 2e 4f 52 44 28 70 6c 61 63 28 ┆ nygen(.ORD(plac(┆
0x38f60…38f80 2e 31 2e 29 29 20 2d 20 39 36 2c 20 4f 52 44 28 70 6c 61 63 28 2e 32 2e 29 29 20 2d 20 36 34 2e ┆.1.)) - 96, ORD(plac(.2.)) - 64.┆
0x38f80…38fa0 29 20 3a 3d 20 27 2a 27 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 ┆) := '*'; END┆
0x38fa0…38fc0 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 0d 0a 20 20 20 20 20 20 20 20 ┆ ELSE ┆
0x38fc0…38fe0 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ BEGIN ┆
0x38fe0…39000 20 20 20 20 20 57 52 49 54 45 28 27 20 27 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ WRITE(' '); ┆
0x39000…39020 (45, 1, 7) 50 52 4f 47 52 41 4d 20 6c 69 66 65 3b 0d 0a 0d 0a 20 20 54 59 50 45 0d 0a 20 20 20 20 74 61 76 ┆PROGRAM life; TYPE tav┆
0x39020…39040 6c 65 20 3d 20 41 52 52 41 59 28 2e 30 20 2e 2e 20 31 38 2c 20 30 20 2e 2e 20 31 38 2e 29 20 4f ┆le = ARRAY(.0 .. 18, 0 .. 18.) O┆
0x39040…39060 46 20 43 48 41 52 3b 0d 0a 20 20 0d 0a 20 20 56 41 52 0d 0a 20 20 20 20 67 6c 67 65 6e 2c 20 6e ┆F CHAR; VAR glgen, n┆
0x39060…39080 79 67 65 6e 20 3a 20 74 61 76 6c 65 3b 0d 0a 20 20 20 20 63 68 20 3a 20 43 48 41 52 3b 0d 0a 20 ┆ygen : tavle; ch : CHAR; ┆
0x39080…390a0 20 20 20 67 65 6e 65 72 61 74 69 6f 6e 20 3a 20 49 4e 54 45 47 45 52 3b 0d 0a 20 20 20 20 0d 0a ┆ generation : INTEGER; ┆
0x390a0…390c0 20 20 50 52 4f 43 45 44 55 52 45 20 69 6e 69 74 3b 0d 0a 20 20 0d 0a 20 20 20 20 54 59 50 45 0d ┆ PROCEDURE init; TYPE ┆
0x390c0…390e0 0a 20 20 20 20 20 20 73 74 72 32 20 3d 20 53 54 52 49 4e 47 28 2e 32 2e 29 3b 0d 0a 20 20 20 20 ┆ str2 = STRING(.2.); ┆
0x390e0…39100 0d 0a 20 20 20 20 56 41 52 0d 0a 20 20 20 20 20 20 70 6c 61 63 20 3a 20 73 74 72 32 3b 0d 0a 20 ┆ VAR plac : str2; ┆
0x39100…39120 20 20 20 20 20 78 2c 20 79 20 3a 20 49 4e 54 45 47 45 52 3b 0d 0a 20 20 20 20 20 20 63 68 20 3a ┆ x, y : INTEGER; ch :┆
0x39120…39140 20 43 48 41 52 3b 0d 0a 20 20 20 20 20 20 0d 0a 20 20 20 20 42 45 47 49 4e 20 28 2a 20 69 6e 69 ┆ CHAR; BEGIN (* ini┆
0x39140…39160 74 20 2a 29 0d 0a 20 20 20 20 20 20 46 4f 52 20 78 20 3a 3d 20 30 20 54 4f 20 31 38 20 44 4f 0d ┆t *) FOR x := 0 TO 18 DO ┆
0x39160…39180 0a 20 20 20 20 20 20 20 20 46 4f 52 20 79 20 3a 3d 20 30 20 54 4f 20 31 38 20 44 4f 0d 0a 20 20 ┆ FOR y := 0 TO 18 DO ┆
0x39180…391a0 20 20 20 20 20 20 20 20 6e 79 67 65 6e 28 2e 78 2c 20 79 2e 29 20 3a 3d 20 27 20 27 3b 0d 0a 20 ┆ nygen(.x, y.) := ' '; ┆
0x391a0…391c0 20 20 20 20 20 57 52 49 54 45 28 43 4c 52 48 4f 4d 29 3b 0d 0a 20 20 20 20 20 20 47 4f 54 4f 58 ┆ WRITE(CLRHOM); GOTOX┆
0x391c0…391e0 59 28 31 32 2c 20 31 29 3b 20 57 52 49 54 45 28 27 4e 59 20 47 45 4e 45 52 41 54 49 4f 4e 27 29 ┆Y(12, 1); WRITE('NY GENERATION')┆
0x391e0…39200 3b 0d 0a 20 20 20 20 20 20 47 4f 54 4f 58 59 28 32 2c 20 33 29 3b 0d 0a 20 20 20 20 20 20 46 4f ┆; GOTOXY(2, 3); FO┆
0x39200…39220 (45, 1, 8) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 32 20 2a 20 69 2c 20 6a 20 2b 20 ┆ GOTOXY(2 * i, j + ┆
0x39220…39240 33 29 3b 20 57 52 49 54 45 28 6e 79 67 65 6e 28 2e 69 2c 20 6a 2e 29 29 3b 0d 0a 20 20 20 20 20 ┆3); WRITE(nygen(.i, j.)); ┆
0x39240…39260 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4c ┆ END EL┆
0x39260…39280 53 45 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 ┆SE BEGIN ┆
0x39280…392a0 20 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 32 20 2a 20 69 20 2b 20 34 32 2c 20 ┆ GOTOXY(2 * i + 42, ┆
0x392a0…392c0 6a 20 2b 20 33 29 3b 20 57 52 49 54 45 28 6e 79 67 65 6e 28 2e 69 2c 20 6a 2e 29 29 3b 0d 0a 20 ┆j + 3); WRITE(nygen(.i, j.)); ┆
0x392c0…392e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 20 20 45 4e 44 3b 20 ┆ END; END; ┆
0x392e0…39300 28 2a 20 74 65 67 6e 62 61 6e 65 20 2a 29 0d 0a 20 20 20 20 0d 0a 20 20 20 20 42 45 47 49 4e 20 ┆(* tegnbane *) BEGIN ┆
0x39300…39320 28 2a 20 6e 79 67 65 6e 65 72 61 74 69 6f 6e 20 2a 29 0d 0a 20 20 20 20 20 20 67 6c 67 65 6e 20 ┆(* nygeneration *) glgen ┆
0x39320…39340 3a 3d 20 6e 79 67 65 6e 3b 0d 0a 20 20 20 20 20 20 74 65 67 6e 62 61 6e 65 28 32 29 3b 0d 0a 20 ┆:= nygen; tegnbane(2); ┆
0x39340…39360 20 20 20 20 20 46 4f 52 20 78 20 3a 3d 20 31 20 54 4f 20 31 37 20 44 4f 0d 0a 20 20 20 20 20 20 ┆ FOR x := 1 TO 17 DO ┆
0x39360…39380 20 20 46 4f 52 20 79 20 3a 3d 20 31 20 54 4f 20 31 37 20 44 4f 0d 0a 20 20 20 20 20 20 20 20 20 ┆ FOR y := 1 TO 17 DO ┆
0x39380…393a0 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 61 6e 74 61 6c 20 3a 3d 20 6e 61 62 ┆ BEGIN antal := nab┆
0x393a0…393c0 6f 28 78 2c 79 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 43 41 53 45 20 61 6e 74 61 6c 20 ┆o(x,y); CASE antal ┆
0x393c0…393e0 4f 46 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 34 2c 20 35 2c 20 36 2c 20 37 2c 20 38 20 ┆OF 4, 5, 6, 7, 8 ┆
0x393e0…39400 3a 20 6e 79 67 65 6e 28 2e 78 2c 20 79 2e 29 20 3a 3d 20 27 20 27 3b 0d 0a 20 20 20 20 20 20 20 ┆: nygen(.x, y.) := ' '; ┆
0x39400…39420 (45, 1, 9) 20 20 20 20 20 20 6e 79 67 65 6e 28 2e 4f 52 44 28 70 6c 61 63 28 2e 31 2e 29 29 20 2d 20 39 36 ┆ nygen(.ORD(plac(.1.)) - 96┆
0x39420…39440 2c 20 4f 52 44 28 70 6c 61 63 28 2e 32 2e 29 29 20 2d 20 36 34 2e 29 20 3a 3d 20 27 20 27 3b 0d ┆, ORD(plac(.2.)) - 64.) := ' '; ┆
0x39440…39460 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 20 20 20 ┆ END; ┆
0x39460…39480 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 20 20 55 4e 54 49 4c 20 63 68 20 49 4e 20 28 2e 27 ┆ END; UNTIL ch IN (.'┆
0x39480…394a0 41 27 2c 20 27 61 27 2e 29 3b 0d 0a 20 20 20 20 20 20 47 4f 54 4f 58 59 28 35 34 2c 20 31 29 3b ┆A', 'a'.); GOTOXY(54, 1);┆
0x394a0…394c0 20 57 52 49 54 45 28 27 47 4c 20 47 45 4e 45 52 41 54 49 4f 4e 27 29 3b 0d 0a 20 20 20 20 20 20 ┆ WRITE('GL GENERATION'); ┆
0x394c0…394e0 46 4f 52 20 79 20 3a 3d 20 35 20 54 4f 20 31 34 20 44 4f 0d 0a 20 20 20 20 20 20 20 20 42 45 47 ┆FOR y := 5 TO 14 DO BEG┆
0x394e0…39500 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 34 35 2c 20 79 29 3b 20 57 52 49 ┆IN GOTOXY(45, y); WRI┆
0x39500…39520 54 45 28 43 4c 52 45 4f 4c 29 3b 0d 0a 20 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 20 ┆TE(CLREOL); END; ┆
0x39520…39540 20 47 4f 54 4f 58 59 28 34 34 2c 20 33 29 3b 0d 0a 20 20 20 20 20 20 46 4f 52 20 63 68 20 3a 3d ┆ GOTOXY(44, 3); FOR ch :=┆
0x39540…39560 20 27 61 27 20 54 4f 20 27 71 27 20 44 4f 0d 0a 20 20 20 20 20 20 20 20 57 52 49 54 45 28 63 68 ┆ 'a' TO 'q' DO WRITE(ch┆
0x39560…39580 2c 20 27 20 27 29 3b 0d 0a 20 20 20 20 20 20 47 4f 54 4f 58 59 28 34 34 2c 20 32 31 29 3b 0d 0a ┆, ' '); GOTOXY(44, 21); ┆
0x39580…395a0 20 20 20 20 20 20 46 4f 52 20 63 68 20 3a 3d 20 27 61 27 20 54 4f 20 27 71 27 20 44 4f 0d 0a 20 ┆ FOR ch := 'a' TO 'q' DO ┆
0x395a0…395c0 20 20 20 20 20 20 20 57 52 49 54 45 28 63 68 2c 20 27 20 27 29 3b 0d 0a 20 20 20 20 20 20 46 4f ┆ WRITE(ch, ' '); FO┆
0x395c0…395e0 52 20 63 68 20 3a 3d 20 27 41 27 20 54 4f 20 27 51 27 20 44 4f 0d 0a 20 20 20 20 20 20 20 20 42 ┆R ch := 'A' TO 'Q' DO B┆
0x395e0…39600 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 34 32 2c 20 4f 52 44 28 63 ┆EGIN GOTOXY(42, ORD(c┆
0x39600…39620 (45, 1, 10) 52 20 63 68 20 3a 3d 20 27 61 27 20 54 4f 20 27 71 27 20 44 4f 0d 0a 20 20 20 20 20 20 20 20 57 ┆R ch := 'a' TO 'q' DO W┆
0x39620…39640 52 49 54 45 28 63 68 2c 20 27 20 27 29 3b 0d 0a 20 20 20 20 20 20 47 4f 54 4f 58 59 28 32 2c 20 ┆RITE(ch, ' '); GOTOXY(2, ┆
0x39640…39660 32 31 29 3b 0d 0a 20 20 20 20 20 20 46 4f 52 20 63 68 20 3a 3d 20 27 61 27 20 54 4f 20 27 71 27 ┆21); FOR ch := 'a' TO 'q'┆
0x39660…39680 20 44 4f 0d 0a 20 20 20 20 20 20 20 20 57 52 49 54 45 28 63 68 2c 20 27 20 27 29 3b 0d 0a 20 20 ┆ DO WRITE(ch, ' '); ┆
0x39680…396a0 20 20 20 20 46 4f 52 20 63 68 20 3a 3d 20 27 41 27 20 54 4f 20 27 51 27 20 44 4f 0d 0a 20 20 20 ┆ FOR ch := 'A' TO 'Q' DO ┆
0x396a0…396c0 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 30 2c 20 ┆ BEGIN GOTOXY(0, ┆
0x396c0…396e0 4f 52 44 28 63 68 29 20 2d 20 36 31 29 3b 20 57 52 49 54 45 28 63 68 29 3b 0d 0a 20 20 20 20 20 ┆ORD(ch) - 61); WRITE(ch); ┆
0x396e0…39700 20 20 20 20 20 47 4f 54 4f 58 59 28 33 36 2c 20 4f 52 44 28 63 68 29 20 2d 20 36 31 29 3b 20 57 ┆ GOTOXY(36, ORD(ch) - 61); W┆
0x39700…39720 52 49 54 45 28 63 68 29 3b 0d 0a 20 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 20 20 47 ┆RITE(ch); END; G┆
0x39720…39740 4f 54 4f 58 59 28 34 35 2c 20 35 29 3b 20 57 52 49 54 45 28 27 45 6e 20 6f 72 67 61 6e 69 73 6d ┆OTOXY(45, 5); WRITE('En organism┆
0x39740…39760 65 73 20 70 6c 61 63 65 72 69 6e 67 20 61 6e 67 69 76 65 73 27 29 3b 0d 0a 20 20 20 20 20 20 47 ┆es placering angives'); G┆
0x39760…39780 4f 54 4f 58 59 28 34 35 2c 20 36 29 3b 20 57 52 49 54 45 28 27 66 2e 65 6b 73 2e 20 73 7d 6c 65 ┆OTOXY(45, 6); WRITE('f.eks. såle┆
0x39780…397a0 64 65 73 3a 20 3c 66 4b 3e 27 29 3b 0d 0a 20 20 20 20 20 20 47 4f 54 4f 58 59 28 34 35 2c 20 38 ┆des: <fK>'); GOTOXY(45, 8┆
0x397a0…397c0 29 3b 20 57 52 49 54 45 28 27 49 2e 20 49 6e 64 73 7b 74 20 6f 72 67 61 6e 69 73 6d 65 27 29 3b ┆); WRITE('I. Indsæt organisme');┆
0x397c0…397e0 0d 0a 20 20 20 20 20 20 47 4f 54 4f 58 59 28 34 35 2c 20 39 29 3b 20 57 52 49 54 45 28 27 53 2e ┆ GOTOXY(45, 9); WRITE('S.┆
0x397e0…39800 20 53 6c 65 74 20 6f 72 67 61 6e 69 73 6d 65 27 29 3b 0d 0a 20 20 20 20 20 20 47 4f 54 4f 58 59 ┆ Slet organisme'); GOTOXY┆
0x39800…39820 (46, 0, 1) 20 20 20 20 20 20 20 30 2c 20 31 2c 20 32 2c 20 33 2c 20 34 20 3a 20 42 45 47 49 4e 0d 0a 20 20 ┆ 0, 1, 2, 3, 4 : BEGIN ┆
0x39820…39840 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 49 46 ┆ IF┆
0x39840…39860 20 28 67 6c 67 65 6e 28 2e 78 2c 20 79 2e 29 20 3d 20 27 20 27 29 20 41 4e 44 20 28 61 6e 74 61 ┆ (glgen(.x, y.) = ' ') AND (anta┆
0x39860…39880 6c 20 3d 20 33 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆l = 3) ┆
0x39880…398a0 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 20 6e 79 67 65 6e 28 2e 78 2c 20 79 2e 29 20 3a 3d 20 ┆ THEN nygen(.x, y.) := ┆
0x398a0…398c0 27 2a 27 3b 0d 0a 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 ┆'*'; ┆
0x398c0…398e0 20 20 20 20 20 20 49 46 20 28 67 6c 67 65 6e 28 2e 78 2c 20 79 2e 29 20 3d 20 27 2a 27 29 20 41 ┆ IF (glgen(.x, y.) = '*') A┆
0x398e0…39900 4e 44 20 28 28 61 6e 74 61 6c 20 3d 20 30 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ND ((antal = 0) ┆
0x39900…39920 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4f 52 20 28 61 6e 74 61 6c 20 3d 20 ┆ OR (antal = ┆
0x39920…39940 31 29 20 4f 52 20 28 61 6e 74 61 6c 20 3d 20 34 29 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆1) OR (antal = 4)) ┆
0x39940…39960 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 20 6e 79 67 65 6e ┆ THEN nygen┆
0x39960…39980 28 2e 78 2c 20 79 2e 29 20 3a 3d 20 27 20 27 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆(.x, y.) := ' '; ┆
0x39980…399a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆ END; ┆
0x399a0…399c0 20 20 45 4e 44 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 20 20 47 4f ┆ END; END; GO┆
0x399c0…399e0 54 4f 58 59 28 32 36 2c 32 33 29 3b 20 57 52 49 54 45 28 67 65 6e 65 72 61 74 69 6f 6e 29 3b 0d ┆TOXY(26,23); WRITE(generation); ┆
0x399e0…39a00 0a 20 20 20 20 20 20 74 65 67 6e 62 61 6e 65 28 31 29 3b 0d 0a 20 20 20 20 45 4e 44 3b 20 28 2a ┆ tegnbane(1); END; (*┆
0x39a00…39a20 (46, 0, 2) e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0xf…]
0x39c00…39c20 (46, 0, 3) 50 52 4f 47 52 41 4d 20 6c 69 6e 69 65 3b 0d 0a 0d 0a 20 20 56 41 52 0d 0a 20 20 20 20 78 31 2c ┆PROGRAM linie; VAR x1,┆
0x39c20…39c40 20 79 31 2c 20 78 32 2c 20 79 32 20 3a 20 52 45 41 4c 3b 0d 0a 20 20 0d 0a 20 20 50 52 4f 43 45 ┆ y1, x2, y2 : REAL; PROCE┆
0x39c40…39c60 44 55 52 45 20 72 65 74 28 78 31 2c 20 79 31 2c 20 78 32 2c 20 79 32 20 3a 20 52 45 41 4c 29 3b ┆DURE ret(x1, y1, x2, y2 : REAL);┆
0x39c60…39c80 0d 0a 20 20 0d 0a 20 20 20 20 56 41 52 0d 0a 20 20 20 20 20 20 61 2c 20 62 20 3a 20 52 45 41 4c ┆ VAR a, b : REAL┆
0x39c80…39ca0 3b 0d 0a 20 20 20 20 0d 0a 20 20 20 20 42 45 47 49 4e 20 28 2a 20 72 65 74 20 2a 29 0d 0a 20 20 ┆; BEGIN (* ret *) ┆
0x39ca0…39cc0 20 20 20 20 49 46 20 28 78 31 20 3d 20 78 32 29 20 41 4e 44 20 28 79 31 20 3d 20 79 32 29 20 0d ┆ IF (x1 = x2) AND (y1 = y2) ┆
0x39cc0…39ce0 0a 20 20 20 20 20 20 20 20 54 48 45 4e 20 57 52 49 54 45 4c 4e 28 27 44 65 20 74 6f 20 70 75 6e ┆ THEN WRITELN('De to pun┆
0x39ce0…39d00 6b 74 65 72 20 65 72 20 73 61 6d 6d 65 6e 66 61 6c 64 65 6e 64 65 27 29 0d 0a 20 20 20 20 20 20 ┆kter er sammenfaldende') ┆
0x39d00…39d20 45 4c 53 45 20 49 46 20 28 78 31 20 3d 20 78 32 29 0d 0a 20 20 20 20 20 20 20 20 54 48 45 4e 20 ┆ELSE IF (x1 = x2) THEN ┆
0x39d20…39d40 57 52 49 54 45 4c 4e 28 27 4c 69 67 6e 69 6e 67 65 6e 20 66 6f 72 20 6c 69 6e 69 65 6e 20 65 72 ┆WRITELN('Ligningen for linien er┆
0x39d40…39d60 20 78 20 3d 20 27 2c 20 78 31 20 3a 20 36 20 3a 20 32 29 0d 0a 20 20 20 20 20 20 45 4c 53 45 20 ┆ x = ', x1 : 6 : 2) ELSE ┆
0x39d60…39d80 49 46 20 28 79 31 20 3d 20 79 32 29 0d 0a 20 20 20 20 20 20 20 20 54 48 45 4e 20 57 52 49 54 45 ┆IF (y1 = y2) THEN WRITE┆
0x39d80…39da0 4c 4e 28 27 4c 69 67 6e 69 6e 67 65 6e 20 66 6f 72 20 6c 69 6e 69 65 6e 20 65 72 20 79 20 3d 20 ┆LN('Ligningen for linien er y = ┆
0x39da0…39dc0 27 2c 20 79 31 20 3a 20 36 20 3a 20 32 29 0d 0a 20 20 20 20 20 20 45 4c 53 45 0d 0a 20 20 20 20 ┆', y1 : 6 : 2) ELSE ┆
0x39dc0…39de0 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 61 20 3a 3d 20 28 79 32 20 2d 20 ┆ BEGIN a := (y2 - ┆
0x39de0…39e00 79 31 29 20 2f 20 28 78 32 20 2d 20 78 31 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 62 20 3a 3d ┆y1) / (x2 - x1); b :=┆
0x39e00…39e20 (46, 0, 4) 20 6e 79 67 65 6e 65 72 61 74 69 6f 6e 20 2a 29 0d 0a 20 20 20 20 0d 0a 20 20 42 45 47 49 4e 20 ┆ nygeneration *) BEGIN ┆
0x39e20…39e40 28 2a 20 6c 69 66 65 20 2a 29 0d 0a 20 20 20 20 69 6e 69 74 3b 0d 0a 20 20 20 20 47 4f 54 4f 58 ┆(* life *) init; GOTOX┆
0x39e40…39e60 59 28 31 31 2c 32 33 29 3b 20 57 52 49 54 45 28 27 47 65 6e 65 72 61 74 69 6f 6e 20 6e 72 2e 20 ┆Y(11,23); WRITE('Generation nr. ┆
0x39e60…39e80 31 27 29 3b 0d 0a 20 20 20 20 47 4f 54 4f 58 59 28 34 37 2c 20 32 33 29 3b 20 57 52 49 54 45 28 ┆1'); GOTOXY(47, 23); WRITE(┆
0x39e80…39ea0 27 45 6e 20 67 65 6e 65 72 61 74 69 6f 6e 20 6d 65 72 65 20 28 6a 2f 6e 29 3a 20 27 29 3b 0d 0a ┆'En generation mere (j/n): '); ┆
0x39ea0…39ec0 20 20 20 20 52 45 50 45 41 54 0d 0a 20 20 20 20 20 20 52 45 50 45 41 54 0d 0a 20 20 20 20 20 20 ┆ REPEAT REPEAT ┆
0x39ec0…39ee0 20 20 47 4f 54 4f 58 59 28 37 33 2c 20 32 33 29 3b 20 57 52 49 54 45 28 27 20 27 2c 20 43 48 52 ┆ GOTOXY(73, 23); WRITE(' ', CHR┆
0x39ee0…39f00 28 38 29 29 3b 0d 0a 20 20 20 20 20 20 20 20 52 45 41 44 28 4b 42 44 2c 20 63 68 29 3b 0d 0a 20 ┆(8)); READ(KBD, ch); ┆
0x39f00…39f20 20 20 20 20 20 55 4e 54 49 4c 20 63 68 20 49 4e 20 28 2e 27 4a 27 2c 20 27 6a 27 2c 20 27 4e 27 ┆ UNTIL ch IN (.'J', 'j', 'N'┆
0x39f20…39f40 2c 20 27 6e 27 2e 29 3b 0d 0a 20 20 20 20 20 20 57 52 49 54 45 28 63 68 29 3b 0d 0a 20 20 20 20 ┆, 'n'.); WRITE(ch); ┆
0x39f40…39f60 20 20 49 46 20 63 68 20 49 4e 20 28 2e 27 4a 27 2c 20 27 6a 27 2e 29 0d 0a 20 20 20 20 20 20 20 ┆ IF ch IN (.'J', 'j'.) ┆
0x39f60…39f80 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 ┆ THEN BEGIN ┆
0x39f80…39fa0 20 20 20 20 67 65 6e 65 72 61 74 69 6f 6e 20 3a 3d 20 67 65 6e 65 72 61 74 69 6f 6e 20 2b 20 31 ┆ generation := generation + 1┆
0x39fa0…39fc0 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 6e 79 67 65 6e 65 72 61 74 69 6f 6e 3b 0d 0a 20 20 ┆; nygeneration; ┆
0x39fc0…39fe0 20 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 55 4e 54 49 4c 20 63 68 20 49 4e 20 28 2e ┆ END; UNTIL ch IN (.┆
0x39fe0…3a000 27 4e 27 2c 20 27 6e 27 2e 29 3b 0d 0a 20 20 20 20 57 52 49 54 45 4c 4e 3b 0d 0a 20 20 45 4e 44 ┆'N', 'n'.); WRITELN; END┆
0x3a000…3a020 (46, 0, 5) 20 20 20 20 20 20 20 20 50 52 4f 47 52 41 4d 20 6c 6f 6e 67 61 64 64 3b 0d 0a 20 20 20 20 20 20 ┆ PROGRAM longadd; ┆
0x3a020…3a040 20 20 0d 0a 20 20 20 20 20 20 20 20 20 20 43 4f 4e 53 54 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ CONST ┆
0x3a040…3a060 20 6d 61 78 6c 61 65 6e 67 64 65 20 3d 20 31 32 3b 0d 0a 20 20 20 20 20 20 20 20 0d 0a 20 20 20 ┆ maxlaengde = 12; ┆
0x3a060…3a080 20 20 20 20 20 20 20 54 59 50 45 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 63 69 66 72 65 20 3d ┆ TYPE cifre =┆
0x3a080…3a0a0 20 30 20 2e 2e 20 39 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 76 65 6b 74 6f 72 20 3d 20 41 ┆ 0 .. 9; vektor = A┆
0x3a0a0…3a0c0 52 52 41 59 28 2e 30 20 2e 2e 20 6d 61 78 6c 61 65 6e 67 64 65 2e 29 20 4f 46 20 63 69 66 72 65 ┆RRAY(.0 .. maxlaengde.) OF cifre┆
0x3a0c0…3a0e0 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 61 78 73 74 72 65 6e 67 20 3d 20 53 54 52 49 4e ┆; maxstreng = STRIN┆
0x3a0e0…3a100 47 28 2e 6d 61 78 6c 61 65 6e 67 64 65 2e 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 0d 0a 20 20 ┆G(.maxlaengde.); ┆
0x3a100…3a120 20 20 20 20 20 20 20 20 56 41 52 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 74 72 65 6e 67 31 ┆ VAR streng1┆
0x3a120…3a140 2c 20 73 74 72 65 6e 67 32 20 3a 20 6d 61 78 73 74 72 65 6e 67 3b 0d 0a 20 20 20 20 20 20 20 20 ┆, streng2 : maxstreng; ┆
0x3a140…3a160 20 20 20 20 76 31 2c 20 76 32 2c 20 76 33 20 3a 20 76 65 6b 74 6f 72 3b 0d 0a 20 20 20 20 20 20 ┆ v1, v2, v3 : vektor; ┆
0x3a160…3a180 20 20 20 20 20 20 69 2c 20 6a 2c 20 73 75 6d 2c 20 6d 65 6e 74 65 20 3a 20 49 4e 54 45 47 45 52 ┆ i, j, sum, mente : INTEGER┆
0x3a180…3a1a0 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 0d 0a 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 0a ┆; BEGIN ┆
0x3a1a0…3a1c0 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 43 48 52 28 31 32 29 2c 20 27 54 61 73 74 ┆ WRITE(CHR(12), 'Tast┆
0x3a1c0…3a1e0 20 31 2e 20 74 61 6c 20 28 6d 61 78 20 27 2c 6d 61 78 6c 61 65 6e 67 64 65 2c 20 27 20 63 69 66 ┆ 1. tal (max ',maxlaengde, ' cif┆
0x3a1e0…3a200 72 65 29 3a 20 27 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 42 55 46 4c 45 4e 20 3a 3d 20 ┆re): '); BUFLEN := ┆
0x3a200…3a220 (46, 0, 6) 20 79 31 20 2d 20 61 20 2a 20 78 31 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 0a ┆ y1 - a * x1; BEGIN ┆
0x3a220…3a240 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 27 4c 69 67 6e 69 6e 67 65 6e 20 66 6f 72 ┆ WRITE('Ligningen for┆
0x3a240…3a260 20 6c 69 6e 69 65 6e 20 65 72 20 79 20 3d 20 27 2c 20 61 20 3a 20 36 20 3a 20 32 2c 20 27 78 20 ┆ linien er y = ', a : 6 : 2, 'x ┆
0x3a260…3a280 27 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 62 20 3e 20 30 0d 0a 20 20 20 20 20 ┆'); IF b > 0 ┆
0x3a280…3a2a0 20 20 20 20 20 20 20 20 20 54 48 45 4e 20 57 52 49 54 45 4c 4e 28 27 2b 20 27 2c 20 62 20 3a 20 ┆ THEN WRITELN('+ ', b : ┆
0x3a2a0…3a2c0 36 20 3a 20 32 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 20 57 52 49 54 45 ┆6 : 2) ELSE WRITE┆
0x3a2c0…3a2e0 4c 4e 28 62 20 3a 20 36 20 3a 20 32 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a ┆LN(b : 6 : 2); END; ┆
0x3a2e0…3a300 20 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 45 4e 44 3b 20 28 2a 20 72 65 74 20 2a 29 ┆ END; END; (* ret *)┆
0x3a300…3a320 0d 0a 20 20 0d 0a 20 20 42 45 47 49 4e 20 28 2a 20 6c 69 6e 69 65 20 2a 29 0d 0a 20 20 20 20 57 ┆ BEGIN (* linie *) W┆
0x3a320…3a340 52 49 54 45 28 43 4c 52 48 4f 4d 29 3b 0d 0a 20 20 20 20 57 52 49 54 45 28 27 54 61 73 74 20 31 ┆RITE(CLRHOM); WRITE('Tast 1┆
0x3a340…3a360 2e 20 70 75 6e 6b 74 73 20 31 2e 20 6b 6f 6f 72 64 69 6e 61 74 3a 20 27 29 3b 20 52 45 41 44 4c ┆. punkts 1. koordinat: '); READL┆
0x3a360…3a380 4e 28 78 31 29 3b 0d 0a 20 20 20 20 57 52 49 54 45 28 27 54 61 73 74 20 31 2e 20 70 75 6e 6b 74 ┆N(x1); WRITE('Tast 1. punkt┆
0x3a380…3a3a0 73 20 32 2e 20 6b 6f 6f 72 64 69 6e 61 74 3a 20 27 29 3b 20 52 45 41 44 4c 4e 28 79 31 29 3b 0d ┆s 2. koordinat: '); READLN(y1); ┆
0x3a3a0…3a3c0 0a 20 20 20 20 57 52 49 54 45 28 27 54 61 73 74 20 32 2e 20 70 75 6e 6b 74 73 20 31 2e 20 6b 6f ┆ WRITE('Tast 2. punkts 1. ko┆
0x3a3c0…3a3e0 6f 72 64 69 6e 61 74 3a 20 27 29 3b 20 52 45 41 44 4c 4e 28 78 32 29 3b 0d 0a 20 20 20 20 57 52 ┆ordinat: '); READLN(x2); WR┆
0x3a3e0…3a400 49 54 45 28 27 54 61 73 74 20 32 2e 20 70 75 6e 6b 74 73 20 32 2e 20 6b 6f 6f 72 64 69 6e 61 74 ┆ITE('Tast 2. punkts 2. koordinat┆
0x3a400…3a420 (46, 0, 7) 2e 20 28 2a 20 6c 69 66 65 20 2a 29 0d 0a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆. (* life *) ┆
0x3a420…3a440 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ ┆
[…0x2…]
0x3a480…3a4a0 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 ┆ ┆
[…0xb…]
0x3a600…3a620 (46, 0, 8) 6d 61 78 6c 61 65 6e 67 64 65 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 52 45 41 44 4c 4e 28 ┆maxlaengde; READLN(┆
0x3a620…3a640 73 74 72 65 6e 67 31 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 27 54 61 ┆streng1); WRITE('Ta┆
0x3a640…3a660 73 74 20 32 2e 20 74 61 6c 20 28 6d 61 78 20 27 2c 6d 61 78 6c 61 65 6e 67 64 65 2c 20 27 20 63 ┆st 2. tal (max ',maxlaengde, ' c┆
0x3a660…3a680 69 66 72 65 29 3a 20 27 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 42 55 46 4c 45 4e 20 3a ┆ifre): '); BUFLEN :┆
0x3a680…3a6a0 3d 20 6d 61 78 6c 61 65 6e 67 64 65 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 52 45 41 44 4c ┆= maxlaengde; READL┆
0x3a6a0…3a6c0 4e 28 73 74 72 65 6e 67 32 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e ┆N(streng2); WRITELN┆
0x3a6c0…3a6e0 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 73 74 72 65 6e 67 31 3a 6d ┆; WRITELN(streng1:m┆
0x3a6e0…3a700 61 78 6c 61 65 6e 67 64 65 20 2b 31 30 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 46 4f 52 ┆axlaengde +10); FOR┆
0x3a700…3a720 20 69 20 3a 3d 20 31 20 54 4f 20 6d 61 78 6c 61 65 6e 67 64 65 20 2b 20 37 20 2d 20 4c 45 4e 28 ┆ i := 1 TO maxlaengde + 7 - LEN(┆
0x3a720…3a740 73 74 72 65 6e 67 32 29 20 44 4f 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 ┆streng2) DO WRITE┆
0x3a740…3a760 28 27 20 27 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 27 20 2b 20 ┆(' '); WRITELN(' + ┆
0x3a760…3a780 27 2c 20 73 74 72 65 6e 67 32 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 ┆', streng2); WRITE(┆
0x3a780…3a7a0 27 20 20 20 20 20 20 20 20 20 20 27 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 46 4f 52 20 ┆' '); FOR ┆
0x3a7a0…3a7c0 69 20 3a 3d 20 31 20 54 4f 20 6d 61 78 6c 61 65 6e 67 64 65 20 44 4f 0d 0a 20 20 20 20 20 20 20 ┆i := 1 TO maxlaengde DO ┆
0x3a7c0…3a7e0 20 20 20 20 20 20 20 57 52 49 54 45 28 27 2d 27 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ WRITE('-'); ┆
0x3a7e0…3a800 57 52 49 54 45 4c 4e 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 46 4f 52 20 69 20 3a 3d 20 4c ┆WRITELN; FOR i := L┆
0x3a800…3a820 (46, 0, 9) 3a 20 27 29 3b 20 52 45 41 44 4c 4e 28 79 32 29 3b 0d 0a 20 20 20 20 72 65 74 28 78 31 2c 20 79 ┆: '); READLN(y2); ret(x1, y┆
0x3a820…3a840 31 2c 20 78 32 2c 20 79 32 29 3b 0d 0a 20 20 45 4e 44 2e 20 28 2a 20 6c 69 6e 69 65 20 2a 29 0d ┆1, x2, y2); END. (* linie *) ┆
0x3a840…3a860 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 ┆ ┆
0x3a860…3a880 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 ┆ ┆
0x3a880…3a8a0 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 ┆ ┆
[…0x1b…]
0x3ac00…3ac20 (47, 1, 1) 45 4e 28 73 74 72 65 6e 67 31 29 20 2b 20 31 20 54 4f 20 6d 61 78 6c 61 65 6e 67 64 65 20 44 4f ┆EN(streng1) + 1 TO maxlaengde DO┆
0x3ac20…3ac40 20 28 2a 20 46 79 6c 64 20 6f 70 20 6d 65 64 20 30 20 2a 29 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆ (* Fyld op med 0 *) ┆
0x3ac40…3ac60 20 20 20 20 73 74 72 65 6e 67 31 20 3a 3d 20 27 30 27 20 2b 20 73 74 72 65 6e 67 31 3b 0d 0a 20 ┆ streng1 := '0' + streng1; ┆
0x3ac60…3ac80 20 20 20 20 20 20 20 20 20 20 20 46 4f 52 20 69 20 3a 3d 20 4c 45 4e 28 73 74 72 65 6e 67 32 29 ┆ FOR i := LEN(streng2)┆
0x3ac80…3aca0 20 2b 20 31 20 54 4f 20 6d 61 78 6c 61 65 6e 67 64 65 20 44 4f 0d 0a 20 20 20 20 20 20 20 20 20 ┆ + 1 TO maxlaengde DO ┆
0x3aca0…3acc0 20 20 20 20 20 73 74 72 65 6e 67 32 20 3a 3d 20 27 30 27 20 2b 20 73 74 72 65 6e 67 32 3b 0d 0a ┆ streng2 := '0' + streng2; ┆
0x3acc0…3ace0 20 20 20 20 20 20 20 20 20 20 20 20 46 4f 52 20 69 20 3a 3d 20 31 20 54 4f 20 6d 61 78 6c 61 65 ┆ FOR i := 1 TO maxlae┆
0x3ace0…3ad00 6e 67 64 65 20 44 4f 20 28 2a 20 54 61 6c 6c 65 6e 65 20 6f 76 65 72 66 7c 72 65 73 20 74 69 6c ┆ngde DO (* Tallene overføres til┆
0x3ad00…3ad20 20 76 31 20 6f 67 20 76 32 20 2a 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 76 31 28 2e ┆ v1 og v2 *) v1(.┆
0x3ad20…3ad40 69 2e 29 20 3a 3d 20 4f 52 44 28 73 74 72 65 6e 67 31 28 2e 69 2e 29 29 20 2d 20 4f 52 44 28 27 ┆i.) := ORD(streng1(.i.)) - ORD('┆
0x3ad40…3ad60 30 27 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 46 4f 52 20 69 20 3a 3d 20 31 20 54 4f 20 ┆0'); FOR i := 1 TO ┆
0x3ad60…3ad80 6d 61 78 6c 61 65 6e 67 64 65 20 44 4f 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 76 32 28 ┆maxlaengde DO v2(┆
0x3ad80…3ada0 2e 69 2e 29 20 3a 3d 20 4f 52 44 28 73 74 72 65 6e 67 32 28 2e 69 2e 29 29 20 2d 20 4f 52 44 28 ┆.i.) := ORD(streng2(.i.)) - ORD(┆
0x3ada0…3adc0 27 30 27 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 65 6e 74 65 20 3a 3d 20 30 3b 0d 0a ┆'0'); mente := 0; ┆
0x3adc0…3ade0 20 20 20 20 20 20 20 20 20 20 20 20 46 4f 52 20 69 20 3a 3d 20 6d 61 78 6c 61 65 6e 67 64 65 20 ┆ FOR i := maxlaengde ┆
0x3ade0…3ae00 44 4f 57 4e 54 4f 20 31 20 44 4f 20 28 2a 20 54 61 6c 6c 65 6e 65 20 61 64 64 65 72 65 73 20 2a ┆DOWNTO 1 DO (* Tallene adderes *┆
0x3ae00…3ae20 (47, 1, 2) 0a 20 20 20 20 52 45 41 44 4c 4e 28 73 31 29 3b 0d 0a 20 20 20 20 49 46 20 73 31 20 3d 20 27 27 ┆ READLN(s1); IF s1 = ''┆
0x3ae20…3ae40 0d 0a 20 20 20 20 20 20 54 48 45 4e 20 73 31 20 3a 3d 20 27 30 27 3b 0d 0a 20 20 20 20 57 52 49 ┆ THEN s1 := '0'; WRI┆
0x3ae40…3ae60 54 45 28 27 54 61 73 74 20 32 2e 20 66 61 6b 74 6f 72 20 28 6d 61 78 20 27 2c 20 6d 61 78 6c 61 ┆TE('Tast 2. faktor (max ', maxla┆
0x3ae60…3ae80 65 6e 67 64 65 2c 20 27 20 63 69 66 72 65 29 3a 20 27 29 3b 0d 0a 20 20 20 20 42 55 46 4c 45 4e ┆engde, ' cifre): '); BUFLEN┆
0x3ae80…3aea0 20 3a 3d 20 6d 61 78 6c 61 65 6e 67 64 65 3b 0d 0a 20 20 20 20 52 45 41 44 4c 4e 28 73 32 29 3b ┆ := maxlaengde; READLN(s2);┆
0x3aea0…3aec0 0d 0a 20 20 20 20 49 46 20 73 32 20 3d 20 27 27 0d 0a 20 20 20 20 20 20 54 48 45 4e 20 73 32 20 ┆ IF s2 = '' THEN s2 ┆
0x3aec0…3aee0 3a 3d 20 27 30 27 3b 0d 0a 20 20 20 20 57 52 49 54 45 4c 4e 3b 0d 0a 20 20 20 20 57 52 49 54 45 ┆:= '0'; WRITELN; WRITE┆
0x3aee0…3af00 28 73 31 2c 20 27 20 2a 20 27 2c 20 73 32 2c 20 27 20 3d 20 27 29 3b 0d 0a 20 20 20 20 46 4f 52 ┆(s1, ' * ', s2, ' = '); FOR┆
0x3af00…3af20 20 69 20 3a 3d 20 4c 45 4e 28 73 31 29 20 2b 20 31 20 54 4f 20 6d 61 78 6c 61 65 6e 67 64 65 20 ┆ i := LEN(s1) + 1 TO maxlaengde ┆
0x3af20…3af40 44 4f 0d 0a 20 20 20 20 20 20 73 31 20 3a 3d 20 27 30 27 20 2b 20 73 31 3b 0d 0a 20 20 20 20 46 ┆DO s1 := '0' + s1; F┆
0x3af40…3af60 4f 52 20 69 20 3a 3d 20 4c 45 4e 28 73 32 29 20 2b 20 31 20 54 4f 20 6d 61 78 6c 61 65 6e 67 64 ┆OR i := LEN(s2) + 1 TO maxlaengd┆
0x3af60…3af80 65 20 44 4f 0d 0a 20 20 20 20 20 20 73 32 20 3a 3d 20 27 30 27 20 2b 20 73 32 3b 0d 0a 20 20 20 ┆e DO s2 := '0' + s2; ┆
0x3af80…3afa0 20 46 4f 52 20 69 20 3a 3d 20 31 20 54 4f 20 6d 61 78 6c 61 65 6e 67 64 65 20 44 4f 0d 0a 20 20 ┆ FOR i := 1 TO maxlaengde DO ┆
0x3afa0…3afc0 20 20 20 20 76 31 28 2e 69 2e 29 20 3a 3d 20 4f 52 44 28 73 31 28 2e 69 2e 29 29 20 2d 20 4f 52 ┆ v1(.i.) := ORD(s1(.i.)) - OR┆
0x3afc0…3afe0 44 28 27 30 27 29 3b 0d 0a 20 20 20 20 46 4f 52 20 69 20 3a 3d 20 31 20 54 4f 20 6d 61 78 6c 61 ┆D('0'); FOR i := 1 TO maxla┆
0x3afe0…3b000 65 6e 67 64 65 20 44 4f 0d 0a 20 20 20 20 20 20 76 32 28 2e 69 2e 29 20 3a 3d 20 4f 52 44 28 73 ┆engde DO v2(.i.) := ORD(s┆
0x3b000…3b020 (47, 1, 3) e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0xf…]
0x3b200…3b220 (47, 1, 4) 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 ┆) BEGIN ┆
0x3b220…3b240 20 20 20 20 20 20 20 20 73 75 6d 20 3a 3d 20 76 31 28 2e 69 2e 29 20 2b 20 76 32 28 2e 69 2e 29 ┆ sum := v1(.i.) + v2(.i.)┆
0x3b240…3b260 20 2b 20 6d 65 6e 74 65 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 76 33 28 2e 69 ┆ + mente; v3(.i┆
0x3b260…3b280 2e 29 20 3a 3d 20 73 75 6d 20 4d 4f 44 20 31 30 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆.) := sum MOD 10; ┆
0x3b280…3b2a0 20 20 20 6d 65 6e 74 65 20 3a 3d 20 73 75 6d 20 44 49 56 20 31 30 3b 0d 0a 20 20 20 20 20 20 20 ┆ mente := sum DIV 10; ┆
0x3b2a0…3b2c0 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 76 33 28 2e 30 2e 29 ┆ END; v3(.0.)┆
0x3b2c0…3b2e0 20 3a 3d 20 6d 65 6e 74 65 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 46 4f 52 20 69 20 3a 3d ┆ := mente; FOR i :=┆
0x3b2e0…3b300 20 31 20 54 4f 20 39 20 44 4f 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 ┆ 1 TO 9 DO WRITE(┆
0x3b300…3b320 27 20 27 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 6a 20 3a 3d 20 30 3b 0d 0a 20 20 20 20 ┆' '); j := 0; ┆
0x3b320…3b340 20 20 20 20 20 20 20 20 57 48 49 4c 45 20 28 76 33 28 2e 6a 2e 29 20 3d 20 30 29 20 41 4e 44 20 ┆ WHILE (v3(.j.) = 0) AND ┆
0x3b340…3b360 28 6a 20 3c 20 6d 61 78 6c 61 65 6e 67 64 65 29 20 44 4f 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ┆(j < maxlaengde) DO ┆
0x3b360…3b380 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 ┆ BEGIN WRITE(┆
0x3b380…3b3a0 27 20 27 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6a 20 3a 3d 20 6a 20 2b 20 ┆' '); j := j + ┆
0x3b3a0…3b3c0 31 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 20 20 20 20 ┆1; END; ┆
0x3b3c0…3b3e0 20 20 20 20 46 4f 52 20 69 20 3a 3d 20 6a 20 54 4f 20 6d 61 78 6c 61 65 6e 67 64 65 20 44 4f 0d ┆ FOR i := j TO maxlaengde DO ┆
0x3b3e0…3b400 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 76 33 28 2e 69 2e 29 29 3b 0d 0a ┆ WRITE(v3(.i.)); ┆
0x3b400…3b420 (47, 1, 5) 32 28 2e 69 2e 29 29 20 2d 20 4f 52 44 28 27 30 27 29 3b 0d 0a 20 20 20 20 46 4f 52 20 6b 20 3a ┆2(.i.)) - ORD('0'); FOR k :┆
0x3b420…3b440 3d 20 31 20 54 4f 20 64 6f 62 62 65 6c 74 6d 61 78 20 44 4f 0d 0a 20 20 20 20 20 20 76 28 2e 6b ┆= 1 TO dobbeltmax DO v(.k┆
0x3b440…3b460 2e 29 20 3a 3d 20 30 3b 0d 0a 20 20 20 20 46 4f 52 20 69 20 3a 3d 20 6d 61 78 6c 61 65 6e 67 64 ┆.) := 0; FOR i := maxlaengd┆
0x3b460…3b480 65 20 44 4f 57 4e 54 4f 20 31 20 44 4f 0d 0a 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 ┆e DOWNTO 1 DO BEGIN ┆
0x3b480…3b4a0 20 20 20 20 6d 65 6e 74 65 20 3a 3d 20 30 3b 0d 0a 20 20 20 20 20 20 20 20 46 4f 52 20 6b 20 3a ┆ mente := 0; FOR k :┆
0x3b4a0…3b4c0 3d 20 31 20 54 4f 20 64 6f 62 62 65 6c 74 6d 61 78 20 44 4f 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆= 1 TO dobbeltmax DO ┆
0x3b4c0…3b4e0 77 28 2e 6b 2e 29 20 3a 3d 20 30 3b 0d 0a 20 20 20 20 20 20 20 20 6b 20 3a 3d 20 6d 61 78 6c 61 ┆w(.k.) := 0; k := maxla┆
0x3b4e0…3b500 65 6e 67 64 65 20 2b 20 31 20 2b 20 69 3b 0d 0a 20 20 20 20 20 20 20 20 46 4f 52 20 6a 20 3a 3d ┆engde + 1 + i; FOR j :=┆
0x3b500…3b520 20 6d 61 78 6c 61 65 6e 67 64 65 20 44 4f 57 4e 54 4f 20 31 20 44 4f 0d 0a 20 20 20 20 20 20 20 ┆ maxlaengde DOWNTO 1 DO ┆
0x3b520…3b540 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 6b 20 3a 3d 20 6b 20 2d 20 31 ┆ BEGIN k := k - 1┆
0x3b540…3b560 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 70 72 6f 64 75 6b 74 20 3a 3d 20 76 31 28 2e 69 2e ┆; produkt := v1(.i.┆
0x3b560…3b580 29 20 2a 20 76 32 28 2e 6a 2e 29 20 2b 20 6d 65 6e 74 65 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆) * v2(.j.) + mente; ┆
0x3b580…3b5a0 20 20 77 28 2e 6b 2e 29 20 3a 3d 20 70 72 6f 64 75 6b 74 20 4d 4f 44 20 31 30 3b 0d 0a 20 20 20 ┆ w(.k.) := produkt MOD 10; ┆
0x3b5a0…3b5c0 20 20 20 20 20 20 20 20 20 6d 65 6e 74 65 20 3a 3d 20 70 72 6f 64 75 6b 74 20 44 49 56 20 31 30 ┆ mente := produkt DIV 10┆
0x3b5c0…3b5e0 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 20 20 20 20 61 64 64 6d 65 ┆; END; addme┆
0x3b5e0…3b600 6e 74 65 20 3a 3d 20 30 3b 0d 0a 20 20 20 20 20 20 20 20 46 4f 52 20 6b 20 3a 3d 20 64 6f 62 62 ┆nte := 0; FOR k := dobb┆
0x3b600…3b620 (47, 1, 6) e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0xf…]
0x3b800…3b820 (47, 1, 7) 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆ WRITELN; ┆
0x3b820…3b840 45 4e 44 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 1a 1a 1a 1a ┆END. ┆
0x3b840…3b860 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ ┆
[…0x1…]
0x3b880…3b8a0 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 ┆ ┆
[…0xb…]
0x3ba00…3ba20 (47, 1, 8) 65 6c 74 6d 61 78 20 44 4f 57 4e 54 4f 20 31 20 44 4f 0d 0a 20 20 20 20 20 20 20 20 20 20 42 45 ┆eltmax DOWNTO 1 DO BE┆
0x3ba20…3ba40 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 75 6d 20 3a 3d 20 76 28 2e 6b 2e 29 20 2b ┆GIN sum := v(.k.) +┆
0x3ba40…3ba60 20 77 28 2e 6b 2e 29 20 2b 20 61 64 64 6d 65 6e 74 65 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ w(.k.) + addmente; ┆
0x3ba60…3ba80 20 76 28 2e 6b 2e 29 20 3a 3d 20 73 75 6d 20 4d 4f 44 20 31 30 3b 0d 0a 20 20 20 20 20 20 20 20 ┆ v(.k.) := sum MOD 10; ┆
0x3ba80…3baa0 20 20 20 20 61 64 64 6d 65 6e 74 65 20 3a 3d 20 73 75 6d 20 44 49 56 20 31 30 3b 0d 0a 20 20 20 ┆ addmente := sum DIV 10; ┆
0x3baa0…3bac0 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 6b 20 3a ┆ END; END; k :┆
0x3bac0…3bae0 3d 20 31 3b 0d 0a 20 20 20 20 57 48 49 4c 45 20 28 76 28 2e 6b 2e 29 20 3d 20 30 29 20 41 4e 44 ┆= 1; WHILE (v(.k.) = 0) AND┆
0x3bae0…3bb00 20 28 6b 20 3c 20 64 6f 62 62 65 6c 74 6d 61 78 29 20 44 4f 0d 0a 20 20 20 20 20 20 6b 20 3a 3d ┆ (k < dobbeltmax) DO k :=┆
0x3bb00…3bb20 20 6b 20 2b 20 31 3b 0d 0a 20 20 20 20 46 4f 52 20 6c 20 3a 3d 20 6b 20 54 4f 20 64 6f 62 62 65 ┆ k + 1; FOR l := k TO dobbe┆
0x3bb20…3bb40 6c 74 6d 61 78 20 44 4f 0d 0a 20 20 20 20 20 20 57 52 49 54 45 28 76 28 2e 6c 2e 29 29 3b 0d 0a ┆ltmax DO WRITE(v(.l.)); ┆
0x3bb40…3bb60 20 20 20 20 57 52 49 54 45 4c 4e 3b 0d 0a 20 20 45 4e 44 2e 0d 0a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ WRITELN; END. ┆
0x3bb60…3bb80 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 ┆ ┆
0x3bb80…3bba0 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 ┆ ┆
[…0x3…]
0x3bc00…3bc20 (47, 1, 9) 50 52 4f 47 52 41 4d 20 6c 6f 6e 67 6d 75 6c 74 3b 0d 0a 20 20 0d 0a 20 20 43 4f 4e 53 54 0d 0a ┆PROGRAM longmult; CONST ┆
0x3bc20…3bc40 20 20 20 20 6d 61 78 6c 61 65 6e 67 64 65 20 3d 20 31 32 3b 0d 0a 20 20 20 20 64 6f 62 62 65 6c ┆ maxlaengde = 12; dobbel┆
0x3bc40…3bc60 74 6d 61 78 20 3d 20 32 34 3b 0d 0a 20 20 20 20 0d 0a 20 20 54 59 50 45 0d 0a 20 20 20 20 63 69 ┆tmax = 24; TYPE ci┆
0x3bc60…3bc80 66 72 65 20 3d 20 30 20 2e 2e 20 39 3b 0d 0a 20 20 20 20 6c 69 6c 6c 65 76 65 6b 74 6f 72 20 3d ┆fre = 0 .. 9; lillevektor =┆
0x3bc80…3bca0 20 41 52 52 41 59 28 2e 31 20 2e 2e 20 6d 61 78 6c 61 65 6e 67 64 65 2e 29 20 4f 46 20 63 69 66 ┆ ARRAY(.1 .. maxlaengde.) OF cif┆
0x3bca0…3bcc0 72 65 3b 0d 0a 20 20 20 20 73 74 6f 72 76 65 6b 74 6f 72 20 3d 20 41 52 52 41 59 28 2e 31 20 2e ┆re; storvektor = ARRAY(.1 .┆
0x3bcc0…3bce0 2e 20 64 6f 62 62 65 6c 74 6d 61 78 2e 29 20 4f 46 20 63 69 66 72 65 3b 0d 0a 20 20 20 20 73 74 ┆. dobbeltmax.) OF cifre; st┆
0x3bce0…3bd00 72 20 3d 20 53 54 52 49 4e 47 28 2e 6d 61 78 6c 61 65 6e 67 64 65 2e 29 3b 0d 0a 20 20 20 20 0d ┆r = STRING(.maxlaengde.); ┆
0x3bd00…3bd20 0a 20 20 56 41 52 0d 0a 20 20 20 20 73 31 2c 20 73 32 20 3a 20 73 74 72 3b 0d 0a 20 20 20 20 76 ┆ VAR s1, s2 : str; v┆
0x3bd20…3bd40 31 2c 20 76 32 20 3a 20 6c 69 6c 6c 65 76 65 6b 74 6f 72 3b 0d 0a 20 20 20 20 76 2c 20 77 20 3a ┆1, v2 : lillevektor; v, w :┆
0x3bd40…3bd60 20 73 74 6f 72 76 65 6b 74 6f 72 3b 0d 0a 20 20 20 20 69 2c 20 6a 2c 20 6b 2c 20 6c 2c 20 6d 65 ┆ storvektor; i, j, k, l, me┆
0x3bd60…3bd80 6e 74 65 2c 20 61 64 64 6d 65 6e 74 65 2c 20 70 72 6f 64 75 6b 74 2c 20 73 75 6d 20 3a 20 49 4e ┆nte, addmente, produkt, sum : IN┆
0x3bd80…3bda0 54 45 47 45 52 3b 0d 0a 20 20 0d 0a 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 57 52 49 54 45 28 43 ┆TEGER; BEGIN WRITE(C┆
0x3bda0…3bdc0 4c 52 48 4f 4d 29 3b 0d 0a 20 20 20 20 57 52 49 54 45 28 27 54 61 73 74 20 31 2e 20 66 61 6b 74 ┆LRHOM); WRITE('Tast 1. fakt┆
0x3bdc0…3bde0 6f 72 20 28 6d 61 78 20 27 2c 20 6d 61 78 6c 61 65 6e 67 64 65 2c 20 27 20 63 69 66 72 65 29 3a ┆or (max ', maxlaengde, ' cifre):┆
0x3bde0…3be00 20 27 29 3b 0d 0a 20 20 20 20 42 55 46 4c 45 4e 20 3a 3d 20 6d 61 78 6c 61 65 6e 67 64 65 3b 0d ┆ '); BUFLEN := maxlaengde; ┆
0x3be00…3be20 (47, 1, 10) e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0xf…]
0x3c000…3c020 (48, 0, 1) 50 52 4f 47 52 41 4d 20 6d 61 61 6e 65 64 32 3b 0d 0a 0d 0a 20 20 56 41 52 0d 0a 20 20 20 20 6e ┆PROGRAM maaned2; VAR n┆
0x3c020…3c040 75 6d 6d 65 72 20 3a 20 49 4e 54 45 47 45 52 3b 0d 0a 20 20 0d 0a 20 20 42 45 47 49 4e 0d 0a 20 ┆ummer : INTEGER; BEGIN ┆
0x3c040…3c060 20 20 20 57 52 49 54 45 28 43 4c 52 48 4f 4d 29 3b 0d 0a 20 20 20 20 47 4f 54 4f 58 59 28 35 2c ┆ WRITE(CLRHOM); GOTOXY(5,┆
0x3c060…3c080 20 32 29 3b 20 57 52 49 54 45 28 27 41 6e 67 69 76 65 6c 73 65 20 61 66 20 61 6e 74 61 6c 20 64 ┆ 2); WRITE('Angivelse af antal d┆
0x3c080…3c0a0 61 67 65 20 69 20 65 6e 20 6d 7d 6e 65 64 3a 27 29 3b 0d 0a 20 20 20 20 47 4f 54 4f 58 59 28 35 ┆age i en måned:'); GOTOXY(5┆
0x3c0a0…3c0c0 2c 20 33 29 3b 20 57 52 49 54 45 28 27 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆, 3); WRITE('-------------------┆
0x3c0c0…3c0e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 27 29 3b 0d 0a 20 20 20 20 47 4f 54 4f 58 59 28 ┆----------------'); GOTOXY(┆
0x3c0e0…3c100 35 2c 20 35 29 3b 20 57 52 49 54 45 28 27 49 6e 64 74 61 73 74 20 6d 7d 6e 65 64 65 6e 73 20 6e ┆5, 5); WRITE('Indtast månedens n┆
0x3c100…3c120 75 6d 6d 65 72 20 28 66 2e 65 6b 73 2e 20 34 29 3a 20 27 29 3b 20 0d 0a 20 20 20 20 52 45 41 44 ┆ummer (f.eks. 4): '); READ┆
0x3c120…3c140 4c 4e 28 6e 75 6d 6d 65 72 29 3b 0d 0a 20 20 20 20 47 4f 54 4f 58 59 28 35 2c 20 31 30 29 3b 0d ┆LN(nummer); GOTOXY(5, 10); ┆
0x3c140…3c160 0a 20 20 20 20 43 41 53 45 20 6e 75 6d 6d 65 72 20 4f 46 0d 0a 20 20 20 20 20 20 31 2c 20 33 2c ┆ CASE nummer OF 1, 3,┆
0x3c160…3c180 20 35 2c 20 37 2c 20 38 2c 20 31 30 2c 20 31 32 20 3a 20 57 52 49 54 45 28 27 4d 7d 6e 65 64 20 ┆ 5, 7, 8, 10, 12 : WRITE('Måned ┆
0x3c180…3c1a0 6e 72 2e 20 27 2c 20 6e 75 6d 6d 65 72 2c 20 27 20 68 61 72 20 33 31 20 64 61 67 65 27 29 3b 0d ┆nr. ', nummer, ' har 31 dage'); ┆
0x3c1a0…3c1c0 0a 20 20 20 20 20 20 32 20 3a 20 57 52 49 54 45 28 27 4d 7d 6e 65 64 20 6e 72 2e 20 32 20 68 61 ┆ 2 : WRITE('Måned nr. 2 ha┆
0x3c1c0…3c1e0 72 20 32 38 20 28 32 39 29 20 64 61 67 65 27 29 3b 0d 0a 20 20 20 20 20 20 34 2c 20 36 2c 20 39 ┆r 28 (29) dage'); 4, 6, 9┆
0x3c1e0…3c200 2c 20 31 31 20 3a 20 57 52 49 54 45 28 27 4d 7d 6e 65 64 20 6e 72 2e 20 27 2c 20 6e 75 6d 6d 65 ┆, 11 : WRITE('Måned nr. ', numme┆
0x3c200…3c220 (48, 0, 2) e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0xf…]
0x3c400…3c420 (48, 0, 3) 20 20 20 20 20 20 20 20 50 52 4f 47 52 41 4d 20 20 6d 61 78 69 6d 75 6d 32 3b 0d 0a 20 20 20 20 ┆ PROGRAM maximum2; ┆
0x3c420…3c440 20 20 20 20 0d 0a 20 20 20 20 20 20 20 20 28 2a 20 50 72 6f 67 72 61 6d 6d 65 74 20 66 69 6e 64 ┆ (* Programmet find┆
0x3c440…3c460 65 72 20 6d 61 78 69 6d 75 6d 20 62 6c 61 6e 64 74 20 65 6e 20 72 7b 6b 6b 65 20 74 61 6c 20 2a ┆er maximum blandt en række tal *┆
0x3c460…3c480 29 0d 0a 20 20 20 20 20 20 20 20 28 2a 20 55 64 73 6b 72 69 66 74 65 6e 20 6b 6f 6d 6d 65 72 20 ┆) (* Udskriften kommer ┆
0x3c480…3c4a0 70 7d 20 70 72 69 6e 74 65 72 65 6e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 29 0d 0a ┆på printeren *) ┆
0x3c4a0…3c4c0 20 20 20 20 20 20 20 20 0d 0a 20 20 20 20 20 20 20 20 43 4f 4e 53 54 0d 0a 20 20 20 20 20 20 20 ┆ CONST ┆
0x3c4c0…3c4e0 20 20 20 61 6e 74 61 6c 20 3d 20 32 30 30 3b 0d 0a 20 20 20 20 20 20 20 20 0d 0a 20 20 20 20 20 ┆ antal = 200; ┆
0x3c4e0…3c500 20 20 20 54 59 50 45 0d 0a 20 20 20 20 20 20 20 20 20 20 76 65 6b 74 6f 72 20 3d 20 41 52 52 41 ┆ TYPE vektor = ARRA┆
0x3c500…3c520 59 28 2e 31 20 2e 2e 20 61 6e 74 61 6c 2e 29 20 4f 46 20 49 4e 54 45 47 45 52 3b 0d 0a 20 20 20 ┆Y(.1 .. antal.) OF INTEGER; ┆
0x3c520…3c540 20 20 20 20 20 0d 0a 20 20 20 20 20 20 20 20 56 41 52 0d 0a 20 20 20 20 20 20 20 20 20 20 76 20 ┆ VAR v ┆
0x3c540…3c560 3a 20 76 65 6b 74 6f 72 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 69 2c 20 6e 72 2c 20 6d 61 78 20 ┆: vektor; i, nr, max ┆
0x3c560…3c580 3a 20 49 4e 54 45 47 45 52 3b 0d 0a 20 20 20 20 20 20 20 20 0d 0a 20 20 20 20 20 20 20 20 42 45 ┆: INTEGER; BE┆
0x3c580…3c5a0 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 52 41 4e 44 4f 4d 49 5a 45 3b 0d 0a 20 20 20 20 20 ┆GIN RANDOMIZE; ┆
0x3c5a0…3c5c0 20 20 20 20 20 57 52 49 54 45 4c 4e 28 4c 53 54 2c 43 48 52 28 31 32 29 2c 20 27 46 7c 72 73 74 ┆ WRITELN(LST,CHR(12), 'Først┆
0x3c5c0…3c5e0 20 76 7b 6c 67 65 72 20 76 69 20 6e 6f 67 6c 65 20 74 61 6c 3a 27 29 3b 0d 0a 20 20 20 20 20 20 ┆ vælger vi nogle tal:'); ┆
0x3c5e0…3c600 20 20 20 20 46 4f 52 20 69 20 3a 3d 20 31 20 54 4f 20 61 6e 74 61 6c 20 44 4f 0d 0a 20 20 20 20 ┆ FOR i := 1 TO antal DO ┆
0x3c600…3c620 (48, 0, 4) 72 2c 20 27 20 68 61 72 20 33 30 20 64 61 67 65 27 29 3b 0d 0a 20 20 20 20 4f 54 48 45 52 57 49 ┆r, ' har 30 dage'); OTHERWI┆
0x3c620…3c640 53 45 0d 0a 20 20 20 20 20 20 57 52 49 54 45 28 27 44 75 20 68 61 72 20 74 61 73 74 65 74 20 65 ┆SE WRITE('Du har tastet e┆
0x3c640…3c660 74 20 75 6c 6f 76 6c 69 67 74 20 6e 75 6d 6d 65 72 27 29 3b 0d 0a 20 20 20 20 45 4e 44 3b 0d 0a ┆t ulovligt nummer'); END; ┆
0x3c660…3c680 20 20 20 20 47 4f 54 4f 58 59 28 30 2c 20 32 30 29 3b 0d 0a 20 20 45 4e 44 2e 0d 0a 1a 1a 1a 1a ┆ GOTOXY(0, 20); END. ┆
0x3c680…3c6a0 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 ┆ ┆
[…0xb…]
0x3c800…3c820 (48, 0, 5) 50 52 4f 47 52 41 4d 20 6d 61 78 70 75 6e 6b 74 3b 0d 0a 0d 0a 20 20 56 41 52 0d 0a 20 20 20 20 ┆PROGRAM maxpunkt; VAR ┆
0x3c820…3c840 61 2c 20 62 2c 20 62 79 74 2c 20 78 2c 20 66 78 2c 20 66 6d 61 78 2c 20 78 6d 61 78 2c 20 64 65 ┆a, b, byt, x, fx, fmax, xmax, de┆
0x3c840…3c860 6c 74 61 20 3a 20 52 45 41 4c 3b 0d 0a 20 20 20 20 69 2c 20 61 6e 74 61 6c 20 3a 20 49 4e 54 45 ┆lta : REAL; i, antal : INTE┆
0x3c860…3c880 47 45 52 3b 0d 0a 20 20 0d 0a 20 20 46 55 4e 43 54 49 4f 4e 20 66 28 78 20 3a 20 52 45 41 4c 29 ┆GER; FUNCTION f(x : REAL)┆
0x3c880…3c8a0 20 3a 20 52 45 41 4c 3b 0d 0a 20 20 0d 0a 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 66 ┆ : REAL; BEGIN f┆
0x3c8a0…3c8c0 20 3a 3d 20 28 28 78 20 2d 20 33 29 20 2a 20 78 20 2d 20 39 29 20 2a 20 78 20 2b 20 32 3b 0d 0a ┆ := ((x - 3) * x - 9) * x + 2; ┆
0x3c8c0…3c8e0 20 20 20 20 45 4e 44 3b 0d 0a 20 20 0d 0a 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 57 52 49 54 45 ┆ END; BEGIN WRITE┆
0x3c8e0…3c900 28 43 4c 52 48 4f 4d 29 3b 0d 0a 20 20 20 20 57 52 49 54 45 28 27 54 61 73 74 20 61 20 69 20 69 ┆(CLRHOM); WRITE('Tast a i i┆
0x3c900…3c920 6e 74 65 72 76 61 6c 6c 65 74 20 28 61 2c 62 29 3a 20 27 29 3b 20 52 45 41 44 4c 4e 28 61 29 3b ┆ntervallet (a,b): '); READLN(a);┆
0x3c920…3c940 0d 0a 20 20 20 20 57 52 49 54 45 28 27 54 61 73 74 20 62 20 69 20 69 6e 74 65 72 76 61 6c 6c 65 ┆ WRITE('Tast b i intervalle┆
0x3c940…3c960 74 20 28 61 2c 62 29 3a 20 27 29 3b 20 52 45 41 44 4c 4e 28 62 29 3b 0d 0a 20 20 20 20 57 52 49 ┆t (a,b): '); READLN(b); WRI┆
0x3c960…3c980 54 45 28 27 48 76 6f 72 20 6d 61 6e 67 65 20 64 65 6c 69 6e 74 65 72 76 61 6c 6c 65 72 20 73 6b ┆TE('Hvor mange delintervaller sk┆
0x3c980…3c9a0 61 6c 20 28 61 2c 62 29 20 64 65 6c 65 73 20 6f 70 20 69 3a 20 27 29 3b 20 0d 0a 20 20 20 20 52 ┆al (a,b) deles op i: '); R┆
0x3c9a0…3c9c0 45 41 44 4c 4e 28 61 6e 74 61 6c 29 3b 0d 0a 20 20 20 20 49 46 20 61 20 3e 20 62 0d 0a 20 20 20 ┆EADLN(antal); IF a > b ┆
0x3c9c0…3c9e0 20 20 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 ┆ THEN BEGIN ┆
0x3c9e0…3ca00 20 20 62 79 74 20 3a 3d 20 61 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 61 20 3a 3d 20 62 3b 0d 0a ┆ byt := a; a := b; ┆
0x3ca00…3ca20 (48, 0, 6) 20 20 20 20 20 20 20 20 76 28 2e 69 2e 29 20 3a 3d 20 52 41 4e 44 4f 4d 28 35 30 30 29 3b 0d 0a ┆ v(.i.) := RANDOM(500); ┆
0x3ca20…3ca40 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 4c 53 54 29 3b 0d 0a 20 20 20 20 20 20 20 ┆ WRITELN(LST); ┆
0x3ca40…3ca60 20 20 20 46 4f 52 20 69 20 3a 3d 20 31 20 54 4f 20 61 6e 74 61 6c 20 44 4f 20 20 20 28 2a 20 54 ┆ FOR i := 1 TO antal DO (* T┆
0x3ca60…3ca80 61 6c 6c 65 6e 65 20 75 64 73 6b 72 69 76 65 73 20 2a 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ┆allene udskrives *) ┆
0x3ca80…3caa0 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 4c 53 54 2c ┆ BEGIN WRITE(LST,┆
0x3caa0…3cac0 76 28 2e 69 2e 29 3a 34 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 69 20 4d ┆v(.i.):4); IF i M┆
0x3cac0…3cae0 4f 44 20 32 30 20 3d 20 30 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 20 ┆OD 20 = 0 THEN ┆
0x3cae0…3cb00 57 52 49 54 45 4c 4e 28 4c 53 54 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 0d ┆WRITELN(LST); END; ┆
0x3cb00…3cb20 0a 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 4c 53 54 29 3b 0d 0a 20 20 20 20 20 20 ┆ WRITELN(LST); ┆
0x3cb20…3cb40 20 20 20 20 6d 61 78 20 3a 3d 20 76 28 2e 31 2e 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 6e 72 ┆ max := v(.1.); nr┆
0x3cb40…3cb60 20 3a 3d 20 31 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 46 4f 52 20 69 20 3a 3d 20 32 20 54 4f 20 ┆ := 1; FOR i := 2 TO ┆
0x3cb60…3cb80 61 6e 74 61 6c 20 44 4f 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 76 28 2e 69 2e ┆antal DO IF v(.i.┆
0x3cb80…3cba0 29 20 3e 20 6d 61 78 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 0d 0a 20 ┆) > max THEN ┆
0x3cba0…3cbc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 ┆ BEGIN ┆
0x3cbc0…3cbe0 20 20 20 20 20 20 20 20 20 20 20 20 6d 61 78 20 3a 3d 20 76 28 2e 69 2e 29 3b 0d 0a 20 20 20 20 ┆ max := v(.i.); ┆
0x3cbe0…3cc00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 72 20 3a 3d 20 69 3b 20 20 20 20 20 20 20 28 ┆ nr := i; (┆
0x3cc00…3cc20 (48, 0, 7) e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0xf…]
0x3ce00…3ce20 (48, 0, 8) 20 20 20 20 20 20 20 20 20 20 62 20 3a 3d 20 62 79 74 3b 0d 0a 20 20 20 20 20 20 20 20 45 4e 44 ┆ b := byt; END┆
0x3ce20…3ce40 3b 0d 0a 20 20 20 20 64 65 6c 74 61 20 3a 3d 20 28 62 20 2d 20 61 29 20 2f 20 61 6e 74 61 6c 3b ┆; delta := (b - a) / antal;┆
0x3ce40…3ce60 0d 0a 20 20 20 20 66 6d 61 78 20 3a 3d 20 66 28 61 29 3b 0d 0a 20 20 20 20 78 6d 61 78 20 3a 3d ┆ fmax := f(a); xmax :=┆
0x3ce60…3ce80 20 61 3b 0d 0a 20 20 20 20 78 20 3a 3d 20 61 3b 0d 0a 20 20 20 20 46 4f 52 20 69 20 3a 3d 20 31 ┆ a; x := a; FOR i := 1┆
0x3ce80…3cea0 20 54 4f 20 61 6e 74 61 6c 20 44 4f 0d 0a 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 ┆ TO antal DO BEGIN ┆
0x3cea0…3cec0 20 20 20 78 20 3a 3d 20 78 20 2b 20 64 65 6c 74 61 3b 0d 0a 20 20 20 20 20 20 20 20 66 78 20 3a ┆ x := x + delta; fx :┆
0x3cec0…3cee0 3d 20 66 28 78 29 3b 0d 0a 20 20 20 20 20 20 20 20 49 46 20 66 78 20 3e 20 66 6d 61 78 0d 0a 20 ┆= f(x); IF fx > fmax ┆
0x3cee0…3cf00 20 20 20 20 20 20 20 20 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e ┆ THEN BEGIN┆
0x3cf00…3cf20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6d 61 78 20 3a 3d 20 66 78 3b 0d 0a 20 20 20 ┆ fmax := fx; ┆
0x3cf20…3cf40 20 20 20 20 20 20 20 20 20 20 20 78 6d 61 78 20 3a 3d 20 78 3b 0d 0a 20 20 20 20 20 20 20 20 20 ┆ xmax := x; ┆
0x3cf40…3cf60 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 57 52 49 54 45 4c 4e ┆ END; END; WRITELN┆
0x3cf60…3cf80 28 27 4d 61 78 69 6d 75 6d 73 76 7b 72 64 69 65 6e 20 66 6f 72 20 66 75 6e 6b 74 69 6f 6e 65 6e ┆('Maximumsværdien for funktionen┆
0x3cf80…3cfa0 20 69 20 28 27 2c 20 61 20 3a 20 36 20 3a 20 32 20 2c 20 27 2c 27 2c 20 0d 0a 20 20 20 20 20 20 ┆ i (', a : 6 : 2 , ',', ┆
0x3cfa0…3cfc0 20 20 20 20 20 20 20 62 20 3a 20 36 20 3a 20 32 2c 20 27 29 27 29 3b 0d 0a 20 20 20 20 57 52 49 ┆ b : 6 : 2, ')'); WRI┆
0x3cfc0…3cfe0 54 45 4c 4e 28 27 62 61 73 65 72 65 74 20 70 7d 20 27 2c 20 61 6e 74 61 6c 20 2b 20 31 2c 20 27 ┆TELN('baseret på ', antal + 1, '┆
0x3cfe0…3d000 20 73 74 7c 74 74 65 70 75 6e 6b 74 65 72 3a 20 27 2c 20 66 6d 61 78 20 3a 20 31 30 20 3a 20 34 ┆ støttepunkter: ', fmax : 10 : 4┆
0x3d000…3d020 (48, 0, 9) 2a 20 56 69 20 6e 6f 74 65 72 65 72 2c 20 68 76 6f 72 20 6d 61 78 20 73 74 7d 72 20 2a 29 0d 0a ┆* Vi noterer, hvor max står *) ┆
0x3d020…3d040 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 20 20 20 20 ┆ END; ┆
0x3d040…3d060 20 20 57 52 49 54 45 4c 4e 28 4c 53 54 2c 27 44 65 74 20 73 74 7c 72 73 74 65 20 74 61 6c 20 65 ┆ WRITELN(LST,'Det største tal e┆
0x3d060…3d080 72 20 27 2c 20 6d 61 78 2c 20 27 20 6f 67 20 64 65 74 20 73 74 7d 72 20 73 6f 6d 20 6e 72 2e 20 ┆r ', max, ' og det står som nr. ┆
0x3d080…3d0a0 27 2c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 72 2c 20 27 20 69 20 6f 76 ┆', nr, ' i ov┆
0x3d0a0…3d0c0 65 6e 73 74 7d 65 6e 64 65 20 72 7b 6b 6b 65 27 29 3b 0d 0a 20 20 20 20 20 20 20 20 45 4e 44 2e ┆enstående række'); END.┆
0x3d0c0…3d0e0 0d 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 ┆ ┆
0x3d0e0…3d100 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 ┆ ┆
0x3d100…3d120 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 ┆ ┆
[…0x17…]
0x3d400…3d420 (49, 1, 1) 29 3b 0d 0a 20 20 20 20 57 52 49 54 45 4c 4e 28 27 4d 61 78 69 6d 75 6d 73 70 75 6e 6b 74 65 74 ┆); WRITELN('Maximumspunktet┆
0x3d420…3d440 20 65 72 3a 20 27 2c 20 78 6d 61 78 20 3a 20 36 20 3a 20 32 29 3b 0d 0a 20 20 45 4e 44 2e 0d 0a ┆ er: ', xmax : 6 : 2); END. ┆
0x3d440…3d460 20 20 20 20 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ ┆
0x3d460…3d480 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 ┆ ┆
0x3d480…3d4a0 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 ┆ ┆
[…0xb…]
0x3d600…3d620 (49, 1, 2) 20 20 54 48 45 4e 20 57 52 49 54 45 28 27 4d 65 64 6c 65 6d 73 6e 75 6d 6d 65 72 65 74 20 65 72 ┆ THEN WRITE('Medlemsnummeret er┆
0x3d620…3d640 20 66 6f 72 20 73 74 6f 72 74 27 29 0d 0a 20 20 20 20 20 20 20 20 45 4c 53 45 0d 0a 20 20 20 20 ┆ for stort') ELSE ┆
0x3d640…3d660 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 53 45 45 4b 28 66 69 ┆ BEGIN SEEK(fi┆
0x3d660…3d680 6c 2c 20 6d 65 64 6c 65 6d 73 6e 72 20 2d 20 31 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆l, medlemsnr - 1); ┆
0x3d680…3d6a0 52 45 41 44 28 66 69 6c 2c 20 6d 65 64 6c 65 6d 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆READ(fil, medlem); ┆
0x3d6a0…3d6c0 57 49 54 48 20 6d 65 64 6c 65 6d 20 44 4f 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 ┆WITH medlem DO BE┆
0x3d6c0…3d6e0 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 6e 61 76 6e 20 3d 20 27 ┆GIN IF navn = '┆
0x3d6e0…3d700 27 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 20 57 52 49 54 45 4c ┆' THEN WRITEL┆
0x3d700…3d720 4e 28 27 44 65 72 20 65 72 20 69 6e 74 65 74 20 6d 65 64 6c 65 6d 20 6d 65 64 20 64 65 74 74 65 ┆N('Der er intet medlem med dette┆
0x3d720…3d740 20 6e 75 6d 6d 65 72 27 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 ┆ nummer') ELS┆
0x3d740…3d760 45 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 ┆E BEGIN ┆
0x3d760…3d780 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 27 53 6b 61 6c 20 ┆ WRITE('Skal ┆
0x3d780…3d7a0 27 2c 20 6e 61 76 6e 2c 20 27 20 73 6c 65 74 74 65 73 20 28 6a 2f 6e 29 3a 20 27 29 3b 0d 0a 20 ┆', navn, ' slettes (j/n): '); ┆
0x3d7a0…3d7c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 50 45 41 54 0d 0a 20 20 20 ┆ REPEAT ┆
0x3d7c0…3d7e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 41 44 28 4b 42 44 2c 20 63 ┆ READ(KBD, c┆
0x3d7e0…3d800 68 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 55 4e 54 49 4c ┆h); UNTIL┆
0x3d800…3d820 (49, 1, 3) 73 74 65 72 65 6e 64 65 20 66 69 6c 3a 20 27 29 3b 0d 0a 20 20 20 20 20 20 52 45 41 44 4c 4e 28 ┆sterende fil: '); READLN(┆
0x3d820…3d840 66 69 6c 6e 61 76 6e 29 3b 0d 0a 20 20 20 20 20 20 41 53 53 49 47 4e 28 66 69 6c 2c 20 66 69 6c ┆filnavn); ASSIGN(fil, fil┆
0x3d840…3d860 6e 61 76 6e 29 3b 0d 0a 20 20 20 20 20 20 52 45 53 45 54 28 66 69 6c 29 3b 0d 0a 20 20 20 20 20 ┆navn); RESET(fil); ┆
0x3d860…3d880 20 47 4f 54 4f 58 59 28 31 30 2c 20 37 29 3b 0d 0a 20 20 20 20 20 20 72 65 74 75 72 3b 0d 0a 20 ┆ GOTOXY(10, 7); retur; ┆
0x3d880…3d8a0 20 20 20 45 4e 44 3b 20 28 2a 20 68 76 69 6c 6b 65 6e 66 69 6c 20 2a 29 0d 0a 20 20 0d 0a 20 20 ┆ END; (* hvilkenfil *) ┆
0x3d8a0…3d8c0 50 52 4f 43 45 44 55 52 45 20 75 64 73 6b 72 69 76 3b 0d 0a 20 20 0d 0a 20 20 20 20 56 41 52 0d ┆PROCEDURE udskriv; VAR ┆
0x3d8c0…3d8e0 0a 20 20 20 20 20 20 69 20 3a 20 49 4e 54 45 47 45 52 3b 0d 0a 20 20 20 20 20 20 63 68 20 3a 20 ┆ i : INTEGER; ch : ┆
0x3d8e0…3d900 43 48 41 52 3b 0d 0a 20 20 20 20 20 20 75 64 66 69 6c 20 3a 20 54 45 58 54 3b 0d 0a 20 20 20 20 ┆CHAR; udfil : TEXT; ┆
0x3d900…3d920 20 20 75 64 6e 61 76 6e 20 3a 20 53 54 52 49 4e 47 28 2e 34 2e 29 3b 0d 0a 20 20 20 20 0d 0a 20 ┆ udnavn : STRING(.4.); ┆
0x3d920…3d940 20 20 20 42 45 47 49 4e 20 28 2a 20 75 64 73 6b 72 69 76 20 2a 29 0d 0a 20 20 20 20 20 20 57 52 ┆ BEGIN (* udskriv *) WR┆
0x3d940…3d960 49 54 45 28 43 4c 52 48 4f 4d 29 3b 0d 0a 20 20 20 20 20 20 57 52 49 54 45 28 27 5c 6e 73 6b 65 ┆ITE(CLRHOM); WRITE('Ønske┆
0x3d960…3d980 73 20 75 64 73 6b 72 69 66 74 20 70 7d 20 73 6b 7b 72 6d 20 65 6c 6c 65 72 20 70 72 69 6e 74 65 ┆s udskrift på skærm eller printe┆
0x3d980…3d9a0 72 20 28 73 2f 70 29 3a 20 27 29 3b 0d 0a 20 20 20 20 20 20 52 45 50 45 41 54 0d 0a 20 20 20 20 ┆r (s/p): '); REPEAT ┆
0x3d9a0…3d9c0 20 20 20 20 52 45 41 44 28 4b 42 44 2c 20 63 68 29 3b 0d 0a 20 20 20 20 20 20 55 4e 54 49 4c 20 ┆ READ(KBD, ch); UNTIL ┆
0x3d9c0…3d9e0 63 68 20 49 4e 20 28 2e 20 27 53 27 2c 20 27 73 27 2c 20 27 50 27 2c 20 27 70 27 2e 29 3b 0d 0a ┆ch IN (. 'S', 's', 'P', 'p'.); ┆
0x3d9e0…3da00 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 63 68 29 3b 0d 0a 20 20 20 20 20 20 49 46 20 63 68 20 ┆ WRITELN(ch); IF ch ┆
0x3da00…3da20 (49, 1, 4) e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0xf…]
0x3dc00…3dc20 (49, 1, 5) 20 63 68 20 49 4e 20 28 2e 20 27 4a 27 2c 20 27 6a 27 2c 20 27 4e 27 2c 20 27 6e 27 2e 29 3b 0d ┆ ch IN (. 'J', 'j', 'N', 'n'.); ┆
0x3dc20…3dc40 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 63 ┆ WRITELN(c┆
0x3dc40…3dc60 68 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 63 68 ┆h); IF ch┆
0x3dc60…3dc80 20 49 4e 20 28 2e 20 27 4a 27 2c 20 27 6a 27 2e 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IN (. 'J', 'j'.) ┆
0x3dc80…3dca0 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 20 6e 61 76 6e 20 3a 3d 20 27 27 3b 0d 0a 20 20 20 ┆ THEN navn := ''; ┆
0x3dca0…3dcc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 45 45 4b 28 66 69 6c 2c 20 6d 65 64 ┆ SEEK(fil, med┆
0x3dcc0…3dce0 6c 65 6d 73 6e 72 20 2d 20 31 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆lemsnr - 1); ┆
0x3dce0…3dd00 20 20 20 20 57 52 49 54 45 28 66 69 6c 2c 20 6d 65 64 6c 65 6d 29 3b 0d 0a 20 20 20 20 20 20 20 ┆ WRITE(fil, medlem); ┆
0x3dd00…3dd20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ END; ┆
0x3dd20…3dd40 20 45 4e 44 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 20 20 20 20 20 ┆ END; END; ┆
0x3dd40…3dd60 20 47 4f 54 4f 58 59 28 31 30 2c 20 39 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 72 65 74 75 72 ┆ GOTOXY(10, 9); retur┆
0x3dd60…3dd80 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 20 28 2a 20 73 6c 65 74 20 2a 29 0d 0a 20 20 ┆; END; (* slet *) ┆
0x3dd80…3dda0 0d 0a 20 20 50 52 4f 43 45 44 55 52 45 20 72 65 74 3b 0d 0a 20 20 0d 0a 20 20 20 20 56 41 52 0d ┆ PROCEDURE ret; VAR ┆
0x3dda0…3ddc0 0a 20 20 20 20 20 20 6d 65 64 6c 65 6d 73 6e 72 20 3a 20 49 4e 54 45 47 45 52 3b 0d 0a 20 20 20 ┆ medlemsnr : INTEGER; ┆
0x3ddc0…3dde0 20 20 20 63 68 20 3a 20 43 48 41 52 3b 0d 0a 20 20 20 20 20 20 0d 0a 20 20 20 20 42 45 47 49 4e ┆ ch : CHAR; BEGIN┆
0x3dde0…3de00 20 28 2a 20 72 65 74 20 2a 29 0d 0a 20 20 20 20 20 20 57 52 49 54 45 28 43 4c 52 48 4f 4d 29 3b ┆ (* ret *) WRITE(CLRHOM);┆
0x3de00…3de20 (49, 1, 6) 49 4e 20 28 2e 20 27 53 27 2c 20 27 73 27 2e 29 0d 0a 20 20 20 20 20 20 20 20 54 48 45 4e 20 75 ┆IN (. 'S', 's'.) THEN u┆
0x3de20…3de40 64 6e 61 76 6e 20 3a 3d 20 27 43 4f 4e 3a 27 0d 0a 20 20 20 20 20 20 20 20 45 4c 53 45 20 75 64 ┆dnavn := 'CON:' ELSE ud┆
0x3de40…3de60 6e 61 76 6e 20 3a 3d 20 27 4c 53 54 3a 27 3b 0d 0a 20 20 20 20 20 20 41 53 53 49 47 4e 28 75 64 ┆navn := 'LST:'; ASSIGN(ud┆
0x3de60…3de80 66 69 6c 2c 20 75 64 6e 61 76 6e 29 3b 0d 0a 20 20 20 20 20 20 52 45 53 45 54 28 66 69 6c 29 3b ┆fil, udnavn); RESET(fil);┆
0x3de80…3dea0 0d 0a 20 20 20 20 20 20 52 45 57 52 49 54 45 28 75 64 66 69 6c 29 3b 0d 0a 20 20 20 20 20 20 69 ┆ REWRITE(udfil); i┆
0x3dea0…3dec0 20 3a 3d 20 30 3b 0d 0a 20 20 20 20 20 20 57 48 49 4c 45 20 4e 4f 54 20 45 4f 46 28 66 69 6c 29 ┆ := 0; WHILE NOT EOF(fil)┆
0x3dec0…3dee0 20 44 4f 0d 0a 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 69 20 ┆ DO BEGIN i ┆
0x3dee0…3df00 3a 3d 20 69 20 2b 20 31 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 52 45 41 44 28 66 69 6c 2c 20 6d ┆:= i + 1; READ(fil, m┆
0x3df00…3df20 65 64 6c 65 6d 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 57 49 54 48 20 6d 65 64 6c 65 6d 20 44 ┆edlem); WITH medlem D┆
0x3df20…3df40 4f 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆O BEGIN ┆
0x3df40…3df60 20 20 20 20 49 46 20 6e 61 76 6e 20 3c 3e 20 27 27 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF navn <> '' ┆
0x3df60…3df80 20 20 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e ┆ THEN BEGIN┆
0x3df80…3dfa0 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 27 4d ┆ WRITELN('M┆
0x3dfa0…3dfc0 65 64 6c 65 6d 20 6e 72 2e 20 27 2c 20 69 2c 20 27 3a 20 27 29 3b 0d 0a 20 20 20 20 20 20 20 20 ┆edlem nr. ', i, ': '); ┆
0x3dfc0…3dfe0 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 6e 61 76 6e 29 3b 0d 0a 20 20 20 20 ┆ WRITELN(navn); ┆
0x3dfe0…3e000 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 61 64 72 65 73 73 65 29 ┆ WRITELN(adresse)┆
0x3e000…3e020 (49, 1, 7) 50 52 4f 47 52 41 4d 20 6d 65 6e 75 66 69 6c 3b 0d 0a 0d 0a 20 20 54 59 50 45 0d 0a 20 20 20 20 ┆PROGRAM menufil; TYPE ┆
0x3e020…3e040 73 74 72 33 30 20 3d 20 53 54 52 49 4e 47 28 2e 33 30 2e 29 3b 0d 0a 20 20 20 20 6d 65 64 6c 65 ┆str30 = STRING(.30.); medle┆
0x3e040…3e060 6d 73 70 6f 73 74 20 3d 20 52 45 43 4f 52 44 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆mspost = RECORD ┆
0x3e060…3e080 20 20 20 20 20 6e 61 76 6e 2c 20 61 64 72 65 73 73 65 2c 20 62 79 2c 20 69 6e 66 6f 20 3a 20 73 ┆ navn, adresse, by, info : s┆
0x3e080…3e0a0 74 72 33 30 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 ┆tr30; END; ┆
0x3e0a0…3e0c0 20 0d 0a 20 20 56 41 52 0d 0a 20 20 20 20 66 69 6c 20 3a 20 46 49 4c 45 20 4f 46 20 6d 65 64 6c ┆ VAR fil : FILE OF medl┆
0x3e0c0…3e0e0 65 6d 73 70 6f 73 74 3b 0d 0a 20 20 20 20 6d 65 64 6c 65 6d 20 3a 20 6d 65 64 6c 65 6d 73 70 6f ┆emspost; medlem : medlemspo┆
0x3e0e0…3e100 73 74 3b 0d 0a 20 20 20 20 63 68 20 3a 20 43 48 41 52 3b 0d 0a 20 20 0d 0a 20 20 50 52 4f 43 45 ┆st; ch : CHAR; PROCE┆
0x3e100…3e120 44 55 52 45 20 72 65 74 75 72 3b 0d 0a 20 20 20 20 0d 0a 20 20 20 20 56 41 52 0d 0a 20 20 20 20 ┆DURE retur; VAR ┆
0x3e120…3e140 20 20 63 68 20 3a 20 43 48 41 52 3b 0d 0a 20 20 20 20 0d 0a 20 20 20 20 42 45 47 49 4e 20 28 2a ┆ ch : CHAR; BEGIN (*┆
0x3e140…3e160 20 72 65 74 75 72 20 2a 29 0d 0a 20 20 20 20 20 20 57 52 49 54 45 28 27 54 61 73 74 20 3c 52 45 ┆ retur *) WRITE('Tast <RE┆
0x3e160…3e180 54 55 52 4e 3e 3a 20 27 29 3b 0d 0a 20 20 20 20 20 20 52 45 50 45 41 54 0d 0a 20 20 20 20 20 20 ┆TURN>: '); REPEAT ┆
0x3e180…3e1a0 20 20 52 45 41 44 28 4b 42 44 2c 20 63 68 29 3b 0d 0a 20 20 20 20 20 20 55 4e 54 49 4c 20 63 68 ┆ READ(KBD, ch); UNTIL ch┆
0x3e1a0…3e1c0 20 3d 20 43 48 52 28 31 33 29 3b 0d 0a 20 20 20 20 45 4e 44 3b 20 28 2a 20 72 65 74 75 72 20 2a ┆ = CHR(13); END; (* retur *┆
0x3e1c0…3e1e0 29 0d 0a 20 20 0d 0a 20 20 50 52 4f 43 45 44 55 52 45 20 6f 70 72 65 74 3b 0d 0a 20 20 20 20 0d ┆) PROCEDURE opret; ┆
0x3e1e0…3e200 0a 20 20 20 20 56 41 52 0d 0a 20 20 20 20 20 20 66 69 6c 6e 61 76 6e 20 3a 20 53 54 52 49 4e 47 ┆ VAR filnavn : STRING┆
0x3e200…3e220 (49, 1, 8) 0d 0a 20 20 20 20 20 20 47 4f 54 4f 58 59 28 31 30 2c 20 30 29 3b 20 57 52 49 54 45 28 27 54 61 ┆ GOTOXY(10, 0); WRITE('Ta┆
0x3e220…3e240 73 74 20 6d 65 64 6c 65 6d 73 6e 75 6d 6d 65 72 3a 20 27 29 3b 20 52 45 41 44 4c 4e 28 6d 65 64 ┆st medlemsnummer: '); READLN(med┆
0x3e240…3e260 6c 65 6d 73 6e 72 29 3b 0d 0a 20 20 20 20 20 20 53 45 45 4b 28 66 69 6c 2c 20 6d 65 64 6c 65 6d ┆lemsnr); SEEK(fil, medlem┆
0x3e260…3e280 73 6e 72 20 2d 20 31 29 3b 0d 0a 20 20 20 20 20 20 52 45 41 44 28 66 69 6c 2c 20 6d 65 64 6c 65 ┆snr - 1); READ(fil, medle┆
0x3e280…3e2a0 6d 29 3b 0d 0a 20 20 20 20 20 20 53 45 45 4b 28 66 69 6c 2c 20 6d 65 64 6c 65 6d 73 6e 72 20 2d ┆m); SEEK(fil, medlemsnr -┆
0x3e2a0…3e2c0 20 31 29 3b 0d 0a 20 20 20 20 20 20 57 49 54 48 20 6d 65 64 6c 65 6d 20 44 4f 0d 0a 20 20 20 20 ┆ 1); WITH medlem DO ┆
0x3e2c0…3e2e0 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 31 30 2c 20 ┆ BEGIN GOTOXY(10, ┆
0x3e2e0…3e300 32 29 3b 20 57 52 49 54 45 28 27 4e 61 76 6e 3a 20 27 2c 20 6e 61 76 6e 29 3b 0d 0a 20 20 20 20 ┆2); WRITE('Navn: ', navn); ┆
0x3e300…3e320 20 20 20 20 20 20 47 4f 54 4f 58 59 28 31 30 2c 20 33 29 3b 20 57 52 49 54 45 28 27 41 64 72 65 ┆ GOTOXY(10, 3); WRITE('Adre┆
0x3e320…3e340 73 73 65 3a 20 27 2c 20 61 64 72 65 73 73 65 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 47 4f 54 ┆sse: ', adresse); GOT┆
0x3e340…3e360 4f 58 59 28 31 30 2c 20 34 29 3b 20 57 52 49 54 45 28 27 42 79 3a 20 27 2c 20 62 79 29 3b 0d 0a ┆OXY(10, 4); WRITE('By: ', by); ┆
0x3e360…3e380 20 20 20 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 31 30 2c 20 35 29 3b 20 57 52 49 54 45 28 27 ┆ GOTOXY(10, 5); WRITE('┆
0x3e380…3e3a0 49 6e 66 6f 3a 20 27 2c 20 69 6e 66 6f 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 47 4f 54 4f 58 ┆Info: ', info); GOTOX┆
0x3e3a0…3e3c0 59 28 31 30 2c 20 37 29 3b 20 57 52 49 54 45 28 27 48 76 61 64 20 73 6b 61 6c 20 72 65 74 74 65 ┆Y(10, 7); WRITE('Hvad skal rette┆
0x3e3c0…3e3e0 73 3a 27 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 31 30 2c 20 38 29 3b 20 ┆s:'); GOTOXY(10, 8); ┆
0x3e3e0…3e400 57 52 49 54 45 28 27 4e 20 4e 61 76 6e 27 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 47 4f 54 4f ┆WRITE('N Navn'); GOTO┆
0x3e400…3e420 (49, 1, 9) 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 62 ┆; WRITELN(b┆
0x3e420…3e440 79 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e ┆y); WRITELN┆
0x3e440…3e460 28 69 6e 66 6f 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 ┆(info); WRI┆
0x3e460…3e480 54 45 4c 4e 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 ┆TELN; END; ┆
0x3e480…3e4a0 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 ┆ END; END; ┆
0x3e4a0…3e4c0 20 20 20 20 20 57 52 49 54 45 4c 4e 3b 0d 0a 20 20 20 20 20 20 72 65 74 75 72 3b 0d 0a 20 20 20 ┆ WRITELN; retur; ┆
0x3e4c0…3e4e0 20 45 4e 44 3b 20 28 2a 20 75 64 73 6b 72 69 76 20 2a 29 0d 0a 20 20 0d 0a 20 20 50 52 4f 43 45 ┆ END; (* udskriv *) PROCE┆
0x3e4e0…3e500 44 55 52 45 20 73 6c 65 74 3b 0d 0a 20 20 0d 0a 20 20 20 20 56 41 52 0d 0a 20 20 20 20 20 20 6d ┆DURE slet; VAR m┆
0x3e500…3e520 65 64 6c 65 6d 73 6e 72 20 3a 20 49 4e 54 45 47 45 52 3b 0d 0a 20 20 20 20 20 20 63 68 20 3a 20 ┆edlemsnr : INTEGER; ch : ┆
0x3e520…3e540 43 48 41 52 3b 0d 0a 20 20 20 20 0d 0a 20 20 20 20 42 45 47 49 4e 20 28 2a 20 73 6c 65 74 20 2a ┆CHAR; BEGIN (* slet *┆
0x3e540…3e560 29 0d 0a 20 20 20 20 20 20 57 52 49 54 45 28 43 4c 52 48 4f 4d 29 3b 0d 0a 20 20 20 20 20 20 47 ┆) WRITE(CLRHOM); G┆
0x3e560…3e580 4f 54 4f 58 59 28 31 30 2c 20 35 29 3b 0d 0a 20 20 20 20 20 20 57 52 49 54 45 28 27 48 76 65 6d ┆OTOXY(10, 5); WRITE('Hvem┆
0x3e580…3e5a0 20 73 6b 61 6c 20 73 6c 65 74 74 65 73 3f 20 54 61 73 74 20 6d 65 64 6c 65 6d 73 6e 75 6d 6d 65 ┆ skal slettes? Tast medlemsnumme┆
0x3e5a0…3e5c0 72 3a 20 27 29 3b 0d 0a 20 20 20 20 20 20 52 45 41 44 4c 4e 28 6d 65 64 6c 65 6d 73 6e 72 29 3b ┆r: '); READLN(medlemsnr);┆
0x3e5c0…3e5e0 0d 0a 20 20 20 20 20 20 47 4f 54 4f 58 59 28 31 30 2c 20 37 29 3b 0d 0a 20 20 20 20 20 20 49 46 ┆ GOTOXY(10, 7); IF┆
0x3e5e0…3e600 20 6d 65 64 6c 65 6d 73 6e 72 20 3e 20 4c 45 4e 47 54 48 28 66 69 6c 29 0d 0a 20 20 20 20 20 20 ┆ medlemsnr > LENGTH(fil) ┆
0x3e600…3e620 (49, 1, 10) 28 2e 31 34 2e 29 3b 0d 0a 20 20 20 20 20 20 0d 0a 20 20 20 20 42 45 47 49 4e 20 28 2a 20 6f 70 ┆(.14.); BEGIN (* op┆
0x3e620…3e640 72 65 74 20 2a 29 0d 0a 20 20 20 20 20 20 57 52 49 54 45 28 43 4c 52 48 4f 4d 29 3b 0d 0a 20 20 ┆ret *) WRITE(CLRHOM); ┆
0x3e640…3e660 20 20 20 20 47 4f 54 4f 58 59 28 31 30 2c 20 35 29 3b 0d 0a 20 20 20 20 20 20 57 52 49 54 45 28 ┆ GOTOXY(10, 5); WRITE(┆
0x3e660…3e680 27 48 76 61 64 20 73 6b 61 6c 20 6b 61 72 74 6f 74 65 6b 65 74 20 68 65 64 64 65 3a 20 27 29 3b ┆'Hvad skal kartoteket hedde: ');┆
0x3e680…3e6a0 0d 0a 20 20 20 20 20 20 52 45 41 44 4c 4e 28 66 69 6c 6e 61 76 6e 29 3b 0d 0a 20 20 20 20 20 20 ┆ READLN(filnavn); ┆
0x3e6a0…3e6c0 41 53 53 49 47 4e 28 66 69 6c 2c 20 66 69 6c 6e 61 76 6e 29 3b 0d 0a 20 20 20 20 20 20 52 45 57 ┆ASSIGN(fil, filnavn); REW┆
0x3e6c0…3e6e0 52 49 54 45 28 66 69 6c 29 3b 0d 0a 20 20 20 20 20 20 47 4f 54 4f 58 59 28 31 30 2c 20 37 29 3b ┆RITE(fil); GOTOXY(10, 7);┆
0x3e6e0…3e700 0d 0a 20 20 20 20 20 20 57 52 49 54 45 28 66 69 6c 6e 61 76 6e 2c 20 27 20 65 72 20 6e 75 20 6f ┆ WRITE(filnavn, ' er nu o┆
0x3e700…3e720 70 72 65 74 74 65 74 27 29 3b 0d 0a 20 20 20 20 20 20 47 4f 54 4f 58 59 28 31 30 2c 20 39 29 3b ┆prettet'); GOTOXY(10, 9);┆
0x3e720…3e740 0d 0a 20 20 20 20 20 20 72 65 74 75 72 3b 0d 0a 20 20 20 20 45 4e 44 3b 20 28 2a 20 6f 70 72 65 ┆ retur; END; (* opre┆
0x3e740…3e760 74 20 2a 29 0d 0a 20 20 0d 0a 20 20 50 52 4f 43 45 44 55 52 45 20 68 76 69 6c 6b 65 6e 66 69 6c ┆t *) PROCEDURE hvilkenfil┆
0x3e760…3e780 3b 0d 0a 20 20 20 20 0d 0a 20 20 20 20 56 41 52 0d 0a 20 20 20 20 20 20 66 69 6c 6e 61 76 6e 20 ┆; VAR filnavn ┆
0x3e780…3e7a0 3a 20 53 54 52 49 4e 47 28 2e 31 34 2e 29 3b 0d 0a 20 20 20 20 0d 0a 20 20 20 20 42 45 47 49 4e ┆: STRING(.14.); BEGIN┆
0x3e7a0…3e7c0 20 28 2a 20 68 76 69 6c 6b 65 6e 66 69 6c 20 2a 29 0d 0a 20 20 20 20 20 20 57 52 49 54 45 28 43 ┆ (* hvilkenfil *) WRITE(C┆
0x3e7c0…3e7e0 4c 52 48 4f 4d 29 3b 0d 0a 20 20 20 20 20 20 47 4f 54 4f 58 59 28 31 30 2c 20 35 29 3b 0d 0a 20 ┆LRHOM); GOTOXY(10, 5); ┆
0x3e7e0…3e800 20 20 20 20 20 57 52 49 54 45 28 27 48 76 61 64 20 68 65 64 64 65 72 20 64 65 6e 20 65 6b 73 69 ┆ WRITE('Hvad hedder den eksi┆
0x3e800…3e820 (50, 0, 1) 58 59 28 31 30 2c 20 39 29 3b 20 57 52 49 54 45 28 27 41 20 41 64 72 65 73 73 65 27 29 3b 0d 0a ┆XY(10, 9); WRITE('A Adresse'); ┆
0x3e820…3e840 20 20 20 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 31 30 2c 20 31 30 29 3b 20 57 52 49 54 45 28 ┆ GOTOXY(10, 10); WRITE(┆
0x3e840…3e860 27 42 20 42 79 27 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 31 30 2c 20 31 ┆'B By'); GOTOXY(10, 1┆
0x3e860…3e880 31 29 3b 20 57 52 49 54 45 28 27 49 20 49 6e 66 6f 27 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆1); WRITE('I Info'); ┆
0x3e880…3e8a0 47 4f 54 4f 58 59 28 31 30 2c 20 31 32 29 3b 20 57 52 49 54 45 28 27 46 20 46 5b 52 44 49 47 27 ┆GOTOXY(10, 12); WRITE('F FÆRDIG'┆
0x3e8a0…3e8c0 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 52 45 50 45 41 54 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆); REPEAT ┆
0x3e8c0…3e8e0 20 20 47 4f 54 4f 58 59 28 30 2c 20 31 34 29 3b 20 57 52 49 54 45 28 43 4c 52 45 4f 53 29 3b 0d ┆ GOTOXY(0, 14); WRITE(CLREOS); ┆
0x3e8e0…3e900 0a 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 31 30 2c 20 31 34 29 3b 20 57 52 49 ┆ GOTOXY(10, 14); WRI┆
0x3e900…3e920 54 45 28 27 54 61 73 74 20 6b 6f 6d 6d 61 6e 64 6f 20 28 4e 2f 41 2f 42 2f 49 2f 46 29 3a 20 27 ┆TE('Tast kommando (N/A/B/I/F): '┆
0x3e920…3e940 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 52 45 50 45 41 54 0d 0a 20 20 20 20 20 20 20 20 ┆); REPEAT ┆
0x3e940…3e960 20 20 20 20 20 20 52 45 41 44 28 4b 42 44 2c 20 63 68 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆ READ(KBD, ch); ┆
0x3e960…3e980 20 20 55 4e 54 49 4c 20 63 68 20 49 4e 20 28 2e 20 27 4e 27 2c 20 27 6e 27 2c 20 27 41 27 2c 20 ┆ UNTIL ch IN (. 'N', 'n', 'A', ┆
0x3e980…3e9a0 27 61 27 2c 20 27 42 27 2c 20 27 62 27 2c 20 27 49 27 2c 20 27 69 27 2c 20 27 46 27 2c 20 27 66 ┆'a', 'B', 'b', 'I', 'i', 'F', 'f┆
0x3e9a0…3e9c0 27 2e 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 63 68 29 3b 0d 0a 20 20 ┆'.); WRITE(ch); ┆
0x3e9c0…3e9e0 20 20 20 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 31 30 2c 20 31 36 29 3b 20 57 52 49 54 45 28 ┆ GOTOXY(10, 16); WRITE(┆
0x3e9e0…3ea00 27 54 61 73 74 20 7b 6e 64 72 69 6e 67 3a 20 27 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆'Tast ændring: '); ┆
0x3ea00…3ea20 (50, 0, 2) e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0xf…]
0x3ec00…3ec20 (50, 0, 3) 4c 52 48 4f 4d 29 3b 0d 0a 20 20 20 20 47 4f 54 4f 58 59 28 31 30 2c 20 35 29 3b 20 57 52 49 54 ┆LRHOM); GOTOXY(10, 5); WRIT┆
0x3ec20…3ec40 45 28 27 4d 20 45 20 44 20 4c 20 45 20 4d 20 53 20 4b 20 41 20 52 20 54 20 4f 20 54 20 45 20 4b ┆E('M E D L E M S K A R T O T E K┆
0x3ec40…3ec60 27 29 3b 0d 0a 20 20 20 20 47 4f 54 4f 58 59 28 31 30 2c 20 37 29 3b 20 57 52 49 54 45 28 27 53 ┆'); GOTOXY(10, 7); WRITE('S┆
0x3ec60…3ec80 6b 61 6c 20 64 75 20 61 72 62 65 6a 64 65 20 6d 65 64 20 65 74 20 6e 79 74 20 65 6c 6c 65 72 20 ┆kal du arbejde med et nyt eller ┆
0x3ec80…3eca0 65 74 20 61 6c 6c 65 72 65 64 65 27 29 3b 0d 0a 20 20 20 20 47 4f 54 4f 58 59 28 31 30 2c 20 38 ┆et allerede'); GOTOXY(10, 8┆
0x3eca0…3ecc0 29 3b 20 57 52 49 54 45 28 27 65 6b 73 69 73 74 65 72 65 6e 64 65 20 6b 61 72 74 6f 74 65 6b 20 ┆); WRITE('eksisterende kartotek ┆
0x3ecc0…3ece0 28 4e 2f 45 29 3a 20 27 29 3b 0d 0a 20 20 20 20 52 45 50 45 41 54 0d 0a 20 20 20 20 20 20 52 45 ┆(N/E): '); REPEAT RE┆
0x3ece0…3ed00 41 44 28 4b 42 44 2c 20 63 68 29 3b 0d 0a 20 20 20 20 55 4e 54 49 4c 20 63 68 20 49 4e 20 28 2e ┆AD(KBD, ch); UNTIL ch IN (.┆
0x3ed00…3ed20 20 27 4e 27 2c 20 27 6e 27 2c 20 27 45 27 2c 20 27 65 27 2e 29 3b 0d 0a 20 20 20 20 49 46 20 63 ┆ 'N', 'n', 'E', 'e'.); IF c┆
0x3ed20…3ed40 68 20 49 4e 20 28 2e 20 27 4e 27 2c 20 27 6e 27 2e 29 0d 0a 20 20 20 20 20 20 54 48 45 4e 20 6f ┆h IN (. 'N', 'n'.) THEN o┆
0x3ed40…3ed60 70 72 65 74 0d 0a 20 20 20 20 20 20 45 4c 53 45 20 68 76 69 6c 6b 65 6e 66 69 6c 3b 0d 0a 20 20 ┆pret ELSE hvilkenfil; ┆
0x3ed60…3ed80 20 20 52 45 50 45 41 54 0d 0a 20 20 20 20 20 20 57 52 49 54 45 28 43 4c 52 48 4f 4d 29 3b 0d 0a ┆ REPEAT WRITE(CLRHOM); ┆
0x3ed80…3eda0 20 20 20 20 20 20 47 4f 54 4f 58 59 28 31 30 2c 20 37 29 3b 20 57 52 49 54 45 28 27 4d 20 45 20 ┆ GOTOXY(10, 7); WRITE('M E ┆
0x3eda0…3edc0 44 20 4c 20 45 20 4d 20 53 20 4b 20 41 20 52 20 54 20 4f 20 54 20 45 20 4b 27 29 3b 0d 0a 20 20 ┆D L E M S K A R T O T E K'); ┆
0x3edc0…3ede0 20 20 20 20 47 4f 54 4f 58 59 28 31 30 2c 20 39 29 3b 20 57 52 49 54 45 28 27 55 64 73 6b 72 69 ┆ GOTOXY(10, 9); WRITE('Udskri┆
0x3ede0…3ee00 76 65 20 6b 61 72 74 6f 74 65 6b 65 74 27 29 3b 0d 0a 20 20 20 20 20 20 47 4f 54 4f 58 59 28 31 ┆ve kartoteket'); GOTOXY(1┆
0x3ee00…3ee20 (50, 0, 4) 43 41 53 45 20 63 68 20 4f 46 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 4e 27 2c 20 27 ┆CASE ch OF 'N', '┆
0x3ee20…3ee40 6e 27 20 3a 20 52 45 41 44 28 6e 61 76 6e 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆n' : READ(navn); ┆
0x3ee40…3ee60 27 41 27 2c 20 27 61 27 20 3a 20 52 45 41 44 28 61 64 72 65 73 73 65 29 3b 0d 0a 20 20 20 20 20 ┆'A', 'a' : READ(adresse); ┆
0x3ee60…3ee80 20 20 20 20 20 20 20 20 20 27 42 27 2c 20 27 62 27 20 3a 20 52 45 41 44 28 62 79 29 3b 0d 0a 20 ┆ 'B', 'b' : READ(by); ┆
0x3ee80…3eea0 20 20 20 20 20 20 20 20 20 20 20 20 20 27 49 27 2c 20 27 69 27 20 3a 20 52 45 41 44 28 69 6e 66 ┆ 'I', 'i' : READ(inf┆
0x3eea0…3eec0 6f 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 20 20 20 20 20 ┆o); END; ┆
0x3eec0…3eee0 20 20 20 49 46 20 4e 4f 54 20 28 63 68 20 49 4e 20 28 2e 27 46 27 2c 20 27 66 27 2e 29 29 0d 0a ┆ IF NOT (ch IN (.'F', 'f'.)) ┆
0x3eee0…3ef00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ THEN ┆
0x3ef00…3ef20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 54 ┆ BEGIN GOT┆
0x3ef20…3ef40 4f 58 59 28 31 30 2c 20 31 38 29 3b 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆OXY(10, 18); ┆
0x3ef40…3ef60 20 72 65 74 75 72 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 ┆ retur; END; ┆
0x3ef60…3ef80 20 20 20 20 20 20 20 20 20 55 4e 54 49 4c 20 63 68 20 49 4e 20 28 2e 27 46 27 2c 20 27 66 27 2e ┆ UNTIL ch IN (.'F', 'f'.┆
0x3ef80…3efa0 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 66 69 6c 2c 20 6d 65 64 6c 65 6d 29 ┆); WRITE(fil, medlem)┆
0x3efa0…3efc0 3b 0d 0a 20 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 45 4e 44 3b 20 28 2a 20 72 65 74 ┆; END; END; (* ret┆
0x3efc0…3efe0 20 2a 29 0d 0a 0d 0a 20 20 50 52 4f 43 45 44 55 52 45 20 74 69 6c 66 6f 65 6a 3b 0d 0a 20 20 0d ┆ *) PROCEDURE tilfoej; ┆
0x3efe0…3f000 0a 20 20 20 20 56 41 52 0d 0a 20 20 20 20 20 20 66 69 6c 70 6f 69 6e 74 65 72 20 3a 20 49 4e 54 ┆ VAR filpointer : INT┆
0x3f000…3f020 (50, 0, 5) 50 52 4f 47 52 41 4d 20 6d 6f 72 73 65 31 3b 0d 0a 0d 0a 20 20 54 59 50 45 0d 0a 20 20 20 20 73 ┆PROGRAM morse1; TYPE s┆
0x3f020…3f040 74 72 31 32 37 20 3d 20 53 54 52 49 4e 47 28 2e 31 32 37 2e 29 3b 0d 0a 20 20 20 20 73 74 72 35 ┆tr127 = STRING(.127.); str5┆
0x3f040…3f060 20 3d 20 53 54 52 49 4e 47 28 2e 35 2e 29 3b 0d 0a 20 20 0d 0a 20 20 56 41 52 0d 0a 20 20 20 20 ┆ = STRING(.5.); VAR ┆
0x3f060…3f080 74 65 6b 73 74 20 3a 20 73 74 72 31 32 37 3b 0d 0a 20 20 20 20 6d 6f 72 73 65 20 3a 20 73 74 72 ┆tekst : str127; morse : str┆
0x3f080…3f0a0 35 3b 0d 0a 20 20 20 20 63 68 20 3a 20 43 48 41 52 3b 0d 0a 20 20 20 20 69 2c 20 70 6f 73 69 74 ┆5; ch : CHAR; i, posit┆
0x3f0a0…3f0c0 69 6f 6e 20 3a 20 49 4e 54 45 47 45 52 3b 0d 0a 20 20 0d 0a 20 20 42 45 47 49 4e 0d 0a 20 20 20 ┆ion : INTEGER; BEGIN ┆
0x3f0c0…3f0e0 20 57 52 49 54 45 28 43 4c 52 48 4f 4d 29 3b 0d 0a 20 20 20 20 57 52 49 54 45 4c 4e 28 27 49 6e ┆ WRITE(CLRHOM); WRITELN('In┆
0x3f0e0…3f100 64 74 61 73 74 20 74 65 6b 73 74 65 6e 20 28 6b 75 6e 20 73 6d 7d 20 62 6f 67 73 74 61 76 65 72 ┆dtast teksten (kun små bogstaver┆
0x3f100…3f120 20 6f 67 20 6d 65 6c 6c 65 6d 72 75 6d 29 3a 27 29 3b 0d 0a 20 20 20 20 52 45 41 44 4c 4e 28 74 ┆ og mellemrum):'); READLN(t┆
0x3f120…3f140 65 6b 73 74 29 3b 0d 0a 20 20 20 20 57 52 49 54 45 4c 4e 3b 0d 0a 20 20 20 20 57 52 49 54 45 4c ┆ekst); WRITELN; WRITEL┆
0x3f140…3f160 4e 28 27 4d 6f 72 73 65 74 65 6b 73 74 65 6e 20 28 75 6c 6f 76 6c 69 67 65 20 74 65 67 6e 20 73 ┆N('Morseteksten (ulovlige tegn s┆
0x3f160…3f180 6b 72 69 76 65 73 20 73 6f 6d 20 27 27 2a 27 27 29 3a 27 29 3b 0d 0a 20 20 20 20 70 6f 73 69 74 ┆krives som ''*''):'); posit┆
0x3f180…3f1a0 69 6f 6e 20 3a 3d 20 30 3b 0d 0a 20 20 20 20 46 4f 52 20 69 20 3a 3d 20 31 20 54 4f 20 4c 45 4e ┆ion := 0; FOR i := 1 TO LEN┆
0x3f1a0…3f1c0 28 74 65 6b 73 74 29 20 44 4f 0d 0a 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 ┆(tekst) DO BEGIN ┆
0x3f1c0…3f1e0 20 63 68 20 3a 3d 20 74 65 6b 73 74 28 2e 69 2e 29 3b 0d 0a 20 20 20 20 20 20 20 20 43 41 53 45 ┆ ch := tekst(.i.); CASE┆
0x3f1e0…3f200 20 63 68 20 4f 46 0d 0a 20 20 20 20 20 20 20 20 20 20 27 20 27 20 3a 20 6d 6f 72 73 65 20 3a 3d ┆ ch OF ' ' : morse :=┆
0x3f200…3f220 (50, 0, 6) 30 2c 20 31 31 29 3b 20 57 52 49 54 45 28 27 53 6c 65 74 74 65 20 6d 65 64 6c 65 6d 27 29 3b 0d ┆0, 11); WRITE('Slette medlem'); ┆
0x3f220…3f240 0a 20 20 20 20 20 20 47 4f 54 4f 58 59 28 31 30 2c 20 31 33 29 3b 20 57 52 49 54 45 28 27 52 65 ┆ GOTOXY(10, 13); WRITE('Re┆
0x3f240…3f260 74 74 65 20 69 20 6d 65 64 6c 65 6d 73 70 6f 73 74 27 29 3b 0d 0a 20 20 20 20 20 20 47 4f 54 4f ┆tte i medlemspost'); GOTO┆
0x3f260…3f280 58 59 28 31 30 2c 20 31 35 29 3b 20 57 52 49 54 45 28 27 49 6e 64 73 7b 74 74 65 20 6e 79 74 20 ┆XY(10, 15); WRITE('Indsætte nyt ┆
0x3f280…3f2a0 6d 65 64 6c 65 6d 20 69 20 6b 61 72 74 6f 74 65 6b 27 29 3b 0d 0a 20 20 20 20 20 20 47 4f 54 4f ┆medlem i kartotek'); GOTO┆
0x3f2a0…3f2c0 58 59 28 31 30 2c 20 31 37 29 3b 20 57 52 49 54 45 28 27 41 46 53 4c 55 54 54 45 20 70 72 6f 67 ┆XY(10, 17); WRITE('AFSLUTTE prog┆
0x3f2c0…3f2e0 72 61 6d 6b 7c 72 73 6c 65 6e 27 29 3b 0d 0a 20 20 20 20 20 20 47 4f 54 4f 58 59 28 31 30 2c 20 ┆ramkørslen'); GOTOXY(10, ┆
0x3f2e0…3f300 31 39 29 3b 20 57 52 49 54 45 28 27 54 61 73 74 20 6b 6f 6d 6d 61 6e 64 6f 3a 20 28 55 2f 53 2f ┆19); WRITE('Tast kommando: (U/S/┆
0x3f300…3f320 52 2f 49 2f 41 29 3a 20 27 29 3b 0d 0a 20 20 20 20 20 20 52 45 50 45 41 54 0d 0a 20 20 20 20 20 ┆R/I/A): '); REPEAT ┆
0x3f320…3f340 20 20 20 52 45 41 44 28 4b 42 44 2c 20 63 68 29 3b 0d 0a 20 20 20 20 20 20 55 4e 54 49 4c 20 63 ┆ READ(KBD, ch); UNTIL c┆
0x3f340…3f360 68 20 49 4e 20 28 2e 20 27 55 27 2c 20 27 75 27 2c 20 27 53 27 2c 20 27 73 27 2c 20 27 52 27 2c ┆h IN (. 'U', 'u', 'S', 's', 'R',┆
0x3f360…3f380 20 27 72 27 2c 20 27 49 27 2c 20 27 69 27 2c 20 27 41 27 2c 20 27 61 27 2e 29 3b 0d 0a 20 20 20 ┆ 'r', 'I', 'i', 'A', 'a'.); ┆
0x3f380…3f3a0 20 20 20 57 52 49 54 45 4c 4e 28 63 68 29 3b 0d 0a 20 20 20 20 20 20 43 41 53 45 20 63 68 20 4f ┆ WRITELN(ch); CASE ch O┆
0x3f3a0…3f3c0 46 0d 0a 20 20 20 20 20 20 20 20 27 55 27 2c 20 27 75 27 20 3a 20 75 64 73 6b 72 69 76 3b 0d 0a ┆F 'U', 'u' : udskriv; ┆
0x3f3c0…3f3e0 20 20 20 20 20 20 20 20 27 53 27 2c 20 27 73 27 20 3a 20 73 6c 65 74 3b 0d 0a 20 20 20 20 20 20 ┆ 'S', 's' : slet; ┆
0x3f3e0…3f400 20 20 27 52 27 2c 20 27 72 27 20 3a 20 72 65 74 3b 0d 0a 20 20 20 20 20 20 20 20 27 49 27 2c 20 ┆ 'R', 'r' : ret; 'I', ┆
0x3f400…3f420 (50, 0, 7) 45 47 45 52 3b 0d 0a 20 20 20 20 20 20 6e 79 74 6d 65 64 6c 65 6d 20 3a 20 6d 65 64 6c 65 6d 73 ┆EGER; nytmedlem : medlems┆
0x3f420…3f440 70 6f 73 74 3b 0d 0a 20 20 20 20 20 20 0d 0a 20 20 20 20 42 45 47 49 4e 20 28 2a 20 74 69 6c 66 ┆post; BEGIN (* tilf┆
0x3f440…3f460 6f 65 6a 20 2a 29 0d 0a 20 20 20 20 20 20 57 52 49 54 45 28 43 4c 52 48 4f 4d 29 3b 0d 0a 20 20 ┆oej *) WRITE(CLRHOM); ┆
0x3f460…3f480 20 20 20 20 52 45 53 45 54 28 66 69 6c 29 3b 0d 0a 20 20 20 20 20 20 66 69 6c 70 6f 69 6e 74 65 ┆ RESET(fil); filpointe┆
0x3f480…3f4a0 72 20 3a 3d 20 30 3b 0d 0a 20 20 20 20 20 20 49 46 20 4c 45 4e 47 54 48 28 66 69 6c 29 20 3e 20 ┆r := 0; IF LENGTH(fil) > ┆
0x3f4a0…3f4c0 30 0d 0a 20 20 20 20 20 20 20 20 54 48 45 4e 20 0d 0a 20 20 20 20 20 20 20 20 20 20 42 45 47 49 ┆0 THEN BEGI┆
0x3f4c0…3f4e0 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 52 45 41 44 28 66 69 6c 2c 20 6d 65 64 6c 65 6d 29 3b 0d ┆N READ(fil, medlem); ┆
0x3f4e0…3f500 0a 20 20 20 20 20 20 20 20 20 20 66 69 6c 70 6f 69 6e 74 65 72 20 3a 3d 20 31 3b 0d 0a 20 20 20 ┆ filpointer := 1; ┆
0x3f500…3f520 20 20 20 20 20 20 20 57 48 49 4c 45 20 28 6d 65 64 6c 65 6d 2e 6e 61 76 6e 20 3c 3e 20 27 27 29 ┆ WHILE (medlem.navn <> '')┆
0x3f520…3f540 20 41 4e 44 20 4e 4f 54 20 45 4f 46 28 66 69 6c 29 20 44 4f 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆ AND NOT EOF(fil) DO ┆
0x3f540…3f560 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 41 44 28 66 69 6c 2c ┆ BEGIN READ(fil,┆
0x3f560…3f580 20 6d 65 64 6c 65 6d 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 69 6c 70 6f 69 6e ┆ medlem); filpoin┆
0x3f580…3f5a0 74 65 72 20 3a 3d 20 66 69 6c 70 6f 69 6e 74 65 72 20 2b 20 31 3b 0d 0a 20 20 20 20 20 20 20 20 ┆ter := filpointer + 1; ┆
0x3f5a0…3f5c0 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 49 46 20 6d 65 64 6c 65 6d 2e 6e 61 ┆ END; IF medlem.na┆
0x3f5c0…3f5e0 76 6e 20 3d 20 27 27 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 20 66 69 6c 70 6f 69 ┆vn = '' THEN filpoi┆
0x3f5e0…3f600 6e 74 65 72 20 3a 3d 20 66 69 6c 70 6f 69 6e 74 65 72 20 2d 20 31 3b 0d 0a 20 20 20 20 20 20 20 ┆nter := filpointer - 1; ┆
0x3f600…3f620 (50, 0, 8) 20 27 20 20 27 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 27 61 27 20 3a 20 6d 6f 72 73 65 20 3a 3d ┆ ' '; 'a' : morse :=┆
0x3f620…3f640 20 27 2e 2d 27 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 27 62 27 20 3a 20 6d 6f 72 73 65 20 3a 3d ┆ '.-'; 'b' : morse :=┆
0x3f640…3f660 20 27 2d 2e 2e 2e 27 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 27 63 27 20 3a 20 6d 6f 72 73 65 20 ┆ '-...'; 'c' : morse ┆
0x3f660…3f680 3a 3d 20 27 2d 2e 2d 2e 27 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 27 64 27 20 3a 20 6d 6f 72 73 ┆:= '-.-.'; 'd' : mors┆
0x3f680…3f6a0 65 20 3a 3d 20 27 2d 2e 2e 27 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 27 65 27 20 3a 20 6d 6f 72 ┆e := '-..'; 'e' : mor┆
0x3f6a0…3f6c0 73 65 20 3a 3d 20 27 2e 27 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 27 66 27 20 3a 20 6d 6f 72 73 ┆se := '.'; 'f' : mors┆
0x3f6c0…3f6e0 65 20 3a 3d 20 27 2e 2e 2d 2e 27 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 27 67 27 20 3a 20 6d 6f ┆e := '..-.'; 'g' : mo┆
0x3f6e0…3f700 72 73 65 20 3a 3d 20 27 2d 2d 2e 27 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 27 68 27 20 3a 20 6d ┆rse := '--.'; 'h' : m┆
0x3f700…3f720 6f 72 73 65 20 3a 3d 20 27 2e 2e 2e 2e 27 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 27 69 27 20 3a ┆orse := '....'; 'i' :┆
0x3f720…3f740 20 6d 6f 72 73 65 20 3a 3d 20 27 2e 2e 27 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 27 6a 27 20 3a ┆ morse := '..'; 'j' :┆
0x3f740…3f760 20 6d 6f 72 73 65 20 3a 3d 20 27 2e 2d 2d 2d 27 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 27 6b 27 ┆ morse := '.---'; 'k'┆
0x3f760…3f780 20 3a 20 6d 6f 72 73 65 20 3a 3d 20 27 2d 2e 2d 27 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 27 6c ┆ : morse := '-.-'; 'l┆
0x3f780…3f7a0 27 20 3a 20 6d 6f 72 73 65 20 3a 3d 20 27 2e 2d 2e 2e 27 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆' : morse := '.-..'; ┆
0x3f7a0…3f7c0 27 6d 27 20 3a 20 6d 6f 72 73 65 20 3a 3d 20 27 2d 2d 27 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆'m' : morse := '--'; ┆
0x3f7c0…3f7e0 27 6e 27 20 3a 20 6d 6f 72 73 65 20 3a 3d 20 27 2d 2e 27 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆'n' : morse := '-.'; ┆
0x3f7e0…3f800 27 6f 27 20 3a 20 6d 6f 72 73 65 20 3a 3d 20 27 2d 2d 2d 27 3b 0d 0a 20 20 20 20 20 20 20 20 20 ┆'o' : morse := '---'; ┆
0x3f800…3f820 (50, 0, 9) 27 69 27 20 3a 20 74 69 6c 66 6f 65 6a 3b 0d 0a 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 ┆'i' : tilfoej; END; ┆
0x3f820…3f840 55 4e 54 49 4c 20 63 68 20 49 4e 20 28 2e 20 27 41 27 2c 20 27 61 27 2e 29 3b 0d 0a 20 20 20 20 ┆UNTIL ch IN (. 'A', 'a'.); ┆
0x3f840…3f860 57 52 49 54 45 4c 4e 3b 0d 0a 20 20 20 20 43 4c 4f 53 45 28 66 69 6c 29 3b 0d 0a 20 20 45 4e 44 ┆WRITELN; CLOSE(fil); END┆
0x3f860…3f880 2e 20 28 2a 20 6d 65 6e 75 66 69 6c 20 2a 29 0d 0a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆. (* menufil *) ┆
0x3f880…3f8a0 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 ┆ ┆
[…0xb…]
0x3fa00…3fa20 (50, 0, 10) 20 45 4e 44 3b 0d 0a 20 20 20 20 20 20 57 49 54 48 20 6e 79 74 6d 65 64 6c 65 6d 20 44 4f 0d 0a ┆ END; WITH nytmedlem DO ┆
0x3fa20…3fa40 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 ┆ BEGIN GOTOXY(┆
0x3fa40…3fa60 31 30 2c 20 35 29 3b 20 57 52 49 54 45 28 27 4e 79 74 20 6d 65 64 6c 65 6d 20 6e 72 3a 20 27 2c ┆10, 5); WRITE('Nyt medlem nr: ',┆
0x3fa60…3fa80 20 66 69 6c 70 6f 69 6e 74 65 72 20 2b 20 31 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 47 4f 54 ┆ filpointer + 1); GOT┆
0x3fa80…3faa0 4f 58 59 28 31 30 2c 20 37 29 3b 20 57 52 49 54 45 28 27 4e 61 76 6e 3a 20 27 29 3b 20 52 45 41 ┆OXY(10, 7); WRITE('Navn: '); REA┆
0x3faa0…3fac0 44 28 6e 61 76 6e 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 31 30 2c 20 39 ┆D(navn); GOTOXY(10, 9┆
0x3fac0…3fae0 29 3b 20 57 52 49 54 45 28 27 41 64 72 65 73 73 65 3a 20 27 29 3b 20 52 45 41 44 28 61 64 72 65 ┆); WRITE('Adresse: '); READ(adre┆
0x3fae0…3fb00 73 73 65 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 31 30 2c 20 31 31 29 3b ┆sse); GOTOXY(10, 11);┆
0x3fb00…3fb20 20 57 52 49 54 45 28 27 42 79 3a 20 27 29 3b 20 52 45 41 44 28 62 79 29 3b 0d 0a 20 20 20 20 20 ┆ WRITE('By: '); READ(by); ┆
0x3fb20…3fb40 20 20 20 20 20 47 4f 54 4f 58 59 28 31 30 2c 20 31 33 29 3b 20 57 52 49 54 45 28 27 49 6e 66 6f ┆ GOTOXY(10, 13); WRITE('Info┆
0x3fb40…3fb60 3a 20 27 29 3b 20 52 45 41 44 28 69 6e 66 6f 29 3b 0d 0a 20 20 20 20 20 20 20 20 45 4e 44 3b 0d ┆: '); READ(info); END; ┆
0x3fb60…3fb80 0a 20 20 20 20 20 20 53 45 45 4b 28 66 69 6c 2c 20 66 69 6c 70 6f 69 6e 74 65 72 29 3b 0d 0a 20 ┆ SEEK(fil, filpointer); ┆
0x3fb80…3fba0 20 20 20 20 20 57 52 49 54 45 28 66 69 6c 2c 20 6e 79 74 6d 65 64 6c 65 6d 29 3b 0d 0a 20 20 20 ┆ WRITE(fil, nytmedlem); ┆
0x3fba0…3fbc0 20 20 20 47 4f 54 4f 58 59 28 31 30 2c 20 31 35 29 3b 0d 0a 20 20 20 20 20 20 72 65 74 75 72 3b ┆ GOTOXY(10, 15); retur;┆
0x3fbc0…3fbe0 0d 0a 20 20 20 20 45 4e 44 3b 20 28 2a 20 74 69 6c 66 6f 65 6a 20 2a 29 0d 0a 20 20 0d 0a 20 20 ┆ END; (* tilfoej *) ┆
0x3fbe0…3fc00 42 45 47 49 4e 20 28 2a 20 6d 65 6e 75 66 69 6c 20 2a 29 0d 0a 20 20 20 20 57 52 49 54 45 28 43 ┆BEGIN (* menufil *) WRITE(C┆
0x3fc00…3fc20 (51, 1, 1) 20 27 70 27 20 3a 20 6d 6f 72 73 65 20 3a 3d 20 27 2e 2d 2d 2e 27 3b 0d 0a 20 20 20 20 20 20 20 ┆ 'p' : morse := '.--.'; ┆
0x3fc20…3fc40 20 20 20 27 71 27 20 3a 20 6d 6f 72 73 65 20 3a 3d 20 27 2d 2d 2e 2d 27 3b 0d 0a 20 20 20 20 20 ┆ 'q' : morse := '--.-'; ┆
0x3fc40…3fc60 20 20 20 20 20 27 72 27 20 3a 20 6d 6f 72 73 65 20 3a 3d 20 27 2e 2d 2e 27 3b 0d 0a 20 20 20 20 ┆ 'r' : morse := '.-.'; ┆
0x3fc60…3fc80 20 20 20 20 20 20 27 73 27 20 3a 20 6d 6f 72 73 65 20 3a 3d 20 27 2e 2e 2e 27 3b 0d 0a 20 20 20 ┆ 's' : morse := '...'; ┆
0x3fc80…3fca0 20 20 20 20 20 20 20 27 74 27 20 3a 20 6d 6f 72 73 65 20 3a 3d 20 27 2d 27 3b 0d 0a 20 20 20 20 ┆ 't' : morse := '-'; ┆
0x3fca0…3fcc0 20 20 20 20 20 20 27 75 27 20 3a 20 6d 6f 72 73 65 20 3a 3d 20 27 2e 2e 2d 27 3b 0d 0a 20 20 20 ┆ 'u' : morse := '..-'; ┆
0x3fcc0…3fce0 20 20 20 20 20 20 20 27 76 27 20 3a 20 6d 6f 72 73 65 20 3a 3d 20 27 2e 2e 2e 2d 27 3b 0d 0a 20 ┆ 'v' : morse := '...-'; ┆
0x3fce0…3fd00 20 20 20 20 20 20 20 20 20 27 77 27 20 3a 20 6d 6f 72 73 65 20 3a 3d 20 27 2e 2d 2d 27 3b 0d 0a ┆ 'w' : morse := '.--'; ┆
0x3fd00…3fd20 20 20 20 20 20 20 20 20 20 20 27 78 27 20 3a 20 6d 6f 72 73 65 20 3a 3d 20 27 2d 2e 2e 2d 27 3b ┆ 'x' : morse := '-..-';┆
0x3fd20…3fd40 0d 0a 20 20 20 20 20 20 20 20 20 20 27 79 27 20 3a 20 6d 6f 72 73 65 20 3a 3d 20 27 2d 2e 2d 2d ┆ 'y' : morse := '-.--┆
0x3fd40…3fd60 27 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 27 7a 27 20 3a 20 6d 6f 72 73 65 20 3a 3d 20 27 2d 2d ┆'; 'z' : morse := '--┆
0x3fd60…3fd80 2e 2e 27 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 27 7b 27 20 3a 20 6d 6f 72 73 65 20 3a 3d 20 27 ┆..'; 'æ' : morse := '┆
0x3fd80…3fda0 2e 2d 2e 2d 27 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 27 7c 27 20 3a 20 6d 6f 72 73 65 20 3a 3d ┆.-.-'; 'ø' : morse :=┆
0x3fda0…3fdc0 20 27 2d 2d 2d 2e 27 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 27 7d 27 20 3a 20 6d 6f 72 73 65 20 ┆ '---.'; 'å' : morse ┆
0x3fdc0…3fde0 3a 3d 20 27 2e 2d 2d 2e 2d 27 3b 0d 0a 20 20 20 20 20 20 20 20 4f 54 48 45 52 57 49 53 45 0d 0a ┆:= '.--.-'; OTHERWISE ┆
0x3fde0…3fe00 20 20 20 20 20 20 20 20 20 20 6d 6f 72 73 65 20 3a 3d 20 27 2a 27 3b 0d 0a 20 20 20 20 20 20 20 ┆ morse := '*'; ┆
0x3fe00…3fe20 (51, 1, 2) 20 20 20 20 20 54 48 45 4e 20 63 68 20 3a 3d 20 27 68 27 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ THEN ch := 'h' ┆
0x3fe20…3fe40 20 20 20 20 20 20 20 20 20 45 4c 53 45 20 49 46 20 74 65 67 6e 20 3d 20 27 2d 2e 2e 2e 27 0d 0a ┆ ELSE IF tegn = '-...' ┆
0x3fe40…3fe60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 20 63 68 20 3a 3d ┆ THEN ch :=┆
0x3fe60…3fe80 20 27 62 27 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 20 49 ┆ 'b' ELSE I┆
0x3fe80…3fea0 46 20 74 65 67 6e 20 3d 20 27 2e 2d 2e 2e 27 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆F tegn = '.-..' ┆
0x3fea0…3fec0 20 20 20 20 20 20 20 54 48 45 4e 20 63 68 20 3a 3d 20 27 6c 27 0d 0a 20 20 20 20 20 20 20 20 20 ┆ THEN ch := 'l' ┆
0x3fec0…3fee0 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 20 49 46 20 74 65 67 6e 20 3d 20 27 2e 2e 2d 2e 27 ┆ ELSE IF tegn = '..-.'┆
0x3fee0…3ff00 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 20 63 68 20 ┆ THEN ch ┆
0x3ff00…3ff20 3a 3d 20 27 66 27 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 ┆:= 'f' ELSE┆
0x3ff20…3ff40 20 49 46 20 74 65 67 6e 20 3d 20 27 2e 2e 2e 2d 27 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF tegn = '...-' ┆
0x3ff40…3ff60 20 20 20 20 20 20 20 20 20 54 48 45 4e 20 63 68 20 3a 3d 20 27 76 27 0d 0a 20 20 20 20 20 20 20 ┆ THEN ch := 'v' ┆
0x3ff60…3ff80 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 20 49 46 20 74 65 67 6e 20 3d 20 27 2d 2d 2e ┆ ELSE IF tegn = '--.┆
0x3ff80…3ffa0 2e 27 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 20 63 ┆.' THEN c┆
0x3ffa0…3ffc0 68 20 3a 3d 20 27 7a 27 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4c ┆h := 'z' EL┆
0x3ffc0…3ffe0 53 45 20 49 46 20 74 65 67 6e 20 3d 20 27 2d 2e 2d 2e 27 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ┆SE IF tegn = '-.-.' ┆
0x3ffe0…40000 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 20 63 68 20 3a 3d 20 27 63 27 0d 0a 20 20 20 20 20 ┆ THEN ch := 'c' ┆
0x40000…40020 (51, 1, 3) 20 69 73 74 61 72 74 20 3e 20 31 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 ┆ istart > 1 THE┆
0x40020…40040 4e 20 6b 6c 61 72 74 65 6b 73 74 20 3a 3d 20 6b 6c 61 72 74 65 6b 73 74 20 2b 20 27 20 27 3b 0d ┆N klartekst := klartekst + ' '; ┆
0x40040…40060 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 67 6e 20 3a 3d 20 27 27 3b 0d 0a 20 20 20 20 ┆ tegn := ''; ┆
0x40060…40080 20 20 20 20 20 20 20 20 20 20 57 48 49 4c 45 20 28 69 20 3c 20 6c 29 20 41 4e 44 20 28 28 74 65 ┆ WHILE (i < l) AND ((te┆
0x40080…400a0 6b 73 74 28 2e 69 2e 29 20 3d 20 27 2e 27 29 20 4f 52 20 28 74 65 6b 73 74 28 2e 69 2e 29 20 3d ┆kst(.i.) = '.') OR (tekst(.i.) =┆
0x400a0…400c0 20 27 2d 27 29 29 20 44 4f 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e ┆ '-')) DO BEGIN┆
0x400c0…400e0 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 67 6e 20 3a 3d 20 74 65 67 6e ┆ tegn := tegn┆
0x400e0…40100 20 2b 20 74 65 6b 73 74 28 2e 69 2e 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ + tekst(.i.); ┆
0x40100…40120 20 20 69 20 3a 3d 20 69 20 2b 20 31 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 ┆ i := i + 1; E┆
0x40120…40140 4e 44 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 74 65 67 6e 20 3c 3e 20 27 27 ┆ND; IF tegn <> ''┆
0x40140…40160 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 20 20 ┆ THEN ┆
0x40160…40180 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ BEGIN ┆
0x40180…401a0 20 20 20 20 20 49 46 20 74 65 67 6e 20 3d 20 27 2e 27 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF tegn = '.' ┆
0x401a0…401c0 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 20 63 68 20 3a 3d 20 27 65 27 0d 0a 20 20 20 20 20 20 ┆ THEN ch := 'e' ┆
0x401c0…401e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 20 49 46 20 74 65 67 6e 20 3d 20 27 2d 27 ┆ ELSE IF tegn = '-'┆
0x401e0…40200 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 20 63 68 20 ┆ THEN ch ┆
0x40200…40220 (51, 1, 4) 20 45 4e 44 3b 0d 0a 20 20 20 20 20 20 20 20 49 46 20 6d 6f 72 73 65 20 3d 20 27 20 20 27 0d 0a ┆ END; IF morse = ' ' ┆
0x40220…40240 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 ┆ THEN BEG┆
0x40240…40260 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 27 2f 20 27 29 3b 0d 0a ┆IN WRITE('/ '); ┆
0x40260…40280 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 6f 73 69 74 69 6f 6e 20 3a 3d 20 70 6f 73 69 74 69 ┆ position := positi┆
0x40280…402a0 6f 6e 20 2b 20 32 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 0d 0a 20 20 20 20 20 20 ┆on + 2; END ┆
0x402a0…402c0 20 20 20 20 45 4c 53 45 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 ┆ ELSE BEGIN ┆
0x402c0…402e0 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 6d 6f 72 73 65 2c 20 27 20 20 27 29 3b 0d ┆ WRITE(morse, ' '); ┆
0x402e0…40300 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 6f 73 69 74 69 6f 6e 20 3a 3d 20 70 6f 73 69 74 ┆ position := posit┆
0x40300…40320 69 6f 6e 20 2b 20 4c 45 4e 28 6d 6f 72 73 65 29 20 2b 20 32 3b 0d 0a 20 20 20 20 20 20 20 20 20 ┆ion + LEN(morse) + 2; ┆
0x40320…40340 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 20 20 20 20 49 46 20 70 6f 73 69 74 69 6f 6e 20 3e 20 37 ┆ END; IF position > 7┆
0x40340…40360 33 0d 0a 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 42 ┆3 THEN B┆
0x40360…40380 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 3b 0d 0a 20 20 ┆EGIN WRITELN; ┆
0x40380…403a0 20 20 20 20 20 20 20 20 20 20 20 20 70 6f 73 69 74 69 6f 6e 20 3a 3d 20 30 3b 0d 0a 20 20 20 20 ┆ position := 0; ┆
0x403a0…403c0 20 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 57 52 ┆ END; END; WR┆
0x403c0…403e0 49 54 45 4c 4e 3b 0d 0a 20 20 45 4e 44 2e 0d 0a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ITELN; END. ┆
0x403e0…40400 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 ┆ ┆
0x40400…40420 (51, 1, 5) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 20 49 46 20 74 65 67 6e 20 3d 20 27 2d ┆ ELSE IF tegn = '-┆
0x40420…40440 2e 2e 2d 27 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4e ┆..-' THEN┆
0x40440…40460 20 63 68 20 3a 3d 20 27 78 27 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ch := 'x' ┆
0x40460…40480 45 4c 53 45 20 49 46 20 74 65 67 6e 20 3d 20 27 2e 2d 2d 2e 27 0d 0a 20 20 20 20 20 20 20 20 20 ┆ELSE IF tegn = '.--.' ┆
0x40480…404a0 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 20 63 68 20 3a 3d 20 27 70 27 0d 0a 20 20 20 ┆ THEN ch := 'p' ┆
0x404a0…404c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 20 49 46 20 74 65 67 6e 20 3d 20 ┆ ELSE IF tegn = ┆
0x404c0…404e0 27 2e 2d 2e 2d 27 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 ┆'.-.-' TH┆
0x404e0…40500 45 4e 20 63 68 20 3a 3d 20 27 7b 27 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆EN ch := 'æ' ┆
0x40500…40520 20 20 45 4c 53 45 20 49 46 20 74 65 67 6e 20 3d 20 27 2d 2d 2d 2e 27 0d 0a 20 20 20 20 20 20 20 ┆ ELSE IF tegn = '---.' ┆
0x40520…40540 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 20 63 68 20 3a 3d 20 27 7c 27 0d 0a 20 ┆ THEN ch := 'ø' ┆
0x40540…40560 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 20 49 46 20 74 65 67 6e 20 ┆ ELSE IF tegn ┆
0x40560…40580 3d 20 27 2d 2d 2e 2d 27 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆= '--.-' ┆
0x40580…405a0 54 48 45 4e 20 63 68 20 3a 3d 20 27 71 27 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆THEN ch := 'q' ┆
0x405a0…405c0 20 20 20 20 45 4c 53 45 20 49 46 20 74 65 67 6e 20 3d 20 27 2d 2e 2d 2d 27 0d 0a 20 20 20 20 20 ┆ ELSE IF tegn = '-.--' ┆
0x405c0…405e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 20 63 68 20 3a 3d 20 27 79 27 0d ┆ THEN ch := 'y' ┆
0x405e0…40600 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 20 49 46 20 74 65 67 ┆ ELSE IF teg┆
0x40600…40620 (51, 1, 6) 3a 3d 20 27 74 27 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 ┆:= 't' ELSE┆
0x40620…40640 20 49 46 20 74 65 67 6e 20 3d 20 27 2e 2e 27 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF tegn = '..' ┆
0x40640…40660 20 20 20 20 20 20 20 54 48 45 4e 20 63 68 20 3a 3d 20 27 69 27 0d 0a 20 20 20 20 20 20 20 20 20 ┆ THEN ch := 'i' ┆
0x40660…40680 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 20 49 46 20 74 65 67 6e 20 3d 20 27 2e 2d 27 0d 0a ┆ ELSE IF tegn = '.-' ┆
0x40680…406a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 20 63 68 20 3a 3d ┆ THEN ch :=┆
0x406a0…406c0 20 27 61 27 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 20 49 ┆ 'a' ELSE I┆
0x406c0…406e0 46 20 74 65 67 6e 20 3d 20 27 2d 2e 27 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆F tegn = '-.' ┆
0x406e0…40700 20 20 20 20 20 54 48 45 4e 20 63 68 20 3a 3d 20 27 6e 27 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ THEN ch := 'n' ┆
0x40700…40720 20 20 20 20 20 20 20 20 20 45 4c 53 45 20 49 46 20 74 65 67 6e 20 3d 20 27 2d 2d 27 0d 0a 20 20 ┆ ELSE IF tegn = '--' ┆
0x40720…40740 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 20 63 68 20 3a 3d 20 27 ┆ THEN ch := '┆
0x40740…40760 6d 27 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 20 49 46 20 ┆m' ELSE IF ┆
0x40760…40780 74 65 67 6e 20 3d 20 27 2e 2e 2e 27 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆tegn = '...' ┆
0x40780…407a0 20 20 20 20 54 48 45 4e 20 63 68 20 3a 3d 20 27 73 27 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ THEN ch := 's' ┆
0x407a0…407c0 20 20 20 20 20 20 20 20 45 4c 53 45 20 49 46 20 74 65 67 6e 20 3d 20 27 2e 2e 2d 27 0d 0a 20 20 ┆ ELSE IF tegn = '..-' ┆
0x407c0…407e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 20 63 68 20 3a 3d 20 27 ┆ THEN ch := '┆
0x407e0…40800 75 27 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 20 49 46 20 ┆u' ELSE IF ┆
0x40800…40820 (51, 1, 7) 50 52 4f 47 52 41 4d 20 6d 6f 72 73 65 32 3b 0d 0a 20 20 0d 0a 20 20 54 59 50 45 0d 0a 20 20 20 ┆PROGRAM morse2; TYPE ┆
0x40820…40840 20 73 74 72 32 35 35 20 3d 20 53 54 52 49 4e 47 28 2e 32 35 35 2e 29 3b 0d 0a 20 20 20 20 73 74 ┆ str255 = STRING(.255.); st┆
0x40840…40860 72 37 38 20 3d 20 53 54 52 49 4e 47 28 2e 37 38 2e 29 3b 0d 0a 20 20 0d 0a 20 20 56 41 52 0d 0a ┆r78 = STRING(.78.); VAR ┆
0x40860…40880 20 20 20 20 6b 6c 61 72 74 65 6b 73 74 20 3a 20 73 74 72 32 35 35 3b 0d 0a 20 20 20 20 74 65 6b ┆ klartekst : str255; tek┆
0x40880…408a0 73 74 2c 20 74 65 67 6e 20 3a 20 73 74 72 37 38 3b 0d 0a 20 20 20 20 63 68 20 3a 20 43 48 41 52 ┆st, tegn : str78; ch : CHAR┆
0x408a0…408c0 3b 0d 0a 20 20 20 20 69 2c 20 69 73 74 61 72 74 2c 20 69 73 6c 75 74 2c 20 6c 20 3a 20 49 4e 54 ┆; i, istart, islut, l : INT┆
0x408c0…408e0 45 47 45 52 3b 0d 0a 20 20 20 20 0d 0a 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 57 52 49 54 45 28 ┆EGER; BEGIN WRITE(┆
0x408e0…40900 43 4c 52 48 4f 4d 29 3b 0d 0a 20 20 20 20 57 52 49 54 45 4c 4e 28 27 46 72 61 20 6d 6f 72 73 65 ┆CLRHOM); WRITELN('Fra morse┆
0x40900…40920 74 65 6b 73 74 20 74 69 6c 20 61 6c 6d 2e 20 74 65 6b 73 74 27 29 3b 0d 0a 20 20 20 20 57 52 49 ┆tekst til alm. tekst'); WRI┆
0x40920…40940 54 45 4c 4e 3b 0d 0a 20 20 20 20 57 52 49 54 45 4c 4e 28 27 4b 75 6e 20 70 72 69 6b 6b 65 72 2c ┆TELN; WRITELN('Kun prikker,┆
0x40940…40960 20 73 74 72 65 67 65 72 20 6f 67 20 6d 65 6c 6c 65 6d 72 75 6d 20 65 72 20 74 69 6c 6c 61 64 74 ┆ streger og mellemrum er tilladt┆
0x40960…40980 27 29 3b 0d 0a 20 20 20 20 57 52 49 54 45 4c 4e 28 27 45 76 74 2e 20 61 6e 64 72 65 20 74 65 67 ┆'); WRITELN('Evt. andre teg┆
0x40980…409a0 6e 20 76 69 6c 20 62 6c 69 76 65 20 6f 70 66 61 74 74 65 74 20 73 6f 6d 20 6d 65 6c 6c 65 6d 72 ┆n vil blive opfattet som mellemr┆
0x409a0…409c0 75 6d 27 29 3b 0d 0a 20 20 20 20 57 52 49 54 45 4c 4e 28 27 55 6c 6f 76 6c 69 67 65 20 6d 6f 72 ┆um'); WRITELN('Ulovlige mor┆
0x409c0…409e0 73 65 74 65 67 6e 20 76 69 6c 20 62 6c 69 76 65 20 6f 76 65 72 73 61 74 20 74 69 6c 20 27 27 2a ┆setegn vil blive oversat til ''*┆
0x409e0…40a00 27 27 27 29 3b 0d 0a 20 20 20 20 57 52 49 54 45 4c 4e 28 27 49 6e 64 74 61 73 74 20 6d 6f 72 73 ┆'''); WRITELN('Indtast mors┆
0x40a00…40a20 (51, 1, 8) 6e 20 3d 20 27 2e 2d 2d 2d 27 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆n = '.---' ┆
0x40a20…40a40 20 20 54 48 45 4e 20 63 68 20 3a 3d 20 27 6a 27 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ THEN ch := 'j' ┆
0x40a40…40a60 20 20 20 20 20 20 45 4c 53 45 20 49 46 20 74 65 67 6e 20 3d 20 27 2e 2d 2d 2e 2d 27 0d 0a 20 20 ┆ ELSE IF tegn = '.--.-' ┆
0x40a60…40a80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 20 63 68 20 3a 3d 20 27 ┆ THEN ch := '┆
0x40a80…40aa0 7d 27 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 20 63 68 20 ┆å' ELSE ch ┆
0x40aa0…40ac0 3a 3d 20 27 2a 27 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6b 6c 61 ┆:= '*'; kla┆
0x40ac0…40ae0 72 74 65 6b 73 74 20 3a 3d 20 6b 6c 61 72 74 65 6b 73 74 20 2b 20 63 68 3b 0d 0a 20 20 20 20 20 ┆rtekst := klartekst + ch; ┆
0x40ae0…40b00 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 55 ┆ END; U┆
0x40b00…40b20 4e 54 49 4c 20 69 20 3d 20 6c 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 20 28 2a 20 49 ┆NTIL i = l; END; (* I┆
0x40b20…40b40 46 20 2a 29 0d 0a 20 20 20 20 20 20 20 20 20 20 6b 6c 61 72 74 65 6b 73 74 20 3a 3d 20 6b 6c 61 ┆F *) klartekst := kla┆
0x40b40…40b60 72 74 65 6b 73 74 20 2b 20 27 20 27 3b 0d 0a 20 20 20 20 55 4e 54 49 4c 20 74 65 6b 73 74 20 3d ┆rtekst + ' '; UNTIL tekst =┆
0x40b60…40b80 20 27 5e 27 3b 0d 0a 20 20 20 20 57 52 49 54 45 4c 4e 3b 0d 0a 20 20 20 20 57 52 49 54 45 4c 4e ┆ '^'; WRITELN; WRITELN┆
0x40b80…40ba0 28 6b 6c 61 72 74 65 6b 73 74 29 3b 0d 0a 20 20 45 4e 44 2e 0d 0a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆(klartekst); END. ┆
0x40ba0…40bc0 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ ┆
[…0x2…]
0x40c00…40c20 (51, 1, 9) 74 65 67 6e 20 3d 20 27 2e 2d 2e 27 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆tegn = '.-.' ┆
0x40c20…40c40 20 20 20 20 54 48 45 4e 20 63 68 20 3a 3d 20 27 72 27 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ THEN ch := 'r' ┆
0x40c40…40c60 20 20 20 20 20 20 20 20 45 4c 53 45 20 49 46 20 74 65 67 6e 20 3d 20 27 2d 2e 2e 27 0d 0a 20 20 ┆ ELSE IF tegn = '-..' ┆
0x40c60…40c80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 20 63 68 20 3a 3d 20 27 ┆ THEN ch := '┆
0x40c80…40ca0 64 27 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 20 49 46 20 ┆d' ELSE IF ┆
0x40ca0…40cc0 74 65 67 6e 20 3d 20 27 2e 2d 2d 27 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆tegn = '.--' ┆
0x40cc0…40ce0 20 20 20 20 54 48 45 4e 20 63 68 20 3a 3d 20 27 77 27 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ THEN ch := 'w' ┆
0x40ce0…40d00 20 20 20 20 20 20 20 20 45 4c 53 45 20 49 46 20 74 65 67 6e 20 3d 20 27 2d 2e 2d 27 0d 0a 20 20 ┆ ELSE IF tegn = '-.-' ┆
0x40d00…40d20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 20 63 68 20 3a 3d 20 27 ┆ THEN ch := '┆
0x40d20…40d40 6b 27 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 20 49 46 20 ┆k' ELSE IF ┆
0x40d40…40d60 74 65 67 6e 20 3d 20 27 2d 2d 2e 27 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆tegn = '--.' ┆
0x40d60…40d80 20 20 20 20 54 48 45 4e 20 63 68 20 3a 3d 20 27 67 27 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ THEN ch := 'g' ┆
0x40d80…40da0 20 20 20 20 20 20 20 20 45 4c 53 45 20 49 46 20 74 65 67 6e 20 3d 20 27 2d 2d 2d 27 0d 0a 20 20 ┆ ELSE IF tegn = '---' ┆
0x40da0…40dc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 20 63 68 20 3a 3d 20 27 ┆ THEN ch := '┆
0x40dc0…40de0 6f 27 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 20 49 46 20 ┆o' ELSE IF ┆
0x40de0…40e00 74 65 67 6e 20 3d 20 27 2e 2e 2e 2e 27 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆tegn = '....' ┆
0x40e00…40e20 (51, 1, 10) 65 74 65 6b 73 74 65 6e 20 28 5e 20 61 6c 65 6e 65 20 73 74 6f 70 70 65 72 29 3a 27 29 3b 0d 0a ┆eteksten (^ alene stopper):'); ┆
0x40e20…40e40 20 20 20 20 57 52 49 54 45 4c 4e 3b 0d 0a 20 20 20 20 6b 6c 61 72 74 65 6b 73 74 20 3a 3d 20 27 ┆ WRITELN; klartekst := '┆
0x40e40…40e60 27 3b 0d 0a 20 20 20 20 52 45 50 45 41 54 0d 0a 20 20 20 20 20 20 57 52 49 54 45 28 27 3a 20 27 ┆'; REPEAT WRITE(': '┆
0x40e60…40e80 29 3b 0d 0a 20 20 20 20 20 20 42 55 46 4c 45 4e 20 3a 3d 20 37 38 3b 0d 0a 20 20 20 20 20 20 52 ┆); BUFLEN := 78; R┆
0x40e80…40ea0 45 41 44 4c 4e 28 74 65 6b 73 74 29 3b 0d 0a 20 20 20 20 20 20 49 46 20 74 65 6b 73 74 20 3c 3e ┆EADLN(tekst); IF tekst <>┆
0x40ea0…40ec0 20 27 5e 27 0d 0a 20 20 20 20 20 20 20 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 42 45 ┆ '^' THEN BE┆
0x40ec0…40ee0 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 65 6b 73 74 20 3a 3d 20 74 65 6b 73 74 20 ┆GIN tekst := tekst ┆
0x40ee0…40f00 2b 20 27 20 27 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 6c 20 3a 3d 20 4c 45 4e 28 74 65 6b ┆+ ' '; l := LEN(tek┆
0x40f00…40f20 73 74 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 20 3a 3d 20 31 3b 0d 0a 20 20 20 20 20 ┆st); i := 1; ┆
0x40f20…40f40 20 20 20 20 20 20 20 52 45 50 45 41 54 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 73 74 ┆ REPEAT ist┆
0x40f40…40f60 61 72 74 20 3a 3d 20 69 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 48 49 4c 45 20 28 ┆art := i; WHILE (┆
0x40f60…40f80 69 20 3c 20 6c 29 20 41 4e 44 20 28 74 65 6b 73 74 28 2e 69 2e 29 20 3c 3e 20 27 2e 27 29 0d 0a ┆i < l) AND (tekst(.i.) <> '.') ┆
0x40f80…40fa0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 41 4e 44 20 28 74 65 6b 73 74 28 2e ┆ AND (tekst(.┆
0x40fa0…40fc0 69 2e 29 20 3c 3e 20 27 2d 27 29 20 44 4f 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆i.) <> '-') DO ┆
0x40fc0…40fe0 69 20 3a 3d 20 69 20 2b 20 31 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 73 6c 75 74 ┆i := i + 1; islut┆
0x40fe0…41000 20 3a 3d 20 69 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 69 73 6c 75 74 20 2d ┆ := i; IF islut -┆
0x41000…41200 (52, 0, 1) DataBlock {»NAVNSOEG.PAS«}
[…0x1…]
0x41380…413a0 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 ┆ ┆
[…0x3…]
0x41400…41420 (52, 0, 3) 6f 72 74 65 72 28 31 2c 20 61 6e 74 61 6c 2c 20 6b 61 72 74 6f 74 65 6b 29 3b 0d 0a 20 20 20 20 ┆orter(1, antal, kartotek); ┆
0x41420…41440 46 4f 52 20 69 20 3a 3d 20 31 20 54 4f 20 61 6e 74 61 6c 20 44 4f 0d 0a 20 20 20 20 20 20 57 52 ┆FOR i := 1 TO antal DO WR┆
0x41440…41460 49 54 45 4c 4e 28 27 2a 2a 2a 20 27 2c 20 6b 61 72 74 6f 74 65 6b 28 2e 69 2e 29 29 3b 0d 0a 20 ┆ITELN('*** ', kartotek(.i.)); ┆
0x41460…41480 20 20 20 57 52 49 54 45 28 27 48 76 69 6c 6b 65 6e 20 76 61 72 65 20 73 6b 61 6c 20 73 7c 67 65 ┆ WRITE('Hvilken vare skal søge┆
0x41480…414a0 73 20 69 20 6b 61 72 74 6f 74 65 6b 65 74 3a 20 27 29 3b 20 52 45 41 44 4c 4e 28 61 72 74 69 6b ┆s i kartoteket: '); READLN(artik┆
0x414a0…414c0 65 6c 29 3b 0d 0a 20 20 20 20 49 46 20 66 75 6e 64 65 74 28 31 2c 20 61 6e 74 61 6c 2c 20 61 72 ┆el); IF fundet(1, antal, ar┆
0x414c0…414e0 74 69 6b 65 6c 2c 20 6b 61 72 74 6f 74 65 6b 29 0d 0a 20 20 20 20 20 20 54 48 45 4e 20 57 52 49 ┆tikel, kartotek) THEN WRI┆
0x414e0…41500 54 45 4c 4e 28 61 72 74 69 6b 65 6c 2c 20 27 20 66 69 6e 64 65 73 20 69 20 76 61 72 65 6b 61 72 ┆TELN(artikel, ' findes i varekar┆
0x41500…41520 74 6f 74 65 6b 65 74 27 29 0d 0a 20 20 20 20 20 20 45 4c 53 45 20 57 52 49 54 45 4c 4e 28 61 72 ┆toteket') ELSE WRITELN(ar┆
0x41520…41540 74 69 6b 65 6c 2c 20 27 20 66 69 6e 64 65 73 20 69 6b 6b 65 20 69 20 76 61 72 65 6b 61 72 74 6f ┆tikel, ' findes ikke i varekarto┆
0x41540…41560 74 65 6b 65 74 27 29 3b 0d 0a 20 20 45 4e 44 2e 0d 0a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆teket'); END. ┆
0x41560…41580 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 ┆ ┆
0x41580…415a0 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 ┆ ┆
[…0x3…]
0x41600…41800 (52, 0, 4) DataBlock {»NAVNSOEG.PAS«}
0x41800…41820 (52, 0, 5) 50 52 4f 47 52 41 4d 20 6e 61 76 6e 73 6f 72 74 3b 0d 0a 0d 0a 20 20 43 4f 4e 53 54 0d 0a 20 20 ┆PROGRAM navnsort; CONST ┆
0x41820…41840 20 20 61 6e 74 61 6c 20 3d 20 31 30 3b 0d 0a 20 20 20 20 6d 61 78 74 65 67 6e 20 3d 20 33 30 3b ┆ antal = 10; maxtegn = 30;┆
0x41840…41860 0d 0a 20 20 20 20 0d 0a 20 20 54 59 50 45 0d 0a 20 20 20 20 73 74 72 65 6e 67 20 3d 20 53 54 52 ┆ TYPE streng = STR┆
0x41860…41880 49 4e 47 28 2e 6d 61 78 74 65 67 6e 2e 29 3b 0d 0a 20 20 20 20 61 72 72 20 3d 20 41 52 52 41 59 ┆ING(.maxtegn.); arr = ARRAY┆
0x41880…418a0 28 2e 31 20 2e 2e 20 61 6e 74 61 6c 2e 29 20 4f 46 20 73 74 72 65 6e 67 3b 0d 0a 20 20 0d 0a 20 ┆(.1 .. antal.) OF streng; ┆
0x418a0…418c0 20 56 41 52 0d 0a 20 20 20 20 74 61 62 65 6c 20 3a 20 61 72 72 3b 0d 0a 20 20 0d 0a 20 20 50 52 ┆ VAR tabel : arr; PR┆
0x418c0…418e0 4f 43 45 44 55 52 45 20 69 6e 64 28 56 41 52 20 74 61 62 20 3a 20 61 72 72 29 3b 0d 0a 20 20 20 ┆OCEDURE ind(VAR tab : arr); ┆
0x418e0…41900 20 0d 0a 20 20 20 20 56 41 52 0d 0a 20 20 20 20 20 20 69 20 3a 20 49 4e 54 45 47 45 52 3b 0d 0a ┆ VAR i : INTEGER; ┆
0x41900…41920 20 20 20 20 0d 0a 20 20 20 20 42 45 47 49 4e 20 28 2a 20 69 6e 64 20 2a 29 0d 0a 20 20 20 20 20 ┆ BEGIN (* ind *) ┆
0x41920…41940 20 57 52 49 54 45 28 43 4c 52 48 4f 4d 29 3b 0d 0a 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 27 ┆ WRITE(CLRHOM); WRITELN('┆
0x41940…41960 49 6e 64 74 61 73 74 20 27 2c 20 61 6e 74 61 6c 2c 20 27 20 6e 61 76 6e 65 3a 27 29 3b 0d 0a 20 ┆Indtast ', antal, ' navne:'); ┆
0x41960…41980 20 20 20 20 20 57 52 49 54 45 4c 4e 3b 0d 0a 20 20 20 20 20 20 46 4f 52 20 69 20 3a 3d 20 31 20 ┆ WRITELN; FOR i := 1 ┆
0x41980…419a0 54 4f 20 61 6e 74 61 6c 20 44 4f 0d 0a 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 ┆TO antal DO BEGIN ┆
0x419a0…419c0 20 20 20 20 20 20 57 52 49 54 45 28 27 4e 61 76 6e 20 6e 72 2e 20 27 2c 20 69 20 3a 20 33 2c 20 ┆ WRITE('Navn nr. ', i : 3, ┆
0x419c0…419e0 27 3a 20 20 27 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 42 55 46 4c 45 4e 20 3a 3d 20 6d 61 78 ┆': '); BUFLEN := max┆
0x419e0…41a00 74 65 67 6e 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 52 45 41 44 4c 4e 28 74 61 62 28 2e 69 2e 29 ┆tegn; READLN(tab(.i.)┆
0x41a00…41c00 (52, 0, 6) DataBlock {»NAVNSORT.PAS«}
0x41c00…41e00 (52, 0, 7) DataBlock {»NAVNSOEG.PAS«}
0x41e00…41e20 (52, 0, 8) 29 3b 0d 0a 20 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 45 4e 44 3b 20 28 2a 20 69 6e ┆); END; END; (* in┆
0x41e20…41e40 64 20 2a 29 0d 0a 20 20 0d 0a 20 20 0d 0a 20 20 50 52 4f 43 45 44 55 52 45 20 75 64 28 74 61 62 ┆d *) PROCEDURE ud(tab┆
0x41e40…41e60 20 3a 20 61 72 72 29 3b 0d 0a 20 20 0d 0a 20 20 20 20 56 41 52 0d 0a 20 20 20 20 20 20 69 20 3a ┆ : arr); VAR i :┆
0x41e60…41e80 20 49 4e 54 45 47 45 52 3b 0d 0a 20 20 20 20 0d 0a 20 20 20 20 42 45 47 49 4e 20 28 2a 20 75 64 ┆ INTEGER; BEGIN (* ud┆
0x41e80…41ea0 20 2a 29 0d 0a 20 20 20 20 20 20 57 52 49 54 45 4c 4e 3b 0d 0a 20 20 20 20 20 20 57 52 49 54 45 ┆ *) WRITELN; WRITE┆
0x41ea0…41ec0 4c 4e 28 27 4e 61 76 6e 65 6e 65 20 69 20 61 6c 66 61 62 65 74 69 73 6b 20 72 7b 6b 6b 65 66 7c ┆LN('Navnene i alfabetisk rækkefø┆
0x41ec0…41ee0 6c 67 65 3a 27 29 3b 0d 0a 20 20 20 20 20 20 57 52 49 54 45 4c 4e 3b 0d 0a 20 20 20 20 20 20 46 ┆lge:'); WRITELN; F┆
0x41ee0…41f00 4f 52 20 69 20 3a 3d 20 31 20 54 4f 20 61 6e 74 61 6c 20 44 4f 0d 0a 20 20 20 20 20 20 20 20 57 ┆OR i := 1 TO antal DO W┆
0x41f00…41f20 52 49 54 45 4c 4e 28 69 20 3a 20 33 2c 20 27 20 20 27 2c 20 74 61 62 28 2e 69 2e 29 29 3b 0d 0a ┆RITELN(i : 3, ' ', tab(.i.)); ┆
0x41f20…41f40 20 20 20 20 45 4e 44 3b 20 28 2a 20 75 64 20 2a 29 0d 0a 20 20 0d 0a 20 20 50 52 4f 43 45 44 55 ┆ END; (* ud *) PROCEDU┆
0x41f40…41f60 52 45 20 73 6f 72 74 65 72 69 6e 67 28 56 41 52 20 74 20 3a 20 61 72 72 29 3b 0d 0a 20 20 20 20 ┆RE sortering(VAR t : arr); ┆
0x41f60…41f80 0d 0a 20 20 20 20 56 41 52 0d 0a 20 20 20 20 20 20 69 2c 20 6a 20 3a 20 49 4e 54 45 47 45 52 3b ┆ VAR i, j : INTEGER;┆
0x41f80…41fa0 0d 0a 20 20 20 20 20 20 6e 61 76 6e 20 3a 20 73 74 72 65 6e 67 3b 0d 0a 20 20 20 20 20 20 73 6c ┆ navn : streng; sl┆
0x41fa0…41fc0 75 74 20 3a 20 42 4f 4f 4c 45 41 4e 3b 0d 0a 20 20 20 20 0d 0a 20 20 20 20 42 45 47 49 4e 20 28 ┆ut : BOOLEAN; BEGIN (┆
0x41fc0…41fe0 2a 20 73 6f 72 74 65 72 69 6e 67 20 2a 29 0d 0a 20 20 20 20 20 20 69 20 3a 3d 20 61 6e 74 61 6c ┆* sortering *) i := antal┆
0x41fe0…42000 3b 0d 0a 20 20 20 20 20 20 52 45 50 45 41 54 0d 0a 20 20 20 20 20 20 20 20 69 20 3a 3d 20 69 20 ┆; REPEAT i := i ┆
0x42000…42200 (52, 0, 9) DataBlock {»NAVNSORT.PAS«}
0x42200…42400 (52, 0, 10) DataBlock {»NAVNSOEG.PAS«}
0x42400…42600 (53, 1, 1) DataBlock {»NAVNSORT.PAS«}
0x42600…42780 (53, 1, 2) DataBlock {»NYGAARD.PAS«}
0x42780…427a0 3a 20 31 20 2e 2e 20 6d 61 78 6f 72 64 6c 61 65 6e 67 64 65 3b 0d 0a 20 20 20 20 20 20 20 20 20 ┆: 1 .. maxordlaengde; ┆
0x427a0…427c0 20 20 20 20 20 20 20 73 20 3a 20 6f 72 64 74 79 70 65 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ s : ordtype; ┆
0x427c0…427e0 20 20 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 20 28 2a 20 73 6d 61 61 ┆ BEGIN (* smaa┆
0x427e0…42800 62 6f 67 73 74 61 76 65 72 20 2a 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 20 ┆bogstaver *) s ┆
0x42800…42a00 (53, 1, 3) DataBlock {»ORDHYP.PAS«}
0x42a00…42a20 (53, 1, 4) e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0xf…]
0x42c00…42c20 (53, 1, 5) 3a 3d 20 27 27 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 46 4f 52 20 74 20 3a 3d ┆:= ''; FOR t :=┆
0x42c20…42c40 20 31 20 54 4f 20 4c 45 4e 28 73 74 72 65 6e 67 29 20 44 4f 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆ 1 TO LEN(streng) DO ┆
0x42c40…42c60 20 20 20 20 20 20 20 20 49 46 20 28 73 74 72 65 6e 67 28 2e 74 2e 29 20 3e 3d 20 27 41 27 29 20 ┆ IF (streng(.t.) >= 'A') ┆
0x42c60…42c80 41 4e 44 20 28 73 74 72 65 6e 67 28 2e 74 2e 29 20 3c 3d 20 27 5d 27 29 0d 0a 20 20 20 20 20 20 ┆AND (streng(.t.) <= 'Å') ┆
0x42c80…42ca0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 20 73 20 3a 3d 20 73 20 2b 20 43 48 52 28 ┆ THEN s := s + CHR(┆
0x42ca0…42cc0 4f 52 44 28 73 74 72 65 6e 67 28 2e 74 2e 29 29 20 2b 20 33 32 29 0d 0a 20 20 20 20 20 20 20 20 ┆ORD(streng(.t.)) + 32) ┆
0x42cc0…42ce0 20 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 20 73 20 3a 3d 20 73 20 2b 20 73 74 72 65 6e 67 ┆ ELSE s := s + streng┆
0x42ce0…42d00 28 2e 74 2e 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6d 61 61 62 6f 67 73 ┆(.t.); smaabogs┆
0x42d00…42d20 74 61 76 65 72 20 3a 3d 20 73 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 20 ┆taver := s; END; ┆
0x42d20…42d40 28 2a 20 73 6d 61 61 62 6f 67 73 74 61 76 65 72 20 2a 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ┆(* smaabogstaver *) ┆
0x42d40…42d60 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 20 28 2a 20 6c 61 65 73 6f 72 64 20 ┆ BEGIN (* laesord ┆
0x42d60…42d80 2a 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 4e 4f 54 20 45 4f 46 28 69 6e 64 ┆*) IF NOT EOF(ind┆
0x42d80…42da0 66 69 6c 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 0d 0a 20 20 20 20 ┆fil) THEN ┆
0x42da0…42dc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 50 45 41 54 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆ REPEAT ┆
0x42dc0…42de0 20 20 20 20 20 20 20 20 20 20 52 45 41 44 28 69 6e 64 66 69 6c 2c 20 63 68 29 3b 0d 0a 20 20 20 ┆ READ(indfil, ch); ┆
0x42de0…42e00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 55 4e 54 49 4c 20 45 4f 46 28 69 6e 64 66 69 6c 29 ┆ UNTIL EOF(indfil)┆
0x42e00…43000 (53, 1, 6) DataBlock {»ORDHYP.PAS«}
0x43000…43200 (53, 1, 7) DataBlock {»NYGAARD.PAS«}
0x43200…43400 (53, 1, 8) DataBlock {»ORDHYP.PAS«}
[…0x1…]
0x43600…43800 (53, 1, 10) DataBlock {»NYGAARD.PAS«}
0x43800…43a00 (54, 0, 1) DataBlock {»ORDHYP.PAS«}
[…0x1…]
0x43b00…43b20 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 ┆ ┆
[…0x7…]
0x43c00…43c20 (54, 0, 3) 69 6c 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 3b 0d 0a 20 20 20 20 ┆il); WRITELN; ┆
0x43c20…43c40 20 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 27 48 79 70 70 69 67 68 65 64 73 66 6f 72 64 65 ┆ WRITELN('Hyppighedsforde┆
0x43c40…43c60 6c 69 6e 67 20 61 66 20 6f 72 64 65 6e 65 20 69 20 66 69 6c 65 6e 3a 20 27 2c 20 66 69 6c 6e 61 ┆ling af ordene i filen: ', filna┆
0x43c60…43c80 76 6e 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 3b 0d 0a 20 20 20 20 ┆vn); WRITELN; ┆
0x43c80…43ca0 20 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 27 48 59 50 50 49 47 48 45 44 20 20 4f 52 44 27 ┆ WRITELN('HYPPIGHED ORD'┆
0x43ca0…43cc0 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 3b 0d 0a 20 20 20 20 20 20 ┆); WRITELN; ┆
0x43cc0…43ce0 20 20 20 20 20 20 73 6b 72 69 76 6f 72 64 28 6f 72 64 74 72 61 65 29 3b 0d 0a 20 20 20 20 20 20 ┆ skrivord(ordtrae); ┆
0x43ce0…43d00 20 20 20 20 45 4e 44 2e 20 28 2a 20 6f 72 64 68 79 70 20 2a 29 0d 0a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ END. (* ordhyp *) ┆
0x43d00…43d20 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 ┆ ┆
[…0x7…]
0x43e00…44000 (54, 0, 4) DataBlock {»ORDHYP.PAS«}
0x44000…44020 (54, 0, 5) 50 52 4f 47 52 41 4d 20 6f 76 65 72 66 5f 31 3b 0d 0a 0d 0a 20 20 56 41 52 0d 0a 20 20 20 20 6f ┆PROGRAM overf_1; VAR o┆
0x44020…44040 65 6e 73 6b 65 20 3a 20 49 4e 54 45 47 45 52 3b 0d 0a 20 20 20 20 6c 61 65 6e 67 64 65 2c 20 62 ┆enske : INTEGER; laengde, b┆
0x44040…44060 72 65 64 64 65 2c 20 68 6f 65 6a 64 65 2c 20 6f 76 65 72 66 6c 61 64 65 2c 20 74 6f 74 61 6c 6f ┆redde, hoejde, overflade, totalo┆
0x44060…44080 76 65 72 66 6c 61 64 65 20 3a 20 52 45 41 4c 3b 0d 0a 20 20 20 20 72 61 64 69 75 73 2c 20 73 69 ┆verflade : REAL; radius, si┆
0x44080…440a0 64 65 2c 20 72 31 2c 20 72 32 20 3a 20 52 45 41 4c 3b 0d 0a 20 20 0d 0a 20 20 42 45 47 49 4e 0d ┆de, r1, r2 : REAL; BEGIN ┆
0x440a0…440c0 0a 20 20 20 20 57 52 49 54 45 28 43 4c 52 48 4f 4d 29 3b 0d 0a 20 20 20 20 57 52 49 54 45 4c 4e ┆ WRITE(CLRHOM); WRITELN┆
0x440c0…440e0 28 27 4f 20 56 20 45 20 52 20 46 20 4c 20 41 20 44 20 45 20 20 20 41 20 46 20 3a 27 29 3b 0d 0a ┆('O V E R F L A D E A F :'); ┆
0x440e0…44100 20 20 20 20 57 52 49 54 45 4c 4e 28 27 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ WRITELN('-------------------┆
0x44100…44120 2d 2d 2d 2d 2d 2d 27 29 3b 0d 0a 20 20 20 20 57 52 49 54 45 4c 4e 3b 0d 0a 20 20 20 20 57 52 49 ┆------'); WRITELN; WRI┆
0x44120…44140 54 45 4c 4e 28 27 4b 41 53 53 45 20 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 20 74 61 73 74 20 31 ┆TELN('KASSE ............. tast 1┆
0x44140…44160 27 29 3b 0d 0a 20 20 20 20 57 52 49 54 45 4c 4e 28 27 43 59 4c 49 4e 44 45 52 20 2e 2e 2e 2e 2e ┆'); WRITELN('CYLINDER .....┆
0x44160…44180 2e 2e 2e 2e 2e 20 74 61 73 74 20 32 27 29 3b 0d 0a 20 20 20 20 57 52 49 54 45 4c 4e 28 27 4b 45 ┆..... tast 2'); WRITELN('KE┆
0x44180…441a0 47 4c 45 20 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 20 74 61 73 74 20 33 27 29 3b 0d 0a 20 20 20 ┆GLE ............. tast 3'); ┆
0x441a0…441c0 20 57 52 49 54 45 4c 4e 28 27 4b 45 47 4c 45 53 54 55 42 20 2e 2e 2e 2e 2e 2e 2e 2e 2e 20 74 61 ┆ WRITELN('KEGLESTUB ......... ta┆
0x441c0…441e0 73 74 20 34 27 29 3b 0d 0a 20 20 20 20 57 52 49 54 45 4c 4e 28 27 4b 55 47 4c 45 20 2e 2e 2e 2e ┆st 4'); WRITELN('KUGLE ....┆
0x441e0…44200 2e 2e 2e 2e 2e 2e 2e 2e 2e 20 74 61 73 74 20 35 27 29 3b 0d 0a 20 20 20 20 57 52 49 54 45 4c 4e ┆......... tast 5'); WRITELN┆
0x44200…44400 (54, 0, 6) DataBlock {»OVERF_1.PAS«}
0x44400…44600 (54, 0, 7) DataBlock {»ORDHYP.PAS«}
0x44600…44620 (54, 0, 8) 3b 0d 0a 20 20 20 20 57 52 49 54 45 28 27 49 6e 64 74 61 73 74 20 7c 6e 73 6b 65 3a 20 27 29 3b ┆; WRITE('Indtast ønske: ');┆
0x44620…44640 20 52 45 41 44 4c 4e 28 6f 65 6e 73 6b 65 29 3b 0d 0a 20 20 20 20 57 52 49 54 45 28 43 4c 52 48 ┆ READLN(oenske); WRITE(CLRH┆
0x44640…44660 4f 4d 29 3b 0d 0a 20 20 20 20 0d 0a 20 20 20 20 49 46 20 6f 65 6e 73 6b 65 20 3d 20 31 0d 0a 20 ┆OM); IF oenske = 1 ┆
0x44660…44680 20 20 20 20 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 ┆ THEN BEGIN ┆
0x44680…446a0 20 20 20 20 57 52 49 54 45 4c 4e 28 27 4f 56 45 52 46 4c 41 44 45 20 41 46 20 45 4e 20 4b 41 53 ┆ WRITELN('OVERFLADE AF EN KAS┆
0x446a0…446c0 53 45 3a 27 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 27 2d 2d 2d 2d 2d ┆SE:'); WRITELN('-----┆
0x446c0…446e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 27 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆-----------------'); ┆
0x446e0…44700 57 52 49 54 45 4c 4e 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 27 49 6e 64 74 61 ┆WRITELN; WRITE('Indta┆
0x44700…44720 73 74 20 6b 61 73 73 65 6e 73 20 62 72 65 64 64 65 3a 20 27 29 3b 20 52 45 41 44 4c 4e 28 62 72 ┆st kassens bredde: '); READLN(br┆
0x44720…44740 65 64 64 65 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 27 49 6e 64 74 61 73 74 ┆edde); WRITE('Indtast┆
0x44740…44760 20 6b 61 73 73 65 6e 73 20 6c 7b 6e 67 64 65 3a 20 27 29 3b 20 52 45 41 44 4c 4e 28 6c 61 65 6e ┆ kassens længde: '); READLN(laen┆
0x44760…44780 67 64 65 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 27 49 6e 64 74 61 73 74 20 ┆gde); WRITE('Indtast ┆
0x44780…447a0 6b 61 73 73 65 6e 73 20 68 7c 6a 64 65 3a 20 20 27 29 3b 20 52 45 41 44 4c 4e 28 68 6f 65 6a 64 ┆kassens højde: '); READLN(hoejd┆
0x447a0…447c0 65 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 3b 0d 0a 20 20 20 20 20 20 20 ┆e); WRITELN; ┆
0x447c0…447e0 20 20 20 6f 76 65 72 66 6c 61 64 65 20 3a 3d 20 6c 61 65 6e 67 64 65 20 2a 20 62 72 65 64 64 65 ┆ overflade := laengde * bredde┆
0x447e0…44800 20 2b 20 62 72 65 64 64 65 20 2a 20 68 6f 65 6a 64 65 20 2b 20 6c 61 65 6e 67 64 65 20 2a 20 68 ┆ + bredde * hoejde + laengde * h┆
0x44800…44a00 (54, 0, 9) DataBlock {»OVERF_1.PAS«}
0x44a00…44c00 (54, 0, 10) DataBlock {»ORDHYP.PAS«}
0x44c00…44e00 (55, 1, 1) DataBlock {»OVERF_1.PAS«}
[…0x1…]
0x45000…45200 (55, 1, 3) DataBlock {»OVERF_2.PAS«}
0x45200…45400 (55, 1, 4) DataBlock {»OVERF_1.PAS«}
[…0x1…]
0x45580…455a0 65 72 65 6e 73 20 72 61 64 69 75 73 3a 20 27 29 3b 20 52 45 41 44 4c 4e 28 72 61 64 69 75 73 29 ┆erens radius: '); READLN(radius)┆
0x455a0…455c0 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 3b 0d 0a 20 20 20 20 20 20 20 20 ┆; WRITELN; ┆
0x455c0…455e0 20 20 20 6f 76 65 72 66 6c 61 64 65 20 3a 3d 20 32 20 2a 20 50 49 20 2a 20 72 61 64 69 75 73 20 ┆ overflade := 2 * PI * radius ┆
0x455e0…45600 2a 20 68 6f 65 6a 64 65 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 74 6f 74 61 6c 6f 76 65 72 66 ┆* hoejde; totaloverf┆
0x45600…45800 (55, 1, 6) DataBlock {»OVERF_2.PAS«}
0x45800…45a00 (55, 1, 7) DataBlock {»OVERF_1.PAS«}
0x45a00…45c00 (55, 1, 8) DataBlock {»OVERF_2.PAS«}
[…0x1…]
0x45e00…46000 (55, 1, 10) DataBlock {»OVERF_1.PAS«}
0x46000…46200 (56, 0, 1) DataBlock {»OVERF_2.PAS«}
0x46200…46400 (56, 0, 2) DataBlock {»PAKKEPST.PAS«}
0x46400…46420 (56, 0, 3) 50 52 4f 47 52 41 4d 20 70 61 6b 6b 65 70 73 74 3b 0d 0a 0d 0a 20 20 56 41 52 0d 0a 20 20 20 20 ┆PROGRAM pakkepst; VAR ┆
0x46420…46440 76 61 65 67 74 2c 20 70 6f 72 74 6f 6b 72 20 3a 20 52 45 41 4c 3b 0d 0a 20 20 20 20 70 6f 72 74 ┆vaegt, portokr : REAL; port┆
0x46440…46460 6f 2c 20 67 72 75 70 70 65 20 3a 20 49 4e 54 45 47 45 52 3b 0d 0a 20 20 0d 0a 20 20 42 45 47 49 ┆o, gruppe : INTEGER; BEGI┆
0x46460…46480 4e 0d 0a 20 20 20 20 57 52 49 54 45 4c 4e 28 43 4c 52 48 4f 4d 29 3b 0d 0a 20 20 20 20 57 52 49 ┆N WRITELN(CLRHOM); WRI┆
0x46480…464a0 54 45 4c 4e 28 27 50 4f 53 54 54 41 4b 53 54 45 52 20 46 4f 52 20 50 41 4b 4b 45 50 4f 53 54 27 ┆TELN('POSTTAKSTER FOR PAKKEPOST'┆
0x464a0…464c0 29 3b 0d 0a 20 20 20 20 57 52 49 54 45 4c 4e 28 27 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆); WRITELN('_______________┆
0x464c0…464e0 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 27 29 3b 0d 0a 20 20 20 20 57 52 49 54 45 4c 4e 3b 0d 0a 20 20 20 ┆__________'); WRITELN; ┆
0x464e0…46500 20 57 52 49 54 45 28 27 49 6e 64 74 61 73 74 20 70 61 6b 6b 65 6e 73 20 76 7b 67 74 20 69 20 6b ┆ WRITE('Indtast pakkens vægt i k┆
0x46500…46520 67 20 28 69 6b 6b 65 20 6f 76 65 72 20 32 30 20 6b 67 29 3a 20 27 29 3b 20 52 45 41 44 4c 4e 28 ┆g (ikke over 20 kg): '); READLN(┆
0x46520…46540 76 61 65 67 74 29 3b 0d 0a 20 20 20 20 57 52 49 54 45 4c 4e 3b 0d 0a 20 20 20 20 57 52 49 54 45 ┆vaegt); WRITELN; WRITE┆
0x46540…46560 4c 4e 28 27 41 6c 6d 69 6e 64 65 6c 69 67 20 70 61 6b 6b 65 20 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 20 ┆LN('Almindelig pakke .......... ┆
0x46560…46580 74 61 73 74 20 31 27 29 3b 0d 0a 20 20 20 20 57 52 49 54 45 28 27 56 6f 6c 75 6d 69 6e 7c 73 20 ┆tast 1'); WRITE('Voluminøs ┆
0x46580…465a0 70 61 6b 6b 65 20 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 20 74 61 73 74 20 32 3a 20 20 20 20 27 29 3b ┆pakke ........... tast 2: ');┆
0x465a0…465c0 20 52 45 41 44 4c 4e 28 67 72 75 70 70 65 29 3b 0d 0a 20 20 20 20 57 52 49 54 45 4c 4e 3b 0d 0a ┆ READLN(gruppe); WRITELN; ┆
0x465c0…465e0 20 20 20 20 49 46 20 76 61 65 67 74 20 3c 3d 20 35 0d 0a 20 20 20 20 20 20 54 48 45 4e 20 70 6f ┆ IF vaegt <= 5 THEN po┆
0x465e0…46600 72 74 6f 20 3a 3d 20 31 37 30 30 0d 0a 20 20 20 20 45 4c 53 45 20 49 46 20 76 61 65 67 74 20 3c ┆rto := 1700 ELSE IF vaegt <┆
0x46600…46800 (56, 0, 4) DataBlock {»OVERF_2.PAS«}
0x46800…46a00 (56, 0, 5) DataBlock {»PAKKEPST.PAS«}
0x46a00…46c00 (56, 0, 6) DataBlock {»PALINDR.PAS«}
0x46c00…46e00 (56, 0, 7) DataBlock {»OVERF_2.PAS«}
0x46e00…46e80 (56, 0, 8) DataBlock {»PAKKEPST.PAS«}
0x46e80…46ea0 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 ┆ ┆
[…0xb…]
0x47000…47020 (56, 0, 9) 4c 4e 3b 0d 0a 20 20 45 4e 44 2e 0d 0a 0d 0a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆LN; END. ┆
0x47020…47040 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ ┆
[…0x2…]
0x47080…470a0 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 ┆ ┆
[…0xb…]
0x47200…47300 (56, 0, 10) DataBlock {»OVERF_2.PAS«}
0x47300…47320 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 ┆ ┆
[…0x17…]
0x47600…47800 (57, 1, 2) DataBlock {»PANT.PAS«}
0x47800…47820 (57, 1, 3) 2e 20 74 65 72 6d 69 6e 3a 20 20 20 20 27 2c 20 64 61 67 65 20 3a 20 31 32 29 3b 0d 0a 20 20 20 ┆. termin: ', dage : 12); ┆
0x47820…47840 20 57 52 49 54 45 4c 4e 28 27 20 27 20 3a 20 32 35 2c 20 27 31 2e 20 74 65 72 6d 69 6e 3a 20 20 ┆ WRITELN(' ' : 25, '1. termin: ┆
0x47840…47860 20 20 20 20 20 20 20 20 20 27 2c 20 6d 61 61 6e 65 64 20 3a 20 37 2c 20 61 61 72 20 3a 20 35 29 ┆ ', maaned : 7, aar : 5)┆
0x47860…47880 3b 0d 0a 20 20 20 20 57 52 49 54 45 4c 4e 28 27 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆; WRITELN(' ┆
0x47880…478a0 20 20 20 20 20 20 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ -----------------------┆
0x478a0…478c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 27 29 3b 0d 0a 20 20 20 20 57 52 49 54 45 4c 4e 3b 0d 0a 20 20 20 ┆----------'); WRITELN; ┆
0x478c0…478e0 20 57 52 49 54 45 4c 4e 3b 0d 0a 20 20 20 20 57 52 49 54 45 4c 4e 28 27 20 20 20 20 20 20 20 20 ┆ WRITELN; WRITELN(' ┆
0x478e0…47900 20 20 54 45 52 4d 49 4e 20 20 20 20 20 20 20 52 45 4e 54 45 20 20 20 20 20 20 20 20 20 20 41 46 ┆ TERMIN RENTE AF┆
0x47900…47920 44 52 41 47 20 20 20 20 20 20 20 20 20 20 27 2c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 27 59 ┆DRAG ', 'Y┆
0x47920…47940 44 45 4c 53 45 20 20 20 20 20 20 20 52 45 53 54 47 5b 4c 44 27 29 3b 0d 0a 20 20 20 20 57 52 49 ┆DELSE RESTGÆLD'); WRI┆
0x47940…47960 54 45 4c 4e 3b 0d 0a 20 20 20 20 57 52 49 54 45 4c 4e 28 27 20 20 20 20 20 20 20 20 2d 2d 2d 2d ┆TELN; WRITELN(' ----┆
0x47960…47980 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 ┆--------------------------------┆
0x47980…479a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 27 2c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 27 2d 2d 2d 2d 2d 2d ┆---------', '------┆
0x479a0…479c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 27 29 3b 0d 0a 20 20 20 20 57 52 49 54 45 4c 4e ┆----------------'); WRITELN┆
0x479c0…479e0 3b 0d 0a 20 20 20 20 72 65 6e 74 65 20 3a 3d 20 49 4e 54 28 72 65 73 74 20 2a 20 72 20 2f 20 31 ┆; rente := INT(rest * r / 1┆
0x479e0…47a00 30 30 20 2a 20 64 61 67 65 20 2f 20 31 38 30 20 2a 20 31 30 30 20 2b 20 30 2e 35 29 20 2f 20 31 ┆00 * dage / 180 * 100 + 0.5) / 1┆
0x47a00…47a20 (57, 1, 4) e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0xf…]
0x47c00…47e00 (57, 1, 5) DataBlock {»PANT.PAS«}
0x47e00…47e20 (57, 1, 6) 30 30 3b 0d 0a 20 20 20 20 64 65 6c 79 64 65 6c 73 65 20 3a 3d 20 49 4e 54 28 79 64 65 6c 73 65 ┆00; delydelse := INT(ydelse┆
0x47e20…47e40 20 2a 20 64 61 67 65 20 2f 20 31 38 30 20 2a 20 31 30 30 20 2b 20 30 2e 35 29 20 2f 20 31 30 30 ┆ * dage / 180 * 100 + 0.5) / 100┆
0x47e40…47e60 3b 0d 0a 20 20 20 20 61 66 64 72 61 67 20 3a 3d 20 64 65 6c 79 64 65 6c 73 65 20 2d 20 72 65 6e ┆; afdrag := delydelse - ren┆
0x47e60…47e80 74 65 3b 0d 0a 20 20 20 20 72 65 73 74 20 3a 3d 20 72 65 73 74 20 2d 20 61 66 64 72 61 67 3b 0d ┆te; rest := rest - afdrag; ┆
0x47e80…47ea0 0a 20 20 20 20 57 52 49 54 45 4c 4e 28 6d 61 61 6e 65 64 20 3a 20 31 31 2c 20 61 61 72 20 3a 20 ┆ WRITELN(maaned : 11, aar : ┆
0x47ea0…47ec0 35 2c 20 72 65 6e 74 65 20 3a 20 31 32 20 3a 20 32 2c 20 61 66 64 72 61 67 20 3a 20 31 36 20 3a ┆5, rente : 12 : 2, afdrag : 16 :┆
0x47ec0…47ee0 20 32 2c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 64 65 6c 79 64 65 6c 73 65 20 3a 20 31 36 20 ┆ 2, delydelse : 16 ┆
0x47ee0…47f00 3a 20 32 2c 20 72 65 73 74 20 3a 20 31 35 20 3a 20 32 29 3b 0d 0a 20 20 20 20 52 45 50 45 41 54 ┆: 2, rest : 15 : 2); REPEAT┆
0x47f00…47f20 0d 0a 20 20 20 20 20 20 49 46 20 6d 61 61 6e 65 64 20 3d 20 27 44 45 43 27 0d 0a 20 20 20 20 20 ┆ IF maaned = 'DEC' ┆
0x47f20…47f40 20 20 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 ┆ THEN BEGIN ┆
0x47f40…47f60 20 20 20 20 20 20 57 52 49 54 45 4c 4e 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 61 61 72 20 ┆ WRITELN; aar ┆
0x47f60…47f80 3a 3d 20 61 61 72 20 2b 31 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 61 61 6e 65 64 20 3a ┆:= aar +1; maaned :┆
0x47f80…47fa0 3d 20 27 4a 55 4e 27 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 45 4e 44 0d 0a 20 20 20 20 20 20 20 ┆= 'JUN'; END ┆
0x47fa0…47fc0 20 45 4c 53 45 0d 0a 20 20 20 20 20 20 20 20 20 20 6d 61 61 6e 65 64 20 3a 3d 20 27 44 45 43 27 ┆ ELSE maaned := 'DEC'┆
0x47fc0…47fe0 3b 0d 0a 20 20 20 20 20 20 57 52 49 54 45 28 6d 61 61 6e 65 64 20 3a 20 31 31 2c 20 61 61 72 20 ┆; WRITE(maaned : 11, aar ┆
0x47fe0…48000 3a 20 35 29 3b 0d 0a 20 20 20 20 20 20 72 65 6e 74 65 20 3a 3d 20 49 4e 54 28 72 65 73 74 20 2a ┆: 5); rente := INT(rest *┆
0x48000…48200 (57, 1, 7) DataBlock {»PANT.PAS«}
[…0x1…]
0x48380…483a0 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 ┆ ┆
[…0x3…]
0x48400…48420 (57, 1, 9) 20 72 20 2b 20 30 2e 35 29 20 2f 20 31 30 30 3b 0d 0a 20 20 20 20 20 20 61 66 64 72 61 67 20 3a ┆ r + 0.5) / 100; afdrag :┆
0x48420…48440 3d 20 79 64 65 6c 73 65 20 2d 20 72 65 6e 74 65 3b 0d 0a 20 20 20 20 20 20 49 46 20 72 65 73 74 ┆= ydelse - rente; IF rest┆
0x48440…48460 20 2d 20 61 66 64 72 61 67 20 3c 20 30 0d 0a 20 20 20 20 20 20 20 20 54 48 45 4e 20 61 66 64 72 ┆ - afdrag < 0 THEN afdr┆
0x48460…48480 61 67 20 3a 3d 20 72 65 73 74 3b 0d 0a 20 20 20 20 20 20 49 46 20 72 65 73 74 20 2d 20 61 66 64 ┆ag := rest; IF rest - afd┆
0x48480…484a0 72 61 67 20 3d 20 30 0d 0a 20 20 20 20 20 20 20 20 54 48 45 4e 20 79 64 65 6c 73 65 20 3a 3d 20 ┆rag = 0 THEN ydelse := ┆
0x484a0…484c0 72 65 6e 74 65 20 2b 20 61 66 64 72 61 67 3b 0d 0a 20 20 20 20 20 20 72 65 73 74 20 3a 3d 20 72 ┆rente + afdrag; rest := r┆
0x484c0…484e0 65 73 74 20 2d 20 61 66 64 72 61 67 3b 0d 0a 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 72 65 6e ┆est - afdrag; WRITELN(ren┆
0x484e0…48500 74 65 20 3a 20 31 32 20 3a 20 32 2c 20 61 66 64 72 61 67 20 3a 20 31 36 20 3a 20 32 2c 20 79 64 ┆te : 12 : 2, afdrag : 16 : 2, yd┆
0x48500…48520 65 6c 73 65 20 3a 20 31 36 20 3a 20 32 2c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 ┆else : 16 : 2, re┆
0x48520…48540 73 74 20 3a 20 31 35 20 3a 20 32 29 3b 0d 0a 20 20 20 20 55 4e 54 49 4c 20 72 65 73 74 20 3d 20 ┆st : 15 : 2); UNTIL rest = ┆
0x48540…48560 30 3b 0d 0a 20 20 45 4e 44 2e 0d 0a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆0; END. ┆
0x48560…48580 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 ┆ ┆
0x48580…485a0 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 ┆ ┆
[…0x3…]
0x48600…48800 (57, 1, 10) DataBlock {»PANT.PAS«}
0x48800…48a00 (58, 0, 1) DataBlock {»PERSONER.PAS«}
[…0x12…]
0x4ad00…4ad20 20 20 20 20 20 20 20 20 27 31 27 20 3a 20 6f 65 6a 65 6e 66 61 72 76 65 20 3a 3d 20 62 6c 61 61 ┆ '1' : oejenfarve := blaa┆
0x4ad20…4ad40 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 32 27 20 3a 20 6f 65 6a ┆; '2' : oej┆
0x4ad40…4ad60 65 6e 66 61 72 76 65 20 3a 3d 20 67 72 61 61 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆enfarve := graa; ┆
0x4ad60…4ad80 20 20 20 20 20 20 27 33 27 20 3a 20 6f 65 6a 65 6e 66 61 72 76 65 20 3a 3d 20 62 72 75 6e 65 3b ┆ '3' : oejenfarve := brune;┆
0x4ad80…4ada0 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 34 27 20 3a 20 6f 65 6a 65 ┆ '4' : oeje┆
0x4ada0…4adc0 6e 66 61 72 76 65 20 3a 3d 20 67 72 6f 65 6e 6e 65 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆nfarve := groenne; ┆
0x4adc0…4ade0 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 ┆ END; WR┆
0x4ade0…4ae00 49 54 45 4c 4e 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4c ┆ITELN; WRITEL┆
0x4ae00…4b000 (59, 1, 10) DataBlock {»PERSONER.PAS«}
0x4b000…4b200 (60, 0, 1) DataBlock {»POST1.PAS«}
0x4b200…4b400 (60, 0, 2) DataBlock {»POSTKOPI.PAS«}
[…0x1…]
0x4b600…4b800 (60, 0, 4) DataBlock {»POST1.PAS«}
0x4b800…4ba00 (60, 0, 5) DataBlock {»POSTKOPI.PAS«}
[…0x1…]
0x4bc00…4bc20 (60, 0, 7) e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0xf…]
0x4be00…4c000 (60, 0, 8) DataBlock {»POSTKOPI.PAS«}
[…0x1…]
0x4c200…4c220 (60, 0, 10) e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0xf…]
0x4c400…4c600 (61, 1, 1) DataBlock {»POSTKOPI.PAS«}
[…0x1…]
0x4c800…4ca00 (61, 1, 3) DataBlock {»POST_ANT.PAS«}
0x4ca00…4cc00 (61, 1, 4) DataBlock {»POSTKOPI.PAS«}
[…0x1…]
0x4ce00…4d000 (61, 1, 6) DataBlock {»POST_ANT.PAS«}
0x4d000…4d200 (61, 1, 7) DataBlock {»POSTKOPI.PAS«}
0x4d200…4d400 (61, 1, 8) DataBlock {»POST_ANT.PAS«}
[…0x1…]
0x4d600…4d800 (61, 1, 10) DataBlock {»POSTKOPI.PAS«}
0x4d800…4da00 (62, 0, 1) DataBlock {»POST_ANT.PAS«}
[…0x1…]
0x4dc00…4dc20 (62, 0, 3) 20 20 20 20 20 43 41 53 45 20 63 68 20 4f 46 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ CASE ch OF ┆
0x4dc20…4dc40 20 27 49 27 2c 20 27 69 27 20 3a 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 'I', 'i' : BEGIN ┆
0x4dc40…4dc60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4e 45 57 28 70 70 29 3b 0d 0a 20 20 20 20 20 20 ┆ NEW(pp); ┆
0x4dc60…4dc80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 3b 0d ┆ WRITELN; ┆
0x4dc80…4dca0 0a 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 57 52 ┆ WR┆
0x4dca0…4dcc0 49 54 45 28 27 4e 61 76 6e 3a 20 27 29 3b 20 52 45 41 44 4c 4e 28 70 70 5e 2e 6e 61 76 6e 29 3b ┆ITE('Navn: '); READLN(pp^.navn);┆
0x4dcc0…4dce0 0d 0a 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 57 ┆ W┆
0x4dce0…4dd00 52 49 54 45 28 27 41 64 72 65 73 73 65 3a 20 27 29 3b 20 52 45 41 44 4c 4e 28 70 70 5e 2e 61 64 ┆RITE('Adresse: '); READLN(pp^.ad┆
0x4dd00…4dd20 72 65 73 73 65 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆resse); ┆
0x4dd20…4dd40 20 20 20 20 20 20 70 70 5e 2e 6e 61 65 73 74 65 20 3a 3d 20 4e 49 4c 3b 0d 0a 20 20 20 20 20 20 ┆ pp^.naeste := NIL; ┆
0x4dd40…4dd60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 64 73 61 65 74 28 74 ┆ indsaet(t┆
0x4dd60…4dd80 6f 70 2c 20 70 70 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆op, pp); ┆
0x4dd80…4dda0 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 46 27 2c 20 ┆ END; 'F', ┆
0x4dda0…4ddc0 27 66 27 20 3a 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆'f' : BEGIN ┆
0x4ddc0…4dde0 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ WRITELN; ┆
0x4dde0…4de00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 27 48 76 65 6d 20 73 6b 61 ┆ WRITE('Hvem ska┆
0x4de00…4e000 (62, 0, 4) DataBlock {»POST_ANT.PAS«}
[…0x1…]
0x4e200…4e400 (62, 0, 6) DataBlock {»PREDEF.PAS«}
0x4e400…4e600 (62, 0, 7) DataBlock {»POST_ANT.PAS«}
0x4e600…4e620 (62, 0, 8) 20 20 20 20 45 4c 53 45 20 57 52 49 54 45 4c 4e 28 27 4f 4b 27 29 3b 0d 0a 20 20 20 20 20 20 20 ┆ ELSE WRITELN('OK'); ┆
0x4e620…4e640 20 20 20 20 20 49 46 20 52 56 53 4f 4e 20 3d 20 27 27 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF RVSON = '' ┆
0x4e640…4e660 20 20 54 48 45 4e 20 57 52 49 54 45 4c 4e 28 27 41 4b 27 29 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆ THEN WRITELN('AK') ┆
0x4e660…4e680 20 20 20 20 45 4c 53 45 20 57 52 49 54 45 4c 4e 28 27 4f 4b 27 29 3b 0d 0a 20 20 20 20 20 20 20 ┆ ELSE WRITELN('OK'); ┆
0x4e680…4e6a0 20 20 20 20 20 49 46 20 52 56 53 4f 46 46 20 3d 20 27 27 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ IF RVSOFF = '' ┆
0x4e6a0…4e6c0 20 20 20 54 48 45 4e 20 57 52 49 54 45 4c 4e 28 27 41 4b 27 29 0d 0a 20 20 20 20 20 20 20 20 20 ┆ THEN WRITELN('AK') ┆
0x4e6c0…4e6e0 20 20 20 20 20 45 4c 53 45 20 57 52 49 54 45 4c 4e 28 27 4f 4b 27 29 3b 0d 0a 20 20 20 20 20 20 ┆ ELSE WRITELN('OK'); ┆
0x4e6e0…4e700 20 20 20 20 45 4e 44 2e 0d 0a 0d 0a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ END. ┆
0x4e700…4e720 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 ┆ ┆
[…0x7…]
0x4e800…4e900 (62, 0, 9) DataBlock {»PREDEF.PAS«}
0x4e900…4e920 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 ┆ ┆
[…0x7…]
0x4ea00…4ec00 (62, 0, 10) DataBlock {»POST_ANT.PAS«}
0x4ec00…4ec20 (63, 1, 1) e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0xf…]
0x4ee00…4ee20 (63, 1, 2) 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 74 61 6c 2c 20 27 20 65 72 20 65 74 20 6c ┆ WRITELN(tal, ' er et l┆
0x4ee20…4ee40 69 67 65 20 74 61 6c 27 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a ┆ige tal'); END; ┆
0x4ee40…4ee60 20 20 20 20 20 20 20 20 20 20 64 69 76 69 73 6f 72 20 3a 3d 20 31 3b 0d 0a 20 20 20 20 20 20 20 ┆ divisor := 1; ┆
0x4ee60…4ee80 20 20 20 49 46 20 28 74 61 6c 20 3c 3e 20 33 29 20 41 4e 44 20 28 74 61 6c 20 3e 20 32 29 0d 0a ┆ IF (tal <> 3) AND (tal > 2) ┆
0x4ee80…4eea0 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ THEN ┆
0x4eea0…4eec0 57 48 49 4c 45 20 70 72 69 6d 74 61 6c 20 41 4e 44 20 28 64 69 76 69 73 6f 72 20 3c 3d 20 67 72 ┆WHILE primtal AND (divisor <= gr┆
0x4eec0…4eee0 61 65 6e 73 65 29 20 44 4f 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e ┆aense) DO BEGIN┆
0x4eee0…4ef00 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 69 76 69 73 6f 72 20 3a 3d 20 64 ┆ divisor := d┆
0x4ef00…4ef20 69 76 69 73 6f 72 20 2b 31 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 ┆ivisor +1; IF┆
0x4ef20…4ef40 20 28 74 61 6c 20 4d 4f 44 20 64 69 76 69 73 6f 72 29 20 3d 20 30 0d 0a 20 20 20 20 20 20 20 20 ┆ (tal MOD divisor) = 0 ┆
0x4ef40…4ef60 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 20 70 72 69 6d 74 61 6c 20 3a 3d 20 46 41 4c 53 ┆ THEN primtal := FALS┆
0x4ef60…4ef80 45 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 4e 4f 54 20 70 72 69 ┆E; IF NOT pri┆
0x4ef80…4efa0 6d 74 61 6c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 20 57 ┆mtal THEN W┆
0x4efa0…4efc0 52 49 54 45 4c 4e 28 74 61 6c 2c 20 27 20 68 61 72 20 27 2c 20 64 69 76 69 73 6f 72 2c 20 27 20 ┆RITELN(tal, ' har ', divisor, ' ┆
0x4efc0…4efe0 73 6f 6d 20 64 69 76 69 73 6f 72 27 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆som divisor'); ┆
0x4efe0…4f000 45 4e 44 3b 0d 0a 20 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 49 46 20 70 72 69 6d 74 ┆END; END; IF primt┆
0x4f000…4f200 (63, 1, 3) DataBlock {»PRIMTAL.PAS«}
0x4f200…4f220 (63, 1, 4) e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0xf…]
0x4f400…4f420 (63, 1, 5) 61 6c 0d 0a 20 20 20 20 20 20 54 48 45 4e 20 57 52 49 54 45 4c 4e 28 74 61 6c 2c 20 27 20 65 72 ┆al THEN WRITELN(tal, ' er┆
0x4f420…4f440 20 65 74 20 70 72 69 6d 74 61 6c 27 29 0d 0a 20 20 20 20 20 20 45 4c 53 45 20 57 52 49 54 45 4c ┆ et primtal') ELSE WRITEL┆
0x4f440…4f460 4e 28 74 61 6c 2c 20 27 20 65 72 20 69 6b 6b 65 20 65 74 20 70 72 69 6d 74 61 6c 27 29 3b 0d 0a ┆N(tal, ' er ikke et primtal'); ┆
0x4f460…4f480 20 20 45 4e 44 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 1a 1a ┆ END. ┆
0x4f480…4f4a0 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 ┆ ┆
[…0xb…]
0x4f600…4f680 (63, 1, 6) DataBlock {»PRIMTAL.PAS«}
0x4f680…4f6a0 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 ┆ ┆
[…0xb…]
0x4f800…4fa00 (63, 1, 7) DataBlock {»PRIMFORD.PAS«}
0x4fa00…4fc00 (63, 1, 8) DataBlock {»PRIMTAL.PAS«}
0x4fc00…4fc20 (63, 1, 9) 50 52 4f 47 52 41 4d 20 70 72 69 6d 74 61 6c 3b 0d 0a 0d 0a 20 20 28 2a 20 50 72 6f 67 72 61 6d ┆PROGRAM primtal; (* Program┆
0x4fc20…4fc40 6d 65 74 20 75 6e 64 65 72 73 7c 67 65 72 2c 20 6f 6d 20 65 74 20 6f 70 67 69 76 65 74 20 74 61 ┆met undersøger, om et opgivet ta┆
0x4fc40…4fc60 6c 20 65 72 20 65 74 20 70 72 69 6d 74 61 6c 20 2a 29 0d 0a 20 20 0d 0a 20 20 56 41 52 0d 0a 20 ┆l er et primtal *) VAR ┆
0x4fc60…4fc80 20 20 20 74 61 6c 20 2c 20 67 72 61 65 6e 73 65 2c 20 64 69 76 69 73 6f 72 20 3a 20 49 4e 54 45 ┆ tal , graense, divisor : INTE┆
0x4fc80…4fca0 47 45 52 3b 0d 0a 20 20 20 20 70 72 69 6d 74 61 6c 20 3a 20 42 4f 4f 4c 45 41 4e 3b 0d 0a 20 20 ┆GER; primtal : BOOLEAN; ┆
0x4fca0…4fcc0 0d 0a 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 57 52 49 54 45 28 43 4c 52 48 4f 4d 29 3b 0d 0a 20 ┆ BEGIN WRITE(CLRHOM); ┆
0x4fcc0…4fce0 20 20 20 57 52 49 54 45 28 27 48 76 69 6c 6b 65 74 20 68 65 6c 74 61 6c 20 73 6b 61 6c 20 75 6e ┆ WRITE('Hvilket heltal skal un┆
0x4fce0…4fd00 64 65 72 73 7c 67 65 73 3a 20 27 29 3b 20 52 45 41 44 4c 4e 28 74 61 6c 29 3b 0d 0a 20 20 20 20 ┆dersøges: '); READLN(tal); ┆
0x4fd00…4fd20 70 72 69 6d 74 61 6c 20 3a 3d 20 46 41 4c 53 45 3b 0d 0a 20 20 20 20 49 46 20 74 61 6c 20 3e 20 ┆primtal := FALSE; IF tal > ┆
0x4fd20…4fd40 31 0d 0a 20 20 20 20 20 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 ┆1 THEN BEGIN ┆
0x4fd40…4fd60 20 20 20 20 20 20 20 20 70 72 69 6d 74 61 6c 20 3a 3d 20 54 52 55 45 3b 0d 0a 20 20 20 20 20 20 ┆ primtal := TRUE; ┆
0x4fd60…4fd80 20 20 20 20 67 72 61 65 6e 73 65 20 3a 3d 20 54 52 55 4e 43 28 53 51 52 54 28 74 61 6c 29 2b 31 ┆ graense := TRUNC(SQRT(tal)+1┆
0x4fd80…4fda0 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 49 46 20 28 74 61 6c 20 4d 4f 44 20 32 20 3d 20 30 29 ┆); IF (tal MOD 2 = 0)┆
0x4fda0…4fdc0 20 41 4e 44 20 28 74 61 6c 20 3e 20 32 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4e ┆ AND (tal > 2) THEN┆
0x4fdc0…4fde0 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 ┆ BEGIN ┆
0x4fde0…4fe00 20 20 20 20 20 20 20 70 72 69 6d 74 61 6c 20 3a 3d 20 46 41 4c 53 45 3b 0d 0a 20 20 20 20 20 20 ┆ primtal := FALSE; ┆
0x4fe00…4ff80 (63, 1, 10) DataBlock {»PRIMFORD.PAS«}
0x4ff80…4ffa0 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 ┆ ┆
[…0x3…]
0x50000…50020 (64, 0, 1) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x50020…50040 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 e8 03 10 01 7f 12 ┆ ┆
0x50040…50060 02 11 7f 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x50060…50080 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x5…]
0x50120…50140 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 15 52 65 67 ┆ Reg┆
0x50140…50160 6e 65 63 65 6e 74 72 61 6c 65 6e 20 52 43 2d 38 35 35 2f 52 43 2d 37 30 33 33 33 00 4f 19 01 06 ┆necentralen RC-855/RC-70333 O ┆
0x50160…50180 3d 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 20 00 01 0c 00 00 00 00 00 00 00 01 1f 00 ┆= ┆
0x50180…501a0 00 00 00 00 00 00 01 1e 00 00 00 00 00 00 00 01 01 00 00 00 00 00 00 00 01 02 00 00 00 00 00 00 ┆ ┆
0x501a0…501c0 00 00 00 00 00 00 00 00 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…]
0x50200…50220 (64, 0, 2) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 e8 03 02 01 1d 03 01 1c 08 01 1e 09 01 1f 06 02 11 1d ┆ ┆
0x50220…50240 07 02 11 1c 0a 02 11 1e 0b 02 11 1f 10 01 7f 12 02 11 7f 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x50240…50260 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x5…]
0x50300…50320 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 09 44 45 43 20 56 54 2d 35 32 00 00 00 00 00 00 ┆ DEC VT-52 ┆
0x50320…50340 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 4f 18 02 1b 59 00 00 00 00 00 00 00 00 00 00 00 ┆ O Y ┆
0x50340…50360 00 00 00 00 00 00 20 00 04 1b 48 1b 4a 00 00 00 00 02 1b 4a 00 00 00 00 00 00 02 1b 4b 00 00 00 ┆ H J J K ┆
0x50360…50380 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x5…]
0x50420…50440 00 00 00 00 00 00 1f 49 43 4c 20 43 6f 6d 65 74 2c 20 48 48 20 4d 50 53 2d 33 30 30 30 20 28 46 ┆ ICL Comet, HH MPS-3000 (F┆
0x50440…50460 36 20 52 4f 4d 29 4f 18 02 1b 3d 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ff 20 00 01 1a ┆6 ROM)O = ┆
0x50460…50480 00 00 00 00 00 00 00 02 1b 19 00 00 00 00 00 00 02 1b 18 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x50480…504a0 00 00 00 00 00 00 00 00 00 00 00 02 1b 33 00 00 00 00 00 00 02 1b 30 00 00 00 00 00 00 00 00 00 ┆ 3 0 ┆
0x504a0…504c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x5…]
0x50560…50580 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 e8 03 10 01 7f 12 02 11 7f 00 00 00 00 00 ┆ ┆
0x50580…505a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x7…]
0x50680…506a0 00 00 00 00 00 00 00 00 e8 03 10 01 7f 12 02 11 7f 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x506a0…506c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x6…]
0x50780…507a0 00 00 00 00 00 00 00 00 00 00 1f 49 43 4c 20 43 6f 6d 65 74 2c 20 48 48 20 4d 50 53 2d 33 30 30 ┆ ICL Comet, HH MPS-300┆
0x507a0…507c0 30 20 28 46 33 20 52 4f 4d 29 4f 18 02 1b 11 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ff ┆0 (F3 ROM)O ┆
0x507c0…507e0 01 00 01 1a 00 00 00 00 00 00 00 02 1b 19 00 00 00 00 00 00 02 1b 18 00 00 00 00 00 00 00 00 00 ┆ ┆
0x507e0…50800 00 00 00 00 00 00 00 00 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…]
0x50840…50860 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 e8 03 02 02 ┆ ┆
0x50860…50880 1b 44 03 02 1b 43 08 02 1b 41 09 02 1b 42 06 03 11 1b 44 07 03 11 1b 43 0a 03 11 1b 41 0b 03 11 ┆ D C A B D C A ┆
0x50880…508a0 1b 42 10 01 7f 12 02 11 7f 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ B ┆
0x508a0…508c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x4…]
0x50940…50960 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0c 53 ┆ S┆
0x50960…50980 68 61 72 70 20 4d 5a 2d 38 30 42 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 4f 19 ┆harp MZ-80B O ┆
0x50980…509a0 02 1b 3d 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 20 00 06 1b 3d 20 20 1b 33 00 00 02 ┆ = = 3 ┆
0x509a0…509c0 1b 33 00 00 00 00 00 00 02 1b 32 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ 3 2 ┆
0x509c0…509e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x4…]
0x50a60…50a80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0f 47 65 6d 69 6e 69 20 47 61 6c 61 ┆ Gemini Gala┆
0x50a80…50aa0 78 79 20 32 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 4f 19 02 1b 3d 00 00 00 00 00 00 00 ┆xy 2 O = ┆
0x50aa0…50ac0 00 00 00 00 00 00 00 00 00 00 20 00 01 1a 00 00 00 00 00 00 00 02 1b 25 00 00 00 00 00 00 02 1b ┆ % ┆
0x50ac0…50ae0 2a 00 00 00 00 00 00 01 0e 00 00 00 00 00 00 00 01 0b 00 00 00 00 00 00 00 02 1b 41 00 00 00 00 ┆* A ┆
0x50ae0…50b00 00 00 02 1b 4e 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ N ┆
0x50b00…50b20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x5…]
0x50bc0…50be0 e8 03 02 01 1c 03 01 1d 08 01 1e 09 01 1f 06 02 11 1c 07 02 11 1d 0a 02 11 1e 0b 02 11 1f 10 01 ┆ ┆
0x50be0…50c00 7f 12 02 11 7f 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x50c00…50c20 (64, 0, 7) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x5…]
0x50cc0…50ce0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 e8 03 10 01 7f 12 02 11 7f 00 ┆ ┆
0x50ce0…50d00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x6…]
0x50dc0…50de0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 1f 49 43 4c 20 43 6f 6d ┆ ICL Com┆
0x50de0…50e00 65 74 2c 20 48 48 20 4d 50 53 2d 33 30 30 30 20 28 46 34 20 52 4f 4d 29 4f 18 02 1b 3d 00 00 00 ┆et, HH MPS-3000 (F4 ROM)O = ┆
0x50e00…50e20 (64, 0, 8) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x4…]
0x50ea0…50ec0 00 00 00 00 00 00 00 00 00 00 e8 03 10 01 7f 12 02 11 7f 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x50ec0…50ee0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x6…]
0x50fa0…50fc0 00 00 00 00 00 00 00 00 00 00 00 00 0d 4e 65 77 42 72 61 69 6e 20 43 50 2f 4d 00 00 00 00 00 00 ┆ NewBrain CP/M ┆
0x50fc0…50fe0 00 00 00 00 00 00 00 00 00 00 00 00 4f 18 01 16 3d 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ O = ┆
0x50fe0…51000 00 ff 01 00 01 1f 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 ┆ ┆
0x51000…51020 (64, 0, 9) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x5…]
0x510c0…510e0 00 00 0b 45 50 53 4f 4e 20 51 58 2d 31 30 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ EPSON QX-10 ┆
0x510e0…51100 00 00 4f 18 02 1b 3d 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 20 00 02 1b 2a 00 00 00 ┆ O = * ┆
0x51100…51120 00 00 00 02 1b 59 00 00 00 00 00 00 02 1b 54 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ Y T ┆
0x51120…51140 00 00 00 00 00 00 00 02 1b 30 00 00 00 00 00 00 02 1b 31 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ 0 1 ┆
0x51140…51160 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x5…]
0x51200…51220 (64, 0, 10) 00 00 00 00 00 00 00 00 00 00 00 00 00 ff 20 00 01 1a 00 00 00 00 00 00 00 02 1b 19 00 00 00 00 ┆ ┆
0x51220…51240 00 00 02 1b 18 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x51240…51260 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x6…]
0x51320…51340 00 00 00 00 e8 03 10 01 7f 12 02 11 7f 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x51340…51360 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x5…]
0x51400…51420 (65, 1, 1) 01 00 00 00 00 00 00 00 01 02 00 00 00 00 00 00 00 03 17 30 0e 00 00 00 00 00 01 0f 00 00 00 00 ┆ 0 ┆
0x51420…51440 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x5…]
0x514e0…51500 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 e8 03 10 01 7f 12 02 11 ┆ ┆
0x51500…51520 7f 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x51520…51540 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x5…]
0x515e0…51600 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0d 50 68 69 6c 69 ┆ Phili┆
0x51600…51620 (65, 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 ┆ ┆
[…0xf…]
0x51800…51820 (65, 1, 3) 10 01 7f 12 02 11 7f 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x51820…51840 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x5…]
0x518e0…51900 00 00 00 00 18 49 43 4c 20 43 6f 6d 65 74 20 28 46 34 20 2b 20 43 68 61 72 67 65 6e 29 46 34 20 ┆ ICL Comet (F4 + Chargen)F4 ┆
0x51900…51920 52 4f 4d 29 4f 18 02 1b 3d 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ff 20 00 01 1a 00 00 ┆ROM)O = ┆
0x51920…51940 00 00 00 00 00 02 1b 19 00 00 00 00 00 00 02 1b 18 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x51940…51960 00 00 00 00 00 00 00 00 00 02 1b 15 00 00 00 00 00 00 02 1b 16 00 00 00 00 00 00 02 1b 15 00 00 ┆ ┆
0x51960…51980 00 00 00 00 02 1b 16 00 00 00 00 00 00 02 1b 15 00 00 00 00 00 00 02 1b 16 00 00 00 00 00 00 02 ┆ ┆
0x51980…519a0 1b 15 00 00 00 00 00 00 02 1b 16 00 00 00 00 00 00 02 1b 16 1b 13 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x519a0…519c0 00 00 00 00 00 00 00 00 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…]
0x51a00…51a20 (65, 1, 4) 70 73 20 32 30 30 30 43 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 4f 18 02 1b 59 00 ┆ps 2000C O Y ┆
0x51a20…51a40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 20 00 01 0c 1b 6b 00 00 00 00 00 02 1b 6b 00 00 ┆ k k ┆
0x51a40…51a60 00 00 00 00 02 1b 4b 00 00 00 00 00 00 02 1b 4c 00 00 00 00 00 00 02 1b 6c 00 00 00 00 00 00 03 ┆ K L l ┆
0x51a60…51a80 1b 30 50 00 00 00 00 00 03 1b 30 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ 0P 0@ ┆
0x51a80…51aa0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x5…]
0x51b40…51b60 00 00 00 00 00 00 e8 03 10 01 7f 12 02 11 7f 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x51b60…51b80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x15…]
0x51e20…51e40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 e8 03 10 01 7f 12 02 11 7f 17 01 1b 00 00 00 00 ┆ ┆
0x51e40…51e60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0xf…]
0x52040…52060 00 00 00 00 00 00 00 00 11 41 64 6c 65 72 20 41 6c 70 68 61 74 72 6f 6e 69 63 00 00 00 00 00 00 ┆ Adler Alphatronic ┆
0x52060…52080 00 00 00 00 00 00 00 00 4f 18 02 1b 59 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 20 00 ┆ O Y ┆
0x52080…520a0 02 1b 45 00 00 00 00 00 00 02 1b 4a 00 00 00 00 00 00 02 1b 4b 00 00 00 00 00 00 00 00 00 00 00 ┆ E J K ┆
0x520a0…520c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x6…]
0x52180…521a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 e8 03 10 01 7f 12 02 11 7f 00 00 00 ┆ ┆
0x521a0…521c0 00 00 00 00 00 00 00 00 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…]
0x52200…52220 (65, 1, 8) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 50 68 69 ┆ Phi┆
0x52220…52240 6c 69 70 73 20 32 30 30 30 43 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 4f 18 02 1b ┆lips 2000C O ┆
0x52240…52260 59 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 20 00 01 0c 1b 6b 00 00 00 00 00 02 1b 6b ┆Y k k┆
0x52260…52280 00 00 00 00 00 00 02 1b 4b 00 00 00 00 00 00 02 1b 4c 00 00 00 00 00 00 02 1b 6c 00 00 00 00 00 ┆ K L l ┆
0x52280…522a0 00 03 1b 30 50 00 00 00 00 00 03 1b 30 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ 0P 0@ ┆
0x522a0…522c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x5…]
0x52360…52380 00 00 00 00 00 00 00 00 e8 03 10 01 08 12 02 11 48 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ H ┆
0x52380…523a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x17…]
0x52680…526a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0c 53 70 65 63 74 72 61 56 69 ┆ SpectraVi┆
0x526a0…526c0 64 65 6f 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 4f 18 02 1b 59 00 00 00 00 00 ┆deo O Y ┆
0x526c0…526e0 00 00 00 00 00 00 00 00 00 00 00 00 20 00 02 1b 45 00 00 00 00 00 00 02 1b 4a 00 00 00 00 00 00 ┆ E J ┆
0x526e0…52700 02 1b 4b 00 00 00 00 00 00 02 1b 4c 00 00 00 00 00 00 02 1b 4d 00 00 00 00 00 00 02 1b 70 00 00 ┆ K L M p ┆
0x52700…52720 00 00 00 00 02 1b 71 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ q ┆
0x52720…52740 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x5…]
0x527e0…52800 00 00 e8 03 08 01 1e 09 01 1f 02 01 1d 03 01 1c 0a 02 11 1e 0b 02 11 1f 06 02 11 1d 07 02 11 1c ┆ ┆
0x52800…52820 (66, 0, 1) 00 00 00 00 00 00 00 00 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…]
0x52860…52880 00 00 00 00 00 00 00 00 00 00 00 50 68 69 6c 69 70 73 20 32 30 30 30 43 00 00 00 00 00 00 00 00 ┆ Philips 2000C ┆
0x52880…528a0 00 00 00 00 00 00 00 00 00 00 4f 18 02 1b 59 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ O Y ┆
0x528a0…528c0 20 00 01 0c 1b 6b 00 00 00 00 00 02 1b 6b 00 00 00 00 00 00 02 1b 4b 00 00 00 00 00 00 02 1b 4c ┆ k k K L┆
0x528c0…528e0 00 00 00 00 00 00 02 1b 6c 00 00 00 00 00 00 03 1b 30 50 00 00 00 00 00 03 1b 30 40 00 00 00 00 ┆ l 0P 0@ ┆
0x528e0…52900 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x5…]
0x529a0…529c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 e8 03 10 01 08 12 02 11 48 00 ┆ H ┆
0x529c0…529e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x26…]
0x52ea0…52ec0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 50 68 69 6c 69 70 73 ┆ Philips┆
0x52ec0…52ee0 20 32 30 30 30 43 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 4f 18 02 1b 59 00 00 00 ┆ 2000C O Y ┆
0x52ee0…52f00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 20 00 01 0c 1b 6b 00 00 00 00 00 02 1b 6b 00 00 00 00 ┆ k k ┆
0x52f00…52f20 00 00 02 1b 4b 00 00 00 00 00 00 02 1b 4c 00 00 00 00 00 00 02 1b 6c 00 00 00 00 00 00 03 1b 30 ┆ K L l 0┆
0x52f20…52f40 50 00 00 00 00 00 03 1b 30 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆P 0@ ┆
0x52f40…52f60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x5…]
0x53000…53020 (66, 0, 5) 7c 06 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 ┆ø / 0 : p # ü # +>0 w ┆
0x53020…53040 dd 23 c9 fd e5 2c 2d 20 0e 06 0c fd 36 00 30 fd 23 10 f8 af c3 b5 11 c5 cb b8 7d d9 d6 80 6f 9f ┆ # ,- 6 0 # å o ┆
0x53040…53060 67 11 4d 00 cd 32 07 11 05 00 19 7c fe d9 20 01 3c fd 77 00 ed 44 cd 7d 12 7d fe 81 30 06 cd f0 ┆g M 2 ø < w D å å 0 ┆
0x53060…53080 12 fd 35 00 cb f8 3e 84 95 2e 00 28 08 cd b2 0b cb 1d 3d 20 f8 fd 7e 00 f5 3e 0c 08 78 1f 1f 1f ┆ 5 > . ( = ü > x ┆
0x53080…530a0 1f e6 0f c6 30 fd 77 00 fd 23 78 e6 0f 47 c5 d5 e5 cb 25 cd bf 0b cb 25 cd bf 0b eb e3 19 d1 e3 ┆ 0 w #x G % % ┆
0x530a0…530c0 ed 5a eb e1 e3 ed 4a 44 4d e1 cb 25 cd bf 0b 08 3d 20 c8 f1 c1 fd e1 c9 fd e5 e1 5f 16 00 19 7e ┆ Z JDM % = _ ü┆
0x530c0…530e0 36 00 fe 35 d8 1d fa d4 11 2b 7e 3c 77 fe 3a d8 36 00 18 f1 36 31 23 36 00 0c c9 d9 01 00 00 d9 ┆6 5 +ü<w : 6 61#6 ┆
0x530e0…53100 cd aa 0b dd 7e 00 cd 7b 04 fe 2e 20 0c d9 cb 70 37 c0 cb f0 d9 dd 23 18 ea fe 45 28 21 cd 71 12 ┆ ü æ . p7 # E(! q ┆
0x53100…53120 30 54 08 cd f0 12 d8 08 d9 c5 6f 26 00 cd 40 10 cd 21 0a d9 c1 d8 cb 70 28 01 0d d9 18 d7 cd 56 ┆0T o& @ ! p( V┆
0x53120…53140 12 d8 d9 cb e0 dd 23 dd 7e 00 fe 2b 28 06 fe 2d 20 04 cb e8 dd 23 cd 6e 12 3f d8 4f dd 23 cd 6e ┆ # ü +( - # n ? O # n┆
0x53140…53160 12 30 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 ┆ 0 #Wy O h( y DO y Z ?┆
0x53160…53180 d8 c5 dd e5 79 cd 7d 12 dd e1 d9 c1 d9 c9 dd 7e 00 d6 30 3f d0 fe 0a c9 7d cd be 0f d9 f5 b7 f2 ┆ y å ü 0? å ┆
0x53180…531a0 84 12 ed 44 f5 cb 3f cb 3f 3c 21 fa ff 11 06 00 19 3d 20 fc eb dd 21 b4 12 dd 19 cd ab 0f f1 e6 ┆ D ? ?<! = ! ┆
0x531a0…531c0 03 28 08 f5 cd f0 12 f1 3d 20 f8 f1 b7 f2 cf 0a d9 c3 2d 0b 81 00 00 00 00 00 8e 00 00 00 40 1c ┆ ( = - @ ┆
0x531c0…531e0 9b 00 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 ┆ > h x- S ┆
0x531e0…53200 78 39 3f 01 eb 2b a8 ad c5 1d f8 c9 7b ce 97 40 7d b7 c8 cb f8 c5 d5 7c cd b2 0b cd b2 0b 84 67 ┆x9? + æ @å ø g┆
0x53200…53400 (66, 0, 6) DataBlock {»INSTALL.COM«}
0x53400…53420 (66, 0, 7) 00 00 00 00 e8 03 10 01 08 12 02 11 48 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ H ┆
0x53420…53440 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0xe…]
0x53600…53620 (66, 0, 8) e3 ed 5a eb e1 e3 ed 4a 44 4d e1 30 06 cd b3 0b 2c 37 c8 7d c6 03 6f cb b8 c9 0e 01 18 02 0e 00 ┆ Z JDM 0 ,7 å o ┆
0x53620…53640 cd 7c 13 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 ┆ ø # y O!@ 9 i& ┆
0x53640…53660 7c 13 0d 20 01 eb 0e 00 1a b6 be 20 e2 23 13 10 f7 0e 01 18 da cd 7c 13 1a b6 77 23 13 10 f9 eb ┆ø # ø w# ┆
0x53660…53680 f9 dd e9 cd 7c 13 1a 2f a6 77 23 13 10 f8 18 ef cd 7c 13 1a a6 77 23 13 10 f9 18 e3 fd e1 dd e1 ┆ ø / w# ø w# ┆
0x53680…536a0 21 00 00 39 eb 21 20 00 45 39 fd e9 dd e1 21 20 00 39 46 cd f7 05 a6 21 22 00 39 f9 21 00 00 28 ┆! 9 ! E9 ! 9F !" 9 ! (┆
0x536a0…536c0 01 23 dd e9 3e af 32 f6 00 fd e1 2a e2 00 06 10 cd 1f 06 af 12 e1 22 f0 00 fd e5 7c b7 20 06 3e ┆ # > 2 * " ø >┆
0x536c0…536e0 12 32 e0 00 c9 3a f6 00 b7 28 0a cd eb 13 20 05 2a f0 00 77 c9 cd c7 03 2a f0 00 36 00 11 0c 00 ┆ 2 : ( * w * 6 ┆
0x536e0…53700 19 eb 21 5c 00 01 24 00 ed b0 c9 06 06 21 1b 14 c5 e5 06 03 ed 5b e2 00 13 1a fe 20 28 fa 1a cd ┆ !Ø $ ! Æ ( ┆
0x53700…53720 7b 04 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 4f 4e c1 54 ┆æ ( # : ü CON T┆
0x53720…53740 52 4d c1 4b 42 44 82 4c 53 54 43 41 55 58 c4 55 53 52 c5 3e af 32 f6 00 cd 9e 14 3a e0 00 b7 c0 ┆RM KBD LSTCAUX USR > 2 : ┆
0x53740…53760 2a f0 00 cb ae 7e e6 0f c0 cd 65 14 3a e0 00 b7 c0 2a f0 00 3a f6 00 b7 01 80 80 28 03 01 40 00 ┆* ü e : * : ( @ ┆
0x53760…53780 71 23 23 70 c9 cd 8f 14 2a f0 00 11 0c 00 19 eb 3a f6 00 b7 01 0f 02 28 0a d5 0e 13 cd 05 00 d1 ┆q##p * : ( ┆
0x53780…537a0 01 16 03 c5 cd 05 00 c1 3c c0 78 32 e0 00 c9 2a f0 00 11 18 00 19 06 18 36 00 23 10 fb c9 22 f0 ┆ < x2 * 6 # " ┆
0x537a0…537c0 00 7e e6 0f c0 cb 76 28 0a 3e 1a cd ea 16 cd 30 17 18 03 cb 7e c8 2a f0 00 e5 11 0c 00 19 eb 0e ┆ ü v( > 0 ü * ┆
0x537c0…537e0 10 cd 05 00 e1 3c 20 05 3e 04 32 e0 00 36 00 c9 e3 22 f2 00 e3 e5 21 d2 00 22 f0 00 e1 c9 e3 22 ┆ < > 2 6 " ! " "┆
0x537e0…53800 f2 00 e3 22 f0 00 cb 7e c0 3e 05 32 e0 00 c9 e3 22 f2 00 e3 22 f0 00 cb 76 c0 3e 06 32 e0 00 c9 ┆ " ü > 2 " " v > 2 ┆
0x53800…53a00 (66, 0, 9) DataBlock {»INSTALL.COM«}
0x53a00…53a20 (66, 0, 10) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0xf…]
0x53c00…53e00 (67, 1, 1) DataBlock {»INSTALL.COM«}
[…0x14…]
0x56600…56620 (69, 1, 2) 75 74 20 74 68 65 20 72 75 6e 2d 74 69 6d 65 20 70 61 63 6b 61 67 65 2e 20 20 54 68 65 20 63 6f ┆ut the run-time package. The co┆
0x56620…56640 6d 6d 61 6e 64 20 0d 0a 6c 69 6e 65 20 66 6f 72 6d 61 74 20 69 73 3a 0d 0a 0d 0a 20 20 20 20 20 ┆mmand line format is: ┆
0x56640…56660 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4f 42 4a 45 43 54 20 3c 66 69 6c 65 6e 61 6d 65 ┆ OBJECT <filename┆
0x56660…56680 3e 2c 3c 6f 72 69 67 69 6e 3e 2c 3c 74 6f 70 3e 0d 0a 0d 0a 54 68 65 20 66 69 6c 65 20 74 79 70 ┆>,<origin>,<top> The file typ┆
0x56680…566a0 65 20 64 65 66 61 75 6c 74 73 20 74 6f 20 27 2e 43 48 4e 27 20 28 73 68 6f 72 74 20 66 6f 72 20 ┆e defaults to '.CHN' (short for ┆
0x566a0…566c0 63 68 61 69 6e 29 2e 20 20 49 66 20 3c 66 69 6c 65 6e 61 6d 65 3e 20 69 73 20 6f 6d 69 74 2d 0d ┆chain). If <filename> is omit- ┆
0x566c0…566e0 0a 74 65 64 2c 20 20 74 68 65 20 77 6f 72 6b 66 69 6c 65 20 6e 61 6d 65 20 69 73 20 75 73 65 64 ┆ ted, the workfile name is used┆
0x566e0…56700 2c 20 20 77 69 74 68 20 69 74 73 20 74 79 70 65 20 63 68 61 6e 67 65 64 20 74 6f 20 27 2e 43 48 ┆, with its type changed to '.CH┆
0x56700…56720 4e 27 2e 20 3c 6f 72 69 67 69 6e 3e 20 0d 0a 61 6e 64 20 3c 74 6f 70 3e 20 61 72 65 20 68 65 78 ┆N'. <origin> and <top> are hex┆
0x56720…56740 20 6e 75 6d 62 65 72 73 20 28 75 70 20 74 6f 20 66 6f 75 72 20 68 65 78 20 64 69 67 69 74 73 29 ┆ numbers (up to four hex digits)┆
0x56740…56760 2e 20 20 41 6e 79 20 6f 6e 65 20 6f 66 20 74 68 65 20 20 70 61 72 61 6d 65 2d 0d 0a 74 65 72 73 ┆. Any one of the parame- ters┆
0x56760…56780 20 6d 61 79 20 62 65 20 6f 6d 69 74 74 65 64 2c 20 66 6f 72 20 69 6e 73 74 61 6e 63 65 20 27 4f ┆ may be omitted, for instance 'O┆
0x56780…567a0 42 4a 45 43 54 20 54 45 53 54 27 20 6f 72 20 27 4f 42 4a 45 43 54 20 2c 2c 43 30 30 30 27 2e 0d ┆BJECT TEST' or 'OBJECT ,,C000'. ┆
0x567a0…567c0 0a 0d 0a 3c 6f 72 69 67 69 6e 3e 20 73 70 65 63 69 66 69 65 73 20 74 68 65 20 73 74 61 72 74 20 ┆ <origin> specifies the start ┆
0x567c0…567e0 61 64 64 72 65 73 73 20 6f 66 20 74 68 65 20 6f 62 6a 65 63 74 20 63 6f 64 65 2e 20 20 49 66 20 ┆address of the object code. If ┆
0x567e0…56800 69 74 20 69 73 20 6f 6d 69 74 74 65 64 2c 20 0d 0a 74 68 65 20 20 65 6e 64 20 61 64 64 72 65 73 ┆it is omitted, the end addres┆
0x56800…56820 (69, 1, 3) 63 63 65 73 73 66 75 6c 20 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 2c 20 20 6f 72 20 69 66 20 74 68 ┆ccessful compilation, or if th┆
0x56820…56840 65 20 70 72 6f 67 72 61 6d 20 63 6f 64 65 20 20 77 61 73 20 20 61 6c 72 65 61 64 79 20 0d 0a 70 ┆e program code was already p┆
0x56840…56860 72 65 73 65 6e 74 2c 20 20 74 68 65 20 70 72 6f 67 72 61 6d 20 69 73 20 73 74 61 72 74 65 64 2e ┆resent, the program is started.┆
0x56860…56880 20 20 57 68 65 6e 20 69 74 20 65 6e 64 73 2c 20 69 74 20 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 ┆ When it ends, it automatically┆
0x56880…568a0 20 74 72 61 6e 73 66 65 72 73 20 0d 0a 63 6f 6e 74 72 6f 6c 20 74 6f 20 74 68 65 20 63 6f 6d 6d ┆ transfers control to the comm┆
0x568a0…568c0 61 6e 64 20 6d 6f 64 65 2e 0d 0a 0d 0a 49 66 20 20 61 20 20 72 75 6e 20 74 69 6d 65 20 65 72 72 ┆and mode. If a run time err┆
0x568c0…568e0 6f 72 20 6f 63 63 75 72 73 2c 20 20 74 68 65 20 70 72 6f 67 72 61 6d 20 77 69 6c 6c 20 74 65 72 ┆or occurs, the program will ter┆
0x568e0…56900 6d 69 6e 61 74 65 20 64 69 73 70 6c 61 79 69 6e 67 20 61 20 20 72 75 6e 20 0d 0a 74 69 6d 65 20 ┆minate displaying a run time ┆
0x56900…56920 65 72 72 6f 72 20 6d 65 73 73 61 67 65 2c 20 66 6f 72 20 69 6e 73 74 61 6e 63 65 3a 0d 0a 0d 0a ┆error message, for instance: ┆
0x56920…56940 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 58 45 43 55 54 49 4f 4e ┆ EXECUTION┆
0x56940…56960 20 45 52 52 4f 52 20 30 34 20 41 54 20 50 43 3d 32 35 34 45 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆ ERROR 04 AT PC=254E ┆
0x56960…56980 20 20 20 20 20 20 20 20 20 20 20 20 20 50 72 6f 67 72 61 6d 20 74 65 72 6d 69 6e 61 74 65 64 0d ┆ Program terminated ┆
0x56980…569a0 0a 0d 0a 59 6f 75 20 20 6d 61 79 20 74 68 65 6e 20 75 73 65 20 74 68 65 20 46 49 4e 44 20 63 6f ┆ You may then use the FIND co┆
0x569a0…569c0 6d 6d 61 6e 64 20 74 6f 20 6c 6f 63 61 74 65 20 74 68 65 20 73 74 61 74 65 6d 65 6e 74 20 74 68 ┆mmand to locate the statement th┆
0x569c0…569e0 61 74 20 63 61 75 73 65 64 20 20 74 68 65 20 0d 0a 65 72 72 6f 72 20 28 73 65 65 20 27 48 45 4c ┆at caused the error (see 'HEL┆
0x569e0…56a00 50 20 46 49 4e 44 27 20 73 63 72 65 65 6e 29 2e 0d 0a 0d 0a 25 50 50 6f 6c 79 50 61 73 63 61 6c ┆P FIND' screen). %PPolyPascal┆
0x56a00…56c00 (69, 1, 4) DataBlock {»INSTALL.COM«}
0x56c00…56c20 (69, 1, 5) 73 20 6f 66 20 74 68 65 20 72 75 6e 2d 74 69 6d 65 20 6c 69 62 72 61 72 79 20 69 73 20 61 73 73 ┆s of the run-time library is ass┆
0x56c20…56c40 75 6d 65 64 2e 20 20 3c 74 6f 70 3e 20 20 73 70 65 63 69 66 69 65 73 20 20 74 68 65 20 0d 0a 61 ┆umed. <top> specifies the a┆
0x56c40…56c60 64 64 72 65 73 73 20 6f 66 20 74 6f 70 20 6f 66 20 6d 65 6d 6f 72 79 20 66 6f 72 20 74 68 65 20 ┆ddress of top of memory for the ┆
0x56c60…56c80 70 72 6f 67 72 61 6d 2e 20 20 50 72 6f 67 72 61 6d 73 20 77 69 6c 6c 20 6e 65 76 65 72 20 61 63 ┆program. Programs will never ac┆
0x56c80…56ca0 63 65 73 73 20 6c 6f 63 61 2d 0d 0a 74 69 6f 6e 73 20 61 62 6f 76 65 20 74 68 69 73 20 61 64 64 ┆cess loca- tions above this add┆
0x56ca0…56cc0 72 65 73 73 2e 0d 0a 0d 0a 4f 62 6a 65 63 74 20 20 28 63 68 61 69 6e 29 20 66 69 6c 65 73 20 6d ┆ress. Object (chain) files m┆
0x56cc0…56ce0 61 79 20 6f 6e 6c 79 20 62 65 20 61 63 74 69 76 61 74 65 64 20 74 68 72 6f 75 67 68 20 74 68 65 ┆ay only be activated through the┆
0x56ce0…56d00 20 63 68 61 69 6e 20 70 72 6f 63 65 64 75 72 65 20 20 6f 66 20 0d 0a 50 6f 6c 79 50 61 73 63 61 ┆ chain procedure of PolyPasca┆
0x56d00…56d20 6c 2e 20 20 46 6f 72 20 20 66 75 72 74 68 65 72 20 64 65 74 61 69 6c 73 20 6f 6e 20 70 72 6f 67 ┆l. For further details on prog┆
0x56d20…56d40 72 61 6d 20 63 68 61 69 6e 69 6e 67 2c 20 20 70 6c 65 61 73 65 20 72 65 66 65 72 20 74 6f 20 74 ┆ram chaining, please refer to t┆
0x56d40…56d60 68 65 20 0d 0a 50 6f 6c 79 50 61 73 63 61 6c 20 50 72 6f 67 72 61 6d 6d 69 6e 67 20 4d 61 6e 75 ┆he PolyPascal Programming Manu┆
0x56d60…56d80 61 6c 2e 0d 0a 0d 0a 25 46 50 6f 6c 79 50 61 73 63 61 6c 20 4f 6e 2d 4c 69 6e 65 20 48 65 6c 70 ┆al. %FPolyPascal On-Line Help┆
0x56d80…56da0 3a 20 54 68 65 20 46 49 4e 44 20 43 6f 6d 6d 61 6e 64 2e 0d 0a 0d 0a 54 68 65 20 20 46 49 4e 44 ┆: The FIND Command. The FIND┆
0x56da0…56dc0 20 20 63 6f 6d 6d 61 6e 64 20 69 73 20 75 73 65 64 20 74 6f 20 6c 6f 63 61 74 65 20 61 20 73 74 ┆ command is used to locate a st┆
0x56dc0…56de0 61 74 65 6d 65 6e 74 20 69 6e 20 74 68 65 20 73 6f 75 72 63 65 20 20 74 65 78 74 20 20 77 68 69 ┆atement in the source text whi┆
0x56de0…56e00 63 68 20 0d 0a 63 6f 72 72 65 73 70 6f 6e 64 73 20 20 74 6f 20 20 61 6e 20 6f 66 66 73 65 74 20 ┆ch corresponds to an offset ┆
0x56e00…56e20 (69, 1, 6) 20 4f 6e 2d 4c 69 6e 65 20 48 65 6c 70 3a 20 54 68 65 20 50 52 4f 47 52 41 4d 20 43 6f 6d 6d 61 ┆ On-Line Help: The PROGRAM Comma┆
0x56e20…56e40 6e 64 2e 0d 0a 0d 0a 54 68 65 20 50 52 4f 47 52 41 4d 20 63 6f 6d 6d 61 6e 64 20 69 73 20 75 73 ┆nd. The PROGRAM command is us┆
0x56e40…56e60 65 64 20 74 6f 20 63 6f 6d 70 69 6c 65 20 74 68 65 20 70 72 6f 67 72 61 6d 20 69 6e 74 6f 20 61 ┆ed to compile the program into a┆
0x56e60…56e80 20 63 6f 6d 6d 61 6e 64 20 66 69 6c 65 20 6f 6e 20 61 0d 0a 64 69 73 6b 2e 20 54 68 65 20 63 6f ┆ command file on a disk. The co┆
0x56e80…56ea0 6d 6d 61 6e 64 20 6c 69 6e 65 20 66 6f 72 6d 61 74 73 20 69 73 3a 0d 0a 0d 0a 20 20 20 20 20 20 ┆mmand line formats is: ┆
0x56ea0…56ec0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 52 4f 47 52 41 4d 20 3c 66 69 6c 65 6e 61 6d 65 ┆ PROGRAM <filename┆
0x56ec0…56ee0 3e 2c 3c 6f 72 69 67 69 6e 3e 2c 3c 74 6f 70 3e 0d 0a 0d 0a 54 68 65 20 20 66 69 6c 65 20 74 79 ┆>,<origin>,<top> The file ty┆
0x56ee0…56f00 70 65 20 64 65 66 61 75 6c 74 73 20 74 6f 20 27 2e 43 4f 4d 27 2e 20 20 49 66 20 3c 66 69 6c 65 ┆pe defaults to '.COM'. If <file┆
0x56f00…56f20 6e 61 6d 65 3e 20 69 73 20 6f 6d 69 74 74 65 64 2c 20 20 74 68 65 20 77 6f 72 6b 66 69 6c 65 20 ┆name> is omitted, the workfile ┆
0x56f20…56f40 0d 0a 6e 61 6d 65 20 69 73 20 75 73 65 64 2c 20 20 77 69 74 68 20 69 74 73 20 74 79 70 65 20 63 ┆ name is used, with its type c┆
0x56f40…56f60 68 61 6e 67 65 64 20 74 6f 20 27 2e 43 4f 4d 27 2e 20 20 3c 6f 72 69 67 69 6e 3e 20 61 6e 64 20 ┆hanged to '.COM'. <origin> and ┆
0x56f60…56f80 3c 74 6f 70 3e 20 61 72 65 20 68 65 78 20 0d 0a 6e 75 6d 62 65 72 73 20 28 75 70 20 74 6f 20 66 ┆<top> are hex numbers (up to f┆
0x56f80…56fa0 6f 75 72 20 68 65 78 20 64 69 67 69 74 73 29 2e 20 20 41 6e 79 20 6f 6e 65 20 6f 66 20 74 68 65 ┆our hex digits). Any one of the┆
0x56fa0…56fc0 20 70 61 72 61 6d 65 74 65 72 73 20 6d 61 79 20 62 65 20 6f 6d 69 74 74 65 64 2c 20 0d 0a 66 6f ┆ parameters may be omitted, fo┆
0x56fc0…56fe0 72 20 69 6e 73 74 61 6e 63 65 20 27 50 52 4f 47 52 41 4d 20 54 45 53 54 27 20 6f 72 20 27 50 52 ┆r instance 'PROGRAM TEST' or 'PR┆
0x56fe0…57000 4f 47 52 41 4d 20 2c 2c 43 30 30 30 27 2e 0d 0a 0d 0a 3c 6f 72 69 67 69 6e 3e 20 73 70 65 63 69 ┆OGRAM ,,C000'. <origin> speci┆
0x57000…57020 (69, 1, 7) 6e 64 20 66 6f 6c 6c 6f 77 69 6e 67 20 61 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 20 0d 0a 74 68 61 ┆nd following a compilation tha┆
0x57020…57040 74 20 77 65 6e 74 20 77 72 6f 6e 67 2c 20 79 6f 75 20 61 72 65 20 74 61 6b 65 6e 20 74 6f 20 74 ┆t went wrong, you are taken to t┆
0x57040…57060 68 65 20 70 6c 61 63 65 20 6f 66 20 74 68 65 20 65 72 72 6f 72 2e 0d 0a 0d 0a 25 43 50 6f 6c 79 ┆he place of the error. %CPoly┆
0x57060…57080 50 61 73 63 61 6c 20 4f 6e 2d 4c 69 6e 65 20 48 65 6c 70 3a 20 54 68 65 20 43 4f 4d 50 49 4c 45 ┆Pascal On-Line Help: The COMPILE┆
0x57080…570a0 20 43 6f 6d 6d 61 6e 64 2e 0d 0a 0d 0a 57 68 65 6e 20 20 74 68 65 20 63 6f 6d 70 69 6c 65 72 20 ┆ Command. When the compiler ┆
0x570a0…570c0 69 73 20 69 6e 76 6f 6b 65 64 20 66 72 6f 6d 20 61 20 43 4f 4d 50 49 4c 45 20 63 6f 6d 6d 61 6e ┆is invoked from a COMPILE comman┆
0x570c0…570e0 64 2c 20 20 74 68 65 20 70 72 6f 67 72 61 6d 20 63 6f 64 65 20 20 69 73 20 0d 0a 73 74 6f 72 65 ┆d, the program code is store┆
0x570e0…57100 64 20 64 69 72 65 63 74 6c 79 20 69 6e 74 6f 20 6d 65 6d 6f 72 79 2e 0d 0a 0d 0a 46 6f 6c 6c 6f ┆d directly into memory. Follo┆
0x57100…57120 77 69 6e 67 20 20 61 20 20 73 75 63 63 65 73 73 66 75 6c 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 2c ┆wing a successful compilation,┆
0x57120…57140 20 20 79 6f 75 20 61 72 65 20 69 6e 66 6f 72 6d 65 64 20 6f 66 20 74 68 65 20 73 69 7a 65 20 6f ┆ you are informed of the size o┆
0x57140…57160 66 20 20 74 68 65 20 0d 0a 6f 62 6a 65 63 74 20 63 6f 64 65 2c 20 74 68 65 20 73 69 7a 65 20 6f ┆f the object code, the size o┆
0x57160…57180 66 20 66 72 65 65 20 6d 65 6d 6f 72 79 2c 20 61 6e 64 20 74 68 65 20 73 69 7a 65 20 6f 66 20 74 ┆f free memory, and the size of t┆
0x57180…571a0 68 65 20 64 61 74 61 20 61 72 65 61 3a 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆he data area: ┆
0x571a0…571c0 20 20 20 20 20 20 20 20 43 6f 64 65 3a 20 72 72 72 72 72 20 62 79 74 65 73 20 28 61 61 61 61 2d ┆ Code: rrrrr bytes (aaaa-┆
0x571c0…571e0 62 62 62 62 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 61 ┆bbbb) Da┆
0x571e0…57200 74 61 3a 20 73 73 73 73 73 20 62 79 74 65 73 20 28 63 63 63 63 2d 64 64 64 64 29 0d 0a 20 20 20 ┆ta: sssss bytes (cccc-dddd) ┆
0x57200…57220 (69, 1, 8) 61 64 64 72 65 73 73 20 69 6e 20 74 68 65 20 70 72 6f 67 72 61 6d 20 63 6f 64 65 2e 20 20 54 68 ┆address in the program code. Th┆
0x57220…57240 65 20 20 63 6f 6d 6d 61 6e 64 20 20 6c 69 6e 65 20 0d 0a 66 6f 72 6d 61 74 20 69 73 3a 0d 0a 0d ┆e command line format is: ┆
0x57240…57260 0a 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 ┆ ┆
0x57260…57280 46 49 4e 44 20 3c 6f 66 66 73 65 74 3e 0d 0a 0d 0a 77 68 65 72 65 20 20 3c 6f 66 66 73 65 74 3e ┆FIND <offset> where <offset>┆
0x57280…572a0 20 69 73 20 74 68 65 20 6f 66 66 73 65 74 20 61 64 64 72 65 73 73 20 6f 66 20 74 68 65 20 73 74 ┆ is the offset address of the st┆
0x572a0…572c0 61 74 65 6d 65 6e 74 20 74 6f 20 62 65 20 20 6c 6f 63 61 74 65 64 2e 20 20 54 68 65 20 0d 0a 6f ┆atement to be located. The o┆
0x572c0…572e0 66 66 73 65 74 20 61 64 64 72 65 73 73 20 6d 75 73 74 20 62 65 20 73 70 65 63 69 66 69 65 64 20 ┆ffset address must be specified ┆
0x572e0…57300 69 6e 20 68 65 78 20 28 75 70 20 74 6f 20 66 6f 75 72 20 68 65 78 20 20 64 69 67 69 74 73 29 2e ┆in hex (up to four hex digits).┆
0x57300…57320 20 20 3c 6f 66 66 73 65 74 3e 20 0d 0a 6d 61 79 20 62 65 20 6f 6d 69 74 74 65 64 2c 20 69 6e 20 ┆ <offset> may be omitted, in ┆
0x57320…57340 77 68 69 63 68 20 63 61 73 65 20 69 74 20 64 65 66 61 75 6c 74 73 20 74 6f 20 74 68 65 20 6f 66 ┆which case it defaults to the of┆
0x57340…57360 66 73 65 74 20 61 64 64 72 65 73 73 20 6f 66 20 74 68 65 20 6c 61 73 74 20 0d 0a 72 75 6e 20 74 ┆fset address of the last run t┆
0x57360…57380 69 6d 65 20 65 72 72 6f 72 2e 20 54 68 75 73 2c 20 74 6f 20 6c 6f 63 61 74 65 20 74 68 65 20 73 ┆ime error. Thus, to locate the s┆
0x57380…573a0 74 61 74 65 6d 65 6e 74 20 74 68 61 74 20 63 61 75 73 65 64 20 61 20 72 75 6e 20 74 69 6d 65 20 ┆tatement that caused a run time ┆
0x573a0…573c0 65 72 72 6f 72 2c 20 0d 0a 73 69 6d 70 6c 79 20 65 6e 74 65 72 20 27 46 49 4e 44 27 2e 0d 0a 0d ┆error, simply enter 'FIND'. ┆
0x573c0…573e0 0a 49 66 20 20 74 68 65 20 6f 66 66 73 65 74 20 61 64 64 72 65 73 73 20 69 73 20 66 6f 75 6e 64 ┆ If the offset address is found┆
0x573e0…57400 2c 20 20 74 68 65 20 63 6f 6d 70 69 6c 65 72 20 73 74 6f 70 73 20 61 6e 64 20 64 69 73 70 6c 61 ┆, the compiler stops and displa┆
0x57400…57420 (69, 1, 9) 66 69 65 73 20 74 68 65 20 73 74 61 72 74 20 61 64 64 72 65 73 73 20 6f 66 20 74 68 65 20 6f 62 ┆fies the start address of the ob┆
0x57420…57440 6a 65 63 74 20 63 6f 64 65 2e 20 20 49 66 20 69 74 20 69 73 20 6f 6d 69 74 74 65 64 2c 20 0d 0a ┆ject code. If it is omitted, ┆
0x57440…57460 74 68 65 20 20 65 6e 64 20 61 64 64 72 65 73 73 20 6f 66 20 74 68 65 20 72 75 6e 2d 74 69 6d 65 ┆the end address of the run-time┆
0x57460…57480 20 6c 69 62 72 61 72 79 20 69 73 20 61 73 73 75 6d 65 64 2e 20 20 3c 74 6f 70 3e 20 20 73 70 65 ┆ library is assumed. <top> spe┆
0x57480…574a0 63 69 66 69 65 73 20 20 74 68 65 20 0d 0a 61 64 64 72 65 73 73 20 6f 66 20 74 6f 70 20 6f 66 20 ┆cifies the address of top of ┆
0x574a0…574c0 6d 65 6d 6f 72 79 20 66 6f 72 20 74 68 65 20 70 72 6f 67 72 61 6d 2e 20 20 50 72 6f 67 72 61 6d ┆memory for the program. Program┆
0x574c0…574e0 73 20 77 69 6c 6c 20 6e 65 76 65 72 20 61 63 63 65 73 73 20 6c 6f 63 61 2d 0d 0a 74 69 6f 6e 73 ┆s will never access loca- tions┆
0x574e0…57500 20 61 62 6f 76 65 20 74 68 69 73 20 61 64 64 72 65 73 73 2e 0d 0a 0d 0a 57 68 65 6e 20 74 68 65 ┆ above this address. When the┆
0x57500…57520 20 70 72 6f 67 72 61 6d 20 68 61 73 20 62 65 65 6e 20 63 6f 6d 70 69 6c 65 64 2c 20 20 69 74 20 ┆ program has been compiled, it ┆
0x57520…57540 6d 61 79 20 62 65 20 65 78 65 63 75 74 65 64 20 66 72 6f 6d 20 43 50 2f 4d 20 73 69 6d 70 6c 79 ┆may be executed from CP/M simply┆
0x57540…57560 20 62 79 20 0d 0a 74 79 70 69 6e 67 20 69 74 73 20 6e 61 6d 65 2e 0d 0a 0d 0a 25 4f 50 6f 6c 79 ┆ by typing its name. %OPoly┆
0x57560…57580 50 61 73 63 61 6c 20 4f 6e 2d 4c 69 6e 65 20 48 65 6c 70 3a 20 54 68 65 20 4f 42 4a 45 43 54 20 ┆Pascal On-Line Help: The OBJECT ┆
0x57580…575a0 43 6f 6d 6d 61 6e 64 2e 0d 0a 0d 0a 54 68 65 20 20 4f 42 4a 45 43 54 20 63 6f 6d 6d 61 6e 64 20 ┆Command. The OBJECT command ┆
0x575a0…575c0 70 72 6f 64 75 63 65 73 20 61 6e 20 6f 62 6a 65 63 74 20 66 69 6c 65 20 77 68 69 63 68 20 63 6f ┆produces an object file which co┆
0x575c0…575e0 6e 74 61 69 6e 73 20 6f 6e 6c 79 20 74 68 65 20 20 61 63 74 75 61 6c 20 0d 0a 70 72 6f 67 72 61 ┆ntains only the actual progra┆
0x575e0…57600 6d 20 63 6f 64 65 2c 20 20 69 2e 65 2e 20 20 61 20 63 6f 64 65 20 66 69 6c 65 20 77 69 74 68 6f ┆m code, i.e. a code file witho┆
0x57600…57620 (69, 1, 10) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 46 72 65 65 3a 20 74 74 74 74 74 20 ┆ Free: ttttt ┆
0x57620…57640 62 79 74 65 73 20 28 65 65 65 65 2d 66 66 66 66 29 0d 0a 0d 0a 54 68 65 20 6e 75 6d 62 65 72 73 ┆bytes (eeee-ffff) The numbers┆
0x57640…57660 20 69 6e 20 70 61 72 65 6e 74 68 65 73 65 73 20 61 72 65 20 74 68 65 20 73 74 61 72 74 20 61 6e ┆ in parentheses are the start an┆
0x57660…57680 64 20 65 6e 64 20 61 64 64 72 65 73 73 65 73 20 28 69 6e 20 68 65 78 29 20 6f 66 20 65 61 63 68 ┆d end addresses (in hex) of each┆
0x57680…576a0 20 0d 0a 73 70 65 63 69 66 69 63 20 61 72 65 61 2e 20 20 54 68 65 20 73 69 7a 65 20 6f 66 20 74 ┆ specific area. The size of t┆
0x576a0…576c0 68 65 20 63 6f 64 65 20 73 65 63 74 69 6f 6e 20 64 6f 65 73 20 6e 6f 74 20 69 6e 63 6c 75 64 65 ┆he code section does not include┆
0x576c0…576e0 20 74 68 65 20 20 72 75 6e 2d 74 69 6d 65 20 0d 0a 6c 69 62 72 61 72 79 2e 0d 0a 0d 0a 4e 6f 74 ┆ the run-time library. Not┆
0x576e0…57700 65 20 74 68 61 74 20 77 68 65 6e 65 76 65 72 20 79 6f 75 20 69 6e 76 6f 6b 65 20 74 68 65 20 65 ┆e that whenever you invoke the e┆
0x57700…57720 64 69 74 6f 72 2c 20 74 68 65 20 70 72 6f 67 72 61 6d 20 63 6f 64 65 20 69 73 20 65 72 61 73 65 ┆ditor, the program code is erase┆
0x57720…57740 64 2e 0d 0a 0d 0a 25 52 50 6f 6c 79 50 61 73 63 61 6c 20 4f 6e 2d 4c 69 6e 65 20 48 65 6c 70 3a ┆d. %RPolyPascal On-Line Help:┆
0x57740…57760 20 54 68 65 20 52 55 4e 20 43 6f 6d 6d 61 6e 64 2e 0d 0a 0d 0a 54 68 65 20 20 52 55 4e 20 63 6f ┆ The RUN Command. The RUN co┆
0x57760…57780 6d 6d 61 6e 64 20 69 73 20 75 73 65 64 20 74 6f 20 72 75 6e 20 61 20 70 72 6f 67 72 61 6d 2e 20 ┆mmand is used to run a program. ┆
0x57780…577a0 20 49 66 20 6e 6f 20 70 72 6f 67 72 61 6d 20 63 6f 64 65 20 69 73 20 20 70 72 65 73 65 6e 74 2c ┆ If no program code is present,┆
0x577a0…577c0 20 0d 0a 74 68 65 20 63 6f 6d 70 69 6c 65 72 20 69 73 20 69 6e 76 6f 6b 65 64 20 74 6f 20 63 6f ┆ the compiler is invoked to co┆
0x577c0…577e0 6d 70 69 6c 65 20 74 68 65 20 70 72 6f 67 72 61 6d 20 28 73 65 65 20 27 48 45 4c 50 20 43 4f 4d ┆mpile the program (see 'HELP COM┆
0x577e0…57800 50 49 4c 45 27 20 73 63 72 65 65 6e 29 2e 20 0d 0a 41 73 73 75 6d 69 6e 67 20 20 61 20 20 73 75 ┆PILE' screen). Assuming a su┆
0x57800…57820 (70, 0, 1) 79 73 20 27 46 6f 75 6e 64 20 69 6e 20 0d 0a 6c 69 6e 65 20 78 78 78 27 20 66 6f 6c 6c 6f 77 65 ┆ys 'Found in line xxx' followe┆
0x57820…57840 64 20 62 79 20 27 50 72 65 73 73 20 3c 52 45 54 55 52 4e 3e 20 74 6f 20 65 64 69 74 20 6f 72 20 ┆d by 'Press <RETURN> to edit or ┆
0x57840…57860 3c 45 53 43 3e 20 74 6f 20 61 62 6f 72 74 27 2e 20 20 57 68 65 6e 20 79 6f 75 20 0d 0a 70 72 65 ┆<ESC> to abort'. When you pre┆
0x57860…57880 73 73 20 52 45 54 55 52 4e 2c 20 20 74 68 65 20 65 64 69 74 6f 72 20 69 73 20 69 6e 76 6f 6b 65 ┆ss RETURN, the editor is invoke┆
0x57880…578a0 64 2c 20 20 61 6e 64 20 74 68 65 20 63 75 72 73 6f 72 20 69 73 20 70 6c 61 63 65 64 20 61 74 20 ┆d, and the cursor is placed at ┆
0x578a0…578c0 6f 72 20 20 6a 75 73 74 20 0d 0a 61 66 74 65 72 20 20 74 68 65 20 72 65 6c 65 76 61 6e 74 20 73 ┆or just after the relevant s┆
0x578c0…578e0 65 63 74 69 6f 6e 2e 20 20 49 66 20 74 68 65 20 6f 66 66 73 65 74 20 69 73 20 6f 75 74 20 6f 66 ┆ection. If the offset is out of┆
0x578e0…57900 20 72 61 6e 67 65 2c 20 20 74 68 65 20 20 63 6f 6d 70 69 6c 65 72 20 0d 0a 6f 75 74 70 75 74 73 ┆ range, the compiler outputs┆
0x57900…57920 20 27 54 61 72 67 65 74 20 61 64 64 72 65 73 73 20 6e 6f 74 20 66 6f 75 6e 64 27 2e 0d 0a 0d 0a ┆ 'Target address not found'. ┆
0x57920…57940 25 44 50 6f 6c 79 50 61 73 63 61 6c 20 4f 6e 2d 4c 69 6e 65 20 48 65 6c 70 3a 20 54 68 65 20 44 ┆%DPolyPascal On-Line Help: The D┆
0x57940…57960 49 52 20 43 6f 6d 6d 61 6e 64 2e 0d 0a 0d 0a 54 68 65 20 20 44 49 52 20 63 6f 6d 6d 61 6e 64 20 ┆IR Command. The DIR command ┆
0x57960…57980 69 73 20 75 73 65 64 20 74 6f 20 64 69 73 70 6c 61 79 20 74 68 65 20 64 69 72 65 63 74 6f 72 79 ┆is used to display the directory┆
0x57980…579a0 20 6f 66 20 61 20 20 64 69 73 6b 2e 20 20 54 68 65 20 20 63 6f 6d 6d 61 6e 64 20 0d 0a 6c 69 6e ┆ of a disk. The command lin┆
0x579a0…579c0 65 20 66 6f 72 6d 61 74 20 69 73 3a 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆e format is: ┆
0x579c0…579e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 49 52 20 3c 66 69 6c 65 6e 61 6d 65 3e 0d 0a 0d 0a ┆ DIR <filename> ┆
0x579e0…57a00 77 68 65 72 65 20 20 3c 66 69 6c 65 6e 61 6d 65 3e 20 69 73 20 61 6e 20 61 6d 62 69 67 75 6f 75 ┆where <filename> is an ambiguou┆
0x57a00…57a20 (70, 0, 2) e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0xf…]
0x57c00…57c20 (70, 0, 3) 20 20 20 20 20 20 20 20 20 46 72 65 65 3a 20 74 74 74 74 74 20 62 79 74 65 73 20 28 65 65 65 65 ┆ Free: ttttt bytes (eeee┆
0x57c20…57c40 2d 66 66 66 66 29 0d 0a 0d 0a 54 68 65 20 20 27 43 6f 64 65 27 20 61 6e 64 20 27 44 61 74 61 27 ┆-ffff) The 'Code' and 'Data'┆
0x57c40…57c60 20 66 69 65 6c 64 73 20 61 72 65 20 64 69 73 70 6c 61 79 65 64 20 6f 6e 6c 79 20 69 66 20 61 6e ┆ fields are displayed only if an┆
0x57c60…57c80 20 6f 62 6a 65 63 74 20 63 6f 64 65 20 20 76 65 72 73 69 6f 6e 20 0d 0a 6f 66 20 74 68 65 20 63 ┆ object code version of the c┆
0x57c80…57ca0 75 72 72 65 6e 74 20 70 72 6f 67 72 61 6d 20 69 73 20 70 72 65 73 65 6e 74 20 69 6e 20 6d 65 6d ┆urrent program is present in mem┆
0x57ca0…57cc0 6f 72 79 2e 20 54 68 65 20 6e 75 6d 62 65 72 73 20 69 6e 20 70 61 72 65 6e 74 68 65 73 65 73 20 ┆ory. The numbers in parentheses ┆
0x57cc0…57ce0 61 72 65 20 0d 0a 74 68 65 20 73 74 61 72 74 20 61 6e 64 20 65 6e 64 20 61 64 64 72 65 73 73 65 ┆are the start and end addresse┆
0x57ce0…57d00 73 20 28 69 6e 20 68 65 78 29 20 6f 66 20 65 61 63 68 20 73 70 65 63 69 66 69 63 20 61 72 65 61 ┆s (in hex) of each specific area┆
0x57d00…57d20 2e 20 54 68 65 20 73 69 7a 65 20 6f 66 20 74 68 65 20 0d 0a 63 6f 64 65 20 73 65 63 74 69 6f 6e ┆. The size of the code section┆
0x57d20…57d40 20 64 6f 65 73 20 6e 6f 74 20 69 6e 63 6c 75 64 65 20 74 68 65 20 72 75 6e 2d 74 69 6d 65 20 6c ┆ does not include the run-time l┆
0x57d40…57d60 69 62 72 61 72 79 2e 0d 0a 0d 0a 25 5a 50 6f 6c 79 50 61 73 63 61 6c 20 4f 6e 2d 4c 69 6e 65 20 ┆ibrary. %ZPolyPascal On-Line ┆
0x57d60…57d80 48 65 6c 70 3a 20 54 68 65 20 5a 41 50 20 43 6f 6d 6d 61 6e 64 2e 0d 0a 0d 0a 54 68 65 20 20 5a ┆Help: The ZAP Command. The Z┆
0x57d80…57da0 41 50 20 63 6f 6d 6d 61 6e 64 20 69 73 20 75 73 65 64 20 74 6f 20 65 72 61 73 65 20 74 68 65 20 ┆AP command is used to erase the ┆
0x57da0…57dc0 74 65 78 74 20 68 65 6c 64 20 69 6e 20 6d 65 6d 6f 72 79 20 6f 72 20 74 6f 20 65 72 61 73 65 20 ┆text held in memory or to erase ┆
0x57dc0…57de0 20 64 69 73 6b 20 0d 0a 66 69 6c 65 73 2e 20 54 68 65 20 63 6f 6d 6d 61 6e 64 20 6c 69 6e 65 20 ┆ disk files. The command line ┆
0x57de0…57e00 66 6f 72 6d 61 74 20 69 73 3a 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆format is: ┆
0x57e00…57e20 (70, 0, 4) 73 20 66 69 6c 65 20 6e 61 6d 65 20 61 73 20 74 68 65 20 6f 6e 65 20 75 73 65 64 20 69 6e 20 61 ┆s file name as the one used in a┆
0x57e20…57e40 20 20 43 50 2f 4d 20 20 44 49 52 20 0d 0a 63 6f 6d 6d 61 6e 64 2c 20 20 69 2e 65 2e 20 20 71 75 ┆ CP/M DIR command, i.e. qu┆
0x57e40…57e60 65 73 74 69 6f 6e 20 20 6d 61 72 6b 73 20 20 28 3f 29 20 61 6e 64 20 61 73 74 65 72 69 73 6b 73 ┆estion marks (?) and asterisks┆
0x57e60…57e80 20 28 2a 29 20 6d 61 79 20 62 65 20 20 69 6e 74 65 72 73 70 65 72 73 65 64 20 0d 0a 74 68 72 6f ┆ (*) may be interspersed thro┆
0x57e80…57ea0 75 67 68 6f 75 74 20 74 68 65 20 66 69 6c 65 20 6e 61 6d 65 20 61 6e 64 20 74 79 70 65 20 66 69 ┆ughout the file name and type fi┆
0x57ea0…57ec0 65 6c 64 73 2e 0d 0a 0d 0a 41 20 71 75 65 73 74 69 6f 6e 20 6d 61 72 6b 20 77 69 6c 6c 20 6d 61 ┆elds. A question mark will ma┆
0x57ec0…57ee0 74 63 68 20 61 6e 79 20 63 68 61 72 61 63 74 65 72 20 69 6e 20 74 68 61 74 20 70 6f 73 69 74 69 ┆tch any character in that positi┆
0x57ee0…57f00 6f 6e 2c 20 20 61 6e 64 20 61 6e 20 61 73 74 65 72 69 73 6b 20 0d 0a 77 69 6c 6c 20 20 6d 61 74 ┆on, and an asterisk will mat┆
0x57f00…57f20 63 68 20 61 6e 79 20 63 6f 6d 62 69 6e 61 74 69 6f 6e 20 6f 66 20 63 68 61 72 61 63 74 65 72 73 ┆ch any combination of characters┆
0x57f20…57f40 20 77 69 74 68 69 6e 20 74 68 65 20 66 69 65 6c 64 20 69 6e 20 77 68 69 63 68 20 20 69 74 20 20 ┆ within the field in which it ┆
0x57f40…57f60 69 73 20 0d 0a 75 73 65 64 2e 20 20 49 66 20 62 6f 74 68 20 74 68 65 20 6e 61 6d 65 20 66 69 65 ┆is used. If both the name fie┆
0x57f60…57f80 6c 64 20 61 6e 64 20 74 68 65 20 74 79 70 65 20 66 69 65 6c 64 20 61 72 65 20 6f 6d 69 74 74 65 ┆ld and the type field are omitte┆
0x57f80…57fa0 64 2c 20 20 6c 65 61 76 69 6e 67 20 6f 6e 6c 79 20 0d 0a 74 68 65 20 64 72 69 76 65 20 69 64 65 ┆d, leaving only the drive ide┆
0x57fa0…57fc0 6e 74 69 66 69 65 72 20 61 6e 64 20 61 20 63 6f 6c 6f 6e 2c 20 20 74 68 65 6e 20 61 6c 6c 20 66 ┆ntifier and a colon, then all f┆
0x57fc0…57fe0 69 6c 65 73 20 6f 6e 20 74 68 61 74 20 64 72 69 76 65 20 61 72 65 20 6c 69 73 74 65 64 2e 20 0d ┆iles on that drive are listed. ┆
0x57fe0…58000 0a 49 66 20 3c 66 69 6c 65 6e 61 6d 65 3e 20 69 73 20 6f 6d 69 74 74 65 64 20 65 6e 74 69 72 65 ┆ If <filename> is omitted entire┆
0x58000…58020 (70, 0, 5) e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0xf…]
0x58200…58220 (70, 0, 6) 20 20 20 20 20 20 20 20 20 20 20 20 5a 41 50 20 3c 66 69 6c 65 6e 61 6d 65 3e 0d 0a 0d 0a 54 68 ┆ ZAP <filename> Th┆
0x58220…58240 65 20 64 65 66 61 75 6c 74 20 66 69 6c 65 20 74 79 70 65 20 69 73 20 27 2e 50 41 53 27 2e 20 49 ┆e default file type is '.PAS'. I┆
0x58240…58260 66 20 3c 66 69 6c 65 6e 61 6d 65 3e 20 69 73 20 73 70 65 63 69 66 69 65 64 2c 20 5a 41 50 20 77 ┆f <filename> is specified, ZAP w┆
0x58260…58280 69 6c 6c 20 65 72 61 73 65 20 0d 0a 74 68 65 20 66 69 6c 65 28 73 29 20 64 65 6e 6f 74 65 64 20 ┆ill erase the file(s) denoted ┆
0x58280…582a0 62 79 20 74 68 61 74 20 6e 61 6d 65 2e 20 20 3c 66 69 6c 65 6e 61 6d 65 3e 20 6d 61 79 20 63 6f ┆by that name. <filename> may co┆
0x582a0…582c0 6e 74 61 69 6e 20 27 2a 27 20 61 6e 64 20 27 3f 27 20 63 68 61 72 2d 0d 0a 61 63 74 65 72 73 2e ┆ntain '*' and '?' char- acters.┆
0x582c0…582e0 20 20 49 66 20 20 3c 66 69 6c 65 6e 61 6d 65 3e 20 69 73 20 6f 6d 69 74 74 65 64 2c 20 20 5a 41 ┆ If <filename> is omitted, ZA┆
0x582e0…58300 50 20 65 72 61 73 65 73 20 74 68 65 20 74 65 78 74 20 68 65 6c 64 20 69 6e 20 6d 65 6d 6f 72 79 ┆P erases the text held in memory┆
0x58300…58320 20 61 6e 64 20 0d 0a 73 65 74 73 20 74 68 65 20 77 6f 72 6b 66 69 6c 65 20 6e 61 6d 65 20 74 6f ┆ and sets the workfile name to┆
0x58320…58340 20 27 57 4f 52 4b 2e 50 41 53 27 2e 20 20 49 66 20 74 68 65 20 74 65 78 74 20 68 61 73 20 62 65 ┆ 'WORK.PAS'. If the text has be┆
0x58340…58360 65 6e 20 65 64 69 74 65 64 20 73 69 6e 63 65 20 69 74 20 0d 0a 77 61 73 20 6c 6f 61 64 65 64 20 ┆en edited since it was loaded ┆
0x58360…58380 6f 72 20 6c 61 73 74 20 73 61 76 65 64 2c 20 50 6f 6c 79 50 61 73 63 61 6c 20 61 73 6b 73 20 79 ┆or last saved, PolyPascal asks y┆
0x58380…583a0 6f 75 20 69 66 20 79 6f 75 20 77 61 6e 74 20 74 6f 20 73 61 76 65 20 69 74 20 62 65 66 6f 72 65 ┆ou if you want to save it before┆
0x583a0…583c0 20 0d 0a 69 74 20 20 69 73 20 65 72 61 73 65 64 2e 20 20 49 66 20 79 6f 75 20 61 6e 73 77 65 72 ┆ it is erased. If you answer┆
0x583c0…583e0 20 6e 6f 2c 20 20 74 68 65 20 6d 6f 64 69 66 69 63 61 74 69 6f 6e 73 20 79 6f 75 20 6d 61 79 20 ┆ no, the modifications you may ┆
0x583e0…58400 68 61 76 65 20 6d 61 64 65 20 20 61 72 65 20 0d 0a 6c 6f 73 74 2e 0d 0a 0d 0a 25 51 50 6f 6c 79 ┆have made are lost. %QPoly┆
0x58400…58420 (70, 0, 7) 6c 79 2c 20 20 74 68 65 6e 20 61 6c 6c 20 66 69 6c 65 73 20 6f 6e 20 74 68 65 20 63 75 72 72 65 ┆ly, then all files on the curre┆
0x58420…58440 6e 74 20 64 72 69 76 65 20 61 72 65 20 0d 0a 6c 69 73 74 65 64 2e 0d 0a 0d 0a 4e 6f 74 65 20 74 ┆nt drive are listed. Note t┆
0x58440…58460 68 61 74 20 73 79 73 74 65 6d 20 66 69 6c 65 73 20 61 72 65 20 6e 6f 74 20 64 69 73 70 6c 61 79 ┆hat system files are not display┆
0x58460…58480 65 64 2e 0d 0a 0d 0a 25 55 50 6f 6c 79 50 61 73 63 61 6c 20 4f 6e 2d 4c 69 6e 65 20 48 65 6c 70 ┆ed. %UPolyPascal On-Line Help┆
0x58480…584a0 3a 20 54 68 65 20 55 53 45 20 43 6f 6d 6d 61 6e 64 2e 0d 0a 0d 0a 54 68 65 20 20 55 53 45 20 20 ┆: The USE Command. The USE ┆
0x584a0…584c0 63 6f 6d 6d 61 6e 64 20 69 73 20 75 73 65 64 20 74 6f 20 64 69 73 70 6c 61 79 20 61 6e 64 2f 6f ┆command is used to display and/o┆
0x584c0…584e0 72 20 73 65 74 20 74 68 65 20 63 75 72 72 65 6e 74 20 64 72 69 76 65 20 20 61 6e 64 20 20 74 68 ┆r set the current drive and th┆
0x584e0…58500 65 20 0d 0a 63 75 72 72 65 6e 74 20 75 73 65 72 20 6e 75 6d 62 65 72 2e 20 54 68 65 20 63 6f 6d ┆e current user number. The com┆
0x58500…58520 6d 61 6e 64 20 6c 69 6e 65 20 66 6f 72 6d 61 74 20 69 73 3a 0d 0a 0d 0a 20 20 20 20 20 20 20 20 ┆mand line format is: ┆
0x58520…58540 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 55 53 45 20 3c 64 72 69 76 65 3e ┆ USE <drive>┆
0x58540…58560 3c 75 73 65 72 3e 0d 0a 0d 0a 77 68 65 72 65 20 3c 64 72 69 76 65 3e 20 69 73 20 61 20 64 72 69 ┆<user> where <drive> is a dri┆
0x58560…58580 76 65 20 69 64 65 6e 74 69 66 69 65 72 20 28 41 2d 50 29 20 61 6e 64 20 75 73 65 72 20 69 73 20 ┆ve identifier (A-P) and user is ┆
0x58580…585a0 61 20 75 73 65 72 20 6e 75 6d 62 65 72 20 28 30 2d 31 35 29 2e 20 0d 0a 49 66 20 3c 64 72 69 76 ┆a user number (0-15). If <driv┆
0x585a0…585c0 65 3e 20 69 73 20 73 70 65 63 69 66 69 65 64 2c 20 74 68 65 20 63 75 72 72 65 6e 74 20 64 72 69 ┆e> is specified, the current dri┆
0x585c0…585e0 76 65 20 69 73 20 63 68 61 6e 67 65 64 20 74 6f 20 74 68 61 74 20 64 72 69 76 65 2c 20 61 6e 64 ┆ve is changed to that drive, and┆
0x585e0…58600 20 69 66 20 0d 0a 3c 75 73 65 72 3e 20 69 73 20 73 70 65 63 69 66 69 65 64 2c 20 74 68 65 20 63 ┆ if <user> is specified, the c┆
0x58600…58620 (70, 0, 8) e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0xf…]
0x58800…58820 (70, 0, 9) 50 61 73 63 61 6c 20 4f 6e 2d 4c 69 6e 65 20 48 65 6c 70 3a 20 54 68 65 20 51 55 49 54 20 43 6f ┆Pascal On-Line Help: The QUIT Co┆
0x58820…58840 6d 6d 61 6e 64 2e 0d 0a 0d 0a 54 68 65 20 51 55 49 54 20 63 6f 6d 6d 61 6e 64 20 74 72 61 6e 73 ┆mmand. The QUIT command trans┆
0x58840…58860 66 65 72 73 20 63 6f 6e 74 72 6f 6c 20 74 6f 20 43 50 2f 4d 2e 20 49 66 20 74 68 65 20 77 6f 72 ┆fers control to CP/M. If the wor┆
0x58860…58880 6b 66 69 6c 65 20 68 61 73 20 62 65 65 6e 20 65 64 69 74 65 64 20 0d 0a 73 69 6e 63 65 20 69 74 ┆kfile has been edited since it┆
0x58880…588a0 20 77 61 73 20 6c 6f 61 64 65 64 20 6f 72 20 6c 61 73 74 20 73 61 76 65 64 2c 20 20 50 6f 6c 79 ┆ was loaded or last saved, Poly┆
0x588a0…588c0 50 61 73 63 61 6c 20 61 73 6b 73 20 79 6f 75 20 69 66 20 79 6f 75 20 77 61 6e 74 20 74 6f 20 73 ┆Pascal asks you if you want to s┆
0x588c0…588e0 61 76 65 20 0d 0a 69 74 20 62 65 66 6f 72 65 20 79 6f 75 20 71 75 69 74 2e 20 20 49 66 20 79 6f ┆ave it before you quit. If yo┆
0x588e0…58900 75 20 61 6e 73 77 65 72 20 6e 6f 2c 20 20 74 68 65 20 6d 6f 64 69 66 69 63 61 74 69 6f 6e 73 20 ┆u answer no, the modifications ┆
0x58900…58920 79 6f 75 20 6d 61 79 20 68 61 76 65 20 6d 61 64 65 20 0d 0a 61 72 65 20 6c 6f 73 74 2e 0d 0a 0d ┆you may have made are lost. ┆
0x58920…58940 0a 59 6f 75 20 20 6d 61 79 20 6c 61 74 65 72 20 77 61 72 6d 2d 73 74 61 72 74 20 50 6f 6c 79 2d ┆ You may later warm-start Poly-┆
0x58940…58960 50 61 73 63 61 6c 20 62 79 20 65 6e 74 65 72 69 6e 67 20 27 50 50 41 53 20 2a 27 2e 20 20 54 68 ┆Pascal by entering 'PPAS *'. Th┆
0x58960…58980 69 73 20 6f 66 20 63 6f 75 72 73 65 20 0d 0a 72 65 71 75 69 72 65 73 20 74 68 61 74 20 6e 6f 20 ┆is of course requires that no ┆
0x58980…589a0 76 69 74 61 6c 20 6d 65 6d 6f 72 79 20 61 72 65 61 73 20 68 61 76 65 20 62 65 65 6e 20 6f 76 65 ┆vital memory areas have been ove┆
0x589a0…589c0 72 77 72 69 74 74 65 6e 20 62 79 20 6f 74 68 65 72 20 70 72 6f 67 72 61 6d 73 20 0d 0a 72 75 6e ┆rwritten by other programs run┆
0x589c0…589e0 20 69 6e 20 74 68 65 20 6d 65 61 6e 74 69 6d 65 2e 0d 0a 0d 0a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ in the meantime. ┆
0x589e0…58a00 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 ┆ ┆
0x58a00…58a20 (70, 0, 10) 75 72 72 65 6e 74 20 75 73 65 72 20 6e 75 6d 62 65 72 20 69 73 20 63 68 61 6e 67 65 64 20 74 6f ┆urrent user number is changed to┆
0x58a20…58a40 20 74 68 61 74 20 6e 75 6d 62 65 72 2e 0d 0a 0d 0a 54 68 65 20 55 53 45 20 63 6f 6d 6d 61 6e 64 ┆ that number. The USE command┆
0x58a40…58a60 20 69 73 20 66 75 72 74 68 65 72 6d 6f 72 65 20 75 73 65 64 20 74 6f 20 6c 6f 67 20 69 6e 20 6e ┆ is furthermore used to log in n┆
0x58a60…58a80 65 77 20 64 69 73 6b 73 2e 20 57 68 65 6e 65 76 65 72 20 61 20 64 69 73 6b 20 69 73 20 0d 0a 63 ┆ew disks. Whenever a disk is c┆
0x58a80…58aa0 68 61 6e 67 65 64 20 69 6e 20 6f 6e 65 20 6f 66 20 74 68 65 20 64 72 69 76 65 73 2c 20 20 61 20 ┆hanged in one of the drives, a ┆
0x58aa0…58ac0 55 53 45 20 63 6f 6d 6d 61 6e 64 20 73 68 6f 75 6c 64 20 62 65 20 65 78 65 63 75 74 65 64 2e 20 ┆USE command should be executed. ┆
0x58ac0…58ae0 4f 74 68 65 72 77 69 73 65 2c 20 0d 0a 43 50 2f 4d 20 77 69 6c 6c 20 72 65 70 6f 72 74 20 61 6e ┆Otherwise, CP/M will report an┆
0x58ae0…58b00 20 52 2f 4f 20 65 72 72 6f 72 20 69 66 20 79 6f 75 20 74 72 79 20 74 6f 20 77 72 69 74 65 20 74 ┆ R/O error if you try to write t┆
0x58b00…58b20 6f 20 74 68 61 74 20 64 69 73 6b 2e 0d 0a 0d 0a 25 4d 50 6f 6c 79 50 61 73 63 61 6c 20 4f 6e 2d ┆o that disk. %MPolyPascal On-┆
0x58b20…58b40 4c 69 6e 65 20 48 65 6c 70 3a 20 54 68 65 20 4d 45 4d 4f 52 59 20 43 6f 6d 6d 61 6e 64 2e 0d 0a ┆Line Help: The MEMORY Command. ┆
0x58b40…58b60 0d 0a 54 68 65 20 4d 45 4d 4f 52 59 20 63 6f 6d 6d 61 6e 64 20 64 69 73 70 6c 61 79 73 20 74 68 ┆ The MEMORY command displays th┆
0x58b60…58b80 65 20 63 75 72 72 65 6e 74 20 6d 65 6d 6f 72 79 20 61 6c 6c 6f 63 61 74 69 6f 6e 20 73 74 61 74 ┆e current memory allocation stat┆
0x58b80…58ba0 65 3a 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 6f 64 ┆e: Cod┆
0x58ba0…58bc0 65 3a 20 72 72 72 72 72 20 62 79 74 65 73 20 28 61 61 61 61 2d 62 62 62 62 29 0d 0a 20 20 20 20 ┆e: rrrrr bytes (aaaa-bbbb) ┆
0x58bc0…58be0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 61 74 61 3a 20 73 73 73 73 73 20 62 ┆ Data: sssss b┆
0x58be0…58c00 79 74 65 73 20 28 63 63 63 63 2d 64 64 64 64 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ytes (cccc-dddd) ┆
0x58c00…58c20 (71, 1, 1) e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0x379f…]