DataMuseum.dk

Presents historical artifacts from the history of:

CP/M

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about CP/M

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - metrics - download

⟦6c1ce345f⟧

    Length: 8576 (0x2180)
    Names: »MGBAG.PAS«

Derivation

└─⟦29e35ddf2⟧ Bits:30003931/CCPM_Tegn.imd Disketter indleveret af Steffen Jensen (Piccolo/Piccoline)
    └─⟦this⟧ »MGBAG.PAS« 

Hex Dump

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…]