|
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: 19584 (0x4c80)
Names: »TEGN601.PAS«
└─⟦29e35ddf2⟧ Bits:30003931/CCPM_Tegn.imd Disketter indleveret af Steffen Jensen (Piccolo/Piccoline)
└─⟦this⟧ »TEGN601.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 32 32 2e 31 30 2e 38 36 20 2a 29 0d 0a 0d 0a 0d 0a 0d 0a 54 ┆ (* den 22.10.86 *) T┆
0x0060…0080 59 50 45 0d 0a 20 20 20 20 73 74 72 65 6e 67 74 79 70 65 20 20 20 20 20 20 20 3d 20 73 74 72 69 ┆YPE strengtype = stri┆
0x0080…00a0 6e 67 28 2e 33 35 2e 29 3b 0d 0a 20 20 20 20 73 74 72 65 6e 67 31 35 20 20 20 20 20 20 20 20 20 ┆ng(.35.); streng15 ┆
0x00a0…00c0 3d 20 73 74 72 69 6e 67 28 2e 31 35 2e 29 3b 0d 0a 20 20 20 20 73 74 72 65 6e 67 32 30 20 20 20 ┆= string(.15.); streng20 ┆
0x00c0…00e0 20 20 20 20 20 20 3d 20 73 74 72 69 6e 67 28 2e 32 30 2e 29 3b 0d 0a 20 20 20 20 73 74 72 65 6e ┆ = string(.20.); stren┆
0x00e0…0100 67 38 20 20 20 20 20 20 20 20 20 20 3d 20 73 74 72 69 6e 67 28 2e 38 2e 29 3b 0d 0a 20 20 20 20 ┆g8 = string(.8.); ┆
0x0100…0120 73 74 72 65 6e 67 34 20 20 20 20 20 20 20 20 20 20 3d 20 73 74 72 69 6e 67 28 2e 34 2e 29 3b 0d ┆streng4 = string(.4.); ┆
0x0120…0140 0a 20 20 20 20 73 74 72 65 6e 67 38 30 20 20 20 20 20 20 20 20 20 3d 20 73 74 72 69 6e 67 28 2e ┆ streng80 = string(.┆
0x0140…0160 38 30 2e 29 3b 0d 0a 20 20 20 20 72 65 67 5f 74 79 70 65 20 20 20 20 20 20 20 20 20 3d 20 72 65 ┆80.); reg_type = re┆
0x0160…0180 63 6f 72 64 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 ┆cord a┆
0x0180…01a0 78 2c 62 78 2c 63 78 2c 64 78 2c 62 70 2c 73 69 2c 64 69 2c 64 73 2c 65 73 2c 66 6c 61 67 73 3a ┆x,bx,cx,dx,bp,si,di,ds,es,flags:┆
0x01a0…01c0 69 6e 74 65 67 65 72 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆integer ┆
0x01c0…01e0 65 6e 64 3b 0d 0a 20 20 20 20 66 61 72 76 65 74 79 70 65 72 20 20 20 20 20 20 20 3d 20 61 72 72 ┆end; farvetyper = arr┆
0x01e0…0200 61 79 28 2e 31 2e 2e 34 2e 29 20 6f 66 20 63 68 61 72 3b 0d 0a 76 61 72 0d 0a 20 20 20 20 63 6f ┆ay(.1..4.) of char; var co┆
0x0200…0220 6c 6f 72 73 20 20 20 20 20 20 20 20 20 20 20 3a 20 66 61 72 76 65 74 79 70 65 72 3b 0d 0a 20 20 ┆lors : farvetyper; ┆
0x0220…0240 20 20 66 61 72 76 65 66 69 6c 20 20 20 20 20 20 20 20 20 3a 20 66 69 6c 65 20 6f 66 20 63 68 61 ┆ farvefil : file of cha┆
0x0240…0260 72 3b 0d 0a 20 20 20 20 66 69 6c 6e 61 76 6e 32 20 20 20 20 20 20 20 20 20 3a 20 66 69 6c 65 20 ┆r; filnavn2 : file ┆
0x0260…0280 6f 66 20 69 6e 74 65 67 65 72 3b 20 0d 0a 20 20 20 20 73 74 72 65 6e 67 5f 69 64 20 20 20 20 20 ┆of integer; streng_id ┆
0x0280…02a0 20 20 20 3a 20 73 74 72 69 6e 67 28 2e 33 30 2e 29 3b 0d 0a 20 20 20 20 66 69 6c 6e 61 76 6e 20 ┆ : string(.30.); filnavn ┆
0x02a0…02c0 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 20 20 20 20 ┆ : file; reg ┆
0x02c0…02e0 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 74 2c 78 2c ┆ : reg_type; point,x,┆
0x02e0…0300 79 2c 0d 0a 20 20 20 20 69 6f 66 65 6a 6c 2c 6e 2c 78 69 6e 2c 79 69 6e 2c 73 74 61 74 75 73 2c ┆y, iofejl,n,xin,yin,status,┆
0x0300…0320 74 65 72 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 ┆term, xout,yout,xmin,ymin ┆
0x0320…0340 20 20 20 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 ┆ : integer; markoer, ┆
0x0340…0360 20 20 20 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 ┆ udf,tybe,farve,style, b┆
0x0360…0380 72 65 64 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 ┆redde,hoejde,ws_id,aktuel_farve ┆
0x0380…03a0 20 20 20 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 2c 70 72 ┆ : integer; printernr,pr┆
0x03a0…03c0 69 6e 74 65 72 74 79 70 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 69 6e 74 65 67 65 72 ┆intertype :integer┆
0x03c0…03e0 3b 0d 0a 20 20 20 20 6c 65 6e 67 64 65 2c 74 61 6c 2c 74 6a 65 6b 73 75 6d 2c 73 75 6d 20 20 20 ┆; lengde,tal,tjeksum,sum ┆
0x03e0…0400 20 20 20 20 20 20 3a 20 69 6e 74 65 67 65 72 3b 0d 0a 20 20 20 20 72 65 74 75 72 6d 6f 64 65 20 ┆ : integer; returmode ┆
0x0400…0420 (1,) 20 20 20 20 20 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 ┆ : byte; filnavnstren┆
0x0420…0440 67 20 20 20 20 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 ┆g : streng15; tekststr,s┆
0x0440…0460 74 72 65 6e 67 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 ┆treng1, streng2 : ┆
0x0460…0480 73 74 72 65 6e 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 ┆strengtype; streng ┆
0x0480…04a0 20 20 3a 20 73 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 ┆ : streng80; maske,holdop,┆
0x04a0…04c0 66 6c 61 67 3a 20 62 6f 6f 6c 65 61 6e 3b 0d 0a 20 20 20 20 73 74 61 72 74 64 69 73 6b 2c 64 69 ┆flag: boolean; startdisk,di┆
0x04c0…04e0 73 6b 64 72 65 76 2c 74 61 73 74 2c 63 68 20 3a 20 63 68 61 72 3b 0d 0a 20 20 20 20 70 69 78 20 ┆skdrev,tast,ch : char; pix ┆
0x04e0…0500 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 20 61 72 72 61 79 28 2e 30 2e 2e 31 35 38 33 39 2e 29 ┆ : array(.0..15839.)┆
0x0500…0520 20 6f 66 20 69 6e 74 65 67 65 72 20 61 74 20 24 66 30 30 30 3a 30 30 30 30 3b 0d 0a 20 20 20 20 ┆ of integer at $f000:0000; ┆
0x0520…0540 74 65 6d 70 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 20 61 72 72 61 79 28 2e 30 2e 2e 31 35 38 ┆temp : array(.0..158┆
0x0540…0560 33 39 2e 29 20 6f 66 20 69 6e 74 65 67 65 72 3b 0d 0a 20 20 20 20 71 2c 69 2c 6d 2c 70 20 20 20 ┆39.) of integer; q,i,m,p ┆
0x0560…0580 20 20 20 20 20 20 20 3a 20 69 6e 74 65 67 65 72 3b 0d 0a 0d 0a 20 20 20 28 2a 24 49 20 74 65 67 ┆ : integer; (*$I teg┆
0x0580…05a0 6e 36 30 35 2a 29 0d 0a 20 20 20 28 2a 24 49 20 70 72 69 6e 74 65 72 2a 29 0d 0a 20 20 20 28 2a ┆n605*) (*$I printer*) (*┆
0x05a0…05c0 24 49 20 74 65 67 6e 36 30 32 2a 29 0d 0a 20 20 20 28 2a 24 49 20 74 65 67 6e 36 30 33 2a 29 0d ┆$I tegn602*) (*$I tegn603*) ┆
0x05c0…05e0 0a 20 20 20 28 2a 24 49 20 74 65 67 6e 36 30 34 2a 29 0d 0a 20 20 20 28 2a 24 49 20 66 6c 79 74 ┆ (*$I tegn604*) (*$I flyt┆
0x05e0…0600 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 88 88 88 88 ┆60*) (* ┆
0x0600…0620 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 72 65 20 6c ┆ *) procedure l┆
0x0620…0640 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 74 65 67 65 ┆inietype(var xin,yin,tybe:intege┆
0x0640…0660 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 20 20 20 20 ┆r); var n,m,tel ┆
0x0660…0680 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 20 20 20 20 ┆ : integer; streg ┆
0x0680…06a0 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 0d 0a 0d 0a ┆ : array(.1..2.) of coor; ┆
0x06a0…06c0 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 6c 69 6e 65 ┆begin slethalvstatus; line┆
0x06c0…06e0 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 6b 74 75 65 ┆color(aktuel_farve); if aktue┆
0x06e0…0700 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 0d 0a 20 20 ┆l_farve=0 then linecolor(1); ┆
0x0700…0720 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 2e 29 2e 79 ┆streg(.1.).y:=30650;streg(.2.).y┆
0x0720…0740 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 6f 20 36 20 ┆:=30650; for m:=1 to 6 ┆
0x0740…0760 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 6c 63 6f 6c ┆do begin fillcol┆
0x0760…0780 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 66 20 61 6b ┆or(aktuel_farve); if ak┆
0x0780…07a0 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 31 29 3b 0d ┆tuel_farve=0 then fillcolor(1); ┆
0x07a0…07c0 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 2c 32 39 38 ┆ bar((m-1)*4000+8670,298┆
0x07c0…07e0 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 20 20 20 20 ┆50,(m)*4000+8670,31550); ┆
0x07e0…0800 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 36 37 30 3b ┆ streg(.1.).x:=(m-1)*4000+8670;┆
0x0800…0820 (2,) 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 67 28 2e 31 ┆ streg(.2.).x:=streg(.1┆
0x0820…0840 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 28 6d 29 3b ┆.).x+4000; linetype(m);┆
0x0840…0860 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 20 20 20 20 ┆ polyline(2,streg); ┆
0x0860…0880 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 65 28 30 29 ┆ end; linetype(0)┆
0x0880…08a0 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 2c 78 69 6e ┆; repeat rqlocator(2,xin┆
0x08a0…08c0 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 0d 0a 20 20 ┆,yin,status,term,xout,yout); ┆
0x08c0…08e0 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 74 69 6c 20 ┆ xin:=xout;yin:=yout; until ┆
0x08e0…0900 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 37 30 29 29 ┆((yout>=29850) and (xout>=8670))┆
0x0900…0920 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 6f 66 0d 0a ┆ or (term=33); case xout of ┆
0x0920…0940 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 20 20 20 20 ┆ 8670..12669:begin ┆
0x0940…0960 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 20 20 20 20 ┆ tybe:=1; ┆
0x0960…0980 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 0a 20 20 20 ┆end; 12670..16669:begin ┆
0x0980…09a0 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 20 20 20 20 ┆ tybe:=2; ┆
0x09a0…09c0 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 62 65 67 69 ┆ end; 16670..20669:begi┆
0x09c0…09e0 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 3b 0d 0a 20 ┆n tybe:=3; ┆
0x09e0…0a00 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 2e 32 34 36 ┆ end; 20670..246┆
0x0a00…0a20 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 79 62 65 3a ┆69:begin tybe:┆
0x0a20…0a40 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 20 20 32 34 ┆=4; end; 24┆
0x0a40…0a60 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 20 20 20 20 ┆670..28669:begin ┆
0x0a60…0a80 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 65 6e 64 3b ┆ tybe:=5; end;┆
0x0a80…0aa0 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 20 20 20 20 ┆ 28670..32669:begin ┆
0x0aa0…0ac0 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 20 20 20 20 ┆ tybe:=6; ┆
0x0ac0…0ae0 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 33 20 74 68 ┆ end; end; if term=33 th┆
0x0ae0…0b00 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 6e 3a 3d 78 ┆en tybe:=1;(*default*) xin:=x┆
0x0b00…0b20 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 20 88 88 88 ┆out;yin:=yout; end; (* ┆
0x0b20…0b40 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 88 ┆ ┆
0x0b40…0b60 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 6b 74 75 65 ┆ *) procedure streger(aktue┆
0x0b60…0b80 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 69 6e 74 65 ┆l_farve:integer;var xin,yin:inte┆
0x0b80…0ba0 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 2c 74 65 72 ┆ger); var n,tel,status,ter┆
0x0ba0…0bc0 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 20 69 6e 74 ┆m,x, xout,yout : int┆
0x0bc0…0be0 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 3a 20 61 72 ┆eger; linie : ar┆
0x0be0…0c00 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 69 6e 69 65 ┆ray(.1..2.) of coor; hellinie┆
0x0c00…0c20 (3,) 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 6f 66 20 63 ┆ : array(.1..80.) of c┆
0x0c20…0c40 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 20 62 6f 6f ┆oor; flag : boo┆
0x0c40…0c60 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 49 4e 49 45 ┆lean; begin ordre('LINIE┆
0x0c60…0c80 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 6f 63 61 74 ┆R',''); repeat rqlocat┆
0x0c80…0ca0 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 74 2c 79 6f ┆or(1,xin,yin,status,term,xout,yo┆
0x0ca0…0cc0 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 6f 75 74 3b ┆ut); yin:=yout;xin:=xout;┆
0x0cc0…0ce0 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 69 6e 69 65 ┆ linie(.1.).x:=xout;linie┆
0x0ce0…0d00 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 74 3c 3d 32 ┆(.1.).y:=yout; until (yout<=2┆
0x0d00…0d20 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 72 6d 3c 3e ┆9850) or (term=33); if term<>┆
0x0d20…0d40 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 20 20 20 20 ┆33 then begin tel:=1; ┆
0x0d40…0d60 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 28 31 2c 32 ┆writemode(3); inputmode(1,2┆
0x0d60…0d80 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 2e 29 3b 0d ┆); linie(.2.):=linie(.1.); ┆
0x0d80…0da0 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 2e 31 2e 29 ┆ hellinie(.tel.):=linie(.1.)┆
0x0da0…0dc0 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 65 63 6f 6c ┆; flag:=false; linecol┆
0x0dc0…0de0 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 74 0d 0a 20 ┆or(aktuel_farve); repeat ┆
0x0de0…0e00 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 74 75 73 2c ┆ rqlocator(1,xin,yin,status,┆
0x0e00…0e20 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 6f 6e 74 72 ┆term,xout,yout); if contr┆
0x0e20…0e40 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 20 20 20 20 ┆l(.3.)>0 then ┆
0x0e40…0e60 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 65 28 32 2c ┆ begin polyline(2,┆
0x0e60…0e80 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 32 2e 29 2e ┆linie); linie(.2.).┆
0x0e80…0ea0 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 2e 32 2e 29 ┆x:=xout; linie(.2.)┆
0x0ea0…0ec0 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 69 6e 65 28 ┆.y:=yout; polyline(┆
0x0ec0…0ee0 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 6c 69 6e 69 ┆2,linie); xin:=lini┆
0x0ee0…0f00 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 0a 20 20 20 ┆e(.2.).x;yin:=linie(.2.).y; ┆
0x0f00…0f20 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 6d 20 6f 66 ┆ end; case term of┆
0x0f20…0f40 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 0d 0a 20 20 ┆ 32: begin ┆
0x0f40…0f60 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 20 20 20 20 ┆ writemode(1); ┆
0x0f60…0f80 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 20 20 20 20 ┆ polyline(2,linie); ┆
0x0f80…0fa0 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 6c 69 6e 69 ┆ writemode(3); lini┆
0x0fa0…0fc0 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 20 20 20 20 ┆e(.1.):=linie(.2.); ┆
0x0fc0…0fe0 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 69 65 ┆tel:=tel+1; hellinie┆
0x0fe0…1000 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 20 20 ┆(.tel.):=linie(.2.); ┆
0x1000…1020 (4,) 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 3b 0d 0a 20 ┆ if tel >=80 then flag:=true; ┆
0x1020…1040 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 20 20 20 20 ┆ end; 33: ┆
0x1040…1060 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 6c 2b 31 3b ┆ begin tel:=tel+1;┆
0x1060…1080 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 3a 3d 6c 69 ┆ hellinie(.tel.):=li┆
0x1080…10a0 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 74 72 75 65 ┆nie(.2.); flag:=true┆
0x10a0…10c0 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 20 20 20 20 ┆ end; ┆
0x10c0…10e0 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 0a 20 20 20 ┆ end; until flag=true; ┆
0x10e0…1100 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 6f 64 65 28 ┆ writemode(1); inputmode(┆
0x1100…1120 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 69 6e 69 65 ┆1,1); polyline(tel,hellinie┆
0x1120…1140 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 79 70 65 28 ┆); tybe:=0; linietype(┆
0x1140…1160 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 28 74 79 62 ┆xin,yin,tybe); linetype(tyb┆
0x1160…1180 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 72 76 65 29 ┆e); linecolor(aktuel_farve)┆
0x1180…11a0 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 29 3b 0d 0a ┆; polyline(tel,hellinie); ┆
0x11a0…11c0 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 61 65 72 6d ┆ end; linetype(0); skaerm┆
0x11c0…11e0 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 88 88 88 88 ┆1; end; (* ┆
0x11e0…1200 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 72 6f 63 65 ┆ *) proce┆
0x1200…1220 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 74 65 67 65 ┆dure polygon(aktuel_farve:intege┆
0x1220…1240 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 61 72 0d 0a ┆r;var xin,yin:integer); var ┆
0x1240…1260 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 2c 79 6f 75 ┆ n,tel,status,term, xout,you┆
0x1260…1280 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 69 65 20 20 ┆t : integer; linie ┆
0x1280…12a0 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 6f 66 20 63 ┆ : array(.1..2.) of c┆
0x12a0…12c0 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 20 61 72 72 ┆oor; hellinie : arr┆
0x12c0…12e0 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 20 20 20 20 ┆ay(.1..80.) of coor; flag ┆
0x12e0…1300 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 65 67 69 6e ┆ : boolean; begin┆
0x1300…1320 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 66 6c 61 67 ┆ ordre('POLYGON',''); flag┆
0x1320…1340 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 5f 66 61 72 ┆:=false; linecolor(aktuel_far┆
0x1340…1360 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 72 28 31 2c ┆ve); repeat rqlocator(1,┆
0x1360…1380 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 0d ┆xin,yin,status,term,xout,yout); ┆
0x1380…13a0 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 20 20 20 6c ┆ yin:=yout;xin:=xout; l┆
0x13a0…13c0 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 2e 79 3a 3d ┆inie(.1.).x:=xout;linie(.1.).y:=┆
0x13c0…13e0 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 20 6f 72 20 ┆yout; until (yout<=29850) or ┆
0x13e0…1400 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 65 6e 20 62 ┆(term=33); if term<>33 then b┆
0x1400…1420 (5,) 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 6d 6f 64 65 ┆egin tel:=1; writemode┆
0x1420…1440 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 20 20 20 6c ┆(3); inputmode(1,2); l┆
0x1440…1460 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 68 65 6c 6c ┆inie(.2.):=linie(.1.); hell┆
0x1460…1480 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 20 20 66 6c ┆inie(.tel.):=linie(.1.); fl┆
0x1480…14a0 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 74 75 65 6c ┆ag:=false; linecolor(aktuel┆
0x14a0…14c0 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 72 71 6c 6f ┆_farve); repeat rqlo┆
0x14c0…14e0 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 74 ┆cator(1,xin,yin,status,term,xout┆
0x14e0…1500 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 29 3e 30 0d ┆,yout); if contrl(.3.)>0 ┆
0x1500…1520 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 6e 0d 0a 20 ┆ then begin ┆
0x1520…1540 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 0a 20 20 ┆ polyline(2,linie); ┆
0x1540…1560 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 0d 0a 20 20 ┆ linie(.2.).x:=xout; ┆
0x1560…1580 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 0d 0a 20 20 ┆ linie(.2.).y:=yout; ┆
0x1580…15a0 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 0a 20 20 20 ┆ polyline(2,linie); ┆
0x15a0…15c0 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 6e 3a 3d 6c ┆ xin:=linie(.2.).x;yin:=l┆
0x15c0…15e0 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 0a 20 20 20 ┆inie(.2.).y; end; ┆
0x15e0…1600 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 0d 0a 20 20 ┆ case term of 32: ┆
0x1600…1620 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 74 65 6d 6f ┆ begin writemo┆
0x1620…1640 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 32 2c 6c 69 ┆de(1); polyline(2,li┆
0x1640…1660 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 33 29 3b 0d ┆nie); writemode(3); ┆
0x1660…1680 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 20 20 20 20 ┆ tel:=tel+1; ┆
0x1680…16a0 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 32 2e 29 3b ┆ hellinie(.tel.):=linie(.2.);┆
0x16a0…16c0 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 69 65 28 2e ┆ linie(.1.):=linie(.┆
0x16c0…16e0 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 20 74 68 65 ┆2.); if tel >=79 the┆
0x16e0…1700 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 0d 0a 20 20 ┆n flag:=true; end; ┆
0x1700…1720 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 20 20 20 20 ┆ 33: begin ┆
0x1720…1740 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 20 20 74 65 ┆ flag:=true; te┆
0x1740…1760 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 69 65 28 2e ┆l:=tel+1; hellinie(.┆
0x1760…1780 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 20 65 6e 64 ┆tel.):=linie(.2.); end┆
0x1780…17a0 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 20 20 75 6e ┆; end; un┆
0x17a0…17c0 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 28 61 6b 74 ┆til flag=true; linecolor(akt┆
0x17c0…17e0 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 3b 20 20 0d ┆uel_farve); writemode(1); ┆
0x17e0…1800 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 3d 74 65 6c ┆ inputmode(1,1); tel:=tel┆
0x1800…1820 (6,) 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 6c 69 6e 69 ┆+1; hellinie(.tel.):=hellini┆
0x1820…1840 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 5f 66 61 72 ┆e(.1.); fillcolor(aktuel_far┆
0x1840…1860 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 69 65 29 3b ┆ve); polyfill(tel,hellinie);┆
0x1860…1880 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 64 66 79 6c ┆ tybe:=0;style:=0; udfyl┆
0x1880…18a0 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 66 2c 78 69 ┆d(aktuel_farve,tybe,style,udf,xi┆
0x18a0…18c0 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 5f 66 61 72 ┆n,yin); fillcolor(aktuel_far┆
0x18c0…18e0 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 20 66 69 6c ┆ve); filltype(tybe); fil┆
0x18e0…1900 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 74 65 6c 2c ┆lstyle(style); polyfill(tel,┆
0x1900…1920 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 0a 20 20 20 ┆hellinie); filltype(0); ┆
[…truncated at 200 lines…]