home *** CD-ROM | disk | FTP | other *** search
/ For Beginners & Professional Hackers / cd.iso / docum / tb1.doc / tb5.doc < prev    next >
Encoding:
Text File  |  1989-07-28  |  58.3 KB  |  1,302 lines
  1. _.R:
  2. .L:72
  3. .N:86
  4. .H:...$$$...
  5. .H:
  6. .H:
  7. .X:10
  8. .S:6
  9.                   îÑΓá«»ÑαáΓ«αδ $IF/$ELSE/$ENDIF 
  10. -----------------------------------------------------------------
  11. ìạáτÑ¡¿Ñ         îÑΓá«»ÑαáΓ«αδ $IF,  $ELSE ¿ $ENDIF  «»αÑñѽ∩εΓ  
  12.                    »«αµ¿¿ ¿ßσ«ñ¡«⌐ »α«úαá¼¼δ,  ¬«Γ«αδÑ ¡Ñ«íσ«ñ¿¼« 
  13.                    ¬«¼»¿½¿α«óáΓ∞ ¿½¿ »α«»πßΓ¿Γ∞ (φΓ« τáßΓ«  ¡áºδ-
  14.                    óáÑΓß∩ πß½«ó¡δ¼ ¬«¼»¿½¿α«ó᡿Ѽ) 
  15.  
  16. æ¿¡Γá¬ß¿ß          $IF const (»«ßΓ«∩¡¡á∩) 
  17.                    .
  18.                    .  «»ÑαáΓ«αδ
  19.                    .
  20.                    [$ELSE 
  21.                    .
  22.                    .  «»ÑαáΓ«αδ] 
  23.                    .
  24.                    $ENDIF
  25.  
  26. 諼¼Ñ¡Γáα¿⌐        const »αÑñßΓáó½∩ÑΓ ß«í«⌐ ¬«¡ßΓá¡Γπ ß »α¿ßó«Ñ¡-
  27.                    ¡δ¼ ¿¼Ñ¡Ñ¼ ¿½¿ »«ßΓ«∩¡¡πε óѽ¿τ¿¡π. àß½¿ const 
  28.                    ¡Ñ  αáó¡á  ¡π½ε (TRUE),  Γ«úñá «»ÑαáΓ«αδ ¼Ñªñπ 
  29.                    $IF ¿ $ELSE ¬«¼»¿½¿απεΓß∩,  á «»ÑαáΓ«αδ  ¼Ñªñπ 
  30.                    $ELSE  ¿  $ENDIF ¡Ñ ¬«¼»¿½¿απεΓß∩.  àß½¿ const 
  31.                    αáó¡á ¡π½ε (FALSE),  Γ«úñá «»ÑαáΓ«αδ ¼Ñªñπ $IF 
  32.                    ¿  $ELSE ¿ú¡«α¿απεΓß∩,  á ¼Ñªñπ $ELSE ¿ $ENDIF 
  33.                    ¬«¼»¿½¿απεΓß∩.  
  34.  
  35.                       îÑΓá«»ÑαáΓ«α $ELSE ∩ó½∩ÑΓß∩ ¡Ñ«í∩ºáΓѽ∞¡δ¼,
  36.                    á $ENDIF «í∩ºáΓѽ∞¡δ¼. 
  37.  
  38.                       Ä»ÑαáΓ«αδ πß½«ó¡«⌐ ¬«¼»¿½∩µ¿¿  ¼«úπΓ  íδΓ∞
  39.                    ó½«ªÑ¡δ ¡á πα«ó¡Ñ ú½πí¿¡δ 256. 
  40. Åα¿¼Ñα             %ColorScreen = 1 ' πßΓá¡«ó¬á ¬«¡ßΓá¡Γδ ß »α¿ß-
  41.                                     ' ó«Ñ¡¡¡δ¼ ¿¼Ñ¡Ñ¼ ¡á óѽ¿τ¿¡π
  42.                                     ' ¡Ñ αáó¡πε  ¡π½ε,  π¬áºδóáÑΓ
  43.                                     ' ¡á «»Ñαáµ¿ε ¡á µóÑΓ¡«⌐ ß¿ß-
  44.                                     ' ΓѼÑ. 
  45.                    ' πßΓá¡«ó¬á ó¿½¿τ¿¡δ, αáó¡«⌐  ¡π½ε,  π¬áºδóáÑΓ
  46.                    ' ¡á «»Ñαᵿε 
  47.                    ' ¡á ¼«¡«σα«¡¡«⌐ ß¿ßΓѼѠ
  48.                    SIF %ColorScreen 
  49.                       DEF SEG = &HB800 ' úαáΣ¿τÑ߬¿⌐ áñαÑß 
  50.                                        ' φ¬αá¡¡á∩ »á¼∩Γ∞ 
  51.                    $ELSE 
  52.                       DEF SEG = &HB800 ' ¼«¡«σα«¡¡δ⌐ áñαÑß 
  53.                                        ' φ¬αá¡¡á∩ »á¼∩Γ∞ 
  54.  
  55.                    FOR I% = 0 to 4000 STEP 2 
  56.                      POKE I%,ASC("A") ' ºá»«½¡¿Γ∞ φ¬αá¡ íπ¬óἿ Ç 
  57.                    NEXT I% 
  58.  
  59.                    ' ß«σαá¡¿Γ∞ óßÑ 4000 í½«¬«ó ó¿ñÑ« ºá»¿ß¿ 
  60.                    BSAVE "SIF.DTA",0,4000 
  61.  
  62.                    END                 ' ºá¬«¡τ¿Γ∞ »α«úαá¼¼π 
  63. 
  64.                        îÑΓá«»ÑαáΓ«α INCLUDE 
  65. -----------------------------------------------------------------
  66. ìạáτÑ¡¿Ñ         $INCLUDE ó¬½ετáÑΓ ΓѬßΓ«ó«⌐ Σá⌐½. 
  67.  
  68. æ¿¡Γá¬ß¿ß          $INCLUDE filespec literal 
  69.  
  70. 諼¼Ñ¡Γáα¿⌐        êß»«½∞ºπÑΓß∩ $INCLUDE ñ½∩ ¬«¼»¿½¿α«óá¡¿∩ ΓѬß-
  71.                    Γá ñαπú«ú«  Σá⌐½á  ¡áα∩ñπ  ß  ΓѬπΘ¿¼  Σá⌐½«¼.  
  72.                    filespec literal - φΓ« ß¿¼ó«½∞¡á∩ ¬«¡ßΓá¡Γá, á 
  73.                    Σá⌐½, ¬«Γ«αδ⌐ «¡á »αÑñßΓáó½∩ÑΓ, ñ«½ªÑ¡ ¿ß»«½∞-
  74.                    º«óáΓ∞  πß½«ó¡δÑ «í«º¡áτÑ¡¿∩ ¿¼Ñ¡¿ Σá⌐½á DOS ¿ 
  75.                    ñ«½ªÑ¡ »αÑñßΓáó½∩Γ∞ ¿ßσ«ñ¡δ⌐ ΣΣá⌐½ ÆôÉüÄ  üàë-
  76.                    æêèá.  àß½¿ ñ½∩ Σá⌐½á ó¬½ετÑ¡¿∩ ¡Ñ π¬áºδóáÑΓß∩ 
  77.                    ¿¼∩ Σá⌐½á,  Γ«  Ñ¼π  »α¿ßóá¿óáÑΓß∩  αáßΦ¿αÑ¡¿Ñ 
  78.                    BAC.  
  79.                       îÑσá¡¿º¼ $INCLUDE ºá∩ó½∩ÑΓ ¬«¼»¿½∩Γ«α «íσ«-
  80.                    ñ¿Γ∞ß∩  ß ó¬½ετÑ¡¡δ¼ Σá⌐½«¼ Γá¬,  ¬á¬ íπñΓ« «¡ 
  81.                    Σ¿º¿τÑ߬¿ »α¿ßπΓßΓó«óá½ ó φë༫¼Ñ¡Γ ó «α¿ú¿-
  82.                    ¡á½∞¡«¼ ΓѬßΓÑ. ¥Γ« »«ºó«½∩ÑΓ óá¼ αáºó¿Γ∞ óáΦπ 
  83.                    ¿ßσ«ñ¡πε »α«úαá¼¼π ¡á πñ«í¡δÑ ó  ¿ß»«½∞º«óá¡¿¿ 
  84.                    ¬π߬¿ »α«úαá¼¼δ. è«¡µÑ»µ¿∩ ÆôÉüÄ üàëæêèá αáí«-
  85.                    τ¿⌐-Σá⌐½/ú½áó¡δ⌐-Σá⌐½  ßó∩ºá¡á  ß $INCLUDE.  é 
  86.                    ¬áτÑßΓóÑ ¿½½εßΓαᵿ¿  αáßß¼«Γα¿ΓÑ  Σá⌐½δ  CAL-
  87.                    CAREA.BAS ¿ CONCT.BAS: 
  88.  
  89.                             File CALCAREA.BAS 
  90.  
  91.                    PRINT "Circle area calculating program"
  92.                    PRINT "If you find this program useful"
  93.                    PRINT "Please send $3,500 to:"
  94.                    PRINT
  95.                    PRINT "Frank Borland"
  96.                    PRINT "4585 Scorland"
  97.                    PRINT "Scotts Valley, CA 95066"
  98.                    PRINT "-------------------------------"
  99.                    $INCLUDE "CONST.BAS"
  100.                    INPUT "Enter radius", r
  101.                    PRINT "Area =" pi * r * r
  102.  
  103.                             File CONST.BAS
  104.  
  105.                    ' All purpose constants
  106.                    pi = ATN(1) * 4
  107.                    %true = -1
  108.                    %false = 0
  109.                    %maxx = 319
  110.                    %maxy = 199
  111.  
  112.                      ä½∩ ¬«¼»¿½¿α«óá¡¿∩ φΓ«⌐ »α«úαá¼¼δ,  CALCAREA 
  113.                   ¡Ñ«íσ«ñ¿¼« ßñѽáΓ∞ "ú½áó¡δ¼  Σá⌐½«¼",  Γ.¬.  «¡ 
  114.                   ∩ó½∩ÑΓß∩ Σá⌐½«¼ ß «»ÑαáΓ«α«¼ $INCLUDE.  Éáí«τ¿⌐ 
  115.                   Σá⌐ñ "»πΓÑΦÑßΓóπÑΓ" ó»ÑαÑñ ¿ ¡áºáñ ¼Ñªñπ Σá⌐½á-
  116.                   ¼¿, ó ºáó¿ß¿¼«ßΓ¿ «Γ Γ«ú«, úñÑ ΓαÑíπÑΓß∩ αÑñá¬-
  117.                   Γ¿α«óá¡¿Ñ (Γ.Ñ. úñÑ ÑßΓ∞ «Φ¿í¬¿). ìѺáó¿ß¿¼« «Γ 
  118.                   ΓѬπΘÑú« αáí«τÑú« Σá⌐½á,  ¬«¼»¿½∩µ¿∩ óßÑúñá ¡á-
  119.                   τ¿¡áÑΓß∩ ß CALCAREA (ú½áó¡δ⌐ Σá⌐½). (ü«½ÑÑ »«ñ-
  120.                   α«í¡« «»¿ßδóáÑΓß∩ ó â½áóÑ 3 "Äß¡«ó¡«Ñ ¼Ñ¡ε").  
  121.                      è«úñá ¬«¼»¿½∩Γ«α ÆôüÉÄ üàëæêèá óßΓαÑτáÑΓ ¼Ñ-
  122.                   Γá«»ÑαáΓ«α  $INCLUDE  ó  7 ßΓα«¬Ñ CALCAREA,  «¡ 
  123.                   »α¿«ßΓá¡áó½¿óáÑΓ ßτ¿Γδóá¡¿Ñ ß ¬«ñá, ºáúαπªáÑΓ ¿ 
  124.                   ¡áτ¿¡áÑΓ ßτ¿ΓδóáΓ∞  º¡á¬¿  ß  CONST.BAS.  è«úñá 
  125.                   φëଫñ ¿ßτÑα»á¡, ¬«¼»¿½∩Γ«α ó«ºóαáΘáÑΓß∩ ó Γ« 
  126.                   ¼ÑßΓ« «α¿ú¿¡á½∞¡«⌐ »α«úαá¼¼δ, úñÑ í佫 »α¿«ßΓá-
  127.                   ¡«ó½Ñ¡« ßτ¿Γδóá¡¿Ñ.  
  128.  
  129.                      îÑΓá«»ÑαáΓ«α  $INCLUDE ¼«ªÑΓ íδΓ∞ »«¼ÑΘ±¡ ¡á 
  130.                   ú½πí¿¡π 5;  Γ« ÑßΓ∞ ó¬½ετÑ¡¡δ⌐ Σá⌐½ ¼«ªÑΓ ¿¼ÑΓ∞ 
  131.                   ßó«⌐ ß«íßΓóÑ¡¡δ⌐ ¼ÑΓá«»ÑαáΓ«α $INCLUDE.  
  132. 
  133. Åα¿¼Ñα             ' çỿßáΓ∞ ß½ÑñπεΘπε ¿¡Σ«α¼áµ¿ε ó Σá⌐½ 
  134.                    ' ¡áºδóáѼδ⌐ "EXAMPLE.INC". 
  135.  
  136.                    SUB SayHello     ' »α«µÑñπαá »ÑτáΓáÑΓ 
  137.                      PRINT "Hello" ' "Hello" ("»α¿óÑΓ") ¡á φ¬αá¡Ñ
  138.                    END SUB
  139.  
  140.                    ' äá½ÑÑ ¿ñÑΓ ú½áó¡á∩ »α«úαá¼¼á 
  141.                   $INCLUDE "EXAMPLE.INC" ' ó¬½ετ¿Γ∞ ¿ßσ«ñ¡δ⌐ Σá⌐½
  142.   
  143.                   CALL SayHello  ' óδºóáΓ∞ «»αÑñѽѡ¡πε »α«µÑñπαπ
  144.                                  ' ó ó¬½ετÑ¡¡«¼ Σá⌐½Ñ 
  145.  
  146.                    END            ' ºá¬«¡τ¿Γ∞ »α«úαá¼¼π 
  147.  
  148. 
  149.                        îÑΓá«»ÑαáΓ«α $INLINE 
  150. -----------------------------------------------------------------
  151. ìạáτÑ¡¿Ñ         $INLINE «í'∩ó½∩ÑΓ  óßΓα«Ñ¡¡δ⌐  ¼áΦ¿¡¡δ⌐  ¬«ñ ó
  152.                    óßΓα«Ñ¡¡«⌐ »α«µÑñπαÑ. 
  153.  
  154. æ¿¡Γá¬ß¿ß          $INLINE [byte list] [filespec literal] 
  155.  
  156. 諼¼Ñ¡Γáα¿⌐        $INLINE  óßΓαÑτáÑΓß∩   Γ«½∞¬«  ó »αÑñѽáσ Γѽá
  157.                    óßΓα«Ñ¡¡«⌐ »α«µÑñπαδ.
  158.  
  159.                       byte list »αÑñßΓáó½∩ÑΓ ß«í«⌐ »«ß½Ññ«óáΓѽ∞-
  160.                    ¡«ßΓ∞ µÑ½δσ τ¿ßѽ ó  »αÑñѽáσ  «Γ  0  ñ«  255, 
  161.                    ¬«Γ«-αδÑ  ñ«½ª¡δ ¬«ñ¿α«óáΓ∞ß∩ ¡Ñ»«ßΓαÑñßΓóÑ¡¡« 
  162.                    ó «í'Ñ¬Γ¡δ⌐ ¬«ñ ó φΓ«¼ ¼ÑßΓÑ.  
  163.  
  164.                       filespec literal - φΓ« ¿¼∩ Σá⌐½á,  ß«ñÑαªá-
  165.                    ΘÑú« ¬«ñ,  ¬«Γ«αδ⌐ ¡Ñ«íσ«ñ¿¼«  óßΓα«¿Γ∞.  ¥Γ«Γ 
  166.                    ¬«ñ  ñ«½ªÑ¡ »ÑαѼÑΘáΓ∞ß∩,  á ΓᬪѠ߫σαá¡∩Γ∞ ¿ 
  167.                    ó«ßßΓá¡áó½¿óáΓ∞  ß½ÑñπεΘ¿Ñ  αÑú¿ßΓαδ:  æÑú¼Ñ¡Γ 
  168.                    æΓѬá (SS),  ô¬áºáΓѽ∞  æΓѬá (SP),  ô¬áºáΓѽ∞ 
  169.                    üáºδ (éÉ),  æÑú¼Ñ¡Γ  äá¡¡δσ  (DS).  éßΓα«Ñ¡¡δ⌐ 
  170.                    (inline)  ¬«ñ  ¼«ªÑΓ  «íαáΘáΓ∞ß∩ ¬ »áαá¼ÑΓαá¼, 
  171.                    ¿ß»«½∞ºπε «Γ¡«ß¿Γѽ∞¡πε  áñαÑßáµ¿ε  BP. (ü«½ÑÑ 
  172.                    »«ñα«í¡« «í φΓ«¼  ß¼. Åα¿½«ªÑ¡¿Ñ Ç "Éáßß¼«ΓαÑ-
  173.                    ¡¿Ñ τ¿ßѽ" ¿ Åα¿½«ªÑ¡¿Ñ æ "ê¡ΓÑαΣÑ⌐ß ∩ºδ¬á Çß-
  174.                    ßѼí½Ñαá").  
  175.  
  176. Åα¿¼Ñα             SUB Shiek INLINE 
  177.                    ' $INLINE ºáßΓáó½∩ÑΓ ú«ó«α∩ΘÑú« ¿ºñáΓ∞ ¬α¿¬ 
  178.                      $INLINE &HBA, &HOO, &HO7, &HE4, &H61, &H24 
  179.                      $INLINE &HFC, &H34, &HO2, &HE6, &H61, &HB9 
  180.                      $INLINE &H4O, &HO1, &HE2, &HFE, &H4A, &H74 
  181.                      $INLINE &HO2, &HEB, &HF2 
  182.  
  183.                    END SUB 
  184.                    CALL Shriek 
  185.                    END   ' ºá¬«¡τ¿Γ∞ »α«úαá¼¼π 
  186.  
  187.                       îÑΓá«»ÑαáΓ«α $SEGMENT 
  188. -----------------------------------------------------------------
  189. ìạáτÑ¡¿Ñ         $SEGMENT «í'∩ó½∩ÑΓ ¡«óδ⌐ ßÑú¼Ñ¡Γ ¬«ñá. 
  190.  
  191. æ¿¡Γá¬ß¿ß          $SEGMENT 
  192.  
  193. 諼¼Ñ¡Γáα¿⌐        êß»«½∞ºπ⌐ΓÑ ¼ÑΓá«»ÑαáΓ«α $SEGMENT "«ΓßπΓßΓßó¿Ñ
  194.                    áαúπ¼Ñ¡Γá"  ñ½∩  »αÑαδóá¡¿∩   óáΦÑ⌐   ¿ßσ«ñ¡«⌐ 
  195.                    »α«úαá¼¼δ,   ¬«úñá  ¬«¼»¿½∩Γ«α  ß««íΘáÑΓ,  τΓ« 
  196.                    »α«¿º«Φ½« »αÑαδóá¡¿Ñ «úαá¡¿τÑ¡¿∩ ßÑú¼Ñ¡Γá ¬«ñá 
  197.                    64è: 
  198.  
  199.                    Error 409 Segment Overflow <ESC> 
  200.  
  201.                      éß∩ ¿¡Σ«α¼áµ¿∩ »«ß½Ñ ¼ÑΓá«»ÑαáΓ«αá  $SEGMENT 
  202.                    íπñÑΓ »«¼ÑΘÑ¡á ó ¡«óδ⌐ ßÑú¼Ñ¡Γ ¬«ñá. ¥Γ« »αÑó-
  203.                    αáΘáÑΓ   ¬áªñδ⌐  «»ÑαáΓ«α  π»αáó½∩εΘÑ⌐  ½«ú¿¬¿ 
  204.                    »α«úαá¼¼δ (GOSUB, GOTO), ¬«Γ«αδ⌐ »α«σ«ñ¿Γ ¬«¡-
  205.                    Γα«½∞ τÑαѺ ñá¡¡πε úαá¡¿µπ, ó ñó¿ªÑ¡¿Ñ  ¿¡ΓÑα-
  206.                    ßÑú¼Ñ¡Γá, óδº«ó ¿½¿ ß¬áτ«¬, ñ½∩ óδ»«½¡Ñ¡¿∩ ¬«-
  207.                    Γ«αδσ ΓαÑíπÑΓß∩ ¡Ñ¼¡«ú« í«½∞ΦÑ óαѼѡ¿ ¿  «í'-
  208.                    Ñ¼á ßΓѬá. ¥Γπ »«ΓÑαε óαѼѡ¿ ¼«ª¡« π¼Ñ¡∞Φ¿Γ∞,   
  209.                    »«¼ÑßΓ¿ó  «»ÑαáΓ«αδ  $SEGMENT  ó  ¼ÑßΓáσ,  úñÑ 
  210.                    »α«¿ßσ«ñ¿Γ   ÑßΓÑßΓóÑ¡¡«Ñ   αáºñѽѡ¿Ñ   óáΦÑ⌐ 
  211.                    »α«úαá¼¼δ;  ¡á»α¿¼Ñα, ¼Ñªñπ ú½áó¡«⌐ »α«úαá¼¼«⌐ 
  212.                    ¿ »«ñ»α«úαἼἿ ¿½¿ ¼Ñªñπ ú½áó¡«⌐  »α«úαá¼¼«⌐ 
  213.                    ¿ ¬«ñ«¼ ¿¡¿µ¿á½¿ºáµ¿¿ ¿½¿ «¬«¡τá¡¿Ñ.  
  214.  
  215.                      é  »α«úαἼѠ ÆôÉüÄ üàëæêèá ¼«ªÑΓ íδΓ∞ ñ« 16 
  216.                    ßÑú¼Ñ¡Γ«ó ¬«ñá.  äá¡¡δÑ ß«ßΓ«∩¡¿∩  ¬«¼»¿½∩µ¿¿, 
  217.                    ¡á»ÑτáΓá¡¡δÑ »«ß½Ñ ¬«¼»¿½∩µ¿¿, »«¬áªπΓ αẼÑαδ 
  218.                    ¬áªñ«ú« ßÑú¼Ñ¡Γá, «Γñѽѡ¡δÑ ¬«ß«⌐ τÑαΓ«⌐ (/).  
  219.  
  220.                      ìѽ∞º∩ ¿ß»«½∞º«óáΓ∞ «»ÑαáΓ«α $SEGMENT ó αá¼-
  221.                    ¬áσ  ßΓαπ¬Γπα¡«ú« í½«¬á;  ¡á»α¿¼Ñα,  FOR/NEXT, 
  222.                    DO/LOOP, WHILE/WEND, IF BLOCK.  
  223.  
  224. Åα¿¼Ñα             SUB Proc1 
  225.                       PRINT "This is a dummy procedure" 
  226.                    END SUB 
  227.  
  228.                    $SEGMENT  ' «»αÑñѽ¿ΓÑ óΓ«α«⌐ ßÑú¼Ñ¡Γ 
  229.  
  230.                    SUB Proc2 
  231.                       PRINT "This is another dummy procedure" 
  232.                    END SUB 
  233.  
  234.                    $SEGMENT   ' «»αÑñѽ¿ΓÑ ΓαÑΓ¿⌐ ßÑú¼Ñ¡Γ 
  235.  
  236.                    SUB Proc3 
  237.                       PRINT "This is another dummy procedure" 
  238.                    END SUB 
  239.  
  240.                    CALL Proc1 
  241.                    CALL Proc2 
  242.                    CALL Proc3 
  243.  
  244.                    END        ' ºá¬«¡τ¿Γ∞ »α«úαá¼¼π 
  245. 
  246.                        îÑΓá«»ÑαáΓ«α $SOUND
  247. -----------------------------------------------------------------
  248. ìạáτÑ¡¿Ñ         $SOUND «í'∩ó½∩ÑΓ Ñ¼¬«ßΓ∞ íπΣÑαá Σ«¡«ó«⌐ 
  249.                           ¼πºδ¬¿.
  250.  
  251. æ¿¡Γá¬ß¿ß          $SOUND buffer size 
  252.  
  253. è«ß¼¼Ñ¡Γáα¿⌐       buffer size - φΓ« τ¿ß½Ñ¡¡á∩ ¬«¡ßΓá¡Γá, »«¬áºδ-
  254.                    óáεΘá∩   ¡«Γ¡πε   Ñ¼¬«ßΓ∞   Σ«¡«ó«ú«    íπΣÑαá 
  255.                    «»ÑαáΓ«αá  PLAY,  «Γ  1  ñ« 4,096.  ôóѽ¿τÑ¡¿Ñ 
  256.                    ±¼¬«ßΓ¿ íπΣÑαá ñ« ¼á¬ß¿¼π¼á  (¬«½¿τÑßΓó«  ¡«Γ, 
  257.                    ¬«Γ«αδÑ  »α«ºóπτáΓ  ó ñá¡¡«⌐ »α«úαá¼¼Ñ) ñѽáÑΓ 
  258.                    ß«ºñá¡¿Ñ ¡«Γ¡«ßτÑΓ¡«⌐ ½«óπΦ¬¿ ¡Ñ¡πª¡δ¼.  
  259.  
  260.                       èáªñá∩   ¡«Γá   ΓαÑíπÑΓ  8  íá⌐Γ«ó  »á¼∩Γ¿; 
  261.                    Ñ¼¬«ßΓ∞ »« π¼«½τá¡¿ε ß«ßΓáó½∩ÑΓ  32  ¡«Γδ  ¿½¿ 
  262.                    256  íá⌐Γ«ó.  ç¡áτÑ¡¿Ñ »« π¼«½τá¡¿ε ¼«ªÑΓ íδΓ∞ 
  263.                    ¿ß»«½∞º«óá¡« ¿  ºá»¿ßá¡«  »πΓѼ  ¿ß»«½∞º«óá¡¿∩ 
  264.                    φ½Ñ¼Ñ¡Γá Music Byffer ¡á ¼Ñ¡ε Options.  ç¡áτÑ-
  265.                    ¡¿∩ »« π¼«½τá¡¿ε  ºá¼Ñ¡∩εΓß∩  ¼ÑΓá«»ÑαáΓ«αἿ, 
  266.                    óßΓα«Ñ¡¡δ¼¿ ó ¬«ñ.  
  267. 
  268.                        îÑΓá«»ÑαáΓ«α $STACK 
  269. -----------------------------------------------------------------
  270. ìạáτÑ¡¿Ñ         $STACK «»¿ßδóáÑΓ αẼÑα ßΓѬá óδ»«½¡Ñ¡¿∩ »α«ú-
  271.                    αá¼¼δ. 
  272.  
  273. æ¿¡Γá¬ß¿ß          $STECK count 
  274.  
  275. 諼¼Ñ¡Γáα¿⌐        count- φΓ« τ¿ß½Ñ¡¡á∩ ¬«¡ßΓá¡Γá «Γ 1024 ñ« 32è.
  276.  
  277.                    îÑΓá«»ÑαáΓ«α $STACK «»αÑñѽ∩ÑΓ ¬á¬«⌐ «í'¼  »á-
  278.                    ¼∩Γ¿ óδ»«½¡Ñ¡¿∩ »α«úαá¼¼δ íπñÑΓ «ΓóÑñÑ¡ ßΓѬπ.  
  279.                    æΓѬ ¿ß»«½∞ºπÑΓß∩ ñ½∩ áñαÑßá ó«ºóαáΓá ó« óαѼ∩ 
  280.                    ó맮ó«ó   »α«úαá¼¼δ  ¿  ó  αἬáσ  ßΓαπ¬Γπα¡δσ 
  281.                    «»ÑαáΓ«α«ó,  á ΓᬪѠ ó  ½«¬á½∞¡δσ  »ÑαѼѡ¡δσ 
  282.                    ¼¡«ú«ßΓα«τ¡δσ Σπ¡¬µ¿⌐.  ÉẼÑα »« π¼«½τá¡¿ε (¿ 
  283.                    ¼¿¡¿¼á½∞¡δ⌐) - 1024 (400ì) íá⌐Γ«ó.  
  284.                       éá¼ ¼«ªÑΓ »«¡áñ«í¿Γß∩ í«½∞Φ¿⌐ «í'Ѽ  ßΓѬá, 
  285.                    Ñß½¿  óáΦá  »α«úαἼᠡѡ«α¼á½∞¡« αáß»«½«ªÑ¡á, 
  286.                    ¿ß»½∞ºπÑΓ  í«½∞Φ¿Ñ  ½«¬á½∞¡δÑ  »ÑαѼѡ¡δÑ  ¿½¿ 
  287.                    «ßπΘÑßΓó½∩ÑΓ αѬπαß¿ε. àß½¿ óδ »αÑñ»«½áúáÑΓÑ, 
  288.                    τΓ« óáΦÑ⌐ »α«úαἼѠ¡Ñ σóáΓ¿Γ «í'¼á ßΓѬá, Γ« 
  289.                    óá¼  ¡Ñ«íσ«ñ¿¼«  ó¡«ó∞ »α«¿ºóÑßΓ¿ ¬«¼»¿½∩µ¿ε ß 
  290.                    óÑαß¿Ñ⌐ ΓѬßΓá STACK ó ¼Ñ¡ε Options.  Åα«úαá¼-
  291.                    ¼δ,  úÑ¡Ñα¿απѼδÑ  ß  ¡áßΓ«∩Θ¿¼ »ÑαѬ½ετáΓѽѼ 
  292.                    «Γ½áñ¬¿ ó« ó¬½ετÑ¡¡«¼ ß«ßΓ«∩¡¿¿, óßÑúñá »α«óÑ-
  293.                    α∩εΓ ¿¼ÑεΘ¿⌐ß∩ ó αáß»«α∩ªÑ¡¿¿ «í'Ѽ  ßΓѬᠠñ« 
  294.                    óσ«ñá  ó  »«ñ»α«úαá¼¼δ,  »α«µÑñπαδ  ¿ Σπ¡¬µ¿¿. 
  295.                    ç¡áτÑ¡¿∩ »« π¼«½τá¡¿ε ºá¼Ñ¡∩εΓß∩  ¼ÑΓá«»ÑαáΓ«-
  296.                    αἿ, óßΓα«Ñ¡¡δ¼¿ ó ¬«ñ.  
  297.  
  298.                       éδ ¼«ªÑΓÑ ßἫßΓ«∩Γѽ∞¡« »α«óÑα¿Γ∞ ¬«½¿τÑß-
  299.                    Γó«  ßó«í«ñ¡«ú« «í'Ѽá ßΓѬá ß »«¼«Θ∞ε Σπ¡¬µ¿¿ 
  300.                    FRE(-2).  
  301.  
  302. æ¼.ΓᬪѠ          FRE 
  303.  
  304. Åα¿¼Ñα             ' äáÑΓ ßΓѬ ó 4,096 íá⌐Γ«ó... 
  305.                    $STACK &H1000 
  306.                   PRINT FRE(-2) ' »«¬áºδóáÑΓ «¼ÑεΘ¿⌐ß∩ ó αáß»«α∩-
  307.                                 ' ªÑ¡¿¿ «í'±¼ ßΓѬá 
  308. 
  309.                        îÑΓá«»ÑαáΓ«α $STATIC 
  310. -----------------------------------------------------------------
  311. ìạáτÑ¡¿Ñ         îÑΓá«»ÑαáΓ«α $STATIC «»¿ßδóáÑΓ αẼÑΘÑ¡¿Ñ ¼áß-
  312.                    ß¿óá »« π¼«½τá¡¿ε ¬á¬ ßΓáΓ¿τÑ߬«Ñ. 
  313.  
  314. æ¿¡Γá¬ß¿ß          $STATIC 
  315.  
  316. 諼¼Ñ¡Γáα¿⌐        îÑΓá«»ÑαáΓ«α $STATIC ¡Ñ »α¿¡¿¼áÑΓ áαúπ¼Ñ¡Γá  ¿
  317.                    »α¿»¿ßδóáÑΓ αẼÑΘÑ¡¿Ñ  ¼áßß¿óá  »«  π¼«½τá¡¿ε 
  318.                    ¬á¬   ßΓáΓ¿τÑ߬¿⌐   Γ¿».    Åα«ßΓαá¡ßΓó«   ñ½∩ 
  319.                    ßΓáΓ¿τÑ߬¿σ  ¼áßß¿ó«ó  óδñѽ∩ÑΓß∩   ó«   óαѼ∩ 
  320.                    ¬«¼»¿½∩µ¿¿.  îáßß¿óδ ß  »«ßΓ«∩¡¡δ¼¿  αẼÑαἿ 
  321.                    ∩ó½∩εΓß∩ óßÑúñá ßΓáΓ¿τÑ߬¿¼¿, ¬α«¼Ñ ΓÑσ ß½πτá-
  322.                    Ñó,  ¬«úñá ¼áßß¿ó «»¿ßδóáÑΓß∩ ½«¬á½∞¡δ¼ »« «Γ-
  323.                    ¡«ΦÑ¡¿ε ¬ »α«µÑñπαÑ ¿½¿ Σπ¡¬µ¿¿, ½¿í« Ñß½¿ ñ½∩ 
  324.                    «ñ¡«ú« ¿ Γ«ú« ªÑ ¼áßß¿óá ßπΘÑßΓóπÑΓ í«½ÑÑ, τѼ 
  325.                    «ñ¡á óѽ¿τ¿¡á (αẼÑα).  
  326.                       æΓáΓ¿τÑ߬¿Ñ ¼áßß¿óδ ¡Ñ π¡¿τΓ«ªáεΓß∩. Ä»Ñαá-
  327.                    Γ«α ERASE Γ«½∞¬« ¿¡¿µ¿¿απÑΓ ¬áªñδ⌐  φ½Ñ¼Ñ¡Γ  ó 
  328.                    ¼áßß¿óÑ ¬ ¡π½ε ¿½¿ »πßΓ«⌐ ßΓ᫬Ñ.  
  329.                       ÄíαáΓ¿ΓÑ   ó¡¿¼á¡¿Ñ,    τΓ«    ¼ÑΓá«»ÑαáΓ«α 
  330.                    $STATIC,  ¡Ñß¼«Γα∩ ¡á ¬«ß¼ÑΓ¿τÑ߬«Ñ  ßσ«ñßΓó«, 
  331.                    ¡Ñ  ¿¼ÑÑΓ  ¡¿τÑú«  «íΘÑú« ß «»ÑαáΓ«α«¼ STATIC, 
  332.                    ¬«Γ«αδ⌐ «»¿ßδóáÑΓ  ß»Ñµ¿á½∞¡δ⌐  Γ¿»  ½«¬á½∞¡«⌐ 
  333.                    »ÑαѼѡ¡«⌐ ó »αÑñѽáσ »α«µÑñπα ¿ Σπ¡¬µ¿⌐.  
  334.  
  335.                       îÑΓá«»ÑαáΓ«α $STATIC ÑßΓ∞ »« π¼«½τá¡¿ε ¬«¼-
  336.                    »¿½∩Γ«αá.  
  337.  
  338. æ¼.ΓᬪѠ          DIM     $DYNAMIC      ERASE        FRE 
  339.  
  340. Åα¿¼Ñα             $STATIC   ' φ¬ß»½¿µ¿Γ¡« «í'∩ó½∩ÑΓ ßΓáΓ¿τÑ߬¿Ñ 
  341.                              ' ¼áßß¿óδ 
  342.  
  343.                    PRINT "Memory available:",FRE(-1) 
  344.                    ' «í'±¼ »á¼∩Γ¿ «ßΓáÑΓß∩ Γᬿ¼ ªÑ 
  345.  
  346.                    DIM A(50) ' A ∩ó½∩ÑΓß∩ ßΓáΓ¿τÑ߬¿¼ ¼áßß¿ó«¼ 
  347.                    PRINT "Memory available:",FRE(-1) 
  348.  
  349.                    N = 50 
  350.  
  351.                    ' B ∩ó½∩ÑΓß∩ ñ¿¡á¼¿τÑ߬¿¼ ¼áßß¿ó«¼ ¿º-ºá 
  352.                    ' óδαáªÑ¡¿∩, ¿ß»«½∞ºπѼ«ú« ó ¬áτÑßΓóÑ áα- 
  353.                    ' úπ¼Ñ¡Γá ó «»ÑαáΓ«αÑ DIM 
  354.                    DIM B(N) 
  355.                    PRINT "Memory available:",FRE(-1) 
  356.                    ' ΓÑ»Ñα∞ πªÑ ¼Ñ¡∞ΦÑ 
  357.  
  358.                    ERASE A 
  359.                    PRINT "Memory available:",FRE(-1) 
  360.                    ' ¡ÑΓ ¡¿¬á¬«⌐ αạ¿µδ, »«Γ«¼π τΓ« Ç ¡Ñ »ÑαѼÑ- 
  361.                    ' ΘáÑΓß∩ 
  362.                    ' »α«ßΓ« «í¡π½∩ÑΓß∩ 
  363.  
  364.                    ERASE B 
  365.                    PRINT "Memory available:",FRE(-1) 
  366.                    ' í«½∞Φ¿⌐ «í'Ѽ »á¼∩Γ¿, Γ.¬. ñ¿¡á¼¿τÑ߬¿Ñ
  367.                    ' ¼áßß¿óδ »ÑαѼÑΘáεΓß∩ 
  368.          END       ' ºá¬«¡τ¿Γ∞ »α«úαá¼¼π 
  369. 
  370.                             öπ¡¬µ¿∩ ABS 
  371. -----------------------------------------------------------------
  372. ìạáτÑ¡¿Ñ         ABS ó«ºóαáΘáÑΓ áíß«½εΓ¡«Ñ º¡áτÑ¡¿Ñ 
  373.  
  374. æ¿¡Γá¬ß¿ß          y = ABS (numeric expression) 
  375.  
  376. 諼¼Ñ¡Γáα¿⌐        ABS ó«ºóαáΘáÑΓ áíß«½εΓ¡«Ñ º¡áτÑ¡¿Ñ  τ¿ß½Ñ¡¡«ú«
  377.                    óδαáªÑ¡¿∩. Çíß«½εΓ¡«Ñ º¡áτÑ¡¿Ñ σ π¬áºδóáÑΓ Ñú« 
  378.                    óѽ¿τ¿¡π íѺ πτÑΓá º¡á¬á.  ìá»α¿¼Ñα áíß«½εΓ¡«Ñ 
  379.                    º¡áτÑ¡¿Ñ -3 φΓ« 3; áíß«½εΓ¡«Ñ º¡áτÑ¡¿Ñ +3  φΓ« 
  380.                    3.  
  381.  
  382. Åα¿¼Ñα             ' ABS ó«ºóαáΘáÑΓ ΓѬπΘÑÑ αáßßΓ«∩¡¿Ñ «Γ "ñ«¼á" 
  383.                    ' »«ßαÑñßΓó«¼ πτÑΓá áíß«½εΓ¡«ú« º¡áτÑ¡¿∩ αáßß- 
  384.                    ' Γ«∩¡¿∩ 
  385.  
  386.                    ' ¡áº¡áτ¿Γ∞ αẼÑΘÑ¡¿Ñ 
  387.                    Location# = -6,5 
  388.                    ' »«¬áºáΓ∞ ΓѬπΘπε »«º¿µ¿ε 
  389.                    PRINT "Current location:", Location# 
  390.                    ' »«¬áºáΓ∞ αáßßΓ«∩¡¿Ñ «Γ ñ«¼á 
  391.                    PRINT "ÉáßßΓ«∩¡¿Ñ «Γ ñ«¼á:", ABS (Distance#) 
  392.                    (Location#). 
  393. 
  394.                            öπ¡¬µ¿∩ ASC 
  395. -----------------------------------------------------------------
  396. ìạáτÑ¡¿Ñ         ASC ó«ºóαáΘáÑΓ ¬«ñ ASCII »Ñαó«ú« º¡á¬á ßΓ᫬¿. 
  397.  
  398. æ¿¡Γá¬ß¿ß          y = ASC (string expression) 
  399.  
  400. Åα¿¼Ñτá¡¿∩         ASC ó«ºóαáΘáÑΓ ¬«ñ ASCII («Γ 0 ñ« 255) »Ñαó«ú«
  401.                    º¡á¬á ß¿¼ó«½∞¡«ú« óδαáªÑ¡¿∩. 
  402.  
  403.                       ä½∩  »ÑαÑó«ñᠵѽ«τ¿ß½Ñ¡¡«⌐ ßΓ᫬¿ ó º¡á¬«-
  404.                    óπε ¿ß»«½∞ºπ⌐ΓÑ ¬«¼»½Ñ¼Ñ¡Γáα¡πε Σπ¡¬µ¿ε  CHR$, 
  405.                    ¬«Γ«αá∩   »α«¿ºó«ñ¿Γ  «ñ¡«º¡áτ¡πε  ßΓα«¬π  »α¿ 
  406.                    »«ñáτÑ º¡áτÑ¡¿∩ ASCII.  
  407.  
  408. Äúαá¡¿τÑ¡¿∩           æ¿¼ó«½∞¡«Ñ  óδαáªÑ¡¿Ñ  »ÑαÑσ«ñ∩ΘÑÑ  ¬   Çæû 
  409.                    ¼«ªÑΓ  ¡Ñ  íδΓ∞ ¡π½∞-ßΓ᫬«⌐ (»πßΓ«⌐ ßΓ᫬«⌐). 
  410.                    àß½¿ ªÑ φΓ«  »α«¿ßσ«ñ¿Γ,  úÑ¡Ñα¿απÑΓß∩  «Φ¿í¬á 
  411.                    óδ»«½¡Ñ¡¿∩ S, Illegal Function Call.  
  412.  
  413. æ¼.ΓᬪѠ          CHR$ 
  414.  
  415. Åα¿¼Ñα             PRINT "The ASCII value of is"; ASC("A") 
  416. 
  417.                            öπ¡¬µ¿∩ ÇÆN 
  418. -----------------------------------------------------------------
  419. ìạáτÑ¡¿Ñ         ATN ó«ºóαáΘáÑΓ Γα¿ú«¡«¼ÑΓα¿τÑ߬¿⌐ áα¬Γá¡úÑ¡ß. 
  420.  
  421. æ¿¡Γá¬ß¿ß          y = ATN (numeric expression) 
  422.  
  423. 諼¼Ñ¡Γáα¿⌐        ATN ó«ºóαáΘáÑΓ áα¬Γá¡úÑ¡ß  («íαáΓ¡δ⌐  Γá¡úÑ¡ß)
  424.                    τ¿ß½Ñ¡¡«ú«  óδαáªÑ¡¿∩,  Γ.Ñ.  πú«½ ß Γá¡úÑ¡ß«¼ 
  425.                    τ¿ß½Ñ¡¡«ú« óδαáªÑ¡¿∩. ATN ó«ºóαáΘáÑΓ αѺπ½∞ΓáΓ 
  426.                    ß πñó«Ñ¡¡«⌐ Γ«τ¡«ßΓ∞ε.  
  427.                       ÉѺπ½∞ΓáΓ, ¬á¬ ¿ ó« óßÑσ «»Ñαᵿ∩σ ß πú½á¼¿ 
  428.                    ó Æé,  óδαáªáÑΓß∩ ó αáñ¿á¡áσ (í«½∞ΦÑ⌐ τáßΓ∞ε), 
  429.                    á  ¡Ñ  ó úαáñπßáσ.  Éáñ¿á¡δ »αÑñßΓáó½∩εΓ ß«í«⌐ 
  430.                    ¼áΓѼáΓ¿τÑ߬¿ í«½ÑÑ  πñ«í¡«Ñ  ¿º¼ÑαÑ¡¿Ñ  πú½á, 
  431.                    óδαáªÑ¡¡δÑ ó αáñ¿á¡áσ.  ôú½δ ó úαáñπßáσ íδóáεΓ 
  432.                    «Γ 0 ñ« 360, πú½δ, óδαáªÑ¡¡δÑ ó αáñ¿á¡áσ, ¿¼Ñ-
  433.                    εΓ ñ¿á»«º«¡ «Γ 0 ñ« pi, »α¿τѼ 0 αáñ¿á¡  ¿º¼Ñ-
  434.                    α∩ÑΓß∩  óñ«½∞ »«½«ª¿Γѽ∞¡«⌐ «ß¿ ò ¿ ó«ºαáßΓáÑΓ 
  435.                    »α«Γ¿ó τáß«ó«⌐ ßΓαѽ¬¿. Æ.«. «Γα¿µáΓѽ∞¡á∩ «ß∞ 
  436.                    ô (90 úαáñπß«ó) αáó¡∩ÑΓß∩ pi/2 αáñ¿á¡á¼, «Γα¿-
  437.                    µáΓѽ∞¡á∩  «ß∞  ò (180 úαáñπß«ó)  αáó¡∩ÑΓß∩ pi 
  438.                    αáñ¿á¡á¼, á «Γα¿µáΓѽ∞¡á∩ «ß∞ ô (270 úαáñπß«ó) 
  439.                    αáó¡∩ÑΓß∩ 3pi/2 αáñ¿á¡.                       
  440.                       àß½¿  óá¼  πñ«í¡ÑÑ  αáí«ΓáΓ∞  ß  úαáñπßἿ, 
  441.                    αáñ¿á¡δ  ¼«ª¡«  »ÑαÑóÑßΓ¿  ó  úαáñπßδ  π¼¡«ª¿ó 
  442.                    º¡áτÑ¡¿Ñ   αáñ¿á¡δ   ¡á   57,2958.   ìá»α¿¼Ñα, 
  443.                    áα¬Γá¡úÑ¡ß 0,23456 αáó¡∩ÑΓß∩ 
  444.  
  445.                    ATN (.23456) αáñ¿á¡ = 0.230395 αáñ¿á¡ = 
  446.                    (0.230395 * 57.2958) úαáñπß«ó = 13.2 úαáñπßá 
  447.  
  448.                       ä½∩  »ÑαÑó«ñá úαáñπß«ó ó αáñ¿á¡δ ¡Ñ«íσ«ñ¿¼« 
  449.                    π¼¡«ª¿Γ∞ ¡á 0.0174533. ìá»α¿¼Ñα: 
  450.  
  451.                    14 úαáñπß«ó = (0.174533 * 14) αáñ¿á¡ = 0.24435 
  452.                    αáñ¿á¡ 
  453.  
  454.                       ùΓ«íδ ¡Ñ ºá»«¼¿¡áΓ∞ úα«¼«ºñ¬¿Ñ πß½«ó¿∩  »Ñ-
  455.                    αÑó«ñá úαáñπß«ó ó αáñ¿á¡δ, αѬ«¼Ñ¡ñπѼ  ºá»«¼-
  456.                    ¡¿Γ∞ ó«Γ φΓ«  ß««Γ¡«ΦÑ¡¿Ñ  2» αáñ¿á¡ = »«½¡«¼π  
  457.                    ¬απúπ,  αáó¡«¼π 360 úαáñπß«ó,  Γᬿ¼ «íαẫ¼ 1 
  458.                    αáñ¿á¡ = 180/pi úαáñπß«ó.  ê  ¡á«í«α«Γ, 1 úαá-
  459.                    ñπß = pi/180 αáñ¿á¡.  
  460.  
  461.                       ä½∩ ß»αáó¬¿, óѽ¿τ¿¡á τ¿ß½á pi ß Γ«τ¡«ßΓ∞ε 
  462.                   ñ« 16 º¡á¬«ó αáó¡á  3,141592653589793 
  463.  
  464.                       äá¡¡«Ñ º¡áτÑ¡¿Ñ ¼«ª¡« óδτ¿ß½¿Γ∞ »« óδαáªÑ¡¿ε
  465.                    pi# = 4 * ATN(I) 
  466.  
  467.                       ÅÑαÑó«ñ úαáñπß«ó ó αáñ¿á¡δ ¿ αáñ¿á¡δ ó úαá-
  468.                    ñπßδ ∩ó½∩ÑΓß∩ σ«α«Φ¿¼ »α¿¼Ñ¡Ñ¡¿Ñ¼ ñ½∩  «ñ¡«½¿-
  469.                    ¡Ñ⌐¡δσ Σπ¡¬µ¿⌐.  
  470.  
  471. æ¼.ΓᬪѠ          COS     SIN      TAN 
  472.  
  473. Åα¿¼Ñα             ' óδτ¿ß½¿ΓÑ º¡áτÑ¡¿Ñ pi ¿ß»«½∞ºπ∩ ATN 
  474.                    PI# = 4*ATN(I) 
  475.                    PRINT PI# 
  476. 
  477.                           Ä»ÑαáΓ«α BEEP 
  478. -----------------------------------------------------------------
  479. ¡á»¡áτÑ¡¿Ñ         BEEP  "ºó«¡«¬"
  480.  
  481. æ¿¡Γá¬ß¿ß          BEEP [count] 
  482.  
  483. 諼¼Ñ¡Γáα¿⌐        BEEP ó«ß»α«¿ºó«ñ¿Γ Γ«¡  ¡á 800 Hz τÑαѺ óßΓα«-
  484.                    Ñ¡¡«Ñ πßΓα«⌐ßΓó«  ºá  0,25  ßѬπ¡ñδ.  ìÑ«í∩ºá-
  485.                    Γѽ∞¡Σ⌐  τ¿ß½Ñ¡¡δ⌐ áαúπ¼Ñ¡Γ óδºδóáÑΓ ßτÑΓ BEEP 
  486.                    «»ÑαáΓ«α«ó.  
  487.  
  488.                       BEEP  ¿¼ÑÑΓ  Γᬫ⌐  ªÑ φΣΣѬΓ,  ¬á¬ ¿ óδó«ñ 
  489.                    ß¿¼ó«½á ºóπ¬«ó«⌐ ß¿ú¡á½¿ºáµ¿¿ASCII (¬«ñ 7)  ¡á 
  490.                    φ¬αá¡.    ìá»α¿¼Ñα,   PRINT   CHR$(7).   ü«½ÑÑ 
  491.                    ¼Ñ½«ñ¿τ¡δÑ   Γ«¡δ   ß«ºñáεΓß∩    »α¿    »«¼«Θ¿ 
  492.                    «»ÑαáΓ«α«ó SOUND ¿ PLAY.  
  493.  
  494. æ¼.ΓᬪѠ          PLAY        SOUND 
  495.  
  496. Åα¿¼Ñα             BEEP2   ' »α¿ó½Ñτ∞ ó¡¿¼á¡¿Ñ »«½∞º«óáΓѽ∩ 
  497. 
  498.                            öπ¡¬µ¿∩ BIN$ 
  499. -----------------------------------------------------------------
  500. ìạáτÑ¡¿Ñ         BIN$ ó«ºóαáΘáÑΓ ñó«¿τ¡δ⌐ ß¿¼ó«½∞¡δ⌐ φ¬ó¿óá½Ñ¡Γ
  501.                    τ¿ß½á. 
  502.  
  503. æ¿¡Γá¬ß¿ß          s$ = BIN$ (numeric expression) 
  504.  
  505. 諼¼Ñ¡Γáα¿⌐        τ¿ß½Ñ¡¡«Ñ óδαáªÑ¡¿Ñ ¡áσ«ñ¿Γß∩  ó  ñ¿á»áº«¡Ñ «Γ
  506.                    32.768 ñ« 65.535. ïεíá∩ ñα«í¡á∩ τáßΓ∞ «¬απú½∩-
  507.                    ÑΓß∩ ñ« Γ«ú«, ¬á¬ ß«ºñáÑΓß∩ ßΓ᫬á.  àß½¿ τ¿ß-
  508.                    ½Ñ¡¡«Ñ    óδαáªÑ¡¿Ñ    «Γα¿µáΓѽ∞¡«Ñ,     BIN$ 
  509.                    ó«ºóαáΘáÑΓ ñ«»«½¡¿Γѽ∞¡δ⌐ ¬«ñ τ¿ß½á.  
  510.  
  511. æ¼.ΓᬪѠ          HEX$        OCT$ 
  512.  
  513. Åα¿¼Ñα             ' ¥Γ«Γ »α¿¼Ñα ¿½½εßΓα¿απÑΓ ¬á¬ ñÑß∩Γ¿τ¡δÑ,Γᬠ
  514.                    ' ¿ ñó«¿τ¡δÑ º¡áτÑ¡¿∩ «Γ -5 ñ« 5. 
  515.  
  516.                    FOR I% = -5 to 5       ' «Γ -5 ñ« 5 
  517.                    ' »«¬áºδóáÑΓ ñÑß∩Γ¿τ¡δÑ ¿ ñó«¿τ¡δÑ º¡áτÑ¡¿∩ I&
  518.                    PRINT USING "The binary equivalant of -## =&"; 
  519.                                 I%,BIN$(1%) 
  520.                    NEXT I% 
  521.  
  522.                    END       ' ºá¬«¡τ¿Γ∞ »α«úαá¼¼π 
  523. 
  524.                           Ä»ÑαáΓ«α BLOAD 
  525. -----------------------------------------------------------------
  526. ìạáτÑ¡¿Ñ         BLOAD ºáúαπªáÑΓ Σá⌐½ BSAVEd ó »á¼∩Γ∞. 
  527.  
  528. æ¿¡Γá¬ß¿ß          BLOAD filespec[,address] 
  529.  
  530. 諼¼Ñ¡Γáα¿⌐        filespec ÑßΓ∞ ß¿¼áó«½∞¡«Ñ óδαáªÑ¡¿Ñ, «»αÑñѽ∩-
  531.                    εΘÑÑ Σá⌐½ ñ½∩ ºáúαπº¬¿,  «¡« ñ«½ª¡«  ß½Ññ«óáΓ∞ 
  532.                    ßΓá¡ñáαΓ¡δ¼  πß½«ó¡δ¼  «í«º¡áτÑ¡¿∩¼ »α¿ßó«Ñ¡¿∩ 
  533.                    ¿¼Ñ¡¿ DOS,  Σá¬π½∞ΓáΓ¿ó¡« ó¬½ετá∩ ß»Ñµ¿Σ¿¬áΓ«α 
  534.                    ¡á¬«»¿Γѽ∩  ¿/¿½¿ ¼áαΦαπΓ address »αÑñßΓáó½∩ÑΓ 
  535.                    ß«í«⌐ ¡Ñ«í∩ºáΓѽ∞¡«Ñ τ¿ß½Ñ¡¡«Ñ óδαáªÑ¡¿Ñ «Γ  0 
  536.                    ñ«  65,535  ß π¬áºá¡¿Ñ¼ úñÑ ó ΓѬπΘѼ ßÑú¼Ñ¡ΓÑ 
  537.                    ñ«½ªÑ¡ ºáúαπªáΓ∞ß∩ Σá⌐½.  é  ß½πτáÑ  «»πΘÑ¡¿∩, 
  538.                    BLOAD  »«¼ÑΘáÑΓ  Σá⌐½ ¡á áñαÑß,  ß ¬«Γ«α«ú« «¡ 
  539.                    íδ½ »Ñαó«¡áτá½∞¡« BSAVEd.  
  540.                       àß½¿ ñáÑΓß∩ áñαÑß, «¡ ºá¼Ñ¡∩ÑΓ áñαÑß¡πε ¿¡-
  541.                    Σ«α¼áµ¿ε,  ºá»¿ßá¡¡πε ó Σá⌐½áσ,  »α«¿ºóÑñÑ¡¡δσ 
  542.                    «»ÑαáΓ«α«¼  BSAVE.  ôτ¿Γδóá∩ Γ«Γ Σá¬Γ,  τΓ« ¡á 
  543.                    áñαÑßÑ BLOAD ¡Ñ »α«¿ßσ«ñ¿Γ ¡¿¬á¬«⌐ »α«óÑન,  
  544.                    ó»«½¡Ñ ó«º¼«ª¡« ºáúαπº¿Γ∞ Σá⌐½ ßóÑασ DOS ¿/¿½¿   
  545.                    óáΦÑ⌐ »α«úαá¼¼δ ¿ αáºαπΦ¿Γ∞ ß¿ßΓѼπ.  
  546.  
  547. Äúαá¡¿τÑ¡¿∩        BLOAD  ¡Ñ  íπñÑΓ ºáúαπªáΓ∞ ¡Ñ»«ßαÑñßΓóÑ¡¡« »á-
  548.                    ¼∩Γ∞ EGA. 
  549.  
  550. æ¼.ΓᬪѠ          BSAVE       DEF SEG 
  551.  
  552. Åα¿¼Ñα             REM LoadGraphicsScreen
  553.                    DEF SEG &HB800 
  554.                    BLOAD "Pictcre",0 
  555. 
  556.                           Ä»ÑαáΓ«α BSAVE 
  557. -----------------------------------------------------------------
  558. ìạáτÑ¡¿Ñ         BSAVE ºá»¿ßδóáÑΓ ñ¿á»áº«¡ »á¼∩Γ¿ ¡á ñ¿ß¬Ñ. 
  559.  
  560. æ¿¡Γá¬ß¿ß          BSAVE filespec,address,length 
  561.  
  562. 諼¼Ñ¡Γáα¿⌐        filespec ÑßΓ∞  ß¿¼ó«½∞¡«Ñ óδαáªÑ¡¿Ñ, «»αÑñѽ∩-
  563.                    εΘÑÑ Σá⌐½,  ó  ¬«Γ«αδ⌐  ñ«½ª¡δ  íδΓ∞  ºá¡ÑßÑ¡δ 
  564.                    ñá¡¡δÑ.  filespec ñ«½ªÑ¡ ß«í½εñáΓ∞ ßΓá¡ñáαΓ¡δÑ 
  565.                    πß½«ó¡δÑ  «í«º¡áτÑ¡¿∩ »α¿ßó«Ñ¡¿∩ ¿¼Ñ¡¿ DOS,  ¿ 
  566.                    ¼«ªÑΓ Σá¬π½∞ΓáΓ¿ó¡« ó¬½ετáΓ∞ ß»Ñµ¿Σ¿¬áΓ«α  ¡á-
  567.                    ¬«»¿Γѽ∩  ¿/¿½¿  ¿¡Σ«α¼áµ¿ε « ¼áαΦαπΓÑ.  ÇñαÑß 
  568.                    ÑßΓ∞ τ¿ß½Ñ¡¡«Ñ óδαáªÑ¡¿Ñ ß ñ¿á»áº«¡«¼ «Γ 0  ñ« 
  569.                    65,535  ¿ π¬áºδóáÑΓ ¡á «ΣΣßÑΓ¡πε τáßΓ∞ áñαÑßá, 
  570.                    ß ¬«Γ«α«⌐ íπñÑΓ ºá»¿ßá¡ filespec  (ß¼.«»ÑαáΓ«α 
  571.                    DEF  SEG),  ñ½¿¡á  ÑßΓ∞ τ¿ß½« íá⌐Γ«ó,  ¬«Γ«αδÑ 
  572.                    ñ«½ª¡δ íδΓ∞ ºá»¿ßá¡δ, «Γ 0 ñ« 65,535.  
  573.  
  574.                    BSAVE ß«σαá¡∩ÑΓ «íΩѼ »á¼∩Γ¿ ¡á ñ¿ß¬Ñ (ó  ñÑ⌐-
  575.                    ßΓó¿Γѽ∞¡«ßΓ¿ ºá»¿ßδóáÑΓ µ¿Σα«ó«⌐ ¼«¼Ñ¡Γá½∞¡δ⌐ 
  576.                    ß¡¿¼«¬   π¬áºá¡¡«ú«  «íΩѼᠠ»á¼∩Γ¿  ó«  óαѼ∩ 
  577.                    BSAVE). öá⌐½δ, ß«ºñá¡¡δÑ ß »«¼«Θ∞ε BSAVE ¼«úπΓ 
  578.                    ºáΓѼ »ÑαѺáúαπªáΓ∞ß∩ ß  ¬«¼á¡ñ«⌐  BLOAD;  Σá-
  579.                    ¬π½∞ΓáΓ¿ó¡«  Σá⌐½δ  ¼«úπΓ  íδΓ∞  ºáúαπªÑ¡δ  »« 
  580.                    ñαπú«¼π áñαÑßπ, τѼ ß ß½πτáÑ BSAVE.  
  581.  
  582.                       BSAVE ¿ BLOAD τáßΓ« ¿ß»«½∞ºπεΓß∩ ñ½∩ ºá»¿ß¿ 
  583.                    ¿ ºáúαπº¬¿ φ¬αá¡¡δσ «íαẫó »α¿ »«¼«Θ¿  ¡Ñ»«ß-
  584.                    αÑñßΓóÑ¡¡«  ßτ¿Γδóá¡¿∩  ¿ ºá»¿ßδóá¡¿∩ ó »á¼∩Γ∞ 
  585.                    ñ¿ß»½Ñ∩.  üπΣÑαá ñ¿ß»½Ñ∩ î«¡«σα«¼¡«ú« Çñá»ΓÑαá 
  586.                    ä¿ß»½Ñ∩  ó¼ÑΘáÑΓ  4,000 íá⌐Γ«ó ¿ ¡áτ¿¡áÑΓß∩ ¡á 
  587.                    «ΣΣßÑΓÑ 0 ó ßÑú¼Ñ¡ΓÑ HB000.  üπΣÑα ñ¿ß»½Ñ∩ CGA 
  588.                    ó¼ÑΘáÑΓ  4,000  íá⌐Γ«ó ó αѪ¿¼Ñ ΓѬßΓá (SCREEN 
  589.                    0)  ¿  16,384  íá⌐Γá  ó   úαáΣ¿τÑ߬«¼   αѪ¿¼Ñ 
  590.                    ßαÑñ¡Ñú« ¿ óδß«¬«ú« αáºαÑΦÑ¡¿∩; «íá ¡áτá¡áεΓß∩ 
  591.                    ß 0 ó ßÑú¼Ñ¡ΓÑ &HB800.  
  592.  
  593. Äúαá¡¿τÑ¡¿∩        ÅÑαÑñ óδ»«½¡Ñ¡¿Ñ¼ «»ÑαáΓ«αá  BSAVE,  »α«úαá¼¼á
  594.                    ñ«½ª¡á φ¬ß»½¿µ¿Γ¡« πßΓá¡«ó¿Γ∞ ßÑú¼Ñ¡Γ, ¬«Γ«αδ⌐ 
  595.                    íπñÑΓ ºá»¿ßá¡ ¡á ñ¿ß¬Ñ ß ¿ß»«½∞º«ó᡿Ѽ «»Ñαá-
  596.                    Γ«αá DEF SEG.  
  597.  
  598. æ¼.ΓᬪѠ          BLOAD       DEF SEG 
  599.  
  600. Åα¿¼Ñα             'BSAVE ºá»«½¡∩ÑΓ φ¬αá¡ ß¿¼ó«½á¼¿ Ç ¿ ºá»¿ßδóá-
  601.                     ÑΓ ¡á ñ¿ß¬Ñ 
  602.  
  603.                    FOR I% = 1 to 2000 
  604.                    PRINT "A"; ' ºá»«½¡∩ÑΓ φ¬αá¡ ß¿¼ó«½á¼¿ Ç 
  605.                    NEXT I% 
  606.  
  607.                    ' «»αÑñѽ¿Γ∞ ßÑú¼Ñ¡Γ ñ½∩ BSAVE 
  608.                    DEF SEG = &HB000 
  609.  
  610.                    ' ºá»¿ßδóáÑΓ ¼«¡«σα«¼¡δ⌐ ó¿ñÑ« ram 
  611.                    BSAVE "TEXT".PIC",0,4000 
  612.                    ' ¬«½¿τÑßΓó« º¡á¬«ó, π¼¡«ªÑ¡¡δÑ ¡á ñóá 
  613.                    ' ¿º-ºá áΓα¿íπΓ«ó 
  614.  
  615.                    END   ' ºá¬«¡τ¿Γ∞ »α«úαá¼¼π 
  616. 
  617.                           Ä»ÑαáΓ«αá CALL 
  618. ------------------------------------------------------------------
  619. ìạáτÑ¡¿Ñ         CALL óδºδóáÑΓ »α«µÑñπαπ(»«ñ»α«úαá¼¼π) 
  620.  
  621. æ¿¡Γá¬ß¿ß          CALL procname [(ß»¿ß«¬ »áαá¼ÑΓα«ó)] 
  622.  
  623. 諼¼Ñ¡Γáα¿⌐        procname  »αÑñßΓáó½∩ÑΓ  ß«í«⌐  ¿¼∩  »α«µÑñπαδ,
  624.                    «»αÑñѽѡ¡«⌐ úñÑ-½¿í« ó  »α«úαἼѠ ß  »«¼«Θ∞ε 
  625.                    «»ÑαáΓ«αá SUB. æ»¿ß«¬ »áαá¼ÑΓα«ó ∩ó½∩ÑΓß∩ ¡Ñ«-
  626.                    í∩ºáΓѽ∞¡δ¼, ß «Γñѽ∞¡δ¼ ºá¡∩Γδ¼ ß»¿ß¬«¼ »ÑαÑ-
  627.                    ¼Ñ¡¡δσ,   óδαáªÑ¡¿⌐,   ¿/¿½¿  ¬«¡ßΓá¡Γ,¬«Γ«αδÑ 
  628.                    ñ«½ª¡δ íδΓ∞ »ÑαÑóÑñÑ¡δ ó ¿¼∩ »α«µÑñπαδ.  
  629.                       æπΘÑßΓóπÑΓ  3  Γ¿»á  »α«µÑñπα  SUB:  STATIC 
  630.                    (ßΓáΓ¿τÑ߬¿Ñ),  ßΓá¡ñáαΓ¡δÑ »α«µÑñπαδ ¿ INLINE 
  631.                    (óßΓα«Ñ¡¡δÑ).  éßÑ,  «  τѼ  ºñÑß∞  ú«ó«α¿Γß∩, 
  632.                    «Γ¡«ß¿Γß∩  ¬« óßѼ 3 Γ¿»á¼;  «ñ¡á¬«,  Γ«,  ¬á¬ 
  633.                    ¬«¼»¿½∩Γ«α íπñÑΓ αáí«ΓáΓ∞ ß« ß»¿ß¬«¼  »áαá¼ÑΓ-
  634.                    α«ó, ºáó¿ß¿Γ «Γ Γ¿»á »α«µÑñπαδ SUB.  
  635.                       è«½¿τÑßΓó«   ¿   Γ¿»  »α«σ«ñ¡δσ  áαúπ¼Ñ¡Γ«ó 
  636.                    ñ«½ª¡δ  ß««ΓóÑΓßΓó«óáΓ∞  ó»¿ß¬π  »áαá¼ÑΓα«ó  ó 
  637.                    «»αÑñѽѡ¿¿ ¿¼Ñ¡¿ »α«µÑñπαδ;  ¿¡áτÑ »α«¿º«⌐ñÑΓ 
  638.                    «Φ¿í¬á Parameter Mismatch óαѼѡ¿ ¬«¼»¿½∩µ¿¿.  
  639.                       àß½¿  »α«µÑñπαá  SUB  ∩ó½∩ÑΓß∩   »α«µÑñπα«⌐ 
  640.                    INLINE,  τ¿ß½«  áαúπ¼Ñ¡Γ«ó  óáα∞¿απÑΓß∩  ¿  ¡Ñ 
  641.                    »α«¿ßσ«ñ¿Γ  »α«óÑα¬á   Γ¿»«ó   »áαá¼ÑΓα«ó.   é 
  642.                    ¬«¼»ÑΓÑ¡µ¿ε »α«µÑñπαδ SUB INLINE óσ«ñ¿Γ º¡á¡¿Ñ 
  643.                    ¿  «»αÑñѽѡ¿Ñ  ¬«½¿τÑßΓóá ¿ Γ¿»«ó »áαá¼ÑΓα«ó, 
  644.                    ¬«Γ«αδÑ ó ¡ÑÑ  »ÑαÑσ«ñ∩Γ  (í«½ÑÑ  »«ñα«í¡«  «í 
  645.                    φΓ«¼  ß¼.   Åα¿½«ªÑ¡¿Ñ  C,   "ê¡ΓÑαΣÑ⌐ß  ∩ºδ¬á 
  646.                    áßßѼí½Ñαá").  
  647.                       è«úñá áαúπ¼Ñ¡Γδ »α«µÑñπαδ »α«σ«ñ∩Γ ßßδ½¬á¼¿ 
  648.                    (Γ.Ñ.  »ÑαѼѡ¡δ¼¿), «¡¿ ¼«úπΓ ¿º¼Ñ¡∩Γ∞ß∩ óδº-
  649.                    óá¡¡δ¼¿ »α«µÑñπαἿ. è«úñá »ÑαѼѡ¡á∩ ºá¬½ετá-
  650.                    ß∩ ó ¬απú½δѠ߬«í¬¿,  «¡á »α«σ«ñ¿Γ »« º¡áτÑ¡¿ε 
  651.                    ¿  «α¿ú¿¡á½∞¡«Ñ   º¡áτÑ¡¿Ñ   ¡Ñ   ¼«ªÑΓ   íδΓ∞ 
  652.                    ¿º¼Ñ¡Ñ¡«.  ÄíαáΓ¿ΓѠ󡿼᡿Ñ,  τΓ« óδαáªÑ¡¿∩ ¿ 
  653.                    »«ßΓ«∩¡¡δÑ óßÑúñá »α«σ«ñ∩Γ »« º¡áτÑ¡¿ε.  
  654.                      Çαúπ¼Ñ¡Γδ  ¼áßß¿ó«ó «»αÑñѽ∩εΓß∩ ß ¿ß»«½∞º«-
  655.                    ó᡿Ѽ  »πßΓδσ  ß¬«í«¬  »«ß½Ñ  ¿¼Ñ¡¿  ¼áßß¿óá. 
  656.                    îáßß¿óδ  óßÑúñá  »α«σ«ñ∩Γ  »«ßαÑñßΓó«¼ ßß佬¿. 
  657.                    ìá»α¿¼Ñα: 
  658.  
  659.                    CALL SumArray (a())  ' »ÑαÑóÑßΓ¿ ¼áßß¿ó a ¡á 
  660.                                         ' SumArray 
  661.                    CALL SumArray (a(3)) ' »ÑαÑóÑßΓ¿ φ½Ñ¼Ñ¡Γδ 3 á 
  662.                                         ' ¡á SumArray 
  663.  
  664. æ¼.ΓᬪѠ          $INLINE             SUB 
  665.  
  666. Åα¿¼Ñα             DIM Array (1)  ' «íΩ∩ó¿Γ∞ ¼áßß¿ó 2 τ¿ßѽ 
  667.  
  668.                    SUB Test Procedure (I%,S!,D#,E,A(1)) 
  669.  
  670.                    ' φΓá »α«µÑñπαá »α«ßΓ« óδó«ñ¿Γ º¡áτÑ¡¿∩ 
  671.                    ' ¬áªñ«ú« »áαá¼ÑΓαá, »ÑαÑóÑñÑ¡¡«ú« ¬ ¡Ñ⌐ 
  672.                    PRINT I%;L&;S!;D#;E;A(0) 
  673.                    END SUB  ' ºá¬«¡τ¿Γ∞ »α«µÑñπαπ TestProcedure
  674.                    INTEGER = 1 
  675.                    LongInt& = 2 
  676.                    SinglePre! = 3 
  677.                    DoublePre# = 4 
  678.                    Array(0) = 5 
  679.  
  680.         CALL TestProcedure(Integer%, Logint%, SinglePre!,-
  681.                            DoublePre#, Integer%2, Array()) 
  682.  
  683.                    END     ' ºá¬«¡τ¿Γ∞ »α«úαá¼¼π 
  684. 
  685.                       Ä»ÑαáΓ«α CALL ABSOLUTE 
  686. -----------------------------------------------------------------
  687. ìạáτÑ¡¿Ñ         CALL ABSOLUTE óδºδóáÑΓ »α«úαá¼¼π ∩ºδ¬á áßßѼí-
  688.                    ½Ñαá. 
  689.  
  690. æ¿¡Γá¬ß¿ß          CALL ABSOLUTE address (parametr  list) 
  691.                                  áñαÑß   (ß»¿ß«¬ »áαá¼ÑΓα«ó)
  692.  
  693. 諼¼Ñ¡Γáα¿⌐        áñαÑß ∩ó½∩ÑΓß∩ τ¿ß½Ñ¡¡δ¼  ß¬á½∩α«¼, ß«ñÑαªáΘ¿¼
  694.                    ¡áτá½∞¡δ¼ ¡«¼Ñα óδºδóáѼ«⌐ ó¡ÑΦ¡Ñ⌐  »α«úαá¼¼δ.  
  695.                    æÑú¼Ñ¡Γ     «»αÑñѽ∩ÑΓß∩    ßá¼δ¼    »«ß½Ññ¡¿¼ 
  696.                    «»ÑαáΓ«α«¼ DEF SEG.  áñαÑß ñ«½ªÑ¡ ¡áσ«ñ¿Γß∩  ó 
  697.                    ñ¿á»áº«¡Ñ  «Γ 32,768 ñ« 65,535.  ÄΓα¿µáΓѽ∞¡δÑ 
  698.                    º¡áτÑ¡¿∩  íπñπΓ  »ÑαÑóÑñÑ¡δ   ¬«¼»¿½∩Γ«α«¼   ó 
  699.                    »«½«ª¿Γѽ∞¡δÑ.  
  700.                       ö«α¼á ß»¿ß¬á »áαá¼ÑΓα«ó  »«ññÑনóáÑΓ  ß«ó-
  701.                    ¼ÑßΓ¿¼«ßΓ∞  ß ê¡ΓÑα»αÑΓáΓ«α«¼ üàëæêè »ÑαÑó«ñ«¼ 
  702.                    ¬«α«Γ¬¿σ µÑ½δσ »áαá¼ÑΓα«ó ¡á ßΓѬ.  ¥Γá  Σ«α¼á 
  703.                    »«ºó«½∩ÑΓ  »ÑαÑσ«ñ¿Γ∞  Γ«½∞¬« µÑ½δ¼ »áαá¼ÑΓαá¼ 
  704.                    (ß¼.  Åα¿½«ªÑ¡¿Ñ æ, "ê¡ΓÑαΣÑ⌐ß ∩ºδ¬á áßßѼí½Ñ-
  705.                    αá").  
  706.                        üπΣÑα  αÑú¿ßΓαá ºáúαπªáÑΓß∩ ó αÑú¿ßΓαδ »α«-
  707.                    µÑßß«αá ¡Ñ»«ßαÑñßΓóÑ¡¡«  »ÑαÑñ  CALL  ABSOLUTE 
  708.                    ¿½¿  CALL INTERRUPT ¿ ºá»¿ßδóáÑΓß∩ ßαáºπ »«ß½Ñ 
  709.                    ó«ºóαáΓá.  é  ½εí«⌐  ¼«¼Ñ¡Γ  óαѼѡ¿ íπΣÑα ß«- 
  710.                    ñÑαª¿Γ »α«µÑßß«α ó  »«½«ªÑ¡¿¿,  ó  ¬«Γ«α«¼  «¡ 
  711.                    ¡áσ«ñ¿½ß∩  ó« óαѼ∩ óδ»«½¡Ñ¡¿∩ ßἫ⌐ »«ß½Ññ¡Ñ⌐ 
  712.                    »« óαѼѡ¿ ó¡ÑΦ¡Ñ⌐ »«ñ»α«úαá¼¼δ.  
  713.                       ô íπΣÑαá αÑú¿ßΓαá óδí«α¬π «ßπΘÑΓßó½∩ÑΓ «»Ñ-
  714.                    αáΓ«α  REG ¿ Σπ¡¬µ¿∩,  ¬«Γ«αá∩ ¿ß»«½∞ºπÑΓ τ¿ß- 
  715.                    ½Ñ¡¡δ⌐  áαúπ¼Ñ¡Γ  ñ½∩  «íαáΘÑ¡¿∩  ¬   ß««ΓóÑΓ- 
  716.                    ßΓóπεΘѼπ αÑú¿ßΓαπ, ¬á¬ »«¬áºá¡« ó Γáí½¿µÑ: 
  717.  
  718.                    ------------------------------------- 
  719.                    Çαúπ¼Ñ¡Γ αÑú¿ßΓαá             ÉÑú¿ßΓα 
  720.                    ------------------------------------- 
  721.                    0                             ö½áú¿ 
  722.                    1                             AX 
  723.                    2                             BX 
  724.                    3                             CX 
  725.                    4                             DX 
  726.                    5                             SI 
  727.                    6                             DI 
  728.                    7                             BP 
  729.                    8                             DS 
  730.                    9                             ES 
  731.                    ------------------------------------- 
  732.  
  733.                    REG  ó  ¬áτÑßΓóÑ  «»ÑαáΓ«αá ºáúαπªáÑΓ «Γ«íαá¡- 
  734.                    ¡δ⌐ φ½Ñ¼Ñ¡Γ íπΣÑαá αÑú¿ßΓαá ß π¬áºá¡¡δ¼  µÑ½δ¼ 
  735.                    º¡áτÑ¡¿Ñ¼: 
  736.  
  737.                    REG2,&H1000  ' ºáúαπº¿Γ∞ 1000H ó BX íπΣÑαá αÑ- 
  738.                                 ' ú¿ßΓαá 
  739.  
  740.                    REG  ó  ¬áτÑßΓóÑ  Σπ¡¬µ¿¿  ó«ºóαáΘáÑΓ º¡áτÑ¡¿∩ 
  741.                    «Γ«íαá¡¡«ú« φ½Ñ¼Ñ¡Γá ó íπΣÑαÑ αÑú¿ßΓαá: 
  742.  
  743.                    PRINT REG(2) ' »ÑτáΓáΓ∞ φ¡áτÑ¡¿∩ ó BX íπΣÑαá ' 
  744.                                 αÑú¿ßΓαá 
  745.  
  746.                       Åα«úαá¼¼¿ßΓ ¡ÑßÑΓ «ΓóÑΓßΓóÑ¡¡«ßΓ∞ ºá ß«σαá-
  747.                    ¡Ñ¡¿Ñ αÑú¿ßΓα«ó æÑú¼Ñ¡Γá äá¡¡δσ  (DS),  ô¬áºá- 
  748.                    Γѽ∩   üáºδ   (BP),   æÑú¼Ñ¡Γá  æΓѬᠠ(SS)  ¿ 
  749.                    ô¬áºáΓѽ∞ æΓѬá (SP).  
  750.  
  751. æ¼.ΓᬪѠ          CALL INTERRUPT    DEF SEG    REG 
  752. 
  753. Åα¿¼Ñα             DEFINT a-z 
  754.                    DIM a(100) 
  755.                    DIM FillRoutine(10) 
  756.  
  757.                    FillRoutine (0) = &HF2FC 
  758.                    FillRoutine (1) = &HCBAA 
  759.  
  760.                    REG 1, -1 
  761.                    REG 3, 101 * 2 
  762.                    REG 9, VARSEG(a(0)) 
  763.                    REG 6, VARPTR(a(0)) 
  764.  
  765.                    DEF SEG = VARSEG(FillRoutine(0)) 
  766.                    PRINT a(1) 
  767.                    WHILE NOT INSTAT : WEND 
  768.                    FillAdr = VARPTR(FillRoutine(0)) 
  769.                    CALL ABSOLUTE FillWdr '(REG) 
  770.  
  771.                    PRINT a(1) 
  772.                    END 
  773. 
  774.                      Ä»ÑαáΓ«α CALL INTERRUPT
  775. -----------------------------------------------------------------
  776. ìạáτÑ¡¿Ñ  CALL INTERRUPT «ßπΘÑßΓó½∩ÑΓ ß¿ßΓѼ¡«Ñ »αÑαδóá¡¿Ñ
  777.  
  778. æ¿¡Γá¬ß¿ß   CALL INTERRUPT n
  779.  
  780. 諼¼Ñ¡Γáα¿⌐ 
  781.             n - φΓ« µÑ½«τ¿ß½Ñ¡¡«Ñ óδαáªÑ¡¿Ñ, »αÑñßΓáó½∩εΘÑÑ óδºδ-
  782.             óáѼ«Ñ »αÑαδóá¡¿Ñ «Γ 0 ñ« 255.  ìÑ»«ßαÑñßΓóÑ¡¡« »ÑαÑñ 
  783.             ΓѼ,  ¬á¬ «íαáí«Γτ¿¬  »αÑαδóá¡¿⌐  »«½πτáÑΓ  ¬«¡Γα«½∞, 
  784.             αÑú¿ßΓαδ  »α«µÑßß«αá  ºáúαπªáεΓß∩ º¡áτÑ¡¿∩¼¿ ó íπΣÑαÑ 
  785.             ¼áΦ¿¡¡«ú«  αÑú¿ßΓαá.   è«úñá  «íαáí«Γτ¿¬   »αÑαδóá¡¿∩ 
  786.             ó«ºóαáΘáÑΓß∩,  íπΣÑα  íÑαÑΓß∩ ºá º¡áτÑ¡¿∩ ó αÑú¿ßΓαáσ 
  787.             »α«µÑßß«αá.  é  ½εí«Ñ  ñá¡¡«Ñ  óαѼ∩  íπΣÑα  ß«ñÑαª¿Γ 
  788.             ß«ßΓ«∩¡¿Ñ  αÑú¿ßΓα«ó  »α«µÑßß«αá ¡á ¼«¼Ñ¡Γ ºáóÑαΦÑ¡¿∩ 
  789.             ßἫú« »«ß½Ññ¡Ñú« ó¡ÑΦ¡Ñú« ó맮óá ¿½¿ «»ÑαáΓ«αá REG.  
  790.                ÆÑσ¡¿τÑ߬«Ñ απ¬«ó«ñßΓó« DOS ß«ñÑαª¿Γ »«½¡πε ¿¡Σ«α-
  791.             ¼áµ¿ε »« ¼¡«ú¿¼ Σπ¡¬µ¿∩¼,  ñ«ßΓπ»¡δ¼  τÑαѺ  ¼Ñσá¡¿º¼ 
  792.             CALL  INTERRUPT.  Åα«úαá¼¼¿ßΓ  «ΓóÑτáÑΓ ºá ß«σαá¡Ñ¡¿Ñ 
  793.             αÑú¿ßΓα«ó ßÑú¼Ñ¡Γá ßΓѬá (SS) ¿ π¬áºáΓѽ∩ ßΓѬá (SP).  
  794.  
  795. Äúαá¡¿τÑ¡¿∩
  796.             ÅÑαÑñ óδ»«½¡Ñ¡¿Ñ¼ «»ÑαáΓ«αá CALL INTERRUPT ß««ΓóÑΓ-
  797.             ßΓóπεΘ¿Ñ αÑú¿ßΓαδ CPU ñ«½ª¡δ íδΓ∞ óδíαá¡δ ¿º »á¼∩Γ¿ 
  798.             τÑαѺ Σπ¡¬µ¿ε REG.  
  799.                  Å«ß½Ñ óδ»«½¡Ñ¡¿∩ CALL INTERRUPT º¡áτÑ¡¿∩ αÑú¿-
  800.             ßΓα«ó ñ«ßΓ¿úáεΓß∩ ß ¿ß»«½∞º«óá¡¿Ñ Σπ¡¬µ¿¿ REG
  801.  
  802. æ¼. ΓᬪѠ  CALL ABSOLUTE    REG         
  803.  
  804. Åα¿¼Ñα      'CALL  INTERRUPT óδ»«½¡∩ÑΓ ßΓá¡ñáαΓ¡«Ñ DOS »αÑαδóá¡¿Ñ
  805.  
  806.             $INCLUDE "REGNMES.INC"
  807.             REG %AX, &H0200
  808.             ' AH=02 Hex DOS ßΓá¡ñáαΓ¡á∩ Σπ¡¬µ¿∩ óδó«ñá ß¿¼ó«½á
  809.  
  810.             REG %DX, REG(%DX)AND &HFF02
  811.             ' DL=02 Hex DH «ßΓáÑΓß∩ »αѪ¡¿¼
  812.             ' DL:=  ß¿¼ó«½, »αÑñ¡áº¡áτÑ¡¡δ⌐ ñ½∩ óδó«ñá
  813.  
  814.             CALL  INTERRUPT &H21   'ó맮ó »αÑαδóá¡¿∩ 21                     
  815.   
  816.                      öπ¡¬µ¿∩ CDBL
  817. ----------------------------------------------------------------- 
  818. ìạáτÑ¡¿Ñ   CDBL »αÑ«íαẫóδóáÑΓ τ¿ß½« ó Σ«α¼áΓ πñó«Ñ¡¡«⌐
  819.              Γ«τ¡«ßΓ¿.
  820.  
  821. æ¿¡Γá¬ß¿ß    Y= COBL (τ¿ß½Ñ¡¡«Ñ óδαáªÑ¡¿Ñ)
  822.  
  823. 諼¼Ñ¡Γáα¿⌐  CDBL »αÑ«íαáºπÑΓ τ¿ß½Ñ¡¡πε »ÑαѼѡ¡πε ¿½¿  óδαáªÑ¡¿Ñ 
  824.              ó Σ«α¼π πñó«Ñ¡¡«⌐ Γ«τ¡«ßΓ¿.  
  825.                 ä½∩  πßΓαá¡Ñ¡¿∩ ó«º¼«ª¡«ßΓ¿ ¿ºíδΓ¬á µÑ½δσ τ¿ßѽ ó 
  826.              óδαáªÑ¡¿∩σ ß µÑ½«τ¿ß½Ñ¡¡δ¼¿ ¿ ß «»Ñαá¡ñἿ ß »½áóáε-
  827.              ΘÑ⌐ ºá»∩Γ«⌐ ¿ß»«½∞ºπ⌐ΓÑ «»ÑαáΓ«α CDBL. ìá»α¿¼Ñα: 
  828.              Y = (2% + x%) /# 
  829.                 ÉѺπ½∞ΓáΓ«¼ ñá¡¡«ú« óδαáªÑ¡¿∩ íπñÑΓ ¿ºíδΓ«¬, Ñß½¿ 
  830.              (2% + X%) íπñÑΓ í«½∞ΦÑ 32.767.  é«  ¿ºíѪ᡿ѠφΓ«ú«,
  831.              ¿ß»«½∞ºπ⌐ΓÑ «»ÑαáΓ«α CDBL ñ½∩  »αÑ«íαẫóá¡¿∩  «ñ¡«⌐ 
  832.              ¿º  µÑ½«τ¿ß½Ñ¡¡δσ  »ÑαѼѡ¡δσ  ó  Σ«α¼π  ß πñó«Ñ¡¡«⌐ 
  833.              Γ«τ¡«ßΓ∞ε.  ¥Γ« ñáÑΓ ¡á¼ «µÑ¡¬π  óßÑú«  óδαáªÑ¡¿∩  ß 
  834.              πñó«Ñ¡¡«⌐ Γ«τ¡«ßΓ∞ε.  
  835.  
  836.              Y# = (CDBL (2%) + X%))á#
  837.  
  838. Äúαá¡¿τÑ¡¿∩  
  839.             ä¿á»«º«¡  óδαáªÑ¡¿⌐,  »ÑαÑñáóáѼδσ CDBL ñ«½ªÑ¡ íδΓ∞ ó 
  840.             »αÑñѽáσ ñ«»π¬ßΓ¿¼«ú« ñ¿á»«º«¡á τ¿ß½á πñó«Ñ¡¡«⌐  Γ«τ-
  841.             ¡«ßΓ¿.  
  842.        
  843.              æ¼. ΓᬪѠ   CINT    CLNG    CSNG
  844.                 
  845. Åα¿¼Ñα       'CDBL ¿ß»«½∞ºπÑΓß∩ ñ½∩ »α«Σ¿½á¬Γ¿¬¿ «Φ¿í«¬ óδαáªÑ¡¿∩  
  846.              
  847.           X% = 2000           '«í∞∩ó¿Γ∞ µÑ½«τ¿ß½Ñ¡¡πε »ÑαѼѡ¡πε 
  848.           Y& = 2000           '»α¿ßó«¿Γ∞ Y% º¡áτÑ¡¿∩  σ%
  849.           # = CDBL (X%) = Y%  '»αÑñ«ΓóαáΓ¿Γ∞ »ÑαÑ»«½¡Ñ¡¿∩
  850.                               '»αÑ«íαẫó᡿Ѽ x%
  851.           PRINT  x%, Y%, Z#   '»«¬áºáΓ∞ º¡áτÑ¡¿∩ ΓαÑσ »ÑαѼѡ¡δσ
  852.              END
  853.  
  854.                           öπ¡¬µ¿∩  CEIL
  855. -----------------------------------------------------------------
  856. ìạáτÑ¡¿Ñ   öπ¡¬µ¿∩  CEIL  »αÑ«íαáºπÑΓ τ¿ß½Ñ¡¡πε »ÑαѼѡ¡πε
  857.              ¿½¿ óδαáªÑ¡¿Ñ ó µÑ½«Ñ τ¿ß½«, ó«ºóαáΘá∩ ¡á¿¼¡∞ΦÑÑ
  858.              µÑ½«Ñ τ¿ß½« í«½∞ΦÑÑ ¿½¿ αáó¡«Ñ Ñú« áαúπ¼Ñ¡Γπ.
  859.  
  860. æ¿¡Γá¬ß¿ß    Y = CEIL (τ¿ß½Ñ¡¡«Ñ óδαáªÑ¡¿Ñ)
  861.              öπ¡¬µ¿∩  CEIL  »α«Ñ«íαáºπÑΓ τ¿ß½Ñ¡¡πε »ÑαѼѡ¡πε
  862.              ¿½¿ óδαáªÑ¡¿Ñ ó µÑ½«Ñ τ¿ß½«, ó«ºóαáΘá∩  ¡á¿í«½∞ΦÑÑ
  863.              µÑ½«Ñ τ¿ß½« í«½∞ΦÑÑ ¿½¿ αáó¡«Ñ »« áαúπ¼Ñ¡Γπ.
  864.   
  865. Éẽ¿τ¿∩     é ê¡ΓÑα»αÑΓáΓ«αÑ üàëæêè Γᬫ⌐ Σπ¡¬µ¿¿ ¡ÑΓ.
  866.  
  867.              æ¼. ΓᬪѠ   CINT   FIX   INT
  868.  
  869. Åα¿¼Ñα       FOR I! = -2.5 to 2.5 STEP 0.5
  870.  
  871.              `»«¬áºáΓ∞ ¡á¿¼Ñ¡∞ΦÑÑ µÑ½«Ñ τ¿ß½« í«½∞ΦÑÑ ñ½∩
  872.              'ßÑα¿¿ º¡áτÑ¡¿⌐
  873.              PRINT the ceiling of ### is ###."; i!, CEIL (I!).
  874.              NEXT I!
  875.              END             `ºá¬«¡τ¿Γ∞ »α«úαá¼¼π
  876. 
  877.                           Ä»ÑαáΓ«α CHAIN
  878. -----------------------------------------------------------------
  879. ìạáτÑ¡¿Ñ   Ä»ÑαáΓ«α CHAIN óδºδóáÑΓ ¼«ñπ½∞ µÑ»«τ¬¿ Æü (ß«º-
  880.              ñáóáѼδ⌐ ¬á¬ Σá⌐½).
  881.  
  882. æ¿¡Γá¬ß¿ß   CHFIN filespec.
  883.  
  884. 諼¼Ñ¡Γáα¿⌐
  885.             filespec »αÑñßΓáó½∩ÑΓ ß¿¼ó«½∞¡«Ñ óδαáªÑ¡¿Ñ,  ó  ß««Γ-
  886.             óÑΓßΓó¿¿  ß« ßΓá¡ñáαΓ¡δ¼¿ πß½«ó¡δ¼¿ «í«º¡áτÑ¡¿∩¼¿ DOS 
  887.             ¿ »αÑñßΓáó½∩ÑΓ µÑ»«τ¡δ⌐ ¼«ñπ½∞ Æπαí« üÑ⌐ß¿¬á  (αáßΦ¿-
  888.             αÑ¡¿Ñ  Æéæ).  àß½¿ αáßΦ¿αÑ¡¿Ñ «»πΘÑ¡«,  »α¿ßóá¿óáÑΓß∩ 
  889.             Æéæ.  Å«φΓ«¼π,  Ñß½¿  óá¼  ¡Ñ«íσ«ñ¿¼« «»αÑñѽ¿Γ∞ Σá⌐½ 
  890.             .àòà, óδ ñ«½ª¡δ ¬ ¿¼Ñ¡¿ Σá⌐½á ñ«íáó¿Γ∞ .àòà. ÅÑαѼѡ-
  891.             ¡δÑ, »ÑαÑτ¿ß½Ñ¡¡δÑ ¬á¬ COMMON ó ΓѬπΘÑ⌐ »α«úαἼѠ¿ ó 
  892.             »α«úαἼѠ¡áº¡áτÑ¡¿∩,  »ÑαÑσ«ñ∩Γ ¬ »«ß½Ññ¡Ñ⌐.  é ΣáºÑ 
  893.             ΓÑßΓ¿α«óá¡¿∩,  óδºδóáεΘá∩ »α«úαá¼¼á ñ«½ª¡á ¬«¼»¿½¿α«-
  894.             óáΓ∞ß∩ ó Σá⌐½ .àòà,  Γ.¬.  ¡Ñ½∞º∩ ßµÑ»½∩Γ∞  »α«úαá¼¼δ 
  895.             ¿º¡πΓα¿ Æπαí« üÑ⌐ß¿¬á.  éδºδóáѼá∩  »α«úαἼᠠñ«½ª¡á 
  896.             ¬«¼»¿½¿α«óáΓ∞ß∩  ¡á  ñ¿ß¬  ¬á¬  µÑ»«τ¡δ⌐ ¼«ñπ½∞ (Σá⌐½ 
  897.             .àòà ¿½¿ .Æéæ).  
  898.                àß½¿ áαúπ¼Ñ¡Γδ ¬ «»ÑαáΓ«αá¼ COMMON ó óδºδóáεΘÑ⌐  ¿ 
  899.             óδºδóáѼ«⌐  »α«úαá¼¼áσ ¡Ñ ß«ó»áñáεΓ (¡á»α¿¼Ñα,  »ÑαÑ-
  900.             ¼Ñ¡¡δÑ ß »½áóáεΘÑ⌐ ºá»∩Γ«⌐ ó «ñ¡«¼ ¼ÑßΓÑ, á µÑ½δÑ τ¿-
  901.             ß½á ó ñαπú«¼), »α«¿ßσ«ñ¿Γ «Φ¿í¬á óδ»«½¡Ñ¡¿∩.  
  902.                Æπαí«  íÑ⌐ß¿¬  ¡Ñ »«ññÑনóáÑΓ óÑαß¿¿ CHAIN ¿¡ΓÑα-
  903.             »α¿ΓáΓ«αá üàëæêè,  «α¿Ñ¡Γ¿α«óá¡¡δÑ ¡á  ¡«¼Ñα  ßΓ᫬¿, 
  904.             ó¬½ετá∩  ¡«¼Ñα ßΓ᫬¿ CHAIN,  DElETE,  MERGE.  é ó¿ñπ 
  905.             ¡Ñ󫺼«ª¡«ßΓ¿ «»αÑñѽѡ¿∩ ¡«¼Ñαá  ßΓ᫬¿  ó  »αÑñѽáσ 
  906.             µÑ½«τ¿ß½Ñ¡¡«¡ú« ¼«ñπ½∩ ¡áº¡áτÑ¡¿∩,  óδ»«½¡Ñ¡¿Ñ óßÑúñá 
  907.             ¿ñÑΓ ß ¡áτá½á.  
  908.                Åα¿  Γαá¡ß½∩µ¿¿ ß¿ßΓѼδ CHAIN »α«úαá¼¼ ¿¡ΓÑα»α¿Γá-
  909.             Γ«αá üÑ⌐ß¿¬ ó Γπαí« üÑ⌐ß¿¬,  óδ «í¡áαπª¿ΓÑ  αáßΦ¿αÑ¡-
  910.             ¡«Ñ  ¿ß»«½∞º«óá¡¿Ñ  »á¼∩Γ¿  Æπαí« üÑ⌐ß¿¬á »«ºó«½∩εΘÑÑ 
  911.             «íΩÑñ¿¡¿Γ∞  «Γñѽ∞¡δÑ  ¼«ñπ½¿  ó  Ññ¿¡πε   »α«úαá¼¼π, 
  912.             ¡Ñ«íσ«ñ¿¼«ßΓ∞ ó ßµÑ»½Ñ¡¿¿ ¼«ñπ½Ñ⌐ «Γ»áñáÑΓ.  
  913.  
  914. Äúαá¡¿τÑ¡¿∩
  915.             æµÑ»½Ñ¡¿Ñ ¼«ª¡« «ßπΘÑßΓó¿Γ∞  Γ«½∞¬« »α¿ πß½«ó¿¿,  τΓ«
  916.             »α«úαá¼¼á óδ»«½¡∩ÑΓß∩ ß DOS Γ.Ñ. ß Σá⌐½á  .àòà MERGE,
  917.             DERLETE,  ALL ¿ CHAIN  (ߵѻ½Ñ¡¿Ñ) ¡á ¡«¼Ñα ßΓ᫬¿ ¡Ñ
  918.             »«ññÑনóáεΓß∩.
  919. Éẽ¿τ¿∩
  920.             é Æπαí« üÑ⌐ß¿¬Ñ «»Ñαᵿ∩ CHAIN «ßπΘÑßΓó½∩ÑΓß∩ ¿º  «ñ-
  921.             ¡«⌐ ¬«¼»¿½¿α«óá¡¡«⌐ »α«úαá¼¼δ ó ñαπúπε,  ¬«Γ«αá∩ íδ½á 
  922.             πªÑ ß¬«¼»¿½¿α«óá¡¡á ó Σá⌐½ .Æéæ ¿½¿ .àòà.  
  923.  
  924. æ¼. ΓᬪѠ  COMMON.
  925.  
  926. Åα¿¼Ñα      Éáßß¼«Γα¿¼ PROG1, ¬«Γ«αá∩ Σ«α¼¿απÑΓ µÑ»«τ¬π ó PROG2.
  927.  
  928.             PROG1.BAS
  929.            '«íΩ∩ó¿Γ∞ »ÑαѼѡ¡δÑ, ¬«Γ«αδÑ ñ«½ª¡δ íδΓ∞»ÑαÑóÑñÑ¡δ ó
  930.            '»α«úαá¼¼π ß« ßµÑ»½Ñ¡¡δ¼¿ ¼«ñπ½∩¼¿
  931.            `߬á½∩α¡δÑ »ÑαѼѡ¡δÑ «ñ¿¡áα¡«⌐ Γ«τ¡«ßΓ¿  á ¿ b ¿
  932.            'µÑ½«τ¿ß½Ñ¡¡δ⌐ ¼¿áßß¿ó C%
  933.            DIM  c % (3000)
  934.            á = 65  b = 13:  c%(2000)= 12
  935.            COMMON  á,b,c%(1)
  936.            '«»αÑñѽ¿Γ∞ # αẼÑα«ó ó ¼áßß¿óÑ
  937.            CHAIN "PROG2"
  938.   
  939.            PROG2.BAS
  940.            'Äí∞∩ó¿Γ∞ »ÑαѼѡ¡δÑ, ¬«Γ«αδÑ ñ«½ª¡δ íδΓ∞ »«½πτÑ¡δ ¿º
  941.            'óδºδóáѼ«⌐ »α«úαá¼¼δ
  942.            `«¡¿ ñ«½ª¡δ íδ¿Γ∞ ó Γᬫ¼ ªÑ »«α∩ñ¬Ñ, «ñ¡«ú« Γ¿»á,
  943.            `¡« ¡Ñ ΓαÑíπεΓ «ñ¿¡á¬«óδσ ¿¼Ñ¡
  944.            COMMON x, y, z%(1)
  945.            PRINT x, y, z%(2000)
  946.  
  947.               è«úñá PROG1.EXE óδºδóáÑΓß∩ ¿º DOS, «¡á áóΓ«¼áΓ¿τÑß-
  948.            ¬¿ "ó«º∞¼ÑΓ ß ß«í«⌐ ¼«ñπ½∞ PROG2.TBC  ¿  óδ»«½¡¿Γ Ñú«, 
  949.            ¡á»ÑτáΓá󠺡áτÑ¡¿∩,  »α¿ßó«Ñ¡¡δÑ ó PROG1. è«úñá ºá¬á¡-
  950.            τ¿óáÑΓß∩ PROG2, «¡á ó«ºóαóΘáÑΓß∩ ó DOS, á ¡Ñ ó PROG1.  
  951. 
  952.                           Ä»ÑαáΓ«α CHDIR
  953. -----------------------------------------------------------------
  954. ìạáτÑ¡¿Ñ  Ä»ÑαáΓ«α CHDIR ¿º¼Ñ¡∩ÑΓ ¬áΓὫú (¬«¼á¡ñδ DOS CHDIR 
  955.             ¿½¿ CD.).
  956.  
  957. æ¿¡Γá¬ß¿ß   CHDIR path
  958.  
  959. 諼¼Ñ¡Γáα¿⌐
  960.             path - φΓ« ß¿¼ó«½∞¡«Ñ óδαáªÑ¡¿Ñ,  ß««ΓóÑΓßΓóπεΘÑÑ πß-
  961.             ½«ó¡δ¼ «í«º¡áτÑ¡¿∩¼ ¼áαΦαπΓá ó DOS («»¿ßá¡δ ó ßΓáΓ∞Ñ 
  962.            "öá⌐½δ"  ó 4-⌐ ú½áóÑ).  àß½¿ ¼áαΦαπΓ ¡Ñ π¬áºδóáÑΓ »αá- 
  963.            ó¿½∞¡δ⌐  ¬áΓὫú,  »α«¿ßσ«ñ¿Γ  «Φ¿í¬á  óδ»«½¡Ñ¡¿∩  76, 
  964.            Path  Not  Found  (¼áαΦαπΓ ¡Ñ ¡á⌐ñÑ¡).  Ä»ÑαáΓ«α CHDIR 
  965.            ¿º¼Ñ¡∩ÑΓ ΓѬπΘ¿⌐ ¬áΓὫú (á¬Γ¿ó¡δ⌐ ¿½¿ »«  π¼«½τá¡¿ε).
  966.            CHDIR Æπαí« üÑ⌐ß¿¬á á¡á½«ú¿τÑ¡ DOS ¬«¼á¡ñÑ CHDIR ß Γ«⌐ 
  967.            ½¿Φ∞ αạ¿µÑ⌐,  τΓ« ¡Ñ ¼«ªÑΓ ß«¬αáΘÑ¡¡« ¡áºδóáΓ∞ß∩ CD. 
  968.            éδ»«½¡Ñ¡¿Ñ »α«úαá¼¼δ, ¬«Γ«αá∩ ¿º¼Ñ¡∩ÑΓ ΓѬπΘ¿⌐ ¬áΓὫú 
  969.            ¿º¡πΓα¿  Æπαí«  üÑ⌐߬á,   ¿º¼Ñ¡∩ÑΓ  ΓᬪѠ ¿  á¬Γ¿ó¡δ⌐ 
  970.            ¬áΓὫú Æπαí« üÑ⌐߬á.  
  971.   
  972.  
  973. Åα¿¼Ñα    INPUN "Nem directory:" Path$
  974.           CHDIR path$     '¿º¼Ñ¡∩ÑΓ ¡á ¬áΓὫú, «»αÑñѽѡ¡δ⌐ 
  975.                           '»«½∞º«óáΓѽѼ
  976.           END
  977. 
  978.                           öπ¡¬µ¿∩  CHR$
  979. -----------------------------------------------------------------
  980. ìạáτÑ¡¿Ñ    CHR$ »αÑ«íαáºπÑΓ code ASCII ó ßΓα«¬π ¿º «ñ¡«ú« ß¿¼-
  981.               ó«½á
  982.  
  983. æ¿¡Γá¬ß¿ß     Y=CHR$ (integer ehpression)
  984.   
  985. 諼¼Ñ¡Γáα¿⌐      CHR$  ó«ºóαáΘáÑΓ ßΓα«¬π ¿º «ñ¡«ú« ß¿¼ó«½á, ¬«Γ«-
  986.               αδ⌐ ¿¼ÑÑΓ µÑ½«τ¿ß½Ñ¡¡«Ñ óδαáªÑ¡¿Ñ ¬«ñá ASCII ó ñ¿á- 
  987.               »áº«¡Ñ º¡áτÑ¡¿⌐ «Γ 0 ñ« 255.  CHR$  ¬«¼»½Ñ¼Ñ¡Γ¿απÑΓ 
  988.               Σπ¡¬µ¿ε  ASC,  ¬«Γ«αá∩ ó«ºóαáΘáÑΓ ¬«ñ ASCII »Ñαó«ú« 
  989.               ß¿¼ó«½á ßΓ᫬¿. CHR$ ¿ß»«½∞ºπÑΓß∩ ñ½∩ ß«ºñá¡¿∩ ß¿¼-
  990.               ó«½«ó, Γαπñ¡«óó«ñ¿¼δσ ß ¬½áó¿áΓπαδ,  Γᬿσ ¬á¬ úαá-
  991.               Σ¿τÑ߬¿Ñ  ß¿¼ó«½δ  ñ½∩ óδó«ñá ¡á φ¬αá¡ ¿ »«ß½Ññ«óá-
  992.               Γѽ∞¡«ßΓ¿ ¬«¡Γα«½∩ óδó«ñá »α¿¡ΓÑαá. ç¡áτÑ¡¿Ñ µÑ½«-
  993.               τ¿ß½Ñ¡¡«ú« óδαáªÑ¡¿∩, »ÑαÑσ«ñ∩ΘÑÑ ¡á CHR$, ñ«½ª¡« 
  994.               íδΓ∞ ó »αÑñѽáσ «Γ 0 ñ« 255. êß»«½∞º«óá¡¿Ñ áαúπ¼Ñ¡-
  995.               Γá, óδσ«ñ∩ΘÑú« ºá αἬ¿ φΓ«ú« ñ¿á»«º«¡á, ñáÑΓ «Φ¿í-
  996.               ¬π  óδ»«½¡Ñ¡¿∩  5.  IllegaI Function Call 
  997.               (¡Ñ»αáóѽ∞¡δ⌐ ó맮ó Σπ¡¬µ¿¿).  
  998.  
  999. ß¼. ΓᬪѠ    ASC
  1000.                
  1001. Åα¿¼Ñα        'CHR$ óδó«ñ¿Γ ¡áí«α ß¿¼ó«½«ó ASCII ¡á φ¬αá¡
  1002.  
  1003.               FOR I% = 0  Γ« 255
  1004.  
  1005.               PRINT USING "I";  CHR$ (I%);
  1006.                                  '»«¬áºδóáÑΓ ß¿¼ó«½ ASCII, 
  1007.                                  '»αÑñßΓáó½Ñ¡¡δ⌐ I%
  1008.             NEXT  I%
  1009.             END
  1010. 
  1011.                            öπ¡¬µ¿∩ CINT
  1012. -----------------------------------------------------------------
  1013. ìạáτÑ¡¿Ñ    öπ¡¬µ¿∩  CINT  »αÑ«íαáºπÑΓ áαúπ¼Ñ¡Γ ó µÑ½«Ñ τ¿ß½«.
  1014.  
  1015. æ¿¡Γá¬ß¿ß     Y = CINT (numeric expression)
  1016.  
  1017. 諼¼Ñ¡Γáα¿⌐      öπ¡¬µ¿∩ CINT  »αÑ«íαáºπÑΓ  τ¿ß½Ñ¡¡πε  »ÑαѼѡ¡πε  
  1018.              ¿½¿  óδαáªÑ¡¿Ñ  ó  µÑ½«Ñ τ¿ß½« ß «¬απú½Ñ¡¿Ñ¼ ñα«í¡«⌐ 
  1019.              τáßΓ¿ τ¿ß½Ñ¡¡«ú« óδαáªÑ¡¿∩. àß½¿ τ¿ß½Ñ¡¡«Ñ óδαáªÑ¡¿Ñ 
  1020.              óδσ«ñ¿Γ ¿º »αÑñѽ«ó ñ¿á»áº«¡á «Γ -32.768 ñ« +32.767, 
  1021.              Γ« »α«¿ßσ«ñ¿Γ «Φ¿í¬á overflow (»ÑαÑ»«½¡Ñ¡¿Ñ) («Φ¿í¬á 
  1022.              óδ»«½¡Ñ¡¿∩ »α«úαá¼¼δ 6).  
  1023.                 ¥Γ«  »αÑ«íαẫóá¡¿Ñ   «ßπΘÑßΓó½∩ÑΓß∩   ¿¼»½¿µ¿Γ¡« 
  1024.              ¡áº¡áτÑ¡¿Ñ¼  µÑ½«τ¿ß½Ñ¡¡«⌐  »ÑαѼѡ¡«⌐  ¿½¿  óδº«ó«¼ 
  1025.              »α«µÑñπαδ    ¿½¿    Σπ¡¬µ¿¿,    ¬«Γ«αá∩    »α¿¡Ñ¼áÑΓ 
  1026.              µÑ½«τ¿ß½Ñ¡¡δ⌐ áαúπ¼Ñ¡Γ.  
  1027.  
  1028.  Éẽ¿τ¿∩       é «Γ½¿τ¿Ñ «Γ ¿¡ΓÑα»α¿ΓáΓ«αá  üÑ⌐ß¿¬, Æπαí« üÑ⌐ß¿¬ 
  1029.              ¡Ñ  óßÑúñá «¬απú½∩ÑΓ ñα«í¡πε τáßΓ¿µπ τ¿ß½á ó í«½∞Φπε 
  1030.              ßΓ«α«¡π.  àß½¿ ñα«í¡á∩ τáßΓ∞  τ¿ß½á  αáó¡á  .5,  «¡á 
  1031.              «¬απú½∩ÑΓß∩ ó ßΓ«α«¡π τÑΓ¡«ú« τ¿ß½á .  
  1032.  
  1033. æ¼.ΓᬪѠ    CDBL  CEIL  CLNG   CSNC  FIX   INT
  1034.  
  1035.  
  1036. Åα¿¼Ñα       FOR  I! = 0.0  TO  s.0  STEP  0.2
  1037.  
  1038.                          '»«¬áºáΓ∞ αѺπ½∞ΓáΓ »αÑ«íαẫóá¡¿∩
  1039.              PRINT USING  "CINT  of  #.# = #"  I!,CINT(I!)
  1040.              NEXT  I!
  1041.              END     'ºá¬«¡τ¿Γ∞ »α«úαá¼¼π
  1042. 
  1043.                          Ä»ÑαáΓ«α  CIRCLE
  1044. -----------------------------------------------------------------
  1045. ìạáτÑ¡¿Ñ   Ä»ÑαáΓ«α  CIRCLE  α¿ßπÑΓ ¬απú ¿½¿ τáßΓ∞ ¬απúá.
  1046.  
  1047. æ¿¡Γá¬ß¿ß   
  1048.           CIRCLE  (x,y) radius [, color [, start, end[, aspect]]]
  1049.  
  1050. 諼¼Ñ¡Γáα¿⌐
  1051.             (x,y) ∩ó½∩ÑΓß∩ µÑ¡Γα«¼ ¬απúá ¿ ¼«ªÑΓ íδΓ∞ «»¿ßá¡ ½¿í« 
  1052.             ó   áíß«½εΓ¡«⌐   ½¿í«   ó   «Γ¡«ß¿Γѽ∞¡«⌐   Σ«α¼Ñ  (ß 
  1053.             ¿ß»«½∞º«ó᡿Ѽ STEP). (æ¼.  αáºñѽ »« úαáΣ¿¬Ñ ó â½áóÑ 
  1054.             3  ñ½∩  í«½ÑÑ  »«ñα«í¡«⌐  ¿¡Σ«α¼áµ¿¿  «í áíß«½εΓ¡δσ ¿ 
  1055.             «Γ¡«ß¿Γѽ∞¡δ󠬫«αñ¿¡áΓáσ).  
  1056.                radius  »αÑñßΓáó½∩ÑΓ  ß«í«⌐  τ¿ß½Ñ¡¡«Ñ  óδαáªÑ¡¿Ñ, 
  1057.             π»αáó½∩εΘÑÑ αẼÑα«¼ ¬απúá.  
  1058.                color  - φΓ« τ¿ß½Ñ¡¡«Ñ óδαáªÑ¡¿Ñ «»αÑñѽ∩εΘÑÑ µóÑΓ 
  1059.             ¬απúá.  ä«»πßΓ¿¼δÑ º¡áτÑ¡¿∩ «Γ 0 ñ« 3  ó  úαáΣ¿τÑ߬¿σ 
  1060.             πßΓα«⌐ßΓóáσ  ß«  ßαÑñ¡Ñ⌐ αáºαÑΦáεΘÑ⌐ ß»«ß«í¡«ßΓ∞ε (»« 
  1061.             π¼«½τá¡¿ε - 3) ¿ «Γ 0 ñ« 1 óúαáΣ¿τÑ߬¿σ πßΓα«⌐ßΓóáσ ß 
  1062.             óδß«¬«⌐ αáºαÑΦáεΘÑ⌐ ß»«ß«í¡«ßΓ∞ε  (»«  π¼«½τá¡¿ε  1). 
  1063.             ûóÑΓ  »«  π¼«½τá¡¿ε  -  φΓ« ¡á¿í«½ÑÑ óδß«¬¿⌐ µóÑΓ ñ½∩ 
  1064.             αѪ¿¼á  ó  ¬«Γ«α«¼   óδ   ¡áσ«ñ¿ΓÑß∞.   êß»«½∞º«óá¡¿Ñ 
  1065.             áαúπ¼Ñ¡Γá   µóÑΓá,   óδσ«ñ∩ΘÑú«   ºá  »αÑñÑ½δ  ñá¡¡δσ   
  1066.             ñ¿á»áº«¡«ó,   ñáÑΓ  «Φ¿í¬π  óδ»«½¡Ñ¡¿∩   5,   illegal 
  1067.             function  call  (¡Ñ»αáó¿½∞¡δ⌐ ó맮ó Σπ¡¬µ¿¿).  (ü«½ÑÑ 
  1068.             »«ñα«í¡« «í «Γí«αÑ µóÑΓá ß¼. «»ÑαáΓ«α STATEMENT).  
  1069.                start,  end  ∩ó½∩εΓß∩  ¡Ñ«í∩ºáΓѽ∞¡δ¼¿  τ¿ß½Ñ¡¡δ¼¿ 
  1070.             »áαá¼ÑΓαἿ, «»αÑñѽ∩εΘ¿¼¿ ¡áτá½∞¡πε ¿ ¬«¡Ñτ¡πε Γ«τ¬¿ 
  1071.             α¿ßπѼ«⌐  ñπú¿ ó αáñ¿á¡áσ (« αáñ¿á¡áσ ß¼«Γα¿ ó ßΓáΓ∞Ñ 
  1072.             ATN).  êß»«½∞ºπ⌐ΓÑ ¿σ »α¿  ¿º«íαáªÑ¡¿¿  Γ«½∞¬«  τáßΓ¿ 
  1073.             ¬απúá.  àß½¿ ¡áτὫ ¿ ¬«¡Ñµ «»π߬áεΓß∩ α¿ßπÑΓß∩ µÑ½δ⌐ 
  1074.             ¬απú.  
  1075. ìá»α¿¼Ñα:           SCREEN: pi = 4 * ATN(1) 
  1076.                     CIRCLE (160.100),50,3,0, pi 
  1077.            α¿ßπÑΓ íѽπε ñπúπ »«½π¬απúá «Γ 0 αáñ¿á¡ (0 úαáñπß«ó) 
  1078.            ñ« pi αáñ¿á¡ (180 úαáñπß«ó).  
  1079.                 ÄΓα¿µáΓѽ∞¡δÑ   º¡áτÑ¡¿∩   ¡áτá½á  ¿  ¬«¡µá  ñáεΓ 
  1080.            ¬απú«óπε  ñ¿áúαá¼¼π ß ΓαÑπú«½∞¡«⌐  »α¿º¼«⌐  ¡á  º¬αá¡Ñ 
  1081.            ñ¿ß»½Ñ∩,   ¬αá∩   ¬«Γ«α«⌐   áóΓ«¼áΓ¿τÑ߬¿  ßó∩ºδóáεΓß∩ 
  1082.            Γ«τ¬«⌐.  ìá»α¿¼Ñα: 
  1083.  
  1084.                     SCREEN  1 :  pi = 4* ATN(1)
  1085.                     CIRCLE  (160,100,50,,-pi/4, -pi/2
  1086.            α¿ßπÑΓ «ΓαѺ«¬ ñ¿áúαá¼¼δ ó 45 úαáñπß«ó, «Γ pi/4 αáñ¿á¡ 
  1087.            (45) ñ« pi/2 αáñ¿á¡ (90),  ¬«Γ«αδ⌐ ó¿ñÑ¡ ¡á ßΓα.  149.  
  1088.            ä½∩ ¡áτá½á ΓαÑπú«½∞¡«⌐ »α¿º¼δ (wedge) ¡á »«½«ª¿Γѽ∞¡«⌐ 
  1089.            «ß¿  x,   ¿ß»«½∞ºπ⌐ΓÑ  «Γα¿µáΓѽ∞¡«Ñ  τ¿ß½«,   ¡Ñ¼¡«ú« 
  1090.            ¼Ñ¡¡∞ΦÑÑ 0 (¡á»α¿¼Ñα ,  0001),  á ¡Ñ ¡«½∞.  
  1091.                aspect  - φΓ« τ¿ß½Ñ¡¡«Ñ óδαáªÑ¡¿Ñ,  ¬«¡Γα«½¿απεΘ¿Ñ 
  1092.            «óá½∞¡«ßΓ∞ ¿½¿  «¬απú½«ßΓ∞  ¬απúá.  »«  π¼«½τá¡¿ε  5/6 
  1093.            (0.83333) ß«  ßαÑñ¡Ñ⌐  αáºαÑΦáεΘÑ⌐ ß»«ß«í¡«ßΓ∞ε ¿ 5/12 
  1094.            (0.416667)  ß  óδß«¬«⌐  αáºαÑΦáεΘÑ⌐  ß»«ß«í¡«ßΓ∞ε.   é 
  1095.            ºáó¿ß¿¼«ßΓ¿ «Γ ¬«¡¬αÑΓ¡«⌐ ¬«¼í¿¡áµ¿¿ ¼«¡¿Γ«αá  ñ¿ß»½Ñ∩ 
  1096.            ¬«¼¼πΓᵿ«¡¡á∩  ñ«ß¬ó/ó¿ñÑ«,  óá¼  ¼«ªÑΓ  »«¡áñ«í¿Γ∞ß∩ 
  1097.            "ó¡ÑßΓ¿ ¿º¼Ñ¡Ñ¡¿∩" ó ñá¡¡δÑ  º¡áτÑ¡¿∩  (¿½¿  ¿ß»αáó¿Γ∞ 
  1098.            óáΦ ¼«¡¿Γ«α) ñ½∩ »«½πτÑ¡¿∩ ¬απú½δ󠫬απª¡«ßΓÑ⌐ .  
  1099.                 Å«ß½Ñ    ¡á¡ÑßÑ¡¿∩    ¿º«íαáªÑ¡¿∩   ¬απúá,    LPR 
  1100.             ßΓá¡«ó¿Γ∞ß∩ Ñú« µÑ¡Γα«¼.  
  1101.  
  1102. Åα¿¼Ñα    'äá¡¡á∩ »α«úαá¼¼á ñѼ«¡ßΓα¿απÑΓ ó«º¼«ª¡«ßΓ¿ CIRCLE
  1103.            '¿º¼Ñ¡Ñ¡¿Ñ ¼ÑßΓá, αáñ¿πßá, µóÑΓá
  1104.            '¿ ß««Γ¡«ΦÑ¡¿∩ á߻ѬΓá. CIRCLE ¼«ªÑΓ ΓᬪÑ
  1105.            'α¿ß«óáΓ∞ ñπú¿ ¿ ΓαÑπú«½∞¡δÑ »α¿º¼δ, 
  1106.            '¿ß»«½∞ºπѼδÑ ó ¿úαáσ
  1107.            'Γ¿»á "pak-man".
  1108.             
  1109.             PI# = 48* ATN(1) 'óδτ¿ß½¿Γ∞ º¡áτÑ¡¿∩ PI
  1110.             SCREEN1           '»ÑαÑ⌐Γ¿ ó αѪ¿¼ úαáΣ¿¬«ó
  1111.             FOR Radius% = 1 Γ« 20  'πóѽ¿τ¿Γ∞ αẼÑα ¬απúá
  1112. 
  1113.             Colour% = Radius% MOD 4 'óδτ¿ß½¿Γ∞ µóÑΓ ñ¿ß»½Ñ∩
  1114.             CIRCLE(250,150).Raidius%, Coiour% 'µÑ¡Γα ¡á 250, 150
  1115.             NEXT Radius%
  1116.             CIRCLE(250,60), 50,1,-(PI#*5/4),-(PI#*3/4) 
  1117.                                                  'Γѽ« "pak-man"
  1118.                                                  '¿ ú½áº
  1119.             Rasing% = 50   'φ½¿»ßδ ¼«úπΓ »α«¿ºó«ñ¿Γ∞ ¿½½εº¿¿ 
  1120.                            'Γ¿»á ßΣÑα...
  1121.             FOR Aspekt = 0  TO  2.0  STEP  0.09
  1122.             CIRCLE(90.100),Radius%....Aspekt
  1123.             NEXT Aspekt
  1124.             END
  1125. 
  1126.                          Ä»ÑαáΓ«α  CLEAR
  1127. -----------------------------------------------------------------
  1128. ìạáτÑ¡¿Ñ    Ä»ÑαáΓ«α  CLEAR  «Θτ¿ΘáÑΓ »ÑαѼѡ¡δÑ »á¼∩Γ¿
  1129.  
  1130. æ¿¡Γá¬ß¿ß     CLEAR
  1131.           
  1132. 諼¼Ñ¡Γáα¿⌐      CLEAR - φΓ« ¬«¼á¡ñá íѺ »áαá¼ÑΓα«ó,  ¬«Γ«αá∩ πß-
  1133.               Γá¡áó½¿óáÑΓ   τ¿ß½Ñ¡¡δÑ   »ÑαѼѡ¡δÑ  ¡á  ¡«½∞,   á 
  1134.               ß¿¼ó«½∞¡δÑ »ÑαѼѡ¡δÑ ßó«ñ¿Γ ¬ ¡π½ε. Ä»ÑαáΓ«α CLEAR 
  1135.               «Γ¬½ετáÑΓ   ½«óπΦ¬π   (¡á»α¿¼Ñα,    ó«ß»α«¿ºóÑñÑ¡¿Ñ 
  1136.               ¼πºδ¬¿),  ¿  ó¡«ó∞  ¿¡¿µ¿á½¿º¿απÑΓ »á¼∩Γ∞ ¼áßß¿óá ¿ 
  1137.               ß«ñÑন¼«Ñ ß¿¼ó«½∞¡«⌐ ßΓ᫬¿.  
  1138.  
  1139. çá¼Ñτá¡¿Ñ        Ä»ÑαáΓ«α CLEAR,  π»«ΓαÑí½Ñ¡¡δ⌐ ó¡πΓα¿ µ¿¬½á, óδ-
  1140.               ºδóáÑΓ «í¡π½Ñ¡¿Ñ ßτÑΓτ¿¬á ¿ ΓѼ ßá¼δ¼  ñѽáÑΓ  µ¿¬½ 
  1141.               íÑ߬«¡Ñτ¡δ¼.  
  1142.                  ä½∩ óδí«α«τ¡«⌐ «τ¿ßΓ¬¿ ¼áßß¿ó«ó »á¼∩Γ¿ ¿»«½∞ºπ⌐-
  1143.               ΓÑ ¬«¼á¡ñπ ERASE.
  1144.  
  1145. Äúαá¡¿τÑ¡¿∩      Æπαí« üÑ⌐ß¿¬  ¡Ñ »«ññÑনóáÑΓ ñ¿¡á¼¿τÑ߬πε πßΓá-
  1146.               ¡«ó¬π  ßÑú¼Ñ¡Γá  ßΓѬᠿ ñá¡¡δσ »«φΓ«¼π π «»ÑαáΓ«αá 
  1147.               CLEAR ¡ÑΓ »áαá¼ÑΓα«ó.  
  1148.  
  1149. Éẽ¿τ¿∩         Éẽ¿τ¿∩ ¼Ñªñπ «»ÑαáΓ«α«¼  CLEFR  ê¡ΓÑα»αÑΓáΓ«αá
  1150.               üàëæêè  ¿ Æü »α«¿ßσ«ñ∩Γ ú½áó¡δ¼ «íαẫ¼ ¿º αẽ¿τ¿⌐ 
  1151.               ¼Ñªñ𠬫¼»¿½∩Γ«αἿ ¿ ¿¡ΓÑα»αÑΓáΓ«αἿ. ê¡ΓÑα»αÑΓá- 
  1152.               Γ«α üàëæêèá ¿¼ÑÑΓ ó«º¼«ª¡«ßΓ∞ ñ¼¿¡á¼¿τÑ߬¿ πßΓá¡áó-
  1153.               ½¿óáΓ∞ »α«ßΓαá¡ßΓó« ßΓѬᠿ ñá¡¡δσ, ó Γ« óαѼ∩  ¬á¬ 
  1154.               Æü  ¬«¼»¿½∩Γ«α  πßΓá¡áó½¿óáÑΓ  φΓ«  »α«ßΓαá¡ßΓó« ó« 
  1155.               óαѼ∩ ¬«¼»¿½∩µ¿¿.  
  1156.  
  1157. æ¼.ΓᬪѠ     ERASE     $STACK
  1158.  
  1159. Åα¿¼Ñα        'äá¡¡á∩ »α«úαá¼¼á ñѼ«¡ßΓα¿απÑΓ ó«Θº¼«ª¡«ßΓ¿ «»Ñαá-
  1160.               'Γ«αá CLEAR
  1161.  
  1162.               DIM Array$(1)         '«íΩ∩ó¿Γ∞ ¼áßß¿ó ßΓ᫬
  1163.  
  1164.               PLAY "MB L1 EFGABCDEF"  'ñáΓ∞ ¼πºδ¬á½∞¡δ⌐ Σ«¡ 
  1165.               ON PEN GOSUB PenHandler 'πßΓá¡«ó¿Γ∞ ½«óπΦ¬π ßóÑΓ«-
  1166.                                       'ó«ú« »Ñαá
  1167.               ON STRIG(0) GOSUB ButtonOHandler 'πßΓá¡«ó¿Γ∞ ½«óπ-
  1168.                                                'Φ¬π ñª«⌐ßΓ¿¬á
  1169.                  '¿¡¿µ¿á½¿º¿α«óáΓ∞ ß¿¼ó«½∞¡δÑ ñá¡¡δÑ
  1170.               Array$(0) = "This is string in Array$(0)
  1171.               Array$(1) = "This is string in Array$(1)
  1172.                  
  1173.                  '»«¬áºáΓ∞ ß¿¼ó«½∞¡δÑ ñá¡¡δÑ
  1174.               PRINT USING "Array element 1: &";Array$(0)
  1175.               PRINT USING "Array element 2: &"; Array$(1)
  1176.         CLEAR      'óδ»«½¡¿Γ∞ CLEAR
  1177.         PRINT
  1178.                    '»«¬áºáΓ∞ πªÑ ¡Ñ ßπΘÑßΓóπεΘ¿Ñ ß¿¼ó«½∞¡δÑ ñá¡¡¡δÑ
  1179.  
  1180.               PRINT USING "Array element 1: &";Array$(0)
  1181.               PRINT USING "Array element 2: &"; Array$(1)
  1182.          PRINT
  1183.               PRINT "The string variables are now empty."
  1184.          END   '¬«¡Ñµ »α«úαá¼¼δ
  1185.  
  1186.              PenHandler:  '«»αÑñѽ¿Γ∞ ½«ª¡πε ¼ÑΓ¬π ñ½∩ ½«óπΦ¬¿ 
  1187.          RETURN            'ßóÑΓ«ó«ú« »Ñαá
  1188.  
  1189.          ButtonOHandler '«»αÑñѽ¿Γ∞ ½«ª¡πε ¼ÑΓ¬π ñ½∩ ñª«⌐ßΓ¿¬á
  1190.                RETURN
  1191. 
  1192.                            öπ¡¬µ¿∩ CLNG
  1193. -----------------------------------------------------------------
  1194. ìạáτÑ¡¿Ñ    öπ¡¬µ¿∩ CLNG »αÑ«íαáºπÑΓ τ¿ß½«ó«Ñ óδαáªÑ¡¿Ñ ó ñ½¿¡-
  1195.               ¡«Ñ µÑ½«Ñ τ¿ß½«.
  1196.  
  1197. æ¿¡Γá¬ß¿ß     Y = CLNG(numeric expression)
  1198.                       (τ¿ß½«ó«Ñ óδαáªÑ¡¿Ñ)
  1199.  
  1200. 諼¼Ñ¡Γáα¿⌐      öπ¡¬µ¿∩ CLNG »αÑ«íαáºπÑΓ τ¿ß½«óπε »ÑαѼѡ¡πε ¿½¿ 
  1201.               óδαáªÑ¡¿Ñ ó ñ½¿¡¡«Ñ µÑ½«Ñ τ¿ß½« «¬απú½Ñ¡¿Ñ¼ ñα«í¡«⌐ 
  1202.               τáßΓ¿ ÑÑ áαúπ¼Ñ¡Γá. àß½¿ º¡áτÑ¡¿Ñ áαúπ¼Ñ¡Γá óδσ«ñ¿Γ
  1203.               ºá »αÑñѽδ ñ¿á»áº«¡á «Γ -2^31 ñ« +2^31 - 1 (»α¿í½¿-
  1204.               º¿Γѽ∞¡« «Γ -2000000000 ñ« 1999999999), Γ« »α«¿ßσ«-
  1205.               ñ¿Γ  «Φ¿í¬á óδ»«½¡Ñ¡¿∩  6,  ÅÑαÑ»«½¡Ñ¡¿Ñ  (run-time 
  1206.               error 6, Overflow).
  1207.  
  1208. Äúαá¡¿τÑ¡¿∩      ù¿ß½«ó«Ñ óδαáªÑ¡¿Ñ, ¬«Γ«α«Ñ »ÑαÑσ«ñ¿Γ ¬ Σπ¡π¬µ¿¿
  1209.               CLNG, ñ«½ª¡« íδΓ∞ ó »αÑñѽáσ ñ«»πßΓ¿¼«ú«  ñ¿á»áº«¡á 
  1210.               º¡áτÑ¡¿⌐ ñ½¿¡¡δσ µÑ½δσ τ¿ßѽ.  
  1211.  
  1212. Éẽ¿τ¿∩         äá¡¡á∩  Σπ¡¬µ¿∩  ¡Ñ󫺼«ª¡á ó í«½∞Φ¿¡ßΓóÑ ê¡ΓÑα-
  1213.                  »αÑΓáΓ«α«ó  üàëæêèá,  Γ.¬.  «¡ú  ¡Ñ »«ññÑনóáεΓ 
  1214.                  ñ½¿¡¡δÑ µÑ½δÑ τ¿ß½á.  
  1215.  
  1216. æ¼.ΓᬪѠ     CDBL   CINT   CSNG   FIX   INT
  1217.  
  1218. Åα¿¼Ñα        PRINT CLNG(2.0E9), CLNG(33.4), CLNG(-121,9),_
  1219.                     CLNG(100251.6)
  1220.  
  1221.               END  'ºá¬«¡τ¿Γ∞ »α«úαá¼¼π
  1222. 
  1223.                           Ä»ÑαáΓ«α CLOSE
  1224. -----------------------------------------------------------------
  1225. ìạáτÑ¡¿Ñ    Ä»ÑαáΓ«α CLOSE ºá¬αδóáÑΓ Σá⌐½ ¿½¿ πßΓα«⌐ßΓó«.
  1226.  
  1227. æ¿¡Γá¬ß¿ß     CLOSE [[#] ¿¼∩ Σá⌐½á [,[#] ¿¼∩ Σá⌐½á]...]
  1228.  
  1229. 諼¼Ñ¡Γáα¿⌐      Ä»ÑαáΓ«α CLOSE  ºá¬αδóáÑΓ «Γ¡«ΦÑ¡¿Ñ ¼Ñªñπ ¡«¼Ñ-
  1230.               α«¼ Σá⌐½á ¿ Σá⌐½«¼,  ß«ºñá¡¡δ¼ «»ÑαáΓ«α«¼ OPEN,  «¡ 
  1231.               ºá¬½ετáÑΓ  óó«ñ/óδó«ñ  ¬  φΓ«¼π Σá⌐½π.  üπΣÑα Σá⌐½á 
  1232.               »«ñáó½∩ÑΓß∩ ¿ Ñß½¿ ¿¼∩ Σá⌐½á  (¡«¼Ñα  Σá⌐½á)  »αÑñ-
  1233.               ßΓáó½∩ÑΓ  Σá⌐½  ¡á ñ¿ß¬«ó«¼ ¡«ß¿ΓѽÑ,  á ¡Ñ πßΓα«⌐-
  1234.               ßΓó«,  Γ« «ßπΘÑßΓó½∩ÑΓß∩ DOS CLOSE  ñ½∩  «í¡«ó½Ñ¡¿∩ 
  1235.               ¬áΓὫúá.  
  1236.                  ìÑ«íσ«ñ¿¼«  óº∩Γ∞  ¡á  ó««απªÑ¡¿Ñ  ¿ß»«½∞º«óá¡¿Ñ 
  1237.               «»ÑαáΓ«αá CLOSE ñ½∩ »Ñα¿«ñ¿τÑ߬«ú« ºá¬αδΓ¿∩ Σá⌐½«ó, 
  1238.               ß«ºñáóáѼδσ »α¿ ¡á»¿ßá¡¿¿ »α«úαá¼¼δ. ¥Γ« úáαá¡Γ¿απ-
  1239.               ÑΓ ß«σαá¡Ñ¡¿Ñ ¿¡Σ«α¼áµ¿¿ ¿ «í¡«½ó½Ñ¡¿Ñ ß««ΓóÑΓßΓóπ-
  1240.               εΘ¿¼ «íαẫ¼ ßΓáΓÑ⌐ ¬áΓὫúá Σá⌐½«ó ¡á ß½πτá⌐  »«ß-
  1241.               ½ÑñπεΘÑú« «Γ¬½ετÑ¡¿∩ ß¿ßΓÑ¼δ ¿½¿ ñαπú¿σ »α«í½Ñ¼.  
  1242.  
  1243.                  Ä»ÑαáΓ«α CLOSE íѺ ¡«¼Ñαó  ¿½¿ ¿¼Ñ¡¿ Σá⌐½á ºá¬- 
  1244.               αδóáÑΓ óßÑ «Γ¬αδΓδÑ Σá⌐½δ ¿ πßΓα«⌐ßΓóá (¬á¬ ¿ «»Ñ- 
  1245.               αáΓ«αδ  RESET, END, STOP ¿ RUN).
  1246.  
  1247. æ¼.ΓᬪѠ     END   OPEN   STOP
  1248.  
  1249. Åα¿¼Ñα           '«Γ¬αδΓ∞ Σá⌐½, ¡áº¡áτÑ¡¡δ⌐ »α¿¡ΓÑαπ
  1250.               OPEN "LPT1:" AS #1
  1251.  
  1252.                                   '»«ß½áΓ∞ ßΓ᫬π ¡á »α¿¡ΓÑα
  1253.               PRINT# 1,"THIS IS A TEST" 
  1254.  
  1255.               CLOSE# 1    'ºá¬αδΓ∞ »ÑαѼѡ¡πε Σá⌐½á
  1256.  
  1257.                                   '«Γ¬αδΓ∞ ñóá αạδσ Σá⌐½á
  1258.               OPEN "CLOSEFIL.ONE" FOR AS #1
  1259.               OPEN "CLOSEFIL.TWO" FOR AS #2
  1260.  
  1261.                                  'ó»¿ßáΓ∞ ßΓ᫬π ó ¬áªñδ⌐ Σá⌐½
  1262.               PRINT# 1,"THIS IS A TEST"
  1263.               PRINT# 2,"THIS IS A TEST"
  1264.  
  1265.                                  'ºá¬αδΓ∞ óßÑ Σá⌐½δ
  1266.               CLOSE
  1267.               END
  1268. 
  1269.                            Ä»ÑαáΓ«α CLS
  1270. -----------------------------------------------------------------
  1271. ìạáτÑ¡¿Ñ    Ä»ÑαáΓ«α CLS τ¿ΘáÑΓ φ¬αá¡.
  1272.  
  1273. æ¿¡Γá¬ß¿ß     CLS
  1274.  
  1275.  
  1276. 諼¼Ñ¡Γáα¿⌐      Ä»ÑαáΓ«α CLS  ó  αѪ¿¼Ñ  ΓѬßΓá «τ¿ΘáÑΓ φ¬αá¡ ñ« 
  1277.               Σ«¡«ó«ú« µóÑΓá ¿ πßΓá¡áó½¿óáÑΓ ¬παß«α ó ½Ñóδ⌐ óÑασ-
  1278.               ¡¿⌐ πú«½ (ó 1-ε »«º¿µ¿ε 1-⌐ ßΓ᫬¿).  
  1279.                  é  úαáΣ¿τÑ߬«¼  αѪ¿¼Ñ  »«ß½Ñ «τ¿ßΓ¬¿ φ¬αá¡á Ñú« 
  1280.               µÑ¡Γα«¼ ßΓá¡«ó¿Γß∩ LPR (160, 100) ¿½¿ (320, 100), ó 
  1281.               ºáó¿ß¿¼«ßΓ¿ «Γ Γ«ú« ¬á¬¿¼ íδ½ ΓѬπΘ¿⌐ αѪ¿¼:  ß««Γ-
  1282.               óÑΓßΓóÑ¡¡«  ß« ßαÑñ¡Ñ⌐ ¿½¿ óδß«¬«⌐ αáºαÑΦáεΘÑ⌐ ß»«-
  1283.               ß«í¡«ßΓ∞ε.  
  1284.                  é ßπτáÑ,  Ñß½¿ íδ½ óδ»«½¡Ñ¡  «»ÑαáΓ«α  VIEW  CLS 
  1285.               «τ¿ΘáÑΓ  Γ«½∞¬«  »«½Ñ ¿¡ñ¿¬áµ¿¿.  ä½∩ «τ¿ßΓ¬¿ óßÑú« 
  1286.               φ¬αá¡á ß»Ñαóá ß½ÑñπÑΓ  ¿ß»«½∞º«óáΓ∞  «»ÑαáΓ«α  VIEW 
  1287.               íѺ áαúπ¼Ñ¡Γ«ó ñ½∩ óδ¬ñετÑ¡¿∩ »«½∩ ¿¡ñ¿¬áµ¿¿, á ºá- 
  1288.               ΓѼ «»ÑαáΓ«α CLS ñ½∩ «τ¿ßΓ¬¿ φ¬αá¡á.  
  1289.  
  1290. æ¼.ΓᬪѠ     COLOR   SCREEN   VIEW
  1291.  
  1292. Åα¿¼Ñα                          '«τ¿ßΓ¬á φ¬αá¡á «»ÑαáΓ«α«¼ CLS
  1293.  
  1294.               PRINT " Åα¿¼Ñα αáí«Γδ «»ÑαáΓ«αá CLS "
  1295.               INPUT " ì᪼¿ΓÑ <ENTER> ñ½∩ «τ¿ßΓ¬¿ ...", Dummy$
  1296.  
  1297.               Color 10, 'πßΓá¡«ó½Ñ¡ ºÑ½Ñ¡δ⌐ µóÑΓ ¡á ß¿¡Ñ¼ Σ«¡Ñ
  1298.  
  1299.               CLS    'φ¬αá¡ «τ¿ΘáÑΓß∩ ñ« ß¿¡Ñú« µóÑΓá
  1300.                  END
  1301.  
  1302.