For Beginners & Professional Hackers/cd.iso/docum/tbas.doc/tb51.doc

Text File | 1990-04-27 | 41.7 KB | 928 lines

                                â½áóá 5

                    潫óáα∞-ß»αáó«τ¡¿¬ ÆôÉüÄ-üàëæêèÇ

         200   ß   ½¿Φ¡¿¼   ¬«¼á¡ñ  ÆôÉüÄ-üàëæêèÇ  ¼«ª¡«  ßúαπ»»¿α«óáΓ∞
      ß««ΓóÑΓßΓóÑ¡¡«  ¿σ  ß¿¡Γá¬ß¿τÑ߬«¼π  ¬½áßßπ ó Σπ¡¬µ¿¿, «»ÑαáΓ«αδ,
      ß¿ßΓѼ¡δÑ »ÑαѼѡ¡δÑ ¿ ¼ÑΓá«»ÑαáΓ«αδ. 
         öπ¡¬µ¿¿   (ºáαá¡ÑÑ  «»αÑñѽѡ¡δÑ  ó  «Γ½¿τ¿Ñ  «Γ  «»αÑñѽ∩Ѽδσ
      »«½∞º«óáΓѽѼ) ó«ºóαáΘáεΓ º¡áτÑ¡¿Ñ ¿ »«Γ«¼π ñ«½ª¡δ ¿ß»«½∞º«óáΓ∞ß∩
      ó¡πΓα¿ óδαáªÑ¡¿⌐. ä½∩ í«½∞Φ¿¡ßΓóá ¿º ¡¿σ ΓαÑíπεΓß∩ «ñ¿¡ ¿½¿ í«½ÑÑ
      áαúπ¼Ñ¡Γ«ó; ¡á»α¿¼Ñα: 
          t=cos(3.1)        -τ¿ß½«óá∩ Σπ¡¬µ¿∩ ß 1 τ¿ß½«óδ¼ áαúπ¼Ñ¡Γ«¼ 
          t$=left$("cat",2) -ßΓα«τ¡á∩  Σπ¡¬µ¿∩  ß  1  ßΓα«τ¡δ¼ ¿ «ñ¡¿¼
                             τ¿ß½«óδ¼ áαúπ¼Ñ¡ΓἿ 
        Ä»ÑαáΓ«αδ-φΓ«    ¡Ññѽ¿¼δÑ   ßΓα«¿Γѽ∞¡δÑ   í½«¬¿,   «íαáºπεΘ¿Ñ
      »α«úαá¼¼δ.  Ä»ÑαáΓ«αδ  ñ«½ª¡δ  »«∩ó½∩Γß∩  ó  ßΓ᫬Ñ,  ºá¡¿¼á∩  ÑÑ
      µÑ½¿¬«¼,   ¿½¿  ß  αáºñѽ∩εΘ¿¼¿  ߼Ѫ¡δÑ  «»ÑαáΓ«αδ  ñó«ÑΓ«τ¿∩¼¿,
      ¡á»α¿¼Ñα: 
          CIRCLE (160,100),50    -τÑαΓ¿Γ∞ «¬απª¡«ßΓ∞ 
          CALL Mysub(x,y,z)      -óδºóáΓ∞ »α«µÑñπαπ 
          a=a+1                  -»α¿ßó«Ñ¡¿Ñ (ß¼. «»ÑαáΓ«α LET) 
         æ¿ßΓѼ¡δÑ    »ÑαѼѡ¡δÑ    ∩ó½∩εΓß∩    ºáαá¡ÑÑ   «»αÑñѽѡ¡δ¼¿
      ¿ñÑ¡Γ¿Σ¿¬áΓ«αἿ  ñ½∩  ñ«ßΓπ»á ¿ π»αáó½Ñ¡¿∩ «»αÑñѽѡ¡«⌐ ß¿ßΓѼ«⌐
      ¿¡Σ«α¼áµ¿¿, ¡á»α¿¼Ñα: 
          a$=DATE$             -ßτ¿ΓáΓ∞ ß¿ßΓѼ¡πε ñáΓπ
          TIME$="00:00"        -πßΓá¡«ó¿Γ∞ ß¿ßΓѼ¡«Ñ óαѼ∩ 
         îÑΓá«»ÑαáΓ«αδ »αÑñßΓáó½∩εΓ  ß«í«⌐  ñ¿αÑ¬Γ¿óδ ¬«¼»¿½∩Γ«απ. àß½¿
      íδΓ∞  Γ«τ¡δ¼¿,  «¡¿  ¡Ñ  ∩ó½∩εΓß∩  τáßΓ∞ε  ∩ºδ¬á, ¡« ó¼ÑßΓ« φΓ«ú«
      αáí«ΓáεΓ  ¡á  ñαπú«¼  πα«ó¡Ñ,  π»αáó½∩∩  »«óÑñÑ¡¿Ñ¼  ¬«¼»¿½∩Γ«αá,
      ¡á»α¿¼Ñα: 
          $INCLUDE "module1.tbs"-ºáúαπº¬á ¿ «íαáí«Γ¬á ó¬½ετáѼ«ú« Σá⌐½á
          $STACK &H1000         -ß¼. αẼÑα ßΓѬá 
         îÑΓá«»ÑαáΓ«αδ, »«ñ«í¡«  ßπí¼Ñ¡ε  «»µ¿⌐  ¬«¼»¿½∩Γ«αá, π»αáó½∩εΓ
      ¬«¼»¿½∩Γ«α«¼  ó«  óαѼ∩  ¬«¼»¿½∩µ¿¿,  á  ¡Ñ  ¬«¼»∞εΓÑα«¼ ó« óαѼ∩
      »α«ú«¡á. îÑΓá«»ÑαáΓ«αá¼ »αÑñΦÑßΓóπÑΓ º¡á¬ ñ«½½áαá ($) ñ½∩ «Γ½¿τ¿∩
      ¿σ  «Γ  «íδτ¡δσ  «»ÑαáΓ«α«ó.  é  ßΓα«¬Ñ  ¼«ªÑΓ  íδΓ∞  Γ«½∞¬« «ñ¿¡
      ¼ÑΓá«»ÑαáΓ«α  ¿,  ó  «Γ½¿τ¿¿  «Γ ¡Ñ¬«Γ«αδσ ñαπú¿σ ¬«¼»¿½¿α«óá¡¡δσ
      üÑ⌐ß¿¬«ó, «¡¿ ¡Ñ »«¼ÑΘáεΓß∩ ó¡πΓα∞ REMARKS (ºá¼Ñτá¡¿⌐). 

                              ö«α¼áΓ ß»αáó«τ¡¿¬á
                             -------------------

         èáªñδ⌐  óσ«ñ  ß»αáó«τ¡¿¬á  ß«ñÑαª¿Γ «»¿ßá¡¿Ñ, ß¿¡Γá¬ß¿ß, «íΘ¿Ñ
      ºá¼Ñτá¡¿∩   ¿   »α¿¼Ñα   ¿ß»«½∞º«óá¡¿∩   «»ÑαáΓ«αá,  Σπ¡¬µ¿¿  ¿½¿
      »α«µÑñπαδ.   âñÑ   φΓ«   »α¿Ñ¼½Ñ¼«,   ßó∩ºá¡¡δÑ   óσ«ñδ  ß¡áíªÑ¡δ
      »ÑαѬαÑß¡δ¼¿  ßßδ½¬á¼¿, «ú«ó«αÑ¡δ ½εíδÑ «úαá¡¿τÑ¡¿∩ »α¿¼Ñ¡Ñ¡¿∩, á
      Γá¬ªÑ  «Γ¼ÑτÑ¡δ  ½εíδÑ  αẽ¿τ¿∩  ó ¿ß»«½∞º«óá¡¿¿ ¿σ ó Æπαí«-üÑ⌐-
      ß¿¬Ñ ¿ ¿¡ΓÑα»αÑΓáΓ«αÑ üÑ⌐ß¿¬á. 
         ì¿ªÑ    »α¿óÑñÑ¡δ   ß«ú½áΦÑ¡¿∩,   ¬áßáεΘ¿Ñß∩   ß¿¡Γá¬ß¿τÑ߬«ú«
      «»¿ßá¡¿∩, ¿ß»«½∞ºπѼ«ú« ó á½Σáó¿Γ¡«¼ »«α∩ñ¬Ñ ¬«¼á¡ñ. 

                              ù¿ß½«ó«Ñ óδαáªÑ¡¿∩
                             -------------------

         ù¿ß½«óá∩  ¬«¡ßΓá¡Γá, τ¿ß½«óá∩ Σπ¡¬µ¿∩ ¿½¿ τ¿ß½«óá∩ »ÑαѼѡ¡á∩,
      ½¿í«   ¿σ  ¬«¼í¿¡áµ¿∩,  ó  ¬«Γ«α«⌐  ¿ß»«½∞ºπεΓß∩  áα¿Σ¼ÑΓ¿τÑ߬¿Ñ,
      ½«ú¿τÑ߬¿Ñ    «»ÑαáΓ«αδ    ¿    «»ÑαáΓ«αδ    «Γ¡«ΦÑ¡¿∩.    ê¡«úñá
      ߻ѵ¿Σ¿µ¿απÑΓß∩   Γ¿»   τ¿ß½«ó«ú«   óδαáªÑ¡¿∩,   ¡á»α¿¼Ñα   µÑ½«Ñ
      óδαáªÑ¡¿Ñ: 
             16
             X
             16^X
             SIN(3.14159)
             SIN(X/(16*X))

                             æΓ᫬«ó«Ñ óδαáªÑ¡¿Ñ
                             --------------------

         æΓ᫬«óá∩   ¬«¡ßΓá¡Γá,   ßΓ᫬«óá∩  »ÑαѼѡ¡á∩  ¿½¿  ßΓ᫬«óá∩
      Σπ¡¬µ¿∩,  ½¿í«  ¿σ  ¬«¼í¿¡áµ¿∩,  «»µ¿«¡á½∞¡«  ó¬½ετáεΘá∩  ó  ßÑí∩
      «»ÑαáΓ«α ߵѻ½Ñ¡¿∩, º¡á¬ »½εß (+). ìá»α¿¼Ñα: 
           "CAT"
           a$+"CAT"
           LEFT$(a$+"CAT$",4)

                              æ»Ñµ¿Σ¿¬áµ¿∩ Σá⌐½á
                             -------------------

         æΓα«τ¡«Ñ  óδαáªÑ¡¿Ñ «»¿ßδóáεΘÑÑ ¿¼∩ Σá⌐½á MS-DOS (ó«ßѼ∞ ½¿ΓÑα
      ß  «»µ¿«¡á½∞¡δ¼  ΓαÑσ½¿ΓÑα¡δ¼  αáßΦ¿αÑ¡¿Ñ¼, ¬«Γ«α«¼π »αÑñΦÑßΓóπÑΓ
      Γ«τ¬á,   αÑú¿ßΓα   íѺαẽ¿τÑ¡),   󫺼«ª¡«   ó¬½ετáεΘÑÑ  ó  ßÑí∩
      ߻ѵ¿Σ¿¬áµ¿ε   »α¿ó«ñá  ¿/¿½¿  »α«σ«ñá.  çá  ¿ß¬½ετÑ¡¿Ñ¼  ß½πτáÑó
      ß¡áíªÑ¡¡δσ   ºá¼Ñτá¡¿∩¼¿,  ¿¼Ñ¡á  Σá⌐½«ó  ñ«½ª¡δ  óδαáªáΓ∞ß∩  ¬á¬
      ßΓα«τ¡δÑ   »ÑαѼѡ¡δÑ,   ½¿í«   ºá¬½ετáΓ∞ß∩  ó  ñó«⌐¡δÑ  ¬áóδτ¬¿,
      ¡á»α¿¼Ñα: 
          "MAYFIRST.BAS"
          "turbobas\myfirst.bas"
          "a:\turbobas\myfirst.bas"

                                    Åα«σ«ñ
                                   -------

         æΓα«τ¡«Ñ  óδαáªÑ¡¿Ñ,  «»¿ßδóáεΘÑÑ  ºá¬«¡¡δ⌐  ßπíß»αáó«τ¡¿¬  ¡á
      ºáαÑú¿ßΓα¿α«óá¡¡«¼ »α¿ó«ñÑ. ìá»α¿¼Ñα: 
          "\TURBOBAS"
          "GAMES"

                                     LPR
                                     ----

         "Æ«τ¬á   »«ß½Ññ¡Ñ⌐  ßß佬¿"  (LPR)  ¿ß»«½∞ºπÑΓß∩  ¬á¬  ¡Ñ∩ó¡«Ñ
      ¬««αñ¿¡áΓ¡«Ñ   º¡áτÑ¡¿Ñ   ó  ¡Ñ¬«Γ«αδσ  úαáΣ¿τÑ߬¿σ  «»Ñαᵿ∩σ  ¿
      πßΓá¡áó½¿óáÑΓß∩ í«½∞Φ¿¡ßΓó«¼ «»ÑαáΓ«α«ó úαáΣ¿¬¿ . 

                                    îÑΓ¬á
                                    ------

         îÑ⪠  »αÑñßΓáó½∩ÑΓ  ß«í«⌐ ½¿í« á½Σáó¿Γ¡«-µ¿Σα«óπε ¼ÑΓ¬π, ½¿í«
      ¡«¼Ñα ßΓ᫬¿, ¿ñÑ¡Γ¿Σ¿µ¿απεΘ¿Ñ »α«úαá¼¼¡πε ßΓ᫬π. 쫼Ñαá ßΓ᫬ ¿
      ¼ÑΓ¬¿ í«½ÑÑ ¿½¿ ¼Ñ¡ÑÑ óºá¿¼«ºá¼Ñ¡∩Ѽδ ó ß¿¡Γá¬ß¿ßÑ Æπαí«-üÑ⌐ß¿¬á,
      ºá ¿ß¬½ετÑ¡¿Ñ¼ Γ«ú«, τΓ« ¼ÑΓ¬¿ ñ«½ª¡δ »«∩ó½∩Γ∞ß∩ ó ßΓα«¬Ñ ßἿ »«
      ßÑíÑ, ¬á¬ ΓᬫóδÑ. 

                         Æ¿»«úαáΣ¿τÑ߬¿Ñ «ß«íÑ¡¡«ßΓ¿
                         ----------------------------

         èπαß¿ó«¼   π¬áºδóáεΓ   º«¡δ   ¬«¼á¡ñ,   »«ñ½ÑªáΘ¿Ñ  ºá»«½¡Ñ¡¿ε
      ߻ѵ¿á½∞¡«⌐ ¿¡Σ«α¼áµ¿Ñ⌐ «í½áßΓ¿ »α¿¼Ñ¡Ñ¡¿∩, ¡á»α¿¼Ñα: 
          REG register,value 
         ÆѬßΓ«¼   ó   ½¿ΓÑαáσ  óÑασ¡Ñú«  αÑú¿ßΓαá  «í«º¡áτáÑΓß∩  τáßΓ∞
      ¬«¼á¡ñδ, ¬«Γ«αá∩ ñ«½ª¡á »α¿ßπΓßΓó«óáΓ∞ ñ«ß½«ó¡«, ¡á»α¿¼Ñα: 
           RESUME NEXT 
         èóáñαáΓ¡δÑ  ߬«í¬¿  ([])  «í«º¡áτáεΓ,  τΓ«  ºá¬½ετÑ¡¡á∩  ó ¡¿σ
      ¿¡Σ«α¼áµ¿∩ ∩ó½∩ÑΓß∩ «»µ¿«¡á½∞¡«⌐, ¡á»α¿¼Ñα: 
          OPEN filispec as [#]filenum
      «º¡áτáÑΓ,  τΓ«  óδ  ¼«ªÑΓÑ ó¬½ετáΓ∞ º¡á¬ ¡«¼Ñαá (#) »ÑαÑñ ¡«¼Ñα«¼
      Σá⌐½á  ó  «»ÑαáΓ«αÑ  OPEN  («Γ¬αδΓ∞),  ½¿í« «Γ¬áºáΓ∞ß∩ «Γ ¡Ñú« »«
      óáΦѼπ óδí«απ. Å«φΓ«¼π ºá¬«¡¡δ «íÑ ß½ÑñπΘ¿Ñ ¬«¼á¡ñδ:
          OPEN "cust.dta" AS 1
          OPEN "cust.dta" AS #1 
         ö¿úπα¡δ¼¿  ߬«í¬á¼¿  ({})  π¬áºδóáÑΓß∩  óδí«α  ñóπσ  ¿½¿ í«½ÑÑ
      «»µ¿⌐,  «ñ¡á  ¿º ¬«Γ«αδσ ñ«½ª¡á ¿ß»«½∞º«óáΓ∞ß∩ «í∩ºáΓѽ∞¡«. Ä»µ¿¿
      αáºñѽ∩εΓß∩ óÑαΓ¿¬á½∞¡«⌐ τÑαΓ«⌐. ìá»α¿¼Ñα: 
          KEY {on!off}
      «º¡áτáÑΓ,  τΓ«  ºá¬«¡¡δ «íá ºá∩ó½Ñ¡¿∩ KEY ON ¿ KEY OFF, á ßἫ »«
      ßÑíÑ KEY ¡Ñºá¬«¡¡«. 
         î¡«ú«Γ«τ¿Ñ¼ (...)«Γ¼ÑτáÑΓß∩,τΓ« τáßΓ∞ ¬«¼á¡ñδ ¼«ªÑΓ »«óΓ«α¿Γß∩
      ßΓ«½∞¬« αáº,߬«½∞¬« ¡Ñ«íσ«ñ¿¼«.ìá»α¿¼Ñα: 
          READ  variable[,variable]...  
      «º¡áτáÑΓ,   τΓ«   «ñ¡¿¼   «»ÑαáΓ«α«¼  READ  ¼«ªÑΓ  «ΓαáíáΓδóáΓ∞ß∩
      ¼¡«ªÑßΓó« »ÑαѼѡ¡δσ, αáºñѽ∩Ѽδσ ºá»∩Γ묨: 
          READ a$
          READ a$,b$,a,b,c 
         Æα¿ óÑαΓ¿¬á½∞¡« αáß»«½«ªÑ¡¡δÑ Γ«τ¬¿ π¬áºδóáεΓ ¡á »α«»π߬ «ñ¡«⌐
      ¿½¿ í«½ÑÑ ßΓ᫬ »α«úαá¼¼¡«ú« ΓѬßΓá: 
          FOR n=1 to 10
          .
          .
          .
          NEXT n

                              îÑΓá«»ÑαáΓ«α $COM
                              ------------------

      öπ¡¬µ¿∩     $COM     αáß»αÑñѽ∩ÑΓ  »α«ßΓαá¡ßΓó«  ñ½∩  »α¿Ñ¼¡«ú«
      -------             íπΣÑαá »«ß½Ññ«óáΓѽ∞¡«ú« óσ«ñ¡«ú« πßΓα«⌐ßΓóá.

      æ¿¡Γá¬ß¿ß   $COM n size 
      ---------

      çá¼Ñτá¡¿∩  n π¬áºδóáÑΓ ¬«¼¼π¡¿¬áµ¿«¡¡δ⌐ áñá»ΓÑα (1 ¿½¿ 2), á size
      ---------  (αẼÑα)  ÑßΓ∞  µÑ½á∩  ¬«¡ßΓá¡Γá, «»αÑñѽ∩εΘá∩ Ѽ¬«ßΓ∞
      íπΣÑαá  ñ½∩  φΓ«ú«  áñá»ΓÑαá  («Γ  0 ñ« 32767). Å« π¼«½τá¡¿ε-256.
      ç¡áτÑ¡¿Ñ  »«  π¼«½τá¡¿ε  ¼«ªÑΓ πßΓá¡áó½¿óáΓ∞ß∩ ¿ σαá¡¿Γ∞ß∩ ó ¼Ñ¡ε
      «»µ¿⌐.  ç¡áτÑ¡¿∩  »« π¼«½τá¡¿ε ¼«úπΓ ¿º¼Ñ¡∩Γ∞ß∩ ¼ÑΓá«»ÑαáΓ«αἿ ó
      »α«úαá¼¼Ñ. 

      Äúαá¡¿τÑ¡¿∩       ÉẼÑα íπΣÑαá ߻ѵ¿Σ¿µ¿απѼδ⌐ ó «»ÑαáΓ«αÑ
      -----------       $COM,  ñ«½ªÑ¡  ¡áσ«ñ¿Γ∞ß∩ ó ñ¿á»áº«¡Ñ  «Γ  0
      ñ«  32767. ê¡ΓÑα»αÑΓáΓ«α¡δ⌐ üÑ⌐ß¿¬ íπñÑΓ αáß»«½áúáΓ∞ íπΣÑα «ñ¡«ú«
      ¿  Γ«ú«  ªÑ αẼÑαá ñ½∩ «í«¿σ ¬«¼¼π¡¿¬áµ¿«¡¡δσ óσ«ñ¡δσ πßΓα«⌐ßΓó,
      Ñß½¿  «¡¿  ßπΘÑßΓóπεΓ.  é Æπαí«-üÑ⌐ß¿¬Ñ αẼÑαδ φΓ¿σ ñóπσ íπΣÑα«ó
      πßΓá¡áó½¿óáεΓß∩ ¡Ñºáó¿ß¿¼«. 

      Éẽ¿τ¿∩          Åα¿  ó«ºíπªñÑ¡¿¿  ó ¿¡ΓÑα»αÑΓáΓ«α¡«¼  üÑ⌐ß¿¬Ñ
      --------          φΓá  Σπ¡¬µ¿«¡á½∞¡«ßΓ∞  ñ«ßΓπ»¡á  Γ«½∞¬« τÑαѺ
                        »áαá¼ÑΓαδ ¬á¼á¡ñ¡«⌐ ßΓ᫬¿. 

      Åα¿¼Ñα:           '«»ÑαáΓ«α $COM ¿ß»«½∞ºπÑΓß∩ ñ½∩ ¿º¼Ñ¡Ñ¡¿∩
                        '»α«ßΓαá¡ßΓóá  »« π¼«½τá¡¿ε, αáß»αÑñѽ∩Ѽ«ú«
                        'ñ½∩ íπΣÑα«ó »«ß½Ññ«óáΓѽ∞¡δσ óσ«ñ¡δσ
                        'πßΓα«⌐ßΓó.    ìáßΓα«¿Γ∞    »«ñ»α«úαá¼¼π    ñ½∩
                        '«íαáí«Γ¬¿ COM- óó«ñá 
           $COM 1 1024  '¡áßΓαá¿óáÑΓß∩ íπΣÑα óó«ñá 1 è
           ON COM(1) GOSUB   »«½πτ¿Γ∞ ¬«¼óó«ñ
           COM(1) ON    'ó¬½ετ¿Γ∞ «íαáí«Γ¬π  COM óó«ñá
           OPEN "COM1" AS #1 'oΓ¬αδΓ∞ »ÑαѼѡ¡πε Σá⌐½á ¬á¬ COM1
           PRINT "ì᪼¿ΓÑ ½εíπε ¬½áó¿Θπ ñ½∩ ºáóÑαΦÑ¡¿∩ »α«úαá¼¼δ"
           '»«¬á ¬½áó¿Φá ÑΘÑ ¡Ñ ¡áªáΓá
           WHILE NOT INSTAT
             LOCATE 2.1
             PRINT TIME$ '«Γ«íαếΓ∞ óαѼ∩
           WEND
           END '¬«¡Ñµ »α«úαá¼¼δ
           Å«½πτ¿Γ∞諼óó«ñ : '«íαáí«ΓáΓ∞ COM-»«αΓ »αÑαδóá¡¿Ñ
           'ßτ¿ΓáΓ∞ óó«ñ ¿º íπΣÑαá COM-»«αΓá
           INPUT #1,諼ūαΓéó«ñ (ºáú«½«ó«¬ %)
           RETURN
           諡ѵéó«ñá: '¬«¡Ñµ COM-»«αΓ óó«ñá
           PRINT "ä«ßΓ¿ú¡πΓ ¬«¡Ñµ óó«ñá"
           END '¬«¡Ñµ »α«úαá¼¼δ

                            îÑΓá«»ÑαáΓ«α $DYNAMIC
                            ----------------------
      öπ¡¬µ¿∩    $DYNAMIC    ºá∩ó½∩ÑΓ  ,τΓ« αẼÑΘÑ¡¿Ñ ¼áßß¿óá »«
      -------                π¼«½τá¡¿ε  ñ«½ª¡« íδΓ∞ ñ¿¡á¼¿τÑ߬¿¼. 

      æ¿¡Γá¬ß¿ß      $DYNAMIC
      ---------

      çá¼Ñτá¡¿∩      îÑΓá«»ÑαáΓ«α $DYNAMIC ¡Ñ ¿¼ÑÑΓ áαúπ¼Ñ¡Γ«ó ¿
      ---------      ºá∩ó½∩ÑΓ, τΓ« Γ¿» αẼÑΘÑ¡¿∩ ¼áßß¿ó«ó »« π¼«½τá¡¿ε
      ñ«½ªÑ¡  íδΓ∞ ñ¿¡á¼¿τÑ߬¿¼. Åα«ßΓαá¡ßΓó« ñ½∩ ñ¿¡á¼¿τÑ߬¿σ ¼áßß¿ó«ó
      αáß»αÑñѽ∩ÑΓß∩   ó«   óαѼ∩   »α«ú«¡á.   ä½∩  ½¿¬ó¿ñᵿ¿  ¼áßß¿óá
      ¿ß»«½∞ºπ⌐ΓÑ  «»ÑαáΓ«α  ERASE.  信ἿτÑ߬¿Ñ  ¼áßß¿óδ  ñáεΓ  í«½ÑÑ
      φΣÑ¬Γ¿ó¡«Ñ  ¿ß»«½∞º«óá¡¿Ñ  »á¼∩Γ¿.  îáßß¿óδ  ¼«ª¡«  ºá∩ó½∩Γ∞  ¬á¬
      ñ¿¡á¼¿τÑ߬¿Ñ  ß  »«¼«Θ∞ε  ¬½ετÑó«ú«  ß½«óá DYNAMIC ¿½¿ áαúπ¼Ñ¡Γ«ó
      óδαáªÑ¡¿á  ó  «»ÑαáΓ«αÑ  DIM.  îáßß¿óδ ß »ÑαѼѡ¡δ¼¿ αẼÑαá- ¼¿,
      ¬«Γ«αδÑ  ºá∩ó½∩εΓß∩  ¬á¬  «íΘ¿Ñ  ¿½¿  ½«¬á½∞¡δÑ ó »α«µÑñπαÑ, ½¿í«
      Σπ¡¬µ¿¿, óßÑúñá ñ¿¡á¼¿τÑ߬¿Ñ. 

      æî.Γá¬ªÑ  DIM
      --------  ERASE
                FRE
                $STATIC

      Åα¿¼Ñα    '¡áßΓα«¿Γ∞ «íαáí«Γτ¿¬ «Φ¿í«¬
      -------   ON ERROR GOTO ÄΦ¿í«¬Äíαáí«Γτ¿¬
                '«Γ«íαếΓ∞ »á¼∩Γ∞,¿¼ÑεΘπεß∩ ó ¼áßß¿ó¡«¼ »α«ßΓαá¡ßΓóÑ
                PRINT FRE(-1)
                DIM ü«½∞Φ«⌐îáßß¿ó(10000) 'ºá∩ó¿Γ∞ ñ¿¡.¼áßß¿ó
                ü«½∞Φ«⌐îáßß¿ó(6666)=66
                PRINT FRE(-1)
                PRINT ü«½∞Φ«⌐îáßß¿ó(6666)
                END '¬«¡Ñµ »α«ú«¡á
                ÄΦ¿í¬««íαáí«Γτ¿¬:
                PRINT "«Φ¿í¬á Γ¿»á " ERR;
                PRINT "»α«¿º«Φ½á »« áñαÑßπ" ERADR
                END

                             îÑΓá«»ÑαáΓ«α $EVENT
                             --------------------
      öπ¡¬µ¿∩   $EVEN   π»αáó½∩ÑΓ úÑ¡Ñα¿α«ó᡿Ѽ ¬«ñá «Γ߽Ѫ¿óá¡¿∩
      -------           ß«íδΓ¿⌐.


      æ¿¡Γá¬ß¿ß    $EVEN {ON!OFF}
      ---------

      çá¼Ñτá¡¿∩        àß½¿  óáΦá  »α«úαá¼¼á  ß«ñÑαª¿Γ  ¬á¬«Ñ-½¿í«
      ---------        ßαÑñßΓó«  ºáσóáΓá  ß«íδΓ¿⌐  «»αÑñѽѡ¡«ú«  ß«αΓá
      (¡á»α¿¼Ñα, ON KEY, ON COM), Γ« $EVENT »« π¼«½τá¡¿ε ON (ó¬½.), τΓ«
      »α¿ó«ñ¿Γ ¬ úÑ¡Ñα¿α«óá¡¿ε ¬«¼»¿½∩Γ«α«¼ ¬«ñá »α«óÑન ß«íδΓ¿∩ ¼Ñªñπ
      óßѼ¿   «»ÑαáΓ«αἿ   óáΦÑ⌐   »αúαá¼¼δ.   àß½¿   ó  »α«úαá¼¼Ñ  ¡Ñ
      »αÑñπß¼«ΓαÑ¡«  «Γ߽Ѫ¿óá¡¿Ñ,  Γ« $EVENT ¡áσ«ñ¿Γß∩ ó ß«ßΓ«∩¡¿¿ OFF
      (ó䬽.) ¿ ¬«ñ ß«íδΓ¿∩ ¡Ñ úÑ¡Ñα¿απÑΓß∩. 
            $EVENT  ñáÑΓ  óá¼  󫺼«ª¡«ßΓ∞  π»αáó½∩Γ∞  ΓѼ, ¬á¬¿Ñ τáßΓ¿
      »α«úαá¼¼δ  íπñπΓ  »α«σ«ñ¿Γ∞ íѺ »α«óÑન ß«íδΓ¿⌐. àß½¿ ßπΘÑßΓóπÑΓ
      ¬á¬á∩-Γ«   º«¡á,  úñÑ  ¼á¬ß¿¼á½∞¡á∩  ߬«α«ßΓ∞  ó᪡ÑÑ  «ΓóÑΓá  ¡á
      ß½πτá⌐¡«Ñ  ß«íδΓ¿Ñ,  Γ«  ºá¬½ετá⌐ΓÑ φΓπ τáßΓ∞ »α«úαá¼¼¡«ú« ¬«ñá ó
      ߬«í¬¿, «íαáºπѼδÑ ¼ÑΓá«»ÑαáΓ«αἿ $EVENT OFF ¿ $EVENT ON. 

      Åα¿¼Ñα:   '»α¿¼Ñα ß«íδΓ¿∩
                ON TIMER(1) gosub Å«ΓÑα∩éαѼѡ¿
                timer on
                print "îÑñ½Ñ¡¡δ⌐ µ¿¬½"
                x=Γá⌐¼Ñα
                for i=1 to 10000
                 i=i+i-i
                next i
                y=Γá⌐¼Ñα
                print "éαѼ∩ µ¿¬½á ÑßΓ∞" y-x
                $event off
                print "íδßΓαδ⌐ µ¿¬½"
                x=Γá⌐¼Ñα
                for i=1 to 10000
                 i=i+i-i
                next i
                y=Γá⌐¼Ñα
                print "óαѼ∩ µ¿¬½á ÑßΓ∞¥" y-x
                end
                Å«ΓÑα∩éαѼѡ¿:
                for j=1 to 1000:j=j+j-j:next j:print
                return

                        îÑΓá«»ÑαáΓ«αδ $IF/$ELSE/$ENDIF
                        ------------------------------

      öπ¡¬µ¿∩     $IF,$ELSE ¿ $ENDIF    «»αÑñѽ∩εΓ τáßΓ¿ »α«úαá¼¼δ,
      -------                           »«ñ½ÑªáΘ¿Ñ  ¬«¼»¿½¿α«óá¡¿ε  ¿½¿
      «Γ   ¡Ñú«  𬽫¡∩εΘ¿Ñß∩  (τáßΓ«  φëà  ß»«ß«í  ¡áºδóáεΓ  πß½«ó¡δ¼
      ¬«¼»¿½¿α«ó᡿Ѽ). 

      æ¿¡Γá¬ß¿ß   $IF ¬«¡ßΓá¡Γá
      ---------   .
                  .«»ÑαáΓ«αδ
                  .
                  [$else
                  .
                  .«»ÑαáΓ«αδ]
                  .
                  $ENDIF

      çá¼Ñτá¡¿∩         è«¡ßΓá¡Γá-φΓ«  ¿¼Ñ¡«óá¡¡á∩  ¬«¡ßΓá¡Γá   ¿½¿
      ---------         »«ßΓ«∩¡¡«Ñ  º¡áτÑ¡¿Ñ. àß½¿ ¬«¡ßΓá¡Γá ¡Ñ ¡π½Ñóá∩
      (TRUE), Γ« «»ÑαáΓ«αδ ¼Ñªñπ $IF ¿ $ELSE ¬«¼»¿½¿απεΓß∩, á «»ÑαáΓ«αδ
      ¼Ñªñπ  $ELSE  ¿  $ENDIF  ¡Ñ ¬«¼»¿½¿απεΓß∩. àß½¿ è«¡ßΓá¡Γá ¡π½Ñóá∩
      (FALSE),   Γ«   «»ÑαáΓ«αδ  ¼Ñªñπ  $IF  ¿  $ELSE  ¿ú¡«α¿απεΓß∩,  á
      ¡áσ«ñ∩Θ¿Ñß∩    ¼Ñªñπ   $ELSE   ¿   $ENDIF   ¬«¼»¿½¿απεß∩.   $ELSE
      πßΓá¡áó½¿óáÑΓß∩   «»µ¿«¡á½∞¡«,   ¡«   $ENDIF   ΓαÑíπÑΓß∩  óßÑúñá.
      Ä»ÑαáΓ«αδ   πß½«ó¡«⌐  ¬«¼»¿½∩µ¿¿  ¼«úπΓ  ó¬½áñδóáΓ∞ß∩  ñ«  πα«ó¡∩
      ú½πí¿¡«⌐ 256. 

      Åα¿¼Ñα    %ûóÑΓ¡«⌐¥¬αá¡=1  'πßΓá¡«ó¬á ¿¼Ñ¡«óá¡¡«⌐ ¬«¡ßΓá¡Γδ ¡á
                                 '¡Ñ¡π½Ñó«Ñ º¡áτÑ¡¿Ñ π¬áºδóáÑΓ αáí«Γπ
                '¡á µóÑΓ¡«¼ φ¬αá¡Ñ, πßΓá¡«ó¬á ¡π½Ñó«ú« º¡áτÑ¡¿∩ π¬áºδ -
                'óáÑΓ αáí«Γπ ó ¼«¡«σα«¼¡«⌐ ß¿ßΓѼÑ

                $if %ûóÑΓ¡«⌐¥¬αá¡
                 def seg=&HB800 'áñαÑß »á¼∩Γ¿ úαáΣ¿τÑ߬«ú« φ¬αá¡á
                $else
                 def seg=&HB000 'áñαÑß »á¼∩Γ¿ ¼«¡«σα«¼¡«ú« φ¬αá¡á
                for i%=0 to 4000 step 2
                 poke i%,asc("A") 'ºá»«½¡¿Γ∞ φ¬αá¡ íπ¬óἿ "A"
                next i%
                'σαá¡¿Γ∞ óßÑ 4000 íá⌐Γ«ó ó¿ñÑ«-»α«ú«¡á
                bsave "$if.dta",0,4000
                end

                              îÑΓá«»ÑαáΓ«α $INCLUDE
                              ---------------------

      öπ¡¬µ¿∩     $INCLUDE    ó¬½ετáÑΓ ΓѬßΓ«óδ⌐ Σá⌐½
      -------

      æ¿¡Γá¬ß¿ß   $INCLUDE Σá⌐½á߻ѵ.½¿ΓÑαá½
      ---------

      çá¼Ñτá¡¿∩         êß»«½∞ºπ⌐ΓÑ $INCLUDE ñ½∩ ¬«¼»¿½¿α«óá¡¿∩ ΓѬßΓá
      ---------         ñαπú«ú«   Σá⌐½á   ó¼ÑßΓÑ   ß   ΓѬπΘ¿¼  Σá⌐½«¼.
      öá⌐½áæ»Ñµ.½¿ΓÑαá½  φΓ«  ßΓα«τ¡á∩  ¬«¡ßΓá¡Γá, á »αÑñßΓáó½∩Ѽδ⌐ Ñú«
      Σá⌐½  ñ«½ªÑ¡  ß½Ññ«óáΓ∞  ß«ú½áΦÑ¡¿∩¼ DOS «í ¿¼Ñ¡¿ Σá⌐½á ¿ ó Γ« ªÑ
      óαѼ∩  »αÑñßΓáó½∩Γ∞  ß«í«⌐  ¿ßσ«ñ¡δ⌐ Σá⌐½ Æπαí« üÑ⌐ß¿¬á. àß½¿ ñ½∩
      ó¬½ετÑ¡¡«ú«  Σá⌐½á  ¡Ñ  ߻ѵ¿Σ¿µ¿απÑΓß∩  Ñú«  ¿¼∩, »αÑñ»«½áúáÑΓß∩
      αáßΦ¿αÑ¡¿Ñ .BAS. 
            îÑσá¡¿º¼    $INCLUDE    óδºδóáÑΓ   Γαá¬Γ«ó¬π   ¬«¼»¿½∩Γ«α«¼
      ó¬½ετáѼ«ú«  Σá⌐½á  Γᬿ¼  «íαẫ¼,  ¬á¬  Ñß½¿  íδ  «¡  Σ¿º¿τÑ߬¿
      ßπΘÑßΓó«óá½  ó »Ñαó«¡áτá½∞¡«¼ ΓѬßΓÑ ó ñá¡¡«⌐ Γ«τ¬Ñ. ¥Γ« ñáÑΓ óá¼
      󫺼«ª¡«ßΓ∞   αáºαδóáΓ∞  óáΦπ  »α«úαá¼¼π  ¡á  π»αáó½∩ѼδÑ  ¬π߬¿.
      Åα¿¡µ¿»  αáí«τ¿⌐  Σá⌐½/ú½áó¡δ⌐  Σá⌐½  Æπαí«  üÑ⌐ß¿¬á  «Γ¡«ß¿Γß∩ ¬
      $INCLUDE.  é ¿½½εßΓαáΓ¿ó¡δσ µÑ½∩σ αáßß¼«Γα¿¼ Σá⌐½δ CALCAREA.BAS ¿
      CONST.BAS:
            öá⌐½ CALCAREA.BAS
            print "»α«úαá¼¼á óδτ¿ß½Ñ¡¿∩ »½«Θáñ¿ ¬απúá"
            print "Ñß½¿ íδ óδ ¡áσ«ñ¿ΓÑ φΓπ »α«úαá¼¼π »«½Ñº¡«⌐"
            print "»«ªá½π⌐ßΓá óδΦ½¿ΓÑ 3500 ñ«½½áα«ó"
            print
            print "öαᡬ ü«α½á¡ñ"
            print "æ¬áΓΓÑ éá½½Ñ⌐,æÇ95066"
            print "-------------------------------------------------"
            $include "CONST.BAS"
            input "óóÑßΓ¿ αáñ¿πß",r
            print "»½«Θáñ∞ ="pi*r*r

            öá⌐½ CONST.BAS
            '«íΘѵѽÑóδÑ ¬«¡ßΓá¡Γδ
            pi=ANT(1)*4
            %¿ßΓ¿¡¡«=-1
            %½«ª¡«=0
            %¼á¬ßX=319
            %¼á¬ßY=199

         ùΓ«íδ  ¬«¼»¿½¿α«óáΓ∞ φΓπ »α«úαá¼¼π CALCAREA ñ«½ªÑ¡ íδΓ∞ ßñѽá¡
      "ú½áó¡δ¼  Σá⌐½«¼",  »«ß¬«½∞¬«  φΓ«  Σá⌐½  ß  «»ÑαáΓ«α«¼ $INCLUDE.
      Éáí«τ¿⌐  Σá⌐½  ñó¿úáÑΓß∩  Γπñá  ¿  «íαáΓ¡«  »« «Γ¡«ΦÑ¡¿ε ¬ ½εí«¼π
      ñαπú«¼π,  ó  ºáó¿ß¿¼«ßΓ¿  «Γ  ¡πªñ αÑñá¬Γ¿α«óá¡¿∩ (Γ.Ñ Ñß½¿ ¿¼ÑÑΓ
      «Φ¿í¬¿).   é¡Ñ   ºáó¿ß¿¼«ßΓ¿   «Γ   ΓѬπΘÑú«  αáí«τÑú«  Σá⌐-  ½á,
      ¬«¼»¿½¿α«óá¡¿Ñ  óßÑúñá  ¡áτ¿¡áÑΓß∩  ß  CALCAREA (ú½áó¡«ú« Σá⌐½á).
      (ü«½ÑÑ ñÑΓá½∞¡« ß¼. ó αáºñÑ½Ñ "â½áó¡«Ñ ¼Ñ¡ε" ú½.3).
         è«úñá ¬«¼»¿½∩Γ«α Æπαí« üÑ⌐ß¿¬á óßΓαÑτáÑΓ ¼ÑΓá«»ÑαáΓ«α $INCLUDE
      ó  ßΓα«¬Ñ  7 Σá⌐½á CALCAREA, «¡ ºáúαπªáÑΓ ¿ ¡áτ¿¡áÑΓ ßτ¿ΓδóáΓ∞ ¿º
      CONST.BAS.  è«úñá  φëà ¬«ñ ¿ßτÑα»δóáÑΓß∩, ¬«¼»¿½∩Γ«α ºáσóáΓδóáÑΓ
      «ßΓáó½Ñ¡¡«Ñ ¿¼ ¼ÑßΓ« ó »Ñαó«¡áτá½∞¡«⌐ »α«úαá¼¼Ñ.
         $INCLUDE  ¼«ªÑΓ ó¬½áñδóáΓ∞ß∩ ¡á ú½πí¿¡π 5; Γ.Ñ ó¬½ετáѼδ⌐ Σá⌐½
      ¼«ªÑΓ ¿¼ÑΓ∞ ßó«¿ $INCLUDE. 

      Åα¿¼Ñα   'σαá¡¿Γ∞ ß½ÑñπΘÑÑ ó Σá⌐½Ñ "example.inc"
      ------   sub æ¬áª¿Ç½½« '»α«µÑñπαá óδó«ñ
                print "ǽ½«"
               end sub
               'ñá½ÑÑ ß½Ññπ¡Γ ú½áó¡á∩ »α«úαá¼¼á
               $include "example.inc" 'ó¬½ετ¿Γ∞ ¿ßσ«ñ¡δ⌐ Σá⌐½
               call æ¬áª¿Ç½½«
               end

                             îÑΓá«»ÑαáΓ«α $INLINE
                            ---------------------

      öπ¡¬µ¿∩     $INLINE      ºá∩ó½∩ÑΓ   ó¡πΓα¿ßΓα«τ¡δ⌐   ¼áΦ¿¡¡δ⌐
                               ¬«ñ ó« ó¡πΓα¿ßΓα«τ¡«⌐ ßπí»α«µÑñπαÑ. 

      æ¿¡Γá¬ß¿ß   $INLINE [滿߫¬ íá⌐Γ«ó][Σá⌐½ß»Ñµ.½¿ΓÑαá½]
      ---------

      çá¼Ñτá¡¿∩   $INLINE      ¼«ªÑΓ  íδΓ∞  Γ«½∞¬«  ó   »αÑñѽáσ   Γѽá
      ---------                ó¡πΓα¿ßΓα«τ¡«⌐ ßπí»α«µÑñπαδ. 
         滿߫¬   íá⌐Γ«ó  - φΓ«  »«ß½Ññ«óáΓѽ∞¡«ßΓ∞  µÑ½δσ  º¡áτÑ¡¿⌐  ó
      ñ¿á»áº«¡Ñ  «Γ  0 ñ« 255, »«ñ½ÑªáΘ¿σ ¬«ñ¿α«óá¡¿ε ¡Ñ»«ßαÑñßΓóÑ¡¡« ó
      «í∞Ñ¬Γ¡«¼ ¬«ñÑ ó ñá¡¡«⌐ Γ«τ¬Ñ. 
         öá⌐½æ»Ñµ.½¿ΓÑαá½  -  φΓ«  ¿¼∩  Σá⌐½á,¬«Γ«αδ⌐  ß«ñÑαª¿Γ  ¬«ñ, ó
      ¬«Γ«αδ⌐   óßΓáó½∩ÑΓß∩   ó¡πΓα¿ßΓα«τ¡á∩.   ¥Γ«Γ  ¬«ñ  ñ«½ªÑ¡  íδΓ∞
      »ÑαÑ«»αÑñѽ∩Ѽ,   á   Γá¬ªÑ  ñ«½ªÑ¡  ºáΘ¿ΘáΓ∞  ¿  ó«ßßΓá¡áó½¿óáΓ∞
      ß½ÑñπεΘ¿Ñ  αÑú¿ßΓαδ:  ßΓѬ«óδ⌐  ßÑú¼Ñ¡Γ(SS),  ßΓѬ«óδ⌐  π¬áºáΓѽ∞
      (SP),  íẫóδ⌐  π¬áºáΓѽ∞  (BP),  ßÑú¼Ñ¡Γ  ñá¡¡δσ (DS). é¡πΓα¿ßΓ-
      α«τ¡δ⌐  ¬«ñ  ¼«ªÑΓ  ¿¼ÑΓ∞  ßßδ½¬π  ¡á  »«αá¼ÑΓαδ ß ¿ß»«½∞º«ó᡿Ѽ
      «Γ¡«ß¿Γѽ∞¡«⌐ áñαÑßᵿ¿ BP. ü«½ÑÑ »«ñα«í¡á∩ ¿¡Σ«α¼áµ¿∩ ß«ñÑনΓß∩
      ó  »α¿½«ªÑ¡¿¿  Ç "ù¿ß½«óδÑ ß««íαáªÑ¡¿∩" ¿ »α¿½«ªÑ¡¿¿ æ "ê¡ΓÑαΣÑ⌐ß
      ∩ºδ¬á áßßѼí½Ñαá". 

        Åα¿¼Ñα   sub ó¿ºú inline
                 '$inline óδºδóáÑΓ óδñáτπ ó¿ºúá ºóπ¬«óδ¼ ¿º½πτáΓѽѼ
                 $inline &HBA,&H00,&H07,&HE4,&H61,&H24,
                 $inline &HFC,&H34,&H02,&HE6,&H61,&HB9,
                 $inline &H40,&H01,&HE@,&HFE,&H4A,&H74
                 $inline &H02,&HF2
                 end sub
                 call ó¿ºú
                 end

                            îÑΓá«»ÑαáΓ«α $SEGMENT
                            ---------------------

      öπ¡¬µ¿∩   $SEGMENT       ºá∩ó½∩ÑΓ ¡«óδ⌐ ¬«ñ«óδ⌐ ßÑú¼Ñ¡Γ.
      --------

      æ¿¡Γá¬ß¿ß $SEGMENT
      ---------

      çá¼Ñτá¡¿∩          êß»«½∞ºπ⌐ΓÑ   "íѺáαúπ¼Ñ¡Γ¡δÑ"   ¼ÑΓá«»ÑαáΓ«αδ
      ---------        $SEGMENT  ñ½∩  αáºαδóá óáΦÑ⌐ ¿ßσ«ñ¡«⌐ »α«úαá¼¼δ,
      ¬«úñá  ¬«¼»¿½∩Γ«α  ß««íΘáÑΓ,  τΓ«  »αÑóδΦÑ¡«  «úαá¡¿τÑ¡¿Ñ 64è ñ½∩
      ¬«ñ«ó«ú« ßÑú¼Ñ¡Γá: ERROR 409 segment overflow press <ESC> («Φ¿í¬á
      409 »ÑαÑ»«½¡Ñ¡¿Ñ ßÑú¼Ñ¡Γá ¡áª¼¿ΓÑ <ESC>) 
         éßÑ,   τΓ«   ¡áσ«ñ¿Γß∩  »«ß½Ñ  ¼ÑΓá«»ÑαáΓ«αá  $SEGMENT,  íπñÑΓ
      »«¼ÑΘÑ¡«  ó  ¡«óδ⌐  ¬«ñ«óδ⌐  ßÑú¼Ñ¡Γ. é αѺπ½∞ΓáΓÑ ½εí«⌐ «»ÑαáΓ«α
      π»αáó½Ñ¡¿∩   »α«úαá¼¼«⌐   (GOSUB,  GOTO),  »ÑαÑñáεΘÑÑ  π»αáó½Ñ¡¿Ñ
      τÑαѺφΓπ  úαá¡¿µπ,  íπñÑΓ  αÑ὿º«óáΓ∞ ¼ÑªßÑú¼Ñ¡Γ¡«Ñ »ÑαѼÑΘÑ¡¿Ñ,
      óδº«ó  ¿½¿  »ÑαÑσ«ñ,  ñ½∩  ¬«Γ«α«ú«  ΓαÑíπÑΓß∩  ¡Ñ߬«½∞¬«  í«½∞ΦÑ
      óαѼѡ¿  ¿  ßΓѬ«ó«ú« »α«ßΓαá¡ßΓóá. ¥Γ«Γ φΣΣÑ¬Γ ¼«ª¡« ¼¿¡¿¼¿º¿α«-
      óáΓ∞,αẼÑΘá∩  «»ÑαáΓ«αδ  $SEGMENT  Γá¼, úñÑ ó »α«úαá¼¼Ñ »α«σ«ñ∩Γ
      ÑßΓÑßΓóÑ¡¡δÑ  ½¿¡¿¿  ñѽѡ¿∩ ÑÑ ¡á τáßΓ¿; ¡á»α¿¼Ñα ¼Ñªñπ ú½áó¡δ¼¿
      »«ñ»α«úαἼἿ  ¿½¿  ú½áó¡«⌐  »α«úαá¼¼«⌐  ¿ ¬«ñ«¼ ó«ºíπªñÑ¡¿∩ ¿½¿
      ºáóÑαΦÑ¡¿∩.
         é  »α«úαá¼¼Ñ  ¡á  Æπαí«  üÑ⌐ß¿¬Ñ  ¼«ªÑΓ  íδΓ∞  ñ«  16  ¬«ñ«óδσ
      ßÑú¼Ñ¡Γ«ó. äá¡¡δÑ ß«ßΓ«∩¡¿á ¬«¼»¿½¿α«óá¡¿∩, αáß»ÑτáΓδóáѼδÑ »«ß½Ñ
      Ñú«   ºáóÑαΦÑ¡¿∩,   íπñπΓ  »«¬áºδóáΓ∞  αẼÑα  ¬áªñ«ú«  ßÑú¼Ñ¡Γá,
      «Γñѽ∩Ѽ«ú« ¬«ß«⌐ τÑαΓ«⌐(/).

      Åα¿¼Ñτá¡¿Ñ:   éδ  ¡Ñ  ¼«ªÑΓÑ  ¿ß»«½∞º«óáΓ∞  «»ÑαáΓ«α  $SEGMENT  ó
      -----------    ßΓαπ¬Γπα¿α«óá¡¡«¼    í½«¬Ñ:   for/next,   do/loop,
      while/wend, if block. 

        Åα¿¼Ñα    sub Åα«µÑñπαá1
                  print "φΓ« »πßΓá∩ »α«µÑñπαá"
                  end sub
                  $segment '«»αÑñѽ¿Γ∞ óΓ«α«⌐ ßÑú¼Ñ¡Γ
                  sub Åα«µÑñπαá2
                   print "φΓ« ñαπúá∩ »πßΓá∩ »α«µÑñπαá"
                  end sub
                  $segment '«»αÑñѽ¿Γ∞ ΓαÑΓ¿⌐ ßÑú¼Ñ¡Γ
                  sub Åα«µÑñπαá3
                   print "¥Γ« ñαπúá∩ »πßΓá∩ »α«µÑñπαá"
                  end sub
                  call Åα«µÑñπαá1
                  call Åα«µÑñπαá2
                  call Åα«µÑñπαá3
                  end

                             îÑΓá«»ÑαáΓ«α $SOUND
                             -------------------

      öπ¡¬µ¿∩  $SOUND     ºá∩ó½∩ÑΓ Ñ¼¬«ßΓ∞ Σ«¡«ó«ú« ¼πºπ¬á½∞¡«ú« íπΣÑαá
      -------- 

      æ¿¡Γá¬ß¿ß $SOUND       αẼÑα íπΣÑαá
      ---------

      çá¼Ñτá¡¿∩ ÉẼÑα íπΣÑαá-φΓ« τ¿ß½«óá∩ ¬«¡ßΓá¡Γá, ¬«Γ«αá∩ π¬áºδóáÑΓ
      ---------  ¡«Γ¡πε  Ñ¼¬«ßΓ∞ Σ«¡«ó«ú« íπΣÑαá «»ÑαáΓ«αá PLAY «Γ 1 ñ«
      4096.  ôóѽ¿τÑ¡¿Ñ  Ѽ¬«ßΓ¿  íπΣÑαá  ñ«  ¼á¬ß¿¼á½∞¡«ú«  τ¿ß½á ¡«Γ,
      ¬«Γ«αδÑ   óδ   ¡á¼ÑαÑ¡δ  ¿úαáΓ∞  ó  ñá¡¡«⌐  »α«úαá¼¼Ñ,  ¿ß¬½ετáÑΓ
      ¡Ñ«íσ«ñ¿¼«ßΓ∞   «Γ߽Ѫ¿óá¡¿∩  ßτÑΓτ¿¬á  ¡«Γ  (¿  ß««ΓóÑΓßΓóπεΘeú«
      πσπñΦÑ¡¿∩ ¬áτÑßΓóá ¿ß»«½¡Ñ¡¿∩).
         ä½∩  ¬áªñ«⌐  ¡«Γδ  ΓαÑíπÑΓß∩  8  íá⌐Γ«ó  »á¼∩Γ¿;  »« π¼«½τá¡¿ε
      Ѽ¬«ßΓ∞  αáó¡á  32  ¡«Γá¼  ¿½¿  256 íá⌐Γá¼. ç¡áτÑ¡¿Ñ »« π¼«½τá¡¿ε
      ¼«ª¡« ¼Ñ¡∩Γ∞ ¿ σαá¡¿Γ∞, »«½∞ºπ∩ß∞ óσ«ñ«¼ ¼πºδ¬á½∞¡«ú« íπΣÑαá ¼Ñ¡ε
      «»µ¿⌐.  ç¡áτÑ¡¿∩  »«  π¼«½τá¡¿ε  »αÑ«ñ«½ÑóáεΓß∩ ó¬½ετÑ¡¡δ¼¿ ó ¬«ñ
      ¼ÑΓá«»ÑαáΓ«αἿ. 

                             îÑΓá«»ÑαáΓ«α $STACK
                             --------------------

      öπ¡¬µ¿∩   $STACK ºá∩ó½∩ÑΓ αẼÑα ßΓÑ¬á »Ñα¿«ñá »α«ú«¡á.
      --------

      æ¿¡Γá¬ß¿ß $STACK «ΓßτÑΓ
      ---------

      çá¼Ñτá¡¿∩  ÄΓßτÑΓ  -  τ¿ß½«óá∩  ¬«¡ßΓá¡Γá «Γ 1024 ñ« 32 è. $STACK
      ---------  «»αÑñѽ∩ÑΓ  ߬«½∞¬«  »á¼∩Γ¿  ó  »Ñα¿«ñ  »α«ú«¡á  íπñÑΓ
      óδñѽѡ«  ¡á  ßΓѬ.  æΓѬ  ¿ß»«½∞ºπÑΓß∩  ñ½∩  áñαÑß«ó ó«ºóαáΓá ó«
      óαѼѡ¿  ó맮ó«ó  »«ñ»α«úαá¼¼ ¿ ó ßΓαπ¬Γπα¿α«óá¡¡δσ «»ÑαáΓ«αáσ, á
      Γá¬ªÑ   ñ½∩   ½«¬á½∞¡δσ  »ÑαѼѡ¡¡δσ  ¼¡«ú«ßΓα«τ¡δσ  Σπ¡¬µ¿⌐.  Å«
      π¼«½τá¡¿ε (¼¿¡¿¼á½∞¡δ⌐) αẼÑα ß«ßΓ«ó½∩ÑΓ 1024 (400ì) íá⌐Γ«ó.
         éδ  ¼«ªÑΓÑ  »«ªÑ½áΓ∞  αẼÑΘ¿Γ∞ í«½∞ΦÑ ßΓѬ«ó«ú« »α«ßΓαá¡ßΓóá,
      Ñß½¿   óáΦá   »α«úαá¼¼á   ¡Ñ¡«α¼á½∞¡«   ßΓαπ¬Γπα¿α«óá¡Γá,  ó  ¡Ñ⌐
      ¿ß»«½∞ºπεΓß∩   í«½∞Φ¿Ñ   ½«¬á½∞¡δÑ   »ÑαѼѡ¡δÑ  ¿½¿  óδ»«½¡∩ÑΓß∩
      αѬ¬παß¿ó¡«ßΓ∞.  àß½¿  óδ  »«ñ«ºαÑóáÑΓÑ τΓ« »α«úαá¼¼á óδíÑúáÑΓ ºá
      ßΓѬ«ó«Ñ  »α«ßΓαá¡ßΓó«, »ÑαѬ«¼»¿½¿απ⌐ΓÑ ÑÑ ß «»µ¿Ñ⌐ ΓÑßΓ¿α«óá¡¿∩
      ßΓÑ¬á  ¿º ¼Ñ¡ε «»µ¿⌐. Åα«úαá¼¼á, úÑ¡Ñα¿α«óá¡¡á∩ ß φΓ¿¼ «Γ½áñ«τ¡δ¼
      »ÑαѬ½ετáΓѽѼ   ó«   ó¬½ετÑ¡¡«¼   ß«ßΓ«∩¡¿¿,   »ÑαÑñ   óσ«ñ«¼  ó
      »«ñ»α«úαá¼¼δ,  »α«µÑñπαδ  ¿  Σπ¡¬µ¿¿  óßÑúñá  »α«óÑα∩ÑΓ  ¡á½¿τ¡«Ñ
      ßΓѬ«ó«Ñ   »α«ßΓαá¡ßΓó«.   ç¡áτÑ¡¿∩   »«  π¼«½τá¡¿ε  »α«ñ½ÑóáεΓß∩
      ó¬½ετÑ¡¡δ¼¿ ó ¬«ñ ¼ÑΓá«»ÑαáΓ«αἿ. 
         éδ ¼«ªÑΓÑ »α«óÑα∩Γ∞ ñ½∩ ßÑí∩ óѽ¿τ¿¡π ßΓѬ«ó«ú« »α«ßΓαá¡ßΓóá ß
      »«¼«Θ∞ε Σπ¡¬µ¿¿ FRE(-2). 
            æî. Γá¬ªÑ FRE

      Åα¿¼Ñα    'ñáÑΓß∩ ßΓѬ 4096 íá⌐Γ«ó
                $stack &H1000
                print fre(-2)      '«Γ«íαáªáÑΓß∩   óѽ¿τ¿¡á   ¡á½¿τ¡«ú«
                                   'ßΓѬ«ó«ú« »α«ßΓ αá¡ßΓóá 

                             îÑΓá«»ÑαáΓ«α $STATIC
                            ---------------------

      öπ¡¬µ¿∩  $STATIC    ºá∩ó½∩ÑΓ, τΓ« αẼÑΘáѼδ⌐ »« π¼«½τá¡¿ε ¼áßß¿ó
      -------             ñ«½ªÑ¡ íδΓ∞ ßΓáΓ¿τÑ߬¿¼. 

      æ¿¡Γá¬ß¿ß          îÑΓá«»ÑαáΓ«α  $STATIC  ¡Ñ  ¿¼ÑÑΓ áαúπ¼Ñ¡Γ«ó ¿
      ---------          ºá∩ó½∩ÑΓ, τΓ« ¼áßß¿ó íπñÑΓ ßΓáΓ¿τÑ߬«ú« Γ¿»á.
         Åα«ßΓαá¡ßΓó«  ñ½∩ ßΓáΓ¿τÑ߬¿σ ¼áßß¿ó«ó αáß»αÑñѽ∩ÑΓß∩ ó« óαѼ∩
      ¬«¼»¿½¿α«óá¡¿∩. îáßß¿óδ »«ßΓ«∩¡¡δσ αẼÑα«ó ∩ó½∩εΓß∩ ßΓáΓ¿τÑ߬¿¼¿
      óßÑúñá,  ºá  ¿ß¬½ετÑ¡¿Ñ¼ ß½πτáÑó ºá∩ó½Ñ¡¿∩ ¼áßß¿óá ¬á¬ ½«¬á½∞¡«ú«
      ñ½∩  »α«µÑñπαδ  ¿½¿ Σπ¡¬µ¿¿, ½¿í« Ñß½¿ «ñ¿¡ ¿ ëà ªÑ ¼áßß¿ó ¿¼ÑÑΓ
      í«½ÑÑ «ñ¡«ú« αẼÑαá. 
         æΓáΓ¿τÑ߬¿Ñ ¼áßß¿óδ ¡Ñ󫺼«ª¡« ßΓ¿αáΓ∞.Ä»ÑαáΓ«α«¼ ERASE ¬áªñδ⌐
      φ½Ñ¼Ñ¡Γ ¼áßß¿óá Γ«½∞¬« ó«ºíπªñáÑΓß∩ ó ¡«½∞ ¿½¿ ¡«½∞-ßΓ᫬π. 
         æ½ÑñπÑΓ   ºá¼ÑΓ¿Γ∞,  τΓ«  ¼ÑΓá«»ÑαáΓ«α  $STATIC,  ¡Ñß¼«Γα∩  ¡á
      ¬«ß¼ÑΓ¿τÑ߬«Ñ  »«ñ«í¿Ñ,  ¡Ñ  ¿¼ÑÑΓ  ¡¿τÑú«  «íΘÑú«  ß  «»ÑαáΓ«α«¼
      STATIC, ¬«Γ«α«Ñ «»αÑñѽ∩ÑΓ ß»Ñµ¿á½∞¡δ⌐ Γ¿» ½«¬á½∞¡«⌐ »ÑαѼѡ¡«⌐ ó
      »α«µÑñπαáσ ¿ Σπ¡¬µ¿∩σ. é αѪ¿¼Ñ π¼«½τá¡¿∩ ¬«¼»¿½∩Γ«αá - $STATIC.
      Cî. ΓᬪÑ
           DIM
           $DYNAMIC
           ERASE
           FRE

      Åα¿¼Ñα  $STATIC '∩ó¡« «»αÑñѽ¿Γ∞ ßΓáΓ¿τÑ߬¿Ñ ¼áßß¿óδ
              print "ì὿τ¡á∩ »á¼∩Γ∞: ",fre(-1)
              '»á¼∩Γ∞ «ßΓáÑΓß∩ Γ«⌐ ªÑ ßἫ⌐
              dim a(50) 'á-ßΓáΓ¿τÑ߬¿⌐ ¼áßß¿ó
              print "¡á½¿τ¡á∩ »á¼∩Γ∞",fre(-1)
              n=50
              'ó-φΓ« ñ¿¡á¼¿τÑ߬¿⌐ ¼áßß¿ó, Γ.¬ ¿ß»«½∞ºπÑΓß∩ ó «»ÑαáΓ«αÑ
              'DIM ¬á¬ áαúπ¼Ñ¡Γ óδαáªÑ¡¿∩
              dim b(n)
              print "ì὿τ¡á∩ »á¼∩Γ∞ ",fre(-1)
              'ΓÑ»Ñα∞ ÑÑ ¼Ñ¡∞ΦÑ
              erase a
              print "ì὿τ¡á∩ »á¼∩Γ∞",fre(-1)
              '¡¿¬á¬«ú« «Γ½¿τ¿∩ ¡ÑΓ, »«ß¬«½∞¬π Ç ¡Ñ »ÑαÑαáß»αÑñÑ-
              '½∩ÑΓß∩, á Γ«½∞¬« «í¡π½∩ÑΓß∩ 
              erase b
              print "¡á½¿τ¡á∩ »á¼∩Γ∞ ",fre(-1)
              'í«½∞ΦÑ »á¼∩Γ¿,»«ß¬«½∞¬π ñ¿¡á¼¿τÑ߬¿Ñ ¼áßß¿óδ »ÑαÑαáß- 
              '»αÑñѽ∩εΓß∩
              end

                                 öπ¡¬µ¿∩ ABS
                                 -----------

      öπ¡¬µ¿∩  ABS    ó«ºóαáΘáÑΓ  áíß«½εΓ¡«Ñ  º¡áτÑ¡¿Ñ
      -------

      æ¿¡Γá¬ß¿ß Y=ABS    (τ¿ß½«ó«Ñ óδαáªÑ¡¿Ñ)
      ---------

      çá¼Ñτá¡¿∩       ABS  ó«ºóαáΘáÑΓ  áíß«½εΓ¡«Ñ   º¡áτÑ¡¿Ñ  τ¿ß½«ó«ú«
      ---------       óδαáªÑ¡¿∩.  Çíß«½εΓ¡«Ñ  º¡áτÑ¡¿Ñ  X π¬áºδóáÑΓ Ñú«
      óѽ¿τ¿¡π  ó¡Ñ ºáó¿ß¿¼«ßΓ¿ «Γ º¡á¬á. ìá»α¿¼Ñα, áíß«½εΓ¡«Ñ º¡áτÑ¡¿Ñ
      -3 αáó¡« 3; áíß«½εΓ¡«Ñ º¡áτÑ¡¿Ñ +3 ÑßΓ∞ 3.

      Åα¿¼Ñα    'ABS ó«ºó»áΘáÑΓ ΓѬπΘÑÑ αáßßΓ«∩¡¿Ñ «Γ ¿ßσ«ñ¡«⌐ Γ«τ¬¿,
      ------    'íÑα∩ áíß«½εΓ¡«Ñ º¡áτÑ¡¿Ñ αáßßΓ«∩¡¿∩
                '¡áº¡áτ¿Γ∞ ¼ÑßΓ«»«½«ªÑ¡¿Ñ
                îÑßΓ«»«½«ªÑ¡¿Ñ=-6.5
                '«Γ«íαếΓ∞ ΓѬπΘÑÑ ¼ÑßΓ«»«½«ªÑ¡¿Ñ
                print "ΓѬπΘÑÑ ¼ÑßΓ«»«½«ªÑ¡¿Ñ ",îÑßΓ«»«½«ªÑ¡¿Ñ#
                '«Γ«íαếΓ∞ ΓѬ.αáßßΓ«∩¡¿Ñ «Γ ¿ßσ«ñ¡«⌐ Γ«τ¬¿
                print "αáßßΓ«∩¡¿Ñ «Γ ¿ßσ.Γ«τ¬¿", abs (ÉáßßΓ«∩¡¿Ñ#)
                  (îÑßΓ«»«½«ªÑ¡¿Ñ#)

                                 öπ¡¬µ¿∩ ASC
                                 -----------

      öπ¡¬µ¿∩  ASC        ó«ºóαáΘáÑΓ ¬«ñ ASCII »Ñαó«⌐ ½¿ΓÑαδ ßΓ᫬¿.
      -------

      æ¿¡Γá¬ß¿ß           Y=ASC(ßΓα«τ¡«Ñ óδαáªÑ¡¿Ñ)
      ---------

      çá¼Ñτá¡¿∩    ASC ó«ºóαáΘáÑΓ ¬«ñ ASCII («Γ 0 ñ« 255) »Ñαó«⌐ ½¿ΓÑαδ
      ---------     ßΓα«τ¡«ú«  óδαáªÑ¡¿∩.  ùΓ«íδ  »αÑ«íαẫóáΓ∞ µÑ½«Ñ ó
      ½¿ΓÑα¡πε  ßΓ᫬π,  ¿ß»«½∞ºπ⌐ΓÑ  Σπ¡¬µ¿ε  CHR$, ¬«Γ«αá∩ »α¿ »«ñáτÑ
      ASCII-º¡áτÑ¡¿∩ ñáÑΓ «ñ¡«-½¿ΓÑα¡πε ßΓ᫬π.

      Äúαá¡¿τÑ¡¿∩    æΓα«τ¡«Ñ óδαáªÑ¡¿Ñ, »«ñáóáѼ«Ñ ó ASC ¡Ñ ¼«ªÑΓ íδΓ∞
      -----------   ¡π½Ñó«⌐ (»πßΓ«⌐) ßΓ᫬«⌐, ¿¡áτÑ úÑ¡Ñα¿απÑΓß∩ «Φ¿í¬á
      5 (ó맮ó ¡Ñºá¬«¡¡«⌐ Σπ¡¬µ¿¿).
         æ¼. Γá¬ªÑ CHR$

      Åα¿¼Ñα   print "ASCII- º¡áτÑ¡¿Ñ Ç ÑßΓ∞",asc("Ç")

                                 öπ¡¬µ¿∩ ATN
                                 -----------

      öπ¡¬µ¿∩   ATN           «»αÑñѽ∩ÑΓ Γα¿ú«¡«¼ÑΓα¿τÑ߬¿⌐ áα¬Γá¡úÑ¡ß.
      -------

      æ¿¡Γá¬ß¿ß               Y=ATN(τ¿ß½«ó«Ñ óδαáªÑ¡¿Ñ)
      ---------

      çá¼Ñτá¡¿∩ ATN «»αÑñѽ∩ÑΓ áα¬Γá¡úÑ¡ß (¿¡óÑαß¿ε Γá¡úÑ¡ßá) τ¿ß½«ó«ú«
      ---------      óδαáªÑ¡¿∩. ATN óδñáÑΓ αѺπ½∞ΓáΓ ñó«⌐¡«⌐ Γ«τ¡«ßΓ¿.
         ÉѺπ½∞ΓáΓ,  ¬á¬  ¿ ó« óßÑσ «»Ñαᵿ∩σ ß πú½á¼¿ ó Æπαí« üÑ⌐ß¿¬Ñ,
      »αÑñßΓáó½∩ÑΓß∩ ó αáñ¿á¡áσ, á ¡Ñ ó úαáñπßáσ. Éáñ¿á¡δ - φΓ« Ññ¿¡¿µδ
      πú½«óδσ  ¿º¼ÑαÑ¡¿⌐  Γ.Ñ  ¼áΓѼáΓ¿τÑ߬¿ í«½ÑÑ πñ«í¡á, τѼ úαáñπßδ.
      è«úñá πú½δ ߻ѵ¿Σ¿µ¿απεΓß∩ ó úαáñπßáσ ó ñ¿á»áº«¡Ñ «Γ 0 ñ« 360, ¿σ
      ߻ѵ¿Σ¿¬áµ¿∩  ó  αáñ¿á¡áσ  ½Ñª¿Γ  ó  ñ¿á»áº«¡Ñ  «Γ 0 ñ« 2», »α¿ 0
      αáñ¿á¡  ¡á  »«½«ª¿Γѽ∞¡«⌐  «ß¿  X  ¿  ó«ºαáßΓ᡿Ѽ »α«Γ¿ó τáß«ó«⌐
      ßΓαѽ¬¿.  ¥Γ«  ñáÑΓ  »«½«ª¿Γѽ∞¡πε  «ß∞  Y  (90úαáñπß«ó)  »α¿ »/2
      αáñ¿á¡,  «Γα¿µáΓѽ∞¡πε  «ß∞  X  (180  úαáñπß«ó)  »α¿  »  αáñ¿á¡ ¿
      «Γα¿µáΓѽ∞¡πε «ß∞ Y (270 úαáñπß«ó) »α¿ 3»/2 αáñ¿á¡.
                        90=»/2αáñ.
                               ^
                               |
                               |
                   180=» αáñ   |
                   ------------+----------->0=0αáñ.
                               |
                               |
                               |
                               |
                               270=3»/2 αáñ.
         àß½¿   óδ   í«½ÑÑ   Γ∩ú«ΓÑÑΓÑ   ¬   úαáñπßá¼,   αáñ¿á¡δ  ¼«ª¡«
      »αÑ«íαẫóáΓ∞ ó úαáñπßδ »«ßαÑñßΓó«¼ π¼¡«ªÑ¡¿∩ º¡áτÑ¡¿∩ ó αáñ¿á¡áσ
      ¡á 57.2958. ìá»α¿¼Ñα, áα¬Γá¡úÑ¡ß 0.23456 ÑßΓ∞ 
            ATN (.23456) αáñ¿á¡δ
            =0.230395 αáñ¿á¡δ
            =(0.230395*57.2958)úαáñπßδ
            =12.2úαáñπßδ

         ÅαÑ«íαẫóδóá⌐ΓÑ úαáñπßδ ó αáñ¿á¡δ »«ßαÑñßΓó«¼  π¼¡«ªÑ¡¿∩  ¡á
      0.0174533. ìá»α¿¼Ñα,
            14 úαáñπßδ
            =(0.0174533*14) αáñ¿á¡δ
            =0.24435 αáñ¿á¡δ

         é¼ÑßΓ«  Γ«ú«,  τΓ«íδ  ºá»«¼¿¡áΓ∞  ¬«φΣΣ¿µ¿Ñ¡Γδ  »αÑ«íαẫóá¡¿∩
      αáñ¿á¡δ/úαáñπßδ,  óδτ¿ß½∩⌐ΓÑ ¿σ ñ½∩ ßÑí∩ ºá»«¼¡¿ó ¿σ óºá¿¼«ßó∩º∞:
      2Å¿  αáñ¿á¡  αáó¡δ »«½¡«⌐ «¬απª¡«ßΓ¿, Γ.Ñ 360 úαáñπßá¼, ΓᬠτΓ« 1
      αáñ¿á¡  ÑßΓ∞  180/»  úαáñπß«ó,  ¿  ¡á«í«α«Γ, 1 úαáñπß αáóÑ¡ »/180
      αáñ¿á¡.
         éá¼  ó  ¬áτÑßΓóÑ  ß»αáó¬¿: Å¿  ß  16-Γ¿º¡áτ¡«⌐  Γ«τ¡«ßΓ∞ε ÑßΓ∞
      3.141592633589793 ¥Γ« º¡áτÑ¡¿Ñ ¼«ª¡« óδτ¿ß½¿Γ∞ ¿º óδαáªÑ¡¿∩ 
            pi#=4*atn(1)
         âαáñπß-αáñ¿á¡¡δÑ  ¿  αáñ¿á¡-úαáñπß¡δÑ  »αÑ«íαẫóá¡¿∩ ∩ó½∩εΓß∩
      σ«α«Φ¿¼ »α¿½«ªÑ¡¿Ñ¼ ñ½∩ «ñ¡«ßΓα«τ¡δσ Σπ¡¬µ¿⌐. 
      ß¼. Γá¬ªÑ COS
               SIN
               TAN
      Åα¿¼Ñα   'óδτ¿ß½¿Γ∞ º¡áτÑ¡¿Ñ pi,¿ß»«½∞ºπ∩  atn
               pi#=4*atn(10
               print pi#

                                Ä»ÑαáΓ«α BEEP
                                -------------

      öπ¡¬µ¿∩  BEEP      «íÑß»Ñτ¿óáÑΓ ºóπτá¡¿Ñ ¿º½πτáΓѽ∩ ºóπ¬á.
      --------

      æ¿¡Γá¬ß¿ß     BEEP ¿úαáÑΓ Γ«¡ 800 úµ τÑαѺ ñ¿¡á¼¿¬ ó ΓÑτÑ¡¿¿ 0.25
      ---------     ßѬ.  Ä»µ¿«¡á½∞δ⌐ τ¿ß½«ó«⌐ áαúπ¼Ñ¡Γ óδºδóáÑΓ «ΓßτÑΓ
      BEEP-ß¿ú¡á½«ó.   BEEP   ¿¼ÑÑΓ   Γ«  ªÑ  ñÑ⌐ßΓó¿Ñ,  τΓ«  ¿  ½¿ΓÑαá
      ¬«½«¬«½∞τ¿¬á  ASCII  (¬«ñ7)  »α¿ óδó«ñÑ ¡á φ¬αá¡; ¡á»α¿¼Ñα, print
      CHR$(7).  ü«½ÑÑ  ¼Ñ½«ñ¿τ¡δÑ  Γ«¡δ  ¼«ª¡« ß«ºñáóáΓ∞ ß »«¼«Θ∞ε «»Ñ-
      αáΓ«α«ó SOUND ¿ PLAY.
        æ¼. Γá¬ªÑ PLAY
            SOUND

        Åα¿¼Ñα    BEEP 2 '»α¿ó½Ñτ ó¡¿¼á¡¿Ñ »«½∞º«óáΓѽ∩

                                 öπ¡¬µ¿∩ BIN$
                                 ------------

      öπ¡¬µ¿∩   BIN$       ñó«¿τ¡¡πε ßΓ᫬π ¬á¬ φ¬ó¿óá½Ñ¡Γ τ¿ß½á
      -------

      æ¿¡Γá¬ß¿ß            s$=bin$(τ¿ß½«ó«Ñ óδαáªÑ¡¿Ñ)
      ---------

      çá¼Ñτá¡¿Ñ      ù¿ß½«ó«Ñ óδαáªÑ¡¿Ñ ½Ñª¿Γ ó ñ¿á»áº«¡Ñ  «Γ -32768 ñ«
      ---------      65535. ÅÑαÑñ  ß«ºñ᡿Ѽ ßΓ᫬¿ ½εíá∩ ñα«í¡á∩ τáßΓ∞
      «¬απú½∩ÑΓß∩.   àß½¿   τ¿ß½«ó«Ñ   óδαáªÑ¡¿Ñ   «Γα¿µáΓѽ∞¡«,  τ¿ß½«
      ó«ºóαáΘáÑΓß∩ ó Σ«α¼Ñ ñó«¿τ¡«ú« ñ«»«½¡Ñ¡¿∩.

        C¼ Γá¬ªÑ  HEX$
                  OCT$

       Åα¿¼Ñα 'ó φΓ«¼ »α¿¼ÑαÑ «Γ«íαáªáεΓß∩ ñÑß∩Γ¿τ¡«Ñ ¿ ñó«¿τ¡«Ñ
              'º¡áτÑ¡¿Ñ ñ½∩ τ¿ßѽ «Γ -5 ñ« 5
              print using "ñó«¿τ¡δ⌐ φ¬ó¿óá½Ñ¡Γ -##=&";i%,bin$(i%)
              next i%
              end

                                Ä»ÑαáΓ«α BLOAD
                                --------------

      öπ¡¬µ¿∩   BLOAD      ºáúαπªáÑΓ ó »á¼∩Γ∞ Σá⌐½ ß«ºñáóáѼδ⌐
      -------              ß »«¼«Θ∞ε «»ÑαáΓ«αá BSAVE.

      æ¿¡Γá¬ß¿ß            BLOAD Σá⌐½á߻ѵ.[,áñαÑß]
      ---------

      çá¼Ñτá¡¿∩  öá⌐½á߻ѵ-φΓ« ßΓα«τ¡«Ñ óδαáªÑ¡¿Ñ, ߻ѵ¿Σ¿µ¿απεΘÑÑ Σá⌐½
      ---------  ñ½∩ ºáúαπº¬¿, ¬«Γ«α«Ñ ñ«½ª¡« πñ«ó½ÑΓó«α∩Γ∞ ßΓá¡ñáαΓ¡δ¼
      ß«ú½áΦÑ¡¿∩¼  DOS  «í  ¡á¿¼Ñ¡«óá¡¿¿  Σá⌐½«ó.  ÇñαÑß  -«»µ¿«¡á½∞¡«Ñ
      τ¿ß½«ó«Ñ óδαáªÑ¡¿Ñ «Γ 0 ñ« 65535, ¬«Γ«α«Ñ π¬áºδóáÑΓ ó ¬á¬«Ñ ¼ÑßΓ«
      ΓѬπΦÑú«   ßÑú¼Ñ¡Γá   ñ«½ªÑ¡   íδΓ∞  ºáúαπªÑ¡  Σá⌐½.  àß½¿  áñαÑß
      «»π߬áÑΓß∩,  BLOAD  »«¼ÑΘáÑΓ  Σá⌐½  »«  áñαÑßπ ¿º ¬«Γ«α«ú« «¡ íδ½
      ¿º¡áτá½∞¡« óº∩Γ ¡á σαá¡Ñ¡¿Ñ ß »«¼«Θ∞ε «»ÑαáΓ«αá BSAVE.
         àß½¿   áñαÑß  ºáñáÑΓß∩,  «¡  »αÑ«ñ«½ÑóáÑΓ  σαá¡¿¼πε  ß  Σá⌐½«¼
      áñαÑß¡πε,  ¿¡Σ«α¼áµ¿ε, úÑ¡Ñα¿α«óá¡¡πε «»ÑαáΓ«α«¼ BSAVE. ū߬«½∞¬π
      ¡Ñ  ñѽáÑΓß∩  ¡¿¬á¬«⌐  »α«óÑન  áñαÑßá  ó BLOAD, 󻫽¡Ñ 󫺼«ª¡á
      ¡ÑíαѪ¡á∩  ºáúαπº¬á  Σá⌐½á  ó  óÑασ¡εε  τáßΓ∞  DOS  ¿ /¿½¿ ó óáΦπ
      »α«úαá¼¼π ¿ αáºαπΦÑ¡¿Ñ ß¿ßΓѼδ.

      Äúαá¡¿τÑ¡¿∩ BLOAD ¡Ñ íπñÑΓ «ßπΘÑßΓó½∩Γ∞ ¡Ñ»«ßαÑñßΓóÑ¡¡πε ºáúαπº¬π
      -----------     »á¼∩Γ¿ EGA (π½πτΦÑ¡¡«ú« úαáΣ¿τÑ߬«ú« áñá»ΓÑαá). 

       C¼ Γá¬ªÑ    BSAVE
                   DEF SEG

       Åα¿¼Ñα   rem ºáúαπº¿Γ∞ úαáΣ¿τÑ߬¿⌐ φ¬αá¡
                def seg &HB800
                bload "¬áαΓ¿¡¬á",0

                                Ä»ÑαáΓ«α BSAVE
                                --------------

      öπ¡¬µ¿∩ BSAVE       ß«σαá¡∩ÑΓ ¡Ñ¬«Γ«αδ⌐ ñ¿á»áº«¡ ñá¡¡δσ ¡á ñ¿ß¬Ñ
      --------

      æ¿¡Γá¬ß¿ß           BSAVE Σá⌐½á߻ѵ,áñαÑß,ñ½¿¡á
      ---------

      çá¼Ñτá¡¿∩     öá⌐½á߻ѵ-ßΓα«τ¡«Ñ óδαáªÑ¡¿Ñ, ߻ѵ¿Σ¿µ¿απεΘÑÑ Σá⌐½,
      ----------    ó ¬«Γ«αδ⌐ »«ñ½ÑªáΓ  ºá»¿ß¿ ñá¡¡δÑ. öá⌐½á߻ѵ ñ«½ª¡«
      ß½Ññ«óáΓ∞  ßΓá¡ñáαΓ¡δ¼  ß«ú½áΦÑ¡¿∩¼  DOS  «í  ¿¼Ñ¡«óá¡¿¿  Σá⌐½«ó.
      ÇñαÑß-φΓ«   τ¿ß½«ó«Ñ   óδαáªÑ¡¿Ñ  ó  ñ¿á»áº«¡Ñ  «Γ  0  ñ«  65535,
      π¬áºδóáεΘÑÑ  ß¼ÑΘáѼπε  τáßΓ∞  áñαÑßá, ß ¬«Γ«α«ú« Σá⌐½á߻ѵ íπñÑΓ
      ß«σαá¡∩Γ∞ß∩  (ß¼  «»ÑαáΓ«α  def seg). 使¡á ÑßΓ∞ τ¿ß½« íá⌐Γ«ó ñ½∩
      σαá¡Ñ¡¿∩,  «Γ  0 ñ« 65535. BSAVE «íÑß»Ñτ¿óáÑΓ σαá¡Ñ¡¿Ñ ¡Ñ¬«Γ«α«ú«
      ñ¿á»áº«¡á  »á¼∩Γ¿ ¡á ñ¿ß¬Ñ (φΣΣÑ¬Γ¿ó¡« σαá¡¿Γ∞ß∩ µ¿Σα«óá∩ óδí«α¬á
      π¬áºá¡¡«ú«  ñ¿á»áº«¡á  ó«  óαѼ∩  BSAVE).  öá⌐½δ,  ß«ºñáóáѼδÑ  ß
      »«¼«Θ∞ε  BSAVE,  ¼«ª¡« »«Γ«¼ »ÑαÑúαπªáΓ∞ ß »«¼«Θ∞ε ¬«¼á¡ñδ BLOAD;
      «»µ¿«¡á½∞¡«  Σá⌐½δ  ¼«ª¡«  »ÑαÑúαπªáΓ∞ »« ñαπú«¼π áñα¬ßπ, τѼ ºá-
      ¡∩Γδ⌐  »α¿ BSAVE. BSAVE ¿ BLOAD τáßΓ« ¿ß»«½∞ºπεΓß∩ ñ½∩ σαá¡Ñ¡¿∩ ¿
      ºáúαπº¬¿    φ¬αá¡¡δσ    «íαáº«ó   »«ßαÑñßΓó«¼   ¡Ñ»«ßαÑñßΓóÑ¡¡«ú«
      ßτ¿Γδóá¡¿∩ ¿ ºá»¿ß¿ »á¼∩Γ¿ ñ¿ß»½Ñ∩. ä¿ß»½Ñ⌐¡δ⌐ íπΣÑα î«¡«σα«¼¡«ú«
      ä¿ß»½Ñ⌐¡«ú«  Çñá»ΓÑαá  ¿¼ÑÑΓ  ñ½¿¡π  4000  íá⌐Γ«ó ¿ ¡áτ¿¡áÑΓß∩ ¡á
      ß¼ÑΘÑ¡¿¿   0  ßÑú¼Ñ¡Γá  &HB000.  ä¿ß»½Ñ⌐¡δ⌐  íπΣÑα  ñ½∩  ûóÑΓ¡«ú«
      âαáΣ¿τÑ߬«ú«  Çñá»ΓÑαá  ß«ßΓ«ó½∩ÑΓ 4000 íá⌐Γ«ó ó ΓѬßΓ«ó«¼ αѪ¿¼Ñ
      (SCREEN  0) ¿ 16384 íá⌐Γá ¬á¬ ó αѪ¿¼áσ úαáΣ¿¬¿ ßαÑñ¡Ñ⌐ ¿ óδß«¬«⌐
      αáºαÑΦáεΘÑ⌐  ß»«ß«í¡«ßΓ¿; «íá ¡áτ¿¡áεΓß∩ ¡á ß¼ÑΘÑ¡¿Ñ 0 ó ßÑú¼Ñ¡ΓÑ
      &HB500.

      Äúαá¡¿τÑ¡¿∩  ÅÑαÑñ ¿ß»«½¡Ñ¡¿Ñ¼ «»ÑαáΓ«αá BSAVE »α«úαá¼¼¿ßΓ ñ«½ªÑ¡
      ------------   ∩ó¡«   πßΓá¡«ó¿Γ∞  ßÑú¼Ñ¡Γ, ¬«Γ«αδ⌐  ñ«½ªÑ¡  íπñÑΓ
      σαá¡¿Γ∞ß∩ ¡á ñ¿ß¬Ñ, ¿ß»«½∞ºπ∩ «»ÑαáΓ«α DEF SEG.

       C¼ Γá¬ªÑ BLOAD
               DEF SEG

        Åα¿¼Ñα   'BSAVE ºá»«½¡∩ÑΓ φ¬αá¡ íπ¬óἿ Ç ¿ «íÑß»Ñτ¿óáÑΓ 
                 'σαá¡Ñ¡¿Ñ ¡á ñ¿ß¬Ñ
                 for i%=1 to 2000
                  print "A"
                 next i%
                 '«»αÑñѽ¿Γ∞ φ¬αá¡ ñ½∩ BSAVE
                 def seg=&HB000
                 'σαá¡¿Γ∞ ¼«¡«σα«¼¡δ⌐ ó¿ñÑ«-φ¬αá¡
                 bsave "text.pic",0,4000
                 'πñó«Ñ¡¡«Ñ τ¿ß½« ½¿ΓÑα »«ß¬«½∞¬π ¿¼ÑεΓß∩ áΓα¿íπΓδ
                 end

                                Ä»ÑαáΓ«α CALL
                                -------------

       öπ¡¬µ¿∩   CALL      óδºδóáÑΓ »α«µÑñπαπ (»«ñ»α«úαá¼¼π)
       -------

      æ¿¡Γá¬ß¿ß            CALL »α«µ¿¼∩[(ß»¿ß«¬ »áαá¼ÑΓα«ó)]
      ---------

      çá¼Ñτá¡¿∩     Åα«µ¿¼∩-φΓ« ¿¼∩   »α«µÑñπαδ,«»αÑñѽ∩Ѽ«Ñ  úñÑ-Γ«  ó
      ----------    »α«úα¼¼Ñ ß »«¼«Θ∞ε «»ÑαáΓ«αá SUB. 滿߫¬ »áαá¼ÑΓα«ó
      ÑßΓ∞   «»µ¿«¡á½∞¡δ⌐   ß»¿ß«¬   αáºñѽ∩Ѽδσ  ºá»∩Γ묨  »ÑαѼѡ¡δσ,
      óδαáªÑ¡¿⌐ ¿ /¿½¿ ¬«¡ßΓá¡Γ, »ÑαÑñáóáѼδσ ó Åα«µ¿¼∩. æπΘÑßΓóπÑΓ Γα¿
      Γ¿»á   SUB-»α«µÑñπα:  STATIC,  ßΓá¡ñáαΓ¡δÑ  »α«µÑñπαδ  ¿  INLINE.
      ÅαÑñδñπΘÑÑ  «íßπªñÑ¡¿Ñ  »α¿¼Ñ¡¿¼«  ¬«  óßѼ Γ¿»á¼; «ñ¡á¬« ß»«ß«í,
      ¬«Γ«αδ¼  ¬«¼»¿½∩Γ«α  «íαáíáΓδóáÑΓ  ß»¿ß¬¿  »áαá¼ÑΓα«ó, ºáó¿ß¿Γ «Γ
      Γ¿»á  SUB-»α«µÑñπαδ.  諽¿τÑßΓó«  ¿  Γ¿» áαúπ¼Ñ¡Γ«ó, »«ñáóáѼδσ ó
      »α«µÑñπαπΓαÑíπÑΓ   ß«ú½áß«óá¡¡«ßΓ¿   ß«   ß»¿ß¬«¼   »áαá¼ÑΓα«ó  ó
      «»αÑñѽѡ¿¿  Åα«µ¿¼∩;  ¿¡áτÑ ó«º¡¿¬áÑΓ «Φ¿í¬á ¡Ñß«ú½áß«óá¡- ¡«ßΓ¿
      »áαá¼ÑΓαáó   »Ñα¿«ñá   ¬«¼»¿½∩µ¿¿.  àß½¿  SUB-»α«µÑñπαá  ∩ó½∩ÑΓß∩
      »α«µÑñπα«⌐  INLINE, τ¿ß½« áαúπ¼Ñ¡Γ«ó »ÑαѼѡ¡« ¿ ¡¿¬á¬á∩ »α«óÑα¬á
      ¡áí«αá  »áαá¼ÑΓα«ó  ¡Ñ  óδ»«½¡∩ÑΓß∩.  æá¼á  »α«µÑñπαá  SUB INLINE
      «ΓóÑΓßΓóÑ¡¡á  ºá  Γ«  ¬á¬  πº¡áΓ∞ ¿½¿ «»αÑñѽ¿Γ∞ ¬«½¿τÑßΓó« ¿ Γ¿»
      »áαá¼ÑΓα«ó  ó ¡ÑÑ ¡Ñ»«ñáóáѼδσ. (ü«½ÑÑ »«ñα«í¡« « SUB INLINE ß¼ ó
      »α¿½«ªÑ¡¿¿ æ "ê¡ΓÑαΣÑ⌐ß ∩ºδ¬á áßßѼí½Ñαá"). è«úñá »α«µÑñπα¡δÑ áα-
      úπ¼Ñ¡Γδ  »«ñáεΓß∩  »«ßαÑñßΓó«¼ ßß佬¿ (Γ.Ñ ∩ó½∩εΓß∩ »ÑαѼѡ¡δ¼¿),
      «¡¿  ñ«ßΓπ»¡δ  ¿º¼Ñ¡Ñ¡¿ε  óδºóδ¡¡«⌐  »α«µÑñπα«⌐. è«úñá »ÑαѼѡ¡á∩
      ºá¬½ετÑ¡á  ó  ߬«í¬¿,  «¡á »«ñáÑΓß∩ º¡áτÑ¡¿Ñ¼ ¿ ¿ßσ«ñ¡«Ñ º¡áτÑ¡¿Ñ
      ¿º¼Ñ¡Ñ¡«  íδΓ∞  ¡Ñ  ¼«ªÑΓ.  æ½ÑñπÑΓ  ºá¼ÑΓ¿Γ∞,  τΓ«  óδαáªÑ¡¿∩  ¿
      ¬«¡ßΓá¡Γδ   óßÑúñá   »«ñáεΓß∩   º¡áτÑ¡¿Ñ¼.   Çαúπ¼Ñ¡Γδ   ¼áßß¿ó«ó
      ߻ѵ¿Σ¿µ¿απεΓß∩  ß  ¿ß»«½∞º«ó᡿Ѽ  »πßΓ«ú«  ¡áí«αá  ß¬«í«¬ »«ßñÑ
      ¿¼Ñ¡¿ ¼áßß¿óá . ûѽδÑ ¼áßß¿óδ óßÑúñá »«ñáεΓß∩ »«ßαÑñßΓó«¼ ßß佬¿.
      ìá»α¿¼Ñα: 
            CALL æπ¼¼áîáßß¿ó (á())  '»«ñáΓ∞ ¼áßß¿ó á ó æπ¼¼áîáßß¿ó
            CALL æπ¼¼áîáßß¿ó (á(3)) '»«ñáΓ∞ φ½Ñ¼Ñ¡Γ 3 ¼áßß¿óá á ó
                                    'æπ¼¼áîáßß¿ó

       C¼ Γá¬ªÑ $INLINE
                SUB
       Åα¿¼Ñα: DIM îáßß¿ó (1) 'ºá∩ó¿Γ∞ ¼áßß¿ó ¿º 2 φ½Ñ¼Ñ¡Γ«ó
               SUB ÆÑßΓÅα«µÑñπαá (i%,l&,s!,d#,e,a(1))
               'φΓá  »α«µÑñπαá  »α«ßΓ« óδó«ñ¿Γ º¡áτÑ¡¿∩ ¬áªñ«ú« 
               '»«ñáóáѼ«ú« ó ¡ÑÑ »áαá¼ÑΓαá 
                print i%;l&;s!;d#;e;a(0)
               end sub
               ûѽ«Ñ%=1
               使¡¡«Ñûѽ«Ñ&=2
               àñ¿¡¿τ¡á∩Æ«τ¡«ßΓ∞!=4
               îáßß¿ó(0)=5
               call ÆÑßΓÅα«µÑñπαá (ûѽ«Ñ%, 使¡¡«Ñûѽ«Ñ&, 
               àñ¿¡¿τ¡á∩Æ«τ¡«ßΓ∞!,äó«⌐¡á∩Æ«τ¡«ßΓ∞#,µÑ½«Ñ%^2,îáßß¿ó())
               end

                            Ä»ÑαáΓ«α CALL ABSOLUTE
                            ----------------------
      öπ¡¬µ¿∩  CALL  ABSULUTE ó«ºíπªñáÑΓ »«ñ»α«úαá¼¼π ∩ºδ¬á áßßѼí½Ñαá.
      ------- 

     æ¿¡Γá¬ß¿ß            CALL ABSOLUTE áñαÑß(ß»¿ß«¬ »áαá¼ÑΓα«ó)
     ---------

      çá¼Ñτá¡¿∩  ÇñαÑß-φΓ« τ¿ß½«ó«⌐ ߬á½∩α, ß«ñÑαªáΘ¿⌐ ß¼ÑΘÑ¡¿Ñ ó¡ÑΦ¡Ñ⌐
      ----------    »«ñ»α«úαá¼¼δ,   »«ñ½ÑªáΘÑ⌐   ó«ºíπªñÑ¡¿ε.   æÑú¼Ñ¡Γ
      «»αÑñѽ∩ÑΓß∩  ßá¼δ¼  »«ß½Ññ¡¿¼  ºá∩ó½Ñ¡¿Ñ¼  DEF SEG. ÇñαÑß ñ«½ªÑ¡
      ¡áσ«ñ¿Γß∩  ó ñ¿á»áº«¡Ñ «Γ -32768 ñ« 65535. ÄΓα¿µáΓѽ∞¡δÑ º¡áτÑ¡¿∩
      íπñπΓ  »αÑ«íαẫóδóáΓ∞ß∩  ¬«¼»¿½∩Γ«α«¼  ó  »«½«ª¿Γѽ∞¡δÑ.  ö«α¼«⌐
      ß»¿ß¬á  »áαá¼ÑΓα«ó  »«ññÑনóáÑΓß∩  ß«ó¼ÑßΓ¿¼«ßΓ∞  ß  ¿¡ΓÑα»αÑΓá-
      Γ«α«¼   üÑ⌐ß¿¬á   »«ßαÑñßΓó«¼   »«ñáτ¿  ¡á  ßΓѬ  ¬«α«Γ¬¿σ  µÑ½δσ
      »áαá¼ÑΓα«ó.    Æ«½∞¬«   φΓá   Σ«α¼á   ñ«»π߬áÑΓ   »«ñáτπ   µÑ½δσ.
      (æ¼.»α¿½«ªÑ¡¿Ñ  æ  "ê¡ΓÑαΣÑ⌐ß  ∩ºδ¬á áßßѼí½Ñαá". üπΣÑα αÑú¿ßΓα«ó
      ºáúαπªáÑΓß∩  ¡á  »«µÑßß«α¡δÑ αÑú¿ßΓαδ ¬á¬ αẠ»ÑαÑñ CALL ABSOLUTE
      ¿½¿  CALL  INTRRUPT  ¿  «Γ»αó½∩εΓß∩  «íαáΓ¡« ¡á σαá¡Ñ¡¿Ñ ßαáºπ ªÑ
      »«ß½Ñ  »α«ú«¡á.  é  ½εí«Ñ  ñá¡¡«Ñ  óαѼ∩ íπΣÑα ß«ñÑαª¿Γ ß«ßΓ«∩¡¿Ñ
      »α«µÑßß«αá,  ó  ¬«Γ«α«¼  «¡  ¡áσ«ñ¿½ß∩  »α¿  ¬«¼»¿½¿α«óá¡¿¿ ßἫ⌐
      »«ß½Ññ¡Ñ⌐ ó¡ÑΦ¡Ñ⌐ »α«µÑñπαδ . 
         üπΣÑα  αÑú¿ßΓα«ó ñ«ßΓπ»Ñ¡ ß »«¼«Θ∞ε «»ÑαáΓ«αá ¿ Σπ¡¬µ¿¿ REG, ó
      ¬«Γ«αδσ    ¿ß»«½∞ºπÑΓß∩   τ¿ß½«ó«⌐   áαúπ¼Ñ¡Γ   ñ½∩   ßß佬¿   ¡á
      ß««ΓóÑΓßΓóπεΘ¿⌐ αÑú¿ßΓα ,¬á¬ »«¬áºá¡« ¡¿ªÑ: 
      -----------------------------------------------------------------
               Çαúπ¼Ñ¡Γ αÑú¿ßΓαá                ÉÑú¿ßΓα
      -----------------------------------------------------------------
            0                                ö½áú¿
            1                                Çò
            2                                éò
            3                                æò
            4                                DX
            5                                SI
            6                                DI
            7                                BP
            8                                DS
            9                                ES
      -----------------------------------------------------------------
         REG,   ¬á¬   «»ÑαáΓ«α,   ºáúαπªáÑΓ  óδíαá¡¡δ⌐  φ½Ñ¼Ñ¡Γ  íπΣÑαá
      αÑú¿ßΓα«ó π¬áºá¡¡δ¼ µÑ½δ¼ º¡áτÑ¡¿Ñ¼: 
         REG 2,&H1000 'ºáúαπº¿Γ∞ 1000H ¡á éò íπΣÑαá αÑú¿ßΓα«ó 
         REG, ¬á¬  Σπ¡¬µ¿∩, ó«ºóαáΘáÑΓ  º¡áτÑ¡¿Ñ  óδíαá¡¡«ú«  φ½Ñ¼Ñ¡Γá
      íπΣÑαá αÑú¿ßΓα«ó: 
         PRINT REG (2) 'óδóÑßΓ¿ º¡áτÑ¡¿∩ ¿º éò íπΣÑαá αÑú¿ßΓα«ó 
         Åα«úαá¼¼¿ßΓ  «ΓóÑΓßΓóÑ¡¡Ñ¡ ºá ºáΘ¿Γπ αÑú¿ßΓα«ó ßÑú¼Ñ¡Γá ñá¡¡δσ
      (DS),  ßÑú¼Ñ¡Γá  ßΓѬá (SS), π¬áºáΓѽ∩ íáºδ (BP), π¬áºáΓѽ∩ ßΓѬá
      (SP) 
        C¼ Γá¬ªÑ CALL INTERRUPT
              DEF SEG
              REG
      Åα¿¼Ñα  defint a-z
              dim a(100)
              dim çừ½¡Ñ¡¿∩Å«ñ»α«úαá¼¼á (10)
              çừ½¡Ñ¡¿∩Å«ñ»α«úαá¼¼á (0)=&HF2FC
              çừ½¡Ñ¡¿∩Å«ñ»α«úαá¼¼á (1)=&HCBAA
              reg 1,-1
              reg 3,101*2
              reg 9,varseg(a(0))
              reg 6,varptr(a(0))
              def seg=varseg(çừ½¡Ñ¡¿∩Å«ñ»α«úαá¼¼á (0))
              print a(1)
              while not instat:wend
              çừ½¡¿Γ∞ÇñαÑß=varptr(çừ½¡Ñ¡¿∩Å«ñ»α«úαá¼¼á(0))
              call absolute çừ½¡¿Γ∞ÇñαÑß '(reg)
              print a(1)
              end