home *** CD-ROM | disk | FTP | other *** search
/ For Beginners & Professional Hackers / cd.iso / docum / tbas.doc / tb53.doc < prev    next >
Encoding:
Text File  |  1990-04-28  |  43.2 KB  |  988 lines
  1.  
  2.                            öπ¡¬µ¿¿ CVMD,CVMS
  3.                            -----------------
  4.  
  5.  
  6.       öπ¡¬µ¿∩          CVMD   ¿   CVMS »αÑ«íαáºπÑΓ ßΓα«τ¡δÑ »ÑαѼѡ¡δÑ,
  7.       -------          ßτ¿ΓδóáѼδÑ  ¿º  »α«¿ºó«½∞¡δσ  Σá⌐½«ó  ó Σ«α¼áΓÑ
  8.       î¿¬α«ß«ΣΓ, ó τ¿ß½«óπε Σ«α¼π.
  9.  
  10.       æ¿¡Γá¬ß¿ß        y!=CVMS(4-íá⌐Γ«óá∩ ßΓ᫬á)
  11.       ---------        y#=CVMD(8-íá⌐Γ«óá∩ ßΓ᫬á)
  12.  
  13.       çá¼Ñτá¡¿∩        CVMS  (Convert Microsoft Singl-precision string)
  14.       ---------        »αÑ«íαáºπÑΓ  4-íá⌐Γ«óπε  ßΓ᫬π,  »αÑñßΓáó½∩εΘπε
  15.       º¡áτÑ¡¿Ñ   Ññ¿¡¿τ¡«⌐  Γ«τ¡«ßΓ¿  ó  Σ«α¼áΓÑ  î¿¬α«ß«ΣΓ,ó  º¡áτÑ¡¿Ñ
  16.       Ññ¿¡¿τ¡«⌐  Γ«τ¡«ßΓ¿  ó  Σ«α¼áΓÑ IEEE Æπαí«-üÑ⌐ß¿¬á. CVMD (Convert
  17.       Microsoft Double-precision string) »αÑ«íαáºπÑΓ 4-íá⌐Γ«óπε ßΓ᫬π,
  18.       »αÑñßΓáó½∩εΘπε   º¡áτÑ¡¿Ñ   ñó«⌐¡«⌐   Γ«τ¡«ßΓ¿   ó   Σ«α¼áΓÑ  IEE
  19.       Æπαí«-üÑ⌐ß¿¬á.   ¥Γ¿   Σπ¡¬µ¿¿  »αÑñπß¼«ΓαÑ¡δ  ¿ß¬½íτ¿Γѽ∞¡«  ñ½∩
  20.       ß«ó¼ÑßΓ¿¼«ßΓ¿ ß ßπΘÑßΓóπεΘ¿¼¿ Σá⌐½á¼¿ ê¡ΓÑα»αÑΓáΓ«α¡«ú« üÑ⌐ß¿¬á.
  21.  
  22.          Åα¿¼Ñα:
  23.             '«Γ¬αδΓ∞ Σá⌐½ »α«¿ºó«½∞¡«ú« ñ«ßΓπ»á
  24.              open "cvmd.dta" as#1 len=12
  25.              field#1,4 as àñ¿¡¿τ¡á∩$,as äó«⌐¡á∩$
  26.              for i=1 to 5 'ºá»¿ßáΓ∞ ¡Ñ¬«Γ«αδÑ ñá¡¡δÑ ó Σá⌐½
  27.              '»αÑ«íαẫóáΓ∞ ñá¡¡δÑ ¿ ¡áº¡áτ¿Γ∞ Σá⌐½ ñá¡¡δσ
  28.              lset àñ¿¡¿τ¡á∩$=mkms$(i)
  29.              lset äó«⌐¡á∩$=mkmd$(i^i)
  30.              put #1.1
  31.              next i
  32.              for i=1 to 5
  33.              get #1,1
  34.              print cvms(àñ¿¡¿τ¡á∩$),cvmd(äó«⌐¡á∩$)
  35.              next i%
  36.              print cvs(x$),cvms(x$)
  37.              close #1
  38.              end
  39.  
  40.  
  41.                                 Ä»ÑαáΓ«α DATA
  42.                                 -------------
  43.  
  44.       öπ¡¬µ¿∩          DATA ºá∩ó½∩ÑΓ ¬«¡ßΓá¡Γδ ñ½∩ «»ÑαáΓ«α«ó READ.
  45.       -------
  46.  
  47.      æ¿¡Γá¬ß¿ß         DATA ¬«¡ßΓá¡Γá[,¬«¡ßΓá¡Γá]...
  48.      ---------
  49.  
  50.       çá¼Ñτá¡¿∩        è«¡ßΓá¡Γá - φΓ« τ¿ß½«óá∩ ¿½¿ ßΓα«τ¡á∩ ¬«¡ßΓá¡Γá.
  51.       ---------        ù¿ß½«óδÑ ¬«¡ßΓá¡Γδ ¼«úπΓ íδΓ∞ ß »½áóáεΘÑ⌐ Γ«τ¬«⌐
  52.       ¿½¿  µÑ½δÑ  ¿  «»µ¿«¡á½∞¡« ¼«úπΓ óδαáªáΓ∞ß∩ ¬á¬ ΦÑßΓ¡áñµáΓ¿α¿τ¡δÑ
  53.       ¿½¿  ó«ß∞¼Ñα¿τ¡δÑ.  æΓα«τ¡δÑ  ¬«¡ßΓá¡Γδ  ¡Ñ  ñ«½ª¡δ ºá¬½ετáΓ∞ß∩ ó
  54.       ¬áóδτ¬¿,   Ñß½¿   «¡¿   ¡Ñ  ß«ñÑαªáΓ  αáºñѽ¿Γѽ¿  (ºá»∩ΓδÑ  ½¿í«
  55.       ñó«ÑΓ«τ¿∩)  ¿½¿  º¡áτáΘ¿Ñ »ÑαÑñ¡¿Ñ ½¿í« ¬«¡µÑóδÑ »πßΓ«Γδ, ¿ ¼«úπΓ
  56.       ßó«í«ñ¡«   αẼÑΘáΓ∞ß∩   ó»ÑαѼѪ¬π   ß   τ¿ß½«ó묨  ¬«¡ßΓá¡ΓἿ.
  57.       ìá»α¿¼Ñα:
  58.  
  59.                DATA    Æᬫ,.79,¬πα¿¡δ⌐   »αÑñѽ,2.29,.29 
  60.  
  61.          Åα«úαἼᠠ¼«ªÑΓ  ß«ñÑαªáΓ∞  ¼¡«ú«  «»ÑαáΓ«α«ó  DATA  ¿ «¡¿ ¡Ñ
  62.       «í∩ºáΓѽ∞¡«  ñ«½ª¡δ  íδΓ∞  ß½ÑñπεΘ¿¼¿  ñαπú  ºá  ñαπú«¼ ßΓα«¬á¼¿.
  63.       èáªñ«Ñ  ¼«ªÑΓ  ß«ñÑαªáΓ∞  ßΓ«½∞¬«  ¬«¡ßΓá¡Γ,  ß¬«½∞¬« π¼ÑΘáÑΓß∩ ó
  64.       ßΓ᫬Ñ.
  65.          é«  óαѼ∩  »α«ú«¡á «»ÑαáΓ«αδ READ »«½πτáεΓ ñ«ßΓπ» ¬ ¬«¡ßΓá¡Γá¼
  66.       DATA  ß½Ñóá  ¡á»αáó«  ¿  ßóÑασπ  ó¡¿º  ó Γ«¼ »«α∩ñ¬Ñ, ó ¬á¬«¼ «¡¿
  67.       »«∩ó½∩εΓß∩   ó  ¿ßσ«ñ¡«⌐  »α«úαá¼¼Ñ.  ü«½∞Φ¿¡ßΓó«  «íΘ¿σ  «Φ¿í«¬,
  68.       áßß«µ¿¿απѼδσ   ß   «»ÑαáΓ«α«¼   DATA  ¿  READ  »«½πτáÑΓß∩  ¿º-ºá
  69.       ¡Ñß¿¡σα«¡¡«ßΓ¿  ¿  »«»δΓ«¬  ºáúαπº¿Γ∞  ßΓα«τ¡δε ñá¡¡δÑ ó τ¿ß½«óπε
  70.       »ÑαѼѡ¡πε;  ó  αѺπ½∞ΓáΓÑ  úÑ¡Ñα¿απÑΓß∩ «Φ¿í¬á 2 (ß¿¡Γá¬ß¿τÑ߬á∩
  71.       «Φ¿í¬á).  è  ß«ªá½Ñ¡¿ε  óδ  ¡Ñ »«½πτáÑΓÑ ¿¡Σ«α¼áµ¿ε «í «Φ¿í¬Ñ »α¿
  72.       ºáúαπº¬Ñ  τ¿ß½«ó«⌐ ¬«¡ßΓá¡Γδ ó ßΓα«τ¡πε »ÑαѼѡ¡πε, ñáªÑ Ñß½¿ φΓ«
  73.       ¡Ñ Γ«, τΓ« óδ ¡á¼ÑαÑó὿ß∞ ßñѽáΓ∞.
  74.          è«¼á¡ñá  RESTORE »«ºó«½∩ÑΓ óá¼ »«óΓ«α¡« ßτ¿ΓδóáΓ∞ ¬«¡ßΓá¡Γδ ¿º
  75.       »Ñαó«ú«  «»ÑαáΓ«αá  ¿½¿ ½εí«ú« ß»Ñµ¿Σ¿µ¿α«óá¡¡«ú« «»ÑαáΓ«αá DATA.
  76.       àß½¿  óδ  »δΓáÑΓÑß∞ αÑ὿º«óáΓ∞ READ í«½∞Φ«Ñ τ¿ß½« αáº, τѼ ¿¼ÑÑΓ
  77.       ¬«¡ßΓá¡Γ óáΦá »α«úαá¼¼á, φΓ« »α¿ó«ñ¿Γ ¬ «Φ¿í¬Ñ 4 (ó¡Ñ ñá¡¡δσ).
  78.  
  79.       Äúαá¡¿τÑ¡¿∩      éδ  ¡Ñ  ¼«ªÑΓÑ  ¿ß»«½∞º«óáΓ∞  ó  «»ÑαáΓ«αáσ DATA
  80.       -----------      ½¿ΓÑαδ    ß   ¡Ñ»αÑαδó¡δ¼   »«ñτÑનó᡿Ѽ.   ìÑ
  81.       »«½∞ºπ⌐ΓÑß∞  Ññ¿¡¿τ¡«⌐  ¬áóδτ¬«⌐ (') ñ½∩ ¬«¼Ñ¡Γ¿α«óá¡¿∩ «»ÑαáΓ«αá
  82.       DATA,  »«ß¬«½∞¬π Æπαí«-üÑ⌐ß¿¬ ¼«ªÑΓ »α¿¡∩Γ∞ ÑÑ ºá »«ß½Ññ¡¿⌐ óσ«ñ,
  83.       á   óáΦ  ¬«¼¼Ñ¡Γáα¿⌐  ºá  τáßΓ∞  ñá¡¡«⌐  «ñ¡«⌐  ñ½¿¡¡«⌐  ßΓα«τ¡«⌐
  84.       ¬«¡ßΓá¡Γδ. ìá»α¿¼Ñα:
  85.  
  86.           "è¡«»¬¿","ß«íᬿ" ¿ "ßó¿¡∞¿'ß»¿ß«¬ ª¿ó«Γ¡δσ."
  87.  
  88.          éδ ¼«ªÑΓÑ, «ñ¡á¬«, íѺ«»áß¡« ¿ß»«½∞º«óáΓ∞ ñ½∩ φΓ«⌐ µÑ½¿ :REM:
  89.  
  90.       æ¼. ΓᬪѠ     READ
  91.                      RESTORE
  92.  
  93.       Åα¿¼Ñα:
  94.             '¥Γá »α«úαá¼¼á ñѼ«¡ßΓα¿απÑΓ ¿ß»«½∞º«óá¡¿Ñ «»ÑαáΓ«αá DATA
  95.              sub Äíαáí«Γ¬áÉѺπ½∞ΓáΓ«ó(æΓπñÑ¡Γáê¼∩$,æΓπñÑ¡ΓáæαÑñ¡¿⌐%)
  96.              local éßÑú«%,üá½%,i%
  97.                 éßÑú«%=0
  98.                 read æΓπñÑ¡Γáê¼∩$
  99.                 for i%=1 to 10
  100.                  read üá½%
  101.                  éßÑúÑ%=éßÑú«%+üá½%
  102.                 next i%
  103.                 æΓπñÑ¡ΓáæαÑñ¡¿⌐%=éßÑú«%\10
  104.              end sub
  105.              for æΓπñÑ¡Γ%=1 to 3
  106.                call Äíαáí«Γ¬áÉѺπ½∞ΓáΓ«ó(濼∩$,æαÑñ¡¿⌐%)
  107.                print using "&'s ßαÑñ¡¿⌐ αáóÑ¡ ###";ß¿¼∩$,ßαÑñ¡¿⌐%
  108.              next æΓπñÑ¡Γ%
  109.              end
  110.               éáΦ¿ αѺπ½∞ΓáΓδ:
  111.              DATA é.ÅÑαα¿,78,65,35,79,86,93,79,85,99,96
  112.              DATA Å.éáΓß«¡ ,98,94,70,88,99,100,75,96,100,95
  113.              DATA î.ù¿¬¬«¡Ñ,65,59,75,82,56,79,82,76,69,89
  114.  
  115.  
  116.                           æ¿ßΓѼ¡á∩ »ÑαѼѡ¡á∩ DATE$
  117.                           --------------------------
  118.  
  119.       öπ¡¬µ¿∩      DATE$ πßΓá¡áó½¿óáÑΓ ¿ πßΓá¡áó½¿óáÑΓ ß¿ßΓѼ¼¡πε ñáΓπ.
  120.       -------
  121.  
  122.       æ¿¡Γá¬ß¿ß        DATE$=s$   (πßΓá¡«ó¿Γ∞  ñáΓπ  ó  ß««ΓóÑΓßΓó¿¿  ß
  123.       ---------        ¿¡Σ«α¼áµ¿Ñ⌐  ó  s$) s$=DATE$ (s$ ß«ñÑαª¿Γ ΓÑ»Ñα∞
  124.       ¿¡Σ«α¼áµ¿ε « ñáΓÑ).
  125.  
  126.       çá¼Ñτá¡¿∩        æ¿ßΓѼ¡á∩   ñáΓá   πßΓá¡áó½¿óáÑΓß∩   ¡áº¡áτÑ¡¿Ñ¼
  127.       ---------        »αáó¿½∞¡«  ßΣ«α¼¿α«óá¡¡«ú«  ßΓα«τ¡«ú« º¡áτÑ¡¿∩ ó
  128.       DATE$. ìạáτÑ¡¿Ñ DATE$ ßΓα«τ¡«⌐ »ÑαѼѡ¡«⌐ ñѽáÑΓ ß¿ßΓѼ¡πε ñáΓπ
  129.       ñ«ßΓπ»¡«⌐  ñ½∩  «íαáí«Γ¬¿.  DATE$ ó«ºóαáΘáÑΓ 10-½¿ΓÑα¡πε ßΓ᫬π ó
  130.       Σ«α¼Ñ ¼¼-ññ-úúúú, úñÑ ¼¼-¼Ñß∩µ, ññ-ñÑ¡∞, úúúú-ú«ñ.
  131.          ùΓ«íδ  ¿º¼Ñ¡¿Γ∞  ñáΓπ,  óáΦá  ßΓα«¬á  ñ«½ª¡a ¿¼ÑΓ∞ Σ«α¼áΓ ñáΓδ
  132.       «ñ¡«ú« ¿º ß½ÑñπεΘ¿σ ó¿ñ«ó:
  133.              ¼¼-ññ-úúúú
  134.              ¼¼/ññ/úú
  135.              ¼¼-ññ-úúúú
  136.              ¼¼/ññ/úúúú
  137.       ìá»α¿¼Ñα:
  138.  
  139.        "10-25-86" πßΓá¡áó½¿óáÑΓ ß¿ßΓѼ¡πε ñáΓπ ¡á 25 «¬Γ∩íα∩ 1986 ú«ñá.
  140.  
  141.       Äúαá¡¿τÑ¡¿∩      â«ñ,  ¡áº¡áτÑ¡¡δ⌐  ó ß¿ßΓѼ¡«⌐ »ÑαѼѡ¡«⌐ DATE$
  142.       -----------      ñ«½ªÑ¡ ½ÑªáΓ∞ ó ñ¿á»áº«¡Ñ 1980-2099.
  143.  
  144.       æ¼. ΓᬪѠTIME$
  145.  
  146.       Åα¿¼Ñα:
  147.             '«Γ«íαếΓ∞ ΓѬπΘπε ß¿ßΓѼ¡πε ñáΓπ
  148.              print "ΓѬπΘá∩ ß¿ßΓѼ¡á∩ ñáΓá";DATE$
  149.              input "»«ªá½π⌐ßΓá, óóÑñ¿ΓÑ ¡«óπε ñáΓπ ó Σ«α¼Ñ
  150.                     ¼¼-ññ-úú";ì«óá∩äáΓá$
  151.              DATE$=ì«óá∩äáΓá$
  152.              print "ÆѬπΘá∩ ß¿ßΓѼ¡á∩ ñáΓá πßΓá¡«ó½Ñ¡á ¡á ",DATE$
  153.              end
  154.  
  155.  
  156.                                 Ä»ÑαáΓ«α DECR
  157.                                 -------------
  158.  
  159.       öπ¡¬µ¿∩     DECR ßíαáßδóáÑΓ »ÑαѼѡ¡πε.
  160.       -------
  161.  
  162.       æ¿¡Γá¬ß¿ß  DECR »ÑαѼѡ¡á∩[,αẼÑα]
  163.       ---------
  164.  
  165.       çá¼Ñτá¡¿∩        ÅÑαѼѡ¡á∩ - φΓ«    τ¿ß½Ñ¡¡á∩    »ÑαѼѡ¡á∩,   á
  166.       ---------        αẼÑα-«»µ¿«¡á½∞¡«Ñ  τ¿ß½«ó«Ñ óδαáªÑ¡¿Ñ, ¬«Γ«α«Ñ
  167.       π¬áºδóáÑΓ º¡áτÑ¡¿Ñ, ¬«Γ«α«Ñ ñ«½ª¡« óδτ¿ΓáΓ∞ß∩ ¿º »ÑαѼѡ¡«⌐. àß½¿
  168.       αẼÑα «»π߬áÑΓß∩, ¿ß»«½∞ºπÑΓß∩ 1.
  169.          DECR-½πτΦ¿⌐  ß»«ß«í  ßíαáßδóá¡¿∩  »ÑαѼѡ¡«⌐.  ä½∩  »α¿αáΘÑ¡¿∩
  170.       »ÑαѼѡ¡«⌐ ¿ß»«½∞ºπ⌐ΓÑ «»ÑαáΓ«α INCR.
  171.  
  172.       æ¼. ΓᬪѠ       INCR
  173.  
  174.       Åα¿¼Ñα:
  175.             i%=15
  176.              j%=500
  177.              while i%>0
  178.              print i%,j%
  179.              decr i%
  180.              decr j%,5 'ßíα«ß¿Γ∞ º¡áτÑ¡¿Ñ ¡á 5
  181.              wend
  182.              end
  183.  
  184.  
  185.                            Ä»ÑαáΓ«α DEF FN/END DEF
  186.                            -----------------------
  187.  
  188.       öπ¡¬µ¿∩     DEF FN/END DEF «»αÑñѽ∩ÑΓ Σπ¡¬µ¿ε.
  189.       -------
  190.  
  191.       æ¿¡Γá¬ß¿ß   àñ¿¡¿τ¡á∩ ßΓ᫬á:
  192.       ---------   DEF FN ¿ñÑ¡Γ¿Σ¿¬áΓ«α[(ß»¿ß«¬ áαúπ¼Ñ¡Γ«ó)]=óδαáªÑ¡¿Ñ
  193.                   î¡«ú«ßΓα«τ¡á∩:
  194.                   DEF FN ¿ñÑ¡Γ¿Σ¿¬áΓ«α[(ß»¿ß«¬ áαúπ¼Ñ¡Γ«ó)]
  195.                   [LOCAL ß»¿ß«¬ »ÑαѼѡ¡δσ]
  196.                   [STATIC ß»¿ß«¬ »ÑαѼѡ¡δσ]
  197.                   [SHARED ß»¿ß«¬ »ÑαѼѡ¡δσ]
  198.                     .
  199.                     .
  200.                     .
  201.                   [EXIT DEF]
  202.                   [FN ¿ñÑ¡Γ¿Σ¿¬áΓ«α=óδαáªÑ¡¿Ñ]
  203.                   END DEF
  204.  
  205.       çá¼Ñτá¡¿∩        êñÑ¡Γ¿Σ¿¬áΓ«α  -  φΓ«  π¡¿¬á½∞¡«Ñ  ¿¼∩,  ¬«Γ«α«Ñ
  206.       ---------        ñ«½ª¡«  áßß«µ¿¿α«óáΓ∞ß∩  ß  Σπ¡¬µ¿Ñ⌐ ¿ ß½Ññ«óáΓ∞
  207.       ß«ú½áΦÑ¡¿ε  «í ¡á¿¼Ñ¡«óá¡¿¿ ¼ÑΓ«¬ ¿ »ÑαѼѡ¡δσ (Γ.Ñ. »αÑñßΓáó½∩Γ∞
  208.       ß«í«⌐  íπ¬óπ,  ºá  ¬«Γ«α«⌐  ß½ÑñπÑΓ ½εí«Ñ τ¿ß½« íπ¬ó ¿/¿½¿ µ¿Σα).
  209.       æ»¿ß«¬   áαúπ¼Ñ¡Γ«ó  -  φΓ«  «»µ¿«¡á½∞¡á∩,  αáºñѽ∩Ѽá∩  ºá¡∩Γ묨
  210.       »«ß½Ññ«óáΓѽ∞¡«ßΓ∞  Σ«α¼á½∞¡δσ»áαá¼ÑΓα«ó. Åáαá¼ÑΓαδ, ¿ß»«½∞ºπѼδÑ
  211.       ó  ß»¿ß¬Ñ  áαúπ¼Ñ¡Γ«ó, ß½πªáΓ Γ«½∞¬« ñ½∩ «»αÑñѽѡ¿∩ Σπ¡¬µ¿¿: «¡¿
  212.       ¡Ñ ¿¼ÑεΓ óºá¿¼«ßó∩º¿ ß ñαπú¿¼¿ »ÑαѼѡ¡δ¼¿ »α«úαá¼¼δ, ¿¼ÑεΘ¿¼¿ ΓÑ
  213.       ªÑ  ¿¼Ñ¡á.  C¬«í¬¿  DEF  FN ¿ END DEF ¿ ¿¼∩ »«ñ«í¡«⌐ ßπí»α«úαá¼¼Ñ
  214.       úαπ»»δ   «»ÑαáΓ«α«ó   ¡áºδóáÑΓß∩   Σπ¡¬µ¿Ñ⌐.  öπ¡¬µ¿¿  ¼«ªÑΓ  «»-
  215.       µ¿«¡á½∞¡«  »«ñáóáΓ∞ß∩  «ñ¿¡  ¿½¿  í«½ÑÑ áαúπ¼Ñ¡Γ«ó »« ¡áº¡áτÑ¡¿ε.
  216.       öπ¡¬µ¿¿    ó«ºóαáΘáεΓ    º¡áτÑ¡¿Ñ   (Γ¿»   ¬«Γ«α«ú«   π»αáó½∩ÑΓß∩
  217.       ß««ΓóÑΓßóÑ¡¡«  ¿¼Ñ¡¿  Σπ¡¬µ¿¿, ¬á¬ Ñß½¿ íδ φΓ« íδ½á »ÑαѼѡ¡á∩) ¿
  218.       »«φΓ«¼π  ¼«úπΓ  óδºδóáΓ∞ß∩  ¿º ½εí«ú« «»ÑαáΓ«αá, ¬«Γ«α«Ñ ß»«ß«í¡«
  219.       »α¿¡¿¼áΓ∞ º¡áτÑ¡¿Ñ »«ñσ«ñ∩ΘÑú« Γ¿»á.
  220.  
  221.                    Ä»Ñαñѽѡ¿Ñ Σπ¡¬µ¿⌐ ¿ »α«úαá¼¼¡δ⌐ »«Γ«¬
  222.                    ---------------------------------------
  223.  
  224.          Å«½«ªÑ¡¿Ñ «»αÑñѽѡ¿⌐ Σπ¡¬µ¿⌐ ¡Ñ ¿¼ÑÑΓ º¡áτÑ¡¿∩. öπ¡¬µ¿∩ ¼«ªÑΓ
  225.       íδΓ∞  «»αÑñѽѡᠠó  ßΓα«¬Ñ  1  ¿½¿  ßΓα«¬Ñ  1000  »α«úαá¼¼δ, ó¡Ñ
  226.       ºáó¿ß¿¼«ßΓ¿  «Γ Γ«ú«,úñÑ «¡á ¿ß»«½∞ºπÑΓß∩ ¿ óá¼ ¡ÑΓ ¡Ñ«íσ«ñ¿¼«ßΓ¿
  227.       »α«»π߬áΓ∞  »α«úαá¼¼¡δ⌐  »«Γ«¬  ¡Ñ»«ßαÑñßΓóÑ¡¡«  τÑαѺ  Σπ¡¬µ¿ε ó
  228.       ¬áτÑßΓóÑ  Φáúá ó«ºíπªñÑ¡¿∩ (τΓ« óδ «í∩ºá¡δ ñѽáΓ∞ ß «ñ¡«ßΓα«τ¡δ¼¿
  229.       Σπ¡¬µ¿∩¼¿  ó  ê¡ΓÑα»αÑΓáΓ«α¡«¼ üÑ⌐ß¿¬Ñ). è«¼»¿½∩Γ«α »α«ß¼áΓα¿óáÑΓ
  230.       óáΦ¿ «»αÑñѽѡ¿∩, úñÑ íδ «¡¿ ¡¿ í뫨. 
  231.          ÆᬪÑ,   ó   «Γ½¿τ¿¿   «Γ  »«ñ»α«úαá¼¼,  ¿ß»«½¡Ñ¡¿Ñ  ¡Ñ  ¼«ªÑΓ
  232.       ¡Ñ«ª¿ñá¡¡«  "»α¿¡∩Γ∞ß∩"  ºá  Σπ¡¬µ¿ε.  ä½∩  óßÑú«,  τΓ«  ¬áßáÑΓß∩
  233.       ¿ß»«½¡¿Γѽ∞¡«ú« »α«σ«ñá »α«úαá¼¼δ, «»αÑñѽѡ¿∩ Σπ¡¬µ¿⌐ ¿ »α«µÑñπα
  234.       ¡Ñó¿ñ¿¼δ. ìá»α¿¼Ñα:
  235.              t=fnéδñáΓ∞ÿΓáΓ
  236.              def fnéδñáΓ∞ÿΓáΓ
  237.              print "éδñáε ¿º fnéδñáΓ∞ÿΓáΓ"
  238.              end def
  239.          è«úñá  ¿ß»«½¡∩ÑΓß∩  φΓá  τÑΓδαÑσßΓα«τ¡á∩  »α«úαá¼¼á, ß««íΘÑ¡¿Ñ
  240.       »«∩ó½∩ÑΓß∩  Γ«½∞¬«  «ñ¿¡  αáº,  »«ß¬«½∞¬π  éδñáΓ∞ÿΓáΓ  óδºδóáÑΓß∩
  241.       Γ«½∞¬« ó »Ñαó«⌐ ßΓ᫬Ñ.
  242.          Ä»αÑñѽѡ¿∩  Σπ¡¬µ¿⌐  ñ«½ª¡δ  Γαá¬Γ«óáΓ∞ß∩  ¬á¬  ¿º«½¿α«óá¡¡δÑ
  243.       «ßΓα«óá  ¬«ñá;  ¡¿ »ÑαÑσ«ñ«ó ó ¡¿σ, ¡¿ »ÑαÑσ«ñ«ó ¿º ¡¿σ ß »«¼«Θ∞ε
  244.       «»ÑαáΓ«αá GOTO, GOSUB ¿½¿ RETURN ¡Ñ ßπΘÑßΓóπÑΓ. Äñ¡á¬« ó »αÑñѽáσ
  245.       ßá¼¿σ «»αÑñѽѡ¿⌐ ΓᬿѠ«»ÑαáΓ«αδ ßπΘÑßΓóπεΓ .
  246.          æ½ÑñπÑΓ  ºá¼ÑΓ¿Γ∞,  τΓ«  «»αÑñѽѡ¿∩ Σπ¡¬µ¿⌐ ¿ »α«µÑñπα ¡Ñ½∞º∩
  247.       ú¡Ñºñ«óáΓ∞,  Γ.Ñ.  ¡Ñºá¬«¡¡«  «»αÑñѽ∩Γ∞  »α«µÑñπαπ  ¿½¿  Σπ¡¬µ¿ε
  248.       ó¡πΓα¿  »α«µÑñπαδ  ¿½¿  Σπ¡¬µ¿¿ (¬áªñ«Ñ «»αÑñѽѡ¿Ñ »α«µÑñπαδ ¿½¿
  249.       Σπ¡¬µ¿¿ ¼«ªÑΓ ß«ñÑαªáΓ∞ ó맮óδ ñαπú¿σ »α«µÑñπα).
  250.  
  251.          çá∩ó½Ñ¡¿∩ ½«¬á½∞¡δσ »ÑαѼѡ¡δσ(Γ«½∞¬« ¼¡«ú«ßΓα«τ¡δÑ Σπ¡¬µ¿¿)
  252.          ------------------------------------------------------------
  253.          ùΓ«íδ  ºá∩ó¿Γ∞  ½«¬«½∞¡δÑ »ÑαѼѡ¡δÑ ó »αÑñѽáσ Σπ¡¬µ¿¿, »ÑαÑñ
  254.       ½εí묨   ¿ß»«½∞ºπÑ¼δ¼¿   «»ÑαáΓ«αἿ  ó  «»αÑñѽѡ¿¿  ¿ß»«½∞ºπ⌐ΓÑ
  255.       «»ÑαáΓ«α LOCAL. ìá»α¿¼Ñα
  256.              LOCAL a%,b#,ü«½∞Φ«⌐îáßß¿ó%()
  257.       æ«ºñáÑΓ  Γα¿  ½«¬á½∞¡δσ  »ÑαѼѡ¡δσ:  a%,  b#,  (µÑ½«Ñ  ¿ ñó«⌐¡«⌐
  258.       Γ«τ¡«ßΓ¿  ß««ΓóÑΓßΓóÑ¡¡«)  ¿  ¼áßß¿ó ü«½∞Φ«⌐îáßß¿ó%. çáΓѼ ¼áßß¿ó
  259.       ñ«½ªÑ¡ íδΓ∞ ¡áñ½ÑªáΘ¿¼ «íαẫ¼ «íαẼÑαÑ¡:
  260.              DIM DYNAMIC ü«½∞Φ«⌐îáßß¿ó%(1000)
  261.  
  262.                    æ¿¡Γá¬ß¿τÑ߬¿Ñ ¿ αáºñѽ∩ѼδÑ »ÑαѼѡ¡δÑ
  263.                    ---------------------------------------
  264.  
  265.          Å«  π¼«½τá¡¿ε,  »ÑαѼѡ¡δÑ  ¬«Γ«αδÑ ¿ß»«½∞ºπεΓß∩ ó «»αÑñѽѡ¿¿
  266.       Σπ¡¬µ¿⌐,  ¿¼ÑεΓ  áΓα¿íπΓ  SHARED (αáºñѽ∩ѼδÑ); Γ.Ñ. «¡¿ ∩ó½∩εΓß∩
  267.       ú½«í«½∞¡δ¼¿  ñ½∩  «ßΓá½∞¡«⌐  »α«úαá¼¼δ.  Å«ß¬«½∞¬π  φΓ« π¼«½τá¡¿Ñ
  268.       ¼«ªÑΓ  ¿º¼Ñ¡¿Γ∞ß∩,  óδ  «í∩ºá¡δ  ºáΓαáτ¿óáΓ∞- πß¿½¿∩ ¡á ºá∩ó½Ñ¡¿Ñ
  269.       ¬áªñ«⌐ ¿ß»«½∞ºπѼ«⌐ ó Σπ¡¬µ¿¿ »ÑαѼѡ¡«⌐. 
  270.          çá∩ó½∩⌐ΓÑ  »ÑαѼѡ¡δÑ  ß  áΓα¿íπΓ«¼  STATIC,  Ñß½¿ ó᪡« τΓ«íδ
  271.       »ÑαѼѡ¡á∩  ¡Ñ  ΓÑα∩½á  ßó«Ñú« º¡áτÑ¡¿∩ »α¿¬áªñ«¼ ó«ºíπªñÑ¡¿¿, ¡«
  272.       ÑΘÑ ¼«ú½á íδΓ∞ ¿º¼Ñ¡Ñ¡á Γ«½∞¬« ó¡πΓα¿ Σπ¡¬µ¿¿. 
  273.          Ä»αÑñѽѡ¿Ñ  ¼¡«ú«ßΓα«τ¡«⌐  Σπ¡¬µ¿¿  «íδτ¡«  ó¬½ετáÑΓ  ó  ßÑí∩
  274.       ¡áº¡áτÑ¡¿Ñ  ¿ñÑ¡Γ¿Σ¿¬áΓ«απ  Σπ¡¬µ¿¿  ¿ ñ«½ª¡« ºáóÑαΦáΓß∩ END DEF.
  275.       àß½¿  óδ  ñѽáÑΓÑ  óδí«α  ¡Ñ  ó¬½ετáΓ∞  ¡áº¡áτÑ¡¿Ñ ¿ñÑ¡Γ¿Σ¿¬áΓ«απ
  276.       Σπ¡¬µ¿¿, Γ« º¡áτÑ¡¿Ñ ó«ºóαáΘáѼ«Ñ ¿º Σπ¡¬µ¿¿ ¡Ñ«»αÑñѽѡ¡«. 
  277.          êß»«½∞ºπ⌐ΓÑ  ñ½∩  ó«ºóαáΘÑ¡¿∩  ¿º Σπ¡¬µ¿¿ úñÑ-Γ« ó ¿¡«¼ ¼ÑßΓÑ,
  278.       τѼ ó ¬«¡µÑ ÑÑ, «»ÑαáΓ«α EXIT DEF.
  279.  
  280.       æ¼. ΓᬪѠ    LOCAL
  281.                     SHARED
  282.                     STATIC
  283.  
  284.       Åα¿¼Ñα:
  285.            $STACK &H&FFF
  286.              éßÑú«=1
  287.              def fn Σá¬Γ«α¿á½%(i%)
  288.              '¥Γá Σπ¡¬µ¿∩ óδτ¿ß½∩ÑΓ Σá¬Γ«α¿á½ »áαá¼ÑΓαá i%
  289.              éßÑú«=éßÑú«*i%
  290.              if i%>1 then
  291.                æáí%=fnΣá¬Γ«α¿á½%(i%)
  292.              endif
  293.              fnΣá¬Γ«α¿á½%=éßÑú«
  294.              end def '¬«¡Ñµ Σπ¡¬µ¿¿ fnΣá¬Γ«α¿á½
  295.              print "éóÑßΓ¿ τ¿ß½«,¬«Γ«α«Ñ óδ ªÑ½áÑΓÑ «íßτ¿ΓáΓ∞"
  296.              input "Σá¬Γ«α¿á½:",j%
  297.              print fnΣá¬Γ«α¿á½%(j%)
  298.              end
  299.  
  300.  
  301.                Ä»ÑαáΓ«αδ DEFINT, DEFLNG, DEFSNG, DEFDBL, DEFSTR
  302.                ------------------------------------------------
  303.  
  304.       öπ¡¬µ¿∩    çá∩ó½∩εΓ Γ¿» ¿ñÑ¡Γ¿Σ¿¬áΓ«α«ó »ÑαѼѡ¡δσ »« π¼«½τá¡¿ε.
  305.       --------
  306.  
  307.       æ¿¡Γá¬ß¿ß  DEFΓ¿» íπ¬óÑ¡¡δ⌐ ñ¿á»áº«¡[,íπ¬óÑ¡¡δ⌐ ñ¿á»áº«¡]...
  308.       ---------
  309.  
  310.       çá¼Ñτá¡¿∩        Æ¿»  »αÑñßΓáó½∩ÑΓ «ñ¿¡ ¿º »∩Γ¿ Γ¿»«ó »ÑαѼѡ¡δσ
  311.       ---------        Æπαí«-üÑ⌐ß¿¬á: INT (µÑ½«Ñ), LNG (ñ½¿¡¡á∩ µÑ½á∩),
  312.       SNG   (Ññ¿¡¿τ¡«⌐   Γ«τ¡«ßΓ¿),   DBL   (ñó«⌐¡«⌐  Γ«τ¡«ßΓ¿)  ¿  STR
  313.       (ßΓα«τ¡á∩). üπ¬óÑ¡¡δ⌐ ñ¿á»áº«¡ - φΓ«  ½¿í« «ñ¡á á½Σáó¿Γ¡á∩ ½¿ΓÑαá
  314.       («Γ  á ñ« z, αÑú¿ßΓα íѺαẽ¿τÑ¡), ½¿í« ñ¿á»áº«¡ íπ¬ó (ñóÑ íπ¬óδ,
  315.       αáºñѽѡ¡δÑ Γ¿αÑ; ¡á»α¿¼Ñα, Ç-î). 
  316.          Ä»ÑαáΓ«α   DEFΓ¿»   ß««íΘáÑΓ  ¬«¼»¿½∩Γ«απ,  τΓ«  »ÑαѼѡ¡δÑ  ¿
  317.       «»αÑñѽ∩ѼδÑ    »«½∞º«óáΓѽѼ   Σπ¡¬µ¿¿,   ¡áτ¿¡áεΘ¿Ñß∩   ß«
  318.       ß»Ñµ¿Σ¿µ¿α«óá¡¡δσ  íπ¬ó  ¿½¿  ñ¿á»áº«¡á íπ¬ó, íπñπΓ «»αÑñѽѡ¡«ú«
  319.       Γ¿»á.  ¥Γ«  ñáÑΓ óἠ󫺼«ª¡«ßΓ∞ ¿ß»«½∞º«óáΓ∞ »ÑαѼѡ¡δÑ, ¿¡δÑ,
  320.       τѼ  ß »½áóáεΘÑ⌐ Γ«τ¬«⌐ Ññ¿¡¿τ¡«⌐ Γ«τ¡«ßΓ¿, ó óáΦÑ⌐ »α«úαἼѠíѺ
  321.       ó¬½ετÑ¡¿∩ ¿ñÑ¡Γ¿Σ¿¬áΓ«α«ó Γ¿»á (¡á»α¿¼Ñα, %,#) 
  322.          Å« π¼«½τá¡¿ε, ¬«úñá ¬«¼»¿½∩Γ«α«¼ «í¡áαπª¿óáÑΓß∩ ¿¼∩ »ÑαѼѡ¡«⌐
  323.       íѺ   ¿ñÑ¡Γ¿Σ¿¬áΓ«αá   Γ¿»á,   «¡«  »αÑñ»«½áúáÑΓß∩  »ÑαѼѡ¡«⌐  ß
  324.       »½áóáεΘÑ⌐ Γ«τ¬«⌐ Ññ¿¡¿τ¡«⌐ Γ«τ¡«ßΓ¿. ìá»α¿¼Ñα, ó »α¿óÑñÑ¡¡«¼ ¡¿ªÑ
  325.       «»ÑαáΓ«αÑ ¿ N ¿ M »«½áúáεΓß∩ ¿¼ÑεΘ¿¼¿ Ññ¿¡¿τ¡πε Γ«τ¡«ßΓ∞:
  326.              N=M+16
  327.       àß½¿, «ñ¡á¬«, φΓ«¼π «»ÑαáΓ«απ »αÑñΦÑßΓó«óὫ DEFINT N,M, Γ« N ¿ M
  328.       ñ«½ª¡δ  íδΓ∞  µÑ½δ¼¿,  ¬á¬ ¿ ½εíá∩ ñαπúá∩ »ÑαѼѡ¡á∩, ¿¼∩ ¬«Γ«α«⌐
  329.       ¡áτ¿¡áÑΓß∩ ß N ¿½¿ M óÑασ¡Ñú« ¿½¿ ¡¿ª¡Ñú« αÑú¿ßΓαá. 
  330.          êß»«½¡Ñ¡¿Ñ  DEFΓ¿»  ó Æπαí«-üÑ⌐ß¿¬Ñ «Γñ¿τáÑΓß∩ «Γ ¿ß»«½¡Ñ¡¿∩ ó
  331.       ê¡ΓÑα»αÑΓáΓ«α¡«¼    üÑ⌐ß¿¬Ñ.    ê¡ΓÑα»αÑΓáΓ«α    ßπñ¿Γ   «   Γ¿»Ñ
  332.       ß««ΓóÑΓßΓóÑ¡¡«  Γ«¼π,  úñÑ  »«∩ó¿½ß∩  «»ÑαáΓ«α  DEFΓ¿»  ó »«α∩ñ¬Ñ
  333.       ¿ß»«½¡Ñ¡¿∩  »α«úαá¼¼δ.  Æπαí«-üÑ⌐ß¿¬,  ¬á¬ ¬«¼»¿½∩Γ«α, αáßß¼áΓα¿-
  334.       óáÑΓ  »«½«ªÑ¡¿Ñ DEFΓ¿» ó ¿ßσ«ñ¡«¼ Σá⌐½Ñ. ìá»α¿¼Ñα, »α¿ ¿ß»«½¡Ñ¡¿¿
  335.       φΓ«⌐ »α«úαá¼¼δ: 
  336.              10 goto 30
  337.              20 defint a-m
  338.              30 j=45.3:print j
  339.       ê¡ΓÑα»αÑΓáΓ«α¡δ⌐  üÑ⌐ß¿¬  ¡¿¬«úñá  ¡Ñ  ºá¼ÑΓ¿Γ  ºá∩ó½Ñ¡¿Ñ  Γ¿»á ó
  340.       ßΓα«¬Ñ  20. è«úñá «¡ ñ«í¿αáÑΓß∩ ñ« j ó ßΓα«¬Ñ 30 φΓ« j ßΓá¡«ó¿Γß∩
  341.       »ÑαѼѡ¡«⌐   Ññ¿¡¿τ¡«⌐   Γ«τ¡«ßΓ¿   ¿   ¡Ñ   τ¿ΓáÑΓß∩  ¬á¬  45.3.
  342.       Æπαí«-üÑ⌐ß¿¬,  ¡á«í«α«Γ,  »α¿¡¿¼áÑΓ  αÑΦÑ¡¿Ñ « Γ¿»Ñ »ÑαѼѡ¡«⌐ ó«
  343.       óαѼ∩  ¬«¼»¿½∩µ¿¿  ó¡Ñ  ºáó¿ß¿¼«ßΓ¿ «Γ ¿ß»«½¡¿Γѽ∞¡«ú« »α«σ«ñá («
  344.       ¬«Γ«α«¼  ó«  óαѼ∩ ¬«¼»¿½¿α«óá¡¿¿ ¡¿τÑú« ¡Ñ ¿ºóÑßΓ¡«). ìÑ«íσ«ñ¿¼«
  345.       »«ºáí«Γ¿Γß∩ Γ«½∞¬« «Γ«¼, τΓ«íδ «»ÑαáΓ«α DEFINT Σ¿º¿τÑ߬¿ »«∩ó¿½ß∩
  346.       ñ«  »«∩ó½Ñ¡¿∩  j  ó»ÑαóδÑ,  ó αѺπ½∞ΓáΓÑ τÑú« j «¬áºδóáÑΓß∩ µÑ½«⌐
  347.       »ÑαѼѡ¡«⌐ ¿ αáß»ÑτáΓδóáÑΓß∩ 45.
  348.  
  349.       Äúαá¡¿τÑ¡¿∩      Ä»ÑαáΓ«α«¼   DEFΓ¿»   íπñÑΓ »ÑαÑ«»αÑñѽ∩Γ∞ß∩ Γ¿»
  350.       -----------      ½εíδσ  ß««ΓóÑΓßΓóπεΘ¿σ  »ÑαѼѡ¡δσ,  ¬«Γ«αδÑ πªÑ
  351.       ¿ß»«½∞ºπεΓß∩    ó   »α«úαá¼¼Ñ.   Åα«úαἼᠠ ß½ÑñπεΘÑú«   »α¿¼Ñαá
  352.       ñѼ«¡ßΓα¿απÑΓ φëà¬αá⌐¡Ñ ó᪡δ⌐ ¼«¼Ñ¡Γ. 
  353.  
  354.       Åα¿¼Ñα:
  355.             i=39567.999
  356.              print "τ¿ß½« Ññ.Γ«τ¡«ßΓ¿",i
  357.              defsng i
  358.              print "µÑ½«Ñ τ¿ß½«",i
  359.              defdbl a-c
  360.              deflng j-z
  361.              a=32767.1
  362.              z=-1
  363.              i=&H8FFF
  364.              print "Γα¿ αạδσ Γ¿»á",f,z,i
  365.              end
  366.  
  367.  
  368.                                Ä»ÑαáΓ«α DEF SEG
  369.                                ----------------
  370.  
  371.       öπ¡¬µ¿∩          DEF SEG   «»αÑñѽ∩ÑΓ ßÑú¼Ñ¡Γ ñá¡¡δσ, »«ñ½ÑªáΘ¿σ
  372.       -------          ¿ß»«½∞º«óá¡¿ε  «»ÑαáΓ«αἿ  BLOAD,  BSAVE, CALL,
  373.       ABSOLUTE, PEEK ¿ POKE.
  374.  
  375.       æ¿¡Γá¬ß¿ß        DEF SEG [=τ¿ß½«ó«Ñ óδαáªÑ¡¿Ñ]
  376.       ---------
  377.  
  378.       çá¼Ñτá¡¿∩        ù¿ß½«ó«Ñ  óδαáªÑ¡¿Ñ  ¼«ªÑΓ ¡áσ«ñ¿Γß∩ ó ñ¿á»áº«¡Ñ
  379.       ---------        «Γ 0 ñ« 65535. DEF SEG «»αÑñѽ∩ÑΓ ßÑú¼Ñ¡Γ »á¼∩Γ¿
  380.       ó   ¬«Γ«α«¼   íπñπΓ   ß»Ñµ¿Σ¿µ¿α«óáΓ∞ß∩  «ΓóÑΓó½Ñ¡¿∩  »«ß½ÑñπΘ¿¼¿
  381.       «»ÑαáΓ«αἿ BLOAD, BSAVE, CALL, ABSOLUTE, PEEK, POKE. æÑú¼Ñ¡Γ-φΓ«
  382.       áñαÑßπεΘá∩ ¬«¡ßΓαπ¬µ¿∩, ¿ß»«½∞ºπѼá∩ »α«µÑßß«αἿ ßѼÑ⌐ßΓóá ê¡Γѽ
  383.       86.  ÇñαÑßá  ñ«½ª¡δ  ß»Ñµ¿Σ¿µ¿α«óáΓ∞ß∩  ñóπ¼∩  µÑ½δ¼¿,  ßÑú¼Ñ¡Γ ¿
  384.       «ΓóÑΓó½Ñ¡¿Ñ ó ßÑú¼Ñ¡Γ.
  385.          DEF  SEG  íѺ  áαúπ¼Ñ¡Γá  ó«ºóαáΘáÑΓ  º¡áτÑ¡¿Ñ  ßÑú¼Ñ¡Γá ¬ Ñú«
  386.       º¡áτÑ¡¿ε  »«  π¼«τá¡¿ε  ¡á  ¼«¼Ñ¡Γ  ºá»π߬á.  ÅÑαóδÑ  256  íá⌐Γ«ó
  387.       ßÑú¼Ñ¡Γá  »« π¼«½τá¡¿ε ß«ñÑαªáΓ ¿¡Σ«α¼áµ¿ε, ¿ß»«½∞ºπѼπε ß¿ßΓѼ«⌐
  388.       »«ññÑ᪬¿  óαѼѡ¿  »α«ú«¡á óáΦÑ⌐ »α«úαá¼¼δ. é φΓ«¼ ßÑú¼Ñ¡ΓÑ ÑßΓ∞
  389.       «ñ¿¡ ¿¡ΓÑαÑß¡δ⌐ áñαÑß »α¿ «ΓóÑΓó½Ñ¡¿¿ &HF4E. ç¡áτÑ¡¿∩ óßΓáó½Ñ¡¡δÑ
  390.       ¬«¼á¡ñ«⌐ POKE »« φΓ«¼π áñαÑßπ ¿º¼Ñ¡∩εΓ ΓѬßΓ ºá»¿ßá¡¡δ⌐ ¡á φ¬αá¡Ñ
  391.       ó  ½εí«¼ úαáΣ¿τÑ߬«¼ αѪ¿¼Ñ. ûóÑΓ ºáó¿ß¿Γ «Γ Γ«ú«, ó ¬á¬«¼ αѪ¿¼Ñ
  392.       óδ  ¡áσ«ñ¿½¿ß∞.  äαπú«⌐  »«½Ñº¡δ⌐  áñαÑß  ó  ßÑú¼Ñ¡ΓÑ  ñá¡¡δσ  »«
  393.       π¼«½τá¡¿ε  ¡áσ«ñ¿Γß∩  ó  ∩τÑ⌐¬Ñ 0 ¿ 1. ¥Γ« ß½«ó« ß«ñÑαª¿Γ ßÑú¼Ñ¡Γ
  394.       ßΓ᫬ Æπαí«-üÑ⌐ß¿¬á.
  395.  
  396.       æ¼. ΓᬪѠ     COLOR
  397.  
  398.       Åα¿¼Ñα:
  399.              '¥Γá  »α«úαἼᠠ»«ºó«½∩ÑΓ  ºá»«½¡¿Γ∞  φ¬αá¡ íπ¬óἿ Ç,
  400.              'óßΓáó½Ñ¡¡δ¼¿ ¡Ñ»«ßαÑñßΓóÑ¡¡« ó ó¿ñÑ«-»á¼∩Γ∞, «»αÑñѽ¿Γ∞
  401.              'Σπ¡¬µ¿ε,   ¬«Γ«αá∩  πßΓá¡áó½¿óáÑΓ  áñαÑß  ó¿ñÑ«-»á¼∩Γ¿,
  402.              '»«½πτ¿Γ∞ Γ¿» ó¿ñÑ«-»½áΓδ «Γ »«½∞º«óáΓѽ∩ 
  403.              def fn é¿ñÑ«¥¬αá¡%
  404.                local ¥¬αá¡áÆ¿»%
  405.                print "Γ¿» φ¬αá¡á ?"
  406.                input "[1 ñ½∩ ¼«¡«,2 ñ½∩ µóÑΓ¡«ú«]",¥¬αá¡áÆ¿»%
  407.                select case ¥¬αá¡áÆ¿»%
  408.                 case 1
  409.                   fn é¿ñÑ«¥¬αá¡%=&HB000
  410.                 case 2
  411.                   fn é¿ñÑ«¥¬αá¡%=&HB800
  412.                 end select
  413.               end def
  414.              def seg=fné¿ñÑ«¥¬αá¡%
  415.              for i%=0 to 4000 step 2
  416.              poke i%,asc("A")
  417.              next i%
  418.              end
  419.  
  420.  
  421.                                 Ä»ÑαáΓ«α DELAY
  422.                                 --------------
  423.  
  424.       öπ¡¬µ¿∩    DELAY óßΓáó½∩ÑΓ »áπºπ
  425.       -------
  426.  
  427.       æ¿¡Γá¬ß¿ß  DELAY ßѬπ¡ñδ
  428.       ---------
  429.  
  430.       çá¼Ñτá¡¿∩        ßѬπ¡ñá - φΓ«  τ¿ß½«ó«Ñ  óδαáªÑ¡¿Ñ, «»αÑñѽ∩εΘÑÑ
  431.       ---------        τ¿ß½«  ßѬπ¡ñ  »áπºδ, óδ»«½¡∩Ѽ«⌐ Æπαí«-üÑ⌐ß¿¬«¼
  432.       »ÑαÑñ   ¿ß»«½∞º«ó᡿Ѽ  ß½ÑñπΘÑú«  «»ÑαáΓ«αá.  Åα¿¼Ñτá¡¿Ñ:  DELAY
  433.       »α¿¡¿¼áÑΓ  áαúπ¼Ñ¡Γδ ß »½áóáεΘÑ⌐ Γ«τ¬«⌐, á ñα«í¡δÑ ºáñÑ᪬¿ ¼«ª¡«
  434.       ß»Ñµ¿Σ¿µ¿α«óáΓ∞ ß αáºαÑΦÑ¡¿Ñ¼ »α¿¼Ñα¡« 0.054.
  435.          êß»«½∞º«óá¡¿Ñ  DELAY, á ¡Ñ »α«úαá¼¼¡«ú« µ¿¬½á ¡¿τÑú«¡Ññѽ᡿∩,
  436.       ß¬áºδóáÑΓß∩  ¡á  »α«úαá¼¼áσ,  ¬«Γ«αδÑ  »α«ú«¡∩εΓß∩  ¡á  ¼áΦ¿¡áσ ß
  437.       αạ«⌐   ß¬«α«ßΓ∞ε   «íαáí«Γ¬¿  (Γ.Ñ.  íếαπεΘ¿σß∩  ¡á  8088  »«
  438.       ßαáó¡Ñ¡¿ε  ß  íếαπεΘ¿¼¿ß∩  ¡á 80286, ¿½¿ 6 îúµ »« ßαáó¡Ñ¡¿ε ß 8
  439.       îúµ).
  440.  
  441.       Åα¿¼Ñα:
  442.              print "ì᪼¿ΓÑ ½εíπε ¬¡«»¬π ñ½∩ ºáóÑαΦÑ¡¿∩ »α«úαá¼¼δ"
  443.              while not instat
  444.              locate 10,30
  445.              print time$
  446.              delay 5
  447.              wend
  448.              end
  449.  
  450.  
  451.                                  Ä»ÑαáΓ«α DIM
  452.                                  ------------
  453.  
  454.       öπ¡¬µ¿∩     DIM ºá∩ó½∩ÑΓ ¼áßß¿ó
  455.       -------
  456.  
  457.       æ¿¡Γá¬ß¿ß        DIM{static!dynamic}»ÑαѼѡ¡á∩(»«ñßΓα«τ¡δ⌐
  458.                        ¿¡ñѬß)[,»ÑαѼѡ¡á∩(»«ñßΓα«τ¡δ⌐ ¿¡ñѬߠ)]...
  459.          DIM {static!dynamic}»ÑαѼѡ¡á∩(¼¿¡:¼á¬ß)[,¼¿¡:¼á¬ß]...)[,»ÑαÑ-
  460.          ¼Ñ¡¡á∩(¼¿¡:¼á¬ß)[,¼¿¡:¼á¬ß]...)]... 
  461.  
  462.       çá¼Ñτá¡¿Ñ        ÅÑαѼѡ¡á∩ - φΓ« ¿ñÑ¡Γ¿Σ¿¬áΓ«α, ¿ß»«½∞ºπѼδ⌐ ñ½∩
  463.       ---------        ¼áßß¿óá.  Å«ñßΓα«τ¡δ⌐  ¿¡ñѬߠ - φΓ« αáºñѽ∩Ѽδ⌐
  464.       ºá»∩Γ묨  ß»¿ß«¬  «ñ¡«ú«  ¿½¿ í«½ÑÑ µÑ½δσ óδαáªÑ¡¿⌐, «»αÑñѽ∩εΘ¿⌐
  465.       αẼÑαδ  ¼áßß¿óá.  DIM ºá∩ó½∩ÑΓ ¼áßß¿ó¡δÑ »ÑαѼѡ¡δÑ ¿ «»αÑñѽ∩ÑΓ
  466.       ¿σ  αẼÑα  ¿  τ¿ß½«  ¿º¼ÑαÑ¡¿⌐.  é  »«α∩ñ¬Ñ π½πτΦÑ¡¿∩ ß¿¡Γá¬ß¿ßá
  467.       ¿¡ΓÑα»αÑΓáΓ«α¡«ú«  üÑ⌐ß¿¬á,  Æπαí«-üÑ⌐ß¿¬  ñáÑΓ  óá¼  ó«º¼«ª¡«ßΓ∞
  468.       «»αÑñѽ∩Γ∞  ñ¿á»áº«¡  º¡áτÑ¡¿⌐ »«ñßΓα«τ¡δσ ¿¡ñѬ߫ó (¼¿¡:¼á¬ß), á
  469.       ¡Ñ Γ«½∞¬« óÑασ¡¿⌐ »αÑñѽ, ¡á»α¿¼Ñα: 
  470.            DIM B(50:60)
  471.       ß«ºñáÑΓ  ¼áß߿󠿺 11 φ½Ñ¼Ñ¡Γ«ó Ññ¿¡¿τ¡«⌐ Γ«τ¡«ßΓ¿, ¡π¼ÑαπѼδσ «Γ
  472.       50 ñ« 60. Ä»ÑαáΓ«α«¼ 
  473.              DIM C(50:60,25:45)
  474.     ß«ºñáÑΓß∩ ñóπ¼Ñα¡δ⌐ ¼áßß¿ó ß «íΘ¿¼ τ¿ß½«¼ φ½Ñ¼Ñ¡Γ«ó 11*21.
  475.     æ¿¡Γá¬ß¿ß ñ¿á»áº«¡á ¼«ª¡« αáßΦ¿α∩Γ∞ ¡á ¼¡«ú«¼Ñα¡δÑ ¼áßß¿óδ:
  476.              DIM α«ªñÑ¡¿∩(1800:1899,1:12)
  477.          ä½∩  «»αÑñѽѡ¿∩  ¡á¿¼Ñ¡∞ΦÑú«  φ½Ñ¼Ñ¡Γá  ó ¼áßß¿óÑ ¼«ª¡« ΓᬪÑ
  478.       ¿ß»«½∞º«óáΓ∞  ßó∩ºá¡¡δÑ  «»ÑαáΓ«αδ  OPTION BASE, σ«Γ∩ ñ¿á»áº«¡¡δ⌐
  479.       ¼Ñσá¡¿º¼ í«½ÑÑ ¼«Θ¡«Ñ ¿ »αÑñ»«τΓ¿Γѽ∞¡«Ñ ßαÑñßΓó«.
  480.          è«úñá    »α«úαἼᠠ  ¿ß»«½∞ºπÑΓß∩    ó»ÑαóδÑ,    Æπαí«-üÑ⌐ß¿¬
  481.       πßΓá¡áó½¿óáÑΓ  ¬áªñδ⌐  φ½Ñ¼Ñ¡Γ  τ¿ß½«ó«ú« ¼áßß¿óá ó 0, á ßΓα«τ¡δÑ
  482.       ¼áßß¿óδ-ó ¡π½∞-ßΓ᫬π (ñ½¿¡á=0). àß½¿ »α«úαἼᠺá»π߬áÑΓß∩ ó¡«ó∞
  483.       ß    »«¼«Θ∞ε    «»ÑαáΓ«αá    RUN,   τ¿ß½«óδÑ   ¼áßß¿óδ   »«óΓ«α¡«
  484.       πßΓá¡áó½¿óáεΓß∩ ó ¡«½∞, á ßΓα«τ¡δÑ ¼áßß¿óδ ó ¡«½∞-ßΓ᫬π. 
  485.          àß½¿  ¼áßß¿ó¡á∩  »ÑαѼѡ¡á∩  ¿ß»«½∞ºπÑΓß∩  íѺ »αÑñΦÑßΓóπεΘÑú«
  486.       «»ÑαáΓ«αá   DIM,   ¼á¬ß¿¼á½∞¡δ¼   »«ñßΓα«τ¡δ¼  ¿¡ñѬ߫¼  ∩ó½∩ÑΓß∩
  487.       º¡áτÑ¡¿Ñ  10  »«  π¼«½τá¡¿ε,  ¬á¬  Ñß½¿  íδ  ó¬½ετ¿½¿  (10) ó óáΦ
  488.       «»ÑαáΓ«α   DIM.  Äñ¡á¬«  »αÑñ»«τΓ¿Γѽ∞¡«  ó  »αá¬Γ¿τÑ߬«⌐  αáí«ΓÑ
  489.       ºá∩ó½∩Γ∞ ¬áªñδ⌐ ¼áßß¿ó ∩ó¡«. 
  490.          î¿¡¿¼á½∞¡«Ñ  º¡áτÑ¡¿Ñ,  ¬«Γ«α«Ñ  ¼«ª¡« ¿ß»«½∞º«óáΓ∞ ó ¬áτÑßΓóÑ
  491.       »«ñßΓα«τ¡«ú«  ¿¡ñѬßá ó ¼aßß¿óáσ, ÑßΓ∞ 0, Ñß½¿ ¡Ñ ß»Ñµ¿Σ¿µ¿απÑΓß∩
  492.       ¿¡«Ñ ß »«¼«Θ∞ε ¬«¼á¡ñδ OPTION BASE. 
  493.          Ä»µ¿«¡á½∞¡δÑ    áαúπ¼Ñ¡Γδ    STATIC   ¿   DYNAMIC   π»αáó½∩εΓ,
  494.       ß««ΓóÑΓßΓóÑ¡¡«,  ΓѼ,  íπñÑΓ  ½¿ »α«ßΓαá¡ßΓó« ñ½∩ ¼áßß¿óá ºáαá¡ÑÑ
  495.       αáß»αÑñѽ∩Γ∞ß∩    ¬«¼»¿½∩Γ«α«¼,    ¿½¿   »«ñ½Ñª¿Γ   αáß»αÑñѽѡ¿ε
  496.       ñ¿¡á¼¿τÑ߬¿.  àß½¿ φëàáαúπ¼Ñ¡Γ «»π߬áÑΓß∩, ¼áßß¿óδ »« π¼«½τá¡¿ε
  497.       αẼÑΘáεΓß∩  ¬á¬  ßΓáΓ¿τÑ߬¿Ñ,  Ñß½¿  πªÑ  ¡Ñ  ºáñá¡ ¼ÑΓá«»ÑαáΓ«α
  498.       $DYNAMIC,   Ñß½¿  ó  ºá∩ó½Ñ¡¿¿  DIM  ¡Ñ  ¿ß»«½∞ºπÑΓß∩  ¬á¬«Ñ-½¿í«
  499.       óδαáªÑ¡¿Ñ,  Ñß½¿  ¿¼∩ ¼áßß¿óá ¡Ñ »«∩ó½∩ÑΓß∩ ó ñóπσ «»ÑαáΓ«αáσ DIM
  500.       ¿½¿ Ñß½¿ ¼áßß¿ó ¡Ñ ºá∩ó½Ñ¡ ½«¬á½∞¡δ¼ ó »α«µÑñπαÑ ½¿í« Σπ¡¬µ¿¿. 
  501.          ÅÑαѬ½ετáΓѽ∞    »α«óÑન   úαá¡¿µ,   ñ«ßΓπ»¡δ⌐   τÑαѺ   ¼Ñ¡ε
  502.       «»µ¿⌐,óδºδóáÑΓ  ß«ºñá¡¿Ñ  ¬«¼»¿½∩Γ«α«¼  ¬«ñá, ¬«Γ«αδ¼ »α«óÑα∩ÑΓß∩
  503.       »α¿Ñ¼½Ñ¼«ßΓ∞ »«ñßΓα«τ¡δσ ¿¡ñѬ߫ó »α¿ óß∩¬«⌐ ßßδ½¬Ñ ¡á ¼áßß¿ó.
  504.  
  505.       Éẽ¿τ¿∩         Æπαí«-üÑ⌐ß¿¬   ñáÑΓ   ó«º¼«ª¡«ßΓ∞   »α«úαá¼¼¿ßΓπ
  506.       --------         ß»Ñµ¿Σ¿µ¿α«óáΓ∞  ¡áτá½∞¡δ⌐  ¿  ¬«¡Ñτ¡δ⌐  ¿¡ñѬßδ
  507.       ¼áßß¿óá.    ê¡ΓÑα»αÑΓáΓ«α¡δ⌐   üÑ⌐ß¿¬   αẼÑΘáÑΓ   óßÑ   ¼áßß¿óδ
  508.       ñ¿¡á¼¿τÑ߬¿,   ¡«   Æπαí«-üÑ⌐ß¿¬  íπñÑΓ  »δΓáΓ∞ß∩  αẼÑßΓ¿Γ∞  ¿σ
  509.       ßΓáΓ¿τÑ߬¿   (ó«  óαѼ∩  ¬«¼»¿½¿α«óá¡¿∩),  τΓ«  ñѽáÑΓ  ¿σ  í«½ÑÑ
  510.       íδßΓα«ñ«ßΓπ»¡δ¼¿.  éδ  ¼«ªÑΓÑ ∩ó¡« »αÑ«ñ«½ÑóáΓ∞ Γ¿» ¿ß»«½∞ºπѼ«ú«
  511.       αẼÑΘÑ¡¿∩.
  512.  
  513.       æ¼.ΓᬪѠ $DYNAMIC
  514.                 FRE
  515.                 $STATIC
  516.  
  517.       Åα¿¼Ñα:
  518.             %îá¬ßÉẼ=20
  519.              %î¿¡ÉẼ=1
  520.              dim îáßß¿ó%(%î¿¡ÉẼ:%îá¬ßÉẼ)
  521.              for ßτÑΓτ¿¬i%=%î¿¡ÉẼ TO %îá¬ßÉẼ
  522.               îáßß¿ó%(ßτÑΓτ¿¬i%=%î¿¡αẼ to %îá¬ßÉẼ
  523.               îáßß¿ó%(ßτÑΓτ¿¬i%)=int(rnd*10)
  524.              next ßτÑΓτ¿¬i%
  525.              end
  526.  
  527.  
  528.                                Ä»ÑαáΓ«α DO/LOOP
  529.                                ----------------
  530.  
  531.       öπ¡¬µ¿∩       DO/LOOP-φΓ« µ¿¬½ ß ΓѬßΓ«¼ TRUE (¿ßΓ¿¡¡«) ¿½¿ FALSE
  532.       -------       (½«ª¡«) ó óÑασ¡Ñ⌐ ¿/¿½¿ ¡¿ª¡Ñ⌐ τáßΓ¿ µ¿¬½á.
  533.  
  534.       æ¿¡Γá¬ß¿ß   DO[{WHILE!UNTIL}óδαáªÑ¡¿Ñ]
  535.       ---------   .
  536.                   . «»ÑαáΓ«αδ [EXIT LOOP]
  537.                   .
  538.                   [LOOP!WEND][{WHILE!UNTIL}óδαáªÑ¡¿Ñ]
  539.  
  540.       çá¼Ñτá¡¿∩        éδαáªÑ¡¿Ñ - φΓ«   τ¿ß½«ó«Ñ  óδαáªÑ¡¿Ñ, ó ¬«Γ«α«¼
  541.       ---------        ¡Ñ¡π½ÑóδÑ    º¡áτÑ¡¿∩   »αÑñßΓáó½∩εΓ   TRUE,   á
  542.       ¡π½ÑóδÑ-FALSE.
  543.          DO  ¿ LOOP »αÑñßΓáó½∩εΓ ß«í«⌐ ßΓα«¿Γѽ∞¡δÑ φ½Ñ¼Ñ¡Γδ µ¿¬½«ó ñ½∩
  544.       óßÑσ  ß½πτáÑó.  Ä¡¿ »«ºó«½∩εΓ óá¼ ß«ºñáóáΓ∞ µ¿¬½δ ß ΓÑßΓ¿α«ó᡿Ѽ
  545.       πß½«ó¿∩  ºáóÑαΦÑ¡¿∩ ó óÑασ¡Ñ⌐ τáßΓ¿ µ¿¬½á, ó ¡¿ª¡Ñ⌐ Ñú« τáßΓ¿ ¿ ó
  546.       «í«¿σ  ¼ÑßΓáσ. Ä»ÑαáΓ«α DO óßÑúñá ñ«½ªÑ¡ íδΓ∞ ó »áαÑ ß «»ÑαáΓ«α«¼
  547.       LOOP  ó  ¡¿ª¡Ñ⌐  τáßΓ¿  µ¿¬½á.  ìÑß«óαáñÑ¡¿Ñ DO ¿ LOOP »α¿ó«ñ¿Γ ¬
  548.       «Φ¿í¬á¼ »Ñα¿«ñá ¬«¼»¿½¿α«óá¡¿∩. 
  549.          êß»«½∞ºπ⌐ΓÑ  WHILE  ¿  UNTIL  ñ½∩ ñ«íáó½Ñ¡¿∩ ¬á¬«ú«-Γ« ΓÑßΓá ¬
  550.       DO/LOOP.  êß»«½∞º«óá¡¿Ñ  αѺÑαó¿α«óá¡¡«ú«  ß½«óá WHILE πñ«í¡« »α¿
  551.       ¡Ñ«íσ«ñ¿¼«ßΓ¿  »«óΓ«αÑ¡¿∩  µ¿¬½á,  Ñß½¿  óδαáªÑ¡¿Ñ  êæÆêììÄ ¿ Ñú«
  552.       »αѬαáΘÑ¡¿¿, Ñß½¿ óδαáªÑ¡¿Ñ ïÄåìÄ. UNTIL óδºδóáÑΓ »α«Γ¿ó«»«½«ª¡δ⌐
  553.       φΣΣѬΓ,  Γ.Ñ.  µ¿¬½  íπñÑΓ  »αѬαáΘáΓ∞ß∩, Ñß½¿ πß½«ó¿Ñ êæÆêììÄ, ¿
  554.       íπñÑΓ »«óΓ«α∩Γß∩, Ñß½¿ «¡« ïÄåìÄ.
  555.  
  556.       ìá»α¿¼Ñα:
  557.          DO WHILE a=13
  558.              .
  559.              .ÄÅàÉÇÆÄÉ¢
  560.              .
  561.              LOOP
  562.              ¿ß»«½¡∩ÑΓ «»ÑαáΓ«αδ ¼Ñªñπ DO ¿ LOOP,»«¬á á αáó¡« 13.
  563.              DO UNTIL a=13                            -
  564.              .
  565.              .ÄÅàÉÇÆÄÉ¢
  566.              .
  567.               LOOP
  568.       ¿ß»«½¡∩ÑΓ  «»ÑαáΓ«αδ ¼Ñªñπ DO ¿ LOOP, »«¬á á ¡Ñ αáó¡« 13. é ½εí«⌐
  569.       Γ«τ¬Ñ   DO/LOOP   óδ  ¼«ªÑΓÑ  ó¬½ετáΓ∞  «»ÑαáΓ«α  EXIT/LOOP.  ¥Γ«
  570.       φ¬ó¿óá½Ñ¡Γ¡«   GOTO   ¬   «»ÑαáΓ«απ,  ¬«Γ«α«Ñ  óδ»«½¡∩ÑΓß∩  »«ß½Ñ
  571.       ºáóÑαΦÑ¡¿∩  LOOP. (ü«½ÑÑ »«ñα«í¡« ß¼. ó «»¿ßá¡¿¿ «»ÑαáΓ«αá EXIT).
  572.       ÄíαáΓ¿ΓѠ󡿼᡿Ѡ¡á Γ«, τΓ« φΓ« DO/LOOP:
  573.              DO WHILE A<B
  574.              .
  575.              .
  576.              .
  577.              LOOP
  578.              ¿¼ÑÑàëàªÑ φΣΣÑ¬Γ ,τΓ« ¿ µ¿¬½ WHILE/WEND:
  579.              WHILE A<B
  580.              .
  581.              .
  582.              .
  583.              WEND
  584.          ò«Γ∩  ¬«¼»¿½∩Γ«α«¼  ¡Ñ  αÑ὿ºπÑΓß∩  ºáí«Γá  « »«ñ«í¡δσ óÑΘáσ,
  585.       ñѽá⌐ΓÑ  «ΓßΓπ»  ñ½∩ «»ÑαáΓ«α«ó ¼Ñªñπ DO ¿ LOOP ¡á »áαπ »α«íѽ«ó.
  586.       ¥Γ« »«¼«úáÑΓ ∩ß¡ÑÑ »αÑñßΓáó¿Γ∞ ßΓαπ¬Γπαπ µ¿¬½á.
  587.  
  588.       Åα¿¼Ñα:
  589.             DO '¥Γá »α«úαἼᠪñÑΓ ¡áªáΓ¿∩ ¬½áó¿Φ¿
  590.              LOOP UNTIL INSTAT
  591.              END
  592.  
  593.  
  594.                              Ä»ÑαáΓ«α DRAW
  595.                              -------------
  596.  
  597.       öπ¡¬µ¿∩          DRAW  «íÑß»Ñτ¿óáÑΓ  óδτÑατ¿óá¡¿Ñ ¬«¡Γπα«ó ¡á
  598.       -------          úαáΣ¿τÑ߬«¼ φ¬αá¡Ñ.
  599.  
  600.       æ¿¡Γá¬ß¿ß        DRAW ßΓα«τ¡«Ñ óδαáªÑ¡¿Ñ
  601.       ---------
  602.  
  603.       çá¼Ñτá¡¿∩        DRAW   ñáÑΓ   úαáΣ¿¬π  «í∞Ñ¬Γ«ó  ¡á  úαáΣ¿τÑ߬«¼
  604.       ---------        φ¬αá¡Ñ  ó ß««ΓóÑΓßΓó¿¿ ß ¬«¼á¡ñἿ, ºá¬½ετÑ¡¡δ¼¿
  605.       ó  ßΓα«τ¡δ⌐ áαúπ¼Ñ¡Γ, ¬«Γ«αδ⌐ ó ¡Ñú« »«ñáÑΓß∩. é ñÑ⌐ßΓó¿Γѽ∞¡«ßΓ¿
  606.       "ßΓα«τ¡«Ñ óδαáªÑ¡¿Ñ" ÑßΓ∞ »α«úαá¼¼á ñ½∩ ¿¡ΓÑα»αÑΓáΓ«α¡«ú« "∩ºδ¬á"
  607.       DRAW.  Ä»ÑαáΓ«α  DRAW «íÑß»Ñτ¿óáÑΓ ¿ß»«½¡Ñ¡¿Ñ ¬«¼á¡ñ¡δσ ßΓ᫬ ñ½∩
  608.       »«½πτÑ¡¿∩  ¿º«íαáªÑ¡¿⌐  ¡á  φ¬αá¡Ñ  ó«  ¼¡«ú«¼  ΓᬪѠ ¬á¬ ¿ PLAY
  609.       ¿ß»«½¡∩ÑΓ ¬«¼á¡ñ¡δÑ ßΓ᫬¿ ñ½∩ ß«ºñá¡¿∩ ¼πºδ¬¿.
  610.  
  611.            -----------------------------------------------
  612.              ÅÑαѼÑΘÑ¡¿Ñ             è«¼á¡ñδ
  613.            -----------------------------------------------
  614.              Un                 ÅÑαѼÑßΓ¿Γ∞ óóÑασ
  615.              Dn                 ÅÑαѼÑßΓ¿Γ∞ ó¡¿º
  616.              Ln                 ÅÑαѼÑßΓ¿Γ∞ ó½Ñó«
  617.              Rn                 »ÑαѼÑßΓ¿Γ∞ ó»αáó«
  618.              En                 ÅÑαѼÑßΓ¿Γ∞ óóÑασ ¿ ó»αáó«
  619.              Fn                 ÅÑαѼÑßΓ¿Γ∞ ó¡¿º ¿ ó»αáó«
  620.              Cn                 ÅÑαѼÑßΓ¿Γ∞ ó¡¿º ¿ ó½Ñó«
  621.              Hn                 ÅÑαѼÑßΓ¿Γ∞ óóÑασ ¿ ó½Ñó«
  622.            -----------------------------------------------
  623.          n  -  αáßßΓ«∩¡¿Ñ  »ÑαѼÑΘÑ¡¿∩  (ß¼.Sn, ¼áßΦΓáí¡δ⌐ ¬«φΣΣ¿µ¿Ñ¡Γ,
  624.                «íßπªñáѼδ⌐ ¡¿ªÑ).
  625.          ÅÑαѼÑΘÑ¡¿Ñ   óßÑúñá   ¡áτ¿¡áÑΓß∩   ó   LRP  ¿  ß««ΓóÑΓßΓóÑ¡¡«
  626.       αÑúπ½¿απÑΓ   LRP  (LRP  «º¡áτáÑΓ  "Γ«τ¬á  »«ß½Ññ¡Ñ⌐  »«ß佬¿")  ¿
  627.       «»αÑñѽ∩Ñ  »«ß½Ññ¡εε  Γ«τ¬π,  ¡á  ¬«Γ«απε  ßßδ½á½¿ß∞ «»αÑñѽѡ¡δÑ
  628.       τÑαΓѪ¡δÑ  «»ÑαáΓ«αδ.  ü«½ÑÑ  ñÑΓá½∞¡πε  ¿¡Σ«α¼áµ¿ε ß¼. ó αáºñѽÑ
  629.       úαáΣ¿¬¿ âïÇ颠4). 
  630.              ìá»α¿¼Ñα:
  631.              DRAW "D10R5"
  632.       «íÑß»Ñτ¿óáÑΓ  óδτÑατ¿óá¡¿Ñ  L-«íαạ«⌐ Σ«α¼δ (󡿺 10, ó»αáó« 5),
  633.       ¡áτ¿¡á∩   ß   LPR.  Åα¿  φΓ«¼  LPR  πßΓá¡áó½¿óáÑΓß∩  ó  »«ß½Ññ¡Ñ¼
  634.       ºáñÑ⌐ßΓó«óá¡¡«¼ »¿¬ßѽÑ.
  635.          îx,y  «íÑß»Ñτ¿óáÑΓ  »ÑαѼÑΘÑ¡¿Ñ ó ¬««αñ¿¡áΓπ x,y. àß½¿ »ÑαÑñ x
  636.       ßΓ«¿Γ  º¡á¬  »½εß ¿½¿ ¼¿¡πß, »ÑαѼÑΘÑ¡¿Ñ «Γ¡«ß¿Γѽ∞¡«Ñ, ¿¡áτÑ «¡«
  637.       áíß«½εΓ¡«Ñ, ¡á»α¿¼Ñα: 
  638.              DRAW "D10R5 M30,50"
  639.       «íÑß»Ñτ¿óáÑΓ  óδτÑατ¿óá¡¿Ñ  L-Σ«α¼δ, á ºáΓѼ ñ«ó«ñ¿Γ ÑÑ ½¿¡¿Ñ⌐ ñ«
  640.       »¿¬ßѽá (30,50).
  641.          ïεí«⌐   ¬«¼á¡ñÑ  »ÑαѼÑΘÑ¡¿∩  ¼«úπΓ  »αÑñΦÑßΓó«óáΓ∞  ß½ÑñπεΘ¿Ñ
  642.       »αÑΣ¿¬ßδ: 
  643.              é -«íÑß»Ñτ¿óáÑΓ »ÑαѼÑΘÑ¡¿Ñ íѺ úαáΣ¿τÑ߬«ú« ¿º«íαáªÑ¡¿∩
  644.              N -«íÑß»Ñτ¿óáÑΓ »ÑαѼÑΘÑ¡¿Ñ, ¡« ΓᬪѠó«ºóαáΓ ó ¿ßσ«ñ¡«Ñ
  645.                 »«½«ªÑ¡¿Ñ »« «¬«¡τá¡¿¿.
  646.       ìá»α¿¼Ñα:
  647.              DRAW "BM180,20NU10ND101L10NR10"
  648.       «íÑß»Ñτ¿óáÑΓ  »ÑαѼÑΘÑ¡¿Ñ  íѺ  óδτÑατ¿óá¡¿∩ ó »¿¬ßѽ (180,20), á
  649.       ºáΓѼ óδτÑατ¿óá¡¿Ñ º¡á¬á »½εß.
  650.  
  651.                                 äαπú¿Ñ ¬«¼á¡ñδ
  652.                                 --------------
  653.          An  - «íÑß»Ñτ¿óáÑΓ πßΓá¡«ó¬π πú½á n. ç¡áτÑ¡¿Ñ n ¼«ªÑΓ ½ÑªáΓ∞ ó
  654.       ------- ñ¿á»áº«¡Ñ «Γ 0 ñ« 3, úñÑ 0 ß««ΓóÑΓßΓóπÑΓ 0 úαáñπß«ó, 1-90
  655.       úαáñπßá¼, 2-180 úαáñπßá¼ ¿ 3-270 úαáñπßá¼. 
  656.          TAn - «íÑß»Ñτ¿óáÑΓ »«ó«α«Γ ¡á  n  úαáñπß«ó.  ç¡áτÑ¡¿Ñ  n ¼«ªÑΓ
  657.       -------  ¡áσ«ñ¿Γß∩  ó  ñ¿á»áº«¡Ñ «Γ -360 ñ« +360 úαáñπß«ó. àß½¿ n
  658.       »«½«ª¿Γѽ∞¡«,  »«ó«α«Γ  «ßπΘÑßΓó½∩ÑΓß∩  »α«Γ¿ó τáß«ó«⌐ ßΓαѽ¬¿, á
  659.       Ñß½¿   n-«Γα¿µáΓѽ∞¡«,   Γ«  »«  τáß«ó«⌐  ßΓαѽ¬Ñ.  ç¡áτÑ¡¿∩  ó¡Ñ
  660.       ºá¬«¡¡«ú« ñ¿á»áº«¡á óδºδóáεΓ «Φ¿í¬π 5 »Ñα¿«ñá »α«ú«¡á. 
  661.          Cn   -  «íÑß»Ñτ¿óáÑΓ  óδτÑατ¿óá¡¿Ñ  ó  µóÑΓÑ  n.  ÄΓ¡«ß¿Γѽ∞¡«
  662.       -------  ñ¿á»áº«¡á  n  ßóÑα∩⌐ΓÑß∞  ß  «»ÑαáΓ«α«¼ PALETTE ó ¬áªñ«¼
  663.       αѪ¿¼Ñ   «Γ«íαáªÑ¡¿∩.  ûóÑΓ«¼  »«  π¼«½τá¡¿ε  ∩ó½∩ÑΓß∩  ¡á¿óδßΦ¿⌐
  664.       ºá¬«¡¡δ⌐ áΓα¿íπΓ. 
  665.          Sn  - «íÑß»Ñτ¿óáÑΓ πßΓá¡«ó¬π ¼áßΦΓáí¡«ú« ¬«φΣΣ¿µ¿Ñ¡Γᠬᬠn/4,
  666.       ------ úñÑ n ¼«ªÑΓ ½ÑªáΓ∞ ó ñ¿á»áº«¡Ñ «Γ 0 ño 255. ìá»α¿¼Ñα, Ñß½¿
  667.       n=8,    ¼áßΦΓáí¡δ⌐   ¬«φΣΣ¿µ¿Ñ¡Γ   αáóÑ¡   2.é   «»ÑαáΓ«αÑ   DRAW
  668.       «ßπΘÑßΓó½∩ÑΓß∩  π¼¡«ªÑ¡¿Ñ  ¼áßΦΓáí¡«ú«  ¬«φΣΣ¿µ¿Ñ¡Γá ¡á áαúπ¼Ñ¡Γδ
  669.       »α¿  U,  D,  L,  R, E, F, G, H ¿ «Γ¡«ß∩Θ¿σß∩ ¬ ¡¿¼ ¬«¼á¡ñá¼ î ñ½∩
  670.       «»αÑñѽѡ¿∩  ¬αá⌐¡Ñú«  αẼÑαá  «í∞Ñ¬Γ«ó. Å« π¼«½τá¡¿ε n αáó¡« 4,
  671.       τΓ«    ñáÑΓ   ¼áßΦΓáí¡δ⌐   ¬«φΣΣ¿µ¿Ñ¡Γ   αáó¡δ⌐   1   (Γ.Ñ.   íѺ
  672.       ¼áßΓáí¿α«óá¡¿∩). é¿ñ«ó«Ñ «Γ¡«ΦÑ¡¿Ñ ñ¿ß»½Ñ∩ ¬«Γ«αδ¼ óδ »«½∞ºπÑΓÑß∞
  673.       «»αÑñѽ∩ÑΓß∩  óºá¿¼«ßó∩º∞ε  X  ¿  Y. ìá ¿ñÑá½∞¡«¼, ¡ÑßπΘÑßΓóπεΘ¿¼
  674.       ñ¿ß»½ÑÑ  ß  ó¿ñ«óδ¼ «Γ¡«ΦÑ¡¿Ñ¼ 1/1 Γ«τ¬á ó ¡á»αáó½Ñ¡¿¿ X ¿¼ÑÑΓ Γπ
  675.       ªÑ   ñ½¿¡π,   τΓ«   ¿   ó   ¡á»αáó½Ñ¡¿¿  Y.  Äñ¡á¬«  ñ¿ß»½Ñ¿  ñ½∩
  676.       IBM-¬«¼»∞εΓÑα«ó ¿¼ÑεΓ ß½ÑñπΘ¿Ñ ó¿ñ«óδÑ «Γ¡«ΦÑ¡¿∩: 
  677.       ----------------------------------------------------------------
  678.        î«¡¿Γ«α-áñá»ΓÑα  ¥¬αá¡ 1  ¥¬αá¡ 2  ¥¬αá¡ 7/8/9   ¥¬αá¡ 10
  679.       ----------------------------------------------------------------
  680.           ûóÑΓ¡«⌐       5/6        5/12       ¡ÑΓ          ¡ÑΓ
  681.           ô½πτΦÑ¡¡δ⌐    5/6        5/12       8.76/12      ¡ÑΓ
  682.         ô½πτΦÑ¡¡δ⌐ ¼«¡« ¡ÑΓ        ¡ÑΓ        ¡ÑΓ        9.57/12
  683.       ----------------------------------------------------------------
  684.          X   VARPRT$(»ÑαѼѡ¡á∩)   «íÑß»Ñτ¿óáÑΓ  ¿ß»«½¡Ñ¡¿Ñ  ßπíßΓ᫬¿,
  685.       Γ.Ñ.  ¿ß»«½¡∩ÑΓ óΓ«απε ¬«¼á¡ñ¡πε ßΓα«¬π ¿º »Ñαó¿τ¡«⌐ DRAW ßΓ᫬¿.
  686.       X-¬«¼á¡ñá ó τѼ-Γ« »«ñ«í¡á GOSUB; ¡á»α¿¼Ñα: 
  687.              DRAW "X"+VARPRT$(x$)
  688.          P  µóÑΓ,  úαá¡¿µá  ßΓáαΓπÑΓ  ¡á  ΓѬπΘÑ⌐  (x,y)  ¬««αñ¿¡áΓÑ  ¿
  689.       «íÑß»Ñτ¿óáÑΓ  ºá»«½¡Ñ¡¿Ñ  µóÑΓ«¼  ûéàÆ,  «ßΓá¡áó½¿óá∩ß∞  ¡á º«¡áσ
  690.       µóÑΓá âÉÇìêûÇ. 
  691.          é ¬áªñ«¼ ß½πτáÑ áαúπ¼Ñ¡Γ n, x ¿½¿ y ¼«ªÑΓ íδΓ∞ ½¿í« ¬«¡ßΓá¡Γ«⌐
  692.       ½¿í« »ÑαѼѡ¡«⌐ ó Σ«α¼Ñ 
  693.              =VARPRT$(»ÑαѼѡ¡á∩);
  694.              ìá»α¿¼Ñα:
  695.              DRAW "e15"
  696.              Γ« ªÑ ,τΓ« ¿
  697.              á=15
  698.              DRAW "e="+VARPRT$(a)
  699.          DRAW  ¿ú¡«α¿απÑΓ  »α«íѽδ ó ßó«Ñ⌐ ¬«¼á¡ñ¡«⌐ ßΓα«¬Ñ - óδ ¼«ªÑΓÑ
  700.       »«ªÑ½áΓ∞ ¿ß»«½∞º«óáΓ∞ ¿σ, τΓ«íδ ßñѽáΓ∞ óáΦπ DRAW-»α«úαá¼¼π í«½ÑÑ
  701.       τ¿Γáíѽ∞¡«⌐. 
  702.  
  703.       Äúαá¡¿τÑ¡¿∩      Æπαí« -  üÑ⌐ß¿¬ ¡Ñ αáß»«º¡áÑΓ ¿¼Ñ¡á »ÑαѼѡ¡δσ ó
  704.       -----------      DRAW  ßΓ᫬áσ.  Å«φΓ«¼π  óδ ñ«½ª¡δ ñ½∩ ñ«ßΓπ»á ¬
  705.       ß«ñÑন¼«¼π  »ÑαѼѡ¡δσ  ó  »αÑñѽáσ DRAW-ßΓ᫬¿ ó« óαѼ∩ »α«ú«¡á
  706.       »«½∞º«óáΓ∞ß∩  VARPRT$(n).  é¼ÑßΓ«  DRAW  "U=I%"  ¿ß»«½∞ºπ⌐ΓÑ DRAW
  707.       "U="+VARPRT$(I%) 
  708.  
  709.       Åα¿¼Ñα:
  710.              screen 1            
  711.              ñ«¼¿¬$="u20 c5 e20 h5 d20 l30
  712.              draw ñ«¼¿¬$
  713.              draw "be3"
  714.              draw "p1,3"
  715.              for i%=1 to 280 step 40
  716.                draw "m="+varprt$(i%)+",40"
  717.                draw ñ«¼¿¬$
  718.              next i%
  719.              end
  720.  
  721.                                  Ä»ÑαáΓ«α END
  722.                                  ------------
  723.  
  724.       öπ¡¬µ¿∩         END ºáóÑαΦáÑΓ ¿ß»«½¡Ñ¡¿Ñ »α«úαá¼¼δ ¿½¿ «»αÑñѽ∩ÑΓ
  725.       --------        ¬«¡eµ ßΓαπ¬Γπα¡«ú« í½«¬á. 
  726.  
  727.       æ¿¡Γá¬ß¿ß       END[{DEF!IF!SELECT!SUB}]
  728.       ---------
  729.  
  730.       çá¼Ñτá¡¿∩       END   íѺ   áαúπ¼Ñ¡Γ«ó    ºáóÑαΦáÑΓ    ¿ß»«½¡Ñ¡¿Ñ
  731.       ---------       »α«úαá¼¼δ.   Ä»ÑαáΓ«α  END  ¼«ª¡«  αẼÑΘáΓ∞  úñÑ
  732.       πú«ñ¡«  ó »α«úαἼѠ¿ ¿σ ¼«ªÑΓ íδΓ∞ í«½ÑÑ «ñ¡«ú«. Äí¡áαπªÑ¡¿Ñ END
  733.       óδºδóáÑΓ  ºá¬αδΓ¿Ñ »α«αá¼¼«⌐ óßÑσ «Γ¬αδΓδσ Σá⌐½«ó ¿ ó«ºóαáΓ ó DOS
  734.       (¿½¿  ó  Æπαí«-üÑ⌐ß¿¬, ó ºáó¿ß¿¼«ßΓ¿ «Γ Γ«ú« «Γ¬πñá íδ½á ºá»πΘÑ¡á
  735.       »α«úαἼᠠó  αáí«Γπ). END ¬«¼»¿½∩Γ«α«¼ ßΓα«ú« ¡Ñ ΓαÑíπÑΓß∩, σ«Γ∩
  736.       »αá¬Γ¿τÑ߬¿   Ñú«   ¿ß»«½∞º«óáΓ∞  αѬ«¼Ñ¡ñπÑΓß∩.  àß½¿  »α«úαá¼¼á
  737.       óδσ«ñ¿Γ, ¿ß»«½¡¿ó óßÑ «»ÑαáΓ«αδ, ñ«ßΓ¿úáÑΓß∩ Γ«Γ ªÑ φΣΣѬΓ. 
  738.          END,  ºá  ¬«Γ«αδ¼  ß½ÑñπεΓ αѺÑαó¿α«óá¡¡δÑ ß½«óá DEF, IF, SUB,
  739.       SELECT, «»αÑñѽ∩εΓ ¬«¡Ñµ ßΓαπ¬Γπα¡«ú« í½«¬á.
  740.          æ¼.ΓᬪÑ
  741.              DEF
  742.              IF
  743.              SELECT
  744.              STOP
  745.              SUB
  746.  
  747.          Åα¿¼Ñα:
  748.              sub ÅπßΓá∩ Åα«µ
  749.              print "á½½«"
  750.              endsub
  751.              def fn ÅπßΓá∩ öπ¡¬µ$
  752.              end def
  753.              input  "êß»«½¡¿Γ∞ »α«µÑñπαπ ¿½¿ Σπ¡¬µ¿ε [1¿½¿2]"; è«Γ«αδ⌐%
  754.                      if è«Γ«αδ⌐%> 0 then 
  755.              select case è«Γ«αδ⌐%
  756.                  case 1
  757.                    call ÅπßΓá∩ Åα«µ
  758.                    end
  759.                  case 2
  760.                    print fnÅπßΓá∩ öπ¡¬µ$
  761.                    end
  762.                  case else
  763.                   print "üδ½ ßñѽᡠ¡Ñºá¬«¡¡δ⌐ óδí«α"
  764.                 end select
  765.              end if
  766.              end
  767.  
  768.  
  769.                                Ä»ÑαáΓ«α ENDMEM
  770.                                ---------------
  771.  
  772.       öπ¡¬µ¿∩          ENDMEM ó«ºóαáΘáÑΓ áñαÑß ¬«¡µá Σ¿º¿τÑ߬«⌐ »á¼∩Γ¿.
  773.       -------
  774.  
  775.       æ¿¡Γá¬ß¿ß        y=ENDMEM
  776.       ---------
  777.  
  778.       çá¼Ñτá¡¿∩        ENDMEM ó«ºóαáΘáÑΓ ñ½¿¡¡«Ñ µÑ½«Ñ, »αÑñßΓáó½∩εΘÑú«
  779.       ---------        áñαÑß »«ß½Ññ¡Ñú« íá⌐Γá Σ¿º¿τÑ߬«⌐ »á¼∩Γ¿. ENDMEM
  780.       ó   ß«τÑΓá¡¿¿   ß   MEMSET   ¼«ª¡«  ¿ß»«½∞º«óáΓ∞  ñ½∩  αẼÑΘÑ¡¿∩
  781.       »α«ßΓαá¡ßΓóá  ó  óδß«¬«⌐ »á¼∩Γ¿ ñ½∩ »α«úαá¼¼ ¡á ∩ºδ¬Ñ áßßѼí½Ñαá.
  782.       Å«¬á  ¿ß»«½∞ºπÑΓß∩  »α«úαá¼¼á,  ¡áσ«ñ∩Θá∩ß∩  ó  »á¼∩Γ¿,  ENDMEM ó
  783.       ñÑ⌐ßΓó¿Γѽ∞¡«ßΓ¿ ó«ºóαóáΘáÑΓ ¬«¡Ñµ Σ¿º¿τÑ߬«⌐ »á¼∩Γ¿ ¼¿¡πß αẼÑα
  784.       ß¿¼ó«½∞¡«⌐     Γáí½¿µδ.     è«úñá    Æπαí«-üÑ⌐ß¿¬    «ßπΘÑßΓó½∩ÑΓ
  785.       ¬«¼»¿½¿α«óá¡¿Ñ  ó  »á¼∩Γ∞,  «¡  «íÑß»Ñτ¿óáÑΓ  σαá¡Ñ¡¿Ñ ß¿¼ó«½∞¡«⌐
  786.       Γáí½¿µδ »« ¡á¿óδßΦѼπ áñαÑßπ »á¼∩Γ¿. 
  787.       æ¼.ΓᬪѠMEMSET
  788.  
  789.       Åα¿¼Ñα     PRINT "諡ѵ áñαÑßπѼ«⌐ »á¼∩Γ¿ αáóÑ¡:",endmem
  790.                  end
  791.  
  792.  
  793.                                Ä»ÑαáΓ«α ENVIRON
  794.                                ----------------
  795.  
  796.       öπ¡¬µ¿∩          ENVIRON ¼«ñ¿Σ¿µ¿απÑΓ ¿¡Σ«α¼áµ¿ε ó Γáí½¿µÑ ßαÑñδ.
  797.       -------
  798.  
  799.       æ¿¡Γá¬ß¿ß        ENVIRON ßΓα«τ¡«Ñ óδαáªÑ¡¿Ñ
  800.       ---------
  801.  
  802.       çá¼Ñτá¡¿∩        æΓα«τ¡«Ñ  óδαáªÑ¡¿Ñ  «»αÑñѽ∩ÑΓ  ¿¼∩  »áαá¼ÑΓαá,
  803.       ---------        »«ñ½ÑªáΘÑú«  ¿º¼Ñ¡Ñ¡¿ε, ñ«íáó½Ñ¡¿ε ¿½¿ ßΓ¿αá¡¿ε,
  804.       ¿  ß«íßΓóÑ¡¡«  ¿¡Σ«α¼áµ¿ε « ¡«ó«¼ »áαá¼ÑΓαÑ. ¥Γ¿ ñóÑ τáßΓ¿ ñ«½ª¡δ
  805.       αáºñѽ∩Γß∩  º¡á¬«¼  αáóÑ¡ßΓóá  (=).  ENVIRON  ¿  α«ñßΓóÑ¡¡á∩  Ñ¼π
  806.       Σπ¡¬µ¿∩  ENVIRON$ ¿ß»«½∞ºπεΓ∩ß ñ½∩ ¬«¡Σ¿úπαᵿ¿ ßαÑñδ, »«ñ½ÑªáΘÑ⌐
  807.       »«ñáτÑ  ó  »α«úαá¼¼δ,¿ß»«½¡∩ѼδÑ τÑαѺ «»ÑαáΓ«α SHELL. (Å«ñα«í¡πε
  808.       ¿¡Σ«α¼áµ¿ε  ß¼.  ó  «»¿ßá¡¿¿  «»ÑαáΓ«αá  SHELL  ¿  ¬«¼á¡ñδ  SET ó
  809.       ß»αáó«τ¡«¼ απ¬«ó«ñßΓóÑ »« DOS) . 
  810.       ìá»α¿¼Ñα:
  811.                       ENVIRON "PATH=\TURBOBAS"
  812.       πßΓá¡áó½¿óáÑΓ DOS-»áαá¼ÑΓα PATH ¡á "TURBOBAS". æ½Ññ«óáΓѽ∞¡« »α«-
  813.       »πΘÑ¡¡á∩ τÑαѺ SHELL ¬«»¿∩ COMMAND.COM íπñÑΓ áóΓ«¼áΓ¿τÑ߬¿ ¿ß¬áΓ∞
  814.       ß»αáó«τ¡¿¬ \TURBOBAS ñ½∩ ¡áσ«ªñÑ¡¿∩ Σá⌐½«ó, ¬«Γ«αδσ ¡ÑΓ ó ΓѬπΘѼ
  815.       ß»αáó«τ¡¿¬Ñ. ùΓ«íδ ßΓÑαÑΓ∞ »áαá¼ÑΓα ¿º Γáí½¿µδ ßαÑñδ, »«ß½Ñ º¡á¬á
  816.       α¬óÑ¡ßΓóá ßΓáó¿Γß∩ Γ«½∞¬« ñó«ÑΓ«τ¿Ñ (:): 
  817.                       ENVIRON "PATH=:"
  818.       ßΓ¿αáÑΓ ¿º Γáí½¿µδ ßαÑñδ »áαá¼ÑΓα »α«σ«ñá(PATH)
  819.  
  820.       Äúαá¡¿τÑ¡¿∩      éδ ¡Ñ ¼«ªÑΓÑ αáßΦ¿α∩Γ∞ »α«ßΓαá¡ßΓó« ßαÑñδ. ùΓ«íδ
  821.       -----------      ñ«íáó½∩Γ∞   ¡«óδÑ  óσ«ñδ  óδ  ñ«½ª¡δ  «ßó«í«ñ¿Γ∞
  822.       »α«ßΓαá¡ßΓó«, ßΓ¿αá∩ ßπΘÑßΓóπεΘ¿Ñ óσ«ñδ. 
  823.       æ¼. ΓᬪѠ  ENVIRON$
  824.                   SHELL
  825.  
  826.       Åα¿¼Ñα      PRINT ENVIRON$("PATH")
  827.                   ENVIRON "PATH=\"
  828.  
  829.  
  830.                                öπ¡¬µ¿∩ ENVIRON$
  831.                                ----------------
  832.  
  833.       öπ¡¬µ¿∩          ENVIRON$ óδñáÑΓ »áαá¼ÑΓα Γáí½¿µδ ßαÑñδ
  834.       -------
  835.  
  836.       æ¿¡Γá¬ß¿ß        s$=ENVIRON$(ßΓα«¬á »áαá¼ÑΓα«ó)
  837.       ---------        s$=ENVIRON$(n)
  838.  
  839.       çá¼Ñτá¡¿∩        æΓα«¬á   »áαá¼ÑΓα«ó - φΓ«  ßΓα«τ¡«Ñ   óδαáªÑ¡¿Ñ,
  840.       ----------       ß«ñÑαªáΘÑÑ  »áαá¼ÑΓα, »«ñ½ÑªáΘ¿⌐ óδñáτÑ. n-µÑ½«Ñ
  841.       óδαáªÑ¡¿Ñ  ó  ñ¿á»áº«¡Ñ  «Γ  1  ñ« 255. ENVIRON$ ¿ α«ñßΓóÑ¡¡δ⌐ Ñ⌐
  842.       «»ÑαáΓ«α   ENVIRON   ¿ß»«½∞ºπεΓß∩   ñ½∩  ¬«¡Σ¿úπα¿α«óá¡¿∩  ßαÑñδ,
  843.       »«ñ½ÑªáΘÑ⌐ »«ñáτÑ ó »α«úαá¼¼δ, ¿ß»«½∞ºπѼδÑ τÑαѺ «»ÑαáΓ«α SHELL.
  844.       àß½¿  ¿ß»«½∞ºπÑΓß∩  ßΓα«τ¡δ⌐ áαúπ¼Ñ¡Γ, ENVIRON$ ó«ºóαáΘáÑΓ ΓѬßΓ,
  845.       ¬«Γ«αδ⌐  ß½ÑñπÑΓ  ºá  ßΓ᫬«⌐ »áαá¼ÑΓα«ó ó Γáí½¿µÑ ßαÑñδ. æ½ÑñπÑΓ
  846.       ºá¼ÑΓ¿Γ∞   ENVIRON$  ñѽáÑΓ  αẽ¿τ¿Ñ  íπ¬ó  óÑασ¡Ñú«  ¿  ¡¿ª¡Ñú«
  847.       αÑú¿ßΓα«ó. àß½¿ ßΓα«¬á »áαá¼ÑΓα«ó ¡Ñ «í¡áαπª¿óáÑΓß∩ ¿½¿ ºá º¡á¬«¼
  848.       αáóÑ¡ßΓóá  ¡¿¬á¬«⌐  ΓѬßΓ  ¡Ñ  ß½ÑñπÑΓ, ó«ºóαáΦáÑΓß∩ ¡π½∞-ßΓ᫬á.
  849.       àß½¿  ¿ß»«½∞ºπÑΓß∩  τ¿ß½«óá∩  Σ«α¼á,  ENVIRON$ ó«ºóαáΘáÑΓ ßΓ᫬π,
  850.       ß«ñÑαªáΘπε  n-δ⌐  »áαá¼ÑΓα,  ßτ¿Γá∩  «Γ ¡áτá½á Γáí½¿µδ. àß½¿ n-ú«
  851.       »áαá¼ÑΓαá ¡ÑΓ, ó«ºóαáΘáÑΓß∩ ¡π½∞-ßΓ᫬á. 
  852.  
  853.  
  854.                                  öπ¡¬µ¿∩ EOF
  855.                                  -----------
  856.  
  857.       öπ¡¬µ¿∩          EOF     ó«ºóαáΘáÑΓ   ß«ßΓ«∩¡¿Ñ   ¬«¡µá    Σá⌐½á.
  858.       -------
  859.  
  860.       æ¿¡Γá¬ß¿ß        y=EOF(öá⌐½ì«¼)
  861.       ---------
  862.  
  863.       çá¼Ñτá¡¿∩        öá⌐½ì«¼ - φΓ« º¡áτÑ¡¿Ñ, ß»Ñµ¿Σ¿µ¿α«óá¡¡«Ñ  »α¿
  864.       ---------        «Γ¬αδΓ¿¿  Σá⌐½á.  EOF ó«ºóαáΘáÑΓ TRUE (-1), Ñß½¿
  865.       ¡á  ß»Ñµ¿Σ¿µ¿α«óá¡¡«¼  Σá⌐½Ñ  íδ½  ñ«ßΓ¿ú¡πΓ  ¬«¡Ñµ  Σá⌐½á; ¿¡áτÑ
  866.       ó«ºóαáΘáÑΓß∩  FALSE  (0). EÄF ºá¬«¡¡á Γ«½∞¬« ñ½∩ ñ¿ß¬«óδσ Σá⌐½«ó,
  867.       «Γ¬αδΓδσ  ñ½∩  »«ß½Ññ«óáΓѽ∞¡«ú« ñ«ßΓπ»á ¿ ñ½∩ ¬«¼¼π¡¿¬áµ¿«¡¡δσ
  868.       Σá⌐½«ó. é«ºóαáΘÑ¡¿Ñ Σπ¡¬µ¿Ñ⌐ EOF (-1) ñ½∩ ¬«¼¼π¡¿¬áµ¿«¡¡δσ Σá⌐½«ó
  869.       «º¡áτáÑΓ, τΓ« íπΣÑα »πßΓ. 
  870.  
  871.       Åα¿¼Ñα     OPEN "TEXT.DTA" FOR INPUT AS #1
  872.                  óÑασ:
  873.                  IF EOF(1) THEN
  874.                  PRINT C"ºá»¿ßÑ⌐ (ßΓ᫬) ó Σá⌐½Ñ TEXT.DTA"
  875.                  ENDIF
  876.                  INPUT#1,»πßΓ«$
  877.                  C=C+1
  878.                  GOTO óÑασ
  879.                  '¿½¿ ,í«½ÑÑ φ½Ñúá¡Γ¡«
  880.                  OPEN "TEXT.DTA" FOR INPUT AS #1
  881.                  WHILE NOT EOF(1)
  882.                  INPUT#1 »πßΓ«$
  883.                  INCR c
  884.                  WEND
  885.                  PRINT c" ºá»¿ßÑ⌐ (ßΓ᫬ ó Σá⌐½Ñ TEXT.DTA":END
  886.  
  887.  
  888.  
  889.  
  890.                                 öπ¡¬µ¿∩ ERADR
  891.                                 -------------
  892.  
  893.       öπ¡¬µ¿∩          ERADR  ó«ºóαáΘáÑΓ  áñαÑß ßἫ⌐ »«ß½Ññ¡Ñ⌐ «Φ¿í¬¿.
  894.       -------
  895.  
  896.       æ¿¡Γá¬ß¿ß        y=ERADR
  897.       ---------
  898.  
  899.       çá¼Ñτá¡¿∩        ERADR  ó«ºóαáΘáÑΓ  º¡áτÑ¡¿Ñ   ñ½¿¡¡«ú«   µÑ½«ú«,
  900.       ---------        »αÑñßΓáó½∩εΘÑú«    »«½«ªÑ¡¿Ñ   ßἫ⌐   »«ß½Ññ¡Ñ⌐
  901.       «Φ¿í¬¿.  ERADR  ÑßΓ∞  ¡Ñ¬«Γ«α«Ñ  º¡áτÑ¡¿Ñ  »α«úαá¼¼¡«ú« ßτÑΓτ¿¬á,
  902.       ¬«Γ«α«Ñ  óδó«ñ¿½«ß∞  íδ,  ¡« ¡Ñ óδóÑñÑ¡«, »«ß¬«½∞¬π ¡Ñ ó¬½ετ¿½«ß∞
  903.       «Γ߽Ѫ¿óá¡¿Ñ   «Φ¿í«¬   (Γ.Ñ.   Ñú«   ¼«ª¡«   ¼«ª¡«  ¿ß»«½∞º«óáΓ∞
  904.       »«ßαÑñßΓó«¼  ó¬½ετÑ¡¿∩ óδí«αá «Φ¿í«¬ ¿º ¼Ñ¡ε «»µ¿⌐ ñ½∩ ¡áσ«ªñÑ¡¿∩
  905.       »«½«ªÑ¡¿∩ ó ¿ßσ«ñ¡«⌐ »α«úαá¼¼Ñ Γ«ú« «»ÑαáΓ«αá, ¬«Γ«α«Ñ úÑ¡Ñα¿απÑΓ
  906.       «Φ¿í¬π). 
  907.  
  908.          ERADR  »αÑñ¡áº¡áτÑ¡á  ó  ¬áτÑßΓóÑ  Σπ¡¬µ¿¿ ¡Ñ¬«Γ«α«⌐ »«ß½Ññ¡Ñ⌐
  909.       »ÑαÑß«αΓ¿α«ó¬¿  ó  »«ñ»α«úαá¼¼áσ  «íαáí«Γ¬¿ «Φ¿í«¬. àß½¿ ¬á¬á∩-Γ«
  910.       »«ñ»α«úαἼᠠ«Φ¿í«¬ ¡Ñ αáß»«½áúáÑΓ  ßσѼ«⌐  «íαáí«Γ¬¿ ¬«¡¬αÑΓ¡«⌐
  911.       «Φ¿í¬¿,  óδ,  »«  ¬αá⌐¡Ñ⌐ ¼ÑαÑ, ¼«ªÑΓÑ óδóÑßΓ¿ ¬«ñ «Φ¿í¬¿ (ERR) ¿
  912.       ERADR  ¡á  φ¬αá¡,  ¿ Γᬿ¼ «íαẫ¼ ß««íΘ¿Γ∞ óáΦ¿¼ »«½∞º«óáΓѽ∩¼ «
  913.       ¡Ñ«íσ«ñ¿¼«ßΓ¿ «Γτ¿ΓáΓ∞ß∩ « ß½πτ¿óΦ¿¼ß∩.
  914.          æ¼.ΓᬪѠ ERL
  915.                    ERR
  916.                    ERROR
  917.                    ON ERROR
  918.  
  919.       Åα¿¼Ñα    ON ERROR GOTO ïÄéôÿèÇ
  920.                 DIM X%(10)
  921.                 FOR I%=1 TO 10
  922.                 READ X%(I%) 'æùêÆÇÆ£ X 10 ÉÇç
  923.                 PRINT X%(I%) '
  924.                 NEXT I%
  925.                 'é ÅÇîƒÆê ìàäÄæÆÇÆÄùìÄà ùêæïÄ ¥ïàîàìÆÄé äÇìì¢ò
  926.                 DATA 1,2,3,4,5,6,7
  927.                 END 'æïàäô₧Öêë ÄüÉÇüÄÆùêè ÄÿêüÄè é¢éÄäêÆ ìÄîàÉ ê ÇäÉàæ
  928.                      Äÿêüèê
  929.                 ïÄéôÿèÇ :
  930.                 LOCATE 10,15
  931.                 'é¢éàæÆê æÄÄüÖàìêà é æàÉàäêìà ¥èÉÇìÇ
  932.                 PRINT "ÄÿêüèÇ ÆêÅÇ "ERR" ÅÉÄêçÄÿïÇ ÅÄ ÇäÉàæô "ERADR
  933.                 LOCATE 11,15
  934.                 PRINT "ÅÄåÇïôëæÆÇ, ÄÆîàÆ£Æà ¥Æê çìÇùàìꃠê æéàÉÆà棠æ
  935.                     ÉôèÄéÄäæÆéÄî"
  936.                 END
  937.  
  938.  
  939.                                 Ä»ÑαáΓ«α ERASE
  940.                                 --------------
  941.  
  942.       öπ¡¬µ¿∩    ERASE     ßΓ¿αáÑΓ  ñ¿¡á¼¿τÑ߬¿Ñ  ¼áßß¿óδ  ¿  »«óΓ«α¡«
  943.       -------              πßΓá¡áó½¿óáÑΓ ßΓáΓ¿τÑ߬¿Ñ.
  944.  
  945.       æ¿¡Γá¬ß¿ß  ERASE ¿¼∩ ¼áßß¿óá[,¿¼∩ ¼áßß¿óá]...
  946.       ---------
  947.  
  948.       çá¼Ñτá¡¿∩        ê¼∩  ¼áßß¿óá  -  φΓ«  ¿¼∩   Γ«ú«   ¼áßß¿óá(ó«ó),
  949.       ---------        ¬«Γ«αδ⌐   óδ  ªÑ½áÑΓÑ  »«óΓ«α¡«  πßΓá¡«ó¿Γ∞  ¿½¿
  950.       ¿ß¬½ετ¿Γ∞  ¿º  αẼÑΘÑ¡¿∩. æ½ÑñπÑΓ ºá¼ÑΓ¿Γ∞, τΓ« »πßΓδѠ߬«í¬¿ ¡Ñ
  951.       ñ«½ª¡δ  óσ«ñ¿Γ∞  ó  ê îÇææêéÇ.  àß½¿  ê îÇææêéÇ «Γ¡«ß¿Γß∩ ¬
  952.       ñ¿¡á¼¿τÑ߬«¼π  ¼áßß¿óπ, Ñú« »α«ßΓαá¡ßΓó« ó »á¼∩Γ¿ «ßó«í«ªñáÑΓß∩ ¿
  953.       φΓ«  ¿¼∩  ¼áßß¿óá  ó ñá½∞¡Ñ⌐ΦѼ ¼«ª¡« «íαẼÑα¿Γ∞ ó¡«ó∞ ß »«¼«Θ∞ε
  954.       ñαπú«ú«  «»ÑαáΓ«αá  DIM.àß½¿ êîÇææêéÇ «Γ¡«ß¿Γß∩ ¬ ßΓáΓ¿τÑ߬«¼π
  955.       ¼áßß¿óπ,  »α¿  ßΓ¿αá¡¿¿  ß  »«¼«Θ∞ε  ERASE  Ñú«  φ½Ñ¼Ñ¡Γδ  »α«ßΓ«
  956.       «τ¿ΘáεΓß∩ ó 0 (¿½¿ ó ¡π½∞-ßΓ᫬π, ñ½∩ ßΓα«τ¡δσ ¼áßß¿ó«ó).
  957.  
  958.       Äúαá¡¿τÑ¡¿∩      éδ ¡Ñ ¼«ªÑΓÑ ßΓÑαÑΓ∞ ¼áßß¿ó, ¬«Γ«αδ⌐ ¡¿¬«úñá  ¡Ñ
  959.       -----------      ßπΘÑßΓó«óá½,  ¿½¿ ó ß½πτáÑ ñ¿¡á¼¿τÑ߬¿σ ¼áßß¿ó«ó
  960.        πªÑ íδ½ ßΓÑαΓ. 
  961.  
  962.       Éẽ¿τ¿∩         Æπαí« - üÑ⌐ß¿¬   ñáÑΓ   ó«º¼«ª¡«ßΓ∞     ß«ºñá¡¿∩
  963.       --------         ßΓáΓ¿τÑ߬¿σ     ¼áßß¿ó«ó,     ¬«Γ«αδÑ    íδßΓαÑÑ
  964.       ñ¿¡á¼¿τÑ߬¿σ  ¼áßß¿ó«ó.  ê¡ΓÑα»αÑΓáΓ«α¡δ⌐ üÑ⌐ß¿¬ ñ«»π߬áÑΓ Γ«½∞¬«
  965.       ñ¿¡á¼¿τÑ߬¿Ñ ¼áßß¿óδ. 
  966.       æ¼.ΓᬪѠCLEAR
  967.                DIM
  968.                $DYNAMIC
  969.                FRE
  970.                $STATIC
  971.  
  972.       Åα¿¼Ñα      ON ERROE GOTO ÄΦ¿í«¬Äíαáí«Γτ¿¬
  973.                   PRINT FRE(-1)
  974.                   DIM DYNAMIC ü«½∞Θ«⌐îáßß¿ó(10000)
  975.                   ü«½∞Φ«⌐îáßß¿ó(6666)=66
  976.                   PRINT FRE9-10
  977.                   ERASE ü«½∞Φ«⌐îáßß¿ó
  978.                   PRINT FRE(-1) 
  979.                   'φëà  «»ÑαáΓ«α   íπñÑΓ   ó«ºóαáΘáΓ∞   «Φ¿í¬π,  Ñß½¿
  980.                           »α«úαá¼¼á íπñÑΓ 
  981.                   '»α«ú«¡∩Γ∞ß∩ ß ó¬½ετÑ¡¡«⌐ »α«óÑᬫ⌐ úαá¡¿µ
  982.                   PRINT ü«½∞Φ«⌐îáßß¿ó(6666)
  983.                   END
  984.                   ÄΦ¿í«¬ Äíαáí«Γτ¿¬:
  985.                   PRINT "«Φ¿í¬á Γ¿»á "ERR
  986.                   PRINT "»α«¿º«Φ½á »« áñαÑßπ "ERADR
  987.                   END
  988.