For Beginners & Professional Hackers

home *** CD-ROM | disk | FTP | other *** search

/ For Beginners & Professional Hackers / cd.iso / docum / tb1.doc / tb7.doc < prev next >

Wrap

Text File | 1989-07-30 | 22.7 KB | 524 lines

Ä»ÑαáΓ«α DEF SEG ----------------------------------------------------------------- ìáº¡áτÑ¡¿Ñ Ä»ÑαáΓ«α DEF SEG «»αÑñÑ½∩ÑΓ ßÑú¼Ñ¡Γ ñá¡¡δσ,¬«Γ«αδ⌐ íπñÑΓ ¿ß»«½∞º«óá¡ «»ÑαáΓ«αá¼¿ BLOAD, BSAVE, CALL, ABSOLUTE, PEEK ¿ POKE æ¿¡Γá¬ß¿ß DEF SEG ( =numeric expression) ( τ¿ß½Ñ¡¡«Ñ óδαáªÑ¡¿Ñ) è«¼¼Ñ¡Γáα¿⌐ τ¿ß½Ñ¡¡«Ñ óδαáªÑ¡¿Ñ ¼«ªÑΓ óáα∞¿α«óáΓ∞ß∩ «Γ 0 ñ« 65,535 DEF SEG «»αÑñÑ½∩ÑΓ ßÑú¼Ñ¡Γ »á¼∩Γ¿, ó ¬«Γ«αδ⌐ »«ß½ÑñπεΘ¿Ñ «»ÑαáΓ«αδ BLOAD, BSAVE, CALL, ABSOLUTE, PEEK ¿ POKE «»αÑñÑ½∩Γ ß¼ÑΘÑ¡¿Ñ. æÑú¼Ñ¡ »αÑñßΓáóñ½∩ÑΓ ß«í«⌐ áñαÑß¡πε ¬«¡ßΓαπ¬µ¿ε, ¿ß»«½∞ºπÑ¼πε »α«µÑßß«αá¼¿ ßÑ¼Ñ⌐ßΓóá Intel86. Åα«µÑßß«αδ ñ«½ª¡δ íδΓ∞ «»αÑñÑ½Ñ¡δ ñóπ¼∩ µÑ½δ¼¿ τ¿ß½á¼¿: ßÑú¼Ñ¡Γ«¼ ¿ ß¼ÑΘÑ¡¿Ñ¼ ó ßÑú¼Ñ¡ΓÑ. DEF SEG íÑº áαúπ¼Ñ¡Γá ó«ºóαáΘáÑΓ º¡áτÑ¡¿Ñ ßÑú¼Ñ¡Γá ¬ Ñú« ¡áτá½∞¡«¼π º¡áτÑ¡¿ε »« π¼«½τá¡¿ε. ÅÑαóδÑ 256 íá⌐Γ«ó ßÑú¼Ñ¡Γá »« π¼«½τá¡¿ε ß«ñÑαªáΓ ¿¡Σ«α¼áµ¿ε, ¿ß»«½∞ºπÑ¼πε ß¿ßΓÑ¼«⌐ »«ññÑαª¬¿ óδ»«½¡Ñ¡¿∩ óáΦÑ⌐ »α««úαá¼¼δ. Äñ¿¡ ¿¡ΓÑαÑß¡δ⌐ áñαÑß ¡áσ«ñ¿Γß∩ ó ß¼ÑΘÑ¡¿¿ &HF4E ó ñá¡¡«¼ ßÑú¼Ñ¡ΓÑ. ç¡áτÑ¡¿∩ POKE ó φΓ«¼ áñαÑßÑ ¿º¼Ñ¡∩εΓ µóÑΓ ΓÑ¬ßΓá ¡á φ¬αá¡Ñ ó ½εí«¼ úαáΣ¿τÑß¬«¼ αÑª¿¼Ñ. ûóÑΓ ºáó¿ß¿Γ «Γ óáΦÑú« αÑª¿¼á. àΘÑ «ñ¿¡ »«½Ñº¡δ⌐ áñαÑß ó ßÑú¼Ñ¡ΓÑ ñá¡¡δσ »« π¼«½τá¡¿ε ¡áσ«ñ¿Γß∩ ó ∩τÑ⌐¬Ñ 0 ¿ 1. ¥Γ« ß½«ó« ß«ñÑαª¿Γ ßÑú¼Ñ¡Γ ß¿¼ó«½«ó ÆôÉüÄ üàëæêèá. æ¼. Γá¬ªÑ COLOR Åα¿¼Ñα 'äá¡¡á∩ »α«úαá¼¼á ºá»«½¡∩ÑΓ φ¬αá¡ íπ¬óá¼¿ Ç, óδ»«½¡∩∩ '«»ÑαáΓ«α POKE ¡Ñ»«ßαÑñßΓóÑ¡¡« ó ó¿ñÑ« »á¼∩Γ¿ 'Ä»αÑñÑ½¿Γ∞ Σπ¡¬µ¿ε, ¬«Γ«αá∩ «»αÑñÑ½∩ÑΓ áñαÑß ó¿ñÑ« '»á¼∩Γ¿ '»«½πτ¿Γ∞ Γ¿» ó¿ñÑ« ¡áí«α¡«⌐ »á¡Ñ½¿ «Γ »«½∞º«óáΓÑ½∩ DEF FN VideoScreen% LOCAL Screen Type% '«íΩ∩ó¿Γ∞ ½«¬á½∞¡πε »ÑαÑ¼Ñ¡¡πε PRINT "Please enter the type of screen yon are using". INPUT "[ 1 for Mono, 2 for Color]:"; Screen Type% SELECT CASE Screen Type% `¡áº¡áτ¿Γ∞ αÑºπ½∞ΓáΓ Σπ¡¬µ¿¿ CASE 1 '¡á íáºÑ óó«ñá »«½∞º«óáΓÑ½∩ '¼«¡«σα«¼¡á∩ ∩τÑ⌐¬á ó¿ñÑ« »á¼∩Γ¿ FN VideoScreen% = &HB000 CASE 2 '∩τÑ⌐¬á µóÑΓá ó¿ñÑ« »á¼∩Γ¿ FN VideoScreen% = &HB800 END SELECT END DEF 'ºá¬«¡τ¿Γ∞ Σπ¡¬µ¿ε '«»αÑñÑ½¿Γ∞ ßÑú¼Ñ¡Γ ñ½∩ POKE ¿ BSAVE DEF SEG = FN VideoScreen% FOR I% = 0 to 4000 STEP 2 POKE I% , ASC("A") 'ºá»«½¡¿Γ∞ φ¬αá¡ ß¿¼ó«½á¼¿ Ç NEXT I% END Ä»ÑαáΓ«α DELAY ----------------------------------------------------------------- Ä»ÑαáΓ«α DELAY óßΓáó½∩ÑΓ »áπºπ. æ¿¡Γá¬ß¿ß DELAY seconds è«¼¼Ñ¡Γáα¿⌐ seconds - φΓ« τ¿ß½Ñ¡¡«Ñ óδαáªÑ¡¿Ñ, π¬áºδóáεΘÑÑ ¬«½¿- τÑßΓó« ßÑ¬π¡ñ »áπºδ ÆôÉüÄ üàëæêèá »ÑαÑñ óδ»«½¡Ñ¡¿Ñ¼ ß½ÑñπεΘÑú« «»ÑαáΓ«αá. Åα¿¼Ñτá¡¿Ñ. Ä»ÑαáΓ«α DELAY »α¿¡¿¼áÑΓ áαúπ¼Ñ¡Γδ ß »½áóáεΘÑ⌐ ºá»∩Γ«⌐, ¼«úπΓ íδΓ∞ π¬áºá¡δ Γá¬ªÑ ñα«í¡δÑ ºáñÑαª¬¿ ß αáºαÑΦÑ¡¿Ñ¼ »α¿í½¿º¿ΓÑ½∞¡« ó 0,054 ßÑ¬π¡ñδ. êß»«½∞º«óá¡¿Ñ «»ÑαáΓ«αá DELAY , á ¡Ñ ¡¿¬τÑ¼¡δσ »α«úαá¼¼¡δσ »ÑΓÑ½∞, ñáÑΓ ¡á¼ »α«úαá¼¼δ, ¬«Γ«αδÑ »αÑ¬αáß¡« αáí«ΓáεΓ ¡á ¼áΦ¿¡áσ ß αáº½¿τ¡«⌐ ß¬«α«ßΓ∞ε «íαáí«Γ¬¿ (Γ« ÑßΓ∞, ß «ß¡«óá¡¿Ñ¼ 8088 »α«Γ¿ó 80286 ¿½¿ 6 îúµ »α«Γ¿ó 8 îúµ). Åα¿¼Ñα PRINT "Press any key to terminate the programm ..." WHILE NOT INSTAT 'ñ« ¡áªáΓ¿∩ ¬½áó¿Φ¿ LOCATE 10,30 PRINT TIMES '»«¬áºáΓ∞ óαÑ¼∩ DELAY 5 'ºáñÑαªáΓ∞ ¡á 5 ßÑ¬π¡ñ WEND END 'ºá¬«¡τ¿Γ∞ »α«úαá¼¼π Ä»ÑαáΓ«α DIM ----------------------------------------------------------------- ìáº¡áτÑ¡¿Ñ Ä»ÑαáΓ«α DIM «»¿ßδóáÑΓ ¼áßß¿óδ. æ¿¡Γá¬ß¿ß DIM {STATIC/DINAMIC} var (subscripts)[,var(subscripts)]... DIM {STATIC/DINAMIC} var(min:max[,min:max]...)[,var[,min:max]]... è«¼¼Ñ¡Γáα¿⌐ var - φΓ« ¿ñÑ¡Γ¿Σ¿¬áΓ«α, ¿ß»«½∞ºπÑ¼δ⌐ ñ½∩ ¼áßß¿óá. subskripts - φΓ« «úαá¡¿τÑ¡¡δ⌐ ºá»∩Γδ¼¿ ß»¿ß«¬ ¿º «ñ¡«ú« ¿½¿ í«½ÑÑ µÑ½«τ¿ß½Ñ¡¡δσ óδαáªÑ¡¿⌐, «»αÑñÑ½∩- εΘ¿σ αáº¼Ñαδ ¼áßß¿óá. Ä»ÑαáΓ«α DIM «»¿ßδóáÑΓ »ÑαÑ¼Ñ¡¡δÑ ¼áßß¿óá ¿ «»αÑ- ñÑ½∩ÑΓ ¿σ αáº¼Ñα ¿ «íΩÑ¼ úáíáα¿Γ¡«ú« »«½∩. é αáßΦ¿αÑ¡¿¿ ß¿¡Γá¬ß¿ßá ê¡ΓÑα»α¿ΓáΓ«αá üàëæêèá, ÆôÉüÄ üàëæêè ñáÑΓ óá¼ ó«º¼«ª¡«ßΓ∞ «»αÑñÑ½¿Γ∞ ñ¿á»áº«¡δ º¡áτÑ¡¿⌐ ßπí¿¡ñÑ¬ßá (min:max), á ¡Ñ Γ«½∞¬« Ñú« óÑασ¡εε úαá¡¿µπ. ìá»α¿¼Ñα: DIM b(50:60) ß«ºñáÑΓ ¼áßß¿ó 11 φ½Ñ¼Ñ¡Γ«ó ß «ñ¿¡áα¡«⌐ Γ«τ¡«ßΓ∞ε, »«ñ ¡«¼Ñαá¼¿ «Γ 50 ñ« 60. Ä»ÑαáΓ«α DIM c(50:60,25:45) ß«ºñáÑΓ ¼áßß¿ó ß ñó«⌐¡δ¼ úáíáα¿Γ¡δ¼ »«½Ñ¼ ß «íΘ¿¼ ¬«½¿τÑßΓó«¼ φ½Ñ¼Ñ¡Γ«ó 11*21. æ¿¡Γá¬ß¿ß ñ¿á»áº«¡á º¡áτÑ¡¿⌐ ¼«ªÑΓ íδΓ∞ αáßΦ¿αÑ¡ ñ½∩ ¼¡«ú«¼Ñα¡δσ ¼áßß¿ó«ó: DIM binths (1800:1899,1:12) æó∩ºá¡¡δ⌐ «»ÑαáΓ«α OPTION BASE ¼«ªÑΓ Γá¬ªÑ ¿ß»«½∞- º«óáΓ∞ß∩ ñ½∩ «»αÑñÑ½Ñ¡¿∩ ßá¼«ú« ¼½áñΦÑú« φ½Ñ¼Ñ¡Γá ó ¼áßß¿óÑ, ¡Ñß¼«Γα∩ ¡á Γ« τΓ« ¼Ñσá¡¿º¼ ñ¿á»áº«¡á í«½ÑÑ ¼«Θ¡δ⌐ ¿ Ñ¼π «ΓñáÑΓß∩ í«½∞ΦÑÑ »αÑñ»«τΓÑ¡¿Ñ. Åα¿ »Ñαó«¼ ºá»πß¬Ñ »α«úαá¼¼δ ÆôÉüÄ üàëæêè πßΓá¡áó- ½¿óáÑΓ ¬áªñδ⌐ φ½Ñ¼Ñ¡Γ τ¿ß½Ñ¡¡«ú« ¼áßß¿óá ¡á 0, á ß¿¼ó«½∞¡δÑ ¼áßß¿óδ ¡á ¡π½Ñóπε ßΓα«¬π (ñ½¿¡á = 0). é Γá¬«Ñ ªÑ ß«ßΓ«∩¡¿Ñ »α¿ó«ñ∩Γß∩ τ¿ß½Ñ¡¡¡δÑ ¿ ß¿¼ó«½∞- ¡δÑ ¼áßß¿óδ, ¬«úñá »α«úαá¼¼á ºá»πß¬áÑΓß∩ ó¡«ó∞ ß »«¼«Θ∞ε «»ÑαáΓ«αá RUN. àß½¿ »ÑαÑ¼Ñ¡¡á∩ ¼áßß¿óá ¿ß»«½∞ºπÑΓß∩ íÑº »αÑñΦÑ- ßΓóπεΘÑú« «»ÑαáΓ«αá DIM, ¼á¬ß¿¼á½∞¡«Ñ º¡áτÑ¡¿Ñ Ñú« ßπí¿¡ñÑ¬ß«ó »« π¼«½τá¡¿ε íπñÑΓ = 10 , ¬á¬ íπñΓ« óδ ó¬½ετ¿½¿ (10) ó «»ÑαáΓ«α DIM. ÉÑ¬«¼Ñ¡ñπÑ¼ «ñ¡á¬«, «»¿ßδóáΓ∞ ¬áªñδ⌐ ¼áßß¿ó ó ∩ó¡«¼ ó¿ñÑ. î¿¡¿¼á½∞¡«Ñ º¡áτÑ¡¿Ñ, ¬«Γ«α«Ñ ¼«ª¡« ¿ß»«½∞º«óáΓ∞ ó ¬áτÑßΓóÑ ßπí¿¡ñÑ¬ßá ¼áßß¿óá - φΓ« 0, Ñß½¿ «¡« ¡Ñ íδ½« «»¿ßá¡« ¿¡áτÑ ß »«¼«Θ∞ε «»ÑαáΓ«αá OPTION BASE. ìÑ«í∩ºáΓÑ½∞¡δÑ áαúπ¼Ñ¡Γδ STATIC ¿ DYNAMIC ¬«¡Γα«- ½¿απεΓ ß««ΓóÑΓßΓóÑ¡¡« íπñÑΓ ½¿ »α«ßΓαá¡ßΓó« ñ½∩ ¼áß- ß¿óá óδñÑ½Ñ¡« ºáαá¡ÑÑ ¬«¼»¿½∩Γ«α«¼ ¿½¿ íπñÑΓ αáß»αÑ- ñÑ½∩Γ∞ß∩ ñ¿¡á¼¿τÑß¬¿. Å« π¼«½τá¡¿ε óδ»«½¡∩ÑΓß∩ ßΓáΓ¿- τÑß¬«Ñ αáß»αÑñÑ½Ñ¡¿Ñ, ¬«Γ«α«Ñ ñÑ⌐ßΓóπÑΓ ñ« óóÑñÑ¡¿∩ ¼ÑΓá«»ÑαáΓ«αá $DYNAMIC, ó óδαáªÑ¡¿∩σ ¿ß»«½∞ºπεΘ¿σ «»ÑαáΓ«αδ «»¿ßá¡¿∩ ¼áßß¿ó«ó (DIMension), ¿¼∩ ¼áßß¿óá »«∩ó½∩ÑΓß∩ ó ñóπσ «»ÑαáΓ«αáσ DIM, ¿½¿ ¼áßß¿ó «íΩ∩ó½∩- ÑΓß∩ ½«¬á½∞¡δ¼ »« «Γ¡«ΦÑ¡¿ε ¬ »α«µÑñπαÑ ½¿í« Σπ¡¬µ¿¿. ÅÑαÑ¬½ετáΓÑ½∞ »α«óÑα¬¿ úαá¡¿µ, ñ«ßΓπ»¡δ⌐ τÑαÑº ¼Ñ- ¡ε Options, ºáßΓáó½∩ÑΓ ¬«¼»¿½∩Γ«α ß«ºñáóáΓ∞ ¬«ñ, ¬«- Γ«αδ⌐ »α«óÑα∩ÑΓ ßπí¿¡ñÑ¬ßδ ¡á ß««ΓóÑΓßΓó¿Ñ, ¬«úñá ¿ñÑΓ ßßδ½¬á ¡á ¼áßß¿ó. Éáº½¿τ¿∩ ÆôÉüÄ üàëæêè »«ºó«½∩ÑΓ »α«úαá¼¼¿ßΓπ «»¿ßáΓ∞ ¿ ¡áτá½∞- ¡δ⌐, ¿ ¬«¡Ñτ¡δ⌐ ¿¡ñÑ¬ßδ ¼áßß¿óá. ê¡ΓÑα»α¿ΓáΓ«α üàëæêè αáº¼ÑΘáÑΓ óßÑ ¼áßß¿óδ ñ¿¡á¼¿τÑß¬¿, á ÆôÉüÄ üàëæêè »«- »δΓáÑΓß∩ αáº¼ÑßΓ¿Γ∞ ¼áßß¿óδ ßΓáΓ¿τÑß¬¿ (ó« óαÑ¼∩ ¬«¼»¿½∩µ¿¿), τΓ« ßñÑ½áÑΓ ¿σ í«½ÑÑ íδßΓαδ¼¿. éδ ¼«ªÑΓÑ ºá¼Ñ¡¿Γ∞ Γ¿» αáº¼ÑΘÑ¡¿∩, ºáñáó Ñú« ó ∩ó¡«¼ ó¿ñÑ. æ¼. Γá¬ªÑ $DYNAMIC FRE $STATIC Åα¿¼Ñα DIM «íΩ∩ó½∩ÑΓ ¼áßß¿ó '¬«¡ßΓá¡Γá ß ¿¼Ñ¡Ñ¼, «»αÑñÑ½∩εΘá∩ óÑασ¡εε úαá¡¿µπ ¼áßß¿óá %MaxDim = 20 '¬«¡ßΓá¡Γá ß ¿¼Ñ¡Ñ¼, «»αÑñÑ½∩εΘá∩ ¡¿ª¡εε úαá¡¿µπ ¼áßß¿óá %MinDim = 1 'αáº¼ÑßΓ¿Γ∞ ¼áßß¿ó %MaxDim µÑ½«τ¿ß½Ñ¡¡δσ φ½Ñ¼Ñ¡Γ«ó DIM Array%(%MinDim:%MaxDim) `¿¡¿µ¿á½¿º¿α«óá¿Γ∞ ¼áßß¿ó ß« ß½πτá⌐¡δ¼¿ µ¿Σαá¼¿ FOR Count I% = %MinDim to %MaxDim Array%(Count I%) = INT(RND*10) NEXT Count I% END Ä»ÑαáΓ«α DO/LOOP ----------------------------------------------------------------- ìáº¡áτÑ¡¿Ñ Ä»ÑαáΓ«α DO/LOOP »αÑñßΓáó½∩ÑΓ ß«í«⌐ µ¿¬½ ß ΓÑßΓ«¼ ñ½∩ TRUE ¿½¿ FALSE ¡á óÑασ¡Ñ⌐ ¿½¿/¿ ó ¡¿ª¡Ñ⌐ τáßΓ¿ µ¿¬½á. æ¿¡Γá¬ß¿ß DO[{WHILE/UNTIL}expression] . . statements [EXIT LOOP] . [LOOP [WEND][{WHILE/UNTIL} expression] è«¼¼Ñ¡Γáα¿⌐ expression - τ¿ß½Ñ¡¡«Ñ óδαáªÑ¡¿Ñ, ó ¬«Γ«α«¼ º¡áτÑ- ¡¿∩, ¡Ñ αáó¡δÑ ¡π½ε, »αÑñßΓáó½∩εΓ TRUE (êæÆêìÇ), á ¡π½ÑóδÑ º¡áτÑ¡¿∩ - FALSE (ïÄå£). DO ¿ LOOP ∩ó½∩εΓß∩ »«ñσ«ñ∩Θ¿¼¿ »«ßΓα«¿ΓÑ½∩¼¿ µ¿¬- ½«ó ñ½∩ óßÑσ ß½πτáÑó. Ä¡¿ »«ºó«½∩εΓ óá¼ ß«ºñáóáΓ∞ µ¿¬½δ ß ΓÑßΓá¼¿ ñ½∩ ΓÑα¼¿¡áµ¿«¡¡δσ πß½«ó¿⌐ ó óÑασ¡Ñ⌐ τáßΓ¿ µ¿¬½á, ó ¡¿ºπ, ó «íΘ¿σ ¼ÑßΓáσ, ¿½¿ ¡¿ ó «ñ¡«¼ ¿º ¡¿σ. Ä»ÑαáΓ«α DO ñ«½ªÑ¡ óßÑúñá íδΓ∞ ß»áαÑ¡¡δ¼ ß «»ÑαáΓ«α«¼ LOOP ó ¡¿ª¡Ñ⌐ τáßΓ¿ µ¿¬½á. ìÑπñáτ¡á∩ »«»δΓ¬á ß»áα¿Γ∞ DO ¿ LOOP »α¿óÑñÑΓ ¬ «Φ¿í¬á¼ ó« óαÑ¼∩ ¬«¼»¿½∩µ¿¿. ä½∩ ñ«»«½¡Ñ¡¿∩ ΓÑßΓá ¬ DO/LOOP ¿ß»«½∞ºπ⌐ΓÑ WHILE ¿ UNTIL. êß»«½∞ºπ⌐ΓÑ αÑºÑαó¡«Ñ ß½«ó« WHILE, Ñß½¿ óá¼ ¡Ñ«íσ«ñ¿¼« »«óΓ«α¿Γ∞ µ¿¬½ ó ß½πτáÑ, Ñß½¿ óδαáªÑ¡¿Ñ - φΓ« TRUE, á Ñß½¿ óδαáªÑ¡¿Ñ - FALSE - ¿ß»«½∞ºπ⌐ΓÑ ΓÑα¼¿¡á½∞¡«Ñ ß½«ó«. UNTIL óδºδóáÑΓ «íαáΓ¡δ⌐ φΣΣÑ¬Γ; Γ« ÑßΓ∞ µ¿¬½ íπñÑΓ ºá¬«¡τÑ¡, Ñß½¿ πß½«ó¿Ñ - TRUE ¿ »«óΓ«αÑ¡ ó ß½πτáÑ FALSE . ìá»α¿¼Ñα: DO WHIOLE A = 13 . . statements . LOOP óδ»«½¡∩ÑΓ «»ÑαáΓ«αδ ¼Ñªñπ DO ¿ LOOP ñ« a = 13. é ½εí«⌐ Γ«τ¬Ñ ó DO/LOOP óδ ¼«ªÑΓÑ ó¬½ετ¿Γ∞ «»Ñαá-Γ«α EXIT/ LOOP. ¥Γ« φ¬ó¿óá½Ñ¡Γ¡« óδ»«½¡Ñ¡¿ε ¬«¼á¡ñδ GOTO ó «Γ¡«ΦÑ¡¿¿ «»ÑαáΓ«αá »«ß½Ñ óδσ«ñá ¿º LOOD. (Å«ñα«í¡ÑÑ «í φΓ«¼ : ß¼. «»ÑαáΓ«α EXIT). çá¼ÑΓ∞ΓÑ, τΓ« φΓ«Γ DO/LOOD: DO WHILE a < b . . . LOOP ¿¼ÑÑΓ Γá¬«⌐ ªÑ φΣΣÑ¬Γ ¬á¬ φΓ«Γ µ¿¬½ WHILE/WEND: WHILE a < b . . . WEND ìÑß¼«Γα∩ ¡á Γ«, τΓ« ¬«¼»¿½∩Γ«α ¡Ñ ºáí«Γ¿Γß∩ « Γá¬¿σ óÑΘáσ, ºáαÑºÑαó¿απ⌐ΓÑ ¼ÑßΓ« ñ½∩ «»ÑαáΓ«α«ó ¼Ñªñπ DO ¿ LOOP. ¥Γ« »«¼«ªÑΓ »α«∩ß¡¿Γ∞ ßΓαπ¬Γπαπ µ¿¬½á. Åα¿¼Ñα 'äá¡¡á∩ »α«úαá¼¼á ªñÑΓ ¡áªáΓ¿∩ ¬½áó¿Φ¿ DO LOOP UNTIL INSTAT END Ä»ÑαáΓ«α DRAW ----------------------------------------------------------------- ìáº¡áτÑ¡¿Ñ Ä»ÑαáΓ«α DRAW »α«¿ºó«ñ¿Γ »«ßΓα«Ñ¡¿∩ ¡á úαáΣ¿τÑß¬«¼ φ¬αá¡Ñ æ¿¡Γá¬ß¿ß DRAW string expression. ß¿¼ó«ñ∞¡«Ñ óδαáªÑ¡¿Ñ è«¼¼Ñ¡Γáα¿⌐ Ä»ÑαáΓ«α DRAW óδτÑατ¿óáÑΓ «íΩÑ¬Γδ ¡á úαáΣ¿τÑß¬«¼ φ¬αá¡Ñ ó ß««ΓóÑΓßΓó¿¿ ß ¬«¼á¡ñá¼¿, óßΓáó½Ñ¡¡δ¼¿ ó ß¿¼ó«½∞¡δ⌐ áαúπ¼Ñ¡Γ, ¬«Γ«αδ⌐ »ÑαÑσ«ñ¿Γ ¬ ñá¡¡«¼π «»ÑαáΓ«απ. öá¬Γ¿τÑß¬¿ string expression - φΓ« »α«ú- αá¼¼á ñ½∩ "∩ºδ¬á" ¿¡ΓÑα»ÑαáΓ«αá DRAW. DRAW óδ»«½¡∩ÑΓ ¬«¼á¡ñ¡δÑ ßΓα«¬¿ ¿ ß«ºñáÑΓ ¼πºδ¬π. ----------------------------------------------------------------- äàëæÆéêà èÄîÇìä¢ ----------------------------------------------------------------- Un äó¿ªÑ¡¿Ñ éóÑασ Dn äó¿ªÑ¡¿Ñ é¡¿º Ln äó¿ªÑ¡¿Ñ ìá½Ñó« Rn äó¿ªÑ¡¿Ñ ìá»αáδó« En äó¿ªÑ¡¿Ñ éóÑασ ¿ ó»αáó« Fn äó¿ªÑ¡¿Ñ é¡¿º ¿ ó»αáó« Gn äó¿ªÑ¡¿Ñ é¡¿º ¿ ó½Ñó« Hn äó¿ªÑ¡¿Ñ éóÑασ ¿ ó½Ñó« ----------------------------------------------------------------- n - φΓ« αáßßΓ«∩¡¿Ñ, ¬«Γ«α«Ñ ¡Ñ«íσ«ñ¿¼« »α«⌐Γ¿ (ß¼.Sn, Σá¬Γ«α ¼áßΦΓáí¿α«óá¡¿∩, ß½ÑñπεΘ¿⌐ ºá ¡¿¼). äó¿ªÑ¡¿Ñ óßÑúñá ¡áτ¿¡áÑΓß∩ ¡á LPR ¿ ß««ΓóÑΓßΓóÑ¡¡« »«ñßΓαá¿óá- ÑΓ LPR. (LPR «º¡áτáÑΓ "»«ß½Ññ¡ÑÑ π¬áºá¡¿Ñ Γ«τ¬¿", ¿ «Γ¡«ß∩Γß∩ ¬ »«ß½Ññ¡Ñ¼π π¬áºá¡¿ε Γ«τ¬¿ «»αÑñÑ½Ñ¡¡δσ úαáΣ«»«ßΓα«¿ΓÑ½∞¡δσ «»ÑαáΓ«α«ó. ü«½ÑÑ »«ñα«í¡« «í φΓ«¼ ß¼. αáºñÑ½ úαáΣ¿¬¿ ó ú½áóÑ 4). ìá»α¿¼Ñα: DRAW "D10R5" »α«¿ºó«ñ¿Γ »«ßΓα«Ñ¡¿Ñ Σ«α¼δ L (ó¡¿º 10, ó»αáó« 5), ¡áτ¿¡áÑΓß∩ ß LPR. Ä¡ ∩ó½∩ÑΓ LPR ¡á »«ß½Ññ¡¿⌐ φ½Ñ¼Ñ¡Γ ¿º«íαáªÑ¡¿∩ (αáßΓα«óδ⌐ φ½Ñ¼Ñ¡Γ). M x,y »ÑαÑ¼ÑΘáÑΓß∩ ¡á ¬««αñ¿¡áΓπ x,y. àß½¿ X ß«»α«ó«ªñáÑΓß∩ óÑñπΘ¿¼ »½εß«¼ ¿½¿ ¼¿¡πß«¼, »ÑαÑ¼ÑΘÑ¡¿Ñ íπñÑΓ «Γ¡«ß¿ΓÑ½∞¡δ¼, ó »α«Γ¿ó¡«¼ ß½πτáÑ «¡« íπñÑΓ áíß«½εΓ¡δ¼. ìá»α¿¼Ñα: DRAW "D10 R5 M30,50" α¿ßπÑΓ L ¿º »αÑñδñπΘÑú«, á ºáΓÑ¼ ºáóÑαΦáÑΓ »«ßΓα«Ñ¡¿Ñ ßΓα«¬«⌐ ó αáßΓα«óδ⌐ φ½Ñ¼Ñ¡Γ (30,50). æ½ÑñπΘ¿Ñ »αÑΣ¿¬ßδ ¼«úπΓ »αÑñΦÑßΓó«óáΓ∞ ½εí«⌐ ¬«¼á¡ñÑ »ÑαÑ¼ÑΘÑ¡¿∩: B »ÑαÑ¼ÑΘáÑΓß∩, ¡« ¡Ñ »α«¿ºó«ñ¿Γ »«ßΓα«Ñ¡¿∩; N »ÑαÑ¼ÑΘáÑΓß∩, ¡« ó«ºóαáΘáÑΓß∩ »«ß½Ñ «¬«¡τá¡¿∩ ó »Ñαó«¡áτá½∞¡«Ñ »«½«ªÑ¡¿Ñ. ìá»α¿¼Ñα: DRAW "BM 180,20 NU10 ND10 NL10 NR10" »ÑαÑ¼ÑΘáÑΓß∩ íÑº »«ßΓα«Ñ¡¿∩ ¬ αáßΓα«ó«¼π φ½Ñ¼Ñ¡Γπ (180,20), ºáΓÑ¼ α¿ßπÑΓ º¡á¬ »½εßá. äαπú¿Ñ ¬«¼á¡ñδ. ---------------- An πßΓá¡áó½¿óáÑΓ πú«½ n. ç¡áτÑ¡¿Ñ n ¼«ªÑΓ óáα∞¿α«óáΓ∞ß∩ «Γ 0 ñ« 3, úñÑ 0 αáó¡∩ÑΓß∩ 0 úαáñπß«ó, 1 αáó¡∩ÑΓß∩ 90 úαáñπß«ó, 2 = 180 úαáñπßá¼ ¿ 3 = 270 úαáñπßá¼. TAn »«ó«αáτ¿óáÑΓ πú«½ n. ç¡áτÑ¡¿Ñ n óáα∞¿απÑΓß∩ ó ñ¿á»áº«¡Ñ «Γ -360 ñ« +360 úαáñπß«ó. àß½¿ n ¿¼ÑÑΓ »«½«ª¿ΓÑ½∞¡«Ñ º¡áτÑ¡¿Ñ, πú«½ óαáΘáÑΓß∩ »α«Γ¿ó τáß«ó«⌐ ßΓαÑ½¬¿. àß½¿ «¡« «Γα¿µáΓÑ½∞¡«Ñ - »« τáß«ó«⌐ ßΓαÑ½¬Ñ. ç¡áτÑ¡¿∩ ó¡Ñ ñ¿á»áº«¡á ñ«»πßΓ¿¼δσ óÑ½¿τ¿¡ óδºδóáεΓ «Φ¿í¬π óδ»«½¡Ñ¡¿∩ 5, ¡Ñ»αáóÑ½∞¡δ⌐ óδº«ó Σπ¡¬µ¿¿. çá¼ÑΓ∞ΓÑ, τΓ« TAn ¡Ñ ¬«¼π½∩Γ¿ó¡δ⌐. Cn α¿ßπÑΓ µóÑΓ¡«Ñ n. Åα«óÑα∞ΓÑ «»ÑαáΓ«α PALETTE ¡á ñ¿á»áº«¡ n ó ¬áªñ«¼ αÑª¿¼Ñ ñ¿ß»½Ñ∩ µóÑΓ »« π¼«½τá¡¿ε - ßá¼δ⌐ óδß«¬¿⌐ ñ«»πßΓ¿¼δ⌐ áΓα¿íπΓ. Sn πßΓá¡áó½¿óáÑΓ ¼áßΦΓáí¡δ⌐ Σá¬Γ«α ¡á n/4, úñÑ n óáα∞¿απÑΓß∩ «Γ 1 ñ« 255. ìá»α¿¼Ñα, Ñß½¿ n = 8, ¼áßΦΓáí¡δ⌐ Σá¬Γ«α = 2. Ä»ÑαáΓ«α DRAW πóÑ½¿τ¿óáÑΓ ¼áßΦΓáí¡δ⌐ Σá¬Γ«α »«ßαÑñßΓó«¼ áαúπ¼Ñ¡Γ«ó ¡á O,D,L,R,E,F,G,H ¿ αÑ½∩Γ¿ó¡δÑ ¬«¼á¡ñδ î ñ½∩ «»αÑñÑ½Ñ¡¿∩ «¬«¡τáΓÑ½∞¡δσ αáº¼Ñα«ó «íΩÑ¬Γ«ó. Å« π¼«½τá¡¿ε ñ½∩ n ÑßΓ∞ 4, ºá¬á¡τ¿óδáÑΓß∩ Σá¬Γ«α«¼ Ññ¿¡«ú« ¼áßΦΓáí¿α«óá¡¿∩ (Γ« ÑßΓ∞ «ΓßπΓßó¿Ñ¼ ¼áßΦΓáí¿α«óá¡¿∩. Çß»Ñ¬Γ¡«Ñ ß««Γ¡«ΦÑ¡¿Ñ ¿ß»«½∞ºπÑ¼«ú« óá¼¿ ñ¿ß»½Ñ∩ «»αÑñÑ½∩ÑΓ «Γ¡«ΦÑ¡¿Ñ ¼Ñªñπ X ¿ Y. ìá ¿ñÑá½∞¡«¼ (¡ÑßπΘÑßΓóπεΘÑ¼) ñ¿ß»½ÑÑ ß áß»Ñ¬Γ¡δ¼ ß««Γ¡«ΦÑ¡¿Ñ¼ 1/1, »π¡¬Γ¿α¡á∩ ½¿¡¿∩ X ¿¼ÑÑΓ Γá¬πεªÑ ñ½¿¡π, ¬á¬ ¿ Y. Äñ¡á¬« ñ¿ß»½Ñ¿ ¬«¼»∞εΓÑα«ó êüî ¿¼ÑεΓ ß½ÑñπεΘ¿Ñ áß»Ñ¬Γ¡δÑ ß««Γ¡«ΦÑ¡¿∩: --------------------------------------------------------------- î«¡¿Γ«α/Çñá»ΓÑα ¥¬αá¡ 1 ¥¬αá¡ 2 ¥¬αá¡ 7/8/9 ¥¬αá¡ 10 --------------------------------------------------------------- ûóÑΓ 5/6 5/12 N/A N/A ôß«óÑαΦÑ¡ßΓó«óá¡¡δ⌐ 5/6 5/12 8.76/12 N/A ôß«óÑαΦ. î«¡« N/A N/A N/A 9.52/12 --------------------------------------------------------------- X VARPTR$ (»ÑαÑ¼Ñ¡¡á∩); óδ»«½¡∩ÑΓ »«ñßΓα«¬π, Γ« ÑßΓ∞, óδ»«½¡∩ÑΓ óΓ«απε ¬«¼á¡ñ¡πε ßΓα«¬π ¿º¡π¡α¿ »Ñαó¿τ¡«⌐ ßΓα«¬¿ DRAW. è«¼á¡ñá X »«σ«ªá ¡á GOSUB; ¡á»α¿¼Ñα: DRAW "X" + VARPTR$(X$) P color,boundbary (µóÑΓ, úαá¡¿µá) ¡áτ¿¡áÑΓß∩ ¡á ΓÑ¬π- ΘÑ⌐ ¬««αñ¿¡áΓÑ (X,Y) ¿ ºá»«½¡∩ÑΓ ¿º«íαáªÑ¡¿Ñ µóÑΓ«¼ color, »αÑ¬αáΘá∩ φΓ« ºá»«½¡Ñ¡¿Ñ ó º«¡áσ µóÑΓ«ó«⌐ úαá¡¿µδ. é ¬áªñ«¼ ß½πτáÑ, áαúπ¼Ñ¡Γ n,X ¿½¿ Y ¼«ªÑΓ íδΓ∞ ½¿í« ¬«¡ßΓá¡Γ«⌐ (¬á¬ íδ½« »«¬áºá¡« ¡á »α¿¼Ñαáσ) ¿½¿ »ÑαÑ¼Ñ¡¡«⌐ ó ó¿ñÑ = VARPTR$(»ÑαÑ¼Ñ¡¡á∩); ¡á»α¿¼Ñα: DRAW "e15" Γ«ªÑ ßá¼«Ñ, τΓ« a = 15 DRAW "e=" + VARPTR$(a) DRAW ¿ú¡«α¿απÑΓ »α«ßΓαá¡ßΓó« ó ¬«¼á¡ñ¡δσ ßΓα«¬áσ - óδ ¼«ªÑΓÑ ¿ß»«½∞º«óáΓ∞ Ñú« ñ½∩ Γ«ú«, τΓ«íδ ßñÑ½áΓ∞ óáΦ¿ »α«úαá¼¼δ DRAW í«½ÑÑ τ¿ΓáÑ¼δ¼¿. Äúαá¡¿τÑ¡¿∩ ÆôÉüÄ üàëæêè ¡Ñ ¿ñÑ¡Γ¿Σ¿µ¿απÑΓ ¿¼Ñ¡á »ÑαÑ¼Ñ¡¡δσ ó ßΓα«¬áσ DRAW. Æá¬, óδ ñ«½ª¡δ ¿ß»«½∞º«óáΓ∞ VARPTR$(n) ñ½∩ óδí«α¬¿ ß«ñÑαªá¡¿∩ »ÑαÑ¼Ñ¡¡δσ ó« óαÑ¼∩ óδ»«½¡Ñ¡¿∩ »α«úαá¼¼δ ó αá¼¬áσ ßΓα«¬¿ DRAW . é¼ÑßΓ« DRAW "U = I%;" ¿ß»«½∞ºπ⌐ΓÑ DRAW "U = " + VARPTR$(I%) Åα¿¼Ñα 'ÅÑαÑ⌐ñ¿ΓÑ ó ßαÑñ¡¿⌐ αáºαÑΦáεΘ¿⌐ αÑª¿¼ úαáΣ¿¬¿ SCREEN 1 House$ = "U20 G5 E20 F20 H5 D20 C30" DRAW House$ DRAW "BE3" DRAW "P1,3" FOR I% = 1 TO 280 STEP 40 DRAW "BM = " + VARPTR$(I%) + ",40" DRAW House$ NEXT I% END 'ºá¬«¡τ¿Γ∞ »α«úαá¼¼π Ä»ÑαáΓ«α END ----------------------------------------------------------------- ìáº¡áτÑ¡¿Ñ Ä»ÑαáΓ«α END ºá¬á¡τ¿óáÑΓ óδ»«½¡Ñ¡¿Ñ »α«úαá¼¼δ ¿½¿ «»αÑñÑ½∩ÑΓ ¬«¡Ñµ ßΓαπ¬Γπα¡«ú« í½«¬á. æ¿¡Γá¬ß¿ß END [{DEF/IF/SELECT/SUB}] è«¼¼Ñ¡Γáα¿⌐ END íÑº áαúπ¼Ñ¡Γ«ó ºá¬á¡τ¿óáÑΓ óδ»«½¡Ñ¡¿Ñ »α«ú- αá¼¼δ. Ä»ÑαáΓ«αδ END ¼«úπΓ íδΓ∞ »«¼ÑΘÑ¡δ ó ½εí«Ñ ¼ÑßΓ« ó »α«úαá¼¼Ñ, ¿ ¿σ ¼«ªÑΓ íδΓ∞ í«½ÑÑ «ñ¡«ú«. àß½¿ »α«úαá¼¼á óßΓαÑτáÑΓß∩ ß «»ÑαáΓ«α«¼ END, «¡á ºá- ¬αδóáÑΓ óßÑ «Γ¬αδΓδÑ Σá⌐½δ ¿ ó«ºóαáΘáÑΓß∩ ¬ DOS (¿½¿ ¬ ÆôÉüÄ üàëæêèπ, ó ºáó¿ß¿¼«ßΓ¿ «Γ Γ«ú«, úñÑ íδ½á ºá»πΘÑ¡á »α«úαá¼¼á). Ä»ÑαáΓ«α END ¡Ñ ΓαÑíπÑΓß∩ ¬«¼»¿½∩Γ«απ, σ«Γ∩ ¿ß»«½∞º«óá¡¿Ñ Ñú« ¼«ª¡« αÑ¬«¼Ñ¡ñ«óáΓ∞. àß½¿ ó »α«úαá¼¼Ñ ºá¬á¡τ¿óáεΓß∩ «»ÑαáΓ«αδ óδ»«½¡Ñ¡¿∩, úÑ¡Ñα¿απÑΓß∩ Γ«ΓªÑ ßá¼δ⌐ φΣΣÑ¬Γ. àß½¿ ºá «»ÑαáΓ«α«¼ END ß½ÑñπεΓ αÑºÑαó¡δÑ ß½«óá DEF,IF,SUB ¿½¿ SELECT, Γ« φΓ« «º¡áτáÑΓ ¬«¡Ñµ ßΓαπ¬Γπα¡«ú« í½«¬á. æ¼. Γá¬ªÑ DEF IF SELECT STOP SUB Åα¿¼Ñα SUB DummyProc PRINT "Hello" END SUB `ºá¬«¡τ¿Γ∞ «»αÑñÑ½Ñ¡¿Ñ »α«µÑñπαδ DEF FN DummyFunc$ FN DummyFunc$ = "HelloAgain" END DEF `ºá¬«¡τ¿Γ∞ «»αÑñÑ½Ñ¡¿¿ Σπ¡¬µ¿¿ INPUT "Execute the procedure or the function [1 or 2]";Which% IF Which% > 0 THEN SELECT CASE Which% CASE 1 CALL DummyProc END 'ºá¬«¡τ¿Γ∞ »α«úαá¼¼π CASE 2 PRINT FN DummyFunc% END 'ºá¬«¡τ¿Γ∞ »α«úαá¼¼π CASE ELSE PRINT "An illegal choice was mabe..." END SELECT 'ºá¬«¡τ¿Γ∞ óδí¿αáεΘ¿⌐ «»ÑαáΓ«α END IF 'ºá¬«¡τ¿Γ∞ í½«¬ ifthen END 'ºá¬«¡τ¿Γ∞ »α«úαá¼¼π öπ¡¬µ¿∩ ENDMEM ----------------------------------------------------------------- ìáº¡áτÑ¡¿Ñ öπ¡¬µ¿∩ ENDMEM ó«ºóαáΘáÑΓ áñαÑß ¬«¡µá Σ¿º¿τÑß¬«⌐ »á- ¼∩Γ¿. æ¿¡Γá¬ß¿ß y = ENDMEM è«¼¼Ñ¡Γáα¿⌐ öπ¡¬µ¿∩ ENDMEM ó«ºóαáΘáÑΓ ñ½¿¡¡«Ñ µÑ½«Ñ τ¿ß½«, »αÑñßΓáó½∩εΘÑÑ áñαÑß »«ß½Ññ¡Ñú« íá⌐Γá Σ¿º¿τÑß¬«⌐ »á- ¼∩Γ¿. ENDMEM ó ß«»α∩ªÑ¡¿¿ ß «»ÑαáΓ«α«¼ MEMSET, ¼«ªÑΓ ¿ß»«½∞º«óáΓ∞ß∩ ñ½∩ αáß»αÑñÑ½Ñ¡¿∩ »α«ßΓαá¡ßΓóá ó ßΓáα- ΦÑ⌐ »á¼∩Γ¿ ñ½∩ »α«úαá¼¼ ∩ºδ¬á áßßÑ¼í½Ñαá. éδ»«½¡∩∩ »α«úαá¼¼π ó »á¼∩Γ¿, ENDMEM ó ñÑ⌐ßΓó¿ΓÑ½∞- ¡«ßΓ¿ ó«ºóαáΘáÑΓ ¬«¡Ñµ Σ¿º¿τÑß¬«⌐ »á¼∩Γ¿ ¼¿¡πß «íΩÑ¼ Γáí½¿µδ ß¿¼ó«½«ó. è«úñá ÆôÉüÄ üàëæêè ¬«¼»¿½¿απÑΓ ó »á¼∩Γ¿, «¡ ß«σαá¡∩ÑΓ Γáí½¿µπ ß¿¼ó«½«ó ¡á πα«ó¡Ñ ßá¼«ú« ßΓáαΦÑú« áñαÑßá ó »á¼∩Γ¿. æ¼. Γá¬ªÑ MEMSET Åα¿¼Ñα '»«¬áºáΓ∞ αÑºπ½∞ΓáΓ PRINT "The end of addressable memore is :";ENDMEM END 'ºá¬«¡τ¿Γ∞ »α«úαá¼¼π Ä»ÑαáΓ«α ENVIRON ----------------------------------------------------------------- ìáº¡áτÑ¡¿Ñ Ä»ÑαáΓ«α ENVIRON ¼«ñ¿Σ¿µ¿απÑΓ ¿¡Σ«α¼áµ¿ε ó Γáí½¿µÑ ßαÑñδ. æ¿¡Γá¬ß¿ß ENVIRON string expression ß¿¼ó«½∞¡«Ñ óδαáªÑ¡¿Ñ è«¼¼Ñ¡Γáα¿⌐ string expression «»αÑñÑ½∩ÑΓ ¬á¬ ¿¼∩ »áαá¼ÑΓαá, »«ñ½ÑªáΘÑÑ ¿º¼Ñ¡Ñ¡¿ε, ßπ¼¼¿α«óá¡¡«Ñ ¿½¿ ¿ß¬½ε- τÑ¡¡«Ñ, Γá¬ ¿ ßá¼π ¿¡Σ«α¼áµ¿ε « ¡«ó«¼ »áαá¼ÑΓαÑ. îÑªñπ ¡¿¼¿ ßΓáó¿Γß∩ º¡á¬ αáóÑ¡ßΓóá (=). Ä»ÑαáΓ«α ENVIRON ¿ ß««ΓóÑΓßΓóπεΘá∩ Σπ¡¬µ¿∩ ENVIRON$ ¿ß»«½∞ºπεΓß∩ ñ½∩ ¬«¡Σ¿úπαáµ¿¿ ßαÑñδ, ¬«Γ«αá∩ »ÑαÑσ«ñ¿Γ ¬ »α«úαá¼¼á¼, óδ»«½¡∩Ñ¼δ¼ τÑαÑº «»ÑαáΓ«α SHELL. (ü«½ÑÑ »«ñα«í¡« ß¼.ßΓáΓ∞ε «í «»ÑαáΓ«αÑ SHELL ó ¡áßΓ«∩ΘÑ¼ απ¬«ó«ñßΓóÑ ¿ ßΓáΓ∞ε « ¬«¼á¡ñÑ SET ó ß»αá- ó«τ¡«¼ απ¬«ó«ñßΓóÑ DOS.) ìá»α¿¼Ñα: ENVIRON "PATH=\TURBOBAS" πßΓá¡áó½¿óáÑΓ DOS«óß¬¿⌐ »áαá¼ÑΓα PATH ¡á "\TURBOBAS". Å«ß½ÑñπεΘÑÑ ¬«»¿α«óá¡¿Ñ «»ÑαáΓ«α«¼ SHELL ó ¬«¼á¡ñ- ¡δ⌐ Σá⌐½ æOMMAND.COM áóΓ«¼áΓ¿τÑß¬¿ »α¿ó«ñ¿Γ ¬ ¿ßß½Ñ- ñ«óá¡¼¿ε ¬áΓá½«úá \TURBOBAS ñ½∩ »«¿ß¬á Σá⌐½«ó ¡Ñ ¡á- σ«ñ∩Θ¿σß∩ ó ΓÑ¬πΘÑ¼ ¬áΓá½«úÑ. ä½∩ ¿ß¬½ετÑ¡¿∩ »áαá¼ÑΓαá ¿º Γáí½¿µδ ßαÑñδ ñ«ßΓá- Γ«τ¡« »«ßΓáó¿Γ∞ Γ«τ¬π ß ºá»∩Γ«⌐ ";" »«ß½Ñ º¡á¬á αáóÑ¡ßΓóá: ENVIRON "PATH=;" ¿ß¬½ετáÑΓ ¿º Γáí½¿µδ ßαÑñδ »áαá¼ÑΓα ¼áαΦαπΓá »«¿ß¬á <path parameter>. Äúαá¡¿τÑ¡¿∩ ÉáßΦ¿α¿Γ∞ «íΩÑ¼ ßαÑñδ ¡Ñó«º¼«ª¡«. ä½∩ Γ«ú«, τΓ«íδ ºá»¿ßáΓ∞ ¡«óπε ¿¡Σ«α¼áµ¿ε, ¡Ñ«íσ«ñ¿¼« ßΓÑαÑΓ∞ ßΓáαπε, «ßó«í«ñ¿ó Γá¬¿¼ «íαáº«¼ ¼ÑßΓ« ñ½∩ ºá»¿ß¿. æ¼.Γá¬ªÑ ENVIRON$ SHELL Åα¿¼Ñα '»«¬áºáΓ∞ ¿ ¿º¼Ñ¡¿Γ∞ »ÑαÑ¼Ñ¡¡πε ßαÑñδ PRINT ENVIRON$ ("PATH") "ENVIRON "PATH=\"