|
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: 11904 (0x2e80)
Names: »DISKUDSK.PAS«
└─⟦29e35ddf2⟧ Bits:30003931/CCPM_Tegn.imd Disketter indleveret af Steffen Jensen (Piccolo/Piccoline)
└─⟦this⟧ »DISKUDSK.PAS«
0x0000…0020 (0,) 0d 0a 70 72 6f 67 72 61 6d 20 75 64 73 6b 72 69 76 3b 0d 0a 0d 0a 76 61 72 0d 0a 20 20 74 65 6b ┆ program udskriv; var tek┆
0x0020…0040 73 74 66 69 6c 2c 70 72 69 6e 74 65 72 3a 20 74 65 78 74 3b 0d 0a 20 20 64 69 73 6b 64 72 65 76 ┆stfil,printer: text; diskdrev┆
0x0040…0060 2c 74 65 67 6e 3a 20 63 68 61 72 3b 0d 0a 20 20 69 6f 66 65 6a 6c 3a 69 6e 74 65 67 65 72 3b 0d ┆,tegn: char; iofejl:integer; ┆
0x0060…0080 0a 0d 0a 0d 0a 0d 0a 0d 0a 0a 74 79 70 65 0d 0a 20 20 73 74 72 65 6e 67 38 3d 20 73 74 72 69 6e ┆ type streng8= strin┆
0x0080…00a0 67 28 2e 38 2e 29 3b 0d 0a 20 20 73 74 72 65 6e 67 38 30 3d 20 73 74 72 69 6e 67 28 2e 38 30 2e ┆g(.8.); streng80= string(.80.┆
0x00a0…00c0 29 3b 0d 0a 20 20 61 38 3d 20 61 72 72 61 79 28 2e 31 2e 2e 38 2e 29 20 6f 66 20 63 68 61 72 3b ┆); a8= array(.1..8.) of char;┆
0x00c0…00e0 0d 0a 20 20 61 33 3d 20 61 72 72 61 79 28 2e 31 2e 2e 33 2e 29 20 6f 66 20 63 68 61 72 3b 0d 0a ┆ a3= array(.1..3.) of char; ┆
0x00e0…0100 20 20 72 65 67 5f 74 79 70 65 3d 72 65 63 6f 72 64 0d 0a 20 20 20 20 61 78 2c 62 78 2c 63 78 2c ┆ reg_type=record ax,bx,cx,┆
0x0100…0120 64 78 2c 62 70 2c 73 69 2c 64 69 2c 64 73 2c 65 73 2c 66 6c 61 67 73 3a 69 6e 74 65 67 65 72 0d ┆dx,bp,si,di,ds,es,flags:integer ┆
0x0120…0140 0a 20 20 65 6e 64 3b 0d 0a 76 61 72 0d 0a 20 20 72 65 67 3a 72 65 67 5f 74 79 70 65 3b 0d 0a 20 ┆ end; var reg:reg_type; ┆
0x0140…0160 20 66 69 6c 6e 61 76 6e 3a 20 61 72 72 61 79 28 2e 31 2e 2e 35 31 32 2e 29 20 6f 66 20 73 74 72 ┆ filnavn: array(.1..512.) of str┆
0x0160…0180 65 6e 67 38 3b 0d 0a 20 20 64 69 73 6b 6f 6b 3a 20 62 6f 6f 6c 65 61 6e 3b 0d 0a 20 20 6e 2c 69 ┆eng8; diskok: boolean; n,i┆
0x0180…01a0 2c 61 6e 74 61 6c 5f 66 69 6c 65 72 3a 20 69 6e 74 65 67 65 72 3b 0d 0a 20 20 66 69 6c 6d 61 73 ┆,antal_filer: integer; filmas┆
0x01a0…01c0 6b 65 3a 20 73 74 72 65 6e 67 38 3b 0d 0a 28 2a 20 ac ac ac ac ac ac ac ac ac ac 20 2a 29 0d 0a ┆ke: streng8; (* *) ┆
0x01c0…01e0 74 79 70 65 0d 0a 20 20 73 74 72 65 6e 67 32 30 3d 73 74 72 69 6e 67 28 2e 32 30 2e 29 3b 0d 0a ┆type streng20=string(.20.); ┆
0x01e0…0200 76 61 72 0d 0a 20 20 73 74 72 65 6e 67 3a 20 73 74 72 65 6e 67 38 30 3b 0d 0a 28 2a 20 ac ac ac ┆var streng: streng80; (* ┆
0x0200…0220 ac ac ac ac ac ac ac 20 2a 29 0d 0a 28 2a 24 55 2b 2a 29 20 28 2a 20 43 54 52 4c 2b 43 20 63 68 ┆ *) (*$U+*) (* CTRL+C ch┆
0x0220…0240 65 63 6b 20 66 6f 72 20 68 76 65 72 20 70 72 6f 67 72 61 6d 6c 69 6e 69 65 20 2a 29 0d 0a 28 2a ┆eck for hver programlinie *) (*┆
0x0240…0260 20 ac ac ac ac ac ac ac ac ac ac 20 2a 29 0d 0a 70 72 6f 63 65 64 75 72 65 20 54 61 65 6e 64 43 ┆ *) procedure TaendC┆
0x0260…0280 75 72 73 6f 72 3b 0d 0a 62 65 67 69 6e 0d 0a 20 20 77 72 69 74 65 28 40 32 37 27 65 27 29 3b 0d ┆ursor; begin write(@27'e'); ┆
0x0280…02a0 0a 65 6e 64 3b 20 20 20 20 0d 0a 28 2a 20 ac ac ac ac ac ac ac ac ac ac 20 2a 29 0d 0a 70 72 6f ┆ end; (* *) pro┆
0x02a0…02c0 63 65 64 75 72 65 20 53 6c 75 6b 43 75 72 73 6f 72 3b 0d 0a 62 65 67 69 6e 20 20 0d 0a 20 20 77 ┆cedure SlukCursor; begin w┆
0x02c0…02e0 72 69 74 65 28 40 32 37 27 66 27 29 3b 0d 0a 65 6e 64 3b 20 20 20 20 0d 0a 28 2a 20 ac ac ac ac ┆rite(@27'f'); end; (* ┆
0x02e0…0300 ac ac ac ac ac ac 20 2a 29 0d 0a 70 72 6f 63 65 64 75 72 65 20 52 61 6d 6d 65 28 78 31 2c 79 31 ┆ *) procedure Ramme(x1,y1┆
0x0300…0320 2c 78 32 2c 79 32 3a 20 69 6e 74 65 67 65 72 29 3b 0d 0a 76 61 72 0d 0a 20 20 78 2c 79 3a 20 69 ┆,x2,y2: integer); var x,y: i┆
0x0320…0340 6e 74 65 67 65 72 3b 0d 0a 62 65 67 69 6e 0d 0a 20 20 67 6f 74 6f 78 79 28 78 31 2c 79 32 29 3b ┆nteger; begin gotoxy(x1,y2);┆
0x0340…0360 20 77 72 69 74 65 28 27 8b 27 29 3b 0d 0a 20 20 66 6f 72 20 78 3a 3d 28 78 31 2b 31 29 20 74 6f ┆ write(' '); for x:=(x1+1) to┆
0x0360…0380 20 28 78 32 2d 31 29 20 64 6f 20 77 72 69 74 65 28 27 88 27 29 3b 20 77 72 69 74 65 28 27 8c 27 ┆ (x2-1) do write(' '); write(' '┆
0x0380…03a0 29 3b 0d 0a 20 20 66 6f 72 20 79 3a 3d 28 79 32 2b 31 29 20 74 6f 20 28 79 31 2d 31 29 20 64 6f ┆); for y:=(y2+1) to (y1-1) do┆
0x03a0…03c0 20 62 65 67 69 6e 0d 0a 20 20 20 20 67 6f 74 6f 78 79 28 78 31 2c 79 29 3b 20 77 72 69 74 65 28 ┆ begin gotoxy(x1,y); write(┆
0x03c0…03e0 27 89 27 29 3b 0d 0a 20 20 20 20 67 6f 74 6f 78 79 28 78 32 2c 79 29 3b 20 77 72 69 74 65 28 27 ┆' '); gotoxy(x2,y); write('┆
0x03e0…0400 89 27 29 3b 0d 0a 20 20 65 6e 64 3b 0d 0a 20 20 67 6f 74 6f 78 79 28 78 31 2c 79 31 29 3b 20 77 ┆ '); end; gotoxy(x1,y1); w┆
0x0400…0420 (1,) 72 69 74 65 28 27 8d 27 29 3b 0d 0a 20 20 66 6f 72 20 78 3a 3d 28 78 31 2b 31 29 20 74 6f 20 28 ┆rite(' '); for x:=(x1+1) to (┆
0x0420…0440 78 32 2d 31 29 20 64 6f 20 77 72 69 74 65 28 27 88 27 29 3b 20 77 72 69 74 65 28 27 8e 27 29 3b ┆x2-1) do write(' '); write(' ');┆
0x0440…0460 0d 0a 65 6e 64 3b 0d 0a 28 2a 20 ac ac ac ac ac ac ac ac ac ac 20 2a 29 0d 0a 70 72 6f 63 65 64 ┆ end; (* *) proced┆
0x0460…0480 75 72 65 20 53 65 74 46 75 6e 6b 54 61 73 74 28 61 73 63 69 69 3a 20 62 79 74 65 3b 20 73 74 72 ┆ure SetFunkTast(ascii: byte; str┆
0x0480…04a0 65 6e 67 3a 20 73 74 72 65 6e 67 32 30 29 3b 0d 0a 62 65 67 69 6e 0d 0a 20 20 77 72 69 74 65 28 ┆eng: streng20); begin write(┆
0x04a0…04c0 40 32 37 27 3a 27 2b 63 68 72 28 61 73 63 69 69 29 2b 73 74 72 65 6e 67 2b 40 30 29 3b 0d 0a 65 ┆@27':'+chr(ascii)+streng+@0); e┆
0x04c0…04e0 6e 64 3b 0d 0a 28 2a 20 ac ac ac ac ac ac ac ac ac ac 20 2a 29 0d 0a 70 72 6f 63 65 64 75 72 65 ┆nd; (* *) procedure┆
0x04e0…0500 20 53 65 74 46 75 6e 6b 54 61 73 74 65 72 3b 0d 0a 62 65 67 69 6e 0d 0a 20 20 53 65 74 46 75 6e ┆ SetFunkTaster; begin SetFun┆
0x0500…0520 6b 54 61 73 74 28 37 35 2c 40 39 29 3b 20 20 20 28 2a 20 70 69 6c 20 74 69 6c 20 76 65 6e 73 74 ┆kTast(75,@9); (* pil til venst┆
0x0520…0540 72 65 20 2a 29 0d 0a 20 20 53 65 74 46 75 6e 6b 54 61 73 74 28 37 37 2c 40 32 34 29 3b 20 20 28 ┆re *) SetFunkTast(77,@24); (┆
0x0540…0560 2a 20 70 69 6c 20 74 69 6c 20 68 7c 6a 72 65 20 2a 29 0d 0a 20 20 53 65 74 46 75 6e 6b 54 61 73 ┆* pil til højre *) SetFunkTas┆
0x0560…0580 74 28 37 32 2c 40 32 36 29 3b 20 20 28 2a 20 70 69 6c 20 6f 70 20 2a 29 0d 0a 20 20 53 65 74 46 ┆t(72,@26); (* pil op *) SetF┆
0x0580…05a0 75 6e 6b 54 61 73 74 28 38 30 2c 40 31 30 29 3b 20 20 28 2a 20 70 69 6c 20 6e 65 64 20 2a 29 0d ┆unkTast(80,@10); (* pil ned *) ┆
0x05a0…05c0 0a 20 20 53 65 74 46 75 6e 6b 54 61 73 74 28 37 31 2c 40 32 39 29 3b 20 20 28 2a 20 70 69 6c 20 ┆ SetFunkTast(71,@29); (* pil ┆
0x05c0…05e0 68 6f 6d 65 20 2a 29 0d 0a 20 20 53 65 74 46 75 6e 6b 54 61 73 74 28 38 32 2c 40 34 29 3b 20 20 ┆home *) SetFunkTast(82,@4); ┆
0x05e0…0600 20 28 2a 20 74 65 67 6e 20 69 6e 64 20 2a 29 0d 0a 20 20 53 65 74 46 75 6e 6b 54 61 73 74 28 38 ┆ (* tegn ind *) SetFunkTast(8┆
0x0600…0620 33 2c 40 35 29 3b 20 20 20 28 2a 20 73 6c 65 74 20 74 65 67 6e 20 2a 29 0d 0a 20 20 53 65 74 46 ┆3,@5); (* slet tegn *) SetF┆
0x0620…0640 75 6e 6b 54 61 73 74 28 37 33 2c 40 32 31 29 3b 20 28 2a 20 41 31 20 2a 29 0d 0a 20 20 53 65 74 ┆unkTast(73,@21); (* A1 *) Set┆
0x0640…0660 46 75 6e 6b 54 61 73 74 28 37 34 2c 40 32 32 29 3b 20 28 2a 20 41 32 20 2a 29 0d 0a 65 6e 64 3b ┆FunkTast(74,@22); (* A2 *) end;┆
0x0660…0680 0d 0a 28 2a 20 ac ac ac ac ac ac ac ac ac ac 20 2a 29 0d 0a 70 72 6f 63 65 64 75 72 65 20 49 6e ┆ (* *) procedure In┆
0x0680…06a0 70 75 74 53 74 72 65 6e 67 28 6b 6f 6c 6f 6e 6e 65 2c 6c 69 6e 69 65 2c 6d 61 78 5f 6c 61 65 6e ┆putStreng(kolonne,linie,max_laen┆
0x06a0…06c0 67 64 65 3a 69 6e 74 65 67 65 72 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆gde:integer; ┆
0x06c0…06e0 20 20 20 20 74 65 67 6e 5f 73 74 6f 65 72 72 65 6c 73 65 3a 20 69 6e 74 65 67 65 72 3b 0d 0a 20 ┆ tegn_stoerrelse: integer; ┆
0x06e0…0700 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6a 65 72 6e 5f 6d 65 6c 6c 65 ┆ fjern_melle┆
0x0700…0720 6d 72 75 6d 2c 74 65 67 6e 5f 72 61 6d 6d 65 3a 20 62 6f 6f 6c 65 61 6e 3b 0d 0a 20 20 20 20 20 ┆mrum,tegn_ramme: boolean; ┆
0x0720…0740 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 56 41 52 20 73 74 72 65 6e 67 3a 73 74 72 65 ┆ VAR streng:stre┆
0x0740…0760 6e 67 38 29 3b 0d 0a 0d 0a 28 2a 20 48 76 69 73 20 27 66 6a 65 72 6e 5f 6d 65 6c 6c 65 6d 72 75 ┆ng8); (* Hvis 'fjern_mellemru┆
0x0760…0780 6d 27 3d 54 52 55 45 20 66 6a 65 72 6e 65 73 20 65 76 74 2e 20 6d 65 6c 6c 65 6d 72 75 6d 20 74 ┆m'=TRUE fjernes evt. mellemrum t┆
0x0780…07a0 69 6c 20 73 69 64 73 74 2c 20 6f 67 73 7d 20 20 20 20 20 20 2a 29 0d 0a 28 2a 20 70 7d 20 73 6b ┆il sidst, også *) (* på sk┆
0x07a0…07c0 7b 72 6d 65 6e 2e 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 ┆ærmen. ┆
0x07c0…07e0 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 ┆ ┆
0x07e0…0800 20 20 20 2a 29 0d 0a 28 2a 20 27 74 65 67 6e 5f 73 74 6f 65 72 72 65 6c 73 65 27 3d 30 20 7b 6e ┆ *) (* 'tegn_stoerrelse'=0 æn┆
0x0800…0820 (2,) 64 72 65 72 20 69 6b 6b 65 20 69 6e 64 74 61 73 74 65 64 65 20 62 6f 67 73 74 61 76 65 72 73 20 ┆drer ikke indtastede bogstavers ┆
0x0820…0840 73 74 7c 72 72 65 6c 73 65 20 20 20 20 20 20 20 20 20 2a 29 0d 0a 28 2a 20 27 74 65 67 6e 5f 73 ┆størrelse *) (* 'tegn_s┆
0x0840…0860 74 6f 65 72 72 65 6c 73 65 27 3d 31 20 7b 6e 64 72 65 73 20 61 6c 6c 65 20 73 74 6f 72 65 20 62 ┆toerrelse'=1 ændres alle store b┆
0x0860…0880 6f 67 73 74 61 76 65 72 20 74 69 6c 20 73 6d 7d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ogstaver til små ┆
0x0880…08a0 20 2a 29 0d 0a 28 2a 20 27 74 65 67 6e 5f 73 74 6f 65 72 72 65 6c 73 65 27 3d 32 20 7b 6e 64 72 ┆ *) (* 'tegn_stoerrelse'=2 ændr┆
0x08a0…08c0 65 73 20 61 6c 6c 65 20 73 6d 7d 20 62 6f 67 73 74 61 76 65 72 20 74 69 6c 20 73 74 6f 72 65 20 ┆es alle små bogstaver til store ┆
0x08c0…08e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 29 0d 0a 28 2a 20 48 76 69 73 20 64 65 72 20 ┆ *) (* Hvis der ┆
0x08e0…0900 74 72 79 6b 6b 65 73 20 52 45 54 55 52 4e 20 75 64 65 6e 20 61 74 20 64 65 72 20 69 6e 64 74 61 ┆trykkes RETURN uden at der indta┆
0x0900…0920 73 74 65 73 20 74 65 67 6e 2c 20 72 65 74 75 72 6e 65 72 65 72 20 27 73 74 72 65 6e 67 27 20 2a ┆stes tegn, returnerer 'streng' *┆
0x0920…0940 29 0d 0a 28 2a 20 64 65 6e 20 74 6f 6d 6d 65 20 73 74 72 65 6e 67 2e 20 20 20 20 20 20 20 20 20 ┆) (* den tomme streng. ┆
0x0940…0960 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 ┆ ┆
0x0960…0980 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 29 0d 0a 28 2a 20 48 76 69 73 20 64 65 72 20 74 72 ┆ *) (* Hvis der tr┆
0x0980…09a0 79 6b 6b 65 73 20 45 53 43 41 50 45 2c 20 72 65 74 75 72 6e 65 72 65 72 20 27 73 74 72 65 6e 67 ┆ykkes ESCAPE, returnerer 'streng┆
0x09a0…09c0 27 20 6b 75 6e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 29 0d ┆' kun *) ┆
0x09c0…09e0 0a 28 2a 20 63 68 72 28 32 37 29 2c 20 61 6c 74 73 7d 20 65 73 63 61 70 65 2e 20 20 20 20 20 20 ┆ (* chr(27), altså escape. ┆
0x09e0…0a00 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 ┆ ┆
0x0a00…0a20 20 20 20 20 20 20 20 20 20 20 20 20 2a 29 0d 0a 0d 0a 63 6f 6e 73 74 0d 0a 20 20 50 49 4c 5f 48 ┆ *) const PIL_H┆
0x0a20…0a40 4f 45 4a 52 45 3d 40 32 34 3b 0d 0a 20 20 50 49 4c 5f 56 45 4e 53 54 52 45 3d 40 39 3b 0d 0a 20 ┆OEJRE=@24; PIL_VENSTRE=@9; ┆
0x0a40…0a60 20 50 49 4c 5f 48 4f 4d 45 3d 40 32 39 3b 0d 0a 20 20 54 45 47 4e 5f 49 4e 44 3d 40 34 3b 0d 0a ┆ PIL_HOME=@29; TEGN_IND=@4; ┆
0x0a60…0a80 20 20 42 41 43 4b 5f 53 50 41 43 45 3d 40 38 3b 0d 0a 20 20 53 4c 45 54 5f 54 45 47 4e 3d 40 35 ┆ BACK_SPACE=@8; SLET_TEGN=@5┆
0x0a80…0aa0 3b 0d 0a 20 20 53 4c 45 54 5f 52 45 53 54 5f 4c 49 4e 49 45 3d 40 32 31 3b 20 28 2a 20 41 31 2d ┆; SLET_REST_LINIE=@21; (* A1-┆
0x0aa0…0ac0 74 61 73 74 20 2a 29 20 20 0d 0a 20 20 53 4c 45 54 5f 48 45 4c 5f 4c 49 4e 49 45 3d 40 32 32 3b ┆tast *) SLET_HEL_LINIE=@22;┆
0x0ac0…0ae0 20 20 28 2a 20 41 32 2d 74 61 73 74 20 2a 29 0d 0a 20 20 52 45 54 55 52 4e 5f 54 41 53 54 3d 40 ┆ (* A2-tast *) RETURN_TAST=@┆
0x0ae0…0b00 31 33 3b 0d 0a 20 20 45 53 43 5f 54 41 53 54 3d 40 32 37 3b 0d 0a 0d 0a 20 20 53 4c 55 4b 5f 43 ┆13; ESC_TAST=@27; SLUK_C┆
0x0b00…0b20 55 52 53 4f 52 3d 40 32 37 27 66 27 3b 0d 0a 20 20 54 41 45 4e 44 5f 43 55 52 53 4f 52 3d 40 32 ┆URSOR=@27'f'; TAEND_CURSOR=@2┆
0x0b20…0b40 37 27 65 27 3b 0d 0a 20 20 0d 0a 20 20 74 65 67 6e 73 61 65 74 3a 73 65 74 20 6f 66 20 63 68 61 ┆7'e'; tegnsaet:set of cha┆
0x0b40…0b60 72 3d 28 2e 27 20 27 2e 2e 27 7e 27 2e 29 3b 0d 0a 0d 0a 76 61 72 0d 0a 20 20 74 65 67 6e 3a 20 ┆r=(.' '..'ü'.); var tegn: ┆
0x0b60…0b80 63 68 61 72 3b 0d 0a 20 20 73 74 72 65 6e 67 5f 74 65 67 6e 3a 20 61 72 72 61 79 28 2e 31 2e 2e ┆char; streng_tegn: array(.1..┆
0x0b80…0ba0 38 30 2e 29 20 6f 66 20 63 68 61 72 3b 0d 0a 20 20 74 65 6d 70 5f 73 74 72 65 6e 67 3a 20 73 74 ┆80.) of char; temp_streng: st┆
0x0ba0…0bc0 72 65 6e 67 38 30 3b 0d 0a 20 20 69 2c 78 70 6f 73 3a 20 69 6e 74 65 67 65 72 3b 0d 0a 62 65 67 ┆reng80; i,xpos: integer; beg┆
0x0bc0…0be0 69 6e 0d 0a 20 20 69 66 20 28 74 65 67 6e 5f 72 61 6d 6d 65 3d 74 72 75 65 29 20 74 68 65 6e 0d ┆in if (tegn_ramme=true) then ┆
0x0be0…0c00 0a 20 20 20 20 52 61 6d 6d 65 28 28 6b 6f 6c 6f 6e 6e 65 2d 32 29 2c 28 6c 69 6e 69 65 2b 31 29 ┆ Ramme((kolonne-2),(linie+1)┆
0x0c00…0c20 (3,) 2c 28 6b 6f 6c 6f 6e 6e 65 2b 6d 61 78 5f 6c 61 65 6e 67 64 65 2b 31 29 2c 28 6c 69 6e 69 65 2d ┆,(kolonne+max_laengde+1),(linie-┆
0x0c20…0c40 31 29 29 3b 20 0d 0a 20 20 73 74 72 65 6e 67 3a 3d 27 27 3b 0d 0a 20 20 66 6f 72 20 69 3a 3d 31 ┆1)); streng:=''; for i:=1┆
0x0c40…0c60 20 74 6f 20 6d 61 78 5f 6c 61 65 6e 67 64 65 20 64 6f 20 73 74 72 65 6e 67 5f 74 65 67 6e 28 2e ┆ to max_laengde do streng_tegn(.┆
0x0c60…0c80 69 2e 29 3a 3d 27 20 27 3b 0d 0a 20 20 78 70 6f 73 3a 3d 31 3b 74 65 67 6e 3a 3d 63 68 72 28 30 ┆i.):=' '; xpos:=1;tegn:=chr(0┆
0x0c80…0ca0 29 3b 0d 0a 20 20 72 65 70 65 61 74 0d 0a 20 20 20 20 67 6f 74 6f 78 79 28 6b 6f 6c 6f 6e 6e 65 ┆); repeat gotoxy(kolonne┆
0x0ca0…0cc0 2d 31 2b 78 70 6f 73 2c 6c 69 6e 69 65 29 3b 0d 0a 20 20 20 20 54 61 65 6e 64 43 75 72 73 6f 72 ┆-1+xpos,linie); TaendCursor┆
0x0cc0…0ce0 3b 0d 0a 20 20 20 20 72 65 61 64 28 4b 42 44 2c 74 65 67 6e 29 3b 0d 0a 20 20 20 20 53 6c 75 6b ┆; read(KBD,tegn); Sluk┆
0x0ce0…0d00 43 75 72 73 6f 72 3b 0d 0a 20 20 20 20 0d 0a 20 20 20 20 69 66 20 28 74 65 67 6e 20 69 6e 20 74 ┆Cursor; if (tegn in t┆
0x0d00…0d20 65 67 6e 73 61 65 74 29 20 61 6e 64 20 28 78 70 6f 73 3c 3d 6d 61 78 5f 6c 61 65 6e 67 64 65 29 ┆egnsaet) and (xpos<=max_laengde)┆
0x0d20…0d40 20 74 68 65 6e 20 62 65 67 69 6e 0d 0a 20 20 20 20 20 20 73 74 72 65 6e 67 5f 74 65 67 6e 28 2e ┆ then begin streng_tegn(.┆
0x0d40…0d60 78 70 6f 73 2e 29 3a 3d 74 65 67 6e 3b 0d 0a 20 20 20 20 20 20 78 70 6f 73 3a 3d 78 70 6f 73 2b ┆xpos.):=tegn; xpos:=xpos+┆
0x0d60…0d80 31 3b 0d 0a 20 20 20 20 20 20 77 72 69 74 65 28 74 65 67 6e 29 3b 0d 0a 20 20 20 20 65 6e 64 20 ┆1; write(tegn); end ┆
0x0d80…0da0 65 6c 73 65 20 62 65 67 69 6e 0d 0a 0d 0a 20 20 20 20 69 66 20 28 74 65 67 6e 3d 50 49 4c 5f 56 ┆else begin if (tegn=PIL_V┆
0x0da0…0dc0 45 4e 53 54 52 45 29 20 61 6e 64 20 28 78 70 6f 73 3e 3d 32 29 20 74 68 65 6e 20 62 65 67 69 6e ┆ENSTRE) and (xpos>=2) then begin┆
0x0dc0…0de0 0d 0a 20 20 20 20 20 20 78 70 6f 73 3a 3d 78 70 6f 73 2d 31 3b 0d 0a 20 20 20 20 65 6e 64 20 65 ┆ xpos:=xpos-1; end e┆
0x0de0…0e00 6c 73 65 20 62 65 67 69 6e 0d 0a 0d 0a 20 20 20 20 69 66 20 28 74 65 67 6e 3d 50 49 4c 5f 48 4f ┆lse begin if (tegn=PIL_HO┆
0x0e00…0e20 45 4a 52 45 29 20 61 6e 64 20 28 78 70 6f 73 3c 3d 28 6d 61 78 5f 6c 61 65 6e 67 64 65 2d 31 29 ┆EJRE) and (xpos<=(max_laengde-1)┆
0x0e20…0e40 29 20 74 68 65 6e 20 62 65 67 69 6e 0d 0a 20 20 20 20 20 20 78 70 6f 73 3a 3d 78 70 6f 73 2b 31 ┆) then begin xpos:=xpos+1┆
0x0e40…0e60 3b 0d 0a 20 20 20 20 65 6e 64 20 65 6c 73 65 20 62 65 67 69 6e 0d 0a 0d 0a 20 20 20 20 69 66 20 ┆; end else begin if ┆
0x0e60…0e80 28 74 65 67 6e 3d 53 4c 45 54 5f 52 45 53 54 5f 4c 49 4e 49 45 29 20 74 68 65 6e 20 62 65 67 69 ┆(tegn=SLET_REST_LINIE) then begi┆
0x0e80…0ea0 6e 20 0d 0a 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 78 70 6f 73 20 74 6f 20 6d 61 78 5f 6c 61 65 ┆n for i:=xpos to max_lae┆
0x0ea0…0ec0 6e 67 64 65 20 64 6f 20 62 65 67 69 6e 0d 0a 20 20 20 20 20 20 20 20 73 74 72 65 6e 67 5f 74 65 ┆ngde do begin streng_te┆
0x0ec0…0ee0 67 6e 28 2e 69 2e 29 3a 3d 27 20 27 3b 0d 0a 20 20 20 20 20 20 20 20 77 72 69 74 65 28 27 20 27 ┆gn(.i.):=' '; write(' '┆
0x0ee0…0f00 29 3b 0d 0a 20 20 20 20 20 20 65 6e 64 3b 0d 0a 20 20 20 20 65 6e 64 20 65 6c 73 65 20 62 65 67 ┆); end; end else beg┆
0x0f00…0f20 69 6e 0d 0a 0d 0a 20 20 20 20 69 66 20 28 74 65 67 6e 3d 53 4c 45 54 5f 48 45 4c 5f 4c 49 4e 49 ┆in if (tegn=SLET_HEL_LINI┆
0x0f20…0f40 45 29 20 74 68 65 6e 20 62 65 67 69 6e 20 0d 0a 20 20 20 20 20 20 67 6f 74 6f 78 79 28 6b 6f 6c ┆E) then begin gotoxy(kol┆
0x0f40…0f60 6f 6e 6e 65 2c 6c 69 6e 69 65 29 3b 0d 0a 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 6b 6f 6c 6f 6e ┆onne,linie); for i:=kolon┆
0x0f60…0f80 6e 65 20 74 6f 20 28 6d 61 78 5f 6c 61 65 6e 67 64 65 2b 6b 6f 6c 6f 6e 6e 65 29 20 64 6f 20 77 ┆ne to (max_laengde+kolonne) do w┆
0x0f80…0fa0 72 69 74 65 28 27 20 27 29 3b 0d 0a 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 31 20 74 6f 20 6d 61 ┆rite(' '); for i:=1 to ma┆
0x0fa0…0fc0 78 5f 6c 61 65 6e 67 64 65 20 64 6f 20 73 74 72 65 6e 67 5f 74 65 67 6e 28 2e 69 2e 29 3a 3d 27 ┆x_laengde do streng_tegn(.i.):='┆
0x0fc0…0fe0 20 27 3b 0d 0a 20 20 20 20 20 20 78 70 6f 73 3a 3d 31 3b 0d 0a 20 20 20 20 65 6e 64 20 65 6c 73 ┆ '; xpos:=1; end els┆
0x0fe0…1000 65 20 62 65 67 69 6e 0d 0a 0d 0a 20 20 20 20 69 66 20 28 74 65 67 6e 3d 50 49 4c 5f 48 4f 4d 45 ┆e begin if (tegn=PIL_HOME┆
0x1000…1020 (4,) 29 20 74 68 65 6e 20 62 65 67 69 6e 0d 0a 20 20 20 20 20 20 78 70 6f 73 3a 3d 31 3b 0d 0a 20 20 ┆) then begin xpos:=1; ┆
0x1020…1040 20 20 65 6e 64 20 65 6c 73 65 20 62 65 67 69 6e 0d 0a 0d 0a 20 20 20 20 69 66 20 28 74 65 67 6e ┆ end else begin if (tegn┆
0x1040…1060 3d 54 45 47 4e 5f 49 4e 44 29 20 74 68 65 6e 20 62 65 67 69 6e 0d 0a 20 20 20 20 20 20 66 6f 72 ┆=TEGN_IND) then begin for┆
0x1060…1080 20 69 3a 3d 6d 61 78 5f 6c 61 65 6e 67 64 65 20 64 6f 77 6e 74 6f 20 28 78 70 6f 73 2b 31 29 20 ┆ i:=max_laengde downto (xpos+1) ┆
0x1080…10a0 64 6f 20 62 65 67 69 6e 0d 0a 20 20 20 20 20 20 20 20 73 74 72 65 6e 67 5f 74 65 67 6e 28 2e 69 ┆do begin streng_tegn(.i┆
0x10a0…10c0 2e 29 3a 3d 73 74 72 65 6e 67 5f 74 65 67 6e 28 2e 69 2d 31 2e 29 3b 0d 0a 20 20 20 20 20 20 65 ┆.):=streng_tegn(.i-1.); e┆
0x10c0…10e0 6e 64 3b 0d 0a 20 20 20 20 20 20 73 74 72 65 6e 67 5f 74 65 67 6e 28 2e 78 70 6f 73 2e 29 3a 3d ┆nd; streng_tegn(.xpos.):=┆
0x10e0…1100 27 20 27 3b 0d 0a 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 78 70 6f 73 20 74 6f 20 6d 61 78 5f 6c ┆' '; for i:=xpos to max_l┆
0x1100…1120 61 65 6e 67 64 65 20 64 6f 20 77 72 69 74 65 28 73 74 72 65 6e 67 5f 74 65 67 6e 28 2e 69 2e 29 ┆aengde do write(streng_tegn(.i.)┆
0x1120…1140 29 3b 0d 0a 20 20 20 20 65 6e 64 20 65 6c 73 65 20 62 65 67 69 6e 0d 0a 20 20 20 20 0d 0a 20 20 ┆); end else begin ┆
0x1140…1160 20 20 69 66 20 28 28 74 65 67 6e 3d 42 41 43 4b 5f 53 50 41 43 45 29 20 61 6e 64 20 28 78 70 6f ┆ if ((tegn=BACK_SPACE) and (xpo┆
0x1160…1180 73 3e 31 29 29 20 74 68 65 6e 20 62 65 67 69 6e 0d 0a 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 78 ┆s>1)) then begin for i:=x┆
0x1180…11a0 70 6f 73 20 74 6f 20 6d 61 78 5f 6c 61 65 6e 67 64 65 20 64 6f 20 62 65 67 69 6e 0d 0a 20 20 20 ┆pos to max_laengde do begin ┆
0x11a0…11c0 20 20 20 20 20 73 74 72 65 6e 67 5f 74 65 67 6e 28 2e 28 69 2d 31 29 2e 29 3a 3d 73 74 72 65 6e ┆ streng_tegn(.(i-1).):=stren┆
0x11c0…11e0 67 5f 74 65 67 6e 28 2e 69 2e 29 3b 0d 0a 20 20 20 20 20 20 65 6e 64 3b 0d 0a 20 20 20 20 20 20 ┆g_tegn(.i.); end; ┆
0x11e0…1200 73 74 72 65 6e 67 5f 74 65 67 6e 28 2e 6d 61 78 5f 6c 61 65 6e 67 64 65 2e 29 3a 3d 27 20 27 3b ┆streng_tegn(.max_laengde.):=' ';┆
0x1200…1220 0d 0a 20 20 20 20 20 20 78 70 6f 73 3a 3d 28 78 70 6f 73 2d 31 29 3b 0d 0a 20 20 20 20 20 20 67 ┆ xpos:=(xpos-1); g┆
0x1220…1240 6f 74 6f 78 79 28 6b 6f 6c 6f 6e 6e 65 2c 6c 69 6e 69 65 29 3b 0d 0a 20 20 20 20 20 20 66 6f 72 ┆otoxy(kolonne,linie); for┆
0x1240…1260 20 69 3a 3d 31 20 74 6f 20 6d 61 78 5f 6c 61 65 6e 67 64 65 20 64 6f 20 77 72 69 74 65 28 73 74 ┆ i:=1 to max_laengde do write(st┆
0x1260…1280 72 65 6e 67 5f 74 65 67 6e 28 2e 69 2e 29 29 3b 0d 0a 20 20 20 20 65 6e 64 20 65 6c 73 65 20 62 ┆reng_tegn(.i.)); end else b┆
0x1280…12a0 65 67 69 6e 0d 0a 20 20 20 0d 0a 20 20 20 20 69 66 20 28 74 65 67 6e 3d 53 4c 45 54 5f 54 45 47 ┆egin if (tegn=SLET_TEG┆
0x12a0…12c0 4e 29 20 74 68 65 6e 20 62 65 67 69 6e 0d 0a 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 78 70 6f 73 ┆N) then begin for i:=xpos┆
0x12c0…12e0 20 74 6f 20 28 6d 61 78 5f 6c 61 65 6e 67 64 65 2d 31 29 20 64 6f 20 62 65 67 69 6e 0d 0a 20 20 ┆ to (max_laengde-1) do begin ┆
0x12e0…1300 20 20 20 20 20 20 73 74 72 65 6e 67 5f 74 65 67 6e 28 2e 69 2e 29 3a 3d 73 74 72 65 6e 67 5f 74 ┆ streng_tegn(.i.):=streng_t┆
0x1300…1320 65 67 6e 28 2e 69 2b 31 2e 29 3b 0d 0a 20 20 20 20 20 20 20 20 77 72 69 74 65 28 73 74 72 65 6e ┆egn(.i+1.); write(stren┆
0x1320…1340 67 5f 74 65 67 6e 28 2e 69 2e 29 29 3b 0d 0a 20 20 20 20 20 20 65 6e 64 3b 0d 0a 20 20 20 20 20 ┆g_tegn(.i.)); end; ┆
0x1340…1360 20 73 74 72 65 6e 67 5f 74 65 67 6e 28 2e 6d 61 78 5f 6c 61 65 6e 67 64 65 2e 29 3a 3d 27 20 27 ┆ streng_tegn(.max_laengde.):=' '┆
0x1360…1380 3b 0d 0a 20 20 20 20 20 20 77 72 69 74 65 28 27 20 27 29 3b 0d 0a 20 20 20 20 65 6e 64 20 65 6c ┆; write(' '); end el┆
0x1380…13a0 73 65 20 62 65 67 69 6e 0d 0a 20 20 20 0d 0a 20 20 20 20 65 6e 64 3b 65 6e 64 3b 65 6e 64 3b 65 ┆se begin end;end;end;e┆
0x13a0…13c0 6e 64 3b 65 6e 64 3b 65 6e 64 3b 65 6e 64 3b 65 6e 64 3b 65 6e 64 3b 0d 0a 0d 0a 20 20 75 6e 74 ┆nd;end;end;end;end;end; unt┆
0x13c0…13e0 69 6c 20 28 28 74 65 67 6e 3d 52 45 54 55 52 4e 5f 54 41 53 54 29 20 6f 72 20 28 74 65 67 6e 3d ┆il ((tegn=RETURN_TAST) or (tegn=┆
0x13e0…1400 45 53 43 5f 54 41 53 54 29 29 3b 0d 0a 20 20 0d 0a 20 20 69 66 20 28 74 65 67 6e 3d 52 45 54 55 ┆ESC_TAST)); if (tegn=RETU┆
0x1400…1420 (5,) 52 4e 5f 54 41 53 54 29 20 74 68 65 6e 20 62 65 67 69 6e 0d 0a 20 20 20 20 66 6f 72 20 69 3a 3d ┆RN_TAST) then begin for i:=┆
0x1420…1440 31 20 74 6f 20 6d 61 78 5f 6c 61 65 6e 67 64 65 20 64 6f 20 73 74 72 65 6e 67 3a 3d 73 74 72 65 ┆1 to max_laengde do streng:=stre┆
0x1440…1460 6e 67 2b 73 74 72 65 6e 67 5f 74 65 67 6e 28 2e 69 2e 29 3b 0d 0a 20 20 20 20 69 3a 3d 6d 61 78 ┆ng+streng_tegn(.i.); i:=max┆
0x1460…1480 5f 6c 61 65 6e 67 64 65 3b 0d 0a 20 20 20 20 72 65 70 65 61 74 0d 0a 20 20 20 20 20 20 69 66 20 ┆_laengde; repeat if ┆
0x1480…14a0 73 74 72 65 6e 67 5f 74 65 67 6e 28 2e 69 2e 29 3d 27 20 27 20 74 68 65 6e 20 64 65 6c 65 74 65 ┆streng_tegn(.i.)=' ' then delete┆
0x14a0…14c0 28 73 74 72 65 6e 67 2c 69 2c 31 29 3b 0d 0a 20 20 20 20 20 20 69 3a 3d 69 2d 31 3b 0d 0a 20 20 ┆(streng,i,1); i:=i-1; ┆
0x14c0…14e0 20 20 75 6e 74 69 6c 20 28 73 74 72 65 6e 67 5f 74 65 67 6e 28 2e 69 2e 29 3c 3e 27 20 27 29 20 ┆ until (streng_tegn(.i.)<>' ') ┆
0x14e0…1500 6f 72 20 28 69 3d 31 29 3b 0d 0a 0d 0a 20 20 20 20 69 66 20 28 74 65 67 6e 5f 73 74 6f 65 72 72 ┆or (i=1); if (tegn_stoerr┆
0x1500…1520 65 6c 73 65 3d 31 29 20 74 68 65 6e 20 62 65 67 69 6e 0d 0a 20 20 20 20 20 20 66 6f 72 20 69 3a ┆else=1) then begin for i:┆
0x1520…1540 3d 31 20 74 6f 20 6c 65 6e 28 73 74 72 65 6e 67 29 20 64 6f 20 62 65 67 69 6e 0d 0a 20 20 20 20 ┆=1 to len(streng) do begin ┆
0x1540…1560 20 20 20 20 69 66 20 28 73 74 72 65 6e 67 28 2e 69 2e 29 20 69 6e 20 28 2e 27 41 27 2e 2e 27 5e ┆ if (streng(.i.) in (.'A'..'^┆
0x1560…1580 27 2e 29 29 20 74 68 65 6e 20 62 65 67 69 6e 0d 0a 20 20 20 20 20 20 20 20 20 20 73 74 72 65 6e ┆'.)) then begin stren┆
0x1580…15a0 67 28 2e 69 2e 29 3a 3d 63 68 72 28 6f 72 64 28 73 74 72 65 6e 67 28 2e 69 2e 29 29 2b 33 32 29 ┆g(.i.):=chr(ord(streng(.i.))+32)┆
0x15a0…15c0 3b 0d 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0d 0a 20 20 20 20 20 20 65 6e 64 3b 0d 0a 20 20 20 ┆; end; end; ┆
0x15c0…15e0 20 65 6e 64 3b 0d 0a 20 20 20 20 20 20 20 20 20 0d 0a 20 20 20 20 69 66 20 28 74 65 67 6e 5f 73 ┆ end; if (tegn_s┆
0x15e0…1600 74 6f 65 72 72 65 6c 73 65 3d 32 29 20 74 68 65 6e 20 62 65 67 69 6e 0d 0a 20 20 20 20 20 20 66 ┆toerrelse=2) then begin f┆
0x1600…1620 6f 72 20 69 3a 3d 31 20 74 6f 20 6c 65 6e 28 73 74 72 65 6e 67 29 20 64 6f 20 62 65 67 69 6e 0d ┆or i:=1 to len(streng) do begin ┆
0x1620…1640 0a 20 20 20 20 20 20 20 20 69 66 20 28 73 74 72 65 6e 67 28 2e 69 2e 29 20 69 6e 20 28 2e 27 61 ┆ if (streng(.i.) in (.'a┆
0x1640…1660 27 2e 2e 27 7e 27 2e 29 29 20 74 68 65 6e 20 62 65 67 69 6e 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆'..'ü'.)) then begin ┆
0x1660…1680 73 74 72 65 6e 67 28 2e 69 2e 29 3a 3d 63 68 72 28 6f 72 64 28 73 74 72 65 6e 67 28 2e 69 2e 29 ┆streng(.i.):=chr(ord(streng(.i.)┆
0x1680…16a0 29 2d 33 32 29 3b 0d 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0d 0a 20 20 20 20 20 20 65 6e 64 3b ┆)-32); end; end;┆
0x16a0…16c0 0d 0a 20 20 20 20 65 6e 64 3b 0d 0a 20 20 20 20 20 20 20 20 20 0d 0a 20 20 20 20 69 66 20 66 6a ┆ end; if fj┆
0x16c0…16e0 65 72 6e 5f 6d 65 6c 6c 65 6d 72 75 6d 20 74 68 65 6e 20 62 65 67 69 6e 0d 0a 20 20 20 20 20 20 ┆ern_mellemrum then begin ┆
0x16e0…1700 74 65 6d 70 5f 73 74 72 65 6e 67 3a 3d 73 74 72 65 6e 67 3b 20 73 74 72 65 6e 67 3a 3d 27 27 3b ┆temp_streng:=streng; streng:='';┆
0x1700…1720 0d 0a 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 31 20 74 6f 20 6c 65 6e 28 74 65 6d 70 5f 73 74 72 ┆ for i:=1 to len(temp_str┆
0x1720…1740 65 6e 67 29 20 64 6f 20 62 65 67 69 6e 0d 0a 20 20 20 20 20 20 20 20 69 66 20 28 74 65 6d 70 5f ┆eng) do begin if (temp_┆
0x1740…1760 73 74 72 65 6e 67 28 2e 69 2e 29 3c 3e 27 20 27 29 20 74 68 65 6e 20 62 65 67 69 6e 0d 0a 20 20 ┆streng(.i.)<>' ') then begin ┆
0x1760…1780 20 20 20 20 20 20 20 20 73 74 72 65 6e 67 3a 3d 73 74 72 65 6e 67 2b 74 65 6d 70 5f 73 74 72 65 ┆ streng:=streng+temp_stre┆
0x1780…17a0 6e 67 28 2e 69 2e 29 3b 0d 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0d 0a 20 20 20 20 20 20 65 6e ┆ng(.i.); end; en┆
0x17a0…17c0 64 3b 0d 0a 20 20 20 20 65 6e 64 3b 0d 0a 20 20 20 20 20 20 20 20 20 0d 0a 20 20 20 20 69 66 20 ┆d; end; if ┆
0x17c0…17e0 28 66 6a 65 72 6e 5f 6d 65 6c 6c 65 6d 72 75 6d 29 20 6f 72 0d 0a 20 20 20 20 20 20 20 28 74 65 ┆(fjern_mellemrum) or (te┆
0x17e0…1800 67 6e 5f 73 74 6f 65 72 72 65 6c 73 65 3d 31 29 20 6f 72 20 28 74 65 67 6e 5f 73 74 6f 65 72 72 ┆gn_stoerrelse=1) or (tegn_stoerr┆
0x1800…1820 (6,) 65 6c 73 65 3d 32 29 20 74 68 65 6e 20 62 65 67 69 6e 0d 0a 20 20 20 20 20 20 67 6f 74 6f 78 79 ┆else=2) then begin gotoxy┆
0x1820…1840 28 6b 6f 6c 6f 6e 6e 65 2c 6c 69 6e 69 65 29 3b 0d 0a 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 31 ┆(kolonne,linie); for i:=1┆
0x1840…1860 20 74 6f 20 6d 61 78 5f 6c 61 65 6e 67 64 65 20 64 6f 20 77 72 69 74 65 28 27 20 27 29 3b 0d 0a ┆ to max_laengde do write(' '); ┆
0x1860…1880 20 20 20 20 20 20 67 6f 74 6f 78 79 28 6b 6f 6c 6f 6e 6e 65 2c 6c 69 6e 69 65 29 3b 0d 0a 20 20 ┆ gotoxy(kolonne,linie); ┆
0x1880…18a0 20 20 20 20 77 72 69 74 65 28 73 74 72 65 6e 67 29 3b 0d 0a 20 20 20 20 65 6e 64 3b 0d 0a 0d 0a ┆ write(streng); end; ┆
0x18a0…18c0 20 20 65 6e 64 3b 0d 0a 0d 0a 20 20 69 66 20 28 74 65 67 6e 3d 45 53 43 5f 54 41 53 54 29 20 74 ┆ end; if (tegn=ESC_TAST) t┆
0x18c0…18e0 68 65 6e 20 73 74 72 65 6e 67 3a 3d 40 32 37 3b 0d 0a 0d 0a 65 6e 64 3b 0d 0a 28 2a 20 ac ac ac ┆hen streng:=@27; end; (* ┆
0x18e0…1900 ac ac ac ac ac ac ac 20 2a 29 0d 0a 0d 0a 70 72 6f 63 65 64 75 72 65 20 49 6e 70 75 74 46 69 6c ┆ *) procedure InputFil┆
0x1900…1920 6d 61 73 6b 65 28 78 2c 79 3a 20 69 6e 74 65 67 65 72 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ┆maske(x,y: integer; ┆
[…truncated at 200 lines…]