For Beginners & Professional Hackers/cd.iso/docum/tb1.doc/tb13.doc

Text File | 1989-07-30 | 32.6 KB | 786 lines

                        Ä»ÑαáΓ«α SCREEN
-----------------------------------------------------------------
ìạáτÑ¡¿Ñ    SCREEN πßΓá¡áó½¿óáÑΓ αѪ¿¼ ¿º«íαáªÑ¡¿∩ ¡á φ¬αá¡Ñ.

æ¿¡Γá¬ß¿ß     SCREEN [αѪ¿¼] [, [Σ½áª«¬ µóÑΓá]]
                     [,[ßΓαá¡¿µá]] [, [ó¿ñ¿¼á∩ ßΓαá¡¿µá]]

諼¼Ñ¡Γáα¿⌐      ÉѪ¿¼ - µÑ½«τ¿ß½Ñ¡¡«Ñ óδαáªÑ¡¿Ñ ó ñ¿á»áº«¡Ñ «Γ 0
              ñ«  10,  ñÑ⌐ßΓó¿Ñ  ¬«Γ«α«ú«  «»αÑñѽ∩ÑΓß∩ ß½ÑñπεΘÑ⌐
              Γáí½¿µÑ⌐:

  I-------------------------------------------------------------I
  I  ÉѪ¿¼  I                 äÑ⌐ßΓó¿Ñ                          I
  I---------I---------------------------------------------------I
  I         I                                                   I
  I   0     I   ôßΓá¡áó½¿óáÑΓ ΓѬßΓ«óδ⌐ αѪ¿¼ íѺ ¿º¼Ñ¡Ñ¡¿∩     I
  I         I   τ¿ß½á º¡á¬«ó ó ßΓα«¬Ñ                           I
  I   1     I   ôßΓá¡áó½¿óáÑΓ úαáΣ¿τÑ߬¿⌐ αѪ¿¼ ß« ßαÑñ¡¿¼      I
  I         I   αáºαÑΦÑ¡¿Ñ¼, τ¿ß½« º¡á¬«ó ó ßΓα«¬Ñ αáó¡« 40     I
  I   2     I   ôßΓá¡áó½¿óáÑΓ úαáΣ¿τÑ߬¿⌐ αѪ¿¼ ß óδß«¬¿¼       I
  I         I   αáºαÑΦÑ¡¿Ñ¼, τ¿ß½« º¡á¬«ó ó ßΓα«¬Ñ αáó¡« 80     I
  I   7     I   ôßΓá¡áó½¿óáÑΓ ñ½∩ áñá»ΓÑαá EGA αѪ¿¼ ß«         I
  I         I   ßαÑñ¡¿¼ αáºαÑΦÑ¡¿Ñ¼, ñ«»π߬áÑΓ ¿ß»«½∞º«óá¡¿Ñ    I
  I         I   16 µóÑΓ«ó, τ¿ß½« »¿¬ßѽ«ó ¡á φ¬αá¡Ñ - 600σ200   I
  I   8     I   ôßΓá¡áó½¿óáÑΓ ñ½∩ áñá»ΓÑαá EGA αѪ¿¼ ß          I
  I         I   óδß«¬¿¼ αáºαÑΦÑ¡¿Ñ¼, ñ«»π߬áÑΓ ¿ß»«½∞º«óá¡¿Ñ    I
  I         I   16 µóÑΓ«ó, τ¿ß½« »¿¬ßѽ«ó ¡á φ¬αá¡Ñ - 600σ200   I
  I   9     I   ôßΓá¡áó½¿óáÑΓ πß¿½Ñ¡¡δ⌐ αѪ¿¼ ß óδß«¬¿¼         I
  I         I   αáºαÑΦÑ¡¿Ñ¼ ñ½∩ áñá»ΓÑαá EGA ß πß¿½Ñ¡¡δ¼        I
  I         I   ñ¿ß»½ÑѼ; ñ«»π߬áÑΓ «Γ 4 ñ« 16 µóÑΓ«ó (ó        I
  I         I   ºáó¿ß¿¼«ßΓ¿ «Γ »á¼∩Γ¿ ¡á EGA) ¿º »á½¿Γαδ,       I
  I         I   ß«ßΓ«∩ΘÑ⌐ ¿º 64 µóÑΓ«ó, τ¿ß½« »¿¬ßѽ«ó ¡á       I
  I         I   φ¬αá¡Ñ - 640σ350                                I
  I  10     I   ôßΓá¡áó½¿óáÑΓ αѪ¿¼ ß óδß«¬¿¼ αáºαÑΦÑ¡¿Ñ¼ ñ½∩   I
  I         I   áñá»ΓÑαá EGA ß ¼«¡«σα«¼¡δ¼ ¼«¡¿Γ«α«¼,           I
  I         I   ñ«»π߬áÑΓ 4 áΓα¿íπΓá ¿ 640σ350 »¿¬ßѽ«ó         I
  I  11     I   ôßΓá¡áó½¿óáÑΓ τÑα¡«-íѽδ⌐ αѪ¿¼ ß ¡á¿óδßΦ¿¼     I
  I         I   αáºαÑΦÑ¡¿Ñ¼ ñ½∩ áñá»ΓÑα«ó VGA ¿½¿ MCGA, τ¿ß½«   I
  I         I   Γ«τѬ - 640σ480                                 I
  I  12     I   ôßΓá¡áó½¿óáÑΓ αѪ¿¼ ß ¡á¿óδßΦ¿¼ αáºαÑΦÑ¡¿Ñ¼     I
  I         I   ñ½∩ VGA, ñ«»π߬áÑΓ 16 µóÑΓ«ó ¿º »á½¿Γαδ ß 64    I
  I         I   µóÑΓἿ, τ¿ß½« Γ«τѬ ¡á φ¬αá¡Ñ - 640σ480        I
  I-------------------------------------------------------------I

                 ö½áª«¬ µóÑΓá - π»αáó½∩ÑΓ ΓѼ,  íπñÑΓ ½¿ ¿¡Σ«α¼á-
              µ¿∩ « µóÑΓÑ »ÑαÑñá¡á ¼«¡¿Γ«α«¼ ß ß«ó¼ÑΘÑ¡¡δ¼ π»αáó-
              ½Ñ¡¿Ñ¼ µóÑΓ«ó묨  ½πτἿ,  ¬«Γ«αδÑ  »α¿ß«Ññ¿¡Ñ¡δ  ¬
              ¬«¼»«º¿Γ¡δ¼ ó¿ñÑ«»«αΓá¼ µóÑΓ¡δσ úαáΣ¿τÑ߬¿σ áñá»ΓÑ-
              α«ó.  é ΓѬßΓ«ó«¼ αѪ¿¼Ñ º¡áτÑ¡¿Ñ FALSE(0) «Γ¼Ñ¡∩ÑΓ
              ¿ß»«½∞º«óá¡¿Ñ µóÑΓá.  é úαáΣ¿τÑ߬«¼ αѪ¿¼Ñ ß« ßαÑñ-
              ¡¿¼ αáºαÑΦÑ¡¿Ñ¼, º¡áτÑ¡¿Ñ FALSE ó¬½ετáÑΓ µóÑΓ.

                 Ç¬Γ¿ó¡á∩ ßΓαá¡¿µá - µÑ½«Ñ óδαáªÑ¡¿Ñ ó  ñ¿á»áº«¡Ñ
              «Γ 0 ñ« 7, ¬«Γ«α«Ñ π»αáó½∩ÑΓ ΓѼ, ¬πñá ºá»¿ßδóáÑΓß∩
              ΓѬßΓ, Σ«α¼¿απÑΓß∩ «»ÑαáΓ«α«¼ PRINT ¿½¿ ñαπú¿¼¿ ¬«-
              ¼á¡ñἿ  ºá»¿ß¿  ¡á  φ¬αá¡.  ¥Γ«Γ áαúπ¼Ñ¡Γ ñ«»πßΓ¿¼
              Γ«½∞¬« ñ½∩ µóÑΓ¡δσ úαáΣ¿τÑ߬¿σ áñá»ΓÑα«ó ¿ ñ½∩ αáß-
              Φ¿αÑ¡¡δσ úαáΣ¿τÑ߬¿σ áñá»ΓÑα«ó »α¿ πßΓá¡«ó¬Ñ αѪ¿¼á
              0, 7, 8, 9 ¿ 10. (æ¼. ó ú½áóÑ 4 αáºñѽ « úαáΣ¿¬Ñ).

                 é¿ñ¿¼á∩ ßΓαá¡¿µá - «»αÑñѽ∩ÑΓ ¬á¬á∩ ¿º ó¿αΓπá½∞-
              ¡δσ ßΓαá¡¿µ («Γ 0 ñ« 7) óδó«ñ¿Γß∩ ¡á φ¬αá¡ ó ñá¡¡δ⌐
              ¼«¼Ñ¡Γ.  ¥Γ«Γ  áαúπ¼Ñ¡Γ ñ«»πßΓ¿¼ Γ«½∞¬« ñ½∩ µóÑΓ¡δσ
              úαáΣ¿τÑ߬¿σ áñá»ΓÑα«ó ¿ ñ½∩ αáßΦ¿αÑ¡¡δσ úαáΣ¿τÑ߬¿σ
              áñá»ΓÑα«ó »α¿ πßΓá¡«ó¬Ñ αѪ¿¼á 0, 7, 8, 9 ¿ 10.

                 éδ»«½¡Ñ¡¿Ñ «»ÑαáΓ«αá SCREEN ºá»π߬áÑΓ ¡«óδ⌐  αÑ-
              ª¿¼ ¿ ßΓ¿αáÑΓ φ¬αá¡. ìá¿óδßΦ¿⌐ »α¿«α¿ΓÑΓ »α¿ßóá¿óá-
              ÑΓß∩ íѽ«¼π µóÑΓπ, á Σ«¡π ¿ úαá¡¿µÑ - τÑα¡δ⌐ µóÑΓ.
                 àß½¿ ó «»ÑαáΓ«αÑ SCREEN πßΓá¡áó½¿óáÑΓß∩ Γᬫ⌐ ªÑ
              αѪ¿¼, ¬á¬ ¿ ΓѬπΘ¿⌐, ¡¿τÑú« ¡Ñ »α«¿ßσ«ñ¿Γ.
                 àß½¿  ΓѬπΘ¿⌐  αѪ¿¼  -  ΓѬßΓ«óδ⌐ ¿ ó «»ÑαáΓ«αÑ
              SCREEN  π¬áºá¡δ Γ«½∞¬« á»αúπ¼Ñ¡Γδ á¬Γ¿ó¡«⌐ ¿ ó¿αΓπ-
              á½∞¡«⌐ ßΓαá¡¿µ,  Γ« ¬«ααÑ¬Γ¿απεΓß∩ ó ß««ΓóÑΓßΓó¿¿ ß
              ºá»α«ß«¼ Γ«½∞¬« ñ¿ß»½Ñ⌐¡δÑ "ßΓαá¡¿µδ".

