For Beginners & Professional Hackers

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

/ For Beginners & Professional Hackers / cd.iso / docum / par3.doc / toolkit.doc < prev next >

Wrap

Text File | 1979-12-31 | 95.2 KB | 2,147 lines

ä«»«½¡¿ΓÑ½∞¡δÑ ßαÑñßΓóá ñ½∩ óó«ñá ñá¡¡δσ. Å«ßΓα«Ñ¡¿Ñ »α«úαá¼¼ ñ½∩ óσ«ñ¡«ú« ¬«¡Γα«½∩ ñá¡¡δσ ∩ó½∩- ÑΓß∩ ß½«ª¡«⌐ ºáñáτÑ⌐. Æ.¬. óó«ñ ñá¡¡δσ τáßΓ« óßΓαÑτáÑΓß∩ ó »α¿½«ªÑ¡¿∩σ, íδ½ αáºαáí«Γá¡ ¡áí«α »α«µÑñπα, ¬«Γ«αδ⌐ πß¬«α∩ÑΓ ¿ π»α«ΘáÑΓ φΓ«Γ »α«µÑßß. ¥Γ«Γ ¡áí«α ¡áºδóáÑΓß∩ Data Entry Toolkit. æεñá óσ«ñ∩Γ (ó ú½áóπ): 1.éóÑñÑ¡¿Ñ ¿ ñÑ¼«¡ßΓαáµ¿∩ ¿ß»«½∞º«óá¡¿∩. 2.Ä»¿ßá¡¿Ñ ºá»πß¬á. 3.Å«Φáú«ó«Ñ «»¿ßá¡¿Ñ ¿ß»«½∞º«óá¡¿∩ ó »«ßΓα«Ñ¡¿¿ »α¿½«- ªÑ¡¿⌐. 4.æ»¿ß«¬ »α«µÑñπα, ¬«Γ«αδÑ ¼«ª¡« ¿ß»«½∞º«óáΓ∞ ó φΓ«¼ »á¬ÑΓÑ. Åα¿¼Ñτá¡¿Ñ. ê¡Σ«α¼áµ¿∩, »α¿ßπΓßΓóπεΘá∩ ó φΓ«¼ αáºñÑ½Ñ í«½∞ΦÑ⌐ τáßΓ∞ε ∩ó½∩ÑΓß∩ ΓÑσ¡¿τÑß¬«⌐ ¿ «íº«α¡«⌐. Å«φΓ«¼π »Ñ- αÑñ ΓÑ¼ ¬á¬ ¿ß»«½∞º«óáΓ∞ Data Entry Toolkit éδ ñ«½ª¡δ »«½π- τ¿Γ∞ »αÑñßΓáó½Ñ¡¿Ñ «í: -¿ß»«½∞º«óá¡¿¿ »α«µÑñπα; -¿ß»«½∞º«óá¡¿¿ ¡Ñ«íσ«ñ¿¼δσ »ÑαÑ¼Ñ¡¡δσ; -»ÑαÑßδ½¬Ñ ¿ αÑñá¬Γ¿α«óá¡¿¿ ó¡πΓα¿ ¿ ¼Ñªñπ Γáí½¿µá¼¿; -¿ß»«½∞º«óá¡¿¿ «¬«¡ PAL`á ó¡πΓα¿ αáí«τÑú« »α«ßΓαá¡ßΓóá ÅÇÉÇäÄèæá; -¿ß»«½∞º«óá¡¿¿ ¬«¼á¡ñδ Wait ñ½∩ óó«ñá ñá¡¡δσ. àß½¿ éδ »«»δΓáÑΓÑß∞ ¿ß»«½∞º«óáΓ∞ Data Entry Toolkit íÑº φΓ¿σ º¡á¡¿⌐ «ß¡«ó¡δσ »«¡∩Γ¿⌐, éδ »«ΓÑα»¿ΓÑ ¡Ñπñáτπ. ¥Γá τáßΓ∞ ∩ó½∩ÑΓß∩ ºá¬½ετ¿ΓÑ½∞¡«⌐ ó απ¬«ó«ñßΓóÑ »«½∞º«óáΓÑ½∩ »« ß½ÑñπεΘÑ⌐ »α¿τ¿¡Ñ: éá¼ ¡Ñ«íσ«ñ¿¼« ¿ºπτ¿Γ∞ óδΦÑ«»¿ßá¡¡πε τáßΓ∞ απ¬«ó«ñßΓóá ñ½∩ φΣΣÑ¬Γ¿ó¡«ú« ¿ß»«½∞º«óá¡¿∩ Data Entry Toolkit. ùΓ« Γá¬«Ñ Toolkit? ä« ß¿σ »«α «ß¡«ó¡«⌐ ó«º¼«ª¡«ßΓ∞ε, »αÑñ«ßΓáó½∩Ñ¼«⌐ »«½∞- º«óáΓÑ½ε ñ½∩ αÑñá¬Γ¿α«óá¡¿∩ Γáí½¿µ, ∩ó½∩½áß∞ ¬«¼á¡ñá Wait. ¥Γá ¬«¼á¡ñá »αÑñ«ßΓáó½∩ÑΓ 4 ó«º¼«ª¡«ßΓ¿ ñ½∩ π»αáó½Ñ¡¿∩ óó«- ñ«¼: -«úαá¡¿τÑ¡¿Ñ Γ«ú«, τ Γ « »«½∞º«óáΓÑ½∞ ¼«ªÑΓ αÑñá¬Γ¿α«- óáΓ∞ (»«½Ñ, ºá»¿ß∞, óß∩ Γáí½¿µá); -ó«ß»α¿¡¿¼áΓ∞ «ñ¡« ¿½¿ ¡Ñß¬«½∞¬« ¡áªáΓ¿⌐ ¡á ¬½áó¿Φ¿, ¬«Γ«αδÑ ºáóÑαΦáεΓ óºá¿¼«ñÑ⌐ßΓó¿Ñ; -óδñáóáΓ∞ ß««íΘÑ¡¿Ñ ¿º ñóπσ ßΓα«¬; -óδñáóáΓ∞ ¡áτá½∞¡δÑ ß««íΘÑ¡¿∩ »«½∞º«óáΓÑ½ε. èá¬ Γ«½∞¬« ß¬α¿»Γ ºá»πßΓ¿Γ »α«µÑñπαπ Wait, éδ »«ΓÑα∩ÑΓÑ π»αáó½Ñ¡¿Ñ ¡áñ αáí«τ¿¼ »«½Ñ¼ ñ« ΓÑσ »«α, »«¬á ¡Ñ ¡áª¼ÑΓÑ «»αÑñÑ½Ñ¡¡«⌐ ¬½áó¿Φ¿. äáªÑ »«Γ«¼ »«ΓÑα∩ÑΓß∩ π»αáó½Ñ¡¿Ñ ΓÑ¼, τΓ« »«½∞º«óáΓÑ½∞ ¼«ªÑΓ ñÑ½áΓ∞ ó αáí«τÑ¼ »«½Ñ. ìá»α¿¼Ñα, éδ ¡Ñ ¼«ªÑΓÑ »«ΓαÑí«óáΓ∞, τΓ«íδ «ñ¡« »«½Ñ íδ½« óóÑñÑ¡« αá¡∞ΦÑ ñαπú«ú«, ¿ ó ºáó¿ß¿¼«ßΓ¿ «Γ ß«ñÑαªá¡¿∩ »Ñαó«ú«. è«¼á¡ñá PAL'á Wait ¡Ñ »«ºó«½∩ÑΓ éá¼ «ßπΘÑßΓó½∩Γ∞ Γá¬«⌐ ó¿ñ π»αáó½Ñ- ¡¿∩ »α«µÑñπα«⌐ óó«ñá ñá¡¡δσ »«½∞º«óáΓÑ½∩. Data Entry Toolkit ∩ó½∩ÑΓß∩ ¡áí«α«¼ PAL-»α«µÑñπα, ¬«Γ«- αδÑ íπñπτ¿ ñ«íáó½Ñ¡¡δ¼¿ ¬ éáΦ¿¼ ß¬α¿»Γá¼ »«ºó«½∩Γ ¡á¿í«½ÑÑ »«½¡« «ßπΘÑßΓó½∩Γ∞ π»αáó½Ñ¡¿Ñ »α«µÑßßá¼¿ óó«ñá ¿ αÑñá¬Γ¿α«- óá¡¿∩ ñá¡¡δσ ó Γáí½¿µáσ. àñ¿¡ßΓóÑ¡¡«⌐ »α«µÑñπα«⌐, ¿ß»«½∞ºπÑ- ¼«⌐ ó Data Entry Toolkit ∩ó½∩ÑΓß∩ DoWait. Ä¡á ∩ó½∩ÑΓß∩ í«½ÑÑ «íΘÑ⌐, τÑ¼ Wait ¿ »«ºó«½∩ÑΓ π»αáó½∩Γ∞ ß«íδΓ¿∩¼¿ ß¿ßΓÑ¼δ »α¿ óó«ñÑ ñá¡¡δσ. æ »«¼«Θ∞ε DoWait éδ ¼«ªÑΓÑ «»αÑñÑ½¿Γ∞ ñÑ⌐ßΓó¿∩, ¬«Γ«αδÑ íπñπΓ óδ»«½¡Ñ¡δ »α¿ óσ«ñÑ ó »«½Ñ, óδσ«ñÑ ¿º »«½∩ ¿ ó« óαÑ¼∩ ¡áσ«ªñÑ¡¿∩ ó¡πΓα¿ »«½∩ (¬«úñá ¡áªáΓá ß««ΓóÑΓßΓóπεΘá∩ ¬½áó¿- Φá). èα«¼Ñ Γ«ú«, ¡Ñºáó¿ß¿¼« «Γ Γ«ú«, ó ¬á¬«¼ »«½Ñ ¡áσ«ñ¿Γß∩ »«½∞º«óáΓÑ½∞ ß»Ñµ¿á½∞¡á∩ ¬½áó¿Φá óδºδóáÑΓ »α«µÑñπαδ, »αÑñ- ¡áº¡áτÑ¡¡δÑ ñ½∩ Γ«ú«, τΓ«íδ óδ»«½¡∩Γ∞ß∩ ó ½εí«⌐ ¼«¼Ñ¡Γ »α¿ ªÑ½á¡¿¿ »«½∞º«óáΓÑ½∩. ìÑß¬«½∞¬« ñ«»«½¡¿ΓÑ½∞¡δσ »α«µÑñπα, ó¬½ετÑ¡¡δσ ó Toolkit »«ññÑαª¿óáεΓ »α«µÑñπαπ DoWait ¿½¿ «íÑß- »Ñτ¿óáεΓ ñ«»«½¡¿ΓÑ½∞¡δÑ Σπ¡¬µ¿¿, ¬«Γ«αδÑ πñ«í¡δ ó »α¿½«ªÑ¡¿- ∩σ, ΓαÑíπεΘ¿σ í«½∞Φ«ú« «íΩÑ¼á óó«ñ¿¼δσ ñá¡¡δσ. - ArriveField - ß««íΘáÑΓ DoWait, τΓ« ¬παß«α óδΦÑ½ ó ¡«- ó«Ñ »«½Ñ, ¿ τΓ« ñ«½ª¡á íδΓ∞ óδºóá¡á ß««ΓóÑΓßΓóπεΘá∩ »α«µÑ- ñπαá. - EditMenu - óδó«ñ¿Γ ¡á ñ¿ß»½Ñ⌐ »α«ßΓ«Ñ ¼Ñ¡ε αÑñá¬Γ¿α«- óá¡¿∩, ß«ñÑαªáΘÑÑ πß½πú¿: Undo, Do-It!, Help, Cancel, ¬«Γ«- αδÑ ¼«úπΓ íδΓ∞ ¿ß»«½∞º«óá¡δ ó« óαÑ¼∩ óó«ñá ñá¡¡δσ ß ¿ß»«½∞- º«óá¡¿Ñ¼ DoWait. ¥Γ« ∩ó½∩ÑΓß∩ »α¿¼Ñα«¼ Γ¿»á ñÑ⌐ßΓó¿∩, τΓ« ¼«ªÑΓ íδΓ∞ óδ»«½¡Ñ¡« ó« óαÑ¼∩ ß»Ñµ¿á½∞¡«⌐ »α«µÑñπαδ. - GetFaile - óδó«ñ¿Γ ¡á φ¬αá¡ ¼Ñ¡ε ¿º Σá⌐½«ó. ä½∩ «»- αÑñÑ½Ñ¡¿∩ Σá⌐½«ó, ¬«Γ«αδÑ ñ«½ª¡δ íδΓ∞ óδßóÑτÑ¡δ ó ¼Ñ¡ε, ¿ß- »«½∞ºπεΓß∩ ¼áß¬¿. - GetPassword - óó«ñ¿Γ ßΓα«¬π «Γ »«½∞º«óáΓÑ½∩, ¡« ¡Ñ «Γ«íαáªáÑΓ ß¿¼ó«½δ ¡á φ¬αá¡Ñ ñ¿ß»½Ñ∩. - InitWait - πßΓá¡áó½¿óáÑΓ ¿ßσ«ñ¡δÑ º¡áτÑ¡¿∩ »α«µÑ- ñπα, »ÑαÑ¼Ñ¡¡δσ, ¼áßß¿ó«ó ¡Ñ«íσ«ñ¿¼δσ ñ½∩ »α«µÑñπαδ DoWait. - LookupSelect - »«¬áºδóáÑΓ Γáí½¿µπ »«¼«Θ¿ Lookup ¿ »«ºó«½∩ÑΓ »«½∞º«óáΓÑ½ε ßñÑ½áΓ∞ óδí«α ¿º ¡ÑÑ. - NewField - ß««íΘáÑΓ DoWait, τΓ« ¬παß«α »«»á½ ó ¡«ó«Ñ »«½Ñ (¡« ¡Ñ«í∩ºáΓÑ½∞¡« »«¼ÑΘáÑΓ Ñú« Γπñá,Γá¬¿¼ «íαáº«¼, τΓ« »α«µÑñπαá ñ«ßΓáó¬¿ ó φΓ« »«½Ñ ¡Ñ óδºδóáÑΓß∩). - Popup - óδó«ñ¿Γ ¡á ñ¿ß»½Ñ⌐ óÑαΓ¿¬á½∞¡«Ñ ¼Ñ¡ε »α«¿º- ó«½∞¡«⌐ ñ½¿¡δ, ¿º ¬«Γ«α«ú« »«½∞º«óáΓÑ½∞ ¼«ªÑΓ ßñÑ½áΓ∞ óδ- í«α. Å«½∞º«óáΓÑ½∞ »α«ßΓ« »ÑαÑ¼ÑΘáÑΓß∩ »« óÑαΓ¿¬á½¿ ¿ ñ½∩ óδí«αá º¡áτÑ¡¿∩ ¡áª¿¼áÑΓ [Enter]. - RecurseWait - ß»Ñµ¿á½∞¡á∩ óÑαß¿∩ DoWait, ¿ß»«½∞ºπÑ- ¼á∩ ñ½∩ «αúá¡¿ºáµ¿¿ ó½«ªÑ¡¡«ßΓ¿. ¥Γá »α«µÑñπαá ñ«»πß¬áÑΓ ¼¡«ú«τ¿ß½Ñ¡¡δÑ πα«ó¡¿ αÑ¬παß¿¿ ¿ »αÑñ«ßΓáó½∩ÑΓ »«½∞º«óáΓÑ½ε ó«º¼«ª¡«ßΓ∞ »ÑαÑσ«ñ¿Γ∞ «Γ óó«ñá ñá¡¡δσ ó «ñ¡π Γáí½¿µπ ¬ óó«ñπ ñá¡¡¡δσ ó ñαπúπε. - SetKeycodes - «»αÑñÑ½∩ÑΓ ß»Ñµ¿á½∞¡δÑ »ÑαÑ¼Ñ¡¡δÑ, ¬«- Γ«αδÑ ¼«úπΓ íδΓ∞ ¿ß»«½∞º«óá¡δ ó »α¿½«ªÑ¡¿∩σ, ¿ß»«½∞ºπεΘ¿σ DoWait. - SetPopup - «»αÑñÑ½∩ÑΓ ¼Ñ¡ε ñ½∩ ¬«¼á¡ñδ Popup. GetFile, GetPassword, LookupSelect, Popup ¿ SetPopup ¡Ñ «í∩ºáΓÑ½∞¡« ¼«úπΓ ¿ß»«½∞º«óáΓ∞ß∩ »α«µÑñπα«⌐ DoWait. Ä¡¿ óδ- ºδóáεΓß∩ »« ªÑ½á¡¿ε »«½∞º«óáΓÑ½∩. ä«»«½¡¿ΓÑ½∞¡«, ¡Ñ¬«Γ«αδÑ πΓ¿½¿Γδ Toolkit'á, ¿½¿ »«ñ- ß¿ßΓÑ¼δ, »αÑñ«ßΓáó½Ñ¡δ τΓ«íδ »«¼«τ∞ éá¼ »«ßΓα«¿Γ∞ éáΦπ ß¿ß- ΓÑ¼π óó«ñá ñá¡¡δσ ¿ Σ«α¼δ. éδ ¡Ñ ó¿ñ¿ΓÑ »α«µÑñπα, ß«ñÑαªá- Θ¿σ φΓ¿σ πΓ¿½¿Γ, Γ.¬. «¡¿ ñ«ßΓπ»¡δ τÑαÑº ß»Ñµ¿á½∞¡δ⌐ ß¬α¿»Γ ¡«ß∩Θ¿⌐ ¿¼∩ toolkit. è«úñá éδ ºá»πßΓ¿ΓÑ toolkit éδ πó¿ñ¿ΓÑ ¼Ñ¡ε ß« ß½ÑñπεΘ¿- ¼¿ πß½πúá¼¿ : *Demonstration* FildDefine KeyDefine HelpForm PrepareFinal Quit Demonstration of the capabilities of the toolkit. (ñÑ¼«¡ßΓαáµ¿∩ ó«º¼«ª¡«ßΓÑ⌐ toolkit'á) - Demonstration - ºá»πß¬áÑΓ »α¿¼Ñα »α¿½«ªÑ¡¿∩, ¬«Γ«α«Ñ ¿ß»«½∞ºπÑΓ Toolkit ñ½∩ ñÑ¼«¡ßΓαáµ¿¿ Ñú« ó«º¼«ª¡«ßΓÑ⌐. - FildDefine - «íÑß»Ñτ¿óáÑΓ »«ññÑαª¬π «»ÑαáΓ«αá DoWait. Ä¡ «»αÑñÑ½∩ÑΓ ¿¼Ñ¡á »α«µÑñπα ¿ ñÑ⌐ßΓó¿∩, ¿ß»«½∞ºπÑ¼δÑ »α«- µÑñπα«⌐ DoWait. - HelpForm - »«ññÑαª¿óáÑΓ ß«ºñá¡¿Ñ Σ«α¼. Ä¡ »«ºó«½¿Γ éá¼ ¿¡ΓÑαá¬Γ¿ó¡« α¿ß«óáΓ∞ ½¿¡¿¿ ó Σ«α¼áσ, ¿ß»«½∞ºπ∩ á½ú«- α¿Γ¼, »«ºó«½∩εΘ¿⌐ »ÑαÑßÑ¬áΓ∞ ¿ ß«Ññ¿¡∩Γ∞ úαá¡¿µδ. Æá¬«⌐ áß- »Ñ¬Γ ß«ºñá¡¿∩ Σ«α¼ ¡Ñó«º¼«ªÑ¡ ó αÑª¿¼Ñ ¡«α¼á½∞¡«⌐ αáºαáí«Γ- ¬¿ Σ«α¼ ó ÅÇÉÇäÄèæÑ. - KeyDefine - »«ññÑαª¿óáÑΓ «»ÑαáΓ«α DoWait. Ä¡ »«ºó«- ½∩ÑΓ éá¼ »ÑαÑ«»αÑñÑ½¿Γ∞ º¡áτÑ¡¿∩ óßÑσ ¬½áó¿Φ, »«¬á αáí«ΓáÑΓ »α«µÑñπαá DoWait. - PrepareFinal -πñá½∩ÑΓ »α«µÑñπαδ TKDebug ¿º óáΦÑú« »α¿½«ªÑ¡¿∩ ¿ »«ñßΓáó½∩ÑΓ º¡áτÑ¡¿∩ ó¼ÑßΓ« ¿¼Ñ¡ »ÑαÑ¼Ñ¡¡δσ ß µÑ½∞ε ß«¬αáΓ¿Γ∞ ΓαÑí«óá¡¿∩ »á¼∩Γ¿. Å«ºñ¡ÑÑ ó φΓ«¼ αáºñÑ½Ñ ¼δ αáßß¼«Γα¿¼ ¬áªñπε ¿º φΓ¿σ »α«µÑñπα ¿ »«ñß¿ßΓÑ¼ í«½ÑÑ ñÑΓá½∞¡«. æ¡áτá½á, éá¼ ¡Ñ«íσ«ñ¿- ¼« ¿ºπτ¿Γ∞, τΓ« »αÑñßΓáó½∩ÑΓ ¿º ßÑí∩ Toolkit ¿ ¬á¬ éδ ¼«ªÑ- ΓÑ Ñú« ¿ß»«½∞º«óáΓ∞. Åα¿¼Ñ¡Ñ¡¿Ñ Toolkit »α«¿½½εßΓα¿α«óá¡« »α¿ »«¼«Θ¿ »α«ú- αá¼¼, ¡á»¿ßá¡¡δσ ¡á ∩ºδ¬Ñ PAL, ¬«Γ«αδÑ óσ«ñ∩Γ ó »«ñß¿ßΓÑ¼π Demonstration (»«½¡δ⌐ ΓÑ¬ßΓ φΓ«⌐ »α«úαá¼¼δ ¡áσ«ñ¿Γß∩ ¡á ñ¿ß¬Ñ Simple Application/ Data Entry Toolkit ó ß¬α¿»ΓÑ ß ¿¼Ñ¡Ñ¼ makedemo. ÅαÑ¿¼πΘÑßΓóá DoWait. DoWAit »αÑñ«ßΓáó½∩ÑΓ ñóá «ß¡«ó¡δσ »αÑ¿¼πΘÑßΓóá ñ½∩ »«½∞º«óáΓÑ½Ñ⌐ »α«úαá¼¿απεΘ¿σ ¡á PAL'Ñ. ÅÑαó«Ñ, ¿ ¡á¿í«½ÑÑ «τÑó¿ñ¡«Ñ - Γ«, τΓ« »α«µÑñπαá DoWait »αÑñ«ßΓáó½∩ÑΓ ¡«óδÑ ó«º¼«ª¡«ßΓ¿ ó¡πΓα¿ ÅÇÉÇäÄèæá. éδ »«½πτáÑΓÑ ó«º¼«ª¡«ßΓ∞ óßÑßΓ«α«¡¡Ñú« π»αáó½Ñ¡¿∩ óó«ñ«¼ ñá¡¡δσ. ìÑ Γá¬ «τÑó¿ñ¡« ñαπ- ú«Ñ »αÑ¿¼πΘÑßΓó« DoWait, ¬«úñá Σ«α¼á óó«ñá ñá¡¡δσ, ¬«Γ«απε éδ ß«ºñáÑΓÑ ¿¡ΓÑαá¬Γ¿ó¡« ó ÅÇÉÇäÄèæÑ π»αáó½∩ÑΓ óó«ñ«¼ ñá¡- ¡δσ. DoWAit »αÑñßΓáó½∩ÑΓ ß«í«⌐ »α«úαá¼¼π, τ∞¿ Σπ¡¬µ¿¿ "¡áñ Σ«α¼«⌐". ÅÑαÑ¼ÑΘÑ¡¿Ñ «Γ »«½∩ ¬ »«½ε π»αáó½∩ÑΓß∩ (¬«¡Γα«½¿απ- ÑΓß∩) ß¬«αÑÑ »«ßαÑñßΓó«¼ Σ«α¼δ, τÑ¼ »α«úαá¼¼¿α«óá¡¿Ñ¼.Åα¿íá- ó¿¼ Γ«, τΓ« »α«óÑα¬¿ »αáó¿½∞¡«ßΓ¿ ñá¡¡δσ, Γáí½¿τ¡δÑ »αÑ«íαá- º«óá¡¿∩, óδτ¿ß½Ñ¡¿Ñ »«½∩, »α«ß¼«Γα »«½∩, Help ¿ óßÑ «íδτ¡δÑ Σπ¡¬µ¿¿ áóΓ«¼áΓ¿τÑß¬¿ »«ññÑαª¿óáεΓß∩ »«ßαÑñßΓó«¼ Σ«α¼δ. Åα«- óÑα¬á »αáó¿½∞¡«ßΓ¿ ñá¡¡δσ, ñ½∩ »α¿¼Ñαá, »α«¿ºó«ñ¿Γß∩ óßÑúñá, ¡Ñ ßτ¿Γá∩ß∞ ß ΓÑ¼, óδ»«½¡∩ÑΓß∩ ½¿ «ñ¡á ¿½¿ ¡Ñ «ñ¡á óáΦá »α«- µÑñπαá óó«ñá ñá¡¡δσ. ƒó¡«⌐ óδú«ñ«⌐ «Γ ¿ß»«½∞º«óá¡¿∩ Σ«α¼δ π»αáó½Ñ¡¿∩ óó«ñ«¼ ∩ó½∩ÑΓß∩ Γ«, τΓ« éδ ¼«ªÑΓÑ »α«úαá¼¼¿α«óáΓ∞ ¡á «τÑ¡∞ óδß«¬«¼ πα«ó¡Ñ; ñ«»«½¡¿ΓÑ½∞¡δÑ »α«µÑñπαδ, ó ¬«Γ«αδσ éδ ¡πªñáÑΓÑß∞ ¼á½δ, »α«ßΓδ ¿ «α¿Ñ¡Γ¿α«óá¡δ ¡á «íαáí«Γ¬π Γ«½∞¬« ¿ß¬½ετÑ- ¡¿⌐. ¥Γ« π¼Ñ¡∞ΦáÑΓ óαÑ¼∩ ¿ αáº¼Ñα ¡Ñ«íσ«ñ¿¼δσ »α«úαá¼¼ ¿ »«- ¼«úáÑΓ »αÑ«ñ«½ÑΓ∞ ß½«ª¡«ßΓ¿ »α¿ óó«ñÑ ñá¡¡δσ. è«¡µÑ»Γπá½∞¡á∩ αáº¡¿µá ¼Ñªñπ Wait ¿ DoWait. DoWait »αÑñßΓáó½∩ÑΓ ß«í«⌐ ΓΘáΓÑ½∞¡« ßñÑ½á¡¡«Ñ αáßΦ¿- αÑ¡¿Ñ ¬«¼á¡ñδ Wait, ¡« φΓ« ¡Ñ «»αÑñÑ½∩ÑΓ «ß¡«ó¡δÑ ¬«¡µÑ»Γπ- á½∞¡δÑ αáº½¿τ¿∩ ¼Ñªñπ ¡¿¼¿. Äñ¡« ¿º αáº½¿τ¿⌐ ß«ßΓ«¿Γ ó Γ«¼, ¬á¬ ¿ß»«½∞ºπÑΓß∩ DoWait. ä½∩ »α¿¼Ñαá, »α¿ ¿ß»«½∞º«óá¡¿¿ DoWait »«½¡δ⌐ µ¿¬½ óó«ñá ñá¡¡δσ ºáóÑαΦáÑΓß∩ ¡«α¼á½∞¡« »α¿ Ññ¿¡ßΓóÑ¡¡«¼ óδº«óÑ »α«µÑñπαδ. é »α«Γ¿ó«»«½«ª¡«ßΓ∞ φΓ«¼π, óó«ñ ñá¡¡δσ, ¿ß»«½∞ºπεΘ¿⌐ Wait, τáßΓ« ΓαÑíπÑΓ ¡Ñ«ñ¡«¬αáΓ¡«ú« óδ»«½¡Ñ¡¿∩ ¬«¼á¡ñδ Wait. ìá»α¿¼Ñα, Ñß½¿ éδ σ«Γ¿ΓÑ "αáºαÑ- Φ¿Γ∞" ¿ß»«½º«óá¡¿Ñ ß»Ñµ¿á½∞¡δσ ¬½áó¿Φ (Menu key) ó óáΦÑ¼ »α¿½«ªÑ¡¿¿, ¿ß»«½∞ºπ∩ Wait, φΓ« ¼«ªÑΓ óδú½∩ñÑΓ∞ Γá¬: retwal = "F10" WHILE retwal = "F10" WAIT TABLE UNTIL "F2","F10","Esc" IF retwal = "F10" THEN Play "Menu" ENDWHILE é »α¿óÑñÑ¡¡«¼ Σαáú¼Ñ¡ΓÑ, óß∩¬¿⌐ αáº ¡áªáΓ¿Ñ «íΩ∩ó½Ñ¡¡«⌐ ¬½áó¿Φ¿ (îÑ¡ε), ºáóÑαΦáÑΓß∩ óδ»«½¡Ñ¡¿Ñ¼ ¬«¼á¡ñδ Wait ¿ «íαá- íáΓδóáÑΓß∩ ¼Ñ¡ε, á ºáΓÑ¼ «»∩Γ∞ óδ»«½¡∩ÑΓß∩ ¬«¼á¡ñá Wait. Åα¿ ¿ß»«½∞º«óá¡¿¿ DoWait ¡Ñ«íσ«ñ¿¼«ßΓ∞ ó Γá¬«¼ µ¿¬½Ñ «Γ»áñáÑΓ. àß½¿ "F10" «»αÑñÑ½Ñ¡á ¬á¬ "special" (»α¿ »«¼«Θ¿ π»«¼¿¡áóΦÑ⌐- ß∩ óδΦÑ »«ñß¿ßΓÑ¼δ KeyDefine ó toolkit'Ñ), óß∩¬¿⌐ αáº, ¬«úñá »«½∞º«óáΓÑ½∞ ¡áª¿¼áÑΓ "F10", DoWait áóΓ«¼áΓ¿τÑß¬¿ óδºδóáÑΓ ß»Ñµ¿á½∞¡πε π»αáó½∩εΘπε »α«µÑñπαπ, π¬áºá¡¡πε éá¼¿. àß½¿ "F2" ¿ "Esc" «»αÑñÑ½Ñ¡δ, ¬á¬ "Exit" ¬½áó¿Φ¿ («»∩Γ∞ »α¿ »«¼«Θ¿ KeyDefine), µ¿¬½ óó«ñá ñá¡¡δσ ºáóÑαΦáÑΓß∩, ¬«úñá íδ »«½∞º«- óáΓÑ½∞ ¡Ñ ¡áªá½ Γπ ¿½¿ ¿¡πε ¬½áó¿Φπ. Äß¡«ó¡«Ñ αáº½¿τ¿Ñ ¼Ñªñπ Wait ¿ DoWait ß«ßΓ«¿Γ ó Γ«¼, τΓ« óß∩ ß»Ñµ¿á½∞¡á∩ «íαáí«Γ¬á ß«óÑαΦáÑΓß∩ áóΓ«¼áΓ¿τÑß¬¿ ó¡πΓα¿ DoWait. ìÑΓ ¡Ñ«íσ«ñ¿¼«ßΓ¿ »«¬¿ñáΓ∞ DoWait, ¬á¬ φΓ« íδ½« íδ ¡Ñ«íσ«ñ¿¼« »α¿ ß»Ñµ¿á½∞¡«⌐ «íαáí«Γ¬Ñ, ¿ß»«½∞ºπ∩ Wait. Äíδτ¡«, DoWait óδºδóáÑΓß∩ Γ«½∞¬« «ñ¿¡ αáº ó µ¿¬½Ñ óó«ñá ñá¡¡δσ, ó Γ« óαÑ¼∩ ¬á¬ Wait τáßΓ« ¿ß- »«½∞ºπÑΓß∩ »«óΓ«α¡« ó µ¿¬½Ñ ó ΓÑτÑ¡¿¿ óó«ñá ñá¡¡δσ. àß½¿ éδ σ«Γ¿ΓÑ »αÑ¬αáΓ¿Γ∞ óó«ñ ñá¡¡δσ ó «ñ¡π Γáí½¿µπ ¿ ¡áτáΓ∞ óó«ñ ó ñαπúπε, éδ ñ«½ª¡δ óδ»«½¡¿Γ∞ óΓ«α«⌐ DoWait ñ½∩ ¡«ó«⌐ Γáí½¿µδ. Toolkit ß«ñÑαª¿Γ ß»Ñµ¿á½∞¡πε óÑαß¿ε DoWait, ¡áºδóáÑ¼πε RecurseWait, ñ½∩ ¿ß»«½∞º«óá¡¿∩ ó »«ñ«í¡δσ ß½πτá∩σ (ß¼. "Procedure Reference"). RecurseWait ß»áßáÑΓ »ÑαÑ¼Ñ¡¡δÑ, ¿ß- »«½∞ºπÑ¼δÑ ΓÑ¬πΘ¿¼ DoWait ¿ σαá¡¿Γ ¿σ «ΓñÑ½∞¡« «Γ »«ñ«í¡δσ, ¿ß»«½∞ºπÑ¼δσ ñ½∩ ¡«ó«ú« µ¿¬½á óó«ñá ñá¡¡δσ, ¬«¡Γα«½¿απÑ¼«ú« RecurseWait. êß»«½∞º«óá¡¿Ñ DoWait ¿ RecurseWait »α¿ óó«ñÑ ñá¡¡δσ ó ßÑ¼Ñ⌐ßΓó« Γáí½¿µ,ó ñÑ⌐ßΓó¿ΓÑ½∞¡«ßΓ¿ ú«αáºñ« »α«ΘÑ, τÑ¼ ¿ß»«½∞º«óá¡¿Ñ Wait. RecurseWait óδºδóáÑ¼δ⌐ ó¡πΓα¿ DoWait, π»αáó½∩ÑΓ óó«ñ«¼ ñá¡¡¡δσ ñ½∩ óΓ«α«⌐ Γáí½¿µδ; DoWait π»αáó½∩ÑΓ óó«ñ«¼ ñá¡¡δσ ñ½∩ »Ñαó«⌐ Γáí½¿µδ. èáªñδ⌐ ¼«ªÑΓ ¿ß- »«½∞º«óáΓ∞ αáº½¿τ¡δ⌐ ¡áí«α ß»Ñµ¿á½∞¡δσ ¬½áó¿Φ ¿ »α«µÑñπα. é ß½πτáÑ ¬«¼á¡ñδ Wait, éδ, ó«º¼«ª¡«, ¿¼Ñ½¿ íδ Γá¬πε ßΓαπ¬Γπαπ: SWITCH ó¡πΓα¿ WHILE, ¬«Γ«αδ⌐ ó¡πΓα¿ SWITCH, ¬«Γ«αδ⌐ ó¡πΓα¿ WHILE, ¿ »α¿ φΓ«¼ éδ ¡Ñ ß¼«ú½¿ íδ ∩ó¡« π»αáó½∩Γ∞ ß»Ñµ¿á½∞¡δ- ¼¿ ¬½áó¿Φá¼¿ ó¡Ñ Wait. ê¡ßΓ«½¿α«óá¡¿Ñ (πßΓá¡«ó¬á) Toolkit. Data Entry Toolkit ¼«ªÑΓ íδΓ∞ ºá»πΘÑ¡á ½¿í« ß ªÑßΓ¬«ú« ñ¿ß¬á ¡á áóΓ«¡«¼¡«¼ ¬«¼»∞εΓÑαÑ ½¿í« ß ßÑΓÑó«ú« Σá⌐½«ó«ú« »α«µÑßß«αá (ßÑαóÑαá). ôßΓá¡«ó¬á Toolkit ó ßÑΓ¿ - ÑßΓ∞ τáßΓ∞ ßΓá¡ñáαΓ¡«⌐ ßÑ- ΓÑó«⌐ »α«µÑñπαδ πßΓá¡«ó¬¿ ÅÇÉÇäÄèæá. çáóÑαΦáεΘ¿Ñ ¬«¼á¡ñδ ñ½∩ πßΓá¡«ó¬¿ ÅÇÉÇäÄèæá ó ßÑΓ¿ ß«ñÑαªáΓß∩ ó ¬¡¿úÑ "Network Administrator's Guide". Åα¿ ßÑΓÑó«⌐ πßΓá¡«ó¬Ñ, ñ«½- ª¡á ßπΘÑßΓó«óáΓ∞ »«ññ¿αÑ¬Γ«α¿∩ \paradox2\detool, ß«ñÑαªáΘá∩ Σá⌐½δ Toolkit. ÄíαáΓ¿ΓÑß∞ ¬ ¬¡¿úÑ "Network Administrator's Guide" ó Γ«¼ ß½πτáÑ, Ñß½¿ éδ ¡Ñ πóÑαÑ¡δ ó Γ«¼, ¬á¬ αáº¼ÑßΓ¿Γ∞ φΓπ »«ññ¿αÑ¬Γ«α¿ε. ôßΓá¡«ó¬á Toolkit ¡á áóΓ«¡«¼¡«⌐ ß¿ßΓÑ¼Ñ ß ªÑßΓ¬¿¼ ñ¿ß- ¬«¼. 1. é«⌐ñ¿ΓÑ ó ñ¿αÑ¬Γ«α¿ε ß«ñÑαªáΘπε Σá⌐½δ ÅÇÉÇäÄèæá. ìá é¿¡τÑßΓÑαÑ φΓ« «íδτ¡«: C:\paradox2. ìáíÑα¿ΓÑ: C>cd\paradox2. 2. çá»πßΓ¿ΓÑ ¬«¼á¡ñ¡δ⌐ Σá⌐½ dinstall, ñ½∩ Γ«ú«, τΓ«íδ ß«ºñáΓ∞ ¡«óπε »«ññ¿αÑ¬Γ«α¿ε ñ½∩ Toolkit. Å«ß½Ñ Γ«ú«, ¬á¬ éδ óßΓáó¿½¿ ñ¿ß¬: Sumple Application/Data è«¼á¡ñ¡δ⌐ Σá⌐½ ß«ºñáßΓ ¡«óπε »«ññ¿αÑ¬Γ«α¿ε \paradox2\detool ¿ ß¬«»¿απÑΓ ó ¡ÑÑ óßÑ Σá⌐½δ Toolkit. êß»«½∞º«óá¡¿Ñ Toolkit. Toolkit ß«ñÑαª¿Γ ñóá »Ñαó¿τ¡δσ «ß¡«ó¡δσ ¬«¼»«¡Ñ¡Γá: - æ¬α¿»Γ toolkit ß »∩Γ∞ε »«ñß¿ßΓÑ¼á¼¿, óδí¿αáÑ¼δ¼¿ ¿º Ñú« «ß¡«ó¡«ú« ¼Ñ¡ε. - ü¿í½¿«ΓÑ¬á »α«µÑñπα Toolkit, ß«ñÑαªáΘá∩ »α«µÑñπαδ, π»αáó½∩εΘ¿Ñ óó«ñ«¼ ñá¡¡δσ, ¬«úñá éδ »«½∞ºπÑΓÑß∞ Toolkit (ß¼."Toolkit Reference" ó ¬«¡µÑ »áαáúαáΣá). çá»πß¬ Toolkit Skript. 1. çá»πßΓ¿ΓÑ ÅÇÉÇäÄèæ. 2. éδíÑα¿ΓÑ ¿º «ß¡«ó¡«ú« îÑ¡ε ÅÇÉÇäÄèæá πß½πúπ Tools/Move/Directory ¿ ¡áíÑα¿ΓÑ: C:\paradox2\detool. 3. éδíÑα¿ΓÑ ¿º Äß¡«ó¡«ú« îÑ¡ε ÅÇÉÇäÄèæá πß½πúπ Scripts/Play ¿ ¡áíÑα¿ΓÑ Toolkit. è«úñá éδ ºá»πßΓ¿ΓÑ ß¬α¿»Γ Toolkit, ß«ºñáñπΓß∩ ñóÑ í¿í- ½¿«ΓÑ¬¿ »α«µÑñπα: - DemoApp - ü¿í½¿«ΓÑ¬á, ß«ñÑαªáΘá∩ ñÑ¼«¡ßΓαáµ¿«¡¡δÑ »α«µÑñπαδ. - Toolkit - «ß¡«ó¡á∩ í¿í½¿«ΓÑ¬á »α«µÑñπα. Å«ß½Ñ ¬«¼»¿½∩µ¿¿ í¿í½¿«ΓÑ¬, éδ πó¿ñ¿ΓÑ ¡á φ¬αá¡Ñ Äß¡«ó- ¡«Ñ îÑ¡ε Toolkitá: *Demonstration* FildDefine KeyDefine HelpForm PrepareFinal Quit Demonstration of the capabilities of the toolkit. (ñÑ¼«¡ßΓαáµ¿∩ ó«º¼«ª¡«ßΓÑ⌐ toolkit'á) Åα¿½«ªÑ¡¿Ñ óó«ñá ñá¡¡δσ. ÅÑαóá∩ »«ñß¿ßΓÑ¼á Toolkit φΓ« ñÑ¼«¡ßΓαáµ¿∩ Ñú« ¿ß»«½∞- º«óá¡¿∩. äÑ¼«¡ßΓαáµ¿∩ ß«ñÑαª¿Γ Σαáú¼Ñ¡Γ óó«ñá ñá¡¡δσ í«½∞- Φ«ú« »α¿½«ªÑ¡¿∩. ¥Γ«Γ Σαáú¼Ñ¡Γ ¿½½εßΓα¿απÑΓ ñ«ßΓ«¿¡ßΓóá ß¿ßΓÑ¼δ Toolkit. çá»πß¬ ñÑ¼«¡ßΓαáµ¿¿ Toolkit. 1.æ¡áτá½á óδíÑα¿ΓÑ πß½πúπ Tools/More/Directory ¿ óóÑ- ñ¿ΓÑ C:\paradox2\detool. ¥Γ« »«¼ÑßΓ¿Γ éáß ó ñ¿αÑ¬Γ«α¿ε, ¬«- Γ«αá∩ ß«ñÑαª¿Γ Σá⌐½δ Toolkit'á, ¬«Γ«αδÑ éδ íπñÑΓÑ ¿ß»«½∞º«- óáΓ∞. 2.ÆÑ»Ñα∞ óδíÑα¿ΓÑ πß½πúπ Scripts/Play ¿ ¡á»ÑτáΓá⌐ΓÑ toolkit. Å«ß½Ñ ¿ñÑ¡Γ¿Σ¿¬áµ¿¿, ß¬α¿»Γ ¿º«íαáº¿Γ «ß¡«ó¡«Ñ ¼Ñ- ¡ε Toolkit. 3.éδíÑα¿ΓÑ πß½πúπ Demonstration. é «ΓóÑΓ, ¬«¼»∞εΓÑα ºáúαπº¿Γ ¿ ºá»πßΓ¿Γ »α«µÑñπαδ ¿º í¿í½¿«ΓÑ¬¿ demoapp (½¿ß- Γ¿¡ú ÑßΓ∞ ó ß¬α¿»ΓÑ makdemo.sc). ¥Γ¿ »α«µÑñπαδ ºá¬½ετáεΓ ó ßÑíÑ ¬«ñ, π»αáó½∩εΘ¿⌐ ñÑ¼«¡- ßΓαáµ¿Ñ⌐ »α«ßΓ«ú« óó«ñá ñá¡¡δσ. 4.Å«ß½Ñ ¡Ñß¬«½∞¬¿σ ºáßΓáó«¬, φ¬αá¡ «τ¿ßΓ¿Γß∩ ¿ éδ πó¿- ñ¿ΓÑ ñÑ¼«¡ßΓαáµ¿ε Σ«α¼δ óó«ñá ñá¡¡δσ. ¥Γ« Γ¿»¿τ¡«Ñ »α¿½«ªÑ- ¡¿Ñ, ñ½∩ ¬«Γ«α«ú« Data Entry Toolkit ¡á¿½πτΦá∩ «í«½«τ¬á. æá¼á Σ«α¼á ¡áα¿ß«óá¡á ß ¿ß»«½∞º«óá¡¿Ñ¼ Help Form, ¬«Γ«αá∩ íπñÑΓ «»¿ßá¡á ¡¿ªÑ. 5.éóÑñ¿ΓÑ ¬á¬¿Ñ-½¿í« ñá¡¡δÑ. èπαß«α ¡áσ«ñ¿Γß∩ ó »«½Ñ Invoice#. ìá»ÑτáΓá⌐ΓÑ 122. 6.èπαß«α »ÑαÑ¼ÑßΓ¿Γß∩ ¡á »«½Ñ ShipVia. åÑ½áÑΓÑ ½¿ éδ º¡áΓ∞ ¬á¬«⌐ óδí«α ºáúαπº¬¿ ó«º¼«ªÑ¡? ìáª¼¿ΓÑ ¬½áó¿Φπ »«¼«Θ¿ "F1". éáΦ φ¬αá¡ ßÑ⌐τáß «Γ«íαáªáÑΓ ¼Ñ¡ε, »«¬áºδóáεΘÑÑ óδí«α ºáúαπº¬¿. ºá¼ÑΓ¿¼, τΓ« ¬παß«α ó »«½Ñ ShipVia ßΓá½ ¼á½Ñ¡∞- ¬«ú« αáº¼Ñαá ¡á óαÑ¼∩ »α«ß¼«Γαá ¼Ñ¡ε. [æΓαÑ½¬á óóÑασ],[ßΓαÑ½¬á ó¡¿º],[PgUp],[PgDn],[Home] ¿ [End] »ÑαÑ¼Ñ- ΘáεΓ αá¼¬π »«óδΦÑ¡¡«⌐ ∩α¬«ßΓ¿ »« πß½πúá¼ ¼Ñ¡ε. 7.ÅÑαÑ¼ÑßΓ¿ΓÑ αá¼¬π »«óδΦÑ¡¡«⌐ ∩α¬«ßΓ¿ ¡á ParcelPost ¿ ¡áª¼¿ΓÑ [Enter]. îÑ¡ε ¿ßτÑº¡ÑΓ ¿ ParcelPost »«∩ó¿Γß∩ ó »«½Ñ ShipVia. ¥Γ«Γ »α¿¼Ñα »«¬áºδóáÑΓ, τΓ« DoWait ¼«ªÑΓ ñÑ½áΓ∞ ó ΓÑ- τÑ¡¿¿ Wait. Åα«µÑñπαá KeyDefine ¡á ñá¡¡«¼ φΓá»Ñ »ÑαÑ«»αÑ- ñÑ½∩ÑΓ τΓ« ñÑ½áÑΓ ¬½áó¿Φá [F1] (Help). çáΓÑ¼, »α«µÑñπαδ Setpopup ¿ Popup «»αÑñÑ½∩Γ ¿ óδ»«½¡∩Γ ¼Ñ¡ε ShipVia. éδ ¿ºπτ¿ΓÑ ¬á¬ αáí«ΓáεΓ φΓ¿ Σπ¡¬µ¿¿ ¡Ñß¬«½∞¬« »«ºñ¡ÑÑ. æÑ⌐τáß ªÑ, Γ«½∞¬« ºá¼ÑΓ¿¼, τΓ« «¡¿ «τÑ¡∞ φΣΣÑ¬Γ¿ó¡δ ¿ »αÑ- ñ«ßΓáó½∩εΓ »«½∞º«óáΓÑ½ε í«½∞Φ¿Ñ ó«º¼«ª¡«ßΓ¿ ñ½∩ óσ«ñá ó »«- ½Ñ. èßΓáΓ¿, Ñß½¿ éδ »«»δΓáÑΓÑß∞ óóÑßΓ¿ ¡ÑóÑα¡πε ºá»¿ß∞ ó »«½Ñ ShipVia, éδ »«½πτ¿ΓÑ ß««íΘÑ¡¿Ñ. 8.Å«ß½Ñ Γ«ú«, ¬á¬ éδ óδíÑα¿ΓÑ ¬πα∞Ñαá ñ½∩ ñ«ßΓáó¬¿ ºá- ¬áºá éδ «í¡áαπª¿ΓÑ ¬«Ñ τΓ« ¿¡ΓÑαÑß¡«Ñ. è«úñá ¬παß«α óδ⌐ñÑΓ ¿º »«½∩ ShipVia, «¡ »ÑαÑ¼ÑßΓ¿Γß∩ ó »«½Ñ Date, ¬«Γ«α«Ñ áó- Γ«¼áΓ¿τÑß¬¿ ºá»«½¡¿Γß∩. Å«Γ«¼ ¬παß«α »ÑαÑ¼ÑßΓ¿Γß∩ ó ß½Ññπ- εΘ±± »«½Ñ. Åα«úαá¼¼¿ßΓδ, ñ«ßΓ¿úΦ¿Ñ ß«óÑαΦÑ¡ßΓóá ¡á ∩ºδ¬Ñ PAL, ßαáºπ «Γ¼ÑΓ∩Γ »α«ßΓ«Γπ ¿ ¼«Θ¡«ßΓ∞ φΓ«ú« ñÑ⌐ßΓó¿∩. àß½¿ íδ éδ ¿ß»«½∞º«óá½¿ Wait, Γ« φΓ«ú« »α«ßΓ« ¡Ñó«º¼«ª¡« íδ½« íδ ó«ß»- α«¿ºóÑßΓ¿. é ñá¡¡«¼ ªÑ ß½πτáÑ, DoWait íδ½ ¿ß»«½∞º«óá¡ ñ½∩ áóΓ«¼áΓ¿τÑß¬«ú« óδº«óá »α«µÑñπαδ »ÑαÑñ óσ«ñ«¼ ó »«½Ñ. DoWait αáßß¬áºá½, ¬á¬ αÑáú¿α«óáΓ∞ ¡á óó«ñ ¡Ñºá»«½¡Ñ¡¡«ú« »«½∩ Date: éº∩Γ∞ ñáΓπ ßÑú«ñ¡∩Φ¡Ñú« ñ¡∩, ºá»«½¡¿Γ∞ ÑÑ ¿ »ÑαÑ⌐Γ¿ ¬ ß½Ññπ- εΘÑ¼π »««½ε. 9.ä½∩ Γ«ú«, τΓ«íδ πº¡áΓ∞ í«½∞ΦÑ « Γ«¼, τΓ« ¼«ªÑΓ Toolkit, óó«ñ¿ΓÑ ¿ñÑ¡Γ¿Σ¿¬áΓ«α ºá¬áºτ¿¬á: ID 1386. Å«ß½Ñ ¬«α«Γ¬«⌐ »áπºδ ºá»«½¡∩ÑΓß∩ »«½Ñ "ê¼∩","Çñ- αÑß","â«α«ñ","ÿΓáΓ","ê¡ñÑ¬ß","ÆÑ½ÑΣ«¡" ¿ "æ¬¿ñ¬á", ¿ ¬παß«α »ÑαÑ¼ÑßΓ¿Γß∩ ó »«½Ñ Quantaty ("è«½¿τÑßΓó«"). 10.àß½¿ éδ óóÑñÑΓÑ ¡«¼Ñα ºá¬áºτ¿¬á (ID), ¬«Γ«α«ú« ¡ÑΓ ó ú½áó¡«¼ Σá⌐½Ñ, éδ »«½πτ¿ΓÑ ºáñá¡¿Ñ ½¿í« »«óΓ«α¿Γ∞ óó«ñ, ñ«íáó½∩∩ ¡«óπε ¿¡Σ«α¼áµ¿ε « ºá¬áºτ¿¬Ñ ó «ß¡«ó¡«⌐ Σá⌐½, ½¿í« «íαáΓ¿Γ∞ß∩ ºá »«¼«Θ∞ε. 11.ôß½πúá Help (Å«¼«Θ∞). Åα«úαá¼¼á »«ºó«½¿Γ éá¼ »α«ß- ¼«ΓαÑΓ∞ Γáí½¿µπ Customer ñ½∩ Γ«ú«, τΓ«íδ ¡á⌐Γ¿ ¿¡ΓÑαÑßπεΘ¿⌐ (»αáó¿½∞¡δ⌐) ¡«¼Ñα ºá¬áºτ¿¬á ID. ¥Γ« ¿½½εßΓαáµ¿¿ DoWait, GoodDepart ¿ BadDepart »α«- µÑñπα. é φΓ«¼ ß½πτáÑ, Γ.¬. ¡«¼Ñαá ºá¬áºτ¿¬á óóÑñÑ¡¡«ú« éá¼¿ ¡Ñ íδ½« ó Γáí½¿µÑ, DoWait óδºóá½ »α«µÑñπαπ BadDepart. Äíδτ¡« »«½∞º«óáΓÑ½∞ ¡Ñ ¼«ªÑΓ óδ⌐Γ¿ ¿º »«½∩, »«¬á ¡Ñ »α«¿º- óÑñÑΓ ¬«ααÑ¬Γ¡δ⌐ óó«ñ (¿ßσ«ñ¡á∩ »α«µÑñπαá ¼«ªÑΓ ¡Ñ »α¿¡¿- ¼áΓ∞ ó« ó¡¿¼á¡¿Ñ φΓ¿ ΓαÑí«óá¡¿∩, »«ºó«½∩εΘ¿Ñ »«½∞º«óáΓÑ½ε «Γ¬áºáΓ∞ß∩ ñáªÑ Ñß½¿ óóÑñÑ¡¡δÑ ñá¡¡δÑ ¡Ñ ñÑ⌐ßΓó¿ΓÑ½∞¡δ). 12.àß½¿ óδ óóÑñÑΓÑ ñ«»πßΓ¿¼δ⌐ ¡«¼Ñα ºá¬áºτ¿¬á (ID) ¿ »«Γ«¼ »ÑαÑóÑñÑΓÑ ¬παß«α «íαáΓ¡« ¬ »«½ε Cust ID ¿ ¡áª¼ÑΓÑ ¬½áó¿Φπ [Enter] íÑº ¿º¼Ñ¡Ñ¡¿∩ ß«ñÑαª¿¼«ú« »«½∩ ID, ¬παß«α »ÑαÑ¼ÑßΓ¿Γß∩ ¡á »«½Ñ Discount ("æ¬¿ñ¬á"), »αÑñ«ßΓáó½∩∩ éá¼ ó«º¼«ª¡«ßΓ∞ óóÑßΓ¿ ß»Ñµ¿á½∞¡πε ß¬¿ñ¬π. Æ.¬. ñá¡¡δÑ « ºá¬áº- τ¿¬Ñ ¡Ñ ¿º¼Ñ¡¿½¿ß∞, ¡ÑΓ ¡Ñ«íσ«ñ¿¼«ßΓ¿ ó »ÑαÑ¬«ñ¿α«óá¡¿¿. 13.ÅÑαÑ⌐ñÑ¼ ¬ »«½ε Quantaty (¬«½¿τÑßΓó«). ìáª¼¿ΓÑ [F10]. Å«∩ó¿Γß∩ ¼Ñ¡ε αÑñá¬Γ¿α«óá¡¿∩. 14.ÅÑαÑ⌐ñ¿ΓÑ ¬ »«½ε Part. ìáª¼¿ΓÑ Help [F1]. èπαß«α íπñÑΓ »ÑαÑóÑñÑ¡ ¬ Γáí½¿µÑ Stock, ¬ »«½ε Part, úñÑ éδ ¼«- ªÑΓÑ óδíαáΓ∞ »«ñσ«ñ∩Θ¿⌐ ¡«¼Ñα τáßΓ¿ (Part) ¿, ºáΓÑ¼, ¡áª¼¿- ΓÑ Do-It [F2] ñ½∩ Γ«ú«, τΓ«íδ óóÑßΓ¿ ¿¡Σ«α¼áµ¿ε ó Σ«α¼π. Å«½∩ Subtotal, Discount,Tax ¿ Total ¿º¼Ñ¡∩Γ∞ß∩ áóΓ«¼á- Γ¿τÑß¬¿ »α¿ óó«ñÑ óáΦÑú« ºá¬áºá. éßÑ φΓ« «»∩Γ∞ »α«¿ßσ«ñ¿Γ ºá ßτÑΓ ó«º¼«ª¡«ßΓÑ⌐ DoWait óδ»«½¡∩Γ∞ »α«µÑñπαπ, »«¬á ßπ- ΘÑßΓóπÑΓ »«½Ñ ( ó φΓ«¼ ß½πτáÑ »«½∩ Quantaty, Discount ¿½¿ Part, ¬áªñ«Ñ ¿º ¬«Γ«αδσ ¼«ªÑΓ ó½¿∩Γ∞ ¡á ñαπú¿Ñ). êß»«½∞º«- óá¡¿Ñ »α«ß¼«Γαá Γáí½¿µ ¡Ñ ¿¼ÑεΓ ¡¿¬á¬«ú« ñÑ⌐ßΓó¿∩ ó φΓ«¼ »α¿¼ÑαÑ, »«¬á ¡«¼Ñα τáßΓ¿ ó½¿∩ÑΓ ¡á «íΘπε ßΓ«¿¼«ßΓ∞ ºá¬áºá. êß»«½∞ºπ∩ Toolkit, τΓ«íδ ß«ºñáΓ∞ »α«µÑñπαπ ó«ºóαáΓá, éδ π»αáó½∩ÑΓÑ »α«ß¼«Γα«¼, ºá»«½¡Ñ¡¿Ñ¼ ¿ óδτ¿ß½Ñ¡¿∩¼¿ óßÑú« ½¿Φ∞ Ññ¿¡ßΓóÑ¡¡δ¼ óδº«ó«¼ »α«µÑñπαδ. Å«ß¬«½∞¬π óßÑ »«½∩ Quantaty, Discount ¿ Part ó½¿∩εΓ ¡á ¬«¡Ñτ¡δ⌐ «íΘ¿⌐ ºá¬áº, éδ ¼«ªÑΓÑ ºá»¿ßáΓ∞ «ñ¿¡ αáº »α«µÑñπαπ óδτ¿ß½Ñ¡¿∩ ¿ óδºδóáΓ∞ ÑÑ ¿º ó¡πΓαÑ¡¡¿σ »α«µÑñπα ó«ºóαáΓá, ¿ß»«½∞ºπÑ¼δσ ñ½∩ φΓ«ú« »«½∩. éδ Γá¬ªÑ ¼«ªÑΓÑ ¿ß»«½∞º«óáΓ∞ »ÑαÑ¼Ñ¡¡πε Toolkit'á ß ¿¼Ñ¡Ñ¼ TKChanged ó φΓ«⌐ »α«µÑñπαÑ ñ½∩ Γ«ú«, τΓ«íδ ó¿ñÑΓ∞ - ÑßΓ∞ ½¿ ¡Ñ«íσ«ñ¿¼«ßΓ∞ »α«¿ºó«ñ¿Γ∞ óδτ¿ß½Ñ¡¿∩ (Ñß½¿ TKChanged = True, Γ« éá¼ ¡Ñ«íσ«ñ¿¼δ óδτ¿ß½Ñ¡¿∩, Ñß½¿ ¡ÑΓ, Γ« éδ ¼«ªÑΓÑ ñó¿úáΓ∞ß∩ ñá½∞ΦÑ). 15.ìáíÑα¿ΓÑ 1 ó »«½Ñ Quantaty ¿ ¡áª¼¿ΓÑ [Enter]. èπα- ß«α »ÑαÑ¼ÑßΓ¿Γß∩ ¬ »«½ε Part#. 16.ä½∩ Γ«ú«, τΓ«íδ óδí¿αáΓ∞ ¡«¼Ñα τáßΓ¿ ¿º Γáí½¿µδ, ¡áª¼¿ΓÑ Help [F1]. ÅÑαÑ¼ÑßΓ¿ΓÑ ¬παß«α ¬ ßá¼«⌐ »αáó«⌐ ºá»¿ß¿ ¿ ¡áª¼¿ΓÑ Do-It![F2]. ([Esc] »αÑ¬αáΓ¿Γ »α«ß¼«Γα). 17.éδíÑα¿ΓÑ (¿½¿ óóÑñ¿ΓÑ) 76848, Compag Portable 286 ¬«¼»∞εΓÑα. Å«¼¿¼« ºá»«½¡Ñ¡¿∩ ó Part (τáßΓ∞) ¿¡Σ«α¼áµ¿¿, »α«µÑñπαá ó«ºóαáΓá óδτ¿ß½∩ÑΓ ß½ÑñπεΘ¿Ñ »«½∩: Subtotal, Discount, Tax ¿ Total. 18.ä½∩ Γ«ú« , τΓ«íδ »«¬¿¡πΓ∞ ñÑ¼«¡ßΓαáµ¿ε óó«ñá ñá¡- ¡δσ, ¡áª¼¿ΓÑ Do-It! [F2], Γ«τ¡« Γá¬, ¬á¬ íπñΓ« éδ ¡áσ«ñ¿- ΓÑß∞ ó αÑúπ½∩α¡δσ »α¿½«ªÑ¡¿∩σ óó«ñá ñá¡¡δσ. êº Demo »α«úαá¼¼á »α¿ó«ñ¿Γ éáß ó Toolkit îÑ¡ε, ó¼ÑßΓ« Γ«ú«, τΓ«íδ ß«σαá¡∩Γ∞ ¿¡Σ«α¼áµ¿ε ó Γáí½¿µáσ. Å«ß¬«½∞¬π φΓá ñÑ¼«¡ßΓαáµ¿∩ ¡Ñ ∩ó½∩ÑΓß∩ ºáóÑαΦÑ¡¡δ¼ »α¿½«ªÑ¡¿Ñ¼, óóÑñÑ¡¿Ñ éáΦ¿σ ñá¡¡δσ ¡Ñ ºá»¿ßδóáÑΓß∩ ó íáº«óδÑ Γáí½¿µδ. æ¬α¿»Γ ß ¿¼Ñ¡Ñ¼ Post ¡á ñ¿ß¬Ñ ß«ñÑαª¿Γ »α¿¼Ñα Γ«ú«, ¬á¬ ¿¡Σ«α¼áµ¿∩ ¼«ªÑΓ íδΓ∞ ß«σαá¡Ñ¡á. äÑ¼«¡ßΓαáµ¿∩ ¿ß»«½∞ºπÑΓ ¡Ñß¬«½∞¬« «ß«íÑ¡¡«ßΓÑ⌐ Σ«α¼á- Γ¿α«óá¡¿∩ ÅÇÉÇäÄèæá, ñ½∩ Γ«ú«, τΓ«íδ π»αáó½∩Γ∞ óó«ñ«¼ ñá¡- ¡δσ ó Σ«α¼π. ¥Γ¿ «ß«íÑ¡¡«ßΓ¿ ¡Ñ ∩ó½∩εΓß∩ τáßΓ∞ε Date Entry Toolkit, á ßΓá¡ñáαΓ¡δ¼ ¬«¡Γα«½Ñ¼ »αáó¿½∞¡«ßΓ¿, »α¿¼Ñ¡¿¼δ¼ ¬ ½εíδ¼ »α¿½«ªÑ¡¿∩¼ ÅÇÉÇäÄèæá. ìá»α¿¼Ñα, Ñß½¿ éδ óó«ñ¿ΓÑ ¡«- óπε ¿¡Σ«α¼áµ¿ε « ºá¬áºτ¿¬Ñ, éδ «í¡áαπª¿ΓÑ, τΓ« ó »«½Ñ "ê¼∩" ¿ ó »«½Ñ "ÇñαÑß" »ÑαóδÑ ß¿¼ó«½δ ßΓá¡«ó∩Γß∩ ºáú½áó¡δ¼¿ áóΓ«- ¼áΓ¿τÑß¬¿, »«ßαÑñßΓó«¼ ¿ß»«½∞º«óá¡¿∩ ¼áß¬¿ Valcheck («úαá- ¡¿τÑ¡¿Ñ µÑ½«ßΓ¡«ßΓ¿) * { ,.}!* {{ ,.} * { ,.}!,@} Å«½Ñ "ÆÑ½ÑΣ«¡#" Γá¬ªÑ ¿ß»«½∞ºπÑΓ ¬«¡Γα«½∞ »αáó¿½∞¡«ß- Γ¿, πß«óÑαΦÑ¡ßΓó«óá¡¡δ⌐ »α«µÑñπαá¼¿ FillPhone ¿ NormalPhone ó MakeDemo, ñ½∩ Γ«ú«, τΓ«íδ ¿¼ÑΓ∞ ó«º¼«ª¡«ßΓ∞ óó«ñ¿Γ∞ ¡«¼Ñα ΓÑ½ÑΣ«¡á ó ½εí«¼ ¿º ΓαÑσ ¿¼ÑεΘ¿σß∩ Σ«α¼áΓ«ó. îáß¬á ó¿ñá ###-#### ¡Ñ »«ºó«½¿Γ éá¼ »«¬¿¡πΓ∞ »«½Ñ áóΓ«¼áΓ¿τÑß¬¿ , »«¬á ¡Ñ íπñÑΓ óóÑñÑ¡« »«½Ñ ¬«ñá ¿ »ÑαóδÑ τÑΓδαÑ µ¿Σαδ, ¬á¬ ó ###-###-#. éóÑñÑ¡¿Ñ ###-###-#### ¿½¿ (###)###-#### »α¿óÑñÑΓ ¬ áóΓ«- ¼áΓ¿τÑß¬«¼π óδó«ñπ ¿º »«½∩. Åα«óÑαΓÑ ¬«ñ PAL ó ß¬α¿ΓÑ makedemo ¿, Γá¬ªÑ, αáºαáí«Γ- ¬π ¿ ßΓαπ¬Γπαπ Σ«α¼δ Tkentry, Ñß½¿ éδ ºáσ«Γ¿ΓÑ »«ß¼«ΓαÑΓ∞, ¬á¬ ñ«»«½¡¿ΓÑ½∞¡δÑ «ß«íÑ¡¡«ßΓ¿ Toolkit'á íδ½¿ ß«Ññ¿¡Ñ¡δ ó Ññ¿¡«Ñ µÑ½«Ñ ß íáº«óδ¼¿ ó«º¼«ª¡«ßΓ∩¼¿ ÅÇÉÇäÄèæá. æÑ⌐τáß, ¬«úñá π éáß »«∩ó¿½ß∩ "ó¬πß" ¬ Γ«¼π, ¬á¬ Data Entry Toolkit ¼«ªÑΓ »«¼«τ∞ éá¼, ñáóá⌐ΓÑ »«¬«»áÑ¼ ó« ó¡πΓ- αÑ¡¡«ßΓ∩σ τáßΓÑ⌐ Ñú« ¬«¼»«¡Ñ¡Γ«ó ¿ »«ß¼«Γα¿¼, ¬á¬ éδ ¿ß- »«½∞ºπÑΓÑ ¿σ ñ½∩ »«ßΓα«Ñ¡¿∩ »α¿½«ªÑ¡¿⌐ ß «ß«íÑ¡¡«ßΓ∩¼¿, ¬«- Γ«αδÑ éδ πºαÑ½¿ ó« óαÑ¼∩ ¡áΦÑ⌐ ñÑ¼«¡ßΓαáµ¿¿. æ«ºñá¡¿Ñ ñÑ¼«¡ßΓαáµ¿«¡¡«ú« ß¬α¿»Γá. Åα«µÑñπαδ Date Entry Toolkit, »α¿ú«ñ¡δÑ ñ½∩ éáΦÑú« ¿ß- »«½∞º«óá¡¿∩, σαá¡∩Γß∩ ó í¿í½¿«ΓÑ¬Ñ ß ¿¼Ñ¡Ñ¼ toolkit. ìÑ¬«- Γ«αδÑ ñ«»«½¡¿ΓÑ½∞¡δÑ »α«µÑñπαδ (¡Ñ ñ½∩ »α∩¼«ú« ¿ß»«½∞º«óá- ¡¿∩ ó éáΦ¿σ »α¿½«ªÑ¡¿∩σ) σαá¡∩Γß∩ ó í¿í½¿«ΓÑ¬Ñ ß ¿¼Ñ¡Ñ¼ toolkit2. ä½∩ Γ«ú«, τΓ«íδ ¿ß»«½∞º«óáΓ∞ ½εíπε ¿º φΓ¿σ »α«µÑ- ñπα ó ß¬α¿»ΓÑ, óδ ñ«½ª¡δ »α«⌐Γ¿ τÑαÑº í¿Γ ú«Γ«ó¡«ßΓ¿. çñÑß∞ »ÑαÑτ¿ß½Ñ¡δ Φáú¿, ¡Ñ«íσ«ñ¿¼δÑ ñ½∩ ß«ºñá¡¿∩ ñÑ¼«¡ßΓαáµ¿«¡¡«- ú« ß¬α¿»Γá: - ß«ºñáΓ∞ Γáí½¿µδ; - ß«ºñáΓ∞ »α«µÑñπαδ ñ½∩ óδ»«½¡Ñ¡¿∩ ó αá¼¬áσ DoWait; - «»αÑñÑ½¿Γ∞ »α«µÑñπαδ, ¿ß»«½∞ºπ∩ FieldDefine; - »α¿ßó«¿Γ∞ º¡áτÑ¡¡¿∩ ¬½áó¿Φá¼, ¿ß»«½∞ºπ∩ KeyDefine; - ß«íαáΓ∞ φ½Ñ¼Ñ¡Γδ ó ß¬α¿»Γ. æ«ºñá¡¿Ñ Γáí½¿µ. ÅÑαóδ¼ Φáú«¼ íδ½« ß«ºñá¡¿Ñ Γáí½¿µ, ¿ß»«½∞ºπÑ¼δσ ó »α¿- ½«ªÑ¡¿¿. ¥Γ« íδ½¿ Γáí½¿µδ Cust, Orders ¿ Stock, á Γá¬ªÑ Γáí½¿µπ - ¿ßΓ«τ¡¿¬ ñ½∩ ¼π½∞Γ¿óó«ñá Tkentry. ìá¿¼Ñ¡ÑÑ ∩ß¡á ¡Ñ«íσ«ñ¿¼«ßΓ∞ ß«ºñá¡¿∩ ¡Ñ¬«Γ«αδσ ß»Ñµ¿á½∞¡δσ Γáí½¿µ. ìá»α¿- ¼Ñα, ¼δ ß«ºñá½¿ Γáí½¿µπ ß ¿¼Ñ¡Ñ¼ Carriers (¿ß»«½∞ºπÑ¼πε »«ñß¿ßΓÑ¼«⌐ "óÑαΓ¿¬á½∞¡«ú«" ¼Ñ¡ε), úñÑ SetPopup ºá»«¼¿¡áÑΓ ¿¼Ñ¡á "shippers" ñ½∩ »«½∩ Ship Via. èá¬ τáßΓ∞ φΓ«ú« Φáúá, ¼δ Γá¬ªÑ ß«ºñá½¿ Σ«α¼π óó«ñá ñá¡¡δσ, ¬«Γ«απε σ«ΓÑ½¿ ¿ß»«½∞- º«óáΓ∞. æ«ºñá¡¿Ñ »α«µÑñπα. Åα«µÑñπαδ íδ½¿ »«Γ«¼ ß«ºñá¡δ ñ½∩ ¬áªñ«⌐ ¿º Σ¬¡¬µ¿⌐, ¬«Γ«αδÑ ¼δ σ«ΓÑ½¿ ¿ß»«½∞º«óáΓ∞ ó αá¼¬áσ »α«µÑñπαδ DoWait. ìá»α¿¼Ñα, ¬«úñá »«½∞º«óáΓÑ½∞ »δΓáÑΓß∩ »«¬¿¡πΓ∞ »«½Ñ Invoice#, ¼δ »α«óÑα∩Ñ¼, óóÑ½ ½¿ «¡ ¡«¼Ñα invoice (¡á¬½áñ- ¡«⌐). ÄßπΘÑßΓó½∩ÑΓ Γá¬«⌐ ¬«¡Γα«½∞ »α«µÑñπαá Reqd: PROC Reqd() IF ISBLANK([]) AND TKChar<>TKUndo AND TKChar<>TKUndo AND TKChar<>TKCancel THEN TKAccept = False ; ignore movement key that was pressed (stay here) TKMessage="An invoice number must be provided." ENDIF ENDPROG ä½∩ ¬áªñ«⌐ ºáñáτ¿, óδ»«½¡∩Ñ¼«⌐ DoWait, ¼δ ß«ºñáóá½¿ »α«µÑñπαπ (ß¼. ß¬α¿»Γ makedemo ¡á ñ¿ß¬Ñ Toolkit). ìáº¡áτÑ¡¿Ñ (»α¿ßóá¿óá¡¿Ñ) »α«µÑñπα. çáΓÑ¼ ¼δ "»α«¿úαá½¿" ß¬α¿»Γ toolkit ¿ óδíαá½¿ Fild Define. FildDefine ¿ß»«½∞ºπÑΓß∩ ñ½∩ Γ«ú«, τΓ«íδ "αáßß¬á- ºáΓ∞" DoWait « »α«µÑñπαáσ, «»αÑñÑ½Ñ¡¡δσ óδΦÑ: ¬á¬¿Ñ »α«µÑ- ñπαδ αáí«ΓáεΓ ñ½∩ ¬á¬«ú« »«½∩ ¿ ¬«úñá ¡Ñ«íσ«ñ¿¼« ¿σ óδ»«½- ¡¿Γ∞ (»ÑαÑñ óσ«ñ«¼ ó »«½Ñ, »ÑαÑñ »«»δΓ¬«⌐ »«¬¿¡πΓ∞ »«½Ñ ¿ Γ.ñ.). ùÑΓδαÑ Γ¿»á »α«µÑñπα ¼«úπΓ íδΓ∞ ¡áº¡áτÑ¡δ ñ½∩ ¬áªñ«- ú« »«½∩: - Arrive (»α¿íδΓ¿Ñ): éδ»«½¡∩ÑΓß∩ ó Γ«Γ ¼«¼Ñ¡Γ, ¬«úñá ¬παß«α »«ñó«ñ¿Γß∩ ¬ »«½ε. - GoodDepart (¡«α¼á½∞¡δ⌐ óδσ«ñ): éδ»«½¡∩ÑΓß∩, ¬«úñá »«½∞º«óáΓÑ½∞ »δΓáÑΓß∩ »«¬¿¡πΓ∞ »«½Ñ ¿ ñá¡¡δÑ πñ«ó½ÑΓó«α∩εΓ óßÑ¼ πß½«ó¿∩¼ »α«óÑα¬¿ »αáó¿½∞¡«ßΓ¿. - BadDepart (»½«σ«Ñ ºáóÑαΦÑ¡¿Ñ): éδ»«½¡∩ÑΓß∩, ¬«úñá »«½∞º«óáΓÑ½∞ »δΓáÑΓß∩ óδ⌐Γ¿ ¿º »«½∩ ¿ ñá¡¡δÑ, ¬«Γ«αδÑ «¡ óóÑ½, ¡Ñ ¬«ααÑ¬Γ¡δ. - Keystroke (¡áªáΓ¿Ñ ¬½áó¿Φ¿): éδ»«½¡∩ÑΓß∩ »«ß½Ñ ¬áª- ñ«ú« ¡áªáΓ¿∩ ¬½áó¿Φ¿ (¡áªáΓ¿∩ ¬½áó¿Φ »«ñαáºñÑ½∩εΓß∩ ¡á ¬á- ΓÑú«α¿¿, ¿ß»«½∞ºπÑ¼δÑ »α«µÑñπα«⌐ KeyDefine). é »α¿óÑñÑ¡¡«¼ ¡¿ªÑ »α¿½«ªÑ¡¿¿ ¼δ «»αÑñÑ½¿½¿ »α«µÑñπαπ ß ¿¼Ñ¡Ñ¼ FillDate (ºá»«½¡Ñ¡¿Ñ ñáΓδ), ¬«Γ«αá∩ óδ»«½¡∩ÑΓß∩ »α¿ »«»áñá¡¿¿ ¬παß«αá ó »«½Ñ Date (ñáΓá): PROC FillDate() IF ISBLANK([]) THEN IF (TLChar=TKReverseTab) OR (TKChar=TKLeft) ; Did we arrive from next field? THEN LEFT ; Yes, so continue along backwards through field? ELSE RIGHT ; No, so move to next field ENDIF ; Date filled in by ValCheck ArriveField() ; Tell DoWait we've left the field it thinks we're in ENDIF ENDPROC ¥Γá »α«µÑñπαá ºá»«½¡∩ÑΓ ñáΓπ (¿ß»«½∞ºπ∩ »« π¼«½τá¡¿ε ñáΓπ ßÑú«ñ¡∩Φ¡Ñú« ñ¡∩) ¿ »«¬¿ñáÑΓ »«½Ñ. àß½¿ »«½∞º«óáΓÑ½∞ »«ºñ¡ÑÑ ó«ºóαáΓ¿Γß∩ ó φΓ« »«½Ñ, Γ« »α«µÑñπαá ¡Ñ «¬áªÑΓ ¡¿¬á¬«ú« φΣΣÑ¬Γá, »«ß¬«½∞¬π ó »«½Ñ ¡áσ«ñ¿Γß∩ ¿¡Σ«α¼áµ¿∩ (»«½Ñ ¡Ñ »πßΓ«). îδ Γá¬ªÑ »α«óÑα∩Ñ¼, óó«ñ¿Γ ½¿ »«½∞º«óáΓÑ½∞ [ReverseTab] ¿½¿ [Left] ñ½∩ Γ«ú«, τΓ«íδ »«»áßΓ∞ ó φΓ« »«½Ñ. Åα¿ßóá¿óá¡¿Ñ ¬½áó¿Φá¼ «»αÑñÑ½Ñ¡¡δσ ñÑ⌐ßΓó¿⌐. æ½ÑñπεΘÑ⌐ óδ»«½¡∩Ñ¼«⌐ »«ñß¿ßΓÑ¼«⌐ Toolkit'á ∩ó½∩ÑΓß∩ KeyDefine. KeyDefine ¿ß»«½∞ºπÑΓß∩ ñ½∩ Γ«ú«, τΓ«íδ «»αÑñÑ- ½¿Γ∞ »α¿¡áñ½Ñª¡«ßΓ∞ ¬½áó¿Φ¿ ¬ «ñ¡«¼π ¿º τÑΓδαÑσ ó«º¼«ª¡δσ Γ¿»«ó. - Regular: è½áó¿Φ¿ ó«ß»α¿¡¿¼áεΓß∩ ó ß««ΓóÑΓßΓó¿¿ ß ¿σ αÑúπ½∩α¡δ¼ º¡áτÑ¡¿Ñ¼ («íδτ¡« Ç-z, Ä-9, ¬½áó¿Φ¿ »ÑαÑ¼ÑΘÑ¡¿∩ ¬παß«αá ¿ Γ«¼π »«ñ«í¡δÑ). - Illegal (¡ÑαáºαÑΦÑ¡¡δ⌐): ô¬áºδóáÑΓ, τΓ« ¬½áó¿Φá ¡Ñ ¼«ªÑΓ íδΓ∞ »α¿¡∩Γá ¿ »α¿ φΓ«¼ »«ñáÑΓß∩ ºóπ¬«ó«⌐ ß¿ú¡á½. éδ, ¡á»α¿¼Ñα, ¼«ªÑΓÑ ßñÑ½áΓ∞ ¬½áó¿Φπ [F9] ºá»αÑΘÑ¡¡«⌐ ¿ «¡á ¡Ñ íπñÑΓ óδ»«½¡∩Γ∞ ßó«¿ Σπ¡¬µ¿¿ (αÑñá¬Γ¿α«óá¡¿Ñ). - Exit (óδσ«ñ): è½áó¿Φá, ¬«Γ«αá∩ óδó«ñ¿Γ ¿º »α«µÑñπαδ DoWait (á¡á½«ú¿τ¡« ¡áªáΓ¿ε ¬½áó¿Φ¿ [UNTIL] ó ¬«¼á¡ñÑ Wait). - Special: ¥Γá ¬½áó¿Φá óδºδóáÑΓ ¡áº¡áτÑ¡¡δÑ »α«µÑñπαδ óß∩¬¿⌐ αáº, ¬«úñá ÑÑ ¡áª¿¼áεΓ. é ¡áΦÑ¼ »α¿¼ÑαÑ ¬½áó¿Φá îÑ¡ε [F10] «»αÑñÑ½∩ÑΓß∩ ¬á¬ ß»Ñµ¿á½∞¡á∩, ¬«Γ«αá∩ óδºδóáÑΓ ¼Ñ¡ε αÑñá¬Γ¿α«óá¡¿∩ ó¡Ñ ºáó¿- ß¿¼«ßΓ¿ «Γ »«½∩, ó ¬«Γ«α«¼ ¡áσ«ñ¿Γß∩ ¬παß«α: PROC SpecialKey() SWITCH CASE TKChar=TKHelp: ; »«½∞º«óáΓÑ½∞ ¡áªá½ [F1] CASE TKChar=TKMenu: ; »«½∞º«óáΓÑ½∞ ¡áªá½ [F10] EditMenu() ; »«¬áº ¼Ñ¡ε Toolkit's Edit ENDSWITH ENDPROC çá»πß¬ ß¬α¿»Γá. Ä¬«¡τáΓÑ½∞¡«, ¼δ íÑαÑ¼ »α«µÑñπαδ, «»αÑñÑ½Ñ¡¡δÑ αá¡ÑÑ ¿ ßΓα«¿¼ ¿º ¡¿σ ¬«¡Ñτ¡δ⌐ »α«ñπ¬Γ (ß¬α¿»Γ). ÅÑαóá∩ »α«µÑñπαá ó ¡áΦÑ¼ »α¿½«ªÑ¡¿¿ (»«ß¬«½∞¬π ß¬α¿»Γ toolkit π»αáó½∩ÑΓ ¿¡¿µ¿- á½¿ºáµ¿Ñ⌐) ß«ßΓ«¿Γ ¿º ß½ÑñπεΘ¿σ «»ÑαáΓ«α«ó: READLIB "toolkit" InitWait, SetKeykodes,SetPopup ; ºáúαπº¬á »α«µÑñπαδ ¿¡¿µ¿á½¿ºáµ¿¿ ó »á¼∩Γ∞ InitWait("FldSpec","KeySpec) ; ß««íΘÑ¡¿Ñ DoWait'π, úñÑ ¿ß- ¬áΓ∞ «»αÑñÑ½Ñ¡¿Ñ ¬½ετá ¿ »«½∩ SetKeycodes() ; πßΓá¡«ó¬á ¬«ñ«ó ¬½áó¿Φ SetPopup("Carriers") ; »α¿óÑßΓ¿/ ó ú«Γ«ó¡«ßΓ∞ ShipVia RELEASE PROCS InitWait, SetKeycodes, SetPopup ; í«½∞ΦÑ ¡ÑΓ ¡Ñ«íσ«ñ¿¼«ßΓ¿ ó »α«µÑñπαÑ ¿¡¿µ¿á½¿ºáµ¿¿ AreaCode="(415)" TaxRate=.0725 çá¼Ñτá¡¿Ñ. ÅαÑñ½«ªÑ¡¡δ⌐ Σαáú¼Ñ¡Γ ¡Ñ ∩ó½∩ÑΓß∩ ºá¬«¡τÑ¡- ¡δ¼ »α¿½«ªÑ¡¿Ñ¼, á Γ«½∞¬« ½¿Φ∞ ñÑ¼«¡ßΓαáµ¿Ñ⌐. ¥Γ¿ »α«úαá¼¼δ ¡áτá½∞¡«⌐ πßΓá¡«ó¬¿ ñ«½ª¡δ íδΓ∞ óδ»«½¡Ñ¡δ ó ¡áτá½Ñ »α¿½«ªÑ- ¡¿∩, á ¡Ñ ó ¡áτá½Ñ í½«¬á óó«ñá ñá¡¡δσ éáΦÑú« »α¿½«ªÑ¡¿∩. æ½ÑñπεΘÑ⌐ ¿¡¿µ¿á½¿ºáµ¿Ñ⌐ ¼δ ¡áτ¿¡áÑ¼ πßΓá¡áó½¿óáΓ∞ ¡Ñ- «íσ«ñ¿¼δÑ ¡á¼ Γáí½¿µδ ó αáí«τÑÑ »α«ßΓαá¡ßΓó«: PROC DataEntry() SETSWAP 12000 READLIB "DemoApp" Reqd,FillDate,DateLeave,CustLeave, ResetSpecs,ChangeDisk,SpecialKey,FindPart,ChangeQuan,DoTotal, FillSubtotal,BadID,BadCarrier,GetCust,NoUp,NoUpLeft, NoDownRight,NormalPhone,FillPhone,LookupSelect READLIB TKLibName EditMenu CLEARALL VIEW "cust" COEDIT "TKEntry" PICKFORM "F" PROMPT "Entering invoice information.", "Press [F1] for help, [F10] for menu." DoWait("") PROMPT RELEASE PROCS Reqd,FillDate,DateLeave,CustLeave, ResetSpecs,ChangeDisc,SpecialKey,FindPart,ChangeQuan,DoTotal, FillSubtotal,BadID,BadCarrier,GetCust,NoUp,NoUpLeft, NoDownRight,NormalPhone,FillPhone,LookupSelect,EditMenu ENDPROC READLIB "DemoApp" DataEntry DataEntry() àß½¿ íδ φΓ« íδ½« ºáóÑαΦÑ¡¡«Ñ »α¿½«ªÑ¡¿Ñ, ¡á¼ ¡Ñ«íσ«ñ¿- ¼« íδ½« íδ ñ«íáó¿Γ∞ τΓ«-¡¿íπñ∞ »«σ«ªÑÑ ¡á ¬«¡Ñµ »α«µÑñπαδ DoWait: IF retval=TKcancel THEN RESET ELSE DO_IT! ENDIF æ¬α¿»Γ post ß«ñÑαª¿Γ ¿¡Σ«α¼áµ¿ε, ¬«Γ«αá∩ »«¼«ªÑΓ éá¼ »«ß½áΓ∞ ¿¡Σ«α¼áµ¿ε óó«ñá ñá¡¡δσ ó ß««ΓóÑΓßΓóπεΘπε Γáí½¿µπ ñá¡¡δσ. Ç¡á½«ú¿τ¡«, »α«úαá¼¼δ ¿¡¿µ¿á½¿ºáµ¿¿ íπñπΓ óδ»«½¡∩Γ∞ß∩ ó ¡áτá½Ñ éáΦÑú« »α¿½«ªÑ¡¿∩, á ¡Ñ ó ¡áτá½Ñ µ¿¬½á óó«ñá ñá¡- ¡δσ. èá¬ éδ ¼«ªÑΓÑ ó¿ñÑΓ∞, ¡Ñß¼«Γα∩ ¡á Γ«, τΓ« éδ ñ«½ª¡δ »α«óÑßΓ¿ ¡Ñ¬«Γ«απε »«ñú«Γ«ó¿ΓÑ½∞¡πε αáí«Γπ, ñ½∩ Γ«ú«, τΓ«íδ óßΓáó¿Γ∞ «»ÑαáΓ«α DoWait ó éáΦ ß¬α¿»Γ, »«½πτÑ¡¡δÑ αÑºπ½∞Γá- Γδ «¬π»∩Γ éáΦ¿ ºáΓαáΓδ. èα«¼Ñ Γ«ú«, óδí«α πß½πú KeyDefine, FieldDefine ¿ HelpForm ¿º ¼Ñ¡ε Toolkit íπñÑΓ íπñÑΓ áóΓ«¼á- Γ¿º¿α«óáΓ∞ í«½∞Φπε τáßΓ∞ αáí«Γ. éáΦá «ß¡«ó¡á∩ ºá ñáτá ß«ß- Γ«¿Γ ó ß«ºñá¡¿¿ »α«µÑñπα, ¬«Γ«αδÑ íπñπΓ ¿ß»«½∞º«óáΓ∞ß∩ ó »α«µÑßßÑ óó«ñá ñá¡¡δσ ¿, ºáΓÑ¼ óóÑßΓ¿ ¿¼Ñ¡á φΓ¿σ »α«µÑñπα ó ß««ΓóÑΓßΓóπεΘπε Γáí½¿µπ, ¿ß»«½∞ºπÑ¼πε ñ½∩ ß»Ñµ¿Σ¿¬áµ¿¿ »«- ½Ñ⌐. êß»«½∞º«óá¡¿Ñ FieldDefine. Demonstration *FieldDefine KeyDefine HelpForm PrepareFinal Quit Ä»αÑñÑ½Ñ¡¿Ñ »α«µÑñπα, óδºδóáÑ¼δσ DoWait Å«ñß¿ßΓÑ¼á FieldDefine ß«ºñáÑΓ ß¬α¿»Γ ¡á ∩ºδ¬Ñ PAL »« π¼«½τá¡¿ε ¡áºδóáÑ¼δ⌐ fldspec, ¬«Γ«αδ⌐ πßΓá¡áó½¿óáÑΓ »ÑαÑ- ¼Ñ¡¡δÑ, ¿ß»«½∞ºπÑ¼δÑ »α«µÑñπα«⌐ DoWait, ¬«Γ«αá∩ »α¿ »«¼«Θ¿ ¡¿σ π»αáó½∩ÑΓ »α«µÑñπαá¼¿, óδ»«½¡∩Ñ¼δ¼¿ »α¿ «»αÑñÑ½Ñ¡¡δσ πß½«ó¿∩σ ñ½∩ ¬áªñ«ú« »«½∩ ó éáΦÑ⌐ Γáí½¿µÑ óó«ñá ñá¡¡δσ. è«úñá éδ óδíÑαÑΓÑ πß½πúπ FieldDefine ¿º ¼Ñ¡ε Toolkit, ß¿ßΓÑ¼á »«»α«ß¿Γ π éáß ¿¼∩ ß¬α¿»Γá, ó ¬«Γ«α«¼ éδ σ«Γ¿ΓÑ ºá- »«¼¡¿Γ∞ »ÑαÑ¼Ñ¡¡δÑ: Script: FldSpec Enter the name of the script in which to store field specifications. àß½¿ ß¬α¿»Γ πªÑ ßπΘÑßΓóπÑΓ, ß¿ßΓÑ¼á »«»α«ß¿Γ éáß ½¿í« »αÑ¬αáΓ¿Γ∞, ½¿í« ¼«ñ¿Σ¿µ¿α«óáΓ∞ ßπΘÑßΓóπεΘ¿Ñ «»αÑñÑ½Ñ¡¿∩. àß½¿ ß¬α¿»Γ ¡Ñ ßπΘÑßΓóπÑΓ, éáß »«»α«ß∩Γ óóÑßΓ¿ ¿¼∩ Γáí½¿µδ, ß«ñÑαªáΘÑ⌐ »«½∩ óó«ñá ñá¡¡δσ ñ½∩ Γ«ú«, τΓ«íδ «»αÑ- ñÑ½¿Γ∞ »α«µÑñπαδ: Table: TKEntry Enter the name of the underlying data entry table. çáΓÑ¼ éδ πó¿ñ¿ΓÑ Γáí½¿µπ ß»Ñµ¿Σ¿¬áµ¿¿ »«½Ñ⌐, ß«ßΓ«∩Θπε ¿º »∩Γ¿ »«½Ñ⌐, «ñ¡« ¿º ¬«Γ«αδσ ß«ñÑαª¿Γ ¿¼Ñ¡á »«½Ñ⌐ ñ½∩ éá- ΦÑ⌐ Γáí½¿µδ óó«ñá ñá¡¡δσ, ¿ «ñ¡«¼π »«½ε ñ½∩ ¬áªñ«ú« ¿º τÑ- ΓδαÑσ Γ¿»«ó »α«µÑñπα: - FieldName: ê¡Σ«α¼áµ¿«¡¡«Ñ »«½Ñ, ß«ñÑαªáΘÑÑ ß»¿ß«¬ ¿¼Ñ¡ óßÑσ »«½Ñ⌐ ó éáΦÑ⌐ Σ«α¼Ñ óó«ñá ñá¡¡δσ. - Arrive: Åα«µÑñπαá, óδºδóáÑ¼á∩ ¬«úñá »«½∞º«óáΓÑ½∞ »Ñ- αÑ¼ÑΘáÑΓ ¬παß«α ó π¬áºá¡¡«Ñ »«½Ñ. - GoodDepart: »α«µÑñπαá, óδºδóáÑ¼á∩ ó Γ«Γ ¼«¼Ñ¡Γ, ¬«úñá »«½∞º«óáΓÑ½∞ »δΓáÑΓß∩ ºáóÑαΦ¿Γ∞ óó«ñ ó π¬áºá¡¡«Ñ »«- ½Ñ, ¿ óóÑñÑ¡¡δÑ ñá¡¡δÑ »α«Φ½¿ óßÑ »α«µÑñπαδ ¬«¡Γα«½∩, »αÑ- ñπß¼«ΓαÑ¡¡δÑ ñ½∩ »«½∩; »α«µÑñπαá óδ»«½¡∩ÑΓß∩ ñ« Γ«ú«, ¬á¬ »«½Ñ íπñÑΓ »«¬¿¡πΓ«. - BadDepart: Åα«µÑñπαá óδºδóáÑΓß∩ ó Γ«Γ ¼«¼Ñ¡Γ, ¬«úñá »«½∞º«óáΓÑ½∞ »δΓáÑΓß∩ ºáóÑαΦ¿Γ∞ óó«ñ ó π¬áºá¡¡«Ñ »«½Ñ ¿ óóÑñÑ¡¡δÑ ñá¡¡δÑ ¡Ñ »α«Φ½¿ óσ«ñ¡«ú« ¬«¡Γα«½∩; »α«µÑñπαá óδ- »«½¡∩ÑΓß∩ ñ« Γ«ú« ¬á¬ »«½Ñ íπñÑΓ »«¬¿¡πΓ«. ÅαµÑñπαδ Bad Depart ¿ Keystroke ¼«úπΓ íδΓ∞ óδºóá¡δ ó Γ«¼ ß½πτáÑ, ¬«úñá ß«ñÑαª¿¼«Ñ »«½∩ ¡Ñ ¬«ααÑ¬Γ¡«. ìÑºáóÑαΦÑ¡¡δÑ ¿½¿ ¡Ñ»αáó¿½∞¡δÑ ñá¡¡δÑ, Γαá¬ΓπÑ¼δÑ ¬á¬ »αáó¿½∞¡δÑ, ¼«úπΓ »«ºñ¡ÑÑ ∩ó¿Γ∞ß∩ »α¿τ¿¡«⌐ «Φ¿í¬¿ ß¬α¿»Γá ó éáΦÑ¼ »α¿½«ªÑ¡¿¿ (¡á»α¿¼Ñα,»α¿ ¿ß»«½∞º«óá¡¿¿ ¬«¼á¡ñδ MOVETO). - Keystroke (¡áªáΓ¿Ñ ¬½áó¿Φ¿): »α«µÑñπαá óδºδóáÑΓß∩ »«ß½Ñ ¬áªñ«ú« "αÑúπ½∩α¡«ú«" ¡áªáΓ¿∩ ¬½áó¿Φ¿ (ß¼. ¿ß»«½∞º«- óá¡¿Ñ KeyDefine). ä½∩ Γ«ú«, τΓ«íδ ºáñáΓ∞ »α«µÑñπαπ ñ½∩ »«½∩, óóÑñ¿ΓÑ ß«- «ΓóÑΓßΓóπεΘÑÑ ¿¼∩ »α«µÑñπαδ ó ¬«½«¡¬π. Å«ß½Ñ ºá»«½¡Ñ¡¿∩ Γáí½¿µδ, ¡áª¼¿ΓÑ Do_It![F2], ñ½∩ Γ«ú«, τΓ«íδ ß«σαá¡¿Γ∞ ÑÑ ¿¼∩, óδíÑα¿ΓÑ [Cancel] ¿º ¼Ñ¡ε, τΓ«íδ »«ñΓóÑαñ¿Γ∞ óßÑ ¿º¼Ñ- ¡Ñ¡¿∩. àß½¿ éδ ¿º¼Ñ¡¿½¿ ßΓαπ¬Γπαπ Æáí½¿µδ óó«ñá ñá¡¡δσ, éδ ñ«½ª¡δ ¿º¼Ñ¡¿Γ∞ ß¬α¿»Γ ß»Ñµ¿Σ¿¬áµ¿¿ »«½Ñ⌐ »α¿ »«¼«Θ¿ »α«µÑ- ñπαδ FieldDefine. ä½∩ ºΓ«ú« óδíÑα¿ΓÑ πß½πúπ FieldDefine/Modify. Åα«µÑñπ- αá FieldDefine áóΓ«¼áΓ¿τÑß¬¿ ß«σαá¡¿Γ ¬á¬ ß»Ñµ¿Σ¿¬áµ¿ε ßΓáαΦ¿σ (¡Ñ ¿º¼Ñ¡Ñ¡¡δσ) »«½Ñ⌐, Ñß½¿ φΓ« ó«º¼«ª¡«, ¿½¿ ß«º- ñáßΓ¡«óπε Γáí½¿µπ ß ¿¼Ñ¡Ñ¼ fldspec ñ½∩ íπñπΘ¿σ ¿º¼Ñ¡Ñ¡¿⌐. ¥Γá Γáí½¿µá »«ºªÑ Γαá¡ß½¿απÑΓß∩ ó ß¬α¿»Γ ¿ ¡Ñ íπñÑΓ ßπΘÑßΓ- ó«óáΓ∞ »«ß½Ñ ºáóÑαΦÑ¡¿∩ »α«µÑñπαδ FieldDefine. ì« ¡Ñ »δΓá⌐- ΓÑß∞ ¿º¼Ñ¡¿Γ∞ ß¬α¿»Γ fldspec. Æá¬ªÑ, ¿º-ºá Γ«ú«, τΓ« »α«µÑ- ñπαá DoWait τπóßΓó¿ΓÑ½∞¡á ¬á¬ ¬ ßΓαπ¬ΓπαÑ ß««ΓóÑΓßΓóπεΘÑ⌐ Γáí½¿µδ, Γá¬ ¿ ¬ «Γ¡«ß¿ΓÑ½∞¡«⌐ »«º¿µ¿¿ ÑÑ »«½Ñ⌐, éδ ¡Ñ ¼«- ªÑΓÑ ¿ß»«½∞º«óáΓ∞ Σπ¡¬µ¿ε "óαáΘÑ¡¿∩" ([Ctrl][R]) ¿½¿ πß½πúπ Image/Move ó¡πΓα¿ éáΦÑú« »α¿½«ªÑ¡¿∩ ñ½∩ Γ«ú«, τΓ«íδ ¿º¼Ñ- ¡¿Γ∞ ó¿ñ Γáí½¿µ ó ¬«Γ«αδÑ óó«ñ∩Γß∩ ñá¡¡δÑ. éδ ñ«½ª¡δ ¿ß»«½∞º«óáΓ∞ FieldDefine ¿ éδ ñ«½ª¡δ ß«ºñá- óáΓ∞ »α«µÑñπαδ ¿ «»αÑñÑ½∩Γ∞ ó Γáí½¿µÑ ¿σ ß«ºñá¡¿Ñ »ÑαÑñ ΓÑ¼, ¬á¬ ¿ß»«½∞º«óáΓ∞ DoWAit. ìÑ ¿¼ÑÑΓ º¡áτÑ¡¿∩ ñ« ¿½¿ »«ß½Ñ ¿ß»«½∞º«óá¡¿∩ FieldDefine éδ «»αÑñÑ½¿½¿ »α«µÑñπαδ. æ¬α¿»Γ Borrow. Å«ñß¿ßΓÑ¼á FieldDefine ß«ºñáÑΓ ñ½∩ ßÑí∩ óΓ«α«⌐ ß¬α¿»Γ ß ¿¼Ñ¡Ñ¼ borrow. éß∩¬¿⌐ αáº, ¬á¬ FieldDefine τ¿ΓáÑΓ ß¬α¿»Γ ß»Ñµ¿Σ¿¬áµ¿¿ »«½∩, «¡á ¿ß»«½∞ºπÑΓ ß¬α¿»Γ borrow ñ½∩ Γ«ú«, τΓ«íδ «»αÑñÑ½¿Γ∞, ¬«úñá ßΓαπ¬Γπαá Γáí½¿µδ ñ«½ª¡á íδΓ∞ ¿º¼Ñ- ¡Ñ¡á. FieldDefine ß«ºñáÑΓ ¿ ß«σαá¡∩ÑΓ »«ß½ÑñπεΘ¿Ñ ß¬α¿»Γδ borrow (borrow 0 - borrow n) ñ½∩ ß««ΓóÑΓßΓóπεΘ¿σ Σá⌐½«ó ß»Ñµ¿Σ¿¬áµ¿¿ »«½Ñ⌐. æ¬α¿»Γ borrow ¿ß»«½∞ºπÑΓß∩ ¿ß¬½ετ¿ΓÑ½∞- ¡« »α«µÑñπα«⌐ FieldDefine ¿ Ñú« ¡ÑΓ ¡Ñ«íσ«ñ¿¼«ßΓ¿ ó¬½ετáΓ∞ ó éáΦÑ »α¿½«ªÑ¡¿Ñ. êß»«½∞º«óá¡¿Ñ KeyDefine. ôß½πúá KeyDefine ß«ºñáÑΓ ß¬α¿»Γ ¡á ∩ºδ¬Ñ PAL, ¬«Γ«αδ⌐ »« π¼«½τá¡¿ε ¡áºδóáÑΓß∩ Keyspec, ¿ ß«ñÑαª¿Γ »ÑαÑ¼Ñ¡¡δÑ, ¿ß- »«½∞ºπÑ¼δÑ »α«µÑñπα«⌐ DoWait. è«úñá éδ óδí¿αáÑΓÑ πß½πúπ KeyDefine ¿º ¼Ñ¡ε Toolkit, ß¿ßΓÑ¼á »«»α«ß¿Γ éáß óóÑßΓ¿ ¿¼∩ ß¬α¿»Γá, ¬«Γ«αδ⌐ ß«ñÑαª¿Γ «»αÑñÑ½Ñ¡¿∩ ¬½áó¿Φ: Script:KeySpec Enter the name of the script to store key specifications. àß½¿ Γá¬«⌐ ß¬α¿»Γ πªÑ ßπΘÑßΓóπÑΓ, ß¿ßΓÑ¼á »«»α«ß¿Γ éáß ½¿í« »«ñΓóÑαñ¿Γ∞ πªÑ ¿¼ÑεΘ¿Ñß∩ «»αÑñÑ½Ñ¡¿∩, ½¿í« ¿º¼Ñ¡¿Γ∞ ß¬α¿»Γ. æ¬α¿»Γ ß»Ñµ¿Σ¿¬áµ¿¿ ¬½áó¿Φ ¡Ñ ∩ó½∩ÑΓß∩ Γáí½¿µÑ⌐, »«φΓ«¼π ß¿ßΓÑ¼á ¡Ñ íπñÑΓ »α«ß¿Γ∞ éáß óóÑßΓ¿ ¿¼∩ ß««ΓóÑΓßΓ- óπεΘÑ⌐ Γáí½¿µδ óó«ñá ñá¡¡δσ. æñÑ½áó σ«Γ∩ íδ αáº φΓ«Γ óδí«α, éδ πó¿ñ¿ΓÑ, τΓ« Γáí½¿µá ß»Ñµ¿Σ¿¬áµ¿¿ ¬½áó¿Φ ß«ñÑαª¿Γ Γα¿ »«½∩: - AsciiCode: æ«ñÑαª¿Γ ¬«ñ Ascii ñ½∩ ¬áªñ«⌐ ¬½áó¿Φ¿, ó«º¼«ª¡«⌐ ó éáΦÑ¼ »α¿½«ªÑ¡¿¿. - Function: æ«ñÑαª¿Γ Σπ¡¬µ¿¿ ¬áªñ«⌐ ¬½áó¿Φ¿. - Effect (ñÑ⌐ßΓó¿Ñ): æ«ñÑαª¿Γ óÑ½¿τ¿¡δ, »α¿ßó«Ñ¡¡δÑ ß»Ñµ¿á½∞¡δ¼ ¬½áó¿Φá¼. Å«½∩ Ascii ¿ Function ∩ó½∩εΓß∩ ¿¡Σ«α¼áµ¿«¡¡δ¼¿. é »«½Ñ Effect ¼«ªÑΓ »«∩ó¿Γ∞ß∩ «ñ¡á ¿º ß½ÑñπεΘ¿σ óÑ½¿τ¿¡: - Regular: çáßΓáó½∩ÑΓ ¬½áó¿Φ¿ αáí«ΓáΓ∞ ¡«α¼á½∞¡«, ¡Ñ óδ»«½¡∩∩ ß»Ñµ¿á½∞¡δσ Σπ¡¬µ¿⌐ - ¡áªáΓ¿Ñ ¬½áó¿Φ¿ »α«ßΓ« »α«- σ«ñ¿Γ τÑαÑº PARADOX. êß»«½∞ºπÑΓß∩ φΓá óÑ½¿τ¿¡á ñ½∩ óßÑσ ¬½áó¿Φ, ºá ¿ß¬½ετÑ¡¿Ñ¼ ΓÑσ, ¬«Γ«αδÑ óδ»«½¡∩εΓ ß»Ñµ¿á½∞¡«Ñ ñÑ⌐ßΓó¿Ñ. - Illegal: Ä»αÑñÑ½Ñ¡¡δÑ Γá¬¿¼ «íαáº«¼ ¬½áó¿Φ¿ «ΓóÑαúá- εΓß∩ »α«µÑñπα«⌐ DoWait. DoWait ß¿ú¡á½«¼ ß««íΘáÑΓ »«½∞º«óá- ΓÑ½ε, ¬«úñá ¡áª¿¼áÑΓß∩ ¡ÑαáºαÑΦÑ¡¡á∩ ¬½áó¿Φá. - Exit: ìáªáΓ¿Ñ Γá¬«⌐ ¬½áó¿Φ¿ »α¿ó«ñ¿Γ ¬ óδσ«ñπ ¿º »α«µÑñπαδ DoWait (á¡á½«ú¿τ¡« ñÑ⌐ßΓó¿ε ¬½ετÑó«ú« ß½«óá UNTIL ó »α«µÑñπαÑ Wait). - Special: ìáªáΓ¿Ñ ¬½áó¿Φ¿ »α¿ó«ñ¿Γ ¬ óδ»«½¡Ñ¡¿ε »α«- µÑñπαδ, ¬«Γ«απε éδ «»αÑñÑ½∩ÑΓÑ. ä½∩ Γ«ú«, τΓ«íδ ¿º¼Ñ¡∩Γ∞ ñÑ⌐ßΓó¿Ñ, óδºδóáÑ¼«Ñ ¡áªáΓ¿Ñ¼ ¬½áó¿Φ¿, óóÑñ¿ΓÑ »αáó¿½∞¡πε ¬áΓÑú«α¿ε ó »«½Ñ Effect ñ½∩ Γá- ¬«⌐ ¬½áó¿Φ¿. Å«ß½Ñ ºáóÑαΦÑ¡¿∩ ¿º¼Ñ¡ÑÑ¡¿∩ Σπ¡¬µ¿⌐ ¬½áó¿Φ, ¡áª¼¿ΓÑ Do_It![F2], ñ½∩ Γ«ú«, τΓ«íδ ß«σαá¡¿Γ∞ ¡«óδÑ ¿º¼Ñ- ¡Ñ¡¿∩, ¿½¿ óδíÑα¿ΓÑ πß½πúπ Cancel, ñ½∩ »«ñΓóÑαªñÑ¡¿∩ ¿º¼Ñ- ¡Ñ¡¿⌐. àß½¿ éδ ºáσ«Γ¿ΓÑ ß«σαá¡¿Γ∞ ¿º¼Ñ¡Ñ¡¿∩, πß½πúá KeyDefine »«»α«ß¿Γ éáß óóÑßΓ¿ ¿¼Ñ¡á »α«µÑñπα, ¬«Γ«αδÑ óδºδ- óáεΓß∩ »α¿ ¡áªáΓ¿¿ ºá¡«ó« «í«º¡áτÑ¡¡δσ ß»Ñµ¿á½∞¡δσ ¬½áó¿Φ. éóÑñ¿ΓÑ ¿¼∩ »α«µÑñπαδ, ¬«Γ«αá∩ ¿ß»«½∞ºπÑΓß∩ »α¿ ¡áªáΓ¿¿ ¬áªñ«⌐ ß»Ñµ¿á½∞¡«⌐ ¬½áó¿Φ¿. æ¼. ñá½ÑÑ αáºñÑ½ "æ»Ñµ¿á½∞¡δÑ Σπ¡¬µ¿¿", úñÑ »α¿óÑñÑ¡δ ¿¡ßΓαπ¬µ¿¿ »« ß«ºñá¡¿ε »α«µÑñπα. Åα«µÑñπαá KeyDefine »α«ß¼áΓα¿óáÑΓ «»αÑñÑ½Ñ¡¿∩ ¬½áó¿Φ ¿, τÑαÑº ¡Ñ¬«Γ«α«Ñ óαÑ¼∩ ß«σαá¡∩ÑΓ ß¬α¿»Γ «»αÑñÑ½Ñ¡¿∩ ¬½á- ó¿Φ, ºáΓÑ¼ ó«ºóαáΘáÑΓß∩ ó «ß¡«ó¡«Ñ Toolkit ¼Ñ¡ε. ìÑ »δΓá⌐ΓÑß∞ ¿º¼Ñ¡¿Γ∞ ß¬α¿»Γ, ß«ºñá¡¡δ⌐ »α«µÑñπα«⌐ KeyDefine («íδτ¡« ß¬α¿»Γ keyspec), ó¼ÑßΓ« φΓ«ú« ó«ß»«½∞ºπ⌐- ΓÑß∞ πß½πú«⌐ Modify (¿º¼Ñ¡¿Γ∞) ó KeyDefine. äÑ½« ó Γ«¼, τΓ« Γáí½¿µá, ¿ß»«½∞ºπÑ¼á∩ ó« óαÑ¼∩ πß½πú¿ KeyDefine, Σá¬Γ¿τÑß¬¿ Γαá¡ß½¿απÑΓß∩ ó ß¬α¿»Γ ¿, »«ß½Ñ Γ«ú«, ¬á¬ KeyDefine ºáóÑα- Φ¿Γ αáí«Γπ, ÑÑ Γáí½¿µδ »α«ßΓ« ¡Ñ íπñÑΓ ßπΘÑßΓó«óáΓ∞. éδ ñ«½ª¡δ ó«ß»«½∞º«óáΓ∞ß∩ πß½πú«⌐ KeyDefine ñ« Γ«ú«, ¬á¬ éδ ¿ß»«½∞º«óá½¿ DoWait ó óáΦÑ¼ »α¿½«ªÑ¡¿¿. àß½¿ éδ «»- αÑñÑ½¿½¿ ¡Ñ¬«Γ«αδÑ ¬½áó¿Φ¿, ¬á¬ ß»Ñµ¿á½∞¡δÑ, éδ ñ«½ª¡δ Γá¬ªÑ ß«ºñáΓ∞ »α«µÑñπαπ ß»Ñµ¿á½∞¡δσ ¬½áó¿Φ ñ½∩ π»αáó½Ñ¡¿∩ ¿σ ¡á- ªáΓ¿Ñ¼. TKKEYTYPE. ÅÑαÑ¼Ñ¡¡á∩ ß ¿¼Ñ¡Ñ¼ TKKeyType ¿ß»«½∞ºπÑΓß∩ ó »α«µÑñπαÑ DoWait ¿ »α¿¼Ñ¡¿¼á ó éáΦ¿σ »α«µÑñπαáσ ó αáº½¿τ¡δσ ¬«¡ΓÑ¬ß- Γáσ (ß¼. "Arrival, Departure, Special ¿ KeyStroke »α«µÑñπαδ). TKKeyType ¼«ªÑΓ »α¿¡¿¼áΓ∞ «ñ¡« ¿º ΦÑßΓ¿ º¡áτÑ¡¿⌐: - R: αÑúπ½∩α¡á∩, ¡Ñ»ÑαÑ¼ÑΘáεΘá∩; - I: ºá»αÑΘÑ¡¡á∩; - E: óδσ«ñ; - S: ß»Ñµ¿á½∞¡á∩, ¡Ñ»ÑαÑ¼ÑΘáεΘá∩; - M: αÑúπ½∩α¡á∩, »ÑαÑ¼ÑΘáεΘá∩ (Movement); - D: ß»Ñµ¿á½∞¡á∩, »ÑαÑ¼ÑΘáεΘá∩ (DepartSpecial). M ¿ D áóΓ«¼áΓ¿τÑß¬¿ »α¿ßóá¿óáεΓß∩ πß½πú«⌐ KeyDefine ÉÑúπ½∩α¡δ¼ ¿ æ»Ñµ¿á½∞¡δ¼ ¬½áó¿Φá¼, ¬«Γ«αδÑ ºáßΓáó½∩εΓ ¬πα- ß«α óδσ«ñ¿Γ∞ ¿º »«½∩. î - »α¿ßóá¿óáÑΓß∩, ¬«úñá KeyDefine «»αÑñÑ½∩ÑΓ, τΓ« αÑúπ½∩α¡á∩ ¬½áó¿Φá íπñÑΓ ºáßΓáó½∩Γ∞ ¬παß«α »«¬¿ñáΓ∞ ΓÑ¬πΘÑÑ »«½Ñ. D - »α¿ßóá¿óáÑΓß∩, ¬«úñá KeyDefine «»αÑñÑ½∩ÑΓ, τΓ« ß»Ñµ¿á½∞¡á∩ ¬½áó¿Φá íπñÑΓ ºáßΓáó½∩Γ∞ ¬παß«α »«¬¿ñáΓ∞ ΓÑ¬πΘÑÑ »«½Ñ. êº-ºá Γ«ú«, τΓ« φΓ« »α¿ßó«Ñ¡¿Ñ »α«- ¿ßσ«ñ¿Γ áóΓ«¼áΓ¿τÑß¬¿, Γ¿»δ "Movement" ¿ "Departspecial" ¡Ñ½∞º∩ ß»Ñµ¿Σ¿µ¿α«óáΓ∞ ¡Ñ»«ßαÑñßΓóÑ¡¡« ¿ß»«½∞ºπ∩ πß½πúπ KeyDefine. é ºá¬½ετÑ¡¿Ñ ºá¼ÑΓ¿¼, τΓ« »α«µÑñπαδ ¡áªáΓ¿∩ ¬½áó¿Φ (¬á¬ ¡áº¡áτÑ¡¡δÑ πß½πú«⌐ FieldDefine) óδºδóáεΓß∩ óß∩¬¿⌐ αáº, ¬á¬ »α«¿ßσ«ñ¿Γ ¡áªáΓ¿Ñ αÑúπ½∩α¡δσ ¡Ñ»ÑαÑ¼ÑΘáεΘ¿σ ¬½á- ó¿Φ. è½áó¿Φ¿ »ÑαÑ¼ÑΘÑ¡¿∩ ó¬½ετáεΓ [ßΓαÑ½¬á ó½Ñó«], [ßΓαÑ½¬á ó»αáó«], [PgUp] ¿ Γ«¼π »«ñ«í¡δÑ ¬½áó¿Φ¿, ¡« ¡Ñ [Esc], [Backspace] ¿½¿ ñαπú¿Ñ ¬½áó¿Φ¿, ¬«Γ«αδÑ »ÑαÑ¼ÑΘáεΓ ¬παß«α ó¡πΓα¿ »«½∩. êß»«½∞º«óá¡¿Ñ HelpForm. Demonstration FieldDefine KeyDefine _ .*HelpForm* PrepareFinal Quit ÉÑñá¬Γ¿α«óá¡¿Ñ ¿½¿ «»αÑñÑ½Ñ¡¿Ñ Σ«α¼δ, »«ºó«½∩εΘÑÑ »ÑαÑßÑ- ¬áΓ∞ úαá¡¿µδ. Åα¿ ß«ºñá¡¿¿ Σ«α¼δ ó ÅÇÉÇäÄèæÑ, αáº¼ÑΘÑ¡¿Ñ ¡«óδσ úαá- ¡¿µ »«óÑασ πªÑ ßπΘÑßΓóπεΘ¿σ, »α¿ó«ñ¿Γ ¬ »ÑαÑßÑτÑ¡¿ε úαá¡¿µ, ¬«Γ«α«Ñ «»αÑñÑ½∩ÑΓß∩ Γ«½∞¬« ΓÑ¬πΘÑ⌐ úαá¡¿µÑ⌐. Äíδτ¡« ñ½∩ Γ«ú«, τΓ«íδ «»αÑñÑ½¿Γ∞ »ÑαÑßÑτÑ¡¿Ñ ñóπσ úαá¡¿µ, éδ ñ«½ª¡δ »ÑαÑ¼ÑßΓ¿Γ∞ ¬παß«α ¬ ¼ÑßΓπ »ÑαÑßÑτÑ¡¿∩ ¿ ó«ß»«½∞º«óáΓ∞ß∩ ¬½áó¿ΦÑ⌐ [Alt], ß«ó¼ÑßΓ¡« ß óß»«¼«úáΓÑ½∞¡«⌐ µ¿Σα«ó«⌐ ¬½áó¿á- Γπα«⌐ ñ½∩ Γ«ú«, τΓ«íδ ¡á»ÑτáΓáΓ∞ »«ñσ«ñ∩Θ¿⌐ úαáΣ¿τÑß¬¿⌐ ß¿¼ó«½ IBM. Éáºαáí«Γ¬á Σ«α¼ ß ¿ß»«½∞º«óá¡¿Ñ¼ πß½πú¿ HelpForm ºáó¿- ß¿Γ «Γ αáº½¿τ¡δσ πß½«ó¿⌐. è«úñá éδ αáß»«½áúáÑΓÑ úαá¡¿µδ »«- óÑασ ñαπú¿σ úαá¡¿µ, HelpForm ºá»«½¡∩ÑΓ ß¿¼ó«½δ »ÑαÑßÑτÑ¡¿∩ áóΓ«¼áΓ¿τÑß¬¿. æπΘÑßΓóπÑΓ Γ«½∞¬« «ñ¡« ¿ß¬½ετÑ¡¿Ñ: »ÑαÑßÑτÑ- ¡¿Ñ πú½á αá¼¬¿, ß«ßΓ«∩ΘÑ⌐ ¿º ñóπσ ½¿¡¿⌐ ß πú½«¼ αá¼¬¿, ß«ß- Γ«∩ΘÑ⌐ ¿º «ñ¡«⌐ ½¿¡¿¿, ñ½∩ Γá¬«⌐ ß¿Γπáµ¿¿ »α«ßΓ« ¡Ñ ßπΘÑßΓ- óπÑΓ »«ñσ«ñ∩ΘÑú« ß¿¼ó«½á. é »«ñ«í¡δσ ß½πτá∩σ, πß½πúá HelpForm αáí«ΓáÑΓ Γá¬ªÑ, ¬á¬ ¿ úÑ¡ÑαáΓ«α Σ«α¼ ÅÇÉÇäÄèæá - ¡«óá∩ úαá¡¿µá íπñÑΓ πñá½∩Γ∞ »αÑñδñπΘ¿Ñ ß¿¼ó«½δ, ¡áσ«ñ∩Θ¿Ñß∩ ó φΓ«⌐ »«º¿µ¿¿. éδ ÑΘÑ ¼«ªÑΓÑ ¿º¼Ñ¡¿Γ∞ ¿¡ΓÑαá¬Γ¿ó¡« »ÑαÑßÑτÑ¡¿Ñ, ¿ß»«½∞ºπ∩ «ß«íÑ¡¡«ßΓ¿, »α¿óÑñÑ¡¡δÑ ¡¿ªÑ. è«úñá éδ ¡áª¿¼áÑΓÑ [Alt][F1], πß½πúá HelpForm óδó«ñ¿Γ ß»¿ß«¬ óßÑσ úαáΣ¿τÑß¬¿σ ß¿¼ó«½«ó ¡á ñ¿ß»½Ñ⌐. Å«ß½Ñ φΓ«ú« éδ ¼«ªÑΓÑ óδíαáΓ∞ ¬παß«α«¼ ß¿¼ó«½ ñ½∩ ΓÑ¬πΘÑ⌐ »«º¿µ¿¿ ó ö«α¼Ñ. ìáª¼¿ΓÑ [Enter] ñ½∩ Γ«ú«, τΓ«íδ »«¼ÑßΓ¿Γ∞ óδßóÑτÑ¡¡δ⌐ ß¿¼- ó«½ ¡á ¼ÑßΓ« ¬παß«αá, ¿ ¡áª¼¿ΓÑ ¬½áó¿Φπ [?], ó Γ«¼ ß½πτáÑ, Ñß½¿ éá¼ ¡Ñ«íσ«ñ¿¼« πó¿ñÑΓ∞ ASCII ¬«ñ ß¿¼ó«½á, »«¼ÑτÑ¡¡«ú« ó Γáí½¿µÑ »«óδΦÑ¡¡«⌐ ∩α¬«ßΓ∞ε. àß½¿ éδ ºáσ«Γ¿ΓÑ »«¬¿¡πΓ∞ αÑª¿¼ "ö«α¼á", ¡áª¼¿ΓÑ ¬½áó¿Φ¿ [F2][Do_It!] ¿½¿ óδíÑα¿ΓÑ πß½πúπ Cancel ¿º ¼Ñ¡ε HelpForm, HelpForm áóΓ«¼áΓ¿τÑß¬¿ ó«º- óαáΓ¿Γß∩ ó Toolkit. êß»«½∞º«óá¡¿Ñ PrepareFinal. éδí«α πß½πú¿ PrepareFinal ¿º ¼Ñ¡ε Toolkit'á »«ºó«½¿Γ éá¼ óδ»«½¡¿Γ∞ ñóÑ Σπ¡¬µ¿¿, ¬«Γ«αδÑ »«óδß∩Γ íδßΓα«ñÑ⌐ßΓó¿Ñ éáΦÑú« »α¿½«ªÑ¡¿∩: - ôñá½¿Γ∞ óßÑ »α«µÑñπαδ TKDebug («Γ½áñ¬á), óδºδóáÑ¼δÑ ¿º »α¿½«ªÑ¡¿∩. - ôñá½¿Γ∞ óßÑ ß»Ñµ¿á½∞¡δÑ »ÑαÑ¼Ñ¡¡δÑ Toolkit'á (TKDel, TKDo_It! ¿ Γ.».) ß ñÑ⌐ßΓó¿ΓÑ½∞¡δ¼¿ óÑ½¿τ¿¡á¼¿. éΓ«αá∩ Σπ¡¬µ¿∩, ¡Ñß¼«Γα∩ ¡á ß«¬αáΘÑ¡¿Ñ «í∞Ñ¼á »á¼∩Γ¿, ¿ß»«½∞ºπÑ¼«Ñ éáΦ¿¼ »α¿½«ªÑ¡¿Ñ¼, Γá¬ªÑ π¼Ñ¡∞ΦáÑΓ πñ«í«τ¿ΓáÑ- ¼«ßΓ∞ ß¬α¿»Γ«ó. ìá»α¿¼Ñα, Ñß½¿ ß¬α¿»Γ ß«ñÑαª¿Γ ßΓα«¬π: IF ISBLANC ([]) And TKChar<>TKDel, Γ« πß½πúá PrepareFinal ¿º¼Ñ¡¿Γ ÑÑ ¡á: IF ISBLANC ([]) AND TKChar<>-83 è«úñá éδ óδíÑα¿ΓÑ πß½πúπ PrepareFinal, Γ« ß¡áτá½á ß¿ß- ΓÑ¼á »«»α«ß¿Γ éáß óóÑßΓ¿ ¿¼∩ ß¬α¿»Γá, ß ¬«Γ«αδ¼ éδ σ«Γ¿ΓÑ αáí«ΓáΓ∞.éóÑñ¿ΓÑ ¿¼∩ ß¬α¿»Γá (¿½¿ óδíÑα¿ΓÑ Ñú«), ¬á¬ éδ «íδτ¡« ñÑ½á½¿ φΓ« ó ÅÇÉÇäÄèæÑ. çáΓÑ¼ PrepareFinal ß»α«ß¿Γ éáß ¡«ó«Ñ ¿¼∩ ß¬α¿»Γá.éóÑñ¿ΓÑ ¿¼∩, »«ñ ¬«Γ«αδ¼ éδ ªÑ½áÑΓÑ ß«σαá¡¿Γ∞ ¬«¡Ñτ¡δ⌐ ß¬α¿»Γ. é ºá¬½ετÑ¡¿Ñ, PrepareFinal ß»α«ß¿Γ éáß: åÑ½áÑΓÑ ½¿ éδ ¿ºó½Ñτ∞ (K) Keycodes, (D) DebugProcedures ¿½¿ «íÑ «ñ¡«óαÑ¼Ñ¡¡«. éóÑñ¿ΓÑ K, D ¿½¿ é, ¬á¬ éá¼ í«½∞ΦÑ »«ñσ«ñ¿Γ. PrepareFinal ºáóÑαΦ¿Γ «»Ñαáµ¿ε ¿ óÑα¡ÑΓß∩ ó ú½áó¡«Ñ ¼Ñ¡ε Toolkit'á. ò«Γ∩ πß½πúá PrepareFinal πñá½∩ÑΓ KeyCode »ÑαÑ¼Ñ¡¡δÑ ¿º éáΦÑú« ß¬α¿»Γá, «¡á ¡Ñ πñá½¿Γ óδº«ó »α«µÑñπαδ SetKeycodes ¿½¿ óδº«ó í¿í½¿«ΓÑ¬¿ ReadLib, úñÑ τ¿ΓáεΓß∩ »ÑαÑ¼Ñ¡¡δÑ SetKeycodes. ¥Γ¿ óδº«óδ ñ«½ª¡δ íδΓ∞ πñá½Ñ¡δ óαπτ¡πε. æ«ºñá¡¿Ñ »α«µÑñπα Custom (ºá¬áº). Toolkit ß«ñÑαª¿Γ Γ«½∞¬« »α«µÑñπαδ, ¡á»¿ßá¡¡δÑ ¡á ∩ºδ¬Ñ PAL. ìÑ¬«Γ«αδÑ ¿º φΓ¿σ »α«µÑñπα éδ ¼«ªÑΓÑ ¿ß»«½∞º«óáΓ∞. äαπú¿Ñ »αÑñ¡áº¡áτÑ¡δ Γ«½∞¬« ñ½∩ ó¡πΓαÑ¡¡Ñú« ¿ß»«½∞º«óá¡¿∩. æ«ñÑαªáΓ »α«µÑñπαδ ñóá í¿í½¿«ΓÑτ¡δσ Σá⌐½á: Toolkit.lib ¿ Toolkit2.lib. ìáßΓ«∩Θ¿⌐ αáºñÑ½ αáßß¼áΓα¿óáÑΓ, ¬á¬¿¼ «íαáº«¼ »α«µÑñπαδ, ¡á»¿ßá¡¡δÑ éá¼¿, ¼«úπΓ óºá¿¼«ñÑ⌐ßΓó«óáΓ∞ ß »α«- µÑñπαá¼¿ Toolkit'á. éδ ¿ß»«½∞ºπÑΓÑ Toolkit ñ½∩ »α¿ßó«Ñ¡¿∩ »α«µÑñπαá¼, ¬«- Γ«αδÑ éδ ¡á»¿ßá½¿, αáº½¿τ¡δσ Σπ¡¬µ¿⌐. ìá¿í«½ÑÑ óáª¡δÑ Σπ¡¬- µ¿¿ ß½ÑñπεΘ¿Ñ: - ìáªáΓ¿Ñ ¬½áó¿Φ¿ »«½∞º«óáΓÑ½Ñ¼. - Åα¿íδΓ¿Ñ ó »«½Ñ. - Å«»δΓ¬á »«¬¿¡πΓ∞ »«½Ñ. é¡πΓα¿ éáΦ¿σ »α«µÑñπα éδ ¼«ªÑΓÑ óδºδóáΓ∞ »α«µÑñπαδ Toolkit'a. ä«»«½¡¿ΓÑ½∞¡« éδ ¼«ªÑΓÑ ¿ß»«½∞º«óáΓ∞ »ÑαÑ¼Ñ¡¡δÑ »«ññÑαª¿óáÑ¼δÑ «ß¡«ó¡«⌐ »α«µÑñπα«⌐ Toolkit'a - DoWait. ÅÑαÑ¼Ñ¡¡δÑ, ¿ß»«½∞ºπÑ¼δÑ »α«µÑñπα«⌐ Toolkit'a. ä½∩ Γ«ú«, τΓ«íδ »«¡∩Γ∞, ¬á¬ »¿ßáΓ∞ »α«µÑñπαδ, óºá¿¼«- ñÑ⌐ßΓóπεΘ¿Ñ ß Toolkit'«¼, ¡Ñ«íσ«ñ¿¼« ß¡áτá½á αáº«íαáΓ∞ß∩, ¬á¬ Toolkit ¿ß»«½∞ºπÑΓ »ÑαÑ¼Ñ¡¡δÑ. ü«½∞Φ¿¡ßΓó« ¿º »α«µÑñπα Toolkit'a «»αÑñÑ½∩εΓ ßó«¿ »ÑαÑ¼Ñ¡¡δÑ, ¬á¬ ºá¬αδΓδÑ (τáßΓ- ¡δÑ) ¿ «¡¿ ¡Ñ »αÑñßΓáó½∩εΓ í«½∞Φ«ú« ¿¡ΓÑαÑßá. ÅÑαÑ¼Ñ¡¡δÑ Toolkit'a ¡áτ¿¡áεΓß∩ ß íπ¬ó TK, ¡á»α¿¼Ñα TKDel. éδ ¡Ñ ñ«½ª- ¡δ ¡áτ¿¡áΓ∞ ¿¼Ñ¡á ßó«¿σ »ÑαÑ¼Ñ¡¡δσ ß íπ¬ó TK, Ñß½¿ éδ ¡Ñ »«½∞º«óá½¿ß∞ ß«º¡áΓÑ½∞¡« σ«Γ∩ íδ «ñ¡«⌐ ¿º »ÑαÑ¼Ñ¡¡δσ Toolkit'a, »α¿óÑñÑ¡¡δσ ¡¿ªÑ. éßÑ »ÑαÑ¼Ñ¡¡δÑ, ¿ß»«½∞ºπÑ¼δÑ »α«µÑñπα«⌐ DoWait, «í∞∩ó½Ñ¡δ τáßΓ¡δ¼¿ ¬ ¡Ñ⌐. ÄτÑ¡∞ óáª¡« »«¡∩Γ∞, τΓ« »α«µÑñπαδ, ¬«Γ«αδÑ éδ »αÑñ¡áº- ¡áτáÑΓÑ ñ½∩ »«½Ñ⌐ ¿ ñÑ⌐ßΓó¿⌐ ¬½áó¿Φ, ∩ó½∩εΓß∩ »«ñτ¿¡Ñ¡¡δ¼¿ »« «Γ¡«ΦÑ¡¿ε ¬ »α«µÑñπαÑ DoWait (Γ« ÑßΓ∞ DoWait óδºδóáÑΓ éáΦ¿ »α«µÑñπαδ). ¥Γ« º¡áτ¿Γ, τΓ« »ÑαÑ¼Ñ¡¡δÑ, «í∞∩ó½Ñ¡¡δÑ ¬á¬ τáßΓ¡δÑ ¬ »α«µÑñπαÑ DoWait, ¼«úπΓ íδΓ∞ ¿ß»«½∞º«óá¡δ éá- Φ¿¼¿ »α«µÑñπαá¼¿. èα«¼Ñ Γ«ú«, éδ ¼«ªÑΓÑ πßΓá¡«ó¿Γ∞ ¬«¡¬- αÑΓ¡δÑ óÑ½¿τ¿¡δ φΓ¿σ »ÑαÑ¼Ñ¡¡δσ, ñ½∩ Γ«ú«, τΓ«íδ π»αáó½∩Γ∞ ñÑ⌐ßΓó¿Ñ¼ »α«µÑñπαδ DoWait. éá¼, ó«º¼«ª¡«, »«ΓαÑíπÑΓß∩ ¿ß»«½∞º«óáΓ∞ ß½ÑñπεΘ¿Ñ »Ñ- αÑ¼Ñ¡¡δÑ »α«µÑñπαδ DoWait: - TKChanged: ï«ú¿τÑß¬á∩ óÑ½¿τ¿¡á (êßΓ¿¡á/ï«ª∞), »«¬á- ºδóáεΘá∩, ¿º¼Ñ¡¿½áß∞ ½¿ óÑ½¿τ¿¡á ó ΓÑ¬πΘÑ¼ »«½Ñ. ÅÑαÑ¼Ñ¡¡á∩ «»αÑñÑ½Ñ¡á Γ«½∞¬« ó »α«µÑñπαÑ GoodDepart. - TKChar: æ«ñÑαª¿Γ αáßΦ¿αÑ¡¡δ⌐ ¬«ñ Ascii »«ß½Ññ¡Ñ⌐ ¡á- ªáΓ«⌐ »«½∞º«óáΓÑ½Ñ¼ ¬½áó¿Φ¿. ¥Γá óÑ½¿τ¿¡á »α¿¡¿¼áÑΓß∩ ¿º DoWait (ß¼. óδΦÑ), ¡« ¼«ªÑΓ íδΓ∞ Γá¬ªÑ ºáñá¡á, ¬á¬ «Γ½¿τ¡á∩ «Γ »α¿¡¿¼áÑ¼«⌐ »« π¼«½τá¡¿ε. - TKFieldVal: éÑ½¿τ¿¡á, ß«ñÑαªáΘá∩ß∩ ó »«½Ñ, ¬«úñá ó ¡Ñú« óσ«ñ¿½¿, «¡á ¿ß»«½∞ºπÑΓß∩ ñ½∩ πßΓá¡«ó¬¿ »ÑαÑ¼Ñ¡¡«⌐ TKCanged. - TKHoldCanvas: àß½¿ »ÑαÑ¼Ñ¡¡á∩ ¿¼ÑÑΓ º¡áτÑ¡¿Ñ TRUE, Γ« DoWait º¡áÑΓ, τΓ« ¡Ñ ß½ÑñπÑΓ πñá½∩Γ∞ ¬á¡óπ ÅÇïá, »«¬á »«½∞º«óáΓÑ½∞ ¡Ñ ¡áª¼ÑΓ ¬½áó¿Φπ. - TKKeyType: æ«ñÑαª¿Γ ß¿¼ó«½, «í«º¡áτáεΘ¿⌐ ΓÑ¬πΘ¿⌐ Γ¿» ¬½áó¿Φ¿ (R,I,E,M,S,D). -TKMessage: è«úñá πßΓá¡«ó½Ñ¡á ¡Ñ »πßΓá∩ ßΓα«¬á, DoWait óδßóÑτ¿óáÑΓ ßΓα«¬π ó «¬¡Ñ ß««íΘÑ¡¿∩ ÅÇÉÇäÄèæá, ñ« ß½ÑñπεΘÑ- ú« ¡áªáΓ¿∩ ¬½áó¿Φ¿. êß»«½∞º«óá¡¿Ñ »ÑαÑ¼Ñ¡¡δσ Toolkit'a αáßß¼«ΓαÑ¡« í«½ÑÑ ñÑΓá½∞¡« ó ß½ÑñπεΘÑ¼ »áαáúαáΣÑ. Åα«µÑñπαδ. ä½∩ Γ«ú«, τΓ«íδ ¿ß»«½∞º«óáΓ∞ Toolkit φΣΣÑ¬Γ¿ó¡«, éá¼ ¡Ñ«íσ«ñ¿¼« Γ«½∞¬« ß«ºñáóáΓ∞ »α«µÑñπαδ ñ½∩ ß»Ñµ¿á½∞¡δσ ñÑ⌐- ßΓó¿⌐ ¿½¿ ß¿Γπáµ¿⌐. çá»«¼¡¿ΓÑ, τΓ« Σ«α¼á óó«ñá ñá¡¡δσ, ¬«- Γ«απε éδ ß«ºñáÑΓÑ ¿¡ΓÑαá¬Γ¿ó¡« ó ÅÇÉÇäÄèæÑ, π»αáó½∩ÑΓ Φáí- ½«¡¡δ¼¿ ß¿Γπáµ¿∩¼¿. Åα«µÑñπαδ, ¬«Γ«αδÑ éδ ß«ºñáÑΓÑ, ñ«½ª¡δ «íαáíáΓδóáΓ∞ ¿ß¬½ετÑ¡¿∩, ¬«Γ«αδÑ ¼«úπΓ »α«¿º«⌐Γ¿ ó »α«µÑßßÑ óó«ñá ñá¡¡δσ (¡ÑαáºαÑΦÑ¡¡á∩ óÑ½¿τ¿¡á, ß»Ñµ¿á½∞¡δÑ ¡áªáΓ¿∩ ¬½áó¿Φ ñ½∩ »«¼«Θ¿ ¿½¿ ñαπú¿σ ñÑ⌐ßΓó¿⌐ ¿ Γ.».). Äíδτ¡«, í«½∞Φπε τáßΓ∞ éáΦÑ⌐ αáí«Γδ íπñÑΓ ºá¡¿¼áΓ∞ ß«ºñá¡¿Ñ »α«µÑñπα ß½ÑñπεΘ¿σ τÑΓδαÑσ Γ¿»«ó: - Arrival (»α¿íδΓ¿Ñ); - Departure (»«¬¿¡πΓ∞):GoodDeparture ¿ Bad; - Keystroke (¡áªáΓ¿Ñ ¬½áó¿Φ); - Special (ß»Ñµ¿á½∞¡δÑ). ¥Γ«Γ »áαáúαáΣ »α¿ó«ñ¿Γ ñÑΓá½∞¡«Ñ «»¿ßá¡¿Ñ ¬áªñ«ú« ¿º φΓ¿σ Γ¿»«ó »α«µÑñπα ß π»«α«¼ ¡á ¿ß»«½∞º«óá¡¿Ñ ¿ πßΓá¡«ó¬π »ÑαÑ¼Ñ¡¡δσ Toolkit'a. éδ ß«ºñáÑΓÑ φΓ¿ »α«µÑñπαδ Γ«τ¡« Γá¬ªÑ, ¬á¬ éδ φΓ« ñÑ½á½¿ ß »α«µÑñπαá¼¿ ¡á ÅÇïÑ. éδ ¡áº¡áτá- ÑΓÑ φΓ¿ »α«µÑñπαδ, ¿ß»«½∞ºπ∩ FieldDefine (ß¼. "êß»«½∞º«óá- ¡¿Ñ FieldDefine óδΦÑ). Åα«µÑñπαδ »α¿íδΓ¿∩. Åα«µÑñπαδ »α¿íδΓ¿∩ óδºδóáεΓß∩ óß∩¬¿⌐ αáº, ¬«úñá ¬παß«α óσ«ñ¿Γ ó »«½Ñ. éδ ¼«ªÑΓÑ ¡áº¡áτ¿Γ∞ αáº½¿τ¡δÑ »α«µÑñπαδ »α¿- íδΓ¿∩ ¬ ¬áªñ«¼π »«½ε, ¿½¿ ¡áº¡áτ¿Γ∞ «ñ¡π »α«µÑñπαπ »« ¼¡«- ú¿¼ »«½∩¼. Åα«µÑñπαá DoWait óδºδóáÑΓ »α«µÑñπαδ »α¿íδΓ¿∩ áóΓ«¼áΓ¿- τÑß¬¿, ¬«úñá »«½∞º«óáΓÑ½∞ »ÑαÑ¼ÑΘáÑΓ ¬παß«α ó« ó¡πΓα∞ »«½∩, ñ½∩ ¬«Γ«α«ú« «»αÑñÑ½Ñ¡á φΓá »α«µÑñπαá »α¿íδΓ¿∩. Æá¬¿Ñ ñÑ⌐ß- Γó¿∩ ó«º¼«ª¡δ ñ½∩ ¬παß«αá, ¬«Γ«αδ⌐ óσ«ñ¿Γ ó »«½Ñ »« ¬«¼á¡ñÑ (Γá¬«⌐, ¬á¬ MOVETO ¿½¿ RIGHT) ó éáΦÑ¼ »α¿½«ªÑ¡¿¿. è«úñá éδ »ÑαÑó«ñ¿ΓÑ ¬παß«α ó« ó¡πΓα∞ »«½∩ »α¿ »«¼«Θ¿ ¬«¼á¡ñδ, ¡Ñ«í- σ«ñ¿¼« ¿ºóÑßΓ¿Γ∞ »α«µÑñπαπ DoWait « Γ«¼, τΓ« éδ ó«Φ½¿ ó »«½Ñ íÑº ¿ß»«½∞º«óá¡¿∩ ¬½áó¿Φ »ÑαÑñó¿ªÑ¡¿∩ ¬παß«αá ¿½¿ ¬½áó¿Φ¿ DepartSpecial (ß»Ñµ¿á½∞¡δ⌐ óσ«ñ). ¥Γ« «τÑ¡∞ óáª¡« ñ½∩ »αá- ó¿½∞¡«⌐ αáí«Γδ Toolkit'a. éδ ¼«ªÑΓÑ ß««íΘ¿Γ∞ »α«µÑñπαÑ DoWait « Γ«¼, τΓ« óσ«ñ ó »«½Ñ »α«¿º«ΦÑ½ íÑº ¿ß»«½∞º«óá¡¿∩ ¬½áó¿Φ »ÑαÑñó¿ªÑ¡¿∩ ¬παß«- αá, »«ßαÑñßΓó«¼ óδº«óá »α«µÑñπαδ ArriveField (»α¿íδΓ¿Ñ ó »«½Ñ) ßαáºπ »«ß½Ñ »ÑαÑσ«ñá ó ¡«ó«Ñ »«½Ñ. Åα«µÑñπαá ArriveField πßΓá¡áó½¿óáÑΓ ó ¡áτá½∞¡«Ñ º¡áτÑ¡¿Ñ óßÑ »ÑαÑ¼Ñ¡- ¡δÑ ºáó¿ß¿¼δÑ «Γ »«½∩, ¬«Γ«αδÑ ¿ß»«½∞ºπÑΓ DoWait, ¿ óδºδóá- ÑΓ »α«µÑñπαπ »α¿íδΓ¿∩ ñ½∩ »«½∩ (Ñß½¿ Γá¬«óá∩ ßπΘÑßΓóπÑΓ). àß½¿ éδ σ«Γ¿ΓÑ »ÑαÑ⌐Γ¿ ¬ ¡«ó«¼π »«½ε íÑº óδº«óá »α«- µÑñπαδ »α¿íδΓ¿∩, ¿ß»«½∞ºπ⌐ΓÑ ó¼ÑßΓ« »α«µÑñπαδ ArriveField, »α«µÑñπαπ NewField (¡«ó«Ñ »«½Ñ). Ä¡á ß««íΘ¿Γ »α«µÑñπαÑ DoWait, τΓ« óσ«ñ ó ¡«ó«Ñ »«½Ñ »α«¿º«ΦÑ½ íÑº óδº«óá »α«µÑñπ- αδ »α¿íδΓ¿∩. æ½ÑñπεΘ¿Ñ »ÑαÑ¼Ñ¡¡δÑ Toolkit'a ¿¼ÑεΓ ß»Ñµ¿á½∞¡«Ñ º¡á- τÑ¡¿Ñ ñ½∩ »α«µÑñπαδ »α¿íδΓ¿∩: - TKHoldCanvas: è«úñá »ÑαÑ¼Ñ¡¡á∩ ¿¼ÑÑΓ º¡áτÑ¡¿Ñ "êßΓ¿- ¡á", πßΓá¡«ó½Ñ¡¡«Ñ éáΦÑ⌐ »α«µÑñπα«⌐, «¡á ºá»αÑΘáÑΓ »α«µÑñπ- αÑ DoWait ¿ß»«½∞º«óáΓ∞ αÑª¿¼ ECHO NORMAL ó¼ÑßΓÑ ß »α«µÑñπ- α«⌐ »α¿íδΓ¿∩, »«¬á »«½∞º«óáΓÑ½∞ ¡Ñ ¡áª¼ÑΓ ß½ÑñπεΘπε ¬½áó¿- Φπ. ÅÑαÑ¼Ñ¡¡á∩ TKHoldCanvas αáí«ΓáÑΓ Γ«½∞¬« Γ«úñá, ¬«úñá αÑª¿¼ ECHO óδ¬½ετÑ¡. ç¡áτÑ¡¿Ñ »ÑαÑ¼Ñ¡¡«⌐ »« π¼«½τá¡¿ε - "ï«ª∞". - TKFieldVal: æ«ñÑαª¿Γ óÑ½¿τ¿¡π, ¡áσ«ñ∩Θπεß∩ ó ΓÑ¬πΘÑ¼ »«½Ñ, ¬«úñá »α«¿ßσ«ñ¿½ óσ«ñ. èá¬ »α«µÑñπαá ArriveField, Γá¬ ¿ NewField ßíαáßδóáÑΓ φΓπ »ÑαÑ¼Ñ¡¡πε. TKFieldWal ¿ß»«½∞ºπ- ÑΓß∩ ñ½∩ óδτ¿ß½Ñ¡¿∩ »ÑαÑ¼Ñ¡¡«⌐ TKChanged (ß¼. "Åα«µÑñπαδ óδσ«ñá" ¡¿ªÑ). - TKMessage: è«úñá πßΓá¡áó½¿óáÑΓß∩ ¡Ñ »πßΓá∩ ßΓα«¬«óá∩ óÑ½¿τ¿¡á »α«µÑñπα«⌐ »α¿íδΓ¿∩, φΓá »ÑαÑ¼Ñ¡¡á∩ óδßóÑτ¿óáÑΓ φΓπ ßΓα«¬π, ¬á¬ "æ««íΘÑ¡¿Ñ" ñ« ¡áªáΓ¿∩ ß½ÑñπεΘÑ⌐ ¬½áó¿Φ¿ »«½∞º«óáΓÑ½Ñ¼. TKMessage ½«ú¿τÑß¬¿ ßó∩ºá¡á ß »ÑαÑ¼Ñ¡¡«⌐ TKHoldCanves, ¬á¬ »«¬áºá¡« ó Γáí½¿µÑ: ¥σ« TKHoldCanvas TKMessage ------------------------------------------- Normal êßΓ¿¡á ¿½¿ ï«ª∞ Å«¬áºδóáÑΓß∩, ¬á¬ ó αáí«τÑ¼ »α«ßΓαá¡ßΓóÑ OF ï«ª∞ Å«¬áºδóáÑΓß∩, ¬á¬ ó αáí«τÑ¼ »α«ßΓαá¡ßΓóÑ (»«ß½Ñ πñá½Ñ¡¿∩ ¬á¡óδ ÅÇïá) ON êßΓ¿¡á Å«¬áºδóáÑΓß∩ ó ΓÑ¬πΘÑ⌐ ¬á¡óÑ ÅÇïá. - TKChar: é«ºóαáΘáÑΓ ¬«ñ ¬½áó¿Φ¿, ¬«Γ«αδ⌐ óó«ñ¿Γ ¬παß«α ó »«½Ñ. - TKChanged, TKKeyType, TKUserKey ¿ TKAccept ¡Ñ ¿¼ÑεΓ «Γ¡«ΦÑ¡¿∩ ¬ »α«µÑñπαá¼ »α¿íδΓ¿∩. éδ ¡áº¡áτáÑΓÑ »α«µÑñπαδ »α¿íδΓ¿∩ ó »«½Ñ, ¿ß»«½∞ºπ∩ πß- ½πúπ FieldDefine ¿º ß¬α¿»Γá "toolkit". Åα«µÑñπαδ óδσ«ñá. Åα«µÑñπαá óδσ«ñá óδºδóáÑΓß∩ óß∩¬¿⌐ αáº, ¬«úñá »«½∞º«óá- ΓÑ½∞ ¡áª¿¼áÑΓ ¬½áó¿Φπ, ¬«Γ«αá∩ »ÑαÑ¼ÑΘáÑΓ ¬παß«α ¿º »«½∩, ñ½∩ ¬«Γ«α«ú« «»αÑñÑ½Ñ¡á Γá¬á∩ »α«µÑñπαá. éδº«ó »α«µÑñπαδ óδ- σ«ñá »α«¿ßσ«ñ¿Γ »ÑαÑñ ΓÑ¼, ¬á¬ ¬«¼á¡ñá »α«⌐ñÑΓ τÑαÑº ÅÇÉÇ- äÄèæ ¿ »«½Ñ íπñÑΓ ñÑ⌐ßΓó¿ΓÑ½∞¡« »«¬¿¡πΓ«. é Γ«¼ ß½πτáÑ, ¬«úñá »«½Ñ »«¬¿ñáÑΓß∩ »α¿ »«¼«Θ¿ Γá¬¿σ ¬«¼á¡ñ, ¬á¬ MOVETO ¿½¿ RIGHT, ¬«Γ«αδÑ éδ ó¬½ετ¿½¿ ó éáΦÑ »α¿½«ªÑ¡¿Ñ, DoWait ¡Ñ ¡Ñ óδºδóáÑΓ »α«µÑñπαπ óδσ«ñá. Äñ¡á¬«, éδ ¡Ñ»«ßαÑñßΓóÑ¡¡« ¼«ªÑΓÑ óδºóáΓ∞ »α«µÑñπαπ óδσ«ñá Γá¬ªÑ, ¬á¬ éδ óδºδóáÑΓÑ »α«µÑñπαπ ó éáΦ¿σ »α¿½«ªÑ¡¿∩σ. Åα«µÑñπαδ óδσ«ñá óδºδóáεΓß∩ áóΓ«¼áΓ¿τÑß¬¿ »α«µÑñπα«⌐ DoWait »« ß½ÑñπεΘ¿¼ ñóπ¼ »α¿τ¿¡á¼: - Å«½∞º«óáΓÑ½∞ ¡áªá½ ¬½áó¿Φπ óδσ«ñá ¿º »«½∩, Γá¬πε, ¬á¬ [ßΓαÑ½¬á óóÑασ], ß»αáΘ¿óá½ »α«µÑñπαπ DoWait "î«úπ ½¿ ∩ »«¬¿¡πΓ∞ φΓ« »«½Ñ?" éáΦá »α«µÑñπαá óδσ«ñá óδíÑαÑΓ - ñ«½ªÑ¡ ½¿ ¬παß«α «ßΓáΓ∞ß∩ ó¡πΓα¿ »«½∩ (ó«º¼«ª¡«, »«¬á ¡Ñ íπñÑΓ óóÑñÑ¡á »αáó¿½∞¡á∩ óÑ½¿τ¿¡á) ¿½¿ »«¬¿¡πΓ∞ Ñú«. - Å«½∞º«óáΓÑ½∞ ¡áªá½ ¬½áó¿Φπ óδσ«ñá ¿º »α«µÑñπαδ DoWait. ì« ñ½∩ Γ«ú«, τΓ«íδ óδ⌐Γ¿ ¿º »α«µÑñπαδ DoWait, ΓÑ¬π- ΘÑÑ »«½Ñ ñ«½ª¡« ß«ñÑαªªáΓ∞ ¬«ααÑ¬Γ¡«Ñ º¡áτÑ¡¿Ñ, ¿ éáΦá »α«- µÑñπαá óδσ«ñá »α«¿ºóÑñÑΓ ¡Ñ«íσ«ñ¿¼δÑ »α«óÑα¬¿ »ÑαÑñ ΓÑ¼, ¬á¬ »«ºó«½¿Γ∞ »«½∞º«óáΓÑ½ε óδ⌐Γ¿ ¿º DoWait. æπΘÑßΓóπÑΓ ñóá Γ¿»á »α«µÑñπα óδσ«ñá: è«ααÑ¬Γ¡δ⌐ óδσ«ñ (GoodDepart) ¿ Å½«σ«⌐ óδσ«ñ (BadDepart). Åα«µÑñπαá Good Depart óδºδóáÑΓß∩ ó« óαÑ¼∩ »«»δΓ¬¿ óδ⌐Γ¿ ¿º »«½∩, ¬«úñá ñá¡¡δÑ »α«Φ½¿ óßÑ ¡Ñ«íσ«ñ¿¼δÑ »α«óÑα¬¿. Åα«µÑñπαá Good Depart ¡Ñ ñ«½ª¡á »«¼ÑΘáΓ∞ ¡Ñ»αáó¿½∞¡δÑ ¿½¿ τáßΓ¿τ¡« »αá- ó¿½∞¡δÑ ñá¡¡δÑ ó »«½Ñ, »«Γ«¼π, τΓ« »α«µÑñπαá DoWait »αÑñ»«½«úáÑΓ, τΓ« ¬«ααÑ¬Γ¡«ßΓ∞ ñá¡¡δσ ó »«½Ñ «ßΓáÑΓß∩ ¡Ñ¡á- απΦÑ¡¡«⌐ »«ß½Ñ αáí«Γδ »α«µÑñπαδ Good Depart. Åα«µÑñπαδ BadDepart óδºδóáεΓß∩ »α«µÑñπα«⌐ DoWait, ¬«úñá »«½∞º«óáΓÑ½∞ »δΓáÑΓß∩ óδ⌐Γ¿ ¿º »«½∩ ¿ »α¿ ºΓ«¼ ñá¡¡δÑ ó φΓ«¼ »«½Ñ ¡Ñ »α«Φ½¿ óßÑ ¡Ñ«íσ«ñ¿¼δÑ »α«óÑα¬¿. Åα«µÑñπαδ Γ¿»á BadDepart ñ«½ª¡δ íδΓ∞ ¡á»¿ßá¡δ «τÑ¡∞ ΓΘáΓÑ½∞¡«, »«ß- ¬«½∞¬π «¡¿ óδºδóáεΓß∩ ó Γ«Γ ¼«¼Ñ¡Γ, ¬«úñá »«½Ñ ß«ñÑαª¿Γ ¡Ñ»αáó¿½∞¡δÑ ñá¡¡δÑ. Å«»δΓ¬¿ »«¬¿¡πΓ∞ »«½Ñ ß ¡Ñ»αáó¿½∞∞¡δ¼¿ ñá¡¡δ¼¿ ¼«úπΓ »α¿óÑßΓ¿ ¬ «Φ¿í¬Ñ ß¬α¿»Γá. Åα«µÑñπαδ GoodDepart ¿ BadDepart ¡áº¡áτáεΓß∩ ¬ »«½∩¼ »«ßαÑñßΓó«¼ πß½πú¿ FieldDefine. ÅÑαÑ¼Ñ¡¡δÑ ó »α«µÑñπαÑ GoodDepart. Åα«µÑñπαá GoodDepart ¿ß»«½∞ºπÑΓ ΓÑ ªÑ ßá¼δÑ »ÑαÑ¼Ñ¡- ¡δÑ, τΓ« íδ½¿ αáßß¼«ΓαÑ¡δ óδΦÑ, ºá ß½ÑñπεΘ¿¼ ¿ß¬½ετÑ¡¿Ñ¼: - TKAccept: àß½¿ πßΓá¡«ó¿Γ∞ φΓπ »ÑαÑ¼Ñ¡¡πε ó º¡áτÑ¡¿Ñ "ï«ª¡«", Γ« »α«µÑñπαá DoWait º¡áÑΓ, τΓ« ¡Ñ½∞º∩ »α¿¡¿¼áΓ∞ ß¿¼ó«½, ¬«Γ«αδ⌐ íδ½ óóÑñÑ¡ ¿ «Γ¼Ñ¡∩ÑΓ óδσ«ñ ¿º »«½∩. - TKChanged: ôßΓá¡áó½¿óáÑΓß∩ ó ß«ßΓ«∩¡¿Ñ "êßΓ¿¡á" ¿½¿ "ï«ª∞" »α«µÑñπα«⌐ DoWait ó ºáó¿ß¿¼«ßΓ¿ «Γ Γ«ú«, ¼Ñ¡∩½áß∞ ¿½¿ ¡ÑΓ óÑ½¿τ¿¡á ó »«½Ñ »«ß½Ñ óσ«ñá ó ¡Ñú«. - TKChar: æ«ñÑαª¿Γ óÑ½¿τ¿¡π »«ß½Ññ¡Ñú« óóÑñÑ¡¡«ú« ß¿¼- ó«½á. é «Γ½¿τ¿¿ «Γ »α«µÑñπαδ arrival (»α¿íδΓ¿∩), ñÑ⌐ßΓó¿Ñ ¬½áó¿Φ ¼«ªÑΓ íδΓ∞ «Γ½«ªÑ¡« (¡Ñ «íαáíáΓδóáÑΓß∩ ÅÇÉÇäÄèæ«¼), ¿ ñáªÑ ¼«ªÑΓ íδΓ∞ «Γ¼Ñ¡Ñ¡« ßá¼«⌐ »α«µÑñπα«⌐. æíα«ß TKChar »α¿ó«ñ¿Γ ¬ Γ«¼π, τΓ« »α«µÑñπαá DoWait ¿ú¡«α¿απÑΓ ¡áªáΓ¿Ñ ¬½áó¿Φ¿ ¿ αÑáú¿απÑΓ ¡á ¡«ó«Ñ º¡áτÑ¡¿Ñ óÑ½¿τ¿¡δ. Å«φΓ«¼π, ßíα«ß »ÑαÑ¼Ñ¡¡«⌐ TKChar »« «Γ¡«ΦÑ¡¿ε ¬ ÑΘÑ «ñ¡«⌐ ¬½áó¿ΦÑ »ÑαÑ¼ÑΘÑ¡¿∩ ºáßΓáó½∩ÑΓ DoWAit »ÑαÑºá»πß¬áΓ∞ »α«µÑñπαπ óδσ«- ñá. àß½¿ éδ ¡Ñ σ«Γ¿ΓÑ, τΓ«íδ »α«µÑñπαá »ÑαÑºá»πß¬á½áß∞, ¿ß- »«½∞ºπ⌐ΓÑ KEYPRESS ñ½∩ Γ«ú«, τΓ«íδ óóÑßΓ¿ ß¿¼ó«½ ¿ óδºóáΓ∞ »α«µÑñπαπ ArriveField. - TKKeyType: æ«ñÑαª¿Γ Γ¿» «Γ½«ªÑ¡¡«⌐ ¬½áó¿Φ¿. ä½∩ »α«- µÑñπα óδσ«ñá »α¿Ñ¼½¿¼δ¼¿ Γ¿»á¼¿ ∩ó½∩εΓß∩ (M)ovement, (D)epart ¿ (E)xit. àß½¿ éδ σ«Γ¿ΓÑ óδ⌐Γ¿ ¿º »α«µÑñπαδ DoWait »α¿ »«¼«Θ¿ éáΦÑ⌐ »α«µÑñπαδ óδσ«ñá, »α¿τÑ¼ íÑº ÑÑ »ÑαÑºá»πß¬á, πßΓá¡«- ó¿ΓÑ »ÑαÑ¼Ñ¡¡πε TKKeyType ó "E". è«úñá »α«µÑñπαá ºáóÑαΦ¿Γ αáí«Γπ, »α«µÑñπαá DoWait, íπñÑΓ »«¬¿¡πΓá áóΓ«¼áΓ¿τÑß¬¿. ÅÑαÑ¼Ñ¡¡δÑ ó »α«µÑñπαÑ BadDepart. Åα«µÑñπαδ BadDepart ¿¼ÑεΓ »«í«τ¡δÑ ñÑ⌐ßΓó¿∩, ¬«Γ«αδÑ ñ«½ª¡δ íδΓ∞ αáßß¼«ΓαÑ¡δ. àß½¿ éáΦá »α«µÑñπαá BadDepart ¿ß- »αáó½∩ÑΓ ñá¡¡δÑ ó ΓÑ¬πΘÑ¼ »«½Ñ, Γ« »«ß½Ñ óδσ«ñá ¿º »α«µÑñπ- αδ, DoWait αÑáú¿απÑΓ Γá¬, ¬á¬ Ñß½¿ íδ »α«µÑñπαá GoodDepart íδ½á óδºóá¡á ó¼ÑßΓ« »α«µÑñπαδ BadDepart. é »α«Γ¿ó¡«¼ ß½π- τáÑ, »α«µÑñπαá DoWait ¡Ñ »«ºó«½¿Γ »«¬¿¡πΓ∞ »«½Ñ. Æα¿ ¬½áó¿Φ¿: [Del], Undo[Ctrl][U] ¿ [Ctrl][Break] ¼«úπΓ ó½¿∩Γ∞ ¡á »α«µÑñπαδ BadDepart ß½ÑñπεΘ¿¼ ¡Ñ«ª¿ñá¡¡δ¼ «íαáº«¼: - ìáªáΓ¿Ñ ½εí«⌐ ¿º φΓ¿σ ¬½áó¿Φ, ¡Ñß¼«Γα∩ ¡á Γ«, τΓ« »«½Ñ ß«ñÑαª¿Γ ¡Ñ»αáó¿½∞¡δÑ ñá¡¡δÑ, »α¿óÑñÑΓ ¬ Γ«¼π, τΓ« ñá¡¡δÑ íπñπΓ ΓÑ«αÑΓ¿τÑß¬¿ ¿ß»αáó½Ñ¡δ. - àß½¿ ¬á¬á∩-¡¿íπñ∞ ¿º φΓ¿σ ¬½áó¿Φ «»αÑñÑ½Ñ¡á, ¬á¬ ¬½áó¿Φá óδσ«ñá, »«½∞º«óáΓÑ½∞ ¡Ñ ¼«ªÑΓ óδ⌐Γ¿, ñáªÑ Ñß½¿ ¡á- ªáΓ¿Ñ ¬½áó¿Φ¿ íδ½« »α¿¡∩Γ« »α«µÑñπα«⌐ BadDepart. ê, »«ß- ¬«½∞¬π ñá¡¡δÑ ó »«½Ñ ÑΘÑ ¡Ñ íδ½¿ ¿º¼Ñ¡Ñ¡δ »α¿ »«¼«Θ¿ ¬½áó¿Φ [Del], Undo[Ctrl][Break], ¡Ñ»αáó¿½∞¡δÑ ñá¡¡δÑ «ßΓáεΓß∩, ºáßΓáó½∩∩ »α«µÑñπαπ DoWait óδºδóáΓ∞, »ÑαÑñ ΓÑ¼, ¬á¬ óδ⌐Γ¿ ¿º »«½∩, »α«µÑñπαπ BadDepart. DoWait ¡Ñ »«ºó«½¿Γ óδ⌐Γ¿ ¿º »«½∩, »«¬á ñá¡¡δÑ ó ¡Ñ¼ ¡Ñ íπñπΓ »αáó¿½∞¡δ¼¿. - è«úñá ¬½áó¿Φ¿ [Del], Undo[Ctrl][U] ¿ [Ctrl][Break] «»αÑñÑ½Ñ¡δ, ¬á¬ ÉÑúπ½∩α¡δÑ ¿½¿ æ»Ñµ¿á½∞¡δÑ, «¡¿ ºá»αÑΘáεΓ ½εíδÑ ß««íΘÑ¡¿∩, «»αÑñÑ½Ñ¡¡δÑ »«½∞º«óáΓÑ½Ñ¼ ó »Ñ- αÑ¼Ñ¡¡«⌐ TKMessage. é«Γ »«τÑ¼π »α¿¡∩Γ«, τΓ« ¡áí«α ß««íΘÑ¡¿⌐ »α«µÑñπαδ BadDepart «Γ¡«ß¿Γß∩ ¬ Γ«¼π, τΓ« »«½Ñ ¡Ñ ¼«ªÑΓ íδΓ∞ »«¬¿¡πΓ«. ê »«ß¬«½∞¬π φΓ¿ ¬½áó¿Φ¿ »α¿ó«ñ∩Γ ¬ óδσ«ñπ ¿º »«½∩, ¡Ñß¼«Γα∩ ¡á Ñú« ΓÑ¬πΘÑÑ ß«ñÑαªá¡¿Ñ, ½εíδÑ Γá¬¿Ñ ß««í- ΘÑ¡¿∩ ¡Ñ»«ñσ«ñ∩Θ¿. ÅÑαÑ¼Ñ¡¡δÑ, ¿ß»«½∞ºπÑ¼δÑ ó »α«µÑñπαÑ BadDepart Γ«τ¡« Γá¬, ¬á¬ ¿ ó »α«µÑñπαÑ GoodDepart ºá ß½ÑñπεΘ¿¼ ¿ß¬½ετÑ¡¿Ñ¼: - TKAccept: è«úñá »ÑαÑ¼Ñ¡¡á∩ πßΓá¡«ó½Ñ¡á ó º¡áτÑ¡¿Ñ "êßΓ¿¡á", «¡á »«ºó«½∩ÑΓ »ÑαÑñáóáΓ∞ ¬«ñ ¬½áó¿Φ¿ τÑαÑº ÅÇÉÇ- äÄèæ ¿ óδºδóáÑΓ »«∩ó½Ñ¡¿Ñ ¡á φ¬αá¡Ñ «¬¡á ß ß««íΘÑ¡¿Ñ¼. éδß- óÑτ¿óáÑ¼δÑ ß««íΘÑ¡¿∩ íπñπΓ á¡á½«ú¿τ¡δ ΓÑ¼, ¬«Γ«αδÑ óδßóÑτ¿- óáεΓß∩ ó ¿¡ΓÑαá¬Γ¿ó¡«¼ αÑª¿¼Ñ »α¿ »«»δΓ¬Ñ »«¬¿¡πΓ∞ »«½Ñ ß ¡Ñ»αáó¿½∞¡δ¼ ß«ñÑαªá¡¿Ñ¼; àß½¿ ªÑ »α«µÑñπαá Bad Depart ¡Ñ «»αÑñÑ½Ñ¡á, φΓ« ß½πτ¿Γß∩ áóΓ«¼áΓ¿τÑß¬¿. Å« π¼«½τá¡¿ε »ÑαÑ- ¼Ñ¡¡á∩ πßΓá¡áó½¿óáÑΓß∩ ó º¡áτÑ¡¿Ñ "êßΓ¿¡á". àß½¿ éδ πßΓá¡«ó¿½¿ TKAccept ó º¡áτÑ¡¿Ñ "ï«ª¡«", Γ« ¬«ñ ¬½áó¿Φ¿, ß »«¼«Θ∞ε ¬«Γ«α«ú« »«½∞º«óáΓÑ½∞ »«»δΓáÑΓß∩ »«¬¿- ¡πΓ∞ »«½Ñ, ¡Ñ »ÑαÑñáÑΓß∩ τÑαÑº ÅÇÉÇäÄèæ ¿ «¬¡« ß ß««íΘÑ¡¿Ñ¼ ¡Ñ íπñÑΓ óδßóÑτÑ¡«. çá¼Ñτá¡¿Ñ: àß½¿ πßΓá¡«ó½Ñ¡« º¡áτÑ¡¿Ñ »ÑαÑ¼Ñ¡¡«⌐ TKMessage, Γ« »ÑαÑ¼Ñ¡¡á∩ TKAccept ¿ú¡«α¿απÑΓß∩, ¿ ß¿¼ó«½ ¡Ñ »α¿¡¿¼áÑΓß∩. φΓ« ½¿¬ó¿ñ¿απÑΓ ó«º¼«ª¡«ßΓ∞ »«∩ó½Ñ¡¿∩ ¡á φ¬αá- ¡Ñ «ñ¡«óαÑ¼Ñ¡¡« ñóπσ ß««íΘÑ¡¿⌐. - TKMessage: è«úñá »ÑαÑ¼Ñ¡¡á∩ TKMessage πßΓá¡áó½¿óáÑΓ- ß∩, Γ« «¡á óδßóÑτ¿óáÑΓß∩ ¡á φ¬αá¡Ñ αá¡∞ΦÑ, τÑ¼ ß««íΘÑ¡¿Ñ ÅÇÉÇäÄèæá. êß¬½ετÑ¡¿Ñ ß«ßΓáó½∩ÑΓ ß½πτá⌐, ¬«úñá TKChar ß«- ñÑαª¿Γ ¬«ñδ ¬½áó¿Φ: [Del],Undo[Ctrl][U],¿½¿ [Ctrl][Break], ¬«Γ«αδÑ ºá»αÑΘáεΓ ß««íΘÑ¡¿Ñ. - TKChanged: ¥Γá »ÑαÑ¼Ñ¡¡á∩ ¡Ñ «»αÑñÑ½Ñ¡á ñ½∩ »α«µÑñπα BadDepart. ÄτÑó¿ñ¡«, τΓ« Ñß½¿ ñá¡¡δÑ ¡Ñ»αáó¿½∞¡δÑ, Γ« «¡¿ ñ«½ª¡δ íδΓ∞ ¿º¼Ñ¡Ñ¡δ ñ« óδσ«ñá ¿º »«½∩. Åα«µÑñπαδ ¡áªáΓ¿∩ ¬½áó¿Φ. Åα«µÑñπαδ ¡áªáΓ¿∩ ¬½áó¿Φ óδºδóáεΓß∩ óß∩¬¿⌐ αáº, ¬á¬ »α«¿ßσ«ñ¿Γ ¡áªáΓ¿Ñ αÑúπ½∩α¡δσ, ¡Ñ »ÑαÑ¼ÑΘáεΘ¿σ ¬παß«α ¬½á- ó¿Φ ¿ ¬παß«α, ¡áσ«ñ∩Θ¿⌐ß∩ ó »«½Ñ ß «»αÑñÑ½Ñ¡¡«⌐ ñ½∩ ¡Ñú« »α«µÑñπα«⌐ ¡áªáΓ¿∩ ¬½áó¿Φ¿. àñ¿¡ßΓóÑ¡¡δ¼ ¿ß¬½ετÑ¡¿Ñ¼ ∩ó½∩- ÑΓß∩ ß½πτá⌐, ¬«úñá αáí«τÑÑ »α«ßΓαá¡ßΓó« ¡áσ«ñ¿Γß∩ ó αÑª¿¼Ñ Å«¼«Θ¿ ¿½¿ ó αÑª¿¼Ñ Åα«ß¼«Γαá »«½∩. é φΓ«¼ ß½πτáÑ »α«µÑñπαδ ¡áªáΓ¿∩ ¬½áó¿Φ ¡Ñ óδºδóáεΓß∩ »α«µÑñπα«⌐ DoWait. Åα«µÑñπαδ ¡áªáΓ¿∩ ¬½áó¿Φ óδºδóáεΓß∩ »ÑαÑñ ΓÑ¼, ¬«úñá ¬«ñ ¡áªáΓ«⌐ ¬½áó¿Φ¿ »ÑαÑñáßΓß∩ ó ÅÇÉÇäÄèæ ñ½∩ «íαáí«Γ¬¿. ¥Γ« »«ºó«½∩ÑΓ éá¼ «ßπΘÑßΓó½∩Γ∞ «íΘ¿⌐ ¬«¡Γα«½∞ ¡áñ óσ«ñ¡δ¼¿ ñá¡¡δ¼¿ (Γ« ÑßΓ∞ éδ ¼«ªÑΓÑ »α«óÑα∩Γ∞ ¿ αÑáú¿α«óáΓ∞ ¡á ¬áª- ñ«Ñ ¡áªáΓ¿Ñ ¬½áó¿Φ¿, Ñß½¿ éδ σ«Γ¿ΓÑ). ÅÑαÑ¼Ñ¡¡δÑ, ¿ß»«½∞ºπÑ¼δÑ ó »α«µÑñπαÑ ¡áªáΓ¿∩ ¬½áó¿Φ¿ ß½ÑñπεΘ¿Ñ: - TKAccept: àß½¿ éáΦá »α«µÑñπαá πßΓá¡«ó¿Γ φΓπ »ÑαÑ¼Ñ¡- ¡πε ó º¡áτÑ¡¿Ñ "ï«ª∞", Γ« ½εíá∩ ¡áªáΓá∩ »«½∞º«óáΓÑ½Ñ¼ ¬½á- ó¿Φá íπñÑΓ ¿ú¡«α¿α«óáΓ∞ß∩ »α«µÑñπα«⌐ DoWait ¿ ¡Ñ »α«⌐ñÑΓ ó ÅÇÉÇäÄèæ. Å« π¼«½τá¡¿ε «¡á πßΓá¡áó½¿óáÑΓß∩ ó º¡áτÑ¡¿Ñ "êß- Γ¿¡á". - TKCanged: ìÑ ¿¼ÑÑΓ º¡áτÑ¡¿∩ ó ñá¡¡«¼ ¬«¡ΓÑ¬ßΓÑ. - TKKeyType: é »α«µÑñπαáσ ¡áªáΓ¿∩ ¬½áó¿Φ, óßÑ ¬½áó¿Φ¿ ∩ó½∩εΓß∩ αÑúπ½∩α¡δ¼¿. æ»Ñµ¿á½∞¡δÑ ¬½áó¿Φ¿ π»αáó½∩εΓß∩ ß»Ñ- µ¿á½∞¡δ¼¿ »α«µÑñπαá¼¿. è½áó¿Φ¿ Exit, Movement, Departure π»αáó½∩εΓß∩ ß »«¼«Θ∞ε »α«µÑñπαδ óδσ«ñá. ìÑαáºαÑΦÑ¡¡δÑ ¬½á- ó¿Φ¿ »α«ßΓ« ¡Ñ »α¿¡¿¼áεΓß∩ »α«µÑñπα«⌐ DoWait. ç¡áτÑ¡¿Ñ »Ñ- αÑ¼Ñ¡¡«⌐ »« π¼«½τá¡¿ε αáó¡« "R" ñ½∩ αÑúπ½∩α¡δσ ¡Ñ»ÑαÑ¼ÑΘáε- Θ¿σ ¬παß«α ¬½áó¿Φ. - TKChar: æ«ñÑαª¿Γ ¬«ñ ¬½áó¿Φ¿ «ª¿ñá¡¿∩. éδ ¼«ªÑΓÑ »α«óÑα¿Γ∞ φΓπ óÑ½¿τ¿¡π ¿½¿ ¿º¼Ñ¡¿Γ∞ ÑÑ »α¿ »«¼«Θ¿ éáΦÑ⌐ »α«µÑñπαδ. êº¼Ñ¡Ñ¡¿Ñ »ÑαÑ¼Ñ¡¡«⌐ »α¿óÑñÑΓ ¬ Γ«¼π, τΓ« »α«µÑ- ñπαá DoWait íπñÑΓ ¿ú¡«α¿α«óáΓ∞ óó«ñ¿¼δÑ ß¿¼ó«½δ ¿ αáí«ΓáΓ∞ Γá¬, ¬á¬ Ñß½¿ íδ »«½∞º«óáΓÑ½∞ Γ«½∞¬« τΓ« ¡áªá½ ¡«óπε ¬½áó¿- Φπ. àß½¿ éδ ¡Ñ σ«Γ¿ΓÑ, τΓ«íδ »α«µÑñπαá »ÑαÑºá»πß¬á½áß∞, ¿ß- »«½∞∞ºπ⌐ΓÑ KEYPRESS ñ½∩ óó«ñá ß¿¼ó«½á ¿ πßΓá¡«ó¿ΓÑ »ÑαÑ¼Ñ¡- ¡πε TKAssept ó ß«ßΓ«∩¡¿Ñ "ï«ª∞". ÅÑαÑ¼Ñ¡¡δÑ TKFieldVal, TKHoldCanvas, TKMessage ¿ TKFieldNum ¿ß»«½∞ºπεΓß∩ Γ«τ¡« Γá¬ªÑ, ¬á¬ φΓ« íδ½« «»¿ßá¡« ó ú½áóÑ "Åα«µÑñπαδ »α¿íδΓ¿∩". Åα«µÑñπαδ ¡áªáΓ¿∩ ¬½áó¿Φ ¼«úπΓ »α¿ó«ñ¿Γ∞ ¬ óδσ«ñπ ¿º »«½∩. é φΓ«¼ ß½πτáÑ éδ ñ«½ª¡δ óδºóáΓ∞ ½εíπε ¿º »α«µÑñπα: ArriveField ¿½¿ NewField ñ½∩ Γ«ú«, τΓ«íδ ¿¡Σ«α¼¿α«óáΓ∞ DoWait « Γ«¼, τΓ« éδ »ÑαÑΦ½¿ ó ñαπú«Ñ »«½Ñ. Åα«µÑñπαδ ArriveField αáßß¼«ΓαÑ¡δ ó ú½áóÑ "Åα«µÑñπαδ »α¿íδΓ¿∩" óδΦÑ, á Γá¬ªÑ ó ¬«¡µÑ ñá¡¡«ú« »áαáúαáΣá. éδ ñ«½ª¡δ ºá¼ÑΓ¿Γ∞ «ñ¡« αáº½¿τ¿Ñ ó ¿ß»«½∞º«óá¡¿¿ φΓ¿σ ñóπσ »α«µÑñπα: ½εíδÑ ºáñÑαª¬¿ ¡áªáΓ¿∩ ¬½áó¿Φ íπñπΓ á¡¡π½¿- α«óá¡δ »α«µÑñπα«⌐ ArriveField (»« «»αÑñÑ½Ñ¡¿ε ¡Ñ ßπΘÑßΓ- óπÑΓ ¡áªáΓ¿⌐ ¬½áó¿Φ, ¬«Γ«αδÑ ¼«ú½¿ íδ íδΓ∞ ºáñÑαªá¡δ ó« óαÑ¼∩ »α¿íδΓ¿∩ ó »«½Ñ). Åα«µÑñπαá NewField, ß ñαπú«⌐ ßΓ«α«¡δ, ¡Ñ ∩ó½∩ÑΓß∩ »α¿τ¿¡«⌐ »α¿íδΓ¿∩ ó »«½Ñ ¿ φΓ« »α«¿ßσ«ñ¿Γ ¡Ñ «Γ¼Ñ¡∩∩ ºáñÑα- ªá¡¡δ⌐ óó«ñ. èá¬ ¿ ó ß½πτáÑ ß »α«µÑñπα«⌐ BadDepart, ñá¡¡δÑ ¼«úπΓ íδΓ∞ ¬á¬ »αáó¿½∞¡δ¼¿, Γá¬ ¿ ¡Ñ»αáó¿½∞¡δ¼¿ »α¿ óδº«óÑ »α«µÑñπαδ ¡áªáΓ¿∩ ¬½áó¿Φ, Γá¬,τΓ« ¡Ñ«íσ«ñ¿¼« íδΓ∞ πóÑαÑ¡¡δ¼ ó ¬«¡Γα«½Ñ »αáó¿½∞¡«ßΓ¿ »«½∩ »ÑαÑñ »«»δΓ¬«⌐ Ñú« »«¬¿¡πΓ∞. Åα«µÑñπαδ ¡áªáΓ¿∩ ¬½áó¿Φ ¡áº¡áτáεΓß∩ »α¿ »«¼«Θ¿ πß½πú¿ FieldDefine. æ»Ñµ¿á½∞¡δδÑ »α«µÑñπαδ. æ»Ñµ¿á½∞¡δÑ »α«µÑñπαδ óδºδóáεΓß∩ óß∩¬¿⌐ αáº, ¬«úñá »α«¿ßσ«ñ¿Γ ¡áªáΓ¿Ñ ß»Ñµ¿á½∞¡«⌐ ¬½áó¿Φ¿. àß½¿ ß»Ñµ¿á½∞¡á∩ ¬½áó¿Φá ¼«ªÑΓ óδóÑßΓ¿ »«½∞º«óáΓÑ½∩ ¿º »«½∩, Γ« «¡á ¡áºδóá- ÑΓß∩ DepartSpecialKey. Åα«µÑñπαÑ DoWait ¿ºóÑßΓ¡«, ¬á¬¿Ñ ß»Ñµ¿á½∞¡δÑ ¬½áó¿Φ¿ ¼«úπΓ «ßπΘÑßΓó½∩Γ∞ óδσ«ñ ¿º »«½∩. é «Γ½¿τ¿¿ «Γ óßÑσ ñαπú¿σ »α«µÑñπα «»αÑñÑ½∩Ñ¼δσ éá¼¿, ß»Ñµ¿á½∞¡δÑ »α«µÑñπαδ ¡Ñ ºáó¿ß∩Γ «Γ »«½∩, ó ¬«Γ«α«¼ ¡áσ«- ñ¿Γß∩ ¬παß«α. è«úñá »α«¿ßσ«ñ¿Γ ¡áªáΓ¿Ñ ß»Ñµ¿á½∞¡«⌐ ¬½áó¿Φ¿, Γ« »α«µÑñπαá, »α¿ßó«Ñ¡¡á∩ ÑÑ πß½πú«⌐ KeyDefine, óδºδóáÑΓß∩ áóΓ«¼áΓ¿τÑß¬¿, ¡Ñºáó¿ß¿¼« «Γ »«½∩, ó ¬«Γ«α«¼ αáí«ΓáÑΓ »«½∞º«- óáΓÑ½∞. ÅÑαÑ¼Ñ¡¡δÑ, ¿ß»«½∞ºπÑ¼δÑ ß»Ñµ¿á½∞¡δ¼¿ »α«µÑñπαá¼¿, αáº½¿τáεΓß∩ ßó«¿¼ »αÑñßΓáó½Ñ¡¿Ñ¼ ñ½∩ »α¿íδΓ¿∩ ¿ óδσ«ñá ¿º »«½∩ ß½ÑñπεΘ¿¼ «íαáº«¼: - TKKeyType: æ«ñÑαª¿Γ º¡áτÑ¡¿Ñ ½¿í« "S" ½¿í« "D". éδ ¼«ªÑΓÑ »α«óÑα¿Γ∞ φΓπ »ÑαÑ¼Ñ¡¡πε ñ½∩ Γ«ú«, τΓ«íδ «»αÑñÑ½¿Γ∞, «Γ¡«ß¿Γß∩ ½¿ ¬½áó¿Φá ¬ Γ¿»π Special ¿½¿ DepartSpecial. àß- ½¿ ¬½áó¿Φá «Γ¡«ß¿Γß∩ ¬ Γ¿»π DepartSpecial ¿ éδ σ«Γ¿ΓÑ óδ⌐- Γ¿ ¿º »α«µÑñπαδ DoWait »«ß½Ñ óδ»«½¡Ñ¡¿∩ »α«µÑñπαδ óδσ«ñá ¿º »«½∩, πßΓá¡«ó¿ΓÑ »ÑαÑ¼Ñ¡¡πε TKKeyType ó º¡áτÑ¡¿Ñ "E" (Exit). Åα«µÑñπαá óδσ«ñá (¬«Γ«αá∩ íπñÑΓ óδ»«½¡∩Γ∞ß∩ »«ß½Ñ ß»Ñ- µ¿á½∞¡«⌐ »α«µÑñπαδ) ¼«ªÑΓ Γá¬ªÑ «Γ¼Ñ¡¿Γ∞ ΓαÑí«óá¡¿Ñ óδσ«ñá (ß¼. "Åα«µÑñπαδ óδσ«ñá"). - TKChar: æ«ñÑαª¿Γ ¬«ñ ¬½áó¿Φ¿. éδ ¼«ªÑΓÑ »α«óÑα¿Γ∞ φΓπ óÑ½¿τ¿¡π ¿½¿ ¿º¼Ñ¡¿Γ∞ ÑÑ ßó«Ñ⌐ »α«µÑñπα«⌐. êº¼Ñ¡Ñ¡¿Ñ º¡áτÑ¡¿∩ φΓ«⌐ »ÑαÑ¼Ñ¡¡«⌐ »α¿óÑñÑΓ ¬ Γ«¼π, τΓ« »α«µÑñπαá DoWait íπñÑΓ ¿ú¡«α¿α«óáΓ∞ óó«ñ¿¼δÑ ß ¬½áó¿áΓπαδ ß¿¼ó«½δ, ¿ αáí«ΓáΓ∞, ¬á¬ Ñß½¿ íδ »«½∞º«óáΓÑ½∞ ¡áª¿¼á½ Γ«½∞¬« ¡«óπε ¬½áó¿Φπ. é ºá¬½ετÑ¡¿Ñ «Γ¼ÑΓ¿¼, τΓ« »α«µÑñπαδ ArriveField ¿ New Field ñ«½ª¡δ óδºδóáΓ∞ß∩ Γ«½∞¬« »α¿ «»αÑñÑ½Ñ¡¡δσ πß½«ó¿∩σ, ¬á¬ αáßß¼«ΓαÑ¡« ó ú½áóÑ "Åα«µÑñπαδ ¡áªáΓ¿∩ ¬½áó¿Φ". æ»Ñµ¿- á½∞¡δÑ »α«µÑñπαδ »α¿ßóá¿óáεΓß∩ »α¿ »«¼«Θ¿ πß½πú¿ KeyDefine. æí«α¬á »α«úαá¼¼δ. ä« ß¿σ »«α ¼áΓÑα¿á½ íδ½ »αÑñßΓáó½Ñ¡ «ΓñÑ½∞¡δ¼¿ Σαáú- ¼Ñ¡Γá¼¿. é φΓ«¼ »áαáúαáΣÑ «í«íΘÑ¡δ óßÑ Φáú¿, ¬«Γ«αδÑ éδ ñ«½ª¡δ ßñÑ½áΓ∞ »α¿ ß«ºñá¡¿¿ »α¿½«ªÑ¡¿⌐, ¿ß»«½∞ºπ∩ ß¿ßΓÑ¼π Toolkit. 1.æ«ºñáΓ∞ (¿¡ΓÑαá¬Γ¿ó¡« ó ÅÇÉÇäÄèæÑ) Γáí½¿µδ, Σ«α¼δ, ¬«¡Γα«½∞ µÑ½«ßΓ¡«ßΓ¿ ¿ ñαπú¿Ñ «íΩÑ¬Γδ ÅÇÉÇäÄèæá, ¿ß»«½∞ºπÑ- ¼δÑ ó« óαÑ¼∩ óó«ñá ñá¡¡δσ. 2.Ä»αÑñÑ½¿Γ∞ ¿ß¬½ετÑ¡¿∩ ¬ ¡«α¼á½∞¡«¼π óó«ñπ ñá¡¡δσ, ¬«Γ«αδÑ éδ σ«Γ¿ΓÑ «íαáíáΓδóáΓ∞ ó éáΦ¿σ »α¿½«ªÑ¡¿∩σ. Å«ñ ¿ß- ¬½ετÑ¡¿∩¼¿ »«¡¿¼áεΓß∩ áóΓ«¼áΓ¿τÑß¬¿ »α«ó«ñ¿¼δÑ óδτ¿ß½Ñ¡¿∩, ß»Ñµ¿á½∞¡á∩ «íαáí«Γ¬á «ß«íÑ¡¡δσ ñá¡¡δσ ¿ Γ.». 3.ä½∩ ¬áªñ«ú« ¿ß¬½ετÑ¡¿∩, π»«¼∩¡πΓ«ú« ó ΦáúÑ 2, ß«º- ñáΓ∞ »α«µÑñπαπ «íαáí«Γ¬¿, ¿ß»«½∞ºπ∩ Γαáñ¿µ¿«¡¡δÑ ¼ÑΓ«ñδ »α«úαá¼¼¿α«óá¡¿∩ ¡á ÅÇïÑ. 4.ä½∩ ¬áªñ«⌐ »α«µÑñπαδ, ß«ºñá¡¡«⌐ ¡á ΓαÑΓ∞Ñ¼ ΦáúÑ, »αÑñßΓáó∞ΓÑ ßÑíÑ, ¬«úñá «¡á íπñÑΓ αáí«ΓáΓ∞, ¿, ºáΓÑ¼, ¡áº- ¡áτΓÑ φΓ¿ »α«µÑñπαδ ¬ ß««ΓóÑΓßΓóπεΘ¿¼ »«½∩¼. ä½∩ Γ«ú«, τΓ«- íδ ßñÑ½áΓ∞ Γá¬«Ñ ¡áº¡áτÑ¡¿Ñ, ºá»πßΓ¿ΓÑ ß¬α¿»Γ ß ¿¼Ñ¡Ñ¼ toolkit, óδíÑα¿ΓÑ πß½πúπ FieldDefine, ¿ ¡áº¡áτ∞ΓÑ »α«µÑñπαδ ¬ »«½∩¼, ºá»«½¡∩∩ »«½∩ ß»Ñµ¿Σ¿¬áµ¿¿ Γáí½¿µδ. ìá»α¿¼Ñα, áó- Γ«¼áΓ¿τÑß¬¿⌐ óó«ñ ñá¡¡δσ ∩ó½∩ÑΓß∩ »α«µÑñπα«⌐ Arrival (»α¿- íδΓ¿Ñ), »«φΓ«¼π éδ óó«ñ¿ΓÑ ¿¼∩ ßó«Ñ⌐ »α«µÑñπαδ ó Γáí½¿µπ ó ¬«½«¡¬π ß ¿¼Ñ¡Ñ¼ Arrival. 5.éδíÑα¿ΓÑ πß½πúπ KeyDefine ¿ »α¿ßó«⌐ΓÑ º¡áτÑ¡¿∩ óßÑ¼ ó«º¼«ª¡δ¼ ¬½áó¿Φá¼. 6.çá¡Ñß¿ΓÑ éáΦ¿ »α«µÑñπαδ ó í¿í½¿«ΓÑ¬π (¿½¿ í¿í½¿«ΓÑ¬¿). 7.ä«íáó∞ΓÑ ó ¡áτá½« éáΦÑú« ß¬α¿»Γá »α«µÑñπαπ ¿¡¿µ¿á- ½¿ºáµ¿¿ Toolkit'a, ¡á»α¿¼Ñα InitWait. 8.é ºá¬½ετÑ¡¿Ñ, ¬«úñá éδ ºáσ«Γ¿ΓÑ «ßπΘÑßΓó¿Γ∞ óó«ñ ñá¡¡δσ ó éáΦÑ »α¿½«ªÑ¡¿Ñ, óδº«ó¿ΓÑ »α«µÑñπαπ DoWait. éδ ¼«- ªÑΓÑ »α«óÑα¿Γ∞ »ÑαÑ¼Ñ¡¡πε Retval »«½∩ óδº«óá »α«µÑñπαδ DoWait, »«ß¬«½∞¬π »ÑαÑ¼Ñ¡¡á∩ Retval ß¬áªÑΓ éá¼, ¡áªáΓ¿Ñ ¬á¬¿σ ¬½áó¿Φ »α¿óÑñÑΓ ¬ ºáóÑαΦÑ¡¿ε »α«µÑñπαδ DoWait. ìÑß¼«Γα∩ ¡á «τÑó¿ñ¡πε ß½«ª¡«ßΓ∞ ¿¡Σ«α¼áµ¿¿, »αÑñßΓáó- ½Ñ¡¡«⌐ ó φΓ«¼ »áαáúαáΣÑ, ¿ß»«½∞º«óá¡¿Ñ Toolkit'a ÑßΓ∞ ßπΓ∞ »α¿óÑñÑ¡¡δσ ¡Ñß¬«½∞¬¿σ »α«ßΓδσ Φáú«ó. éá¼ ß«óßÑ¼ ¡Ñ ¡πª¡« ¿ß»«½∞º«óáΓ∞ óßÑ »α«µÑñπαδ ¿ »ÑαÑ¼Ñ¡¡δÑ Toolkit'a ó ¬áªñ«¼ »α¿½«ªÑ¡¿¿. îδ »αÑñßΓáó¿½¿ ß¿ßΓÑ¼π Toolkit ó ñÑΓá½∩σ, Γá¬, τΓ« ¬«úñá éδ íπñÑΓÑ ¡πªñáΓ∞ß∩ ó «ñ¡«⌐ ¿º ÑÑ Σπ¡¬µ¿⌐, éδ íπ- ñÑΓÑ º¡áΓ∞, ¬á¬ ÑÑ ¿ß»«½∞º«óáΓ∞. êß»«½∞º«óá¡¿Ñ Toolkit'a ó¼ÑßΓÑ ß πªÑ ßπΘÑßΓóπεΘ¿¼¿ »α¿½«ªÑ¡¿∩¼¿. Äíδτ¡« φΓ« ¡Ñß½«ª¡á∩ ºáñáτá - ó¡Ññα¿Γ∞ »α«µÑñπαπ DoWait ó ßπΘÑßΓóπεΘ¿Ñ »α¿½«ªÑ¡¿∩. éδ ¼«ªÑΓÑ íδΓ∞ ºá¿¡ΓÑαÑ- ß«óá¡δ ó ºΓ«¼ »« ñóπ¼ »α¿τ¿¡á¼: - Åα«µÑñπαá DoWait óδ»«½¡∩ÑΓß∩ ¡á¼¡«ú« íδßΓαÑ⌐, τÑ¼ »«σ«ªá∩ ¬«¼á¡ñá Wait, óδ»«½¡Ñ¡¿Ñ ¬«Γ«α«⌐ óß∩¬¿⌐ αáº ºáóÑα- ΦáÑΓß∩ ¿ ó«º¡«í¡«ó½∩ÑΓß∩, Γá¬ ¬á¬ ¿¼ÑÑΓ ¼ÑßΓ« ß»Ñµ¿á½∞¡á∩ «íαáí«Γ¬á. - DoWait «í½áñáÑΓ ñ«»«½¡¿ΓÑ½∞¡δ¼¿ ó«º¼«ª¡«ßΓ∩¼¿, ¬«Γ«- αδÑ π½πτΦáΓ óáΦ¿ »α¿½«ªÑ¡¿∩. àß½¿ éáΦá »α«úαá¼¼á óó«ñá ñá¡¡δσ ó¬½ετáÑΓ ß»Ñµ¿á½∞¡πε «íαáí«Γ¬π, Γ« «¡á, ó«º¼«ª¡«, »«σ«ªá ¡á ß½ÑñπεΘ¿⌐ Σαáú¼Ñ¡Γ: retval = "" WHILE retval <> "F2" AND retwal <> "Esc" WAIT TABLE UNTIL "F2","Esc","Help","Menu","Left","Right" SWITCH CASE retval = "Help":HelpMe() CASE retval = "Menu":DoMenu() ; ñ«»«½¡¿ΓÑ½∞¡δÑ «»ÑαáΓ«αδ CASE ; ºñÑß∞ ¼«ú½« íδ íδΓ∞ ¡«ó«Ñ »«½Ñ ; ß¡áτá½á, ¼δ »α«¬«¡Γα«½¿απÑ¼, úñÑ ¼δ ¡áσ«ñ¿¼ß∩, ; ºáΓÑ¼, ¬πñá ¼δ ¿ñÑ¼, ºáΓÑ¼ »α¿¼Ñ¡¿¼ «»ÑαáΓ«α ; SWITCH ñ½∩ óδ»«½¡Ñ¡¿∩ ¡«ó«ú« Σαáú¼Ñ¡Γá »α«úαá¼¼δ ENDSWITCH ENDWHILE IF retval = "F2" THEN Do_It! ; «íαáí«Γ¬á óßÑσ ñá¡¡δσ ELSE CANCELEDIT ; «Γ¼Ñ¡á óó«ñá ñá¡¡δσ ENDIF ä½∩ Γ«ú«, τΓ«íδ áñá»Γ¿α«óáΓ∞ φΓ«Γ Σαáú¼Ñ¡Γ »«ñ ¿ß»«½∞- º«óá¡¿Ñ »α«µÑñπαδ DoWait ¡Ñ«íσ«ñ¿¼«: 1.Äí∞∩ó¿Γ∞ ¬½áó¿Φ¿ Do_It![F2], [Esc] ¬½áó¿Φá¼¿ óδσ«ñá ¿º »α«µÑñπαδ, á HELP [F1] ¿ Menu [F10] ß»Ñµ¿á½∞¡δ¼¿. 2.æñÑ½áΓ∞ Σαáú¼Ñ¡Γ »α«úαá¼¼δ »«ß½Ñ ¬áªñ«ú« «»ÑαáΓ«αá CASE «ΓñÑ½∞¡δ¼¿ »α«µÑñπαá¼¿. 3.Å«¼ÑßΓ¿Γ∞ Σαáú¼Ñ¡Γδ ¬«ñá, ¬«Γ«αδÑ «íαáíáΓδóáεΓ óσ«ñ ¿½¿ óδσ«ñ ¿º »«½∩, ó ¡Ñí«½∞Φ¿Ñ, «íαáíáΓδóáεΘ¿Ñ »«½∩ »α«µÑ- ñπαδ. 4.Åα¿ßó«¿Γ∞ »α«µÑñπαδ, ß«ºñá¡¡δÑ ¡á ΦáúÑ 3, ¬ ß««ΓóÑΓ- ßΓóπεΘ¿¼ »«½∩¼ »α¿ »«¼«Θ¿ πß½πú¿ FieldDefine. 5.ä«íáó¿Γ∞ ó ¡áτá½« ßó«Ñú« »α¿½«ªÑ¡¿∩ «»ÑαáΓ«α READLIB ñ½∩ í¿í½¿«ΓÑ¬¿ Toolkit. Æá¬ªÑ πíÑñ¿ΓÑß∞, τΓ« éáΦÑ »α¿½«ªÑ- ¡¿Ñ ¡áτ¿¡áÑΓ ßó«ε αáí«Γπ ß »α«µÑñπα«⌐ InitWait. 6.é¿ñ«¿º¼Ñ¡¿Γ∞ óßÑ Σαáú¼Ñ¡Γδ ß¬α¿»Γá, úñÑ «ßπΘÑßΓó½∩- ÑΓß∩ óó«ñ ñá¡¡δσ, ß½ÑñπεΘ¿¼ «íαáº«¼: DoWait("") IF retval = TKDo_It! THEN... ; »α«µÑßß óó«ñá ñá¡¡δσ ELSE... ; «Γ¼Ñ¡¿Γ∞ »α«µÑßß óó«ñá ñá¡¡δσ ENDIF Éáº¡««íαáº¡δÑ ΓÑ¼δ. çá»πß¬ ¿º αáº½¿τ¡δσ ñ¿αÑ¬Γ«α¿⌐. ü¿í½¿«ΓÑ¬á Σá⌐½«ó, ¬«Γ«αá∩ ºá¬½ετáÑΓ ó ßÑíÑ ß¿ßΓÑ¼π Toolkit ñ«½ª¡á ¡áσ«ñ¿Γ∞ß∩ ó Γ«⌐ ªÑ ñ¿αÑ¬Γ«α¿¿, τΓ« ¿ éáΦÑ »α¿½«ªÑ¡¿Ñ. éδ ¼«ªÑΓÑ ¿º¼Ñ¡¿Γ∞ φΓ« »«½«ªÑ¡¿Ñ »πΓÑ¼ ºá»¿ß¿ ó »ÑαÑ¼Ñ¡¡πε Toolkit'a ß ¿¼Ñ¡Ñ¼ TKLibName »«½¡«ú« »πΓ¿ ¿ ¿¼Ñ¡¿ Σá⌐½á í¿í½¿«ΓÑ¬¿, ß«ñÑαªáΘÑ⌐ Toolkit »ÑαÑñ óδ»«½¡Ñ¡¿- Ñ¼ »α«µÑñπαδ InitWait ó éáΦÑ¼ »α¿½«ªÑ¡¿¿. ìá»α¿¼Ñα, Ñß½¿ éδ »ÑαÑ¿¼Ñ¡«óá½¿ í¿í½¿«ΓÑ¬π ansatk ¿ ºá»¿ßá½¿ ÑÑ ó ¡«óπε ñ¿- αÑ¬Γ«α¿ε ß ¿¼Ñ¡Ñ¼ Tools, Γ« éδ ñ«½ª¡δ óδ»«½¡¿Γ∞ ß½ÑñπεΘ¿⌐ «»ÑαáΓ«α »ÑαÑñ óσ«ñ«¼ ó »α«µÑñπαπ InitWait ó éáΦÑ¼ »α¿½«ªÑ- ¡¿¿: TKLibName = "\\tools\\ansatk" éá¼ ¡ÑΓ ¡Ñ«íσ«ñ¿¼«ßΓ¿ πßΓá¡áó½¿óáΓ∞ »ÑαÑ¼Ñ¡¡πε TKLibName, Ñß½¿ í¿í½¿«ΓÑτ¡δ⌐ Σá⌐½ ¡áσ«ñ¿Γß∩ ó ΓÑ¬πΘÑ⌐ ñ¿- αÑ¬Γ«α¿¿ ß¬α¿»Γá, ¿½¿ ¡Ñ »ÑαÑ¿¼Ñ¡«óá½ß∩. êß»«½∞º«óá¡¿Ñ ¥σ« ó ß¬α¿»Γáσ. è«úñá »α«µÑñπαá DoWait «ßπΘÑßΓó½∩ÑΓ π»αáó½Ñ¡¿Ñ éáΦ¿¼¿ »α«µÑñπαá¼¿, ¥σ« πßΓá¡«ó½Ñ¡« ó º¡áτÑ¡¿Ñ "NORMAL" (»«¬á éδ ¡Ñ óδ¬½ετ¿ΓÑ Ñú« ó ßó«¿σ »α«µÑñπαáσ). Äñ¡á ¿º »α¿τ¿¡ ¿º¼Ñ- ¡Ñ¡¿∩ αÑª¿¼á - Γ«, τΓ« ¥σ« ΓαÑíπÑΓ ñ«»«½¡¿ΓÑ½∞¡«ú« óαÑ¼Ñ¡¿. àß½¿ éáΦ¿ »α«µÑñπαδ ¡Ñ óºá¿¼«ñÑ⌐ßΓóπεΓ ß αáí«τ¿¼ »α«ßΓαá¡ß- Γó«¼, Γ« ¡ÑΓ »α¿τ¿¡δ ¿º¼Ñ¡∩Γ∞ αÑª¿¼ ¥σ«. àß½¿ ªÑ éáΦ¿ »α«- µÑñπαδ »α«ó«ñ∩Γ ¡Ñ¬«Γ«αδÑ ¼á¡¿»π½∩µ¿¿ ¡áñ αáí«τ¿¼ »α«ßΓαá¡- ßΓó«¼, ¿ éδ ¡Ñ σ«Γ¿ΓÑ, τΓ«íδ »«½∞º«óáΓÑ½∞ ¿σ ó¿ñÑ½, Γ« óßΓáó∞ΓÑ ¬«¼á¡ñπ ECHO OFF ó éáΦπ »α«µÑñπαπ. éáª¡«Ñ ºá¼Ñτá¡¿Ñ ñ½∩ »«½∞º«óáΓÑ½Ñ⌐ RunTime: êº-ºá Γ«ú«, τΓ« Toolkit óßÑúñá óδºδóáÑΓ éáΦ¿ »α«µÑñπαδ ß αÑª¿¼«¼ ECHO, πßΓá¡«ó½Ñ¡¡«ú« ó "NORMAL", éδ ¼«ªÑΓÑ ¡Ñ ¿ß- »«½∞º«óáΓ∞ ¬«¼á¡ñπ ECHO NORMAL. Åα«µÑñπαá DoWait πßΓá¡«ó¿Γ ßΓáΓπß ECHO ñ½∩ éáß áóΓ«¼áΓ¿τÑß¬¿. àß½¿ éδ óßΓáó¿½¿ ¬«¼á¡ñπ ECHO OF ó éáΦπ »α«µÑñπαπ, ¬«¼á¡ñá DoWait »ÑαÑ¬½ετ¿Γ ßΓáΓπß ON, ¬«úñá «¡á «»∩Γ∞ ó«º∞¼ÑΓ π»αáó½Ñ¡¿Ñ (àß½¿, ¬«¡Ñτ¡«, »Ñ- αÑ¼Ñ¡¡á∩ TKHoldCanvas πßΓá¡«ó½Ñ¡á ó «íδτ¡«Ñ º¡áτÑ¡¿Ñ "ï«ª∞"). ÅÇÉÇäÄèæ RunTime ¬«¡Σ¿úπαáµ¿¿ ¡Ñ αáß»«º¡áÑΓ ¬«¼á¡ñπ ECHO NORMAL ó éáΦ¿σ »α¿½«ªÑ¡¿∩σ («ñ¡á¬« «¡á αáß»«º¡áÑΓ ¬«- ¼á¡ñπ ECHO OFF). ïεíá∩ ß»Ñµ¿á½∞¡á∩ óÑαß¿∩ í¿í½¿«ΓÑ¬¿ Toolkit'a, ó ¬«Γ«α«⌐ αáºαÑΦÑ¡á ¬«¼á¡ñá ECHO NORMAL, τΓ«íδ αáí«ΓáΓ∞ ó¡πΓα¿ Toolkit'a (¿ Γ«½∞¬« ó¡πΓα¿ Toolkit'a), ºá- »πß¬áÑΓ ßó«¿ »α¿½«ªÑ¡¿∩ ¿º ß¿ßΓÑ¼δ RunTime. ÄΓ½áñ¬á. é«º¼«ª¡δ ß¿Γπáµ¿¿, ¬«úñá »α«µÑñπαá DoWait αáí«ΓáΓ∞ ¡Ñ ¼«ªÑΓ, ¿½¿ αáí«ΓáÑΓ ¡Ñ»αáó¿½∞¡«. ìá»α¿¼Ñα, Ñß½¿ »«½Ñ »«¬¿- ¡πΓ«, ¡« ¡¿ »α«µÑñπαá ArriveField ¡¿ NewField ¡Ñ íδ½á óδºóá¡á ó »α¿½«ªÑ¡¿¿, á DoWait ¡Ñ º¡áÑΓ, τΓ« ¡áσ«ñ¿Γß∩ ó¡πΓα¿ »«½∩ ¿, ß½Ññ«óáΓÑ½∞¡«, ¼«ªÑΓ óδºóáΓ∞ ¡Ñ»«ñσ«ñ∩Θπε »α«µÑñπαπ. ä½∩ Γ«ú«, τΓ«íδ íδΓ∞ πóÑαÑ¡¡δ¼¿ ó Γ«¼, τΓ« éáΦÑ »α¿½«- ªÑ¡¿Ñ ¡Ñ ß«ñÑαª¿Γ »«ñ«í¡δσ «Φ¿í«¬, éδ ¼«ªÑΓÑ ¿ß»«½∞º«óáΓ∞ »α«µÑñπαπ TKDebug. é »α«µÑßßÑ ß«ºñá¡¿∩ éáΦÑ⌐ ß¿ßΓÑ¼δ óó«ñá ñá¡¡δσ, αáº¼ÑßΓ¿ΓÑ «»ÑαáΓ«α TKDebug() ó ¡áτá½Ñ ¬áªñ«⌐ »α«- µÑñπαδ, ¬«Γ«αá∩ óδºδóáÑΓß∩ »α«µÑñπα«⌐ DoWait (TKDebug ñ«½ª- ¡á íδΓ∞ »Ñαó«⌐ ßΓα«¬«⌐ ó éáΦÑ⌐ »α«µÑñπαÑ). àß½¿ »α«µÑñπαá DoWait ßτ¿ΓáÑΓ, τΓ« «¡á ¡áσ«ñ¿Γß∩ ó ¡ÑóÑα¡«¼ »«½Ñ, Γ« «¡á ¿¡¿µ¿¿απÑΓ óδ»«½¡Ñ¡¿Ñ »α«µÑñπαδ TKDebug ¿ éá¼ íπñÑΓ óδñá¡« ß««íΘÑ¡¿Ñ « ¡Ñ¿ß»αáó¡«ßΓ¿. çáΓÑ¼ »α«µÑñπαá DoWait óσ«ñ¿Γ ó αÑª¿¼ «Γ½áñ¬¿ (Debug). ä½∩ Γ«ú«, τΓ«íδ ¿ºó½Ñτ∞ óßÑ «»ÑαáΓ«αδ TKDebug ¿º éáΦÑ- ú« ºáóÑαΦÑ¡¡«ú« ¿ »α«ΓÑßΓ¿α«óá¡¡«ú« »α¿½«ªÑ¡¿∩, ¼«ª¡« ¿ß- »«½∞º«óáΓ∞ »«ñß¿ßΓÑ¼π Toolkit'a PrepareFinal («¬«¡τáΓÑ½∞- ¡á∩ »«ñú«Γ«ó¬á). (æ¼. PrepareFinal óδΦÑ). äαπú¿¼ ¿ßΓ«τ¡¿¬«¼ »α«í½Ñ¼ ó éáΦ¿σ »α¿½«ªÑ¡¿∩σ ¼«ªÑΓ ∩ó¿Γ∞ß∩ óºá¿¼«ñÑ⌐ßΓó¿Ñ ¼Ñªñπ ¬½áó¿Φá¼¿ [Del],Undo[Ctrl][U] ¿½¿ [Ctrl][Break] ¿ ¡Ñ»αáó¿½∞¡δ¼¿ »«½∩¼¿. é« ¼¡«ú¿σ ß½πτá∩σ ñ«½ª¡« «ßπΘÑßΓó½∩Γ∞ß∩ ß»Ñµ¿á½∞¡«Ñ π»αáó½Ñ¡¿Ñ φΓ¿¼¿ ¬½áó¿Φá¼¿ ó »α«µÑßßÑ óó«ñá ñá¡¡δσ. ä½∩ Γ«ú«, τΓ«íδ »α«óÑ- α¿Γ∞, ¡Ñ«íσ«ñ¿¼« ½¿ éá¼ ñ«»«½¡¿Γ∞ »α«µÑñπαπ Bad Depart ß»Ñ- µ¿á½∞¡«⌐ Σπ¡¬µ¿Ñ⌐ ñ½∩, τΓ«íδ π»αáó½∩Γ∞ ¬½áó¿Φá¼¿ [Del] ¿ [Undo], αáßß¼«Γα¿¼ »« Φáúá¼ »α¿óÑñÑ¡¡δ⌐ ¡¿ªÑ »α¿¼Ñα. Åα«óÑα¬á »αáó¿½∞¡«ßΓ¿ αáí«Γδ »α«µÑñπαδ BadDepart. 1.çá»πßΓ¿ΓÑ éáΦÑ »α¿½«ªÑ¡¿Ñ. 2.éóÑñ¿ΓÑ ºáóÑñ«¼« ¡Ñ»αáó¿½∞¡δÑ ñá¡¡δÑ ó »«½Ñ. 3.ìáª¼¿ΓÑ ¬½áó¿Φπ [Del] ¿ «µÑ¡¿ΓÑ αÑºπ½∞ΓáΓδ. àß½¿ éáΦÑ »α¿½«ªÑ¡¿Ñ «ΓαÑáú¿απÑΓ, ¬á¬ ¿ «ª¿ñá½«ß∞, Γ« ºá¬«¡τ¿ΓÑ »α«óÑα¬π. àß½¿ ¡ÑΓ, Γ« éδ ñ«½ª¡δ ñ«»«½¡¿Γ∞ éáΦπ »α«µÑñπαπ BadDepart ß»Ñµ¿á½∞¡δ¼ Σαáú¼Ñ¡Γ«¼ ¬«ñá, ¬«Γ«αδ⌐ πßΓαá¡¿Γ ¡Ñ¿ß»αáó¡«ßΓ∞. Å«óΓ«α¿ΓÑ Φáú¿ 2 ¿ 3 ñ½∩ ¬áªñ«ú« »«½∩, ó ¬«Γ«α«Ñ ¼«ª¡« óóÑßΓ¿ ¡Ñ»αáó¿½∞¡δÑ ñá¡¡δÑ. æ»¿ß«¬ »α«µÑñπα (æ»αáó«τ¡¿¬). ¥Γá ú½áóá ∩ó½∩ÑΓß∩ ¬αáΓ¬¿¼ «»¿ßá¡¿Ñ¼ »αÑñ¡áº¡áτÑ¡¿∩ ¿ ¿ß»«½∞º«óá¡¿∩ ¬áªñ«⌐ »α«µÑñπαδ. Æα¿¡áñµáΓ∞ »α«µÑñπα, ¿ß- »«½∞ºπÑ¼δσ ß¿ßΓÑ¼«⌐ Toolkit, ¼«úπΓ »α¿ú«ñ¿Γ∞ß∩ éá¼ ñ½∩ éá- Φ¿σ »α¿½«ªÑ¡¿⌐. Toolkit.lib. Åα«µÑñπαδ ó »α¿½«ªÑ¡¿∩σ: - ArriveField(): ê¡Σ«α¼¿απÑΓ »α«µÑñπαπ DoWait, τΓ« éδ »ÑαÑ¼ÑßΓ¿½¿ß∞ ¬ ¡«ó«¼π »«½ε, ¿ τΓ« ¡Ñ«íσ«ñ¿¼« ºá»πßΓ¿Γ∞ »α«µÑñπαπ »α¿íδΓ¿∩. - DoWait (String): Äß¡«ó¡á∩ »α«µÑñπαá Toolkit'a, π»- αáó½∩εΘá∩ óó«ñ«¼ ñá¡¡δσ. - EditMenu(): ÅαÑñßΓáó½∩ÑΓ »«½∞º«óáΓÑ½ε îÑ¡ε αÑñá¬Γ«αá. - GetFile (Mask, Promt, Message, FileName, Required): Å«½πτáÑΓ ¿¼∩ Σá⌐½á «Γ »«½∞º«óáΓÑ½∩. - GetPassword (MaxLength, DisplayKeys): Å«½πτáÑΓ »á- α«½∞ «Γ »«½∞º«óáΓÑ½∩. - InitWait (FldSpecFile, KeySpecFile): ôßΓá¡áó½¿óáÑΓ ¡áτá½∞¡«Ñ º¡áτÑ¡¿Ñ »ÑαÑ¼Ñ¡¡δσ, ¿ß»«½∞ºπÑ¼δσ »α«µÑñπα«⌐ DoWait. - LookupSelect(): éδßóÑτ¿óá¡¿Ñ ß»αáó«τ¡«⌐ Γáí½¿µδ. - NewField(): ê¡Σ«α¼¿απÑΓ DoWait, τΓ« éδ »ÑαÑ¼ÑßΓ¿½¿ß∞ ¬ ¡«ó«¼π »«½ε, ¡« ¡Ñ óδºóá½¿ »α«µÑñπαπ »α¿íδΓ¿∩. - Popup (Row, Column, Number, Length): ÅαÑñßΓáó½∩ÑΓ óÑαΓ¿¬á½∞¡«Ñ, "»α«¬απτ¿óáεΘÑÑß∩" ¼Ñ¡ε »«½∞º«óáΓÑ½ε. - RecurseWait (Message, ProcedureName): éÑαß¿∩ »α«- µÑñπαδ DoWait, ¬«Γ«αá∩ ¼«ªÑΓ íδΓ∞ óδºóá¡á ó¡πΓα¿ DoWait. - SetKeycodes(): Åα¿ßóá¿óáÑΓ óÑ½¿τ¿¡δ ¬½ετÑóδ¼ »ÑαÑ- ¼Ñ¡¡δ¼, Γá¬¿¼ ¬á¬ TKDel. - SetPopup (TableNameList): Å«ñú«Γáó½¿óáÑΓ ¼Ñ¡ε, óδß- óÑτ¿óáÑ¼«Ñ »α«µÑñπα«⌐ Popup. - TKDebug(): Åα«óÑα∩ÑΓ, º¡áÑΓ ½¿ »α«µÑñπαá DoWait, ¬á- ¬«Ñ »«½Ñ ó ¡áßΓ«∩Θ¿⌐ ¼«¼Ñ¡Γ ∩ó½∩ÑΓß∩ ΓÑ¬πΘ¿¼. äαπú¿Ñ »α«µÑñπαδ (¡Ñ π»«¼∩¡πΓδÑ ó φΓ«⌐ ú½áóÑ) ¿ß»«½∞- ºπεΓß∩ ¿ß¬½ετ¿ΓÑ½∞¡« Toolkit'«¼. Æ«½∞¬« «ñ¡á í¿í½¿«ΓÑ¬á ß ¿¼Ñ¡Ñ¼ toolkit ñ«½ª¡á íδΓ∞ ó¬½ετÑ¡á ó¼ÑßΓÑ ß éáΦ¿¼ »α¿½«ªÑ- ¡¿Ñ¼; óΓ«αá∩ í¿í½¿«ΓÑ¬á ß ¿¼Ñ¡Ñ¼ toolkit2, ¿ß»«½∞ºπÑΓß∩ Γ«½∞¬« ñ½∩ Γ«ú«, τΓ«íδ ß«ºñáΓ∞ »α¿½«ªÑ¡¿∩ ¿ ¡Ñ ¡πª¡á, »α¿ ¿σ ºá»πß¬Ñ. é«ßÑ¼∞ »α«µÑñπα ó í¿í½¿«ΓÑ¬Ñ toolokit.lib »αÑñ¡áº¡áτÑ- ¡δ ß»Ñµ¿á½∞¡« ñ½∩ π»αáó½Ñ¡¿∩ óó«ñ«¼ ñá¡¡δσ: - ArriveField - NewField - DoWait - RecurseWait - EditMenu - SetKeyCodes - InitWait - TKDebug êº ¡¿σ éδ «í∩ºáΓÑ½∞¡« ñ«½ª¡δ ¿ß»«½∞º«óáΓ∞ »α«µÑñπαπ InitWait ñ½∩ πßΓá¡«ó¬¿ ¡áτá½∞∞¡δσ º¡áτÑ¡¿⌐ »ÑαÑ¼Ñ¡¡δσ Toolkit'a, Ñß½¿, ¬«¡Ñτ¡« ªÑ éδ ¿ß»«½∞ºπÑΓÑ »α«µÑñπαπ DoWait ñ½∩ π»αáó½Ñ¡¿∩ óó«ñ«¼ ñá¡¡δσ. äαπú¿Ñ ΦÑßΓ∞ »α«µÑñπα ¼«úπΓ ¿ß»«½∞º«óáΓ∞ß∩, á ¼«úπΓ ¿ ¡Ñ ¿ß»«½∞º«óáΓ∞ß∩ ó éáΦ¿σ »α¿½«- ªÑ¡¿∩σ, ó ºáó¿ß¿¼«ßΓ¿ «Γ éáΦ¿σ ºá»α«ß«ó. Å∩Γ∞ ñ«»«½¡¿ΓÑ½∞- ¡δσ »α«µÑñπα ó í¿í½¿«ΓÑ¬Ñ toolkit.lib ßτ¿ΓáεΓß∩ óß»«¼«úá- ΓÑ½∞¡δ¼¿ ¿ ¼«úπΓ íδΓ∞ ¿ß»«½∞º«óá¡δ ó éáΦÑ¼ »α¿½«ªÑ¡¿¿ ó¡Ñ ºáó¿ß¿¼«ßΓ¿ «Γ Γ«ú«, ¿ß»«½∞ºπÑΓÑ ½¿ éδ »α«µÑñπαπ DoWait ¿½¿ ¡ÑΓ. - GetFile - Popup - GetPassword - Setpopup - LookupSelect êß»«½∞ºπ⌐ΓÑ φΓ¿ »α«µÑñπαδ Γ«½∞¬« Γá¼, úñÑ «¡¿ »«½Ñº¡δ. ARRIVEFIELD »α«µÑñπαá ß««íΘáÑΓ DoWait ¿½¿ RecurseWait, τΓ« óσ«ñ ó ¡«ó«Ñ »«½Ñ »α«¿º«ΦÑ½ ¿ ñ«½ª¡á íδΓ∞ ºá»πΘÑ¡á »α«- µÑñπαá »α¿íδΓ¿∩ (Ñß½¿ «¡á «»αÑñÑ½Ñ¡á ñ½∩ φΓ«ú« »«½∩). æ¿¡Γá¬ß¿ß: ArriveField () Åα«µÑñπαá ¡Ñ ¿¼ÑÑΓ áαúπ¼Ñ¡Γ«ó ¿ ¡Ñ ó«ºóαáΘáÑΓ º¡áτÑ¡¿⌐. Ä»¿ßá¡¿Ñ: ò«Γ∩ αÑºπ½∞ΓáΓδ »α«µÑñπαδ ¡Ñ ó¿ñ¡δ, «¡á (¿½¿ NewField) ñ«½ª¡á íδΓ∞ óδºóá¡á, ¬«úñá αáí«Γá «ñ¡«⌐ ¿º éáΦ¿σ »α«µÑñπα »«ó½ÑτÑΓ óδσ«ñ ¿º »«½∩. Åα«µÑñπαá ArriveField «Γ- ¼Ñ¡∩ÑΓ ½εíδÑ ºáñÑαªá¡¡δÑ ¬½áó¿Φ¿, πßΓá¡áó½¿óáÑΓ ¡áτá½∞¡δÑ º¡áτÑ¡¿∩ »ÑαÑ¼Ñ¡¡δσ TKFieldVal ¿ ñαπú¿σ, º¡áτÑ¡¿∩ ¬«Γ«αδσ ºáó¿ß∩Γ «Γ »«½∩, ºáΓÑ¼ óδºδóáÑΓ »α«µÑñπαπ »α¿íδΓ¿∩ ñ½∩ ¡«- ó«ú« »«½∩ (Ñß½¿ «¡á «»αÑñÑ½Ñ¡á). Åα¿¼Ñα: ¥Γ«Γ Σαáú¼Ñ¡Γ ß¬α¿»Γá makedemo ¿ß»«½∞ºπÑΓ »α«- µÑñπαπ, ¬«Γ«αá∩ áóΓ«¼áΓ¿τÑß¬¿ ºá»«½¡∩ÑΓ ñáΓπ ¿ óδºδóáÑΓ »α«µÑñπαπ ArriveField »«ß½Ñ óδσ«ñá ¬παß«αá ¿º »«½∩ äáΓδ: PROC Filldate() IF ISBLANK([]) ;ÑßΓ∞ ½¿ ñáΓá ó »«½Ñ THEN IF (TKChar=TKReversetab) OR TKChar=Left THEN LEFT ; »α«ΦÑ½ ½¿ »«½∞º«óáΓÑ½∞ ELSE RIGHT ; «íαáΓ¡« τÑαÑº »«½Ñ? ; Ñß½¿ ñá - »α«ñ«½ª¿ΓÑ ; ñó¿ªÑ¡¿Ñ ¡áºáñ, Ñß½¿ ¡ÑΓ - ; ñó¿úá⌐ΓÑß∞ ó»ÑαÑñ ¬ ; ß½ÑñπεΘÑ¼π »«½ε ENDIF ; ñáΓá ºá»«½¡∩ÑΓß∩ τÑαÑº ; ValCheck FrriveField() ; ¼δ »«¬¿¡π½¿ »«½Ñ ñáΓδ, ; « τÑ¼ ¿¡Σ«α¼¿α«óá½¿ DoWait ENDIF ENDPROC æ¼«Γα¿ Γá¬ªÑ »α«µÑñπαπ NewField; - Ä»¿ßá¡¿Ñ »α«µÑñπα ArriveField ¿ NewField óδΦÑ. DOWAIT(). ¥Γá »α«µÑñπαá π»αáó½∩ÑΓ »α«µÑßß«¼ óó«ñá ñá¡¡δσ, óδºδ- óá∩ ¿ π»αáó½∩∩ ß»Ñµ¿á½∞¡δ¼¿ »α«µÑñπαá¼¿, ¡áº¡áτÑ¡¡δ¼¿ FieldDefine ¿ KeyDefine πß½πúá¼¿ ¼Ñ¡ε Toolkit'á. æ¿¡Γá¬ß¿ß: DoWait (String), úñÑ String - ßΓα«¬«ó«Ñ óδαáªÑ¡¿Ñ (óδßóÑτ¿óáÑ¼«Ñ ó ¬á- τÑßΓóÑ ß««íΘÑ¡¿∩ ó »αáó«¼ ¡¿ª¡Ñ¼ πú½π φ¬αá¡á ó« óαÑ¼∩ óσ«ñá ó »α«µÑñπαπ). é«ºóαáΘáÑΓ óÑ½¿τ¿¡π ó ¬«ñÑ Ascii »«ß½Ññ¡Ñú« óóÑñÑ¡¡«ú« ß¿¼ó«½á. Æá¬ªÑ πßΓá¡áó½¿óáÑΓ ¡áí«α »ÑαÑ¼Ñ¡¡δσ retval. Ä»¿ßá¡¿Ñ: Åα«µÑñπαá óδ»«½¡∩ÑΓ Σπ¡¬µ¿¿ Wait-Γ¿»á. Ä¡á ¼«ªÑΓ óδ»«½¡∩Γ∞ π»αáó½Ñ¡¿Ñ »α«µÑßß«¼ óó«ñá ó »«½Ñ, »α«µÑß- ß«¼ óδσ«ñá ¿º »«½∩, ß«ñÑαªá¡¿Ñ ¬«Γ«α«ú« »α«Φ½« ¬«¡Γα«½∞ »αáó¿½∞¡«ßΓ¿, »α«µÑßß«¼ óδσ«ñá ¿º »«½∩, ß«ñÑαª¿¼«Ñ ¬«Γ«α«ú« ¡Ñ ¬«ααÑ¬Γ¡«, á Γá¬ªÑ »α«µÑßß«¼ ¡áªáΓ¿∩ ¬áªñ«⌐ ¬½áó¿Φ¿ »«½∞º«óáΓÑ½Ñ¼. é óÑñÑ¡¿¿ »α«µÑñπαδ DoWait ¡áσ«ñ∩Γß∩ ß½Ññπε- Θ¿Ñ ó«»α«ßδ: - èá¬á∩ »α«µÑñπαá ñ«½ª¡á óδ»«½¡∩Γ∞ß∩? - è«úñá ¡Ñ«íσ«ñ¿¼« ¡áτáΓ∞ óδ»«½¡Ñ¡¿Ñ? - èá¬¿Ñ «ΓóÑΓδ ñáΓ∞ ¡á ¡áªáΓ¿∩ ¬½áó¿Φ, «»αÑñÑ½Ñ¡¡δσ πß½πúá¼¿ Toolkit'a FieldDefine ¿ KeyDefine. ÅÑαÑñ óδº«ó«¼ »α«µÑñπαδ DoWait ó éáΦÑ¼ »α¿½«ªÑ¡¿¿, éδ ñ«½ª¡δ óδ»«½¡¿Γ∞ »α«µÑñπαπ InitWait, «íÑß»Ñτ¿ó ÑÑ ¿¼Ñ¡á¼¿ »«½Ñ⌐ ¿ Σá⌐½«ó ß»Ñµ¿Σ¿¬áµ¿¿ ¬½áó¿Φ (ß«ºñá¡¡δ¼¿ πß½πúá¼¿ Toolkit'a FieldDefine ¿ KeyDefine). êß»«½∞º«óá¡¿Ñ: DoWait »«τΓ¿ óßÑúñá ¿ß»«½∞ºπÑΓß∩ ó ó¿ñÑ «»ÑαáΓ«αá: DoWait ("") Åα«µÑñπαá πßΓá¡áó½¿óáÑΓ º¡áτÑ¡¿Ñ ú½«íá½∞¡«⌐ »ÑαÑ¼Ñ¡¡«⌐ retval Γá¬, τΓ« éδ ¼«ªÑΓÑ «»αÑñÑ½¿Γ∞, τΓ« »«½∞º«óáΓÑ½∞ ßñÑ- ½á½. é ¡áΦÑ¼ ñÑ¼«¡ßΓαáµ¿«¡¡«¼ »α¿½«ªÑ¡¿¿ º¡áτÑ¡¿Ñ »ÑαÑ¼Ñ¡- ¡«⌐ αáó¡«Ñ ¡π½ε «º¡áτáÑΓ, τΓ« »«½∞º«óáΓÑ½∞ «Γ¼Ñ¡¿½ αÑñá¬Γ¿- α«óá¡¿Ñ. é Γ« óαÑ¼∩, ¬á¬ º¡áτÑ¡¿Ñ -60 (Do_It!) «º¡áτáÑΓ, τΓ« »«½∞º«óáΓÑ½∞ ßñÑ½á½ ¿º¼Ñ¡Ñ¡¿∩ ó ß««ΓóÑΓßΓóπεΘÑ⌐ Γáí½¿µÑ. ¥Γ« ó ßó«ε «τÑαÑñ∞ «º¡áτáÑΓ, τΓ« éδ ñ«½ª¡δ íδ½¿ ßñÑ½áΓ∞ τΓ«-½¿í« ñ½∩ Γ«ú«, τΓ«íδ ß«σαá¡¿Γ∞ φΓ¿ ¿º¼Ñ¡Ñ¡¿∩. éδ ¼«ªÑΓÑ ßó«í«ñ¡« πßΓá¡áó½¿óáΓ∞ ßó«¿ ß«íßΓóÑ¡¡δÑ ß«ú½áΦÑ¡¿∩, ¡« απ- ¬«ó«ñßΓóπ∩ß∞ »αáó¿½«¼: "Åα¿ßóá¿óá⌐ΓÑ «ñ¡«¼π ¿º »«ß½Ññ¡¿σ ¡áªáΓ¿⌐ ¬½áó¿Φ¿ ñÑ⌐ßΓó¿Ñ "«Γ¼Ñ¡á αÑñá¬Γ¿α«óá¡¿∩", Γá¬, τΓ« éáΦ¿ »α¿½«ªÑ¡¿∩ ¼«úπΓ »α«óÑα¿Γ∞ »ÑαÑ¼Ñ¡¡πε retval (ó«ºóαá- ΘÑ¡¡«Ñ º¡áτÑ¡¿Ñ), τ«íδ «»αÑñÑ½¿Γ∞, αÑΦ¿½ ½¿ »«½∞º«óáΓÑ½∞ ºáóÑαΦ¿Γ∞ µ¿¬½ óó«ñá ñá¡¡δσ. Åα«µÑñπαá DoWait ßπΘÑßΓóπÑΓ Γá¬ ñ«½ú«, »«¬á ¬½áó¿Φá, ¡áº¡áτÑ¡¡á∩ πß½πú«⌐ KeyDefine ó ¬áτÑßΓóÑ ¬½áó¿Φ¿ óδσ«ñá ¡Ñ íπñÑΓ »α¿¡∩Γá (¡« »ÑαÑñ ΓÑ¼, ¬á¬ ñÑ⌐ßΓó¿Ñ ¬½áó¿Φ¿ íπñÑΓ óδ- »«½¡Ñ¡«). àß½¿ »ÑαÑ¼Ñ¡¡á∩ TKAccept πßΓá¡«ó½Ñ¡á ó "ï«ª∞", Γ« DoWait ¡Ñ »αÑ¬αáΓ¿Γ ßó«ε αáí«Γπ. àß½¿ TKAccept ¿¼ÑÑΓ º¡áτÑ- ¡¿Ñ "êßΓ¿¡á", Γ« DoWait íπñÑΓ »«¬¿¡πΓá »ÑαÑñ ΓÑ¼, ¬á¬ ¬½á- ó¿Φá íπñÑΓ »α¿¡∩Γá; ¬½áó¿Φá «íαáíáΓδóáÑΓß∩ ÅÇÉÇäÄèæ«¼ ¿½¿ ß¬α¿»Γ«¼, ¬«Γ«αδ⌐ óδºóá½ »α«µÑñπαπ DoWait. ìá¿í«½ÑÑ óáª¡δÑ »ÑαÑ¼Ñ¡¡δÑ, ¬«Γ«αδÑ ¿ß»«½∞ºπÑΓ »α«µÑ- ñπαá DoWait ó¬½ετáεΓ: - TKCanged: ê¼ÑÑΓ º¡áτÑ¡¿Ñ "êßΓ¿¡á", Ñß½¿ ΓÑ¬πΘá∩ óÑ- ½¿τ¿¡á ó »«½Ñ ¡Ñ ¿º¼Ñ¡¿½áß∞ ó« óαÑ¼∩ óσ«ñá ó »«½Ñ; ó «íαáΓ- ¡«¼ ß½πτáÑ - "ï«ª∞". - TKCanged: êß»«½∞ºπÑΓß∩ Γ«½∞¬« »α«µÑñπα«⌐ GoodDepart. - TKChar: æ«ñÑαª¿Γ ¬«ñ »«ß½Ññ¡Ñ⌐ ¡áªáΓ«⌐ »«½∞º«óáΓÑ½Ñ¼ ¬½áó¿Φ¿. Äíδτ¡« »ÑαÑñáÑΓß∩ DoWait, ¡« ¼«ªÑΓ íδΓ∞ πßΓá- ¡«ó½Ñ¡á ¿ ßá¼¿¼ »α«úαá¼¼¿ßΓ«¼. é »α«µÑñπαáσ »α¿íδΓ¿∩ ¡ÑΓ ºáñÑαªá¡¡δσ ¬½áó¿Φ ¿ «¡¿ ¡Ñ ¼«úπΓ íδΓ∞ πßΓá¡«ó½Ñ¡δ. - TKAccept: ôßΓá¡«ó½Ñ¡« ó "ï«ª∞", Ñß½¿ éδ ¡Ñ σ«Γ¿ΓÑ, τΓ«íδ ß¿¼ó«½δ ó »α«µÑñπαÑ DoWait »α«σ«ñ¿½¿ τÑαÑº ÅÇÉÇäÄèæ (¡ÑΓ ß««ΓóÑΓßΓóπεΦ¿σ »α«µÑñπα »α¿íδΓ¿∩). ÅÑαÑ¼Ñ¡¡á∩ πßΓá- ¡áó½¿óáÑΓß∩ »α«úαá¼¼¿ßΓ«¼. - TKHoldCanvas: Åα¿¡¿¼áÑΓ º¡áτÑ¡¿Ñ "êßΓ¿¡á", Ñß½¿ ¬á- ¡óá ÅÇïá óδßóÑτ¿óá½áß∞ ñ« ¡áªáΓ¿∩ ß½ÑñπεΘÑ⌐ ¬½áó¿Φ¿. ôßΓá- ¡áó½¿óáÑΓß∩ »α«µÑñπα«⌐ DoWait. - TKMessage: æ«ñÑαª¿Γ ßΓα«¬π, ¬«Γ«αá∩ óδñáÑΓß∩ »«½∞º«- óáΓÑ½ε ó ¬áτÑßΓóÑ ß««íΘÑ¡¿∩. ôßΓá¡áó½¿óáÑΓß∩ »α«úαá¼¼¿ßΓ«¼. ÅÑαÑ¼Ñ¡¡δÑ TKCanged, TKChar, ¿ TKAccept ¿¼ÑεΓ í«½∞Φ«Ñ º¡áτÑ¡¿Ñ ¿ éδ ñ«½ª¡δ »«¡¿¼áΓ∞, ¬á¬¿Ñ αÑºπ½∞ΓáΓδ éδ »«½πτ¿ΓÑ ¿ß»«½∞ºπ∩ ¿σ ó Toolkit'e. ä½∩ »«½πτÑ¡¿∩ í«½ÑÑ »«ñ- α«í¡«⌐ ¿¡Σ«α¼áµ¿¿, ß¼. óδΦÑ: "êß»«½∞º«óá¡¿Ñ »ÑαÑ¼Ñ¡¡δσ »α«- µÑñπαá¼¿ Toolkit'a". ¥Γ«Γ »α¿¼Ñα »«¬áºδóáÑΓ, τΓ« éδ ñ«½ª¡δ ñÑ½áΓ∞ ó éáΦÑ¼ ß¬α¿»ΓÑ »ÑαÑñ óδº«ó«¼ DoWait: ; ß½ÑñπεΘ¿Ñ ñÑ⌐ßΓó¿∩ ¼«úπΓ ¿¡«úñá ¿¼ÑΓ∞ ¼ÑßΓ« »ÑαÑñ »α¿¼Ñ¡Ñ¡¿Ñ¼ »α«µÑñπαδ DoWait READLIB "toolkit" initwait ; 1) óδº«ó »α«µÑñπα ¿º »á¼∩Γ¿ initwait("fldspec","keyspec") ; 2) «»αÑñÑ½Ñ¡¿Ñ »«½Ñ⌐ ¿ ¬½áó¿Φ¡δσ »α«µÑñπα EDIT "tkentry" ; 3) πßΓá¡«ó¬á αÑª¿¼á αÑñá¬Γ¿α«óá¡¿∩ ñ½∩ Γáí- ; ½¿µ, ¡áσ«ñ∩Θ¿σß∩ ó αáí«τÑ¼ »α«ßΓαá¡ßΓóÑ PICKFORM "1" ; ßÑ⌐τáß DoWait »ÑαÑºá»πß¬áÑΓ ßá¼á ßÑí∩ DoWait("Starting DoWait Entry") ; 4) óδº«ó DoWait, Ñß½¿ retval=0 THEN RESET ; »«½∞º«óáΓÑ½∞ «Γ¼Ñ¡∩ÑΓ αÑª¿¼ αÑñá¬Γ¿α«óá¡¿∩ ELSE DO_IT! ; »«½∞º«óáΓÑ½∞ ¡áª¿¼áÑΓ Do_It! ENDIF æ¼«Γα¿ΓÑ Γá¬ªÑ: - InitWait: éδ ñ«½ª¡δ »α¿¼Ñ¡∩Γ∞ »α«µÑñπαπ InitWait »Ñ- αÑñ óδº«ó«¼ DoWait. - RecurseWait: éδ ñ«½ª¡δ »α¿¼Ñ¡∩Γ∞ »α«µÑñπαπ RecurseWait ó¼ÑßΓ« DoWait, Ñß½¿ DoWait πªÑ óδ»«½¡∩ÑΓß∩. EDITMENU. Åα«µÑñπαá »αÑñßΓáó½∩ÑΓ »α«ßΓ«Ñ ¼Ñ¡ε αÑñá¬Γ«αá ó ßΓ¿½Ñ ÅÇÉÇäÄèæá. æ¿¡Γá¬ß¿ß: EditMenu() Åα«µÑñπαá EditMenu ¡Ñ ¿¼ÑÑΓ áαúπ¼Ñ¡Γ«ó ¿ ¡Ñ ó«ºóαáΘáÑΓ º¡áτÑ¡¿⌐, ¡« πßΓá¡áó½¿óáÑΓ (¿½¿ ßíαáßδóáÑΓ) »ÑαÑ¼Ñ¡¡πε TKChar. Ä»¿ßá¡¿Ñ: Åα«µÑñπαá ß«ºñáÑΓ ¿ óδßóÑτ¿óáÑΓ ¡á φ¬αá¡Ñ ¼Ñ¡ε ß« ß½ÑñπεΘ¿¼¿ πß½πúá¼¿: Undo Help Do_It! Cancel Undo the last edit («Γ¼Ñ¡¿Γ∞ »«ß½Ññ¡¿Ñ ¿º¼Ñ¡Ñ¡¿∩). Ä¡« ß«ñÑαª¿Γ ¡á¿í«½ÑÑ «íΘ¿Ñ πß½πú¿ ñ½∩ »«½∞º«óáΓÑ½∩, ¬«Γ«αδÑ Ñ¼π íπñπΓ ¡Ñ«íσ«ñ¿¼δ ó« óαÑ¼∩ µ¿¬½á αÑñá¬Γ¿α«óá¡¿∩ ß ¿ß»«½∞º«óá¡¿Ñ¼ »α«µÑñπαδ DoWait. êß»«½∞º«óá¡¿Ñ: ä½∩ Γ«ú«, τΓ«íδ ¿ß»«½∞º«óáΓ∞ »α«µÑñπαπ EditMenu, éδ ñ«½ª¡δ ß¡áτá½á ¿ß»«½∞º«óáΓ∞ πß½πúπ KeyDefine ¿º ß¬α¿»Γá "toolkit" ñ½∩ «»αÑñÑ½Ñ¡¿∩ ¬½áó¿Φ¿ [F10] "Menu", ¬á¬ ß»Ñµ¿á½∞¡«⌐. Æá¬¿¼ «íαáº«¼, »α«µÑñπαá DoWait íπñÑΓ º¡áΓ∞, τΓ« éδ σ«Γ¿ΓÑ ºá»πßΓ¿Γ∞ EditMenu, óß∩¬¿⌐ αáº, ¬á¬ ¡áª¼ÑΓÑ ¬½áó¿Φπ [F10] "Menu" ó »α«µÑßßÑ óó«ñá ñá¡¡δσ. éßÑ ß»Ñµ¿á½∞¡δÑ ¬½áó¿Φ¿ óδºδóáεΓ «ñ¡π ¿ Γπ ªÑ »α«µÑñπ- απ. Å«φΓ«¼π, Ñß½¿ éδ «»αÑñÑ½¿½¿ í«½ÑÑ «ñ¡«⌐ ß»Ñµ¿á½∞¡«⌐ ¬½áó¿Φ¿, Γ« »α«µÑñπαá ñ«½ª¡á «»αÑñÑ½∩Γ∞, ¬á¬á∩ ¬½áó¿Φá íδ½á ¡áªáΓá. Å« π¼«½τá¡¿ε, ¿¼∩ φΓ«⌐ »α«µÑñπαδ - SpecialKey. æ¼«Γα¿ΓÑ Γá¬ªÑ "êß»«½∞º«óá¡¿Ñ »α«µÑñπαδ KeyDefine" ñ½∩ Γ«ú«,τΓ«íδ πº¡áΓ∞ ¬á¬¿¼ «íαáº«¼ ßñÑ½áΓ∞ ¬½áó¿Φπ ß»Ñµ¿á½∞¡«⌐. GETFILE »α«µÑñπαá óδßóÑτ¿óáÑΓ ¡á φ¬αá¡Ñ Σá⌐½«ó«Ñ ¼Ñ¡ε, ¿ß»«½∞ºπεΘÑÑ ¼áß¬¿ ñ½∩ «»αÑñÑ½Ñ¡¿∩, ¬á¬«⌐ Σá⌐½ íπñÑΓ óδóÑ- ñÑ¡ ¡á φ¬αá¡. æ¿¡Γá¬ß¿ß: GetFile (Mask, Prompt, Meesage, Default, Required), úñÑ: Mask - ßΓα«¬«ó«Ñ óδαáªÑ¡¿Ñ, ¿ß»«½∞ºπÑ¼«Ñ ñ½∩ Γ«ú«, τΓ«íδ óδíαáΓ∞ ¡Ñ«íσ«ñ¿¼δ⌐ Σá⌐½. Prompt - ßΓα«¬«ó«Ñ óδαáªÑ¡¿Ñ, ß«ñÑαªáΘÑÑ ß««íΘÑ¡¿Ñ, ¬«Γ«α«Ñ íπñÑΓ óδßóÑτÑ¡« ó óÑασ¡Ñ⌐ ßΓα«¬Ñ φ¬αá¡á. Message - ßΓα«¬«ó«Ñ óδαáªÑ¡¿Ñ, ß«ñÑαªáΘÑÑ «í∞∩ß¡Ñ¡¿Ñ, óδßóÑτ¿óáεΘÑÑß∩ ó« óΓ«α«⌐ ßΓα«¬Ñ φ¬αá¡á. Default - ßΓα«¬«ó«Ñ óδαáªÑ¡¿Ñ, ß«ñÑαªáΘÑÑ ¿¼∩ Σá⌐½á, óδí¿αáÑΓß∩ »« π¼«½τá¡¿ε ¿º ßΓα«¬¿ ß««íΘÑ¡¿∩. Required - ½«ú¿τÑß¬«Ñ óδαáªÑ¡¿Ñ, »«¬áºδóáεΘÑÑ, ñ«½ªÑ¡ ¿½¿ ¡ÑΓ ßπΘÑßΓó«óáΓ∞ Σá⌐½ »ÑαÑñ ΓÑ¼, ¬á¬ «¡ íπñÑΓ óδíαá¡. Ä»¿ßá¡¿Ñ: Åα«µÑñπαá GetFile óδßóÑτ¿óáÑΓ ¼Ñ¡ε, »«¬áºδ- óáεΘÑÑ ¿¼Ñ¡á Σá⌐½«ó, Ñß½¿ »«½∞º«óáΓÑ½∞ ¡áªá½ ¬½áó¿Φπ [Enter]. ¥Γ« »«σ«ªÑ ¡á »«ñß¬áº¬¿ ÅÇÉÇäÄèæá ñ½∩ ß¬α¿»Γ«ó ¿ ¿¼Ñ¡ Γáí½¿µ. Åα«µÑñπαá ¡á»¿ßá¡á ß ¿ß»«½∞º«óá¡¿Ñ¼ ¬«¼á¡ñ ÅÇïá SHOWFILES ¿ SHOWTABLES. Mask »«ºó«½∩ÑΓ éá¼ «»αÑñÑ½¿Γ∞, ¬á¬¿Ñ Σá⌐½δ íπñπΓ óδß- óÑτÑ¡δ ¡á φ¬αá¡Ñ, »«ß½Ñ Γ«ú«, ¬á¬ »«½∞º«óáΓÑ½∞ ¡áª¼ÑΓ ¬½á- ó¿Φπ [Enter]. Mask - ßΓα«¬á, ó ¬«Γ«α«⌐ ¼«ª¡« ¿ß»«½∞º«óáΓ∞ º¡á¬ (*), «»αÑñÑ½∩εΘá∩, ¬á¬¿Ñ Σá⌐½δ ñ«½ª¡δ íδΓ∞ óδíαá¡δ (¬á¬ ó ¬«¼á¡ñáσ DOS «í«º¡áτáεΓß∩ ½εíδÑ ß¿¼ó«½δ), ¡á»α¿¼Ñα: *.sc ; »«¬áºδóáÑΓ ¿¼Ñ¡á óßÑσ ß¬α¿»Γ«ó X*.sc ; »«¬áºδóáÑΓ ¿¼Ñ¡á óßÑσ ß¬α¿»Γ«ó, »Ñαóá∩ íπ¬óá ¬«Γ«αδσ X. C:\\paradox\\myapp\\*.sc ; »«¬áºδóáÑΓ óßÑ ß¬α¿»Γδ ó ñ¿αÑ¬Γ«α¿¿ \paradox\myapp. Åα«µÑñπαá GetFile ó«ºóαáΘáÑΓ ¿¼∩ óδíαá¡¡«ú« Σá⌐½á ¿½¿ »πßΓ«, Ñß½¿ Σá⌐½ ¡Ñ íδ½ óδíαá¡. Åα¿¼Ñαδ: ¥Γ«Γ «»ÑαáΓ«α »α¿ßóá¿óáÑΓ »ÑαÑ¼Ñ¡¡«⌐ ScriptName ¿¼∩ óδíαá¡¡«ú« »«½∞º«óáΓÑ½Ñ¼ ß¬α¿»Γá. Script Name = GetFile("*.sc","Script", óóÑñ¿ΓÑ ¿¼∩ ß¬α¿»Γá, ¬«Γ«αδ⌐ éδ σ«Γ¿ΓÑ ¿ß»«½∞º«óáΓ∞", "" , True). æ¼«Γα¿ Γá¬ªÑ ¬«¼á¡ñδ ÅÇïá SHOWFILES ¿ SHOWTABLES. GETPASSWORD »α«µÑñπαá »α¿¡¿¼áÑΓ ßΓα«¬π «Γ »«½∞º«óáΓÑ½∩. æ¿¡Γá¬ß¿ß: GetPassword (Length, Display), úñÑ Length - τ¿ß½«óá∩ óÑ½¿τ¿¡á, «í«º¡áτáεΘá∩ ¼á¬ß¿¼á½∞¡πε ñ½¿¡π óóÑñÑ¡¡«⌐ ßΓα«¬¿. Display - ßΓα«¬á, ¬«Γ«αá∩ óδßóÑτ¿óáÑΓß∩ óß∩¬¿⌐ αáº, ¬á¬ ¡áª¿¼áÑΓß∩ ¬½áó¿Φá (φΓ« ¼«ªÑΓ íδΓ∞ »πßΓá∩ ßΓα«¬á, ""). Ä»¿ßá¡¿Ñ: Åα«µÑñπαá αáí«ΓáÑΓ Γá¬ªÑ, ¬á¬ ¬«¼á¡ñá ACCEPT ¡Ñ óδßóÑτ¿óá∩ ß¿¼ó«½«ó, ¬«Γ«αδÑ óó«ñ∩Γß∩. Åα¿ óó«ñÑ »«½∞º«- óáΓÑ½Ñ¼ ¬áªñ«ú« ß¿¼ó«½á, »α¿ »«¼«Θ¿ »α«µÑñπαδ GetPassword, ßΓα«¬á, ß«ñÑαªáΘá∩ß∩ ó »áαá¼ÑΓαÑ Display - óδßóÑτ¿óáÑΓß∩ ¡á φ¬αá¡Ñ. è½áó¿Φá [BackSpace] πñá½∩ÑΓ »«ß½Ññ¡¿⌐ óóÑñÑ¡¡δ⌐ ß¿¼ó«½ ¿ «ñ¡«óαÑ¼Ñ¡¡«Ñ ¡áªáΓ¿Ñ ¬½áó¿Φ [Ctrl][Backspace] πñá½∩ÑΓ óßε ßΓα«¬π ß¿¼ó«½«ó óóÑñÑ¡¡πε ñ« ¡áßΓ«∩ΘÑú« ¼«¼Ñ¡Γá. Åα¿¼Ñα: "éóÑñ¿ΓÑ ¬½ετÑó«Ñ ß½«ó« ñ½¿¡«⌐ 8 í¿Γ" UserPassword = GetPassword (8,"x") IF UPPER (UserPassword) = "PASSWORD" THEN PLAY "App" ELSE EXIT ENDIF INITWAIT »α«µÑñπαá πßΓá¡áó½¿óáÑΓ óßÑ »ÑαÑ¼Ñ¡¡δÑ, ¿ß- »«½∞ºπÑ¼δÑ »α«µÑñπα«⌐ DoWait, ó ¡áτá½∞¡«Ñ º¡áτÑ¡¿Ñ. æ¿¡Γá¬ß¿ß: InitWait (Script1, Script2), úñÑ Script1 - ß¬α¿»Γ ß»Ñµ¿Σ¿¬áµ¿¿ »«½∩, ß«ºñá¡¡δ⌐ πß- ½πú«⌐ FieldDefine ¿º ß¬α¿»Γá ß ¿¼Ñ¡Ñ¼ toolkit. Script2 - ß¬α¿»Γ ß»Ñµ¿Σ¿¬áµ¿¿ ¬½áó¿Φ, ß«ºñá¡¡δ⌐ πß½πú«⌐ KeyDefine ¿º ß¬α¿»Γá toolkit. Ä»¿ßá¡¿Ñ: InitWait πßΓá¡áó½¿óáÑΓ »ÑαÑ¼Ñ¡¡δÑ, ¬«Γ«αδÑ ß«ñÑαªáΓ ¿¼Ñ¡á »α«µÑñπα ¿ ß»Ñµ¿Σ¿¬áµ¿¿ ¬½áó¿Φ, ¿ß»«½∞ºπÑ¼δÑ »α«µÑñπα«⌐ DoWait ¿ »α«µÑñπαá¼¿, ¬«Γ«αδÑ óδºδóáεΓß∩ DoWait. ä½∩ Γ«ú«, τΓ«íδ ß«ºñáΓ∞ ß¬α¿»Γ, ¬«Γ«αδ⌐ ß«ñÑαª¿Γ ß»Ñ- µ¿Σ¿¬áµ¿¿ »«½Ñ⌐ ¿ ¬½áó¿Φ, ºá»πßΓ¿ΓÑ ß¬α¿»Γ toolkit ¿ óδíÑ- α¿ΓÑ πß½πú¿ FieldDefine ¿ KeyDefine. êß»«½∞º«óá¡¿Ñ: éδ ñ«½ª¡δ óδºóáΓ∞ »α«µÑñπαπ InitWait »ÑαÑñ ΓÑ¼, ¬á¬ ¿ß»«½∞º«óáΓ∞ »α«µÑñπαπ DoWait. éδ ¼«ªÑΓÑ ¿ß- »«½∞º«óáΓ∞ InitWait í«½ÑÑ «ñ¡«ú« αáºá ó ß¬α¿»ΓÑ ñ½∩ Γ«ú«, τΓ«íδ ¿º¼Ñ¡¿Γ∞ «»αÑñÑ½Ñ¡¿∩ ¬½ετÑ⌐ ¿ »α«µÑñπα ñ½∩ »α«µÑñπαδ DoWait. Åα¿¼Ñα: fp = "fldprocs" kp = "keyprocs" INITWAIT(fp,kp) æ¼«Γα¿ΓÑ Γá¬ªÑ "êß»«½∞º«óá¡¿Ñ "FieldDefine" ¿ "êß»«½∞º«- óá¡¿Ñ KeyDefine"" ñ½∩ ß«ºñá¡¿∩ ß¬α¿»Γá, ß«ñÑαªáΘÑú« áαúπ- ¼Ñ¡Γδ ñ½∩ »α«µÑñπαδ DoWait. LOOKUPSELECT - »α«µÑñπαá »«¬áºδóáÑΓ ß»αáó«τ¡πε Γáí½¿µπ ¿ »«ºó«½∩ÑΓ »«½∞º«óáΓÑ½ε ßñÑ½áΓ∞ óδí«α ¿º ¡ÑÑ. æ¿¡Γá¬ß¿ß: LookupSelect() Åα«µÑñπαá ¡Ñ ¿¼ÑÑΓ áαúπ¼Ñ¡Γ«ó. Ä¡á ó«ºóαáΘáÑΓ Ascii ¬«ñ ¬½áó¿Φ¿, ¬«Γ«αá∩ íδ½á ¡áªáΓá ñ½∩ Γ«ú«, τΓ«íδ ºá¬«¡τ¿Γ∞ «ª¿ñá¡¿Ñ (½¿í« [Esc], ½¿í« Do_It![F2]). Ä»¿ßá¡¿Ñ: êº-ºá Γ«ú«, τΓ« éδ ¡Ñ ¼«ªÑΓÑ óδ»«½¡¿Γ∞ ¬«- ¼á¡ñπ WAITTABLE ¿º αÑª¿¼á »«¼«Θ¿, óó«ñ¿Γß∩ »α«µÑñπαá LookupSelect. Ä¡á »«ºó«½∩ÑΓ »«½∞º«óáΓÑ½ε óδí¿αáΓ∞ ¿º ß»αá- ó«τ¡«⌐ Γáí½¿µδ πß½πú¿, ¿ αáí«ΓáÑΓ Γ«τ¡« Γá¬ ªÑ, ¬á¬ ¿ ¬«- ¼á¡ñá WAITTABLE. é¼ÑßΓÑ ß ¬«¼á¡ñ«⌐ Wait, »α«µÑñπαá LookupSelect íπñÑΓ ó«ºóαáΘáΓ∞ π»αáó½Ñ¡¿Ñ »«½∞º«óáΓÑ½ε »ÑαÑñ ΓÑ¼, ¬á¬ íπñÑΓ »α¿¡∩Γ ¬«ñ ¡áªáΓ«⌐ ¬½áó¿Φ¿. Æá¬¿¼ «íαáº«¼ ß¿ßΓÑ¼á íπñÑΓ ¡á- σ«ñ¿Γ∞ß∩ ó αÑª¿¼Ñ »«¼«Θ¿. Åα¿¼Ñα: ¥Γ«Γ »α¿¼Ñα »«¬áºδóáÑΓ, τΓ« »α«úαá¼¼¿ßΓ ñ«½ªÑ¡ ñÑ½áΓ∞ ñ½∩ Γ«ú«, τΓ«íδ «íÑß»Ñτ¿óáΓ∞ ß»Ñµ¿á½∞¡«⌐ »«¼«Θ∞ε ¿ß- »«½∞º«óá¡¿Ñ ¬«¼á¡ñδ Wait, Ñß½¿ «¡ σ«τÑΓ, τΓ«íδ »«∩ó¿½áß∞ ß»αáó«τ¡á∩ Γáí½¿µá. WHILE True WAIT TABLE UNTIL "F1", "F2", "Esc" IF Retval = "F1" THEN SWITCH Case FIELD() = "Cust ID": LookupSelect() IF Retval = TKDo_It! THEN DO_IT! ELSE ESC ENDIF Case FIELD() = "Shipper": ShipperHelp() ENDSWITCH ELSE QUITLOOP ENDIF ENDWHILE æ¼«Γα¿ΓÑ Γá¬ªÑ «»¿ßá¡¿Ñ ¬«¼á¡ñδ Wait. NEWFIELD ß¿ú¡á½¿º¿απÑΓ »α«µÑñπαÑ DoWait ¿½¿ RecurseWait, « Γ«¼, τΓ« »α«¿º«ΦÑ½ óσ«ñ ó ¡«ó«Ñ »«½Ñ. é «Γ- ½¿τ¿Ñ «Γ »α«µÑñπαδ ArriveField, NEWFIELD ¡Ñ »α¿ó«ñ¿Γ ¬ óδ- º«óπ »α«µÑñπαδ »α¿íδΓ¿∩ ñ½∩ ¡«ó«ú« »«½∩. æ¿¡Γá¬ß¿ß: NewField() Åα«µÑñπαá ¡Ñ ¿¼ÑÑΓ áαúπ¼Ñ¡Γ«ó ¿ ¡Ñ ó«ºóαáΘáÑΓ º¡áτÑ¡¿⌐. Ä»¿ßá¡¿Ñ: è«úñá «ñ¡á ¿º éáΦ¿σ »α«µÑñπα »α¿ó«ñ¿Γ ¬ Γ«- ¼π, τΓ« »«½Ñ ñ«½ª¡« íδΓ∞ »«¬¿¡πΓ«, ¡Ñ¬«Γ«αδÑ »ÑαÑ¼Ñ¡¡δÑ, ¿ß»«½∞ºπÑ¼δÑ »α«µÑñπα«⌐ DoWait ñ«½ª¡δ íδΓ∞ ßíα«ΦÑ¡δ. Åα«µÑñπαá ArriveField (ß¼. óδΦÑ) ñÑ½áÑΓ φΓ«, «Γ¼Ñ¡∩∩ óßÑ ºáñÑαªá¡¡δÑ ¬½áó¿Φ¿ ¿ óδºδóáÑΓ »α«µÑñπαπ »α¿íδΓ¿∩ ñ½∩ ¡«ó«ú« »«½∩. Åα«µÑñπαá NewField, ¡á»α«Γ¿ó, ß¿ú¡á½¿º¿απÑΓ DoWait « Γ«¼, τΓ« »«½Ñ ¿º¼Ñ¡¿½«ß∞ íÑº «Γ¼Ñ¡δ ºáñÑαªá¡¡δσ ¬½áó¿Φ ¿½¿ óδº«óá »α«µÑñπαδ »α¿íδΓ¿∩ ñ½∩ ¡«ó«ú« »«½∩. Åα«- µÑñπαá NewField ¿ß»«½∞ºπÑΓß∩ ó Γá¬¿σ ß¿Γπáµ¿∩σ, ¬«úñá »α¿- ¼Ñ¡Ñ¡¿Ñ »α«µÑñπαδ ArriveField »«ß½Ñ ¿º¼Ñ¡Ñ¡¿∩ »«½∩ ¡Ñó«º- ¼«ª¡«. Åα¿¼Ñα: ¥Γ«Γ »α¿¼Ñα »αÑñ»«½áúáÑΓ, τΓ« ó ΓÑ¬πΦÑ⌐ Γáí½¿µÑ ¿¼ÑεΓß∩ »«½∩: "Method of Payment" ¿ "Credit Card Namber". PROC LeavePayType() ; óδº«ó »α«µÑñπαδ GoodDepart ñ½∩ óδσ«ñá ¿º »«½∩ "îÑΓ«ñ »½áΓÑªá" IF TKChanged ; íδ½« ½¿ ¿º¼Ñ¡Ñ¡« »«½Ñ "îÑΓ«ñ »½áΓÑªá" »α¿ »αÑñδñπΘÑ¼ óσ«ñÑ THEN IF []="cash" OR []="check" ; ¡πªñáÑ¼ß∩ ½¿ ¼δ ó »«½Ñ "ì«¼Ñα ¬αÑñ¿Γ¡«⌐ ¬áαΓ«τ¬¿" THEN RIGHT NewField() ; ¡ÑΓ, »«φΓ«¼π ú«ó«α¿¼ DoWait, τΓ« ¼δ ¿º¼Ñ¡¿½¿ »«½∩, ¡« ¡Ñ «Γ¼Ñ¡¿½¿ ºáñÑαªá¡¡δÑ ¬½áó¿Φ¿ []="N/A" ; ºá»«½¡Ñ¡¿Ñ »«½∩ ENDIF TKChar=TKRight ; ¼δ σ«Γ¿¼ »ÑαÑ⌐Γ¿ ¬ ß½ÑñπεΘÑ¼π »«½ε ; óß»«¼¡¿¼, τΓ« »α«µÑñπαá NewField ¡Ñ «Γ¼Ñ¡∩ÑΓ ¡áªáΓδσ »«½∞º«óáΓÑ½Ñ¼ ¬½áó¿Φ ENDIF ENDPROC æ¼«Γα¿ΓÑ Γá¬ªÑ »α«µÑñπαπ ArriveField. POPUP »α«µÑñπαá óδßóÑτ¿óáÑΓ ¡á φ¬αá¡Ñ óÑαΓ¿¬á½∞¡«Ñ ¼Ñ- ¡ε, ß«ºñá¡¡«Ñ »α¿ »«¼«Θ¿ SetPopup. æ¿¡Γá¬ß¿ß: Popup (Row, Column, Number, Lenght), úñÑ Row ¿ Column - τ¿ß½«óδÑ óÑ½¿τ¿¡δ, «»αÑñÑ½∩εΘ¿Ñ »«º¿µ¿ε ¡á φ¬αá¡Ñ óÑασ¡Ñú« ½Ñó«ú« πú½á ¼Ñ¡ε. Number - τ¿ß½«óá∩ óÑ½¿τ¿¡á, »«¬áºδóáεΘá∩, ß¬«½∞¬« ¼Ñ¡ε éδ σ«Γ¿ΓÑ óδßóÑΓ¿Γ∞. Length - τ¿ß½«óá∩ óÑ½¿τ¿¡á, »«¬áºδóáεΘá∩ τ¿ß½« πß½πú, óδßóÑτ¿óáÑ¼δσ ºá «ñ¿¡ αáº (¼Ñ¡ε "»α«¬απτ¿óáÑΓß∩", Ñß½¿ ¿¼Ñ- ÑΓß∩ í«½∞ΦÑ πß½πú, τÑ¼ »«ºó«½∩ÑΓ »áαá¼ÑΓα Length). àß½¿ Length í«½∞ΦÑ, τÑ¼ τ¿ß½« »αÑñ«ßΓáó½∩Ñ¼δσ πß½πú, ¼Ñ¡ε íπñÑΓ ºá¡¿¼áΓ∞ í«½∞ΦÑ ¼ÑßΓá, τÑ¼ ¡Ñ«íσ«ñ¿¼« ñ½∩ »ÑαÑτ¡∩ πß½πú. Ä»¿ßá¡¿Ñ: Åα«µÑñπαá óδßóÑτ¿óáÑΓ ¼Ñ¡ε, ß«ºñá¡¡«Ñ »α«µÑ- ñπα«⌐ SetPopup. éδ ñ«½ª¡δ óóÑßΓ¿ ¬««αñ¿¡áΓδ ½Ñó«ú« óÑασ¡Ñú« πú½á ¼Ñ¡ε (ú«α¿º«¡Γá½∞¡δÑ ¬««αñ¿¡áΓδ 0-79, óÑαΓ¿¬á½∞¡δÑ ¬«- «αñ¿¡áΓδ 0-24). éδ Γá¬ªÑ ñ«½ª¡δ «»αÑñÑ½¿Γ∞ »áαá¼ÑΓα Length, ¬«Γ«αδ⌐ «»αÑñÑ½∩ÑΓ ¼á¬ß¿¼á½∞¡«Ñ τ¿ß½« »π¡¬Γ«ó, ¿º«íαáªáÑ¼«Ñ «ñ¡«óαÑ¼Ñ¡¡« ó« óßÑ¼ í½«¬Ñ ¼Ñ¡ε. Åα«µÑñπαá ó«ºóαáΘáÑΓ »π¡¬Γ ¼Ñ¡ε, óδíαá¡¡δ⌐ »«½∞º«óáΓÑ- ½Ñ¼. àß½¿ »«½∞º«óáΓÑ½∞ ¡Ñ »α«¿ºóÑ½ óδí«α, Γ« «¡á ó«ºóαáΘáÑΓ »πßΓπε óÑ½¿τ¿¡π. Åα¿¼Ñα: ¥Γ«Γ »α¿¼Ñα óδßóÑτ¿óáÑΓ "¼Ñ¡ε" »áßßáª¿α«ó ¡á ¼«αß¬«⌐ αÑ⌐ß, »«¬á »«½∞º«óáΓÑ½∞ ¡Ñ ¡áªá½ ¬½áó¿Φπ [Esc] ¿½¿ ¡Ñ ßñÑ½á½ ¡πª¡«ú« óδí«αá. PROC ShipViaMenu() ; »αÑñ»«½«ª¿¼, τΓ« ¼δ ¡áσ«ñ¿¼ß∩ ó »«½Ñ "ShipVia" Popup(2,37,1,4)) ; »«¬áº ¼Ñ¡ε (4 óδí«αá «ñ¡«óαÑ¼Ñ¡¡«) IF NOT ISBLANK(retval) THEN []=retval ; »α¿ßó«¿Γ∞ óδí«α ¬ »«½ε TKChar=TKRight TKAccept=True ; ¡áª¼¿ΓÑ ¬½áó¿Φπ »ÑαÑ¼ÑΘÑ¡¿⌐ ñ½∩ Γ«ú«, τΓ«íδ »«½∞º«- óáΓÑ½∞ »«¬¿¡π½ »«½Ñ ¿ πíÑñ¿ΓÑß∞ ó Γ«¼, τΓ« »α«µÑñπαá DoWait »«½πτ¿Γ ¬«ñ ºΓ«⌐ ¬½áó¿Φ¿ ENDIF ENDPROC æ¼«Γα¿ΓÑ Γá¬ªÑ »α«µÑñπαπ SetPopup. RECURSEWAIT - óÑαß¿∩ »α«µÑñπαδ DoWait, ¬«Γ«αá∩ ñ«½ª¡á ¿ß»«½∞º«óáΓ∞ß∩, ¬«úñá »α«µÑñπαá DoWait πªÑ á¬Γ¿ó¡á. æ¿¡Γá¬ß¿ß: RecurseWait (String, ProcedureName), úñÑ String - ß««íΘÑ¡¿Ñ, óδßóÑτ¿óáεΘÑÑß∩, ¬«úñá »α«µÑñπαá RecurseWait íÑαÑΓ π»αáó½Ñ¡¿Ñ óó«ñ«¼ ñá¡¡δσ. ProcedureName - ßΓα«¬á, ß«ñÑαªáΘá∩ ¿¼∩ »α«µÑñπαδ, ¬«- Γ«αá∩ ºáúαπªáÑΓ ß««ΓóÑΓßΓóπεΘ¿Ñ óÑ½¿τ¿¡δ ñ½∩ ß¬α¿»Γ«ó ß»Ñ- µ¿Σ¿¬áµ¿¿ »«½Ñ⌐ ¿ ¬½áó¿Φ. RecueseWait - »α¿ßóá¿óáÑΓ ß¿ßΓÑ¼¡«⌐ »ÑαÑ¼Ñ¡¡«⌐ retval ¬«ñ »«ß½Ññ¡Ñ⌐ ¡áªáΓ«⌐ »«½∞º«óáΓÑ½Ñ¼ ¬½áó¿Φ¿, Ñß½½¿ »«½∞º«- óáΓÑ½∞ óó«ñ¿½ ñá¡¡δÑ ó Γáí½¿µπ ó ΓÑτÑ¡¿¿ DoWait. Ä»¿ßá¡¿Ñ: Åα«µÑñπαá RecurseWait - π»α«ΘÑ¡¡á∩ óÑαß¿∩ »α«µÑñπαδ Dowait ¿ ¿ß»«½∞ºπÑΓß∩, ¬«úñá »α«µÑñπαá DoWait πªÑ á¬Γ¿ó¡á. Ä¡á αáí«ΓáÑΓ Γá¬ªÑ, ¬á¬ ¿ »α«µÑñπαá DoWait. é »α«µÑñπαÑ RecurseWait ¡ÑΓ ¡Ñ«íσ«ñ¿¼«ßΓ¿ ¿ß»«½∞º«óáΓ∞ ΓÑ ªÑ Γáí½¿µδ, Σ«α¼δ, «íΩÑ¬Γδ ¿½¿ ß»Ñµ¿Σ¿¬áµ¿¿ ¬½áó¿Φ ¿ »«- ½Ñ⌐, ¬«Γ«αδÑ óδºóá½á DoWait. ¥Γ« »«ºó«½∩ÑΓ óó«ñ¿Γ∞ ñá¡¡δÑ ó« ¼¡«ú¿Ñ Γáí½¿µδ, ¬á¬ ó ß½πτáÑ, Ñß½¿ »«½∞º«óáΓÑ½∞, ºá»«½- ¡∩εΘ¿⌐ Γáí½¿µπ "Orders" (ºá¬áºδ), αÑΦáÑΓ ºá»«½¡¿Γ∞ ¿¡Σ«α¼á- µ¿ε « ºá¬áºτ¿¬Ñ, ¡áσ«ñ∩Θπεß∩ ó Γáí½¿µÑ "Cust". Åα¿¼Ñα: PROC PlaySpecs() Play "fildspec2" ; ºáúαπº¿Γ∞ ¡«óπε ß»Ñµ¿Σ¿¬áµ¿ε »«½Ñ⌐ PLAY "keyspec2" ; ºáúαπº¿Γ∞ ¡«óπε ß»Ñµ¿Σ¿¬áµ¿ε ¬½áó¿Φ ENDPROC ; ß«σαá¡¿Γ∞ ¿º¼Ñ¡Ñ¡¿∩? RecurseWait("",PlaySpecs) IF retval <> TKDo_It! THEN DO_IT! ; ñá, ß«σαá¡¿Γ∞ ¿º¼Ñ¡Ñ¡¿∩ ó Γáí½¿µÑ ELSE QUITLOOP ; ó«ºóαáΓ ENDIF æ¼«Γα¿ΓÑ Γá¬ªÑ »α«µÑñπαπ DoWait. SETKEYCODES - πßΓá¡áó½¿óáÑΓ »ÑαÑ¼Ñ¡¡δÑ, ¿ß»«½∞ºπÑ¼δÑ ß«ó¼ÑßΓ¡« ß DoWait. æ¿¡Γá¬ß¿ß: SetKeyCodes () Åα«µÑñπαá ¡Ñ ¿¼ÑÑΓ áαúπ¼Ñ¡Γ«ó ¿ ¡Ñ ó«ºóαáΘáÑΓ º¡áτÑ¡¿∩ (σ«Γ∩ πßΓá¡áó½¿óáÑΓ »ÑαÑ¼Ñ¡¡δÑ). Ä»¿ßá¡¿Ñ: Åα«µÑñπαá πßΓá¡áó½¿óáÑΓ »ÑαÑ¼Ñ¡¡δÑ, ¬«Γ«αδÑ éδ ¼«ªÑΓÑ ¿ß»«½∞º«óáΓ∞ ñ½∩ ñ«ßΓπ»á ¬ αáßΦ¿αÑ¡¡δ¼ ¬«ñá¼ Ascii. éßÑ »ÑαÑ¼Ñ¡¡δÑ, πßΓá¡áó½¿óáÑ¼δÑ φΓ«⌐ »α«µÑñπα«⌐ ¡á- τ¿¡áεΓß∩ ß íπ¬ó TK, ºá ¬«Γ«αδ¼¿ ß½ÑñπÑΓ ¬½ετÑó«Ñ ¿¼∩ «Γ- ñÑ½∞¡δσ ¬½áó¿Φ (Γá¬¿Ñ, ¬á¬ TKDel, TKPgUp ¿ Γ.ñ.). Åα«úαá¼¼¿ßΓπ ¡ÑΓ ¡Ñ«íσ«ñ¿¼«ßΓ¿ ºá»«¼¿¡áΓ∞ µÑ½δ⌐ ¡áí«α αáßΦ¿αÑ¡¡δσ Ascii ¬«ñ«ó, ñ½∩ ß«ºñá¡¿∩ »α«úαá¼¼ óó«ñá ñá¡¡δσ. ÅÑαÑ¼Ñ¡¡δÑ ñÑ½áεΓ »α«úαá¼¼δ πñ«í«τ¿ΓáÑ¼δ¼¿ ¿ πñ«í«»«- ¡¿¼áÑ¼δ¼¿. êß»«½∞º«óá¡¿Ñ: éδ ñ«½ª¡δ óδºóáΓ∞ »α«µÑñπαπ SetKeycodes »ÑαÑñ ΓÑ¼, ¬á¬ «íαáΓ¿ΓÑß∞ ¬ ½εí«⌐ ¿º »ÑαÑ¼Ñ¡¡δσ. Åα«µÑñπαá ¼«ªÑΓ íδΓ∞ óδºóá¡á óßÑú« «ñ¿¡ αáº ó ¡áτá½Ñ éáΦÑú« »α¿½«ªÑ- ¡¿∩, á ¡Ñ ó ¬«¡µÑ µ¿¬½á óó«ñá ñá¡¡δσ. Åα¿¼Ñα: Proc InitApp() Readlib "Toolkit" SetKeycodes SetKeycodes Release Procs SetKeycodes ; ñαπú¿Ñ ¬«ñδ ¿¡¿µ¿á½¿ºáµ¿¿ ENDPROC æ¼«Γα¿ Γá¬ªÑ "êß»«½∞º«óá¡¿Ñ »α«µÑñπαδ "Prepare Final". SETPOPUP »α«µÑñπαá óδí¿αáÑΓ ñá¡¡δÑ ¿º «ñ¡«⌐ ¿½¿ ¡Ñß- ¬«½∞¬¿σ Γáí½¿µ ¿ »«ñú«Γáó½¿óáÑΓ ¿σ ñ½∩ ¿ß»«½∞º«óá¡¿∩ ó óÑα- Γ¿¬á½∞¡«¼ ¼Ñ¡ε. æ¿¡Γá¬ß¿ß: SetPopup (TableNameList), úñÑ TableNameList - ß»¿ß«¬ Γáí½¿µ, ¬áªñá∩ ¿º ¬«Γ«αδσ ß«ñÑαª¿Γ ñá¡¡δÑ, ¬«Γ«αδÑ ó«⌐ñπΓ ó ¼Ñ¡ε. Åα«µÑñπαá SetPopup ¡Ñ ó«ºóαáΘáÑΓ º¡áτÑ¡¿∩. Ä»¿ßá¡¿Ñ: ä½∩ ¬áªñ«⌐ Γáí½¿µδ ¿º ß»¿ß¬á TableNameList, »α«µÑñπαá SetPopup »αÑ«íαáºπÑΓ óÑ½¿τ¿¡δ, ¡áσ«ñ∩Θ¿Ñß∩ ó »Ñα- ó«¼ ßΓ«½íµÑ, ó ¼Ñ¡ε, ¿ß»«½∞ºπÑ¼«Ñ »α«µÑñπα«⌐ Popup. äá¡¡δÑ ó »Ñαó«¼ »«½Ñ Γáí½¿µδ ¼«úπΓ íδΓ∞ ó ½εí«¼ ó¿ñÑ ¿ ½εí«ú« αáº- ¼Ñαá; Åα«µÑñπαá SetPopup áóΓ«¼áΓ¿τÑß¬¿ óδτ¿ß½¿Γ αáº¼Ñα, ¡Ñ- «íσ«ñ¿¼δ⌐ ñ½∩ ¼Ñ¡ε. èáªñ«¼π ¼Ñ¡ε »α¿ßóá¿óáÑΓß∩ ¡«¼Ñα, ß««Γ- óÑΓßΓóπεΘ¿⌐ ¡«¼Ñαπ Γáí½¿µδ ó ß»¿ß¬Ñ TableNameList. Åα¿¼Ñαδ: àß½¿ »Ñαó«Ñ »«½Ñ Γáí½¿µδ parts ß«ñÑαª¿Γ ºá»¿- ß¿ Bolt, Nut ¿ Lockwasher, ß½ÑñπεΘá∩ ¬«¼á¡ñá ú«Γ«ó¿Γ óÑαΓ¿- ¬á½∞¡«Ñ ¼Ñ¡ε ß ΓαÑ¼∩ »π¡¬Γá¼¿ ¿ Φ¿α¿¡«⌐ 10 (¼á¬ß¿¼á½∞¡á∩ ñ½¿¡á ºá»¿ß¿ Lockwasher): SetPopup("parts") ; ñ½∩ Γ«ú«,τΓ«íδ óδßóÑΓ¿Γ∞ ¼Ñ¡ε ó óÑασ¡Ñ¼ ½Ñó«¼ πú½π ; φ¬αá¡á, ¿ß»«½∞ºπÑ¼ »α«µÑñπαπ:Popup(0,0,1) æ¼«Γα¿ΓÑ Γá¬ªÑ »α«µÑñπαπ Popup. TKDEBUG ß««íΦáÑΓ éá¼ « ½εíδσ «íßΓ«∩ΓÑ½∞ßΓóáσ, ó ¬«Γ«- αδσ »α«µÑñπαá DoWait ¡Ñ º¡áÑΓ, ¬á¬«Ñ »«½Ñ ∩ó½∩ÑΓß∩ ΓÑ¬πΘ¿¼. æ¿¡Γá¬ß¿ß: TKDebug() Åα«µÑñπαá ¡Ñ ¿¼ÑÑΓ áαúπ¼Ñ¡Γ«ó ¿ ¡Ñ ó«ºóαáΘáÑΓ º¡áτÑ¡¿⌐. Ä»¿ßá¡¿Ñ: è«úñá »α«µÑñπαπ TKDebug »«¼ÑßΓ∩Γ ¡á ¼ÑßΓ« »Ñαó«⌐ ¬«¼á¡ñδ ó ½εíπε »α«µÑñπαπ, óδºδóáÑ¼πε DoWait, TKDebug óδßóÑτ¿óáÑΓ ¡á φ¬αá¡Ñ ß««íΘÑ¡¿Ñ, ó Γ«¼ ß½πτáÑ, ¬«ú- ñá DoWait ¡Ñ º¡áÑΓ, ó ¬á¬«¼ »«½Ñ ¡áσ«ñ¿Γß∩ ¬παß«α, ¬«úñá óδºδóáÑΓß∩ »α«µÑñπαá. ¥Γ« ¼«ªÑΓ ß½πτ¿Γ∞ß∩, Ñß½¿ »«½Ñ »«¬¿- ¡πΓ« ¿ ¡¿ »α«µÑñπαá ArriveField ¡¿ NewField ¡Ñ íδ½á óδºóá- ¡á. ó ½εí«¼ ñαπú«¼ ß½πτáÑ TKDebug ¡Ñ ñÑ⌐ßΓóπÑΓ. êß»«½∞º«óá¡¿Ñ: TKDebug »αÑñ¡áº¡áτÑ¡á ñ½∩ ¿ß»«½∞º«óá¡¿∩ ó »α¿½«ªÑ¡¿∩σ, ¡áσ«ñ∩Θ¿σß∩ ¡á ßΓáñ¿¿ αáºαáí«Γ¬¿. éßÑ «»ÑαáΓ«αδ TKDebug ñ«½ª¡δ íδΓ∞ πñá½Ñ¡δ »«ß½Ñ «Γ½áñ¬¿, Γ.¬. φΓá »α«µÑñπαá ºá- ¼Ññ½∩ÑΓ αáí«Γπ éáΦ¿σ »α¿½«ªÑ¡¿⌐. TKDebug ¼«ªÑΓ íδΓ∞ πñá½Ñ¡ áóΓ«¼áΓ¿τÑß¬¿ »α¿ »«¼«Θ¿ »«ñß¿ßΓÑ¼δ PrepareFinal. Åα¿¼Ñα: Åα«µÑñπαá BadDepart πñá½¿½á »«ß½Ññ¡¿⌐ ß¿¼ó«½: PROC BDForgetKey() TKDebug() TKAccept = False ENDPROC æ¼«Γα¿ΓÑ Γá¬ªÑ ¿ß»«½∞º«óá¡¿Ñ »«ñß¿ßΓÑ¼δ PrepareFinal.