home *** CD-ROM | disk | FTP | other *** search
/ BBS 1 / BBS#1.iso / document / pas60pg.lzh / PG15.MY < prev    next >
Text File  |  1991-02-04  |  15KB  |  389 lines
  1.                              âïÇéÇ 15.
  2.  
  3.                             îÄäôCRT.
  4.  
  5.      î«ñπ½∞ Crt αÑ὿ºπÑΓ α∩ñ ¼«Θ¡δσ  »α«úαá¼¼,  ¬«Γ«αδÑ  ñáεΓ  éá¼
  6. »«½¡δ⌐   ¬«¡Γα«½∞   ¡áñ  ó«º¼«ª¡«ßΓ∩¼¿  éáΦÑ⌐  ¼áΦ¿¡δ,  Γᬿ¼¿  ¬á¬
  7. π»αáó½Ñ¡¿Ñ αѪ¿¼á¼¿ φ¬αá¡á,  αáßΦ¿αÑ¡¡δÑ  ¬«ñδ  ¬½áó¿áΓπαδ,  µóÑΓá,
  8. «¬¡á ¿ ºóπ¬.
  9.      Crt ¼«ªÑΓ  íδΓ∞  ¿ß»«½∞º«óá¡  Γ«½∞¬«  ó  »α«úαá¼¼áσ,   ¬«Γ«αδÑ
  10. óδ»«½¡∩εΓß∩ ¡á IBM PC, AT, PS/2 ¿ ß«ó¼ÑßΓ¿¼δσ ß ¡¿¼¿.
  11.      Äñ¡á ¿º  «ß¡«ó¡δσ  «ß«íÑ¡¡«ßΓÑ⌐  Crt  -   ñ«ßΓ¿ªÑ¡¿Ñ   óδß«¬«⌐
  12. ߬«α«ßΓ¿ ¿ ú¿í¬«ßΓ¿ «»Ñαᵿ⌐ óδó«ñá ¡á φ¬αá¡. Åα«úαá¼¼δ, ¬«Γ«αδÑ ¡Ñ
  13. ¿ß»«½∞ºπεΓ ¼«ñπ½∞ Crt »«ßδ½áεΓ óδσ«ñ¡δÑ ñá¡¡δÑ ¡á φ¬αá¡  τÑαѺ DOS,
  14. τΓ«   ú«αáºñ«   ¼Ññ½Ñ¡¡ÑÑ.  æ  ¿ß»«½∞º«ó᡿Ѽ  ¼«ñπ½∩  Crt,  ñá¡¡δÑ
  15. »«ßδ½áεΓß∩ »α∩¼« ó BIOS,  ¿½¿,  ñ½∩ í«½ÑÑ íδßΓαδσ «»Ñαᵿ⌐, »α∩¼« ó
  16. ó¿ñÑ«»á¼∩Γ∞.
  17.  
  18.  
  19.                        öá⌐½δ óó«ñá ¿ óδó«ñá.
  20.  
  21.      ê¡¿µ¿á½¿ºáµ¿«¡¡δ⌐ ¬«ñ ¼«ñπ½∩  Crt  ¡áº¡áτáÑΓ  ΓѬßΓ«óδÑ  Σá⌐½δ
  22. Input ¿ Output ¡á ¼«¡¿Γ«α, ó¼ÑßΓ« ßΓá¡ñáαΓ¡δσ Σá⌐½«ó óó«ñδ ¿ óδó«ñá
  23. DOS.  ¥Γ« ß««ΓóÑΓßΓóπÑΓ óδ»«½¡Ñ¡¿ε ß½ÑñπεΘ¿σ  «»ÑαáΓ«α«ó  ó  ¡áτá½Ñ
  24. »α«úαá¼¼δ:
  25.  
  26.        AssignCrt(Input); Reset(Input);
  27.        AssignCrt(Output); Reset(Output);
  28.  
  29.      ¥Γ« «º¡áτáÑΓ, τΓ« »ÑαѡạáτÑ¡¿Ñ é/é ñ½∩ Σá⌐½«ó Input ¿ Output
  30. ¡Ñ󫺼«ª¡« ñ«  ΓÑσ  »«α,  »«¬á  ¡Ñ  íπñÑΓ ∩ó¡«ú« ¡áº¡áτÑ¡¿∩ óó«ñá ¿
  31. óδó«ñá «íαáΓ¡« »ÑαÑñ óδ»«½¡Ñ¡¿Ñ¼
  32.  
  33.        Assign(Input,''); Reset(Input);
  34.        Assign(Output,''); Reset(Output);
  35.  
  36.  
  37.                                Ä¬¡á.
  38.  
  39.      Crt »«ññÑনóáÑΓ »α«ßΓπε,  ¡«  ¼«Θ¡πε  Σ«α¼π  «¬«¡.  Åα«µÑñπαá
  40. Window »«ºó«½∩ÑΓ éá¼ «»αÑñѽ¿Γ∞ «¬¡« ó ½εí«¼ ¼ÑßΓÑ φ¬αá¡á. è«úñá éδ
  41. »¿ΦÑΓÑ ó ΓᬫѠ«¬¡«, «¬¡« »αÑñßΓáó½Ñ¡«, ¬á¬ Ñß½¿ íδ éδ ¿ß»«½∞º«ó὿
  42. óÑß∞ φ¬αá¡,    «ßΓáó½∩∩   τáßΓ∞   φ¬αá¡á   ¡Ñ   Γα«¡πΓ«⌐.   äαπú¿¼¿
  43. ß½«óἿ, φ¬αá¡ ºá »αÑñѽἿ «¬¡á  ¡Ññ«ßΓπ»Ñ¡.  é¡πΓα¿  «¬¡á  ßΓ᫬¿
  44. ¼«úπΓ íδΓ∞  óßΓáó½Ñ¡δ ¿ πñá½Ñ¡δ,  ¬παß«α »ÑαÑ¡«ß¿Γß∩ »α¿ ñ«ßΓ¿ªÑ¡¿¿
  45. »αáó«ú« ¬αá∩ ¿  ΓѬßΓ  ßñó¿úáÑΓß∩  óóÑασ  »α¿  ñ«ßΓ¿ªÑ¡¿¿  ¬παß«α«¼
  46. ¡¿ª¡Ñ⌐ ½¿¡¿¿.
  47.      éßÑ φ¬αá¡¡δÑ   ¬««αñ¿¡áΓδ,   ºá   ¿ß¬½ετÑ¡¿Ñ¼   ΓÑσ,   ¬«Γ«αδÑ
  48. ¿ß»«½∞ºπεΓß∩  ñ½∩ «»αÑñѽѡ¿∩ «¬¡á,  ºáñáεΓß∩ «Γ¡«ß¿Γѽ∞¡« ΓѬπΘÑú«
  49. «¬¡á ¿ φ¬αá¡¡δÑ ¬««αñ¿¡áΓδ (1,1) ß««ΓóÑΓßΓóπεΓ óÑασ¡Ñ¼π ½Ñó«¼π πú½π
  50. φ¬αá¡á.
  51.      Ä¬¡«¼ »« π¼«½τá¡¿ε ∩ó½∩ÑΓß∩ óÑß∞ φ¬αá¡.
  52.      ÆᬪѠ»«ññÑনóáεΓß∩  αѪ¿¼δ  ñ½∩  EGA  (43  ßΓ᫬¿) ¿ VGA (50
  53. ßΓ᫬) (æ¼. «»¿ßá¡¿Ñ TextMode ó ú½áóÑ 15).
  54.  
  55.  
  56.                        æ»Ñµ¿á½∞¡δÑ ß¿¼ó«½δ.
  57.  
  58.      è«úñá ¿ñÑΓ  ºá»¿ß∞  ó  Output ¿½¿ ó Σá⌐½,  ¬«Γ«αδ⌐ ¡áº¡áτÑ¡ ¡á
  59. φ¬αá¡, ß½ÑñπεΘ¿Ñ π»αáó½∩εΘ¿Ñ ß¿¼ó«½δ ¿¼ÑεΓ ß»Ñµ¿á½∞¡«Ñ º¡áτÑ¡¿Ñ:
  60.  
  61. ───────────────────────────────────────────────────────────────────
  62.    æ¿¼ó«½      ê¼∩                         Ä»¿ßá¡¿Ñ
  63. ───────────────────────────────────────────────────────────────────
  64.    #7      æ¿ú¡á½         çóπ¬«ó«⌐ ß¿ú¡á½ τÑαѺ ó¡πΓαÑ¡¡¿⌐
  65.                           úα«¼¬«ú«ó«α¿Γѽ∞.
  66.  
  67.    #8      æ¿¼ó«½ ¡áºáñ   ÅÑαÑñó¿úáÑΓ ¬παß«α ¡á «ñ¿¡ ß¿¼ó«½ ¡áºáñ.
  68.                           àß½¿ ¬παß«α πªÑ ¡á ½Ñó«⌐ úαá¡¿µÑ ΓѬπΘÑú«
  69.                           «¬¡á, ¡¿τÑú« ¡Ñ ß½πτáÑΓß∩.
  70.  
  71.    #10     ì«óá∩ ßΓα«¬á   ÅÑαÑñó¿úáÑΓ ¬παß«α ¡á «ñ¡π ßΓ᫬π ó¡¿º.
  72.                           àß½¿ ¬παß«α πªÑ ó¡¿ºπ ΓѬπΘÑú« «¬¡á,
  73.                           ΓѬßΓ ßñó¿úáÑΓß∩ ¡á «ñ¡π ßΓ᫬π óóÑασ.
  74.  
  75.    #13     é«ºóαáΓ        é«ºóαáΘáÑΓ ¬παß«α ¡á ½Ñóδ⌐ ¬αá⌐
  76.            ¬áαÑΓ¬¿        ΓѬπΘÑú« «¬¡á.
  77. ───────────────────────────────────────────────────────────────────
  78.  
  79.      éßÑ ñαπú¿Ñ  ß¿¼ó«½δ  íπñπΓ  »«∩ó½∩Γ∞ß∩  ¡á  φ¬αá¡Ñ  ¬«úñá  «¡¿
  80. ¡á»¿ßá¡δ.
  81.  
  82.  
  83.                            éó«ñ ßΓ᫬¿.
  84.  
  85.      è«úñá ¿ñÑΓ τΓÑ¡¿Ñ ¿º Input ¿½¿ ¿º  ΓѬßΓ«ó«ú«  Σá⌐½á,  ¬«Γ«αδ⌐
  86. ¡áº¡áτáÑΓ  ¡á  φ¬αá¡,  óó«ñ¿Γß∩ «ñ¡á ßΓ᫬á óσ«ñ¡«ú« ΓѬßΓᠺᠫñ¡π
  87. «»Ñαᵿε. æΓα«¬á ºá»«¼¿¡áÑΓß∩ ó« ó¡πΓαÑ¡¡Ñ¼ íπΣÑαÑ ΓѬßΓ«ó«ú« Σá⌐½á
  88. ¿  ¬«úñá  ßΓα«¬á  τ¿ΓáÑΓß∩,  φëà íπΣÑα  ¿ß»«½∞ºπÑΓß∩  ¬á¬ óσ«ñ¡«⌐
  89. ¿ßΓ«τ¡¿¬. è«úñá íπΣÑα »πßΓ, óó«ñ¿Γß∩ ¡«óá∩ ßΓ᫬á.
  90.      è«úñá óó«ñ∩Γß∩     ßΓ᫬¿,     ñ«ßΓπ»¡δ     ß½ÑñπεΘ¿Ñ    ¬½ετ¿
  91. αÑñá¬Γ¿α«óá¡¿∩:
  92.  
  93. ───────────────────────────────────────────────────────────────────
  94.   è½ετ αÑñá¬Γ¿α«óá¡¿∩                  Ä»¿ßá¡¿Ñ
  95. ───────────────────────────────────────────────────────────────────
  96.      BackSpace         ôñá½∩ÑΓ »«ß½Ññ¡¿⌐ óóÑñÑ¡¡δ⌐ ß¿¼ó«½.
  97.  
  98.      ESC               ôñá½∩ÑΓ óßε óσ«ñ¡πε ßΓ᫬π.
  99.  
  100.      Enter             çáóÑαΦáÑΓ óσ«ñ¡πε ßΓα«¬π ¿ ºá»«¼¿¡áÑΓ ¼áα¬Ñα
  101.                        ¬«¡µá ßΓ᫬¿ ó íπΣÑαÑ.
  102.                        (carriage return / line feed)
  103.                        (ó«ºóαáΓ ¬áαÑΓ¬¿ / ¡«óá∩ ßΓ᫬á)
  104.  
  105.      Ctrl-S            Æ«ªÑ, τΓ« ¿ BackSpace.
  106.  
  107.      Ctrl-A            Æ«ªÑ, τΓ« ¿ ESC.
  108.  
  109.      Ctrl-D            éδí¿αáÑΓ «ñ¿¡ ß¿¼ó«½ ¿º »«ß½Ññ¡Ñ⌐ óσ«ñ¡«⌐
  110.                        ßΓ᫬¿.
  111.  
  112.      Ctrl-F            éδí¿αáÑΓ »«ß½Ññ¡εε óσ«ñ¡πε ßΓ᫬π.
  113.  
  114.      Ctrl-Z            çáóÑαΦáÑΓ óσ«ñ¡πε ßΓα«¬π ¿ úÑ¡Ñα¿απÑΓ
  115.                        ¼áα¬Ñα ¬«¡µá Σá⌐½á.
  116. ───────────────────────────────────────────────────────────────────
  117.  
  118.      Ctrl-Z íπñÑΓ  Γ«½∞¬«  úÑ¡Ñα¿α«óáΓ∞  ¼áα¬Ñα  ¬«¡µá Σá⌐½á,  Ñß½¿
  119. »ÑαѼѡ¡á∩ CheckEof πßΓá¡«ó½Ñ¡á ó  True,  »«  π¼«½τá¡¿ε  «¡á  αáó¡á
  120. False.
  121.  
  122.      ä½∩ Γ«ú«,   τΓ«íδ  »α«óÑα¿Γ∞  ß«ßΓ«∩¡¿Ñ  ¬½áó¿áΓπαδ  ¿  óóÑßΓ¿
  123. «Γñѽ∞¡δÑ ß¿¼ó«½δ »«ñ π»αáó½Ñ¡¿Ñ¼  »α«úαá¼¼δ,  ¿ß»«½∞ºπ⌐ΓÑ  Σπ¡¬µ¿¿
  124. KeyPressed ¿ ReadKey.
  125.  
  126.  
  127.                   è«¡ßΓá¡Γδ, Γ¿»δ ¿ »ÑαѼѡ¡δÑ.
  128.  
  129.      èáªñá∩ ¿º ¬«¡ßΓá¡Γ,  Γ¿»«ó ¿ »ÑαѼѡ¡δσ, «»αÑñѽѡ¡δσ ó ¼«ñπ½Ñ
  130. Crt, ¬αáΓ¬« «íßπªñÑ¡á ó φΓ«¼ αáºñѽÑ.
  131.  
  132.  
  133.                             è«¡ßΓá¡Γδ.
  134.  
  135.                        è«¡ßΓá¡Γδ αѪ¿¼á Crt.
  136.  
  137.      æ½ÑñπεΘ¿Ñ ¬«¡ßΓá¡Γδ  ¿ß»«½∞ºπεΓß∩  ¬á¬   »áαá¼ÑΓαδ   »α«µÑñπαδ
  138. TextMode:
  139.  
  140. ───────────────────────────────────────────────────────────────────
  141.  è«¡ßΓá¡Γá     ç¡áτÑ¡¿Ñ                   Ä»¿ßá¡¿Ñ
  142. ───────────────────────────────────────────────────────────────────
  143.  BW40            0       40*25 B/W (τÑα¡«-íѽδ⌐) ¡á µóÑΓ¡«¼
  144.                          áñá»ΓÑαÑ
  145.  BW80            2       80*25 B/W ¡á µóÑΓ¡«¼ áñá»ΓÑαÑ
  146.  MONO            7       80*25 B/W ¡á ¡ÑµóÑΓ¡«¼ áñá»ΓÑαÑ
  147.  CO40            1       40*25 µóÑΓ¡«⌐
  148.  CO80            3       80*25 µóÑΓ¡«⌐
  149.  FONT8x8       256       ñ½∩ EGA/VGA 43 ¿ 50 ßΓ᫬
  150.  C40          CO40       ñ½∩ ß«ó¼ÑßΓ¿¼«ßΓ¿ ß 3.0
  151.  C80          CO80       ñ½∩ ß«ó¼ÑßΓ¿¼«ßΓ¿ ß 3.0
  152. ───────────────────────────────────────────────────────────────────
  153.  
  154.      BW40, CO40,  BW80  ¿  CO80  »αÑñßΓáó½∩εΓ  4  µóÑΓ¡δσ ΓѬßΓ«óδσ
  155. αѪ¿¼á, »«ññÑনóáѼδÑ  µóÑΓ¡δ¼  úαáΣ¿τÑ߬¿¼  áñá»ΓÑα«¼  CGA.  MONO
  156. »αÑñßΓáó½∩ÑΓ     Ññ¿¡ßΓóÑ¡¡δ⌐    τÑα¡«-íѽδ⌐    ΓѬßΓ«óδ⌐    αѪ¿¼,
  157. »«ññÑনóáѼδ⌐ ¼«¡«σα«¼¡δ¼ áñá»ΓÑα«¼.  FONT8x8 »αÑñßΓáó½∩ÑΓ 43 ¿ 50
  158. ßΓ᫬«óδÑ  αѪ¿¼δ  ñ½∩ EGA/VGA.  è«¡ßΓá¡Γδ æ40 ¿ æ80 ¿ß»«½∞ºπεΓß∩ ó
  159. αѪ¿¼Ñ ß«ó¼ÑßΓ¿¼«ßΓ¿ ß Turbo  Pascal  3.0.  LastMode  ó«ºóαáΘáÑΓ  ó
  160. »«ß½Ññ¡¿⌐ á¬Γ¿ó¡δ⌐ ΓѬßΓ«óδ⌐ αѪ¿¼ »«ß½Ñ ¿ß»«½∞º«óá¡¿∩ úαáΣ¿¬¿.
  161.  
  162.  
  163.                      è«¡ßΓá¡Γδ µóÑΓ«ó ΓѬßΓá.
  164.  
  165.      æ½ÑñπεΘ¿Ñ ¬«¡ßΓá¡Γδ  ¿ß»«½∞ºπεΓß∩  ó  »α«µÑñπαáσ  TextColor  ¿
  166. TextBackground:
  167.  
  168.    ──────────────────────────────────
  169.      è«¡ßΓá¡Γá         ç¡áτÑ¡¿Ñ
  170.    ──────────────────────────────────
  171.       Black              0
  172.       Blue               1
  173.       Green              2
  174.       Cyan               3
  175.       Red                4
  176.       Magenta            5
  177.       Brown              6
  178.       LightGray          7
  179.       DarkGray           8
  180.       LightBlue          9
  181.       LightGreen        10
  182.       LightCyan         11
  183.       LightRed          12
  184.       LightMagenta      13
  185.       Yellow            14
  186.       White             15
  187.       Blink            128
  188.    ──────────────────────────────────
  189.  
  190.      ûóÑΓá »αÑñßΓáó½Ñ¡δ  τ¿ß½á¼¿  ß  0  ñ«  15 ,  ñ½∩ í«½ÑÑ ½Ñú¬«ú«
  191. ¿ß»«½∞º«óá¡¿∩ µóÑΓ«ó ¼«ª¡« ¿ß»«½∞º«óáΓ∞ φΓ¿ ¬«¡ßΓá¡Γδ ó¼ÑßΓ« τ¿ßѽ.
  192. é  µóÑΓ«óδσ ΓѬßΓ«óδσ αѪ¿¼áσ µóÑΓ ß¿¼ó«½«ó óδí¿αáÑΓß∩ ¿º 16 µóÑΓ«ó
  193. ¿ Σ«¡«óδ⌐ µóÑΓ ¿º 8 µóÑΓ«ó.  ûóÑΓ ß¿¼ó«½«ó ¼«ªÑΓ íδΓ∞ ΓᬪѠ óδíαá¡
  194. í½¿¡¬πεΘ¿⌐.
  195.  
  196.  
  197.                             ÅÑαѼѡ¡δÑ.
  198.  
  199.      é Crt «»αÑñÑ½Ñ¡δ »ÑαѼѡ¡δÑ:
  200.  
  201.    ──────────────────────────────────
  202.      ÅÑαѼѡ¡á∩        Æ¿»
  203.    ──────────────────────────────────
  204.      CheckBreak    Boolean
  205.      CheckEof      Boolean
  206.      CheckSnow     Boolean
  207.      DirectVideo   Boolean
  208.      LastMode      Word
  209.      TextAttr      Byte
  210.      WindMin       Word
  211.      WindMax       Word
  212.    ──────────────────────────────────
  213.  
  214.  
  215.                             CheckBreak.
  216.  
  217.      ÉáºαÑΦáÑΓ ¿½¿ ºá»αÑΘáÑΓ »α«óÑન ñ½∩ Ctrl-Break.
  218.  
  219.      var CheckBreak : éoolean;
  220.  
  221.      è«úñá CheckBreak ó True,  ¡áªáΓ¿Ñ Ctrl-Break  íπñÑΓ  ºáóÑαΦáΓ∞
  222. »α«úαá¼¼π ó« óαѼ∩ ÑÑ «τÑαÑñ¡«ú« óδó«ñá ¡á φ¬αá¡.  è«úñá CheckBreak
  223. ó False,  ¡áªáΓ¿Ñ  Ctrl-Break  ¡Ñ  ñáÑΓ   φΣΣѬΓá.   Å«   π¼«½τá¡¿ε
  224. CheakBreak  ó  True.  (é«  óαѼ∩  óδ»«½¡Ñ¡¿∩  Crt ºá»«¼¿¡áÑΓ ßΓáαδ⌐
  225. óÑ¬Γ«α »αÑαδóá¡¿∩ »« ControlBreak,  $1B,  ó  ú½«íá½∞¡πε  »ÑαѼѡ¡πε
  226. Γ¿»á pointer-SaveInt1B).
  227.  
  228.  
  229.                              CheckEof.
  230.  
  231.      ÉáºαÑΦáÑΓ ¿½¿ ºá»αÑΘáÑΓ ß¿¼ó«½ ¬«¡µá Σá⌐½á:
  232.  
  233.      var CheckEof : éoolean;
  234.  
  235.      è«úñá CheckEof   ó   True,   ß¿¼ó«½    ¬«¡µá    Σá⌐½á    íπñÑΓ
  236. úÑ¡Ñα¿α«óáΓ∞ß∩, Ñß½¿   éδ   ¡áª¼ÑΓÑ   Ctrl-Z  ó«  óαѼ∩  τΓÑ¡¿∩  ¿º
  237. Σá⌐½á, ¡áº¡áτÑ¡¡«ú« ¡á φ¬αá¡.  è«úñá CheckEof αáó¡á False,  ¡áªáΓ¿Ñ
  238. Ctrl-Z ¡Ñ ñáÑΓ φΣΣѬΓá. Å« π¼«½τá¡¿ε CheckEof ó False.
  239.  
  240.  
  241.                             CheckSnow.
  242.  
  243.      ÉáºαÑΦáÑΓ ¿½¿  ºá»αÑΘáÑΓ  "¬«¡Γα«½∞  ß¡Ñúá"  »α¿   ºá»«¼¿¡á¡¿¿
  244. ß¿¼ó«½«ó »α∩¼« ó ó¿ñÑ«»á¼∩Γ¿.
  245.  
  246.      var CheckSnow : éoolean;
  247.  
  248.      ìá í«½∞Φ¿¡ßΓóÑ  Γ¿»«ó  CGA  ¡á  φ¬αá¡Ñ íπñπΓ »«∩ó½∩Γ∞ß∩ »«¼Ñσ¿
  249. ("ß¡Ñú")  »α¿  ºá»«¼¿¡á¡¿¿  ß¿¼ó«½«ó  ó  ó¿ñÑ«»á¼∩Γ¿  ¡Ñ  ó«  óαѼ∩
  250. «íαáΓ¡«ú« σ«ñá   ½πτá   Γαπí¬¿  ΓÑନ¡á½á.  ¥Γ«ú«  ¡Ñ  ß½πτ¿Γß∩  ¡á
  251. ¼«¡«σα«¼¡δσ áñá»ΓÑαáσ ¿½¿ áñá»ΓÑαáσ Γ¿»á EGA.
  252.      è«úñá óδíαá¡ µóÑΓ¡«⌐ αѪ¿¼ ¿ CheckSnow ó True, »α∩¼á∩ ºá»¿ß∞ ó
  253. ó¿ñÑ«»á¼∩Γ∞ íπñÑΓ »α«¿ºó«ñ¿Γß∩ Γ«½∞¬« ó« óαѼ∩ «íαáΓ¡«ú« σ«ñá ½πτá.
  254. àß½¿  éδ  αáí«ΓáÑΓÑ  ß ¡«óδ¼ ¿ß»«½¡Ñ¡¿Ñ¼ CGA,  éδ ¼«ªÑΓÑ πßΓá¡«ó¿Γ∞
  255. CheckSnow ó False ó ¡áτá½Ñ éáΦÑ⌐ »α«úαá¼¼δ ¿ »«ß½Ñ  ¬áªñ«ú«  ó맮óá
  256. TextMode. ¥Γ« íπñÑΓ ºá»αÑΘáΓ∞ »α«óÑα¬π ¡á "ß¡Ñú", ó αѺπ½∞ΓáΓÑ τÑú«
  257. ߬«α«ßΓ∞ óδó«ñá º¡áτ¿Γѽ∞¡« ó«ºαáßΓáÑΓ.
  258.      CheckSnow ¡Ñ «¬áºδóáÑΓ ñÑ⌐ßΓó¿Ñ, Ñß½¿ DirectVideo ó False.
  259.  
  260.  
  261.                            DirectVideo.
  262.  
  263.      ÉáºαÑΦáÑΓ ¿ ºá»αÑΘáÑΓ »α∩¼«⌐  ñ«ßΓπ»  ¬  »á¼∩Γ¿  ñ½∩  Write  ¿
  264. Writeln »α¿ óδó«ñÑ ¡á φ¬αá¡.
  265.  
  266.      var DirectVideo : Boolean;
  267.  
  268.      è«úñá DirectVideo  ó  True,  Write  ¿  Writeln  »α¿  óδó«ñÑ  ó
  269. Σá⌐½δ, ¡áº¡áτÑ¡¡δÑ ¡á φ¬αá¡, íπñπΓ ºá»«¼¿¡áΓ∞ ß¿¼ó«½δ ó ó¿ñÑ«»á¼∩Γ¿
  270. ó¼ÑßΓ« ó맮óá BIOS.  è«úñá DirectVideo ó False ,  óßÑ ß¿¼ó«½δ íπñπΓ
  271. ºá»¿ßδóáΓ∞ß∩ τÑαѺ ó맮óδ BIOS, τΓ« º¡áτ¿Γѽ∞¡« ¼Ññ½Ñ¡¡ÑÑ.
  272.      DirectVideo »«  π¼«½τá¡¿ε  óßÑúñá  ó True.  àß½¿ »« ¬á¬¿¼-½¿í«
  273. »α¿τ¿¡á¼, éδ σ«Γ¿ΓÑ óδó«ñ¿Γ∞ ß¿¼ó«½δ τÑαѺ ó맮óδ  BIOS, πßΓá¡«ó¿ΓÑ
  274. DirectVideo ó False ó ¡áτá½Ñ éáΦÑ⌐ »α«úαá¼¼δ ¿ »«ß½Ñ ¬áªñ«ú« ó맮óá
  275. TextMode.
  276.  
  277.  
  278.                              LastMode.
  279.  
  280.      èáªñδ⌐ αẠ  ¬«úñá  óδºδóáÑΓß∩  TextMode,  ΓѬπΘ¿⌐  ó¿ñÑ«αѪ¿¼
  281. ºá»«¼¿¡áÑΓß∩ ó LastMode.  èα«¼Ñ Γ«ú«, LastMode ¿¡¿µ¿á½¿º¿απÑΓß∩ »α¿
  282. ºá»π߬Ѡ»α«úαá¼¼δ ó ΓѬπΘ¿⌐ ó¿ñÑ«αѪ¿¼.
  283.  
  284.         var LastMode : Word;
  285.  
  286.  
  287.                              TextAttr.
  288.  
  289.      æ«ñÑαª¿Γ ΓѬπΘ¿Ñ áΓα¿íπΓδ ΓѬßΓá.
  290.  
  291.      var TextAttr : Byte;
  292.  
  293.      ÇΓα¿íπΓδ ΓѬßΓá «íδτ¡« πßΓá¡áó½¿óáεΓß∩ τÑαѺ  ó맮óδ TextColor
  294. ¿ TextBackground.   Äñ¡á¬«,   éδ   ¼«ªÑΓÑ   πßΓá¡«ó¿Γ∞   ¿σ  »α∩¼δ¼
  295. ºá»«¼¿¡á¡¿Ñ¼ º¡áτÑ¡¿∩ ó TextAttr.  ê¡Σ«α¼áµ¿∩ « µóÑΓÑ ¬«ñ¿απÑΓß∩  ó
  296. TextAttr ß½ÑñπεΘ¿¼ «íαẫ¼:
  297.  
  298.      í¿Γ       7   6   5   4   3   2   1   0
  299.              ┌───┬───┬───┬───┬───┬───┬───┬───┐
  300.              │ B │ b │ b │ b │ f │ f │ f │ f │
  301.              └───┴───┴───┴───┴───┴───┴───┴───┘
  302.  
  303.      úñÑ ffff - 4 í¿Γ«óδ⌐ µóÑΓ ß¿¼ó«½á,  bbb - 3 í¿Γ«óδ⌐ µóÑΓ Σ«¡á,
  304. é -  í¿Γ  πßΓᡫ󬿠 í½¿¡¬«óá¡¿∩  (¼¿úá¡¿∩).  àß½¿  éδ  ¿ß»«½∞ºπÑΓÑ
  305. ¬«¡ßΓá¡Γδ µóÑΓ«ó ñ½∩ ß«ºñá¡¿∩ º¡áτÑ¡¿⌐ TextAttr,  »«¼¡¿ΓÑ, τΓ« µóÑΓ
  306. Σ«¡á ¼«ªÑΓ íδΓ∞ óδíαá¡ Γ«½∞¬« ¿º »Ñαóδσ 8 µóÑΓ«ó  ¿ τΓ«  «¡  ñ«½ªÑ¡
  307. íδΓ∞  π¼¡«ªÑ¡ ¡á 16 ñ½∩ πßΓᡫ󬿠Ñú« ó »αáó¿½∞¡πε í¿Γ«óπε »«º¿µ¿ε.
  308. æ½ÑñπεΘ¿⌐ »α¿¼Ñα óδí¿αáÑΓ í½¿¡¬πεΘ¿Ñ ªÑ½ΓδÑ ß¿¼ó«½δ ¡á  ß¿¡Ñ¼ Σ«¡Ñ:
  309.  
  310.          TextAttr := Yellow + Blue * 16 + Blink;
  311.  
  312.  
  313.                         WindMin ¿ WindMax.
  314.  
  315.      æ«ñÑαªáΓ φ¬αá¡¡δÑ ¬««αñ¿¡áΓδ ΓѬπΘÑú« «¬¡á.
  316.  
  317.           var WindMin, WindMax : Word;
  318.  
  319.      ¥Γ¿ »ÑαѼѡ¡δÑ   πßΓá¡áó½¿óáεΓß∩   óδº«ó«¼  »α«µÑñπαδ  Window.
  320. WindMin «»αÑñѽ∩ÑΓ óÑασ¡¿⌐ ½Ñóδ⌐ πú«½ ¿ WindMax  «»αÑñѽ∩ÑΓ  ¡¿ª¡¿⌐
  321. »αáóδ⌐ πú«½.  è««αñ¿¡áΓá ò ºá»«¼¡Ñ¡á ó ¼½áñΦѼ íá⌐ΓÑ ¿ ¬««αñ¿¡áΓá Y
  322. ºá»«¼¡Ñ¡á ó ßΓáαΦѼ íá⌐ΓÑ.  ìá»α¿¼Ñα, Lo(WindMin) óδñáÑΓ ¬««αñ¿¡áΓπ
  323. ò  ½Ñó«⌐  úαá¡¿µδ  ¿ Hi(WindMax) óδñáÑΓ ¬««αñ¿¡áΓπ Y ¡¿ª¡Ñ⌐ úαá¡¿µδ
  324. «¬¡á. éÑασ¡¿⌐ ½Ñóδ⌐ πú«½ φ¬αá¡á ß««ΓóÑΓßΓóπÑΓ (X,Y)=(0,0). çá¼ÑΓ¿¼,
  325. «ñ¡á¬«, τΓ« ñ½∩ ¬««αñ¿¡áΓ,  »ÑαÑñáóáѼδσ ó Window ¿ GotoXY, óÑασ¡¿⌐
  326. ½Ñóδ⌐ πú«½ ß««ΓóÑΓßΓóπÑΓ (1,1).
  327.  
  328.  
  329.                        Åα«µÑñπαδ ¿ Σπ¡¡¬µ¿¿.
  330.  
  331. ───────────────────────────────────────────────────────────────────
  332.      öπ¡¬µ¿∩                       Ä»¿ßá¡¿Ñ
  333. ───────────────────────────────────────────────────────────────────
  334.      KeyPressed     é«ºóαáΘáÑΓ True, Ñß½¿ ¡á ¬½áó¿áΓπαÑ íδ½á ¡áªáΓá
  335.                     ¬½áó¿Φá, ¿ False ó »α«Γ¿ó¡«¼ ß½πτáÑ.
  336.  
  337.      ReadKey        ù¿ΓáÑΓ ß¿¼ó«½ ß ¬½áó¿áΓπαδ.
  338.  
  339.      WhereX         é«ºóαáΘáÑΓ ò ¬««αñ¿¡áΓπ ΓѬπΘÑ⌐ »«º¿µ¿¿ ¬παß«αá
  340.                     «Γ¡«ß¿Γѽ∞¡« ΓѬπΘÑú« «¬¡á. ò - ú«α¿º«¡Γá½∞¡á∩
  341.                     »«º¿µ¿∩.
  342.  
  343.      WhereY         é«ºóαáΘáÑΓ Y ¬««αñ¿¡áΓπ ΓѬπΘÑ⌐ »«º¿µ¿¿ ¬παß«αá
  344.                     «Γ¡«ß¿Γѽ∞¡« ΓѬπΘÑú« «¬¡á. Y - óÑαΓ¿¬á½∞¡á∩
  345.                     »«º¿µ¿∩.
  346. ───────────────────────────────────────────────────────────────────
  347.  
  348. ───────────────────────────────────────────────────────────────────
  349.      Åα«µÑñπαá                     Ä»¿ßá¡¿Ñ
  350. ───────────────────────────────────────────────────────────────────
  351.      AssignCrt       ìạáτáÑΓ ΓѬßΓ«óδ⌐ Σá⌐½ ¡á φ¬αá¡.
  352.  
  353.      ClrEol          ôñá½∩ÑΓ óßÑ ß¿¼ó«½δ «Γ ΓѬπΘÑ⌐ »«º¿µ¿¿ ¬παß«αá
  354.                      ñ« ¬«¡µá ßΓ᫬¿ íѺ »ÑαÑñó¿ªÑ¡¿∩ ¬παß«αá.
  355.  
  356.      ClrScr          Äτ¿ΘáÑΓ φ¬αá¡ ¿ »«¼ÑΘáÑΓ ¬παß«α ó óÑασ¡¿⌐
  357.                      ½Ñóδ⌐ πú«½.
  358.  
  359.      Delay           çáñÑαª¬á ¡á π¬áºá¡¡«Ñ τ¿ß½« ¼¿½½¿ßѬπ¡ñ.
  360.  
  361.      DelLine         ôñá½∩ÑΓ ßΓ᫬π ¡á ¬«Γ«α«⌐ ¡áσ«ñ¿Γß∩ ¬παß«α ¿
  362.                      »ÑαѼÑΘáÑΓ óßÑ ßΓ᫬¿ ¡¿ªÑ φΓ«⌐ ßΓ᫬¿ ¡á
  363.                      ßΓ᫬π óóÑασ. ì¿ª¡∩∩ ßΓα«¬á «τ¿ΘáÑΓß∩.
  364.  
  365.      GotoXY          Å«º¿µ¿«¡¿απÑΓ ¬παß«α. ò - ú«α¿º«¡Γá½∞¡á∩
  366.                      »«º¿µ¿∩ ¿ Y - óÑαΓ¿¬á½∞¡á∩ »«º¿µ¿∩.
  367.  
  368.      HighVideo       ôßΓá¡áó½¿óáÑΓ óδß«¬πε ¿¡ΓÑ¡ß¿ó¡«ßΓ∞ ß¿¼ó«½«ó.
  369.  
  370.      InsLine         éßΓáó½∩ÑΓ »πßΓπε ßΓ᫬π ó »«º¿µ¿¿ ¬παß«αá.
  371.  
  372.      LowVideo        ôßΓá¡áó½¿óáÑΓ ¡¿º¬πε ¿¡ΓÑ¡ß¿ó¡«ßΓ∞ ß¿¼ó«½«ó.
  373.  
  374.      NormVideo       ôßΓá¡áó½¿óáÑΓ ¡«α¼á½∞¡πε ¿¡ΓÑ¡ß¿ó¡«ßΓ∞
  375.                      ß¿¼ó«½«ó.
  376.  
  377.      NoSound         é䬽ετáÑΓ ó¡πΓαÑ¡¡¿⌐ úα«¼¬«ú«ó«α¿Γѽ∞.
  378.  
  379.      Sound           é¬½ετáÑΓ ó¡πΓαÑ¡¡¿⌐ úα«¼¬«ú«ó«α¿Γѽ∞.
  380.  
  381.      TextBackground  ôßΓá¡áó½¿óáÑΓ µóÑΓ Σ«¡á.
  382.  
  383.      TextColor       ôßΓá¡áó½¿óáÑΓ µóÑΓ ß¿¼ó«½«ó.
  384.  
  385.      TextMode        ôßΓá¡áó½¿óáÑΓ ΓѬßΓ«óδ⌐ αѪ¿¼.
  386.  
  387.      Window          Ä»αÑñѽ∩ÑΓ ΓѬßΓ«ó«Ñ «¬¡« ¡á φ¬αá¡Ñ.
  388. ───────────────────────────────────────────────────────────────────
  389.