Åα¿¼Ñα      '»ÑαѬ½ετÑ¡¿Ñ ó úαáΣ¿τÑ߬¿⌐ αѪ¿¼ ßαÑñ¡Ñú« αáºαÑΦÑ¡¿∩
            'ß «Γ¼Ñ¡«⌐ µóÑΓá
        SCREEN 1,0
        CIRCLE (160,100),50,2
        WHILE NOT INSTAT:WEND
        A$=INKEY$
        '»ÑαѬ½ετÑ¡¿Ñ ó ΓѬßΓ«óδ⌐ αѪ¿¼ ß «Γ¼Ñ¡«⌐ µóÑΓá,
        '¡áº¡áτÑ¡¿Ñ á¬Γ¿ó¡«⌐ ¿ ó¿ñ¿¼«⌐ ßΓαá¡¿µá¼ ßΓαá¡¿µδ ß
        '¡«¼Ñα«¼ 0
        SCREEN 0,0,0,0
        PRINT "Ç¬Γ¿ó¡á∩ ßΓαá¡¿µá - 0"
        WHILE NOT INSTAT:WEND
        A$=INKEY$
        'ßñѽáΓ∞ á¬Γ¿ó¡«⌐ ßΓαá¡¿µπ 2
        SCREEN ,,2
        PRINT "Ç¬Γ¿ó¡á∩ ßΓαá¡¿µá - 2"
        WHILE NOT INSTAT:WEND
        A$=INKEY$
        '»ÑαѬ½ετÑ¡¿Ñ ó ñαπú«⌐ úαáΣ¿τÑ߬¿⌐ αѪ¿¼
        SCREEN 2
        CIRCLE (320,100),100,1
        END

                        Ä»ÑαáΓ«α SEEK
-----------------------------------------------------------------
ìạáτÑ¡¿Ñ    SEEK  πßΓá¡áó½¿óáÑΓ  »«º¿µ¿ε  ó  ñó«¿τ¡«¼ Σá⌐½Ñ ñ½∩
              Σπ¡¬µ¿⌐ GET$ ¿ PUT$.

