home *** CD-ROM | disk | FTP | other *** search
/ For Beginners & Professional Hackers / cd.iso / docum / tbas.doc / tb57.doc < prev    next >
Encoding:
Text File  |  1990-04-28  |  32.0 KB  |  694 lines
  1.  
  2.                           çá∩ó½Ñ¡¿Ñ OPEN
  3.                           --------------
  4.  
  5.       öπ¡¬µ¿∩   OPEN    »«ñú«Γáó½¿óáÑΓ Σá⌐½ ¿½¿  πßΓα«⌐ßΓó«  ßτ¿Γδóá¡¿∩
  6.       -------           ¿½¿ º»¿ß¿.
  7.       æ¿¡Γá¬ß¿ß  OPEN Σá⌐½ß»Ñµ [FOR αѪ¿¼] AS[#]Σá⌐½á¡«¼ [LEN=αẼÑαºá-
  8.       ---------  »¿ß¿]
  9.                ¿½¿ OPEN αѪ¿¼¡á∩ ßΓ᫬á,[#]Σá⌐½á¡«¼, Σá⌐½á߻ѵ [,αẼÑα
  10.                    ºá»¿ß¿]
  11.       çá¼Ñτá¡¿∩        ÉѪ¿¼ ¼«ªÑΓ íδΓ∞ «ñ¡¿¼ ¿º ß½ÑñπεΘ¿σ:
  12.       ---------        OUTPUT -  ß»Ñµ¿Σ¿µ¿απÑΓß∩  »«ß½Ññ«óáΓѽ∞¡δ⌐ Σá⌐½
  13.                                  ñ½∩ ºá»¿ß¿ ó ¡Ñú«;
  14.        INPUT - ß»Ñµ¿Σ¿µ¿απÑΓß∩ »«ß½Ññ«óáΓѽ∞¡δ⌐  Σá⌐½ ñ½∩ ßτ¿Γδóá¡¿∩ ¿º
  15.                ¡Ñú«;
  16.        APPEND - ß»Ñµ¿Σ¿µ¿απÑΓß∩  »«ß½Ññ«óáΓѽ∞¡δ⌐ Σá⌐½ ñ½∩ ñ«íáó½Ñ¡¿∩ ¬
  17.                 ¡Ñ¼π;
  18.        RANDON - ß»Ñµ¿Σ¿µ¿απÑΓß∩  »α«¿ºó«½∞¡δ⌐  Σá⌐½ ñ½∩  ßτ¿Γδóá¡¿∩ ¿½¿
  19.                 ºá»¿ß¿;
  20.        BINARY- ß»Ñµ¿Σ¿µ¿απÑΓß∩ ñó«¿τ¡δ⌐ Σá⌐½ ñ½∩ ßτ¿Γδóá¡¿∩ ¿½¿ ºá»¿ß¿;
  21.        ÉѪ¿¼¡á∩ ßΓ᫬á - φΓ« ßΓα«τ¡«Ñ óδαáªÑ¡¿Ñ, »Ñαóá∩ (¿ «íδτ¡« Ññ¿¡-
  22.        ---------------   ßΓóÑ¡¡á∩)  ½¿ΓÑαá ¬«Γ«α«ú« ¼«ªÑΓ íδΓ∞ «ñ¡«⌐ ¿º
  23.        ß½ÑñπεΘ¿σ:
  24.          0 - ß»Ñµ¿Σ¿µ¿απÑΓß∩ αѪ¿¼ »«ß½Ññ«óáΓѽ∞¡«ú« óδó«ñá
  25.          I - ß»Ñµ¿Σ¿µ¿απÑΓß∩ αѪ¿¼ »«ß½Ññ«óáΓѽ∞¡«ú« óó«ñá
  26.          Ç-߻ѵ¿Σ¿µ¿απÑΓß∩ αѪ¿¼ »«ß½Ññ«óáΓѽ∞¡«ú« óδó«ñá ó ¬«¡Ñµ Σá⌐½á
  27.          R - ß»Ñµ¿Σ¿µ¿απÑΓß∩ αѪ¿¼ »α«¿ºó«½∞¡«ú« óó«ñá/óδó«ñá
  28.          é - ß»Ñµ¿Σ¿µ¿απÑΓß∩ αѪ¿¼ ñó«¿τ¡«ú« óó«ñá/óδó«ñá
  29.          öá⌐½á¡«¼  ¼«ªÑΓ  íδΓ∞  ½εíδ¼  µÑ½δ¼ τ¿ß½«¼. ä½∩ πóѽ¿τÑ¡¿∩ ¿½¿
  30.       π¼Ñ¡∞ΦÑ¡¿∩  φΓ«ú« º¡áτÑ¡¿∩ ¿ß»«½∞ºπ⌐ΓÑ  DOS - ºá∩ó½Ñ¡¿Ñ  FILES  ó
  31.       Σá⌐½Ñ CONFIG.SYS (ß¼. í«½ÑÑ »«ñα«í¡πε ¿¡Σ«α¼áµ¿ε ó ß»αáó«τ¡«¼ απ-
  32.       ¬«ó«ñßΓóÑ »« DOS).
  33.          öá⌐½á¡Ñµ  - φΓ«  ßΓα«τ¡«Ñ óδαáªÑ¡¿Ñ ß»Ñµ¿Σ¿µ¿απεΘÑÑ ¿¼∩ Σá⌐½á,
  34.       »«ñ½ÑªáΘÑú«  «Γ¬αδóá¡¿ε,  ¿,  «»µ¿«¡á½∞¡«,  ß»Ñµ¿Σ¿¬áµ¿∩  »α¿ó«ñá
  35.       ¿/¿½¿ »α«σ«ñá.
  36.          ÉẼÑα ºá»¿ß¿ - φΓ«  µÑ½«Ñ óδαáªÑ¡¿Ñ, ½ÑªáΘÑÑ ó ñ¿á»áº«¡Ñ «Γ 1
  37.       ñ« 32767  ¿  ß»Ñµ¿Σ¿µ¿απεΘÑÑ  ñ½¿¡π  ó íá⌐Γáσ ¬áªñ«⌐ ºá»¿ß¿ Σá⌐½á
  38.       »α«¿ºó«½∞¡«ú«  ñ«ßΓπ»á. Å« π¼«½τá¡¿ε, αẼÑα ºá»¿ß¿: 128 íá⌐Γ«ó.
  39.          â½áó¡á∩  Σπ¡¬µ¿∩  OPEN  ß«ßΓ«¿Γ ó »α¿ó∩º¬Ñ ¡«¼Ñαá (Σá⌐½á¡«¼) ¬
  40.       Σá⌐½π  ¿½¿  Σ¿º¿τÑ߬«¼π  πßΓα«⌐ßΓóπ ¿ ó »«ñú«Γ«ó¬Ñ πßΓα«⌐ßΓóá ñ½∩
  41.       ßτ¿Γδóá¡¿∩ ¿/¿½¿ ºá»¿ß¿. ¥Γ«Γ ¡«¼Ñα, á ¡Ñ ¿¼∩ Σá⌐½á, ¿ß»«½∞ºπÑΓß∩
  42.       ó  ¬áªñ«¼  ºá∩ó½Ñ¡¿¿, ¿¼ÑεΘѼ  ßß佬π ¡á Σá⌐½. æ«ñÑন¼«Ñ ºá∩ó½Ñ-
  43.       ¡¿Ñ OPEN ÑßΓ∞ ¿¡Σ«α¼áµ¿∩, π¬áºδóáεΘá∩  "αѪ¿¼ Σá⌐½á"; Γ.Ñ. ß»«ß«-
  44.       íδ, »«ßαÑñßΓó«¼ ¬«Γ«αδσ íπñÑΓ «ßπΘÑßΓó½∩Γ∞ß∩ ñ«ßΓπ» ¬ Σá⌐½π: »«ß-
  45.       ½Ññ«óáΓѽ∞¡δ⌐ (ñ½∩ óó«ñá, óδó«ñá ó ¡«óδ⌐ Σá⌐½ ¿½¿ óδó«ñá ó ßπΘÑß-
  46.       ΓóµεΘ¿⌐ Σá⌐½),  »α«¿ºó«½∞¡δ⌐  ¿  ñó«¿τ¡δ⌐.  çá∩ó½Ñ¡¿Ñ OPEN «íδτ¡«
  47.       παáó¡«óÑΦ¿óáÑΓß∩ ß«ú½áß«óá¡¡δ¼ ß ¡¿¼ ºá∩ó½Ñ¡¿Ñ¼ æLOSE (ºá¬αδΓ∞)
  48.          äóÑ Σ«α¼δ ¬«¼á¡ñδ «Γ½¿τáεΓß∩ Γ«½∞¬« ßΓѻѡ∞ε ¼¡«ú«ß½«ó¡«ßΓ¿:
  49.                  OPEN "î«⌐ Σá⌐½.dta " FOR OUTRUT AS#1
  50.       ¿¼ÑÑΓ Γ«-ªÑ ñÑ⌐ßΓó¿Ñ, τΓ« ¿ :
  51.                  OPEN "0",#1 "¼«⌐ Σá⌐½.dta "
  52.          Å«»δΓ¬á «Γ¬αδΓ∞ ñ½∩ éó«ñá ¡ÑßπΘÑßΓóπεΘ¿⌐ Σá⌐½ óδºδóáÑΓ  «Φ¿í¬π
  53.       53 »Ñα¿«ñá »α«ú«¡á, öá⌐½  ¡Ñ «í¡áαπªÑ¡. àß½¿ óδ »δΓáÑΓÑß∞ «Γ¬αδΓ∞
  54.       ¡ÑßπΘÑßΓóπεΘ¿⌐ Σá⌐½ ñ½∩ óδó«ñá, ñ«íáó½Ñ¡¿∩, »α«¿ºó«½∞¡«ú« ñ«ßΓπ»á
  55.       ¿½¿ ñó«¿τ¡δσ  «»Ñαᵿ⌐,  Γ« «¡ ß«ºñáÑΓß∩.
  56.          æ¼. ΓᬪѠ  OPEN COM
  57.        
  58.       Åα¿¼Ñα:
  59.        'φΓá »α«úαἼᠻ«ñαáºñѽ∩ÑΓß∩ ¡á »∩Γ∞ »α«µÑñπα. Éẽ¿τ¿Ñ ¼Ñªñπ
  60.        '»α«µÑñπαἿ ß«ßΓ«¿Γ ó αѪ¿¼Ñ, ó ¬«Γ«α«¼ «Γ¬αδóáÑΓß∩ Σá⌐½ ¿ ß»«-
  61.        'ß«íÑ ¼á¡¿»π½¿α«óá¡¿∩  ñá¡¡δ¼¿ Σá⌐½á.
  62.        DEF FN ñáΓ∞ ¬½áó¿Φπ $ (ß««íΘ$)
  63.        PRINT æ««íΘ $, " ¡áª¼¿ΓÑ ½εíπε ¬½áó¿Φπ τΓ«íδ »α«ñ«½ª¿Γ∞ ..."
  64.        WHILE NOT INSTAT:WEND
  65.        FN ñáΓ∞ ¬½áó¿Φπ $ =INKEY $
  66.        END DEF    '¬«¡Ñµ »α«µÑñπαδ ñáΓ∞ ¬½áó¿Φπ
  67.        SUB »«ß½Ññ«óáΓѽ∞¡δ⌐ óδó«ñ
  68.        'φëàΣá⌐½ «Γ¬αδóáÑΓß∩ ñ½∩ »«ß½Ññ«óáΓѽ∞¡«ú« óδó«ñá ¿ ó ¡Ñú« ºá-
  69.        '»¿ßδóáεΓß∩ ¡Ñ¬«Γ«αδÑ ñá¡¡δÑ
  70.        è½áó¿Φ¿ì᪠$=FN äáΓ∞ ¬½áó¿Φπ $ (ΓÑ»Ñα∞ ñ½∩ »«ß½Ññ«óáΓѽ∞¡«ú«_
  71.         óδó«ñá)
  72.        '«Γ¬αδΓ∞ »«ß½Ññ«óáΓѽ∞¡δ⌐ Σá⌐½ ñ½∩ óδó«ñá
  73.        OPEN "OPEN.DTA" FOR OUTRUT AS#1
  74.        ûѽ«Ñ % =12345
  75.        éαѼ∩ ßΓα$="êßΓ«α¿∩ ñѽáÑΓß∩ ¡«τ∞ε"
  76.        'ºá»¿ßáΓ∞ ñá¡¡δÑ ó »«ß½Ññ«óáΓѽ∞¡δ⌐ Σá⌐½
  77.        WRITE#1,éαѼßΓα$,µÑ½«Ñ%*2,óαѼ ßΓα$, µÑ½«Ñ %\2
  78.        CLOSE 1  ºá¬αδΓ∞ Σá⌐½
  79.        END SUB '¬«¡Ñµ »α«µÑñπαδ " »«ß½Ññ«óáΓѽ∞¡δ⌐ óδó«ñ".
  80.        SUB »«ß½Ññ«óáΓѽ∞¡«Ñ ñ«íáó½Ñ¡¿Ñ
  81.        'Σá⌐½ «Γ¬αδóáÑΓß∩ ñ½∩ »«ß½Ññ«óáΓѽ∞¡«ú« óδó«ñá. Äñ¡á¬« ñá¡¡δÑ  ó
  82.        'φΓ«¼ ß½πτáÑ ñ«íáó½∩εΓß∩ ó ¬«¡µÑ Σá⌐½á.
  83.        è½áó¿Φ¿ ìáª$ = FN ñáΓ∞ ¬½áó¿Φπ $ (ΓÑ»Ñα∞ ¡Ñ¼¡«ú« ñ«íáó¿¼)
  84.        '«Γ¬αδΓ∞ »«ß½Ññ«óáΓѽ∞¡δ⌐ Σá⌐½ ñ½∩ ñ«íáó½Ñ¡¿∩ ñá¡¡δσ
  85.        OPEN "OPEN.DTA"FOR APPEND AS#1
  86.        ûѽ«Ñ %=32123
  87.        éαѼ æΓα$ ="ì´πτΦÑÑ ó¿ñÑ¡¿Ñ ÑßΓ∞ .... î.ö«αíÑ"
  88.        'ñ«íáó¿Γ∞ ñá¡¡δÑ
  89.        WRITE#1,éαѼæΓα$, ûѽ«Ñ%*0,2,éαѼ æΓα$, ûѽ«Ñ%\2
  90.        CLOSE 1    'ºá¬αδΓ∞ Σá⌐½
  91.        END SUB  '¬«¡Ñµ »α«µÑñπαδ "»«ß½Ññ«óáΓѽ∞¡«Ñ ñ«íáó½Ñ¡¿Ñ"
  92.        SUB Å«ß½Ññ«óáΓѽ∞¡δ⌐ éó«ñ
  93.        -------------------------
  94.        öá⌐½ «Γ¬αδóáÑΓß∩ ñ½∩ »«ß½Ññ«óáΓѽ∞¡«ú«  óó«ñá, á ñá¡¡δÑ, ¬«Γ«αδÑ
  95.       ßτ¿ΓδóáεΓß∩, «Γ«íαáªáεΓß∩ ¡á φ¬αá¡Ñ.
  96.        è½áó¿Φ¿ì᪠$=FN äáΓ∞ ¬½áó¿Φπ $("ΓÑ»Ñα∞ ßτ¿ΓáѼ «íαáΓ¡«")
  97.        '«Γ¬αδΓ∞ »«ß½Ññ«óáΓѽ∞¡δ⌐ Σá⌐½ ¿ τ¿ΓáΓ∞ ¿º ¡Ñú«
  98.        OPEN"OPEN.DTA" FOR INPUT AS#1
  99.        'τ¿ΓáΓ∞ »Ñαóπε ßΓ᫬π ¿ß»«½∞ºπ∩ LINE INPUT#
  100.        LINE INPUT #1,éαѼæΓα$
  101.        PRINT éαѼæΓα$
  102.        '¿ß»«½∞º«óáΓ∞ INPUT$ ñ½∩ ßτ¿Γδóá¡¿∩ «ßΓá½∞¡«⌐ τáßΓ¿ Σá⌐½á »« «ñ-
  103.        '¡«⌐ ½¿ΓÑαÑ
  104.        éαѼæΓα$=" "
  105.        WHILE NOT EOF(1)  '»α«óÑα¬á ¬«¡µá Σá⌐½á
  106.        éαѼæΓα$ = éαѼæΓα$ + INPUT$(1,1)
  107.        WEND
  108.  
  109.        PRINT éαѼæΓα $
  110.        CLOSE 1    'ºá¬αδΓ∞ Σá⌐½
  111.        è½áó¿Φ¿ì᪠$=FN äáΓ∞ ¬½áó¿Φπ $(" ")
  112.        END SUB     '¬«¡Ñµ »α«µÑñπαδ Å«ß½Ññ«óáΓѽ∞¡δ⌐ óó«ñ
  113.        SUB äó«¿τ¡δ⌐ éé
  114.        'Σá⌐½ «Γ¬αδóáÑΓß∩ ñ½∩ ñó«¿τ¡«ú« óó«ñá/óδó«ñá.
  115.        'ñá¡¡δÑ ßτ¿ΓδóáεΓß∩ ß ¿ß»«½∞º«ó᡿Ѽ GET$.
  116.        'SEEK  ∩ó¡« »ÑαѼÑΘáÑΓ Σá⌐½«óδ⌐ »«¬áºáΓѽ∞ ñ« ¬«¡µá Σá⌐½á, ¿, óδ
  117.        'ºá»¿ßδóáÑΓÑ ΓÑ-ªÑ ñá¡¡δÑ «íαáΓ¡« ó Σá⌐½.
  118.        è½áó¿Φ¿ ìáª$ = FN äáΓ∞è½áó¿Φπ $ (ΓÑ»Ñα∞ ñ½∩ ñó«¿τ¡«ú« óó«ñá ¿_
  119.             óδó«ñá)
  120.        '«Γ¬αδΓ∞ ñó«¿τ¡δ⌐ Σá⌐½, τ¿ΓáΓ∞ ¿º ¡Ñú«
  121.        OPEN "OPEN.DTA" FOR BINARY AS#1
  122.        éαѼæΓα$=" "
  123.        êß»«½∞º«óáΓ∞ GET$ ñ½∩ ßτ¿Γδóá¡¿∩ ñá¡¡δσ ¿ ¿σ σαá¡Ñ¡¿∩ ó ßΓ᫬Ñ
  124.        WHILE NOT EOF (1)
  125.        GET$ 1,1 ï¿Γ $
  126.        éαѼæΓα$ =éαѼæΓα $ + ï¿Γ$
  127.        WEND
  128.        PRINT éαѼæΓα $
  129.        '»ÑαѼÑßΓ¿Γ∞ Σá⌐½«óδ⌐ π¬áºáΓѽ∞ ó ¬«¡Ñµ Σá⌐½á
  130.        SEEK 1, LOF (1)
  131.        'PUT$ ¬«»¿απÑΓ ñá¡¡δÑ «íαáΓ¡« ó ñó«¿τ¡δ⌐ Σá⌐½
  132.        FOR I% = 1 TO LEN (éαѼæΓα$)
  133.        PUT$ 1, MID$ (éαѼæΓα$,I%,1)
  134.        NEXT I%
  135.        CLOSE 1     'ºá¬αδΓ∞ Σá⌐½
  136.        è½áó¿Φ¿ìáª$ = FN äáΓ∞è½áó¿Φπ $ (" ")
  137.        END SUB    '¬«¡Ñµ »α«µÑñπαδ äó«¿τ¡δ⌐ éé
  138.        SUB Åα«¿ºó«½∞¡δ⌐ éé
  139.        '«Γ¬αδΓ∞ Σá⌐½ ñ½∩ »α«¿ºó«½∞¡«ú« óó«ñá/óδó«ñá.
  140.        '¿ß»«½∞º«óáΓ∞ FIELD ñ½∩ ºá∩ó½Ñ¡¿∩ íπΣÑαá ñ½∩ πΓóÑαªñÑ¡¿∩ ñá¡¡δσ,
  141.        '¬«Γ«αδÑ ºá»¿ßδóáεΓß∩ ¿ ßτ¿ΓδóáεΓß∩.
  142.          GET ¿ PUT  ßτ¿ΓδóáεΓ ¿  ºá»¿ßδóáεΓ ñá¡¡δÑ. çá¼ÑΓ∞ΓÑ, τΓ« »ÑαÑñ
  143.       óδ»«½¡Ñ¡¿Ñ¼  GET  ñ½∩ σαá¡Ñ¡¿∩ ñá¡¡δσ ó íπΣÑαÑ ó íπΣÑαÑ Σá⌐½á ¿ß-
  144.       »«½∞ºπεΓß∩ 'LSET ¿  RSET.
  145.        è½áó¿Φ¿ìáª$ = FNäáΓ∞è½áó¿Φπ$ (ΓÑ»Ñα∞ ñ½∩ »α«¿ºó«½∞¡«ú« óó«ñá/óδ_
  146.          ó«ñá)
  147.        '«Γ¬αδΓ∞ Σá⌐½ »α«¿ºó«½∞¡«ú« ñ«ßΓπ»á
  148.        OPEN "OPEN.DTA" AS #1 LEN=1
  149.        FIELD 1,1 AS ï¿Γ$    '«»αÑñѽ¿Γ∞ 1-íá⌐Γ«óδ⌐ íπΣÑα
  150.        éαѼæΓα$ = " "
  151.        éαѼÉẼÑα% =LOF (1)   'σαá¡¿Γ∞ αẼÑα Σá⌐½á
  152.        '¿ß»«½∞ºπ∩ GET, ßτ¿ΓáΓ∞ Σá⌐½ µÑ½¿¬«¼
  153.        FOR I% = 1 TO éαѼÉẼ%
  154.        GET 1, I%
  155.        éαѼæΓα$ = éαѼæΓα$ + ï¿Γ$    'σαá¡¿Γ∞ ñá¡¡δÑ
  156.        NEXT I%
  157.        'PUT ¬«»¿απÑΓ ñá¡¡δÑ «íαáΓ¡« ó »α«¿ºó«½∞¡δ⌐ Σá⌐½
  158.        FOR I% = LEN (éαѼæΓα$) TO1 STEP-1
  159.        LSET ï¿Γ$ = MID$ (éαѼæΓα$, I%,1)
  160.        PUT 1, LOF (1)   'óδó«ñ ñ« ¬«¡µá Σá⌐½á
  161.        NEXT I%
  162.        CLOSE 1       '¬«¡Ñµ »α«µÑñπαδ Åα«¿ºó«½∞¡δ⌐ Σá⌐½
  163.        '»ÑτáΓ∞ ú½áó¡«⌐ »α«úαá¼¼δ
  164.        CALL Å«ß½Ññ«óáΓѽ∞¡δ⌐ óδó«ñ
  165.        CALL Å«ß½Ññ«óáΓѽ∞¡«Ñ ñ«íáó½Ñ¡¿Ñ
  166.        CALL Å«ß½Ññ«óáΓѽ∞¡δ⌐ óó«ñ
  167.        CALL äó«¿τ¡δ⌐ éé
  168.        CALL Åα«¿ºó«½∞¡δ⌐ éé
  169.        END     '¬«¡Ñµ »α«úαá¼¼δ
  170.  
  171.  
  172.  
  173.                             çá∩ó½Ñ¡¿Ñ OPEN COM
  174.                             ------------------
  175.       öπ¡¬µ¿∩  OPEN COM     «Γ¬αδóáÑΓ  ¿ ¬«¡Σ¿úπα¿απÑΓ ¬«¼¼π¡¿¬áµ¿«¡¡«Ñ
  176.       -------               óδßΦÑÑ πßΓα«⌐ßΓó«.
  177.  
  178.       æ¿¡Γá¬ß¿ß     OPEN " COM n [í«ñδ][,τÑΓ¡«ßΓ∞][,ñá¡¡δÑ][,«ßΓá¡«ó]_
  179.       ---------     [«»µ¿¿]"
  180.                     AS [*] Σá⌐½á¡«¼ [LEN ¬«½]
  181.  
  182.       çá¼Ñτá¡¿∩        n - π¬áºδóáÑΓ  ¡áñ½ÑªáΘÑÑ  «Γ¬αδóá¡¿ε »«ß½Ññ«óá-
  183.       ---------        Γѽ∞¡«Ñ ó¡ÑΦ¡ÑÑ πßΓα«⌐ßΓó« óó«ñá/óδó«ñá.  ü«ñδ -
  184.       φΓ« µÑ½á∩ ¬«¡ßΓá¡Γá, ß»Ñµ¿Σ¿µ¿απεΘá∩ ß¬«α«ßΓ∞ ¬«¼¼π¡¿¬áµ¿¿: ºá¬«-
  185.       ¡¡δ¼¿ ß¬«α«ßΓ∩¼¿ ∩ó½∩εΓß∩  75, 110, 150, 300,  600,  1200,  1800,
  186.       2400, 4800 ¿ 9600 (»« π¼«½τá¡¿ε 300).
  187.          ùÑΓ¡«ßΓ∞ -φΓ« Ññ¿¡ßΓóÑ¡¡á∩ ½¿ΓÑαá, ß»Ñµ¿Σ¿µ¿απεΘá∩ ßΓáΓπß τÑΓ-
  188.       ¡«ßΓ¿  ó  ß««ΓóÑΓßΓó¿¿ ß« ß½ÑñπεΘ¿¼¿ «»αÑñѽѡ¿∩¼¿:
  189.        S - τÑΓ¡«ßΓ∞ »« »α«íѽπ (í¿Γ τÑΓ¡«ßΓ¿ óßÑúñá 0)
  190.        Ä - ¡ÑτÑΓ¡δ⌐ »áαώѽ¿º¼
  191.        î - ¼áનα«óá¡¡á∩ τÑΓ¡«ßΓ∞(í¿Γ τÑΓ¡«ßΓ¿ óßÑúñá 1)
  192.        à - τÑΓ¡δ⌐ »áαώѽ¿º¼
  193.        N - íѺ  τÑΓ¡«ßΓ¿  (¿ú¡«α¿απÑΓß∩ ¡á »α¿¼Ñ¡∩Ѽδσ ½¿ΓÑαáσ ¿  «»πß-
  194.       ¬áÑΓß∩ ¡á  »ÑαÑñáóáѼδσ ½¿ΓÑαáσ)
  195.          Å« π¼«½τá¡¿ε - τÑΓ¡δ⌐ »áαώѽ¿º¼.
  196.          äá¡¡δÑ - φΓ« µÑ½á∩ ¬«¡ßΓá¡Γá «Γ 5 ñ« 8, ß»Ñµ¿Σ¿µ¿απεΘá∩  τ¿ß½«
  197.       í¿Γ«ó  ñá¡¡δσ. Å« π¼«½τá¡¿ε 7.
  198.          ÄßΓá¡«ó  -φΓ« µÑ½á∩ ¬«¡ßΓá¡Γá «Γ 1 ñ« 2, ß»Ñµ¿Σ¿µ¿απεΘá∩ τ¿ß½«
  199.       í¿Γ«ó ñá¡¡δσ. Å«  π¼«½τá¡¿ε í¿Γ «ßΓá¡«óá 1 (ñ½∩ í«ñ«óδσ ß¬«α«ßΓÑ⌐
  200.       75 ¿  110 φΓá ¬«¡ßΓá¡Γá αáó¡á 2).
  201.          öá⌐½á¡«¼ - φΓ« µÑ½«Ñ óδαáªÑ¡¿Ñ, ¬«Γ«αδ¼ ß»Ñµ¿Σ¿µ¿απÑΓß∩ τ¿ß½«-
  202.       óá∩ »á¡Ñ½∞,τÑαѺ ¬«Γ«απε óδ «ßπΘÑßΓó½∩ÑΓÑ ñ«ßΓπ» ¬ ¬«¼¼π¡¿¬áµ¿«¡-
  203.       ¡«¼π  ó¡ÑΦ¡Ñ¼π πßΓα«⌐ßΓóπ óó«ñá/óδó«ñá.
  204.          è«½ - φΓ« ¼á¬ß¿¼á½∞¡«Ñ τ¿ß½« íá⌐Γ«ó, ¬«Γ«α«Ñ ¼«ª¡« ßτ¿ΓδóáΓ∞ ß
  205.       ¬«¼¼π¡¿¬áµ¿«¡¡«ú« πßΓα«⌐ßΓóá ¿½¿ ºá»¿ßδóáΓ∞ ¡á ¡Ñú« ß »«¼«Θ∞ε GET
  206.       ¿ PUT; »« π¼«½τá¡¿ε -φΓ« 128. äá¡¡«Ñ º¡áτÑ¡¿Ñ ¡Ñ ¼«ªÑΓ íδΓ∞ í«½∞-
  207.       ΦÑ  αẼÑαá  íπΣÑαá  ñ½∩  φΓ«ú«  ó¡ÑΦ¡Ñú« πßΓα«⌐ßΓóá, ¬«Γ«αδ⌐ πß-
  208.       Γá¡áó½¿óáÑΓß∩ ß »«¼«Θ∞ε ¼ÑΓáºá∩ó½Ñ¡¿∩  $COM.
  209.          çá∩ó½Ñ¡¿Ñ  OPEN COM ó¬½ετáÑΓ ó ßÑí∩ í½«¬ «»µ¿⌐, ¬«Γ«αδ⌐ π»αáó-
  210.       ½∩ÑΓ «íαáí«Γ¬«⌐ ßΓ᫬¿ ß«ßΓ«∩¡¿⌐, τÑΓ¡«ßΓ∞ε  ¿  «íαáí«Γ¬«⌐  ó«ºó-
  211.       αáΓá  ¬áαÑΓ¬¿/»«ñáτ¿  ßΓ᫬¿.
  212.          Ä»µ¿¿ = [,RS][,CS[¼ ßѬ]][,DS[¼ ßѬ]][,CD[¼ ßѬ]][,LF][,DF]
  213.          RS »«ñáó½∩ÑΓ ßΓ᫬π RTS.
  214.          CS [¼ ßѬ] π»αáó½∩ÑΓ CTS.
  215.          DS [¼ ßѬ] π»αáó½∩ÑΓ DSR.
  216.          CD [¼ ßѬ] π»αáó½∩ÑΓ CD.
  217.          LF óδºδóáÑΓ ñ«íáó½Ñ¡¿Ñ ½¿ΓÑαá »«ñáτ¿ ßΓ᫬¿ ¬ ¬áªñ«⌐ ½¿ΓÑαÑ
  218.       ó«ºóαáΓá ¬áαÑΓ¬¿.
  219.          PE ó¬½ετáÑΓ »α«óÑα¬π τÑΓ¡«ßΓ¿.
  220.          Çαúπ¼Ñ¡Γ ¼ ßѬ «»µ¿⌐ CS, DS, CD ¼«ªÑΓ ½ÑªáΓ∞ ó ñ¿á»áº«¡Ñ «Γ  0
  221.       ñ« 65535 ¿ ß»Ñµ¿Σ¿µ¿απÑΓ ß¬«½∞ ñ«½ú« (󠼿½½¿ßѬπ¡ñáσ) Æπαí«-üÑ⌐-
  222.       ß¿¬ íπñÑΓ ¡áσ«ñ¿Γ∞ß∩ ó ß«ßΓ«∩¡¿¿ «ª¿ñá¡¿∩ »ÑαÑñ ó«ºóαáΘÑ¡¿Ñ¼ «Φ¿-
  223.       í¬¿ ôßΓα«⌐ßΓó« ¡á ÅÑαÑαδóÑ. àß½¿ φëàáαúπ¼Ñ¡Γ  αáóÑ¡ 0 ¿½¿ «»πß-
  224.       ¬áÑΓß∩, Γ« »α«óÑα¬á ßΓ᫬¿ ß«ßΓ«∩¡¿∩ ¡Ñ óδ»«½¡∩ÑΓß∩. Å« π¼«½τá¡¿ε
  225.       ¼ ßѬ αáóÑ¡ 1000 ñ½∩ æS ¿ DS ¿ 0 ñ½∩ CD.
  226.          æ¼. ΓᬪѠ  COM
  227.                      $COM
  228.                      ON COM
  229.        Åα¿¼Ñα:
  230.        'αẼÑßΓ¿Γ∞ ßΓα«τ¡δ⌐ ¼áßß¿ó ñ½∩ σαá¡Ñ¡¿∩, óó«ñá  DIM  è«¼Å«αΓé-
  231.        'ó«ñ$ (1)
  232.        $COM1 1024   '»«ßΓα«¿Γ∞ 1 è íπΣÑα óó«ñá
  233.        OPEN "COM1" AS#1 LEN = 1
  234.        PRINT "¡áª¼¿ΓÑ ½εíπε ¬½áó¿Φπ ñ½∩  ºáóÑαΦÑ¡¿∩ »α«úαá¼¼δ ...."
  235.        WHILE NOT INSTAT '»«¬á ¬½áó¿Φá ÑΘÑ ¡Ñ ¡áªáΓá
  236.        'Ñß½¿ ó ¡á½¿τ¿¿ ÑßΓ∞ ¬á¬«⌐-½¿í« óó«ñ
  237.        IF LOF (1) > 0 THEM
  238.        'τ¿ΓáΓ∞ óßÑ τΓ« ¿¼ÑÑΓß∩ ó íπΣÑαÑ ¬«¼. πßΓα«⌐ßΓóá
  239.        è«¼Å«αΓéó«ñ$(0) = INPUT$ (1, LOF(1))
  240.        ÄΓ«íαếΓ∞ óó«ñ
  241.        PRINT "éó«ñ è«¼-πßΓα«⌐ßΓóá:", è«¼Å«αΓéó«ñ $(0)
  242.        END IF
  243.        WEND
  244.        END    '¬«¡Ñµ »α«úαá¼¼δ
  245.  
  246.  
  247.  
  248.                              çá∩ó½Ñ¡¿Ñ OPTION BASE
  249.                              ----------------------
  250.       öπ¡¬µ¿∩  OPTION BASE  πßΓá¡áó½¿óáÑΓ ¼¿¡¿¼á½∞¡«Ñ º¡áτÑ¡¿Ñ ñ½∩ »«ñ-
  251.       -------               ßΓα«τ¡δσ ¿¡ñѬ߫ó ¼áßß¿ó«ó .
  252.       
  253.       æ¿¡Γá¬ß¿ß   OPTION BASE µÑ½«Ñ óδαáªÑ¡¿Ñ
  254.       ---------
  255.       çá¼Ñτá¡¿∩       ûѽ«Ñ óδαáªÑ¡¿Ñ ¼«ªÑΓ ¡áσ«ñ¿Γ∞ß∩ ó ñ¿á»áº«¡Ñ «Γ 0
  256.       ---------       ñ« 32767. OPTION BASE π»αáó½∩ÑΓ ΓѼ, ¬á¬«Ñ º¡áτÑ-
  257.       ¡¿Ñ »«ñßΓα«τ¡«ú« ¿¡ñѬßá  «Γ¡«ß¿Γß∩ ¬ »Ñαó«¼π φ½Ñ¼Ñ¡Γπ »ÑαѼѡ¡δσ
  258.       ¼áßß¿óá.ìá»α¿¼Ñα, »«ß½Ñ  OPTION BASE 1, ºá∩ó½∩εΘÑÑ ¼áßß¿ó x ß »«-
  259.       ¼«Θ∞ε ºá∩ó½Ñ¡¿∩ DIM x(20) πßΓá¡áó½¿óáÑΓ «Γñѽ∞¡πε »á¼∩Γ∞  ñ½∩  20
  260.       φ½Ñ¼Ñ¡Γ«ó  («Γ1 ñ« 20), á ¡Ñ 21, πßΓá¡áó½¿óáѼ«Ñ »«  π¼«½τá¡¿ε(«Γ
  261.       0 ñ« 20).
  262.          ò«Γ∩ óδ ¼«ªÑΓÑ ¿ß»«½∞º«óáΓ∞ OPTION  BASE  ñ½∩ π»αáó½Ñ¡¿∩  ñ¿á-
  263.       »áº«¡á¼¿ »«ñßΓα«τ¡δσ ¿¡ñѬ߫ó, Æπαí«-üÑ⌐ß¿¬ »αÑñ½áúáÑΓ í«½ÑÑ ¼«Θ-
  264.       ¡δ⌐ ß»«ß«í τÑαѺ ºá∩ó½Ñ¡¿Ñ DIM.
  265.          æΓ. ΓᬪѠDIM
  266.        
  267.       Åα¿¼Ñα:
  268.                  'αẼÑßΓ¿Γ∞ ¼áß߿󠿺 ΓαÑσ µÑ½δσ
  269.                  DIM ÅÑαóδ⌐ ¼áßß¿ó % (2)
  270.                  'πßΓá¡«ó¿Γ∞ ¡áτá½∞¡δ⌐ ¿¡ñѬߠ½εí«ú« ºá∩ó½Ñ¡¡«ú«
  271.                  '¼áßß¿óá
  272.                  OPTION BASE 1
  273.                  'αẼÑßΓ¿Γ∞ ¼áß߿󠿺 ñóπσ µÑ½δσ
  274.                  DIM éΓ«α«⌐ ¼áßß¿ó % (2)
  275.                  FOR I% = 0 TO 2
  276.                  '¡ÑΓ ¡π½Ñó«ú« ¿¡ñѬßá; »α«óÑα¬á ¡á 0
  277.                  IF I% > 0 THEN
  278.                  éΓ«α«⌐ ¼áßß¿ó % (I%)=I%
  279.                  END IF
  280.                  ÅÑαóδ⌐ ¼áßß¿ó % (I%) =I%
  281.                  NEXT I%
  282.                  FOR I% =0 TO2
  283.                  '¡ÑΓ ¡π½Ñó«ú« ¿¡ñѬßá; »α«óÑα¬á ¡á ¡«½∞
  284.                  IF I% >0 THEN
  285.                  PRINT éΓ«α«⌐ ¼áßß¿ó
  286.                  END IF
  287.                  PRINT ÅÑαóδ⌐ ¼áßß¿ó% (I%)
  288.                  NEXT I%
  289.                  END  ' ¬«¡Ñµ »α«úαá¼¼δ
  290.  
  291.  
  292.  
  293.                                 çá∩ó½Ñ¡¿Ñ OUT
  294.                                 -------------
  295.       öπ¡¬µ¿∩   OUT  «íÑß»Ñτ¿óáÑΓ ºá»¿ß∞ ¡á ó¡ÑΦ¡ÑÑ πßΓα«⌐ßΓó«
  296.       -------        óó«ñá/óδó«ñá
  297.       
  298.       æ¿¡Γá¬ß¿ß     OUT »«αΓ¡«¼, µÑ½«Ñ óδαáªÑ¡¿Ñ
  299.       ---------
  300.       çá¼Ñτá¡¿∩        OUT  »«ßδ½áÑΓ íá⌐Γ«ó«Ñ º¡áτÑ¡¿Ñ («Γ 0 ñ« 255) ¡á
  301.       ---------        á»»áαáΓ¡«Ñ  ó¡ÑΦ¡ÑÑ  πßΓα«⌐ßΓó«  óδó«ñá »«αΓ¡«¼,
  302.       úñÑ »«αΓ¡«¼ -  φΓ«  µÑ½«Ñ óδαáªÑ¡¿Ñ «Γ 0 ñ« 65535.
  303.          OUT ¡Ñ«íσ«ñ¿¼« ñ½∩ π»αáó½Ñ¡¿∩ αẽ¿τ¡δ¼¿ á»»áαáΓ¡δ¼¿ »«ñß¿ßΓÑ-
  304.       ¼á¼¿, Γᬿ¼¿  ¬á¬ ¬«¼¼π¡¿¬áµ¿«¡¡δ⌐ ¿½¿ ó¿ñÑ«-áñá»ΓÑα.  êß»«½∞ºπÑ-
  305.       ¼«Ñ ¡Ñ»αáó¿½∞¡«  OUT ¼«ªÑΓ ½Ñú¬« αáºαπΦ¿Γ∞ ß¿ßΓѼπ.
  306.  
  307.       Åα¿¼Ñα:
  308.         '»α«úαá¼¼á ñѽáÑΓ ó«»½∞ ºóπ¬«¿º½πτáΓѽ∩ »«ßαÑñßΓó«¼  ßτ¿Γδóá¡¿∩
  309.         'αÑú¿ßΓαá ß«ßΓ«∩¡¿⌐ ¿ Γπ¼í½Ñα¡«ú« »ÑαѬ½ετÑ¡¿∩ (ó¬½ετ¿Γ∞ ¿ óδ¬-
  310.         '½ετ¿Γ∞) í¿Γ«ó, ¬«Γ«αδÑ π»αáó½∩εΓ ºóπ¬«¿º½πτáΓѽѼ.
  311.         'ßτ¿ΓáΓ∞ º¡áτÑ¡¿Ñ ó Å«αΓ 61 ΦÑßΓ¡áñµáΓ¿α¿τ¡«Ñ
  312.         æ«ßΓ«∩¡¿ÑÉÑú % = INP (&H61)
  313.         æ«ßΓ«∩¡¿ÑÉÑú % = æ«ßΓ«∩¡¿ÑÉÑú % AND &HOOFC
  314.         '¼á߬¿α«óáΓ∞ ßτ¿ΓδóáѼ«Ñ º¡áτÑ¡¿Ñ
  315.         'ßñѽáΓ∞ Γ«¡ ñ«ßΓáΓ«τ¡« ñ½¿Γѽ∞¡δ¼ ñ½∩ ß½πσ«ó«ú« ó«ß»α¿∩Γ¿∩
  316.         FOR I = 1 TO 1000
  317.         æ«ßΓ«∩¡¿ÑÉÑú % = C«ßΓ«∩¡¿ÑÉÑú% XOR 2 ' Γπ¼í½Ñα¡«Ñ »ÑαѬ½ετÑ¡¿Ñ_
  318.         'ºóπ¬«¿º½πτáΓѽ∩
  319.         OUT &H61, æ«ßΓ«∩¡¿ÑÉÑú%   'óδó«ñ ¡«ó«ú« ß«ßΓ«∩¡¿∩
  320.         DELAY.001
  321.         NEXT I
  322.         END
  323.  
  324.                              çá∩ó½Ñ¡¿Ñ PAINT
  325.                              ---------------
  326.  
  327.       öπ¡¬µ¿∩   PAINT  «íÑß»Ñτ¿óáÑΓ  ºá»«½¡Ñ¡¿Ñ  ºá¼¬¡πΓ«⌐  º«¡δ φ¬αá¡á
  328.       -------          óδíαá¡¡δ¼ µóÑΓ«¼
  329.       
  330.       æ¿¡Γá¬ß¿ß   PAINT(x,y) [I,µóÑΓ][I,úαá¡¿µá][,Σ«¡]
  331.       ---------
  332.       
  333.       çá¼Ñτá¡¿∩       (x,y)-¬««αñ¿¡áΓδ ¿ßσ«ñ¡«⌐ Γ«τ¬¿ ó ºá¼¬¡πΓ«⌐ º«¡Ñ,
  334.       ---------       »«ñ½ÑªáΘÑ⌐ ºá»«½¡Ñ¡¿ε. àß½¿ ¿ßσ«ñ¡á∩ Γ«τ¬á ó »αÑ-
  335.       ñѽáσ  ºá¼¬¡πΓ«⌐  º«¡δ, Γ« ºá»«½¡∩ÑΓß∩ ÑÑ ó¡πΓαÑ¡¡∩∩ τáßΓ∞.  àß½¿
  336.       ¿ßσ«ñ¡á∩  Γ«τ¬á ó¡Ñ ºá¼¬¡πΓ«⌐  º«¡δ, Γ« íπñÑΓ ºá»«½¡∩Γ∞ß∩ »«óÑασ-
  337.       ¡«ßΓ∞ φ¬αá¡á ß ¡áαπª¡«⌐ ßΓ«α«¡δ ºá¼¬¡πΓ«⌐ º«¡δ. ûóÑΓ - ¼«ªÑΓ íδΓ∞
  338.       ½¿í« τ¿ß½«óδ¼, ½¿í« ßΓα«τ¡δ¼  óδαáªÑ¡¿Ñ¼. àß½¿ φΓ« τ¿ß½«ó«Ñ óδαá-
  339.       ªÑ¡¿Ñ, ¿¼ ß»Ñµ¿Σ¿µ¿απÑΓß∩ áΓΓα¿íπΓ (µóÑΓ), ¬«Γ«αδ¼ íπñÑΓ «ßπΘÑßΓ-
  340.       ó½∩Γ∞ß∩ ºá»«½¡Ñ¡¿Ñ. àß½¿ φΓ« ßΓ᫬á, Γ«  «¡á  ß«ñÑαª¿Γ ¿¡Σ«α¼áµ¿ε
  341.       ¼á߬¿, ¬«Γ«αá∩ óδºδóáÑΓ ºá»«½¡Ñ¡¿Ñ ß »«¼«Θ∞ε  ¬á¬«ú«-Γ« úαáΣ¿τÑß-
  342.       ¬«ú« «íαáºτ¿¬á, á ¡Ñ ß»½«Φ¡δ¼ µóÑΓ«¼. àß½¿  óδ  ¡Ñ ß»Ñµ¿Σ¿µ¿απÑΓÑ
  343.       µóÑΓ, ¿ß»«½∞ºπÑΓß∩ µóÑΓ ¡πª¡«ú« Σ«¡á.
  344.          âαá¡¿µá - φΓ« µóÑΓ í«αñεαᠺừ½¡∩Ѽ«⌐ óἿ  Σ¿úπαδ.  äÑ⌐ßΓó¿Ñ
  345.       PAINT  »αѬαáΘáÑΓß∩  óß∩¬¿⌐  αáº, ¬«úñá  ¡á »πΓ¿ óßΓαÑτáÑΓß∩ µóÑΓ
  346.       úαá¡¿µδ.
  347.          ö«¡  - φΓ«  «»µ¿«¡á½∞¡á∩ ßΓα«τ¡á∩ ¼á߬á, ¿ß»«½∞ºπѼá∩ ¬«úñá óδ
  348.       ªÑ½áÑΓÑ »ÑαѬαáß¿Γ∞ º«¡δ. ö«¡«óá∩ ¼á߬ᠻαÑñßΓáó½∩ÑΓ ß«í«⌐  ¡Ñ¬¿⌐
  349.       τÑαÑ»¿τ¡δ⌐ »½áßΓ¿¬ »ÑαÑσ«ñá »α¿  »α«óÑα¬Ñ πªÑ ºá¬αáΦÑ¡¡δσ º«¡.
  350.          æ »«¼«Θ∞ε ºá∩ó½Ñ¡¿∩ PAINT ¼«ª¡« ºá»«½¡∩Γ∞ ½εíπε ºá¼¬¡πΓπε Σ«α-
  351.       ¼π, ó¡Ñ ºáó¿ß¿¼«ßΓ¿ «Γ ÑÑ ß½«ª¡«ßΓ¿. Æπαí«-üÑ⌐ß¿¬ óδí¿αáÑΓ  íá⌐Γ,
  352.       »«ñ½ÑªáΘ¿⌐  úαáΣ¿τÑ߬«⌐   «íαáí«Γ¬Ñ,  ß  ¿ß»«½∞º«ó᡿Ѽ   Σ«α¼π½δ
  353.       y mod tike length (y mod τÑαÑ»¿µδ ñ½¿¡á).ÄíÑß»Ñτ¿óáÑΓ πóÑαÑ¡¡«ßΓ∞
  354.       ó ºá¼¬¡πΓ«ßΓ¿ »«ñ½ÑªáΘÑú« ºá»«½¡Ñ¡¿ε αѪ¿¼á, »«ß¬«½∞¬π »α¿ "πΓÑτ-
  355.       ¬Ñ" ºá»«½¡¿Γѽ∩ ¼«ªÑΓ «¬áºáΓ∞ß∩ ¿ß»«ατÑ¡¡«⌐ óß∩ óáΦá ¬áαΓ¿¡á.
  356.          àß½¿ áαúπ¼Ñ¡Γ µóÑΓ τ¿ß½«ó«⌐, PAINT  ºá»«½¡∩ÑΓ Σ«α¼π  π¬áºá¡¡δ¼
  357.       µóÑΓ«¼,  «ßΓá¡áó½¿óá∩ß∞ ¡á »¿¬ßѽáσ ß áΓα¿íπΓ«¼ úαá¡¿µá ¿½¿ áΓα¿-
  358.       íπΓ«¼ - µóÑΓ. àß½¿ µóÑΓ - ßΓα«τ¡«Ñ óδαáªÑ¡¿Ñ, Γ« ñ½∩  «»αÑñѽѡ¿∩
  359.       «íαáºτ¿¬á, ¬«Γ«αδ¼ »«ñ½Ñª¿Γ ºá»«½¡Ñ¡¿ε º«¡á, ¿ß»«½∞ºπÑΓß∩ »α¿¡µ¿»
  360.       "τÑαÑ»¿µδ".
  361.          Äíαáºτ¿¬,  »αÑñßΓáó½∩Ѽδ⌐ ßΓα«τ¡δ¼¿ º¡áτÑ¡¿∩¼¿ áαúπ¼Ñ¡Γ«ó µóÑ-
  362.       Γá, ¿¼ÑÑΓ 1-íá⌐Γ«óπε Φ¿α¿¡π (4 »¿¬ßÑ½á »α¿  ßαÑñ¡Ñ⌐  ¿ 8 »¿¬ßѽ«ó
  363.       »α¿ óδß«¬«⌐ ßΓѻѡ¿ αáºαÑΦÑ¡¿∩) ¿ «Γ 1 ñ« 64 íá⌐Γ«ó ñ½¿¡π(Γ.Ñ. «Γ
  364.       1 ñ« 64 ßΓ᫬ ß¬á¡¿α«óá¡¿∩ »« óÑαΓ¿¬á½¿). Åα¿ τÑαÑ»¿τ¡«⌐ «íαáí«Γ-
  365.       ¬Ñ µóÑΓ ñ«½ªÑ¡ »αÑñßΓáó½∩Γ∞ß∩ ó Γᬫ¼ Σ«α¼áΓÑ:
  366.                        CHR$(&Hnn) + CHR$(&Hnn) ...
  367.          îá߬ᠠíếαπÑΓß∩ ¡á «ß¡«ó¡δσ í¿Γ«óδσ º¡áτÑ¡¿∩σ µóÑΓá,  »α¿τѼ
  368.       »Ñαóá∩  ½¿ΓÑαá  »αÑñßΓáó½∩ÑΓ  »Ñαóπε ßΓ᫬π «íαáºτ¿¬á, óΓ«αá∩ ½¿-
  369.       ΓÑαá - óΓ«απε ßΓα«¬π ¿ Γ.ñ.
  370.          ìá»α¿¼Ñα, ß½ÑñπεΘ¿⌐ «íαáºτ¿¬ »αÑñßΓáó½∩ÑΓ «íαáºτ¿¬ ó ó¿ñÑ Φáσ-
  371.       ¼áΓ¡«⌐ ñ«ß¬¿ (50% ßÑα«ú«) ó αѪ¿¼Ñ óδß«¬«⌐ αáºαÑΦáεΘÑ⌐ ß»«ß«í¡«ß-
  372.       Γ¿:
  373.           10101010 (»Ñαóδ⌐ íá⌐Γ)
  374.           01010101 (óΓ«α«⌐ íá⌐Γ)
  375.          ùΓ«íδ ºá»«½¡¿Γ∞ ¬á¬πε-½¿í« º«¡π φΓ«⌐ Φáσ¼áΓ¡«⌐ ñ«ß¬«⌐, ßΓα«¿Γ-
  376.       ß∩ ßΓα«¬á  ß  »«ñσ«ñ∩ΘÑ⌐ ¿¡Σ«α¼áµ¿Ñ⌐ ¼á߬¿. ÅαѪñÑ óßÑú« »αÑ«íαá-
  377.       ºπ⌐ΓÑ ñó«¿τ¡πε  Σ«α¼π ó ΦÑßΓ¡áñµáΓ¿α¿τ¡πε:
  378.           10101010 = &HAA
  379.           01010101 = &H55
  380.          ÆÑ»Ñα∞ ¬«¡ßΓαπ¿απ⌐ΓÑ ñóπσß¿¼ó«½∞¡πε ßΓ᫬π, ¿ß»«½∞ºπ∩ CHR$:
  381.                    Äíαáºτ¿¬ $=CHR$(&HAA) + CHR$ (&H55)
  382.          äá½ÑÑ, ºá∩ó½Ñ¡¿Ñ:
  383.                    PAINT (50,50), «íαáºτ¿¬ $
  384.       «íÑß»Ñτ¿óáÑΓ ºá»«½¡Ñ¡¿Ñ ßÑα«⌐ (Φáσ¼áΓ¡á∩ ñ«ß¬á) ¬αá߬«⌐.
  385.          ö«¡ - ¿ß»«½∞ºπÑΓß∩ ñ½∩ «»αÑñѽѡ¿∩ πß½«ó¿∩ «ßΓá¡«óá, ¬«úñá ºá-
  386.       »«½¡∩ÑΓß∩  πªÑ «íαáí«Γá¡¡á∩ «íαáºτ¿¬«¼ º«¡á. àß½¿ «»Ñαᵿ∩ ºá»«½-
  387.       ¡Ñ¡¿∩ »«»áñáÑΓ  ¡á  »¿¬ßѽ, ¬«Γ«αδ⌐ ß«ú½áßπÑΓß∩ ß ß««ΓóÑΓßΓóπεΘ¿¼
  388.       í¿Γ«¼  ó  Σ«¡Ñ, Γ«  ºá»«½¡Ñ¡¿Ñ  ¡Ñ »αѬαáΘáÑΓß∩, ñáªÑ φë໿¬ßѽ
  389.       ¿¼ÑÑΓ µóÑΓ úαá¡¿µδ.
  390.          Åα¿ τÑαÑ»¿τ¡«⌐  «íαáí«Γ¬Ñ  τ¿ß½«  µóÑΓ«óδσ áΓΓα¿íπΓ«ó ó ¬áªñ«¼
  391.       φ¬ααá¡¡«¼ αѪ¿¼Ñ «»αÑñѽ∩ÑΓ ¬á¬¿¼ «íαẫ¼ ¬«¡ßΓαπ¿απÑΓß∩ φ¬αá¡¡δ⌐
  392.       «íαáºτ¿¬. Å«¼¡¿ΓÑ, τΓ« τ¿ß½« í¿Γ«ó ¡á »¿¬ßѽ ¬«ααѽ¿απÑΓß∩ ß τ¿ß-
  393.       ½«¼ µóÑΓ«óδσ áΓΓα¿íπΓ«ó ó ½εí«¼ ñá¡¡«¼ φ¬αá¡¡«¼ αѪ¿¼Ñ. ä½∩ óδτ¿-
  394.       ß½Ñ¡¿∩  ¬«½¿τÑßΓóá í¿Γ«ó ¡á »¿¬ßѽ óδ ¼«ªÑΓÑ ó«ß»«½∞º«óáΓ∞ß∩ ß½Ñ-
  395.       ñπεΘÑ⌐ Σ«α¼π½«⌐:
  396.                    LOG  (X) = Y,
  397.                       2
  398.       úñÑ  X αáó¡« ßπ¼¼Ñ µóÑΓ«óδσ áΓΓα¿íπΓ«ó óáΦÑú« φ¬αá¡á, á  Y  αáó¡«
  399.       τ¿ß½π í¿Γ«ó ¡á »¿¬ßѽ.
  400.       
  401.                       ùÑαÑ»¿τ¡á∩ «íαáí«Γ¬á ó ¥¬αá¡Ñ 1.
  402.       
  403.          Åα¿  ßαÑñ¡Ñ⌐  αáºαÑΦáεΘÑ⌐  ß»«ß«í¡«ßΓ¿, ¿ß»«½∞ºπ∩  »α¿óÑñÑ¡¡πε
  404.       óδΦÑ  Σ«α¼π½π, X αáó¡« 4 »¿¬ßѽἠ(¬«Γ«αδÑ »αÑñßΓáó½∩εΓß∩ 1 τÑαÑ-
  405.       »¿τ¡δ¼ íá⌐Γ«¼ ßαÑñ¡Ñ⌐ αáºαÑΦáεΘÑ⌐ ß»«ß«í¡«ßΓ¿), »«φΓ«¼π Y αáó¡« 2
  406.       í¿Γá¼  ¡á  »¿¬ßѽ. Å«ß¬«½∞¬π  ¬áªñδ⌐ »¿¬ßѽ ¿¼ÑÑΓ ß««ΓóÑΓßΓóπεΘ¿⌐
  407.       µóÑΓ«ó«⌐  áΓΓα¿íπΓ, «¡  íπñÑΓ  ºá¡¿¼áΓ∞  2 í¿Γá τÑαÑ»¿τ¡«ú« íá⌐Γá
  408.       ñ½∩ «»¿ßá¡¿∩ 1 óδó«ñá 4 áΓΓα¿íπΓ«ó.
  409.          é  ß½ÑñπεΘÑ⌐ Γáí½¿µÑ  »«¬áºá¡δ  ñÑß∩Γ¿τ¡δÑ ¿ ΦÑßΓ¡áñµáΓ¿α¿τ¡δÑ
  410.          º¡áτÑ¡¿∩, ¬«Γ«αδÑ ß««ΓóÑΓßΓóπεΓ ¬áªñ«¼π áΓΓα¿íπΓπ:
  411.       -----------------------------------------------------------------
  412.       ûóÑΓ«óá∩       ÇΓΓα¿íπΓ        Äíαáºτ¿¬           Äíαáºτ¿¬
  413.       »á½¿Γαá        ó ñó«¿τ¡«¼      ó ñó«¿τ¡«¼     ó ΦÑßΓ¡áñµáΓ¿α¿τ¡«¼
  414.       -----------------------------------------------------------------
  415.       0
  416.       ºÑ½Ñ¡δ⌐           01            01010101             &H55
  417.       ¬αáß¡δ⌐           10            10101010             &HAA
  418.       ¬«α¿τ¡Ñóδ⌐        11            11111111             &HFF
  419.       -----------------------------------------------------------------
  420.       1
  421.       µ¿¡¬«óδ⌐          01            01010101             &H55
  422.       á¡¿½¿¡«óδ⌐        10            10101010             &HAA
  423.       íѽδ⌐             11            11111111             &HFF
  424.       -----------------------------------------------------------------
  425.  
  426.                   ùÑαÑ»¿τ¡á∩ «íαáí«Γ¬á ¡á ¥¬αá¡Ñ 2
  427.  
  428.          ê¼ÑÑΓß∩  1 í¿Γ  ¡á »¿¬ßѽ »α¿ óδß«¬«⌐ αáºαÑΦáεΘÑ⌐ ß»«ß«í¡«ßΓ¿,
  429.       »«ºó«½∩εΘ¿⌐  ¬áªñπε  τÑαÑ»¿µπ  »αÑñßΓáó½∩Γ∞ &-»¿¬ßѽ∞¡δ¼ φ¬αá¡«¼.
  430.       âñÑ íδ ¼á߬ᠠ¡Ñ  «µÑ¡¿óá½áß∞  º¡áτÑ¡¿Ñ¼ 1, ¡á úαáΣ¿¬Ñ »«∩ó½∩ÑΓß∩
  431.       Γ«τ¬á. æΓα«¬á ¼«ªÑΓ ß«ñÑαªáΓ∞ ñ« 64 íá⌐Γ«ó.
  432.          Äíαáºτ¿¬  óδºδóáÑΓß∩  «ñ¿¡á¬«óδ¼ «íαẫ¼ »« óßÑ⌐ »α«Γ∩ªÑ¡¡«ßΓ¿
  433.       º«¡δ, «»αÑñѽ∩Ѽ«⌐ úαá¡¿µÑ⌐. è«úñá úαá¡¿µá ¡Ñ «»αÑñѽ∩ÑΓß∩, «íαá-
  434.       í«Γá¡¡δ¼ «íαáºτ¿¬«¼ «¬áºδóáÑΓß∩ óÑß∞ φ¬αá¡.
  435.  
  436.                 ùÑαÑ»¿τ¡á∩ «íαáí«Γ¬á ó ¥¬αá¡áσ 7,8,9,10
  437.  
  438.          ä½∩ φΓ¿σ π½πτΦÑ¡¡δσ φ¬αá¡¡δσ αѪ¿¼«ó τÑαÑ»¿τ¡δ⌐ «íαáºτ¿¬ »αÑñ-
  439.       ßΓáó½∩ÑΓ ß«í«⌐ ¿º«íαÑΓÑ¡¿Ñ ¡Ñ¬«Γ«α«ú« »α¿Ñ¼á  σαá¡Ñ¡¿∩  ¿  ¿¡ΓÑα-
  440.       »αÑΓᵿ¿ ßΓ᫬¿,  ¬á¬  ßΓѬᠠ8-í¿Γ«óδσ  í½«¬«ó,  ¿ºóÑßΓ¡δσ ó ß«-
  441.       ó«¬π»¡«ßΓ¿ ¬á¬  í¿Γ-»½«ß¬«ßΓ∞. é ¬áªñ«¼ φ¬αá¡¡«¼ αѪ¿¼Ñ, ºá  ¿ß¬-
  442.       ½ετÑ¡¿Ñ¼  αѪ¿¼á  10, ñ½∩ ¬«Γ«α«ú« ΓαÑíπÑΓß∩ 2 í¿Γ-»½«ß¬«ßΓ¿, ñ½∩
  443.       «»αÑñѽѡ¿∩ 1 τÑαÑ»¿τ¡«ú«  íá⌐Γá ¡Ñ«íσ«ñ¿¼« 4 í¿Γ-»½«ß¬«ßΓ¿.
  444.         Åα¿¼Ñα:
  445.                  'ó«Γ ¬á¬ ¿ß»«½∞ºπεΓß∩ τÑαÑ»¿τ¡δÑ «íαáºτ¿¬¿
  446.                  SCREEN 1:CLS
  447.                  '«»αÑñѽ¿Γ∞  ñ¿áú«¡á½∞¡δ⌐  «íαáºτ¿¬  ñ½∩  ñ¿áú«¡á½∞¡δσ
  448.                  '½¿¡¿⌐
  449.                  TIL$  = CHR$(&H40)+CHR$(&H40)+CHR$(&H10)+CHR$(&H10)+_
  450.                  CHR$(4)+CHR$(4)+CHR$(1)+CHR$(1)
  451.                  CIRCLE(100,100),50
  452.                  PLANT(100,100),TIL$
  453.                  '«»αÑñѽ¿Γ∞ τÑαÑ»¿τ¡δ⌐ «íαáºτ¿¬-Φáσ¼áΓ¡á∩ ñ«ß¬á
  454.                  TIL2$=CHR$(&HAA)+CHR$(&HAA)+CHR$(&H80)+CHR$(&H80)+_
  455.                  CHR$(&H80)+CHR$(&H80)+CHR$(&H80)+CHR$(&H80)
  456.                  CIRCLE (225,100),50
  457.                  PLANT (225,100),TIL2$
  458.  
  459.  
  460.  
  461.                           çá∩ó½Ñ¡¿Ñ PALETTE, PALETTE USING
  462.                           --------------------------------
  463.       öπ¡¬µ¿∩  PALETTE ¿ PALETTE USING »«ºó«½∩ÑΓ  óá¼  ¼Ñ¡∩Γ∞  «ñ¿¡ ¿½¿
  464.       -------                          í«½ÑÑ  µóÑΓ«ó  ó  »«½¿ΓαÑ (τΓ«íδ
  465.       ó«ß»«½∞φ«óáΓ∞ß∩  φΓ¿¼¿  ºá∩ó½Ñ¡¿∩¼¿, π óáß ñ«½ªÑ¡ íδΓ∞ π½πτΦÑ¡¡δ⌐
  466.       úαáΣ¿τÑ߬¿⌐ Çñá»ΓÑα)
  467.       
  468.       æ¿¡Γá¬ß¿ß   PALETTE (áΓα¿íπΓ, µóÑΓ)
  469.       ---------   PALETTE USING ¿¼∩ µÑ½«ú« ¼áßß¿óá( ¿¡ñѬߠó ¼áßß¿óÑ)
  470.       
  471.       çá¼Ñτá¡¿∩        ÇΓΓα¿íπΓ«¼ »αÑñßΓáó½∩ÑΓß∩ µóÑΓ ó »á½¿ΓαÑ. ûóÑΓ -
  472.       ---------        φΓ«  Σá¬Γ¿τÑ߬¿  «Γ«íαáªáѼδ⌐  µóÑΓ, ¬«Γ«αδ¼ ºá-
  473.       ¼ÑΘáÑΓß∩ áΓΓα¿íπΓ ó »á½¿ΓαÑ.  ÄΓ«íαáªáѼδ⌐  ¡á óáΦѼ  φ¬αá¡Ñ µóÑΓ
  474.       ºáó¿ß¿Γ  «Γ  πßΓᡫ󬿠 φ¬αá¡¡«ú«  αѪ¿¼á  ¿  á»»áαáΓ¡«ú« ñ¿ß»½Ñ∩
  475.       (ß¼.ºá∩ó½Ñ¡¿Ñ SCREEN). çá∩ó½Ñ¡¿Ñ PALETTE ñáÑΓ óἠ󫺼«ª¡«ßΓ∞ ¼Ñ-
  476.       ¡∩Γ∞ µóÑΓ ΓѬßΓá ¿½¿ úαáΣ¿¬¿ ¿¼ÑεΘÑ⌐ß∩ ó ñá¡¡δ⌐ ¼«¼Ñ¡Γ  ¡á φ¬αá¡Ñ
  477.       ¿  φΓ«  ¿º¼Ñ¡Ñ¡¿Ñ  «¬áºδóáÑΓ  ΓᬪѠñÑ⌐ßΓó¿Ñ ¡á ½εíδÑ »«ß½ÑñπεΘ¿Ñ
  478.       ΓѬßΓδ  ¿½¿  úαáΣ¿¬π.  ¥Γ« »«ñαπτ¡«Ñ ßαÑñßΓó«, «ßó«í«ªñáεΘÑÑ  óáß
  479.       «Γ ¡Ñ«íσ«ñ¿¼«ßΓ¿ »ÑαÑτÑατ¿óáΓ∞ ΓѬßΓ ¿½¿ úαáΣ¿¬π,  Ñß½¿  óδ óñαπú
  480.       »«ªÑ½áÑΓÑ ¿º¼Ñ¡¿Γ∞ µóÑΓ (ß¼. αáºñѽ »α¿¼Ñα«ó).
  481.          PALETTE »«ºó«½∩ÑΓ óá¼ ΓᬪѠ¼á¡¬¿α«óáΓ∞ τ¿ß½« µóÑΓ«ó ó »á½¿ΓαÑ
  482.       í«½ÑÑ  15. éδ ñáªÑ ¼«ªÑΓÑ «Γ«íαáªáΓ∞ ΓѬßΓ ¬á¬ ¡Ñó¿ñ¿¼δ⌐ ¡á Σ«¡Ñ,
  483.       á  ºáΓѼ  ¿º¼Ñ¡¿Γ∞  »á½¿Γαπ  ñ½∩ µóÑΓá ΓѬßΓá, τΓ«íδ ßñѽáΓ∞  Ñú«
  484.       ó¡Ñºá»¡« ó¿ñ¿¼δ¼.
  485.          àß½¿  ó  ºá∩ó½Ñ¡¿¿ PALETTE áαúπ¼Ñ¡Γδ ¡Ñ ß»Ñµ¿Σ¿µ¿απεΓß∩, »á½¿-
  486.       Γαá πßΓá¡áó½¿óáÑΓß∩ ó ºáαá¡ÑÑ «»αÑñѽѡ¡δÑ µóÑΓá π¼«½τá¡¿∩.
  487.       
  488.          çá∩ó½Ñ¡¿Ñ PALETTE USING »«ºó«½∩ÑΓ óá¼ ¼«ñ¿Σ¿µ¿α«óáΓ∞ óßε »á½¿-
  489.       Γαπ ó  µÑ½«¼  »«ßαÑñßΓó«¼  «ñ¡«ú«  ºá∩ó½Ñ¡¿∩∩. ê¼∩ µÑ½«ú« ¼áßß¿óá
  490.       ¿¼Ñ¡πÑΓ ¼áßß¿ó. Åα¿ πßΓá¡«ó¬Ñ óáΦÑ⌐ »á½¿Γαδ ¿ß»«½∞ºπ⌐ΓÑ ¿¡ñѬߠ ó
  491.       ¼áßß¿óÑ  ñ½∩  π¬áºá¡¿∩  »Ñαó«ú«  φ½Ñ¼Ñ¡Γá ¼áßß¿óá ( ó í«½∞Φ¿¡ßΓóÑ 
  492.       ß½πτáÑó  óδ íπñÑΓÑ  ß»Ñµ¿Σ¿µ¿α«óáΓ∞  ó ¬áτÑßΓóÑ ¿¡ñѬßá ó ¼áßß¿óÑ 
  493.       0). ä«í¿óá⌐ΓÑß∞ πóÑαÑ¡¡«ßΓ¿ ó Γ«¼, τΓ« αẼÑα óáΦÑú« µÑ½«ú«  ¼áß-
  494.       ß¿óá  ñ«ßΓáΓ«τ¡« óѽ¿¬ ñ½∩ σαá¡Ñ¡¿∩ óßÑσ ΦÑßΓ¡áñµáΓ¿  óσ«ñ«ó  »á-
  495.       ½¿Γα  »«ß½Ñ ¿¡ñѬßá ó ¼áßß¿óÑ. ïεí«⌐ áΓΓα¿íπΓ ó »á½¿ΓαÑ ¡áσ«ñ¿Γß∩
  496.       ó »áαÑ ß µóÑΓ«¼ ¿º µÑ½«ú« ¼áßß¿óá. êß»«½∞º«óá¡¿Ñ ó ¬áτÑßΓóÑ  µóÑ-
  497.       Γ«ó«ú«  áαúπ¼Ñ¡Γá  -1  ó  ¼áßß¿ó¡«¼  óσ«ñÑ  »α¿ó«ñ¿Γ  ¬ Γ«¼π, τΓ«
  498.       ß»áαÑ¡¡δ⌐ áΓΓα¿íπΓ ¡Ñ  ¿º¼Ñ¡∩ÑΓß∩: «ñ¡á¬« óßÑ ñαπú¿Ñ  «Γα¿µáΓѽ∞-
  499.       ¡δÑ  º¡áτÑ¡¿∩  ñ½∩ µóÑΓá  ¡Ñºá¬«¡¡δ. ì¿ªÑ »αÑñßΓáó½Ñ¡ ß»¿ß«¬ ñ¿á-
  500.       »áº«¡«ó áΓΓα¿íπΓ«ó ¿ µóÑΓ«ó  ñ½∩ αẽ¿τ¡δσ φ¬αá¡¡δσ αѪ¿¼«ó ¿ ¼«-
  501.       ¡¿Γ«α«ó:
  502.  
  503.                Æáí½¿µá 5-1 ä¿á»áº«¡δ µóÑΓ«ó ¿ áΓΓα¿íπΓ«ó
  504.  
  505.        ----------------------------------------------------------------
  506.        ÉѪ¿¼      î«¡¿Γ«α         ä¿á»áº«¡ áΓΓα¿íπΓ«ó   ä¿á»áº«¡ µóÑΓ«ó
  507.        ----------------------------------------------------------------
  508.        0          î«¡«/EGA                 0-15                0-2
  509.                   ûóÑΓ¡«⌐/EGA              0-31                0-15
  510.        1          ûóÑΓ¡«⌐/EGA              0-3                 0-15
  511.        2          ûóÑΓ¡«⌐/EGA              0-1                 0-15
  512.        7          ûóÑΓ¡«⌐/EGA              0-15                0-15
  513.        8          ûóÑΓ¡«⌐/EGA              0-15                0-15
  514.        9          EGA(64 K)                0-3                 0-15
  515.                   EGA (>64K)               0-15                0-63
  516.        10         MONO/EGA                 0-3                 0-8
  517.  
  518.        î«¡« - ¼«¡«σα«¼¡δ⌐
  519.        EGA - ô½πτΦÑ¡¡δ⌐ úαáΣ¿τÑ߬¿⌐ áñá»ΓÑα /éî
  520.        ----------------------------------------------------------------
  521.  
  522.       Äúαá¡¿τÑ¡¿∩      ä½∩ ºá∩ó½Ñ¡¿⌐  PALETTE ¿ PALETTE USING ΓαÑíπÑΓß∩
  523.       -----------      π½πτΦÑ¡¡δ⌐  âαáΣ¿τÑ߬¿⌐ Çñá»ΓÑα (EGA)
  524.  
  525.          C¼. ΓᬪѠ  COLOR
  526.                      DRAW
  527.                      SCREEN
  528.  
  529.       Åα¿¼Ñα:
  530.                 '¡¿ªÑ  »«¬áºá¡«  ¬á¬  »α¿¼Ñ¡¿Γ∞  PALETTE ñ½∩  ¿º¼Ñ¡Ñ¡¿∩
  531.                 'µóÑΓá úαáΣ¿¬¿ (¿ ΓѬßΓá) íѺ »ÑαÑτÑનóá¡¿∩ ¿½¿ »«óΓ«-
  532.                 'α¡«ú« «Γ«íαáªÑ¡¿∩ úαáΣ¿¬¿.
  533.                 SCREEN 8    'πßΓá¡«ó¿Γ∞ 16-µóÑΓ¡δ⌐ αѪ¿¼ ECA 640x200
  534.                 PALETTE    'πßΓá¡«ó¿Γ∞ µóÑΓᠻ὿Γαδ EGA »« π¼«½τá¡¿ε
  535.                 LINE (10,10) -(630,190),1,BF 'τÑαΓ¿Γ∞ αἬπ, ºá»«½¡¿Γ∞
  536.                 'ÑÑ ú«½πíδ¼
  537.                DO
  538.                FOR I% = 2 TO 14
  539.                PALETTE 1, I%   '¿º¼Ñ¡¿Γ∞ µóÑΓ αἬ¿ ß ú«½πí«ú«
  540.                DELAY,2      'ºáñÑαªáΓ∞ τΓ«íδ ó¿ñÑΓ∞ ¿º¼Ñ¡Ñ¡¿∩
  541.                NEXT I%
  542.                LOOP UNTIL INSTAT  '»α«¿ºó«ñ∩Γß∩ ¿º¼Ñ¡Ñ¡¿∩ ñ« ¡áªáΓ¿∩ ¬½áó¿Φ¿
  543.                END
  544.  
  545.  
  546.  
  547.                              öπ¡¬µ¿∩ PEEK
  548.                              ------------
  549.       öπ¡¬µ¿∩  PEEK   ó«ºóαáΘáÑΓ  íá⌐Γ,  σαá¡¿¼δ⌐  ó  ß»Ñµ¿Σ¿µ¿α«óá¡¡«⌐
  550.       -------         ∩τÑ⌐¬Ñ  »á¼∩Γ¿
  551.       
  552.       æ¿¡Γá¬ß¿ß   y=PEEK(«ΓßΓπ»)
  553.       ---------
  554.  
  555.       çá¼Ñτá¡¿∩        ÄΓßΓπ» - φΓ«  τ¿ß½«ó«Ñ  óδαáªÑ¡¿Ñ «Γ 0 ñ« 65535,
  556.       ---------        »αÑñßΓáó½∩εΘÑÑ  16-í¿Γ«óδ⌐ «ΓßΓπ» ó ΓѬπΘѼ ßÑú-
  557.       ¼Ñ¡ΓÑ, πßΓá¡«ó½Ñ¡¡«¼ ßá¼δ¼ »«ß½Ññ¡¿¼ ºá∩ó½Ñ¡¿Ñ¼  DEF SEG. é«ºóαá-
  558.       ΘáѼ«Ñ º¡áτÑ¡¿Ñ ¼«ªÑΓ  íδΓ∞  ó  ñ¿á»áº«¡Ñ «Γ 0 ñ« 255. PEEK ¿ ñ«-
  559.       »«½¡∩εΘÑÑ Ñú«  ºá∩ó½Ñ¡¿Ñ  POKE  »αÑñßΓáó½∩εΓ ß«í«⌐ ¡¿º¬«πα«ó¡ÑóδÑ
  560.       πσ«ñδ  ¿º  «»αÑñѽ∩Ѽ«ú«  ó  Æπαí«-üÑ⌐ß¿¬Ñ  ¿ß»«½∞º«óá¡¿∩ »á¼∩Γ¿.
  561.       Äñ¡«⌐ ¿º «í½áßΓÑ⌐ »α¿¼Ñ¡Ñ¡¿∩ PEEK ¿  POKE  ∩ó½∩ÑΓß∩  Σ«α¼¿α«óá¡¿Ñ
  562.       ¼áßß¿ó«ó  íá⌐Γ«ó  ñ½∩  Γᬫú«  »α¿¼Ñ¡Ñ¡¿∩, úñÑ ¡Ñ ΓαπíπÑΓß∩  »«½-
  563.       ¡«ú«, «Γ -32768 ñ« 32767 ñ¿á»áº«¡á µÑ½δσ ¼áßß¿ó«ó.
  564.           æ¼. ΓᬪѠ DEF SEG
  565.                      POKE
  566.  
  567.       Åα¿¼Ñα:
  568.                DIM ¼áßß¿ó«ó % (5) 'αẼÑßΓ¿Γ∞ ¼áß߿󠿺 6 µÑ½δσ
  569.                DEF SEG =ÅàÉæàâ (¼áßß¿ó%(0) )
  570.                '¿ß»«½∞ºπ⌐ΓÑ POKE, ó«ºíπñ¿Γ∞ ¼áßß¿ó
  571.                FOR I% = 0 TO 11
  572.                POKE I%, &HFF
  573.                NEXT I%
  574.                '¿ß»«½∞ºπ⌐ΓÑ PEEK, «Γ«íαếΓ∞ ß«ßΓ«∩¡¿Ñ ¼áßß¿óá
  575.                FOR I% = 0 TO 11
  576.                PRINT HEX$ (PEEK (I%) _
  577.                NEXT I%
  578.                END
  579.  
  580.  
  581.  
  582.                              öπµ¡¬µ¿∩  PEN
  583.                              -------------
  584.       öπ¡¬µ¿∩   PEN    ßτ¿ΓδóáÑΓ ß«ßΓ«∩¡¿Ñ ßóÑΓ«ó«ú« »Ñαá.
  585.       -------
  586.       æ¿¡Γá¬ß¿ß   y=PEN («»µ¿∩)
  587.       ---------
  588.       çá¼Ñτá¡¿∩        Ä»µ¿∩ - φΓ«  τ¿ß½«óá∩  «»µ¿∩,  ¬«Γ«αá∩ π»αáó½∩ÑΓ
  589.       ---------        ¿¡Σ«α¼áµ¿Ñ⌐, ó«ºóαáΘáѼ«⌐ PEN, ó ß««ΓóÑΓßΓó¿¿ ß«
  590.       ß½ÑñπεΘÑ⌐ Γáí½¿µÑ⌐:
  591.  
  592.        ----------------------------------------------------------------
  593.          Ä»µ¿∩                        äÑ⌐ßΓó¿Ñ
  594.        ----------------------------------------------------------------
  595.           0    ÅÑα« ó¡¿º ß ¼«¼Ñ¡Γá »«ß½Ññ¡Ñ⌐ »α«óÑન?
  596.                            (-1= ñ«; 0=¡ÑΓ)
  597.           1    X-¬««αñ¿¡áΓδ, »α¿ ¬«Γ«α«⌐ »«ß½Ññ¡¿⌐ αẠºáñÑ⌐ßΓó«óὫß∞
  598.                »Ñα«
  599.  
  600.           2    Y-¬««αñ¿¡áΓá, »α¿ ¬«Γ«α«⌐ »«ß½Ññ¡¿⌐ αẠºáñÑ⌐ßΓó«óὫß∞
  601.                »Ñα«
  602.  
  603.           3    ÆѬπΘÑÑ º¡áτÑ¡¿Ñ »ÑαѬ½ετáΓѽ∩ (-1=󡿺; 0=óóÑασ)
  604.  
  605.           4    æá¼á∩ »«ß½Ññ¡∩∩ X-¬««αñ¿¡áΓá
  606.  
  607.           5    æá¼á∩ »«ß½Ññ¡∩∩ Y-¬««αñ¿¡áΓá
  608.  
  609.           6    É∩ñ ó ¬«Γ«α«¼ »«ß½Ññ¡¿⌐ αẠºáñÑ⌐ßΓó«óὫß∞ »Ñα«
  610.  
  611.           7    è«½«¡¬á, ó ¬«Γ«α«⌐ »«ß½Ññ¡¿⌐ αẠºáñÑ⌐ßΓó«óὫß∞
  612.                »Ñα« (1-80)
  613.  
  614.           8    æá¼δ⌐ »«ß½Ññ¡¿⌐ α∩ñ (1-24)
  615.  
  616.           9    æá¼á∩ »«ß½Ññ¡∩∩ ¬«½«¡¬á (1-80)
  617.        ----------------------------------------------------------------
  618.  
  619.         ÅÑαÑñ óδ»«½¡Ñ¡¿Ñ¼ ½εí«ú« ºá»α«ßá Σπ¡¬µ¿¿ PEN ßóÑΓ«ó«Ñ »Ñα« ñ«½-
  620.       ª¡« íδΓ∞  ó¬½ετÑ¡« ß »«¼«Θ∞ε ºá∩ó½Ñ¡¿∩ PEN ON.
  621.  
  622.       Åα¿¼Ñα:  ON PEN GOSUB  ÅÑαá«íαáí«Γτ¿¬ '»«ßΓα«¿Γ∞ «íαáí«Γτ¿¬
  623.                'ß«íδΓ¿⌐
  624.                PEN ON  'ó¬½ετ¿Γ∞ «Γ߽Ѫ¿óá¡¿Ñ ß«íδΓ¿⌐
  625.                PRINT  '¡áª¼¿ΓÑ ñ½∩ «ßΓá¡«óá ½εíπε  ¬½áó¿Φπ
  626.                WHILE NOT INSTAT
  627.                WEND
  628.                END
  629.  
  630.                ÅÑαá«íαáí«Γτ¿¬:
  631.                FOR I% = 1 TO 9
  632.                PRINT PEN (I%)
  633.                NEXT I%
  634.                RETURN
  635.  
  636.  
  637.                              çá∩ó½Ñ¡¿Ñ PEN
  638.                              -------------
  639.       öπ¡¬µ¿∩    PEN    π»αáó½∩ÑΓ »α«óÑᬫ⌐ ß«íδΓ¿⌐ ßóÑΓ«ó«ú« »Ñαá.
  640.       -------
  641.       æ¿¡Γá¬ß¿ß   PEN (ON [OFF] STOP)
  642.       ---------
  643.       çá¼Ñτá¡¿∩        çá∩ó½Ñ¡¿Ñ PEN π»αáó½∩ÑΓ »α«óÑᬫ⌐ ß«íδΓ¿⌐ ßóÑΓ«-
  644.       ---------        ó«ú« »Ñαá. ÅÑαÑñ óδ»«½¡Ñ¡¿Ñ¼ ½εíδσ ºá»α«ß«ó Σπ¡-
  645.       ¬µ¿⌐  »Ñαá  ßóÑΓ«ó«Ñ  »Ñα« ñ«½ª¡« íδΓ∞ ó¬½ετÑ¡« ß »«¼«Θ∞ε PEN ON.
  646.          êß»«½¡Ñ¡¿Ñ  PEN  ON ΓᬪѠ «íÑß»Ñτ¿óáÑΓ ñ«ßΓπ» ¬  «Γ߽Ѫ¿óá¡¿ε
  647.       ß«íδΓ¿⌐ ßóÑΓ«ó«ú« »Ñαá ß »«¼«Θ∞ε »«ñ»α«úαá¼¼δ, π¬áºδóáѼ«⌐ ó ºá∩-
  648.       ó½Ñ¡¿¿ ON PEN.
  649.          PEN ON ºá»αÑΘáÑΓ Σπ¡¬µ¿ε PEN ¿ ó¬½ετáÑΓ »α«óÑα¬π ß«íδΓ¿⌐ »Ñαá.
  650.          PEN STOP  «Γ¬½ετáÑΓ «Γ߽Ѫ¿óá¡¿Ñ ß«íδΓ¿⌐ »Ñαá, ¡« ß«íδΓ¿∩ »Ñαá
  651.                    ºá»«¼¿¡áεΓß∩, τΓ«  Ñß½¿ »«ºñ¡ÑÑ óδñáÑΓß∩ PEN ON, ¡Ñ-
  652.                    ¼Ññ½Ñ¡¡« »α«¿ßσ«ñ¿Γ ºáσóáΓ ß«íδΓ¿∩ ó ½«óπΦ¬π.
  653.          æ¼. ΓᬪѠ ON PEN
  654.       Åα¿¼Ñα: 
  655.                 'φΓá »α«úαá¼¼á ñѼ«¡ßΓα¿απÑΓ ºá∩ó½Ñ¡¿Ñ PEN ON
  656.                 ON PEN GOSUB ÅÑαá«íαáí«Γτ¿¬
  657.                 '¡áßΓα«¿Γ∞ «íαáí«Γτ¿¬ ß«íδΓ¿⌐
  658.                  PEN ON   'ó¬½ετ¿Γ∞ «Γ߽Ѫ¿óá¡¿Ñ ß«íδΓ¿⌐
  659.                  PRINT '¡áª¼¿ΓÑ ñ½∩ «ßΓá¡«óá ½εíπε ¬½áó¿Φπ
  660.                  WHILE NOT INSTAT
  661.                  WEND
  662.                  END
  663.                  ÅÑαá«íαáí«Γτ¿¬
  664.                  FOR I% = 1 TO 9
  665.                  PRINT PEN (I%)
  666.                  NEXT I%
  667.                  RETURN
  668.  
  669.  
  670.                              öπ¡¬µ¿∩ PLAY
  671.                              ------------
  672.       
  673.       öπ¡¬µ¿∩   PLAY   ó«ºóαáΘáÑΓ τ¿ß½« ¡«Γ, ß«ñÑαªáΘ¿σß∩ ó íπΣÑαÑ Σ«-
  674.       -------          ¡«ó«⌐ ¼πºδ¬¿
  675.  
  676.       æ¿¡Γá¬ß¿ß     y=PLAY (x)
  677.       ---------
  678.       
  679.       çá¼Ñτá¡¿∩        X- φΓ« »πßΓ«⌐ τ¿ß½«ó«⌐ áαúπ¼Ñ¡Γ. PLAY ó«ºóαáΘáÑΓ
  680.       ---------        τ¿ß½« ¡«Γ, ¿¼ÑεΘÑÑß∩  ó  íπΣÑαÑ Σ«¡«ó«⌐ ¼πºδ¬¿ ó
  681.       «ª¿ñá¡¿¿ ¿ß»«½¡Ñ¡¿∩.  àß½¿  ¼πºδ¬á ñ«½ª¡á ¿ß»«½¡∩Γ∞ß∩ ¡á »ÑαÑñ¡Ñ¼
  682.       Σ«¡Ñ ¿½¿ ¡Ñ ñ«½ª¡á ¿ß»«½¡∩Γ∞ß∩ ó«óßÑ, PLAY ó«ºóαáΘáÑΓ 0.
  683.          æ¼. ΓᬪѠ $SOUND
  684.        
  685.       Åα¿¼Ñα:
  686.                   '¿úαáΓ∞ ñ«-αÑ-¼¿-Σá ¿ ßτ¿ΓáΓ∞ «ßΓáóΦ¿Ñß∩ ¡«Γδ
  687.                   PLAY " MB CDEFG "
  688.                   é¡«ó∞:
  689.                   -----
  690.                   n=PLAY (1) '¼«ª¡« ¿úαáΓ∞(τΓ«-¡¿íπñ∞)
  691.                   PRINT n "¡«Γ «ßΓὫß∞ ó íπΣÑαÑ"
  692.                   IF n=0 THEN PRINT "üπΣÑα »πßΓ": END
  693.                    GOTO ó¡«ó∞
  694.