home *** CD-ROM | disk | FTP | other *** search
/ BBS 1 / BBS#1.iso / document / pas60pg.lzh / PG10.MY < prev    next >
Text File  |  1991-02-01  |  36KB  |  825 lines
  1.                            ù Ç æ Æ £  2.
  2.  
  3.                       æÆÇìäÇÉÆì¢à üêüïêÄÆàèê.
  4.  
  5.                              âïÇéÇ 10.
  6.  
  7.                           îÄäôSYSTEM.
  8.  
  9.      î«ñπ½∞ System  ∩ó½∩ÑΓß∩  í¿í½¿«ΓѬ«⌐  Turbo   Pascal   óαѼѡ¿
  10. óδ»«½¡Ñ¡¿∩.   Ä¡   αÑ὿ºπÑΓ  ¡¿º¬«-πα«ó¡ÑóδÑ  »α«úαá¼¼δ  ñ½∩  óßÑσ
  11. óßΓα«Ñ¡¡δσ ó«º¼«ª¡«ßΓÑ⌐ ,  Γᬿσ ¬á¬ óó«ñ/óδó«ñ,  «íαáí«Γ¬á  ßΓ᫬,
  12. φ¼π½∩µ¿∩ 8087, »½áóáεΘπε Γ«τ¬π, π»αáó½Ñ¡¿Ñ «óÑα½Ñ∩¼¿ ¿ ñ¿¡á¼¿τÑ߬«Ñ
  13. αáß»αÑñѽѡ¿Ñ  »á¼∩Γ¿.  î«ñπ½∞  System  ¿ß»«½∞ºπÑΓß∩  áóΓ«¼áΓ¿τÑ߬¿
  14. ½εíδ¼ ¼«ñπ½Ñ¼ ¿½¿ »α«úαá¼¼«⌐ ¿ ¡¿¬«úñá ¡Ñ ΓαÑíπÑΓß∩ π¬áºδóáΓ∞ Ñú« ó
  15. πΓóÑαªñÑ¡¿¿ uses.
  16.  
  17.  
  18.                  æΓá¡ñáαΓ¡δÑ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿.
  19.  
  20.      é ñá¡¡«¼  αáºñѽѠ «»¿ßδóáεΓß∩  óßÑ  ßΓá¡ñáαΓ¡δÑ  »α«µÑñπαδ  ¿
  21. Σπ¡¬µ¿¿,  ¿ß»«½∞ºπεΘ¿Ñß∩ ó  Turbo  Pascal,  ¬α«¼Ñ  ΓÑσ  »α«µÑñπα  ¿
  22. Σπ¡¬µ¿⌐ óó«ñá/óδó«ñá, ¬«Γ«αδÑ «íßπªñáεΓß∩ ó αáºñѽѠ"éó«ñ ¿ óδó«ñ".
  23. ü«½ÑÑ »«ñα«í¡á∩ ¿¡Σ«α¼áµ¿∩ ß«ñÑনΓß∩ ó æ»αáó«τ¡«¼  απ¬«ó«ñßΓóÑ  »«
  24. í¿í½¿«ΓѬÑ.
  25.      æΓá¡ñáαΓ¡δÑ »α«µÑñπαδ ¿  Σπ¡¬µ¿¿  ∩ó½∩εΓß∩  »αÑñ«»αÑñѽѡ¡δ¼¿.
  26. ū߬«½∞¬π óßÑ »αÑñ«»αÑñѽѡ¡δÑ φ½Ñ¼Ñ¡Γδ ñÑ⌐ßΓóπεΓ Γ«τ¡« ΓᬠªÑ, ¬á¬
  27. Ñß½¿ íδ «¡¿ í뫨 «íΩ∩ó½Ñ¡δ ó «¬απªáεΘѼ  »α«úαá¼¼π  í½«¬Ñ,  Γ«  »α¿
  28. «íΩ∩ó½Ñ¡¿¿,  »ÑαÑ«»αÑñѽ∩εΘѼ  Γ«Γ  ªÑ  ßá¼δ⌐  ¿ñÑ¡Γ¿Σ¿¬áΓ«α ó¡πΓα¿
  29. »α«úαá¼¼δ, ¬«¡Σ½¿¬ΓᠡѠ󫺡¿¬áÑΓ.
  30.  
  31.  
  32.                  Åα«µÑñπαδ π»αáó½Ñ¡¿∩ «íαáí«Γ¬«⌐.
  33.  
  34. ───────────────────────────────────────────────────────────────────
  35.    Åα«µÑñπαá                      Ä»¿ßá¡¿Ñ
  36. ───────────────────────────────────────────────────────────────────
  37.    Exit        Å«ºó«½∩ÑΓ ¡Ñ¼Ññ½Ñ¡¡« óδ⌐Γ¿ ¿º ΓѬπΘÑú« í½«¬á
  38.  
  39.    Halt        ÄßΓá¡áó½¿óáÑΓ óδ»«½¡Ñ¡¿Ñ »α«úαá¼¼δ ¿ ó«ºóαáΘáÑΓ
  40.                ó «»Ñαᵿ«¡¡πε ß¿ßΓѼπ
  41.  
  42.    RunError    ÄßΓá¡áó½¿óáÑΓ óδ»«½¡Ñ¡¿Ñ »α«úαá¼¼δ ¿ úÑ¡Ñα¿απÑΓ
  43.                «Φ¿í¬π óαѼѡ¿ óδ»«½¡Ñ¡¿∩
  44. ───────────────────────────────────────────────────────────────────
  45.  
  46.  
  47.               Åα«µÑñπαδ ñ¿¡á¼¿τÑ߬«ú« αáß»αÑñѽѡ¿∩.
  48.  
  49.      ¥Γ¿ »α«µÑñπαδ    ¿   Σπ¡¬µ¿¿   ¿ß»«½∞ºπεΓß∩   ñ½∩   π»αáó½Ñ¡¿∩
  50. ¬πτÑ⌐ - «í½áßΓ∞ε »á¼∩Γ¿,  ¬«Γ«αá∩ ºá¡¿¼áÑΓ  óßε  ßó«í«ñ¡πε  »á¼∩Γ∞,
  51. «ßΓáεΘπεß∩  »α¿  óδ»«½¡Ñ¡¿¿  »α«úαá¼¼δ.  Å«½¡«Ñ  «»¿ßá¡¿Ñ  ¼ÑΓ«ñ«ó,
  52. ¿ß»«½∞ºπѼδσ ñ½∩  π»αáó½Ñ¡¿∩  ñ¿¡á¼¿τÑ߬¿  αáß»αÑñѽ∩Ѽ«⌐  «í½áßΓ∞ε
  53. »á¼∩Γ¿, »α¿ó«ñ¿Γß∩ ó αáºñѽѠ"îÑ¡ÑñªÑα ¬πτ¿" ó ú½áóÑ 16 "Åá¼∩Γ∞".
  54.  
  55. ───────────────────────────────────────────────────────────────────
  56.    Åα«µÑñπαá                      Ä»¿ßá¡¿Ñ
  57. ───────────────────────────────────────────────────────────────────
  58.    Dispose     ô¡¿τΓ«ªáÑΓ ñ¿¡á¼¿τÑ߬πε »ÑαѼѡ¡πε
  59.  
  60.    FreeMem     ô¡¿τΓ«ªáÑΓ ñ¿¡á¼¿τÑ߬πε »ÑαѼѡ¡πε ñá¡¡«ú« αẼÑαá
  61.  
  62.    GetMem      æ«ºñáÑΓ ¡«óπε ñ¿¡á¼¿τÑ߬πε »ÑαѼѡ¡πε ºáñá¡¡«ú«
  63.                αẼÑαá ¿ πßΓá¡áó½¿óáÑΓ »ÑαѼѡ¡πε-π¬áºáΓѽ∞ ñ½∩ ¡ÑÑ
  64.  
  65.    Mark        çỿßδóáÑΓ ó »ÑαѼѡ¡«⌐-π¬áºáΓѽѠ߫ßΓ«∩¡¿Ñ ¬πτ¿
  66.  
  67.    New         æ«ºñáÑΓ ¡«óπε ñ¿¡á¼¿τÑ߬πε »ÑαѼѡ¡πε ¿
  68.                πßΓá¡áó½¿óáÑΓ ¡á ¡ÑÑ »ÑαѼѡ¡πε-π¬áºáΓѽ∞
  69.  
  70.    Release     é«ºóαáΘáÑΓ ¬πτπ ó ºáñá¡¡«Ñ ß«ßΓ«∩¡¿Ñ
  71. ───────────────────────────────────────────────────────────────────
  72.  
  73.  
  74.                öπ¡¬µ¿¿ ñ¿¡á¼¿τÑ߬«ú« αáß»αÑñѽѡ¿∩.
  75.  
  76. ───────────────────────────────────────────────────────────────────
  77.      öπ¡¬µ¿∩                      Ä»¿ßá¡¿Ñ
  78. ───────────────────────────────────────────────────────────────────
  79.    MaxAvail     é«ºóαáΘáÑΓ αẼÑα     ¡á¿í«½∞ΦÑú«      ¡Ñ»αÑαδó¡«ú«
  80.                 ßó«í«ñ¡«ú«   í½«¬á  ¬πτ¿,  ß««ΓóÑΓßΓóπεΘÑ⌐  αẼÑαπ
  81.                 ¡á¿í«½∞ΦÑ⌐ ñ¿¡á¼¿τÑ߬«⌐ »ÑαѼѡ¡«⌐,  ¬«Γ«αá∩  ¼«ªÑΓ
  82.                 íδΓ∞ αáß»αÑñѽѡá ó ¼«¼Ñ¡Γ ó맮óá MaxAvail
  83.  
  84.    MemAvail     é«ºóαáΘáÑΓ ¬«½¿τÑßΓó«  ¿¼ÑεΘ¿σß∩  ó  ¬πτÑ ßó«í«ñ¡δσ
  85.                 íá⌐Γ
  86. ───────────────────────────────────────────────────────────────────
  87.  
  88.  
  89.                       öπ¡¬µ¿¿ »αÑ«íαẫóá¡¿∩.
  90.  
  91.      Åα«µÑñπαδ Pack ¿ UnPack, «»αÑñѽѡ¡δÑ ó ßΓá¡ñáαΓ¡«¼ Åá߬á½Ñ, ó
  92. Turbo Pascal ¡Ñ αÑ὿º«óá¡δ.
  93.  
  94. ───────────────────────────────────────────────────────────────────
  95.      öπ¡¬µ¿∩                      Ä»¿ßá¡¿Ñ
  96. ───────────────────────────────────────────────────────────────────
  97.    Chr       é«ºóαáΘáÑΓ ß¿¼ó«½ ß ºáñá¡¡δ¼ »«α∩ñ¬«óδ¼ ¡«¼Ñα«¼
  98.  
  99.    Ord       é«ºóαáΘáÑΓ »«α∩ñ¬«óδ⌐    ¡«¼Ñα,    ¿¼ÑεΘ¿⌐    º¡áτÑ¡¿Ñ
  100.              »«α∩ñ¬«ó«ú« Γ¿»á
  101.  
  102.    Round     Ä¬απú½∩ÑΓ º¡áτÑ¡¿Ñ óÑΘÑßΓóÑ¡¡«ú« Γ¿»á ñ« º¡áτÑ¡¿∩ Γ¿»á
  103.              LongInt
  104.  
  105.    Trunc     ôßѬáÑΓ º¡áτÑ¡¿Ñ  óÑΘÑßΓóÑ¡¡«ú«  Γ¿»á ñ« º¡áτÑ¡¿∩ Γ¿»á
  106.              LongInt
  107. ───────────────────────────────────────────────────────────────────
  108.  
  109.  
  110.                       Çα¿Σ¼ÑΓ¿τÑ߬¿Ñ Σπ¡¬µ¿¿.
  111.  
  112.      Åα¿¼Ñτá¡¿Ñ: Åα¿ ¬«¼»¿½∩µ¿¿ ó αѪ¿¼Ñ τ¿ß½«ó«ú« ß«»α«µÑßß«αá, {$
  113. N+}, ó«ºóαáΘáѼδÑ º¡áτÑ¡¿∩ ó »α«úαá¼¼áσ ß »½áóáεΘÑ⌐ Γ«τ¬«⌐ ó ¼«ñπ½Ñ
  114. System (Sqrt, Pi, Sin ¿ Γ.ñ.) ¿¼ÑεΓ Γ¿» àxtended ó¼ÑßΓ« Real.
  115.  
  116. ───────────────────────────────────────────────────────────────────
  117.      öπ¡¬µ¿∩                      Ä»¿ßá¡¿Ñ
  118. ───────────────────────────────────────────────────────────────────
  119.    Abs         é«ºóαáΘáÑΓ áíß«½εΓ¡«Ñ º¡áτÑ¡¿Ñ áαúπ¼Ñ¡Γá
  120.  
  121.    ArcTan      é«ºóαáΘáÑΓ áα¬Γá¡úÑ¡ß áαúπ¼Ñ¡Γá
  122.  
  123.    Cos         é«ºóαáΘáÑΓ ¬«ß¿¡πß áαúπ¼Ñ¡Γá
  124.  
  125.    Exp         é«ºóαáΘáÑΓ φ¬ß»«¡Ñ¡Γπ áαúπ¼Ñ¡Γá
  126.  
  127.    Frac        é«ºóαáΘáÑΓ ñα«í¡πε τáßΓ∞ áαúπ¼Ñ¡Γá
  128.  
  129.    Int         é«ºóαáΘáÑΓ µÑ½πε τáßΓ∞ áαúπ¼Ñ¡Γá
  130.  
  131.    Ln          é«ºóαáΘáÑΓ ¡áΓπαá½∞¡δ⌐ ½«úáα¿Σ¼ áαúπ¼Ñ¡Γá
  132.  
  133.    Pi          é«ºóαáΘáÑΓ º¡áτÑ¡¿Ñ τ¿ß½á Pi
  134.                {3.1415926535897932385}
  135.  
  136.    Sin         é«ºóαáΘáÑΓ ß¿¡πß áαúπ¼Ñ¡Γá
  137.  
  138.    Sqr         é«ºóαáΘáÑΓ áαúπ¼Ñ¡Γ ó ¬óáñαáΓÑ
  139.  
  140.    Sqrt        é«ºóαáΘáÑΓ ¬óáñαáΓ¡δ⌐ ¬«αÑ¡∞ áαúπ¼Ñ¡Γá
  141. ───────────────────────────────────────────────────────────────────
  142.  
  143.  
  144.                     Åα«µÑñπαδ »«α∩ñ¬«ó«ú« Γ¿»á.
  145.  
  146. ───────────────────────────────────────────────────────────────────
  147.    Åα«µÑñπαá                      Ä»¿ßá¡¿Ñ
  148. ───────────────────────────────────────────────────────────────────
  149.    Dec      ô¼Ñ¡∞ΦáÑΓ º¡áτÑ¡¿Ñ »ÑαѼѡ¡«⌐
  150.  
  151.    Inc      ôóѽ¿τ¿óáÑΓ º¡áτÑ¡¿Ñ »ÑαѼѡ¡«⌐
  152. ───────────────────────────────────────────────────────────────────
  153.  
  154.  
  155.                      öπ¡¬µ¿¿ »«α∩ñ¬«ó«ú« Γ¿»á.
  156.  
  157. ───────────────────────────────────────────────────────────────────
  158.      öπ¡¬µ¿∩                      Ä»¿ßá¡¿Ñ
  159. ───────────────────────────────────────────────────────────────────
  160.    Odd      Åα«óÑα∩ÑΓ, ∩ó½∩ÑΓß∩ ½¿ áαúπ¼Ñ¡Γ ¡ÑτÑΓ¡δ¼ τ¿ß½«¼
  161.  
  162.    Pred     é«ºóαáΘáÑΓ »αÑñΦÑßΓóπεΘÑÑ º¡áτÑ¡¿Ñ áαúπ¼Ñ¡Γá
  163.  
  164.    Succ     é«ºóαáΘáÑΓ Ñú« »«ß½ÑñπεΘÑÑ º¡áτÑ¡¿Ñ
  165. ───────────────────────────────────────────────────────────────────
  166.  
  167.  
  168.                        æΓ᫬«óδÑ »α«µÑñπαδ.
  169.  
  170. ───────────────────────────────────────────────────────────────────
  171.    Åα«µÑñπαá                      Ä»¿ßá¡¿Ñ
  172. ───────────────────────────────────────────────────────────────────
  173.    Delete     ôñá½∩ÑΓ »«ñßΓα«¬π ¿º ßΓ᫬¿
  174.  
  175.    Insert     éßΓáó½∩ÑΓ »«ñßΓ᫬π ó ßΓ᫬π
  176.  
  177.    Str        ÅαÑ«íαáºπÑΓ τ¿ß½Ñ¡¡«Ñ º¡áτÑ¡¿Ñ ó Ñú« ßΓ᫬«ó«Ñ
  178.               »αÑñßΓáó½Ñ¡¿Ñ
  179.  
  180.    Val        ÅαÑ«íαáºπÑΓ ßΓ᫬«ó«Ñ º¡áτÑ¡¿Ñ ó Ñú« τ¿ß½Ñ¡¡«Ñ
  181.               »αÑñßΓáó½Ñ¡¿Ñ
  182. ───────────────────────────────────────────────────────────────────
  183.  
  184.  
  185.                         æΓ᫬«óδÑ Σπ¡¬µ¿¿.
  186.  
  187. ───────────────────────────────────────────────────────────────────
  188.      öπ¡¬µ¿∩                      Ä»¿ßá¡¿Ñ
  189. ───────────────────────────────────────────────────────────────────
  190.    Concat     éδ»«½¡∩ÑΓ ¬«¡¬áΓÑ¡áµ¿ε »«ß½Ññ«óáΓѽ∞¡«ßΓ¿ ßΓ᫬
  191.  
  192.    Copy       é«ºóαáΘáÑΓ »«ñßΓα«¬π ¿º ßΓ᫬¿
  193.  
  194.    Length     é«ºóαáΘáÑΓ ñ¿¡á¼¿τÑ߬πε ñ½¿¡π ßΓ᫬¿
  195.  
  196.    Pos        Åα«¿ºó«ñ¿Γ »«¿ß¬ »«ñßΓ᫬¿ ó ßΓ᫬Ñ
  197. ───────────────────────────────────────────────────────────────────
  198.  
  199.  
  200.            öπ¡¬µ¿¿ ñ½∩ αáí«Γδ ß π¬áºáΓѽ∩¼¿ ¿ áñαÑßἿ.
  201.  
  202. ───────────────────────────────────────────────────────────────────
  203.      öπ¡¬µ¿∩                      Ä»¿ßá¡¿Ñ
  204. ───────────────────────────────────────────────────────────────────
  205.    Addr     é«ºóαáΘáÑΓ áñαÑß ºáñá¡¡«ú« «íΩѬΓá
  206.  
  207.    CSeg     é«ºóαáΘáÑΓ ΓѬπΘÑÑ º¡áτÑ¡¿Ñ αÑú¿ßΓαá CS
  208.  
  209.    DSeg     é«ºóαáΘáÑΓ ΓѬπΘÑÑ º¡áτÑ¡¿Ñ αÑú¿ßΓαá DS
  210.  
  211.    Ofs      é«ºóαáΘáÑΓ ß¼ÑΘÑ¡¿Ñ ºáñá¡¡«ú« «íΩѬΓá
  212.  
  213.    Ptr      ÅαÑ«íαáºπÑΓ íẫóδ⌐ áñαÑß ßÑú¼Ñ¡Γá ¿ ß¼ÑΘÑ¡¿Ñ  ó º¡áτÑ¡¿Ñ
  214.             Γ¿»á π¬áºáΓѽ∞
  215.  
  216.    Seg      é«ºóαáΘáÑΓ ßÑú¼Ñ¡Γ ñ½∩ ºáñá¡¡«ú« «íΩѬΓá
  217.  
  218.    SPtr     é«ºóαáΘáÑΓ ΓѬπΘÑÑ º¡áτÑ¡¿Ñ αÑú¿ßΓαá SP
  219.  
  220.    SSeg     é«ºóαáΘáÑΓ ΓѬπΘÑÑ º¡áτÑ¡¿Ñ αÑú¿ßΓαá SS
  221. ───────────────────────────────────────────────────────────────────
  222.  
  223.  
  224.                          äαπú¿Ñ »α«µÑñπαδ.
  225.  
  226. ───────────────────────────────────────────────────────────────────
  227.    Åα«µÑñπαá                      Ä»¿ßá¡¿Ñ
  228. ───────────────────────────────────────────────────────────────────
  229.    FillChar     çừ½¡∩ÑΓ ºáñá¡¡«Ñ τ¿ß½« »«ß½Ññ«óáΓѽ∞¡δσ íá⌐Γ
  230.                 π¬áºá¡¡δ¼ º¡áτÑ¡¿Ñ¼
  231.  
  232.    Move         è«»¿απÑΓ ºáñá¡¡«Ñ τ¿ß½« »«ß½Ññ«óáΓѽ∞¡δσ íá⌐Γ
  233.                 ¿º ¿ßΓ«τ¡¿¬á ó ¡áº¡áτÑ¡¿Ñ
  234.  
  235.    Randomize    ê¡¿µ¿á½¿º¿απÑΓ ß½πτá⌐¡δ¼ º¡áτÑ¡¿Ñ¼ óßΓα«Ñ¡¡δ⌐
  236.                 úÑ¡ÑαáΓ«α ß½πτá⌐¡δσ τ¿ßѽ
  237. ───────────────────────────────────────────────────────────────────
  238.  
  239.  
  240.                           äαπú¿Ñ Σπ¡¬µ¿¿.
  241.  
  242. ───────────────────────────────────────────────────────────────────
  243.      öπ¡¬µ¿∩                      Ä»¿ßá¡¿Ñ
  244. ───────────────────────────────────────────────────────────────────
  245.    Hi            é«ºóαáΘáÑΓ ßΓáαΦ¿⌐ íá⌐Γ áαúπ¼Ñ¡Γá
  246.  
  247.    Lo            é«ºóαáΘáÑΓ ¼½áñΦ¿⌐ íá⌐Γ áαúπ¼Ñ¡Γá
  248.  
  249.    ParamCount    é«ºóαáΘáÑΓ τ¿ß½« »áαá¼ÑΓα«ó, »ÑαÑñá¡¡δσ »α«úαá¼¼Ñ
  250.                  ó ¬«¼á¡ñ¡«⌐ ßΓ᫬Ñ
  251.  
  252.    ParamStr      é«ºóαáΘáÑΓ ºáñá¡¡δ⌐ »áαá¼ÑΓα ¬«¼á¡ñ¡«⌐ ßΓ᫬¿
  253.  
  254.    Random        é«ºóαáΘáÑΓ ß½πτá⌐¡«Ñ τ¿ß½«
  255.  
  256.    SizeOf        é«ºóαáΘáÑΓ τ¿ß½« íá⌐Γ, ºá¡¿¼áѼδσ áαúπ¼Ñ¡Γ«¼
  257.  
  258.    Swap          Åα«¿ºó«ñ¿Γ »ÑαÑßΓá¡«ó¬π ßΓáαΦ¿σ ¿ ¼½áñΦ¿σ íá⌐Γ
  259.                  áαúπ¼Ñ¡Γá
  260.  
  261.    UpCase        ÅαÑ«íαáºπÑΓ ß¿¼ó«½ ó »α«»¿ß¡«⌐
  262. ───────────────────────────────────────────────────────────────────
  263.  
  264.  
  265.                            éó«ñ ¿ óδó«ñ.
  266.  
  267.  
  268.      é ñá¡¡«¼  αáºñѽѠ ¬αáΓ¬« «»¿ßδóáεΓß∩ ßΓá¡ñáαΓ¡δÑ (óßΓα«Ñ¡¡δÑ)
  269. Σπ¡¬µ¿¿ ¿ »α«µÑñπαδ óó«ñá-óδó«ñá Turbo Pascal.  ä½∩ í«½ÑÑ ñÑΓá½∞¡«⌐
  270. ¿¡Σ«α¼áµ¿¿ ß¼. ú½áóπ 19.
  271.  
  272.  
  273.                       éóÑñÑ¡¿Ñ ó« óó«ñ/óδó«ñ.
  274.  
  275.      öá⌐½«óá∩ »ÑαѼѡ¡á∩ ó Åá߬á½Ñ - φΓ« ½εíá∩ »ÑαѼѡ¡á∩ Σá⌐½«ó«ú«
  276. Γ¿»á.  é  Åá߬á½Ñ  ¿¼ÑεΓß∩  Γα¿ ¬½áßßá Σá⌐½«ó :  Γ¿»¿α«óá¡¡δ⌐ Σá⌐½,
  277. ΓѬßΓ«óδ⌐ Σá⌐½, ¡ÑΓ¿»¿α«óá¡¡δ⌐ Σá⌐½.
  278.      ÅÑαÑñ ¿ß»«½∞º«ó᡿Ѽ   Σá⌐½«ó«⌐  »ÑαѼѡ¡«⌐  «¡á  ñ«½ª¡á  íδΓ∞
  279. ßó∩ºá¡á ß ó¡ÑΦ¡¿¼ Σá⌐½«¼ ß »«¼«Θ∞ε ó맮óá »α«µÑñπαδ Assign. é¡ÑΦ¡¿¼
  280. Σá⌐½«¼  «íδτ¡«  ∩ó½∩ÑΓß∩ »«¿¼Ñ¡¡«óá¡¡δ⌐ Σá⌐½ ¡á ñ¿ß¬Ñ,  ¡« «¡ ΓᬪÑ
  281. ¼«ªÑΓ »αÑñßΓáó½∩Γ∞ ß«í«⌐ πßΓα«⌐ßΓó«,  ¬á¬ ¡á»α¿¼Ñα,  ¬½áó¿áΓπαπ ¿½¿
  282. ñ¿ß»½Ñ⌐.   é«   ó¡ÑΦ¡¿σ   Σá⌐½áσ   ß«σαá¡∩ÑΓß∩  ºá»¿ßá¡¡á∩  ó  Σá⌐½
  283. ¿¡Σ«α¼áµ¿∩,  ¿½¿  «¡¿  ß½πªáΓ   ¿ßΓ«τ¡¿¬á¼¿   ¿¡Σ«α¼áµ¿¿,   ¬«Γ«αá∩
  284. ßτ¿ΓδóáÑΓß∩ ¿º Σá⌐½á.
  285.      è«úñá ßó∩º∞ ß ó¡ÑΦ¡¿¼ Σá⌐½«¼ πßΓá¡«ó½Ñ¡á,  ñ½∩ »«ñú«Γ«ó¬¿ ÑÑ ¬
  286. «»Ñαᵿ¿   óó«ñá   ¿½¿   óδó«ñá  Σá⌐½«óá∩  »ÑαѼѡ¡á∩  ñ«½ª¡á  íδΓ∞
  287. "«Γ¬αδΓá".  æπΘÑßΓóπεΘ¿⌐ Σá⌐½ ¼«ª¡«  «Γ¬αδΓ∞  ß  »«¼«Θ∞ε  »α«µÑñπαδ
  288. Reset,  á  ¡«óδ⌐  Σá⌐½  ¼«ª¡« ß«ºñáΓ∞ ¿ «Γ¬αδΓ∞ ß »«¼«Θ∞ε »α«µÑñπαδ
  289. Rewrite. ÆѬßΓ«óδÑ  Σá⌐½δ,  «Γ¬αδΓδÑ  ß  »«¼«Θ∞ε  »α«µÑñπαδ  Reset,
  290. ñ«ßΓπ»¡δ Γ«½∞¬« ñ½∩ τΓÑ¡¿∩,  á ΓѬßΓ«óδÑ Σá⌐½δ,  «Γ¬αδΓδÑ ß »«¼«Θ∞ε
  291. »α«µÑñπαδ Rewrite   ¿   Append,   ñ«ßΓπ»¡δ   Γ«½∞¬«   ñ½∩   ºá»¿ß¿.
  292. Æ¿»¿α«óá¡¡δÑ  ¿  ¡ÑΓ¿»¿α«óá¡¡δÑ  Σá⌐½δ óßÑúñá ñ«»π߬áεΓ ¬á¬ τΓÑ¡¿Ñ,
  293. Γᬠ¿ ºá»¿ß∞,  ¡Ñºáó¿ß¿¼« «Γ  Γ«ú«,  í뫨  «¡¿  «Γ¬αδΓδ  ß  »«¼«Θ∞ε
  294. »α«µÑñπαδ Reset ¿½¿ ß »«¼«Θ∞ε »α«µÑñπαδ Rewrite.
  295.      è«úñá ¡áτ¿¡áÑΓß∩ óδ»«½¡Ñ¡¿Ñ  »α«úαá¼¼δ,  óßÑúñá  áóΓ«¼áΓ¿τÑ߬¿
  296. «Γ¬αδóáεΓß∩  ßΓá¡ñáαΓ¡δÑ  ΓѬßΓ«óδÑ  Σá⌐½«óδÑ  »ÑαѼѡ¡δÑ  Input  ¿
  297. Output (óó«ñ ¿ óδó«ñ).  Input - φΓ«  ñ«ßΓπ»¡δ⌐  Γ«½∞¬«  ñ½∩  τΓÑ¡¿∩
  298. Σá⌐½,  ßó∩ºá¡δ⌐ ß ¬½áó¿áΓπα«⌐,  á Output - φΓ« ñ«ßΓπ»¡δ⌐ Γ«½∞¬« ñ½∩
  299. ºá»¿ß¿ Σá⌐½, ßó∩ºá¡¡δ⌐ ß ñ¿ß»½ÑѼ.
  300.      ïεí«⌐ Σá⌐½   »αÑñßΓáó½∩ÑΓ  ß«í«⌐  ½¿¡Ñ⌐¡πε  »«ß½Ññ«óáΓѽ∞¡«ßΓ∞
  301. φ½Ñ¼Ñ¡Γ«ó,  ¬áªñδ⌐ ¿º ¬«Γ«αδσ ¿¼ÑÑΓ ß½«ª¡δ⌐ Γ¿»  (¿½¿  Γ¿»  ºá»¿ß¿)
  302. Σá⌐½á.  èáªñδ⌐  φ½Ñ¼Ñ¡Γ  Σá⌐½á  ¿¼ÑÑΓ  ¡«¼Ñα.  ÅÑαóδ⌐ φ½Ñ¼Ñ¡Γ Σá⌐½á
  303. ßτ¿ΓáÑΓß∩ ¡π½Ñóδ¼ φ½Ñ¼Ñ¡Γ«¼.
  304.      Äíδτ¡« ñ«ßΓπ» ¬ Σá⌐½á¼ «αúá¡¿ºπÑΓß∩ »«ß½Ññ«óáΓѽ∞¡«,  Γ« ÑßΓ∞,
  305. ¬«úñá φ½Ñ¼Ñ¡Γ ßτ¿ΓδóáÑΓß∩ ß »«¼«Θ∞ε ßΓá¡ñáαΓ¡«⌐ »α«µÑñπαδ  Read ¿½¿
  306. ºá»¿ßδóáÑΓß∩ ß »«¼«Θ∞ε ßΓá¡ñáαΓ¡«⌐ »α«µÑñπαδ Write, ΓѬπΘá∩ »«º¿µ¿∩
  307. Σá⌐½á »ÑαѼÑΘáÑΓß∩ ¬ ß½ÑñπεΘÑ¼π »« »«α∩ñ¬π φ½Ñ¼Ñ¡Γπ Σá⌐½á. Äñ¡á¬« ¬
  308. Γ¿»¿α«óá¡¡δ¼  ¿  ¡ÑΓ¿»¿α«óá¡¡δ¼  Σá⌐½á¼  ¼«ª¡«  «αúá¡¿º«óáΓ∞ »α∩¼«⌐
  309. ñ«ßΓπ» ß »«¼«Θ∞ε ßΓá¡ñáαΓ¡«⌐  »α«µÑñπαδ  Seek,  ¬«Γ«αá∩  »ÑαѼÑΘáÑΓ
  310. ΓѬπΘπε »«º¿µ¿ε Σá⌐½á ¬ ºáñá¡¡«¼π φ½Ñ¼Ñ¡Γπ. ÆѬπΘπε »«º¿µ¿ε ó Σá⌐½Ñ
  311. ¿ ΓѬπΘ¿⌐ αẼÑα  Σá⌐½á  ¼«ª¡«  «»αÑñѽ¿Γ∞  ß  »«¼«Θ∞ε  ßΓá¡ñáαΓ¡δσ
  312. Σπ¡¬µ¿⌐ FilePos ¿ FileSize.
  313.      è«úñá »α«úαἼᠠ ºáóÑαΦ¿Γ   «íαáí«Γ¬π   Σá⌐½á,   «¡    ñ«½ªÑ¡
  314. ºá¬αδóáΓ∞ß∩  ß  »«¼«Θ∞ε ßΓá¡ñáαΓ¡«⌐ »α«µÑñπαδ Close.  Å«ß½Ñ »«½¡«ú«
  315. ºá¬αδΓ¿∩ Σá⌐½á,  ßó∩ºá¡¡δ⌐ ß ¡¿¼ ó¡ÑΦ¡¿⌐  Σá⌐½  «í¡«ó½∩ÑΓß∩.  çáΓѼ
  316. Σá⌐½«óá∩ »ÑαѼѡ¡á∩ ¼«ªÑΓ íδΓ∞ ßó∩ºá¡á ß ñαπú¿¼ ó¡ÑΦ¡¿¼ Σá⌐½«¼.
  317.      Å« π¼«½τá¡¿ε,  »α¿ óßÑσ «íαáΘÑ¡¿∩σ ¬  ßΓá¡ñáαΓ¡δ¼  Σπ¡¬µ¿∩¼  ¿
  318. »α«µÑñπαá¼  óó«ñá/óδó«ñá  áóΓ«¼áΓ¿τÑ߬¿  »α«¿ºó«ñ¿Γß∩  »α«óÑα¬á  ¡á
  319. ¡á½¿τ¿Ñ «Φ¿í«¬.  Åα¿ «í¡áαπªÑ¡¿¿ «Φ¿í¬¿ »α«úαἼᠻαѬαáΘáÑΓ αáí«Γπ
  320. ¿  óδó«ñ¿Γ  ¡á  φ¬αá¡  ß««íΘÑ¡¿Ñ  «í  «Φ¿í¬Ñ.  æ  »«¼«Θ∞ε  ñ¿αÑ¬Γ¿ó
  321. ¬«¼»¿½∩Γ«αá  {$I+}  ¿  {$I-}  φΓπ  áóΓ«¼áΓ¿τÑ߬πε  »α«óÑα¬π   ¼«ª¡«
  322. ó¬½ετ¿Γ∞ ¿½¿ ó䬽ετ¿Γ∞. è«úñá áóΓ«¼áΓ¿τÑ߬á∩ »α«óÑα¬á «Γ¬½ετÑ¡á, Γ«
  323. ÑßΓ∞ ¬«úñá »α«µÑñπαá ¿½¿ Σπ¡¬µ¿∩ íδ½á ß¬«¼»¿½¿α«óá¡á  ß  ñ¿αÑ¬Γ¿ó«⌐
  324. {$I-},  «Φ¿í¬¿ óó«ñá/óδó«ñá,  ó«º¡¿¬áεΘ¿Ñ »α¿ αáí«ΓÑ »α«úαá¼¼δ,  ¡Ñ
  325. »α¿ó«ñ∩Γ  ¬  ÑÑ  «ßΓá¡«óπ.  Åα¿  φΓ«¼,  τΓ«íδ  »α«óÑα¿Γ∞  αѺπ½∞ΓáΓ
  326. óδ»«½¡Ñ¡¿∩  «»Ñαᵿ¿  óó«ñá/óδó«ñá,  ¡πª¡« ¿ß»«½∞º«óáΓ∞ ßΓá¡ñáαΓ¡πε
  327. Σπ¡¬µ¿ε IOResult.
  328.  
  329.  
  330.                           Åα«µÑñπαδ é/é.
  331.  
  332. ───────────────────────────────────────────────────────────────────
  333.    Åα«µÑñπαá                      Ä»¿ßá¡¿Ñ
  334. ───────────────────────────────────────────────────────────────────
  335.    Assign       Åα¿ßóá¿óáÑΓ ¿¼∩ ó¡ÑΦ¡Ñú« Σá⌐½á Σá⌐½«ó«⌐ »ÑαѼѡ¡«⌐
  336.  
  337.    ChDir        îÑ¡∩ÑΓ ΓѬπΘ¿⌐ ß»αáó«τ¡¿¬
  338.  
  339.    Close        çá¬αδóáÑΓ «Γ¬αδΓδ⌐ Σá⌐½
  340.  
  341.    Erase        ôñá½∩ÑΓ ó¡ÑΦ¡¿⌐ Σá⌐½
  342.  
  343.    GetDir       é«ºóαáΘáÑΓ ΓѬπΘ¿⌐ ß»αáó«τ¡¿¬ ¡á ºáñá¡¡«¼ ñ¿ß¬Ñ
  344.  
  345.    MkDir        æ«ºñáÑΓ »«ñß»αáó«τ¡¿¬
  346.  
  347.    Rename       ÅÑαÑ¿¼Ñ¡«óδóáÑΓ ó¡ÑΦ¡¿⌐ Σá⌐½
  348.  
  349.    Reset        ÄΓ¬αδóáÑΓ ßπΘÑßΓóπεΘ¿⌐ Σá⌐½
  350.  
  351.    Rewrite      æ«ºñáÑΓ ¿ «Γ¬αδóáÑΓ ¡«óδ⌐ Σá⌐½
  352.  
  353.    RmDir        ôñá½∩ÑΓ »πßΓ«⌐ »«ñß»αáó«τ¡¿¬
  354.  
  355.    Seek         ÅÑαÑñó¿úáÑΓ ΓѬπΘπε »«º¿µ¿ε Σá⌐½á ¡á π¬áºá¡¡πε
  356.                 ¬«¼»«¡Ñ¡Γπ (¡Ñ ¿ß»«½∞ºπÑΓß∩ ß ΓѬßΓ«ó묨 Σá⌐½á¼¿).
  357.  
  358.    Truncate     ôßѬáÑΓ αẼÑα Σá⌐½á ñ« ΓѬπΘÑ⌐ »«º¿µ¿¿ ó Σá⌐½Ñ.
  359.                 (ìÑ ¿ß»«½∞ºπÑΓß∩ ß ΓѬßΓ«ó묨 Σá⌐½á¼¿)
  360. ───────────────────────────────────────────────────────────────────
  361.  
  362.  
  363.                            öπ¡¬µ¿¿ é/é.
  364.  
  365. ───────────────────────────────────────────────────────────────────
  366.      öπ¡¬µ¿∩                      Ä»¿ßá¡¿Ñ
  367. ───────────────────────────────────────────────────────────────────
  368.    Eof          é«ºóαáΘáÑΓ ñ½∩ Σá⌐½á ß«ßΓ«∩¡¿Ñ end-of-file (¬«¡Ñµ
  369.                 Σá⌐½á)
  370.  
  371.    FilePos      é«ºóαáΘáÑΓ ΓѬπΘπε »«º¿µ¿ε ó Σá⌐½Ñ.
  372.                 (ìÑ ¿ß»«½∞ΓºπÑΓß∩ ß ΓѬßΓ«ó묨 Σá⌐½á¼¿)
  373.  
  374.    FileSize     é«ºóαáΘáÑΓ ΓѬπΘ¿⌐ αẼÑα Σá⌐½á.
  375.                 (ìÑ ¿ß»«½∞ΓºπÑΓß∩ ß ΓѬßΓ«ó묨 Σá⌐½á¼¿)
  376.  
  377.    IOResult     é«ºóαáΘáÑΓ µÑ½«Ñ º¡áτÑ¡¿Ñ, ∩ó½∩εΘÑÑß∩ ß«ßΓ«∩¡¿Ñ¼
  378.                 »«ß½Ññ¡Ñ⌐ óδ»«½¡Ñ¡¡«⌐ «»Ñαᵿ¿ óó«ñá/óδó«ñá.
  379. ───────────────────────────────────────────────────────────────────
  380.  
  381.  
  382.                          ÆѬßΓ«óδÑ Σá⌐½δ.
  383.  
  384.      é φΓ«¼ αáºñѽѠ«»¿ßδóáεΓß∩ «»Ñαᵿ¿ óó«ñá/óδó«ñá, ¿ß»«½∞ºπεΘ¿Ñ
  385. Σá⌐½«óπε  »ÑαѼѡ¡πε  ßΓá¡ñáαΓ¡«ú«  Γ¿»á  Text.  çá¼ÑΓ¿¼,   τΓ«   ó
  386. Turbo Pascal Γ¿» Text «Γ½¿τáÑΓß∩ «Γ Γ¿»á file of char.
  387.      Åα¿ «Γ¬αδΓ¿¿ ΓѬßΓ«ó«ú« Σá⌐½á  ó¡ÑΦ¡¿⌐  Σá⌐½  ¿¡ΓÑα»αÑΓ¿απÑΓß∩
  388. «ß«íδ¼ «íαẫ¼:    ßτ¿ΓáÑΓß∩,    τΓ«    «¡    »αÑñßΓáó½∩ÑΓ    ß«í«⌐
  389. »«ß½Ññ«óáΓѽ∞¡«ßΓ∞ ß¿¼ó«½«ó,  ßúαπ»»¿α«óá¡¡δσ ó ßΓ᫬¿,  úñÑ ¬áªñá∩
  390. ßΓα«¬á  ºá¬á¡τ¿óáÑΓß∩ ß¿¼ó«½«¼ ¬«¡µá ßΓ᫬¿ (end of line),  ¬«Γ«αδ⌐
  391. »αÑñßΓáó½∩ÑΓ ß«í«⌐ ß¿¼ó«½ »ÑαÑó«ñá ¬áαÑΓ¬¿,  ºá ¬«Γ«αδ¼,  ó«º¼«ª¡«,
  392. ß½ÑñπÑΓ ß¿¼ó«½ »ÑαÑó«ñá ßΓ᫬¿.
  393.      ä½∩ ΓѬßΓ«óδσ  Σá⌐½«ó  ßπΘÑßΓóπÑΓ  ß»Ñµ¿á½∞¡δ⌐  ó¿ñ   «»Ñαᵿ⌐
  394. τΓÑ¡¿∩  ¿ ºá»¿ß¿ (Read ¿ Write),  ¬«Γ«αδÑ »«ºó«½∩εΓ óá¼ ßτ¿ΓδóáΓ∞ ¿
  395. ºá»¿ßδóáΓ∞ º¡áτÑ¡¿∩,  Γ¿» ¬«Γ«αδσ «Γ½¿τáÑΓß∩ «Γ  Γ¿»á  Char.  ÆᬿÑ
  396. º¡áτÑ¡¿∩  áóΓ«¼áΓ¿τÑ߬¿  »ÑαÑó«ñ∩Γß∩  ó  ß¿¼ó«½∞¡«Ñ »αÑñßΓáó½Ñ¡¿Ñ ¿
  397. «íαáΓ¡«. ìá»α¿¼Ñα,  Read(F,  i),  úñÑ i - »ÑαѼѡ¡á∩  µÑ½«ú«  Γ¿»á,
  398. »α¿óÑñÑΓ  ¬ ßτ¿Γδóá¡¿ε »«ß½Ññ«óáΓѽ∞¡«ßΓ¿ µ¿Σα,  ¿¡ΓÑα»αÑΓᵿ¿ φΓ«⌐
  399. »«ß½Ññ«óáΓѽ∞¡«ßΓ¿, ¬á¬ ñÑß∩Γ¿τ¡«ú« τ¿ß½á, ¿ ß«σαá¡Ñ¡¿ε Ñú« ó i.
  400.      èᬠí佫  «Γ¼ÑτÑ¡«  αá¡ÑÑ,  ¿¼ÑεΓß∩ ñóÑ ßΓá¡ñáαΓ¡δÑ »ÑαѼѡ¡δÑ
  401. ΓѬßΓ«ó«ú« Γ¿»á - Input ¿ Output.  æΓá¡ñáαΓ¡á∩ Σá⌐½«óá∩  »ÑαѼѡ¡á∩
  402. Input  -  φΓ«  ñ«ßΓπ»¡δ⌐  Γ«½∞¬«  ñ½∩  τΓÑ¡¿∩  Σá⌐½,  ßó∩ºá¡¡δ⌐  ß«
  403. ßΓá¡ñáαΓ¡δ¼  Σá⌐½«¼  óó«ñá   «»Ñαᵿ«¡¡«⌐   ß¿ßΓÑ¼δ   («íδτ¡«   φΓ«
  404. ¬½áó¿áΓπαá),   á  ßΓá¡ñáαΓ¡á∩  Σá⌐½«óá∩  »ÑαѼѡ¡á∩  Output  -  φΓ«
  405. ñ«ßΓπ»¡δ⌐ Γ«½∞¬« ñ½∩ ºá»¿ß¿ Σá⌐½,  ßó∩ºá¡¡δ⌐ ß« ßΓá¡ñáαΓ¡δ¼  Σá⌐½«¼
  406. óδó«ñá  «»Ñαᵿ«¡¡«⌐  ß¿ßΓÑ¼δ  («íδτ¡« φΓ« ñ¿ß»½Ñ⌐).  ÅÑαÑñ ¡áτὫ¼
  407. óδ»«½¡Ñ¡¿∩   »α«úαá¼¼δ   Σá⌐½δ   Input   ¿   Output   áóΓ«¼áΓ¿τÑ߬¿
  408. «Γ¬αδóáεΓß∩, ¬á¬ Ñß½¿ íδ í뫨 óδ»«½¡Ñ¡δ ß½ÑñπεΘ¿Ñ «»ÑαáΓ«αδ :
  409.  
  410.                Assign(Input,''); Reset(Input);
  411.                Assign(Output,''); Rewrite(Output);
  412.  
  413.      Ç¡á½«ú¿τ¡«, »«ß½Ñ óδ»«½¡Ñ¡¿∩ »α«úαá¼¼δ φΓ¿ Σá⌐½δ áóΓ«¼áΓ¿τÑ߬¿
  414. ºá¬αδóáεΓß∩.
  415.  
  416.      àß½¿ »α«úαἼᠠ¿ß»«½∞ºπÑΓ  ßΓá¡ñáαΓ¡δ⌐  ¼«ñπ½∞ Crt,  Γ« Σá⌐½δ
  417. Input ¿ Output ¡Ñ  íπñπΓ  »«  π¼«½τá¡¿ε  «Γ¡«ß¿Γ∞ß∩  ¬  ßΓá¡ñáαΓ¡δ¼
  418. Σá⌐½á¼  óó«ñá/óδó«ñá.
  419.      ä½∩ ¡Ñ¬«Γ«αδσ ßΓá¡ñáαΓ¡δσ »α«µÑñπα,  ß»¿ß«¬ ¬«Γ«αδσ »α¿óÑñÑ¡ ó
  420. ñá¡¡«¼  αáºñѽÑ,  ¡Ñ  ΓαÑíπÑΓß∩ ∩ó¡« π¬áºδóáΓ∞ ó ¬áτÑßΓóÑ »áαá¼ÑΓαá
  421. Σá⌐½«óπε »ÑαѼѡ¡πε.  àß½¿ φëà»áαá¼ÑΓα «»πΘÑ¡,  Γ«  »«  π¼«½τá¡¿ε
  422. íπñπΓ αáßß¼áΓα¿óáΓ∞ß∩ Input ¿ Output,  ó ºáó¿ß¿¼«ßΓ¿ «Γ Γ«ú«, íπñÑΓ
  423. ½¿ »α«µÑñπαá ¿½¿ Σπ¡¬µ¿∩ «α¿Ñ¡Γ¿α«óá¡á ¡á óó«ñ ¿½¿ óδó«ñ. ìá»α¿¼Ñα,
  424. Read(ò)   ß««ΓóÑΓßΓóπÑΓ   Read(Input,ò)  ¿  Write(ò)  ß««ΓóÑΓßΓóπÑΓ
  425. Write(Output,ò).
  426.      àß½¿ »α¿ ó맮óÑ «ñ¡«⌐ ¿º »α«µÑñπα ¿½¿ Σπ¡¬µ¿⌐ ¿º φΓ«ú« αáºñѽá
  427. óδ ºáñáÑΓÑ Σá⌐½,  φëàΣá⌐½ ñ«½ªÑ¡ íδΓ∞ ßó∩ºá¡ ß ó¡ÑΦ¡¿¼  Σá⌐½«¼  ß
  428. »«¼«Θ∞ε  »α«µÑñπαδ  Assign  ¿  «Γ¬αδΓ  ß  »«¼«Θ∞ε  »α«µÑñπαδ Reset,
  429. Rewrite,  ¿½¿ Append.  àß½¿ ñ½∩ «α¿Ñ¡Γ¿α«óá¡¡«⌐ ¡á óδó«ñ  »α«µÑñπαδ
  430. ¿½¿  Σπ¡¬µ¿¿  éδ  π¬áºδóáÑΓÑ ¡á Σá⌐½,  ¬«Γ«αδ⌐ íδ½ «Γ¬αδΓ ß »«¼«Θ∞ε
  431. »α«µÑñπαδ Reset, Γ« óδóÑñÑΓß∩ ß««íΘÑ¡¿Ñ «í «Φ¿í¬Ñ.
  432.      Ç¡á½«ú¿τ¡«, íπñÑΓ «Φ¿í¬«⌐ ºáñáóáΓ∞ ñ½∩ «α¿Ñ¡Γ¿α«óá¡¡«⌐ ¡á óó«ñ
  433. »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿ Σá⌐½, «Γ¬αδΓδ⌐ ß »«¼«Θ∞ε »α«µÑñπα Rewrite ¿½¿
  434. Append .
  435.  
  436.  
  437.                             Åα«µÑñπαδ:
  438.  
  439. ───────────────────────────────────────────────────────────────────
  440.    Åα«µÑñπαá                      Ä»¿ßá¡¿Ñ
  441. ───────────────────────────────────────────────────────────────────
  442.    Append        ÄΓ¬αδóáÑΓ ßπΘÑßΓóπεΘ¿⌐ Σá⌐½ ñ½∩ ñ«íáó½Ñ¡¿∩
  443.  
  444.    Flush         éδΓὬ¿óáÑΓ íπΣÑα Σá⌐½á óδó«ñá
  445.  
  446.    Read          æτ¿ΓδóáÑΓ «ñ¡« ¿½¿ í«½ÑÑ º¡áτÑ¡¿⌐ ¿º ΓѬßΓ«ó«ú«
  447.                  Σá⌐½á ó «ñ¡π ¿½¿ í«½ÑÑ »ÑαѼѡ¡δσ
  448.  
  449.    Readln        éδ»«½¡∩ÑΓ ΓÑ ªÑ ñÑ⌐ßΓó¿∩, τΓ« ¿ Read, á »«Γ«¼
  450.                  ñѽáÑΓ »α«»π߬ ñ« ¡áτá½á ß½ÑñπεΘÑ⌐ ßΓ᫬¿ Σá⌐½á
  451.  
  452.    SetTextBuf    ìạáτáÑΓ íπΣÑα óó«ñá/óδó«ñá ñ½∩ ΓѬßΓ«ó«ú« Σá⌐½á
  453.  
  454.    Write         çỿßδóáÑΓ ó ΓѬßΓ«óδ⌐ Σá⌐½ «ñ¡« ¿½¿ í«½ÑÑ
  455.                  º¡áτÑ¡¿⌐
  456.  
  457.    Writeln       éδ»«½¡∩ÑΓ ΓÑ ªÑ ñÑ⌐ßΓó¿∩, τΓ« ¿ Write, á ºáΓѼ ñ«-
  458.                  íáó½∩ÑΓ ¬ Σá⌐½π ¼áα¬Ñα ¬«¡µá ßΓ᫬¿
  459. ───────────────────────────────────────────────────────────────────
  460.  
  461.  
  462.                             öπ¡¬µ¿¿:
  463.  
  464. ───────────────────────────────────────────────────────────────────
  465.      öπ¡¬µ¿∩                      Ä»¿ßá¡¿Ñ
  466. ───────────────────────────────────────────────────────────────────
  467.    Eoln          é«ºóαáΘáÑΓ ñ½∩ Σá⌐½á ß«ßΓ«∩¡¿Ñ end-of-line (¬«¡Ñµ
  468.                  ßΓ᫬¿)
  469.  
  470.    SeekEof       é«ºóαáΘáÑΓ ñ½∩ Σá⌐½á ß«ßΓ«∩¡¿Ñ end-of-file (¬«¡Ñµ
  471.                  Σá⌐½á)
  472.  
  473.    SeekEoln      é«ºóαáΘáÑΓ ñ½∩ Σá⌐½á ß«ßΓ«∩¡¿Ñ end-of-line (¬«¡Ñµ
  474.                  ßΓ᫬¿)
  475. ───────────────────────────────────────────────────────────────────
  476.  
  477.  
  478.                        ìÑΓ¿»¿α«óá¡¡δÑ Σá⌐½δ.
  479.  
  480.      ìÑΓ¿»¿α«óá¡¡δÑ Σá⌐½δ  »αÑñßΓáó½∩εΓ  ß«í«⌐  ¬á¡á½δ óó«ñá/óδó«ñá
  481. ¡¿ª¡Ñú« πα«ó¡∩,  ¿ß»«½∞ºπѼδÑ ó  «ß¡«ó¡«¼  ñ½∩  »α∩¼«ú«  ñ«ßΓπ»á  ¬
  482. ½εí«¼π Σá⌐½π ¡á ñ¿ß¬Ñ, ¡Ñºáó¿ß¿¼« «Γ Ñú« Γ¿»á ¿ ßΓαπ¬Γπαδ.
  483.      ïεí«⌐ ¡ÑΓ¿»¿α«óá¡¡δ⌐  Σá⌐½  «íΩ∩ó½∩ÑΓß∩  ß«  ß½«ó«¼  file  íѺ
  484. áΓα¿íπΓ«ó, ¡á»α¿¼Ñα:
  485.  
  486.                var
  487.                   Datafile : file;
  488.  
  489.      ä½∩ ¡ÑΓ¿»¿α«óá¡¡δσ  Σá⌐½«ó  ó  »α«µÑñπαáσ  Reset   ¿   Rewrite
  490. ñ«»π߬áÑΓß∩ π¬áºδóáΓ∞ ñ«»«½¡¿Γѽ∞¡δ⌐ »áαá¼ÑΓα,  τΓ«íδ ºáñáΓ∞ αẼÑα
  491. ºá»¿ß¿, ¿ß»«½∞ºπεΘ¿⌐ß∩ »α¿ »ÑαÑñáτÑ ñá¡¡δσ.
  492.      Å« π¼«½τá¡¿ε  ñ½¿¡á  ºá»¿ß¿  αáó¡á 128 íá⌐Γ.  ÅαÑñ»«τΓ¿Γѽ∞¡«⌐
  493. ñ½¿¡«⌐ ºá»¿ß¿  ∩ó½∩ÑΓß∩  ñ½¿¡á  ºá»¿ß¿,  αáó¡á∩  1,  »«ß¬«½∞¬π  φΓ«
  494. Ññ¿¡ßΓóÑ¡¡«Ñ º¡áτÑ¡¿Ñ,  ¬«Γ«α«Ñ  Γ«τ¡« «ΓαáªáÑΓ αẼÑα ½εí«ú« Σá⌐½á
  495. (Ñß½¿ ñ½¿¡á ºá»¿ß¿ αáó¡á 1, Γ« ¡Ñ»«½¡δÑ ºá»¿ß¿ ¡Ñ󫺼«ª¡δ).
  496.      çᠿ߬½ετÑ¡¿Ñ¼ »α«µÑñπα Read ¿ Write ñ½∩  óßÑσ  ¡ÑΓ¿»¿α«óá¡¡δσ
  497. Σá⌐½«ó   ñ«»π߬áÑΓß∩  ¿ß»«½∞º«óá¡¿Ñ  ½εí«⌐  ßΓá¡ñáαΓ¡«⌐  »α«µÑñπαδ,
  498. ¬«Γ«απε αáºαÑΦÑ¡«  ¿ß»«½∞º«óáΓ∞  ß  Γ¿»¿α«óá¡¡δ¼¿  Σá⌐½á¼¿.  é¼ÑßΓ«
  499. »α«µÑñπα  Read  ¿ Write ºñÑß∞ ¿ß»«½∞ºπεΓß∩ ß««ΓóÑΓßΓóÑ¡¡« »α«µÑñπαδ
  500. BlockRead ¿ BlockWrite,  »«ºó«½∩εΘ¿Ñ »ÑαÑßδ½áΓ∞  ñá¡¡δÑ  ß  óδß«¬«⌐
  501. ߬«α«ßΓ∞ε.
  502.  
  503.  
  504.                             Åα«µÑñπαδ.
  505.  
  506. ───────────────────────────────────────────────────────────────────
  507.    Åα«µÑñπαá                      Ä»¿ßá¡¿Ñ
  508. ───────────────────────────────────────────────────────────────────
  509.    BlockRead      æτ¿ΓδóáÑΓ ó »ÑαѼѡ¡πε «ñ¡π ¿½¿ í«½ÑÑ ºá»¿ßÑ⌐
  510.  
  511.    BlockWrite     çỿßδóáÑΓ «ñ¡π ¿½¿ í«½ÑÑ ºá»¿ßÑ⌐ ¿º »ÑαѼѡ¡«⌐
  512. ───────────────────────────────────────────────────────────────────
  513.  
  514.  
  515.                        ÅÑαѼѡ¡á∩ FileMode.
  516.  
  517.      ÅÑαѼѡ¡á∩ FileMode,    «»αÑñѽѡ¡á∩    ó    ¼«ñπ½Ñ    System,
  518. πßΓá¡áó½¿óáÑΓ ¬«ñ   ñ«ßΓπ»á,   ¬«Γ«αδ⌐   »ÑαÑñáÑΓß∩  ó  DOS,  ¬«úñá
  519. Γ¿»¿α«óá¡¡δÑ ¿ ¡ÑΓ¿»¿α«óá¡¡δÑ Σá⌐½δ (¡« ¡Ñ ΓѬßΓ«óδÑ) «Γ¬αδóáεΓß∩ ß
  520. »«¼«Θ∞ε »α«µÑñπαδ Reset.
  521.      Å« π¼«½τá¡¿ε ºáñáÑΓß∩  º¡áτÑ¡¿Ñ  FileMode  αáó¡«Ñ  2,  ¬«Γ«α«Ñ
  522. αáºαÑΦáÑΓ   ¿  τΓÑ¡¿Ñ,  ¿  ºá»¿ß∞.  Åα¿ßóá¿óá¡¿Ñ  ñαπú«ú«  º¡áτÑ¡¿∩
  523. »ÑαѼѡ¡«⌐ FileMode »α¿ó«ñ¿Γ ¬ Γ«¼π,  τΓ«  óßÑ  »«ß½ÑñπεΘ¿Ñ  ó맮óδ
  524. »α«µÑñπαδ Reset íπñπΓ ¿ß»«½∞º«óáΓ∞ φëàαѪ¿¼.
  525.      ä¿á»áº«¡ ó«º¼«ª¡δσ º¡áτÑ¡¿⌐ FileMode ºáó¿ß¿Γ  «Γ  ¿ß»«½∞ºπѼ«⌐
  526. óÑαß¿¿ DOS. Äñ¡á¬« ñ½∩ óßÑσ óÑαß¿⌐ ºáñáεΓß∩ ß½ÑñπεΘ¿Ñ αѪ¿¼δ :
  527.  
  528.      0 : Γ«½∞¬« τΓÑ¡¿Ñ
  529.      1 : Γ«½∞¬« ºá»¿ß∞
  530.      2 : τΓÑ¡¿Ñ/ºá»¿ß∞
  531.  
  532.      éÑαß¿∩ 3.X  DOS ºáñáÑΓ ñ«»«½¡¿Γѽ∞¡δÑ αѪ¿¼δ,  ¬«Γ«αδÑ ú½áó¡δ¼
  533. «íαẫ¼ ßó∩ºá¡δ ß αáºñѽѡ¡δ¼ ¿ß»«½∞º«ó᡿Ѽ Σá⌐½«ó ó  ßÑΓ∩σ.  (ä½∩
  534. »«½πτÑ¡¿∩  í«½ÑÑ  »«ñα«í¡«⌐  ¿¡Σ«α¼áµ¿¿,  «íαáΓ¿ΓÑß∞  ¬ απ¬«ó«ñßΓóπ
  535. »α«úαá¼¼¿ßΓá »« DOS).
  536.  
  537.      Åα¿¼Ñτá¡¿Ñ: ì«óδÑ  Σá⌐½δ,  ß«ºñá¡¡δÑ   ß   »«¼«Θ∞ε   »α«µÑñπαδ
  538. Rewrite,  óßÑúñá  «Γ¬αδóáεΓß∩ ó αѪ¿¼Ñ Read/Write,  ß««ΓóÑΓßΓóπεΘѼ
  539. º¡áτÑ¡¿ε »ÑαѼѡ¡«⌐ FileMode = 2.
  540.  
  541.  
  542.                     ôßΓα«⌐ßΓóá ó Turbo Pascal.
  543.  
  544.      é Turbo   Pascal   ¿   ó   «»Ñαᵿ«¡¡«⌐  ß¿ßΓѼѠ DOS  ó¡ÑΦ¡∩∩
  545. á»»áαáΓπαá,  ¬á¬ ¡á»α¿¼Ñα,  ¬½áó¿áΓπαá, πßΓα«⌐ßΓó« »ÑτáΓ¿, ñ¿ß»½Ñ⌐,
  546. αáßß¼áΓα¿óáεΓß∩,   ¬á¬  πßΓα«⌐ßΓóá.  æ  Γ«τ¬¿  ºαÑ¡¿∩  »α«úαá¼¼¿ßΓá
  547. πßΓα«⌐ßΓó« ¼«ª¡« αáßß¼áΓα¿óáΓ∞ ¬á¬ Σá⌐½ ¿ ß ¡¿¼  ¼«ª¡«  αáí«ΓáΓ∞  ß
  548. »«¼«Θ∞ε Γ«ú« ªÑ ¡áí«αá ßΓá¡ñáαΓ¡δσ Σπ¡¬µ¿⌐, τΓ« ¿ ß Σá⌐½«¼. é Turbo
  549. Pascal »«ññÑনóáÑΓß∩  ñóá  Γ¿»á  πßΓα«⌐ßΓó  -  πßΓα«⌐ßΓóá  DOS   ¿
  550. πßΓα«⌐ßΓóá ñ½∩ ΓѬßΓ«óδσ Σá⌐½«ó.
  551.  
  552.  
  553.                           ôßΓα«⌐ßΓóá DOS.
  554.  
  555.      ôßΓα«⌐ßΓóá DOS αÑ὿º«óá¡δ ß  »«¼«Θ∞ε  ºáαѺÑαó¿α«óá¡¡δσ  ¿¼Ñ¡
  556. πßΓα«⌐ßΓó,   ¬«Γ«αδÑ   ¿¼ÑÑεΓ  ß»Ñµ¿á½∞¡δ⌐  ß¼δß½.  ôßΓα«⌐ßΓóá  DOS
  557. »«½¡«ßΓ∞ε »α«ºαáτ¡δ  :  ó  Turbo  Pascal  ¡Ñ¿ºóÑßΓ¡«  ñáªÑ,   ¬«úñá
  558. Σá⌐½«óá∩  »ÑαѼѡ¡á∩  ßó∩ºá¡á  ß  πßΓα«⌐ßΓó«¼,  á ¬«úñá ß Σá⌐½«¼ ¡á
  559. ñ¿ß¬Ñ. ìá»α¿¼Ñα, »α«úαá¼¼á:
  560.  
  561.                var
  562.                   Lst : Text;
  563.                begin
  564.                   Assign(Lst, 'LPT1');
  565.                   Rewrite(Lst);
  566.                   Writeln(Lst, 'Hello World ...');
  567.                   Close(Lst);
  568.                end.
  569.  
  570.      óδóÑñÑΓ ßΓ᫬π 'Hello World ...' ¡á  πßΓα«⌐ßΓó«  »ÑτáΓ¿,  σ«Γ∩
  571. ß¿¡Γá¬ß¿ß  Γ«τ¡«  Γᬫ⌐  ªÑ,  ¬á¬  Ñß½¿ íδ «¡á óδó«ñ¿½áß∞ ó Σá⌐½ ¡á
  572. ñ¿ß¬Ñ.
  573.      ôßΓα«⌐ßΓóá, αÑ὿º«óá¡¡δÑ    ó   «»Ñαᵿ«¡¡«⌐   ß¿ßΓѼѠ  DOS,
  574. ¿ß»«½∞ºπεΓß∩ ñ½∩ «ñ¡«óαѼѡ¡«ú« óó«ñá ¿½¿ óδó«ñá.
  575.      Æᬿ¼ «íαẫ¼,  πßΓα«⌐ßΓóá  ó DOS ¿ß»«½∞ºπεΓß∩ ,  «íδτ¡«,  ñ½∩
  576. óδó«ñá ΓѬßΓ«óδσ Σá⌐½«ó. é αÑñ¬¿σ ß½πτá∩σ ñ½∩ αáí«Γδ ß πßΓα«⌐ßΓóἿ
  577. DOS  ¼«ªÑΓ  «¬áºáΓ∞ß∩  »«½Ñº¡δ¼ ¿ß»«½∞º«óá¡¿Ñ ΓᬪѠ¡ÑΓ¿»¿α«óá¡¡«ú«
  578. Σá⌐½á.  èáªñ«Ñ ¿º πßΓα«⌐ßΓó DOS «»¿ßδóáÑΓß∩ ó ß½ÑñπεΘѼ αáºñѽÑ.  é
  579. ñαπú¿σ  αÑ὿ºáµ¿∩σ  DOS  ¼«ªÑΓ  íδΓ∞  »αÑñπß¼«ΓαÑ¡«  ¿ß»«½∞º«óá¡¿Ñ
  580. ñ«»«½¡¿Γѽ∞¡δσ πßΓα«⌐ßΓó,  »«φΓ«¼π ¼δ ¡Ñ  ¼«ªÑ¼  »αÑñπß¼«ΓαÑΓ∞  óßÑ
  581. 󫺼«ª¡δÑ ß½πτá¿ ñ½∩ «»¿ßδóáѼδσ ó ñá¡¡«¼ απ¬«ó«ñßΓóÑ πßΓα«⌐ßΓó.
  582.  
  583.  
  584.                           ôßΓα«⌐ßΓó« CON.
  585.  
  586.      ôßΓα«⌐ßΓó« CON «º¡áτáÑΓ ¬«¡ß«½∞, »«ßαÑñßΓó«¼ ¬«Γ«α«⌐ óδó«ñ¿¼á∩
  587. ¿¡Σ«α¼áµ¿∩  »ÑαÑßδ½áÑΓß∩  ¡á  φ¬αá¡ ñ¿ß»½Ñ∩,  á óó«ñ¿¼á∩ ¿¡Σ«α¼áµ¿∩
  588. ó«ß»α¿¡¿¼áÑΓß∩ ß ¬½áó¿áΓπαδ.  àß½¿  ¡Ñ  í佫  ¿º¼Ñ¡Ñ¡«  ¡á»αáó½Ñ¡¿Ñ
  589. óó«ñá  ¿½¿  óδó«ñá,  Γ«  ßΓá¡ñáαΓ¡δÑ  Σá⌐½δ  Input  ¿  Output ¿ óßÑ
  590. Σá⌐½δ, ¬«Γ«αδ¼ »α¿ßó«Ñ¡« »πßΓ«Ñ ¿¼∩,  ßßδ½áεΓß∩ ¡á πßΓα«⌐ßΓó«  CON.
  591. éó«ñ¿¼á∩ ß   πßΓα«⌐ßΓóá   CON   ¿¡Σ«α¼áµ¿∩   ∩ó½∩ÑΓß∩   ßΓα«τ¡«   -
  592. «α¿Ñ¡Γ¿α«óá¡¡«⌐ ¿  ¿ß»«½∞ºπÑΓ   ßαÑñßΓóá   αÑñá¬Γ¿α«óá¡¿∩   ßΓ᫬¿,
  593. ¬«Γ«αδÑ «»¿ßá¡δ ó απ¬«ó«ñßΓóÑ »« DOS. æ¿¼ó«½δ ßτ¿ΓδóáεΓß∩ ¿º íπΣÑαá
  594. ßΓ᫬¿, á ¬«úñá íπΣÑα ßΓá¡«ó¿Γß∩ »πßΓδ¼, óó«ñ¿Γß∩ ¡«óá∩ ßΓ᫬á. Åα¿
  595. ¡áªáΓ¿¿    ¬½áó¿Φ¿   CTRL-Z   úÑ¡Ñα¿απÑΓß∩   ß¿¼ó«½   ¬«¡µá   Σá⌐½á
  596. (end-of-file), »«ß½Ñ ¬«Γ«α«ú« Σπ¡¬µ¿∩ eof íπñÑΓ ó«ºóαáΘáΓ∞ º¡áτÑ¡¿Ñ
  597. True.
  598.  
  599.  
  600.                    ôßΓα«⌐ßΓóá LÉT1, LÉT2, LÉT3.
  601.  
  602.      é ¬áτÑßΓóÑ   ó«º¼«ª¡«ú«    »«ßΓα«τ¡«ú«    πßΓα«⌐ßΓóá    »ÑτáΓ¿
  603. ñ«»π߬áÑΓß∩ ¿ß»«½∞º«óá¡¿Ñ ΓαÑσ πßΓα«⌐ßΓó »ÑτáΓ¿.  àß½¿ »α¿ß«Ññ¿¡Ñ¡«
  604. «ñ¡« πßΓα«⌐ßΓó« »ÑτáΓ¿,  ¡á ¡Ñú« «íδτ¡« ßßδ½áεΓß∩ ¬á¬ ¡á πßΓα«⌐ßΓó«
  605. LÉT1. ä½∩ φΓ«ú« πßΓα«⌐ßΓóá ¼«ª¡« ΓᬪѠ¿ß»«½∞º«óáΓ∞ ß¿¡«¡¿¼ PRN.
  606.      Å«ßΓα«τ¡«Ñ πßΓα«⌐ßΓó« »ÑτáΓ¿ - φΓ« πßΓα«⌐ßΓó«, »αÑñ¡áº¡áτÑ¡¡«Ñ
  607. Γ«½∞¬« ñ½∩  óδó«ñá.  Åα¿ ½εí«⌐ »«»δΓ¬Ñ ¿ß»«½∞º«óáΓ∞ »α«µÑñπαπ Reset
  608. ñ½∩ «Γ¬αδΓ¿∩ Σá⌐½á, ßó∩ºá¡¡«ú« ß «ñ¡¿¼ ¿º φΓ¿σ πßΓα«⌐ßΓó, ¡Ñ¼Ññ½Ñ¡-
  609. ¡« úÑ¡Ñα¿απÑΓß∩ »α¿º¡á¬ ¬«¡µá Σá⌐½á.
  610.  
  611.      Åα¿¼Ñτá¡¿Ñ: æΓá¡ñáαΓ¡δ⌐  ¼«ñπ½∞  Printer  «»¿ßδóáÑΓ  ΓѬßΓ«óπε
  612. Σá⌐½«óπε »ÑαѼѡ¡πε  ß  ¿¼Ñ¡Ñ¼  Lst  ¿  πßΓá¡áó½¿óáÑΓ  ÑÑ  ßó∩º∞  ß
  613. πßΓα«⌐ßΓó«¼  LÉT1.  ùΓ«íδ «íÑß»Ñτ¿Γ∞ óδó«ñ ¬á¬«⌐-½¿í« ¿¡Σ«α¼áµ¿¿ ¿º
  614. óáΦÑ⌐ »α«úαá¼¼δ ¡á πßΓα«⌐ßΓó« »ÑτáΓ¿, ó¬½ετ¿ΓÑ ó »αÑñ½«ªÑ¡¿Ñ uses ó
  615. ßó«Ñ⌐ »α«úαἼѠ¼«ñπ½∞ Printer,  á ñ½∩ óδó«ñá ¿ß»«½∞ºπ⌐ΓÑ »α«µÑñπαδ
  616. Write(Lst, ...).
  617.  
  618.  
  619.                      ôßΓα«⌐ßΓóá  COM1 ¿ COM2.
  620.  
  621.      ôßΓα«⌐ßΓóἿ ¬«¼¼π¡¿¬áµ¿«¡¡«ú«      »«αΓá     ∩ó½∩εΓß∩     ñóá
  622. »«ß½Ññ«óáΓѽ∞¡δσ  ¬«¼¼π¡¿¬áµ¿«¡¡δσ   »«αΓá.   é¼ÑßΓ«   COM1   ¼«ª¡«
  623. ¿ß»«½∞º«óáΓ∞ ß¿¡«¡¿¼ AUX.
  624.  
  625.  
  626.                           ôßΓα«⌐ßΓó« NUL.
  627.  
  628.      ìπ½Ñó«Ñ πßΓα«⌐ßΓó«  ¿ú¡«α¿απÑΓ  ½εíπε   ºá»¿ß∞   ¡á   ¡Ñú«   ¿
  629. ¡Ñ¼Ññ½Ñ¡¡«  úÑ¡Ñα¿απÑΓ »α¿º¡á¬ ¬«¡µá Σá⌐½á »α¿ »«»δΓ¬Ñ ßτ¿Γδóá¡¿∩ ß
  630. φΓ«ú« πßΓα«⌐ßΓóá.  àú« ß½ÑñπÑΓ  ¿ß»«½∞º«óáΓ∞,  Ñß½¿  óδ  ¡Ñ  σ«Γ¿ΓÑ
  631. ß«ºñáóáΓ∞  «Γñѽ∞¡δ⌐  Σá⌐½,  á  ó  »α«úαἼѠ ΓαÑíπÑΓß∩ π¬áºáΓ∞ ¿¼∩
  632. óσ«ñ¡«ú« ¿½¿ óδσ«ñ¡«ú« Σá⌐½á.
  633.  
  634.  
  635.              ôßΓα«⌐ßΓó«, »αÑñ¡áº¡áτÑ¡¡«Ñ ñ½∩ ΓѬßΓ«óδσ
  636.                               Σá⌐½«ó.
  637.  
  638.      ôßΓα«⌐ßΓó« »αÑñ¡áº¡áτÑ¡¡«Ñ ñ½∩ ΓѬßΓ«óδσ  Σá⌐½«ó, ¿ß»«½∞ºπÑΓß∩
  639. ñ½∩  αÑ὿ºáµ¿¿  πßΓα«⌐ßΓó,  ¡Ñ  »«ññÑনóáѼδσ DOS,  ¿½¿ ñ½∩ Γ«ú«,
  640. τΓ«íδ  ßñѽáΓ∞  ñ«ßΓπ»¡δ¼  ¡áí«α  ßαÑñßΓó,  «Γ½¿τáεΘ¿⌐ß∩  «Γ  Γ«ú«,
  641. ¬«Γ«αδ⌐  »αÑñπß¼«ΓαÑ¡  ñ½∩  á¡á½«ú¿τ¡«ú«  πßΓα«⌐ßΓóá  DOS.  ò«α«Φ¿¼
  642. »α¿¼Ñα«¼  πßΓα«⌐ßΓóá,  »αÑñ¡áº¡áτÑ¡¡«ú«   ñ½∩   ΓѬßΓ«ó«ú«   Σá⌐½á,
  643. ∩ó½∩ÑΓß∩  πßΓα«⌐ßΓó«  CRT,  αÑ὿º«óá¡¡«Ñ  ß  »«¼«Θ∞ε  ßΓá¡ñáαΓ¡«ú«
  644. ¼«ñπ½∩ Crt. àú« «ß¡«ó¡«⌐ Σπ¡¬µ¿Ñ⌐ ∩ó½∩ÑΓß∩ «íÑß»ÑτÑ¡¿Ñ ¿¡ΓÑαΣÑ⌐ßá ß
  645. ñ¿ß»½ÑѼ  ¿  ¬½áó¿áΓπα«⌐,  á¡á½«ú¿τ¡« πßΓα«⌐ßΓóπ CON ó DOS.  Äñ¡á¬«
  646. πßΓα«⌐ßΓó«  CRT  ∩ó½∩ÑΓß∩  í«½ÑÑ  íδßΓαδ¼  ¿   »«ññÑনóáÑΓ   ΓᬿÑ
  647. ¡Ñ«µÑ¡¿¼δÑ   ßαÑñßΓóá,  ¬á¬  ¿ß»«½∞º«óá¡¿Ñ  µóÑΓ«ó  ¿  «¬«¡.
  648.      é «Γ½¿τ¿Ñ «Γ πßΓα«⌐ßΓó DOS,  πßΓα«⌐ßΓóá,  »αÑñ¡áº¡áτÑ¡¡δÑ  ñ½∩
  649. óδó«ñá   ΓѬßΓ«óδσ   Σá⌐½«ó,   ¡Ñ   ¿¼ÑεΓ  ºáαѺÑαó¿α«óá¡¡δσ  ¿¼Ñ¡.
  650. öá¬Γ¿τÑ߬¿ π ¡¿σ ó««íΘÑ «ΓßπΓßΓóπεΓ ¿¼Ñ¡á.
  651.      é¼ÑßΓ« φΓ«ú«  Σá⌐½ ßó∩ºδóáÑΓß∩ ß πßΓα«⌐ßΓó«¼ ß »«¼«Θ∞ε «íδτ¡«⌐
  652. »α«µÑñπαδ  Assign.  ìá»α¿¼Ñα,  ßΓá¡ñáαΓ¡δ⌐  ¼«ñπ½∞  Crt   αÑ὿ºπÑΓ
  653. »α«µÑñπαπ   AssignCrt,   ¬«Γ«αá∩   ßó∩ºδóáÑΓ   ΓѬßΓ«óδÑ   Σá⌐½δ  ß
  654. πßΓα«⌐ßΓó«¼ CRT.
  655.      èα«¼Ñ πßΓα«⌐ßΓóá   CRT,   ó   Turbo   Pascal   ñ½∩  πßΓα«⌐ßΓó,
  656. »αÑñ¡áº¡áτÑ¡¡δσ  ñ½∩  ΓѬßΓ«óδσ  Σá⌐½«ó,  éδ  ¼«ªÑΓÑ  »¿ßáΓ∞   ßó«¿
  657. ß«íßΓóÑ¡¡δÑ  ñαá⌐óÑαδ.  Å«½¡«ßΓ∞ε  φëàó«»α«ß «ßóÑΘáÑΓß∩ ó αáºñѽÑ
  658. "äαá⌐óÑα πßΓα«⌐ßΓóá ΓѬßΓ«ó«ú« Σá⌐½á" ó ú½áóÑ 19 "éó«ñ ¿ óδó«ñ".
  659.  
  660.  
  661.                    ÅαÑñ«»αÑñѽѡ¡δÑ »ÑαѼѡ¡δÑ.
  662.  
  663.      èα«¼Ñ »α«µÑñπα  ¿  Σπ¡¬µ¿⌐  ¼«ñπ½∞  System  «íÑß»Ñτ¿óáÑΓ   α∩ñ
  664. »αÑñ«»αÑñѽѡ¡δσ »ÑαѼѡ¡δσ.
  665.  
  666.  
  667.                  ìÑ¿¡¿µ¿á½¿º¿α«óá¡¡δÑ »ÑαѼѡ¡δÑ.
  668.  
  669. ───────────────────────────────────────────────────────────────────
  670.      ÅÑαѼѡ¡á∩   Æ¿»            Ä»¿ßá¡¿Ñ
  671. ───────────────────────────────────────────────────────────────────
  672.      Input        Text        ßΓá¡ñáαΓ¡δ⌐ Σá⌐½ óó«ñá
  673.      Output       Text        ßΓá¡ñáαΓ¡δ⌐ Σá⌐½ óδó«ñá
  674.      SaveInt00    Pointer     ß«σαá¡Ñ¡¿Ñ »αÑαδóá¡¿∩ $00
  675.      SaveInt02    Pointer     ß«σαá¡Ñ¡¿Ñ »αÑαδóá¡¿∩ $02
  676.      SaveInt1B    Pointer     ß«σαá¡Ñ¡¿Ñ »αÑαδóá¡¿∩ $1B
  677.      SaveInt21    Pointer     ß«σαá¡Ñ¡¿Ñ »αÑαδóá¡¿∩ $21
  678.      SaveInt23    Pointer     ß«σαá¡Ñ¡¿Ñ »αÑαδóá¡¿∩ $23
  679.      SaveInt24    Pointer     ß«σαá¡Ñ¡¿Ñ »αÑαδóá¡¿∩ $24
  680.      SaveInt35    Pointer     ß«σαá¡Ñ¡¿Ñ »αÑαδóá¡¿∩ $35
  681.      SaveInt36    Pointer     ß«σαá¡Ñ¡¿Ñ »αÑαδóá¡¿∩ $36
  682.      SaveInt37    Pointer     ß«σαá¡Ñ¡¿Ñ »αÑαδóá¡¿∩ $37
  683.      SaveInt38    Pointer     ß«σαá¡Ñ¡¿Ñ »αÑαδóá¡¿∩ $38
  684.      SaveInt39    Pointer     ß«σαá¡Ñ¡¿Ñ »αÑαδóá¡¿∩ $39
  685.      SaveInt3A    Pointer     ß«σαá¡Ñ¡¿Ñ »αÑαδóá¡¿∩ $3A
  686.      SaveInt3B    Pointer     ß«σαá¡Ñ¡¿Ñ »αÑαδóá¡¿∩ $3B
  687.      SaveInt3C    Pointer     ß«σαá¡Ñ¡¿Ñ »αÑαδóá¡¿∩ $3C
  688.      SaveInt3D    Pointer     ß«σαá¡Ñ¡¿Ñ »αÑαδóá¡¿∩ $3D
  689.      SaveInt3F    Pointer     ß«σαá¡Ñ¡¿Ñ »αÑαδóá¡¿∩ $3F
  690.      SaveInt3E    Pointer     ß«σαá¡Ñ¡¿Ñ »αÑαδóá¡¿∩ $3E
  691.      SaveInt75    Pointer     ß«σαá¡Ñ¡¿Ñ »αÑαδóá¡¿∩ $75
  692. ───────────────────────────────────────────────────────────────────
  693.  
  694.  
  695.                   ê¡¿µ¿á½¿º¿α«óá¡¡δÑ »ÑαѼѡ¡δÑ.
  696.  
  697. ───────────────────────────────────────────────────────────────────
  698. ÅÑαѼѡ¡á∩    Æ¿»     ìáτá½∞¡«Ñ       Ä»¿ßá¡¿Ñ
  699.                       º¡áτÑ¡¿Ñ
  700. ───────────────────────────────────────────────────────────────────
  701. OvrCodeList   Word       0       ß»¿ß«¬ «óÑα½Ñ⌐¡δσ ßÑú¼Ñ¡Γ«ó ¬«ñá
  702.  
  703. OvrHeapSize   Word       0       ¡áτá½∞¡δ⌐ αẼÑα íπΣÑαá «óÑα½ÑÑó
  704.  
  705. OvrDebugPtr   Pointer    nil     óÑ¬Γ«α «Γ½áñτ¿¬á «óÑα½ÑÑó
  706.  
  707. OvrHeapOrg    Word       0       ¡áτὫ íπΣÑαá «óÑα½ÑÑó
  708.  
  709. OvrHeapPrt    Word       0       π¬áºáΓѽ∞ íπΣÑαá «óÑα½ÑÑó
  710.  
  711. OvrHeapEnd    Word       0       ¬«¡Ñµ íπΣÑαá «óÑα½ÑÑó
  712.  
  713. OvrLoadList   Word       0       ß»¿ß«¬ ºáúαπªÑ¡¡δσ «óÑα½ÑÑó
  714.  
  715. OvrDosHandle  Word       0       «íαáí«Γτ¿¬ DOS «óÑα½ÑÑó
  716.  
  717. OvrEmsHandle  Word       0       «íαáí«Γτ¿¬ EMS «óÑα½ÑÑó
  718.  
  719. HeapOrg       Pointer    nil     ¡áτὫ  ¬πτ¿
  720.  
  721. HeapPtr       Pointer    nil     π¬áºáΓѽ∞  ¬πτ¿
  722.  
  723. HeapEnd       Pointer    nil     ¬«¡Ñµ ¬πτ¿
  724.  
  725. FreeList      Pointer    nil     ß»¿ß«¬ ßó«í«ñ¡δσ í½«¬«ó ¬πτ¿
  726.  
  727. HeapError     Pointer    nil     Σπ¡¬µ¿∩ «íαáí«Γ¬¿ «Φ¿í«¬ ¬πτ¿
  728.  
  729. ExitProc      Pointer    nil     »α«µÑñπαá óδσ«ñá
  730.  
  731. ExitCode      Integer    0       óδσ«ñ¡«⌐ ¬«ñ
  732.  
  733. ErrorAddr     Pointer    nil     áñαÑß «Φ¿í¬¿ óαѼѡ¿ óδ»«½¡Ñ¡¿∩
  734.  
  735. PrefixSeg     Word       0       »αÑΣ¿¬ß »α«úαá¼¼¡«ú« ßÑú¼Ñ¡Γá
  736.  
  737. StackLimit    Word       0       π¬áºáΓѽ∞ ¡á ¡¿ª¡εε úαá¡¿µπ ßΓѬá
  738.  
  739. InOutRes      Integer    0       íπΣÑα αѺπ½∞ΓáΓá ó/ó
  740.  
  741. RandSeed      LongInt    0       «»«α¡«Ñ º¡áτÑ¡¿Ñ úÑ¡ÑαáΓ«αá
  742.                                  ß½πτá⌐¡δσ τ¿ßѽ
  743.  
  744. FileMode      Byte       2       αѪ¿¼ «Γ¬αδΓ¿∩ Σá⌐½á
  745.  
  746. Test8087      Byte       0       αѺπ½∞ΓáΓ ΓÑßΓá 8087
  747. ───────────────────────────────────────────────────────────────────
  748.  
  749.      OvrCodeList, OvrHeapSize, OvrDebugPtr, OvrHeapOrg, OvrHeapPtr,
  750. OvrHeapEnd, OvrHeapList,  OvrDosHandle ¿ OvrEmsHandle  ¿ß»«½∞ºπεΓß∩
  751. ¼«ñπ½Ñ¼  Overlay  ñ½∩  αÑ὿ºáµ¿¿  ¼Ñ¡ÑñªÑαá «óÑα½ÑÑó Turbo Pascal.
  752. üπΣÑα «óÑα½ÑÑó  αẼÑΘáÑΓß∩  ¼Ñªñπ  ßÑú¼Ñ¡Γ«¼  ßΓѬᠠ¿   ¬πτÑ⌐   ¿
  753. OvrHeapOrg  ¿  OvrHeapEnd  ß«ñÑαªáΓ áñαÑßá ¡áτá½á ¿ ¬«¡µá ßÑú¼Ñ¡Γá.
  754. ÉẼÑα  íπΣÑαá  «óÑα½ÑÑó   »«   π¼«½τá¡¿ε   ß««ΓóÑΓßΓóπÑΓ   αẼÑαπ
  755. ¼á¬ß¿¼á½∞¡«ú« «óÑα½Ñ∩  ó »α«úαá¼¼Ñ;  Ñß½¿ ó »α«úαἼѠ¡ÑΓ «óÑα½ÑÑó,
  756. Γ« αẼÑα «óÑα½Ñ⌐¡«ú« íπΣÑαá αáóÑ¡  ¡π½ε.  ÉẼÑα  íπΣÑαá  «óÑα½ÑÑó
  757. ¼«ªÑΓ  íδΓ∞  πóѽ¿τÑ¡  τÑαѺ  óδº«ó  »α«µÑñπαδ  OvrSetBuf ¿º ¼«ñπ½∩
  758. Overlay, ó φΓ«¼  ß½πτáÑ  αẼÑα  ¬πτ¿  ß««ΓóÑΓßΓóÑ¡¡«  π¼Ñ¡∞ΦáÑΓß∩,
  759. πóѽ¿τ¿óá∩ º¡áτÑ¡¿Ñ HeapOrg.
  760.      HeapOrg, HeapPtr,  HeapEnd,  FreeList,  HeapError ¿ß»«½∞ºπεΓß∩
  761. ¼«¡¿Γ«α«¼ ¬πτ¿  ñ½∩  αÑ὿ºáµ¿¿ »α«úαá¼¼ αáß»αÑñѽѡ¿∩ ñ¿¡á¼¿τÑ߬«⌐
  762. »á¼∩Γ¿ Turbo Pascal.  î«¡¿Γ«α ¬πτ¿  »«½¡«ßΓ∞ε  «»¿ßá¡  ó  ú½áóÑ  16
  763. "Åá¼∩Γ∞".
  764.      ÅÑαѼѡ¡δÑ ExitProc,  ExitCode ¿ ErrorAddr αÑ὿ºπεΓ »α«µÑñπαδ
  765. óδσ«ñá. Ä¡¿ ΓᬠªÑ «»¿ßá¡δ ó ú½áóÑ 18 "é«»α«ßδ ¬«¡Γα«½∩".
  766.      PrefixSeg - φΓ« »ÑαѼѡ¡á∩ Γ¿»á ß½«ó« (Word), ß«ñÑαªáΘá∩ áñαÑß
  767. ßÑú¼Ñ¡Γá »αÑΣ¿¬ßá ßÑú¼Ñ¡Γá »α«úαá¼¼δ (PSP),  ß«ºñáóáѼδ⌐ DOS, ¬«úñá
  768. »α«úαá¼¼á óδ»«½¡∩ÑΓß∩.  Å«½¡«Ñ «»¿ßá¡¿Ñ »αÑΣ¿¬ßá ßÑú¼Ñ¡Γá »α«úαá¼¼δ
  769. ß¼«Γα¿ΓÑ ó απ¬«ó«ñßΓóÑ »« «»Ñαᵿ«¡¡«⌐ ß¿ßΓѼÑ.
  770.      StackLimit ß«ñÑαª¿Γ ß¼ÑΘÑ¡¿Ñ «Γ ¡¿ª¡Ñ⌐ úαá¡¿µδ ßÑú¼Ñ¡Γá ßΓѬá,
  771. ß««ΓóÑΓßΓóπεΘÑÑ  ¡á¿¼Ñ¡∞ΦÑ¼π  º¡áτÑ¡¿ε  αÑú¿ßΓαá  SP ñ«»πßΓ¿¼«¼π ñ«
  772. Γ«ú«, »«¬á ßΓѬ ¡Ñ íπñÑΓ »ÑαÑ»«½¡Ñ¡.  Äíδτ¡« StackLimit αáóÑ¡ ¡π½ε,
  773. ¡«, Ñß½¿ »α«úαá¼¼á «Γ¬«¼»¿½¿α«óá¡á ß «»µ¿∩¼¿ {$N+,E+} φ¼π½∩Γ«α 8087
  774. íπñÑΓ  πßΓá¡áó½¿óáΓ∞  Ñú«  αáó¡δ¼  224  ñ½∩ αѺÑαó¿α«óá¡¿∩ αáí«τÑú«
  775. »α«ßΓαá¡ßΓóá ¡á ¡¿ª¡Ñ⌐ úαá¡¿µÑ ßÑú¼Ñ¡Γá  ßΓѬá,  Ñß½¿  8087  ¡ÑΓ  ó
  776. ß¿ßΓѼÑ.
  777.      InOutRes ¿ß»«½∞ºπÑΓß∩ óßΓα«Ñ¡¡δ¼¿ »α«úαἼἿ óó«ñá/óδó«ñá ñ½∩
  778. ºá»«¼¿¡á¡¿∩   º¡áτÑ¡¿∩   ó«ºóαáΘáѼ«ú«   »α¿   »«ß½ÑñπεΘѼ   ó맮óÑ
  779. ßΓá¡ñáαΓ¡«⌐ Σπ¡¬µ¿¿ IOResult.
  780.      RandSeed ß«ñÑαª¿Γ «»«α¡«Ñ τ¿ß½«  úÑ¡ÑαáΓ«αá  ß½πτá⌐¡δσ  τ¿ßѽ.
  781. Åα¿ »α¿ßóá¿óá¡¿¿ ¡Ñ«íσ«ñ¿¼«ú« º¡áτÑ¡¿∩ »ÑαѼѡ¡«⌐ RandSeed, Σπ¡¬µ¿∩
  782. Random íπñÑΓ úÑ¡Ñα¿α«óáΓ∞ «»αÑñѽѡ¡πε »«ß½Ññ«óáΓѽ∞¡«ßΓ∞ ß½πτá⌐¡δσ
  783. τ¿ßѽ  ß¡«óá  ¿  ß¡«óá.  ¥Γ« »«½Ñº¡« ó »α¿½«ªÑ¡¿∩σ,  úñÑ ¡Ñ«íσ«ñ¿¼«
  784. Φ¿Σα«óá¡¿Ñ ñá¡¡δσ, ó ßΓáΓ¿ßΓ¿¬Ñ ¿ ß¿¼π½¿α«óá¡¿¿.
  785.      FileMode »«ºó«½∩ÑΓ  éá¼  ¿º¼Ñ¡¿Γ∞  αѪ¿¼  ñ«ßΓπ»á,  ß  ¬«Γ«αδ¼
  786. «Γ¬αδóáεΓß∩ Γ¿»¿α«óá¡¡δÑ  ¿  ¡ÑΓ¿»¿α«óá¡¡δÑ   Σá⌐½δ.   (æΓá¡ñáαΓ¡«⌐
  787. »α«µÑñπα«⌐ Reset).  ä½∩  í«½∞Φ¿σ  ñÑΓá½Ñ⌐ ß¼«Γα¿ αáºñѽ "ÅÑαѼѡ¡á∩
  788. FileMode".
  789.      Test8087 σαá¡¿Γ  αѺπ½∞ΓáΓ ΓÑßΓá áóΓ««í¡áαπªÑ¡¿∩ ß«»α«µÑßß«αá,
  790. ¬«Γ«αδ⌐ óδ»«½¡∩ÑΓß∩  »α¿  ºá»π߬Ѡ »α«úαá¼¼δ,  «Γ¬«¼»¿½¿α«óá¡¡«⌐  ß
  791. {$N+}. ä½∩ í«½∞Φ¿σ ñÑΓá½Ñ⌐ ß¼«Γα¿ ú½áóπ 14 "êß»«½∞º«óá¡¿Ñ 8087".
  792.      Input ¿ Output - ßΓá¡ñáαΓ¡δÑ  Σá⌐½δ  ,  ¡Ñ«íσ«ñ¿¼δÑ  ó  ¬áªñ«⌐
  793. αÑ὿ºáµ¿¿ ∩ºδ¬á Åá߬á½∞. Å« π¼«½τá¡¿ε «¡¿ ßßδ½áεΓß∩ ¡á ßΓá¡ñáαΓ¡δÑ
  794. óσ«ñ¡δÑ ¿ óδσ«ñ¡δÑ Σá⌐½δ ó DOS.  ä½∩ í«½∞Φ¿σ ñÑΓá½Ñ⌐ ß¼«Γα¿  αáºñѽ
  795. "éó«ñ/óδó«ñ".
  796.      î«ñπ½∞ System πßΓá¡áó½¿óáÑΓ ¡Ñ¬«Γ«αδÑ óÑ¬Γ«αá  »αÑαδóá¡¿∩.  ä«
  797. πßΓᡫ󬿠߫íßΓóÑ¡¡δσ   »α«úαá¼¼   «íαáí«Γ¬¿   »αÑαδóá¡¿⌐,   System
  798. ºá»«¼¿¡áÑΓ ßΓáαδÑ óÑ¬Γ«αá ó »ÑαѼѡ¡δσ SaveIntXX.
  799.      çá¼ÑΓ¿¼, τΓ«  ¼«ñπ½∞ System ß«ñÑαª¿Γ «íαáí«Γτ¿¬ »αÑαδóá¡¿∩ INT
  800. 24 ñ½∩ »ÑαÑσóáΓá ¬α¿Γ¿τÑ߬¿σ «Φ¿í«¬.
  801.      é »α«úαá¼¼áσ   Turbo   Pascal   ¬α¿Γ¿τÑ߬¿Ñ   «Φ¿í¬¿   ó   DOS
  802. «íαáíáΓδóáεΓß∩ ¬á¬ ½εíδÑ ñαπú¿Ñ «Φ¿í¬¿ óó«ñá/óδó«ñá; ó ß«ßΓ«∩¡¿¿ {$
  803. I+} »α«úαἼᠠ ºáóÑαΦáÑΓß∩  ß  «Φ¿í¬«⌐  óαѼѡ¿  óδ»«½¡Ñ¡¿∩,  á  ó
  804. ß«ßΓ«∩¡¿¿ {$I-} IOResult ó«ºóαáΘáÑΓ ¡Ñ¡π½Ñó«Ñ º¡áτÑ¡¿Ñ.
  805.      çñÑß∞ »α¿ó«ñ¿Γß∩     «ß¡«óá    »α«úαá¼¼δ,    ó«ßßΓá¡áó½¿óáεΘÑ⌐
  806. »Ñαó«¡áτá½∞¡δ⌐  óÑ¬Γ«α  ¿,  ß½Ññ«óáΓѽ∞¡«,  »Ñαó«¡áτá½∞¡πε   ½«ú¿¬π
  807. «íαáí«Γ¬¿ ¬α¿Γ¿τÑ߬¿σ ß¿Γπᵿ⌐.
  808.  
  809.      programm Restore;
  810.      uses Dos;
  811.      begin
  812.         SetIntVeg ($24, SaveInt 24);
  813.         ........
  814.      end.
  815.  
  816.      Åα«µÑñπαá SwapVectors ó  ¼«ñπ½Ñ  Dos  »ÑαÑßΓáó½∩ÑΓ  ß«ñÑন¼«Ñ
  817. »ÑαѼѡ¡δσ  SaveIntXX  ß  ΓѬπΘ¿¼  ß«ñÑন¼δ¼  óÑ¬Γ«α«ó »αÑαδóá¡¿∩.
  818. SwapVectors   ñ«½ª¡á   íδΓ∞   óδºóá¡á   ¡Ñ»«ßαÑñßΓóÑ¡¡«   »ÑαÑñ   ¿
  819. ¡Ñ»«ßαÑñßΓóÑ¡¡« »«ß½Ñ  ó맮óá  »α«µÑñπαδ Exec,  ñ½∩ Γ«ú« τΓ«íδ íδΓ∞
  820. πóÑαÑ¡¡δ¼ τΓ« ºá»π߬áѼδ⌐ τÑαѺ Exec »α«µÑßß ¡Ñ ¿ß»«½∞ºπÑΓ  ¬á¬«⌐ -
  821. ½¿í«  «íαáí«Γτ¿¬  »αÑαδóá¡¿∩,  πßΓá¡«ó½Ñ¡¡δ⌐  ó  ΓѬπΘѼ »α«µÑßßÑ ¿
  822. ¡á«í«α«Γ.  ä½∩  í«½∞ΦÑ⌐  ¿¡Σ«α¼áµ¿¿   ß¼«Γα¿   «»¿ßá¡¿Ñ   »α«µÑñπαδ
  823. SwapVectors ó æ»αáó«τ¡«¼ απ¬«ó«ñßΓóÑ »« í¿í½¿«ΓѬÑ.
  824.  
  825.