home *** CD-ROM | disk | FTP | other *** search
/ For Beginners & Professional Hackers / cd.iso / docum / tb1.doc / tb6.doc < prev    next >
Encoding:
Text File  |  1979-12-31  |  41.5 KB  |  964 lines
  1. .R: 
  2. .L:72
  3. .N:119
  4. .H:
  5. .H:...-$$$-...
  6. .S:6
  7. .X:10
  8.                 Ä»ÑαΓáΓ«α COLOR (úαáΣ¿τÑ߬¿⌐ Γ¿»)
  9. -----------------------------------------------------------------
  10. ìạáτÑ¡¿Ñ  Ä»ÑαΓáΓ«α COLOR úαáΣ¿τÑ߬«ú«  Γ¿»á πßΓá¡áó½¿óáÑΓ µóÑΓ 
  11.             »α¿ óδ»«½¡Ñ¡¿¿ úαáΣ¿τÑ߬¿Γσ «»Ñαᵿ⌐.
  12.  
  13. æ¿¡Γá¬ß¿ß   ä½∩ SCREEN 1:  COLOR [background] [,[palette]]
  14.                 ¥èÉÇìá     ûéàÆ  [Σ«¡«óδ⌐]      [¡áí«α]
  15.  
  16.          ä½∩ SCREENs 7,8,9,10: COLOR [foreground] [,[background]]
  17.              ¥èÉÇì«ó 7,8,9,10  ûéàÆ  [«ß¡«ó¡«⌐]     [Σ«¡«óδ⌐]
  18.  
  19. 諼¼Ñ¡Γáα¿⌐    background φΓ« µÑ½«Ñ óδαáªÑ¡¿Ñ ó ñ¿á»áº«¡Ñ «Γ 0 ñ« 
  20.                           63,  «»αÑñѽ∩εΘÑÑ µóÑΓ Σ«¡á ¡á  ¬«Γ«α«¼ 
  21.                           óδßóÑτ¿óáεΓß∩ ß¿¼ó«½δ ¿ ßΓα«∩Γß∩ úαáΣ¿-
  22.                           τÑ߬¿Ñ «íΩѬΓδ;  
  23.  
  24.                palette    φΓ« µÑ½«Ñ óδαáªÑ¡¿Ñ ó ñ¿á»áº«¡Ñ «Γ 0 ñ«
  25.                           1, ¬«Γ«α«Ñ óδí¿αáÑΓ «ñ¿¡ ¿º ñóπσ µóÑΓ«-
  26.                           óδσ ¡áí«α«ó;
  27.  
  28.  
  29.  
  30.                foreground φΓ« µÑ½«Ñ óδαáªÑ¡¿Ñ ó ñ¿á»áº«¡Ñ «Γ 1 ñ« 
  31.                           15, ¬«Γ«α«Ñ «»αÑñѽ∩ÑΓ «ß¡«ó¡«⌐ µóÑΓ, 
  32.                           Γ.Ñ. µóÑΓ, ¬«Γ«αδ¼ óδßóÑτ¿óáεΓß∩ ß¿¼ó«-
  33.                           ½δ ¿ úαáΣ¿τÑ߬¿Ñ «íΩѬΓδ. 
  34.  
  35.                       ..
  36.                         ..
  37.                           ..
  38.                             ..
  39.                               ..
  40.                                 ..
  41.                                   ..
  42.                                     ..
  43.                                       ..
  44.                                         ..
  45.                                           ..
  46.                                             ..
  47.                                               ..
  48.                                                 ..
  49.                                                   ..
  50.                                                     ..
  51.  
  52.  
  53.  
  54.            -----------------------------------------
  55.             ûéàÆ      ìáí«α 0        ìáí«α 1
  56.            -----------------------------------------
  57.              1        ºÑ½Ñ¡δ⌐      ºÑ½Ñ¡«-ú«½πí«⌐  
  58.              2        ¬αáß¡δ⌐      »πα»πα¡«-¬αáß¡δ⌐
  59.              3        ¬«α¿τ¡Ñóδ⌐   íѽδ⌐
  60.            -----------------------------------------
  61. 
  62.                    ¥èÉÇì 7 ¿ 8
  63.  
  64.                Æ«½∞¬« EGA. ûóÑΓá ºáó¿ß∩Γ «Γ ΓѬπΘÑú« ¡áí«αá. 
  65.                Äß¡«ó¡«⌐ µóÑΓ 1 -15.  éδíαá¡¡δ⌐ µóÑΓ  ¿ß»«½∞ºπÑΓß∩ 
  66.             »α¿ ¡á»¿ßá¡¿¿ ß¿¼ó«½«ó ¿ »«ßΓα«Ñ¡¿¿ úαáΣ¿¬«ó.
  67.                ö«¡«Σδ⌐ µóÑΓ 0 -15. éδí¿αáÑΓ µóÑΓ Σ«¡á ¡á ¬«Γ«α«¼ 
  68.             »¿ΦπΓß∩ ß¿¼ó«½δ ¿ ßΓα«∩Γß∩ úαáΣ¿¬¿.
  69.  
  70.                    ¥èÉÇì 9
  71.  
  72.                Äß¡«ó¡«⌐ µóÑΓ 1 -15.  éδíαá¡¡δ⌐ µóÑΓ  ¿ß»«½∞ºπÑΓß∩ 
  73.             »α¿ ¡á»¿ßá¡¿¿  ΓѬßΓá  ¿ »«ßΓα«Ñ¡¿¿ úαáΣ¿¬«ó. àß½¿ ó
  74.             óáΦѼ EGA Γ«½∞¬« 64è »á¼∩Γ¿ ñ½∩ πßΓᡫ󬿠µóÑΓá »«½∞-
  75.             ºπ⌐ΓÑß∞ º¡áτÑ¡¿∩¼¿ ¿º ñ¿á»áº«¡á 1- 3.
  76.                ö«¡«Σδ⌐ µóÑΓ 0 -63. éδí¿αáÑΓ µóÑΓ Σ«¡á ¡á ¬«Γ«α«¼ 
  77.             »¿ΦπΓß∩ ß¿¼ó«½δ ¿ ßΓα«∩Γß∩ úαáΣ¿¬¿.
  78.  
  79.                    ¥èÉÇì 10
  80.  
  81.                Äß¡«ó¡«⌐  µóÑΓ 1 - 3.  éδíαá¡¡δ⌐ µóÑΓ ¿ß»«½∞ºπÑΓß∩ 
  82.             »α¿ ¡á»¿ßá¡¿¿ ΓѬßΓá ¿ »«ßΓα«Ñ¡¿¿ úαáΣ¿¬«ó.  
  83.                1 = τÑα¡δ⌐,  2 = ß½áíδ⌐,  3 = ¿¡ΓÑ¡ß¿ó¡δ⌐.
  84.                êß»«½∞º«óá¡¿Ñ 0 ñ½∩  «ß¡«ó¡«ú«  µóÑΓá  »α¿ó«ñ¿Γ  ¬ 
  85.             «Φ¿í¬Ñ  "Illegal  Function Call" ("ìÑ»αáó¿½∞¡δ⌐ ó맮ó 
  86.             Σπ¡¬µ¿¿").  
  87.                ä½∩ ¿º¼Ñ¡Ñ¡¿∩ áΓα¿íπΓ«ó »« π¼«½τá¡¿ε ¿ß»«½∞ºπ⌐ΓÑ 
  88.             «»ÑαáΓ«α PALETTE.
  89.                ö«¡«Σδ⌐ µóÑΓ 0 -63. éδí¿αáÑΓ µóÑΓ Σ«¡á.
  90.                Åα¿¼Ñτá¡¿Ñ: 0 ∩ó½∩ÑΓß∩ Σ«¡«óδΣ¼ µóÑΓ«¼ ñ½∩ ½εí«ú« 
  91.             ¡áí«αá µóÑΓ«ó, «»αÑñѽѡ¡«ú« ó ñá¡¡«¼ «»ÑαáΓ«αÑ, «ß-
  92.             ¡«ó¡«⌐ µóÑΓ »« π¼«½τá¡¿ε πßΓá¡áó½¿óáÑΓß∩ ß ¼á¬ß¿¼á½∞-
  93.             ¡δ¼ º¡áτÑ¡¿Ñ¼.
  94.  
  95. Äúαá¡¿τÑ¡¿∩    é αѪ¿¼Ñ ¥èÉÇìá 2 «»ÑαáΓ«α COLOR »α¿ó«ñ¿Γ ¬ «Φ¿í¬Ñ 
  96.             óδ»«½¡Ñ¡¿∩ 5 "Illegal Function  Call"  ("ìÑ»αáó¿½∞¡δ⌐ 
  97.             ó맮ó Σπ¡¬µ¿¿").  
  98.  
  99. Åα¿¼Ñα         'äá¡¡á∩  »α«úαἼᠠñѼ«¡ßΓα¿απÑΓ αáí«Γπ «»ÑαáΓ«αá 
  100.             COLOR ó úαáΣ¿τÑ߬«¼ αѪ¿¼Ñ.
  101.  
  102.                'ÅÑαѬ½ετ¿Γ∞ φ¬αá¡ ó úαáΣ¿τÑ߬¿⌐ αѪ¿¼ ß« ßαÑñ¡Ñ⌐
  103.             'αáºαÑΦáεΘÑ⌐ ß»α«ß«í¡«ßΓ∞ε ¿ πßΓá¡«ó¿Γ∞ µóÑΓ«ó«⌐ ¡á- 
  104.             'í«α 0
  105.                   SCREEN 1
  106.                   COLOR ,0
  107.             FOR Radius% = 1 to 20  'πóѽ¿τ¿Γ∞ αẼÑα ¬απúá
  108.             Color% =  Radius% MOD 4 'óδτ¿ß½¿Γ∞ µóÑΓ ñ¿ß»½Ñ∩
  109.             CIRCLE (160,100), Radius%, Color%  '»«¬áºáΓ∞ ¡á φ¬αá¡Ñ
  110.             NEXT Radius%       '¬απú ß µÑ¡Γα«¼ ó Γ«τ¬Ñ 250.150
  111.  
  112.             delay 2
  113.                    COLOR  ,1   '¿º¼Ñ¡¿Γ∞ ¡áí«α µóÑΓ«ó
  114.  
  115.             delay 2
  116.  
  117.                    'πßΓá¡«ó¿Γ∞ ¡áí«α µóÑΓ«ó ¿ Σ«¡«óδ⌐ µóÑΓ,
  118.                    '«τ¿ßΓ¿Γ∞ φ¬αá¡
  119.  
  120.                    COLOR 6,1:CLS
  121.  
  122.                   '»«ßΓα«¿Γ∞ ¬αáß¡δ⌐ ¬αΓπú ó ßÑαÑñ¿¡Ñ φ¬αá¡á
  123.  
  124.             CIRCLE (160,100), 50, 2
  125.  
  126.             delay 2
  127.                     END
  128. 
  129.                 Ä»ÑαΓáΓ«α COLOR (ΓѬßΓ«óδ⌐ Γ¿»)
  130. -----------------------------------------------------------------
  131. ìạáτÑ¡¿Ñ  Ä»ÑαΓáΓ«α COLOR πßΓá¡áó½¿óáÑΓ ΓѬßΓ«óδ⌐ µóÑΓ.
  132.  
  133. æ¿¡Γá¬ß¿ß   COLOR [foreground] [,[background] [,[border]]
  134.             ûéàÆ  [«ß¡«ó¡«⌐]     [Σ«¡«óδ⌐]      [úαá¡¿µá]  
  135.  
  136. 諼¼Ñ¡Γáα¿⌐    foreground  φΓ«  µÑ½«τ¿ß½Ñ¡¡«Ñ óδαáªÑ¡¿Ñ  «Γ 0 ñ« 
  137.                            31, «»αÑñѽ∩εΘÑÑ µóÑΓ ß¿¼ó«½«ó;
  138.  
  139.                background  φΓ«  µÑ½«τ¿ß½Ñ¡¡«Ñ óδαáªÑ¡¿Ñ  «Γ 0 ñ« 
  140.                            7, «»αÑñѽ∩εΘÑÑ µóÑΓ Σ«¡á;
  141.  
  142.                border      φΓ«  µÑ½«τ¿ß½Ñ¡¡«Ñ óδαáªÑ¡¿Ñ  «Γ 0 ñ« 
  143.                            15, «»αÑñѽ∩εΘÑÑ µóÑΓ ¡á úαá¡¿µÑ «ß- 
  144.                            ¡«ó¡«ú« ¿ Σ«¡«ó«ú« µóÑΓ«ó.
  145.  
  146.                àß½¿ ¬á¬«⌐-½¿í« ¿º ¡áºóá¡¡δσ »áαá¼ÑΓα«ó óδ⌐ñÑΓ ºá 
  147.             »αÑñѽδ π¬áºá¡¡δσ ñ¿á»áº«¡«ó »α«¿º«⌐ñÑΓ «Φ¿í¬á óδ-
  148.             »«½¡Ñ¡¿∩ 5 "Illegal Function  Call"  ("ìÑ»αáó¿½∞¡δ⌐ 
  149.             ó맮ó Σπ¡¬µ¿¿").
  150.  
  151.                ä½∩ ßΓá¡ñáαΓ¡δσ ó¿ñÑ«ñѬ Γ¿»á C/G (ûóÑΓ/âαáΣ¿¬á) 
  152.             óáΦ óδí«α «ß¡«ó¡δσ µóÑΓ«ó ñ«½ªÑ¡ íδΓ∞ ß½ÑñπεΘ¿¼:
  153.  
  154.             0 - τÑα¡δ⌐               8 - ßÑαδ⌐
  155.             1 - ß¿¡¿⌐                9 - ú«½πí«⌐
  156.             2 - ºÑ½Ñ¡δ⌐             10 - ßóÑΓ½«ºÑ½Ñ¡δ⌐
  157.             3 - ºÑ½Ñ¡«-ú«½πí«⌐      11 - ßóÑΓ½«ºÑ½Ñ¡«-ú«½πí«⌐
  158.             4 - ¬αáß¡δ⌐             12 - ßóÑΓ½«¬αáß¡δ⌐
  159.             5 - »πα»πα¡«-¬αáß¡δ⌐    13 - ßóÑΓ½«»πα»πα¡«-¬αáß¡δ⌐
  160.             6 - ¬«α¿τ¡Ñóδ⌐          14 - ªÑ½Γδ⌐
  161.             7 - íѽδ⌐               15 - ¿¡ΓÑ¡ß¿ó¡« íѽδ⌐
  162.  
  163.                æ¿¼ó«½δ ¼«úπΓ ¼¿úáΓ∞ ¡á φ¬αá¡Ñ, ñ½∩ φΓ«ú« ¡Ñ«íσ«- 
  164.             ñ¿¼« πßΓá¡«ó¿Γ∞ »áαá¼ÑΓα «ß¡«ó¡«ú« µóÑΓá πóѽ¿τÑ¡¡δ¼ 
  165.             ¡á 16. ìá»α¿¼Ñα, Ñß½¿ πßΓá¡«ó¿¼  foreground = 22, Γ«
  166.             »«½πτ¿¼ ¼¿úáεΘ¿Ñ ¬«α¿τ¡ÑóδÑ ß¿¼ó«½δ  (22 = 6 + 16).
  167.  
  168.                é ß½πτáÑ ¼«¡«σα«¼¡δσ áñá»ΓÑα«ó,  ¬«Γ«αδÑ  ¡Ñ  ñáεΓ 
  169.             µóÑΓ¡«ú«  ¿º«íαáªÑ¡¿∩,  ß««ΓóÑΓßΓóπεΘ¿Ñ  º¡áτÑ¡¿∩ ñ½∩ 
  170.             πßΓᡫ󬿠«ß¡«ó¡«ú« µóÑΓá ¿¡ΓÑα»αÑΓ¿απεΓß∩  ß½ÑñπεΦ¿¼ 
  171.             «íαẫ¼: 
  172.  
  173.             0 -     τÑα¡δ⌐
  174.             1 -     »«ñτÑનóá¡¿Ñ
  175.             2-7 -   íѽδ⌐
  176.             8 -     τÑα¡δ⌐
  177.             9 -     ¿¡ΓÑ¡ß¿ó¡«Ñ »«ñτÑનóá¡¿Ñ
  178.            10-15 -  ¿¡ΓÑ¡ß¿ó¡δ⌐
  179.            16 -     τÑα¡δ⌐
  180.            17 -     »«ñτÑનóá¡¿Ñ τÑα¡δ¼ µóÑΓ«¼
  181.            18-23 -  ¼¿úá¡¿Ñ
  182.            24 -     τÑα¡δ⌐
  183.            25 -     óδß«¬á∩ ¿¡ΓÑ¡ß¿ó¡«ßΓ∞ »«ñτÑનóá¡¿∩, ¼¿úá¡¿Ñ
  184.            26-31 -  óδß«¬á∩ ¿¡ΓÑ¡ß¿ó¡«ßΓ∞, ¼¿úá¡¿Ñ
  185.  
  186.                ç¡áτÑ¡¿∩ Σ«¡«ó«ú« µóÑΓá «Γ 0 ñ« 6 »α¿ ¼«¡«σα«¼¡«¼ 
  187.             áñá»ΓÑαÑ ñáεΓ τÑα¡δ⌐ Σ«¡, 7 - íѽδ⌐.
  188.                ôß«óÑαΦÑ¡ßΓó«óá¡¡δÑ  úαáΣ¿τÑ߬¿Ñ  áñá»ΓÑαδ (EGA) ¿ 
  189.             é¿ñÑ«-úαáΣ¿τÑ߬¿Ñ áñóá»ΓÑαδ (VGA) ß πß«óÑαΦÑ¡ßΓó«óá¡-
  190.             ¡δ¼¿ ¼«¡¿Γ«αἿ »«ºó«½∩εΓ ¿ß»«½∞º«óáΓ∞ 16  µóÑΓ«ó  ¿º 
  191.             ¡áí«αá ó 64 µóÑΓá (ß¼. PALETTE).  
  192.  
  193. Äúαá¡¿τÑ¡¿∩    Å«úαá¡¿τ¡δ⌐ »áαá¼ÑΓα ¡Ñ ñáÑΓ φΣΣѬΓá ó ß½πτáÑ  EGA 
  194.             ¿½¿ VGA ß πß«óÑαΦÑ¡ßΓó«óá¡¡δ¼ ¼«¡¿Γ«α«¼.
  195. 
  196. Åα¿¼Ñα      'äá¡¡á∩ »αúαá¼¼á ñѼ«¡ßΓα¿απÑΓ «»ÑαáΓ«α COLOR  ¬á¬  ó
  197.             'ΓѬßΓ«ó«¼, Γᬠ¿ ó úαáΣ¿τÑ߬«¼ αѪ¿¼Ñ.
  198.  
  199.                     '»«¬áºáΓ∞ ¡á φ¬αá¡Ñ Γáí½¿µπ áΓα¿íπΓ«ó
  200.             FOR Back% = 0 to 7
  201.                FOR Fore% = 0 to 15
  202.                     COLOR Fore%, Back%
  203.                   PRINT USING " ### ";Back%*16+Fore%;
  204.                NEXT Fore%
  205.                   PRINT
  206.             NEXT Back%
  207.  
  208.                   PRINT
  209.  
  210.             FOR Back% = 0 to 7      '»«¬áºáΓ∞ ¡á φ¬αá¡Ñ Γáí½¿µπ
  211.                                     'óßÑσ áΓα¿íπΓ«ó c ¼¿ú᡿Ѽ
  212.                FOR Fore% = 16 TO 31 
  213.                     COLOR Fore%, Back%   'πßΓá¡«ó¿Γ∞ µóÑΓ φ¬αá¡á
  214.                   PRINT USING " ### ";Back%*16+Fore%-16;
  215.                NEXT Fore%
  216.                   PRINT
  217.             NEXT Back%
  218.  
  219.             END
  220. 
  221.                          Ä»ÑαáΓ«α  COM(n)
  222. -----------------------------------------------------------------
  223.  
  224. ìạáτÑ¡¿Ñ  Ä»ÑαáΓ«α   COM(n)   π»αáó½∩ÑΓ  ßαáíáΓδó᡿Ѽ  ½«óπΦ¬¿ 
  225.             ßÑα¿⌐¡δσ »«αΓ«ó.  
  226.  
  227. æ¿¡Γá¬ß¿ß   COM(n){ON/OFF/STOP}
  228.  
  229. 諼¼Ñ¡Γáα¿⌐      n - ÑßΓ∞ ¡«¼Ñα ¬«¼¼π¡¿¬áµ¿«¡¡«ú«  áñá»ΓÑαá,  úñÑ 
  230.             »α¿¼Ñ¡∩ÑΓß∩ ½«óπΦ¬á (1 ¿½¿  2).  Ä»ÑαáΓ«α  COM(n)  ON 
  231.             »«ºó«½∩ÑΓ  »α¿¼Ñ¡∩Γ∞  ½«óπΦ¬π  »α¿  »«¼«Θ¿ »α«úαá¼¼δ, 
  232.             «»¿ßá¡¡«⌐ ó «»ÑαáΓ«αÑ ON COM(n).  Å«ß½Ñ COM(n)  ON  , 
  233.             Æπαí«  üÑ⌐ß¿¬  »α«óÑα∩ÑΓ óδ»«½¡Ñ¡¿Ñ ¬áªñ«ú« «»ÑαáΓ«αá 
  234.             ñ½∩  óδ∩ß¡Ñ¡¿∩  »«ßΓπ»½Ñ¡¿∩   º¡á¬«ó   ¡á   π¬áºá¡¡δ⌐ 
  235.             ßÑα¿⌐¡δ⌐ »«αΓ àß½¿ óδ∩ß¡∩ÑΓß∩, τΓ« ΓᬫѠßαáíáΓδóá¡¿Ñ 
  236.             »α«¿º«Φ½«,  «¡  óδºδóáÑΓ  «»¿ßá¡¡πε  ó  «»ÑαáΓ«αÑ  ON 
  237.             COM(n) »«ñ»α«úαá¼¼π.  
  238.                àß½¿ COM(n) ¡áσ«ñ¿Γß∩ ó OFF, á¬Γ¿ó¡«ßΓ∞ ó ßÑα¿⌐¡«¼ 
  239.             »«αΓÑ  ¿ú¡«α¿απÑΓß∩.  ÅαÑαδóá¡¿Ñ  ßó∩º¿  »αѬαáΘáÑΓß∩ 
  240.             »«ß½Ñ «»ÑαáΓ«αá COM(n) STOP; «ñ¡á¬«, ½εíá∩ á¬Γ¿ó¡«ßΓ∞ 
  241.             ºá»«¼¿¡áÑΓß∩, ó ß½πτáÑ óδ»«½¡Ñ¡¿∩ «»ÑαáΓ«αá COM(n) ON 
  242.             »α«¿ßσ«ñ¿Γ   ¡Ñºá¼Ññ½¿Γѽ∞¡«Ñ  ßαáíáΓδóá¡¿Ñ  ½«óπΦ¬¿.  
  243.             ä½∩ πóѽ¿τÑ¡¿∩  ¿½¿  π¼Ñ¡∞ΦÑ¡¿∩  αẼÑαá  íπΣÑαá  COM 
  244.             ¿ß»«½∞ºπ⌐ΓÑ ¼ÑΓá«»ÑαáΓ«α $COM .  
  245.  
  246. æ¼.ΓᬪѠ   ON COM(n)
  247.  
  248. Åα¿¼Ñα
  249.             'äѼ«¡ßΓα¿απÑΓß∩ «»ÑαáΓ«α  COM(n). Åα¿¼Ñτá¡¿Ñ.
  250.             'äá¡¡á∩ »α«úαἼᠡ¿τÑú« ¡Ñ »«¬áªÑΓ, Ñß½¿ óáΦ
  251.             'port COM1  ¡Ñ »«½πτ¿Γ óó«ñá
  252.             'πßΓá¡«ó¿ΓÑ »α«úαá¼¼π ñ½∩ «íαáí«Γ¬¿ óó«ñá COM ON COM(1)
  253.                    GOSUB GetCominput
  254.             '¡áº¡áτ¿Γ∞  ¼áßß¿ó ó 5¬ ñ½∩ ß«σαá¡Ñ¡¿∩ óó«ñá 
  255.                    DIM ComPortinput (5 * 1024)
  256.             '¡áº¡áτ¿Γ∞   π¬áºáΓѽ∞   (»«¿¡ΓÑα)  ó  ß½ÑñπεΘÑÑ  ñ«ßΓπ»¡«Ñ
  257.              »α«ßΓαá¡ßΓó« íπΣÑαá
  258.                    HeadPtr%=0
  259.             'ó¬½ετ¿Γ∞ ó¬½ετáΓѽ∞  COM
  260.                    COM(1) ON
  261.             'πßΓá¡«ó¿Γ∞ íπΣÑα óó«ñá ó 1è
  262.                    $COM1 1024
  263.             '«Γ¬αδΓ∞ »ÑαѼѡ¡πε Σá⌐½á COM1
  264.                    OPEN "com1" AS # 1
  265.              PRINT "Press any key to terminate the program..."
  266.             '»«¬á ¡Ñ ¡áªáΓá ¬½áó¿Φá
  267.                      WHILE NOT INSTANT
  268.             'Ñß½¿ íπΣÑα ¡Ñ »πßΓ«⌐
  269.                    IF TailPtr% <> HeatPtr% THEN
  270.             '»«¬áºáΓ∞ óó«ñ.
  271.             
  272.             PRINT "COM Port input: ";ComPortInput (TailPtr%)
  273.             '»ÑαÑ⌐Γ¿ ¬ ß½ÑñπεΘÑ⌐ ∩τÑ⌐¬Ñ íπΣÑαá
  274.                   TailPtr% = TailPtr% + 1
  275.              END IF
  276.              LOCATE 2,1
  277.              PRINT TIME$
  278.             WEND
  279.           END       '¬«¡Ñµ »α«úαá¼¼δ
  280.              
  281.                 GetComInput:  '«íαáí«ΓáΓ∞ »αÑαδóá¡¿Ñ »«αΓá  COM
  282.             'ßτ¿ΓáΓ∞ óó«ñ ß íπΣÑαá »«αΓá  COM
  283.                 INPUT# 1,ComPortInput (HeadPtr%)
  284.             'π¬áºáΓ∞ ß½ÑñπεΘÑÑ »α«ßΓαá¡ßΓó« íπΣÑαá
  285.                 HeadPtr% = HeadPtr% + 1
  286.             RETURN
  287.                   END of input    '¬«¡Ñµ óó«ñá »«αΓá  COM
  288.                 PRINT "Reached the end of input..."
  289.           END       'ºá¬«¡τ¿Γ∞ »α«úαá¼¼π
  290. 
  291.                          Σπ¡¬µ¿∩ COMMAND$  
  292. -----------------------------------------------------------------
  293. ìạáτÑ¡¿Ñ  Σπ¡¬µ¿∩ COMMAND$ ó«ºóαáΘáÑΓ ¬«¼á¡ñ¡πε ßΓ᫬π, ¿ß»«½∞- 
  294.             ºπѼπε ñ½∩ ºá»π߬ᠻαúαá¼¼δ ß DOS.
  295.  
  296. æ¿¡Γá¬ß¿ß   s$ = COMMAND$
  297.  
  298. 諼¼Ñ¡Γáα¿⌐    Σπ¡¬µ¿∩ COMMAND$ ó«ºóαáΘáÑΓ óßÑ,  τΓ« í佫 óóÑñÑ¡«
  299.             ¡á »«ñ߬ẬѠDOS ó »α«µÑßßÑ ó맮óá »αúαá¼¼δ,  ºá  ¿ß-
  300.             ¬½ετÑ¡¿Ñ¼  ßἫú«  ¿¼Ñ¡¿ »α«úαá¼¼δ (¿¡«úñá φëàΓѬßΓ 
  301.             ¡áºδóáεΓ "ΓαÑ⌐½Ñα«¼" <"trailer">).  
  302.                êß»«½∞ºπ⌐ΓÑ  Σπ¡¬µ¿ε COMMAND$ ñ½∩ ßí«αá áαúπ¼Ñ¡Γ«ó 
  303.             óδ»«½¡Ñ¡¿∩ »α«úαá¼¼δ Γᬿσ,  ¬á¬ ¿¼Ñ¡á Σá⌐½«ó  ¿  Σá-
  304.             ¬π½∞ΓáΓ¿ó¡δÑ  (»«ñúαπªáѼδÑ)  »α«úαá¼¼δ.   ìαá»α¿¼Ñα, 
  305.             αáßß¼«Γα¿¼ óóÑñÑ¡¡πε ó «ΓóÑΓ ¡á »«ñ߬Ậπ  DOS  Γá¬πε 
  306.             ¬«¼á¡ñπ: 
  307.  
  308.                FASTSORT cust.dta cust.new 
  309.  
  310.             úñÑ  FASTSORT »αÑñßΓáó½∩ÑΓ ß«í«⌐ »αúαá¼¼¡δ⌐ Σá⌐½ .EXE 
  311.             Γ¿»á,  ß«ºñá¡¡δ⌐ ßαÑñßΓóἿ ÆôÉüÄ üàëæêèá.  è«úñá π»- 
  312.             αáó½Ñ¡¿Ñ  íπñÑΓ »ÑαÑñá¡« »α«úαἼѠFASTSORT,  Γ« Σπ¡-
  313.             ¬µ¿∩ COMMAND$ íπñÑΓ πñÑনóáΓ∞ óßÑ τΓ«  í佫  óóÑñÑ¡« 
  314.             »« »«ñ߬ẬѠDOS »«ß½Ñ ßἫú« ¿¼Ñ¡¿ »α«úαá¼¼δ,  ó ¡á-
  315.             ΦѼ ß½πτáÑ φΓ« ßΓ᫬á: "cust.dta cust.new". Ä»αÑñѽÑ-
  316.             ¡¿Ñ FASTSORT αÑΦáÑΓ,  τΓ« ñѽáΓ∞ ß φΓ«⌐ ßΓ᫬«⌐ (ó«º- 
  317.             ¼«ª¡«  Σπ¡¬µ¿∩  COMMAND$ íπñÑΓ »αÑαóá¡á ó Σá⌐½Ñ,  ¿¼∩ 
  318.             ¬«Γ«α«ú« ßΓ«¿Γ »Ñαóδ¼, ¿ ó Σá⌐½Ñ,  ¿¼∩ ¬«Γ«α«ú« ßΓ«¿Γ 
  319.             óΓ«αδ¼; ¿ ß«ñÑন¼«Ñ »Ñαó«ú« Σá⌐½á íπñÑΓ ó «Γß«αΓ¿α«-
  320.             óá¡¡«¼ ó¿ñÑ »ÑαÑñá¡« óΓ«α«¼π Σá⌐½π).  
  321.                ä½∩ »α«óÑન »α¿ »«¼«Θ¿ ÆôÉüÄ üàëæêèá <from within 
  322.             TURBO BASIC> »αáó¿½∞¡«ßΓ¿ αáí«Γδ »α«úαá¼¼δ <to test a 
  323.             program>, ó ¬«Γ«α«⌐ »α¿¼Ñ¡Ñ¡á Σπ¡¬µ¿∩ COMMAND$, ß½Ñ-
  324.             ñπÑΓ ¿ß»«½∞º«óáΓ∞ óáα¿á¡Γ <option> ßΓ᫬¿ Åáαá¼ÑΓαá 
  325.             ¼Ñ¡ε éáα¿á¡Γδ <Options> ñ½∩ πßΓᡫ󬿠ßΓ᫬¿ ó«ºóαá-
  326.             ΘáѼ«⌐ Σπ¡¬µ¿Ñ⌐ COMMAND$.
  327.  
  328. Äúαá¡¿τÑ¡¿∩    îá¬ß¿¼á½∞¡á∩  ñ½¿¡á ßΓ᫬¿ ¬«¼á¡ñ DOS ß«ßΓáó½∩ÑΓ 
  329.             127 ß¿¼ó«½«ó.
  330.  
  331. Åα¿¼Ñα        'äá¡¡á∩ »α«úαá¼¼á ñѼ«¡ßΓα¿απÑΓ Σπ¡¬µ¿ε COMMAND$.
  332.  
  333.   PRINT "The command line parameteres passed to this program are"
  334.               PRINT COMMAND$
  335.  
  336.                æ¬«¼»¿½¿απ⌐ΓÑ φΓπ »α«úαá¼¼π ó »á¼∩Γ∞ ¿ ñóáªñδ »α«- 
  337.             ú«¡¿ΓÑ ÑÑ,  ¼Ñ¡∩∩ ¬áªñδ⌐ αẠßΓáΓ∞ε »áαá¼ÑΓα«ó ó ¼Ñ¡ε 
  338.             Options.  
  339. 
  340.                          Ä»ÑαáΓ«α COMMON
  341. -----------------------------------------------------------------
  342. ìạáτÑ¡¿Ñ  Ä»ÑαáΓ«α COMMON «í∩ó½∩ÑΓ «ñ¡π ¿½¿ ¡Ñ߬«½∞¬« »ÑαѼѡ-
  343.             ¡δσ, ¬«Γ«αδÑ ñ«½ª¡δ »ÑαÑ⌐Γ¿ ó µÑ»«τ¡πε »α«úαá¼¼π.
  344.  
  345. æ¿¡Γá¬ß¿ß   COMMON variable [,variable]...
  346.  
  347. 諼¼Ñ¡Γáα¿⌐    variable φΓ«  »ÑαѼѡ¡á∩ ¼áßß¿óá ¿½¿ ß¬á½∩α¡á∩ »Ñ-
  348.             αÑ¡¼Ñ¡¡á∩,  ¬«Γ«αá∩ ñ«½ª¡á  íδΓ∞  ñ«ßΓπ»¡á  ß½ÑñπεΘÑ⌐ 
  349.             ß«Ññ¿¡∩Ѽ«⌐  ó  µÑ»«τ¬π <CHAINed> »α«úαá¼¼Ñ.  îáßß¿óδ 
  350.             «»¿ßδóáεΓß∩ ó¬½ετÑ¡¿Ñ¼ »áαá¼ÑΓα«ó αẼÑαá  ó  ß¬«í¬áσ 
  351.             »«ß½Ñ ¿¼Ñ¡¿ »ÑαѼѡ¡«⌐ ¼áßß¿óá.  
  352.                Ä»ÑαáΓ«αδ  COMMON  ¼«úπΓ  »«∩ó½∩Γ∞ß∩ ó ½εí«⌐ τáßΓ¿ 
  353.             »α«úαá¼¼δ, ¿σ ¼«ªÑΓ íδΓ∞ ¡Ñ߬«½∞¬«,  á ¬«¡¬αÑΓ¡á∩ »Ñ- 
  354.             αѼѡ¡á∩ ¼«ªÑΓ »«∩ó¿Γ∞ß∩ Γ«½∞¬« «ñ¿¡ αáº.  
  355.                é »α«úαá¼¼Ñ,  ¬«Γ«αá∩ ß«Ññ¿¡∩ÑΓß∩ ó µÑ»«τ¬π ñ«½ªÑ¡ 
  356.             »«∩ó¿Γ∞ß∩ ß««ΓóÑΓßΓóπεΘ¿⌐ «»ÑαáΓ«α COMMON.  ê¼Ñ¡á »Ñ-
  357.             αѼѡ¡δσ,  ¿ß»«½∞ºπѼδσ ó «»ÑαáΓ«αÑ COMMON,  ¡Ñ ¿¼ÑεΓ 
  358.             º¡áτÑ¡¿∩  -  óáª¡δ  ¿σ τ¿ß½« ¿ Γ¿».  àß½¿ »ÑαѼѡ¡á∩, 
  359.             «íΩ∩ó½Ñ¡¡á∩ «íΘÑ⌐ ó óδºδóáεΘÑ⌐ »α«úαá¼¼Ñ, ¡Ñ ß««ΓóÑΓ-
  360.             ßΓóπÑΓ Γ¿»π ¿ ¬«½¿τÑßΓóπ »ÑαѼѡ¡δσ, «í∩ó½Ñ¡¡δσ «íΘ¿-
  361.             ¼¿ ó »α¿¡¿¼áεΘÑ⌐  »α«úαá¼¼Ñ,  -  úÑ¡Ñα¿απÑΓß∩  «Φ¿í¬á 
  362.             óδ»«½¡Ñ¡¡¿∩.
  363.  
  364. Éẽ¿τ¿∩       ÆôÉüÄ üàëæêè ¡Ñ »«ññÑনóáÑΓ »áαá¼ÑΓα CHAIN ALL, 
  365.             «íÑß»Ñτ¿óáѼδ⌐ ê¡ΓÑα»αÑΓáΓ«α«¼ üàëæêè. éá¼ ¡Ñ«íσ«ñ¿¼« 
  366.             ó ∩ó¡«¼ ó¿ñÑ «»αÑñѽ¿Γ∞ ¬áªñπε «íΘπε »ÑαѼѡ¡πε ó µÑ-
  367.             »«τ¡«⌐ »α«úαá¼¼Ñ.
  368.                Åα¿ «»¿ßá¡¿¿ ¼áßß¿óᠬᬠ«íΘÑ⌐ »ÑαѼѡ¡«⌐ ó ÆôÅÉüÄ 
  369.             üôëæêèÑ óδ ñ«½ª¡δ «»¿ßáΓ∞ »áαá¼ÑΓα«δ αẼÑαá ¼áßß¿óá.
  370.                ê¡ΓÑα»ÑαáΓ«α üàëæêè ¡Ñ Γα«ÑíπÑΓ ß««ΓóÑΓßΓó¿∩ 
  371.             ß««ΓóÑΓßΓó¿∩ «»ÑαáΓ«α«ó COMMON, »«Γ«¼π τΓ« COMMON 
  372.             Γα«ÑíπÑΓß∩ Γ«½∞¬« Γ«½∞¬« «»ÑαáΓ«απ CHAIN "¿º", á  
  373.             CHAIN "ó" φΓ«ú« ¡Ñ ΓαÑíπÑΓ. ÆôÉüÄ üàëæêè, ¡á«í«α«Γ, 
  374.             ΓαÑíπÑΓ, τΓ«íδ »ÑαѼѡ¡δÑ ó ¬áªñ«¼ «íΘѼ «»ÑαáΓ«αÑ 
  375.             í뫨 »αáó¿½∞¡« αáß»«½«ªÑ¡δ (ó «ñ¿¡á¬«ó«¼ »«α∩ñ¬Ñ). 
  376.             ê¡áτÑ ú«ó«α∩,  ¿¼Ñ¡á »ÑαѼѡ¡δσ ó «ß¡«ó¡«⌐ ¿ »α¿ß«Ñ-
  377.             ñ¿¡∩Ѽ«⌐ (µÑ»«τ¡«⌐) »α«úαá¼¼áσ ¼«úπΓ íδΓ∞ αáº¡δ¼¿, ¡« 
  378.             Γ¿»δ »ÑαѼѡ¡δσ ñ«½ª¡δ ß«ó»áñáΓ∞. ì¿ªÑ »α¿óÑñÑ¡ »α¿-
  379.             ¼Ñα »αáó¿½∞¡«ú« «»ÑαáΓ«αá COMMON.
  380.  
  381.                'Äß¡«ó¡á∩ »α«úαá¼¼á
  382.  
  383.             COMMON I%, Array(1), J$
  384.  
  385.                'Åα¿ß«Ññ¿¡∩Ѽá∩ (µπ»«τ¡á∩) »α«úαá¼¼á
  386.  
  387.             COMMON Int%, RealArray(1), DblPrt$
  388.  
  389. Äúαá¡¿τÑ¡¿∩    ÆôÉüÄ üàëæêè ¡Ñ »«ññÑনóáÑΓ αѪ¿¼ ºá¼Ñ¡δ  
  390.             CHAIN ALL COMMON ê¡ΓÑα»αÑΓáΓ«αá üàëæêè.
  391. 
  392. Åα¿¼Ñα      'äá¡¡á∩ »αúαá¼¼á ñѼ«¡ßΓα¿απÑΓ «»ÑαáΓ«α COMMON
  393.             'ñ½∩ ÑÑ óδ»«½¡Ñ¡¿∩ ¡Ñ«íσ«ñ¿¼«:
  394.             '1) ß¬«¼»¿½¿α«óáΓ∞ »Ñαóπε »α«úαá¼¼π ó Σá⌐½  .EXE
  395.             '2) ß¬«¼»¿½¿α«óáΓ∞ óΓ«απε »α«úαá¼¼π ó Σá⌐½  .TBC
  396.             '3) óδ»«½¡¿Γ∞ »Ñαóπε »α«úαá¼¼π ¡á »«ñ߬ẬѠDOS
  397.             
  398.             'Åα«úαá¼¼á MASTER. æ¬«¼»Ñ½¿απ⌐ΓÑ ÑÑ ó Σá⌐½ .EXE
  399.             
  400.                DIM OldArray$(1) '«íΩ∩ó½Ñ¡ ¼áß߿󠿺 ñóπσ ßΓ᫬
  401.                 
  402.                 '»α¿ßó«¿Γ∞ º¡áτÑ¡¿∩ ßΓα«¬á¼ ¼áßß¿óá OldArray$
  403.                    OldArray$(0) = "φΓ« »Ñαóá∩ ßΓα«¬á ¼áßß¿óá"
  404.                    OldArray$(1) = "φΓ« óΓ«αá∩ ßΓα«¬á ¼áßß¿óá"
  405.                           
  406.             '»α¿ßó«¿Γ∞ º¡áτÑ¡¿∩ ñαπú¿¼ »ÑαѼѡ¡δ¼
  407.             OldInteger% = 12345
  408.             OldLongInt& = 123450000
  409.             OldSinglePre! = 12345.54321
  410.             OldDoublePre# = 1.0E+300
  411.             
  412.  
  413.             'Ä»¿ßáΓ∞ »ÑαѼѡ¡δÑ «íΘ¿Ñ ñ½∩ ú½áó¡«⌐ ¿ 
  414.             '»α¿ß«Ññ¿¡∩Ѽ«⌐ »α«úαá¼¼
  415.              COMMON OldArray$(), OldInteger%, OldLongInt&,- 
  416.                     OldSinglePre!, OldDoublePre#
  417.  
  418.        CHAIN "SLAVE.TBS"  'ûÑ»«τ¬á ñ½∩ »α¿ß«Ññ¿¡Ñ¡¿∩ »α«úαá¼¼δ
  419.             END           '¬«¡Ñµ ú½áó¡«⌐ »α«úαá¼¼δ
  420.  
  421.             'Åα«úαá¼¼á SLAVE (»α¿ß«Ññ¿¡∩Ѽá∩). 
  422.             '欫¼»Ñ½¿απ⌐ΓÑ ÑÑ ó Σá⌐½ .TBC
  423.  
  424.              COMMON NewArray$(), NewInteger%, NewLongInt&,_ 
  425.                     NewSinglePre!, NewDoublePre#
  426.  
  427.                 PRINT  NewArray$(0) 
  428.                 PRINT  NewArray$(1) 
  429.                 PRINT  NewInteger%, NewLongInt&, NewSinglePre!,_ 
  430.                        NewDoublePre#
  431. 
  432.                            öπ¡¬µ¿∩ COS
  433. -----------------------------------------------------------------
  434. ìạáτÑ¡¿Ñ  öπ¡¬µ¿∩  COS  ó«ºóαáΘáÑΓ Γα¿ú«¡«¼ÑΓα¿τÑ߬¿⌐ ¬«ß¿¡πß.
  435.  
  436. æ¿¡Γá¬ß¿ß   y = COS (numeric expression)
  437.  
  438. 諼ѡΓáα¿⌐     numeric expression -  πú«½, óδαáªÑ¡¡δ⌐ ó αáñ¿á¡áσ. 
  439.  
  440.                ä½∩ Γ«ú«,  τΓ«íδ »ÑαÑóÑßΓ¿ αáñ¿á¡δ ó πú½δ, ¡Ñ«íσ«-
  441.             ñ¿¼«  »α«¿ºóÑßΓ¿  π¼¡«ªÑ¡¿Ñ  180/Å.  ùΓ«íδ  »ÑαÑóÑßΓ¿ 
  442.             úαáñπßδ  ó  αáñ¿á¡δ,  »α«¿ºóÑñ¿ΓÑ π¼¡«ªÑ¡¿Ñ ¡á Å/180.  
  443.             (æ¼. « αáñ¿á¡áσ ó «»¿ßá¡¿¿ Σπ¡¬µ¿¿ ATN).  
  444.                öπ¡¬µ¿∩   COS   ó«ºóαáΘáÑΓ   º¡áτÑ¡¿Ñ    πñó«Ñ¡¡«⌐ 
  445.             Γ«τ¡«ßΓ¿.  
  446.  
  447. æ¼. ΓᬪѠ  ATN   SIN   TAN
  448.                              
  449. Åα¿¼Ñα      'äá¡¡á∩ »α«úαá¼¼á ñѼ«¡ßΓα¿απÑΓ Σπ¡¬µ¿ε  COS
  450.             PI# = ATN(1) * 4
  451.             FOR I% = 0 TO 360 STEP 45
  452.               PRINT USING "The Cosine of ### degrees = ##;_
  453.                            I%,COS(PI#/180 * I%)
  454.             NEXT I%
  455.             END
  456. 
  457.                           öπ¡¬µ¿∩  CSNG
  458. -----------------------------------------------------------------
  459. ìạáτÑ¡¿Ñ  öπ¡¬µ¿∩  CSNG  »αÑ«íαáºπÑΓ  τ¿ß½Ñ¡¡«Ñ óδαáªÑ¡¿Ñ ó Ñú«
  460.             φ¬ó¿óá½Ñ¡Γ ß «ñ¿¡áα¡«⌐ Γ«τ¡«ßΓ∞ε.
  461.             
  462. æ¿¡Γá¬ß¿ß   Y = CSNG(numeric expression)
  463.  
  464. 諼¼Ñ¡Γáα¿⌐    öπ¡¬µ¿∩ CSNG  »αÑ«íαáºπÑΓ τ¿ß½Ñ¡¡πε »ÑαѼѡ¡πε ¿½¿ 
  465.             óδαáªÑ¡¿Ñ ó Σ«α¼π ß «ñ¿¡áα¡«⌐ Γ«τ¡«ßΓ∞ε  ß  »½áóáεΘÑ⌐ 
  466.             ºá»∩Γ«⌐   öπ¡¬µ¿∩   CSNG   «íδτ¡«   ¿ß»«½∞ºπÑΓß∩  ñ½∩ 
  467.             »α«Σ¿½á¬Γ¿¬¿    »α«¼ÑªπΓ«τ¡«ú«    »ÑαÑ»«½¡Ñ¡¿∩    »α¿ 
  468.             «íαáí«Γ¬Ñ µÑ½«τ¿ß½Ñ¡¡δσ «»Ñαá¡ñ.  
  469.  
  470. æ¼. ΓᬪѠ  CDBL    CINT   CLNG
  471.  
  472. Åα¿¼Ñα      PRINT CSNG(&HFFF),CSNG(13241.1324),CSNG(&HF000)
  473. 
  474.                          öπ¡¬µ¿∩  CSRLIN
  475. -----------------------------------------------------------------
  476. ìạáτÑ¡¿Ñ     öπ¡¬µ¿∩  CSRLIN  ó«ºóαáΘáÑΓ  ΓѬπΘÑÑ  óÑαΓ¿¬á½∞¡«Ñ 
  477.             »«½«ªÑ¡¿Ñ ¬παß«αá (¡«¼Ñα ßΓ᫬¿).  
  478.  
  479. æ¿¡Γá¬ß¿ß   Y = CRLIN
  480.  
  481. 諼¼Ñ¡Γáα¿⌐    öπ¡¬µ¿∩ CSRLIN ó«ºóαáΘáÑΓ µÑ½«Ñ τ¿ß½« «Γ 1 ñ« 255, 
  482.             »αÑñßΓáó½∩∩  ΓѬπΘÑÑ  óÑαΓ¿¬á½∞¡«Ñ  »«½«ªÑ¡¿Ñ  (¡«¼Ñα 
  483.             ßΓ᫬¿)  ¬παß«αá.   ä½∩  ßτ¿Γδóá¡¿∩   ú«α¿º«¡Γá½∞¡«ú« 
  484.             »«½«ªÑ¡¿∩ ¬παß«αá (¡«¼Ñα ¬«½«¡¬¿) ¿ß»«½∞ºπ⌐ΓÑ Σπ¡¬µ¿ε 
  485.             POS.  
  486.                Ä»ÑαáΓ«α LOCATE »ÑαѼÑΘáÑΓ ¬παß«α ó ß»Ñµ¿á½∞¡πε 
  487.             ßΓα«¬π ¿ ¬«½«¡¬π.  
  488.  
  489. æ¼. ΓᬪѠ  LOCATE   POS
  490.  
  491. Åα¿¼Ñα      Col = POS    'ºá»¿ßáΓ∞ ßΓ᫬π ¬παß«αá
  492.             Row = CRLIN  'ºá»¿ßáΓ∞ ¬«½«¡¬π ¬παß«αá
  493.             CLS
  494.             LOCATE Row,Col 'ó«ßßΓá¡«ó¿Γ∞ »«º¿µ¿ε ¬παß«αá.
  495. 
  496.                     öπ¡¬µ¿¿   CVI,CVL,CVS,CVD
  497. -----------------------------------------------------------------
  498. ìạáτÑ¡¿Ñ  öπ¡¬µ¿¿    CVI,CVL,CVS,CVD   »αÑ«íαáºπεΓ   ß¿¼ó«½∞¡δÑ 
  499.             ñá¡¡δÑ,   ßτ¿ΓδóáѼδÑ   ß   Σá⌐½«ó   ß   »α«¿ºó«½∞¡«⌐ 
  500.             «αúá¡¿ºáµ¿Ñ⌐, ó τ¿ß½Ñ¡¡δÑ ñá¡¡δÑ.  
  501.  
  502. æ¿¡Γá¬ß¿ß   Y% = CVI (2 - bite string)
  503.             Y% = CVL (4 - bite string)
  504.             Y% = CVS (4 - bite string)
  505.             Y% = CVD (8 - bite string)
  506.  
  507. 諼¼Ñ¡Γáα¿⌐    CVI  »αÑ«íαáºπÑΓ ßΓ᫬π ó 2 íá⌐Γá ó µÑ½«Ñ  τ¿ß½«.  
  508.                CVL  »αÑ«íαáºπÑΓ ßΓ᫬π ó 4 íá⌐Γá  ó ñ½¿¡¡«Ñ µÑ½«Ñ 
  509.                      τ¿ß½«.  
  510.                CVS  »αÑ«íαáºπÑΓ ßΓ᫬π ó 4  íá⌐Γá  ó  º¡áτÑ¡¿Ñ  ß 
  511.                     «ñ¿¡áα¡«⌐  Γ«τ¡«ßΓ∞ε.  
  512.                CVD  »αÑ«íαáºπÑΓ ßΓ᫬π ó 8  íá⌐Γ«ó  ó  º¡áτÑ¡¿Ñ ß 
  513.                      ñó«⌐¡«⌐ Γ«τ¡«ßΓ∞ε.  
  514.  
  515.             êº-ºá  ß»Ñµ¿Σ¿¬¿  αáí«Γδ  Æπαí«  üÑ⌐ß¿¬á  ß Σá⌐½á¼¿ ß 
  516.             »α«¿ºó«½∞¡«⌐ «αúá¡¿ºáµ¿Ñ⌐,  τ¿ß½Ñ¡¡δÑ º¡áτÑ¡¿∩ ñ«½ª¡δ 
  517.             Γαá¡ß½¿α«óáΓ∞ß∩  ó ß¿¼ó«½∞¡δÑ ñ« Γ«ú«,  ¬á¬ «¡¿ íπñπΓ 
  518.             ºá»¿ßá¡δ ¡á ñ¿ß¬Ñ,  á »α¿ ßτ¿Γδóá¡¿¿ Σá⌐½á «¡¿  íπñπΓ 
  519.             Γαá¡ß½¿α«óáΓ∞ß∩  «íαáΓ¡«  ó  τ¿ß½á.  ìÑ  »πΓá⌐ΓÑ  φΓ¿ 
  520.             Σπ¡¬µ¿¿ (¬«Γ«αδÑ »αÑñ¡áº¡áτÑ¡δ ßΓα«ú«  ñ½∩  «íαáí«Γ¬¿ 
  521.             Σá⌐½«ó  ß  »α«¿ºó«½∞¡«⌐ «αúá¡¿ºáµ¿Ñ⌐) ß Σπ¡¬µ¿Ñ⌐ VAL, 
  522.             ¬«Γ«αá∩ íÑαÑΓ ßΓ᫬π Γ¿»á "3.7" ¿  »αÑ«íαáºπÑΓ  ÑÑ  ó 
  523.             τ¿ß½Ñ¡¡δ⌐ ó¿ñ.  
  524.  
  525. æ¼. ΓᬪѠ  MKD$    MKI$   MKL$   MKS$
  526.  
  527. Åα¿¼Ñα      'äá¡¡á∩ »αúαá¼¼á ß«ºñáÑΓ Σá⌐½ ß »α«¿ºó«½∞¡«⌐ óδí«α¬«⌐ 
  528.             'ñá¡¡δσ ¿ ºá»¿ßδóáÑΓ ¡á ¡Ñú« «»αÑñѽѡ¡πε ¿¡Σ«α¼áµ¿ε.  
  529.             'çáΓѼ   «¡á   ßτ¿ΓδóáÑΓ   Γ«½∞¬«   τΓ«    ºá»¿ßá¡¡πε 
  530.             '¿¡Σ«α¼áµ¿ε,  »αÑ«íαáºπ∩  ÑÑ  ó  π»«ΓαÑí¿¼πε  Σ«α¼π ß 
  531.             '¿ß»«½∞º«ó᡿Ѽ »αÑñδñπΘ¿σ Σπ¡¬µ¿⌐.  
  532.  
  533.             '«Γ¬αδΓ∞ Σá⌐½ ß »α«¿ºó«½∞¡«⌐ óδí«α¬«⌐
  534.             OPEN "R",#1,"CVISLD.DATA",18
  535.             FIELD #1, 2 AS Integer$, 4 AS LongInt$,_
  536.                       4 AS SinglePre$, AS DoublePres
  537.             MaxInt% = 32767
  538.  
  539.         'ºá»¿ßáΓ∞ ñá¡¡δÑ ó Σá⌐½, »αÑ«íαẫóáΓ∞ ¿σ, »α¿ßó«¿Γ∞
  540.         'Ѽπ íπΣÑα ñ« ºá»¿ß¿ Ñú« ó Σá⌐½ ñá¡¡«ú«
  541.             FOR I% = 1 TO 5
  542.               LSET Integer$ = MKI$ (1%)
  543.               LSET LongInt$ = MKL$ [1% + CLNG (MaxInt%)]
  544.           LSET Singlepre$ = MKS$ [CSNG(1% * CSNG (MaxInt%))]
  545.               LSET Doublepre$ = MKD$ (MaxInt-1%)
  546.               PUT #1,I%
  547.             NEXT 1%
  548.             FOR I% = 1 TO 5   'ßτ¿ΓáΓ∞ ñá¡¡δÑ ß Σá⌐½á
  549.               GET #1,I%     '»«¬áºáΓ∞ ¿σ ¡á φ¬αá¡Ñ
  550.               PRINT CVI (Integer$), CVL (LongInt$),_
  551.                     CVS (Singlepre$), CVD (Doublepre$)
  552.             NEXT I%            
  553.             CLOSE #1   'ºá¬αδΓ∞ Σá⌐½            
  554.             END
  555. 
  556.                         öπ¡¬µ¿¿ CVMD, CVMS
  557. -----------------------------------------------------------------
  558. ìạáτÑ¡¿Ñ  öπ¡¬µ¿¿   CVMD   ¿   CVMS   »αÑ«íαáºπεΓ    ß¿¼ó«½∞¡δÑ 
  559.             »ÑαѼѡ¡δÑ,   ßτ¿ΓδóáѼδÑ  ß  Σá⌐½«ó  ß  »α«¿ºó«½∞¡«⌐ 
  560.             «αúá¡¿ºáµ¿Ñ⌐ ß Σ«α¼áΓá Micvosoft, ó τ¿ß½Ñ¡¡δ⌐ ó¿ñ.  
  561.  
  562. æ¿¡Γá¬ß¿ß   y! = CVMS (4 - byte string)
  563.             y# = CVMD (8 - byte string)
  564.  
  565. 諼¼Ñ¡Γáα¿⌐    CVMS (ßΓ᫬á ß «ñ¿¡áα¡«⌐ Γ«τ¡«ßΓ∞ε  ConVert Micro-
  566.             soft)  »αÑ«íαáºπÑΓ  ßΓ᫬π ó 4 íá⌐Γá,  »αÑñßΓáó½∩εΘπε 
  567.             º¡áτÑ¡¿Ñ ß «ñ¿¡áα¡«⌐ Γ«τ¡«ßΓ∞ε ó Σ«α¼áΓÑ Micvosoft, ó 
  568.             º¡áτÑ¡¿Ñ ß «ñ¿¡áα¡«⌐ Γ«τ¡«ßΓ∞ε ó Σ«α¼áΓÑ  IEEE  ÆôÉüÄ
  569.             üàëæêèá.  
  570.                CVMD (ßΓ᫬á ß πñó«Ñ¡¡«⌐ Γ«τ¡«ßΓ∞ε ConVert Micro-
  571.             soft) »αÑ«íαáºπÑΓ ßΓ᫬π ó 8 íá⌐Γ«ó,  »αÑñßΓáó½∩εΘπε 
  572.             º¡áτÑ¡¿Ñ ß πñó«Ñ¡¡«⌐ Γ«τ¡«ßΓ∞ε ó Σ«α¼áΓÑ Microsoft, ó 
  573.             º¡áτÑ¡¿Ñ  ß  πñó«Ñ¡¡«⌐ Γ«τ¡«ßΓ∞ε ó Σ«α¼áΓÑ IEEE ÆôÉüÄ 
  574.             üàëæêèá.   ¥Γ¿  Σπ¡¬µ¿¿  «íÑß»Ñτ¿óáεΓß∩  Γ«½∞¬«   ñ½∩ 
  575.             ß«ó¼ÑßΓ¿¼«ßΓ¿  ß ßπΘÑßΓóπεΘ¿¼¿ Σá⌐½á¼¿ ß »α«¿ºó«½∞¡«⌐ 
  576.             «αúá¡¿ºáµ¿Ñ⌐ ê¡ΓÑα»αÑΓáΓ«αá üàëæêè.  
  577.  
  578. Åα¿¼Ñα      '«Γ¬αδΓ∞ Σá⌐½ ß »α«¿ºó«½∞¡«⌐ óδí«α¬«⌐
  579.             OPEN "CVMD.DTA" AS #1 LEN = 12
  580.             FIELT #1, 4 AS Single$, 8 AS Double$
  581.  
  582.             FOR I = 1 TO 5   'ºá»¿ßáΓ∞ ¡Ñ¬«Γ«αδÑ ñá¡¡δÑ ó Σá⌐½
  583.               `»αÑ«íαẫóáΓ∞ ñá¡¡δÑ ¿ ¡áº¡áτ¿Γ∞ Σá⌐½ ñá¡¡δσ
  584.               LSET Single$ = MKMS$ (I)
  585.               LSET Double$ = MKMD$ (I^I)
  586.               PUT #1,I
  587.             NEXT I
  588.                    FOR I = 1 TO 5   'ßτ¿ΓáΓ∞ ñá¡¡δÑ Σá⌐½á
  589.               GET #1,I       '»«¬áºáΓ∞ ñá¡¡δÑ ¡á φ¬αá¡Ñ
  590.               PRINT CVMS (Single$), CVMD (Double$)
  591.             NEXT I
  592.             PRINT CVS (x$), CVMS (x$)
  593.             CLOSE #1         'ºá¬αδΓ∞ Σá⌐½
  594.             END
  595. 
  596.                           Ä»ÑαáΓ«α DATA
  597. -----------------------------------------------------------------   
  598. ìạáτÑ¡¿Ñ  Ä»ÑαáΓ«α DATA «íΩ∩ó½∩ÑΓ ¬«¡ßΓá¡Γδ ñ½∩ «»ÑαáΓ«α«ó 
  599.             READ.
  600.  
  601. æ¿¡Γá¬ß¿ß   DATA constant [,constant]...
  602.  
  603. 諼¼Ñ¡Γáα¿⌐    constant - φΓ« τ¿ß½Ñ¡¡á∩ ¿ ß¿¼ó«½∞¡á∩ »«ßΓ«∩¡¡á∩.  
  604.             ù¿ß½Ñ¡¡δÑ  ¬«¡ßΓá¡Γδ  ¼«úπΓ íδΓ∞ µÑ½δ¼¿ τ¿ß½á¼¿ ¿½¿ ß 
  605.             »½áóáεΘÑ⌐ ºá»∩Γ«⌐ ¿ ¼«úπΓ Σá¬π½∞ΓáΓ¿ó¡« íδΓ∞  óδαáªÑ- 
  606.             ¡δ  ó  ΦÑßΓ¡áñµáΓÑα¿τ¡δσ  ¿½¿ ó«ß∞¼Ñα¿τ¡δσ º¡áτÑ¡¿∩σ.  
  607.             æ¿¼ó«½∞¡δÑ ¬«¡ßΓá¡Γδ ¡Ñ íÑαπΓß∩ ó ¬áóδτ¬¿,  Ñß½¿  «¡¿ 
  608.             ¡Ñ  ß«ñÑαªáΓ «úαá¡τ¿ΓѽÑ⌐ (ºá»∩Γδσ ¿½¿ ñó«ÑΓ«τ¿⌐) ¿½¿ 
  609.             º¡áτ¿¼δσ »α«íѽ«ó, ¿ ¿σ ¼«ª¡« ½Ñú¬« ß»πΓáΓ∞ ß τ¿ß½Ñ¡- 
  610.             ¡δ¼¿ ¬«¡ßΓá¡ΓἿ. ìá»α¿¼Ñα: 
  611.             
  612.          DATA Taco,.79,Chicken Supreme,2.29,"Dr.Pepper,large",.89 
  613.  
  614.             Åα«úαἼᠼ«ªÑΓ ß«ñÑαªáΓ∞ ¼¡«ú« «»ÑαáΓ«α«ó DATA ¿ «¡¿ 
  615.             ¡Ñ ñ«½ª¡δ αáß»«½«úáΓ∞ß∩ ó  »«ß½Ññ«óáΓѽ∞¡δσ  ßΓ᫬áσ. 
  616.             ¬áªñá∩ ¼«ªÑΓ ó¬½ετáΓ∞ ßΓ«½∞¬« ¬«¡ßΓá¡Γ, ß¬«½∞¬« ¼«ªÑΓ 
  617.             »«¼ÑßΓ¿∞ß∩ ó ßΓ᫬Ñ.  
  618.                é« óαѼ∩ óδ»«½¡Ñ¡¿∩ »α«úαá¼¼δ «»ÑαáΓ«αδ  READ  «í- 
  619.             αáΘáεΓß∩  ¬  ¬«¡ßΓá¡Γá¼ DATA ß½Ñóá ¡á»αáó« ¿ ßóÑασπ ó 
  620.             ó¡¿º  ó  »«α∩ñ¬Ñ  »«∩ó½Ñ¡¿∩  ¿σ ó ¿ßσ«ñ¡«⌐ »α«úαá¼¼Ñ.  
  621.             ìá¿í«½ÑÑ τáßΓ«⌐ «Φ¿í¬«⌐, ßó∩ºá¡¡«⌐ ß «»ÑαáΓ«αἿ DATA 
  622.             ¿ READ ,  ∩ó½∩ÑΓß∩ óδσ«ñ ¿º ß¿¡σα«¡¿ºáΓ«αá ¿  »«»δΓ¬á 
  623.             ºáúαπº¿Γ∞  ß¿¼ó«½∞¡δÑ  ñá¡¡δÑ ó τ¿ß½Ñ¡¡πε »ÑαѼѡ¡πε, 
  624.             φΓ« úÑ¡Ñα¿απÑΓ ß¿¡Γá¬ß¿τÑ߬πε «Φ¿í¬π  («Φ¿í¬á  óδ»«½- 
  625.             ¡Ñ¡¿∩ 2).  è ß«ªá½Ñ¡¿ε, óá¼ ¡Ñ πñáßΓß∩ »ÑαÑóÑßΓ¿ τ¿ß- 
  626.             ½Ñ¡¡δÑ  ¬«¡ßΓá¡Γδ,  ºáúαπªáεΘ¿Ñ «Φ¿í¬π,  ó ß¿¼ó«½∞¡δÑ 
  627.             »ÑαѼѡ¡δÑ, ñáªÑ, Ñß½¿ φΓ« ¿ ¡Ñ Γ«, τΓ« óδ «ª¿ñ὿.  
  628.                è«¼á¡ñá  RESTORE  »«ºó«½¿Γ  óá¼  »«óΓ«α¡«  ßτ¿ΓáΓ∞ 
  629.             ¬«¡ßΓá¡Γδ ¿º »Ñαó«ú« «»ÑαáΓ«αá ¿½¿ ½εí«ú«  «»¿ßá¡¡«ú« 
  630.             «»ÑαáΓ«αá DATA .  
  631.                àß½¿  óδ  »«»δΓáÑΓÑß∞  ¿ß»«½∞º«óáΓ∞  READ  í«½∞ΦÑÑ 
  632.             ¬«½¿τÑßΓó« αáº, τѼ ¬«½¿τÑßΓó« ¬«¡ßΓá¡Γ, ß«ñÑαªáΘ¿σß∩ 
  633.             ó óáΦÑ⌐ »α«úαá¼¼Ñ,  »α«¿º«⌐ñÑΓ «Φ¿í¬á  óδ»«½¡Ñ¡¿∩  4, 
  634.             Out of data (ó¡Ñ ñá¡¡δσ).  
  635.  
  636. Äúαá¡¿τÑ¡¿∩    ìѽ∞º∩ ¿ß»«½∞º«óáΓ∞ º¡á¬¿,  »«ñτÑનóáεΘ¿Ñ  ¡Ñ»αÑ-    
  637.             αδó¡«ßΓ∞, ó «»ÑαáΓ«αáσ DATA. ìÑ ¿ß»«½∞ºπ⌐ΓÑ ºá»∩Γπε ó 
  638.             óÑασ¡Ñ⌐  τáßΓ¿   ßΓ᫬¿   (')   ñ½∩   ¬«¼¼Ñ¡Γ¿α«óá¡¿∩ 
  639.             «»ÑαáΓ«αá DATA, »«Γ«¼π τΓ« Æπαí« üÑ⌐ß¿¬ »«ñπ¼áÑΓ, τΓ« 
  640.             »«ß½Ññ¡∩∩  ßΓáΓ∞∩  ¿  óáΦ ¬«¼¼Ñ¡Γáα¿⌐ ∩ó½∩εΓß∩ τáßΓ∞ε 
  641.             «ñ¡«⌐, ñ½¿¡¡«⌐ ß¿¼ó«½∞¡«⌐ ¬«¡ßΓá¡Γδ.  
  642.               ìá»α¿¼Ñα: 
  643.  
  644.               DATA cats,dogs,tigs   '»α¿ó«ñ¿Γ ¡áºóá¡¿∩ ª¿ó«Γ¡δσ
  645.             ¿¡ΓÑα»α¿Γ¿απÑΓß∩  ¬á¬   ß«ñÑαªáΘá∩   Γα¿   ß¿¼ó«½∞¡δσ 
  646.             ¬«¡ßΓá¡Γδ:   "cats",   "dogs"   and  "pigs  '»α¿ó«ñ¿Γ 
  647.             ¡áºóá¡¿∩ ª¿ó«Γ¡δσ "; 
  648.  
  649.                éδ ¼«ªÑΓÑ,  «ñ¡á¬«, ß«óÑαΦÑ¡¡« íѺ«»áß¡« ¿ß»«½∞º«-
  650.             óáΓ∞ ñ½∩ φΓ«⌐ µÑ½¿: REM: 
  651.  
  652.                DATA  cats,dogs,pigs :REM list the animals
  653.             
  654. æ¼. ΓᬪѠ  READ    RESTORE
  655. 
  656. Åα¿¼Ñα      'äá¡¡á∩  »α«úαἼᠠñѼ«¡ßΓα¿απÑΓ  ¿ß»«½∞º«óá¡¿Ñ  
  657.             '«»ÑαáΓ«αá DATA.
  658.  
  659.             SUB Process Results (StudentName$, StudentAverage%)
  660.             LOCAL Total%, Value%, %
  661.             Total% = 0            
  662.             READ StudentName$
  663.             FOR I% = 1 TO 10
  664.             READ Value%
  665.             Total% = Total% + Value%
  666.             NEXT I%
  667.             StudentAverage% = Total%\10
  668.             END SUB
  669.             FOR Student% = 1 TO 3
  670.             CALL Process Results (Name$, Average%)
  671.             PRINT USING  "&,average is ###"; SName$, Average%
  672.             NEXT Student%
  673.             END   'ºá¬«¡τ¿Γ∞ »α«úαá¼¼π
  674.             DATA w. Perry,  78,65,35,79,86,93,79,85,99,96
  675.             DATA P. Watson, 98,94,70,88,99,100,75,96,100,95
  676.             DATA M. Ciccone, 65,59,75,82,56,79,82,76,69,89
  677. 
  678.                    æ¿ßΓѼ¡á∩ »ÑαѼѡ¡á∩  DATE$
  679. -----------------------------------------------------------------
  680. ìạáτÑ¡¿Ñ  DATE$  πßΓá¡áó½¿óáÑΓ ¿ «Γδ߬¿óáÑΓ ß¿ßΓѼ¡δÑ ñá¡¡δÑ
  681.  
  682. æ¿¡Γá¬ß¿ß   DATE$ = s$ (set date according to information in s$)
  683.                    `πßΓá¡«ó¿Γ∞ ñáΓπ ó ß««ΓóÑΓßΓó¿¿ ß ¿¡Σ«α¼áµ¿Ñ⌐
  684.  
  685.             s$ = DATE$ (s$ now contains date informetion)
  686.                        `ΓÑ»Ñα∞ ß«ñÑαª¿Γ ¿¡Σ«α¼áµ¿ε « ñáΓÑ
  687.  
  688. 諼¼Ñ¡Γáα¿⌐    ìạáτÑ¡¿Ñ  ßΓα«ú«  Σ«α¼áΓ¿α«óá¡¡«ú«   ß¿¼ó«½∞¡«ú« 
  689.             º¡áτÑ¡¿∩  ß¿ßΓѼ¡«⌐   »ÑαѼѡ¡«⌐   DATE$   ß¿¼ó«½∞¡«⌐ 
  690.             »ÑαѼѡ¡«⌐   ñѽáÑΓ   ß¿ßΓѼ¡πε  ñáΓπ  ñ«ßΓπ»¡«⌐  ñ½∩ 
  691.             «íαáí«Γ¬¿.  DATE$  ó«ºóαáΘáÑΓ  10-º¡á¬«óπε  ßΓ᫬π  ó 
  692.             ó¿ñÑ  mm-dd-yyyy,  úñÑ mm - »αÑñßΓáó½∩ÑΓ ¼Ñß∩µ,  dd - 
  693.             ñÑ¡∞, á yyyy - ú«ñ.  
  694.                ä½∩    ¿º¼Ñ¡Ñ¡¿∩   ñáΓδ,    óáΦá   ßΓα«¬á   ñ«½ª¡á 
  695.             Σ«α¼áΓ¿α«óáΓ∞ ñáΓπ «ñ¡¿¼ ¿º ß½ÑñπεΘ¿σ  ß»«ß«í«ó:  
  696.  
  697.                mm-dd-yy 
  698.                mm/dd/yy 
  699.                mm-dd-yyyy 
  700.                mm/dd/yyyy 
  701.  
  702.             ìá»α¿¼Ñα    DATE$ = "10-25-86"
  703.             πßΓá¡áó½¿óáÑΓ ß¿ßΓѼ¡πε ñáΓπ 05 «¬Γ∩íα∩ 1986 ú«ñá.
  704.  
  705. Äúαá¡¿τÑ¡¿∩    â«ñ,  ¡áº¡áτáѼδ⌐ ß¿ßΓѼ¡«⌐ »ÑαѼѡ¡«⌐ DATE$, ñ«½-
  706.             ªÑ¡ ¡áσ«ñ¿Γ∞ß∩ ó »α¿ñѽáσ ñ¿á»áº«¡á 1980 - 2099.  
  707.  
  708. æ¼. ΓᬪѠ  TIME$
  709.  
  710. Åα¿¼Ñα      `Å«¬áª¿ΓÑ ΓѬπΘπε ß¿ßΓѼÑπε ñáΓπ ¡á φ¬αá¡Ñ
  711.             PRINT "The current system date is" DATE$
  712.      INPUT  "Please  enter  then new date in then form MM-DD-YY"; 
  713.             NewDate$ DATE$ = NewDate$ PRINT "The system  date  is 
  714.             now set to" DATES 
  715.             END  `ºá¬«¡τ¿Γ∞ »α«úαá¼¼π
  716. 
  717.                           Ä»ÑαáΓ«α  DECR
  718. -----------------------------------------------------------------
  719. ìạáτÑ¡¿Ñ   Ä»ÑαáΓ«α   DECR   ñáÑΓ    «Γα¿µáΓѽ∞¡«Ñ   »α¿αáΘÑ¡¿Ñ 
  720.              »ÑαѼѡ¡«⌐ 
  721.  
  722. æ¿¡Γá¬ß¿ß   DECR  variable [,size]
  723.  
  724. 諼¼Ñ¡Γáα¿⌐    variable - φΓ« τ¿ß½Ñ¡¡á∩ »ÑαѼѡ¡á∩,  á size - φΓ« 
  725.             ¡Ñ«í∩ºáΓѽ∞¡«Ñ τ¿ß½«ó«Ñ óδαáªÑ¡¿Ñ,  ¬«Γ«α«Ñ π¬áºδóáÑΓ 
  726.             ¡á   º¡áτÑ¡¿Ñ,   ¬«Γ«α«Ñ   ñ«½ª¡«   íδΓ∞  óδτΓÑ¡«  ¿º 
  727.             variable.àß½¿ size «»π߬áÑΓß∩, ¿ß»«½∞ºπÑΓß∩ 1.  
  728.                DECR - πñ«í¡δ⌐  ß»«ß«í  «Γα¿µáΓѽ∞¡«ú«  »α¿αáΘÑ¡¿∩ 
  729.             »ÑαѼѡ¡«⌐.  ä½∩  »α¿αáΘÑ¡¿∩  »ÑαѼѡ¡«⌐  ¿ß»«½∞ºπ⌐ΓÑ 
  730.             «»ÑαáΓ«α INCR.  
  731.  
  732. æ¼. ΓᬪѠ  INCR
  733.  
  734. Åα¿¼Ñα      I% = 15    `¿¡¿µ¿á½¿º¿α«óáΓ∞ ßτÑΓτ¿¬ »ÑαѼѡ¡δσ
  735.             J% = 500
  736.             WHILE  I% > 0
  737.             PRINT  I%,J%    `»«¬áºáΓ∞ º¡áτÑ¡¿Ñ
  738.             DECR   I%   `π¼Ñ¡∞Φ¿Γ∞ º¡áτÑ¡¿Ñ ¡á «ñ¡π Ññ¿¡¿µπ
  739.             DECR   J%, 5    `π¼Ñ¡∞Φ¿Γ∞ º¡áτÑ¡¿Ñ ¡á  5
  740.             WEND
  741.             END         `ºá¬«¡τ¿Γ∞ »α«úαá¼¼π
  742. 
  743.                     Ä»ÑαáΓ«α   DEF FN/END DEF
  744. -----------------------------------------------------------------
  745. ìạáτÑ¡¿Ñ  DEF FN/END DEF  «»αÑñѽ∩ÑΓ Σπ¡¬µ¿ε.
  746.  
  747. æ¿¡Γá¬ß¿ß   êº «ñ¡«⌐ ßΓ᫬¿
  748.             DEF FNidentifier[(argument list)] = expression
  749.  
  750.             êº ¡Ñ߬«½∞¬¿σ ßΓ᫬
  751.             DEF FNidentifier [(argument list)]
  752.               [LOCAL variable list]
  753.               [STATIC variable list]
  754.               [SHARED variable list]
  755.                 .
  756.                 .
  757.                 .   statements
  758.                 .
  759.                 [EXIT DEF]
  760.                 [FNidentifier = expression]
  761.               END DEF
  762.  
  763. 諼¼Ñ¡Γáα¿⌐    identifier   ÑßΓ∞  π¡¿¬á½∞¡«Ñ ¿¼∩,  ¬«Γ«α«Ñ ñ«½ª¡« 
  764.             áßß«µ¿¿α«óáΓ∞ß∩ ß Σπ¡¬µ¿Ñ⌐,  ¿ ñ«½ª¡« ß««ΓóÑΓßΓó«óáΓ∞ 
  765.             πß½«ó¿∩¼  »α¿ßó«Ñ¡¿Ñ  ¿¼Ñ¡¿ ¼ÑΓ¬á¼ ¿ »ÑαѼѡ¡δ¼ (Γ.Ñ. 
  766.             íπ¬óᠺᠬ«Γ«α«⌐ ß½ÑñπÑΓ ½εí«Ñ ¬«½½¿τÑßΓó« íπ¬ó ¿/¿½¿ 
  767.             µ¿Σα).  argument list ÑßΓ∞ ¡Ñ«í∩ºáΓѽ∞¡á∩, «Γñѽѡ¡á∩ 
  768.             ºá»∩Γ묨  »«ß½Ññ«óáΓѽ∞¡«ßΓ∞  Σ«α¼á½∞¡δσ  »áαá¼ÑΓα«ó. 
  769.             Åáαá¼ÑΓαδ  ó  ß»¿ß¬Ñ  áαúπ¼Ñ¡Γ«ó  ß½πªáΓ  Γ«½∞¬«  ñ½∩ 
  770.             «»αÑñѽѡ¿∩ Σπ¡¬µ¿¿:  «¡¿ ¡Ñ ¿¼ÑεΓ ¡¿¬á¬«ú« «Γ¡«ΦÑ¡¿∩ 
  771.             ¬ ñαπú¿¼ »ÑαѼѡ¡δ¼ ó »α«úαἼѠߠΓᬿ¼ ªÑ ¡áºó᡿Ѽ.  
  772.                DEF  FN ¿ END DEF íÑαπΓ ó ß¬«í¬¿ ¿ »α¿ßóá¿óáεΓ ¿¼∩ 
  773.             úαπ»»Ñ    »«ñ»α«úαá¼¼¡δσ    «»ÑαáΓ«α«ó,    ¡áºδóáѼδσ 
  774.             Σπ¡¬µ¿Ñ⌐.  öπ¡¬µ¿¿  ¼«úπΓ íδΓ∞ Σá¬π½∞ΓáΓ¿ó¡« »ÑαÑñá¡δ 
  775.             «ñ¿¡  ¿½¿  í«½ÑÑ  áαúπ¼Ñ¡Γ«ó  »«  º¡áτÑ¡¿ε.   öπ¡¬µ¿¿ 
  776.             ó«ºóαáΘáεΓ   º¡áτÑ¡¿Ñ  (Γ¿»  ¬«Γ«α«ú«  ¬«¡Γα«½¿απÑΓß∩ 
  777.             ¿¼Ñ¡Ñ¼ Σπ¡¬µ¿¿,  ¬á¬ íπñΓ« φΓ« »ÑαѼѡ¡á∩) ¿ ¼«úπΓ »« 
  778.             φΓ«¼π  óδºδóáΓ∞ß∩ ¿º ½εí«ú« «»ÑαáΓ«αá, ¬«Γ«αδ⌐ »α¿¡¿-
  779.             ¼áÑΓ º¡áτÑ¡¿Ñ ß««ΓóÑΓßΓóπεΘÑú« Γ¿»á.
  780.  
  781.                       Ä»αÑñѽѡ¿Ñ Σπ¡¬µ¿¿ ¿ σ«ñ »α«úαá¼¼δ.
  782.                Å«½«ªÑ¡¿Ñ «»αÑñѽѡ¿⌐ Σπ¡¬µ¿¿ ¡Ñ¼áΓÑα¿á½∞¡«.  öπ¡-
  783.             ¬µ¿∩ ¼«ªÑΓ íδΓ∞ «»αÑñѽѡá ó 1 ßΓα«¬Ñ ¿½¿ 1000 ßΓα«¬Ñ 
  784.             »α«úαá¼¼δ íѺ πτÑΓá ¼ÑßΓá ÑÑ ¿ß»«½∞º«óá¡¿∩;  ¿ óá¼ ¡Ñ 
  785.             ¡áñ«  ¡á»αáó½∩Γ∞  σ«ñ »α«úαá¼¼δ τÑαѺ Σπ¡¬µ¿ε ¬á¬ Φáú 
  786.             ¿¡¿µ¿á½¿ºáµ¿¿  (¬á¬  φΓ«  ΓαÑíπÑΓß∩  ó   «ñ¡«ßΓα«τ¡δσ 
  787.             Σπ¡¬µ¿∩σ  ó ê¡ΓÑα»α¿ΓáΓ«αÑ üÑ⌐ß¿¬).  è«¼»¿½∩Γ«α ó¿ñ¿Γ 
  788.             óáΦ¿ «»αÑñѽѡ¿∩, úñÑ íδ «¡¿ ¡Ñ ¡áσ«ñ¿½¿ß∞.  éδ»«½¡Ñ-
  789.             ¡¿Ñ »α«úαá¼¼δ ΓᬪѠ¡Ñ ¼«ªÑΓ ß½πτá⌐¡« (¿ ó «Γ½¿τ¿Ñ «Γ 
  790.             »«ñ»α«úαá¼¼) "αáß»áñáΓ∞ß∩"  ¡á Σπ¡¬µ¿¿.  ùΓ« ¬áßáÑΓß∩ 
  791.             ¼áαΦαπΓá óδ»«½¡Ñ¡¿∩ »α«úαá¼¼δ,  «»αÑñѽѡ¿∩ Σπ¡¬µ¿⌐ ¿ 
  792.             »α«µÑñπα ∩ó½∩εΓß∩ ¡Ñ ó¿ñ¿¼δ¼¿.  
  793.  
  794.               ìá»α¿¼Ñα:
  795.  
  796.             t = FNPrintStuff
  797.             DEF fnprintStuff
  798.                 PRINT "Printed from within FNPrintStuff"
  799.             END DEF
  800.  
  801.                è«úñá  óδ»«½¡∩ÑΓß∩  φΓá τÑΓδαÑσßΓα«τ¡á∩ »α«úαá¼¼á, 
  802.             ß««íΘÑ¡¿Ñ »«∩ó½∩ÑΓß∩ Γ«½∞¬« «ñ¡áªñδ, Γ.¬.  PrintStuff 
  803.             óδºδóáÑΓß∩ ó »Ñαó«⌐ ßΓα«τ¬Ñ.  
  804.                Ä»αÑñѽѡ¿∩  Σπ¡¬µ¿¿  ß½ÑñπÑΓ  αáßß¼áΓα¿óáΓ∞   ¬á¬ 
  805.             ¿º«½¿α«óá¡¡δÑ «ßΓα«ó¬¿ ¬«ñá; ¡Ñ ºá»αδú¿óá⌐ΓÑ ¡á ¡¿σ ¿ 
  806.             ¡Ñ  óδ»αδú¿óáÑΓÑ  «íαáΓ¡« »α¿ »«¼«Θ¿ «»ÑαáΓ«α«ó GOTO, 
  807.             GOSUB ¿½¿ RETURN. é αἬáσ «»αÑñѽѡ¿⌐, «ñ¡á¬«, ΓᬿѠ
  808.             «»ÑαáΓ«αδ ñ«»πßΓ¿¼δ.  
  809.                çá¼ÑΓ∞ΓÑ,  τΓ« «»αÑñѽѡ¿∩ Σπ¡¬µ¿¿ ¿ »α«µÑñπαδ  ¡Ñ 
  810.             ¼«úπΓ  ó¬½áñδóáΓ∞ß∩  ñαπú ó ñαπúá,  Γ.Ñ.  ¡Ññ«»πßΓ¿¼« 
  811.   
  812.             «»αÑñѽ∩Γ∞ »α«µÑñπαπ ¿½¿ Σπ¡¬µ¿ε ó  αἬáσ  »α«µÑñπαδ 
  813.             ¿½¿  Σπ¡¬µ¿¿  (σ«Γ∩ «»αÑñѽѡ¿Ñ »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿ 
  814.             ¼«ªÑΓ ß«ñÑαªáΓ∞ ó맮óδ ñαπú¿σ »α«µÑñπα ¿½¿ Σπ¡¬µ¿⌐).  
  815.  
  816.                       ÄíΩ∩ó½Ñ¡¿Ñ ½«¬á½∞¡δσ »ÑαѼѡ¡δσ 
  817.                        (Γ«½∞¬« ¼¡«ú«ßΓα«τ¡δÑ Σπ¡¬µ¿¿).   
  818.                ä½∩   «íΩ∩ó½Ñ¡¿∩  ½«¬á½∞¡δσ  »ÑαѼѡ¡δσ  ó  αἬáσ 
  819.             Σπ¡¬µ¿¿  ¿ß»«½∞ºπ⌐ΓÑ  «»ÑαáΓ«α  LOKAL   »ÑαÑñ   ½εíδ¼ 
  820.             óδ»«½¡∩Ñ¼δ¼ «»ÑαáΓ«α«¼ ó ñÑΣ¿¡¿µ¿¿. 
  821.                ìá»α¿¼Ñα: 
  822.             
  823.                 LOCAL a%,b#,bigArray%()
  824.  
  825.             ß«ºñáÑΓ  Γα¿  ½«¬á½∞¡δÑ  »ÑαѼѡ¡δÑ:  a%  ¿ b# (µÑ½«Ñ 
  826.             τ¿ß½« ¿ τ¿ß½« ß ñó«⌐¡«⌐ Γ«τ¡«ßΓ∞ε  ß««ΓóÑΓßΓóÑ¡¡«)  ¿ 
  827.             µÑ½«τ¿ß½Ñ¡¡δ⌐  ¼áßß¿ó  bigArray.  îáßß¿ó  ñ«½ªÑ¡ íδΓ∞ 
  828.             ß««ΓóÑΓßΓóπεΘ¿σ αẼÑα«ó: 
  829.  
  830.             DIM DYNAMIC bigArray%(1000)
  831.  
  832.                     æΓáΓ¿τÑ߬¿Ñ ¿ αáºñѽѡ¡δÑ »ÑαѼѡ¡δÑ.
  833.                Å« π¼«½τá¡¿ε, »ÑαѼѡ¡δÑ, ¬«Γ«αδÑ »«∩ó½∩εΓß∩ ó αá-
  834.             ¼¬áσ «»αÑñѽѡ¿⌐ Σπ¡¬µ¿¿ ¿¼ÑεΓ áΓΓα¿íπΓ SHARED,  Γ.Ñ.  
  835.             «¡¿  ∩ó½∩εΓß∩  ú½«íá½∞¡δ¼¿  »«  «Γ¡«ΦÑ¡¿ε ¬ «ßΓá½∞¡«⌐ 
  836.             τáßΓ¿ »α«úαá¼¼δ.  Æᬠ¬á¬ »« π¼«½τá¡¿ε »«ñóÑαªÑ¡« ¿º-
  837.             ¼Ñ¡Ñ¡¿∩¼,  óδ  ñ«½ª¡δ ßñѽáΓ∞ »«»δΓ¬π «íΩ∩ó¿Γ∞ ¬áªñπε 
  838.             »ÑαѼѡ¡πε, ¿ß»«½∞ºπѼπε ó Σπ¡¬µ¿¿.  
  839.                ÄíΩ∩ó½∩⌐ΓÑ  »ÑαѼѡ¡δÑ  ß  áΓα¿íπΓ«¼ STATIC,  Ñß½¿ 
  840.             ó᪡«,  τΓ«íδ »ÑαѼѡ¡á∩ ¡Ñ ΓÑα∩½á  ßó«Ñ  º¡áτÑ¡¿Ñ  ß 
  841.             ¬áªñδ¼  ó맮ó«¼,  á  ¿º¼Ñ¡Ñ¡á «¡á ¼«ªÑΓ íδΓ∞ Γ«½∞¬« ó 
  842.             »αÑñѽáσ Σπ¡¬µ¿¿.  
  843.                Ä»αÑñѽѡ¿Ñ Σπ¡¬µ¿¿ ¿º ¡Ñ߬«½∞¬¿σ  ßΓ᫬  ó¬½ετáÑΓ 
  844.             «íδτ¡«  ¡áº¡áτÑ¡¿Ñ  ¿ñÑ¡Γ¿Σ¿¬áΓ«απ  Σπ¡¬µ¿¿  ¿ ñ«½ª¡« 
  845.             íδΓ∞ »αѬαáΘÑ¡« »α¿ »«¼«Θ¿ END DEF. àß½¿ óδ αÑΦ¿½¿ ¡Ñ 
  846.             ó¬½ετáΓ∞  ¡áº¡áτÑ¡¿Ñ  ¿ñÑ¡Γ¿Σ¿¬áΓ«απ  Σπ¡¬µ¿¿,  Γ«úñá 
  847.             º¡áτÑ¡¿∩,   ó«ºóαáΘÑ¡¡«Ñ  Σπ¡¬µ¿Ñ⌐,   íεπñÑΓ  ¡Ñ«»αÑ- 
  848.             ñѽѡ¡δ¼.  êß»«½∞ºπ⌐ΓÑ «»ÑαáΓ«α EXIT DEF ñ½∩ ó«ºóαáΓá 
  849.             ¿º Σπ¡¬µ¿¿, ¬«Γ«αá∩ ¡áσ«ñ¿Γß∩ ¡Ñ ó ¬«¡µÑ ÑÑ.  
  850.  
  851. æ¼. ΓᬪѠ  LOCAL   SHARED   STATIC
  852.  
  853. Åα¿¼Ñα      $STASK &H7FFF
  854.             Total = 1
  855.             DEF FNFactorfal%(I%)
  856.             'ñá¡¡á∩ Σπ¡¬µ¿∩ óδτ¿ß½∩ÑΓ Σá¬Γ«α¿á½ »áαá¼ÑΓαá I%
  857.             Total = Total = I%
  858.             IF I% > 1 THEN
  859.             Subb% = FNFactorfaI%(I%-1)
  860.             END IF
  861.             FNFactoraI% = Total
  862.             END DEF  'ºá¬«¡τ¿Γ∞ Σá¬Γ«α¿á½ Σπ¡¬µ¿¿
  863.             PRINT "Input the number you wish to calculate the";
  864.             INPUT "factorial of: ",J%
  865.             PRINT FNFactorial%(J%)
  866.             END   'ºá¬«¡τ¿Γ∞ »α«úαá¼¼π
  867. 
  868.         Ä»ÑαáΓ«αδ  DEFINT, DEFLNG, DEFSNG, DEFDBL, DEFSTR
  869. -----------------------------------------------------------------
  870. ìạáτÑ¡¿Ñ  Ä»ÑαáΓ«αδ  DEFINT, DEFLNG, DEFSNG,  DEFDBL  ¿  DEFSTR
  871.             «íΩ∩ó½∩εΓ Γ¿» ¿ñÑ¡Γ¿Σ¿¬áΓ«α«ó »ÑαѼѡ¡δσ »« π¼«½τá¡¿ε
  872.  
  873. æ¿¡Γá¬ß¿ß   DEFtype letter range [, letter range]....
  874.  
  875. 諼¼Ñ¡Γáα¿⌐    type  »αÑñßΓáó½∩ÑΓ  «ñ¿¡  ¿º »∩Γ¿ Γ¿»«ó »ÑαѼѡ¡δσ 
  876.             ÆôÉüÄ üàëæêèá: INT, LNG, SNG, DBL ¿ STR.  
  877.                letter  range φΓ« ½¿í« «ñ¿¡«τ¡δ⌐ á½Σáó¿Γ¡δ⌐ ß¿¼ó«½ 
  878.             («Γ A ñ« Z), ½¿í« ñ¿á»áº«¡ íπ¬ó (ñóÑ íπ¬óδ «Γñѽѡ¡δÑ 
  879.             ñαπú «Γ ñαπúá Γ¿αÑ, ¡á»α¿¼Ñα: A-M). 
  880.                Ä»ÑαáΓ«α  Γ¿»á  DEF ß««íΘáÑΓ ¬«¼»¿½∩Γ«απ τΓ« »ÑαÑ-
  881.             ¼Ñ¡¡δÑ ¿ «»αÑñѽѡ¡δÑ »«½∞º«óáΓѽѼ Σπ¡¬µ¿¿,  ¡áτ¿¡á∩ 
  882.             ß ¬«¡¬αÑΓ¡«⌐ íπ¬óδ ¿½¿ ¡áí«αá íπ¬ó  íπñπΓ  «»αÑñѽѡ- 
  883.             ¡«ú« Γ¿»á.  ¥Γ« ñáÑΓ ó«º¼«ª¡«ßΓ∞ ¿ß»«½∞º«óáΓ∞ ó  »α«- 
  884.             úαἼѠ íѺ ó¬½ετÑ¡¿∩ ¿ñÑ¡Γ¿Σ¿¬áΓ«α«ó Γ¿»á (¡á»α¿¼Ñα, 
  885.             %,  #) »ÑαѼѡ¡δÑ ¡Ñ Γ«½∞¬« ß «ñ¿¡áα¡«⌐  Γ«τ¡«ßΓ∞ε  ¿ 
  886.             »½áóáεΘÑ⌐ ºá»∩Γ«⌐.  
  887.                Å« π¼«½τá¡¿ε,  ¬«úñá ¬«¼»¿½∩Γ¿«α ¡áσ«ñ¿Γ ¿¼∩ »ÑαÑ- 
  888.             ¼Ñ¡¡«⌐ íѺ ¿ñÑ¡Γ¿Σ¿¬áΓ«αá Γ¿»á, «¡ ñ«»π߬áÑΓ, τΓ« »Ñ- 
  889.             αѼѡ¡á∩ ß »½áóáεΘÑ⌐ ºá»∩Γ«⌐ ¿ ß «ñ¿¡áα¡«⌐ Γ«τ¡«ßΓ∞ε.  
  890.                ìá»α¿¼Ñα:  ó  ñá¡¡«¼  «»ÑαáΓ«αÑ  ¬á¬  n  Γᬠ ¿  m 
  891.             ∩ó½∩εΓß∩ »ÑαѼѡ¡δ¼¿ ß «ñ¿¡áα¡«⌐ Γ«τ¡«ßΓ∞ε: 
  892.  
  893.                  n = m + 16
  894.  
  895.                Äñ¡á¬« Ñß½¿, φΓ«¼π «»ÑαáΓ«απ »αÑñΦÑóßΓóπεΓ  
  896.  
  897.                  DEFINT n,m
  898.  
  899.             Γ«úñá n ¿ m «íÑ íπñπΓ µÑ½«τ¿ß½Ñ¡¡δ¼¿ »ÑαѼѡ¡δ¼¿, ¬á¬ 
  900.             ¿ ½εíá∩ ñαπúá∩ »ÑαѼѡ¡á∩, τ∞Ñ ¿¼∩ ¡áτ¿¡áÑΓß∩ ß n ¿½¿ 
  901.             m ó óÑασ¡Ñ¼ ¿½¿ ¡¿ª¡Ñ¼ αÑú¿ßΓαÑ.  
  902.                éδ»«½¡Ñ¡¿Ñ DEFtype ó ÆôÉüÄ üàëæêèÑ ¡Ñ¼¡«ú« «Γ½¿τá- 
  903.             ÑΓß∩ «Γ ê¡ΓÑα»α¿ΓáΓ«αá üàëæêè. ê¡ΓÑα»α¿ΓáΓ«α «µÑ¡¿óá- 
  904.             ÑΓ  »ÑτáΓá¡¿Ñ  ó  ß««ΓóÑΓßó¿¿  ß  ΓѼ,  úñÑ  «»ÑαáΓ«α 
  905.             DEFtype  »«∩ó½∩ÑΓß∩  »α¿  óδ»«½¡Ñ¿¿ »α«úαá¼¼δ.  ÆôÉüÄ 
  906.             üàëæêè ó ¬áτÑßΓóÑ ¬«¼»¿½∩Γ«αá αáßß¼áΓα¿óáÑΓ »«½«ªÑ¡¿Ñ 
  907.             DEFtype ó ¿ßσ«ñ¡«¼ Σá⌐½Ñ.  
  908.                ìá»α¿¼Ñα,  »α¿ óδ»«½¡Ñ¡¿¿ ñá¡¡«⌐ »α«úαá¼¼δ 
  909.  
  910.                10 GOTO 30 
  911.                20 DEFINT A-M 
  912.                30 j = 45.3 : PRINT j 
  913.  
  914.             ê¡ΓÑα»α¿ΓáΓ«α  üàëæêè  ¡¿¬«úñá  ¡Ñ   ó¿ñ¿Γ   «»ÑαáΓ«α 
  915.             »ÑτáΓá¡¿∩  ó  ßΓα«¬Ñ  20 ¬«úñá «¡ óßΓαÑΓ¿Γ j ó ßΓα«¬Ñ 
  916.             30, j ßΓá¡ÑΓ »ÑαѼѡ¡«⌐ ß «ñ¿¡áα¡«⌐ Γ«τ¡«ßΓ∞ε ¿ íπñÑΓ 
  917.             ¡á»ÑτáΓá¡« 45.3.  ÆôÉüÄ üàëæêè,  ¡á«í«α«Γ,  »α¿¡¿¼áÑΓ 
  918.             αÑΦÑ¡¿∩  «  óóÑñÑ¡¿¿  »ÑαѼѡ¡δσ ó« óαѼ∩ ¬«¼»¿½∩µ¿¿, 
  919.             íѺ πτÑΓá ¼áαΦαπΓá óδ»«½¡Ñ¡¿∩  («  ¬«Γ«α«¼  ó«  óαѼ∩ 
  920.             ¬«¼»¿½∩µ¿¿ «¡ ¡¿τÑú« ¡Ñ º¡áÑΓ).  Ä¡ ºáí«Γ¿Γß∩ Γ«½∞¬«, 
  921.             τΓ«íδ «»ÑαáΓ«α DEFINT »«∩ó¿½ß∩ Σ¿º¿τÑ߬¿  ñ«  »Ñαó«ú« 
  922.             »«∩ó½Ñ¡¿∩  »ÑαѼѡ¡«⌐  j.  Æᬿ¼ «íαẫ¼ j ßΓá¡«ó¿Γß∩ 
  923.             µÑ½δ¼ τ¿ß½«¼ ¿ »ÑτáΓáÑΓß∩ 45 .  
  924.  
  925. Äúαá¡¿τÑ¡¿∩    Ä»ÑαáΓ«α DEFtype »ÑαÑ«»αÑñѽ¿Γ Γ¿» ½εí«⌐  ß««ΓóÑΓ-
  926.             ßΓóπεΘÑ⌐ »ÑαѼѡ¡«⌐ πªÑ ¿ß»«½∞º«óá¡¡«⌐ ó »α«úαá¼¼Ñ. 
  927.                Åα«úαá¼¼á »α¿¼Ñαá ñѼ«¡ßΓα¿απÑΓ φëà롬¿⌐ ¼«¼Ñ¡Γ.  
  928. 
  929. Åα¿¼Ñα      '¡áº¡áτ¿Γ∞ º¡áτÑ¡¿Ñ τ¿ß½π ß «ñ¿¡áα¡«⌐ Γ«τ¡«ßΓ∞ε
  930.                  I = 35567.999
  931.                        PRINT "Single Precision number".I
  932.             '»«¬áºáΓ∞ º¡áτÑ¡¿Ñ ¡á φ¬αá¡Ñ
  933.             'φ¬»½¿º¿Γ¡« «íΩ∩ó¿Γ∞ »ÑαѼѡ¡πε ß Γᬿ¼ ªÑ ¿¼Ñ¡Ñ¼
  934.             '¿ Γᬫú« ªÑ Γ¿»á
  935.                  DEFSNG I
  936.                       PRINT  "Single Precision number".I
  937.  
  938.             'φ¬ß»½¿º¿Γ¡« «íΩ∩ó¿Γ∞ »ÑαѼѡ¡πε ß Γᬿ¼ ªÑ ¿¼Ñ¡Ñ¼
  939.             '¡« ñαπú«ú« Γ¿»á
  940.                   DEFINT I
  941.             '¡á»ÑτáΓáΓ∞ º¡áτÑ¡¿Ñ ¡«ó«⌐ »ÑαѼѡ¡«⌐
  942.                       PRINT  "Integer number".I
  943.  
  944.             'óßÑ ¿ñÑ¡Γ¿Σ¿¬áΓ«αδ, ¡áτ¿¡á∩ ß íπ¬óδ «Γ A  ñ«  C
  945.             'íπñπΓ ß ñó«⌐¡«⌐ Γ«τ¡«ßΓ∞ε ñ« 
  946.             'ß½ÑñπεΘÑú« «»ÑαáΓ«αá DEF 
  947.             DEFDBL A-C
  948.  
  949.             'óßÑ ¿ñÑ¡Γ¿Σ¿¬áΓ«αδ,  ¡áτ¿¡á∩ ß íπ¬óδ «Γ J ñ« Z íπñπΓ 
  950.             'µÑ½«τ¿ß½Ñ¡¡«ú« Γ¿»á ñ« «τÑαÑñ¡«ú« «»ÑαáΓ«αá DEF 
  951.             DEFLNG J-Z
  952.  
  953.             '»α¿ßó«¿Γ∞ º¡áτÑ¡¿Ñ »ÑαѼѡ¡«⌐ ß πñó«Ñ¡¡«⌐ Γ«τ¡«ßΓ∞ε
  954.             A = 32767.1
  955.  
  956.             '»α¿ßó«¿Γ∞ º¡áτÑ¡¿Ñ ñ½¿¡¡«¼π µÑ½«¼π τ¿ß½π
  957.             Z = -1
  958.  
  959.             '»α¿ßó«¿Γ∞ º¡áτÑ¡¿Ñ αá¡ÑÑ «»αÑñѽѡ¡«⌐   
  960.             'µÑ½«τ¿ß½Ñ¡¡«⌐ »ÑαѼѡ¡«⌐ 
  961.             I = &H8FFF
  962.                   PRINT  "The different types:",A,Z,I
  963.              END    'ºá¬«¡τ¿Γ∞ »α«úαá¼¼π
  964.