home *** CD-ROM | disk | FTP | other *** search
/ For Beginners & Professional Hackers / cd.iso / docum / pascal.doc / pas_1-4.doc < prev    next >
Encoding:
Text File  |  1989-11-26  |  134.8 KB  |  3,219 lines
  1.  
  2.                           âïÇéÇ 12
  3.  
  4.                      æΓá¡ñáαΓ¡δÑ ¼«ñπ½¿
  5.  
  6.      é â½áóÑ 11 ("æΓá¡ñáαΓ¡δÑ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿)  «»¿ßδóá-
  7. ½¿ß∞ óßÑ óßΓα«Ñ¡¡δÑ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿ Æπαí«-Åá߬á½∩, ¬«Γ«-
  8. αδÑ ¼«úπΓ óδºδóáΓ∞ß∩ íѺ ∩ó¡«ú« ¿σ π¬áºá¡¿∩  (¬á¬¿¼,  ¡á»α¿-
  9. ¼Ñα,  ∩ó½∩ÑΓß∩  ßΓá¡ñáαΓ¡«Ñ  «»αÑñѽѡ¿Ñ Åá߬á½∩). êß»«½∞ºπ∩
  10. ßΓá¡ñáαΓ¡δÑ ¼«ñπ½¿ Æπαí«-Åá߬á½∩, óδ ß¼«ªÑΓÑ αÑ὿º«óáΓ∞ ¡á-
  11. ¿í«½∞Φ¿Ñ  ó«º¼«ª¡«ßΓ¿  »α«úαá¼¼¿α«óá¡¿∩ (í«½ÑÑ »«ñα«í¡á∩ ¿¡-
  12. Σ«α¼áµ¿∩ ß«ñÑনΓß∩ ó â½áóÑ 16  "Åα«µÑñπαδ ¿ Σπ¡¬µ¿¿  Æπαí«-
  13. Åá߬á½∩").
  14.      æΓá¡ñáαΓ¡δÑ  ¼«ñπ½¿ ¡Ñ «Γ½¿τáεΓß∩ «Γ ΓÑσ ¼«ñπ½Ñ⌐, ¬«Γ«-
  15. αδÑ óδ  ßἿ  ¼«ªÑΓÑ »¿ßáΓ∞.  î«ª¡«  ¿ß»«½∞º«óáΓ∞  ß½ÑñπεΘ¿Ñ
  16. ßΓá¡ñáαΓ¡δÑ ¼«ñπ½¿:
  17.      ært - »«ºó«½∩ÑΓ ¿ß»«½∞º«óáΓ∞ óßѠ󫺼«ª¡«ßΓ¿  ñ¿ß»½Ñ∩ ¿
  18. ¬½áó¿áΓπαδ »Ñαß«¡á½∞¡«ú« ¬«¼»∞εΓÑαá Éæ,  ó¬½ετá∩  π»αáó½Ñ¡¿Ñ
  19. αѪ¿¼«¼ φ¬αá¡á,  αáßΦ¿αÑ¡¡δÑ  ¬«ñδ  ¬½áó¿áΓπαδ, µóÑΓ, «¬¡á ¿
  20. ºóπ¬«óδÑ ß¿ú¡á½δ;
  21.      Dos - »«ññÑনóáÑΓ αẽ¿τ¡δÑ Σπ¡¬µ¿¿ äÄæ, ó¬½ετá∩ πßΓá-
  22. ¡«ó¬π ¿ »«½πτÑ¡¿Ñ ΓѬπΘÑú« º¡áτÑ¡¿∩ ñáΓδ ¿ óαѼѡ¿, »«¿ß¬ »«
  23. ¬áΓὫúá¼ Σá⌐½«ó ¿ óδ»«½¡Ñ¡¿Ñ »α«úαá¼¼;
  24.      Graph3 - αÑ὿ºπÑΓ  úαáΣ¿¬π  óÑαß¿¿  3.0 Æπαí«-Åá߬á½∩,
  25. ¿ß»«½∞ºπεΘπε «Γ¡«ß¿Γѽ∞¡δÑ ¬«¼á¡ñδ (TurtleGraphics);
  26.      Overlay - αÑ὿ºπÑΓ ¼«Θ¡πε »«ñß¿ßΓѼπ π»αáó½Ñ¡¿∩  «óÑα-
  27. ½Ñ∩¼¿ óÑαß¿¿ 5.0 Æπαí«-Åá߬á½∩ (ß¼. â½áóπ 13 "ÄóÑα½Ñ¿").
  28.      Érinter - »«ºó«½∩ÑΓ ½Ñú¬« «αúá¡¿º«óáΓ∞ ñ«ßΓπ» ¬ πßΓα«⌐-
  29. ΓßΓóπ »ÑτáΓ¿.
  30.      System - í¿í½¿«ΓѬᠠ»«ññÑ᪬¿  Æπαí«-Åá߬á½∩ (φë༫-
  31. ñπ½∞ ¼«ªÑ áóΓ«¼áΓ¿τÑ߬¿ óδºδóáΓ∞ß∩ ½εíδ¼ ¼«ñπ½Ñ¼ »α«úαá¼¼δ).
  32.      Æuró«3 - «íÑß»Ñτ¿óáÑΓ  ¡á¿í«½ÑÑ óδß«¬πε ßΓѻѡ∞ ß«ó¼Ñß-
  33. Γ¿¼«ßΓ¿ ß óÑαß¿Ñ⌐ 3 Æπαí«-Åá߬á½∩.
  34.      Graph - ¼«Θ¡δ⌐  úαáΣ¿τÑ߬¿⌐ »á¬ÑΓ ß ¡Ñºáó¿ß¿¼«⌐ «Γ πßΓ-
  35. α«⌐ßΓó úαáΣ¿τÑ߬«⌐ »«ññÑ᪬«⌐ ñ½∩ úαáΣ¿τÑ߬¿σ áñá»ΓÑα«ó æGS,
  36. àGÇ, VGÇ, ìàRæ, êüî 3270 Éæ, îæGÇ ¿ ÇÆÆ 6300.
  37.      ùΓ«íδ ¿ß»«½∞º«óáΓ∞  ßΓá¡ñáαΓ¡δ⌐  ¼«ñπ½∞, Ñú« ¿¼∩ ñ«ßΓá-
  38. Γ«τ¡« ó¬½ετ¿Γ∞ ó »αÑñ½«ªÑ¡¿Ñ  ¿ß»«½∞º«óá¡¿∩ óáΦÑ⌐ »α«úαá¼¼δ.
  39.  
  40. ìá»α¿¼Ñα:
  41.  
  42.    uses Dos,Crt,Graph;
  43.  
  44.      Äíδτ¡« óßÑ ßΓá¡ñáαΓ¡δÑ  ¼«ñπ½¿  ¡áσ«ñ∩Γß∩ ó  í¿í½¿«ΓѬÑ
  45. TURBO.ÆÉL,  ¬«Γ«αá∩  áóΓ«¼áΓ¿τÑ߬¿  ºáúαπªáÑΓß∩  »α¿ ºá»π߬Ñ
  46. Æπαí«-Åá߬á½∩.  ä½∩  φ¬«¡«¼¿¿ »á¼∩Γ¿ óδ ¼«ªÑΓÑ πñ὿Γ∞ αÑñ¬«
  47. ¿ß»«½∞ºπѼδÑ ¼«ñπ½¿,  ΓᬿÑ,  ¬á¬  ÆURéÄ3 ¿ GRAPì3, ¿º Σá⌐½á
  48. ÆURéÄ.ÆÉL ß »«¼«Θ∞ε πΓ¿½¿Γδ ÆÉUîÄVàR.
  49.  
  50.               çáó¿ß¿¼«ßΓ∞ ßΓá¡ñáαΓ¡δσ ¼«ñπ½Ñ⌐
  51.  
  52.      Äíá ¼«ñπ½∩, »αÑñ¡áº¡áτÑ¡¡δσ  ñ½∩ ß«ó¼ÑßΓ¿¼«ßΓ¿ óÑαß¿⌐ -
  53. ÆURéÄ3 ¿ GRÇÉì3 - ºáó¿ß∩Γ «Γ  ßαÑñßΓó,  ñ«ßΓπ»¡δσ ñ½∩ ¼«ñπ½∩
  54. ært. Å«φΓ«¼π »α¿ ¿ß»«½∞º«óá¡¿¿ ñá¡¡δσ  ¼«ñπ½Ñ⌐ ¡πª¡« ß¡áτá½á
  55. «»αÑñѽ¿Γ∞  ¼«ñπ½∞  ært  ó  »αÑñ½«ªÑ¡¿¿  ¿ß»«½∞º«óá¡¿∩ óáΦÑ⌐
  56. »α«úαá¼¼δ.  é Æáí½¿µÑ 12.1 »α¿ó«ñ¿Γß∩ ß»¿ß«¬ ßΓá¡ñáαΓ¡δσ ¼«-
  57. ñπ½Ñ⌐.
  58.  
  59.                   æΓá¡ñáαΓ¡δÑ ¼«ñπ½¿       Æáí½¿µá 12.1
  60. -------------------------------------------------------
  61.        î«ñπ½∞                    çáñá¡¿Ñ ó »αÑñ½«ªÑ¡¿¿
  62.                                      ¿ß»«½∞º«óá¡¿Ñ
  63. -------------------------------------------------------
  64.       ært                            ¡Ñ ΓαÑíπÑΓß∩
  65.       Dos                            ¡Ñ ΓαÑíπÑΓß∩
  66.       Gráα¡                          ¡Ñ ΓαÑíπÑΓß∩
  67.       Gráα¡3                            ært
  68.       Overlay                        ¡Ñ ΓαÑíπÑΓß∩
  69.       Printer                        ¡Ñ ΓαÑíπÑΓß∩
  70.       System                         ¡Ñ ΓαÑíπÑΓß∩
  71.       Æuró«3                            ært
  72. -------------------------------------------------------
  73.  
  74.      îδ ¡á¼ÑαÑ¡¡« ¡Ñ «Γ¼ÑΓ¿½¿ ó  Γáí½¿µÑ, τΓ« óßÑ ¼«ñπ½¿ ¿ß-
  75. »«½∞ºπεΓ í½«¬ SystѼ,  »α«úαá¼¼δ  ñ¿¡á¼¿τÑ߬«⌐ »«ññÑ᪬¿ ñ½∩
  76. óßÑσ óßΓα«Ñ¡¡δσ Σπ¡¬µ¿⌐, Γᬿσ, ¬á¬ Σá⌐½«óδ⌐ óó«ñ-óδó«ñ, «í-
  77. αáí«Γ¬á ßΓ᫬,  «»Ñαᵿ¿  ß »½áóáεΘÑ⌐ ºá»∩Γ«⌐ ¿ ñ¿¡á¼¿τÑ߬«Ñ
  78. αáß»αÑñѽѡ¿Ñ  »á¼∩Γ¿. î«ñπ½∞ SystѼ áóΓ«¼áΓ¿τÑ߬¿ ¿ß»«½∞ºπ-
  79. ÑΓß∩  ½εíδ¼ ¼«ñπ½Ñ¼ ¿½¿ »α«úαá¼¼«⌐ ¿ Ñú« ¡Ñ ΓαÑíπÑΓß∩ π¬áºδ-
  80. óáΓ∞ ó »αÑñ½«ªÑ¡¿¿ uses.
  81.      Åα«µÑñπαδ ¿ Σπ¡¬µ¿¿, ß«ñÑαªáΘ¿Ñß∩ ó ¼«ñπ½Ñ System, «»¿-
  82. ßδóáεΓß∩ ó â½áóÑ 10 ("éó«ñ ¿ óδó«ñ") ¿ ó â½áóÑ 11 ("æΓá¡ñáα-
  83. Γ¡δÑ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿"). ê¼ÑÑΓß∩ ΓᬪѠα∩ñ  »αÑñ«»¿ßá¡¡δσ
  84. »ÑαѼѡ¡δσ, ó¬½ετá∩:
  85.  
  86.   const
  87.     OvrCodeList : word = 0;  { ß»¿ß«¬ ßÑú¼Ñ¡Γ«ó «óÑα½Ñ⌐¡«ú«
  88.                                ¬«ñá }
  89.     OvrHeapSize : word = 0;  { ¡áτá½∞¡δ⌐ αẼÑα «óÑα½Ñ⌐¡«ú«
  90.                                íπΣÑαá }
  91.     OvrDebugPtr : pointer = nil; { ¿ß»«½∞ºπÑΓß∩ »α¿ «Γ½áñ¬Ñ
  92.                                 «óÑα½ÑÑó }
  93.     OvrHeapOrg : word = 0;    { ¡áτὫ «óÑα½Ñ⌐¡«ú« íπΣÑαá }
  94.     OvrHeapPtr : word = 0;  { π¬áºáΓѽ∞ «óÑα½Ñ⌐¡«ú« íπΣÑαá }
  95.     OvrHeapEnd : word = 0;    { ¬«¡Ñµ «óÑα½Ñ⌐¡«ú« íπΣÑαá }
  96.     OvrLoadList : word = 0;  { ß»¿ß«¬ ºáúαπªÑ¡¡δσ «óÑα½ÑÑó }
  97.     OvrDosHandle : word = 0;  { ¬á¡á½ «óÑα½ÑÑó äÄæ }
  98.     OvrEmsHandle : word = 0;  { ¬á¡á½ «óÑα½ÑÑó EMS }
  99.     HeapOrg : pointer = nil;  { ¡áτὫ ñ¿¡á¼¿τÑ߬¿ αáß-
  100.                                 »αÑñѽ∩Ѽ«⌐ «í½áßΓ¿ }
  101.     HeapPtr : pointer = nil;  { π¬áºáΓѽ∞ ñ¿¡á¼¿τÑ߬¿ αáß-
  102.                                 »αÑñѽ∩Ѽ«⌐ «í½áßΓ¿ }
  103.     FreePtr : pointer = nil;  { π¬áºáΓѽ∞ ¡á ß»¿ß«¬ ßó«í«ñ-
  104.                                 ¡δσ «í½áßΓÑ⌐ }
  105.     FreeMin : word = 0; { ¼¿¡¿¼á½∞¡δ⌐ αẼÑα ß»¿ß¬á ßó«í«ñ-
  106.                                 ¡δσ «í½áßΓÑ⌐ }
  107.     HeapError : pointer = nil; { Σπ¡¬µ¿∩ «Φ¿í¬¿ ñ¿¡á¼¿τÑ߬¿
  108.                                 αáß»αÑñѽ∩Ѽ«⌐ «í½áßΓ¿ »á¼∩-
  109.                                 Γ¿ }
  110.     ExitProc : pointer = nil;  { »α«µÑñπαá óδσ«ñá }
  111.     ExitCode : integer = 0;    { ¬«ñ óδσ«ñá }
  112.     ErrorAddr : pointer = nil; { áñαÑß «Φ¿í¬¿ óαѼѡ¿ óδ»«½-
  113.                                  ¡Ñ¡¿∩ }
  114.     PrefixSeg : word = 0;      { »αÑΣ¿¬ß¡δ⌐ ßÑú¼Ñ¡Γ »α«úαá¼-
  115.                                  ¼δ }
  116.     StackLimit : word = 0;     { π¬áºáΓѽ∞ ¡á ¡¿ª¡εε úαá¡¿µπ
  117.                                  ßΓѬá }
  118.     InOutRes : integer = 0;    { íπΣÑα αѺπ½∞ΓáΓá «»Ñαᵿ¿
  119.                                  óó«ñá-óδó«ñá }
  120.     RandSeed : longint = 0;    { ß½πτá⌐¡«Ñ τ¿ß½« (úÑ¡Ñα¿απ-
  121.                                  ÑΓß∩ ñáΓτ¿¬«¼ ß½πτá⌐¡δσ
  122.                                  τ¿ßѽ) }
  123.     FileMode : byte = 2;       { αѪ¿¼ «Γ¬αδΓ¿∩ Σá⌐½á }
  124.     Test8087 : byte = 0;       { αѺπ½∞ΓáΓ »α«óÑન »α«µÑß-
  125.                                  ß«αá 8087 }
  126.  
  127.   var
  128.     Input: text;          { ßΓá¡ñáαΓ¡δ⌐ Σá⌐½ óó«ñá }
  129.     Output: text;         { ßΓá¡ñáαΓ¡δ⌐ Σá⌐½ óδó«ñá }
  130.     SaveInt00: pointer;   { ß«σαá¡Ñ¡¡«Ñ »αÑαδóá¡¿Ñ $00 }
  131.     SaveInt02: pointer;   { ß«σαá¡Ñ¡¡«Ñ »αÑαδóá¡¿Ñ $02 }
  132.     SaveInt1B: pointer;   { ß«σαá¡Ñ¡¡«Ñ »αÑαδóá¡¿Ñ $1B }
  133.     SaveInt23: pointer;   { ß«σαá¡Ñ¡¡«Ñ »αÑαδóá¡¿Ñ $23 }
  134.     SaveInt24: pointer;   { ß«σαá¡Ñ¡¡«Ñ »αÑαδóá¡¿Ñ $24 }
  135.     SaveInt34: pointer;   { ß«σαá¡Ñ¡¡«Ñ »αÑαδóá¡¿Ñ $34 }
  136.     SaveInt35: pointer;   { ß«σαá¡Ñ¡¡«Ñ »αÑαδóá¡¿Ñ $35 }
  137.     SaveInt36: pointer;   { ß«σαá¡Ñ¡¡«Ñ »αÑαδóá¡¿Ñ $36 }
  138.     SaveInt37: pointer;   { ß«σαá¡Ñ¡¡«Ñ »αÑαδóá¡¿Ñ $37 }
  139.     SaveInt38: pointer;   { ß«σαá¡Ñ¡¡«Ñ »αÑαδóá¡¿Ñ $38 }
  140.     SaveInt39: pointer;   { ß«σαá¡Ñ¡¡«Ñ »αÑαδóá¡¿Ñ $39 }
  141.     SaveInt3A: pointer;   { ß«σαá¡Ñ¡¡«Ñ »αÑαδóá¡¿Ñ $3A }
  142.     SaveInt3B: pointer;   { ß«σαá¡Ñ¡¡«Ñ »αÑαδóá¡¿Ñ $3B }
  143.     SaveInt3C: pointer;   { ß«σαá¡Ñ¡¡«Ñ »αÑαδóá¡¿Ñ $3C }
  144.     SaveInt3D: pointer;   { ß«σαá¡Ñ¡¡«Ñ »αÑαδóá¡¿Ñ $3D }
  145.     SaveInt3E: pointer;   { ß«σαá¡Ñ¡¡«Ñ »αÑαδóá¡¿Ñ $3E }
  146.     SaveInt3F: pointer;   { ß«σαá¡Ñ¡¡«Ñ »αÑαδóá¡¿Ñ $3F }
  147.     SaveInt75: pointer;   { ß«σαá¡Ñ¡¡«Ñ »αÑαδóá¡¿Ñ $75 }
  148.  
  149.      î«ñπ½Ñ¼ Overlay ñ½∩  αÑ὿ºáµ¿¿  »«ñß¿ßΓÑ¼δ  π»αáó½Ñ¡¿∩
  150. «óÑα½Ñ∩¼¿ ¿ß»«½∞ºπεΓß∩ »ÑαѼѡ¡δÑ: OvrCodeList, OvrHeapSize,
  151. OvrDebugPtr, OvreHeapOrg, OvrHeapPtr,  OvrHeapEnd,  OvrLoad-
  152. List, OvrDosHandle ¿ OvrEmsHandle. ÄóÑα½Ñ⌐¡δ⌐ íπΣÑα αáß»«½á-
  153. úáÑΓß∩ ¼Ñªñπ ßÑú¼Ñ¡Γ«¼ ßΓѬᠠ¿  ñ¿¡á¼¿τÑ߬¿  αáß»αÑñѽ∩Ѽ«⌐
  154. «í½áßΓ∞ε,  »α¿ φΓ«¼ OvrHeapOrg ¿ OvrHeapEnd ß«ñÑαªáΓ ¡áτá½∞-
  155. ¡δ⌐ ¿ ¬«¡Ñτ¡δ⌐ áñαÑßá  ßÑú¼Ñ¡Γá.  ìạáτáѼδ⌐  »«  π¼«½τá¡¿ε
  156. αẼÑα  «óÑα½Ñ⌐¡«ú« íπΣÑαá ß««ΓóÑΓßΓóπÑΓ αẼÑαπ ¡á¿í«½∞ΦÑú«
  157. «óÑα½Ñ∩ »α«úαá¼¼δ. àß½¿ »α«úαἼᠡѠ߫ñÑαª¿Γ  «óÑα½ÑÑó,  Γ«
  158. αẼÑα  «óÑα½Ñ⌐¡«ú« íπΣÑαá íπñÑΓ αáóÑ¡ ¡π½ε. ÉẼÑα «óÑα½Ñ⌐-
  159. ¡«ú« íπΣÑαá ¼«ª¡« πóѽ¿τ¿Γ∞ ß »«¼«Θ∞ε «íαáΘÑ¡¿∩ ¬  »α«úαá¼¼Ñ
  160. ¼«ñπ½∩  Overlay  OvrSetBuf.  é  φΓ«¼  ß½πτáÑ »α¿ »ÑαѼÑΘÑ¡¿¿
  161. HeapOrg ó í«½ÑÑ ßΓáαΦ¿Ñ áñαÑßá αẼÑα  ñ¿¡á¼¿τÑ߬«⌐  «í½áßΓ¿
  162. íπñÑΓ ß««ΓóÑΓßΓóÑ¡¡« π¼Ñ¡∞ΦáΓ∞ß∩.
  163.      Å«ñß¿ßΓѼ«⌐ π»αáó½Ñ¡¿∩ ñ¿¡á¼¿τÑ߬¿ αáß»αÑñѽ∩Ѽ«⌐ «í½á-
  164. ßΓ∞ε  »á¼∩Γ¿ ñ½∩ αÑ὿ºáµ¿¿ »α«úαá¼¼ ñ¿¡á¼¿τÑ߬«ú« αáß»αÑñÑ-
  165. ½Ñ¡¿∩ »á¼∩Γ¿ Æπαí«-Åá߬á½∩ ¿ß»«½∞ºπεΓß∩ »ÑαѼѡ¡δÑ  HeapOrg,
  166. HeapPtr, FreePtr, FreeMin ¿ HeapError. Å«ñß¿ßΓѼá π»αáó½Ñ¡¿∩
  167. ñ¿¡á¼¿τÑ߬¿ αáß»αÑñѽ∩Ѽ«⌐  «í½áßΓ∞ε  »á¼∩Γ¿  «»¿ßδóáÑΓß∩  ó
  168. â½áóÑ 15 ("é¡πΓαÑ¡¡∩∩ «αúá¡¿ºáµ¿∩ Æπαí«-Åá߬á½∩").
  169.      ä½∩ αÑ὿ºáµ¿¿ »α«µÑñπα óδσ«ñá ¿ß»«½∞ºπεΓß∩  »ÑαѼѡ¡δÑ
  170. ExitProc, ErrorCode ¿ ErrorAdr. ¥Γ« ΓᬪѠ«»¿ßδóáÑΓß∩ ó â½á-
  171. óÑ 15.
  172.      PrefixSeg »αÑñßΓáó½∩ÑΓ ß«í«⌐ »ÑαѼѡ¡πε ñ½¿¡«⌐ ó ß½«ó«,
  173. ß«ñÑαªáΘπε  áñαÑß »αÑΣ¿¬ß¡«ú« ßÑú¼Ñ¡Γá »α«úαá¼¼δ (PSP), ß«º-
  174. ñáóáѼ«ú« »α¿  óδ»«½¡Ñ¡¿¿  »α«úαá¼¼δ  «»Ñαᵿ«¡¡«⌐  ß¿ßΓѼ«⌐
  175. äÄæ. Å«½¡«Ñ «»¿ßá¡¿Ñ PSP »α¿óÑñÑ¡« ó απ¬«ó«ñßΓóÑ »« «»Ñαᵿ-
  176. «¡¡«⌐ ß¿ßΓѼѠäÄæ.
  177.      ÅÑαѼѡ¡á∩ StackLimit ß«ñÑαª¿Γ  ß¼ÑΘÑ¡¿Ñ  á¡τá½á  ßΓѬá
  178. «Γ¡«ß¿Γѽ∞¡«  ßÑú¼Ñ¡Γá ßΓѬá, τΓ« ß««ΓóÑΓßΓóπÑΓ ¼¿¡¿¼á½∞¡«¼π
  179. ñ«»πßΓ¿¼«¼π º¡áτÑ¡¿ε αÑú¿ßΓαá SP, »«ß½Ñ ¬«Γ«α«ú« πªÑ  ó«º¡¿-
  180. ¬áÑΓ ß¿Γπᵿ∩ »ÑαÑ»«½¡Ñ¡¿∩ ßΓѬá. Å« π¼«½τá¡¿ε º¡áτÑ¡¿Ñ φΓ«⌐
  181. »ÑαѼѡ¡«⌐ αáó¡« 0, ¡« Ñß½¿ »α«úαἼᠬ«¼»¿½¿απÑΓß∩ ß ñ¿αѬ-
  182. Γ¿óἿ {$N+,$E+}, Γ« φ¼π½∩Γ«α ß«»α«µÑßß«αá 8087 »α¿ «ΓßπΓßΓ-
  183. ó¿¿ ó ß¿ßΓѼѠ߫»α«µÑßß«αá 8087 ñ½∩ αѺÑαó¿α«óá¡¿∩  ¼ÑßΓá  ó
  184. ¼½áñΦ¿σ áñαÑßáσ ßÑú¼Ñ¡Γá ßΓѬá íπñÑΓ πßΓá¡áó½¿óáΓ∞ ÑѠ󠺡á-
  185. τÑ¡¿Ñ 224.
  186.      ÅÑαѼѡ¡á∩ InOutRes ¿ß»«½∞ºπÑΓß∩ óßΓα«Ñ¡¡δ¼¿ »α«úαá¼¼á-
  187. ¼¿  óó«ñá-óδó«ñá  ñ½∩  ß«σαá¡Ñ¡¿∩ º¡áτÑ¡¿∩, ó«ºαáΘáѼ«ú« »α¿
  188. ß½ÑñπεΘѼ «íαáΘÑ¡¿¿ ¬ Σπ¬¡µ¿¿ IOResult.
  189.      é RandSeed ß«σαá¡∩ÑΓß∩ ¡áτá½∞¡«Ñ º¡áτÑ¡¿Ñ ñ½∩  óßΓα«Ñ¡-
  190. ¡«ú« úÑ¡ÑαáΓ«αá ß½πτá⌐¡δσ τ¿ßѽ. àß½¿ »α¿ßóá¿óáΓ∞ φΓ«⌐ »ÑαÑ-
  191. ¼Ñ¡¡«⌐ «»αÑñѽѡ¡«Ñ º¡áτÑ¡¿Ñ, Γ« Σπ¡¬µ¿∩ Random íπñÑΓ  úÑ¡Ñ-
  192. α¿α«óáΓ∞  ºáñá¡¡πε  »«ß½Ññ«óáΓѽ∞¡«ßΓ∞  ß½πτá⌐¡δσ τ¿ßѽ. ¥Γ«
  193. ¼«ªÑΓ «¬áºáΓ∞ß∩  »«½Ñº¡δ¼ ó  ºáñáτáσ  ¬«ñ¿α«óá¡¿∩  ñá¡¡δσ, á
  194. ΓᬪѠó ßΓáΓ¿ßΓ¿¬Ñ ¿ ¼«ñѽ¿α«óá¡¿¿.
  195.      ÅÑαѼѡ¡á∩ FileMode »«ºó«½∩ÑΓ ¿º¼Ñ¡∩Γ∞ αѪ¿¼ ñ«ßΓπ»á  ¬
  196. «Γ¬αδΓδ¼ Γ¿»¿º«óá¡¡δ¼ ¿ ¡ÑΓ¿»¿º«óá¡¡δ¼ Σá⌐½á¼. ü«½ÑÑ »«ñα«í-
  197. ¡« φΓ« «»¿ßá¡« ó â½áóÑ 10 ("éó«ñ ¿ óδó«ñ").
  198.      é »ÑαѼѡ¡«⌐ Test8087 ß«σαá¡∩ÑΓß∩ αѺπ½∞ΓáΓ αáí«Γδ  á½-
  199. ú«α¿Γ¼«ó  áóΓ«¼áΓ¿τÑ߬¿ú«  αáß»«º¡áóá¡¿∩  ß«»α«µÑßß«αá 8087,
  200. ¬«Γ«αδÑ ¡áτ¿¡áεΓ αáí«ΓáΓ∞ »α¿ ºá»π߬Ѡ»α«úαá¼¼δ, ß¬«¼»¿½¿α«-
  201. óá¡¡«⌐ ß ñ¿αÑ¬Γ¿ó«⌐ {$N+}. ü«½ÑÑ »«ñα«í¡« φΓ« «»¿ßá¡« ó â½á-
  202. óÑ 14 ("êß»«½∞º«óá¡¿Ñ ß«»α«µÑßß«αá 8087").
  203.      Input ¿ Äutput - φΓ«  ßΓá¡ñáαΓ¡δÑ  Σá⌐½δ  óó«ñá-óδó«ñá,
  204. ¡Ñ«íσ«ñ¿¼δÑ  ó  ¬áªñ«⌐  αÑ὿ºáµ¿¿ Åá߬á½∩. Å« π¼«½τá¡¿ε «¡¿
  205. ßó∩ºδóáεΓß∩ ß« ßΓá¡ñáαΓ¡δ¼¿ óσ«ñ¡δ¼¿ ¿ óδσ«ñ¡δ¼¿  Σá⌐½á¼¿  ó
  206. Dos. ü«½ÑÑ »«ñα«í¡« φΓ« «»¿ßá¡« ó â½áóÑ 10 ("éó«ñ ¿ óδó«ñ").
  207.      î«ñπ½∞ System »ÑαÑσóáΓδóáÑΓ ¡Ñ¬«Γ«αδÑ óÑ¬Γ«αδ  »αÑαδóá-
  208. ¡¿⌐.  ÅÑαÑñ  ¿¡¿µ¿á½¿ºáµ¿Ñ⌐ ßó«¿σ ß«íßΓóÑ¡¡δσ »α«úαá¼¼ «íαá-
  209. í«Γ¬¿ »αÑαδóá¡¿⌐ ¼«ñπ½∞ SystѼ ß«σαá¡∩ÑΓ  ßΓáαδÑ  óÑ¬Γ«αδ  ß
  210. »«¼«Θ∞ε τÑΓδαÑσ »ÑαѼѡ¡δσ-π¬áºáΓѽÑ⌐:
  211.  
  212.   SaveInt00,          { $00 }
  213.   SaveInt02,          { $02 }
  214.   SaveInt23,          { $23 }
  215.   SaveInt75 : pointer { $75 }
  216.  
  217.      ÄΓ¼ÑΓ¿¼, τΓ« ñ½∩ «Γ߽Ѫ¿óá¡¿∩ ¬α¿Γ¿τÑ߬¿σ «Φ¿í«¬ ¼«ñπ½∞
  218. System  ß«ñÑαª¿Γ  «íαáí«Γτ¿¬  »αÑαδóá¡¿∩ INT 24. é »α«úαá¼¼Ñ
  219. Æπαí«-Åá߬á½∩ ¬α¿Γ¿τÑ߬á∩ «Φ¿í¬á  äÄæ  «íαáíáΓδóáÑΓß∩  Γ«τ¡«
  220. ΓᬪÑ,  ¬á¬ ½εíá∩ ñαπúá∩ «Φ¿í¬á óó«ñá-óδó«ñá. Åα¿ ¬«¼»¿½∩µ¿¿
  221. ß ñ¿αÑ¬Γ¿ó«⌐ {$I+} »α«úαá¼¼á íπñÑΓ ºáóÑαΦáΓ∞ αáí«Γπ ß  «Φ¿í-
  222. ¬«⌐  óαѼѡ¿  óδ»«½¡Ñ¡¿∩, ó ß«ßΓ«∩¡¿¿ {$I-} Σπ¡¬µ¿∩ IOResult
  223. íπñÑΓ ó«ºóαáΘáΓ∞ ¡Ñ¡π½Ñó«Ñ º¡áτÑ¡¿Ñ.
  224.      Åα¿óÑñѼ »α¿¼Ñα ¡Ñí«½∞Φ«⌐ »α«úαá¼¼δ, ¬«Γ«αá∩ ó«ßßΓá¡áó-
  225. ½¿óáÑΓ  »Ñαó«¡áτá½∞¡δ⌐ óÑ¬Γ«α ¿, Γᬿ¼ «íαẫ¼, »Ñαó«¡áτá½∞-
  226. ¡πε ½«ú¿¬π «íαáí«Γ¬¿ ¬α¿Γ¿τÑ߬«⌐ «Φ¿í¬¿:
  227.  
  228.  program Restore;
  229.  uses Dos;
  230.  begin
  231.    SetIntVec($24, SaveInt24);
  232.    ...
  233.  end.
  234.  
  235.      Åα«úαá¼¼á SwapVectors ó ¼«ñπ½Ñ Dos ¼Ñ¡∩ÑΓ  ¼ÑßΓἿ  ß«-
  236. ñÑন¼«Ñ  »ÑαѼѡ¡δσ SaveIntXX ¿ ΓѬπΘÑÑ ß«ñÑন¼«Ñ óÑ¬Γ«α«ó
  237. »αÑαδóá¡¿⌐. Åα«µÑñπαπ SwapVectors  ß½ÑñπÑΓ  óδºδóáΓ∞  ¡Ñ»«ß-
  238. αÑñßΓóÑ¡¡«  »ÑαÑñ ¿ ¡Ñ»«ßαÑñßΓóÑ¡¡« »«ß½Ñ «íαáΘÑ¡¿∩ ¬ »α«µÑ-
  239. ñπαÑ Exec. ¥Γ¿¼ «íÑß»Ñτ¿óáÑΓß∩, τΓ« »α«µÑßß Exec ¡Ñ  ¿ß»«½∞-
  240. ºπÑΓ  ¡¿¬á¬¿σ «íαáí«Γτ¿¬«ó »αÑαδóá¡¿⌐, πßΓá¡«ó½Ñ¡¡δσ ΓѬπΘ¿¼
  241. »α«µÑßß«¼ (¿ ¡««í«α«Γ). ü«½ÑÑ »«ñα«í¡á∩ ¿¡Σ«α¼áµ¿∩ »α¿óÑñÑ¡á
  242. ó  â½áóÑ 16 ("èαáΓ¬¿⌐ ß»αáó«τ¡¿¬ »« Æπαí«-Åá߬á½ε") ó «»¿ßá-
  243. ¡¿¿ SwapVactors.
  244.  
  245.                         î«ñπ½∞ Érinter
  246.  
  247.      î«ñπ½∞ Érinter - φΓ« «τÑ¡∞  ¡Ñí«½∞Φ«⌐ ¼«ñπ½∞, ß«ºñá¡¡δ⌐
  248. ñ½∩ «í½ÑúτÑ¡¿∩ ¿ß»«½∞º«óá¡¿∩ ó »α«úαἼѠπßΓα«⌐ßΓóá  »ÑτáΓ¿.
  249. î«ñπ½∞ Érinter «»¿ßδóáÑΓ ΓѬßΓ«óδ⌐ Σá⌐½ ß ¿¼Ñ¡Ñ¼ Lst  ¿ ßó∩-
  250. ºδóáÑΓ Ñú« ß πßΓα«⌐ßΓó«¼ Lpt1.  êß»«½∞º«óá¡¿Ñ ¼«ñπ½∩ Érinter
  251. ¿ºíáó½∩ÑΓ óáß «Γ ¡Ñ«íσ«ñ¿¼«ßΓ¿  «»¿ßá¡¿∩, »α¿ßóá¿óá¡¿∩, «Γ¬-
  252. αδΓ¿∩ ¿ ºá¬αδΓ¿∩ ΓѬßΓ«óδσ Σá⌐½«ó.  Åα¿óÑñѼ »α¿¼Ñα ¡Ñí«½∞Φ«⌐
  253. »α«úαá¼¼δ, ó ¬«Γ«α«⌐ ¿ß»«½∞ºπÑΓß∩ ¼«ñπ½∞ Érinter:
  254.  
  255.   program HelloPrinter;
  256.   uses Printer;
  257.   begin
  258.     Writeln(Lst,'Hello printer...');
  259.   end.
  260.  
  261.                          î«ñπ½∞ D«s
  262.  
  263.      æ »«¼«Θ∞ε ¼«ñπ½∩  Dos  αÑ὿ºπÑΓß∩  µÑ½δ⌐  α∩ñ »α«úαá¼¼
  264. «»Ñαᵿ«¡¡«⌐ ß¿ßΓÑ¼δ ¿ »α«úαá¼¼ «íαáí«Γ¬¿ Σá⌐½«ó. ì¿ «ñ¡á ¿º
  265. »α«úαá¼¼ ¼«ñπ½∩ Dos ¡Ñ «»αÑñѽѡá ó ßΓá¡ñáαΓ¡«¼ Åá߬á½Ñ, »«-
  266. φΓ«¼π «¡¿ »«¼ÑΘáεΓß∩ ó «Γñѽ∞¡δ⌐ ¼«ñπ½∞.
  267.      ü«½ÑÑ »«½¡«Ñ «»¿ßá¡¿Ñ «»Ñαᵿ⌐ äÄæ »α¿óÑñÑ¡« ó απ¬«ó«ñ-
  268. ßΓóáσ »« äÄæ Σ¿α¼δ IBM.
  269.  
  270.                 è«¡ßΓá¡Γδ, Γ¿»δ ¿ »ÑαѼѡ¡δÑ
  271.  
  272.      é ñá¡¡«¼ αáºñѽѠ ¬αáΓ¬«  «íßπªñáεΓß∩ ¬«¡ßΓá¡Γδ, Γ¿»δ ¿
  273. »ÑαѼѡ¡δÑ, «»αÑñѽ∩ѼδѠ󠼫ñπ½Ñ  Dos.  ü«½ÑÑ ñÑΓá½∞¡á∩ ¿¡-
  274. Σ«α¼áµ¿∩ ß«ñÑনΓß∩ ó  «»¿ßá¡¿¿  »α«µÑñπα ¿ Σπ¡¬µ¿⌐, ¬«Γ«αδÑ
  275. ºáó¿ß∩Γ  «Γ  φΓ¿σ  «íΩÑ¬Γ«ó, ó â½áóÑ 16  ("Åα«µÑñπαδ ¿ Σπ¡¬-
  276. µ¿¿ Æπαí«-Åá߬á½∩).
  277.  
  278.                       è«¡ßΓá¡Γδ Σ½áú«ó
  279.  
  280.      Å«ß½Ñ «íαáΘÑ¡¿∩ ¬ »α«µÑñπαá¼ Inrt ¿½¿ îsDos ñ½∩ »α«óÑα-
  281. ¬¿ «Γñѽ∞¡δσ í¿Γ«ó ó αÑú¿ßΓαÑ Σ½áú«ó  ¿ß»«½∞ºπεΓß∩ ß½ÑñπεΘ¿Ñ
  282. ¬«¡ßΓá¡Γδ:
  283.  
  284.   const
  285.     FCarry             = $0001
  286.     FParity            = $0004
  287.     FAuxilliary        = $0010
  288.     FZero              = $0040
  289.     FSign              = $0080
  290.     FOverflow          = $0800
  291.  
  292.      ìá»α¿¼Ñα, Ñß½¿  É ∩ó½∩ÑΓß∩ ºá»¿ß∞ε, ß«ñÑαªáΘÑ⌐ αÑú¿ßΓα,
  293. Γ« »α«óÑન:
  294.  
  295.   R.Flags and FCarry <> 0
  296.   R.Flags and FZero = 0
  297.  
  298. »α¿¡¿¼áεΓ º¡áτÑ¡¿Ñ  ÆruÑ,  ¬«úñá, ß««ΓóÑΓßΓóÑ¡¡«, πßΓá¡«ó½Ñ¡
  299. Σ½áú »ÑαÑ¡«ßá (Carry) ¿ ßíα«ΦÑ¡ Σ½áú Zero.
  300.  
  301.                    è«¡ßΓá¡Γδ αѪ¿¼á Σá⌐½á
  302.  
  303.      ¥Γ¿ ¬«¡ßΓá¡Γδ ¿ß»«½∞ºπεΓß∩ ó  »α«µÑñπαáσ «íαáí«Γ¬¿ Σá⌐-
  304. ½«ó »α¿ «Γ¬αδΓ¿¿ ¿  ºá¬αδΓ¿¿ Σá⌐½«ó  ¡á  ñ¿ß¬Ñ.  Å«½∩ αѪ¿¼á
  305. Σá⌐½«óδσ »ÑαѼѡ¡δσ  Æπαí«-Åá߬á½∩ íπñπΓ  ß«ñÑαªáΓ∞  «ñ¡« ¿º
  306. »α¿óÑñÑ¡¡δσ ¡¿ªÑ º¡áτÑ¡¿⌐:
  307.  
  308.   const
  309.     fmClosed   = $D780
  310.     fmInput    = $D781
  311.     fmOutput   = $D782
  312.     fmInOut    = $D783
  313.  
  314.                          Æ¿» FileRec
  315.  
  316.      Ä»αÑñѽѡ¿∩ ºá»¿ßÑ⌐, ¿ß»«½∞ºπεΘ¿Ñß∩ ó Æπαí«-Åá߬á½Ñ ñ½∩
  317. ó¡πΓαÑ¡¡¿σ  µÑ½Ñ⌐,  «»¿ßδóáεΓß∩  ΓᬪѠ ó  ¼«ñπ½Ñ  Dos.  Æ¿»
  318. FilÑRÑß ¿ß»«½∞ºπÑΓß∩ ¬á¬ ñ½∩ Γ¿»¿º«óá¡¡δσ, Γᬠ¿ ñ½∩ ¡ÑΓ¿»¿-
  319. º«óá¡¡δσ Σá⌐½«ó, ó Γ« óαѼ∩, ¬á¬ ÆÑσtRÑß  »αÑñßΓáó½∩ÑΓ ß«í«⌐
  320. ó¡πΓαÑ¡¡¿⌐ Σ«α¼áΓ »ÑαѼѡ¡«⌐ ΓѬßΓ«ó«ú« Γ¿»á.
  321.  
  322.   type
  323.     { Æ¿»¿º«óá¡¡δÑ ¿ ¡ÑΓ¿»¿º«óá¡¡δÑ Σá⌐½δ }
  324.     FileRec = record
  325.                 Handle: Word;
  326.                 Mode: Word;
  327.                 RecSize: Word;
  328.                 Private: array[1..26] of Byte;
  329.                 UserData: array[1..16] of Byte;
  330.                 Name: array[0..79] of Char;
  331.               end;
  332.     { ºá»¿ß∞ Textfile }
  333.     TextBuf = array[0..127] of Char;
  334.     TextRec = record
  335.                Handle: Word;
  336.                Mode: Word;
  337.                BufSize: Word;
  338.                Private: Word;
  339.                BufPos: Word;
  340.                BufPtr: ^TextBuf;
  341.                OpenProc: Pointer;
  342.                InOutProc: Pointer;
  343.                FlushProc: Pointer;
  344.                CloseProc: Pointer;
  345.                UserData: array[1..16] of Byte;
  346.                Name: array[0..79] of Char;
  347.                Buffer: TextBuf;
  348.              end;
  349.  
  350.                   è«¡ßΓá¡Γδ áΓα¿íπΓá Σá⌐½á
  351.  
  352.      ¥Γ¿ ¬«¡ßΓá¡Γδ ¿ß»«½∞ºπεΓß∩  ñ½∩  »α«óÑન,  πßΓᡫ󬿠¿
  353. «τ¿ßΓ¬¿  í¿Γ«ó  áΓα¿íπΓá  Σá⌐½«ó  »α¿ ¿ß»«½∞º«óá¡¿¿ »α«µÑñπα
  354. GetFAttr, SetFAttr, FindFirst ¿ FindNext:
  355.  
  356.   const
  357.     ReadOnly   = $01;  { ñ«ßΓπ» Γ«½∞¬« »« τΓÑ¡¿ε }
  358.     Hidden     = $02;  { "߬αδΓδ⌐" Σá⌐½ }
  359.     SysFile    = $04;  { ß¿ßΓѼ¡δ⌐ Σá⌐½ }
  360.     VolumeID   = $08;  { ¼ÑΓ¬á Γ«¼á }
  361.     Directory  = $10;  { ¬áΓὫú }
  362.     Achive     = $20;  { »α¿º¡á¬ áασ¿ó¿ºáµ¿¿ }
  363.     AnyFile    = $3F;  { »α«τ¿⌐ Σá⌐½ }
  364.  
  365.      ¥Γ¿ ¬«¡ßΓá¡Γδ ∩ó½∩εΓß∩ áññ¿Γ¿ó¡δ¼¿, Γ« ÑßΓ∞ «»ÑαáΓ«α
  366.  
  367.   FindFirst('*.*',ReadOnly + Directory, S);
  368.  
  369. »α¿óÑñÑΓ ¬ »«¿ß¬π  óßÑσ «íδτ¡δσ Σá⌐½«ó, á ΓᬪѠΣá⌐½«ó, ñ«ß-
  370. Γπ»¡δσ Γ«½∞¬« »« τΓÑ¡¿ε, ó ΓѬπΘѼ ¬áΓὫúÑ Σá⌐½«ó. è«¡ßΓá¡-
  371. Γá ÇnyFilÑ - φΓ« »α«ßΓ« ßπ¼¼á óßÑσ áΓα¿íπΓ«ó.
  372.  
  373.                  ÉÑú¿ßΓα«óδ⌐ Γ¿» (Registers)
  374.  
  375.      ÅÑαѼѡ¡δÑ  αÑú¿ßΓα«ó«ú«  Γ¿»á »α¿¼Ñ¡∩εΓß∩ ó »α«µÑñπαáσ
  376. Intr ¿  îsDos  ñ½∩  ºáñá¡¿∩  ß«ñÑন¼«ú« óσ«ñ¡«ú« αÑú¿ßΓαá ¿
  377. »α«óÑન ß«ñÑন¼«ú« óδσ«ñ¡«ú« αÑú¿ßΓαá »α¿ »αÑαδóá¡¿∩σ, ¿ß-
  378. »«½∞ºπεΘ¿σß∩ ó »α«úαá¼¼¡«¼ «íÑß»ÑτÑ¡¿¿.
  379.  
  380.   type
  381.     Registers = record
  382.                  case integer of
  383.                   0: (AX,BX,CX,DX,BP,SI,DS,ES,Flags: word);
  384.                   1: (AL,AH,BL,BH,CL,CH,L,DH: byte);
  385.                  end;
  386.  
  387.      ÄíαáΓ¿ΓѠ󡿼᡿Ѡ¡á ¿ß»«½∞º«óá¡¿Ñ  «»ÑαáΓ«αá  óáα¿á¡Γá
  388. ñ½∩ Γ«ú«, τΓ«íδ «Γ¼ÑΓ¿Γ∞ ºá»¿ß∞ ¿º  ó«ß∞¼¿í¿Γ«óδσ αÑú¿ßΓα«ó,
  389. ¡áσ«ñ∩Θ¿σß∩ ó ¡áτá½Ñ ΦÑßΓ¡áñµáΓ¿í¿Γ«ó«⌐ ºá»¿ß¿.
  390.  
  391.                 Æ¿» ñáΓδ ¿ óαѼѡ¿ (DateTime)
  392.  
  393.      ÅÑαѼѡ¡δÑ Γ¿»á DateTi¼Ñ  (ñáΓδ ¿ óαѼѡ¿) ¿ß»«½∞ºπεΓß∩
  394. ó »α«µÑñπαáσ  Unαá߬Æi¼Ñ ¿  Éá߬Æi¼Ñ ñ½∩ á¡á½¿ºá, π»á¬«ó¬¿ ¿
  395. »«ßΓα«Ñ¡¿∩  τÑΓδαÑσíá⌐Γ«ó«ú«  º¡áτÑ¡¿∩,  ß«ñÑαªáΘÑú«  ñáΓπ ¿
  396. óαѼ∩. ¥Γ« τÑΓδαÑσíá⌐Γ«ó«Ñ  º¡áτÑ¡¿Ñ  ¿ß»«½∞ºπÑΓß∩  ºáΓѼ  ó
  397. »α«µÑñπαáσ GetFTi¼Ñ, SetTi¼Ñ, FindFirst ¿ FindNÑσt.
  398.  
  399.   type
  400.     DateTime = record
  401.                  Year,Month,Day,Hour,Min,Sec: integer;
  402.                end;
  403.  
  404.      ä«»πßΓ¿¼δ¼¿  ñ¿á»áº«¡á¼¿  ∩ó½∩εΓß∩: ñ½∩ »ÑαѼѡ¡«⌐ Year
  405. (ú«ñ) - ß 1980 »« 2099,  ñ½∩  »ÑαѼѡ¡«⌐ î«nth (¼Ñß∩µ) - ß 1
  406. »« 12, ñ½∩ »ÑαѼѡ¡«⌐ Dáπ (ñÑ¡∞) - ß 1 »« 31, ñ½∩ »ÑαѼѡ¡«⌐
  407. ì«ur (τáß) - «Γ 0 ñ« 23,  ñ½∩ »ÑαѼѡ¡«⌐ îin (¼¿¡πΓá) - «Γ 0
  408. ñ« 59, ñ½∩ »ÑαѼѡ¡«⌐ SÑß (ßѬπ¡ñá) - «Γ 0 ñ« 59.
  409.  
  410.                         Æ¿» SearchRec
  411.  
  412.      ÅÑαѼѡ¡δÑ Γ¿»á  SearchRÑß  ¿ß»«½∞ºπεΓß∩  ó  »α«µÑñπαáσ
  413. FindFirst ¿ Findnext ñ½∩ »α«ß¼«Γαá ¬áΓὫú«ó Σá⌐½«ó.
  414.  
  415.   type
  416.     SearchRec = record
  417.     Fill: array[1..2] of byte;
  418.     Attr: byte;
  419.     Time: longint;
  420.     Size: longint;
  421.     Name: string[12];
  422.   end;
  423.  
  424.      ê¡Σ«α¼áµ¿∩ »« ¬áªñ«¼π ¿º ¡á⌐ñÑ¡¡δσ ß »«¼«Θ∞ε  «ñ¡«⌐  ¿º
  425. φΓ¿σ   »α«µÑñπα   Σá⌐½«ó   »«¼ÑΘáÑΓß∩   «»∩Γ∞  ó  »ÑαѼѡ¡πε
  426. SearchRÑß. Å«½Ñ Çttr ß«ñÑαª¿Γ áΓα¿íπΓδ Σá⌐½á (»«ßΓα«Ñ¡¡δÑ ¿º
  427. ¬«¡ßΓá¡Γ áΓα¿íπΓá Σá⌐½á),  »«½Ñ  Æi¼Ñ  ß«ñÑαª¿Γ ñáΓπ ¿ óαѼ∩
  428. ß«ºñá¡¿∩ Σá⌐½á ó  π»á¬«óá¡¡«¼ Σ«α¼áΓÑ (ñ½∩ αá߻ᬫ󬿠߫ñÑα-
  429. ª¿¼«ú« φΓ«ú« »«½∩  ¼«ª¡« ¿ß»«½∞º«óáΓ∞ »α«µÑñπαπ UnpackÆi¼Ñ),
  430. »«½Ñ SizÑ ß«ñÑαª¿Γ αẼÑα Σá⌐½á ó íá⌐Γáσ, á »«½Ñ Ná¼Ñ ß«ñÑα-
  431. ª¿Γ Ñú« ¿¼∩. Å«½Ñ Fill ó ºáαѺÑαó¿α«óá¡« äÄæ ¿ ¡Ñ ñ«½ª¡« ¿º-
  432. ¼Ñ¡∩Γ∞ß∩.
  433.  
  434.                     ÅÑαѼѡ¡á∩ DosError
  435.  
  436.      ÅÑαѼѡ¡á∩  Doserror ¿ß»«½∞ºπÑΓß∩ ó« ¼¡«ú¿σ »α«úαá¼¼áσ,
  437. αáí«ΓáεΘ¿σ ß  ¼«ñπ½Ñ¼ Dos, ñ½∩ Γ«ú«, τΓ«íδ »«½πτ¿Γ∞ ¿¡Σ«α¼á-
  438. µ¿ε «í «Φ¿í¬áσ.
  439.  
  440.   var DosError: integer;
  441.  
  442.      é »ÑαѼѡ¡«⌐ Doserror ºá»«¼¿¡áεΓß∩ ¬«ñδ «Φ¿í«¬ äÄæ.
  443. ç¡áτÑ¡¿Ñ 0  π¬áºδóáÑΓ ¡á «ΓßπΓßΓó¿Ñ «Φ¿í¬¿. äαπú¿Ñ ó«º¼«ª¡δÑ
  444. ¬«ñδ «Φ¿í«¬ ó¬½ετáεΓ ó ßÑí∩:
  445.  
  446.      2 - Σá⌐½ ¡Ñ ¡á⌐ñÑ¡;
  447.      3 - »πΓ∞ ñ«ßΓπ»á ¡Ñ ¡á⌐ñÑ¡;
  448.      5 - ñ«ßΓπ» «ΓóÑαú¡πΓ;
  449.      6 - ¡Ññ«»πßΓ¿¼á∩ «íαáí«Γ¬á;
  450.      8 - ¡Ññ«ßΓáΓ«τ¡« »á¼∩Γ¿;
  451.      10 - ¡Ññ«»πßΓ¿¼á∩ »α«úαá¼¼¡á∩ ßαÑñá;
  452.      11 - ¡ÑóÑα¡δ⌐ Σ«α¼áΓ;
  453.      18 - Σá⌐½δ «ΓßπΓßΓóπεΓ.
  454.  
  455.              Åα«µÑñπαδ «íß½πª¿óá¡¿∩ »αÑαδóá¡¿⌐
  456.  
  457.      Åα¿óÑñѼ ¬αáΓ¬¿⌐ ß»¿ß«¬ »α«µÑñπα, «íß½πª¿óáεΘ¿σ »αÑαδ-
  458. óá¡¿∩:
  459.  
  460. ------------------------------------------------------------
  461.      Åα«µÑñπαá GetIntVÑß - ó«ºóαáΘáÑΓ áñαÑß,  ß«σαá¡Ñ¡¡δ⌐  ó
  462. ºáñá¡¡«¼ óÑ¬Γ«αÑ »αÑαδóá¡¿⌐.
  463.      Åα«µÑñπαá Intr - óδ»«½¡∩ÑΓ ºáñá¡¡«Ñ  »α«úαá¼¼¡«Ñ »αÑαδ-
  464. óá¡¿Ñ.
  465.      Åα«µÑñπαá îsDos - óδ»«½¡∩ÑΓ ó맮ó Σπ¡¬µ¿¿ äÄæ.
  466.      Åα«µÑñπαá SetIntVÑß - πßΓá¡áó½¿óáÑΓ »« ºáñá¡¡«¼π áñαÑßπ
  467. ºáñá¡¡δ⌐ óÑ¬Γ«α »αÑαδóá¡¿∩.
  468.      Åα«µÑñπαá GetDate - ó«ºóαáΘáÑΓ  ΓѬπΘπε  ñáΓπ, πßΓá¡«ó-
  469. ½Ñ¡¡πε ó «»Ñαᵿ«¡¡«⌐ ß¿ßΓѼÑ.
  470.      Åα«µÑñπαá GetFTime - ó«ºóαáΘáÑΓ ñáΓπ ¿ óαѼ∩  »«ß½Ññ¡Ñ⌐
  471. ºá»¿ß¿ Σá⌐½á.
  472.      Åα«µÑñπαá GetTi¼Ñ - ó«ºóαáΘáÑΓ ΓѬπΘÑÑ óαѼ∩,  πßΓá¡«ó-
  473. ½Ñ¡¡«Ñ ó «»Ñαᵿ«¡¡«⌐ ß¿ßΓѼÑ.
  474.      Åα«µÑñπαá ÉackÆi¼Ñ - »αÑ«íαáºπÑΓ ºá»¿ß∞  DateTi¼Ñ ó τÑ-
  475. ΓδαÑσíá⌐Γ«ó«Ñ  π»á¬«óá¡¡«Ñ  ß¿¼ó«½∞¡«Ñ  »αÑñßΓáó½Ñ¡¿Ñ ñáΓδ ¿
  476. óαѼѡ¿ ñ½¿¡¡«ú«  µÑ½«ú« Γ¿»á, ¬«Γ«α«Ñ ¿ß»«½∞ºπÑΓß∩ ó »α«µÑ-
  477. ñπαÑ SetTi¼Ñ.  Å«½∩ ºá»¿ß¿ DateTi¼Ñ ¡Ñ »α«óÑα∩εΓß∩ ¡á ñ«»πß-
  478. Γ¿¼«ßΓ∞ úαá¡¿µ.
  479.      Åα«µÑñπαá SetDate - πßΓá¡áó½¿óáÑΓ ñ½∩ «»Ñαᵿ«¡¡«⌐ ß¿ß-
  480. ΓѼδ ΓѬπΘπε ñáΓπ.
  481.      Åα«µÑñπαá SetFTi¼Ñ - πßΓá¡áó½¿óáÑΓ óαѼ∩ ¿ ñáΓπ »«ß½Ññ-
  482. ¡Ñ⌐ ºá»¿ß¿ Σá⌐½á.
  483.      Åα«µÑñπαá SetTi¼Ñ - πßΓá¡áó½¿óáÑΓ ó «»Ñαᵿ«¡¡«⌐ ß¿ßΓÑ-
  484. ¼Ñ ΓѬπΘÑÑ óαѼ∩.
  485.      Åα«µÑñπαá UnpackÆi¼Ñ - »αÑ«íαáºπÑΓ τÑΓδαÑσíá⌐Γ«ó«Ñ π»á-
  486. ¬«óá¡¡«⌐ ß¿¼ó«½∞¡«Ñ  »αÑñßΓáó½Ñ¡¿Ñ  ñáΓδ  ¿ óαѼѡ¿ ñ½¿¡¡«ú«
  487. µÑ½«ú« Γ¿»á, ó«ºóαáΘáѼ«ú« »α«µÑñπαἿ  GetFTi¼Ñ, FindFirst,
  488. FindNext ó αá߻ᬫóá¡¡πε ºá»¿ß∞ DateTi¼Ñ.
  489. ------------------------------------------------------------
  490.  
  491.            öπ¡¬µ¿¿, »α«óÑα∩εΘ¿Ñ ß«ßΓ«∩¡¿Ñ  ñ¿ß¬á
  492.  
  493. ------------------------------------------------------------
  494.      öπ¡¬µ¿∩ DiskFrÑÑ - ó«ºóαáΘáÑΓ τ¿ß½« ßó«í«ñ¡δσ íá⌐Γ«ó ¡á
  495. ñ¿ß¬Ñ ó ºáñá¡¡«¼ ñ¿ß¬«ó«ñÑ.
  496.  
  497.      öπ¡¬µ¿∩ DiskSize - ó«ºóαáΘáÑΓ »«½¡δ⌐ «íΩѼ ó íá⌐Γáσ ºá-
  498. ñá¡¡«ú« ñ¿ß¬á.
  499. ------------------------------------------------------------
  500.  
  501.                  Åα«µÑñπαδ «íαáí«Γ¬¿ Σá⌐½«ó
  502.  
  503. ------------------------------------------------------------
  504.      Åα«µÑñπαá FindFirst - »α«¿ºó«ñ¿Γ  »«¿ß¬ ó ºáñá¡¡«¼ (¿½¿
  505. ΓѬπΘѼ) ¬áΓὫúÑ ºá»¿ß¿, ß«ñÑন¼«Ñ ¬«Γ«α«⌐ ß«ó»áñáÑΓ ß ºá-
  506. ñá¡¡δ¼ ¿¼Ñ¡Ñ¼ Σá⌐½á ¿ áΓα¿íπΓἿ.
  507.      Åα«µÑñπαá FindNext - ó«ºóαáΘáÑΓ  ß½ÑñπεΘπε  ºá»¿ß∞, ¿¼∩
  508. Σá⌐½á ¿ áΓα¿íπΓδ ó ¬«Γ«α«⌐  ß«ó»áñáεΓ ß  ΓѼ¿,  ¬«Γ«αδÑ í뫨
  509. ºáñá¡δ »α¿ »αÑñδñπΘѼ «íαáΘÑ¡¿¿ ¬ »α«ñÑñπαÑ FindFirst.
  510.      Åα«µÑñπαá GetFAttr - ó«ºóαáΘáÑΓ áΓα¿íπΓδ Σá⌐½á.
  511.      Åα«µÑñπαá SetFAttr - πßΓá¡áó½¿óáÑΓ áΓα¿íπΓδ Σá⌐½á.
  512. ------------------------------------------------------------
  513.  
  514.          Åα«µÑñπαδ ¿ Σπ¡¬µ¿¿ π»αáó½Ñ¡¿∩ »α«µÑßßἿ
  515.  
  516. ------------------------------------------------------------
  517.      öπ¡¬µ¿∩ DosExitCode -  ó«ºóαáΘáÑΓ ñ½∩  »«ñ»α«µÑßßá  ¬«ñ
  518. ºáóÑαΦÑ¡¿∩.
  519.      Åα«µÑñπαá àσÑßutÑ - óδ»«½¡∩ÑΓ ºáñá¡¡πε »α«úαá¼¼π ß π¬á-
  520. ºá¡¡«⌐ ¬«¼á¡ñ¡«⌐ ßΓ᫬«⌐.
  521.      Åα«µÑñπαá Keep -  ß«σαá¡∩ÑΓ  (»αѬαáΘáÑΓ  óδ»«½¡Ñ¡¿Ñ  ¿
  522. ß«σαá¡∩ÑΓ ó »á¼∩Γ¿) »αѬαáΓ¿óΦπε αáí«Γπ »α«úαá¼¼π,  «ßΓáó½∩∩
  523. ÑÑ αѺ¿ñÑ¡Γ¡«⌐ ó »á¼∩Γ¿.
  524.      Åα«µÑñπαá SwapVectors - ¼Ñ¡∩ÑΓ ¼ÑßΓἿ ß«ñÑন¼«Ñ  ß«σ-
  525. αá¡Ñ¡¡δσ óÑ¬Γ«α«ó »αÑαδóá¡¿⌐ ¿ ΓѬπΘ¿σ óÑ¬Γ«α«ó.
  526. ------------------------------------------------------------
  527.  
  528.            öπ¬¡µ¿¿ π»αáó½Ñ¡¿∩ «»Ñαᵿ«¡¡«⌐ ßαÑñ«⌐
  529.  
  530. ------------------------------------------------------------
  531.      öπ¡¬µ¿∩ EnvCount - ó«ºóαáΘáÑΓ τ¿ß½« ßΓ᫬, ß«ñÑαªáΘ¿σß∩
  532. ó «»Ñαᵿ«¡¡«⌐ ßαÑñÑ äÄæ.
  533.      öπ¡¬µ¿∩ EnvStr - ó«ºóαáΘáÑΓ ºáñá¡¡πε ßΓ᫬𠠫»Ñαᵿ«¡-
  534. ¡«⌐ ßαÑñδ.
  535.  
  536.      öπ¡¬µ¿∩ GetEnv - ó«ºóαáΘáÑΓ º¡áτÑ¡¿Ñ ºáñá¡¡«⌐  »ÑαѼѡ-
  537. ¡«⌐ «»Ñαᵿ«¡¡«⌐ ßαÑñδ.
  538. ------------------------------------------------------------
  539.  
  540.                æ¼ÑΦá¡¡δÑ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿
  541.  
  542. ------------------------------------------------------------
  543.      DosVersion - ó«ºóαáΘáÑΓ ¡«¼Ñα óÑαß¿¿ «»Ñαᵿ«¡¡«⌐  ß¿ß-
  544. ΓѼδ äÄæ.
  545.      GetCBreak  -  ó«ºóαáΘáÑΓ  »α«óÑα∩Ѽ«Ñ   äÄæ   ß«ßΓ«∩¡¿Ñ
  546. Ctrl-Break.
  547.      SetCBreak -  πßΓá¡áó½¿óáÑΓ  »α«óÑα∩Ѽ«Ñ  äÄæ  ß«ßΓ«∩¡¿Ñ
  548. Ctrl-Break.
  549.      GetVerify - ó«ºóαáΘáÑΓ ß«ßΓ«∩¡¿Ñ Σ½áúá »α«óÑન ó äÄæ.
  550.      SetVerify - πßΓá¡áó½¿óáÑΓ ß«ßΓ«∩¡¿Ñ  Σ½áúá  »α«óÑન  ó
  551. äÄæ.
  552. ------------------------------------------------------------
  553.  
  554.                          î«ñπ½∞ ært
  555.  
  556.      î«ñπ½∞ ært αÑ὿ºπÑΓ α∩ñ ¼«Θ¡δσ  »α«úαá¼¼, »αÑñ«ßΓáó½∩-
  557. εΘ¿σ óá¼ »«½¡πε ó«º¼«ª¡«ßΓ∞ π»αáó½Ñ¡¿∩ ßαÑñßΓóἿ ¬«¼»∞εΓÑαá
  558. Éæ, Γᬿ¼¿, ¬á¬ π»αáó½Ñ¡¿Ñ αѪ¿¼«¼ φ¬αá¡á, αáßΦ¿αÑ¡¡δÑ  ¬«ñδ
  559. ¬½áó¿áΓπαδ, µóÑΓá, «¬¡á, ¿ ºóπ¬«óδÑ ß¿ú¡á½δ.  î«ñπ½∞ ært ¼«-
  560. ªÑΓ ¿ß»«½∞º«óáΓ∞ß∩ Γ«½∞¬« ó »α«úαá¼¼áσ, αáí«ΓáεΘ¿σ ¡á »Ñαß«-
  561. ¡á½∞¡δ󠬫¼»∞εΓÑαáσ IBM Éæ, Éæ ÇÆ, ÉS/2  Σ¿α¼δ  êüî  ¿  »«½-
  562. ¡«ßΓ∞ε ß«ó¼ÑßΓ¿¼δσ ß ¡¿¼¿.
  563.      Äñ¡¿¼ ¿º «ß¡«ó¡δ⌐ »αÑ¿¼πΘÑßΓó ¿ß»«½∞º«óá¡¿∩  ¼«ñπ½∩ ært
  564. ∩ó½∩ÑΓß∩ ∩ó½∩ÑΓß∩ í«½∞Φá∩ ß¬«α«ßΓ∞ ¿ ú¿í¬«ßΓ∞ »α¿ óδ»«½¡Ñ¡¿¿
  565. «»Ñαᵿ⌐ αáí«Γδ ß φ¬αá¡«¼. Åα«úαá¼¼δ, ¡Ñ  αáí«ΓáεΘ¿Ñ ß ¼«ñπ-
  566. ½Ñ¼ ært, óδó«ñ∩Γ ¡á φ¬αá¡ ¿¡Σ«α¼áµ¿ε ß  »«¼«Θ∞ε ßαÑñßΓó «»Ñ-
  567. αᵿ«¡¡«⌐ ß¿ßΓѼδ äÄæ, τΓ«  ßó∩ºá¡« ß  ñ«»«½¡¿Γѽ∞¡δ¼¿ ¿ºíδ-
  568. Γ«τ¡δ¼¿  ºáΓαáΓἿ.  Åα¿  ¿ß»«½∞º«óá¡¿¿ ¼«ñπ½∩ ært óδó«ñ¿¼á∩
  569. ¿¡Σ«α¼áµ¿∩ »«ßδ½áÑΓß∩ ¡Ñ»«ßαÑñßΓóÑ¡¡« ó íẫóπε ß¿ßΓѼπ óó«-
  570. ñá-óδó«ñá  (éIÄS),  ¿½¿, ñ½∩ ÑΘÑ í«½ÑÑ íδßΓαδσ «»Ñαᵿ⌐, ¡Ñ-
  571. »«ßαÑñßΓóÑ¡¡« ó ó¿ñÑ«»á¼∩Γ∞.
  572.  
  573.                   éσ«ñ¡δÑ ¿ óδσ«ñ¡δÑ Σá⌐½δ
  574.  
  575.      Åα¿ ¿¡¿µ¿á½¿ºáµ¿¿ ¼«ñπ½∩ ært ñ½∩ Γ«ú«, τΓ«íδ ¼«ª¡« í佫
  576. «íαáΘáΓ∞ß∩ ¬ æRÆ,  ó¼ÑßΓ«  ßΓá¡ñáαΓ¡δσ Σá⌐½«ó óó«ñá ¿ óδó«ñá
  577. äÄæ  ¡áº¡áτáεΓß∩  ßΓá¡ñáαΓ¡δÑ  óσ«ñ¡δÑ  ¿ óδσ«ñ¡δÑ ΓѬßΓ«óδÑ
  578. Σá⌐½δ. ¥Γ« ß««ΓóÑΓßΓóπÑΓ óδ»«½¡Ñ¡¿ε ó  ¡áτá½Ñ »α«úαá¼¼δ ß½Ñ-
  579. ñπεΘ¿σ «»ÑαáΓ«α«ó:
  580.  
  581.   AssignCrt(Input); Reset(Input);
  582.   AssignCrt(Output); Rewrite(Output);
  583.  
  584.      ¥Γ« «º¡áτáÑΓ, τΓ«  »ÑαÑ«»αÑñѽѡ¿Ñ  óσ«ñ¡δσ  ¿ óδσ«ñ¡δσ
  585. Σá⌐½«ó ñá½ÑÑ ¡Ñ ñ«»π߬áÑΓß∩ ñ« ΓÑσ »«α, »«¬á ñ½∩ ñá¡¡δσ Σá⌐-
  586. ½«ó ¡Ñ íπñÑΓ óδ»«½¡Ñ¡« «íαáΓ¡«ú«  »ÑαѡạáτÑ¡¿∩ ¿  ¡Ñ »α«¿-
  587. º«⌐ñÑΓ  »ÑαÑσ«ñ ¬  ßΓá¡ñáαΓ¡«¼π óó«ñπ ¿ óδó«ñπ ß »«¼«Θ∞ε óδ-
  588. »«½¡Ñ¡¿∩ «»ÑαáΓ«α«ó:
  589.  
  590.   Assing(Input,''); Reset(Input);
  591.   Assing(Output,''); RewriteOutput);
  592.  
  593.                             Ä¬¡á
  594.  
  595.      î«ñπ½∞ ært »«ññÑনóáÑΓ »α«ßΓπε, ¡«, ΓѼ ¡Ñ ¼Ñ¡ÑÑ, ¼«Θ-
  596. ¡πε Σ«α¼π ¿ß»«½∞º«óá¡¿∩ «¬«¡. Åα«µÑñπαá Window »«ºó«½∩ÑΓ óá¼
  597. «»αÑñѽ¿Γ∞  ó ¬á¬«¼-½¿í« ¼ÑßΓÑ φ¬αá¡á «¬¡«. Åα¿ ºá»¿ß¿ ó φΓ«
  598. «¬¡«  «¡«  óÑñÑΓ ßÑí∩ Γ«τ¡« ΓᬪÑ, ¬á¬ µÑ½δ⌐ φ¬αá¡. Åα¿ φΓ«¼
  599. «ßΓá½∞¡á∩ τáßΓ∞ φ¬αá¡á «ßΓáÑΓß∩ ¡ÑΓα«¡πΓ«⌐. äαπú¿¼¿ ß½«óἿ,
  600. ñ«ßΓπ» ¬ φ¬αá¡π  ó¡Ñ «¬¡á «ΓßπΓßΓóπÑΓ. é¡πΓα¿ «¬¡á ¼«ª¡« ñ«-
  601. íáó½∩Γ∞ ¿  πñá½∩Γ∞  ßΓ᫬¿,  »α¿  φΓ«¼ ¬παß«α ó«ºóαáΘáÑΓß∩ ¬
  602. »αáó«¼π ¬αáε ¿ »α¿  ñ«ßΓ¿ªÑ¡¿¿  ¬παß«α«¼ ¡¿ª¡Ñ⌐ ßΓ᫬¿ ΓѬßΓ
  603. »α«ñó¿úáÑΓß∩ óóÑασ.
  604.      éßÑ ¬««αñ¿¡áΓδ  φ¬αá¡á, ¬α«¼Ñ ΓÑσ, ¬«Γ«αδÑ ¿ß»«½∞ºπεΓß∩
  605. ñ½∩ «»αÑñѽѡ¿∩ «¬¡á,  «Γ¡«ß∩Γß∩ ¬ ΓѬπΘÑ¼π «¬¡π. è««αñ¿¡áΓá
  606. φ¬αá¡á (1,1) ß««ΓóÑΓßΓóπÑΓ ½Ñó«¼π óÑασ¡Ñ¼π πú½π φ¬αá¡á.
  607.      Å« π¼«½τá¡¿ε «¬¡«¼ ßτ¿ΓáÑΓß∩ óÑß∞ φ¬αá¡.
  608.  
  609.                     æ»Ñµ¿á½∞¡δÑ ß¿¼ó«½δ
  610.  
  611.      Åα¿ ºá»¿ß¿ ó óδσ«ñ¡«⌐ Σá⌐½ ¿½¿ ó Σá⌐½, ¬«Γ«αδ⌐ ¡áº¡áτÑ¡
  612. ñ½∩ ¼«ñπ½∩ ært, ß»Ñµ¿á½∞¡«Ñ  º¡áτÑ¡¿Ñ ¿¼ÑεΓ ß½ÑñπεΘ¿Ñ π»αáó-
  613. ½∩εΘ¿Ñ ß¿¼ó«½δ:
  614.      #7 - óδºδóáÑΓ ºóπ¬«ó«⌐  ß¿ú¡á½,  ¿ºñáóáѼδ⌐  ß  »«¼«Θ∞ε
  615. ó¡πΓαÑ¡¡Ñú« ñ¿¡á¼¿¬á.
  616.      #8 - ó«ºóαáΓ ¡á «ñ¡π »«º¿µ¿ε. éδºδóáÑΓ »ÑαѼÑΘÑ¡¿Ñ ¬πα-
  617. ß«αá  ó½Ñó« ¡á «ñ¡π »«º¿µ¿ε. àß½¿ ¬παß«α πªÑ ¡áσ«ñ¿Γß∩ π ½Ñ-
  618. ó«ú«  ¬αá∩ ΓѬπΘÑú« «¬¡á, Γ« ¡¿¬á¬¿σ ñÑ⌐ßΓó¿⌐ ¡Ñ »α«¿ºó«ñ¿Γ-
  619. ß∩.
  620.      #10 - »ÑαÑó«ñ ßΓ᫬¿.  ÅÑαѼÑΘáÑΓ ¬παß«α ¡á «ñ¡π ßΓ᫬π
  621. 󡿺.  àß½¿ ¬παß«α  πªÑ  ¡áσ«ñ¿Γß∩ ¡á ¡¿ª¡Ñ⌐ ßΓα«¬Ñ «¬¡á, Γ«
  622. «¬¡« »α«½¿ßΓδóáÑΓß∩ óóÑασ ¡á «ñ¡π ßΓ᫬π.
  623.      #13 - ó«ºóαáΓ ¬áαÑΓ¬¿.  é«ºóαáΘáÑΓ ¬παß«α ß ½Ñó«¼π ¬αáε
  624. ΓѬπΘÑú« «¬¡á.
  625.      éßÑ ñαπú¿Ñ ß¿¼ó«½δ »α¿ ºá»¿ß¿ óδó«ñ∩Γß∩ ¡á φ¬αá¡.
  626.  
  627.                          éó«ñ ßΓ᫬
  628.  
  629.      Åα¿ τΓÑ¡¿¿ ¿º óσ«ñ¡«ú« Σá⌐½á (Input) ¿½¿ »α¿ ¿º ΓѬßΓ«-
  630. ó«ú« Σá⌐½á, ¬«Γ«αδ⌐ ¡áº¡áτÑ¡  ñ½∩ ¼«ñπ½∩ ært, ΓѬßΓ óó«ñ¿Γß∩
  631. »« «ñ¡«⌐ ßΓ᫬Ñ.  æΓα«¬á  ºá»«¼¿¡áÑΓß∩  ó« ó¡πΓαÑ¡¡Ñ¼ íπΣÑαÑ
  632. ΓѬßΓ«ó«ú« Σá⌐½á ¿  ¬«úñá  »ÑαѼѡ¡δÑ  ßτ¿ΓδóáεΓß∩, Γ« ó ¬á-
  633. τÑßΓóÑ  ¿ßΓ«τ¡¿¬á  ¿ß»«½∞ºπÑΓß∩ φëàíπΣÑα. èáªñδ⌐ αẠ¬«úñá
  634. íπΣÑα ßΓá¡«ó¿Γß∩  »πßΓδ¼,  óó«ñ¿Γß∩  ¡«óá∩ ßΓ᫬á. Åα¿ óó«ñÑ
  635. ßΓ᫬ ¼«ª¡« ¿ß»«½∞º«óáΓ∞ ß½ÑñπεΘ¿Ñ ¬½áó¿Φ¿ αÑñá¬Γ¿α«óá¡¿∩:
  636.  
  637.      éacksαáßÑ - πñá½∩ÑΓ »«ß½Ññ¡¿⌐ óóÑñÑ¡¡δ⌐ ß¿¼ó«½.
  638.      àsß - πñá½∩ÑΓ óßε óó«ñ¿¼πε ßΓ᫬π.
  639.      ànter - »αѬαáΘáÑΓ óó«ñ ßΓ᫬¿ ¿ ºá»¿ßδóáÑΓ ¼Ñì𠬫¡µá
  640. ßΓ᫬¿ (ó«ºóαáΓ ¬áαÑΓ¬¿ / »ÑαÑó«ñ ßΓ᫬¿) ó íπΣÑαÑ.
  641.      ætrl-S - ñÑ⌐ßΓóπÑΓ ΓᬪÑ, ¬á¬ éá߬sαáßÑ.
  642.      ætrl-D - ¿ºó½Ñ¬áÑΓ  «ñ¿¡  ß¿¼ó«½  ¿º »«ß½Ññ¡Ñ⌐ óó«ñ¿¼«⌐
  643. ßΓ᫬¿ ¿ óδó«ñ¿Γ Ñú« ¡á φ¬αá¡.
  644.      ætrl-F - ó«ßßΓá¡áó½¿óáÑΓ ¡á  φ¬αá¡Ñ  »«ß½Ññ¡εε óó«ñ¿¼πε
  645. ßΓ᫬π.
  646.      ætrl-Z - ºáóÑαΦáÑΓ óó«ñ ßΓ᫬¿ ¿ úÑ¡Ñα¿απÑΓ ß¿¼ó«½ ¬«¡-
  647. µá Σá⌐½á.
  648.      ætrl-Z  úÑ¡Ñα¿απÑΓ  ß¿¼ó«½ ¬«¡µá  Σá⌐½á  Γ«½∞¬«  ó  Γ«¼
  649. ß½πτáÑ, Ñß½¿  »ÑαѼѡ¡á∩  æhÑ߬à«f  πßΓá¡«ó½Ñ¡á  ó  º¡áτÑ¡¿Ñ
  650. ÆruÑ (»« π¼«½τá¡¿ε Ñ⌐ »α¿ßó«Ñ¡« º¡áτÑ¡¿Ñ FalsÑ).
  651.  
  652.      ä½∩  »α«óÑન  ß«ßΓ«∩¡¿∩  ¬½áó¿áΓπαδ  ¿ óó«ñá «Γñѽ∞¡δσ
  653. ß¿¼ó«½«ó  »«ñ   π»αáó½Ñ¡¿Ñ¼  »α«úαá¼¼δ  ¿ß»«½∞ºπ⌐ΓÑ  Σπ¡¬µ¿¿
  654. KeyÉressed ¿ RÑádkey.
  655.  
  656.                 è«¡ßΓá¡Γδ, Γ¿»δ ¿ »ÑαѼѡ¡δÑ
  657.  
  658.      é ñá¡¡«¼ αáºñѽѠ¬αáΓ¬« «íßπªñáÑΓß∩ ¬áªñá∩ ¿º ¬«¡ßΓá¡Γ,
  659. Γ¿»«ó »ÑαѼѡ¡δσ, ºáñáóáѼδσ ß »«¼«Θ∞ε ¼«ñπ½∩ ært.
  660.  
  661.                 è«¡ßΓá¡Γδ αѪ¿¼á ¼«ñπ½∩ ært
  662.  
  663.      é ¬áτÑßΓóÑ »áαá¼ÑΓα«ó »α«µÑñπαδ  Æextî«dÑ  ¿ß»«½∞ºπεΓß∩
  664. ß½ÑñπεΘ¿Ñ ¬«¡ßΓá¡Γδ:
  665.  
  666.  const
  667.   BW40  = 0;       { 40σ25,  τÑα¡«-íѽδ⌐  αѪ¿¼  ¡á  µóÑΓ¡«¼
  668.                      áñá»ΓÑαÑ }
  669.   C40   = 1;       { 40σ25, µóÑΓ¡«⌐ αѪ¿¼ ¡á  µóÑΓ¡«¼  áñá»-
  670.                      ΓÑαÑ }
  671.   BW80  = 2;       { 80σ25,  τÑα¡«-íѽδ⌐  αѪ¿¼  ¡á  µóÑΓ¡«¼
  672.                      áñá»ΓÑαÑ }
  673.   C080  = 3;       { 80σ25, µóÑΓ¡«⌐ αѪ¿¼ ¡á µóÑΓ¡«¼ áñá»ΓÑ-
  674.                      αÑ }
  675.   Mono  = 7;       { 80σ25, τÑα¡«-íѽδ⌐ αѪ¿¼ ¡á  ¼«¡«σα«¼á-
  676.                      Γ¿τÑ߬«¼ áñá»ΓÑαÑ }
  677.   Font8x8 = 256;   { 43 ¿ 50 ßΓ᫬ ñ½∩ áñá»ΓÑα«ó EGA/VGA }
  678.   C40   = C040;    { ñ½∩ ß«ó¼ÑßΓ¿¼«ßΓ¿ ß óÑαß¿Ñ⌐ 3.0 }
  679.   C80   = C080;    { ñ½∩ ß«ó¼ÑßΓ¿¼«ßΓ¿ ß óÑαß¿Ñ⌐ 3.0 }
  680.  
  681.      éW40, æ040, éW80 ¿ æ080 »αÑñßΓáó½∩εΓ ß«í«⌐ τÑΓδαÑ µóÑΓ-
  682. ¡δσ  ΓѬßΓ«óδσ  αѪ¿¼á, »«ññÑনóáѼδσ ó µóÑΓ¡«¼ úαáΣ¿τÑ߬«¼
  683. áñá»ΓÑαÑ (æGÇ) ¡á ¬«¼»∞εΓÑαÑ Éæ Σ¿α¼δ  êüî.  è«¡ßΓá¡Γá  î«n«
  684. »αÑñßΓáó½∩ÑΓ ß«í«⌐ «Γñѽ∞¡δ⌐ τÑα¡«-íѽδ⌐ αѪ¿¼, »«ññÑনóáÑ-
  685. ¼δ⌐ ¼«¡«σα«¼áΓ¿τÑ߬¿¼ áñá»ΓÑα«¼ ¡á ¬«¼»∞εΓÑαÑ Éæ Σ¿α¼δ  êüî.
  686. Font8x8  -  φΓ« αѪ¿¼δ áñá»ΓÑα«ó EGA/VGA ß 43 ¿ 50 ßΓα«¬á¼¿.
  687. è«¡ßΓá¡Γδ æ40 ¿ æ80 »αÑñ¡áº¡áτÑ¡δ ñ½∩ ß«ó¼ÑßΓ¿¼«ßΓ¿ ß óÑαß¿-
  688. Ñ⌐ 3.0 Æπαí«-Åá߬á½∩.
  689.  
  690.                       è«¡ßΓá¡Γδ µóÑΓ«ó
  691.  
  692.      Åα¿ αáí«ΓÑ ß »α«µÑñπαἿ ÆÑσΓæ«lor ¿ ÆÑσΓéá߬ground ¿ß-
  693. »«½∞ºπεΓß∩ ß½ÑñπεΘ¿Ñ ¬«¡ßΓá¡Γδ:
  694.  
  695.  const
  696.    Black          = 0;      { τÑα¡δ⌐ }
  697.    Blue           = 1;      { ß¿¡¿⌐  }
  698.    Green          = 2;      { ºÑ½Ñ¡δ⌐ }
  699.    Cyan           = 3;      { í¿αóδ⌐ }
  700.    Red            = 4;      { ¬αáß¡δ⌐ }
  701.    Magenta        = 5;      { ¼á½¿¡«óδ⌐ }
  702.    Brown          = 6;      { ¬«α¿τ¡Ñóδ⌐ }
  703.    LightGray      = 7;      { ßóÑΓ½«-ßÑαδ⌐ }
  704.    DarkGray       = 8;      { ΓѼ¡«-ßÑαδ⌐ }
  705.    LightBlue      = 9;      { ßóÑΓ½«-ú«½πí«⌐ }
  706.    LightGreen     = 10;     { ßóÑΓ½«-ºÑ½Ñ¡δ⌐ }
  707.    LightCyan      = 11;     { ßóÑΓ½«-í¿αóδ⌐ }
  708.    LightRed       = 12;     { ßóÑΓ½«-¬αáß¡δ⌐ }
  709.    LightMagenta   = 13;     { ßóÑΓ½«-¼á½¿¡«óδ⌐ }
  710.    Yellow         = 14;     { ªÑ½Γδ⌐ }
  711.    White          = 15;     { íѽδ⌐ }
  712.    Blink          = 128;    { ¼Ñαµá¡¿Ñ }
  713.  
  714.      ûóÑΓá »αÑñßΓáó½Ñ¡δ ¿σ ¡«¼ÑαἿ «Γ 0 ñ« 15. ùΓ«íδ ½Ñú¬«
  715. ¿ñÑ¡Γ¿Σ¿µ¿α«óáΓ∞ ¬áªñδ⌐ µóÑΓ, ó¼ÑßΓ« µóÑΓ«ó ¼«ª¡« ¿ß»«½∞º«-
  716. óáΓ∞ ñá¡¡δÑ ¬«¡ßΓá¡Γδ. é µóÑΓ¡«¼ ΓѬßΓ«ó«¼ αѪ¿¼Ñ µóÑΓ ¬áª-
  717. ñ«ú« ß¿¼ó«½á óδí¿αáÑΓß∩ ¿º 16 µóÑΓ«ó, á Σ«¡«óδ⌐ µóÑΓ - ¿º 8
  718. µóÑΓ«ó. ûóÑΓ ¬áªñ«ú« ß¿¼ó«½á ¼«ª¡« ßñѽáΓ∞ ¼ÑαµáεΘ¿¼.
  719.  
  720.                        ÅÑαѼѡ¡δÑ Crt
  721.  
  722.      é ¼«ñπ½Ñ Crt ß«ñÑαªáΓß∩ ß½ÑñπεΘ¿Ñ »ÑαѼѡ¡δÑ:
  723.  
  724.  var
  725.    CheakBreak   : boolean;
  726.    CheckEof     : boolean;
  727.    CheckSnow    : boolean;
  728.    DirectVideo  : boolean;
  729.    LastMode     : word;
  730.    TextAttr     : byte;
  731.    WindMin      : word;
  732.    WindMax      : word;
  733.  
  734.                    ÅÑαѼѡ¡á∩ æhÑ߬érÑak
  735.  
  736.      ÅÑαѼѡ¡á∩ æheckérÑak αáºαÑΦáÑΓ ¿½¿ ºá»αÑΘáÑΓ  »α«óÑન
  737. ß¿Γπᵿ¿ ætrl-éreak.
  738.  
  739.      var CheckBreak: boolean;
  740.  
  741.      è«úñá »ÑαѼѡ¡á∩ æhÑ߬érÑak »α¿¡¿¼áÑΓ º¡áτÑ¡¿Ñ ÆruÑ, Γ«
  742. ¡áªáΓ¿Ñ  ¬½áó¿Φ ætrl-érÑak »α¿óÑñÑΓ ¬ »α¿¡πñ¿Γѽ∞¡«¼π ºáóÑα-
  743. ΦÑ¡¿ε αáí«Γδ »α«úαá¼¼δ »α¿ ß½ÑñπεΘÑ⌐ «»Ñαᵿ¿ óδó«ñá ¡á  φ¬-
  744. αá¡  ñ¿ß»½Ñ∩, ¬«Γ«απε óδ»«½¡¿Γ φΓá »α«úαá¼¼á. è«úñá »ÑαѼѡ-
  745. ¡á∩ æhÑ߬éreak  »α¿¡¿¼áÑΓ  º¡áτÑ¡¿Ñ  FalsÑ,  ¡áªáΓ¿Ñ  ¬½áó¿Φ
  746. ætrl-éreak  ¡Ñ  ó맮óÑΓ ¡¿¬á¬¿σ ñÑ⌐ßΓó¿⌐. Å« π¼«½τá¡¿ε »ÑαÑ-
  747. ¼Ñ¡¡á∩ æhÑ߬érÑᬠ»α¿¡¿¼áÑΓ º¡áτÑ¡¿Ñ ÆruÑ. (é« óαѼ∩  óδ»«½-
  748. ¡Ñ¡¿∩  ¼«ñπ½∞  ært  ß«σαá¡∩ÑΓ  ßΓáαδ⌐  óÑ¬Γ«α  »αÑαδóá¡¿⌐ »«
  749. ætrl-éreak, $1é, ó ú½«íá½∞¡«⌐ »ÑαѼѡ¡«⌐-π¬áºáΓѽѠߠ ¿¼Ñ¡Ñ¼
  750. SaveInt1é).
  751.  
  752.                      ÅÑαѼѡ¡á∩ æhÑßkàÄF
  753.  
  754.      ÅÑαѼѡ¡á∩ æhÑßkàÄF αáºαÑΦáÑΓ ¿½¿ ºá»αÑΘáÑΓ ß¿¼ó«½ ¬«¡-
  755. µá Σá⌐½á:
  756.  
  757.   var CheckEOF: boolean;
  758.  
  759.      àß½¿ »ÑαѼѡ¡á∩ æhÑßkàÄF ¿¼ÑÑΓ º¡áτÑ¡¿Ñ ÆruÑ, Γ«, ¬«úñá
  760. τΓÑ¡¿Ñ »α«¿ºó«ñ¿Γß∩  ¿º  Σá⌐½á  ¡áº¡áτÑ¡¡«ú« φ¬αá¡π ñ¿ß»½Ñ∩,
  761. »α¿ ¡áªáΓ¿¿ ¬½áó¿Φ  ætrl-Z  úÑ¡Ñα¿απÑΓß∩ ß¿¼ó«½ ¬«¡µá Σá⌐½á.
  762. è«úñá »ÑαѼѡ¡á∩ æhÑßkàÄF ¿¼ÑÑΓ º¡áτÑ¡¿Ñ False  »α¿  ¡áªáΓ¿¿
  763. ¬½áó¿Φ  ætrl-Z  ¡¿¬á¬¿σ  ñÑ⌐ßΓó¿⌐  ¡Ñ óδ»«½¡∩ÑΓß∩.  ç¡áτÑ¡¿Ñ
  764. FalsÑ »α¿ßóá¿óáÑΓß∩ »ÑαѼѡ¡«⌐ æhÑßkàÄF »« π¼«½τá¡¿ε.
  765.  
  766.                     ÅÑαѼѡ¡á∩ æhÑßkSnow
  767.  
  768.      ÅÑαѼѡ¡á∩ æhÑßkSnow  αáºαÑΦáÑΓ  ¿½¿  ºá»αÑΘáÑΓ  ó¿ñÑ«-
  769. ¬«¡Γα«½∞ »α¿ ºá»¿ß¿  ß¿¼ó«½«ó ¡Ñ»«ßαÑñßΓóÑ¡¡« ó ó¿ñÑ«»á¼∩Γ∞.
  770. (Åα¿ «ΓßπΓßó¿¿ Γᬫú« ¬«¡Γα«½∩ ¡á φ¬αá¡Ñ ñ¿ß»½Ñ∩ ¼«úπΓ  ó«º-
  771. ¡¿¬áΓ∞ »«¼Ñσ¿ ó ó¿ñÑ "ß¡Ñúá".)
  772.  
  773.   var CheckSnow: boolean;
  774.  
  775.      é í«½∞Φ¿¡ßΓóÑ  áñá»ΓÑα«ó æGÇ, Ñß½¿ ß¿¼ó«½δ ºá»«¼¿¡áεΓß∩
  776. ó ó¿ñÑ«»á¼∩Γ¿ ¡Ñ ó« óαѼ∩ ¿¡ΓÑαóὫó «íαáΓ¡«ú« σ«ñá ú«α¿º«¡-
  777. Γá½∞¡«⌐ αáºóÑαΓ¬¿, Γ« íπñπΓ ó«º¡¿¬áΓ∞ »«¼Ñσ¿.  Åα¿ ¿ß»«½∞º«-
  778. óá¡¿¿ ¼«¡«σα«¼áΓ¿τÑ߬¿σ áñá»ΓÑα«ó ¿½¿ áñá»ΓÑαá àGÇ φΓ«ú«  ¡Ñ
  779. »α«¿ßσ«ñ¿Γ.
  780.      è«úñá   óδíαá¡   µóÑΓ¡«⌐  ΓѬßΓ«óδ⌐  αѪ¿¼,  »ÑαѼѡ¡«⌐
  781. æhÑ߬Snow »α¿ßó«Ñ¡« º¡áτÑ¡¿Ñ ÆruÑ ¿ »α∩¼á∩ ºá»¿ß∞ ó ó¿ñÑ«»á-
  782. ¼∩Γ∞  »α«¿ºó«ñ¿Γß∩ Γ«½∞¬« ó« óαѼ∩ ¿¡ΓÑαóὫó «íαáΓ¡«ú« σ«ñá
  783. ú«α¿º«¡Γá½∞¡«⌐ αáºóÑαΓ¬¿.  Åα¿ αáí«ΓÑ ó »«ß½Ññ¡¿¼¿  ¼«ñѽ∩¼¿
  784. áñá»ΓÑα«ó æGÇ óδ, ó«º¼«ª¡«,  ºáσ«Γ¿ΓÑ ó  ¡áτá½Ñ  »α«úαá¼¼δ ¿
  785. »«ß½Ñ ¬áªñ«ú« ó맮óá »α«µÑñπαδ ÆÑσΓî«dÑ »α¿ßó«¿Γ∞ »ÑαѼѡ¡«⌐
  786. æhÑ߬Snow º¡áτÑ¡¿Ñ FalsÑ. ¥Γ« ó맮óÑΓ «Γ¼Ñ¡π  ó¿ñÑ«¬«¡Γα«½∩,
  787. τΓ« »α¿óÑñÑΓ ¬ º¡áτ¿Γѽ∞¡« í«½∞ΦÑ⌐ ß¬«α«ßΓ¿ αáí«Γδ.
  788.      è«úñá  »ÑαѼѡ¡á∩ DirectVideo ¿¼ÑÑΓ º¡áτÑ¡¿Ñ FalsÑ, »Ñ-
  789. αѼѡ¡á∩ æhÑ߬Snow ¡¿¬á¬¿σ ñÑ⌐ßΓó¿⌐ ¡Ñ óδºδóáÑΓ.
  790.  
  791.                    ÅÑαѼѡ¡á∩ DirÑßtVidÑ«
  792.  
  793.      ÅÑαѼѡ¡á∩ DirÑßtVidÑ« αáºαÑΦáÑΓ ¿½¿  ºá»αÑΘáÑΓ  »α∩¼«⌐
  794. ñ«ßΓπ» ¬  »á¼∩Γ¿  »α¿  ¿ß»«½∞º«óá¡¿¿  «»ÑαáΓ«α«ó  WritÑ  ¿½¿
  795. Writeln, ß »«¼«Θ∞ε ¬«Γ«αδσ ¿¡Σ«α¼áµ¿∩ óδó«ñ¿Γß∩ ¡á φ¬αá¡.
  796.  
  797.   var DirectVideo: boolean;
  798.  
  799.      è«úñá »ÑαѼѡ¡á∩  DirÑßtVidÑ«  ¿¼ÑÑΓ  º¡áτÑ¡¿Ñ ÆruÑ, Γ«
  800. »α¿ ¿ß»«½∞º«óá¡¿¿ «»ÑαáΓ«α«ó ºá»¿ß¿ Write ¿  Writeln ó Σá⌐½,
  801. ßó∩ºá¡¡δ⌐ ß  πßΓα«⌐ßΓó«¼  æRÆ, ó¼ÑßΓ« «íαáΘÑ¡¿∩  ñ½∩  óδó«ñá
  802. ß¿¼ó«½«ó  ¬  ßαÑñßΓóá¼  éIÄS (íẫóá∩ ß¿ßΓѼá óó«ñá-óδó«ñá),
  803. τΓ« º¡áτ¿Γѽ∞¡« ºá¼Ññ½∩ÑΓ »α«µÑßß,  «¡¿  íπñπΓ  ºá»¿ßδóáΓ∞ß∩
  804. ¡Ñ»«ßαÑñßΓóÑ¡¡« ó ó¿ñÑ«»á¼∩Γ∞.
  805.      Å« π¼«½τá¡¿ε »ÑαѼѡ¡á∩ DirÑßtVidÑ« óßÑúñá ¿¼ÑÑΓ º¡áτÑ-
  806. ¡¿Ñ ÆruÑ. àß½¿ »« ¬á¬¿¼-½¿í«  »α¿τ¿¡á¼ óδ σ«Γ¿ΓÑ, τΓ«íδ ß¿¼-
  807. ó«½δ óδó«ñ¿½¿ß∞ ß  »«¼«Θ∞ε  «íαáΘÑ¡¿⌐ ¬ íẫó«⌐ ß¿ßΓѼѠóó«-
  808. ñá-óδó«ñá, Γ« ó ¡áτá½Ñ óáΦÑ⌐ »α«úαá¼¼δ ¿ »«ß½Ñ ¬áªñ«ú« «íαá-
  809. ΘÑ¡¿∩ ó »α«µÑñπαÑ ÆÑσΓî«dÑ »α¿ßó«⌐ΓÑ »ÑαѼѡ¡«⌐ DirÑßtVidÑ«
  810. º¡áτÑ¡¿Ñ FalsÑ.
  811.  
  812.                     ÅÑαѼѡ¡á∩ ÆÑσΓÇttr
  813.  
  814.      ÅÑαѼѡ¡á∩ ÆÑσΓÇttr ¿ß»«½∞ºπÑΓß∩ ñ½∩ ß«σαá¡Ñ¡¿∩ óδíαá¡-
  815. ¡δσ ΓѬπΘ¿σ ΓѬßΓ«óδσ áΓα¿íπΓ«ó.
  816.  
  817.   var TextAttr: byte;
  818.  
  819.      ÆѬßΓ«óδÑ áΓα¿íπΓδ «íδτ¡« πßΓá¡áó½¿óáεΓß∩ ß »«¼«Θ∞ε óδ-
  820. º«óá »α«µÑñπα  ÆÑσtæ«l«r ¿  ÆÑσtéáckground, «ñ¡á¬« óδ ¼«ªÑΓÑ
  821. ΓᬪѠπßΓá¡«ó¿Γ∞ ¿σ »πΓѼ ¡Ñ»«ßαÑñßΓóÑ¡¡«⌐ ºá»¿ß¿ º¡áτÑ¡¿∩ ó
  822. »ÑαѼѡ¡πε TextÇttr.  ê¡Σ«α¼áµ¿∩ « µóÑΓá󠬫ñ¿απÑΓß∩ ó »ÑαÑ-
  823. ¼Ñ¡¡«⌐ TextÇttr ß½ÑñπεΘ¿¼ «íαẫ¼:
  824.  
  825.           7    6  5  4   3  2  1  0
  826.        ------------------------------
  827.        !  é  ! b  b  b ! f  f  f  f !
  828.        ------------------------------
  829.  
  830. úñÑ ffff - τÑΓδαÑσí¿Γ«óδ⌐ µóÑΓ ΓѬßΓá, bbb - ΓαÑσí¿Γ«óδ⌐ Σ«-
  831. ¡«óδ⌐ µóÑΓ, á é - í¿Γ,  αáºαÑΦáεΘ¿⌐ αѪ¿¼ ¼Ñαµá¡¿∩. àß½¿ ñ½∩
  832. ºáñá¡¿∩ º¡áτÑ¡¿⌐ »ÑαѼѡ¡«⌐ ÆÑσΓÇttr óδ ¿ß»«½∞ºπÑΓÑ ¬«¡ßΓá¡-
  833. Γδ µóÑΓ«ó, ºá¼ÑΓ¿¼, τΓ« ó ¬áτÑßΓóÑ Σ«¡«ó«ú« µóÑΓá ¼«ª¡« óδí-
  834. αáΓ∞ Γ«½∞¬«  «ñ¿¡  ¿º  »Ñαóδσ 8 µóÑΓ«ó ¿ τΓ« ñ½∩ Γ«ú«, τΓ«íδ
  835. αẼÑßΓ¿Γ∞  Ñú«  ó  »αáó¿½∞¡δσ  »«º¿µ¿∩σ í¿Γ«ó, φΓ« º¡áτÑ¡¿Ñ
  836. ¡πª¡« π¼¡«ª¿Γ∞ ¡á 16. Åα¿ ß½ÑñπεΘ¿σ »α¿ßó«Ñ¡¿∩σ íπñπΓ óδíαá-
  837. ¡δ ªÑ½ΓδÑ ¼ÑαµáεΘ¿Ñ ß¿¼ó«½δ ¡á ú«½πí«¼ Σ«¡Ñ.
  838.  
  839.   TextAttr := Yellow + Blue * 16 + Blink;
  840.  
  841.                 ÅÑαѼѡ¡δÑ WindMin ¿ Windîáσ
  842.  
  843.      ÅÑαѼѡ¡δÑ WindMin ¿ Windîáσ ¿ß»«½∞ºπεΓß∩ ñ½∩ ºá»«¼¿¡á-
  844. ¡¿∩ ¬««αñ¿¡áΓ φ¬αá¡á ñ½∩ ΓѬπΘÑú« «¬¡á.
  845.  
  846.   var WindMin, WindMax : word;
  847.  
  848.      ¥Γ¿ »ÑαѼѡ¡δÑ πßΓá¡áó½¿óáεΓß∩ ß »«¼«Θ∞ε  ó맮óá »α«µÑ-
  849. ñπαδ Window.  ÅÑαѼѡ¡á∩  WindMin  «»αÑñѽ∩ÑΓ  ½Ñóδ⌐ óÑασ¡¿⌐
  850. πú«½, á »ÑαѼѡ¡á∩  Windîáσ -  ¡¿ª¡¿⌐ »αáóδ⌐ πú«½. é ¼½áñΦѼ
  851. íá⌐ΓÑ σαá¡¿Γß∩  ¬««αñ¿¡áΓá ò, á ó ßΓáαΦѼ íá⌐ΓÑ - ¬««αñ¿¡áΓá
  852. Y. ìá»α¿¼Ñα,  L«(WindMin)  ñáÑΓ ¬««αñ¿¡áΓπ  ò ½Ñó«ú« ¬αá∩, á
  853. ìi(Windîáσ)  - ¬«αñ¿¡áΓπ Y ¡¿ª¡Ñú« ¬αá∩.  ïÑóδ⌐ óÑασ¡¿⌐ πú«½
  854. φ¬αá¡á ß««ΓóÑΓßΓóπÑΓ ¬««αñ¿¡áΓá¼ (ò,Y) = (0,0). çá¼ÑΓ¿¼, «ñ-
  855. ¡á¬«, τΓ« »α¿ »ÑαÑñáτÑ  ¬««αñ¿¡áΓ ó  ¬áτÑßΓóÑ »áαá¼ÑΓα«ó »α¿
  856. «íαáΘÑ¡¿¿  ¬ »α«µÑñπαá¼  Window ¿  G«t«òY óÑασ¡¿⌐ ½Ñóδ⌐ πú«½
  857. ºáñáÑΓß∩ ¬««αñ¿¡áΓἿ (1,1).
  858.  
  859.                     Åα«µÑñπαδ ¿ Σπ¡¬µ¿¿
  860.  
  861. ------------------------------------------------------------
  862.      Åα«µÑñπαá ÇssignCrt - ¡áº¡áτáÑΓ ΓѬßΓ«óδ⌐ Σá⌐½ ñ½∩ πßΓ-
  863. α«⌐ßΓóá æRÆ.
  864.      Åα«µÑñπαá ælrà«l - «τ¿ΘáÑΓ óßÑ ß¿¼ó«½δ, ¡áτ¿¡á∩ «Γ  »«-
  865. º¿µ¿¿ ¬παß«αá ñ« ¬«¡µá ßΓ᫬¿, íѺ »ÑαѼÑΘÑ¡¿∩ ¬παß«αá.
  866.      Åα«µÑñπαá ælrScr - «τ¿ΘáÑΓ φ¬αá¡ ¿  »«¼ÑΘáÑΓ  ¬παß«α  ó
  867. óÑασ¡Ñ¼ ½Ñó«¼ πú½π.
  868.      Åα«µÑñπαá DÑláπ - óδ»«½¡∩ÑΓ ºáñÑ᪬π ¡á π¬áºá¡¡«Ñ τ¿ß½«
  869. ¼¿½½¿ßѬπ¡ñ.
  870.      Åα«µÑñπαá DelLine - πñá½∩ÑΓ ßΓ᫬π, ¡á ¬«Γ«α«⌐ ¡áσ«ñ¿Γ-
  871. ß∩ ¬παß«α ¿ »ÑαѼÑΘáÑΓ óßÑ  ß½ÑñπεΘ¿Ñ  ßΓ᫬¿ ¡á «ñ¡π ßΓ᫬π
  872. óóÑασ. ì¿ª¡∩∩ ßΓα«¬á «τ¿ΘáÑΓß∩.
  873.      Åα«µÑñπαá G«t«òY - óδ»«½¡∩ÑΓ »«º¿µ¿«¡¿α«óá¡¿Ñ  ¬παß«αá.
  874. ò - φΓ« ú«α¿º«¡Γá½∞¡á∩ »«º¿µ¿∩, Y - óÑαΓ¿¬á½∞¡á∩ »«º¿µ¿∩.
  875.      Åα«µÑñπαá ìightVideo - óδí¿αáÑΓ ß¿¼ó«½δ ß »«ñßóÑΓ¬«⌐.
  876.      Åα«µÑñπαá InsLine - óßΓáó½∩ÑΓ  »πßΓπε  ßΓ᫬π  ó  ¼ÑßΓÑ
  877. αáß»«½«ªÑ¡¿∩ ¬παß«αá.
  878.      öπ¡¬µ¿∩ KeyÉrÑssÑd - ó«ºóαáΘáÑΓ  º¡áτÑ¡¿Ñ  ÆruÑ,   Ñß½¿
  879. ¬½áó¿Φá ¡á ¬½áó¿áΓπαÑ ¡áªáΓá ¿ FalsÑ - ó »α«Γ¿ó¡«¼ ß½πτáÑ.
  880.      Åα«µÑñπαá LowVidÑ« - óδí¿αáÑΓ ß¿¼ó«½δ ß »«¡¿ªÑ¡¡«⌐  ∩α-
  881. ¬«ßΓ∞ε.
  882.      öπ¡¬µ¿∩ NormVideo - óδí¿αáÑΓ ß¿¼ó«½δ ß ¡«α¼á½∞¡«⌐ ∩ᬫ-
  883. ßΓ∞ε.
  884.      Åα«µÑñπαá NoSound - ó䬽ετáÑΓ ó¡πΓαÑ¡¡¿⌐ ñ¿¡á¼¿¬.
  885.      öπ¡¬µ¿∩ RÑád¬Ñπ - ßτ¿ΓδóáÑΓ ß¿¼ó«½ ß ¬½áó¿áΓπαδ.
  886.      Åα«µÑñπαá RÑstorÑært - ó«ßßΓáó½¿óáÑΓ  ¿ßσ«ñ¡δ⌐ ó¿ñÑ«αÑ-
  887. ª¿¼, ¬«Γ«αδ⌐ ¿ß»«½∞º«óá½ß∩ »α¿ ºá»π߬Ñ.
  888.      Åα«µÑñπαá Sound - ó¬½ετáÑΓ ó¡πΓαÑ¡¡¿⌐ ñ¿¡á¼¿¬.
  889.      Åα«µÑñπαá ÆÑσtéá߬ground - óδí¿αáÑΓ Σ«¡«óδ⌐ µóÑΓ.
  890.      Åα«µÑñπαá ÆÑσtæ«lor - óδí¿αáÑΓ µóÑΓ ßἫú« ß¿¼ó«½á.
  891.      Åα«µÑñπαá ÆÑσtî«dÑ - óδí¿αáÑΓ  ¬«¡¬αÑΓ¡δ⌐ ΓѬßΓ«óδ⌐ αÑ-
  892. ª¿¼.
  893.      öπ¡¬µ¿∩ WherÑò - ó«ºóαáΘáÑΓ ¬««αñ¿¡áΓπ  ò  ñ½∩  ΓѬπΘÑ⌐
  894. »«º¿µ¿¿ ¬παß«αá, «Γ¡«ß∩Θπεß∩ ¬ ΓѬπΘÑ¼π «¬¡π. ò »αÑñßΓáó½∩ÑΓ
  895. ß«í«⌐ ú«α¿º«¡Γá½∞¡πε »«º¿µ¿ε.
  896.      öπ¡¬µ¿∩ WhereY - ó«ºóαáΘáÑΓ  ¬««αñ¿¡áΓπ  Y  ñ½∩ ΓѬπΘÑ⌐
  897. »«º¿µ¿¿ ¬παß«αá, «Γ¡«ß∩Θπεß∩ ¬ ΓѬπΘÑ¼π «¬¡π. Y »αÑñßΓáó½∩ÑΓ
  898. ß«í«⌐ óÑαΓ¿¬á½∞¡πε »«º¿µ¿ε.
  899.      Åα«µÑñπαá Window - «»αÑñѽ∩ÑΓ ¡á φ¬αá¡Ñ ΓѬßΓ«ó«Ñ «¬¡«.
  900. ------------------------------------------------------------
  901.  
  902.                         î«ñπ½∞ Graph
  903.  
  904.      î«ñπ½∞ Graph  αÑ὿ºπÑΓ  »«½¡πε í¿í½¿«ΓÑ¬π ¿º í«½ÑÑ τѼ
  905. 50 úαáΣ¿τÑ߬¿σ »α«úαá¼¼ -  «Γ ó맮ó«ó »α«µÑñπα ¿ Σπ¡¬µ¿⌐ óδ-
  906. ß«¬«ú« πα«ó¡∩, ¬á¬,  ¡á»α¿¼Ñα, SetViewPort, éár3D, DrowPoly,
  907. ñ« »α«úαá¼¼,  «α¿Ñ¡Γ¿α«óá¡¡δσ ¡á αáí«Γπ ß í¿ΓἿ, Γᬿσ, ¬á¬
  908. GetImage ¿½¿ ÉutImage. Å«ññÑনóáÑΓß∩ ¡Ñ߬«½∞¬« ó¿ñ«ó ºá¬αá-
  909. Φ¿óá¡¿∩ ¿  Γ¿»«ó  ½¿¡¿⌐ ¿ ¿¼ÑÑΓß∩ ¡Ñ߬«½∞¬« Φα¿ΣΓ«ó, ¬«Γ«αδÑ
  910. ¼«ª¡« ¿º¼Ñ¡∩Γ∞  »« óѽ¿τ¿¡Ñ, óδαáó¡¿óáΓ∞ ¿ «α¿Ñ¡Γ¿α«óáΓ∞ ú«-
  911. ਧ«¡Γá½∞¡« ¿½¿ óÑαΓ¿¬á½∞¡«.
  912.      ä½∩  ¬«¼»¿½∩µ¿¿  »α«úαá¼¼δ,  ¿ß»«½∞ºπεΘÑ⌐ ¼«ñπ½∞ Gráαh,
  913. óá¼ ¡Ñ »«ΓαÑíπÑΓß∩ ¡¿¬á¬¿σ ó¡ÑΦ¡¿σ  Σá⌐½«ó  (¬α«¼Ñ, ¬«¡Ñτ¡«,
  914. ¿ßσ«ñ¡«ú«  ΓѬßΓá  óáΦÑ⌐  »α«úαá¼¼δ, ¬«¼»¿½∩Γ«αá ¿ ñ«ßΓπ»á ¬
  915. ßΓá¡ñáαΓ¡δ¼ ¼«ñπ½∩¼ ó ÆURéÄ.ÆÉL). ä½∩ ºá»π߬ᠻα«úαá¼¼δ, ¿ß-
  916. »«½∞ºπεΘÑ⌐ ¼«ñπ½∞ Gráαh, ¬α«¼Ñ óáΦÑ⌐ »α«úαá¼¼δ ß αáßΦ¿αÑ¡¿Ñ¼
  917. .àòà óá¼  »«ΓαÑíπεΓß∩  «ñ¿¡  ¿½¿ í«½ÑÑ úαáΣ¿τÑ߬¿σ ñαá⌐óÑα«ó
  918. (ß¼. ñá½ÑÑ Σá⌐½δ .BGI).  é  »α¿ñáτπ ¬  φΓ«¼π óá¼ »«ΓαÑíπÑΓß∩
  919. ΓᬪѠ«ñ¿¡ ¿½¿  í«½ÑÑ  Σá⌐½«ó  Φα¿ΣΓ«ó  (.æìR), Ñß½¿ ó óáΦÑ⌐
  920. »α«úαἼѠ¿ß»«½∞ºπεΓß∩ ¬á¬¿Ñ-½¿í« Φα¿ΣΓδ.
  921.      é ß««ΓóÑΓßΓó¿¿  ß  ½¿µÑ¡º¿«¡¡δ¼¿  πß½«ó¿∩¼¿  óδ  ¼«ªÑΓÑ
  922. αáß»α«ßΓá¡∩Γ∞ Σá⌐½δ .CHR ¿ .BGI ¡áα∩ñπ ß ß« ßó«¿¼¿  »α«úαá¼-
  923. ¼á¼¿.
  924.  
  925.                           äαá⌐óÑαδ
  926.  
  927.      ä½∩ »ÑαÑτ¿ß½Ñ¡¡δσ ¡¿ªÑ úαáΣ¿τÑ߬¿σ  áñá»ΓÑα«ó ¿  »«½¡«-
  928. ßΓ∞ε ß«ó¼ÑßΓ¿¼δσ ß ¡¿¼¿ »αÑñπß¼«ΓαÑ¡δ  ß½ÑñπεΘ¿Ñ úαáΣ¿τÑ߬¿Ñ
  929. ñαá⌐óÑαδ:
  930.  
  931.      - æGÇ;
  932.      - îæGÇ;
  933.      - àGÇ;
  934.      - VGÇ;
  935.      - ìÑrcules;
  936.      - ÇÆ&Æ 400;
  937.      - 3270 Éæ;
  938.      - IBM-8514.
  939.  
  940.      èáªñδ⌐ ñαá⌐óÑα ß«ñÑαª¿Γ óδ»«½¡∩Ѽδ⌐ ¬«ñ ¿ ñá¡¡δÑ ¿ σαá-
  941. ¡¿Γß∩ ó «Γñѽ∞¡«¼ Σá⌐½Ñ ¡á ñ¿ß¬Ñ. é« óαѼ∩ αáí«Γδ  »α«µÑñπαá
  942. InitGraph ¿ñÑ¡Γ¿Σ¿µ¿απÑΓ úαáΣ¿τÑ߬πε á»»áαáΓπαπ ¿ »α«¿ºó«ñ¿Γ
  943. ºáúαπº¬π ¿ ¿¡¿µ¿á½¿ºáµ¿ε ß««ΓóÑΓßΓóπεΘÑú« úαáΣ¿τÑ߬«ú« ñαá⌐-
  944. óÑαá, »ÑαÑó«ñ¿Γ ß¿ßΓѼπ ó úαáΣ¿τÑ߬¿⌐ αѪ¿¼, á ºáΓѼ ó«ºóαá-
  945. ΘáÑΓ π»αáó½Ñ¡¿Ñ óδºδóáεΘÑ⌐  »α«úαá¼¼Ñ.  Åα«µÑñπαá æloseGraph
  946. óδúαπªáÑΓ ñαá⌐óÑα ¿º »á¼∩Γ¿ ¿ ó«ßßΓá¡áó½¿óáÑΓ »αÑñδñπΘ¿⌐ ó¿-
  947. ñÑ«αѪ¿¼. æ »«¼«Θ∞ε »α«úαá¼¼  RÑstoreCrtMode ¿  SetGraphMode
  948. óδ ¼«ªÑΓÑ »ÑαѬ½ετáΓ∞ß∩ ¼Ñªñπ ΓѬßΓ«óδ¼ ¿ úαáΣ¿τÑ߬¿¼  αѪ¿-
  949. ¼«¼.
  950.      î«ñπ½∞ Gráph ¼«ªÑΓ ΓᬪѠαáí«ΓáΓ∞ ¡á ¬«¼»∞εΓÑαáσ ß ñóπ-
  951. ¼∩ ¼«¡¿Γ«αἿ. Åα¿ ¿¡¿µ¿á½¿ºáµ¿¿ ¼«ñπ½∩ Graph ß »«¼«Θ∞ε »α«-
  952. µÑñπαδ InitGraph ñ½∩ úαáΣ¿τÑ߬«ú« ñαá⌐óÑαá ¿ ΓαÑíπѼ«ú«  αÑ-
  953. ª¿¼á íπñÑΓ óδíαá¡ ¡πª¡δ⌐ ¼«¡¿Γ«α. Åα¿ ºáóÑαΦÑ¡¿¿ αáí«Γδ úαá-
  954. Σ¿τÑ߬«⌐ »α«úαá¼¼δ »αÑñδñπΘ¿⌐ ó¿ñÑ«αѪ¿¼ íπñÑΓ ó«ßßΓá¡«ó½Ñ¡.
  955. àß½¿ ñ½∩ úαáΣ¿τÑ߬«⌐ á»»áαáΓπαδ ß ñóπ¼∩ ¼«¡¿Γ«αἿ ΓαÑíπÑΓß∩
  956. áóΓ«¼áΓ¿τÑ߬«Ñ αáß»«º¡áóá¡¿Ñ, Γ« »α«µÑñπαá InitGraph óδíÑαÑΓ
  957. ¼«¡¿Γ«α ¿ úαáΣ¿τÑ߬πε »½áΓπ,  »α¿  ¬«Γ«α«⌐  íπñÑΓ »«½πτáΓ∞ß∩
  958. ¡á¿½πτΦÑÑ ¬áτÑßΓó« óδó«ñ¿¼«⌐ úαáΣ¿τÑ߬«⌐ ¿¡Σ«α¼áµ¿¿.
  959.  
  960.  CGA.BGI     - ñαá⌐óÑα ñ½∩ áñá»ΓÑα«ó CGA, MCGA Σ¿α¼δ IBM.
  961.  EGAVGA.BGI  - ñαá⌐óÑα ñ½∩ áñá»ΓÑα«ó EGA, VGA Σ¿α¼δ IBM.
  962.  HERC.BGI    -   ñαá⌐óÑα   ñ½∩  ¼«¡«σα«¼áΓ¿τÑ߬«ú«  áñá»ΓÑαá
  963. Hercules Σ¿α¼δ IBM.
  964.  ATT.BGI     - ñαá⌐óÑα ñ½∩ AT&T 6300 (400 ßΓ᫬).
  965.  PC3270.BGI  - ñαá⌐óÑα ñ½∩ IBM PC 3270.
  966.  IBM8514.BGI - ñαá⌐óÑα ñ½∩ IBM8514.
  967.  
  968.                Å«ññÑ᪬á πßΓα«⌐ßΓóá IBM-8514
  969.  
  970.      Æπαí«-Åá߬á½∞ »«ññÑনóáÑΓ úαáΣ¿τÑ߬πε »½áΓπ  IBM-8514,
  971. ¬«Γ«αá∩ »αÑñßΓáó½∩ÑΓ ß«í«⌐ ¡«óπε úαáΣ¿τÑ߬πε »½áΓπ ß óδß«¬¿¼
  972. αáºαÑΦÑ¡¿Ñ¼, »«ºó«½∩εΘπε »«½πτ¿Γ∞ αáºαÑΦáεΘπε ß»«ß«í¡«ßΓ∞ ñ«
  973. 1024σ768 Γ«τѬ ¿ »á½¿Γαπ, ß«ñÑαªáΘπε  256  «ΓΓÑ¡¬«ó  ¿º  256
  974. µóÑΓ«ó. öá⌐½ ñαá⌐óÑαá ñ½∩ φΓ«⌐ úαáΣ¿τÑ߬«⌐ »½áΓδ  ¡áºδóáÑΓß∩
  975. IBM8514.BGI.
  976.      âαáΣ¿τÑ߬á∩ »½áΓá IBM-8514 ¡Ñ ¼«ªÑΓ »αáó¿½∞¡« αáß»«º¡á-
  977. óáΓ∞ß∩ »α¿ áóΓ«¼áΓ¿τÑ߬«¼ «í¡áαπªÑ¡¿¿  («¡á íπñÑΓ  αáß»«º¡á-
  978. óáΓ∞ß∩ á½ú«α¿Γ¼á¼¿ áóΓ««í¡áαπªÑ¡¿∩,  ¬á¬ »½áΓá  VGA).  Æᬿ¼
  979. «íαẫ¼,  τΓ«íδ  ¿ß»«½∞º«óáΓ∞  »½áΓπ  IBM-8514,   »ÑαѼѡ¡«⌐
  980. GraphDriver »α¿ ó맮óÑ InitGraph  ¡πª¡«  »α¿ßó«¿Γ∞  º¡áτÑ¡¿Ñ
  981. IBM8514 (¬«Γ«α«Ñ «»αÑñѽѡ« ó ¼«ñπ½Ñ  Graph).  Åα¿  αáí«ΓÑ ß
  982. »½áΓ«⌐   IBM-8514   ¡Ñ  ß½ÑñπÑΓ   ¿ß»«½∞º«óáΓ∞  ß  InitGraph
  983. DetectGraph ¿½¿ DETECT (Ñß½¿ Γ«½∞¬« óδ ¡Ñ σ«Γ¿ΓÑ φ¼π½¿α«óáΓ∞
  984. αѪ¿¼ VGA).
  985.     ä½∩  »½áΓδ  IBM-8514  »«ññÑনóáεΓß∩  ß½ÑñπεΘ¿Ñ  αѪ¿¼δ:
  986. IBM8514LO (640σ480 φ½Ñ¼Ñ¡Γ«ó ¿º«íαáªÑ¡¿∩) ¿ IBM8514HI  (1024
  987. σ768 φ½Ñ¼Ñ¡Γ«ó ¿º«íαáªÑ¡¿∩). ÄíÑ ¬«¡ßΓá¡Γδ αѪ¿¼á «»αÑñѽѡδ
  988. ó ¿¡ΓÑαΣÑ⌐ß¡«⌐ τáßΓ¿ GRAPH.TPU.
  989.     ä½∩ «»αÑñѽѡ¿∩ µóÑΓ«ó ó »½áΓÑ IBM-8514 ¿ß»«½∞ºπεΓß∩ Γα¿
  990. 6-í¿Γ«óδσ º¡áτÑ¡¿∩. ä½∩ ¬áªñ«ú« «»αÑñѽ∩Ѽ«ú« µóÑΓá  ¿¼ÑεΓß∩
  991. 6-í¿Γ«óδÑ ¬«¼»«¡Ñ¡Γδ Red (¬αáß¡δ⌐), Green (ºÑ½Ñ¡δ⌐)  ¿  Blue
  992. (ú«½πí«⌐). ä½∩ Γ«ú«, τΓ«íδ »α¿ αáí«ΓÑ ß  úαáΣ¿τÑ߬«⌐  »½áΓ«⌐
  993. IBM-8514 »«½∞º«óáΓѽ∞ ¼«ú ºáñáóáΓ∞ µóÑΓá,  ó í¿í½¿«ΓѬπ  BGI
  994. ñ«íáó½Ñ¡á ¡«óá∩ »α«úαá¼¼á. ¥Γá »α«úαἼᠫ»αÑñѽ∩ÑΓß∩ ó  ¼«-
  995. ñπ½Ñ GRAPH.TPU ß½ÑñπεΘ¿¼ «íαẫ¼:
  996.  
  997.  procedure SetRGBPalette(ColorNum, Red, Green, Blue : word);
  998.  
  999.     Çαúπ¼Ñ¡Γ  ColorNum  ºáñáÑΓ ºá»¿ß∞ »á½¿Γαδ, ¬«Γ«απε ¡πª¡«
  1000. ºáúαπº¿Γ∞. ¥Γ«Γ áαúπ¼Ñ¡Γ »αÑñßΓáó½∩ÑΓ ß«í«⌐ µÑ½«Ñ º¡áτÑ¡¿Ñ ó
  1001. ñ¿á»áº«¡Ñ «Γ 0 ñ« 255 (ñÑß.). Çαúπ¼Ñ¡Γδ Red,  Green  ¿  Blue
  1002. «»αÑñѽ∩εΓ ¬«¼»«¡Ñ¡Γδ µóÑΓ«ó ó ºá»¿ß¿ »á½¿Γαδ.  êß»«½∞ºπÑΓß∩
  1003. Γ«½∞¬« ¼½áñΦ¿⌐ íá⌐Γ φΓ¿σ º¡áτÑ¡¿⌐ ¿ Γ«½∞¬« 6  ßΓáαΦ¿σ  í¿Γ«ó
  1004. φΓ«ú« íá⌐Γá ºáúαπªáεΓß∩ ó »á½¿Γαπ.
  1005.     äαπú¿Ñ »α«úαá¼¼δ, ¼«ñ¿Σ¿µ¿απεΘ¿Ñ »á½¿Γαπ (SetAllPalette,
  1006. SetPalette, GetPalette),  »α¿ αáí«ΓÑ  ß  úαáΣ¿τÑ߬«⌐  »½áΓ«⌐
  1007. IBM-8514 ¿ß»«½∞º«óáΓ∞ ¡Ñ ß½ÑñπÑΓ.
  1008.     ä½∩ ß«ó¼ÑßΓ¿¼«ßΓ¿ ß úαáΣ¿τÑ߬¿¼¿  áñá»ΓÑαἿ  Σ¿α¼δ  IBM
  1009. ñαá⌐óÑαδ Σ«α¼áΓá BGI «»αÑñѽ∩εΓ ñ½∩ »Ñαóδσ 16 µóÑΓ«ó »á½¿Γαδ
  1010. IBM-8514 º¡áτÑ¡¿∩ µóÑΓ«ó, »α¿¡∩ΓδÑ »« π¼«½τá¡¿ε ñ½∩  áñá»ΓÑ-
  1011. α«ó EGA/VGA. ¥Γ¿ º¡áτÑ¡¿∩ ¼«úπΓ ¿ß»«½∞º«óáΓ∞ß∩ ó  ¡Ñ¿º¼Ñ¡Ñ¡-
  1012. ¡«¼   ó¿ñÑ   ¿½¿   ¼«ñ¿Σ¿µ¿α«óáΓ∞ß∩   ß   »«¼«Θ∞ε  »α«µÑñπαδ
  1013. SetGRBPalette.
  1014.     Åα«µÑñπαá   FloodFill  ß  ñαá⌐óÑα«¼  úαáΣ¿τÑ߬«⌐   »½áΓδ
  1015. IBM-8514 αáí«ΓáΓ∞ ¡Ñ íπñÑΓ.
  1016.     Åα¿  αáí«ΓÑ ß úαáΣ¿τÑ߬¿¼ áñá»ΓÑα«¼ VGA ó µóÑΓ¡«¼ αѪ¿¼Ñ
  1017. 256è ¿¼ÑεΓ ¼ÑßΓ« ΓÑ ªÑ «úαá¡¿τÑ¡¿∩.
  1018.  
  1019.                      æ¿ßΓѼᠬ««αñ¿¡áΓ
  1020.  
  1021.      Å« ß«ú½áΦÑ¡¿ε óÑασ¡¿⌐ ½Ñóδ⌐ πú«½ φ¬αá¡á ¿¼ÑÑΓ ¬««αñ¿¡á-
  1022. Γπ (0,0). ô í«½ÑÑ »αáó«ú« ßΓ«½íµá ¬««αñ¿¡áΓá σ í«½∞ΦÑ, π í«-
  1023. ½ÑÑ ¡¿ª¡Ñ⌐ ßΓ᫬¿ í«½∞ΦÑ ¬««αñ¿¡áΓá y.  Æ« ÑßΓ∞ ¬««αñ¿¡áΓá σ
  1024. πóѽ¿τ¿óáÑΓß∩ »α¿ »ÑαѼÑΘÑ¡¿¿ ó»αáó«,  á  ¬««αñ¿¡áΓá y - »α¿
  1025. »ÑαѼÑΘÑ¡¿¿ ó¡¿º. Æᬿ¼ «íαẫ¼ ¬««αñ¿¡áΓδ ¬áªñ«ú« ¿º  τÑΓδ-
  1026. αÑσ πú½«ó ¿ ¬«¡¬αÑΓ¡«⌐ Γ«τ¬¿ (ßÑαÑñ¿¡δ φ¬αá¡á) íπñπΓ  óδú½∩-
  1027. ñÑΓ∞ ß½ÑñπεΘ¿¼ «íαẫ¼:
  1028.  
  1029.  (0,0)                                    (319,0)
  1030.    --------------------------------------------
  1031.    !                                          !
  1032.    !                                          !
  1033.    !                                          !
  1034.    !                . (159,99)                !
  1035.    !                                          !
  1036.    !                                          !
  1037.    !                                          !
  1038.    !                                          !
  1039.    --------------------------------------------
  1040.  (0,199)                                 (319,199)
  1041.  
  1042.                      ÆѬπΘ¿⌐ π¬áºáΓѽ∞
  1043.  
  1044.      Å«¡∩Γ¿Ñ ΓѬπΘÑú« π¬áºáΓѽ∩  (æÉ - æurrent Pointer)  ¿ß-
  1045. »«½∞ºπÑΓß∩ ó« ¼¡«ú¿σ úαáΣ¿τÑ߬¿σ ß¿ßΓѼáσ. Å«¡∩Γ¿Ñ æÉ á¡á½«-
  1046. ú¿τ¡« »«¡∩Γ¿ε ¬παß«αá ñ½∩  ΓѬßΓ«ó«ú« αѪ¿¼á, ºá ¿ß¬½ετÑ¡¿Ñ¼
  1047. Γ«ú«, τΓ« ΓѬπΘ¿⌐ π¬áºáΓѽ∞ ¡Ñó¿ñ¿¼.
  1048.  
  1049.   Write('ABC');
  1050.  
  1051.      é ΓѬßΓ«ó«¼  αѪ¿¼Ñ »αÑñΦÑßΓóπεΘ¿⌐ «»ÑαáΓ«α Write «ßΓá-
  1052. ó¿Γ ¬παß«α ó ¬«½«¡¬Ñ, ¡Ñ»«ßαÑñßΓóÑ¡¡« ß½ÑñπεΘ¿¼ ºá íπ¬ó«⌐ æ.
  1053. àß½¿ íπ¬óá æ íδ½á  óóÑñѡᠠ󠬫½«¡¬Ñ 80, Γ« ¬παß«α »ÑαÑ⌐ñÑΓ
  1054. ¡á ¬«½«¡¬π 1  ß½ÑñπεΘÑ⌐ ßΓ᫬¿.  àß½¿ íπ¬óá æ íδ½á óóÑñÑ¡á ó
  1055. ¬«½«¡¬Ñ 80  ßΓ᫬¿  25,  Γ«  »α«¿º«⌐ñÑΓ »α«½¿ßΓδóá¡¿Ñ φ¬αá¡á
  1056. óóÑασ ¡á 1  ßΓα«¬π ¿  ¬παß«α  íπñÑΓ ¡áσ«ñ¿Γß∩ ó 1 ¬«½«¡¬Ñ 25
  1057. ßΓ᫬¿.
  1058.  
  1059.   MoveTo(0,0);
  1060.   LineTo(20,20)
  1061.  
  1062.      é úαáΣ¿τÑ߬«¼ αѪ¿¼Ñ ñá¡¡δ⌐ «»ÑαáΓ«α LinÑÆ« «ßΓáó¿Γ ΓÑ-
  1063. ¬πΘ¿⌐  π¬áºáΓѽ∞  ó »«ß½Ññ¡Ñ⌐ ºáñá¡¡«⌐ Γ«τ¬Ñ  (20,20).  àß½¿
  1064. ñÑ⌐ßΓóπÑΓ αѪ¿¼ «ΓßÑτÑ¡¿∩, αÑá½∞¡á∩  óδó«ñ¿¼á∩  »α∩¼á∩ íπñÑΓ
  1065. «ΓßÑτÑ¡á ñ«  ΓѬπΘÑ⌐  Γ«τ¬¿.  çá¼ÑΓ¿¼, τΓ« ΓѬπΘ¿⌐ π¬áºáΓѽ∞
  1066. ¡¿¬«úñá ¡Ñ «ΓßѬáÑΓß∩.
  1067.      è«¼á¡ñá  î«vÑÆ«  ∩ó½∩ÑΓß∩  φ¬ó¿óá½Ñ¡Γ«¼ ¬«¼á¡ñδ GotoXY.
  1068.  
  1069. àñ¿¡ßΓóÑ¡¡«Ñ ÑÑ ¡áº¡áτÑ¡¿Ñ - φΓ« »ÑαѼÑΘÑ¡¿Ñ ΓѬπΘÑú« π¬áºá-
  1070. Γѽ∩. ÅÑαѼÑΘÑ¡¿Ñ ΓѬπΘÑú«  π¬áºáΓѽ∩  ¼«ªÑΓ  ¿ß»«½∞º«óáΓ∞ß∩
  1071. Γ«½∞¬« ó ß½ÑñπεΘ¿σ ¬«¼á¡ñáσ, ¿ß»«½∞ºπεΘ¿σ ΓѬπΘ¿⌐ π¬áºáΓѽ∞:
  1072.  
  1073.  MoveTo, InitGraph, MoveRel, LineTo, LineRel, OutText,
  1074.  SetGraphMode, ClearDevice, SetViewPort, ClearViewPort
  1075.  
  1076.                            ÆѬßΓ
  1077.  
  1078.      é úαáΣ¿τÑ߬«¼ αѪ¿¼Ñ  ñ½∩  óδó«ñá  ΓѬßΓá  ¿ß»«½∞ºπÑΓß∩
  1079. Φα¿ΣΓ ß αáßΓα«¼ 8σ8 ¿ ¡Ñ߬«½∞¬« "ΦΓα¿σ«óδσ" Φα¿ΣΓ«ó. ÉáßΓα«-
  1080. óδ⌐  ß¿¼ó«½  ºáñáÑΓß∩  ß  »«¼«Θ∞ε  ¼áΓα¿µδ φ½Ñ¼Ñ¡Γ«ó ¿º«íαá-
  1081. ªÑ¡¿∩. ÿΓα¿σ«ó«⌐ Φα¿ΣΓ ºáñáÑΓß∩ α∩ñ«¼ óÑ¬Γ«α«ó, ¬«Γ«αδÑ π¬á-
  1082. ºδóáεΓ úαáΣ¿τÑ߬«⌐ ß¿ßΓѼÑ, ¬á¬ α¿ß«óáΓ∞ Φα¿ΣΓ.
  1083.      ÅαÑ¿¼πΘÑßΓó« ¿ß»«½∞º«óá¡¿∩ ΦΓα¿σ«óδσ Φα¿ΣΓ«ó ßΓá¡«ó¿Γß∩
  1084. «τÑó¿ñ¡δ¼, ¬«úñá óδ ¡áτ¿¡áÑΓÑ α¿ß«óáΓ∞ í«½∞Φ¿Ñ ß¿¼ó«½δ. Å«ß-
  1085. ¬«½∞¬π ΦΓα¿σ«ó«⌐ Φα¿ΣΓ ºáñáÑΓß∩ óÑ¬Γ«αἿ, Γ« »α¿ πóѽ¿τÑ¡¿¿
  1086. Φα¿ΣΓá ¬áτÑßΓó« ¿ αáºαÑΦÑ¡¿Ñ «ßΓáεΓß∩, ΓѼ ¡Ñ ¼Ñ¡ÑÑ, σ«α«Φ¿-
  1087. ¼¿.
  1088.      è«úñá πóѽ¿τ¿óáÑΓß∩ αáßΓα«óδ⌐ Φα¿ΣΓ, Γ« ¼áΓα¿µá π¼¡«ªá-
  1089. ÑΓß∩ ¡á ¼áßΦΓáí¡δ⌐ ¬«φΣΣ¿µ¿Ñ¡Γ, á ¬«úñá  φëà¼áßΦΓáí¡δ⌐ ¬«-
  1090. φΣΣ¿µ¿Ñ¡Γ  πóѽ¿τ¿óáÑΓß∩,  αáºαÑΦÑ¡¿Ñ  π ß¿¼ó«½«ó ßΓá¡«ó¿Γß∩
  1091. í«½ÑÑ úαπíδ¼.  ä½∩ ¼á½Ñ¡∞¬¿σ  Φα¿ΣΓ«ó αáßΓα«óδ⌐ Φα¿ΣΓ ñ«½ªÑ¡
  1092. íδΓ∞ ñ«ßΓáΓ«τ¡« »α¿Ñ¼½¿¼δ¼, ¡« ñ½∩ í«½∞Φ¿σ Φα¿ΣΓ«ó óδ, óÑα«-
  1093. ∩Γ¡«, ºáσ«Γ¿ΓÑ óδíαáΓ∞ Φ¿α¿σ«ó«⌐ Φα¿ΣΓ.
  1094.      éδαáó¡¿óá¡¿Ñ úαáΣ¿τÑ߬«ú« ΓѬßΓá π»αáó½∩ÑΓß∩ »α«µÑñπα«⌐
  1095. SetÆÑσtJustify. îáßΦΓáí¿α«óá¡¿Ñ ¿ óδí«α Φα¿ΣΓá «ßπΘÑßΓó½∩ÑΓ-
  1096. ß∩ ß »«¼«Θ∞ε »α«µÑñπαδ SetÆÑσtStyle. âαáΣ¿τÑ߬¿⌐ ΓѬßΓ óδó«-
  1097. ñ¿Γß∩ ß »«¼«Θ∞ε »α«µÑñπα ÄutÆÑσt ¿½¿ ÄutÆÑσtòY. çá»α«ß « ΓÑ-
  1098. ¬πΘ¿σ  πßΓá¡«ó½Ñ¡¡δσ ñ½∩ ΓѬßΓá »áαá¼ÑΓαáσ óδ»«½¡∩ÑΓß∩ ß »«-
  1099. ¼«Θ∞ε «íαáΘÑ¡¿∩ ¬ »α«µÑñπαÑ GetÆÑσtSettings. ÿ¿α¿σ«óδÑ Φα¿Σ-
  1100. Γδ σαá¡∩Γß∩ ¬áªñδ⌐ ó «Γñѽ∞¡«¼ Σá⌐½Ñ ¡á ñ¿ß¬Ñ ¿ ñ«½ª¡δ  »α¿-
  1101. ßπΓßΓó«óáΓ∞  Γá¼  ó«  óαѼ∩  αáí«Γδ  (»α¿  ó맮óÑ  »α«µÑñπαδ
  1102. SetÆÑσtStyle).  ÉẼÑα  ΦΓα¿σ«ó«ú«  Φα¿ΣΓá ¼«ª¡« ¡áßΓα«¿Γ∞ ß
  1103. »«¼«Θ∞ε »α«µÑñπαδ SetUserCharSize.  öá⌐½δ  Φα¿ΣΓ«ó  (¬«Γ«αδÑ
  1104. ¿¼ÑεΓ  αáßΦ¿αÑ¡¿Ñ  .CHR) ¼«úπΓ ºáúαπªáΓ∞ß∩ ß ñ¿ß¬á áóΓ«¼áΓ¿-
  1105. τÑ߬¿ ¼«ñπ½Ñ¼ Graph, ¿½¿ ¿σ ¼«ª¡« ¬«¼»«¡«óáΓ∞  ß  »α«úαá¼¼«⌐
  1106. »«½∞º«óáΓѽ∩  ¿½¿ ºáúαπªáΓ∞ ¿ "αÑú¿ßΓα¿α«óáΓ∞" ß »«¼«Θ∞ε ¼«-
  1107. ñπ½∩ Graph.
  1108.      ä½∩ »αÑ«íαẫóá¡¿∩ Σá⌐½á  Φα¿ΣΓá  (¿½¿  ½εí«ú«  ñαπú«ú«
  1109. »αÑñ¡áº¡áτÑ¡¡«ú«  ñ½∩  φΓ«⌐  µÑ½¿  ñó«¿τ¡«ú« Σá⌐½á ñá¡¡δσ) ó
  1110. Σá⌐½ .OBJ, ¬«Γ«αδ⌐ ¼«ª¡« ¬«¼»«¡«óáΓ∞ ß ¼«ñπ½Ñ¼ ¿½¿  »α«úαá¼-
  1111. ¼«⌐  ß »«¼«Θ∞ε ñ¿αÑ¬Γ¿óδ ¬«¼»¿½∩Γ«αá $L »αÑñπß¼«ΓαÑ¡á ß»Ñµ¿-
  1112. á½∞¡á∩ πΓ¿½¿Γá BINOBJ.EXE. Åα¿ φΓ«¼ ßΓá¡«ó¿Γß∩ ó«º¼«ª¡δ¼ »«-
  1113. ¼ÑßΓ¿Γ∞  óßÑ Σá⌐½δ Φα¿ΣΓ«ó ó óδ»«½¡∩Ѽδ⌐ Σá⌐½ .EXE (ß¼. ¬«¼-
  1114. ¼Ñ¡Γáα¿¿ ó ¡áτá½Ñ »α¿¼Ñαá »α«úαá¼¼δ GRLINK.PAS ¡á  ñ¿ßΓα¿íπ-
  1115. Γ¿ó¡«¼ ñ¿ß¬Ñ).
  1116.  
  1117.              âαáΣ¿τÑ߬¿Ñ ¿º«íαáªÑ¡¿∩ ¿ ¿σ ó¿ñδ
  1118.  
  1119.      ä½∩ óδτÑατ¿óá¡¿∩  ¿  ºá¬αáΦ¿óá¡¿∩ úαáΣ¿τÑ߬¿σ ¿º«íαáªÑ-
  1120. ¡¿∩, ó¬½ετá∩ Γ«τ¬¿, »α∩¼δÑ, «¬απª¡«ßΓ¿,  ñπú¿, φ½½¿»ßδ, »α∩-
  1121. ¼«πú«½∞¡¿¬¿, ¼¡«ú«πú«½∞¡¿¬¿, Φα¿σ«ó¬π,  ΓαÑσ¼Ñα¡πε ΦΓα¿σ«ó¬π
  1122. ¿ ßÑ¬Γ«αδ, ¿¼ÑÑΓß∩  µÑ½δ⌐  α∩ñ  «íÑß»Ñτ¿óáεΘ¿σ »α«úαá¼¼. ä½∩
  1123. π»αáó½Ñ¡¿∩ ó¿ñ«¼  ½¿¡¿¿ - íπñÑΓ «¡á Γ«¡¬«⌐ ¿½¿ Γ«½ßΓ«⌐, ¡Ñ»-
  1124. αÑαδó¡«⌐ ¿½¿ ß«ßΓ«∩ΘÑ⌐ ¿º Γ«τѬ, ¿½¿ ªÑ »«ßΓα«Ñ¡¡«⌐ »« óáΦÑ-
  1125. ¼π  ß«íßΓóÑ¡¡«¼π  «íαẵπ -  ¼«ª¡«  ¿ß»«½∞º«óáΓ∞   »α«µÑñπαπ
  1126. SetLineStyle.
  1127.      ä½∩ ºá¬αáΦ¿óá¡¿∩ «í½áßΓ¿ ¿½¿ ¼¡«ú«πú«½∞¡¿¬á  »ÑαÑßѬáε-
  1128. ΘÑ⌐ß∩ ΦΓα¿σ«ó¬«⌐ ¿½¿ τѼ-½¿í« í«½ÑÑ ß½«ª¡δ¼  ¼«ª¡« ¿ß»«½∞º«-
  1129. óáΓ∞ »α«µÑñπαδ:
  1130.  
  1131.   SetFillStyle, SetFloodPattern, FillPoly, FloodFill
  1132.  
  1133.  
  1134.             Äí½áßΓ¿ »α«ß¼«Γαá ¿ ñó«¿τ¡δÑ «íαáºδ
  1135.  
  1136.      Åα«µÑñπαá  ViewPoint »«ºó«½∩ÑΓ óßѼ ¬«¼á¡ñá¼ óδó«ñá αá-
  1137. í«ΓáΓ∞ ó »α∩¼«πú«½∞¡«⌐ «í½áßΓ¿  φ¬αá¡á.  âαáΣ¿¬¿,  »α∩¼δÑ  ¿
  1138. ñαπú¿Ñ úαáΣ¿τÑ߬¿Ñ ¿º«íαáªÑ¡¿∩ (óÑß∞ úαáΣ¿τÑ߬¿⌐ óδó«ñ) ßó∩-
  1139. ºδóáÑΓß∩ ß «í½áßΓ∞ε »α«ß¼«Γαá, »«¬á φΓá «í½áßΓ∞ ¡Ñ ¿º¼Ñ¡∩ÑΓ-
  1140. ß∩. ÅαÑñπß¼«ΓαÑ¡δ »α«úαá¼¼δ ñ½∩  «τ¿ßΓ¬¿ «í½áßΓ¿ »α«ß¼«Γαá ¿
  1141. ßτ¿Γδóá¡¿∩ ÑÑ ΓѬπΘ¿σ «»αÑñѽѡ¿⌐.  àß½¿ ºáñá¡ αѪ¿¼ «ΓßÑτÑ-
  1142. ¡¿∩, Γ« óÑß∞ úαáΣ¿τÑ߬¿⌐  óδó«ñ «ΓßÑτÑΓß∩  ñ« ΓѬπΘÑ⌐ Γ«τ¬¿.
  1143. çá¼ÑΓ¿¼, τΓ« ΓѬπΘ¿⌐ π¬áºáΓѽ∞ ¡¿¬«úñá ¡Ñ «ΓßѬáÑΓß∩.
  1144.      ä½∩ ßτ¿Γδóá¡¿∩ ¿ óδó«ñá  φ½Ñ¼Ñ¡Γ«ó  ¿º«íαáªÑ¡¿∩ »αÑñπß-
  1145. ¼«ΓαÑ¡δ  »α«µÑñπαδ  GetPixel ¿  Putpixel.  ùΓ«íδ ß«σαá¡¿Γ∞ ¿
  1146. ó«ßßΓá¡«ó¿Γ∞ ¡á φ¬αá¡Ñ »α∩¼«πú«½∞¡πε «í½áßΓ∞,  ¼«ª¡« ¿ß»«½∞-
  1147. º«óáΓ∞  »α«µÑñπαδ  GetImage ¿  PutImage.   Ä¡¿  «íÑß»Ñτ¿óáεΓ
  1148. »«½¡«Ñ óδ»«½¡Ñ¡¿Ñ  «»Ñαᵿ⌐  »α«µÑñπαδ  éitélt  (¡«α¼á½∞¡«Ñ,
  1149. σ«r, «r, ánd, n«t).
  1150.  
  1151.                  Å«ññÑ᪬á ßΓαá¡¿µ ¿ µóÑΓá
  1152.  
  1153.      ê¼ÑÑΓß∩ ¼¡«ú« ñαπú¿σ »«ññÑনóáεΘ¿σ  »α«úαá¼¼,  ó¬½ετá∩
  1154. »«ññÑ᪬π  ñ½∩  ¡Ñ߬«½∞¬¿σ  úαáΣ¿τÑ߬¿σ  ßΓαá¡¿µ (Γ«½∞¬« ñ½∩
  1155. áñá»ΓÑα«ó  àGÇ, VGÇ ¿ ìÑrcules; φΓ« «ß«íÑ¡¡« »«½Ñº¡« »α¿ ¿ß-
  1156. »«½∞º«óá¡¿¿ ó ¼π½∞Γ¿»½¿¬áµ¿¿), »á½¿Γαδ, µóÑΓá ¿ Γᬠñá½ÑÑ.
  1157.  
  1158.                       Äíαáí«Γ¬á «Φ¿í«¬
  1159.  
  1160.      é¡πΓαÑ¡¡¿Ñ  «Φ¿í¬¿  ¼«ñπ½∩  Graph ó«ºóαáΘáεΓß∩ Σπ¡¬µ¿Ñ⌐
  1161. GraphResult. ¥Γá Σπ¡¬µ¿∩ ó«ºóαáΘáÑΓ ¬«ñ «Φ¿í¬¿, »«¬áºδóáεΘ¿⌐
  1162. ß«ßΓ«∩¡¿Ñ »«ß½Ññ¡Ñ⌐ úαáΣ¿τÑ߬«⌐ «»Ñαᵿ¿.  ê¼ÑεΓß∩ ß½ÑñπεΘ¿Ñ
  1163. ¬«ñδ ó«ºóαáΓá ß «Φ¿í¬«⌐:
  1164.  
  1165.       0 - «Φ¿í¬¿ ¡ÑΓ;
  1166.      -1 - (BGI) úαáΣ¿¬á ¡Ñ πßΓá¡«ó½Ñ¡á (¿ß»«½∞ºπ⌐ΓÑ »α«µÑñπ-
  1167.           απ InitGraph);
  1168.      -2 - á»»áαáΓ¡«Ñ «íÑß»ÑτÑ¡¿Ñ ñ½∩ úαáΣ¿¬¿ ¡Ñ ¡á⌐ñÑ¡«;
  1169.      -3 - ¡Ñ ¡á⌐ñÑ¡ Σá⌐½ ñαá⌐óÑαá πßΓα«⌐ßΓóá;
  1170.      -4 - ¡ÑóÑα¡δ⌐ Σá⌐½ ñαá⌐óÑαá πßΓα«⌐ßΓóá;
  1171.      -5 - ¡Ñ σóáΓáÑΓ »á¼∩Γ¿ ñ½∩ ºáúαπº¬¿ ñαá⌐óÑαá;
  1172.      -6 - óδσ«ñ ºá úαá¡¿µδ »á¼∩Γ¿ »α¿ ß¬á¡¿α«óá¡¿¿ «í½áßΓ¿
  1173.           ºá¬αáΦ¿óá¡¿∩;
  1174.      -7 - óδσ«ñ ºá úαá¡¿µδ »á¼∩Γ¿ »α¿ ºá»«½¡Ñ¡¿¿ ºá¬αáΦ¿óáÑ-
  1175.           ¼«⌐ «í½áßΓ¿;
  1176.      -8 - ¡Ñ ¡á⌐ñÑ¡ Σá⌐½ Φα¿ΣΓá;
  1177.      -9 - ¡Ñ σóáΓáÑΓ »á¼∩Γ¿ ñ½∩ ºáúαπº¬¿ Φα¿ΣΓá;
  1178.      -10 - ¡Ññ«»πßΓ¿¼δ⌐ ñ½∩ óδ
  1179.      error in text............................
  1180. ΓὫúÑ æ: DRIVERS). àß½¿ úαáΣ¿τÑ߬á∩ á»»áαáΓπαá ¡Ñ αáß»«º¡á-
  1181. ¡á ¿½¿ ó  »α«µÑßßÑ ¿¡¿µ¿á½¿ºáµ¿¿ »α«¿º«Φ½á «Φ¿í¬á, Γ« ¡á φ¬-
  1182. αá¡ óδó«ñ¿Γß∩ ß««íΘÑ¡¿Ñ «í «Φ¿í¬Ñ ¿ »α«úαἼᠻαѬαáΘáÑΓ αá-
  1183. í«Γπ. é »α«Γ¿ó¡«¼ ß½πτáÑΓ óñ«½∞ ¬αáÑó φ¬αá¡á α¿ßπÑΓß∩ »α∩¼«-
  1184. πú«½∞¡¿¬ ¿ ó µÑ¡ΓαÑ φ¬αá¡á óδó«ñ¿Γß∩ ΓѬßΓ.
  1185.  
  1186.       Åα¿¼Ñτá¡¿Ñ: ôßΓα«⌐ßΓó« ÇÆ&Æ400 ¡Ñ αáß»«º¡áÑΓß∩ áóΓ«¼á-
  1187.       Γ¿τÑ߬¿. ÆѼ ¡Ñ ¼Ñ¡ÑÑ óδ ¼«ªÑΓÑ »«½∞º«óáΓ∞ß∩ ñαá⌐óÑα«¼
  1188.       úαáΣ¿¿ ÇÆÆ »πΓѼ «Γ¼Ñ¡δ áóΓ«¼áΓ¿τÑ߬«⌐ »α«óÑન, »ÑαÑ-
  1189.       ß佬¿  ¿ß»«½¡∩Ѽ«ú«  ¬«ñá   ñαá⌐óÑαá   ÇÆ&Æ  »α«µÑñπαÑ
  1190.       InitGraph ¿ πßΓᡫ󬿠ñ«»πßΓ¿¼«ú« úαáΣ¿τÑ߬«ú« αѪ¿¼á.
  1191.       çá¼Ñ¡¿ΓÑ 8 ¿ 9 ßΓ᫬π ó »αÑñδñπΘѼ »α¿¼ÑαÑ  ß½ÑñπεΘ¿¼¿
  1192.       ΓαѼ∩ ßΓα«¬á¼¿:
  1193.  
  1194.    GraphDriver := ATT400;
  1195.    GraphMode := ATT400Hi;
  1196.    InitGraph(GraphDriver, GraphMode, 'C:\DRIVER');
  1197.  
  1198.            ¥Γ« π¬áªÑΓ  úαáΣ¿τÑ߬«⌐  ß¿ßΓѼѠ¡á ¡Ñ«íσ«ñ¿¼«ßΓ∞
  1199.       ºáúαπº¬¿ ñαá⌐óÑαá πßΓα«⌐ßΓóá ÇÆ&Æ400, αáß»«½«ªÑ¡¡«ú« ó
  1200.       ¬áΓὫúÑ  æ: DRIVERS ¿ πßΓá¡«ó¿Γ úαáΣ¿τÑ߬¿⌐ αѪ¿¼ 640
  1201.       ¡á 400.
  1202.  
  1203.      Åα¿óÑñѼ ÑΘÑ «ñ¿¡ »α¿¼Ñα, ¬«Γ«αδ⌐ »«¬áºδóáÑΓ, ¬á¬ ¼«ª¡«
  1204. »ÑαѬ½ετáΓ∞ß∩ ¼Ñªñπ úαáΣ¿τÑ߬¿¼ ¿ ΓѬßΓ«óδ¼ αѪ¿¼á¼¿:
  1205.  
  1206.   1 program GraphTest;
  1207.   2 uses
  1208.   3   Graph;
  1209.   4 var
  1210.   5   GraphDriver  : integer;
  1211.   6   GraphMode    : integer;
  1212.   7   ErrorCode    : integer;
  1213.   8 begin
  1214.   9   GraphDriver := Detect;    { ôßΓá¡«ó¿Γ∞ Σ½áú: óδ»«½¡¿Γ∞
  1215.                                   αáß»«º¡áóá¡¿Ñ }
  1216.   10  InitGraph(GraphDriver, GraphMode, 'C:\DRIVERS');
  1217.   11  ErrorCode := GraphResult;
  1218.   12  if ErrorCode <> grOk then  { «Φ¿í¬á╝ }
  1219.   13  begin
  1220.   14    Writeln('ÄΦ¿í¬á úαáΣ¿¬¿: ',GraphErrorMsg(ErrorCode);
  1221.   15    Writeln('Åα«úαá¼¼á áóáα¿⌐¡« ºáóÑαΦ¿½á αáí«Γπ...');
  1222.   16    Helt(1);
  1223.   17  end;
  1224.   18  OutText('âαáΣ¿τÑ߬¿⌐ αѪ¿¼. ì᪼¿ΓÑ <RETURN>');
  1225.   19  Readln;
  1226.   20  RestoreCrtMode;
  1227.   21  Write('ÆѬßΓ«óδ⌐ αѪ¿¼. ì᪼¿ΓÑ <RETURN>');
  1228.   22  Readln;
  1229.   23  SetGraphMode(GraphMode);
  1230.   24  OutText('æ¡«óá úαáΣ¿τÑ߬¿⌐ αѪ¿¼. ì᪼¿ΓÑ <RETURN>');
  1231.   25  Readln;
  1232.   26  CloseGraph;
  1233.   27 end. { GraphTest }
  1234.  
  1235.      çá¼ÑΓ¿¼,  τΓ« ó맮ó »α«µÑñπαδ SetGraphMode ¡á ßΓα«¬Ñ 23
  1236. ßíαáßδóáÑΓ óßÑ  úαáΣ¿τÑ߬¿Ñ »áαá¼ÑΓαδ (»á½¿Γαá, ΓѬπΘ¿⌐ π¬á-
  1237. ºáΓѽ∞, «ß¡«ó¡«⌐ ¿  Σ«¡«óδ⌐ µóÑΓá ¿ Γ.ñ.) ¿ ¿¼ »α¿ßóá¿óáεΓß∩
  1238. »α¿¡∩ΓδÑ »« π¼«½τá¡¿ε º¡áτÑ¡¿∩.
  1239.  
  1240.              Åα«úαá¼¼δ π»αáó½Ñ¡¿∩ ñ¿¡á¼¿τÑ߬¿
  1241.      αáß»αÑñѽ∩Ѽ«⌐ «í½áßΓ∞ε, ¡á»¿ßá¡¡δÑ »«½∞º«óáΓѽѼ
  1242.  
  1243.      ä½∩ ¼«ñπ½∩ Graph »αÑñπß¼«ΓαÑ¡δ ñóÑ »α«úαá¼¼δ π»αáó½Ñ¡¿∩
  1244. ñ¿¡á¼¿τÑ߬¿   αáß»αÑñѽ∩Ѽ«⌐    «í½áßΓ∞ε    GraphFrÑÑîѼ   ¿
  1245. GraphGetîѼ. ÅÑαóá∩ ¿º ¡¿σ «ßó«í«ªñáÑΓ »á¼∩Γ∞,  αáß»αÑñѽѡ-
  1246. ¡πε ñ½∩ ñαá⌐óÑα«ó, á óΓ«αá∩ -  αáß»αÑñѽ∩ÑΓ »á¼∩Γ∞ ñ½∩ ñαá⌐-
  1247. óÑα«ó  úαáΣ¿τÑ߬¿σ  πßΓα«⌐ßΓó.  æΓá¡ñáαΓ¡δÑ  »α«úαá¼¼δ ¿¼ÑεΓ
  1248. ß½ÑñπεΘ¿⌐ ó¿ñ:
  1249.  
  1250.   procedure GraphGetMem(var P : Pointer; Size : word);
  1251.   { óδñѽ¿Γ∞ »á¼∩Γ∞ ñ½∩ ñαá⌐óÑα«ó úαáΣ¿τÑ߬¿σ πßΓα«⌐ßΓó }
  1252.   procedure GraphFreeMem(var P : Pointer; Size : word);
  1253.   { «ßó«í«ñ¿Γ∞ »á¼∩Γ∞ ñ½∩ ñαá⌐óÑα«ó úαáΣ¿τÑ߬¿σ πßΓα«⌐ßΓó }
  1254.  
  1255.      é ¼«ñπ½Ñ Graph ¿¼ÑεΓß∩ ñóá π¬áºáΓѽ∩, ¬«Γ«αδÑ »« π¼«½-
  1256. τá¡¿ε π¬áºδóáεΓ ¡á ñóÑ «»¿ßá¡¡δÑ ºñÑß∞ ßΓá¡ñáαΓ¡δÑ »α«úαá¼-
  1257. ¼δ. ¥Γ¿ π¬áºáΓѽ∞ «»αÑñѽ∩εΓß∩ ß½ÑñπεΘ¿¼ «íαẫ¼:
  1258.  
  1259.   var
  1260.     GraphGetMemPtr  : pointer;
  1261.     { π¬áºáΓѽ∞ ¡á »α«úαá¼¼π αáß»αÑñѽѡ¿∩ »á¼∩Γ¿ }
  1262.     GraphFreeMemPtr : pointer;
  1263.     { π¬áºáΓѽ∞ ¡á »α«úαá¼¼π «ßó«í«ªñÑ¡¿∩ »á¼∩Γ¿ }
  1264.  
  1265.      é« óαѼ∩ ¿¡¿µ¿á½¿ºáµ¿¿ ¼«ñπ½∩ Graph  φΓ¿ π¬áºáΓѽ¿ ßßδ-
  1266. ½áεΓß∩  ¡á  ßΓá¡ñáαΓ¡δÑ  úαáΣ¿τÑ߬¿Ñ  »α«úαá¼¼δ  αáß»αÑñѽÑ-
  1267. ¡¿∩-«ßó«í«ªñÑ¡¿∩,  ¬«Γ«αδÑ  «»αÑñѽ∩εΓß∩ ó ßѬµ¿¿ αÑ὿ºáµ¿¿
  1268. ¼«ñπ½∩ Graph.  ùΓ«íδ  ºáñáΓ∞ óáΦÑ ß«íßΓóÑ¡¡«Ñ π»αáó½Ñ¡¿Ñ »á-
  1269. ¼∩Γ∞ε, ó ¼«ñπ½Ñ Graph óδ ¼«ªÑΓÑ ¿º¼Ñ¡¿Γ∞ º¡áτÑ¡¿∩ φΓ¿σ  π¬á-
  1270. ºáΓѽÑ⌐ Γá¬, τΓ«íδ «¡¿ ßßδ½á½¿ß∞ ¡á óáΦ¿  ß«íßΓóÑ¡¡δÑ  »α«ú-
  1271. αá¼¼δ. Åα«úαá¼¼δ, ºáñá¡¡δÑ »«½∞º«óáΓѽѼ ñ«½ª¡δ ¿¼ÑΓ∞ Γ«Γ ªÑ
  1272. ß»¿ß«¬ »áαá¼ÑΓα«ó,  τΓ«  ¿  ßΓá¡ñáαΓ¡δÑ  »α«úαá¼¼δ, ¿ ñ«½ª¡δ
  1273. ¿¼ÑΓ∞ ñá½∞¡¿⌐ Γ¿»  ó맮óá.  Åα¿óÑñѼ  ñá½ÑÑ  »α¿¼Ñα ºáñá¡¡δσ
  1274. »«½∞º«óáΓѽѼ »α«úαá¼¼ αáß»αÑñѽѡ¿∩ ¿  «ßó«í«ªñÑ¡¿∩ »á¼∩Γ¿.
  1275. çá¼ÑΓ¿¼, τΓ« »α¿ ¿ß»«½∞º«óá¡¿¿ »α«µÑñπαδ àσit  áóΓ«¼áΓ¿τÑ߬¿
  1276. óδºδóáÑΓß∩ »α«µÑñπαá æloseGraph.
  1277.  
  1278.  program UserHeapManegement;
  1279.  { »α«úαἼᠻ«¬áºδóáÑΓ, ¬á¬ »«½∞º«óáΓѽ∞ ¼«ªÑΓ αáí«ΓáΓ∞ ß
  1280.    »α«úαἼἿ π»αáó½Ñ¡¿∩ ñ¿¡á¼¿τÑ߬¿ αáß»αÑñѽ∩Ѽ«⌐ «í½áß-
  1281.    Γ∞ε »á¼∩Γ¿, ¿ß»«½∞ºπÑ¼δ¼¿ ó ¼«ñπ½Ñ Graph }
  1282.  uses
  1283.     Graph;
  1284.  var
  1285.     GraphDriver, GraphMode : integer;
  1286.     ErrorCode              : integer; { ¿ß»«½∞ºπÑΓß∩ ñ½∩
  1287.               ß«σαá¡Ñ¡¿∩ ¬«ñá ó«ºóαáΓá Σπ¡¬µ¿¿ GraphResult }
  1288.  
  1289.     PreGraphExitProc       : pointer { ¿ß»«½∞ºπÑΓß∩ ñ½∩ ß«σ-
  1290.               αá¡Ñ¡¿∩ ¿ßσ«ñ¡«⌐ »α«µÑñπαδ óδσ«ñá }
  1291.  {$F+}      { »α«µÑñπαδ »«½∞º«óáΓѽ∩ ñ«½ª¡δ ¿ß»«½∞º«óáΓ∞
  1292.               ñá½∞¡¿⌐ Γ¿» «íαáΘÑ¡¿∩ }
  1293.   procedure MyGetMem(var P : Pointer; Size : word);
  1294.             { óδñѽ¿Γ∞ »á¼∩Γ∞ ñ½∩ ñαá⌐óÑα«ó úαáΣ¿τÑß-
  1295.               ¬¿σ πßΓα«⌐ßΓó }
  1296.   begin
  1297.     Write('üδ½á óδºóá¡á »α«µÑñπαá MyGetMem, ¡áª¼¿ΓÑ
  1298.            <RETURN>:');
  1299.     GetMem(P, Size);
  1300.   end; { MyGetMem }
  1301.  
  1302.   procedure MyFreeMem(ver P : Pointer; Size : word);
  1303.   { «ßó«í«ñ¿Γ∞ »á¼∩Γ∞, ºá¡∩Γπε ñαá⌐óÑαἿ úαáΣ¿τÑ߬¿σ
  1304.     πßΓα«⌐ßΓó }
  1305.   begin
  1306.     RestoreCRTMode;
  1307.     Write('üδ½á óδºóá¡á »α«µÑñπαá MyFreeMem, ¡áª¼¿ΓÑ
  1308.            <RETURN>:'); Readln;
  1309.     if P <> Nil Then { ¡Ñ «ßó«í«ªñáΓ∞ »πßΓδÑ π¬áºáΓѽ¿ }
  1310.     begin
  1311.       FreeMem(P, Size);
  1312.       P := Nil;
  1313.     end; { MyFreeMem }
  1314.  
  1315.  procedure MyExitProc;
  1316.  { »α«µÑñπαá óßÑúñá »«½πτáÑΓ ó맮ó »α¿ »αѬαáΘÑ¡¿¿ αáí«Γδ
  1317.    »α«úαá¼¼δ }
  1318.  begin
  1319.    ExitProc := PreGraphExitProc; { ó«ßßΓá¡«ó¿Γ∞ ¿ßσ«ñ¡πε
  1320.                                    »α«µÑñπαπ óδσ«ñá }
  1321.    CloseGraph;         { «τ¿ßΓ¿Γ∞ ñ¿¡á¼¿τÑ߬¿ αáß»αÑñѽ∩Ѽπε
  1322.  
  1323.                          «í½áßΓ∞ }
  1324.  end; { MyExitProc }
  1325.  
  1326.  { $F- }
  1327.  
  1328.  Begin
  1329.  { ¿¡¿µ¿á½¿º¿α«óáΓ∞ »α«úαá¼¼π «τ¿ßΓ¬¿ »á¼∩Γ¿ }
  1330.     PreGraphExitProc := ExitProc;
  1331.     ExitProc := @MyExitProc;
  1332.     GraphGetMemPtr := @MyGetMem ; { ºá¼Ñ¡¿Γ∞ αáß»αÑñѽѡ¿Ñ
  1333.                                     »á¼∩Γ¿ }
  1334.     GraphFreeMemPtr := @MyFreeMem ; { ºá¼Ñ¡¿Γ∞ «ßó«í«ªñÑ¡¿Ñ
  1335.                                     »á¼∩Γ¿ }
  1336.     GraphDriver := Detect;
  1337.     InitGraph(GraphDriver, GraphMode, '');
  1338.     ErrorCode := GraphResult;
  1339.     if ErrorCode <> grOk then
  1340.   begin
  1341.    Writeln('âαáΣ¿τÑ߬á∩ «Φ¿í¬á: ' GraphErrorMsg(ErrorCode);
  1342.    Readln;
  1343.    Halt(1);
  1344.   end;
  1345.   Line(0, 0, GetMaxX, GetMaxY);
  1346.   OutText(1, 1, 'ì᪼¿ΓÑ ¬½áó¿Φπ <RETURN>:');
  1347.   Readln;
  1348.  end. { UserHeapManegement }
  1349.  
  1350.              ê¡ΓÑαΣÑ⌐ß¡á∩ ßѬµ¿∩ ¼«ñπ½∩  Graph:
  1351.                 ¬«¡ßΓá¡Γδ, Γ¿»δ ¿ »ÑαѼѡ¡δÑ
  1352.  
  1353.      é ¼«ñπ½Ñ  Graph ¿¼ÑÑΓß∩ ¼¡«ú« »«½Ñº¡δσ «»¿ßá¡¿⌐ Γ¿»«ó ¿
  1354. ¬«¡ßΓá¡Γ.  ì¿ªÑ  »α¿ó«ñ¿Γß∩  τáßΓ∞ ¿¡ΓÑαΣÑ⌐ß¡«⌐ ßѬµ¿¿ Σá⌐½á
  1355. GRÇÉì.ÆÉU, ¡á »ÑαѼѡ¡δÑ ¬«Γ«α«⌐ óδ ¼«ªÑΓÑ ßßδ½áΓ∞ß∩.
  1356.  
  1357.                          è«¡ßΓá¡Γδ
  1358.  
  1359.      öπ¡¬µ¿Ñ⌐ GraphResult  ó«ºóαáΘáεΓß∩  ß½ÑñπεΘ¿Ñ  º¡áτÑ¡¿∩
  1360. ¬«ñ«ó «Φ¿í«¬:
  1361.  
  1362.  const
  1363.     { ¬«ñδ «Φ¿í«¬, ó«ºóαáΘáѼδÑ »α«µÑñπα«⌐ GraphResult }
  1364.    grOk                     =  0;
  1365.    grNoInitGraph            = -1;
  1366.    grNotDetected            = -2;
  1367.    grFileNotFound           = -3;
  1368.    grInvalidDriver          = -4;
  1369.    grNoLoadMem              = -5;
  1370.    grNoScanMem              = -6;
  1371.    grNoFloodMem             = -7;
  1372.    grFontNotFound           = -8;
  1373.    grNoFontMem              = -9;
  1374.    grInvalidMode            = -10;
  1375.    grError                  = -11;  { «íΘá∩ «Φ¿í¬á úαáΣ¿¬¿ }
  1376.    grIOError                = -12;
  1377.    grInvalidFont            = -13;
  1378.    grInvalidFontNum         = -14;
  1379.  
  1380.      æ½ÑñπεΘ¿Ñ ¬«¡ßΓá¡Γδ ñαá⌐óÑα«ó ¿ ¬«¡ßΓá¡Γδ αѪ¿¼«ó ¼«ª¡«
  1381. ¿ß»«½∞º«óáΓ∞ »α¿ αáí«ΓÑ ß »α«µÑñπαἿ InitGraph, DetectGraph
  1382. ¿ GetModeRange:
  1383.  
  1384.    { «»αÑñѽ¿Γ∞ úαáΣ¿τÑ߬¿Ñ ñαá⌐óÑαδ }
  1385.  const
  1386.    Detect          = 0; { ΓαÑíπÑΓß∩ áóΓ«¼áΓ¿τÑ߬«Ñ αáß»«º¡á-
  1387.                           óá¡¿Ñ }
  1388.    CGA             = 1;
  1389.    MCGA            = 2;
  1390.    EGA             = 3;
  1391.    EGA64           = 4;
  1392.    EGAMono         = 5;
  1393.    RESERVED        = 6; { ºáαѺÑαó¿α«óá¡« (¡Ñ ¿ß»«½∞ºπÑΓß∩) }
  1394.    HercMono        = 7;
  1395.    ATT400          = 8;
  1396.    VGA             = 9;
  1397.    PC3270          = 10;
  1398.  
  1399.    { úαáΣ¿τÑ߬¿Ñ αѪ¿¼δ ñ½∩ ¬áªñ«ú« ñαá⌐óÑαá }
  1400.    CGAC1        = 0; { 1 »á½¿Γαá µóÑΓ«ó 320σ200: ¬αáß¡δ⌐,
  1401.                        ªÑ½Γδ⌐, ºÑ½Ñ¡δ⌐; 1 ßΓαá¡¿µá }
  1402.    CGAC2        = 1; { 2 »á½¿Γαá µóÑΓ«ó 320σ200: ßóÑΓ½«-
  1403.                        í¿αóδ⌐, ¼á½¿¡«óδ⌐, íѽδ⌐; 1
  1404.                        ßΓαá¡¿µá }
  1405.    CGAHi        = 2; { 640σ200, 1 ßΓαá¡¿µá }
  1406.    MCGAC1       = 0  { 1 »á½¿Γαá µóÑΓ«ó 320σ200: ¬αáß¡δ⌐,
  1407.                        ªÑ½Γδ⌐, ºÑ½Ñ¡δ⌐; 1 ßΓαá¡¿µá }
  1408.    MCGAC2       = 1; { 2 »á½¿Γαá µóÑΓ«ó 320σ200: ßóÑΓ½«-
  1409.                        í¿αóδ⌐, ¼á½¿¡«óδ⌐, íѽδ⌐; 1
  1410.                        ßΓαá¡¿µá }
  1411.    MCGAMed      = 2; { 640σ200, 1 ßΓαá¡¿µá }
  1412.    MCGAHi       = 3; { 640σ480, 2 µóÑΓá, 1 ßΓαá¡¿µá }
  1413.    EGALo        = 0; { 640σ200, 4 ßΓαá¡¿µδ }
  1414.    EGAHi        = 1; { 640σ350, 16 µóÑΓ«ó, 2 ßΓαá¡¿µδ }
  1415.    EGA64Lo      = 0; { 640σ200, 16 µóÑΓ«ó, 1 ßΓαá¡¿µá }
  1416.    EGA64Hi      = 1; { 640σ350, 4 µóÑΓá, 1 ßΓαá¡¿µá }
  1417.    EGA64MonoHi  = 3; { 640σ350, 64è ¡á »½áΓπ, 1 ßΓαá¡¿µá -
  1418.                        256è ¡á »½ºΓπ, 4 ßΓαá¡¿µδ }
  1419.    HercMonoHi   = 0; { 720σ348, 2 ßΓαá¡¿µδ }
  1420.    ATT400C1     = 0; { 1 »á½¿Γαá µóÑΓ«ó 320σ200: ¬αáß¡δ⌐,
  1421.                        ªÑ½Γδ⌐, ºÑ½Ñ¡δ⌐; 1 ßΓαá¡¿µá }
  1422.    ATT400C2     = 1; { 2 »á½¿Γαá µóÑΓ«ó 320σ200: ßóÑΓ½«-
  1423.                        í¿αóδ⌐, ¼á½¿¡«óδ⌐, íѽδ⌐; 1
  1424.                        ßΓαá¡¿µá; 20 - 640σ200, 1 ßΓαá¡¿µá }
  1425.    ATT400C3     = 3; { 3 »á½¿Γαá µóÑΓ«ó 320σ200: ßóÑΓ½«-
  1426.                        í¿αóδ⌐, ¼á½¿¡«óδ⌐, íѽδ⌐; 1
  1427.                        ßΓαá¡¿µá; 20 - 640σ200, 1 ßΓαá¡¿µá }
  1428.    ATT400Med    = 4; { 640σ200, 1 ßΓαá¡¿µá }
  1429.    ATT400Hi     = 5; { 640σ200, 1 ßΓαá¡¿µá }
  1430.    VGALo        = 0; { 640σ200, 16 µóÑΓ«ó, 4 ßΓαá¡¿µδ }
  1431.    VGAMed       = 1; { 640σ350, 16 µóÑΓ«ó, 2 ßΓαá¡¿µδ }
  1432.    VGAHi        = 2; { 640σ480, 16 µóÑΓ«ó, 1 ßΓαá¡¿µá }
  1433.    VGANi2       = 3; { 640σ480, 2 µóÑΓá, 1 ßΓαá¡¿µá }
  1434.    PC3270Hi     = 0; { 720σ350, 1 ßΓαá¡¿µá }
  1435.    IBM8514LO    = 0; { 640σ480 Γ«τѬ, 256 µóÑΓ«ó }
  1436.    IBM8514HI    = 1; { 1024σ768 Γ«τѬ, 256 µóÑΓ«ó }
  1437.  
  1438.      æ½ÑñπεΘ¿Ñ ¬«¡ßΓá¡Γδ ¼«ª¡«  ¿ß»«½∞º«óáΓ∞  »α¿  αáí«ΓÑ  ß
  1439. »α«µÑñπαἿ SetPalette ¿ SetAllPalette:
  1440.  
  1441.  const
  1442.   { µóÑΓá ñ½∩ »α«µÑñπα SetÉálette ¿ SetÇllÉálette }
  1443.    Black          = 0;      { τÑα¡δ⌐ }
  1444.    Blue           = 1;      { ß¿¡¿⌐  }
  1445.    Green          = 2;      { ºÑ½Ñ¡δ⌐ }
  1446.    Cyan           = 3;      { í¿αóδ⌐ }
  1447.    Red            = 4;      { ¬αáß¡δ⌐ }
  1448.    Magenta        = 5;      { ¼á½¿¡«óδ⌐ }
  1449.    Brown          = 6;      { ¬«α¿τ¡Ñóδ⌐ }
  1450.    LightGray      = 7;      { ßóÑΓ½«-ßÑαδ⌐ }
  1451.    DarkGray       = 8;      { ΓѼ¡«-ßÑαδ⌐ }
  1452.    LightBlue      = 9;      { ßóÑΓ½«-ú«½πí«⌐ }
  1453.    LightGreen     = 10;     { ßóÑΓ½«-ºÑ½Ñ¡δ⌐ }
  1454.    LightCyan      = 11;     { ßóÑΓ½«-í¿αóδ⌐ }
  1455.    LightRed       = 12;     { ßóÑΓ½«-¬αáß¡δ⌐ }
  1456.    LightMagenta   = 13;     { ßóÑΓ½«-¼á½¿¡«óδ⌐ }
  1457.    Yellow         = 14;     { ªÑ½Γδ⌐ }
  1458.    White          = 15;     { íѽδ⌐ }
  1459.  
  1460.      æ½ÑñπεΘ¿Ñ ¬«¡ßΓá¡Γδ µóÑΓ«ó ¼«úπΓ ¿ß»«½∞º«óáΓ∞ß∩ ó  »α«-
  1461. µÑñπαÑ  SetGRBPalette  ñ½∩ óδí«αá ßΓá¡ñáαΓ¡δσ µóÑΓ«ó EGA »α¿
  1462. αáí«ΓÑ ß úαáΣ¿τÑ߬«⌐ »½áΓ«⌐ IBM 8514:
  1463.  
  1464.  const
  1465.   EGABlack          = 0;      { τÑα¡δ⌐ }
  1466.   EGABlue           = 1;      { ß¿¡¿⌐  }
  1467.   EGAGreen          = 2;      { ºÑ½Ñ¡δ⌐ }
  1468.   EGACyan           = 3;      { í¿αóδ⌐ }
  1469.   EGARed            = 4;      { ¬αáß¡δ⌐ }
  1470.   EGAMagenta        = 5;      { ¼á½¿¡«óδ⌐ }
  1471.   EGABrown          = 20;     { ¬«α¿τ¡Ñóδ⌐ }
  1472.   EGALightGray      = 7;      { ßóÑΓ½«-ßÑαδ⌐ }
  1473.   EGADarkGray       = 56      { ΓѼ¡«-ßÑαδ⌐ }
  1474.   EGALightBlue      = 57;     { ßóÑΓ½«-ú«½πí«⌐ }
  1475.   EGALightGreen     = 58;     { ßóÑΓ½«-ºÑ½Ñ¡δ⌐ }
  1476.   EGALightCyan      = 59;     { ßóÑΓ½«-í¿αóδ⌐ }
  1477.   EGALightRed       = 60;     { ßóÑΓ½«-¬αáß¡δ⌐ }
  1478.   EGALightMagenta   = 61;     { ßóÑΓ½«-¼á½¿¡«óδ⌐ }
  1479.   EGAYellow         = 62;     { ªÑ½Γδ⌐ }
  1480.   EGAWhite          = 63;     { íѽδ⌐ }
  1481.  
  1482.      Åα¿ αáí«ΓÑ ß »α«µÑñπαἿ  GetLineStyle  ¿  SetLineStyle
  1483. ¼«ª¡« ¿ß»«½∞º«óáΓ∞ ß½ÑñπεΘ¿Ñ ¬«¡ßΓá¡Γδ Γ¿»«ó ½¿¡¿⌐:
  1484.  
  1485.  const
  1486.   { Γ¿»δ ½¿¡¿⌐ ¿ ¿σ Γ«½Θ¿¡á ñ½∩ »α«µÑñπα Get ¿½¿
  1487.     SetLineStyle }
  1488.    SolidLn       = 0;       { ¡Ñ»αÑαδó¡á∩ ½¿¡¿∩ }
  1489.    DottedLn      = 1;       { ½¿¡¿∩, ß«ßΓ«∩Θá∩ ¿º Γ«τѬ }
  1490.    CenterLn      = 2;       { µÑ¡Γα¿α«óá¡¡á∩ ½¿¡¿∩ }
  1491.    DashedLn      = 3;       { »π¡¬Γ¿α¡á∩ ½¿¡¿∩ }
  1492.    UserBitLn     = 4;       { Γ¿» ½¿¡¿¿, ºáñá¡¡δ⌐ »«½∞º«óá-
  1493.                               ΓѽѼ }
  1494.    NormWidth     = 1;       { «íδτ¡á∩ Γ«½Θ¿¡á }
  1495.    ThickWidth    = 3;       { ª¿α¡á∩ ½¿¡¿∩ }
  1496.  
  1497.      Åα¿ αáí«ΓÑ ß »α«µÑñπαἿ  SetTextStyle  ¿  GetTextStyle
  1498. ¼«ª¡« ¿ß»«½∞º«óáΓ∞ ß½ÑñπεΘ¿Ñ ¬«¡ßΓá¡Γδ π»αáó½Ñ¡¿∩ Φα¿ΣΓ«¼:
  1499.  
  1500.  const
  1501.   { ¬«¡ßΓá¡Γδ ñ½∩ »α«µÑñπα Set/GetTextStyle }
  1502.    DefaultFont  = 0;        { Φα¿ΣΓ ß »«í¿Γ«óδ¼ «Γ«íαáªÑ¡¿Ñ¼
  1503.                               8σ8 }
  1504.    TriplexFont  = 1;        { "ΦΓα¿σ«ó«⌐" Φα¿ΣΓ }
  1505.    SmallFont    = 2;        { ¼Ñ½¬¿⌐ Φα¿ΣΓ }
  1506.    SanScrifFont = 3;
  1507.    GothicFont   = 4;
  1508.  
  1509.    HorizDir       = 0;      { ¡á»αáó½Ñ¡¿Ñ ß½Ñóá-¡á»αáó« }
  1510.    VertDir        = 1;      { ß¡¿ºπ-óóÑασ }
  1511.    NormSize       = 1;      { Γ¿»«ó«⌐ αẼÑα }
  1512.  
  1513.      ä½∩ π»αáó½Ñ¡¿∩ «ΓßÑτÑ¡¿Ñ¼ ¿º«íαáªÑ¡¿∩ »α¿ αáí«ΓÑ ß »α«-
  1514. µÑñπα«⌐ SetViewPort ¿ß»«½∞ºπ⌐ΓÑ ß½ÑñπεΘ¿Ñ ¬«¡ßΓá¡Γδ. Åα¿ πß-
  1515. Γá¡«ó½Ñ¡¡«¼ «ΓßÑτÑ¡¿¿ ¿º«íαáªÑ¡¿∩ «¡«  íπñÑΓ  «íαѺáΓ∞ß∩  ¡á
  1516. úαá¡¿µáσ «í½áßΓ¿ »α«ß¼«Γαá:
  1517.  
  1518.  const
  1519.   { ¬«¡ßΓá¡Γδ «ΓßÑτÑ¡¿∩ }
  1520.    ClipOn  =  true;
  1521.    ClipOff =  false;
  1522.  
  1523.      æ½ÑñπεΘ¿Ñ ¬«¡ßΓá¡Γδ ¼«ª¡«  ¿ß»«½∞º«óáΓ∞  »α¿  αáí«ΓÑ  ß
  1524. »α«µÑñπα«⌐  Bar3D. Ä¡¿ ºáñáεΓ, íπñÑΓ ½¿ ß½ÑñπεΘ¿⌐ »áαώѽÑ-
  1525. »¿»Ññ αáß»«½áúáΓ∞ß∩ ¡á óÑαΦ¿¡Ñ  »αÑñδñπΘÑú«  (Γᬿ¼  «íαẫ¼
  1526. ßΓ«½íѵ íπñÑΓ ¡áαáΘ¿óáΓ∞ß∩):
  1527.  
  1528.  const
  1529.   { ¬«¡ßΓá¡Γδ Bar3D }
  1530.    TopOn   = true;
  1531.    TopOff  = false;
  1532.  
  1533.      æ½ÑñπεΘ¿Ñ ¬«¡ßΓá¡Γδ «íαẵ«ó ºá»«½¡¿ΓѽÑ⌐  ¿ß»«½∞ºπεΓß∩
  1534. »α«µÑñπαἿ GetFillSettings ¿ SetFillStyle. ùΓ«íδ «»αÑñѽ¿Γ∞
  1535. óáΦ ß«íßΓóÑ¡¡δ⌐ «íαáºÑµ ºá»«½¡¿Γѽ∩ (UserFill),  ¿ß»«½∞ºπ⌐ΓÑ
  1536. »α«µÑñπαπ   SetFillPattern,   á   ºáΓѼ  ó맮ó¿ΓÑ  »α«µÑñπαπ
  1537. SetFillStyle. ìá»α¿¼Ñα:
  1538.  
  1539.      SetFillStyle(UserFill, SomeColor)
  1540.  
  1541.  const
  1542.   { «íαáºµδ ºá»«½¡¿ΓѽÑ⌐ ñ½∩ »α«µÑñπα Get/SetFill/Style }
  1543.    EmptyFill     = 0;   { ºá»«½¡¿Γ∞ «í½áßΓ∞ Σ«¡«óδ¼ µóÑΓ«¼ }
  1544.    SolidFill     = 1;   { ¡Ñ»αÑαδó¡«Ñ ºá»«½¡Ñ¡¿Ñ «í½áßΓ  ºá-
  1545.                           ñá¡¡δ¼ µóÑΓ«¼ }
  1546.    LineFill      = 2;   { ºá»«½¡¿Γ∞ --- }
  1547.    LtSlashFill   = 3;   { ºá»«½¡¿Γ∞ /// }
  1548.    SlashFill     = 4;   { ºá»«½¡¿Γ∞ ª¿α¡δ¼¿ ½¿¡¿∩¼¿ ///}
  1549.    BkSlashFill   = 5;   { ºá»«½¡¿Γ∞ \\\ (ª¿α¡δ¼¿ ½¿¡¿∩¼¿) }
  1550.    LtBkSlashFill = 6;   { ºá»«½¡¿Γ∞ \\\ }
  1551.    HatchFill     = 7;   { ºá»«½¡¿Γ∞ αÑñ¬«⌐ ΦΓα¿σ«ó¬«⌐ }
  1552.    XHatchFill    = 8;   { ºá»«½¡¿Γ∞ τáßΓ«⌐ »ÑαÑßѬáεΘÑ⌐ß∩
  1553.                           ΦΓα¿σ«ó¬«⌐ }
  1554.    InterLeaveFill = 9;  { ºá»«½¡¿Γ∞ »αÑαδó¿ßΓ«⌐ ½¿¡¿Ñ⌐ }
  1555.    WideDotFill   = 10;  { ºá»«½¡¿Γ∞ αÑñ¬¿¼¿ Γ«τ¬á¼¿ }
  1556.    CloseDotFill  = 11;  { ºá»«½¡¿Γ∞ τáßΓ묨 Γ«τ¬á¼¿ }
  1557.  
  1558.      æ½ÑñπεΘ¿Ñ «»Ñαᵿ¿ ¿ß»«½∞ºπεΓß∩ »α¿ αáí«ΓÑ ß »α«µÑñπαá-
  1559. ¼¿ PutImage ¿ SetWriteMode:
  1560.  
  1561.  const
  1562.     CopyPut         = 0;            { MOV }
  1563.     XORPut          = 1;            { XOR }
  1564.  
  1565.      æñÑñπεΘ¿Ñ «»Ñαᵿ¿ ¿ß»«½∞ºπεΓß∩  Γ«½∞¬«  »α¿  αáí«ΓÑ  ß
  1566. »α«µÑñπα«⌐ PutImage:
  1567.  
  1568.  const
  1569.   { í¿Γ«óδÑ «»Ñαᵿ¿ ñ½∩ »α«µÑñπαδ PutImage }
  1570.    OrPut      = 2;  { OR }
  1571.    AndPut     = 3;  { AND }
  1572.    NotPut     = 4;  { NOT }
  1573.  
  1574.      ä½∩ «»αÑñѽѡ¿∩ ºá»¿ß¿ PaletteType ¿ »α¿ αáí«ΓÑ ß  »α«-
  1575. µÑñπαἿ  GetPalette,  GetDefaultPAlette,  SetAllPalette ¿ß-
  1576. »«½∞ºπÑΓß∩ ß½ÑñπεΘá∩ ¬«¡ßΓá¡Γá:
  1577.  
  1578.  const
  1579.     MaxColors  = 15;
  1580.  
  1581.      ä½∩ ú«α¿º«¡Γá½∞¡«ú« ¿ óÑαΓ¿¬á½∞¡«ú« óδαáó¡¿óá¡¿∩ ΓѬßΓá
  1582. »α¿  αáí«ΓÑ ß »α«µÑñπα«⌐ SetTextJustify ¿ß»«½∞ºπεΓß∩ ß½Ññπε-
  1583. Θ¿Ñ ¬«¡ßΓá¡Γδ:
  1584.  
  1585.  const
  1586.   { ú«α¿º«¡Γá½∞¡«Ñ ¿ óÑαΓ¿¬á½∞¡«Ñ óδαáó¡¿óá¡¿Ñ ñ½∩  »α«µÑñπ-
  1587. αδ SetÆÑσtJustify }
  1588.   CenterText = 1;  { µÑ¡Γα¿α«óá¡¿Ñ ΓѬßΓá }
  1589.   LeftText   = 0;  { óδαáó¡¿óá¡¿Ñ »« ½Ñó«¼π ¬αáε }
  1590.   RightText  = 2;  { óδαáó¡¿óá¡¿Ñ »« »αáó«¼π ¬αáε }
  1591.   BottomText = 0;  { »ÑαѼÑΘÑ¡¿Ñ ΓѬßΓá ó ¡¿ª¡εε τáßΓ∞ φ¬αá-
  1592.                      ¡á }
  1593.   TopText    = 2;  { »ÑαѼÑΘÑ¡¿Ñ ΓѬßΓá ó óÑασ¡εε τáßΓ∞  φ¬-
  1594.                      αá¡á }
  1595.  
  1596.                             Æ¿»δ
  1597.  
  1598.      æ½ÑñπεΘá∩ ºá»¿ß∞ ¿ß»«½∞ºπÑΓß∩ ó »α«µÑñπαáσ  GetPalette,
  1599. GetDefaultPalette ¿ SetAllPalette:
  1600.  
  1601.  type
  1602.    PaletteType = record;
  1603.        Size   : byte;
  1604.        Colors : array[0..MaxColors] of shortint;
  1605.    end;
  1606.  
  1607.      äá¡¡á∩ ºá»¿ß∞ ¿ß»«½∞ºπÑΓß∩ »α«µÑñπα«⌐ GetLineSettings:
  1608.  
  1609.  type
  1610.    LineSettingType = record
  1611.        LineStyle   : word;
  1612.        Pattern     : word;
  1613.        Thickness   : word;
  1614.  
  1615.      æ½ÑñπεΘá∩      ºá»¿ß∞      ¿ß»«½∞ºπÑΓß∩      »α«µÑñπα«⌐
  1616. GetTextSettings:
  1617.  
  1618.  type
  1619.    TextSettingsType = record;
  1620.        Font       : word;
  1621.        Direction  : word;
  1622.        CharSize   : CharSizeType;
  1623.        Horiz      : word;
  1624.        Vert       : word;
  1625.    end;
  1626.  
  1627.      æ½ÑñπεΘá∩      ºá»¿ß∞      ¿ß»«½∞ºπÑΓß∩      »α«µÑñπα«⌐
  1628. GetFillSettings:
  1629.  
  1630.  type
  1631.    FillSettingsType = record;
  1632.        Pattern    : word;
  1633.        Color      : word;
  1634.    end;
  1635.  
  1636.      æ½ÑñπεΘá∩     ºá»¿ß∞      ¿ß»«½∞ºπÑΓß∩      »α«µÑñπαἿ
  1637. GetFillPattern ¿ SetFillPattern:
  1638.  
  1639.  type
  1640.    FillPatternType = array[1..8] of byte; { Γ¿» ºá»«½¡¿Γѽ∩,
  1641.                                 «»αÑñѽ∩Ѽδ⌐ »«½∞º«óáΓѽѼ }
  1642.  
  1643.      ¥Γ«Γ Γ¿» óóÑñÑ¡ ñ½∩ óáΦÑú« πñ«íßΓóá. ÄíαáΓ¿ΓѠ󡿼᡿Ñ,
  1644. τΓ« »«½∩ ºá»¿ß¿ ¿¼ÑεΓ Γ¿» integer, á ¡Ñ word:
  1645.  
  1646.  type
  1647.    PointType = record
  1648.       X, Y : integer;
  1649.     end;
  1650.  
  1651.      æ½ÑñπεΘá∩      ºá»¿ß∞      ¿ß»«½∞ºπÑΓß∩      »α«µÑñπα«⌐
  1652. GetViewSettings  ñ½∩  ß««íΘÑ¡¿¿  « ß«ßΓ«∩¡¿¿ ΓѬπΘÑ⌐ «í½áßΓ¿
  1653. »α«ß¼«Γαá:
  1654.  
  1655.  type
  1656.    ViewPotrType = record
  1657.       x1, y1, x2, y2 : word;
  1658.       Clip           : boolean;
  1659.     end;
  1660.  
  1661.      æ½ÑñπεΘá∩ ºá»¿ß∞ ¿ß»«½∞ºπÑΓß∩ »α«µÑñπα«⌐ GetArcCoords ¿
  1662. ¼«ªÑΓ ß½πª¿Γ∞ ñ½∩ »«½πτÑ¡¿∩ ¿¡Σ«α¼áµ¿¿ « »«ß½Ññ¡Ñ¼ «íαáΘÑ¡¿¿
  1663. ¬ »α«µÑñπαá¼ Arc ¿½¿ Ellipse:
  1664.  
  1665.  type
  1666.    ArcCoordsType = record
  1667.       X, Y : integer;
  1668.       Xstart, Ystart, Xend, Yend : integer;
  1669.     end;
  1670.  
  1671.                          ÅÑαѼѡ¡δÑ
  1672.  
  1673.       äá¡¡δÑ »ÑαѼѡ¡δÑ »Ñαó«¡áτá½∞¡« π¬áºδóáεΓ ¡á »α«úαá¼¼δ
  1674. π»αáó½Ñ¡¿∩ ñ¿¡á¼¿τÑ߬¿ αáß»αÑñѽ∩Ѽ«⌐ «í½áßΓ∞ε »á¼∩Γ¿ ¼«ñπ½∩
  1675. Graph. àß½¿ óáΦá »α«úαἼᠿ߻«½∞ºπÑΓ  ß«íßΓóÑ¡¡δÑ  ßαÑñßΓóá
  1676. π»αáó½Ñ¡¿∩  ñ¿¡á¼¿τÑ߬¿  αáß»αÑñѽ∩Ѽ«⌐  «í½áßΓ∞ε, »α¿ßó«⌐ΓÑ
  1677. áñαÑßá óáΦ¿σ »α«úαá¼¼ óáΦ¿σ »α«µÑñπα óδñѽѡ¿∩ ¿  «ßó«í«ªñÑ-
  1678. ¡¿∩  »á¼∩Γ¿  ß««ΓóÑΓßΓóÑ¡¡« »ÑαѼѡ¡δ¼ GraphGetMemPtr ¿ Gra-
  1679. phFreeMemPtr:
  1680.  
  1681.    GraphGetMemPtr : Pointer { »«ºó«½∩ÑΓ »«½∞º«óáΓѽ∩¼  ºá¼Ñ-
  1682.                               ¡¿Γ∞ αáß»αÑñѽѡ¿Ñ  ñ¿¡á¼¿τÑß-
  1683.                               ¬«⌐ «í½áßΓ¿ }
  1684.    GraphFreeMemPrt : Pointer { »«ºó«½∩ÑΓ »«½∞º«óáΓѽ∩¼ ºá¼Ñ-
  1685.                                ¡¿Γ∞ αáß»αÑñѽѡ¿Ñ ñ¿¡á¼¿τÑß-
  1686.                                ¬«⌐ «í½áßΓ¿ }
  1687.  
  1688.                     Åα«µÑñπαδ ¿ Σπ¡¬µ¿¿
  1689.  
  1690. ------------------------------------------------------------
  1691.      Åα«µÑñπαá Çrß - α¿ßπÑΓ ñπúπ  «¬απª¡«ßΓ¿  «Γ  ¡áτá½∞¡«ú«
  1692. πú½á ñ« ¬«¡Ñτ¡«ú« πú½á; Γ«τ¬á  (x,y) íÑαÑΓß∩ ó ¬áτÑßΓóÑ µÑ¡-
  1693. Γαá «¬απª¡«ßΓ¿.
  1694.      Åα«µÑñπαá éár - α¿ßπÑΓ  ßΓ«½íѵ,  ¿ß»«½∞ºπ∩ ΓѬπΘ¿⌐ Γ¿»
  1695. ºá¬αá߬¿.
  1696.      Åα«µÑñπαá éár3D - α¿ßπÑΓ  ΓαÑσ¼Ñα¡δ⌐ ßΓ«½íѵ, ¿ß»«½∞ºπ∩
  1697. ΓѬπΘ¿⌐ Γ¿» ºá¬αá߬¿.
  1698.      Åα«µÑñπαá æirclÑ - α¿ßπÑΓ  «¬απª¡«ßΓ∞ ß µÑ¡Γα«¼ ó Γ«τ¬Ñ
  1699. (x,y).
  1700.      Åα«µÑñπαá ælearDevißÑ -  ßíαáßδóáÑΓ  ΓѬπΘ¿Ñ »áαá¼ÑΓαδ,
  1701. πßΓá¡«ó½Ñ¡¡δÑ  ñ½∩  πßΓα«⌐ßΓóá  óδó«ñá, ¿ »«ñú«Γáó½¿óáÑΓ Ñú«
  1702. ñ½∩ óδó«ñá.
  1703.      Åα«µÑñπαá ClearViewPort - «τ¿ΘáÑΓ ΓѬπΘπε «í½áßΓ∞ »α«ß-
  1704. ¼«Γαá («¬¡« φ¬αá¡á).
  1705.      Åα«µÑñπαá CloseGraph -  óδ»«½¡∩ÑΓ  «ßΓá¡«ó  úαáΣ¿τÑ߬«⌐
  1706. ß¿ßΓѼδ.
  1707.      Åα«µÑñπαá DetectGraph - αáß»«º¡áÑΓ á»»áαáΓπαπ ¿ «»αÑñÑ-
  1708. ½∩ÑΓ, ¬á¬«⌐ úαáΣ¿τÑ߬¿⌐ ñαá⌐óÑα ¿ αѪ¿¼ ¡πª¡« ¿ß»«½∞º«óáΓ∞.
  1709.      Åα«µÑñπαá DrawPoly -  α¿ßπÑΓ  ¼¡«ú«πú«½∞¡¿¬,  ¿ß»«½∞ºπ∩
  1710. ΓѬπΘ¿⌐ Γ¿» ½¿¡¿¿ ¿ µóÑΓ.
  1711.      Åα«µÑñπαá àllipse - α¿ßπÑΓ  φ½½¿»Γ¿τÑ߬πε  ñπúπ  «Γ ¡á-
  1712. τá½∞¡«ú« πú½á ñ« ¬«¡Ñτ¡«ú« πú½á, ¿ß»«½∞ºπε (ò,Y), ¬á¬  Γ«τ¬π
  1713. µÑ¡Γαá.
  1714.      Åα«µÑñπαá FillPoly - ºá¬αáΦ¿óáÑΓ ¼¡«ú«πú«½∞¡¿¬, ¿ß»«½∞-
  1715. ºπ∩ »αÑ«íαẫóáΓѽ∞ αáºóÑαΓ¬¿.
  1716.      Åα«µÑñπαá FloodFill - ºá¬αáΦ¿óáÑΓ «úαá¡¿τÑ¡¡πε «í½áßΓ∞,
  1717. ¿ß»«½∞ºπ∩ ΓѬπΘ¿⌐ «íαáºÑµ ºá¬αá߬¿.
  1718.      Åα«µÑñπαá GetArcCoods - »«ºó«½∩ÑΓ »«½∞º«óáΓÑ½ε ºá»αáΦ¿-
  1719. óáΓ∞ ¬««αñ¿¡áΓδ »«ß½Ññ¡Ñ⌐ ¬«¼á¡ñδ Çrß.
  1720.      Åα«µÑñπαá GetAspectRatio - ó«ºóαáΘáÑΓ  ñÑ⌐ßΓóπεΘÑÑ αáº-
  1721. αÑΦÑ¡¿Ñ úαáΣ¿τÑ߬«ú« φ¬αá¡á, ¡á  «ß¡«óÑ  ¬«Γ«α«ú« ¼«ªÑΓ íδΓ∞
  1722. óδτ¿ß½Ñ¡ ¬«φΣΣ¿µ¿Ñ¡Γ «Γ¡«ß¿Γѽ∞¡«ú« πñ½¿¡¡Ñ¡¿∩ (òásα,Yásα).
  1723.      öπ¡¬µ¿∩ Getékæ«lor - ó«ºóαáΘáÑΓ ΓѬπΘ¿⌐ Σ«¡«óδ⌐ µóÑΓ.
  1724.      öπ¡¬µ¿∩ Getæ«lor - ó«ºóαáΘáÑΓ ΓѬπΘ¿⌐ µóÑΓ α¿ßπ¡¬á.
  1725.      Åα«µÑñπαá GetDefaultPalette - ó ºá»¿ß¿ Γ¿»á PaletteType
  1726. ó«ºóαáΘáÑΓ ¿ß»«½∞ºπѼπε »« π¼«½τá¡¿ε »á½¿Γαπ.
  1727.      öπ¡¬µ¿∩ GerDriverName - ó«ºóαáΘáÑΓ  ßΓ᫬π,  ß«ñÑαªáΘπε
  1728. ¿¼∩ ΓѬπΘÑú« ñαá⌐óÑαá.
  1729.      Åα«µÑñπαá GetFillPattern - ó«ºóαáΘáÑΓ »«ß½Ññ¡¿⌐ «íαáºÑµ
  1730. ºá»«½¡¿Γѽ∩,  πßΓá¡«ó½Ñ¡¡δ⌐  ß »«¼«Θ∞ε «íαáΘÑ¡¿∩ ¬ »α«µÑñπαÑ
  1731. SetFillPattern.
  1732.      Åα«µÑñπαá GetFillSetting - »«ºó«½∩ÑΓ  »«½∞º«óáΓÑ½ε  óδ-
  1733. »«½¡¿Γ∞ ºá»α«ß « ΓѬπΘѼ «íαẵѠ¿ µóÑΓÑ  ºá¬αá߬¿, πßΓá¡«ó-
  1734. ½Ñ¡¡δ¼¿ ß »«¼«Θ∞ε »α«µÑñπα SetFillStyle ¿ SetFillPattern.
  1735.      öπ¡¬µ¿∩ GetGraphMode - ó«ºóαáΘáÑΓ  ΓѬπΘ¿⌐  úαáΣ¿τÑ߬¿⌐
  1736. αѪ¿¼.
  1737.      Åα«µÑñπαá GetImage - ß«σαá¡∩ÑΓ ñó«¿τ¡δ⌐  «íαẠºáñá¡¡«⌐
  1738. «í½áßΓ¿ ó íπΣÑαÑ.
  1739.      Åα«µÑñπαá GetLineSettings - ó«ºóαáΘáÑΓ  ΓѬπΘ¿⌐ Γ¿» ½¿-
  1740. ¡¿¿, «íαáºÑµ  ½¿¡¿¿ ¿  Γ«½Θ¿¡π  ½¿¡¿¿,  ºáñá¡¡δÑ  »α«µÑñπα«⌐
  1741. SetLineStyle.
  1742.      öπ¡¬µ¿∩ GetMaxColor - ó«ºóαáΘáÑΓ ¼á¬ß¿¼á½∞¡«Ñ  º¡áτÑ¡¿Ñ
  1743. µóÑΓá, ¬«Γ«α«Ñ ¼«ª¡« »ÑαÑñáΓ∞ »α«µÑñπαÑ SetColor.
  1744.      öπ¡¬µ¿∩ GetMAxMode - ó«ºóαáΘáÑΓ ¼á¬ß¿¼á½∞¡δ⌐ ¡«¼Ñα  αÑ-
  1745. ª¿¼á ñ½∩ ΓѬπΘÑú« ºáúαπªÑ¡¡«ú« ñαá⌐óÑαá.
  1746.      öπ¡¬µ¿∩  Getîáσò -  ó«ºóαáΘáÑΓ ñ½∩ ΓѬπΘÑú« úαáΣ¿τÑ߬«-
  1747. ú« ñαá⌐óÑαá ¿ αѪ¿¼á ßá¼πε »αáóπε ¬«½«¡¬π (αáºαÑΦÑ¡¿Ñ »« σ).
  1748.      öπ¡¬µ¿∩  GetîáσY -  ó«ºóαáΘáÑΓ ñ½∩ ΓѬπΘÑú« úαáΣ¿τÑ߬«-
  1749. ú« ñαá⌐óÑαá ¿ αѪ¿¼á ßá¼πε ¡¿ª¡εε ßΓ᫬π (αáºαÑΦÑ¡¿Ñ »« π).
  1750.      Åα«µÑñπαá GetPalette - ó«ºóαáΘáÑΓ ΓѬπΘπε »á½¿Γαπ ¿  ÑÑ
  1751. αẼÑα.
  1752.      öπ¡¬µ¿∩  GetPaletteSize  -  ó«ºóαáΘáÑΓ  αẼÑα  Γáí½¿µδ
  1753. »α«ß¼«Γαᠻ὿Γαδ.
  1754.      öπ¡¬µ¿∩ GetPixel - ó«ºóαáΘáÑΓ º¡áτÑ¡¿Ñ φ½Ñ¼Ñ¡Γá ¿º«íαá-
  1755. ªÑ¡¿∩ ó Γ«τ¬Ñ ò,Y.
  1756.      Åα«µÑñπαá GetÆÑσtSettings - ó«ºóαáΘáÑΓ ΓѬπΘ¿⌐  ΓѬßΓ«-
  1757. óδ⌐ Φα¿ΣΓ, ¡á»αáó½Ñ¡¿Ñ, αẼÑα ¿ óδαáó¡¿óá¡¿Ñ ñ½∩  ¡Ñú«, πß-
  1758. Γá¡«ó½Ñ¡¡δÑ ß »«¼«Θ∞ε »α«µÑñπα SetÆÑσtStyle ¿ SetÆÑσtJustify.
  1759.      Åα«µÑñπαá GetViewSettings - »«ºó«½∩ÑΓ  »«½∞º«óáΓѽε óδ-
  1760. ñáΓ∞ ºá»α«ß « ΓѬπΘÑ⌐ «í½áßΓ¿ ¿º«íαáªÑ¡¿∩ ¿ »áαá¼ÑΓαáσ «ΓßÑ-
  1761. τÑ¡¿∩ ¿º«íαáªÑ¡¿∩.
  1762.      öπ¡¬µ¿∩ Getò - ó«ºóαáΘáÑΓ ¬««αñ¿¡áΓπ ò  ΓѬπΘÑ⌐ »«º¿µ¿¿
  1763. (ΓѬπΘÑú« π¬áºáΓѽ∩).
  1764.      öπ¡¬µ¿∩ GetY - ó«ºóαáΘáÑΓ ¬««αñ¿¡áΓπ Y  ΓѬπΘÑ⌐ »«º¿µ¿¿
  1765. (ΓѬπΘÑú« π¬áºáΓѽ∩).
  1766.      öπ¡¬µ¿∩ GraphErrorMsg - ñ½∩ ºáñá¡¡«ú« ¬«ñá «Φ¿í¬¿ ó«ºó-
  1767. αáΘáÑΓ ßΓ᫬π ß««íΘÑ¡¿∩ «í «Φ¿í¬Ñ.
  1768.      öπ¡¬µ¿∩ GraphResult - ó«ºóαáΘáÑΓ ¬«ñ «Φ¿í¬¿ ñ½∩ »«ß½Ññ-
  1769. ¡Ñ⌐ úαáΣ¿τÑ߬«⌐ «»Ñαᵿ¿.
  1770.      öπ¡¬µ¿∩ ImageSize - ó«ºóαáΘáÑΓ  τ¿ß½«  íá⌐Γ«ó,  ¬«Γ«αδÑ
  1771. ΓαÑíπεΓß∩ ñ½∩ ß«σαá¡Ñ¡¿∩ »α∩¼«πú«½∞¡«⌐ «í½áßΓ¿ φ¬αá¡á.
  1772.      Åα«µÑñπαá InitGraph - ¿¡¿µ¿á½¿º¿απÑΓ úαáΣ¿τÑ߬πε ß¿ßΓÑ-
  1773. ¼π ¿ »ÑαÑó«ñ¿Γ á»»áαáΓπαπ ó úαáΣ¿τÑ߬¿⌐ αѪ¿¼.
  1774.      öπ¡¬µ¿∩ InstallUserDriver -  πßΓá¡áó½¿óáÑΓ  ñ«íáó½Ñ¡¡δ⌐
  1775. »«½∞º«óáΓѽѼ ñαá⌐óÑα ó Γáí½¿µÑ ñαá⌐óÑα«ó πßΓα«⌐ßΓó BGI.
  1776.      öπ¡¬µ¿∩  InstallUserFont  -  πßΓá¡áó½¿óáÑΓ  ¡«óδ⌐  Σá⌐½
  1777. Φα¿ΣΓá, ¡Ñ óßΓα«Ñ¡¡δ⌐ ó úαáΣ¿τÑ߬πε ß¿ßΓѼπ.
  1778.      Åα«µÑñπαá Line - α¿ßπÑΓ »α∩¼πε ½¿¡¿ε ¿º Γ«τ¬¿ (x1,y1) ó
  1779. (x2,y2).
  1780.      Åα«µÑñπαá LineRel -  α¿ßπÑΓ   »α∩¼πε  ½¿¡¿ε  ñ«  Γ«τ¬¿,
  1781. »αÑñßΓáó½∩εΘÑ⌐  ß«í«⌐  «Γ¡«ß¿Γѽ∞¡«Ñ  αáßßΓ«∩¡¿Ñ «Γ ΓѬπΘÑú«
  1782. π¬áºáΓѽ∩.
  1783.      Åα«µÑñπαá LinÑÆ« - α¿ßπÑΓ ½¿¡¿ε ¿º ΓѬπΘÑú« »«½«ªÑ¡¿∩ ó
  1784. Γ«τ¬π (x,y).
  1785.      Åα«µÑñπαá î«veRÑl -  »ÑαѼÑΘáÑΓ  ΓѬπΘ¿⌐  π¬áºáΓѽ∞  ¡á
  1786. αáßßΓ«∩¡¿Ñ, ∩ó½∩εΘÑÑß∩  «Γ¡«ß¿Γѽ∞¡δ¼ αáßßΓ«∩¡¿Ñ¼ «Γ ΓѬπΘÑ⌐
  1787. »«º¿µ¿¿.
  1788.      Åα«µÑñπαá î«vÑÆ« - »ÑαѼÑΘáÑΓ ΓѬπΘ¿⌐ π¬áºáΓѽ∞ ó Γ«τ¬π
  1789. (x,y).
  1790.      Åα«µÑñπαá ÄutÆÑσt - »«ßδ½δÑΓ ßΓ᫬π ¡á πßΓα«⌐ßΓó« óδó«-
  1791. ñá, ¡áτ¿¡á∩ ß ΓѬπΘÑú« π¬áºáΓѽ∩.
  1792.      Åα«µÑñπαá ÄutÆÑσtòY - »«ßδ½áÑΓ ßΓ᫬π ¡á πßΓα«⌐ßΓó« óδ-
  1793. ó«ñá.
  1794.      Åα«µÑñπαá ÉieSlice - α¿ßπÑΓ ßÑ¬Γ«α; Γ«τ¬á (ò,Y) ¿ß»«½∞-
  1795. ºπÑΓß∩ ó ¬áτÑßΓóÑ µÑ¡Γαá, á ßÑ¬Γ«α α¿ßπÑΓß∩ «Γ ¡áτá½∞¡«ú« ñ«
  1796. ¬«¡Ñτ¡«ú« πú½á.
  1797.      Åα«µÑñπαá ÉutImagÑ - óδó«ñ¿Γ ¡á φ¬αá¡ ñó«¿τ¡δ⌐ «íαáº.
  1798.      Åα«µÑñπαá ÉutÉiσÑl - ßΓα«¿Γ φ½Ñ¼Ñ¡Γ ¿º«íαáªÑ¡¿∩ ó Γ«τ¬Ñ
  1799. x,y.
  1800.      Åα«µÑñπαá RÑßtanglÑ - α¿ßπÑΓ  »α∩¼«πú«½∞¡¿¬,  ¿ß»«½∞ºπ∩
  1801. ΓѬπΘ¿⌐ Γ¿» ½¿¡¿¿ ¿ µóÑΓ.
  1802.      öπ¡¬µ¿∩  RegisterBGIDriver  -  αÑú¿ßΓα¿απÑΓ  ñ«»πßΓ¿¼δ⌐
  1803. ñαá⌐óÑα (Σ«α¼áΓá BGI) ó úαáΣ¿τÑ߬«⌐ ß¿ßΓѼÑ.
  1804.      öπ¡¬µ¿∩ RegisterBGIFont -  αÑú¿ßΓα¿απÑΓ  ó  úαáΣ¿τÑ߬«⌐
  1805. ß¿ßΓѼѠñ«»πßΓ¿¼δ⌐ (Σ«α¼áΓá BGI) Φα¿ΣΓ.
  1806.      Åα«µÑñπαá RÑstorÑæRÆ - ó«ßßΓá¡áó½¿óáÑΓ ñ½∩ ært ó¿ñÑ«αÑ-
  1807. ª¿¼, πßΓá¡«ó½Ñ¡¡δ⌐ »α¿ ºáúαπº¬Ñ.
  1808.      Åα«µÑñπαá RÑstoreæRÆî«dÑ - ó«ßßΓá¡áó½¿óáÑΓ ¿ßσ«ñ¡δ⌐ αÑ-
  1809. ª¿¼ φ¬αá¡á, ¬«Γ«αδ⌐ íδ½  πßΓá¡«ó½Ñ¡ »α¿ ¿¡¿µ¿á½¿ºáµ¿¿ úαáΣ¿-
  1810. ¬¿.
  1811.      Åα«µÑñπαá SetActivePage - πßΓá¡áó½¿óáÑΓ ñ½∩ úαáΣ¿τÑ߬«-
  1812. ú« óδó«ñá á¬Γ¿ó¡πε ßΓαá¡¿µπ.
  1813.      Åα«µÑñπαá SetAllPalette - ¿º¼Ñ¡∩ÑΓ óßÑ  µóÑΓá  »á½¿Γαδ,
  1814. ¬á¬ í佫 π¬áºá¡«.
  1815.      Åα«µÑñπαá SetAspectRatio - ¿º¼Ñ¡∩ÑΓ »α¿¡∩Γδ⌐ »« π¼«½τá-
  1816. ¡¿ε ¬«φΣΣ¿µ¿Ñ¡Γ «Γ¡«ß¿Γѽ∞¡«ú« πñ½¿¡¡Ñ¡¿∩.
  1817.      Åα«µÑñπαá Setékæ«lor - ¿ß»«½∞ºπ∩ »á½¿Γαπ, πßΓá¡áó½¿óáÑΓ
  1818. ΓѬπΘ¿⌐ Σ«¡«óδ⌐ µóÑΓ.
  1819.      Åα«µÑñπαá SetColor - ¿ß»«½∞ºπ∩  »á½¿Γαπ,  πßΓá¡áó½¿óáÑΓ
  1820. ΓѬπΘ¿⌐ µóÑΓ α¿ßπ¡¬á.
  1821.      Åα«µÑñπαá SetFillPattern - óδí¿αáÑΓ  «íαáºÑµ  ºá¬αá߬¿,
  1822. ºáñá¡¡δ⌐ »«½∞º«óáΓѽѼ.
  1823.      Åα«µÑñπαá SetFillStyle - πßΓá¡áó½¿óáÑΓ «íαáºÑµ ºá¬αá߬¿
  1824. ¿ ÑÑ µóÑΓ.
  1825.      Åα«µÑñπαá SetGraphBufSize - »«ºó«½∩ÑΓ  ¿º¼Ñ¡¿Γ∞  αẼÑα
  1826. íπΣÑαá, ¿ß»«½∞ºπѼ«ú« ñ½∩ «»α«ßá ¿ ºá¬αá߬¿.
  1827.      Åα«µÑñπαá SetGraphMode - »ÑαѬ½ετáÑΓ ß¿ßΓѼπ  ó  úαáΣ¿-
  1828. τÑ߬¿⌐ αѪ¿¼ ¿ «τ¿ΘáÑΓ φ¬αá¡.
  1829.      Åα«µÑñπαá SetLineStyle - πßΓá¡áó½¿óáÑΓ  ΓѬπΘ¿⌐ Γ¿» ½¿-
  1830. ¡¿¿ ¿ ÑÑ Φ¿α¿¡π.
  1831.      Åα«µÑñπαá SetPalette - ¿º¼Ñ¡∩ÑΓ «ñ¿¡ µóÑΓ  »á½¿Γαδ, ºá-
  1832. ñá¡¡δ⌐ »ÑαѼѡ¡δ¼¿ Colornum ¿ Color.
  1833.      Åα«µÑñπαá SetGRBPalette - »«ºó«½∩ÑΓ ¼«ñ¿Σ¿µ¿α«óáΓ∞  ºá-
  1834. »¿ß¿ »á½¿Γαδ ñ½∩ ñαá⌐óÑα«ó IBM-8514 ¿ VGA.
  1835.      Åα«µÑñπαá SetÆÑσtJustify -   ß   »«¼«Θ∞ε    ÄutÆÑxt   ¿
  1836. ÄutÆÑσΓòY πßΓá¡áó½¿óáÑΓ º¡áτÑ¡¿∩ ñ½∩ óδαáó¡¿óá¡¿∩ ΓѬßΓá.
  1837.      Åα«µÑñπαá SetÆÑσtStyle -   ºáñáÑΓ   ΓѬπΘ¿⌐   ΓѬßΓ«óδ⌐
  1838. Φα¿ΣΓ, Ñú« Γ¿» ¿ ¬«φΣΣ¿µ¿Ñ¡Γ αẼÑαá ß¿¼ó«½á.
  1839.      Åα«µÑñπαá SetUserCharSize - »«ºó«½∩ÑΓ óá¼ ñ½∩ ΦΓα¿σ«óδσ
  1840. Φα¿ΣΓ«ó ¿º¼Ñ¡¿Γ∞ óδß«Γπ ¿ Φ¿α¿¡π ß¿¼ó«½á.
  1841.      Åα«µÑñπαá SetViewPort - ñ½∩  úαáΣ¿τÑ߬«ú«  óδó«ñá πßΓá-
  1842. ¡áó½¿óáÑΓ ΓѬπΘπε «í½áßΓ∞ óδó«ñá ¿½¿ «¬¡«.
  1843.      Åα«µÑñπαá SetVisualPage - ºáñáÑΓ ó¿ºπá½∞¡δ⌐ ¡«¼Ñα ßΓαá-
  1844. ¡¿µδ úαáΣ¿¬¿.
  1845.      Åα«µÑñπαá SetWriteMode - πßΓá¡áó½¿óáÑΓ αѪ¿¼ óδó«ñá  ¡á
  1846. φ¬αá¡  (¬«»¿α«óá¡¿Ñ  ¿½¿  ß »«¼«Θ∞ε «»Ñαᵿ¿ XOR) ñ½∩ ½¿¡¿⌐,
  1847. óδτÑατ¿óáѼδσ »α«µÑñπαἿ DrawPoly, Line,  LineRel,  LineTo,
  1848. Rectangle.
  1849.      öπ¡¬µ¿∩ ÆÑσtìÑight - ó«ºóαáΘáÑΓ óδß«Γπ ßΓαá¡¿µ  ó  φ½Ñ-
  1850. ¼Ñ¡Γáσ ¿º«íαáªÑ¡¿∩.
  1851.      öπ¡¬µ¿∩ ÆÑσtWidth - ó«ºóαáΘáÑΓ Φ¿α¿¡π ßΓ᫬¿ ó  φ½Ñ¼Ñ¡-
  1852. Γáσ ¿º«íαáªÑ¡¿∩.
  1853. ------------------------------------------------------------
  1854.  
  1855.      Å«ñα«í¡«Ñ «»¿ßá¡¿Ñ ¬áªñ«⌐ »α«µÑñπαδ ¿  Σπ¡¬µ¿¿  ñá¡«  ó
  1856. â½áóÑ 16.
  1857.  
  1858.                        î«ñπ½∞ Æurbo3
  1859.  
  1860.      èáªñá∩ »α«úαá¼¼á ó φΓ«¼ ¼«ñπ½Ñ ∩ó½∩ÑΓß∩ »«óΓ«αÑ¡¿Ñ¼ ¿½¿
  1861. π½πτΦÑ¡¡δ¼ óáα¿á¡Γ«¼ »α«úαá¼¼ ¿º ñαπú¿σ ßΓá¡ñáαΓ¡δσ ¼«ñπ½Ñ⌐.
  1862. î«ñπ½∞ Æurbo3 »αÑñπß¼«ΓαÑ¡ Γ«½∞¬« ó µÑ½∩σ «íαáΓ¡«⌐ ß«ó¼ÑßΓ¿-
  1863. ¼«ßΓ¿.  æ  »«¼«Θ∞ε  ¼«ñπ½∩  Æurbo3 óδ ¼«ªÑΓÑ ñ«í¿Γ∞ß∩ ½πτΦÑ⌐
  1864. ß«ó¼ÑßΓ¿¼«ßΓ¿ ß  óÑαß¿Ñ⌐  3.0,  ¡« »«ΓÑα∩ÑΓÑ »α¿ φΓ«¼ »α∩¼«⌐
  1865. ñ«ßΓπ» ¬ óáª¡δ¼  ¡«óδ¼ ßαÑñßΓóá¼, ¬«Γ«αδÑ ñπí½¿απεΓß∩ ºñÑß∞.
  1866. (çá¼ÑΓ¿¼,   τΓ« óδ ¼«ªÑΓÑ ¿ß»«½∞º«óáΓ∞ φΓ¿ ßΓá¡ñáαΓ¡δÑ »α«ú-
  1867. αá¼¼δ ß  »«¼«Θ∞ε ñ«»«½¡¿Γѽ∞¡«ú« ß¿¡Γá¬ß¿ßá í½«¬á. Æá¬, ¡á»-
  1868. α¿¼Ñα,    îѼÇvail    ¼«ñπ½∩    Æurbo3    óδºδóáÑΓ   Σπ¡¬µ¿ε
  1869. SystΓѼ.îѼÇvail, ñáªÑ Ñß½¿ ó ßó«Ñ⌐ »α«úαἼѠóδ ¿ß»«½∞ºπÑΓÑ
  1870. ¼«ñπ½∞ Æurbo3. ü«½ÑÑ »«ñα«í¡« « Γ«¼, ¬á¬  ¿ß»«½∞º«óáΓ∞ »α«ú-
  1871. αá¼¼δ ß ΓѼ¿ ªÑ ¿¼Ñ¡á¼¿ ó  ñαπú¿σ  í½«¬áσ,  αáß߬áºδóáÑΓß∩ ó
  1872. â½áóÑ 4, ó αáºñѽѠ"î«ñπ½¿ ¿ ßó∩ºá¡¡δÑ ¿ ¡¿¼¿ Γ«¡¬«ßΓ¿".)
  1873.  
  1874.       Åα¿¼Ñτá¡¿Ñ: Ä»¿ßá¡¡δÑ ñá½ÑÑ  »α«úαá¼¼δ  ¡Ñ  «»¿ßá¡δ  ó
  1875.       ß»αáó«τ¡«¼ αáºñѽѠâ½áóδ 16.  ü«½ÑÑ »«ñα«í¡á∩ ¿¡Σ«α¼á-
  1876.       µ¿∩ « »α«úαá¼¼áσ ¼«ñπ½∩  Æurbo3 ß«ñÑনΓß∩ ó "æ»αáó«τ-
  1877.       ¡«¼ απ¬«ó«ñßΓóÑ »« Æπαí«-Åá߬á½ε, óÑαß¿∩ 3.0".
  1878.  
  1879.  
  1880.                     ê¡ΓÑαΣÑ⌐ß¡á∩ ßѬµ¿∩
  1881.  
  1882.      Åα¿óÑñѼ »α¿¼Ñα ¿¡ΓÑαΣÑ⌐ß¡«⌐ ßѬµ¿¿ ¼«ñπ½∩ Æurbo3:
  1883.  
  1884.    unit Turbo3;
  1885.    interface
  1886.    uses Crt;
  1887.    var
  1888.      Kbd: Text;
  1889.      Cbreak: Boolean absolute CheckBreak;
  1890.    function MemAvail: integer;
  1891.    function MaxAvail: integer;
  1892.    function LongFileSize(var F): real;
  1893.    function LongFIlePos(var F): real;
  1894.    procedure LongSeek(var F; Pos: real);
  1895.    procedure HighVideo;
  1896.    procedure NormVideo;
  1897.    procedure LowVideo;
  1898.    function IOResult : integer;
  1899.  
  1900.      èᬠ¼«ª¡« πó¿ñÑΓ∞, ó ¡Ñ⌐ «»¿ßδóáÑΓß∩ ñóÑ ú½«íá½∞¡δσ »Ñ-
  1901. αѼѡ¡δσ, τÑΓδαÑ »α«µÑñπαδ.
  1902.  
  1903.                         äαá⌐óÑα èbd
  1904.  
  1905.      ¥Γ«Γ ñαá⌐óÑα »αÑñπß¼«ΓαÑ¡ ñ½∩ »α«úαá¼¼ óÑαß¿¿ 3.0,  ¬«-
  1906. Γ«αδÑ    ßτ¿ΓδóáεΓ    ñá¡¡δÑ    ß    ¬½áó¿áΓπαδ   (¡á»α¿¼Ñα,
  1907. RÑád(èbd,æharVar)). çá¼ÑΓ¿¼, τΓ« ΓÑ»Ñα∞ φΓá Σπ¡¬µ¿∩ ó¬½ετÑ¡á
  1908. 󠼫ñπ½∞ ært ¿  ¡áºδóáÑΓß∩  RÑádèÑy.  Å«φΓ«¼π ÑÑ ß½ÑñπÑΓ ¿ß-
  1909. »«½∞º«óáΓ∞ ó¼ÑßΓ« RÑád(èbd,æharVar). äá½ÑÑ ß½ÑñπεΓ ñóÑ »α«ú-
  1910. αá¼¼δ, ¬«Γ«αδÑ ßτ¿ΓδóáεΓ ß¿¼ó«½  ß  ¬½áó¿áΓπαδ  ¿  ß««íΘáÑΓ,
  1911. íδ½á ½¿ ¡áªáΓá ¬½áó¿Φá ¿º  αáßΦ¿αÑ¡¡«ú« ¡áí«αá (F1,F2, ½Ñóá∩
  1912. ßΓαѽ¬á ¿ Γ.ñ.):
  1913.  
  1914.   program TestKbd;
  1915.   uses Crt, Turbo3;
  1916.   var
  1917.     c: char;
  1918.   begin
  1919.     Read(Kbd, c);
  1920.     if (c = #27) and KeyPressed then
  1921.     begin
  1922.       Read(Kbd, c);
  1923.       Writeln('Extended key:', c);
  1924.     end
  1925.     else
  1926.       Writeln(c);
  1927.   end;
  1928.  
  1929.      çá¼ÑΓ¿¼, τΓ« ñαá⌐óÑα èbd »αÑ«íαáºπÑΓ ¬½áó¿Φ¿  αáßΦ¿αÑ¡-
  1930. ¡«ú« ¡áí«αá «Γ (¡«½∞ +  ß¿¼ó«½)  ñ«  (àSæ +  óΓ«α«⌐ ß¿¼ó«½).
  1931. ū߬«½∞¬π ¬½áó¿Φá àSæ ( 27) - φΓ« «íδτ¡á∩ ¬½áó¿Φá, ¿ß»«½∞ºπ-
  1932. Ѽá∩ ñ½∩ óó«ñá ß  ¬½áó¿áΓπαδ, Γ« ñ½∩ Γ«ú«, τΓ«íδ «»αÑñѽ¿Γ∞,
  1933. íδ½á ½¿ ¡áªáΓá »Ñα«⌐ ¬½áó¿Φá ß ¬«ñ«¼  27 ¿º αáßΦ¿αÑ¡¡«ú« ¡á-
  1934. í«αá ¿½¿ ñÑ⌐ßΓó¿Γѽ∞¡« ¿ß»«½∞º«óá½áß∞ ¬½áó¿Φá àSæ, ¡πª¡« ¿ß-
  1935. »«½∞º«óáΓ∞ Σπ¡¬µ¿ε  èÑyÉressed. àß½¿ íδ½á ¡áªáΓá ¬½áó¿Φá àSæ
  1936. ¿ ºá ¡Ñ⌐ ñ« Γ«ú«, ¬á¬ »α«úαá¼¼á ß¼«ú½á αáß»«º¡áΓ∞ àSæ, íδßΓ-
  1937. α« »«ß½Ññ«óá½ ñαπú«⌐ ß¿¼ó«½, Γ« ñóÑ ¬½áó¿Φ¿ í뫨 íδ «Φ¿í«τ¡«
  1938. αáß»«º¡á¡δ, ¬á¬ ¬½áó¿Φ¿ ¿º αáßΦ¿αÑ¡¡«ú« ¡áí«αá.
  1939.      é óÑαß¿¿ 5.0 Æπαí«-Åá߬á½∩:
  1940.  
  1941.  program TestReadKey;
  1942.  uses Crt;
  1943.  var
  1944.    c : char;
  1945.  begin
  1946.    c := ReadKey;
  1947.    if (c = #0) then
  1948.       Writeln('Extended key: ', ReadKey);
  1949.    else
  1950.       Writeln(c);
  1951.    end;
  1952.  
  1953.      êßσ«ñ¡δ⌐ ¬«ñ ó óÑαß¿¿ 5.0 ¿¼ÑÑΓ ¼Ñ¡∞Φ¿⌐ «íΩѼ (¿ óδ»«½-
  1954. ¡∩ÑΓß∩ íδßΓαÑÑ) ¿ ¡Ñ ß«ñÑαª¿Γ ñóπß¼δ߽ѡ¡«ßΓ¿ »« «Γ¡«ΦÑ¡¿ε ¬
  1955. ¡áªáΓ¿ε »Ñαó«ú« ß¿¼ó«½á »α¿ ¿ß»«½∞º«óá¡¿¿ αáßΦ¿αÑ¡¡«ú« ¡áí«-
  1956. αá ¬½áó¿Φ.  (ìÑ󫺼«ª¡«  ¿¡áτÑ »«½πτ¿Γ∞ ¡π½Ñó«⌐ ß¿¼ó«½ ß »«-
  1957. ¼«Θ∞ε  ¬½áó¿áΓπαδ,  ¬α«¼Ñ  ¬á¬ ó«ß»«½∞º«óáóΦ¿ß∞ ¬½áó¿ΦἿ ¿º
  1958. αáßΦ¿αÑ¡¡«ú« ¡áí«αá.)
  1959.  
  1960.                      ÅÑαѼѡ¡á∩ æbrÑák
  1961.  
  1962.      ÅÑαѼѡ¡á∩   æbrÑák   ó  óÑαß¿¿   5.0  »ÑαÑ¿¼Ñ¡«óá¡á  ó
  1963. æhÑßkBreak. ÄíαáΓ¡á∩ ß«ó¼ÑßΓ¿¼«ßΓ∞ ñ«ßΓ¿úáÑΓß∩ »πΓѼ »α¿ßó«-
  1964. Ñ¡¿∩ »ÑαѼѡ¡«⌐ æbreak Γ«ú« ªÑ áñαÑßá, τΓ« ¿ æhÑßkBreak, ¬«-
  1965. Γ«αá∩ «»¿ßδóáÑΓß∩ ó  ¼«ñπ½Ñ  ært.  Ä»ÑαáΓ«α  æbreak := FalsÑ
  1966. ó䬽ετáÑΓ »α«óÑα¬π ¡á  ¡áªáΓ¿Ñ ¬½áó¿Φ ætrl-éreak, á «»ÑαáΓ«α
  1967. æbreak := ÆruÑ ß¡«óá ÑÑ ó¬½ετáÑΓ.
  1968.      é ¼«ñπ½Ñ Æurb«3 ¿¼ÑεΓß∩ ß½ÑñπεΘ¿Ñ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿:
  1969.  
  1970. ------------------------------------------------------------
  1971.      öπ¡¬µ¿∩ îѼÇvail - ó«ºóαáΘáÑΓ τ¿ß½«  ßó«í«ñ¡δσ »áαáúαá-
  1972. Σ«ó ñ½∩ ¿¼ÑεΘÑ⌐ß∩ ñ¿¡á¼¿τÑ߬¿ αá»αÑñѽ∩Ѽ«⌐ «í½áßΓ¿ »á¼∩Γ¿.
  1973.      öπ¡¬µ¿∩ îáσÇvail - ó«ºóαáΘáÑΓ αẼÑα ¡á¿í«½∞ΦÑú« ¡Ñ»αÑ-
  1974. αδó¡«ú« ßó«í«ñ¡«ú« í½«¬á ó ñ¿¡á¼¿τÑ߬¿ αáß»αÑñѽ∩Ѽ«⌐ «í½áß-
  1975. Γ¿ (ó »áαáúαáΣáσ).
  1976.      öπ¡¬µ¿∩ LongFileSize - ó«ºóαáΘáÑΓ «íΩѼ Σá⌐½á.  é«ºóαá-
  1977. ΘáѼ«Ñ º¡áτÑ¡¿Ñ »αÑñßΓáó½∩ÑΓ ß«í«⌐ óÑΘÑßΓóÑ¡¡«Ñ τ¿ß½«.
  1978.      öπ¡¬µ¿∩ LongFilePos - ó«ºóαáΘáÑΓ ñ½∩ Σá⌐½á  ΓѬπΘπε »«-
  1979. º¿µ¿ε Σá⌐½á.  é«ºóαáΘáѼ«Ñ º¡áτÑ¡¿Ñ  »αÑñßΓáó½∩ÑΓ  ß«í«⌐ óÑ-
  1980. ΘÑßΓóÑ¡¡«Ñ τ¿ß½«.
  1981.      Åα«µÑñπαá LongSeek - »ÑαѼÑΘáÑΓ ΓѬπΘπε »«º¿µ¿ε Σá⌐½á ¬
  1982. ºáñá¡¡«¼π φ½Ñ¼Ñ¡Γπ. ä½∩ ºáñá¡¿∩ ¡«¼Ñαá φ½Ñ¼Ñ¡Γá ¿ß»«½∞ºπÑΓß∩
  1983. »áαá¼ÑΓα, »αÑñßΓáó½∩εΘ¿⌐ ß«í«⌐ ñÑ⌐ßΓó¿Γѽ∞¡«Ñ τ¿ß½«.
  1984.      Åα«µÑñπαá HighVideo - πßΓá¡áó½¿óáÑΓ ó¿ñÑ«áΓα¿íπΓ ó ªÑ½-
  1985. Γδ⌐ ¡á τÑα¡«¼ Σ«¡Ñ (µóÑΓ¡δÑ ß¿ßΓѼδ)  íѽδ⌐  ¡á  τÑα¡«¼ Σ«¡Ñ
  1986. (τÑα¡«-íѽδÑ, ¼«¡«σα«¼áΓ¿τÑ߬¿Ñ ß¿ßΓѼδ).
  1987.      Åα«µÑñπαá NormVideo - Γ« ªÑ, τΓ« ¿ HightVideo. ôßΓá¡áó-
  1988. ½¿óáÑΓ ó¿ñÑ«áΓα¿íπΓ ó ªÑ½Γδ⌐ ¡á τÑα¡«¼  Σ«¡Ñ (µóÑΓ¡δÑ ß¿ßΓÑ-
  1989. ¼δ) íѽδ⌐ ¡á τÑα¡«¼  Σ«¡Ñ  (τÑα¡«-íѽδÑ,  ¼«¡«σα«¼áΓ¿τÑ߬¿Ñ
  1990. ß¿ßΓѼδ).
  1991.      Åα«µÑñπαá LowVideo - πßΓá¡áó½¿óáÑΓ ó¿ñÑ«áΓα¿íπΓ ó ßóÑΓ-
  1992. ½«-ßÑαδ⌐ ¡á τÑα¡«¼ Σ«¡Ñ (LigthGray).
  1993.      öπ¡¬µ¿∩ IÄRÑsult - ó«ºóαáΘáÑΓ µÑ½«Ñ º¡áτÑ¡¿Ñ, »αÑñßΓáó-
  1994. ½∩εΘÑÑ  ß«í«⌐  ß«ßΓ«∩¡¿Ñ  »«ß½Ññ¡Ñ⌐ óδ»«½¡Ñ¡«⌐ «»Ñαᵿ¿ óó«-
  1995. ñá-óδó«ñá. Æá¼,  úñÑ  φΓ«  ó«º¼«ª¡«, Σπ¡¬µ¿∩ IOResult ¼«ñπ½∩
  1996. Æurb«3 ó«ºóαáΘáÑΓ ¬«ñδ, ß«ó¼ÑßΓ¿¼δÑ ß ¬«ñἿ óÑαß¿¿ 3.0.
  1997. ------------------------------------------------------------
  1998.  
  1999.                        î«ñπ½∞ Graph3
  2000.  
  2001.      î«ñπ½∞ Graph3  -  φΓ«  »α∩¼á∩  αÑ὿ºáµ¿∩  úαáΣ¿τÑ߬«ú«
  2002. ñαá⌐óÑαá,  ¿ß»«½∞ºπεΘÑú« Γ«½∞¬« «Γ¡«ß¿Γѽ∞¡δÑ ¬«¼á¡ñδ, ¬«Γ«-
  2003. αδ⌐ ¿¼ÑÑΓß∩ ó óÑαß¿¿ 3.0 Æπαí«-Åá߬á½∩.  é óÑαß¿¿  3.0  Æπα-
  2004. í«-Åá߬á½∩ ñαá⌐óÑα, ¿ß»«½∞ºπεΘ¿⌐ «Γ¡«ß¿Γѽ∞¡δÑ ¬«¼á¡ñδ, ß«ß-
  2005. Γ«∩½ ¿º ñóπσ Σá⌐½«ó -  GRAPH.É ¿ GRAPH.éIN.  GRAÉì.É ó  ñÑ⌐-
  2006. ßΓó¿Γѽ∞¡«ßΓ¿ «»αÑñѽ∩ÑΓ »α«úαá¼¼δ ó¡ÑΦ¡Ñú«  ¼áΦ¿¡¡«ú« ¬«ñá,
  2007. ß«ñÑαªáΘÑú«ß∩ ó GRAPH.BIN.  î«ñπ½∞ Graph3 «íΩÑñ¿¡∩ÑΓ GRAPH.É
  2008. ¿ GRAPH.BIN ó «ñ¿¡  í½«¬,  ß«σαá¡∩εΘ¿⌐  ßó«Ñ  Σπ¡¬µ¿«¡á½∞¡«Ñ
  2009. ¡áº¡áτÑ¡¿Ñ. àñ¿¡ßΓóÑ¡¡«Ñ ¿º¼Ñ¡Ñ¡¿Ñ, ¬«Γ«α«Ñ óδ ñ«½ª¡δ ó¡ÑßΓ¿
  2010. ó »α«úαá¼¼π, ¿ß»«½∞ºπεΘπε óÑαß¿ε 3.0 Æπαí«-Åá߬á½∩  ¿  ñαá⌐-
  2011. óÑα, αáí«ΓáεΘ¿⌐ ß  «Γ¡«ß¿Γѽ∞¡δ¼¿  ¬«¼á¡ñἿ,  φΓ«  πñá½Ñ¡¿Ñ
  2012. ñ¿αÑ¬Γ¿óδ ¬«¼»¿½∩Γ«αá {$I GRAPH.É} ¿ ºá¼Ñ¡á ÑÑ ó »αÑñ½«ªÑ¡¿¿
  2013. ¿ß»«½∞º«óá¡¿∩ (uses) »α«úαá¼¼δ ßßδ½¬á¼¿ ¡á ært ¿ Graph3.
  2014.  
  2015.       Åα¿¼Ñτá¡¿Ñ:  Åα¿ó«ñ¿¼δÑ  ñá½ÑÑ  »α«úαá¼¼δ ¡Ñ «»¿ßá¡δ ó
  2016.       ß»αáó«τ¡«¼ αáºñѽѠâ½áóδ 16.  ü«½ÑÑ »«ñα«í¡á∩ ¿¡Σ«α¼á-
  2017.       µ¿∩ »«  »α«úαἼἠ¼«ñπ½∩ Graph3 ß«ñÑনΓß∩ ó ß»αáó«τ-
  2018.       ¡«¼ απ¬«ó«ñßΓóÑ »« óÑαß¿¿ 3.0 Æπαí«-Åá߬á½∩.
  2019.  
  2020.              Åα«µÑñπαδ ¿ Σπ¡¬µ¿¿ ¼«ñπ½∩ Graph3
  2021.  
  2022. ------------------------------------------------------------
  2023.      Åα«µÑñπαá GraphColorMode - πßΓá¡áó½¿óáÑΓ µóÑΓ¡«⌐ úαáΣ¿-
  2024. τÑ߬¿⌐ αѪ¿¼ 320σ200.
  2025.      Åα«µÑñπαá GraphMode - πßΓá¡áó½¿óáÑΓ τÑα¡«-íѽδ⌐  úαáΣ¿-
  2026. τÑ߬¿⌐ αѪ¿¼ 320σ200.
  2027.      Åα«µÑñπαá Hires - πßΓá¡áó½¿óáÑΓ ñ½∩ φ¬αá¡á  úαáΣ¿τÑ߬¿⌐
  2028. αѪ¿¼ ß αáºαÑΦÑ¡¿Ñ¼ 640σ200.
  2029.      Åα«µÑñπαá Éálette - á¬Γ¿ó¿º¿απÑΓ ºáñá¡¡πε  »á½¿Γαπ µóÑ-
  2030. Γ«ó.
  2031.      Åα«µÑñπαá HiResColor - óδí¿αáÑΓ  µóÑΓá,  ¿ß»«½∞ºπεΘ¿Ñß∩
  2032. ñ½∩ ¿º«íαáªÑ¡¿⌐ ó úαáΣ¿¬Ñ  ß  óδß«¬«⌐  αáºαÑΦáεΘÑ⌐ ß»«ß«í¡«-
  2033. ßΓ∞ε.
  2034.      Åα«µÑñπαá GraphBackGround -  πßΓá¡áó½¿óáÑΓ Σ«¡«óδ⌐ µóÑΓ
  2035. φ¬αá¡á.
  2036.      Åα«µÑñπαá GraphWindow - ó«ºó«½∩ÑΓ óá¼ ó ½εí«¼ úáαΣ¿τÑß-
  2037. ¬«¼ αѪ¿¼Ñ «»αÑñѽ¿Γ∞ «í½áßΓ∞ φ¬αá¡á, ¬á¬ á¬Γ¿ó¡«Ñ «¬¡«.
  2038.      Åα«µÑñπαá Plot - ßΓα«¿Γ Γ«τ¬π ºáñá¡¡«ú«  µóÑΓá ß ºáñá¡-
  2039. ¡δ¼¿ ¬««αñ¿¡áΓἿ.
  2040.      Åα«µÑñπαá Draw - α¿ßπÑΓ  »α∩¼πε  ½¿¡¿ε  ºáñá¡¡«ú« µóÑΓá
  2041. ¼Ñªñπ ºáñá¡¡δ¼¿ Γ«τ¬á¼¿.
  2042.      Åα«µÑñπαá ColorTable -  ºáñáÑΓ  Γáí½¿µπ  »αÑ«íαẫóá¡¿∩
  2043. µóÑΓ«ó, ¬«Γ«αá∩ »«ºó«½∩ÑΓ ñ½∩  ΓѬπΘÑú« µóÑΓá ó ½εí«⌐ ºáñá¡-
  2044. ¡«⌐ Γ«τ¬Ñ «»αÑñѽ¿Γ∞ ¡«óδ⌐  µóÑΓ φΓ«⌐ Γ«τ¬¿, ¬«úñá «¡á íπñÑΓ
  2045. ºá¡«ó« ¡áα¿ß«óá¡á.
  2046.      Åα«µÑñπαá Çrß -  ¿ß»«½∞ºπ∩  ºáñá¡¡δÑ  »áαá¼ÑΓαδ  α¿ßπÑΓ
  2047. ñπúπ.
  2048.      Åα«µÑñπαá Circle - α¿ßπÑΓ «¬απª¡«ßΓ∞.
  2049.      Åα«µÑñπαá GetPic - ¬«»¿απÑΓ ß«ñÑন¼«Ñ «í½áßΓ¿ ¡á φ¬αá-
  2050. ¡Ñ ó íπΣÑα.  ¥Γ« ß«ñÑন¼«Ñ ¼«ª¡«  »«Γ«¼  ó«ßßΓá¡«ó¿Γ∞ ß »«-
  2051. ¼«Θ∞ε »α«µÑñπαδ PutPic.
  2052.      Åα«µÑñπαá PutPic - ¬«»¿απÑΓ ß«ñÑন¼«Ñ íπΣÑαá.
  2053.      Åα«µÑñπαá GetDotColor -  ó«ºóαáΘáÑΓ  º¡áτÑ¡¿Ñ  µóÑΓá  ó
  2054. Γ«τ¬Ñ ó π¬áºá¡¡«¼ ¼ÑßΓÑ.
  2055.      Åα«µÑñπαá FillScreen - ºá»«½¡∩ÑΓ óßÑ á¬Γ¿ó¡«Ñ «¬¡« π¬á-
  2056. ºá¡¡δ¼ µóÑΓ«¼.
  2057.      Åα«µÑñπαá FillShape - ºá»«½¡∩ÑΓ ºáñá¡¡δ¼ µóÑΓ«¼ «í½áßΓ∞
  2058. ½εí«⌐ Σ«α¼δ.
  2059.      Åα«µÑñπαá FillPattern - ºá»«½¡∩ÑΓ »α∩¼«πú«½∞¡πε «í½áßΓ∞
  2060. »« ΓѬπΘѼπ «íαẵπ, ¿ß»«½∞ºπ∩ π¬áºá¡¡δ⌐ µóÑΓ.
  2061.      Åα«µÑñπαá Pattern -  «»αÑñѽ∩ÑΓ  «íαáºÑµ  8σ8,  ¬«Γ«αδ⌐
  2062. ñ«½ªÑ¡ ¿ß»«½∞º«óáΓ∞ß∩ ó »α«µÑñπαÑ FillPattern.
  2063.      Åα«µÑñπαá éáßk - [ñ½∩ úαáΣ¿¬¿, ¿ß»«½∞ºπεΘÑ⌐ «Γ¡«ß¿Γѽ∞-
  2064. ¡δÑ ¬«¼á¡ñδ] »ÑαѼÑΘáÑΓ ¼áα¬Ñα ¡áºáñ ¡á ºáñá¡¡«Ñ αáßßΓ«∩¡¿Ñ.
  2065.      Åα«µÑñπαá Forwd - [ñ½∩  úαáΣ¿¬¿,  ¿ß»«½∞ºπεΘÑ⌐  «Γ¡«ß¿-
  2066. Γѽ∞¡δÑ ¬«¼á¡ñδ]  »ÑαѼÑΘáÑΓ  ¼áα¬Ñα ó»ÑαÑñ ¡á ºáñá¡¡«Ñ αáß-
  2067. ßΓ«∩¡¿Ñ.
  2068.      Åα«µÑñπαá ClearScreen - [ñ½∩ úαáΣ¿¬¿,  ¿ß»«½∞ºπεΘÑ⌐ «Γ-
  2069. ¡«ß¿Γѽ∞¡δÑ ¬«¼á¡ñδ] «τ¿ΘáÑΓ á¬Γ¿ó¡«Ñ «¬¡« ¿ »ÑαѼÑΘáÑΓ ¼áα-
  2070. ¬Ñα ó ¡áτὫ φ¬αá¡á.
  2071.      Åα«µÑñπαá ìÑáding - [ñ½∩ úαáΣ¿¬¿,  ¿ß»«½∞ºπεΘÑ⌐ «Γ¡«ß¿-
  2072. Γѽ∞¡δÑ ¬«¼á¡ñδ] ó«ºóαáΘáÑΓ ΓѬπΘπε ú«½«ó¬π ¼áα¬Ñαá.
  2073.      Åα«µÑñπαá HideTurtle - [ ñ½∩ úαáΣ¿¬¿,  ¿ß»«½∞ºπεΘÑ⌐ «Γ-
  2074. ¡«ß¿Γѽ∞¡δÑ ¬«¼á¡ñδ] ñѽáÑΓ ¼áα¬Ñα ¡Ñó¿ñ¿¼δ¼.
  2075.      Åα«µÑñπαá ì«¼Ñ - [ñ½∩ úαáΣ¿¬¿, ¿ß»«½∞ºπεΘÑ⌐ «Γ¡«ß¿Γѽ∞-
  2076. ¡δÑ ¬«¼á¡ñδ] »«¼ÑΘáÑΓ ¼áα¬Ñα ó ¡áτὫ (½Ñóδ⌐ óÑασ¡¿⌐ πú«½)
  2077. π¬αá¡á.
  2078.      Åα«µÑñπαá NoWrap - [ñ½∩ úαáΣ¿¬¿,  ¿ß»«½∞ºπεΘÑ⌐  «Γ¡«ß¿-
  2079. Γѽ∞¡δÑ ¬«¼á¡ñδ] ºá»αÑΘáÑΓ áóΓ«¼áΓ¿τÑ߬¿⌐ »ÑαÑσ«ñ  ¼áα¬Ñαá ¬
  2080. ¡áτá½π ß½ÑñπεΘÑ⌐ ßΓ᫬¿ »α¿ ñ«ßΓ¿ªÑ¡¿¿ úαá¡¿µδ φ¬αá¡á.
  2081.      Åα«µÑñπαá ÉÑnDown - [ñ½∩ úαáΣ¿¬¿, ¿ß»«½∞ºπεΘÑ⌐  «Γ¡«ß¿-
  2082. Γѽ∞¡δÑ ¬«¼á¡ñδ] "«»π߬áÑΓ"  ¼áα¬Ñα (á¡á½«ú »«ñ¡∩Γ¿∩ »Ñαá ¡á
  2083. úαáΣ«»«ßΓα«¿ΓѽÑ), ΓᬠτΓ« ½εí«Ñ »ÑαѼÑΘÑ¡¿Ñ ¼áα¬Ñαá  »α¿ó«-
  2084. ñ¿Γ ¬ óδτÑατ¿óá¡¿ε ½¿¡¿¿.
  2085.      Åα«µÑñπαá ÉÑnUα - [ñ½∩  úαáΣ¿¬¿,  ¿ß»«½∞ºπεΘÑ⌐  «Γ¡«ß¿-
  2086. Γѽ∞¡δÑ ¬«¼á¡ñδ] "»«ñ¡¿¼áÑΓ" ¼áα¬Ñα. Åα¿ φΓ«¼ Ñú« ¼«ª¡«  »Ñ-
  2087. αѼÑΘáΓ∞ íѺ óδτÑατ¿óá¡¿∩ ½¿¡¿¿.
  2088.      Åα«µÑñπαá SetHeading - [ñ½∩ úαáΣ¿¬¿, ¿ß»«½∞ºπεΘÑ⌐ «Γ¡«-
  2089. ß¿Γѽ∞¡δÑ ¬«¼á¡ñδ] »«ó«αáτ¿óáÑΓ ú«½«ó¬π ¼áα¬Ñαá ¡á  ºáñá¡¡δ⌐
  2090. πú«½.
  2091.      Åα«µÑñπαá SetPenColor - [ñ½∩ úαáΣ¿¬¿,  ¿ß»«½∞ºπεΘÑ⌐ «Γ-
  2092. ¡«ß¿Γѽ∞¡δÑ ¬«¼á¡ñδ]  πßΓá¡áó½¿óáÑΓ  µóÑΓ,  ¿ß»«½∞ºπѼδ⌐ ñ½∩
  2093. α¿ßπ¡¬á »α¿ »ÑαѼÑΘÑ¡¿¿ ¼áα¬Ñαá.
  2094.      Åα«µÑñπαá SetPosition - [ñ½∩ úαáΣ¿¬¿, ¿ß»«½∞ºπεΘÑ⌐  «Γ-
  2095. ¡«ß¿Γѽ∞¡δÑ ¬«¼á¡ñδ] »ÑαѼÑΘáÑΓ ¼áα¬Ñα ó  Γ«τ¬π ß  ºáñá¡¡δ¼¿
  2096. ¬««αñ¿¡áΓἿ íѺ óδτÑατ¿óá¡¿∩ ½¿¡¿¿.
  2097.      Åα«µÑñπαá ShowTurtle - [ñ½∩ úαáΣ¿¬¿, ¿ß»«½∞ºπεΘÑ⌐ «Γ¡«-
  2098. ß¿Γѽ∞¡δÑ ¬«¼á¡ñδ] ñѽáÑΓ ¼áα¬Ñα ó¿ñ¿¼δ¼.
  2099.      Åα«µÑñπαá TurnLeft - [ñ½∩ úαáΣ¿¬¿, ¿ß»«½∞ºπεΘÑ⌐ «Γ¡«ß¿-
  2100. Γѽ∞¡δÑ ¬«¼á¡ñδ] »«ó«αáτ¿óáÑΓ ú«½«ó¬π  ¼áα¬Ñαá ó½Ñó« (»α«Γ¿ó
  2101. τáß«ó«⌐ ßΓαѽ¬¿).
  2102.      Åα«µÑñπαá TurnRight - [ñ½∩ úαáΣ¿¬¿,  ¿ß»«½∞ºπεΘÑ⌐ «Γ¡«-
  2103. ß¿Γѽ∞¡δÑ ¬«¼á¡ñδ] »«ó«αáτ¿óáÑΓ  ú«½«ó¬π  ¼áα¬Ñαá ó»αáó« (»«
  2104. τáß«ó«⌐ ßΓαѽ¬Ñ).
  2105.      Åα«µÑñπαá TurnWindow - [ñ½∩ úαáΣ¿¬¿, ¿ß»«½∞ºπεΘÑ⌐ «Γ¡«-
  2106. ß¿Γѽ∞¡δÑ ¬«¼á¡ñδ]  «»αÑñѽ∩ÑΓ  «í½áßΓ∞ φ¬αá¡á, ¬á¬ á¬Γ¿ó¡πε
  2107. «í½áßΓ∞.
  2108.      Åα«µÑñπαá TurtleThere - [ñ½∩  úαáΣ¿¬¿, ¿ß»«½∞ºπεΘÑ⌐ «Γ-
  2109. ¡«ß¿Γѽ∞¡δÑ ¬«¼á¡ñδ] »α«óÑα∩ÑΓ,  ∩ó½∩ÑΓß∩ ½¿ ¼áα¬Ñα ó á¬Γ¿ó-
  2110. ¡«¼ «¬¡Ñ φ¬αá¡á ó¿ñ¿¼δ¼.
  2111.      Åα«µÑñπαá TurtleDelay - [ñ½∩  úαáΣ¿¬¿, ¿ß»«½∞ºπεΘÑ⌐ «Γ-
  2112. ¡«ß¿Γѽ∞¡δÑ ¬«¼á¡ñδ] πßΓá¡áó½¿óáÑΓ ºáñÑ᪬π ¼Ñªñπ ¬áªñδ¼ »Ñ-
  2113. αѼÑΘÑ¡¿Ñ¼ ¼áα¬Ñαá.
  2114.      Åα«µÑñπαá Wrap - [ñ½∩ úαáΣ¿¬¿, ¿ß»«½∞ºπεΘÑ⌐ «Γ¡«ß¿Γѽ∞-
  2115. ¡δÑ ¬«¼á¡ñδ] áóΓ«¼áΓ¿τÑ߬¿ »ÑαѼÑΘáÑΓ ¼áα¬Ñα ¬ »α«Γ¿ó«»«½«ª-
  2116. ¡«⌐ úαá¡¿µÑ φ¬αá¡á »α¿ ñ«ßΓ¿ªÑ¡¿¿ ¬αá∩ φ¬αá¡á.
  2117.      Åα«µÑñπαá òæ«r - [ñ½∩ úαáΣ¿¬¿, ¿ß»«½∞ºπεΘÑ⌐ «Γ¡«ß¿Γѽ∞-
  2118. ¡δÑ ¬«¼á¡ñδ] ó«ºóαáΘáÑΓ ΓѬπΘπε ò-¬««αñ¿¡áΓπ ¼áα¬Ñαá.
  2119.      Åα«µÑñπαá Yæ«r - [ñ½∩ úαáΣ¿¬¿, ¿ß»«½∞ºπεΘÑ⌐ «Γ¡«ß¿Γѽ∞-
  2120. ¡δÑ ¬«¼á¡ñδ] ó«ºóαáΘáÑΓ ΓѬπΘπε Y-¬««αñ¿¡áΓπ ¼áα¬Ñαá.
  2121. ------------------------------------------------------------
  2122.  
  2123.  
  2124.  
  2125.  
  2126.  
  2127.                           âïÇéÇ 13
  2128.  
  2129.                           ÄóÑα½Ñ¿
  2130.  
  2131.      ÄóÑα½Ñ¿ (¬«Γ«αδÑ ¡áºδóáεΓ ΓᬪѠ»ÑαѬαδΓ¿∩¼¿ ¿½¿  ¡á½«-
  2132. ªÑ¡¿∩¼¿)  »αÑñßΓáó½∩εΓ  ß«í«⌐  τáßΓ¿ »α«úαá¼¼δ, ¬«Γ«αδÑ ß«ó-
  2133. ¼ÑßΓ¡« ¿ß»«½∞ºπεΓ «íΘπε «í½áßΓ∞ »á¼∩Γ¿. é «ñ¿¡ ¿ Γ«Γ ªÑ  ¼«-
  2134. ¼Ñ¡Γ  óαѼѡ¿  αѺ¿ñÑ¡Γ¡«  αẼÑΘáΓ∞ß∩ ó »á¼∩Γ¿ ¼«ªÑΓ Γá ¿½¿
  2135. ¿¡á∩ τáßΓ∞ »α«úαá¼¼δ, ¡Ñ«íσ«ñ¿¼á∩  ñ½∩  óδ»«½¡Ñ¡¿∩  ºáñá¡¡«⌐
  2136. Σπ¡¬µ¿¿. é »α«µÑßßÑ óδ»«½¡Ñ¡¿∩ φΓ¿ τáßΓ¿ »α«úαá¼¼δ ¼«úπΓ ºá-
  2137. ¼ÑΘáΓ∞ ñαπú ñαπúá.
  2138.      ÄóÑα½Ñ¿ ¼«úπΓ º¡áτ¿Γѽ∞¡« ß«¬αáΓ¿Γ∞ «íΩѼ »á¼∩Γ¿, ¡Ñ«í-
  2139. σ«ñ¿¼δ⌐  ñ½∩ óδ»«½¡Ñ¡¿∩ »α«úαá¼¼δ. öá¬Γ¿τÑ߬¿, Γᬠ¬á¬ ó ½ε-
  2140. í«⌐ ¼«¼Ñ¡Γ óαѼѡ¿ ó »á¼∩Γ¿  αѺ¿ñÑ¡Γ¡«  αẼÑΘáεΓß∩  Γ«½∞¬«
  2141. τáßΓ¿  »α«úαá¼¼δ,  ß  »«¼«Θ∞ε  «óÑα½ÑÑó  óδ ¼«ªÑΓÑ óδ»«½¡∩Γ∞
  2142. »α«úαá¼¼δ, º¡áτ¿Γѽ∞¡« »αÑó«ßσ«ñ∩Θ¿Ñ »« «íΩѼπ ñ«ßΓπ»¡πε »á-
  2143. ¼∩Γ∞.
  2144.      Æπαí«-Åá߬á½∞ π»αáó½∩ÑΓ «óÑα½Ñ∩¼¿  ¡á  πα«ó¡Ñ  ¼«ñπ½Ñ⌐,
  2145. ¬«Γ«αδÑ  ∩ó½∩εΓß∩  ¡á¿¼Ñ¡∞ΦÑ⌐  τáßΓ∞ε  »α«úαá¼¼δ, «íαáºπεΘÑ⌐
  2146. «óÑα½Ñ⌐. Åα¿ ¬«¼»¿∩µ¿¿ »α«úαá¼¼δ, ¿¼ÑεΘÑ⌐ «óÑα½Ñ⌐¡πε  ßΓαπ¬-
  2147. Γπαπ,  Æπαí«-Åá߬á½∞  úÑ¡Ñα¿απÑΓ ¡áα∩ñπ ß óδ»«½¡∩Ñ¼δ¼ Σá⌐½«¼
  2148. (¬«Γ«αδ⌐ ¿¼ÑÑΓ αáßΦ¿αÑ¡¿Ñ  .EXE)  «óÑα½Ñ⌐¡δ⌐  Σá⌐½  (¿¼ÑεΘ¿⌐
  2149. αáßΦ¿αÑ¡¿Ñ  .OVR) öá⌐½ ß αáßΦ¿αÑ¡¿Ñ¼ .àòà ß«ñÑαª¿Γ ßΓáΓ¿τÑß-
  2150. ¬¿Ñ (¡Ñ «óÑα½Ñ⌐¡δÑ) τáßΓ¿ »α«úαá¼¼δ, á  Σá⌐½  ß  αáßΦ¿αÑ¡¿Ñ¼
  2151. .OVR  ß«ñÑαª¿Γ óßÑ «óÑα½Ñ⌐¡δÑ ¼«ñπ½¿, ¬«Γ«αδÑ »α¿ óδ»«½¡Ñ¡¿¿
  2152. »α«úαá¼¼δ íπñπΓ »«ñ¬áτ¿óáΓ∞ß∩ ó  »á¼∩Γ∞  ¿½¿  óδó«ñ¿Γ∞ß∩  ¿º
  2153. ¡ÑÑ ¡á ñ¿ß¬.
  2154.      çᠿ߬½ετÑ¡¿Ñ¼ ¡Ñ߬«½∞¬¿σ »αáó¿½  Ñú«  »α«úαá¼¼¿α«óá¡¿∩
  2155. «óÑα½Ñ⌐¡δ⌐  ¼«ñπ½∞ »«½¡«ßΓ∞ε ¿ñÑ¡Γ¿τÑ¡ ¡Ñ«óÑα½Ñ⌐¡«¼π ¼«ñπ½ε.
  2156. öá¬Γ¿τÑ߬¿, Ñß½¿ óδ ß«í½εñáÑΓÑ φΓ¿ »αáó¿½á, π óáß ¡ÑΓ  ¡Ñ«í-
  2157. σ«ñ¿¼«ßΓ¿ »ÑαѬ«¼»¿½¿α«óáΓ∞ ¼«ñπ½∞, τΓ«íδ «íαẫóáΓ∞ ¿º ¡Ñú«
  2158. «óÑα½Ñ⌐. ÉÑΦÑ¡¿Ñ « Γ«¼, íπñÑΓ  ¼«ñπ½∞  «óÑα½Ñ⌐¡δ¼  ¿½¿  ¡ÑΓ,
  2159. »α¿¡¿¼áÑΓß∩ »α«úαá¼¼«⌐, ¬«Γ«αá∩ ¿ß»«½∞ºπÑΓ ñá¡¡δ⌐ ¼«ñπ½∞.
  2160.     Åα¿ ºáúαπº¬Ñ «óÑα½ÑÑó ó »á¼∩Γ∞ «¡¿ »«¼ÑΘáεΓß∩ ó «óÑα½Ñ⌐-
  2161. ¡δ⌐ íπΣÑα, ¬«Γ«αδ⌐ αẼÑΘáÑΓß∩ ó »á¼∩Γ¿ ¼Ñªñπ ßÑú¼Ñ¡Γ«¼ ßΓÑ-
  2162. ¬á ¿ ñ¿¡á¼¿τÑ߬¿ αáß»αÑñѽ∩Ѽ«⌐ «í½áßΓ∞ε »á¼∩Γ¿. Å«  π¼«½τá-
  2163. ¡¿ε  ñ½∩ «óÑα½Ñ⌐¡«ú« íπΣÑαá óδí¿αáÑΓß∩ ¼¿¡¿¼á½∞¡δ⌐ ó«º¼«ª¡δ⌐
  2164. αẼÑα, ¡« ó« óαѼ∩ óδ»«½¡Ñ¡¿∩ »α«úαá¼¼δ  Ñú«  αẼÑα  ¼«ªÑΓ
  2165. íδΓ∞  ½Ñú¬«  πóѽ¿τÑ¡ »πΓѼ óδñѽѡ¿∩ ñ«»«½¡¿Γѽ∞¡«⌐ «í½áßΓ¿
  2166. »á¼∩Γ¿ ¿º  ñ¿¡á¼¿τÑ߬¿  αáß»αÑñѽ∩Ѽ«⌐  «í½áßΓ¿.  Ç¡á½«ú¿τ¡«
  2167. ßÑú¼Ñ¡Γπ ñá¡¡δσ ¿ ¼¿¡¿¼á½∞¡«¼π αẼÑαπ ñ¿¡á¼¿τÑ߬¿ αáß»αÑñÑ-
  2168. ½∩Ѽ«⌐ «í½áßΓ¿, «óÑα½Ñ⌐¡δ⌐ íπΣÑα »α¿¡∩Γ«ú« »« π¼«½τá¡¿ε αáº-
  2169. ¼Ñαá  óδñѽ∩ÑΓß∩ »α¿ ºáúαπº¬Ñ Σá⌐½á .àòà. Åα¿ «ΓßπΓßΓó¿¿ »á-
  2170. ¼∩Γ¿ ¡Ñ«íσ«ñ¿¼«ú« «íΩѼᠼ«ñπ½Ñ¼ Dos ¿½¿ ñ¿á½«ú«ó«⌐ »α«úαá¼-
  2171. ¼¡«⌐ ßαÑñ«⌐ íπñÑΓ  óδó«ñ¿Γ∞ß∩  ß««íΘÑ¡¿Ñ  «í «Φ¿í¬Ñ (Program
  2172. too big to fit in memory -  »α«úαá¼¼á ß½¿Φ¬«¼ óѽ¿¬á,  τΓ«íδ
  2173. αẼÑßΓ¿Γ∞ß∩ ó »á¼∩Γ¿) ¿½¿ (Not enough memory to  run  prog-
  2174. ram - ñ½∩ ºá»π߬ᠻα«úαá¼¼δ ¡Ñ σóáΓáÑΓ »á¼∩Γ¿).
  2175.      Äñ¡«⌐ ¿º «τÑ¡∞ ó᪡δσ ó«º¼«ª¡«ßΓÑ⌐ »«ñß¿ßΓÑ¼δ  π»αáó½Ñ-
  2176. ¡¿∩  «óÑα½Ñ∩¼¿ ∩ó½∩ÑΓß∩ ó«º¼«ª¡«ßΓ∞ »α¿ ¡á½¿τ¿¿ ñ«ßΓáΓ«τ¡«ú«
  2177. »α«ßΓαá¡ßΓóá ºáúαπªáΓ∞ «óÑα½Ñ⌐¡δ⌐ Σá⌐½ ó αáßΦ¿αÑ¡¡πε »á¼∩Γ∞.
  2178. ä½∩ φΓ«⌐ µÑ½¿ ó Æπαí«-Åá߬á½Ñ »«ññÑনóáÑΓß∩ ßαÑñßΓó« αáßΦ¿-
  2179. αÑ¡¿∩  »á¼∩Γ¿  EMS  (Lotus/Intel/Microsoft  Expanded  Memory
  2180. Specification).  Åα¿  αẼÑΘÑ¡¿¿ «óÑα½Ñ⌐¡«ú« Σá⌐½á ó EMS óßÑ
  2181. »«ß½ÑñπεΘ¿Ñ ºáúαπº¬¿ «óÑα½ÑÑó ßó«ñ∩Γß∩  ¬  íδßΓα«⌐  »ÑαÑñáτÑ
  2182. ¿¡Σ«α¼áµ¿¿ ¿º »á¼∩Γ¿ ó »á¼∩Γ∞.
  2183.  
  2184.                      î«ñπ½∞ Overlay
  2185.  
  2186.      Å«ñß¿ßΓѼá π»αáó½Ñ¡¿∩ «óÑα½Ñ∩¼¿ Æπαí«-Åá߬á½∩  αÑ὿ºπ-
  2187. ÑΓß∩ ß »«¼«Θ∞ε ßΓá¡ñáαΓ¡«ú« ¼«ñπ½∩ Overlay. é ¼«ñπ½Ñ Overlay
  2188. ¿ß»«½∞ºπεΓß∩ πß«óÑαΦÑ¡ßΓó«óá¡¡δÑ ¼ÑΓ«ñδ π»αáó½Ñ¡¿∩ íπΣÑαἿ,
  2189. τΓ« «íÑß»Ñτ¿óáÑΓ «»Γ¿¼á½∞¡«Ñ óδ»«½¡Ñ¡¿Ñ »α«úαá¼¼δ ó ¿¼ÑεΘÑ⌐-
  2190. ß∩ «í½áßΓ¿ »á¼∩Γ¿. ìá»α¿¼Ñα, »«ñß¿ßΓѼá π»αáó½Ñ¡¿∩ «óÑα½Ñ∩¼¿
  2191. ß«σαá¡∩ÑΓ ó «óÑα½Ñ⌐¡«¼ íπΣÑαÑ ßΓ«½∞¬« «óÑα½ÑÑó, ß¬«½∞¬« ó«º-
  2192. ¼«ª¡«. ¥Γ« »«ºó«½∩ÑΓ π¼Ñ¡∞Φ¿Γ∞ τáßΓ«Γπ ßτ¿Γδóá¡¿∩ «óÑα½Ñó  ß
  2193. ñ¿ß¬á. Å«ß½π ºáúαπº¬¿ «óÑα½Ñ∩ ó맮ó «ñ¡«⌐ ¿º Ñú« »«ñ»α«úαá¼¼
  2194. óδ»«½¡∩ÑΓß∩ ΓᬪѠíδßΓα«, ¬á¬ «íαáΘÑ¡¿Ñ ¬ ¡Ñ«óÑα½Ñ⌐¡«⌐ »α«ú-
  2195. αá¼¼Ñ.  èα«¼Ñ  Γ«ú«, ¬«úñá π »«ñß¿ßΓѼδ π»αáó½Ñ¡¿∩ «óÑα½Ñ∩¼¿
  2196. 󫺡¿¬áÑΓ ¡Ñ«íσ«ñ¿¼«ßΓ∞ óδóÑßΓ¿ «ñ¿¡ «óÑα½Ñ⌐, τΓ«íδ  «ßó«í«-
  2197. ñ¿Γ∞ ¼ÑßΓ« ñ½∩ ñαπú«ú«,  «¡á  ß¡áτá½á  »δΓáÑΓß∩  óδóÑßΓ¿  ΓÑ
  2198. «óÑα½Ñ¿, ¬«Γ«αδÑ ¡Ñ ∩ó½∩εΓß∩ á¬Γ¿ó¡δ¼¿ (Γ« ÑßΓ∞  ΓÑ, ¬«Γ«αδÑ
  2199. ó ñá¡¡δ⌐ ¼«¼Ñ¡Γ óαѼѡ¿ ¡Ñ ß«ñÑαªáΓ á¬Γ¿ó¡δσ »α«úαá¼¼).
  2200.      ä½∩ αÑ὿ºáµ¿¿ π½πτΦÑ¡¡δσ ¼ÑΓ«ñ«ó π»αáó½Ñ¡¿∩  «óÑα½Ñ∩¼¿
  2201. Æπαí«-Åá߬á½∞  ΓαÑíπÑΓ «Γ óáß »α¿ ¡á»¿ßá¡¿¿ »α«úαá¼¼δ, ó ¬«-
  2202. Γ«α«⌐ ¿ß»«½∞ºπεΓß∩ «óÑα½Ñ¿, ß«í½εñáΓ∞ ñóá ó᪡δσ »αáó¿½á:
  2203.  
  2204.      1.  éßÑ «óÑα½Ñ⌐¡δÑ ¼«ñπ½¿  ñ«½ª¡δ  ß«ñÑαªáΓ∞  ñ¿αÑ¬Γ¿óπ
  2205.          {$O+},  »α¿ó«ñ∩Θπε ¬ Γ«¼π, τΓ« ¬«¼»¿½∩Γ«α «íÑß»Ñτ¿-
  2206.          óáÑΓ úÑ¡Ñ¡¿α«óá¡¿Ñ «óÑα½Ñ⌐¡«ú« ¬«ñá.
  2207.      2.  Åα¿ ¬áªñ«¼  «íαáΘÑ¡¿¿  ¬  «óÑα½Ñ⌐¡«⌐ »α«µÑñπαÑ  ¿½¿
  2208.          Σπ¡¬µ¿¿  óδ  ñ«½ª¡δ  «íÑß»Ñτ¿Γ∞ ¿ß»«½∞º«óá¡¿Ñ óßѼ¿
  2209.          á¬Γ¿ó¡δ¼¿ »α«µÑñπαἿ ¿ Σπ¡¬µ¿∩¼¿ ó맮ó«ó Γ¿»á  FAR
  2210.          (ñá½∞¡¿⌐ Γ¿» ó맮óá).
  2211.  
  2212.      Äíá »αáó¿½á íπñπΓ »«∩ß¡∩Γ∞ß∩ ñá½ÑÑ ó αáºñѽѠ»«ñ  ºáú«-
  2213. ½«ó¬«¼  "Éáºαáí«Γ¬á  «óÑα½Ñ⌐¡δσ  »α«úαá¼¼". æÑ⌐τáß ¼δ »α«ßΓ«
  2214. «Γ¼ÑΓ¿¼, τΓ« óδ ¼«ªÑΓÑ ½Ñú¬« πñ«ó½ÑΓó«α¿Γ∞ φΓ¿ »αáó¿½á,  »«-
  2215. ¼ÑßΓ¿ó  ó  ¡áτá½Ñ  «óÑα½Ñ⌐¡δσ  ¼«ñπ½Ñ⌐ ñ¿αÑ¬Γ¿ó𠬫¼»¿½∩Γ«αá
  2216. {$O+,F+}, á ó ¡áτá½Ñ óßÑσ ñαπú¿σ ¼«ñπ½Ñ⌐ ¿ «ß¡«ó¡«⌐ »α«úαá¼-
  2217. ¼δ - ñ¿αÑ¬Γ¿óπ {$F+}.
  2218.  
  2219.            Åα¿¼Ñτá¡¿Ñ: ìÑß«í½εñÑ¡¿Ñ  ΓαÑí«óá¡¿Ñ  «íÑß»ÑτÑ¡¿∩
  2220.       ñá½∞¡Ñú«  Γ¿»á  ó맮óá  ó «óÑα½Ñ⌐¡«⌐ »α«úαἼѠó맮óÑΓ
  2221.       ¡Ñ»αÑñ߬áºπѼδÑ ¿ ó«º¼«ª¡« ¬áΓáßΓα«Σ¿τÑ߬¿Ñ αѺπ½∞ΓáΓδ
  2222.       »α¿ óδ»«½¡Ñ¡¿¿ »α«úαá¼¼δ.
  2223.  
  2224.      ä¿αÑ¬Γ¿óá ¬«¼»¿½∩Γ«αá {$O  ¿¼∩_¼«ñπ½∩}  ¿ß»«½∞ºπÑΓß∩  ó
  2225. »α«úαἼѠ ñ½∩ π¬áºá¡¿∩ Γ«ú«, ¬á¬«⌐  ¿º  ¼«ñπ½Ñ⌐ íπñÑΓ «óÑα-
  2226. ½Ñ⌐¡δ¼. ¥Γá ñ¿αÑ¬Γ¿óá ñ«ª¡á αẼÑΘáΓ∞ß∩ ºá »αÑñ½«ªÑ¡¿Ñ¼  ¿ß-
  2227. »«½∞º«óá¡¿∩  »α«úαá¼¼δ,  ó ¬«Γ«α«¼ »ÑαÑñ ¿¼Ñ¡á¼¿ óßÑσ ñαπú¿σ
  2228. «óÑα½Ñ⌐¡δσ ¼«ñπ½Ñ⌐ ñ«½ª¡« π¬áºδóáΓ∞ß∩ ¿¼∩ ßΓá¡ñáαΓ¡«ú« ¼«ñπ-
  2229. ½∩ Overlay. Åα¿óÑñѼ ß½ÑñπεΘ¿⌐ »α¿¼Ñα:
  2230.  
  2231.   program Editor;
  2232.   {F+}              { éßÑ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿ íπñπΓ
  2233.  ¿ß»«½∞º«óáΓ∞
  2234.                       ñá½∞¡¿⌐ Γ¿» ó맮óá }
  2235.   uses
  2236.    Overlay, Crt, Dos, EdInOut, EdFormat, EdPrint, EdFind,
  2237.  EdMain
  2238.   {$O EdInOut }
  2239.   {$O EdFormat }
  2240.   {$O EdPrint }
  2241.   {$O EdFind }
  2242.   {$O EdMain }
  2243.  
  2244.            Åα¿¼Ñτá¡¿Ñ: àß½¿ óδ »δΓáÑΓÑß∞  ¿ß»«½∞º«óáΓ∞,  ¬á¬
  2245.       «óÑα½Ñ⌐¡δ⌐,  ¼«ñπ½∞,  »α¿  ¬«¼»¿½∩µ¿¿ ¬«Γ«α«ú« ¡Ñ íδ½á
  2246.       π¬áºá¡á ñ¿αÑ¬Γ¿óá {$O+}, Γ« ¬«¼»¿½∩Γ«α óδóÑñÑΓ ß««íΘÑ-
  2247.       ¡¿Ñ  «í  «Φ¿í¬Ñ.  ùΓ« ¬áßáÑΓß∩ ßΓá¡ñáαΓ¡δσ ¼«ñπ½Ñ⌐, Γ«
  2248.       «óÑα½Ñ⌐¡δ¼ ¼«ªÑΓ íδΓ∞ Γ«½∞¬« ¼«ñπ½∞ Dos. äαπú¿Ñ  ßΓá¡-
  2249.       ñáαΓ¡δÑ  ¼«ñπ½¿  (System, Crt, Overlay, Graph, Turbo3,
  2250.       Graph3) ¡Ñ ¼«úπΓ ¿ß»«½∞º«óáΓ∞ß∩ ó ¬áτÑßΓóÑ «óÑα½Ñ⌐¡δσ.
  2251.       è  Γ«¼π  ªÑ  »α«úαá¼¼δ,  ß«ñÑαªáΘ¿Ñ «óÑα½Ñ⌐¡δÑ ¼«ñπ½¿,
  2252.       ñ«½ª¡δ ¬«¼»¿½¿α«óáΓ∞ß∩ ¡á ñ¿ß¬. àß½¿ óδ »δΓáÑΓÑß∞  óδ-
  2253.       »«½¡¿Γ∞ ¬«¼»¿½∩µ¿ε Γᬿσ »α«úαá¼¼ ó »á¼∩Γ∞,  Γ« ¬«¼»¿-
  2254.       ½∩Γ«α óδó«ñ¿Γ ß««íΘÑ¡¿Ñ «í «Φ¿í¬Ñ.
  2255.  
  2256.                    è«¡ßΓá¡Γδ ¿ »ÑαѼѡ¡δÑ
  2257.  
  2258.      é φΓ«¼ αáºñѽѠ¬αáΓ¬« «»¿ßδóáεΓß∩ ¬«¡ßΓá¡Γδ ¿  »ÑαѼѡ-
  2259. ¡δÑ, «»αÑñѽѡ¡δѠ󠼫ñπ½Ñ Overlay.
  2260.  
  2261.                     ÅÑαѼѡ¡á∩ OvrResult
  2262.  
  2263.      ÅÑαÑñ ó«ºóαáΓ«¼ π»αáó½Ñ¡¿∩ ¬áªñá∩  »α«µÑñπαá  ó  ¼«ñπ½Ñ
  2264. Overlay   ß«σαá¡∩ÑΓ   ßó«⌐   ¬«ñ   αѺπ½∞ΓáΓá  ó  »ÑαѼѡ¡«⌐
  2265. OvrResult.
  2266.  
  2267.      var OvrResult : integer;
  2268.  
  2269.      é«º¼«ª¡δÑ ¬«ñδ ó«ºóαáΓá «»αÑñѽѡδ ó «»¿ßá¡¿¿  ¬«¡ßΓá¡Γ
  2270. ó ß½ÑñπεΘѼ αáºñѽÑ. é «íΘѼ ß½πτáÑ ¡π½Ñó«Ñ º¡áτÑ¡¿Ñ ú«ó«α¿Γ
  2271. «í πß»ÑΦ¡«¼ ºáóÑαΦÑ¡¿¿.
  2272.      ÅÑαѼѡ¡á∩  OvrResult  ¡á»«¼¿¡áÑΓ  ßΓá¡ñáαΓ¡πε  Σπ¡¬µ¿ε
  2273. IOResult,  ºá ¿ß¬½ετÑ¡¿Ñ¼ Γ«ú«, τΓ« »ÑαѼѡ¡á∩ OvrResult »α¿
  2274. «íαáΘÑ¡¿¿ ¬ ¡Ñ⌐ ¡Ñ πßΓá¡áó½¿óáÑΓß∩ ó º¡áτÑ¡¿Ñ 0. Æᬿ¼ «íαá-
  2275. º«¼,   «Γ»áñáÑΓ   ¡Ñ«íσ«ñ¿¼«ßΓ∞   ó  ¬«»¿α«óá¡¿¿  »ÑαѼѡ¡«⌐
  2276. OvrResult »ÑαÑñ ÑÑ »α«óÑᬫ⌐ ó ½«¬á½∞¡πε »ÑαѼѡ¡πε.
  2277.  
  2278.                       è«ñδ αѺπ½∞ΓáΓá
  2279.  
  2280.      ÄΦ¿í¬¿, ó«º¡¿¬áεΘ¿Ñ ó ¼«ñπ½Ñ Overlay, ß««íΘáεΓß∩ ß  »«-
  2281. ¼«Θ∞ε »ÑαѼѡ¡«⌐ OvrResult. Ä»αÑñѽѡδ ß½ÑñπεΘ¿Ñ ¬«ñδ:
  2282.  
  2283.   const
  2284.     ovrOk = 0;           { πß»ÑΦ¡«Ñ ºáóÑαΦÑ¡¿Ñ }
  2285.     ovrError = -1;       { «Φ¿í¬á »«ñß¿ßΓѼδ π»αáó½Ñ¡¿∩
  2286.                            «óÑα½Ñ∩¼¿ }
  2287.     ovrNotFound = -2;    { ¡Ñ ¡á⌐ñÑ¡ «óÑα½Ñ⌐¡δ⌐ Σá⌐½ }
  2288.     ovrNoMemory = -3;    { ¡Ñ σóáΓáÑΓ »á¼∩Γ¿ ñ½∩ «óÑα½Ñ⌐-
  2289.                            ¡«ú« íπΣÑαá }
  2290.     ovrIOError = -4;     { «Φ¿í¬á óó«ñá-óδó«ñá «óÑα½Ñ⌐¡«-
  2291.                            ú« Σá⌐½á }
  2292.     ovrNoEMSDriver = -5;  { ¡Ñ πßΓá¡«ó½Ñ¡ ñαá⌐óÑα EMS }
  2293.     ovrNoEMSMemory = -6;  { ¡Ñ σóáΓáÑΓ αáßΦ¿αÑ¡¡«⌐ »á¼∩Γ¿ }
  2294.  
  2295.                     Åα«µÑñπαδ ¿ Σπ¡¬µ¿¿
  2296.  
  2297.      é  «óÑα½Ñ⌐¡«¼  ¼«ñπ½Ñ  Overlay   «»αÑñÑ½Ñ¡δ   »α«µÑñπαδ
  2298. OvrInit,  OvrInitEMS, OvrSetBuf ¿ OvrclearBuf, á ΓᬪѠΣπ¡¬-
  2299. µ¿∩ OvrGetBuf. äá½ÑÑ »α¿óÑñÑ¡« ¬αáΓ¬«Ñ  «»¿ßá¡¿Ñ  ¬áªñ«⌐  ¿º
  2300. ¡¿σ. ü«½ÑÑ »«ñα«í¡á∩ ¿¡Σ«α¼áµ¿∩ ñáÑΓß∩ ó â½áóÑ 8 ("Åα«µÑñπαδ
  2301. ¿ Σπ¡¬µ¿¿").
  2302.  
  2303.                      Åα«µÑñπαá OvrInit
  2304.  
  2305.      procedure OvrInit(¿¼∩_Σá⌐½á : string);
  2306.  
  2307.      ¥Γá  »α«µÑñπαá  ¿¡¿µ¿á½¿º¿απÑΓ  »«ñß¿ßΓÑ¼π   π»αáó½Ñ¡¿∩
  2308. «óÑα½Ñ∩¼¿   ¿   «Γ¬αδóáÑΓ  «óÑα½Ñ⌐¡δ⌐  Σá⌐½.  àß½¿  »áαá¼ÑΓα
  2309. "¿¼∩_Σá⌐½á" ¡Ñ ºáñáÑΓ ñ¿ß¬«ó«ñ ¿½¿  ¬áΓὫú,  Γ«  »«ñß¿ßΓѼá
  2310. π»αáó½Ñ¡¿∩ «óÑα½Ñ∩¼¿ óδ»«½¡∩ÑΓ »«¿ß¬ Σá⌐½á ó ΓѬπΘѼ ¬áΓὫ-
  2311. úÑ, ¬áΓὫúÑ, ß«ñÑαªáΘѼ Σá⌐½δ .àòà (»α¿ αáí«ΓÑ ó «»Ñαᵿ«¡-
  2312. ¡«⌐ ß¿ßΓѼѠäÄæ 3.σ) ¿ ó ¬áΓὫúáσ, ºáñá¡¡δσ ß »«¼«Θ∞ε »ÑαÑ-
  2313. ¼Ñ¡¡«⌐ «»Ñαᵿ«¡¡«⌐ ßαÑñδ äÄæ PATH. é«º¼«ª¡δ¼¿ ¬«ñἿ  ó«ºó-
  2314. αáΓá  »«  «Φ¿í¬Ñ  ∩ó½∩εΓß∩  ¬«ñδ ovrError ¿½¿ ovrNotFound. é
  2315. ß½πτáÑ «Φ¿í¬¿ »«ñß¿ßΓѼá π»αáó½Ñ¡¿∩ «óÑα½Ñ∩¼¿ «ßΓáÑΓß∩ ¡Ñπß-
  2316. Γá¡«ó½Ñ¡¡«⌐,  ¿ »«»δΓ¬á óδºδóáΓ∞ «óÑα½Ñ⌐¡πε »α«úαá¼¼π »α¿óÑ-
  2317. ñÑΓ ¬ «Φ¿í¬¿ óαѼѡ¿ óδ»«½¡Ñ¡¿∩ 208.
  2318.  
  2319.            Åα¿¼Ñτá¡¿Ñ: Åα«µÑñπαá OvrInit  ñ«½ª¡á  óδºδóáΓ∞ß∩
  2320.       »ÑαÑñ  ½εí«⌐  ñαπú«⌐  »α«µÑñπα«⌐ »«ñß¿ßΓѼδ π»αáó½Ñ¡¿∩
  2321.       «óÑα½Ñ∩¼¿.
  2322.  
  2323.                     Åα«µÑñπαá OvrInitEMS
  2324.  
  2325.      procedure OvrInitEMS;
  2326.  
  2327.      äá¡¡á∩ »α«µÑñπαá, Ñß½¿ φΓ« ó«º¼«ª¡«, ºáúαπªáÑΓ «óÑα½Ñ⌐-
  2328. ¡δ⌐ Σá⌐½ ó αáßΦ¿αÑ¡¡πε »á¼∩Γ∞ (EMS).  Åα¿ φΓ«¼ óßÑ »«ß½Ññπε-
  2329. Θ¿Ñ ºáúαπº¬¿ «óÑα½ÑÑó ßó«ñ∩Γß∩ ¬ íδßΓα«⌐ »ÑαÑñáτÑ ¿¡Σ«α¼áµ¿¿
  2330. ¿º »á¼∩Γ¿  ó »á¼∩Γ∞.  é«º¼«ª¡δ¼¿ ¬«ñἿ  ó«ºóαáΓá »«  «Φ¿í¬Ñ
  2331. ∩ó½∩εΓß∩     ovrError,     ovrIOError,     ovrNoEMSError   ¿
  2332. ovrNoEMSMemory. Å«ñß¿ßΓѼá π»αáó½Ñ¡¿∩ «óÑα½Ñ∩¼¿  íπñÑΓ  »α«-
  2333. ñ«½ªáΓ∞ αáí«Γπ, ¡« «óÑα½Ñ¿ íπñπΓ ßτ¿ΓδóáΓ∞ß∩ ß ñ¿ß¬á.
  2334.  
  2335.            Åα¿¼Ñτá¡¿Ñ: êß»«½∞º«óá¡¿Ñ ñ½∩ αẼÑΘÑ¡¿∩ «óÑα½ÑÑó
  2336.       ó  »á¼∩Γ¿  »α«µÑñπαδ OvrInitEMS ¡Ñ πßΓαá¡∩ÑΓ ¡Ñ«íσ«ñ¿-
  2337.       ¼«ßΓ¿ αáí«Γδ ß «óÑα½Ñ⌐¡δ¼ íπΣÑα«¼. ÄóÑα½Ñ¿ ΓѼ ¡Ñ  ¼Ñ-
  2338.       ¡ÑÑ »ÑαÑñ ¿σ óδ»«½¡Ñ¡¿Ñ¼ ñ«½ª¡δ ¬«»¿α«óáΓ∞ß∩ ¿º »á¼∩Γ¿
  2339.       EMS ó «íδτ¡πε »á¼∩Γ∞  (ó  «óÑα½Ñ⌐¡δ⌐  íπΣÑα).  Äñ¡á¬«,
  2340.       »«ß¬«½∞¬π  »ÑαÑñáτá  ¿º »á¼∩Γ¿ ó »á¼∩Γ∞ «ßπΘÑßΓó½∩ÑΓß∩
  2341.       º¡áτ¿Γѽ∞¡« íδßΓαÑÑ, τѼ τΓÑ¡¿Ñ ß ñ¿ß¬á, ¡Ñ«íσ«ñ¿¼«ßΓ∞
  2342.       πóѽ¿τÑ¡¿∩ αẼÑαá «óÑα½Ñ⌐¡«ú« íπΣÑαá ßΓá¡«ó¿Γß∩ ¼Ñ¡ÑÑ
  2343.       «τÑó¿ñ¡«⌐.
  2344.  
  2345.                     Åα«µÑñπαá OvrSetBuf
  2346.  
  2347.      procedure OvrSetBuf(αẼÑα : longint)
  2348.  
  2349.      äá¡¡á∩ »α«µÑñπαá ºáñáÑΓ αẼÑα «óÑα½Ñ⌐¡«ú« íπΣÑαá. ô¬á-
  2350. ºá¡¡δ⌐ αẼÑα ñ«½ªÑ¡ íδΓ∞ í«½∞ΦÑ ¿½¿ αáóÑ¡ ¡áτá½∞¡«¼π αẼÑ-
  2351. απ «óÑα½Ñ⌐¡«ú« íπΣÑαá  ¿  íδΓ∞  í«½∞ΦÑ  ¿½¿  αáóÑ¡  º¡áτÑ¡¿ε
  2352. MemAvail,  »½εß ΓѬπΘ¿⌐ αẼÑα «óÑα½Ñ⌐¡«ú« íπΣÑαá. àß½¿ π¬á-
  2353. ºá¡¡δ⌐ αẼÑα í«½∞ΦÑ ΓѬπΘÑú« αẼÑαá, Γ« ß  ¡áτá½∞¡«⌐  úαá-
  2354. ¡¿µδ ñ¿¡á¼¿τÑ߬¿ αáß»αÑñѽ∩Ѽ«⌐ «í½áßΓ¿ »á¼∩Γ¿ «Γó«ñ¿Γß∩ ñ«-
  2355. »«½¡¿Γѽ∞¡«Ñ »α«ßΓαá¡ßΓó« (Γᬿ¼ «íαẫ¼, αẼÑα ñ¿¡á¼¿τÑ߬¿
  2356. αáß»αÑñѽ∩Ѽ«⌐ «í½áßΓ¿ π¼Ñ¡∞ΦáÑΓß∩). àß½¿ ªÑ ºáñá¡¡δ⌐ αẼÑα
  2357. ¼Ñ¡∞ΦÑ ΓѬπΘÑú« αẼÑαá, Γ« ¿ºíδΓ«τ¡«Ñ »α«ßΓαá¡ßΓó«  ó«ºóαá-
  2358. ΘáÑΓß∩ ó ñ¿¡á¼¿τÑ߬¿ αáß»αÑñѽ∩Ѽπε «í½áßΓ∞ »á¼∩Γ¿. Åα«µÑñπ-
  2359. αá OvrSetBuf ΓαÑíπÑΓ, τΓ«íδ ñ¿¡á¼¿τÑ߬¿  αáß»αÑñѽ∩Ѽá∩  «í-
  2360. ½áßΓ∞  »á¼∩Γ¿  íδ½á  »πßΓ«⌐. àß½¿ ß »«¼«Θ∞ε »α«µÑñπα New ¿½¿
  2361. GetMem πªÑ í뫨 «íαẫóá¡δ ñ¿¡á¼¿τÑ߬¿Ñ »ÑαѼѡ¡δÑ, Γ« ó«ºó-
  2362. αáΘáÑΓß∩  «Φ¿í¬á. é«º¼«ª¡δ¼¿ ¬«ñἿ ó«ºóαáΓá »« «Φ¿í¬Ñ ∩ó½∩-
  2363. εΓß∩ ovrError ¿ ovrNoMemory. àß½¿ »α«µÑñπαá OvrSetBuff ó«ºó-
  2364. αáΘáÑΓ «Φ¿í¬π, Γ« »«ñß¿ßΓѼá π»αáó½Ñ¡¿∩ «óÑα½Ñ∩¼¿ íπñÑΓ »α«-
  2365. ñ«½ªáΓ∞ αáí«Γπ, «ñ¡á¬« αẼÑα «óÑα½Ñ⌐¡«ú«  íπΣÑαá  «ßΓá¡ÑΓß∩
  2366. ¡Ñ¿º¼Ñ¡Ñ¡¡δ¼.
  2367.  
  2368.                     Åα«µÑñπαá OvrGetBuf
  2369.  
  2370.      function OvrGetBuf:longint;
  2371.  
  2372.      é«ºóαáΘáÑΓ ΓѬπΘ¿⌐ αẼÑα «óÑα½Ñ⌐¡«ú« íπΣÑαá.  ÅÑαó«¡á-
  2373. τá½∞¡«  «óÑα½Ñ⌐¡δ⌐  íπΣÑα ¿¼ÑÑΓ ¡á¿¼Ñ¡∞Φ¿⌐ ó«º¼«ª¡δ⌐ αẼÑα,
  2374. ß««ΓóÑΓßΓóπεΘ¿⌐ αẼÑαπ ¡á¿í«½∞ΦÑú« «óÑα½Ñ∩. Åα¿  óδ»«½¡Ñ¡¿¿
  2375. «óÑα½Ñ⌐¡«⌐ »α«úαá¼¼δ íπΣÑα Γᬫú« αẼÑαá óδñѽ∩ÑΓß∩ áóΓ«¼á-
  2376. Γ¿τÑ߬¿. (Åα¿¼Ñτá¡¿Ñ: ìáτá½∞¡δ⌐ αẼÑα íπΣÑαá  ¼«ªÑΓ  »αÑóδ-
  2377. ΦáΓ∞  64è,  Γᬠ ¬á¬ «¡ ó¬½ετáÑΓ ó ßÑí∩ ¬«ñ ¿ ñ«»«½¡¿Γѽ∞¡πε
  2378. ¿¡Σ«α¼áµ¿ε ñ½∩ ßἫú« í«½∞Φ«ú« «óÑα½Ñ∩.)
  2379.  
  2380.                    Åα«µÑñπαá OvrClearBuf
  2381.  
  2382.      procedure OvrClearBuf;
  2383.  
  2384.      äá¡¡á∩ »α«µÑñπαá «τ¿ΘáÑΓ «óÑα½Ñ⌐¡δ⌐ íπΣÑα.  éßÑ  ºáúαπ-
  2385. ªÑ¡¡δÑ  ó  ¡áßΓ«∩Θ¿⌐ ¼«¼Ñ¡Γ «óÑα½Ñ¿ πñá½∩εΓß∩ ¿º «óÑα½Ñ⌐¡«ú«
  2386. íπΣÑαá, óδ¡πªñá∩ »α¿  óßÑσ  »«ß½ÑñπεΘ¿σ  ó맮óáσ  «óÑα½Ñ⌐¡δσ
  2387. »α«úαá¼¼  óδ»«½¡∩Γ∞  ºáúαπº¬π  «óÑα½ÑÑ󠿺 «óÑα½Ñ⌐¡«ú« Σá⌐½á
  2388. (¿½¿ ¿º »á¼∩Γ¿ EMS). àß½¿ »α«µÑñπαá  OvrClearBuf  óδºδóáÑΓß∩
  2389. ¿º  «óÑα½Ñ∩, Γ« φëà«óÑα½Ñ⌐ íπñÑΓ ¡Ñ¼Ññ½Ñ¡¡« ºáúαπªÑ¡, »«¬á
  2390. ¡Ñ ºáóÑαΦ¿Γß∩ óδ»«½¡Ñ¡¿Ñ »α«µÑñπαδ  OvrClearBuf.  Å«ñß¿ßΓѼá
  2391. π»αáó½Ñ¡¿∩ «óÑα½Ñ∩¼¿ ¡¿¬«úñá ¡Ñ ΓαÑíπÑΓ «Γ óáß ó맮óá »α«µÑ-
  2392. ñπαδ OvrClearBuf. öá¬Γ¿τÑ߬¿, «íαáΘÑ¡¿Ñ ¬  ñá¡¡«⌐  »α«µÑñπαÑ
  2393. π¼Ñ¡∞Φ¿Γ »α«¿ºó«ñ¿Γѽ∞¡«ßΓ∞ óáΦÑ⌐ »α¿¬½áñ¡«⌐ ºáñáτ¿, Γᬠ¬á¬
  2394. φΓ« »α¿ó«ñ¿Γ ¬ »ÑαѺáúαπº¬Ñ «óÑα½ÑÑó. Å«φΓ«¼π ñá¡¡á∩  »α«µÑ-
  2395. ñπαá  »αÑñ¡áº¡áτÑ¡á ñ½∩ ¿ß»«½∞º«óá¡¿∩ ó «ß«íδσ ß½πτá∩σ, ¡á»-
  2396. α¿¼Ñα ñ½∩ óαѼѡ¡«ú« «ßó«í«ªñÑ¡¿∩ »á¼∩Γ¿,  ºá¡¿¼áѼ«⌐  «óÑα-
  2397. ½Ñ⌐¡δ¼ íπΣÑα«¼.
  2398.  
  2399.               Éáºαáí«Γ¬á »α«úαá¼¼ ß «óÑα½Ñ∩¼¿
  2400.  
  2401.      é φΓ«¼ αáºñѽѠñáÑΓß∩ ¡á¿í«½ÑÑ  ó᪡á∩  ¿¡Σ«α¼áµ¿∩  »α«
  2402. αáºαáí«Γ¬Ñ »α«úαá¼¼ ß «óÑαѽ∩¼¿. Åα«ß¼«Γα¿ΓÑ ÑÑ ó¡¿¼áΓѽ∞¡«:
  2403. ñ½∩ σ«α«ΦÑ⌐ αáí«Γδ »α¿¬½áñ¡δσ »α«úαá¼¼, ó ¬«Γ«αδσ  ¿ß»«½∞ºπ-
  2404. εΓß∩  «óÑα½Ñ¿,  ¼¡«ú¿Ñ «íßπªñáѼδÑ ó«»α«ßδ ∩ó½∩εΓß∩ ª¿º¡Ñ¡¡«
  2405. óáª¡δ¼¿.
  2406.  
  2407.                  âÑ¡Ñαᵿ∩ «óÑα½Ñ⌐¡«ú« ¬«ñá
  2408.  
  2409.      Æπαí«-Åá߬á½∞ ñ«»π߬áÑΓ ¿ß»«½∞º«óá¡¿Ñ ¼«ñπ½∩ ó ¬áτÑßΓóÑ
  2410. «óÑα½Ñ⌐¡«ú« Γ«½∞¬« ó Γ«¼ ß½πτáÑ, Ñß½¿ «¡ úÑ¡Ñα¿α«óá½ß∩ ß ñ¿-
  2411. αÑ¬Γ¿ó«⌐ {$O+}. è«úñá ºáñá¡á φΓá ñ¿αÑ¬Γ¿óá, úÑ¡ÑαáΓ«α óδ»«½-
  2412. ¡∩Ѽ«ú«  ¬«ñá »α¿ »ÑαÑñáτÑ ßΓ᫬¿ ¿º «ñ¡«⌐ «óÑα½Ñ⌐¡«⌐ »α«µÑ-
  2413. ñπαδ ó ñαπúπε ¿ ºáñá¡¿¿ »«ßΓ«∩¡¡δσ »áαá¼ÑΓα«ó  »αÑñ»α¿¡¿¼áÑΓ
  2414. «ß«íδÑ  ¼Ñαδ  »αÑñ«ßë᫪¡«ßΓ¿.  ìá»α¿¼Ñα, Ñß½¿ ¼«ñπ½∞ UnitA
  2415. ß«ñÑαª¿Γ »α«µÑñπαπ ß« ß½ÑñπεΘ¿¼ ºáú«½«ó¬«¼:
  2416.  
  2417.   procedure WriteStr(s: string);
  2418.  
  2419. ¿ ¼«ñπ½∞ UnitB ß«ñÑαª¿Γ «»ÑαáΓ«α:
  2420.  
  2421.   WriteStr('Hello word...');
  2422.  
  2423. Γ«  Æπαí«-Åá߬á½∞  »«¼ÑΘáÑΓ   ßΓ᫬«óπε   ¬«¡ßΓá¡Γπ   'Hello
  2424. word...' ó ßÑú¼Ñ¡Γ ¬«ñá ¼«ñπ½∩ UnitB ¿ »ÑαÑñáÑΓ π¬áºáΓѽ∞ ¡á
  2425. ¡Ñú« »α«µÑñπαÑ WriteStr. Äñ¡á¬«, Ñß½¿  «íá  ¼«ñπ½∩  ∩ó½∩εΓß∩
  2426. «óÑα½Ñ⌐¡δ¼¿, Γ« φΓ« αáí«ΓáΓ∞ ¡Ñ íπñÑΓ, »«ß¬«½∞¬π »α¿ «íαáΘÑ-
  2427. ¡¿¿ ó WriteStr ßÑú¼Ñ¡Γ ¬«ñá ¼«ñπ½∩ UnitB ¼«ªÑΓ íδΓ∞ »ÑαѬαδΓ
  2428. ¼«ñπ½Ñ¼ UnitA, ¿ ßßδ½¬á ¡á ßΓ᫬𠫬áªÑΓß∩ ¡Ññ«»πßΓ¿¼«⌐. ä½∩
  2429. Γ«ú«, τΓ«íδ ¿ºíѪáΓ∞ φΓ¿  »α«í½Ñ¼δ,  ¿ß»«½∞ºπÑΓß∩  ñ¿αÑ¬Γ¿óá
  2430. {$O+}. èáªñδ⌐ αáº, ¬«úñá Æπαí«-Åá߬á½∞ óßΓαÑτÑΓ «íαáΘÑ¡¿Ñ ¿º
  2431. «ñ¡«ú« ¼«ñπ½∩, ß¬«¼»¿½¿α«ó¡¡«ú« ß ñ¿αÑ¬Γ¿ó«⌐ {$O+}, ¬ ñαπú«-
  2432. ¼π  ¼«ñπ½ε, ß¬«¼»¿½¿α«óá¡¡«¼π ß ñ¿αÑ¬Γ¿ó«⌐ {$O+}, ¬«¼»¿½∩Γ«α
  2433. »ÑαÑñ »ÑαÑñáτÑ⌐ ßß佫¬ ¡á ¡¿σ «íÑß»Ñτ¿óáÑΓ óαѼѡ¡«Ñ ¬«»¿α«-
  2434. óá¡¿Ñ óßÑσ αẼÑΘÑ¡¡δσ ó ßÑú¼Ñ¡ΓÑ ¬«ñá ¬«¡ßΓá¡Γ ó ßΓѬ.
  2435.      êß»«½∞º«ó᡿Ѡ󠼫ñπ½Ñ ñ¿αÑ¬Γ¿óδ {$O+} ¡Ñ «í∩ºδóáÑΓ óáß
  2436. ¿ß»«½∞º«óáΓ∞  φë༫ñπ½∞, ¬á¬ «óÑα½Ñ⌐¡δ⌐. Ä¡á »α«ßΓ« π¬áºδ-
  2437. óáÑΓ Æπαí«-Åá߬á½ε ¡á ¡Ñ«íσ«ñ¿¼«ßΓ∞  «íÑß»ÑτÑ¡¿∩,  Ñß½¿  φΓ«
  2438. ¡πª¡«,  ¿ß»«½∞º«óá¡¿∩ ñá¡¡«ú« ¼«ñπ½∩ ó ¬áτÑßΓóÑ «óÑα½Ñ⌐¡«ú«.
  2439. àß½¿ óδ αáºαáíáΓδóáÑΓÑ ¼«ñπ½¿, ¬«Γ«αδÑ »½á¡¿απÑΓÑ  ¿ß»«½∞º«-
  2440. óáΓ∞  ¬á¬  ó  «óÑα½Ñ⌐¡δσ,  Γᬠ ¿  ó ¡Ñ«óÑα½Ñ⌐¡δσ »α¿¬½áñ¡δσ
  2441. »α«úαá¼¼áσ, Γ« ¬«¼»¿½∩µ¿∩ ¿σ ß ñ¿αÑ¬Γ¿ó«⌐ {$O+} «íÑß»Ñτ¿óáÑΓ
  2442. ¿ß»«½∞º«óá¡¿Ñ «ñ¡«⌐ óÑαß¿¿ ¼«ñπ½∩ ñ½∩ «í«¿σ ß½πτáÑó.
  2443.  
  2444.        ÆαÑí«óá¡¿Ñ ¿ß»«½∞º«óá¡¿∩ ñá½∞¡Ñú« Γ¿»á ó맮ó«ó
  2445.  
  2446.      èᬠπªÑ π»«¼¿¡á½«ß∞ αá¡ÑÑ, »α¿ ½εí«¼ «íαáΘÑ¡¿¿ ¬  «óÑα-
  2447. ½Ñ⌐¡«⌐  »α«µÑñπαÑ  ¿½¿  Σπ¡¬µ¿¿  ¿º ñαπú«ú« ¼«ñπ½∩ óδ ñ«½ª¡δ
  2448. «íÑß»Ñτ¿Γ∞ ñ½∩ óßÑσ á¬Γ¿ó¡δσ »α«µÑñπα ¿ Σπ¡¬µ¿⌐ ó맮óδ  Γ¿»á
  2449. FAR (ñá½∞¡¿⌐ Γ¿» ó맮óá).
  2450.      ¥Γ« ¼«ª¡« σ«α«Φ« »α«¿½½εßΓα¿α«óáΓ∞ ¡á ß½ÑñπεΘѼ  »α¿¼Ñ-
  2451. αÑ.  ÅαÑñ»«½«ª¿¼,  τΓ«  OvrA  »αÑñßΓáó½∩ÑΓ ß«í«⌐ »α«µÑñπαπ ó
  2452. «óÑα½Ñ⌐¡«¼ ¼«ñπ½Ñ, á »α«µÑñπαδ MainC ¿ MainD -  »α«µÑñπαδ  ó
  2453. «ß¡«ó¡«⌐  »α«úαá¼¼Ñ. àß½¿ «ß¡«ó¡á∩ »α«úαá¼¼á óδºδóáÑΓ MainC,
  2454. ¬«Γ«αá∩ óδºδóáÑΓ »α«µÑñπαπ MainB, ¬«Γ«αá∩ ó ßó«ε «τÑαÑñ∞ «í-
  2455. αáΘáÑΓß∩ ¬ »α«µÑñπαÑ OvrA, Γ« ó« óαѼ∩ «íαáΘÑ¡¿∩ ¬ »α«µÑñπαÑ
  2456. OvrA »α«µÑñπαδ MainC ¿ MainB ∩ó½∩εΓß∩ á¬Γ¿ó¡δ¼¿ («¡¿ ÑΘÑ  ¡Ñ
  2457. óδ»«½¡¿½¿  ó«ºóαáΓ π»αáó½Ñ¡¿∩), »«φΓ«¼π ¡Ñ«íσ«ñ¿¼« ¿ß»«½∞º«-
  2458. óáΓ∞ ñ½∩ ¡¿σ ñá½∞¡¿⌐ Γ¿» ó맮óá. Ä»¿ßá¡¡δÑ ó «ß¡«ó¡«⌐  »α«ú-
  2459. αá¼¼Ñ, »α«µÑñπαδ MainC ¿ MainB ó «íδτ¡«⌐ ß¿Γπᵿ¿ ¿ß»«½∞ºπεΓ
  2460. í½¿ª¡¿⌐ Γ¿» ó맮ó«ó (NEAR). æ »«¼«Θ∞ε ñ¿αÑ¬Γ¿óδ  ¬«¼»¿½∩Γ«αá
  2461. {$F+} ¡Ñ«íσ«ñ¿¼« ºáñáΓ∞ ñá½∞¡¿⌐ Γ¿» ó맮ó«ó.
  2462.      æá¼δ⌐ ½Ñú¬¿⌐ ß»«ß«í πñ«ó½ÑΓó«αÑ¡¿∩ ΓαÑí«óá¡¿∩ ¿ß»«½∞º«-
  2463. óá¡¿∩  ñá½∞¡Ñú«  Γ¿»á  ó맮ó«ó ß«ßΓ«¿Γ ó αẼÑΘÑ¡¿¿ ó ¡áτá½Ñ
  2464. «ß¡«ó¡«⌐ »α«úαá¼¼δ  ¿  ó  ¡áτá½Ñ  ¬áªñ«ú«  ¼«ñπ½∩  ñ¿αÑ¬Γ¿óδ
  2465. {$F+}. Ç½∞ΓÑα¡áΓ¿ó¡δ⌐ ß»«ß«í ß«ßΓ«¿Γ ó ¿º¼Ñ¡Ñ¡¿¿ »α¿¡∩Γ«⌐ »«
  2466. π¼«½τá¡¿ε πßΓᡫ󬿠$F ¡á {$F+} ß »«¼«Θ∞ε  ñ¿αÑ¬Γ¿óδ  ¬«¼á¡-
  2467. ñ¡«⌐  ßΓ᫬¿  /$F+  (ÆÉæ.àòà)  ¿½¿  ß  »«¼«Θ∞ε  ¼Ñ¡ε  ¬«¼á¡ñ
  2468. O/C/Force Far Calls ó ßαÑñÑ ¿¡ΓÑαá¬Γ¿ó¡«ú«  ¬«¼»¿½∩Γ«αá.  Å«
  2469. ßαáó¡Ñ¡¿ε ß« ß¼ÑΦá¡¡δ¼  ¿ß»«½∞º«ó᡿Ѽ  ó맮ó«ó  í½¿ª¡Ñú«  ¿
  2470. ñá½∞¡Ñú« Γ¿»á ¿ß»«½∞º«óá¡¿Ñ ó맮ó«ó Γ«½∞¬« Γ¿»á FAR ¡Ñ  »α¿-
  2471. ó«ñ¿Γ ¬ «ß«íÑ¡¡« í«½∞Φ¿¼ ñ«»«½¡¿Γѽ∞¡δ¼ ºáΓαáΓá¼ »á¼∩Γ¿: ñ½∩
  2472. φΓ«ú« ΓαÑíπÑΓß∩ «ñ¡« ñ«»«½¡¿Γѽ∞¡«Ñ ß½«ó« »α«ßΓαá¡ßΓóá ßΓѬá
  2473. ¡á á¬Γ¿ó¡πε »α«µÑñπαπ ¿ «ñ¿¡ ñ«»«½¡¿Γѽ∞¡δ⌐  íá⌐Γ ¡á  ¬áªñδ⌐
  2474. ó맮ó.
  2475.  
  2476.        ê¡¿µ¿á½¿ºáµ¿∩ »«ñß¿ßΓѼδ π»αáó½Ñ¡¿∩ «óÑα½Ñ∩¼¿
  2477.  
  2478.      çñÑß∞ ¼δ αáßß¼«Γα¿¼ ¡Ñ¬«Γ«αδÑ »α¿¼Ñαδ Γ«ú«, ¬á¬ ¿¡¿µ¿á-
  2479. ½¿º¿απÑΓß∩  »«ñß¿ßΓѼá π»αáó½Ñ¡¿∩ «óÑα½Ñ∩¼¿. è«ñ ¿¡¿µ¿á½¿ºá-
  2480. µ¿¿ ñ«½ªÑ¡ íδΓ∞ »«¼ÑΘÑ¡ »ÑαÑñ »Ñαóδ¼ «íαáΘÑ¡¿Ñ¼ ¬ «óÑα½Ñ⌐¡«⌐
  2481. »α«úαá¼¼Ñ. ê¡¿µ¿á½¿ºáµ¿ε «íδτ¡« ß½ÑñπÑΓ ñѽáΓ∞ ó «»ÑαáΓ«α¡«⌐
  2482. τáßΓ¿ »α«úαá¼¼δ.
  2483.      æ½ÑñπεΘá∩ τáßΓ∞ »α«úαá¼¼δ »«¬áºδóáÑΓ, ¬á¬ ¡Ñ¼¡«ú«  ΓαÑ-
  2484. íπÑΓß∩  ñ½∩ Γ«ú«, τΓ«íδ ¿¡¿µ¿á½¿º¿α«óáΓ∞ »«ñß¿ßΓѼπ π»αáó½Ñ-
  2485. ¡¿∩ «óÑα½Ñ∩¼¿.
  2486.  
  2487.   begin
  2488.     OvrInit('EDITOR.OVR');
  2489.   end;
  2490.  
  2491.      Åα«óÑα¬á ¡á «Φ¿í¬¿ ¡Ñ ñѽáÑΓß∩. Å«φΓ«¼π Ñß½¿ ñ½∩  «óÑα-
  2492. ½Ñ⌐¡«ú« íπΣÑαá ¡Ñ σóáΓáÑΓ »á¼∩Γ¿ ¿½¿ «óÑα½Ñ⌐¡δ⌐ Σá⌐½ ¡Ñ ¡á⌐-
  2493. ñÑ¡, Γ« »α¿ »«»δΓ¬Ñ ó맮óá «óÑα½Ñ⌐¡«⌐  »α«úαá¼¼δ  »α«¿º«⌐ñÑΓ
  2494. «Φ¿í¬á  208  (Overlay manager not installed - »«ñß¿ßΓѼá π»-
  2495. αáó½Ñ¡¿∩ «óÑα½Ñ∩¼¿ ¡Ñ πßΓá¡«ó½Ñ¡á).
  2496.      Åα¿óÑñѼ ñαπú«⌐ ¡Ñí«½∞Φ«⌐ »α¿¼Ñα, ∩ó½∩εΘ¿⌐ß∩ αáßΦ¿αÑ¡¿-
  2497. Ѽ »αÑñδñπΘÑú«.
  2498.  
  2499.   begin
  2500.     OvrInit('EDITOR.OVR');
  2501.     OvrInitEMS;
  2502.   end;
  2503.  
  2504.      é φΓ«¼ ß½πτáÑ, Ñß½¿ »αÑñ»«½«ª¿Γ∞, τΓ«  ñ½∩  «óÑα½Ñ⌐¡«ú«
  2505. íπΣÑαá  ¿¼ÑÑΓß∩ ñ«ßΓáΓ«τ¡« »á¼∩Γ¿ ¿ τΓ« ¼«ª¡« ¡á⌐Γ¿ «óÑα½Ñ⌐-
  2506. ¡δ⌐ Σá⌐½, »«ñß¿ßΓѼá π»αáó½Ñ¡¿∩ «óÑα½Ñ∩¼¿ »α«óÑα∩ÑΓ, ¿¼ÑÑΓß∩
  2507. ½¿  »á¼∩Γ∞  EMS, ¿ Ñß½¿ φΓ« Γá¬, ºáúαπªáÑΓ «óÑα½Ñ⌐¡δ⌐ Σá⌐½ ó
  2508. αáßΦ¿αÑ¡¡πε »á¼∩Γ∞.
  2509.      èᬠπªÑ π»«¼¿¡á½«ß∞ αá¡ÑÑ, ¡áτá½∞¡δ⌐ αẼÑα «óÑα½Ñ⌐¡«ú«
  2510. íπΣÑαá  óδí¿αáÑΓß∩  ¼¿¡¿¼á½∞¡«  ó«º¼«ª¡δ¼ ¿½¿, ¿¡áτÑ ú«ó«α∩,
  2511. ¡áßΓ«½∞¬« í«½∞Φ¿¼, τΓ«íδ ó¼ÑßΓ¿Γ∞ «óÑα½Ñ⌐ ¡á¿í«½∞ΦÑú« αẼÑ-
  2512. αá.  ä½∩  ¡Ñ¬«Γ«αδσ »α¿¬½áñ¡δσ ºáñáτ φΓ«ú« ¼«ªÑΓ íδΓ∞ ñ«ßΓá-
  2513. Γ«τ¡δ¼, «ñ¡á¬« »αÑñßΓáó¿¼  ß¿Γπᵿε,  »α¿  ¬«Γ«α«⌐  «ñ¡á  ¿º
  2514. Σπ¡¬µ¿⌐ »α«úαá¼¼δ αÑ὿ºπÑΓß∩ ß »«¼«Θ∞ε ñóπσ ¿½¿ í«½ÑÑ ¼«ñπ-
  2515. ½Ñ⌐, ¬áªñδ⌐ ¿º ¬«Γ«αδ⌐ ∩ó½∩ÑΓß∩ «óÑα½Ñ⌐¡δ¼. àß½¿ «íΘ¿⌐  αáº-
  2516. ¼Ñα Γá¬¿σ ¼«ñπ½Ñ⌐ í«½∞ΦÑ, τѼ αẼÑα ¡á¿í«½∞ΦÑú« «óÑα½Ñ∩, Γ«
  2517. τáßΓ«Ñ «íαáΘÑ¡¿Ñ ¼«ñπ½Ñ⌐ ñαπú ¬ ñαπúπ  »α¿óÑñÑΓ  ¬  í«½∞Φ«¼π
  2518. ßó«»¿¡úπ.
  2519.      ÄτÑó¿ñ¡«, αÑΦÑ¡¿Ñ ºá¬½ετáÑΓß∩ ó  Γ«¼,  τΓ«íδ  πóѽ¿τ¿Γ∞
  2520. αẼÑα  «óÑα½Ñ⌐¡«ú«  íπΣÑαá Γᬿ¼ «íαẫ¼, τΓ«íδ ó ½εí«⌐ ºá-
  2521. ñá¡¡δ⌐ ¼«¼Ñ¡Γ óαѼѡ¿ ¿¼Ñ½«ß∞ ñ«ßΓáΓ«τ¡«  »á¼∩Γ¿  ñ½∩  Γ«ú«,
  2522. τΓ«íδ  ß«ñÑαªáΓ∞ ó ßÑíÑ óßÑ «óÑα½Ñ¿, τáßΓ« «íαáΘáεΘ¿Ñß∩ ñαπú
  2523. ¬ ñαπúπ. æ½ÑñπεΘá∩ τáßΓ∞ »α«úαá¼¼δ »«¬áºδóáÑΓ  ¿ß»«½∞º«óá¡¿Ñ
  2524. ñ½∩   πóѽ¿τÑ¡¿∩   αẼÑαá   «óÑα½Ñ⌐¡«ú«   íπΣÑαá  »α«µÑñπαδ
  2525. OvrSetBuf:
  2526.  
  2527.   const
  2528.     OvrMaxSize = 80000;
  2529.   begin
  2530.     OvrInit('EDITOR.OVR');
  2531.     OvrInitEMS;
  2532.     OvrSetBuf(OvrMaxSize);
  2533.   end;
  2534.  
  2535.      ä½∩ «»αÑñѽѡ¿∩ ¿ñÑá½∞¡«ú« αẼÑαá  «óÑα½Ñ⌐¡«ú«  íπΣÑαá
  2536. «íΘ¿σ αѬ«¼Ñ¡ñᵿ⌐ ¡ÑΓ. Å«ñσ«ñ∩ΘÑÑ º¡áτÑ¡¿Ñ ¼«ª¡« «»αÑñѽ¿Γ∞
  2537. Γ«½∞¬« ¿¼Ñ∩  ¡Ñ¬«Γ«απε  ¿¡Σ«α¼áµ¿ε  «  »α¿¬½áñ¡«⌐  ºáñáτ¿  ¿
  2538. φ¬ß»Ñα¿¼Ñ¡Γá½∞¡δ¼ »πΓѼ.
  2539.  
  2540.            Åα¿¼Ñτá¡¿Ñ:  êß»«½∞º«óá¡¿Ñ  »α«µÑñπαδ  OvrInitEMS
  2541.       ñ½∩  αẼÑΘÑ¡¿∩ «óÑα½Ñ⌐¡«ú« Σá⌐½á ó αáßΦ¿αÑ¡¡«⌐ »á¼∩Γ¿
  2542.       ¡Ñ πßΓαá¡∩ÑΓ ¡Ñ«íσ«ñ¿¼«ßΓ¿ αáí«Γδ ß  «óÑα½Ñ⌐¡δ¼  íπΣÑ-
  2543.       α«¼.  éÑñ∞  «óÑα½Ñ¿  »ÑαÑñ  óδ»«½¡Ñ¡¿Ñ¼  ΓѼ  ¡Ñ ¼Ñ¡ÑÑ
  2544.       ñ«½ª¡δ ¬«»¿α«óáΓ∞ß∩ ¿º αáßΦ¿αÑ¡¡«⌐  »á¼∩Γ¿  ó  «íδτ¡πε
  2545.       (Γ«  ÑßΓ∞ ó «óÑα½Ñ⌐¡δ⌐ íπΣÑα). Äñ¡á¬«, »«ß¬«½∞¬π ΓᬿÑ
  2546.       »ÑαÑñáτ¿ ¿º »á¼∩Γ¿ ó  »á¼∩Γ∞  óδ»«½¡∩εΓß∩  º¡áτ¿Γѽ∞¡«
  2547.       íδßΓαÑÑ, τѼ τΓÑ¡¿Ñ ß ñ¿ß¬á, Γ« ¡Ñ«íσ«ñ¿¼«ßΓ∞ πóѽ¿τÑ-
  2548.       ¡¿∩ αẼÑαá «óÑα½Ñ⌐¡«ú« íπΣÑαá ßΓá¡«ó¿Γß∩  ¼Ñ¡ÑÑ  «τÑ-
  2549.       ó¿ñ¡«⌐.  ìπª¡«  ΓᬪѠ »«¼¡¿Γ∞  «  Γ«¼,  τΓ« »α«µÑñπαá
  2550.       OvrSetBuf πóѽ¿τ¿óáÑΓ  αẼÑα  «óÑα½Ñ⌐¡«ú«  íπΣÑαá  ºá
  2551.       ßτÑΓ π¼Ñ¡∞ΦÑ¡¿∩ αẼÑαá ñ¿¡á¼¿τÑ߬¿ αáß»αÑñѽ∩Ѽ«⌐ «í-
  2552.       ½áßΓ¿ »á¼∩Γ¿. Æᬿ¼ «íαẫ¼, ñ¿¡á¼¿τÑ߬¿  αáß»αÑñѽ∩Ñ-
  2553.       ¼á∩   «í½áßΓ∞  ñ«½ª¡á  íδΓ∞  »πßΓ«⌐,  ¿¡áτÑ  »α«µÑñπαá
  2554.       OvrSetBuf ¡Ñ «¬áªÑΓ ¡¿¬á¬«ú« ñÑ⌐ßΓó¿∩. àß½¿ óδ ¿ß»«½∞-
  2555.       ºπÑΓÑ  ¼«ñπ½∞  Graph, πíÑñ¿ΓÑß∞ ó Γ«¼, τΓ« óδ «íαáΘáÑ-
  2556.       ΓÑß∞ ¬ »α«µÑñπαÑ  OvrSetBuf  »ÑαÑñ  óδº«ó«¼  »α«µÑñπαδ
  2557.       InitGraph, ¬«Γ«αá∩ óδñѽ∩ÑΓ »á¼∩Γ∞ ó ñ¿¡á¼¿τÑ߬¿ αáß»-
  2558.       αÑñѽ∩Ѽ«⌐ «í½áßΓ¿.
  2559.  
  2560.      Åα¿óÑñѼ ΓÑ»Ñα∞ í«½ÑÑ ¿ßτÑα»δóáεΘ¿⌐ »α¿¼Ñα  ¿¡¿µ¿á½¿ºá-
  2561. µ¿¿  »«ñß¿ßΓѼδ π»αáó½Ñ¡¿∩ «óÑα½Ñ∩¼¿, ó¬½ετáεΘÑ⌐ ó ßÑí∩ »«½-
  2562. ¡πε »α«óÑα¬π ¡á ó«º¼«ª¡«Ñ ó«º¡¿¬¡«óÑ¡¿Ñ «Φ¿í«¬.
  2563.  
  2564.   const
  2565.     OvrMaxSize = 80000;
  2566.   var
  2567.     OvrName: string[79];
  2568.     Size: Longint;
  2569.   begin
  2570.     OvrName:='EDITOR.OVR';
  2571.     repeat
  2572.       OvrInit(OvrName);
  2573.       if OvrResult=ovrNotFound then
  2574.       begin
  2575.         WriteLn('ÄóÑα½Ñ⌐¡δ⌐ Σá⌐½ ¡Ñ ¡á⌐ñÑ¡');
  2576.         WriteLn('éóÑñ¿ΓÑ »αáó¿½∞¡«Ñ ¿¼∩ «óÑα½Ñ⌐¡«ú«
  2577.  Σá⌐½á:');
  2578.         ReadLn(OvrName);
  2579.       end;
  2580.      until OvrResult<>ovrNotFound;
  2581.      if OvrResult<>ovrOk then
  2582.      begin
  2583.        WriteLn('ÄΦ¿í¬á «»ñß¿ßΓѼδ π»αáó½Ñ¡¿∩ «óÑα½Ñ∩¼¿.')
  2584.        Halt(1);
  2585.      end;
  2586.      OvrInEMS;
  2587.      if OvrResult<>OvrOk then
  2588.      begin
  2589.        case OvrResult of
  2590.          ovrIOError:      Write('ÄΦ¿í¬á óó«ñá-óδó«ñá
  2591.                                  «óÑα½Ñ⌐¡«ú« Σá⌐½á');
  2592.          ovrNoEMSDriver:  Write('äαá⌐óÑα EMS ¡Ñ
  2593.                                  πßΓá¡«ó½Ñ¡');
  2594.          ovrNoEMSMemory:  Write('ìÑ σóáΓáÑΓ αáßΦ¿αÑ¡¡«⌐
  2595.                                  »á¼∩Γ¿');
  2596.      end;
  2597.      Write('. ì᪼¿ΓÑ ¬½áó¿Φπ Enter...');
  2598.      ReadLn;
  2599.    end;
  2600.    OvrSetBuf(OvrMaxSize);
  2601.   end;
  2602.  
  2603.      æ¡áτá½á, Ñß½¿ »α¿¡∩Γ«Ñ  »«  π¼«½τá¡¿ε  ¿¼∩  «óÑα½Ñ⌐¡«ú«
  2604. Σá⌐½á í佫 ¡ÑóÑα¡δ¼, »«½∞º«óáΓѽε íπñÑΓ óδó«ñ¿Γ∞ß∩ »«ñ߬Ậá
  2605. ¡á óóÑñÑ¡¿Ñ »αáó¿½∞¡«ú« ¿¼Ñ¡¿ Σá⌐½á.
  2606.      äá½ÑÑ »α«óÑα∩εΓß∩ ñαπú¿Ñ «Φ¿í¬¿, ¬«Γ«αδÑ ¼«úπΓ »α«¿º«⌐-
  2607. Γ¿  »α¿ ¿¡¿µ¿á½¿ºáµ¿¿. é ß½πτáÑ «í¡áαπªÑ¡¿∩ «Φ¿í¬¿ »α«úαá¼¼á
  2608. «ßΓá¡áó½¿óáÑΓß∩, Γᬠ¬á¬ «Φ¿í¬¿ ó OvrInit ∩ó½∩εΓß∩ ΣáΓá½∞¡δ-
  2609. ¼¿.  (àß½¿ «¡¿ ¿ú¡«α¿απεΓß∩, Γ« »α¿ »Ñαó«¼ «íαáΘÑ¡¿¿ ¬ «óÑα-
  2610. ½Ñ⌐¡«⌐ »α«úαἼѠó« óαѼ∩ óδ»«½¡Ñ¡¿∩ »α«¿º«⌐ñÑΓ «Φ¿í¬á.)
  2611.      àß½¿ »αÑñ»«½«ª¿Γ∞, τΓ« ¿¡¿µ¿á½¿ºáµ¿∩ »α«σ«ñ¿Γ  πß»ÑΦ¡«,
  2612. ñá½ÑÑ  ñ½∩  ºáúαπº¬¿  «óÑα½Ñ⌐¡«ú« Σá⌐½á ó αáßΦ¿αÑ¡¡πε »á¼∩Γ∞
  2613. (Ñß½¿  φΓ«  ó«º¼«ª¡«)  óδ»«½¡∩ÑΓß∩  «íαáΘÑ¡¿Ñ  ¬   »α«µÑñπαÑ
  2614. OvrInitEMS. é ß½πτáÑ «Φ¿í¬¿ ¡á φ¬αá¡ óδó«ñ¿Γß∩ ñ¿áú¡«ßΓ¿τÑß-
  2615. ¬«Ñ ß««íΘÑ¡¿Ñ, «ñ¡á¬« »α«úαἼᠡѠ «ßΓá¡áó½¿óáÑΓß∩.  é¼ÑßΓ«
  2616. φΓ«ú« «¡á »α«ßΓ« »α«ñ«½ªáÑΓ ßτ¿ΓδóáΓ∞ «óÑα½Ñ¿ ß ñ¿ß¬á.
  2617.      ìᬫ¡Ñµ, ñ½∩ ºáñá¡¿∩ º¡áτÑ¡¿∩ αẼÑαá «óÑα½Ñ⌐¡«ú« íπΣÑ-
  2618. αá,  «»αÑñѽѡ¡«ú« ß »«¼«Θ∞ε á¡á½¿ºá ¿½¿ φ¬ß»Ñα¿¼Ñ¡Γá ß ¬«¡-
  2619. ¬αÑΓ¡«⌐   »α¿¬½áª¡«⌐   »α«úαá¼¼«⌐,   óδºδóáÑΓß∩    »α«µÑñπαá
  2620. OvrSetBuf.  ÄΦ¿í¬¿,  ¬«Γ«αδÑ ¼«úπΓ ó«º¡¿¬¡πΓ∞ »α¿ óδ»«½¡Ñ¡¿¿
  2621. ñá¡¡«⌐ »α«µÑñπαδ, ¿ú¡«α¿απεΓß∩, σ«Γ∩ OvrResult ¼«ªÑΓ ó«ºóαá-
  2622. ΘáΓ∞  ¬«ñ  ó«ºóαáΓá  »« «Φ¿í¬Ñ -3 (OvrNoMemory). àß½¿ »á¼∩Γ¿
  2623. ¡Ññ«ßΓáΓ«τ¡«, »«ñß¿ßΓѼá π»αáó½Ñ¡¿∩ «óÑα½Ñ∩¼¿  íπñÑΓ  »α«ßΓ«
  2624. »α«ñ«½ªáΓ∞ ¿ß»«½∞º«óáΓ∞ íπΣÑα ¼¿¡¿¼á½∞¡«ú« αẼÑαá, óδñѽѡ-
  2625. ¡δ⌐ »α¿ ºá»π߬Ѡ»α«úαá¼¼δ.
  2626.  
  2627.          ÉáºñÑ½δ ¿¡¿µ¿á½¿ºáµ¿¿ ó «óÑα½Ñ⌐¡δσ ¼«ñπ½∩σ
  2628.  
  2629.      Ç¡á½«ú¿τ¡« ßΓáΓ¿τÑ߬¿¼ ¼«ñπ½∩¼ «óÑα½Ñ⌐¡δÑ ¼«ñπ½¿  ¼«úπΓ
  2630. ß«ñÑαªáΓ∞  αáºñѽ ¿¡¿µ¿á½¿ºáµ¿¿. ò«Γ∩ «óÑα½Ñ⌐¡δ⌐ ¬«ñ ¿¡¿µ¿á-
  2631. ½¿ºáµ¿¿ ¡Ñ «Γ½¿τáÑΓß∩ «Γ «íδτ¡«ú« ¬«ñá  ¿¡¿µ¿á½¿ºáµ¿¿,  »«ñ-
  2632. ß¿ßΓѼᠠπ»αáó½Ñ¡¿∩ «óÑα½Ñ∩¼¿ ñ«½ª¡á íδΓ∞ »Ñαó«¡áτá½∞¡« ¿¡¿-
  2633. µ¿á½¿º¿α«óá¡á Γᬿ¼ «íαẫ¼, τΓ«íδ «¡á ¼«ú½á ºáúαπªáΓ∞ ¿ óδ-
  2634. »«½¡∩Γ∞ «óÑα½Ñ⌐¡δÑ ¼«ñπ½¿.
  2635.      éº∩ó ó ¬áτÑßΓóÑ »α¿¼Ñαá αá¡ÑÑ  αáßß¼«ΓαÑ¡¡πε  »α«úαá¼¼π
  2636. Editor,  »αÑñ»«½«ª¿¼,  τΓ«  ¼«ñπ½¿ EdInOut ¿ EdMain ß«ñÑαªáΓ
  2637. ¬«ñ  ¿¡¿µ¿á½¿ºáµ¿¿.  Åα¿  φΓ«¼  ΓαÑíπÑΓß∩,  τΓ«íδ  »α«µÑñπαá
  2638. OvrInit óδºδóá½áß∞ »ÑαÑñ ¬«ñ«¼ ¿¡¿µ¿á½¿ºáµ¿¿ ¼«ñπ½∩ EdInOut,
  2639. ¿ Ññ¿¡ßΓóÑ¡¡δ⌐ ß»«ß«í «ßπΘÑßΓó¿Γ∞ φΓ«  ß«ßΓ«¿Γ  ó«  óóÑñÑ¡¿¿
  2640. ñ«»«½¡¿Γѽ∞¡«ú«  ¡Ñ«óÑα½Ñ⌐¡«ú« ¼«ñπ½∩, ¬«Γ«αδ⌐ ß½ÑñπÑΓ »ÑαÑñ
  2641. EdInOut ¿ óδºδóáÑΓ ó ßó«Ñ¼ αáºñѽѠ ¿¡¿µ¿á½¿ºáµ¿¿  »α«µÑñπαπ
  2642. OvrInit.
  2643.  
  2644.   unit EdInit;
  2645.   interface
  2646.   implementation
  2647.   uses Overlay;
  2648.   const
  2649.     OvrMaxSize = 80000;
  2650.   begin
  2651.     OvrInit('EDITOR.OVR');
  2652.     OvrInitEMS;
  2653.     OvrSetBuf(OvrMaxSize);
  2654.   end.
  2655.  
  2656.      é »αÑñ½«ªÑ¡¿¿  ¿ß»«½∞º«óá¡¿∩  »α«úαá¼¼δ  ¼«ñπ½∞  EdInit
  2657. ñ«½ªÑ¡ ß½Ññ«óáΓ∞ »ÑαÑñ óßѼ¿ «óÑα½Ñ⌐¡δ¼¿ ¼«ñπ½∩¼¿:
  2658.  
  2659.   program Editor;
  2660.   {$F}
  2661.   uses
  2662.    Overlay,Crt,Dos,EdInit,EdInOut,EdFormat,EdPrint,EdMain;
  2663.   {$O EdInOut }
  2664.   {$O EdFormat }
  2665.   {$O EdPrint }
  2666.   {$O EdFind }
  2667.   {$O EdMain }
  2668.  
  2669.      é «íΘѼ ß½πτáÑ, σ«Γ∩ ¿ß»«½∞º«óá¡¿Ñ ¬«ñá ¿¡¿µ¿á½¿ºáµ¿¿ ó
  2670. «óÑα½Ñ⌐¡δσ ¼«ñπ½∩σ ¿ ñ«»π߬áÑΓß∩, »« α∩ñπ »α¿τ¿¡ Ñú« ß½ÑñπÑΓ
  2671. ¿ºíÑúáΓ∞.
  2672.      é«-»Ñαóδσ, ¬«ñ ¿¡¿µ¿á½¿ºáµ¿¿, ñáªÑ Ñß½¿ «¡  óδ»«½¡∩ÑΓß∩
  2673. Γ«½∞¬«  «ñ¿¡  αáº,  ∩ó½∩ÑΓß∩ τáßΓ∞ε «óÑα½Ñ∩ ¿ íπñÑΓ ºá¡¿¼áΓ∞
  2674. »α«ßΓαá¡ßΓó« ó «óÑα½Ñ⌐¡«¼ íπΣÑαÑ »α¿ ¬áªñ«⌐  ºáúαπº¬Ñ  «óÑα-
  2675. ½Ñ∩. é«-óΓ«αδσ, Ñß½¿ í«½∞Φ«Ñ τ¿ß½« «óÑα½Ñ⌐¡δσ ¼«ñπ½Ñ⌐ ß«ñÑα-
  2676. ªáΓ ¬«ñ ¿¡¿µ¿á½¿ºáµ¿¿, ¬áªñδ⌐ ¿º ¡¿σ  »α¿ñÑΓß∩  ßτ¿ΓδóáΓ∞  ó
  2677. »á¼∩Γ∞ »α¿ ºáúαπº¬Ñ »α«úαá¼¼δ.
  2678.      ìἡ«ú« í«½ÑÑ »α¿ó½Ñ¬áΓѽ∞¡δ⌐  »«ñσ«ñ  ß«ßΓ«¿Γ  ó  Γ«¼,
  2679. τΓ«íδ  ß«íαáΓ∞  óÑß∞  ¬«ñ  ¿¡¿µ¿á½¿ºáµ¿¿ ó «óÑα½Ñ⌐¡δ⌐ ¼«ñπ½∞
  2680. ¿¡¿µ¿á½¿ºáµ¿¿, ¬«Γ«αδ⌐ óδºδóáÑΓß∩ Γ«½∞¬« «ñ¿¡ αẠ »α¿  ºáú-
  2681. απº¬Ñ »α«úαá¼¼δ ¿ ¬ ¬«Γ«α«¼π ºáΓѼ »α«úαἼᠡѠ«íαáΘáÑΓß∩.
  2682.  
  2683.       ùΓ« ¡Ñ ñ«½ª¡« ¿ß»«½∞º«óáΓ∞ß∩ ó ¬áτÑßΓóÑ «óÑα½ÑÑó
  2684.  
  2685.      ÄΓñѽ∞¡δÑ ¼«ñπ½¿ ¡Ñ ¼«úπΓ ¿ß»«½∞º«óáΓ∞ß∩, ¬á¬  «óÑα½Ñ⌐-
  2686. ¡δÑ. é τáßΓ¡«ßΓ¿, ¡Ñ »δΓá⌐ΓÑß∞ ¿ß»«½∞º«óáΓ∞ ó ¬áτÑßΓóÑ «óÑα-
  2687. ½Ñ⌐¡δσ ¼«ñπ½Ñ⌐ ß½ÑñπεΘ¿Ñ:
  2688.  
  2689.      1.  î«ñπ½¿, ß¬«¼»¿½¿α«óá¡¡δÑ ß ñ¿αÑ¬Γ¿ó«⌐  {$O-}.  àß½¿
  2690.          óδ  »δΓáÑΓÑß∞  ¿ß»«½∞º«óáΓ∞  ¬á¬ «óÑα½Ñ⌐¡δ⌐ ¼«ñπ½∞,
  2691.          ¬«Γ«αδ⌐ ¡Ñ íδ½ ß¬«¼»¿½¿α«óá¡ ß ñ¿αÑ¬Γ¿ó«⌐ {$O+}, Γ«
  2692.          ¬«¼»¿½∩Γ«α  óδñáÑΓ ß««íΘÑ¡¿Ñ «í «Φ¿í¬Ñ. Æᬿ¼¿ ¡Ñ«-
  2693.          óÑα½Ñ⌐¡δ¼¿ ¼«ñπ½∩¼¿ ∩ó½∩εΓß∩ ¼«ñπ½¿  System,  Over-
  2694.          lay, Turbo3 ¿ Graph3.
  2695.      2.  î«ñπ½¿, ¬«Γ«αδÑ ß«ñÑαªáΓ ñαá⌐óÑαδ »αÑαδóá¡¿⌐. êº-ºá
  2696.          Γ«ú«,  τΓ« ßá¼á «»Ñαᵿ«¡¡á∩ ß¿ßΓѼá äÄæ ¿¼ÑÑΓ ¡Ñ«-
  2697.          óÑα½Ñ⌐¡πε ßΓαπ¬Γπαπ, ¼«ñπ½¿, αÑ὿ºπεΘ¿Ñ  »α«µÑñπαδ
  2698.          »αÑαδóá¡¿⌐ (interrupt), ¡Ñ ñ«½ª¡δ íδΓ∞ «óÑα½Ñ⌐¡δ¼¿.
  2699.          é ¬áτÑßΓóÑ »α¿¼Ñαá  Γᬫú«  ¼«ñπ½∩  ¼«ª¡«  »α¿óÑßΓ¿
  2700.          ßΓá¡ñáαΓ¡δ⌐  ¼«ñπ½∞  Crt, αÑ὿ºπεΘ¿⌐ ñαá⌐óÑα «íαá-
  2701.          í«Γ¬¿ »αÑαδóá¡¿∩, ó«º¡¿¬áεΘÑú« »α¿  ¡áªáΓ¿¿  ¬½áó¿Φ
  2702.          Ctrl-Break.
  2703.  
  2704.      Å«ñß¿ßΓѼ«⌐ π»αáó½Ñ¡¿∩ «óÑα½Ñ∩¼¿ Æπαí«-Åá߬á½∩  »«½¡«ß-
  2705. Γ∞ε »«ññÑনóáÑΓß∩ ó맮ó «óÑα½Ñ⌐¡δσ »α«µÑñπα ß »«¼«Θ∞ε  π¬á-
  2706. ºáΓѽÑ⌐ »α«µÑñπα. é ¬áτÑßΓóÑ »α¿¼Ñα«ó ¿ß»«½∞º«óá¡¿∩ π¬áºáΓÑ-
  2707. ½Ñ⌐ »α«µÑñπα ¼«ª¡« »α¿óÑßΓ¿ »α«µÑñπαδ ºáóÑαΦÑ¡¿∩ ¿ ñαá⌐óÑαδ
  2708. πßΓα«⌐ßΓó ñ½∩ ΓѬßΓ«óδσ Σá⌐½«ó.
  2709.      Ç¡á½«ú¿τ¡«, »«½¡«ßΓ∞ε »«ññÑনóáÑΓß∩ »ÑαÑñáτá  «óÑα½Ñ⌐-
  2710. ¡δσ  »α«µÑñπα  ¿  Σπ¡¬µ¿⌐ ó ¬áτÑßΓóÑ »áαá¼ÑΓα«ó »α«µÑñπα¡«ú«
  2711. Γ¿»á ¿ »α¿ßóá¿óá¡¿Ñ «óÑα½Ñ⌐¡δσ »α«µÑñπα ¿ Σπ¡¬µ¿⌐ »ÑαѼѡ¡δ¼
  2712. »α«µÑñπα¡«ú« Γ¿»á.
  2713.  
  2714.                       ÄΓ½áñ¬á «óÑα½ÑÑó
  2715.  
  2716.      ü«½∞Φ¿¡ßΓó« «Γ½áñτ¿¬«ó  «í½áñáεΓ  óÑß∞¼á  «úαá¡¿τÑ¡¡δ¼¿
  2717. 󫺼«ª¡«ßΓ∩¼¿ «Γ½áñ¬¿ «óÑα½ÑÑó, Ñß½¿ «¡¿ ó««íΘÑ «í½áñáεΓ Γá-
  2718. ¬¿¼¿ ßαÑñßΓóἿ.  ¥Γ«ú« ¡Ñ½∞º∩  ß¬áºáΓ∞  «  Æπαí«-Åá߬á½Ñ  ¿
  2719. Æπαí«-«Γ½áñτ¿¬Ñ.  ê¡ΓÑαú¿α«óá¡¡δ⌐ «Γ½áñτ¿¬ »«½¡«ßΓ∞ε »«ññÑα-
  2720. ª¿óáÑΓ »α¿ αáí«ΓÑ ß «óÑα½Ñ∩¼¿ »«Φáú«óδ⌐ αѪ¿¼ ¿ Γ«τ¬¿  «ßΓá-
  2721. ¡«óá,  ¿ß»«½∞ºπ∩  »α¿  φΓ«¼  ¼ÑΓ«ñ, »«½¡«ßΓ∞ε »α«ºαáτ¡δ⌐ ñ½∩
  2722. »«½∞º«óáΓѽ∩. æ »«¼«Θ∞ε «óÑα½ÑÑó óδ ½Ñú¬« ¼«ªÑΓÑ ¬«¡ßΓαπ¿α«-
  2723. óáΓ∞ ¿ «Γ½áª¿óáΓ∞ »α¿¬½áñ¡δÑ »á¬ÑΓδ í«½∞Φ«ú« «íΩѼá. éßÑ φΓ«
  2724. ¼«ª¡« ñѽáΓ∞ ¬á¬ ß »«¼«Θ∞ε Æπαí«-«Γ½áñτ¿¬á, Γᬠ¿  ¿º  ¿¡ΓÑ-
  2725. αá¬Γ¿ó¡«⌐ ¿¡ΓÑαá¬Γ¿ó¡«⌐ ßαÑñδ ¬«¼»¿½∩Γ«αá.
  2726.  
  2727.                 é¡ÑΦ¡¿Ñ »α«úαá¼¼δ ó «óÑα½Ñ∩σ
  2728.  
  2729.      Ç¡á½«ú¿τ¡« «íδτ¡δ¼ »α«µÑñπαá¼ ¿ Σπ¡¬µ¿∩¼  Æπαí«-Åá߬á½∩
  2730. »α¿  ¿ß¬«½∞º«óá¡¿¿  ó¡ÑΦ¡¿σ »α«úαá¼¼ ¡á ∩ºδ¬Ñ áßßѼí½Ñαá ñ½∩
  2731. «íÑß»ÑτÑ¡¿∩ ¬«ααÑ¬Γ¡«⌐ αáí«Γδ »«ñß¿ßΓѼδ π»αáó½Ñ¡¿∩ «óÑα½Ñ∩-
  2732. ¼¿ ñ«½ª¡δ ß«í½εñáΓ∞ß∩ «»αÑñѽѡ¡δÑ »αáó¿½á »α«úαá¼¼¿α«óá¡¿∩.
  2733.      àß½¿ ó »α«úαἼѠ¡á ∩ºδ¬Ñ áßßѼí½Ñαá «ßπΘÑßΓó½∩ÑΓß∩ «í-
  2734. αáΘÑ¡¿Ñ ¬ ½εí«⌐ «óÑα½Ñ⌐¡«⌐ »α«µÑñπαÑ ¿½¿ Σπ¡¬µ¿¿, Γ« ó »α«ú-
  2735. αἼѠáßßѼí½Ñαá ñ«½ªÑ¡ ¿ß»«½∞º«óáΓ∞ß∩ ñá½∞¡¿⌐ Γ¿» ó맮óá  ¿
  2736. ß »«¼«Θ∞ε αÑú¿ßΓαá éÉ ñ«½ª¡δ íδΓ∞ πßΓá¡«ó½Ñ¡δ úαá¡¿µδ ßΓѬá.
  2737. ìá»α¿¼Ñα, »αÑñ»«½«ª¿¼,  τΓ«  OtherProc  ∩ó½∩ÑΓß∩  «óÑα½Ñ⌐¡«⌐
  2738. »α«µÑñπα«⌐   ó   ñαπú«¼   ¼«ñπ½Ñ  ¿  ÑÑ  óδºδóáÑΓ  »α«úαá¼¼á
  2739. ExternProc ¡á ∩ºδ¬Ñ áßßѼí½Ñαá. Æ«úñá  »α«úαἼᠠExternProc
  2740. ñ«½ª¡á ¿¼ÑΓ∞ ñá½∞¡¿⌐ Γ¿» ó맮óá ¿ πßΓá¡áó½¿óáΓ∞ úαá¡¿µδ ßΓÑ-
  2741. ¬á ß½ÑñπεΘ¿¼ «íαẫ¼:
  2742.  
  2743.   ExternProc      PROC       FAR
  2744.         PUSH      bp         ; ß«σαá¡¿Γ∞ αÑú¿ßΓα éÉ
  2745.         mov       bp,sp      ; πßΓá¡«ó¿Γ∞ úαá¡¿µδ ßΓѬá
  2746.         SUB       sp,LocalSize ; óδñѽ¿Γ∞ ½«¬á½∞¡δÑ
  2747.                              ;   »ÑαѼѡ¡δÑ
  2748.         ...
  2749.         CALL      OtherProc  ; óδºóáΓ∞ ñαπú«⌐ «óÑα½Ñ⌐¡δ⌐
  2750.                              ; ¼«ñπ½∞
  2751.         ...
  2752.         mov       sp,bp      ; «Γ¼Ñ¡¿Γ∞ ½«¬á½∞¡δÑ »ÑαѼѡ¡δÑ
  2753.         pop       bp         ; ó«ßßΓá¡«ó¿Γ∞ αÑú¿ßΓα éÉ
  2754.         RET       ParamSize  ; ó«ºóαáΓ π»αáó½Ñ¡¿∩
  2755.   ExternProc      ENDP
  2756.  
  2757. úñÑ LocalSize »αÑñßΓáó½∩ÑΓ ß«í«⌐ αẼÑα  ½«¬á½∞¡δσ  »ÑαѼѡ-
  2758. ¡δσ,   á   ParamSize  -  αẼÑα  »áαá¼ÑΓα«ó.  àß½¿  º¡áτÑ¡¿Ñ
  2759. LocalSize αáó¡« 0, Γ« ñóÑ ßΓ᫬¿,  ó  ¬«Γ«αδσ  óδñѽ∩εΓß∩  ¿
  2760. π¡¿τΓ«ªáεΓß∩ ½«¬á½∞¡δÑ »ÑαѼѡ¡δÑ, ¼«ª¡« «»πßΓ¿Γ∞.
  2761.      àß½¿ ó »α«úαἼѠExternProc ¿¼ÑεΓß∩ ¬«ßóÑ¡¡δÑ ßß佬¿ ¡á
  2762. «óÑα½Ñ⌐¡δÑ  »α«µÑñπαδ  ¿ Σπ¡¬µ¿¿, Γ« φΓ¿ ΓαÑí«óá¡¿∩ «ßΓáεΓß∩
  2763. ΓѼ¿ ªÑ. ìá»α¿¼Ñα, Ñß½¿ »α«µÑñπαá OtherProc  óδºδóáÑΓ  «óÑα-
  2764. ½Ñ⌐¡δÑ  »α«µÑñπαδ  ¿½¿ Σπ¡¬µ¿¿, ¡« ßá¼á ¡Ñ ∩ó½∩ÑΓß∩ «óÑα½Ñ⌐-
  2765. ¡«⌐, Γ« »α«úαá¼¼á ExternProc ñ«½ª¡á,  ΓѼ  ¡Ñ  ¼Ñ¡ÑÑ,  ¿¼ÑΓ∞
  2766. ñá½∞¡¿⌐ Γ¿» ó맮óá ¿ πßΓá¡áó½¿óáΓ∞ úαá¡¿µδ ßΓѬá.
  2767.      é Γ«¼ ß½πτáÑ, Ñß½¿ ó »α«úαἼѠ¡á ∩ºδ¬Ñ áßßѼí½Ñαá  «Γ-
  2768. ßπΓßΓóπεΓ »α∩¼δÑ ¿½¿ ¬«ßóÑ¡¡δÑ ßß佬¿ ¡á «óÑα½Ñ⌐¡δÑ »α«µÑñπ-
  2769. αδ ¿½¿ Σπ¡¬µ¿¿, Γ« ¡¿¬á¬¿σ ß»Ñµ¿á½∞¡δσ ΓαÑí«óá¡¿⌐ ß«í½εñáΓ∞-
  2770. ß∩  ¡Ñ ñ«½ª¡«: »α«úαἼᠡá ∩ºδ¬Ñ áßßѼí½Ñαá ¼«ªÑΓ ¿ß»«½∞º«-
  2771. óáΓ∞ í½¿ª¡¿⌐ Γ¿» ó맮óá ¿ ¡Ñ πßΓá¡áó½¿óáΓ∞ úαá¡¿µ ßΓѬá.
  2772.      ÄóÑα½Ñ⌐¡δÑ »α«úαá¼¼δ ¡á ∩ºδ¬Ñ áßßѼí½Ñαá ¡Ñ ñ«½ª¡δ ß«º-
  2773. ñáóáΓ∞ »ÑαѼѡ¡δσ ó ßÑú¼Ñ¡ΓÑ ¬«ñá, »«ß¬«½∞¬π »α¿ π¡¿τΓ«ªÑ¡¿¿
  2774. «óÑα½Ñ∩ ½εíδÑ ¿º¼Ñ¡Ñ¡¿∩, ó¡ÑßÑ¡¡δÑ ó «óÑα½Ñ⌐¡δ⌐ ßÑú¼Ñ¡Γ  ¬«-
  2775. ñá,  ΓÑα∩εΓß∩. Ç¡á½«ú¿τ¡«, ¡Ñ ß½ÑñπÑΓ ßτ¿ΓáΓ∞, τΓ« π¬áºáΓѽ¿
  2776. ¡á αẼÑΘÑ¡¡δÑ ó «óÑα½Ñ⌐¡«¼ ßÑú¼Ñ¡ΓÑ ¬«ñá «íΩѬΓδ  «ßΓá¡πΓß∩
  2777. ñÑ⌐ßΓó¿Γѽ∞¡δ¼¿  »α¿  ó맮óÑ ñαπú¿σ «óÑα½ÑÑó, »«ß¬«½∞¬π »«ñ-
  2778. ß¿ßΓѼá π»αáó½Ñ¡¿∩ «óÑα½Ñ∩¼¿  ¼«ªÑΓ  ßó«í«ñ¡«  »ÑαѼÑΘáΓ∞  ¿
  2779. π¡¿τΓ«ªáΓ∞ «óÑα½Ñ⌐¡δÑ ßÑú¼Ñ¡Γδ ¬«ñá.
  2780.  
  2781.  
  2782.                           âïÇéÇ 25
  2783.  
  2784.               êß»«½∞º«óá¡¿Ñ ß«»α«µÑßß«αá 8087
  2785.  
  2786.      é Æπαí«-Åá߬á½Ñ óδ ¼«ªÑΓÑ αáí«ΓáΓ∞ ß ñóπ¼∩ Γ¿»á¼¿ τ¿ßѽ
  2787. - µÑ½δ¼¿  (¬«α«Γ¬¿¼¿ µÑ½δ¼¿, µÑ½δ¼¿, ñ½¿¡¡δ¼¿ µÑ½δ¼¿, µÑ½δ¼¿
  2788. ñ½¿¡«⌐ ó  íá⌐Γ, µÑ½δ¼¿ ñ½¿¡«⌐ ó ß½«ó«) ¿  óÑΘÑßΓóÑ¡¡δ¼¿ (óÑ-
  2789. ΘÑßΓóÑ¡¡δ¼¿, óÑΘÑßΓóÑ¡¡δ¼¿ «ñ¿¡áα¡«⌐ Γ«τ¡«ßΓ¿, óÑΘÑßΓóÑ¡¡δ¼¿
  2790. ñó«⌐¡«⌐ Γ«τ¡«ßΓ¿, »«óδΦÑ¡¡«⌐ Γ«τ¡«ßΓ¿, ß½«ª¡δ¼¿). éÑΘÑßΓóÑ¡-
  2791. ¡δÑ τ¿ß½á ¡áºδóáεΓ  ΓᬪѠ τ¿ß½á¼¿ ß  »½áóáεΘÑ⌐ ºá»∩Γ«⌐. ä½∩
  2792. «í½ÑúτÑ¡¿∩ αáí«Γδ ß µÑ½δ¼¿ τ¿ß½á¼¿ ß«ºñá¡ »α«µÑßß«α 8086, ¡«
  2793. ñ½∩ αáí«Γδ ß óÑΘÑßΓóÑ¡¡δ¼¿ τ¿ß½á¼¿ ¡á φΓ«¼ »α«µÑßß«αÑ ºáΓαá-
  2794. τ¿óáÑΓß∩ ú«αáºñ« í«½∞ΦÑ óαѼѡ¿ ¿ πß¿½¿⌐. ä½∩ ßѼÑ⌐ßΓóá »α«-
  2795. µÑßß«α«ó 8086 »αÑñ¡áº¡áτÑ¡« ß««ΓóÑΓßΓóπΘÑÑ ßѼÑ⌐ßΓó« óß»«¼«-
  2796. úáΓѽ∞¡δ⌐  ß»Ñµ¿á½¿º¿α«óá¡¡δσ »α«µÑßß«α«ó ñ½∩ ¼áΓѼáΓ¿τÑ߬¿σ
  2797. óδτ¿ß½Ñ¡¿⌐ (ß«»α«µÑßß«α«ó) 8087.
  2798.      Åα«µÑßß«α 8087 - φΓ« ß»Ñµ¿á½∞¡δ⌐ »α«µÑßß«α ñ½∩ «íαáí«Γ-
  2799. ¬¿ τ¿ßѽ, ¬«Γ«αδ⌐ ¼«ªÑΓ óσ«ñ¿Γ∞ ó  ß«ßΓáó óáΦÑú«  ¬«¼»∞εΓÑαá
  2800. Éæ. æ »«¼«Θ∞ε ¡Ñú« «»Ñαᵿ¿ ß »½áóáεΘÑ⌐ ºá»∩Γ«⌐  óδ»«½¡∩εΓß∩
  2801. «τÑ¡∞ íδßΓα«. Å«φΓ«¼π Ñß½¿ óδ ß«í¿αáÑΓÑß∞ ¿ß»«½∞º«óáΓ∞ í«½∞-
  2802. Φ«⌐ «íΩѼ óδτ¿ß½Ñ¡¿⌐ ß »½áóáεΘÑ⌐ ºá»∩Γ«⌐,  Γ« óá¼, óÑα«∩Γ¡«,
  2803. »«¡áñ«í¿Γß∩ ß«»α«µÑßß«α.
  2804.      Æπαí«-Åá߬á½∞ »«ßΓα«Ñ¡ Γᬿ¼ «íαẫ¼,  τΓ« «¡ «íÑß»Ñτ¿-
  2805. óáÑΓ «»Γ¿¼á½∞¡«Ñ óδ»«½¡Ñ¡¿Ñ «»Ñαᵿ⌐ ß »½áóáεΘÑ⌐ ºá»∩Γ«⌐ ¡Ñ-
  2806. ºáó¿ß¿¼« «Γ ¡á½¿τ¿∩ »α«µÑßß«αá 8087.
  2807.  
  2808.      1.  ä½∩ »α«úαá¼¼, αáí«ΓáεΘ¿σ ¡á  ¬«¼»∞εΓÑαÑ Éæ, ¡Ñºáó¿-
  2809.          ß¿¼« «Γ  Γ«ú«,  «ß¡áΘÑ¡  «¡  ß«»α«µÑßß«α«¼ 8087 ¿½¿
  2810.          ¡ÑΓ, ó  Æπαí«-Åá߬á½Ñ  »αÑñπß¼«ΓαÑ¡«  ¿ß»«½∞º«óá¡¿Ñ
  2811.          óÑΘÑßΓóÑ¡¡δσ  τ¿ßѽ  ¿  ß««ΓóÑΓßΓóπεΘá∩  í¿í½¿«ΓѬá
  2812.          »α«úαá¼¼, ¬«Γ«αδÑ »αÑñ¡áº¡áτÑ¡δ ñ½∩ óδ»«½¡Ñ¡¿∩ «»Ñ-
  2813.          αᵿ⌐ ß »½áóáεΘÑ⌐ ºá»∩Γ«⌐. ù¿ß½á óÑΘÑßΓóÑ¡¡«ú« Γ¿»á
  2814.          ºá¡¿¼áεΓ 6  íá⌐Γ«ó »á¼∩Γ¿.  Åα¿ φΓ«¼ «íÑß»Ñτ¿óáÑΓß∩
  2815.          »αÑñßΓáó½Ñ¡¿Ñ  τ¿ßѽ  ó ñ¿á»áº«¡Ñ «Γ 2,9σ10**-39 ñ«
  2816.          1,7σ10**38 ß 11-12  º¡áτáΘ¿¼¿  µ¿ΣαἿ. Åα«úαá¼¼δ ó
  2817.          í¿í½¿«ΓѬѠ»α«úαá¼¼ ñ½∩ αáí«Γδ ß »½áóáεΘÑ⌐ ºá»∩Γ«⌐
  2818.          «»Γ¿¼¿º¿α«óá¡δ »« ß¬«α«ßΓ¿ ¿ »« αẼÑαπ ¿ ¿ß»«½∞ºπ-
  2819.          εΓ ßá¼δÑ ¡«óÑ⌐Φ¿Ñ ßαÑñßΓóá »α«µÑßß«αá 8087.
  2820.      2.  àß½¿ óδ »¿ΦÑΓÑ »α«úαá¼¼δ, ¿ß»«½∞ºπεΘ¿Ñß∩  Γ«½∞¬« ¡á
  2821.          ¬«¼»∞εΓÑαáσ, «ß¡áΘÑ¡¡δσ  ß«»α«µÑßß«α«¼  8087, Γ« óδ
  2822.          ¼«ªÑΓÑ π¬áºáΓ∞ Æπαí«-Åá߬á½ε ¡á ¡Ñ«íσ«ñ¿¼«ßΓ∞ »«½π-
  2823.          τÑ¡¿∩  óδ»«½¡∩Ѽ«ú«  ¬«ñá,  ó  ¬«Γ«α«¼ ¿ß»«½∞ºπÑΓß∩
  2824.          »½áΓá »α«µÑßß«αá 8087. ¥Γ« ñáßΓ óἠ󫺼«ª¡«ßΓ∞ ¿ß-
  2825.          »«½∞º«óá¡¿∩ τÑΓδαÑσ ñ«»«½¡¿Γѽ∞¡δσ Γ¿»«ó óÑΘÑßΓóÑ¡-
  2826.          ¡δσ τ¿ßѽ («ñ¿¡áα¡«⌐ ¿ ñó«⌐¡«⌐ Γ«τ¡«ßΓ¿, »«óδΦÑ¡¡«⌐
  2827.          Γ«τ¡«ßΓ¿,  ß½«ª¡«ú«  Γ¿»á)  ¿  αáßΦ¿αÑ¡¡δ⌐ ñ¿á»áº«¡
  2828.          »αÑñßΓáó½Ñ¡¿∩  τ¿ßѽ  ß  »½áóáεΘÑ⌐  ºá»∩Γ«⌐  -   «Γ
  2829.          1,9σ10***-4951 ñ« 1,1σ10**4943  ß  19-20  º¡áτáΘ¿¼¿
  2830.          µ¿ΣαἿ.
  2831.  
  2832.       Åα¿¼Ñτá¡¿Ñ: Åα¿ ¬«¼»¿½∩µ¿¿ ß αѪ¿¼«¼ τ¿ß½«ó«⌐ «íαáí«Γ-
  2833.       ¬¿, Γ« ÑßΓ∞ ß ñ¿αÑ¬Γ¿ó«⌐ {$N+},  ó«ºóαáΘáѼδÑ »α«úαá¼-
  2834.       ¼δ¼¿  ¼«ñπ½∩  SystѼ  (Sqrt, Éi, Sin ¿ Γ.ñ.)  º¡áτÑ¡¿∩
  2835.       »αÑñßΓáó½∩εΓ ß«í«⌐ ¡Ñ ñÑ⌐ßΓó¿Γѽ∞¡δÑ τ¿ß½á, á  τ¿ß½á ß
  2836.       »«óδΦÑ¡¡«⌐ Γ«τ¡«ßΓ∞ε.
  2837.  
  2838.        {$N+}
  2839.  
  2840.        begin
  2841.          Writeln(Pi); { 3.14159265358979E+0000 }
  2842.        end.
  2843.  
  2844.        {$N-}
  2845.  
  2846.        begin
  2847.          Writeln(Pi); { 3.1415926536E+00 }
  2848.        end.
  2849.  
  2850.            éδ ¼«ªÑΓÑ óδí¿αáΓ∞ «ñ¡π ¿º ñóπσ ó«º¼«ª¡δσ ¼«ñѽÑ⌐
  2851.       úÑ¡Ñαᵿ¿  ¬«ñá ñ½∩ «»Ñαᵿ⌐ ß »½áóáεΘÑ⌐ ºá»∩Γ«⌐.  ¥Γ«
  2852.       ñѽáÑΓß∩ ß »«¼«Θ∞ε ñ¿αÑ¬Γ¿ó ¬«¼»¿½∩Γ«αá $N  ¿½¿ ß  »«-
  2853.       ¼«Θ∞ε ºá»¿ß¿ Ä/æ/Numeric  ¿º  ¼Ñ¡ε  αѪ¿¼«ó «íαáí«Γ¬¿.
  2854.       ä¿αÑ¬Γ¿óá {$N-}  π¬áºδóáÑΓ,  τΓ«  «»Ñαᵿ¿ ß »½áóáεΘÑ⌐
  2855.       ºá»∩Γ«⌐  íπñπΓ óδ»«½¡∩Γ∞ß∩   ß   »«¼«Θ∞ε   »α«úαá¼¼¡δσ
  2856.       ßαÑñßΓó, á {$N+} - ¡á óδ»«½¡Ñ¡¿Ñ φΓ¿σ  «»Ñαᵿ⌐ ß  »«-
  2857.       ¼«Θ∞ε á»»áαáΓ¡δσ ßαÑñßΓó.
  2858.  
  2859.      é «ßΓáóΦÑ⌐ß∩ τáßΓ¿ ñá¡¡«⌐ ú½áóδ «íßπªñáεΓß∩ ß»Ñµ¿á½∞¡δÑ
  2860. ó«»α«ßδ, ¬áßáεΘ¿Ñß∩ ¿ß»«½∞º«óá¡¿∩ »α«µÑßß«αá 8087 ó »α«úαá¼-
  2861. ¼áσ ¡á Æπαí«-Åá߬á½Ñ.
  2862.  
  2863.                 Æ¿»δ ñá¡¡δσ »α«µÑßß«αá 8087
  2864.  
  2865.      é ñ«»«½¡Ñ¡¿Ñ ¬ óÑΘÑßΓóÑ¡¡«¼π Γ¿»π ñ½∩ »α«úαá¼¼, ¿ß»«½∞-
  2866. ºπεΘ¿σ ßαÑñßΓóá »α«µÑßß«αá  8087,  »αÑñπß¼áΓα¿óáÑΓß∩  τÑΓδαÑ
  2867. ¡«óδσ ñÑ⌐ßΓó¿Γѽ∞¡δσ Γ¿»á:
  2868.  
  2869.      1.  Æ¿» ß «ñ¿¡áα¡«⌐ Γ«τ¡«ßΓ∞ε, »αÑñßΓáó½∩εΘ¿⌐ ß«í«⌐ ¡á-
  2870.          ¿¼Ñ¡∞Φ¿⌐ Σ«α¼áΓ, ¬«Γ«αδ⌐ óδ ¼«ªÑΓÑ ¿ß»«½∞º«óáΓ∞ ñ½∩
  2871.          τ¿ßѽ  ß »½áóáεΘÑ⌐ ºá»∩Γ«⌐. Ä¡ ºá¡¿¼áÑΓ 4 íá⌐Γá »á-
  2872.          ¼∩Γ¿  «íÑß»Ñτ¿óáÑΓ  ñ¿á»áº«¡ »αÑñßΓáó½Ñ¡¿∩ τ¿ßѽ «Γ
  2873.          1,5σ10**-45 ñ« 3,4σ10**48 ß 7-8 º¡áτáΘ¿¼¿ µ¿ΣαἿ.
  2874.      2.  Æ¿» ß ñó«⌐¡«⌐ Γ«τ¡«ßΓ∞ε, ºá¡¿¼áεΘ¿⌐ 8 íá⌐Γ«ó »á¼∩Γ¿
  2875.          ¿ «íÑß»Ñτ¿óáεΘ¿⌐ »αÑñßΓáó½Ñ¡¿Ñ τ¿ßѽ ó ñ¿á»áº«¡Ñ «Γ
  2876.          5,0σ10**-334 ñ« 1,7σ10**308 ß 15-16 º¡áτáΘ¿¼¿  µ¿Σ-
  2877.          αἿ.
  2878.      3.  Æ¿» ß »«óδΦÑ¡¡«⌐ Γ«τ¡«ßΓ∞ε »αÑñßΓáó½∩ÑΓ ß«í«⌐  ¡á¿-
  2879.          í«½∞Φ¿⌐ Σ«α¼áΓ »αÑñßΓáó½Ñ¡¿∩ τ¿ßѽ ß »½áóáεΘÑ⌐  ºá-
  2880.          »∩Γ«⌐, «íÑß»Ñτ¿óáѼδ⌐ »α«µÑßß«α«¼ 8087. Ä¡ ºá¡¿¼áÑΓ
  2881.          10 íá⌐Γ«ó »á¼∩Γ¿ ¿ «íÑß»Ñτ¿óáÑΓ ñ¿á»áº«¡  »αÑñßΓáó-
  2882.          ½Ñ¡¿∩ τ¿ßѽ  «Γ  1,9σ10**-4952  ñ«  1,1σ10**4932  ß
  2883.          19-20 º¡áτáΘ¿¼¿ µ¿ΣαἿ. ïεíδÑ áα¿Σ¼ÑΓ¿τÑ߬¿Ñ  «»Ñ-
  2884.          αᵿ¿, ó ¬«Γ«αδσ πτáßΓóπεΓ  τ¿ß½á óÑΘÑßΓóÑ¡¡«ú« Γ¿-
  2885.          »á,  óδ»«½¡∩εΓß∩ ß Γ«τ¡«ßΓ∞ε ¿ ñ¿á»áº«¡«¼ »αÑñßΓáó-
  2886.          ½Ñ¡¿∩,  ß««ΓóÑΓßΓóπεΘ¿¼¿  Γ¿»π  ß  »«óδΦÑ¡¡«⌐  Γ«τ-
  2887.          ¡«ßΓ∞ε.
  2888.      4.  ù¿ß½á ß½«ª¡«ú« Γ¿»á ¿ß»«½∞ºπεΓß∩ ñ½∩ »αÑñóáα¿Γѽ∞¡«
  2889.          «íΩÑñ¿¡Ñ¡¡δσ º¡áτÑ¡¿⌐ ó 8 íá⌐Γáσ »á¼∩Γ¿,  «íÑß»Ñτ¿-
  2890.          óá∩ »α¿ φΓ«¼ ñ¿á»áº«¡ »αÑñßΓáó½Ñ¡¿∩ «Γ -2**63+1  ñ«
  2891.          2**63-1,   τΓ«    ß«ßΓáó½∩ÑΓ    »α¿í½¿º¿Γѽ∞¡«   «Γ
  2892.          -9,2σ10**18 ñ« 9,2σ10**18. æ½«ª¡δ⌐ Γ¿» ¼«ª¡«  ßαáó-
  2893.          ¡¿Γ∞ ß ñ½¿¡¡δ¼ µÑ½δ¼ Γ¿»«¼  (ñó«⌐¡á∩ Γ«τ¡«ßΓ∞),  ¡«
  2894.          «¡ ßτ¿ΓáÑΓß∩ óÑΘÑßΓóÑ¡¡δ¼ Γ¿»«¼, »«ß¬«½∞¬π »α¿ «»Ñ-
  2895.          αᵿ∩σ ß τ¿ß½á¼¿ φΓ«ú« Γ¿»á ¿ß»«½∞ºπÑΓß∩  ß«»α«µÑß-
  2896.          ß«α 8087. æ½«ª¡δ⌐ Γ¿» σ«α«Φ« »«ñσ«ñ¿Γ ñ½∩ »αÑñßΓáó-
  2897.          ½Ñ¡¿∩ º¡áτÑ¡¿⌐ ñѡѪ¡δσ Ññ¿¡¿µ, »αÑñßΓáó½∩εΘ¿σ  ß«-
  2898.          í«⌐ ß«Γ¡¿ ¿ Γδß∩τ¿, ¬«Γ«αδÑ ¿ß»«½∞ºπεΓß∩ ó »α¿¬½áñ-
  2899.          ¡δ󠬫¼¼ÑατÑ߬¿σ »α«úαá¼¼áσ.
  2900.  
  2901.      ìѺáó¿ß¿¼« «Γ Γ«ú«, ¿ß»«½∞ºπÑΓÑ óδ ß«»α«µÑßß«α 8087 ¿½¿
  2902. ¡ÑΓ,  6-í¿Γ«óδ⌐  óÑΘÑßΓóÑ¡¡δ⌐ Γ¿» ∩ó½∩ÑΓß∩ ñ«»πßΓ¿¼δ¼. Æᬿ¼
  2903. «íαẫ¼,  »α¿ »ÑαÑσ«ñÑ ¬ ¿ß»«½∞º«óá¡¿ε ß«»α«µÑßß«αá 8087 óá¼
  2904. ¡Ñ »«ΓαÑíπÑΓß∩ ¿º¼Ñ¡∩Γ∞ ¿ßσ«ñ¡δ⌐ ΓѬßΓ »α«úαá¼¼δ ¿ óδ ¼«ªÑΓÑ
  2905. ¿ß»«½∞º«óáΓ∞  Σá⌐½δ  ñá¡¡δσ,  ß«ºñá¡¡δÑ »α«úαἼἿ, ¬«Γ«αδÑ
  2906. αáí«ΓáεΓ ß »α«úαá¼¼¡« «íÑß»Ñτ¿óáÑ¼δ¼¿ «»Ñαᵿ∩¼¿ ß »½áóáεΘÑ⌐
  2907. ºá»∩Γ«⌐.
  2908.      ÄΓ¼ÑΓ¿¼, «ñ¡á¬«, τΓ« á»»áαáΓ¡δÑ óδτ¿ß½Ñ¡¿∩ ß »ÑαѼѡ¡δ-
  2909. ¼¿ óÑΘÑßΓóÑ¡¡«ú« Γ¿»á óδ»«½¡∩εΓß∩ ¡Ñ߬«½∞¬« ¼Ññ½Ñ¡¡ÑÑ, τѼ ß
  2910. »ÑαѼѡ¡δ¼¿ ñαπú«ú« Γ¿»á. ¥Γ« ßó∩ºá¡« ß ΓѼ, τΓ« ß«»α«µÑßß«α
  2911. 8087 ¡Ñ ¼«ªÑΓ ¡Ñ»«ßαÑñßΓóÑ¡¡« «íαáíáΓδóáΓ∞ óÑΘÑßΓóÑ¡¡δ⌐ Σ«α-
  2912. ¼áΓ. é¼ÑßΓ« φΓ«ú«, »ÑαÑñ  óδ»«½¡Ñ¡¿Ñ¼ «»Ñαᵿ⌐, ñ½∩ »αÑ«íαá-
  2913. º«óá¡¿∩ óÑΘÑßΓóÑ¡¡δσ º¡áτÑ¡¿⌐ ó τ¿ß½á ß »«óδΦÑ¡¡«⌐ Γ«τ¡«ßΓ∞ε
  2914. ΓαÑíπεΓß∩ «íαáΘÑ¡¿∩ ¬ í¿í½¿«ΓÑτ¡δ¼ »α«úαá¼¼á¼. àß½¿ óδ ºá¿¡-
  2915. ΓÑαÑß«óá¡δ ó ¼á¬ß¿¼á½∞¡«⌐ ß¬«α«ßΓ¿ óδ»«½¡Ñ¡¿∩ ¿ ¡Ñ  ß«í¿αáÑ-
  2916. ΓÑß∞ ¿ß»«½∞º«óáΓ∞ ßó«ε »α«úαá¼¼π ¡á ß¿ßΓѼáσ íѺ ß«»α«µÑßß«-
  2917. αá 8087, Γ« ó«º¼«ª¡« óδ ºáσ«Γ¿ΓÑ ¿ß»«½∞º«óáΓ∞  «ñ¿¡áα¡δ⌐ óÑ-
  2918. ΘÑßΓóÑ¡¡δ⌐, óÑΘÑßΓóÑ¡¡δ⌐ ß ñó«⌐¡«⌐ Γ«τ¡«ßΓ∞ε, óÑΘÑßΓóÑ¡¡δ⌐ ß
  2919. »«óδΘÑ¡¡«⌐ Γ«τ¡«ßΓ∞ε ¿ ß½«ª¡δ⌐ Γ¿»δ ∩ó¡δ¼ «íαẫ¼.
  2920.  
  2921.        Çα¿Σ¼ÑΓ¿τÑ߬¿Ñ «»Ñαᵿ¿ ß »«óδΦÑ¡¡«⌐ Γ«τ¡«ßΓ∞ε
  2922.  
  2923.      Åα¿ ¿ß»«½∞º«óá¡¿¿ ß«»α«µÑßß«αá 8087  Γ¿»  ß  »«óδΦÑ¡¡«⌐
  2924. Γ«τ¡«ßΓ∞ε ∩ó½∩ÑΓß∩ «ß¡«ó«⌐ óßÑσ  «»Ñαᵿ⌐ ß  »½áóáεΘÑ⌐ ºá»∩-
  2925. Γ«⌐. é Æπαí«-Åá߬á½Ñ Γ¿» ß »«óδΦÑ¡¡«⌐ Γ«τ¡«ßΓ∞ε ¿ß»«½∞ºπÑΓß∩
  2926. ñ½∩ »αÑñßΓáó½Ñ¡¿∩  óßÑσ  ¡ÑµÑ½δσ  τ¿ß½«óδ󠬫¡ßΓá¡Γ, á ΓᬪÑ
  2927. »α¿  óδτ¿ß½Ñ¡¿¿  óßÑσ  óδαáªÑ¡¿⌐ ¡ÑµÑ½«ú« Γ¿»á.  ìá»α¿¼Ñα, ó
  2928. ß½ÑñπεΘ¿σ «»Ñαᵿ∩σ »α¿ßóá¿óá¡¿∩ óßÑ »αáóδÑ τáßΓ¿  óδαáªÑ¡¿⌐
  2929. íπñπΓ óδτ¿ß½∩Γ∞ß∩, ¬á¬ óδαáªÑ¡¿∩ ß  »«óδΦÑ¡¡«⌐  Γ«τ¡«ßΓ∞ε, á
  2930. ºáΓѼ ¿σ Γ¿» íπñÑΓ »αÑ«íαẫóá¡ ¬ Γ¿»π ß««ΓóÑΓßΓóπεΘÑ⌐ ½Ñó«⌐
  2931. τáßΓ¿:
  2932.  
  2933.  var
  2934.    X, AA, B, C : real;
  2935.  begin
  2936.    X := (B + Sqrt(B*B - A*C))/A;
  2937.  end;
  2938.  
  2939.      Æπαí«-Åá߬á½∞ óδ»«½¡∩ÑΓ óδτ¿ß½Ñ¡¿∩ ß Γ«τ¡«ßΓ∞ε ¿ ñ¿á»á-
  2940. º«¡«¼ »αÑñßΓáó½Ñ¡¿∩ τ¿ßѽ,  ß««ΓóÑΓßΓóπεΘ¿¼¿ Γ¿»π ß »«óδΦÑ¡-
  2941. ¡«⌐ Γ«τ¡«ßΓ∞ε, íѺ  ñ«»«½¡¿Γѽ∞¡δσ πß¿½¿⌐ »α«úαá¼¼¿ßΓá.  ä«-
  2942. »«½¡¿Γѽ∞¡á∩ Γ«τ¡«ßΓ∞ »α¿ó«ñ¿Γ ¬ ¼Ñ¡∞Φ¿¼ «Φ¿í¬á¼ «¬απú½Ñ¡¿∩,
  2943. á ñ«»«½¡¿Γѽ∞¡δ⌐ ñ¿á»áº«¡ «º¡áτáÑΓ, τΓ« ß¿Γπᵿ¿  »ÑαÑ»«½¡Ñ-
  2944. ¡¿∩ ¿ »«ΓÑα¿ º¡áτ¿¼«ßΓ¿ íπñπΓ óßΓαÑτáΓ∞ß∩ ó »α«úαá¼¼áσ αѪÑ.
  2945.      éδ ¼«ªÑΓÑ «í«⌐Γ¿ß∞ ¿ íѺ ñ«»«½¡¿Γѽ∞¡δσ  áóΓ«¼áΓ¿τÑ߬¿σ
  2946. 󫺼«ª¡«ßΓÑ⌐ óδτ¿ß½Ñ¡¿⌐ ó »«óδΦÑ¡¡«⌐ Γ«τ¡«ßΓ∞ε  Æπαí«-Åá߬á-
  2947. ½∩. ìá»α¿¼Ñα, óδ ¼«ªÑΓÑ «»¿ßáΓ∞  »ÑαѼѡ¡δÑ,  ¿ß»«½∞ºπεΘ¿Ñß∩
  2948. ñ½∩  »α«¼ÑªπΓ«τ¡δσ  óδτ¿ß½Ñ¡¿⌐,  ¬á¬ »ÑαѼѡ¡δÑ ß »«óδΦÑ¡¡«⌐
  2949. Γ«τ¡«ßΓ∞ε.  é ß½ÑñπεΘѼ »α¿¼ÑαÑ óδτ¿ß½∩ÑΓß∩ ßπ¼¼á »α«¿ºóÑñÑ-
  2950. ¡¿⌐:
  2951.  
  2952.   var
  2953.     Sm : single;
  2954.     X,Y array[1..100] of single;
  2955.     I : integer;
  2956.     T : extended;   { ñ½∩ »α«¼ÑªπΓ«τ¡δσ αѺπ½∞ΓáΓ«ó }
  2957.   begin
  2958.     T := 0.0;
  2959.     for I := 1 to 100 do T := T + X[I] * Y[I]
  2960.     Sum := T;
  2961.   end;
  2962.  
  2963.      àß½¿ íδ »ÑαѼѡ¡á∩ Æ  íδ½á  «»¿ßá¡á,  ¬á¬  »ÑαѼѡ¡á∩ ß
  2964. «ñ¿¡áα¡«⌐ Γ«τ¡«ßΓ∞ε, Γ« »α¿ ¬áªñ«¼ µ¿¬½Ñ «»Ñαᵿ¿ »α¿ßóá¿óá-
  2965. ¡¿∩ ñ½∩ »ÑαѼѡ¡«⌐ Æ í뫨 íδ óδ»«½¡Ñ¡δ ß «Φ¿í¬«⌐  «¬απú½Ñ¡¿∩
  2966. ¿ «úαá¡¿τÑ¡¿∩¼¿,  ß««ΓóÑΓßΓóπεΘ¿¼¿  «ñ¿¡áα¡«⌐ Γ«τ¡«ßΓ¿.  ì«,
  2967. »«ß¬«½∞¬π »ÑαѼѡ¡á∩ Æ ∩ó½∩ÑΓß∩ »ÑαѼѡ¡«⌐ ß »«óδΦÑ¡¡«⌐ Γ«τ-
  2968. ¡«ßΓ∞ε,  Γ« óßÑ «Φ¿í¬¿ «¬απú½Ñ¡¿∩ (¬α«¼Ñ «»Ñαᵿ¿, »α¿ ¬«Γ«-
  2969. α«⌐ º¡áτÑ¡¿Ñ »ÑαѼѡ¡«⌐ Æ »α¿ßóá¿óáÑΓß∩ »ÑαѼѡ¡«⌐ Su¼) ¿¼Ñ-
  2970. εΓ «úαá¡¿τÑ¡¿∩, ß««ΓóÑΓßΓóπεΘ¿Ñ »«óδΦÑ¡¡«⌐ Γ«τ¡«ßΓ¿. îÑ¡∞Φ¿Ñ
  2971. «Φ¿í¬¿ «¬απú½Ñ¡¿∩ «º¡áτáεΓ í«½ÑÑ Γ«τ¡δ⌐ αѺπ½∞ΓáΓ.
  2972.      ä½∩ º¡áτÑ¡¿⌐ Σ«α¼á½∞¡δσ »áαá¼ÑΓα«ó ¿ αѺπ½∞ΓáΓá Σπ¡¬µ¿¿
  2973. óδ  ΓᬪѠ¼«ªÑΓÑ ºáñáΓ∞ »«óδΦÑ¡¡πε Γ«τ¡«ßΓ∞. ¥Γ« »«¼«ªÑΓ ¿º-
  2974. íѪáΓ∞ ¡Ñ¡πª¡δσ »αÑ«íαẫóá¡¿⌐ Γ¿»«ó τ¿ßѽ, »α¿ó«ñ∩Θ¿σ ¬ »«-
  2975. ΓÑαÑ Γ«τ¡«ßΓ¿. ìá»α¿¼Ñα:
  2976.  
  2977.   function Area(Radius: extended): extended;
  2978.   begin
  2979.     Area := Pi * Radius * Radius;
  2980.   end;
  2981.  
  2982.                 æαáó¡Ñ¡¿Ñ óÑΘÑßΓóÑ¡¡δσ τ¿ßѽ
  2983.  
  2984.      Å«ß¬«½∞¬π º¡áτÑ¡¿∩  óÑΘÑßΓóÑ¡¡«ú« Γ¿»á ∩ó½∩εΓß∩ »α¿í½¿-
  2985. º¿Γѽ∞¡δ¼¿, αѺπ½∞ΓáΓ  ßαáó¡Ñ¡¿∩ º¡áτÑ¡¿⌐ αẽ¿τ¡«ú« óÑΘÑßΓ-
  2986. óÑ¡¡«ú« Γ¿»á ¡Ñ óßÑúñá ¼«ª¡« »αÑñ߬áºáΓ∞. ìá»α¿¼Ñα, Ñß½¿ ò -
  2987. »ÑαѼѡ¡á∩  óÑΘÑßΓóÑ¡¡«ú« Γ¿»á ß «ñ¿¡áα¡«⌐ Γ«τ¡«ßΓ∞ε, á  Y -
  2988. »ÑαѼѡ¡á∩ óÑΘÑßΓóÑ¡¡«ú« Γ¿»á ß ñó«⌐¡«⌐  Γ«τ¡«ßΓ∞ε,  Γ«  αÑ-
  2989. ºπ½∞ΓáΓ«¼ óδ»«½¡Ñ¡¿∩  ß½ÑñπεΘ¿σ  «»ÑαáΓ«α«ó  íπñÑΓ  º¡áτÑ¡¿Ñ
  2990.  
  2991. False:
  2992.  
  2993.  X := 1/3;
  2994.  Y := 1/3;
  2995.  Writeln(X = Y);
  2996.  
  2997.      Åα¿τ¿¡á φΓ«ú« ß«ßΓ«¿Γ ó Γ«¼, τΓ« ò ¿¼ÑÑΓ Γ«τ¡«ßΓ∞ Γ«½∞-
  2998. ¬« ñ« 7-8 µ¿Σα,  á Y -  Γ«τ¡«ßΓ∞  ñ« 15-16 µ¿Σα, ¿ ¬«úñá «íá
  2999. º¡áτÑ¡¿∩  »αÑ«íαáºπεΓß∩ ¬  Γ¿»π ß  »«óδΦÑ¡¡«⌐  Γ«τ¡«ßΓ∞ε, Γ«
  3000. »«ß½Ñ  »Ñαóδσ 7-8 µ¿Σα «ßΓá½∞¡δÑ µ¿Σαδ íπñπΓ αẽ¿τáΓ∞ß∩.
  3001. ǡὫú¿τ¡«, αѺπ½∞ΓáΓ«¼ óδ»«½¡Ñ¡¿∩ «»ÑαáΓ«α«ó:
  3002.  
  3003.  X := 1/3;
  3004.  Writeln(X = 1/3);
  3005.  
  3006. íπñÑΓ  º¡áτÑ¡¿Ñ False, αѺπ½∞ΓáΓ 1/3 ó «»ÑαáΓ«αÑ Writeln óδ-
  3007. τ¿ß½∩ÑΓß∩ ß Γ«τ¡«ßΓ∞ε ñ« 20 º¡áτáΘ¿σ µ¿Σα.
  3008.  
  3009.              æΓѬ óδτ¿ß½Ñ¡¿⌐ ß«»α«µÑßß«αá 8087
  3010.  
  3011.      ô ß«»α«µÑßß«αá 8087 ¿¼ÑÑΓß∩ ó¡πΓαÑ¡¡¿⌐ ßΓѬ óδτ¿ß½Ñ¡¿⌐,
  3012. ¬«Γ«αδ⌐ ¼«ªÑΓ íδΓ∞ ú½πí¿¡«⌐ ñ« ó«ß∞¼¿ πα«ó¡Ñ⌐. ä«ßΓπ» ¬ º¡á-
  3013. τÑ¡¿ε, ¡áσ«ñ∩ΘѼπß∩ ó ßΓѬѠ߫»α«µÑßß«αá 8087 «ßπΘÑßΓó½∩ÑΓß∩
  3014. ¡á¼¡«ú« íδßΓαÑÑ,  τѼ  ñ«ßΓπ» ¬ »ÑαѼѡ¡«⌐ ó »á¼∩Γ¿, »«φΓ«¼π
  3015. ñ½∩ ñ«ßΓ¿ªÑ¡¿∩  ¼á¬ß¿¼á½∞¡«  ó«º¼«ª¡«⌐  »α«¿ºó«ñ¿Γѽ∞¡«ßΓ¿ ó
  3016. Æπαí«-Åá߬á½Ñ ó¡πΓαÑ¡¡¿⌐ ßΓѬ ß«»α«µÑßß«αá 8087 ¿ß»«½∞ºπÑΓß∩
  3017. ñ½∩ σαá¡Ñ¡¿∩ óαѼѡ¡δσ αѺπ½∞ΓáΓ«ó ¿ ñ½∩ »ÑαÑñáτ¿ »áαá¼ÑΓα«ó
  3018. »α«µÑñπαá¼ ¿ Σπ¡¬µ¿∩¼.
  3019.      Åα¿  ¿ß»«½∞º«óá¡¿¿ ßΓѬá ß«»α«µÑßß«αá 8087 ñ½∩ »ÑαÑñáτ¿
  3020. »áαá¼ÑΓα«ó »«ñαáºπ¼ÑóáÑΓß∩ τΓ«  »α«µÑñπαá ¿½¿ Σπ¡¬µ¿∩ ¡Ñ ¼«-
  3021. ªÑΓ ¿¼ÑΓ∞ í«½∞ΦÑ  ó«ß∞¼¿  º¡áτÑ¡¿⌐  »áαá¼ÑΓα«ó ß Γ¿»á¼¿, ¿ß-
  3022. »«½∞ºπεΘ¿¼¿ß∩ ó ß«»α«µÑßß«αÑ 8087 («ñ¿¡áα¡«⌐ Γ«τ¡«ßΓ¿, ñó«⌐-
  3023. ¡«⌐  Γ«τ¡«ßΓ¿,  »«óδΦÑ¡¡«⌐ Γ«τ¡«ßΓ¿ ¿½¿ ß½«ª¡«ú« Γ¿»á).  Åα¿
  3024. »«»δΓ¬Ñ «»¿ßáΓ∞ í«½∞ΦÑÑ τ¿ß½« »áαá¼ÑΓα«ó ¬«¼»¿½∩Γ«α ¡Ñ óδñá-
  3025. ÑΓ ß««íΘÑ¡¿∩ «í «Φ¿í¬Ñ, ¡« ó« óαѼ∩ óδ»«½¡Ñ¡¿∩ »α«úαἼᠻα¿
  3026. ó맮óÑ »«ñ»α«úαá¼¼δ ºáóÑαΦ¿Γ ßó«ε αáí«Γπ ß «Φ¿í¬«⌐. ìá τ¿ß½«
  3027. »áαá¼ÑΓα«ó óÑΘÑßΓóÑ¡¡«ú« Γ¿»á, ¬«Γ«αδÑ óδ  ¼«ªÑΓÑ  ¿ß»«½∞º«-
  3028. óáΓ∞, «úαá¡¿τÑ¡¿⌐ ¡Ñ ¡á¬½áñδóáÑΓß∩.  éδ ¼«ªÑΓÑ ΓᬪѠ«»¿ßáΓ∞
  3029. ½εí«Ñ τ¿ß½« »áαá¼ÑΓα«ó var.
  3030.  
  3031.       Åα¿¼Ñτá¡¿Ñ: é óδ»«½¡∩Ѽ«¼  ¬«ñÑ  »α¿ óσ«ñÑ ó »α«µÑñπαδ
  3032.       ¿½¿ Σπ¡¬µ¿¿  ½εíδÑ »áαá¼ÑΓαδ ß Γ¿»á¼¿, ¿ß»«½∞ºπεΘ¿¼¿ß∩
  3033.       ó ß«»α«µÑßß«αÑ 8087, ß«σαá¡∩εΓß∩ ó« óαѼѡ¡δσ «ΓóÑñÑ¡-
  3034.       ¡δσ ¿¼ ∩τÑ⌐¬áσ.  Åáαá¼ÑΓαδ ¼«úπΓ ºá¡¿¼áΓ∞ »α«ßΓαá¡ßΓó«
  3035.       ßΓѬᠠ߫»α«µÑßß«αá 8087  Γ«½∞¬« ó« óαѼ∩ ó맮óá, á ¡Ñ
  3036.       ó« óαѼ∩ óδ»«½¡Ñ¡¿∩ »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿.
  3037.  
  3038.      ÆÑ«αÑΓ¿τÑ߬¿ ß½¿Φ¬«¼  ß½«ª¡δÑ  óδαáªÑ¡¿∩  óÑΘÑßΓóÑ¡¡«ú«
  3039. Γ¿»á ¼«úπΓ óδºóáΓ∞ »ÑαÑ»«½¡Ñ¡¿Ñ ßΓѬá ß«»α«µÑßß«αá 8087. Äñ-
  3040. ¡á¬« φΓ«ú« ¡Ñ ¼«ªÑΓ ß½πτ¿Γ∞ß∩, »«ß¬«½∞¬π ñ½∩  φΓ«ú« »«ΓαÑí«-
  3041. óὫß∞ íδ, τΓ«íδ ó óδαáªÑ¡¿¿ »«½πτὫß∞ í«½ÑÑ  ó«ß∞¼¿ »α«¼Ñ-
  3042. ªπΓ«τ¡δσ αѺπ½∞ΓáΓ«ó.
  3043.      ü«½ÑÑ óÑß«¼á∩  «»áß¡«ßΓ∞  Γá¿Γß∩  ó«  ó½«ªÑ¡¡δσ ó맮óáσ
  3044. Σπ¡¬µ¿⌐.  àß½¿ ΓᬿѠ ¬«¡ßΓαπ¬µ¿¿ ß«ßΓáó½Ñ¡δ ¡Ñ¬«ααÑ¬Γ¡«, Γ«
  3045. «¡¿, ó»«½¡Ñ  óÑα«∩Γ¡«,  ¼«úπΓ  »α¿óÑßΓ¿ ¬ »ÑαÑ»«½¡Ñ¡¿ε ßΓѬá
  3046. ß«»α«µÑßß«αá 8087.
  3047.  
  3048.      ÅαÑñ»«½«ª¿¼, τΓ« Σπ¡¬µ¿∩ ÆÑst ∩ó½∩ÑΓß∩ Σπ¡¬µ¿Ñ⌐ ß »«óδ-
  3049. ΦÑ¡¡«⌐ ß Γ«τ¡«ßΓ∞ε ¿ π  ¡ÑÑ  ¿¼ÑÑΓß∩ Γα¿  »áαá¼ÑΓαá-º¡áτÑ¡¿∩
  3050. ß »«óδΦÑ¡¡«⌐ Γ«τ¡«ßΓ∞ε. Æ«úñá óδαáªÑ¡¿Ñ:
  3051.  
  3052.  X := Test(A,B,Test(C,D,Test(E,F,Test(X,Y,Z))));
  3053.  
  3054. ó맮óÑΓ »ÑαÑ»«½¡Ñ¡¿Ñ ßΓѬá ß«»α«µÑßß«αá 8087. ¥Γ« »α«¿º«⌐ñÑΓ
  3055. »«Γ«¼π, τΓ« »α¿ ßἫ¼ ó¡πΓαÑ¡¡Ñ¼ «íαáΘÑ¡¿¿ ¬  Σπ¡¬µ¿¿ ÆÑst ó
  3056. ßΓѬ ß«»α«µÑßß«αá 8087 πªÑ »«¼ÑΘÑ¡« 6  º¡áτÑ¡¿⌐  ß »½áóáεΘÑ⌐
  3057. ºá»∩Γ«⌐ ¿ «ßΓὫß∞ ¼ÑßΓ« Γ«½∞¬« ñ½∩ ñóπσ.  Åαáó¿½∞¡«⌐ ¬«¡ßΓ-
  3058. απ¬µ¿Ñ⌐ ó ñá¡¡«¼ ß½πτáÑ íπñÑΓ:
  3059.  
  3060.  X := Test(X,Y,Z);
  3061.  X := Test(E,F,X);
  3062.  X := Test(C,D,X);
  3063.  X := Test(A,B,X);
  3064.  
  3065.      Ç¡á½«ú¿τ¡á∩  ß¿Γπᵿ∩ ¼«ªÑΓ ó«º¡¿¬¡πΓ∞ ó αѬπαß¿ó¡« óδ-
  3066. »«½¡∩εΘ¿σß∩ Σπ¡¬µ¿∩σ. Éáßß¼«Γα¿¼, ¡á»α¿¼Ñα, ß½ÑñπεΘπε »α«µÑ-
  3067. ñπαπ, ó ¬«Γ«α«⌐ ß »«¼«Θ∞ε αѬπαß¿¿ óδτ¿ß½∩εΓß∩  τ¿ß½á  ö¿í«-
  3068. ¡áττ¿:
  3069.  
  3070.  function Fib(N: integer): extended;
  3071.  begin
  3072.    if N = 0 then Fib := 0.0 else
  3073.    if N = 1 then Fib := 1.0 else
  3074.    Fib := Fib(N-1) + Fib(N-2);
  3075.  end;
  3076.  
  3077.      ÄíαáΘÑ¡¿Ñ ¬  ñá¡¡«⌐ óÑαß¿¿ »α«µÑñπαδ Fib »α¿óÑñÑΓ ¬ »Ñ-
  3078. αÑ»«½¡Ñ¡¿ε ßΓѬá ß«»α«µÑßß«αá 8087, Γᬠ¬á¬ º¡áτÑ¡¿⌐ N í«½∞-
  3079. ΦÑ, τѼ 8. Åα¿τ¿¡á ºá¬½ετáÑΓß∩ ó Γ«¼, τΓ« »«ß½Ññ¡¿⌐ «»ÑαáΓ«α
  3080. »α¿ßóá¿óá¡¿∩ ΓαÑíπÑΓ óαѼѡ¡«ú« ß«σαá¡Ñ¡¿∩ αѺπ½∞ΓáΓá óδ»«½-
  3081. ¡Ñ¡¿∩ »α«µÑñπαδ  Fib(N-1) ó ßΓѬѠ߫»α«µÑßß«αá 8087.  èáªñ«Ñ
  3082. αѬπαß¿ó¡«Ñ «íαáΘÑ¡¿Ñ óδñѽ∩ÑΓß∩ «ñ¡á ∩τÑ⌐¬á ßΓѬᠿ  ¡á ñÑ-
  3083. ó∩Γ«¼ «íαáΘÑ¡¿¿ »α«¿º«⌐ñÑΓ  »ÑαÑ»«½¡Ñ¡¿Ñ  ßΓѬá.  è«ααÑ¬Γ¡«⌐
  3084. ¬«¡ßΓαπ¬µ¿Ñ⌐ ó φΓ«¼ ß½πτáÑ íπñÑΓ:
  3085.  
  3086.  function Fib(N : integer) : extended;
  3087.  var
  3088.    F1,F2 : extended;
  3089.  begin
  3090.    if N = 0 then Fib := 0.0 else
  3091.    if N = 1 then Fib := 1.0 else
  3092.  begin
  3093.    F1 := Fib(N-1); F2 := Fib(N-2);
  3094.    Fib := F1 + F2;
  3095.  end;
  3096.  end;
  3097.  
  3098.      éαѼѡ¡δÑ αѺπ½∞ΓáΓδ ΓÑ»Ñα∞ ß«σαá¡∩εΓß∩  ó  »ÑαѼѡ¡δσ,
  3099. ñ½∩ ¬«Γ«αδσ «Γó«ñ¿Γß∩ ßΓѬ »α«µÑßß«αá 8086. (æΓѬ »α«µÑßß«αá
  3100. 8086 ¬«¡Ñτ¡« Γ«ªÑ ¼«ªÑΓ »ÑαÑ»«½¡¿Γ∞ß∩, ¡« φΓ« «íδτ¡« ΓαÑíπÑΓ
  3101. ú«αáºñ« í«½∞ΦÑú« τ¿ß½á αѬπαß¿ó¡δσ ó맮ó«ó).
  3102.  
  3103.               çỿß∞ ñÑ⌐ßΓó¿Γѽ∞¡δσ τ¿ßѽ »α¿
  3104.               ¿ß»«½∞º«óá¡¿¿ ß«»α«µÑßß«αá 8087
  3105.  
  3106.      àß½¿ íδ½á π¬áºá¡á ñ¿αÑ¬Γ¿óá  {$N+}, Γ« ßΓá¡ñáαΓ¡δÑ »α«-
  3107. µÑñπαδ Write ¿ Writeln ñ½∩ Γ«ú«,  τΓ«íδ «íÑß»Ñτ¿Γ∞ »αÑñßΓáó-
  3108. ½Ñ¡¿Ñ ó αáßΦ¿αÑ¡¡«¼ ñ¿á»áº«¡Ñ, óδó«ñ∩Γ ó ßΓα«¬Ñ ß ñÑß∩Γ¿τ¡δ-
  3109. ¼¿ τ¿ß½á¼¿ ß »½áóáεΘÑ⌐  ºá»∩Γ«⌐  τÑΓδαÑ µ¿Σαδ ñ½∩ φ¬ß»«¡Ñ¡Γδ
  3110. ó¼ÑßΓ« ñóπσ. Ç¡á½«ú¿τ¡«, ßΓá¡ñáαΓ¡á∩ »α«µÑñπαá Str »α¿ óδí«-
  3111. αÑ Σ«α¼áΓá ß »½áóáεΘÑ⌐ ºá»∩Γ«⌐ ó«ºóαáΘáÑΓ º¡áτÑ¡¿Ñ φ¬ß»«¡Ñ¡-
  3112. Γδ, ß«ßΓ«∩ΘÑÑ ¿º τÑΓδαÑσ µ¿Σα.
  3113.  
  3114.       î«ñπ½¿, ó ¬«Γ«αδσ ¿ß»«½∞ºπÑΓß∩ ß«»α«µÑßß«α 8087
  3115.  
  3116.      î«ñπ½¿, ó ¬«Γ«αδσ  ¿ß»«½∞ºπÑΓß∩ ß«»α«µÑßß«α 8087, ¼«úπΓ
  3117. óδºδóáΓ∞ß∩ ñαπú¿¼¿ ¼«ñπ½∩¼¿  ¿½¿  »α«úαἼἿ  Γ«½∞¬« ó  Γ«¼
  3118. ß½πτáÑ, Ñß½¿ φΓ¿ ¼«ñπ½¿ ¿½¿ »α«úαá¼¼δ  í뫨 ß¬«¼»¿½¿α«óá¡δ ß
  3119. ñ¿αÑ¬Γ¿ó«⌐ {$N+}.Æ«, τΓ« ¼«ñπ½∞ ¿ß»«½∞ºπÑΓ ß«»α«µÑßß«α 8087,
  3120. «»αÑñѽ∩ÑΓß∩ ΓѼ, ß«ñÑαªáΓß∩ ½¿ ó ¡Ñ¼ ¿¡ßΓαπ¬µ¿¿ ß«»α«µÑßß«-
  3121. αá 8087, á ¡Ñ ñ¿αÑ¬Γ¿ó«⌐ $N ó« óαѼ∩ ¿σ ¬«¼»¿½∩µ¿¿. ¥Γ« »«º-
  3122. ó«½∩ÑΓ ¬«¼»¿½∩Γ«απ íδΓ∞  í«½ÑÑ  "ß¡¿ßσ«ñ¿Γѽ∞¡δ¼",  ¬«úñá óδ
  3123. ß½πτá⌐¡« ¬«¼»¿½¿απÑΓÑ ¼«ñπ½∞ (ó ¬«Γ«α«¼ ¿ß»«½∞ºπÑΓß∩  ß«»α«-
  3124. µÑßß«α 8087), ¡Ñ π¬áºáó ñ¿αÑ¬Γ¿óπ {$N+}.
  3125.  
  3126.               Éáß»«º¡áóá¡¿Ñ ß«»α«µÑßß«αá 8087
  3127.  
  3128.      êß»«½¡∩εΘá∩ í¿í½¿«ΓѬá Æπαí«-Åá߬á½∩, óßΓα«Ñ¡¡á∩ ó óáΦπ
  3129. »α«úαá¼¼π  (߬«¼»¿½¿α«óá¡¡πε  ß ñ¿αÑ¬Γ¿ó«⌐ {$N+}) ó¬½ετáÑΓ ó
  3130. ßÑí∩ ¬«ñ ¿¡¿µ¿á½¿ºáµ¿¿, ¬«Γ«αδ⌐ áóΓ«¼áΓ¿τÑ߬¿ αáß»«º¡áÑΓ ¡á-
  3131. ½¿τ¿Ñ ó ß¿ßΓѼѠ¼¿¬α«ßσѼδ ß«»α«µÑßß«αá 8087. àß½¿ ß«»α«µÑß-
  3132. ß«α 8087 ¿¼ÑÑΓß∩, Γ« »α«úαá¼¼á íπñÑΓ Ñú«  áóΓ«¼áΓ¿τÑ߬¿  ¿ß-
  3133. »«½∞º«óáΓ∞.  é ß½πτáÑ  ªÑ Ñú« «ΓßπΓßΓó¿∩ »α«úαá¼¼á íπñÑΓ ¿ß-
  3134. »«½∞º«óáΓ∞ φ¼π½¿απεΘπε í¿í½¿«ΓѬπ ¿ß»«½¡∩εΘÑ⌐ ß¿ßΓѼδ.  àß½¿
  3135. »α«úαἼᠠ¬«¼»¿½¿α«óá½áß∞ ß ñ¿αÑ¬Γ¿ó«⌐ {$E-} ¿ »« óαѼ∩ ¡á-
  3136. τá½á ÑÑ αáí«Γδ ß«»α«µÑßß«α ¡Ñ «í¡áαπª¿óáÑΓß∩,  Γ«  »α«úαá¼¼á
  3137. ºáóÑαΦáÑΓ  αáí«Γπ  ß ß««íΘÑ¡¿Ñ¼ Numeric coprocessor required
  3138. (ΓαÑíπÑΓß∩ ß«»α«µÑßß«α áα¿Σ¼ÑΓ¿τÑ߬¿σ óδτ¿ß½Ñ¡¿⌐).
  3139.      àßΓ∞ ¡Ñ߬«½∞¬« ß½πτáÑó, ¬«úñá óδ ó«º¼«ª¡« ºáσ«Γ¿ΓÑ  ¿º-
  3140. ¼Ñ¡¿Γ∞  Γá¬πε  »α¿¡∩Γπε  »« π¼«½τá¡¿ε ½«ú¿¬π áóΓ««í¡áαπªÑ¡¿∩
  3141. ß«»α«µÑßß«αá. ìá»α¿¼Ñα, ó óáΦÑ⌐ ß¿ßΓѼѠ¼«ªÑΓ »α¿ßπΓßΓó«óáΓ∞
  3142. ß«»α«µÑßß«α  8087, ¡« óδ ºáσ«Γ¿ΓÑ »α«óÑα¿Γ∞, ¬á¬ íπñÑΓ αáí«-
  3143. ΓáΓ∞ »α«úαá¼¼á, »αÑñ¡áº¡áτÑ¡¡á∩ ñ½∩ Σπ¡¬µ¿«¡¿α«óá¡¿∩ ¡á ß¿ß-
  3144. ΓѼáσ  íѺ  ß«»α«µÑßß«αá.  ê½¿ ªÑ »«ΓαÑíπÑΓß∩ ºá»πßΓ¿Γ∞ óáΦπ
  3145. »α«úαá¼¼π ¡á ß¿ßΓѼÑ, ß«ó¼ÑßΓ¿¼«⌐ ß ¬«¼»∞εΓÑα«¼  Éæ,  ¡«  ¡á
  3146. φΓ«⌐  ß¿ßΓѼѠ»α¿ αáí«ΓÑ á½ú«α¿Γ¼á áóΓ««í¡áαπªÑ¡¿∩ íπñÑΓ óδ-
  3147. ó«ñ¿Γ∞ß∩ ¡Ñ¬«ααÑ¬Γ¡á∩ ¿¡Σ«α¼áµ¿∩ (¡á»α¿¼Ñα, íπñÑΓ ß««íΘáΓ∞ß∩
  3148. « ¡á½¿τ¿Ñ ß«»α«µÑßß«αá, ¬«úñá ¡á ßἫ¼ ñѽѠÑú« ¡ÑΓ, ¿½¿ ¡á-
  3149. «í«α«Γ).
  3150.      é Æπαí«-Åá߬á½Ñ »αÑñπß¼«ΓαÑ¡á ó«º¼«ª¡«ßΓ∞ «Γ¼Ñ¡δ »α¿¡∩-
  3151. Γ«⌐  »«  π¼«½τá¡¿ε ½«ú¿¬¿ áóΓ«¼áΓ¿τÑ߬«ú« αáß»«º¡áóá¡¿∩. ¥Γá
  3152. 󫺼«ª¡«ßΓ∞ ºáñáÑΓß∩ »ÑαѼѡ¡«⌐ «»Ñαᵿ«¡¡«⌐ ßαÑñδ 87.
  3153.      éδ ¼«ªÑΓÑ πßΓá¡«ó¿Γ∞ »ÑαѼѡ¡πε «»Ñαᵿ«¡¡«⌐ ßαÑñδ 87 ó
  3154. «ΓóÑΓ ¡á »«ñ߬Ậπ äÄæ ß »«¼«Θ∞ε ¬«¼á¡ñδ SET, ¡á»α¿¼Ñα, ß½Ñ-
  3155. ñπεΘ¿¼ «íαẫ¼:
  3156.  
  3157.      SET 87=Y
  3158.  
  3159. ¿½¿
  3160.  
  3161.      SET 87=N
  3162.  
  3163.      ôßΓá¡«ó¬á ñ½∩ »ÑαѼѡ¡«⌐ «»Ñαᵿ«¡¡«⌐ ßαÑñδ 87 º¡áτÑ¡¿∩
  3164. N  (¡ÑΓ)  π¬áºδóáÑΓ ¬«ñπ ¿¡¿µ¿á½¿ºáµ¿¿, τΓ« óδ ¡Ñ σ«Γ¿ΓÑ ¿ß-
  3165. »«½∞º«óáΓ∞ ß«»α«µÑßß«α 8087, σ«Γ∩ «¡ ¼«ªÑΓ ¿ »α¿ßπßΓßΓó«óáΓ∞
  3166. ó  ß¿ßΓѼÑ. ê ¡á«í«α«Γ: πßΓá¡«ó¬á ñ½∩ »ÑαѼѡ¡«⌐ 87 º¡áτÑ¡¿∩
  3167. Y (ñá) «º¡áτáÑΓ, τΓ« ß«»α«µÑßß«α ¿¼ÑÑΓß∩ ¿ óδ σ«Γ¿ΓÑ,  τΓ«íδ
  3168. óáΦá  »α«úαá¼¼á Ñú« ¿ß»«½∞º«óá½á. Äñ¡á¬« »α¿ φΓ«¼ ¡πª¡« »«¼-
  3169. ¡¿Γ∞ « Γ«¼, τΓ« πßΓá¡«ó¬á ñ½∩ »ÑαѼѡ¡«⌐ 87 º¡áτÑ¡¿∩  Y  »α¿
  3170. «ΓßπΓßΓó¿¿  ó ß¿ßΓѼѠ߫»α«µÑßß«αá 8087 »α¿óÑñÑΓ ¬ Γ«¼π, τΓ«
  3171. óáΦá »α«úαá¼¼á áóáα¿⌐¡« ºáóÑαΦ¿Γ αáí«Γπ ¿½¿ ºáó¿ß¡ÑΓ.
  3172.      àß½¿ »ÑαѼѡ¡á∩ «»Ñαᵿ«¡¡«⌐ ßαÑñδ 87 «»αÑñѽѡá, á  óδ
  3173. σ«Γ¿ΓÑ,  τΓ«íδ  «¡á  ßΓá½á ¡Ñ«»αÑñѽѡ¡«⌐, Γ« ¼«ª¡« óóÑßΓ¿ ó
  3174. «ΓóÑΓ ¡á »«ñ߬Ậπ äÄæ:
  3175.  
  3176.      SET 87=
  3177.  
  3178. ¿ ¡áªáΓ∞ ¬½áó¿Φπ Enter.
  3179.      àß½¿ ó «»Ñαᵿ«¡¡«⌐ ßαÑñÑ äÄæ »α¿ßπΓßΓóπÑΓ ºá»¿ß∞ 87=Y,
  3180. ¿½¿  Ñß½¿  ¬«ñ ¿¡¿µ¿á½¿ºáµ¿¿ πß»ÑΦ¡« αáß»«º¡áÑΓ ß«»α«µÑßß«α,
  3181. Γ« ñá½ÑÑ ¬«ñ ¿¡¿µ¿á½¿ºáµ¿¿ óδ»«½¡∩ÑΓ  »«ß½ÑñπεΘ¿Ñ  »α«óÑન,
  3182. τΓ«íδ  «»αÑñѽ¿Γ∞,  ¬á¬«⌐  φΓ«  ß«»α«µÑßß«α (8087, 80287 ¿½¿
  3183. 80387). ¥Γ« ¡Ñ«íσ«ñ¿¼« ñ½∩  Γ«ú«,  τΓ«íδ  Æπαí«-Åá߬á½∞  ¼«ú
  3184. ¬«ααÑ¬Γ¡«  αáí«ΓáΓ∞  ß «Γñѽ∞¡δ¼¿ ¡Ñß«ó¼ÑßΓ¿¼«ßΓ∩¼¿, ¬«Γ«αδÑ
  3185. ¿¼ÑεΓß∩ ¼Ñªñπ ß«»α«µÑßß«αἿ αẽ¿τ¡δσ Γ¿»«ó.
  3186.      ÉѺá½∞ΓáΓ áóΓ«¼áΓ¿τÑ߬«ú« αáß»«º¡áóá¡¿∩ ¡á½¿τ¿∩  ß«»α«-
  3187. µÑßß«αá  ¿ Ñú« ¼«ñѽ¿ ß«σαá¡∩ÑΓß∩ ó »ÑαѼѡ¡«⌐ Test8087 (¬«-
  3188. Γ«αá∩ «»¿ßδóáÑΓß∩ ó ¼«ñπ½Ñ System). ä½∩ ¡ÑÑ «»αÑñÑ½Ñ¡δ  ß½Ñ-
  3189. ñπεΘ¿Ñ º¡áτÑ¡¿∩:
  3190.  
  3191.      0 - ß«»α«µÑßß«α ¡Ñ «í¡áαπªÑ¡;
  3192.      1 - «í¡áαπªÑ¡ ß«»α«µÑßß«α 8087;
  3193.      2 - «í¡áαπªÑ¡ ß«»α«µÑßß«α 80287;
  3194.      3 - «í¡áαπªÑ¡ ß«»α«µÑßß«α 80387.
  3195.  
  3196.      ùΓ«íδ «»αÑñѽ¿Γ∞ σáαá¬ΓÑα¿ßΓ¿¬Ñ ß¿ßΓѼδ, ¡á ¬«Γ«α«⌐ αá-
  3197. í«ΓáÑΓ  αáΦá  »α«úαá¼¼á, óδ ¼«ªÑΓÑ ó »α«úαἼѠ»α«óÑα¿Γ∞ ß«-
  3198. ñÑন¼«Ñ »ÑαѼѡ¡«⌐ Test8087. é  τáßΓ¡«ßΓ¿,  φΓπ  »ÑαѼѡ¡πε
  3199. ¼«ª¡«  »α«á¡á½¿º¿α«óáΓ∞ ñ½∩ Γ«ú«, τΓ«íδ «»αÑñѽ¿Γ∞, φ¼π½¿απ-
  3200. εΓß∩ ¿¡ßΓαπ¬µ¿¿ αáí«Γδ ß »½áóáεΘÑ⌐ ºá»∩Γ«⌐, ¿½¿ «¡¿ ñÑ⌐ßΓó¿-
  3201. Γѽ∞¡« óδ»«½¡∩εΓß∩.
  3202.  
  3203.                   êß»«½∞º«óá¡¿Ñ φ¼π½∩µ¿¿
  3204.            ß«»α«µÑßß«αá 8087 ¡á ∩ºδ¬Ñ áßßѼí½Ñαá
  3205.  
  3206.      è«úñá ¬«¼»«¡«ó¬á «íΩÑ¬Γ¡δσ Σá⌐½«ó óδ»«½¡∩ÑΓß∩ ß  ñ¿αѬ-
  3207. Γ¿ó«⌐ {$L ¿¼∩_Σá⌐½á}, ¡Ñ«íσ«ñ¿¼« «íÑß»Ñτ¿Γ∞, τΓ«íδ φΓ¿ Σá⌐½δ
  3208. ¬«¼»¿½¿α«ó὿Γ∞ ß αáºαÑΦÑ¡¿Ñ¼  φ¼π½∩µ¿¿  ß«»α«µÑßß«αá  8087.
  3209. ìá»α¿¼Ñα,  Ñß½¿  óδ ¿ß»«½∞ºπÑΓÑ ¿¡ßΓαπ¬µ¿¿ ß«»α«µÑßß«αá 8087
  3210. ó« ó¡ÑΦ¡¿σ »α«µÑñπαáσ ¡á ∩ºδ¬Ñ áßßѼí½Ñαá,  ¡Ñ«íσ«ñ¿¼«  πíÑ-
  3211. ñ¿Γ∞ß∩,  τΓ«  »α¿  áßßÑ¼í½¿α«óá¡¿¿  Σá⌐½«ó .ASM ó Σá⌐½δ .OBJ
  3212. φ¼π½∩µ¿∩ αáºαÑΦÑ¡á. é »α«Γ¿ó¡«¼ ß½πτáÑ ¿¡ßΓαπ¬µ¿¿  ß«»α«µÑß-
  3213. ß«αá 8087 ¡Ñ ¼«úπΓ φ¼π½¿α«óáΓ∞ß∩ ¡á ¼áΦ¿¡áσ íѺ ß«»α«µÑßß«αá
  3214. 8087. ä½∩ αáºαÑΦÑ¡¿∩ φ¼π½∩µ¿¿ ¿ß»«½∞ºπ⌐ΓÑ »ÑαѬ½ετáΓѽ∞  ¬«-
  3215. ¼á¡ñ¡«⌐ ßΓ᫬¿ Æπαí«-ÇßßѼí½Ñαá /à.
  3216.  
  3217.  
  3218.  
  3219.