IMD 1.18: 14/11/2012 8:24:30 ticom 1k x 1k graphics addon 1983  ª>   ~ÌrCýÂø`à`      üüøþúø ’ʀʀžÊ€ê ’àdàhœˆ dlˆ hl4!ˆ!žjø+ÂÀÁÈ£ž~ÃÂø!ÿúÈ!ždÁÈ!žf!Óˆ£ž†ØÃÂÂø!ÿúÈ!žh!È dl      00 bÿÿþÀ‘BÀÂÄBþÀ‘€ÂÁÁ�øúîÈxÀ`dÀ f`� ’À`x`BÈzÊ dÊ‚È||Ê�ê ’À`zÀ±ÁÁ`zÍ`xÅ`h   À`zÀà| ` ̱ ýTL SYSTEM.99YSTEM.PASCALÈ d     àl ÈnàpÈ*ràvÁj %Ä=…Àê ³CáÈxeÈzÀêƒÈtÈ*t 4BÍÆÀêƒ  j tª tª‚¼Âàd  [È f lÿ0ÈjûùHùþ09ûFúùþ09ùûûþ €4È~ûH27b, œÁˆÈÂ`r œœÂàf[È hùüF49øûÁ†õÂàh[26Á†28 ÁÐ`�Âàh[ �!00È\€€Ì `APòܱþ 00 b(dÀ±ÀÂøøBð Bb0ÝÂÀƒBb0ÝÂÀƒBð Âb0ÝÂÀƒB ‚b0Ý ÝÂÞ LOAD ERROR ÿÿÿÿ TICOMôZZ¦C ' SYSTEM.997RSN<¦q'(SYSTEM.MISCINFO¦q(„ SYSTEM.PASCAL<¦q„½ SYSTEM.TICEDI<¦A½ã SYSTEM.FILERI<¤ãè SYSTEM.TICRAT<¦qèì SYSTEM.TICFRM<£Tìó SYSTEM.TICINS<¤ûó SYSTEM.TICCAL<¥  SYSTEM.TICMIS<¤û SYSTEM.TICPFI<£Ú SYSTEM.NEWS Ö<¢‹ SYSTEM.SYSENV<§2W SYSTEM.TICWRI<¥ W]SYSTEM.STARTUPR¥L]ƒ SYSTEM.INST Ö<¥Lƒ� SYSTEM.TICMAP<¥L�— SYSTEM.SYSMSK<¦B—ÎSYSTEM.LIBRARYR§2ÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛgÛg TICOMôZZ¦C ' SYSTEM.997RSN<¦q'(SYSTEM.MISCINFO¦q(„ SYSTEM.PASCAL<¦q„½ SYSTEM.TICEDI<¦A½ã SYSTEM.FILERI<¤ãè SYSTEM.TICRAT<¦qèì SYSTEM.TICFRM<£Tìó SYSTEM.TICINS<¤ûó SYSTEM.TICCAL< åDEÀ b/$§õøAPC.CODE2ÀãÀ b/$§øü READ.ME.TEXT b/‰¦ü  GRDEMO.CODEÖ b/Ú¦ BNGRAFDRAW.CODE/‹¦B\ BOAT.TEåXTZÜÀ b/$§\b BOAT.CODE4áÀ b/$§‚ˆBOAT.CODE4áÀ b/$§‚¸2BOAT.CODE4áÀ b/ȳîÔ SYSTEM.INFOÀ b/Èåååååååååååååååååååååååå GRAFICSîãY‰¦  PAT.COMP.CODEb/ì¤ PAT.A.TEXTãÖ b/ܤ PAT.B.TEXTãÖ b/ܤ PAT.C.TEXTãÖ b/åL¥ PAT.D.TEXTãÖ b/Ü¥ PAT00.PTRNãÖ b/ì¥  PAT02.PTRNãÖ b/ì¥ ! PAT03.PTRNãÖ b/ì¥!" PAT01.PTRNãÖ b/åá¦", PONG.TEXTòãÖ b/r§,/ PONG.CODEÀãÀ b/$§/2 FONT00.FONTÖ b/{¥2> DEMO.TEXTòãÖ b/L¥>B DEMO.CODEÀãÀ ååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååÜ { Cursob/$§BJ HOT.DOG.TEXT b/R§JM HOT.DOG.CODE b/$§MN PAT05.PTRNãÖ b/G¦N” GRAFTEST.TEXTb/Ú¦”§ GRAFTEST.CO GRAFICSîãY‰¦  PAT.COMP.CODEb/ì¤ PAT.A.TEXTãÖ b/ܤ PAT.B.TEXTãÖ b/ܤ PAT.C.TEXTãÖ b/DEb/Ú¦§Ô GRAFDRAW.CODEb/‹¦ÔØ PAT.E.TEXTãÖ b/G¦Øè CHARTS.TEXTÖ b/‚§èðAPC.TEXT1òãÖ b/S§ðõ CHARTS.COL¥ PAT.D.TEXTãÖ b/Ü¥ PAT00.PTRNãÖ b/ì¥  PAT02.PTRNãÖ b/ì¥ ! PAT03.PTRNãÖ b/ì¥!" PAT01.PTRNãÖ b/ å€ÿË×ËƉրp€ÿË×ËƉրt€ÿË×ËƉրw€ÿË×ËĆ�[�€ÿp††�[p††�[�ÿËp1¢�Œ¥0¥ŠÖ¥4…ŠÖ²Õ®†rpÔåš‚€>�r pšrp††‰­€Pr p†r p†‰­§1Œ£³ñ,š€"upš†‰­˜r pš‚€O�r pšrpŠ@1ץ3…Š×²Ô1†�[04£2Œ¢3¢�ÿËØå†‰Ö†‰­3Œíì§€ÿË×xËÊ3í¥ŠÈ4í¥‹Jÿ†�3†�[20Œ¢�ÿ¢��áupÒš‚€`�r pšrp†�3sp†�3s†s–Pattern sourcá¦", PONG.TEXTòãÖ b/r§,/ PONG.CODEÀãÀ b/$§/2 FONT00.FONTÖ b/{¥2> DEMO.TEXTòãÖ b/L¥>B DEMO.CODEÀãÀ åb/$§BJ HOT.DOG.TEXT b/R§JM HOT.DOG.CODE b/$§MN PAT05.PTRNãÖ b/G¦N” GRAFTEST.TEXTb/Ú¦”§ GRAFTEST.COjPATCOMPI DEb/Ú¦§Ô GRAFDRAW.CODEb/‹¦ÔØ PAT.E.TEXTãÖ b/G¦Øè CHARTS.TEXTÖ b/‚§èðAPC.TEXT1òãÖ b/S§ðõ CHARTS.CO DEÀ b/$§õøAPC.CODE2ÀãÀ b/$§øü READ.ME.TEXT b/‰¦ü  GRDEMO.CODEÖ b/Ú¦ BNGRAFDRAW.CODE/‹¦B\ BOAT.TE€€€€€€€€€€€€€€€€ XTZÜÀ b/$§\b BOAT.CODE4áÀ b/$§‚ˆBOAT.CODE4áÀ b/$§‚¸2BOAT.CODE4áÀ b/ȳîÔ SYSTEM.INFOÀ b/ÈååååååååååååÖ °æ°æ&øGRAFICS@@Öü@¨û @ þ çÊæ@@Öü@ þ ¨0åiPATCOMPI÷†+š‚€�r pš‡,€Pr pšr p‡,§Ó0‡-s‡-h`‡,˜€Pt`‚€�€Ut`˜spÓ ‡-‡,˜sp°‡,§° Ôœ‡,å§±¤.–-à†�3†‚_ás††�2ás††‰[‘ñp††rp††rp†r pš‚€�r pš†‰[˜r pš‚€�r pš1rpš‚€*�r påš0rpšrpšrpš‚€,�r pš†‰„€Pr pšr p†‰„‚€:èÔ †‰„†‰[ëP†‰„§Òp†‰„†‰„§ì§€.Ò†�3†‰„˜†ŠÖ†‰„§ît†ŠÖ˜såŠ&†�3¥ŠÖ†ŠÖ†‰„˜€Pt†ŠÖ‚€;�€Ut†ŠÖ˜sp°Õfÿ†‰Ö�p†‰Ö€D€ÿË×ËƉրR€ÿË×ËƉրG€ÿË×ËƉրY€ÿË×ËƉրBå€ÿË×ËƉրP€ÿË×ËƉրT€ÿË×ËƉրW€ÿË×ËƉրd€ÿË×ËƉրr€ÿË×ËƉրg€ÿË×ËƉրy€ÿË×ËƉրb O^ܤܤ 10 10 (X direction size, Y direction size)  b b b b b b b b b b  b b b b b b b b b .  b b b e name ? .TextPat name file ! contains a pattern of dimension  x Pattern destination name ? $.Ptrn!Warning -- premature b b b b b . .  b b b b b b b . . .  b b b b b b . . . .  b b b b b . . . . .  b b b b .end of input " is not long enough to be a rowwI/O error writing pattern filee EEXTRAIO STRINGOPFILEOPS PASCALIO  . . . . .  b b b . . . . . . .  b b . . . . . . . .  b . . . . . . . . .   O^ܤܤ  g y y y y . r . g g g g  y y y . r r r . g g g  y y . r r r r r . g g  y . r r r r r r  r . g  . r r r r r r r r r .  3 3 (X direction size, Y direction size)  . r .  r . r  . r . O^ܤL¥  11 11 (X direction size, Y direction size)  . b b b b b b b b b .  y . b b b b b b b . g  y y . b b b b b . g g  y y y . b b b . g g g  y y y y . b . g g g g  y y y y y . g g g g  y y y y y . b  y y y y y y y y y y y y y y y .  O^ܥܥ ÿDÿDÿDDÿDDÿDDDÿDDDÿDDDDÿDDDDÿDDDDDÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿðñðÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ 16 16 (X direction size, Y direction size)  . b b b b b b b b b b b b b b b  y . b b b b b bÿ b b b b b b b b  y y . b b b b b b b b b b b b b  y y y . b b b b b b b b b b b b  y ÿy y y . b b b b b b b b b b b  y y y y y . b b b b b b b b b b  y y y y y y . b b b b ÿb b b b b  y y y y y y y . b b b b b b b b  y y y y y y y y . b b b b b b b  y y y y y 33333333333333@333333D333333@D33333DD33333@DD3333DDD3333@DDD333DDDD333@DDDD33DDDDD33@DDDDD3DDDDDD3@DDDDDDDDDDDDD@DDD y y y y . b b b b b b  y y y y y y y y y y . b b b b b  y y y y y y y y y y y . b b b DDDDÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ b  y y y y y y y y y y y y . b b b  y y y y y y y y y y y y y . b b y y y y y y y y y  := New_X + Delta_X * Ball_Speed; $If (New_X < Ball_Size) Or (New_X > Paddle_X) Then &Begin (If ((Old_Y > Paddle_Y_Top) Or (Old_Y < Paddle_Y_Bottom)) And +(New_X > Paddle_X) Then *Exit (Pong); (Write (Chr (Bell)); (Delta_X := -Delta_X; (New_X := Newÿÿ Program Pong;  {$U GrafDraw.Code}  Uses Graf_Draw;  Const Paddle_X_Size = 10; &Paddle_Y_Size = 50; &Ball_Size = 10; &Key ðò3 ò3"ò33 "ò33""ò33@ "ò3D"ò3@DD òDDDò@DDDDðÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ_Up = 31; &Key_Down = 10;  Bell = 7;  Var Delta_X, $Delta_Y, $New_X, $New_Y, $Old_X, $Old_Y, $Save_Index, ÿ$Paddle_X, $Paddle_Y_Top, $Paddle_Y_Bottom, $Paddle_Speed, $Ball_Speed : Integer; $Ch : Char; $Save_Edge ÿ : Edge_Type; $Stat_Rec : Array [0..29] Of Integer;  Begin "Repeat $Write ('Ball Speed (1-10) ? '); $Readln (Ball_Speeÿd); "Until Ball_Speed In [1..10]; "Paddle_Speed := Ball_Speed * 4; Ch := ' '; "Core^.Display_Mode := Fill; "Core^.Fill_Ind$CURSOR $EQUAL $TAG ex := 4; Core^.Polygon_Edge := Interior; "Paddle_X := Core^.X_Max - Paddle_X_Size; "Paddle_Y_Bottom := (Core^.Y_Max - Paddle_Y_Size) Div 2; "Paddle_Y_Top := Paddle_Y_Bottom + Paddle_Y_Size; "Move_Abs (Paddle_X - 1, Paddle_Y_Bottom - 1); "Box_Rel (PaÚ\ddle_X_Size, Paddle_Y_Size + 1); " "Delta_X := -Ball_Speed; "Delta_Y := -Ball_Speed; "Core^.Line_Index := 1; O.r§r§"Core^.Polygon_Edge := Solid_Line; "Core^.Overlay_Mode := Xor; "Core^.Fill_Index := 2; New_X := Core^.X_Max Div 2; "New_Y := Core^.Y_Max Div 2; "Move_Abs (New_X, New_Y); "Circle_Rel (Ball_Size); "Repeat $Old_X := New_X; $Old_Y := New_Y; $New_X  Paddle_Y_Top}; (If Ord (Ch) = Key_Down Then *If Paddle_Y_Bottom > Paddle_Speed Then ,Begin .Move_Abs (Paddle_X - 1, Paddle_Y _Bottom - Paddle_Speed - 1); .Box_Rel (Paddle_X_Size, Paddle_Speed + 1); .Paddle_Y_Bottom := Paddle_Y_Bottom - Paddle_Speed; €€€€€€€€€€€€€€€€,.Move_Abs (Paddle_X - 1, Paddle_Y_Top - Paddle_Speed - 1); .Box_Rel (Paddle_X_Size, Paddle_Speed + 1); .Paddle_Y_Top := PaddleÖ ~å~å&÷DEMO" @Úü@   þ Üå@Úü@ þ ²1_Y_Top - Paddle_Speed; ,End {of If Paddle_Y_Bottom}; (Core^.Polygon_Edge := Save_Edge; (Core^.Fill_Index := Save_Index; PONG ÷ìš‚€�s pš†spšs p0�þÚÔÛ0Œ¥€ ¥ šç Äšç ËÄšçÄš~ £¥š|€2£�¥2€2¢¥4î2îr &End {of If}; "Until False;  End. €2ír 0ᥠ0ᥠšç ËÄšçÄšçÄšç ËÄš~�¥ š|�¥ 98r r9¥8¥9;0Œ¢¥ 9 ³Ÿ94²Ÿ Ô)63²Ÿ62³Ÿ 94²Ÿ¡Ôpštp;ᥠ_X + 2 * Delta_X; &End {of If (New_X}; $New_Y := New_Y + Delta_Y * Ball_Speed; $If (New_Y < Ball_Size) Or (New_Y > Core^.Y_Max - Ball_Size) Then &Begin (Write (Chr (Bell)); (Delta_Y := -Delta_Y; (New_Y := New_Y + 2 * Delta_Y; &End {of If (New_Y}; $Move_Abs (New_X, New_Y); $Circle_Rel (Ball_Size); {Draw new one} $Move_Abs (Old_X, Old_Y); $Circle_Rel (Ball_Size); {Wipe out old one} $Unitstatus (2, Stat_Rec, 1); $If Stat_Rec[0] <> 0 Then &Begin (Unitread (2, Ch, 1); (Save_Edge := Core^.Polygon_Edge; (Save_Index := Core^.Fill_Index; (Core^.Polygon_Edge := Interior; (Core^.Fill_Index := 4; (If Ord (Ch) = Key_Up Then *If Paddle_Y_Top < Core^.Y_Max - Paddle_Speed Then ,Begin .Move_Abs (Paddle_X - 1, Paddle_Y_Bottom - 1); .Box_Rel (Paddle_X_Size, Paddle_Speed + 1); .Paddle_Y_Bottom := Paddle_Y_Bottom + Paddle_Speed; .Move_Abs (Paddle_X - 1, Paddle_Y_Top - 1); .Box_Rel (Paddle_X_Size, Paddle_Speed + 1); .Paddle_Y_Top := Paddle_Y_Top + Paddle_Speed; ,End {of If PONG  A  $66""""""""">IIH> II> QQ""EENQ!Q  ×  I**I @>ACCEEIQQa>O^{¥L¥   8@AA""A@  @A" ""$$((0 "A@@"~"AAA#A"!A"AA""AA""A@\bAAA"   0@AA"6IIIIIF@A"AAAAAAA"!AA!!AA!"AA""BBBBBBB"?\bAAAqA"AAAAAAAAAA! pA!  !A~AAAAAIIIUcAAAaQQIIEECA"AAAAAAA"!AAA!\"c]AAAAA"A! !AA!"A@ A""AAAAAAAAA"AAAAAAAA""UUIIAAAAAAAA""AAA"AAA @@88@ A"9;Œ¢¥ 8:0Œ¢¥ 8 ³Ÿ8š| £²Ÿ Ôštp:ᥠ8:Œ¢¥ 98r r76r r†p$†Ë×x±Õ”† pšæ¥šæ ¥šçÄšç ËÄ<Ò*.1!!> !&BBBB&"AA",2!!!!2, "A"$!@\bAAAb\BBBBBB3š|1£³ñ 4î2îr 1ír 21¢¥4î3îr 1ír 31¢¥< Ò)21²ñ$4î21£îr 1ír 21£¥4î31£îr 1ír 31£¥šç=Äšç 5ËÄÕÚþ–Ball Speed (1& B" "BIIIIIII7BBBBBBF:"AAAA"&BBBB& ,2!!!!2,-10) ? EXTRAIO PASCALIOGRAFDRAW &>A@@>A>$.1!!!!!!""AA""UIIAAAA""A$$BBBBB 000Iÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  Draw_Grid; "Begin $Height_Of_Frame := Core^.Y_Max - 20; $Width_Of_Frame := Core^.X_Max - 20;  Size_Grid := Core^.X_Max Did Div 2); $Core^.Display_Mode := Fast; $Circle_Abs (Core^.X_CP + Radius, Core^.Y_CP); $Move_Rel (Size_Grid, 0); iv 8; $Height_Grid := 3 * Size_Grid; $Width_Grid := 6 * Size_Grid; $Core^.Line_Index := 2; $Set_Linestyle (On, On, On, On, O$Core^.Display_Mode := Fill; $Core^.Polygon_Interior := Plain; $Core^.Polygon_Edge := Solid_Line; $Circle_Abs (Core^.X_CP + n, Off, Off, Off); $My_X_Value[1] := Width_Of_Frame; $My_Y_Value[1] := 0; $My_X_Value[2] := 0; $My_Y_Value[2] := Height_Of_FRadius, Core^.Y_CP); $Move_Rel (Size_Grid, 0); $Core^.Polygon_Edge := Interior; $Circle_Abs (Core^.X_CP + Radius, Core^.Y_CP)rame; $My_X_Value[3] := -Width_Of_Frame; $My_Y_Value[3] := 0; $My_X_Value[4] := 0; $My_Y_Value[4] := -Height_Of_Frame;  ; $Move_Rel (Size_Grid, 0); $Core^.Polygon_Interior := Patterned; $Core^.Polygon_Edge := Solid_Line; $Circle_Abs (Core^.X_CP Move_Abs (10, 10); $PLine_Rel (My_X_Value, My_Y_Value, 4); $Core^.Line_Index := 6; $Set_Line_Style (On, On, On, On, On, On,  + Radius, Core^.Y_CP); " Move_Rel (Size_Grid, 0); $Core^.Polygon_Edge := Interior; $Circle_Abs (Core^.X_CP + Radius, Core^.On, On); $For Line_Number := 0 To 2 Do &Begin (My_X_Value [3 * Line_Number + 1] := Width_Grid; Y_CP); $Box_Width := Size_Grid - 10; $Box_Height := Size_Grid - 20; $Move_Abs (5 * Size_Grid Div 2 - Box_Width Div 2, .5 * S(My_Y_Value [3 * Line_Number + 1] := 0; (My_X_Value [3 * Line_Number + 2] := 0; (My_Y_Value [3 * Line_Number + 2] := 0; (My_ize_Grid Div 2 - Box_Height Div 2); Core^.Display_Mode := Fast; $Core^.Polygon_Edge := Solid_Line; $Box_Rel (Box_Width, BoX_Value [3 * Line_Number + 3] := -Width_Grid; (My_Y_Value [3 * Line_Number + 3] := Size_Grid; &End;  Move_Abs (Size_Grid,x_Height); $Move_Rel (Size_Grid, 0); $Core^.Display_Mode := Fill; $Core^.Polygon_Interior := Plain; $Box_Rel (Box_Width, Box Size_Grid); $PLine_Rel (My_X_Value, My_Y_Value, 9); $For Line_Number := 0 To 5 Do &Begin (My_X_Value [3 * Line_Number + 1] _Height); $Move_Rel (Size_Grid, 0); $Core^.Polygon_Edge := Interior; $Box_Rel (Box_Width, Box_Height); := 0; (My_Y_Value [3 * Line_Number + 1] := Height_Grid; (My_X_Value [3 * Line_Number + 2] := 0; (My_Y_Value [3 * Line_Number $Move_Rel (Size_Grid, 0); $Core^.Polygon_Interior := Patterned; $Core^.Polygon_Edge := Solid_Line; $Box_Rel (Box_Width, Box_+ 2] := 0; (My_X_Value [3 * Line_Number + 3] := Size_Grid; (My_Y_Value [3 * Line_Number + 3] := -Height_Grid; &End;  MovHeight); $Move_Rel (Size_Grid, 0); $Core^.Polygon_Edge := Interior; $Box_Rel (Box_Width, Box_Height); "End; " "  Proced Program Example;  {$U Grafdraw.Code}  Uses Graf_Draw;  Var Box_Width, Box_Height, Radius, Height_Grid, Width_Grid, Size_Grie_Abs (2 * Size_Grid, Size_Grid); $PLine_Rel (My_X_Value, My_Y_Value, 18);  End; " "  Procedure Draw_Solids; "Begin $d, $Height_Of_Frame, Width_Of_Frame : Integer; $My_X_Value, My_Y_Value : Point_Array; $Line_Number : Integer;  "Procedure Core^.Line_Index := 7; $Core^.Fill_Index := 1; $Radius := (Size_Grid - 10) Div 2; $Move_Abs (5 * Size_Grid Div 2, 3 * Size_Gr   "End; " "  Begin "Set_Fill_Pattern (1); "Set_Font (0); "Draw_Grid;  Draw_Solids; "Label_It; "Readln;  End. r‚€ �ršæár‚€�ršæár‚€�r2šæŒr‚€�ršæár‚€�ršæár‚€�r2šæŒr‚€�ršæár‚€!�ršæure Label_It; "Begin $Core^.Char_Width := Core^.Font_Cols; $Core^.Char_Height := Core^.X_Max Div 40; $Core^.Text_Index := 3; $Core^.Left_Right := Center; $Core^.Top_Bottom := Center; $Move_Abs (3 * Size_Grid Div 2, 3 * Size_Grid Div 2); $Text ('CirØEXAMPLE cle'); $Move_Rel (0, Size_Grid); $Text ('Box'); $Move_Rel (0, Size_Grid + Core^.Char_Height); $Text ('Mode'); $Move_Rel (0,  -Core^.Char_Height); $Text ('Interior'); $Move_Rel (0, -Core^.Char_Height); $Text ('Edge'); $Move_Rel (Size_Grid, 2 * Core^€€€€€€€€€€€€€€€€ .Char_Height); $Text ('fast'); $Move_Rel (0, -Core^.Char_Height); $Text ('---'); $Move_Rel (0, -Core^.Char_Height); $Text (Ö ~å~å&÷DEMO" @Úü@  D þ Üå@Úü@ Dþ ²1'---'); $Move_Rel (Size_Grid, 2 * Core^.Char_Height); $Text ('fill'); $Move_Rel (0, -Core^.Char_Height); $Text ('plain'); ×EXAMPLE zøš|£¥š~£¥š~�¥2Œ¥2Œ¥šç ËÄr†€‰€€Ëî×0Ć €€Ëî×Ć€‰€€Ëî×Ć €€Ëî×$Move_Rel (0, -Core^.Char_Height); $Text ('solid'); $Move_Rel (Size_Grid, 2 * Core^.Char_Height); $Text ('fill'); $Move_Rel1Ć€‰€€Ëî×0áĆ €€Ëî×Ć€‰€€Ëî×Ć €€Ëî×1áÄ r†€‰† ršç ËÄrh¥� …� ²Ôw†€‰…� Œí€€Ëî×3Ć …� Œí€€ (0, -Core^.Char_Height); $Text ('plain'); $Move_Rel (0, -Core^.Char_Height); $Text ('interior'); $Move_Rel (Size_Grid, 2 * Ëî×Ć€‰…� Œ¢€€Ëî×Ć …� Œ¢€€Ëî×Ć€‰…� Œ¢€€Ëî×3áĆ …� Œ¢€€Ëî×2Ä…� í¥� Š‚22r†€‰† rh¥� …� ²Ôw†€‰…� Œí€€ËCore^.Char_Height); $Text ('fill'); $Move_Rel (0, -Core^.Char_Height); $Text ('pattern'); $Move_Rel (0, -Core^.Char_Height);î×Ć …� Œí€€Ëî×4Ć€‰…� Œ¢€€Ëî×Ć …� Œ¢€€Ëî×Ć€‰…� Œ¢€€Ëî×2Ć …� Œ¢€€Ëî×4áÄ…� í¥� Š‚2Œ2r†€‰† r–#š $Text ('solid'); $Move_Rel (Size_Grid, 2 * Core^.Char_Height); $Text ('fill'); $Move_Rel (0, -Core^.Char_Height); $Text ('ç ËÄšç ËÄ2 £�¥2Œ�2Œ�ršç Äšy5¢šxr2ršç ÄšçÄšçÄšy5¢šxr2ršçÄšy5¢šxr2ršçÄšpattern'); $Move_Rel (0, -Core^.Char_Height); $Text ('interior'); " Move_Abs (4 * Size_Grid, 5 * Size_Grid); $Core^.Text_InçÄšy5¢šxr2ršçÄšy5¢šxr2 £¥2£¥2Œ�7�£2Œ�6�£ršç ÄšçÄ76r 2ršç ÄšçÄ76r 2ršçÄ76r 2dex := 7; $Core^.Char_Width := Core^.Font_Cols * 2; $Core^.Char_Spacing := -0.2; $Text ('GRAFDRAW Filled Object Parameters');ršçÄšçÄ76r 2ršçÄ76r –ÎšçšæÄšçš~€(�Äšç ËÄšçÄšçÄ2Œ�2Œ�r‚€�r2r‚€ �r2𿢠 ocedure Draw_Bun; "Var I : Integer; "Begin $Core^.Line_Index := 3; $Core^.Fill_Index := 3; $Move_Abs (Bun_X + Bun_Half, Bun_Y + Bun_Half); $For I := 0 To Bun_Half Do &Circle_Rel (I); $Move_Abs (Bun_X + Bun_Length - Bun_Half, Bun_Y + Bun_Half); $For I := 0 To Bun_Half Do &Circle_Rel (I); $Move_Abs (Bun_X + Bun_Half, Bun_Y); $Core^.Display_Mode := Fill; $Box_Rel (Bun_Len Program Test;  Uses Grafdraw;  Const Row_Size = 500; &Hot_Dog_Width = 76; &Hot_Dog_Length = 500; &Hot_Dog_Half = 38; &Hogth - Bun_Width, Bun_Width); $Core^.Display_Mode := Fast; "End {of Draw_Bun}; " " "Procedure Draw_Message; " $Procedure Dár‚€$�r2šæŒr‚€'�ršæár‚€*�ršæár‚€-�r2šæŒr‚€2�ršæár‚€5�ršæár‚€9�r2šæŒr‚€<�ršt_Dog_X = 70; &Hot_Dog_Y = 202; &Bun_Width = 200; &Bun_Length = 450; &Bun_Half = 100; &Bun_X = 95; &Bun_Y = 140; &Plate_Ræár‚€?�ršæár‚€C�r2Œ2Œršç ËÄšçšæŒÄšçò€äô‚€H�r–ñá€cËrá€cËr ‘‘‘št p–ÿÿÿÿadius = 237; &Plate_X_Center = 320; &Plate_Y_Center = 240;  Var Message : String; " "Procedure Draw_Plate; "Begin " MoveCircleeBoxModeeInteriorrEdgeefastt------filllplainsolidfilllplaininteriorrfilllpatternsolidfilllpatterninter_Abs (Plate_X_Center, Plate_Y_Center); $Core^.Line_Index := 6; $Core^.Display_Mode := Fill; $Core^.Fill_Index := 7; $Circle_iorr!GRAFDRAW Filled Object Parameters”þ iPASCALIOREALOPS GRAFDRAW Rel (Plate_Radius); $Core^.Fill_Index := 0; $Circle_Rel (Plate_Radius * 8 Div 9); $Core^.Fill_Index := 7; $Circle_Rel (Plate$CURSOR $EQUAL $TAG $SYNTAX _Radius * 3 Div 4); $Core^.Display_Mode := Fast; "End {of Draw_Plate}; " " "Procedure Draw_Hot_Dog; "Var I : Integer; "Begin $Core^.Line_Index := 1; $Core^.Fill_Index := 1; $Move_Abs (Hot_Dog_X + Hot_Dog_Half, Hot_Dog_Y + Hot_Dog_Half); $For I :ì�¥~= 0 To Hot_Dog_Half Do &Circle_Rel (I); $Move_Abs (Hot_Dog_X + Hot_Dog_Length - Hot_Dog_Half, .Hot_Dog_Y + Hot_Dog_Half); O.R§R§ $For I := 0 To Hot_Dog_Half Do &Circle_Rel (I); $Move_Abs (Hot_Dog_X + Hot_Dog_Half, Hot_Dog_Y); " Core^.Display_Mode := Fill; $Box_Rel (Hot_Dog_Length - Hot_Dog_Width, Hot_Dog_Width); $Core^.Display_Mode := Fast; "End {of Draw_Hot_Dog}; " " "Pr  PASCALIOGRAFDRAW  ffffföö333ö#""ö# ö# ö# ö#""ö333ööffffföÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ;TEST ÿ ÿ€€€€€€€€€€€€€€€€)ÿelay; $Var A, (B, (C : Integer; " Begin &Time (A, B); &Repeat (Time (A, C); &Until C > B + 180; $End {of Delay}; $ "Ö ~å~å&÷DEMO" @Úü@   þ Üå@Úü@ þ ²1Begin {of Draw_Message} $Core^.Char_Width := Core^.Font_Cols * 4; $Core^.Char_Height := Core^.Font_Rows * 4; :TEST ,k�@€ðršç ËÄšç Äšç ËÄ€íršç ËÄ€íŒ �ršç ËÄ€íŒ�ršç Ä–çšç ËÄšç$Move_Abs (Hot_Dog_X + Hot_Dog_Length Div 2 - .(Length (Message) * Core^.Char_Width) Div 2, .Hot_Dog_Y + Hot_Dog_Half Div 2); ËÄ€F€&¢€Ê€&¢r€&ih !²Ô r íhŠó€F�ô¢€&£€Ê€&¢r€&ih !²Ô r íhŠó€F€&¢€Êršç Ä�ô€L£€Lr šç Ä–cšç ËÄšç  $Repeat $ Core^.Text_Index := 4; $ Text (Message); &Delay; &Core^.Text_Index := 1; &Text (Message); &Delay; $Until FaËÄ€_€d¢€Œ€d¢r€dih !²Ô r íhŠó€_�¢€d£€Œ€d¢r€dih !²Ô r íhŠó€_€d¢€Œršç Ä�€ȣ€Èr šç Ä–zbapb`p !€´¢²ñô–Ýlse; "End {of Draw_Message}; " "  Begin "Set_Font (0); "Write ('Message ? '); "Readln (Message); "Page (Output); "WritešçšæŒÄšçšæŒÄ€F�ô�¢†§šæŒ�£€Ê€&�¢ršç ËĆ˜r�šç ËĆ˜r�ÔÛ–Uá€cËr š‚€�s pš†€P (Chr (26), 'G', Chr (26), 'N', Chr (26), 'P'); "Draw_Plate; "Draw_Bun; "Draw_Hot_Dog; "Draw_Message;  End. s pšs pš tpštpš€Gtpštpš€Ntpštpš€Ptp‘‘‘‘– Message ? ´¿v8 ñEXTRAIO   O.#¦Ú¦k*Down_Key : Win_Y_Org := Win_Y_Org + Move_Mult; *Up_Key : Win_Y_Org := Win_Y_Org - Move_Mult; *Right_Key : Win_X_Org := Win_X_Org - Move_Mult; *BS_Key, *Left_Key : Win_X_Org := Win_X_Org + Move_Mult; ( Home_Key : Begin 8Win_X_Org := 0; 8Win_Y_Org := 0; 6End {of Home_Key}; *48, 49, 50, {'0'..'9'} *51, 52, 53, *54, 55, 56, *57 : Begin 8If Not Hit_Digit Then :Move_Mult := 0; 8Move_Mult := Move_Mult * 10 + Ord (Ch) - Ord ('0'); 6 Hit_Digit := True; 6End {of '0'..'9'}; (End {of Case}; $ If W <> Core^.Window_List^ Then (Begin *Hit_Digit := False; *Set_Window (Core^.Window_List); *If (Core^.Draw_Res Program Test_Core;  Uses {$U Grafdraw.Code} Graf_Draw;  Const Print_Errors = False; &Esc = 27; { Escape key }  ult <> Draw_OK) And Print_Errors Then ,Writeln (' Draw result on window movement was ', Core^.Draw_Result); *If Core^.Draw_Res CR = 13; { Return key } &Print_Key = 17; { Print screen key } &Up_Key = 31; { Up arrow key } &Down_Key = 1ult >= Draw_Overflow Then ,Core^.Window_List^ := W; (End {of If W}; $Until Ch In Allowed; " Read_Key := Ch; "End {of Read_0; { Down arrow key } &Right_Key = 28; { Right arrow key } &Left_Key = 15; { Left arrow key }  BS_Key = 8; Key}; " " " "Procedure Check_Result (Expected : Result_Set); "Var Ch : Char; "Begin  { Backspace key } &Home_Key = 25; { Home key }  Type Result_Set = Set Of Draw_OK..Draw_Max;  Char_Set = Set Of Char" If Not (Core^.Draw_Result In Expected) Then &Begin (If Print_Errors Then *Begin ,Write ('Unexpected draw result ', Core^;  Var Font_ID : Font_Type; $Pat_ID : Pat_Type;  Planes, $X_Max_2, $Y_Max_2, $Reg_X, $Reg_Y, $Reg_X_Size, $Reg_Y_S.Draw_Result, '; Hit [RETURN]'); ,Ch := Read_Key ([Chr (CR)]); *End {of Print_Errors}; &End {of If}; " Core^.Draw_Result :=$TAG $CURSOR $EQUAL $LAST $SYNTAX ize : Integer;   "Function Read_Key (Allowed : Char_Set) : Char; "Var Ch : Char; &Hit_Digit : Boolean; &Move_Mult : Integer; &W : Win_Rec; "Begin $Move_Mult := 1; $Hit_Digit := False; $Repeat &Read (Keyboard, Ch); $ If Eoln (Keyboard) Then (Ch := Chr (CR); $ W := Core^.Window_List^; &With Core^.Window_List^ Do (Case Ord (Ch) Of   9; {Just to see if it changes} "End {of Check_Result}; " " " "Function Do_Test (S : String) : Boolean; "Var Ch : Char; &Continue; $End {of Box_Cursor}; $ "Begin {of Test_Cursor} $Set_Cursor (Cur_Enable); $Check_Result ([Draw_OK]); "Begin $Write ('Test ', S, ' (Y/N/Esc) ? '); $Ch := Read_Key (['y', 'Y', 'n', 'N', Chr (Esc)]); $If Ch = Chr (Esc) Then &Exi$Set_Cursor (Cur_Visible); $Check_Result ([Draw_OK, Draw_Clipped]); $Continue; $Box_Cursor (15); $Box_Cursor (30); $Box_Cut (Test_Core); $Do_Test := Ch In ['Y', 'y']; $Writeln (Ch); $If Ch In ['Y', 'y'] Then &Erase; $Erase_Alpha; $Goto_XY (0, 2rsor (2000); " Set_Cursor (Cur_Invisible); $Check_Result ([Draw_OK]); $Set_Cursor (Cur_Small); $Check_Result ([Draw_OK]); 4); "End {of Do_Test}; " " " "Procedure Continue; "Var Ch : Char; "Begin $Write ('Type to continue'); $Ch := R$Move_Cursor (Succ (X_Max_2), Succ (Y_Max_2)); $Check_Result ([Draw_OK]); $Set_Cursor (Cur_Visible); $Check_Result ([Draw_OK,ead_Key ([Chr (CR), Chr (Esc)]); $If Ch = Chr (Esc) Then &Exit (Test_Core); $Erase_Alpha; $Goto_XY (0, 24); "End {of Contin Draw_Clipped]); $Continue; $Set_Cursor (Cur_Disable); $Check_Result ([Draw_OK]); "End {of Test_Cursor};   " "Procedurue}; " " " "Procedure Test_Cursor; " $Procedure Box_Cursor (Size : Integer); $Var I : Integer; $Begin e Test_Line; "Var I : Integer; " X, &Y : Point_Array; "Begin $With Core^ Do &Begin (Line_Index := 1; (Set_Line_Style &Size_Cursor (Size); &Check_Result ([Draw_OK, Draw_Clipped]); &For I := 0 To Core^.X_Max Do (Begin *Move_Cursor (I, 0); *C(On, On, Off, On, On, Off, On, On); (Check_Result ([Draw_OK]); (Overlay_Mode := Xor; (For I := Y_Min To Y_Max Div 4 Do *Begiheck_Result ([Draw_OK, Draw_Clipped]); (End {of For}; &For I := 0 To Core^.Y_Max Do (Begin *Move_Cursor (Core^.X_Max, I); *n ,Move_Abs (I * 2, I * 2); ,Check_Result ([Draw_OK]); ,Line_Abs (I * 2, Y_Max - I * 2); ,Check_Result ([Draw_OK]); ,Line_ACheck_Result ([Draw_OK, Draw_Clipped]); (End {of For}; &For I := Core^.X_Max Downto 0 Do (Begin *Move_Cursor (I, Core^.Y_Maxbs (X_Max - I * 2, I * 2); ,Check_Result ([Draw_OK]); ,Line_Abs (X_Max - I * 2, Y_Max - I * 2); ,Check_Result ([Draw_OK]); ); *Check_Result ([Draw_OK, Draw_Clipped]); (End {of For}; &For I := Core^.Y_Max Downto 0 Do (Begin *Move_Cursor (0, I); *,Line_Abs (I * 2, I * 2); ,Check_Result ([Draw_OK]); *End {of For}; ( (Continue; (Line_Index := Succ (Line_Index); (Move_Check_Result ([Draw_OK, Draw_Clipped]); (End {of For}; &For I := 0 To Core^.X_Max Do (Begin *Move_Cursor (I, Round (Core^.Y_Abs (X_Min, Y_Min); (Check_Result ([Draw_OK]); (For I := Y_Min To Y_Max Div 4 Do *Begin ,Line_Rel (0, Y_Max - 4 * I); ,ChecMax / Core^.X_Max * I)); *Check_Result ([Draw_OK, Draw_Clipped]); (End {of For}; &For I := Core^.X_Max Downto 0 Do (Begin *k_Result ([Draw_OK]); ,Line_Rel (X_Max - 4 * I, 0); ,Check_Result ([Draw_OK]); ,Line_Rel (0, -Y_Max + 4 * I); ,Check_Result Move_Cursor (Core^.X_Max - I, Round (Core^.Y_Max / Core^.X_Max * I)); *Check_Result ([Draw_OK, Draw_Clipped]); (End {of For}; ([Draw_OK]); ,Line_Rel (-X_Max + 4 * I, 0); ,Check_Result ([Draw_OK]); ,Move_Rel (2, 2); ,Check_Result ([Draw_OK]); *End {o ] := 2; { Move_Rel (2, 2) } ,Y[6] := 2; * PLine_Rel (X, Y, 6); ,Check_Result ([Draw_OK]); *End {of For};  8; ,Move_Abs (X_Max_2, Y_Max_2); ,Check_Result ([Draw_OK]); ,Line_Abs (Pred (X_Max), Round (Glob_Y_Max / Glob_X_Max * I)); (Continue;  (Erase; (Check_Result ([Draw_OK]); (Set_Line_Style (On, On, On, On, On, On, On, On); ,Check_Result ([Draw_OK]); ,Move_Abs (X_Max_2, Y_Max_2); ,Check_Result ([Draw_OK]); ,Line_Abs (1, Round (Glob_Y_Max / Glob_X_(Check_Result ([Draw_OK]); (Overlay_Mode := Replace; (Line_Index := 0; (For I := -1 To Succ (X_Max) Do *Begin ,Line_Index Max * I)); ,Check_Result ([Draw_OK]); *End {of For};  &End {of With}; "End {of Test_Line};    "Procedure Test_Boxf For}; ( (Continue; (Line_Index := Succ (Line_Index); (Overlay_Mode := Replace; (For I := Y_Min To Y_Max Div 4 Do *Begin := Succ (Line_Index) Mod 8; ,Move_Abs (X_Max_2, Y_Max_2); ,Check_Result ([Draw_OK]); ,Line_Abs (Round (Glob_X_Max / Glob_Y_Ma,X[1] := X_CP; { Penup command } ,Y[1] := Y_CP; ,X[2] := I * 2; { Move_Abs (I * 2, I * 2) } ,Y[2]x * I), Succ (Y_Max)); ,Check_Result ([Draw_Clipped]); ,Move_Abs (X_Max_2, Y_Max_2); ,Check_Result ([Draw_OK]); ,Line_Abs (R := I * 2; ,X[3] := I * 2; { Line_Abs (I * 2, Y_Max - I * 2) } ,Y[3] := Y_Max - I * 2; ,X[4] := X_Max - I * 2; ound (Glob_X_Max / Glob_Y_Max * I), -1); ,Check_Result ([Draw_Clipped]); *End {of For}; (For I := -1 To Succ (Y_Max) Do *Beg { Line_Abs (X_Max - I * 2, I * 2) } ,Y[4] := I * 2; ,X[5] := X_Max - I * 2; { Line_Abs (X_Max - I * 2, } in ,Line_Index := Succ (Line_Index) Mod 8; ,Move_Abs (X_Max_2, Y_Max_2); ,Check_Result ([Draw_OK]); ,Line_Abs (Succ (X_Max),,Y[5] := Y_Max - I * 2; { Y_Max - I * 2) } ,X[6] := I * 2; { Line_Abs (I * 2, I * 2) } * Y[6] := Round (Glob_Y_Max / Glob_X_Max * I)); ,Check_Result ([Draw_Clipped]); ,Move_Abs (X_Max_2, Y_Max_2); ,Check_Result ([Draw_OK] I * 2; * PLine_Abs (X, Y, 6); ,Check_Result ([Draw_OK]); *End {of For}; ( (Continue; (Line_Index := Succ (Line_Index); ); ,Line_Abs (-1, Round (Glob_Y_Max / Glob_X_Max * I)); ,Check_Result ([Draw_Clipped]); *End {of For}; Continue;  (Overlay_Mode := Xor; (Move_Abs (X_Min, Y_Min); (Check_Result ([Draw_OK]); (For I := Y_Min To Y_Max Div 4 Do *Begin ,X[1] :(Overlay_Mode := Xor; (Line_Index := 0; (For I := 1 To Pred (X_Max) Do *Begin ,Line_Index := Succ (Line_Index) Mod 8; = 0; { Line_Rel (0, Y_Max - 4 * I) } ,Y[1] := Y_Max - 4 * I; ,X[2] := X_Max - 4 * I; { Line_Rel (X_Max -,Move_Abs (X_Max_2, Y_Max_2); ,Check_Result ([Draw_OK]); ,Line_Abs (Round (Glob_X_Max / Glob_Y_Max * I), Pred (Y_Max)); ,Che 4 * I, 0) } ,Y[2] := 0; ,X[3] := 0; { Line_Rel (0, -Y_Max + 4 * I) } ,Y[3] := -Y_Max + 4 * I; ,X[4] := -X_ck_Result ([Draw_OK]); ,Move_Abs (X_Max_2, Y_Max_2); ,Check_Result ([Draw_OK]); ,Line_Abs (Round (Glob_X_Max / Glob_Y_Max * IMax + 4 * I; { Line_Rel (-X_Max + 4 * I, 0) } ,Y[4] := 0; ,X[5] := 0; { Penup command} ,Y[5] := 0; ,X[6), 1); ,Check_Result ([Draw_OK]); *End {of For}; (For I := 1 To Pred (Y_Max) Do *Begin ,Line_Index := Succ (Line_Index) Mod  ,Check_Result ([Draw_OK]); ,Box_Abs (X_CP + X_Max Div 3, Y_CP + Y_Max Div 3); ,Check_Result ([Draw_OK]); ,Move_Rel (0, -3);inue; (Box_Rel (X_Max_2, Y_Max_2); (Check_Result ([Draw_OK]); (Box_Rel (-(X_Max_2), Y_Max_2); (Check_Result ([Draw_OK]); (B ,Check_Result ([Draw_OK]); ,Box_Abs (X_CP + X_Max Div 3, Y_CP - 2); ,Check_Result ([Draw_OK]); ,Move_Rel (-3, 0); ,Check_Rox_Rel (-(X_Max_2), -(Y_Max_2)); (Check_Result ([Draw_OK]); (Box_Rel (X_Max_2, -(Y_Max_2)); (Check_Result ([Draw_OK]); ( (Cesult ([Draw_OK]); ,Box_Abs (X_CP - 2, Y_CP - Y_Max Div 3); ,Check_Result ([Draw_OK]); ,Move_Rel (0, 3); ontinue; (For I := Y_Min To Y_Max Div 4 Do *Begin ,Move_Abs (I * 2, I * 2); ,Check_Result ([Draw_OK]); ,Box_Abs (X_Max - I ,Check_Result ([Draw_OK]); ,Box_Abs (X_CP - 2, Y_CP + 2); ,Check_Result ([Draw_OK]); *End {of With}; &End {of Draw_Boxes}; * 2, Y_Max - I * 2); ,Check_Result ([Draw_OK]); ,Line_Index := Succ (Line_Index) Mod 8; *End {of For}; ( (Continue; (Set_L& $Procedure Test_Clipping (Int : Int_Type); $Begin &With Core^ Do (Begin *Polygon_Interior := Int; *Continue; *Erase; ine_Style (On, On, On, On, On, On, On, On); (Check_Result ([Draw_OK]); (For I := Y_Min To Y_Max Div 4 Do *Begin ,Move_Abs (I*Check_Result ([Draw_OK]); *Move_Abs (X_Max - 10, Y_Max - 10); *Check_Result ([Draw_OK]); *Box_Rel (11, 11); *Check_Result ( * 2, I * 2); ,Check_Result ([Draw_OK]); ,Box_Rel (X_Max - I * 4, Y_Max - I * 4); ,Check_Result ([Draw_OK]); ; "Var I : Integer; & &Procedure Draw_Boxes (Display : Display_Type; ?@ABCDEFGHIJKLMNO'); ,Text_Index := Succ (inue; *Erase; *Check_Result ([Draw_OK]); *Clip_Circle (0, Y_Max, Succ (X_Max)); *Continue; *Erase; *Check_Result ([Draw_OK' Patterned'); 2Check_Result ([Draw_OK]); 2Text_Index := Succ (Text_Index) Mod 8; 2If Text_Index = Background Then  t, Center); &Test_Position (Left, Top); &Erase; &Test_Position (Center, Bottom); &Test_Position (Center, Center); (Line_Rel (-(X_Max Div 6), Y_Max Div 5); (Check_Result ([Draw_OK]); (Line_Rel (-(X_Max Div 6), -(Y_Max Div 5)); (Check_Result&Test_Position (Center, Top); &Erase; &Test_Position (Right, Bottom); &Test_Position (Right, Center); &Test_Position (Right ([Draw_OK]); (Line_Rel (-(X_Max Div 6), Y_Max Div 5); (Check_Result ([Draw_OK]); (Line_Rel (-(X_Max Div 6), -(Y_Max Div 5));Text_Index) Mod 8; ,Continue; , ,Move_Abs (Start_X + Font_Cols * 24 * Mag, 6Start_Y - (24 * Font_Cols + Font_Rows) * Mag); , Top); &Erase; $End {of Test_Direction}; $ $ " "Begin {of Test_Text} " With Core^ Do &Begin (Char_Spacing := 0; (Tex,Char_Path := Left; ,Top_Bottom := Bottom; ,Left_Right := Right; ,Set_Charup (0, -1); ,Text ('PQRSTUVWXYZ[\]^_`abcdefg'); t_Index := 1; (Char_Width := Font_Cols * 2; (Char_Height := Font_Rows * 1; (Set_Cursor (Cur_Enable); (Set_Cursor (Cur_Visibl,Text_Index := Succ (Text_Index) Mod 8; ,Continue; 4 ,Move_Abs (Start_X - Font_Rows * Mag, 6Start_Y - 24 * Font_Cols * Mag)e); (Move_Abs (X_Max_2, Y_Max_2); (Move_Cursor (X_Max_2, Y_Max_2); (Test_Direction (Right); (Test_Direction (Left); (Test_D; ,Char_Path := Up; ,Top_Bottom := Bottom; ,Left_Right := Left; ,Set_Charup (-1, 0); ,S := 'hijklmnopqrstuvwxyz{|}~ '; irection (Up); (Test_Direction (Down); (Set_Cursor (Cur_Disable); (Erase_Alpha; (Test_Rotations; &End {of With}; "End {of  S[Length(S)] := Chr (127); ,Text (S); ,Text_Index := Succ (Text_Index) Mod 8; ,Continue; * *End {of For}; Test_Text}; " " Procedure Test_Flood; "Begin $Set_Line_Style (On, On, On, On, On, On, On, On); $Check_Result ([Draw_OK]);$End {of Test_Rotations}; & & " $Procedure Test_Direction (Dir : Direction); $ &Procedure Test_Position (Horiz, Vert : D $With Core^ Do &Begin (Overlay_Mode := Replace; (Display_Mode := Fill; (Line_Index := 6; ( (Move_Abs (0, Y_Max Div 5 * 3irections); &Var Horiz_Name, *Vert_Name : String; &Begin (Case Horiz Of *Left : Horiz_Name := 'Left - '; *Center : Hor); {Draw upper zig zag} (Check_Result ([Draw_OK]); (Line_Rel (X_Max Div 6, Y_Max Div 5); iz_Name := 'Center - '; *Right : Horiz_Name := 'Right - '; (End {of Case}; (Case Vert Of *Top : Vert_Name := 'Top'; *Ce(Check_Result ([Draw_OK]); (Line_Rel (X_Max Div 6, -(Y_Max Div 5)); (Check_Result ([Draw_OK]); (Line_Rel (X_Max Div 6, Y_Maxnter : Vert_Name := 'Center'; *Bottom : Vert_Name := 'Bottom'; (End {of Case}; (Core^.Top_Bottom := Vert; (Core^.Left_Right  Div 5); (Check_Result ([Draw_OK]); (Line_Rel (X_Max Div 6, -(Y_Max Div 5)); (Check_Result ([Draw_OK]); (Line_Rel (X_Max Div:= Horiz; (Text (Concat (Horiz_Name, Vert_Name)); (Core^.Text_Index := Succ (Core^.Text_Index) Mod 8; (Continue; &End {of Te 6, Y_Max Div 5); (Check_Result ([Draw_OK]); (Line_Rel (X_Max Div 6, -(Y_Max Div 5)); (Check_Result ([Draw_OK]); ( (Move_Rest_Position}; $ $ $Begin {of Test_Direction} $ Core^.Char_Path := Dir; &Test_Position (Left, Bottom); &Test_Position (Lefl (0, -Y_Max Div 5); {Draw lower zig zag} (Line_Rel (-(X_Max Div 6), -(Y_Max Div 5)); (Check_Result ([Draw_OK]);  cedure Test_Arcs; "Const PI_8 = 0.39269907; (PI_4 = 0.78539815; (PI_2 = 1.5707963; (PI = 3.1415926278; (PI_x2 = 6.2831852; ius := Core^.Y_Max Div 17; $Set_Line_Style (On, On, On, On, On, On, On, On); $Check_Result ([Draw_OK]); $Core^.Polygon_Edge :(PI_x3_2 = 4.7123889; (PI_x3_4 = 2.3561944; (PI_x7_4 = 5.497787; (PI_x5_4 = 3.9269907; "Var X_Start, &Y_Start, &X_End, = Solid_Line; $Core^.Overlay_Mode := Replace; $For I := 0 To 7 Do &For J := 0 To 7 Do (Begin *Core^.Line_Index := Succ (Cor&Y_End, &Pac_X_Open, &Pac_Y_Open, &Pac_X_Closed, &Pac_Y_Closed, &Combo_Radius, &Radius, &J, &I : Integer; &Oe^.Line_Index) Mod 8; *If Core^.Line_Index = Core^.Background Then ,Core^.Line_Index := Succ (Core^.Line_Index) Mod 8; *Move_pen_Mouth : Boolean; &Start_Angle, &End_Angle : Real; " $Procedure Clip_Test (Radius : Integer; Start_Angle, End_Angle : Abs (J * (Core^.X_Max Div 8) + Combo_Radius, 4I * (Core^.Y_Max Div 8) + Combo_Radius); *Check_Result ([Draw_OK]); *Arc_Rel (CReal); $Var Start_X, (Start_Y, (End_X, (End_Y : Integer; $Begin &Move_Abs (Core^.X_Max Div 64, Y_Max_2); &Check_Result ombo_Radius, I * PI_8, J * PI_8, 3X_Start, Y_Start, X_End, Y_End); *Check_Result ([Draw_OK]); (End {of For J}; $Continue;  (Check_Result ([Draw_OK]); (Line_Rel (-(X_Max Div 6), Y_Max Div 5); (Check_Result ([Draw_OK]); ( (Polygon_Interior := Patt([Draw_OK]); &Arc_Rel (Radius, Start_Angle, End_Angle, Start_X, Start_Y, End_X, End_Y); &Check_Result ([Draw_Clipped]); &Moveerned; {Draw circles} (Overlay_Mode := Replace; (Polygon_Edge := Interior; (Move_Abs (X_Max_2 Div 3, Y_Max_2); _Abs (X_Max_2, Core^.Y_Max - Core^.X_Max Div 64); &Check_Result ([Draw_OK]); &Arc_Rel (Radius, Start_Angle + PI_x3_2, End_Angl(Check_Result ([Draw_OK]); (Line_Index := 2; (Circle_Rel (Y_Max Div 8); (Check_Result ([Draw_OK]); (Move_Rel (X_Max Div 3, e + PI_x3_2, /Start_X, Start_Y, End_X, End_Y); &Check_Result ([Draw_Clipped]); &Move_Abs (Core^.X_Max - Core^.X_Max Div 64, Y0); (Check_Result ([Draw_OK]); (Line_Index := 4; (Circle_Rel (Y_Max Div 8); (Check_Result ([Draw_OK]); (Move_Rel (X_Max Div_Max_2); &Check_Result ([Draw_OK]); &Arc_Rel (Radius, Start_Angle + PI, End_Angle + PI, /Start_X, Start_Y, End_X, End_Y); &C 3, 0); (Check_Result ([Draw_OK]); (Line_Index := 6; (Circle_Rel (Y_Max Div 8); (Check_Result ([Draw_OK]); ( (Polygon_Inteheck_Result ([Draw_Clipped]); &Move_Abs (X_Max_2, Core^.X_Max Div 64); &Check_Result ([Draw_OK]); rior := Plain; (Fill_Index := 2; {Fill pattern} (Move_Abs (X_Max_2, Y_Max Div 8 * 5 + 7); (Che&Arc_Rel (Radius, Start_Angle + PI_2, End_Angle + PI_2, /Start_X, Start_Y, End_X, End_Y); &Check_Result ([Draw_Clipped]); &Cck_Result ([Draw_OK]); (Flood; (Check_Result ([Draw_OK]); (Continue; (Flood; (Check_Result ([Draw_OK]); (Continue; (Fill_ontinue; &Core^.Line_Index := Succ (Core^.Line_Index) Mod 8; &If Core^.Line_Index = Core^.Background Then (Core^.Line_Index :Index := 3; (Overlay_Mode := Xor; (Flood; (Check_Result ([Draw_OK]); &End {of With}; "End {of Test_Flood}; $ " "  Pro= Succ (Core^.Line_Index) Mod 8; &Erase; &Check_Result ([Draw_OK]); $End {of Clip_Test}; $ "Begin {of Arc_Test} $Combo_Rad Core^.Y_Max Div 12, PI_x3_4, -PI_2); $Clip_Test (Core^.Y_Max Div 8, PI_2, -PI_x3_4); $Clip_Test (Core^.Y_Max Div 6, PI_2, -PI_, Y_Offset * New_Length); (Check_Result ([Draw_OK]); (Write_Block_Pixels (Pattern.S, New_Length, New_Length); (Check_Result (2); $ $Move_Abs (Core^.Y_Max Div 6, Y_Max_2); $Check_Result ([Draw_OK]); $Core^.Line_Index := 2; $Pac_X_Open := Core^.X_Max[Draw_OK]); (If Level > 0 Then *Breakup (Sect_X + X_Offset * New_Length, 3Sect_Y + Y_Offset * New_Length, New_Length, Pred ( Div 12; $Pac_Y_Open := Core^.Y_Max Div 9; $Pac_X_Closed := Core^.X_Max Div 10; $Pac_Y_Closed := Core^.Y_Max Div 18; Level)); &End {of Draw_Section}; & $Begin {of Breakup} &New_Length := Side_Length Div 2; &If Var_New (Pattern.P, New_Length$Open_Mouth := True; $Repeat &If Open_Mouth Then (Arc_Abs (Radius, Start_Angle, End_Angle, 1Core^.X_CP + Pac_X_Open, Core^ * ((New_Length + 3) Div 4)) <> 0 Then; &Draw_Section (X, Y, -2, -2); &Draw_Section (X, Y + Side_Length - New_Length, -2, 2); .Y_CP - Pac_Y_Open, 1Core^.X_CP + Pac_X_Open, Core^.Y_CP + Pac_Y_Open) &Else (Arc_Abs (Radius, Start_Angle, End_Angle, 1Cor&Draw_Section (X + Side_Length - New_Length, Y, 2, -2); &Draw_Section (X + Side_Length - New_Length, Y + Side_Length - New_Lene^.X_CP + Pac_X_Closed, Core^.Y_CP - Pac_Y_Closed, 1Core^.X_CP + Pac_X_Closed, Core^.Y_CP + Pac_Y_Closed); &Open_Mouth := Not gth, 42, 2); &Var_Dispose (Pattern.P, New_Length * ((New_Length + 3) Div 4)); $End {of Breakup}; $ " Open_Mouth; &Check_Result ([Draw_OK]); &Arc_Rel (Radius, Start_Angle, End_Angle, /X_Start, Y_Start, X_End, Y_End); &Check_Re"Begin {of Test_Block} $With Core^ Do &Begin (Display_Mode := Fill; (Overlay_Mode := Xor; (Polygon_Interior := Patterned; sult ([Draw_OK]); &Move_Rel (Core^.X_Max Div 22, 0); &Check_Result ([Draw_OK]); " Until Core^.X_CP + Radius >= Core^.X_Max; (Polygon_Edge := Interior; (Move_Abs (X_Max_2 - (Y_Max Div 5), 2Y_Max_2 - (Y_Max Div 5)); (Check_Result ([Draw_OK]); (Box_R$Erase; $Check_Result ([Draw_OK]); $Core^.Overlay_Mode := Xor; $For I := 0 To 7 Do &For J := 0 To 7 Do (Begin *Core^.Line"End {of Test_Arcs};    "Procedure Test_Block; " $Procedure Breakup (X, Y, Side_Length, Level : Integer); $Type Color_Index := Succ (Core^.Line_Index) Mod 8; *If Core^.Line_Index = Core^.Background Then ,Core^.Line_Index := Succ (Core^.Line_In_Array = Packed Array [0..30000] Of Color_Index; $Var New_Length : Integer; (Pattern : Record 7Case Integer Of 90 : (S : dex) Mod 8; *Move_Abs (J * (Core^.X_Max Div 8) + Combo_Radius, 4I * (Core^.Y_Max Div 8) + Combo_Radius); *Check_Result ([DrawSorcery); 91 : (P : ^Color_Array); 5End {of Pattern}; $ _OK]); *Arc_Rel (Combo_Radius, PI_x2 / (J + 1), I * PI_8, 3X_Start, Y_Start, X_End, Y_End); *Check_Result ([Draw_OK]); (End&Procedure Draw_Section (Sect_X, Sect_Y, X_Offset, Y_Offset : Integer); &Begin (Move_Abs (Sect_X, Sect_Y); (Check_Result ([D {of For J}; $Continue; $Erase; $Check_Result ([Draw_OK]); $Clip_Test (Core^.Y_Max Div 24, PI_x3_4, -PI_x3_4); $Clip_Test (raw_OK]); (Read_Block_Pixels (Pattern.S, New_Length, New_Length); (Check_Result ([Draw_OK]); (Move_Rel (X_Offset * New_Length ger; " Old_Window, &Window : Win_Rec_P; "Begin $With Core^ Do &Begin (Old_Window := Window_List; ({Set_Window (Nil); x) Mod 8; (Polygon_Interior := Plain; (Polygon_Edge := Interior; (For I := 0 To 19 Do *For J := 0 To 19 Do ,Begin .Move_Ab(Check_Result ([Draw_OK]);} ( (Char_Width := Font_Cols; (Char_Height := Font_Rows; (Char_Spacing := 0; (Char_Path := Rights (I * X_Max Div 20, J * Y_Max Div 20); .Check_Result ([Draw_OK]); .Circle_Rel (Y_Max Div 50); .Check_Result ([Draw_OK, Draw_; (Set_Charup (0, 1); (Check_Result ([Draw_OK]); (Top_Bottom := Bottom; (Left_Right := Center; (Move_Abs (X_Max Div 2, 0); Clipped]); .Fill_Index := Succ (Fill_Index) Mod 8; .If Fill_Index = Background_Index Then 0Fill_Index := Succ (Fill_Index) Mo(Check_Result ([Draw_OK]); (Text_Index := Succ (Background_Index) Mod 8; (Text ('Hi, mom!'); (Check_Result ([Draw_OK]); ( d 8; ,End {of For J}; ( (For I := Region_Y_Org To Succ (Glob_Y_Max - Window^.Win_Y_Size) Do ( Begin * Window^.Win_Y_Org :(Overlay_Mode := Replace; (Line_Index := Succ (Background_Index) Mod 8; (Move_Rel (0, 0); (Check_Result ([Draw_OK]); (New (= I; ,Set_Window (Window); ,If Window^.Win_Y_Org Mod Win_Y_Res = 0 Then .Check_Result ([Draw_OK]) ,Else .Check_Result ([DWindow); (New (Window^.Next_Window); (Window^.Win_X_Org := 0; (Window^.Win_Y_Org := Char_Height; (Window^.Disp_X_Org := 0; raw_Clipped]); *End {of For}; (For I := Region_X_Org To Succ (Glob_X_Max - Window^.Win_X_Size) Do ( Begin ,Window^.Win_X_Or(Window^.Disp_Y_Org := Char_Height; (Window^.Win_X_Size := Window_List^.Win_X_Size; (Window^.Win_Y_Size := Window_List^.Win_Y_g := I; ,Set_Window (Window); ,If Window^.Win_X_Org Mod Win_X_Res = 0 Then .Check_Result ([Draw_OK]) ,Else Size - Char_Height; (With Window^.Next_Window^ Do *Begin ,Next_Window := Nil; ,Win_X_Org := 0; ,Win_Y_Org := 0; ,Disp_X_Or.Check_Result ([Draw_Clipped]); *End {of For}; ( (Continue; (Window^.Win_X_Org := Region_X_Org; (For I := 0 To 5 Do ( Fog := 0; ,Disp_Y_Org := 0; * Win_X_Size := Window_List^.Win_X_Size; ,Win_Y_Size := Char_Height; *End {of With Window}; (Setr J := 0 To 7 Do ,Begin .Window^.Win_Y_Org := J * Y_Max Div 20; .Set_Window (Window); ,End {of For J}; ( (Continue; (Set__Region (Region_X_Org, Region_Y_Org + Char_Height, 4Succ (X_Max), Succ (Y_Max - Char_Height)); (Check_Result ([Draw_OK]); ( Region (Region_X_Org, Region_Y_Org - Char_Height, 4Succ (X_Max), Succ (Y_Max + Char_Height)); (Check_Result ([Draw_OK]); (Set(For I := 0 To 19 Do *Begin ,Move_Abs (I * X_Max Div 20, 0); ,Check_Result ([Draw_OK]); ,Line_Rel (0, Y_Max); ,Check_Result_Window (Old_Window); (Check_Result ([Draw_OK]); (Dispose (Window^.Next_Window); (Dispose (Window); &End {of With}; "End {oel (Succ (Y_Max Div 5), Succ (Y_Max Div 5)); (Check_Result ([Draw_OK]); (Move_Rel (1, 1); (Check_Result ([Draw_OK]); (Breaku ([Draw_OK]); *End {of For}; (For I := 0 To 19 Do *Begin ,Move_Abs (0, I * Y_Max Div 20); ,Check_Result ([Draw_OK]); p (X_CP, Y_CP, Y_Max Div 5, 1); &End {of With}; "End {of Test_Block}; $ $ "Procedure Test_Windows; "Var J, &I : Inte,Line_Rel (X_Max, 0); ,Check_Result ([Draw_OK]); *End {of For}; (Display_Mode := Fill; (Fill_Index := Succ (Background_Inde  If Do_Test ('Circle') Then $Test_Circle; "If Do_Test ('Block') Then $Test_Block; "If Do_Test ('Area Fill') Then $Test_FloŒ ¢€0£jiŠÖ€Lcšæ(¹ñGišæ(r#šæ/±¡Ô!š‚€€�s pššæ/spšspšæ/ ³Ô šæ(cÅ „ ÐÚÕ3ÿ ¤–=šæ/aÐÚñ3f Test_Windows}; $ $  Begin {of Test_Core} "Check_Result ([Draw_Init]); "Goto_XY (0, 24); "Write ('Background color ? '); od; "If Do_Test ('Arc') Then $Test_Arcs; "If Do_Test ('Windows') Then $Test_Windows; "Continue; "Erase_Alpha;  End {of Te"Readln (Core^.Background); "Write ('Pattern number ? '); "Readln (Pat_ID); "Set_Fill_Pattern (Pat_ID); "Check_Result ([Drast_Core}. w_OK]); "Write ('Font number ? '); "Readln (Font_ID); "Set_Font (Font_ID); "Check_Result ([Draw_OK]); "Write ('Planes enabled ? '); "Readln (Planes); "Plane_Enable (Planes); "Check_Result ([Draw_OK]); "Writeln ('Global space at (', Core^.Glob_X_Min, ', ', Core^.Glob_Y_Min, +') to (', Core^.Glob_X_Max, ', ', Core^.Glob_Y_Max, ')'); "With Core^.Window_List^ Do $Writeln ('Display at (', Win_X_Org, ', ', Win_Y_Org, ') to (', -Pred (Win_X_Org + Win_X_Size), ', ', -Pred (Win_Y_Org + Win_Y_Size), ')'); "Writeln ('Clipping region at (', Core^.X_Min, ', ', Core^.Y_Min, +') to (', Core^.X_Max, ', ', Core^.Y_Max, ')'); "Write ('Clipping region lower left corner (X, Y) ? '); "Readln (Reg_X, Reg_Y); "WriCTESTCORE te ('Clipping region size (X'', Y'') ? '); "Readln (Reg_X_Size, Reg_Y_Size); "Set_Region (Reg_X, Reg_Y, Reg_X_Size, Reg_Y_Size ); "Check_Result ([Draw_OK]); "Erase; "Check_Result ([Draw_OK]); "Erase_Alpha; "Check_Result ([Draw_OK]); "Goto_XY (0, 24)€€€€€€€€€€€€€€€€ - ; "X_Max_2 := Core^.X_Max Div 2; "Y_Max_2 := Core^.Y_Max Div 2; "If Do_Test ('Cursor') Then $Test_Cursor;  If Do_Test ('LòÖ °å°å&÷GRAFICS@Úü@ þ þ æ@Úü@ þþ ¨0ine') Then $Test_Line; If Do_Test ('Box') Then $Test_Box; "If Do_Test ('Text') Then $Test_Text; BTESTCORE<î jiš`s pšspÔ hcšæ(Åšæ(¤ ŠF*ç*}"¢ÄŠ?*ç*}"£ÄŠ5*ç*~"£ÄŠ+*ç*~"¢ÄŠ!*çÄ*çÄŠ!ñj"  €€Ëî×Äa€€Ëîׇ�| Œ£Ä„€‚€€Ëîׇ�~ Œ£Äa€€Ëî×Ä„€‚€€Ëî×Äa€€Ëîׇ�|á Œ¢Ä„€‚€€Ëîׇ�~á Œ¢Äa€€Ëî×Ä„€‚i!ç $Ä!ç#Ä!çÄ!ç ËÄ!ç ËÄ76rÇ‘!çÄ!|€ �jh "²Ô&!y Œ¢!xrÇ‘!ç !æ íâ½Ë�ËÄ íhŠÕ‘!ç ËÄ!|€ �jh "²Ô! Œr€€Ëî×Äa€€Ëî×Ä„€‚€€Ëî×Äa€€Ëî×Ä„€‚arÇ‘ íh‹7ÿ‘rÇ‘rÇ‘‡�çć�ç ËÄá‡�~í¤�h ‡�²Ôg‡�ç Ç‘!ç !æ íâ½Ë�ËÄ íhŠÚ‘!ç ËÄ!çÄ!|€ �jh "²Ô! ŒrÇ‘!ç !æ íâ½Ë�ËÄ íhŠÚ‘rÇ‘!ç !æ íâ½Ë�ËÄ!ç !æ íâ½Ë�‡�æ íâ½Ë�ËÄ76rÇ‘‡�æ-̇�æ+Ìà Ì¿‡�|írÇ‘76rÇ‘‡�æ-̇�æ+Ìà Ì¿árÇ‘ íhŠ’á‡�|í¤�h ‡�²Ôg‡�ç ‡�æ íËÄ!|�!|�!| ��!|�!|!|�£!| ��!~!|�£!|!|�£!| ��!~!|�£!|�!| ��‘rÇ‘!|�¢!|�¢!| ��!|�¢!|!|�£¢!| ��!~!|�£â½Ë�ËÄ76rÇ‘‡�~í‡�æ+̇�æ-Ìà Ì¿rÇ‘76rÇ‘á‡�æ+̇�æ-Ìà Ì¿rÇ‘ íhŠ’‘‡�çć�ç Ëć�~î¤�h ‡�²Ôf‡¢!|!|�£¢!| ��!~!|�£¢!|�¢!| ��‘rÇ‘!|�£!|�£!| ��!|�£!|!|�££!| ��!~!|�££!|!|�££!| ��!~!|�££!|�£!|Ô0š‚€“�s pššæ/spš‚€Ÿ�s p â¼Ç‘hšç/ ËÄ–²*a„+¬Pš‚€§�s pša˜s pš‚€ª�s p⼃€±ÛÇ‘h Ò�ç ‡�æ íâ½Ë�ËÄ76rÇ‘‡�æ-̇�æ+Ìà Ì¿‡�|îrÇ‘76rÇ‘‡�æ-̇�æ+Ìà Ì¿rÇ‘ íhŠ“‡�|î¤�h ‡�²Ôf‡�ç ‡�æ p ƒ€¹Ú¤-š tpšsp ƒ€ÁÚÔrru–,áš‚€É�s p â¼â¼ÛÇ‘h Òpru–¼"rÇ‘š~ih !²Ô ríâ½Ë�ËÄ76rÇ‘‡�~î‡�æ+̇�æ-Ìà Ì¿rÇ‘76rÇ‘‡�æ+̇�æ-Ìà Ì¿rÇ‘ íhŠ“–�… šh ç #Ä ç"Ä ç!Ä ç æ íâÇ‘ íhŠìš|ih !²Ôš~ rÇ‘ íhŠéš~ih !³Ô š|rÇ‘ îhŠéš|ih !³Ô rÇ‘ îhŠìš~ih !²Ô š|Ìš~Ìà Ì¿r½Ë�ËÄ‘rÇ‘76rÇ‘ ~� |�r Ç‘árÇ‘ ~�ár Ç‘árÇ‘á |�ár Ç‘rÇ‘ár Ç‘‘rÇ‘ çÇ‘ íhŠÞš~ih !³Ô"š~ £š|Ìš~Ìà Ì¿rÇ‘ îhŠÙ‘–rÇ‘rÇ‘‘���Ð�rÇ‘rÇ‘7í6írÇ‘ æ íâ½Ë�ËÄ76rÇ‘ y ~�¢ x |�¢rÇ‘árÇ‘ y ~�¢ x£rÇ‘árÇ‘ y£ x |�£rÇ‘rÇ‘ y£ x¢rrÇ‘‘rÇ‘–\š¤�‡�ç ËÄrÇ‘‡�çć�}‡�|�¤�h ‡�²Ô_ Œ ŒrÇ‘ Œ‡�| Œ£rÇ‘‡�~ Œ£ Ç‘–ÿ šh ç!Ä‘rÇ‘ ~ £ | £rÇ‘ r Ç‘ ~ £ rÇ‘ ár Ç‘ rÇ‘ á ár Ç‘ | £rÇ‘ á r Ç‘–ŒrÇ‘‡�~ Œ£‡�| Œ£rÇ‘ Œ ŒrÇ‘ íhŠš‘‡�ç ‡�æ íËć�‡�}rÇ‘‡�}‡�|�¤�h ‡�²ÔU‡�| Œ£rÇ‘‡�~Þ ši!ç ËÄrÇ‘!çÄ76r76r Ç‘‘7á6r Ç‘‘7á6ár Ç‘‘76ár Ç‘‘76r Ç‘7á6r Ç‘7á6ár Ç‘ Œ£rÇ‘‡�|á Œ¢rÇ‘‡�~á Œ¢rÇ‘rÇ‘ íhФ‘‡�ç ‡�æ íËć�çć�}‡�|�¤�h ‡�²ÕÑ„€‚€€Ëîׇ�yÄa76ár Ç‘‘!}!|�jh "²Ô8 Œ ŒrÇ‘!~ Œ£!| Œ£rÇ‘!ç !æ íâ½Ë�ËÄ íhŠÃ‘rÇ‘!}!|�jh "²Ô8 Œ ŒrÇ‘!€€Ëîׇ�xÄ„€‚€€Ëî× ŒÄa€€Ëî× ŒÄ„€‚€€Ëî× ŒÄa€€Ëîׇ�| Œ£Ä„€‚€€Ëîׇ�~ Œ£Äa€€Ëî× ŒÄ„€‚€€Ëîׇ�~ Œ£Äa~ Œ£!| Œ£r Ç‘!ç !æ íâ½Ë�ËÄ íhŠÃ!ç ËÄ!ç ËÄ!çÄ� � � � � � � � !çÄ!ç ËÄ� � ‘rÇ€€Ëîׇ�| Œ£Ä„€‚€€Ëî× ŒÄa€€Ëî× ŒÄ„€‚arÇ‘ íh‹'ÿ‘‡�ç ‡�æ íËć�çć�‡�}rÇ‘‡�}‡�|�¤�h ‡�²ÕÁ„€‚‘!ç Ä!çÄ!çÄ!ç ËÄ!|�jh "²Ô8 Œ ŒrÇ‘!| Œ£!| Œ£r Ç‘!ç !æ íâ½Ë�ËÄ íhŠÃ–÷ "!rÇ‘ rÇ‘–Lš -指-æ¢"Œ£r‡-çć-çć-çÄár ‚� �r‡-ç ‡-æ íâ½Ë�ËÄ‘!‡-æ"Œ£ ‡-æŒ"Œ£r‡-çć-çć-çÄár c‚�ëPcc§ì€Èc˜r‡šx$¢r!,å¤ Ç‘"„ó„ó„ „ „ „ r Ç‘š~�rÇ‘šy"¢š~³Ô€–#"rÇ‘­­­r Ç‘!­Œ ­ŒrÇ‘­­­r Ç-ç ‡-æ íâ½Ë�ËÄ‘"íj‹¤þ–.+£‡€¥Š„*‚�&ëPŠ„*‚�*ëPŠ „*‚�/ëPŠÖ�4‡€¤Š`‚�<ëPŠ`‚�>ëPŠ `‚�BëPŠÖ�Fšç‡€¤Äšç‡€¥Ä¤S„S‘­²ñ#!­Œ¢" ­Œ¢­­îð–l#�ha ¢�Œ” Ó%$áá�%$#¢ £á�%#¢ £$á�%#¢ £$#¢ £�a ¢�Œ” –Åšh ç Ä çÄ„*˜€Pv„S`˜€ v„S˜ršç šæ íâ½Ë�ËÄ‘–€¥cšç Ä���r���r���r–¯šh çÌô ç ËÄ ç  çÄ çÄ7 |�£6 |�£rÇ‘ |�í |�ír Ç‘rÇ‘ y x |��–sšl$æ(k$ç$æÄ$ç$æÄ$çÌô$çÄr Ç‘$çÄ$çæŒÄ ç æŒÄrr76r76r����rr�–wrÇ‘šh çÄ ç Ä ç ËÄ |�ŒrÇ‘ ~� |�rÇ‘ ~� Ä$~�rÇ‘$ç $æíâ½Ë�ËÄ‚�K�rÇ‘$çÄ$ç $æíâ½Ë�ËÄrÇ‘b” "” "çÄ"ç$æÄ"çÄ"ç$æÄ"ç$æ(zÄ"ç$æ(y$æ|�árÇ‘ ~� |�rÇ‘ ~� |�árÇ‘ ~� |�rÇ‘ ~� |�árÇ‘ |�ár ~�á |�árÇ‘ ~�á |�rÇ‘ ~�á |£Ä"xm%˜Ä%çÄ%çÄ%çÄ%çÄ%ç$æ(zÄ%ç$æÄ$æ'$æ&$æ¢$~í$|$æ£ír"Ç‘mh %²Ô $~Œ�rÇ‘$|rÇ‘ íhŠÜmh %²Ô $|Œ�r�árÇ‘ ~�á |�rÇ‘ ~�á |�árÇ‘ ~�á |�rÇ‘ çÄ çÄ çÄ7�6rÇ‘ ç ËÄ |�rÇ‘ ~�rÇ‘ ç Ç‘$~rÇ‘ íhŠÜ$ç Ä$ç $æíâ½Ë�ËÄ$çÄ$çÄmh %²Ô^ni!&²ÔP $~Œ�!$|Œ�rÇ‘$|€2�rÇ‘$ç $æ íâ½Ë�ËÄ$æ $æËÄ |�rÇ‘ ~�rÇ‘ ç ËÄ |�rÇ‘ çÄ ç ËÄ7 |�Œ¢rÇ‘rÇ‘‘rÇ‘‘ ç ËÄ çÄrÇ‘–hšÒ$ç $æ íâ½Ë�ËÄ!íiŠ« íhŠ�$æ&$æ+"y£ímh %²Ô("ç Ä"r#"}$æ)â½Ë�ÒÇ‘ŠÇ‘ íhŠÓ$æ'$æ-"z£ímh %²Ô("ç Ä"r#"~$æ*â½Ë�ÒÇ ��‘rÇ‘!~í�‘rÇ‘!|!~í�‘rÇ‘!~!|!~í�‘rÇ‘!~!~í�–Þ šm%çÌô%ç%~�Ä%ç%|€ �Ä%çÄ%çÄ%çÄr ~€@�6rÇ‘,„ ódócba`r Ç‘7š|š~€@�£rÇ‘,„ óò€Àdóò€Àcba`r Ç‘š~š~€@�£6rÇ‘,„ óò€ Àdóò€Àcba`r Ç‘7šÇ‘%ç*Ä%|í�l%ç ËÄ%ç ËÄ%ç ËÄ$$rÇ‘ni!&²Õ!oj"'²Õ¤ h (²Õ%ç Ä%ç!Ä%ç"Ĥ k#)²Ô:$rÇ‘$rÇ‘%ç~€@�rÇ‘,„ óò€Àdóò€Àcba`r Ç‘‘šç šæ íâ½Ë�ËÄšæ šæÒšç šæ íâ½Ë�ËÄrÇ‘– Åš|�kr %æ íâ½Ë�ËÄ%ç %æ íâ½Ë�ËÄ#íkŠÁ Ò ‚€Ö�rŠ‚€Ú�rÇ‘%æárÇ‘"Ò ‚€Þ�rŠ‚€ã�rÇ‘%æárÇ‘!Ò ‚€è�rŠÇ‘šçÄšçĤh ‡²Õ…¤i!‡²Ôtšç šæ íâ½Ë�ËÄšæ šæÒšç šæ íâ½Ë�ËÄ!š~�Œ#¢ š|�Œ#¢rÇ‘# Ìò‚€ì�rÇ‘%ç %æ íâ½Ë�ËÄ%æ %æÒ%ç %æ íâ½Ë�ËÄ$Œá$Œ%挢rÇ‘ íh‹úþ"íj‹éþ!íi‹Ùþ– .rÇ‘�‘rÇ‘€Â!Ìò€ „ „ „ „ r Ç‘!íiІ íh‹tÿ‘rÇ‘šçĤh ‡²Õ†¤i!‡²Ôušç šæ íâ½Ë�ËÄšæ šæÒšç šæ íâ½Ë��‘rÇ‘� ‘rÇ‘� ‘rÇ‘� –š.š¤-¤.j"‡.²ÕU‡-ç‡-æ"ŒÄ‡-ç‡-æ"ŒÄ7 ‡-指-æ£"Œ£i6 ‡-指-æ¢"Œ¢€ £h! ËÄ!š~�Œ#¢ š|�Œ#¢rÇ‘#ò€$!íÌà Ìò€(„ „ „ „ r Ç‘!íiŠ… íh‹sÿ‘rÇ‘š|�ò€,ò€0ä�š| �ò€4ò€8ä�š|�ò€<ò€@ä�šr‡-çć-çć-çÄr ‚€ò�r‡-ç ‡-æ íâ½Ë�ËÄ‘!‡-æŒ"Œ¢ r‡-çć-çć-çÄr ‚€ÿ�r‡-ç ‡-æ íâ½Ë�ËÄ‘!‡-æŒ"Œ¢ ‡|�ò€Dò€Hä�š|�6rÇ‘šç ËÄš~ �oš| �nš~ �mš|�l¤ ,Ô!b„„šy'¢šx&£šy'¢šx&¢r!Šb„„šy%¢šx$£šy%¢ æ+spš€)tpšspšæ(¥ š‚�…�s pš9~spš‚�Œ�s pš9}spš‚�Ž�s pš9~9z¢îspš‚�’�s pš9}9y¢îspš€)tpšspš‚�”�s pššspš‚�Ÿ�s pšš}spš‚�¡�s pšš~spš‚�¥�s pšš|spš€)tpšspš‚�§�s pš†spš†spšs pš‚�½�s pš†spš†spšs p5432r"Ç‘rÇ‘rÇ‘uš~�¥šÝGRAFDRAW |�¥‚�Î�‘Ô‘‚�Ò�‘Ô‘‚�Õ�‘Ô‘ ‚�×�‘Ô‘‚�Ú�‘Ô‘ ‚�Þ�‘Ô‘‚�á�‘Ô‘‚�æ�‘Ô‘‚�è�‘Ô‘‘r–ùÿh 1ÿÿùÿh1ÿÿõÿE &Ü ÿÿõÿE &Ü ÿÿùÿ"ÿÿùÿ"ÿÿøÿV³&ÿÿøÿV³&ÿÿùÿ‹<ÿÿøÿV³&ÿÿùÿ4 ˜ÿÿùÿ4 ˜ÿÿùÿ4 ˜ÿÿùÿ"ÿÿùÿ"ÿÿùÿ4 ˜ÿÿ‰€€€€€€€€€€€€€€€4( ùÿ"ÿÿùÿ"ÿÿ9Õÿ·ÿÕÿßÿËÿÁÿëÿëÿëÿëÿëÿëÿëÿëÿëÿëÿ$ Draw r IV.0 [1e]esult on window movement was Unexpected draw result ; Hit [RETURN]]Test (Y/N/Esc) ? @@  "Const Graf_Version = '0.5';  (Draw_OK = 0; {Nominal draw result} (Draw_Clipped = 1; Type to continue Fast,  Fill,  Solid,  Trace,  Plainn Patternedd !"#$%&'()*+,-./01234567789:;<=>?@{Draw performed, figure clipped} (Draw_Init = 2; {Draw variables at initial state} (Draw_Overflow = 10; ABCDEFGHIJKLMNOOPQRSTUVWXYZ[\]^_`abcdefgghijklmnopqrstuvwxyz{|}~ Left - Center - Right - ßÿóÿéÿTopCenterrBot {Draw ignored, coordinate out of range} (Draw_Not_Imp = 11; {Draw ignored, feature not implemented} tommâÿëÿôÿHi, mom!!Background color ? Pattern number ? Font number ? Planes enabled ? Global space at (, ) to ((,‘ŠÇ‘ íhŠÓ‘"ç$æ'Ämh %²Ô ni!&²Ô"ç!$|Œ�Ä"r#!íiŠé íhŠÛ‘$æ'$æ&$æ£$~í$|$æ¢ír"Ç‘#r#Ç‘"” b” –vÇ‘ Display at ((, ) to ((, Clipping region at ((, ) to ((, +Clipping region lower left corner (X, Y) ? Clipping regiuš‚�P�s pššçspšs pš‚�Z�s pš†spšs p1á€cËrÇ‘š‚�c�s pš†spšs p0á€cËr Ç‘š‚�kon size (X', Y') ? CursorrLineeBoxTexttCircleeBlock Area FillArcWindowse å  8 > ¶ Z Ï 4 (ñþñÅ1Œó`Û¡y�s pš† spšs p8rÇ‘š‚�t�s pššæ.spš‚�}�s pššæ,spš‚��s pššæ-spš‚�ƒ�s pšš ¼ HEAPOPS EXTRAHEA REALOPS STRINGOPGOTOXY EXTRAIO PASCALIOGRAFDRAW  isible border } 9 'Directions = (Left, { Left direction or position } 8Right, { Right direction or position } 8Up, { Up direction } 8Down, { Down direction } 8Top, { Top position } 8Center, { Center (horz/vert) position } 8Bottom); { Bottom position } 'Font_Type  = -1..99; 'Pat_Type = -1..99; 'Color_Index = 0..15; 'Point = Integer; 'Point_Array = Array [1..128] Of (Draw_Not_Found = 12; {Draw ignored, file not found} (Draw_No_Memory = 13; {Draw ignored, not enough memPoint; 'Sorcery = ^Integer; 'Win_Rec_P = ^Win_Rec; 'Win_Rec = Record 9Next_Window : Win_Rec_P; 9Win_X_Org, ory} (Draw_Win_Ovfl = 14; {Draw ignored, window list out of range} " Draw_Win_Imp = 15; {Draw ig { Global drawspace coordinates } 9Win_Y_Org, 9Disp_X_Org, { Display screen coordinates } 9Disp_Y_Org, 9Winored, implementation restrict} (Draw_No_Font = 16; {Draw ignored, no font defined} (Draw_Max = Draw_No_Fonn_X_Size, { Window size in pixels } 9Win_Y_Size : Point; 7End {of Win_Rec}; ' 'Core_Record = Record t; {Current maximum draw result number} ( "Type Cur_Attribute = (Cur_Disable, { Cursor disable } 8Cur_Enable, 9X_Min, { Left edge of screen } 9X_Max, { Right edge of screen } 9Y_Min, { Top edge { Cursor enable } 8Cur_Visible, { Cursor visible } 8Cur_Invisible, { Cursor invisible } 8Cur_Small,  of screen } 9Y_Max, { Bottom edge of screen } 9 9X_Org, { X-origin of fill pattern } 9Y_Org,  { Cursor small } 8Cur_Full); { Cursor full } 'Switch_Types = (Off, On); 'Overlay_Type = (Replace,  { Y-origin of fill pattern } 9 9X_CP, { X-current position } 9Y_CP : Point;{ Y-current pos { Replace contents } 8Xor); { Merge contents } 'Display_Type = (Fast, { No filling } 8ition } 9 9Line_Index, { Line color} 9Fill_Index, { Filled object color } 9Text_Index, { Text colFill); { Fill all polygons } 'Int_Type = (Plain, { Solid rectangle } or} 9Background : Color_Index; { Background color } ; 9Line_Style : Integer; { Line pattern } 9Display_Mode : Disp8Patterned); { User pattern } 'Edge_Type = (Solid_Line, { Solid border } 8Interior); { Invlay_Type; { Fast/Fill } 9Overlay_Mode : Overlay_Type; { Replace/Xor pixels } 9Polygon_Interior : Int_Type; { Plain/Patterned } 7End {of Core_Record}; " "Var Core : ^Core_Record;  Procedure Move_Abs (X_Position, 6Y_Position : Point); " "Procedur; " "Procedure Set_Palette (Pal_Name : String); " "Procedure Set_Value (Opcode, 7Value : Integer); " "Procedure Erase; e Move_Cursor (X_Position, 9Y_Position : Point); " "Procedure Move_Rel (Delta_X, 6Delta_Y : Point); " "Procedure Set_Cur" "Procedure Erase_Alpha; "  Procedure Flood; " "Procedure Arc_Rel (Radius : Integer; 5Start_Angle, 5End_Angle :sor (Attrib : Cur_Attribute); " "Procedure Size_Cursor (Size : Integer); " Procedure Set_Fill_Pattern (Pattern_Num : Pat_Ty Real; 1Var X_Start, 5Y_Start, 5X_End, 5Y_End : Integer); " "Procedure Arc_Abs (Var Radius : Integer;  9Polygon_Edge : Edge_Type; { Solid_Line/Interior } 9 9Font_Number : Font_Type; { Current font number } 9Font_Cols, pe); " "Procedure Box_Abs (X_Corner, Y_Corner : Point); " "Procedure Box_Rel (Width, Height : Point); " Procedure Write_B { Columns per char } 9Font_Rows : Point; { Rows per char } 9 lock_Pixels (Data : Sorcery; Rows, Columns : Integer); " "Procedure Read_Block_Pixels (Data : Sorcery; Rows, Columns : Integer9Char_Spacing : Real; { Character pitch } 9Top_Bottom, { Above/below text } 9Left_Right, ); " Procedure Set_Charup (DX_Charup, 8DY_Charup : Integer); " "Procedure Set_Font (Font_Num : Font_Type); " "Procedure { Left/right of text } 9Char_Path : Directions; { Write direction } 9DX_Charup, { Char rotation X Text (The_String : String); " Procedure Set_Line_Style (Dot_1, $yk$xj&$x‘&³&$~²¡ÔÉÓ#ÄŠ#Ä"Ä!Ä0ç/Ä–§i0ç/Ä–¸ ¡¥0ç/Ä–Ã0ç/ Ä–Ô)`„*¬P0ç/ Ä–+?0ç/ Ä"ŠZ!Š2‘8Š1Š/Š-Š+Š)Š'Š%Š#‘Š‘Š&%‘$ç#Ä$"Ä$y%‘%³%$|²¡Ô&%‘$ç#Ä$"ÄŠ$y$x&$y£%$x£$æ $æ 6$æ‘'$æ Ò/$æÒ$y$x&$y£%$x£$æ 6$æ‘)Š&$y£%$x£†$æ!$æ ‘9 Ô32‘7$瑊‘БР‘ŠŠÖ€OŠ#Š!Š!‘Š0æh0ç!Ä‘0ç ÄŠ!‘ŠÖ€d–r0æ°9¡8¡h Ô32‘70~í0|í0æ6‘% Ô32‘70ç/Ä–‰` È`/!Ä– 0k#y%¢j#x$¢i"³Ÿ"#~²Ÿ !³Ÿ !#|²Ÿ Ô"!‘Šd#æ°#æ ° 9¡8¡h Ô32‘7#æÒ#y#x%$#æ #æ 6#æ‘'#æ Ò##æÒ#y#x%$#æ 6#æ‘)Š %5Var Start_Angle, 9End_Angle : Real; 9X_Start, 9Y_Start, 9X_End, 9Y_End : Integer);   Procedure Set_Region (Xp0ç/Ä–¤P©0¤Ni‡Qh‡Nç/Ä„Ç@Ž@ ˜±‡Næ/°¡Õû ¤Od!פP‡O~³Ÿ‡O}³Ÿ ‡O|³Ÿ ‡O{³Ÿ ‡Oz³Ÿ ‡Oy³Ÿ Ô ‡Nç/ Ä‹µ‡Oz7z±‡O|± ‡_Start, 8Y_Start, 8X_Length, 8Y_Length : Integer); 8  Procedure Set_Window (Window_Chain : Win_Rec_P); "  ImplementO~‡Oz¢î‡Næ-²Ÿ Ô ‡Nç/Ä‹�‡PçćO}‡Næ)�Ó‡Pç‡O}‡O}‡Næ)�£Ä‡PçÄŠ‡Pç‡O}ćO{‡Oy¢7y²ñ‡P7y‡O{£Ä‡PçÄŠ‡P‡OyćPy‡Px¢î‡Næ+²ñ‡P‡ation Næ+‡Py£íćPçÄ„„Ð@€@‡O{‡O{‡Px¢î¼ÛÇ@Ž@!íi xh‹øþ‡Næ/°Õê„Ð@€@7yî¼Ü7yî¼¶Ÿ‡Q˜±¡Ô ‡Nç/Ä‹Ç!²Õ»‡Q˜±Õ©‡Qhi ˜±ÕŒ ¤Od!פP‡O~‡Næ*�Ó‡O~‡O~‡Næ*�£j‡Nç/ÄŠ‡O~j‡O|‡Oz¢7z²ñ7z‡O|£k‡Nç/ÄŠ‡Ozk"#¢î‡Næ-²ñ‡Næ-"£ík‡Nç/ćNæ/°‡Pz¡Ô‡Nç/Ä!"‡Py#‡Px‘4!íi‡Oxh‹n”ÜGRAFDRAW(�©0ç/Ä#1£³ñ i0ç/ÄŠ#1£i#1¢0~²ñ 0~h0ç/ÄŠ#1¢h!" !£€ÿ0æ¡£‘&"1£³ñ i0ç/ÄŠ"1£i"1¢0|²ñ 0|h0ÿ‡Næ(˜Ò‘2‡Nç(‡QÄŠ ‡Nç(‡QÄ‘3ЇNç/Ä–Q©0h ç/ Ä"²Ÿ$"¢î æ-²¡ÔR!²Ÿ#!¢î æ+²¡ÔC98¡Ô32‘7 çÄ Ä ç"îÄ ç!îÄ ç'$Ä ç&#Ä$#"!‘1ç/ÄŠ"1¢h#! !£€ÿ0æ¡£‘&–è©0h9Ô6 ç/ Ä"³" ~²¡Ô%!³! |²¡Ô8Ô32‘7"¥!¥8Ô32‘7Š ç/ÄŠ ç/Ä–C©0ç/Ä ²Ô9 °¥¥98¡Ô‘7Š ç/Ä–P0i!æ°9¡8¡h Ô32‘7!æÒ!y!x!æ 6!æ‘/Š Ô32‘7!ç/Ä– Š„4„�`ás0æ³Ô†4t†ç4t†ç4t0çáĆÓ8Ô32‘7 °¥ Š'9Ô$ ²Ô8 °Ó32‘7 °¥ Š Ò‘Š�Б9å8å Ô0ç/Ä–w©0ç/Ä91 ±¡Ô ³Ô8Ô32‘7 ¥8Ô32‘7Š0ç/ Ä–³©çÄ„ ‚€pëP„ ‡�‹ �€0¢È„ ‡�‹ �€0¢È„4¤�^„�^0ç"˜u„�^‚€v�u„�^„ ˜€Xu„�^˜s0ç/ Äp°Õ%„4„\áv°Õ†¤�^‡\¢�‡]Œ¥ ¢h"#£j"Ó„/„[áv±l�i$"° ÔÁ$ñ,0¤�[‡�[ç‡�ˆÄ‡�[ç‡Wć�[ç‡XćY¥ ‡Z¥ ‡�[ç/ÄŠ0ç/ Ä„/s–�ˆ™ à!à³Ô0çÄ Ò0çÄŠ0ç æ° 6¡°¡Ô y x"!y æ! æ  æ‘.!{ æ° 6¡°¡Ô y x"!x æ! æ  æ‘.–³ ©0~0y£¤ 0|0x£¤ ‡/Ò‡Ô‡.²ŸiЇ.³ŸiŠ /‡¢�±ih à�ÄŠ 0çÄ0ç!!à�Ä0ç/Ä–y<©„„=¬P0¤‡æ³Õ½j‡æ¢�‡æŒ�i†‡æíׇæí×xh‡æ‡æ�¢‡æ�¤ ‡æ‡æ�¢‡æ�¤ ‡k‡í�¤ l(¢�¤ (‹6),³ñ)oŠ,o Ô‡(Ò ‡'³ñ‡o‡'‘5*²l‹‡)-‘6o Ô‡(Ò ‡'²ñ‡o'-²'*²¡l‹í0y,³ñ0yoŠ,o Ô‡(Ò ‡'³ñ‡o汇æ²Ò(‡æŒm)‡æŒlŠ)‡æŒm(‡æŒl%̇çóÌÀ¾o„§î'Œk‡y¤‡x¤ ‡æ‹D‡æŠŠ,$�£¤ Š ,$£¤ ŠÖ€~‡æŠ-#¢¤Š-%£#%¢�‡'‘5)²l‹Ã‡0y-‘6o Ô‡(Ò ‡'²ñ‡o'-²')²¡l‹ž0x,³ñ0xoŠ,o Ô‡(Ò ‡'³ñ‡o‡'‘50y²lŠt‡0x-‘6o Ô‡(Ò ‡'²ñ‡o'-²'0y²¡lŠO¢¤Š -%£¤ŠÖ€ƒ,³Ÿ,$¢î‡|²Ÿ Ôj‹ó‡æŠŠ,$�£¤ Š ,$£¤ ŠÖ€‹‡æŠŠ-#%¢�£¤Š -#£%£¤ŠÖ€�,³Ÿ,$¢î‡|²Ÿ Ôj‹¤‡æŠ,#£%£¤ *,³ñ*oŠ,o Ô‡(Ò ‡'³ñ‡o‡'‘50x²lŠ'‡*-‘6o Ô‡(Ò ‡'²ñ‡o'-²'0x²¡lŠÖ€¾$(/°! å¡!å ¡ ¡ Õªþ$åk$ÕB(í�nl&¢�n&‹²‡*²ñ*Š,#%¢�£¤ ŠŠÖ€˜‡æŠŠ-$�£¤Š -$£¤ŠÖ€�-³Ÿ-$¢î‡~²Ÿ ÔjŠV‡æŠ,%£¤ Š,%£#%¢�¢¤ Š ,#¢¤ ŠÖ€¥‡æŠŠ-$�£¤Š -$£¤ŠÖ€ªm/&Ò+%³ñ+m‡%,‘6ml‹•-*³Ô*ml‹‰‡)²ñ)m/&Ò+%³ñ+m‡%,‘6mlŠj-)³Ô)mlŠ_‡0y²ñ0ym/&Ò+%³ñ+m‡%,‘6mlŠ>-0y³Ô0ymlŠ1‡0-³Ÿ-$¢î‡~²Ÿ ÔjŠÖ€²"°ÕÎ0æ°9¡8¡¤/Ô32‘7-¤ ,¤ „§¤n&‡²Õ „&§<³„&§;²¡ÕЇæŠP-'£¤ -'¢‡~²+᳡¤Š>-'¢¤ -³+î‡~²¡¤x²ñ0xm/&Ò+%³ñ+m‡%,‘6mlŠ-0x³Ô0xmlŠÖ€È$&/°! ¡/‡°¡å¡ Õ/ÿ$ñ.mj&(Ò0(/°!å¡Ô&Ô'.²ŸkŠ'.³Ÿk/&°!¡ å¡Ô&Ô%.²ŸjŠ%.³Ÿj"# ñŠ+,'¢¤ ,³*î‡|²¡¤Š,'£¤ ,'¢‡|²*᳡¤ŠÖ€¸‡Ô%-,…„&§<£!Œ×‡æ‡æ)(‡æ 60æ ‘(Šj+¤*¤ &ín‹Yÿ/Ô32‘7‡ç/"ÄŠ‡ç/Ä–>Â0y0x‡('&%,-0æ 0æ 60æ‘0#ñ/&Ò !å å /‡± kh&¤ #ÕVý–Ì„óã„óãÎñ „ „óãôŠ„ „óãôb„ó„ óÃôf„ó„ óÃô‡ŠX‡xi‡xhŠQ‡xi‡xhŠG‡`Ø(Ê`Ø'Ê`Ø&Ê`Ø%Ê`Ø$Ê`Ø#Ê`Ø"Ê`Ø!Ê0ç Ä0ç/Ä– u©0kj#æ°9¡8¡h Ô32‘7#y%¢#~²Ÿ#y%᳟ Ô##y%á³ñ#yáiŠ#xái‡xhŠ<‡xái‡xhŠ1‡xái‡xáhŠ%‡xái‡xáhЇxi‡xáhЇxi‡xáhŠÖ€Ò.Ò&‡‡!Ì.ÌfóÂÁ¿¢Ä‡‡ Ì.ÌbóÂÁ¿¢Ä‡‡‘Š4‡‡fó¿¢!Ì.ÌfóÂÁ~#y£i$Ì%àÌÃ!àÌ¿l!mj#x$¢#|²Ÿ#x$᳟ Ô##x$á³ñ#xáiŠ#|#x£i%Ì$àÌÃ!àÌ¿m!lj#y#x%$#æ #æ 6#æ‘& Ô32‘7#ç/"Ä#ç#y%¢Ä##x$¢Ä–†!0y£¿¢Ä‡‡bó¿¢ Ì.ÌbóÂÁ¿¢Ä‡f󿢇b󿢑!Ì.ÌfóÂÁ¿ Ì.ÌbóÂÁ¿‘‡‡‘‡‡!¢Ä‡‡ ¢Ä–M"0¤"‡"æ°Õoh‡"æ°9¡8¡:塤 (Ô32‘7„‡/̆óÂô$†#æ!#æ ‘9 Ô32‘7#ç/Ä–Û 0¤/²Ÿ.²Ÿ¡Õ©‡h.¢�/Œj„ "tmg"tlf"tk#Óo ./(„ '„ &„ ‘,¤ -æ°9¡8¡i!Ô32‘7-ç-yîÄ--xîÄ.í/ 0x£‘–m ©o0æ°9¡8¡¤ (Ô32‘7n0¤ +¤ j"*²Õ­n-"î×xi,"î×xh!)y£l )x£k)y$¢)~²Ÿ)y$᳟ Ô#)y$á³ñ)yámŠ)~)y£m#Ì$àÌÃ%àÌ¿k%líf./‘9-ç-yíÄ--xíÄ!Ô32‘7f#t-y.¢-~²Ÿ-x/¢-|²Ÿ Ô-ç/ÄŠ-ç/ÄŠ-ç/ Ä$Óg$t%Ó„ %tŠ-ç/Ä–6 0i#²Ÿ"²Ÿ¡ÔB!æ°9¡8¡h Ô32‘7n)x#¢)|²Ÿ)x#᳟ Ô#)x#á³ñ)xámŠ)|)x£m$Ì#àÌÃ%àÌ¿l%kn'Ô)y)x$#)æ )æ 6)æ‘&$±#± o)ç!Ä) Ä"íj‹Mÿ(Ô32‘70ç/&Ä–O ©m0æ°9!y!x$"#‘+ Ô32‘7!y"¢!~²Ÿ!x#¢!|²Ÿ Ô!ç/ÄŠ!ç/ÄŠ!ç/Ä–Z ‡„/„�[ás0æ³Ô †5t0çáÄe‚€wëPe‡�ˆ �€0¢Èe‡�ˆ �€0¢È„/¤�[„�[0ç"¡8¡n&Ô32‘7j0o)¤ h (²Õ©+ î×xl* î×xkj'y$¢'~²Ÿ'y$᳟ Ô#'y$á³ñ'yáiŠ'~'y£i#Ì$àÌÃ!àÌ¿k!lj'x#¢'|²Ÿ'x#᳟ Ô#'x#á³ñ'xáiŠ'|'x˜u„�[‚€}�u„�[e˜€Xu„�[˜s0ç/ Äp°Õ­„/„Wáv°Õœ‡Z‡Y£í‡X‡W¢�Œí�Œj†"t¥5Ówl€üih"!²Ô"kŠ!k„[… ×#Œp #£i$Ì#àÌÃ!àÌ¿l!kj%Ô'y'x$#'æ 'æ 6'æ‘&$±#± m'ç'y$¢Ä''x#¢Ä íh‹Qÿ&Ô32‘70ç/"Ä– Ä0h†i!~Ôe!} æ° 6¡Ô y x"!z æ! æ  æ‘.!| !"‡"æ ‡"æ 6‡"æ‘0‹¨„+óò€Ãò€À¾�n„'óò€Ãò€"À¾�o„„+órô„„+órô„„'órô„„'órô&€™ÚÔ ‡/Ì„óÂã¿mŠ ‡/Ì„óÂÓøP¹ÿ+ʸ@÷áYÁ‹Ê‹ÐXQ±ÓàŠÈX$ ÈËìÇbÿÿ‹v‹ÞKy隉^Ñã‰`‹v‹F 3ÿ‹VöÂt‹^;Ø~‹Ø;Vu ‹N;N|G‹Á‹ËéO3Û‹F;Æ~‹Æ;Vu ‹Nã¿m'€™ÚÔ ‡/Ì„óÂã¿lŠ ‡/Ì„óÂã¿l¤ &Ô%"²ñ"m'&í�Ò%°$°¡Ô¤ lŠ%!²ñ!m'Ô $"²ñ"lŠ$!²ñ!l:ñD9¤ ¥ &Ô‡&%ÄŠ‡&%îć%‡/‡&xí‘5;Á|G‹Ù‹ÈIé/þÊ€â;VuG3ÛöÂt‹F ÿt‹N;È}‹Áé ‹F ÿt‹^RWPS‹ð‹Âè [X_Z ÿt¾Ê¨u Ûu2;Fuƒ~u'‹NA€á:ÈuCé ÿt‹N9Nu ć&x³ñ‡&Ä+Ô‡$ÄŠ‡$$ć#‡/‡$xí‘5Ä Ò‡"y‡"x‡/&%'$!"‡"æ ‡"æ 6‡"æ‘0Š ‡/&%'$"!‡#x�;:ñh‡$x‡&x³Ÿ‡$x‡&x°‡#x‡%x³Ÿ¡ ¤ ,Ô‡"y‡"x‡&‡%‹NA€á:ÈuN Ûy3Û;Þ~é�‹N‹V¨{¨{Né+Né ¨uVé+V‰d‰6\»× ¢[è™þ‰EˆGŠfŠF»(׆à׋v ÐìrÐèé,ÐèPŠ^‹Ær ‚&„ó„ó�<kŠk‡"y‡"x‡$‡#'„ó„ó#�<,ñ‡"y‡"x‡&‡%&„ó„ó#£�<)¥ (Ô32‘7‡"ç/ Ä–/ž%'Ò$&³Ô`ò€&ôŠ`ò€*äôŠ`$&£Ì%'£ÌÃrô%'³ûu³°ÿ¢I¢Jèþè÷ýèÝý¹ èàýèãýXþG<uÃËì‹FH3ö‹N‹ùÑç÷߃Ç;ð} ÿx I‹ÙÑãÑã+û‹ÞÑãÑãûƒÇFëá‰NÊ‹ì‹F‹V3ö‹N‹ùÑç÷߃Ç;ð;Ê~ñ ``óò€.ÀôŠ $&³ñ``óò€2Àô„ `óô–î0h'$ y£Ìò€6ÀÆÂ# x£Ìò€:ÀÆÂÀr¿Ä& y x$#�=ô% y x"!�=ô'x&ó%ódcba‘ –w0k#æ°9¡8¡h ÿx I‹ÙÑãÑã+û‹ÞÑãÑãûƒÇFë݉v Ê Ô32‘7$àl#æÒ¥ $ò€>Ìaaaa‘ ¥ #æ Ò#æÒ#y#x$#æ#æ 6‘-Š$‘: Ô32‘7#y$¢#~²Ÿ#y$£³Ÿ #x$¢#|²Ÿ #x$£³Ÿ Ô#ç/ÄŠ#ç/Ä–0k%#y£Ìò€BÀÆÂ$#x£Ìò€FÀÆÂÀr¿i#æ°9¡8¡h Ô32‘7#æÒ¥ !ò€JÌbbbb‘ ¥ #æ Ò#æÒ#y#x!#æ#æ 6‘-Š!‘: Ô32‘7#y!¢#~²Ÿ#y!£³Ÿ #x!¢#|²Ÿ #x!£³Ÿ Ô#ç/ÄŠ#ç/Ä–M†w†€0w‘8” ‘0æ-í0æ+í‘"0çÄ‘‘–øÿ­W&ÿÿþÿÿÿþÿKÿÿùÿ‹<ÿÿùÿ‹<ÿÿøÿ­‹ìÆBÿÆCÿÆIÿÆJÿ3ö‰6dŠFöÐ6 V$¢¢"öÐ Fu€~tY‹N 6¡TȉN ‹V 6‹RÓ‰V 6N@£W&ÿÿüÿSÿÿøÿ­W&ÿÿüÿSÿÿùÿ"ÿÿùÿ"ÿÿùÿE &ÿÿùÿ‹<ÿÿÿÿÿÿÿÿÿÿùÿy˜ÿÿÿÿÿÿÿÿÿÿùÿy˜ÿÿËÿÏÿÑÿÓÿÕÿ×ÿÙÿ¦"6P‰¤"è1¢£"€~u8Ft‹N ‹V »è‹V »ÿÿÓ‹ñÏÑéè Ê è‹øèÚ‹ðVW6;R|u‹ÎÏÑéèöPèÂYè–PPV‹ÁH;Ç~‹ó‹Â‡ùèT‡ùé;Ç} ‹ÛÿÝÿâÿçÿìÿñÿöÿûÿ £ÿÝÿßÿáÿæÿøÿ Patxx.Ptrnn: Fontxx.Font:öÿíÿëÿâÿöÿéÿöÿíÿëÿçÿôÿéÿó÷Þ‹ÂÆè=^XQ‹È‹þ@;Ç} ‹ó‹Âè*é-;Ç~‹ó÷Þ‹ÂƇùè‡ù_^Ó;¤";÷u„_YÃSQRWVPA;Ï}EZRVè}‹Î€á‚éöÙ2ÀÑoÐÐÑoÐÐÑ/ÐÐ:£"tF;÷}þÉuçÿðÿûÿëÿöÿíÿâÿéÿöÿëÿöÿíÿ¹þ ÿ\ÿªÿ­ÿÂÿÕÿèÿÇþïþÿ=ÿbÿŒÿ±ÿÙÿKÿkÿwÿ–ÿ¡ÿÂÿÏÿðÿ¥ÿ¯ÿ¹ÿÄÿ᱃ÃëÚ[ZRWS‹Îè*ÿ^_ë·XX^_ZY[ÃVWSQR‹ñ€áðèÌú‰EˆG‹¦"³èD³è?³è:‹ÂZY[_^ÃVWSQR‹ñ€áðèœú‰EˆG6‹TJ³èz³èu³èp‹ÂZY[_^ÃÏÿÛÿçÿòÿÿÿ  &Fà}G@FK@JÿÿIxpˆLè�‰EˆG¹»Dé_»Z„¢"u];òtY°¹@è3‹ú‹ÖŠÊ€á„£"t »ÿÿ÷ÐÓè÷Ðé3ÛÓè;ÃuƒÂ€âð;úvèëíBÑèÑÛqù;ú}‹×ƒ>\t äp¨uèüuõþGÄ¢"uõ;òtñ°¹@èË‹ú‹ÖŠÊ„óò€À¾i„óò€ À¾j:ñ)‡/à¤/„+óÌÏñ „+ò€„+óÀô„'óÌÏñ „'ò€„'óÀô‡"y‡/¢‡"~²Ÿ‡"y‡/£³Ÿ ‡"x‡/¢‡"|²Ÿ ‡"x‡/£³Ÿ Ôh¤ Š:¤ *Ô ‡"y‡"x‡/éYè9°lærù»HéHè(°hærÃè ° ærù»Aé/€ã€Ë ˆf3É»féäp¨u¨töù»Qäp¨ uúäp¨ túèàÿŠærãCŠæpâùÃ6T6R‹Á�áQ±  þuÏÑ.¸)‹F %ðÿtW‹Ø±Óè£^£`‹N‹V^)^ èBô‹6¶)Ñ.¸)rÑîé"Qè®óèãóŠ^Ñîr‚ûu³èÛó¹è¥óè¹óYþÁƒþuÌÑ.¸)‹F ÀtD£^£`‹N‹Vèðó‹6¶uÐËì‹F ‹^ ‹v‹V‹N½X‰F‰^‰v ‰V‰NÇF‹ì‹N‹Á£ 1öv ŠÜ2ÿ‹ÁÑàu逿+øH3Ò÷öN3À; 1t‰ 1èi ÿxƒÇ+ù+ù+ù+ùIF;vu3ö )Ñ.¸)rÑîéQè\óŠ^Ñîr‚ûu³èŒó¹èVóèjóYþÁƒþuÏÊ‹ì‹^‹V‹F‹NèÝt‰^‰V‰F‰NèÊÆ[‹F Àt±Óè£5+Òu‹VJøøøøƒÇ@ Ûu‹^ K;Áx»u ; 1tè&H£1‹N‰ 1ÁH3Ò÷v ‰1‹ÁHöv2öŠÔ3ÛÇ1‹ò¿3Àèc3À‹ò¿+ù+ùxéàB;Vu3Ò@ ÿxEƒÇ+ù+‚éöـᄣ"t »ÿÿ÷ÐÓà÷Ðé3ÛÓà;Ãu€âðƒê€Ê;×~žè«ëêJÑàÑÛqù;×뎋ùè2ÀÑoÐÐÑoÐÐÑ/ÐÐËñè�ù‰EˆG»$!ö¢"è»&!ö¢"è»"!ö¢"ƒ~ uéø3Û‰7+‹^‰9+÷ãF£;+‹F £?+‹F£=+‹F£A+‹7+¡9+£C+‹6;+‹?+ŠËÑëÑëÑë€á¿P6‹ÓèˆOÿC+B65+¡C+;F u ‹vÇC+;Vt÷ÂuÓ¡=+è»"!Ü‹Æ$ð+Ç÷رÓè‹È�uP°è#‹Î€áÓèY‰ItƒÃè(ëó3À‰ƒÃâùþGâ[‰\Sè¤øèÑø¹è¤øèÀø[äp¨túärŠàäp¨túär†Äÿ\ÃPSQRAÆ[ =r¸£^£`RJ�â‰\‹A+‹VèËò‹F» × Èè>òèZòŠ^èvò¹è@òèTòƒ?+‹F;?+w)?+ëôZƒA+ƒ.=+véLÿ‰7+¡C+£9+ƒF‰6;+¡7+;Fté+ÁHx]£\÷Ø£^Ñà£`ÇbèÜø‰EˆGŠfŠF»(׆à×ÐìrÐèé!ÐèPŠ^r Ûu³ècøè>øè$ø¹ è'øè*øXþG<uÎZY[XÃ3À6£T6£R6ÇNÿ6ÇPÿ°ÿËì‹V‹N 2À Òy÷Ú  Éy÷ÙþÀ Àz‡Ñ»× @¢[Ç\Çbÿÿ‰^‰d‰` Étb Òt^‹N‹Vèò‰EˆGŠfŠF»(׆à׋v ÐìrÐèé,ÐèPŠ^‹Ær ‚ær°æv°æFè1ø°nær¹»0èAø¹»9è8ø¹»;è/ø¹»=è&øèø3ÀPP»S»SP»SPè 3É3Ò6ˆVèdþ6¢V‹ì‹nÇFÇFÇF€ÇFà42ä‰F°ûu³°ÿ¢I¢Jèœñèwñè]ñ¹ è`ñècñXþG<uÃÊ‹ì2ä‹^‹ËCÑëC€ãþ‰0-‹ÙƒÃ€ãø+ÙKÑëÑëÑë‰.-ƒÁ‰,-ÿNyé—3É‹^‰2-2Û‹v6Š àЉF °‰F ¹äp¨ túäp¨ uúâòè¢÷° ærÊè˜÷° ærËè�÷° ærË‹ì‹F 6£T‹F6£R‹FH6£N‹FH6£PÊ‹ì‹N ‹V‹~×Jè�÷»R‹v ÑæÑæ‰±Óç‰xèL÷Ê èÐÞÐèÐÚÐèÐßÐèAöÁu‹~6ˆ5ÿF‹~ 6ˆÿF ‹~6ˆ=ÿF;,-t;2-u ‹v62-ë²þÃöÃu³Fë­÷Ù€át‹~Òî6ˆ5‹~ Òê6ˆ‹~Òï6ˆ=‹.-NN N‹0-N‹ìŠFöf Hx ‹ØŠFöfHy鼊N€á€Éˆ[zöÁt^éFöÁt öÁt‹Ø^Æ�'ŠF ¢„'‹Fö[u‹F£‡'ƃ'ŠF¢†'µ¿P „'¢…' éaÿ‹^ è‹^è ‹^èÊ3ÉÐìÐÑ6‰ËìŒÐŽÀüÆBÿÆCÿÆ[‹F ‹Ð6T%¢".‹N‹ÙAÑéA€áþuéÕÓJ6+Nv+Ú‰^؃ÃÑëÑëÑëÑë‰\ÿNxØ�'¢‚'‹vІ'´Š6ƒ'ŠÞÐëÐëÐë2ÿÞé öÆu:Vu 6ŠCŠÎ€áÒè¨tùÐþÊuÐèþÆŠVþÌt:vuЊÌÒ-Oþ…'uþ‚'ŠN ˆ…'Š^‚ÃÐëÐëÐë2ÿóþÍt Š‚':QÑé‹~3Àó«‹V 6;Pp‹N èSð‰EˆG°¢#.» ×€&GüGè½ïèêï¹è½ïèÙïäp¨túärŠàäp¨túär†ÄŠ".Óè¶*ñ‹~3ÛŠ#.±Ñès6ÒÂC;^u #.ÐàNt낈6ƒ'ˆ†'°*Ä2ä£^£`±*Í2í‰\èäõ‹‡'‹Vö[u‹V‡Êè0ö‰EˆGŠf ŠF»(׆à×ÐìrÐèé$Š^ÐèPr Ûu³ Ûu³è»õèõ¹è‚õè–õXþ<u YNÿF émÿöÃuGþÎuÔäp¨túärŠàäp¨túär†à¶ë¼Ê ÒtPy ÷Ú+ÚyÓ3ÛéCJy3Ò‹ûú6+>Nv+×B Ét)y ÷Ù+ÁyÈ3Àé@Iy3É‹øù6+>Pv+ÏG<uËö[{ƒ‡'éƒ.‡'Šƒ':NtéÍþ‰vŠ…'ˆ„'¸€>[r÷Øö[uFéFŠ‚'ˆ�':Nté{þÊ‹ì‹F‹^‹V‹N 2À Òy÷Ú  Éy÷Ù A Òt ÉËìÆIÿÆJÿèòî3ö‹~ ‰>ˆ/ ÿtqº+×+×;>ˆ/t‰>ˆ/è`‹Æ Òy ÑàÑàé +ÇÑàÑà OÐF;÷rÒu ;>ˆ/tè4‹ÆÑæ‹þ‹V+ÐyòF3ÒJR‹V +Ðy;Ñs‡ÑþÀ» × ¢[‹Â£\‹Ù È‹ÑÑã‰b‰^)^Ñà+؉`é ‹ì‹F‹N ‹^‹V èhuéb‰F‰^‰N ‰V Æ[‹ì‹N I‰\‹F»(×£¶)¹‹F׊ØÓàúG3ÒJRVWÿvÿvÿvè£ùÊ R‹ÞKÑãSÇb‹N+ÎAyÙ3É6¡N+Ã+Áy؉\÷Û‰^Ñã‰`Æ[ ‹V ×6;PQèVY‹V +×xèK[‹V +ÖByÚ3Ò6¡P Êࣸ)ÆBÿÆCÿ»I¸ÿÿ‰CCâ÷èkô‹F‹È6T%tY»+Ø‹F ;Ãv‹Ã£^£`F)F ‹Vèžô‹6¶)Ñ.¸)rÑîéQè ôŠ^Ñîr‚ûu³è:ô¹èôèôYþÁƒ+Ã+Â}؉\÷Û‰^Ñã‰`Æ[ ‹N+ÏxRèZ‹NÏ6;NèZÃè0î‰EˆGŠfŠF»(׆à×ÐìrÐèéÐèPŠ^r‚ûu³èÀíè„í¹ è‡íèŠíXþG<! l++ÿ*ò*ï*å*±*­*š*—*†*U*Q*A*>*** **ó)ï)é)Þ)±)©)¥)¡)•)�)Š)T)P)@)7)0),)))) ))Ì(Ã(¿(°(©(¢(˜(•(Œ(ˆ(}(e(^(X(( (((ý'ú'÷'ò'ë'ç'Þ'×'Ð'­'i'±&¨&Ÿ&–&\&*&!&&&& &&ý%ó%Ê%Æ%Â%„%}%y%r%n%g%c%`%\% %ê$å$Ó$�$‚$a$]$5$1$-$ô#¼## ##Ñ"Â"»"¶"±"¬"£ Œ ‰ c Z V O I F B =7&굨�~xrnö3ô34þ3 444444(4&42404<4:4F4D4P4N4Z4X4d4b4n4l4x4v4‚4€4Œ4Š4–4”4 4ž4ª4¨41¶23«3Ì"Ö&Ý&ðå"f$k&;'(*B.õò"K#o&B'R'�.z/\0~0l2)3^3#{&J'a.S/50±0ª2÷2}3ü"t&'*** HEAPOPS EXTRAIO STRINGOPEXTRAHEAFILEOPS REALOPS  11 11 (X direction size, Y direction size)  t t t t t t t t t t t  t r r r r r r r r r t  t  r y y y y y y y r t  t r y g g g g g y r t  t r y g . . . g y r t  t r y g . . . g y r ù+ù+ùWPV‹ø+>1vW÷Ø@è)_‹ò¡1è ^X_Ð+1;Vr+VëöC;^u3ÛI£1ƒÇøøøø öu‹vN;ÁxŸ‹Ð÷ÚBÑàHVy+òÂ3Ò6‹>P+ú+øGyÇF;v|+vëöÙ‹1+Ù‹ùÑçO÷ÙANy+Ùù3É;^ r+^ ëö6‹.N+é+ïEyý½X‰N‰V‰^ ‰v‰~‰Fè�øÊUPSQVWR‹ÐÑâJ÷Ø@Fy+ØÐ3À;^ |+^ ëö6‹>N+ø+úGy׋~ùÑá÷ÙϽX‰V‰^ ‰F‰N‰vWxèEøY6;P ZR‰N‰Vè2øZ_^Y[X]ÃUSRQFyø~+ð3À;v|+vëö6‹P+Ð+×B}ú~}‹V1RÑ+1J6+N÷Úx3ÒÑ+1R‹Ñ+1÷ÙANy+ÙÑ3É;^ |+^ ëö½X‰N‰V‰F‰~‰v‰^ P Òtxè¡÷¡1‰F �FX À‰FXx t 9Ft‰Fè‚÷YZ[]Ãÿÿÿ&ö3g&ÿÿÿ&4$CURSOR $EQUAL Ü)ÿÿÿ& 4a)ÿÿÿ&4‚,ÿÿÿ&4º)ÿÿÿ&(4‰'ÿÿÿ&24E+ÿÿÿ&<4$.ÿÿÿ&F44-ÿÿÿ&P4Š/ÿÿÿ&Z4 1ÿÿÿ&d4¨"ÿÿÿ&n4"ÿÿÿ&x44'ÿÿÿ&‚4$'ÿÿÿ&Œ4,'ÿÿÿ&–4W'ÿÿÿ& 4ª ÿÿÿ&ª4ã ) \ ä ª ‡ÿ RMHC>94/*%  ýøGTQ è �;"ìäÞÖÏ«¥y ¬«¾ 9 Åc½?ϲðŽDÕª¤vÜQ¾>Ê3�3‰3w3p3†2=2'22 2Ï1¿1³1¬1£1b1\1;1ü0Ì0Ã0¿0š0–0�0Š0Q0M0G0A0#0ß/µ/¯/ /“/Ž/ü.è.Ù.².­.O.G¦G¦¨.¥. .œ.y.H.7.2.-.û-î-¿-¶-°-s-b-[-F-#- - -ã,Ú,Ö,Á,½,¹,³,­,©,£,w,t,l,i,f,\,W,P,J,B,&,,, , ,þ+î+â+ß+Ú+Î+À+¼+¸+µ+²+®+¨+¢+œ+”+�+~+" &Start_Angle, &End_Angle : Real; " $Procedure Part_Pie(Pass_Color,X_Orig,Y_Orig:Integer ; End_Angle,Start_Angle:Real); &Be$TAG $CURSOR $EQUAL $LAST A $SYNTAX gin (Move_Abs (X_Orig,Y_Orig); (Core^.Line_Index := Pass_Color; (If Core^.Line_Index = Core^.Background Then *Core^.Line_Index := Succ (Core^.Line_Index) Mod 8; (Arc_Rel (Pie_Radius,Start_Angle,End_Angle,X_Start,Y_Start,X_End,Y_End); &End; & $ProceYt’tqYdure Write_Percent(Pass_Color,X_Orig,Y_Orig:Integer ; Str:String); &Begin (Move_Abs(X_Orig,Y_Orig); O.#¦‚§Q(Core^.Text_Index := Pass_Color; (Text(Str); &End; & $ "Begin {of Arc_Test} $Set_Line_Style (On, On, On, On, On, On, On, On); $Core^.Polygon_Edge := Solid_Line; $Core^.Overlay_Mode := Replace; $Core^.Top_Bottom := Center; $Core^.Left_Right := Center;  $Part_Pie(1,140,340,0,PI/3); $Write_Percent(2,140+49,340+34,'16%'); $Part_Pie(1,140,340,PI/3,PI-PI_8); $Write_Percent(3,140-12,340+60,'35%'); $Part_Pie(1,140,340,PI-PI_8,PI+PI_4); $Write_Percent(4,140-60,340-17,'15%'); $Part_Pie(1,140,340,P t  t r y g . . . g y r t  t r y g g g g g y r t  t r y y y y y y y r t  t r r r r r r r r r t  t t t t t t t t t t t   Program Test_Core;  {$U *Grafdraw.Code}  Uses Graf_Draw;  Const Esc = 27; { Escape key } Var Font_ID : Font_Type; $Pat_ID : Pat_Type;  BUF : PACKED ARRAY [0..1] OF CHAR;  "  Procedure Test_Arcs; "Const Pie_Radius = 100; (PI_8 = 0.39269907; (PI_4 = 0.78539815; (PI_2 = 1.5707963; (PI = 3.1415926278; (PI_x2 = 6.2831852; (PI_x3_2 = 4.7123889; (PI_x3_4 = 2.3561944; (PI_x7_4 = 5.497787; (PI_x5_4 = 3.9269907; "Var X_Start, &Y_Start, &X_End, &Y_End, &Radius : Integer; # cent(3,512-12,140+60,'35%'); $Part_Pie(3,470,140,PI-PI_8,PI+PI_4); $Write_Percent(4,470-60,140-17,'15%'); $Part_Pie(1,512,140n_Edge := Solid_Line; *Polygon_Interior := Plain; (End; &Cur_Y := 0; &Move_Abs(32,30); &One_Line(16*4); &One_Line(35*4); ,PI+PI_4,PI+PI_2); $Write_Percent(5,512-26,140-52,'10%'); $Part_Pie(1,512,140,PI+PI_2,2*PI); &One_Line(15*4); &One_Line(10*4); &One_Line(24*4); $End; "(*===========================================*) "Begin { Line_Cha$Write_Percent(6,512+40,120-27,'24%');  "End {of Test_Arcs};       Procedure Line_Chart; "(*====================rt } $Core^.Line_Index := 1; $Core^.Text_Index := 1; $Move_Abs(32,30); $Line_Abs(32,220); $Move_Abs(32,30); $Line_Abs(372,=======================*) "Procedure Coords_Vert; "(*=================================*) $Procedure One_Coord(Y_Value:Integer30); $Coords_Vert; $Coords_Horiz; $Lines; $Move_Abs(32,30); $Line_Abs(32,220); $Move_Abs(32,30); $Line_Abs(372,30); "End ; Str:String); &Begin (Move_Abs(32 - 4 - Length(Str)*7,Y_Value); (Text(Str); &End; "(*=================================*) ;    Procedure Bah_Chart; "(*===========================================*) "Procedure Coords_Vert; $Begin &One_Coord(30,'0'); &One_Coord(70,'10'); &One_Coord(110,'20'); &One_Coord(150,'30'); &One_Coord(190,'40'); $End; "(*=================================*) $Procedure One_Coord(Y_Value:Integer ; Str:String); &Begin (Move_Abs(290 - 4 - Length"(*===========================================*) "Procedure Coords_Horiz; "Var $Count : Integer; $(*========================(Str)*7,Y_Value); (Text(Str); &End; "(*=================================*) $Begin &One_Coord(280,'0'); &One_Coord(320,'10'=========*) $Procedure One_Coord(Str1,Str2:String); &Begin (Move_Abs(54+Count,20); (Text(Str1); (Move_Abs(54+Count,8); (Te); &One_Coord(360,'20'); &One_Coord(400,'30'); &One_Coord(440,'40'); $End; "(*===========================================*)xt(Str2); (Count := Count + 60; &End; $(*=================================*) $Begin &Count := 8; &One_Coord('Labor','');  "Procedure Coords_Horiz; "Var $Count : Integer; $(*=================================*) $Procedure One_Coord(Str1,Str2:Stri&One_Coord('Parts',''); &One_Coord('Profit',''); &One_Coord('Over','Head'); &One_Coord('Freight',''); $End;  ng); &Begin (Move_Abs(312+Count,270); (Text(Str1); (Move_Abs(312+Count,258); (Text(Str2); (Count := Count + 60; &End; $("(*===========================================*) "Procedure Lines; $Var &Cur_Y : Integer; $(*==============================*=================================*) $Begin &Count := 8; &One_Coord('Labor',''); &One_Coord('Parts',''); &One_Coord('ProfitI+PI_4,PI+PI_2); $Write_Percent(5,140-26,340-52,'10%'); $Part_Pie(1,140,340,PI+PI_2,2*PI); $Write_Percent(6,140+40,320-27,'24===*) $Procedure One_Line(End_Y:Integer); &Begin (Line_Rel(60,End_Y - Cur_Y); (Cur_Y := End_Y; &End; $(*==================%');   $Part_Pie(1,512,140,0,PI/3); $Write_Percent(2,512+49,140+34,'16%'); $Part_Pie(1,512,140,PI/3,PI-PI_8); $Write_Per===============*) $Begin &With Core^ Do (Begin *Line_Index := 4; *Display_Mode := Fast; *Overlay_Mode := Replace; *Polygo$ ',''); &One_Coord('Over','Head'); &One_Coord('Freight',''); $End; " "(*===========================================*) "Procedure Bars; $Var &Count : Integer; $(*=================================*) $Procedure One_Bar(Color_Pass,End_Y:Integer); &Begin & Core^.Fill_Index := Color_Pass; (Move_Abs(290+Count,280); (Box_Rel(60,End_Y); (Count := Count+60; &End; $(*=================================*) " Begin $ With Core^ Do (Begin *Line_Index := 7; *Display_Mode := Fill; *Overlay_Mode := Replace; *Polygon_Edge := Solid_Line; *Polygon_Interior := Plain; (End; &Count := 0; &One_Bar(2,16*4); &One_Bar(3,35*4); &One_Bar(4,15*4); &One_Bar(5,10*4); &One_Bar(6,24*4); $End; "(*===========================================*) "Begin { Bah_$TAG $CURSOR $EQUAL $LAST A $SYNTAX Chart } $Core^.Line_Index := 1; $Core^.Text_Index := 1; $Move_Abs(290,280); $Line_Abs(290,470); $Move_Abs(290,280); $Line_Abs(630,280); $Coords_Vert; $Coords_Horiz; $Bars; $Move_Abs(290,280); $Line_Abs(290,470); $Move_Abs(290,280); $Line_Abs(6öÓÀÓ¤30,280); "End;  $  Begin {of Test_Core} "BUF[0] := CHR(26); "BUF[1] := 'G'; "UNITWRITE(1,BUF,2); "BUF[1] := 'N'; "UNITO.#¦S§rWRITE(1,BUF,2); "Plane_Enable (7); "Core^.Background := 0; "Pat_ID := 0; "Font_ID := 0; "Set_Fill_Pattern (Pat_ID); "Set_Font (Font_ID); " " "Erase_Alpha; "Erase; "Test_Arcs; "Bah_Chart; "Line_Chart; "Readln; "Erase; "Erase_Alpha;  End {of Test_Core}. %  &Fill_Index := 1; &Flood; $End; "End;  (*===========================================================*)  Procedure Letter_ "Set_Fill_Pattern (Pat_ID); "Set_Font (Font_ID); " " "Erase_Alpha; "Erase; "Letter_A; "Letter_P; "Letter_C; "Put_In_PP; "Const $Start_PX = 288; $Start_PY = Start_Y; "Begin $Move_Abs(Start_PX , Start_PY); $Line_Rel(0,Letter_H); $Line_Rel(L; "Readln; "Erase; "Erase_Alpha;  End {of Test_Core}. etter_H Div 2 , - Letter_H Div 2); $Line_Rel(-5 * Letter_H Div 16 , 0); $Line_Rel(0 , -Letter_H Div 2); $Save_X1 := Core^.X_CÍTESTCORE P; $Save_Y1 := Core^.Y_CP; $Line_Abs(Start_PX , Start_PY); "End;  (*========================================================  Program Test_Core;  {$U *Grafdraw.Code}  Uses Graf_Draw;  Const Esc = 27; { Escape key } &Start_X = 100; &Start_Y===*)  Procedure Letter_C; "Var $Start_CX : Integer; "Begin $Start_CX := Save_X1+8; $Move_Abs(Start_CX , Start_Y); $Line_ = 150; &Letter_H = 180;  Var Font_ID : Font_Type; $Pat_ID : Pat_Type;  BUF : PACKED ARRAY [0..1] OF CHAR; $Save_X1,SaAbs(Start_CX , Start_Y+(Letter_H Div 2)-8); $Line_Abs( Start_X+16+(3*Letter_H Div 2 ) , Start_Y+(Letter_H Div 2)-8 ); $Line_Reve_Y1, $Save_X2,Save_Y2 : Integer;  " "Procedure Letter_A; "Var $Save_X1,Save_Y1, $Save_X2,Save_Y2 : Integer; "Begin l(9*Letter_H Div 48 , -9*Letter_H Div 48); $Line_Rel(-8*Letter_H Div 48 , 0 ); $Save_X1 := Core^.X_CP; $With Core^ Do $Begin &Core^.Line_Index := 1; &Move_Abs(Start_X,Start_Y); &Line_Rel(Letter_H,Letter_H); &Line_Rel(0,-Letter$Save_Y1 := Core^.Y_CP; $Line_Rel(5*Letter_H Div 48 , -5*Letter_H Div 48); $Line_Rel(8*Letter_H Div 48 , 0 ); $Line_Rel(9*Le_H); &Line_Rel(-(Letter_H Div 4),0); &Line_Rel(0,Letter_H Div 9); &Line_Rel(-(Letter_H Div 4),0); &Save_X1 := X_CP; &Save_Ytter_H Div 48 , -9*Letter_H Div 48 + 2); $Line_Abs(Start_CX , Start_Y); $Move_Abs(Start_CX+3 , Start_Y+3); $Flood; "End;  (1 := Y_CP; &Line_Rel(-(Letter_H Div 9),-(Letter_H Div 9) ); &Save_X2 := X_CP; &Save_Y2 := Y_CP; &Line_Abs(Start_X,Start_Y); *===========================================================*)  Procedure Put_In_P; "Begin $Move_Abs(Save_X1-55 , Save_Y1+55)&Move_Abs( Save_X1 + 5 Div 2 * (Save_X1-Save_X2) , 0Save_Y1 + 5 Div 2 * (Save_Y1-Save_Y2) ); &Line_Rel(3 Div 2 * (Save_X1 - S; $Line_Rel(-20 , 20); $Line_Rel(0 , -20); $Line_Rel(20 , 0); $Move_Abs(Save_X1-50 , Save_Y1+50); $Flood; "End;  (*======ave_X2) , /3 Div 2 * (Save_Y1 - Save_Y2) ); &Line_Rel(0,-3 Div 2 * (Save_Y1 - Save_Y2) ); =====================================================*) &  Begin {of Test_Core} "BUF[0] := CHR(26); "BUF[1] := 'G'; "UNITWR&Line_Abs( Save_X1 + 5 Div 2 * (Save_X1-Save_X2) , 0Save_Y1 + 5 Div 2 * (Save_Y1-Save_Y2) ); &Move_Abs(Start_X+10,Start_Y+3);ITE(1,BUF,2); "BUF[1] := 'N'; "UNITWRITE(1,BUF,2); "Plane_Enable (7); "Core^.Background := 0; "Pat_ID := 0; "Font_ID := 0;& œ���€Œò€~ò€ƒÀÌò€‡Â��€(¢€x£‚€ž��– I)`„*¬P€ £`§Œ£‡,r`˜r–,|‚€ ��€F‚€¡��€n‚€£��€–‚€¥��€¾‚€§��–® R„*„U¬P`„S¬P€6­¢r„*˜r€6­¢r`˜r­€<¢¦–Vòh‚€©�‚€¬�� ‚€­�‚€°�� ‚€±�‚€µ�� ‚€¶�‚€¹�� ‚€¼�‚€À�� –€< ­£r€€€€€€€€€€€€€€€€ ¦–Kši!ç ËÄ!ç Ä!çÄ!çÄ!çÄh€ rŒ� €#Œ� Œ� Œ� Œ� –˜šç ËÄšç ËÄ€ r€ €Ür€ r�tr��Ö ~å~å&÷DEMO" @Úü@   þ Üå@Úü@ þ ²1� € r€ €Ür€ r�tr–¶)`„*¬P�"£`§Œ£‡,r`˜r–,î�‚€Á���@‚€Â���h‚€Ä����‚€Æ���¸‚€È��–&R„*„U¬P`„S¬P�(TESTCORE!Æšlšç ËÄ€d€–r€´€´r€´ár€´�ár€´ �r€´�ár$yk$xj€´ �ဴ �ár$yi$xh€d€–r#�#!£Œ¢"�" £Œ8­¢�r„*˜r�8­¢�r`˜r­€<¢¦–Vjh‚€Ê�‚€Í��‚€Î�‚€Ñ��‚€Ò�‚€Ö��‚€×�‚€Ú��‚€Ý�‚€á��–’šç !ËÄ�"­¢¢r�#!£Œ�" £Œr�" £Œár#�#!£Œ¢"�" £Œ¢r€d ¢€–¢r$ç ËÄr–� €–r€´r€´�€´�ár€´Œ�ár€´�áršy¥šx¥�r€< r ­€<¢¦–Ùši!ç ËÄ!ç Ä!çÄ!çÄ!çÄhŒ�€#Œ�Œ� Œ�Œ�–:šç ËÄšç ËÄ�"�r�"�� €–r–Ÿ6¢h €–r €–€´�¢£r€d¢€´Œ�¢€–€´�¢£r €´Œ€0� €´Œ€0�ár€´Œ€0�áršy¥šx¥€´Œ€0�€´Œ€0�ár€´Œ€0�r €´ŒÖr�"�r�v�r� ���"�r�"�Ör�"�r�v�r–®†ËȆË€GȆp†Ë€NȆpršçËÄá€cË¥€0� €´Œ€0�á¢r €–r ¢€–¢rr–Ê6€7£5€7¢rárárr6€2£5€2¢rr–@†ËȆË€GȆp†Ë€NȆprš€€€€€€€€€€€€€€€€á€cË¥1á€cËr0á€cËr rr‘‘ ‘št prr–õÿE &Ü ÿÿõÿE &Ü ÿÿõÿE &Ü ÿÿøÿV³&ÿÿõÿE &Ü ÿÿøÿV³&ÿÿõÿE &Ü ÿÿøÿ­W&ÿÿõÿÖ ~å~å&÷DEMO" @Úü@   þ Üå@Úü@ þ ²1E &Ü ÿÿøÿ­W&ÿÿõÿE &Ü ÿÿùÿ"ÿÿõÿE &Ü ÿÿùÿ"ÿÿõÿE &Ü ÿÿõÿE &Ü ÿÿõÿE &Ü ÿÿõÿE &Ü ÿÿøÿV³&ÿÿõÿE &Ü ÿÿøÿV³&ÿÿõÿE &Ü ÿÿÌTESTCOREØ])(ršç *ËÄšæ šæÒšç šæ íâ½Ë�ËÄ€d`ód󈈈ˆr – ~)`„*¬P‡-‡,ršç ‡.ËÄ`˜r–.øÿ­W&ÿÿõÿE &Ü ÿÿøÿ­W&ÿÿõÿE &Ü ÿÿùÿ"ÿÿõÿE &Ü ÿÿùÿ"ÿÿõÿE &Ü ÿÿ16%35%15%10%24%16%35%15%10%24%01002003004, ršçÄšçÄšçÄšçÄ€Œ�TÌò€ÌÃ�€Œ€1¢�T€"¢‚€Œ��€Œ�Tò€ÌÃò€ ò€Á�€Œ £�T€<¢‚€Ž��€Œ�Tò€ò€00LaborPartsProfittOverrHeaddFreight0100200300400LaborPartsProfittOverrHeaddFreight7KùÎÝÁò€ò€#À�€Œ€<£�T£‚€���€Œ�Tò€'ò€,Àò€0ò€5À�€Œ£�T€4£‚€’��€Œ�Tò€9ò€>ÀÌò€BÂ�€Œ€(¢�@£‚€”���€ŒÌò€GÌÃ��€o{„@Y'¨1 AŸPASCALIOREALOPS GRAFDRAW 1¢€Œ€"¢‚€–���€Œò€LÌÃò€Qò€VÁ�� £€Œ€<¢‚€˜���Ö€Œò€Zò€_Áò€cò€hÀ��Ö€<£€Œ£‚€š���€Œò€lò€qÀò€uò€zÀ��£€Œ€4£‚€)TESTCORE ' $CURSOR $EQUAL ëëO.‰¦‰¦kTESTCORE  €€€€€€€€€€€€€€€€ ( Ö °å°å&÷GRAFICS@Úü@ þ þ æ@Úü@ þþ ¨0jTESTCOREî jiš`s pšspÔ hcšæ(Åšæ(¤ ŠF*ç*}"¢ÄŠ?*ç*}"£ÄŠ5*ç*~"£ÄŠ+*ç*~"¢ÄŠ!*çÄ*çÄŠ!ñj"    The file NGRAFDRAW.CODE is the same as GRAFDRAW.CODE except  it has been run through the native code generator. This mŒ ¢€0£jiŠÖ€Lcšæ(¹ñGišæ(r#šæ/±¡Ô!š‚€€�s pššæ/spšspšæ/ ³Ô šæ(cÅ „ ÐÚÕ3ÿ ¤–=šæ/aÐÚñ3çËÄá€cË¥á€cË¥1á€cËr0á€cËr rr‘‘‘‘šs prr–Ò†e çPASCALIOGRAFDRAW eans  that by using NGRAFDRAW.CODE instead of GRAFDRAW.CODE you should  see some performance improvement. ( Ô0š‚€“�s pššæ/spš‚€Ÿ�s p â¼Ç‘hšç/ ËÄ–T*a„+¬P¤-rrt–,\r–6"rÇ‘š~ih !²Ô rÇ‘�ËÄ76rÇ‘‡�~î‡�æ+̇�æ-Ìà Ì¿rÇ‘76rÇ‘‡�æ+̇�æ-Ìà Ì¿rÇ‘ íhŠ“–�ÿšh ç #Ä ç"Ä ç!Ä ç æ íâ½Ë� íhŠìš|ih !²Ôš~ rÇ‘ íhŠéš~ih !³Ô š|rÇ‘ îhŠéš|ih !³Ô rÇ‘ îhŠìš~ih !²Ô š|Ìš~Ìà Ì¿rÇ‘ËÄ‘rÇ‘76rÇ‘ ~� |�r Ç‘árÇ‘ ~�ár Ç‘árÇ‘á |�ár Ç‘rÇ‘ár Ç‘‘rÇ‘ ç æ í íhŠÞš~ih !³Ô"š~ £š|Ìš~Ìà Ì¿rÇ‘ îhŠÙ‘–�rÇ‘rÇ‘‘���Ð�rÇ‘rÇ‘7í6írÇ‘rÇâ½Ë�ËÄ76rÇ‘ y ~�¢ x |�¢rÇ‘árÇ‘ y ~�¢ x£rÇ‘árÇ‘ y£ x |�£rÇ‘rÇ‘ y£ x¢rÇ‘–‘‘rÇ‘–Öš¤�‡�ç ËÄrÇ‘‡�çć�}‡�|�¤�h ‡�²Ô_ Œ ŒrÇ‘ Œ‡�| Œ£rÇ‘‡�~ Œ£ Œry šh ç!Ä‘rÇ‘ ~ £ | £rÇ‘ r Ç‘ ~ £ rÇ‘ ár Ç‘ rÇ‘ á ár Ç‘ | £rÇ‘ á r Ç‘–X Ç‘‡�~ Œ£‡�| Œ£rÇ‘ Œ ŒrÇ‘ íhŠš‘‡�ç ‡�æ íËć�‡�}rÇ‘‡�}‡�|�¤�h ‡�²ÔU‡�| Œ£rÇ‘‡�~ Œ£rši!ç ËÄrÇ‘!çÄ76r76r Ç‘‘7á6r Ç‘‘7á6ár Ç‘‘76ár Ç‘‘76r Ç‘7á6r Ç‘7á6ár Ç‘76ár Ç‘‡�|á Œ¢rÇ‘‡�~á Œ¢rÇ‘rÇ‘ íhФ‘‡�ç ‡�æ íËć�çć�}‡�|�¤�h ‡�²ÕÑ„€‚€€Ëîׇ�yÄa€€Ëî×Ç‘‘!}!|�jh "²Ô8 Œ ŒrÇ‘!~ Œ£!| Œ£rÇ‘!ç !æ íâ½Ë�ËÄ íhŠÃ‘rÇ‘!}!|�jh "²Ô8 Œ ŒrÇ‘!~ Œ£!‡�xÄ„€‚€€Ëî× ŒÄa€€Ëî× ŒÄ„€‚€€Ëî× ŒÄa€€Ëîׇ�| Œ£Ä„€‚€€Ëîׇ�~ Œ£Äa€€Ëî× ŒÄ„€‚€€Ëîׇ�~ Œ£Äa€€Ëî×| Œ£r Ç‘!ç !æ íâ½Ë�ËÄ íhŠÃ!ç ËÄ!ç ËÄ!çÄ� � � � � � � � !çÄ!ç ËÄ� � ‘rÇ‘!ç ‡�| Œ£Ä„€‚€€Ëî× ŒÄa€€Ëî× ŒÄ„€‚arÇ‘ íh‹'ÿ‘‡�ç ‡�æ íËć�çć�‡�}rÇ‘‡�}‡�|�¤�h ‡�²ÕÁ„€‚€€ËîÄ!çÄ!çÄ!ç ËÄ!|�jh "²Ô8 Œ ŒrÇ‘!| Œ£!| Œ£r Ç‘!ç !æ íâ½Ë�ËÄ íhŠÃ–q "!rÇ‘ rÇ‘–Æ ši!ç $×Äa€€Ëîׇ�| Œ£Ä„€‚€€Ëîׇ�~ Œ£Äa€€Ëî×Ä„€‚€€Ëî×Äa€€Ëîׇ�|á Œ¢Ä„€‚€€Ëîׇ�~á Œ¢Äa€€Ëî×Ä„€‚€€Ëî×Ä!ç#Ä!çÄ!ç ËÄ!ç ËÄ76rÇ‘!çÄ!|€ �jh "²Ô&!y Œ¢!xrÇ‘!ç !æ íâ½Ë�ËÄ íhŠÕ‘!ç ËÄ!|€ �jh "²Ô! ŒrÇ‘!Äa€€Ëî×Ä„€‚€€Ëî×Äa€€Ëî×Ä„€‚arÇ‘ íh‹7ÿ‘rÇ‘rÇ‘‡�çć�ç ËÄá‡�~í¤�h ‡�²Ôg‡�ç ‡�æ íç !æ íâ½Ë�ËÄ íhŠÚ‘!ç ËÄ!çÄ!|€ �jh "²Ô! ŒrÇ‘!ç !æ íâ½Ë�ËÄ íhŠÚ‘rÇ‘!ç !æ íâ½Ë�ËÄ!ç !æ íâ½Ë�ËÄ!|â½Ë�ËÄ76rÇ‘‡�æ-̇�æ+Ìà Ì¿‡�|írÇ‘76rÇ‘‡�æ-̇�æ+Ìà Ì¿árÇ‘ íhŠ’á‡�|í¤�h ‡�²Ôg‡�ç ‡�æ íâ½Ë��!|�!| ��!|�!|!|�£!| ��!~!|�£!|!|�£!| ��!~!|�£!|�!| ��‘rÇ‘!|�¢!|�¢!| ��!|�¢!|!|�£¢!| ��!~!|�£¢!|!|ËÄ76rÇ‘‡�~í‡�æ+̇�æ-Ìà Ì¿rÇ‘76rÇ‘á‡�æ+̇�æ-Ìà Ì¿rÇ‘ íhŠ’‘‡�çć�ç Ëć�~î¤�h ‡�²Ôf‡�ç ‡��£¢!| ��!~!|�£¢!|�¢!| ��‘rÇ‘!|�£!|�£!| ��!|�£!|!|�££!| ��!~!|�££!|!|�££!| ��!~!|�££!|�£!| ��‘æ íâ½Ë�ËÄ76rÇ‘‡�æ-̇�æ+Ìà Ì¿‡�|îrÇ‘76rÇ‘‡�æ-̇�æ+Ìà Ì¿rÇ‘ íhŠ“‡�|î¤�h ‡�²Ôf‡�ç ‡�æ íâ½ËrÇ‘!~í�‘rÇ‘!|!~í�‘rÇ‘!~!|!~í�‘rÇ‘!~!~í�–X šm%çÌô%ç%~�Ä%ç%|€ �Ä%çÄ%çÄ%çÄr Ç‘) Ç‘ ~�á |�rÇ‘ ~�á |�árÇ‘ ~�á |�rÇ‘ çÄ çÄ çÄ7�6rÇ‘ ç ËÄ |�rÇ‘ ~�rÇ‘ ç ËÄ |~rÇ‘ íhŠÜ$ç Ä$ç $æíâ½Ë�ËÄ$çÄ$çÄmh %²Ô^ni!&²ÔP $~Œ�!$|Œ�rÇ‘$|€2�rÇ‘$ç $æ íâ½Ë�ËÄ$æ $æÒ$ç $æ�rÇ‘ ~�rÇ‘ ç ËÄ |�rÇ‘ çÄ ç ËÄ7 |�Œ¢rÇ‘rÇ‘‘rÇ‘‘ ç ËÄ çÄrÇ‘–âš~€@�6 íâ½Ë�ËÄ!íiŠ« íhŠ�$æ&$æ+"y£ímh %²Ô("ç Ä"r#"}$æ)â½Ë�ÒÇ‘ŠÇ‘ íhŠÓ$æ'$æ-"z£ímh %²Ô("ç Ä"r#"~$æ*â½Ë�ÒÇ‘ŠÇrÇ‘,„ ódócba`r Ç‘7š|š~€@�£rÇ‘,„ óò€Àdóò€Àcba`r Ç‘š~š~€@�£6rÇ‘,„ óò€ Àdóò€Àcba`r Ç‘7š~€@�‘ íhŠÓ‘"ç$æ'Ämh %²Ô ni!&²Ô"ç!$|Œ�Ä"r#!íiŠé íhŠÛ‘$æ'$æ&$æ£$~í$|$æ¢ír"Ç‘#r#Ç‘"wbw–á€cËrÇ‘%ç*Ä%|í�l%ç ËÄ%ç ËÄ%ç ËÄ$$rÇ‘ni!&²Õ!oj"'²Õ¤ h (²Õ%ç Ä%ç!Ä%ç"Ĥ k#)²Ô:$rÇ‘$rÇ‘%ç %æ írÇ‘,„ óò€Àdóò€Àcba`r Ç‘‘šç šæ íâ½Ë�ËÄšæ šæÒšç šæ íâ½Ë�ËÄrÇ‘– ?š|�krÇ‘šâ½Ë�ËÄ%ç %æ íâ½Ë�ËÄ#íkŠÁ Ò ‚€§�rŠ‚€«�rÇ‘%æárÇ‘"Ò ‚€¯�rŠ‚€´�rÇ‘%æárÇ‘!Ò ‚€¹�rŠ‚€½�rçÄšçĤh ‡²Õ…¤i!‡²Ôtšç šæ íâ½Ë�ËÄšæ šæÒšç šæ íâ½Ë�ËÄ!š~�Œ#¢ š|�Œ#¢rÇ‘# Ìò€Â!ÌòÇ‘%ç %æ íâ½Ë�ËÄ%æ %æÒ%ç %æ íâ½Ë�ËÄ$Œá$Œ%挢rÇ‘ íh‹úþ"íj‹éþ!íi‹Ùþ– ¨rÇ‘�‘rÇ‘�‘€ „ „ „ „ r Ç‘!íiІ íh‹tÿ‘rÇ‘šçĤh ‡²Õ†¤i!‡²Ôušç šæ íâ½Ë�ËÄšæ šæÒšç šæ íâ½Ë�ËÄ!šrÇ‘� ‘rÇ‘� ‘rÇ‘� –.š¤-¤.j"‡.²ÕU‡-ç‡-æ"ŒÄ‡-ç‡-æ"ŒÄ7 ‡-指-æ£"Œ£i6 ‡-指-æ¢"Œ¢€ £h! r‡-ç~�Œ#¢ š|�Œ#¢rÇ‘#ò€$!íÌà Ìò€(„ „ „ „ r Ç‘!íiŠ… íh‹sÿ‘rÇ‘š|�ò€,ò€0ä�š| �ò€4ò€8ä�š|�ò€<ò€@ä�š|�ò€ć-çć-çÄr ‚€Ã�r‡-ç ‡-æ íâ½Ë�ËÄ‘!‡-æŒ"Œ¢ r‡-çć-çć-çÄr ‚€Ð�r‡-ç ‡-æ íâ½Ë�ËÄ‘!‡-æŒ"Œ¢ ‡-指-Dò€Hä�š|�6rÇ‘šç ËÄš~ �oš| �nš~ �mš|�l¤ ,Ô!b„„šy'¢šx&£šy'¢šx&¢r!Šb„„šy%¢šx$£šy%¢šx$¢æ¢"Œ£r‡-çć-çć-çÄár ‚€Ý�r‡-ç ‡-æ íâ½Ë�ËÄ‘!‡-æ"Œ£ ‡-æŒ"Œ£r‡-çć-çć-çÄár c‚€êëPcc§ì€Èc˜r‡-ç ‡-ær!,å¤ Ç‘"„ó„ó„ „ „ „ r Ç‘š~�rÇ‘šy"¢š~³Ô€–•#"rÇ‘­­­r Ç‘!­Œ ­ŒrÇ‘­­­r Ç‘­² íâ½Ë�ËÄ‘"íj‹¤þ–.¥£‡€¥Š„*‚€÷ëPŠ„*‚€ûëPŠ „*‚�ëPŠÖ�‡€¤Š`‚� ëPŠ`‚�ëPŠ `‚�ëPŠÖ�šç‡€¤Äšç‡€¥Ä¤S„S„*˜€Puñ#!­Œ¢" ­Œ¢­­îð–ä#�ha ¢�ŒwÓ%$áá�%$#¢ £á�%#¢ £$á�%#¢ £$#¢ £�a ¢�Œw–=šh ç Ä çÄ çÄ ç„S`˜€ u„S˜ršç šæ íâ½Ë�ËÄ‘–€¥Ýšç Ä���r���r���r–)šh çÌô ç ËÄ ç æŒÄ Ä7 |�£6 |�£rÇ‘ |�í |�ír Ç‘rÇ‘ y x |��–éšl$æ(k$ç$æÄ$ç$æÄ$çÌô$çÄr Ç‘$çÄ$çÄ$~�rç æŒÄrr76r76r����rr�–ñrÇ‘šh çÄ ç Ä ç ËÄ |�ŒrÇ‘ ~� |�rÇ‘ ~� |�árÇ‘$ç $æíâ½Ë�ËÄ‚��rÇ‘$çÄ$ç $æíâ½Ë�ËÄrÇ‘b” "” "çÄ"ç$æÄ"çÄ"ç$æÄ"ç$æ(zÄ"ç$æ(y$æ£Ä"xm%˜ÄÇ‘ ~� |�rÇ‘ ~� |�árÇ‘ ~� |�rÇ‘ ~� |�árÇ‘ |�ár ~�á |�árÇ‘ ~�á |�rÇ‘ ~�á |�ár%çÄ%çÄ%çÄ%çÄ%ç$æ(zÄ%ç$æÄ$æ'$æ&$æ¢$~í$|$æ£ír"Ç‘mh %²Ô $~Œ�rÇ‘$|rÇ‘ íhŠÜmh %²Ô $|Œ�rÇ‘$* lockFloodArcssWindowsWindows! ¢ Í ô û s  ŒÕÖñå®»®‚î¿I°¬¡y w HEAPOPS EXTRAHEAREALOPS STRINGOPGO¹QP¹ÿQV¹Q¹Qÿ‘&–Õ¨‹Ú‹G‰F‹Ú‹GÑèré–‹^ÇG^ 3À‹^ƒû|@‹^3ö‹~; F#ÆÑèsw3À‹^ƒû|@‹^3ö‹~;F#ÆÑèsX‹Ú‹GÑèTOXY PASCALIOGRAFDRAW s‹Ú‹òÿwÿtÿ‘7¨‹Ú‹F‰G‹Ú‹F‰G‹Ú‹GÑès‹Ú‹òÿwÿtÿ‘7¨ë‹^ÇG^ë‹^ÇG^ÿ–œÁ¨‹Ú‹G^‹ØÇ‹F=@‹Ú3À‹vƒþu@‹_;Øt‹Ú‹GÑès‹Ú‹òÿwÿtÿ‘7¨3À‹^ƒûu@‹Ú‰Gëh‹Ú‹GÑès_‹F=7‹Ú3À‹vƒþu@‹_;Øt‹Ú‹òÿwÿtÿ‘7¨3À‹^ƒûu@‹Ú‰Gë ‹F=‡$GRAFDRAW u ¹Qÿ‘¨ë ¹ÐQÿ‘¨‹Ú‹G÷Ћڋ_÷Ó ØÑës‹Ú‹G^‹ØÇÿ–œE¨‹Ú‹G^‹ØÇ‹Ú‹ò3À‹t;vt@#GÑèsT‹F=|>‹Ú‹GÑès‹Ú &‹òÿwÿtÿ‘7¨‹Ú‹F‰G‹Ú‹GÑès!‹Ú‹òÿwÿtÿ‘7¨ë‹Ú‹G^‹ØÇ ÿ–œÄ¨‹Ú‹G‰F3À‹^ƒû|@‹^3ö‹~; F#ÆÑèsD3À‹^ƒû|@‹‰€€€€€€€€€€€€€€€4( ^3ö‹~;F#ÆÑès‹^ÇG^‹^‹F‰G‹F‹^‰ë‹^ÇG^ ë‹^ÇG^ ÿ–Y¨‹Ú‹G‰F‹^‹GF ‰F‹^‹F‰F3À‹^ƒû|@‹^3ö‹~; á€cËr Ç‘rÇ‘¥ ¥ 9:²ÕÓÇ‘t9ÒšçËÄ�€�àr"ŠšçËĀȀ–€È€–r"rÇ‘rÇ‘tš~�¥š|�¥‚� IV.0 [1e]!�‘Ô‘‚�%�‘Ô‘‚�(�‘Ô‘ ‚�*�‘Ô‘‚�-�‘Ô‘ ‚�1�‘Ô‘‚�4�‘Ô‘‚�7�‘Ô‘‚�:�‘Ô‘‘r9í¥ ‹'ÿ��r"‘>#†$GRAFDRAW øÿ­W&ÿÿþÿÿÿþÿKÿÿùÿ‹<ÿÿùÿ‹<ÿÿøÿ­W&ÿÿüÿSÿÿøÿ­W&ÿÿüÿSÿÿùÿ"ÿÿùÿ"ÿÿùÿE &ÿÿùÿ‹<šçËÄ‚�>�‘Ô‘Õûþ–ùÿh1ÿÿùÿh1ÿÿõÿE &Ü ÿÿõÿE &Ü ÿÿùÿ"ÿÿùÿ"ÿÿøÿV³&ÿÿøÿV³&ÿÿùÿ‹<ÿÿøÿV³&ÿÿùÿ4 ˜ÿÿùÿ4 ÿÿÿÿÿÿÿÿÿÿùÿy˜ÿÿÿÿÿÿÿÿÿÿùÿy˜ÿÿËÿÏÿÑÿÓÿÕÿ×ÿÙÿÛÿÝÿâÿçÿìÿñÿöÿûÿ £ÿÝÿßÿáÿæÿøÿ Patxx.Ptr˜ÿÿùÿ4 ˜ÿÿùÿ"ÿÿùÿ"ÿÿùÿ4 ˜ÿÿùÿ"ÿÿùÿ"ÿÿ9Õÿ·ÿÕÿßÿËÿÁÿnn: Fontxx.Font:‹tr®Úòòò¹A*(d€›››fÑßù,DDDz…¦ÉâúúúËjëÿëÿëÿëÿëÿëÿëÿëÿëÿëÿ$ Draw result on window movement was Unexpected draw result ; Hit [RETURN]] Fast,  Fill,  Soli ÉrÑþ(R}#Ð#"$$Ö$6%‘%ç%Å& '$'j'ƒ'Ó'õ'?(¥ÿ¯ÿ¹ÿÄÿÏÿÛÿçÿòÿ¨‹Ú‹G^‹ØÇ‹Ú‹F+G=}ÇF‹Ú‹G^‹ØÇd,  Trace,  Plainn Patternedd !"#$%&'()*+,-./01234567789:;<=>?@ABCDEFGHIJKLMNOOPQRSTUVWXYZ[\]^_`abcdefgghijklmnopqrstuvë ‹Ú‹F+G‰F‹Ú‹GF‹Ú‹_;G ~‹Ú‹_‹G ‰F‹Ú‹G^‹ØÇë ‹Ú‹GF‰F‹F+F‹Ú‹_‹_�ã¾+óÿvÿvP¹Q¹ÿQV¹Q¹Qÿ‘&¨‹Úwxyz{|}~ Left - Center - Right - ßÿóÿéÿTopCenterrBottommâÿëÿôÿHi, mom!!CursorrLineeBoxTexttCircleeB‹F+G=}ÇF‹Ú‹G^‹ØÇë ‹Ú‹F+G‰F‹Ú‹GF‹Ú‹_;G~‹Ú‹_‹G‰F‹Ú‹G^‹ØÇë ‹Ú‹GF‰F‹F+F‹Ú‹_‹_�ã¾+óÿvÿv+ i0ç/Ä– ¡¥0ç/Ä–#0ç/ Ä–4)`„*¬P0ç/ Ä–+Ÿ0ç/ Ä"ŠZ!Š2‘8Š1Š/Š-Š+Š)Š'Š%Š#‘ББББР‘ŠŠÖ€OŠ#Š!Š2‘7!æÒ!y!x!æ 6!æ‘/Š Ô32‘7!ç/Ä–XŠ„4„�`ás0æ³Ô†4t†ç4t†ç4t0çáĆçÄ„ ‚€pëP„ ‡�‹ �€0¢È„ ‡�‹ �€0¢È„4¤�^„!‘Š0æh0ç!Ä‘0ç ÄŠ!‘ŠÖ€d–Ò0æ°9¡8¡h Ô32‘70~í0|í0æ6‘% Ô32‘70ç/Ä–é` È`p0ç/Ä–f P¨‹Ú‹G‰†œÇF‹�^0ç"˜u„�^‚€v�u„�^„ ˜€Xu„�^˜s0ç/ Äp°Õ%„4„\áv°Õ†¤�^‡\¢�‡]Œ¥‡�^ç4t4°¤ ‡�^ç4t4°o‡�^4t4°¤ ‡\¢�‡]†¢‰F‹žœÇG^�NQ¹QÿÇ@Ž@¨3À‹^ƒût@‹žœ3ö‹_^ƒûuF#ÆÑèré‹F‰†ž‹FŽÂ»÷ëŒÂ�^ ؉ž ‹žž3À‹_ ƒû}@‹žž3ö‹_ ƒû}F Æ‹Œjd"t"°n&Õ¦m€þih"!²Ô"kŠ!k„^$ ×#Œp #¢h"#£j"Ó„4„^áv±m�i%"° ÔÂ%ñP0¤�_‡�_ç‡�‹Ä‡�_ç!‡\ć�_ç ‡]ć�^çÄ0ç/Ćžž3ö‹_ƒû}F Æ‹žž3ö‹_ƒû}F Æ‹žž3ö‹_ƒû}F Æ‹žž3ö‹_ƒû}F ÆÑès ‹žœÇG^ és‹žž‹ò‹t3À‹_;\t@‹žž3ö‹_ƒûtF Æ‹žž‹¶ž¤�`$‡\‡]‡�`z‡�`ç‡�`y‡�`ç‡�`x‡�`ç‘,d‡\¢�‡]ŒtŠ$0ç/ Ä)Ô‡�^ç4t(Ô‡�^ç4t'Ô‡�^4t„4s–�‹ù0j&k#~ÕŒ"y(¢³ÔiŠ "yá(£î%‹_ \‹¶œ3ÿK;\Z~G ÇÑès ‹žœÇG^é!‹ž ÇG‹žž‹¶œ‹G ŽÂ™÷|R‹Â…ÀyDRŒÂ=t;‹ž ‹¶ž‹¾ž�G‹žœP‹E ŽÂ™÷R‹Â…ÀyGRŒÂ‹\ +Ø^‰‹�i"x'¢³ÔhŠ "xá'£î$�h#}"æ° 6¡Ô"y"x('#z%$! "æ‘*#|"æ° 6¡°¡Ô"y"x('#y%$! "æ‘*#{"æ° 6¡°¡Ô"y"x('#x%$! "æ‘*– מ ÇG닞 ‹¶ž‹D ‰G‹žž‹¶ž‹GD‹Ú‹_;G~ ‹Ú‹_‹¶ž‹G+D‹ž ‰‹ž ÇGë ‹žž‹G‹¶ ‰‹ž ‹¶ ‹GH‹žœ;GV~‹žœ‹¶ ‹GV+0l&³Ÿ&$~²Ÿ %³Ÿ %$|²Ÿ ÔiŠi$æ°$æ ° 9¡8¡h Ô32‘7$æÒZ!Ò>$yk$xj&$x‘&³&$~²¡Ô&%‘$ç#Ä$"Ä$y%‘%³%$|²¡Ô&%‘$ç#Ä$"ÄŠ$yD@‹ž ‰‹ž ÇG�NQ�NQÿÐ@¨‹žž‹¶ž‹¾ ‹DH¹@QÿwPÿ¼ÛÇ@Ž@¨‹F@‰F‹^‹‰FéÈý‹žœ‹G^=téû�NQÿÐ@¨‹Ú‹_‹GH¹@Q¹$x&$y£%$x£$æ $æ 6$æ‘'$æ Ò/$æÒ$y$x&$y£%$x£$æ 6$æ‘)Š&$y£%$x£†$æ!$æ ‘9 Ô32‘7$ç/!Ä–k0k#y%¢j#x$¢i"³Ÿ"#~²Ÿ !³Ÿ !#|²Ÿ ÔQPÿ¼Ü¨‹Ú‹_‹GH¹QPÿ¼¶¨X÷Ð%3Û‹¶¢ƒþtC#ØÑës ‹žœÇG^éž‹F=~銋†¢=uéj‹†¢‰FÇF‹F=ué3‹F‰†ž‹FŽÂ»"!‘Šd#æ°#æ ° 9¡8¡h Ô32‘7#æÒ#y#x%$#æ #æ 6#æ‘'#æ Ò##æÒ#y#x%$#æ 6#æ‘)Š %$†#æ!#æ ‘9 Ô32‘7#ç/Ä–/0¤/²Ÿ.²Ÿ¡Õ©÷ëŒÂ�^ ؉ž ‹žž‹¶œ‹G ŽÂ™÷|T‹Â…ÀyDTŒÂ=t3‹žž‹¶ž‹¾œ‹D ŽÂ™÷}T‹Â…ÀyETŒÂ‹_ +؉^‹žœÇG^ë ‹žž‹G ‰F‹žž‹¶ž‹GD‹Ú‹_;‡h.¢�/Œj„ "tmg"tlf"tk#Óo ./(„ '„ &„ ‘,¤ -æ°9¡8¡i!Ô32‘7-ç-yîÄ--xîÄ.í/íf./‘9-ç-yíÄ--xíÄ!Ô32‘7f#t-y.¢-~²Ÿ-x/¢-|²F#ÆÑèsD3À‹^ƒû|@‹^3ö‹~;F#ÆÑès‹^ÇG^‹^‹F‰G‹F‹^‰ë‹^ÇG^ ë‹^ÇG^ ÿ–œ¥`‘$$¥¥¥†çÄ¥ ¥ ¥ †G~‹Ú‹_‹¶ž‹G+D‰F‹žœÇG^ë ‹žž‹G‰F‹FFH‹žœ;GZ~‹žœ‹GZ+F@‰F‹žœÇG^‹žœ3À‹_^ƒûu@‹ž #GÑès ‹žœÇG^‹ž ‹¶ ÿvò€rô†í×í×Ćí×áí×Ćáí×í×Ćí×í×Ä0o'çÄ'çÄ'çÄ'çÄ'ç Ä'ç Ä'ç Ä'çÄ'ç €ÿÄ'ç Ä'çÄ'çÄ'çÄ'çÿvÿwÿvÿ4ÿ‘4¨‹F@‰F‹žž‹‰FéÂþ‹žœ‹GP=uÿ‘2¨‹žœ‹†¢‰GP닞œ‹†¢‰GPÿ‘3¨ë ‹žœÇG^ÿ–Qi¨‹Ú‹G‰F‹^ÇG^ 3À‹áÄ'çÄ'çÄ'çÌô'çÄ'çÄ'çÄ'çÄ'çÄ'çÄ'çÄ'çáÄ'ç!Ä'ç Ä'ç"‚€Në'ç.Ä'ç- îÄ'ç,Ä'ç+!îÄ"#‘"7˜Ä7çÄ7çÄ7çÄ7ç^ƒû~@‹^^ ‹v3ÿK;\ZG#ÇÑèréÂ3À‹^ƒû~@‹^^‹v3ÿK;\VG#ÇÑèr霋ڋò‹G#DÑès‹Ú‹òÿwÿtÿ‘7¨‹^ÇG‹^Ç‹^‹FH‰GÄ7ç"Ä7ç#Ä'ç(7Ä'ç*%Ä'ç)&Ä'æ(‘#'ç/Ä–±0ç/ Ä–ù&xh`ØÉÓ%ÄŠ%Ä`ØÉÓ$ÄŠ$Ä`ØÉÓ#ÄŠ#Ä"Ä!Ä0ç/Ä– ‹^‹FH‰G‹^‹F ‰GN‹^‹F‰GLÿv ÿvÿvÿvÿ‘1¨‹ÚÇG‹ÚÇG‹Ú‹ò‹G#DÑès¹Q¹Qÿ‘7¨ë‹^ÇG^ÿ–œ¤0i!æ°9¡8¡h Ô3, /ÄŠ!ç/Ä–®‡„/„�[ás0æ³Ô †5t0çáÄe‚€wëPe‡�ˆ �€0¢Èe‡�ˆ �€0¢È„/¤�[„�[0ç"˜u„�[‚€}�u„�[e˜€Xu„�[˜s0ç/ Äp°Õ­F‰F3À‹^ƒû|@‹^‹v$3ÿK;\ G#ljF"ëc‹FF‰F3À‹^ƒû|@‹^‹v$3ÿK;\G#ljF"ë9‹F+F‰F‹FF‹^$3ö;GF3À‹^ƒûÿ|@#ƉF"ë [ƒ„/„Wáv°Õœ‡Z‡Y£í‡X‡W¢�Œí�Œj†"t¥5Ówl€üih"!²Ô"kŠ!k„[… ×#Œp #¢h"#£j"Ó„/„[áv±l�i$"° ÔÁ$ñ,0¤�[‡ûwÑã.ÿ§Š‹F"ÑèsZ‹Ú�v(v‹2ä‹ò+DŽÂ÷nŒÂÑà‹ðw$‹^$‹~$‹Æ‹v$ÿvÿvPÿw&‹Ú‹E$‹ú‹}Pÿvÿvÿtÿwÿuÿvÿ‘(¨ëÇF‹F‰F‹F‰F‹F�[ç‡�ˆÄ‡�[ç‡Wć�[ç‡XćY¥ ‡Z¥ ‡�[ç/ÄŠ0ç/ Ä„/s–�ˆí à!à³Ô0çÄ Ò0çÄŠ0ç à�ÄŠ 0çÄ0ç!!à�Ä0ç/Ä–6<¨�N(Q�NzQÿ@‰Féƒþ‹F Ñès‹Ú‹òÿwÿtÿ‘7¨‹^$‹F‰G^ë‹^$ÇG^ÿ–>~`Ø(Ê`Ø'Ê`Ø&Ê`Ø%Ê`Ø$Ê`Ø#Ê`Ø"Ê`Ø!Ê0ç Ä0ç/Ä– ¬P¨‹Ú‹G‰F$‹^$‹G"=}éÇF‹^$‹G&»ŽÂ™÷ûŒÂ‹^$ŽÂ÷o$ŒÂ»ŽÂ™÷ûŒÂ‰F‹Ú‹v$‹D8@ŽÂ¾÷îŒÂƒÃ4Ø‹v$‹D6@ÑàØ‹‰F‹^$‹v$¿‹D&ŽÂ™÷h¨‹Ú‹G‰FÇF‹^3À‹_ƒûu@‹Ú#G‹Ú#G‰F‹FÑès‹Ú‹òÿwÿtÿ‘7¨‹^‹GF ‹^3ö;G ~F‹^‹F ÷Ø3ÿ‹_;Ø}G‹Ç ÆÑèsm‹^‹F ÷Ø‹_;ØÿŒÂG:‹^$ŽÂ™÷&ŒÂ‰F‹^$‹v$¿‹D$ŽÂ™÷ÿŒÂG<‹^$ŽÂ™÷$ŒÂ‰F‹^$3À‹_8ƒût@‹^$3ö‹_0ƒûF;Æu"‹^$‹G$ŽÂ÷nŒÂ‰F ‹^$‹G&ŽÂ÷nŒÂ‰F ë ‹^$‹G&} ‹^‹G÷؉Fë‹^‹v‹G +D‰Fÿv ÿ̨‹F …Ày÷Øy3ÀPÿÌè‹F…Ày÷Øy3ÀPÿÌ¿¨�F ‹F‰F ÇF‹^‹F ‹^3ö;G~F‹^‹F ÷Ø3ÿ‹;ŽÂ÷nŒÂ‰F ‹^$‹G$ŽÂ÷nŒÂ‰F ÿv ÿ̨‹^$�O(Qÿó¨¹QÿÌÀ¾¨�F‹F(2äHŽÂ÷nŒÂ‰F‹^$‹G‰F‹^$‹‰F‹^$ÿw0麋^$ÿw4ë$ë2»‹F ŽÂ™÷ûŒØ}G‹Ç ÆÑèsj‹^‹F ÷Ø‹;Ø} ‹^‹÷؉Fë‹^‹v‹G+‰Fÿv ÿ̨‹F …Ày÷Øy3ÀPÿÌè‹F…Ày÷Øy3ÀPÿÌ¿¨�F ‹F‰F ÇF‹^‹v‹~‹‹^+؉^ë‹F+F ‰Fë[ƒëƒûwÑã.ÿ§‹^$ÿw2ë7‹FF‰Fë9‹F+F ‹^ ^‹ð¿‹ÃŽÂ™÷ÿŒÂƉFë‹F+F ‰Fë [ƒûwÑã.ÿ§ 3À‹^ƒû}@‹^ G‹^Pÿ4‹ò‹E‹~ÿv ÿv Pÿwÿtÿuÿ‘&¨‹FÑès‹Ú‹òÿwÿtÿ‘7¨‹^‹F‰G^‹^‹v‹DF ‰G‹^‹F ‹^‰ÿ–x!0y£ 0x£‘–â ¨Ç^‹v$3ÿK;\~G ÇÑèréÇFé‹^$ÿw4ë$ë2»‹F ŽÂ™÷ûŒÂ‹^+؉^ë‹F+F ‰Fë[ƒëƒûwÑã.ÿ§0‹^$ÿw2ë*ë5‹F F»ŽÂ™÷ûŒÂ‹^+؉^ëF‹Ú‹_3À‹_ƒûu@‹Ú#G‹Ú#G‰F‹FÑès‹Ú‹òÿwÿtÿ‘7¨ÇF‹Ú‹G‰F‹F‰FÇF‹F;F~éÛÇF‹FHÑà‹Ø^‹‰F‹FHÑà‹Ø^‹‰F‹F+F+F ‰Fë [ƒûwÑã.ÿ§:3À‹^ƒû}@‹^ ^‹v$3ÿK;\~G ÇÑèrépÇFéh‹^$ÿw4ë*‹F+F+F ‰Fë,‹F F»ŽÂ™÷ûŒÂ‹^+؉^ëë[ƒëƒ‹^‹F+G‰F ‹^‹F+‰F‹^‹GF ‹^3ö;G ~F‹^‹F ÷Ø3ÿ‹_;Ø}G‹Ç ÆÑèsm‹^‹F ÷Ø‹_;Ø} ‹^‹G÷؉F ë‹^‹v‹G +D‰F ÿvÿ̨‹F …ÀyûwÑã.ÿ§J‹^$ÿw2ë$ë/»‹F ŽÂ™÷ûŒÂ‹^+؉^ë‹F+F ‰Fë [ƒûwÑã.ÿ§T3À‹^ƒû}@‹^ ^‹v$3ÿK;\ ~G ÇÑèréÇÇFé¿‹^$ÿw4ë7‹F+F ÷Øy3ÀPÿÌè‹F …Ày÷Øy3ÀPÿÌ¿¨�F‹F ‰F ÇF‹^‹F‹^3ö;G~F‹^‹F÷Ø3ÿ‹;Ø}G‹Ç ÆÑèsj‹^‹F÷Ø‹;Ø} ‹^‹÷؉F ë‹^‹v‹‰Fë<‹F+F ‹^ ^‹ð¿‹ÃŽÂ™÷ÿŒÂƉFë‹FF‰Fë[ƒëƒûwÑã.ÿ§d‹^$ÿw2ë$ë/»‹F ŽÂ™÷ûŒÂ‹^+؉^ë‹F+F ‰Fë [ƒûwÑã.ÿ§n3À‹^ƒG+‰F ÿv ÿ̨‹F…Ày÷Øy3ÀPÿÌè‹F …Ày÷Øy3ÀPÿÌ¿¨�F ‹F ‰FÇF‹FÑès1‹^‹v‹~‹G‹^Pÿ4‹ò‹E‹~ÿv ÿvPÿwÿtÿuÿ‘&û}@‹^ ^‹v$3ÿK;\ ~G ÇÑèsÇFë [ƒûwÑã.ÿ§~‹F=téã‹Ú‹_3À‹_ƒûu@‹Ú#G‹Ú#G‰F ‹F Ñès‹Ú‹òÿwÿtÿ‘7¨‹F‰F‹F‰F‹F(¨3À‹^ ƒût@3Û‹vƒþtC ؉^‹^‹F‰G‹F‹^‰‹F@‰Féþ‹FÑès‹Ú‹òÿwÿtÿ‘7¨‹Ú‹G^‹v‹Ø‰7ÿ–@" ¨ÇF ‹Ú‹_3À‹_ƒûu@‹ÚŸ Ô-ç/ÄŠ-ç/ÄŠ-ç/ Ä$Óg$t%Ó„ %tŠ-ç/Ä–Š0i#²Ÿ"²Ÿ¡ÔB!æ°9¡8¡h Ô32‘7!y!x$"#‘+ Ô32‘7!y"¢!~²Ÿ!x#¢!|²Ÿ Ô!ç/ÄŠ!ç2ä‰F&ÇF‹F;F&~ér�^(^‹2ä‹Ú3ö;G|F�^(^‹2ä‹Ú3ÿ;GG‹Ç#ÆÑèré5‹^$ÿw0é­‹F+F‰F‹FF‹^$3ö;G F3À‹^ƒûÿ|@#ƉF"é�‹F- ‹~;F#ƉF 鸋F;F}‹F‰Fë‹F‰F‹FÑès‹F$;Fu‹F";F}‹F"‰F¹Qÿv&ÿvÿ‘5¨‹Ú‹_3À^;7@‰F ëb¹Qÿv&ÿvÿvÿ‘6¨�F‹Fã¿mŠ ‡/Ì„óÂã¿m'€™ÚÔ ‡/Ì„óÂã¿lŠ ‡/Ì„óÂã¿l¤ &Ô%"²ñ"m'&í�Ò%°$°¡Ô¤ lŠ%!²ñ!m'Ô $"²ñ"lŠ$!²ñ!l:ñD9¤ ¥ &Ô‡&%ÄŠ‡&%îÑès‹F$;Fu‹F";F~‹F"‰F3À‹^;^@‹Ú‹_3ö‹~;?F#ƉF ë [ƒûwÑã.ÿ§–3À‹^;^ u@‹^÷Ó#^‹ð‹F÷Ð#F Ã#Æ F Ñèréèü‹F ÷ЉF‹F Ñć%‡/‡&xí‘5ć&x³ñ‡&Ä+Ô‡$ÄŠ‡$$ć#‡/‡$xí‘5Ä Ò‡"y‡"x‡/&%'$!"‡"æ ‡"æ 6‡"æ‘0Š ‡/&%'$"!‡#x�;:ñh‡$x‡&x³Ÿ‡$x‡&x°‡#x‡%x³Ÿ¡ ¤ ,#G‹Ú#G‰F‹FÑès‹Ú‹òÿwÿtÿ‘7¨ÇF‹Ú‹G‰F‹F‰FÇF‹F;F~éÏ‹FHÑà‹Ø^‹‰F ‹FHÑà‹Ø^‹‰FÇF‹^‹GF ‹^3ö;G ~F‹èré!‹F@»ŽÂ™÷û‹Â…ÀỷFÇF ‹F»ŽÂ™÷û‹Â…ÀỷFÿvé—‹F&;F陋F‰F ‹F ;Fu‹F;F }‹F‰F ¹Qÿv&ÿv ÿvÿ‘6¨^‹F ÷Ø3ÿ‹_;Ø}G‹Ç ÆÑèsm‹^‹F ÷Ø‹_;Ø} ‹^‹G÷؉Fë‹^‹v‹G +D‰Fÿvÿ̨‹F …Ày÷Øy3ÀPÿÌè‹F…Ày÷Øy3ÀPÿÌ¿¨�F‹F‰F�F ÇF é^‹F;F}éS‹F‰F ÇF éE‹F&;Fé:‹F‰F ‹F ;Fu‹F;F }‹F‰F ¹Qÿv&ÿv ÿvÿ‘6¨�F ÇF éÿ‹F;F}éô‹F‰F ÇF  ÇF‹^‹F‹^3ö;G~F‹^‹F÷Ø3ÿ‹;Ø}G‹Ç ÆÑèsj‹^‹F÷Ø‹;Ø} ‹^‹÷؉Fë‹^‹v‹G+‰Fÿv ÿ̨‹F…Ày÷Øy3ÀPÿÌè‹F…Ày÷éæ‹Ú‹_‹F&;GéÖ‹Ú‹_‹G‰F ‹F ;Fu‹F;F }‹F‰F ¹Qÿv&ÿv ÿvÿ‘6¨�F ÇF é–‹Ú‹_‹F;G}醋ڋ_‹G‰F ÇF ët‹Ú‹_‹F&;~Øy3ÀPÿÌ¿¨�F ‹F‰FÇF‹F Ñès1‹^‹v‹~‹G‹^Pÿ4‹ò‹E‹~ÿv ÿvPÿwÿtÿuÿ‘&¨3À‹^ ƒût@3Û‹vƒþtC ؉^ ‹^‹v‹DF ‰G‹^h‹Ú‹_‹‰F ‹F ;Fu‹F;F }‹F‰F ¹Qÿv&ÿv ÿvÿ‘6¨�F ÇF ë*‹Ú‹_‹F;|‹Ú‹_‹‰F ÇF ë [ƒûwÑã.ÿ§ª3À‹^;^ u@‹^#^3ö‹~ ;‹F‹^‰‹F@‰Fé&þ‹FÑès‹Ú‹òÿwÿtÿ‘7¨‹Ú‹G^‹v‹Ø‰7ÿ– ´"0h†i!~Ôe!} æ° 6¡Ô y x"!z æ! æ  æ‘.!| æ° 6¡°¡Ô y~$uF#Þ÷Ó#Ø ^ Ñëréþ‹F Ñèr‹F‰F ÇF‹F;Fuy3À‹^;^ u@‹^÷Ó#ØÑës%‹FÑès3À‹^;^~@‰Fë3À‹^;^}@‰F3À‹^ ;^u@#F‹^÷Ó#ØÑ x"!y æ! æ  æ‘.!{ æ° 6¡°¡Ô y x"!x æ! æ  æ‘.–À) ¨‹Ú‹_‹ò‹t‹G +D‰F‹Ú‹_‹ò‹t‹G+‰F‹F$;F u'‹F$Ñès3À‹^";^~@‰Fë53ës%‹FÑès3À‹^ ;^~@‰Fë3À‹^ ;^}@‰F‹F FÑèrJ‹Ú‹_‹ò‹t‹ú‹}‹G‹Ú‹_Pÿ4‹ò‹E‹ú‹}ÿv&ÿvÿvÿvÿv ÿvÿvPÿwÿtÿuÿ‘0¨‹FÑÀ‹^";^}@‰Fë%‹F$»ŽÂ™÷û‹Â…ÀyÃŒÂ3Û‹v ;ðtC‰^ÇFÇF‹F$@»ŽÂ™÷û‹Â…ÀỷFÇF ‹F»ŽÂ™÷û‹Â…ÀỷFÿvé¿‹Fèr$‹F ;Fu‹F÷Ћ^÷Ó Ø3À‹v ;v$t@ ÉFÇF‹F‰F‹FÑèré›ùÿ–Ø*„óã„óãÎñ „ „óãôŠ„ „óãôb„ó„ óÃôf„ó„ óÃô‡ŠX‡xi‡xhŠ;F}‹F‰Fë‹F‰F‹FÑès‹F$;Fu‹F";F}‹F"‰F¹Qÿv&ÿvÿ‘5¨3À[;^@‰F éy¹Qÿv&ÿvÿvÿ‘6¨�F‹FÑès‹F$;Fu‹F";F~‹FQ‡xi‡xhŠG‡xái‡xhŠ<‡xái‡xhŠ1‡xái‡xáhŠ%‡xái‡xáhЇxi‡xáhЇxi‡xáhŠÖ€Ò.Ò&‡‡!Ì.ÌfóÂÁ¿¢Ä‡‡ Ì.ÌbóÂÁ¿¢Ä‡‡‘Š4‡‡"‰F3À‹^;^@3Û‹v;vC#؉^ é'‹Ú‹_‹G;F} ‹Ú‹_‹G‰Fë‹F‰F‹FÑès‹F$;Fu‹F";F}‹F"‰F¹Qÿv&ÿvÿ‘5¨3À[;^@‰F éÊ‹fó¿¢!Ì.ÌfóÂÁ¿¢Ä‡‡bó¿¢ Ì.ÌbóÂÁ¿¢Ä‡f󿢇b󿢑!Ì.ÌfóÂÁ¿ Ì.ÌbóÂÁ¿‘‡‡‘‡‡!¢Ä‡‡ ¢Ä–Y-"0¤"‡"æ°Õoh‡"æ°9¡8¡:塤 (Ô32Ú‹_¹Qÿv&ÿwÿvÿ‘6¨�F‹FÑès‹F$;Fu‹F";F~‹F"‰F3À‹^;^@3Û‹v;vC#؉^ és‹Ú‹_‹;F} ‹Ú‹_‹‰Fë‹F‰F‹FÑès‹F$;F‘7„‡/̆óÂô„óò€À¾i„óò€ À¾j:ñ)‡/à¤/„+óÌÏñ „+ò€„+óÀô„'óÌÏñ „'ò€„'óÀô‡"y‡/¢‡"~²Ÿ‡"y‡/£³Ÿ ‡"x‡/¢‡"|²Ÿ ‡"x‡/£³Ÿ Ôh¤ Š:¤u‹F";F}‹F"‰F¹Qÿv&ÿvÿ‘5¨‹Ú‹_3À^;w@‰F é‹Ú‹_¹Qÿv&ÿ7ÿvÿ‘6¨�F‹FÑès‹F$;Fu‹F";F~‹F"‰F3À‹^;^@‹Ú‹_3ö *Ô ‡"y‡"x‡/!"‡"æ ‡"æ 6‡"æ‘0‹¨„+óò€Ãò€À¾�n„'óò€Ãò€"À¾�o„„+órô„„+órô„„'órô„„'órô&€™ÚÔ ‡/Ì„óÂ. ‹Áé ‹F ÿt‹^RWPS‹ð‹Âè [X_Z ÿt¾Ê¨u Ûu2;Fuƒ~u'‹NA€á:ÈuCé ÿt‹N9Nu ‹NA€á:ÈuN Ûy3Û;Þ~é�‹N‹V¨{¨{Né׆à×ÐìrÐèé!ÐèPŠ^r Ûu³ècøè>øè$ø¹ è'øè*øXþ›/<uÎZY[XÃ3À6£T6£R6ÇNÿ6ÇPÿ°ær°æv°æFè1ø°nær¹»„/èAø¹»�/è8ø¹»�/è/+Né ¨uVé+V‰¸/‰6°/»h/× ¢¯/è™þ‰™/ˆ›/ŠfŠF»|/׆à׋v ÐìrÐèé,ÐèPŠ^‹Ær ‚ûu³°ÿ¢�/¢ž/èþè÷ýèÝý¹ èàýèãýXþ›/<uÃËìø¹»‘/è&øèø3ÀPP»S»SP»SPè 3É3Ò6ˆVèdþ6¢V‹ì‹nÇFÇFÇF€ÇFà42ä‰F°‰F °‰F ¹äp¨ túäp¨ uúâòè¢÷° ærÊè˜÷° ærË‹FH3ö‹N‹ùÑç÷߃Ç;ð} ÿx I‹ÙÑãÑã+û‹ÞÑãÑãûƒÇFëá‰NÊ‹ì‹F‹V3ö‹N‹ùÑç÷߃Ç;ð;Ê~ ÿx I‹ÙÑãÑã+û‹ÞÑãÑãûƒÇFë݉v Êè�÷° ærË‹ì‹F 6£T‹F6£R‹FH6£N‹FH6£PÊ‹ì‹N ‹V‹~×Jè�÷»¦/‹v ÑæÑæ‰±Óç‰xèL÷Ê ‹ìŠFöf Hx ‹ØŠFöfHy鼊N€á€Éˆ¯/zöÁt^éFöÁt öÁt‹Ø^ÆÕ8ŠF ¢Ø8‹Fö¯/u‹F£Û8Æ×8ŠF¢Ú8µ¿¤/ Ø8¢Ù8 Õ8¢Ö8‹vŠÚ8´Š6×8ŠÞÐëÐëÐë2ÿÞé öÆu:Vu 6ŠCŠÎ€áÒè¨tùÐþÊuÐèþÆŠVþÌt:vuЊÌÒ-OþÙ8uþÖ8ŠN ˆÙ8Š^‚ÃÐëÐëÐë2ÿóþÍt ŠÖ8:Nt낈6×8ˆÚ8°*Ä2䣲/£´/±*Í2퉰/èäõ‹Û8‹Ô‡"y‡"x‡&‡%&„ó„ó�<kŠk‡"y‡"x‡$‡#'„ó„ó#�<,ñ‡"y‡"x‡&‡%&„ó„ó#£�<)¥ (Ô32‘7‡"ç/ Ä–/ª-%'Ò$&³Ô`ò€&ôŠ`ò€*äôŠ`$&£‹ìÆÌ%'£ÌÃrô%'³ñ ``óò€.ÀôŠ $&³ñ``óò€2Àô„ `óô–ú-0h'$ y£Ìò€6ÀÆÂ# x£Ìò€:ÀÆÂÀr¿Ä& y x$#�=ô% y x"!�=ô'x&ó%ódcba‘ –ƒ.–/ÿÆ—/ÿÆ�/ÿÆž/ÿ3ö‰6¸/ŠFöÐ6 V$¢ö3öÐ Fu€~tY‹N 6¡TȉN ‹V 6‹RÓ‰V 6N@£ú36P‰ø3è1¢÷3€~u8Ft‹N ‹V »è‹V »0k#æ°9¡8¡h Ô32‘7$àl#æÒ¥ $ò€>Ìaaaa‘ ¥ #æ Ò#æÒ#y#x$#æ#æ 6‘-Š$‘: Ô32‘7#y$¢#~²Ÿ#y$£³Ÿ #x$¢#|²Ÿ #x$£³Ÿ Ô#ç/ÄŠ#çÿÿÓ‹ñÏÑéè Ê è‹øèÚ‹ðVW6;R|u‹ÎÏÑéèöPèÂYè–PPV‹ÁH;Ç~‹ó‹Â‡ùèT‡ùé;Ç} ‹ó÷Þ‹ÂÆè=^XQ‹È‹þ@;Ç} ‹ó‹Âè*é-;Ç~‹ó÷Þ‹/Ä–)/0k%#y£Ìò€BÀÆÂ$#x£Ìò€FÀÆÂÀr¿i#æ°9¡8¡h Ô32‘7#æÒ¥ !ò€JÌbbbb‘ ¥ #æ Ò#æÒ#y#x!#æ#æ 6‘-Š!‘: Ô32‘7#y!¢#~ÂƇùè‡ù_^Ó;ø3;÷u„_YÃSQRWVPA;Ï}EZRVè}‹Î€á‚éöÙ2ÀÑoÐÐÑoÐÐÑ/ÐÐ:÷3tF;÷}þÉu᱃ÃëÚ[ZRWS‹Îè*ÿ^_ë·XX^_ZY[ÃVWSQR‹ñ€áðèÌú‰²Ÿ#y!£³Ÿ #x!¢#|²Ÿ #x!£³Ÿ Ô#ç/ÄŠ#ç/Ä–Y/†w†€0w‘8” ‘0æ-í0æ+í‘"0çÄ‘‘–Tÿÿ ™/ˆ›/‹ú3³èD³è?³è:‹ÂZY[_^ÃVWSQR‹ñ€áðèœú‰™/ˆ›/6‹TJ³èz³èu³èp‹ÂZY[_^Äö3u];òtY°¹@è3‹ú‹ÖŠÊ€á„÷3t »ÿÿ÷ÐÓè÷Ðé  &Fà}G@FK@JÿÿIxpˆLè�‰™/ˆ›/¹»˜/é_»®/éYè9°lærù»œ/éHè(°hærÃè ° ærù»•/é/3ÛÓè;ÃuƒÂ€âð;úvèëíBÑèÑÛqù;ú}‹×ƒ>°/t äp¨uèüuõþ›/Äö3uõ;òtñ°¹@èË‹ú‹ÖŠÊ‚éöÙ€á„÷3t »ÿÿ÷ÐÓà÷Ðé3ÛÓà;Ãu€âðƒê€Ê;€ã€Ë ˆº/3É»º/éäp¨u¨töù»¥/äp¨ uúäp¨ túèàÿŠærãCŠæpâùÃ6T6R‹Á�áQ±ÓøP¹ÿ+ʸ@÷áYÁ‹Ê‹ÐXQ±ÓàŠÈX$ ÈËìǶ/ÿÿ‹v×~žè«ëêJÑàÑÛqù;×뎋ùè2ÀÑoÐÐÑoÐÐÑ/ÐÐËñè�ù‰™/ˆ›/»x2öö3è»z2öö3è»v2öö3è»v2Ü‹Æ$ð+Ç÷رÓè‹È�uP°è#‹Î€áÓèY‰‹ÞKy隉²/Ñ㉴/‹v‹F 3ÿ‹VöÂt‹^;Ø~‹Ø;Vu ‹N;N|G‹Á‹ËéO3Û‹F;Æ~‹Æ;Vu ‹N;Á|G‹Ù‹ÈIé/þÊ€â;VuG3ÛöÂt‹F ÿt‹N;È}ItƒÃè(ëó3À‰ƒÃâùþ›/â¯/‰°/Sè¤øèÑø¹è¤øèÀø[äp¨túärŠàäp¨túär†Äÿ°/ÃPSQRAƯ/ +ÁHx]£°/÷Ø£²/Ñࣴ/Ƕ/èÜø‰™/ˆ›/ŠfŠF»|// ÁƒþuÏÊ‹ì‹^‹V‹F‹NèÝt‰^‰V‰F‰NèÊÆ¯/‹F Àt±Ó裉<ƒ~ uéø3Û‰‹<‹^‰�<÷ãF£�<‹F £“<‹F£‘<‹F[B‹N‰]BÁH3Ò÷v ‰WB‹ÁHöv2öŠÔ3ÛÇYB‹ò¿3Àèc3À‹ò¿+ù+ùxéàB;Vu3Ò@ ÿxEƒÇ+ù+ù+ù+ùWPV‹ø+>YBvW÷Ø@è)_‹ò¡YBè ^X_Ð+YB;V£•<‹‹<¡�<£—<‹6�<‹“<ŠËÑëÑëÑë€á¿¤/6‹ÓèˆOÿ—P+ú+øGyÇF;v|+vëöÙ‹[B+Ù‹ùÑçO÷ÙANy+Ùù3É;^ r+^ ëö6‹.N>òèZòŠ^èvò¹è@òèTòƒ“<‹F;“N+ø+úGy׋~ùÑá÷ÙϽX‰V‰^ ‰F‰N‰vWxèEøY6;P°/Ƕ/ÿÿ‰²/‰¸/‰´/ Étb Òt^‹N‹Vèò‰™/ˆ›/ŠfŠF»|/׆à׋v ÐìrÐèé,ÐèPŠ^‹Ær ‚ûu³°ÿ¢�/¢ž/èœñèwñè]ñ¹ è`ñècñXþ›/<uÃÊ ZR‰N‰Vè2øZ_^Y[X]ÃUSRQFyø~+ð3À;v|+vëö6‹P+Ð+×B}ú~}‹V[BRÑ+[BJ6+N÷Úx3ÒÑ+[BR‹Ñ+[B÷ÙANy+ÙÑ3É;^ |+^ ëö½X‹ì2ä‹^‹ËCÑëC€ãþ‰„>‹ÙƒÃ€ãø+ÙKÑëÑëÑ뉂>ƒÁ‰€>ÿNyé—3É‹^‰†>2Û‹v6Š àÐèÐÞÐèÐÚÐèÐßÐèAöÁu‹~6ˆ5ÿF‹~ 6ˆÿF ‹~6ˆ=ÿ‰N‰V‰F‰~‰v‰^ P Òtxè¡÷¡WB‰F �FX À‰FXx t 9Ft‰Fè‚÷YZ[]ÃTÿÿÿ&JE»7Tÿÿÿ&TE0;Tÿÿÿ&^Eµ:Tÿÿÿ&hEÖ=Tÿÿÿ&rE;Tÿÿÿ&|EÝ8TF;€>t;†>u ‹v6†>ë²þÃöÃu³Fë­÷Ù€át‹~Òî6ˆ5‹~ Òê6ˆ‹~Òï6ˆ=‹‚>NN N‹„>Néaÿ‹^ è‹^è ‹^èÊ3ÉÐìÐÑ6‰ËìŒÐŽÀüÆÿÿÿ&†E™Tÿÿÿ&¤EÞ@Tÿÿÿ&®E_BTÿÿÿ&¸Eü3Tÿÿÿ&ÂEv0Tÿÿÿ&ÌEˆ8Tÿÿÿ&ÖEx8Tÿÿÿ&àE€8Tÿÿÿ&êE«8Tÿÿÿ&ôEþ1Tÿÿÿ&þE72–/ÿÆ—/ÿƯ/‹F ‹Ð6T%¢v?‹N‹ÙAÑéA€áþuéÕÓJ6+Nv+Ú‰^؃ÃÑëÑëÑëÑ뉰/ÿNxØQÑé‹~3Àó«‹V 6;Pp‹N èSð‰™/ˆ›/°¢w?»`/×€¯¯â\"1/éü"÷"ò"í"è"ã"Þ"Ù"Ô"Ï"Ê"Å"À"¶"»"±"¬"§"¢"wµ×n7kRÿÛÕÿDó¾Á ¶� y Ç \ š 8 îTcí䎥—>&›/ü›/è½ïèêï¹è½ïèÙïäp¨túärŠàäp¨túär†ÄŠv?Óè¶*ñ‹~3ÛŠw?±Ñès6ÒÂC;^u w?Ðà<u YNÿF émÿöÃuGþÎuÔäp¨túärŠàäp¨túär†àEäDÝDËDÄDÚC‘C{CoC`C#CCCC÷B¶B°B�BPB BBBîAêAäAÞA¥A¡A›A•AwA3A AAô@ç@â@P@<@-@@@ü?ù?ô?ð?Í?œ?‹?†?�?O?B?? ??Ç>¶>¯>š>w>`>]>7>Vö¯/u‹V‡Êè0ö‰™/ˆ›/Šf ŠF»|/׆à×ÐìrÐèé$Š^ÐèPr Ûu³ Ûu³è»õèõ¹è‚õè–õXþ›/<uËö¯/{ƒÛ8éƒ.Û8Š×8:NtéÍþ‰vжë¼Ê ÒtPy ÷Ú+ÚyÓ3ÛéCJy3Ò‹ûú6+>Nv+×B Ét)y ÷Ù+ÁyÈ3Àé@Iy3É‹øù6+>Pv+ÏA Òt ÉËìÆ�/ÿÆž/ÿèòî3ö‹~ ‰>Ü@ ÿtqº+×+Ù8ˆØ8¸€>¯/r÷Øö¯/uFéFŠÖ8ˆÕ8:Nté{þÊ‹ì‹F‹^‹V‹N 2À Òy÷Ú  Éy÷Ù ;Ñs‡ÑþÀ»t/× ¢¯/‹Â£°/‹Ù È‹ÑÑ㉶/‰²/)²/Ñ×;>Ü@t‰>Ü@è`‹Æ Òy ÑàÑàé +ÇÑàÑà OÐF;÷rÒu ;>Ü@tè4‹ÆÑæ‹þ‹V+ÐyòF3ÒJR‹V +ÐyúG3ÒJRVWÿvÿvÿvè£ùÊ R‹ÞKÑãSǶ/‹N+Îà+؉´/é ‹ì‹F‹N ‹^‹V èhuéb‰F‰^‰N ‰V Ư/‹ì‹N I‰°/‹F»|/×£ ;¹‹F׊ØÓà Ê࣠;Æ–/ÿÆ—/ÿ»�/¸ÿÿ‰CCâ÷èkô‹F‹È6T%AyÙ3É6¡N+Ã+Áy؉°/÷Û‰²/Ñ㉴/Ư/ ‹V ×6;PQèVY‹V +×xèK[‹V +ÖByÚ3Ò6¡P+Ã+Â}؉°/÷Û‰²/Ñ㉴/Ư/ ‹N+ÏxRèZ‹NtY»+Ø‹F ;Ãv‹Ã£²/£´/F)F ‹Vèžô‹6 ;Ñ. ;rÑîéQè ôŠ^Ñîr‚ûu³è:ô¹èôèôYþÁƒþuÏÑ. ;‹F %ðÿtW‹Ø±Ó裲/£´/‹N‹V^)^ èBô‹Ï6;NèZÃè0/ˆ›/ŠfŠF»|/׆à×ÐìrÐèéÐèPŠ^r‚ûu³èÀíè„í¹ è‡íèŠíXþ›/<uÐËì‹F ‹^ ‹v‹V‹N½X‰F‰^‰v ‰V‰6 ;Ñ. ;rÑîé"Qè®óèãóŠ^Ñîr‚ûu³èÛó¹è¥óè¹óYþÁƒþuÌÑ. ;‹F ÀtD£²/£´/‹N‹Vèðó‹6 ;Ñ. ;rÑîéQè\óŠ^Ñîr‚ûu³èŒó¹èVóèjóYþNÇF‹ì‹N‹Á£]Böv ŠÜ2ÿ‹ÁÑàu逿+øH3Ò÷öN3À;]Bt‰]Bèi ÿxƒÇ+ù+ù+ù+ùIF;vu3ö Òu‹VJøøøøƒÇ@ Ûu‹^ K;Áx»u ;]Btè&H£0 7Ø6Ñ6Í6Æ6Â6»6·6´6°6^6>696'6ñ5Ö5µ5±5‰5…5�5H55c4]4T4%444 444÷1à1Ý1·1®1ª1£1�1š1–1‘0‹0z0"00 0ü/ã/Ò/Ì/Æ/Â/JEHETERE^E\EhEfErEpEory} (Draw_Win_Ovfl = 14; {Draw ignored, window list out of range} " Draw_Win_Imp = 15; {Draw ig|EzE†E„E�EŽEšE˜E¤E¢E®E¬E¸E¶EÂEÀEÌEÊEÖEÔEàEÞEêEèEôEòEþEüEqB DbDÿD 4*818D094º5¿7�8|;–?I0F4Ÿ4Ã7–8¦8ä?Î@°AÒAÀC}D²DY4Ï7ž8µ?§@‰ABnored, implementation restrict} (Draw_No_Font = 16; {Draw ignored, no font defined} (Draw_Max = Draw_No_FonþCKDÑDP4È7'*** HEAPOPS EXTRAIO STRINGOPEXTRAHEAFILEOPS REALOPS  t; {Current maximum draw result number} ( "Type Cur_Attribute = (Cur_Disable, { Cursor disable } 8Cur_Enable,  { Cursor enable } 8Cur_Visible, { Cursor visible } 8Cur_Invisible, { Cursor invisible } 8Cur_Small,   "Const Graf_Version = '0.5';  (Draw_OK = 0; {Nominal draw result} (Draw_Clipped = 1;  { Cursor small } 8Cur_Full); { Cursor full } 'Switch_Types = (Off, On); 'Overlay_Type = (Replace, {Draw performed, figure clipped} (Draw_Init = 2; {Draw variables at initial state} (Draw_Overflow = 10;  { Replace contents } 8Xor); { Merge contents } 'Display_Type = (Fast, { No filling } 8 {Draw ignored, coordinate out of range} (Draw_Not_Imp = 11; {Draw ignored, feature not implemented} Fill); { Fill all polygons } 'Int_Type = (Plain, { Solid rectangle } 8Patterned); { User pattern } 'Edge_Type = (Solid_Line, { Solid border } 8Interior); { Invisible border } 9 'Directions = (Left, { Left direction or position } 8Right, { Right direction or position } 8Up, { Up direction } 8Down, { Down direction } 8Top, { Top position } 8Center, { Center (horz/vert) position } 8Bottom); { Bottom position } 'Font_Type .>*>>> >>>ý=÷=Ë=È=À=½=º=°=«=¤=ž=–=z=n=j=`=]=R=B=6=3=.="=== = ===ü<ö<ð<è<á<Ò<ÀTESTCOREÕÄšç ËÄ��|€2¢r€2r��|€2£r€2ár�ê�|r€2ár�N�|r€2r€2ÌÌsÿ¦�­¢�|­¢r€#rš¤ ,ç Ä,çÄ,çÄ,çÄ,ç ËÄ,ç ËÄ.-/Œ¢r/r–c�,€2�€d€(��X��ô€#�€È€*�–û-š¤,€ÜŒÌ†§ŒÌÿ¤+‡€#r�­¢�|­£r€#€#ár�­£�|­£r€#á€#ár�­£�|­¢r€#á€#r–þšh ç ËÄ çÄ ç Ä çÄ çÄ ç ËÄ��|r€2r–,ç‡+��ŒÄ‡,ç‡+ � ŒÄ‡,ç Ëć,çć,çć,çÄr †§¤-h ‡-²Ô7…. ‡,挌�¢¢…-€Ü¢£ ‡,挣 £raÈaì† ì§Èa˜r íhŠÃ–-¯–���–bšçÄšçÄšç &ËÄšç &ËÄ%$r#"r#"r! r! r%$r%#¢!¢�$"¢ ¢�rr–Ž….…-ršh ç ËÄ ç Ä š‚€P�t pš†€Pt pšt p†,ËȆ,Ë€GȆ,p†,Ë€NȆ,pršçËÄ�€�àr"á€cË¥á€cË¥1á€cËr0á€çÄ çÄ€Ür –Õ� ….¢…-¢….¢…-€Ü¢….€È¢€2£…-¢�….…-¢….…-€Ü¢€(£….€È£€U¢…-¢�–` šç ËÄ„ ò€ò€ÀôdÌò€ Âò€Áô�T€8 š‚€P�t pš†€Pt pšt p†,ËȆ,Ë€GȆ,p†,Ë€NȆ,pršçËÄ�€�àr"á€cË¥á€cË¥1á€cËr0á€cËr rr‘ ‘‘‘ šç ËÄ rr‘‘rr–øÿ­W&ÿÿõÿE &Ü ÿÿõÿE &Ü ÿÿøÿ­W&ÿÿõÿE &Ü ÿÿøÿ­W&ÿÿùÿ"ÿÿõÿE &Ü ÿÿõÿE &Ü ÿÿ Program Test_Core;  {$U Grafics:Grafdraw.Code}  Uses Graf_Draw;  Const Esc = 27; { Escape key } &Text_Color = 0; øÿ­W&ÿÿøÿ­W&ÿÿøÿ­W&ÿÿøÿ­W&ÿÿøÿ­W&ÿÿøÿ­W&ÿÿùÿ"ÿÿùÿ"ÿÿõÿE &Ü ÿÿEnter Message: 4¡kC´í³ŠÉ2�d „€PA&Back_Color = 4; &Water_Color = 6; &Sail_Color = 1; &Fish_Color = 3; &B_Sail_H = 220; &Boat_Rad = 200; &PI_8 = 0.39269907;SCALIOREALOPS GRAFDRAW  &PI_4 = 0.78539815; &PI_2 = 1.5707963; &PI = 3.1415926278; &PI_x2 = 6.2831852; &PI_x3_2 = 4.7123889; &PI_x3_4 = 2.3561944; &PI_x7_4 = 5.497787; &PI_x5_4 = 3.9269907;  Var Font_ID : Font_Type; $Pat_ID : Pat_Type;  Message : String; $BUF : PACKED ARRAY [0..1] OF CHAR; $Point_X , Point_Y : Integer; $Ch : Char; $Print_It : Boolean; ${Size : Pixel_Size;} ${Dir : $TAG $CURSOR $EQUAL $LAST A $SYNTAX Print_Direction;}  (*===========================================================================*)  Procedure Sun; "Const $S un_Rad = 50; $Sun_S_Y = 380; $Sun_S_X = 540; $Long_Ray = 50; $Short_Ray = 35; "Var $Offset : Integer; "(*================hghä�===============*) "Procedure Rays; $Begin $ Core^.Line_Index := 1; &Move_Abs(Sun_S_X,Sun_S_Y+Sun_Rad); �€F€K¢€Zò€7��†€F€P¢€Zò€;��ê€F€A¢€Fò€?��D€F€A¢€Fò€C�–7 š¤ ,çÄ,çÄ,çÄ,ç ËÄ,ç ËÄ,ç Ä„ ò€GôdÌÌÃò€KÂô.-O.#¦$§ör/Œà„ ódócba`r . /Œ£-r#"r. /Œ£-r! r./¢-rr./£-rr. /Œ£-r./Œ£-/Œ¢r. /Œ£-r./Œ£-/Œ£r./Œ£-/Œ£r./Œ£-/Œ¢r. /Œ£-rrš¤ ,ç Ä,çÄ,çÄ,çÄ,ç ËÄ,ç ËÄ.-/Œ¢r/r–c�,€2�€d€(��X��ô€#�€È€*�–û-š¤,€ÜŒÌ†§ŒÌÿ¤+‡,ç‡+��ŒÄ‡,ç‡+ � ŒÄ‡,ç Ëć,çć,çć,çÄr †§¤-h ‡-²Ô7…. ‡,挌�¢¢…-€Ü¢£ ‡,挣 £raÈaì† ì§Èa˜r íhŠÃ–-¨9 Ray,0); &Move_Abs(590,Sun_S_Y); &Line_Rel(Long_Ray,0); &Offset := Round( Sun_Rad / sqrt(2) ); &Move_Abs(Sun_S_X+Offset,Sun_S) $Procedure Pole; &Begin (Move_Abs( Point_X , Point_Y ); (With Core^ Do *Begin ,Fill_Index := 0; ,Display_Mode := Fill; _Y+Offset); &Line_Rel(Short_Ray,Short_Ray); &Move_Abs(Sun_S_X+Offset,Sun_S_Y-Offset); &Line_Rel(Short_Ray,-Short_Ray); &Move,Polygon_Interior := Plain; ,Polygon_Edge := Interior; *End; (Box_Rel(8,B_Sail_H); &End; _Abs(Sun_S_X-Offset,Sun_S_Y-Offset); &Line_Rel(-Short_Ray,-Short_Ray); &Move_Abs(Sun_S_X-Offset,Sun_S_Y+Offset); &Line_Rel(-S$(*==================================*) $Begin &Pole; &A_Sail( Sail_Color , Point_X+8 , Point_Y+8 , .Point_X+8 , Point_Y + hort_Ray,Short_Ray); $End; "(*===============================*) "Procedure Body; $Begin &With Core^ Do (Begin *Fill_IndexB_Sail_H , .Point_X_+Boat_Rad-50 , Point_Y+8 ); &A_Sail( Sail_Color , Point_X , Point_Y + 20 , .Point_X , Point_Y + B_Sail_H  := 3; *Polygon_Edge := Solid_Line; *Display_Mode := Fill; *Polygon_Interior := Plain; *Overlay_Mode := Replace; *Line_Inde- 40 , .Point_X - Boat_Rad + 85 , Point_Y + 20 ); $End; "(*================================*) "Procedure Hull; "Const $Cenx := 1; (End; &Move_Abs(Sun_S_X,Sun_S_Y); &Circle_Rel(Sun_Rad); $End; "(*===============================*) "Procedure Faceter_X = 340; $Center_Y = 250; "Var $Start_X,Start_Y, $X_End,Y_End : Integer; $Start_Angle,End_Angle : Real; $Begin &Core^; $Begin $End; "(*===============================*) "Begin $Rays; $Body; $Face; "End; " .Line_Index := 1; &Start_Angle := 0.78539815 + 3.1415926278; &End_Angle := 2*3.1415926278 - 0.78539815; &Move_Abs(Center_X,Ce (*===========================================================================*) Procedure Boat; "(*==========================nter_Y); &Arc_Rel (Boat_Rad,End_Angle,Start_Angle,Start_X,Start_Y,X_End,Y_End); &Move_Abs(Start_X,Start_Y); &Line_Abs(X_End,Y======*) "Procedure Sails; $(*==================================*) %Procedure A_Sail(Color_Pass,Vert_1_X,Vert_1_Y, 6Vert_2_X_End); &Move_Abs(Start_X-8,Start_Y-3); &Core^.Fill_Index := 7; &Flood; & &{ Get rid of outline now. } &Core^.Line_Index :=,Vert_2_Y,Vert_3_X,Vert_3_Y:Integer); &Begin (Core^.Polygon_Interior := Plain; (Core^.Overlay_Mode := Replace; (Core^.Line_I Back_Color; &Move_Abs(Center_X,Center_Y); &Arc_Rel (Boat_Rad,End_Angle,Start_Angle,Start_X,Start_Y,X_End,Y_End); ndex := Color_Pass; (Core^.Fill_Index := Color_Pass; (Move_Abs(Vert_1_X,Vert_1_Y); (Line_Abs(Vert_2_X,Vert_2_Y); (Move_Abs(V&Move_Abs(Start_X,Start_Y); &Line_Abs(X_End,Y_End); & &Point_X := (Start_X + X_End) Div 2; &Point_Y := (Start_Y + Y_End) Diert_2_X,Vert_2_Y); (Line_Abs(Vert_3_X,Vert_3_Y); (Move_Abs(Vert_3_X,Vert_3_Y); (Line_Abs(Vert_1_X,Vert_1_Y); (Move_Abs( (Verv 2; & $End; "(*================================*) "Begin $With Core^ Do &Begin (Polygon_Edge := Solid_Line; (Display_Mo&Line_Rel(0,Long_Ray); &Move_Abs(Sun_S_X,Sun_S_Y-Sun_Rad); &Line_Rel(0,-Long_Ray); &Move_Abs(490,Sun_S_Y); &Line_Rel(-Long_t_1_X+Vert_2_X+Vert_3_X) Div 3 , 2(Vert_1_Y+Vert_2_Y+Vert_3_Y) Div 3 ); (Flood; &End; $(*==================================*: &Core^.Line_Index := 7; &Move_Abs (X_Start, Y_Start); &Line_Abs (X_End, Y_End); $End; "(*===============================*) enter_X,Center_Y+6); &Arc_Rel (Wave_Rad,Start_Angle,End_Angle,X_Start,Y_Start,X_End,Y_End); &Move_Abs(Center_X,Center_Y-Wave_R"Begin $Set_Line_Style (On, On, On, On, On, On, On, On); $Core^.Polygon_Edge := Solid_Line; $Core^.Overlay_Mode := Replace; ad+1); &Flood; &Core^.Line_Index := Back_Color; &Move_Abs(Center_X,Center_Y); &Arc_Rel (Wave_Rad,Start_Angle,End_Angle,X_Stade := Fast; (Polygon_Interior := Plain; (Overlay_Mode := Replace; ({ Line_Index := 1; } &End; $Hull; $Sails; "End; "  ($One_Arc(False,100,400,50,PI-PI_4,PI_2); $X_Save := X_Start; $Y_Save := Y_Start; $X_Start := Pred (X_End); *===========================================================================*)  Procedure Cloud; "Var $X_Save,Y_Save,X_Start,$Y_Start := Succ (Y_End); $X_End := 200; $Y_End := 470; $One_Arc(True,120,330,140,0,0); $X_Start := Pred (X_End); $Y_StartY_Start,X_End,Y_End : Integer; "(*===============================*) "Procedure One_Arc(Abs : Boolean; 4Center_X, 4 := Succ (Y_End); $X_End := 270; $Y_End := 480; $One_Arc(True,190,330,0,0,0); $X_Start := Pred (X_End); $Y_Start := Succ (YCenter_Y, 4Cir_Rad : Integer; 4Start_Angle, 4End_Angle :Real); $Var &Fill_X, &Fill_Y : Integer; $Begin &Core^.Li_End); $X_End := 205; $Y_End := 2* 396 - Y_Start; $One_Arc(True,205,396,0,0,0); ${Just drew the vertical} $X_Start := X_Endne_Index := 1; &Core^.Fill_Index := 7; &Core^.Display_Mode := Fast; &Move_Abs(Center_X,Center_Y); &If Abs Then (Begin *Arc; $Y_Start := Y_End; $X_End := 100; $Y_End := 356; $One_Arc(True,145,390,0,0,0); $X_Start := X_End + 2; $Y_Start := Pred (_Abs (Cir_Rad,Start_Angle,End_Angle,X_Start,Y_Start,X_End,Y_End); *Core^.Line_Index := Back_Color; Y_End); $X_End := X_Save; $Y_End := Y_Save; $One_Arc(True,(X_End+X_Start) Div 2,(Y_End+Y_Start) Div 2,0,0,0); $Move_Abs(100,*Arc_Abs (Cir_Rad,Start_Angle,End_Angle,X_Start,Y_Start,X_End,Y_End); *Core^.Line_Index := 1; (End; &Arc_Rel (Cir_Rad,Start_400); $Flood; "End;   (*===========================================================================*)  Procedure Water; "Angle,End_Angle,X_Start,Y_Start,X_End,Y_End); &Move_Abs(X_Start,Y_Start); &Line_Abs(X_End,Y_End); &Fill_X := (X_Start+X_End) Const $Water_Level = 70; "(*========================*) "Procedure A_Wave( Center_X,Center_Y,Wave_Rad : Integer ; Length:Real Div 2; &If Center_X < Fill_X Then (Fill_X := Fill_X + 2 &Else (Fill_X := Fill_X - 2; &Fill_Y := (Y_Start+Y_End) Div 2; &If); $Var &X_Start,Y_Start, &X_End,Y_End : Integer; &Start_Angle,End_Angle : Real; $Begin &With Core^ Do (Begin  Center_Y < Fill_Y Then (Fill_Y := Fill_Y + 2 &Else (Fill_Y := Fill_Y - 2; &Move_Abs(Fill_X,Fill_Y); &Flood; &Move_Abs(Cen*Line_Index := 1; *Fill_Index := Water_Color; *Display_Mode := Fast; (End; &Start_Angle := 3/2*PI+Length; &End_Angle := 3/ter_X,Center_Y); &Core^.Line_Index := Back_Color; &Arc_Rel (Cir_Rad, Start_Angle, End_Angle, X_Start, Y_Start, X_End, Y_End); 2*PI-Length; &Move_Abs(Center_X,Center_Y); &Arc_Rel (Wave_Rad,Start_Angle,End_Angle,X_Start,Y_Start,X_End,Y_End); &Move_Abs(C;  := 3/2*PI; &Move_Abs(Loc_X,Loc_Y); &Arc_Rel (Abs(5*Mag_Size),Start_Angle,End_Angle,X_Start,Y_Start,X_End,Y_End); &Move_Abs(L3) + X_Slack , 6(Point_Y+B_Sail_H-6-(I*Char_Height)) - Y_Slack ); ,{$R-} .S[0] := Chr(1); ,{$R^} ,S[1] := Message[I]; ,Texoc_X-10*Mag_Size,Loc_Y);  Line_Abs(X_Start,Y_Start); &Move_Abs(Loc_X-10*Mag_Size,Loc_Y); &Line_Abs(X_End,Y_End); &Movet(S); *End; &End; "End;  (*===========================================================================*)  Begin {of Test_Co_Abs(Loc_X+Mag_Size,Loc_Y); &Flood; &Move_Abs(Loc_X-Mag_Size,Loc_Y); &Flood; &Move_Abs(Loc_X-10*Mag_Size,Loc_Y); &Line_Abs(re} "Write('Enter Message: '); "Readln(Message); "{Write ('Do a Print-A-Color dump ? '); "Read (Keyboard, Ch); "Writeln (ChLoc_X-14*Mag_Size,Loc_Y+5*Mag_Size); &Move_Abs(Loc_X-10*Mag_Size,Loc_Y); &Line_Abs(Loc_X-14*Mag_Size,Loc_Y-5*Mag_Size); ); "Print_It := Ch In ['Y', 'y']; "If Print_It Then $Begin &Write ('Double Size ? '); &Read (Keyboard, Ch); &If Ch In ['Y'&Move_Abs(Loc_X-14*Mag_Size,Loc_Y-5*Mag_Size); &Line_Abs(Loc_X-14*Mag_Size,Loc_Y+5*Mag_Size); &Move_Abs(Loc_X-11*Mag_Size,Loc, 'y'] Then (Size := P2x2 &Else (Size := P_1x1; &Writeln (Ch); &Write ('Sideways ? '); &Read (Keyboard, Ch); &If Ch In ['rt,Y_Start,X_End,Y_End); &Move_Abs(Center_X,Center_Y+6); &Arc_Rel (Wave_Rad,Start_Angle,End_Angle,X_Start,Y_Start,X_End,Y_End)_Y); &Flood; &With Core^ Do (Begin *Display_Mode := Fill; *Polygon_Edge := Interior; *Polygon_Interior := Plain; *Overlay; $End; "(*========================*) "Begin $A_Wave( 10,Water_Level+33,50,PI_4); $A_Wave(80,Water_Level+75,90,PI_4); $A_W_Mode := Replace; *Line_Index := 0; *Fill_Index := 0; & End; &Move_Abs(Loc_X,Loc_Y+2*Mag_Size); &Circle_Rel(Mag_Size); $Eave(180,Water_Level+52,60,PI_4); $A_Wave(280,Water_Level+75,90,PI_4); $A_Wave(390,Water_Level+80,90,PI_4); $A_Wave(490,Water_nd; "(*==========================*) "Begin $One_Fish(2,300,50); $One_Fish(1,100,40); $One_Fish(2,600,30); $One_Fish(2,500,Level+65,70,PI_4); $A_Wave(580,Water_Level+65,70,PI_2); "End;  35); $One_Fish(3,200,42); "End;  (*===========================================================================*)  Procedure  (*===========================================================================*)  Procedure Fish; "(*========================Label_It; "Const $X_Slack = 7; $Y_Slack = 12; "Var $I : Integer; $S : String; $Letter_Mag : Integer; "Begin $With Core^==*) "Procedure One_Fish(Mag_Size,Loc_X,Loc_Y : Integer); $Var &X_Start,Y_Start, &X_End,Y_End : Integer; &Start_Angle, &E Do &Begin (Letter_Mag := Round(B_Sail_H * 4 / (5 * Length(Message))); (Char_Width := Letter_Mag Div 2 Div 2 * 3; (Char_Heind_Angle : Real; $Begin &With Core^ Do (Begin *Polygon_Interior := Plain; *Overlay_Mode := Replace; *Polygon_Edge := Solidght := Letter_Mag Div 10 * 11; (Text_Index := Text_Color; (Char_Path := Right; (Top_Bottom := Center; _Line; *Line_Index := Fish_Color; *Fill_Index := Fish_Color; *Display_Mode := Fast; (End; &Start_Angle := PI_2; &End_Angle(Left_Right := Center; (Set_Charup (0, 1); (For I := 1 to Length(Message) Do *Begin ,Move_Abs( (Point_X+I*Char_Width*2 Div < ase_Alpha;  End {of Test_Core}. úr€Èdó„ ócba`r #"r! r#£"£ršç ËÄršç ËÄ�T€úr€Èdó„ ócba`r #"r! r#!¢�¥." ¢�¥-– ‚šh çÄ ç Ä çÄ çÄ� �–dšç ËÄšç ËÄšç Ä,+r-Ô0„ fb­­­­r!šç ËÄ„ fb­­­­r!šç ËÄ*fób󈈈ˆr ­­r­­r­­¢�i,!³ñ!¢iŠ!£i­­¢�h+ ³ñ ¢hŠ £h! rr,+ršç ËÄ*fób󈈈ˆr šç ËÄ­­r­­r–,ršçÄšçÄ€d��€2ò€ò€Áò€� #m"l!îk íj€Èi�Öh€x�J€ŒÌÌ� !îk íj�i�àh€¾�JÌÌ� !îk íj€Íi�ŒŒ"£h€Í�ŒÌÌ� !k j€di�dh€‘�†ÌÌ� !¢k îj%i$h!#¢� "¢�ÌÌ� €d��rr–Ñ š¤ ,ç ËÄ,ç ËÄ,ç Ä„ ÌÌÃò€!„óÀôdÌÌÃò€&„óÁô‡‡r‡„ ódócba`r ‡CTESTCORE ‡¢r‡„ ódócba`r ‡‡‡£írršç Ëć‡r‡„ ódócba`r ‡‡¢r‡„ ódócba`r –= €F€!¢€2ò€+�€P€F€K¢€Zò€/�€´€F€4¢€<ò€3� �€F€K¢€Zò€7��†€F€P¢€Zò€;��ê€F€A¢€Fò€?��D€F€A¢€Fò€C�–7 š¤ ,çÄ,çÄ,çÄ,ç ËÄ,ç ËÄ,ç Ä„ ò€GôdÌÌÃò€KÂô.-€€€€€€€€€€€€€€€€0r/Œà„ ódócba`r . /Œ£-r#"r. /Œ£-r! r./¢-rr./£-rr. /Œ£-r./Œ£-/Œ¢r. /Œ£-r./Œ£-/Œ£r./Œ£-/Œ£r./Œ£-/Œ¢r. /Œ£-rY', 'y'] Then (Dir := Horizontal &Else (Dir := Vertical; &Writeln (Ch); $End;} "BUF[0] := CHR(26); "BUF[1] := 'G'; "UNITÖ ~å~å&÷GRAFICS @Úü@   þ Üå@Úü@ þ ²1WRITE(1,BUF,2); "BUF[1] := 'N'; "UNITWRITE(1,BUF,2); "Plane_Enable (7); "Core^.Background := Back_Color; BTESTCOREÙÄšç ËÄ��|€2¢r€2r��|€2£r€2ár�ê�|r€2ár�N�|r€2r€2ÌÌsÿ¦�­¢�|­¢r€#"Set_Region (0, 0, 640, 480); "Pat_ID := 0; "Font_ID := 0; "Set_Fill_Pattern (Pat_ID); "Set_Font (Font_ID);   "Erase_A€#r�­¢�|­£r€#€#ár�­£�|­£r€#á€#ár�­£�|­¢r€#á€#r–þšh ç ËÄ çÄ ç Ä çÄ çÄ ç ËÄ��|r€2r–lpha; "Erase; "WATER; "SUN; "BOAT; "CLOUD; "{ Fill the water now } "Core^.Fill_Index := Water_Color; "Move_Abs(10,10); –���–bšçÄšçÄšç &ËÄšç &ËÄ%$r#"r#"r! r! r%$r%#¢!¢�$"¢ ¢�rr–Ž….…-ršh ç ËÄ ç Ä "Flood; "Fish; "Label_It; "{If Print_It Then $Screen_Dump (0, 0, 639, 479, Size, False, Dir) "Else} $Readln; "Erase; "ErçÄ çÄ€Ür –Õ� ….¢…-¢….¢…-€Ü¢….€È¢€2£…-¢�….…-¢….…-€Ü¢€(£….€È£€U¢…-¢�–` šç ËÄ„ ò€ò€ÀôdÌò€ Âò€Áô�T€= š‚€P�t pš†€Pt pšt p†,ËȆ,Ë€GȆ,p†,Ë€NȆ,pršçËÄ�€�àr"á€cË¥á€cË¥1á€cËr0á€cËr rr‘ ‘‘‘ šç ËÄ rr‘‘št prr–øÿ­W&ÿÿõÿE &Ü ÿÿõÿE &Ü ÿÿøÿ­W&ÿÿõÿE &Ü ÿÿøÿ­W&ÿÿùÿ"ÿÿõÿE &Ü ÿÿõÿ&Move_Abs(Loc_X-14*Mag_Size,Loc_Y-5*Mag_Size); &Line_Abs(Loc_X-14*Mag_Size,Loc_Y+5*Mag_Size); &Move_Abs(Loc_X-11*Mag_Size,LocE &Ü ÿÿøÿ­W&ÿÿøÿ­W&ÿÿøÿ­W&ÿÿøÿ­W&ÿÿøÿ­W&ÿÿøÿ­W&ÿÿùÿ"ÿÿùÿ"ÿÿõÿE &Ü ÿÿEnter Message: 4¡kC´í³ŠÉ2�d _Y); &Flood; &With Core^ Do (Begin *Display_Mode := Fill; *Polygon_Edge := Interior; *Polygon_Interior := Plain; *Overlay„€PASCALIOREALOPS GRAFDRAW _Mode := Replace; *Line_Index := 0; *Fill_Index := 0; & End; &Move_Abs(Loc_X,Loc_Y+2*Mag_Size); &Circle_Rel(Mag_Size); $End; "(*==========================*) "Begin $One_Fish(2,300,50); $One_Fish(1,100,40); $One_Fish(2,600,30); $One_Fish(2,500,þ0ýp†,Ë€NȆ,pršçËÄ�€�àr"á€cË¥á€cË¥1á€cËr0á€cËr rr‘ ‘‘‘ šç ËÄ rr‘‘št prrý–ýý4ý- 0N(Left_Right := Center; (Set_Charup (0, 1); (For I := 1 to Length(Message) Do *Begin ,Move_Abs( (Point_X+I*Char_Width*2 Div þ0ý3) + X_Slack , 6(Point_Y+B_Sail_H-6-(I*Char_Height)) - Y_Slack ); ,{$R-} .S[0] := Chr(1); ,{$R^} ,S[1] := Message[I]; ,Texrš¤ ,ç Ä,çÄ,çÄ,çÄ,ç ËÄ,ç ËÄ.-/Œ¢r/r–c�,€2�€d€(��X��ô€#�€È€*�–û-š¤,€ÜŒÌ†§ŒÌÿ¤+‡,ç‡+��ŒÄ‡,ç‡+ � ŒÄ‡,ç Ëć,çć,çć,çÄr †§¤-h ‡-²Ô7…. ‡,挌�¢¢…-€Ü¢£ ‡,挣 £raÈaì† ì§Èa˜r íhŠÃ–-¯> ; &PI_x7_4 = 5.497787; &PI_x5_4 = 3.9269907;  Var Font_ID : Font_Type; $Pat_ID : Pat_Type;  Message : String; $BUF : t(S); *End; &End; "End;  (*===========================================================================*)  Begin {of Test_Core} "Write('Enter Message: '); "Readln(Message); "{Write ('Do a Print-A-Color dump ? '); "Read (Keyboard, Ch); "Writeln (Ch$TAG $CURSOR $EQUAL $LAST A $SYNTAX ); "Print_It := Ch In ['Y', 'y']; "If Print_It Then $Begin &Write ('Double Size ? '); &Read (Keyboard, Ch); &If Ch In ['Y', 'y'] Then (Size := P2x2 &Else (Size := P_1x1; &Writeln (Ch); &Write ('Sideways ? '); &Read (Keyboard, Ch); &If Ch In ['yxyä�Y', 'y'] Then (Dir := Horizontal &Else (Dir := Vertical; &Writeln (Ch); $End;} "BUF[0] := CHR(26); "BUF[1] := 'G'; "UNITO.#¦$§ôWRITE(1,BUF,2); "BUF[1] := 'N'; "UNITWRITE(1,BUF,2); "Plane_Enable (7); "Core^.Background := Back_Color; "Set_Region (0, 0, 640, 480); "Pat_ID := 0; "Font_ID := 0; "Set_Fill_Pattern (Pat_ID); "Set_Font (Font_ID);   "Erase_Alpha; "Erase; "WATER; "SUN; "BOAT; "CLOUD; "{ Fill the water now } "Core^.Fill_Index := Water_Color; "Move_Abs(10,10); "Flood; "Fish; "Label_It; "{If Print_It Then $Screen_Dump (0, 0, 639, 479, Size, False, Dir) "Else} $Readln; "Erase; "Erase_Alpha;  End {of Test_Core}.  Program Test_Core;  {$U Grafics:Grafdraw.Code}  Uses Graf_Draw;  Const Esc = 27; { Escape key } &Text_Color = 0; &Back_Color = 4; &Water_Color = 6; &Sail_Color = 1; &Fish_Color = 3; &B_Sail_H = 220; &Boat_Rad = 200; &PI_8 = 0.39269907; &PI_4 = 0.78539815; &PI_2 = 1.5707963; &PI = 3.1415926278; &PI_x2 = 6.2831852; &PI_x3_2 = 4.7123889; &PI_x3_4 = 2.3561944?  := 3; *Polygon_Edge := Solid_Line; *Display_Mode := Fill; *Polygon_Interior := Plain; *Overlay_Mode := Replace; *Line_Inde- 40 , .Point_X - Boat_Rad + 85 , Point_Y + 20 ); $End; "(*================================*) "Procedure Hull; "Const $Cenx := 1; (End; &Move_Abs(Sun_S_X,Sun_S_Y); &Circle_Rel(Sun_Rad); $End; "(*===============================*) "Procedure Faceter_X = 340; $Center_Y = 250; "Var $Start_X,Start_Y, $X_End,Y_End : Integer; $Start_Angle,End_Angle : Real; $Begin &Core^; $Begin $End; "(*===============================*) "Begin $Rays; $Body; $Face; "End; " .Line_Index := 1; &Start_Angle := 0.78539815 + 3.1415926278; &End_Angle := 2*3.1415926278 - 0.78539815; &Move_Abs(Center_X,Ce (*===========================================================================*) Procedure Boat; "(*==========================nter_Y); &Arc_Rel (Boat_Rad,End_Angle,Start_Angle,Start_X,Start_Y,X_End,Y_End); &Move_Abs(Start_X,Start_Y); &Line_Abs(X_End,YPACKED ARRAY [0..1] OF CHAR; $Point_X , Point_Y : Integer; $Ch : Char; $Print_It : Boolean; ${Size : Pixel_Size;} ${Dir : ======*) "Procedure Sails; $(*==================================*) %Procedure A_Sail(Color_Pass,Vert_1_X,Vert_1_Y, 6Vert_2_XPrint_Direction;}  (*===========================================================================*)  Procedure Sun; "Const $S,Vert_2_Y,Vert_3_X,Vert_3_Y:Integer); &Begin (Core^.Polygon_Interior := Plain; (Core^.Overlay_Mode := Replace; (Core^.Line_Iun_Rad = 50; $Sun_S_Y = 380; $Sun_S_X = 540; $Long_Ray = 50; $Short_Ray = 35; "Var $Offset : Integer; "(*================ndex := Color_Pass; (Core^.Fill_Index := Color_Pass; (Move_Abs(Vert_1_X,Vert_1_Y); (Line_Abs(Vert_2_X,Vert_2_Y); (Move_Abs(V===============*) "Procedure Rays; $Begin $ Core^.Line_Index := 1; &Move_Abs(Sun_S_X,Sun_S_Y+Sun_Rad); ert_2_X,Vert_2_Y); (Line_Abs(Vert_3_X,Vert_3_Y); (Move_Abs(Vert_3_X,Vert_3_Y); (Line_Abs(Vert_1_X,Vert_1_Y); (Move_Abs( (Ver&Line_Rel(0,Long_Ray); &Move_Abs(Sun_S_X,Sun_S_Y-Sun_Rad); &Line_Rel(0,-Long_Ray); &Move_Abs(490,Sun_S_Y); &Line_Rel(-Long_t_1_X+Vert_2_X+Vert_3_X) Div 3 , 2(Vert_1_Y+Vert_2_Y+Vert_3_Y) Div 3 ); (Flood; &End; $(*==================================*Ray,0); &Move_Abs(590,Sun_S_Y); &Line_Rel(Long_Ray,0); &Offset := Round( Sun_Rad / sqrt(2) ); &Move_Abs(Sun_S_X+Offset,Sun_S) $Procedure Pole; &Begin (Move_Abs( Point_X , Point_Y ); (With Core^ Do *Begin ,Fill_Index := 0; ,Display_Mode := Fill; _Y+Offset); &Line_Rel(Short_Ray,Short_Ray); &Move_Abs(Sun_S_X+Offset,Sun_S_Y-Offset); &Line_Rel(Short_Ray,-Short_Ray); &Move,Polygon_Interior := Plain; ,Polygon_Edge := Interior; *End; (Box_Rel(8,B_Sail_H); &End; _Abs(Sun_S_X-Offset,Sun_S_Y-Offset); &Line_Rel(-Short_Ray,-Short_Ray); &Move_Abs(Sun_S_X-Offset,Sun_S_Y+Offset); &Line_Rel(-S$(*==================================*) $Begin &Pole; &A_Sail( Sail_Color , Point_X+8 , Point_Y+8 , .Point_X+8 , Point_Y + hort_Ray,Short_Ray); $End; "(*===============================*) "Procedure Body; $Begin &With Core^ Do (Begin *Fill_IndexB_Sail_H , .Point_X_+Boat_Rad-50 , Point_Y+8 ); &A_Sail( Sail_Color , Point_X , Point_Y + 20 , .Point_X , Point_Y + B_Sail_H @ Y_Start,X_End,Y_End : Integer; "(*===============================*) "Procedure One_Arc(Abs : Boolean; 4Center_X, 4 := Succ (Y_End); $X_End := 270; $Y_End := 480; $One_Arc(True,190,330,0,0,0); $X_Start := Pred (X_End); $Y_Start := Succ (YCenter_Y, 4Cir_Rad : Integer; 4Start_Angle, 4End_Angle :Real); $Var &Fill_X, &Fill_Y : Integer; $Begin &Core^.Li_End); $X_End := 205; $Y_End := 2* 396 - Y_Start; $One_Arc(True,205,396,0,0,0); ${Just drew the vertical} $X_Start := X_Endne_Index := 1; &Core^.Fill_Index := 7; &Core^.Display_Mode := Fast; &Move_Abs(Center_X,Center_Y); &If Abs Then (Begin *Arc; $Y_Start := Y_End; $X_End := 100; $Y_End := 356; $One_Arc(True,145,390,0,0,0); $X_Start := X_End + 2; $Y_Start := Pred (_Abs (Cir_Rad,Start_Angle,End_Angle,X_Start,Y_Start,X_End,Y_End); *Core^.Line_Index := Back_Color; Y_End); $X_End := X_Save; $Y_End := Y_Save; $One_Arc(True,(X_End+X_Start) Div 2,(Y_End+Y_Start) Div 2,0,0,0); $Move_Abs(100,*Arc_Abs (Cir_Rad,Start_Angle,End_Angle,X_Start,Y_Start,X_End,Y_End); *Core^.Line_Index := 1; (End; &Arc_Rel (Cir_Rad,Start_400); $Flood; "End;   (*===========================================================================*)  Procedure Water; "Angle,End_Angle,X_Start,Y_Start,X_End,Y_End); &Move_Abs(X_Start,Y_Start); &Line_Abs(X_End,Y_End); &Fill_X := (X_Start+X_End) Const $Water_Level = 70; "(*========================*) "Procedure A_Wave( Center_X,Center_Y,Wave_Rad : Integer ; Length:Real Div 2; &If Center_X < Fill_X Then (Fill_X := Fill_X + 2 &Else (Fill_X := Fill_X - 2; &Fill_Y := (Y_Start+Y_End) Div 2; &If); $Var &X_Start,Y_Start, &X_End,Y_End : Integer; &Start_Angle,End_Angle : Real; $Begin &With Core^ Do (Begin _End); &Move_Abs(Start_X-8,Start_Y-3); &Core^.Fill_Index := 7; &Flood; & &{ Get rid of outline now. } &Core^.Line_Index := Center_Y < Fill_Y Then (Fill_Y := Fill_Y + 2 &Else (Fill_Y := Fill_Y - 2; &Move_Abs(Fill_X,Fill_Y); &Flood; &Move_Abs(Cen Back_Color; &Move_Abs(Center_X,Center_Y); &Arc_Rel (Boat_Rad,End_Angle,Start_Angle,Start_X,Start_Y,X_End,Y_End); ter_X,Center_Y); &Core^.Line_Index := Back_Color; &Arc_Rel (Cir_Rad, Start_Angle, End_Angle, X_Start, Y_Start, X_End, Y_End); &Move_Abs(Start_X,Start_Y); &Line_Abs(X_End,Y_End); & &Point_X := (Start_X + X_End) Div 2; &Point_Y := (Start_Y + Y_End) Di&Core^.Line_Index := 7; &Move_Abs (X_Start, Y_Start); &Line_Abs (X_End, Y_End); $End; "(*===============================*) v 2; & $End; "(*================================*) "Begin $With Core^ Do &Begin (Polygon_Edge := Solid_Line; (Display_Mo"Begin $Set_Line_Style (On, On, On, On, On, On, On, On); $Core^.Polygon_Edge := Solid_Line; $Core^.Overlay_Mode := Replace; de := Fast; (Polygon_Interior := Plain; (Overlay_Mode := Replace; ({ Line_Index := 1; } &End; $Hull; $Sails; "End; "  ($One_Arc(False,100,400,50,PI-PI_4,PI_2); $X_Save := X_Start; $Y_Save := Y_Start; $X_Start := Pred (X_End); *===========================================================================*)  Procedure Cloud; "Var $X_Save,Y_Save,X_Start,$Y_Start := Succ (Y_End); $X_End := 200; $Y_End := 470; $One_Arc(True,120,330,140,0,0); $X_Start := Pred (X_End); $Y_StartA ad+1); &Flood; &Core^.Line_Index := Back_Color; &Move_Abs(Center_X,Center_Y); &Arc_Rel (Wave_Rad,Start_Angle,End_Angle,X_Sta&Move_Abs(Loc_X-14*Mag_Size,Loc_Y-5*Mag_Size); &Line_Abs(Loc_X-14*Mag_Size,Loc_Y+5*Mag_Size); &Move_Abs(Loc_X-11*Mag_Size,Locrt,Y_Start,X_End,Y_End); &Move_Abs(Center_X,Center_Y+6); &Arc_Rel (Wave_Rad,Start_Angle,End_Angle,X_Start,Y_Start,X_End,Y_End)_Y); &Flood; &With Core^ Do (Begin *Display_Mode := Fill; *Polygon_Edge := Interior; *Polygon_Interior := Plain; *Overlay; $End; "(*========================*) "Begin $A_Wave( 10,Water_Level+33,50,PI_4); $A_Wave(80,Water_Level+75,90,PI_4); $A_W_Mode := Replace; *Line_Index := 0; *Fill_Index := 0; & End; &Move_Abs(Loc_X,Loc_Y+2*Mag_Size); &Circle_Rel(Mag_Size); $Eave(180,Water_Level+52,60,PI_4); $A_Wave(280,Water_Level+75,90,PI_4); $A_Wave(390,Water_Level+80,90,PI_4); $A_Wave(490,Water_nd; "(*==========================*) "Begin $One_Fish(2,300,50); $One_Fish(1,100,40); $One_Fish(2,600,30); $One_Fish(2,500,Level+65,70,PI_4); $A_Wave(580,Water_Level+65,70,PI_2); "End;  35); $One_Fish(3,200,42); "End;  (*===========================================================================*)  Procedure  (*===========================================================================*)  Procedure Fish; "(*========================Label_It; "Const $X_Slack = 7; $Y_Slack = 12; "Var $I : Integer; $S : String; $Letter_Mag : Integer; "Begin $With Core^==*) "Procedure One_Fish(Mag_Size,Loc_X,Loc_Y : Integer); $Var &X_Start,Y_Start, &X_End,Y_End : Integer; &Start_Angle, &E Do &Begin (Letter_Mag := Round(B_Sail_H * 4 / (5 * Length(Message))); (Char_Width := Letter_Mag Div 2 Div 2 * 3; (Char_Heind_Angle : Real; $Begin &With Core^ Do (Begin *Polygon_Interior := Plain; *Overlay_Mode := Replace; *Polygon_Edge := Solidght := Letter_Mag Div 10 * 11; (Text_Index := Text_Color; (Char_Path := Right; (Top_Bottom := Center; _Line; *Line_Index := Fish_Color; *Fill_Index := Fish_Color; *Display_Mode := Fast; (End; &Start_Angle := PI_2; &End_Angle(Left_Right := Center; (Set_Charup (0, 1); (For I := 1 to Length(Message) Do *Begin ,Move_Abs( (Point_X+I*Char_Width*2 Div  := 3/2*PI; &Move_Abs(Loc_X,Loc_Y); &Arc_Rel (Abs(5*Mag_Size),Start_Angle,End_Angle,X_Start,Y_Start,X_End,Y_End); &Move_Abs(L3) + X_Slack , 6(Point_Y+B_Sail_H-6-(I*Char_Height)) - Y_Slack ); ,{$R-} .S[0] := Chr(1); ,{$R^} ,S[1] := Message[I]; ,Tex*Line_Index := 1; *Fill_Index := Water_Color; *Display_Mode := Fast; (End; &Start_Angle := 3/2*PI+Length; &End_Angle := 3/oc_X-10*Mag_Size,Loc_Y);  Line_Abs(X_Start,Y_Start); &Move_Abs(Loc_X-10*Mag_Size,Loc_Y); &Line_Abs(X_End,Y_End); &Move2*PI-Length; &Move_Abs(Center_X,Center_Y); &Arc_Rel (Wave_Rad,Start_Angle,End_Angle,X_Start,Y_Start,X_End,Y_End); &Move_Abs(C_Abs(Loc_X+Mag_Size,Loc_Y); &Flood; &Move_Abs(Loc_X-Mag_Size,Loc_Y); &Flood; &Move_Abs(Loc_X-10*Mag_Size,Loc_Y); &Line_Abs(enter_X,Center_Y+6); &Arc_Rel (Wave_Rad,Start_Angle,End_Angle,X_Start,Y_Start,X_End,Y_End); &Move_Abs(Center_X,Center_Y-Wave_RLoc_X-14*Mag_Size,Loc_Y+5*Mag_Size); &Move_Abs(Loc_X-10*Mag_Size,Loc_Y); &Line_Abs(Loc_X-14*Mag_Size,Loc_Y-5*Mag_Size); B t(S); *End; &End; "End;  (*===========================================================================*)  Begin {of Test_Core} "Write('Enter Message: '); "Readln(Message); "{Write ('Do a Print-A-Color dump ? '); "Read (Keyboard, Ch); "Writeln (Chlock_Pixels (Data : Sorcery; Rows, Columns : Integer); " "Procedure Read_Block_Pixels (Data : Sorcery; Rows, Columns : Integer); "Print_It := Ch In ['Y', 'y']; "If Print_It Then $Begin &Write ('Double Size ? '); &Read (Keyboard, Ch); &If Ch In ['Y'); " Procedure Set_Charup (DX_Charup, 8DY_Charup : Integer); " "Procedure Set_Font (Font_Num : Font_Type); " "Procedure, 'y'] Then (Size := P2x2 &Else (Size := P_1x1; &Writeln (Ch); &Write ('Sideways ? '); &Read (Keyboard, Ch); &If Ch In [' Text (The_String : String); " Procedure Set_Line_Style (Dot_1,