home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 15 / 15.iso / s / s074 / 2.img / KS3.LZH / CHINESE.PRO < prev    next >
Encoding:
Text File  |  1993-02-01  |  13.1 KB  |  231 lines
  1. ********************************************************************************
  2. ***       KS3 Chinese Profile                        Date : 1993.01.02         *
  3. ***       (C)Copyright VIC COMPUTER (HK) CO. LTD., All Right Reserved          *
  4. ********************************************************************************
  5.  
  6. *  Waiting message
  7. [Cursor Command] [Begin Line] [Erase End Line] 'ñuº@ññ ... '
  8.  
  9. * Common Marco
  10. Def _Mouse_On    = [IF MouseReady THEN [Set Mouse On][Set Window 1 2 2 23 78]:+
  11.                          [RightButton  u-space][CenterButton u-c] :+
  12.                          [def pgup = [Scrollup 20]][def pgdn = [Scrolldown 20]]]
  13. Def _Mouse_Off   = [IF MouseReady THEN [Set Mouse Off][Set Window 1 1 1 25 80]:+
  14.                         [def pgup = [Scrollup 22]][def pgdn = [Scrolldown 22]]]
  15. Def _Find_Blank_Line = [Down] [Find Blank Line]
  16. Def _Dos         = [Message ⌐τÑ⌠ª≤┴Σ╕⌡ª▄ DOS ¬¼║A, Ñi½÷ EXIT ¬≡ª^] [Wait]:+
  17.                    [Dos][Clear message]
  18. Def _Confirm     = [IF Chinese then [Message ╜╨½÷ Enter ╜T⌐w] else [Message Press Enter to Confirm]]
  19. Def _Read_Tab    = ' '[Cursor Data][End Word][Right] :+
  20.                    [If !EOL Then [Tab Word][Cursor Command][Get Column][_Read_Tab]:+
  21.                             Else [Cursor Command][_Confirm]]
  22. Def _Key_List    = [e .Keydefs] [Message Ñi½÷ F4 ┬≈╢} ⌐╬ º∩╖s└╔ªW└xªs]
  23. Def _Pageset     = [Save] [Pageset]
  24. Def _Recover     = [e .UnNamed] [Message Ñi½÷ F8 ¬≡ª^¡∞└╔«╫]
  25. Def _Left_Margin = [Cursor Command][? Margins][BackTab Word][BackTab Word]   :+
  26.                    [BackTab Word] [Insert Mode][Erase Word][Get Column]' '   :+
  27.                    [Execute] [Cursor Data]
  28. Def _Right_Margin= [Cursor Command][? Margins][BackTab Word][BackTab Word] :+
  29.                    [Insert Mode][Erase Word][Get Column]' '[Execute][Cursor Data]
  30. Def _Set_Tab     = [Cursor Command] [Begin Line] [Erase End Line] 'Set Tabs '
  31. Def _Command_On  = [Set Command 50] [Def Up = [Command Up]] [Def Down = :+
  32.                    [Command Down]] [Message Ñiªb½ⁿÑO─µ,Ñ╬í⌠í⌡┴Σ¡╫º∩½ⁿÑO]
  33. Def _Command_Off = [Set Command 0] [Def Up = [Up]][Def Down = [Down]]
  34. Def _No_Of_Copy  = [Cursor Command] [Begin Line] [Erase End Line] 'Set CopyNo '
  35. Def _Page_Length = [Cursor Command] [Begin Line] [Erase End Line] 'Set PageNo '
  36. Def _FormFeed_On = [Set FormFeed On]
  37. Def _FormFeed_Off= [Set FormFeed Off]
  38. Def _DiskSpace   = [Cursor Command] [Begin Line] [Erase End Line]   :+
  39.                    '? Diskspace ' [Get Filename] [Begin Line] [Right 14] :+
  40.                    [Erase End Line][_Confirm]
  41.  
  42. * Set Individual Key Function
  43. * Select Print Effect Command
  44. Def c-f10 = [Macro ~COM.PRO] [Key c-f10]
  45. * Read Margins
  46. Def a-equals = [Cursor Data][Begin Line][Down][First Nonblank][Cursor Command]:+
  47.                [Begin Line][Erase End Line]'Set Margins '[Get Column]' ':+
  48.                [Command Toggle][Up][End Line][If English then [Left]][Cursor Command][Get Column]' ':+
  49.                [Command Toggle][First Nonblank][Cursor Command][Get Column][_Confirm]
  50. * Read Tabs
  51. Def a-t = [Cursor Data][First Nonblank][Cursor Command][Begin Line]:+
  52.           [Erase End line]'Set Tabs '[Get Column][_Read_Tab]
  53.  
  54. * Set Mouse
  55. * Right & Center Button (Mouse)
  56. Def u-space = [Goto Mouse] [Mark Block]
  57. Def u-c     = [f10]
  58. [_Mouse_On]
  59.  
  60. * Set PullDown Menu
  61. Def s-f1 = [MenuGroup 1 1 80 {   ESC - ┬≈╢}              KS3 .. ññ¡^ñσñσ«╤│B▓z¿t▓╬               F10, ^\ ┐∩│µ} :+
  62.                              {~F└╔«╫ [u-f1]}      :+
  63.                              {~E╜s┐Φ [u-f2]}      :+
  64.                              {~M░╧¼q [u-f3]}      :+
  65.                              {~D░╧¼q░╩º@ [u-f4]}  :+
  66.                              {~V¼d¼▌│]⌐w [u-f5]}  :+
  67.                              {~Tñu¿π [u-f6]}      :+
  68.                              {~PªCªL [u-f7]}      :+
  69.                              {~O╡º░O [u-f8]}      :+
  70.                              {~H╗í⌐· [u-f9]}     ]
  71. Def u-f1 = [Menu 2  2 28 {└╔«╫}                                    :+
  72.                          { ~L ┐∩╛▄ └╔«╫          Alt+6[u-minus]}   :+
  73.                          { ~E ╢}▒╥ └╔«╫ [xEdit]}                   :+
  74.                          { ~O ┐∩╛▄ ¿ΣÑL╜s┐Φ└╔    Alt+7[EditFile]}  :+
  75.                          { ~S └xªs └╔«╫             F2[Save]}      :+
  76.                          { ~N └xªs ¿├ ⌐±▒≤ ╜s┐Φ└╔   F3[File]}      :+
  77.                          { ~A └xªs ª¿╖s└╔ªW [xSave]}               :+
  78.                          { ~F └xªs ⌐╥ª│└╔«╫ [SaveAll]}             :+
  79.                          { ~M └xªs ░╧¼qñ║╕Ω«╞  Ctrl+KW[xWrite]}    :+
  80.                          { ~T ┼¬¿· ñσªr   └╔   Ctrl+KR[xRead]}     :+
  81.                          { ~P ┼¬¿· ╕╒║Γ¬φ └╔ [xReadSS]}            :+
  82.                          { ~D ┼¬¿· ╕Ω«╞«w └╔ [xReadDB]}            :+
  83.                          { ~H ╝╚¿∞ DOS ¬¼║A [_Dos]}                :+
  84.                          { ~R º≤º∩ └╔ªW [xName]}                   :+
  85.                          { ~Q ⌐±▒≤ ╜s┐Φ└╔           F4[Quit]}      :+
  86.                          { ~U ┬≈╢} ¿├ ª█░╩└xªs  Ctrl+_[_Save&Quit]}]
  87. Def u-f2 = [Menu 2 10 24 {╜s┐Φ}                               :+
  88.                          { ~T ╕⌡ª▄ └╔└Y  Ctrl+PgUp[C-PgUp]}      :+
  89.                          { ~B ╕⌡ª▄ └╔º└  Ctrl+PgDn[C-PgDn]}      :+
  90.                          { ~L ╕⌡ª▄ ¼Yªµ      Alt+G[xLine]}       :+
  91.                          { ~F ╕⌡ª▄ ¬┼ªµ [_Find_Blank_Line]}   :+
  92.                          { ~S ┤MºΣ ªrªΩ    Ctrl+QF[xLocate]}     :+
  93.                          { ~R ┤└ÑN ªrªΩ    Ctrl+QA[xChange]}     :+
  94.                          { ~D ºR░ú ñ@ªµ     Ctrl+Y[Delete Line]} :+
  95.                          { ~P ñ└│╬ ª╣ªµ     Ctrl+N[Split]}       :+
  96.                          { ~J │s▒╡ ñWªµ     Ctrl+c-backspace]}:+
  97.                          { ~N │s▒╡ ñUªµ     Ctrl+O[Join]}        :+
  98.                          { ~C ╜╞╗s ñWªµ     Ctrl+J[Copy Line]}   :+
  99.                          { ~W ¡½▒╞ ª╣¼q      Alt+W[a-w]}]
  100.  
  101. Def u-f3 = [Menu 2 18 27 {░╧¼q}                                    :+
  102.                          { ~B │]⌐w ñΦ½¼ ░╧¼q    Alt+B[Mark Block]}   :+
  103.                          { ~L │]⌐w ªµ½¼ ░╧¼q    Alt+L[Mark Line]}    :+
  104.                          { ~C │]⌐w ª▒½¼ ░╧¼q    Alt+C[Mark Char]}    :+
  105.                          { ~U «°░ú ░╧¼q         Alt+U[Unmark]}       :+
  106.                          { ~D ╜╞╗s ░╧¼q       Ctrl+KC[Copy Mark]}    :+
  107.                          { ~M ╖h▓╛ ░╧¼q       Ctrl+KV[Move Mark]}    :+
  108.                          { ~E ºR░ú ░╧¼q       Ctrl+KY[Delete Mark]}  :+
  109.                          { ~O ┬╨╗\ ñΦ½¼ ░╧¼q  Ctrl+KO[Overlay Block]}:+
  110.                          { ~P ▓╛░╩ ñΦ½¼ ░╧¼q    [Move Frame]} ]
  111. Def u-f4 = [Menu 2 26 29 {░╧¼q░╩º@}                               :+
  112.                          { ~L Ñ¬▓╛ ░╧¼q╕Ω«╞    Shift+F7[Shift Left]} :+
  113.                          { ~R Ñk▓╛ ░╧¼q╕Ω«╞    [Shift Right]}        :+
  114.                          { ~U ¡^ñσ ñp╝g ┬αñj╝g  [Uppercase]}       :+
  115.                          { ~O ¡^ñσ ñj╝g ┬αñp╝g  [Lowercase]}       :+
  116.                          { ~F ░╧¼q ╢±│µªr         Alt+F[Fill Mark]}  :+
  117.                          { ~W ░╧¼q ╢±ªrªΩ [xFill]}                :+
  118.                          { ~H ñ⌠Ñ¡ ╢± nn ªrªΩ [xFillHS]}          :+
  119.                          { ~V ½½¬╜ ╢± nn ªrªΩ [xFillVS]}          :+
  120.                          { ~C ªµ½¼░╧¼q ╛aññ    Shift+F8[Center in Margins]}:+
  121.                          { ~J ªµ½¼░╧¼q ╕Ω«╞¡½▒╞  Ctrl+B[Reflow]}     :+
  122.                          { ~B ñΦ½¼░╧¼q ░╩º@... [u-f]}]
  123. Def u-f5 = [Menu 2 34 27 {¼d¼▌│]⌐w}                            :+
  124.                          { ~R ¼d¼▌ ºRº∩╝╚ªs└╔ [_Recover]}      :+
  125.                          { ~I ¼d¼▌ ¿t▓╬¬¼║A [xQuery]}          :+
  126.                          { ~D ¼d¼▌ ║╧║╨╛≈ ╛lñU¬┼╢í [_diskspace]}:+
  127.                          { ~K ¼d¼▌ Ñ╪½e ½÷┴ΣÑ¿╢░ [_Key_List]}  :+
  128.                          { ~C │]⌐w ¿t▓╬¬¼║A [xSet]}            :+
  129.                          { ~M │]⌐w Ñ¬Ñk├Σ¼╔... [u-d]}          :+
  130.                          { ~T │]⌐w Tab ª∞╕m... [u-e]}          :+
  131.                          { ~B │]⌐w ╡e«╪ ╣╧º╬ [xBox]}           :+
  132.                          { ~A │]⌐w ñΦªV┴ΣÑ\»α.. Alt+5[u-b]}    :+
  133.                          { ~W ├÷│¼ Ñ╪½e╡°╡í [Close Window]}]
  134. Def u-f6 = [Menu 2 42 26 {ñu¿π}                                 :+
  135.                          { ~C ¡p║Γ╛≈          Alt+9[Calculator]}:+
  136.                          { ~D ╕Uª~╛Σ          Alt+8[Calendar]}  :+
  137.                          { ~O ░_░╩ ½ⁿÑO╜s┐Φ [_Command_On]}      :+
  138.                          { ~L ┼πÑ▄ ╝╚ªs½ⁿÑO [List Command]}     :+
  139.                          { ~F ├÷│¼ ½ⁿÑO╜s┐Φ [_Command_Off]}     :+
  140.                          { ~J ¡▄╛e ├π╖J┐ΘñJ   Alt+1[SJC Input]} :+
  141.                          { ~E ¬`¡╡ ├π╖J┐ΘñJ   Alt+2[EYG Input]} :+
  142.                          { ~P Ñ_¿╩ ├π╖J┐ΘñJ   Alt+3[PIN Input]} :+
  143.                          { ~K ╝s¬F ├π╖J┐ΘñJ   Alt+4[CAN Input]} :+
  144.                          { ~B Ñ╬ñΦªV┴Σ ╡e«╪   Alt+0[Plot Box]}  :+
  145.                          { ~R ░⌡ªµ DOS ╡{ªí [xRun]} ]
  146. Def u-f7 = [Menu 2 50 28 {ªCªL}                         :+
  147.                          { ~P ªCªL ╜s┐Φ└╔ [Print]}      :+
  148.                          { ~S ░⌡ªµ PageSet ªCªL [_Pageset]}:+
  149.                          { ~M ªCªL ░╧¼q [Print Mark]}   :+
  150.                          { ~N ªCªL ¿ΣÑL└╔«╫ [xPrint]}   :+
  151.                          { ~X ┐∩╛▄ ªCªL ½ⁿÑO  Ctrl+F10[c-f10]}:+
  152.                          { ~C │]⌐w ªCªL Ñ≈╝╞ [_No_Of_Copy]} :+
  153.                          { ~L │]⌐w ¿C¡╢ ªC╝╞ [_Page_Length]}:+
  154.                          { ~O ▒╥░╩ ª█░╩╕⌡¡╢ [_FormFeed_On]} :+
  155.                          { ~F ╕╤░ú ª█░╩╕⌡¡╢ [_FormFeed_Off]}]
  156. Def u-f8 = [Menu 2 54 24 {╡º░O}                             :+
  157.                          { ~O ╢}▒╥ ╡º░O└╔ [xMemoOpen]}      :+
  158.                          { ~L ┼πÑ▄ ⌐╥ª│░O┐²ªW║┘ [MemoList]} :+
  159.                          { ~E ╜s┐Φ ¼Y╢╡░O┐² [xMemoEdit]}    :+
  160.                          { ~I ┼¬¿· ¼Y╢╡░O┐² [xMemoRead]}    :+
  161.                          { ~A Ñ[ñJ ╕Ω«╞ª¿╖s░O┐² [xMemoAdd]} :+
  162.                          { ~D ºR░ú ¼Y╢╡░O┐² [xMemoDel]}     :+
  163.                          { ~R ┤MºΣ ╡∙░Oñ║«e [xMemoRSearch]} :+
  164.                          { ~S ┤MºΣ ⌐╥ª│░O┐²ñ║«e [xMemoSearch]}:+
  165.                          { ~W ┤MºΣ ñUñ@¡╙╕Ω«╞   [u-equals]} ]
  166. Def u-f9 = [Menu 2 61 17 {╗í⌐·}                    :+
  167.                          { ~H ╗í⌐·       F1[Help]} :+
  168.                          { ~V ¬⌐Ñ╗╕Ω«╞ [About]} ]
  169. Def u-f = [Menu 11 28 29 {ñΦ½¼░╧¼q░╩º@}                            :+
  170.                          { ~D ñΦ½¼░╧¼q ╡e ╜u«╪    Alt+P[Draw Box]} :+
  171.                          { ~B ñΦ½¼░╧¼q ╜u«╪ ▓M░ú  [Clear Box]}     :+
  172.                          { ~T ñΦ½¼░╧¼q ñσªr ▓M░ú  [Clear Data]}    :+
  173.                          { ~A ñΦ½¼░╧¼q ╝╞¡╚ Ñ[┴`  Alt+A[Sum]}      :+
  174.                          { ~R ñΦ½¼░╧¼q ╕Ω«╞ Ñk╣∩╗⌠ [Right Justify]}:+
  175.                          { ~N ñΦ½¼░╧¼q ╢±╝╞ªr [xNumber]}           :+
  176.                          { ~S ñΦ½¼░╧¼q ╕Ω«╞ ▒╞º╟ [Sort]} ]
  177.  
  178. * Set Margins
  179. Def u-d = [Menu 7 41 36 {│]⌐wѬÑk├Σ¼╔}                          :+
  180.                          { ~F │]⌐w ┤σ╝╨ªµ╕Ω«╞¼░ Ñ¬Ñk├Σ¼╔  Alt=[a-equals]} :+
  181.                          { ~L │]⌐w ┤σ╝╨ª∞╕m¼░   Ñ¬├Σ¼╔ [_Left_Margin]}    :+
  182.                          { ~R │]⌐w ┤σ╝╨ª∞╕m¼░   Ñk├Σ¼╔ [_Right_Margin]}   :+
  183.                          { ~C ¡╫º∩ Ñ¬Ñk├Σ¼╔           Shift+F2[s-f2]}]
  184.  
  185. * Set Tabs
  186. Def u-e = [Menu 8 40 30 {│]⌐w Tab ª∞╕m}                         :+
  187.                          { ~F │]⌐w Tab ª∞╕m¿╠┤σ╝╨ªµ Alt+T[a-t]} :+
  188.                          { ~C ¡╫º∩ Tab ª∞╕m [_Set_Tab]}]
  189.  
  190.  
  191. * System sub-routine
  192. Def u-minus = [Select File] [Insert Mode]
  193. Def u-equals = [MemoNSearch][u-f8]
  194. Def u-up = [Set Confirm On]
  195. Def u-down = [Set Confirm Off]
  196. Def u-left = [Set Sort Ascending]
  197. Def u-right = [Set Sort Descending]
  198. Def u-pgup = [Set DirCmd Name]
  199. Def u-pgdn = [Set DirCmd Size]
  200. Def u-home = [Set DirCmd Date]
  201. Def u-end = [Set DirCmd No]
  202. Def u-enter = [Set Odd On]
  203. Def u-backspace = [Set Odd Off]
  204. Def u-esc = [Set Even On]
  205. Def u-tab = [Set Even Off]
  206.  
  207. * Set Arrow Key
  208. Def u-b = [Menu 11 41 22 {   │]⌐wñΦªV┴Σ   Alt+5} :+
  209.                         { ~C ▓╛░╩ ┤σ╝╨ [u-1]}    :+
  210.                         { ~M º∩┼▄ ░╧¼qñjñp [u-3]}:+
  211.                         { ~B ▓╛░╩ ñΦ½¼░╧¼q [u-2]}:+
  212.                         { ~S º∩┼▄ ╡°╡íñjñp [u-5]}:+
  213.                         { ~P ▓╛░╩ ╡°╡í [u-4]} ]
  214.  
  215. Def a-5 = [u-b]
  216. Def u-a = [Def Esc=[u-1]][Message Ñi½÷ Esc ÑO í⌠í⌡í÷í≈ ┴Σ┴┘¡∞]
  217. Def u-1 = [IF CommandEdit THEN [Def Up=[Command Up]][Def Down=[Command Down]] :+
  218.                           ELSE [Def Up=[Up]][Def Down=[Down]]]                :+
  219.                                [Def Left=[Left]] [Def Right=[Right]]          :+
  220.           [Def Esc=[Command Toggle] [Insert Mode]]
  221. Def u-2 = [Def Up=[Mark up]] [Def Down=[Mark Down]][Def Left=[Mark Left]] :+
  222.           [Def Right=[Mark Right]][u-a]
  223. Def u-3 = [Def Up=[VReduce]][Def Down=[VEnlarge]][Def Left=[HReduce]] :+
  224.           [Def Right=[HEnlarge]][u-a]
  225. Def u-4 = [Def Up=[Window up]] [Def Down=[Window Down]] :+
  226.           [Def Left=[Window Left]][Def Right=[Window Right]][u-a]
  227. Def u-5 = [Def Up=[Window VReduce]] [Def Down=[Window VEnlarge]]   :+
  228.           [Def Left=[Window HReduce]] [Def Right=[Window HEnlarge]][u-a]
  229. [Cursor Command] [Begin Line] [Erase End Line][Insert Mode]
  230. [Key s-f1]
  231.