|
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 - download
Length: 4224 (0x1080)
Names: »BINTRAE2.PAS«
└─⟦f983c2ef3⟧ Bits:30004681 Pascal opgaver (Butler)
└─⟦this⟧ »BINTRAE2.PAS«
0x0000…0020 (0,) 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 20 28 2a 20 75 64 73 6b 72 69 76 20 2a 29 0d 0a 20 ┆ BEGIN (* udskriv *) ┆
0x0020…0040 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 72 6f 64 20 3c 3e 20 4e 49 4c 0d 0a 20 20 20 20 ┆ IF rod <> NIL ┆
0x0040…0060 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 ┆
0x0060…0080 20 20 20 20 57 49 54 48 20 72 6f 64 5e 20 44 4f 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ WITH rod^ DO ┆
0x0080…00a0 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 20 20 ┆ BEGIN ┆
0x00a0…00c0 20 20 20 75 64 73 6b 72 69 76 28 76 65 6e 73 74 72 65 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆ udskriv(venstre); ┆
0x00c0…00e0 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 64 61 74 61 29 3b 0d 0a 20 20 20 20 ┆ WRITELN(data); ┆
0x00e0…0100 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 75 64 73 6b 72 69 76 28 68 6f 65 6a 72 65 ┆ udskriv(hoejre┆
0x0100…0120 29 3b 0d 0a 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 ┆); END; ┆
0x0120…0140 20 20 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 ┆ END; (* udskriv *) ┆
0x0140…0160 20 20 20 20 20 20 20 20 0d 0a 20 20 20 20 20 20 20 20 20 20 46 55 4e 43 54 49 4f 4e 20 66 69 6e ┆ FUNCTION fin┆
0x0160…0180 64 28 74 72 61 65 20 3a 20 70 6f 69 6e 74 65 72 3b 20 73 6f 65 67 65 6f 72 64 20 3a 20 73 74 72 ┆d(trae : pointer; soegeord : str┆
0x0180…01a0 33 30 29 20 3a 20 70 6f 69 6e 74 65 72 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 0d 0a 20 20 20 20 ┆30) : pointer; ┆
0x01a0…01c0 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 73 6c 75 74 20 ┆ VAR slut ┆
0x01c0…01e0 3a 20 42 4f 4f 4c 45 41 4e 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 0d 0a 20 20 20 20 20 20 ┆: BOOLEAN; ┆
0x01e0…0200 20 20 20 20 20 20 42 45 47 49 4e 20 28 2a 20 66 69 6e 64 20 2a 29 0d 0a 20 20 20 20 20 20 20 20 ┆ BEGIN (* find *) ┆
0x0200…0220 (1,) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 20 69 6e 64 73 61 65 74 28 72 6f 64 2c ┆ THEN indsaet(rod,┆
0x0220…0240 20 6f 72 64 5f 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 ┆ ord_); ┆
0x0240…0260 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 55 27 2c 20 27 ┆ END; 'U', '┆
0x0260…0280 75 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 20 ┆u' : BEGIN ┆
0x0280…02a0 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 20 ┆ WRITELN; ┆
0x02a0…02c0 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 44 65 20 69 6e 64 74 ┆ WRITELN('De indt┆
0x02c0…02e0 61 73 74 65 64 65 20 6f 72 64 20 3a 27 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆astede ord :'); ┆
0x02e0…0300 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 20 20 20 20 20 20 ┆ WRITELN; ┆
0x0300…0320 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 75 64 73 6b 72 69 76 28 72 6f 64 ┆ udskriv(rod┆
0x0320…0340 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 20 20 20 20 20 ┆); ┆
0x0340…0360 20 57 52 49 54 45 28 27 54 61 73 74 20 3c 52 45 54 55 52 4e 3e 27 29 3b 0d 0a 20 20 20 20 20 20 ┆ WRITE('Tast <RETURN>'); ┆
0x0360…0380 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 41 44 4c 4e 28 63 68 ┆ READLN(ch┆
0x0380…03a0 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 20 20 20 20 45 ┆); E┆
0x03a0…03c0 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 27 66 27 20 3a 20 ┆ND; 'F', 'f' : ┆
0x03c0…03e0 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 20 ┆BEGIN ┆
0x03e0…0400 20 20 20 20 57 52 49 54 45 28 27 48 76 69 6c 6b 65 74 20 6f 72 64 20 73 6b 61 6c 20 73 7c 67 65 ┆ WRITE('Hvilket ord skal søge┆
0x0400…0420 (2,) 73 3a 20 27 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 20 ┆s: '); ┆
0x0420…0440 20 20 20 20 20 52 45 41 44 4c 4e 28 6f 72 64 5f 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ READLN(ord_); ┆
0x0440…0460 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 66 69 6e 64 28 72 6f 64 2c 20 6f 72 ┆ IF find(rod, or┆
0x0460…0480 64 5f 29 20 3c 3e 20 4e 49 4c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆d_) <> NIL ┆
0x0480…04a0 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 20 57 52 49 54 45 4c 4e 28 6f 72 64 5f 2c 20 27 20 ┆ THEN WRITELN(ord_, ' ┆
0x04a0…04c0 66 69 6e 64 65 73 27 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 ┆findes') ┆
0x04c0…04e0 20 20 20 20 20 20 20 20 20 45 4c 53 45 20 57 52 49 54 45 4c 4e 28 6f 72 64 5f 2c 20 27 20 66 69 ┆ ELSE WRITELN(ord_, ' fi┆
0x04e0…0500 6e 64 65 73 20 69 6b 6b 65 27 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ndes ikke'); ┆
0x0500…0520 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 27 54 61 73 74 20 3c 52 45 54 55 52 4e ┆ WRITE('Tast <RETURN┆
0x0520…0540 3e 27 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 20 20 20 ┆>'); ┆
0x0540…0560 20 20 20 20 20 52 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 ┆ READLN(ch); ┆
0x0560…0580 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ END; ┆
0x0580…05a0 20 45 4e 44 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 ┆ END; UNTIL ch IN (┆
0x05a0…05c0 2e 27 41 27 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 ┆.'A', 'a'.); END. (* ┆
0x05c0…05e0 62 69 6e 74 72 61 65 31 20 2a 29 0d 0a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆bintrae1 *) ┆
0x05e0…0600 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ ┆
0x0600…0620 (3,) 20 20 20 20 20 20 20 20 50 52 4f 47 52 41 4d 20 62 69 6e 74 72 61 65 32 3b 0d 0a 20 20 20 20 20 ┆ PROGRAM bintrae2; ┆
0x0620…0640 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 ┆
0x0640…0660 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 20 20 20 20 20 20 ┆ str30 = STRING(.30.); ┆
0x0660…0680 20 20 20 20 70 6f 69 6e 74 65 72 20 3d 20 5e 20 6b 6e 75 64 65 3b 0d 0a 20 20 20 20 20 20 20 20 ┆ pointer = ^ knude; ┆
0x0680…06a0 20 20 20 20 6b 6e 75 64 65 20 3d 20 52 45 43 4f 52 44 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ knude = RECORD ┆
0x06a0…06c0 20 20 20 20 20 20 20 20 20 20 76 65 6e 73 74 72 65 2c 20 68 6f 65 6a 72 65 20 3a 20 70 6f 69 6e ┆ venstre, hoejre : poin┆
0x06c0…06e0 74 65 72 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 64 61 74 61 ┆ter; data┆
0x06e0…0700 20 3a 20 73 74 72 33 30 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 ┆ : str30; E┆
0x0700…0720 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 56 41 52 0d 0a ┆ND; VAR ┆
0x0720…0740 20 20 20 20 20 20 20 20 20 20 20 20 72 6f 64 20 3a 20 70 6f 69 6e 74 65 72 3b 0d 0a 20 20 20 20 ┆ rod : pointer; ┆
0x0740…0760 20 20 20 20 20 20 20 20 6f 72 64 5f 20 3a 20 73 74 72 33 30 3b 0d 0a 20 20 20 20 20 20 20 20 20 ┆ ord_ : str30; ┆
0x0760…0780 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 0d 0a 20 20 20 ┆ ch : CHAR; ┆
0x0780…07a0 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┆
0x07a0…07c0 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); ┆
0x07c0…07e0 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 ┆
0x07e0…0800 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; ┆
0x0800…0820 (4,) 20 20 20 20 20 20 73 6c 75 74 20 3a 3d 46 41 4c 53 45 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ slut :=FALSE; ┆
0x0820…0840 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 20 20 49 46 20 74 72 ┆ REPEAT IF tr┆
0x0840…0860 61 65 20 3d 20 4e 49 4c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4e ┆ae = NIL THEN┆
0x0860…0880 20 73 6c 75 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 ┆ slut := TRUE ┆
0x0880…08a0 20 45 4c 53 45 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 49 54 48 20 ┆ ELSE WITH ┆
0x08a0…08c0 74 72 61 65 5e 20 44 4f 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆trae^ DO ┆
0x08c0…08e0 49 46 20 73 6f 65 67 65 6f 72 64 20 3c 20 64 61 74 61 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆IF soegeord < data ┆
0x08e0…0900 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 20 74 72 61 65 20 3a 3d 20 76 65 6e 73 74 72 65 ┆ THEN trae := venstre┆
0x0900…0920 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 4c 53 45 20 49 46 20 ┆ ELSE IF ┆
0x0920…0940 73 6f 65 67 65 6f 72 64 20 3e 20 64 61 74 61 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆soegeord > data ┆
0x0940…0960 20 20 20 20 20 20 20 20 20 54 48 45 4e 20 74 72 61 65 20 3a 3d 20 68 6f 65 6a 72 65 0d 0a 20 20 ┆ THEN trae := hoejre ┆
0x0960…0980 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 73 6c 75 74 20 3a 3d ┆ ELSE slut :=┆
0x0980…09a0 20 54 52 55 45 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 55 4e 54 49 4c 20 73 6c 75 74 ┆ TRUE; UNTIL slut┆
0x09a0…09c0 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 69 6e 64 20 3a 3d 20 74 72 61 65 3b 0d 0a ┆; find := trae; ┆
0x09c0…09e0 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 20 28 2a 20 66 69 6e 64 20 2a 29 0d 0a 20 20 20 ┆ END; (* find *) ┆
0x09e0…0a00 20 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 62 69 6e 74 ┆ BEGIN (* bint┆
0x0a00…0a20 (5,) 72 61 65 32 20 2a 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 43 4c 52 48 4f ┆rae2 *) WRITE(CLRHO┆
0x0a20…0a40 4d 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 6f 64 20 3a 3d 20 4e 49 4c 3b 0d 0a 20 20 ┆M); rod := NIL; ┆
0x0a40…0a60 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 20 20 20 20 ┆ REPEAT ┆
0x0a60…0a80 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 20 20 57 52 ┆WRITE(CLRHOM); WR┆
0x0a80…0aa0 49 54 45 4c 4e 28 27 20 20 20 20 20 49 2e 20 49 6e 64 73 7b 74 20 6f 72 64 27 29 3b 0d 0a 20 20 ┆ITELN(' I. Indsæt ord'); ┆
0x0aa0…0ac0 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆ WRITELN; ┆
0x0ac0…0ae0 20 20 20 20 57 52 49 54 45 4c 4e 28 27 20 20 20 20 20 55 2e 20 55 64 73 6b 72 69 76 27 29 3b 0d ┆ WRITELN(' U. Udskriv'); ┆
0x0ae0…0b00 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 20 20 20 20 20 ┆ WRITELN; ┆
0x0b00…0b20 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 27 20 20 20 20 20 46 2e 20 46 69 6e 64 20 6f 72 64 ┆ WRITELN(' F. Find ord┆
0x0b20…0b40 27 29 3b 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 20 ┆'); WRITELN; ┆
0x0b40…0b60 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 27 20 20 20 20 20 41 2e 20 41 66 73 6c ┆ WRITELN(' A. Afsl┆
0x0b60…0b80 75 74 27 29 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 ┆ut'); REPEAT ┆
0x0b80…0ba0 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 41 44 28 4b 42 44 2c 20 63 68 29 0d 0a 20 20 20 20 ┆ READ(KBD, ch) ┆
0x0ba0…0bc0 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 49 27 2c 20 27 69 27 ┆ UNTIL ch IN (.'I', 'i'┆
0x0bc0…0be0 2c 20 27 55 27 2c 20 27 75 27 2c 20 27 46 27 2c 20 27 66 27 2c 20 27 41 27 2c 20 27 61 27 2e 29 ┆, 'U', 'u', 'F', 'f', 'A', 'a'.)┆
0x0be0…0c00 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 41 53 45 20 63 68 20 4f 46 0d 0a 20 20 20 ┆; CASE ch OF ┆
0x0c00…0c20 (6,) 20 20 20 20 20 20 20 20 20 20 20 20 20 27 49 27 2c 20 27 69 27 20 3a 20 42 45 47 49 4e 0d 0a 20 ┆ 'I', 'i' : BEGIN ┆
0x0c20…0c40 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 49 54 ┆ WRIT┆
0x0c40…0c60 45 28 27 54 61 73 74 20 6f 72 64 3a 20 27 29 3b 20 52 45 41 44 4c 4e 28 6f 72 64 5f 29 3b 0d 0a ┆E('Tast ord: '); READLN(ord_); ┆
0x0c60…0c80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 ┆ IF ┆
0x0c80…0ca0 6f 72 64 5f 20 3c 3e 20 27 27 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ord_ <> '' ┆
0x0ca0…0cc0 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 20 69 6e 64 73 61 65 74 28 72 6f 64 2c 20 6f 72 64 ┆ THEN indsaet(rod, ord┆
0x0cc0…0ce0 5f 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 20 20 20 20 ┆_); ┆
0x0ce0…0d00 45 4e 44 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 55 27 2c 20 27 75 27 20 3a ┆END; 'U', 'u' :┆
0x0d00…0d20 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 ┆
0x0d20…0d40 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 20 20 20 20 20 ┆ WRITELN; ┆
0x0d40…0d60 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 27 44 65 20 69 6e 64 74 61 73 74 65 ┆ WRITELN('De indtaste┆
0x0d60…0d80 64 65 20 6f 72 64 20 3a 27 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆de ord :'); ┆
0x0d80…0da0 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; ┆
0x0da0…0dc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 75 64 73 6b 72 69 76 28 72 6f 64 29 3b 0d 0a ┆ udskriv(rod); ┆
0x0dc0…0de0 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 49 ┆ WRI┆
0x0de0…0e00 54 45 28 27 54 61 73 74 20 3c 52 45 54 55 52 4e 3e 27 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆TE('Tast <RETURN>'); ┆
0x0e00…0e20 (7,) 20 20 20 20 20 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 ┆ READLN(ch); ┆
0x0e20…0e40 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 45 4e 44 3b 0d ┆ END; ┆
0x0e40…0e60 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 46 27 2c 20 27 66 27 20 3a 20 42 45 47 49 ┆ 'F', 'f' : BEGI┆
0x0e60…0e80 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 20 20 20 20 20 ┆N ┆
0x0e80…0ea0 57 52 49 54 45 28 27 48 76 69 6c 6b 65 74 20 6f 72 64 20 73 6b 61 6c 20 73 7c 67 65 73 3a 20 27 ┆WRITE('Hvilket ord skal søges: '┆
0x0ea0…0ec0 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 20 20 20 20 20 ┆); ┆
0x0ec0…0ee0 20 52 45 41 44 4c 4e 28 6f 72 64 5f 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ READLN(ord_); ┆
0x0ee0…0f00 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 66 69 6e 64 28 72 6f 64 2c 20 6f 72 64 5f 29 20 ┆ IF find(rod, ord_) ┆
0x0f00…0f20 3c 3e 20 4e 49 4c 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 ┆<> NIL ┆
0x0f20…0f40 20 20 20 20 20 20 20 54 48 45 4e 20 57 52 49 54 45 4c 4e 28 6f 72 64 5f 2c 20 27 20 66 69 6e 64 ┆ THEN WRITELN(ord_, ' find┆
0x0f40…0f60 65 73 27 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆es') ┆
0x0f60…0f80 20 20 20 20 20 45 4c 53 45 20 57 52 49 54 45 4c 4e 28 6f 72 64 5f 2c 20 27 20 66 69 6e 64 65 73 ┆ ELSE WRITELN(ord_, ' findes┆
0x0f80…0fa0 20 69 6b 6b 65 27 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 ┆ ikke'); ┆
0x0fa0…0fc0 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 27 54 61 73 74 20 3c 52 45 54 55 52 4e 3e 27 29 3b ┆ WRITE('Tast <RETURN>');┆
0x0fc0…0fe0 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 20 ┆ ┆
0x0fe0…1000 20 52 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 ┆ READLN(ch); ┆
0x1000…1020 (8,) e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0x3…]