|
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: »TEGNPIC.PAS«
└─⟦29e35ddf2⟧ Bits:30003931/CCPM_Tegn.imd Disketter indleveret af Steffen Jensen (Piccolo/Piccoline) └─⟦this⟧ »TEGNPIC.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 34 2e 31 31 2e 38 36 20 2a 29 0d 0a 0d 0a 0d 0a 0d 0a 54 ┆ (* den 04.11.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 65 66 ┆ay(.1..4.) of char; var ef┆ 0x0200…0220 74 65 72 6e 61 76 6e 5f 64 65 6c 2c 65 66 74 65 72 6e 61 76 6e 5f 68 65 6c 20 20 20 20 20 20 20 ┆ternavn_del,efternavn_hel ┆ 0x0220…0240 20 20 3a 20 73 74 72 65 6e 67 34 3b 0d 0a 20 20 20 20 79 6b 6f 6f 72 64 69 6e 61 74 5f 6c 69 6e ┆ : streng4; ykoordinat_lin┆ 0x0240…0260 69 65 2c 78 6b 6f 6f 72 64 69 6e 61 74 5f 62 6c 6f 6b 2c 76 69 64 65 6f 6c 69 6e 69 65 72 2c 62 ┆ie,xkoordinat_blok,videolinier,b┆ 0x0260…0280 6c 6f 6b 6b 65 20 3a 20 69 6e 74 65 67 65 72 3b 0d 0a 20 20 20 20 63 6f 6c 6f 72 73 20 20 20 20 ┆lokke : integer; colors ┆ 0x0280…02a0 20 20 20 20 20 20 20 3a 20 66 61 72 76 65 74 79 70 65 72 3b 0d 0a 20 20 20 20 66 61 72 76 65 66 ┆ : farvetyper; farvef┆ 0x02a0…02c0 69 6c 20 20 20 20 20 20 20 20 20 3a 20 66 69 6c 65 20 6f 66 20 63 68 61 72 3b 0d 0a 20 20 20 20 ┆il : file of char; ┆ 0x02c0…02e0 66 69 6c 6e 61 76 6e 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 20 66 69 6c 65 3b 0d 0a 20 20 20 ┆filnavn : file; ┆ 0x02e0…0300 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 6f 66 20 69 6e 74 65 ┆ filnavn2 : file of inte┆ 0x0300…0320 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 20 20 20 3a 20 73 74 ┆ger; streng_id : st┆ 0x0320…0340 72 69 6e 67 28 2e 33 30 2e 29 3b 0d 0a 20 20 20 20 72 65 67 20 20 20 20 20 20 20 20 20 20 20 20 ┆ring(.30.); reg ┆ 0x0340…0360 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 79 2c 0d 0a 20 ┆ : reg_type; point,x,y, ┆ 0x0360…0380 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 74 65 72 6d 2c ┆ iofejl,n,xin,yin,status,term,┆ 0x0380…03a0 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 20 20 ┆ xout,yout,xmin,ymin ┆ 0x03a0…03c0 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 20 75 ┆ : integer; markoer, u┆ 0x03c0…03e0 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 64 65 ┆df,tybe,farve,style, bredde┆ 0x03e0…0400 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 20 3a ┆,hoejde,ws_id,aktuel_farve :┆ 0x0400…0420 (1,) 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 69 6e 74 65 72 ┆ integer; printernr,printer┆ 0x0420…0440 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 3b 0d 0a 20 20 ┆type :integer; ┆ 0x0440…0460 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 20 20 20 20 20 ┆ lengde,tal,tjeksum,sum ┆ 0x0460…0480 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 20 20 20 20 20 ┆ : integer; returmode ┆ 0x0480…04a0 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 ┆ 0x04a0…04c0 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┆ 0x04c0…04e0 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┆ 0x04e0…0500 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┆ 0x0500…0520 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:┆ 0x0520…0540 20 62 6f 6f 6c 65 61 6e 3b 0d 0a 20 20 20 20 73 74 61 72 74 64 72 65 76 2c 64 69 73 6b 64 72 65 ┆ boolean; startdrev,diskdre┆ 0x0540…0560 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 20 20 20 20 20 ┆v,tast,ch : char; pix ┆ 0x0560…0580 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 20 6f 66 20 69 ┆ : array(.0..15839.) of i┆ 0x0580…05a0 6e 74 65 67 65 72 20 61 74 20 24 64 30 30 30 3a 30 30 30 30 3b 0d 0a 20 20 20 20 74 65 6d 70 20 ┆nteger at $d000:0000; temp ┆ 0x05a0…05c0 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 20 ┆ : array(.0..15839.) ┆ 0x05c0…05e0 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 20 20 20 20 20 ┆of integer; q,i,m,p ┆ 0x05e0…0600 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 6e 30 30 35 2a ┆ : integer; (*$I tegn005*┆ 0x0600…0620 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 24 49 20 74 65 ┆) (*$I printer*) (*$I te┆ 0x0620…0640 67 6e 30 30 32 2a 29 0d 0a 20 20 20 28 2a 24 49 20 74 65 67 6e 30 30 33 2a 29 0d 0a 20 20 20 28 ┆gn002*) (*$I tegn003*) (┆ 0x0640…0660 2a 24 49 20 74 65 67 6e 30 30 34 2a 29 0d 0a 20 20 20 28 2a 24 49 20 66 6c 79 74 2a 29 0d 0a 28 ┆*$I tegn004*) (*$I flyt*) (┆ 0x0660…0680 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 88 88 88 88 88 88 88 ┆* ┆ 0x0680…06a0 88 88 88 88 88 88 88 20 2a 29 0d 0a 70 72 6f 63 65 64 75 72 65 20 69 6e 69 74 3b 0d 0a 0d 0a 62 ┆ *) procedure init; b┆ 0x06a0…06c0 65 67 69 6e 0d 0a 20 20 69 66 20 73 6b 61 65 72 6d 32 32 6b 68 7a 20 74 68 65 6e 20 62 65 67 69 ┆egin if skaerm22khz then begi┆ 0x06c0…06e0 6e 0d 0a 20 20 28 2a 70 61 72 74 6e 65 72 73 6b 61 65 72 6d 2a 29 0d 0a 20 20 20 20 78 6b 6f 6f ┆n (*partnerskaerm*) xkoo┆ 0x06e0…0700 72 64 69 6e 61 74 5f 62 6c 6f 6b 3a 3d 37 32 38 3b 0d 0a 20 20 20 20 79 6b 6f 6f 72 64 69 6e 61 ┆rdinat_blok:=728; ykoordina┆ 0x0700…0720 74 5f 6c 69 6e 69 65 3a 3d 39 33 3b 0d 0a 20 20 20 20 76 69 64 65 6f 6c 69 6e 69 65 72 3a 3d 33 ┆t_linie:=93; videolinier:=3┆ 0x0720…0740 35 32 3b 0d 0a 20 20 20 20 62 6c 6f 6b 6b 65 3a 3d 34 35 3b 0d 0a 20 20 20 20 65 66 74 65 72 6e ┆52; blokke:=45; eftern┆ 0x0740…0760 61 76 6e 5f 64 65 6c 3a 3d 27 2e 44 36 30 27 3b 0d 0a 20 20 20 20 65 66 74 65 72 6e 61 76 6e 5f ┆avn_del:='.D60'; efternavn_┆ 0x0760…0780 68 65 6c 3a 3d 27 2e 50 36 30 27 3b 0d 0a 20 20 65 6e 64 20 65 6c 73 65 20 62 65 67 69 6e 0d 0a ┆hel:='.P60'; end else begin ┆ 0x0780…07a0 20 20 28 2a 70 69 63 63 6f 6c 69 6e 65 73 6b 61 65 72 6d 2a 29 0d 0a 20 20 20 20 78 6b 6f 6f 72 ┆ (*piccolineskaerm*) xkoor┆ 0x07a0…07c0 64 69 6e 61 74 5f 62 6c 6f 6b 3a 3d 39 33 36 3b 0d 0a 20 20 20 20 79 6b 6f 6f 72 64 69 6e 61 74 ┆dinat_blok:=936; ykoordinat┆ 0x07c0…07e0 5f 6c 69 6e 69 65 3a 3d 31 32 38 3b 0d 0a 20 20 20 20 76 69 64 65 6f 6c 69 6e 69 65 72 3a 3d 32 ┆_linie:=128; videolinier:=2┆ 0x07e0…0800 35 36 3b 0d 0a 20 20 20 20 62 6c 6f 6b 6b 65 3a 3d 33 35 3b 0d 0a 20 20 20 20 65 66 74 65 72 6e ┆56; blokke:=35; eftern┆ 0x0800…0820 (2,) 61 76 6e 5f 64 65 6c 3a 3d 27 2e 44 35 30 27 3b 0d 0a 20 20 20 20 65 66 74 65 72 6e 61 76 6e 5f ┆avn_del:='.D50'; efternavn_┆ 0x0820…0840 68 65 6c 3a 3d 27 2e 50 35 30 27 3b 0d 0a 20 20 65 6e 64 3b 0d 0a 65 6e 64 3b 0d 0a 0d 0a 70 72 ┆hel:='.P50'; end; end; pr┆ 0x0840…0860 6f 63 65 64 75 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 ┆ocedure linietype(var xin,yin,ty┆ 0x0860…0880 62 65 3a 69 6e 74 65 67 65 72 29 3b 0d 0a 0d 0a 0d 0a 76 61 72 0d 0a 20 20 6d 2c 74 65 6c 20 20 ┆be:integer); var m,tel ┆ 0x0880…08a0 20 20 20 20 20 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 ┆ : integer; streg ┆ 0x08a0…08c0 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 6f 66 20 ┆ : array(.1..2.) of ┆ 0x08c0…08e0 63 6f 6f 72 3b 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 ┆coor; begin slethalvstatus┆ 0x08e0…0900 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 76 65 29 3b 0d 0a 20 ┆; linecolor(aktuel_farve); ┆ 0x0900…0920 20 69 66 20 61 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 ┆ if aktuel_farve=0 then linecolo┆ 0x0920…0940 72 28 31 29 3b 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 ┆r(1); streg(.1.).y:=30650;str┆ 0x0940…0960 65 67 28 2e 32 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 ┆eg(.2.).y:=30650; for m┆ 0x0960…0980 3a 3d 31 20 74 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 ┆:=1 to 6 do begin ┆ 0x0980…09a0 20 20 66 69 6c 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 ┆ fillcolor(aktuel_farve); ┆ 0x09a0…09c0 20 20 20 20 69 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 ┆ if aktuel_farve=0 then fillc┆ 0x09c0…09e0 6f 6c 6f 72 28 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 ┆olor(1); bar((m-1)*4000┆ 0x09e0…0a00 2b 38 36 37 30 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 ┆+8670,29850,(m)*4000+8670,31550)┆ 0x0a00…0a20 3b 0d 0a 20 20 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 ┆; streg(.1.).x:=(m-1)*4┆ 0x0a20…0a40 30 30 30 2b 38 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 ┆000+8670; streg(.2.).x:┆ 0x0a40…0a60 3d 73 74 72 65 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 ┆=streg(.1.).x+4000; lin┆ 0x0a60…0a80 65 74 79 70 65 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 ┆etype(m); polyline(2,st┆ 0x0a80…0aa0 72 65 67 29 3b 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 ┆reg); end; li┆ 0x0aa0…0ac0 6e 65 74 79 70 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 ┆netype(0); repeat rqloca┆ 0x0ac0…0ae0 74 6f 72 28 32 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 ┆tor(2,xin,yin,status,term,xout,y┆ 0x0ae0…0b00 6f 75 74 29 3b 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 ┆out); xin:=xout;yin:=yout; ┆ 0x0b00…0b20 0a 20 20 75 6e 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 ┆ until ((yout>=29850) and (xou┆ 0x0b20…0b40 74 3e 3d 38 36 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 ┆t>=8670)) or (term=33); case ┆ 0x0b40…0b60 78 6f 75 74 20 6f 66 0d 0a 20 20 20 38 36 37 30 2e 2e 31 32 36 36 39 3a 20 74 79 62 65 3a 3d 31 ┆xout of 8670..12669: tybe:=1┆ 0x0b60…0b80 3b 0d 0a 20 20 31 32 36 37 30 2e 2e 31 36 36 36 39 3a 74 79 62 65 3a 3d 32 3b 0d 0a 20 20 31 36 ┆; 12670..16669:tybe:=2; 16┆ 0x0b80…0ba0 36 37 30 2e 2e 32 30 36 36 39 3a 74 79 62 65 3a 3d 33 3b 0d 0a 20 20 32 30 36 37 30 2e 2e 32 34 ┆670..20669:tybe:=3; 20670..24┆ 0x0ba0…0bc0 36 36 39 3a 74 79 62 65 3a 3d 34 3b 0d 0a 20 20 32 34 36 37 30 2e 2e 32 38 36 36 39 3a 74 79 62 ┆669:tybe:=4; 24670..28669:tyb┆ 0x0bc0…0be0 65 3a 3d 35 3b 0d 0a 20 20 32 38 36 37 30 2e 2e 33 32 36 36 39 3a 74 79 62 65 3a 3d 36 3b 0d 0a ┆e:=5; 28670..32669:tybe:=6; ┆ 0x0be0…0c00 20 20 65 6e 64 20 20 28 2a 20 63 61 73 65 20 2a 29 3b 0d 0a 20 20 69 66 20 74 65 72 6d 3d 33 33 ┆ end (* case *); if term=33┆ 0x0c00…0c20 (3,) 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 6e ┆ then tybe:=1;(*default*) xin┆ 0x0c20…0c40 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 20 ┆:=xout;yin:=yout; end; (* ┆ 0x0c40…0c60 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 ┆ ┆ 0x0c60…0c80 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 6b ┆ *) procedure streger(ak┆ 0x0c80…0ca0 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 69 ┆tuel_farve:integer;var xin,yin:i┆ 0x0ca0…0cc0 6e 74 65 67 65 72 29 3b 0d 0a 0d 0a 76 61 72 0d 0a 20 20 74 65 6c 2c 73 74 61 74 75 73 2c 74 65 ┆nteger); var tel,status,te┆ 0x0cc0…0ce0 72 6d 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 65 ┆rm, xout,yout : inte┆ 0x0ce0…0d00 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 72 ┆ger; linie : arr┆ 0x0d00…0d20 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 20 ┆ay(.1..2.) of coor; hellinie ┆ 0x0d20…0d40 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 6f ┆ : array(.1..80.) of co┆ 0x0d40…0d60 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 6c ┆or; flag : bool┆ 0x0d60…0d80 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 52 ┆ean; begin ordre('LINIER┆ 0x0d80…0da0 27 2c 27 27 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 ┆',''); repeat rqlocator(┆ 0x0da0…0dc0 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 74 29 ┆1,xin,yin,status,term,xout,yout)┆ 0x0dc0…0de0 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 20 20 ┆; yin:=yout;xin:=xout; ┆ 0x0de0…0e00 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 2e 79 ┆ linie(.1.).x:=xout;linie(.1.).y┆ 0x0e00…0e20 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 20 6f ┆:=yout; until (yout<=29850) o┆ 0x0e20…0e40 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 65 6e ┆r (term=33); if term<>33 then┆ 0x0e40…0e60 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 6d 6f ┆ begin tel:=1; writemo┆ 0x0e60…0e80 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 20 20 ┆de(3); inputmode(1,2); ┆ 0x0e80…0ea0 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 68 65 ┆ linie(.2.):=linie(.1.); he┆ 0x0ea0…0ec0 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 20 20 ┆llinie(.tel.):=linie(.1.); ┆ 0x0ec0…0ee0 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 74 75 ┆flag:=false; linecolor(aktu┆ 0x0ee0…0f00 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 72 71 ┆el_farve); repeat rq┆ 0x0f00…0f20 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 78 6f ┆locator(1,xin,yin,status,term,xo┆ 0x0f20…0f40 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 29 3e ┆ut,yout); if contrl(.3.)>┆ 0x0f40…0f60 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 20 62 65 67 69 6e ┆0 then begin┆ 0x0f60…0f80 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 6c 69 6e 69 65 29 3b ┆ polyline(2,linie);┆ 0x0f80…0fa0 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 78 3a 3d 78 6f 75 74 ┆ linie(.2.).x:=xout┆ 0x0fa0…0fc0 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 79 3a 3d 79 6f 75 ┆; linie(.2.).y:=you┆ 0x0fc0…0fe0 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 32 2c 6c 69 6e 69 65 ┆t; polyline(2,linie┆ 0x0fe0…1000 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 65 28 2e 32 2e 29 2e ┆); xin:=linie(.2.).┆ 0x1000…1020 (4,) 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 20 20 20 20 20 20 20 ┆x;yin:=linie(.2.).y; ┆ 0x1020…1040 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 0d 0a 20 20 20 20 20 ┆end; case term of ┆ 0x1040…1060 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 20 20 20 20 20 20 20 ┆ 32: begin ┆ 0x1060…1080 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 20 20 20 70 6f 6c 79 ┆ writemode(1); poly┆ 0x1080…10a0 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 20 20 77 72 69 74 65 ┆line(2,linie); write┆ 0x10a0…10c0 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 65 28 2e 31 2e 29 3a ┆mode(3); linie(.1.):┆ 0x10c0…10e0 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 74 65 6c 3a 3d 74 65 ┆=linie(.2.); tel:=te┆ 0x10e0…1100 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.)┆ 0x1100…1120 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 69 66 20 74 65 6c ┆:=linie(.2.); if tel┆ 0x1120…1140 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 20 20 20 20 20 20 20 ┆ >=80 then flag:=true; ┆ 0x1140…1160 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 20 20 20 62 65 67 69 ┆ end; 33: begi┆ 0x1160…1180 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 0d 0a 20 20 20 20 20 ┆n tel:=tel+1; ┆ 0x1180…11a0 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 32 2e ┆ hellinie(.tel.):=linie(.2.┆ 0x11a0…11c0 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 0d 0a 20 20 20 20 20 ┆); flag:=true ┆ 0x11c0…11e0 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 20 65 6e 64 3b 0d 0a ┆ end; end; ┆ 0x11e0…1200 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 20 77 72 69 74 65 6d ┆ until flag=true; writem┆ 0x1200…1220 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 31 2c 31 29 3b 0d 0a ┆ode(1); inputmode(1,1); ┆ 0x1220…1240 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 20 20 20 ┆ polyline(tel,hellinie); ┆ 0x1240…1260 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 78 69 6e 2c 79 69 6e ┆ tybe:=0; linietype(xin,yin┆ 0x1260…1280 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 65 29 3b 0d 0a 20 20 ┆,tybe); linetype(tybe); ┆ 0x1280…12a0 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 3b 0d 0a 20 20 20 20 ┆ linecolor(aktuel_farve); ┆ 0x12a0…12c0 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 20 20 65 6e 64 3b 0d ┆polyline(tel,hellinie); end; ┆ 0x12c0…12e0 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 31 3b 0d 0a 65 6e 64 ┆ linetype(0); skaerm1; end┆ 0x12e0…1300 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 88 88 88 88 88 88 88 ┆; (* ┆ 0x1300…1320 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 70 6f ┆ *) procedure po┆ 0x1320…1340 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 72 3b 76 61 72 20 78 ┆lygon(aktuel_farve:integer;var x┆ 0x1340…1360 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 20 20 74 65 6c 2c 73 ┆in,yin:integer); var tel,s┆ 0x1360…1380 74 61 74 75 73 2c 74 65 72 6d 2c 0d 0a 20 20 78 6f 75 74 2c 79 6f 75 74 20 20 20 20 20 20 20 20 ┆tatus,term, xout,yout ┆ 0x1380…13a0 20 20 3a 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 ┆ : integer; linie ┆ 0x13a0…13c0 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 20 20 68 ┆ : array(.1..2.) of coor; h┆ 0x13c0…13e0 65 6c 6c 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 ┆ellinie : array(.1..80┆ 0x13e0…1400 2e 29 20 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 ┆.) of coor; flag ┆ 0x1400…1420 (5,) 20 20 3a 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 ┆ : boolean; begin ordre┆ 0x1420…1440 28 27 50 4f 4c 59 47 4f 4e 27 2c 27 27 29 3b 0d 0a 20 20 66 6c 61 67 3a 3d 66 61 6c 73 65 3b 0d ┆('POLYGON',''); flag:=false; ┆ 0x1440…1460 0a 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 3b 0d 0a 20 20 72 ┆ linecolor(aktuel_farve); r┆ 0x1460…1480 65 70 65 61 74 0d 0a 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 ┆epeat rqlocator(1,xin,yin,s┆ 0x1480…14a0 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 20 20 79 69 6e 3a ┆tatus,term,xout,yout); yin:┆ 0x14a0…14c0 3d 79 6f 75 74 3b 78 69 6e 3a 3d 78 6f 75 74 3b 0d 0a 20 20 20 20 6c 69 6e 69 65 28 2e 31 2e 29 ┆=yout;xin:=xout; linie(.1.)┆ 0x14c0…14e0 2e 78 3a 3d 78 6f 75 74 3b 6c 69 6e 69 65 28 2e 31 2e 29 2e 79 3a 3d 79 6f 75 74 3b 0d 0a 20 20 ┆.x:=xout;linie(.1.).y:=yout; ┆ 0x14e0…1500 75 6e 74 69 6c 20 28 79 6f 75 74 3c 3d 32 39 38 35 30 29 20 6f 72 20 28 74 65 72 6d 3d 33 33 29 ┆until (yout<=29850) or (term=33)┆ 0x1500…1520 3b 0d 0a 20 20 69 66 20 74 65 72 6d 3c 3e 33 33 20 74 68 65 6e 20 62 65 67 69 6e 0d 0a 20 20 20 ┆; if term<>33 then begin ┆ 0x1520…1540 20 74 65 6c 3a 3d 31 3b 0d 0a 20 20 20 20 77 72 69 74 65 6d 6f 64 65 28 33 29 3b 0d 0a 20 20 20 ┆ tel:=1; writemode(3); ┆ 0x1540…1560 20 69 6e 70 75 74 6d 6f 64 65 28 31 2c 32 29 3b 0d 0a 20 20 20 20 6c 69 6e 69 65 28 2e 32 2e 29 ┆ inputmode(1,2); linie(.2.)┆ 0x1560…1580 3a 3d 6c 69 6e 69 65 28 2e 31 2e 29 3b 0d 0a 20 20 20 20 68 65 6c 6c 69 6e 69 65 28 2e 74 65 6c ┆:=linie(.1.); hellinie(.tel┆ 0x1580…15a0 2e 29 3a 3d 6c 69 6e 69 65 28 2e 31 2e 29 3b 0d 0a 20 20 20 20 66 6c 61 67 3a 3d 66 61 6c 73 65 ┆.):=linie(.1.); flag:=false┆ 0x15a0…15c0 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 3b 0d ┆; linecolor(aktuel_farve); ┆ 0x15c0…15e0 0a 20 20 20 20 72 65 70 65 61 74 0d 0a 20 20 20 20 20 20 72 71 6c 6f 63 61 74 6f 72 28 31 2c 78 ┆ repeat rqlocator(1,x┆ 0x15e0…1600 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 0a ┆in,yin,status,term,xout,yout); ┆ 0x1600…1620 20 20 20 20 20 20 69 66 20 63 6f 6e 74 72 6c 28 2e 33 2e 29 3e 30 0d 0a 20 20 20 20 20 20 20 20 ┆ if contrl(.3.)>0 ┆ 0x1620…1640 74 68 65 6e 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 ┆then begin ┆ 0x1640…1660 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 20 20 ┆ polyline(2,linie); ┆ 0x1660…1680 6c 69 6e 69 65 28 2e 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 ┆linie(.2.).x:=xout; ┆ 0x1680…16a0 6c 69 6e 69 65 28 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 ┆linie(.2.).y:=yout; ┆ 0x16a0…16c0 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 20 20 78 ┆polyline(2,linie); x┆ 0x16c0…16e0 69 6e 3a 3d 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 ┆in:=linie(.2.).x;yin:=linie(.2.)┆ 0x16e0…1700 2e 79 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 63 61 73 65 20 ┆.y; end; case ┆ 0x1700…1720 74 65 72 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 ┆term of 32: be┆ 0x1720…1740 67 69 6e 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 ┆gin writemode(1); ┆ 0x1740…1760 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); ┆ 0x1760…1780 20 20 20 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 ┆ writemode(3); ┆ 0x1780…17a0 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 69 ┆ tel:=tel+1; helli┆ 0x17a0…17c0 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 20 ┆nie(.tel.):=linie(.2.); ┆ 0x17c0…17e0 20 20 20 20 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 ┆ linie(.1.):=linie(.2.); ┆ 0x17e0…1800 20 20 20 20 20 20 20 20 69 66 20 74 65 6c 20 3e 3d 37 39 20 74 68 65 6e 20 66 6c 61 67 3a 3d 74 ┆ if tel >=79 then flag:=t┆ 0x1800…1820 (6,) 72 75 65 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 20 ┆rue; end; 33: ┆ 0x1820…1840 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 66 6c 61 ┆ begin fla┆ 0x1840…1860 67 3a 3d 74 72 75 65 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 ┆g:=true; tel:=tel+1;┆ 0x1860…1880 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┆ 0x1880…18a0 6e 69 65 28 2e 32 2e 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 65 6e 64 3b 20 20 20 20 20 20 20 20 ┆nie(.2.); end; ┆ 0x18a0…18c0 20 0d 0a 20 20 20 20 20 20 20 65 6e 64 3b 0d 0a 20 20 20 20 20 75 6e 74 69 6c 20 66 6c 61 67 3d ┆ end; until flag=┆ 0x18c0…18e0 74 72 75 65 3b 0d 0a 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 ┆true; linecolor(aktuel_farve┆ 0x18e0…1900 29 3b 0d 0a 20 20 20 77 72 69 74 65 6d 6f 64 65 28 31 29 3b 20 20 0d 0a 20 20 20 69 6e 70 75 74 ┆); writemode(1); input┆ 0x1900…1920 6d 6f 64 65 28 31 2c 31 29 3b 0d 0a 20 20 20 74 65 6c 3a 3d 74 65 6c 2b 31 3b 0d 0a 20 20 20 68 ┆mode(1,1); tel:=tel+1; h┆ […truncated at 200 lines…]