home *** CD-ROM | disk | FTP | other *** search
/ For Beginners & Professional Hackers / cd.iso / docum / tb1.doc / tb12.doc < prev    next >
Encoding:
Text File  |  1989-07-30  |  42.7 KB  |  990 lines
  1.                  Ä»ÑαáΓ«αδ PRINT# ¿ PRINT#  USING
  2. -----------------------------------------------------------------     
  3. ìạáτÑ¡¿Ñ    PRINT# ¿ PRINT# USING  ºá»¿ßδóáεΓ ó Σá⌐½ Σ«α¼áΓ¿α«- 
  4.               óá¡¡δÑ ñá¡¡δÑ
  5.               
  6. æ¿¡Γá¬ß¿ß     PRINT# ¡«¼Ñα Σá⌐½á, [USING ßΓ᫬á Σ«α¼áΓá:]  ß»¿ß«¬
  7.                      óδαáªÑ¡¿⌐ [;]
  8.  
  9. 諼¼Ñ¡Γáα¿⌐      ì«¼Ñα Σá⌐½á - º¡áτÑ¡¿Ñ,  «»αÑñѽ∩Ѽ«Ñ »α¿ «Γ¬αδ- 
  10.               Γ¿¿ Σá⌐½á.
  11.                  æΓ᫬á Σ«α¼áΓá -  ¡Ñ«í∩ºáΓѽ∞¡á∩  »«ß½Ññ«óáΓѽ∞- 
  12.               ¡«ßΓ∞ Σ«α¼áΓ¿απεΘ¿σ ß¿¼ó«½«ó («»¿ßá¡¿Ñ ß¼. ó «»Ñαá- 
  13.               Γ«αÑ PRINT USING).  
  14.                  æ»¿ß«¬ óδαáªÑ¡¿⌐ -  »«ß½Ññ«óáΓѽ∞¡«ßΓ∞  τ¿ß½«óδσ 
  15.               ¿/¿½¿ ß¿¼ó«½∞¡δσ óδαáªÑ¡¿⌐, óδó«ñ¿¼δσ ó Σá⌐½.  
  16.  
  17.                  PRINT#  ºá»¿ßδóáÑΓ  ñá¡¡δÑ  ó Σá⌐½ Γ«τ¡« ΓᬠªÑ, 
  18.               ¬á¬ «»ÑαáΓ«α PRINT óδó«ñ¿Γ ¿σ ¡á φ¬αá¡.  Äñ¡á¬« óδ- 
  19.               ó«ñ ß »«¼«Θ∞ε PRINT# ΓαÑíπÑΓ ó¡¿¼á¡¿∩, ¿¡áτÑ óδ ¼«- 
  20.               ªÑΓÑ ºá»«½¡¿Γ∞ í«½∞Φ«⌐  «íΩѼ  ñ¿ß¬«ó«ú«  »α«ßΓαá¡- 
  21.               ßΓóá ½¿Φ¡¿¼¿ »α«íѽἿ ¿½¿,  τΓ« ÑΘÑ σπªÑ,  αẼÑß- 
  22.               Γ¿Γ∞ ñá¡¡δÑ Γá¬ í½¿º¬« ñαπú ¬ ñαπúπ,  τΓ« ¿σ ¡Ñó«º- 
  23.               ¼«ª¡«  íπñÑΓ  αáºñѽ¿Γ∞  »α¿  »«ß½ÑñπεΘѼ  óó«ñÑ  ß 
  24.               »«¼«Θ∞ε «»ÑαáΓ«αá INPUT#.  
  25.               
  26.               ìá»α¿¼Ñα: 
  27.                         PRINT#1 1,2,3 
  28.                         »«ßδ½áÑΓ ó Σá⌐½ #1
  29.                         1             2             3
  30.  
  31.                  æ¿¼ó«½δ αẼÑΘáεΓß∩ ó 14-º¡á¬«óδσ º«¡áσ, »«φΓ«¼π 
  32.               ó Σá⌐½ »«ßδ½áÑΓß∩  «úα«¼¡«Ñ  ¬«½¿τÑßΓó«  ¿ºíδΓ«τ¡δσ 
  33.               »α«íѽ«ó. 
  34.                  æ ñαπú«⌐ ßΓ«α«¡δ: 
  35.                                   PRINT#1 1;2;3 
  36.                                   »«ßδ½áÑΓ ó Σá⌐½ #1
  37.                                   1 2 3
  38.  
  39.               »α¿τѼ ¡Ñ½∞º∩ »α«τ¿ΓáΓ∞ «Γñѽ∞¡δÑ τ¿ß½«óδÑ º¡áτÑ¡¿∩ 
  40.               ¿º φΓ«⌐ ºá»¿ß¿, Γᬠ¬á¬ «»ÑαáΓ«α INPUT# ΓαÑíπÑΓ ºá- 
  41.               »∩Γδσ ó ¬áτÑßΓóÑ  αáºñѽ¿ΓѽÑ⌐.  ìá¿í«½ÑÑ  ¡áñѪ¡δ⌐ 
  42.               ß»«ß«í  αáºñѽѡ¿∩ »«½Ñ⌐ ß«ßΓ«¿Γ ó π¬áºá¡¿¿ ºá»∩Γδσ 
  43.               ¼Ñªñπ ¬áªñ묨  ñóπ¼∩  »«½∩¼¿,  ¡á»α¿¼Ñα,  «»ÑαáΓ«α: 
  44.               PRINT#1, 1","2","3 
  45.                                  ºá»¿ßδóáÑΓ ñá¡¡δÑ ó Σá⌐½ ó ó¿ñÑ:
  46.                                  1 ,2 ,3
  47.               ΓπΓ  ¡ÑΓ  ½¿Φ¡¿σ  »α«íѽ«ó  ¿ ñá¡¡δÑ ½Ñú¬« τ¿ΓáεΓß∩ 
  48.               «»ÑαáΓ«α«¼ INPUT#.  Ä»ÑαáΓ«α WRITE#  «Γñѽ∩ÑΓ  »«½∩ 
  49.               ºá»∩Γ묨 áóΓ«¼áΓ¿τÑ߬¿.  
  50.               
  51. Åα¿¼Ñα        SUB MakeFile
  52.               ' INPUT «Γ¬αδóáÑΓ »«ß½Ññ«óáΓѽ∞¡δ⌐ Σá⌐½ ñ½∩ óó«ñá
  53.               ' ¿ß»«½∞ºπÑΓß∩ «»ÑαáΓ«α WRITE#, 
  54.               ' ºá»¿ßδóáεΘ¿⌐ ßΓ᫬¿,
  55.               ' ß«ßΓ«∩Θ¿Ñ ¿º αẽ¿τ¡δσ Γ¿»«ó ñá¡¡δσ, ó Σá⌐½
  56.               ' »ÑαѼѡ¡«⌐ Σá⌐½á »α¿ßóá¿óáÑΓß∩ º¡áτÑ¡¿Ñ #1
  57.  
  58.               OPEN "INPUT#.DTA" FOR OUTPUT AS #1
  59.               
  60.               ' «»αÑñѽѡ¿Ñ ¿ ¿¡µ¿á½¿ºáµ¿∩ »ÑαѼѡ¡δσ
  61.               StringVariable$ = "∩ óÑα¡πß∞"
  62.               Integer% = 1000
  63.               FloatingPoint! = 30000.1234
  64.               
  65.           ' ßΓ᫬á ΓѬßΓᠺỿßδóáÑΓß∩ ó »«ß½Ññ«óáΓѽ∞¡δ⌐ Σá⌐½
  66.            WRITE# 1, StringVariable$, Integer%, FloatingPoint!
  67.               
  68.               CLOSE 1   'ºá¬αδΓ∞ Σá⌐½ »ÑαѼѡ¡δσ
  69. 
  70.               END SUB   '¬«¡Ñµ »α«µÑñπαδ MakeFile
  71.               
  72.               SUB ReadFile
  73.               ' φΓá »α«µÑñπαá «Γ¬αδóáÑΓ »«ß½Ññ«óáΓѽ∞¡δ⌐ Σá⌐½
  74.               ' ñ½∩ óó«ñá ¿ß»«½∞ºπÑΓß∩ «»ÑαáΓ«α INPUT#,
  75.               ' τ¿ΓáεΘ¿⌐ ßΓ᫬¿ ¿º Σá⌐½á, ß«ßΓ«∩Θ¿Ñ ¿º
  76.               ' ñá¡¡δσ αẽ¿τ¡δσ Γ¿»«ó
  77.               
  78.               ' »ÑαѼѡ¡«⌐ Σá⌐½á »α¿ßóá¿óáÑΓß∩ º¡áτÑ¡¿Ñ #1
  79.               OPEN "INPUT#.DTA" FOR INPUT AS #1
  80.               
  81.               StringVariable$ = ""   '«»αÑñѽ∩εΓß∩ ¿
  82.               Integer% = 0           '¿¡¿µ¿á½¿º¿απεΓß∩
  83.               FloatingPoint! = 0     '»ÑαѼѡ¡δÑ
  84.               
  85.            ' τ¿ΓáΓ∞ ßΓ᫬π ΓѬßΓá ¿º »«ß½Ññ«óáΓѽ∞¡«ú« Σá⌐½á
  86.             INPUT# 1, StringVariable$, Integer%, FloatingPoint!
  87.               
  88.               PRINT StringVariable$, Ineger%, FloatingPoint!
  89.               
  90.               CLOSE #1      'ºá¬αδΓ∞ Σá⌐½ »ÑαѼѡ¡δσ
  91.               
  92.               END SUB       '¬«¡Ñµ »α«µÑñπαδ ReadFile
  93.               
  94.               CALL MakeFile
  95.               CALL ReadFile
  96.               
  97.               END           '¬«¡Ñµ »α«úαá¼¼δ
  98. 
  99.                        Ä»ÑαáΓ«α PRINT USING
  100. -----------------------------------------------------------------              
  101. ìạáτÑ¡¿Ñ    PRINT USING  »«ßδ½áÑΓ ¡á φ¬αá¡ ßΣ«α¼áΓ¿α«óá¡¡πε ¿¡- 
  102.                            Σ«α¼áµ¿ε.
  103.               
  104. æ¿¡Γá¬ß¿ß     PRINT USING ßΓ᫬á Σ«α¼áΓá; ß»¿ß«¬ óδαáªÑ¡¿⌐ [;].
  105.               
  106. 諼¼Ñ¡Γáα¿⌐      æΓ᫬á Σ«α¼áΓá - φΓ«  ß¿¼ó«½∞¡«Ñ  ¬«¡ßΓá¡Γá  ¿½¿ 
  107.               »ÑαѼѡ¡á∩,  ºáñáεΘá∩ ß»«ß«í Σ«α¼áΓ¿α«óá¡¿∩  ¿¡Σ«α- 
  108.               ¼áµ¿¿ ó ß»¿ß¬Ñ óδαáªÑ¡¿⌐.  
  109.                  æ»¿ß«¬  óδαáªÑ¡¿⌐ - φΓ« óδó«ñ¿¼δÑ ß¿¼ó«½∞¡δÑ ¿½¿ 
  110.               τ¿ß½«óδÑ  ñá¡¡δÑ,  αáºñѽѡ¡δÑ ºá»∩Γ묨,  »α«íѽἿ 
  111.               ¿½¿  Γ«τ¬á¼¿  ß  ºá»∩Γ«⌐.   Ä»ÑαáΓ«α  PRINT   USING 
  112.               ¿ú¡«α¿απÑΓ º¡á¬¿ »π¡¬Γπᵿ¿ ó óδαáªÑ¡¿∩σ ¿º ß»¿ß¬á.  
  113.                  
  114.                        Å«½∩ ßΓ᫬¿ Σ«α¼áΓá.
  115.                        --------------------
  116.                  éδó«ñ »Ñαóδσ n ß¿¼ó«½«ó ßΓ᫬¿: Ñß½¿ ßΓ᫬á Σ«α- 
  117.               ¼áΓá ß«ßΓ«¿Γ ¿º ß¿¼ó«½«ó ¬«ßá∩ τÑαΓá  ("/"),  ¼Ñªñπ 
  118.               ¬«Γ«α묨 π¬áºá¡δ (¿½¿ ¡Ñ π¬áºá¡δ) »α«íѽδ, Γ« ÆôÉüÄ 
  119.               üàëæêè  óδó«ñ¿Γ ßΓ«½∞¬« ß¿¼ó«½«ó ó óδσ«ñ¡«⌐ ßΓ᫬Ñ, 
  120.               ß¬«½∞¬«  ß¿¼ó«½«ó,  ó¬½ετá∩  ß¿¼ó«½δ  ¬«ß«⌐  τÑαΓδ, 
  121.               ºáñá¡«  ó  ßΓα«¬Ñ  Σ«α¼áΓá.  ìá»α¿¼Ñα,  Ñß½¿ ßΓ᫬á 
  122.               Σ«α¼áΓá "//" (¡ÑΓ »α«íѽ«ó,  ñ½¿¡á αáó¡á  2)  óδó«- 
  123.               ñ∩Γß∩ ñóá ß¿¼ó«½á;  ñ½∩ ßΓ᫬¿  Σ«α¼áΓá "/  /" (ñóá 
  124.               »α«íѽá, ñ½¿¡á αáó¡á 4) óδó«ñ∩Γß∩ 4 ß¿¼ó«½á.  
  125.               
  126.               a$ = "¬«Φ¬¿ ¿ ß«íᬿ"
  127.               
  128.               PRINT USING "/ / "; a$   ¡á»ÑτáΓáÑΓ: ¬«Φ 
  129.               PRINT USING "//", a$     ¡á»ÑτáΓáÑΓ: ¬«
  130.               
  131.                  æΓ᫬á Σ«α¼áΓá "!" ºáñáÑΓ »ÑτáΓ∞  Γ«½∞¬«  «ñ¡«ú« 
  132.               ß¿¼ó«½á óδó«ñ¿¼«⌐ ßΓ᫬¿: 
  133.               
  134.               a$ = "¬«Φ¬¿ ¿ ß«íᬿ"
  135.               PRINT USING "!"; a$      ¡á»ÑτáΓáÑΓ: ¬
  136.                                     
  137.                  ä½∩  Γ«ú«,  τΓ«íδ  óδóÑßΓ¿ óßε ßΓ᫬π ,  ß½ÑñπÑΓ 
  138.               π¬áºáΓ∞ ó ßΓα«¬Ñ Σ«α¼áΓá á¼»ÑαßÑ¡ñ (&): 
  139.               
  140.               a$ = "¬«Φ¬¿ ¿ ß«íᬿ"
  141.               PRINT USING  "&"; a$    ¡á»ÑτáΓáÑΓ: ¬«Φ¬¿ ¿ ß«íᬿ
  142.                             
  143.                          ö«α¼áΓ¿α«óá¡¿Ñ τ¿ß½«óδσ º¡áτÑ¡¿⌐.
  144.                          ---------------------------------
  145.                  ç¡á¬¿ ¡«¼Ñαá (#) ó ßΓα«¬Ñ  Σ«α¼áΓá  »αÑñßΓáó½∩εΓ 
  146.               µ¿Σαδ τ¿ß½á.  äÑß∩Γ¿τ¡á∩ Γ«τ¬á ¿ ñαπú¿Ñ ß»Ñµ¿á½∞¡δÑ 
  147.               ß¿¼ó«½δ (¡á»α¿¼Ñα, º¡á¬¿ ñ«½½áαá) αẼÑΘáεΓß∩ Γᬿ¼ 
  148.               «íαẫ¼, τΓ«íδ π¬áºáΓ∞ ó¿ñ Σ«α¼áΓ¡«ú« óδó«ñá τ¿ß½á, 
  149.               ó τáßΓ¡«ßΓ¿, τ¿ß½« µ¿Σα ß»αáóá «Γ ñÑß∩Γ¿τ¡«⌐ Γ«τ¬¿.  
  150.               
  151.               ìá»α¿¼Ñα:
  152.               
  153.               PRINT USING  "##.##"; 3.14159,.01032
  154.               
  155.               PRINT USING  "+##.##"; 12.0101,-6.2
  156.               (ó¬½ετÑ¡¿Ñ º¡á¬á »ÑαÑñ τ¿ß½«¼)
  157.               
  158.               PRINT USING  "##.##-"; 12.0101, -6.2
  159.               (ñ½∩ «Γα¿µáΓѽ∞¡δσ  τ¿ßѽ  º¡á¬  π¬áºδóáÑΓß∩  »«ß½Ñ 
  160.               τ¿ß½á) 
  161.               
  162.               PRINT USING  "$$##.##"; 12.0101
  163.               (óδóÑßΓ¿ º¡á¬ ñ«½½áαá ß½¿Γ¡« ß τ¿ß½«¼)
  164.               
  165.               PRINT USING  "**##.##"; 12.0101
  166.               (ºá»«½¡Ñ¡¿Ñ ºóѺñ«τ¬á¼¿ ½¿ñ¿απεΘ¿σ »α«íѽ«ó)
  167. 
  168.               PRINT USING  "**$##.##"; 12.0101
  169.               (¬«¼í¿¡áµ¿∩ »αÑñδñπΘ¿σ Σ«α¼áΓ«ó)
  170.               
  171.               PRINT USING  "#####,.##", 6666.66
  172.               (ºá»∩Γá∩    »ÑαÑñ    ñÑß∩Γ¿τ¡«⌐   Γ«τ¬«⌐   «º¡áτáÑΓ 
  173.               úαπ»»¿α«ó¬π µ¿Σα »« Γα¿) 
  174.               
  175.               PRINT USING  "#.####^^^^"; 34567.12
  176.               (τÑΓδαÑ º¡á¬á óßΓá󬿠«º¡áτáεΓ ¿ß»«½∞º«óá¡¿Ñ ¡áπτ¡«ú«
  177.               »αÑñßΓáó½Ñ¡¿∩)
  178.               
  179.               PRINT USING  "_###.##"; 12.1010
  180.               (º¡á¬  »«ñτÑનóá¡¿∩,   »αÑñΦÑßΓóπεΘ¿⌐  ß¿¼ó«½π   ó 
  181.               ßΓα«¬Ñ  Σ«α¼áΓá,  «º¡áτáÑΓ,  τΓ« φΓ«Γ ß¿¼ó«½ ñ«½ªÑ¡ 
  182.               íδΓ∞ óδóÑñÑ¡ íѺ ¿º¼Ñ¡Ñ¡¿∩,  á ¡Ñ  ¿ß»«½∞º«óá¡  ñ½∩ 
  183.               Σ«α¼áΓ¿α«óá¡¿∩).  
  184.              
  185.                  àß½¿   º¡áτÑ¡¿Ñ  ß½¿Φ¬«¼  óѽ¿¬«  ñ½∩  ºáñá¡¡«ú« 
  186.               Σ«α¼áΓá, »ÑαÑñ ¡¿¼ »ÑτáΓáÑΓß∩ º¡á¬ »α«µÑ¡Γá (%).  
  187.               
  188.               PRINT USING "#.#"; 27.4
  189. 
  190.                           Ä»ÑαáΓ«α PSET
  191. -----------------------------------------------------------------              
  192. ìạáτÑ¡¿Ñ    PSET ¿º«íαáªáÑΓ Γ«τ¬π ¡á úαáΣ¿τÑ߬«¼ φ¬αá¡Ñ.
  193.  
  194. æ¿¡Γá¬ß¿ß     PSET (x,y) [,µóÑΓ]
  195.               
  196. 諼¼Ñ¡Γáα¿⌐      (x,y)  áíß«½εΓ¡δÑ  ¿½¿  «Γ¡«ß¿Γѽ∞¡δÑ ¬««αñ¿¡áΓδ 
  197.               ¿º«íαáªáѼ«⌐ Γ«τ¬¿ ¡á úαáΣ¿τÑ߬«¼ φ¬αá¡Ñ.  
  198.  
  199.                  ûóÑΓ - φΓ« µÑ½«Ñ óδαáªÑ¡¿Ñ, «»αÑñѽ∩εΘÑÑ,  ¬á¬¿¼ 
  200.               µóÑΓ«¼ ñ«½ª¡á íδΓ∞ ¿º«íαáªÑ¡á Γ«τ¬á.  é ºáó¿ß¿¼«ßΓ¿ 
  201.               «Γ αѪ¿¼á φ¬αá¡á ¡á µóÑΓ ¡á¬½áñδóáεΓß∩ ß««ΓóÑΓßΓóπ-
  202.               εΘ¿Ñ «úαá¡¿τÑ¡¿∩.  é αѪ¿¼Ñ ß« ßαÑñ¡¿¼  αáºαÑΦÑ¡¿Ñ¼ 
  203.               ñ«»πßΓ¿¼δ  º¡áτÑ¡¿∩  µóÑΓ«ó  «Γ 0 ñ« 3.  é αѪ¿¼Ñ ß 
  204.               óδß«¬¿¼ αáºαÑΦÑ¡¿Ñ¼ ñ«»πßΓ¿¼δ ½¿Φ∞ º¡áτÑ¡¿∩  µóÑΓ«ó 
  205.               0 ¿ 1.  
  206.                  àß½¿ µóÑΓ ºáñá¡,  Γ« «»ÑαáΓ«α PSET ¿ ñ«»«½¡∩εΘ¿⌐ 
  207.               Ñú«  «»ÑαáΓ«α PRESET ñÑ⌐ßΓóπεΓ «ñ¿¡á¬«ó«.  Éẽ¿τ¿Ñ 
  208.               ¼Ñªñπ ¡¿¼¿ ß«ßΓ«¿Γ ó Γ«¼, τΓ« »« π¼«½τá¡¿ε º¡áτÑ¡¿Ñ 
  209.               µóÑΓá «»ÑαáΓ«αá PRESET αáó¡« 0 (µóÑΓ  Σ«¡á),  Γ«úñá 
  210.               ¬á¬  π  «»ÑαáΓ«αá PSET «¡« αáó¡« ¼á¬ß¿¼á½∞¡« ñ«»πß- 
  211.               Γ¿¼«¼π ó ΓѬπΘѼ αѪ¿¼Ñ º¡áτÑ¡¿ε (Γ.Ñ.  3 ñ½∩ ßαÑñ- 
  212.               ¡Ñú« αáºαÑΦÑ¡¿∩ ¿ 1 ñ½∩ óδß«¬«ú« αáºαÑΦÑ¡¿∩).  äαπ- 
  213.               ú¿¼¿ ß½«óἿ,  Ñß½¿ µóÑΓ ¡Ñ  ºáñá¡,  PSET  ºáª¿úáÑΓ 
  214.               »¿¬ßѽδ, á PRESET úáß¿Γ ¿σ.  
  215.               
  216. æ¼.ΓᬪѠ     POINT    PRESET
  217.               
  218. Åα¿¼Ñα        ' ó¬½ετÑ¡¿Ñ úαáΣ¿τÑ߬«ú« αѪ¿¼á 
  219.               ' ß« ßαÑñ¡¿¼ αáºαÑΦÑ¡¿Ñ¼
  220.               SCREEN 1
  221.               
  222.               FOR I% = 0 TO 359
  223.                 FOR J% = 0 TO 199
  224.                   DELAY 0.01
  225.                   PSET (I%, J%)
  226.                 NEXT J%
  227.               NEXT I%
  228.               
  229.               FOR I% = 0 TO 359
  230.                 FOR J% = 0 TO 199
  231.                   DELAY 0.01
  232.                   PRESET (I%, J%)
  233.                 NEXT J%
  234.               NEXT I%
  235.               
  236.               END        '¬«¡Ñµ »α«úαá¼¼δ
  237. 
  238.                        Ä»ÑαáΓ«α PUT (Σá⌐½δ)
  239. -----------------------------------------------------------------              
  240. ìạáτÑ¡¿Ñ    PUT ºá¡«ß¿Γ ºá»¿ß∞ ó Σá⌐½ ß »α«¿ºó«½∞¡δ¼ ñ«ßΓπ»«¼
  241.               
  242. æ¿¡Γá¬ß¿ß     PUT [#] ¡«¼Ñα Σá⌐½á [,¡«¼Ñα ºá»¿ß¿]
  243.               
  244. 諼¼Ñ¡Γáα¿⌐      ì«¼Ñα Σá⌐½á ºáñáÑΓß∩ »α¿ «Γ¬αδΓ¿¿ Σá⌐½á. 
  245.  
  246.                  ì«¼Ñα  ºá»¿ß¿ -τ¿ß½«ó«Ñ óδαáªÑ¡¿Ñ ó ñ¿á»áº«¡Ñ «Γ 
  247.               1 ñ« 16777216, «»¿ßδóáεΘ¿Ñ ºá¡«ß¿¼πε ºá»¿ß∞.  
  248.  
  249.                  Ä»ÑαáΓ«α PUT ∩ó½∩ÑΓß∩ ñ«»«½¡¿Γѽ∞¡δ¼ »«  «Γ¡«ΦÑ- 
  250.               ¡¿ε ¬ «»ÑαáΓ«απ GET.  Ä»ÑαáΓ«α PUT ºá¡«ß¿Γ «ñ¡π ºá- 
  251.               »¿ß∞  ó Σá⌐½ ß »α«¿ºó«½∞¡δ¼ ñ«ßΓπ»«¼,  ¡«¼Ñα ºá»¿ß¿ 
  252.               ¡Ñ ∩ó½∩ÑΓß∩ «í∩ºáΓѽ∞¡δ¼.  àß½¿ «¡ ¡Ñ ºáñá¡,  ÆôÉüÄ 
  253.               üàëæêè ¿ß»«½∞ºπÑΓ º¡áτÑ¡¿∩,  «»αÑñѽѡ¡«ú« ñ½∩ »«ß- 
  254.               ½Ññ¡Ñú« «»ÑαáΓ«αá PUT ¿½¿ GET »½εß 1.  
  255.               
  256. Åα¿¼Ñα        ' «Γ¬αδΓ¿Ñ Σá⌐½á ß »α«¿ºó«½∞¡δ¼ ñ«ßΓπ»«¼
  257.               OPEN "GET.DTA" AS# 1 LEN=18
  258.               
  259.               ' ºáñá¡¿Ñ ñóπσ «»αÑñѽѡ¿⌐ FIELD 
  260.               ' ñ½∩ ¬áªñ«ú« φ½Ñ¼Ñ¡Γá »«½∩
  261.               FIELD #1, 2 AS Integer$, 4 AS LongInt$, _
  262.                         4 AS SinglePre$, 8 AS DoublePre$
  263.               FIELD #1, 2 AS A$, 4 AS B$, 4 AS S$, 8 AS D$
  264.               MaxInt% = 32767
  265.               FOR I% = 1 TO 5    'ºá»¿ß∞ ñá¡¡δσ ó Σá⌐½
  266.               ' »αÑ«íαẫóá¡¿Ñ ñá¡¡δσ ¿ ºá»¿ß∞ ó íπΣÑα,
  267.               ' »αÑñΦÑßΓóπεΘ¿Ñ ºá»¿ß¿ ó Σá⌐½
  268.               LSET Integer$ = MKI$ (I%)
  269.               LSET LongInt$ = MKL$ (I%)+CLNG(MaxInt%))
  270.               LSET SinglePre$ = MKS$ (CSNG(I$*CSNG(MaxInt%)))
  271.               LSET DoublePre$ = MKD$ (MaxInt% - I%)
  272.               PUT #1, I%
  273.               NEXT I%
  274.               
  275.               FOR I% = 1 TO 5     'τΓÑ¡¿Ñ ñá¡¡δσ ¿º Σá⌐½á
  276.               GET #1, I%          'óδó«ñ ¡á φ¬αá¡
  277.                 PRINT CVI(A$), CVL(B$), CVS(C$), CVD(D$)
  278.               NEXT I%
  279.               
  280.               CLOSE #1            'ºá¬αδΓ¿Ñ Σá⌐½á
  281.               
  282.               END                 '¬«¡Ñµ »α«úαá¼¼δ
  283. 
  284.                       Ä»ÑαáΓ«α PUT (úαáΣ¿¬á)
  285. -----------------------------------------------------------------              
  286. ìạáτÑ¡¿Ñ    PUT ¿º«íαáªáÑΓ ß«ñÑন¼«Ñ τ¿ß½«ó«ú« ¼áßß¿óá ¡á úαá-
  287.               Σ¿τÑ߬«¼ φ¬αá¡Ñ
  288.               
  289. æ¿¡Γá¬ß¿ß     PUT(x,y), ¼áßß¿ó [,óáα¿á¡Γ]
  290.               
  291. 諼¼Ñ¡Γáα¿⌐      (x,y) - áíß«½εΓ¡δÑ ¿½¿  «Γ¡«ß¿Γѽ∞¡δÑ ¬««αñ¿¡áΓδ 
  292.               óÑασ¡Ñú«  ½Ñó«ú«  πú½á  »α∩¼«πú«½∞¡¿¬á,  ó  ¬«Γ«αδ⌐ 
  293.               íπñÑΓ »ÑαÑóÑñÑ¡« ß«ñÑন¼«Ñ ¼áßß¿óá.  
  294.  
  295.                  îáßß¿ó - τ¿ß½«ó«⌐ ¼áßß¿ó, ß«ñÑαªáΘ¿⌐ úαáΣ¿τÑ߬¿Ñ 
  296.               ñá¡¡δÑ, ¬«Γ«αδÑ íπñπΓ αẼÑΘÑ¡δ ¡á φ¬αá¡Ñ.  
  297.  
  298.                  éáα¿á¡Γ - «ñ¡« ¿º ß½«ó ß½ÑñπεΘÑ⌐ Γáí½¿µδ, π»αáó- 
  299.               ½∩εΘ¿σ ΓѼ,  ¬á¬ ñá¡¡δÑ ¼áßß¿óá íπñπΓ ß««Γ¡ÑßÑ¡δ  ß 
  300.               πªÑ ¿¼ÑεΘ¿¼ß∩ ¿º«íαáªÑ¡¿Ñ¼ ¡á φ¬αá¡Ñ: 
  301.              
  302.         ---------------------------------------------------------
  303.         éáα¿á¡Γ ñ½∩                   äÑ⌐ßΓó¿Ñ
  304.         PUT                                     
  305.         ---------------------------------------------------------
  306.               
  307.         PSET       αẼÑΘáÑΓ Γ«τ¡πε ¬«»¿ε ¿º«íαáªÑ¡¿∩ ¿º ¼áßß¿óá
  308.              
  309.         PRESET     αẼÑΘáÑΓ ¬«¼»½Ñ¼Ñ¡Γáα¡πε ¬«»¿ε ¿º«íαáªÑ¡¿∩ ¿º
  310.                    ¼áßß¿óá
  311.               
  312.         XOR        óδ»«½¡∩ÑΓ «»Ñαᵿε XOR ¼Ñªñπ ¿º«íαáªÑ¡¿Ñ¼ ¿º
  313.                    ¼áßß¿óá ¿ φ¬αá¡«¼
  314.               
  315.         OR         óδ»«½¡∩ÑΓ «»Ñαᵿε OR ¼Ñªñπ ¿º«íαáªÑ¡¿Ñ¼ ¿º
  316.                    ¼áßß¿óá ¿ φ¬αá¡«¼
  317.               
  318.         AND        óδ»«½¡∩ÑΓ «»Ñαᵿε AND ¼Ñªñπ ¿º«íαáªÑ¡¿Ñ¼ ¿º
  319.                    ¼áßß¿óá ¿ φ¬αá¡«¼
  320.               
  321.         ---------------------------------------------------------
  322.                                                            
  323.                  éáα¿á¡Γ PSET ¿º«íαáªáÑΓ ¡á φ¬αá¡Ñ ñá¡¡δÑ ¿º ¼áß- 
  324.               ß¿óá,  ¡Ñ óδ»«½¡∩∩ ¡¿¬á¬¿σ »αÑ«íαẫóá¡¿⌐,  ¡Ñºáó¿- 
  325.               ß¿¼« «Γ Γ«ú«, τΓ« ó ñá¡¡δ⌐ ¼«¼Ñ¡Γ ¿º«íαáªÑ¡« ¡á φ¬- 
  326.               αá¡Ñ.  PRESET ¿º«íαáªáÑΓ ¬«¼»½Ñ¼Ñ¡Γáα¡πε ¬«»¿ε ¼áß- 
  327.               ß¿óá. ìá»α¿¼Ñα, Ñß½¿  ¡Ñ¬«Γ«αδ⌐  »¿¬ßѽ  ó  ¼áßß¿óÑ 
  328.               ¿¼ÑÑΓ µóÑΓ 3,  Ñú« ¿º«íαáªÑ¡¿Ñ ¡á φ¬αá¡Ñ ß  »«¼«Θ∞ε 
  329.               «»ÑαáΓ«αá PUT ß áΓα¿íπΓ«¼ PRESET íπñÑΓ ¿¼ÑΓ∞ µóÑΓ 0 
  330.               ¿, ¡á«í«α«Γ.  Ç¡á½«ú¿τ¡«, µóÑΓ 1 íπñÑΓ »αÑ«íαẫóá¡ 
  331.               ó µóÑΓ 2 ¿, ¡á«í«α«Γ.  
  332.                  éáα¿á¡Γδ AND, OR ¿ XOR óδ»«½¡∩εΓ ½«ú¿τÑ߬¿Ñ «»Ñ- 
  333.               αᵿ¿  ¼Ñªñπ  ¬áªñδ¼ »¿¬ßѽ«¼,  πªÑ ¿º«íαáªÑ¡¡δ¼ ¡á 
  334.               φ¬αá¡Ñ, ¿ ¿º«íαáªáÑ¼δ¼ »¿¬ßѽ«¼ ¿º ¼áßß¿óá.  
  335.                  éáα¿á¡Γ XOR (πßΓá¡«ó½Ñ¡δ⌐ »« π¼«½τá¡¿ε) «ß«íÑ¡¡« 
  336.               »«½ÑºÑ¡ »α¿ ¿º«íαáªÑ¡¿¿ ñó¿ªÑ¡¿∩ «íΩÑ¬Γ«ó ¡á ß«ßΓá- 
  337.               ó¡«¼  Σ«¡Ñ.  ÅÑαóδ⌐  «»ÑαáΓ«α  PUT  XOR  ¿º«íαáªáÑΓ 
  338.               «íΩÑ¬Γ ¡á φ¬αá¡Ñ,  óΓ«α«Ñ óδ»«½¡Ñ¡¿Ñ Γ«ú« ªÑ «»Ñαá- 
  339.               Γ«αá ó«ßßΓá¡«ó¿Γ Σ«¡ ó  ß««ΓóÑΓßΓó¿¿  ß  »αÑñδñπΘ¿¼ 
  340.               ß«ßΓ«∩¡¿Ñ¼.  
  341.  
  342.                  é «ß¡«óÑ ßΓαáΓÑú¿¿ «ª¿ó½Ñ¡¿∩ ¿º«íαáªÑ¡¿∩  ß  »«- 
  343.               ¼«Θ∞ε «»ÑαáΓ«α«ó GET ¿ PUT ½ÑªáΓ ß½ÑñπεΘ¿Ñ φΓá»δ: 
  344.              
  345.             1. ìáα¿ß«óáΓ∞ (DRAW) «íΩÑ¬Γ ó »α∩¼«πú«½∞¡«⌐ «í½áßΓ¿
  346.             2. çá¡ÑßΓ¿    (GET)  ¿º«íαáªÑ¡¿Ñ «íΩѬΓá ó ¼áßß¿ó
  347.             3. éδ»«½¡¿Γ∞  (DO)
  348.             4. æΓÑαÑΓ∞ (ERASE) ¿º«íαáªÑ¡¿Ñ «íΩѬΓá ó ßΓáα«¼ ¼ÑßΓÑ
  349.             5. Å«¼ÑßΓ¿Γ∞ (PUT) ¿º«íαáªÑ¡¿Ñ «íΩѬΓá ¡á ¡«ó«Ñ ¼ÑßΓ«
  350.             6. û¿¬½ (LOOP)
  351. 
  352. Åα¿¼Ñα        ' óδñѽ¿Γ∞ íπΣÑα ñ½∩ σαá¡Ñ¡¿∩ úαáΣ¿τÑ߬«ú«
  353.               ' ¿º«íαáªÑ¡¿∩
  354.               DIM Buffer% (143)
  355.               
  356.               ' »ÑαѬ½ετÑ¡¿Ñ ó úαáΣ¿τÑ߬¿⌐ αѪ¿¼ 
  357.               ' ß« ßαÑñ¡¿¼ αáºαÑΦÑ¡¿Ñ¼
  358.               SCREEN 1
  359.               
  360.             CIRCLE (16,16), 8, 2         '¡áα¿ß«óáΓ∞ ¬απú
  361.               
  362.             GET (0,0) - (31,31), Buffer% 'ºá¡ÑßΓ¿ ¬απú ó ¼áßß¿ó
  363.               
  364.               ' ¬«»¿α«óáΓ∞ ¬απú¿ »« óßѼπ φ¬αá¡π
  365.               FOR I% = 0  TO 9
  366.                 PUT(I% * 32,100), Buffer%
  367.               NEXT I%
  368.               
  369.               END                          '¬«¡Ñµ »α«úαá¼¼δ
  370. 
  371.                            öπ¡¬µ¿∩ PUT$
  372. -----------------------------------------------------------------              
  373. ìạáτÑ¡¿Ñ    PUT$ ºá»¿ßδóáÑΓ ßΓ᫬π ó Σá⌐½ Γ¿»á BINARY.
  374.               
  375. æ¿¡Γá¬ß¿ß     PUT$ [#] ¡«¼Ñα Σá⌐½á, ß¿¼ó«½∞¡«Ñ óδαáªÑ¡¿Ñ
  376.               
  377. 諼¼Ñ¡Γáα¿⌐      PUT$ ºá»¿ßδóáÑΓ ß«ñÑন¼«Ñ ß¿¼ó«½∞¡«ú« óδαáªÑ¡¿∩
  378.               ó Σá⌐½,  ß ºáñá¡¡δ¼ ¡«¼Ñα«¼, ó »«º¿µ¿ε, πßΓá¡«ó½Ñ¡- 
  379.               ¡πε  ñ½∩  φΓ«ú«  Σá⌐½á  «»ÑαáΓ«α«¼  SEEK.  öá⌐½,  ó 
  380.               ¬«Γ«αδ⌐  »α«¿ºó«ñ¿Γß∩ ºá»¿ß∞,  ñ«½ªÑ¡ íδΓ∞ «Γ¬αδΓ ó 
  381.               αѪ¿¼Ñ BINARY 
  382.               
  383. æ¼.ΓᬪѠ     GET$   OPEN    SEEK
  384.               
  385. Åα¿¼Ñα        OPEN "BASIC.DOS" FOR BINARY AS 1
  386.               PUT$ #1, "¬«¼»¿½∩Γ«α üàëæêèÇ - φΓ« 99%"
  387.               PUT$ #1, "Γαπñá ¿ 1% óñ«σ¡«óÑ¡¿∩"
  388.               CLOSE #1
  389.               
  390.               END
  391. 
  392.                         Ä»ÑαáΓ«α RANDOMIZE
  393. -----------------------------------------------------------------              
  394. ìạáτÑ¡¿Ñ    RANDOMIZE πßΓá¡áó½¿óáÑΓ ¡áτá½∞¡«Ñ τ¿ß½« ó úÑ¡ÑαáΓ«-
  395.               αÑ »ßÑóñ«ß½πτá⌐¡δσ τ¿ßѽ
  396.               
  397. æ¿¡Γá¬ß¿ß     RANDOMIZE [τ¿ß½«ó«Ñ óδαáªÑ¡¿Ñ]
  398.               
  399. 諼¼Ñ¡Γáα¿⌐      àß½¿ τ¿ß½«ó«Ñ óδαáªÑ¡¿Ñ «»πΘÑ¡«, óδ»«½¡Ñ¡¿Ñ »α«-
  400.               úαá¼¼δ «ßΓá¡áó½¿óáÑΓß∩  ¡á  «»ÑαáΓ«αÑ  RANDOMIZE  ¿ 
  401.               »«½∞º«óáΓѽ∞  »«½πτáÑΓ  ºá»α«ß  ¡á  óó«ñ ¡áτá½∞¡«ú« 
  402.               τ¿ß½á: 
  403.               
  404.             RANDOM NUMBER SEED?
  405.             (¡áτá½∞¡«Ñ τ¿ß½« úÑ¡ÑαáΓ«αá »ßÑóñ«ß½πτá⌐¡δσ τ¿ßѽ ?)
  406.                
  407.               Ä ß½πτá⌐¡δσ τ¿ß½áσ
  408.               
  409.                  üѺ ºáñá¡¿∩ óß∩¬¿⌐ αẠ¡«ó«ú«  ¡áτá½∞¡«ú«  τ¿ß½á 
  410.               º¡áτÑ¡¿∩  Σπ¡¬µ¿¿ RND ó«óßÑ ¡Ñ ∩ó½∩εΓß∩ ß½πτá⌐¡δ¼¿; 
  411.               ñ½∩ ñá¡¡«ú« ¡áτá½∞¡«ú« τ¿ß½á RND óßÑúñá ñáÑΓ «ñ¡π ¿ 
  412.               Γπ ªÑ »«ß½Ññ«óáΓѽ∞¡«ßΓ∞  º¡áτÑ¡¿⌐.  üѺ  ¿º¼Ñ¡Ñ¡¿∩ 
  413.               ¡áτá½∞¡«ú«  τ¿ß½á  ¿¼¿Γᵿ∩  íα«ßá¡¿∩  ¬«ßΓÑ⌐ íπñÑΓ 
  414.               »α¿ó«ñ¿Γ∞ ¬ «ñ¡«¼π ¿ Γ«¼π ªÑ αѺπ½∞ΓáΓπ óß∩¬¿⌐ αáº, 
  415.               ¬«úñá ºá»π߬áÑΓß∩ »α«úαá¼¼á.  
  416.                  ôñ«í¡δ¼ ß»«ß«í«¼ «íÑß»Ñτ¿Γ∞ π¡¿¬á½∞¡«ßΓ∞ ¬áªñ«ú« 
  417.               »α«ú«¡á (»α¿ πß½«ó¿¿,  τΓ« »α«úαἼᠡѠºá»π߬áÑΓß∩ 
  418.               ¬áªñδ⌐ ñÑ¡∞ Γ«τ¡« ó «ñ¡« ¿ Γ«  ªÑ  óαѼ∩)  ∩ó½∩ÑΓß∩ 
  419.               ºáñá¡¿Ñ ¡áτá½∞¡«ú« τ¿ß½á ß »«¼«Θ∞ε Σπ¡¬µ¿¿ TIMER: 
  420.               
  421.               RANDOMIZE TIMER
  422.               
  423.                  äαπú«⌐  ß»«ß«í ß«ßΓ«¿Γ ó ¿ß»«½∞º«óá¡¿¿ «»ÑαáΓ«αá 
  424.               óδß«¬«ú« αáºαÑΦÑ¡¿∩ MTIMER (¼¿¬α«ßτÑΓτ¿¬  óαѼѡ¿), 
  425.               ¬«Γ«αδ¼   ºá¼Ñα∩ÑΓß∩  óαѼ∩,   ¿ßΓѬΦÑÑ  ß  ¼«¼Ñ¡Γá 
  426.               ¡áªáΓ¿∩ ¡Ñ¬«Γ«α«⌐ ¬½áó¿Φ¿ ó ¡áτá½Ñ  »α«úαá¼¼δ.  ¥Γ« 
  427.               óαѼ∩  ¿ß»«½∞ºπÑΓß∩  ñ½∩  ºáñá¡¿∩  ¡áτá½∞¡«ú« τ¿ß½á 
  428.               ñáΓτ¿¬á ß½πτá⌐¡δσ τ¿ßѽ: 
  429.               
  430.               MTIMER
  431.               PRINT "ì᪼¿ΓÑ ½εíπε ¬½áó¿Φπ, τΓ«íδ ¡áτáΓ∞..."
  432.               WHILE NOT INSTAT : WEND
  433.               RANDOMIZE MTIMER
  434.               
  435. æ¼.ΓᬪѠ     RND
  436.               
  437. Åα¿¼Ñα        ' ¿¡¿µ¿á½¿ºáµ¿∩ ¼¿¬α«Γá⌐¼Ñαá
  438.               MTIMER
  439.               
  440.               PRINT "ìáªáΓ∞ ½εíπε ¬½áó¿Φπ, τΓ«íδ ¡áτáΓ∞..."
  441.               
  442.               WHILE NOT INSTAT
  443.               WEND
  444.               
  445.               Dummy$ = INKEY$
  446.               ' πßΓá¡«ó¿Γ∞ ¡áτá½∞¡«Ñ º¡áτÑ¡¿Ñ 
  447.               ' ñáΓτ¿¬á ß½πτá⌐¡δσ τ¿ßѽ
  448.               RANDOMIZE MTIMER
  449.               
  450.               FOR I% = 1 TO 5 STEP RND(1.5)
  451.                 PRINT I%
  452.                 IF INSTAT THEN STOP
  453.               NEXT I%
  454.               END     '¬«¡Ñµ »α«úαá¼¼δ
  455. 
  456.                           Ä»ÑαáΓ«α READ
  457. -----------------------------------------------------------------              
  458. ìạáτÑ¡¿Ñ    Ä»ÑαáΓ«α READ ºáúαπªáÑΓ »ÑαѼѡ¡δÑ º¡áτÑ¡¿∩¼¿  ¬«¡-
  459.               ßΓá¡Γ ¿º ß»¿ß¬á «»ÑαáΓ«αá DATA
  460.               
  461. æ¿¡Γá¬ß¿ß     READ »ÑαѼѡ¡á∩ [, »ÑαѼѡ¡á∩] ...
  462.                
  463. 諼¼Ñ¡Γáα¿⌐      ÅÑαѼѡ¡á∩ ¼«ªÑΓ íδΓ∞ τ¿ß½«ó«⌐ ¿½¿ ß¿¼ó«½∞¡«⌐.
  464.               
  465.                  READ ºáúαπªáÑΓ  ºáñá¡¡δÑ  »ÑαѼѡ¡δÑ  º¡áτÑ¡¿∩¼¿ 
  466.               ¬«¡ßΓá¡Γ, ß½ÑñπεΘ¿σ ºá ß½πªÑí¡δ¼ ß½«ó«¼ DATA.                
  467.                  é« óαѼ∩ óδ»«½¡Ñ¡¿∩ »α«úαá¼¼δ «»ÑαáΓ«α READ ßτ¿- 
  468.               ΓδóáÑΓ ¬«¡ßΓá¡Γδ ¿º «»ÑαáΓ«αá DATA ó Γ«¼ »«α∩ñ¬Ñ, ó 
  469.               ¬«Γ«α«¼ «¡¿ »«∩ó½∩εΓß∩.  ìá¿í«½ÑÑ  αáß»α«ßΓαá¡Ñ¡¡«⌐ 
  470.               «Φ¿í¬«⌐, ßó∩ºá¡¡«⌐ ß ¿ß»«½∞º«ó᡿Ѽ «»ÑαáΓ«α«ó DATA 
  471.               ¿ READ, ∩ó½∩ÑΓß∩ ¡Ñß«ó»áñÑ¡¿Ñ Γ¿»«ó ¬«¡ßΓá¡Γδ ¿ ß«- 
  472.               «ΓóÑΓßΓóπεΘÑ⌐ »ÑαѼѡ¡«⌐;  ¡á»α¿¼Ñα, »«»δΓ¬á ºáúαπ- 
  473.               º¿Γ∞ º¡áτÑ¡¿Ñ ß¿¼ó«½∞¡«⌐ ¬«¡ßΓá¡Γδ ó τ¿ß½«óπε »ÑαÑ- 
  474.               ¼Ñ¡¡πε.  é φΓ«¼  ß½πτáÑ  »«∩ó½∩ÑΓß∩  ß¿¡Γá¬ß¿τÑ߬á∩ 
  475.               «Φ¿í¬á («Φ¿í¬á óδ»«½¡Ñ¡¿∩).  
  476.                  æ««íΘÑ¡¿Ñ «í «Φ¿í¬Ñ ¡Ñ »«∩ó½∩ÑΓß∩,  Ñß½¿, ¡á«í«- 
  477.               α«Γ,  óδ »δΓáÑΓÑß∞ ºáúαπº¿Γ∞ τ¿ß½«óπε  ¬«¡ßΓá¡Γπ  ó 
  478.               ß¿¼ó«½∞¡πε »ÑαѼѡ¡πε.  
  479.                  àß½¿ óδ »δΓáÑΓÑß∞ ßτ¿ΓáΓ∞ «»ÑαáΓ«α«¼ READ í«½∞ΦÑ
  480.               ¬«¡ßΓá¡Γ,  τѼ «íΩ∩ó½Ñ¡« ó óáΦÑ⌐ »α«úαἼѠ«»ÑαáΓ«- 
  481.               αἿ DATA,  ÆôÉüÄ üàëæêè αÑú¿ßΓα¿απÑΓ «Φ¿í¬π óδ»«½- 
  482.               ¡Ñ¡¿∩ 4, Out of Data (¡Ñ σóáΓáÑΓ ñá¡¡δσ).  
  483.                  Ä»ÑαáΓ«α RESTORE »«ºó«½∩ÑΓ ºá¡«ó«  ßτ¿ΓáΓ∞  ¬«¡- 
  484.               ßΓá¡Γδ,  ºáñá¡¡δÑ »Ñαóδ¼ ¿½¿ ¬á¬¿¼-Γ« ñαπú¿¼ «»Ñαá- 
  485.               Γ«α«¼ DATA.  
  486.               
  487. æ¼.ΓᬪѠ     RESTORE
  488.               
  489. Åα¿¼Ñα        ' φΓá »α«úαá¼¼á ñѼ«¡ßΓα¿απÑΓ «»ÑαáΓ«α READ
  490.               
  491.             SUB ProgressResults (StudentName$, StudentAverage%)
  492.               LOCAL Total%, Value%, I%
  493.                 Total% = 0
  494.                 READ StudentName$
  495.                 FOR I% = 1 TO 10
  496.                   READ Value%
  497.                   Total% = Total% + Value%
  498.                 NEXT I%
  499.                 StudentAverage% = Total% / 10
  500.               END SUB
  501.               
  502.               FOR Student% = 1 TO 3
  503.                 CALL ProgressResults(SName$,Average%)
  504.             PRINT USING "&'s average is ###" : SName$,Average%
  505.               NEXT Student%
  506.               
  507.               END
  508.               
  509.        DATA W.Perry, 78, 65, 35, 79, 86, 93, 79, 85, 99, 96
  510.        DATA P.Watson, 98, 94, 70, 88, 99, 100, 75, 96, 100, 95
  511.        DATA M.Ciccone, 60, 65, 59, 75, 82, 56, 79, 82, 76, 69
  512. 
  513.                       öπ¡¬µ¿∩ ¿ «»ÑαáΓ«α REG
  514. -----------------------------------------------------------------              
  515. ìạáτÑ¡¿Ñ    REG  ó«ºóαáΘáÑΓ ¿½¿ ºáñáÑΓ º¡áτÑ¡¿Ñ ó íπΣÑαÑ ºáñá¡- 
  516.               ¡«ú« αÑú¿ßΓαá
  517.               
  518. æ¿¡Γá¬ß¿ß     öπ¡¬µ¿∩:
  519.               
  520.               y = REG (¡«¼Ñα αÑú¿ßΓαá)
  521.               
  522.               Ä»ÑαáΓ«α:
  523.               
  524.               REG ¡«¼Ñα αÑú¿ßΓαá, º¡áτÑ¡¿Ñ
  525.               
  526. 諼¼Ñ¡Γáα¿⌐      ì«¼Ñα αÑú¿ßΓαá ºáñáÑΓ »α«µÑßß«α¡δ⌐ αÑú¿ßΓα  ß«ú-
  527.               ½áß¡« ß½ÑñπεΘÑ⌐ Γáí½¿µÑ 
  528.               
  529.               ---------------------------------
  530.                ¡«¼Ñα
  531.                αÑú¿ßΓαá        αÑú¿ßΓα
  532.               ---------------------------------
  533.               
  534.                   0           Σ½áú¿
  535.                   1           AX
  536.                   2           BX
  537.                   3           CX
  538.                   4           DX
  539.                   5           SI
  540.                   6           DI
  541.                   7           BP
  542.                   8           DS
  543.                   9           ES
  544.               ------------------------------------
  545.                                 
  546.                  àß½¿  ¡«¼Ñα  αÑú¿ßΓαᠼѡ∞ΦÑ 0 ¿½¿ í«½∞ΦÑ 9,  Γ« 
  547.               ó«º¡¿¬áÑΓ «Φ¿í¬á óδ»«½¡Ñ¡¿∩ 5 Illegal Function Call 
  548.               (¡ÑóÑα¡δ⌐ ó맮ó Σπ¡¬µ¿¿).  
  549.                  ç¡áτÑ¡¿Ñ - φΓ« τ¿ß½«óá∩ »ÑαѼѡ¡á∩ ¿½¿ óδαáªÑ¡¿Ñ 
  550.               ó ñ¿á»áº«¡Ñ «Γ 0 ñ« 65536.  
  551.  
  552.                  öπ¡¬µ¿∩ REG ó«ºóαáΘáÑΓ º¡áτÑ¡¿Ñ óδíαá¡¡«ú«  φ½Ñ- 
  553.               ¼Ñ¡Γá ó αÑú¿ßΓα«ó«¼ íπΣÑαÑ. Ä»ÑαáΓ«α REG, ¡á«í«α«Γ, 
  554.               ºáúαπªáÑΓ  óδíαá¡¡δ⌐  φ½Ñ¼Ñ¡Γ  ó αÑú¿ßΓα«ó«¼ íπΣÑαÑ 
  555.               º¡áτÑ¡¿Ñ¼ ºáñá¡¡«⌐ µÑ½«⌐ »ÑαѼѡ¡«⌐.  
  556.                  Ä»ÑαáΓ«α ¿ Σπ¡¬µ¿∩ REG ¿ß»«½∞ºπεΓß∩ ñ½∩ »ÑαÑñáτ¿ 
  557.               ¿¡Σ«α¼áµ¿¿ «Γ «ñ¡«⌐ »α«úαá¼¼δ, ¡á»¿ßá¡¡«⌐ ¡á áßßѼ- 
  558.               í½ÑαÑ ¬ ñαπú«⌐. æ«ñÑন¼«Ñ αÑú¿ßΓα«ó«ú« íπΣÑαá ºáú- 
  559.               απªáÑΓß∩ ó  »α«µÑßß«α¡δÑ  αÑú¿ßΓαδ  ¡Ñ»«ßαÑñßΓóÑ¡¡« 
  560.               »ÑαÑñ ó맮óἿ ABSOLUTE ¿½¿ INTERRUPT. ÄíαáΓ¡á∩ ºá- 
  561.               úαπº¬á «ßπΘÑßΓó½∩ÑΓß∩ ¡Ñ»«ßαÑñßΓóÑ¡¡« »«ß½Ñ ó«ºóαá- 
  562.               Γá. é ¬áªñδ⌐ ñá¡¡δ⌐ ¼«¼Ñ¡Γ óαѼѡ¿ ß«ñÑন¼«Ñ íπΣÑ- 
  563.               αá ß««ΓóÑΓßΓóπÑΓ »α«µÑßß«α¡δ¼ αÑú¿ßΓαá¼  ¡á  ¼«¼Ñ¡Γ 
  564.               óδσ«ñá ¿º »«ß½Ññ¡Ñ⌐ ó¡πΓαÑ¡¡Ñ⌐ »α«úαá¼¼δ.  
  565.               
  566.  Åα¿¼Ñα       DEFINT a-z
  567.               DIM a(100)
  568.               DIM fillRoutine(10)
  569.               
  570.               FillRoutine (0) = &HFZFC
  571.               FillRoutine (1) = &HCBAA
  572.               
  573.               REG 1,-1
  574.               REG 3, 101 -2
  575.               REG 9, VARSEG(a(0))
  576.               REG 6, VARPTR(a(0))
  577. 
  578.               DEF SEG = VARSEG(FillRoutine(0))
  579.               PRINT a(I)
  580.               WHILE NOT INSTAT:WEND
  581.               FillAdr = VARPIR(FillRoutine(0))
  582.               CALL ABSOLUTE FillAdr  '(REG)
  583.               
  584.               PRINT a(I)
  585.               END
  586. 
  587.                            Ä»ÑαáΓ«α REM
  588. -----------------------------------------------------------------              
  589. ìạáτÑ¡¿Ñ    REM «Γñѽ∩ÑΓ ¬«¼¼Ñ¡Γáα¿¿ ó »α«úαá¼¼Ñ
  590.               
  591. æ¿¡Γá¬ß¿ß     REM ¬«¼¼Ñ¡Γáα¿⌐
  592.               
  593. 諼¼Ñ¡Γáα¿⌐      è«¼¼Ñ¡Γáα¿⌐ - φΓ« ½εíá∩ »«ß½Ññ«óáΓѽ∞¡«ßΓ∞  ß¿¼- 
  594.               ó«½«ó.  é  «Γ½¿τ¿Ñ «Γ ¬«¼¼Ñ¡Γáα¿Ñó ó ¿¡ΓÑα»αÑΓáΓ«αÑ 
  595.               üàëæêèÇ, ¬«¼¼Ñ¡Γáα¿¿ ÆôÉüÄ üàëæêèÇ »«∩ó½∩εΓß∩ Γ«½∞- 
  596.               ¬«  ó ¿ßσ«ñ¡«⌐ óÑαß¿¿ »α«úαá¼¼δ ¿,  ß««ΓóÑΓßΓóÑ¡¡«, 
  597.               ¡¿¬«¿¼ «íαẫ¼ ¡Ñ ó½¿∩εΓ ¡á ÑÑ óδ»«½¡Ñ¡¿∩.  
  598.                  é ì ê î Ç ì ê à!  ¬«¼¼Ñ¡Γáα¿¿ ¼«úπΓ »«∩ó½∩Γ∞ß∩ ó 
  599.               «ñ¡«⌐ ßΓα«¬Ñ ß ñαπú¿¼¿ «»ÑαáΓ«α«¼¿,  ¡« ¬«¼¼Ñ¡Γáα¿⌐ 
  600.               ¡Ñ»α¿¼Ñ¡¡«   ñ«½ªÑ¡  íδΓ∞  »«ß½Ññ¡¿¼  «»ÑαáΓ«α«¼  ó 
  601.               ßΓ᫬Ñ. Æá¬, ¡á»α¿¼Ñα, ß½ÑñπεΘá∩ »«ß½Ññ«óáΓѽ∞¡«ßΓ∞ 
  602.               «»ÑαáΓ«α«ó ¡Ñ íπñÑΓ óδ»«½¡∩Γ∞ß∩: 
  603.               
  604.               REM ΓÑ»Ñα∞ ß½«ª¿¼ τ¿ß½á : a = b+c,
  605.               
  606.               Γᬠ¬á¬ ¬«¼»¿½∩Γ«α ¡Ñ ß¼«ªÑΓ «Γñѽ¿Γ∞ ¬«¡Ñµ
  607.               ¬«¼¼Ñ¡Γáα¿∩ «Γ ¡áτá½á ß½ÑñπεΘÑú« «»ÑαáΓ«αá.
  608.               
  609.                  Åαáó¿½∞¡δ¼ óáα¿á¡Γ«¼ ºá»¿ß¿ Γᬫ⌐ »«ß½Ññ«óáΓѽ∞-
  610.               ¡«ßΓ¿ «»ÑαáΓ«α«ó íπñÑΓ: 
  611.               
  612.               a = b+c| REM ΓÑ»Ñα∞ ß¬½áñδóáѼ τ¿ß½á...
  613.   
  614.                  äαπú¿¼ «í«º¡áτÑ¡¿Ñ¼  ¬«¼¼Ñ¡Γáα¿∩  ∩ó½∩ÑΓß∩  º¡á¬ 
  615.               á»«ßΓα«Σá  (').  àß½¿  ¿ß»«½∞ºπÑΓß∩  á»«ßΓα«Σ,  ¡ÑΓ 
  616.               ¡Ñ«íσ«ñ¿¼«ßΓ¿  «Γñѽ∩Γ∞  ñó«ÑΓ«τ¿Ñ¼  »αÑñΦÑßΓóπεΘ¿⌐ 
  617.               ¬«¼¼Ñ¡Γáα¿ε «»ÑαáΓ«α.  
  618.                  ìÑ  ß½ÑñπÑΓ  ¿ß»«½∞º«óáΓ∞ á»«ßΓα«Σ ñ½∩ «Γñѽѡ¿∩ 
  619.               ¬«¼¼Ñ¡Γáα¿∩ «Γ «»ÑαáΓ«αá DATA,  »«½∞ºπ⌐ΓÑß∞  ó¼ÑßΓ« 
  620.               φΓ«ú« »«ß½Ññ«óáΓѽ∞¡«ßΓ∞ε :REM.  
  621.                  è«¼»¿½∩Γ«α ¿ú¡«α¿απÑΓ ¬«¼¼Ñ¡Γáα¿¿,  «¡¿ ¡Ñ ºá¡¿- 
  622.               ¼áεΓ ¼ÑßΓá ó «íΩÑ¬Γ¡δσ »α«úαá¼¼áσ, »«φΓ«¼π óδ ¼«ªÑ- 
  623.               ΓÑ ¿σ ΘÑñα« ¿ß»«½∞º«óáΓ∞.  
  624.               
  625. Åα¿¼Ñα        REM φΓá »α«úαá¼¼á ñѼ«¡ßΓα¿απÑΓ «»ÑαáΓ«α REM
  626.               
  627.               PRINT "φΓá »α«úαá¼¼á ñѼ«¡ßΓα¿απÑΓ «»ÑαáΓ«α REM"
  628.               
  629.               REM "END"
  630.               
  631.               END
  632.               
  633.               DATA 1, 2, 3   ƒ óÑα¡πß∞!: REM ¬«¼¼Ñ¡Γáα¿⌐
  634.               'ºá¼ÑΓ∞ΓÑ, τΓ« «ñ¿¡«τ¡δ⌐ á»«ßΓα«Σ ó ñá¡¡«¼ ß½πτáÑ
  635.               '¡Ñ ßτ¿ΓáÑΓß∩ αáºñѽ¿ΓѽѼ ¬«¼¼Ñ¡Γáα¿∩
  636. 
  637.                           Ä»ÑαáΓ«α RESET
  638. -----------------------------------------------------------------              
  639. ìạáτÑ¡¿Ñ    RESET ºá¬αδóáÑΓ ¿ ñѽáÑΓ ß¬αδΓ묨 ñ½∩ »α«úαá¼¼δ óßÑ
  640.               ñ¿ß¬«óδÑ Σá⌐½δ.
  641.               
  642. æ¿¡Γá¬ß¿ß     RESET
  643.               
  644. 諼¼Ñ¡Γáα¿⌐     RESET φ¬ó¿óá½Ñ¡ΓÑ¡ «»ÑαáΓ«απ CLOSE íѺ áαúπ¼Ñ¡Γ«ó.
  645. 
  646.                          Ä»ÑαáΓ«α RESTORE
  647. -----------------------------------------------------------------              
  648. ìạáτÑ¡¿Ñ    RESTORE »«ºó«½∩ÑΓ »«óΓ«α¡« τ¿ΓáΓ∞ ¬«¡ßΓá¡Γδ, ºáñá¡-
  649.               ¡δÑ ó «»ÑαáΓ«αÑ DATA.  
  650.               
  651. æ¿¡Γá¬ß¿ß     RESTORE [¼ÑΓ¬á]
  652.               
  653. 諼¼Ñ¡Γáα¿⌐      ì὿τ¿Ñ  ¼ÑΓ¬¿  ¡Ñ«í∩ºáΓѽ∞¡«.  îÑΓ¬π  π¬áºδóáÑΓ 
  654.               «»ÑαáΓ«α   DATA,   ¬«Γ«αδ⌐   íπñÑΓ   ¿ß»«½∞º«óáΓ∞ß∩ 
  655.               ß½ÑñπεΘ¿¼ «»ÑαáΓ«α«¼ READ.  
  656.                  Ä»ÑαáΓ«α RESTORE óδ¡πªñáÑΓ ÆôÉüÄ  üàëæêè  ºá¡«ó« 
  657.               πßΓá¡áó½¿óáΓ∞  ßτÑΓτ¿¬  «»ÑαáΓ«α«ó  DATA,  Γᬠ τΓ« 
  658.               ß½ÑñπεΘ¿⌐ «»ÑαáΓ«α READ íπñÑΓ »«óΓ«α¡« ¿ß»«½∞º«óáΓ∞ 
  659.               ñá¡¡δÑ »Ñαó«ú« (¿½¿  ºáñá¡-¡«ú«  ¼ÑΓ¬«⌐)  «»ÑαáΓ«αá 
  660.               DATA.  
  661.               
  662. æ¼.ΓᬪѠ     READ
  663.               
  664. Åα¿¼Ñα        ' τΓÑ¡¿Ñ ñá¡¡δσ ¿ ó«ßßΓá¡«ó½Ñ¡¿Ñ π¬áºáΓѽ∩
  665.               READ A$, B$
  666.               RESTORE
  667.               
  668.               ' τΓÑ¡¿Ñ ÑΘÑ ¡Ñ¬«Γ«αδσ ñá¡¡δσ
  669.               READ C$, D$
  670.               
  671.               ' óδó«ñ ñá¡¡δσ
  672.               PRINT A$, B$, C$, D$
  673.               
  674.               ' πßΓá¡«ó¬á π¬áºáΓѽ∩ ¡á »Ñαóδ⌐ «»ÑαáΓ«α DATA
  675.               ' »«ß½Ñ ¼ÑΓ¬¿
  676.               RESTORE MoreData
  677.               
  678.               ' τΓÑ¡¿Ñ ¿ óδó«ñ ñá¡¡δσ
  679.               READ A$, B$
  680.               PRINT A$, B$
  681.               
  682.               END        '¬«¡Ñµ »α«úαá¼¼δ
  683.               
  684.               ' «»αÑñѽѡ¿Ñ ñá¡¡δσ
  685.               DATA CAT, DOG
  686.               MoreData|
  687.                 DATA MONKEY, GNU
  688. 
  689.                          Ä»ÑαáΓ«α RESUME
  690. -----------------------------------------------------------------              
  691. ìạáτÑ¡¿Ñ    RESUME  »ÑαѺá»π߬áÑΓ  óδ»«½¡Ñ¡¿Ñ  »«ß½Ñ  «íαáí«Γ¬¿ 
  692.               «Φ¿í¬¿
  693.               
  694. æ¿¡Γá¬ß¿ß     RESUME [{0 | NEXT | ¼ÑΓ¬á}]
  695.               
  696. 諼¼Ñ¡Γáα¿⌐      RESUME  ¿½¿  RESUME 0  ó«º«í¡«ó½∩εΓ óδ»«½¡Ñ¡¿Ñ ß 
  697.               «»ÑαáΓ«αá, óδºóáóΦÑú« «Φ¿í¬π.  
  698.                  RESUME  ¼ÑΓ¬á ó«º«í¡«ó½∩ÑΓ óδ»«½¡Ñ¡¿Ñ ß »«¼ÑτÑ¡- 
  699.               ¡«ú« «»ÑαáΓ«αá.  
  700.                  àß½¿ «»ÑαáΓ«α RESUME óδ»«½¡∩ÑΓß∩  ¡Ñ  ó  »«ñ»α«- 
  701.               úαá¼¼Ñ,  «íαáíáΓδóáεΘÑ⌐  «Φ¿í¬π,  ó«º¡¿¬áÑΓ  «Φ¿í¬á 
  702.               óδ»«½¡Ñ¡¿∩ 20 
  703.               
  704.               RESUME WITHOUT ERROR
  705.               
  706.                  é ì ê î Ç ì ê à!   Åα¿ ¡á½¿τ¿¿  «»ÑαáΓ«α«ó  ERL, 
  707.               RESUME ¿  RESUME  NEXT,  ¬«¼»¿½∩Γ«α  úÑ¡Ñα¿απÑΓ  4-
  708.               íá⌐Γ«óδ⌐ π¬áºáΓѽ∞ ñ½∩ ¬áªñ«ú« «»ÑαáΓ«αá »α«úαá¼¼δ. 
  709.                  Åα«úαá¼¼¿ßΓδ,  ñ½∩ ¬«Γ«αδσ óáªÑ¡ αẼÑα »α«úαá¼- 
  710.               ¼¡«ú« ¬«ñá, úÑ¡Ñα¿απѼ«ú« ¬«¼»¿½∩Γ«α«¼, ñ«½ª¡δ »α¿- 
  711.               ¡∩Γ∞ φΓ« ¬ ßóÑñÑ¡¿ε.  êß»«½∞º«óá¡¿Ñ RESUME  [ßΓ᫬á 
  712.               #]  úÑ¡Ñα¿απÑΓ  »α«ßΓπε  ¿¡ßΓαπ¬µ¿ε  »ÑαÑσ«ñá.  ERL 
  713.               «íδτ¡« ¿ß»«½∞ºπÑΓß∩ ó µÑ½∩σ «Γ½áñ¬¿  Γá¬,  τΓ«  φΓ« 
  714.               «íßΓ«∩Γѽ∞ßΓó« ¡Ñ ß½¿Φ¬«¼ ó᪡«.  
  715.               
  716. Åα¿¼Ñα        ' πßΓá¡«ó¿Γ∞ «íαáí«Γ¬π «Φ¿í«¬
  717.               ON ERROR GOTO ErrorHandler
  718.               
  719.               ' φëà«»ÑαáΓ«α óδºδóáÑΓ «Φ¿í¬π óδ»«½¡Ñ¡¿∩
  720.               I# = LOG(-1)
  721.               
  722.               PRINT "»α«¿º«Φ½« »αÑαδóá¡¿Ñ »« «Φ¿í¬Ñ"...
  723.               
  724.               END
  725.               
  726.               ErrorHandler:
  727.                 PRINT "«Φ¿í¬á" ERR "ó «»ÑαáΓ«αÑ"  ERL
  728.                 RESUME NEXT
  729. 
  730.                          Ä»ÑαáΓ«α RETURN
  731. -----------------------------------------------------------------
  732.               
  733. ìạáτÑ¡¿Ñ    RETURN ó«ºóαáΘáÑΓ π»αáó½Ñ¡¿Ñ ¿º »«ñ»α«úαá¼¼δ ó óδº-
  734.               óáóΦπε ÑÑ »α«úαá¼¼π 
  735.               
  736. æ¿¡Γá¬ß¿ß     RETURN [¼ÑΓ¬á]
  737.               
  738. 諼¼Ñ¡Γáα¿⌐      îÑΓ¬á  π¬áºδóáÑΓ ßΓ᫬π, ¡á ¬«Γ«απε, »« ªÑ½á¡¿ε, 
  739.               óδ ¼«ªÑΓÑ »ÑαÑñáΓ∞ π»αáó½Ñ¡¿Ñ.  
  740.             
  741.                  RETURN »αÑαδóáÑΓ óδ»«½¡Ñ¡¿Ñ »«ñ»α«úαá¼¼δ ¿ »ÑαÑ- 
  742.               ñáÑΓ π»αáó½Ñ¡¿Ñ «»ÑαáΓ«απ,  ¡Ñ»«ßαÑñßΓóÑ¡¡« ß½Ññπε- 
  743.               ΘѼπ ºá óδº«ó«¼ »«ñ»α«úαá¼¼δ (GOSUB).  
  744.                  ìÑ«í∩ºáΓѽ∞¡á∩  ¼ÑΓ¬á »αÑñ¡áº¡áτÑ¡á ñ½∩ «í½ÑúτÑ- 
  745.               ¡¿∩ ó«ºóαáΘÑ¡¿∩ ¿º »«ñ»α«úαá¼¼ «íαáí«Γ¬¿ »αÑαδóá¡¿⌐ 
  746.               ¿ «Φ¿í«¬.  RETURN ¼ÑΓ¬á «τ¿ΘáÑΓ  áñαÑß  ¡á  óÑαΦ¿¡Ñ 
  747.               ßΓѬᠠ¿ óδ»«½¡∩ÑΓ «»ÑαáΓ«α »ÑαÑσ«ñá (GOTO) ¡á «»Ñ- 
  748.               αáΓ«α, ¿ñÑ¡Γ¿Σ¿µ¿απѼδ⌐ ¼ÑΓ¬«⌐. é ¡Ñ¬«Γ«αδσ óÑαß¿∩σ 
  749.               üàëæêèÇ  φΓá  «»Ñαᵿ∩ óδ»«½¡∩ÑΓß∩ ß »«¼«Θ∞ε «»Ñαá- 
  750.               Γ«αá POP ¿ GOTO.  
  751.               
  752.                  éδ»«½¡Ñ¡¿Ñ RETURN íѺ »αÑñóáα¿Γѽ∞¡«ú« «íαáΘÑ¡¿∩ 
  753.               GOSUB ó맮óÑΓ ¡Ñ«ª¿ñá¡¡δÑ ¿  Γαπñ¡«  «í¡áαπª¿óáѼδÑ 
  754.               «Φ¿í¬¿.    îδ    ß«óÑΓπѼ   ó¬½ετ¿Γ∞   ΓÑßΓ   ßΓѬá 
  755.               (Stacktest) ó  ß»π߬áεΘѼß∩  ¼Ñ¡ε  "óáα¿á¡Γ«ó"  ñ½∩ 
  756.               «í¡áαπªÑ¡¿∩ »«ñ«í¡δσ «Φ¿í«¬.  
  757.               
  758. æ¼.ΓᬪѠ     GOSUB        GOTO
  759.               
  760. Åα¿¼Ñα        æ¼. »α¿¼Ñα ¬ «»ÑαáΓ«απ GOSUB
  761. 
  762.                          öπ¡¬µ¿∩  RIGHT$
  763. -----------------------------------------------------------------
  764.               
  765. ìạáτÑ¡¿Ñ    öπ¡¬µ¿∩ RIGHT$  ó«ºóαáΘáÑΓ n »αáóδσ ß¿¼ó«½«ó ºáñá¡- 
  766.               ¡«⌐ ßΓ᫬¿
  767.               
  768. æ¿¡Γá¬ß¿ß     s$ = RIGHT$ (ß¿¼ó«½∞¡«Ñ óδαáªÑ¡¿Ñ, n)
  769.               
  770. 諼¼Ñ¡Γáα¿⌐      n - µÑ½«Ñ óδαáªÑ¡¿Ñ, ºáñáεΘÑÑ τ¿ß½« ó«ºóαáΘáѼδσ 
  771.               º¡á¬«ó ß¿¼ó«½∞¡«ú« óδαáªÑ¡¿∩;  n ñ«½ª¡« íδΓ∞ ó ñ¿á- 
  772.               »áº«¡Ñ «Γ 0 ñ« 32767.  
  773.               
  774.                  RIGHT$  ó«ºóαáΘáÑΓ π¬áºá¡¡«Ñ τ¿ß½« º¡á¬«ó ßó«Ñú« 
  775.               ß¿¼ó«½∞¡«ú« áαúπ¼Ñ¡Γá,  ¡áτ¿¡á∩  ß  ßἫú«  »αáó«ú« 
  776.               ß¿¼ó«½á. àß½¿ n í«½∞ΦÑ ñ½¿¡δ ßΓ᫬¿ ß¿¼ó«½∞¡«ú« óδ- 
  777.               αáªÑ¡¿∩,  ó«ºóαáΘáÑΓß∩ óßÑ ß¿¼ó«½∞¡«Ñ óδαáªÑ¡¿Ñ µÑ- 
  778.               ½¿¬«¼. àß½¿ n=0, RIGHT$ ó«ºóαáΘáÑΓ »πßΓπε ßΓ᫬π.  
  779.               
  780. æ¼.ΓᬪѠ     LEFT$     MID$
  781.               
  782. Åα¿¼Ñα        RIGHT$ ("JOHN JONES",5)
  783. 
  784.                           Ä»ÑαáΓ«α RMDIR
  785. -----------------------------------------------------------------              
  786. ìạáτÑ¡¿Ñ    RMDIR πñá½∩ÑΓ ¬áΓὫú (á¡á½«ú ¬«¼á¡ñδ RMDIR DOS)
  787.               
  788. æ¿¡Γá¬ß¿ß     RMDIR ¼áαΦαπΓ
  789.               
  790. 諼¼Ñ¡Γáα¿⌐      îáαΦαπΓ -  ßΓá¡ñáαΓ¡á∩ ßΓα«¬á «»¿ßá¡¿∩ ¼áαΦαπΓá.
  791.               RMDIR  πñá½∩ÑΓ  ¬áΓὫú,  ß««ΓóÑΓßΓóπεΘ¿⌐ ¼áαΦαπΓπ.  
  792.               ¥Γ«Γ «»ÑαáΓ«α φ¬ó¿óá½Ñ¡ΓÑ¡ ¬«¼á¡ñÑ  RMDIR  DOS  (ºá 
  793.               ¿ß¬½ετÑ¡¿Ñ¼ Γ«ú«,  τΓ« ß½πªÑí¡«Ñ ß½«ó« «»ÑαáΓ«αá ¡Ñ 
  794.               ¼«ªÑΓ íδΓ∞ ß«¬αáΘÑ¡«). ìá «»ÑαáΓ«α αáß»α«ßΓαá¡∩εΓß∩ 
  795.               ΓÑ ªÑ «úαá¡¿τÑ¡¿∩,  á ¿¼Ñ¡¡«,  τΓ«  ¼áαΦαπΓ  ºáñáÑΓ 
  796.               ßπΘÑßΓóπεΘ¿⌐,  »πßΓ«⌐  ¬áΓὫú.   àß½¿  ¬áΓὫú  ¡Ñ 
  797.               ∩ó½∩ÑΓß∩ »πßΓδ¼,  ó«º¡¿¬áÑΓ  «Φ¿í¬á  óδ»«½¡Ñ¡¿∩  75 
  798.               Path/File    Access   Error   («Φ¿í¬á   ñ«ßΓπ»á   ¬ 
  799.               ¼áαΦαπΓπ/Σá⌐½π).  
  800.               
  801. Åα¿¼Ñα        ' πßΓá¡«ó¿Γ∞ «íαáí«Γ¬π «Φ¿í«¬
  802.               ON ERROR GOTO ErrorHandler
  803.               
  804.            INPUT "éóÑñ¿ΓÑ ¿¼∩ ¬áΓὫúá, »«ñ½ÑªáΘÑú« πñá½Ñ¡¿ε:",D$
  805.               
  806.               RMDIR D$    'πñá½Ñ¡¿Ñ ¬áΓὫúá
  807.               
  808.               END         '¬«¡Ñµ »α«úαá¼¼δ
  809.               
  810.               ErrorHandler:
  811.                 PRINT "ÄΦ¿í¬á " ERR " ó «»ÑαáΓ«αÑ " ERADR
  812.                 RESUME NEXT
  813. 
  814.                            öπ¡¬µ¿∩  RND
  815. -----------------------------------------------------------------              
  816. ìạáτÑ¡¿Ñ    RND ó«ºóαáΘáÑΓ »ßÑóñ«ß½πτá⌐¡«Ñ τ¿ß½«
  817.               
  818. æ¿¡Γá¬ß¿ß     y = RND [(τ¿ß½«ó«Ñ óδαáªÑ¡¿Ñ)]
  819.               
  820. 諼¼Ñ¡Γáα¿⌐      RND  ó«ºóαáΘáÑΓ »ßÑóñ«ß½πτá⌐¡«Ñ τ¿ß½«  «Γ 0 ñ« 1
  821.               ß ñó«⌐¡«⌐ Γ«τ¡«ßΓ∞ε.
  822.               
  823.                  ù¿ß½á,  úÑ¡Ñα¿απѼδÑ ß  »«¼«Θ∞ε  RND,  ¡á  ßἫ¼ 
  824.               ñѽÑ, ó«óßÑ ¡Ñ ∩ó½∩εΓß∩ ß½πτá⌐¡δ¼¿,  á ∩ó½∩εΓß∩ αÑ- 
  825.               ºπ½∞ΓáΓ«¼   »α¿¼Ñ¡Ñ¡¿∩  á½ú«α¿Γ¼á  »ßÑóñ«ß½πτá⌐¡«ú« 
  826.               »αÑ«íαẫóá¡¿∩ ¬ ¡áτá½∞¡«¼π  º¡áτÑ¡¿ε  (¬  º¡áτÑ¡¿ε 
  827.               "»«ßÑóá").  àß½¿  ñá¡δ  «ñ¡¿ ¿ ΓÑ ªÑ ¡áτá½∞¡δÑ º¡á- 
  828.               τÑ¡¿∩,  á½ú«α¿Γ¼  RND ÆôÉüÄ üàëæêèÇ »α«¿ºó«ñ¿Γ «ñ¿- 
  829.               ¡á¬«óδÑ µÑ»«τ¬¿ "ß½πτá⌐¡δσ" τ¿ßѽ.  
  830.               
  831.                  äÑ⌐ßΓó¿Ñ Σπ¡¬µ¿¿ RND ºáó¿ß¿Γ «Γ  ¡Ñ«í∩ºáΓѽ∞¡«ú« 
  832.               τ¿ß½«ó«ú« º¡áτÑ¡¿∩, ºáñá¡¡«ú« ó ¬áτÑßΓóÑ áαúπ¼Ñ¡Γá.  
  833.               àß½¿   áαúπ¼Ñ¡Γ  ¡Ñ  ºáñá¡  ¿½¿  »«½«ª¿Γѽѡ,   RND 
  834.               úÑ¡Ñα¿απÑΓ  ß½ÑñπεΘÑÑ  τ¿ß½«  ó  »«ß½Ññ«óáΓѽ∞¡«ßΓ¿ 
  835.               ß½πτá⌐¡δσ τ¿ßѽ, ºáó¿ß∩ΘÑ⌐ «Γ ¡áτá½∞¡«⌐ πßΓá¡«ó¬¿.                
  836.                  àß½¿ áαúπ¼Ñ¡Γ αáóÑ¡ 0, RND »«óΓ«α∩ÑΓ τ¿ß½«, ßúÑ- 
  837.               ¡Ñα¿α«óá¡¡«Ñ Σπ¡¬µ¿Ñ⌐ »«ß½Ññ¡¿¼.                
  838.                  ÄΓα¿µáΓѽ∞¡δ⌐ áαúπ¼Ñ¡Γ  ºáñáÑΓ  ¡«óπε  ¡áτá½∞¡πε 
  839.               πßΓá¡«ó¬π ñáΓτ¿¬á ß½πτá⌐¡δσ  τ¿ßѽ  Γá¬,  τΓ«  »«ß- 
  840.               ½ÑñπεΘ¿Ñ  ó맮óδ  Σπ¡¬µ¿¿  RND  íѺ áαúπ¼Ñ¡Γá ¿½¿ ß 
  841.               »«½«ª¿Γѽ∞¡δ¼  áαúπ¼Ñ¡Γ«¼  íπñπΓ  ó«ºóαáΘáΓ∞  ¡«óπε 
  842.               »«ß½Ññ«óáΓѽ∞¡«ßΓ∞ º¡áτÑ¡¿⌐.                
  843.                  é «íΘѼ,  ¿ß»«½∞ºπ⌐ΓÑ RANDOMIZE TIMER «ñ¿¡ αẠó 
  844.               ¡áτá½Ñ »α«úαá¼¼δ ñ½∩ Γ«ú«, τΓ«íδ «»ÑαáΓ«α RND óδñá- 
  845.               óá½  ¡«óπε »«ß½Ññ«óáΓѽ∞¡«ßΓ∞ º¡áτÑ¡¿⌐.  ìÑ ß½ÑñπÑΓ 
  846.               ¿ß»«½∞º«óáΓ∞ ¡π½Ñó«Ñ ¿½¿ «Γα¿µáΓѽ∞¡«Ñ º¡áτÑ¡¿∩ áα- 
  847.               úπ¼Ñ¡Γᠺᠿ߬½ετÑ¡¿Ñ¼ ΓÑσ ß½πτáÑó,  ¬«úñá  óá¼  ¡Ñ 
  848.               ¡πª¡δ óδºδóáѼδÑ ¿½¿ «ß«íδÑ »«ß½ÑñßΓó¿∩.                
  849.                  ä½∩ Γ«ú«, τΓ«íδ »«½πτ¿Γ∞ ß½πτá⌐¡«Ñ µÑ½«Ñ «Γ 1 ñ« 
  850.               n   ó¬½ετ¿Γѽ∞¡«,   ¼«ª¡«   ¿ß»«½∞º«óáΓ∞  ß½ÑñπεΘ¿⌐ 
  851.               ß»«ß«í: 
  852.               
  853.               randomNo% = INT(RND + n) + 1
  854.               
  855.                    àΘÑ ½πτΦÑ ß«ºñáΓ∞ Σπ¡¬µ¿ε:
  856.               
  857.               DEF FNRndInt% (x%) = INT (RND + x%) + 1
  858.               
  859. æ¼.ΓᬪѠ     RANDOMIZE
  860.               
  861. Åα¿¼Ñα        FOR I% = 1 TO 10 STEP 1.34
  862.                 PRINT USING "###.##^^^";RND(I%)
  863.               NEXT I%
  864.               END
  865. 
  866.                           Ä»ÑαáΓ«α RSET
  867. -----------------------------------------------------------------              
  868. ìạáτÑ¡¿Ñ    RSET  »ÑαѼÑΘáÑΓ  ß¿¼ó«½∞¡δÑ ñá¡¡δÑ ó íπΣÑα Σá⌐½á ß
  869.               »α«¿ºó«½∞¡δ¼ ñ«ßΓπ»«¼
  870.               
  871. æ¿¡Γá¬ß¿ß     RSET »ÑαѼѡ¡á∩-»«½Ñ = ß¿¼ó«½∞¡«Ñ óδαáªÑ¡¿Ñ
  872.               
  873. 諼¼Ñ¡Γáα¿⌐      Ä»ÑαáΓ«αδ RSET ¿ LSET »ÑαÑßδ½áεΓ ß¿¼ó«½∞¡δÑ ñá¡-
  874.               ¡δÑ  ó »ÑαѼѡ¡πε-»«½Ñ,  ¬«Γ«αá∩ «»αÑñѽѡá ó »αÑñ- 
  875.               ΦÑßΓóπεΘѼ «»ÑαáΓ«αÑ  FIELD  ¿  »α¿¡áñ½Ñª¿Γ  íπΣÑαπ 
  876.               Σá⌐½á ß »α«¿ºó«½∞¡δ¼ ñ«ßΓπ»«¼.  
  877.                  àß½¿  ñ½¿¡á  ß¿¼ó«½∞¡«ú«  óδαáªÑ¡¿∩ ¼Ñ¡∞ΦÑ,  τѼ 
  878.               ñ½¿¡á »ÑαѼѡ¡«⌐-»«½Ñ,  «»ÑαáΓ«α RSET óδ»«½¡∩ÑΓ óδ- 
  879.               αáó¡¿óá¡¿Ñ »« »αáó«¼π  º¡á¬π,  ñ«»«½¡∩∩  »«½Ñ  »α«- 
  880.               íѽἿ. ¥Γ« «º¡áτáÑΓ, τΓ« »α«íѽδ ñ«íáó½∩εΓß∩ »ÑαÑñ 
  881.               »Ñαóδ¼  º¡á¬«¼  ß¿¼ó«½∞¡«ú« óδαáªÑ¡¿∩ ß ΓѼ,  τΓ«íδ 
  882.               Σπ¡¬µ¿∩  LEN  (»ÑαѼѡ¡á∩-»«½Ñ)  ó«ºóαáΘá½á  Γ«  ªÑ 
  883.               º¡áτÑ¡¿Ñ,   ¬«Γ«α«Ñ   π¬áºá¡«   ó   ß««ΓóÑΓßΓóπεΘѼ 
  884.               «»ÑαáΓ«αÑ FIELD.  
  885.               
  886.                  LSET óδ»«½¡∩ÑΓ óδαáó¡¿óá¡¿Ñ »« ½Ñó«¼π º¡á¬π, ñ«-
  887.               »«½¡∩∩ »«½Ñ »α«íѽἿ  (»α«íÑ½δ  ñ«íáó½∩εΓß∩  »«ß½Ñ 
  888.               »«ß½Ññ¡Ñú« º¡á¬á ß¿¼ó«½∞¡«ú« óδαáªÑ¡¿∩).  
  889.                  RSET ¼«ªÑΓ ΓᬪѠ¿ß»«½∞º«óáΓ∞ß∩ ñ½∩ Σ«α¼áΓ¿α«óá-
  890.               ¡¿∩ óδó«ñ¿¼δσ ¡á φ¬αá¡ ¿½¿ ¡á »α¿¡ΓÑα ñá¡¡δσ: 
  891.               
  892.               a$ = space$(20)
  893.               RSET a$ = "Right-just"
  894.               PRINT a$
  895.               
  896. æ¼.ΓᬪѠ     LSET
  897.               
  898. Åα¿¼Ñα        OPEN "RSET.DTA" AS #1 LEN=18
  899.               
  900.               ' «»αÑñѽѡ¿Ñ ¿¼Ñ¡ ¿ αẼÑα«ó »«½Ñ⌐
  901.               FIELD 1,2 AS FileInt$, 4 AS FileLong$,_
  902.                       4 AS FileSngl$, 8 AS FileDbl$
  903.               
  904.               ' »α¿ßó«Ñ¡¿Ñ ¡Ñ¬«Γ«αδσ º¡áτÑ¡¿⌐ »«½∩¼ ¿
  905.               ' ºá¡ÑßÑ¡¿Ñ ºá»¿ß¿ ó Σá⌐½ ß »α«¿ºó«½∞¡δ¼ ñ«ßΓπ»«¼
  906.               FOR Count% = 1 TO 5
  907.                 RSET FileInt$ = MKI$(Count%)
  908.                 RSET FileLong$ = MKL$(Count%^2)
  909.                 RSET FileSngl$ = MKS$(Count%^2.1)
  910.                 RSET FileDbl$ = MKD$(Count%^4.4)
  911.                 PUT 1, Count%
  912.               NEXT Count%
  913.               
  914.               CLOSE 1    'ºá¬αδΓ¿Ñ Σá⌐½á
  915.               
  916.               END        '¬«¡Ñµ »α«úαá¼¼δ
  917. 
  918.                            Ä»ÑαáΓ«α RUN
  919. -----------------------------------------------------------------              
  920. ìạáτÑ¡¿Ñ    RUN »ÑαѺá»π߬áÑΓ »α«úαá¼¼π
  921.               
  922. æ¿¡Γá¬ß¿ß     RUN [¿¼∩ Σá⌐½á]
  923.               
  924. 諼¼Ñ¡Γáα¿⌐      Ä»ÑαáΓ«α RUN íѺ áαúπ¼Ñ¡Γá »ÑαѺá»π߬áÑΓ ß ¡áτá-
  925.               ½á »α«úαá¼¼π ¡á ÆôÉüÄ üàëæêèà.  éßÑ τ¿ß½«óδÑ  »ÑαÑ- 
  926.               ¼Ñ¡¡δÑ (ó¬½ετá∩ φ½Ñ¼Ñ¡Γδ ¼áßß¿óá) πßΓá¡áó½¿óáεΓß∩ ó 
  927.               0,   á  óßѼ  ß¿¼ó«½∞¡δ¼  »ÑαѼѡ¡δ¼  »α¿ßóá¿óáÑΓß∩ 
  928.               »πßΓá∩ ßΓ᫬á.  
  929.                
  930.                  ê¼∩ Σá⌐½á, Ñß½¿ «¡« ºáñá¡«, - φΓ« ß¿¼ó«½∞¡«Ñ óδ-
  931.               αáªÑ¡¿Ñ,  »αÑñßΓáó½∩εΘÑÑ Σá⌐½ Γ¿»á .TBC  ¿½¿  .EXE, 
  932.               (¬«Γ«αδÑ ∩ó½∩εΓß∩ αѺπ½∞ΓáΓ«¼ ¬«¼á¡ñδ Chain ¿½¿ EXE 
  933.               ¿º  ¼Ñ¡ε "óáα¿á¡Γδ",  πßΓá¡áó½¿óáεΘÑ⌐ αѪ¿¼δ αáí«Γδ 
  934.               ¬«¼»¿½∩Γ«αá).  àß½¿ ó ¿¼Ñ¡¿ Σá⌐½á ¡Ñ π¬áºá¡« αáßΦ¿- 
  935.               αÑ¡¿Ñ,  Γ«  »« π¼«½τá¡¿ε »αÑñ»«½áúáÑΓß∩ .TBC;  Ñß½¿ 
  936.               αáßΦ¿αÑ¡¿Ñ π¬áºá¡«, «¡« ¿ ¿ß»«½∞ºπÑΓß∩.  
  937.                  Åα¿ ºá»π߬Ѡ¿½¿ ßó∩ºδóá¡¿¿ ó .EXE Σá⌐½ ß½ÑñπÑΓ ó 
  938.               ∩ó¡«¼ ó¿ñÑ »α¿ß«Ññ¿¡¿Γ∞ .EXE ¬ ¿¼Ñ¡¿ Σá⌐½á.  
  939.               
  940. Åα¿¼Ñα        ' ¬«¼»¿½∩µ¿∩ φΓ«⌐ »α«úαá¼¼δ ó Σá⌐½, ¡áºóá¡¡δ⌐
  941.               ' MASTER.EXE
  942.               
  943.               ' óó«ñ ¿¼Ñ¡¿ SLAVE ó «ΓóÑΓ ¡á »«ñ߬Ậπ
  944.               INPUT "éóÑñ¿ΓÑ ¿¼∩ ºá»π߬áѼ«⌐ »α«úαá¼¼δ:", N$
  945.               
  946.               RUN N$      '»α«ú«¡ ºáñá¡¡«⌐ »α«úαá¼¼δ
  947.               
  948.               END         '¬«¡Ñµ »α«úαá¼¼δ
  949.               
  950.               ' ¬«¼»¿½∩µ¿∩ φΓ«⌐ »α«úαá¼¼δ ó SLAVE.TBC
  951.               ' »« ¬«¼á¡ñÑ "¬«¼»¿½∩µ¿∩ ó µÑ»¡«⌐ Σá⌐½"
  952.               ' ó ¼Ñ¡ε "éáα¿á¡Γδ"
  953.               PRINT "ÆÑ»Ñα∞ ¼δ ó »α«úαἼѠSLAVE"
  954.               
  955.               END         '¬«¡Ñµ »α«úαá¼¼δ
  956. 
  957.                           öπ¡¬µ¿∩ SCREEN
  958. -----------------------------------------------------------------              
  959. ìạáτÑ¡¿Ñ    SCREEN ó«ºóαáΘáÑΓ ASCII-¬«ñ ß¿¼ó«½á, ¡áσ«ñ∩ΘÑú«ß∩ ó 
  960.               π¬áºá¡¡«⌐ ßΓα«¬Ñ ¿ »«º¿µ¿¿
  961.               
  962. æ¿¡Γá¬ß¿ß     y = SCREEN (ßΓ᫬á, »«º¿µ¿∩ [, óáα¿á¡Γ])
  963.               
  964. 諼¼Ñ¡Γáα¿⌐      æΓα«¬á ¿ »«º¿µ¿∩ - µÑ½δÑ óδαáªÑ¡¿∩  ó  ñ¿á»áº«¡Ñ 
  965.               «Γ 1 ñ« 25 ¿ «Γ 1 ñ« 80, ß««ΓóÑΓßΓóÑ¡¡«.
  966.               
  967.                  öπ¡¬µ¿∩ SCREEN ó ΓѬßΓ«ó«¼ αѪ¿¼Ñ - ñó«⌐¡¿¬ Σπ¡- 
  968.               ¬µ¿¿ POINT ó úαáΣ¿τÑ߬«¼ αѪ¿¼Ñ.  SCREEN ó«ºóαáΘáÑΓ 
  969.               ¿¡Σ«α¼áµ¿ε « ß¿¼ó«½Ñ ó ºáñá¡¡«⌐  »«º¿µ¿¿  π¬áºá¡¡«⌐ 
  970.               ßΓ᫬¿;  ¡á»α¿¼Ñα,  SCREEN 1,1 ó«ºóαáΘáÑΓ ASCII-¬«ñ 
  971.               ß¿¼ó«½á ó »Ñαó«⌐ »«º¿µ¿¿ »Ñαó«⌐ ßΓ᫬¿.  
  972.  
  973.                  àß½¿ ¡Ñ«í∩ºáΓѽ∞¡δ⌐ »áαá¼ÑΓα "óáα¿á¡Γ" αáóÑ¡  1, 
  974.               SCREEN  ó«ºóαáΘáÑΓ  áΓα¿íπΓ,  σαá¡¿¼δ⌐  ó  ºáñá¡¡«⌐ 
  975.               »«º¿µ¿¿ (ßΓ᫬á, ¬«½«¡¬á), á ¡Ñ ¬«ñ ß¿¼ó«½á.  
  976.               
  977. Åα¿¼Ñα        LOCATE 10,10
  978.               PRINT "ASCII"
  979.               
  980.               ' ASCII-¬«ñ ñ½∩ A - 65,
  981.               ' »« π¼«½τá¡¿ε áΓα¿íπΓ φ¬αá¡á (íѽδ⌐ ¡á τÑα¡«¼)
  982.               ' αáóÑ¡ 7
  983.               PRINT SCREEN (10,10), SCREEN (10,10,1)
  984.               
  985.               END         '¬«¡Ñµ »α«úαá¼¼δ
  986.  
  987.                                       
  988.  
  989.  
  990.