home *** CD-ROM | disk | FTP | other *** search
/ For Beginners & Professional Hackers / cd.iso / docum / tb1.doc / tb8.doc < prev    next >
Encoding:
Text File  |  1989-07-30  |  48.4 KB  |  1,167 lines
  1.                          öπ¡¬µ¿∩ ENVIRON$
  2. -----------------------------------------------------------------
  3. ìạáτÑ¡¿Ñ  öπ¡¬µ¿∩ ENVIRON$ «Γδ߬¿óáÑΓ »áαá¼ÑΓαδ Γáí½¿µδ ßαÑñδ.  
  4.  
  5. æ¿¡Γá¬ß¿ß   s$ = ENVIRON$ (parameter string)
  6.             s$ = ENVIRON$ (n)
  7.  
  8. 諼¼Ñ¡Γáα¿⌐    parameter string - φΓ« ß¿¼ó«½∞¡«Ñ  óδαáªÑ¡¿Ñ,  ß«-
  9.             ñÑαªáΘÑÑ «Γδ߬¿óáѼδÑ »áαá¼ÑΓαδ;
  10.                n - φΓ« µÑ½«τ¿ß½Ñ¡¡«Ñ óδαáªÑ¡¿Ñ ó ñ¿á»áº«¡Ñ  «Γ  1  
  11.             ñ«  255.  
  12.                öπ¡¬µ¿∩   ENVIRON$   ¿   ß««ΓóÑΓßΓóπεΘ¿⌐  «»ÑαáΓ«α 
  13.             ENVIRON ¿ß»«½∞ºπεΓß∩ ñ½∩ ¬«¡Σ¿úπαᵿ¿ ßαÑñδ,  ¬«Γ«αá∩ 
  14.             »ÑαÑσ«ñ¿Γ ¬ »α«úαá¼¼á¼,  óδ»«½¡∩Ñ¼δ¼  τÑαѺ  «»ÑαáΓ«α 
  15.             SHELL  (»«ñα«í¡ÑÑ  ß¼.  ßΓáΓ∞ε  «í  «»ÑαáΓ«αÑ SHELL ó 
  16.             ¡áßΓ«∩ΘѼ απ¬«ó«ñßΓóÑ ¿ « ¬«¼á¡ñÑ SET  ó  ß»αáó«τ¡¿¬Ñ 
  17.             DOS).  
  18.                àß½¿  ¿ß»«½∞ºπÑΓß∩  ß¿¼ó«½∞¡δ⌐  áαúπ¼Ñ¡Γ,  Σπ¡¬µ¿∩ 
  19.             ENVIRON$ ó«ºóαáΘáÑΓ ΓѬßΓ, ß½ÑñπεΘ¿⌐ ºá ßΓ᫬«⌐ »áαá- 
  20.             ¼ÑΓαá ó Γáí½¿µÑ ßαÑñδ. çá¼ÑΓ∞ΓÑ, τΓ« Σπ¡¬µ¿∩ ENVIRON$ 
  21.             αẽ¿τáÑΓ »α«»¿ß¡δÑ ¿ ßΓα«τ¡δÑ íπ¬óδ. àß½¿ ßΓα«¬á »á- 
  22.             αá¼ÑΓαá «ΓßπΓßΓóπÑΓ ¿½¿ »«ß½Ñ º¡á¬á αáóÑ¡ßΓóá ¡ÑΓ ¡¿- 
  23.             ¬á¬«ú« ΓѬßΓá, ó«ºóαáΘáÑΓß∩ ¡π½Ñóá∩ ßΓ᫬á.  
  24.                àß½¿ ¿ß»«½∞ºπÑΓ∞ß∩ τ¿ß½Ñ¡¡δ⌐ ó¿ñ, Σπ¡¬µ¿∩ ENVIRON$ 
  25.             ó«ºóαáΘáÑΓ ßΓ᫬π, ß«ñÑαªáΘπε n-¡δ⌐ »áαá¼ÑΓα ß ¡áτá½á 
  26.             Γáí½¿µδ.  àß½¿ n-ú« »áαá¼ÑΓαá ¡ÑΓ, ó«ºóαáΘáÑΓß∩ ¡π½Ñ- 
  27.             óá∩ ßΓ᫬á.  
  28.  
  29. Åα¿¼Ñα      æ¼. »α¿¼Ñα ó ßΓáΓ∞Ñ ENVIRON
  30.  
  31.                            öπ¡¬µ¿∩  EOF
  32. -----------------------------------------------------------------
  33. ìạáτÑ¡¿Ñ  öπ¡¬µ¿∩ EOF ó«ºóαáΘáÑΓ ßΓáΓπß "¬«¡Ñµ Σá⌐½á".  
  34.  
  35. æ¿¡Γá¬ß¿ß   Y = EOF (filenum)
  36.  
  37. 諼¼Ñ¡Γáα¿⌐    filenum - φΓ« º¡áτÑ¡¿Ñ, «»¿ßá¡¡«Ñ »α¿ «Γ¬αδΓ¿¿ 
  38.             Σá⌐½á (OPEN).  
  39.                EOF  ó«ºóαáΘáÑΓ TRUE (-1),  Ñß½¿ ó π¬áºá¡¡«¼ Σá⌐½Ñ 
  40.             ñ«ßΓ¿ú¡πΓ "¬«¡Ñµ Σá⌐½á";  ó »α«Γ¿ó¡«¼ ß½πτáÑ, ó«ºóαá- 
  41.             ΘáÑΓß∩ FALSE (0).  öπѬµ¿∩ EOF  ñÑ⌐ßΓó¿Γѽ∞¡á  Γ«½∞¬« 
  42.             ñ½∩  ñ¿ß¬«óδσ Σá⌐½«ó,  «Γ¬αδΓδσ ñ½∩ »«ß½Ññ«óáΓѽ∞¡«ú« 
  43.             óó«ñá ¿ ñ½∩ ¬«¼¼π¡¿¬áµ¿«¡¡δσ Σá⌐½«ó. é«ºóαáΓ EOF -1 ó 
  44.             ß½πτáÑ ¬«¼¼π¡¿¬áµ¿«¡¡«ú« Σá⌐½á  «º¡áτáÑΓ,  τΓ«  íπΣÑα 
  45.             »πßΓ«⌐.  
  46.  
  47. Åα¿¼Ñα      æ½ÑñπεΘ¿⌐ »α¿¼Ñα ßτ¿ΓδóáÑΓ ¿¡Σ«α¼áµ¿ε ß TEXT.DTA »«ß- 
  48.             ½Ññ«óáΓѽ∞¡«ú«  Σá⌐½á  ñ«  ΓÑσ  »«α,  »«¬á  ¡Ñ  íπñÑΓ 
  49.             ñ«ßΓ¿ú¡πΓ ¬«¡Ñµ Σá⌐½á: 
  50.  
  51.               OPEN "TEXT DTA" FOR INPUT AS #1
  52.             top:
  53.                  IF EOF (1) THEN
  54.               PRINT c "records (lines) in file TEXT.DTA"
  55.                  END IF
  56.               INPUT #1, dummy$
  57.               c = c + 1
  58.             GOTO top
  59.    
  60.            ¿½¿ í«½ÑÑ φ½Ñúá¡Γ¡«:
  61.  
  62.             OPEN "TEXT.DTA" FOR INPUT AS #1
  63.             WHILE NOT EOF (1)
  64.               INPUT #1, dummy$
  65.               INCR c
  66.             WEND
  67.             PRINT c "records (lines) in file TEXT.DTA" : END
  68.   
  69.                           öπ¡¬µ¿∩ ERADR
  70. -----------------------------------------------------------------
  71. ìạáτÑ¡¿Ñ  ERADR ó«ºóαáΘáÑΓ áñαÑß ßἫ⌐ »«ß½Ññ¡Ñ⌐ «Φ¿í¬¿.
  72.  
  73. æ¿¡Γá¬ß¿ß   Y = ERADR
  74.   
  75. 諼¼Ñ¡Γáα¿⌐    öπ¡¬µ¿∩  ERADR  ó«ºóαáΘáÑΓ  ñ½¿¡¡«Ñ  µÑ½«τ¿ß½Ñ¡¡«Ñ 
  76.             º¡áτÑ¡¿Ñ,  »αÑñßΓáó½∩εΘÑÑ  ¼ÑßΓ«¡áσ«ªñÑ¡¿Ñ ßἫ⌐ »«ß-
  77.             ½Ññ¡Ñ⌐  «Φ¿í¬¿.  ERADR  -  φΓ«  Γ«  ªÑ ßἫѠº¡áτÑ¡¿Ñ 
  78.             ßτÑΓτ¿¬á »α«úαá¼¼δ, ¬«Γ«α«Ñ í佫 íδ ¡á»ÑτáΓá¡« ó ß½π- 
  79.             τáÑ,  Ñß½¿ íδ ¡Ñ íδ½á óδ»«½¡Ñ¡á  ½«óπΦ¬á  «Φ¿í«¬  (Γ« 
  80.             ÑßΓ∞, ¼«ªÑΓ íδΓ∞ ¿ß»«½∞º«óá¡« óδí«α«¼ «Φ¿í¬¿ óδ»«½¡Ñ- 
  81.             ¡¿Ñ  ¼Ñ¡ε  Options  ñ½∩ ¡áσ«ªñÑ¡¿∩ »«½«ªÑ¡¿∩ ¿ßσ«ñ¡«⌐ 
  82.             »α«úαá¼¼δ «»ÑαáΓ«αá, úÑ¡Ñα¿απεΘÑú« «Φ¿í¬π).  
  83.                ERADR ¿ß»«½∞ºπÑΓß∩ ó ¬áτÑßΓóÑ »«ß½Ññ¡Ñú« «íαáΘÑ¡¿∩ 
  84.             ó »α«úαá¼¼áσ ß «Φ¿í¬á¼¿ ¿º-ºá  ¡Ñ»αáó¿½∞¡«ú«  «íαáΘÑ- 
  85.             ¡¿∩. àß½¿ »α«úαá¼¼á ß «Φ¿í¬«⌐ ¡Ñ ¿¼ÑÑΓ »½á¡á «íαáí«Γ- 
  86.             ¬¿  ¬«¡¬αÑΓ¡«⌐ «Φ¿í¬¿,  ¼«ª¡« »« ¬αá⌐¡Ñ⌐ ¼ÑαÑ óδóÑßΓ¿ 
  87.             ¬«ñ «Φ¿í¬¿ (ERR) ¿ ERADR  ¡á  φ¬αá¡  ¿  ñáΓ∞  ¬«¼á¡ñπ 
  88.             ß««íΘáΓ∞ »«½∞º«óáΓÑ½ε « ÑÑ ¡á½¿τ¿¿.  
  89.  
  90. æ¼.ΓᬪѠ   ERL     ERR     ERROR    ON ERROR
  91.  
  92. Åα¿¼Ñα      ON ERROR GOTO Trap 'πßΓá¡«ó¿ΓÑ «íαáí«Γ¬π «Φ¿í¬¿ 
  93.                                'óδ»«½¡Ñ¡¿∩
  94.             DIM X%(10)
  95.             FOR I% = 1 TO 10
  96.               READ X%(I%)    'ßτ¿Γá⌐ΓÑ X 10 αáº
  97.               PRINT X%(I%)   'Γ«½∞¬« ß ßѼ∞ε ñá¡¡δ¼¿
  98.             NEXT I%          'ó«ºóαáΘáÑΓ «Φ¿í¬π ó¡Ñ ñá¡¡δσ
  99.  
  100.             '¡Ññ«ßΓáΓ«τ¡«Ñ ¬«½¿τÑßΓó« ñ«ßΓπ»¡δσ φ½Ñ¼Ñ¡Γ«ó ñá¡¡δσ
  101.  
  102.             DATA 1,2,3,4,5,6,7
  103.             END              'ºá¬«¡τ¿Γ∞ »α«úαá¼¼π
  104.  
  105.               æ½ÑñπεΘá∩ »α«úαἼᠫíαáí«Γ¬¿ «Φ¿í«¬ »ÑτáΓáÑΓ ¡«¼Ñα 
  106.             «Φ¿í¬¿ (ERR) ¿ áñαÑß (ADD).
  107.  
  108.           ON ERROR COTO Trap  '»α¿ «Φ¿í¬Ñ «íαáΓ¿Γ∞ß∩ ¬ »α«µÑñπαÑ
  109.                               'Trap -  «íαáí«Γ¬á «Φ¿í¬¿ 
  110.  
  111.             Trap:
  112.               LOCATE 10,15
  113.             '¡á»ÑτáΓáΓ∞ ß««íΘÑ¡¿Ñ ó ßÑαÑñ¿¡Ñ φ¬αá¡á
  114.       PRINT  "An error of type " ERR " has occurred at address"
  115.             ERADR
  116.             LOCATE 11,15
  117.           PRINT "Please note these values and check your manual"
  118.             END              'ºá¬«¡τ¿Γ∞ »α«úαá¼¼π
  119.  
  120.                           Ä»ÑαáΓ«α ERASE
  121. -----------------------------------------------------------------
  122. ìạáτÑ¡¿Ñ  Ä»ÑαáΓ«α ERASE ßΓ¿αáÑΓ ñ¿¡á¼¿τÑ߬¿Ñ ¼áßß¿óδ ¿ ó«ßßΓá-
  123.             ¡áó½¿óáÑΓ ßΓáΓ¿τÑ߬¿Ñ ¼áßß¿óδ.
  124.  
  125. æ¿¡Γá¬ß¿ß   ERASE array name [,array name]...
  126.  
  127. 諼¼Ñ¡Γáα¿⌐    array name -  φΓ« ¿¼∩ ¼áßß¿óá, ¬«Γ«αδ⌐  óδ  σ«Γ¿ΓÑ 
  128.             ó«ßßΓá¡«ó¿Γ∞ ¿½¿ »ÑαѼÑßΓ¿Γ∞.  çá¼ÑΓ∞ΓÑ, τΓ« ß ¿¼Ñ¡Ñ¼ 
  129.             ¼áßß¿óá ¡Ñ ñ«½ª¡δ ¿ß»«½∞º«óáΓ∞ß∩ »πßΓδѠ߬«í¬¿.  
  130.               àß½¿ ¿¼∩ ¼áßß¿óá ñ¿¡á¼¿τÑ߬«Ñ,  Ñú« »α«ßΓαá¡ßΓó«  ó 
  131.             »á¼∩Γ¿  «ßó«í«ªñáÑΓß∩  ¿  ¿¼∩  ¼áßß¿óá ºáΓѼ ºáñáÑΓß∩ 
  132.             ó¡«ó∞ ß »«¼«Θ∞ε ¡«ó«ú« «»ÑαáΓ«αá DIM.  
  133.               àß½¿  ¿¼∩  ¼áßß¿óá  ßΓáΓ¿τÑ߬«Ñ,  ßΓ¿αá¡¿Ñ  (ERASE) 
  134.             »α«ßΓ«  «τ¿ΘáÑΓ  Ñú«  φ½Ñ¼Ñ¡Γδ  ñ«  0 (¿½¿ ñ« ¡π½Ñó«⌐ 
  135.             ßΓ᫬¿ ñ½∩ ß¿¼ó«½∞¡δσ ¼áßß¿ó«ó).  
  136.  
  137. Äúαá¡¿τÑ¡¿∩    ìÑ󫺼«ª¡« ßΓÑαÑΓ∞ (ERASE)  ¡ÑßπΘÑßΓóπεΘ¿⌐  ¼áßß¿ó 
  138.             ¿½¿  ó  ß½πτáÑ ñ¿¡á¼¿τÑ߬¿σ ¼áßß¿ó«ó ¼áßß¿ó,  ¬«Γ«αδ⌐ 
  139.             πªÑ íδ½ ßΓÑαΓ.  
  140.  
  141. Éẽ¿τ¿∩       é ÆôÉüÄ üàëæêèÑ ßΓáΓ¿τÑ߬¿Ñ ¼áßß¿óδ «íαáíáΓδóáεΓß∩ 
  142.             íδßΓαÑÑ ñ¿¡á¼¿τÑ߬¿σ ¼áßß¿ó«ó.  ê¡ΓÑα»αÑΓáΓ«α  üàëæêè 
  143.             αáí«ΓáÑΓ Γ«½∞¬« ß ñ¿¡á¼¿τÑ߬¿¼¿ ¼áßß¿óἿ.  
  144.  
  145. æ¼.ΓᬪѠ   CLEAR   DIM  $DYNAMIC   FRE   $STATIC
  146.  
  147. Åα¿¼Ñα      ON ERROR GOTO ErrorHandler 'πßΓá¡«ó¿Γ∞ »α«úαá¼¼π
  148.             PRINT FRE(-1)      '»«¬áºáΓ∞ ñ«ßΓπ»¡«Ñ »α«ßΓαá¡-
  149.                                'ßΓó« ¼áßß¿óá
  150.                                '«í∞∩ó¿Γ∞ ñ¿¡á¼¿τÑ߬¿⌐ ¼áßß¿ó,
  151.                                '»α¿ßó«¿Γ∞ Ñ¼π ñá¡¡δÑ ¿ »«¬áºáΓ∞ 
  152.                                'ñ«ßΓπ»¡«Ñ »α«ßΓαá¡ßΓó« ¼áßß¿óá
  153.             DIM DYNAMIC BigArray(1000)
  154.             BigArray(6666) = 66
  155.             PRINT FRE(-1)
  156.             ERASE BigArray  '»ÑαѼÑßΓ¿Γ∞ ñ¿¡á¼¿τÑ߬¿⌐ ¼áßß¿ó
  157.             PRINT FRE(-1)   '»«¬áºáΓ∞ ñ«ßΓπ»¡«Ñ »α«ßΓαá¡ßΓó« ¼áßß¿óá
  158.                      'äá¡¡δ⌐ «»ÑαáΓ«α ó«ºóαáΓ¿Γ «Φ¿í¬π óδ»«½¡Ñ¡¿∩,
  159.                      'Ñß½¿ »α«úαá¼¼á óδ󻫽¡∩ÑΓß∩ ß »α«óÑᬫ⌐ úαá¡¿µ.
  160.             PRINT BigArray(6666)
  161.             END             'ºá¬«¡τ¿Γ∞ »α«úαá¼¼π
  162.             ErrorHandler:
  163.             PRINT "An error of type" ERR
  164.             PRINT "has occurred at address" ERADR
  165.             END
  166.   
  167.                        öπ¡¬µ¿¿ ERDEV, ERDEV$
  168. -----------------------------------------------------------------
  169. ìạáτÑ¡¿Ñ     öπ¡¬µ¿¿ ERDEV ¿ ERDEV$ ó«ºóαáΘáεΓ ¿¡Σ«α¼áµ¿ε ºáñá-
  170.                εΘÑú«  πßΓα«⌐ßΓóá (ñαá⌐óÑαá).
  171.  
  172. æ¿¡Γá¬ß¿ß      Y = ERDEV
  173.                Y$= ERDEV$
  174.  
  175. 諼¼Ñ¡Γáα¿⌐    è«úñá »α«¿ßσ«ñ¿Γ «Φ¿í¬á ó πßΓα«⌐ßΓóÑ, µÑ½«τ¿ß½Ñ¡-
  176.             ¡á∩  Σπ¡¬µ¿∩ ERDEV ó«ºóαáΘáÑΓ ¿¡Σ«α«¼áµ¿ε «í «Φ¿í¬Ñ ó 
  177.             ¡á¿¼Ñ¡ÑÑ º¡áτ¿¼δ⌐ íá⌐Γ. ¥Γ«Γ íá⌐Γ »αÑñßΓáó½∩ÑΓ «Φ¿í¬π 
  178.             ¬«ñá  INT  24   ìá¿í«½ÑÑ   º¡áτ¿¼δ⌐   íá⌐Γ   ó¬½ετáÑΓ 
  179.             15,14,13,3,2,1 ¿ 0 í¿Γδ áΓΓα¿íπΓá ß½«óá πßΓα«⌐ßΓóá.  
  180.               öπ¡¬µ¿∩ ERDEV  ß«ñÑαª¿Γ  ¿¼∩  3  íá⌐Γ«ó  πßΓα«⌐ßΓó, 
  181.             »αÑñ¡áº¡áτÑ¡¡δσ  ñ½∩  º¡á¬«óδσ  πßΓα«⌐ßΓó  ¿  2 - ñ½∩ 
  182.             í½«τ¡δσ πßΓα«⌐ßΓó  (ü«½ÑÑ  »«ñα«í¡«  ß¼.  ÆÑσ¡¿τÑ߬«Ñ 
  183.             απ¬«ó«ñßΓó«- ß»αáó«τ¡¿¬ IBM DOS) 
  184.  
  185. Åα¿¼Ñα                        'πßΓá¡«ó¿Γ∞ «íαáí«Γ¬π «Φ¿í«¬
  186.             ON ERROR GOTO ErrorHandler
  187.             PRINT "Open the door to drive A and press any key..."
  188.             WHILE NOT INSTAT : WEND   '»«ñ«ªñáΓ∞ ¬½áó¿Φπ
  189.                 '»«»δΓá⌐ΓÑß∞ »«½πτ¿Γ∞ ¬áΓὫú
  190.             FILES "A:\*.*"
  191.                      END           'ºá¬«¡τ¿Γ∞ »α«úαá¼¼π
  192.  
  193.        ErrorHandle      '»α«úαἼᠫíαáí«Γ¬¿ ¬α¿Γ¿τÑ߬¿σ «Φ¿í«¬
  194.                         '»«¬áºáΓ∞ ß««íΘÑ¡¿Ñ «í «Φ¿í¬Ñ ß π¬áºá¡¿Ñ¼
  195.                         '»α«í½Ñ¼δ ¿ ¿ßΓ«τ¡¿¬á
  196.             PRINT USING "Critical error ## occurred with &";
  197.                          ERDEV,ERDEV$
  198.             RESUME NEXT
  199.   
  200.                          öπ¡¬µ¿¿ ERL,ERR
  201. -----------------------------------------------------------------
  202. ìạáτÑ¡¿Ñ     öπ¡¬µ¿¿ ERL ¿ ERR ó«ºóαóΘáεΓ ßΓα«¬π  ¿  ¬«ñ  ßἫ⌐
  203.                »«ß½Ññ¡Ñ⌐ «Φ¿í¬¿.
  204.  
  205. æ¿¡Γá¬ß¿ß      Y = ERL      Y = ERR
  206.  
  207. 諼¼Ñ¡Γáα¿⌐    ERL ó«ºóαáΘáÑΓ ¡«¼Ñα ßΓ᫬¿ »«ß½Ññ¡Ñ⌐ «Φ¿í¬¿. àß½¿
  208.             «Φ¿í¬á »α«¿ßσ«ñ¿Γ ó «»ÑαáΓ«αÑ íѺ ¡«¼Ñαá ßΓ᫬¿,  ERL 
  209.             ó«ºóαáΘáÑΓ ¡«¼Ñα í½¿ªá⌐ΦÑ⌐ ßΓ᫬¿ ß ¡«¼Ñα«¼, «»Ñα¿απ∩ 
  210.             ó «íαáΓ¡«¼ »«α∩ñ¬Ñ »« ¡á»αáó½Ñ¡¿ε ¬ ¡áτá½π »α«úαá¼¼δ.  
  211.             àß½¿  ¼Ñªñπ  ¼ÑßΓ«¼  «Φ¿í¬¿  ¿  ¡áτὫ¼ »α«úαá¼¼δ ¡ÑΓ 
  212.             »α«¡π¼Ñα«óá¡¡δσ ßΓ᫬, ERL ó«ºóαáΘáÑΓ 0.  
  213.                öπ¡¬µ¿∩  ERR ó«ºóαáΘáÑΓ  ¡«¼Ñα  »«ß½Ññ¡Ñ⌐   «Φ¿í¬¿ 
  214.             óδ»«½¡Ñ¡¿∩.  Åα«óÑα∞ΓÑ ÑÑ ó »α«úαá¼¼á󠽫óπΦ¬¿ «Φ¿í«¬ 
  215.             ñ½∩ óδ»«½¡Ñ¡¿∩ ¬«ñá, ß««ΓóÑΓßΓóπεΘÑú« Γ¿»π «Φ¿í¬¿.  
  216.  
  217. Åα¿¼Ñτá¡¿Ñ     Ä»ÑαáΓ«αδ  ERL,  RESOME  ¿  RESUME  NEXT  óδºδóáεΓ
  218.             úÑ¡Ñα¿α«óá¡¿Ñ  ¬«¼»¿½∩Γ«α«¼  4-íá⌐Γ«ó«ú« »«⌐¡ΓÑαá ñ½∩ 
  219.             ¬áªñ«ú« «»ÑαáΓ«αá ó »α«úαá¼¼Ñ.  
  220.                ¥Γ« ñ«½ª¡δ  πτ¿ΓδóáΓ∞  »α«úαá¼¼¿ßΓδ,  ñ½∩  ¬«Γ«αδσ 
  221.             óáªÑ¡  αẼÑα ¿σ úÑ¡Ñα¿α«óá¡¡«ú« ¬«ñá.  êß»«½∞º«óá¡¿Ñ 
  222.             «»ÑαáΓ«αá RESUME  [ßΓα«¬á  #]  úÑ¡Ñα¿απÑΓ  ¿¡ßΓαπ¬µ¿ε 
  223.             «ñ¡«⌐   «»Ñαᵿ¿   »ÑαÑσ«ñá.   Äíδτ¡«,   Σπ¡¬µ¿∩  ERL 
  224.             ¿ß»«½∞ºπÑΓß∩ »α¿ «Γ½áñ¬Ñ »α«úαá¼¼.  
  225.  
  226. Éẽ¿τ¿∩       Åαáó¿½á,  ¬áßáεΘ¿Ñß∩ Γ«ú« ¡á ¬á¬«⌐ ßΓ«α«¡Ñ αѽ∩µ¿-
  227.             «¡¡«ú«  «»ÑαáΓ«αá  ñ«½ªÑ¡  ¡áσ«ñ¿Γ∞ß∩  ¡«¼Ñα  ßΓ᫬¿, 
  228.             ß«»«ßΓáó½∩Ѽ«⌐  ß  Σπ¡¬µ¿Ñ⌐  ERL,  ¡Ñ»α¿Ñ¼½Ñ¼δ.   ¥Γ« 
  229.             »α«¿ßσ«ñ¿Γ »«Γ«¼π, τΓ« ó Æπαí« üÑ⌐ß¿¬Ñ ¡ÑΓ ¿¡cΓαπ¬µ¿¿ 
  230.             RENUM.  é Æπαí« üÑ⌐ß¿¬Ñ ΓᬪѠ¡Ñ  »α¿¼Ñ¡¿¼  αѺπ½∞ΓáΓ 
  231.             Σπ¡¬µ¿¿  ERL  ¿¡ΓÑα»α¿ΓáΓ«αá üÑ⌐ß¿¬, ¬«úñá »α«¿ßσ«ñ¿Γ 
  232.             «Φ¿í¬á ó« óαѼ∩  óδ»«½¡Ñ¡¿∩  «»ÑαáΓ«αá  DIRECT  MODE.  
  233.  
  234. æ¼. ΓᬪѠ  ERARD   ERROR    ON ERROR
  235.  
  236. Åα¿¼Ñα     'πßΓá¡«ó¿Γ∞ «íαáí«Γ¬π «Φ¿í¬¿ óδ»«½¡Ñ¡¿∩
  237.  
  238.             ON ERROR GOTO Trap
  239.             
  240.             DIM X% (10)
  241.  
  242.             FOR I% = 1 TO 10
  243.             40 READ X% (I%)  'ßτ¿ΓáΓ∞ X 10 αáº
  244.                PRINT X% (I%) 'Γ«½∞¬« ß ñá¡¡δ¼¿ Y
  245.             NEXT I%          'ó«ºóαáΘáÑΓ «Φ¿í¬π ó¡Ñ ñá¡¡δσ
  246.             '¡Ññ«ßΓáΓ«τ¡«Ñ ¬«½¿τÑßΓó« φ½Ñ¼Ñ¡Γ«ó ñá¡¡δσ
  247.             70 DATA 1,2,3,4,5,6,7
  248.             80 END 'ºá¬«¡τ¿Γ∞ »α«úαá¼¼π
  249.             90 Trap:
  250.           IF  ERL=40 THEN
  251.             RESTORE
  252.             RESUME
  253.           ELSE
  254.                  PRINT "Unknown Error" : END
  255.                        "ìÑ¿ºóÑßΓ¡á∩ «Φ¿í¬á"
  256.             END IF
  257. 
  258.                           Ä»ÑαáΓ«α ERROR
  259. -----------------------------------------------------------------
  260. ìạáτÑ¡¿Ñ  Ä»ÑαáΓ«α ERROR Σ«α¼¿απÑΓ «Φ¿í¬π óδ»«½¡Ñ¡¿∩
  261.  
  262. æ¿¡Γá¬ß¿ß   ERROR errcode
  263.  
  264. 諼¼Ñ¡Γáα¿⌐     errcode ÑßΓ∞ µÑ½«τ¿ß½Ñ¡¡«Ñ óδαáªÑ¡¿Ñ «Γ 0 ñ« 255.
  265.             àß½¿  errcode  ∩ó½∩ÑΓß∩ »αÑñ«»αÑñѽѡ¡δ¼ ¬«ñ«¼ «Φ¿í¬¿ 
  266.             óδ»«½¡Ñ¡¿∩ (ß¼.  »α¿½«ªÑ¡¿Ñ à),  Γ«úñá «»ÑαáΓ«α ERROR 
  267.             óδºδóáÑΓ  ΓᬫѠ »«óÑñÑ¡¿Ñ  óáΦÑ⌐  »α«úαá¼¼δ,  ¬á¬  ó 
  268.             ß½πτáÑ »«∩ó½Ñ¡¿∩  «Φ¿í¬¿.  ¥Γ«  ß»«ß«íßΓóπÑΓ  «Γ½áñ¬Ñ 
  269.             »α«úαá¼¼,  ½«óπΦ¬Ñ  «Φ¿í«¬.   ä½∩  «»αÑñѽѡ¿∩  óáΦ¿σ 
  270.             ¬«ñ«ó «Φ¿í«¬ ¿ß»«½∞ºπ⌐ΓÑ º¡áτÑ¡¿∩ errcode, ¬«Γ«αδÑ ¡Ñ 
  271.             ¿ß»«½∞ºπεΓß∩ Æπαí« üÑ⌐ß¿¬«¼.  àß½¿ óδ  ¡Ñ  «»αÑñѽ¿ΓÑ 
  272.             »α«µÑñπαπ  «íαáí«Γ¬¿  «Φ¿í«¬ φΓ¿σ ¡«óδ󠬫ñ«ó «Φ¿í«¬, 
  273.             Æπαí« üÑ⌐ß¿¬ óδñáßΓ ß««íΘÑ¡¿Ñ:  Error n  at  pgm-ctr: 
  274.             address, úñÑ n - φΓ« ¬«ñ «Φ¿í¬¿, á address - º¡áτÑ¡¿∩ 
  275.             ó  ßτÑΓτ¿¬Ñ  »α«úαá¼¼δ  »α«µÑßß«αá ó« óαѼ∩ »«∩ó½Ñ¡¿∩ 
  276.             «Φ¿í¬¿.  
  277. Åα¿¼Ñα
  278.             'ö«αß¿α«óáΓ∞ «Φ¿í¬π ¡Ñ»αáó¿½∞¡«ú« ó맮óá
  279.             'Σπ¡¬µ¿¿ ¿º-ºá »½«σ«ú« óó«ñá
  280.             
  281.             DEF FN func%= (X%)
  282.             IF X% > 65 THEN
  283.          ERROR 5     'óδºóáΓ∞ «Φ¿í¬π ¡Ñ»αáó¿½∞¡«ú« ó맮óá Σπ¡¬µ¿¿
  284.             ELSE
  285.               FNfunc%= X%*1000
  286.               END IF
  287.             END DEF
  288.  
  289.          PRINT FN func(66)  'óδºóáΓ∞ «Φ¿í¬π ¡Ñ»αáó¿½∞¡«ú« ó맮óá
  290.                             'Σπ¡¬µ¿¿
  291. 
  292.                           Ä»ÑαáΓ«α EXIT
  293. -----------------------------------------------------------------
  294. ìạáτÑ¡¿Ñ  Ä»ÑαáΓ«α EXIT »αѪñÑóαѼѡ¡« «ßΓáó½∩ÑΓ ßΓαπ¬Γπαπ.
  295.  
  296. æ¿¡Γá¬ß¿ß   EXIT {SELECT/DEF/FOR/IF/LOOP/SUB}
  297.  
  298. 諼¼Ñ¡Γáα¿⌐    Ä»ÑαáΓ«α EXIT ñáÑΓ óἠ󫺼«ª¡«ßΓ∞ óδ⌐Γ¿ ¿º cΓαπ¬- 
  299.             Γπα¡«ú« «»ÑαáΓ«αá,  »α«µÑñπαδ ¿½¿  «»αÑñѽѡ¿∩  Σπ¡¬- 
  300.             µ¿¿, ¡Ñ óδ»«½¡¿ó ¿σ ñ« ¬«¡µá.  Æ¿» ßΓαπ¬Γπαδ, ¬ ¬«Γ«- 
  301.             α«⌐  »α¿¼Ñ¡Ñ¡ «»ÑαáΓ«α EXIT,  ñ«½ªÑ¡ íδΓ∞ ó¬½ετÑ¡ ¬á¬ 
  302.             τáßΓ∞ «»ÑαáΓ«αá EXIT, ó ß««ΓóÑΓßΓó¿¿ ß« ß½ÑñπεΘ¿¼: 
  303.  
  304. -----------------------------------------------------------------
  305.        éáα¿á¡Γ EXIT           éδσ«ñ¡á∩ ßΓαπ¬Γπαá
  306. -----------------------------------------------------------------
  307.        SELECT                 «»ÑαáΓ«α SELECT
  308.        DEF                    «»αÑñѽѡ¿Ñ Σπ¡¬µ¿¿
  309.        FOR                    »ÑΓ½∩ FOR/NEXT
  310.        IF                     í½«¬ IF
  311.        LOOP                   »ÑΓ½∩ DO/LOOP ¿½¿ WHILE/WEND
  312.        SUB                    «»αÑñѽѡ¿Ñ »α«µÑñπαδ
  313. --------------------------------------------------------------------------
  314.  
  315.             êß»«½∞º«óá¡¿Ñ   EXIT   ¼«ªÑΓ   ß»áßΓ¿   íÑß»«α∩ñ«τ¡δÑ 
  316.             «»ÑαáΓ«αδ GOTO.  
  317.  
  318. Äúαá¡¿τÑ¡¿∩    êß»«½∞ºπ∩ «»ÑαáΓ«α EXIT ñ½∩ óδσ«ñá ¿º Σπ¡¬µ¿¿,  óδ 
  319.             ñ«½ª¡δ ¡áº¡áτ¿Γ∞ φΓ«⌐ Σπ¡¬µ¿¿ αѺπ½∞ΓáΓ ñ« óδ»«½¡Ñ¡¿∩ 
  320.             «»ÑαáΓ«αá EXIT.  
  321. 
  322. Åα¿¼Ñα      'äá¡¡á∩ »α«úαá¼¼á ñѼ«¡ßΓα¿απÑΓ óßÑ «»ÑαáΓ«αδ EXIT.
  323.             'ä½∩ ΓÑନ¡¿α«óá¡¿∩ óδ»«½¡Ñ¡¿∩ ¿ß»«½∞ºπÑΓß∩ ¬á¬ »α«µÑñπαá
  324.             'Γᬠ¿ Σπ¡¬µ¿∩. Å«ñ»α«úαá¼¼δ ΓᬪѠñѼ«¡ßΓα¿απεΓ αẽ¿τ¡δÑ
  325.             'ñ«ßΓπ»¡δÑ «»ÑαáΓ«αδ EXIT, ¿ß»«½∞ºπ∩ ¬«¡ßΓαπ¬µ¿¿ LOOP
  326.             '¡á α∩ñπ ß SELECT CASE ¿ IF THEN ELSE.
  327.  
  328.             SUB Controls(Se I%, Dummy %)
  329.  
  330.             'Ä»ÑαáΓ«αδ EXIT ¼«úπΓ ¿ß»«½∞º«óáΓ∞ß∩ ñ½∩ ΓÑନ¡¿α«óá¡¿∩
  331.             '¬«¡ßΓαπ¬µ¿¿ SELECT CASE ¿ IF THEN ELSE.
  332.             'EXIT ΓᬪѠΓÑନ¡¿απÑΓ óδ»«½¡Ñ¡¿Ñ »α«µÑñπαδ
  333.  
  334.             SELECT CASE Se I%
  335.          CASE 1
  336.             'êß»«½∞ºπ⌐ΓÑ óδí¿αáεΘ¿⌐ «»ÑαáΓ«α ñ½∩ »ÑαÑñáτ¿ »«½∞º«óáΓѽε
  337.             '¿¡Σ«α¼áµ¿¿ « óóÑñÑ¡¡«¼ τ¿ß½Ñ
  338.             SELECT CASE Dummy%
  339.             CASE < 0
  340.             PRINT "Number is less the zero"
  341.             'óδóÑßΓ¿ «»ÑαáΓ«α óδí«αá
  342.             EXIT SELECT
  343.             CASE > 0
  344.             PRINT "Number is greater then zero"
  345.             'óδóÑßΓ¿ «»ÑαáΓ«α óδí«αá
  346.             EXIT SELECT
  347.             CASE ELSE
  348.             PRINT "Number is 0"
  349.             END SELECT
  350.             EXIT SUB    'óδóÑßΓ¿ »α«µÑñπαπ
  351.          CASE 2
  352.             '¿ß»«½ºπ⌐ΓÑ IF THEN ELSE ñ½∩ óδ»«½¡Ñ¡¿∩ Γ«ú«, τΓ«
  353.             'ñѽáÑΓ SELECT CASE
  354.          IF Dummy % < 0 THEN
  355.             PRINT "Number is less then zero"
  356.          EXIT IF
  357.             ELSE IF Dummy % > 0 THEN
  358.             PRINT  "Number is greated then zero"
  359.  
  360.          EXIT IF   'óδóÑßΓ¿ Ñß½¿, Γ«úñá
  361.             ELSE
  362.             PRINT "NUMBER IS 0"
  363.             END IF
  364.             END SELECT
  365.             PRINT "You selected number 2"
  366.             END SUB
  367.             DEF FN Loops (Set%)
  368.       'Åáαá¼ÑΓα, »ÑαÑσ«ñ∩Θ¿⌐ ¬ Σπ¡¬µ¿¿ π¬áºδóáÑΓ, ¬á¬«⌐ EXIT
  369.       'íπñÑΓ óδ»«½¡Ñ¡. èáªñá∩ ßΓαπ¬Γπαá »ÑΓ½¿ ñѽáÑΓ Γ« ªÑ ßἫÑ
  370.       'τΓ«íδ »α«ñѼ«¡ßΓα¿α«óáΓ∞ ¬á¬ «»ÑαáΓ«α EXIT ¼«ªÑΓ íδΓ∞
  371.       '¿ß»«½∞º«óá¡ ñ½∩ ºáóÑαΦÑ¡¿∩ óδ»«½¡Ñ¡¿∩ »ÑΓ½¿.
  372.       'îδ ΓᬪѠñѼ«¡ßΓα¿απѼ ¬á¬ EXIT ¼«ªÑΓ ¿ß»«½∞º«óáΓ∞ß∩ ñ½∩
  373.       'óδó«ñá Σπ¡¬µ¿¿. EXIT DEF ¿ß»«½∞ºπÑΓß∩ ñ½∩ óδ»«½¡Ñ¡¿∩ EXIT
  374.       '¿º ñóπσ »Ñαóδσ «Γí«α«ó. ¥Γ« »αÑñ«ΓóαáΘáÑΓ «Γ óδ»«½¡Ñ¡¿∩
  375.       '«»ÑαáΓ«αá »ÑτáΓá¡¿∩.
  376.  
  377.       'Åα¿ßó«¿Γ∞ º¡áτÑ¡¿Ñ αѺπ½∞ΓáΓπ Σπ¡¬µ¿¿
  378.             FN Loops = -1
  379.             SELECT CASE Se I%
  380.                         
  381.                     CASE 1
  382.       '¿ß»«½∞ºπ⌐ΓÑ «»ÑαáΓ«α EXIT ñ½∩ óδσ«ñá ¿º »ÑΓ½¿ ó¼ÑßΓ« Γ«ú«,
  383.       'τΓ«íδ ºá¬«¡τ¿Γ∞ ÑÑ ó ¡«α¼Ñ.
  384.             FOR I% = 1 TO 32767
  385.               PRINT RND (Dummy %)
  386.             EXIT FOR        'óδóÑßΓ¿ »ÑΓ½ε ñ½∩ ...
  387.             NEXT I%
  388.             EXIT DEF        'óδóÑßΓ¿ óßε Σπ¡¬µ¿ε
  389.   
  390.                     CASE 2
  391.             '¿ß»«½∞ºπ⌐ΓÑ EXIT ñ½∩ óδσ«ñá ¿º φΓ«⌐ »ÑΓ½¿
  392.             'ó¼ÑßΓ« Γ«ú«, τΓ«íδ ºá¬«¡τ¿Γ∞ ÑÑ ó ¡«α¼Ñ
  393.             DO
  394.             PRINT RND (Dummy %)
  395.             EXIT Loop       'óδóÑßΓ¿ »ÑΓ½ε
  396.             Loop
  397.             EXIT DEF        'óδóÑßΓ¿ óßε Σπ¡¬µ¿ε
  398.  
  399.                     CASE 3
  400.             '¿ß»«½∞ºπ⌐ΓÑ EXIT ñ½∩ óδó«ñá ¿º φΓ«⌐ »ÑΓ½¿
  401.             'ó¼ÑßΓ« «¬«¡τá¡¿∩ ÑÑ ó ¡«α¼Ñ
  402.             WHILE 1
  403.             PRINT RND (Dummy %)
  404.             'φΓ« Γ« ªÑ ßἫÑ, τΓ« ¿ óδó«ñ
  405.             EXIT Loop
  406.             WEND       '»ÑΓ½∩ DO
  407.             END SELECT
  408.             PRINT "Yoy executed selection 3"
  409.             END DEF    'ºá¬«¡τ¿Γ∞ «»αÑñѽѡ¿Ñ Σπ¡¬µ¿¿
  410.             '¡áτáΓ∞ ú½áó¡πε »α«úαá¼¼π
  411.      '»α«¿ºóÑßΓ¿ Γα¿ ó맮óá Loops, óδí¿αá∩ ¬áªñπε ñ«ßΓπ»¡πε »ÑΓ½ε
  412.             PRINT FN Loops (1)
  413.             PRINT FN Loops (2)
  414.             PRINT FN Loops (3)
  415.          INPUT "Enter a number":" Dummy %  '»«½πτ¿ΓÑ óó«ñ »«½∞º«-
  416.                                            'óáΓѽ∩
  417.            'óδ»«½¡¿ΓÑ Controls, óδí¿αá∩ ¬áªñπε ßΓαπ¬Γπα𠬫¡Γα«½∩
  418.         FOR Count % = 1 TO 2
  419.             CALL Controls (Count %, Dummy %)
  420.             CALL Controls (Count %, Dummy %)
  421.         NEXT Count %
  422.             END     'ºá¬«¡τ¿Γ∞ »α«úαá¼¼π
  423. 
  424.                      öπ¡¬µ¿¿ EXP,EXP2, EXP10
  425. -----------------------------------------------------------------
  426. ìạáτÑ¡¿Ñ  EXP       ó«ºóαáΘáÑΓ e; 
  427.             EXP10     ó«ºóαáΘáÑΓ 10; 
  428.             EXP2      ó«ºóαáΘáÑΓ 2.,
  429.  
  430. æ¿¡Γá¬ß¿ß   EXP:           EXP2:            EXP10:
  431.             Y = EXP (X)    Y = EXP2 (X)     Y = EXP10 (X)
  432.  
  433. 諼¼Ñ¡Γáα¿⌐    EXP ó«ºóαáΘáÑΓ Ñ ó ßΓѻѡ¿ σ, úñÑ σ ÑßΓ∞ τ¿ß½Ñ¡¡«Ñ 
  434.             óδαáªÑ¡¿Ñ,  á  Ñ - «ß¡«óá¡¿Ñ ¡áΓπαá½∞¡δσ  ½«úáα¿Σ¼«ó,   
  435.             »α¿í½¿º¿Γѽ∞¡« e=2.718282. Æᬫ⌐ ªÑ αѺπ½∞ΓáΓ óδ  »«-
  436.             ½πτ¿ΓÑ  ß  «»ÑαáΓ«α«¼  Ñ  σ.  ùΓ« óδ ¼«ªÑΓÑ ßñѽáΓ∞ ß 
  437.             Σπ¡¬µ¿Ñ⌐ EXP, ΓᬠφΓ« óδτ¿ß½¿Γ∞ ßἫ Ñ: Ñ = EXP (1) 
  438.                EXP2 (X) ó«ºóαáΘáÑΓ 2 ó  ßΓѻѡ¿  σ,  úñÑ  σ  ÑßΓ∞ 
  439.             τ¿ß½Ñ¡¡«Ñ  óδαáªÑ¡¿Ñ ¿½¿ τ¿ß½Ñ¡¡á∩ »ÑαѼѡ¡á∩.  Æᬫ⌐ 
  440.             ªÑ αѺπ½∞ΓáΓ óδ »«½πτ¿ΓÑ ó óδαáªÑ¡¿¿ 2^σ.  
  441.                EXP10 (X) ó«ºóαáΘáÑΓ 10 ó ßΓѻѡ¿ σ,  úñÑ  σ  ÑßΓ∞ 
  442.             τ¿ß½Ñ¡¡á∩ »ÑαѼѡ¡á∩ ¿½¿ óδαáªÑ¡¿Ñ. Æᬫ⌐  ªÑ αѺπ½∞-
  443.             ΓáΓ óδ »«½πτ¿ΓÑ ó óδαáªÑ¡¿¿ 10^ò.  
  444.                EXP,   EXP2  ¿  EXP10  ó«ºóαáΘáεΓ   αѺπ½∞ΓáΓδ   ß 
  445.             πñó«Ñ¡¡«⌐ Γ«τ¡«ßΓ∞ε.  
  446. Åα¿¼Ñα
  447.             FOR I% = 1 TO 10
  448.             PRINT USING "EXP OF ## = #### "; I%,EXP(I%)
  449.             NEXT I%
  450.             END
  451. 
  452.                           Ä»ÑαáΓ«α FIELD
  453. -----------------------------------------------------------------
  454. ìạáτÑ¡¿Ñ     Ä»ÑαáΓ«α  FIELD «»αÑñѽ∩ÑΓ »ÑαѼѡ¡δÑ »«½∩ ß íπΣÑ-
  455.             α«¼ Σá⌐½á ß »α«¿ºó«½∞¡«⌐ «αúá¡¿ºáµ¿Ñ⌐.
  456.  
  457. æ¿¡Γá¬ß¿ß   FIELD [#] filenum, width AS string-var
  458.                   [,width AS string-var]...
  459.  
  460. 諼¼Ñ¡Γáα¿⌐    filenum ÑßΓ∞ ¡«¼Ñα «Γ¬αδΓ¿∩ Σá⌐½á;  
  461.                width (Φ¿α¿¡á)  ÑßΓ∞ ¬«½¿τÑßΓó« íá⌐Γ«ó, óδñѽѡ¡δσ 
  462.             »ÑαѼѡ¡«⌐ »«½∩, á 
  463.                string-var - φΓ« ßá¼á »ÑαѼѡ¡á∩ »«½∩.  
  464.             
  465.                Ä»ÑαáΓ«α FIELD  «»αÑñѽ∩ÑΓ  »αÑ«íαẫóá¡¿Ñ  ñá¡¡δσ 
  466.             ¼Ñªñπ  ß¿¼ó«½∞¡δ¼¿  »ÑαѼѡ¡δ¼¿ ¿ íπΣÑα«¼ I/O Σá⌐½á ß 
  467.             »α«¿ºó«½∞¡«⌐ óδí«α¬«⌐. üπñπτ¿ «ñ¡áªñδ ¿ß»«½∞º«óá¡¡δ¼¿ 
  468.             ó «»ÑαáΓ«αÑ FIELD, φΓ¿ ß¿¼ó«½∞¡δÑ »ÑαѼѡ¡δÑ »«½πτáεΓ 
  469.             ß»Ñµ¿á½∞¡δ⌐ ßΓáΓπß "»ÑαѼѡ¡δÑ »«½∩". Ä¡¿ »α¿ßóá¿óáεΓ-
  470.             ß∩  Γ«½∞¬«  ¿ß»«½∞ºπ∩  RSET  ¿  LSET »α¿ »«ñú«Γ«ó¬Ñ ¬ 
  471.             ºá»¿ß¿ ó π¬áºá¡¡«¼ Σá⌐½Ñ ß »α«¿ºó«½∞¡«⌐ óδí«α¬«⌐.  
  472.  
  473. Äúαá¡¿τÑ¡¿∩    êñÑ¡Γ¿Σ¿¬áΓ«α «»ÑαáΓ«αá  FIELD  ¡¿¬«úñá  ¡Ñ ñ«½ªÑ¡ 
  474.             ¿ß»«½∞º«óáΓ∞ß∩  ß ½Ñó«⌐ ßΓ«α«¡δ «»ÑαáΓ«αᠡạáτÑ¡¿∩. 
  475.             àß½¿ φΓ« »α«¿º«⌐ñÑΓ, Γ« ¿ñÑ¡Γ¿Σ¿¬áΓ«α í«½∞ΦÑ ¡Ñ íπñÑΓ 
  476.             ¿ñÑ¡Γ¿Σ¿µ¿α«óáΓ∞ß∩   ß  «»αÑñѽѡ¿∩¼¿  »«½∩  Σá⌐½á  ß 
  477.             »α«¿ºó«½∞¡«⌐ óδí«α¬«⌐.  
  478.  
  479. æ¼. ΓᬪѠ  LSET    RSET
  480.  
  481. Åα¿¼Ñα      '«Γ¬αδΓ∞ Σá⌐½ ß »α«¿ºó«½∞¡«⌐ óδí«α¬«⌐
  482.             OPEN "R", #1, "SYISLD.DTA" ,18
  483.                   'OPEN "FIELD.DTA" FOR OUTPUT AS #1 LEN = 18
  484.             'ßñѽáΓ∞ ñóá «»αÑñѽѡ¿∩ »«½∩ ñ½∩ ¬áªñ«ú« »«½∩
  485.             FIELD #1, 2 AS Integer $, 4 AS LongInt$,_
  486.                       4 AS SinglePre$, 8 AS DoublePre$
  487.             FIELD #1, 2 AS A$, 4 AS B$, 8  AS D$
  488.             MaxInt% = 32767
  489.                                'ºá»¿ßáΓ∞ ñá¡¡δÑ ó Σá⌐½
  490.          FOR I% = 1 TO 5
  491.                     '»αÑ«íαẫóáΓ∞ ñá¡¡δÑ ¿ ¡áº¡áτ¿Γ∞ ¿σ íπΣÑαπ
  492.                      'ñ« ºá»¿ß¿ Ñú« ó Σá⌐½ ñá¡¡δσ
  493.             LSET Integer$  = MKIS(I%)
  494.             LSET LongInt$ = MKL$(I% + CLNG(MaxInt%))
  495.             LSET Singlepre$ = MKS$(CSNG(I% * CSNG(MaxInt%))
  496.             LSET DoublePre$ = MKD$(MaxInt% I%)
  497.             PUT #1,I%
  498.             NEXT I%
  499.                                'ßτ¿ΓáΓ∞ ñá¡¡δÑ ß Σá⌐½á
  500.             FOR I% = 1 TO 5
  501.                                 '¿ »«¬áºáΓ∞ ¿σ ¡á φ¬αá¡Ñ
  502.             GET #1, I%
  503.             PRINT CVI(A$), CVL(B$), CVD(D$)
  504.             NEXT I%
  505.             CLOSE #1  'ºá¬αδΓ∞ Σá⌐½
  506.             END       'ºá¬«¡τ¿Γ∞ »α«úαá¼¼π
  507. 
  508.                           Ä»ÑαáΓ«α FILES
  509. -----------------------------------------------------------------
  510. ìạáτÑ¡¿Ñ  Ä»ÑαáΓ«α FILES »«¬áºδóáÑΓ ß«ñÑন¼«Ñ ¬áΓὫúá (á¡á½«ú
  511.             ¬«¼á¡ñδ DIR DOS).
  512.  
  513. æ¿¡Γá¬ß¿ß   FILTS [filespec]
  514.  
  515. 諼¼Ñ¡Γáα¿⌐    filespec  ÑßΓ∞ ß¿¼ó«½∞¡«Ñ óδαáªÑ¡¿Ñ, ß½ÑñπεΘÑÑ πß-
  516.             ½«ó¡δ¼  «í«º¡áτÑ¡¿∩¼  DOS,  «¡«  ¼«ªÑΓ  Σá¬π½∞ΓáΓ¿ó¡« 
  517.             ó¬½ετáΓ∞ ó ßÑí∩ ß»Ñµ¿Σ¿¬áΓ«α ¡á¬«»¿Γѽ∩ ¿  ¿¡Σ«α¼áµ¿ε 
  518.             « ¼áαΦαπΓÑ.  àß½¿ filespec «»πΘÑ¡, íπñπΓ »«¬áºá¡δ óßÑ 
  519.             Σá⌐½δ ó ΓѬπΘѼ ¬áΓὫúÑ 
  520.  
  521.                filespec,  ¬á¬ ¿ ¬«¼á¡ñá DIR DOS,  ¼«ªÑΓ ß«ñÑαªáΓ∞ 
  522.             º¡á¬¿ ? ¿ * , ¡á»α¿¼Ñα: 
  523.  
  524.             FILES **.**   -»ÑαÑτ¿ß½∩ÑΓ óßÑ Σá⌐½δ ó ñá¡¡«¼ ΓѬπΘѼ 
  525.                            ¬áΓὫúÑ; 
  526.     
  527.             FILES **.BAS"- »ÑαÑτ¿ß½∩ÑΓ  Γ«½∞¬«  ¿ßσ«ñ¡δÑ  Σá⌐½δ 
  528.                            Æπαí« üÑ⌐ß¿¬á. 
  529.              
  530.                é ¬«¡µÑ ß»¿ß¬á Σá⌐½«ó (FILES) ÆôÉüÄ üàëæêè »«¬áºδ-
  531.             óáÑΓ  ¬«½¿τÑßΓó« ßó«í«ñ¡δσ íá⌐Γ«ó ¡á πßΓα«⌐ßΓóÑ,  ß«-
  532.             ñÑαªáΘѼ  ΓѬπΘ¿⌐  ¬áΓὫú.  öá⌐½δ »«ñ¬áΓὫúá π¬áºδ- 
  533.             óáεΓß∩ ßπΣΣ¿¬ß«¼ DIR.  
  534.  
  535. Äúαá¡¿τÑ¡¿∩    Ä»¿ßá¡¿Ñ ¡ÑßπΘÑßΓóπεΘÑú« ¡á¬«»¿Γѽ∩ ¿½¿ ¬áΓὫúá ó 
  536.             «»ÑαáΓ«αÑ FILES ó맮óÑΓ «Φ¿í¬π óδ»«½¡Ñ¡¿∩.
  537.  
  538. Åα¿¼Ñα
  539.     
  540.     INPUT "Enter the drive and directory you would like tolist";_
  541.            Dir$
  542.                             '»«¬áºáΓ∞ «»¿ßá¡¡δ⌐ ¬áΓὫú
  543.             FILES Dir$
  544.             END             'ºá¬«¡τ¿Γ∞ »α«úαá¼¼π
  545. 
  546.                            öπ¡¬µ¿∩ FIX
  547. -----------------------------------------------------------------
  548. ìạáτÑ¡¿Ñ  öπ¡¬µ¿∩ FIX πßѬáÑΓß∩ ñ« µÑ½«ú« τ¿ß½á.
  549.  
  550. æ¿¡Γá¬ß¿ß   Y + FIX (numeric expression)
  551.                     (τ¿ß½Ñ¡¡«Ñ óδαáªÑ¡¿Ñ)
  552.  
  553. 諼¼Ñ¡Γáα¿⌐    öπ¡¬µ¿∩ FIX «ΓíαáßδóáÑΓ ñα«í¡πε τáßΓ∞  áαúπ¼Ñ¡Γá ¿
  554.             ó«ºóαáΘáÑΓ  µÑ½«τ¿ß½Ñ¡¡πε τáßΓ∞  (ó «Γ½¿τ¿Ñ «Γ CINT ¿ 
  555.             INT, ¬«Γ«αδÑ »α«¿ºó«ñ∩Γ «¬απú½Ñ¡¿Ñ).  
  556.  
  557. æ¼. ΓᬪѠ  CEIL    CINT    INT
  558.  
  559. Åα¿¼Ñα      FOR I = 50 TO 52 STEP RND
  560.            PRINT USING "The integer part of ##.## is ##";I,FIX(I)
  561.             NEXT I
  562.             END   'ºá¬«¡τ¿Γ∞ »α«úαá¼¼π
  563. 
  564.                         Ä»ÑαáΓ«α FOR/NEXT
  565. -----------------------------------------------------------------
  566. ìạáτÑ¡¿Ñ  Ä»ÑαáΓ«αδ FOR  ¿  NEXT  «»αÑñѽ∩εΓ    áóΓ«¼áΓ¿τÑ߬¿
  567.             »α¿αáΘáεΘ¿⌐ß∩ µ¿¬½ (¿½¿ «Γα¿µáΓѽ∞¡« »α¿αáΘáεΘ¿⌐ß∩)
  568.  
  569. æ¿¡Γá¬ß¿ß  FOR variable = x TO y [step z]
  570.             .
  571.             . statements
  572.             .
  573.             NEXT [variable]...]
  574.  
  575. 諼¼Ñ¡Γáα¿⌐    variable ÑßΓ∞ τ¿ß½Ñ¡¡á∩ »ÑαѼѡ¡á∩, ß½πªáΘá∩ ßτÑΓ-
  576.             τ¿¬«¼ µ¿¬½á, á x, y ¿ z ∩ó½∩εΓß∩ τ¿ß½Ñ¡¡δ¼¿ óδαáªÑ¡¿-
  577.             ∩¼¿,  «»αÑñѽ∩εΘ¿¼¿ ¡áτá½∞¡δÑ ¿ ¬«¡Ñτ¡δÑ πß½«ó¿∩ µ¿¬-
  578.             ½á,  x - ¡áτá½∞¡«Ñ º¡áτÑ¡¿Ñ,  á y - ¬«¡Ñτ¡«Ñ º¡áτÑ¡¿Ñ 
  579.             ßτÑΓτ¿¬á,  z - ¡Ñ«í∩ºáΓѽ∞¡«Ñ º¡áτÑ¡¿Ñ Φáúá  »α¿αáΘÑ- 
  580.             ¡¿∩. 
  581.                éδ»«½¡Ñ¡¿Ñ «»ÑαáΓ«α«ó ¼Ñªñπ FOR ¿ NEXT »«óΓ«α∩ÑΓß∩.
  582.                æ ¬áªñδ¼ »α«σ«ªñÑ¡¿Ñ¼ τÑαѺ µ¿¬½ º¡áτÑ¡¿Ñ »ÑαѼѡ-
  583.             ¡«⌐ πóѽ¿τ¿óáÑΓß∩ ¡á óѽ¿τ¿¡π Φáúá »α¿αáΘÑ¡¿∩ z. àß½¿ 
  584.             z «»π߬áÑΓß∩,  »«Φáú«ó«Ñ »α¿αáΘÑ¡¿Ñ »« π¼«½τá¡¿ε ßΓá-
  585.             ¡«ó¿Γß∩ αáó¡δ¼ 1.  û¿¬½ ºáóÑαΦáÑΓß∩, ¬«úñá »ÑαѼѡ¡á∩ 
  586.             ßτÑΓτ¿¬á íπñÑΓ í«½∞ΦÑ ¿½¿ αáó¡á y (¿½¿,  ñ½∩  «Γα¿µá-
  587.             Γѽ∞¡«ú« x, ¼Ñ¡∞ΦÑ ¿½¿ αáó¡á y).  
  588.                û¿¬½δ  FOR/NEXT  óδ»«½¡∩εΓß∩ íδßΓαÑÑ óßÑú« ß µÑ½«-
  589.             τ¿ß½Ñ¡¡δ¼¿ »ÑαѼѡ¡δ¼¿ ó ¬áτÑßΓóÑ »ÑαѼѡ¡«⌐ ßτÑΓτ¿¬á 
  590.             ¿ ¬«¡ßΓá¡ΓἿ x,y ¿ z.  
  591.                Æѽ« µ¿¬½á »«½¡«ßΓ∞ε »α«»π߬áÑΓß∩,  Ñß½¿ ¡áτá½∞¡«Ñ 
  592.             º¡áτÑ¡¿Ñ  x  í«½∞ΦÑ  y  ¿½¿,  Ñß½¿  z - «Γα¿µáΓѽ∞¡«Ñ 
  593.             º¡áτÑ¡¿Ñ, á x ¼Ñ¡∞ΦÑ y.  
  594.                û¿¬½δ FOR/NEXT  ¼«úπΓ  íδΓ∞  »«¼ÑΘÑ¡δ  ó  »αÑñѽáσ 
  595.             ñαπú¿σ  µ¿¬½«ó  FOR/NEXT (󽫪ѡ¿Ñ µ¿¬½«ó). Åα¿ ó½«-
  596.             ªÑ¡¿∩σ µ¿¬½«ó ¡Ñ«íσ«ñ¿¼« ß½Ññ¿Γ∞, τΓ«íδ π ¬áªñ«ú« 
  597.             µ¿¬½á íδ½á ßó«∩ »ÑαѼѡ¡á∩ ßτÑΓτ¿¬á ¿ τΓ«íδ ó¡πΓαÑ¡-
  598.             ¡¿⌐ µ¿¬½ ºáóÑαΦá½ß∩ «»ÑαáΓα«α«¼ NEXT ñ« »«∩ó½Ñ¡¿∩  
  599.             NEXT, ºáóÑαΦáεΘÑú« ó¡ÑΦ¡¿⌐ µ¿¬½.  
  600.                Åα¿¼Ñα ¡Ñ»αáó¿½∞¡«⌐ «αúá¡¿ºáµ¿¿ ó½«ªÑ¡¡«ú« µ¿¬½á:
  601.  
  602.             FOR n = 1 TO 10     'ó¡ÑΦ¡¿⌐ µ¿¬½ »« n
  603.             FOR m = 1 TO 20     ' ó¡πΓαÑ¡¡¿⌐ µ¿¬½ »« m
  604.              .
  605.              .
  606.              .
  607.        NEXT n  'ÄÿêüèÇ ó¡ÑΦ¡¿⌐ µ¿¬½ ºáóÑαΦÑ¡ αá¡∞ΦÑ ó¡πΓαÑ¡¡Ñú«
  608.        NEXT m
  609.                Å«ß¬«½∞¬π ¬«ñδ µ¿¬½«ó »ÑαÑßѬáεΓß∩, ñá¡¡δ⌐ µ¿¬½ ¡Ñ 
  610.             íπñÑΓ ¬«¼»¿½¿α«óáΓ∞ß∩.  
  611.  
  612.                àß½¿ ¼¡«ªÑßΓóÑ¡¡δÑ  µ¿¬½δ  ºá¬á¡τ¿óáεΓß∩  ó  «ñ¡«⌐ 
  613.             Γ«τ¬Ñ,  Ññ¿¡ßΓóÑ¡¡δ⌐ «»ÑαáΓ«α NEXT, ß«ñÑαªáΘ¿⌐ ¬áªñπε 
  614.             »ÑαѼѡ¡πε ßτÑΓτ¿¬á, íπñÑΓ ñ«ßΓáΓ«τ¡δ¼: 
  615.  
  616.             FOR n = 1 TO 10
  617.             FOR m = 1 TO 20
  618.               .
  619.               .
  620.               .
  621.             NEXT m,n
  622.  
  623.                é  «»ÑαáΓ«αÑ  NEXT   »ÑαѼѡ¡á∩   ßτÑΓτ¿¬á   ¼«ªÑΓ 
  624.             «»π߬áΓ∞ß∩,  ¡«  Ñß½¿  óδ ó¬½ετ¿ΓÑ ÑÑ,  Γ« φΓ« ñ«½ª¡á 
  625.             íδΓ∞ Ññ¿¡ßΓóÑ¡¡« óÑα¡á∩ »ÑαѼѡ¡á∩. ìá»α¿¼Ñα: 
  626.  
  627.             FOR n = 1 TO 10
  628.               .
  629.               .
  630.               .
  631.             NEXT   'NEXT n íπñÑΓ Γ«ªÑ αáí«ΓáΓ∞, ¡« ¡Ñ NEXT m
  632. 
  633.                ìÑß¼«Γα∩ ¡á Γ«, τΓ« ¬«¼»¿½∩Γ«απ óßÑ φΓ« íѺαẽ¿τ-
  634.             ¡«,  αáß»«½«ª¿ΓÑ «»ÑαáΓ«αδ ¼Ñªñπ FOR ¿ NEXT ñóπ¼∩ ¿½¿ 
  635.             ΓαѼ∩ »α«ßΓαá¡ßΓóἿ ñ½∩ ßΓαπ¬Γπα¿α«óá¡¿∩ µ¿¬½á.  
  636.                ä½∩ óδσ«ñá ¿º µ¿¬½á FOR/NEXT ñ« Ñú« ºáóÑαΦÑ¡¿∩ ¿ß-
  637.             »«½∞ºπ⌐ΓÑ «»ÑαáΓ«α EXIT FOR.  
  638.                àß½¿ NEXT »«∩ó¿½ß∩ íѺ »αÑñΦÑóßΓó«óáóΦÑú« Ñ¼π FOR,
  639.             »α«¿ßσ«ñ¿Γ  «Φ¿í¬á  óδ»«½¡Ñ¡¿∩ 1,  NEXT  Without  FOR 
  640.             (NEXT íѺ FOR).
  641.  
  642. Åα¿¼Ñα
  643.             FOR I% = 1 TO 10
  644.               PRINT "For loop iteration " I%  '»«¬áºáΓ∞ ¿¡ΓÑαᵿ¿
  645.             NEXT I%
  646.  
  647.             PRINT "Press any key..."    '»áπºá
  648.             WHILE NOT INSTAT
  649.             WEND
  650.             
  651.       '¿ß»«½∞ºπ⌐ΓÑ STEP ñ½∩ «Γα¿µáΓѽ∞¡«ú« »α¿αáΘÑ¡¿∩ µ¿¬½á 
  652.             FOR I% = 50 to 1 STEP -5
  653.                   PRINT "For loop iteration" 45-I%)\ 5
  654.              '«íαáΓ¿ΓѠ󡿼᡿Ѡ¡á «ΓßπΓßΓó¿Ñ »áαá¼ÑΓαá next
  655.             NEXT
  656.             END
  657. 
  658.                            öπ¡¬µ¿∩ FRE
  659. -----------------------------------------------------------------
  660. ìạáτÑ¡¿Ñ     öπ¡¬µ¿∩  FRE  ó«ºóαáΘáÑΓ ñ«ßΓπ»¡«Ñ óáΦÑ⌐ »α«úαἼѠ
  661.             ¬«½¿τÑßΓó« ßó«í«ñ¡«⌐ »á¼∩Γ¿.
  662.  
  663. æ¿¡Γá¬ß¿ß   Y = FRE( string expression/-1/-2 )
  664.  
  665. 諼¼Ñ¡Γáα¿⌐    öπ¡¬µ¿∩  FRE ß  ß¿¼ó«½∞¡δ¼  áαúπ¼Ñ¡Γ«¼  ó«ºóαáΘáÑΓ 
  666.             ñ½¿¡¡«Ñ µÑ½«Ñ τ¿ß½«, »αÑñßΓáó½∩εΘÑÑ ¬«½¿τÑßΓó« ßó«í«-
  667.             ñ¡δσ íá⌐Γ«ó «»ÑαáΓ¿ó¡«⌐  »á¼∩Γ¿.  FRE(-1)  ó«ºóαáΘáÑΓ 
  668.             τ¿ß½« ßó«í«ñ¡δσ íá⌐Γ«ó «»ÑαáΓ¿ó¡«⌐ »á¼∩Γ¿, «ΓóÑñÑ¡¡δσ 
  669.             »«ñ   ¼áßß¿óδ  óáΦÑ⌐  »α«úαá¼¼δ.   FRE(-2)  ß««íΘáÑΓ, 
  670.             ß¬«½∞¬« ¼ÑßΓá «ßΓὫß∞ ¡á ßΓѬÑ.  
  671.  
  672. Éẽ¿τ¿∩       öπ¡¬µ¿∩ FRE  ÆôèüÄ üàëæêèÇ «íÑß»Ñτ¿óáÑΓ í«½∞ΦÑ ¿¡-
  673.             Σ«α¼áµ¿¿, τѼ Σπ¡¬µ¿∩ ê¡ΓÑα»αÑΓáΓ«αá üàëæêè. Ä»ÑαáΓ«α 
  674.             FRE  ó   ¿¡ΓÑα»αÑΓáΓ«αÑ   üàëæêè   ó«ºóαáΘáÑΓ   «í∞Ѽ 
  675.             ñ«ßΓπ»¡«⌐  »á¼∩Γ¿  ó  ßÑú¼Ñ¡Γ  ñá¡¡δσ üàëæêèá:  Γᬿ¼ 
  676.             «íαẫ¼ ó맮ó FRE(s$) ¿ FRE(0)  ó«ºóαáΘáεΓ  ΓᬫѠ ªÑ 
  677.             ¬«½¿τÑßΓó«.  
  678.                Äñ¡á¬«,  πτ¿Γδóá∩,τΓ«  ÆôÉüÄ  üàëæêè  «íÑß»Ñτ¿óáÑΓ 
  679.             í«½∞Φ¿⌐ «í∞Ѽ »á¼∩Γ¿ ñ½∩  αáí«Γδ,  Ñú«  «»ÑαáΓ«α  FRE 
  680.             ¿¼ÑÑΓ  í«½∞ΦÑ  Σπ¡¬µ¿⌐.  ÆôÉüÄ üàëæêè ¿¼ÑÑΓ «Γñѽ∞¡δ⌐ 
  681.             ß¿¼ó«½∞¡δ⌐   ßÑú¼Ñ¡Γ;    Γᬿ¼   «íαẫ¼¿,    FRE(S$) 
  682.             ó«ºóαáΘáÑΓ  ñ«ßΓπ»¡«Ñ ß¿¼ó«½∞¡«Ñ »α«ßΓαá¡ßΓó«.  Æπαí« 
  683.             üÑ⌐ß¿¬ ¿¼ÑÑΓ í«½∞Φ«Ñ  (>64è)  »α«ßΓαá¡ßΓó«  ¼áßß¿ó«ó, 
  684.             »«φΓ«¼π FRE(-1) ó«ºóαáΘáÑΓ ñ«ßΓπ»¡πε »á¼∩Γ∞ ¼áßß¿ó«ó. 
  685.             Æπαí« üÑ⌐ß¿¬ «íÑß»Ñτ¿óáÑΓ ΓᬪѠ»α«µÑñπαπ ¿ αѬπαß¿ε, 
  686.             »«φΓ«¼π FRE(-2) ó«ºóαáΘáÑΓ ñ«ßΓπ»¡δ⌐ «í∞Ѽ ßΓѬá.  
  687. Åα¿¼Ñα
  688.             ON ERROR GOTO Erroandler 'πßΓá¡«ó¿Γ∞ «íαáí«Γ¬π «Φ¿í«¬
  689.             '»«¬áºáΓ∞ »á¼∩Γ∞, ñ«ßΓπ»¡πε ó ßÑú¼Ñ¡Γáσ ßΓ᫬¿,
  690.             'ñá¡¡δσ ¿ ßΓѬá
  691.             PRINT FRE("String Space"),FRE(-1),FRE(-2)
  692.  
  693.         DIM DINAVIC BigArray(10000) '«í∞∩ó¿Γ∞ ñ¿¡á¼¿τÑ߬¿⌐ ¼áßß¿ó
  694.             BigArray(6666) = 66   '¡áº¡áτ¿Γ∞ Ñ¼π ñá¡¡δÑ
  695.             '»«¬áºáΓ∞ »á¼∩Γ∞, ñ«ßΓπ»¡πε ó ßÑú¼Ñ¡Γáσ ßΓ᫬¿,
  696.             'ñá¡¡δσ ¿ ßΓѬá
  697.             S$="abc..z"
  698.             PRINT FRE("String Spase"),FRE(-1),FRE(-2)
  699.  
  700.             ERASE BigArray   '»ÑαÑαáß»αÑñѽ¿Γ∞ ñ¿¡á¼¿τÑ߬¿⌐ ¼áßß¿ó
  701.             '»«¬áºáΓ∞ »á¼∩Γ∞, ñ«ßΓπ»¡πε ó ßÑú¼Ñ¡Γáσ ßΓ᫬¿,
  702.             'ñá¡¡δσ ¿ ßΓѬá
  703.             S$=""
  704.             PRINT FRE("String Spase"),FRE(-1),FRE(-2)
  705.             'äá¡¡δ⌐ «»ÑαáΓ«α ó«ºóαáΘáÑΓ «Φ¿í¬π óδ»«½¡Ñ¡¿∩, Ñß½¿
  706.             '»α«úαἼᠻα«ú«¡∩ÑΓß∩ ß ¬«¡Γα«½Ñ¼ úαá¡¿µ
  707.             PRINT BigFrray(6666)
  708.             END       'ºá¬«¡τ¿Γ∞ »α«úαá¼¼π
  709.  
  710.             ErrorHandler:
  711.        PRINT "An error of type " ERR " has occurred at address"
  712.                ERADR
  713.             END
  714. 
  715.                       Ä»ÑαáΓ«α  GET (Σá⌐½δ)
  716. -----------------------------------------------------------------
  717. ìạáτÑ¡¿Ñ  Ä»ÑαáΓ«α  GET ßτ¿ΓδóáÑΓ ºá»¿ß∞ ß Σá⌐½á c »α«¿ºó«½∞¡«⌐
  718.             «αúá¡¿ºáµ¿Ñ⌐.
  719.  
  720. æ¿¡Γá¬ß¿ß   GET [#]filenum[,recnum]
  721.  
  722. 諼¼Ñ¡Γáα¿⌐    filenum - ¡«¼Ñα «Γ¬αδΓ¿∩ Σá⌐½á; 
  723.                recnum - ºá»¿ß∞, ¬«Γ«απε ¡áñ« ßτ¿ΓáΓ∞,  «Γ 1  ñ«  
  724.                16 777 215*(2^24-1).
  725.  
  726.                àß½¿ recnum «»π߬áÑΓß∩,  Γ« ßτ¿ΓδóáÑΓß∩  ß½ÑñπεΘá∩ 
  727.             ºá»¿ß∞  (ß½Ññ«¼ ºá ºá»¿ß∞ε, π¬áºá¡¡«⌐ ßá¼δ¼ »«ß½Ññ¡¿¼ 
  728.             GET ¿½¿ PUT).  
  729.  
  730. Åα¿¼Ñα      '«Γ¬αδΓ∞ Σá⌐½ ß »α«¿ºó«½∞¡«⌐ óδí«α¬«⌐
  731.             OPEN "GET.DTA" AS #1 LEN = 18
  732.  
  733.          'ßñѽáΓ∞ ñóá «»αÑñѽѡ¿∩ »«½∩ ñ½∩ ¬áªñ«ú« φ½Ñ¼Ñ¡Γá »«½∩
  734.             FIELD #1, 2 AS Integer$, 4 AS LongInt$,-
  735.                       4 AS SinglePre$, 8 AS DoublePre$
  736.             FIELD #1, 2 AS A$, 4 AS B$, 4 AS C$, 8 AS D$
  737.  
  738.             MaxInt% = 32767
  739.  
  740.             FOR I% = 1 TO 5   'ºá»¿ßáΓ∞ ñá¡¡δÑ ó Σá⌐½
  741.             '»αÑ«íαẫóáΓ∞ ñá¡¡δÑ ¿ ¡áº¡áτ¿Γ∞ íπΣÑα »ÑαÑñ
  742.             'ºá»¿ß∞ε ó Σá⌐½ ñá¡¡δσ
  743.             LSET Integer$ = MKI$(I%)
  744.             LSET Integer$ = MKL$(I% + CLNG(MaxInt%))
  745.             LSET Integer$ = MKS$(CSNG(I% * CSNG(MaxInt%)))
  746.             LSET Integer$ = MKD$(MaxInt%-I%)
  747.             PUT #1,I%
  748.             NEXT I%
  749.  
  750.             FOR I% = 1 TO 5  'ßτ¿ΓáΓ∞ ñá¡¡δÑ ß Σá⌐½á
  751.             GET #1, I%       '»«¬áºáΓ∞ ¿σ ¡á φ¬αá¡Ñ
  752.               PRINT CVI(A$), CYL(B$), CVD(D$)
  753.             NEXT I%
  754.  
  755.             CLOSE #1         'ºá¬αδΓ∞ Σá⌐½
  756.             END              'ºá¬«¡τ¿Γ∞ »α«úαá¼¼π
  757. 
  758.                    Ä»ÑαáΓ«α  GET (úαáΣ¿τÑ߬¿⌐)
  759. -----------------------------------------------------------------
  760. ìạáτÑ¡¿Ñ  Ä»ÑαáΓ«α  GET  ßτ¿ΓδóáÑΓ  óÑß∞ ¿½¿ τáßΓ∞ úαáΣ¿τÑ߬«ú« 
  761.             φ¬αá¡á ó ¼áßß¿ó.
  762.  
  763. æ¿¡Γá¬ß¿ß   GET (x1,y1)-(x2,y2),array
  764.  
  765. 諼¼Ñ¡Γáα¿⌐    (x1,y1) ¿ (x2,y2) «»¿ßδóáεΓ ß««ΓóÑΓßΓóÑ¡¡« óÑασ¡εε 
  766.             ½Ñóπε ¿ ¡¿ª¡εε »αáóπε  úαá¡¿µδ  º«¡δ  ¡á  úαáΣ¿τÑ߬«¼ 
  767.             φ¬αá¡Ñ «»ÑαáΓ«αá GET. 
  768.                array - φΓ« τ¿ß½Ñ¡¡δ⌐ ¼áßß¿ó.  
  769.  
  770.                Ä»ÑαáΓ«α  GET  ¿ ß««ΓóÑΓßΓóπεΘ¿⌐ Ñ¼π «»ÑαáΓ«α  PUT 
  771.             ¿ß»«½∞ºπεΓß∩ ñ½∩ ßτ¿Γδóá¡¿∩, á ºáΓѼ ñ½∩ ºá»¿ß¿  úαá-
  772.             Σ¿τÑ߬¿σ «íαẫó ¡á φ¬αá¡Ñ.  àñ¿¡ßΓóÑ¡¡«Ñ «úαá¡¿τÑ¡¿Ñ 
  773.             ó «Γ¡«ΦÑ¡¿¿  τ¿ß½Ñ¡¡«ú«  ¼áßß¿óá,  ¿ß»«½∞ºπѼ«ú«  ñ½∩ 
  774.             πñÑনóá¡¿∩ ñá¡¡δσ, ßτ¿ΓδóáѼδσ ß φ¬αá¡á, φΓ« Γ«, τΓ« 
  775.             «¡  ñ«½ªÑ¡  íδΓ∞  ñ«ßΓáΓ«τ¡« í«½∞Φ¿¼ ñ½∩ Γ«ú«,  τΓ«íδ 
  776.             πñÑαªáΓ∞ ¿σ.  êß»«½∞ºπ⌐ΓÑ ñ½∩ óδτ¿ß½Ñ¡¿∩ αẼÑαá ¼áß- 
  777.             ß¿óá,  ¡Ñ«íσ«ñ¿¼«ú«  ñ½∩  πñÑαªá¡¿∩ ñá¡¡«ú« ñ¿á»áº«¡á 
  778.             φ¬αá¡á, ß½ÑñπεΘπε Σ«α¼π½π: 
  779.  
  780.             ByteNecessary = 4 + INT((X * bitsPerPixel + 7)/8) * Y  
  781.  
  782.             úñÑ X ¿ Y »αÑñßΓáó½∩εΓ ß«í«⌐ ß««ΓóÑΓßóÑ¡¡« αẼÑαδ »« 
  783.             ú«α¿º«¡Γ὿   ¿   óÑαΓ¿¬á½¿    ºáσóáΓδóáѼ«⌐    º«¡δ, 
  784.             bitsPerPixel   ∩ó½∩ÑΓß∩  ¬«¡ßΓá¡Γ«⌐,   «Γ¡«ß∩ΘÑ⌐ß∩  ¬ 
  785.             úαáΣ¿τÑ߬«¼π αѪ¿¼π:  2 ñ½∩ ßαÑñ¡Ñú« αáºαÑΦÑ¡¿∩  ¿  1 
  786.             ñ½∩ óδß«¬«ú« αáºαÑΦÑ¡¿∩.  
  787.  
  788.             -----------------------------------------------------
  789.               ¥¬αá¡                  ü¿Γδ ¡á αáßΓα«óδ⌐ φ½Ñ¼Ñ¡Γ
  790.             -----------------------------------------------------
  791.                 1                                2
  792.                 2                                1
  793.                 7                                4
  794.                 8                                4
  795.                 9                                4
  796.                10                                2
  797.             -----------------------------------------------------
  798.  
  799.                ìá»α¿¼Ñα, ñ½∩ ß«σαá¡Ñ¡¿∩ «íαáºá ßαÑñ¡Ñú«  αáºαÑΦÑ-
  800.             ¡¿∩ 35 αáßΓα«óδσ φ½Ñ¼Ñ¡Γ«ó  ¡á  45,  óá¼  »«ΓαÑíπÑΓß∩ 
  801.             ¼áßß¿ó ó  4 + INT((35 * 2 + 7)/8) * 45 íá⌐Γ«ó ¿½¿ 409 
  802.             íá⌐Γ«ó. 
  803.                409 íá⌐Γ«ó »αÑñßΓáó½∩εΓ  µÑ½«τ¿ß½Ñ¡¡δ⌐  ¼áßß¿ó  ¿º 
  804.             205 φ½Ñ¼Ñ¡Γ«ó, Γᬿ¼ «íαẫ¼ ¼áßß¿ó, «íΩ∩ó½Ñ¡¡δ⌐ «»Ñ-
  805.             αáΓ«αα«¼ DIM :
  806.  
  807.                   DIM buffer%(204) 
  808.  
  809.             íπñÑΓ ñ«ßΓáΓ«τ¡δ¼.   Å«¼¡¿ΓÑ, τΓ« »« π¼«½τá¡¿ε ¬áªñδ⌐ 
  810.             ¼áßß¿ó ß«ñÑαª¿Γ ¡π½Ñó«⌐ φ½Ñ¼Ñ¡Γ,  Γᬠ¼áßß¿ó  buffer% 
  811.             ¿¼ÑÑΓ 205 ñóπσíá⌐Γ¡δσ φ½Ñ¼Ñ¡Γ«ó,  «Γ 0 ñ« 204,  óßÑú« 
  812.             410 íá⌐Γ«ó.  
  813.                ÆôèüÄ  üàëæêè  ß«σαá¡∩ÑΓ  úαáΣ¿τÑ߬¿Ñ   ñá¡¡δÑ   ó 
  814.             ¼áßß¿óÑ íπΣÑαá ó ß½ÑñπεΘѼ Σ«α¼áΓÑ: 
  815.  
  816.                buffer%(0):    è«½¿τÑßΓó« íá⌐Γ »«-ú«α¿º«¡Γ὿
  817.                buffer%(1):    è«½¿τÑßΓó« íá⌐Γ »«-óÑαΓ¿¬á½¿
  818.                buffer%(2):   }
  819.                .             } æ«íßΓóÑ¡¡«
  820.                .             } úαáΣ¿τÑ߬á∩ 
  821.                .             } ¿¡Σ«α¼áµ¿∩
  822.                buffer%(204): }
  823.  
  824.                é αѺπ½∞ΓáΓÑ «αúá¡¿ºáµ¿¿ »á¼∩Γ¿ ñ¿ß»½Ñ∩, «ª¿ó½Ñ¡¿Ñ 
  825.             «ß¡«óá¡¡«Ñ ¡á GET ¿ PUT,  »α«¿ßσ«ñ¿Γ íδßΓαÑÑ, Ñß½¿ óδ 
  826. 
  827.             óδíÑαÑΓÑ πτáßΓ¬¿ φ¬αá¡á,  »α¿¼δ¬áεΘ¿Ñ ¬ úαá¡¿µá¼ íá⌐-
  828.             Γ«ó.  ä½∩ ßαÑñ¡Ñ⌐ αáºαÑΦáεΘÑ⌐ ß»«ß«í¡«ßΓ¿ ¿ß»«½∞ºπ⌐ΓÑ 
  829.             º¡áτÑ¡¿∩ X ¬αáΓ¡δÑ 4; ñ½∩ óδß«¬«ú« αáºαÑΦÑ¡¿∩ - ¬αáΓ-
  830.             ¡δÑ 8.  
  831.                Äß¡«ó¡á∩ ßΓαáΓÑú¿∩ ¿ß»«½∞º«óá¡¿∩  GET  ¿  PUT  ñ½∩ 
  832.             «ª¿ó½Ñ¡¿∩ «íΩѬΓá «Γ Γ«τ¬¿ A ñ« Γ«τ¬¿ B ºá¬½ετáÑΓß∩ ó 
  833.             ß½ÑñπεΘѼ: 
  834.  
  835.             Draw the object
  836.             GET the object into an array
  837.             position = old location = point A
  838.             DO UNTIL position = point B
  839.           PUT XOR the object at old location  'ßΓÑαÑΓ∞/»«ßΓα«¿Γ∞
  840.                position = position + increment
  841.           PUT XOR the object at position
  842.                Delay if necessary
  843.                old location = position
  844.             LOOP
  845.  
  846. Åα¿¼Ñα      'óδñѽ¿Γ∞ íπΣÑα ñ½∩ σαá¡Ñ¡¿∩ úαáΣ¿τÑ߬¿σ «íαẫó
  847.  
  848.             DIM Buffer%(143)
  849.  
  850.             '»ÑαÑ⌐Γ¿ ó úαáΣ¿τÑ߬¿⌐ αѪ¿¼ ßαÑñ¡Ñ⌐
  851.             'αáºαÑΦáεΘÑ⌐ ß»«ß«í¡«ßΓ¿
  852.  
  853.             SCREEN 1
  854.             CIRCLE (16,16),8,2    '¡áα¿ß«óáΓ∞ ¬απú
  855.          GET (0,0)-(31,31),Buffer%  '»«½πτ¿Γ∞ ¬απú
  856.                                     '¬«»¿α«óáΓ∞ Ñú« 
  857.                                     '»« óßѼπ φ¬αá¡π
  858.              FOR I% = 0 TO 9
  859.          PUT (I% * 32,100),Buffer%
  860.             NEXT I%
  861.             END         'ºá¬«¡τ¿Γ∞ »α«úαá¼¼π
  862. 
  863.                           öπ¡¬µ¿∩  GET$
  864. -----------------------------------------------------------------
  865. ìạáτÑ¡¿Ñ  öπ¡¬µ¿∩  GET$  ßτ¿ΓδóáÑΓ ßΓ᫬π  ß  Σá⌐½á «Γ¬αδΓ«ú« ó 
  866.             αѪ¿¼Ñ   BINARY.
  867.  
  868. æ¿¡Γá¬ß¿ß   GET$ [#] filenum, count, string variable
  869.  
  870. 諼¼Ñ¡Γáα¿⌐  count  ÑßΓ∞ µÑ½«τ¿ß½Ñ¡¡«Ñ óδαáªÑ¡¿Ñ ó ñ¿á»áº«¡Ñ «Γ 0 
  871.              ñ«  32,767.
  872.  
  873.                GET ßτ¿ΓδóáÑΓ ßτÑΓ¡δÑ íá⌐Γδ ¡áτ¿¡á∩ ß ΓѬπΘÑú« »«-
  874.             ½«ªÑ¡¿∩  Σá⌐½á  (¬«Γ«α«Ñ  ¼«ªÑΓ  íδΓ∞  πßΓá¡«ó½Ñ¡«  ß 
  875.             »«¼«Θ∞ε SEEK), ß ¡«¼Ñαá Σá⌐½á filenum ¿ ¡áº¡áτáÑΓ Ñú« 
  876.             ß¿¼ó«½∞¡«⌐ »ÑαѼѡ¡«⌐.  Filenum Σá⌐½á ñ«½ª¡« íδΓ∞ «Γ-
  877.             ¬αδΓ« ó αѪ¿¼Ñ BINARY.  Å«ß½Ñ Σπ¡¬µ¿¿  GET$,  ΓѬπΘÑÑ 
  878.             »«½«ªÑ¡¿Ñ  Σá⌐½á  íπñÑΓ  »α«ñó¿¡πΓ« ß »«¼«Θ∞ε ßτÑΓ¡δσ 
  879.             íá⌐Γ«ó.  
  880.                GET$, PUT$ ¿ SEEK «íÑß»Ñτ¿óáεΓ á½∞ΓÑα¡áΓ¿óπ ¡¿º¬«-
  881.             ú« πα«ó¡∩ ΓÑσ¡¿¬Ñ «íαáí«Γ¬¿ »«ß½Ññ«óáΓѽ∞¡δσ Σá⌐½«ó ¿ 
  882.             Σá⌐½«ó ß »α«¿ºó«½∞¡«⌐ «αúá¡¿ºáµ¿Ñ⌐, ¬«Γ«αá∩ »«ºó«½∩ÑΓ 
  883.             óá¼ ¿¼ÑΓ∞ ñѽ« ß Σá⌐½á¼¿  ¡á  «ß¡«óÑ  íá⌐Γ/íá⌐Γ.  
  884.  
  885. æ¼. ΓᬪѠ  OPEN      PUT$    SEEK
  886.  
  887. Åα¿¼Ñα      SUB Create File   '»α«µÑñπαá ß«ºñá¡¿∩ Σá⌐½á
  888.             'GET$  «Γ¬αδóáÑΓ Σá⌐½ ¿ ºá»¿ßδóáÑΓ ó ¡Ñú« 256 º¡á¬«ó 
  889.  
  890.             LOCAL I%
  891.  
  892.             '«Γ¬αδΓ∞ Σá⌐½ ñ½∩ BINARY  I/O
  893.  
  894.             OPEN  "GETS.DATA" FOR BINARY AS #1
  895.  
  896.             'ºá»¿ßáΓ∞ ó ¡Ñú« ñá¡¡δÑ
  897.  
  898.             FOR I% = 0 TO 255
  899.                  PUT$ #1, I%, CHRS(I%)
  900.             NEXT  I%
  901.             END SUB  'ºá¬«¡τ¿Γ∞ »α«µÑñπαπ ß«ºñá¡¿∩ Σá⌐½á
  902.  
  903.         DEF FNReagIt$(Styart%,Size%)  'Σπ¡¬µ¿∩ ßτ¿Γδóá¡¿∩ ñá¡¡δσ
  904.             `GET$ ßτ¿ΓδóáÑΓ π¬áºá¡¡«Ñ ¬«½¿τÑßΓó« ñá¡¡δσ ¿º Σá⌐½á
  905.  
  906.             LOCAL TempStr$, Char$, I%
  907.  
  908.             '»«¿ß¬ ñ½∩ ¬«ααѬµ¿¿ »«½«ªÑ¡¿∩ ó Σá⌐½Ñ
  909.             SEEK 1, Start%
  910.  
  911.             'ßτ¿ΓáΓ∞ íá⌐Γδ Size%
  912.             GET$ #$1, Size% TempStr$
  913.  
  914.             FNReadIt$ = TempStr$
  915.         END DEF     'ºá¬«¡τ¿Γ∞ Σπ¡¬µ¿ε ReadIt
  916.  
  917.             CALL CreateFile   'ß«ºñáΓ∞ Σá⌐½ ñá¡¡δσ
  918.                               '»«½πτ¿Γ∞ óó«ñ »«½∞º«óáΓѽ∩
  919.           PRINT "Enter the starting point[0...255] and how many"
  920.           PRINT "bytes of data[0...255] yon wish to"
  921.           INPUT "read from the file: ",St%, Sz%
  922.  
  923.             PRINT FNReadit$(St%, Sz%)  'ßτ¿ΓáΓ∞ ñá¡¡δÑ
  924.  
  925.             END  'ºá¬«¡τ¿Γ∞ »α«úαá¼¼π
  926. 
  927.                          Ä»ÑαáΓ«α  GOSUB
  928. -----------------------------------------------------------------
  929. ìạáτÑ¡¿Ñ  Ä»ÑαáΓ«α  GOSUB  óδºδóáÑΓ »«ñ»α«úαá¼¼π.
  930.  
  931. æ¿¡Γá¬ß¿ß   GOSUB label
  932.  
  933. 諼¼Ñ¡Γáα¿⌐    Ä»ÑααáΓ«α GOSUB ºáßΓáó½∩ÑΓ ÆôÉüÄ üàëæêè »ÑαÑ߬ᬿ-
  934.             óáΓ∞ ¡á «»ÑαáΓ«α ß »αÑñΦÑßΓóπεΘÑ⌐ ¼ÑΓ¬«⌐,  »«ß½Ñ »Ñα-
  935.             ó«⌐ ºá»¿ß¿ Ñú« ΓѬπΘÑú« áñαÑßá ¡á  ßΓѬÑ.  éδ»«½¡Ñ¡¿Ñ 
  936.             RETURN ó«ºóαáΘáÑΓ π»αáó½Ñ¡¿Ñ ¡á «»ÑαáΓ«α, ß½ÑñπεΘ¿⌐ ó
  937.             »α«úαἼѠ¡Ñ»«ßαÑñßΓóÑ¡¡« ºá GOSUB .  
  938.                Åα«µÑñπαδ ¿ Σπ¡¬µ¿¿ ÆôÉüÄ üôëæêèÇ ¼«úπΓ  óδ»«½¡∩Γ∞ 
  939.             αáí«Γπ   »«ñ»α«úαá¼¼δ  ß  ¿ºó½ÑτÑ¡¿Ñ¼  ñ«»«½¡¿Γѽ∞¡δσ 
  940.             »¿αÑ¿¼πΘÑßΓó  «Γ  αѬπαß¿¿,  »α«σ«ªñÑ¡¿∩  »áαá¼ÑΓα«ó, 
  941.             ½«¬á½∞¡δσ ¿ ßΓáΓ¿τÑ߬¿σ »ÑαѼѡ¡δσ.  
  942.  
  943. æ¼. ΓᬪѠ DEF FN     SUB     RETURN
  944.  
  945. Åα¿¼Ñα      PI# = ATN(1) * 4 'óδτ¿ß½Ñ¡¿Ñ º¡áτÑ¡¿∩ Pi
  946.             Radius! = 55   '«íΩ∩ó¿Γ∞ »ÑαѼѡ¡πε ß 
  947.                            '«ñ¿¡áα¡«⌐ Γ«τ¡«ßΓ∞ε
  948.             GOSUB CalcArea '»ÑαÑσ«ñ ¡á »«ñ»α«úαá¼¼π
  949.  
  950.             END            'ºá¬«¡τ¿Γ∞ »α«úαá¼¼π
  951.  
  952.             'óδτ¿ß½¿Γ∞ ¿ »«¬áºáΓ∞ ¡á φ¬αá¡Ñ »½«Θáñ∞ ¬απúá
  953.             æalcArea:
  954.                 Area = PI# * Radius^2  'óδτ¿ß½¿Γ∞ »½«Θáñ∞
  955.                 PRINT Area             '»«¬áºáΓ∞ αѺπ½∞ΓáΓ
  956.                 RETURN                 'óδσ«ñ ¿º »«ñ»α«úαá¼¼δ
  957. 
  958.                           Ä»ÑαáΓ«α  GOTO
  959. -----------------------------------------------------------------
  960. ìạáτÑ¡¿Ñ  GOTO »«ßδ½áÑΓ óδ»«½¡Ñ¡¿Ñ »α«úαá¼¼δ ¬ «»ÑαáΓ«απ ß ¼ÑΓ-
  961.             ¬«⌐.
  962.  
  963. æ¿¡Γá¬ß¿ß   GOTO label
  964.  
  965. 諼¼Ñ¡Γáα¿⌐    Ä»ÑαáΓ«α  GOTO  »ÑαѼÑΘáÑΓ óδ»«½¡Ñ¡¿Ñ »α«úαá¼¼δ ¬ 
  966.             ¬«ñπ ß ¼ÑΓ¬«⌐.
  967.                GOTO - íδßΓα«Ñ ¿ φΣΣÑ¬Γ¿ó¡«Ñ  »α«úαá¼¼¡«Ñ  πßΓα«⌐-
  968.             ßΓó«,  Ñß½¿ »«½∞º«óáΓ∞ß∩ ¿¼ π¼ÑαÑ¡¡«.  àß½¿ ªÑ »α¿¼Ñ-
  969.             ¡∩Γ∞  COTO  íÑß»Ñτ¡«,  «¡¿  ¼«úπΓ "πñπΦ¿Γ∞" »α«úαá¼¼π 
  970.             ßó«¿¼¿ ¬«ñἿ,  ¬«Γ«αδÑ »αá¬Γ¿τÑ߬¿ ¡Ñ󫺼«ª¡«  «Γúá-
  971.             ñáΓ∞  («ß«íÑ¡¡«  »« »α«ΦÑßΓó¿¿ ¼Ñß∩µÑó ¿½¿ ¡Ñ߬«½∞¬¿σ 
  972.             ½ÑΓ). æ«óαѼѡ¡«Ñ ¿ß»«½∞º«óá¡¿Ñ «»ÑαáΓ«α«ó GOTO ¼¿¡¿-
  973.             ¼¿º¿α«óá¡« ó »αá¬Γ¿¬Ñ »α«úαá¼¼¿α«óá¡¿∩  »«ñ»α«úαá¼¼á-
  974.             ¼¿,  »α«µÑñπαἿ, Σπ¡¬µ¿∩¼¿ ¿ ßΓαπ¬Γπα¡δ¼¿ «»ÑαáΓ«αá-
  975.             ¼¿,  Γᬿ¼¿ ¬á¬:   FOR/NEXT,   WHILE/WEND,   DO/LOOP, 
  976.             IF BLOCK ¿ SELECT Ä»ÑαáΓ«α  EXIT  Γ«ªÑ  ¼«ªÑΓ  »«¼«τ∞ 
  977.             ß«¬αáΓ¿∞ ¿ß»«½∞º«óá¡¿Ñ GOTO. 
  978.  
  979. æ¼. ΓᬪѠ  EXIT 
  980.  
  981. Åα¿¼Ñα      X = 0
  982.  
  983.             Start:     '«»αÑñѽ¿ΓÑ ¼ÑΓ¬π
  984.               X = X + 1  '»α¿αáΘÑ¡¿Ñ  X
  985.               IF X < 20 THEN  'Ñß½¿ X<20, Γ« »ÑαÑ⌐Γ¿ ¬ PrintOut
  986.                  GOTO  PrintOut
  987.               END IF
  988.             END
  989.  
  990.             PrintOut:      '»«¬áºáΓ∞ º¡áτÑ¡¿Ñ  X
  991.               PRINT "Variable X = "X
  992.               GOTO Start  'óÑα¡πΓ∞ß∩ ¡á Start(¡áτὫ)
  993. 
  994.                           öπ¡¬µ¿∩  HEX$
  995. -----------------------------------------------------------------
  996. ìạáτÑ¡¿Ñ  öπ¡¬µ¿∩  HEX$ »αÑ«íαáºπÑΓ τ¿ß½« ó Ñú« ΦÑßΓ¡áñµáΓ¿α¿τ-
  997.             ¡δ⌐ ß¿¼ó«½∞¡δ⌐ φ¬ó¿óá½Ñ¡Γ.
  998.  
  999. æ¿¡Γá¬ß¿ß   s$ = HEX$(numeric expression)
  1000.                      (τ¿ß«½Ñ¡¡«Ñ óδαáªÑ¡¿Ñ)
  1001.  
  1002. 諼¼Ñ¡Γáα¿⌐    τ¿ß½Ñ¡¡«Ñ óδαáªÑ¡¿Ñ ¼«ªÑΓ »α¿¡¿¼áΓ∞  º¡áτÑ¡¿∩   «Γ 
  1003.             -32,768 ñ« 65,535. ïεíá∩ ñα«í¡á∩ τáßΓ∞ τ¿ß½Ñ¡¡«ú« óδ- 
  1004.             αáªÑ¡¿∩ «¬απú½∩ÑΓß∩ ñ« ß«ºñá¡¿∩ ßΓ᫬¿. àß½¿ áαúπ¼Ñ¡Γ 
  1005.             HEX$ «Γα¿µáΓѽ∞¡δ⌐,  HEX$ ó«ºóαáΘáÑΓ  ñóπº¡áτ¡δ⌐  ó¿ñ 
  1006.             τ¿ß½á.  
  1007.  
  1008. æ¼. Γᬪ¬Ñ BIN$    OCT$
  1009.  
  1010. Åα¿¼Ñα      PRINT HEX$(65535)
  1011.             PRINT HEX$(-1)
  1012. 
  1013.                            Ä»ÑαáΓ«α  IF
  1014. -----------------------------------------------------------------
  1015. ìạáτÑ¡¿Ñ  Ä»ÑαáΓ«α IF ΓÑßΓ¿απÑΓ πß½«ó¿∩ ¿ ¼Ñ¡∩ÑΓ σ«ñ óδ»«½¡Ñ¡¿∩
  1016.             »α«úαá¼¼δ ó ß««ΓóÑΓßΓó¿¿ ß ºáñá¡¡δ¼¿ πß½«ó¿∩¼.
  1017.  
  1018. æ¿¡Γá¬ß¿ß  
  1019.  
  1020.   IF integer expression [,] THEN statement(s) [ELSE statement(s)]
  1021.      µÑ½«τ¿ß½Ñ¡¡«Ñ óδαáªÑ¡¿Ñ     «»ÑαáΓ«α(δ)       «»ÑαáΓ«α(δ)
  1022.  
  1023. 諼¼Ñ¡Γáα¿⌐    àß½¿  µÑ½«τ¿ß½Ñ¡¡«Ñ óδαáªÑ¡¿Ñ ÑßΓ∞  TRUE (¡Ñ αáó¡« 
  1024.             ¡π½ε), Γ.Ñ. ß«í½εñÑ¡δ ºáñá¡¡δÑ πß½«ó¿∩, Γ« óδ»«½¡∩ÑΓ-
  1025.             ß∩ «»ÑαáΓ«α(δ),  ß½ÑñπεΘ¿⌐ ºá THEN ¿  »ÑαÑñ  ¡Ñ«í∩ºá-
  1026.             Γѽ∞¡δ¼ ELSE.  àß½¿ óδαáªÑ¡¿Ñ ∩ó½∩ÑΓß∩ FALSE (¡π½Ñó«⌐ 
  1027.             αѺπ½∞ΓáΓ),  Γ.Ñ.  ºáñá¡¡δÑ πß½«ó¿∩  ¡Ñ  ß«í½εñáεΓß∩, 
  1028.             Γ«úñá óδ»«½¡∩ÑΓß∩ «»ÑαáΓ«α,  ß½ÑñπεΘ¿⌐ ºá ELSE.  àß½¿ 
  1029.             ¡Ñ«í∩ºáΓѽ∞¡δ⌐ ELSE «»π߬áÑΓß∩, »α«ñ«½ªáÑΓß∩ óδ»«½¡Ñ-
  1030.             ¡¿Ñ ß½ÑñπεΘÑ⌐ ßΓ᫬¿ »α«úαá¼¼δ.  
  1031.                Äíδτ¡«,     µÑ½«τ¿ß½Ñ¡¡«Ñ    óδαáªÑ¡¿Ñ    ∩ó½∩ÑΓß∩ 
  1032.             αѺπ½∞ΓáΓ«¼,   ó«ºóαáΘÑ¡¡δ¼  αѽ∩µ¿«¡¡δ¼  «»ÑαáΓ«α«¼, 
  1033.             σ«Γ∩ ¿ ¡Ñ óßÑúñá, ¬á¬ ó¿ñ¡« ¿º »α¿¼Ñαá: 
  1034.  
  1035.             IF printerOn THEN LPRINT answer$
  1036.  
  1037.                çñÑß∞  «»ÑαáΓ«α LPRINT óδ»«½¡∩ÑΓß∩ ó ß½πτáÑ,  Ñß½¿ 
  1038.             "Σ½áú«óá∩" »ÑαѼѡ¡á∩ printerOn(ó¬½.) ¿¼ÑÑΓ  º¡áτÑ¡¿Ñ 
  1039.             ¡Ñ αáó¡«Ñ ¡π½ε.  
  1040.                ÅÑαÑñ ¬½áó¿ΦÑ⌐ ELSE ¡Ñ ñ«½ª¡« íδΓ∞ ñó«ÑΓ«τ¿∩, ¡á»-
  1041.             α¿¼Ñα, ß½ÑñπεΘ¿⌐ «»ÑαáΓ«α ¡Ñ íπñÑΓ ¬«¼»¿½¿α«óáΓ∞ß∩: 
  1042.  
  1043.             IF a < b THEN c = d  :ELSE e = f
  1044.  
  1045.                Ä»ÑαáΓ«α  IF ¿ α«ñßΓóÑ¡¡δÑ «»ÑαáΓ«αδ,  ó¬½ετá∩ ΓÑ, 
  1046.             τΓ« ¿ñπΓ »«ß½Ñ ELSE, ñ«½ª¡δ »«∩ó½∩Γ∞ß∩ ¡á «ñ¡«⌐ ¿ Γ«⌐ 
  1047.             ªÑ ½«ú¿τÑ߬«⌐ ßΓ᫬Ñ. Å«φΓ«¼π ß½ÑñπεΘá∩ ºá»¿ß∞ «Φ¿í«-
  1048.             τ¡á: 
  1049.  
  1050.             IF a < b THEN t = 15 : u = 16 : v = 17
  1051.                 ELSE t = 17 : u = 16 : v = 15
  1052.  
  1053.             »«Γ«¼π  τΓ«  ¬«¼»¿½∩Γ«α  αáßß¼áΓα¿óáÑΓ óΓ«απε ßΓ᫬π, 
  1054.             ¬á¬ ¡«óδ⌐ ó¿ñ «»ÑαáΓ«αá,  ¡Ñ ßó∩ºá¡¡δ⌐ ß  »αÑñδñπΘ¿¼.  
  1055.             àß½¿ π óáß «»ÑαáΓ«αó í«½∞ΦÑ,  τѼ ¼«ªÑΓ ó¼ÑßΓ¿Γ∞ «ñ¡á 
  1056.             ßΓ᫬á,  óδ ¼«ªÑΓÑ ó«ß»«½∞º«óáΓ∞ß∩ º¡á¬«¼ »α«ñ«½ªÑ¡¿∩ 
  1057.             ßΓ᫬¿  (¡¿º¬á∩  τÑαΓá) ¿ αáß»α«ßΓα«¡¿Γ∞ Ññ¿¡πε ½«ú¿-
  1058.             τÑ߬πε  ßΓ᫬𠠠¡á   ¡Ñ߬«½∞¬«   Σ¿º¿τÑ߬¿σ   ßΓ᫬.  
  1059.                ìá»α¿¼Ñα, ¡¿ªÑß½ÑñπεΘá∩ ºá»¿ß∞ óÑα¡á: 
  1060.   
  1061.             IF a < b THEN t = 15 : u = 16 : v = 17_ 
  1062.               ELSE t = 17 : u = 16 : v = 15
  1063.  
  1064.                Äñ¡á¬«   á½∞ΓÑα¡áΓ¿ó«⌐  ¼«ªÑΓ  íδΓ∞  ¿ß»«½∞º«óá¡¿Ñ 
  1065.             í½«τ¡«ú« «»ÑαáΓ«αá  IF.  ü½«τ¡δ⌐  «»ÑαáΓ«α  IF  ¼«ª¡« 
  1066.             ΓᬪѠ ¿ß»«½∞º«óáΓ∞  ñ½∩  Σ«α¼¿α«óá¡¿∩  ¼¡«ú«ßΓα«τ¡δσ 
  1067.             ßÑα¿⌐ «»ÑαáΓ«α«ó IF.  
  1068.                                                
  1069. Éẽ¿τ¿∩       ÆôÉüÄ üàëæêè  αáßΦ¿α¿½ «»ÑαáΓ«α  IF THEN ELSE  ñ½∩
  1070.             «½íÑß»ÑτÑ¡¿∩ ¼¡«ú«ßΓα«τ¡δσ  ¬«ñ«ó  ó  ¬«¡ßΓαπ¬µ¿¿  IF 
  1071.             THEN ELSE.  ÆôÉüÄ üàëæêè ΓᬪѠ«íÑß»Ñτ¿óáÑΓ «»ÑαáΓ«αδ 
  1072.             ELSEIF ¿ ENDIF ñ½∩ í½«τ¡«ú« «»ÑαáΓ«αá IF.  
  1073.  
  1074. æ¼.ΓᬪѠ   í½«τ¡δ⌐ «»ÑαáΓ«α IF     SELECT
  1075.  
  1076. Åα¿¼Ñα      '«ñ¡á ßΓ᫬á IF
  1077.             INPUT "Enter a number", X
  1078.             IF X > 100 THEN PRINT "Bignumber" ELSE_ 
  1079.                             PRINT "SmallNumber"
  1080.             END
  1081. 
  1082.                        ü½«τ¡δ⌐ «»ÑαáΓ«α IF
  1083. -----------------------------------------------------------------
  1084. ìạáτÑ¡¿Ñ  ü½«¬  IF ß«ºñáÑΓ ßÑα¿ε «»ÑαáΓ«α«ó  IF.
  1085.  
  1086. æ¿¡Γá¬ß¿ß   IF integer expression[,] THEN
  1087.             .
  1088.             .  statement(s)
  1089.             .
  1090.             [ELSEIF integer expression [,] THEN
  1091.             .
  1092.             . statement(s)]
  1093.             .
  1094.             .
  1095.             [ELSE
  1096.             .
  1097.             . statement(s)]
  1098.             .
  1099.             END IF
  1100.  
  1101. 諼¼Ñ¡Γáα¿⌐    ü½«¬ IF  »αÑñßΓáó½∩ÑΓ ß«í«⌐ αáßΦ¿αÑ¡¿Ñ ê¡ΓÑα»α¿Γá-
  1102.             Γ«αá üàëæêè,  «¡ »«ºó«½∩ÑΓ ¼¡«ú«¬αáΓ¡δÑ ΓÑßΓδ  ¼¡«ú¿σ 
  1103.             ßΓ᫬.  
  1104.                Åα¿ óδ»«½¡Ñ¡¿¿ í½«¬á «»ÑαáΓ«α«ó IF,  ß»Ñαóá »α«óÑ-
  1105.             α∩ÑΓß∩  ¿ßΓ¿¡¡«ßΓ∞  óδαáªÑ¡¿∩  ó  «»ÑαáΓ«αá IF.  àß½¿ 
  1106.             FALSE(¡π½Ñó«⌐ αѺπ½∞ΓáΓ),  ¬áªñδ⌐ ¿º »«ß½ÑñπεΘ¿σ «»Ñ- 
  1107.             αáΓ«α«ó ELSEIF »α«óÑαÑΓß∩ »« »«α∩ñ¬π («»ÑαáΓ«α«ó ELSE 
  1108.             ¼«ªÑΓ  íδΓ∞ ß¬«½∞¬« πú«ñ¡«).  èá¬ Γ«½∞¬« ÆôÉüÄ üôëæêè 
  1109.             »«ñΓóÑαªñáÑΓ ¿ßΓ¿¡¡«ßΓ∞ «ñ¡«ú« ¿º «»ÑαáΓ«α«ó,  «¡ óδ- 
  1110.             »«½¡∩ÑΓ φëà«»ÑαáΓ«α, ß½Ññπ∩ ºá ßó∩ºá¡¡δ¼ ß ¡¿¼ THEN 
  1111.             ¿ »ÑαÑ߬ᬿóáÑΓ ¡á φëà«»ÑαáΓ«α ßαáºπ ªÑ »« ºáóÑαΦÑ- 
  1112.             ¡¿¿ END IF íѺ ñá½∞¡Ñ⌐Φ¿σ ΓÑßΓ«ó. ¥Γ«Γ «»ÑαáΓ«α »«ß½Ñ 
  1113.             ¡Ñ«í∩ºáΓѽ∞¡«ú«  ELSE  óδ»«½¡∩ÑΓß∩,  Ñß½¿  ¡¿ «ñ¿¡ ¿º 
  1114.             »αÑñΦÑßΓóπεΘ¿σ ΓÑßΓ«ó ¡Ñ πñáÑΓß∩.  
  1115.                çá¼ÑΓ∞ΓÑ,  τΓ« »«ß½Ñ ¬½ετÑó«ú« ß½«óá THEN ó »Ñαó«⌐ 
  1116.             ßΓα«¬Ñ í½«¬á IF ¡Ñ ¼«ªÑΓ íδΓ∞ í«½∞ΦÑ ¡¿τÑú«; »« φΓ«¼π 
  1117.             »α¿º¡á¬π  ¬«¼»¿½∩Γ«α  ¼«ªÑΓ  «Γ½¿τ¿Γ∞  í½«¬   IF   «Γ 
  1118.             «íδτ¡«ú« «»ÑαáΓ«αá IF.  ÆᬪѠ»«¼¡¿ΓÑ, τΓ« »«ß½Ñ ELSE 
  1119.             ¡¿τÑú« ¡ÑΓ.  
  1120.                Ä»ÑαáΓ«αδ í½«¬á IF ñ«»π߬áεΓ ó½«ªÑ¡¿∩, Γ.Ñ.  ½εí«⌐ 
  1121.             «»ÑαáΓ«α »«ß½Ñ ½εí«ú« THEN ¼«ªÑΓ ß«ñÑαªáΓ∞ í½«¬¿ IF.  
  1122.                Ä»ÑαáΓ«αδ í½«¬á IF ñ«½ª¡δ  ºá¬á¡τ¿óáΓ∞ß∩  END  IF.  
  1123.             ÄíαáΓ¿ΓѠ󡿼᡿Ñ,  τΓ« END IF ¿¼ÑÑΓ »α«ßΓαá¡ßΓó«,  á 
  1124.             ELSEIF ¡Ñ ¿¼ÑÑΓ.  
  1125.  
  1126.  æ¼. ΓᬪѠ SELECT
  1127. 
  1128. Åα¿¼Ñα        RANDOMIZE TIMER
  1129.               bankroll = 100 : bet = 5 : delayVal = .5
  1130.               WHILE NOT INSTAT   'ñ½∩ ºáóÑαΦÑ¡¿∩ ¡áªáΓ∞ ¬½áó¿Φπ
  1131.                 roll = INT(RND(1) * 6) + INT(RND(1) * 6) + 2
  1132.                 PRINT STRING$(30,"-")
  1133.                 PRINT "æπ¼¼á ¡á½¿τ¡«ßΓ¿ =" bancroll
  1134.                 PRINT roll : DELAY delayVal
  1135.                 IF roll = 2 OR roll = 3 OR roll = 12 THEN
  1136.                   PRINT "éδ »α«¿úα὿"
  1137.                   bancroll = bancroll + bet
  1138.                 ELSEIF roll = 7 OR roll = 11 THEN
  1139.                   PRINT "éδ óδ¿úα὿ !"
  1140.                   bancroll = bancroll - bet
  1141.                 ELSE
  1142.                   PRINT "éáΦ¿ «τ¬¿" roll
  1143.                   noPoint = -1
  1144.                   WHILE noPoint
  1145.                     nextRoll : DELAY delayVal
  1146.                     IF roll = nextRoll THEN   '󽫪ѡ¡δ⌐ í½«¬ IF
  1147.                       PRINT "éδ óδ¿úα὿ !"
  1148.                       bancroll = bancroll + bet
  1149.                       noPoint = 0
  1150.                     ELSE IF nextRoll = 7 THEN
  1151.                       PRINT "éδ »α«¿úα὿"
  1152.                       bancroll = bancroll - bet
  1153.                       noPoint = 0
  1154.                     ENDIF
  1155.                   WEND              'ºáóÑαΦáÑΓ µ¿¬½ WHILE noPoint
  1156.                 ENDIF               'ºáóÑαΦáÑΓ »Ñαóδ⌐ í½«¬ IF
  1157.               WEND                  '¬«¡Ñµ µ¿¬½á WHILE NOT INSTAT
  1158.  
  1159.  
  1160.  
  1161.  
  1162.  
  1163.  
  1164.  
  1165.  
  1166.  
  1167.