|
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 - download
Length: 4096 (0x1000)
Names: »BINTRAE1.PAS«
└─⟦f983c2ef3⟧ Bits:30004681 Pascal opgaver (Butler)
└─⟦this⟧ »BINTRAE1.PAS«
0x0000…0020 (0,) 20 20 20 20 20 20 20 49 46 20 6b 61 73 74 20 3d 20 30 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF kast = 0 ┆
0x0020…0040 20 20 54 48 45 4e 20 73 65 6b 73 65 72 65 20 3a 3d 20 73 65 6b 73 65 72 65 20 2b 20 31 3b 0d 0a ┆ THEN seksere := seksere + 1; ┆
0x0040…0060 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 20 20 20 20 74 61 62 65 6c 28 2e 73 ┆ END; tabel(.s┆
0x0060…0080 65 6b 73 65 72 65 2e 29 20 3a 3d 20 74 61 62 65 6c 28 2e 73 65 6b 73 65 72 65 2e 29 20 2b 20 31 ┆eksere.) := tabel(.seksere.) + 1┆
0x0080…00a0 3b 0d 0a 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 57 52 49 54 45 4c 4e 3b 0d 0a 20 20 20 ┆; END; WRITELN; ┆
0x00a0…00c0 20 57 52 49 54 45 4c 4e 28 27 41 4e 54 41 4c 20 53 45 4b 53 45 52 45 20 20 20 20 20 20 20 46 52 ┆ WRITELN('ANTAL SEKSERE FR┆
0x00c0…00e0 45 4b 56 45 4e 53 27 29 3b 0d 0a 20 20 20 20 57 52 49 54 45 4c 4e 3b 0d 0a 20 20 20 20 46 4f 52 ┆EKVENS'); WRITELN; FOR┆
0x00e0…0100 20 69 20 3a 3d 20 30 20 54 4f 20 73 65 72 69 65 6c 61 65 6e 67 64 65 20 44 4f 0d 0a 20 20 20 20 ┆ i := 0 TO serielaengde DO ┆
0x0100…0120 20 20 57 52 49 54 45 4c 4e 28 69 20 3a 20 36 2c 20 74 61 62 65 6c 28 2e 69 2e 29 20 2f 20 61 6e ┆ WRITELN(i : 6, tabel(.i.) / an┆
0x0120…0140 74 61 6c 20 2a 20 31 30 30 20 3a 20 32 30 20 3a 20 32 2c 20 27 20 25 27 29 3b 0d 0a 20 20 45 4e ┆tal * 100 : 20 : 2, ' %'); EN┆
0x0140…0160 44 2e 0d 0a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆D. ┆
0x0160…0180 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ ┆
0x0180…01a0 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0x13…]
0x0400…0420 (2,) 76 65 6e 73 74 72 65 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 ┆venstre forgrening *) ┆
0x0420…0440 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 76 65 6e 73 74 72 ┆ THEN indsaet(venstr┆
0x0440…0460 65 2c 20 6e 79 74 6f 72 64 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆e, nytord) ┆
0x0460…0480 45 4c 53 45 20 49 46 20 6e 79 74 6f 72 64 20 3e 20 64 61 74 61 20 28 2a 20 53 7c 67 20 69 20 68 ┆ELSE IF nytord > data (* Søg i h┆
0x0480…04a0 7c 6a 72 65 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 20 20 ┆øjre forgrening *) ┆
0x04a0…04c0 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 20 69 6e 64 73 61 65 74 28 68 6f 65 6a 72 65 2c 20 6e ┆ THEN indsaet(hoejre, n┆
0x04c0…04e0 79 74 6f 72 64 29 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 ┆ytord) ELSE┆
0x04e0…0500 20 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 0d 0a ┆ BEGIN ┆
0x0500…0520 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 45 4c 4e 28 ┆ WRITELN(┆
0x0520…0540 6e 79 74 6f 72 64 2c 20 27 20 66 69 6e 64 65 73 20 69 20 66 6f 72 76 65 6a 65 6e 27 29 3b 0d 0a ┆nytord, ' findes i forvejen'); ┆
0x0540…0560 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 45 28 27 54 ┆ WRITE('T┆
0x0560…0580 61 73 74 20 3c 52 45 54 55 52 4e 3e 27 29 3b 20 52 45 41 44 4c 4e 28 63 68 29 3b 0d 0a 20 20 20 ┆ast <RETURN>'); READLN(ch); ┆
0x0580…05a0 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 20 ┆ END; ┆
0x05a0…05c0 20 20 20 20 20 45 4e 44 3b 20 28 2a 20 69 6e 64 73 61 65 74 20 2a 29 0d 0a 20 20 20 20 20 20 20 ┆ END; (* indsaet *) ┆
0x05c0…05e0 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 75 64 73 6b 72 69 76 ┆ PROCEDURE udskriv┆
0x05e0…0600 28 72 6f 64 20 3a 20 70 6f 69 6e 74 65 72 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 0d 0a 20 20 ┆(rod : pointer); ┆
0x0600…0620 (3,) 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 *) ┆
0x0620…0640 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 ┆
0x0640…0660 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 ┆
0x0660…0680 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 ┆
0x0680…06a0 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 ┆
0x06a0…06c0 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); ┆
0x06c0…06e0 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); ┆
0x06e0…0700 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┆
0x0700…0720 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; ┆
0x0720…0740 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 *) ┆
0x0740…0760 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┆
0x0760…0780 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┆
0x0780…07a0 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; ┆
0x07a0…07c0 20 20 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 ┆ BEGIN (* find *) ┆
0x07c0…07e0 20 20 20 20 20 20 20 20 49 46 20 74 72 61 65 20 3d 20 4e 49 4c 0d 0a 20 20 20 20 20 20 20 20 20 ┆ IF trae = NIL ┆
0x07e0…0800 20 20 20 20 20 20 20 54 48 45 4e 20 66 69 6e 64 20 3a 3d 20 4e 49 4c 0d 0a 20 20 20 20 20 20 20 ┆ THEN find := NIL ┆
0x0800…0820 (4,) 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 20 20 ┆ ELSE ┆
0x0820…0840 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 20 20 ┆ WITH trae^ DO ┆
0x0840…0860 20 20 20 20 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 ┆ IF soegeord < data ┆
0x0860…0880 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 20 66 69 6e 64 20 3a 3d 20 66 69 6e 64 28 ┆ THEN find := find(┆
0x0880…08a0 76 65 6e 73 74 72 65 2c 20 73 6f 65 67 65 6f 72 64 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆venstre, soegeord) ┆
0x08a0…08c0 20 20 20 20 20 20 20 20 45 4c 53 45 20 49 46 20 73 6f 65 67 65 6f 72 64 20 3e 20 64 61 74 61 0d ┆ ELSE IF soegeord > data ┆
0x08c0…08e0 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 66 69 6e 64 ┆ THEN find┆
0x08e0…0900 20 3a 3d 20 66 69 6e 64 28 68 6f 65 6a 72 65 2c 20 73 6f 65 67 65 6f 72 64 29 0d 0a 20 20 20 20 ┆ := find(hoejre, soegeord) ┆
0x0900…0920 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 20 66 69 6e 64 20 3a 3d 20 74 72 61 ┆ ELSE find := tra┆
0x0920…0940 65 3b 0d 0a 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 ┆e; END; (* find *) ┆
0x0940…0960 0a 20 20 20 20 20 20 20 20 20 20 0d 0a 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 20 28 2a 20 ┆ BEGIN (* ┆
0x0960…0980 62 69 6e 74 72 61 65 31 20 2a 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 43 ┆bintrae1 *) WRITE(C┆
0x0980…09a0 4c 52 48 4f 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 ┆LRHOM); rod := NIL;┆
0x09a0…09c0 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 52 45 50 45 41 54 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆ REPEAT ┆
0x09c0…09e0 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); ┆
0x09e0…0a00 20 20 57 52 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 ┆ WRITELN(' I. Indsæt ord');┆
0x0a00…0a20 (5,) 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 20 20 20 ┆ WRITELN; ┆
0x0a20…0a40 20 20 20 20 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 ┆ WRITELN(' U. Udskriv┆
0x0a40…0a60 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; ┆
0x0a60…0a80 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 46 2e 20 46 69 6e 64 ┆ WRITELN(' F. Find┆
0x0a80…0aa0 20 6f 72 64 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 ┆ ord'); WRITELN; ┆
0x0aa0…0ac0 0a 20 20 20 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 ┆ WRITELN(' A. ┆
0x0ac0…0ae0 41 66 73 6c 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 ┆Afslut'); REPEAT ┆
0x0ae0…0b00 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 41 44 28 4b 42 44 2c 20 63 68 29 0d 0a ┆ READ(KBD, ch) ┆
0x0b00…0b20 20 20 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 49 27 2c ┆ UNTIL ch IN (.'I',┆
0x0b20…0b40 20 27 69 27 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 ┆ 'i', 'U', 'u', 'F', 'f', 'A', '┆
0x0b40…0b60 61 27 2e 29 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 ┆a'.); CASE ch OF ┆
0x0b60…0b80 0a 20 20 20 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 ┆ 'I', 'i' : BEGI┆
0x0b80…0ba0 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 ┆
0x0ba0…0bc0 57 52 49 54 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 ┆WRITE('Tast ord: '); READLN(ord_┆
0x0bc0…0be0 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 ┆); ┆
0x0be0…0c00 20 49 46 20 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 ┆ IF ord_ <> '' ┆
0x0c00…0c20 (6,) 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┆
0x0c20…0c40 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 =┆
0x0c40…0c60 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┆
0x0c60…0c80 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 *) ┆
0x0c80…0ca0 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 ┆
0x0ca0…0cc0 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); ┆
0x0cc0…0ce0 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 ┆
0x0ce0…0d00 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 ┆
0x0d00…0d20 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; ┆
0x0d20…0d40 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; ┆
0x0d40…0d60 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 := ┆
0x0d60…0d80 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┆
0x0d80…0da0 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 ┆
0x0da0…0dc0 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 ┆
0x0dc0…0de0 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 ┆
0x0de0…0e00 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 ┆
0x0e00…0e20 (7,) 76 65 6e 73 74 72 65 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 ┆venstre forgrening *) ┆
0x0e20…0e40 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 76 65 6e 73 74 72 ┆ THEN indsaet(venstr┆
0x0e40…0e60 65 2c 20 6e 79 74 6f 72 64 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆e, nytord) ┆
0x0e60…0e80 45 4c 53 45 20 49 46 20 6e 79 74 6f 72 64 20 3e 20 64 61 74 61 20 28 2a 20 53 7c 67 20 69 20 68 ┆ELSE IF nytord > data (* Søg i h┆
0x0e80…0ea0 7c 6a 72 65 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 20 20 ┆øjre forgrening *) ┆
0x0ea0…0ec0 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 20 69 6e 64 73 61 65 74 28 68 6f 65 6a 72 65 2c 20 6e ┆ THEN indsaet(hoejre, n┆
0x0ec0…0ee0 79 74 6f 72 64 29 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 ┆ytord) ELSE┆
0x0ee0…0f00 20 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 0d 0a ┆ BEGIN ┆
0x0f00…0f20 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 45 4c 4e 28 ┆ WRITELN(┆
0x0f20…0f40 6e 79 74 6f 72 64 2c 20 27 20 66 69 6e 64 65 73 20 69 20 66 6f 72 76 65 6a 65 6e 27 29 3b 0d 0a ┆nytord, ' findes i forvejen'); ┆
0x0f40…0f60 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 45 28 27 54 ┆ WRITE('T┆
0x0f60…0f80 61 73 74 20 3c 52 45 54 55 52 4e 3e 27 29 3b 20 52 45 41 44 4c 4e 28 63 68 29 3b 0d 0a 20 20 20 ┆ast <RETURN>'); READLN(ch); ┆
0x0f80…0fa0 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 20 ┆ END; ┆
0x0fa0…0fc0 20 20 20 20 20 45 4e 44 3b 20 28 2a 20 69 6e 64 73 61 65 74 20 2a 29 0d 0a 20 20 20 20 20 20 20 ┆ END; (* indsaet *) ┆
0x0fc0…0fe0 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 75 64 73 6b 72 69 76 ┆ PROCEDURE udskriv┆
0x0fe0…1000 28 72 6f 64 20 3a 20 70 6f 69 6e 74 65 72 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 0d 0a 20 20 ┆(rod : pointer); ┆