home *** CD-ROM | disk | FTP | other *** search
-
- Ä»ÑαáΓ«α CALL INTERRUPT
- -----------------------
-
- öπ¡¬µ¿∩ CALL INTERRUPT óδºδóáÑΓ ß¿ßΓѼ¡«Ñ »αÑαδóá¡¿Ñ
- -------
-
- æ¿¡Γá¬ß¿ß CALL INTERRUPT n
- ---------
-
- çá¼Ñτá¡¿∩ ûÑ½δ¼ óδαáªÑ¡¿Ñ¼ n »αÑñßΓáó½∩ÑΓß∩ »αÑαδóá¡¿Ñ ñ½∩
- --------- ó맮óá ó ñ¿á»áº«¡Ñ «Γ 0 ñ« 255. èᬠαẠ»ÑαÑñ
- »«½πτÑ¡¿Ñ¼ π»αáó½Ñ¡¿∩ «íαáí«Γτ¿¬«¼ »αÑαδóá¡¿⌐ αÑú¿ßΓαδ »α«µÑßß«αá
- ºáúαπªáεΓß∩ º¡áτÑ¡¿∩¼¿ ¿º íπΣÑαá ¼áΦ¿¡¡δσ αÑú¿ßΓα«ó. Åα¿
- ó«ºóαáΓÑ, «ßπΘÑßΓó½∩Ѽ«¼ «íαáí«Γτ¿¬«¼ »αÑαδóá¡¿⌐, íπΣÑα »α¿¡¿¼áÑΓ
- º¡áτÑ¡¿∩ ¿º »α«µÑßß«α¡δσ αÑú¿ßΓα«ó. é ½εí«Ñ ñá¡¡«Ñ óαѼ∩ íπΣÑα
- ß«ñÑαª¿Γ ß«ßΓ«∩¡¿Ñ αÑú¿ßΓα«ó »α«µÑßß«αá ó Γ«¼ ó¿ñÑ, ó ¬«Γ«α«¼
- ¡áσ«ñ¿½¿ß∞ φΓ¿ αÑú¿ßΓαδ »α¿ ¬«¼»¿½¿α«óá¡¿¿ ßἫú« »«ß½Ññ¡Ñú«
- ó¡ÑΦ¡Ñú« ó맮óá ¿½¿ «»ÑαáΓ«αá REG.
- é ß»αáó«τ¡«¼ απ¬«ó«ñßΓóÑ »« ΓÑσ¡¿¬Ñ DOS ß«ñÑনΓß∩ »«½¡á∩
- ¿¡Σ«α¼áµ¿∩ « ¼¡«ú¿σ Σπ¡¬µ¿∩σ, ñ«ßΓπ»¡δσ τÑαѺ ¼Ñσá¡¿º¼ CALL
- INTERRUPT. Åα«úαá¼¼¿ßΓ «ΓóÑΓßΓóÑ¡¡Ñ¡ ºá ºáΘ¿Γπ αÑú¿ßΓα«ó
- ßΓѬ«ó«ú« ßÑú¼Ñ¡Γá (SS) ¿ ßΓѬ«ó«ú« π¬áºáΓѽ∩ (SP). Äúαá¡¿τÑ¡¿∩
- ÅÑαÑñ ¿ß»«½¡Ñ¡¿Ñ¼ «»ÑαáΓ«αá CALL INTERRUPT »«ñσ«ñ∩Θ¿Ñ αÑú¿ßΓαδ
- µÑ¡Γαá½∞¡«ú« »α«µÑßß«αá ñ«½ª¡δ íδΓ∞ ó«ºíπªñÑ¡δ τÑαѺ «»ÑαáΓ«α
- REG. Å«ß½Ñ ¿ß»«½¡Ñ¡¿∩ «»ÑαáΓ«αá CALL INTERRUPT ¬ º¡áτÑ¡¿∩¼
- »α«µÑßß«α¡δσ αÑú¿ßΓα«ó ñ«½ªÑ¡ íδΓ∞ «íÑß»ÑτÑ¡ ñ«ßΓπ» τÑαѺ Σπ¡¬µ¿ε
- REG.
- ß¼ Γá¬ªÑ CALL ABSOLUTE
- REG
- Åα¿¼Ñα: 'call interrupt ¿ß»«½¡∩ÑΓ «íß½πª¿óá¡¿Ñ DOS »αÑαδóá¡¿⌐
- $include "regnames.inc"
- reg %ax &H0200
- 'ah=02 ΦÑßΓ¡áñµáΓ¿α¿τ¡á∩ Σπ¡¬µ¿∩ ßΓá¡ñ. DOS-óδó«ñá
- '½¿ΓÑαá½á
- reg %ox,reg(%ox)and&HFF02
- 'DL=02 ΦÑßΓ¡áñµáΓ¿α¿τ¡«Ñ DH «ßΓáÑΓß∩ ΓѼ ªÑ
- 'DL:=½¿ΓÑαá ñ½∩ óδó«ñá
- call interrupt &H21 'ó맮ó »αÑαδóá¡¿∩ 21
-
-
- öπ¡¬µ¿∩ CDBL
- ------------
-
- öπ¡¬µ¿∩ CDBL »αÑ«íαáºπÑΓ τ¿ß½« ó Σ«α¼áΓ ñó«⌐¡«⌐ Γ«τ¡«ßΓ¿
- -------
-
- æ¿¡Γá¬ß¿ß y=CDBL(τ¿ß½«ó«Ñ óδαáªÑ¡¿Ñ)
- ---------
-
- çá¼Ñτá¡¿∩ CDBL »αÑ«íαáºπÑΓ τ¿ß½«óδε »ÑαѼѡ¡πε ¿½¿
- --------- τ¿ß½«ó«Ñ óδαáªÑ¡¿Ñ ó Σ«α¼áΓ ñó«⌐¡«⌐ Γ«τ¡«ßΓ¿.
- êß»«½∞ºπ⌐ΓÑ CDBL ñ½∩ ¿ß¬½ετÑ¡¿∩ ß½πτáÑó »ÑαÑ»«½¡Ñ¡¿∩ µÑ½δσ ó
- óδαáªÑ¡¿∩σ, úñÑ ¬«¼í¿¡¿απεΓß∩ µÑ½δÑ «»Ñαá¡ñδ ¿ «»Ñαá¡ñδ ß
- »½áóáεΘÑ⌐ Γ«τ¬«⌐, ¡á»α¿¼Ñα: y#=(z%+x%)/a#.
- ¥Γ« óδαáªÑ¡¿Ñ íπñÑΓ »α¿ó«ñ¿Γ∞ ¬ »ÑαÑ»«½¡Ñ¡¿ε, Ñß½¿ (z%+x%)
- í«½∞ΦÑ 32767. ùΓ«íδ ¿ºíѪáΓ∞ φΓ«ú«, ¿ß»«½∞ºπ⌐ΓÑ CDBL ñ½∩
- »α¿¡πñ¿Γѽ∞¡«ú« »αÑ«íαẫóá¡¿∩ «ñ¡«⌐ ¿º µÑ½δσ »ÑαѼѡ¡δσ ó Σ«α¼π
- ñó«⌐¡«⌐ Γ«τ¡«ßΓ¿. ¥Γ« ó맮óÑΓ «µÑ¡¬π óßÑú« óδαáªÑ¡¿∩ ó ñó«⌐¡«⌐
- Γ«τ¡«ßΓ¿.
-
- y=(CDBL(z%)+X%)/a#
-
- Äúαá¡¿τÑ¡¿∩ ä¿á»áº«¡ óδαáªÑ¡¿∩, »«ñáóáѼ«ú« ó CDBL ñ«½ªÑ¡
- ----------- ¡áσ«ñ¿Γß∩ ó »αÑñѽáσ ºá¬«¡¡«ú« ñ¿á»áº«¡á ñ½∩
- τ¿ß½á ñó«⌐¡«⌐ Γ«τ¡«ßΓ¿.
-
- ß¼. Γá¬ªÑ CINT
- CLNG
- CSNG
- Åα¿¼Ñα: 'CDBL »«½ÑºÑ¡ ñ½∩ »αÑñ«ΓóαáΘÑ¡¿∩ «Φ¿í«¬ »Ñα¿«ñá »α«ú«¡á
- x%=2000
- y%=2000
- z#=cdbl(x%)*y%
- print x%,y%,z#
- end
-
- öπ¡¬µ¿∩ CEIL
- ------------
-
- öπ¡¬µ¿∩ CEIL ó«ºóαáΘáÑΓ ¡á¿¼Ñ¡∞ΦÑÑ µÑ½«Ñ, ¬«Γ«α«Ñ í«½∞ΦÑ
- ------- ¿½¿ αáó¡« áαúπ¼Ñ¡Γπ
-
- æ¿¡Γá¬ß¿ß y=CEIL(τ¿ß½«ó«Ñ óδαáªÑ¡¿Ñ)
- ---------
-
- çá¼Ñτá¡¿∩ öπ¡¬µ¿∩ CEIL »αÑ«íαáºπÑΓ τ¿ß½«óδε »ÑαѼѡ¡πε
- --------- ¿½¿ óδαáªÑ¡¿Ñ ó µÑ½«Ñ, ó«ºóαáΘá∩ ¡á¿¼Ñ¡∞ΦÑÑ
- µÑ½«Ñ, ¬«Γ«α«Ñ í«½∞ΦÑ ¿½¿ αáó¡« áαúπ¼Ñ¡Γπ.
-
- Éẽ¿τ¿∩ ¥Γ«⌐ Σπ¡¬µ¿¿ ó ê¡ΓÑα»αÑΓáΓ«α¡«¼ üÑ⌐ß¿¬Ñ ¡ÑΓ.
- --------
-
- ß¼. Γá¬ªÑ CINT
- FIX
- INT
-
- Åα¿¼Ñα: for i!=-2.5 to 2.5 step 0.5
- print using "CEIL-º¡áτÑ¡¿Ñ ### ÑßΓ∞ ###":i!,ceil(i!)
- next i!
- end
-
- Ä»ÑαáΓ«α CHAIN
- --------------
-
- öπ¡¬µ¿∩ CHAIN ó«ºíπªñáÑΓ ¼«ñπ½∞ µÑ»«τѬ Æπαí« üÑ⌐ß¿¬á
- ------- (ß«ºñáóáѼ«⌐ ¬á¬ .TBC ¿½¿ .EXE-Σá⌐½)
-
- æ¿¡Γá¬ß¿ß CHAIN Σá⌐½á߻ѵ
- ---------
-
- çá¼Ñτá¡¿∩ öá⌐½á߻ѵ-φΓ« ßΓα«τ¡«Ñ óδαáªÑ¡¿Ñ, ¬«Γ«α«Ñ
- --------- ß½ÑñπÑΓ ßΓá¡ñáαΓ¡δ¼ DOS-ß«ú½áΦÑ¡¿∩¼ «í
- ¡á¿¼Ñ¡«óá¡¿¿ Σá⌐½«ó, ¿ »αÑñßΓáó½∩ÑΓ ¼«ñπ½∞ µÑ»«τѬ Æπαí« üÑ⌐ß¿¬á
- (αáßΦ¿αÑ¡¿Ñ .TBC). àß½¿ αáßΦ¿αÑ¡¿Ñ «»π߬áÑΓß∩, »αÑñ»«½áúáÑΓß∩
- .TBC. Å«φΓ«¼π, Ñß½¿ óδ σ«Γ¿ΓÑ ß»Ñµ¿Σ¿µ¿α«óáΓ∞ .EXE-Σá⌐½, ¬ ¿¼Ñ¡¿
- Σá⌐½á ¡Ñ«íσ«ñ¿¼« ñ«íáó¿Γ∞ .EXE. ÅÑαѼѡ¡δÑ »ÑαÑτ¿ß½∩ѼδÑ ¬á¬
- COMMON («íΘ¿Ñ), »«ñáεΓß∩ ¿ ΓѬπΘÑ⌐ »α«úαá¼¼«⌐, ¿ »α«úαá¼¼«⌐
- ¡áº¡áτÑ¡¿∩ ó »α«úαá¼¼π ¡áº¡áτÑ¡¿∩.
- é ΣáºÑ ΓÑßΓ¿α«óá¡¿∩ óδºδóáεΘá∩ »α«úαá¼¼á ñ«½ª¡á
- ¬«¼»¿½¿α«óáΓ∞ß∩ ó .EXE -Σá⌐½, Γᬠ¬á¬ óδ ¡Ñ ¼«ªÑΓÑ αÑ὿º«óáΓ∞
- µÑ»«τ¬π ¿º ßἫú« Æπαí«- üÑ⌐ß¿¬á. éδºδóáѼá∩ »α«úαá¼¼á ñ«½ª¡á
- ¬«¼»¿½¿α«óáΓ∞ß∩ ¡á ñ¿ß¬ ¬á¬ ¼«ñπ½∞ µÑ»«τѬ (.EXE ¿½¿ .TBC-Σá⌐½) .
- àß½¿ áαúπ¼Ñ¡Γδ ó «»ÑαáΓ«αÑ COMMON ó óδºδóáεΘÑ⌐ ¿ óδºδóáѼ«⌐
- »α«úαá¼¼áσ ¡Ñ ß«ó»áñáεΓ (¡á»α¿¼Ñα, »ÑαѼѡ¡δÑ ß »½áóáεΘÑ⌐ Γ«τ¬«⌐
- ó «ñ¡«¼ ¼ÑßΓÑ ¿ µÑ½δÑ ó ñαπú«¼), 󫺡¿¬áÑΓ «Φ¿í¬á »Ñα¿«ñá
- »α«ú«¡á. Æπαí«-üÑ⌐ß¿¬ ¡Ñ »«ññÑনóáÑΓ «»µ¿¿ CHAIN
- ê¡ΓÑα»αÑΓáΓ«α¡«ú« üÑ⌐ß¿¬á, «α¿Ñ¡Γ¿α«óá¡¡δÑ ¡á ¡π¼Ñαᵿε ßΓ᫬,
- ó¬½ετá∩ DELETE (ßΓÑαÑΓ∞), MERGE (ß«Ññ¿¡¿Γ∞) ¿ CHAIN (µÑ»«τ¬á)
- ¡«¼Ñα ßΓ᫬¿. ū߬«½∞¬π óδ ¡Ñ ¼«ªÑΓÑ ß»Ñµ¿Σ¿µ¿α«óáΓ∞ ¡«¼Ñα ßΓ᫬¿
- ó ¼«ñπ½Ñ µÑ»«τѬ ¡áº¡áτÑ¡¿∩, ¿ß»«½¡Ñ¡¿Ñ ¡áτ¿¡áΓ¿ß∩ óßÑúñá «Γ
- ¡áτá½á. Åα¿ Γαá¡ß½∩µ¿¿ «íαáí«Γá¡¡«⌐ CHAIN ß¿ßΓÑ¼δ »α«úαá¼¼
- ê¡ΓÑα»αÑΓáΓ«α¡«ú« üÑ⌐ß¿¬á ¡á Æπαí«-üÑ⌐ß¿¬, óδ ¼«ªÑΓÑ «í¡áαπª¿Γ∞,
- τΓ« αáßΦ¿αÑ¡¡«Ñ ¿ß»«½∞º«óá¡¿Ñ »á¼∩Γ¿ Æπαí«-üÑ⌐ß¿¬«¼ »«ºó«½∩ÑΓ
- ¬«¡ß«½¿ñ¿α«óáΓ∞ «Γñѽ∞¡δÑ ¼«ñ㫨 ó Ññ¿¡πε »α«úαá¼¼π, ¿ß¬½ετá∩
- ¡Ñ«íσ«ñ¿¼«ßΓ∞ αÑ὿ºáµ¿¿ µÑ»«τѬ.
-
- Äúαá¡¿τÑ¡¿∩ Äíαẫóá¡¿Ñ µÑ»«τѬ 󫺼«ª¡«, Γ«½∞¬« ¬«úñá
- ----------- »α«úαá¼¼á ¿ß»«½∞ºπÑΓß∩ ¿º DOS; Γ.Ñ. ¿º
- .EXE-Σá⌐½á. MERGE, DELETE, ALL ¿ CHAIN »« ¡«¼Ñαπ ßΓ᫬¿ ¡Ñ
- »«ññÑনóáεΓß∩.
-
- Éẽ¿τ¿∩ é Æπαí«-üÑ⌐ß¿¬Ñ «íαẫóá¡¿Ñ µÑ»«τѬ ñѽáÑΓß∩ ¿º
- -------- «ñ¡«⌐ ¬«¼»¿½¿απεΘÑ⌐ »α«úαá¼¼δ ó ñαπúπε, ¬«Γ«αá∩
- πªÑ ¬«¼»¿½¿α«óá¡á ó .TBC ¿½¿ .EXE-Σá⌐½.
-
- ß¼. Γá¬ªÑ COMMON
-
- Åα¿¼Ñα: 'αáßß¼«Γα¿¼ PROG1 ,¬«Γ«αá∩ «íαáºπÑΓ µÑ»«τ¬π ¬ PROG2:
- prog1.bas
- 'ºá∩ó¿Γ∞ »ÑαѼѡ¡δÑ, »«ñ½ÑªáΘ¿Ñ »«ñáτÑ ó «αúá¡¿ºπѼπε
- 'µÑ»«τ¬«⌐ »α«úαá¼¼π: ߬á½∩α¡δÑ »ÑαѼѡ¡δÑ Ññ¿¡¿τ¡«⌐
- 'Γ«τ¡«ßΓ¿ a ¿ b ¿ µÑ½δ⌐ ¼áßß¿ó ß%
- dim c%(3000)
- a=65:b=13:c%(2000)=12
- common a,b,c%(1)
- '߻ѵ¿Σ¿µ¿α«óáΓ∞ #αẼÑα«ó ó ¼áßß¿óÑ
- chain "prog2"
- 'ºá∩ó¿Γ∞ »ÑαѼѡ¡δÑ, »«ñ½ÑªáΘ¿Ñ »α¿Ñ¼π ¿º ó«ºíπªñáεΘÑ⌐
- '»α«úαá¼¼δ. Ä¡¿ ñ«½ª¡δ íδΓ∞ ó Γ«¼ ªÑ »«α∩ñ¬Ñ, ¿¼ÑΓ∞
- 'ëà ªÑ Γ¿», ¡« ¡Ñ «í∩ºáΓѽ∞¡« Γ« ªÑ ¿¼∩
- common x,y,z%(2000)
- ¬«úñá prog1.exe ó«ºíπªñáÑΓß∩ ¿º DOS, «¡á íπñÑΓ
- áóΓ«¼áΓ¿τÑ߬¿ óó«ñ¿Γ∞ ¼«ñπ½∞ prog2.tbc ¿ ¿ß»«½¡∩Γ∞ Ñú«,
- αáß»ÑτáΓδóá∩ º¡áτÑ¡¿∩, ¡áº¡áτÑ¡¡δÑ ó prog1. è«úñá prog2
- «¬á¡τ¿óáÑΓß∩, ó«ºóαáΓ «ßπΘÑßΓó½∩ÑΓß∩ ó DOS, á ¡Ñ ó prog1.
-
-
- Ä»ÑαáΓ«α CHDIR
- --------------
-
- öπ¡¬µ¿∩ CHDIR ¿º¼Ñ¡∩ÑΓ ΓѬπΘ¿⌐ ß»αáó«τ¡¿¬ (DOS-¬«¼á¡ñá
- CHDIR ¿½¿ CD)
-
- æ¿¡Γá¬ß¿ß CHDIR »α«σ«ñ
- ---------
-
- çá¼Ñτá¡¿∩ Åα«σ«ñ-φΓ« ßΓα«τ¡«Ñ óδαáªÑ¡¿Ñ, ß««ΓóÑΓßΓóπεΘÑÑ
- DOS -ß«ú½áΦÑ¡¿∩¼ « »α«σ«ñáσ («»¿ßá¡¡δσ ó αáºñѽÑ
- "öá⌐½δ" ú½áóá 4).
- àß½¿ »α«σ«ñ ¡Ñ π¬áºδóáÑΓ ¬á¬«⌐-Γ« ºá¬«¡¡δ⌐ ß»αáó«τ¡¿¬,
- 󫺡¿¬áÑΓ «Φ¿í¬á 76 »Ñα¿«ñá »α«ú«¡á, "Åα«σ«ñ ¡Ñ ¡á⌐ñÑ¡". Ä»ÑαáΓ«α
- CHDIR ¿º¼Ñ¡∩ÑΓ ΓѬπΘ¿⌐ (ºáñÑ⌐ßΓó«óá¡¡δ⌐ »« π¼«½τá¡¿ε ß»αáó«τ¡¿¬).
- ¥Γ« á¡á½«ú¿τ¡« ñÑ⌐ßΓó¿ε ¬«¼á¡ñδ CHDIR ¿º DOS, ºá ¿ß¬½ετÑ¡¿Ñ¼
- Γ«ú«, τΓ« ¡Ñ󫺼«ª¡á áííαÑó¿áΓπαá, »«ñ«í¡á∩ CD. Åα«ú«¡«¼
- »α«úαá¼¼δ, ¬«Γ«αá∩ ¼Ñ¡∩ÑΓ ß»αáó«τ¡¿¬, ¿º Æπαí«-üÑ⌐ß¿¬á ΓᬪÑ
- ¼Ñ¡∩ÑΓ ºáñÑ⌐ßΓó«óá¡¡δ⌐ ß»αáó«τ¡¿¬ Æπαí«-üÑ⌐ß¿¬á.
-
- Åα¿¼Ñα: INPUT "ì«óδ⌐ ß»αáó«τ¡¿¬ :",Åα«σ«ñ$
- CHDIR Åα«σ«ñ$
- end
-
- öπ¡¬µ¿∩ CHR$
- ------------
-
- öπ¡¬µ¿∩ CHR$ »αÑ«íαáºπÑΓ ASCII-¬«ñ ó «ñ¡«½¿ΓÑα¡πε ßΓ᫬π
- -------
-
- æ¿¡Γá¬ß¿ß s$=CHR$(µÑ½«Ñ óδαáªÑ¡¿Ñ)
- ---------
-
- çá¼Ñτá¡¿∩ CHR$ ó«ºóαáΘáÑΓ «ñ¡«½¿ΓÑα¡πε ßΓ᫬π,Ññ¿¡ßΓóÑ¡¡á∩
- --------- ½¿ΓÑαá ¬«Γ«α«⌐ ¿¼ÑÑΓ µÑ½«Ñ óδαáªÑ¡¿Ñ ó
- ASCII-¬«ñÑ ß« º¡áτÑ¡¿Ñ¼ «Γ 0 ñ« 255. CHR$ ñ«»«½¡∩ÑΓ Σπ¡¬µ¿ε ASC,
- ¬«Γ«αá∩ ó«ºóαáΘáÑΓ ASCII -¬«ñ »Ñαó«⌐ ½¿ΓÑαδ ßΓ᫬¿. CHR$ πñ«í¡á
- ñ½∩ ß«ºñá¡¿∩ ½¿ΓÑα, ¬«Γ«αδÑ Γαπñ¡« óóÑßΓ¿ ß ¬½áó¿áΓπαδ, Γᬿσ ¬á¬
- úαáΣ¿τÑ߬¿Ñ ½¿ΓÑαδ φ¬αá¡¡«ú« óδó«ñá ¿ π»αáó½∩εΘ¿Ñ
- »«ß½Ññ«óáΓѽ∞¡«ßΓ¿ ñ½∩ óδó«ñá ¡á »ÑτáΓ∞. ç¡áτÑ¡¿Ñ µÑ½«ú«
- óδαáªÑ¡¿∩, »«ñáóáѼ«Ñ ó CHR$, ñ«½ª¡« ½ÑªáΓ∞ ó ñ¿á»áº«¡Ñ «Γ 0 ñ«
- 255. êß»«½∞º«óá¡¿Ñ áαúπ¼Ñ¡Γá ó¡Ñ φΓ«ú« ñ¿á»áº«¡á óδºδóáÑΓ «Φ¿í¬π
- 5 »Ñα¿«ñá »α«ú«¡á, ó맮ó ¡Ñºá¬«¡¡«⌐ Σπ¡¬µ¿¿.
-
- ß¼. Γá¬ªÑ ASC
-
- Åα¿¼Ñα: 'CHR$ «Γ«íαáªáÑΓ ¡á φ¬αá¡Ñ ½¿ΓÑα¡δ⌐ ¡áí«α ASCII
- for i%=0 to 255
- print using "i":chr$(i%):
- '«Γ«íαếΓ∞ ascii ½¿ΓÑαπ ,»αÑñßΓáó½∩Ѽπε i%
- next i%
- end
-
-
- öπ¡¬µ¿∩ CINT
- ------------
-
- öπ¡¬µ¿∩ CINT »αÑ«íαáºπÑΓ ßó«⌐ áαúπ¼Ñ¡Γ ó µÑ½«Ñ
- -------
-
- æ¿¡Γá¬ß¿ß y=cint(τ¿ß½«ó«Ñ óδαáªÑ¡¿Ñ)
- ---------
-
- çá¼Ñτá¡¿∩ öπ¡¬µ¿∩ CINT »αÑ«íαáºπÑΓ τ¿ß½«óπε »ÑαѼѡ¡πε
- --------- ¿½¿ óδαáªÑ¡¿Ñ ó µÑ½«Ñ, «¬απú½∩∩ ñα«í¡πε τáßΓ∞
- τ¿ß½«ó«ú« óδαáªÑ¡¿∩. àß½¿ τ¿ß½«ó«Ñ óδαáªÑ¡¿Ñ ¡áσ«ñ¿Γß∩ ó¡Ñ
- ñ¿á»áº«¡á «Γ -32768 ñ« 32767, Γ« 󫺡¿¬áÑΓ «Φ¿í¬á »ÑαÑ»«½¡Ñ¡¿∩
- («Φ¿í¬á 6 »Ñα¿«ñá »α«ú«¡á). ¥Γ« »αÑ«íαẫóá¡¿Ñ óδ»«½¡∩ÑΓß∩
- ¬«ßóÑ¡¡δ¼ »πΓѼ, »«ßαÑñßΓó«¼ ¡áº¡áτÑ¡¿∩ µÑ½«⌐ »ÑαѼѡ¡«⌐ ¿½¿
- óδº«ó«¼ »α«µÑñπαδ, ½¿í« Σπ¡¬µ¿¿, ¬«Γ«αá∩ »α¿¡¿¼áÑΓ µÑ½δ⌐
- áαúπ¼Ñ¡Γ.
-
- Éẽ¿τ¿∩ é «Γ½¿τ¿¿ «Γ ê¡ΓÑα»αÑΓáΓ«α¡«ú« üÑ⌐ß¿¬á, Æπαí«-
- -------- üÑ⌐ß¿¬ ¡Ñ óßÑúñá «¬απú½∩ÑΓ ñα«í¡πε τáßΓ∞ τ¿ß½á ó
- ßΓ«α«¡π πóѽ¿τÑ¡¿∩. àß½¿ ñα«í¡á∩ τáßΓ∞ τ¿ß½á αáó¡á 0.5,
- «¬απú½Ñ¡¿Ñ «ßπΘÑßΓó½∩ÑΓß∩ ó ßΓ«α«¡π τÑΓ¡«ú« τ¿ß½á.
-
- ß¼. Γá¬ªÑ CDBL
- CEIL
- CLNG
- CSNG
-
- Åα¿¼Ñα: for i!=0.0 to 5.0 step 0.2
- print using "cint τ¿ß½á #.#=#":i!,cint(i!)
- next i!
- end
-
-
- Ä»ÑαáΓ«α CIRCLE
- ---------------
-
- öπ¡¬µ¿∩ CIRCLE «íÑß»Ñτ¿óáÑΓ óδτÑατ¿óá¡¿Ñ «¬απª¡«ßΓ¿ ¿½¿
- ------- τáßΓ¿ «¬απª¡«ßΓ¿.
-
- æ¿¡Γá¬ß¿ß CIRCLE (x,y),αáñ¿πß[,µóÑΓ[,¡áτὫ,¬«¡Ñµ[,ó¿ñ]]]
- ---------
-
- çá¼Ñτá¡¿∩ (x,y)-¬««αñ¿¡áΓδ µÑ¡Γαá «¬απª¡«ßΓ¿, ¬«Γ«αδÑ
- --------- ¼«úπΓ ß»Ñµ¿Σ¿µ¿α«óáΓ∞ß∩ ó áíß«½εΓ¡«⌐ ¿½¿
- «Γ¡«ß¿Γѽ∞¡«⌐ Σ«α¼Ñ (ß ¿ß»«½∞º«ó᡿Ѽ STEP.). (ü«½ÑÑ ñÑΓá½∞¡πε
- ¿¡Σ«α¼áµ¿ε «í áíß«½εΓ¡δσ ¿ «Γ¡«ß¿Γѽ∞¡δσ ¬««αñ¿¡áΓáσ ß¼. ó
- αáºñÑ½Ñ « úαáΣ¿¬Ñ â½áóδ 3 ).
- Éáñ¿πß -φΓ« τ¿ß½«ó«Ñ óδαáªÑ¡¿Ñ, ºáñáεΘÑÑ αẼÑα «¬απª¡«ßΓ¿.
- ûóÑΓ - µÑ½«Ñ óδαáªÑ¡¿Ñ, «»αÑñѽ∩εΘÑÑ µóÑΓ «¬απª¡«ßΓ¿.
- Åα¿Ñ¼½Ñ¼δ¼¿ º¡áτÑ¡¿∩¼¿ ∩ó½∩εΓß∩ 0-3 ó úαáΣ¿¬Ñ ßαÑñ¡Ñ⌐ αáºαÑΦáεΘÑ⌐
- ß»«ß«í¡«ßΓ¿ (»« π¼«½τá¡¿ε - 3) ¿ 0 - 1 ó úαáΣ¿¬Ñ ß óδß«¬«⌐
- αáºαÑΦáεΘÑ⌐ ß»«ß«í¡«ßΓ∞ε (»« π¼«½τá¡¿ε - 1). ûóÑΓ«¼ »« π¼«½τá¡¿ε
- ∩ó½∩ÑΓß∩ ¡á¿óδßΦ¿⌐ 󫺼«ª¡δ⌐ µóÑΓ Γ«ú« αѪ¿¼á, ó ¬«Γ«α«¼ óδ
- ¡áσ«ñ¿ΓÑß∞. êß»«½∞º«óá¡¿Ñ µóÑΓ«ó«ú« áαúπ¼Ñ¡Γá ó¡Ñ φΓ¿σ ñ¿á»áº«¡«ó
- ñáÑΓ «Φ¿í¬π 5 »Ñα¿«ñá »α«ú«¡á, ó맮ó ¡Ñºá¬«¡¡«⌐ Σπ¡¬µ¿¿. (ü«½ÑÑ
- »«ñα«í¡πε ¿¡Σ«α¼áµ¿ε « óδí«αÑ µóÑΓ«ó ß¼. ó «»¿ßá¡¿¿ «»ÑαáΓ«αá
- COLOR).
- ìáτὫ ¿ ¬«¡Ñµ ∩ó½∩εΓß∩ «»µ¿«¡á½∞¡δ¼¿ τ¿ß½«ó묨 »áαá¼ÑΓαἿ,
- «»αÑñѽ∩εΘ¿¼¿ ¡áτá½∞¡πε ¿ ¬«¡µÑóπε Γ«τ¬¿ »«ñ½ÑªáΘÑ⌐ óδτÑατ¿óá¡¿ε
- ñπú¿, ¬«Γ«αδÑ ß»Ñµ¿Σ¿µ¿απεΓß∩ ó αáñ¿á¡áσ (ß¼. «»¿ßá¡¿Ñ αáñ¿á¡«ó ó
- «»¿ßá¡¿¿ «»ÑαáΓ«αá ATN). êß»«½∞ºπ⌐ΓÑ ¿σ, ¬«úñá ªÑ½áÑΓÑ óδτÑαΓ¿Γ∞
- Γ«½∞¬« τáßΓ∞ «¬απª¡«ßΓ¿. àß½¿ ¡áτὫ ¿ ¬«¡Ñµ «»π߬áεΓß∩,
- óδτÑατ¿óáÑΓß∩ µÑ½á∩ «¬απª¡«ßΓ∞ . ìá»α¿¼Ñα:
-
- SCREEN 1:pi=4*atn(1)
- CIRCLE (160,100),50,3,0,pi
-
- «íÑß»Ñτ¿óáÑΓ óδτÑατ¿óá¡¿Ñ íѽ«ú« »«½π¬απúá «Γ 0 αáñ¿á¡ ñ« »
- αáñ¿á¡.
- ÄΓα¿µáΓѽ∞¡δÑ º¡áτÑ¡¿∩ ¡áτὫ ¿ ¬«¡Ñµ óδºδóáεΓ óδτÑατ¿óá¡¿Ñ
- Γ«αΓ«-«íαạδσ; Γ.Ñ. ¬α«¼¬¿ ñπú¿ áóΓ«¼áΓ¿τÑ߬¿ ß«Ññ¿¡∩εΓß∩ ß
- µÑ¡Γαá½∞¡«⌐ Γ«τ¬«⌐. ìá»α¿¼Ñα :
-
- SCREEN 1:pi=4*atn(1)
- CIRCLE (160,100)50,,-pi/4,-pi/2
-
- «íÑß»Ñτ¿óáÑΓ óδτÑατ¿óá¡¿Ñ 45-úαáñπß¡«ú« ¬π߬á Γ«αΓá «Γ »/4
- αáñ¿á¡ ñ« »/2 αáñ. ùΓ«íδ ¡áτáΓ∞ ¬½¿¡ ¡á »«½«ª¿Γѽ∞¡«⌐ X-«ß¿,
- ¿ß»«½∞ºπÑΓß∩ «Γα¿µáΓѽ∞¡«Ñ τ¿ß½«, ¡Ñ߬«½∞¬« ¼Ñ¡∞ΦÑ ¡π½∩, á ¡Ñ
- »α«ßΓ« -0 (¡á»α¿¼Ñα ..0001).
- é¿ñ - φΓ« τ¿ß½«ó«Ñ óδαáªÑ¡¿Ñ, π»αáó½∩εΦÑÑ ΓѼ, ¡á߬«½∞¬«
- ¬απú½«⌐ ¿½¿ «óá½∞¡«⌐ íπñÑΓ «¬απª¡«ßΓ∞. Å« π¼«½τá¡¿ε ó ßαÑñ¡Ñ⌐
- αáºαÑΦáεΘÑ⌐ ß»«ß«í¡«ßΓ¿ Ñú« º¡áτÑ¡¿Ñ αáó¡« 5/6 (0.833333), á ó
- ºáó¿ß¿¼«ßΓ¿ «Γ óδΦÑ⌐ ¬«¡¬αÑΓ¡«⌐ ¬«¼í¿¡áµ¿¿ ñ¿ß»½Ñ⌐¡«⌐
- »½áΓδ/ó¿ñÑ«-¼«¡¿Γ«αá, óá¼ ¼«ªÑΓ »«ΓαÑí«óáΓ∞ß∩ »«ó«º¿Γ∞ß∩ ß φΓ¿¼¿
- º¡áτÑ¡¿∩¼¿ (½¿í« «ΓαÑúπ½¿α«óáΓ∞ óáΦ ¼«¡¿Γ«α) ñ½∩ »«½πτÑ¡¿∩
- ¬απú½δσ «¬απª¡«ßΓÑ⌐. LPR »«ß½Ñ óδτÑατ¼óá¡¿∩ «¬απª¡«ßΓ¿ ¡áσ«ñ¿Γß∩
- ó ÑÑ µÑ¡ΓαÑ.
-
- Åα¿¼Ñα: '¥Γá »α«úαá¼¼á ñѼ«¡ßΓα¿απÑΓ ó«º¼«ª¡«ßΓ¿ CIRCLE
- '¿º¼Ñ¡Ñ¡¿Ñ ¼ÑßΓ«»«½«ªÑ¡¿∩ αáñ¿πßá, µóÑΓá, ó¿ñ«ó«ú«
- '«Γ¡«ΦÑ¡¿∩. æ »«¼«Θ∞ε CIRCLE ¼«ª¡« Γá¬ªÑ óδτÑατ¿óáΓ∞
- 'ñπú¿ ¿ ¬½¿¡∞∩, »«½Ñº¡δÑ ñ½∩ ¿úα "»á¬-¼á¡"
- pi#=4*atn(1)
- screen 1
- for αáñ¿πß%=1 to 20 'πóѽ¿τ¿óáΓ∞ αẼÑα «¬απª¡«ßΓ¿
- ¬«½Ñα%=αáñ¿πß%mod4 'αáßßτ¿ΓáΓ∞ µóÑΓ ¿º«íαáªÑ¡¿∩
- circle (250,150),αáñ¿πß%,¬«½Ñα% 'µÑ¡Γα ó 250,150
- next αáñ¿πß%
- circle (220,60),50,1,-(pi#*5/4),-pi#*3/4) 'Γѽ«
- '»á¬-¼á¡ ¿ ú½áº
- circle step (-5,-25),5,1
- αáñ¿πß%=50
- 'φ½½¿»ß ¼«ªÑΓ ñáóáΓ∞ ¿½½εº¿ε ßΣÑαδ ...
- for ó¿ñ=0 to 2.0 step 0.09
- circle (90,100),αáñ¿πß%,,,,ó¿ñ
- next ó¿ñ
- end
-
-
- Ä»ÑαáΓ«α CLEAR
- --------------
-
- öπ¡¬µ¿∩ CLEAR «τ¿ΘáÑΓ »ÑαѼѡ¡πε »á¼∩Γ∞
- -------
-
- æ¿¡Γá¬ß¿ß CLEAR
- ---------
-
- çá¼Ñτá¡¿∩ CLEAR - φΓ« ¬«¼á¡ñá íѺ »áαá¼ÑΓα«ó, ¬«Γ«αá∩
- --------- πßΓá¡áó½¿óáÑΓ τ¿ß½«óδÑ »ÑαѼѡ¡δÑ ó ¡«½∞, á
- ßΓα«τ¡δÑ »ÑαѼѡ¡δÑ ó ¡π½∞-ßΓ᫬π. CLEAR ó䬽ετáÑΓ ½εí«Ñ
- «Γ߽Ѫ¿óá¡¿Ñ ß«íδΓ¿⌐, ¬«Γ«α«Ñ ¡áσ«ñΓß∩ ó« ó¬½ετÑ¡¡«¼ ß«ßΓ«∩¡¿¿
- (Γá¬¿Ñ ¬á¬ ¼πºδ¬á, ¬«Γ«αá∩ ¼«ªÑΓ íδΓ∞ ºáñÑ⌐ßΓó«óá¡á «»ÑαáΓ«α«¼
- PLAY) ¿ »«óΓ«α¡« ó«ºíπªñáÑΓ ¼áßß¿ó¡πε ¿ ßΓα«τ¡πε »á¼∩Γ∞.
- Åα¿¼Ñτá¡¿Ñ: Ä»ÑαáΓ«α CLEAR ó¡πΓα¿ µ¿¬½á íπñÑΓ «τ¿ΘáΓ∞
- ßτÑΓτ¿¬, óδºδóá∩ íÑ߬«¡Ñτ¡δ⌐ µ¿¬½.
- ä½∩ óδí«α«τ¡«ú« «ßó«í«ªñÑ¡¿∩ ¼áßß¿ó«ó ó »á¼∩Γ¿ »«½∞ºπ⌐ΓÑß∞
- «»ÑαáΓ«α«¼ ERASE.
-
- Äúαá¡¿τÑ¡¿∩ Æπαí«-üÑ⌐ß¿¬ ¡Ñ »«ññÑনóáÑΓ ñ¿¡á¼¿τÑ߬πε
- ----------- πßΓá¡«ó¬π ßΓÑ¬á ¿ ßÑú¼Ñ¡Γ«ó ñá¡¡δσ; ó φΓ«¼
- «»ÑαáΓ«αÑ ¡ÑΓ »«φΓ«¼π ß««ΓóÑΓßΓóπεΘ¿σ »áαá¼ÑΓα«ó.
-
- Éẽ¿τ¿∩ Éẽ¿τ¿∩ ¼Ñªñπ «»ÑαáΓ«αἿ CLEAR ê¡ΓÑα»αÑΓá-
- Γ«α¡«ú« üÑ⌐ß¿¬á ¿ Æπαí«-üÑ⌐ß¿¬á »α«¿ßσ«ñ¿Γ,
- ú½áó¡δ¼ «íαẫ¼ , ¿º αẽ¿τ¿⌐ ¼Ñªñ𠬫¼»¿½∩Γ«αἿ ¿
- ¿¡ΓÑα»αÑΓáΓ«αἿ. ê¡ΓÑα»αÑΓáΓ«α¡δ⌐ üÑ⌐ß¿¬ ñáÑΓ óἠ󫺼«ª¡«ßΓ∞
- ñ¿¡á¼¿τÑ߬¿ πßΓá¡áó½¿óáΓ∞ »α«ßΓαá¡ßΓó« ßΓÑ¬á ¿ ñá¡¡δσ Γá¼, úñÑ
- »α«ßΓαá¡ßΓó« ßΓÑ¬á ¿ ñá¡¡δσ Æπαí«-üÑ⌐ß¿¬á Σ¿¬ß¿απÑΓß∩ ó« óαѼ∩
- ¬«¼»¿½¿α«óá¡¿∩.
-
- ß¼. Γá¬ªÑ ERASE
- $STACK
-
- Åα¿¼Ñα: 'φΓá »α«úαá¼¼á ñѼ«¡ßΓα¿απÑΓ τΓ« ¼«ªÑΓ ñѽáΓ∞ CLEAR
- dim ¼áßß¿ó$(1) 'ºá∩ó¿Γ∞ ¼áßß¿ó ßΓ᫬
- play "mb l1 efgabcdef" '¿úαáΓ∞ ¼πºδ¬π ó Σ«¡Ñ
- on pen gosub ÅÑαáäÑαªáΓѽ∞ '¡áßΓα«¿Γ∞ «Γ߽Ѫ¿óá¡¿Ñ
- 'ßóÑΓ«ó«ú« »Ñαá
- on strig(0) gosub è¡«»¬¿äÑαªáΓѽ∞ '¡áßΓα«¿Γ∞ «Γß½Ñ-
- 'ª¿óáΓѽ∞ απτ¬¿ π»αáó½Ñ¡¿∩
- 'ó«ºíπñ¿Γ∞ ßΓα«τ¡δÑ ñá¡¡δÑ
- îáßß¿ó$(0)="φΓ« ßΓ᫬á ó îáßß¿óÑ$(0)"
- îáßß¿ó$(1)="φΓ« ßΓ᫬á ó îáßß¿óÑ$(1)"
- '«Γ«íαếΓ∞ ßΓα«τ¡δÑ ñá¡¡δÑ
- print using "îáßß¿ó¡δ⌐ φ½Ñ¼Ñ¡Γ 1:&":Máßß¿ó;(0)
- print using "îáßß¿ó¡δ⌐ φ½Ñ¼Ñ¡Γ 2&":îáßß¿ó$(1)
- print
- input "¡áª¼¿ΓÑ <enter>(óó«ñ)ñ½∩ ¿ß»«½¡Ñ¡¿∩ «»ÑαáΓ«αá
- CLEAR": ÅπßΓ«$
- clear 'ñѽáÑΓß∩ «τ¿ßΓ¬á
- print
- 'ßπΘÑßΓóπεΘ¿Ñ ßΓα«τ¡δÑ ñá¡¡δÑ í«½ÑÑ ¡Ñ «Γ«íαáªáεΓß∩
- print using "îáßß¿ó¡δ⌐ φ½Ñ¼Ñ¡Γ 1:&":îáßß¿ó$(0)
- print using "îáßß¿ó¡δ⌐ φ½Ñ¼Ñ¡Γ 2:&":îáßß¿ó$(1)
- print
- print "ßΓα«τ¡δÑ »ÑαѼѡ¡δÑ ΓÑ»Ñα∞ »πßΓδ"
- end
- ÅÑαáäÑαªáΓѽ∞:'«»αÑñѽ¿Γ∞ »πßΓπε ¼ÑΓ¬π ñ½∩ ½«óπΦ¬¿
- 'ßóÑΓ«ó«ú« »Ñαá
- return
- è¡«»¬¿äÑαªáΓѽ∞ :'«»αÑñѽ¿Γ∞ »πßΓπε ¼ÑΓ¬π ñ½∩
- 'απτ¬¿ π»αáó½Ñ¡¿∩
- return
-
- öπ¡¬µ¿∩ CLNG
- ------------
-
- öπ¡¬µ¿∩ CLNG «íÑß»Ñτ¿óáÑΓ »αÑ«íαẫóá¡¿Ñ ó ñ½¿¡¡«Ñ µÑ½«Ñ
- --------
-
- æ¿¡Γá¬ß¿ß y=CLNG(τ¿ß½«ó«Ñ óδαáªÑ¡¿Ñ)
- ---------
-
- çá¼Ñτá¡¿∩ CLNG »αÑ«íαáºπÑΓ τ¿ß½«óπε »ÑαѼѡ¡πε ¿½¿ óδαá-
- --------- ªÑ¡¿Ñ ó ñ½¿¡¡«Ñ µÑ½«Ñ »«ßαÑñßΓó«¼ «¬απú½Ñ¡¿∩
- ñα«í¡«⌐ τáßΓ¿ ÑÑ áαúπ¼Ñ¡Γá. àß½¿ τ¿ß½«ó«Ñ óδαáªÑ¡¿Ñ ¡áσ«ñ¿Γß∩ ó¡Ñ
- ñ¿á»áº«¡á «Γ -2ó ßΓѻѡ¿ 31 ñ« (2 ó ßΓѻѡ¿ 31)-1 (»α¿í½¿º¿Γѽ∞¡«
- «Γ -2 ñ« 2 í¿½½¿«¡«ó), 󫺡¿¬áÑΓ «Φ¿í¬á 6 »Ñα¿«ñá »α«ú«¡á,
- ÅÑαÑ»«½¡Ñ¡¿Ñ.
-
- Äúαá¡¿τÑ¡¿∩ ù¿ß½«ó«Ñ óδαáªÑ¡¿Ñ, »«ñáóáѼ«Ñ ó Σπ¡¬µ¿ε CLNG
- ----------- ñ«½ª¡« ¡áσ«ñ¿Γß∩ ó ºá¬«¡¡«¼ ñ¿á»áº«¡Ñ ñ½¿¡¡δσ
- µÑ½δσ.
-
- Éẽ¿τ¿∩ ¥Γ«⌐ Σπ¡¬µ¿¿ ¡ÑΓ ó í«½∞Θ¿¡ßΓóÑ ê¡ΓÑα»αÑ-
- -------- ΓáΓ«α¡δσ üÑ⌐ß¿¬«ó, »«ß¬«½∞¬π «¡¿ ¡Ñ »«ññÑনóáεΓ
- ñ½¿¡¡δÑ µÑ½δÑ.
-
- ß¼. Γá¬ªÑ CDBL
- CINT
- CSNG
- FIX
- INT
-
- Åα¿¼Ñα: print clng(2.0E9),clng(33.4),clng(-121.9),clng(100251.6)
- ------ end
-
- öπ¡¬µ¿∩ CLOSE
- -------------
-
- öπ¡¬µ¿∩ CLOSE ºá¬αδóáÑΓ Σá⌐½ ¿½¿ πßΓα«⌐ßΓó«
- -------
-
- æ¿¡Γá¬ß¿ß CLOSE[[#]Σá⌐½¡á¼[,[#]Σá⌐½¡á¼]...]
- ---------
-
- çá¼Ñτá¡¿∩ CLOSE «¬á¡τ¿óáÑΓ óºá¿¼«ßó∩º∞ ¡«¼Ñαá Σá⌐½á ¿
- --------- Σá⌐½á, πßΓá¡«ó½Ñ¡¡«ú« ó «»ÑαáΓ«αÑ OPEN
- («Γ¬αδΓ∞), ¿ ºá¬¡τ¿óáÑΓ óó«ñ/óδó«ñ ó φëà Σá⌐½. üπΣÑα Σá⌐½á
- ¡á»«½¡∩ÑΓß∩ ¿, Ñß½¿ Σá⌐½¡á¼ »αÑñßΓáó½∩ÑΓ Σá⌐½, á ¡Ñ πßΓα«⌐ßΓó«,
- ¬«¼á¡ñ«⌐ DOS CLOSE óδ»«½¡∩ÑΓß∩ ¡á ¡Ñ¼ ñ½∩ «í¡«ó½Ñ¡¿∩ ß»αáó«τ¡¿¬á.
- ò«α«Φá »α¿óδτ¬á »Ñα¿«ñ¿τÑ߬¿ ºá¬αδóáΓ∞ Σá⌐½δ, ¬«Γ«αδe
- ºá»¿ßδóáεΓß∩ »α«úαá¼¼«⌐. ¥Γ« ñáÑΓ πóÑαÑ¡¡«ßΓ∞ ó Γ«¼, τΓ«
- ºá»¿ßδóáÑΓß∩ óß∩ ¿¡Σ«α¼áµ¿∩, á óσ«ñ φΓ«ú« Σá⌐½á ó ß»αáó«τ¡¿¬Ñ
- «»Ñαᵿ«¡¡«⌐ ß¿ßΓÑ¼δ »αáó¿½∞¡« «í¡«ó½∩ÑΓß∩ ó ß½πτáÑ »«ß½ÑñπεΘÑú«
- ßí«∩ »¿Γá¡¿∩ ¿½¿ ¬á¬«ú«-Γ« ñαπú«ú« ºáΓαπñ¡Ñ¡¿∩. CLOSE íѺ
- ߻ѵ¿Σ¿¬áµ¿¿ ¡«¼Ñαá Σá⌐½á ºá¬αδóáÑΓ óßÑ «Γ¬αδΓδÑ πßΓα«⌐ßΓóá ¿
- Σá⌐½δ (Γ« ªÑ ßá¼«Ñ ñѽáεΓ RESET, END, STOP ¿ RUN).
-
- ß¼.Γá¬ªÑ END
- OPEN
- STOP
-
- Åα¿¼Ñα:
- '«Γ¬αδΓ∞ Σá⌐½ ¡áº¡áτÑ¡¡δ⌐ »ÑτáΓáεΘѼπ πßΓα«⌐ßΓóπ
- open "lpt1:" as#1
- print#1,"φΓ« ΓÑßΓ"
- close#1
- open "ºá¬αδΓ∞ ö.Ääì" as#1
- open "ºá¬αδΓ∞ ö.äéÇ" as#2
- print#1 "φΓ« ΓÑßΓ"
- print#2 "φΓ« ΓÑßΓ"
- close
- end
-
-
- Ä»ÑαáΓ«α CLS
- ------------
-
- öπ¡¬µ¿∩ CLS «τ¿ΘáÑΓ φ¬αá¡
- -------
-
- æ¿¡Γá¬ß¿ß é ΓѬßΓ«ó«¼ αѪ¿¼Ñ CLS «τ¿ΦáÑΓ φ¬αá¡ ñ« µóÑΓá
- --------- Σ«¡á ¿ «íÑß»Ñτ¿óáÑΓ »«º¿µ¿«¡¿α«óá¡¿Ñ ¬παß«αá ó
- ¿ßσ«ñ¡«¼ »«½«ªÑ¡¿¿ ó ½Ñó«¼ óÑασ¡Ñ¼ πú½π (α∩ñ 1, ¬«½«¡¬á 1). CLS ó
- úαáΣ¿τÑ߬«¼ αѪ¿¼Ñ «τ¿ΘáÑΓ φ¬αá¡ ñ« Σ«¡«ó«ú« µóÑΓá. LPR
- «¬áºδóáÑΓß∩ ó µÑ¡ΓαÑ φ¬αá¡á, ½¿í« (160,100), ½¿í« (320,100), ó
- ºáó¿ß¿¼«ßΓ¿ «Γ Γ«ú«, ∩ó½∩ÑΓß∩ ΓѬπΘ¿⌐ αѪ¿¼ ßαÑñ¡Ñ⌐ ¿½¿ óδß«¬«⌐
- αáºαÑΦáεΘÑ⌐ ß»«ß«í¡«ßΓ¿, ß««ΓóÑΓßΓóÑ¡¡«.
- àß½¿ πªÑ íδ½ ¿ß»«½¡Ñ¡ «»ÑαáΓ«α VIEW, CLS «τ¿ΘáÑΓ Γ«½∞¬«
- «íº«α¡«-»α¿Ñ¼¡«Ñ «¬¡«. ùΓ«íδ ßΓÑαÑΓ∞ óÑß∞ φ¬αá¡, ß¡áτá½á
- ó«ß»«½∞ºπ⌐ΓÑß∞ VIEW íѺ áαúπ¼Ñ¡Γ«ó ñ½∩ ó䬽ετÑ¡¿∩ «íº«α¡«ú« «¬¡á,
- á ºáΓѼ CLS-ñ½∩ «τ¿ßΓ¬¿ φ¬αá¡á.
-
- ß¼. Γá¬ªÑ COLOR
- SCREEN
- VIEW
-
- Åα¿¼Ñα:
- 'cls «τ¿ΘáÑΓ φ¬αá¡ ñ« Σ«¡«ó«ú« µóÑΓá
- print "¥Γ« ΓÑßΓ «»ÑαáΓ«αá CLS"
- input "ìáªáΓ∞ <enter> ñ½∩ «τ¿ßΓ¬¿ φ¬αá¡á...",ÅπßΓ«$
- color 10,1
- cls
- end
-
-
- Ä»ÑαáΓ«α COLOR (úαáΣ¿τÑ߬¿⌐ αѪ¿¼)
- ----------------------------------
-
- öπ¡¬µ¿∩ COLOR πßΓá¡áó½¿óáÑΓ µóÑΓá ñ½∩ úαáΣ¿τÑ߬¿σ «»Ñαᵿ⌐
- -------
-
- æ¿¡Γá¬ß¿ß ä½∩ SCREEN 1:COLOR[ºáñ¡¿⌐ Σ«¡][,(»á½¿Γαá)]
- --------- ä½∩ SCREEN 7,8,9,10:COLOR[»ÑαÑñ¡¿⌐ Σ«¡][,[ºáñ¡¿⌐ Σ«¡]]
-
- çá¼Ñτá¡¿∩ çáñ¡¿⌐ Σ«¡ - φΓ« µÑ½«Ñ óδαáªÑ¡¿Ñ «Γ 0 ñ«
- --------- 63, ߻ѵ¿Σ¿µ¿απεΘÑÑ µóÑΓ Σ«¡á. Å὿Γαá-φΓ« µÑ½«Ñ
- óδαáªÑ¡¿Ñ «Γ 0 ñ« 1, «íÑß»Ñτ¿óáεΘÑÑ óδí«α ñóπσµóÑΓ¡«⌐ »á½¿Γαδ.
- ÅÑαÑñ¡¿⌐ Σ«¡ µÑ½«Ñ óδαáªÑ¡¿Ñ «Γ 1 ñ« 15. Çαúπ¼Ñ¡Γδ φΓ«⌐ ¬«¼á¡ñδ
- «»αÑñѽ∩εΓ Σ«¡«óδ⌐ µóÑΓ φ¬αá¡á ¿ »á½¿Γαπ ¿º τÑΓδαÑσ µóÑΓ«ó,
- ¬«Γ«αδÑ íπñπΓ ¿ß»«½∞º«óáΓ∞ß∩ ó »«ß½ÑñπεΘ¿σ τÑαΓѪ¡δσ «»ÑαáΓ«αáσ.
- Å«ß½Ñ Γ«ú«, ¬á¬ óδ πªÑ «»αÑñѽ¿½¿ »á½¿Γαπ ¿ µóÑΓ Σ«¡á ß »«¼«Θ∞ε
- «»ÑαáΓ«αá COLOR, µóÑΓ «Γñѽ∞¡δσ «í∞Ñ¬Γ«ó »«»áñáÑΓ »«ñ π»αáó½Ñ¡¿Ñ
- αẽ¿τ¡δσ ¬«¼á¡ñ úαáΣ¿¬¿ (CIRCLE,LINE ¿ Γ.ñ.). é αѪ¿¼Ñ óδß«¬«⌐
- αáºαÑΦáεΘÑ⌐ ß»«ß«í¡«ßΓ¿ ¡á ûóÑΓ¡«¼ âαáΣ¿τÑ߬«¼ Çñá»ΓÑαÑ
- Ññ¿¡ßΓóÑ¡¡δ¼¿ 󫺼«ª¡δ¼¿ µóÑΓἿ ∩ó½∩εΓß∩ τÑα¡δ⌐ ¿ íѽδ⌐.
- æ½Ññ«óáΓѽ∞¡« «»Ñ- αáΓ«α COLOR ¡Ñ ¿¼ÑÑΓ º¡áτÑ¡¿∩ ó φΓ«¼ αѪ¿¼Ñ ¿
- »«»δΓ¬á Ñú« ¿ß»«½∞º«óá¡¿∩ »α¿ó«ñ¿Γ ¬ «Φ¿í¬Ñ 5 »Ñα¿«ñá »α«ú«¡á,
- é맮ó ¡Ñºá¬«¡¡«⌐ Σπ¡¬µ¿¿.
-
- SCREEN 1
-
- ö«¡ 0-255:Σá¬Γ¿τÑ߬¿ ¿ß»«½∞ºπѼδ⌐ µóÑΓ Σ«¡á ÑßΓ∞ Σ«¡
- MOD16. æ½Ññ«óáΓѽ∞¡« Σ«¡ 1 ¿ 16 ñáεΓ «ñ¿¡ ¿ ëà ªÑ αѺπ½∞ΓáΓ.
- Å὿Γαá 0-255: óδí¿αáÑΓß∩ ºáαá¡ÑÑ «»αÑñѽѡ¡á∩ »á½¿Γαá, ¬á¬
- »«¬áºá¡« ¡á ¡¿ªÑ
- -----------------------------------------------
- µóÑΓ »á½¿Γαá 0 »á½¿Γαá 1
- -----------------------------------------------
- 1 ºÑ½Ñ¡δ⌐ µ¿¡¬«óδ⌐
- 2 ¬αáß¡δ⌐ á¡¿½¿¡«óδ⌐
- 3 ¬«α¿τ¡Ñóδ⌐ íѽδ⌐
- -----------------------------------------------
- ùÑΓ¡δ¼¿ τ¿ß½á¼¿ «íÑß»Ñτ¿óáÑΓß∩ óδí«α »á½¿Γαδ 0, á ¡ÑτÑΓ¡δ¼¿
- -»á½¿Γαδ 1 »« π¼«½τá¡¿ε. Å὿Γαá 0 ñáÑΓ óáΦÑ⌐ »α«úαá¼¼Ñ
- 󫺼«ª¡«ßΓ∞ ß«ºñáóáΓ∞ «í∞ѬΓδ ó ºÑ½Ñ¡«¼, ¬αáß¡«¼, ¬«α¿τ¡Ñó«¼
- µóÑΓáσ. Å὿Γα«⌐ 2 »αÑñ½áúáεΓß∩ µóÑΓá µ¿¡¬«óδ⌐, á¡¿½¿¡«óδ⌐ ¿
- íѽδ⌐.
-
- SCREEN 7 ¿ 8
-
- Æ«½∞¬« EGA(πß«óÑαΦÑ¡ßΓó«óá¡¡δ⌐ úαáΣ¿τÑ߬¿⌐ áñá»ΓÑα): µóÑΓá
- ºáó¿ß∩Γ «Γ ΓѬπΘÑ⌐ »á½¿Γαδ. ÅÑαÑñ¡¿⌐ Σ«¡ 1-15: óδí¿αáѼδ⌐ µóÑΓ
- ¿ß»«½∞ºπÑΓß∩ ¬á¬ ñ½∩ ºá»¿ß¿ ½¿ΓÑα, Γᬠ¿ ñ½∩ τÑαΓѪ¡«⌐ úαáΣ¿¬¿.
- çáñ¡¿⌐ Σ«¡ 0-15: óδí¿αáÑΓ µóÑΓ Σ«¡á.
-
- SCREEN 9
-
- ÅÑαÑñ¡¿⌐ Σ«¡ 1-15: óδíαá¡¡δ⌐ µóÑΓ ¿ß»«½∞ºπÑΓß∩ ñ½∩ ºá»¿ß¿
- ½¿ΓÑα ¿ ñ½∩ τÑαΓѪ¡«⌐ úαáΣ¿¬¿. àß½¿ óáΦ EGA ¿¼ÑÑΓ »á¼∩Γ∞ 64è,
- ¼«ª¡« ¿ß»«½∞º«óáΓ∞ Γ«∞¬« º¡áτÑ¡¿∩ ¿º ñ¿á»áº«¡á 103. çáñ¡¿⌐ Σ«¡
- 0-63: óδí¿αáÑΓß∩ Σ«¡«óδ⌐ µóÑΓ.
-
- SCREEN 10
-
- ÅÑαÑñ¡¿⌐ Σ«¡ 1-3: óδíαá¡¡δ⌐ µóÑΓ ¿ß»«½∞ºπÑΓß∩ ¿ ñ½∩ ºá»¿ß¿
- ½¿ΓÑα ¿ ñ½∩ τÑαΓѪ¡«⌐ úαáΣ¿¬¿; 1=τÑα¡δ⌐, 2=¼Ñαµá¡¿Ñ, 3=óδß«¬á∩
- ¿¡Γѡ߿ó¡«ßΓ∞. ûóÑΓ »ÑαÑñ¡Ñú« Σ«¡á 0 »α¿ó«ñ¿Γ ¬ «Φ¿í¬Ñ é맮ó
- ¡Ñºá¬«¡¡«⌐ Σπ¡¬µ¿¿.
- ä½∩ ¿º¼Ñ¡Ñ¡¿∩ áΓα¿íπΓ«ó π¼«½τá¡¿∩ ¿ß»«½∞ºπ⌐ΓÑ «»ÑαáΓ«α
- PALETTE: çáñ¡¿⌐ Σ«¡ 0-8: óδíαá¡¡δ⌐ µóÑΓ ¿ß»«½∞ºπÑΓß∩ ó ¬áτÑßΓóÑ
- Σ«¡á.
-
- Åα¿¼Ñτá¡¿Ñ: ç¡áτÑ¡¿Ñ µóÑΓá 0 ñ½∩ ½εí«⌐ »á½¿Γαδ ÑßΓ∞
- ---------- µóÑΓ Σ«¡á, ߻ѵ¿Σ¿µ¿απѼ«ú« ó φΓ«¼ «»ÑαáΓ«αÑ, á
- µóÑΓ »ÑαÑñ¡Ñú« Σ«¡á »« π¼«½τá¡¿ε «»αÑñѽ∩ÑΓß∩ ¼á¬ß¿¼á½∞¡δ¼
- áΓα¿íπΓ«¼.
-
- Äúαá¡¿τÑ¡¿∩ é φ¬αá¡Ñ αѪ¿¼á 2 «»ÑαáΓ«α COLOR ó«ºóαáΘáÑΓ
- ----------- «Φ¿í¬π 5 »Ñα¿«ñá »α«ú«¡á, é맮ó ¡Ñºá¬«¡¡«⌐
- Σπ¡¬µ¿¿.
-
- Åα¿¼Ñα:
-
- 'φΓá »α«úαá¼¼á ñѼ«¡ßΓα¿απÑΓ «»ÑαáΓ«α COLOR ó úαáΣ¿τÑ߬«¼
- 'αѪ¿¼Ñ
- '»ÑαѬ½ετ¿Γ∞ ¡á úαáΣ. αѪ¿¼ ßαÑñ¡Ñ⌐ αáºαÑΦáεΘÑ⌐ ß»«ß«í¡«ßΓ¿
- 'πßΓá¡«ó¿Γ∞ »á½¿Γαπ 0
- screen 1
- color .0
- for αáñ¿πß%=1 to 20 'πóѽ¿τ¿Γ∞ αẼÑα «¬απª¡«ßΓ¿
- ¬«½Ñα%=αáñ¿πß%MOD4 'αáßτÑΓ µóÑΓá ¿º«íαáªÑ¡¿∩
- circle (160,100),αáñ¿πß%,¬«½Ñα% '«Γ«íαếΓ∞ «¬απª¡«ßΓ∞
- next αáñ¿πß%
- delay 2
- color .1 '¿º¼Ñ¡¿Γ∞ »á½¿Γαπ
- delay 2
- 'πßΓá¡«ó¿Γ∞ »á½¿Γαπ ¿ µóÑΓ Σ«¡á ¿ «τ¿ßΓ¿Γ∞ φ¬αá¡
- color 6,0:cls
- 'óδτÑαΓ¿Γ∞ ¬αáß¡πε «¬απª¡«ßΓ∞ ó ßÑαÑñ¿¡Ñ φ¬αá¡á
- circle (160,100),50,2
- delay 2
- end
-
-
- Ä»ÑαáΓ«α COLOR (ΓѬßΓ«óδ⌐ αѪ¿¼)
- --------------------------------
-
- öπ¡¬µ¿∩ COLOR πßΓá¡áó½¿óáÑΓ µóÑΓ ΓѬßΓá
- -------
-
- æ¿¡Γá¬ß¿ß COLOR[»ÑαÑñ¡¿⌐ Σ«¡][,[ºáñ¡¿⌐ Σ«¡][,í«αñεα]]
- ---------
-
- çá¼Ñτá¡¿∩ »ÑαÑñ¡¿⌐ Σ«¡ - φΓ« µÑ½«Ñ óδαáªÑ¡¿Ñ «Γ 0 ñ«
- --------- 31, ߻ѵ¿Σ¿µ¿απεΘÑÑ µóÑΓ ½¿ΓÑα. çáñ¡¿⌐ Σ«¡ - φΓ«
- µÑ½«Ñ óδαáªÑ¡¿Ñ «Γ 0 ñ« 7,߻ѵ¿Σ¿µ¿απεΘÑÑ µóÑΓ Σ«¡á. ü«αñεα - φΓ«
- µÑ½«Ñ óδαáªÑ¡¿Ñ «Γ 0 ñ« 15, ¬«Γ«α«Ñ «»αÑñѽ∩ÑΓ µóÑΓ í«αñεαá. àß½¿
- ¬á¬«⌐-Γ« ¿º φΓ¿σ »áαá¼ÑΓα«ó ¡áσ«ñ¿Γß∩ ó¡Ñ π¬áºá¡¡«ú« ñ¿á»áº«¡á Γ«
- 󫺡¿¬áÑΓ «Φ¿í¬á 5 »Ñα¿«ñá »α«ú«¡á, ó맮ó ¡Ñºá¬«¡¡«⌐ Σπ¡¬µ¿¿. ä½∩
- ßΓá¡ñáαΓ¡δσ ó¿ñÑ«-»½áΓ ûóÑΓá/âαáΣ¿¬¿ ó ß»¿ß«¬ óδí«αá óáΦÑú« Σ«¡á
- óσ«ñ∩Γ:
- 0 τÑα¡δ⌐ 8 ßÑαδ⌐
- 1 ú«½πí«⌐ 9 ßóÑΓ½«-ú«½πí«⌐
- 2 ºÑ½Ñ¡δ⌐ 10 ßóÑΓ½«-ºÑ½Ñ¡δ⌐
- 3 µ¿¡¬«óδ⌐ 11 ßóÑΓ½«-µ¿¡¬«óδ⌐
- 4 ¬αáß¡δ⌐ 12 ßóÑΓ½«-¬αáß¡δ⌐
- 5 á¡¿½¿¡«óδ⌐ 13 ßóÑΓ½«-á¡¿½¿¡«óδ⌐
- 6 ¬«α¿τ¡Ñóδ⌐ 14 ªÑ½Γδ⌐
- 7 íѽδ⌐ 15 íѽδ⌐ óδß«¬«⌐ ¿¡Γѡ߿ó¡«ßΓ¿
- ï¿ΓÑαδ ¼«úπΓ ñѽáΓ∞ß∩ ¼ÑαµáεΘ¿¼¿ »«ßαÑñßΓó«¼ πßΓá¡«ó¬¿
- »ÑαÑñ¡Ñú« Σ«¡á ó ªÑ½áѼδ⌐ µóÑΓ »½εß 16. ìá»α¿¼Ñα, πßΓá¡«ó¬á
- »ÑαÑñ¡Ñú« Σ«¡á 22 (6+16) ñáÑΓ ¼ÑαµáεΘ¿Ñ ¬«α¿τ¡ÑóδÑ ½¿ΓÑαδ.
- Çñá»ΓÑαδ ¼«¡«σα«¼¡«ú« ¿º«íαáªÑ¡¿∩ ¡Ñ ¼«úπΓ «Γ«íαáªáΓ∞ µóÑΓ,
- »«φΓ«¼π º¡áτÑ¡¿∩ »ÑαÑñ¡Ñú« Σ«¡á ¿¡ΓÑα»αÑΓ¿απεΓß∩ ß½ÑñπεΘ¿¼
- «íαẫ¼:
- 0 τÑα¡δ⌐
- 1 »«ñτÑનóá¡¿Ñ
- 2-7 íѽδ⌐
- 8 τÑα¡δ⌐
- 9 »«ñτÑનóá¡¿Ñ óδß«¬«⌐ ¿¡Γѡ߿ó¡«ßΓ¿
- 10-15 óδß«¬á∩ ¿¡Γѡ߿ó¡«ßΓ∞
- 16 τÑα¡δ⌐
- 17 »«ñτÑનóá¡¿Ñ τÑα¡δ¼
- 18-23 ¼Ñαµá¡¿Ñ
- 24 τÑα¡δ⌐
- 25 óδß«¬á∩ ¿¡Γѡ߿ó¡«ßΓ∞, »«ñτÑનóá¡¿Ñ, ¼Ñαµá¡¿Ñ
- 26-31 óδß«¬á∩ ¿¡Γѡ߿ó¡«ßΓ∞, ¼Ñαµá¡¿Ñ
- ç¡áτÑ¡¿∩ ºáñá¡¡«ú« Σ«¡á «Γ 0 ñ« 6 ñáεΓ τÑα¡δ⌐ Σ«¡. ç¡áτÑ¡¿Ñ
- 7 ß««ΓóÑΓßΓóπÑΓ íѽ«¼π Σ«¡π.
-
- Åα¿¼Ñτá¡¿Ñ: ìá ½εí«¼ Çñá»ΓÑαÑ ½¿ΓÑαδ ßΓá¡«ó∩Γß∩ ¡Ñó¿ñ¿¼δ¼¿,
- ---------- ¬«úñá »ÑαÑñ¡¿⌐ Σ«¡ αáóÑ¡ ºáñ¡Ñ¼π Σ«¡π.
- ô½πτΦÑ¡¡δ⌐ úαáΣ¿τÑ߬¿⌐ Çñá»ΓÑα ¼«ªÑΓ «Γ«íαáªáΓ∞ 16 µóÑΓ«ó
- ¿º »á½¿Γαδ, ó¬½ετáεΘÑ⌐ ó ßÑí∩ 64 µóÑΓá.
-
- Äúαá¡¿τÑ¡¿∩ »áαá¼ÑΓα í«αñεαá ¡Ñ «¬áºδóáÑΓ ó½¿∩¡¿∩ ¡á
- ----------- EGA ß π½πτΦÑ¡¡δ¼ ¼«¡¿Γ«α«¼.
-
- Åα¿¼Ñα:
- '¥Γá »α«úαá¼¼á ñѼ«¡ßΓα¿απÑΓ «»ÑαáΓ«α COLOR
- 'ó ΓѬßΓ«ó«¼ ¿ úαáΣ¿τÑ߬«¼ αѪ¿¼áσ
- '«Γ«íαếΓ∞ Γáí½¿µπ áΓα¿íπΓ«ó
- for ºáñ¡¿⌐%=0 to 7
- for »ÑαÑñ¡¿⌐%=0 to 15
- color »ÑαÑñ¡¿⌐%,ºáñ¡¿⌐%
- print using "###":ºáñ¡¿⌐%*16+»ÑαÑñ¡¿⌐%
- next »ÑαÑñ¡¿⌐%
- print
- next ºáñ¡¿⌐%
- print
- for ºáñ¡¿⌐%=0 to 7 '«Γ«íαếΓ∞ Γáí½¿µπ óßÑσ áΓα¿íπΓ«ó
- for »ÑαÑñ¡¿⌐%=16 to 31 'ß ¼Ñαµá¡¿Ñ¼
- color »ÑαÑñ¡¿⌐%,ºáñ¡¿⌐%
- print using "###":ºáñ¡¿⌐%*16+»ÑαÑñ¡¿⌐%-16
- next »ÑαÑñ¡¿⌐%
- print
- next ºáñ¡¿⌐%
- end
-
-
- Ä»ÑαáΓ«α COM(n)
- ---------------
-
- öπ¡¬µ¿∩ COM(n) π»αáó½∩ÑΓ «Γ߽Ѫ¿ó᡿Ѽ ß«íδΓ¿⌐ ¡á
- »«ß½Ññ«óáΓѽ∞¡δσ óσ«ñ¡δσ πßΓα«⌐ßΓóáσ.
-
- æ¿¡Γá¬ß¿ß COM(n){on!off!stop}
- ---------
-
- çá¼Ñτá¡¿∩ n - τ¿ß½« ¬«¼¼π¡¿¬áµ¿«¡¡δσ áñá»ΓÑα«ó,
- --------- »«ñ½ÑªáΘ¿σ «Γ߽Ѫ¿óá¡¿ε (1 ¿½¿ 2). Ä»ÑαáΓ«α
- COM(n) ON ñáÑΓ ó«º¼«ª¡«ßΓ∞ «Γ߽Ѫ¿óá¡¿∩ »«ñ»α«úαá¼¼«⌐,
- ߻ѵ¿Σ¿µ¿α«óá¡¡«⌐ ó »αÑñδñπΘѼ «»ÑαáΓ«αÑ ON COM(n).
- Å«ß½Ñ COM(n) ON Æπαí«-üÑ⌐ß¿¬ «ßπΘÑßΓó½∩ÑΓ »α«óÑα¬π ¼Ñªñπ
- ¿ß»«½¡Ñ¡¿Ñ¼ ¬áªñ«ú« «»ÑαáΓ«αá ß µÑ½∞ε »α«ß¼«Γαá »«ßΓπ»½Ñ¡¿∩
- ¬á¬¿σ-½¿í« ½¿ΓÑα ¡á ߻ѵ¿Σ¿µ¿α¿óá¡¡«Ñ óσ«ñ¡«Ñ πßΓα«⌐ßΓó«. àß½¿
- «í¡áαπª¿óáÑΓß∩, τΓ« Γá¬«Ñ ß«íδΓ¿Ñ πªÑ »α«¿º«Φ½«, óδºδóáÑΓß∩
- »«ñ»α«úαá¼¼á, ߻ѵ¿Σ¿µ¿α«óá¡¡á∩ ó «»ÑαáΓ«αÑ ON COM(n).
- àß½¿ COM(n) ó αѪ¿¼Ñ OFF, á¬Γ¿ó¡«ßΓ∞ ¡á »«ß½Ññ«óáΓѽ∞¡«¼
- áñá»ΓÑαÑ n ¿ú¡«α¿απÑΓß∩. ÄΓ߽Ѫ¿óá¡¿Ñ ¬«¼¼π¡¿¬áµ¿⌐ »αѬαáΘáÑΓß∩
- »«ß½Ñ «»ÑαáΓ«αá COM(n) STOP; «ñ¡á¬« ½εíá∩ á¬Γ¿ó¡«ßΓ∞
- ºá»«¼¿¡áÑΓß∩, ΓᬠτΓ« ¬«úñá ¿ß»«½¡∩ÑΓß∩ «»ÑαáΓ«α COM(n) ON,
- »α«¿ßσ«ñ¿Γ ¡Ñ¼Ññ½Ñ¡¡δ⌐ ºáσóáΓ »«ßΓπ»¿óΦÑú«. ä½∩ πóѽ¿τÑ¡¿∩ ¿½¿
- π¼Ñ¡∞ΦÑ¡¿∩ αẼÑαá COM íπΣÑαá ¿ß»«½∞ºπ⌐ΓÑ ¼ÑΓá«»ÑαáΓ«α $COM.
-
- ß¼. Γá¬ªÑ ON COM(n)
-
- Åα¿¼Ñα:
- 'äѼ«¡ßΓα¿απÑΓß∩ «»ÑαáΓ«α COM(n). ¥Γá »α«úαá¼¼á ¡Ñ íπñÑΓ
- '¡¿τÑú« «Γ«íαáªáΓ∞, Ñß½¿ óáΦ áñá»ΓÑα COM1 ¡Ñ »«½πτáÑΓ óó«ñá
- 'ìáßΓα«¿Γ∞ »«ñ»α«úαá¼¼π ñ½∩ «íαáí«Γ¬¿ COM-óó«ñá
- on com(1) gosub Å«½πτ¿Γ∞諼éó«ñ
- 'αẼÑßΓ¿Γ∞ ¼áßß¿ó 5è ñ½∩ σαá¡Ñ¡¿∩ óó«ñá
- dim 諼ūαΓéó«ñ (5*1024)
- 'αẼÑßΓ¿Γ∞ π¬áºáΓѽ∞ ¡á ß½ÑñπεΘѼ ¿¼ÑεΘѼß∩ íπΣÑα¡«¼
- '»α«ßΓαá¡ßΓóÑ
- çáú«½«ó«¬ÅαΓ%=0
- '¿ ß½ÑñπεΘ¿⌐ ñ½∩ »ÑτáΓ¿
- 諡ѵÅαΓ%=0
- 'ó¬½ετ¿Γ∞ «íαáí«Γ¬π COM-óó«ñá
- com(1) on
- '¡áßΓα«¿Γ∞ íπΣÑα óó«ñá 1è
- $com1 1024
- '«Γ¬αδΓ∞ Σá⌐½«óπε »ÑαѼѡ¡πε,¬á¬ com1
- open
- open "com1" as#1
- print '¡áªáΓ∞ ½εíπε ¬½áó¿Φπ ñ½∩ »αѬαáΘÑ¡¿∩ »α«úαá¼¼δ"
- '»«¬á ¬½áó¿Φá ¡Ñ ¡áªáΓá
- while not instat
- 'Ñß½¿ íπΣÑα ¡Ñ »πßΓ
- if 諡ѵÅαΓ%<>çáú«½«ó«¬ÅαΓ% then
- '«Γ«íαếΓ∞ óó«ñ
- print "諼-»«αΓ óó«ñ:";諼ūαΓéó«ñ(諡ѵÅαΓ%)
- 'Φáú ¬ ß½ÑñπΘѼπ ¼ÑßΓπ ó íπΣÑαÑ
- 諡ѵÅαΓ%=諡ѵÅαΓ%+1
- end if
- locate 2.1
- print time$
- wend
- end
- '«íαáí«ΓáΓ∞ ¬«¼-»«αΓ »αÑαδóá¡¿Ñ
- Å«½πτ¿Γ∞諼éó«ñ:
- 'τ¿ΓáΓ∞ óó«ñ ¿º 諼-Å«αΓ íπΣÑαá
- input#1.諼ūαΓéó«ñ(çáú«½«ó«¬ÅαΓ%)
- 'π¬áºáΓ∞ ß½ÑñπΘÑÑ íπΣÑα¡«Ñ »α«ßΓαá¡ßΓó«
- çáú«½«ó«¬ÅαΓ%=çáú«½«ó«¬ÅαΓ%+1
- return
- 諡ѵéó«ñá:'«¬«¡τ¿Γ∞ ¬«¼-»«αΓ óó«ñ
- print "ä«ßΓ¿ú¡πΓ ¬«¡Ñµ óó«ñá ..."
- end
-
-
- öπ¡¬µ¿∩ COMMAND$
- ----------------
-
- öπ¡¬µ¿∩ COMMAND$ ó«ºóαáΘáÑΓ ¬«¼á¡ñ¡πε ßΓ᫬π, ¿ß»«½∞ºπѼπε
- ------- ñ½∩ ºá»πß¬á »α«úαá¼¼δ ¿º DOS
-
- æ¿¡Γá¬ß¿ß s$=COMMAND$
- ---------
-
- çá¼Ñτá¡¿∩ COMMAND$ ó«ºóαáΘáÑΓ óßÑ, τΓ« í佫 ¡áíαá¡«
- --------- ó DOS-»«ñ߬ẬÑ, ó »α«µÑßßÑ ó«ºíπªñÑ¡¿∩
- »α«úαá¼¼δ, ºá ¿ß¬½ετÑ¡¿Ñ¼ ¿¼Ñ¡¿ ßἫ⌐ »α«úαá¼¼δ (¡Ñ¬«Γ«αδÑ
- απ¬«ó«ñßΓóá ßßδ½áεΓß∩ ¡á φëà ΓѬßΓ, ¡áºδóá∩ Ñú« "ΓαÑ⌐½Ññ«¼").
- êß»«½∞ºπ⌐ΓÑ COMMAND$ ñ½∩ ¡á¬«»½Ñ¡¿∩ áαúπ¼Ñ¡Γ«ó »Ñα¿«ñá »α«ú«¡á,
- Γᬿσ ¬á¬ ¿¼Ñ¡á Σá⌐½«ó ¿ «»µ¿¿ »α«úαá¼¼δ. Éáßß¼«Γα¿¼, ¡á»α¿¼Ñα,
- DOS-¬«¼á¡ñπ:
-
- FASTSORT cust.dta cust.new
-
- úñÑ FASTSORT (íδßΓαá∩ ß«αΓ¿α«ó¬á) ÑßΓ∞ ß«ºñá¡¡á∩ Æπαí«-üÑ⌐ß¿¬«¼
- .EXE »α«úαá¼¼á. è«úñá FASTSORT »«½πτáÑΓ π»αáó½Ñ¡¿Ñ, COMMAND$
- íπñÑΓ πñÑনóáΓ∞ óßÑ, τΓ« í佫 ¡áíαá¡« ó DOS »«ñß¬áº¬Ñ »«ß½Ñ
- ¿¼Ñ¡¿ ßἫ⌐ »α«úαá¼¼δ, Γ.Ñ. ó ñá¡¡«¼ ß½πτáÑ ßΓ᫬π "cust.dta
- cust.new". ùΓ« ñѽáΓ∞ ß φΓ«⌐ ßΓ᫬«⌐ (󫺼«ª¡á αáºí¿ó¬á COMMAND$
- ¡á Σá⌐½á¿¼∩1 ¿ Σá⌐½á¿¼∩2 ¿ ß«αΓ¿α«ó¬á ß«ñÑন¼«ú« Σá⌐½á¿¼∩1 ó
- ¡«óδ⌐ Σá⌐½ Σá⌐½á¿¼∩2) «ßΓáÑΓß∩ ñ½∩ αÑΦÑ¡¿∩ ó ß««ΓóÑΓßΓó¿¿ ß
- «»αÑñѽѡ¿Ñ¼ FASTSORT.
- ä½∩ ΓÑßΓ¿α«óá¡¿∩ »α«úαá¼¼δ, ó ¬«Γ«α«⌐ ¿ß»«½∞ºπÑΓß∩
- COMMAND$, ó »αÑñѽáσ Æπαí«-üÑ⌐ß¿¬á, »α¿¼Ñ¡∩ÑΓß∩ «»µ¿∩ ßΓ᫬¿
- »áαá¼ÑΓα«ó ¿º ¼Ñ¡ε «»µ¿⌐ ñ½∩ πßΓá¡«ó¬¿ ó«ºóαáΘáѼ«⌐ COMMAND$
- ßΓ᫬¿.
-
- Äúαá¡¿τÑ¡¿∩ îá¬ß¿¼á½∞¡á∩ ñ½¿¡á DOS-¬«¼á¡ñ¡«⌐ ßΓ᫬¿ - 127 ½¿ΓÑα
- -----------
-
- Åα¿¼Ñα:
- '¥Γá »α«úαá¼¼á ñѼ«¡ßΓα¿απÑΓ Σπ¡¬µ¿ε COMMAND$
- print "Åáαá¼ÑΓα«¼ ¬«¼á¡ñ¡«⌐ ßΓ᫬¿, »«ñáóáѼ«⌐ ó φΓπ
- '»α«úαá¼¼π ∩ó½∩εΓß∩
- print command$
- 諼»¿½¿απ⌐ΓÑ φΓπ »α«úαá¼¼π ó »á¼∩Γ∞ ¿ »α«ú«¡∩⌐ΓÑ ñóáªñδ,
- ¬áªñδ⌐ αẠ¼Ñ¡∩∩ óó«ñ »áαá¼ÑΓα«ó ó ¼Ñ¡ε «»µ¿⌐.
-
-
- Ä»ÑαáΓ«α COMMON
- ---------------
-
- öπ¡¬µ¿∩ COMMON ºá∩ó½∩ÑΓ «ñ¡π ¿½¿ í«½ÑÑ »ÑαѼѡ¡δσ,
- »«ñ½ÑªáΘ¿σ »«ñáτÑ ó ß«Ññ¿¡Ñ¡¡πε µÑ»«τ¬«⌐
- »α«úαá¼¼π.
-
- æ¿¡Γá¬ß¿ß COMMON »ÑαѼѡ¡á∩[,»ÑαѼѡ¡á∩]...
- ---------
-
- çá¼Ñτá¡¿∩ ÅÑαѼѡ¡á∩ - φΓ« ¼áßß¿ó¡á∩ ¿½¿ ߬á½∩α¡á∩
- --------- »ÑαѼѡ¡á∩, ¬«Γ«αá∩ ñ«½ª¡á íδΓ∞ ßñѽá¡á
- ñ«ßΓπ»¡«⌐ ß½ÑñπεΘÑ⌐ ß«Ññ¿¡∩Ѽ«⌐ µÑ»«τ¬«⌐ »α«úαá¼¼Ñ. îáßß¿óδ
- ߻ѵ¿Σ¿µ¿απ⌐ΓÑ »«ßαÑñßΓó«¼ ó¬½ετÑ¡¿∩ τ¿ß½á αẼÑα«ó ó ߬«í¬áσ
- »«ß½Ñ ¿¼Ñ¡¿ »ÑαѼѡ¡«⌐. Ä»ÑαáΓ«αδ COMMON ¼«úπΓ »«ñáóáΓ∞ß∩ ó ½εí«¼
- ¼ÑßΓÑ »α«úαá¼¼δ ¿ ¿σ ¼«ªÑΓ íδΓ∞ í«½ÑÑ «ñ¡«ú«, ¡« ñá¡¡á∩
- »ÑαѼѡ¡á∩ ¼«ªÑΓ »«∩ó½∩Γ∞ß∩ Γ«½∞¬« «ñ¿¡ αáº. æ«ó»áñáεΘ¿Ñ
- «»ÑαáΓ«αδ COMMON ñ«½ª¡δ »«∩ó½∩Γ∞ß∩ ó »α«úαá¼¼Ñ, ¬ ¬«Γ«α«⌐
- »α¿ó∩ºδóáÑΓß∩ µÑ»«τ¬á.ê¼Ñ¡á »ÑαѼѡ¡δσ, ¿ß»«½∞ºπѼδσ ó «»ÑαáΓ«αÑ
- COMMON ¡Ñ ¿¼ÑεΓ º¡áτÑ¡¿∩, ¡« ¿σ ¬«½¿τÑßΓó« ¿ Γ¿» ó᪡δ. àß½¿
- »ÑαѼѡ¡δÑ, ºá∩ó½Ñ¡¡δÑ ¬á¬ «íΘ¿Ñ ó ó«ºíπªñáεΘÑ⌐ »α«úαá¼¼Ñ, ¡Ñ
- ß«ó»áñáεΓ »« Γ¿»π ¿ ¬«½¿τÑßΓóπ ß »ÑαѼѡ¡δ¼¿, ºá∩ó½Ñ¡¡δ¼¿ ¬á¬
- «íΘ¿Ñ ó »α¿¡¿¼áεΘÑ⌐ »α«úαá¼¼Ñ, Γ« úÑ¡Ñα¿απÑΓß∩ «Φ¿í¬á »Ñα¿«ñá
- »α«ú«¡á.
-
- Éẽ¿τ¿∩ Æπαí«-üÑ⌐ß¿¬ ¡Ñ »«ññÑনóáÑΓ »áαá¼ÑΓα CHAIN
- -------- ALL, «íÑß»Ñτ¿óáѼδ⌐ ê¡ΓÑα»αÑΓáΓ«α¡δ¼ üÑ⌐ß¿¬«¼.
- èáªñπε »ÑαѼѡ¡πε, «íΘ¿⌐ ñ«ßΓπ» ¬ ¬«Γ«α«⌐ ñ«½ª¡δ ¿¼ÑΓ∞
- ßó∩ºδóáѼδÑ ó µÑ»«τ¬π »α«úαá¼¼δ, óδ ñ«½ª¡δ ºá∩ó½∩Γ∞
- ¡Ñ»«ßαÑñßΓóÑ¡¡«. Åα¿ ß»Ñµ¿Σ¿µ¿α«óá¡¿¿ ó Æπαí«-üÑ⌐ß¿¬Ñ ó ¬áτÑßΓóÑ
- «íΘÑ⌐ »ÑαѼѡ¡«⌐ ¼áßß¿óá, ¡Ñ«íσ«ñ¿¼« ߻ѵ¿Σ¿µ¿α«óáΓ∞ τ¿ß½«
- ¿º¼ÑαÑ¡¿⌐ φΓ«ú« ¼áßß¿óá. é ê¡ΓÑα»αÑΓáΓ«α¡«¼ üÑ⌐ß¿¬Ñ ß«ó»áñáεΘ¿Ñ
- COMMON ¡Ñ ΓαÑíπÑΓß∩, »«ß¬«½∞¬π COMMON ó ¡Ñ¼ ¡Ñ«íσ«ñ¿¼δ Γ«½∞¬« ¿º
- CHAIN, á ó¡πΓα¿ CHAIN ó ¡¿σ ¡ÑΓ ¡Ñ«íσ«ñ¿¼«ßΓ¿. æ ñαπú«⌐ ßΓ«α«¡δ
- Æπαí«-üÑ⌐ß¿¬ ΓαÑíπÑΓ, τΓ«íδ »ÑαѼѡ¡δÑ ó ¬áªñ«¼ «»ÑαáΓ«αÑ COMMON
- í뫨 »αáó¿½∞¡« π»«α∩ñ«τÑ¡δ. äαπú¿¼¿ ß½«óἿ, ¿¼Ñ¡á »ÑαѼѡ¡δσ ó
- ú½áó¡«⌐ »α«úαá¼¼Ñ ¿ »α«úαá¼¼Ñ-µÑ»«τ¬Ñ ¼«úπΓ «Γ½¿τáΓ∞ß∩, ¡« Γ¿»δ
- »ÑαѼѡ¡δσ ñ«½ª¡δ ß«ó»áñáΓ∞. Åαáó¿½∞¡δ¼ ∩ó½∩ÑΓß∩ ß½ÑñπΘÑÑ
- π»«ΓαÑí½Ñ¡¿Ñ COMMON :
- 'â½áó¡á∩ »α«úαá¼¼á
- COMMON i%,îáßß¿ó(1),j#
- 'ûÑ»¡á∩ »α«úαá¼¼á
- COMMON ûѽ%,äÑ⌐ßΓóîáßß(11),äóΓτ¡#
-
- Äúαá¡¿τÑ¡¿∩ Æπαí«-üÑ⌐ß¿¬ ¡Ñ »«ññÑনóáÑΓ »αÑ«ñ«½ÑóáѼ«Ñ
- ----------- CHAIN ALL COMMON ê¡ΓÑα»αÑΓáΓ«α¡«ú« üÑ⌐ß¿¬á.
-
- Åα¿¼Ñα:
- '¥Γá »α«úαá¼¼á ñѼ«¡ßΓα¿απÑΓ «»ÑαáΓ«α COMMON
- 'ùΓ«íδ ¿ß»«½¡¿Γ∞ φΓ¿ »α«úαá¼¼δ óδ»«½¡∩⌐ΓÑ ß½ÑñπΘÑÑ
- '(1) ¬«¼»¿½¿α«óáΓ∞ »Ñαóπε »α«úαá¼¼π ó .EXE-Σá⌐½
- '(2)¬«¼»¿½¿α«óáΓ∞ óΓ«απε »α«úαá¼¼π ó .TBC-Σá⌐½
- '(3) »α¿ DOS »«ñß¬áº¬Ñ ¿ß»«½¡¿Γ∞ »Ñαóπε »α«úαá¼¼π
- 'Åα«úαá¼¼á σ«º∩¿¡.諼»¿½¿α«óáΓ∞ φΓπ »α«úαá¼¼π ó .EXE-Σá⌐½
- dim æΓáαδ⌐îáßß¿ó$(1) 'ºá∩ó¿Γ∞ ñóπßΓα«τ¡δ⌐ ¼áßß¿ó
- æΓáαδ⌐îáßß¿ó$(0)="¥Γ« »Ñαóá∩ ßΓα«¬á ¼áßß¿óá"
- æΓáαδ⌐îáßß¿ó$(1)="¥Γ« óΓ«αá∩ ßΓα«¬á ¼áßß¿óá"
- æΓáα«Ñûѽ«Ñ%=12345
- æΓáα«Ñ使¡¡«Ñûѽ«Ñ&=123450000
- æáα«Ñàñ¿¡¿τ¡«⌐Æ«τ¡«ßΓ¿!=12345.12345
- æΓáα«Ñäó«⌐¡«⌐Æ«τ¡«ßΓ¿#=1.0E+300
- '߻ѵ¿Σ¿µ¿α«óáΓ∞ »ÑαѼѡ¡δÑ, ¬«Γ«αδÑ ∩ó½∩εΓß∩ «íΘ¿¼¿ ñ½∩
- '»α«úαá¼¼ σ«º∩¿¡ ¿ ß½πúá
- common æΓáαδ⌐îáßß¿ó(),æΓáα«Ñûѽ«Ñ%,æΓáα«Ñ使¡¡«Ñûѽ«Ñ&,
- æΓáα«Ñäó«⌐¡«⌐Æ«τ¡«ßΓ¿#
- chain "æ½πúá.TBC" 'µÑ»«τ¬á ñ½∩ »α«úαá¼¼δ ß½πúá
- end
- 'Åα«úαá¼¼á æ½πúá.諼»¿½¿α«óáΓ∞ φΓπ µÑ»«τ¬π ó .TBC-Σá⌐½
- common ì«óδ⌐îáßß¿ó(),ì«ó«Ñûѽ«Ñ%,ì«ó«Ñ使¡¡«Ñûѽ«Ñ&,ì«ó«Ñ-
- àñ¿¡¿τ¡«⌐Æ«τ¡«ßΓ¿!,ì«ó«Ñäó«⌐¡«⌐Æ«τ¡«ßΓ¿#
- print ì«óδ⌐îáßß¿ó(0)
- print ì«óδ⌐îáßß¿ó(1)
- print ì«ó«Ñûѽ«Ñ%,ì«ó«Ñ使¡¡«Ñûѽ«Ñ&,ì«ó«Ñàñ¿¡¿τ¡«⌐Æ«τ¡«ßΓ¿!,ì«ó«-
- ßΓ¿!,ì«ó«Ñäó«⌐¡«⌐Æ«τ¡«ßΓ¿#
-
- öπ¡¬µ¿∩ COS
- -----------
-
- öπ¡¬µ¿∩ COS ó«ºóαáΘáÑΓ Γα¿ú«¡«¼ÑΓα¿τÑ߬¿⌐ ¬«ß¿¡πß
- -------
-
- æ¿¡Γá¬ß¿ß y=COS(τ¿ß½«ó«Ñ óδαáªÑ¡¿Ñ)
- ---------
-
- çá¼Ñτá¡¿Ñ ù¿ß½«ó«Ñ óδαáªÑ¡¿Ñ - φΓ« πú«½, ߻ѵ¿Σ¿µ¿απѼδ⌐
- --------- ó αáñ¿á¡áσ. ùΓ«íδ »αÑ«íαẫóáΓ∞ αáñ¿á¡δ ó
- úαáñπßδ, π¼¡«ªá⌐ΓÑ ¡á 180/n. ä½∩ »αÑ«íαẫóá¡¿∩ úαáñπß«ó ó
- αáñ¿á¡δ π¼¡«ªá⌐ΓÑ ¡á n/180 (æ¼. «íßπªñÑ¡¿Ñ αáñ¿á¡«ó ó «»¿ßá¡¿¿
- Σπ¡¬µ¿¿ ATN). COS ó«ºóαáΘáÑΓ º¡áτÑ¡¿Ñ ñó«⌐¡«⌐ Γ«τ¡«ßΓ¿.
-
- æ¼.Γá¬ªÑ ATN
- SIN
- TAN
-
- Åα¿¼Ñα:
- pi=atn(1)*4
- for i%=0 to 360 step 45
- print using "è«ß¿¡πß ### úαáñπß«ó=##.##":i%,cos(pi#/180*i%)
- next i%
- end
-
- öπ¡¬µ¿∩ CSNG
- ------------
-
- öπ¡¬µ¿∩ CSNG »αÑ«íαáºπÑΓ τ¿ß½«ó«Ñ óδαáªÑ¡¿Ñ ó Ñú«
- ------- φ¬ó¿óá½Ñ¡Γ Ññ¿¡¿τ¡«⌐ Γ«τ¡«ßΓ¿.
-
- æ¿¡Γá¬ß¿ß y=CSNG(τ¿ß½«ó«Ñ óδαáªÑ¡¿Ñ)
- ---------
-
- çá¼Ñτá¡¿∩ CSNG »αÑ«íαáºπÑΓ τ¿ß½«ó«Ñ óδαáªÑ¡¿Ñ ¿½¿
- --------- »ÑαѼѡ¡πε ó Σ«α¼π ß »½áóáεΘÑ⌐ Γ«τ¬«⌐ Ññ¿¡¿τ¡«⌐
- Γ«τ¡«ßΓ¿. CSNG «íδτ¡« ¿ß»«½∞ºπÑΓß∩ ñ½∩ »αÑñ«ΓóαáΘÑ¡¿∩
- »α«¼ÑªπΓ«τ¡«ú« »ÑαÑ»«½¡Ñ¡¿∩ »α¿ «íαáí«Γ¬Ñ µÑ½δσ «»Ñαá¡ñ«ó.
-
- æ¼.Γá¬ªÑ CDBL
- CINT
- CLNG
-
- Åα¿¼Ñα: print csng (&HFFF),csng(12345.1234),csng(&HF000)
-
-
-
- öπ¡¬µ¿∩ CSRLIN
- --------------
-
- öπ¡¬µ¿∩ CSRLIN ó«ºóαáΘáÑΓ ΓѬπΘÑÑ »«½«ªÑ¡¿Ñ ¬παß«αá »«
- ------- óÑαΓ¿¬á½¿ (¡«¼Ñα α∩ñá)
-
- æ¿¡Γá¬ß¿ß y=csrlin
- ---------
-
- çá¼Ñτá¡¿∩ CSRLIN ó«ºóαáΘáÑΓ µÑ½«Ñ «Γ 1 ñ« 25,
- --------- »αÑñßΓáó½∩εΘÑÑ ΓѬπΘÑÑ »«½«ªÑ¡¿Ñ »« óÑαΓ¿¬á½¿
- (¡«¼Ñα α∩ñá) ¬παß«αá. ä½∩ ßτ¿Γδóá¡¿∩ ¬παß«α¡«ú« »«½«ªÑ¡¿∩ »«
- ú«α¿º«¡Γ὿ (¡«¼Ñα ¬«½«¡¬¿) ¿ß»«½∞ºπ⌐ΓÑ Σπ¡¬µ¿ε POS.
- Ä»ÑαáΓ«α«¼ LOCATE ¬παß«α »ÑαѼÑΘáÑΓß∩ ó ߻ѵ¿Σ¿µ¿απѼδÑ
- ßΓப㠨 ¬«½«¡¬π.
-
- æ¼.Γá¬ªÑ LOCATE
- POS
-
- Åα¿¼Ñα:
- 諽=pos 'ß«σαá¡¿Γ∞ α∩ñ ¬παß«αá
- É∩ñ=csrlin 'ß«σαá¡¿Γ∞ ¬«½«¡¬π ¬παß«αá
- cls
- locate É∩ñ,諽 'ó«ßßΓá¡áó½¿óáÑΓß∩ ¬παß«α¡á∩ »«º¿µ¿∩
- end
-
-
-
- öπ¡¬µ¿¿ CVI,CVL,CVS,CVD
- -----------------------
-
- öπ¡¬µ¿¿ CVI,CVL,CVS,CVD »αÑ«íαáºπεΓ ßΓα«τ¡δÑ ñá¡¡δÑ,
- ßτ¿ΓδóáѼδÑ ¿º »α«¿ºó«½∞¡δσ Σá⌐½«ó,
- ó τ¿ß½«óπε Σ«α¼π.
-
- æ¿¡Γá¬ß¿ß y%=cvi(2íá⌐Γ«óá∩ ßΓ᫬á)
- --------- y&=cvl(4 íá⌐Γ«óá∩ ßΓ᫬á)
- y!=cvs(4 íá⌐Γ«óá∩ ßΓ᫬á)
- y#=cvd(8 íá⌐Γ«óá∩ ßΓ᫬á)
-
- çá¼Ñτá¡¿∩ CVI »αÑ«íαáºπÑΓ 2-íá⌐Γ«óπε ßΓ᫬π ó µÑ½«Ñ.
- --------- CVL »αÑ«íαáºπÑΓ 4-íá⌐Γ«óπε ßΓ᫬π ó ñ½¿¡¡«Ñ
- µÑ½«Ñ. CVS »αÑ«íαáºπÑΓ 4-íá⌐Γ«óπε ßΓ᫬π ó º¡áτÑ¡¿Ñ Ññ¿¡¿τ¡«⌐
- Γ«τ¡«ßΓ¿. CVD »αÑ«íαáºπÑΓ 8-íá⌐Γ«óπε ßΓ᫬π ó º¡áτÑ¡¿Ñ ñó«⌐¡«⌐
- Γ«τ¡«ßΓ¿. Åα¿¼Ñ¡¿Γѽ∞¡« ¬ ß»«ß«íπ «íαáí«Γ¬¿ Æπαí«-üÑ⌐ß¿¬«¼ »α«¿º-
- ó«½∞¡δσ Σá⌐½«ó, τ¿ß½«óδÑ º¡áτÑ¡¿∩ ñ«½ª¡δ »ÑαÑñ ¿σ ºá»¿ß∞ε ¡á ñ¿ß¬
- Γαá¡ß½¿α«óáΓ∞ß∩ ó ßΓ᫬π, á »α¿ ßτ¿Γδóá¡¿¿ Σá⌐½á - «íαáΓ¡« ó
- τ¿ß½á. ìÑ »πΓá⌐ΓÑ φΓ¿ Σπ¡¬µ¿¿ (»αÑñ¡áº¡áτÑ¡¡δÑ Γ«½∞¬« ñ½∩
- «íαáí«Γ¬¿ »α«¿ºó«½∞¡δσ Σá⌐½«ó ) ß Σπ¡¬µ¿Ñ⌐ VAL, ¬«Γ«αá∩ »α¿¡¿¼áÑΓ
- ßΓ᫬π óα«ñÑ "3.7" ¿ »αÑóαáΘáÑΓ ÑÑ ó τ¿ß½«.
-
- æ¼.Γá¬ªÑ MKD$
- MKI$
- MKL$
- MKS$
-
- Åα¿¼Ñα:
- '¥Γá »α«úαá¼¼á ß«ºñáÑΓ Σá⌐½ ñá¡¡δσ »α«¿ºó«½∞¡«ú« ñ«ßΓπ»á ¿
- ºá»¿ßδóáÑΓ ó ¡Ñú« ¡Ñ¬«Γ«αδÑ ñá¡¡δÑ. çáΓѼ φΓ¿ ñá¡¡δÑ ßτ¿ΓδóáεΓß∩
- «íαáΓ¡« ß »αÑ«íαẫó᡿Ѽ ó »α¿Ñ¼½Ñ¼πε Σ«α¼π ß ¿ß»«½∞º«ó᡿Ѽ
- «»¿ßá¡¡δσ óδΦÑ Σπ¡¬µ¿⌐
- '«Γ¬αδΓ∞ Σá⌐½ »α«¿ºó«½∞¡«ú« ñ«ßΓπ»á
- open "r",#1,"cvsld.dta",18
- field #1,2 as ûѽ«Ñ$,4 as 使¡¡«Ñûѽ«Ñ$,4 as àñ¿¡¿τ¡á∩Æ«τ¡«-
- ßΓ∞$,8 as äó«⌐¡á∩Æ«τ¡«ßΓ∞$
- îá¬ßûѽ«Ñ%=32767
- 'ºá»¿ßáΓ∞ ñá¡¡δÑ ó Σá⌐½,»αÑ«íαẫóáΓ∞ ¿σ ¿ ¡áº¡áτ¿Γ∞ ó íπΣÑα
- '»ÑαÑñ ºá»¿ß∞ε ó Σá⌐½ ñá¡¡δσ
- for i%=1 to 5
- lset ûѽ«Ñ$=mki$(i%)
- lset 使¡¡«Ñûѽ«Ñ$=mkl$(i%+clng(îá¬ßûѽ«Ñ%))
- lset àñ¿¡¿τ¡á∩Æ«τ¡«ßΓ∞$=mks$(csng(i%*csng(îá¬ßûѽ«Ñ%)))
- lset äó«⌐¡á∩Æ«τ¡«ßΓ∞$=mkd$(îá¬ßûѽ«Ñ%^i%)
- put #1,i%
- next i%
- for i%=1 to 5 'ßτ¿ΓáΓ∞ ñá¡¡δÑ ¿º Σá⌐½á
- get #1,i% '«Γ«íαếΓ∞ ¿σ ¡á φ¬αá¡Ñ
- print cvi(ûѽ«Ñ$),cvl(使¡¡«Ñûѽ«Ñ$),cvs(àñ¿¡¿τ¡á∩Æ«τ-
- ¡«ßΓ∞$),cvd(äó«⌐¡á∩Æ«τ¡«ßΓ∞$)
- next i%
- clise#1
- end
-