home *** CD-ROM | disk | FTP | other *** search
/ For Beginners & Professional Hackers / cd.iso / docum / tb1.doc / h5.doc next >
Encoding:
Text File  |  1989-07-24  |  11.7 KB  |  308 lines
  1. Åα¿¼Ñα        RANDOMIZE TIMER
  2.               bankroll = 100 : bet = 5 : delayVal = .5
  3.               WHILE NOT INSTAT   `ñ½∩ ºáóÑαΦÑ¡¿∩ ¡áªáΓ∞ ¬½áó¿Φπ
  4.                 roll = INT(RND(1) * 6) + INT(RND(1) * 6) + 2
  5.                 PRINT STRING$(30,"-")
  6.                 PRINT "æπ¼¼á ¡á½¿τ¡«ßΓ¿ =" bancroll
  7.                 PRINT roll : DELAY delayVal
  8.                 IF roll = 2 OR roll = 3 OR roll = 12 THEN
  9.                   PRINT "éδ »α«¿úα὿"
  10.                   bancroll = bancroll + bet
  11.                 ELSEIF roll = 7 OR roll = 11 THEN
  12.                   PRINT "éδ óδ¿úα὿ !"
  13.                   bancroll = bancroll - bet
  14.                 ELSE
  15.                   PRINT "éáΦ¿ «τ¬¿" roll
  16.                   noPoint = -1
  17.                   WHILE noPoint
  18.                     nextRoll : DELAY delayVal
  19.                     IF roll = nextRoll THEN   `󽫪ѡ¡δ⌐ í½«¬ IF
  20.                       PRINT "éδ óδ¿úα὿ !"
  21.                       bancroll = bancroll + bet
  22.                       noPoint = 0
  23.                     ELSE IF nextRoll = 7 THEN
  24.                       PRINT "éδ »α«¿úα὿"
  25.                       bancroll = bancroll - bet
  26.                       noPoint = 0
  27.                     ENDIF
  28.                   WEND              `ºáóÑαΦáÑΓ µ¿¬½ WHILE noPoint
  29.                 ENDIF               `ºáóÑαΦáÑΓ »Ñαóδ⌐ í½«¬ IF
  30.               WEND                  `¬«¡Ñµ µ¿¬½á WHILE NOT INSTAT
  31.  
  32.  
  33.    Ä»ÑαáΓ«α   INCR
  34.    ----------------------------------------------------------------
  35.  
  36. ìạáτÑ¡¿Ñ    INCR  πóѽ¿τ¿óáÑΓ º¡áτÑ¡¿Ñ »ÑαѼѡ¡«⌐
  37.  
  38. æ¿¡Γá¬ß¿ß     INCR  τ¿ß½«óá∩ »ÑαѼѡ¡á∩ [, »α¿αáΘÑ¡¿Ñ ]
  39.  
  40. çá¼Ñτá¡¿∩     Åα¿αáΘÑ¡¿Ñ - ¡Ñ«í∩ºáΓѽ∞¡«Ñ τ¿ß½«ó«Ñ óδαáªÑ¡¿Ñ,
  41.               φ¡áτÑ¡¿Ñ ¬«Γ«α«ú« »α¿íáó½∩ÑΓß∩ ¬ »ÑαѼѡ¡«⌐.
  42.                  Ä»ÑαáΓ«α INCR  ñáÑΓ »α«ßΓπε ó«º¼«ª¡«ßΓ∞ πóÑ-
  43.               ½¿τ¿Γ∞ º¡áτÑ¡¿Ñ »ÑαѼѡ¡«⌐, ¡Ñ ¿ß»«½∞ºπ∩ «»Ñαá-
  44.               Γ«α »α¿ßóá¿óá¡¿∩.
  45.  
  46. ÄΓ½¿τ¿∩       é ¿¡ΓÑα»αÑΓáΓ«αÑ BASIC Γᬫú« «»ÑαáΓ«αá ¡ÑΓ.
  47.  
  48. æ¼. ΓᬪѠ    DECR
  49.  
  50. Åα¿¼Ñα        I% = -15  '¿¡¿µ¿á½¿ºáµ¿∩ »ÑαѼѡ¡δσ-ßτÑΓτ¿¬«ó
  51.               J% = -500
  52.  
  53.               WHILE I% < 0
  54.                 PRINT I%,J%      'óδó«ñ º¡áτÑ¡¿⌐ ßτÑΓτ¿¬«ó
  55.                 INCR I%          'φ¡áτÑ¡¿Ñ πóѽ¿τ¿óáÑΓß∩ ¡á 1
  56.                 INCR J%, 5       'φ¡áτÑ¡¿Ñ πóѽ¿τ¿óáÑΓß∩ ¡á 5
  57.               WEND
  58.  
  59.               END                '¬«¡Ñµ »α«úαá¼¼δ
  60.  
  61.    öπ¡¬µ¿∩ INKEY$
  62.    -------------------------------------------------------------
  63. ìạáτÑ¡¿Ñ    INKEY$ ßτ¿ΓδóáÑΓ ¬«ñδ ¬½áó¿Φ ¬½áó¿áΓπαδ íѺ ó«ß»α«-
  64.               ¿ºóÑñÑ¡¿∩ ¡á φ¬αá¡Ñ ¿σ º¡áτÑ¡¿⌐.
  65.  
  66. æ¿¡Γá¬ß¿ß     s$ = INKEY$
  67.  
  68. çá¼Ñτá¡¿∩     INKEY$ »α¿ßóá¿óáÑΓ »ÑαѼѡ¡«⌐ s$ ßΓα«¬π ¿º 0, 1 ¿½¿
  69.               2 ß¿¼ó«½«ó, «ΓαáªáεΘπε ß«ßΓ«∩¡¿Ñ íπΣÑαá ¬½áó¿áΓπαδ.
  70.                  ÅπßΓá∩ ßΓα«¬á  (LEN(s$)=0)  «º¡áτáÑΓ, τΓ«  íπΣÑα
  71.               »πßΓ.
  72.                  àß½¿ ñ½¿¡á ßΓ᫬¿ αáó¡á 1 (LEN(s$)=1), Γ« ßΓ᫬á
  73.               ß«ñÑαª¿Γ ¬«ñ ASCII  ¬½áó¿Φ¿,  ¬«Γ«αá∩  íδ½á  ¡áªáΓá
  74.               »«ß½Ññ¡Ñ⌐; ¡á»α¿¼Ñα, º¡áτÑ¡¿Ñ I3 ñ½∩ ¬½áó¿Φδ Enter,
  75.               (¡áφδóáѼ«⌐ ΓᬪѠ"ó«ºóαáΓ«¼ ¬áαÑΓ¬¿",  65 ñ½∩ ¬½á-
  76.               ó¿Φ¿ A.
  77.                  àß½¿ ñ½¿¡á ßΓ᫬¿ αáó¡á 2 (LEN(s$)=2),  Γ«  »«ß-
  78.               ½Ññ¡Ñ⌐ íδ½á  ¡áªáΓá ¬½áó¿Φá αáßΦ¿αÑ¡¡«⌐ ¬½áó¿áΓπαδ,
  79.               º¡áτÑ¡¿Ñ ¬«Γ«α«⌐ ¡Ñ óσ«ñ¿Γ ó ßΓá¡ñáαΓ¡δ⌐ ¬«ñ ASCII;
  80.               ¡á»α¿¼Ñα, «ñ¡á  ¿º  ¬½áó¿Φ HOME,  PgDn ¿½¿ ßΓαѽ¬¿.
  81.               ÅÑαóδ⌐ ß¿¼ó«½ Γᬫ⌐ ßΓ᫬¿ 0,  óΓ«α«⌐  -  óß»«¼«úá-
  82.               Γѽ∞¡δ⌐ ¬«ñ.  (ä½∩  «»αÑñѽѡ¿∩ ¡áªáΓ«⌐ ¬½áó¿Φ¿ ß¼.
  83.               Γáí½¿µπ αáßΦ¿αÑ¡¡δ󠬫ñ«ó ASCII ó »α¿½«ªÑ¡¿¿ F).
  84.                  àß½¿ ¡áªáΓá Σπ¡¬µ¿«¡á½∞¡á∩ ¬½áó¿Φá, «»αÑñѽ∩Ѽá∩
  85.               »«½∞º«óáΓѽѼ (ß¼. «»ÑαáΓ«α KEY), INKEY$ ó«ºóαáΘáÑΓ
  86.               ßΓ᫬π (»«  «ñ¡«¼π  ß¿¼ó«½π »α¿ ¬áªñ«¼ ó맮óÑ Σπ¡¬-
  87.               µ¿¿), ¬«Γ«αá∩ ß««ΓóÑΓßΓóπÑΓ »«ß½Ññ«óáΓѽ∞¡«ßΓ¿ ß¿¼-
  88.               ó«½«ó ó «»αÑñѽѡ¿¿ Σπ¡¬µ¿«¡á½∞¡«⌐ ¬½áó¿Φ¿.
  89.                  öπ¡¬µ¿∩ INKEY »αÑñ«ßΓáó½∩ÑΓ ¡áñѪ¡δ⌐ ß»«ß«í óó«-
  90.               ñá »«½∞º«óáΓѽѼ    ñá¡¡δσ    ó    »α«úαá¼¼π    íѺ
  91.               «úαá¡¿τÑ¡¿⌐, ¿¼ÑεΘ¿σß∩ ó  «»ÑαáΓ«αÑ  INPUT.  INKEY$
  92.               ó«ºóαáΘáÑΓ αѺπ½∞ΓáΓ  ¡Ñ  «ª¿ñá∩  ¡áªáΓ¿∩ «ταÑñ¡«ú«
  93.               ß¿¼ó«½á, ¿ »«φΓ«¼π «íδτ¡« ¿ß»«½∞ºπÑΓß∩  ó  µ¿¬½Ñ  ó
  94.               »«ñ»α«úαἼѠ¡¿º¬«ú«  πα«ó¡∩ ñ½∩ ¡Ñ»αÑαδó¡«ú« ¬«¡Γ-
  95.               α«½∩ ¿ ¬«¡ßΓαπ¿α«óá¡¿∩  óó«ñ¿¼«⌐  ßΓ᫬¿,  »α«óÑα¬á
  96.               ¬«Γ«α«⌐ óδ»«½¡∩ÑΓß∩   »α«µÑñπαἿ   í«½ÑÑ  óδß«¬«ú«
  97.               πα«ó¡∩.
  98.                  INKEY$ »α«»π߬áÑΓ  íѺ «íαáí«Γ¬¿ ¿ óδó«ñá ¡á φ¬-
  99.               αá¡ óßÑ   ¡áªáΓ¿∩   ¬½áó¿Φ,   ó¬½ετá∩   π»αáó½∩εΘ¿Ñ
  100.               (Tab,Enter ¿ BackSpace), ºá ¿ß¬½ετÑ¡¿Ñ¼ :
  101.               - Ctrl-Break -  ¬«¼í¿¡áµ¿∩  »αÑαδóáεΘá∩  óδ»«½¡Ñ¡¿Ñ
  102.                 »α«úαá¼¼δ, ¬α«¼Ñ ΓÑσ ß½πτáÑó,  ¬«úñá »α¿ ¬«¼»¿½∩-
  103.                 µ¿¿ ß««ΓóÑΓßΓóπεΘÑÑ »αÑαδóá¡¿Ñ í佫 ºá»αÑΘÑ¡«;
  104.               - Ctrl-Alt-Del - ¬«¼í¿¡áµ¿∩,  óδºδóáεΘá∩ »ÑαѺá»π߬
  105.                 ß¿ßΓѼδ;
  106.               - Shift-PrtSc - ¬«¼í¿¡áµ¿∩,  αáß»ÑτáΓδóáεΘá∩ ß«ñÑα-
  107.                 ª¿¼«Ñ φ¬αá¡á.
  108.  
  109. æ¼. ΓᬪѠ    INSTAT
  110.  
  111. Åα¿¼Ñα        PRINT "éóÑñ¿ΓÑ ¡Ñ߬«½∞¬« ß¿¼ó«½«ó ¿ ºáΓѼ ¡áª¼¿ΓÑ
  112.               <ENTER>
  113.  
  114.               'τΓÑ¡¿Ñ ¿ ó«ß»α«¿ºóÑñÑ¡¿Ñ ¬«ñ«ó ¬½áó¿Φ
  115.               WHILE Char$ <> CHR$(13)
  116.                 Char$ = INKEY$
  117.                 InputSnring$ = InputString$ + Char$
  118.  
  119.               WEND
  120.  
  121.               PRINT InputSnring$
  122.  
  123.               END           '¬«¡Ñµ »α«úαá¼¼δ
  124.  
  125.    Ä»ÑαáΓ«α INPUT
  126.    -------------------------------------------------------------
  127. ìạáτÑ¡¿Ñ    INPUT »«ñ߬áºδóáÑΓ »«½∞º«óáΓѽε,  τΓ« ¡πª¡«  óóÑßΓ¿
  128.               º¡áτÑ¡¿Ñ «ñ¡«⌐ ¿½¿ ¡Ñ߬«½∞¬¿σ »ÑαѼѡ¡δσ.
  129.  
  130. æ¿¡Γá¬ß¿ß     INPUT [;] [ΓѬßΓ »«ñ߬Ậ¿ {;|,}] ß»¿ß«¬_»ÑαѼѡ¡δσ
  131.  
  132. çá¼Ñτá¡¿∩     ÆѬßΓ »«ñ߬Ậ¿ - φΓ« ¡Ñ«í∩ºáΓѽ∞¡á∩ ß¿¼ó«½¿¬á ¬«¡-
  133.               ßΓá¡Γá. æ»¿ß«¬ »ÑαѼѡ¡δσ - «ñ¡á ¿½¿ ¡Ñ߬«½∞¬« ß¿¼-
  134.               ó«½∞¡δσ ¿½¿ τ¿ß½«óδσ »ÑαѼѡ¡δσ, αáºñѽѡ¡δσ ºá»∩Γδ-
  135.               ¼¿.
  136.                   Ä»ÑαáΓ«α INPUT ªñÑΓ, »«¬á »«½∞º«óáΓѽ∞ ¡Ñ óóÑñÑΓ
  137.               ñá¡¡δÑ ß  ¬½áó¿áΓπαδ,  ¿ ºáΓѼ »α¿ßóá¿óáÑΓ º¡áτÑ¡¿∩
  138.               ºáñá¡¡δ¼ »ÑαѼѡ¡δ¼.
  139.                   àß½¿ ºá ΓѬßΓ«¼ »«ñ߬Ậ¿ π¬áºá¡á Γ«τ¬á ß ºá»∩-
  140.               Γ«⌐, TURBO BASIC  óδó«ñ¿Γ  º¡á¬  ó«»α«ßá  óß½Ññ  ºá
  141.               ΓѬßΓ«¼. ä½∩ Γ«ú«, τΓ«íδ º¡á¬ ó«»α«ßá ¡Ñ óδó«ñ¿½ß∩,
  142.               ¡πª¡« »«ßΓáó¿Γ∞ ºá»∩Γπε.
  143.                   éó«ñ¿¼δÑ ñá¡¡δÑ ñ«½ª¡δ ß««ΓóÑΓßΓó«óáΓ∞ Γ¿»á¼ »Ñ-
  144.               αѼѡ¡δσ ó «»ÑαáΓ«αÑ INPUT,  Γ.Ñ.  ¡Ñτ¿ß½«óδÑ ñá¡¡δÑ
  145.               ¡Ññ«»πßΓ¿¼δ  ñ½∩  τ¿ß½«óδσ »ÑαѼѡ¡δσ.  àß½¿ Γ¿»δ ¡Ñ
  146.               ß«ú½áß«óá¡δ,  TURBO BASIC »«ΓαÑíπÑΓ »«óΓ«α¡«ú« óó«ñá
  147.               ñá¡¡áσ.  Æá¬, »α¿ óó«ñÑ ¡Ñµ¿Σα«ó«ú« ß¿¼ó«½á ñ½∩ τ¿ß-
  148.               ½«ó«⌐ »ÑαѼѡ¡«⌐  »«∩ó¿Γß∩  ß««íΘÑ¡¿Ñ
  149.               ?  Redo  from start (»«óΓ«α¿ΓÑ ß¡áτá½á )
  150.                   àß½¿ «»ÑαáΓ«α INPUT ß«ñÑαª¿Γ ¡Ñ߬«½∞¬« »ÑαѼѡ-
  151.               ¡δσ, ñá¡¡δÑ ñ½∩ ¡¿σ ñ«½ª¡δ «Γñѽ∩Γ∞ß∩ ñαπú «Γ ñαπúá
  152.               ºá»∩Γ묨.
  153.                   àß½¿ ¡Ñ»«ßαÑñßΓóÑ¡¡«  ºá  ¬½ετÑóδ¼  ß½«ó«¼ INPUT
  154.               π¬áºá¡á Γ«τ¬á ß  ºá»∩Γ«⌐,  Γ«  »α¿  ¡áªáΓ¿¿  ¬½áó¿Φ¿
  155.               Enter  »«ß½Ñ  «¬«¡τá¡¿∩ óó«ñá ¬παß«α «ßΓá¡ÑΓß∩ ó Γ«⌐
  156.               ªÑ ßΓ᫬Ñ.  é »α«Γ¿ó¡«¼ ß½πτáÑ ¡á ñ¿ß»½ÑÑ íπñπΓ  óδ-
  157.               »«½¡Ñ¡δ ó«ºóαáΓ ¬áαÑΓ¬¿ ¿ »ÑαÑó«ñ ßΓ᫬¿.
  158.  
  159. ÄΓ½¿τ¿Ñ       é TURBO BASIC ñá¡¡δÑ,  óó«ñ¿¼δÑ »« ºá»α«ßπ «»ÑαáΓ«αá
  160.               INPUT,  ¼«úπΓ αáºñѽ∩Γ∞ß∩ ºá»∩Γ묨 ¿½¿ »α«íѽἿ.  é
  161.               ¿¡ΓÑα»αÑΓáΓ«αÑ BASIC ΓαÑíπÑΓß∩, τΓ«íδ óσ«ñ¡δÑ ñá¡¡δÑ
  162.               αáºñѽ∩½¿ß∞ ºá»∩Γ묨.
  163.  
  164. Åα¿¼Ñα        INPUT "éóÑñ¿ΓÑ éáΦ ó«ºαáßΓ ¿ óÑß: ", Age, Weight
  165.               PRINT USING "éá¼ ### ½ÑΓ, éáΦ óÑß ###":-
  166.                            Age, Weight
  167.  
  168.               END   `¬«¡Ñµ »α«úαá¼¼δ
  169.  
  170.    Ä»ÑαáΓ«α INPUT #
  171.    -------------------------------------------------------------
  172. ìạáτÑ¡¿Ñ    Ä»ÑαáΓ«α INPUT # »α¿ßóá¿óáÑΓ »ÑαѼѡ¡δ¼ º¡áτÑ¡¿∩ ¿º
  173.               »«ß½Ññ«óáΓѽ∞¡«ú« Σá⌐½á
  174.  
  175. æ¿¡Γá¬ß¿ß     INPUT # ¡«¼Ñα Σá⌐½á, ß»¿ß«¬ »ÑαѼѡ¡δσ
  176.  
  177. çá¼Ñτá¡¿∩     ì«¼Ñα Σá⌐½á «»αÑñѽ∩ÑΓß∩ »α¿ «Γ¬αδΓ¿¿ Σá⌐½á.  æ»¿ß«¬
  178.               »ÑαѼѡ¡δσ -  «ñ¡á ¿½¿ ¡Ñ߬«½∞¬« ß¿¼ó«½∞¡δσ ¿½¿ τ¿ß-
  179.               ½«óδσ »ÑαѼѡ¡δσ, αáºñѽѡ¡δσ ºá»∩Γ묨.
  180.                   é ¬áτÑßΓóÑ  Σá⌐½á  ¼«ªÑΓ ¿ß»«½∞º«óáΓ∞ß∩ ñ¿ß¬«óδ⌐
  181.               Σá⌐½, »«ß½Ññ«óáΓѽ∞¡δ⌐ »«αΓ (COMn:)  ¿½¿  ¬½áó¿áΓπαá
  182.               (KYBD:).
  183.                   äá¡¡δÑ ó Σá⌐½Ñ ñ«½ª¡δ ß««ΓóÑΓßΓó«óáΓ∞ Γ¿»á¼  »Ñ-
  184.               αѼѡ¡δσ ó «»ÑαáΓ«αÑ INPUT #. ç¡áτÑ¡¿∩ ó Σá⌐½Ñ ºáñá-
  185.               εΓß∩ ó Γ«¼ ªÑ ó¿ñÑ,  τΓ« ¿ ñ½∩ «»ÑαáΓ«αá  INPUT,  Γ«
  186.               ÑßΓ∞ αáºñѽ∩εΓß∩   ºá»∩Γ묨,  »«ß½Ññ¡¿¼  π¬áºδóáÑΓß∩
  187.               ó«ºóαáΓ ¬áαÑΓ¬¿.  öá⌐½δ Γᬫú« ó¿ñá ß«ºñáεΓß∩ ß  »«-
  188.               ¼«Θ∞ε «»ÑαáΓ«αá WRITE #.
  189.  
  190. æ¼. ΓᬪѠ    WRITE #
  191.  
  192. Åα¿¼Ñα        SUB Makefile
  193.               `ÄΓ¬αδΓ¿Ñ »«ß½Ññ«óáΓѽ∞¡«ú« Σá⌐½á INPUT # ñ½∩ óδó«ñá
  194.               `çỿß∞ ó Σá⌐½ ßΓ᫬, ß«ßΓ«∩Θ¿σ ¿º ñá¡¡δσ  αẽ¿τ¡δσ
  195.               `Γ¿»«ó, ß »«¼«Θ∞ε «»ÑαáΓ«αá WRITE #
  196.  
  197.               `Σá⌐½π »ÑαѼѡ¡δσ »α¿ßóá¿óáÑΓß∩ º¡áτÑ¡¿Ñ #1
  198.               OPEN "INPUT#.LTA" FOR OUTPUT AS #1
  199.  
  200.               `«»αÑñѽѡ¿Ñ ¿ ¿¡¿µ¿á½¿ºáµ¿∩ »ÑαѼѡ¡δσ
  201.               StringVariable$ = "ƒ óÑα¡πß∞."
  202.               Integer$ = 1000
  203.               FloatingPoint! = 30000.1234
  204.  
  205.               `ºá»¿ß∞ ßΓ᫬¿ ΓѬßΓá ó »«ß½Ññ«óáΓѽ∞¡δ⌐ Σá⌐½
  206.               WRITE# 1, StringVariable$, Integer$, FloatingPoint!
  207.  
  208.               CLOSE 1          `ºá¬αδΓ¿Ñ Σá⌐½á »ÑαѼѡ¡δσ
  209.  
  210.               END SUB          `¬«¡Ñµ »α«µÑñπαδ Makefile
  211.  
  212.               SUB ReadFile
  213.               `¥Γá »α«µÑñπαá «Γ¬αδóáÑΓ »«ß½Ññ«óáΓѽ∞¡δ⌐ Σá⌐½
  214.               `ñ½∩ óó«ñá. ùΓÑ¡¿Ñ ßΓ᫬, ß«ßΓ«∩Θ¿σ ¿º ñá¡¡δσ
  215.               `αẽ¿τ¡δσ Γ¿»«ó, ¿º Σá⌐½á ß »«¼«Θ∞ε
  216.               `«»ÑαáΓ«αá INPUT #
  217.  
  218.               `Σá⌐½π »ÑαѼѡ¡δσ »α¿ßóá¿óáÑΓß∩ º¡áτÑ¡¿Ñ #1
  219.               OPEN "INPUT#.LTA" FOR INPUT AS #1
  220.  
  221.               StringVariable$ = " "   `«»αÑñѽѡ¿Ñ ¿
  222.               Integer$ = 0            `¿¡¿µ¿á½¿ºáµ¿∩
  223.               FloatingPoint! = 0      `»ÑαѼѡ¡δσ
  224.  
  225.               `τΓÑ¡¿Ñ ßΓ᫬¿ ΓѬßΓá ¿º »«ß½Ññ«óáΓѽ∞¡«ú« Σá⌐½á
  226.               INPUT# 1, StringVariable$, Integer$, FloatingPoint!
  227.  
  228.               PRINT  StringVariable$, Integer$, FloatingPoint!
  229.  
  230.               CLOSE #1         `ºá¬αδΓ¿Ñ Σá⌐½á »ÑαѼѡ¡δσ
  231.  
  232.               END SUB          `¬«¡Ñµ »α«µÑñπαδ Readfile
  233.  
  234.               CALL MakeFile
  235.               CALL ReadFile
  236.  
  237.               END              `¬«¡Ñµ »α«úαá¼¼δ
  238.  
  239.  
  240.    öπ¡¬µ¿∩  INP
  241.    ---------------------------------------------------------------
  242.  
  243. ìạáτÑ¡¿Ñ    INP «ßπΘÑßΓó½∩ÑΓ ßτ¿Γδóá¡¿Ñ ¿º »«αΓá óó«ñá / óδó«ñá
  244.  
  245. æ¿¡Γá¬ß¿ß     y = INP(¡«¼Ñα »«αΓá)
  246.  
  247. çá¼Ñτá¡¿∩     INP ßτ¿ΓδóáÑΓ «ñ¿¡ íá⌐Γ ¿º »«αΓá óó«ñá / óδó«ñá ß ºá-
  248.               ñá¡¡δ¼ ¡«¼Ñα«¼. ì«¼Ñα »«αΓá ß««ΓóÑΓßΓóπÑΓ á»»áαáΓ¡«-
  249.               ¼π »«αΓπ óó«ñá ¿ ¼«ªÑΓ ¿¼ÑΓ∞ º¡áτÑ¡¿∩ «Γ 0 ñ« 65535.
  250.                   öπ¡¬µ¿∩ INP »«½Ñº¡á »α¿ ßτ¿Γδóá¡¿¿ ¿¡Σ«α¼áµ¿¿ «
  251.               ß«ßΓ«∩¡¿¿ αẽ¿τ¡δσ  á»»áαáΓ¡δσ  »«ñß¿ßΓѼ,  Γᬿσ,
  252.               ¬á¬  »«αΓ  ßó∩º¿.(Ä»¿ßá¡¿Ñ αáß»αÑñѽѡ¿∩ »«αΓ«ó ñ½∩
  253.               ¿¼ÑεΘÑ⌐ß∩ ¼«ñѽ¿ ¬«¼»∞εΓÑαá ß¼. ó ΓÑσ¡¿τÑ߬«¼ ß»αá-
  254.               ó«τ¡«¼ απ¬«ó«ñßΓóÑ.)
  255.                   ä½∩ óδó«ñá ó »«αΓ óó«ñá /  óδó«ñá  ß½ÑñπÑΓ  ¿ß-
  256.               »«½∞º«óáΓ∞ «»ÑαáΓ«α OUT
  257.  
  258. æ¼. ΓᬪѠ    OUT
  259.  
  260. Åα¿¼Ñα        `ßτ¿Γδóá∩ αÑú¿ßΓα ß«ßΓ«∩¡¿∩,
  261.               `»«ñáó½∩∩ ¿ »α«»π߬á∩ í¿Γδ π»αáó½Ñ¡¿∩,
  262.               `»α«úαἼᠻ«α«ªñáÑΓ  »α«¡º¿Γѽ∞¡δ⌐ ºóπ¬«ó«⌐ ß¿ú¡á½
  263.               `ó ñ¿¡á¼¿¬Ñ.
  264.  
  265.               `꺠»«αΓá 61 (ΦÑßΓ¡áñµáΓ¿α¿τ¡«Ñ) ßτ¿ΓδóáÑΓß∩
  266.               `º¡áτÑ¡¿Ñ
  267.               StatusReg% = INP(&H61)
  268.               StatusReg% = StatusReg% AND &H00FC
  269.               `¡á ßτ¿ΓδóáѼ«Ñ º¡áτÑ¡¿Ñ ¡á¬½áñδóáÑΓß∩ ¼á߬á
  270.               `πñ½¿¡¿Γ∞ ºóπ¬, τΓ«íδ Ñú« ¼«ª¡« í佫 πß½δΦáΓ∞
  271.               FOR J = 1 to 1000
  272.                 StatusReg%= StatusReg% XOR 2
  273.                 OUT &H61,StatusReg%
  274.                 delay .001
  275.               NEXT J
  276.  
  277.               END
  278.  
  279.               `
  280.  
  281.  
  282.  
  283.  
  284.  
  285.  
  286.  
  287.  
  288.  
  289.  
  290.  
  291.  
  292.  
  293.  
  294.  
  295.  
  296.  
  297.  
  298.  
  299.  
  300.  
  301.  
  302.  
  303.  
  304.  
  305.  
  306.  
  307.  
  308.