|
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: 18560 (0x4880)
Names: ».PAS«
└─⟦29e35ddf2⟧ Bits:30003931/CCPM_Tegn.imd Disketter indleveret af Steffen Jensen (Piccolo/Piccoline)
└─⟦this⟧ ».PAS«
0x0000…0020 (0,) 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 70 72 6f ┆ pro┆
0x0020…0040 67 72 61 6d 20 74 65 67 6e 3b 0d 0a 0d 0a 20 20 28 2a 24 56 2d 2c 49 20 47 53 58 20 2a 29 20 0d ┆gram tegn; (*$V-,I GSX *) ┆
0x0040…0060 0a 0d 0a 20 20 28 2a 20 64 65 6e 20 30 35 2e 31 30 2e 38 36 20 2a 29 0d 0a 0d 0a 0d 0a 63 6f 6e ┆ (* den 05.10.86 *) con┆
0x0060…0080 73 74 0d 0a 20 20 20 20 73 74 72 65 6e 67 6e 61 76 6e 20 3d 20 27 41 6c 61 6e 20 53 7c 72 65 6e ┆st strengnavn = 'Alan Søren┆
0x0080…00a0 73 65 6e 27 3b 0d 0a 0d 0a 54 59 50 45 0d 0a 20 20 20 20 73 74 72 65 6e 67 74 79 70 65 20 20 20 ┆sen'; TYPE strengtype ┆
0x00a0…00c0 20 20 20 20 3d 20 73 74 72 69 6e 67 28 2e 33 35 2e 29 3b 0d 0a 20 20 20 20 73 74 72 65 6e 67 31 ┆ = string(.35.); streng1┆
0x00c0…00e0 35 20 20 20 20 20 20 20 20 20 3d 20 73 74 72 69 6e 67 28 2e 31 35 2e 29 3b 0d 0a 20 20 20 20 73 ┆5 = string(.15.); s┆
0x00e0…0100 74 72 65 6e 67 32 30 20 20 20 20 20 20 20 20 20 3d 20 73 74 72 69 6e 67 28 2e 32 30 2e 29 3b 0d ┆treng20 = string(.20.); ┆
0x0100…0120 0a 20 20 20 20 73 74 72 65 6e 67 38 20 20 20 20 20 20 20 20 20 20 3d 20 73 74 72 69 6e 67 28 2e ┆ streng8 = string(.┆
0x0120…0140 38 2e 29 3b 0d 0a 20 20 20 20 73 74 72 65 6e 67 34 20 20 20 20 20 20 20 20 20 20 3d 20 73 74 72 ┆8.); streng4 = str┆
0x0140…0160 69 6e 67 28 2e 34 2e 29 3b 0d 0a 20 20 20 20 73 74 72 65 6e 67 38 30 20 20 20 20 20 20 20 20 20 ┆ing(.4.); streng80 ┆
0x0160…0180 3d 20 73 74 72 69 6e 67 28 2e 38 30 2e 29 3b 0d 0a 20 20 20 20 72 65 67 5f 74 79 70 65 20 20 20 ┆= string(.80.); reg_type ┆
0x0180…01a0 20 20 20 20 20 20 3d 20 72 65 63 6f 72 64 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ = record ┆
0x01a0…01c0 20 20 20 20 20 20 20 20 20 61 78 2c 62 78 2c 63 78 2c 64 78 2c 62 70 2c 73 69 2c 64 69 2c 64 73 ┆ ax,bx,cx,dx,bp,si,di,ds┆
0x01c0…01e0 2c 65 73 2c 66 6c 61 67 73 3a 69 6e 74 65 67 65 72 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆,es,flags:integer ┆
0x01e0…0200 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0d 0a 20 20 20 20 66 61 72 76 65 74 79 70 65 72 20 20 ┆ end; farvetyper ┆
0x0200…0220 20 20 20 20 20 3d 20 61 72 72 61 79 28 2e 31 2e 2e 34 2e 29 20 6f 66 20 63 68 61 72 3b 0d 0a 76 ┆ = array(.1..4.) of char; v┆
0x0220…0240 61 72 0d 0a 20 20 20 20 63 6f 6c 6f 72 73 20 20 20 20 20 20 20 20 20 20 20 3a 20 66 61 72 76 65 ┆ar colors : farve┆
0x0240…0260 74 79 70 65 72 3b 0d 0a 20 20 20 20 66 61 72 76 65 66 69 6c 20 20 20 20 20 20 20 20 20 3a 20 66 ┆typer; farvefil : f┆
0x0260…0280 69 6c 65 20 6f 66 20 63 68 61 72 3b 0d 0a 20 20 20 20 66 69 6c 6e 61 76 6e 32 20 20 20 20 20 20 ┆ile of char; filnavn2 ┆
0x0280…02a0 20 20 20 3a 20 66 69 6c 65 20 6f 66 20 69 6e 74 65 67 65 72 3b 20 0d 0a 20 20 20 20 66 69 6c 6e ┆ : file of integer; filn┆
0x02a0…02c0 61 76 6e 20 20 20 20 20 20 20 20 20 20 3a 20 66 69 6c 65 3b 0d 0a 20 20 20 20 72 65 67 20 20 20 ┆avn : file; reg ┆
0x02c0…02e0 20 20 20 20 20 20 20 20 20 20 20 3a 20 72 65 67 5f 74 79 70 65 3b 0d 0a 20 20 20 20 70 6f 69 6e ┆ : reg_type; poin┆
0x02e0…0300 74 2c 78 2c 79 2c 0d 0a 20 20 20 20 6e 2c 78 69 6e 2c 79 69 6e 2c 73 74 61 74 75 73 2c 74 65 72 ┆t,x,y, n,xin,yin,status,ter┆
0x0300…0320 6d 2c 0d 0a 20 20 20 20 78 6f 75 74 2c 79 6f 75 74 2c 78 6d 69 6e 2c 79 6d 69 6e 20 20 20 20 20 ┆m, xout,yout,xmin,ymin ┆
0x0320…0340 20 20 20 3a 20 69 6e 74 65 67 65 72 3b 0d 0a 20 20 20 20 6d 61 72 6b 6f 65 72 2c 0d 0a 20 20 20 ┆ : integer; markoer, ┆
0x0340…0360 20 75 64 66 2c 74 79 62 65 2c 66 61 72 76 65 2c 73 74 79 6c 65 2c 0d 0a 20 20 20 20 62 72 65 64 ┆ udf,tybe,farve,style, bred┆
0x0360…0380 64 65 2c 68 6f 65 6a 64 65 2c 77 73 5f 69 64 2c 61 6b 74 75 65 6c 5f 66 61 72 76 65 20 20 20 20 ┆de,hoejde,ws_id,aktuel_farve ┆
0x0380…03a0 20 3a 20 69 6e 74 65 67 65 72 3b 0d 0a 20 20 20 20 70 72 69 6e 74 65 72 6e 72 20 20 20 20 20 20 ┆ : integer; printernr ┆
0x03a0…03c0 20 20 3a 20 62 79 74 65 3b 0d 0a 20 20 20 20 66 69 6c 6e 61 76 6e 73 74 72 65 6e 67 20 20 20 20 ┆ : byte; filnavnstreng ┆
0x03c0…03e0 3a 20 73 74 72 65 6e 67 31 35 3b 0d 0a 20 20 20 20 74 65 6b 73 74 73 74 72 2c 73 74 72 65 6e 67 ┆: streng15; tekststr,streng┆
0x03e0…0400 31 2c 0d 0a 20 20 20 20 73 74 72 65 6e 67 32 20 20 20 20 20 20 20 20 20 20 3a 20 73 74 72 65 6e ┆1, streng2 : stren┆
0x0400…0420 (1,) 67 74 79 70 65 3b 0d 0a 20 20 20 20 73 74 72 65 6e 67 20 20 20 20 20 20 20 20 20 20 20 3a 20 73 ┆gtype; streng : s┆
0x0420…0440 74 72 65 6e 67 38 30 3b 0d 0a 20 20 20 20 6d 61 73 6b 65 2c 68 6f 6c 64 6f 70 2c 66 6c 61 67 3a ┆treng80; maske,holdop,flag:┆
0x0440…0460 20 62 6f 6f 6c 65 61 6e 3b 0d 0a 20 20 20 20 64 69 73 6b 64 72 65 76 2c 74 61 73 74 2c 63 68 20 ┆ boolean; diskdrev,tast,ch ┆
0x0460…0480 3a 20 63 68 61 72 3b 0d 0a 20 20 20 20 70 69 78 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 20 ┆: char; pix : ┆
0x0480…04a0 61 72 72 61 79 28 2e 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 ┆array(.0..15839.) of integer at ┆
0x04a0…04c0 24 66 30 30 30 3a 30 30 30 30 3b 0d 0a 20 20 20 20 74 65 6d 70 20 20 20 20 20 20 20 20 20 20 20 ┆$f000:0000; temp ┆
0x04c0…04e0 20 20 3a 20 61 72 72 61 79 28 2e 30 2e 2e 31 35 38 33 39 2e 29 20 6f 66 20 69 6e 74 65 67 65 72 ┆ : array(.0..15839.) of integer┆
0x04e0…0500 3b 0d 0a 20 20 20 20 71 2c 69 2c 6d 2c 70 20 20 20 20 20 20 20 20 20 20 3a 20 69 6e 74 65 67 65 ┆; q,i,m,p : intege┆
0x0500…0520 72 3b 0d 0a 0d 0a 20 20 20 28 2a 24 49 20 74 65 67 6e 36 30 35 2a 29 0d 0a 20 20 20 28 2a 24 49 ┆r; (*$I tegn605*) (*$I┆
0x0520…0540 20 70 72 69 6e 74 65 72 2a 29 0d 0a 20 20 20 28 2a 24 49 20 74 65 67 6e 36 30 32 2a 29 0d 0a 20 ┆ printer*) (*$I tegn602*) ┆
0x0540…0560 20 20 28 2a 24 49 20 74 65 67 6e 36 30 33 2a 29 0d 0a 20 20 20 28 2a 24 49 20 74 65 67 6e 36 30 ┆ (*$I tegn603*) (*$I tegn60┆
0x0560…0580 34 2a 29 0d 0a 20 20 20 28 2a 24 49 20 74 65 67 6e 36 30 37 2a 29 0d 0a 20 20 20 28 2a 24 49 20 ┆4*) (*$I tegn607*) (*$I ┆
0x0580…05a0 66 6c 79 74 36 30 2a 29 0d 0a 28 2a 20 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 ┆flyt60*) (* ┆
0x05a0…05c0 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 20 2a 29 0d 0a 0d 0a 70 72 6f 63 65 64 75 ┆ *) procedu┆
0x05c0…05e0 72 65 20 6c 69 6e 69 65 74 79 70 65 28 76 61 72 20 78 69 6e 2c 79 69 6e 2c 74 79 62 65 3a 69 6e ┆re linietype(var xin,yin,tybe:in┆
0x05e0…0600 74 65 67 65 72 29 3b 0d 0a 0d 0a 0d 0a 76 61 72 0d 0a 20 20 6e 2c 6d 2c 74 65 6c 20 20 20 20 20 ┆teger); var n,m,tel ┆
0x0600…0620 20 20 20 20 20 20 20 3a 20 69 6e 74 65 67 65 72 3b 0d 0a 20 20 73 74 72 65 67 20 20 20 20 20 20 ┆ : integer; streg ┆
0x0620…0640 20 20 20 20 20 20 20 20 3a 20 61 72 72 61 79 28 2e 31 2e 2e 32 2e 29 20 6f 66 20 63 6f 6f 72 3b ┆ : array(.1..2.) of coor;┆
0x0640…0660 0d 0a 0d 0a 62 65 67 69 6e 0d 0a 20 20 73 6c 65 74 68 61 6c 76 73 74 61 74 75 73 3b 0d 0a 20 20 ┆ begin slethalvstatus; ┆
0x0660…0680 6c 69 6e 65 63 6f 6c 6f 72 28 61 6b 74 75 65 6c 5f 66 61 72 76 65 29 3b 0d 0a 20 20 69 66 20 61 ┆linecolor(aktuel_farve); if a┆
0x0680…06a0 6b 74 75 65 6c 5f 66 61 72 76 65 3d 30 20 74 68 65 6e 20 6c 69 6e 65 63 6f 6c 6f 72 28 31 29 3b ┆ktuel_farve=0 then linecolor(1);┆
0x06a0…06c0 0d 0a 20 20 73 74 72 65 67 28 2e 31 2e 29 2e 79 3a 3d 33 30 36 35 30 3b 73 74 72 65 67 28 2e 32 ┆ streg(.1.).y:=30650;streg(.2┆
0x06c0…06e0 2e 29 2e 79 3a 3d 33 30 36 35 30 3b 20 20 20 20 0d 0a 20 20 20 20 66 6f 72 20 6d 3a 3d 31 20 74 ┆.).y:=30650; for m:=1 t┆
0x06e0…0700 6f 20 36 20 64 6f 0d 0a 20 20 20 20 20 20 62 65 67 69 6e 0d 0a 20 20 20 20 20 20 20 20 66 69 6c ┆o 6 do begin fil┆
0x0700…0720 6c 63 6f 6c 6f 72 28 61 6b 74 75 65 6c 5f 66 61 72 76 65 29 3b 0d 0a 20 20 20 20 20 20 20 20 69 ┆lcolor(aktuel_farve); i┆
0x0720…0740 66 20 61 6b 74 75 65 6c 5f 66 61 72 76 65 3d 30 20 74 68 65 6e 20 66 69 6c 6c 63 6f 6c 6f 72 28 ┆f aktuel_farve=0 then fillcolor(┆
0x0740…0760 31 29 3b 0d 0a 20 20 20 20 20 20 20 20 62 61 72 28 28 6d 2d 31 29 2a 34 30 30 30 2b 38 36 37 30 ┆1); bar((m-1)*4000+8670┆
0x0760…0780 2c 32 39 38 35 30 2c 28 6d 29 2a 34 30 30 30 2b 38 36 37 30 2c 33 31 35 35 30 29 3b 0d 0a 20 20 ┆,29850,(m)*4000+8670,31550); ┆
0x0780…07a0 20 20 20 20 20 20 73 74 72 65 67 28 2e 31 2e 29 2e 78 3a 3d 28 6d 2d 31 29 2a 34 30 30 30 2b 38 ┆ streg(.1.).x:=(m-1)*4000+8┆
0x07a0…07c0 36 37 30 3b 0d 0a 20 20 20 20 20 20 20 20 73 74 72 65 67 28 2e 32 2e 29 2e 78 3a 3d 73 74 72 65 ┆670; streg(.2.).x:=stre┆
0x07c0…07e0 67 28 2e 31 2e 29 2e 78 2b 34 30 30 30 3b 0d 0a 20 20 20 20 20 20 20 20 6c 69 6e 65 74 79 70 65 ┆g(.1.).x+4000; linetype┆
0x07e0…0800 28 6d 29 3b 0d 0a 20 20 20 20 20 20 20 20 70 6f 6c 79 6c 69 6e 65 28 32 2c 73 74 72 65 67 29 3b ┆(m); polyline(2,streg);┆
0x0800…0820 (2,) 20 20 20 20 20 20 20 20 0d 0a 20 20 20 20 20 20 65 6e 64 3b 20 0d 0a 20 20 6c 69 6e 65 74 79 70 ┆ end; linetyp┆
0x0820…0840 65 28 30 29 3b 0d 0a 20 20 72 65 70 65 61 74 0d 0a 20 20 20 20 72 71 6c 6f 63 61 74 6f 72 28 32 ┆e(0); repeat rqlocator(2┆
0x0840…0860 2c 78 69 6e 2c 79 69 6e 2c 73 74 61 74 75 73 2c 74 65 72 6d 2c 78 6f 75 74 2c 79 6f 75 74 29 3b ┆,xin,yin,status,term,xout,yout);┆
0x0860…0880 0d 0a 20 20 20 20 78 69 6e 3a 3d 78 6f 75 74 3b 79 69 6e 3a 3d 79 6f 75 74 3b 0d 0a 20 20 75 6e ┆ xin:=xout;yin:=yout; un┆
0x0880…08a0 74 69 6c 20 28 28 79 6f 75 74 3e 3d 32 39 38 35 30 29 20 61 6e 64 20 28 78 6f 75 74 3e 3d 38 36 ┆til ((yout>=29850) and (xout>=86┆
0x08a0…08c0 37 30 29 29 20 6f 72 20 28 74 65 72 6d 3d 33 33 29 3b 0d 0a 20 20 63 61 73 65 20 78 6f 75 74 20 ┆70)) or (term=33); case xout ┆
0x08c0…08e0 6f 66 0d 0a 20 20 38 36 37 30 2e 2e 31 32 36 36 39 3a 62 65 67 69 6e 20 0d 0a 20 20 20 20 20 20 ┆of 8670..12669:begin ┆
0x08e0…0900 20 20 20 20 20 20 20 20 20 20 20 74 79 62 65 3a 3d 31 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ tybe:=1; ┆
0x0900…0920 20 20 20 20 65 6e 64 3b 0d 0a 20 20 31 32 36 37 30 2e 2e 31 36 36 36 39 3a 62 65 67 69 6e 20 0d ┆ end; 12670..16669:begin ┆
0x0920…0940 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 79 62 65 3a 3d 32 3b 0d 0a 20 20 20 20 ┆ tybe:=2; ┆
0x0940…0960 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0d 0a 20 20 31 36 36 37 30 2e 2e 32 30 36 36 39 3a ┆ end; 16670..20669:┆
0x0960…0980 62 65 67 69 6e 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 79 62 65 3a 3d 33 ┆begin tybe:=3┆
0x0980…09a0 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0d 0a 20 20 32 30 36 37 30 2e ┆; end; 20670.┆
0x09a0…09c0 2e 32 34 36 36 39 3a 62 65 67 69 6e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 ┆.24669:begin t┆
0x09c0…09e0 79 62 65 3a 3d 34 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 20 20 0d 0a ┆ybe:=4; end; ┆
0x09e0…0a00 20 20 32 34 36 37 30 2e 2e 32 38 36 36 39 3a 62 65 67 69 6e 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆ 24670..28669:begin ┆
0x0a00…0a20 20 20 20 20 20 20 20 74 79 62 65 3a 3d 35 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ tybe:=5; ┆
0x0a20…0a40 65 6e 64 3b 0d 0a 20 20 32 38 36 37 30 2e 2e 33 32 36 36 39 3a 62 65 67 69 6e 0d 0a 20 20 20 20 ┆end; 28670..32669:begin ┆
0x0a40…0a60 20 20 20 20 20 20 20 20 20 20 20 20 20 74 79 62 65 3a 3d 36 3b 0d 0a 20 20 20 20 20 20 20 20 20 ┆ tybe:=6; ┆
0x0a60…0a80 20 20 20 20 20 20 65 6e 64 3b 20 0d 0a 20 20 65 6e 64 3b 0d 0a 20 20 69 66 20 74 65 72 6d 3d 33 ┆ end; end; if term=3┆
0x0a80…0aa0 33 20 74 68 65 6e 20 74 79 62 65 3a 3d 31 3b 28 2a 64 65 66 61 75 6c 74 2a 29 0d 0a 20 20 78 69 ┆3 then tybe:=1;(*default*) xi┆
0x0aa0…0ac0 6e 3a 3d 78 6f 75 74 3b 79 69 6e 3a 3d 79 6f 75 74 3b 0d 0a 20 20 65 6e 64 3b 0d 0a 0d 0a 28 2a ┆n:=xout;yin:=yout; end; (*┆
0x0ac0…0ae0 20 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 ┆ ┆
0x0ae0…0b00 88 88 88 88 88 88 20 2a 29 0d 0a 0d 0a 70 72 6f 63 65 64 75 72 65 20 73 74 72 65 67 65 72 28 61 ┆ *) procedure streger(a┆
0x0b00…0b20 6b 74 75 65 6c 5f 66 61 72 76 65 3a 69 6e 74 65 67 65 72 3b 76 61 72 20 78 69 6e 2c 79 69 6e 3a ┆ktuel_farve:integer;var xin,yin:┆
0x0b20…0b40 69 6e 74 65 67 65 72 29 3b 0d 0a 0d 0a 76 61 72 0d 0a 20 20 6e 2c 74 65 6c 2c 73 74 61 74 75 73 ┆integer); var n,tel,status┆
0x0b40…0b60 2c 74 65 72 6d 2c 78 2c 0d 0a 20 20 78 6f 75 74 2c 79 6f 75 74 20 20 20 20 20 20 20 20 20 20 3a ┆,term,x, xout,yout :┆
0x0b60…0b80 20 69 6e 74 65 67 65 72 3b 0d 0a 20 20 6c 69 6e 69 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ integer; linie ┆
0x0b80…0ba0 3a 20 61 72 72 61 79 28 2e 31 2e 2e 32 2e 29 20 6f 66 20 63 6f 6f 72 3b 0d 0a 20 20 68 65 6c 6c ┆: array(.1..2.) of coor; hell┆
0x0ba0…0bc0 69 6e 69 65 20 20 20 20 20 20 20 20 20 20 20 3a 20 61 72 72 61 79 28 2e 31 2e 2e 38 30 2e 29 20 ┆inie : array(.1..80.) ┆
0x0bc0…0be0 6f 66 20 63 6f 6f 72 3b 0d 0a 20 20 66 6c 61 67 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a ┆of coor; flag :┆
0x0be0…0c00 20 62 6f 6f 6c 65 61 6e 3b 0d 0a 20 20 0d 0a 62 65 67 69 6e 0d 0a 20 20 6f 72 64 72 65 28 27 4c ┆ boolean; begin ordre('L┆
0x0c00…0c20 (3,) 49 4e 49 45 52 27 2c 27 27 29 3b 0d 0a 20 20 72 65 70 65 61 74 0d 0a 20 20 20 20 20 20 72 71 6c ┆INIER',''); repeat rql┆
0x0c20…0c40 6f 63 61 74 6f 72 28 31 2c 78 69 6e 2c 79 69 6e 2c 73 74 61 74 75 73 2c 74 65 72 6d 2c 78 6f 75 ┆ocator(1,xin,yin,status,term,xou┆
0x0c40…0c60 74 2c 79 6f 75 74 29 3b 0d 0a 20 20 20 20 20 20 79 69 6e 3a 3d 79 6f 75 74 3b 78 69 6e 3a 3d 78 ┆t,yout); yin:=yout;xin:=x┆
0x0c60…0c80 6f 75 74 3b 0d 0a 20 20 20 20 20 20 6c 69 6e 69 65 28 2e 31 2e 29 2e 78 3a 3d 78 6f 75 74 3b 6c ┆out; linie(.1.).x:=xout;l┆
0x0c80…0ca0 69 6e 69 65 28 2e 31 2e 29 2e 79 3a 3d 79 6f 75 74 3b 0d 0a 20 20 75 6e 74 69 6c 20 28 79 6f 75 ┆inie(.1.).y:=yout; until (you┆
0x0ca0…0cc0 74 3c 3d 32 39 38 35 30 29 20 6f 72 20 28 74 65 72 6d 3d 33 33 29 3b 0d 0a 20 20 69 66 20 74 65 ┆t<=29850) or (term=33); if te┆
0x0cc0…0ce0 72 6d 3c 3e 33 33 20 74 68 65 6e 20 62 65 67 69 6e 0d 0a 20 20 20 20 74 65 6c 3a 3d 31 3b 0d 0a ┆rm<>33 then begin tel:=1; ┆
0x0ce0…0d00 20 20 20 20 77 72 69 74 65 6d 6f 64 65 28 33 29 3b 0d 0a 20 20 20 20 69 6e 70 75 74 6d 6f 64 65 ┆ writemode(3); inputmode┆
0x0d00…0d20 28 31 2c 32 29 3b 0d 0a 20 20 20 20 6c 69 6e 69 65 28 2e 32 2e 29 3a 3d 6c 69 6e 69 65 28 2e 31 ┆(1,2); linie(.2.):=linie(.1┆
0x0d20…0d40 2e 29 3b 0d 0a 20 20 20 20 68 65 6c 6c 69 6e 69 65 28 2e 74 65 6c 2e 29 3a 3d 6c 69 6e 69 65 28 ┆.); hellinie(.tel.):=linie(┆
0x0d40…0d60 2e 31 2e 29 3b 0d 0a 20 20 20 20 66 6c 61 67 3a 3d 66 61 6c 73 65 3b 0d 0a 20 20 20 20 6c 69 6e ┆.1.); flag:=false; lin┆
0x0d60…0d80 65 63 6f 6c 6f 72 28 61 6b 74 75 65 6c 5f 66 61 72 76 65 29 3b 0d 0a 20 20 20 20 72 65 70 65 61 ┆ecolor(aktuel_farve); repea┆
0x0d80…0da0 74 0d 0a 20 20 20 20 20 20 72 71 6c 6f 63 61 74 6f 72 28 31 2c 78 69 6e 2c 79 69 6e 2c 73 74 61 ┆t rqlocator(1,xin,yin,sta┆
0x0da0…0dc0 74 75 73 2c 74 65 72 6d 2c 78 6f 75 74 2c 79 6f 75 74 29 3b 0d 0a 20 20 20 20 20 20 69 66 20 63 ┆tus,term,xout,yout); if c┆
0x0dc0…0de0 6f 6e 74 72 6c 28 2e 33 2e 29 3e 30 0d 0a 20 20 20 20 20 20 20 20 74 68 65 6e 0d 0a 20 20 20 20 ┆ontrl(.3.)>0 then ┆
0x0de0…0e00 20 20 20 20 20 20 62 65 67 69 6e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 70 6f 6c 79 6c 69 6e ┆ begin polylin┆
0x0e00…0e20 65 28 32 2c 6c 69 6e 69 65 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 6c 69 6e 69 65 28 2e ┆e(2,linie); linie(.┆
0x0e20…0e40 32 2e 29 2e 78 3a 3d 78 6f 75 74 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 6c 69 6e 69 65 28 ┆2.).x:=xout; linie(┆
0x0e40…0e60 2e 32 2e 29 2e 79 3a 3d 79 6f 75 74 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 70 6f 6c 79 6c ┆.2.).y:=yout; polyl┆
0x0e60…0e80 69 6e 65 28 32 2c 6c 69 6e 69 65 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 78 69 6e 3a 3d ┆ine(2,linie); xin:=┆
0x0e80…0ea0 6c 69 6e 69 65 28 2e 32 2e 29 2e 78 3b 79 69 6e 3a 3d 6c 69 6e 69 65 28 2e 32 2e 29 2e 79 3b 0d ┆linie(.2.).x;yin:=linie(.2.).y; ┆
0x0ea0…0ec0 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0d 0a 20 20 20 20 20 20 20 63 61 73 65 20 74 65 72 ┆ end; case ter┆
0x0ec0…0ee0 6d 20 6f 66 0d 0a 20 20 20 20 20 20 20 33 32 3a 0d 0a 20 20 20 20 20 20 20 20 20 62 65 67 69 6e ┆m of 32: begin┆
0x0ee0…0f00 0d 0a 20 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 6d 6f 64 65 28 31 29 3b 0d 0a 20 20 20 20 ┆ writemode(1); ┆
0x0f00…0f20 20 20 20 20 20 20 20 70 6f 6c 79 6c 69 6e 65 28 32 2c 6c 69 6e 69 65 29 3b 0d 0a 20 20 20 20 20 ┆ polyline(2,linie); ┆
0x0f20…0f40 20 20 20 20 20 20 77 72 69 74 65 6d 6f 64 65 28 33 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ writemode(3); ┆
0x0f40…0f60 6c 69 6e 69 65 28 2e 31 2e 29 3a 3d 6c 69 6e 69 65 28 2e 32 2e 29 3b 0d 0a 20 20 20 20 20 20 20 ┆linie(.1.):=linie(.2.); ┆
0x0f60…0f80 20 20 20 20 74 65 6c 3a 3d 74 65 6c 2b 31 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 68 65 6c 6c ┆ tel:=tel+1; hell┆
0x0f80…0fa0 69 6e 69 65 28 2e 74 65 6c 2e 29 3a 3d 6c 69 6e 69 65 28 2e 32 2e 29 3b 0d 0a 20 20 20 20 20 20 ┆inie(.tel.):=linie(.2.); ┆
0x0fa0…0fc0 20 20 20 20 20 69 66 20 74 65 6c 20 3e 3d 38 30 20 74 68 65 6e 20 66 6c 61 67 3a 3d 74 72 75 65 ┆ if tel >=80 then flag:=true┆
0x0fc0…0fe0 3b 0d 0a 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0d 0a 20 20 20 20 20 20 20 33 33 3a 0d 0a 20 20 ┆; end; 33: ┆
0x0fe0…1000 20 20 20 20 20 20 20 62 65 67 69 6e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 74 65 6c 3a 3d 74 65 ┆ begin tel:=te┆
0x1000…1020 (4,) 6c 2b 31 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 68 65 6c 6c 69 6e 69 65 28 2e 74 65 6c 2e 29 ┆l+1; hellinie(.tel.)┆
0x1020…1040 3a 3d 6c 69 6e 69 65 28 2e 32 2e 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 66 6c 61 67 3a 3d ┆:=linie(.2.); flag:=┆
0x1040…1060 74 72 75 65 0d 0a 20 20 20 20 20 20 20 20 20 65 6e 64 3b 20 20 20 20 20 20 20 20 20 0d 0a 20 20 ┆true end; ┆
0x1060…1080 20 20 20 20 20 65 6e 64 3b 0d 0a 20 20 20 20 75 6e 74 69 6c 20 66 6c 61 67 3d 74 72 75 65 3b 0d ┆ end; until flag=true; ┆
0x1080…10a0 0a 20 20 20 20 77 72 69 74 65 6d 6f 64 65 28 31 29 3b 20 20 0d 0a 20 20 20 20 69 6e 70 75 74 6d ┆ writemode(1); inputm┆
0x10a0…10c0 6f 64 65 28 31 2c 31 29 3b 0d 0a 20 20 20 20 70 6f 6c 79 6c 69 6e 65 28 74 65 6c 2c 68 65 6c 6c ┆ode(1,1); polyline(tel,hell┆
0x10c0…10e0 69 6e 69 65 29 3b 0d 0a 20 20 20 20 74 79 62 65 3a 3d 30 3b 0d 0a 20 20 20 20 6c 69 6e 69 65 74 ┆inie); tybe:=0; liniet┆
0x10e0…1100 79 70 65 28 78 69 6e 2c 79 69 6e 2c 74 79 62 65 29 3b 0d 0a 20 20 20 20 6c 69 6e 65 74 79 70 65 ┆ype(xin,yin,tybe); linetype┆
0x1100…1120 28 74 79 62 65 29 3b 0d 0a 20 20 20 20 6c 69 6e 65 63 6f 6c 6f 72 28 61 6b 74 75 65 6c 5f 66 61 ┆(tybe); linecolor(aktuel_fa┆
0x1120…1140 72 76 65 29 3b 0d 0a 20 20 20 20 70 6f 6c 79 6c 69 6e 65 28 74 65 6c 2c 68 65 6c 6c 69 6e 69 65 ┆rve); polyline(tel,hellinie┆
0x1140…1160 29 3b 0d 0a 20 20 65 6e 64 3b 0d 0a 20 20 6c 69 6e 65 74 79 70 65 28 30 29 3b 0d 0a 20 20 73 6b ┆); end; linetype(0); sk┆
0x1160…1180 61 65 72 6d 31 3b 0d 0a 65 6e 64 3b 0d 0a 0d 0a 28 2a 20 88 88 88 88 88 88 88 88 88 88 88 88 88 ┆aerm1; end; (* ┆
0x1180…11a0 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 20 2a 29 0d 0a 0d 0a 70 ┆ *) p┆
0x11a0…11c0 72 6f 63 65 64 75 72 65 20 70 6f 6c 79 67 6f 6e 28 61 6b 74 75 65 6c 5f 66 61 72 76 65 3a 69 6e ┆rocedure polygon(aktuel_farve:in┆
0x11c0…11e0 74 65 67 65 72 3b 76 61 72 20 78 69 6e 2c 79 69 6e 3a 69 6e 74 65 67 65 72 29 3b 0d 0a 0d 0a 76 ┆teger;var xin,yin:integer); v┆
0x11e0…1200 61 72 0d 0a 20 20 6e 2c 74 65 6c 2c 73 74 61 74 75 73 2c 74 65 72 6d 2c 0d 0a 20 20 78 6f 75 74 ┆ar n,tel,status,term, xout┆
0x1200…1220 2c 79 6f 75 74 20 20 20 20 20 20 20 20 20 20 3a 20 69 6e 74 65 67 65 72 3b 0d 0a 20 20 6c 69 6e ┆,yout : integer; lin┆
0x1220…1240 69 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 20 61 72 72 61 79 28 2e 31 2e 2e 32 2e 29 20 ┆ie : array(.1..2.) ┆
0x1240…1260 6f 66 20 63 6f 6f 72 3b 0d 0a 20 20 68 65 6c 6c 69 6e 69 65 20 20 20 20 20 20 20 20 20 20 20 3a ┆of coor; hellinie :┆
0x1260…1280 20 61 72 72 61 79 28 2e 31 2e 2e 38 30 2e 29 20 6f 66 20 63 6f 6f 72 3b 0d 0a 20 20 66 6c 61 67 ┆ array(.1..80.) of coor; flag┆
0x1280…12a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 20 62 6f 6f 6c 65 61 6e 3b 0d 0a 20 20 0d 0a 62 ┆ : boolean; b┆
0x12a0…12c0 65 67 69 6e 0d 0a 20 20 6f 72 64 72 65 28 27 50 4f 4c 59 47 4f 4e 27 2c 27 27 29 3b 0d 0a 20 20 ┆egin ordre('POLYGON',''); ┆
0x12c0…12e0 66 6c 61 67 3a 3d 66 61 6c 73 65 3b 0d 0a 20 20 6c 69 6e 65 63 6f 6c 6f 72 28 61 6b 74 75 65 6c ┆flag:=false; linecolor(aktuel┆
0x12e0…1300 5f 66 61 72 76 65 29 3b 0d 0a 20 20 72 65 70 65 61 74 0d 0a 20 20 20 20 72 71 6c 6f 63 61 74 6f ┆_farve); repeat rqlocato┆
0x1300…1320 72 28 31 2c 78 69 6e 2c 79 69 6e 2c 73 74 61 74 75 73 2c 74 65 72 6d 2c 78 6f 75 74 2c 79 6f 75 ┆r(1,xin,yin,status,term,xout,you┆
0x1320…1340 74 29 3b 0d 0a 20 20 20 20 79 69 6e 3a 3d 79 6f 75 74 3b 78 69 6e 3a 3d 78 6f 75 74 3b 0d 0a 20 ┆t); yin:=yout;xin:=xout; ┆
0x1340…1360 20 20 20 6c 69 6e 69 65 28 2e 31 2e 29 2e 78 3a 3d 78 6f 75 74 3b 6c 69 6e 69 65 28 2e 31 2e 29 ┆ linie(.1.).x:=xout;linie(.1.)┆
0x1360…1380 2e 79 3a 3d 79 6f 75 74 3b 0d 0a 20 20 75 6e 74 69 6c 20 28 79 6f 75 74 3c 3d 32 39 38 35 30 29 ┆.y:=yout; until (yout<=29850)┆
0x1380…13a0 20 6f 72 20 28 74 65 72 6d 3d 33 33 29 3b 0d 0a 20 20 69 66 20 74 65 72 6d 3c 3e 33 33 20 74 68 ┆ or (term=33); if term<>33 th┆
0x13a0…13c0 65 6e 20 62 65 67 69 6e 0d 0a 20 20 20 20 74 65 6c 3a 3d 31 3b 0d 0a 20 20 20 20 77 72 69 74 65 ┆en begin tel:=1; write┆
0x13c0…13e0 6d 6f 64 65 28 33 29 3b 0d 0a 20 20 20 20 69 6e 70 75 74 6d 6f 64 65 28 31 2c 32 29 3b 0d 0a 20 ┆mode(3); inputmode(1,2); ┆
0x13e0…1400 20 20 20 6c 69 6e 69 65 28 2e 32 2e 29 3a 3d 6c 69 6e 69 65 28 2e 31 2e 29 3b 0d 0a 20 20 20 20 ┆ linie(.2.):=linie(.1.); ┆
0x1400…1420 (5,) 68 65 6c 6c 69 6e 69 65 28 2e 74 65 6c 2e 29 3a 3d 6c 69 6e 69 65 28 2e 31 2e 29 3b 0d 0a 20 20 ┆hellinie(.tel.):=linie(.1.); ┆
0x1420…1440 20 20 66 6c 61 67 3a 3d 66 61 6c 73 65 3b 0d 0a 20 20 20 20 6c 69 6e 65 63 6f 6c 6f 72 28 61 6b ┆ flag:=false; linecolor(ak┆
0x1440…1460 74 75 65 6c 5f 66 61 72 76 65 29 3b 0d 0a 20 20 20 20 72 65 70 65 61 74 0d 0a 20 20 20 20 20 20 ┆tuel_farve); repeat ┆
0x1460…1480 72 71 6c 6f 63 61 74 6f 72 28 31 2c 78 69 6e 2c 79 69 6e 2c 73 74 61 74 75 73 2c 74 65 72 6d 2c ┆rqlocator(1,xin,yin,status,term,┆
0x1480…14a0 78 6f 75 74 2c 79 6f 75 74 29 3b 0d 0a 20 20 20 20 20 20 69 66 20 63 6f 6e 74 72 6c 28 2e 33 2e ┆xout,yout); if contrl(.3.┆
0x14a0…14c0 29 3e 30 0d 0a 20 20 20 20 20 20 20 20 74 68 65 6e 0d 0a 20 20 20 20 20 20 20 20 20 62 65 67 69 ┆)>0 then begi┆
0x14c0…14e0 6e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 70 6f 6c 79 6c 69 6e 65 28 32 2c 6c 69 6e 69 65 29 3b ┆n polyline(2,linie);┆
0x14e0…1500 0d 0a 20 20 20 20 20 20 20 20 20 20 20 6c 69 6e 69 65 28 2e 32 2e 29 2e 78 3a 3d 78 6f 75 74 3b ┆ linie(.2.).x:=xout;┆
0x1500…1520 0d 0a 20 20 20 20 20 20 20 20 20 20 20 6c 69 6e 69 65 28 2e 32 2e 29 2e 79 3a 3d 79 6f 75 74 3b ┆ linie(.2.).y:=yout;┆
0x1520…1540 0d 0a 20 20 20 20 20 20 20 20 20 20 20 70 6f 6c 79 6c 69 6e 65 28 32 2c 6c 69 6e 69 65 29 3b 0d ┆ polyline(2,linie); ┆
0x1540…1560 0a 20 20 20 20 20 20 20 20 20 20 20 78 69 6e 3a 3d 6c 69 6e 69 65 28 2e 32 2e 29 2e 78 3b 79 69 ┆ xin:=linie(.2.).x;yi┆
0x1560…1580 6e 3a 3d 6c 69 6e 69 65 28 2e 32 2e 29 2e 79 3b 0d 0a 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0d ┆n:=linie(.2.).y; end; ┆
0x1580…15a0 0a 20 20 20 20 20 20 20 63 61 73 65 20 74 65 72 6d 20 6f 66 0d 0a 20 20 20 20 20 20 20 33 32 3a ┆ case term of 32:┆
0x15a0…15c0 0d 0a 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 77 72 69 ┆ begin wri┆
0x15c0…15e0 74 65 6d 6f 64 65 28 31 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 70 6f 6c 79 6c 69 6e 65 28 ┆temode(1); polyline(┆
0x15e0…1600 32 2c 6c 69 6e 69 65 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 6d 6f 64 65 28 ┆2,linie); writemode(┆
0x1600…1620 33 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 74 65 6c 3a 3d 74 65 6c 2b 31 3b 0d 0a 20 20 20 ┆3); tel:=tel+1; ┆
0x1620…1640 20 20 20 20 20 20 20 20 68 65 6c 6c 69 6e 69 65 28 2e 74 65 6c 2e 29 3a 3d 6c 69 6e 69 65 28 2e ┆ hellinie(.tel.):=linie(.┆
0x1640…1660 32 2e 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 6c 69 6e 69 65 28 2e 31 2e 29 3a 3d 6c 69 6e ┆2.); linie(.1.):=lin┆
0x1660…1680 69 65 28 2e 32 2e 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 69 66 20 74 65 6c 20 3e 3d 37 39 ┆ie(.2.); if tel >=79┆
0x1680…16a0 20 74 68 65 6e 20 66 6c 61 67 3a 3d 74 72 75 65 3b 0d 0a 20 20 20 20 20 20 20 20 20 65 6e 64 3b ┆ then flag:=true; end;┆
0x16a0…16c0 0d 0a 20 20 20 20 20 20 20 33 33 3a 20 0d 0a 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0d 0a 20 ┆ 33: begin ┆
0x16c0…16e0 20 20 20 20 20 20 20 20 20 20 66 6c 61 67 3a 3d 74 72 75 65 3b 0d 0a 20 20 20 20 20 20 20 20 20 ┆ flag:=true; ┆
0x16e0…1700 20 20 74 65 6c 3a 3d 74 65 6c 2b 31 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 68 65 6c 6c 69 6e ┆ tel:=tel+1; hellin┆
0x1700…1720 69 65 28 2e 74 65 6c 2e 29 3a 3d 6c 69 6e 69 65 28 2e 32 2e 29 3b 0d 0a 20 20 20 20 20 20 20 20 ┆ie(.tel.):=linie(.2.); ┆
0x1720…1740 20 65 6e 64 3b 20 20 20 20 20 20 20 20 20 0d 0a 20 20 20 20 20 20 20 65 6e 64 3b 0d 0a 20 20 20 ┆ end; end; ┆
0x1740…1760 20 20 75 6e 74 69 6c 20 66 6c 61 67 3d 74 72 75 65 3b 0d 0a 20 20 20 6c 69 6e 65 63 6f 6c 6f 72 ┆ until flag=true; linecolor┆
0x1760…1780 28 61 6b 74 75 65 6c 5f 66 61 72 76 65 29 3b 0d 0a 20 20 20 77 72 69 74 65 6d 6f 64 65 28 31 29 ┆(aktuel_farve); writemode(1)┆
0x1780…17a0 3b 20 20 0d 0a 20 20 20 69 6e 70 75 74 6d 6f 64 65 28 31 2c 31 29 3b 0d 0a 20 20 20 74 65 6c 3a ┆; inputmode(1,1); tel:┆
0x17a0…17c0 3d 74 65 6c 2b 31 3b 0d 0a 20 20 20 68 65 6c 6c 69 6e 69 65 28 2e 74 65 6c 2e 29 3a 3d 68 65 6c ┆=tel+1; hellinie(.tel.):=hel┆
0x17c0…17e0 6c 69 6e 69 65 28 2e 31 2e 29 3b 0d 0a 20 20 20 66 69 6c 6c 63 6f 6c 6f 72 28 61 6b 74 75 65 6c ┆linie(.1.); fillcolor(aktuel┆
0x17e0…1800 5f 66 61 72 76 65 29 3b 0d 0a 20 20 20 70 6f 6c 79 66 69 6c 6c 28 74 65 6c 2c 68 65 6c 6c 69 6e ┆_farve); polyfill(tel,hellin┆
0x1800…1820 (6,) 69 65 29 3b 0d 0a 20 20 20 74 79 62 65 3a 3d 30 3b 73 74 79 6c 65 3a 3d 30 3b 0d 0a 20 20 20 75 ┆ie); tybe:=0;style:=0; u┆
0x1820…1840 64 66 79 6c 64 28 61 6b 74 75 65 6c 5f 66 61 72 76 65 2c 74 79 62 65 2c 73 74 79 6c 65 2c 75 64 ┆dfyld(aktuel_farve,tybe,style,ud┆
0x1840…1860 66 2c 78 69 6e 2c 79 69 6e 29 3b 0d 0a 20 20 20 66 69 6c 6c 63 6f 6c 6f 72 28 61 6b 74 75 65 6c ┆f,xin,yin); fillcolor(aktuel┆
0x1860…1880 5f 66 61 72 76 65 29 3b 0d 0a 20 20 20 66 69 6c 6c 74 79 70 65 28 74 79 62 65 29 3b 0d 0a 20 20 ┆_farve); filltype(tybe); ┆
0x1880…18a0 20 66 69 6c 6c 73 74 79 6c 65 28 73 74 79 6c 65 29 3b 0d 0a 20 20 20 70 6f 6c 79 66 69 6c 6c 28 ┆ fillstyle(style); polyfill(┆
0x18a0…18c0 74 65 6c 2c 68 65 6c 6c 69 6e 69 65 29 3b 0d 0a 20 20 20 66 69 6c 6c 74 79 70 65 28 30 29 3b 0d ┆tel,hellinie); filltype(0); ┆
0x18c0…18e0 0a 20 20 20 66 69 6c 6c 73 74 79 6c 65 28 30 29 3b 0d 0a 20 20 65 6e 64 3b 0d 0a 20 20 73 6b 61 ┆ fillstyle(0); end; ska┆
0x18e0…1900 65 72 6d 31 3b 0d 0a 65 6e 64 3b 0d 0a 0d 0a 0d 0a 28 2a 20 88 88 88 88 88 88 88 88 88 88 88 88 ┆erm1; end; (* ┆
0x1900…1920 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 20 2a 29 0d 0a 0d 0a ┆ *) ┆
[…truncated at 200 lines…]