home *** CD-ROM | disk | FTP | other *** search
/ For Beginners & Professional Hackers / cd.iso / docum / tbas.doc / tb52.doc < prev    next >
Encoding:
Text File  |  1990-04-27  |  43.1 KB  |  999 lines

  1.  
  2.                            Ä»ÑαáΓ«α CALL INTERRUPT
  3.                            -----------------------
  4.  
  5.       öπ¡¬µ¿∩     CALL INTERRUPT         óδºδóáÑΓ ß¿ßΓѼ¡«Ñ »αÑαδóá¡¿Ñ
  6.       -------
  7.  
  8.       æ¿¡Γá¬ß¿ß   CALL INTERRUPT n
  9.       ---------
  10.  
  11.       çá¼Ñτá¡¿∩       ûÑ½δ¼ óδαáªÑ¡¿Ñ¼ n »αÑñßΓáó½∩ÑΓß∩ »αÑαδóá¡¿Ñ  ñ½∩
  12.       ---------       ó맮óá  ó  ñ¿á»áº«¡Ñ  «Γ  0 ñ« 255. èᬠαẠ»ÑαÑñ
  13.       »«½πτÑ¡¿Ñ¼ π»αáó½Ñ¡¿∩ «íαáí«Γτ¿¬«¼ »αÑαδóá¡¿⌐ αÑú¿ßΓαδ »α«µÑßß«αá
  14.       ºáúαπªáεΓß∩   º¡áτÑ¡¿∩¼¿   ¿º   íπΣÑαá  ¼áΦ¿¡¡δσ  αÑú¿ßΓα«ó.  Åα¿
  15.       ó«ºóαáΓÑ, «ßπΘÑßΓó½∩Ѽ«¼ «íαáí«Γτ¿¬«¼ »αÑαδóá¡¿⌐, íπΣÑα »α¿¡¿¼áÑΓ
  16.       º¡áτÑ¡¿∩  ¿º  »α«µÑßß«α¡δσ  αÑú¿ßΓα«ó. é ½εí«Ñ ñá¡¡«Ñ óαѼ∩ íπΣÑα
  17.       ß«ñÑαª¿Γ  ß«ßΓ«∩¡¿Ñ  αÑú¿ßΓα«ó  »α«µÑßß«αá  ó Γ«¼ ó¿ñÑ, ó ¬«Γ«α«¼
  18.       ¡áσ«ñ¿½¿ß∞  φΓ¿  αÑú¿ßΓαδ  »α¿  ¬«¼»¿½¿α«óá¡¿¿  ßἫú« »«ß½Ññ¡Ñú«
  19.       ó¡ÑΦ¡Ñú« ó맮óá ¿½¿ «»ÑαáΓ«αá REG. 
  20.          é  ß»αáó«τ¡«¼  απ¬«ó«ñßΓóÑ  »«  ΓÑσ¡¿¬Ñ  DOS ß«ñÑনΓß∩ »«½¡á∩
  21.       ¿¡Σ«α¼áµ¿∩  «  ¼¡«ú¿σ  Σπ¡¬µ¿∩σ,  ñ«ßΓπ»¡δσ  τÑαѺ  ¼Ñσá¡¿º¼ CALL
  22.       INTERRUPT.   Åα«úαá¼¼¿ßΓ   «ΓóÑΓßΓóÑ¡¡Ñ¡   ºá   ºáΘ¿Γπ  αÑú¿ßΓα«ó
  23.       ßΓѬ«ó«ú«  ßÑú¼Ñ¡Γá  (SS) ¿ ßΓѬ«ó«ú« π¬áºáΓѽ∩ (SP). Äúαá¡¿τÑ¡¿∩
  24.       ÅÑαÑñ  ¿ß»«½¡Ñ¡¿Ñ¼  «»ÑαáΓ«αá  CALL INTERRUPT »«ñσ«ñ∩Θ¿Ñ αÑú¿ßΓαδ
  25.       µÑ¡Γαá½∞¡«ú«  »α«µÑßß«αá  ñ«½ª¡δ  íδΓ∞  ó«ºíπªñÑ¡δ τÑαѺ «»ÑαáΓ«α
  26.       REG.  Å«ß½Ñ  ¿ß»«½¡Ñ¡¿∩  «»ÑαáΓ«αá  CALL  INTERRUPT  ¬  º¡áτÑ¡¿∩¼
  27.       »α«µÑßß«α¡δσ αÑú¿ßΓα«ó ñ«½ªÑ¡ íδΓ∞ «íÑß»ÑτÑ¡ ñ«ßΓπ» τÑαѺ Σπ¡¬µ¿ε
  28.       REG.
  29.          ß¼ ΓᬪѠCALL ABSOLUTE
  30.                   REG
  31.       Åα¿¼Ñα:    'call interrupt ¿ß»«½¡∩ÑΓ «íß½πª¿óá¡¿Ñ DOS »αÑαδóá¡¿⌐
  32.                  $include "regnames.inc"
  33.                  reg %ax &H0200
  34.                  'ah=02 ΦÑßΓ¡áñµáΓ¿α¿τ¡á∩ Σπ¡¬µ¿∩ ßΓá¡ñ. DOS-óδó«ñá
  35.                  '½¿ΓÑαá½á
  36.                  reg %ox,reg(%ox)and&HFF02
  37.                  'DL=02 ΦÑßΓ¡áñµáΓ¿α¿τ¡«Ñ DH «ßΓáÑΓß∩ ΓѼ ªÑ
  38.                  'DL:=½¿ΓÑαá ñ½∩ óδó«ñá
  39.                  call interrupt &H21 'ó맮ó »αÑαδóá¡¿∩ 21
  40.  
  41.  
  42.                                  öπ¡¬µ¿∩ CDBL
  43.                                  ------------
  44.  
  45.       öπ¡¬µ¿∩     CDBL     »αÑ«íαáºπÑΓ τ¿ß½« ó Σ«α¼áΓ ñó«⌐¡«⌐ Γ«τ¡«ßΓ¿
  46.       -------
  47.  
  48.       æ¿¡Γá¬ß¿ß   y=CDBL(τ¿ß½«ó«Ñ óδαáªÑ¡¿Ñ)
  49.       ---------
  50.  
  51.       çá¼Ñτá¡¿∩        CDBL   »αÑ«íαáºπÑΓ   τ¿ß½«óδε   »ÑαѼѡ¡πε  ¿½¿
  52.       ---------        τ¿ß½«ó«Ñ  óδαáªÑ¡¿Ñ  ó  Σ«α¼áΓ ñó«⌐¡«⌐ Γ«τ¡«ßΓ¿.
  53.       êß»«½∞ºπ⌐ΓÑ  CDBL  ñ½∩  ¿ß¬½ετÑ¡¿∩  ß½πτáÑó  »ÑαÑ»«½¡Ñ¡¿∩ µÑ½δσ ó
  54.       óδαáªÑ¡¿∩σ,   úñÑ  ¬«¼í¿¡¿απεΓß∩  µÑ½δÑ  «»Ñαá¡ñδ  ¿  «»Ñαá¡ñδ  ß
  55.       »½áóáεΘÑ⌐ Γ«τ¬«⌐, ¡á»α¿¼Ñα: y#=(z%+x%)/a#.
  56.          ¥Γ«  óδαáªÑ¡¿Ñ  íπñÑΓ  »α¿ó«ñ¿Γ∞  ¬ »ÑαÑ»«½¡Ñ¡¿ε, Ñß½¿ (z%+x%)
  57.       í«½∞ΦÑ   32767.   ùΓ«íδ  ¿ºíѪáΓ∞  φΓ«ú«,  ¿ß»«½∞ºπ⌐ΓÑ  CDBL  ñ½∩
  58.       »α¿¡πñ¿Γѽ∞¡«ú«  »αÑ«íαẫóá¡¿∩ «ñ¡«⌐ ¿º µÑ½δσ »ÑαѼѡ¡δσ ó Σ«α¼π
  59.       ñó«⌐¡«⌐  Γ«τ¡«ßΓ¿.  ¥Γ«  ó맮óÑΓ «µÑ¡¬π óßÑú« óδαáªÑ¡¿∩ ó ñó«⌐¡«⌐
  60.       Γ«τ¡«ßΓ¿.
  61.  
  62.             y=(CDBL(z%)+X%)/a#
  63.  
  64.       Äúαá¡¿τÑ¡¿∩      ä¿á»áº«¡ óδαáªÑ¡¿∩, »«ñáóáѼ«ú«  ó CDBL  ñ«½ªÑ¡
  65.       -----------      ¡áσ«ñ¿Γß∩  ó  »αÑñѽáσ  ºá¬«¡¡«ú«  ñ¿á»áº«¡á ñ½∩
  66.       τ¿ß½á ñó«⌐¡«⌐ Γ«τ¡«ßΓ¿.
  67.  
  68.         ß¼. ΓᬪѠ CINT
  69.                    CLNG
  70.                    CSNG
  71.       Åα¿¼Ñα:   'CDBL »«½ÑºÑ¡ ñ½∩ »αÑñ«ΓóαáΘÑ¡¿∩ «Φ¿í«¬ »Ñα¿«ñá »α«ú«¡á
  72.                 x%=2000
  73.                 y%=2000
  74.                 z#=cdbl(x%)*y%
  75.                 print x%,y%,z#
  76.                 end
  77.  
  78.                                  öπ¡¬µ¿∩ CEIL
  79.                                  ------------
  80.  
  81.       öπ¡¬µ¿∩     CEIL     ó«ºóαáΘáÑΓ ¡á¿¼Ñ¡∞ΦÑÑ µÑ½«Ñ, ¬«Γ«α«Ñ  í«½∞ΦÑ
  82.       -------              ¿½¿ αáó¡« áαúπ¼Ñ¡Γπ 
  83.  
  84.       æ¿¡Γá¬ß¿ß   y=CEIL(τ¿ß½«ó«Ñ óδαáªÑ¡¿Ñ)
  85.       ---------
  86.  
  87.       çá¼Ñτá¡¿∩        öπ¡¬µ¿∩  CEIL  »αÑ«íαáºπÑΓ  τ¿ß½«óδε  »ÑαѼѡ¡πε
  88.       ---------        ¿½¿  óδαáªÑ¡¿Ñ  ó  µÑ½«Ñ,  ó«ºóαáΘá∩  ¡á¿¼Ñ¡∞ΦÑÑ
  89.       µÑ½«Ñ, ¬«Γ«α«Ñ í«½∞ΦÑ ¿½¿ αáó¡« áαúπ¼Ñ¡Γπ.
  90.  
  91.       Éẽ¿τ¿∩         ¥Γ«⌐ Σπ¡¬µ¿¿ ó ê¡ΓÑα»αÑΓáΓ«α¡«¼ üÑ⌐ß¿¬Ñ ¡ÑΓ.
  92.       --------
  93.  
  94.          ß¼. ΓᬪѠ  CINT
  95.                      FIX
  96.                      INT
  97.  
  98.       Åα¿¼Ñα:    for i!=-2.5 to 2.5 step 0.5
  99.                  print using "CEIL-º¡áτÑ¡¿Ñ ### ÑßΓ∞ ###":i!,ceil(i!)
  100.                  next i!
  101.                  end
  102.  
  103.                                 Ä»ÑαáΓ«α CHAIN
  104.                                 --------------
  105.  
  106.       öπ¡¬µ¿∩     CHAIN      ó«ºíπªñáÑΓ  ¼«ñπ½∞  µÑ»«τѬ Æπαí« üÑ⌐ß¿¬á
  107.       -------                (ß«ºñáóáѼ«⌐ ¬á¬ .TBC ¿½¿ .EXE-Σá⌐½)
  108.  
  109.       æ¿¡Γá¬ß¿ß   CHAIN Σá⌐½á߻ѵ
  110.       ---------
  111.  
  112.       çá¼Ñτá¡¿∩        öá⌐½á߻ѵ-φΓ«  ßΓα«τ¡«Ñ  óδαáªÑ¡¿Ñ, ¬«Γ«α«Ñ
  113.       ---------        ß½ÑñπÑΓ     ßΓá¡ñáαΓ¡δ¼    DOS-ß«ú½áΦÑ¡¿∩¼    «í
  114.       ¡á¿¼Ñ¡«óá¡¿¿  Σá⌐½«ó, ¿ »αÑñßΓáó½∩ÑΓ ¼«ñπ½∞ µÑ»«τѬ Æπαí« üÑ⌐ß¿¬á
  115.       (αáßΦ¿αÑ¡¿Ñ  .TBC).  àß½¿  αáßΦ¿αÑ¡¿Ñ  «»π߬áÑΓß∩, »αÑñ»«½áúáÑΓß∩
  116.       .TBC.  Å«φΓ«¼π, Ñß½¿ óδ σ«Γ¿ΓѠ߻ѵ¿Σ¿µ¿α«óáΓ∞ .EXE-Σá⌐½, ¬ ¿¼Ñ¡¿
  117.       Σá⌐½á  ¡Ñ«íσ«ñ¿¼«  ñ«íáó¿Γ∞  .EXE.  ÅÑαѼѡ¡δÑ  »ÑαÑτ¿ß½∩ѼδÑ ¬á¬
  118.       COMMON  («íΘ¿Ñ),  »«ñáεΓß∩  ¿  ΓѬπΘÑ⌐  »α«úαá¼¼«⌐,  ¿ »α«úαá¼¼«⌐
  119.       ¡áº¡áτÑ¡¿∩ ó »α«úαá¼¼π ¡áº¡áτÑ¡¿∩. 
  120.          é    ΣáºÑ    ΓÑßΓ¿α«óá¡¿∩    óδºδóáεΘá∩    »α«úαἼᠠ  ñ«½ª¡á
  121.       ¬«¼»¿½¿α«óáΓ∞ß∩  ó  .EXE  -Σá⌐½, Γᬠ¬á¬ óδ ¡Ñ ¼«ªÑΓÑ αÑ὿º«óáΓ∞
  122.       µÑ»«τ¬π  ¿º  ßἫú«  Æπαí«-  üÑ⌐ß¿¬á. éδºδóáѼá∩ »α«úαá¼¼á ñ«½ª¡á
  123.       ¬«¼»¿½¿α«óáΓ∞ß∩ ¡á ñ¿ß¬ ¬á¬ ¼«ñπ½∞ µÑ»«τѬ (.EXE ¿½¿ .TBC-Σá⌐½) .
  124.       àß½¿  áαúπ¼Ñ¡Γδ  ó  «»ÑαáΓ«αÑ  COMMON  ó  óδºδóáεΘÑ⌐ ¿ óδºδóáѼ«⌐
  125.       »α«úαá¼¼áσ  ¡Ñ ß«ó»áñáεΓ (¡á»α¿¼Ñα, »ÑαѼѡ¡δÑ ß »½áóáεΘÑ⌐ Γ«τ¬«⌐
  126.       ó  «ñ¡«¼  ¼ÑßΓÑ  ¿  µÑ½δÑ  ó  ñαπú«¼),  ó«º¡¿¬áÑΓ  «Φ¿í¬á »Ñα¿«ñá
  127.       »α«ú«¡á.     Æπαí«-üÑ⌐ß¿¬    ¡Ñ    »«ññÑনóáÑΓ    «»µ¿¿    CHAIN
  128.       ê¡ΓÑα»αÑΓáΓ«α¡«ú«  üÑ⌐ß¿¬á,  «α¿Ñ¡Γ¿α«óá¡¡δÑ  ¡á ¡π¼Ñαᵿε ßΓ᫬,
  129.       ó¬½ετá∩  DELETE  (ßΓÑαÑΓ∞),  MERGE  (ß«Ññ¿¡¿Γ∞) ¿ CHAIN (µÑ»«τ¬á)
  130.       ¡«¼Ñα ßΓ᫬¿. Å«ß¬«½∞¬π óδ ¡Ñ ¼«ªÑΓѠ߻ѵ¿Σ¿µ¿α«óáΓ∞ ¡«¼Ñα ßΓ᫬¿
  131.       ó  ¼«ñπ½Ñ  µÑ»«τѬ  ¡áº¡áτÑ¡¿∩,  ¿ß»«½¡Ñ¡¿Ñ  ¡áτ¿¡áΓ¿ß∩ óßÑúñá «Γ
  132.       ¡áτá½á.   Åα¿  Γαá¡ß½∩µ¿¿  «íαáí«Γá¡¡«⌐  CHAIN  ß¿ßΓÑ¼δ  »α«úαá¼¼
  133.       ê¡ΓÑα»αÑΓáΓ«α¡«ú«  üÑ⌐ß¿¬á ¡á Æπαí«-üÑ⌐ß¿¬, óδ ¼«ªÑΓÑ «í¡áαπª¿Γ∞,
  134.       τΓ«  αáßΦ¿αÑ¡¡«Ñ  ¿ß»«½∞º«óá¡¿Ñ  »á¼∩Γ¿  Æπαí«-üÑ⌐ß¿¬«¼ »«ºó«½∩ÑΓ
  135.       ¬«¡ß«½¿ñ¿α«óáΓ∞  «Γñѽ∞¡δÑ  ¼«ñπ½¿  ó  Ññ¿¡πε »α«úαá¼¼π, ¿ß¬½ετá∩
  136.       ¡Ñ«íσ«ñ¿¼«ßΓ∞ αÑ὿ºáµ¿¿ µÑ»«τѬ.
  137.  
  138.       Äúαá¡¿τÑ¡¿∩      Äíαẫóá¡¿Ñ  µÑ»«τѬ   ó«º¼«ª¡«,  Γ«½∞¬«   ¬«úñá
  139.       -----------      »α«úαἼᠠ ¿ß»«½∞ºπÑΓß∩   ¿º   DOS;   Γ.Ñ.   ¿º
  140.       .EXE-Σá⌐½á.  MERGE,  DELETE,  ALL  ¿  CHAIN  »«  ¡«¼Ñαπ ßΓ᫬¿ ¡Ñ
  141.       »«ññÑনóáεΓß∩.
  142.  
  143.       Éẽ¿τ¿∩         é Æπαí«-üÑ⌐ß¿¬Ñ «íαẫóá¡¿Ñ  µÑ»«τѬ ñѽáÑΓß∩ ¿º
  144.       --------         «ñ¡«⌐  ¬«¼»¿½¿απεΘÑ⌐ »α«úαá¼¼δ ó ñαπúπε, ¬«Γ«αá∩
  145.       πªÑ ¬«¼»¿½¿α«óá¡á ó .TBC ¿½¿ .EXE-Σá⌐½.
  146.  
  147.          ß¼. ΓᬪѠ  COMMON
  148.  
  149.       Åα¿¼Ñα:    'αáßß¼«Γα¿¼ PROG1 ,¬«Γ«αá∩ «íαáºπÑΓ µÑ»«τ¬π ¬ PROG2:
  150.                  prog1.bas
  151.                  'ºá∩ó¿Γ∞  »ÑαѼѡ¡δÑ, »«ñ½ÑªáΘ¿Ñ »«ñáτÑ ó «αúá¡¿ºπѼπε
  152.                  'µÑ»«τ¬«⌐  »α«úαá¼¼π:  ß¬á½∩α¡δÑ  »ÑαѼѡ¡δÑ Ññ¿¡¿τ¡«⌐
  153.                  'Γ«τ¡«ßΓ¿ a ¿ b ¿ µÑ½δ⌐ ¼áßß¿ó ß% 
  154.                  dim c%(3000)
  155.                  a=65:b=13:c%(2000)=12
  156.                  common a,b,c%(1)
  157.                  '߻ѵ¿Σ¿µ¿α«óáΓ∞ #αẼÑα«ó ó ¼áßß¿óÑ
  158.                  chain "prog2"
  159.                  'ºá∩ó¿Γ∞ »ÑαѼѡ¡δÑ, »«ñ½ÑªáΘ¿Ñ »α¿Ñ¼π ¿º ó«ºíπªñáεΘÑ⌐
  160.                  '»α«úαá¼¼δ.  Ä¡¿  ñ«½ª¡δ  íδΓ∞ ó Γ«¼ ªÑ »«α∩ñ¬Ñ, ¿¼ÑΓ∞
  161.                  'ëàªÑ Γ¿», ¡« ¡Ñ «í∩ºáΓѽ∞¡« Γ« ªÑ ¿¼∩ 
  162.                  common x,y,z%(2000)
  163.               ¬«úñá   prog1.exe   ó«ºíπªñáÑΓß∩   ¿º   DOS,   «¡á  íπñÑΓ
  164.               áóΓ«¼áΓ¿τÑ߬¿  óó«ñ¿Γ∞  ¼«ñπ½∞ prog2.tbc ¿ ¿ß»«½¡∩Γ∞ Ñú«,
  165.               αáß»ÑτáΓδóá∩  º¡áτÑ¡¿∩,  ¡áº¡áτÑ¡¡δÑ ó prog1. è«úñá prog2
  166.               «¬á¡τ¿óáÑΓß∩, ó«ºóαáΓ «ßπΘÑßΓó½∩ÑΓß∩ ó DOS, á ¡Ñ ó prog1.
  167.  
  168.  
  169.                                 Ä»ÑαáΓ«α CHDIR
  170.                                 --------------
  171.  
  172.       öπ¡¬µ¿∩     CHDIR    ¿º¼Ñ¡∩ÑΓ  ΓѬπΘ¿⌐  ß»αáó«τ¡¿¬  (DOS-¬«¼á¡ñá
  173.                            CHDIR ¿½¿ CD) 
  174.  
  175.       æ¿¡Γá¬ß¿ß   CHDIR »α«σ«ñ
  176.       ---------
  177.  
  178.       çá¼Ñτá¡¿∩        Åα«σ«ñ-φΓ«  ßΓα«τ¡«Ñ  óδαáªÑ¡¿Ñ, ß««ΓóÑΓßΓóπεΘÑÑ
  179.                        DOS -ß«ú½áΦÑ¡¿∩¼ « »α«σ«ñáσ («»¿ßá¡¡δσ ó αáºñѽÑ
  180.       "öá⌐½δ" ú½áóá 4).
  181.          àß½¿   »α«σ«ñ   ¡Ñ  π¬áºδóáÑΓ  ¬á¬«⌐-Γ«  ºá¬«¡¡δ⌐  ß»αáó«τ¡¿¬,
  182.       ó«º¡¿¬áÑΓ «Φ¿í¬á 76 »Ñα¿«ñá »α«ú«¡á, "Åα«σ«ñ ¡Ñ ¡á⌐ñÑ¡". Ä»ÑαáΓ«α
  183.       CHDIR ¿º¼Ñ¡∩ÑΓ ΓѬπΘ¿⌐ (ºáñÑ⌐ßΓó«óá¡¡δ⌐ »« π¼«½τá¡¿ε ß»αáó«τ¡¿¬).
  184.       ¥Γ«  á¡á½«ú¿τ¡«  ñÑ⌐ßΓó¿ε  ¬«¼á¡ñδ  CHDIR  ¿º DOS, ºá ¿ß¬½ετÑ¡¿Ñ¼
  185.       Γ«ú«,   τΓ«   ¡Ñ󫺼«ª¡á   áííαÑó¿áΓπαá,  »«ñ«í¡á∩  CD.  Åα«ú«¡«¼
  186.       »α«úαá¼¼δ,  ¬«Γ«αá∩  ¼Ñ¡∩ÑΓ  ß»αáó«τ¡¿¬,  ¿º  Æπαí«-üÑ⌐ß¿¬á ΓᬪÑ
  187.       ¼Ñ¡∩ÑΓ ºáñÑ⌐ßΓó«óá¡¡δ⌐ ß»αáó«τ¡¿¬ Æπαí«-üÑ⌐ß¿¬á.
  188.  
  189.          Åα¿¼Ñα:   INPUT "ì«óδ⌐ ß»αáó«τ¡¿¬ :",Åα«σ«ñ$
  190.                     CHDIR Åα«σ«ñ$
  191.                    end
  192.  
  193.                                  öπ¡¬µ¿∩ CHR$
  194.                                  ------------
  195.  
  196.       öπ¡¬µ¿∩     CHR$     »αÑ«íαáºπÑΓ ASCII-¬«ñ ó «ñ¡«½¿ΓÑα¡πε ßΓ᫬π
  197.       -------
  198.  
  199.       æ¿¡Γá¬ß¿ß   s$=CHR$(µÑ½«Ñ óδαáªÑ¡¿Ñ)
  200.       ---------
  201.  
  202.       çá¼Ñτá¡¿∩        CHR$ ó«ºóαáΘáÑΓ «ñ¡«½¿ΓÑα¡πε ßΓ᫬π,Ññ¿¡ßΓóÑ¡¡á∩
  203.       ---------        ½¿ΓÑαá   ¬«Γ«α«⌐   ¿¼ÑÑΓ   µÑ½«Ñ   óδαáªÑ¡¿Ñ   ó
  204.       ASCII-¬«ñÑ  ß« º¡áτÑ¡¿Ñ¼ «Γ 0 ñ« 255. CHR$ ñ«»«½¡∩ÑΓ Σπ¡¬µ¿ε ASC,
  205.       ¬«Γ«αá∩  ó«ºóαáΘáÑΓ  ASCII -¬«ñ »Ñαó«⌐ ½¿ΓÑαδ ßΓ᫬¿. CHR$ πñ«í¡á
  206.       ñ½∩ ß«ºñá¡¿∩ ½¿ΓÑα, ¬«Γ«αδÑ Γαπñ¡« óóÑßΓ¿ ß ¬½áó¿áΓπαδ, Γᬿσ ¬á¬
  207.       úαáΣ¿τÑ߬¿Ñ     ½¿ΓÑαδ    φ¬αá¡¡«ú«    óδó«ñá    ¿    π»αáó½∩εΘ¿Ñ
  208.       »«ß½Ññ«óáΓѽ∞¡«ßΓ¿   ñ½∩   óδó«ñá   ¡á  »ÑτáΓ∞.  ç¡áτÑ¡¿Ñ  µÑ½«ú«
  209.       óδαáªÑ¡¿∩,  »«ñáóáѼ«Ñ  ó CHR$, ñ«½ª¡« ½ÑªáΓ∞ ó ñ¿á»áº«¡Ñ «Γ 0 ñ«
  210.       255.  êß»«½∞º«óá¡¿Ñ áαúπ¼Ñ¡Γá ó¡Ñ φΓ«ú« ñ¿á»áº«¡á óδºδóáÑΓ «Φ¿í¬π
  211.       5 »Ñα¿«ñá »α«ú«¡á, ó맮ó ¡Ñºá¬«¡¡«⌐ Σπ¡¬µ¿¿.
  212.  
  213.          ß¼. ΓᬪѠ ASC
  214.  
  215.       Åα¿¼Ñα:    'CHR$ «Γ«íαáªáÑΓ ¡á φ¬αá¡Ñ ½¿ΓÑα¡δ⌐ ¡áí«α ASCII
  216.                  for i%=0 to 255
  217.                   print using "i":chr$(i%):
  218.                  '«Γ«íαếΓ∞ ascii ½¿ΓÑαπ ,»αÑñßΓáó½∩Ѽπε i%
  219.                  next i%
  220.                  end
  221.  
  222.  
  223.                                  öπ¡¬µ¿∩ CINT
  224.                                  ------------
  225.  
  226.       öπ¡¬µ¿∩     CINT               »αÑ«íαáºπÑΓ ßó«⌐ áαúπ¼Ñ¡Γ ó µÑ½«Ñ
  227.       -------
  228.  
  229.       æ¿¡Γá¬ß¿ß   y=cint(τ¿ß½«ó«Ñ óδαáªÑ¡¿Ñ)
  230.       ---------
  231.  
  232.       çá¼Ñτá¡¿∩        öπ¡¬µ¿∩  CINT  »αÑ«íαáºπÑΓ  τ¿ß½«óπε  »ÑαѼѡ¡πε
  233.       ---------        ¿½¿  óδαáªÑ¡¿Ñ  ó  µÑ½«Ñ, «¬απú½∩∩ ñα«í¡πε τáßΓ∞
  234.       τ¿ß½«ó«ú«   óδαáªÑ¡¿∩.  àß½¿  τ¿ß½«ó«Ñ  óδαáªÑ¡¿Ñ  ¡áσ«ñ¿Γß∩  ó¡Ñ
  235.       ñ¿á»áº«¡á  «Γ  -32768  ñ« 32767, Γ« ó«º¡¿¬áÑΓ «Φ¿í¬á »ÑαÑ»«½¡Ñ¡¿∩
  236.       («Φ¿í¬á   6  »Ñα¿«ñá  »α«ú«¡á).  ¥Γ«  »αÑ«íαẫóá¡¿Ñ  óδ»«½¡∩ÑΓß∩
  237.       ¬«ßóÑ¡¡δ¼  »πΓѼ,  »«ßαÑñßΓó«¼  ¡áº¡áτÑ¡¿∩  µÑ½«⌐  »ÑαѼѡ¡«⌐ ¿½¿
  238.       óδº«ó«¼   »α«µÑñπαδ,   ½¿í«   Σπ¡¬µ¿¿,  ¬«Γ«αá∩  »α¿¡¿¼áÑΓ  µÑ½δ⌐
  239.       áαúπ¼Ñ¡Γ.
  240.  
  241.       Éẽ¿τ¿∩         é  «Γ½¿τ¿¿  «Γ ê¡ΓÑα»αÑΓáΓ«α¡«ú« üÑ⌐ß¿¬á, Æπαí«-
  242.       --------         üÑ⌐ß¿¬ ¡Ñ óßÑúñá «¬απú½∩ÑΓ ñα«í¡πε τáßΓ∞ τ¿ß½á ó
  243.       ßΓ«α«¡π   πóѽ¿τÑ¡¿∩.   àß½¿   ñα«í¡á∩  τáßΓ∞  τ¿ß½á  αáó¡á  0.5,
  244.       «¬απú½Ñ¡¿Ñ «ßπΘÑßΓó½∩ÑΓß∩ ó ßΓ«α«¡π τÑΓ¡«ú« τ¿ß½á.
  245.  
  246.          ß¼. ΓᬪѠ CDBL
  247.                     CEIL
  248.                     CLNG
  249.                     CSNG
  250.  
  251.       Åα¿¼Ñα:    for i!=0.0 to 5.0 step 0.2
  252.                  print using "cint τ¿ß½á #.#=#":i!,cint(i!)
  253.                  next i!
  254.                  end
  255.  
  256.  
  257.                                Ä»ÑαáΓ«α CIRCLE
  258.                                ---------------
  259.  
  260.       öπ¡¬µ¿∩     CIRCLE    «íÑß»Ñτ¿óáÑΓ  óδτÑατ¿óá¡¿Ñ  «¬απª¡«ßΓ¿ ¿½¿
  261.       -------               τáßΓ¿ «¬απª¡«ßΓ¿. 
  262.  
  263.       æ¿¡Γá¬ß¿ß   CIRCLE (x,y),αáñ¿πß[,µóÑΓ[,¡áτὫ,¬«¡Ñµ[,ó¿ñ]]]
  264.       ---------
  265.  
  266.       çá¼Ñτá¡¿∩        (x,y)-¬««αñ¿¡áΓδ   µÑ¡Γαá   «¬απª¡«ßΓ¿,  ¬«Γ«αδÑ
  267.       ---------        ¼«úπΓ   ß»Ñµ¿Σ¿µ¿α«óáΓ∞ß∩   ó   áíß«½εΓ¡«⌐   ¿½¿
  268.       «Γ¡«ß¿Γѽ∞¡«⌐  Σ«α¼Ñ  (ß  ¿ß»«½∞º«ó᡿Ѽ STEP.). (ü«½ÑÑ ñÑΓá½∞¡πε
  269.       ¿¡Σ«α¼áµ¿ε  «í  áíß«½εΓ¡δσ  ¿  «Γ¡«ß¿Γѽ∞¡δσ  ¬««αñ¿¡áΓáσ  ß¼.  ó
  270.       αáºñѽѠ« úαáΣ¿¬Ñ â½áóδ 3 ). 
  271.          Éáñ¿πß -φΓ« τ¿ß½«ó«Ñ óδαáªÑ¡¿Ñ, ºáñáεΘÑÑ αẼÑα «¬απª¡«ßΓ¿.
  272.          ûóÑΓ   -   µÑ½«Ñ   óδαáªÑ¡¿Ñ,  «»αÑñѽ∩εΘÑÑ  µóÑΓ  «¬απª¡«ßΓ¿.
  273.       Åα¿Ñ¼½Ñ¼δ¼¿ º¡áτÑ¡¿∩¼¿ ∩ó½∩εΓß∩ 0-3 ó úαáΣ¿¬Ñ ßαÑñ¡Ñ⌐ αáºαÑΦáεΘÑ⌐
  274.       ß»«ß«í¡«ßΓ¿   (»«  π¼«½τá¡¿ε - 3)  ¿  0 - 1 ó úαáΣ¿¬Ñ  ß  óδß«¬«⌐
  275.       αáºαÑΦáεΘÑ⌐  ß»«ß«í¡«ßΓ∞ε (»« π¼«½τá¡¿ε - 1). ûóÑΓ«¼ »« π¼«½τá¡¿ε
  276.       ∩ó½∩ÑΓß∩  ¡á¿óδßΦ¿⌐  ó«º¼«ª¡δ⌐  µóÑΓ  Γ«ú« αѪ¿¼á, ó  ¬«Γ«α«¼  óδ
  277.       ¡áσ«ñ¿ΓÑß∞. êß»«½∞º«óá¡¿Ñ µóÑΓ«ó«ú« áαúπ¼Ñ¡Γá ó¡Ñ φΓ¿σ ñ¿á»áº«¡«ó
  278.       ñáÑΓ  «Φ¿í¬π  5 »Ñα¿«ñá »α«ú«¡á, ó맮ó ¡Ñºá¬«¡¡«⌐ Σπ¡¬µ¿¿. (ü«½ÑÑ
  279.       »«ñα«í¡πε  ¿¡Σ«α¼áµ¿ε  «  óδí«αÑ  µóÑΓ«ó ß¼. ó «»¿ßá¡¿¿ «»ÑαáΓ«αá
  280.       COLOR).
  281.          ìáτὫ  ¿  ¬«¡Ñµ ∩ó½∩εΓß∩ «»µ¿«¡á½∞¡δ¼¿ τ¿ß½«ó묨 »áαá¼ÑΓαἿ,
  282.       «»αÑñѽ∩εΘ¿¼¿  ¡áτá½∞¡πε ¿ ¬«¡µÑóπε Γ«τ¬¿ »«ñ½ÑªáΘÑ⌐ óδτÑατ¿óá¡¿ε
  283.       ñπú¿, ¬«Γ«αδѠ߻ѵ¿Σ¿µ¿απεΓß∩ ó αáñ¿á¡áσ (ß¼. «»¿ßá¡¿Ñ αáñ¿á¡«ó ó
  284.       «»¿ßá¡¿¿  «»ÑαáΓ«αá ATN). êß»«½∞ºπ⌐ΓÑ ¿σ, ¬«úñᠪѽáÑΓÑ óδτÑαΓ¿Γ∞
  285.       Γ«½∞¬«   τáßΓ∞   «¬απª¡«ßΓ¿.  àß½¿  ¡áτὫ  ¿  ¬«¡Ñµ  «»π߬áεΓß∩,
  286.       óδτÑατ¿óáÑΓß∩ µÑ½á∩ «¬απª¡«ßΓ∞ . ìá»α¿¼Ñα:
  287.  
  288.             SCREEN 1:pi=4*atn(1)
  289.             CIRCLE (160,100),50,3,0,pi
  290.  
  291.       «íÑß»Ñτ¿óáÑΓ  óδτÑατ¿óá¡¿Ñ  íѽ«ú«  »«½π¬απúá  «Γ  0  αáñ¿á¡ ñ« »
  292.       αáñ¿á¡.
  293.             ÄΓα¿µáΓѽ∞¡δÑ º¡áτÑ¡¿∩ ¡áτὫ ¿ ¬«¡Ñµ óδºδóáεΓ óδτÑατ¿óá¡¿Ñ
  294.       Γ«αΓ«-«íαạδσ;  Γ.Ñ.  ¬α«¼¬¿  ñπú¿  áóΓ«¼áΓ¿τÑ߬¿  ß«Ññ¿¡∩εΓß∩ ß
  295.       µÑ¡Γαá½∞¡«⌐ Γ«τ¬«⌐. ìá»α¿¼Ñα : 
  296.  
  297.             SCREEN 1:pi=4*atn(1)
  298.             CIRCLE (160,100)50,,-pi/4,-pi/2
  299.  
  300.            «íÑß»Ñτ¿óáÑΓ  óδτÑατ¿óá¡¿Ñ  45-úαáñπß¡«ú« ¬π߬á Γ«αΓá «Γ »/4
  301.       αáñ¿á¡  ñ«  »/2  αáñ.  ùΓ«íδ  ¡áτáΓ∞ ¬½¿¡ ¡á »«½«ª¿Γѽ∞¡«⌐ X-«ß¿,
  302.       ¿ß»«½∞ºπÑΓß∩  «Γα¿µáΓѽ∞¡«Ñ  τ¿ß½«,  ¡Ñ߬«½∞¬«  ¼Ñ¡∞ΦÑ ¡π½∩, á ¡Ñ
  303.       »α«ßΓ« -0 (¡á»α¿¼Ñα ..0001).
  304.             é¿ñ  -  φΓ«  τ¿ß½«ó«Ñ óδαáªÑ¡¿Ñ, π»αáó½∩εΦÑÑ ΓѼ, ¡á߬«½∞¬«
  305.       ¬απú½«⌐  ¿½¿  «óá½∞¡«⌐  íπñÑΓ  «¬απª¡«ßΓ∞. Å« π¼«½τá¡¿ε ó ßαÑñ¡Ñ⌐
  306.       αáºαÑΦáεΘÑ⌐  ß»«ß«í¡«ßΓ¿  Ñú«  º¡áτÑ¡¿Ñ αáó¡« 5/6 (0.833333), á ó
  307.       ºáó¿ß¿¼«ßΓ¿    «Γ    óδΦÑ⌐   ¬«¡¬αÑΓ¡«⌐   ¬«¼í¿¡áµ¿¿   ñ¿ß»½Ñ⌐¡«⌐
  308.       »½áΓδ/ó¿ñÑ«-¼«¡¿Γ«αá,  óá¼ ¼«ªÑΓ »«ΓαÑí«óáΓ∞ß∩ »«ó«º¿Γ∞ß∩ ß φΓ¿¼¿
  309.       º¡áτÑ¡¿∩¼¿   (½¿í«  «ΓαÑúπ½¿α«óáΓ∞  óáΦ  ¼«¡¿Γ«α)  ñ½∩  »«½πτÑ¡¿∩
  310.       ¬απú½δσ  «¬απª¡«ßΓÑ⌐. LPR »«ß½Ñ óδτÑατ¼óá¡¿∩ «¬απª¡«ßΓ¿ ¡áσ«ñ¿Γß∩
  311.       ó ÑÑ µÑ¡ΓαÑ.
  312.  
  313.       Åα¿¼Ñα:    '¥Γá »α«úαá¼¼á ñѼ«¡ßΓα¿απÑΓ ó«º¼«ª¡«ßΓ¿ CIRCLE
  314.                  '¿º¼Ñ¡Ñ¡¿Ñ  ¼ÑßΓ«»«½«ªÑ¡¿∩  αáñ¿πßá,  µóÑΓá,  ó¿ñ«ó«ú«
  315.                  '«Γ¡«ΦÑ¡¿∩.  æ  »«¼«Θ∞ε CIRCLE ¼«ª¡« ΓᬪѠóδτÑατ¿óáΓ∞
  316.                  'ñπú¿ ¿ ¬½¿¡∞∩, »«½Ñº¡δÑ ñ½∩ ¿úα "»á¬-¼á¡"
  317.                  pi#=4*atn(1)
  318.                  screen 1
  319.                  for αáñ¿πß%=1 to 20 'πóѽ¿τ¿óáΓ∞ αẼÑα «¬απª¡«ßΓ¿
  320.                  ¬«½Ñα%=αáñ¿πß%mod4 'αáßßτ¿ΓáΓ∞ µóÑΓ ¿º«íαáªÑ¡¿∩
  321.                  circle (250,150),αáñ¿πß%,¬«½Ñα% 'µÑ¡Γα ó 250,150
  322.                  next αáñ¿πß%
  323.                  circle     (220,60),50,1,-(pi#*5/4),-pi#*3/4)    'Γѽ«
  324.                  '»á¬-¼á¡ ¿ ú½áº 
  325.                  circle step (-5,-25),5,1
  326.                  αáñ¿πß%=50
  327.                  'φ½½¿»ß ¼«ªÑΓ ñáóáΓ∞ ¿½½εº¿ε ßΣÑαδ ...
  328.                  for ó¿ñ=0 to 2.0 step 0.09
  329.                   circle (90,100),αáñ¿πß%,,,,ó¿ñ
  330.                  next ó¿ñ
  331.                  end
  332.  
  333.  
  334.                                 Ä»ÑαáΓ«α CLEAR
  335.                                 --------------
  336.  
  337.       öπ¡¬µ¿∩      CLEAR       «τ¿ΘáÑΓ »ÑαѼѡ¡πε »á¼∩Γ∞
  338.       -------
  339.  
  340.       æ¿¡Γá¬ß¿ß    CLEAR
  341.       ---------
  342.  
  343.       çá¼Ñτá¡¿∩        CLEAR - φΓ« ¬«¼á¡ñá íѺ »áαá¼ÑΓα«ó, ¬«Γ«αá∩
  344.       ---------        πßΓá¡áó½¿óáÑΓ  τ¿ß½«óδÑ  »ÑαѼѡ¡δÑ  ó  ¡«½∞,  á
  345.       ßΓα«τ¡δÑ   »ÑαѼѡ¡δÑ   ó   ¡π½∞-ßΓ᫬π.  CLEAR  ó䬽ετáÑΓ  ½εí«Ñ
  346.       «Γ߽Ѫ¿óá¡¿Ñ  ß«íδΓ¿⌐,  ¬«Γ«α«Ñ  ¡áσ«ñΓß∩ ó« ó¬½ετÑ¡¡«¼ ß«ßΓ«∩¡¿¿
  347.       (ΓᬿѠ ¬á¬  ¼πºδ¬á,  ¬«Γ«αá∩ ¼«ªÑΓ íδΓ∞ ºáñÑ⌐ßΓó«óá¡á «»ÑαáΓ«α«¼
  348.       PLAY) ¿ »«óΓ«α¡« ó«ºíπªñáÑΓ ¼áßß¿ó¡πε ¿ ßΓα«τ¡πε »á¼∩Γ∞.
  349.             Åα¿¼Ñτá¡¿Ñ:  Ä»ÑαáΓ«α  CLEAR  ó¡πΓα¿  µ¿¬½á  íπñÑΓ  «τ¿ΘáΓ∞
  350.       ßτÑΓτ¿¬, óδºδóá∩ íÑ߬«¡Ñτ¡δ⌐ µ¿¬½.
  351.       ä½∩   óδí«α«τ¡«ú«  «ßó«í«ªñÑ¡¿∩  ¼áßß¿ó«ó  ó  »á¼∩Γ¿  »«½∞ºπ⌐ΓÑß∞
  352.       «»ÑαáΓ«α«¼ ERASE.
  353.  
  354.       Äúαá¡¿τÑ¡¿∩      Æπαí«-üÑ⌐ß¿¬   ¡Ñ    »«ññÑনóáÑΓ   ñ¿¡á¼¿τÑ߬πε
  355.       -----------      πßΓá¡«ó¬π  ßΓѬᠠ¿  ßÑú¼Ñ¡Γ«ó  ñá¡¡δσ;  ó  φΓ«¼
  356.       «»ÑαáΓ«αÑ ¡ÑΓ »«φΓ«¼π ß««ΓóÑΓßΓóπεΘ¿σ »áαá¼ÑΓα«ó.
  357.  
  358.       Éẽ¿τ¿∩         Éẽ¿τ¿∩  ¼Ñªñπ  «»ÑαáΓ«αἿ  CLEAR  ê¡ΓÑα»αÑΓá-
  359.                        Γ«α¡«ú«   üÑ⌐ß¿¬á  ¿  Æπαí«-üÑ⌐ß¿¬á  »α«¿ßσ«ñ¿Γ,
  360.       ú½áó¡δ¼   «íαẫ¼   ,   ¿º   αẽ¿τ¿⌐   ¼Ñªñπ   ¬«¼»¿½∩Γ«αἿ   ¿
  361.       ¿¡ΓÑα»αÑΓáΓ«αἿ.  ê¡ΓÑα»αÑΓáΓ«α¡δ⌐  üÑ⌐ß¿¬  ñáÑΓ óἠ󫺼«ª¡«ßΓ∞
  362.       ñ¿¡á¼¿τÑ߬¿  πßΓá¡áó½¿óáΓ∞  »α«ßΓαá¡ßΓó«  ßΓѬᠿ ñá¡¡δσ Γá¼, úñÑ
  363.       »α«ßΓαá¡ßΓó«  ßΓѬᠠ¿  ñá¡¡δσ Æπαí«-üÑ⌐ß¿¬á Σ¿¬ß¿απÑΓß∩ ó« óαѼ∩
  364.       ¬«¼»¿½¿α«óá¡¿∩.
  365.  
  366.          ß¼. ΓᬪѠ  ERASE
  367.                      $STACK
  368.  
  369.       Åα¿¼Ñα:     'φΓá »α«úαá¼¼á ñѼ«¡ßΓα¿απÑΓ τΓ« ¼«ªÑΓ ñѽáΓ∞ CLEAR
  370.                   dim ¼áßß¿ó$(1) 'ºá∩ó¿Γ∞ ¼áßß¿ó ßΓ᫬
  371.                   play "mb l1 efgabcdef" '¿úαáΓ∞ ¼πºδ¬π ó Σ«¡Ñ
  372.                   on pen gosub ÅÑαáäÑαªáΓѽ∞ '¡áßΓα«¿Γ∞ «Γ߽Ѫ¿óá¡¿Ñ
  373.                   'ßóÑΓ«ó«ú« »Ñαá 
  374.                   on strig(0) gosub è¡«»¬¿äÑαªáΓѽ∞ '¡áßΓα«¿Γ∞ «Γß½Ñ-
  375.                   'ª¿óáΓѽ∞ απτ¬¿  π»αáó½Ñ¡¿∩ 
  376.                   'ó«ºíπñ¿Γ∞ ßΓα«τ¡δÑ ñá¡¡δÑ
  377.                   îáßß¿ó$(0)="φΓ« ßΓ᫬á ó îáßß¿óÑ$(0)"
  378.                   îáßß¿ó$(1)="φΓ« ßΓ᫬á ó îáßß¿óÑ$(1)"
  379.                   '«Γ«íαếΓ∞ ßΓα«τ¡δÑ ñá¡¡δÑ
  380.                   print using "îáßß¿ó¡δ⌐ φ½Ñ¼Ñ¡Γ 1:&":Máßß¿ó;(0)
  381.                   print using "îáßß¿ó¡δ⌐ φ½Ñ¼Ñ¡Γ 2&":îáßß¿ó$(1)
  382.                   print
  383.                   input "¡áª¼¿ΓÑ <enter>(óó«ñ)ñ½∩ ¿ß»«½¡Ñ¡¿∩ «»ÑαáΓ«αá
  384.                          CLEAR": ÅπßΓ«$
  385.                   clear 'ñѽáÑΓß∩ «τ¿ßΓ¬á
  386.                   print
  387.                   'ßπΘÑßΓóπεΘ¿Ñ ßΓα«τ¡δÑ ñá¡¡δÑ í«½ÑÑ ¡Ñ «Γ«íαáªáεΓß∩
  388.                   print using "îáßß¿ó¡δ⌐ φ½Ñ¼Ñ¡Γ 1:&":îáßß¿ó$(0)
  389.                   print using "îáßß¿ó¡δ⌐ φ½Ñ¼Ñ¡Γ 2:&":îáßß¿ó$(1)
  390.                   print
  391.                   print "ßΓα«τ¡δÑ »ÑαѼѡ¡δÑ ΓÑ»Ñα∞ »πßΓδ"
  392.                   end
  393.                   ÅÑαáäÑαªáΓѽ∞:'«»αÑñѽ¿Γ∞ »πßΓπε ¼ÑΓ¬π ñ½∩ ½«óπΦ¬¿
  394.                   'ßóÑΓ«ó«ú« »Ñαá
  395.                   return
  396.                   è¡«»¬¿äÑαªáΓѽ∞ :'«»αÑñѽ¿Γ∞ »πßΓπε ¼ÑΓ¬π ñ½∩
  397.                   'απτ¬¿ π»αáó½Ñ¡¿∩
  398.                   return
  399.  
  400.                                  öπ¡¬µ¿∩ CLNG
  401.                                  ------------
  402.  
  403.       öπ¡¬µ¿∩     CLNG     «íÑß»Ñτ¿óáÑΓ »αÑ«íαẫóá¡¿Ñ ó ñ½¿¡¡«Ñ µÑ½«Ñ
  404.       --------
  405.  
  406.       æ¿¡Γá¬ß¿ß   y=CLNG(τ¿ß½«ó«Ñ óδαáªÑ¡¿Ñ)
  407.       ---------
  408.  
  409.       çá¼Ñτá¡¿∩        CLNG  »αÑ«íαáºπÑΓ τ¿ß½«óπε »ÑαѼѡ¡πε ¿½¿  óδαá-
  410.       ---------        ªÑ¡¿Ñ  ó  ñ½¿¡¡«Ñ  µÑ½«Ñ  »«ßαÑñßΓó«¼ «¬απú½Ñ¡¿∩
  411.       ñα«í¡«⌐ τáßΓ¿ ÑÑ áαúπ¼Ñ¡Γá. àß½¿ τ¿ß½«ó«Ñ óδαáªÑ¡¿Ñ ¡áσ«ñ¿Γß∩ ó¡Ñ
  412.       ñ¿á»áº«¡á «Γ -2ó ßΓѻѡ¿ 31 ñ« (2 ó ßΓѻѡ¿ 31)-1 (»α¿í½¿º¿Γѽ∞¡«
  413.       «Γ  -2  ñ«  2  í¿½½¿«¡«ó),  ó«º¡¿¬áÑΓ  «Φ¿í¬á  6 »Ñα¿«ñá »α«ú«¡á,
  414.       ÅÑαÑ»«½¡Ñ¡¿Ñ.
  415.  
  416.       Äúαá¡¿τÑ¡¿∩      ù¿ß½«ó«Ñ óδαáªÑ¡¿Ñ, »«ñáóáѼ«Ñ  ó  Σπ¡¬µ¿ε  CLNG
  417.       -----------      ñ«½ª¡«  ¡áσ«ñ¿Γß∩  ó  ºá¬«¡¡«¼ ñ¿á»áº«¡Ñ ñ½¿¡¡δσ
  418.       µÑ½δσ. 
  419.  
  420.       Éẽ¿τ¿∩         ¥Γ«⌐   Σπ¡¬µ¿¿   ¡ÑΓ  ó   í«½∞Θ¿¡ßΓóÑ  ê¡ΓÑα»αÑ-
  421.       --------         ΓáΓ«α¡δσ üÑ⌐ß¿¬«ó, »«ß¬«½∞¬π «¡¿ ¡Ñ »«ññÑনóáεΓ
  422.       ñ½¿¡¡δÑ µÑ½δÑ.
  423.  
  424.          ß¼. ΓᬪѠ CDBL
  425.                     CINT
  426.                     CSNG
  427.                     FIX
  428.                     INT
  429.  
  430.       Åα¿¼Ñα:  print clng(2.0E9),clng(33.4),clng(-121.9),clng(100251.6)
  431.       ------   end
  432.  
  433.                              öπ¡¬µ¿∩ CLOSE
  434.                              -------------
  435.  
  436.       öπ¡¬µ¿∩      CLOSE      ºá¬αδóáÑΓ Σá⌐½ ¿½¿ πßΓα«⌐ßΓó«
  437.       -------
  438.  
  439.       æ¿¡Γá¬ß¿ß    CLOSE[[#]Σá⌐½¡á¼[,[#]Σá⌐½¡á¼]...]
  440.       ---------
  441.  
  442.       çá¼Ñτá¡¿∩        CLOSE  «¬á¡τ¿óáÑΓ   óºá¿¼«ßó∩º∞  ¡«¼Ñαá  Σá⌐½á ¿
  443.       ---------        Σá⌐½á,    πßΓá¡«ó½Ñ¡¡«ú«    ó   «»ÑαáΓ«αÑ   OPEN
  444.       («Γ¬αδΓ∞),  ¿  ºá¬¡τ¿óáÑΓ  óó«ñ/óδó«ñ  ó  φëà Σá⌐½. üπΣÑα Σá⌐½á
  445.       ¡á»«½¡∩ÑΓß∩  ¿,  Ñß½¿ Σá⌐½¡á¼ »αÑñßΓáó½∩ÑΓ Σá⌐½, á ¡Ñ πßΓα«⌐ßΓó«,
  446.       ¬«¼á¡ñ«⌐ DOS CLOSE óδ»«½¡∩ÑΓß∩ ¡á ¡Ñ¼ ñ½∩ «í¡«ó½Ñ¡¿∩ ß»αáó«τ¡¿¬á.
  447.       ò«α«Φá    »α¿óδτ¬á    »Ñα¿«ñ¿τÑ߬¿   ºá¬αδóáΓ∞   Σá⌐½δ,   ¬«Γ«αδe
  448.       ºá»¿ßδóáεΓß∩   »α«úαá¼¼«⌐.   ¥Γ«  ñáÑΓ  πóÑαÑ¡¡«ßΓ∞  ó  Γ«¼,  τΓ«
  449.       ºá»¿ßδóáÑΓß∩  óß∩  ¿¡Σ«α¼áµ¿∩,  á  óσ«ñ φΓ«ú« Σá⌐½á ó ß»αáó«τ¡¿¬Ñ
  450.       «»Ñαᵿ«¡¡«⌐  ß¿ßΓÑ¼δ »αáó¿½∞¡« «í¡«ó½∩ÑΓß∩ ó ß½πτáÑ »«ß½ÑñπεΘÑú«
  451.       ßí«∩   »¿Γá¡¿∩  ¿½¿  ¬á¬«ú«-Γ«  ñαπú«ú«  ºáΓαπñ¡Ñ¡¿∩.  CLOSE  íѺ
  452.       ß»Ñµ¿Σ¿¬áµ¿¿  ¡«¼Ñαá  Σá⌐½á  ºá¬αδóáÑΓ  óßÑ «Γ¬αδΓδÑ πßΓα«⌐ßΓóá ¿
  453.       Σá⌐½δ (Γ« ªÑ ßἫѠñѽáεΓ RESET, END, STOP ¿ RUN).
  454.  
  455.          ß¼.ΓᬪѠEND
  456.                   OPEN
  457.                   STOP
  458.  
  459.       Åα¿¼Ñα:
  460.             '«Γ¬αδΓ∞ Σá⌐½ ¡áº¡áτÑ¡¡δ⌐ »ÑτáΓáεΘѼπ πßΓα«⌐ßΓóπ
  461.             open "lpt1:" as#1
  462.             print#1,"φΓ« ΓÑßΓ"
  463.             close#1
  464.             open "ºá¬αδΓ∞ ö.Ääì" as#1
  465.             open "ºá¬αδΓ∞ ö.äéÇ" as#2
  466.             print#1 "φΓ« ΓÑßΓ"
  467.             print#2 "φΓ« ΓÑßΓ"
  468.             close
  469.             end
  470.  
  471.  
  472.                                  Ä»ÑαáΓ«α CLS
  473.                                  ------------
  474.  
  475.       öπ¡¬µ¿∩    CLS    «τ¿ΘáÑΓ φ¬αá¡
  476.       -------
  477.  
  478.       æ¿¡Γá¬ß¿ß        é  ΓѬßΓ«ó«¼  αѪ¿¼Ñ  CLS «τ¿ΦáÑΓ φ¬αá¡ ñ« µóÑΓá
  479.       ---------        Σ«¡á  ¿  «íÑß»Ñτ¿óáÑΓ »«º¿µ¿«¡¿α«óá¡¿Ñ ¬παß«αá ó
  480.       ¿ßσ«ñ¡«¼ »«½«ªÑ¡¿¿ ó ½Ñó«¼ óÑασ¡Ñ¼ πú½π (α∩ñ 1, ¬«½«¡¬á 1). CLS ó
  481.       úαáΣ¿τÑ߬«¼   αѪ¿¼Ñ   «τ¿ΘáÑΓ   φ¬αá¡  ñ«  Σ«¡«ó«ú«  µóÑΓá.  LPR
  482.       «¬áºδóáÑΓß∩  ó  µÑ¡ΓαÑ  φ¬αá¡á, ½¿í« (160,100), ½¿í« (320,100), ó
  483.       ºáó¿ß¿¼«ßΓ¿  «Γ  Γ«ú«, ∩ó½∩ÑΓß∩ ΓѬπΘ¿⌐ αѪ¿¼ ßαÑñ¡Ñ⌐ ¿½¿ óδß«¬«⌐
  484.       αáºαÑΦáεΘÑ⌐ ß»«ß«í¡«ßΓ¿, ß««ΓóÑΓßΓóÑ¡¡«. 
  485.             àß½¿  πªÑ  íδ½  ¿ß»«½¡Ñ¡  «»ÑαáΓ«α VIEW, CLS «τ¿ΘáÑΓ Γ«½∞¬«
  486.       «íº«α¡«-»α¿Ñ¼¡«Ñ   «¬¡«.   ùΓ«íδ   ßΓÑαÑΓ∞  óÑß∞  φ¬αá¡,  ß¡áτá½á
  487.       ó«ß»«½∞ºπ⌐ΓÑß∞ VIEW íѺ áαúπ¼Ñ¡Γ«ó ñ½∩ ó䬽ετÑ¡¿∩ «íº«α¡«ú« «¬¡á,
  488.       á ºáΓѼ CLS-ñ½∩ «τ¿ßΓ¬¿ φ¬αá¡á.
  489.  
  490.          ß¼. ΓᬪѠ COLOR
  491.                     SCREEN
  492.                     VIEW
  493.  
  494.       Åα¿¼Ñα:
  495.             'cls «τ¿ΘáÑΓ φ¬αá¡ ñ« Σ«¡«ó«ú« µóÑΓá
  496.             print "¥Γ« ΓÑßΓ «»ÑαáΓ«αá CLS"
  497.             input "ìáªáΓ∞ <enter> ñ½∩ «τ¿ßΓ¬¿ φ¬αá¡á...",ÅπßΓ«$
  498.             color 10,1
  499.             cls
  500.             end
  501.  
  502.  
  503.                       Ä»ÑαáΓ«α COLOR (úαáΣ¿τÑ߬¿⌐ αѪ¿¼)
  504.                       ----------------------------------
  505.  
  506.       öπ¡¬µ¿∩   COLOR     πßΓá¡áó½¿óáÑΓ µóÑΓá ñ½∩ úαáΣ¿τÑ߬¿σ «»Ñαᵿ⌐
  507.       -------
  508.  
  509.       æ¿¡Γá¬ß¿ß ä½∩ SCREEN 1:COLOR[ºáñ¡¿⌐ Σ«¡][,(»á½¿Γαá)]
  510.       --------- ä½∩ SCREEN 7,8,9,10:COLOR[»ÑαÑñ¡¿⌐ Σ«¡][,[ºáñ¡¿⌐ Σ«¡]]
  511.  
  512.       çá¼Ñτá¡¿∩        çáñ¡¿⌐   Σ«¡ - φΓ«   µÑ½«Ñ  óδαáªÑ¡¿Ñ  «Γ  0  ñ«
  513.       ---------        63, ß»Ñµ¿Σ¿µ¿απεΘÑÑ µóÑΓ Σ«¡á. Å὿Γαá-φΓ« µÑ½«Ñ
  514.       óδαáªÑ¡¿Ñ  «Γ  0  ñ« 1, «íÑß»Ñτ¿óáεΘÑÑ óδí«α ñóπσµóÑΓ¡«⌐ »á½¿Γαδ.
  515.       ÅÑαÑñ¡¿⌐  Σ«¡  µÑ½«Ñ óδαáªÑ¡¿Ñ «Γ 1 ñ« 15. Çαúπ¼Ñ¡Γδ φΓ«⌐ ¬«¼á¡ñδ
  516.       «»αÑñѽ∩εΓ  Σ«¡«óδ⌐  µóÑΓ  φ¬αá¡á  ¿  »á½¿Γαπ  ¿º τÑΓδαÑσ µóÑΓ«ó,
  517.       ¬«Γ«αδÑ  íπñπΓ ¿ß»«½∞º«óáΓ∞ß∩ ó »«ß½ÑñπεΘ¿σ τÑαΓѪ¡δσ «»ÑαáΓ«αáσ.
  518.       Å«ß½Ñ  Γ«ú«,  ¬á¬ óδ πªÑ «»αÑñѽ¿½¿ »á½¿Γαπ ¿ µóÑΓ Σ«¡á ß »«¼«Θ∞ε
  519.       «»ÑαáΓ«αá  COLOR, µóÑΓ «Γñѽ∞¡δσ «í∞Ñ¬Γ«ó »«»áñáÑΓ »«ñ π»αáó½Ñ¡¿Ñ
  520.       αẽ¿τ¡δσ  ¬«¼á¡ñ  úαáΣ¿¬¿ (CIRCLE,LINE ¿ Γ.ñ.). é αѪ¿¼Ñ óδß«¬«⌐
  521.       αáºαÑΦáεΘÑ⌐   ß»«ß«í¡«ßΓ¿   ¡á   ûóÑΓ¡«¼   âαáΣ¿τÑ߬«¼   Çñá»ΓÑαÑ
  522.       Ññ¿¡ßΓóÑ¡¡δ¼¿   ó«º¼«ª¡δ¼¿   µóÑΓἿ  ∩ó½∩εΓß∩  τÑα¡δ⌐  ¿  íѽδ⌐.
  523.       æ½Ññ«óáΓѽ∞¡«  «»Ñ- αáΓ«α COLOR ¡Ñ ¿¼ÑÑΓ º¡áτÑ¡¿∩ ó φΓ«¼ αѪ¿¼Ñ ¿
  524.       »«»δΓ¬á  Ñú«  ¿ß»«½∞º«óá¡¿∩  »α¿ó«ñ¿Γ ¬ «Φ¿í¬Ñ 5 »Ñα¿«ñá »α«ú«¡á,
  525.       é맮ó ¡Ñºá¬«¡¡«⌐ Σπ¡¬µ¿¿.
  526.  
  527.             SCREEN 1
  528.  
  529.             ö«¡   0-255:Σá¬Γ¿τÑ߬¿  ¿ß»«½∞ºπѼδ⌐  µóÑΓ  Σ«¡á  ÑßΓ∞  Σ«¡
  530.       MOD16. æ½Ññ«óáΓѽ∞¡« Σ«¡ 1 ¿ 16 ñáεΓ «ñ¿¡ ¿ Γ«Γ ªÑ αѺπ½∞ΓáΓ.
  531.             Å὿Γαá 0-255: óδí¿αáÑΓß∩ ºáαá¡ÑÑ «»αÑñѽѡ¡á∩ »á½¿Γαá, ¬á¬
  532.       »«¬áºá¡« ¡á ¡¿ªÑ 
  533.             -----------------------------------------------
  534.                µóÑΓ      »á½¿Γαá  0      »á½¿Γαá  1
  535.             -----------------------------------------------
  536.                 1        ºÑ½Ñ¡δ⌐         µ¿¡¬«óδ⌐
  537.                 2        ¬αáß¡δ⌐         á¡¿½¿¡«óδ⌐
  538.                 3        ¬«α¿τ¡Ñóδ⌐      íѽδ⌐
  539.             -----------------------------------------------
  540.             ùÑΓ¡δ¼¿ τ¿ß½á¼¿ «íÑß»Ñτ¿óáÑΓß∩ óδí«α »á½¿Γαδ 0, á ¡ÑτÑΓ¡δ¼¿
  541.       -»á½¿Γαδ   1   »«  π¼«½τá¡¿ε.  Å὿Γαá  0  ñáÑΓ  óáΦÑ⌐  »α«úαá¼¼Ñ
  542.       ó«º¼«ª¡«ßΓ∞  ß«ºñáóáΓ∞  «í∞ѬΓδ  ó  ºÑ½Ñ¡«¼,  ¬αáß¡«¼, ¬«α¿τ¡Ñó«¼
  543.       µóÑΓáσ.  Å὿Γα«⌐  2  »αÑñ½áúáεΓß∩  µóÑΓá  µ¿¡¬«óδ⌐, á¡¿½¿¡«óδ⌐ ¿
  544.       íѽδ⌐. 
  545.  
  546.             SCREEN 7 ¿ 8
  547.  
  548.             Æ«½∞¬«  EGA(πß«óÑαΦÑ¡ßΓó«óá¡¡δ⌐ úαáΣ¿τÑ߬¿⌐ áñá»ΓÑα): µóÑΓá
  549.       ºáó¿ß∩Γ  «Γ  ΓѬπΘÑ⌐  »á½¿Γαδ. ÅÑαÑñ¡¿⌐ Σ«¡ 1-15: óδí¿αáѼδ⌐ µóÑΓ
  550.       ¿ß»«½∞ºπÑΓß∩  ¬á¬  ñ½∩ ºá»¿ß¿ ½¿ΓÑα, Γᬠ¿ ñ½∩ τÑαΓѪ¡«⌐ úαáΣ¿¬¿.
  551.       çáñ¡¿⌐ Σ«¡ 0-15: óδí¿αáÑΓ µóÑΓ Σ«¡á.
  552.  
  553.             SCREEN 9
  554.  
  555.             ÅÑαÑñ¡¿⌐  Σ«¡  1-15: óδíαá¡¡δ⌐ µóÑΓ ¿ß»«½∞ºπÑΓß∩ ñ½∩ ºá»¿ß¿
  556.       ½¿ΓÑα  ¿  ñ½∩  τÑαΓѪ¡«⌐  úαáΣ¿¬¿. àß½¿ óáΦ EGA ¿¼ÑÑΓ »á¼∩Γ∞ 64è,
  557.       ¼«ª¡«  ¿ß»«½∞º«óáΓ∞  Γ«∞¬«  º¡áτÑ¡¿∩ ¿º ñ¿á»áº«¡á 103. çáñ¡¿⌐ Σ«¡
  558.       0-63: óδí¿αáÑΓß∩ Σ«¡«óδ⌐ µóÑΓ. 
  559.  
  560.             SCREEN 10
  561.  
  562.             ÅÑαÑñ¡¿⌐  Σ«¡ 1-3: óδíαá¡¡δ⌐ µóÑΓ ¿ß»«½∞ºπÑΓß∩ ¿ ñ½∩ ºá»¿ß¿
  563.       ½¿ΓÑα  ¿  ñ½∩  τÑαΓѪ¡«⌐ úαáΣ¿¬¿; 1=τÑα¡δ⌐, 2=¼Ñαµá¡¿Ñ, 3=óδß«¬á∩
  564.       ¿¡Γѡ߿ó¡«ßΓ∞.  ûóÑΓ  »ÑαÑñ¡Ñú«  Σ«¡á  0  »α¿ó«ñ¿Γ ¬ «Φ¿í¬Ñ é맮ó
  565.       ¡Ñºá¬«¡¡«⌐ Σπ¡¬µ¿¿.
  566.             ä½∩  ¿º¼Ñ¡Ñ¡¿∩  áΓα¿íπΓ«ó  π¼«½τá¡¿∩  ¿ß»«½∞ºπ⌐ΓÑ  «»ÑαáΓ«α
  567.       PALETTE:  çáñ¡¿⌐  Σ«¡ 0-8: óδíαá¡¡δ⌐ µóÑΓ ¿ß»«½∞ºπÑΓß∩ ó ¬áτÑßΓóÑ
  568.       Σ«¡á. 
  569.  
  570.       Åα¿¼Ñτá¡¿Ñ:      ç¡áτÑ¡¿Ñ   µóÑΓá   0   ñ½∩  ½εí«⌐  »á½¿Γαδ  ÑßΓ∞
  571.       ----------       µóÑΓ  Σ«¡á, ß»Ñµ¿Σ¿µ¿απѼ«ú« ó φΓ«¼ «»ÑαáΓ«αÑ, á
  572.       µóÑΓ   »ÑαÑñ¡Ñú«  Σ«¡á  »«  π¼«½τá¡¿ε  «»αÑñѽ∩ÑΓß∩  ¼á¬ß¿¼á½∞¡δ¼
  573.       áΓα¿íπΓ«¼. 
  574.  
  575.       Äúαá¡¿τÑ¡¿∩      é  φ¬αá¡Ñ  αѪ¿¼á  2  «»ÑαáΓ«α  COLOR ó«ºóαáΘáÑΓ
  576.       -----------      «Φ¿í¬π   5  »Ñα¿«ñá  »α«ú«¡á,  éδº«ó  ¡Ñºá¬«¡¡«⌐
  577.       Σπ¡¬µ¿¿.
  578.  
  579.       Åα¿¼Ñα:
  580.  
  581.             'φΓá »α«úαá¼¼á ñѼ«¡ßΓα¿απÑΓ «»ÑαáΓ«α COLOR ó úαáΣ¿τÑ߬«¼
  582.             'αѪ¿¼Ñ
  583.             '»ÑαѬ½ετ¿Γ∞ ¡á úαáΣ. αѪ¿¼ ßαÑñ¡Ñ⌐ αáºαÑΦáεΘÑ⌐ ß»«ß«í¡«ßΓ¿
  584.             'πßΓá¡«ó¿Γ∞ »á½¿Γαπ 0
  585.             screen 1
  586.             color .0
  587.             for αáñ¿πß%=1 to 20 'πóѽ¿τ¿Γ∞ αẼÑα «¬απª¡«ßΓ¿
  588.             ¬«½Ñα%=αáñ¿πß%MOD4 'αáßτÑΓ µóÑΓá ¿º«íαáªÑ¡¿∩
  589.             circle (160,100),αáñ¿πß%,¬«½Ñα% '«Γ«íαếΓ∞ «¬απª¡«ßΓ∞
  590.             next αáñ¿πß%
  591.             delay 2
  592.             color .1 '¿º¼Ñ¡¿Γ∞ »á½¿Γαπ
  593.             delay 2
  594.             'πßΓá¡«ó¿Γ∞ »á½¿Γαπ ¿ µóÑΓ Σ«¡á ¿ «τ¿ßΓ¿Γ∞ φ¬αá¡
  595.             color 6,0:cls
  596.             'óδτÑαΓ¿Γ∞ ¬αáß¡πε «¬απª¡«ßΓ∞ ó ßÑαÑñ¿¡Ñ φ¬αá¡á
  597.             circle (160,100),50,2
  598.             delay 2
  599.             end
  600.  
  601.  
  602.                        Ä»ÑαáΓ«α COLOR (ΓѬßΓ«óδ⌐ αѪ¿¼)
  603.                        --------------------------------
  604.  
  605.       öπ¡¬µ¿∩   COLOR    πßΓá¡áó½¿óáÑΓ µóÑΓ ΓѬßΓá
  606.       -------
  607.  
  608.       æ¿¡Γá¬ß¿ß COLOR[»ÑαÑñ¡¿⌐ Σ«¡][,[ºáñ¡¿⌐ Σ«¡][,í«αñεα]]
  609.       ---------
  610.  
  611.       çá¼Ñτá¡¿∩        »ÑαÑñ¡¿⌐ Σ«¡ - φΓ«  µÑ½«Ñ  óδαáªÑ¡¿Ñ   «Γ  0  ñ«
  612.       ---------        31, ß»Ñµ¿Σ¿µ¿απεΘÑÑ µóÑΓ ½¿ΓÑα. çáñ¡¿⌐ Σ«¡ - φΓ«
  613.       µÑ½«Ñ óδαáªÑ¡¿Ñ «Γ 0 ñ« 7,߻ѵ¿Σ¿µ¿απεΘÑÑ µóÑΓ Σ«¡á. ü«αñεα - φΓ«
  614.       µÑ½«Ñ óδαáªÑ¡¿Ñ «Γ 0 ñ« 15, ¬«Γ«α«Ñ «»αÑñѽ∩ÑΓ µóÑΓ í«αñεαá. àß½¿
  615.       ¬á¬«⌐-Γ« ¿º φΓ¿σ »áαá¼ÑΓα«ó ¡áσ«ñ¿Γß∩ ó¡Ñ π¬áºá¡¡«ú« ñ¿á»áº«¡á Γ«
  616.       ó«º¡¿¬áÑΓ «Φ¿í¬á 5 »Ñα¿«ñá »α«ú«¡á, ó맮ó ¡Ñºá¬«¡¡«⌐ Σπ¡¬µ¿¿. ä½∩
  617.       ßΓá¡ñáαΓ¡δσ  ó¿ñÑ«-»½áΓ ûóÑΓá/âαáΣ¿¬¿ ó ß»¿ß«¬ óδí«αá óáΦÑú« Σ«¡á
  618.       óσ«ñ∩Γ: 
  619.             0 τÑα¡δ⌐             8  ßÑαδ⌐
  620.             1 ú«½πí«⌐            9  ßóÑΓ½«-ú«½πí«⌐
  621.             2 ºÑ½Ñ¡δ⌐            10 ßóÑΓ½«-ºÑ½Ñ¡δ⌐
  622.             3 µ¿¡¬«óδ⌐           11 ßóÑΓ½«-µ¿¡¬«óδ⌐
  623.             4 ¬αáß¡δ⌐            12 ßóÑΓ½«-¬αáß¡δ⌐
  624.             5 á¡¿½¿¡«óδ⌐         13 ßóÑΓ½«-á¡¿½¿¡«óδ⌐
  625.             6 ¬«α¿τ¡Ñóδ⌐         14 ªÑ½Γδ⌐
  626.             7 íѽδ⌐              15 íѽδ⌐ óδß«¬«⌐ ¿¡Γѡ߿ó¡«ßΓ¿
  627.             ï¿ΓÑαδ  ¼«úπΓ  ñѽáΓ∞ß∩  ¼ÑαµáεΘ¿¼¿  »«ßαÑñßΓó«¼  πßΓá¡«ó¬¿
  628.       »ÑαÑñ¡Ñú«  Σ«¡á  ó  ªÑ½áѼδ⌐  µóÑΓ  »½εß  16. ìá»α¿¼Ñα, πßΓá¡«ó¬á
  629.       »ÑαÑñ¡Ñú« Σ«¡á 22 (6+16) ñáÑΓ ¼ÑαµáεΘ¿Ñ ¬«α¿τ¡ÑóδÑ ½¿ΓÑαδ. 
  630.             Çñá»ΓÑαδ ¼«¡«σα«¼¡«ú« ¿º«íαáªÑ¡¿∩ ¡Ñ ¼«úπΓ «Γ«íαáªáΓ∞ µóÑΓ,
  631.       »«φΓ«¼π   º¡áτÑ¡¿∩   »ÑαÑñ¡Ñú«  Σ«¡á  ¿¡ΓÑα»αÑΓ¿απεΓß∩  ß½ÑñπεΘ¿¼
  632.       «íαẫ¼:
  633.             0  τÑα¡δ⌐
  634.             1  »«ñτÑનóá¡¿Ñ
  635.             2-7 íѽδ⌐
  636.             8  τÑα¡δ⌐
  637.             9 »«ñτÑનóá¡¿Ñ óδß«¬«⌐ ¿¡Γѡ߿ó¡«ßΓ¿
  638.             10-15 óδß«¬á∩ ¿¡Γѡ߿ó¡«ßΓ∞
  639.             16 τÑα¡δ⌐
  640.             17 »«ñτÑનóá¡¿Ñ τÑα¡δ¼
  641.             18-23 ¼Ñαµá¡¿Ñ
  642.             24 τÑα¡δ⌐
  643.             25 óδß«¬á∩ ¿¡Γѡ߿ó¡«ßΓ∞, »«ñτÑનóá¡¿Ñ, ¼Ñαµá¡¿Ñ
  644.             26-31 óδß«¬á∩ ¿¡Γѡ߿ó¡«ßΓ∞, ¼Ñαµá¡¿Ñ
  645.             ç¡áτÑ¡¿∩ ºáñá¡¡«ú« Σ«¡á «Γ 0 ñ« 6 ñáεΓ τÑα¡δ⌐ Σ«¡. ç¡áτÑ¡¿Ñ
  646.       7 ß««ΓóÑΓßΓóπÑΓ íѽ«¼π Σ«¡π.
  647.  
  648.       Åα¿¼Ñτá¡¿Ñ:      ìá  ½εí«¼ Çñá»ΓÑαÑ ½¿ΓÑαδ ßΓá¡«ó∩Γß∩ ¡Ñó¿ñ¿¼δ¼¿,
  649.       ----------       ¬«úñá »ÑαÑñ¡¿⌐ Σ«¡ αáóÑ¡ ºáñ¡Ñ¼π Σ«¡π.
  650.             ô½πτΦÑ¡¡δ⌐  úαáΣ¿τÑ߬¿⌐  Çñá»ΓÑα ¼«ªÑΓ «Γ«íαáªáΓ∞ 16 µóÑΓ«ó
  651.       ¿º »á½¿Γαδ, ó¬½ετáεΘÑ⌐ ó ßÑí∩ 64 µóÑΓá.
  652.  
  653.       Äúαá¡¿τÑ¡¿∩      »áαá¼ÑΓα  í«αñεαá  ¡Ñ  «¬áºδóáÑΓ  ó½¿∩¡¿∩  ¡á
  654.       -----------      EGA ß π½πτΦÑ¡¡δ¼ ¼«¡¿Γ«α«¼.
  655.  
  656.       Åα¿¼Ñα:
  657.             '¥Γá »α«úαá¼¼á ñѼ«¡ßΓα¿απÑΓ «»ÑαáΓ«α COLOR
  658.             'ó ΓѬßΓ«ó«¼ ¿ úαáΣ¿τÑ߬«¼ αѪ¿¼áσ
  659.             '«Γ«íαếΓ∞ Γáí½¿µπ áΓα¿íπΓ«ó
  660.             for ºáñ¡¿⌐%=0 to 7
  661.              for »ÑαÑñ¡¿⌐%=0 to 15
  662.               color »ÑαÑñ¡¿⌐%,ºáñ¡¿⌐%
  663.               print using "###":ºáñ¡¿⌐%*16+»ÑαÑñ¡¿⌐%
  664.              next »ÑαÑñ¡¿⌐%
  665.              print
  666.             next ºáñ¡¿⌐%
  667.             print
  668.             for ºáñ¡¿⌐%=0 to 7 '«Γ«íαếΓ∞ Γáí½¿µπ óßÑσ áΓα¿íπΓ«ó
  669.              for »ÑαÑñ¡¿⌐%=16 to 31 'ß ¼Ñαµá¡¿Ñ¼
  670.              color »ÑαÑñ¡¿⌐%,ºáñ¡¿⌐%
  671.             print using "###":ºáñ¡¿⌐%*16+»ÑαÑñ¡¿⌐%-16
  672.             next »ÑαÑñ¡¿⌐%
  673.             print
  674.             next ºáñ¡¿⌐%
  675.             end
  676.  
  677.  
  678.                                Ä»ÑαáΓ«α COM(n)
  679.                                ---------------
  680.  
  681.       öπ¡¬µ¿∩     COM(n)    π»αáó½∩ÑΓ    «Γ߽Ѫ¿ó᡿Ѽ    ß«íδΓ¿⌐    ¡á
  682.                             »«ß½Ññ«óáΓѽ∞¡δσ óσ«ñ¡δσ πßΓα«⌐ßΓóáσ.
  683.  
  684.       æ¿¡Γá¬ß¿ß   COM(n){on!off!stop}
  685.       ---------
  686.  
  687.       çá¼Ñτá¡¿∩        n - τ¿ß½«    ¬«¼¼π¡¿¬áµ¿«¡¡δσ    áñá»ΓÑα«ó,
  688.       ---------        »«ñ½ÑªáΘ¿σ  «Γ߽Ѫ¿óá¡¿ε  (1  ¿½¿  2).  Ä»ÑαáΓ«α
  689.       COM(n)    ON   ñáÑΓ   ó«º¼«ª¡«ßΓ∞   «Γ߽Ѫ¿óá¡¿∩   »«ñ»α«úαá¼¼«⌐,
  690.       ß»Ñµ¿Σ¿µ¿α«óá¡¡«⌐ ó »αÑñδñπΘѼ «»ÑαáΓ«αÑ ON COM(n).
  691.             Å«ß½Ñ  COM(n)  ON  Æπαí«-üÑ⌐ß¿¬ «ßπΘÑßΓó½∩ÑΓ »α«óÑα¬π ¼Ñªñπ
  692.       ¿ß»«½¡Ñ¡¿Ñ¼  ¬áªñ«ú«  «»ÑαáΓ«αá  ß  µÑ½∞ε  »α«ß¼«Γαá  »«ßΓπ»½Ñ¡¿∩
  693.       ¬á¬¿σ-½¿í«  ½¿ΓÑα  ¡á  ß»Ñµ¿Σ¿µ¿α¿óá¡¡«Ñ óσ«ñ¡«Ñ πßΓα«⌐ßΓó«. àß½¿
  694.       «í¡áαπª¿óáÑΓß∩,  τΓ«  ΓᬫѠ ß«íδΓ¿Ñ  πªÑ  »α«¿º«Φ½«,  óδºδóáÑΓß∩
  695.       »«ñ»α«úαá¼¼á, ß»Ñµ¿Σ¿µ¿α«óá¡¡á∩ ó «»ÑαáΓ«αÑ ON COM(n).
  696.             àß½¿  COM(n)  ó  αѪ¿¼Ñ OFF, á¬Γ¿ó¡«ßΓ∞ ¡á »«ß½Ññ«óáΓѽ∞¡«¼
  697.       áñá»ΓÑαÑ  n  ¿ú¡«α¿απÑΓß∩. ÄΓ߽Ѫ¿óá¡¿Ñ ¬«¼¼π¡¿¬áµ¿⌐ »αѬαáΘáÑΓß∩
  698.       »«ß½Ñ    «»ÑαáΓ«αá   COM(n)   STOP;   «ñ¡á¬«   ½εíá∩   á¬Γ¿ó¡«ßΓ∞
  699.       ºá»«¼¿¡áÑΓß∩,  Γᬠ τΓ«  ¬«úñá  ¿ß»«½¡∩ÑΓß∩  «»ÑαáΓ«α  COM(n) ON,
  700.       »α«¿ßσ«ñ¿Γ  ¡Ñ¼Ññ½Ñ¡¡δ⌐  ºáσóáΓ  »«ßΓπ»¿óΦÑú«. ä½∩ πóѽ¿τÑ¡¿∩ ¿½¿
  701.       π¼Ñ¡∞ΦÑ¡¿∩ αẼÑαá COM íπΣÑαá ¿ß»«½∞ºπ⌐ΓÑ ¼ÑΓá«»ÑαáΓ«α $COM. 
  702.  
  703.          ß¼. ΓᬪѠ   ON COM(n)
  704.  
  705.       Åα¿¼Ñα:
  706.          'äѼ«¡ßΓα¿απÑΓß∩  «»ÑαáΓ«α  COM(n).  ¥Γá  »α«úαἼᠠ¡Ñ  íπñÑΓ
  707.          '¡¿τÑú« «Γ«íαáªáΓ∞, Ñß½¿ óáΦ áñá»ΓÑα COM1 ¡Ñ »«½πτáÑΓ óó«ñá 
  708.          'ìáßΓα«¿Γ∞ »«ñ»α«úαá¼¼π ñ½∩ «íαáí«Γ¬¿ COM-óó«ñá
  709.             on com(1) gosub Å«½πτ¿Γ∞諼éó«ñ
  710.             'αẼÑßΓ¿Γ∞ ¼áßß¿ó 5è ñ½∩ σαá¡Ñ¡¿∩ óó«ñá
  711.             dim è«¼Å«αΓéó«ñ (5*1024)
  712.             'αẼÑßΓ¿Γ∞   π¬áºáΓѽ∞  ¡á  ß½ÑñπεΘѼ  ¿¼ÑεΘѼß∩  íπΣÑα¡«¼
  713.             '»α«ßΓαá¡ßΓóÑ 
  714.             çáú«½«ó«¬ÅαΓ%=0
  715.             '¿ ß½ÑñπεΘ¿⌐ ñ½∩ »ÑτáΓ¿
  716.             è«¡ÑµÅαΓ%=0
  717.             'ó¬½ετ¿Γ∞ «íαáí«Γ¬π COM-óó«ñá
  718.             com(1) on
  719.             '¡áßΓα«¿Γ∞ íπΣÑα óó«ñá 1è
  720.             $com1 1024
  721.             '«Γ¬αδΓ∞ Σá⌐½«óπε »ÑαѼѡ¡πε,¬á¬ com1
  722.             open
  723.             open "com1" as#1
  724.             print '¡áªáΓ∞ ½εíπε ¬½áó¿Φπ ñ½∩ »αѬαáΘÑ¡¿∩ »α«úαá¼¼δ"
  725.             '»«¬á ¬½áó¿Φá ¡Ñ ¡áªáΓá
  726.             while not instat
  727.             'Ñß½¿ íπΣÑα ¡Ñ »πßΓ
  728.             if è«¡ÑµÅαΓ%<>çáú«½«ó«¬ÅαΓ% then
  729.             '«Γ«íαếΓ∞ óó«ñ
  730.             print "諼-»«αΓ óó«ñ:";諼ūαΓéó«ñ(諡ѵÅαΓ%)
  731.             'Φáú ¬ ß½ÑñπΘѼπ ¼ÑßΓπ ó íπΣÑαÑ
  732.             è«¡ÑµÅαΓ%=諡ѵÅαΓ%+1
  733.             end if
  734.             locate 2.1
  735.             print time$
  736.             wend
  737.             end
  738.             '«íαáí«ΓáΓ∞  ¬«¼-»«αΓ »αÑαδóá¡¿Ñ
  739.             Å«½πτ¿Γ∞諼éó«ñ:
  740.             'τ¿ΓáΓ∞ óó«ñ ¿º è«¼-Å«αΓ íπΣÑαá
  741.             input#1.諼ūαΓéó«ñ(çáú«½«ó«¬ÅαΓ%)
  742.             'π¬áºáΓ∞ ß½ÑñπΘÑÑ íπΣÑα¡«Ñ »α«ßΓαá¡ßΓó«
  743.             çáú«½«ó«¬ÅαΓ%=çáú«½«ó«¬ÅαΓ%+1
  744.             return
  745.             è«¡Ñµéó«ñá:'«¬«¡τ¿Γ∞ ¬«¼-»«αΓ óó«ñ
  746.             print "ä«ßΓ¿ú¡πΓ ¬«¡Ñµ óó«ñá ..."
  747.             end
  748.  
  749.  
  750.                                öπ¡¬µ¿∩ COMMAND$
  751.                                ----------------
  752.  
  753.       öπ¡¬µ¿∩     COMMAND$  ó«ºóαáΘáÑΓ  ¬«¼á¡ñ¡πε ßΓ᫬π, ¿ß»«½∞ºπѼπε
  754.       -------               ñ½∩ ºá»π߬ᠻα«úαá¼¼δ ¿º DOS 
  755.  
  756.       æ¿¡Γá¬ß¿ß   s$=COMMAND$
  757.       ---------
  758.  
  759.       çá¼Ñτá¡¿∩        COMMAND$  ó«ºóαáΘáÑΓ   óßÑ, τΓ«   í佫   ¡áíαá¡«
  760.       ---------        ó    DOS-»«ñ߬ẬÑ,   ó   »α«µÑßßÑ   ó«ºíπªñÑ¡¿∩
  761.       »α«úαá¼¼δ,   ºá  ¿ß¬½ετÑ¡¿Ñ¼  ¿¼Ñ¡¿  ßἫ⌐  »α«úαá¼¼δ  (¡Ñ¬«Γ«αδÑ
  762.       απ¬«ó«ñßΓóá  ßßδ½áεΓß∩  ¡á  φëàΓѬßΓ, ¡áºδóá∩ Ñú« "ΓαÑ⌐½Ññ«¼").
  763.       êß»«½∞ºπ⌐ΓÑ  COMMAND$  ñ½∩ ¡á¬«»½Ñ¡¿∩ áαúπ¼Ñ¡Γ«ó »Ñα¿«ñá »α«ú«¡á,
  764.       Γá¬¿σ  ¬á¬  ¿¼Ñ¡á Σá⌐½«ó ¿ «»µ¿¿ »α«úαá¼¼δ. Éáßß¼«Γα¿¼, ¡á»α¿¼Ñα,
  765.       DOS-¬«¼á¡ñπ:
  766.  
  767.             FASTSORT cust.dta cust.new
  768.  
  769.       úñÑ  FASTSORT  (íδßΓαá∩ ß«αΓ¿α«ó¬á) ÑßΓ∞ ß«ºñá¡¡á∩ Æπαí«-üÑ⌐ß¿¬«¼
  770.       .EXE  »α«úαá¼¼á.  è«úñá  FASTSORT  »«½πτáÑΓ  π»αáó½Ñ¡¿Ñ, COMMAND$
  771.       íπñÑΓ  πñÑনóáΓ∞  óßÑ,  τΓ«  í佫  ¡áíαá¡« ó DOS »«ñ߬ẬѠ»«ß½Ñ
  772.       ¿¼Ñ¡¿  ßἫ⌐  »α«úαá¼¼δ,  Γ.Ñ.  ó  ñá¡¡«¼ ß½πτáÑ ßΓ᫬π "cust.dta
  773.       cust.new".  ùΓ« ñѽáΓ∞ ß φΓ«⌐ ßΓ᫬«⌐ (󫺼«ª¡á αáºí¿ó¬á COMMAND$
  774.       ¡á  Σá⌐½á¿¼∩1  ¿  Σá⌐½á¿¼∩2  ¿ ß«αΓ¿α«ó¬á ß«ñÑন¼«ú« Σá⌐½á¿¼∩1 ó
  775.       ¡«óδ⌐  Σá⌐½  Σá⌐½á¿¼∩2)  «ßΓáÑΓß∩  ñ½∩  αÑΦÑ¡¿∩  ó ß««ΓóÑΓßΓó¿¿ ß
  776.       «»αÑñѽѡ¿Ñ¼ FASTSORT. 
  777.             ä½∩   ΓÑßΓ¿α«óá¡¿∩   »α«úαá¼¼δ,   ó   ¬«Γ«α«⌐  ¿ß»«½∞ºπÑΓß∩
  778.       COMMAND$,  ó  »αÑñѽáσ  Æπαí«-üÑ⌐ß¿¬á,  »α¿¼Ñ¡∩ÑΓß∩  «»µ¿∩ ßΓ᫬¿
  779.       »áαá¼ÑΓα«ó  ¿º  ¼Ñ¡ε  «»µ¿⌐  ñ½∩  πßΓᡫ󬿠ó«ºóαáΘáѼ«⌐ COMMAND$
  780.       ßΓ᫬¿. 
  781.  
  782.       Äúαá¡¿τÑ¡¿∩   îá¬ß¿¼á½∞¡á∩ ñ½¿¡á DOS-¬«¼á¡ñ¡«⌐ ßΓ᫬¿ - 127 ½¿ΓÑα
  783.       -----------
  784.  
  785.       Åα¿¼Ñα:
  786.            '¥Γá »α«úαá¼¼á ñѼ«¡ßΓα¿απÑΓ Σπ¡¬µ¿ε COMMAND$
  787.             print   "Åáαá¼ÑΓα«¼  ¬«¼á¡ñ¡«⌐  ßΓ᫬¿,  »«ñáóáѼ«⌐  ó  φΓπ
  788.             '»α«úαá¼¼π ∩ó½∩εΓß∩ 
  789.             print command$
  790.             è«¼»¿½¿απ⌐ΓÑ  φΓπ  »α«úαá¼¼π  ó »á¼∩Γ∞ ¿ »α«ú«¡∩⌐ΓÑ ñóáªñδ,
  791.       ¬áªñδ⌐ αẠ¼Ñ¡∩∩ óó«ñ »áαá¼ÑΓα«ó ó ¼Ñ¡ε «»µ¿⌐.
  792.  
  793.  
  794.                                Ä»ÑαáΓ«α COMMON
  795.                                ---------------
  796.  
  797.       öπ¡¬µ¿∩     COMMON    ºá∩ó½∩ÑΓ   «ñ¡π   ¿½¿   í«½ÑÑ   »ÑαѼѡ¡δσ,
  798.                             »«ñ½ÑªáΘ¿σ  »«ñáτÑ  ó  ß«Ññ¿¡Ñ¡¡πε µÑ»«τ¬«⌐
  799.                             »α«úαá¼¼π.
  800.  
  801.       æ¿¡Γá¬ß¿ß   COMMON »ÑαѼѡ¡á∩[,»ÑαѼѡ¡á∩]...
  802.       ---------
  803.  
  804.       çá¼Ñτá¡¿∩        ÅÑαѼѡ¡á∩  -  φΓ«   ¼áßß¿ó¡á∩   ¿½¿   ß¬á½∩α¡á∩
  805.       ---------        »ÑαѼѡ¡á∩,    ¬«Γ«αá∩   ñ«½ª¡á   íδΓ∞   ßñѽá¡á
  806.       ñ«ßΓπ»¡«⌐   ß½ÑñπεΘÑ⌐  ß«Ññ¿¡∩Ѽ«⌐  µÑ»«τ¬«⌐  »α«úαá¼¼Ñ.  îáßß¿óδ
  807.       ß»Ñµ¿Σ¿µ¿απ⌐ΓÑ  »«ßαÑñßΓó«¼  ó¬½ετÑ¡¿∩  τ¿ß½á  αẼÑα«ó ó ß¬«í¬áσ
  808.       »«ß½Ñ ¿¼Ñ¡¿ »ÑαѼѡ¡«⌐. Ä»ÑαáΓ«αδ COMMON ¼«úπΓ »«ñáóáΓ∞ß∩ ó ½εí«¼
  809.       ¼ÑßΓÑ   »α«úαá¼¼δ  ¿  ¿σ  ¼«ªÑΓ  íδΓ∞  í«½ÑÑ  «ñ¡«ú«,  ¡«  ñá¡¡á∩
  810.       »ÑαѼѡ¡á∩   ¼«ªÑΓ   »«∩ó½∩Γ∞ß∩   Γ«½∞¬«  «ñ¿¡  αáº.  æ«ó»áñáεΘ¿Ñ
  811.       «»ÑαáΓ«αδ   COMMON  ñ«½ª¡δ  »«∩ó½∩Γ∞ß∩  ó  »α«úαá¼¼Ñ,  ¬  ¬«Γ«α«⌐
  812.       »α¿ó∩ºδóáÑΓß∩  µÑ»«τ¬á.ê¼Ñ¡á »ÑαѼѡ¡δσ, ¿ß»«½∞ºπѼδσ ó «»ÑαáΓ«αÑ
  813.       COMMON  ¡Ñ  ¿¼ÑεΓ  º¡áτÑ¡¿∩,  ¡«  ¿σ ¬«½¿τÑßΓó« ¿ Γ¿» ó᪡δ. àß½¿
  814.       »ÑαѼѡ¡δÑ,  ºá∩ó½Ñ¡¡δÑ  ¬á¬  «íΘ¿Ñ  ó ó«ºíπªñáεΘÑ⌐ »α«úαá¼¼Ñ, ¡Ñ
  815.       ß«ó»áñáεΓ  »«  Γ¿»π  ¿  ¬«½¿τÑßΓóπ ß »ÑαѼѡ¡δ¼¿, ºá∩ó½Ñ¡¡δ¼¿ ¬á¬
  816.       «íΘ¿Ñ  ó  »α¿¡¿¼áεΘÑ⌐  »α«úαá¼¼Ñ,  Γ« úÑ¡Ñα¿απÑΓß∩ «Φ¿í¬á »Ñα¿«ñá
  817.       »α«ú«¡á.
  818.  
  819.       Éẽ¿τ¿∩         Æπαí«-üÑ⌐ß¿¬  ¡Ñ   »«ññÑনóáÑΓ  »áαá¼ÑΓα  CHAIN
  820.       --------         ALL,  «íÑß»Ñτ¿óáѼδ⌐  ê¡ΓÑα»αÑΓáΓ«α¡δ¼ üÑ⌐ß¿¬«¼.
  821.       èáªñπε   »ÑαѼѡ¡πε,   «íΘ¿⌐   ñ«ßΓπ»   ¬  ¬«Γ«α«⌐  ñ«½ª¡δ  ¿¼ÑΓ∞
  822.       ßó∩ºδóáѼδÑ    ó    µÑ»«τ¬π   »α«úαá¼¼δ,   óδ   ñ«½ª¡δ   ºá∩ó½∩Γ∞
  823.       ¡Ñ»«ßαÑñßΓóÑ¡¡«.  Åα¿ ß»Ñµ¿Σ¿µ¿α«óá¡¿¿ ó Æπαí«-üÑ⌐ß¿¬Ñ ó ¬áτÑßΓóÑ
  824.       «íΘÑ⌐   »ÑαѼѡ¡«⌐   ¼áßß¿óá,  ¡Ñ«íσ«ñ¿¼«  ß»Ñµ¿Σ¿µ¿α«óáΓ∞  τ¿ß½«
  825.       ¿º¼ÑαÑ¡¿⌐  φΓ«ú«  ¼áßß¿óá. é ê¡ΓÑα»αÑΓáΓ«α¡«¼ üÑ⌐ß¿¬Ñ ß«ó»áñáεΘ¿Ñ
  826.       COMMON  ¡Ñ ΓαÑíπÑΓß∩, »«ß¬«½∞¬π COMMON ó ¡Ñ¼ ¡Ñ«íσ«ñ¿¼δ Γ«½∞¬« ¿º
  827.       CHAIN,  á  ó¡πΓα¿ CHAIN ó ¡¿σ ¡ÑΓ ¡Ñ«íσ«ñ¿¼«ßΓ¿. æ ñαπú«⌐ ßΓ«α«¡δ
  828.       Æπαí«-üÑ⌐ß¿¬  ΓαÑíπÑΓ, τΓ«íδ »ÑαѼѡ¡δÑ ó ¬áªñ«¼ «»ÑαáΓ«αÑ COMMON
  829.       í뫨  »αáó¿½∞¡«  π»«α∩ñ«τÑ¡δ. äαπú¿¼¿ ß½«óἿ, ¿¼Ñ¡á »ÑαѼѡ¡δσ ó
  830.       ú½áó¡«⌐  »α«úαἼѠ ¿ »α«úαá¼¼Ñ-µÑ»«τ¬Ñ ¼«úπΓ «Γ½¿τáΓ∞ß∩, ¡« Γ¿»δ
  831.       »ÑαѼѡ¡δσ   ñ«½ª¡δ   ß«ó»áñáΓ∞.   Åαáó¿½∞¡δ¼  ∩ó½∩ÑΓß∩  ß½ÑñπΘÑÑ
  832.       π»«ΓαÑí½Ñ¡¿Ñ COMMON : 
  833.             'â½áó¡á∩ »α«úαá¼¼á
  834.             COMMON i%,îáßß¿ó(1),j#
  835.             'ûÑ»¡á∩ »α«úαá¼¼á
  836.             COMMON ûѽ%,äÑ⌐ßΓóîáßß(11),äóΓτ¡#
  837.  
  838.       Äúαá¡¿τÑ¡¿∩      Æπαí«-üÑ⌐ß¿¬ ¡Ñ »«ññÑনóáÑΓ »αÑ«ñ«½ÑóáѼ«Ñ
  839.       -----------      CHAIN ALL COMMON ê¡ΓÑα»αÑΓáΓ«α¡«ú« üÑ⌐ß¿¬á.
  840.  
  841.       Åα¿¼Ñα:
  842.           '¥Γá »α«úαá¼¼á ñѼ«¡ßΓα¿απÑΓ «»ÑαáΓ«α COMMON
  843.             'ùΓ«íδ ¿ß»«½¡¿Γ∞ φΓ¿ »α«úαá¼¼δ óδ»«½¡∩⌐ΓÑ ß½ÑñπΘÑÑ
  844.             '(1) ¬«¼»¿½¿α«óáΓ∞ »Ñαóπε »α«úαá¼¼π ó .EXE-Σá⌐½
  845.             '(2)¬«¼»¿½¿α«óáΓ∞ óΓ«απε »α«úαá¼¼π ó .TBC-Σá⌐½
  846.             '(3) »α¿ DOS »«ñ߬ẬѠ¿ß»«½¡¿Γ∞ »Ñαóπε »α«úαá¼¼π
  847.             'Åα«úαá¼¼á σ«º∩¿¡.諼»¿½¿α«óáΓ∞ φΓπ »α«úαá¼¼π ó .EXE-Σá⌐½
  848.             dim æΓáαδ⌐îáßß¿ó$(1) 'ºá∩ó¿Γ∞ ñóπßΓα«τ¡δ⌐ ¼áßß¿ó
  849.             æΓáαδ⌐îáßß¿ó$(0)="¥Γ« »Ñαóá∩ ßΓα«¬á ¼áßß¿óá"
  850.             æΓáαδ⌐îáßß¿ó$(1)="¥Γ« óΓ«αá∩ ßΓα«¬á ¼áßß¿óá"
  851.             æΓáα«Ñûѽ«Ñ%=12345
  852.             æΓáα«Ñ使¡¡«Ñûѽ«Ñ&=123450000
  853.             æáα«Ñàñ¿¡¿τ¡«⌐Æ«τ¡«ßΓ¿!=12345.12345
  854.             æΓáα«Ñäó«⌐¡«⌐Æ«τ¡«ßΓ¿#=1.0E+300
  855.             '߻ѵ¿Σ¿µ¿α«óáΓ∞  »ÑαѼѡ¡δÑ,  ¬«Γ«αδÑ  ∩ó½∩εΓß∩ «íΘ¿¼¿ ñ½∩
  856.             '»α«úαá¼¼ σ«º∩¿¡ ¿ ß½πúá 
  857.             common æΓáαδ⌐îáßß¿ó(),æΓáα«Ñûѽ«Ñ%,æΓáα«Ñ使¡¡«Ñûѽ«Ñ&,
  858.              æΓáα«Ñäó«⌐¡«⌐Æ«τ¡«ßΓ¿#
  859.             chain "æ½πúá.TBC" 'µÑ»«τ¬á ñ½∩ »α«úαá¼¼δ ß½πúá
  860.             end
  861.             'Åα«úαá¼¼á æ½πúá.諼»¿½¿α«óáΓ∞ φΓπ µÑ»«τ¬π ó .TBC-Σá⌐½
  862.             common ì«óδ⌐îáßß¿ó(),ì«ó«Ñûѽ«Ñ%,ì«ó«Ñ使¡¡«Ñûѽ«Ñ&,ì«ó«Ñ-
  863.              àñ¿¡¿τ¡«⌐Æ«τ¡«ßΓ¿!,ì«ó«Ñäó«⌐¡«⌐Æ«τ¡«ßΓ¿#
  864.             print ì«óδ⌐îáßß¿ó(0)
  865.             print ì«óδ⌐îáßß¿ó(1)
  866.             print ì«ó«Ñûѽ«Ñ%,ì«ó«Ñ使¡¡«Ñûѽ«Ñ&,ì«ó«Ñàñ¿¡¿τ¡«⌐Æ«τ¡«ßΓ¿!,ì«ó«-
  867.              ßΓ¿!,ì«ó«Ñäó«⌐¡«⌐Æ«τ¡«ßΓ¿#
  868.  
  869.                                  öπ¡¬µ¿∩ COS
  870.                                  -----------
  871.  
  872.       öπ¡¬µ¿∩    COS      ó«ºóαáΘáÑΓ Γα¿ú«¡«¼ÑΓα¿τÑ߬¿⌐ ¬«ß¿¡πß
  873.       -------
  874.  
  875.       æ¿¡Γá¬ß¿ß  y=COS(τ¿ß½«ó«Ñ óδαáªÑ¡¿Ñ)
  876.       ---------
  877.  
  878.       çá¼Ñτá¡¿Ñ        ù¿ß½«ó«Ñ  óδαáªÑ¡¿Ñ - φΓ« πú«½, ß»Ñµ¿Σ¿µ¿απѼδ⌐
  879.       ---------        ó   αáñ¿á¡áσ.   ùΓ«íδ  »αÑ«íαẫóáΓ∞  αáñ¿á¡δ  ó
  880.       úαáñπßδ,  π¼¡«ªá⌐ΓÑ  ¡á  180/n.  ä½∩  »αÑ«íαẫóá¡¿∩  úαáñπß«ó  ó
  881.       αáñ¿á¡δ  π¼¡«ªá⌐ΓÑ  ¡á  n/180 (æ¼. «íßπªñÑ¡¿Ñ αáñ¿á¡«ó ó «»¿ßá¡¿¿
  882.       Σπ¡¬µ¿¿ ATN). COS ó«ºóαáΘáÑΓ º¡áτÑ¡¿Ñ ñó«⌐¡«⌐ Γ«τ¡«ßΓ¿. 
  883.  
  884.          æ¼.ΓᬪѠ  ATN
  885.                     SIN
  886.                     TAN
  887.  
  888.       Åα¿¼Ñα:
  889.          pi=atn(1)*4
  890.            for i%=0 to 360 step 45
  891.            print using "è«ß¿¡πß ### úαáñπß«ó=##.##":i%,cos(pi#/180*i%)
  892.          next i%
  893.          end
  894.  
  895.                                  öπ¡¬µ¿∩ CSNG
  896.                                  ------------
  897.  
  898.       öπ¡¬µ¿∩    CSNG      »αÑ«íαáºπÑΓ  τ¿ß½«ó«Ñ  óδαáªÑ¡¿Ñ  ó Ñú«
  899.       -------              φ¬ó¿óá½Ñ¡Γ Ññ¿¡¿τ¡«⌐ Γ«τ¡«ßΓ¿.
  900.  
  901.       æ¿¡Γá¬ß¿ß  y=CSNG(τ¿ß½«ó«Ñ óδαáªÑ¡¿Ñ)
  902.       ---------
  903.  
  904.       çá¼Ñτá¡¿∩        CSNG   »αÑ«íαáºπÑΓ    τ¿ß½«ó«Ñ   óδαáªÑ¡¿Ñ   ¿½¿
  905.       ---------        »ÑαѼѡ¡πε  ó Σ«α¼π ß »½áóáεΘÑ⌐ Γ«τ¬«⌐ Ññ¿¡¿τ¡«⌐
  906.       Γ«τ¡«ßΓ¿. CSNG     «íδτ¡«   ¿ß»«½∞ºπÑΓß∩    ñ½∩    »αÑñ«ΓóαáΘÑ¡¿∩
  907.       »α«¼ÑªπΓ«τ¡«ú« »ÑαÑ»«½¡Ñ¡¿∩ »α¿ «íαáí«Γ¬Ñ µÑ½δσ «»Ñαá¡ñ«ó.
  908.  
  909.          æ¼.ΓᬪѠ  CDBL
  910.                     CINT
  911.                     CLNG
  912.  
  913.       Åα¿¼Ñα:    print csng (&HFFF),csng(12345.1234),csng(&HF000)
  914.  
  915.  
  916.  
  917.                                 öπ¡¬µ¿∩ CSRLIN
  918.                                 --------------
  919.  
  920.       öπ¡¬µ¿∩     CSRLIN    ó«ºóαáΘáÑΓ ΓѬπΘÑÑ »«½«ªÑ¡¿Ñ ¬παß«αá »«
  921.       -------               óÑαΓ¿¬á½¿ (¡«¼Ñα α∩ñá) 
  922.  
  923.       æ¿¡Γá¬ß¿ß   y=csrlin
  924.       ---------
  925.  
  926.       çá¼Ñτá¡¿∩        CSRLIN   ó«ºóαáΘáÑΓ   µÑ½«Ñ   «Γ   1   ñ«    25,
  927.       ---------        »αÑñßΓáó½∩εΘÑÑ  ΓѬπΘÑÑ  »«½«ªÑ¡¿Ñ  »« óÑαΓ¿¬á½¿
  928.       (¡«¼Ñα  α∩ñá)  ¬παß«αá.  ä½∩  ßτ¿Γδóá¡¿∩  ¬παß«α¡«ú« »«½«ªÑ¡¿∩ »«
  929.       ú«α¿º«¡Γ὿ (¡«¼Ñα ¬«½«¡¬¿) ¿ß»«½∞ºπ⌐ΓÑ Σπ¡¬µ¿ε POS. 
  930.             Ä»ÑαáΓ«α«¼  LOCATE  ¬παß«α  »ÑαѼÑΘáÑΓß∩  ó ß»Ñµ¿Σ¿µ¿απѼδÑ
  931.       ßΓα«¬π ¿ ¬«½«¡¬π.
  932.  
  933.          æ¼.ΓᬪѠ LOCATE
  934.                    POS
  935.  
  936.       Åα¿¼Ñα:
  937.            è«½=pos 'ß«σαá¡¿Γ∞ α∩ñ ¬παß«αá
  938.             É∩ñ=csrlin 'ß«σαá¡¿Γ∞ ¬«½«¡¬π ¬παß«αá
  939.             cls
  940.             locate É∩ñ,諽 'ó«ßßΓá¡áó½¿óáÑΓß∩ ¬παß«α¡á∩ »«º¿µ¿∩
  941.             end
  942.  
  943.  
  944.  
  945.                            öπ¡¬µ¿¿ CVI,CVL,CVS,CVD
  946.                            -----------------------
  947.  
  948.       öπ¡¬µ¿¿    CVI,CVL,CVS,CVD    »αÑ«íαáºπεΓ   ßΓα«τ¡δÑ   ñá¡¡δÑ,
  949.                                     ßτ¿ΓδóáѼδÑ ¿º »α«¿ºó«½∞¡δσ Σá⌐½«ó,
  950.                                     ó τ¿ß½«óπε Σ«α¼π.
  951.  
  952.       æ¿¡Γá¬ß¿ß  y%=cvi(2íá⌐Γ«óá∩ ßΓ᫬á)
  953.       ---------  y&=cvl(4 íá⌐Γ«óá∩ ßΓ᫬á)
  954.                  y!=cvs(4 íá⌐Γ«óá∩ ßΓ᫬á)
  955.                  y#=cvd(8 íá⌐Γ«óá∩ ßΓ᫬á)
  956.  
  957.       çá¼Ñτá¡¿∩        CVI »αÑ«íαáºπÑΓ  2-íá⌐Γ«óπε ßΓ᫬π ó µÑ½«Ñ.
  958.       ---------        CVL  »αÑ«íαáºπÑΓ  4-íá⌐Γ«óπε  ßΓ᫬π  ó  ñ½¿¡¡«Ñ
  959.       µÑ½«Ñ.  CVS  »αÑ«íαáºπÑΓ  4-íá⌐Γ«óπε  ßΓ᫬π ó º¡áτÑ¡¿Ñ Ññ¿¡¿τ¡«⌐
  960.       Γ«τ¡«ßΓ¿.  CVD  »αÑ«íαáºπÑΓ  8-íá⌐Γ«óπε ßΓ᫬π ó º¡áτÑ¡¿Ñ ñó«⌐¡«⌐
  961.       Γ«τ¡«ßΓ¿. Åα¿¼Ñ¡¿Γѽ∞¡« ¬ ß»«ß«íπ «íαáí«Γ¬¿ Æπαí«-üÑ⌐ß¿¬«¼ »α«¿º-
  962.       ó«½∞¡δσ Σá⌐½«ó, τ¿ß½«óδÑ º¡áτÑ¡¿∩ ñ«½ª¡δ »ÑαÑñ ¿σ ºá»¿ß∞ε ¡á ñ¿ß¬
  963.       Γαá¡ß½¿α«óáΓ∞ß∩  ó  ßΓ᫬π,  á  »α¿  ßτ¿Γδóá¡¿¿ Σá⌐½á - «íαáΓ¡« ó
  964.       τ¿ß½á.   ìÑ  »πΓá⌐ΓÑ  φΓ¿  Σπ¡¬µ¿¿  (»αÑñ¡áº¡áτÑ¡¡δÑ  Γ«½∞¬«  ñ½∩
  965.       «íαáí«Γ¬¿ »α«¿ºó«½∞¡δσ Σá⌐½«ó ) ß Σπ¡¬µ¿Ñ⌐ VAL, ¬«Γ«αá∩ »α¿¡¿¼áÑΓ
  966.       ßΓ᫬π óα«ñÑ "3.7" ¿ »αÑóαáΘáÑΓ ÑÑ ó τ¿ß½«.
  967.  
  968.          æ¼.ΓᬪѠ MKD$
  969.                    MKI$
  970.                    MKL$
  971.                    MKS$
  972.  
  973.       Åα¿¼Ñα:
  974.            '¥Γá  »α«úαἼᠠ߫ºñáÑΓ Σá⌐½ ñá¡¡δσ »α«¿ºó«½∞¡«ú« ñ«ßΓπ»á ¿
  975.       ºá»¿ßδóáÑΓ  ó ¡Ñú« ¡Ñ¬«Γ«αδÑ ñá¡¡δÑ. çáΓѼ φΓ¿ ñá¡¡δÑ ßτ¿ΓδóáεΓß∩
  976.       «íαáΓ¡«  ß  »αÑ«íαẫó᡿Ѽ  ó  »α¿Ñ¼½Ñ¼πε Σ«α¼π ß ¿ß»«½∞º«ó᡿Ѽ
  977.       «»¿ßá¡¡δσ óδΦÑ Σπ¡¬µ¿⌐ 
  978.            '«Γ¬αδΓ∞ Σá⌐½ »α«¿ºó«½∞¡«ú« ñ«ßΓπ»á
  979.            open "r",#1,"cvsld.dta",18
  980.            field #1,2 as ûѽ«Ñ$,4 as ä½¿¡¡«Ñûѽ«Ñ$,4 as àñ¿¡¿τ¡á∩Æ«τ¡«-
  981.             ßΓ∞$,8 as äó«⌐¡á∩Æ«τ¡«ßΓ∞$
  982.            îá¬ßûѽ«Ñ%=32767
  983.            'ºá»¿ßáΓ∞ ñá¡¡δÑ ó Σá⌐½,»αÑ«íαẫóáΓ∞ ¿σ ¿ ¡áº¡áτ¿Γ∞ ó íπΣÑα
  984.            '»ÑαÑñ ºá»¿ß∞ε ó Σá⌐½ ñá¡¡δσ 
  985.            for i%=1 to 5
  986.             lset ûѽ«Ñ$=mki$(i%)
  987.             lset ä½¿¡¡«Ñûѽ«Ñ$=mkl$(i%+clng(îá¬ßûѽ«Ñ%))
  988.             lset àñ¿¡¿τ¡á∩Æ«τ¡«ßΓ∞$=mks$(csng(i%*csng(îá¬ßûѽ«Ñ%)))
  989.             lset äó«⌐¡á∩Æ«τ¡«ßΓ∞$=mkd$(îá¬ßûѽ«Ñ%^i%)
  990.             put #1,i%
  991.            next i%
  992.            for i%=1 to 5 'ßτ¿ΓáΓ∞ ñá¡¡δÑ ¿º Σá⌐½á
  993.             get #1,i% '«Γ«íαếΓ∞ ¿σ ¡á φ¬αá¡Ñ
  994.             print cvi(ûѽ«Ñ$),cvl(使¡¡«Ñûѽ«Ñ$),cvs(àñ¿¡¿τ¡á∩Æ«τ-
  995.              ¡«ßΓ∞$),cvd(äó«⌐¡á∩Æ«τ¡«ßΓ∞$)
  996.            next i%
  997.            clise#1
  998.            end
  999.