home *** CD-ROM | disk | FTP | other *** search
/ For Beginners & Professional Hackers / cd.iso / docum / tbas.doc / tb56.doc < prev    next >
Encoding:
Text File  |  1990-04-28  |  41.4 KB  |  967 lines
  1.  
  2.                                çá∩ó½Ñ¡¿Ñ LOCATE
  3.                                ----------------
  4.  
  5.       öπ¡¬µ¿∩   LOCATE    »«º¿µ¿«¡¿απÑΓ ¬παß«α ¿/¿½¿ «»αÑñѽ∩ÑΓ Σ«α¼π
  6.       -------             ¬παß«αá. 
  7.  
  8.       æ¿¡Γá¬ß¿ß  LOCATE [αÑñ] [,[¬«½«¡¬á] [,[¬παß«α][,»π߬][,«ßΓá¡«ó]]]
  9.       ---------
  10.  
  11.       çá¼Ñτá¡¿∩        É∩ñ - φΓ« µÑ½«Ñ óδαáªÑ¡¿Ñ, «»αÑñѽ∩εΘÑÑ  ßΓ᫬π
  12.       ---------        φ¬αá¡á,  ó   ¬«Γ«α«⌐  ñ«½ªÑ¡  »«º¿µ¿«¡¿α«óáΓ∞ß∩
  13.       ¬παß«α  (1-25).  è«½«¡¬á  ß»Ñµ¿Σ¿µ¿απÑΓ  ¬«½«¡¬π (1-80). èπαß«α -
  14.       τ¿ß½«ó«Ñ  º¡áτÑ¡¿Ñ,  ¬«Γ«α«Ñ  π»αáó½∩ÑΓ ΓѼ, íπñÑΓ ¿½¿ ¡ÑΓ ¬παß«α
  15.       ó¿ñ¿¼δ¼   (0-«º¡áτáÑΓ   ¡Ñó¿ñ¿¼δ⌐;   1-ó¿ñ¿¼δ⌐).   25-á∩   ßΓ᫬á
  16.       ¡Ññ«ßΓπ»¡á,  Ñß½¿  ¡Ñ óδóÑñÑ¡« ¿º á¬Γ¿ó¡«ú« ß«ßΓ«∩¡¿∩ «Γ«íαáªÑ¡¿Ñ
  17.       Σπ¡- ¬µ¿«¡á½∞¡δ󠬽áó¿Φ (ß¼. « ºá∩ó½Ñ¡¿¿ KEY OFF). 
  18.  
  19.          Åπ߬  ¿  «ßΓá¡«ó  -  φΓ«  µÑ½δÑ  óδαáªÑ¡¿∩,  ¬«Γ«αδÑ π»αáó½∩εΓ
  20.       αẼÑα«¼  ¬παß«αá  ¿  »αÑñßΓáó½∩εΓ ß¬«½∞ ¼¡«ú« ßΓ᫬ ß¬á¡¿α«óá¡¿∩
  21.       íπñÑΓ  ºá¡¿¼áΓ∞  ¬παß«α.  éÑασ¡Ñ⌐  ßΓ᫬«⌐  ß¬á¡¿α«óá¡¿∩ ∩ó½∩ÑΓß∩
  22.       ßΓα«¬á  0;  ¡¿ª¡Ñ⌐ - ßΓ᫬á 7 ñ½∩ µóÑΓ¡δσ/úαáΣ¿τÑ߬¿σ Çñá»ΓÑα«ó ¿
  23.       ßΓ᫬á 13 ñ½∩ ¼«¡«σα«¼¡δσ áñá»ΓÑα«ó.
  24.          LOCATE  ¡á¿í«½ÑÑ τáßΓ« ¿ß»«½∞ºπÑΓß∩ »ÑαÑñ ºá∩ó½Ñ¡¿Ñ¼ PRINT ñ½∩
  25.       π»αáó½Ñ¡¿∩ »α«σ«ªñÑ¡¿Ñ¼ óδó«ñá ¡á φ¬αá¡.
  26.          æ¼. ΓᬪѠ    KEY OFF
  27.          ---------
  28.                        PRINT
  29.  
  30.       Åα¿¼Ñα:  CLS
  31.                CRSLIN ¿ POS
  32.                INPUT "éóÑßΓ¿ ¬««αñ¿¡áΓδ X ¿ Y:", X%, Y%
  33.                '»«º¿µ¿«¡¿α«óáΓ∞ ¬παß«α ¿ ¿º¼Ñ¡¿Γ∞ Ñú« Σ«α¼π
  34.                LOCATE X%,Y%,1,4,5
  35.                PRINT "Hi";
  36.                WHILE NOT INSTAT: WEND  "ªñáΓ∞ ¬½áó¿Φπ
  37.                END   ' ¬«¡Ñµ »α«úαá¼¼δ
  38.  
  39.                                 öôìèûꃠ  LOF
  40.                                 -------------
  41.  
  42.       öπ¡¬µ¿∩     LOF     ó«ºóαáΘáÑΓ ñ½¿¡π Σá⌐½á.
  43.       -------
  44.       æ¿¡Γá¬ß¿ß   y =LOF(Σá⌐½á¡«¼)
  45.       ---------
  46.       çá¼Ñτá¡¿∩        Σá⌐½á¡«¼  -  φΓ«  ¡«¼Ñα, »«ñ ¬«Γ«αδ¼  íδ½ «Γ¬αδΓ
  47.       ---------        Σá⌐½.  LOF  ó«ºóαáΘáÑΓ  ñ½¿¡π π¬áºá¡¡«ú« Σá⌐½á ó
  48.       íá⌐Γáσ.   ä½∩  ¬«¼¼π¡¿¬áµ¿«¡¡δσ  Σá⌐½«ó  LOF  ó«ºóαáΘáÑΓΓ  αẼÑα
  49.       ¡á½¿τ¡«ú« »α«ßΓαá¡ßΓóá ó ¬«¼¼π¡¿¬áµ¿«¡¡«¼ íπΣÑαÑ.
  50.        Åα¿¼Ñα:  OPEN"TB.EXE" FOR BINARY AS#1
  51.                 PRINT "ÉẼÑα Γπαí«-üÑ⌐ß¿¬á αáóÑ¡";LOF(1)
  52.                 CLOSE #1
  53.                 END
  54.  
  55.                            öπ¡¬µ¿∩ LOG, LOG2 ¿ LOG10
  56.                            ------------------------
  57.  
  58.       öπ¡¬µ¿∩    LOG      ó«ºóαáΘáÑΓ ¡áΓπαá½∞¡δ⌐ (ß «ß¡«ó᡿Ѽ Ñ) ½«úá-
  59.       -------             α¿Σ¼;  LOG2  ó«ºóαáΘáÑΓ ½«úáα¿Σ¼ «ß¡«óá¡¿∩ 2;
  60.                           LOG10 - ½«úáα¿Σ¼ «ß¡«óá¡¿∩ 10.
  61.  
  62.       æ¿¡Γá¬ß¿ß       LOG:
  63.       ---------
  64.                       y=LOG (τ¿ß½«ó«Ñ óδαáªÑ¡¿Ñ)
  65.                       LOG2:
  66.                       y=LOG2(τ¿ß½«ó«Ñ óδαáªÑ¡¿Ñ)
  67.                       LOG10:
  68.                       y=LOG10(τ¿ß½«ó«Ñ óδαáªÑ¡¿Ñ)
  69.  
  70.       çá¼Ñτá¡¿∩  LOG   ó«ºóαáΘáÑΓ  ¡áΓπαá½∞¡δ⌐  ½«úáα¿Σ¼  (ß «ß¡«ó᡿Ѽ
  71.       ---------        Ñ, úñÑ  Ñ=2,71828182845904523...)  ßó«Ñú«  áαúπ-
  72.       ¼Ñ¡Γá. àß½¿ τ¿ß½«ó«Ñ óδαáªÑ¡¿Ñ ¼Ñ¡∞ΦÑ  ¿½¿  αáó¡«  0,  φΓ«   ñáÑΓ
  73.       «Φ¿í¬π 5 »Ñα¿«ñá »α«ú«¡á, ó맮ó ¡Ñºá¬«¡¡«⌐  Σπ¡¬µ¿¿.  ìáΓπαá½∞¡δ⌐
  74.       ½«úáα¿Σ¼  x  ÑßΓ∞  »«¬áºáΓѽ∞  ßΓѻѡ¿,  ó  ¬«Γ«απε  ñ«½ª¡«  íδΓ∞
  75.       ó«ºóÑñÑ¡«  «ß¡«óá¡¿Ñ Ñ ñ½∩  »«½πτÑ¡¿∩ º¡áτÑ¡¿∩ x. 
  76.           LOG,LOG2 ¿ LOG10 ó«ºóαáΘáεΓ αѺπ½∞ΓáΓ ñó«⌐¡«⌐ Γ«τ¡«ßΓ¿.
  77.       Åα¿¼Ñα:   FOR I!=1 TO 50 STEP 2.5
  78.       ------    PRINT USING "ìáΓπαá½∞¡δ⌐ ½«úáα¿Σ¼ ##=## : I!, LOG(I!)
  79.                  NEXT I!
  80.                  END        '¬«¡Ñµ »α«úαá¼¼δ
  81.  
  82.                             öπ¡¬µ¿∩ LPOS
  83.                             ------------
  84.  
  85.       öπ¡¬µ¿∩   LPOS   ó«ºóαáΘáÑΓ "¬παß«α¡πε »«º¿µ¿ε" íπΣÑαá »ÑτáΓáεΘÑ-
  86.       -------          ú« πßΓα«⌐ßΓóá.
  87.       
  88.       æ¿¡Γá¬ß¿ß   y=LPOS (»ÑτáΓáεΘÑÑ πßΓα«⌐ßΓó«)
  89.       ---------
  90.  
  91.       çá¼Ñτá¡¿Ñ        ÅÑτáΓáεΘÑÑ πßΓα«⌐ßΓó« - φΓ« µÑ½«Ñ óδαáªÑ¡¿Ñ «Γ 0
  92.       ---------        ñ« 3, «íÑß»Ñτ¿óáεΘÑÑ óδí«α »ÑτáΓáεΘÑú« πßΓα«⌐ßΓ-
  93.       óá ¿º ß½ÑñπεΘÑú« ß»¿ß¬á:
  94.                   0,1          LPT1
  95.                   2            LPT2
  96.                   3            LPT3
  97.  
  98.          LPOS ß««íΘáÑΓ ß¬«½∞¬« ½¿ΓÑα πªÑ »«ß½á¡« ¡á »ÑτáΓáεΘÑÑ πßΓα«⌐ß-
  99.       Γó« ß ¼«¼Ñ¡Γá óδó«ñá »«ß½Ññ¡Ñ⌐ ½¿ΓÑαδ ó«ºóαáΓá ¬áαÑΓ¬¿.
  100.          æ¼. ΓᬪѠ POS
  101.       Åα¿¼Ñα: 
  102.                '¡áº¡áτ¿Γ∞ Φ¿α¿¡π »ÑτáΓáεΘÑú« πßΓα«⌐ßΓóá
  103.                'ñ½∩ ¿¼Ñ¡«óá¡¡δ󠬫¡ßΓá¡Γ
  104.                 %ÿ¿α = 80
  105.                '«Γ«íαếΓ∞ ½¿ΓÑαδ ASCII ¿ αáßΦ¿αÑ¡¡«ú« ASCII
  106.                '¡á φ¬αá¡Ñ ¿ »ÑτáΓáεΘѼ πßΓα«⌐ßΓóÑ.
  107.                 FOR I%=0 TO 255
  108.                 IF (I%>32) THEN
  109.                   PRINT USING "1"; CHRS(I%);
  110.                 END IF
  111.                 '»ÑαÑñó¿¡πΓ∞ß∩ ¡á ß½ÑñπεΘπε ßΓ᫬π, Ñß½¿ ¿¼ÑÑΓ ¼ÑßΓ« 
  112.                 'óδσ«ñ ºá «ΓóÑñÑ¡¡«Ñ »α«ßΓαá¡ßΓó«
  113.                 IF LPOS(0)=%ÿ¿α THEN
  114.                   LPRINT CHRS(13)+CHRS(10)
  115.                 END IF
  116.                 NEXT I%
  117.                 END  ¬«¡Ñµ »α«úαá¼¼δ
  118.  
  119.                   çá∩ó½Ñ¡¿∩ LPRINT, LPRINT USING
  120.                   ------------------------------
  121.  
  122.       öπ¡¬µ¿∩   LPRINT ¿ LPRINT USING »«ßδ½áÑΓ ñá¡¡δÑ ¡á »ÑτáΓáεΘÑÑ πß-
  123.       -------                         Γα«⌐ßΓó«  (LPT1:).
  124.  
  125.       æ¿¡Γá¬ß¿ß    LPRINT [ß»¿ß«¬ óδαáªÑ¡¿⌐ [;] ]
  126.       ---------    LPRINT USING Σ«α¼áΓ ßΓ᫬á; ß»¿ß«¬ óδαáªÑ¡¿⌐
  127.  
  128.       çá¼Ñτá¡¿∩        æ»¿ß«¬ óδαáªÑ¡¿⌐ - φΓ« α∩ñ τ¿ß½«óδσ ¿/¿½¿ ßΓα«τ-
  129.       ---------        ¡δσ óδαáªÑ¡¿⌐ αáºñѽ∩Ѽδσ ºá»∩Γ묨 ½¿í« Γ«τ¬«⌐ ß
  130.       ºá»∩Γ«⌐. ö«α¼áΓ-ßΓ᫬á ß«ñÑαª¿Γ  ¿¡Σ«α¼áµ¿ε « Σ«α¼áΓÑ »ÑτáΓ¿.
  131.          LPRINT ¿  LPRINT  USING  óδ»«½¡∩εΓ  ΓÑ-ªÑ  ñÑ⌐ßΓó¿∩, τΓ« PRINT
  132.       ¿ PRINT USING, ºá ¿ß¬½ετÑ¡¿Ñ¼ Γ«ú«,τΓ« ß»¿ß«¬ óδαáªÑ¡¿⌐ »«ßδ½áÑΓ-
  133.       ß∩  ¡á  »ÑτáΓáεΘÑÑ  πßΓα«⌐ßΓó«, á ¡Ñ ¡á φ¬αá¡.
  134.          Åα¿¼Ñτá¡¿Ñ:  Å«  π¼«½τá¡¿ε  Æπαí«-üÑ⌐ß¿¬  óßΓáó½∩ÑΓ »áαπ ó«ºó-
  135.       αáΓ ¬áαÑΓ¬¿/»«ñáτá  ßΓ᫬¿  »«ß½Ñ  αáß»ÑτáΓ¬¿  ó  «ñ¡«⌐ ßΓα«¬Ñ 80
  136.       ½¿ΓÑα.
  137.          ¥Γá σáαá¬ΓÑα¿ßΓ¿¬á  ¼«ªÑΓ  íδΓ∞  ¿º¼Ñ¡Ñ¡á  ß »«¼«Θ∞ε ºá∩ó½Ñ¡¿∩
  138.       WIDTH (Φ¿α¿¡á).
  139.          æ¼. ΓᬪѠ LPOS
  140.                     PRINT
  141.                     PRINT USING
  142.                     WIDTH
  143.  
  144.       Åα¿¼Ñα:   LPRINT USING"## -φΓ« ¼«Ñ ßτáßΓ½¿ó«Ñ τ¿ß½«"; 7
  145.                 END
  146.  
  147.  
  148.                            çá∩ó½Ñ¡¿Ñ LSET
  149.                            --------------
  150.  
  151.       öπ¡¬µ¿∩   LSET    »ÑαѼÑΘáÑΓ ßα«τ¡δÑ ñá¡¡δÑ ó íπΣÑα »α«¿ºó«½∞¡«ú«   
  152.       -------           Σá⌐½á.
  153.       
  154.       æ¿¡Γá¬ß¿ß   LSET »ÑαѼѡ¡á∩ »«½∩ = ßΓα«τ¡«Ñ óδαáªÑ¡¿Ñ
  155.       ---------
  156.       çá¼Ñτá¡¿∩        LSET ¿ α«ñßΓóÑ¡¡«Ñ Ñ¼π ºá∩ó½Ñ¡¿Ñ RSET »ÑαѼÑΘáεΓ
  157.       ---------        ßΓα«τ¡πε ¿¡Σ«α¼áµ¿ε ó »ÑαѼѡ¡δÑ »«½∩, «»αÑñѽ∩-
  158.       Ñ¼δÑ ¬á¬  »α¿¡áñ½ÑªáΘ¿Ñ  íπΣÑαπ  »α«¿ºó«½∞¡«ú« Σá⌐½á.
  159.          àß½¿ ñ½¿¡á ßΓα«τ¡«ú« óδαáªÑ¡¿∩ ¼Ñ¡∞ΦÑ αẼÑαá »ÑαѼѡ¡«⌐ »«½∩,
  160.       ß»Ñµ¿Σ¿µ¿α«óá¡¡«⌐ ó ºá∩ó½Ñ¡¿¿ FIELD, LSET óδαáó¡¿óáÑΓ Ñú« ó ½Ñóπε
  161.       ßΓ«α«¡π  φΓ«ú« »«½∩, ºá»«½¡∩∩ «ßΓáóΦπεß∩ τáßΓ∞ »α«íѽἿ.
  162.          ¥Γ« «º¡áτáÑΓ, τΓ« »α«íÑ½δ  ñ«íáó½∩εΓß∩  »«ß½Ñ »«ß½Ññ¡Ñ⌐ ½¿ΓÑαδ
  163.       ßΓα«τ¡«ú« óδαáªÑ¡¿∩, ΓᬠτΓ« »«ß½Ñ LSET- ¡áº¡áτÑ¡¿∩ LEN (»ÑαѼѡ-
  164.       ¡«⌐ »«½∩) ßΓá¡«ó¿Γß∩  αáó¡«⌐ Φ¿α¿¡Ñ, «»αÑñѽѡ¡«⌐ ó ß««ΓóÑΓßΓóπε-
  165.       ΘѼ ºá∩ó½Ñ¡¿¿ FIELD.
  166.          RSET «ßπΘÑßΓó½∩ÑΓ óδαáó¡¿óá¡¿Ñ ß »«¼«Θ∞ε »α«íѽ«ó ó»αáó« (»α«-
  167.       íѽδ ñ«íáó½∩εΓß∩ »ÑαÑñ »Ñαó«⌐ ½¿ΓÑα«⌐ ßΓα«τ¡«ú« óδαáªÑ¡¿∩).
  168.          LSET ¿ RSET ¼«úπΓ ΓᬪѠ¿ß»«½∞º«óáΓ∞ß∩ ñ½∩  Σ«α¼áΓ««íαẫóá¡¿∩
  169.       óδó«ñá  ¡á φ¬αá¡ ¿½¿ »ÑτáΓáεΘÑÑ πßΓα«⌐ßΓó«.
  170.       Åα¿¼Ñα:
  171.                 á $=$ (20)
  172.                 RSET a$="Åαáó«Ñ óδαáó¡¿óá¡¿Ñ"
  173.                 PRINT a$
  174.  
  175.          æ¼. ΓᬪѠ FIELD
  176.                     LEN
  177.                     RSET
  178.  
  179.       Åα¿¼Ñα:
  180.        OPEN "LSET.DTA" AS#1 LEN=18      
  181.        'Ä»αÑñѽ¿Γ∞ ¿¼Ñ¡á ¿ αẼÑαδ »«½Ñ⌐ Σá⌐½á
  182.        FIELD1,2 AS öá⌐½ µÑ½ $, 4 AS öá⌐½  ä½¿¡ $, - 4 AS öá⌐½ àñ¿¡ $,_
  183.        & AS öá⌐½ äó«⌐¡ $
  184.        '¡áº¡áτ¿Γ∞ »ÑαѼѡ¡δÑ »«½Ñ⌐ ¿ «ßπΘÑßΓó¿Γ∞ ºá»¿ß∞ ó Σá⌐½ 
  185.        '»α«¿ºó«½∞¡«ú«  ñ«ßΓπ»á
  186.        FOR æτÑΓτ¿¬% =1 TO S
  187.        LSET öá⌐½ ûѽ $=MX1$ (ßτÑΓτ¿¬ %)
  188.        LSET öá⌐½ñ½¿¡$=MXL $(ßτÑΓτ¿¬ %^2)
  189.        LSET öá⌐½tlby$=MXS $(ßτÑΓτ¿¬ %^2.1)
  190.        lset öá⌐½äó«⌐¡$=MXD $ (ßτÑΓτ¿¬ %^4.4)
  191.        PUT 1,ßτÑΓτ¿¬ %
  192.        NEXT ßτÑΓτ¿¬ %
  193.        CLOSE 1      'ºá¬αδΓ Σá⌐½
  194.        END          '¬«¡Ñµ ú½áó¡«⌐ »α«úαá¼¼δ
  195.  
  196.                         çá∩ó½Ñ¡¿Ñ  MEMSET     
  197.                         -----------------
  198.  
  199.       çá∩ó½Ñ¡¿Ñ  MEMSET    ºá∩ó½∩ÑΓ óÑασ¡ÑÑ «úαá¡¿τÑ¡¿Ñ »á¼∩Γ¿
  200.       ---------
  201.  
  202.       æ¿¡Γá¬ß¿ß  MEMSET áñαÑß
  203.       ---------
  204.  
  205.       çá¼Ñτá¡¿Ñ        ÇñαÑß -φΓ« ñ½¿¡¡«Ñ µÑ½«Ñ óδαáªÑ¡¿Ñ, «»αÑñѽ∩εΘÑÑ
  206.       ---------        áíß«½εΓ¡δ⌐ áñαÑß  óÑασ¡Ñ⌐  úαá¡¿µδ »á¼∩Γ¿ Æπαí«-
  207.       üÑ⌐ß¿¬á. ÇñαÑß ñ«½ªÑ¡ íδΓ∞ ¼Ñ¡∞ΦÑ  ¬«½¿τÑßΓóá »á¼∩Γ¿, πßΓá¡«ó½Ñ¡-
  208.       ¡«⌐ ó ß¿ßΓѼÑ. Åαá¬Γ¿τÑ߬¿ áñαÑß «íδτ¡« óδτ¿ß½∩ÑΓß∩ »πΓѼ óδτ¿Γá-
  209.       ¡¿∩  ¡Ñ¬«Γ«α«⌐  ¬«¡ßΓá¡Γδ  ¿º  º¡áτÑ¡¿∩,  ó«ºóαáΘáѼ«ú«  Σπ¡¬µ¿Ñ⌐
  210.       ENDMEN.
  211.          MEMSET ß¬«¡ßΓαπ¿α«óá¡« ñ½∩ πßΓᡫ󬿠«Γñѽ∞¡«⌐ »á¼∩Γ¿ ñ½∩ »«ñ-
  212.       »α«úαá¼¼δ  ¡á  ∩ºδ¬Ñ áßßѼí½Ñαá. àß½¿ Æπαí«-üÑ⌐ß¿¬ ¡Ñ ó ß«ßΓ«∩¡¿¿
  213.       πñ«ó½ÑΓó«α¿Γ∞ ºá»α«ß ó  ß¿½π  ½¿í«  ¡Ñ»«ñσ«ñ∩ΘÑú« áαúπ¼Ñ¡Γá, ½¿í«
  214.       ¡Ññ«ßΓáΓ«τ¡«ßΓ¿  »á¼∩Γ¿, ó«º¡¿¬áÑΓ  «Φ¿í¬á 7 »Ñα¿«ñá »α«ú«¡á, ó¡Ñ
  215.       »á¼∩Γ¿.
  216.          æ¼. ΓᬪѠ ENDMEN
  217.       Åα¿¼Ñα:
  218.        PRINT FRE (-1) '«Γ«íαếΓ∞ ¡á½¿τ¡«Ñ »α«ßΓαá¡ßΓó« ñ½∩ ¼áßß¿óoó
  219.        'σαá¡¿Γ∞ 128 íá⌐Γ«ó ó óÑασ¡Ñ⌐ τáßΓ¿ »á¼∩Γ¿
  220.        MEMSET ENDMEN - &H80
  221.        PRINT FRE (-1)  '«Γ«íαếΓ∞ ¡á½¿τ¡πε »á¼∩Γ∞
  222.        END              '¬«¡Ñµ »α«úαá¼¼δ
  223.  
  224.                             çá∩ó½Ñ¡¿Ñ MID$
  225.                             --------------
  226.  
  227.       öπ¡¬µ¿∩    MID$    ó«ºóαáΘáÑΓ ½¿ΓÑα¡πε ßΓ᫬π.
  228.       -------
  229.       æ¿¡Γá¬ß¿ß  S$=MID$ (ßΓα«τ¡«Ñ óδαáªÑ¡¿Ñ, n[,m] )
  230.       ---------
  231.       çá¼Ñτá¡¿∩        n ¿ m - φΓ«  τ¿ß½«óδÑ  »ÑαѼѡ¡δÑ ¿½¿ óδαáªÑ¡¿∩,
  232.       ---------        ¬«Γ«αδÑ  ¼«úπΓ ½ÑªáΓ∞ ó  ñ¿á»áº«¡Ñ «Γ 1 ñ« 32767
  233.       ¿ «Γ Θ ñ« 32767 ß««ΓóÑΓßΓóÑ¡¡«.
  234.          MID$ ¬á¬ Σπ¡¬µ¿∩, ó«ºóαáΘáÑΓ m-½¿ΓÑα¡πε ßΓ᫬π, ¡áτ¿¡á∩ ß n-«⌐
  235.       ½¿ΓÑαδ ßΓα«τ¡«ú«  óδαáªÑ¡¿∩. àß½¿ m «»π߬áÑΓß∩ ¿½¿ ß»αáóá «Γ n-«⌐
  236.       ½¿ΓÑαδ ßΓα«τ¡«ú« óδαáªÑ¡¿∩ ¼Ñ¡ÑÑ m ½¿ΓÑα, óδñáεΓß∩ «ßΓá½∞¡δÑ  ½¿-
  237.       ΓÑαδ  ßΓα«τ¡«ú«  óδαáªÑ¡¿∩  ó»½«Γ∞  ñ«  n-«⌐ ¿ ó¬½ετá∩ ÑÑ. àß½¿ n
  238.       í«½∞ΦÑ ñ½¿¡δ ßΓα«τ¡«ú« óδαáªÑ¡¿∩, MID$  ó«ºóαáΘáÑΓ ¡π½∞-ßΓ᫬π.
  239.          æ¼. ΓᬪѠ    LEFT$
  240.                        çá∩ó½Ñ¡¿Ñ MID$
  241.                        RIGHT$
  242.       Åα¿¼Ñα:
  243.                  INPUT 'éóÑßΓ¿ ßΓ᫬π:", ÅπßΓá∩ ßΓα$
  244.                  éαѼ.æΓα$ = ÅπßΓá∩ æΓα$
  245.                  PRINT ÅπßΓá∩ æΓα $
  246.                  'αѺÑαó¿α«óáΓ∞ »«α∩ñ«¬ ½¿ΓÑα, ¿ß»«½∞ºπ∩ Σπ¡¬µ¿ε ¿ 
  247.                  'ºá∩ó½Ñ¡¿Ñ  MID$ «ñ¡«óαѼѡ¡«.
  248.                  FOR I% = 1 TO LEN (ÅπßΓá∩ ßΓα%)
  249.                  MIDS (ÅπßΓá∩ æΓα %, I%,1) = MIDS (éαѼ æΓα $,-_
  250.                  (LEN (éαѼ æΓα $)- I%) + 1,1)
  251.                  NEXT I%
  252.                  PRINT ÅπßΓá∩ æΓα%
  253.                  END    '¬«¡Ñµ »α«úαá¼¼δ
  254.  
  255.  
  256.                             çá∩ó½Ñ¡¿Ñ MID$
  257.                             --------------
  258.  
  259.       öπ¡¬µ¿∩   MIDS       ºá¼Ñ¡á ½¿ΓÑαδ ßΓ᫬¿
  260.       -------
  261.  
  262.       æ¿¡Γá¬ß¿ß MID$ (ßΓα«τ¡áá∩ »ÑαѼѡ¡á∩, n[,m] )= ßΓ᫬á-ºá¼Ñ¡á
  263.       ---------
  264.       çá¼Ñτá¡¿Ñ        n  ¿  m - φΓ« τ¿ß½«óδÑ »ÑαѼѡ¡δÑ ¿½¿ óδαáªÑ¡¿∩,
  265.       ---------        ¬«Γ«αδÑ  ¼«úπΓ  ¡áσ«ñ¿Γ∞ß∩  ó  ñ¿á»áº«¡Ñ «Γ 1 ñ«
  266.       32767 ¿ «Γ 0 ñ« 32767,ß««ΓóÑΓßΓóÑ¡¡«.
  267.          èᬠºá∩ó½Ñ¡¿Ñ, MID$ ºá¼Ñ¡∩ÑΓ m ½¿ΓÑα ßΓα«τ¡«⌐ »ÑαѼѡ¡«⌐,  ¡á-
  268.       τ¿¡á∩ ß ½¿ΓÑα¡«⌐ »«º¿µ¿¿ n, ß«ªÑন¼δ¼ ßΓ᫬¿-ºá¼Ñ¡δ.
  269.          àß½¿ m ó¬½ετáÑΓß∩, «¡« «»αÑñѽ∩ÑΓ ß¬«½∞¬«  ½¿ΓÑα ßΓ᫬¿-ºá¼Ñ¡δ
  270.       óßΓáó½∩ÑΓß∩ ó ßΓα«τ¡πε »ÑαѼѡ¡πε.  àß½¿ «»π߬áÑΓß∩, ¿ß»«½∞ºπÑΓß∩
  271.       óß∩  ßΓ᫬á-ºá¼Ñ¡á. MID$ ¡¿¬«úñá ¡Ñ ¿º¼Ñ¡∩ÑΓ ñ½¿¡π ßΓ᫬¿.
  272.          æ¼. ΓᬪѠ   LEFT$
  273.                       öπ¡¬µ¿∩ MID$
  274.                       RIGHT$
  275.       Åα¿¼Ñα:
  276.               'MID$, ºá∩ó½Ñ¡¿Ñ
  277.               ó $ = "ôαáúá¡ èἿ½½á"
  278.               MID$ (ó $,8) = "èáα½á--"  '«»πΘÑ¡ «»µ¿«¡á½∞¡δ⌐ »áαá¼ÑΓα m
  279.               PRINT ó $
  280.  
  281.  
  282.                              çá∩ó½Ñ¡¿Ñ MKDIR
  283.                              ---------------
  284.  
  285.       öπ¡¬µ¿∩   MKDIR ß«ºñáÑΓ ßπíß»αáó«τ¡¿¬ (»«ñ«í¡« DOS-¬«¼á¡ñÑ MKDIR)
  286.       -------
  287.       
  288.       æ¿¡Γá¬ß¿ß MKDIR »α«σ«ñ
  289.       ---------
  290.  
  291.       çá¼Ñτá¡¿∩        Åα«σ«ñ -φΓ« ßΓα«τ¡«Ñ óδαáªÑ¡¿Ñ, «»¿ßδóáεΘÑÑ »«ñ-
  292.       ---------        ½ÑªáΘ¿⌐ ß«ºñá¡¿ε ß»αáó«τ¡¿¬  (ß¼.  ¿¡Σ«α¼áµ¿ε «í
  293.       ¿¼Ñ¡áσ ¿ »α«σ«ñáσ Σá⌐½«ó ó ú½áóÑ 4)
  294.          MKDIR (ñѽáΓ∞ ß»αáó«τ¡¿¬) ß«ºñáÑΓ ßπíß»αáó«τ¡¿¬, ß»Ñµ¿Σ¿µ¿απÑ-
  295.       ¼δ⌐ »α«σ«ñ«¼.  àß½¿  óδ »δΓáÑΓÑß∞ ß«ºñáΓ∞ ß»αáó«τ¡¿¬, ¬«Γ«αδ⌐ πªÑ
  296.       ßπΘÑßΓóπÑΓ, ó«º¡¿¬áÑΓ  «Φ¿í¬á 5 »Ñα¿«ñá »α«ú«¡á, ó맮ó ¡Ñºá¬«¡¡«⌐
  297.       Σπ¡¬µ¿¿.
  298.  
  299.       Åα¿¼Ñα:
  300.           '»«ßΓα«¿Γ∞ «íαáí«Γτ¿¬ «Φ¿í«¬
  301.           ON ERROR GOTO æ»α «Φ¿í¬á
  302.           PRINT "Å«ªá½π⌐ßΓá óóÑñ¿ΓÑ ß»αáó«τ¡¿¬ ¬«Γ«αδ⌐ óá¼ ¡αáó¿Γß∩";
  303.           INPUT "櫺ñáΓ∞:", æ»α ê¼∩ $
  304.           MKDIR æ»α ê¼∩ $   'ß«ºñáΓ∞ ß»αáó«τ¡¿¬
  305.           END                '¬«¡Ñµ »α«úαá¼¼δ
  306.        æ»αÄΦ¿í¬á:
  307.        '---------
  308.           PRINT "髺¡¿¬½á »α«í½Ñ¼á ó ß«ºñá¡¿¿ ß»αáó«τ¡¿¬á"
  309.           END
  310.  
  311.                    
  312.                    öπ¡¬µ¿¿ MKI$, MKL$, MKS$, MKD$
  313.                    ------------------------------
  314.  
  315.       öπ¡¬µ¿∩  MKI$, MKL$, MKS$, MKD$ »αÑ«íαáºπεΓ τ¿ß½«óδÑ ñá¡¡δÑ ó
  316.       -------              ßΓ᫬¿ (ñ½∩ óδó«ñá ó »α«¿ºó«½∞¡δÑ Σá⌐½δ)
  317.       
  318.       æ¿¡Γá¬ß¿ß    S$=MKI$ (µÑ½«Ñ óδαáªÑ¡¿Ñ)
  319.       ---------    S$=MKL$ (ñ½¿¡¡«Ñ µÑ½«Ñ óδαáªÑ¡¿Ñ)
  320.                    S$=MKS$ (óδαáªÑ¡¿Ñ Ññ¿¡¿τ¡«⌐ Γ«τ¡«ßΓ¿)
  321.                    S$=MKD$ (óδαáªÑ¡¿Ñ ñó«⌐¡«⌐ Γ«τ¡«ßΓ¿)
  322.  
  323.       çá¼Ñτá¡¿∩        öπ¡¬µ¿∩  MK (ñѽáΓ∞)  »αÑñßΓáó½∩ÑΓ  ß«í«⌐  τáßΓ∞
  324.       ---------        »α«µÑßßá «íαáí«Γ¬¿ »«½πτÑ¡¿∩ τ¿ß½«óδσ º¡áτÑ¡¿⌐ ó
  325.       Σá⌐½δ »α«¿ºó«½∞¡«ú« ñ«ßΓπ»á. Å«ß¬«½∞¬π ºá∩ó½Ñ¡¿∩, ¬«Γ«αδÑ ºá»¿ßδ-
  326.       óáεΓ ¿¡Σ«α¼áµ¿ε ó íπΣÑα »α«¿ºó«½∞¡«ú« Σá⌐½á (LSET ¿ RSET) αáí«Γá-
  327.       εΓ Γ«½∞¬« ß« ßΓα«¬á¼¿, τ¿ß½«óδÑ  ñá¡¡δÑ  ñ«½ª¡δ  Γαá¡ß½¿α«óáΓ∞ß∩,
  328.       »ÑαÑñ ¿σ «íαáí«Γ¬«⌐ ºá∩ó½Ñ¡¿Ñ¼ PUT ó »α«¿ºó«½∞¡δ⌐  Σá⌐½, ó ßΓα«τ-
  329.       ¡πε Σ«α¼π.  MKI$(i)  ó«ºóαáΘáÑΓ ñóπσ½¿ΓÑα¡πε ßΓ᫬π, ß«ßΓ«∩Θπε ¿º
  330.       ñóπσ í¿Γ«óδσ  º¡áτÑ¡¿⌐, ¬«Γ«αδÑ Æπαí«-üÑ⌐ß¿¬ ¿ß»«½∞ºπÑΓ ñ½∩ ó¡πΓ-
  331.       αÑ¡¡Ñú« »αÑñßΓáó½Ñ¡¿∩  µÑ½«ú« º¡áτÑ¡¿∩ i. öπ¡¬µ¿∩ MKL$ ó«ºóαáΘáÑΓ
  332.       4-íá⌐Γ«óδ⌐ ßΓα«τ¡δ⌐ φ¬ó¿óá½Ñ¡Γ ñ½¿¡¡«ú« µÑ½«ú«.  MKS$  ó«ºóαáΘáÑΓ
  333.       4-íá⌐Γ«óδ⌐ φ¬ó¿óá½Ñ¡Γ º¡áτÑ¡¿∩ Ññ¿¡¿τ¡«⌐ Γ«τ¡«ßΓ¿. MKD$ ó«ºóαáΘá-
  334.       ÑΓ 8-íá⌐Γ«óδ⌐ ßΓα«τ¡δ⌐ φ¬ó¿óá½Ñ¡Γ º¡áτÑ¡¿∩ ñó«⌐¡«⌐ Γ«τ¡«ßΓ¿.  ä«-
  335.       »«½¡¿Γѽ∞¡δÑ Σπ¡¬µ¿¿ CVI, CVL, CVD ¿ß»«½∞ºπεΓß∩, ¬«úñá »α«¿ºó«½∞-
  336.       ¡δÑ  Σá⌐½δ ßτ¿ΓδóáεΓß∩. ìÑ »πΓá⌐ΓÑ φΓ¿ Σπ¡¬µ¿¿ ß STR$ ¿  VAL, ¬«-
  337.       Γ«αδÑ ß««ΓóÑΓßΓóÑ¡¡«  «íαáΘáεΓ τ¿ß½«óδÑ óδαáªÑ¡¿∩ ó αáß»ÑτáΓδóáÑ-
  338.       ¼δÑ Σ«α¼δ ¿ ¡á«í«α«Γ:
  339.        i=123.45
  340.        a$=STR$(i): ó$=MKS$(i)
  341.        'a$ ß«ñÑαª¿Γ τΓ«-Γ«, ßΓ«∩ΘÑÑ αẼÑΘÑ¡¿∩ ¡á φ¬αá¡Ñ;
  342.        'ó$ - ¡Ñ ß«ñÑনΓ
  343.        PRINT a$, ó$
  344.          
  345.          æ¼. ΓᬪѠ   æVD
  346.                       CVI
  347.                       CVL
  348.                       CVS
  349.       
  350.       Åα¿¼Ñα:
  351.               OPEN "MKILSD.DTA" AS#1 LEN=18
  352.               '«»αÑñѽ¿Γ∞ ¿¼Ñ¡á ¿ αẼÑαδ »«½Ñ⌐
  353.               FIELD 1, 2AS Σá⌐½á µÑ½$, 4AS Σá⌐½á ñ½¿¡$,_
  354.               4AS Σá⌐½á Ññ¿¡$,  8AS Σá⌐½á ñó«⌐¡$
  355.              '¡áº¡áτ¿Γ∞ º¡áτÑ¡¿∩ »«½∩¼ ¿ «ßπΘÑßΓó¿Γ∞ ºá»¿ß∞ ó Σá⌐½ 
  356.              '»α«¿ºó«½∞¡«ú« ñ«ßΓπ»á
  357.              FOR ßτÑΓτ¿¬%  = 1TOS
  358.              LSET öá⌐½á ûѽ$= MKI$ (ßτÑΓτ¿¬%)
  359.              LSET öá⌐½á ä½¿¡$= MKL$ (ßτÑΓτ¿¬ %^2)
  360.              LSET öá⌐½á àñ¿¡$=MKS$ (ßτÑΓτ¿¬ %^2.1)
  361.              LSET öá⌐½á àñ¿¡$=MKD$ (ßτÑΓτ¿¬ %^4.4)
  362.              PUT 1, ßτÑΓτ¿¬ %
  363.              NEXT ßτÑΓτ¿¬ %
  364.              CLOSE 1        'ºá¬αδΓ∞ Σá⌐½
  365.              END            '¬«¡Ñµ ú½áó¡«⌐ »α«úαá¼¼δ
  366.  
  367.  
  368.  
  369.                            öπ¡¬µ¿¿ MKMD$,MKMS$
  370.                            -------------------
  371.  
  372.       öπ¡¬µ¿∩  MKMD$  ¿  MKMS$   »αÑ«íαáºπεΓ τ¿ß½«óδÑ ñá¡¡δÑ ó ßΓ᫬¿
  373.       -------                    Σ«α¼áΓá î¿¬α«ß«ΣΓ.
  374.       
  375.       æ¿¡Γá¬ß¿ß       S$=MKMS$ (óδαáªÑ¡¿Ñ Ññ¿¡¿τ¡«⌐ Γ«τ¡«ßΓ¿)
  376.       ----------      S$\MKMD$ (óδαáªÑ¡¿Ñ ñó«⌐¡«⌐ Γ«τ¡«ßΓ¿)
  377.  
  378.       çá¼Ñτá¡¿∩        öπ¡¬µ¿¿ MKM  (ñѽáΓ∞  î¿¬α«ß«ΣΓ)  »αÑñπß¼«ΓαÑ¡δ
  379.       ---------        ½¿Φ∞ ñ½∩ ß«ó¼ÑßΓ¿¼«ßΓ¿  ß ßπΘÑßΓóπεΘ¿¼¿ »α«¿ºó«-
  380.       ½∞¡δ¼¿ Σá⌐½á¼¿, ¬«Γ«αδÑ  ß«ñÑαªáΓ º¡áτÑ¡¿∩  ß  »½áóáεΘÑ⌐ Γ«τ¬«⌐ ó
  381.       Σ«α¼áΓѠα«ß«ΣΓ.
  382.          MKMS$  ß«ºñáÑΓ 4-íá⌐Γ«óπε ßΓ᫬π Σ«α¼áΓá î¿¬α«ß«ΣΓ ¿º º¡áτÑ¡¿∩
  383.       Ññ¿¡¿τ¡«⌐ Γ«τ¡«ßΓ¿; 
  384.          MKMD$ ñѽáÑΓ 8-íá⌐Γ«óπε î¿¬α«ß«ΣΓ - Σ«α¼áΓ¡πε ßΓα«¬π ¿º ºáñá¡-
  385.       ¡«ú« º¡áτÑ¡¿∩ ñó«⌐¡«⌐ Γ«τ¡«ßΓ¿.
  386.  
  387.          æ¼.ΓᬪѠ   CVMD
  388.          --------    CVMS
  389.  
  390.       Åα¿¼Ñα:
  391.                     '«Γ¬αδΓ∞ Σá⌐½ »α«¿ºó«½∞¡«ú« ñ«ßΓπ»á
  392.                     OPEN "CVMD.DTA" AS#1 LEN=12
  393.                     FIELD#1, 4AS àñ¿¡¿τ.$, & AS äó«⌐¡á∩ $
  394.                     îá¬ßûѽ«Ñ% =32767
  395.                     FOR I%=1 TO 5 'ºá»¿ßáΓ∞ ñá¡¡δÑ ó Σá⌐½
  396.                     LSET äó«⌐¡á∩S = MKMD$ (I%+îá¬ßûѽ«Ñ %)
  397.                     PUT#1, I%
  398.                     NEXT I%
  399.                     FOR I% = 1TO 5  'τ¿ΓáΓ∞ ñá¡¡δÑ ¿º Σá⌐½á
  400.                     GET#1, I%       '«Γ«íαếΓ∞ ¡á φ¬αá¡Ñ
  401.                     PRINT CVMS (àñ¿¡¿τ¡á∩$), CVMD (äó«⌐¡á∩ $)
  402.                     NEXT I%
  403.                     CLOSE#1        'ºá¬αδΓ∞ Σá⌐½
  404.                     END            '¬«¡Ñµ »α«úαá¼¼δ
  405.  
  406.  
  407.  
  408.                         öπ¡¬µ¿∩ ¿ ºá∩ó½Ñ¡¿Ñ MTIMER
  409.                         --------------------------
  410.  
  411.       öπ¡¬µ¿∩   MTIMER   ßτ¿ΓδóáÑΓ ¿½¿ »«óΓ«α¡« πßΓá¡áó½¿óáÑΓ 
  412.       -------            ¼¿¬α«Γá⌐¼Ñα.
  413.       
  414.       æ¿¡Γá¬ß¿ß       öπ¡¬µ¿∩:       y=MTIMER
  415.       ---------       çá∩ó½Ñ¡¿Ñ:     MTIMER
  416.  
  417.        çá¼Ñτá¡¿∩       MTIMER ß¬«¡ßΓαπ¿α«óá¡δ  ñ½∩  ¿º¼ÑαÑ¡¿∩ ¿ßΓѬΦÑú«
  418.        ---------       óαѼѡ¿, ú½áó¡δ¼ «íαẫ¼ ñ½∩ «τÑ¡∞ ¬«α«Γ¬¿σ «»Ñ-
  419.        αᵿ⌐.  ¥Γ« ñáÑΓ º¡áτ¿Γѽ∞¡«Ñ π½πτΦÑ¡¿Ñ αáºαÑΦáεΘÑ⌐ ß»«ß«í¡«ßΓ¿;
  420.        «ñ¡á¬« Γ«τ¡«ßΓ∞ αѺ¬« »áñáÑΓ »« ¿ßΓÑτÑ¡¿Ñ 54  ¼¿½½¿ßѬπ¡ñ.
  421.           èᬠΣπ¡¬µ¿∩  MTIMER  ó«ºóαáΘáÑΓ τ¿ß½« ¼¿¬α«ßѬπ¡ñ, ¿ßΓÑ¬Φ¿σ ß
  422.        ¼«¼Ñ¡Γá ßἫú« »«ß½Ññ¡Ñú« ºá∩ó½Ñ¡¿∩ MTIMER.Æ«τ¡«ßΓ∞ MTIMER ½Ñª¿Γ
  423.        ó »αÑñѽáσ »α¿¼Ñα¡« ñóπσ ¼¿¬α«ßѬπ¡ñ.  èᬠºá∩ó½Ñ¡¿Ñ MTIMER »«ó-
  424.        Γ«α¡« πßΓá¡áó½¿óáÑΓ ¼¿¬α«Γá⌐¼Ñα ó ¡«½∞.
  425.  
  426.        Äúαá¡¿τÑ¡¿∩     çá∩ó½Ñ¡¿Ñ  ¿ Σπ¡¬µ¿∩ MTIMER ¿ß»«½∞ºπεΓß∩ ó »áαÑ.
  427.        -----------     éδ ñ«½ª¡δ óδñáΓ∞ ºá∩ó½Ñ¡¿Ñ  MTIMER, á ºáΓѼ óδº-
  428.        óáΓ∞ Σπ¡¬µ¿ε ñ½∩ »«½πτÑ¡¿∩  αѺπ½∞ΓáΓá.  Å«ß½ÑñπεΘ¿Ñ  ßß佬¿  ¡á
  429.        ºΓπ Σπ¡¬µ¿ε íπñπΓ ñáóáΓ∞ º¡áτÑ¡¿Ñ ¡«½∞, Ñß½¿ óδ ó¡«ó∞  ¡Ñ ºá»πß-
  430.        Γ¿½¿ ¼¿¬α«Γá⌐¼Ñα ß »«¼«Θ∞ε ºá∩ó½Ñ¡¿∩ MTIMER. MTIMER ¿ SOUND/PLAY
  431.        ¿ß»«½∞ºπεΓ  ¬á¡á½ 2 Γá⌐¼Ñα¡«ú« Γ¿»á 8255 ¿ ∩¿½∩εΓß∩ óºá¿¼«¿ß¬½ε-
  432.        τáεΘ¿¼¿. Å«φΓ«¼π ¿ß»«½¡Ñ¡¿∩ ºá∩ó½Ñ¡¡«⌐ SOUND ¿½¿ PLAY ¼Ñªñπ  ºá-
  433.        ∩ó½Ñ¡¿∩¼¿  ¿  Σπ¡¬µ¿Ñ⌐ MTIMER óδ¡πñ¿Γ »«óΓ«α¡πε πßΓá¡«ó¬π ¼¿¬α«-
  434.        Γá⌐¼Ñαá ¡á ¡«½∞ ¿ßΓѬΦÑú«  óαѼѡ¿.
  435.  
  436.        Åα¿¼Ñα:
  437.                       'ó«ºíπñ¿Γ∞ Γá⌐¼Ñα
  438.                       MTIMER
  439.                       PI#=ATN(1) * 4     'óδτ¿ß½¿Γ∞ "»¿"
  440.                       '»«½πτ¿Γ∞ º¡áτÑ¡¿Ñ Γá⌐¼Ñαá
  441.                       êßΓѬΦÑÑ éαѼ∩ % = MTIMER
  442.                       PRINT USING "êºαáßσ«ñ«óá¡« #### ¼¿½½¿ßѬπ¡ñ";
  443.                       PRINT "¡á αáßτÑΓ º¡áτÑ¡¿∩ "»¿" "
  444.                       END   '¬«¡Ñµ »α«úαá¼¼δ
  445.  
  446.  
  447.  
  448.                        çá∩ó½Ñ¡¿Ñ NAME
  449.                        --------------
  450.  
  451.       öπ¡¬µ¿∩    NAME      ÄíÑß»Ñτ¿óáÑΓ »ÑαÑ¿¼Ñ¡«óá¡¿Ñ Σá⌐½á
  452.       -------              (»«ñ«í¡« DOS-Σπ¡¬µ¿¿  REN)
  453.  
  454.       æ¿¡Γá¬ß¿ß            NAME Σá⌐½á߻ѵ1AS Σá⌐½á߻ѵ2
  455.       ---------
  456.  
  457.       çá¼Ñτá¡¿∩        öá⌐½á߻ѵ1 ¿ Σá⌐½á߻ѵ2 -φΓ« ßΓα«τ¡δÑ óδαáªÑ¡¿∩,
  458.       ---------        πñ«ó½ÑΓó«α∩εΘ¿Ñ DOS-ß«ú½áΘÑ¡¿∩¼ «í  ¡á¿¼Ñ¡«óá¡¿¿
  459.       »α«σ«ñ«ó ¿ Σá⌐½«ó.  Ä»Ñαᵿ∩  NAME  «íÑß»Ñτ¿óáÑΓ »ÑαÑñáτπ ñá¡¡δσ,
  460.       »αÑñßΓáó½∩εΘ¿σ Σá⌐½ß»Ñµ1,  Σá⌐½π  ß  ¿¼Ñ¡Ñ¼  Σá⌐½ß»Ñµ2.  Æᬠ ¬á¬
  461.       Σá⌐½ß»Ñµ2 ¼«ªÑΓ ß«ñÑαªáΓ∞ ¿¼∩ »α«σ«ñá, ßπΘÑßΓóπÑΓ ó«º¼«ª¡«ßΓ∞ »Ñ-
  462.       αѼÑΘÑ¡¿∩ ñá¡¡δσ ¿º «ñ¡«ú« ß»αáó«τ¡¿¬á ó ñαπú«⌐,  ¡« ñ« ΓÑσ  »«α,
  463.       »«¬á óδ ¡Ñ »δΓáÑΓÑß∞ «ßπΘÑßΓó¿Γ∞ »Ñαѡῼѡ«óá¡¿Ñ ß «ñ¡«ú« ñ¿ß¬á 
  464.       ¡á ñαπú«⌐.
  465.  
  466.       Åα¿¼Ñα:
  467.                  INPUT "éóÑñ¿ΓÑ ¿¼∩ Σá⌐½á ñ½∩ »Ñαѡῼѡ«óá¡¿∩:",
  468.                  æΓáα«Ñ ¿¼∩ $
  469.                  INPUT "éóÑñ¿ΓÑ ¡«ó«Ñ ¿¼∩ Σá⌐½á:", ì«ó«Ñ ¿¼∩ $
  470.                  óδñáεΓß∩ ßΓáα«Ñ ¿¼∩ $, ì«ó«Ñ ¿¼∩ $
  471.                  NAME æΓáα«Ñ ¿¼∩ $ AS ì«ó«Ñ ¿¼∩ $
  472.                  END        ' ¬«¡Ñµ »α«úαá¼¼δ
  473.  
  474.  
  475.  
  476.                        öπ¡¬µ¿∩ OCT$
  477.                        ------------
  478.  
  479.       öπ¡¬µ¿∩   OCT$   ó«ºóαáΘáÑΓ ßΓ᫬π, »αÑñßΓáó½∩εΘπε  ó«ß∞¼Ñα¿τ¡πε
  480.       -------          (ß «ß¡«ó᡿Ѽ 8) Σ«α¼π τ¿ß½«ó«ú« óδαáªÑ¡¿∩.
  481.  
  482.       æ¿¡Γá¬ß¿ß    S$=OCT$ (τ¿ß½«ó«Ñ óδαáªÑ¡¿Ñ)
  483.       ----------
  484.  
  485.       çá¼Ñτá¡¿∩        ù¿ß½«ó«Ñ  óδαáªÑ¡¿Ñ  ¡áσ«ñ¿Γß∩  ó  ñ¿á»áº«¡Ñ  «Γ
  486.       ---------        -32768  ñ«  65535. OCT$ ó«ºóαáΘáÑΓ ßΓ᫬π, »αÑñ-
  487.       ßΓáó½∩εΘπε  ó«ß∞¼Ñα¿τ¡πε Σ«α¼π ßó«Ñú« µÑ½«ú« áαúπ¼Ñ¡Γá. àß½¿ τ¿ß-
  488.       ½«ó«Ñ óδαáªÑ¡¿Ñ ¿¼ÑÑΓ ñα«í¡πε τáßΓ∞,  »ÑαÑñ  »αÑ«íαẫó᡿Ѽ  «¡«
  489.       «¬απú½∩ÑΓß∩. ä½∩ »αÑ«íαẫóá¡¿∩ º¡áτÑ¡¿⌐ ó  ΦÑßΓ¡áñµáΓ¿α¿τ¡δÑ ¿½¿
  490.       ñó«¿τ¡δÑ ßΓ᫬¿ »α¿¼Ñ¡∩⌐ΓÑ Σπ¡¬µ¿¿ HEX$ ¿ BIN$, ß««ΓóÑΓßΓóÑ¡¡«.
  491.  
  492.          æ¼.ΓᬪѠ       BIN$
  493.                          HEX$
  494.  
  495.       Åα¿¼Ñα       PRINT OCT$(-1)
  496.                    PRINT OCT$(65535)
  497.  
  498.  
  499.  
  500.                          çá∩ó½Ñ¡¿Ñ ON COM(n)
  501.                          -------------------
  502.  
  503.       öπ¡¬µ¿∩  ON COM(n)    ºá∩ó½∩ÑΓ  »«ñ»α«úαá¼¼π «Γ߽Ѫ¿óá¡¿∩ ß«íδΓ¿⌐ 
  504.       -------               ¡á »«ß½Ññ«óáΓѽ∞¡«¼ óσ«ñ¡«¼ πßΓα«⌐ßΓóÑ.
  505.  
  506.       æ¿¡Γá¬ß¿ß     ON COM(n) GOSUB ¼ÑΓ¬á
  507.       ---------
  508.       çá¼Ñτá¡¿∩        n-φΓ« ¡«¼Ñα (1 ¿½¿ 2) ¬«¼¼π¡¿¬áµ¿«¡¡«ú« áñá»ΓÑαá
  509.       ---------        (»«ß½Ññ«óáΓѽ∞¡«ú«  óσ«ñ¡«ú« πßΓα«⌐ßΓóá), »«ñ½Ñ-
  510.       ªáΘÑú« ßτ¿Γδóá¡¿ε. îÑΓ¬á  ¿ñÑ¡Γ¿Σ¿µ¿απÑΓ  »«ñ»α«úαá¼¼π «Γ߽Ѫ¿óá-
  511.       ¡¿∩. àß½¿ ¼ÑΓ¬á ÑßΓ∞ ¡«¼Ñα Ä «ß«í«⌐ ßΓ᫬¿, «Γ߽Ѫ¿óá¡¿Ñ ºá»αÑΘá-
  512.       ÑΓß∩.
  513.          çá∩ó½Ñ¡¿Ñ ON COM(n) ¡Ñ «¬áºδóáÑΓ ñÑ⌐ßΓó¿∩ ñ« ΓÑσ »«α, »«¬á ¬«-
  514.       ¼¼π¡¿¬áµ¿«¡¡δÑ ß«íδΓ¿∩ ¡Ñ «¬áºδóáεΓß∩ ñ«ßΓπ»¡δ¼¿ ñá¡¡«¼π »«ß½Ññ«-
  515.       óáΓѽ∞¡«¼π óσ«ñ¡«¼π πßΓα«⌐ßΓóπ, τΓ« «íÑß»Ñτ¿óáÑΓß∩ »«ñσ«ñ∩Θ¿¼ ºá-
  516.       ∩ó½Ñ¡¿Ñ¼ COM ON.  àß½¿  ºá∩ó½Ñ¡¿Ñ  COM ON  «ñ¡áªñδ πªÑ ¿ß»«½¡Ñ¡«,
  517.       »α«óÑα¬á ¿¼ÑÑΓ ¼ÑßΓ« ¼Ñªñπ ¿ß»«½¡Ñ¡¿∩¼¿  ¬áªñ«ú« ß½ÑñπεΘÑú« ºá∩ó-
  518.       ½Ñ¡¿∩ ß µÑ½∞ε πßΓá¡«ó¿Γ∞, ¡Ñ »«ßΓπ»¿½á ½¿  ¬á¬á∩-½¿í«  ½¿ΓÑαá  ¡á
  519.       ß»Ñµ¿Σ¿µ¿α«óá¡¡«Ñ  »«ß½Ññ«óáΓѽ∞¡«Ñ  óσ«ñ¡«Ñ πßΓα«⌐ßΓó«. àß½¿ φΓ«
  520.       »α«¿º«Φ½«, óδ»«½¡∩ÑΓß∩ GOSUB ¬ ¡áº¡áτÑ¡¡«⌐ »«ñ»α«úαá¼¼Ñ.
  521.  
  522.          æ¼. ΓᬪѠ     Åα¿½«ªÑ¡¿Ñ é,"ÄΓ߽Ѫ¿óá¡¿Ñ ß«íδΓ¿⌐"
  523.        
  524.  
  525.                          çá∩ó½Ñ¡¿Ñ ON ERROR
  526.                          ------------------
  527.  
  528.       öπ¡¬µ¿∩   ON ERROR   ß»Ñµ¿Σ¿µ¿απÑΓ ßΓá¡ñáαΓ¡πε »α«úαá¼¼π «íαáí«Γ-
  529.       -------              ¬¿ «Φ¿í«¬ ¿ ó¬½ετáÑΓ «Γ߽Ѫ¿óá¡¿Ñ «Φ¿í«¬.
  530.  
  531.       æ¿¡Γá¬ß¿ß       ON ERROR GOTO ¼ÑΓ¬á
  532.       ---------
  533.  
  534.       çá¼Ñτá¡¿∩        îÑΓ¬á ¿ñÑ¡Γ¿Σ¿µ¿απÑΓ »Ñαóπε ßΓ᫬𠠻«ñ»α«úαá¼¼δ
  535.       ---------        «Γ߽Ѫ¿óá¡¿∩ «Φ¿í«¬. Äñ¡áªñδ ó¬½ετÑ¡¡á∩ «íαáí«Γ-
  536.       ¬á «Φ¿í«¬ ß »«¼«Θ∞ε φΓ«ú« ºá∩ó½Ñ¡¿∩ «íÑß»Ñτ¿óáÑΓ »ÑαÑσ«ñ ¬ óáΦѼπ
  537.       ¬«ñπ  «íαáí«Γ¬¿  «Φ¿í«¬  »α¿  ó«º¡¿¬¡«óÑ¡¿¿  ½εíδσ «Φ¿í«¬ »Ñα¿«ñá
  538.       »α«ú«¡á ó¼ÑßΓ« «íδτ¡«ú« «Γ«íαáªÑ¡¿∩ ß««íΘÑ¡¿∩ «í «Φ¿í¬Ñ ¿ »αѬαá-
  539.       ΘÑ¡¿∩ ¿ß»«½¡Ñ¡¿∩. ä½∩ »α«ñ«½ªÑ¡¿∩ ¿ß»«½¡Ñ¡¿∩  ¿ß»«½∞ºπ⌐ΓÑ ºá∩ó½Ñ-
  540.       ¡¿Ñ RESUME (ó«º«í¡«ó¿Γ∞).
  541.          ùΓ«íδ  ºá»αÑΓ¿Γ∞  «Γ߽Ѫ¿óá¡¿Ñ  «Φ¿í«¬  ¿ß»«½∞ºπ⌐ΓÑ   ON ERROR
  542.       GOTO O. éδ  ¼«ªÑΓÑ  ó«ß»«½∞º«óáΓ∞ß∩  φΓ¿¼ »α¿Ñ¼«¼, Ñß½¿ ó«º¡¿¬áÑΓ
  543.       «Φ¿í¬á,  ñ½∩  ¬«Γ«α«⌐  π  óáß  ¡ÑΓ  «»αÑñѽѡ¡«ú« »α«σ«ñá ¡á ó«ß-
  544.       ßΓá¡«ó½Ñ¡¿Ñ; óδ ΓᬪѠ¼«ªÑΓÑ «ßΓá¡«ó¿Γ∞ ßó«⌐ óδí«α ¡á «Γ«íαáªÑ¡¿¿
  545.       ó φë༫¼Ñ¡Γ ß«ñÑন¼«ú« ERL  (ßΓα«¬á  »«ß½Ññ¡Ñ⌐ «Φ¿í¬¿).
  546.          àß½¿ óδ  »α«ú«¡∩ÑΓÑ  EXE-»α«úαá¼¼π ¿º DOS ß ó䬽ετÑ¡¡δ¼ «Γß½Ñ-
  547.       ª¿ó᡿Ѽ «Φ¿í«¬, ½εíá∩ «Φ¿í¬á »Ñα¿«ñá »α«ú«¡á óδºδóáÑΓ óδñáτπ ß«-
  548.       «íΘÑ¡¿∩  «  ÑÑ  ó«º¡¿¬¡«óÑ¡¿¿ ¿ »αѬαáΘÑ¡¿Ñ ¿ß»«½¡Ñ¡¿∩ »α«úαá¼¼δ.
  549.       æ««íΘÑ¡¿Ñ ¿¼ÑÑΓ Σ«α¼π:
  550.                EROR «Φ¿í¬¿¡«¼ at pgm-ctr = áñαÑß
  551.              («Φ¿í¬á)          (»α¿ »α«úαá¼¼¡«¼ ßτÑΓτ¿¬Ñ)
  552.          àß½¿ »α«úαἼᠺá»πΘÑ¡á ó αἬáσ  Æπαí«-üÑ⌐ß¿¬á  ¿  »α«¿ßσ«ñ¿Γ
  553.       «Φ¿í¬á, óδ  »ÑαÑó«ñ¿ΓÑß∞  ó  αÑñá¬Γ«α ¡á ¼ÑßΓ«»«½«ªÑ¡¿Ñ «Φ¿í¬¿. é
  554.       ßΓα«¬Ñ ß«ßΓ«∩¡¿⌐ íπñÑΓ ß«ñÑαªáΓ∞ß∩ ¬αáΓ¬«Ñ «»¿ßá¡¿Ñ «Φ¿í¬¿ »Ñα¿«-
  555.       ñá »α«ú«¡á:
  556.          ERROR «Φ¿í¬¿¡«¼ : ß««íΘÑ¡¿Ñ «í «Φ¿í¬áσ
  557.          («Φ¿í¬á)
  558.  
  559.          æ¼. ΓᬪѠ   ERADR
  560.                       ERL
  561.                       ERR
  562.                       ERROR
  563.                       RESUME
  564.  
  565.       Åα¿¼Ñα:    '¡áßΓα«¿Γ∞ «íαáí«Γτ¿¬ «Φ¿í«¬
  566.                  ON ERROR GOTO «Φ¿í«¬ «íαáí«Γτ¿¬
  567.                  WHILE I  'φëൿ¬½ «¬á¡τ¿óáÑΓß∩ «Φ¿í¬«⌐
  568.                  I =10/0  'φΓ« óδºδóáÑΓ «Φ¿í¬π »Ñα¿«ñá »α«ú«¡á
  569.                  WEND
  570.                  ÄΦ¿í«¬ «íαáí«Γτ¿¬
  571.                  ------------------
  572.                  PRINT "Äíαáí«Γτ¿¬ ºáσóáΓ¿½ «Φ¿í¬π »Ñα¿«ñá »α«ú«¡á"
  573.                  PRINT ERR, "ó ßΓ᫬Ñ" ERL
  574.                  END
  575.  
  576.  
  577.                            çá∩ó½Ñ¡¿Ñ ON/GOSUB
  578.                            ------------------
  579.  
  580.       öπ¡¬µ¿∩    ON/GOSUB    óδºδóáÑΓ «ñ¡π ¿º ¡Ñ߬«½∞¬¿σ ó«º¼«ª¡δσ »«ñ-
  581.       -------                »α«úαá¼¼  ó ß««ΓóÑΓßΓó¿¿ ß« º¡áτÑ¡¿Ñ¼ τ¿ß-
  582.                              ½«ó«ú« óδαáªÑ¡¿∩.
  583.  
  584.       æ¿¡Γá¬ß¿ß              ON n GOSUB ¼ÑΓ¬á [,¼ÑΓ¬á]....
  585.       ---------
  586.  
  587.       çá¼Ñτá¡¿∩        n - φΓ« τ¿ß½«ó«Ñ óδαáªÑ¡¿Ñ  ó  ñ¿á»áº«¡Ñ «Γ 0 ñ«
  588.       ---------        255, á ¼ÑΓ¬á ¿ñÑ¡Γ¿Σ¿µ¿απÑΓ ºá∩ó½Ñ¡¿Ñ ¡á óÑΓó½Ñ-
  589.       ¡¿Ñ ¬ ¡Ñ⌐. n «»αÑñѽ∩ÑΓ ¬ ¬á¬«⌐  ¿º ¼ÑΓ«¬  «ßπΘÑßΓó½∩ÑΓß∩ »ÑαÑσ«ñ
  590.       (¡á»α¿¼Ñα Ñß½¿ n=4, »«½πτáÑΓ π»αáó½Ñ¡¿Ñ τÑΓóÑαΓá∩ ¼ÑΓ¬á ó ß»¿ß¬Ñ).
  591.       àß½¿ n αáó¡« 0 ¿½¿ í«½∞ΦÑ, τѼ τ¿ß½« ¼ÑΓ«¬ ó ß»¿ß¬Ñ, Æπαí«-üÑ⌐ß¿¬
  592.       »α«ñ«½ªáÑΓ ¿ß»«½¡Ñ¡¿Ñ ß½ÑñπεΘÑú« »« »«α∩ñ¬π ºá∩ó½Ñ¡¿∩.
  593.          èáªñá∩ »«ñ»α«úαá¼¼á ñ«½ª¡á «¬á¡τ¿óáΓ∞ß∩ ¬½ετÑóδ¼ ß½«ó«¼ RETURN
  594.       ñ½∩  «íÑß»ÑτÑ¡¿∩  ó«º«í¡áó½Ñ¡¿∩ ß Γ«ú« ºá∩ó½Ñ¡¿∩, ¬«Γ«α«Ñ ß½ÑñπÑΓ
  595.       ¡Ñ»«ßαÑñßΓóÑ¡¡« ºá ºá∩ó½Ñ¡¿Ñ¼ ON/GOSUB.
  596.          î¡«ú«»πΓÑó«Ñ óÑΓó½Ñ¡¿Ñ ¼«ªÑΓ ΓᬪѠαÑ὿º«óáΓ∞ß∩ ß »«¼«Θ∞ε ºá-
  597.       ∩ó½Ñ¡¿⌐  SELECT  ¿  IF - í½«¬«ó«Ñ, »α¿τѼ  «¡¿  í«½ÑÑ ú¿í¬¿Ñ, τѼ
  598.       ON/GOSUB.
  599.  
  600.       Åα¿¼Ñα:
  601.          FOR I% = 1 TO 3
  602.          ON I% GOSUB «íαáí«Γτ¿¬ «ñ¿¡, «íαáí«Γτ¿¬ ñóá, «íαáí«Γτ¿¬ Γα¿
  603.          NEXT I%
  604.          END     '¬«¡Ñµ ú½áó¡«⌐ »α«úαá¼¼δ
  605.          Äíαáí«Γτ¿¬ «ñ¿¡
  606.          ----------------
  607.          PRINT "Äíαáí«Γτ¿¬ ¡«¼Ñα" , I%
  608.          RETURN
  609.          Äíαáí«Γτ¿¬ ñóá
  610.          ----------------
  611.          PRINT "Äíαáí«Γτ¿¬ ¡«¼Ñα", I%
  612.          RETURN
  613.          Äíαáí«Γτ¿¬ Γα¿
  614.          ---------------
  615.          PRINT "Äíαáí«Γτ¿¬ ¡«¼Ñα", I%
  616.          RETURN
  617.  
  618.  
  619.                         çá∩ó½Ñ¡¿Ñ ON/GOTO
  620.                         -----------------
  621.  
  622.       öπ¡¬µ¿∩    ON/GOTO      ¡á»αáó½∩ÑΓ »α«úαá¼¼¡δ⌐ »«Γ«¬ »« «ñ¡«¼π ¿º
  623.       -------                 ¡Ñ߬«½∞¬¿σ  ó«º¼«ª¡δσ  ¼ÑßΓ ¡áº¡áτÑ¡¿∩ ¡á
  624.                               «ß¡«óÑ º¡áτÑ¡¿∩ τ¿ß½«ó«ú« óδαáªÑ¡¿∩.
  625.  
  626.       æ¿¡Γá¬ß¿ß               ON n GOTO ¼ÑΓ¬á [,¼ÑΓ¬á]....
  627.       ----------
  628.  
  629.       çá¼Ñτá¡¿∩        n - φΓ«  τ¿ß½«ó«Ñ óδαáªÑ¡¿Ñ ó ñ¿á»áº«¡Ñ «Γ  0 ñ«
  630.       ---------        255, á ¼ÑΓ¬á ¿ñÑ¡Γ¿Σ¿µ¿απÑΓ ºá∩ó½Ñ¡¿Ñ  »α«úαá¼¼δ
  631.       ¡á óÑΓó½Ñ¡¿Ñ ¬ ¡Ñ⌐.  n «»αÑñѽ∩ÑΓ ¬ ¬á¬«⌐ ¿º ¼ÑΓ«¬ «ßπΘÑßΓó½∩ÑΓß∩
  632.       »ÑαÑσ«ñ (¡á»α¿¼Ñα, Ñß½¿ n=4 Γ« π»αáó½Ñ¡¿Ñ »«½πτáÑΓ τÑΓóÑαΓá∩ ¼ÑΓ-
  633.       ¬á ó ß»¿ß¬Ñ).
  634.          àß½¿  n αáó¡« ¡π½ε ¿½¿ í«½∞ΦÑ τ¿ß½á ¼ÑΓ«¬ ó ß»¿ß¬Ñ, Æπαí«-üÑ⌐-
  635.       ß¿¬ »α«ñ«½ªáÑΓ ¿ß»«½¡Ñ¡¿Ñ ß½ÑñπεΘÑú« »« »«α∩ñ¬π ºá∩ó½Ñ¡¿∩.
  636.          æ í«½∞ΦÑ⌐ ú¿í¬«ßΓ∞ε ¼¡«ú«»πΓÑó«Ñ óÑΓó½Ñ¡¿Ñ ¼«ªÑΓ íδΓ∞ αÑ὿º«-
  637.       óá¡«  ß »«¼«Θ∞ε ºá∩ó½Ñ¡¿⌐ SELECT ¿ IF-í½«¬«ó«Ñ.
  638.  
  639.       Åα¿¼Ñα:
  640.           FOR I% =1 TO3
  641.           ON I% GOTO «íαáí«Γτ¿¬ «ñ¿¡,«íαáí«Γτ¿¬ ñóá, «íαáí«Γτ¿¬ Γα¿
  642.           ÄíαáΓ¡«:
  643.           NEXT I%
  644.           END     '¬«¡Ñµ ú½áó¡«⌐ »α«úαá¼¼δ
  645.           Äíαáí«Γτ¿¬ «ñ¿¡
  646.           ----------------
  647.           PRINT "Äíαáí«Γτ¿¬ ¡«¼Ñα", I%
  648.           GOTO «íαáΓ¡«:
  649.           Äíαáí«Γτ¿¬ ñóá
  650.           ---------------
  651.           PRINT "Äíαáí«Γτ¿¬ ¡«¼Ñα"
  652.           GOTO ÄíαáΓ¡«:
  653.           Äíαáí«Γτ¿¬ Γα¿
  654.           ----------------
  655.           PRINT "Äíαáí«Γτ¿¬ ¡«¼Ñα", I%
  656.           GOTO ÄíαáΓ¡«
  657.  
  658.  
  659.                         çá∩ó½Ñ¡¿Ñ ON KEY (n)
  660.                         --------------------
  661.  
  662.       öπ¡¬µ¿∩  ON KEY (n)    ºá∩ó½∩ÑΓ »«ñ»α«úαá¼¼π «Γ߽Ѫ¿óá¡¿∩ ß µÑ½∞ε
  663.       -------                »«½πτÑ¡¿∩  Ñú« π»αáó½Ñ¡¿∩, Ñß½¿ ¡áª¿¼áÑΓß∩
  664.                              «ß«íá∩ ¬½áó¿Φá.
  665.  
  666.       æ¿¡Γá¬ß¿ß    ON KEY (n) GJSUB ¼ÑΓ¬á
  667.       ---------
  668.       çá¼Ñτá¡¿∩        îÑΓ¬á ¿ñÑ¡Γ¿Σ¿µ¿απÑΓ »Ñαó«Ñ º¡áτÑ¡¿Ñ »«ñ»α«úαá¼-
  669.       ---------        ¼δ «Γ߽Ѫ¿óá¡¿∩, á n - φΓ« µÑ½«Ñ óδαáªÑ¡¿Ñ ó ñ¿-
  670.       á»áº«¡Ñ «Γ 1 ñ« 20, ¬«Γ«αδ¼  «»¿ßδóáÑΓß∩  »«ñ½ÑªáΘá∩ «Γ߽Ѫ¿óá¡¿ε
  671.       ¬½áó¿Φá ó ß««ΓóÑΓßΓó¿¿ ß« ß½ÑñπεΘÑ⌐ Γáí½¿µÑ⌐.
  672.        ---------------------------------------------------------------
  673.             n                    è½áó¿Φá
  674.        ---------------------------------------------------------------
  675.           1-10        öπ¡¬µ¿«¡á½∞¡δÑ ¬½áó¿Φ¿ F1-F10
  676.            11         èπαß«α óóÑασ
  677.            12         èπαß«α ó½Ñó«
  678.            13         èπαß«α ó»αáó«
  679.            14         èπαß«α ó¡¿º
  680.           15-25       è½áó¿Φ¿, «»αÑñѽ∩ѼδÑ ºá∩ó½Ñ¡¿Ñ¼ KEY
  681.            30         öπ¡¬µ¿«¡á½∞¡á∩ ¬½áó¿Φá F11
  682.            31         öπ¡¬µ¿«¡á½∞¡á∩ ¬½áó¿Φá F12
  683.        -----------------------------------------------------------------
  684.  
  685.          çá∩ó½Ñ¡¿Ñ  ON KEY ¡Ñ ¿¼ÑεΓ ñÑ⌐ßΓó¿∩ ñ« ΓÑσ »«α, »«¬á ¬½áó¿Φ¡δÑ
  686.       ß«íδΓ¿∩  ¡Ñ  αáºαÑΦáεΓß∩ ºá∩ó½Ñ¡¿Ñ¼ KEY ON. àß½¿ ºá∩ó½Ñ¡¿Ñ KEY ON
  687.       «ñ¡áªñδ πªÑ  ¿ß»«½¡Ñ¡«,  Æπαí«-üÑ⌐ß¿¬ «ßπΘÑßΓó½∩ÑΓ »α«óÑα¬π ¼Ñªñπ
  688.       ¿ß»«½¡Ñ¡¿∩¼¿  ¬áªñ«ú«  »«ß½ÑñπεΘÑú« ºá∩ó½Ñ¡¿∩ ß µÑ½∞ε πßΓá¡«ó¿Γ∞,
  689.       ¿¼Ñ½« ½¿ ¼ÑßΓ« ¡áªáΓ¿Ñ ß»Ñµ¿Σ¿µ¿α«óá¡¡«⌐  ¬½áó¿Φ¿.  àß½¿ φΓ« »α«-
  690.       ¿º«Φ½«, Æπαí«-üÑ⌐ß¿¬ óδ»«½¡∩ÑΓ GOSUB ¬ ¡áº¡áτÑ¡¡«⌐ »«ñ»α«úαá¼¼Ñ.
  691.          Åα«óÑα¬á ¬½áó¿Φ¿ n ó䬽ετáÑΓß∩ ºá∩ó½Ñ¡¿Ñ¼ KEY(n) OFF.  êß»«½∞-
  692.       ºπ⌐ΓÑ  ºá∩ó½Ñ¡¿Ñ  KEY ñ½∩ «»αÑñѽѡ¿∩ «Γ߽Ѫ¿óá¡¿∩ ¬½áó¿Φ¿, ¬«Γ«-
  693.       αá∩ ¡Ñ ∩ó½∩ÑΓß∩ Σπ¡¬µ¿«¡á½∞¡«⌐ ¿½¿ ¬½áó¿ΦÑ⌐ π»αáó½Ñ¡¿∩ ¬παß«α«¼.
  694.          ä½∩  óδß«¬«¬áτÑßΓóÑ¡¡«ú« π»αáó½Ñ¡¿∩ úÑ¡Ñα¿α«ó᡿Ѽ  Æπαí«-üÑ⌐-
  695.       ß¿¬«¼ ¬«ñá »α«óÑન ß«íδΓ¿⌐ »«½∞ºπ⌐ΓÑß∞ ¼ÑΓáºá∩ó½Ñ¡¿Ñ¼ $EVENT.
  696.  
  697.          æ¼. ΓᬪѠ       $EVENT
  698.                           KEY (n)
  699.  
  700.       Åα¿¼Ñα:
  701.                    '¥Γá »α«úαá¼¼á ñѼ«¡ßΓα¿απÑΓ ºá∩ó½Ñ¡¿Ñ KEY(n)
  702.                    'ó¬½ετ¿Γ∞ »α«óÑα¬π ¬½áó¿Φ
  703.                    KEY ON
  704.                    '¡áº¡áτ¿Γ∞ ßΓ᫬¿ ñ½∩ ¬½áó¿Θ
  705.                    KEY 1, "ǽ½«" + CHR$(13)
  706.                    KEY 2, "ä«ßó¿ñá¡¿Ñ" + CHR$(13)
  707.                    KEY 10, CHR$ (13)
  708.                    ' ó ñ«»«½¡Ñ¡¿¿ ¬ ¡áº¡áτÑ¡¡«⌐ ñ½∩ φΓ«ú« ßΓ᫬Ñ
  709.                    '»«ßΓα«¿Γ∞ «Γ߽Ѫ¿óá¡¿Ñ ¬½áó¿Φ¿ ñ½∩ F10
  710.                    ON KEY(10) GOSUB ä«ßó¿ñá¡¿Ñ
  711.                    'ó¬½ετ¿Γ∞ «Γ߽Ѫ¿óá¡¿ÑF10
  712.                     KEY(10) ON
  713.                     '»«½πτ¿Γ∞ »«½∞º«óáΓѽ∞߬¿⌐ óó«ñ
  714.                     INPUT "ì᪼¿ΓÑ F1:";ÅπßΓ«$
  715.                     INPUT "ì᪼¿ΓÑ F2:";ÅπßΓ«$
  716.                     PRINT "ÆÑ»Ñα∞ ¡áª¼¿ΓÑ F10...."
  717.                     '¬«úñá »«½∞º«óáΓѽ∞ ¡áª¿¼áÑΓ  ΓÑ»Ñα∞ F10, íπñÑΓ óδ-
  718.                     'ºδóáΓ∞ß∩  »«ñ»α«úαá¼¼á ä«ßó¿ñá¡¿Ñ
  719.                     WHILE NOT INSTAT:WEND 'ªñáΓ∞ ¬½áó¿Φπ F10
  720.                     END    '¬«¡Ñµ »α«úαá¼¼δ
  721.                     ä«ßó¿ñá¡¿Ñ:
  722.                     KEY LIST '»ÑαÑτ¿ß½¿Γ∞ «»αÑñѽѡ¡δÑ ó ñá¡¡δ⌐ ¼«¼Ñ¡Γ 
  723.                     '¬½áó¿Φ¿.
  724.                     KEY(10) OFF 'ó䬽ετ¿Γ∞ «Γ߽Ѫ¿óá¡¿Ñ
  725.                    'ΓÑ»Ñα∞  ¬«úñá »«½∞º«óáΓѽ∞ ¡áª¿¼áÑΓ F10, íπñÑΓ
  726.                    'ó«ß»α«¿ºó«ñ¿Γ∞ß∩ ½¿ΓÑα¡á∩ ßΓ᫬á, ¡áº¡áτÑ¡¡á∩ 
  727.                    '¬½áó¿ΦÑ
  728.                     PRINT "ì᪼¿ΓÑ ΓÑ»Ñα∞ F10 ñ½∩ Γ«ú«, τΓ«íδ »«¬¿¡πΓ∞
  729.                            »α«úαá¼¼π ......"
  730.                     RETURN
  731.  
  732.  
  733.  
  734.                           çá∩ó½Ñ¡¿Ñ ON PEN
  735.                           ----------------
  736.  
  737.       öπ¡¬µ¿∩   ON PEN    ºá∩ó½∩ÑΓ  »«ñ»α«úαá¼¼π  «Γ߽Ѫ¿óá¡¿∩  ß µÑ½∞ε   
  738.       -------             »«½πτÑ¡¿∩ Ñú« π»αáó½Ñ¡¿∩, Ñß½¿  ºáñÑ⌐ßΓóπÑΓß∩
  739.                           ßóÑΓ«ó«Ñ »Ñα«
  740.  
  741.       æ¿¡Γá¬ß¿ß    ON PEN GOSUB ¼ÑΓ¬á
  742.       ---------
  743.       çá¼Ñτá¡¿∩       îÑΓ¬á ¿ñÑ¡Γ¿Σ¿µ¿απÑΓ ¡«ó«Ñ ºá∩ó½Ñ¡¿Ñ »«ñ»α«úαá¼¼δ
  744.       ---------       «íαáí«Γ¬¿  ßóÑΓ«ó«ú«ú«  »Ñαá. çá∩ó½Ñ¡¿Ñ ON PEN ¡Ñ
  745.       ¿¼ÑÑΓ ñÑ⌐ßΓó¿∩ ñ« ΓÑσ »«α, »«¬á  ß«íδΓ¿∩ ßóÑΓ«ó«ú« »Ñαá ¡Ñ αáºαÑ-
  746.       ΦáεΓß∩ ºá∩ó½Ñ¡¿Ñ¼  PEN ON. àß½¿  ºá∩ó½Ñ¡¿Ñ  PEN ON πªÑ ¿ß»«½¡Ñ¡«,
  747.       «ßπΘÑßΓó½∩ÑΓß∩ »α«óÑα¬á ¼Ñªñπ  óßѼ¿ »«ß½ÑñπεΘ¿¼¿  ºá∩ó½Ñ¡¿∩¼¿  ß
  748.       µÑ½∞ε »α«óÑન, í佫 ½¿ ºáñÑ⌐ßΓó«óá¡«  ßóÑΓ«ó«Ñ  »Ñα«.  àß½¿  φΓ«
  749.       Γá¬, óδºδóáÑΓß∩ ¡áº¡áτÑ¡¡á∩ »«ñ»α«úαá¼¼á∩.
  750.          Åα«óÑα¬á ßóÑΓ«ó«ú« »Ñαá ó䬽ετáÑΓß∩ ºá∩ó½Ñ¡¿Ñ¼ PEN OFF.  Å«ß½Ñ
  751.       ºáσóáΓá  ßóÑΓ«ó«ú«  »Ñαá, ß µÑ½∞ε  πñÑαªáΓ∞  «Γ »«óΓ«α¡«ú« ó맮óá
  752.       »«ñ»α«úαá¼¼δ  «Γ߽Ѫ¿óá¡¿∩  ¿º  ¡ÑÑ ßἫ⌐ (¿ »ÑαÑ»«½¡Ñ¡¿Ñ ßΓѬá),
  753.       ¿ß»«½∞ºπÑΓß∩ ¡Ñ∩ó¡«Ñ  ºá∩ó½Ñ¡¿Ñ PEN  STOP.  Åα¿ ºá¬αδΓ¿¿ »«ñ»α«ú-
  754.       αá¼¼δ «íαáí«Γ¬¿ »«ßαÑñßΓó«¼ RETURN áóΓ«¼áΓ¿τÑ߬¿ óδ»«½¡∩ÑΓß∩  PEN
  755.       ON, Ñß½¿ ßΓá¡ñáαΓ¡á∩ »«ñ»α«úαἼᠡѠ ¿ß»«½¡∩ÑΓ  ∩ó¡«Ñ  ºá∩ó½Ñ¡¿Ñ
  756.       PENN OFF.
  757.          ä½∩ í«½ÑÑ ¬áτÑßΓóÑ¡¡«ú« π»αáó½Ñ¡¿∩ úÑ¡Ñα¿α«ó᡿Ѽ Æπαí«-üÑ⌐ß¿-
  758.       ¬«¼  ¬«ñá »α«óÑન ß«íδΓ¿⌐ »«½∞ºπ⌐ΓÑß∞ ¼ÑΓáºá∩ó½Ñ¡¿Ñ¼ $EVENT
  759.          æ¼. ΓᬪѠ $EVENT
  760.                     PEN
  761.  
  762.       Åα¿¼Ñα:
  763.                  ON PEN GOSUB ÅÑαáÄíαáí«Γτ¿¬ 'πßΓá¡«ó¿Γ∞ «íαáí«Γτ¿¬ ß«-
  764.                  'íδΓ¿⌐       
  765.                  PEN ON   'ó¬½ετ¿Γ∞ «Γ߽Ѫ¿óá¡¿Ñ ß«íδΓ¿⌐
  766.                  PRINT "ì᪼¿ΓÑ ñ½∩ «ßΓá¡«óá ½εíπε ¬½áó¿Φπ..."
  767.                  WHILE NOT INSTAT
  768.                  WEND
  769.                  END        '¬«¡Ñµ »α«úαá¼¼δ
  770.  
  771.                  ÅÑαáÄíαáí«Γτ¿¬
  772.                  ---------------
  773.                   FOR I% = 1TO 9
  774.                   PRINT PEN (I%)
  775.                   NEXT 1
  776.                   RETURN
  777.  
  778.  
  779.                          çá∩ó½Ñ¡¿Ñ ON PLAY
  780.                          -----------------
  781.  
  782.       öπ¡¬µ¿∩   ON PLAY   ºá∩ó½∩ÑΓ »«ñ»α«úαá¼¼π  «Γ߽Ѫ¿óá¡¿∩  ß  µÑ½∞ε
  783.       -------             »«½πτÑ¡¿∩ Ñú« π»αáó½Ñ¡¿∩, Ñß½¿  íπΣÑα Σ«¡«ó«⌐
  784.                           ¼πºδ¬¿ ß«ñÑαª¿Γ ¼Ñ¡ÑѠ߻ѵ¿Σ¿µ¿α«óá¡¡«ú« τ¿ß-
  785.                           ½á ¡«Γ.
  786.  
  787.       æ¿¡Γá¬ß¿ß   ON PLAY (¡«ΓßτÑΓτ¿¬) GOSUB ¼ÑΓ¬á.
  788.       ---------
  789.       çá¼Ñτá¡¿∩        ì«ΓßτÑΓτ¿¬ -φΓ« µÑ½«Ñ óδαáªÑ¡¿Ñ, á ¼ÑΓ¬á ¿ñÑ¡Γ¿-
  790.       ---------        Σ¿µ¿απÑΓ »Ñαó«Ñ ºá∩ó½Ñ¡¿Ñ ó »«ñ»α«úαἼѠ¼πºδ¬á-
  791.       ½∞¡«ú« ß«»α«ó«ªñÑ¡¿∩.
  792.          çá∩ó½Ñ¡¿Ñ  ON PLAY ¡Ñ ¿¼ÑÑΓ ñÑ⌐ßΓó¿∩ ñ« ΓÑσ »«α, »«¬á »α«óÑα¬á
  793.       ¡«Γ  ¡Ñ αáºαÑΦáÑΓß∩  ºá∩ó½Ñ¡¿Ñ¼  PLAY ON. àß½¿ PLAY ON πªÑ ¿ß»«½-
  794.       ¡Ñ¡«, Æπαí«-üÑ⌐ß¿¬  «ßπΘÑßΓó½∩ÑΓ »α«óÑα¬π ¼Ñªñπ ¿ß»«½¡Ñ¡¿∩¼¿ ¬áª-
  795.       ñ«ú« »«ß½ÑñπεΘÑú«  ºá∩ó½Ñ¡¿∩  ß µÑ½∞ε  »α«óÑα¿Γ∞ ¡Ñ ¼Ñ¡∞ΦÑ ½¿ «ß-
  796.       ΓὫß∞ ¡«Γ ó ¼πºδ¬á½∞¡«¼ íπΣÑαÑ, τѼ  º¡áτÑ¡¿Ñ  ¡«ΓßτÑΓτ¿¬á. àß½¿
  797.       φΓ« Γá¬, Æπαí«-üÑ⌐ß¿¬ óδ»«½¡∩ÑΓ GOSUB ¬ ¡áº¡áτÑ¡¡«⌐ »«ñ»α«úαá¼¼Ñ.
  798.          Åα«óÑα¬á ¼πºδ¬á½∞¡«ú« íπΣÑαá  ó䬽ετáÑΓß∩ ºá∩ó½Ñ¡¿Ñ¼ PLAY OFF.
  799.       Å«ß½Ñ  ¼πºδ¬á½∞¡«⌐  ½«óπΦ¬¿  ¿ß»«½¡∩ÑΓß∩  ¡Ñ∩ó¡«Ñ  ºá∩ó½Ñ¡¿Ñ PLAY
  800.       STOP ß  µÑ½∞ε  πñÑαªáΓ∞ óδº«ó  »«ñ»α«úαá¼¼δ  «Γ߽Ѫ¿óá¡¿∩ »«óΓ«α-
  801.       ¡« ¿º ¡ÑÑ ßἫ⌐ (¿ ºá»«½¡Ñ¡¿∩ ßΓѬá).  Åα¿  ºá¬αδΓ¿¿ »«ñ»α«úαá¼¼δ
  802.       «íαáí«Γ¬¿ »«ßαÑñßΓó«¼ RETURN áóΓ«¼áΓ¿τÑ߬¿  óδ»«½¡∩ÑΓß∩ ºá∩ó½Ñ¡¿Ñ
  803.       PLAY ON, Ñß½¿ αá¡ÑÑ ó »«ñ»α«úαἼѠ¡Ñ í佫  ¿ß»«½¡Ñ¡« ∩ó¡«Ñ ºá∩ó-
  804.       ½Ñ¡¿Ñ PLAY OFF.
  805.          æ«íδΓ¿Ñ  PLAY  ¡Ñ  «Γ߽Ѫ¿óáÑΓß∩, Ñß½¿  »α¿ ¿ß»«½¡Ñ¡¿¿ PlAY ON
  806.       íπΣÑα πªÑ »πßΓ. ä½∩ π»αáó½Ñ¡¿∩ úÑ¡Ñα¿α«ó᡿Ѽ ¬«ñá »α«óÑન ß«íδ-
  807.       Γ¿⌐ »«½∞ºπ⌐ΓÑß∞ ¼ÑΓáºá∩ó½Ñ¡¿Ñ¼  $EVENT. ä½∩ πßΓᡫ󬿠αẼÑαá íπ-
  808.       ΣÑαá Σ«¡«ó«⌐ ¼πºδ¬¿  »«½∞ºπ⌐ΓÑß∞  ¼ÑΓáºá∩ó½Ñ¡¿Ñ¼ $SOUND.
  809.          æ¼. ΓᬪѠ  $EVENT
  810.                      PLAY(ºá∩ó½Ñ¡¿Ñ)
  811.                      $SOUND
  812.  
  813.       Åα¿¼Ñα:
  814.                  ¥Γá »α«úαá¼¼á ñѼ«¡ßΓα¿απÑΓ ON PLAY (n)
  815.                  'αẼÑßΓ¿Γ∞ 30 íá⌐Γ«ó »α«ßΓαá¡ßΓóá ºóπ¬«ó«ú« íπΣÑαá
  816.                   $SOUND 100
  817.                   'ó¬½ετ¿ΓÑ »α«óÑα¬π ºóπ¬«óδσ ß«íδΓ¿⌐
  818.                   PLAY ON
  819.                   ¡áßΓα«⌐¬Ñ »α«óÑα¬π íπΣÑαá ¼πºδ¬á½∞¡«ú« ß«»α«ó«ªñÑ¡¿∩
  820.                   ON PLAY (S)GOSUB ¡á»«½¡¿Γ∞ ¿úαδ íπΣÑα
  821.                   ì«ΓδS = "GEAFDCFECFEDGGG "
  822.                   '¿úαáΓ∞ «¬Γáóδ ß« 2 »« 4
  823.                   êúαδ æΓαS ="MB"
  824.                   FOR «¬Γáóá % =2 TO 4
  825.                   Ä¬Γáóá S ="0" + STR$(«¬Γáóá%)
  826.                   êúαδ æΓαS = êúαδæΓαS + Ä¬ΓáóáS + ì«ΓδS
  827.                   NEXT Ä¬Γáóá %
  828.                   PLAY êúαδ æΓαS
  829.                   DO
  830.                   LOOP UNTIL INSTAT
  831.                   CLEAR
  832.                   END    '¬«¡Ñµ »α«úαá¼¼δ
  833.  
  834.                   ìừ½¡¿Γ∞ ¿úαδ íπΣÑα
  835.                   ---------------------
  836.                   PRINT êúαδ æΓαS
  837.                   PLAY êúαδ cΓαS
  838.                   RETURN
  839.  
  840.  
  841.                          çá∩ó½Ñ¡¿Ñ ON STRIG
  842.                          ------------------
  843.  
  844.       öπ¡¬µ¿∩   ON STRIG   ºá∩ó½∩ÑΓ  »«ñ»α«úαá¼¼π  «Γ߽Ѫ¿óá¡¿∩  ¬¡«»¬¿
  845.       -------              π»αáó½Ñ¡¿∩.
  846.       
  847.       æ¿¡Γá¬ß¿ß   ON STRIG (n) GOSUB ¼ÑΓ¬á
  848.       ---------
  849.       çá¼Ñτá¡¿∩       îÑΓ¬á ¿ñÑ¡Γ¿Σ¿µ¿απÑΓ »Ñαó«Ñ ºá∩ó½Ñ¡¿Ñ »«ñ»α«úαá¼-
  850.       ---------       ¼δ «íαáí«Γ¬¿ "¡áªáΓ«⌐  ¬¡«»¬¿",  á  n - φΓ« µÑ½«Ñ
  851.       óδαáªÑ¡¿Ñ, π¬áºδóáεΘÑÑ  »«ñ½ÑªáΘπε «Γ߽Ѫ¿óá¡¿ε ¬¡«»¬π ó ß««ΓóÑΓ-
  852.       ßΓó¿¿ ß« ß½ÑñπεΘÑ⌐ Γáí½¿µÑ⌐:
  853.        ---------------------------------------------------------------
  854.              n                        è¡«»¬á
  855.        ---------------------------------------------------------------
  856.              0             è¡«»¬á 1, απτ¬á π»αáó½Ñ¡¿∩ Ç
  857.              2             è¡«»¬á 1, απτ¬á π»αáó½Ñ¡¿∩ é
  858.              4             è¡«»¬á 2, απτ¬á π»αáó½Ñ¡¿∩ Ç
  859.              6             è¡«»¬á 2, απτ¬á π»αáó½Ñ¡¿∩ é
  860.        ----------------------------------------------------------------
  861.  
  862.          çá∩ó½Ñ¡¿Ñ ON STRIG ¡Ñ ¿¼ÑÑΓ ñÑ⌐ßΓó¿∩ ñ« ΓÑσ »«α, »«¬á  ß«íδΓ¿∩
  863.       ¡á  ¬¡«»¬áσ  π»αáó½Ñ¡¿∩  ¡Ñ  αáºαÑΦáεΓß∩  ß   »«¼«Θ∞ε   ºá∩ó½Ñ¡¿∩
  864.       STRIG ON. àß½¿  STRIG  ON πªÑ  óδ»«½¡Ñ¡«, »α«óÑα¬á «ßπΘÑßΓó½∩ÑΓß∩
  865.       ¼Ñªñπ ¿ß»«½¡Ñ¡¿∩¼¿ óßÑσ »«ß½ÑñπεΘ¿σ  ºá∩ó½Ñ¡¿⌐ ß µÑ½∞ε »α«óÑα¿Γ∞,
  866.       ¡Ñ íδ½á ½¿ ¡áªáΓá  π¬áºá¡¡á∩  ¬¡«»¬á.  àß½¿  φΓ«  Γá¬, óδºδóáÑΓß∩
  867.       ¡áº¡áτÑ¡¡á∩ »«ñ»α«úαá¼¼á.
  868.          ä½∩  ó䬽ετÑ¡¿∩ »α«óÑન π¬áºá¡¡«⌐ ¬¡«»¬¿ π»αáó½Ñ¡¿∩ ¿ß»«½∞ºπ-
  869.       ÑΓß∩ ºá∩ó½Ñ¡¿Ñ STRIG OFF.
  870.          Å«ß½Ñ ºáσóáΓá ß«íδΓ¿∩ ¿ß»«½¡∩ÑΓß∩ ºá∩ó½Ñ¡¿Ñ STRIG STOP c µÑ½∞ε
  871.       »αÑñ«ΓóαáΓ¿Γ∞  »«óΓ«α¡δ⌐  óδº«ó  »«ñ»α«úαá¼¼δ «Γ߽Ѫ¿óá¡¿∩ ¿º ¡ÑÑ
  872.       ßἫ⌐ (¿ ºá»«½¡Ñ¡¿Ñ ßΓѬá). çá¬αδΓ¿Ñ »«ñ»α«úαá¼¼δ «íαáí«Γ¬¿ ß »«-
  873.       ¼«Θ∞ε  RETURN óδºδóáÑΓ  áóΓ«¼áΓ¿τÑ߬«Ñ ¿ß»«½¡Ñ¡¿∩ ºá∩ó½Ñ¡¿∩ STRIG
  874.       ON, Ñß½¿ αá¡ÑÑ »«ñ»α«úαá¼¼«⌐  πªÑ  ¡Ñ ¿ß»«½¡Ñ¡«  ∩ó¡«Ñ  ºá∩ó½Ñ¡¿Ñ
  875.       STRIG OFF. ä½∩ ¬áτÑßΓóÑ¡¡«ú« úÑ¡Ñα¿α«óá¡¿∩ ¬«ñá  »α«óÑન ß«íδΓ¿⌐
  876.       ¿ß»«½∞ºπ⌐ΓÑ ¼ÑΓáºá∩ó½Ñ¡¿Ñ $EVENT.
  877.          æ¼. ΓᬪѠ  $EVENT
  878.                      STRING (n)
  879.  
  880.       Åα¿¼Ñα:      ì«½∞ X =1
  881.                    ì«½∞ Y =1
  882.                    Äñ¿¡ Z
  883.                    äóá  Y =1
  884.                    ùÑΓδαÑò=3
  885.                    ùÑΓδαÑ Y=1
  886.                    ÿÑßΓ∞ò=Y
  887.                    ÿÑßΓ∞Y=1
  888.                    '¡áßΓα«¿Γ∞ «íαáí«Γτ¿¬¿ ß«íδΓ¿⌐
  889.                     ON STRIG (0) GOSUB »ÑαѬ½ετ¿Γ∞ ¡«½∞
  890.                     ON STRIG (2) GOSUB »ÑαѬ½ετ¿Γ∞ ñóá
  891.                     ON STRIG (4) GOSUB »ÑαѬ½ετ¿Γ∞ τÑΓδαÑ
  892.                     ON STRIG (6) GOSUB »ÑαѬ½ετ¿Γ∞ ΦÑßΓ∞
  893.                    'ó¬½ετ¿Γ∞ »α«óÑα¬π ß«íδΓ¿⌐
  894.                     STRIG (0) ON
  895.                     STRIG (2) ON
  896.                     STRIG (4) ON
  897.                     STRIG (6) ON
  898.                     '»«¬á ¬¡«»¬á ¡Ñ ¡áª¿¼áÑΓß∩ , «Γ«íαáªáΓ∞ ΓѬπΘ¿Ñ
  899.                     '¬««αñ¿¡áΓδ απτѬ π»αáó½Ñ¡¿∩
  900.                     WHILE NOT INSTAT
  901.                     LOGATE 15,15,0
  902.                     PRINT STICK (0), STICK (1);
  903.                     WEND
  904.                     END       '¬«¡Ñµ »α«úαá¼¼δ
  905.  
  906.                     ÅÑαѬ½ετ¿Γ∞ ¡«½∞:
  907.                     LOGATE ¡«½∞X,¡«½∞Y
  908.                     PRINT "è¡«»¬á 1"
  909.                     LOGATE 15,15,0
  910.                     RETURN
  911.                     ÅÑαѬ½ετ¿Γ∞ ñóá:
  912.                     LOGATE äóáò, äóáY
  913.                     PRINT "è¡«»¬á2"
  914.                     LOGATE 15,15,0
  915.                     RETURN
  916.                     ÅÑαѬ½ετ¿Γ∞ τÑΓδαÑ:
  917.                     LOGATE τÑΓδαÑ ò, τÑΓδαÑ Y
  918.                     PRINT "è¡«»¬á 4 "
  919.                     LOGATE 15,15,0
  920.                     RETURN
  921.                     ÅÑαѬ½ετ¿Γ∞ ΦÑßΓ∞:
  922.                     LOGATE ΦÑßΓ∞ ò, ΦÑßΓ∞ Y
  923.                     PRINT "èìÄÅèÇ 4"
  924.                     LOGATE 15,15,0
  925.                     RETURN
  926.  
  927.                           çá∩ó½Ñ¡¿Ñ ON TIMER
  928.                           ------------------
  929.       öπ¡¬µ¿∩  ON TIMER   ºá∩ó½∩ÑΓ »«ñ»α«úαá¼¼π  «Γ߽Ѫ¿óá¡¿∩  ß  µÑ½∞ε
  930.       -------             »«½πτÑ¡¿∩ π»αáó½Ñ¡¿∩ ¬áªñδÑ n ßѬπ¡ñ.
  931.  
  932.       æ¿¡Γá¬ß¿ß   ON TIMER(n) GOSUB ¼ÑΓ¬á
  933.       ---------
  934.       çá¼Ñτá¡¿∩        îÑΓ¬á π¬áºδóáÑΓ  »Ñαó«Ñ  ºá∩ó½Ñ¡¿Ñ  »«ñ»α«úαá¼¼δ
  935.       ---------        «íαáí«Γ¬¿ "¿ßΓѬΦÑú« óαѼѡ¿", á n - µÑ½«Ñ óδαá-
  936.       ªÑ¡¿Ñ, π¬áºδóáεΘÑÑ  ¬«½¿τÑßΓó«  ßѬπ¡ñ «ª¿ñá¡¿∩ «Γ 1 ñ« 86400 (24
  937.       τáßá).
  938.          çá∩ó½Ñ¡¿Ñ  ON TIMER  ¡Ñ ¿¼ÑÑΓ ñÑ⌐ßΓó¿∩ ñ« ΓÑσ »«α, »«¬á «¡« ¡Ñ
  939.       αáºαÑΦáÑΓß∩ ºá∩ó½Ñ¡¿Ñ¼  TIMER ON. àß½¿ TIMER ON πªÑ ¿ß»«½¡Ñ¡« ¡á-
  940.       τ¿¡áÑΓß∩ ó¡πΓαÑ¡¡¿⌐  «ΓßτÑΓ  ßѬπ¡ñ ¿ ¼Ñªñπ ¿ß»«½¡Ñ¡¿∩¼¿  ¬áªñ«ú«
  941.       ºá∩ó½Ñ¡¿∩ ñѽáÑΓß∩ »α«óÑα¬á ¿ßΓÑτÑ¡¿∩ τ¿ß½á ßѬπ¡ñ, ¿ñÑ¡Γ¿Σ¿µ¿α«-
  942.       óá¡¡«ú« ó ºá∩ó½Ñ¡¿¿. àß½¿ óαѼ∩ ¿ßΓѬ½«, óδºδóáÑΓß∩ »«ñ»α«úαá¼¼á,
  943.       ¡áº¡áτÑ¡¡á∩ ¼ÑΓ¬«⌐.
  944.          çá∩ó½Ñ¡¿Ñ  TIMER OFF  ó¬½ετáÑΓ »α«óÑα¬π óαѼѡ¿. Å«ß½Ñ ½«óπΦ¬¿
  945.       ¿ß»«½¡∩ÑΓß∩  ¡Ñ∩ó¡«Ñ ºá∩ó½Ñ¡¿Ñ TIMER STOP ñ½∩ »αÑñ«ΓóαáΘÑ¡¿∩ »«ó-
  946.       Γ«α¡«ú« ó맮óá »«ñ»α«úαá¼¼δ «Γ߽Ѫ¿óá¡¿∩ ¿º ¡ÑÑ ßἫ⌐ (¿ ºá»«½¡Ñ-
  947.       ¡¿Ñ  ßΓѬá).  Åα¿  ºá¬αδóá¡¿¿  »«ñ»α«úαá¼¼δ «íαáí«Γ¬¿ »«ßαÑñßΓó«¼
  948.       RETURN áóΓ«¼áΓ¿τÑ߬¿ óδ»«½¡∩ÑΓß∩ ºá∩ó½Ñ¡¿Ñ  TIMER  ON,  Ñß½¿ »«ñ-
  949.       »α«úαá¼¼á αá¡ÑÑ ¡Ñ ¿ß»«½¡∩ÑΓ ∩ó¡«Ñ ºá∩ó½Ñ¡¿Ñ TIMER OFF. ¥Γ« «º¡á-
  950.       τáÑΓ, τΓ«  ßτÑΓτ¿¬  ßѬπ¡ñ  »«óΓ«α¡« πßΓá¡áó½¿óáÑΓß∩ ó ¡«½∞ »«ß½Ñ
  951.       Γá⌐¼Ñα¡«⌐ ½«óπΦ¬¿.
  952.          ä½∩ π»αáó½Ñ¡¿∩ úÑ¡Ñα¿α«ó᡿Ѽ ¬«ñá »α«óÑન  ß«íδΓ¿⌐ ¿ß»«½∞ºπ-
  953.       ÑΓß∩ ¼ÑΓáºá∩ó½Ñ¡¿Ñ $EVENT.
  954.          æ¼. ΓᬪѠ    $EVENT
  955.                        TIMER
  956.        Åα¿¼Ñα:
  957.                 ON TIME R(1) GOSUB «Γ«íαếΓ∞ óαѼ∩
  958.                 ¡áßΓα«¿Γ∞ ½«óπΦ¬π Γá⌐¼Ñαá
  959.                 'ó¬½ετ¿Γ∞ »α«óÑα¬π Γá⌐¼Ñα¡«ú« ß«íδΓ¿∩
  960.                  TIMER ON
  961.                  '«ª¿ñáΓ∞ ¡áªáΓ¿∩ ¬½áó¿Φ¿
  962.                  WHILE NOT INSTAT: WEND
  963.                  END     '¬«¡Ñµ »α«úαá¼¼δ
  964.                  ÄΓ«íαếΓ∞ óαѼ∩:
  965.                  LOGATE 1,70
  966.                  PRINT TIME$: RETURN
  967.