|
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: 4352 (0x1100)
Names: »ORDHYP.PAS«
└─⟦f983c2ef3⟧ Bits:30004681 Pascal opgaver (Butler)
└─⟦this⟧ »ORDHYP.PAS«
0x0000…0020 (0,) 20 4f 52 20 28 63 68 20 49 4e 20 62 6f 67 73 74 61 76 65 72 29 3b 0d 0a 20 20 20 20 20 20 20 20 ┆ OR (ch IN bogstaver); ┆
0x0020…0040 20 20 20 20 20 20 73 74 72 65 6e 67 20 3a 3d 20 27 27 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ streng := ''; ┆
0x0040…0060 20 20 20 49 46 20 4e 4f 54 20 45 4f 46 28 69 6e 64 66 69 6c 29 0d 0a 20 20 20 20 20 20 20 20 20 ┆ IF NOT EOF(indfil) ┆
0x0060…0080 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 20 42 ┆ THEN B┆
0x0080…00a0 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 74 61 65 6c 6c 65 ┆EGIN taelle┆
0x00a0…00c0 72 20 3a 3d 20 30 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 48 49 ┆r := 0; WHI┆
0x00c0…00e0 4c 45 20 63 68 20 49 4e 20 62 6f 67 73 74 61 76 65 72 20 44 4f 0d 0a 20 20 20 20 20 20 20 20 20 ┆LE ch IN bogstaver DO ┆
0x00e0…0100 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 ┆
0x0100…0120 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 74 61 65 6c 6c 65 72 20 3c 20 6d 61 78 6f 72 64 6c ┆ IF taeller < maxordl┆
0x0120…0140 61 65 6e 67 64 65 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 ┆aengde ┆
0x0140…0160 20 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ THEN ┆
0x0160…0180 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 20 20 ┆ BEGIN ┆
0x0180…01a0 20 20 20 20 20 20 20 20 20 74 61 65 6c 6c 65 72 20 3a 3d 20 74 61 65 6c 6c 65 72 20 2b 20 31 3b ┆ taeller := taeller + 1;┆
0x01a0…01c0 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 ┆ ┆
0x01c0…01e0 73 74 72 65 6e 67 20 3a 3d 20 73 74 72 65 6e 67 20 2b 20 63 68 3b 0d 0a 20 20 20 20 20 20 20 20 ┆streng := streng + ch; ┆
0x01e0…0200 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; ┆
0x0200…0220 (1,) 2b 20 31 3b 0d 0a 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 ┆+ 1; afgjort :=┆
0x0220…0240 20 54 52 55 45 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 27 42 ┆ TRUE; WRITE('B┆
0x0240…0260 20 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 20 20 20 20 20 20 ┆ '); END; ┆
0x0260…0280 20 20 55 4e 54 49 4c 20 61 66 67 6a 6f 72 74 3b 0d 0a 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 ┆ UNTIL afgjort; END; ┆
0x0280…02a0 20 20 57 52 49 54 45 4c 4e 3b 0d 0a 20 20 20 20 57 52 49 54 45 4c 4e 3b 0d 0a 20 20 20 20 57 52 ┆ WRITELN; WRITELN; WR┆
0x02a0…02c0 49 54 45 4c 4e 28 27 55 64 20 61 66 20 27 2c 20 61 6e 74 61 6c 2c 20 27 20 73 70 69 6c 20 68 61 ┆ITELN('Ud af ', antal, ' spil ha┆
0x02c0…02e0 72 20 41 20 76 75 6e 64 65 74 20 27 2c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 61 73 65 6a 72 ┆r A vundet ', asejr┆
0x02e0…0300 20 2f 20 61 6e 74 61 6c 20 2a 20 31 30 30 20 3a 20 35 20 3a 20 32 2c 20 27 20 25 20 6f 67 20 42 ┆ / antal * 100 : 5 : 2, ' % og B┆
0x0300…0320 20 68 61 72 20 76 75 6e 64 65 74 20 27 2c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 73 65 6a ┆ har vundet ', bsej┆
0x0320…0340 72 20 2f 20 61 6e 74 61 6c 20 2a 20 31 30 30 20 3a 20 35 20 3a 20 32 2c 20 27 20 25 27 29 3b 0d ┆r / antal * 100 : 5 : 2, ' %'); ┆
0x0340…0360 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 1a ┆ END. ┆
0x0360…0380 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ ┆
0x0380…03a0 e5 e5 e5 e5 e5 e5 e5 e5 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…]
0x0600…0620 (3,) 20 20 20 20 20 20 20 20 50 52 4f 47 52 41 4d 20 6f 72 64 68 79 70 3b 0d 0a 20 20 20 20 20 20 20 ┆ PROGRAM ordhyp; ┆
0x0620…0640 20 0d 0a 20 20 20 20 20 20 20 20 20 20 43 4f 4e 53 54 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ CONST ┆
0x0640…0660 6d 61 78 6f 72 64 6c 61 65 6e 67 64 65 20 3d 20 32 30 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ┆maxordlaengde = 20; ┆
0x0660…0680 20 62 6f 67 73 74 61 76 65 72 20 3a 20 53 45 54 20 4f 46 20 43 48 41 52 20 3d 20 28 2e 27 41 27 ┆ bogstaver : SET OF CHAR = (.'A'┆
0x0680…06a0 20 2e 2e 20 27 5d 27 2c 20 27 61 27 20 2e 2e 20 27 7d 27 2e 29 3b 0d 0a 20 20 20 20 20 20 20 20 ┆ .. 'Å', 'a' .. 'å'.); ┆
0x06a0…06c0 20 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 ┆ TYPE ┆
0x06c0…06e0 20 20 6f 72 64 74 79 70 65 20 3d 20 53 54 52 49 4e 47 28 2e 6d 61 78 6f 72 64 6c 61 65 6e 67 64 ┆ ordtype = STRING(.maxordlaengd┆
0x06e0…0700 65 2e 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 70 6f 69 6e 74 65 72 20 3d 20 5e 20 70 6f ┆e.); pointer = ^ po┆
0x0700…0720 73 74 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 70 6f 73 74 20 3d 20 52 45 43 4f 52 44 0d 0a ┆st; post = RECORD ┆
0x0720…0740 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 76 65 6e 73 74 72 65 2c 20 68 6f ┆ venstre, ho┆
0x0740…0760 65 6a 72 65 20 3a 20 70 6f 69 6e 74 65 72 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ejre : pointer; ┆
0x0760…0780 20 20 20 20 20 20 6f 72 64 5f 20 3a 20 6f 72 64 74 79 70 65 3b 0d 0a 20 20 20 20 20 20 20 20 20 ┆ ord_ : ordtype; ┆
0x0780…07a0 20 20 20 20 20 20 20 20 20 20 20 20 6f 72 64 74 61 65 6c 6c 65 72 20 3a 20 49 4e 54 45 47 45 52 ┆ ordtaeller : INTEGER┆
0x07a0…07c0 3b 0d 0a 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 ┆; END; ┆
0x07c0…07e0 20 20 20 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 ┆ VAR ┆
0x07e0…0800 20 20 20 6f 72 64 74 72 61 65 20 3a 20 70 6f 69 6e 74 65 72 3b 0d 0a 20 20 20 20 20 20 20 20 20 ┆ ordtrae : pointer; ┆
0x0800…0820 (4,) 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 45 4f 46 28 69 6e 64 ┆ IF NOT EOF(ind┆
0x0820…0840 66 69 6c 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 ┆fil) ┆
0x0840…0860 54 48 45 4e 20 52 45 41 44 28 69 6e 64 66 69 6c 2c 20 63 68 29 0d 0a 20 20 20 20 20 20 20 20 20 ┆THEN READ(indfil, ch) ┆
0x0860…0880 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 3a 3d 20 27 20 27 3b ┆ ELSE ch := ' ';┆
0x0880…08a0 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 20 20 ┆ END; ┆
0x08a0…08c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆ END; ┆
0x08c0…08e0 20 20 20 20 73 74 72 65 6e 67 20 3a 3d 20 73 6d 61 61 62 6f 67 73 74 61 76 65 72 28 73 74 72 65 ┆ streng := smaabogstaver(stre┆
0x08e0…0900 6e 67 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 20 28 2a 20 6c 61 65 73 6f 72 ┆ng); END; (* laesor┆
0x0900…0920 64 20 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 ┆d *) PROC┆
0x0920…0940 45 44 55 52 45 20 67 65 6d 6f 72 64 28 56 41 52 20 74 72 61 65 20 3a 20 70 6f 69 6e 74 65 72 3b ┆EDURE gemord(VAR trae : pointer;┆
0x0940…0960 20 73 74 72 65 6e 67 20 3a 20 6f 72 64 74 79 70 65 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 0d ┆ streng : ordtype); ┆
0x0960…0980 0a 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 20 28 2a 20 67 65 6d 6f 72 64 20 2a 29 0d ┆ BEGIN (* gemord *) ┆
0x0980…09a0 0a 20 20 20 20 20 20 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 ┆ IF trae = NIL ┆
0x09a0…09c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ THEN ┆
0x09c0…09e0 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 ┆
0x09e0…0a00 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 20 20 ┆ NEW(trae); ┆
0x0a00…0a20 (5,) 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 ┆
0x0a20…0a40 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 ┆
0x0a40…0a60 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 20 20 ┆ venstre := NIL; ┆
0x0a60…0a80 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 20 20 ┆ hoejre := NIL; ┆
0x0a80…0aa0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 72 64 5f 20 3a 3d 20 73 74 ┆ ord_ := st┆
0x0aa0…0ac0 72 65 6e 67 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 6f ┆reng; o┆
0x0ac0…0ae0 72 64 74 61 65 6c 6c 65 72 20 3a 3d 20 31 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆rdtaeller := 1; ┆
0x0ae0…0b00 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 20 20 45 ┆ END; E┆
0x0b00…0b20 4e 44 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 20 0d 0a 20 20 20 20 20 ┆ND ELSE ┆
0x0b20…0b40 20 20 20 20 20 20 20 20 20 20 20 20 20 57 49 54 48 20 74 72 61 65 5e 20 44 4f 0d 0a 20 20 20 20 ┆ WITH trae^ DO ┆
0x0b40…0b60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 73 74 72 65 6e 67 20 3c 20 6f 72 64 5f ┆ IF streng < ord_┆
0x0b60…0b80 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 67 65 6d ┆ THEN gem┆
0x0b80…0ba0 6f 72 64 28 76 65 6e 73 74 72 65 2c 20 73 74 72 65 6e 67 29 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆ord(venstre, streng) ┆
0x0ba0…0bc0 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 20 49 46 20 73 74 72 65 6e 67 20 3e 20 6f 72 64 5f 0d ┆ ELSE IF streng > ord_ ┆
0x0bc0…0be0 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 67 65 6d 6f ┆ THEN gemo┆
0x0be0…0c00 72 64 28 68 6f 65 6a 72 65 2c 20 73 74 72 65 6e 67 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆rd(hoejre, streng) ┆
0x0c00…0c20 (6,) 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 20 ┆ ELSE ┆
0x0c20…0c40 20 20 20 20 6f 72 64 74 61 65 6c 6c 65 72 20 3a 3d 20 6f 72 64 74 61 65 6c 6c 65 72 20 2b 20 31 ┆ ordtaeller := ordtaeller + 1┆
0x0c40…0c60 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 20 28 2a 20 67 65 6d 6f 72 64 20 2a 29 ┆; END; (* gemord *)┆
0x0c60…0c80 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 43 45 44 ┆ PROCED┆
0x0c80…0ca0 55 52 45 20 73 6b 72 69 76 6f 72 64 28 74 72 61 65 20 3a 20 70 6f 69 6e 74 65 72 29 3b 0d 0a 20 ┆URE skrivord(trae : pointer); ┆
0x0ca0…0cc0 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 20 ┆ BEGIN (* ┆
0x0cc0…0ce0 73 6b 72 69 76 6f 72 64 20 2a 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 74 72 ┆skrivord *) IF tr┆
0x0ce0…0d00 61 65 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 54 48 45 4e 0d ┆ae <> NIL THEN ┆
0x0d00…0d20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 49 54 48 20 74 72 61 65 5e 20 44 4f ┆ WITH trae^ DO┆
0x0d20…0d40 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 ┆ BEGIN ┆
0x0d40…0d60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6b 72 69 76 6f 72 64 28 76 65 6e 73 ┆ skrivord(vens┆
0x0d60…0d80 74 72 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 57 52 49 ┆tre); WRI┆
0x0d80…0da0 54 45 4c 4e 28 6f 72 64 74 61 65 6c 6c 65 72 20 3a 20 34 2c 20 27 20 20 20 20 20 20 20 27 2c 20 ┆TELN(ordtaeller : 4, ' ', ┆
0x0da0…0dc0 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 73 6b ┆ord_); sk┆
0x0dc0…0de0 72 69 76 6f 72 64 28 68 6f 65 6a 72 65 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆rivord(hoejre); ┆
0x0de0…0e00 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 20 28 2a 20 73 ┆ END; END; (* s┆
0x0e00…0e20 (7,) 6b 72 69 76 6f 72 64 20 2a 29 0d 0a 20 20 20 20 20 20 20 20 20 20 0d 0a 20 20 20 20 20 20 20 20 ┆krivord *) ┆
0x0e20…0e40 20 20 42 45 47 49 4e 20 28 2a 20 6f 72 64 68 79 70 20 2a 29 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆ BEGIN (* ordhyp *) ┆
0x0e40…0e60 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 6f 72 ┆ WRITE(CLRHOM); or┆
0x0e60…0e80 64 74 72 61 65 20 3a 3d 20 4e 49 4c 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 ┆dtrae := NIL; WRITE┆
0x0e80…0ea0 28 27 48 76 69 6c 6b 65 6e 20 66 69 6c 20 73 6b 61 6c 20 6f 70 74 61 65 6c 6c 65 73 3a 20 27 29 ┆('Hvilken fil skal optaelles: ')┆
0x0ea0…0ec0 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 42 55 46 4c 45 4e 20 3a 3d 20 31 34 3b 0d 0a 20 20 ┆; BUFLEN := 14; ┆
0x0ec0…0ee0 20 20 20 20 20 20 20 20 20 20 52 45 41 44 4c 4e 28 66 69 6c 6e 61 76 6e 29 3b 0d 0a 20 20 20 20 ┆ READLN(filnavn); ┆
0x0ee0…0f00 20 20 20 20 20 20 20 20 41 53 53 49 47 4e 28 69 6e 64 66 69 6c 2c 20 66 69 6c 6e 61 76 6e 29 3b ┆ ASSIGN(indfil, filnavn);┆
0x0f00…0f20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 52 45 53 45 54 28 69 6e 64 66 69 6c 29 3b 0d 0a 20 20 ┆ RESET(indfil); ┆
0x0f20…0f40 20 20 20 20 20 20 20 20 20 20 57 48 49 4c 45 20 4e 4f 54 20 45 4f 46 28 69 6e 64 66 69 6c 29 20 ┆ WHILE NOT EOF(indfil) ┆
0x0f40…0f60 44 4f 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 ┆DO BEGIN ┆
0x0f60…0f80 20 20 20 20 20 20 20 20 20 6c 61 65 73 6f 72 64 28 6e 61 65 73 74 65 6f 72 64 29 3b 0d 0a 20 20 ┆ laesord(naesteord); ┆
0x0f80…0fa0 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 66 69 6c 29 ┆ IF NOT EOF(indfil)┆
0x0fa0…0fc0 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 67 65 6d 6f 72 64 28 ┆ THEN gemord(┆
0x0fc0…0fe0 6f 72 64 74 72 61 65 2c 20 6e 61 65 73 74 65 6f 72 64 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆ordtrae, naesteord); ┆
0x0fe0…1000 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 43 4c 4f 53 45 28 69 6e 64 66 ┆ END; CLOSE(indf┆
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 ┆ ┆
[…0x7…]