|
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: 8576 (0x2180) Names: »MGBAG.PAS«
└─⟦29e35ddf2⟧ Bits:30003931/CCPM_Tegn.imd Disketter indleveret af Steffen Jensen (Piccolo/Piccoline) └─⟦this⟧ »MGBAG.PAS«
0x0000…0020 (0,) 70 72 6f 67 72 61 6d 20 62 61 67 69 6e 64 3b 0d 0a 74 79 70 65 0d 0a 20 20 20 20 73 74 72 65 6e ┆program bagind; type stren┆ 0x0020…0040 67 31 36 20 3d 20 73 74 72 69 6e 67 28 2e 31 36 2e 29 3b 0d 0a 20 20 20 20 66 69 6c 20 3d 20 66 ┆g16 = string(.16.); fil = f┆ 0x0040…0060 69 6c 65 20 6f 66 20 69 6e 74 65 67 65 72 3b 0d 0a 76 61 72 20 70 69 78 3a 61 72 72 61 79 28 2e ┆ile of integer; var pix:array(.┆ 0x0060…0080 30 2e 2e 31 35 38 33 39 2e 29 20 6f 66 20 69 6e 74 65 67 65 72 20 61 74 20 24 64 30 30 30 3a 30 ┆0..15839.) of integer at $d000:0┆ 0x0080…00a0 30 30 30 3b 0d 0a 20 20 20 20 74 65 6d 70 3a 61 72 72 61 79 28 2e 30 2e 2e 31 35 38 33 39 2e 29 ┆000; temp:array(.0..15839.)┆ 0x00a0…00c0 20 6f 66 20 69 6e 74 65 67 65 72 3b 0d 0a 20 20 20 20 63 68 3a 63 68 61 72 3b 0d 0a 20 20 20 20 ┆ of integer; ch:char; ┆ 0x00c0…00e0 62 72 65 64 64 65 2c 68 6f 65 6a 64 65 2c 71 2c 69 2c 6d 2c 6e 2c 70 3a 69 6e 74 65 67 65 72 3b ┆bredde,hoejde,q,i,m,n,p:integer;┆ 0x00e0…0100 0d 0a 20 20 20 20 66 69 6c 6e 61 76 6e 3a 66 69 6c 3b 20 20 20 20 0d 0a 0d 0a 70 72 6f 63 65 64 ┆ filnavn:fil; proced┆ 0x0100…0120 75 72 65 20 54 61 65 6e 64 53 74 61 74 75 73 6c 69 6e 69 65 3b 0d 0a 62 65 67 69 6e 0d 0a 20 20 ┆ure TaendStatuslinie; begin ┆ 0x0120…0140 77 72 69 74 65 28 40 32 37 27 31 27 29 3b 0d 0a 65 6e 64 3b 20 20 0d 0a 28 2a 20 ac ac ac ac ac ┆write(@27'1'); end; (* ┆ 0x0140…0160 ac ac ac ac ac 20 2a 29 0d 0a 70 72 6f 63 65 64 75 72 65 20 53 6c 75 6b 53 74 61 74 75 73 6c 69 ┆ *) procedure SlukStatusli┆ 0x0160…0180 6e 69 65 3b 0d 0a 62 65 67 69 6e 0d 0a 20 20 77 72 69 74 65 28 40 32 37 27 30 27 29 3b 0d 0a 65 ┆nie; begin write(@27'0'); e┆ 0x0180…01a0 6e 64 3b 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 63 65 64 75 ┆nd; (* *) procedu┆ 0x01a0…01c0 72 65 20 66 6a 65 72 6e 28 78 6d 69 6e 2c 78 6d 61 78 2c 79 6d 69 6e 2c 79 6d 61 78 3a 69 6e 74 ┆re fjern(xmin,xmax,ymin,ymax:int┆ 0x01c0…01e0 65 67 65 72 29 3b 0d 0a 76 61 72 20 67 6c 79 6d 69 6e 2c 73 6f 65 6a 6c 65 2c 68 6f 65 6a 64 65 ┆eger); var glymin,soejle,hoejde┆ 0x01e0…0200 31 2c 67 65 6d 69 6e 64 65 78 2c 6b 3a 69 6e 74 65 67 65 72 3b 0d 0a 20 20 20 20 70 2c 71 3a 63 ┆1,gemindex,k:integer; p,q:c┆ 0x0200…0220 68 61 72 3b 0d 0a 62 65 67 69 6e 0d 0a 20 20 20 70 3a 3d 63 68 72 28 30 29 3b 0d 0a 20 20 20 71 ┆har; begin p:=chr(0); q┆ 0x0220…0240 3a 3d 63 68 72 28 32 35 35 29 3b 0d 0a 20 20 20 67 6c 79 6d 69 6e 3a 3d 79 6d 69 6e 3b 0d 0a 20 ┆:=chr(255); glymin:=ymin; ┆ 0x0240…0260 20 20 78 6d 69 6e 3a 3d 33 35 32 2a 72 6f 75 6e 64 28 78 6d 69 6e 2f 37 32 38 29 3b 0d 0a 20 20 ┆ xmin:=352*round(xmin/728); ┆ 0x0260…0280 20 78 6d 61 78 3a 3d 33 35 32 2a 72 6f 75 6e 64 28 78 6d 61 78 2f 37 32 38 29 3b 0d 0a 20 20 20 ┆ xmax:=352*round(xmax/728); ┆ 0x0280…02a0 79 6d 69 6e 3a 3d 33 35 31 2d 72 6f 75 6e 64 28 79 6d 61 78 2f 39 33 29 3b 0d 0a 20 20 20 79 6d ┆ymin:=351-round(ymax/93); ym┆ 0x02a0…02c0 61 78 3a 3d 33 35 31 2d 72 6f 75 6e 64 28 67 6c 79 6d 69 6e 2f 39 33 29 3b 0d 0a 20 20 20 68 6f ┆ax:=351-round(glymin/93); ho┆ 0x02c0…02e0 65 6a 64 65 31 3a 3d 79 6d 61 78 2d 79 6d 69 6e 3b 0d 0a 20 20 20 73 6f 65 6a 6c 65 3a 3d 78 6d ┆ejde1:=ymax-ymin; soejle:=xm┆ 0x02e0…0300 69 6e 2b 79 6d 69 6e 3b 0d 0a 20 20 20 67 65 6d 69 6e 64 65 78 3a 3d 30 3b 0d 0a 20 20 20 72 65 ┆in+ymin; gemindex:=0; re┆ 0x0300…0320 70 65 61 74 0d 0a 20 20 20 20 20 20 20 20 6d 6f 76 65 28 70 69 78 28 2e 73 6f 65 6a 6c 65 2e 29 ┆peat move(pix(.soejle.)┆ 0x0320…0340 2c 74 65 6d 70 28 2e 67 65 6d 69 6e 64 65 78 2e 29 2c 32 2a 68 6f 65 6a 64 65 31 29 3b 0d 0a 20 ┆,temp(.gemindex.),2*hoejde1); ┆ 0x0340…0360 20 20 20 20 20 20 20 73 6f 65 6a 6c 65 3a 3d 73 6f 65 6a 6c 65 2b 33 35 32 3b 0d 0a 20 20 20 20 ┆ soejle:=soejle+352; ┆ 0x0360…0380 20 20 20 20 67 65 6d 69 6e 64 65 78 3a 3d 67 65 6d 69 6e 64 65 78 2b 68 6f 65 6a 64 65 31 3b 0d ┆ gemindex:=gemindex+hoejde1; ┆ 0x0380…03a0 0a 20 20 20 75 6e 74 69 6c 20 73 6f 65 6a 6c 65 3e 78 6d 61 78 3b 0d 0a 65 6e 64 3b 0d 0a 20 20 ┆ until soejle>xmax; end; ┆ 0x03a0…03c0 20 0d 0a 0d 0a 70 72 6f 63 65 64 75 72 65 20 72 65 74 75 72 28 78 6d 69 6e 2c 78 6d 61 78 2c 79 ┆ procedure retur(xmin,xmax,y┆ 0x03c0…03e0 6d 69 6e 2c 79 6d 61 78 3a 69 6e 74 65 67 65 72 29 3b 0d 0a 76 61 72 20 67 6c 79 6d 69 6e 2c 73 ┆min,ymax:integer); var glymin,s┆ 0x03e0…0400 6f 65 6a 6c 65 2c 68 6f 65 6a 64 65 2c 67 65 6d 69 6e 64 65 78 3a 69 6e 74 65 67 65 72 3b 0d 0a ┆oejle,hoejde,gemindex:integer; ┆ 0x0400…0420 (1,) 62 65 67 69 6e 0d 0a 20 20 20 67 6c 79 6d 69 6e 3a 3d 79 6d 69 6e 3b 0d 0a 20 20 20 78 6d 69 6e ┆begin glymin:=ymin; xmin┆ 0x0420…0440 3a 3d 33 35 32 2a 72 6f 75 6e 64 28 78 6d 69 6e 2f 37 32 38 29 3b 0d 0a 20 20 20 78 6d 61 78 3a ┆:=352*round(xmin/728); xmax:┆ 0x0440…0460 3d 33 35 32 2a 72 6f 75 6e 64 28 78 6d 61 78 2f 37 32 38 29 3b 0d 0a 20 20 20 79 6d 69 6e 3a 3d ┆=352*round(xmax/728); ymin:=┆ 0x0460…0480 33 35 31 2d 72 6f 75 6e 64 28 79 6d 61 78 2f 39 33 29 3b 0d 0a 20 20 20 79 6d 61 78 3a 3d 33 35 ┆351-round(ymax/93); ymax:=35┆ 0x0480…04a0 31 2d 72 6f 75 6e 64 28 67 6c 79 6d 69 6e 2f 39 33 29 3b 0d 0a 20 20 20 68 6f 65 6a 64 65 3a 3d ┆1-round(glymin/93); hoejde:=┆ 0x04a0…04c0 79 6d 61 78 2d 79 6d 69 6e 3b 0d 0a 20 20 20 73 6f 65 6a 6c 65 3a 3d 78 6d 69 6e 2b 79 6d 69 6e ┆ymax-ymin; soejle:=xmin+ymin┆ 0x04c0…04e0 3b 0d 0a 20 20 20 67 65 6d 69 6e 64 65 78 3a 3d 30 3b 0d 0a 20 20 20 72 65 70 65 61 74 0d 0a 20 ┆; gemindex:=0; repeat ┆ 0x04e0…0500 20 20 20 20 20 20 20 6d 6f 76 65 28 74 65 6d 70 28 2e 67 65 6d 69 6e 64 65 78 2e 29 2c 70 69 78 ┆ move(temp(.gemindex.),pix┆ 0x0500…0520 28 2e 73 6f 65 6a 6c 65 2e 29 2c 32 2a 68 6f 65 6a 64 65 29 3b 0d 0a 20 20 20 20 20 20 20 20 73 ┆(.soejle.),2*hoejde); s┆ 0x0520…0540 6f 65 6a 6c 65 3a 3d 73 6f 65 6a 6c 65 2b 33 35 32 3b 0d 0a 20 20 20 20 20 20 20 20 67 65 6d 69 ┆oejle:=soejle+352; gemi┆ 0x0540…0560 6e 64 65 78 3a 3d 67 65 6d 69 6e 64 65 78 2b 68 6f 65 6a 64 65 3b 0d 0a 20 20 20 75 6e 74 69 6c ┆ndex:=gemindex+hoejde; until┆ 0x0560…0580 20 73 6f 65 6a 6c 65 3e 78 6d 61 78 3b 0d 0a 65 6e 64 3b 0d 0a 0d 0a 74 79 70 65 0d 0a 20 20 73 ┆ soejle>xmax; end; type s┆ 0x0580…05a0 74 72 65 6e 67 32 30 3d 73 74 72 69 6e 67 28 2e 32 30 2e 29 3b 0d 0a 20 20 73 74 72 65 6e 67 38 ┆treng20=string(.20.); streng8┆ 0x05a0…05c0 30 3d 73 74 72 69 6e 67 28 2e 38 30 2e 29 3b 0d 0a 76 61 72 0d 0a 20 20 73 74 72 65 6e 67 3a 20 ┆0=string(.80.); var streng: ┆ 0x05c0…05e0 73 74 72 65 6e 67 38 30 3b 0d 0a 28 2a 20 ac ac ac ac ac ac ac ac ac ac 20 2a 29 0d 0a 28 2a 24 ┆streng80; (* *) (*$┆ 0x05e0…0600 55 2b 2a 29 20 28 2a 20 43 54 52 4c 2b 43 20 63 68 65 63 6b 20 66 6f 72 20 68 76 65 72 20 70 72 ┆U+*) (* CTRL+C check for hver pr┆ 0x0600…0620 6f 67 72 61 6d 6c 69 6e 69 65 20 2a 29 0d 0a 28 2a 20 ac ac ac ac ac ac ac ac ac ac 20 2a 29 0d ┆ogramlinie *) (* *) ┆ 0x0620…0640 0a 70 72 6f 63 65 64 75 72 65 20 54 61 65 6e 64 43 75 72 73 6f 72 3b 0d 0a 62 65 67 69 6e 0d 0a ┆ procedure TaendCursor; begin ┆ 0x0640…0660 20 20 77 72 69 74 65 28 40 32 37 27 65 27 29 3b 0d 0a 65 6e 64 3b 20 20 20 20 0d 0a 28 2a 20 ac ┆ write(@27'e'); end; (* ┆ 0x0660…0680 ac ac ac ac ac ac ac ac ac 20 2a 29 0d 0a 70 72 6f 63 65 64 75 72 65 20 53 6c 75 6b 43 75 72 73 ┆ *) procedure SlukCurs┆ 0x0680…06a0 6f 72 3b 0d 0a 62 65 67 69 6e 20 20 0d 0a 20 20 77 72 69 74 65 28 40 32 37 27 66 27 29 3b 0d 0a ┆or; begin write(@27'f'); ┆ 0x06a0…06c0 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 63 ┆end; (* *) proc┆ 0x06c0…06e0 65 64 75 72 65 20 52 61 6d 6d 65 28 78 31 2c 79 31 2c 78 32 2c 79 32 3a 20 69 6e 74 65 67 65 72 ┆edure Ramme(x1,y1,x2,y2: integer┆ 0x06e0…0700 29 3b 0d 0a 76 61 72 0d 0a 20 20 78 2c 79 3a 20 69 6e 74 65 67 65 72 3b 0d 0a 62 65 67 69 6e 0d ┆); var x,y: integer; begin ┆ 0x0700…0720 0a 20 20 67 6f 74 6f 78 79 28 78 31 2c 79 32 29 3b 20 77 72 69 74 65 28 27 8b 27 29 3b 0d 0a 20 ┆ gotoxy(x1,y2); write(' '); ┆ 0x0720…0740 20 66 6f 72 20 78 3a 3d 28 78 31 2b 31 29 20 74 6f 20 28 78 32 2d 31 29 20 64 6f 20 77 72 69 74 ┆ for x:=(x1+1) to (x2-1) do writ┆ 0x0740…0760 65 28 27 88 27 29 3b 20 77 72 69 74 65 28 27 8c 27 29 3b 0d 0a 20 20 66 6f 72 20 79 3a 3d 28 79 ┆e(' '); write(' '); for y:=(y┆ 0x0760…0780 32 2b 31 29 20 74 6f 20 28 79 31 2d 31 29 20 64 6f 20 62 65 67 69 6e 0d 0a 20 20 20 20 67 6f 74 ┆2+1) to (y1-1) do begin got┆ 0x0780…07a0 6f 78 79 28 78 31 2c 79 29 3b 20 77 72 69 74 65 28 27 89 27 29 3b 0d 0a 20 20 20 20 67 6f 74 6f ┆oxy(x1,y); write(' '); goto┆ 0x07a0…07c0 78 79 28 78 32 2c 79 29 3b 20 77 72 69 74 65 28 27 89 27 29 3b 0d 0a 20 20 65 6e 64 3b 0d 0a 20 ┆xy(x2,y); write(' '); end; ┆ 0x07c0…07e0 20 67 6f 74 6f 78 79 28 78 31 2c 79 31 29 3b 20 77 72 69 74 65 28 27 8d 27 29 3b 0d 0a 20 20 66 ┆ gotoxy(x1,y1); write(' '); f┆ 0x07e0…0800 6f 72 20 78 3a 3d 28 78 31 2b 31 29 20 74 6f 20 28 78 32 2d 31 29 20 64 6f 20 77 72 69 74 65 28 ┆or x:=(x1+1) to (x2-1) do write(┆ 0x0800…0820 (2,) 27 88 27 29 3b 20 77 72 69 74 65 28 27 8e 27 29 3b 0d 0a 65 6e 64 3b 0d 0a 28 2a 20 ac ac ac ac ┆' '); write(' '); end; (* ┆ 0x0820…0840 ac ac ac ac ac ac 20 2a 29 0d 0a 70 72 6f 63 65 64 75 72 65 20 53 65 74 46 75 6e 6b 54 61 73 74 ┆ *) procedure SetFunkTast┆ 0x0840…0860 28 61 73 63 69 69 3a 20 62 79 74 65 3b 20 73 74 72 65 6e 67 3a 20 73 74 72 65 6e 67 32 30 29 3b ┆(ascii: byte; streng: streng20);┆ 0x0860…0880 0d 0a 62 65 67 69 6e 0d 0a 20 20 77 72 69 74 65 28 40 32 37 27 3a 27 2b 63 68 72 28 61 73 63 69 ┆ begin write(@27':'+chr(asci┆ 0x0880…08a0 69 29 2b 73 74 72 65 6e 67 2b 40 30 29 3b 0d 0a 65 6e 64 3b 0d 0a 28 2a 20 ac ac ac ac ac ac ac ┆i)+streng+@0); end; (* ┆ 0x08a0…08c0 ac ac ac 20 2a 29 0d 0a 70 72 6f 63 65 64 75 72 65 20 53 65 74 46 75 6e 6b 54 61 73 74 65 72 3b ┆ *) procedure SetFunkTaster;┆ 0x08c0…08e0 0d 0a 62 65 67 69 6e 0d 0a 20 20 53 65 74 46 75 6e 6b 54 61 73 74 28 37 35 2c 40 39 29 3b 20 20 ┆ begin SetFunkTast(75,@9); ┆ 0x08e0…0900 20 28 2a 20 70 69 6c 20 74 69 6c 20 76 65 6e 73 74 72 65 20 2a 29 0d 0a 20 20 53 65 74 46 75 6e ┆ (* pil til venstre *) SetFun┆ 0x0900…0920 6b 54 61 73 74 28 37 37 2c 40 32 34 29 3b 20 20 28 2a 20 70 69 6c 20 74 69 6c 20 68 7c 6a 72 65 ┆kTast(77,@24); (* pil til højre┆ 0x0920…0940 20 2a 29 0d 0a 20 20 53 65 74 46 75 6e 6b 54 61 73 74 28 37 32 2c 40 32 36 29 3b 20 20 28 2a 20 ┆ *) SetFunkTast(72,@26); (* ┆ 0x0940…0960 70 69 6c 20 6f 70 20 2a 29 0d 0a 20 20 53 65 74 46 75 6e 6b 54 61 73 74 28 38 30 2c 40 31 30 29 ┆pil op *) SetFunkTast(80,@10)┆ 0x0960…0980 3b 20 20 28 2a 20 70 69 6c 20 6e 65 64 20 2a 29 0d 0a 20 20 53 65 74 46 75 6e 6b 54 61 73 74 28 ┆; (* pil ned *) SetFunkTast(┆ 0x0980…09a0 37 31 2c 40 32 39 29 3b 20 20 28 2a 20 70 69 6c 20 68 6f 6d 65 20 2a 29 0d 0a 20 20 53 65 74 46 ┆71,@29); (* pil home *) SetF┆ 0x09a0…09c0 75 6e 6b 54 61 73 74 28 38 32 2c 40 34 29 3b 20 20 20 28 2a 20 74 65 67 6e 20 69 6e 64 20 2a 29 ┆unkTast(82,@4); (* tegn ind *)┆ 0x09c0…09e0 0d 0a 20 20 53 65 74 46 75 6e 6b 54 61 73 74 28 38 33 2c 40 35 29 3b 20 20 20 28 2a 20 73 6c 65 ┆ SetFunkTast(83,@5); (* sle┆ 0x09e0…0a00 74 20 74 65 67 6e 20 2a 29 0d 0a 20 20 53 65 74 46 75 6e 6b 54 61 73 74 28 37 33 2c 40 32 31 29 ┆t tegn *) SetFunkTast(73,@21)┆ 0x0a00…0a20 3b 20 28 2a 20 41 31 20 2a 29 0d 0a 20 20 53 65 74 46 75 6e 6b 54 61 73 74 28 37 34 2c 40 32 32 ┆; (* A1 *) SetFunkTast(74,@22┆ 0x0a20…0a40 29 3b 20 28 2a 20 41 32 20 2a 29 0d 0a 65 6e 64 3b 0d 0a 28 2a 20 ac ac ac ac ac ac ac ac ac ac ┆); (* A2 *) end; (* ┆ 0x0a40…0a60 20 2a 29 0d 0a 70 72 6f 63 65 64 75 72 65 20 49 6e 70 75 74 53 74 72 65 6e 67 28 6b 6f 6c 6f 6e ┆ *) procedure InputStreng(kolon┆ 0x0a60…0a80 6e 65 2c 6c 69 6e 69 65 2c 6d 61 78 5f 6c 61 65 6e 67 64 65 3a 69 6e 74 65 67 65 72 3b 0d 0a 20 ┆ne,linie,max_laengde:integer; ┆ 0x0a80…0aa0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 67 6e 5f 73 74 6f 65 72 72 ┆ tegn_stoerr┆ 0x0aa0…0ac0 65 6c 73 65 3a 20 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 ┆else: integer; ┆ 0x0ac0…0ae0 20 20 20 20 20 20 66 6a 65 72 6e 5f 6d 65 6c 6c 65 6d 72 75 6d 2c 74 65 67 6e 5f 72 61 6d 6d 65 ┆ fjern_mellemrum,tegn_ramme┆ 0x0ae0…0b00 3a 20 62 6f 6f 6c 65 61 6e 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆: boolean; ┆ 0x0b00…0b20 20 20 56 41 52 20 73 74 72 65 6e 67 3a 73 74 72 65 6e 67 38 30 29 3b 0d 0a 0d 0a 28 2a 20 48 76 ┆ VAR streng:streng80); (* Hv┆ 0x0b20…0b40 69 73 20 27 66 6a 65 72 6e 5f 6d 65 6c 6c 65 6d 72 75 6d 27 3d 54 52 55 45 20 66 6a 65 72 6e 65 ┆is 'fjern_mellemrum'=TRUE fjerne┆ 0x0b40…0b60 73 20 65 76 74 2e 20 6d 65 6c 6c 65 6d 72 75 6d 20 74 69 6c 20 73 69 64 73 74 2c 20 6f 67 73 7d ┆s evt. mellemrum til sidst, også┆ 0x0b60…0b80 20 20 20 20 20 20 2a 29 0d 0a 28 2a 20 70 7d 20 73 6b 7b 72 6d 65 6e 2e 20 20 20 20 20 20 20 20 ┆ *) (* på skærmen. ┆ 0x0b80…0ba0 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 ┆ ┆ 0x0ba0…0bc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 29 0d 0a 28 2a 20 27 74 65 67 ┆ *) (* 'teg┆ 0x0bc0…0be0 6e 5f 73 74 6f 65 72 72 65 6c 73 65 27 3d 30 20 7b 6e 64 72 65 72 20 69 6b 6b 65 20 69 6e 64 74 ┆n_stoerrelse'=0 ændrer ikke indt┆ 0x0be0…0c00 61 73 74 65 64 65 20 62 6f 67 73 74 61 76 65 72 73 20 73 74 7c 72 72 65 6c 73 65 20 20 20 20 20 ┆astede bogstavers størrelse ┆ 0x0c00…0c20 (3,) 20 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 31 20 7b ┆ *) (* 'tegn_stoerrelse'=1 æ┆ 0x0c20…0c40 6e 64 72 65 73 20 61 6c 6c 65 20 73 74 6f 72 65 20 62 6f 67 73 74 61 76 65 72 20 74 69 6c 20 73 ┆ndres alle store bogstaver til s┆ 0x0c40…0c60 6d 7d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 29 0d 0a 28 2a 20 27 74 65 67 6e 5f ┆må *) (* 'tegn_┆ 0x0c60…0c80 73 74 6f 65 72 72 65 6c 73 65 27 3d 32 20 7b 6e 64 72 65 73 20 61 6c 6c 65 20 73 6d 7d 20 62 6f ┆stoerrelse'=2 ændres alle små bo┆ 0x0c80…0ca0 67 73 74 61 76 65 72 20 74 69 6c 20 73 74 6f 72 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆gstaver til store ┆ 0x0ca0…0cc0 20 20 2a 29 0d 0a 28 2a 20 48 76 69 73 20 64 65 72 20 74 72 79 6b 6b 65 73 20 52 45 54 55 52 4e ┆ *) (* Hvis der trykkes RETURN┆ 0x0cc0…0ce0 20 75 64 65 6e 20 61 74 20 64 65 72 20 69 6e 64 74 61 73 74 65 73 20 74 65 67 6e 2c 20 72 65 74 ┆ uden at der indtastes tegn, ret┆ 0x0ce0…0d00 75 72 6e 65 72 65 72 20 27 73 74 72 65 6e 67 27 20 2a 29 0d 0a 28 2a 20 64 65 6e 20 74 6f 6d 6d ┆urnerer 'streng' *) (* den tomm┆ 0x0d00…0d20 65 20 73 74 72 65 6e 67 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆e streng. ┆ 0x0d20…0d40 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 ┆ ┆ 0x0d40…0d60 2a 29 0d 0a 28 2a 20 48 76 69 73 20 64 65 72 20 74 72 79 6b 6b 65 73 20 45 53 43 41 50 45 2c 20 ┆*) (* Hvis der trykkes ESCAPE, ┆ 0x0d60…0d80 72 65 74 75 72 6e 65 72 65 72 20 27 73 74 72 65 6e 67 27 20 6b 75 6e 20 20 20 20 20 20 20 20 20 ┆returnerer 'streng' kun ┆ 0x0d80…0da0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 29 0d 0a 28 2a 20 63 68 72 28 32 37 29 2c 20 61 ┆ *) (* chr(27), a┆ 0x0da0…0dc0 6c 74 73 7d 20 65 73 63 61 70 65 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ltså escape. ┆ 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 20 2a 29 ┆ *)┆ 0x0de0…0e00 0d 0a 0d 0a 63 6f 6e 73 74 0d 0a 20 20 50 49 4c 5f 48 4f 45 4a 52 45 3d 40 32 34 3b 0d 0a 20 20 ┆ const PIL_HOEJRE=@24; ┆ 0x0e00…0e20 50 49 4c 5f 56 45 4e 53 54 52 45 3d 40 39 3b 0d 0a 20 20 50 49 4c 5f 48 4f 4d 45 3d 40 32 39 3b ┆PIL_VENSTRE=@9; PIL_HOME=@29;┆ 0x0e20…0e40 0d 0a 20 20 54 45 47 4e 5f 49 4e 44 3d 40 34 3b 0d 0a 20 20 42 41 43 4b 5f 53 50 41 43 45 3d 40 ┆ TEGN_IND=@4; BACK_SPACE=@┆ 0x0e40…0e60 38 3b 0d 0a 20 20 53 4c 45 54 5f 54 45 47 4e 3d 40 35 3b 0d 0a 20 20 53 4c 45 54 5f 52 45 53 54 ┆8; SLET_TEGN=@5; SLET_REST┆ 0x0e60…0e80 5f 4c 49 4e 49 45 3d 40 32 31 3b 20 28 2a 20 41 31 2d 74 61 73 74 20 2a 29 20 20 0d 0a 20 20 53 ┆_LINIE=@21; (* A1-tast *) S┆ 0x0e80…0ea0 4c 45 54 5f 48 45 4c 5f 4c 49 4e 49 45 3d 40 32 32 3b 20 20 28 2a 20 41 32 2d 74 61 73 74 20 2a ┆LET_HEL_LINIE=@22; (* A2-tast *┆ 0x0ea0…0ec0 29 0d 0a 20 20 52 45 54 55 52 4e 5f 54 41 53 54 3d 40 31 33 3b 0d 0a 20 20 45 53 43 5f 54 41 53 ┆) RETURN_TAST=@13; ESC_TAS┆ 0x0ec0…0ee0 54 3d 40 32 37 3b 0d 0a 0d 0a 20 20 53 4c 55 4b 5f 43 55 52 53 4f 52 3d 40 32 37 27 66 27 3b 0d ┆T=@27; SLUK_CURSOR=@27'f'; ┆ 0x0ee0…0f00 0a 20 20 54 41 45 4e 44 5f 43 55 52 53 4f 52 3d 40 32 37 27 65 27 3b 0d 0a 20 20 0d 0a 20 20 74 ┆ TAEND_CURSOR=@27'e'; t┆ 0x0f00…0f20 65 67 6e 73 61 65 74 3a 73 65 74 20 6f 66 20 63 68 61 72 3d 28 2e 27 20 27 2e 2e 27 7e 27 2e 29 ┆egnsaet:set of char=(.' '..'ü'.)┆ 0x0f20…0f40 3b 0d 0a 0d 0a 76 61 72 0d 0a 20 20 74 65 67 6e 3a 20 63 68 61 72 3b 0d 0a 20 20 73 74 72 65 6e ┆; var tegn: char; stren┆ 0x0f40…0f60 67 5f 74 65 67 6e 3a 20 61 72 72 61 79 28 2e 31 2e 2e 38 30 2e 29 20 6f 66 20 63 68 61 72 3b 0d ┆g_tegn: array(.1..80.) of char; ┆ 0x0f60…0f80 0a 20 20 74 65 6d 70 5f 73 74 72 65 6e 67 3a 20 73 74 72 65 6e 67 38 30 3b 0d 0a 20 20 69 2c 78 ┆ temp_streng: streng80; i,x┆ 0x0f80…0fa0 70 6f 73 3a 20 69 6e 74 65 67 65 72 3b 0d 0a 62 65 67 69 6e 0d 0a 20 20 69 66 20 28 74 65 67 6e ┆pos: integer; begin if (tegn┆ 0x0fa0…0fc0 5f 72 61 6d 6d 65 3d 74 72 75 65 29 20 74 68 65 6e 0d 0a 20 20 20 20 52 61 6d 6d 65 28 28 6b 6f ┆_ramme=true) then Ramme((ko┆ 0x0fc0…0fe0 6c 6f 6e 6e 65 2d 32 29 2c 28 6c 69 6e 69 65 2b 31 29 2c 28 6b 6f 6c 6f 6e 6e 65 2b 6d 61 78 5f ┆lonne-2),(linie+1),(kolonne+max_┆ 0x0fe0…1000 6c 61 65 6e 67 64 65 2b 31 29 2c 28 6c 69 6e 69 65 2d 31 29 29 3b 20 0d 0a 20 20 73 74 72 65 6e ┆laengde+1),(linie-1)); stren┆ 0x1000…1020 (4,) 67 3a 3d 27 27 3b 0d 0a 20 20 66 6f 72 20 69 3a 3d 31 20 74 6f 20 6d 61 78 5f 6c 61 65 6e 67 64 ┆g:=''; for i:=1 to max_laengd┆ 0x1020…1040 65 20 64 6f 20 73 74 72 65 6e 67 5f 74 65 67 6e 28 2e 69 2e 29 3a 3d 27 20 27 3b 0d 0a 20 20 78 ┆e do streng_tegn(.i.):=' '; x┆ 0x1040…1060 70 6f 73 3a 3d 31 3b 74 65 67 6e 3a 3d 63 68 72 28 30 29 3b 0d 0a 20 20 72 65 70 65 61 74 0d 0a ┆pos:=1;tegn:=chr(0); repeat ┆ 0x1060…1080 20 20 20 20 67 6f 74 6f 78 79 28 6b 6f 6c 6f 6e 6e 65 2d 31 2b 78 70 6f 73 2c 6c 69 6e 69 65 29 ┆ gotoxy(kolonne-1+xpos,linie)┆ 0x1080…10a0 3b 0d 0a 20 20 20 20 54 61 65 6e 64 43 75 72 73 6f 72 3b 0d 0a 20 20 20 20 72 65 61 64 28 4b 42 ┆; TaendCursor; read(KB┆ 0x10a0…10c0 44 2c 74 65 67 6e 29 3b 0d 0a 20 20 20 20 53 6c 75 6b 43 75 72 73 6f 72 3b 0d 0a 20 20 20 20 0d ┆D,tegn); SlukCursor; ┆ 0x10c0…10e0 0a 20 20 20 20 69 66 20 28 74 65 67 6e 20 69 6e 20 74 65 67 6e 73 61 65 74 29 20 61 6e 64 20 28 ┆ if (tegn in tegnsaet) and (┆ 0x10e0…1100 78 70 6f 73 3c 3d 6d 61 78 5f 6c 61 65 6e 67 64 65 29 20 74 68 65 6e 20 62 65 67 69 6e 0d 0a 20 ┆xpos<=max_laengde) then begin ┆ 0x1100…1120 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 74 65 67 6e 3b 0d ┆ streng_tegn(.xpos.):=tegn; ┆ 0x1120…1140 0a 20 20 20 20 20 20 78 70 6f 73 3a 3d 78 70 6f 73 2b 31 3b 0d 0a 20 20 20 20 20 20 77 72 69 74 ┆ xpos:=xpos+1; writ┆ 0x1140…1160 65 28 74 65 67 6e 29 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 ┆e(tegn); end else begin ┆ 0x1160…1180 20 20 20 20 69 66 20 28 74 65 67 6e 3d 50 49 4c 5f 56 45 4e 53 54 52 45 29 20 61 6e 64 20 28 78 ┆ if (tegn=PIL_VENSTRE) and (x┆ 0x1180…11a0 70 6f 73 3e 3d 32 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 ┆pos>=2) then begin xpos:=┆ 0x11a0…11c0 78 70 6f 73 2d 31 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 ┆xpos-1; end else begin ┆ 0x11c0…11e0 20 20 20 69 66 20 28 74 65 67 6e 3d 50 49 4c 5f 48 4f 45 4a 52 45 29 20 61 6e 64 20 28 78 70 6f ┆ if (tegn=PIL_HOEJRE) and (xpo┆ 0x11e0…1200 73 3c 3d 28 6d 61 78 5f 6c 61 65 6e 67 64 65 2d 31 29 29 20 74 68 65 6e 20 62 65 67 69 6e 0d 0a ┆s<=(max_laengde-1)) then begin ┆ 0x1200…1220 20 20 20 20 20 20 78 70 6f 73 3a 3d 78 70 6f 73 2b 31 3b 0d 0a 20 20 20 20 65 6e 64 20 65 6c 73 ┆ xpos:=xpos+1; end els┆ 0x1220…1240 65 20 62 65 67 69 6e 0d 0a 0d 0a 20 20 20 20 69 66 20 28 74 65 67 6e 3d 53 4c 45 54 5f 52 45 53 ┆e begin if (tegn=SLET_RES┆ 0x1240…1260 54 5f 4c 49 4e 49 45 29 20 74 68 65 6e 20 62 65 67 69 6e 20 0d 0a 20 20 20 20 20 20 66 6f 72 20 ┆T_LINIE) then begin for ┆ 0x1260…1280 69 3a 3d 78 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 ┆i:=xpos to max_laengde do begin ┆ 0x1280…12a0 0a 20 20 20 20 20 20 20 20 73 74 72 65 6e 67 5f 74 65 67 6e 28 2e 69 2e 29 3a 3d 27 20 27 3b 0d ┆ streng_tegn(.i.):=' '; ┆ 0x12a0…12c0 0a 20 20 20 20 20 20 20 20 77 72 69 74 65 28 27 20 27 29 3b 0d 0a 20 20 20 20 20 20 65 6e 64 3b ┆ write(' '); end;┆ 0x12c0…12e0 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 28 ┆ end else begin if (┆ 0x12e0…1300 74 65 67 6e 3d 53 4c 45 54 5f 48 45 4c 5f 4c 49 4e 49 45 29 20 74 68 65 6e 20 62 65 67 69 6e 20 ┆tegn=SLET_HEL_LINIE) then begin ┆ 0x1300…1320 0d 0a 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 ┆ gotoxy(kolonne,linie); ┆ 0x1320…1340 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 6b 6f 6c 6f 6e 6e 65 20 74 6f 20 28 6d 61 78 5f 6c 61 65 ┆ for i:=kolonne to (max_lae┆ 0x1340…1360 6e 67 64 65 2b 6b 6f 6c 6f 6e 6e 65 29 20 64 6f 20 77 72 69 74 65 28 27 20 27 29 3b 0d 0a 20 20 ┆ngde+kolonne) do write(' '); ┆ 0x1360…1380 20 20 20 20 66 6f 72 20 69 3a 3d 31 20 74 6f 20 6d 61 78 5f 6c 61 65 6e 67 64 65 20 64 6f 20 73 ┆ for i:=1 to max_laengde do s┆ 0x1380…13a0 74 72 65 6e 67 5f 74 65 67 6e 28 2e 69 2e 29 3a 3d 27 20 27 3b 0d 0a 20 20 20 20 20 20 78 70 6f ┆treng_tegn(.i.):=' '; xpo┆ 0x13a0…13c0 73 3a 3d 31 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 ┆s:=1; end else begin ┆ 0x13c0…13e0 20 69 66 20 28 74 65 67 6e 3d 50 49 4c 5f 48 4f 4d 45 29 20 74 68 65 6e 20 62 65 67 69 6e 0d 0a ┆ if (tegn=PIL_HOME) then begin ┆ 0x13e0…1400 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 65 20 62 65 67 ┆ xpos:=1; end else beg┆ 0x1400…1420 (5,) 69 6e 0d 0a 0d 0a 20 20 20 20 69 66 20 28 74 65 67 6e 3d 54 45 47 4e 5f 49 4e 44 29 20 74 68 65 ┆in if (tegn=TEGN_IND) the┆ 0x1420…1440 6e 20 62 65 67 69 6e 0d 0a 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 6d 61 78 5f 6c 61 65 6e 67 64 ┆n begin for i:=max_laengd┆ 0x1440…1460 65 20 64 6f 77 6e 74 6f 20 28 78 70 6f 73 2b 31 29 20 64 6f 20 62 65 67 69 6e 0d 0a 20 20 20 20 ┆e downto (xpos+1) do begin ┆ 0x1460…1480 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 65 67 ┆ streng_tegn(.i.):=streng_teg┆ 0x1480…14a0 6e 28 2e 69 2d 31 2e 29 3b 0d 0a 20 20 20 20 20 20 65 6e 64 3b 0d 0a 20 20 20 20 20 20 73 74 72 ┆n(.i-1.); end; str┆ 0x14a0…14c0 65 6e 67 5f 74 65 67 6e 28 2e 78 70 6f 73 2e 29 3a 3d 27 20 27 3b 0d 0a 20 20 20 20 20 20 66 6f ┆eng_tegn(.xpos.):=' '; fo┆ 0x14c0…14e0 72 20 69 3a 3d 78 70 6f 73 20 74 6f 20 6d 61 78 5f 6c 61 65 6e 67 64 65 20 64 6f 20 77 72 69 74 ┆r i:=xpos to max_laengde do writ┆ 0x14e0…1500 65 28 73 74 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 ┆e(streng_tegn(.i.)); end el┆ 0x1500…1520 73 65 20 62 65 67 69 6e 0d 0a 20 20 20 20 0d 0a 20 20 20 20 69 66 20 28 28 74 65 67 6e 3d 42 41 ┆se begin if ((tegn=BA┆ 0x1520…1540 43 4b 5f 53 50 41 43 45 29 20 61 6e 64 20 28 78 70 6f 73 3e 31 29 29 20 74 68 65 6e 20 62 65 67 ┆CK_SPACE) and (xpos>1)) then beg┆ 0x1540…1560 69 6e 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 ┆in for i:=xpos to max_lae┆ 0x1560…1580 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┆ 0x1580…15a0 67 6e 28 2e 28 69 2d 31 29 2e 29 3a 3d 73 74 72 65 6e 67 5f 74 65 67 6e 28 2e 69 2e 29 3b 0d 0a ┆gn(.(i-1).):=streng_tegn(.i.); ┆ 0x15a0…15c0 20 20 20 20 20 20 65 6e 64 3b 0d 0a 20 20 20 20 20 20 73 74 72 65 6e 67 5f 74 65 67 6e 28 2e 6d ┆ end; streng_tegn(.m┆ 0x15c0…15e0 61 78 5f 6c 61 65 6e 67 64 65 2e 29 3a 3d 27 20 27 3b 0d 0a 20 20 20 20 20 20 78 70 6f 73 3a 3d ┆ax_laengde.):=' '; xpos:=┆ 0x15e0…1600 28 78 70 6f 73 2d 31 29 3b 0d 0a 20 20 20 20 20 20 67 6f 74 6f 78 79 28 6b 6f 6c 6f 6e 6e 65 2c ┆(xpos-1); gotoxy(kolonne,┆ 0x1600…1620 6c 69 6e 69 65 29 3b 0d 0a 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 31 20 74 6f 20 6d 61 78 5f 6c ┆linie); for i:=1 to max_l┆ 0x1620…1640 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.)┆ 0x1640…1660 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 0d 0a 20 20 20 ┆); end else begin ┆ 0x1660…1680 20 69 66 20 28 74 65 67 6e 3d 53 4c 45 54 5f 54 45 47 4e 29 20 74 68 65 6e 20 62 65 67 69 6e 0d ┆ if (tegn=SLET_TEGN) then begin ┆ 0x1680…16a0 0a 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 78 70 6f 73 20 74 6f 20 28 6d 61 78 5f 6c 61 65 6e 67 ┆ for i:=xpos to (max_laeng┆ 0x16a0…16c0 64 65 2d 31 29 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 ┆de-1) do begin streng_t┆ 0x16c0…16e0 65 67 6e 28 2e 69 2e 29 3a 3d 73 74 72 65 6e 67 5f 74 65 67 6e 28 2e 69 2b 31 2e 29 3b 0d 0a 20 ┆egn(.i.):=streng_tegn(.i+1.); ┆ 0x16e0…1700 20 20 20 20 20 20 20 77 72 69 74 65 28 73 74 72 65 6e 67 5f 74 65 67 6e 28 2e 69 2e 29 29 3b 0d ┆ write(streng_tegn(.i.)); ┆ 0x1700…1720 0a 20 20 20 20 20 20 65 6e 64 3b 0d 0a 20 20 20 20 20 20 73 74 72 65 6e 67 5f 74 65 67 6e 28 2e ┆ end; streng_tegn(.┆ 0x1720…1740 6d 61 78 5f 6c 61 65 6e 67 64 65 2e 29 3a 3d 27 20 27 3b 0d 0a 20 20 20 20 20 20 77 72 69 74 65 ┆max_laengde.):=' '; write┆ 0x1740…1760 28 27 20 27 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 0d ┆(' '); end else begin ┆ 0x1760…1780 0a 20 20 20 20 65 6e 64 3b 65 6e 64 3b 65 6e 64 3b 65 6e 64 3b 65 6e 64 3b 65 6e 64 3b 65 6e 64 ┆ end;end;end;end;end;end;end┆ 0x1780…17a0 3b 65 6e 64 3b 65 6e 64 3b 0d 0a 0d 0a 20 20 75 6e 74 69 6c 20 28 28 74 65 67 6e 3d 52 45 54 55 ┆;end;end; until ((tegn=RETU┆ 0x17a0…17c0 52 4e 5f 54 41 53 54 29 20 6f 72 20 28 74 65 67 6e 3d 45 53 43 5f 54 41 53 54 29 29 3b 0d 0a 20 ┆RN_TAST) or (tegn=ESC_TAST)); ┆ 0x17c0…17e0 20 0d 0a 20 20 69 66 20 28 74 65 67 6e 3d 52 45 54 55 52 4e 5f 54 41 53 54 29 20 74 68 65 6e 20 ┆ if (tegn=RETURN_TAST) then ┆ 0x17e0…1800 62 65 67 69 6e 0d 0a 20 20 20 20 66 6f 72 20 69 3a 3d 31 20 74 6f 20 6d 61 78 5f 6c 61 65 6e 67 ┆begin for i:=1 to max_laeng┆ 0x1800…1820 (6,) 64 65 20 64 6f 20 73 74 72 65 6e 67 3a 3d 73 74 72 65 6e 67 2b 73 74 72 65 6e 67 5f 74 65 67 6e ┆de do streng:=streng+streng_tegn┆ 0x1820…1840 28 2e 69 2e 29 3b 0d 0a 20 20 20 20 69 3a 3d 6d 61 78 5f 6c 61 65 6e 67 64 65 3b 0d 0a 20 20 20 ┆(.i.); i:=max_laengde; ┆ 0x1840…1860 20 72 65 70 65 61 74 0d 0a 20 20 20 20 20 20 69 66 20 73 74 72 65 6e 67 5f 74 65 67 6e 28 2e 69 ┆ repeat if streng_tegn(.i┆ 0x1860…1880 2e 29 3d 27 20 27 20 74 68 65 6e 20 64 65 6c 65 74 65 28 73 74 72 65 6e 67 2c 69 2c 31 29 3b 0d ┆.)=' ' then delete(streng,i,1); ┆ 0x1880…18a0 0a 20 20 20 20 20 20 69 3a 3d 69 2d 31 3b 0d 0a 20 20 20 20 75 6e 74 69 6c 20 28 73 74 72 65 6e ┆ i:=i-1; until (stren┆ 0x18a0…18c0 67 5f 74 65 67 6e 28 2e 69 2e 29 3c 3e 27 20 27 29 20 6f 72 20 28 69 3d 31 29 3b 0d 0a 0d 0a 20 ┆g_tegn(.i.)<>' ') or (i=1); ┆ 0x18c0…18e0 20 20 20 69 66 20 28 74 65 67 6e 5f 73 74 6f 65 72 72 65 6c 73 65 3d 31 29 20 74 68 65 6e 20 62 ┆ if (tegn_stoerrelse=1) then b┆ 0x18e0…1900 65 67 69 6e 0d 0a 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 31 20 74 6f 20 6c 65 6e 28 73 74 72 65 ┆egin for i:=1 to len(stre┆ 0x1900…1920 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 73 74 72 65 6e 67 ┆ng) do begin if (streng┆ […truncated at 200 lines…]