home *** CD-ROM | disk | FTP | other *** search
/ For Beginners & Professional Hackers / cd.iso / docum / tb1.doc / tb3.doc < prev    next >
Encoding:
Text File  |  1989-07-21  |  51.4 KB  |  1,247 lines
  1. .R:
  2. .L:72
  3. .N:49
  4. .H:...$$$...
  5. .H:
  6. .H:
  7. .X:10
  8. .S:6
  9.    ò«Γ∩ φΓ« ¿ ßαáíáΓδóáÑΓ,  ¡« πß½«ª¡∩ÑΓ ¿ ºá¼Ññ½∩ÑΓ »α«úαá¼¼π,
  10. »«ß¬«½∞¬π ¡Ñ«ª¿ñá¡¡« ó«º¡¿¬áÑΓ »α«í½Ñ¼á  óδ»«½¡Ñ¡¿∩  100  óδτ¿Γá-
  11. ¡¿⌐, ¬«Γ«αδσ αá¡ÑÑ ¡Ñ í佫.  
  12.      æ««ΓóÑΓßΓóπεΘ¿⌐  «»ÑαáΓ«α  OPTION BASE ΓᬪѠ¼«ª¡« ¿ß»«½∞º«-
  13. óáΓ∞ ñ½∩ «»αÑñѽѡ¿∩ ¡¿ºΦÑú« φ½¼Ñ¡Γá ¼áßß¿óá,  σ«Γ∩ ¼Ñσá¡¿º¼ αáº-
  14. í¿ó¬¿ ¡á ñ¿á»áº«¡δ í«½ÑÑ ñÑ⌐ßΓóÑ¡¡δ⌐ ¿ »αÑñ»«τΓ¿Γѽ∞¡δ⌐.  
  15.  
  16.                         æΓ᫬«óδÑ ¼áßß¿óδ.
  17.                         ------------------
  18.      ¥½Ñ¼Ñ¡Γδ ßΓ᫬«óδσ ¼áßß¿ó«ó σαá¡∩Γ ßΓ᫬¿, á ¡Ñ τ¿ß½á. ä½¿¡á 
  19. ßΓ᫬¿ ¼«ªÑΓ íδΓ∞ αẽ¿τ¡«⌐:«Γ 0 ñ« 32767 º¡á¬«ó.  Äíδτ¡δ⌐  ßΓα«-
  20. ¬«óδ⌐  «íΩѼ ñ½∩ ßΓ᫬ ¿ ßΓ᫬«óδσ ¼áßß¿ó«ó ß«ßΓáó½∩ÑΓ 64è.  ìá»-
  21. α¿¼Ñα:  DIM a$(50) ß«ºñáÑΓ »«ß½Ññ«óáΓѽ∞¡«ßΓ∞ ¿º  51  ¡Ñºáó¿ß¿¼«⌐ 
  22. ßΓ᫬«ó«⌐ »ÑαѼѡ¡«⌐: 
  23.  
  24.      a$(0)= "æΓ᫬á ßαÑñ¡Ñ⌐ ñ½¿¡δ"   ßΓα«¬á ¿º 20 º¡á¬«ó
  25.      a$(1)= " "                      »πßΓá∩ ßΓ᫬á (»« π¼«½τá¡¿ε)
  26.      a$(0)= SPACE$(20000)            ßΓα«¬á ¿º 20000 º¡á¬«ó
  27.      *
  28.      *
  29.      *
  30.      a$(50)="The last one"           ßΓα«¬á ¿º 12 º¡á¬«ó
  31.  
  32.                        î¡«ú«¼Ñα¡δÑ ¼áßß¿óδ.
  33.                        --------------------
  34.      îáßß¿óδ ¼«úπΓ ¿¼ÑΓ∞ «ñ¡π ¿½¿ ¡Ñ߬«½∞¬« αẼÑα¡«ßΓÑ⌐,  ¼á¬ß¿- 
  35. ¼á½∞¡« - 8.  Äñ¡«¼Ñα¡δ⌐ ¼áßß¿ó,  ¡á»α¿¼Ñα,  payments - φΓ« »α«ßΓ« 
  36. ß»¿ß«¬  º¡áτÑ¡¿⌐.  äóπ¼Ñα¡δ⌐ ¼áßß¿ó »αÑñßΓáó½∩ÑΓ ß«í«⌐ Γáí½¿µπ 
  37. τ¿ßѽ ß α∩ñἿ ¿ ¬«½«¡¬á¼¿ ñá¡¡δσ.  é«º¼«ª¡δ ΓᬪѠ¿  ¼¡«ú«¼Ñα¡δÑ 
  38. ¼áßß¿óδ, ¡Ñ ¿¼ÑεΘ¿Ñ ú«Γ«óδσ á¡á½«ú«ó ó αÑá½∞¡«¼ ¼¿αÑ: 
  39.  
  40.      DIM a(15)               («ñ¡«¼Ñα¡δ⌐ ß»¿ß«¬)
  41.      DIM b(15,20)            (ñóπ¼Ñα¡á∩ Γáí½¿µá)
  42.      DIM c(5,5,10,20,3)      (»∩Γ¿¼Ñα¡δ⌐ ü½εαΣ¬óáαµ)
  43.  
  44.      îá¬ß¿¼á½∞¡«Ñ τ¿ß½« φ½Ñ¼Ñ¡Γ«ó ¡á ¬áªñπε αẼÑα¡«ßΓ∞ - 32768.
  45.  
  46.                      Åα«óÑα¬á ßó∩ºÑ⌐ ¼áßß¿óá.
  47.                      ------------------------                   
  48.      ÆôÉüÄ  üàëæêè  ñѽáÑΓ  óßѠ󫺼«ª¡αÑ,  τΓ«íδ ¿ºíáó¿Γ∞ óáß «Γ 
  49. ¡Ñ»α¿∩Γ¡«ßΓÑ⌐,  ßó∩ºá¡¡δσ ß ¡ÑóÑα¡δ¼¿ ¿¡ñѬßἿ  (Γ.Ñ.  ¿¡ñѬßἿ 
  50. ½¿í« ß½¿Φ¬«¼ í«½∞Φ¿¼¿,  ½¿í« ß½¿Θ¬«¼ ¼á½δ¼¿ ñ½∩ ñá¡¡«ú« ¼áßß¿óá). 
  51.      ê ¬«¼»¿½∩Γ«α ¡Ñ¼Ññ½Ñ¡¡« ß««íΘáÑΓ « ¡ÑóÑα¡«¼ ¿¡ñѬßÑ: 
  52.  
  53.      DIM a(50)
  54.      a(51) = 33
  55.  
  56.      ¥Γá »α«úαἼᠡѠíπñÑΓ Γαá¡ß½¿α«óáΓ∞ß∩,  Γ.¬.  ÆôÉüÄ  üàëæêè 
  57. ß«º¡áΓѽ∞¡«  ¡Ñ  íπñÑΓ  úÑ¡Ñα¿α«óáΓ∞ ¬«¼á¡ñπ ñ«ßΓπ»á ¬ 52-¼π φ½Ñ-
  58. ¼Ñ¡Γπ 51-φ½Ñ¼Ñ¡Γ¡«ú« ¼áßß¿óá.  Äñ¡á¬«,  Ñß½¿ ó ¬áτÑßΓóÑ  ¿¡ñѬ߫ó 
  59. ¿ß»«½∞º«óáΓ∞ »ÑαѼѡ¡δÑ, ¬«¼»¿½∩Γ«α ¡Ñ «í¡áαπª¿Γ «Φ¿í¬¿: 
  60.  
  61.      DIM a(50)
  62.      n = 51
  63.      a(n) = 33
  64.  
  65.      ê  σ«Γ∩  ñá¡¡á∩  »α«úαá¼¼á íπñÑΓ ¬«¼»¿½¿α«óáΓ∞ß∩ íѺ «Φ¿í¬¿, 
  66. óßÑ ªÑ ¼«ª¡« »«⌐¼áΓ∞ ó¡Ññ¿á»áº«¡¡δ⌐ ¿¡ñѬߠó 3-Ñ⌐ ßΓα«¬Ñ »α¿  óδ-
  67. »«½¡Ñ¡¿¿  »α«úαá¼¼δ »πΓѼ ÑÑ ¬«¼»¿½∩µ¿¿ ß ó¬½ετÑ¡¡δ¼ αѪ¿¼«¼ "ÄΓ-
  68. ½áñ¬á ßó∩ºÑ⌐" (Å« »α«óÑα¬Ñ ¿¡ñѬ߫ó ß¼.  αáºñѽ "諼á¡ñδ  éáα¿á¡-
  69. Γ«ó" ó â½áóÑ 3).  
  70.  
  71.                   ÆαÑí«óá¡¿∩ ¬ σαá¡Ñ¡¿ε ¼áßß¿ó«ó.
  72.                   -------------------------------               
  73.      Å« ΓÑσ¡¿τÑ߬¿¼ »α¿τ¿¡á¼, ßó∩ºá¡¡δ¼ ß íδßΓα«ñÑ⌐ßΓó¿Ñ¼ ¿ φΣΣÑ- 
  74. ¬Γ¿ó¡δ¼ ¿ß»«½∞º«ó᡿Ѽ «íΩѼᠻα«úαá¼¼,  ÆôÉüÄ üàëæêè «úαá¡¿τ¿óá- 
  75. ÑΓ αẼÑα ¬áªñ«ú« «Γñѽ∞¡«ú« ¼áßß¿óá ñ« 64 è¿½«íá⌐Γ, σ«Γ∩ ó »α«ú- 
  76. αἼѠ¼«ªÑΓ ß«ñÑαªáΓ∞ß∩ ßΓ«½∞¬« 64-¬¿½«íá⌐Γ«óδσ ¼áßß¿ó«ó, ß¬«½∞¬« 
  77. »«ºó«½∩ÑΓ  çô.  îá¬ß¿¼á½∞¡«Ñ τ¿ß½« φ½Ñ¼Ñ¡Γ«ó ó ¼áßß¿óÑ ºáó¿ß¿Γ «Γ 
  78. Ñú« Γ¿»á, ¬á¬ »«¬áºá¡« ¡¿ªÑ: 
  79. 
  80.      ----------------------------------------------------------
  81.      Æ¿»                      ÆαÑí«óá¡¿∩ ¬ «íΩѼπ »á¼∩Γ¿
  82.      ----------------------------------------------------------
  83.      ûѽ«τ¿ß½Ñ¡¡δ⌐            2íá⌐Γá ¡á φ½Ñ¼Ñ¡Γ (32768 ¡á 64 è)
  84.      ä½¿¡¡δ⌐ µÑ½«τ¿ß½Ñ¡¡δ⌐    4íá⌐Γá ¡á φ½Ñ¼Ñ¡Γ (16384 ¡á 64 è)
  85.      æ «ñ¿¡áα¡«⌐ Γ«τ¡«ßΓ∞ε    4íá⌐Γá ¡á φ½Ñ¼Ñ¡Γ (16384 ¡á 64 è)
  86.      æ ñó«⌐¡«⌐ Γ«τ¡«ßΓ∞ε      8íá⌐Γ  ¡á φ½Ñ¼Ñ¡Γ (8102  ¡á 64 è)
  87.      æΓ᫬«óδ⌐                4íá⌐Γá ¡á φ½Ñ¼Ñ¡Γ (16384 ¡á 64 è)
  88.      ----------------------------------------------------------
  89.  
  90.      é¡¿¼á¡¿Ñ: é  φ½Ñ¼Ñ¡ΓÑ  ßΓ᫬«ó«ú«  ¼áßß¿óá ß«ñÑনΓß∩ Γ«½∞¬«
  91. ¿¡Σ«α¼áµ¿∩ »« π¬áºáΓѽ∩¼ ¿  ñ½¿¡Ñ.  æ«íßΓóÑ¡¡«  ßΓ᫬«óδÑ  ñá¡¡δÑ 
  92. σαá¡∩Γß∩  ó  ßΓ᫬«ó«¼  »α«ßΓαá¡ßΓóÑ  ¿  ºá¡¿¼áεΓ  ßΓ«½∞¬«  íá⌐Γ, 
  93. ߬«½∞¬« º¡á¬«ó ó ßΓ᫬Ñ.  Åα«ßΓαá¡ßΓó« ßΓ᫬¿  ¼á¬ß¿¼á½∞¡«  ¼«ªÑΓ 
  94. ß«ñÑαªáΓ∞ 64è º¡á¬«ó.  
  95.  
  96.                     ä¿¡á¼¿τÑ߬«Ñ αáß»αÑñѽѡ¿Ñ.
  97.                     ---------------------------
  98.      ÆôÉüÄ üàëæêè «íÑß»Ñτ¿óáÑΓ ñ¿¡á¼¿τÑ߬«Ñ αáß»αÑñѽѡ¿Ñ »á¼∩Γ¿. 
  99. 信ἿτÑ߬«Ñ    αáß»αÑñѽѡ¿Ñ    «º¡áτáÑΓ    ß«ºñá¡¿Ñ    ¼áßß¿ó«ó 
  100. ¿º¼Ñ¡∩εΘÑ⌐ß∩   óѽ¿τ¿¡δ   »α¿   óδ»«½¡Ñ¡¿¿,   á   ¡Ñ  «»αÑñѽѡ¿Ñ 
  101. Σ¿¬ß¿α«óá¡¡δσ (ßΓáΓ¿τÑ߬¿σ) ßΓαπ¬Γπα »α¿ ¬«¼»¿½¿α«óá¡¿¿.  
  102.      ¥Γ«   »«ºó«½∩ÑΓ  ß«ºñáóáΓ∞  ¼áττ¿óδ  Γ«τ¡«  Γᬿσ  αẼÑα«ó, 
  103. ¬«Γ«αδÑ ¡Ñ«íσ«ñ¿¼δ ñ½∩ «íαáí«Γ¬¿ ñá¡¡δσ, ºáñáóáѼδσ »α«úαἼѠ»α¿ 
  104. óδ»«½¡Ñ¡¿¿.  Å«ß½Ñ ºáóÑαΦÑ¡¿∩ ¿σ Σπ¡¬µ¿⌐  »á¼∩Γ∞,  αáß»αÑñѽѡ¡á∩ 
  105. ñ¿¡á¼¿τÑ߬¿¼   ¼áßß¿óá¼,    ¼«ªÑΓ   íδΓ∞   ó«ºóαáΘÑ¡á   ¿   ó¡«ó∞ 
  106. ¿ß»«½∞º«óá¡á.  
  107.      ä½∩  ß«ºñá¡¿∩  ñ¿¡á¼¿τÑ߬«ú«  ¼áßß¿óá   »α«ßΓ«   ¿ß»«½∞ºπ⌐ΓÑ 
  108. »Ñα¼Ñ¡¡δÑ  áαúπ¼Ñ¡Γδ  ó  «»ÑαáΓ«αÑ  DIM;  Ñß½¿  ÑßΓ∞ ¼ÑßΓ« ó çô - 
  109. ¼áßß¿ó íπñÑΓ  ß«ºñá¡.  è«úñá  »α«úαἼᠠºáóÑαΦ¿½á  ¿ß»«½∞º«óá¡¿Ñ 
  110. φΓ«ú« ¼áßß¿óá,  »α¿¼Ñ¡¿ΓÑ «»αÑáΓ«α ERASE(æΓÑαÑΓ∞) ñ½∩ Γ«ú«, τΓ«íδ 
  111. ¿ºíáó¿Γ∞ß∩ «Γ  ¡Ñú« ¿ ¿ß»«½∞º«óáΓ∞ »á¼∩Γ∞ ñ½∩ ñαπú¿σ µÑ½Ñ⌐.  
  112.  
  113.     ìá»α¿¼Ñα:
  114.  
  115.      -óδ∩ß¡¿Γ∞, ß¬«½∞¬« ºá»¿ßÑ⌐ ó ¬áΓὫú«ó«¼ Σá⌐½Ñ,
  116.      -ºáΓѼ πßΓá¡«ó¿Γ∞ αẼÑαδ ñ¿¡á¼¿τÑ߬¿σ ¼áßß¿ó«ó ¿  ºáúαπº¿Γ∞ 
  117.       ¿σ 
  118.  
  119.      OPEN "PARTS.DTA" AS #1 LEN = 56
  120.      count = LOF(1)/56
  121.      DIM partNo(count), desc$(count), quan(couny), cost(count)
  122.      GOSUB LoadArrays
  123.      GOSUB UseArrays
  124.      ERASE partNo, desc$, quan, cost
  125.  
  126.      ùΓ«íδ  ó«ß»«½∞º«óáΓ∞ß∩  »αÑ¿¼πΘÑßΓóἿ ñ¿¡á¼¿τÑ߬¿σ ¼áßß¿ó«ó 
  127. ÆôÉüÄ üàëæêèá,  ¡πª¡« ½¿Φ∞ ßñѽáΓ∞ «µÑ¡«τ¡δ⌐ «»α«ß ¬áªñ«ú« ¼áßß¿-
  128. óá  óáΦÑ⌐  »α«úαá¼¼δ:  ßΓáΓ¿τÑ߬¿⌐ ¿½¿ ñ¿¡á¼¿τÑ߬¿⌐?  ê¼ÑÑΓ ½¿ «¡ 
  129. Σ¿¬ß¿α«óá¡¡δ⌐ αẼÑα ó ß««ΓóÑΓßΓó¿¿  ß  ¬«¡Σ¿úπαᵿÑ⌐  »α«úαá¼¼δ, 
  130. ¿½¿  φΓ«  ºáó¿ß¿Γ  «Γ ¡Ñ¬«Ñú« »áαá¼ÑΓαá,  óѽ¿τ¿¡á ¬«Γ«α«ú« ¡Ñ¿º-
  131. óÑßΓ¡á ñ« óδ»«½¡Ñ¡¿∩ »α«úαá¼¼δ?  ìá»α¿¼Ñα, ¼áßß¿ó births ¿º αá¡ÑÑ 
  132. »α¿óÑñÑ¡¡«ú«   »α¿¼Ñαá  ½πτΦÑ  óßÑú«  ß«ºñáóáΓ∞  ¬á¬  ßΓáΓ¿τÑ߬πε 
  133. ßΓαπ¬Γπαπ - Ñú« óѽ¿τ¿¡á óßÑúñá íπñÑΓ ß«ßΓáó½∩Γ∞ 100 φ½Ñ¼Ñ¡Γ«ó.  
  134.      ìÑí«½∞Φ¿¼ ¡Ñπñ«íßΓó«¼  ñ¿¡á¼¿τÑ߬¿σ  ¼áßß¿ó«ó  ∩ó½∩ÑΓß∩  Γ«Γ 
  135. Σá¬Γ,  τΓ«  ¿¡«úñá  ¼«ª¡«  íѺπß»ÑΦ¡« »δΓáΓ∞ß∩ πßΓá¡«ó¿Γ∞ αẼÑα-
  136. ¡«ßΓ∞ í«½∞Φ«ú« ¼áßß¿óá DIM-«»ÑαáΓ«α«¼ »α¿  óδ»«½¡Ñ¡¿¿  »α«úαá¼¼δ, 
  137. ¡«  ñ½∩  óδ»«½¡Ñ¡¿∩ φΓ«⌐ Σπ¡¬µ¿¿ »α«ßΓ« ¡Ñ íπñÑΓ ñ«ßΓáΓ«τ¡«ú« ¬«-
  138. ½¿τÑßΓóá ßó«í«ñ¡«⌐ »á¼∩Γ¿.  àß½¿ ó »α«úαἼѠ Γ«½∞¬«  ßΓáΓ¿τÑ߬¿Ñ 
  139. ¼áßß¿óδ  ¿ ñ«ßΓáΓ«τ¡« »á¼∩Γ¿ ñ½∩ ºá»π߬á - Γ« «¡á ¡Ñ íπñÑΓ ¿ßτÑα-
  140. »á¡á;  ¼áßß¿óδ Γᬫ⌐ »α«úαá¼¼δ ß«ºñáεΓß∩ ÑΘÑ ñ« Γ«ú«, ¬á¬ ¡áτ¿¡á-
  141. ÑΓß∩ ÑÑ óδ»«½¡Ñ¡¿Ñ.  
  142.      é ßó∩º¿ ß φΓ¿¼ »α«úαá¼¼á, ¿ß»«½∞ºπεΘá∩ ñ¿¡á¼¿τÑ߬¿Ñ ¼áßß¿óδ, 
  143. ñ«½ª¡á  º¡áΓ∞,  τΓ«  »α¿  óδ»«½¡Ñ¡¿¿ ¼«ªÑΓ «¬áºáΓ∞ß∩ ¡Ññ«ßΓáΓ«τ¡« 
  144. ßó«í«ñ¡«⌐ »á¼∩Γ¿ ñ½∩ «»¿ßá¡¿∩ ΓαÑíπѼδσ ¼áßß¿ó«ó.  ÅαѪñÑ τѼ πß-
  145. 
  146. Γá¡«ó¿Γ∞  αẼÑα¡«ßΓ∞  ñ¿¡á¼¿τÑ߬«ú« ¼áßß¿á DIM-«»ÑαáΓ«α«¼,  ó«ß-
  147. »«½∞ºπ⌐ΓÑß∞ Σπ¡¬µ¿Ñ⌐  FRE(-1),  τΓ«íδ  »α«óÑα¿Γ∞,  ñ«ßΓáΓ«τ¡«  ½¿ 
  148. ¼ÑßΓá ñ½∩ ¡Ñú«.  
  149.  
  150.           Ä»¿ßá¡¿Ñ ßΓáΓ¿τÑ߬¿σ ¿½¿ ñ¿¡á¼¿τÑ߬¿σ ¼áßß¿ó«ó.
  151.           -----------------------------------------------       
  152.      îÑΓá«»ÑαáΓ«αδ  $DYNAMIC  ¿  $STATIC  π»αáó½∩εΓ Γ¿»«¼ ºáñá¡¿∩ 
  153. ¼áßß¿ó«ó ó »α«úαἼѠ»« π¼«½τá¡¿ε.  Äíδτ¡« ó »α«úαἼѠ߫ñÑনΓß∩ 
  154. Γ«½∞¬«  «ñ¿¡  ¿º  φΓ¿σ  ¼ÑΓá«»ÑαáΓ«α«ó.  Å«  π¼«½τá¡¿ε ¬«¼»¿½∩Γ«α 
  155. »«ñαáºπ¼ÑóáÑΓ áΓα¿íπΓ $STATIC.  
  156.      îáßß¿óδ ßτ¿ΓáεΓß∩ ñ¿¡á¼¿τÑ߬¿¼¿ ó ß½ÑñπεΘ¿σ ß½πτá∩σ:
  157.  
  158.      -Ñß½¿ «¡¿ «»¿ßá¡δ »«ß½Ñ π»«ΓαÑí½Ñ¡¿∩ ¼ÑΓá«»ÑαáΓ«αá $DYNAMIC, 
  159.       ¬á¬, ¡á»α¿¼Ñα, ó: 
  160.  
  161.      10 $DYNAMIC
  162.      20 DIM A(10)
  163.  
  164.      -Ñß½¿ ∩ó¡« ºáñá¡δ ¬á¬ ñ¿¡á¼¿τÑ߬¿Ñ, ¬á¬ ó:
  165.  
  166.     10 DIM DYNAMIC A(10)
  167.  
  168.      -Ñß½¿ ó «»ÑαáΓ«αÑ DIM ¿ß»«½∞º«óá¡á »ÑαѼѡ¡á∩, ¬á¬ ó:
  169.  
  170.      10 X% = 10
  171.      20 DIM A(X%)
  172.  
  173.      -Ñß½¿ ¼áßß¿ó ó¬½ετÑ¡ ó «»ÑαáΓ«α COMMON, ¬á¬ ó:
  174.  
  175.      10 DIM A(10)
  176.      20 COMMON A(1)
  177.  
  178.      -Ñß½¿ ÑßΓ∞ ñóá ¿½¿ í«½ÑÑ «»ÑαáΓ«α«ó DIM ñ½∩ «½¡«ú« ¿ Γ«ú« ªÑ 
  179.       ¿ñÑ¡Γ¿Σ¿¬áΓ«αá ¼áßß¿óá, ¬á¬ ó: 
  180.  
  181.      10 DIM A(10)
  182.      20 A(0) = 10
  183.      30 DIM A(10)
  184.  
  185.      -Ñß½¿ ¼áßß¿ó «»¿ßδóáÑΓß∩ ¬á¬ ½«¬á½∞¡δ⌐ ó »α«µÑñπαÑ ¿½¿  Σπ¡¬-
  186.       µ¿¿, ¬á¬ ó:
  187.  
  188.      DEF FNTest%
  189.        LOCAL A()
  190.        DIM A(10)
  191.        FNTest = A(10)
  192.      END DEF
  193.  
  194.      è½áßß σαá¡Ñ¡¿∩ ¼áßß¿óá ΓᬪѠ ¼«ªÑΓ  íδΓ∞  ºáñá¡  áΓα¿íπΓἿ 
  195. STATIC ¿ DYNAMIC ó DIM-«»ÑαáΓ«αÑ.  èα«¼Ñ Γ«ú«,  ¼áßß¿ó óßÑúñá ñ¿-
  196. ¡á¼¿τÑ߬¿⌐,  Ñß½¿ ó  ß««ΓóÑΓßΓóπεΘѼ  DIM-«»ÑαáΓ«αÑ  ¿ß»«½∞ºπÑΓß∩ 
  197. óδαáªÑ¡¿Ñ. ìá»α¿¼Ñα: 
  198.  
  199.      $STATIC             «Γßεñá ¿ ñá½ÑÑ ßτ¿ΓáΓ∞ óßÑ ¼áßß¿óδ ßΓáΓ¿-
  200.                          τÑ߬¿¼¿,
  201.      DIM a(40), b(20,20) »«φΓ«¼π a ¿ b «íá ßΓáΓ¿τÑ߬¿Ñ ¼áßß¿óδ;
  202.      DIM DYNAMIC c(20)   áΓα¿íπΓ DYNAMIC  «Γ¼Ñ¡∩ÑΓ »α¿¼Ñ¡Ñ¡¡δ⌐ »«
  203.                          π¼«½τá¡¿ε  $STATIC;
  204.      DIM d(n)            ¿ß»«½∞º«óá¡¿Ñ »ÑαѼѡ¡«⌐ ó DIM ΓᬪѠπß-
  205.                          Γá¡áó½¿óáÑΓ áΓα¿íπΓ DINAMIC;
  206.      $DYNAMIC            «Γßεñá ¿ ñá½ÑÑ ¬«¼»¿½∩Γ«α ßτ¿ΓáÑΓ ¼áß-
  207.                          ß¿óδ ñ¿¡á¼¿τÑ߬¿¼¿,
  208.      DIM e(50)           »«φΓ«¼π e - ¼áßß¿ó ñ¿¡á¼¿τÑ߬¿⌐
  209.  
  210.      "êºíáó¿Γ∞ß∩" «Γ ñ¿¡á¼¿τÑ߬¿σ ¼áßß¿ó«ó ¼«ª¡« ß »«¼«Θ∞ε «»Ñαá-
  211. Γ«αá  ERASE:  πñá½Ñ¡¿Ñ  ßΓáΓ¿τÑ߬¿σ  ¼áßß¿ó«ó  ß »«¼«Θ∞ε ERASE ¡Ñ 
  212. 
  213. ó«ßßΓá¡áó½¿óáÑΓ »á¼∩Γ∞,  ¡« πßΓá¡áó½¿óáÑΓ ¿σ  φ½Ñ¼Ñ¡Γδ  ¡á  0  (ó 
  214. ßΓ᫬«óδσ ¼áßß¿óáσ ó ¡π½Ñóπε ßΓ᫬π).  
  215.  
  216.                             éδαáªÑ¡¿∩.
  217.                             ----------
  218.      éδαáªÑ¡¿Ñ ß«ßΓ«¿Γ ¿º «»ÑαáΓ«α«ó ¿ «»Ñαá¡ñ«ó,  «ßπΘÑßΓó½∩εΘ¿σ 
  219. «»αÑñѽѡ¡δÑ «»Ñαáπ¿¿ »α¿ óδτ¿ß½Ñ¡¿¿ óδαáªÑ¡¿∩.  é ÆôÉüÄ  üàëæêèÑ 
  220. ßπΘÑßΓóπÑΓ ñóá «ß¡«ó¡δσ Γ¿»á óδαáªÑ¡¿⌐: ßΓ᫬«óδÑ ¿ τ¿ß½«óδÑ.  
  221.      æΓ᫬«ó«Ñ óδαáªÑ¡¿Ñ ß«ßΓ«¿Γ ¿º ßΓ᫬«óδ󠬫¡ßΓá¡Γ, ßΓ᫬«óδσ 
  222. »ÑαѼѡ¡δσ ¿ ßΓ᫬«óδσ Σπ¡¬µ¿⌐ (ΓÑσ,  ¬«Γ«αδÑ «¬á¡τ¿óáεΓß∩ ¡á $), 
  223. ß«Ññ¿¡Ñ¡¡δÑ,  úñÑ φΓ« ¡Ñ«íσ«ñ¿¼«,  ¬«¡¬áΓѡᵿ«¡¡δ¼ «»ÑαáΓ«α«¼  -
  224. º¡á¬«¼ »½εß (+).  æΓ᫬«óδÑ óδαáªÑ¡¿∩ π»α«ΘáεΓ ñ« ßΓ᫬¿; Γ.Ñ. ñ« 
  225. »«ß½Ññ«óáΓѽ∞¡«ßΓ¿ ß¿¼ó«½«ó ASCII ¿ºóÑßΓ¡«⌐ ñ½¿¡δ.  æαÑñ¿  »α¿¼Ñ-
  226. α«ó ßΓ᫬«óδσ óδαáªÑ¡¿⌐ ß½ÑñπεΘ¿Ñ: 
  227.  
  228.      "Cats and dogs"
  229.      a$
  230.      a$ + z$
  231.      LEFT$(a$ + z$)
  232.      a$ = MID$("Cats and dogs",5,3)
  233.      RIGHT$(MID$(a$ = z$,1,6),3)
  234.  
  235.      ù¿ß½«óδÑ óδαáªÑ¡¿∩ ß«ßΓ«∩Γ ¿º τ¿ß½«óδ󠬫¡ßΓá¡Γ,  »ÑαѼѡ¡δσ 
  236. ¿ Σπ¡¬µ¿⌐,  αáºñѽ∩Ѽδσ,  úñÑ ¡Ñ«íσ«ñ¿¼«,  τ¿ß½«ó묨 «»ÑαáΓ«αἿ.  
  237. ù¿ß½«óδÑ  óδαáªÑ¡¿∩ óßÑúñá π»α«ΘáεΓß∩ ó ß««ΓóÑΓßΓó¿¿ ß« º¡áτÑ¡¿Ñ¼ 
  238. «ñ¡«ú« ¿º τÑΓδαÑσ τ¿ß½«óδσ Γ¿»«ó (µÑ½«τ¿ß½Ñ¡¡«¼π,  ñ½¿¡¡«¼π µÑ½«-
  239. τ¿ß½Ñ¡¡«¼π, ß« ñ¿¡áα¡«⌐ Γ«τ¡«ßΓ∞ε, ß ñó«⌐¡«⌐ Γ«τ¡«ßΓ∞ε).  Åα¿¼Ñαδ 
  240. τ¿ß½«óδσ óδαáªÑ¡¿⌐ ó¬½ετáεΓ: 
  241.  
  242.      37
  243.      37/15
  244.      a
  245.      37/a
  246.      SQR(37/a)
  247.      SQR((c + d)/a) * SIN(37/a)
  248.  
  249.      Åα¿ Σ«α¼¿α«óá¡¿¿ τ¿ß½«óδσ óδαáªÑ¡¿⌐ ß½ÑñπÑΓ  ¿¼ÑΓ∞  ó  ó¿ñπ,
  250. τΓ« «»αÑñѽѡ¡δÑ «»Ñαᵿ¿ íπñπΓ »α«¿ºóÑñÑ¡δ »Ñαó묨.  ì¿ªÑ »α¿óÑ-
  251. ñÑ¡ »«α∩ñ«¬ óδτ¿ß½Ñ¡¿∩ óδαáªÑ¡¿∩.  é«ºóÑñÑ¡¿Ñ ó ßΓÑ»¡∞ ¿¼ÑÑΓ óδß-
  252. Φ¿⌐ »α¿«α¿ΓÑΓ; IMP(¿¼»½¿¬áµ¿∩) - ¡¿ºΦ¿⌐.  
  253.  
  254.      - é«ºóÑñÑ¡¿Ñ ó ßΓѻѡ∞ (^)
  255.      - ÄΓα¿µá¡¿Ñ (-)
  256.      - ô¼¡«ªÑ¡¿Ñ, äѽѡ¿Ñ ß »½áóáεΘÑ⌐ ºá»∩Γ«⌐ (*,/)
  257.      - ûѽ«τ¿ß½Ñ¡¡«Ñ ñѽѡ¿Ñ (\)
  258.      - Å« ¼«ñπ½ε (MOD)
  259.      - æ½«ªÑ¡¿Ñ, éδτ¿Γá¡¿Ñ (+,-)
  260.      - Ä»Ñαᵿ¿ ßαáó¡Ñ¡¿∩ (<,<=,=,>,>=,<>)
  261.      - ÄΓα¿µá¡¿Ñ (NOT)
  262.      - ê (AND)
  263.      - êïê, ê߬½ετáεΘÑÑ êïê(OR, XOR)
  264.      - ¥¬ó¿óá½Ñ¡Γ¡«ßΓ∞ (EQV)
  265.      - ê¼»½¿¬áµ¿∩ (IMP)
  266.  
  267.      ìá»α¿¼Ñα º¡áτÑ¡¿Ñ óδαáªÑ¡¿∩ 3 + 6/3 αáó¡« 5,  á ¡Ñ  3.  Å«ß-
  268. ¬«½∞¬π  »α¿«α¿ΓÑΓ ñѽѡ¿∩ óδΦÑ,  τѼ óδτ¿Γá¡¿∩,  «»Ñαᵿ∩ ñѽѡ¿∩ 
  269. (6/3) »α«¿ºó«ñ¿Γß∩ »Ñαó«⌐.  
  270.     Åα¿ »α«óÑñÑ¡¿¿ «»Ñαᵿ⌐ ß «ñ¿¡á¬«óδ¼ »α¿«α¿ΓÑΓ«¼  ÆôÉüÄ  üàë-
  271. æêè »α«¿ºó«ñ¿Γ ¿σ ß½Ñóá ¡á»αáó«.  ìá»α¿¼Ñα, ó óδαáªÑ¡¿¿ 4 - 3 + 6 
  272. óδτ¿Γá¡¿Ñ (4-3) »α«¿ºó«ñ¿Γß∩ »ÑαÑñ ß½«ªÑ¡¿Ñ¼ (3 +  6),  τΓ«  ñáÑΓ 
  273. »α«¼ÑªπΓ«τ¡«Ñ óδαáªÑ¡¿Ñ 1 + 6.  
  274.     Ä»Ñαᵿ¿  ó  ß¬«í¬áσ ¿¼ÑεΓ óδßΦ¿⌐ »α¿«α¿ΓÑΓ ¿ óßÑúñá »α«¿ºó«-
  275. ñ∩Γß∩ »Ñαó묨; ó¡πΓα¿ ß¬«í«¬ ñÑ⌐ßΓóπεΓ «íΘ¿Ñ »αáó¿½á.  
  276. 
  277.                             Ä»ÑαáΓ«αδ.
  278.                             ----------                          
  279.      ù¿ß½Ñ¡¡δÑ  «»ÑαáΓ«αδ  ñѽ∩Γß∩  ¡á   Γα¿   «ß¡«ó¡δÑ   úαπ»»δ: 
  280. áα¿Σ¼ÑΓ¿τÑ߬¿Ñ, ½«ú¿τÑ߬¿Ñ ¿ «»ÑαáΓ«αδ ßαáó¡Ñ¡¿∩.  
  281.  
  282.      Çα¿Σ¼ÑΓ¿τÑ߬¿Ñ «»ÑαáΓ«αδ.
  283.      -------------------------
  284.      Çα¿Σ¼ÑΓ¿τÑ߬¿Ñ  «»ÑαáΓ«αδ  »α«¿ºó«ñ∩Γ «íδτ¡δÑ ¼áΓѼáΓ¿τÑ߬¿Ñ 
  285. «»Ñαᵿ¿.  é Æáí½¿µÑ  4-2  »ÑαÑτ¿ß½Ñ¡δ  áα¿Σ¼ÑΓ¿τÑ߬¿Ñ  «»ÑαáΓ«αδ 
  286. ÆôÉüÄ üàëæêè ó »«α∩ñ¬Ñ ó«ºαáßΓá¡¿∩ »α¿«α¿ΓÑΓ«ó.  
  287.  
  288.               Æáí½¿µá 4-2. Çα¿Σ¼ÑΓ¿τÑ߬¿Ñ «»ÑαáΓ«αδ
  289.     ----------------------------------------------------------
  290.     Ä»ÑαáΓ«α     äÑ⌐ßΓó¿Ñ                      Åα¿¼Ñα
  291.     ----------------------------------------------------------
  292.     ^            é«ºóÑñÑ¡¿Ñ ó ßΓѻѡ∞          10^4
  293.     -            ÄΓα¿µá¡¿Ñ                     -16
  294.     *, /         ô¼¡«ªÑ¡¿Ñ,äѽѡ¿Ñ ß »½óáε-    45 * 19, 45 - 19
  295.                  ΘÑ⌐ ºá»∩Γ«⌐
  296.     \            ûѽ«τ¿ß½Ñ¡¡«Ñ ñѽѡ¿Ñ         45 \ 19
  297.     MOD          Å« ¼«ñπ½ε                     45 MOD 19
  298.     +,-          æ½«ªÑ¡¿Ñ, éδτ¿Γá¡¿Ñ           45 + 19, 45 - 19
  299.     -----------------------------------------------------------
  300.  
  301.      ìѬ«Γ«αδÑ ¿º φΓ¿σ «»ÑαáΓ«α«ó ºáß½πª¿óáεΓ ¬αáΓ¬«ú« »«∩ß¡Ñ¡¿∩.
  302. ÄíαáΓ¡á∩ τÑαΓá ñα«í¿ (\) »αÑñßΓáó½∩ÑΓ µÑ½«τ¿ß½Ñ¡¡«Ñ ñѽѡ¿Ñ.  ûÑ-
  303. ½«τ¿ß½Ñ¡¡«Ñ ñѽѡ¿Ñ «¬απú½∩ÑΓ ßó«¿ «»Ñαá¡ñδ ñ« µÑ½δσ τ¿ßѽ ¿  ñá-
  304. ÑΓ «¬απú½Ñ¡¡«Ñ τáßΓ¡«Ñ íѺ «ßΓáΓ¬á;  ¡á»α¿¼Ñα, 5 \ 2 αáó¡∩ÑΓß∩ 2, 
  305. á 9 \ 10 αáó¡« 0.  
  306.     ÄßΓáΓ«¬ µÑ½«τ¿ß½Ñ¡¡«ú« ñѽѡ¿∩  ¼«ª¡«  «»αÑñѽ¿Γ∞  ß  »«¼«Θ∞ε 
  307. «»ÑαáΓ«αá MOD& (ºá¼ÑΓ∞ΓÑ,  τΓ« «»ÑαáΓ«α MOD ñÑ⌐ßΓó¿Γѽѡ Γ«½∞¬« ß 
  308. ¬«α«Γ¬¿¼¿ µÑ½δ¼¿ τ¿ß½á¼¿.) Ä»ÑαáΓ«α MOD »«σ«ª ¡á  «»ÑαáΓ«α  µÑ½«-
  309. τ¿ß½Ñ¡¡«ú«  ñѽѡ¿∩,  Γ«½∞¬« «¡ »«¬áºδóáÑΓ «ßΓáΓ«¬ ñѽѡ¿∩,  á ¡Ñ 
  310. τáßΓ¡«Ñ; ¡á»α¿¼Ñα, 5 MOD 2 αáó¡« 1 , á 9 MOD 10 αáó¡« 9.  
  311.  
  312.      Ä»ÑαáΓ«αδ ßαáó¡Ñ¡¿∩.
  313.      --------------------
  314.      Ä»ÑαáΓ«αδ ßαáó¡Ñ¡¿∩ »«ºó«½∩εΓ ßαáó¡¿óáΓ∞ º¡áτÑ¡¿∩ ñóπσ ßΓ᫬ 
  315. ¿½¿ ñóπσ τ¿ßѽ (¡« ¡Ñ ßΓ᫬¿  ß  τ¿ß½á¼¿)  ñ½∩  »«½πτÑ¡¿∩  íπ½Ñóá 
  316. αѺπ½∞-ΓáΓá:   éàÉìÄ  (TRUE)  ¿½¿  ìàéàÉìÄ  (FALSE).   ÉѺπ½∞ΓáΓπ 
  317. ßαáó¡Ñ¡¿∩  »α¿ßóá¿óáÑΓß∩  µÑ½«τ¿ß½Ñ¡¡«Ñ   º¡áτÑ¡¿Ñ   "-1",   Ñß½¿ 
  318. «Γ¡«ΦÑ¡¿Ñ óÑα¡«, ¿ "0" - Ñß½¿ ¡ÑóÑα¡«. ìá»α¿¼Ñα: 
  319.  
  320.      PRINT 5 > 6, 5 < 6< (5 < 6)*15
  321.  
  322. óδñáÑΓ  0,-1  ¿  -15.  ò«Γ∩ »«½πτÑ¡¡δÑ τ¿ß½Ñ¡¡δÑ αѺπ½∞ΓáΓδ ¼«ª¡« 
  323. ¿ß»«½∞º«óáΓ∞    ó    ½εí«¼    τ¿ß½«ó«¼    óδαáªÑ¡¿¿    (¡á»α¿¼Ñα,  
  324. a  =  (b*c)/13), τ¿ß½«óδÑ αѺπ½∞ΓáΓδ, »«½πτáѼδÑ ó «»Ñαᵿ∩σ ßαá-
  325. ó¡Ñ¡¿∩, ¬á¬ »αá󿽫,  ¿ß»«½∞ºπεΓß∩ ó IF(àæïê) ¿½¿ ñαπú¿σ «»ÑαáΓ«-
  326. αáσ  »α¿¡∩Γ¿∩  αÑΦÑ¡¿∩  ñ½∩  «»αÑñѽѡ¿∩  ¡á»αáó½Ñ¡¿∩ ñá½∞¡Ñ⌐ΦÑú« 
  327. óδ»«½¡Ñ¡¿∩  »α«úαá¼¼δ.   
  328.      é  Æáí½¿µÑ  4-3 »α¿óÑñÑ¡δ «»ÑαáΓ«αδ ßαáó¡Ñ¡¿∩.  
  329.  
  330.            Æáí½¿µá 4-3.   Ä»ÑαáΓ«αδ ßαáó¡Ñ¡¿∩
  331.         ---------------------------------------------------
  332.         Ä»ÑαáΓ«α       æαáó¡Ñ¡¿Ñ             Åα¿¼Ñα
  333.         ---------------------------------------------------
  334.         =              ÉáóÑ¡ßΓó«              x = y
  335.         <>             ìÑαáóÑ¡ßΓó«            x <> y
  336.         <              îÑ¡∞ΦÑ, τѼ            x < y
  337.         >              ü«½∞ΦÑ, τѼ            x > y
  338.         <=             îÑ¡∞ΦÑ ¿½¿ αáó¡«       x <= y
  339.         >=             ü«½∞ΦÑ ¿½¿ αáó¡«       x >= y
  340.         ----------------------------------------------------
  341. 
  342.      àß½¿  áα¿Σ¼ÑΓ¿τÑ߬¿Ñ «»ÑαáΓ«αδ ¿ «»ÑαáΓ«αδ ßαáó¡Ñ¡¿∩ ßóÑñÑ¡δ 
  343. ó «ñ¡«¼ óδαáªÑ¡¿¿,  áα¿Σ¼ÑΓ¿τÑ߬¿Ñ «»ÑαáΓ«αδ  óßÑúñá  óδ»«½¡∩εΓß∩ 
  344. »Ñαó묨.  ìá»α¿¼Ñα,  4  + 5 < 4*3 ñáÑΓ óßÑúñá αѺπ½∞ΓáΓ "-1"(éàÉ-
  345. ìÄ),  »«ß¬«½∞¬π áα¿Σ¼ÑΓ¿τÑ߬¿Ñ «»Ñαᵿ¿ óδ»«½¡∩εΓß∩  ñ«  «»Ñαᵿ¿ 
  346. ßαáó¡Ñ¡¿∩,  ¬«Γ«αá∩  ó  ¬«¡µÑ  »α«óÑα∩ÑΓ »αáó¿½∞¡«ßΓ∞ πΓóÑαªñÑ¡¿∩ 
  347. 9 < 12.  
  348.  
  349.      ï«ú¿τÑ߬¿Ñ «»ÑαáΓ«αδ.
  350.      ---------------------                     
  351.      ï«ú¿τÑ߬¿Ñ «»ÑαáΓ«αδ óδ»«½¡∩εΓ ½«ú¿τÑ߬¿Ñ (íπ½Ñóδ)  «»Ñαᵿ¿ 
  352. ß  µÑ½δ¼¿ τ¿ß½á¼¿.  Åα¿ ¿ß»«½∞º«óá¡¿¿ ß «»ÑαáΓ«αἿ ßαáó¡Ñ¡¿∩ «¡¿ 
  353. »«ºó«½∩εΓ »α«ó«ñ¿Γ∞ ΓᬿѠ¬«¼»½Ñ¬ß¡δÑ ΓÑßΓδ, ¬á¬ 
  354.  
  355.      IF day>29 AND month=2 THEN PRINT "Error in date"
  356.      àæïê ñÑ¡∞>29 ê ¼Ñß∩µ=2 ÆÄ ÅàùÇÆÇÆ£ "ÄΦ¿í¬á ó ñáΓÑ"
  357.  
  358.      Ä»ÑαáΓ«α AND (ê) »α«¿ºó«ñ¿Γ ½«ú¿τѬ«Ñ π¼¡«ªÑ¡¿Ñ  µÑ½«τ¿ß½Ñ¡-
  359. ¡δσ  αѺπ½∞ΓáΓ«ó,  »«½πτÑ¡¡δσ  ó  ñóπσ «»Ñαᵿ∩σ ßαáó¡Ñ¡¿∩.  (AND 
  360. ¿¼ÑÑΓ í«½ÑÑ ¡¿º¬¿⌐ »α¿«α¿ΓÑΓ,  τѼ «»ÑαáΓ«αδ ßαáó¡Ñ¡¿∩ ">" ¿ "=", 
  361. »«φΓ«¼π ß¬«í¬¿ ¡Ñ ¡πª¡δ).  ìá»α¿¼Ñα,  Ñß½¿ ñÑ¡∞ = 29 ¿ ¼Ñß∩µ = 2, 
  362. «íÑ «»Ñαᵿ¿ ßαáó¡Ñ¡¿∩ ñáεΓ  αѺπ½∞ΓáΓ  êæÆêìA  (-1).  ïѪáΘÑÑ  ó 
  363. «ß¡«óÑ í¿¡áα¡«Ñ »αÑñßΓáó½Ñ¡¿Ñ µÑ½δσ τ¿ßѽ Γᬫó«,  τΓ« "-1" ¿¼ÑÑΓ 
  364. óѽ¿τ¿¡π &HFFFF (óßÑ í¿Γδ  ó¬½ετÑ¡δ);  "0"  -  &HOOOO,  óßÑ  í¿Γδ 
  365. ó䬽ετÑ¡δ.  
  366.      çáΓѼ «»ÑαáΓ«α  ê »α«¿ºó«ñ¿Γ «»Ñαáµ¿ε ½«ú¿τÑ߬«ú«  π¼¡«ªÑ¡¿∩
  367. φΓ¿σ ñóπσ êæÆêìì¢ò αѺπ½∞ΓáΓ«ó:
  368.  
  369.      1111 1111 1111 1111 (-1)
  370. AND  1111 1111 1111 1111 (-1)
  371.      ------------------------
  372.      1111 1111 1111 1111 (-1)
  373.  
  374.     ñáóá∩ êæÆêììë (¡Ñ¡π½Ñó«⌐) αѺπ½∞ΓáΓ.
  375.  
  376.      Ä»Ñαᵿ∩  OR (êïê),  ¡áºδóáѼá∩ ¿¡«úñá ó¬½ετáεΘÑÑ êïê,  ñáÑΓ 
  377. «ΓóÑΓ êæÆêìA,  Ñß½¿ «ñ¿¡ ¿½¿ «íá ÑÑ  áαúπ¼Ñ¡Γá  êæÆêìì¢,  ¿  ñáÑΓ 
  378. «ΓóÑΓ ïÄå£ Γ«½∞¬« Ñß½¿ «íá áαúπ¼Ñ¡Γá ïÄåì¢.  
  379.  
  380.      ìá»α¿¼Ñα:
  381.  
  382. -1 OR 0 is TRUE
  383.  0 OR 0 is FALSE
  384.  5 > 6 OR 6 < 7 is TRUE
  385.  
  386.      Ä»Ñαᵿ∩  XOR  (ê߬½ετáεΘÑÑ  êïê)  ñáÑΓ  «ΓóÑΓ êæÆêìA,  Ñß½¿ 
  387. »α«óÑα∩ѼδÑ óѽ¿τ¿¡δ αạδÑ, ¿ «ΓóÑΓ - ïÄå£, Ñß½¿ «¡¿ αáó¡δ.  
  388.  
  389. -1 XOR 0 is TRUE
  390. -1 XOR -1 is FALSE
  391.  5 > 6 XOR 6 < 7 is TRUE
  392.  
  393.      öπ¡¬µ¿∩ EQV (¥¬ó¿óá½Ñ¡Γ¡«) »α«Γ¿ó«»«½«ª¡á XOR.  Ä¡á ñáÑΓ «Γ-
  394. óÑΓ êæÆêìA, Ñß½¿ ¿ßß½ÑñπѼδÑ ñóÑ ½«ú¿τÑ߬¿Ñ óѽ¿τ¿¡δ «ñ¿¡á¬«óδ, ¿ 
  395. «ΓóÑΓ ïÄå£, Ñß½¿ «¡¿ ¡Ñ«ñ¿¡á¬«óδ: 
  396.  
  397. -1 EQV 0 is TRUE
  398. -1 EQV -1 is FALSE
  399.  5 > 6 EQV 6 < 7 is TRUE
  400.  
  401.     Ä»ÑαáΓ«α IMP (ê¼»½¿¬áµ¿∩) ñáÑΓ  «ΓóÑΓ  ïÄ壠 Γ«½∞¬«  Ñß½¿
  402. »Ñαóδ⌐ «»Ñαá¡ñ êæÆêììàì, á óΓ«α«⌐ ïÄåàì:
  403.  
  404. -1 OR 0 is TRUE
  405.  0 OR 0 is FALSE
  406.  5 > 6 OR 6 < 7 is TRUE
  407.  
  408.     ÄíαáΓ¿ΓѠ󡿼᡿Ñ,  τΓ« ½«ú¿τѬ¿Ñ «»ÑαáΓ«αδ »α«¿ºó«ñ∩Γ ñÑ⌐ß-
  409. Γó¿∩ Γ«½∞¬« ¡áñ µÑ½δ¼¿ τ¿ß½á¼¿, ¡« ¡Ñ ¡áñ ñ½¿¡¡δ¼¿ µÑ½δ¼¿ τ¿ß½á-
  410. 
  411. ¼¿ ¿½¿ τ¿ß½á¼¿ ß »½áóáεΘÑ⌐ ºá»∩Γ«⌐.  àß½¿  «»Ñαá¡ñδ  ½«ú¿τÑ߬«ú«
  412. óδαáªÑ¡¿∩ ¡Ñ  ¼«úπΓ íδΓ∞ »αÑ«íαẫóá¡δ ó µÑ½δÑ τ¿ß½á, »α«¿ßσ«ñ¿Γ
  413. »ÑαÑ»«½¡Ñ¡¿Ñ;
  414.  
  415. x = 500000
  416. IF x OR y THEN GOTO Exit
  417.  
  418.      Ä»ÑαáΓ«α IF (àæïê) ¼«ªÑΓ ó αѺπ½∞ΓáΓÑ ñáΓ∞ «Φ¿í¬π »ÑαÑ»«½¡Ñ-
  419. ¡¿∩, Ñß½¿ x ¡Ñ½∞º∩ »αÑ«íαẫóáΓ∞ ó µÑ½«Ñ τ¿ß½«.  
  420.  
  421.      Ä»Ñαᵿ¿ ß í¿ΓἿ.
  422.      ------------------
  423.      é   ñ«»«½¡Ñ¡¿Ñ  ¬  ß«ºñá¡¿ε  ¬«¼»½Ñ¬ß¡δσ  ΓÑßΓ«ó  ½«ú¿τÑ߬¿Ñ 
  424. «»ÑαáΓ«αδ  »«ºó«½∩εΓ  π»αáó½∩Γ∞  íẫó묨  ñó«¿τ¡δ¼¿  ¬«ñἿ   ¿σ 
  425. µÑ½«τ¿ß½Ñ¡¡δσ «»Ñαá¡ñ«ó. æá¼δÑ «íΘÑ¿ºóÑßΓ¡δÑ «»Ñαᵿ¿ - AND, OR ¿ 
  426. XOR ¼á߬¿α«óá¡¿Ñ.  
  427.      îá߬¿  AND ¿ß»«½∞ºπεΓß∩ ñ½∩ «τ¿ßΓ¬¿ óδíαá¡¡δσ í¿Γ«ó µÑ½«τ¿ß-
  428. ½Ñ¡¡«ú« º¡áτÑ¡¿∩,  ¡Ñ ºáΓαáú¿óá∩ «ßΓá½∞¡δσ í¿Γ«ó.  ìá»α¿¼Ñα,  ñ½∩ 
  429. «τ¿ßΓ¬¿  ¡á¿í«½ÑÑ  º¡áτ¿¼δσ 2 í¿Γ«ó µÑ½«τ¿ß½Ñ¡¡«⌐ óѽ¿τ¿¡δ &H9700 
  430. ¿ß»«½∞ºπ⌐ΓÑ AND ß  ¼á߬«⌐  &H3FFF,Γ.Ñ.  ó  ¼á߬Ѡ ß«ñÑαªáΓß∩  óßÑ 
  431. Ññ¿¡¿µδ,  ¬α«¼Ñ ΓÑσ »«º¿µ¿⌐ í¿Γ«ó,  ¬«Γ«αδÑ óδ ªÑ½áÑΓÑ »α¿óÑßΓ¿ ¬ 
  432. ¡π½ε: 
  433.  
  434.        1001 0111 0000 0000 &H9700
  435.    AND 0011 1111 1111 1111 &H3FFF  (¼á߬á)
  436.        --------------------------
  437.        0001 0111 0000 0000 &H1700  (αѺπ½∞ΓáΓ)
  438.  
  439.      îá߬á OR πßΓá¡áó½¿óáÑΓ óδíαá¡¡δÑ í¿Γδ µÑ½«ú« τ¿ß½á, ¡Ñ ó½¿∩∩ 
  440. ¡á «ßΓá½∞¡δÑ.  ä½∩ πßΓᡫ󫬠ñóπσ ¡á¿í«½ÑÑ ó᪡δσ í¿Γ«ó ó  &H9700 
  441. ¿ß»«½∞ºπ⌐ΓÑ OR ß ¼á߬«⌐ &HC000; Γ.Ñ.  ¼á߬á ß«ñÑαª¿Γ óßÑ ¡π½¿, ºá 
  442. ¿ß¬½ετÑ¡¿Ñ¼ »«º¿µ¿⌐ ΓÑσ í¿Γ«ó,  ¬«Γ«αδÑ  óδ  ªÑ½áÑΓÑ  »α¿óÑßΓ¿  ¬ 
  443. Ññ¿¡¿µÑ: 
  444.  
  445.         1001 0111 0000 0000 &H9700
  446.      OR 1100 0000 0000 0000 &HC000  (¼á߬á)
  447.         --------------------------
  448.         1101 0111 0000 0000 &HD700  (αѺπ½∞ΓáΓ)
  449.  
  450.      îá߬á XOR ñ«»«½¡∩ÑΓ («íαáΘáÑΓ) óδíαá¡¡δÑ µÑ½«τ¿ß½Ñ¡¡δÑ í¿Γδ, 
  451. ¡Ñ ó½¿∩∩ ¡á ñαπú¿Ñ µÑ½«τ¿ß½Ñ¡¡δÑ í¿Γδ.  ìá»α¿¼Ñα, τΓ«íδ ñ«»«½¡¿Γ∞ 
  452. 2  ¡á¿í«½ÑÑ ó᪡δσ í¿Γá ó &H9700 ¿ß»«½∞ºπ⌐ΓÑ XOR ß ¼á߬«⌐ &C0000; 
  453. Γ.Ñ. óßÑ ¡π½¿, ¬α«¼Ñ »«º¿µ¿⌐, ¬«Γ«αδÑ ¡πª¡« ñ«»«½¡¿Γ∞.  
  454.  
  455.         1001 0111 0000 0000 &H9700
  456.     XOR 1100 0000 0000 0000 &HC000  (¼á߬á)
  457.         --------------------------
  458.         0101 0111 0000 0000 &H5700  (αѺπ½∞ΓáΓ)
  459.  
  460.      Ä»Ñαᵿ¿ XOR τáßΓ« ¿ß»«½∞ºπεΓß∩ ó úαáΣ¿¬Ñ,  »«ß¬«½∞¬π »«ºó«-
  461. ½∩εΓ »ÑαѼÑΘáΓ∞ «íΩÑ¬Γ íѺ »«¼Ñσ ¡á ß½«ª¡«¼ Σ«¡Ñ. êß»«½∞ºπ⌐ΓÑ XOR 
  462. «ñ¿¡ αáº, τΓ«íδ ¡áα¿ß«óáΓ∞ «íΩÑ¬Γ ¡á ¬á¬«¼-½¿í« Σ«¡Ñ, á ºáΓѼ ÑΘÑ 
  463. αẠ¡á φΓ«¼ «íΩѬΓÑ ó Γ«¼ ªÑ ¼ÑßΓÑ, τΓ«íδ ßΓÑαÑΓ∞ Ñú«,  ¿ óÑα¡πΓ∞ 
  464. Σ«¡ ó »Ñαó«¡áτá½∞¡Ñ ß«ßΓ«∩¡¿Ñ.  
  465.  
  466.      æΓ᫬«óδÑ «»ÑαáΓ«αδ ¿ «»ÑαáΓ«αδ ßαáó¡Ñ¡¿∩.
  467.      ------------------------------------------           
  468.      ÆôÉüÄ üàëæêè »«ºó«½∩ÑΓ ßαáó¡¿óáΓ∞ ßΓ᫬«óδÑ ñá¡¡δÑ.  æΓ᫬«-
  469. óδÑ  óδαáªÑ¡¿∩ ¼«ª¡« »α«óÑα∩Γ∞ ¡á φ¬ó¿óá½Ñ¡Γ¡«ßΓ∞,  á ΓᬪѠá½Σá-
  470. ó¿Γ¡«Ñ π»«α∩ñ«τÑ¡¡«Ñ "í«½∞ΦÑ τѼ" ¿ "¼Ñ¡∞ΦÑ τѼ".  
  471.      äóá ßΓ᫬«óδσ óδαáªÑ¡¿∩ αáó¡δ Γ«úñá ¿  Γ«½∞¬«  Γ«úñá,  ¬«úñá 
  472. «¡¿  ß«ñÑαªáΓ  áíß«½εΓ¡« «ñ¿¡á¬«óδÑ ß¿¼ó«½δ ó «ñ¿¡á¬«ó«⌐ »«ß½Ññ«-
  473. óáΓѽ∞¡«ßΓ¿. ìá»α¿¼Ñα: 
  474.  
  475.      a$ = "CAT"
  476.      PRINT a$ = "CAT", a$ = "CATS", a$ = "cat"
  477.  
  478.      æΓ᫬«ó«Ñ π»«α∩ñ«τÑ¡¿Ñ «ß¡«óá¡« ¡á ñóπσ ¬α¿ΓÑα¿∩σ ¿ ó ñá¡¡«¼ 
  479. »«α∩ñ¬Ñ:  (1) íẫóδÑ º¡áτÑ¡¿∩ ASCII ß«ñÑαªáΘ¿σß∩ º¡á¬«ó,  ¿  (2) 
  480. 
  481. ñ½¿¡á.  ìá»α¿¼Ñα,  A ¼Ñ¡∞ΦÑ B,  Γ.¬.  ASCII ¬«ñ ñ½∩ A - 65 ¼Ñ¡∞ΦÑ 
  482. ¬«ñá ñ½∩ B - 66. çá¼ÑΓ∞ΓÑ, «ñ¡á¬«, τΓ« B ¼Ñ¡∞ΦÑ a, Γ.¬.  ¬«ñ ¬áª-
  483. ñ«⌐  ßΓα«τ¡«⌐  íπ¬óδ í«½∞ΦÑ ¬«ñá ß««ΓóÑΓßΓóπεΘÑ⌐ »α«»¿ß¡«⌐ (α«ó¡« 
  484. ¡á 32).  Åα¿ "ß«αΓ¿α«ó¬Ñ" ß¼ÑΦá¡¡«⌐ ßΓα«τ¡«-»α«»¿ß¡«⌐  ¿¡Σ«α¼áµ¿¿ 
  485. ¼«ª¡« ¿ß»«½∞º«óáΓ∞ Σπ¡¬µ¿¿ UCASE$ ¿½¿ LCASE$ ñ½∩ Γ«ú«,  τΓ«íδ óδ-
  486. í«α αÑú¿ßΓα«ó ¡Ñ ó½¿∩½ ¡á ß«αΓ¿α«ó¬π.  
  487.      ä½¿¡á ¿¼ÑÑΓ º¡áτÑ¡¿Ñ Γ«½∞¬« Ñß½¿ «íÑ ßΓ᫬¿ ¿ñÑ¡Γ¿τ¡δ ó»½«Γ∞ 
  488. ñ« ñ½¿¡δ ¬«α«Γ¬«⌐ ßΓ᫬¿;  ó φΓ«¼ ß½πτáÑ  í«½ÑÑ  ¬«α«Γ¬á∩  ßΓ᫬á 
  489. «µÑ¡¿óáÑΓß∩ ¬á¬ ¼Ñ¡∞Φá∩, τѼ ñ½¿¡¡á∩; ¡á»α¿¼Ñα, "CAT" ¼Ñ¡∞ΦÑ, τѼ 
  490. "CATS".  
  491.  
  492.                 Å«ñ»α«úαá¼¼δ, Σπ¡¬µ¿¿ ¿ »α«µÑñπαδ.
  493.                 ----------------------------------
  494.      æΓπ¬Γπαá  »α«úαá¼¼δ  ó ÆôÉüÄ üàëæêèÑ ¼«ªÑΓ íδΓ∞ π»α«ΘÑ¡á ¿ß-
  495. »«½∞º«ó᡿Ѽ »«ñ»α«úαá¼¼, »α«µÑñπα ¿ Σπ¡¬µ¿⌐.  Å«ñ»α«úαá¼¼á - φΓ« 
  496. »«¼ÑτÑ¡¡δ⌐  ¡áí«α  ¿¡ßΓαπ¬µ¿⌐,  ¿ß»«½¡∩Ѽδσ »α¿ ñ«ßΓ¿ªÑ¡¿¿ GOSUB. 
  497. Åα«µÑñπαá - φΓ« ¬á¬ íδ ¼¿¡¿»α«úαá¼¼á,  ¡áºδóáѼá∩ ΓᬪѠ »«ñ»α«ú-
  498. αá¼¼«⌐,   óδ»«½¡∩εΘá∩   ¡Ñ¬«Γ«αδÑ  ó᪡δÑ  τáßΓ¿  óáΦÑ⌐  «ß¡«ó¡«⌐ 
  499. »α«úαá¼¼δ. öπ¡¬µ¿∩ - φΓ« ¡áí«α ¬«¼á¡ñ, αѺπ½∞ΓáΓ«¼ óδ»«½¡Ñ¡¿∩ ¬«- 
  500. Γ«αδσ ∩ó½∩ÑΓß∩ º¡áτÑ¡¿Ñ τ¿ß½«ó«⌐ ¿½¿ ß¼ó«½∞¡«⌐ (ßΓ᫬«ó«⌐)  »ÑαÑ- 
  501. ¼Ñ¡¡«⌐,  ºáó¿ß∩ΘÑÑ  «Γ  »áαá¼ÑΓα«ó »ÑαÑñáóáѼδσ Σπ¡¬µ¿¿.  Å«¼ÑΘá∩ 
  502. ¬«¼»½Ñ¬ß¡δ⌐ ¿/¿½¿ τáßΓ« ¿ß»«½∞ºπѼδ⌐ ¬«ñ ó  φΓ¿  ßΓαπ¬Γπαδ  ¼«ª¡« 
  503. π»α«ßΓ¿Γ∞ ¿ ß«¬αáΓ¿Γ∞ óáΦ¿ »α«úαá¼¼δ.  
  504.      Åα«µÑñπαδ ÆôÉüÄ üàëæêèá ¿ «»αÑñѽ∩ѼδÑ »«½∞º«óáΓѽѼ Σπ¡¬µ¿¿ 
  505. óδσ«ñ∩Γ  ºá  αἬ¿ »α«ßΓ«ú« ßΓαπΓπα¿α«óá¡¿∩,  »αÑñ½áúáÑ¼δ¼¿ »«ñ»-
  506. α«úαἼἿ.  ò«Γ∩ ¼¿½½¿«¡δ »α«úαá¼¼ ó üÑ⌐ß¿¬Ñ í뫨 ¡á»¿ßá¡δ ß »«-
  507. ¼«Θ∞ε  GOSUB/RETURN  ¬á¬ «ß¡«ó¡δσ «αú¡á¿ºáµ¿«¡¡δσ »α¿ß»«ß«í½Ñ¡¿⌐, 
  508. ¼δ αѬ«¼Ñ¡ñπѼ ¿ß»«½∞º«óáΓ∞ φΓ¿ π½πτΦÑ¡¡δÑ ßΓαπ¬Γπαδ.  
  509.      Åα«µÑñπαδ ¿ Σπ¡¬µ¿¿ ÆôÉüÄ üàëæêèá «íÑß»Ñτ¿óáεΓ ¿ßΓ¿¡¡πε  αÑ-
  510. ¬παß¿ε,  »ÑαÑñáτπ »áαá¼ÑΓα«ó ¿ ñ«ßΓπ» ¬ ½«¬á½∞¡δ¼,  ßΓáΓ¿τÑ߬¿¼ ¿ 
  511. ú½«íá½∞¡δ¼ »ÑαѼѡ¡δ¼.  àß½¿ óδ ÑΘÑ¡ ¡Ñ ¿ºóÑñ὿ »αÑ¿¼πΘÑßΓó  »Ñ-
  512. αÑñáτ¿ »áαá¼ÑΓα«ó,  ½«¬á½∞¡δσ »ÑαѼѡ¡δσ ¿ αѬπαß¿¿, óá¼ «ßΓáÑΓß∩ 
  513. Γ«½∞¬« »«»α«í«óáΓ∞.  
  514.      ô »α«µÑñπα ¿ Σπ¡¬µ¿⌐ ßσ«ñßΓóá í«½∞ΦÑ, τѼ αẽ¿τ¿⌐. ìá¿í«½ÑÑ 
  515. ∩α¬«Ñ αẽ¿τ¿Ñ ß«ßΓ«¿Γ ó Γ«¼,  τΓ« Σπ¡¬µ¿¿ ó«ºóαáΘáεΓ óѽ¿τ¿¡π  ¿ 
  516. Γᬿ¼ «íαẫ¼,  óδºδóáεΓß∩ ¡Ñ∩ó¡«, »«∩ó½∩∩ß∞ ó óδαáªÑ¡¿∩σ (ß "FN" 
  517. »α¿ß«Ññ¿¡Ñ¡¡δ¼ ó»ÑαÑñ¿). Åα«µÑñπαδ ¡Ñ ó«ºóαáΘáεΓ óѽ¿τ¿¡ ¿ ñ«½ª¡δ 
  518. »«∩ó½∩Γ∞ß∩ ∩ó¡« «»ÑαáΓ«α«¼ CALL (é¢çÄé).  
  519.      ìá»α¿¼Ñα,
  520.  
  521.      a = b + FNCubeROOT(c)     `ó맮ó Σπ¡¬µ¿¿
  522.  
  523.      CALL OutChar(a)           `ó맮ó »α«µÑñπαδ
  524.  
  525.      Å«ñ»α«úαá¼¼δ.
  526.      -------------                        
  527.      Å«ñ»α«úαá¼¼δ - φΓ« Γαáñ¿µ¿«¡¡δ⌐ ¼ÑΓ«ñ αáºí¿ó¬¿ »α«úαá¼¼ üÑ⌐-
  528. ß¿¬;  «¡¿ ß«ßΓ«∩Γ ¿º »«¼ÑτÑ¡¡δσ úαπ»» «»ÑαáΓ«α«ó ¿  ºá¬á¡τ¿óáεΓß∩ 
  529. «»ÑαáΓ«α«¼  RETURN  (éÄçéÉÇÆ).  ä½∩ óδ»«½¡Ñ¡¿∩ »«ñ»α«úαá¼¼δ ¼«ª¡« 
  530. ¿ß»«½∞º«óáΓ∞ «»ÑαáΓ«α  GOSUB  ñ½∩  π¬áºá¡¿∩  ¼ÑΓ¬¿,  ßó∩ºá¡¡«⌐  ß 
  531. »Ñαóδ¼  «»ÑαáΓ«α«¼ »«ñ»α«úαá¼¼δ.  Åα¿ óßΓαÑτÑ ß «»ÑαáΓ«α«¼ RETURN 
  532. π»αáó½Ñ¡¿Ñ »ÑαÑσ«ñ¿Γ ¬ «»ÑαáΓ«απ,  ¡Ñ»«ßαÑñßΓóÑ¡¡« ß½ÑñπεΘÑ¼π  ºá 
  533. óδº«ó«¼ GOSUB.  
  534.  
  535.     ìá»α¿¼Ñα:
  536.                    GOSUB AddMonths
  537.                PRINT total
  538.              END
  539.                    AddMonhts:
  540.                    total = 0
  541.                FOR i = 1 TO 12
  542.                    total = total + month(i)
  543.                NEXT i
  544.                      RETURN
  545.  
  546.      öπ¡¬µ¿¿.
  547.      --------
  548.      æπΘÑßΓóπÑΓ ñóá Γ¿»á Σπ¡¬µ¿⌐:  ßΓá¡ñáαΓ¡δÑ (ΓᬿÑ,  ¬á¬ COS ¿ 
  549. LEFT$), «»αÑñѽ∩ѼδÑ ∩ºδ¬«¼ »α«úαá¼¼¿α«óá¡¿∩ ¿ ºáñá¡¡δÑ »«½∞º«óá-
  550. 
  551. ΓѽѼ,  ¬«Γ«αδÑ ¼«úπΓ ß«ßΓ«∩Γ∞ ¬á¬ ¿º «ñ¡«⌐,  Γᬠ¿ ¿º ¡Ñ߬«½∞¬¿σ 
  552. ßΓ᫬.  ü«½ÑÑ »«ñα«í¡« ºáñá¡¡δÑ Σπ¡¬µ¿¿ «»¿ßá¡δ ó ß««ΓóÑΓßΓóπεΘ¿σ 
  553. αáºñѽáσ â½áóδ 5. "æ»αáó«τ¡«Ñ απ¬«ó«ñßΓó« »« ÆôÉüÄ üàëæêèπ.  
  554.      ì¿ªÑ »α¿óÑñÑ¡ »α¿¼Ñα ß¿¡Γá¬ß¿ßá «ñ¡«ßΓα«τ¡«⌐ Σπ¡¬µ¿¿:
  555.  
  556.      DEF FNidentifier [(parameter list)] = expression
  557.            ¿ñÑ¡Γ¿Σ¿¬áΓ«α [(ß»¿ß«¬ »áαá¼ÑΓα«ó)]
  558.  
  559. úñÑ ¿ñÑ¡Γ¿Σ¿¬áΓ«α - φΓ« ºáñá¡¡«Ñ »«½∞º«óáΓѽѼ  ¿¼∩ ß»Ñµ¿Σ¿τÑ߬«-
  560. ú« óδαáªÑ¡¿∩, ß»¿ß«¬ »áαá¼ÑΓα«ó - ñ«»«½¡¿Γѽ∞¡á∩ «Γñѽ∩Ѽá∩ ºá»∩-
  561. Γ«⌐ »«ß½Ññ«óáΓѽ∞¡«ßΓ∞ «ñ¡«ú« ¿½¿ í«½ÑÑ ¿ñÑ¡Γ¿Σ¿¬áΓ«α«ó, »αÑñßΓá-
  562. ó½∩εΘ¿σ ¿¡Σ«α¼áµ¿«¡¡δÑ «íΩѬΓδ, ¡á»αáó½∩ѼδÑ Σπ¡¬µ¿¿ »α¿ ÑÑ ó맮-
  563. óÑ ó« óαѼ∩ óδ»«½¡Ñ¡¿∩ »α«úαá¼¼δ (¡Ñ í«½ÑÑ 16 »áαá¼ÑΓα«ó ñ½∩  «ñ-
  564. ¡«⌐ Σπ¡¬µ¿¿), óδαáªÑ¡¿Ñ «»αÑñѽ∩ÑΓ «íαáí«Γ¬π ñá¡¡δσ ñ½∩ »«½πτÑ¡¿∩ 
  565. º¡áτÑ¡¿∩ ó«ºóαáΘáѼ«ú« (óδñáóδѼ«ú«) Σπ¡¬µ¿Ñ⌐.  
  566.      Éáßß¼«Γα¿¼,  ¡á»α¿¼Ñα,  ¼ÑΓÑ«α«½«ú¿τÑ߬πε »α«úαá¼¼π, ¬«Γ«αá∩ 
  567. óßÑúñá ñ«½ª¡á »αÑ«íαẫóδóáΓ∞ úαáñπßδ öáαÑ¡úÑ⌐Γá (»«¬áºδóáѼδÑ ¡á 
  568. φ¬αá¡Ñ ¿ óó«ñ¿¼δÑ ß ¬½áó¿áΓπαδ). Äñ¡«ßΓα«τ¡δÑ Σπ¡¬µ¿¿ - í½áú« ñ½∩ 
  569. Γᬫú« Γ¿»á »α«úαá¼¼: 
  570.  
  571.    DEF FNCtoF(degreesC) = (1.8 * degreesC) + 32
  572.    DEF FNFtoC(degreesF) = (degreesC - 32) * .555555
  573.  
  574.      ä½∩ «Γ«íαáªÑ¡¿∩ »ÑαѼѡ¡«⌐ ΓѼ»ÑαáΓπαδ,  ¬«Γ«αá∩ »« ß«ú½áΦÑ-
  575. ¡¿ε  óßÑúñá  óδαáªáÑΓß∩  ó óѽ¿τ¿¡áσ ûѽ∞ß¿∩,  ¿ß»«½∞ºπ⌐ΓÑ FNCtoF 
  576. τ¿ΓáÑΓß∩ ¬á¬ "Σπ¡¬µ¿∩ û ó ö") ó ½εí«¼  «»ÑαáΓ«αÑ,  ó«ß»α¿¡¿¼áεΘѼ 
  577. τ¿ß½Ñ¡¡δÑ óδαáªÑ¡¿∩; ¡á»α¿¼Ñα: 
  578.  
  579.    PRINT:
  580.          temp = 100
  581.    PRINT FNCtoF(temp)
  582.  
  583.      ä½∩ »ÑαÑó«ñá º¡áτÑ¡¿⌐ ¿º úαáñπß«ó öáαÑ¡úÑ⌐Γá ó úαáñπßδ ûѽ∞-
  584. ß¿∩ »«½∞ºπ⌐ΓÑß∞ FNCtoC: 
  585.  
  586.    INPUT "éóÑñ¿ΓÑ ßÑú«ñ¡∩Φ¡εε ΓѼ»ÑαáΓπαπ"
  587.         temp = FNCtoC(th)
  588.  
  589.      î¡«ú«ßΓα«τ¡δÑ  Σπ¡¬µ¿¿  ÆôÉüÄ  üàëæêèá íÑαπΓ ¡á ßÑí∩ ú«αáºñ« 
  590. í«½∞Φπε α«½∞,  τѼ αáºαÑΦÑ¡« »α«ßΓ묨 «ñ¡«ßΓα«τ¡δ¼¿ Σπ¡¬µ¿∩¼¿ ê¡-
  591. ΓÑα»αÑΓáΓ«αá üÑ⌐ß¿¬á.  ÆôÉüÄ üàëæêè »«ºó«½∩ÑΓ Σπ¡¬µ¿¿ αáß»α«ßΓαá-
  592. ¡¿Γ∞ß∩ »« ¡Ñ߬«½∞¬¿¼ ßΓα«¬á¼ »α«úαá¼¼δ ¿ Σá¬Γ¿τÑ߬¿ íδΓ∞  ¿ß»«½∞-
  593. º«óá¡¡«⌐  ¬á¬  »«ñ»α«úαá¼¼á,   ¬«Γ«αá∩  ¼«ªÑΓ  ΓᬪѠ ¿  »«½πτ¿Γ∞ 
  594. º¡áτÑ¡¿Ñ.  ö«α¼á½∞¡δ⌐ ß¿¡Γá¬ß¿ß ñ½∩ «»¿ßá¡¿∩ ¼¡«ú«ßΓα«τ¡«⌐  Σπ¡¬-
  595. µ¿¿ ß½ÑñπεΘ¿⌐: 
  596.  
  597.    DEF FN¿ñÑ¡Γ¿Σ¿¬áΓ«α [(ß»¿ß«¬-»áαá¼ÑΓα«ó)]
  598.  
  599.      [«íΩ∩ó½Ñ¡¿∩ »ÑαѼѡ¡δσ]
  600.   . «»ÑαáΓ«αδ
  601.   .
  602.    [EXIT DEF]
  603.    [FN ¿¼∩-Σπ¡¬µ¿¿ = óδαáªÑ¡¿Ñ]
  604.   END DEF
  605.  
  606. úñÑ ¿ñÑ¡Γ¿Σ¿¬áΓ«α «»¿ßδóáÑΓ ¿¼∩ Σπ¡¬µ¿¿,  ß»¿ß«¬-»áαá¼ÑΓα«ó - φΓ« 
  607. ñ«»«½¡¿Γѽ∞¡δ⌐ «Γñѽ∩Ѽδ⌐ ºá»∩Γ«⌐ ß»¿ß«¬  Σ«α¼á½∞¡δσ  »áαá¼ÑΓα«ó, 
  608. »αÑñßΓáóñ∩εΘ¿σ »ÑαѼѡ¡δÑ, »ÑαÑñáóáѼδÑ Σπ¡¬¿¿ »α¿ ÑÑ ó맮óÑ.  
  609.      ùΓ«íδ »α«¿½½εßΓα¿α«óáΓ∞ φΓ«,  αáßß¼«Γα¿¼ ¼¡«ú«ßΓα«τ¡πε Σπ¡¬-
  610. µ¿ε öá¬Γ«α¿á½, ½πτΦ¿⌐ ñαπú ßΓáΓ¿ßΓ¿¬á.  (ÑΓ íδΓ∞, óδ óß»«¼¡¿ΓÑ 
  611. ¿º «»δΓá »αÑñδñπΘ¿σ ºá¡∩Γ¿⌐,  τΓ« Σá¬Γ«α¿á½ »«½«ª¿Γѽ∞¡«ú« µÑ½«ú« 
  612. τ¿ß½á n, «»¿ßá¡¡«ú« ¬á¬ n!,  φΓ« »α«¿ºóÑñÑ¡¿Ñ »«½«ª¿Γѽ∞¡δσ µÑ½δσ 
  613. τ¿ßѽ ¼Ñ¡∞ΦÑ ¿½¿ αáó¡δσ n.  
  614.      ìá»α¿¼Ñα, 6! = 6 * 5 * 4 * 3 * 2 * 1 = 720).
  615.      öá¬Γ«α¿á½δ  ¡Ñ  ó¬½ετÑ¡δ  ó  ¡áí«α óßΓα«Ñ¡¡δσ ¼áΓѼáΓ¿τÑ߬¿σ 
  616. «»ÑαáΓ«α«ó ÆôÉüÄ üàëæêèá,  ¡«  ¼¡«ú«ßΓα«τ¡δÑ  Σπ¡¬µ¿¿  ó«ß»«½¡∩εΓ 
  617. φëà»α«íѽ: 
  618. 
  619.      100 DEF FNFactorial#(x%)
  620.      110   LOCAL i%, total#
  621.      120   IF x% < OR x% > 170 THEN FNFactorial# = -1 : EXIT DEF
  622.      130   total# = 1
  623.      140   FOR i% = x% TO 2 STEP -1
  624.      150     total# = total# * i%
  625.      160   NEXT i%
  626.      170   FNFactorial# = total#
  627.      180 END DEF
  628.  
  629.      FNFactorial  ñѼ«¡ßΓα¿απÑΓ  ßΓαπ¬Γπαπ  ¼¡«ú«ßΓα«τ¡«⌐ Σπ¡¬µ¿¿ 
  630. (¡«¼Ñαá ßΓ᫬ ó¬½ετÑ¡δ,  »«φΓ«¼π ¼δ ¼«ªÑ¼ ßßδ½áΓ∞ß∩ ¡á ßΓ᫬¿  »« 
  631. ¡«¼Ñαá¼ »α¿ ¿σ «íßπªñÑ¡¿¿ - «¡¿, ¬«¡Ñτ¡«, ¡Ñ«í∩ºáΓѽ∞¡δ).  
  632.      Ä»¿ßá¡¿∩  Σπ¡¬µ¿¿  «úαá¡¿τÑ¡δ  «»ÑαáΓ«αἿ DEF FN ¿ END DEF; 
  633. ñѽá∩ «ΓßΓπ» ó ñóá º¡á¬á »ÑαÑñ «»ÑαáΓ«αἿ DEF FN ¿ END  DEF,  ¼δ 
  634. τÑΓ¬« «τÑατ¿óáѼ φΓπ ßΓαπ¬Γπαπ.  
  635.      æΓ᫬á 100 »α¿ßóá¿óáÑΓ Σπ¡¬µ¿¿ ¿¼∩ ¿,  ß½Ññ«óáΓѽ∞¡«, Γ¿» (# 
  636. «º¡áτáÑΓ ñó«⌐¡πε  Γ«τ¡«ßΓ∞).  ô  FNFactorial  «ñ¿¡  µÑ½«τ¿ß½Ñ¡¡δ⌐ 
  637. Σ«α¼á½∞¡δ⌐ »áαá¼ÑΓα x%.  
  638.      æΓα«¬á  110 «»¿ßδóáÑΓ »áα𠽫¬á½∞¡δσ »ÑαѼѡ¡δσ i% ¿ total#.  
  639. 﫬á½∞¡δÑ »Ñα¼Ñ¡¡δÑ - φΓ« óαѼѡ¡δÑ ßΓαπ¬Γπαδ,  ñ«ßΓπ»¡δÑ ¿ ó¿ñ¿-
  640. ¼δÑ  Γ«½∞¬«  ó¡πΓα¿  «»¿ßá¡¿∩  Σπ¡¬µ¿¿ ¿½¿ »α«µÑñπαδ (»«α«í¡« «¡¿ 
  641. αáßß¼«ΓαÑ¡δ ¡¿ªÑ ó αáºñѽѠ"﫬á½∞¡δÑ »Ñα¼Ñ¡¡δÑ").  
  642.      æΓα«¬á  120  »α«¿ºó«ñ¿Γ  »α«óÑα¬π  áαúπ¼Ñ¡Γá,  »ÑαÑñáóáѼ«ú« 
  643. FNFactorial  .  üÑßß¼δ߽ѡ¡« »δΓáΓ∞ß∩ ¡á⌐Γ¿ Σá¬Γ«α¿á½ «Γα¿µáΓѽ∞-
  644. ¡«ú« τ¿ß½á (Ñú« »α«ßΓ« ¡Ñ ßπΘÑßΓóπÑΓ) ¿½¿ τ¿ß½á  ßΓ«½∞  í«½∞Φ«ú«, 
  645. τΓ«  «¡«  ñáÑΓ αѺπ½∞ΓáΓ,  óδσ«ñ∩Θ¿⌐ ºá 10^308 - ñ¿á»áº«¡ ñó«⌐¡«⌐ 
  646. Γ«τ¡«ßΓ¿ (Σá¬Γ«α¿á½δ óδαáßΓáεΓ «τÑ¡∞ íδßΓα«  -  170!  φΓ«  ß¬áτ«¬ 
  647. 7,26 + 308).  é φΓ¿σ ß½πτá∩σ ß½ÑñπÑΓ «»αÑñѽ∩Γ∞ «íαáΓ¡«Ñ º¡áτÑ¡¿Ñ 
  648. Σπ¡¬µ¿¿,  ¬á¬ -1 ¿ EXIT DEF.  Åα«úαá¼¼δ,  ó ¬«Γ«αδσ  ¿ß»«½∞ºπÑΓß∩ 
  649. FNFactorial,   ñ«½ª¡δ  αáß»«º¡áóáΓ∞,  τΓ«  «íαáΓ¡«Ñ  º¡áτÑ¡¿Ñ  -1 
  650. »αÑñßΓáó½∩ÑΓ ß«ßΓ«∩¡¿Ñ «Φ¿í¬¿,  ¿ ñÑ⌐ßΓó«óáΓ∞ ß««ΓóÑΓßΓóπεΘ¿¼ «í-
  651. αẫ¼. (Æ«τ¡« ΓᬠªÑ 0! «»αÑñѽ∩ÑΓß∩ ¬á¬ 1).  
  652.      EXIT  DEF  ñ½∩  Σπ¡¬µ¿⌐  Γ« ªÑ,  τΓ« RETURN ñ½∩ »«ñ»α«úαá¼¼: 
  653. ó«ºóαáΘáÑΓ π»αáó½Ñ¡¿Ñ «»ÑαáΓ«απ,  óδºóáóΦѼπ Σπ¡¬µ¿ε.  Æᬠ¿  σ«-
  654. τÑΓß∩ ¿ß»«½∞º«óáΓ∞ ñ½∩ φΓ«ú« RETURN - ¡« ¡Ñ ñѽá⌐ΓÑ φΓ«ú«!  Äíαá-
  655. Γ¿ΓѠ󡿼᡿Ñ,  τΓ« EXIT DEF ó«óßÑ ¡Ñ«í∩ºáΓѽѡ,  Ñß½¿ Γ«½∞¬« óá¼ 
  656. ¡Ñ ¡πª¡« óÑα¡πΓ∞ß∩ ñ« ¬«¡µá óδ»«½¡Ñ¡¿∩ Σπ¡¬µ¿¿.  
  657.      æΓ᫬¿ ß 130 »« 160 «»αÑñѽ∩εΓ á½ú«α¿Γ¼ ñ½∩ αáßτÑΓá Σá¬Γ«α¿-
  658. Ὣó.  ¥Γá  τáßΓ∞ ¼¡«ú«ßΓα«τ¡«⌐ Σπ¡¬µ¿¿ ("Γѽ«") ¼«ªÑΓ íδΓ∞ ß¬«½∞ 
  659. ¡Ñ«íσ«ñ¿¼« í«½∞Φ«⌐ ¿½¿ ¼á½«⌐.  
  660.      æΓα«¬á  170  «»αÑñѽ∩ÑΓ  óѽ¿τ¿¡π,  óδñáóáѼπε  FNFactorial, 
  661. »α¿ßóá¿óá∩ º¡áτÑ¡¿Ñ ¿¼Ñ¡¿ Σπ¡¬µ¿¿.  ôñ¿ó¿Γѽ∞¡«, ¡« ¡áº¡áτÑ¡¿Ñ ¡Ñ 
  662. ∩ó½∩ÑΓß∩ ß¿¡Γá¬ß¿τÑ߬¿¼ ΓαÑí«ó᡿Ѽ ñ½∩ «»¿ßá¡¿∩ Σπ¡¬µ¿¿. àß½¿ óδ 
  663. ¡Ñ »α«¿ºóÑñÑΓÑ ¡áº¡áτÑ¡¿Ñ  ¿¼Ñ¡¿  Σπ¡¬µ¿¿,  Γ«  ó«ºóαáΘáѼá∩  óÑ-
  664. ½¿τ¿¡á íπñÑΓ ¡Ñ«»αÑñѽѡ¡«⌐.  
  665.      Ä»αÑñѽѡ¿Ñ  FNFactorial  ºáóÑαΦáÑΓß∩  «»ÑαáΓ«α¼  END  DEF ó 
  666. ßΓα«¬Ñ 180.  END DEF ¬á¬ ¿ EXIT DEF, ó«ºóαáΘáÑΓ π»αáó½Ñ¡¿Ñ «»Ñαá-
  667. Γ«απ,  óδºóáóΦѼπ  Σπ¡¬µ¿ε  (Ä»ÑαáΓ«α END ¡ÑßÑΓ,  »«ªá½π⌐,  ßá¼πε 
  668. í«½∞Φπε ¡áúαπº¬π ó ß¿¡Γá¬ß¿ßÑ ÆôÉüÄ üàëæêèá - «¡ ¿ß»½∞ºπÑΓß∩  ñ½∩ 
  669. ºáóÑαΦÑ¡¿∩ µÑ½«ú« α∩ñá ßΓαπ¬Γπα.) 
  670.      éδ ¡¿¬«úñá ¡Ñ ºáñπ¼δó὿ß∞,  ß¬«½∞¬« ¬«¼í¿¡áµ¿⌐ ¼«ª¡« »α«¿º-
  671. óÑßΓ¿ ß ¬«½«ñ«⌐ ¬áαΓ? FNFactorial º¡áÑΓ: 
  672.  
  673.      PRINT FNFactorial#(52)
  674.  
  675. ñáÑΓ ó αѺπ½∞ΓáΓÑ 8.065817517094388E069.
  676.  
  677.      Å«ß¬«½∞¬π FNFactorial «»αÑñѽ∩ÑΓß∩ ¬á¬  ¿¼ÑεΘ¿⌐  µÑ½«τ¿ß½Ñ¡-
  678. ¡δ⌐ Σ«α¼á½∞¡δ⌐ »áαá¼ÑΓα,  áαúπ¼Ñ¡Γδ ß »½áóáεΘÑ⌐ ºá»∩Γ«⌐ »ÑαÑñ »Ñ-
  679. αÑñáτÑ⌐ Ñ¼π «¬απú½∩εΓß∩ ñ« µÑ½δσ τ¿ßѽ;  ¡á»α¿¼Ñα, FNFactorial(2, 
  680. 7)  Γ«  ªÑ,  τΓ«  FNFactorial(3).  àß½¿ óδ ó맮óÑΓÑ FNFactorial ß 
  681. τ¿ß½«¼, í«½∞Φ¿¼,  τѼ ¼«ªÑΓ íδΓ∞ «íαáí«Γá¡« »α«úαá¼¼«⌐ ÆôÉüÄ üàë-
  682. æêèá  "Ĭαπú½¿Γ∞-ñ«-µÑ½«ú«" (í«½∞ΦÑ 32767 ¿½¿ ¼Ñ¡∞ΦÑ -32768),  óδ 
  683. »«½πτ¿ΓÑ «Φ¿í¬π "6" »α¿ óδ»«½¡Ñ¡¿¿ - ÅÑαÑ»«½¡Ñ¡¿Ñ.  
  684.      Æ«τ¡« ΓᬠªÑ «íαáíáΓδóáεΓß∩ αáúπ¼Ñ¡Γδ ñ½∩ óßΓα«Ñ¡¡δσ Σπ¡¬µ¿⌐ 
  685. ÆôÉüÄ üàëæêèá, »αÑñ»«½áúáεΘ¿σ µÑ½«τ¿ß½Ñ¡¡δÑ áαúπ¼Ñ¡Γδ;  ¡á»α¿¼Ñα, 
  686. LOCATE 2.7^ 1 (ìÇëÆê 2.7, 1) »ÑαÑó«ñ¿Γ ¬παß«α ¡á 3-ε ßΓ᫬π.  
  687. 
  688.      ö«α¼á½∞¡δÑ ¿ Σá¬Γ¿τÑ߬¿Ñ »áαá¼ÑΓαδ.
  689.      -----------------------------------
  690.      ÅÑαѼѡ¡δÑ,  »«∩ó½∩εΘ¿Ñß∩ ó ß»¿ß¬Ñ »áαá¼ÑΓα«ó  »α¿  «»¿ßá¡¿¿ 
  691. Σπ¡¬µ¿¿ ¡áºδóáεΓß∩ Σ«α¼á½∞¡δ¼¿ »áαá¼ÑΓαἿ. Ä¡¿ ß½πªáΓ Γ«½∞¬« ñ½∩ 
  692. «»αÑñѽѡ¿∩  Σπ¡¬µ¿¿  ¿ »«½¡«ßΓ∞ε «ΓñÑ½Ñ¡δ «Γ ñαπú¿σ »ÑαѼѡ¡δσ ó 
  693. »α«úαἼѠߠΓᬿ¼ ªÑ ¡áºó᡿Ѽ. é ¬áτÑßΓóÑ ¿½½εßΓαᵿ¿ αáßß¼«Γα¿¼ 
  694. ß½ÑñπεΘπε ¬«α«Γ¬πε »α«úαá¼¼π: 
  695.  
  696.      100 DEF FNArea(x,y) x * y
  697.      110 x = 56
  698.      120 PRINT x, FNArea(2,3),x
  699.  
  700.      ÅÑαѼѡ¡á∩ x ó 110 ¿ 120 ßΓ᫬áσ φΓ«⌐ »α«úαá¼¼δ ¡Ñ ßó∩ºá¡á ß 
  701. Σ«α¼á½∞¡δ¼  »áαá¼ÑΓα«¼  x,  «»αÑñѽѡ¡δ¼  ó Σπ¡¬µ¿¿ Area ó »Ñαó«⌐ 
  702. ßΓ᫬Ñ. Åα¿ óδ»«½¡Ñ¡¿¿ φΓ«⌐ »α«úαá¼¼δ x ß«σαá¡∩ÑΓ ßó«Ñ º¡áτÑ¡¿Ñ ó 
  703. ½εí«⌐ τáßΓ¿ ó맮óá ó FNArea: ó «í«¿σ ß½πτá∩σ »ÑτáΓáÑΓß∩ 56.  
  704.     ç¡áτÑ¡¿∩, »«ßΓπ»áεΘ¿Ñ Σπ¡¬µ¿¿ »α¿ óδ»«½¡Ñ¡¿¿,  ¿¡«úñá ¡áºδóá-
  705. εΓ Σá¬Γ¿τÑ߬¿¼¿ »áαá¼ÑΓαἿ.  é »«ß½Ññ¡Ñ¼ »α¿¼ÑαÑ τ¿ß½Ñ¡¡δÑ ¬«¡ß-
  706. Γá¡Γδ 2¿ 3 - Σá¬Γ¿τÑ߬¿Ñ »áαá¼ÑΓαδ, »ÑαÑñá¡¡δÑ FNArea.  öá¬Γ¿τÑß-
  707. ¬¿Ñ »áαá¼ÑΓαδ ó»«½¡Ñ ¼«úπΓ íδΓ∞ »Ñα¼Ñ¡¡δ¼¿: 
  708.  
  709.      a = 2: b  = 3
  710.      PRINT FNArea(a,b)
  711.  
  712.      Æ¿»δ Σπ¡¬µ¿⌐.
  713.      -------------
  714.      öπ¡¬µ¿¿  ¼«úπΓ  ó«ºóαáΘáΓ∞  ½εí«⌐ ¿º τÑΓδαÑσ τ¿ß½Ñ¡¡δσ Γ¿»«ó 
  715. (µÑ½«τ¿ß½Ñ¡¡δ⌐, ñ½¿¡¡δ⌐ µÑ½«τ¿ß½Ñ¡¡δ⌐, ß »½áóáεΘÑ⌐ ºá»∩Γ«⌐ ß «ñ¿- 
  716. ¡áα¡«⌐ ¿ ñó«⌐¡«⌐ Γ«τ¡«ßΓ∞ε), á ΓᬪѠßΓ᫬«óδ⌐ Γ¿».  Æ¿» Σπ¡¬µ¿¿, 
  717. ¬á¬ ¿ Γ¿» »ÑαѼѡ¡«⌐, «»αÑñѽ∩ÑΓß∩ ÑÑ ¿¼Ñ¡Ñ¼.  é ¡Ñ¼ ¿ß»«½∞ºπεΓß∩ 
  718. ß¿¼ó«½δ «»¿ßá¡¿∩ Γ¿»«ó ¿ «»ÑαáΓ«α DEFtype, ¡á»α¿¼Ñα: 
  719.  
  720.      DEF FNIntSquareRoot %(x) = INT(SQR(x))
  721.      PRINT FHIntSquareRoot %(2)
  722. ¿
  723.      DEF FNRepeatFirst$ (a$) = LEFT$ (a$,1)+a$
  724.      PRINT FNRepeatFirst$(`Hello`)
  725.  
  726.      Å«»δΓ¬á »α¿ßó«¿Γ∞ ßΓ᫬«óπε Σπ¡¬µ¿ε τ¿ß½Ñ¡¡«⌐ »ÑαѼѡ¡«⌐ ¿½¿ 
  727. τ¿ß½Ñ¡¡πε  Σπ¡¬µ¿ε - ßΓ᫬«ó«⌐ »ÑαѼѡ¡«⌐ »α¿ó«ñ¿Γ,  ¬á¬ ¿ ß½Ññ«-
  728. óὫ «ª¿ñáΓ∞, ¬ «Φ¿í¬Ñ 13: ìÑß««ΓóÑΓßΓó¿Ñ Γ¿»á.  
  729.  
  730.      Åα«µÑñπαδ.
  731.      ----------                         
  732.      Åα«µÑñπαδ - φΓ« í½«¬¿ »α«úαá¼¼δ,  ºá¬½ετÑ¡¡δÑ ¼Ñªñπ «»ÑαáΓ«-
  733. αἿ  SUB ¿ END SUB.  ö«α¼á½∞¡δ⌐ ß¿¡Γá¬ß¿ß ñ½∩ «»¿ßá¡¿∩ »α«µÑñπαδ 
  734. ß½ÑñπεΘ¿⌐: 
  735.  
  736.  SUB ¿¼∩ »α«µÑñπαδ [(ß»¿ß«¬ »áαá¼ÑΓα«ó)] [INLINE]
  737.      [«óΩ∩ó½Ñ¡¿Ñ »ÑαѼѡ¡δσ]
  738.     .
  739.     .«»ÑαáΓ«αδ
  740.     .
  741.     [EXIT SUB]
  742.  END SUB
  743.   
  744.      ê¼∩ »α«µÑñπαδ ¿ñÑ¡Γ¿Σ¿µ¿απÑΓ »α«µÑñπαπ ¿ ¼«ªÑΓ ß«ñÑαªáΓ∞  ñ« 
  745. 31  º¡á¬á,  ¡« «¡« ¡Ñ ñ«½ª¡« ó¬½ετáΓ∞ß∩ ¡¿ ó «ñ¿¡ ñαπú«⌐ «»ÑαáΓ«α 
  746. SUB ó »α«úαá¼¼Ñ;  ß»¿ß«¬ »áαá¼ÑΓα«ó - φΓ« ¡Ñ«í∩ºáΓѽ∞¡δ⌐, «Γñѽ∩-
  747. Ѽδ⌐ ºá»∩Γ«⌐,  ß»¿ß«¬ Σ«α¼á½∞¡δσ »áαá¼ÑΓα«ó, »αÑñßΓáó½∩εΘ¿σ »ÑαÑ-
  748. ¼Ñ¡¡δÑ, »ÑαÑñáóáѼδÑ »α«µÑñπαÑ »α¿ ÑÑ ó맮óÑ.  (¡Ñ í«½ÑÑ 16 »áαá-
  749. ¼ÑΓα«ó  ñ½∩ «ñ¡«⌐ »α«µÑñπαδ.) INLINE (éæÆÉÄàììǃ) π¬áºδóáÑΓ,  τΓ« 
  750. »α«µÑñπαá ß«ñÑαª¿Γ ¿º¼Ñ¡∩εΘÑÑß∩ ¬«½¿τÑßΓó« ¡ÑΓ¿»«óδσ »áαá¼ÑΓα«ó ¿ 
  751. óßΓα«Ñ¡¡δ⌐ ¬«ñ ÇßßѼí½Ñαá  (ß¼.  Åα¿½«ªÑ¡¿Ñ  æ  "ê¡ΓÑαΣÑ⌐ß  ∩ºδ¬á 
  752. ÇßßѼí½Ñαá").  
  753.      èᬠ ß¬áºá¡«  ¡¿ªÑ,  ¡á¿ñ«½ÑÑ ∩ó¡«Ñ αẽ¿τ¿Ñ ¼Ñªñπ Σπ¡¬µ¿∩¼¿ 
  754. »α«µÑñπαἿ ºá¬½ετáÑΓß∩ ó Γ«¼,  τΓ« »α«µÑñπαδ ¡Ñ ó«ºóαáΘáεΓ  º¡á-
  755. τÑ¡¿∩;  ¡« «¡¿ ΓᬪѠ¿ ¡Ñ óδºδóáεΓß∩ ¿º¡πΓα¿ óδαáªÑ¡¿∩,  ¡Ñ ¿¼ÑεΓ 
  756. 
  757. Γ¿»á ¿ ¡Ñ ó¬½ετáεΓ »α¿ßóá¿óá¡¿∩ º¡áτÑ¡¿∩ ¿¼Ñ¡¿ »α«µÑñπαδ.  Åα«µÑ-
  758. ñπαδ óδºδóáεΓß∩ «»ÑαáΓ«α«¼ CALL,  ΓᬠªÑ ¬á¬ GOSUB óδºδóáÑΓ »«ñ»-
  759. α«úαá¼¼δ.  
  760.      Éáßß¼«Γα¿¼ ß½ÑñπεΘπε  »α«úαá¼¼π,  «»¿ßδóáεΘπε  ¿  óδºδóáεΘπε 
  761. »α«µÑñπαπ PrintTotal (ÅÑτáΓ∞êΓ«ú«): 
  762.  
  763.    SUB PrintTotal(a,b,c,d)
  764.       LOCAL total
  765.       total = a + b + c + d
  766.       Print total
  767.    END SUB
  768.         w = 1: x = 2: y = 0: z = 3
  769.    CALL PrintTotal(w,x,y,z)
  770.  
  771.      ÅÑαÑñáτá ¼áßß¿ó«ó »α«µÑñπαá¼.
  772.      -----------------------------
  773.      é  «Γ½¿τ¿Ñ  «Γ  Σπ¡¬µ¿⌐ »α«µÑñπαδ »«ºó«½∩εΓ »ÑαÑñáóáΓ∞ µÑ½δÑ 
  774. ¼ááß¿óδ  ó  ¬áτÑßΓóÑ  áαúπ¼Ñ¡Γ«ó.  Ä»αÑñѽѡ¿Ñ  »α«µÑñπαδ  ñ«½ª¡« 
  775. π¬áºδóáΓ∞,  τΓ«  «¡á  "«ª¿ñáÑΓ"  áαúπ¼Ñ¡Γ-¼áßß¿ó  »πΓѼ ó¬½ετÑ¡¿∩ 
  776. ß««ΓóÑΓßΓóπεΘÑú« φ½Ñ¼Ñ¡Γá  ó  ß»¿ß«¬  ÑÑ  Σ«α¼á½∞¡δσ  »áαá¼ÑΓα«ó.  
  777. Çαúπ¼Ñ¡Γδ  ¼áßß¿óá  «í«º¡áτáεΓß∩  »α¿ß«Ññ¿¡Ñ¡¿Ñ¼ ¬ ¿ñÑ¡Γ¿Σ¿¬áΓ«απ 
  778. Σ«α¼á½∞¡«ú« »áαá¼ÑΓαá - ºá¬½ετÑ¡¡«⌐ ó ß¬«í¬¿ τ¿ß½«ó«⌐  ¬«¡ßΓá¡Γδ.  
  779. ¥Γá  óѽ¿τ¿¡á  »«¬áºδóáÑΓ  τ¿ß½«  αẼÑα¡«ßΓÑ⌐  ó ¼áßß¿óÑ,  ¡« ¡Ñ 
  780. αẼÑα ¼áßß¿óá.  
  781.      ìá»α¿¼Ñα:
  782.  
  783.   SUB countZeros(a(1), size, count)
  784. ` ßτÑΓτ¿¬ ó«ºóαáΘáÑΓ τ¿ß½« ¡π½Ñóδσ φ½Ñ¼Ñ¡Γ«ó ó «ñ¡«¼Ñα¡«¼ ¼áßß¿-
  785. ` óÑ a ß «ñ¿¡áα¡«⌐ Γ«τ¡«ßΓ∞ε, αẼÑα ¬«Γ«α«ú« size + 1 φ½Ñ¼Ñ¡Γ«ó
  786.     LOCAL i
  787.     count = 0
  788.     FOR i = 0 TO size
  789.       IF a(i) = 0 THEN count = count + 1
  790.     NEXT i
  791.  END SUB
  792.  
  793.      ì὿τ¿Ñ a(1) ó ß»¿ß¬Ñ »áαá¼ÑΓα«ó «»αÑñѽ∩ÑΓ »Ñαóδ⌐ áαúπ¼Ñ¡Γ
  794. ¼áßß¿óá CountZero (æτ¿ΓáΓ∞ìπ½¿) ¬á¬ «ñ¡«¼Ñα¡δ⌐.  Ä¡ ¡Ñ  ú«ó«α¿Γ,
  795. ¬á¬«ó íπñÑΓ αẼÑα ¼áßß¿óá, - φΓ« ºáñáτá óΓ«α«ú« áαúπ¼Ñ¡Γá: size
  796. (αẼÑα); count ¿ß»«½∞ºπÑΓß∩,  τΓ«íδ ß««íΘ¿Γ∞ ¬«½¿τÑßΓó« ¡π½Ñóδσ
  797. φ½Ñ¼Ñ¡Γ«ó ó ¼áßß¿óÑ a. é맮ó CountZero »α«¿ºó«ñ¿Γß∩ Γá¬:
  798.  
  799.      size = 100: DIM Primes(size)
  800.      GOSUB StrikePrimes
  801.      CALL CountZeros(Primes(), size, primesCount)
  802.      PRINT "There are" primesCount "prime numbers <=" size
  803.      END
  804.  
  805.      Ä»αÑñѽѡ¿∩ »α«µÑñπα ¿ Σπ¡¬µ¿⌐ ¿ σ«ñ »α«úαá¼¼δ.
  806.      -----------------------------------------------       
  807.      Å«½«ªÑ¡¿Ñ «»αÑñѽѡ¿⌐ »α«µÑñπα ¿½¿ Σπ¡¬µ¿⌐ ó¡πΓα¿  »α«úαá¼¼δ 
  808. ¡Ñó᪡«.  öπ¡¬µ¿∩  ¼«ªÑΓ  íδΓ∞  «»αÑñѽѡᠠó  1  ¿½¿ 1000 ßΓα«¬Ñ 
  809. »α«úαá¼¼δ ¡Ñºáó¿ß¿¼« «Γ Γ«ú«,  úñÑ  «¡¿  ¿ß»«½∞ºπεΓß∩.  Åα¿  φΓ«¼ 
  810. ¡Ñ«í∩ºáΓѽ∞¡«   ¡á»αáó½∩Γ∞  σ«ñ  »α«úαá¼¼δ  τÑαѺ  »α«µÑñπαπ  ¿½¿ 
  811. Σπ¡¬µ¿ε ñ½∩ φΓá»á ¿¡¿µ¿á½¿ºáµ¿¿ (¬«Γ«απε ¡Ñ«íσ«ñ¿¼«  »α«ó«ñ¿Γ∞  π 
  812. «ñ¡«ßΓα«τ¡δσ   Σπ¡¬µ¿⌐  ó  ê¡ΓÑα»αÑΓáΓ«αÑ  üÑ⌐ß¿¬á).   è«¼»¿½∩Γ«α 
  813. ºá¼ÑΓ¿Γ «»αÑñѽѡ¿Ñ, úñÑ íδ «¡« ¡¿ ¡áσ«ñ¿½«ß∞.  
  814.     èα«¼Ñ Γ«ú«, ó «Γ½¿τ¿Ñ «Γ »«ñ»α«úαá¼¼ óδ»«½¡Ñ¡¿Ñ »α«úαá¼¼δ ¡Ñ
  815. ¼«ªÑΓ ß½πτá⌐¡«  "»«»áßΓ∞" ó »α«µÑñπαπ ¿½¿ Σπ¡¬µ¿ε.  ùΓ« ¬áßáÑΓß∩
  816. ¼áαΦαπΓá óδ»«½¡Ñ¡¿∩ »α«úαá¼¼δ,  «»αÑñѽѡ¿∩ Σπ¡¬µ¿⌐  ¿  »α«µÑñπα
  817. ¡Ñó¿ñ¿¼δ. ìá»α¿¼Ñα,  »α¿  óδ»«½¡Ñ¡¿¿  ß½ÑñπεΘÑ⌐  τÑΓδαÑσßΓα«τ¡«⌐
  818. »α«úαá¼¼δ:
  819.  
  820.     CALL PrintSomething
  821.     SUB  PrintSomething
  822.     PRINT  "ìá»ÑτáΓá¡« ¿º  PrintSomething"
  823.     EHD SUB
  824.  
  825. ß««íΘÑ¡¿Ñ »«∩ó½∩ÑΓß∩ Γ«½∞¬« «ñ¿¡ αáº.
  826. 
  827.      çá¼ÑΓ∞ΓÑ:  Ä»αÑñѽѡ¿∩ »α«µÑñπα ¿ Σπ¡¬µ¿⌐ ß½ÑñπÑΓ αáßß¼áΓα¿-
  828. óáΓ∞ ¬á¬ ¿º«½¿α«óá¡¡δÑ «ßΓα«ó¬¿ ¬«ñá.  ì« ¡Ñ ß½ÑñπÑΓ ß½«¼∩ ú«½«óπ 
  829. íα«ßáΓ∞ß∩ ó ¡¿σ ¿½¿ ¿º ¡¿σ ß »«¼«Θ∞ε «»ÑαáΓ«α«ó GOTO,  GOSUB  ¿½¿ 
  830. RETURN - αѺπ½∞ΓáΓδ ¼«úπΓ íδΓ∞ ¡Ñ»αÑñ߬áºπÑ¼δ ¿/¿½¿ ΣáΓá½∞¡δ.  
  831.     ÄíαáΓ¿ΓÑ  ó¡¿¼á¡¿Ñ,  τΓ«  ¡¿  «»¿ßá¡¿∩ »α«µÑñπα,  ¡¿ «»¿ßá¡¿∩ 
  832. Σπ¡¬µ¿⌐ ¡Ñ ¼«úπΓ íδΓ∞  ó½«ªÑ¡δ;  Γ.Ñ.  ¡Ñ½∞º∩  «»αÑñѽ¿Γ∞  ñαπúπε 
  833. »α«µÑñπαπ  ¿½¿  Σπ¡¬µ¿ε  ó¡πΓα¿  «»αÑñѽѡ¿∩ ñá¡¡«⌐ »α«µÑñπαδ ¿½¿ 
  834. Σπ¡¬µ¿¿ (σ«Γ∩ «¡¿ ¼«úπΓ  ß«ñÑαªáΓ∞  ó맮óδ  ñαπú¿σ  »α«µÑñπα  ¿½¿ 
  835. Σπ¡¬µ¿⌐).  
  836.  
  837.      Åα«óÑα¬á áαúπ¼Ñ¡Γ«ó.
  838.      --------------------
  839.      é «Γ½¿τ¿Ñ «Γ ñαπú¿σ ¬«¼»¿½∩Γ«α«ó üÑ⌐ß¿¬, ÆôÉüÄ üàëæêè »α«óÑ-
  840. α∩ÑΓ ß««ΓóÑΓßΓó¿Ñ τ¿ß½á ¿ Γ¿»á áαúπ¼Ñ¡Γ«ó ó  ó맮óáσ  »α«úαá¼¼¡δσ 
  841. »α«µÑñπα  ¿ Σπ¡¬µ¿⌐ τ¿ß½π ¿ Γ¿»π Σ«α¼á½∞¡δσ »áαá¼ÑΓα«ó ó ß««ΓóÑΓ-
  842. ßΓóπεΘ¿σ «»αÑñѽѡ¿∩σ. ìá»α¿¼Ñα, »«»δΓ¬á Γαá¡ß½∩µ¿¿ »α«úαá¼¼δ 
  843.  
  844.     DEF FNDummy(a,b)
  845.     END DEF
  846.     t = FNDummy(3)
  847.  
  848. »α¿ó«ñ¿Γ ¬ «Φ¿í¬Ñ "ìÑß««ΓóÑΓßΓó¿Ñ Åáαá¼ÑΓαá" ó 3-Ñ⌐ ßΓ᫬Ñ, Γ.¬.
  849. FNDummy ΓαÑíπÑΓ ñóá áαúπ¼Ñ¡Γá.
  850.  
  851.              ü«½ÑÑ ß½«ª¡δÑ á߻ѬΓδ Σπ¡¬µ¿⌐ ¿ »α«µÑñπα.
  852.              -----------------------------------------
  853.  
  854.      ÅÑαÑñáτá »áαá¼ÑΓα«ó »« º¡áτÑ¡¿ε ¿½¿ ßß佬Ñ. 
  855.      -------------------------------------------
  856.      æπΘÑßΓóπεΓ óÑß∞¼á Γ«¡¬¿Ñ,  ¡« «τÑ¡∞  ó᪡δÑ  αẽ¿τ¿∩  ¼Ñªñπ 
  857. Σπ¡¬µ¿Ñ⌐  ¿ »α«µÑñπα«⌐,  á »«¡¿¼á¡¿Ñ φΓ¿σ αẽ¿τ¿⌐ ΓαÑíπÑΓ º¡á¡¿∩ 
  858. Γ«ú«,  ¬á¬ ÆôÉüÄ üàëæêè «íαáíáΓδóáÑΓ ó맮óδ Σπ¡¬µ¿¿  ¿  »α«µÑñπαδ 
  859. »α¿ óδ»«½¡Ñ¡¿¿ »α«úαá¼¼δ (ß¼. Æáí½¿µπ 4-4).  
  860.  
  861.            Æáí½¿µá 4-4. Éẽ¿τ¿∩ ¼Ñªñπ Åα«µÑñπα«⌐ ¿ öπ¡¬µ¿Ñ⌐
  862.     ------------------------------------------------------------
  863.     äÑ⌐ßΓó¿Ñ                 öπ¡¬µ¿¿             Åα«µÑñπαδ
  864.     ------------------------------------------------------------
  865.     é«ºóαáΘÑ¡¿Ñ º¡áτÑ¡¿∩   äá                  ìÑΓ
  866.     îÑΓ«ñ ó맮óá           éδºδóáÑΓß∩ ¿º¡πΓ-   êß»«½∞ºπÑΓß∩
  867.                            α¿ óδαáªÑ¡¿⌐        «»ÑαáΓ«α CALL
  868.     ÅÑαÑñáτá »áαá¼ÑΓαá     ÅÑαÑñáÑΓß∩ »« º¡á-  ÅÑαÑñáÑΓß∩ »«
  869.                            τÑ¡¿ε               ßßδ½¬Ñ ¿ º¡áτÑ¡¿ε
  870.     ÅÑαѼѡ¡δÑ »« π¼«½-    ÄüÖǃ               æÆÇÆêùàæèǃ
  871.     τá¡¿ε
  872.     Çαúπ¼Ñ¡Γδ ¼áßß¿óá      ìÑΓ                 äá
  873.     ------------------------------------------------------------
  874.  
  875.      é«-»Ñαóδσ, »«ß¼«Γα¿ΓÑ ¡á φΓ𠬫α«Γ¬πε »α«úαá¼¼π, «»¿ßδóáεΘπε 
  876. ¿ óδºδóáεΘπε Σπ¡¬µ¿ε CylVol (ÄíΩѼ µ¿½¿¡ñαá): 
  877.  
  878.    DEF FNCylVol(Radius, height) STATIC
  879.       FNCylVol = Radius * Radius * 3.14159 * height
  880.    END DEF
  881.    r = 4.7: h =12.1
  882.    vol = FNCylVol(R,h)
  883.  
  884.      ÆÑ»Ñα∞  »αÑñßΓáó∞ΓÑ ßÑíÑ «íΩѼ «íαáí«Γ¬¿ »α¿ óδ»«½¡Ñ¡¿¿ φΓ«⌐ 
  885. »α«úαá¼¼δ.  æ¡áτá½á ¡πª¡« ¡áº¡áτ¿Γ∞ º¡áτÑ¡¿∩ »ÑαѼѡ¡δσ  R  ¿  h.  
  886. çáΓѼ óδºóáΓ∞ FNCylVol,  »ÑαÑñáóá∩ Ñ⌐ τ¿ß½Ñ¡¡πε ¿¡Σ«α¼áµ¿ε »« R ¿ 
  887. h.  ì« ¼¿¡πΓ«τ¬π,  á ¬á¬¿¼ ªÑ «íαẫ¼ »ÑαÑñáΓ∞ Σπ¡¬µ¿¿ φΓπ ¿¡Σ«α-
  888. ¼áµ¿ε?  
  889.      àßΓ∞ ñóá ß»«ß«íá:  (1) ¿ß»«½∞º«óáΓ∞ 4.7 ó ¬áτÑßΓóÑ αáñ¿πßá ¿ 
  890. 12.1 - óδß«Γδ;  ¿½¿ (2) ¿ß»«½∞º«óáΓ∞ »Ñα¼Ñ¡¡πε R ó ¬áτÑßΓóÑ αáñ¿-
  891. πßá,  á h - óδß«Γδ.  ÅÑαóδ⌐ ¡áºδóáÑΓß∩ - »ÑαÑñáΓ∞ »« º¡áτÑ¡¿ε,  á 
  892. óΓ«α«⌐ - »ÑαÑñáΓ∞ »« ßß佬Ñ.  
  893.      ÅÑαÑñáτá »« º¡áτÑ¡¿ε «º¡áτáÑΓ, τΓ« ¬«»¿¿ áαúπ¼Ñ¡Γ«ó ó ó맮óÑ 
  894. αáß»«½áúáεΓß∩ ó »á¼∩Γ¿ óαѼѡ¡«,  á ºáΓѼ »ÑαÑ¡«ß∩Γß∩,  ¬«úñá ¡Ñ-
  895. 
  896. «íσ«ñ¿¼«,  ó  óδºóá¡¡πε  »α«úαá¼¼π.   Å«ß½Ñ  óδ»«½¡Ñ¡¿∩  »α«µÑñπ-
  897. αδ/Σπ¡¬µ¿¿ º¡áτÑ¡¿Ñ ¿º »á¼∩Γ¿ ¿ßτѺáÑΓ;  Γᬿ¼ «íαẫ¼  «α¿ú¿¡á½δ 
  898. «ßΓáεΓß∩ ¡ÑΓα«¡δΓ묨.  
  899.      ÅÑαÑñáτá »« ßßδ½¬Ñ «º¡áτáÑΓ, τΓ« »ÑαÑñáÑΓß∩ π¬áºáΓѽ∞, »«¬á-
  900. ºδóáεΘ¿⌐  úñÑ (áñαÑß) σαá¡∩Γß∩ ñá¡¡δÑ.  é »α¿¼ÑαÑ áñαÑßá »ÑαѼѡ-
  901. ¡δσ R ¿ h »ÑαÑñáεΓß∩ ¬á¬ »áαá¼ÑΓαδ.  éδºδóáѼá∩  »α«úαἼᠠ¼«ªÑΓ 
  902. ºáΓѼ »«½πτ¿Γ∞ ¿ ¿º¼Ñ¡¿Γ∞ ßἿ º¡áτÑ¡¿∩.  
  903.      é ÆôÉüÄ üàëæêèÑ ¿ß»«½∞ºπεΓß∩ «íá ß»«ß«íá »ÑαÑñáτ¿ (¿σ αẽ¿-
  904. τ¿∩ ßΓá¡πΓ óá¼ ∩ß¡δ τÑαѺ ¼¿¡πΓπ).  
  905.      îÑΓ«ñ  »ÑαÑñáτ¿  »«  º¡áτÑ¡¿ε  »«ºó«½∩ÑΓ  ¿ß»«½∞º«óáΓ∞ ½εíπε 
  906. ¬«¡ßΓá¡Γπ ¿½¿ óδαáªÑ¡¿Ñ ó  ¬áτÑßΓóÑ  áαúπ¼Ñ¡Γ«ó.  »α¿  óδ»«½¡Ñ¡¿¿ 
  907. óδαáªÑ¡¿Ñ  «µÑ¡¿óáÑΓß∩ ¿ ßó«ñ¿Γß∩ ¬ »α«ßΓ«¼π º¡áτÑ¡¿ε,  ¬«Γ«α«Ñ ¿ 
  908. »ÑαÑñáÑΓß∩ Σπ¡¬µ¿¿. ìá»α¿¼Ñα: 
  909.   
  910.      V = FNCylVol(R,h * 2 + 4.1)
  911.  
  912.      îÑΓ«ñπ »ÑαÑñáτ¿ »« º¡áτÑ¡¿ε ¡Ñ ß«ßΓáó½∩ÑΓ Γαπñá ß««íΘ¿Γ∞ h * 
  913. 2 + 4.1  Σπ¡¬µ¿¿  FNCylVol.  éδαáªÑ¡¿Ñ  óδτ¿ß½∩ÑΓß∩  ¿  αѺπ½∞ΓáΓ 
  914. »«ßδ½áÑΓß∩ Σπ¡¬µ¿¿.  
  915.      æ ñαπú«⌐ ßΓ«α«¡δ, «ñ¡á¬«, ¼ÑΓ«ñ »ÑαÑñáτ¿ »« ßß佬Ñ, »«ß¬«½∞-
  916. ¬π  «¡  »«ºó«½∩ÑΓ  »α«úαἼѠ«íαáíáΓδóáΓ∞ º¡áτÑ¡¿Ñ,  ¡Ñ «»Ñα¿απÑΓ 
  917. ¬«¡ßΓá¡ΓἿ ¿ óδαáªÑ¡¿∩¼¿ (ΓᬫѠóδαáªÑ¡¿Ñ,  ¬á¬ h * 2 +  4.1  ¡Ñ 
  918. ¿¼ÑÑΓ áñαÑßá ó »á¼∩Γ¿, - Ñú« ¿¼ÑεΓ Γ«½∞¬« »ÑαѼѡ¡δÑ).  îÑΓ«ñ »Ñ-
  919. αÑñáτ¿ »« ßßδ½¬Ñ ñÑ⌐ßΓóπÑΓ Γ«½∞¬« Ñß½¿  áαúπ¼Ñ¡Γ  ó  »α«µÑñπαÑ  -
  920. «Γñѽ∞¡á∩ »ÑαѼѡ¡á∩.  
  921.      ÅÑαóδ⌐ ºá¬«¡ »ÑαÑñáτ¿ »áαá¼ÑΓαá: èᬠ»ÑαѼѡ¡δÑ, Γᬠ¿ óδαá-
  922. ªÑ¡¿∩ ¼«úπΓ íδΓ∞ »ÑαÑñá¡δ ¼ÑΓ«ñ«¼ »ÑαÑñáτ¿ »« º¡áτÑ¡¿ε.  ÅÑαÑñáτá 
  923. »« ßßδ½¬Ñ »«ºó«½∩ÑΓ »«ßδ½áΓ∞ Γ«½∞¬« »ÑαѼѡ¡δÑ ¿½¿ ¼áßß¿óδ.  
  924.      ÅαÑ¿¼πΘÑßΓó« »ÑαÑñáτ¿ »« ßßδ½¬Ñ ºá¬½ετáÑΓß∩ ó Γ«¼,  τΓ« »α«-
  925. µÑñπαá,  óδºóá¡¡á∩  »α«úαá¼¼«⌐,  ¼«ªÑΓ ¿º¼Ñ¡∩Γ∞ º¡áτÑ¡¿∩ »áαá¼ÑΓ-
  926. α«ó,  »ÑαÑñáóáѼδσ Ñ⌐ ¿ Γᬿ¼ «íαẫ¼,  ó«ºóαáΘáΓ∞ ¿¡Σ«α¼áµ¿ε óδ-
  927. ºδóáεΘÑ⌐ »α«úαá¼¼Ñ.  Å«ß¬«½∞¬π »α«úαá¼¼á, ¬«Γ«α«⌐ »ÑαÑñá¡δ ñá¡¡δÑ 
  928. »« ßß佬Ñ, »«½πτáÑΓ ¿ áñαÑß,  «¡á "º¡áÑΓ",  úñÑ αáß»«½«ªÑ¡á »ÑαÑ-
  929. ¼Ñ¡¡á∩ ¿,  Γᬿ¼ «íαẫ¼,  ¼«ªÑΓ ¬á¬ ßτ¿ΓδóáΓ∞,  Γᬠ¿ ºá»¿ßδóáΓ∞ 
  930. ÑÑ.  ê ¡á»α«Γ¿ó, »α«úαá¼¼á, ¬«Γ«α«⌐ »ÑαѼѡ¡á∩ »ÑαÑñá¡á »« º¡áτÑ-
  931. ¡¿ε,  ¡Ñ ¼«ªÑΓ ¿º¼Ñ¡∩Γ∞ ¿ßσ«ñ¡πε »ÑαѼѡ¡πε,  »«ß¬«½∞¬π ¡Ñ º¡áÑΓ, 
  932. úñÑ φΓá »ÑαѼѡ¡á∩ αáß»«½«ªÑ¡á.  
  933.      éΓ«α«⌐ ºá¬«¡ »ÑαÑñáτ¿ »áαá¼ÑΓαá:  ÅÑαѼѡ¡δÑ,  »ÑαÑñá¡¡δÑ »« 
  934. ßßδ½¬Ñ ¼«úπΓ ¿º¼Ñ¡∩Γ∞ß∩ óδºóá¡¡«⌐ »α«úαá¼¼«⌐;  »ÑαÑñá¡¡δÑ »« º¡á-
  935. τÑ¡¿ε - ¡ÑΓ.  
  936.      é ¬áτÑßΓóÑ ¿½½εßΓαᵿ¿ αáßß¼«Γα¿¼ »α«úαá¼¼π:
  937.  
  938.      a = 0: d = 2: c = 3
  939.      call add(a,b,c,total)
  940.      print a, total
  941.      END
  942.      sub add(i,j,k,sum) STATIC
  943.         sum = i+j+k
  944.      END sub
  945.  
  946.      Åα¿ ó«ºóαáΓÑ add »ÑαѼѡ¡á∩ total (¿Γ«ú«) ß«ñÑαª¿Γ ßπ¼¼π  a, 
  947. b ¿ c.  (Add ¼«ª¡« «»αÑñѽ¿Γ∞ Γá¬,  τΓ«íδ «¡á ¼Ñ¡∩½á º¡áτÑ¡¿Ñ ¬á-
  948. ª«ú« ¿º ßó«¿σ áαúπ¼Ñ¡Γ«ó;  «ñ¡á¬«,  »«ß¬«½∞¬π «¡á ñáÑΓ ¡áº¡áτÑ¡¿Ñ 
  949. Γ«½∞¬«  ßó«Ñ¼π  τÑΓóÑαΓ«¼π  »áαá¼ÑΓαπ,  - Γ«½∞¬« ¡á total (¿Γ«ú«) 
  950. αáß»α«ßΓαá¡Ñ¡« ñÑ⌐ßΓó¿Ñ »α¿ ó맮óÑ add).  
  951.      ÆαÑΓ¿⌐ ºá¬«¡ - φΓ« ß½ÑñßΓó¿Ñ »Ñαó«ú« ¿ óΓ«α«ú«  ºá¬«¡«ó  Æü: 
  952. Çαúπ¼Ñ¡Γδ Σπ¡¬µ¿⌐ »ÑαÑñáεΓß∩ »« º¡áτÑ¡¿ε;  áαúπ¼Ñ¡Γδ »α«µÑñπα »Ñ-
  953. αÑñáεΓß∩ »« ßßδ½¬Ñ ¿ »« º¡áτÑ¡¿ε.  
  954.      ¥Γ« «º¡áτáÑΓ, τΓ« «Γñѽ∞¡δÑ ¿¼Ñ¡á »ÑαѼѡ¡δσ ¼«úπΓ Σ¿úπα¿α«-
  955. óáΓ∞ ó ó맮óÑ »α«µÑñπαδ ¿ φΓ¿  »ÑαѼѡ¡δÑ  ¼«úπΓ  íδΓ∞  ¿º¼Ñ¡Ñ¡δ.  
  956. àß½¿  éδ  σ«Γ¿ΓÑ »ÑαÑñáΓ∞ »« º¡áτÑ¡¿ε «ñ¿¡«τ¡πε »ÑαѼѡ¡πε »α«µÑ-
  957. ñπαÑ - ºá¬½ετ¿ΓÑ ÑÑ ó ß¬«í¬¿.  ¥Γ« ºáßΓáó½∩ÑΓ Æü á¡á½¿º¿α«óáΓ∞ ÑÑ 
  958. ¬á¬  óδαáªÑ¡¿Ñ.Åα«µÑñπαδ  ¼«úπΓ ΓᬪѠ»α¿¡¿¼áΓ∞ ¬«¡ßΓá¡Γδ ¿ óδαá-
  959. ªÑ¡¿∩ ¬á¬ »ÑαÑñáτπ »« º¡áτÑ¡¿ε.  é맮óδ Σπ¡¬µ¿⌐  ¼«úπΓ  »α¿¡¿¼áΓ∞ 
  960. ¬«¡ßΓá¡Γδ,  »ÑαѼѡ¡δÑ ¿ óδαáªÑ¡¿∩,  ¡« ¡Ñ ¼«úπΓ ¿º¼Ñ¡∩Γ∞ ¿σ º¡á-
  961. τÑ¡¿∩.  
  962.      é»«½¡Ñ ¼«ª¡« ßñѽáΓ∞ »α¿ßó«Ñ¡¿Ñ Σ«α¼á½∞¡«¼π »áαá¼ÑΓαπ ó¡πΓα¿ 
  963. «»αÑñѽѡ¿∩ Σπ¡¬µ¿¿;  Σá¬Γ¿τÑ߬¿ «τÑ¡∞ τáßΓ«  íδóáÑΓ  πñ«í¡«  ¿ß-
  964. 
  965. »«½∞º«óáΓ∞  Σ«α¼á½∞¡óÑ »áαá¼ÑΓαδ Σπ¡¬µ¿¿ ó ¬áτÑßΓóÑ óαѼѡ¡δσ »Ñ-
  966. αѼѡ¡δσ.  ¥Γ«,  «ñ¡á¬«,  ¡Ñ ¿º¼Ñ¡∩ÑΓ º¡áτÑ¡¿Ñ Σá¬Γ¿τÑ߬«ú« »áαá-
  967. ¼ÑΓαá; ¡á»α¿¼Ñα: 
  968.  
  969.      DEF FNDummy(a,b,c)
  970.         a = a+b+c
  971.         PRINT a
  972.      END DEF
  973.      x = 1: y = 2: z = 3
  974.      t = FNDummy(x,y,z)
  975.      PRINT x
  976.  
  977.      Åα¿ßó«Ñ¡¿Ñ Σ«α¼á½∞¡«ú« »áαá¼ÑΓαá a Σπ¡¬µ¿¿ FNDummy (πτÑí¡á∩) 
  978. ¡Ñ ó½¿∩ÑΓ ¡á º¡áτÑ¡¿Ñ »ÑαѼѡ¡«⌐ x.  
  979.      Å«ß¬«½∞¬π  »ÑαÑñáτá  »ÑαѼѡ¡«⌐  Σπ¡¬µ¿¿ »«ñαπºá¼ÑóáÑΓ ΓᬪѠ
  980. ¬«»¿α«óá¡¿Ñ ñá¡¡δσ »ÑαѼѡ¡δσ ñ½∩ αẼÑΘÑ¡¿∩ ó ½«¬á½∞¡«⌐  »á¼∩Γ¿, 
  981. 󫺡¿¬áεΓ »α«í½Ñ¼δ, Ñß½¿ »ÑαѼѡ¡á∩ «τÑ¡∞ í«½∞Φá∩ (Γ.Ñ.  ¼áßß¿ó).  
  982. Å«φΓ«¼π Æü ¡Ñ »«ºó«½∩ÑΓ »ÑαÑñáτπ »ÑαѼѡ¡δσ Γ¿»á ¼áßß¿ó  »«  º¡á-
  983. τÑ¡¿ε, σ«Γ∩ ¼«ª¡« »ÑαÑñáΓ∞ «Γñѽ∞¡δÑ φ½Ñ¼Ñ¡Γδ ¼áßß¿ó«ó.  
  984.  
  985.      ï«¬á½∞¡δÑ »ÑαѼѡ¡δÑ.
  986.      ---------------------
  987.      é ¿¡ΓÑα»α¿ΓπαπѼ«¼ üÑ⌐ß¿¬Ñ óßÑ »ÑαѼѡ¡δÑ - ú½«íá½∞¡δÑ.  ¥Γ« 
  988. º¡áτ¿Γ,  τΓ« ¡Ñºáó¿ß¿¼« «Γ  Γ«ú«,  úñÑ  »«∩ó½∩ÑΓß∩  »ÑαѼѡ¡á∩  ó 
  989. »α«úαἼѠ -  ó  ßἫ¼  óÑασ¡Ñ¼  ΦáúÑ  «ß¡«ó¡«⌐  »α«úαá¼¼δ  ¿½¿ ó 
  990. Γα¿ó¿á½∞¡Ñ⌐ΦѼ µ¿¬½Ñ óΓ«α«ßΓѻѡ¡«⌐ »«ñ»α«úαá¼¼δ - φΓá »ÑαѼѡ¡á∩ 
  991. ñ«ßΓπ»¡á ñ½∩ óßÑ⌐ »α«úαá¼¼δ. ¥Γ« »«ºó«½∩ÑΓ ß½ÑñπεΘѼπ Γ¿»π «Φ¿í¬¿ 
  992. ó¬αáßΓ∞ß∩ ó »α«úαá¼¼π: 
  993.  
  994.                       Äß¡«ó¡á∩ »α«úαá¼¼á
  995.   EmployeeCount= 10
  996.   n = 1
  997.   GOSUB CalcChecks
  998.   n = n+1
  999.  
  1000.   CalcChecks:
  1001.   GOSUB CalcDeductions
  1002.   RETURN
  1003.                       Å«ñ»α«úαá¼¼á
  1004.   CalcDeductions:              
  1005.      FOR n=1 to EmployeeCount
  1006.     .
  1007.     .
  1008.     .
  1009.      NEXT n
  1010.   RETURN
  1011.  
  1012.   PrintChecks:
  1013.     .
  1014.     .
  1015.     .
  1016.   RETURN
  1017.  
  1018.      ÅÑαѼѡ¡á∩  n  ó »«ñ»α«úαἼѠCalcDeduction ¿ »ÑαѼѡ¡á∩ n ó 
  1019. «ß¡«ó¡«⌐  »α«úαἼѠ- φΓ«  «ñ¡« ¿ Γ« ªÑ.  é  αѺπ½∞ΓáΓÑ, »α¿ ó«º-
  1020. óαáΘÑ¡¿¿ π»αáó½Ñ¡¿∩ «ß¡«ó¡«⌐ »α«úαá¼¼Ñ,  n  ¡Ñ σαá¡¿Γ 1, πßΓá¡«ó-
  1021. ½Ñ¡¡πε  ºñÑß∞  αá¡ÑÑ  «ß¡«ó¡«⌐  »α«úαá¼¼«⌐,  ¡«  σαá¡¿Γ  º¡áτÑ¡¿Ñ 
  1022. EmployeeCount + 1  ¬á¬  αѺπ½∞ΓáΓ  óδ»«½¡Ñ¡¿∩  µ¿¬½á  FOR/NEXT ¿º 
  1023. CalcDeductions.  
  1024.      é ß««ΓóÑΓßΓó¿¿ ß« ßó«¿¼ ¡ÑΣ«α¼á½∞¡δ¼ ßΓ¿½Ñ¼ üÑ⌐ß¿¬ ¡Ñ ΓαÑíπ-
  1025. ÑΓ «Γ óáß «íΩ∩ó½Ñ¡¿∩ »ÑαѼѡ¡δσ (Γ.Ñ.  «í«º¡áτÑ¡¿∩ úñÑ-Γ« ó  «»Ñ-
  1026. αáΓ«αÑ, τΓ« óδ ß¬«α« ¿ß»«½∞ºπÑΓÑ Γá¬πε-Γ« »ÑαѼѡ¡πε).  äáªÑ Ñß½¿ 
  1027. óδ Σá¡áΓ¿τ¡« «Γ߽Ѫ¿óáÑΓÑ óßÑ »ÑαѼѡ¡δÑ  óáΦÑ⌐  »α«úαá¼¼δ,  «ñ¡« 
  1028. ¡ÑóÑα¡«Ñ ñó¿ªÑ¡¿Ñ »á½∞µá ¼«ªÑΓ »«úπí¿Γ∞ óßÑ.  
  1029.      ä½∩  Γ«ú«,  τΓ«íδ »αÑñπ»αÑñ¿Γ∞ φΓπ »α«í½Ñ¼π ÆôÉüÄ üàëæêè ñ«-
  1030. »π߬áÑΓ ¡á½¿τ¿Ñ ½«¬á½∞¡δσ »ÑαѼѡ¡δσ ó¡πΓα¿ »α«µÑñπα  ¿  Σπ¡¬µ¿⌐.  
  1031. é  «Γ½¿τ¿Ñ  «Γ ú½«íá½∞¡«⌐ »ÑαѼѡ¡«⌐ ½«¬á½∞¡á∩ »ÑαѼѡ¡á∩ ßπΘÑßΓ-
  1032. óπÑΓ Γ«½∞¬« ó »α«úαá¼¼Ñ,  ó ¬«Γ«α«⌐ «¡á «»αÑñѽѡá.  Äñ¡¿σ Γ«½∞¬« 
  1033. 
  1034. ½«¬á½∞¡δσ  »ÑαѼѡ¡δσ ó»«½¡Ñ ñ«ßΓáΓ«τ¡« ñ½∩ Γ«ú«,  τΓ«íδ ¡áóßÑúñá 
  1035. «Γ¬áºáΓ∞ß∩  «Γ   »«ñ»α«úαá¼¼.   Éáßß¼«Γα¿¼,   ¡á»α¿¼Ñα,   Σπ¡¬µ¿ε 
  1036. AddReceipts (潫ª¿Γ∞Å«ßΓπ»½Ñ¡¿∩): 
  1037.  
  1038. DEF FNAddReceipts
  1039.   LOCAL x,y,total
  1040.   FOR x = 1 TO 12
  1041.     FOR y = 1 TO 30
  1042.       total = total + Receipts(x,y)
  1043.     NEXT y
  1044.   NEXT x
  1045.   FNAddReceipts = total
  1046. END DEF
  1047.  
  1048.      Å«ß¬«½∞¬π  »ÑαѼѡ¡δÑ  x  ¿  y  «»¿ßá¡δ  ¬á¬  ½«¬á½∞¡δÑ  ñ½∩ 
  1049. FNAddReceipts,  ¼«ª¡« ¿ß»«½∞º«óáΓ∞ ¿¼Ñ¡á »ÑαѼѡ¡δσ x ¿ y ó ½εí«¼ 
  1050. ¼ÑßΓÑ  »α«úαá¼¼δ ( »α«úαá¼¼¿ßΓδ ß ¼áΓѼáΓ¿τÑ߬¿¼ π¬½«¡«¼ ßΓαѼ∩Γ-
  1051. ß∩ ¿ß»«½∞º«óáΓ∞ x ¿ y ñ½∩ ¬áªñ«⌐ »ÑαѼѡ¡«⌐),  ¡Ñ ó½¿∩∩ ¡á º¡áτÑ-
  1052. ¡¿Ñ x ¿ y ó FNAddReceipts (¿½¿ ¡á«í«α«Γ).  
  1053.      ï«¬á½∞¡δÑ  »ÑαѼѡ¡δÑ  Σπ¡¬µ¿¿ AddReceipts ßπΘÑßΓóπεΓ Γ«½∞¬« 
  1054. ñ« ΓÑσ »«α, »«¬á Σπ¡¬µ¿∩ óδºóá¡á - ñ« ¿ »«ß½Ñ φΓ«⌐ Σπ¡¬µ¿¿ ¿σ ¬á¬ 
  1055. íδ ¡Ñ  ßπΘÑßΓóπÑΓ.  é  ¬áτÑßΓóÑ  ¿½½εßΓαᵿ¿  αáßß¼«Γα¿¼  ¬«ñ«óδ⌐ 
  1056. ßÑú¼Ñ¡Γ, óδºδóáεΘ¿⌐ FNAddReceipts: 
  1057.  
  1058. x = 35
  1059. ThisYear = FNAddReceipts
  1060. PRINT x
  1061.  
  1062.      Æ«Γ  Σá¬Γ,  τΓ«  ¿¼∩  x í佫 »α¿ßó«Ñ¡« ¿ ñαπú¿¼ »ÑαѼѡ¡δ¼ ó 
  1063. »α«µÑßßÑ αáßτÑΓá º¡áτÑ¡¿∩ ó«ºóαáΓá ñ½∩ FNAddReceipts,  ¡Ñ  ó½¿∩ÑΓ 
  1064. ¡á  x  ó  ßΓ᫬áσ 1 ¿ 3.  æ »«¼«Θ∞ε ½«ú¿τÑ߬«⌐ «»Ñαᵿ¿ óδñѽѡ¿∩ 
  1065. ßΓѬá, x ó FNAddReceipts - φΓ« ¡Ñºáó¿ß¿¼á∩ »ÑαѼѡ¡á∩, ¬«Γ«αá∩ ¡Ñ 
  1066. ßπΘÑßΓóπÑΓ »«ß½Ñ ó«ºóαáΓá Σπ¡¬µ¿¿.  
  1067.      ï«¬á½∞¡δÑ »ÑαѼѡ¡δÑ ñ«½ª¡δ íδΓ∞ «»¿ßá¡δ ñ« ½εí«ú« óδ»«½¡∩Ñ-
  1068. ¼«ú« «»ÑαáΓ«αá ó »α«µÑñπαÑ ¿½¿ Σπ¡¬µ¿¿.  ï«¬á½∞¡δÑ »ÑαѼѡ¡δÑ ¼«-
  1069. úπΓ  íδΓ∞  ¼áßß¿óἿ:  ñ½∩ φΓ«ú« ñ«ßΓáΓ«τ¡« »α«ßΓ« ºáñáΓ∞ αẼÑα-
  1070. ¡«ßΓ∞ ¼áßß¿óá »«ß½Ñ «íΩ∩ó½Ñ¡¿∩ Ñú« ½«¬á½∞¡δ¼.  
  1071.  
  1072. SUB Dummy
  1073.   LOCAL a, locArray(50)
  1074.   .
  1075.   .
  1076.   .
  1077.   ERASE locArray
  1078. END SUB
  1079.  
  1080.      éδñѽѡ¿Ñ ½«¬á½∞¡«ú« ¼áßß¿óá  áóΓ«¼áΓ¿τÑ߬¿  «Γ¼Ñ¡∩ÑΓß∩  »α¿ 
  1081. óδσ«ñÑ ¿º »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿.  
  1082.      ìÑñ«ßΓáΓ¬«¼ ½«¬á½∞¡δσ »ÑαѼѡ¡δσ ∩ó½∩ÑΓß∩ Γ«, τΓ« «¡¿ ΓÑα∩εΓ 
  1083. ßó«Ñ  º¡áτÑ¡¿Ñ  ó  »α«¼ÑªπΓ¬áσ  ¼Ñªñπ ß«ñÑαªáΘ¿¼¿ ¿σ »α«úαἼἿ.  
  1084. Åα¿ ¬áªñ«¼ ó맮óÑ "σαá¡¿½¿ΘÑ" ñ½∩ ¡¿σ  ß«ºñáÑΓß∩  ºá¡«ó«,  ¿  «¡¿ 
  1085. ¿¡¿µ¿á½¿º¿απεΓß∩ ¡π½Ñ¼ (¿½¿ »πßΓ묨 ßΓα«¬á¼¿). ìá»α¿¼Ñα: 
  1086.  
  1087. SUB Dummy
  1088.   LOCAL c
  1089.   PRINT c
  1090.   c = c + 1
  1091. END SUB
  1092.  
  1093.      î«ª¡« µÑ½δ⌐ ñÑ¡∞ óδºδóáΓ∞ Dummy ¿ óßÑúñá íπñÑΓ »ÑτáΓáΓ∞ß∩ 0.  
  1094.  
  1095.      ÄíΘ¿⌐ áΓα¿íπΓ.
  1096.      --------------
  1097.      Åα«µÑñπαδ  ¿  Σπ¡¬µ¿¿  ¼«úπΓ  ΓᬪѠ «»¿ßδóáΓ∞  »ÑαѼѡ¡δÑ ß 
  1098. »«¼«Θ∞ε «íΘÑú« áΓα¿íπΓá.  ÄíΘá∩ »ÑαѼѡ¡á∩ -  á¡Γ¿»«ñ  ½«¬á½∞¡«⌐: 
  1099. «¡á  "ó¿ñ¿¼á"  ¿  ¼«ªÑΓ  ¿ß»«½∞º«óáΓ∞ß∩  óßÑ⌐  »α«úαá¼¼«⌐  (ΓᬿѠ
  1100. »Ñα¼Ñ¡¡δÑ τáßΓ« ¡áºδóáεΓß∩ ú½«íá½∞¡δ¼¿).  
  1101. 
  1102. DEF FNDummy
  1103.   SHARED a
  1104.   a = 6
  1105.   FNDummy = a
  1106. END DEF
  1107. PRINT FNDummy, a
  1108.  
  1109.      ü½áú«ñáα∩ π¬áºá¡¿ε SHARED »ÑαѼѡ¡á∩ a ó FNDummy ¿  »ÑαѼѡ-
  1110. ¡á∩ a ó «»ÑαáΓ«αÑ PRINT «ñ¿¡á¬«óδ.  
  1111.      ìÑ«»¿ßá¡¡δÑ »ÑαѼѡ¡δÑ ó¡πΓα¿ «»αÑñѽѡ¿⌐ Σπ¡¬µ¿⌐ »« π¼«½τá-
  1112. ¡¿ε »α¿¡¿¼áεΓß∩ ºá «íΘ¿Ñ;  ¡á»α¿¼Ñα ó Σπ¡¬µ¿¿ AddReceipts,  »«¬á-
  1113. ºá¡¡«⌐ αá¡ÑÑ,  ¼áßß¿ó Receipts  »α¿¡∩Γ  ºá  «íΘπε  »ÑαѼѡ¡πε.  é 
  1114. «»αÑñѽѡ¿∩σ »α«µÑñπα »« π¼«½τá¡¿ε ¼áßß¿ó - æÆÇÆêùàæèêë (STATIC). 
  1115. îδ  ¡áßΓ«∩Γѽ∞¡«  αѬ«¼Ñ¡ñπѼ,  «ñ¡á¬«,  τÑΓ¬«  «»¿ßδóáΓ∞  ¬áªñπε 
  1116. »ÑαѼѡ¡πε, »«∩ó½∩εΘπεß∩ ó «»ÑαÑñѽѡ¿¿ Σπ¡¬µ¿¿ ¿½¿ »α«µÑñπαδ.  
  1117.  
  1118.      æΓáΓ¿τÑ߬¿Ñ »ÑαѼѡ¡δÑ.
  1119.      -----------------------
  1120.      æΓáΓ¿τÑ߬¿Ñ »ÑαѼѡ¡δÑ - »ÑαÑσ«ñ ¼Ñªñ𠽫¬á½∞¡δ¼¿  ¿  «íΘ¿¼¿ 
  1121. »ÑαѼѡ¡δ¼¿.  èᬠ¿ ½«¬á½∞¡á∩, ßΓáΓ¿τÑ߬á∩ »ÑαѼѡ¡á∩ ¡Ñ ¼ÑΦáÑΓ ó 
  1122. »α«úαἼѠñαπú¿¼ »ÑαѼѡ¡δ¼, ¿¼ÑεΘ¿¼ Γᬫ⌐ ªÑ ¿ñÑ¡Γ¿Σ¿¬áΓ«α - «¡á 
  1123. ó¿ñ¡á Γ«½∞¬« ¿º¡πΓα¿ »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿, «»¿ßδóáεΘÑ⌐ ÑÑ. èᬠ¿ 
  1124. «íΘá∩ »ÑαѼѡ¡á∩, ßΓáΓ¿τÑ߬á∩ »ÑαѼѡ¡á∩ ºá¡¿¼áÑΓ »«ßΓ«∩¡¡«Ñ ¼Ñß-
  1125. Γ« ó »á¼∩Γ¿ ¿, Γᬿ¼ «íαẫ¼, ¡Ñ ΓÑα∩ÑΓ ßó«Ñ º¡áτÑ¡¿Ñ ¼Ñªñπ ó맮-
  1126. óἿ »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿.  Ä¡á ¿¡¿µ¿á½¿º¿απÑΓß∩ ¡π½Ñ¼ ¿½¿ "»πß-
  1127. Γ«⌐" (ó ß½πτáÑ ßΓ᫬) Γ«½∞¬« »α¿ ¡áτá½Ñ óδ»«½¡Ñ¡¿∩ »α«úαá¼¼δ.  
  1128.  
  1129. SUB Dummy STATIC
  1130.   STATIC i
  1131.   i = i + 1
  1132.   PRINT i
  1133. END SUB
  1134. i = 16
  1135. CALL Dummy
  1136. CALL Dummy
  1137. PRINT i
  1138.  
  1139.      æΓáΓ¿τÑ߬á∩  »ÑαѼѡ¡á∩  i ó Dummy «Γ½¿τ¡á «Γ »ÑαѼѡ¡«⌐ i ó 
  1140. "«ß¡«ó¡«⌐ »α«úαá¼¼Ñ".  Äñ¡á¬«, ó «Γ½¿τ¿Ñ «Γ ½«¬á½∞¡«⌐ »ÑαѼѡ¡«⌐, 
  1141. «¡á  ß«σαá¡∩ÑΓ  ßó«Ñ º¡áτÑ¡¿Ñ ¼Ñªñπ ó맮óἿ ß«ñÑαªáΘÑ⌐ ÑÑ »α«µÑ-
  1142. ñπαδ.  Ä¡á ¡áτ¿¡áÑΓß∩ ß 0, ¬á¬ ¿ ½εíá∩ ñαπúá∩ »ÑαѼѡ¡á∩,  ¿ πóÑ-
  1143. ½¿τ¿óáÑΓß∩ óñó«Ñ ñó«⌐¡δ¼ óδº«ó«¼ Dummy.  
  1144.      Åαáó¿½∞¡«Ñ  ¿ß»«½∞º«óá¡¿Ñ  áαúπ¼Ñ¡Γ«ó ¿ ½«¬á½∞¡δσ »ÑαѼѡ¡δσ 
  1145. »«¼«ªÑΓ ßñѽáΓ∞ »α«µÑñπαδ ¿  Σπ¡¬µ¿¿  »«½¡«ßΓ∞ε  ¡Ñºáó¿ß¿¼δ¼¿  «Γ 
  1146. »α«úαá¼¼δ,  ó  ¬«Γ«α«⌐ «¡¿ »«∩ó½∩εΓß∩.  êß»«½∞ºπ∩ ¬«¡µÑ»µ¿ε ÆôÉüÄ 
  1147. üàëæêèá "«ß¡«ó¡«⌐ Σá⌐½ / αáí«τ¿⌐ Σá⌐½" ¿  ¼ÑΓá«»ÑαáΓ«α  $INCLUDE, 
  1148. φΓ¿  »α«µÑñπαδ ¿ Σπ¡¬µ¿¿ ¼«ª¡« íѺ Γαπñá »ÑαÑñáóáΓ∞ ó ¡«óδÑ »α«ú-
  1149. αá¼¼δ.  
  1150.  
  1151.      ÉѬπαß¿∩.
  1152.      ---------
  1153.      ÆôÉüÄ  üàëæêè  «íÑß»Ñτ¿óáÑΓ  αѬπαß¿ε  - »α«µÑßß,  ß »«¼«Θ∞ε 
  1154. ¬«Γ«α«ú« Σπ¡¬µ¿∩ ¿½¿ »α«µÑñπαá óδºδóáÑΓ ßÑí∩, »α∩¼« ¿½¿ ¬«ßóÑ¡¡«. 
  1155. Å«º¡á¬«¼∞ΓÑß∞ ß αѬπαß¿ó¡δ¼ »αÑ«íαẫó᡿Ѽ FNFactorial: 
  1156.  
  1157. DEF FNFactorial#(n%)
  1158.   IF n% > 1 AND n% < 170 THEN
  1159.     FNFactorial# = n% * FNFactorial#(n%-1)
  1160.   ELSEIF n% = 0 OR n% = 1 THEN
  1161.     FNFactorial# = 1
  1162.   ELSE
  1163.     FNFactorial# = -1
  1164.   END IF
  1165. END DEF
  1166.  
  1167.      Äñ¡« íα«ßáÑΓß∩ ó ú½áºá ßαáºπ:  αѬπαß¿ó¡δ⌐  á½ú«α¿Γ¼  ¬«α«τÑ 
  1168. ¡ÑαѬπαß¿ó¡«ú«. FNFactorial íδ½á ß«¬αáΘÑ¡á ñ« «ñ¡«ú« í½«¬á IF íѺ 
  1169. 
  1170. ½«¬á½∞¡δσ »ÑαѼѡ¡δσ.  èαáΓ¬«ßΓ∞ - σáαá¬ΓÑα¡á∩ τÑαΓá  αѬπαß¿ó¡δσ 
  1171. »α«úαá¼¼.  
  1172.      äαπúá∩ τÑαΓá αѬπαß¿ó¡«ú« ¬«ñá - ¬áªπΘá∩ß∩ ß½«ª¡«ßΓ∞. ïπτΦ¿⌐ 
  1173. ß»«ß«í πº¡áΓ∞ αѬπαß¿ó¡δ⌐ á½ú«α¿Γ¼ - »α«αáí«ΓáΓ∞  ß  ¬áαá¡áΦ«¼  ¿ 
  1174. íπ¼áú«⌐  ¡Ñ߬«½∞¬« »α«í¡δσ »α«úαá¼¼.  äáóá⌐ΓÑ «»αÑñѽ¿¼ Σá¬Γ«α¿á½ 
  1175. 3,  ¼δ߽ѡ¡«  »α«íѪáó  »«  ß»¿α὿,   ¬«Γ«απε ß«óÑαΦ¿Γ »α«úαá¼¼á 
  1176. ÆôÉüÄ üàëæêè, Ñß½¿ Ñ⌐ ºáñáΓ∞ «»ÑαáΓ«α 
  1177.  
  1178. PRINT FNFactorial#(3)
  1179.  
  1180.      ä½∩ ¡áτá½á áαúπ¼Ñ¡Γ 3 »ÑαÑñáÑΓß∩ Σπ¡¬µ¿¿ »« º¡áτÑ¡¿ε. ÅÑαóδ¼ 
  1181. ñѽ«¼  FNFactorial  πñ«ßΓ«óÑα∩ÑΓß∩,  τΓ« φëàáαúπ¼Ñ¡Γ í«½∞ΦÑ 1 ¿ 
  1182. ¼Ñ¡∞ΦÑ ¿½¿ αáóÑ¡ 170;  3 »α«σ«ñ¿Γ φΓ« ¿ß»δΓá¡¿Ñ, »«φΓ«¼π óδ»«½¡∩-
  1183. ÑΓß∩ «»ÑαáΓ«α, π»αáó½∩Ѽδ⌐ »Ñαóδ¼ »αÑñ½«ªÑ¡¿Ñ¼ THEN: 
  1184.  
  1185. FNFactorial# = 3 * FNFactorial#(2)
  1186.  
  1187.      ¥Γ«⌐  ßΓ᫬«⌐  ¿¼Ñ¡¿  Σπ¡¬µ¿¿ »α¿ßóá¿óáÑΓß∩ º¡áτÑ¡¿Ñ 3 (»«¬á 
  1188. óßÑ σ«α«Φ«),  »«¼¡«ªÑ¡¡«Ñ ¡á º¡áτÑ¡¿Ñ FNFactorial(2),  ¬á¬«ó«  íδ 
  1189. «¡«  ¡¿  í佫.  ÅαѪñÑ τѼ »α¿ßó«Ñ¡¿Ñ ß«ßΓ«¿Γß∩,  ß½ÑñπÑΓ ÑΘÑ αẠ
  1190. óδºóáΓ∞ FNFactorial,  ΓÑ»Ñα∞ πªÑ ß áαúπ¼Ñ¡Γ«¼ 2.  ÄΓ½«ª¿¼ »«¬á  ó 
  1191. ßΓ«α«¡π φëà«»ÑαáΓ«α »α¿ßó«Ñ¡¿∩; óÑα¡Ñ¼ß∩ ¬ ¡Ñ¼π »«ºñ¡ÑÑ.  
  1192.      éΓ«α«⌐  ó맮ó  FNFactorial »«½πτáÑΓ áαúπ¼Ñ¡Γ 2 ¿ óδ»«½¡∩ÑΓß∩ 
  1193. ¡«α¼á½∞¡«.  ê ó¡«ó∞ «¡á πñ«ßΓ«óÑα∩ÑΓß∩,  τΓ« áαúπ¼Ñ¡Γ í«½∞ΦÑ 1  ¿ 
  1194. ¼Ñ¡∞ΦÑ ¿½¿ αáóÑ¡ 170;  ¼δ ó¡«ó∞ «¬áºδóáѼß∩ π αѬπαß¿ó¡«ú« «»Ñαá-
  1195. Γ«αá: 
  1196.  
  1197. FNFactorial# = 2 * FNFactorial#(1)
  1198.  
  1199.      ÄΓ½«ª¿ΓÑ ó ßΓ«α«¡π ¿ φëà «»ÑαáΓ«α  »α¿ßó«Ñ¡¿∩  ¿  ó맮ó¿ΓÑ 
  1200. FNFactorial ó ΓαÑΓ¿⌐ αáº, ΓÑ»Ñα∞ ß áαúπ¼Ñ¡Γ«¼ 1.     
  1201.      FNFactorial(1) «τÑ¡∞ ½Ñú¬« »αÑñßΓáó¿Γ∞ - «¡ «»αÑñѽ∩ÑΓß∩ ¬á¬ 
  1202. 1 ó« óΓ«α«¼ »αÑñ½«ªÑ¡¿¿ THEN.  é φëàαáº,  ¡á¬«¡Ñµ,  FNFactorial 
  1203. αáºαÑΦÑ¡« "«ΓñáΓ∞" º¡áτÑ¡¿Ñ,  ¿ «¡á «ΓñáÑΓ º¡áτÑ¡¿Ñ 1  »«ß½Ññ¡Ñ¼π 
  1204. «Γ½«ªÑ¡¡«¼π ó맮óπ FNFactorial.  ÉáºαÑΦÑ¡« ΓᬪѠºá¬«¡τ¿Γ∞ óδ»«½-
  1205. ¡Ñ¡¿Ñ Ñú« «»ÑαáΓ«απ »α¿ßó«Ñ¡¿∩: 
  1206.  
  1207. FNFactorial# = 2 * 1
  1208.  
  1209.      ¥Γ¿¼ »α«¼ÑªπΓ«τ¡δ¼ óδº«ó«¼  »«½¡«⌐  FNFactorial  º¡áτÑ¡¿Ñ  2 
  1210. ó«ºóαáΘáÑΓß∩  ¿ßσ«ñ¡«¼π  ó맮óπ FNFactorial ¿ »Ñαó«¼π «»ÑαáΓ«απ -
  1211. »α«ñ«½ªÑ¡¿ε: 
  1212.  
  1213. FNFactorial# = 3 * 2
  1214.  
  1215.      Å«ß½Ñ φΓ«ú« »«ß½Ññ¡Ñú«  »α¿ßó«Ñ¡¿∩  π»αáó½Ñ¡¿Ñ  ó«ºóαáΘáÑΓß∩ 
  1216. «»ÑαáΓ«απ PRINT ¿ ¡á φ¬αá¡Ñ »«∩ó½∩ÑΓß∩ "6".  
  1217.      ìÑ  ßπΘÑßΓóπÑΓ «ñ¡«º¡áτ¡«ú« «ΓóÑΓá,  ¬«úñᠪѠ߽ÑñπÑΓ »α¿¼Ñ-
  1218. ¡∩Γ∞ αѬπαß¿ε, ¡« ó «íΘѼ,  ¿ß»«½∞ºπ⌐ΓÑ ÑÑ,  ¬«úñá »α«í½Ñ¼á ¡«ß¿Γ 
  1219. "αѬπαß¿ó¡δ⌐" σáαá¬ΓÑα.  öá¬Γ«α¿á½δ,  ¡á»α¿¼Ñα, ¿¡«úñá αѬπαß¿ó¡« 
  1220. «»αÑñѽ∩εΓß∩ ó ¼áΓѼáΓ¿τÑ߬¿σ πτÑí¡¿¬áσ: 
  1221.  
  1222.      ä½∩ ½εí«ú« »«½«ª¿ΓÑ∞¡«ú« µÑ½«ú« τ¿ß½á n,
  1223. Ñß½¿ n > 1, Γ«
  1224.   n! = n * (n-1)!
  1225. ¿¡áτÑ
  1226.   n! = 1
  1227.  
  1228.      êß»«½∞º«óá¡¿Ñ αѬπαß¿ó¡«ú«  á½ú«α¿Γ¼á,  ó«º¼«ª¡«,  »«ΓαÑíπÑΓ 
  1229. πóѽ¿τÑ¡¿∩ ¿ß»«½¡¿Γѽ∞¡«ú« ßΓѬᠻα«úαá¼¼δ ß »«¼«Θ∞ε ¼ÑΓá«»ÑαáΓ«-
  1230. αá $STACK,  »«ß¬«½∞¬π ¬áªñδ⌐ πα«óÑ¡∞ αѬπαß¿¿ ¼«ªÑΓ  ºá¡¿¼áΓ∞  ñ« 
  1231. 125  íá⌐Γ  (φΓá  óѽ¿τ¿¡á ¼Ñ¡∩ÑΓß∩).  ä½∩ «»αÑñѽѡ¿∩ «ßΓáóΦÑú«ß∩ 
  1232. ßó«í«ñ¡«ú« «íΩѼá ßΓѬᠿ߻«½∞ºπ⌐ΓÑ Σπ¡¬µ¿ε FRE(-1).  
  1233.  
  1234.  
  1235.  
  1236.  
  1237.  
  1238.  
  1239.  
  1240.  
  1241.  
  1242.  
  1243.  
  1244.  
  1245.  
  1246.  
  1247.