|
DataMuseum.dkPresents historical artifacts from the history of: Bogika Butler |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Bogika Butler Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 5120 (0x1400)
Names: »POST_ANT.PAS«
└─⟦f983c2ef3⟧ Bits:30004681 Pascal opgaver (Butler)
└─⟦this⟧ »POST_ANT.PAS«
0x0000…0020 (0,) 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 20 49 46 20 6e 79 70 6f 73 74 5e 2e 6e ┆ ELSE IF nypost^.n┆
0x0020…0040 61 76 6e 20 3c 20 66 6f 65 72 73 74 65 5e 2e 6e 61 76 6e 20 28 2a 20 66 7c 72 20 66 7c 72 73 74 ┆avn < foerste^.navn (* før først┆
0x0040…0060 65 20 70 6f 73 74 20 2a 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 0d ┆e post *) THEN ┆
0x0060…0080 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 ┆ BEGIN ┆
0x0080…00a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 79 70 6f 73 74 5e 2e 6e 61 65 73 74 65 20 3a 3d 66 ┆ nypost^.naeste :=f┆
0x00a0…00c0 6f 65 72 73 74 65 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 65 ┆oerste; foe┆
0x00c0…00e0 72 73 74 65 20 3a 3d 6e 79 70 6f 73 74 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆rste :=nypost; ┆
0x00e0…0100 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 20 ┆ WRITELN; ┆
0x0100…0120 20 20 57 52 49 54 45 28 6e 79 70 6f 73 74 5e 2e 6e 61 76 6e 2c 20 27 20 65 72 20 6e 75 20 69 6e ┆ WRITE(nypost^.navn, ' er nu in┆
0x0120…0140 64 73 61 74 20 69 20 6b 7b 64 65 6e 2e 20 27 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆dsat i kæden. '); ┆
0x0140…0160 20 20 20 20 20 20 20 72 65 74 75 72 6e 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ return; ┆
0x0160…0180 20 20 45 4e 44 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 20 28 2a 20 66 69 6e ┆ END ELSE (* fin┆
0x0180…01a0 64 20 72 69 67 74 69 67 20 70 6c 61 64 73 20 74 69 6c 20 6e 79 70 6f 73 74 20 76 69 61 20 72 65 ┆d rigtig plads til nypost via re┆
0x01a0…01c0 6b 75 72 73 69 76 74 20 6b 61 6c 64 20 2a 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆kursivt kald *) ┆
0x01c0…01e0 20 69 6e 64 73 61 65 74 28 66 6f 65 72 73 74 65 5e 2e 6e 61 65 73 74 65 2c 20 6e 79 70 6f 73 74 ┆ indsaet(foerste^.naeste, nypost┆
0x01e0…0200 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 20 28 2a 20 69 6e 64 73 61 65 74 20 ┆); END; (* indsaet ┆
0x0200…0220 (1,) 20 20 20 57 52 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 ┆ WRITE('Navn: '); READLN(pp^.n┆
0x0220…0240 61 76 6e 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 ┆avn); ┆
0x0240…0260 20 20 20 20 57 52 49 54 45 28 27 41 64 72 65 73 73 65 3a 20 27 29 3b 20 52 45 41 44 4c 4e 28 70 ┆ WRITE('Adresse: '); READLN(p┆
0x0260…0280 70 5e 2e 61 64 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 ┆p^.adresse); ┆
0x0280…02a0 20 20 20 20 20 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 ┆ pp^.naeste := NIL; ┆
0x02a0…02c0 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 64 73 ┆ inds┆
0x02c0…02e0 61 65 74 28 74 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 ┆aet(top, pp); ┆
0x02e0…0300 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 20 20 20 ┆ END; ┆
0x0300…0320 27 46 27 2c 20 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 ┆'F', 'f' : BEGIN ┆
0x0320…0340 20 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; ┆
0x0340…0360 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 48 76 65 ┆ WRITE('Hve┆
0x0360…0380 6d 20 73 6b 61 6c 20 66 6a 65 72 6e 65 73 3a 20 27 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ┆m skal fjernes: '); ┆
0x0380…03a0 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 75 64 5e 2e 6e 61 76 ┆ READLN(ud^.nav┆
0x03a0…03c0 6e 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 ┆n); ┆
0x03c0…03e0 20 20 66 6a 65 72 6e 28 74 6f 70 2c 20 75 64 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ fjern(top, ud); ┆
0x03e0…0400 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 20 20 ┆ END; ┆
0x0400…0420 (2,) 20 20 20 20 27 55 27 2c 20 27 75 27 20 3a 20 75 64 73 6b 72 69 76 28 74 6f 70 29 3b 0d 0a 20 20 ┆ 'U', 'u' : udskriv(top); ┆
0x0420…0440 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 50 27 2c 20 27 70 27 20 3a 20 42 45 47 49 4e 0d 0a ┆ 'P', 'p' : BEGIN ┆
0x0440…0460 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┆
0x0460…0480 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 20 20 20 20 20 20 20 ┆TELN; ┆
0x0480…04a0 20 20 20 20 57 52 49 54 45 28 27 41 6e 74 61 6c 20 70 6f 73 74 65 72 3a 20 27 2c 20 70 6f 73 74 ┆ WRITE('Antal poster: ', post┆
0x04a0…04c0 61 6e 74 61 6c 28 74 6f 70 29 2c 20 27 20 27 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆antal(top), ' '); ┆
0x04c0…04e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 3b 0d 0a 20 20 20 20 20 20 20 ┆ return; ┆
0x04e0…0500 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; ┆
0x0500…0520 20 20 20 20 20 20 20 20 20 20 27 4b 27 2c 20 27 6b 27 20 3a 20 42 45 47 49 4e 0d 0a 20 20 20 20 ┆ 'K', 'k' : BEGIN ┆
0x0520…0540 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 6b 6f 70 69 28 74 6f ┆ kopi(to┆
0x0540…0560 70 2c 20 74 6f 70 6b 6f 70 69 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆p, topkopi); ┆
0x0560…0580 20 20 20 20 20 20 20 20 20 20 20 75 64 73 6b 72 69 76 28 74 6f 70 6b 6f 70 69 29 3b 0d 0a 20 20 ┆ udskriv(topkopi); ┆
0x0580…05a0 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 0a 20 ┆ END; ┆
0x05a0…05c0 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┆
0x05c0…05e0 4e 54 49 4c 20 63 68 20 49 4e 20 28 2e 27 41 27 2c 20 27 61 27 2e 29 3b 0d 0a 20 20 20 20 20 20 ┆NTIL ch IN (.'A', 'a'.); ┆
0x05e0…0600 20 20 20 20 45 4e 44 2e 20 28 2a 20 70 6f 73 74 6b 6f 70 69 20 2a 29 0d 0a 1a 1a 1a 1a 1a 1a 1a ┆ END. (* postkopi *) ┆
0x0600…0620 (3,) 20 20 20 20 20 20 20 20 50 52 4f 47 52 41 4d 20 70 6f 73 74 5f 61 6e 74 3b 0d 0a 20 20 20 20 20 ┆ PROGRAM post_ant; ┆
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 34 30 20 3d 20 53 54 52 49 4e 47 28 2e 34 30 2e 29 3b 0d 0a 20 20 20 20 20 20 20 20 ┆ str40 = STRING(.40.); ┆
0x0660…0680 20 20 20 20 6c 69 6e 6b 20 3d 20 5e 20 70 6f 73 74 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ link = ^ post; ┆
0x0680…06a0 70 6f 73 74 20 3d 20 52 45 43 4f 52 44 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆post = RECORD ┆
0x06a0…06c0 20 20 20 20 6e 61 65 73 74 65 20 3a 20 6c 69 6e 6b 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ naeste : link; ┆
0x06c0…06e0 20 20 20 20 20 20 20 20 20 6e 61 76 6e 20 3a 20 73 74 72 34 30 3b 0d 0a 20 20 20 20 20 20 20 20 ┆ navn : str40; ┆
0x06e0…0700 20 20 20 20 20 20 20 20 20 20 20 20 20 61 64 72 65 73 73 65 20 3a 20 73 74 72 34 30 3b 0d 0a 20 ┆ adresse : str40; ┆
0x0700…0720 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 20 20 20 20 ┆ END; ┆
0x0720…0740 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 75 ┆ VAR u┆
0x0740…0760 64 2c 20 74 6f 70 2c 20 70 70 20 3a 20 6c 69 6e 6b 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆d, top, pp : link; ┆
0x0760…0780 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 20 20 20 ┆ch : CHAR; ┆
0x0780…07a0 20 20 20 20 50 52 4f 43 45 44 55 52 45 20 72 65 74 75 72 6e 3b 0d 0a 20 20 20 20 20 20 20 20 20 ┆ PROCEDURE return; ┆
0x07a0…07c0 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 20 ┆ VAR ┆
0x07c0…07e0 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 20 ┆ ch : CHAR; ┆
0x07e0…0800 20 20 20 20 20 20 20 20 42 45 47 49 4e 20 28 2a 20 72 65 74 75 72 6e 20 2a 29 0d 0a 20 20 20 20 ┆ BEGIN (* return *) ┆
0x0800…0820 (4,) 2a 29 0d 0a 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 43 45 44 ┆*) PROCED┆
0x0820…0840 55 52 45 20 66 6a 65 72 6e 28 56 41 52 20 66 6f 65 72 73 74 65 20 3a 20 6c 69 6e 6b 3b 20 67 6c ┆URE fjern(VAR foerste : link; gl┆
0x0840…0860 70 6f 73 74 20 3a 20 6c 69 6e 6b 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0d 0a 20 ┆post : link); ┆
0x0860…0880 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 20 28 2a 20 66 6a 65 72 6e 20 2a 29 0d 0a 20 20 ┆ BEGIN (* fjern *) ┆
0x0880…08a0 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 66 6f 65 72 73 74 65 20 3d 20 4e 49 4c 20 28 2a 20 ┆ IF foerste = NIL (* ┆
0x08a0…08c0 6b 7b 64 65 6e 20 74 6f 6d 20 2a 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 ┆kæden tom *) TH┆
0x08c0…08e0 45 4e 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 4e 28 67 6c ┆EN WRITELN(gl┆
0x08e0…0900 70 6f 73 74 5e 2e 6e 61 76 6e 2c 20 27 20 66 69 6e 64 65 73 20 69 6b 6b 65 20 69 20 6b 7b 64 65 ┆post^.navn, ' findes ikke i kæde┆
0x0900…0920 6e 27 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 20 49 46 20 66 6f 65 72 73 ┆n') ELSE IF foers┆
0x0920…0940 74 65 5e 2e 6e 61 76 6e 20 3d 20 67 6c 70 6f 73 74 5e 2e 6e 61 76 6e 20 28 2a 20 66 6a 65 72 6e ┆te^.navn = glpost^.navn (* fjern┆
0x0940…0960 20 70 6f 73 74 20 31 20 2a 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4e ┆ post 1 *) THEN┆
0x0960…0980 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 ┆ BEGIN ┆
0x0980…09a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 65 72 73 74 65 20 3a 3d 20 66 6f 65 72 73 74 ┆ foerste := foerst┆
0x09a0…09c0 65 5e 2e 6e 61 65 73 74 65 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆e^.naeste; ┆
0x09c0…09e0 57 52 49 54 45 28 67 6c 70 6f 73 74 5e 2e 6e 61 76 6e 2c 20 27 20 65 72 20 73 6c 65 74 74 65 74 ┆WRITE(glpost^.navn, ' er slettet┆
0x09e0…0a00 20 66 72 61 20 6b 7b 64 65 6e 2e 20 27 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ fra kæden. '); ┆
0x0a00…0a20 (5,) 20 20 20 20 20 72 65 74 75 72 6e 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ return; ┆
0x0a20…0a40 45 4e 44 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 20 28 2a 20 53 7c 67 20 65 ┆END ELSE (* Søg e┆
0x0a40…0a60 66 74 65 72 20 6e 61 76 6e 65 74 20 76 69 61 20 72 65 6b 75 72 73 69 76 74 20 6b 61 6c 64 20 2a ┆fter navnet via rekursivt kald *┆
0x0a60…0a80 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6a 65 72 6e 28 66 6f 65 72 73 74 65 ┆) fjern(foerste┆
0x0a80…0aa0 5e 2e 6e 61 65 73 74 65 2c 20 67 6c 70 6f 73 74 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆^.naeste, glpost); ┆
0x0aa0…0ac0 45 4e 44 3b 20 28 2a 20 66 6a 65 72 6e 20 2a 29 0d 0a 20 20 20 20 20 20 20 20 20 20 0d 0a 20 20 ┆END; (* fjern *) ┆
0x0ac0…0ae0 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 28 66 6f 65 72 73 74 ┆ PROCEDURE udskriv(foerst┆
0x0ae0…0b00 65 20 3a 20 6c 69 6e 6b 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 0d 0a 20 20 20 20 20 20 20 20 ┆e : link); ┆
0x0b00…0b20 20 20 20 20 56 41 52 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 70 20 3a 20 6c 69 6e 6b ┆ VAR pp : link┆
0x0b20…0b40 3b 0d 0a 20 20 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 ┆; B┆
0x0b40…0b60 45 47 49 4e 20 28 2a 20 75 64 73 6b 72 69 76 20 2a 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆EGIN (* udskriv *) ┆
0x0b60…0b80 20 20 70 70 20 3a 3d 20 66 6f 65 72 73 74 65 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ pp := foerste; ┆
0x0b80…0ba0 57 52 49 54 45 4c 4e 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 ┆WRITELN; WRITELN(┆
0x0ba0…0bc0 27 4b 7b 64 65 6e 20 69 6e 64 65 68 6f 6c 64 65 72 20 66 7c 6c 67 65 6e 64 65 20 70 65 72 73 6f ┆'Kæden indeholder følgende perso┆
0x0bc0…0be0 6e 65 72 3a 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 ┆ner:'); WRITELN; ┆
0x0be0…0c00 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 48 49 4c 45 20 70 70 20 3c 3e 20 4e 49 4c 20 44 ┆ WHILE pp <> NIL D┆
0x0c00…0c20 (6,) 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 20 20 20 20 20 ┆O BEGIN ┆
0x0c20…0c40 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 70 70 5e 2e 6e 61 76 6e 29 3b 0d 0a ┆ WRITELN(pp^.navn); ┆
0x0c40…0c60 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 70 70 5e 2e 61 64 ┆ WRITELN(pp^.ad┆
0x0c60…0c80 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 57 52 49 54 45 ┆resse); WRITE┆
0x0c80…0ca0 4c 4e 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 70 20 3a 3d 20 70 70 5e ┆LN; pp := pp^┆
0x0ca0…0cc0 2e 6e 61 65 73 74 65 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 ┆.naeste; END; ┆
0x0cc0…0ce0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 3b 0d 0a 20 20 20 20 20 20 20 20 20 ┆ return; ┆
0x0ce0…0d00 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 20 20 20 20 20 ┆ END; (* udskriv *) ┆
0x0d00…0d20 20 0d 0a 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 20 28 2a 20 70 6f 73 74 5f 61 6e 74 20 2a ┆ BEGIN (* post_ant *┆
0x0d20…0d40 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 20 20 20 ┆) top := NIL; ┆
0x0d40…0d60 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 20 52 45 ┆ NEW(ud); RE┆
0x0d60…0d80 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 48 4f 4d ┆PEAT WRITE(CLRHOM┆
0x0d80…0da0 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 20 34 29 3b ┆); GOTOXY(10, 4);┆
0x0da0…0dc0 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 20 20 ┆ WRITE('SORTERET KÆDE'); ┆
0x0dc0…0de0 20 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 31 30 2c 20 37 29 3b 20 57 52 49 54 45 28 27 49 2e ┆ GOTOXY(10, 7); WRITE('I.┆
0x0de0…0e00 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 20 20 20 20 ┆ Indsæt person i kæden.'); ┆
0x0e00…0e20 (7,) 20 20 20 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 31 30 2c 20 39 29 3b 20 57 52 49 54 45 28 27 ┆ GOTOXY(10, 9); WRITE('┆
0x0e20…0e40 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 3b 0d 0a ┆F. Fjerne person fra kæden.'); ┆
0x0e40…0e60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 31 30 2c 20 31 31 29 3b 20 57 52 ┆ GOTOXY(10, 11); WR┆
0x0e60…0e80 49 54 45 28 27 55 2e 20 55 64 73 6b 72 69 76 65 20 6b 7b 64 65 6e 2e 27 29 3b 0d 0a 20 20 20 20 ┆ITE('U. Udskrive kæden.'); ┆
0x0e80…0ea0 20 20 20 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 31 30 2c 20 31 33 29 3b 20 57 52 49 54 45 28 ┆ GOTOXY(10, 13); WRITE(┆
0x0ea0…0ec0 27 41 2e 20 41 66 73 6c 75 74 74 65 20 70 72 6f 67 72 61 6d 6d 65 74 2e 27 29 3b 0d 0a 20 20 20 ┆'A. Afslutte programmet.'); ┆
0x0ec0…0ee0 20 20 20 20 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 31 30 2c 20 31 35 29 3b 20 57 52 49 54 45 ┆ GOTOXY(10, 15); WRITE┆
0x0ee0…0f00 20 28 27 50 2e 20 55 64 73 6b 72 69 76 65 20 70 6f 73 74 61 6e 74 61 6c 2e 27 29 3b 0d 0a 20 20 ┆ ('P. Udskrive postantal.'); ┆
0x0f00…0f20 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 31 30 2c 20 31 37 29 3b 20 57 52 49 54 ┆ GOTOXY(10, 17); WRIT┆
0x0f20…0f40 45 28 27 54 61 73 74 20 6b 6f 6d 6d 61 6e 64 6f 3a 20 27 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 ┆E('Tast kommando: '); ┆
0x0f40…0f60 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 20 20 52 45 41 ┆ REPEAT REA┆
0x0f60…0f80 44 28 4b 42 44 2c 20 63 68 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 55 4e 54 49 4c ┆D(KBD, ch); UNTIL┆
0x0f80…0fa0 20 63 68 20 49 4e 20 28 2e 27 49 27 2c 20 27 69 27 2c 20 27 46 27 2c 20 27 66 27 2c 20 27 55 27 ┆ ch IN (.'I', 'i', 'F', 'f', 'U'┆
0x0fa0…0fc0 2c 20 27 75 27 2c 20 27 50 27 2c 20 27 70 27 2c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆, 'u', 'P', 'p', ┆
0x0fc0…0fe0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 41 27 2c 20 27 61 27 2e 29 3b 0d 0a 20 20 20 20 20 ┆ 'A', 'a'.); ┆
0x0fe0…1000 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 63 68 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 ┆ WRITELN(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 ┆ ┆
[…0xf…]
0x1200…1220 (9,) 20 20 20 20 20 20 20 20 50 52 4f 47 52 41 4d 20 70 72 65 64 65 66 3b 0d 0a 20 20 20 20 20 20 20 ┆ PROGRAM predef; ┆
0x1220…1240 20 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 20 ┆ BEGIN ┆
0x1240…1260 49 46 20 43 4c 52 48 4f 4d 20 3d 20 27 27 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 ┆IF CLRHOM = '' TH┆
0x1260…1280 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 20 20 20 20 ┆EN WRITELN('AK') ┆
0x1280…12a0 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 20 20 20 20 ┆ELSE WRITELN('OK'); ┆
0x12a0…12c0 20 49 46 20 43 4c 52 45 4f 53 20 3d 20 27 27 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 ┆ IF CLREOS = '' T┆
0x12c0…12e0 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 20 20 20 ┆HEN WRITELN('AK') ┆
0x12e0…1300 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 20 20 20 ┆ ELSE WRITELN('OK'); ┆
0x1300…1320 20 20 49 46 20 43 4c 52 45 4f 4c 20 3d 20 27 27 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF CLREOL = '' ┆
0x1320…1340 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 20 20 ┆THEN WRITELN('AK') ┆
0x1340…1360 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 20 20 ┆ ELSE WRITELN('OK'); ┆
0x1360…1380 20 20 20 49 46 20 49 4e 53 4c 49 4e 20 3d 20 27 27 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF INSLIN = '' ┆
0x1380…13a0 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 20 ┆ THEN WRITELN('AK') ┆
0x13a0…13c0 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 20 ┆ ELSE WRITELN('OK'); ┆
0x13c0…13e0 20 20 20 20 49 46 20 44 45 4c 4c 49 4e 20 3d 20 27 27 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF DELLIN = '' ┆
0x13e0…1400 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') ┆