|
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 b d e f g h j k l p q r s v
Length: 819200 (0xc8000)
Description: Bits:30004681 Pascal opgaver (Butler)
Types: 5¼" Floppy Disk, CpmFSButler1b, ImdContainer
Notes: CP/M-fs(512_2048_0x0_80_*3+1+2+3_2:0_159:1)
Media: [0, 0, 1] … [159, 1, 10] {512: 1600}
Signature: 512_2048_0x0_80_*3+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…01800 (1, 1, 2) 0xe5[0x200]
[…0x7…]
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…10400 (12, 0, 10) 0xe5[0x200]
[…0x6…]
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…11800 (13, 1, 10) 0xe5[0x200]
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…12600 (14, 0, 7) 0xe5[0x200]
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…12c00 (14, 0, 10) 0xe5[0x200]
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…17600 (18, 0, 7) 0xe5[0x200]
0x17600…17800 (18, 0, 8) DataBlock {»BRIDGE2.PAS«}
[…0x1…]
0x17a00…17c00 (18, 0, 10) 0xe5[0x200]
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…18400 (19, 1, 4) 0xe5[0x200]
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…19e00 (20, 0, 7) 0xe5[0x200]
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…1a400 (20, 0, 10) 0xe5[0x200]
[…0x1…]
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…1ac00 (21, 1, 4) 0xe5[0x200]
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…1ee00 (24, 0, 7) 0xe5[0x200]
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…1f400 (24, 0, 10) 0xe5[0x200]
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…1fe00 (25, 1, 5) 0xe5[0x200]
[…0x1…]
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…21600 (26, 0, 7) 0xe5[0x200]
0x21600…21800 (26, 0, 8) DataBlock {»DOBBELT.PAS«}
[…0x1…]
0x21a00…21c00 (26, 0, 10) 0xe5[0x200]
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…23e00 (28, 0, 7) 0xe5[0x200]
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 ┆ ┆
[…0x7…]
0x24200…24400 (28, 0, 10) 0xe5[0x200]
[…0x1…]
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…24c00 (29, 1, 4) 0xe5[0x200]
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…26000 (30, 0, 4) 0xe5[0x200]
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…26600 (30, 0, 7) 0xe5[0x200]
[…0x4…]
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…27400 (31, 1, 4) 0xe5[0x200]
[…0x2…]
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…28e00 (32, 0, 7) 0xe5[0x200]
0x28e00…29000 (32, 0, 8) DataBlock {»FLETNING.PAS«}
[…0x1…]
0x29200…29400 (32, 0, 10) 0xe5[0x200]
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…29e00 (33, 1, 5) 0xe5[0x200]
[…0x1…]
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…2a800 (33, 1, 10) 0xe5[0x200]
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…2be00 (35, 1, 1) 0xe5[0x200]
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…2c400 (35, 1, 4) 0xe5[0x200]
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…2d000 (35, 1, 10) 0xe5[0x200]
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 ┆ ┆
[…0x7…]
0x31400…31600 (39, 1, 5) 0xe5[0x200]
[…0x1…]
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…33600 (41, 1, 1) 0xe5[0x200]
0x33600…33800 (41, 1, 2) DataBlock {»KAEDE3.PAS«}
[…0x1…]
0x33a00…33c00 (41, 1, 4) 0xe5[0x200]
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…35000 (42, 0, 4) 0xe5[0x200]
0x35000…35200 (42, 0, 5) DataBlock {»KAEDE4.PAS«}
[…0x1…]
0x35400…35600 (42, 0, 7) 0xe5[0x200]
0x35600…35800 (42, 0, 8) DataBlock {»KAEDE4.PAS«}
[…0x1…]
0x35a00…35c00 (42, 0, 10) 0xe5[0x200]
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…36800 (43, 1, 6) 0xe5[0x200]
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…38000 (44, 0, 8) 0xe5[0x200]
0x38000…40000 (44, 0, 9) […elided…]
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…42c00 (53, 1, 4) 0xe5[0x200]
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 ┆ ┆
[…0x7…]
0x47400…47600 (57, 1, 1) 0xe5[0x200]
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…47c00 (57, 1, 4) 0xe5[0x200]
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…4be00 (60, 0, 7) 0xe5[0x200]
0x4be00…4c000 (60, 0, 8) DataBlock {»POSTKOPI.PAS«}
[…0x1…]
0x4c200…4c400 (60, 0, 10) 0xe5[0x200]
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…4ee00 (63, 1, 1) 0xe5[0x200]
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…4f400 (63, 1, 4) 0xe5[0x200]
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 ┆ ┆
[…0x5…]
0x50f80…52200 […elided…]
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 ┆ ┆
[…0x3…]
0x52400…52600 (65, 1, 9) 0x00[0x200]
0x52600…52620 (65, 1, 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 ┆ ┆
[…0x3…]
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 ┆ ┆
[…0x1…]
0x52a00…52c00 (66, 0, 2) 0x00[0x200]
[…0x1…]
0x52e00…52e20 (66, 0, 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 ┆ ┆
[…0x4…]
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…53c00 (66, 0, 10) 0x00[0x200]
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…57c00 (70, 0, 2) 0xe5[0x200]
0x57c00…c7000 (70, 0, 3) […elided…]
0xc7000…c7200 (159, 1, 3) 0xe5[0x200]
[…0x7…]