home *** CD-ROM | disk | FTP | other *** search
/ For Beginners & Professional Hackers / cd.iso / docum / tb1.doc / tb11.doc < prev    next >
Encoding:
Text File  |  1989-07-30  |  43.7 KB  |  1,008 lines
  1.                        Ä»ÑαáΓ«α OPTION BASE
  2. -----------------------------------------------------------------     
  3. ìạáτÑ¡¿Ñ    OPTION BASE πßΓá¡áó½¿óáÑΓ ¼¿¡¿¼á½∞¡«Ñ º¡áτÑ¡¿Ñ  ñ½∩
  4.               ¿¡ñѬ߫ó ¼áßß¿ó«ó
  5.               
  6. æ¿¡Γá¬ß¿ß     OPTION BASE (µÑ½«Ñ óδαáªÑ¡¿Ñ)
  7.               
  8. 諼¼Ñ¡Γáα¿⌐   ûѽ«Ñ óδαáªÑ¡¿Ñ »α¿¡¿¼áÑΓ º¡áτÑ¡¿∩  «Γ 0 ñ« 32767.
  9.               
  10.                  OPTION BASE  ºáñáÑΓ  º¡áτÑ¡¿Ñ  ¿¡ñѬßá,  ¬«Γ«α«Ñ 
  11.               ßΓáó¿Γß∩  ó  ß««ΓóÑΓßΓó¿¿ »Ñαó«¼π φ½Ñ¼Ñ¡Γπ ¼áßß¿óá, 
  12.               ¡á»α¿¼Ñα,  Ñß½¿  «¡«  ºáñá¡«  OPTION  BASE  1,   Γ« 
  13.               ñѬ½áαáΓ¿ó¡δ⌐ «»ÑαáΓ«α 
  14.               
  15.               DIM x(20),
  16.                
  17.               «»αÑñѽ∩εΘ¿⌐  ¼áßß¿ó  x  «Γó«ñ¿Γ  ñ½∩ ¡Ñú« ó »á¼∩Γ¿ 
  18.               ¼ÑßΓ« »«ñ 20 φ½Ñ¼Ñ¡Γ«ó  (ß««ΓóÑΓßΓóπεΘ¿σ  º¡áτÑ¡¿∩¼ 
  19.               ¿¡ñѬßá «Γ 1 ñ« 20),  Γ«úñᠬᬠ»« π¼«½τá¡¿ε íδ½ íδ 
  20.               «»αÑñѽѡ 21 φ½Ñ¼Ñ¡Γ («Γ 0 ñ« 20).  
  21.                  ò«Γ∩ ñ½∩ π»αáó½Ñ¡¿∩ úαá¡¿µá¼¿ ¿º¼Ñ¡Ñ¡¿∩ ¿¡ñѬ߫ó 
  22.               ¼«ª¡«  ¿ß»«½∞º«óáΓ∞ OPTION BASE,  ÆôÉüÄ üàëæêè ñáÑΓ 
  23.               ñ½∩ φΓ«ú« í«½ÑÑ ¼«Θ¡πε ó«º¼«ª¡«ßΓ∞  τÑαѺ  «»ÑαáΓ«α 
  24.               DIM.  
  25.               
  26. æ¼.ΓᬪѠ     DIM
  27.               
  28. Åα¿¼Ñα        ' óδñѽ¿Γ∞ ¼áß߿󠿺 ΓαÑσ µÑ½δσ »ÑαѼѡ¡δσ
  29.               DIM FirstArray%(2)
  30.               
  31.               ' πßΓá¡«ó¿Γ∞ ¡áτá½∞¡«Ñ º¡áτÑ¡¿Ñ ¿¡ñѬßá ó«
  32.               ' óßÑσ ¼áßß¿óáσ
  33.               OPTION BASE 1
  34.               
  35.               ' óδñѽ¿Γ∞ ¼ÑßΓ« ó »á¼∩Γ¿ ñ½∩ ¼áßß¿óá ¿º ñóπσ µÑ½δσ
  36.               ' »ÑαѼѡ¡δσ
  37.               DIM SecndArray%=2
  38.               
  39.               FOR I=0 TO 2
  40.                   ' ó ¼áßß¿óÑ SecndArray% ¡ÑΓ º¡áτÑ¡¿∩ ¿¡ñѬßá,
  41.                   ' αáó¡«ú« ¡π½ε
  42.                   IF I% > 0 THEN
  43.                      SecndArray%(I%)=I%
  44.                   END IF
  45.                      FirstArray%(I%)=I%
  46.               NEXT I%
  47.               
  48.               FOR I% = 0 TO 2
  49.                   ' ó ¼áßß¿óÑ ¡ÑΓ º¡áτÑ¡¿∩ ¿¡ñѬßá, αáó¡«ú« 0
  50.                   IF I% > 0 THEN
  51.                      PRINT SecndArray%(I%)
  52.                   END IF
  53.                      PRINT FirstArray%(I%)
  54.               NEXT I%
  55.               
  56.               END    '¬«¡Ñµ »α«úαá¼¼δ
  57. 
  58.                            Ä»ÑαáΓ«α OUT
  59. -----------------------------------------------------------------
  60. ìạáτÑ¡¿Ñ    OUT «ßπΘÑßΓó½∩ÑΓ óδó«ñ ó »«αΓ óó«ñá/óδó«ñá
  61.               
  62. æ¿¡Γá¬ß¿ß     OUT ¡«¼Ñα »«αΓá, µÑ½«Ñ óδαáªÑ¡¿Ñ
  63.               
  64. 諼¼Ñ¡Γáα¿⌐      OUT  »«ßδ½áÑΓ  íá⌐Γ«óπε óѽ¿τ¿¡π («Γ 0 ñ« 255) ó 
  65.               á»»áαáΓ¡δ⌐  óδσ«ñ¡«⌐  »«αΓ ß ºáñá¡¡δ¼ ¡«¼Ñα«¼,  úñÑ 
  66.               ¡«¼Ñα »«αΓá - µÑ½«Ñ óδαáªÑ¡¿Ñ ó ñ¿á»áº«¡Ñ «Γ  0  ñ« 
  67.               65535.  
  68.                  Ä»ÑαáΓ«α OUT ¡Ñ«íσ«ñ¿¼ ñ½∩ π»αáó½Ñ¡¿∩ αẽ¿τ¡δ¼¿ 
  69.               á»»áαáΓ¡δ¼¿ »«ñß¿ßΓѼἿ,  ¬á¬, ¡á»α¿¼Ñα, áñá»ΓÑα«¼ 
  70.               ßó∩º¿  ¿½¿  ó¿ñÑ«-áñá»ΓÑα«¼.  ìÑ»αáó¿½∞¡«Ñ  ¿ß»«½∞- 
  71.               º«óá¡¿Ñ   «»ÑαáΓ«αá  OUT  ¼«ªÑΓ  »α¿óÑßΓ¿  ¬  ¬αáσπ 
  72.               ß¿ßΓѼδ.  
  73.               
  74. Åα¿¼Ñα        'æτ¿Γδóá∩ í¿Γδ ß«ßΓ«∩¡¿∩, »«ñáó½∩∩ ¿ »α«»π߬á∩ í¿Γδ
  75.               'π»αáó½Ñ¡¿∩, »α«úαἼᠻ«α«ªñáÑΓ »α«¡º¿Γѽ∞¡δ⌐ ºóπ-
  76.               '¬«ó«⌐ ß¿ú¡á½ ó ñ¿¡á¼¿¬Ñ
  77.  
  78.          '¿º »«αΓá 61 (ΦÑßΓ¡áñµáΓ¿α¿τ¡«Ñ) ßτ¿ΓδóáÑΓß∩ º¡áτÑ¡¿Ñ
  79.               StatusReg%=INP(&H61)
  80.               StatusReg%=StatusReg% AND &H00FC
  81.  
  82.         '¡á ßτ¿Γá¡¡«Ñ º¡áτÑ¡¿Ñ ¡á¬½áñδóáÑΓß∩ ¼á߬á πñ½¿¡¿Γ∞ ºóπ¬,
  83.         'τΓ«íδ Ñú« ¼«ª¡« í佫 πß½δΦáΓ∞
  84.             FOR J = 1 TO 100
  85.             StatusReg%= StatusReg% XOR 2    
  86.                 OUT &H61,StatusReg%         
  87.                 delay .001
  88.               NEXT J
  89.               
  90.               END
  91. 
  92.                           Ä»ÑαáΓ«α PAINT
  93. -----------------------------------------------------------------
  94. ìạáτÑ¡¿Ñ    PAINT «¬αáΦ¿óáÑΓ «úαá¡¿τÑ¡¡πε «í½áßΓ∞ ¡á  úαáΣ¿τÑß- 
  95.               ¬«¼ φ¬αá¡Ñ ó óδíαá¡δ⌐ µóÑΓ.
  96.               
  97. æ¿¡Γá¬ß¿ß     PAINT (x,y) [[,µóÑΓ] [,úαá¡¿µá] [,Σ«¡]]
  98.               
  99. 諼¼Ñ¡Γáα¿⌐      (x,y) ºáñáεΓ Γ«τ¬π, «»αÑñѽ∩εΘπε, úñÑ ñ«½ª¡á αá-
  100.               ß»«½áúáΓ∞ß∩ ¬αá߬á.  àß½¿ φΓá Γ«τ¬á  ºáñá¡á  ó¡πΓα¿ 
  101.               «úαá¡¿τÑ¡¡«⌐  «í½áßΓ¿,  «¬αáΦ¿óáÑΓß∩  φΓá  «í½áßΓ∞. 
  102.               àß½¿ Γ«τ¬á ¡áσ«ñ¿Γß∩ ó¡Ñ úαá¡¿µδ, Γ« íπñÑΓ «¬αáΦÑ¡á 
  103.               ó¡ÑΦ¡∩∩ »« «Γ¡«ΦÑ¡¿ε ¬ «í½áßΓ¿ τáßΓ∞ φ¬αá¡á.  
  104.                  ûóÑΓ ºáñáÑΓß∩ τ¿ß½«óδ¼ ¿½¿ ß¿¼ó«½∞¡δ¼  óδαáªÑ¡¿- 
  105.               Ñ¼.  àß½¿  φΓ«  τ¿ß½«ó«Ñ óδαáªÑ¡¿Ñ,  «¡« «»αÑñѽ∩ÑΓ 
  106.               ß»½«Φ¡«⌐ µóÑΓ.  àß½¿ φΓ« ß¿¼ó«½∞¡«Ñ  óδαáªÑ¡¿Ñ,  Γ« 
  107.               «¡«  ß«ñÑαª¿Γ ¼á߬π, »« ¬«Γ«α«⌐ «í½áßΓ∞ ºá»«½¡∩ÑΓß∩ 
  108.               ¡Ñ¬«Γ«αδ¼ Φáí½«¡¡δ¼ α¿ßπ¡¬«¼.  àß½¿ µóÑΓ ¡Ñ  ºáñá¡, 
  109.               íπñÑΓ óδíαá¡ µóÑΓ ß ¡á¿í«½∞Φ¿¼ »α¿«α¿ΓÑΓ«¼.  
  110.                  âαá¡¿µá ñáÑΓ µóÑΓ ½¿¡¿¿, «úαá¡¿τ¿óáεΘÑ⌐ ºá¬αáΦ¿- 
  111.               óáѼπε  Σ¿úπαπ.   Ä¬αáΦ¿óá¡¿Ñ  »«  «»ÑαáΓ«απ  PAINT 
  112.               »αѬαáΘáÑΓß∩ Γá¼, úñÑ óßΓαÑτáÑΓß∩ µóÑΓ úαá¡¿µδ.  
  113.                  ö«¡ - φΓ« ¡Ñ«í∩ºáΓѽ∞¡á∩ ß¿¼ó«½∞¡á∩  ¼á߬á,  ¿ß- 
  114.               »«½∞ºπѼá∩  ó ΓÑσ ß½πτá∩σ,  Ñß½¿ ΓαÑíπÑΓß∩ »ÑαѬαá- 
  115.               ß¿Γ∞ «í½áßΓ¿.  ö«¡«óá∩ ¼á߬ᠫ»¿ßδóáÑΓ  "ß½«⌐"  ¿º- 
  116.               íαá¡¡δσ  ¬½ÑΓ«¬,  ¬«Γ«αδÑ  ß½ÑñπÑΓ »α«»πßΓ¿Γ∞ ¬«úñá 
  117.               »α«óÑα∩ÑΓß∩, «¬αáΦÑ¡á πªÑ «í½áßΓ∞ ¿½¿ ¡ÑΓ.  
  118.                  æ »«¼«Θ∞ε «»ÑαáΓ«αá PAINT  ¼«ª¡«  ºá¬αáß¿Γ∞  «í- 
  119.               ½áßΓ∞  ½εí«⌐ Σ«α¼δ,  ß¬«½∞ πú«ñ¡« ß½«ª¡«⌐.  é ÆôÉüÄ 
  120.               üàëæêèà  óδí«α  íá⌐Γá  ñ½∩   ¡á¡ÑßÑ¡¿∩   ¡á   φ¬αá¡ 
  121.               «ßπΘÑßΓó½∩ÑΓß∩ »« Σ«α¼π½Ñ: 
  122.               
  123.               y mod     tile     length
  124.               y αѪ¿¼   ¬½ÑΓ¬á   ñ½¿¡á
  125.               
  126.                  æ½ÑñπÑΓ πíÑñ¿Γ∞ß∩ ó Γ«¼,  τΓ« ºá¬αáΦ¿óáѼá∩  «í- 
  127.               ½áßΓ∞ ∩ó½∩ÑΓß∩ »«½¡«ßΓ∞ε ºá¼¬¡πΓ«⌐,  ¿¡áτÑ "πΓÑτ¬¿" 
  128.               τÑαѺ úαá¡¿µπ ¼«úπΓ »«½¡«ßΓ∞ε ¿ß¬áº¿Γ∞ α¿ßπ¡«¬.  
  129.                  ôß½¿ áαúπ¼Ñ¡Γ "µóÑΓ" ∩ó½∩ÑΓß∩ τ¿ß½«óδ¼,  Γ« «»Ñ- 
  130.               αáΓ«α PAINT ºá»«½¡∩ÑΓ «í½áßΓ∞ ºáñá¡¡δ¼ µóÑΓ«¼, »αÑ- 
  131.               ¬αáΘá∩  «¬αáß¬π  »α¿  »«»áñÑ¡¿¿  ¡á »¿¬ßѽδ ß áΓα¿- 
  132.               íπΓἿ "µóÑΓ" ¿½¿ "úαá¡¿µá".  
  133.                  àß½¿ "µóÑΓ" - φΓ« ß¿¼ó«½∞¡«Ñ óδαáªÑ¡¿Ñ,  Γ« »α¿- 
  134.               ¼Ñ¡∩ÑΓß∩ αáºí¿Ñ¡¿Ñ ¡á ¬½ÑΓ¬¿;  «¡« ¿ß»«½∞ºπÑΓß∩ ñ½∩ 
  135.               ß«ºñá¡¿∩ Φáí½«¡¡«ú« α¿ßπ¡¬á,  ¬«Γ«αδ¼ ºá¬αáΦ¿óáÑΓß∩ 
  136.               «í½áßΓ∞.  ÿáí½«¡¡δ⌐ α¿ßπ¡«¬, ºáñáóáѼδ⌐ ß¿¼ó«½∞¡δ¼¿ 
  137.               áαúπ¼Ñ¡ΓἿ µóÑΓá ¿¼ÑÑΓ Φ¿α¿¡π 1 íá⌐Γ  (»αÑñßΓáó½∩- 
  138.               εΘ¿⌐  4 »¿¬ßÑ½á »α¿ ßαÑñ¡Ñ¼ αáºαÑΦÑ¡¿¿ ¿ 8 »¿¬ßѽ«ó 
  139.               ó αѪ¿¼Ñ óδß«¬«ú« αáºαÑΦÑ¡¿∩) ¿ ñ½¿¡π «Γ  1  ñ«  64 
  140.               íá⌐Γ«ó  (»αÑñßΓáó½∩εΘ¿σ  «Γ 1 ñ« 64 ßΓ᫬ αáºóÑαΓ¬¿ 
  141.               »« óÑαΓ¿¬á½¿).  
  142.                  Åα¿ αáºí¿Ñ¡¿¿ ¡á ¬½ÑΓ¬¿ µóÑΓ ñ«½ªÑ¡ ¿¼ÑΓ∞ Σ«α¼áΓ 
  143.               ó¿ñá:
  144.               
  145.               CHR$(&Hnn) + CHR$(&Hnn)...
  146.               
  147.                  îá߬á ß«ßΓ«¿Γ ¿º í¿Γ«óδσ º¡áτÑ¡¿⌐ "µóÑΓá",  »Ñα- 
  148.               óδ⌐  ÑÑ  ß¿¼ó«½  »αÑñßΓáó½∩ÑΓ »Ñαóπε ½¿¡¿ε,  óΓ«α«⌐ 
  149.               ß¿¼ó«½ - óΓ«απε, ¿ Γ.ñ.  
  150.                  ìá»α¿¼Ñα, ß½ÑñπεΘá∩ ¼á߬ᠺáñáÑΓ Φáσ¼áΓ¡δ⌐ α¿ßπ- 
  151.               ¡«¬  (50%-¡δ⌐  ßÑαδ⌐ µóÑΓ) ó αѪ¿¼Ñ óδß«¬«ú« αáºαÑ- 
  152.               ΦÑ¡¿∩: 
  153.               
  154.               10101010 (»Ñαóδ⌐ íá⌐Γ)
  155.               01010101 (óΓ«α«⌐ íá⌐Γ)
  156.  
  157.                  ä½∩ Γ«ú«, τΓ«íδ ºá»«½¡¿Γ∞ «í½áßΓ∞ φΓ¿¼ Φáσ¼áΓ¡δ¼ 
  158.               α¿ßπ¡¬«¼,  ß½ÑñπÑΓ »«ßΓα«¿Γ∞ ßΓ᫬π ß  ß««ΓóÑΓßΓóπ- 
  159. 
  160.               εΘÑ⌐  ¼á߬«⌐.  æ¡áτá½á  »αÑ«íαẫóáΓ∞  ¿º  ñó«¿τ¡«⌐ 
  161.               Σ«α¼δ ó ΦÑßΓ¡áñµáΓÑα¿τ¡πε: 
  162.               
  163.               10101010=&HAA
  164.               01010101=&H55
  165.               
  166.                  çáΓѼ ß¬«¡ßΓαπ¿α«óáΓ∞ ß  »«¼«Θ∞ε  CHR$  ñóπσß¿¼- 
  167.               ó«½∞¡πε ßΓ᫬π: 
  168.              
  169.               pattern$ = CHR$(&HAA) + CHR$(&H55)
  170.               
  171.                  Å«ß½Ñ φΓ«ú«, ß »«¼«Θ∞ε «»ÑαáΓ«αá
  172.                
  173.               PAINT (50,50), pattern$
  174.               
  175.               ºá¬αáΦ¿óáÑΓ óÑß∞ φ¬αá¡ ßÑα«⌐ (Φáσ¼áΓ¡«⌐) ¬αá߬«⌐.
  176.      
  177.                  "ö«¡" ¿ß»«½∞ºπÑΓß∩ ñ½∩  Γ«ú«,  τΓ«íδ  «»αÑñѽ¿Γ∞ 
  178.               πß½«ó¿∩  «ßΓᡫ󬿠»α¿ »ÑαѬαáΦ¿óá¡¿¿ «í½áßΓ¿,  πªÑ 
  179.               «¬αáΦÑ¡¡«⌐ ß »«¼«Θ∞ε Φáí½«¡á.  àß½¿ «¬αáΦ¿óá¡¿Ñ ñ«- 
  180.               σ«ñ¿Γ ñ« »¿¬ßѽá,  ¬«Γ«α«¼π ß««ΓóÑΓßΓóπÑΓ 1 ó Σ«¡«- 
  181.               ó«⌐ ¼á߬Ñ,  «¬αáΦ¿óá¡¿Ñ ¡Ñ »αѬαáΘáÑΓß∩,  ñáªÑ Ñß½¿ 
  182.               φëà »¿¬ßѽ ¿¼ÑÑΓ µóÑΓ "úαá¡¿µδ".  Åα¿ αáºí¿ó¬Ñ ¡á 
  183.               ¬½ÑΓ¬¿,  ºáñá¡¿Ñ Φáí½«¡á ºáó¿ß¿Γ «Γ ¬«½¿τÑßΓóá µóÑ- 
  184.               Γ«óδσ áΓα¿íπΓ«ó ó  ¬áªñ«¼  αѪ¿¼Ñ  φ¬αá¡á.  æ½ÑñπÑΓ 
  185.               »«¼¡¿Γ∞, τΓ« ¬«½¿τÑßΓó« í¿Γ«ó, »α¿σ«ñ∩Θ¿σß∩ ¡á «ñ¿¡ 
  186.               »¿¬ßѽ,  ßó∩ºá¡« ß ¬«½¿τÑßΓó«¼ µóÑΓ«óδσ áΓα¿íπΓ«ó ó 
  187.               ¬áªñ«¼ αѪ¿¼Ñ φ¬αá¡á.  è«½¿τÑßΓó« í¿Γ«ó  ¡á  »¿¬ßѽ 
  188.               ¼«ª¡« óδτ¿ß½¿Γ∞ »« ß½ÑñπεΘÑ⌐ Σ«α¼π½Ñ: 
  189.               
  190.               LOG  (X)=Y
  191.                  2
  192.               
  193.               úñÑ  X- «íΘÑÑ τ¿ß½« µóÑΓ«óδσ áΓα¿íπΓ«ó óáΦÑú« φ¬αá- 
  194.               ¡á, á Y- τ¿ß½« í¿Γ«ó ¡á »¿¬ßѽ.  
  195.                                      
  196.                       Éáºí¿Ñ¡¿Ñ ¡á ¬½ÑΓ¬¿ ó αѪ¿¼Ñ 1                                   ---
  197.                --------------------------------------------------
  198.                  Åα¿  ßαÑñ¡Ñ¼  αáºαÑΦÑ¡¿¿,  ¿ß»«½∞ºπ∩  »αÑñδñπΘπε 
  199.               Σ«α¼π½π,  »«½πτáѼ:  X=4  »¿¬ßѽἠ (¬«Γ«αδÑ  »αÑñ- 
  200.               ßΓáó½∩εΓß∩ «ñ¡¿¼ ¬½ÑΓ«τ¡δ¼ íá⌐Γ«¼ ßαÑñ¡Ñú« αáºαÑΦÑ- 
  201.               ¡¿∩) ¿,  Γᬿ¼ «íαẫ¼,  Y αáó¡« ñóπ¼ í¿Γá¼ ¡á »¿¬- 
  202.               ßѽ. Å«ß¬«½∞¬π ñ½∩ ¬áªñ«ú« »¿¬ßѽᠿ¼ÑÑΓß∩ ß««ΓóÑΓ- 
  203.               ßΓóπεΘ¿⌐ µóÑΓ«ó«⌐  áΓα¿íπΓ,  »«ΓαÑíπÑΓß∩  ñóá  í¿Γá 
  204.               ¬½ÑΓ«τ¡«ú« íá⌐Γá, τΓ«íδ «»¿ßáΓ∞ «ñ¿¡ ¿º τÑΓδαÑσ áΓ- 
  205.               α¿íπΓ«ó.  
  206.                  é ß½ÑñπεΘÑ⌐ Γáí½¿µÑ »α¿óÑñÑ¡δ ñÑß∩Γ¿τ¡δÑ ¿ ΦÑßΓ- 
  207.               ¡áñµáΓα¿τ¡δÑ º¡áτÑ¡¿∩,  ß««ΓóÑΓßΓóπεΘ¿Ñ ¬áªñ«¼π áΓ- 
  208.               α¿íπΓπ: 
  209.             
  210.              ----------------------------------------------------
  211.                µóÑΓ«óá∩   áΓα¿íπΓ ó      Φáí½«¡ ó      Φáí½«¡ ó
  212.                »á½¿Γαá    ñó«¿τ¡«¼       ñó«¿τ¡«¼      HEX ¬«ñÑ
  213.                           ¬«ñÑ           ¬«ñÑ
  214.              ----------------------------------------------------
  215.                  0
  216.              ºÑ½Ñ¡δ⌐        01           01010101       &H55
  217.              ¬αáß¡δ⌐        10           10101010       &HAA
  218.              ¬«α¿τ¡.        11           11111111       &HFF              
  219.              ----------------------------------------------------
  220.                  1
  221.              µ¿á¡¿Γ         01           01010101       &H55
  222.              Σπ¬ß¿¡         10           10101010       &HAA
  223.              íѽδ⌐          11           11111111       &HAA    
  224.              ----------------------------------------------------
  225. 
  226.                            Éáºí¿Ñ¡¿Ñ ¡á ¬½ÑΓ¬¿ ó αѪ¿¼Ñ 2.
  227.                           --------------------------------
  228.                  Åα¿  óδß«¬«¼  αáºαÑΦÑ¡¿¿ »¿¬ßѽπ ß««ΓóÑΓßΓóπÑΓ 1 
  229.               í¿Γ,  τΓ« »«ºó«½∩ÑΓ ó¬½ετ¿Γ∞ ó «ñ¡π ¬½ÑΓ¬π  8  »¿¬- 
  230.               ßѽ«ó.  Æá¼,  úñÑ ó ¼á߬ѠßΓ«¿Γ 1,  ¡á φ¬αá¡Ñ íπñÑΓ 
  231.               Γ«τ¬á. æΓα«¬á ¼«ªÑΓ ß«ñÑαªáΓ∞ ñ« 64 íá⌐Γ«ó.  
  232.                  É¿ßπ¡«¬ »«ß½Ññ«óáΓѽ∞¡« ºá»«½¡∩ÑΓ  óßε  «í½áßΓ∞, 
  233.               ºá¬½ετÑ¡¡πε ó úαá¡¿µπ.  àß½¿ úαá¡¿µá ¡Ñ «»αÑñѽѡá, 
  234.               ºá¬αáΦ¿óáÑΓß∩ óÑß∞ φ¬αá¡.  
  235.  
  236.                    Éáºí¿Ñ¡¿Ñ ¡á ¬½ÑΓ¬¿ ó αѪ¿¼áσ 7,8,9,10,11 ¿ 12
  237.                    ----------------------------------------------
  238.                  ä½∩ φΓ¿σ πß¿½Ñ¡¡δσ αѪ¿¼«ó ¬½ÑΓ«τ¡δ⌐ α¿ßπ¡«¬ ºá- 
  239.               ñáÑΓß∩  ß  »«¼«Θ∞ε ¼ÑΓ«ñá,  »« ¬«Γ«α«¼π ßΓ᫬á σαá- 
  240.               ¡¿Γß∩ ¿ ¿¡ΓÑα»αÑΓ¿απÑΓß∩ ¬á¬ ßΓѬ 8-í¿Γ«óδσ φ½Ñ¼Ñ¡- 
  241.               Γ«ó,  ¿ºóÑßΓ¡δσ  ó  ß«ó«¬π»¡«ßΓ¿  ¬á¬ í¿Γ«óá∩ »½«ß- 
  242.               ¬«ßΓ∞.  é« óßÑσ αѪ¿¼áσ φ¬αá¡á ΓαÑíπÑΓß∩ 4  í¿Γ«óδσ 
  243.               »½«ß¬«ßΓ¿,  τΓ«íδ  «»αÑñѽ¿Γ∞  «ñ¿¡ ¬½ÑΓ«τ¡δ⌐ íá⌐Γ, 
  244.               ¬α«¼Ñ αѪ¿¼á 10,  ó  ¬«Γ«α«¼  ΓαÑíπÑΓß∩  2  í¿Γ«óδσ 
  245.               »½«ß¬«ßΓ¿.  
  246.               
  247. Åα¿¼Ñα        ' êß»«½∞º«óá¡¿Ñ ¬½ÑΓ«τ¡δσ α¿ßπ¡¬«ó
  248.               SCREEN 1 : CLS
  249.               
  250.               ' Ä»αÑñѽѡ¿Ñ ¬½ÑΓ«τ¡«ú« Φáí½«¡á ñ½∩ ñ¿áú«¡á½Ñ⌐
  251.              TIL$=CHR$(&H40)+CHR$(&H40)+CHR$(&H10)+CHR$(&H10)+_
  252.                   CHR$(4)+CHR$(4)+CHR$(1)+CHR$(1)
  253.              CIRCLE(100,100),50
  254.              PAINT (100,100),TIL$
  255.             
  256.             ' «»αÑñѽѡ¿Ñ ¬½ÑΓ«τ¡«ú« Φáí½«¡á ñ½∩ Φáσ¼áΓ¡«ú«
  257.             ' α¿ßπ¡¬á
  258.            TIL2$=CHR$(&HAA)+CHR$(&HAA)+CHR$(&H80)+CHR$(&H80)+_
  259.                  CHR$(&H80)+CHR$(&H80)+CHR$(&H80)+CHR$(&H80)
  260.            CIRCLE(225,100),50
  261.            PAINT (225,100),TIL2$
  262. 
  263.                  Ä»ÑαáΓ«α PALETTE ¿ PALETTE USING
  264. -----------------------------------------------------------------
  265. ìạáτÑ¡¿Ñ    PALETTE ¿ PALETTE USING »«ºó«½∩εΓ ¿º¼Ñ¡∩Γ∞ «ñ¿¡ ¿½¿
  266.               ¡Ñ߬«½∞¬«  µóÑΓ«ó »á½¿Γαδ.  (ä½∩ ¿ß»«½∞º«óá¡¿∩ φΓ¿σ 
  267.               «»ÑαáΓ«α«ó   ¡Ñ«íσ«ñ¿¼δ   ÉáßΦ¿αÑ¡¡δ⌐   âαáΣ¿τÑ߬¿⌐ 
  268.               Çñá»ΓÑα  (EGA)  ¿½¿  é¿ñÑ«  âαáΣ¿τÑ߬¿⌐ è«¼»½Ñ¬ß¡δ⌐ 
  269.               Çñá»ΓÑα (VGA)).  
  270.               
  271. æ¿¡Γá¬ß¿ß     PALETTE [áΓα¿íπΓ,µóÑΓ]
  272.               PALETTE USING ¿¼∩ µÑ½«ú« ¼áßß¿óá (¿¡ñѬߠ¼áßß¿óá)
  273.               
  274. 諼¼Ñ¡Γáα¿⌐      áΓα¿íπΓ »αÑñßΓáó½∩ÑΓ µóÑΓ ó »á½¿ΓαÑ, µóÑΓ - ñÑ⌐-
  275.               ßΓó¿Γѽ∞¡δ⌐ µóÑΓ φ¬αá¡á,  ºá¼Ñ¡∩εΘ¿⌐ áΓα¿íπΓ »á½¿Γ- 
  276.               αδ.  ûóÑΓ, óδó«ñ¿¼δ⌐ ¡á óáΦ φ¬αá¡, ºáó¿ß¿Γ «Γ πßΓá- 
  277.               ¡«ó½Ñ¡¡«ú«  αѪ¿¼á  φ¬αá¡á  ¿  á»»áαáΓπαδ   ñ¿ß»½Ñ∩ 
  278.               (ß¼.«»ÑαáΓ«α SCREEN).  
  279.                  Ä»ÑαáΓ«α  PALETTE »«ºó«½∩ÑΓ ¿º¼Ñ¡∩Γ∞ µóÑΓ ΓѬßΓá 
  280.               ¿½¿ úαáΣ¿¬¿ ¡Ñ»«ßαÑñßΓóÑ¡¡« ¡á φ¬αá¡Ñ, ºáñá¡¡δÑ ¿º- 
  281.               ¼Ñ¡Ñ¡¿∩ ó½¿∩εΓ ¡á »«ß½ÑñπεΘÑÑ ó«ß»α«¿ºóÑñÑ¡¿Ñ  ΓѬ- 
  282.               ßΓá ¿½¿ úαáΣ¿¬¿. ¥Γ« πñ«í¡«Ñ ßó«⌐ßΓó«, ¬«Γ«α«Ñ »«º- 
  283.               ó«½∩ÑΓ  ¡Ñ  »ÑαÑ»ÑτáΓδóáΓ∞ ΓѬßΓ ¿½¿ »ÑαÑα¿ß«óδóáΓ∞ 
  284.               úαáΣ¿¬π, Ñß½¿ óδ σ«Γ¿ΓÑ ¿º¼Ñ¡¿Γ∞ µóÑΓ (ß¼.»α¿¼Ñα).  
  285.                  PALETTE ΓᬪѠ»«ºó«½∩ÑΓ ºá¡«ß¿Γ∞ ó »á½¿Γαπ ¡«¼Ñ-
  286.               αá µóÑΓ«ó, í«½∞ΦÑ 15.  î«ª¡« ñáªÑ ßñѽáΓ∞ ΓѬßΓ ¡Ñ- 
  287.               ó¿ñ¿¼δ¼ «Γ¡«ß¿Γѽ∞¡« Σ«¡á,  á ºáΓѼ,  ¿º¼Ñ¡¿ó ó »á- 
  288.               ½¿ΓαÑ Ñú« µóÑΓ, "ó¡Ñºá»¡«" óδßóÑΓ¿Γ∞ Ñú«.  
  289.                  àß½¿ ó «»ÑαáΓ«αÑ PALETTE ¡Ñ  π¬áºá¡δ  áαúπ¼Ñ¡Γδ, 
  290.               µóÑΓá  ó »á½¿ΓαÑ πßΓá¡áó½¿óáεΓß∩ »« π¼«½τá¡¿ε ó ß«- 
  291.               «ΓóÑΓßΓó¿¿ ß «»αÑñѽѡ¿Ñ¼.  
  292.                  PALETTE USING »«ºó«½∩ÑΓ ºáñáóáΓ∞ ßαáºπ ¡Ñ߬«½∞¬« 
  293.               ¿º¼Ñ¡Ñ¡¿⌐ µóÑΓ«ó ß »«¼«Θ∞ε Ññ¿¡ßΓóÑ¡¡«ú« «»ÑαáΓ«αá. 
  294.               ê¼∩ µÑ½«τ¿ß½Ñ¡¡«ú« ¼áßß¿óá ºáñáÑΓ ¼áßß¿ó ñá¡¡δσ ñ½∩ 
  295.               ¿º¼Ñ¡Ñ¡¿∩ µóÑΓ«ó »á½¿Γαδ. ê¡ñѬߠ¼áßß¿óá ºáñáÑΓ »Ñ- 
  296.               αóδ⌐ φ½Ñ¼Ñ¡Γ ¼áßß¿óá (ó í«½∞Φ¿¡ßΓóÑ ß½πτáÑó  -  0).  
  297.               ÉẼÑα¡«ßΓ∞ ¼áßß¿óá ñ«½ª¡á íδΓ∞ ñ«ßΓáΓ«τ¡« í«½∞Φ«⌐, 
  298.               τΓ«íδ  Ñú«  φ½Ñ¼Ñ¡Γδ,  ¡áτ¿¡á∩  ß ºáñá¡¡«ú« ¿¡ñѬßá 
  299.               ¼áßß¿óá,  ¼«ú½¿ ó¼ÑßΓ¿Γ∞  óßÑ  16  µóÑΓ«ó  »á½¿Γαδ.  
  300.               èáªñ«¼π  áΓα¿íπΓπ  »á½¿Γαδ »«ßΓáó½Ñ¡ ó ß««ΓóÑΓßΓó¿Ñ 
  301.               µóÑΓ, ¡«¼Ñα ¬«Γ«α«ú« ºáñá¡ ó µÑ½«τ¿ß½Ñ¡¡«¼ ¼áßß¿óÑ.  
  302.                  ç¡áτÑ¡¿Ñ  µóÑΓá  -1 ó «ñ¡«¼ ¿º φ½Ñ¼Ñ¡Γ«ó ¼áßß¿óá 
  303.               ¡Ñ ó½¿∩ÑΓ ¡á ß««ΓóÑΓßΓóπεΘ¿⌐ áΓα¿íπΓ ó »á½¿ΓαÑ, «ñ- 
  304.               ¡á¬«,  óßÑ  «ßΓá½∞¡δÑ  «Γα¿µáΓѽ∞¡δÑ º¡áτÑ¡¿∩ µóÑΓá 
  305.               ¡Ññ«»πßΓ¿¼δ.  
  306.                  ì¿ªÑ  »α¿óÑñÑ¡δ ñ¿á»áº«¡δ áΓα¿íπΓ«ó ¿ µóÑΓ«ó ñ½∩ 
  307.               αẽ¿τ¡δσ αѪ¿¼«ó φ¬αá¡«ó ¿ ¼«¡¿Γ«α«ó: 
  308.               
  309.                   Æáí½¿µá 5-1  ä¿á»áº«¡δ µóÑΓ«ó ¿ áΓα¿íπΓ«ó
  310.               -------------------------------------------------
  311.               ÉѪ¿¼   î«¡¿Γ«α      ÇΓα¿íπΓδ      ûóÑΓá    
  312.               -------------------------------------------------
  313.                0      î«¡«/EGA       0-15         0-2
  314.                       ûóÑΓ/EGA       0-31         0-15
  315.                1      ûóÑΓ/EGA       0-3          0-15
  316.                2      ûóÑΓ/EGA       0-1          0-15
  317.                7      ûóÑΓ/EGA       0-15         0-15
  318.                8      ûóÑΓ/EGA       0-15         0-15
  319.                9      EGA  (64K)     0-3          0-15
  320.                       EGA (>64K)     0-15         0-63
  321.               10      î«¡«/EGA       0-3          0-8
  322.               11      MCGA/VGA       0-1          0-1
  323.               12      VGA            0-15         0-15
  324.               -------------------------------------------------
  325. î«¡« = î«¡«σα«¼¡δ⌐; EGA  = IBM Enhanced Graphics Adapter 
  326.                                 ÉáßΦ¿αÑ¡¡δ⌐ âαáΣ¿τÑ߬¿⌐ Çñá»ΓÑα
  327.                     VGA  = Video Graphics Array Adapter
  328.                            é¿ñÑ«-âαáΣ¿τÑ߬¿⌐µ Çñá»ΓÑα
  329.                     MCGA = Multi-Colors Graphics Array Adapter
  330.                             î¡«ú«µóÑΓ¡δ⌐ âαáΣ¿τÑ߬¿⌐ Çñá»ΓÑα
  331. 
  332. Äúαá¡¿τÑ¡¿Ñ      êß»«½∞º«óá¡¿Ñ «»ÑαáΓ«α«ó PALETTE ¿ PALETTE USING 
  333.               ó«º¼«ª¡« Ñß½¿ ÑßΓ∞ ó ¡á½¿τ¿¿ ÉáßΦ¿αÑ¡¡δ⌐  âαáΣ¿τÑß-
  334.               ¬¿⌐ Çñá»ΓÑα.  
  335.               
  336. æ¼.ΓᬪѠ     COLOR     DRAW     SCREEN
  337.               
  338. Åα¿¼Ñα        ' ó ß½ÑñπεΘѼ »α¿¼ÑαÑ »«¬áºá¡«, ¬á¬ ¿ß»«½∞º«óáΓ∞
  339.               ' «»ÑαáΓ«α PALETTE ñ½∩ Γ«ú«, τΓ«íδ ¿º¼Ñ¡¿Γ∞
  340.               ' µóÑΓ úαáΣ¿¬¿ (¿ ΓѬßΓá) íѺ »«óΓ«α¡«ú«
  341.               ' α¿ß«óá¡¿∩ ¿½¿ ó«ß»α«¿ºóÑñÑ¡¿∩ α¿ßπ¡¬á
  342.               
  343.               SCREEN 8   'πßΓá¡«ó¿Γ∞ ñ½∩ EGA αѪ¿¼ 640x200, 
  344.                          '16 µóÑΓ«ó
  345.               PALETTE    'πßΓá¡áó½¿óáÑΓ ñ½∩ EGA »á½¿Γαπ µóÑΓ«ó
  346.                          '»« π¼«½τá¡¿ε
  347.         LINE (10,10)-(630,190),1,BF  '¡áα¿ß«óáΓ∞ »α∩¼«πú«½∞¡¿¬
  348.                                      'ºá¬αáß¿Γ∞ Ñú« ß¿¡¿¼ µóÑΓ«¼
  349.               DO
  350.                FOR I% = 2 TO 14
  351.                  PALETTE 1,I%              'ºá¼Ñ¡¿Γ∞ ß¿¡¿⌐ µóÑΓ
  352.                  DELAY .2                  'πßΓá¡«ó¿Γ∞ ºáñÑ᪬π
  353.                NEXT I%
  354.               LOOP UNTIL INSTAT
  355.               END
  356. 
  357.                           öπ¡¬µ¿∩  PEEK
  358. -----------------------------------------------------------------
  359. ìạáτÑ¡¿Ñ    PEEK ó«ºóαáΘáÑΓ íá⌐Γ, σαá¡∩Θ¿⌐ß∩  ó ºáñá¡¡«⌐ ∩τÑ⌐¬Ñ 
  360.               »á¼∩Γ¿
  361.               
  362. æ¿¡Γá¬ß¿ß     y = PEEK (ß¼ÑΘÑ¡¿Ñ)
  363.               
  364. 諼¼Ñ¡Γáα¿⌐      æ¼ÑΘÑ¡¿Ñ - φΓ« τ¿ß½«ó«Ñ óδαáªÑ¡¿Ñ ó ñ¿á»áº«¡Ñ «Γ 
  365.               0 ñ« 65535,  ¬«Γ«α«Ñ »αÑñßΓáó½∩ÑΓ ß«í«⌐  16-í¿Γ«ó«Ñ 
  366.               ß¼ÑΘÑ¡¿Ñ «Γ ΓѬπΘÑú« φ½Ñ¼Ñ¡Γá,  πßΓá¡«ó½Ñ¡¡«ú« »«ß- 
  367.               ½Ññ¡¿¼ «»ÑαáΓ«α«¼ DEF  SEG.  é«ºóαáΘáѼ«Ñ  º¡áτÑ¡¿Ñ 
  368.               ¼«ªÑΓ íδΓ∞ «Γ 0 ñ« 255.  
  369.                  PEEK ¿ ñ«»«½¡∩εΘ¿⌐ Ñú« «»ÑαáΓ«α POKE «ßπΘÑßΓó½∩- 
  370.               εΓ ñ«ßΓπ» ¬ »á¼∩Γ¿ ¡á í«½ÑÑ ¡¿º¬«¼ πα«ó¡Ñ,  τѼ «ß- 
  371.               ¡«ó¡δÑ  «»Ñαᵿ¿ ÆôÉüÄ üàëæêèÇ.  Äñ¡« ¿º »α¿¼Ñ¡Ñ¡¿⌐ 
  372.               PEEK ¿ POKE ß«Γ«¿Γ ó ß«ºñá¡¿¿  ¼áßß¼ó«ó  ¿º  íá⌐Γ«ó 
  373.               ñ½∩  »α¿½«ªÑ¡¿⌐,  ¡Ñ  ΓαÑíπεΘ¿σ  »«½¡«ú«  ñ¿á»áº«¡á 
  374.               ñ«»πßΓ¿¼δσ µÑ½δσ τ¿ßѽ («Γ -32768 ñ« +32767).  
  375.               
  376. æ¼.ΓᬪѠ     DEF SEG      POKE
  377.               
  378. Åα¿¼Ñα        DIM Array%(5)     'αẼÑΘÑ¡¿Ñ ¼áßß¿óá ¿º 6 µÑ½δσ 
  379.                                 'φ½Ñ¼Ñ¡Γ«ó
  380.               
  381.               DEF SEG = VARSEG (Array%(0))
  382.               
  383.               ' ¿¡¿µ¿á½¿ºáµ¿∩ ¼áßß¿óá ß »«¼«Θ∞ε «»ÑαáΓ«αá POKE
  384.               FOR I% = 0 TO 11
  385.                 POKE I%, &HFF
  386.               NEXT I%
  387.               
  388.            ' óδó«ñ ß«ñÑন¼«ú« ¼áßß¿óá ß »«¼«Θ∞ε «»ÑαáΓ«αá PEEK
  389.               FOR I% = 0 TO 11
  390.                 PRINT HEX$ (PEEK(I%))
  391.               NEXT I%
  392.               
  393.               END          '¬«¡Ñµ »α«úαá¼¼δ
  394. 
  395.                            öπ¡¬µ¿∩ PEN
  396. -----------------------------------------------------------------
  397. ìạáτÑ¡¿Ñ    PEN τ¿ΓáÑΓ ß«ßΓ«∩¡¿Ñ ßóÑΓ«ó«ú« »Ñαá
  398.               
  399. æ¿¡Γá¬ß¿ß     y = PEN (óáα¿á¡Γ)
  400.               
  401. çá¼Ñτá¡¿∩        éáα¿á¡Γ - τ¿ß½«,  π»αáó½∩εΘÑÑ ¿¡Σ«α¼áµ¿Ñ⌐,  ó«º-
  402.               óαáΘáѼ«⌐ Σπ¡¬µ¿Ñ⌐ PEN ß«ú½áß¡« ß½ÑñπεΘÑ⌐ Γáí½¿µÑ: 
  403.               
  404.               ---------------------------------------------------
  405.               éáα¿á¡Γ            ç¡áτÑ¡¿Ñ
  406.               ---------------------------------------------------
  407.  
  408.                 0        ÅÑα« «»πΘÑ¡« ß ¼«¼Ñ¡Γá »«ß½Ññ¡Ñ⌐ 
  409.                          »α«óÑન (-1 = ñá, 0 = ¡ÑΓ)
  410.               
  411.                 1        X ¬««αñ¿¡áΓá »«ß½Ññ¡Ñ⌐ á¬Γ¿ó¿ºáµ¿¿ »Ñαá
  412.               
  413.                 2        Y ¬««αñ¿¡áΓá »«ß½Ññ¡Ñ⌐ á¬Γ¿ó¿ºáµ¿¿ »Ñαá
  414.               
  415.                 3        ΓѬπΘÑÑ »«½«ªÑ¡¿Ñ »ÑαѬ½ετáΓѽ∩ 
  416.                          (-1 = ó¡¿º, 0 = óóÑασ)
  417.               
  418.                 4        »«ß½Ññ¡ÑÑ º¡áτÑ¡¿Ñ X ¬««αñ¿¡áΓδ
  419.               
  420.                 5        »«ß½Ññ¡ÑÑ º¡áτÑ¡¿Ñ Y ¬««αñ¿¡áΓδ
  421.               
  422.                 6        ßΓ᫬á, úñÑ »«ß½Ññ¡¿⌐ αẠí佫 
  423.                          á¬Γ¿ó¿º¿α«óá¡« »Ñα« (1-24)
  424.               
  425.                 7        ¬«½«¡¬á, úñÑ »«ß½Ññ¡¿⌐ αẠí佫 
  426.                          á¬Γ¿ó¿º¿α«óá¡« »Ñα« (1-80)
  427.               
  428.                 8        »«ß½Ññ¡∩∩ ßΓ᫬á (1-24)
  429.               
  430.                 9        »«ß½Ññ¡∩∩ ¬«½«¡¬á (1-80)
  431.               
  432.                --------------------------------------------------
  433.               
  434.                  æóÑΓ«ó«Ñ  »Ñα«  ñ«½ª¡«  íδΓ∞ ó¬½ετÑ¡« «»ÑαáΓ«α«¼ 
  435.               PEN  ON  »αѪñÑ,   τѼ  íπñπΓ  óδ»«½¡∩Γ∞ß∩  ºá»α«ßδ 
  436.               Σπ¡¬µ¿¿ PEN.  
  437.               
  438. Åα¿¼Ñα        ON PEN GOSUB PenHandler  'ºáñá¡¿Ñ »«ñ»α«úαá¼¼δ 
  439.                                        '«íαáí«Γ¬¿ ß«íδΓ¿∩
  440.               
  441.               PEN ON      'ó¬½ετ¿Γ∞ »αÑαδóá¡¿Ñ »« ß«íδΓ¿ε
  442.               
  443.               PRINT "ì᪼¿ΓÑ ½εíπε ¬½áó¿Φπ ñ½∩ ºáóÑαΦÑ¡¿∩"...
  444.               WHILE NOT INSTAT
  445.               WEND
  446.               END         '¬«¡Ñµ »α«úαá¼¼δ
  447.               
  448.               PenHandler:
  449.                  FOR I% = 1 TO 9
  450.                    PRINT PEN(I%)
  451.                  NEXT I%
  452.               RETURN
  453. 
  454.                            Ä»ÑαáΓ«α PEN
  455. ----------------------------------------------------------------
  456.               
  457. ìạáτÑ¡¿Ñ    PEN π»αáó½∩ÑΓ »α«óÑᬫ⌐ ß«íδΓ¿⌐ »« ßóÑΓ«ó«¼π »Ñαπ
  458.               
  459. æ¿¡Γá¬ß¿ß     PEN {ON | OFF | STOP}
  460.               
  461. 諼¼Ñ¡Γáα¿⌐      Ä»ÑαáΓ«α  PEN  π»αáó½∩ÑΓ »α«óÑᬫ⌐ ß«íδΓ¿⌐, ßó∩- 
  462.               ºá¡¡δσ  ß«  ßóÑΓ«óδ¼ »Ñα«¼.  ä« óδ»«½¡Ñ¡¿∩ ºá»α«ß«ó 
  463.               Σπ¡¬µ¿¿ PEN,  ßóÑΓ«ó«Ñ »Ñα« ñ«½ª¡« íδΓ∞ ó¬½ετÑ¡«  ß 
  464.               »«¼«Θ∞ε  «»ÑαáΓ«αá  PEN ON.  PEN ON αáºαÑΦáÑΓ ΓᬪѠ
  465.               «íαáí«Γ¬π »αÑαδóá¡¿⌐  »«  ß«íδΓ¿-∩¼,  ßó∩ºá¡¡δ¼  ß« 
  466.               ßóÑΓ«óδ¼  »Ñα«¼,  ß  »«¼«Θ∞ε »α«µÑñπαδ,  ºáñá¡¡«⌐ ó 
  467.               «»ÑαáΓ«αÑ ON PEN.  
  468.                  PEN  OFF  í½«¬¿απÑΓ  Σπ¡¬µ¿ε PEN ¿ «Γ¼Ñ¡∩ÑΓ »α«- 
  469.               óÑα¬π ß«íδΓ¿⌐, ßó∩ºá¡¡δσ ß« ßóÑΓ«óδ¼ »Ñα«¼.  
  470.                  PEN STOP «Γ¼Ñ¡∩ÑΓ »αÑαδóá¡¿∩ »« ß«íδΓ¿∩¼, ¡« ºá- 
  471.               »«¼¿¡áÑΓ  φΓ¿ ß«íδΓ¿∩ Γá¬,  τΓ« Ñß½¿ ñá½ÑÑ óδ»«½¡∩- 
  472.               ÑΓß∩ PEN ON, ¡Ñ¼Ññ½Ñ¡¡« ó«º¡¿¬áÑΓ »αÑαδóá¡¿Ñ.  
  473.               
  474. æ¼.ΓᬪѠ     ON PEN
  475.               
  476. Åα¿¼Ñα        ON PEN GOSUB PenHandler
  477.               ' ºáñá¡¿Ñ »«ñ»α«úαá¼¼δ  «íαáí«Γ¬¿ ß«íδΓ¿∩
  478.               
  479.               PEN ON      'ó¬½ετ¿Γ∞ »αÑαδóá¡¿Ñ »« ß«íδΓ¿ε
  480.               
  481.               
  482.               PRINT  "ì᪼¿ΓÑ ½εíπε ¬½áó¿Φπ ñ½∩ »α«ñ«½ªÑ¡¿∩..."
  483.               WHILE NOT INSTAT
  484.               WEND
  485.               
  486.               END       '¬«¡Ñµ »α«úαá¼¼δ
  487.               
  488.               PenHandler|
  489.                 FOR I% = 1 TO 9
  490.                   PRINT   PEN(I%)
  491.                 NEXT I
  492.               RETURN
  493. 
  494.                            öπ¡¬µ¿∩ PLAY
  495. -----------------------------------------------------------------
  496. ìạáτÑ¡¿Ñ    PLAY  ó«ºóαáΘáÑΓ  τ¿ß½«  ¡«Γ  ó Σ«¡«ó«¼ ¼πºδ¬á½∞¡«¼ 
  497.               íπΣÑαÑ
  498.               
  499. æ¿¡Γá¬ß¿ß     y = PLAY (x)
  500.               
  501. 諼¼Ñ¡Γáα¿⌐      x - φΓ« Σ¿¬Γ¿ó¡δ⌐ τ¿ß½«ó«⌐ áαúπ¼Ñ¡Γ.
  502.  
  503.                  PLAY  ó«ºóαáΘáÑΓ  τ¿ß½«  ¡«Γ  ó  Σ«¡«ó«¼  íπΣÑαÑ 
  504.               »«ñú«Γ«ó¬¿ ¼πºδ¬¿,  ªñπΘ¿σ ¿ß»«½¡Ñ¡¿∩.  àß½¿ ¼πºδ¬á 
  505.               ¿ß»«½¡∩ÑΓß∩   ß   óδß«¬¿¼   »α¿«α¿ΓÑΓ«¼   ¿½¿    ¡Ñ 
  506.               ¿ß»«½¡∩ÑΓß∩ ß«óßѼ, PLAY ó«ºóαáΘáÑΓ 0.  
  507.                            
  508. æ¼.ΓᬪѠ     $SOUND
  509.               
  510. Åα¿¼Ñα        ' êß»«½¡Ñ¡¿Ñ ñ«-αÑ-¼¿-Σá-ß«½∞
  511.               PLAY "MB CDEFG"
  512.               
  513.               Again:
  514.                n = PLAY(1)     '¼«ªÑΓ ½¿ íδΓ∞ τΓ«-¡¿íπñ∞ ßδúαá¡«
  515.                  PRINT        n "¡«Γ «ßΓὫß∞ ó íπΣÑαÑ"
  516.                  IF n = 0 THEN PRINT  "üπΣÑα »πßΓ" : END
  517.               GOTO Again
  518. 
  519.                           Ä»ÑαáΓ«α PLAY
  520. -----------------------------------------------------------------
  521. ìạáτÑ¡¿Ñ    PLAY ß«ºñáÑΓ ¼πºδ¬π
  522.               
  523. æ¿¡Γá¬ß¿ß     PLAY ß¿¼ó«½∞¡«Ñ-óδαáªÑ¡¿Ñ
  524.               
  525. 諼¼Ñ¡Γáα¿⌐      PLAY - ¿¡ΓÑα»αÑΓ¿απѼδ⌐ ¼¿¡¿-∩ºδ¬, ¬«Γ«αδ⌐ ¿úαá-
  526.               ÑΓ  ñ½∩ ¼πºδ¬¿ Γπ ªÑ α«½∞,  τΓ« ¿ DRAW ñ½∩ úαáΣ¿¬¿. 
  527.               PLAY »«ºó«½∩ÑΓ  ºáñáóáΓ∞  ¼πºδ¬á½∞¡δÑ  »áßßᪿ  ¬á¬ 
  528.               »«ß½Ññ«óáΓѽ∞¡«ßΓ∞  ß¿¼ó«½«ó ó ß¿¼ó«½∞¡«¼-óδαáªÑ¡¿¿ 
  529.               ¿ ¿ß»«½¡∩Γ∞ ¿σ ß »«¼«Θ∞ε ñ¿¡á¼¿¬á ¬«¼»∞εΓÑαá.  
  530.                  î«ª¡«  ¿ß»«½∞º«óáΓ∞  84  ¡«Γδ,   ß««ΓóÑΓßΓóπεΘ¿Ñ 
  531.               í«½∞Φ¿¡ßΓó𠬽áó¿Φ ¡á »¿á¡¿¡«, ¡áτ¿¡á∩ ß ¡«Γ ¡á Γα¿ 
  532.               «¬Γáóδ ¡¿ªÑ ßαÑñ¡Ñú« "ñ«" ¿ ñ« τÑΓδαÑσ,  íѺ  «ñ¡«⌐ 
  533.               ¡«Γδ,  «¬Γáó  óδΦÑ  ßαÑñ¡Ñú« "ñ«".  ì«Γá ¼«ªÑΓ íδΓ∞ 
  534.               »αÑñßΓáó½Ñ¡á ßó«¿¼ ¡«¼Ñα«¼ »« »«α∩ñ¬π (1-84) ¿½¿  ß 
  535.               »«¼«Θ∞ε ¡Ñ»«ßαÑñßΓóÑ¡¡«ú« «»¿ßá¡¿∩ (Γ« ÑßΓ∞ «Γ A ñ« 
  536.               G ß ñ¿Ñºá¼¿ ¿ íѼ«½∩¼¿ ¿ π¬áºá¡¿Ñ¼ «¬Γáóδ).  
  537.                  ìá»α¿¼Ñα, PLAY "N44" ¿ß»«½¡∩ÑΓ 44-ε ¡«Γπ "ß«½∞", 
  538.               ß½ÑñπεΘπε  ºá  ßαÑñ¡¿¼  "ñ«".  PLAY "O3G" ¿ß»«½¡∩ÑΓ 
  539.               "ß«½∞" ó ΓαÑΓ∞Ñ⌐ «¬ΓáóÑ (Γπ ªÑ ¡«Γπ).  
  540.                  Ä»ÑαáΓ«αδ ºáñá¡¿∩ ¡«Γ ¼«úπΓ íδΓ∞ ßúαπ»»¿α«óá¡δ ó 
  541.               í«½ÑÑ ñ½¿¡¡δÑ ¬«¼á¡ñ¡δÑ »«ß½Ññ«óáΓѽ∞¡«ßΓ¿: 
  542.               
  543.               PLAY "O3FGA"
  544.               
  545.               ¿ß»«½¡∩ÑΓ Γα¿ ¡«Γδ "Σá",  "ß«½∞" ¿ "½∩"  ó  ΓαÑΓ∞Ñ⌐ 
  546.               «¬ΓáóÑ.    îπºδ¬á½∞¡δ⌐   ¿¡ΓÑα»αÑΓáΓ«α   ¿ú¡«α¿απÑΓ 
  547.               »α«íѽδ,  »«φΓ«¼π ¿σ ß½ÑñπÑΓ ¿ß»«½∞º«óáΓ∞ ñ½∩ Γ«ú«, 
  548.               τΓ«íδ ßñѽáΓ∞ ¬«¼á¡ñπ í«½ÑÑ »«¡∩Γ¡«⌐.  
  549.               
  550.               è«¼á¡ñδ
  551.               
  552.                  æ½ÑñπεΘ¿Ñ «ñ¡«- ¿  ñóπσß¿¼ó«½∞¡δÑ  ¬«¼á¡ñδ  ß«ß- 
  553.               Γáó½∩εΓ ∩ºδ¬ «»ÑαáΓ«αá PLAY: 
  554.               
  555.               ¡«Γá [{ # | + | - }]
  556.                
  557.               Σ«α¼¿απÑΓ   ¡«Γπ,   ß««ΓóÑΓßΓóπεΘπε   ßΓα«τ¡«⌐  ¿½¿ 
  558.               »α«»¿ß¡«⌐ íπ¬óÑ «Γ A ñ« G.  é¬½ετÑ¡¿Ñ ñ¿Ñºá (#  ¿½¿ 
  559.               +)  ¿½¿ íѼ«½∩ (-) »«ß½Ñ íπ¬óδ,  «í«º¡áτáεΘÑ⌐ ¡«Γπ, 
  560.               »«ºó«½∩ÑΓ  óδíαáΓ∞  ºáñá¡¡πε  τÑα¡πε   ¬½áó¿Φπ   ¡á 
  561.               »¿á¡¿¡«.  Äñ¡á¬«  ¡Ñ½∞º∩ ß »«¼«Θ∞ε ñ¿Ñº«ó ¿ íѼ«½Ñ⌐ 
  562.               óδí¿αáΓ∞  íѽπε  ¬½áó¿Φπ;   Γá¬,   ¡á»α¿¼Ñα,   "F-" 
  563.               ¡Ññ«»πßΓ¿¼«.  
  564.               
  565.               Nn
  566.                  çáñáÑΓ  ¡«Γπ  n,  úñÑ n - τ¿ß½«ó«Ñ »αÑñßΓáó½Ñ¡¿Ñ 
  567.               ¡«Γδ «Γ 1 ñ« 84. ì«Γá 1 - ¡¿ª¡ÑÑ "ñ«" »¿á¡¿¡«, 84 - 
  568.               óÑασ¡ÑÑ "ß¿".  æαÑñ¡ÑÑ "ñ«" - ¡«Γá ¡«¼Ñα 37. ì«Γá 0 
  569.               ¡Ñ ß«ºñáÑΓ ºóπ¬á ¿ ß««ΓóÑΓßΓóπÑΓ »áπºÑ.  
  570.   
  571.               On
  572.                  éδí¿αáÑΓ «¬Γáóπ n,  úñÑ n  «Γ  0  ñ«  6.  èáªñá∩ 
  573.               «¬Γáóá  ¡áτ¿¡áÑΓß∩  ß  "ñ«"  ¿  ºá¬á¡τ¿óáÑΓß∩ "ß¿". 
  574.               æαÑñ¡ÑÑ  ñ«  -  »Ñαóá∩  ¡«Γá  ΓαÑΓ∞Ñ⌐  «¬Γáóδ.   Å« 
  575.               π¼«½τá¡¿ε óδí¿αáÑΓß∩ «¬Γáóá 4.  
  576.               
  577.               >n
  578.                  ôóѽ¿τ¿óáÑΓ ΓѬπΘπε «¬Γáóπ ¡á 1 ¿ ºáñáÑΓ ¡«Γπ n. 
  579.               àß½¿ ΓѬπΘá∩ «¬Γáóá - ΦÑßΓá∩ (ßá¼á∩ óδß«¬á∩), ¡«¼Ñα 
  580.               «¬Γáóδ ¡Ñ πóѽ¿τ¿óáÑΓß∩ («ßΓáÑΓß∩ 6).  
  581.               
  582.               <n
  583.                  ô¼Ñ¡∞ΦáÑΓ  ΓѬπΘπε  «¬Γáóπ ¡á 1 ¿ ºáñáÑΓ ¡«Γπ n. 
  584.               àß½¿  ΓѬπΘá∩  «¬Γáóá  -   0-á∩   (ßá¼á∩   ¡¿ª¡∩∩), 
  585.               óδíαá¡¡á∩ «¬Γáóá «ßΓáÑΓß∩ 0-«⌐.  
  586. 
  587.               Ln
  588.                  ôßΓá¡áó½¿óáÑΓ   ñ½¿Γѽ∞¡«ßΓ∞   »«ß½ÑñπεΘ¿σ   ¡«Γ 
  589.               ß«ú½áß¡« Γáí½¿µÑ: 
  590.                  L1   µÑ½á∩
  591.                  L2   »«½«ó¿¡á
  592.                  L4   «ñ¡á τÑΓóÑαΓ∞
  593.                  L8   «ñ¡á ó«ß∞¼á∩
  594.                  L16  «ñ¡á ΦÑßΓ¡áñµáΓá∩
  595.                  .
  596.                  .
  597.                  .
  598.                  L64  «ñ¡á ΦÑßΓ∞ñÑß∩Γ τÑΓóÑαΓá∩
  599.  
  600.                  ä«»πßΓ¿¼δ ΓᬪѠ»α«¼ÑªπΓ«τ¡δÑ º¡áτÑ¡¿∩ (ΓᬠL5 - 
  601.               »αáó¿½∞¡«Ñ º¡áτÑ¡¿Ñ ñ½¿Γѽ∞¡«ßΓ¿).  ìá¿í«½∞ΦÑÑ  ñ«- 
  602.               »πßΓ¿¼«Ñ º¡áτÑ¡¿Ñ n - 64.  
  603.               
  604.               Pn
  605.                  Äº¡áτáÑΓ »áπºπ ñ½¿¡«⌐ ó n ñ«½Ñ⌐ (úñÑ n »αÑñßΓáó-
  606.               ½∩ÑΓ τ¿ß½« ñ«½Ñ⌐, ºáñá¡¡δσ ó »«ß½Ññ¡Ñ⌐ ¬«¼á¡ñÑ L).  
  607.               
  608.                  Æ«τ¬á ó ¬«¡µÑ ¡«Γδ πóѽ¿τ¿óáÑΓ ÑÑ ñ½¿Γѽ∞¡«ßΓ∞ ó 
  609.               »«½Γ«αá  αáºá.  ìá»α¿¼Ñα,  τÑΓóÑαΓ¡á∩ ¡«Γá ß Γ«τ¬«⌐ 
  610.               ¿¼ÑÑΓ ñ½¿Γѽ∞¡«ßΓ∞ «ñ¡«⌐ τÑΓóÑαΓ¿ ¿ «ñ¡«⌐  ó«ß∞¼«⌐. 
  611.               î«ª¡«  ¿ß»«½∞º«óáΓ∞  ¡Ñ  «ñ¡π  Γ«τ¬π.  éΓ«αá∩ Γ«τ¬á 
  612.               πóѽ¿τ¿óáÑΓ ñ½¿Γѽ∞¡«ßΓ∞ ¬«¼í¿¡áµ¿¿ "¡«Γá ß Γ«τ¬«⌐" 
  613.               ÑΘÑ ó »«½Γ«αá  αáºá,  Γᬠ τÑΓóÑαΓ∞  ¡«Γδ  ß  ñóπ¼∩ 
  614.               Γ«τ¬á¼¿  íπñÑΓ  ¿ß»«½¡∩Γ∞ß∩  ó ΓÑτÑ¡¿Ñ 1,5 * (1,5 * 
  615.               1/4) ñ«½Ñ⌐.  Æ«τ¬¿ ¼«úπΓ ΓᬪѠπñ½¿¡∩Γ∞ »áπºδ.  
  616.               
  617.               Tn
  618.                  ôßΓá¡áó½¿óáÑΓ ΓѼ»,  úñÑ n  -  τ¿ß½«  τÑΓóÑαΓ¡δσ 
  619.               ñ«½Ñ⌐ ó ¼¿¡πΓπ. n ¼«ªÑΓ ¿º¼Ñ¡∩Γ∞ß∩ «Γ 32 ñ« 255. Å« 
  620.               π¼«½τá¡¿ε, 120.  
  621.  
  622.               MF
  623.                  îπºδ¬á  ß  "óδß«¬¿¼ »α¿«α¿ΓÑΓ«¼" «º¡áτáÑΓ ¡Ñ¼Ññ- 
  624.               ½Ñ¡¡«Ñ ¿ß»«½¡Ñ¡¿Ñ ¼πºδ¬¿,  ß«ºñá¡¡«⌐ ß »«¼«Θ∞ε «»Ñ- 
  625.               αáΓ«αá PLAY (Γ« ÑßΓ∞,  ß½ÑñπεΘ¿⌐ «»ÑαáΓ«α »α«úαá¼¼δ 
  626.               ¡Ñ íπñÑΓ óδ»«½¡∩Γ∞ß∩ ñ« ΓÑσ »«α, »«¬á ¡Ñ ºá¬«¡τ¿Γß∩ 
  627.               PLAY).  
  628.               
  629.               MB
  630.                  "ö«¡«óá∩  ¼πºδ¬á" «º¡áτáÑΓ,  τΓ« ¼πºδ¬á ¿ß»«½¡∩- 
  631.               ÑΓß∩ Γ«úñá,  ¬«úñá »α«úαἼᠺ᡿¼áÑΓß∩ ñαπú¿¼¿ ñÑ- 
  632.               ½á¼¿.  Å« π¼«½τá¡¿ε,  ó ÆôÉüÄ üàëæêè ÑßΓ∞ 32-¡«Γ¡δ⌐ 
  633.               íπΣÑα ñ½∩ Σ«¡«ó«ú« ó«ß»α«¿ºóÑ-ñÑ¡¿∩,  αẼÑα íπΣÑαá 
  634.               ¼«ªÑΓ  íδΓ∞  πóѽ¿τÑ¡  ¼ÑΓá«»ÑαáΓ«α«¼ $SOUND.  Åα«- 
  635.               ß¼«Γα¿ΓÑ «»ÑαáΓ«αδ PLAY ON ¿ ON PLAY, ¬«Γ«αδÑ ΓᬪѠ
  636.               ¼«úπΓ »Ñα¿«ñ¿τÑ߬¿  ¬«¡Γα«½¿α«óáΓ∞  »α«µÑßß  ¿ß»«½- 
  637.               ¡Ñ¡¿∩  Σ«¡«ó«⌐ ¼πºδ¬¿ ¿ ñ«íáó½∩Γ∞ »α¿ ¡Ñ«íσ«ñ¿¼«ßΓ¿ 
  638.               ¡«óδÑ ¡«Γδ.  
  639.               
  640.               MN/ML/MS
  641.                  æ«ú½áß¡« φΓ«⌐ πßΓá¡«ó¬Ñ ¡«Γδ ¼«úπΓ ñ½¿Γ∞ß∩  ½¿í« 
  642.               Γα¿  τÑΓóÑαΓ¿  óαѼѡ¿,  ºáñá¡¡«ú« ß »«¼«Θ∞ε L (MS: 
  643.               ßΓᬬáΓ«), ½¿í« ßѼ∞ ó«ß∞¼δσ (MN:  ¡«α¼á½∞¡«), ½¿í« 
  644.               óßÑ óαѼ∩, «ΓóÑñÑ¡¡«Ñ ß »«¼«Θ∞ε L (ML: ½ÑúáΓ«).  
  645.               
  646.            X VARPTR$(ß¿¼ó«½∞¡á∩ »ÑαѼѡ¡á∩) (óδ»«½¡¿Γ∞ »«ñßΓ᫬π)
  647.                  è«¼á¡ñá   X   (óδ»«½¡¿Γ∞)   »«ºó«½∩ÑΓ  óóÑßΓ¿  ó 
  648.               «»ÑαáΓ«α  PLAY  »«ñßΓ᫬π,  ∩ó½∩εΘπεß∩  ¼πºδ¬á½∞¡«⌐ 
  649.               »«ñ»α«úαá¼¼«⌐; ¡á»α¿¼Ñα, «»ÑαáΓ«αδ: 
  650.               
  651.               a$ = "C D E" : PLAY "E D E X" + VARPTR$(a$)
  652.               
  653.               ¿ß»«½¡∩εΓ ¡«Γδ E, D, E, C, D ¿ E.
  654. 
  655.               ÅÑαѼѡ¡δÑ áαúπ¼Ñ¡Γδ
  656.                  é  ¬áªñ«¼  «»ÑαáΓ«αÑ  PLAY  áαúπ¼Ñ¡Γ ¼«ªÑΓ ¿¼ÑΓ∞ 
  657.               ½¿í« »«ßΓ«∩¡¡«Ñ º¡áτÑ¡¿Ñ,  ½¿í« ºáñáóáΓ∞ß∩  ó  ó¿ñÑ 
  658.               VARPTR$(»ÑαѼѡ¡á∩),  úñÑ »ÑαѼѡ¡á∩ - φΓ« τ¿ß½«óá∩ 
  659.               »ÑαÑ-¼Ñ¡¡á∩.  ÄíαáΓ¿ΓѠ󡿼᡿Ñ,  τΓ« ê¡ΓÑα»αÑΓáΓ«α 
  660.               BASIC    »«ºó«½∩ÑΓ    ºáñáóáΓ∞   ¿¼Ñ¡á   »ÑαѼѡ¡δσ 
  661.               ¡Ñ»«ßαÑñßΓóÑ¡¡« ó ßΓα«¬Ñ «»ÑαáΓ«αá PLAY.  ìá»α¿¼Ñα, 
  662.               PLAY  "T=x;" πßΓá¡áó½¿óáÑΓ ΓѼ» ß«ú½áß¡« »ÑαѼѡ¡«⌐ 
  663.               x.  ò«Γ∩ φΓ« ¿ ¡Ñ»½«σá∩  ó«º¼«ª¡«ßΓ∞,  ¡«  ó  ÆôÉüÄ 
  664.               üàëæêèà  «¡á  ¡Ñ  αÑ὿º«óá¡á,  Γᬠ¬á¬ ¿¡Σ«α¼áµ¿∩, 
  665.               ßó∩ºá¡¡á∩  ß  »ÑαѼѡ¡«⌐  x,  ¡Ññ«ßΓπ»¡á  ó  ¼«¼Ñ¡Γ 
  666.               óδ»«½¡Ñ¡¿∩.   é¼ÑßΓ«   φΓ«ú«  ß½ÑñπÑΓ  ¿ß»«½∞º«óáΓ∞ 
  667.               «»¿ßá¡¡δÑ óδΦѠ󫺼«ª¡«ßΓ¿ VARPTR$.  
  668.               
  669. æ¼.ΓᬪѠ     ON PLAY   PLAY ON   $SOUND
  670.               
  671. Åα¿¼Ñα     firstline$ = "O3 L4 C L2 E E L8 E L4 E E D C F L1 <A"
  672.            secondline$= "O3 L8 C C C L4 E D L2 <A L4 A L1 >C"
  673.               thirdline$ = "L4 C L10 F F. F L1 E"
  674.               PLAY "T150"             'πóѽ¿τ¿Γ∞ ΓѼ»
  675.               FOR n = 1 TO 4
  676.                 PLAY firstline$
  677.               NEXT n
  678.               PLAY secondline$ + thirdline$ 
  679. 
  680.                           öπ¡¬µ¿∩  PMAP
  681.     ------------------------------------------------------------
  682. ìạáτÑ¡¿Ñ    PMAP  »ÑαÑó«ñ¿Γ Σ¿º¿τÑ߬¿Ñ ¬««αñ¿¡áΓδ ó ¬««αñ¿¡áΓδ, 
  683.               ºáñá¡¡δÑ »«½∞º«óáΓѽѼ, ¿ ¡á«í«α«Γ.
  684.               
  685. æ¿¡Γá¬ß¿ß     y = PMAP (x, óáα¿á¡Γ)
  686.               
  687. 諼¼Ñ¡Γáα¿⌐  
  688.               x - ¬««αñ¿¡áΓá Γ«τ¬¿, »«ñ½ÑªáΘá∩ »αÑ«íαẫóá¡¿ε;
  689.  
  690.               óáα¿á¡Γ - µÑ½«Ñ óδαáªÑ¡¿Ñ «Γ 0 ñ« 3, ¬«Γ«α«Ñ π»αá-
  691.                         ó½∩ÑΓ Σπ¡¬µ¿Ñ⌐  PMAP  ß«ú½áß¡« ß½ÑñπεΘÑ⌐ 
  692.                         Γáí½¿µÑ:
  693.               
  694.           -------------------------------------------------------
  695.           éáα¿á¡Γ   äÑ⌐ßΓó¿Ñ
  696.           -------------------------------------------------------
  697.            0    ÅαÑ«íαáºπÑΓ ¬««αñ¿¡áΓπ x ó ß¿ßΓѼѠ¬««αñ¿¡áΓ,
  698.                 ºáñá¡¡«⌐ »«½∞º«óáΓѽѼ, ó Σ¿º¿τÑ߬πε ¬««αñ¿¡áΓπ x
  699.  
  700.            1    ÅαÑ«íαáºπÑΓ ¬««αñ¿¡áΓπ y ó ß¿ßΓѼѠ¬««αñ¿¡áΓ,
  701.                 ºáñá¡¡«⌐ »«½∞º«óáΓѽѼ, ó Σ¿º¿τÑ߬πε ¬««αñ¿¡áΓπ y
  702.  
  703.            2    ÅαÑ«íαáºπÑΓ Σ¿º¿τÑ߬πε ¬««αñ¿¡áΓπ x ó ¬««αñ¿¡áΓπ
  704.                 x ó ß¿ßΓѼѠ¬««αñ¿¡áΓ »«½∞º«óáΓѽ∩
  705.  
  706.            3    ÅαÑ«íαáºπÑΓ Σ¿º¿τÑ߬πε ¬««αñ¿¡áΓπ y ó ¬««αñ¿¡áΓπ
  707.                 y ó ß¿ßΓѼѠ¬««αñ¿¡áΓ »«½∞º«óáΓѽ∩
  708.           -------------------------------------------------------
  709.               
  710.                  PMAP óδ»«½¡∩ÑΓ ¼áßΦΓáí¿α«óá¡¿Ñ, ºáñá¡¡«Ñ »«ß½Ññ-
  711.               ¡¿¼ «»ÑαáΓ«α¼ WINDOW,  »α¿ φΓ«¼ óδó«ñ ¡á  φ¬αá¡  ¡Ñ 
  712.               »α«¿ºó«ñ¿Γß∩.  
  713.               
  714. æ¼.ΓᬪѠ     WINDOW
  715.               
  716. Åα¿¼Ñα        ' »ÑαѬ½ετÑ¡¿Ñ ó úαáΣ¿τÑ߬¿⌐ αѪ¿¼ ß« ßαÑñ¡¿¼ 
  717.               ' αáºαÑΦÑ¡¿Ñ¼
  718.  
  719.               SCREEN 1
  720.               
  721.               ' «»αÑñѽѡ¿Ñ »α∩¼«πú«½∞¡δ󠬫«αñ¿¡áΓ
  722.               ' ß µÑ¡Γα«¼ ó ßÑαÑñ¿¡Ñ φ¬αá¡á ß í«½∞Φ¿¼
  723.               ' ñ¿á»áº«¡«¼ º¡áτÑ¡¿⌐ x ¿ y, úñÑ y αáßΓÑΓ
  724.               ' »α¿ ñó¿ªÑ¡¿¿ óóÑασ, á ¡Ñ ó¡¿º
  725.  
  726.               WINDOW (-1000,1000) - (1000,-1000)
  727.               
  728.               ' PMAP πßΓá¡áó½¿óáÑΓ ß««ΓóÑΓßΓó¿Ñ ¼Ñªñπ
  729.               ' ñѬáαΓ«ó묨 ¬««αñ¿¡áΓἿ ¿ Σ¿º¿τÑ߬¿¼¿ »¿¬ßѽἿ
  730.               
  731.               PSET (PMAP (0,0), PMAP (0,1)),2
  732.               PSET (PMAP (50,2), PMAP (50,3)),2
  733.            PRINT PMAP (0,0), PMAP (0,1), PMAP (50,2), PMAP (50,3)
  734.               
  735.               END       '¬«¡Ñµ »α«úαá¼¼δ
  736. 
  737.                           öπ¡¬µ¿∩  POINT
  738. ----------------------------------------------------------------- 
  739. ìạáτÑ¡¿Ñ    POINT ó«ºóαáΘáÑΓ µóÑΓ »¿¬ßѽᠿ½¿ ñá¡¡δÑ LPR.
  740.               
  741. æ¿¡Γá¬ß¿ß     ÅÑαóá∩ Σ«α¼á:
  742.               
  743.               µóÑΓ = POINT (x,y)
  744.               
  745.               éΓ«αá∩ Σ«α¼á:
  746.               
  747.               y = POINT (óáα¿á¡Γ)
  748.               
  749. 諼¼Ñ¡Γáα¿⌐      é »Ñαó«⌐ Σ«α¼Ñ (x,y) ºáñáεΓ ¬««αñ¿¡áΓδ úαáΣ¿τÑß-
  750.               ¬«ú«  »¿¬ßѽᠠó  ßαÑñ¡Ñ¼  ¿½¿  óδß«¬«¼ αáºαÑΦÑ¡¿¿. 
  751.               POINT ó«ºóαáΘáÑΓ º¡áτÑ¡¿Ñ áΓα¿íπΓá (µóÑΓ) ó »¿¬ßѽѠ
  752.               (x,y).  àß½¿ ½¿í« x,  ½¿í«  y  óδσ«ñ∩Γ  ºá  »αÑñѽδ 
  753.               ñ«»πßΓ¿¼«ú« ñ¿á»áº«¡á, POINT ó«ºóαáΘáÑΓ -1.  
  754.  
  755.                  é« óΓ«α«⌐ Σ«α¼Ñ, óáα¿á¡Γ - φΓ« τ¿ß½«óá∩ »ÑαѼѡ-
  756.               ¡á∩  ¿½¿  óδαáªÑ¡¿Ñ,  ¬«Γ«α«Ñ  π»αáó½∩ÑΓ  ñÑ⌐ßΓó¿Ñ¼ 
  757.               POINT ß«ú½áß¡« ß½ÑñπεΘÑ⌐ Γáí½¿µÑ: 
  758.               
  759.        -----------------------------------------------------------
  760.        éáα¿á¡Γ   äÑ⌐ßΓó¿Ñ
  761.        -----------------------------------------------------------
  762.         0    é«ºóαáΘáÑΓ ΓѬπΘÑÑ º¡áτÑ¡¿Ñ Σ¿º¿τÑ߬«⌐ ¬««αñ¿¡áΓδ x
  763.  
  764.         1    é«ºóαáΘáÑΓ ΓѬπΘÑÑ º¡áτÑ¡¿Ñ Σ¿º¿τÑ߬«⌐ ¬««αñ¿¡áΓδ y
  765.  
  766.         2    é«ºóαáΘáÑΓ ΓѬπΘπε ¬««αñ¿¡áΓπ x ó ß¿ßΓѼѠ¬««αñ¿¡áΓ,
  767.              ºáñá¡¡«⌐ »«½∞º«óáΓѽѼ
  768.  
  769.         3    é«ºóαáΘáÑΓ ΓѬπΘπε ¬««αñ¿¡áΓπ y ó ß¿ßΓѼѠ¬««αñ¿¡áΓ,
  770.              ºáñá¡¡«⌐ »«½∞º«óáΓѽѼ
  771.        -----------------------------------------------------------
  772.              
  773.                  ÅÑαóá∩ Σ«α¼á POINT »«½Ñº¡á ñ½∩ »α«ßΓ«ú«  «ª¿ó½Ñ-
  774.               ¡¿∩   ¿º«íαáªÑ¡¿∩   »«   «ñ¡«¼π   »¿¬ßÑ½π  ºá  αáº. 
  775.               êß»«½∞ºπ⌐ΓÑ POINT ñ½∩  «»αÑñѽѡ¿∩  µóÑΓá  Σ«¡«ó«ú« 
  776.               »¿¬ßѽᠿ ºá»¿ß¿ Ñú« µóÑΓá ó« óαѼѡ¡πε »ÑαѼѡ¡πε. 
  777.               çáΓѼ  ºáñá⌐ΓÑ  ß  »«¼«Θ∞ε  PSET  µóÑΓ  ñó¿ªπΘÑú«ß∩ 
  778.               «íΩѬΓá  ó  φΓ«⌐  Γ«τ¬Ñ.  ìᬫ¡Ñµ,  ß«Γα¿ΓÑ  Γ«τ¬π, 
  779.               óÑα¡¿ΓÑ Ñ⌐ ÑÑ »Ñαó«¡áτá½∞¡δ⌐ µóÑΓ.  
  780.               
  781. æ¼.ΓᬪѠ     PSET
  782.               
  783. Åα¿¼Ñα        ' »ÑαѬ½ετÑ¡¿Ñ ó úαáΣ¿τÑ߬¿⌐ αѪ¿¼ ß« ßαÑñ¡¿¼ 
  784.               ' αáºαÑΦÑ¡¿Ñ¼
  785.  
  786.               SCREEN 1
  787.               
  788.               CIRCLE (160,100),50,2    '¡áα¿ß«óáΓ∞ ¬απú
  789.               
  790.               ' »«ßΓáó¿Γ∞ Γ«τ¬π ó µÑ¡ΓαÑ ¬απúá
  791.  
  792.               PSET (160,100),1
  793.               
  794.               ' óδó«ñ µóÑΓá Γ«τ¬¿ ¿ ÑÑ ¼ÑßΓ«»«½«ªÑ¡¿∩
  795.  
  796.               PRINT POINT (160,100)
  797.               PRINT POINT (0),POINT (1)
  798.               
  799.               END          '¬«¡Ñµ »α«úαá¼¼δ
  800. 
  801.                           Ä»ÑαáΓ«α POKE
  802. -----------------------------------------------------------------              
  803. ìạáτÑ¡¿Ñ    POKE ºá»¿ßδóáÑΓ íá⌐Γ »« ºáñá¡¡«¼π áñαÑßπ
  804.               
  805. æ¿¡Γá¬ß¿ß     POKE ß¼ÑΘÑ¡¿Ñ, º¡áτÑ¡¿Ñ
  806.               
  807. 諼¼Ñ¡Γáα¿⌐      ß¼ÑΘÑ¡¿Ñ - φΓ« áñαÑß, τ¿ß½«ó«Ñ º¡áτÑ¡¿Ñ ó ñ¿á»á-
  808.               º«¡Ñ «Γ 0 ñ« 65535; 
  809.                  º¡áτÑ¡¿Ñ - íá⌐Γ«óá∩ óѽ¿τ¿¡á «Γ 0 ñ« 255,  ¬«Γ«-
  810.               αá∩  ºá»¿ßδóáÑΓß∩  »«  ºáñá¡¡«¼π  áñαÑßπ.  æ¼ÑΘÑ¡¿Ñ 
  811.               π¬áºδóáÑΓß∩ «Γ¡«ß¿Γѽ∞¡« ßÑú¼Ñ¡Γá,  «»αÑñѽѡ¡«ú« ó 
  812.               »«ß½Ññ¡Ñ¼ «»ÑαáΓ«αÑ DEF SEG.  
  813.  
  814.                  POKE ºá»¿ßδóáÑΓ «ñ¡«íá⌐Γ«óδÑ óѽ¿τ¿¡δ »«  ºáñá¡-
  815.               ¡«¼π áñαÑßπ.  Ä»ÑαáΓ«α POKE «ßπΘÑßΓó½∩ÑΓ  ñ«ßΓπ»  ¬ 
  816.               »á¼∩Γ¿ ¡á í«½ÑÑ ¡¿º¬«¼ πα«ó¡Ñ,  τѼ «ß¡«ó¡δÑ «»Ñαá- 
  817.               µ¿¿ ÆôÉüÄ üàëæêèÇ.  Å«ß¬«½∞¬π «»ÑαáΓ«α POKE ¡Ñ »α«- 
  818.               óÑα∩ÑΓ «Φ¿í¬¿,  ¡Ñ»αáó¿½∞¡«Ñ Ñú« ¿ß»«½∞º«óá¡¿Ñ  ¼«- 
  819.               ªÑΓ »α¿óÑßΓ¿ ¬ ¬αáσπ «»Ñαᵿ«¡¡«⌐ ß¿ßΓÑ¼δ ¿½¿ óáΦÑ⌐ 
  820.               »α«úαá¼¼δ.  
  821.               
  822. æ¼.ΓᬪѠ     PEEK
  823.               
  824. Åα¿¼Ñα        DIM Array%(5)
  825.               
  826.               DEF SEG = VARSEG (Array%(0))
  827.               
  828.               FOR I% = 0 TO 11
  829.                 POKE I%, &HFF
  830.               NEXT I%
  831.               
  832.               FOR I% = 0 TO 11
  833.                 PRINT HEX$(PEEK(I%))
  834.               NEXT I%
  835.               
  836.               END
  837. 
  838.                            öπ¡¬µ¿∩  POS
  839. -----------------------------------------------------------------              
  840. ìạáτÑ¡¿Ñ    POS  ó«ºóαáΘáÑΓ ú«α¿º«¡Γá½∞¡πε »«º¿µ¿ε ¬παß«αá (¡«-
  841.                    ¼Ñα ¬«½«¡¬¿).
  842.               
  843. æ¿¡Γá¬ß¿ß     y = POS (x)
  844.               
  845. 諼¼Ñ¡Γáα¿⌐      x - φΓ« Σ¿¬Γ¿ó¡δ⌐ τ¿ß½«ó«⌐ áαúπ¼Ñ¡Γ. 
  846.  
  847.                  ç¡áτÑ¡¿Ñ, ó«ºóαáΘáѼ«Ñ POS,  ¿º¼Ñ¡∩ÑΓß∩ ó ñ¿á»á- 
  848.               º«¡Ñ «Γ 1 ñ« 80 ¿ »αÑñßΓáó½∩ÑΓ ß«í«⌐ ú«α¿º«¡Γá½∞¡πε 
  849.               »«º¿µ¿ε  (¡«¼Ñα  ¬«½«¡¬¿) ¬παß«αá.  ä½∩ «»αÑñѽѡ¿∩ 
  850.               óÑαΓ¿¬á½∞¡«⌐ »«º¿µ¿¿ (¡«¼Ñαá  ßΓ᫬¿)  ß½ÑñπÑΓ  ¿ß- 
  851.               »«½∞º«óáΓ∞ Σπ¡¬µ¿ε CSRLIN.  
  852.                  ä½∩ »ÑαѼÑΘÑ¡¿∩ ¿ π»α∩Γδóá¡¿∩ ¬παß«αá ¿ß»«½∞ºπ⌐-
  853.               ΓÑ «»ÑαáΓ«α LOCATE.  
  854.               
  855. æ¼.ΓᬪѠ     CSRLIN   LOCATE   LPOS
  856.               
  857. Åα¿¼Ñα        ' πßΓá¡«ó¬á «íαáí«Γ¬¿ ß«íδΓ¿∩
  858.  
  859.               ON TIMER(1) GOSUB DisplayClock
  860.               
  861.               ' ó¬½ετÑ¡¿Ñ »αÑαδóá¡¿∩ »« ß«íδΓ¿ε
  862.  
  863.               TIMER ON
  864.               
  865.               ' ñ« ΓÑσ »«α, »«¬á ¡Ñ ¡áªáΓá ¬½áó¿Φá,
  866.  
  867.               PRINT "ì᪼¿ΓÑ ½εíπε ¬½áó¿Φπ ñ½∩ ºáóÑαΦÑ¡¿∩..."
  868.               WHILE NOT INSTAT
  869.               WEND
  870.               
  871.               END          '¬«¡Ñµ »α«úαá¼¼δ
  872.               
  873.               DisplayClock:
  874.                 OldX% = POS
  875.                 OldY% = CSRLIN
  876.                 LOCATE 1,72,1
  877.                 PRINT TIME$
  878.                 LOCATE OldY%,OLDX%,1
  879.                 RETURN
  880. 
  881.                          Ä»ÑαáΓ«α PRESET
  882. -----------------------------------------------------------------              
  883. ìạáτÑ¡¿Ñ    PRESET ¿º«íαáªáÑΓ Γ«τ¬π ¡á úαáΣ¿τÑ߬«¼ φ¬αá¡Ñ
  884.  
  885. æ¿¡Γá¬ß¿ß     PRESET (x,y) [,µóÑΓ]
  886.               
  887. 諼¼Ñ¡Γáα¿⌐      (x,y)   áíß«½εΓ¡δÑ ¿½¿ «Γ¡«ß¿Γѽ∞¡δÑ  ¬««αñ¿¡áΓδ 
  888.               ¿º«íαáªáѼ«⌐  Γ«τ¬¿  ¡á úαáΣ¿τÑ߬«¼ φ¬αá¡Ñ.  
  889.  
  890.                  ûóÑΓ - φΓ« µÑ½«Ñ óδαáªÑ¡¿Ñ, «»αÑñѽ∩εΘÑÑ,  ¬á¬¿¼ 
  891.               µóÑΓ«¼ ñ«½ª¡á íδΓ∞ ¿º«íαáªÑ¡á Γ«τ¬á.  é ºáó¿ß¿¼«ßΓ¿ 
  892.               «Γ  αѪ¿¼á  φ¬αá¡á  ¡á  µóÑΓ ¡á¬½áñδóáεΓß∩ ß««ΓóÑΓ- 
  893.               ßΓóπεΘ¿Ñ «úαá¡¿τÑ¡¿∩. ä«»πßΓ¿¼δÑ ñ¿á»áº«¡δ áΓα¿íπΓá 
  894.               ó ¬áªñ«¼  αѪ¿¼Ñ  »α¿óÑñÑ¡δ  ó  «»¿ßá¡¿¿  «»ÑαáΓ«αá 
  895.               PALETTE.  
  896.                  àß½¿ µóÑΓ ºáñá¡,  Γ« «»ÑαáΓ«α PRESET ¿ ñ«»«½¡∩ε- 
  897.               Θ¿⌐  Ñú« «»ÑαáΓ«α PSET ñÑ⌐ßΓóπεΓ «ñ¿¡á¬«ó«.  Éẽ¿- 
  898.               τ¿Ñ ¼Ñªñπ ¡¿¼¿ ß«ßΓ«¿Γ ó Γ«¼, τΓ« »« π¼«½τá¡¿ε º¡á- 
  899.               τÑ¡¿Ñ  µóÑΓá  «»ÑαáΓ«αá PRESET αáó¡« 0 (µóÑΓ Σ«¡á), 
  900.               Γ«úñá ¬á¬ π «»ÑαáΓ«αá PSET  «¡«  αáó¡«  ¼á¬ß¿¼á½∞¡« 
  901.               ñ«»πßΓ¿¼«¼π ó ΓѬπΘѼ αѪ¿¼Ñ º¡áτÑ¡¿ε. äαπú¿¼¿ ß½«- 
  902.               óἿ, Ñß½¿ µóÑΓ ¡Ñ ºáñá¡, PSET ºáª¿úáÑΓ »¿¬ßѽδ,  á 
  903.               PRESET úáß¿Γ ¿σ.  
  904.               
  905. æ¼.ΓᬪѠ     PSET
  906.                
  907. Åα¿¼Ñα        ' ó¬½ετÑ¡¿Ñ úαáΣ¿τÑ߬«ú« αѪ¿¼á ß« ßαÑñ¡¿¼ 
  908.               ' αáºαÑΦÑ¡¿Ñ¼
  909.  
  910.               SCREEN 1
  911.               
  912.               FOR I% = 0 TO 359
  913.                 FOR J% = 0 TO 199
  914.                   DELAY 0.01
  915.                   PSET (I%, J%)
  916.                 NEXT J%
  917.               NEXT I%
  918.               
  919.               FOR I% = 0 TO 359
  920.                 FOR J% = 0 TO 199
  921.                   DELAY 0.01
  922.                   PRESET (I%, J%)
  923.                 NEXT J%
  924.               NEXT I%
  925.               
  926.               END        '¬«¡Ñµ »α«úαá¼¼δ
  927. 
  928.                           Ä»ÑαáΓ«α PRINT
  929. -----------------------------------------------------------------              
  930. ìạáτÑ¡¿Ñ    PRINT »«ßδ½áÑΓ ñá¡¡δÑ ¡á φ¬αá¡
  931.               
  932. æ¿¡Γá¬ß¿ß     PRINT [ß»¿ß«¬ óδαáªÑ¡¿⌐] [;]
  933.               
  934. 諼¼Ñ¡Γáα¿⌐      æ»¿ß«¬  óδαáªÑ¡¿⌐ - »«ß½Ññ«óáΓá½∞¡«ßΓ∞  τ¿ß½«óδσ 
  935.               ¿/¿½¿  ß¿¼ó«½∞¡δσ óδαáªÑ¡¿⌐,  αáºñѽѡ¡δσ Γ«τ¬á¼¿ ß 
  936.               ºá»∩Γ«⌐, »α«íѽἿ ¿½¿ ºá»∩Γ묨. àß½¿ ó ¬«¡µÑ ß»¿ß- 
  937.               ¬á óδαáªÑ¡¿⌐ ¡Ñ  π¬áºá¡á  Γ«τ¬á  ß  ºá»∩Γ«⌐,  ÆôÉüÄ               üàëæêè  óδó«ñ¿Γ  »«ß½Ñ ñá¡¡δσ ¿º ß»¿ß¬á ó«ºóαáΓ ¬á- 
  938.               αÑΓ¬¿. àß½¿ ß»¿ß«¬ óδαáªÑ¡¿⌐ «»πΘÑ¡, PRINT óδ»«½¡∩- 
  939.               ÑΓ Γ«½∞¬« ó«ºóαáΓ ¬áαÑΓ¬¿.  
  940.                  PRINT ¿ß»«½∞ºπÑΓ º¡á¬¿  »π¡¬Γπᵿ¿,  αáºñѽ∩εΘ¿Ñ 
  941.               óδαáªÑ¡¿∩ ó ß»¿ß¬Ñ,  ñ½∩ «»αÑñѽѡ¿∩ ¼ÑßΓá ¡á φ¬αá- 
  942.               ¡Ñ, úñÑ αẼÑßΓ¿Γ∞ óδσ«ñ¡δÑ ñá¡¡δÑ.  
  943.                                        
  944.               ÅÑτáΓ¡δÑ º«¡δ
  945.               
  946.                  ä½∩ íδßΓα«ú« ¿ á¬¬παáΓ¡«ú« óδó«ñá,  ÆôÉüÄ üàëæêè 
  947.               ñѽ¿Γ φ¬αá¡ ¡á "»ÑτáΓ¡δÑ º«¡δ",  ¬áªñá∩ ¿º  ¬«Γ«αδσ 
  948.               ß«ßΓ«¿Γ  ¿º  14 ¬«½«¡«¬.  çá»∩Γá∩ »«ß½Ñ óδαáªÑ¡¿∩ ó 
  949.               ß»¿ß¬Ñ ºáñáÑΓ óδó«ñ ñá¡¡δσ,  «»αÑñѽ∩Ѽδσ ß½ÑñπεΘ¿¼ 
  950.               óδαáªÑ¡¿Ñ¼, ß ¡áτá½á ß½ÑñπεΘÑ⌐ »ÑτáΓ¡«⌐ º«¡δ.  
  951.                  Æ«τ¬á ß ºá»∩Γ«⌐ ¿½¿ »α«íѽ »«ß½Ñ óδαáªÑ¡¿∩ ºáñá- 
  952.               ÑΓ óδó«ñ ñá¡¡δσ ß½ÑñπεΘÑú« óδαáªÑ¡¿∩ ¡Ñ»«ßαÑñßΓóÑ¡- 
  953.               ¡« »«ß½Ñ »αÑñδñπΘ¿σ íѺ«Γ¡«ß¿Γѽ∞¡« ¬ »ÑτáΓ¡δ¼  º«- 
  954.               ¡á¼.  
  955.                  àß½¿ «»ÑαáΓ«α PRINT ºáóÑαΦáÑΓß∩ ºá»∩Γ«⌐,  Γ«τ¬«⌐ 
  956.               ß ºá»∩Γ«⌐,  Σπ¡¬µ¿∩¼¿ SPC ¿½¿ TAB, ß½ÑñπεΘ¿⌐ «»Ñαá- 
  957.               Γ«α PRINT ¡áτ¡ÑΓ óδó«ñ ß Γ«⌐ ªÑ ßΓ᫬¿. é «ßΓá½∞¡δσ 
  958.               ß½πτá∩σ ß½ÑñπεΘ¿⌐ «»ÑαáΓ«α  PRINT  ¡áτ¡ÑΓ  óδó«ñ  ß 
  959.               »Ñαó«⌐ »«º¿µ¿¿ ß½ÑñπεΘÑ⌐ ßΓ᫬¿.  
  960.                  Å«ß½Ñ  τ¿ß½«óδσ º¡áτÑ¡¿⌐ óßÑúñá π¬áºδóáÑΓß∩ »α«- 
  961.               íѽ,  »«½«ª¿Γѽ∞¡δ¼ τ¿ß½á¼ »αÑñΦÑßΓóπÑΓ  º¡á¬  "+", 
  962.               «Γα¿µáΓѽ∞¡δ¼ - "-".  
  963.                  Ä»ÑαáΓ«α  PRINT ¼«ªÑΓ íδΓ∞ ß«¬αáΘÑ¡¡« «í«º¡áτÑ¡, 
  964.               ¬á¬ "?" (ß«¼¡¿Γѽ∞¡«ú« ñ«ßΓ«¿¡ßΓóá πñ«íßΓó«, ß«σαá- 
  965.               ¡¿óΦÑÑß∩ «Γ ¿¡ΓÑα»αÑΓáΓ«α«ó »αѪ¡¿σ óαѼѡ).  
  966.               
  967.               ? "Hello"
  968.               
  969.               «º¡áτáÑΓ Γ« ªÑ ßἫÑ, τΓ« ¿
  970.               
  971.               PRINT "Hello"
  972.               
  973. æ¼.ΓᬪѠ     LPRINT   LPRINT USING   PRINT USING   SPC    TAB
  974.               
  975. Åα¿¼Ñα        N = 2
  976.               PRINT "æΓ᫬¿ ¿ τ¿ß½á - φΓ«" N "»α¿¼Ñαá";
  977.               PRINT " óÑΘÑ⌐, ¬«Γ«αδÑ ¼«ª¡« ¡á»ÑτáΓáΓ∞"
  978.               
  979.               ' ºá»∩ΓδÑ ó ¬áτÑßΓóÑ αáºñѽ¿ΓѽÑ⌐ π»αáó½∩εΓ
  980.               ' αẼÑΘÑ¡¿Ñ¼ ñá¡¡δσ ó º«¡áσ »« 14 »«º¿µ¿⌐ ¬áªñá∩ 
  981.  
  982.               A = 1
  983.               B = 2
  984.               C = 3
  985.               PRINT A, B, C,"ÆѬßΓ"
  986.               
  987.               ' Γ«τ¬¿ ºá»∩Γ«⌐ ¿ »α«íѽδ ó ¬áτÑßΓóÑ αáºñѽ¿ΓѽÑ⌐
  988.               ' óδó«ñ∩Γ ñá¡¡δÑ ß½¿Γ¡«
  989.  
  990.               PRINT A;B;C;"ÆѬßΓ"
  991.               
  992.               END       '¬«¡Ñµ »α«úαá¼¼δ
  993.  
  994.                 
  995.  
  996.  
  997.  
  998.  
  999.  
  1000.  
  1001.  
  1002.  
  1003.  
  1004.  
  1005.  
  1006.  
  1007.  
  1008.