æ¿¡Γá¬ß¿ß     SEEK [#] ¡«¼Ñα-Σá⌐½á, »«º¿µ¿∩

諼¼Ñ¡Γáα¿⌐      SEEK «íΩ∩ó½∩ÑΓ,  τΓ« ß½ÑñπεΘ¿⌐ GET$ ¿½¿ PUT$ ¡áñ
              Σá⌐½«¼  ß  ºáñá¡¡δ¼  ¡«¼Ñα«¼ ¡áτ¡πΓ ßó«¿ ñÑ⌐ßΓó¿∩ ß
              íá⌐Γá, ¡«¼Ñα ¬«Γ«α«ú« π¬áºá¡ ó áαúπ¼Ñ¡ΓÑ "»«º¿µ¿∩".
                 ä½∩ «»αÑñѽѡ¿∩ ΓѬπΘÑ⌐  »«º¿µ¿¿,  πßΓá¡«ó½Ñ¡¡«⌐
              ñ½∩   ñó«¿τ¡«ú«  Σá⌐½á  «»ÑαáΓ«α«¼  SEEK,   ß½ÑñπÑΓ
              ¿ß»«½∞º«óáΓ∞ Σπ¡¬µ¿ε LOC.

Åα¿¼Ñα      SUB CREATEFILE
            '«Γ¬αδΓ¿Ñ Σá⌐½á ¿ ºá»¿ß∞ ó ¡Ñú« 256 ß¿¼ó«½«ó
            LOCAL I%
            '«Γ¬αδΓ¿Ñ Σá⌐½á Γ¿»á BINARY ñ½∩ óó«ñá/óδó«ñá
            OPEN "SEEK.DTA" FOR BINARY AS #1
            'ºá»¿ß∞ ñá¡¡δσ ó Σá⌐½
         FOR I%=1 TO 256
           PUT$ 1,CHR$(I%-1)
         NEXT I%
          END SUB     '¬«¡Ñµ »«ñ»α«úαá¼¼δ CREATEFILE
        DEF FNREADIT$(START%,SIZE%)
        'Σπ¡¬µ¿∩ τ¿ΓáÑΓ π¬áºá¡¡δÑ ñá¡¡δÑ ¿º Σá⌐½á
        LOCAL TEMPSTR$,CHAR$,I%
        'πßΓá¡«ó¬á ºáñá¡¡«⌐ »«º¿µ¿¿ ó Σá⌐½Ñ
        SEEK 1,START%
        I%=1
        TEMPSTR$=""
        'ßτ¿Γδóá¡¿Ñ π¬áºá¡¡δσ ñá¡¡δσ - ¡Ñ í«½ÑÑ, τѼ ñ« ¬«¡µá
        'Σá⌐½á
        WHILE (NOT EOF(1)) AND (I%<=SIZE%)
        GET 1,I%,CHAR$
        TEMPSTR$=TEMPSTR$+CHAR$
        INCR I%
        WEND
        '»α¿ßó«Ñ¡¿Ñ Σπ¡¬µ¿¿ αѺπ½∞ΓáΓá
        FNREADIT$=TEMPSTR$
        END DEF       '¬«¡Ñµ Σπ¡¬µ¿¿ READIT
        'ß«ºñá¡¿Ñ Σá⌐½á ñá¡¡δσ
        CALL CREATEFILE
        'ºá»α«ß »«½∞º«óáΓÑ½ε ¡á óó«ñ
        PRINT "éÑññ¿ΓÑ ¡áτὫ [1..256] ¿ τ¿ß½«"
        PRINT "íá⌐Γ«ó ñá¡¡δσ (256 - ¡áτὫ), ¬«Γ«αδÑ"
        INPUT "éδ σ«Γ¿ΓÑ »α«τ¿ΓáΓ∞ ¿º Σá⌐½á:",ST%,SZ%
        'τΓÑ¡¿Ñ ñá¡¡δσ
        PRINT FNREADIT$(ST%,SZ%)
        END
        '¬«¡Ñµ »α«úαá¼¼δ

                        Ä»ÑαáΓ«α SELECT
-----------------------------------------------------------------
ìạáτÑ¡¿Ñ    Ä»ÑαáΓ«α SELEC T  (ó¼ÑßΓÑ ß «»ÑαáΓ«α«¼ CASE) Σ«α¼¿-
              απÑΓ «»ÑαáΓ«αδ »α«óÑન «íΘÑú« ¡áº¡áτÑ¡¿∩.

æ¿¡Γá¬ß¿ß     SELECT CASE óδαáªÑ¡¿Ñ
                 CASE ß»¿ß«¬ ΓÑßΓ«ó
                      «»ÑαáΓ«αδ
            [CASE ß»¿ß«¬ ΓÑßΓ«ó
                  «»ÑαáΓ«αδ]
            [æASE ELSE
                  «»ÑαáΓ«αδ]
            END SELECT

諼¼Ñ¡Γáα¿⌐      滿߫¬ ΓÑßΓ«ó - φΓ«  «ñ¿¡ ¿½¿  ¡Ñ߬«½∞¬« ΓÑßΓ«ó,
              αáºñѽѡ¡δσ ºá»∩Γ묨, ¬«Γ«αδÑ óδ»«½¡∩εΓß∩ ¡áñ óδαá-
              ªÑ¡¿Ñ¼.  éδαáªÑ¡¿Ñ ¼«ªÑΓ íδΓ∞ ß¿¼ó«½∞¡δ¼ ¿½¿ τ¿ß½«-
              óδ¼, «ñ¡á¬«, óßÑ ΓÑßΓδ ó ß»¿ß¬Ñ ¿º «Γñѽ∞¡«ú« í½«¬á
              «»ÑαáΓ«αá SELECT ñ«½ª¡δ íδΓ∞ «ñ¡«ú« ¿ Γ«ú« ªÑ Γ¿»á.
                 ÆÑßΓδ,  ¬«Γ«αδÑ ¼«úπΓ óδ»«½¡∩Γ∞ß∩ ó  »αÑñ½«ªÑ¡¿¿
              CLAUSE,  ó¬½ετáεΓ  »α«óÑન ¡á αáóÑ¡ßΓó«,  ¡ÑαáóÑ¡-
              ßΓó«,  í«½∞ΦÑ,  ¼Ñ¡∞ΦÑ,  ñ¿á»áº«¡ («Γ-ñ«).  Åα¿¼Ñαδ
              ó¬½ετÑ¡¿∩ ΓÑßΓ«ó ó »αÑñ½«ªÑ¡¿Ñ CASE:

            CASE <b             '«Γ¡«ΦÑ¡¿Ñ
            CASE 14             'αáóÑ¡ßΓó« (»αÑñ»«½áúáÑΓß∩ =)
            CASE b TO 90        'ñ¿á»áº«¡
            CASE b,14           'ñóá ΓÑßΓá »α«óÑન αáóÑ¡ßΓóá
            CASE b TO 90,14     '¬«¼í¿¡áµ¿∩ (¡Ñ∩ó¡«Ñ êïê)

                 é »αÑñ½«ªÑ¡¿¿ CASE ß ¡Ñ߬«½∞¬¿¼¿  ΓÑßΓἿ  ¼Ñªñπ
              ¡¿¼¿  óδ»«½¡∩ÑΓß∩  ¡Ñ∩ó¡á∩ ½«ú¿τÑ߬á∩ «»Ñαᵿ∩ êïê.
              àß½¿ «ñ¿¡ ¿½¿ ¡Ñ߬«½∞¬« ΓÑßΓ«ó ó  »αÑñ½«ªÑ¡¿¿  πñ«-
              ó½ÑΓó«α∩εΓß∩  (TRUE),   óδ»«½¡∩εΓß∩  óßÑ  «»ÑαáΓ«αδ
              󻽫Γ∞ ñ« ß½ÑñπεΘÑú« »αÑñ½«ªÑ¡¿∩ CASE. Å«ß½Ñ óδ»«½-
              ¡Ñ¡¿∩ »«ß½Ññ¡Ñú« «»ÑαáΓ«αá,  π»αáó½Ñ¡¿Ñ  »ÑαÑñáÑΓß∩
              «»ÑαáΓ«απ, ß½ÑñπεΘѼπ ºá END SELECT.
                 Ä»ÑαáΓ«α  SELECT ∩ó½∩ÑΓß∩ ¼«Θ¡δ¼ ßαÑñßΓó«¼ ßαáó-
              ¡Ñ¡¿∩ »ÑαѼѡ¡«⌐ ß ¡Ñ¬«Γ«αδ¼  τ¿ß½«¼  ÑÑ  󫺼«ª¡δσ
              º¡áτÑ¡¿⌐  ¿ ß««Γ    óÑΓßΓóπεΘÑ⌐ «íαáí«Γ¬¿. àú« ¿ß»«½∞-
              º«óá¡¿Ñ ¼«ªÑΓ ¿¡«úñá »«¼«τ∞ »«ßΓα«¿Γ∞  í«½ÑÑ  ∩ß¡πε
              ¿ßσ«ñ¡πε  »α«úαá¼¼π,  τѼ  ¼«ú½«  íδ  »«½πτ¿Γ∞ß∩  ß
              ¿ß»«½∞º«ó᡿Ѽ ¼¡«ú«¬αáΓ¡δσ «»ÑαáΓ«α«ó IF.

æ¼.Γá¬ªÑ      END SELECT    EXIT CASE

Åα¿¼Ñα
            INPUT "éóÑñ¿ΓÑ τ¿ß½«",X
            SELECT CASE X
            CASE <10
            PRINT "îá½Ñ¡∞¬«Ñ τ¿ß½«"
            CASE <1000
            PRINT "æαÑñ¡ÑÑ τ¿ß½«"
            CASE 1111,2222,3333,4444
            PRINT "æ¬πτ¡«Ñ τ¿ß½«"
            CASE ELSE
            PRINT "Åα«ßΓ« ¬á¬«Ñ-Γ« í«½∞Φ«Ñ τ¿ß½«"
            END SELECT

                        öπ¡¬µ¿∩ SGN
-----------------------------------------------------------------
ìạáτÑ¡¿Ñ    SGN «»αÑñѽ∩ÑΓ º¡á¬ τ¿ß½«ó«ú« óδαáªÑ¡¿∩

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

諼¼Ñ¡Γáα¿⌐      àß½¿  τ¿ß½«ó«Ñ  óδαáªÑ¡¿Ñ »«½«ª¿Γѽ∞¡«, SGN ó«º-
              óαáΘáÑΓ  +1.  àß½¿ τ¿ß½«ó«Ñ óδαáªÑ¡¿Ñ αáó¡« 0,  SGN
              ó«ºóαáΘáÑΓ 0. àß½¿ τ¿ß½«ó«Ñ óδαáªÑ¡¿Ñ «Γα¿µáΓѽ∞¡«,
              SGN ó«ºóαáΘáÑΓ -1.
                 Åα¿ ß«τÑΓá¡¿¿ Σπ¡¬µ¿¿ SGN ß «»ÑαáΓ«αἿ  ON/GOTO
              ¿½¿  ON/GOSUB  ¼«ª¡«  »«½πτ¿Γ∞ αáºóÑΓó½Ñ¡¿Ñ ß ΓαѼ∩
              óδσ«ñἿ (»«ñ«í¡«Ñ á¡á½«ú¿τ¡«¼π αáºóÑΓó½Ñ¡¿ε  ∩ºδ¬á
              FORTRAN):

            ON SGN(BALANCE)+2 GOTO
                    INTHERED,BREAKINGEVEN,INTHEMONEY

æ¼. Γá¬ªÑ   ON/GOSUB    ON/GOTO

Åα¿¼Ñα.
        'πßΓá¡«ó¿Γ∞ X ¿ Y ó 0
        X=0:Y=0
        '«»αÑñѽѡ¿Ñ »«½∞º«óáΓѽѼ º¡áτÑ¡¿⌐ X ¿ Y
        INPUT "éóÑñ¿ΓÑ »«ªá½π⌐ßΓá º¡áτÑ¡¿Ñ ñ½∩ X";X
        INPUT "éóÑñ¿ΓÑ »«ªá½π⌐ßΓá º¡áτÑ¡¿Ñ ñ½∩ Y";Y
        '«»ÑαáΓ«α ON »« SGN º¡áτÑ¡¿∩ X*Y
        'GOSUB  ¡á ß««ΓóÑΓßΓóπεΘπε »«ñ»α«úαá¼¼π
        ON SGN(X*Y)+2 GOSUB MINUS,ZERO,PLUS
        END
        '¬«¡Ñµ »α«úαá¼¼δ
        MINUS:
        PRINT "éσ«ñ ñ½∩ «Γα¿µáΓѽ∞¡«ú« º¡áτÑ¡¿∩":RETURN
        ZERO:
        PRINT "éσ«ñ ñ½∩ ¡π½Ñó«ú« º¡áτÑ¡¿∩":RETURN
        PLUS:
        PRINT "éσ«ñ ñ½∩ »«½«ª¿Γѽ∞¡«ú« º¡áτÑ¡¿∩":RETURN

                        Ä»ÑαáΓ«α SHARED
-----------------------------------------------------------------
ìạáτÑ¡¿Ñ    SHARED   «íΩ∩ó½∩ÑΓ ó »α«µÑñπαáσ ¿½¿ Σπ¡¬µ¿∩σ αáºñÑ-
              ½∩ѼδÑ (ú½«íá½∞¡δÑ) »ÑαѼѡ¡δÑ.

æ¿¡Γá¬ß¿ß     SHARED ß»¿ß«¬ »ÑαѼѡ¡δσ

諼¼Ñ¡Γáα¿⌐      SHARED «íΩ∩ó½∩ÑΓ, τΓ« »ÑαѼѡ¡δÑ, π¬áºá¡¡δÑ  τÑ-
              αѺ ºá»∩Γπε ó ß»¿ß¬Ñ »ÑαѼѡ¡δσ,  ∩ó½∩εΓß∩ ú½«íá½∞-
              ¡δ¼¿  ñ½∩ óßÑ⌐ »α«úαá¼¼δ,  á ¡Ñ ½«¬á½∞¡δ¼¿ »« «Γ¡«-
              ΦÑ¡¿ε ¬ ó¬½ετáεΘÑ⌐  ¿σ  »α«µÑñπαÑ  ¿½¿  «»αÑñѽѡ¿ε
              Σπ¡¬µ¿¿. ¥Γ« ñáÑΓ ó«º¼«ª¡«ßΓ∞ »α«µÑñπαÑ ¿½¿ Σπ¡¬µ¿¿
              «αúá¡¿º«óáΓ∞  ñ«ßΓπ» ¬ »ÑαѼѡ¡δ¼ íѺ »ÑαÑñáτ¿ ¿σ ó
              ¬áτÑßΓóÑ »áαá¼ÑΓα«ó.  Ä»ÑαáΓ«α SHARED  ¼«ªÑΓ  »«∩ó-
              ½∩Γ∞ß∩ Γ«½∞¬« ó «»αÑñѽѡ¿∩σ Σπ¡¬µ¿⌐ ¿½¿ »α«µÑñπα ¿
              ñ«½ªÑ¡ íδΓ∞ π¬áºá¡ ñ« »Ñαó«ú« óδ»«½¡∩Ѽ«ú« «»ÑαáΓ«-
              αá ß««ΓóÑΓßΓóπεΘÑú« «»αÑñѽѡ¿∩.
                 ä½∩ Γ«ú«,  τΓ«íδ «íΩ∩ó¿Γ∞ ¼áßß¿ó  ¬á¬  ½«¬á½∞¡πε
              »ÑαѼѡ¡πε,  »α¿¡áñ½ÑªáΘπε  »α«µÑñπαÑ  ¿½¿ Σπ¡¬µ¿¿,
              ¡πª¡« ó¬½ετ¿Γ∞ Ñú« ¿ñÑ¡Γ¿Σ¿¬áΓ«α ß »πßΓ묨 ߬«í¬á¼¿
              ó ß»¿ß«¬ »ÑαѼѡ¡δσ - ¡ÑΓ ¡Ñ«íσ«ñ¿¼«ßΓ¿ ¿  ¡Ñ  ß½Ñ-
              ñπÑΓ ºá¡«ó« «»αÑñѽ∩Γ∞ αẼÑα¡«ßΓ∞ ¼áßß¿óá.
                 ìÑ«íΩ∩ó½Ñ¡¡δÑ »ÑαѼѡ¡δÑ ó «»αÑñѽѡ¿∩σ  Σπ¡¬µ¿⌐
              »«  π¼«½τá¡¿ε  ßτ¿ΓáεΓß∩ ½«¬á½∞¡δ¼¿,  ¡« ¡Ñ ß½ÑñπÑΓ
              »«½áúáΓ∞ß∩ ¡á ¡Ñ¿º¼Ñ¡¡«ßΓ∞ φΓ«ú« ó  íπñπΘ¿σ  óÑαß¿-
              ∩σ  ¬«¼»¿½∩Γ«αá.  åѽáΓѽ∞¡«  Γ«τ¡« «íΩ∩ó½∩Γ∞ ¬½áßß
              »ÑαѼѡ¡δσ,  »«∩ó½∩εΘ¿σß∩ ó Σπ¡¬µ¿∩σ ¿½¿ »α«µÑñπαáσ
              (LOCAL, STATIC, SHARED).

æ¼.Γá¬ªÑ      LOCAL   STATIC

Åα¿¼Ñα
            DIM ARRAY$(5)
            DEF FNDUMMY$
            SHARED ARRAY$(0)
          END DEF
        '¬«¡Ñµ Σπ¡¬µ¿¿ FNDUMMY
        ARRAY$(0)="¥Γ« αáí«ΓáÑΓ ¡á ¼Ñ¡∩"
        PRINT FNDUMMY$
        END
        '¬«¡Ñµ »α«úαá¼¼δ

                        Ä»ÑαáΓ«α SHELL
-----------------------------------------------------------------
ìạáτÑ¡¿Ñ    SHELL ºáúαπªáÑΓ ¿ óδ»«½¡∩ÑΓ »«ñτ¿¡Ñ¡¡δ⌐ »α«µÑßß.

æ¿¡Γá¬ß¿ß     SHELL [ßΓ᫬á-»áαá¼ÑΓα]

諼¼Ñ¡Γáα¿⌐      æΓ᫬á-»áαá¼ÑΓα - φΓ« ß¿¼ó«½∞¡«Ñ óδαáªÑ¡¿Ñ,  ß«-
              ñÑαªáΘÑÑ ¿¼∩ óδ»«½¡∩Ѽ«⌐ .COM,  .EXE ¿½¿ .BAT »α«ú-
              αá¼¼δ  ("»«ñτ¿¡Ñ¡¡«ú«  »α«µÑßßá").  ÑΓ ß«ñÑαªáΓ∞
              ¿½¿  ¡Ñ  ß«ñÑαªáΓ∞  »áαá¼ÑΓαδ,  ¬«Γ«αδÑ  éδ  ¼«ªÑΓÑ
              »ÑαÑñáΓ∞ »«ñτ¿¡Ñ¡¡«¼π »α«µÑßßπ.
                 àß½¿ ßΓ᫬á-»áαá¼ÑΓα «»πΘÑ¡á,  ¡¿¬á¬á∩ »α«úαá¼¼á
              ¡Ñ ºáúαπªáÑΓß∩.  é¼ÑßΓ« φΓ«ú« »«∩ó½∩ÑΓß∩  »«ñ߬Ậá
              DOS,  ó «ΓóÑΓ ¡á ¬«Γ«απε ¼«ª¡«  óóÑßΓ¿  ßΓá¡ñáαΓ¡πε
              ¬«¼á¡ñπ DOS, ¡á»α¿¼Ñα, ¬«¼á¡ñδ DIR, COPY.  ä½∩ ó«º-
              óαáΓá ó »α«úαá¼¼π ß½ÑñπÑΓ ¡áíαáΓ∞ EXIT ¡á »«ñ߬Ậπ
              DOS.
                 àß½¿ ßΓ᫬á-»áαá¼ÑΓα π¬áºá¡á, Γ« óδ»«½¡∩ÑΓß∩ ºá-
              ñá¡¡á∩ »α«úαá¼¼á.  Å«ß½Ñ ÑÑ ºáóÑαΦÑ¡¿∩,  óδ»«½¡Ñ¡¿Ñ
              éáΦÑ⌐  »α«úαá¼¼δ  »α«ñ«½ªáÑΓß∩ ß« ß½ÑñπεΘÑú« «»Ñαá-
              Γ«αá.

æ¼.Γá¬ªÑ      ENVIRON   ENVIRON$    SHELL  ó απ¬«ó«ñßΓóÑ »« DOS

Åα¿¼Ñα     PRINT "ÆÑ»Ñα∞ éδ íπñÑΓÑ ¿ß»«½∞º«óáΓ∞ «»ÑαáΓ«α SHELL"
           PRINT "ÆôÉüÄ üàëæêèÇ ñ½∩ óδ»«½¡Ñ¡¿∩ ¬«¼á¡ñδ"
           PRINT "DIR/W DOS ñ½∩ »α«ß¼«Γαá Σá⌐½«ó"
           PRINT "¡á éáΦѼ ñ¿ß¬Ñ"
        DELAY 3
        'ªñáΓ∞ 3 ßѬπ¡ñδ
        '¿ß»«½∞º«óá¡¿Ñ SHELL ñ½∩ óαѼѡ¡«ú« óδσ«ñá ¿º ÆôÉüÄ
        'üàëæêèÇ ¿ óδ»«½¡Ñ¡¿Ñ ¬«¼á¡ñδ DIR ß »áαá¼ÑΓα«¼ /W
        SHELL "DIR /W"
        'óδó«ñ ó ¡¿ª¡Ñ⌐ ßΓα«¬Ñ φ¬αá¡á
        LOCATE 21,1
        PRINT "ÆÑ»Ñα∞ ó«ºóαáΘáѼß∩ ó ÆôÉüÄ üàëæêè"
        END
        '¬«¡Ñµ »α«úαá¼¼δ

                        öπ¡¬µ¿∩ SIN
-----------------------------------------------------------------
ìạáτÑ¡¿Ñ    SIN ó«ºóαáΘáÑΓ º¡áτÑ¡¿Ñ Γα¿ú«¡«¼ÑΓα¿τÑ߬«ú« ß¿¡πßá.

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

諼¼Ñ¡Γáα¿⌐      ù¿ß½«ó«Ñ óδαáªÑ¡¿Ñ »αÑñßΓáó½∩ÑΓ πú«½, ºáñá¡¡δ⌐ ó
              αáñ¿á¡áσ.  ä½∩ »αÑ«íαẫóá¡¿∩ αáñ¿á¡ ó úαáñπßδ ß½Ñ-
              ñπÑΓ π¼¡«ª¿Γ∞ óѽ¿τ¿¡π αáñ¿á¡ ¡á 57,296. ä½∩ »αÑ«í-
              αẫóá¡¿∩ úαáñπß«ó ó αáñ¿á¡δ ß½ÑñπÑΓ π¼¡«ª¿Γ∞ τ¿ß½«
              úαáñπß«ó  ¡á  0.017453.  (Ä  αáñ¿á¡áσ ß¼.  «»¿ßá¡¿Ñ
              «»ÑαáΓ«αá ATN).
                 SIN ó«ºóαáΘáÑΓ αѺπ½∞ΓáΓ ß ñó«⌐¡«⌐ Γ«τ¡«ßΓ∞ε.

æ¼.Γá¬ªÑ      ATN

Åα¿¼Ñα      'éδí«α º¡áτÑ¡¿∩ ó B$
            B$="ÆôÉüÄ üàëæêè ü«α½Ñ¡ñá"
            '»«¿ß¬ µÑ¡Γαá
        CENTER=(79-LEN(B$))/2
        'SIN(THETA) ó«ºóαáΘáÑΓ »Ñα¿«ñ¿τÑ߬πε
        '»«ß½Ññ«óáΓѽ∞¡«ßΓ∞ º¡áτÑ¡¿⌐, αáó¡«¼Ñα¡« ¿º¼Ñ¡∩εΘπεß∩
        'ó ñ¿á»áº«¡Ñ «Γ -1 ñ« 1 Γá¬, τΓ« TABVALUE óßÑúñá
        '¡áσ«ñ¿Γß∩ ¼Ñªñπ -CENTER ¿ CENTER
        THETA=0.
        WHILE THETA < 1
        TABVALUE=CENTER*SIN(THETA)
        PRINT TAB(CENTER+TABVALUE+1)B$
        THETA=THETA+.1
        WEND '?????????
        END
        '¬«¡Ñµ »α«úαá¼¼δ

                        Ä»ÑαáΓ«α SOUND
-----------------------------------------------------------------
ìạáτÑ¡¿Ñ    SOUND  úÑ¡Ñα¿απÑΓ  Γ«¡  ºáñá¡¡«⌐ τáßΓ«Γδ ¿ ñ½¿Γѽ∞-
              ¡«ßΓ¿

æ¿¡Γá¬ß¿ß     SOUND τáßΓ«Γá, ñ½¿Γѽ∞¡«ßΓ∞

諼¼Ñ¡Γáα¿⌐      ùáßΓ«Γá - φΓ«  µÑ½«Ñ  óδαáªÑ¡¿Ñ,  »αÑñßΓáó½∩εΘÑÑ
              ªÑ½áѼδ⌐ πα«óÑ¡∞ ó ñ¿á»áº«¡Ñ «Γ 37 ñ« 32767 úÑαµ.
                 使Γѽ∞¡«ßΓ∞ - φΓ« óδαáªÑ¡¿Ñ ß »½áóáεΘÑ⌐ Γ«τ¬«⌐,
              ¬«Γ«α«Ñ π»αáó½∩ÑΓ ñ½¿¡«⌐ Γ«¡á,  ¿º¼Ñα∩Ѽ«⌐ 18.2 αáº
              ó ßѬπ¡ñπ. æ««ΓóÑΓßΓóÑ¡¡«, º¡áτÑ¡¿Ñ ñ½¿Γѽ∞¡«ßΓ¿ 36
              ß««ΓóÑΓßΓóπÑΓ  »α¿¼Ñα¡«  2  ßѬπ¡ñá¼.  使Γѽ∞¡«ßΓ∞
              ¼«ªÑΓ  ¿º¼Ñ¡∩Γ∞ß∩ ó ñ¿á»áº«¡Ñ 0.0015 ñ« 65535 («ñ¿¡
              τáß).
                 Ä»ÑαáΓ«α SOUND ¡Ñ «ßΓá¡áó½¿óáÑΓ óδ»«½¡Ñ¡¿∩ »α«ú-
              αá¼¼δ.  àß½¿ SOUND óßΓαÑτáÑΓß∩ ó »α«úαá¼¼Ñ, ¡áτ¿¡á-
              ÑΓß∩ ¿ß»«½¡Ñ¡¿Ñ ΓαÑíπѼ«ú« Γ«¡á, á óδ»«½¡Ñ¡¿Ñ »α«ú-
              αá¼¼δ »α«ñ«½ªáÑΓß∩.  àß½¿ óßΓαÑτÑ¡ ß½ÑñπεΘ¿⌐ «»Ñαá-
              Γ«α SOUND ¿ Ñú« »áαá¼ÑΓα ñ½¿Γѽ∞¡«ßΓ¿ αáóÑ¡  0,  Γ«
              »αÑñδñπΘ¿⌐  SOUND ó䬽ετáÑΓß∩.  é »α«Γ¿ó¡«¼ ß½πτáÑ,
              ¬«úñá »áα¼ÑΓα ñ½¿Γѽ∞¡«ßΓ¿ ¡Ñ αáóÑ¡ 0, ÆôÉüÄ üàëæêè
              ªñÑΓ »«¬á ¡Ñ ºáóÑαΦ¿Γß∩ »αÑñδñπΘ¿⌐ ºóπ¬  ñ½∩  Γ«ú«,
              τΓ«íδ ¡áτáΓ∞ ß½ÑñπεΘ¿⌐.
                 Ä»ÑαáΓ«α  SOUND  ½πτΦÑ ¿ß»«½∞º«óáΓ∞ ñ½∩ ß«ºñá¡¿∩
              ߻ѵ¿á½∞¡δσ φΣΣÑ¬Γ«ó (¡á»α¿¼Ñα,  ß¿αÑ¡,  Θѽ¬á¡¿∩ ¿
              ßó¿ßΓá), á ¡Ñ ñ½∩ ¼πºδ¬¿.

Äúαá¡¿τÑ¡¿∩      ÄíαáΓ¿ΓÑ ó¡¿¼á¡¿Ñ,  τΓ«  «»ÑαáΓ«α  SOUND  ºá¡«ó«
              ¿¡¿µ¿á½¿º¿απÑΓ ¼¿¬α«Γá⌐¼Ñα MTIMER.

æ¼.Γá¬ªÑ      PLAY

Åα¿¼Ñα
        'πßΓá¡«ó¿Γ∞ ñ½¿¡π ¼πºδ¬á½∞¡«ú« íπΣÑαá αáó¡«⌐ 800 íá⌐Γ
        $SOUND 100
        '8 íá⌐Γ ¡á 1 ¡«Γπ
        '¿ß»«½∞º«óá¡¿Ñ SOUND ñ½∩ ß«ºñá¡¿∩ ºóπ¬«óδσ φΣΣÑ¬Γ«ó
        '¿¼¿Γᵿ∩ »ÑαѬ½ετÑ¡¿∩ ߬«α«ßΓÑ⌐
        '»Ñαóá∩ ߬«α«ßΓ∞
        FOR I=150 TO 175
        SOUND I,2
        NEXT I
        'óΓ«αá∩ ߬«α«ßΓ∞
        FOR J=125 TO 152
        SOUND J,1.5
        NEXT J
        'ΓαÑΓ∞∩ ߬«α«ßΓ∞
        FOR K=100 TO 127
        SOUND K,1.25
        NEXT K

                        öπ¡¬µ¿∩ SPACE
-----------------------------------------------------------------
ìạáτÑ¡¿Ñ    SPACE$ ó«ºóαáΘáÑΓ ßΓ᫬π, ß«ßΓ«∩Θπε ¿º »α«íѽ«ó.

æ¿¡Γá¬ß¿ß     s$=SPACE$(ßτÑΓτ¿¬)

諼¼Ñ¡Γáα¿⌐      æτÑΓτ¿¬ - φΓ« »«½«ª¿Γѽ∞¡«Ñ  µÑ½«Ñ  óδαáªÑ¡¿Ñ  ó
              ñ¿á»áº«¡Ñ  «Γ  0  ñ«  32767,  ¬«Γ«α«Ñ  ºáñáÑΓ τ¿ß½«
              »α«íѽ«ó, ó«ºóαáΘáѼδσ Σπ¡¬µ¿Ñ⌐.
                 SPACE$ - «ñ¡« ¿º ¼«Θ¡δσ  ßαÑñßΓó  Σ«α¼áΓ¿α«óá¡¿∩
              ΓѬßΓ«ó, ¿¼ÑεΘ¿σß∩ ó ÆôÉüÄ üàëæêèà.

æ¼.Γá¬ªÑ      LET   RINT USING    RSET    SPC   STRING$    TAB

Åα¿¼Ñα
        'αѺÑαó¿α«óá¡¿Ñ »α«íѽ«ó ñ½∩ A$
        A$=SPACE$(46)
        'ºá»¿ß∞ ßΓ᫬¿ ¿º 46 ß¿¼ó«½«ó
        B$="¥ÆÇ æÆÉÄèÇ æÄæÆÄêÆ êç 46 æêîéÄïÄé             "
        'Γ« ªÑ ßá¼«Ñ ß »«¼«Θ∞ε ¬½áó¿Φ¿ "ÅÉÄüàï"
        C$="                                              "
        '»ÑτáΓ∞ ñ½¿¡δ A$, B$ ¿ C$
        PRINT LEN(A$),LEN(B$),LEN(C$)
        PRINT
        PRINT "èᬠéδ ¼«ªÑΓÑ ó¿ñÑΓ∞, ¿ß»«½∞ºπ∩ SPACE$"
        PRINT "A$ ¼«ªÑΓ íδΓ∞ ñá¡« Γ« ªÑ º¡áτÑ¡¿Ñ,"
        PRINT " τΓ« ¿ B$ ¿ C$"
        END
        'èÄìàû ÅÉÄâÉÇîî¢

                        öπ¡¬µ¿∩ SPC
-----------------------------------------------------------------
ìạáτÑ¡¿Ñ    SPC  »α«»π߬áÑΓ N »α«íѽ«ó  (¿ß»«½∞ºπÑΓß∩ ó «»ÑαáΓ«αÑ
              PRINT).

æ¿¡Γá¬ß¿ß     PRINT SPC(N)

諼¼Ñ¡Γáα¿⌐      N - µÑ½«Ñ óδαáªÑ¡¿Ñ ó ñ¿á»áº«¡Ñ «Γ 0 ñ« 255.

                 èᬠ ¿  α«ñßΓóÑ¡¡á∩ Σπ¡¬µ¿∩ TAB,  SPC ¼«ªÑΓ íδΓ∞
              ¿ß»«½∞º«óá¡á Γ«½∞¬« ó ß»¿ß¬Ñ  óδαáªÑ¡¿⌐  «»ÑαáΓ«α«ó
              PRINT,  INPUT ¿ PRINT#.  SPC(n) óδó«ñ¿Γ n »α«íѽ«ó.
              ìÑ ß½ÑñπÑΓ »πΓáΓ∞ Σπ¡¬µ¿¿ SPC ¿ SPACE$.
                 àß½¿  N  í«½∞ΦÑ  Φ¿α¿¡δ   ßΓ᫬¿,   «»αÑñѽѡ¡«⌐
              «»ÑαáΓ«α«¼   WIDTH,   Σπ¡¬µ¿∩   SPC  óδó«ñ¿Γ  τ¿ß½«
              »α«íѽ«ó αáó¡«Ñ (N mod Φ¿α¿¡á).
                 àß½¿ SPC »«∩ó½∩ÑΓß∩ ó ¬«¡µÑ ß»¿ß¬á  óδαáªÑ¡¿⌐  ß
              Γ«τ¬«⌐  ß  ºá»∩Γ«⌐ ¿½¿ íѺ ¡ÑÑ,  ó«ºóαáΓ ¬áαÑΓ¬¿ ¡Ñ
              óδ»«½¡∩ÑΓß∩.

æ¼.Γá¬ªÑ      TAB    WIDTH

Åα¿¼Ñα        'ß ¿ß»«½∞º«ó᡿Ѽ SPC óδó«ñ ß½«ó "îÇï£ùêèê" ¿
        '"äàéÄùèê" ß »α«¼ÑªπΓ¬«¼ 40 »α«íѽ«ó ¿ »«ñτÑનóá¡¿Ñ
        'ß »«¼«Θ∞ε Σπ¡¬µ¿¿ STRING$
        PRINT SPC(5)"îÇï£ùêèê"SPC(40)"äàéÄùèê"
        PRINT SPC(5) STRING$(4,61) SPC(40) STRING$(5,61)
        FOR I=1 TO 5
        READ BOY$
        READ GIRL$
        'óδó«ñ ¿¼Ñ¡ ¼á½∞τ¿¬«ó ¿ ñÑó«τѬ ó ß««ΓóÑΓßΓóπεΘ¿σ
        '¬«½«¡¬áσ
        PRINT SPC(5)BOY$SPC(40)GIRL$
        NEXT I
        END
        '¬«¡Ñµ »α«úαá¼¼δ
        DATA "John","Ann"
        DATA "Mark","Eve"
        DATA "Paul","Elizabeth"
        DATA "Tony","Sue"

                        öπ¡¬µ¿∩ SQR
-----------------------------------------------------------------
ìạáτÑ¡¿Ñ    SQR ó«ºóαáΘáÑΓ º¡áτÑ¡¿Ñ ¬óáñαáΓ¡«ú« ¬«α¡∩.

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

諼¼Ñ¡Γáα¿⌐      ù¿ß½«ó«Ñ óδαáªÑ¡¿Ñ í«½∞ΦÑ ¿½¿ αáó¡«Ñ ¡π½ε.

                 SQR óδτ¿ß½∩ÑΓ ¬óáñαáΓ¡δ⌐ ¬«αÑ¡∞ ß ¿ß»«½∞º«ó᡿Ѽ
              á½ú«α¿Γ¼á, ¬«Γ«αδ⌐ αáí«ΓáÑΓ íδßΓαÑÑ, τѼ óδτ¿ß½Ñ¡¿Ñ
              ¬«α¡∩ ó«ºóÑñÑ¡¿Ñ¼ ó ßΓѻѡ∞ 0.5 (Γ« ÑßΓ∞ óδτ¿ß½Ñ¡¿Ñ
              Y=SQR(X) ºá¡¿¼áÑΓ ¼Ñ¡∞ΦÑ óαѼѡ¿¿, τѼ Y=X^0.5).
                 Åα¿  »«»δ⪥  ¿ºó½ÑτÑ¡¿∩  ¬óáñαáΓ¡«ú«  ¬«α¡∩  ¿º
              «Γα¿µáΓѽ∞¡«ú«  τ¿ß½á 󫺡¿¬áÑΓ «Φ¿í¬á óδ»«½¡Ñ¡¿∩ 5
              Illgal function call (¡ÑóÑα¡δ⌐ ó맮ó Σπ¡¬µ¿¿).
                 SQR ó«ºóαáΘáÑΓ º¡áτÑ¡¿Ñ ß ñó«⌐¡«⌐ Γ«τ¡«ßΓ∞ε.

Åα¿¼Ñα       'ÆÇüïêûÇ èéÇäÉÇÆì¢ò èÄÉìàë
        'αẼÑΓ¬á ñóπσ ¬«½«¡«¬
        PRINT "NUMBER"TAB(10)"SQUARE ROOT VALUE"
        PRINT
        FOR N=1 TO 10
        '¿ß»«½∞º«óá¡¿Ñ Σπ¡¬µ¿¿ TAB ñ½∩ óδó«ñá º¡áτÑ¡¿∩
        '¬«α¡∩ ó ¡πª¡«⌐ ¬«½«¡¬Ñ, óδτ¿ß½Ñ¡¿Ñ ¬óáñαáΓ¡«ú«
        '¬«α¡∩ ß »«¼«Θ∞ε Σπ¡¬µ¿¿ SQR
        PRINT N,TAB(15)SQR(N)
        NEXT N
        END
        '¬«¡Ñµ »α«úαá¼¼δ

                        Ä»ÑαáΓ«α STATIC
-----------------------------------------------------------------
ìạáτÑ¡¿Ñ    STATIC «íΩ∩ó½∩ÑΓ ßΓáΓ¿τÑ߬¿Ñ »ÑαѼѡ¡δÑ ó »α«µÑñπαÑ
              ¿½¿ Σπ¡¬µ¿¿.

æ¿¡Γá¬ß¿ß     STATIC  ß»¿ß«¬ »ÑαѼѡ¡δσ

諼¼Ñ¡Γáα¿⌐      Ä»ÑαáΓ«α STATIC, ¿ß»«½∞º«óá¡¿Ñ ¬«Γ«α«ú« ñ«»πßΓ¿-
              ¼« Γ«½∞¬« ó «»αÑñѽѡ¿∩σ »α«µÑñπα ¿½¿ Σπ¡¬µ¿⌐, «íΩ-
              ∩ó½∩ÑΓ τΓ« »ÑαѼѡ¡δÑ (αáºñѽѡ¡δÑ ºá»∩Γ묨 ó ß»¿ß-
              ¬Ñ »ÑαѼѡ¡δσ) ¿¼ÑεΓ ó »á¼∩Γ¿ Σ¿¬ß¿α«óá¡¡δÑ áñαÑßá,
              á ¡Ñ íếαπεΓß∩ ó ßΓѬÑ.  êñÑ¡Γ¿Σ¿¬áΓ«α,  ßó∩ºá¡¡δ⌐
              ß« ßΓáΓ¿τÑ߬«⌐ »ÑαѼѡ¡«⌐,  ¿ºóÑßΓÑ¡ Γ«½∞¬«  ó  ºá-
              ¬½ετáεΘÑ⌐ Ñú« »α«µÑñπαÑ ¿½¿ Σπ¡¬µ¿¿,  Γ« ÑßΓ∞ »ÑαÑ-
              ¼Ñ¡¡δÑ  ó  ñαπú¿σ  τáßΓ∩σ »α«úαá¼¼δ ¿ «ßΓá½∞¡δÑ ½«-
              ¬á½∞¡δÑ »ÑαѼѡ¡δÑ ¼«úπΓ ¿¼ÑΓ∞ ΓÑ ªÑ ¿¼Ñ¡á.
                 Ä»ÑαáΓ«α STATIC ñ«½ªÑ¡ íδΓ∞ π¬áºá¡ ó  «»αÑñѽѡ¿∩σ
              Σπ¡¬µ¿⌐  ¿½¿  »α«µÑñπα  ñ« ½εí«ú« óδ»«½¡∩Ѽ«ú« «»Ñαá-
              Γ«αá. ä½∩ Γ«ú«, τΓ«íδ «íΩ∩ó¿Γ∞ ¼áßß¿ó ¬á¬ ßΓáΓ¿τÑ߬πε
              »ÑαѼѡ¡πε ó »α«µÑñπαÑ ¿½¿ Σπ¡¬µ¿¿,  ß½ÑñπÑΓ ó¬½ετ¿Γ∞
              Ñú«  ¿ñÑ¡Γ¿Σ¿¬áΓ«α  ß »πßΓ묨 ߬«í¬á¼¿ ó ß»¿ß«¬ »ÑαÑ-
              ¼Ñ¡¡δσ,  á ºáΓѼ  πßΓá¡«ó¿Γ∞  αẼÑα¡«ßΓ∞  ¼áßß¿óá  ó
              ß½ÑñπεΘѼ «»ÑαáΓ«αÑ.
                 é «Γ½¿τ¿Ñ «Γ ½«¬á½∞¡δσ  »ÑαѼѡ¡δσ,  ßΓáΓ¿τÑ߬¿Ñ
              »ÑαѼѡ¡δÑ ¡Ñ ¼Ñ¡∩εΓ ßó«Ñú« º¡áτÑ¡¿∩ ¼Ñªñπ ó맮óἿ
              »α«µÑñπα   ¿½¿   Σπ¡¬µ¿⌐.    Ä¡¿   ¿¡¿µ¿á½¿º¿απεΓß∩
              Ññ¿¡ßΓóÑ¡¡δ⌐ αẠ»α¿ ºá»π᪥ »α«úαá¼¼δ.

æ¼.Γá¬ªÑ      LOCAL    SHARED

Åα¿¼Ñα        '«íΩ∩ó½Ñ¡¿Ñ STATIC-»α«µÑñπαδ ß« ßΓáΓ¿τÑ߬¿¼¿
              '½«¬á½∞¡δ¼¿ »ÑαѼѡ¡δ¼¿
              SUB DUMMY STATIC
              '»ÑαѼѡ¡á∩
              STATIC I%
           INCR I%
        PRINT I%
        END SUB
        '¬«¡Ñµ »α«µÑñπαδ DUMMY
        I=16
        'ñóá ó맮óá »α«µÑñπαδ
        CALL DUMMY
        CALL DUMMY
        PRINT I
        END
        '¬«¡Ñµ »α«úαá¼¼δ

                        öπ¡¬µ¿∩ STICK
-----------------------------------------------------------------
ìạáτÑ¡¿Ñ    STICK ó«ºóαáΘáÑΓ ¿¡Σ«α¼áµ¿ε « »«º¿µ¿¿ ñª«⌐ßΓ¿¬á.

æ¿¡Γá¬ß¿ß     Y=STICK(óáα¿á¡Γ)

諼¼Ñ¡Γáα¿⌐      éáα¿á¡Γ - φΓ« µÑ½«Ñ óδαáªÑ¡¿Ñ ó ñ¿á»áº«¡Ñ  «Γ  0
              ñ« 3, ñÑ⌐ßΓó¿Ñ ¬«Γ«α«ú« «»αÑñѽ∩ÑΓß∩ ó ß««ΓóÑΓßΓó¿¿
              ß« ß½ÑñπεΘÑ⌐ Γáí½¿µÑ⌐:

        -----------------------------------------------------
            éáα¿á¡Γ         äÑ⌐ßΓó¿Ñ
        -----------------------------------------------------
               0        髺óαáΘáÑΓ ò-¬««αñ¿¡áΓπ ñª«⌐ßΓ¿¬á Ç
               1        髺óαáΘáÑΓ Y-¬««αñ¿¡áΓπ ñª«⌐ßΓ¿¬á A
               2        髺óαáΘáÑΓ ò-¬««αñ¿¡áΓπ ñª«⌐ßΓ¿¬á B
               3        髺óαáΘáÑΓ Y-¬««αñ¿¡áΓπ ñª«⌐ßΓ¿¬á B
        ----------------------------------------------------

                 ÄíαáΓ¿ΓÑ ó¡¿¼á¡¿Ñ,  τΓ« ¿¡ΓÑαΣÑ⌐ß ñª«⌐ßΓ¿¬á ΓαÑ-
              íπÑΓ,  τΓ«íδ  ñ«  τΓÑ¡¿∩ ¬««αñ¿¡áΓ ½εí«ú« ñª«⌐ßΓ¿¬á
              »α«µÑßß τΓÑ¡¿∩ íδ½ ºá»πΘΘÑ¡ «»ÑαáΓ«α«¼ STICK(0).

æ¼.Γá¬ªÑ      STRIG

Åα¿¼Ñα         '«»α«ß ñª«⌐ßΓ¿¬«ó ñ½∩ «»αÑñѽѡ¿∩ ¿σ
               'ΓѬπΘÑ⌐ »«º¿µ¿¿
               WHILE NOT INSTAT
            LOCATE 15,15
        PRINT STICK(0),STICK(1),STICK(2),STICK(3);
        WEND
        END
        '¬«¡Ñµ »α«úαá¼¼δ

                        Ä»ÑαáΓ«α STOP
-----------------------------------------------------------------
ìạáτÑ¡¿Ñ    STOP «ßΓá¡áó½¿óáÑΓ »α«úαá¼¼π.

æ¿¡Γá¬ß¿ß     STOP

諼¼Ñ¡Γáα¿⌐      STOP  »αѬαáΘáÑΓ  óδ»«½¡Ñ¡¿Ñ »α«úαá¼¼δ ¿ ó«ºóαá-
              ΘáÑΓ π»αáó½Ñ¡¿Ñ  «»Ñαᵿ«¡¡«⌐  ß¿ßΓÑ¼Ñ  (¿½¿  ÆôÉüÄ
              üàëæêèô,  ó  ºáó¿ß¿¼«ßΓ¿  «Γ Γ«ú«,  «Γ¬πñá «¡á íδ½á
              ºá»πΘÑ¡á).  Ä»ÑαáΓ«α END óδ»«½¡∩ÑΓ Γπ  ªÑ  Σπ¡¬µ¿ε,
              ¡« ∩ó½∩ÑΓß∩ í«½ÑÑ »αÑñ»«τΓ¿Γѽ∞¡δ¼.

ÄΓ½¿τ¿∩          é «Γ½¿τ¿Ñ «Γ »α«úαá¼¼ ¡á ¿¡ΓÑα»αÑΓ¿απѼ«¼ üàëæê-
              èÑ, Ñß½¿ »α«úαá¼¼á ó ÆôÉüÄ üàëæêèà «ßΓá¡«ó½Ñ¡á «»Ñ-
              αáΓ«α«¼ STOP,  ÑÑ óδ»«½¡Ñ¡¿Ñ ¡Ñ ¼«ªÑΓ íδΓ∞  »α«ñ«½-
              ªÑ¡« «»ÑαáΓα«¼ CONTINUE.

æ¼.Γá¬ªÑ      END

Åα¿¼Ñα        'ºá»π߬ íÑ߬«¡Ñτ¡«ú« µ¿¬½á
           DO
             'ºáóÑαΦÑ¡¿Ñ »α¿ ¡áªáΓ¿¿ ¬½áó¿Φ¿
           IF INSTAT THEN STOP
        LOOP
        END
        '¬«¡Ñµ »α«úαá¼¼δ

                        öπ¡¬µ¿∩ STR$
-----------------------------------------------------------------
ìạáτÑ¡¿Ñ    STR$ ó«ºóαáΘáÑΓ ß¿¼ó«½∞¡δ⌐ φ¬ó¿óá½Ñ¡Γ τ¿ß½á.

æ¿¡Γá¬ß¿ß     S$=STR$(τ¿ß½«ó«Ñ óδαáªÑ¡¿Ñ)

諼¼Ñ¡Γáα¿⌐      STR$ »αÑ«íαáºπÑΓ τ¿ß½«óπε »ÑαѼѡ¡πε ¿½¿ óδαáªÑ-
              ¡¿Ñ  ó ßΓ᫬π,  Γ« ÑßΓ∞ Σπ¡¬µ¿∩ STR$ ó«ºóαáΘáÑΓ Γ«,
              τΓ« éδ πó¿ñѽ¿ íδ ¡á φ¬αá¡Ñ, Ñß½¿ íδ óδ»«½¡¿½¿ «»Ñ-
              αáΓ«α "PRINT τ¿ß½«ó«Ñ óδαáªÑ¡¿Ñ". àß½¿ τ¿ß½«ó«Ñ óδ-
              αáªÑ¡¿Ñ  í«½∞ΦÑ  0,  STR$  ñ«»«½¡∩ÑΓ Ñú« ½¿ñ¿απεΘ¿¼
              »α«íѽ«¼;  ¡á»α¿¼Ñα STR$(14) ó«ºóαáΘáÑΓ  ßΓα«¬π  ¿º
              ΓαÑσ ß¿¼ó«½«ó, »Ñαóδ⌐ ¿º ¬«Γ«αδσ - »α«íѽ.
                 ÄíαáΓ¡«⌐  ¬  Σπ¡¬µ¿¿  STR$ ∩ó½∩ÑΓß∩ Σπ¡¬µ¿∩ VAL,
              »αÑ«íαáºπεΘá∩ ß¿¼ó«½∞¡πε  ßΓ᫬π  ó  τ¿ß½«ó«Ñ  º¡á-
              τÑ¡¿Ñ.

æ¼.Γá¬ªÑ      VAL

Åα¿¼Ñα        '»α¿ßó«¿¼ A% τ¿ß½«ó«Ñ º¡áτÑ¡¿Ñ
            A%=56789
           '¿ß»«½∞ºπѼ STR$ ñ½∩ »αÑ«íαẫóá¡¿∩ τ¿ß½á
        A$=STR$(A%)
        PRINT A%,A$
        '»α«óÑα¿¼, ¿¼ÑÑΓ ½¿ A% Γ« ªÑ º¡áτÑ¡¿Ñ, τΓ« ¿ A$
        IF A%=VAL(A$) THEN
            PRINT "STR$ ¿ VAL ¿ß»αáó¡« αáí«ΓáεΓ"
        END IF
        END
        '¬«¡Ñµ »α«úαá¼¼δ

                          öπ¡¬µ¿∩ STRIG
-----------------------------------------------------------------
ìạáτÑ¡¿Ñ    STRIG ó«ºóαáΘáÑΓ ß«ßΓ«∩¡¿∩ ¬½áó¿Φ ñª«⌐ßΓ¿¬á.

æ¿¡Γá¬ß¿ß     Y=STRIG(óáα¿á¡Γ)

諼¼Ñ¡Γáα¿⌐      öπ¡¬µ¿∩ STRIG  ó«ºóαáΘáÑΓ ¿¡Σ«α¼áµ¿ε « Γα¿úúÑαÑ
              ñª«⌐ßΓ¿¬á  ó  ß««ΓóÑΓßΓó¿¿  ß«  º¡áτÑ¡¿Ñ¼ óáα¿á¡Γá.
                 éáα¿á¡Γ - φΓ« µÑ½«Ñ τ¿ß½«ó«Ñ óδαáªÑ¡¿Ñ, π»αáó-
              ½∩εΘÑÑ ñÑ⌐ßΓó¿Ñ¼ Σπ¡¬µ¿¿ STRIG  ó  ß««ΓóÑΓßΓó¿¿  ß«
              ß½ÑñπεΘÑ⌐ Γáí½¿µÑ⌐:

    ----------------------------------------------------------
            éáα¿á¡Γ             äÑ⌐ßΓó¿Ñ
    ---------------------------------------------------------
              0 -   àß½¿ »«ß½Ñ »«ß½Ññ¡Ñú« ó맮óá STRIG(1)
                  íδ½á ¡áªáΓá ¬½áó¿Φá 1 ñª«⌐ßΓ¿¬á Ç, STRIG
                  ó«ºóαáΘáÑΓ -1, ó »α«Γ¿ó¡«¼ ß½πτáÑ  0.
              1 -   STRIG ó«ºóαáΘáÑΓ -1, Ñß½¿ ¬½áó¿Φá ñª«⌐-
                  Γ¿¬á Ç ¡áªáΓá ó ñá¡¡δ⌐  ¼«¼Ñ¡Γ, ¿¡áτÑ  0.
              2 -   àß½¿ »«ß½Ñ »«ß½Ññ¡Ñú« ó맮óá STRIG(2)
                 íδ½á ¡áªáΓá ¬½áó¿Φá 1 ñª«⌐ßΓ¿¬á é, STRIG
                 ó«ºóαáΘáÑΓ -1, ¿¡áτÑ   0.
              3 -   STRIG ó«ºóαáΘáÑΓ -1, Ñß½¿ ¬½áó¿Φá 1
                 ñª«⌐ßΓ¿¬á é ¡áªáΓá ó ñá¡¡δ⌐ ¼«¼Ñ¡Γ, ¿¡áτÑ
                 0.
              4 -    àß½¿ »«ß½Ñ »«ß½Ññ¡Ñú« ó맮óá STRIG(4)
                  íδ½á ¡áªáΓá ¬½áó¿Φá 2 ñª«⌐ßΓ¿¬á Ç, STRIG
                  ó«ºóαáΘáÑΓ -1, ¿¡áτÑ - 0.
              5 -    STRIG ó«ºóαáΘáÑΓ -1, Ñß½¿ ¬½áó¿Φá 2
                  ñª«⌐ßΓ¿¬á Ç ¡áªáΓá ó ñá¡¡δ⌐ ¼«¼Ñ¡Γ, ¿¡áτÑ
                  - 0.
              6 -    àß½¿ »«ß½Ñ »«ß½Ññ¡Ñú« ó맮óá STRIG(6)
                  íδ½á ¡áªáΓá ¬½áó¿Φá 2 ñª«⌐ßΓ¿¬á é, STRIG
                  ó«ºóαáΘáÑΓ -1, ¿¡áτÑ - 0.
              7 -    STRIG ó«ºóαáΘáÑΓ -1, Ñß½¿ ¬½áó¿Φá 2
                  ñª«⌐ßΓ¿¬á é ¡áªáΓá ó ñá¡¡δ⌐ ¼«¼Ñ¡Γ, ¿¡áτÑ
                  0.
    ----------------------------------------------------------

                 ä« óδ»«½¡Ñ¡¿∩ ó맮ó«ó Σπ¡¬µ¿¿ STRIG ß½ÑñπÑΓ αáº-
              αÑΦ¿Γ∞ »α«óÑα¬π ¬½áó¿Φ¿ ñª«⌐ßΓ¿¬á ß »«¼«Θ∞ε  «»Ñαá-
              Γ«αá STRIG ON.
                 ä½∩ τΓÑ¡¿∩ »«º¿µ¿¿ ñª«⌐ßΓ¿¬á ¿ß»«½∞ºπ⌐ΓÑ Σπ¡¬µ¿ε
              STICK.

æ¼.Γá¬ªÑ      STICK

Åα¿¼Ñα        æ¼. »α¿¼Ñα ¬ «»ÑαáΓ«απ STRIG.

                        Ä»ÑαáΓ«α STRIG.
-----------------------------------------------------------------
ìạáτÑ¡¿Ñ    STRIG π»αáó½∩ÑΓ »α«óÑᬫ⌐ ß«íδΓ¿⌐, ßó∩ºá¡¡δσ ß ¬½á-
            ó¿ΦἿ ñª«⌐ßΓ¿¬á.

æ¿¡Γá¬ß¿ß   STRIG (ON | OFF | STOP)

çá¼Ñτá¡¿∩        Ä»ÑαáΓ«α STRIG ON   ó¬½ετáÑΓ  »α«óÑα¬π  ß«íδΓ¿⌐,
              ßó∩ºá¡¡δσ ß Γα¿úúÑα«¼,  Γá¬,  τΓ« ¼«úπΓ óδ»«½¡∩Γ∞ß∩
              ºá»α«ßδ Σπ¡¬µ¿⌐ STRIG ¿ «íαáí«Γ¬á  »αÑαδóá¡¿⌐  »«ñ-
              »α«úαá¼¼«⌐, ºáñá¡¡«⌐ «»ÑαáΓ«α«¼ ON STRIG.
                 STRIG OFF «Γ¬½ετáÑΓ »α«óÑα¬π ß««ΓóÑΓßΓóπεΘ¿σ ß«-
              íδΓ¿⌐.
                 STRIG STOP «Γ¬½ετáÑΓ αÑᬵ¿ε ¡á ß«íδΓ¿∩, ßó∩ºá¡-
              ¡δÑ ß Γα¿úúÑα«¼,  ¡« ß«σαá¡∩ÑΓ ¿σ ó »á¼∩Γ¿ Γá¬, τΓ«
              »α¿  »«ß½ÑñπεΘѼ  óừ½¡Ñ¡¿¿  STRIG  ON  ¡Ñ¼Ññ½Ñ¡¡«
              󫺡¿¬áÑΓ »αÑαδóá¡¿Ñ.

æ¼.Γá¬ªÑ      ON STRIG

Åα¿¼Ñα         'ó¬½ετáÑΓ »α«óÑα¬π ß«íδΓ¿∩
               STRIG(0) ON
               STRIG(1) ON
               STRIG(4) ON
               STRIG(6) ON
              '«»αáΦ¿óáÑΓ ß«ßΓ«∩¡¿Ñ ß«íδΓ¿∩ ñ½∩ »α«óÑન
              'íδ½á ½¿ ¡áªáΓá ¬½áó¿Φá
        WHILE NOT INSTAT
            LOCATE 1,1
            PRINT STRIG(0),STRIG(1),STRIG(2),STRIG(3)
            PRINT STRIG(4),STRIG(5),STRIG(6),STRIG(7)
        WEND
        END
        '¬«¡Ñµ »α«úαá¼¼δ

                        öπ¡¬µ¿∩ STRING$
-----------------------------------------------------------------
ìạáτÑ¡¿Ñ    STRING$  ó«ºóαáΘáÑΓ ßΓ᫬π,  ß«ßΓ«∩Θπε ¿º ºáñá¡¡«ú«
              τ¿ß½á »«óΓ«αÑ¡¿⌐ π¬áºá¡¡«ú« ß¿¼ó«½á.

æ¿¡Γá¬ß¿ß     S$=STRING$(ßτÑΓτ¿¬,{º¡áτÑ¡¿Ñ|ß¿¼ó«½∞¡«Ñ óδαáªÑ¡¿Ñ})

諼¼Ñ¡Γáα¿⌐      æτÑΓτ¿¬ ¿ º¡áτÑ¡¿Ñ -  µÑ½δÑ  óδαáªÑ¡¿∩,  ßτÑΓτ¿¬
              ¼«ªÑΓ ¼Ñ¡∩Γ∞ß∩ ó ñ¿á»áº«¡Ñ «Γ 1 ñ« 32767,  º¡áτÑ¡¿Ñ
              -«Γ 0 ñ« 255.
                 STRING$  ß  τ¿ß½«óδ¼  áαúπ¼Ñ¡Γ«¼ óδºóαáΘáÑΓ ß¿¼-
              ó«½∞¡πε ßΓ᫬π,  ß«ßΓáó½Ñ¡¡πε ¿º «ñ¿¡á¬«óδσ  ß¿¼ó«-
              ½«ó,  ASCII-¬«ñ ¬«Γ«αδσ αáóÑ¡ º¡áτÑ¡¿ε,  á ¿σ τ¿ß½«
              αáó¡« ßτÑΓτ¿¬π.  STRING$  ß  ß¿¼ó«½∞¡δ¼  áαúπ¼Ñ¡Γ«¼
              ó«ºóαáΘáÑΓ  ßΓ᫬π,  ß«ßΓ«∩Θπε  ¿º  »Ñαóδσ ß¿¼ó«½«ó
              ß¿¼ó«½∞¡«ú«   óδαáªÑ¡¿∩,    τ¿ß½«   ¬«Γ«αδσ   αáó¡«
              ßτÑΓτ¿¬π.
                 STRING$(n,32),  STRING$(n," ") ¿ SPACE$(n)  »α¿-
              ó«ñ∩Γ  ¬  «ñ¡«¼π  ¿ Γ«¼π ªÑ αѺπ½∞ΓáΓπ - ó«ºóαáΘáεΓ
              ßΓα«¬π ¿º n »α«íѽ«ó.

Åα¿¼Ñα
        'STRING$ ¿ TAB ßΓα«∩Γ »α∩¼«πú«½∞¡¿¬
        '¿ß»«½∞º«óá¡¿Ñ 40 º¡á¬«ó αáóÑ¡ßΓóá (=) ñ½∩
        '»«ßΓα«Ñ¡¿∩ óÑασ¡Ñ⌐ úαá¡¿ »α∩¼«πú«½∞¡¿¬á, ºáΓѼ
        '»ÑτáΓ∞
        TOP$=STRING$(40,61)
        PRINT TOP$
        '¿ß»«½∞º«óá¡¿Ñ 1-ßѬπ¡ñ¡«⌐ ºáñÑ᪬¿ ñ½∩ Γ«ú«,
        'τΓ«íδ ¼«ª¡« í佫 πó¿ñÑΓ∞, ¬á¬ ßΓα«¿Γß∩ »α∩¼«πú«½∞¡¿¬
        DELAY 1
        'ßΓ«α«¡δ ßΓα«∩Γß∩ ß »«¼«Θ∞ε µ¿¬½á
        FOR I=1 TO 5
            PRINT TAB(1)"="TAB(40)"="
            DELAY 1
        NEXT I
        DELAY 1
        '¡¿ª¡∩∩ úαá¡∞ ßΓα«¿Γß∩ Γá¬ªÑ ¬á¬ ¿ óÑασ¡∩∩
        LOCATE 4,15
        PRINT "ßÑαÑñ¿¡á"
        DELAY 1
        '¬παß«α »ÑαѼÑΘáÑΓß∩ ºá »αÑñÑ½δ »α∩¼«πú«½∞¡¿¬á
        LOCATE 20,1
        END
        '¬«¡Ñµ »α«úαá¼¼δ