home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 15 / 15.iso / s / s074 / 2.img / KS3.LZH / ENGLISH.PRO < prev    next >
Encoding:
Text File  |  1993-02-01  |  12.8 KB  |  227 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] 'Waiting ... '
  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 Strike any key go to DOS mode, Type EXIT to return] [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 Press F4 to QUIT or Save with a new name]
  23. Def _Pageset     = [Save] [Pageset]
  24. Def _Recover     = [e .UnNamed] [Message Press F8 Return to Doc]
  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 Can use Up Down key to edit Command Line]
  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     = [s-f1]
  58. [_Mouse_On]
  59.  
  60. * Set PullDown Menu
  61.  
  62. Def s-f1 = [MenuGroup 1 1 80 {   ESC - Exit              KS3 .. WordProcessor                    F10, ^\ Menu} :+
  63.                              {~File  [u-f1]}      :+
  64.                              {~Edit  [u-f2]}      :+
  65.                              {~Mark  [u-f3]}      :+
  66.                              {~Do Mark   [u-f4]}  :+
  67.                              {~View/Set  [u-f5]}  :+
  68.                              {~Tool  [u-f6]}      :+
  69.                              {~Print [u-f7]}      :+
  70.                              {Mem~O [u-f8]}      :+
  71.                              {~Help [u-f9]}     ]
  72. Def u-f1 = [Menu 2  2 28 {File}                                    :+
  73.                          { se~Lect files         Alt+6[u-minus]}   :+
  74.                          { ~Edit file   [xEdit]}                   :+
  75.                          { select ~Other file    Alt+7[EditFile]}  :+
  76.                          { ~Save file               F2[Save]}      :+
  77.                          { save a~Nd quit           F3[File]}      :+
  78.                          { save ~As         [xSave]}               :+
  79.                          { save all ~Files  [SaveAll]}             :+
  80.                          { save ~Mark          Ctrl+KW[xWrite]}    :+
  81.                          { read ~Text file     Ctrl+KR[xRead]}     :+
  82.                          { read s~Preadsheet [xReadSS]}            :+
  83.                          { read ~Data base   [xReadDB]}            :+
  84.                          { DOS s~Hell       [_Dos]}                :+
  85.                          { ~Rename file [xName]}                   :+
  86.                          { ~Quit                    F4[Quit]}      :+
  87.                          { q~Uit and save All   Ctrl+_[_Save&Quit]}]
  88. Def u-f2 = [Menu 2 10 24 {Edit}                                  :+
  89.                          { go ~Top       Ctrl+PgUp[C-PgUp]}      :+
  90.                          { go ~Bottom    Ctrl+PgDn[C-PgDn]}      :+
  91.                          { go ~Line #        Alt+G[xLine]}       :+
  92.                          { ~Find blank line [_Find_Blank_Line]}  :+
  93.                          { ~Serach         Ctrl+QF[xLocate]}     :+
  94.                          { ~Replace        Ctrl+QA[xChange]}     :+
  95.                          { ~Delete line     Ctrl+Y[Delete Line]} :+
  96.                          { s~Plit line      Ctrl+N[Split]}       :+
  97.                          { ~Join last line  Ctrl+c-backspace]} :+
  98.                          { join ~Next line  Ctrl+O[Join]}        :+
  99.                          { ~Copy last line  Ctrl+J[Copy Line]}   :+
  100.                          { ~Word wrap        Alt+W[a-w]}]
  101.  
  102. Def u-f3 = [Menu 2 18 27 {Mark}                                    :+
  103.                          { mark ~Block          Alt+B[Mark Block]}   :+
  104.                          { mark ~Line           Alt+L[Mark Line]}    :+
  105.                          { mark ~Character      Alt+C[Mark Char]}    :+
  106.                          { ~Unmark              Alt+U[Unmark]}       :+
  107.                          { ~Duplicate mark    Ctrl+KC[Copy Mark]}    :+
  108.                          { ~Move mark         Ctrl+KV[Move Mark]}    :+
  109.                          { ~Erase mark        Ctrl+KY[Delete Mark]}  :+
  110.                          { ~Overwrite mark    Ctrl+KO[Overlay Block]}:+
  111.                          { ~Position mark       [Move Frame]} ]
  112. Def u-f4 = [Menu 2 26 30 {Do Mark }                                  :+
  113.                          { ~Left shift          Shift+F7[Shift Left]}:+
  114.                          { ~Right shift         [Shift Right]}       :+
  115.                          { ~Upper case           [Uppercase]}        :+
  116.                          { l~ower case           [Lowercase]}        :+
  117.                          { ~Fill character         Alt+F[Fill Mark]} :+
  118.                          { fill ~Word     [xFill]}                :+
  119.                          { ~Horizontal fill   [xFillHS]}          :+
  120.                          { ~Vertical fill     [xFillVS]}          :+
  121.                          { ~Centre marked line  Shift+F8[Center in Margins]}:+
  122.                          { ~Justify marked line   Ctrl+B[Reflow]} :+
  123.                          { actions for marked ~Block...[u-f]}]
  124. Def u-f5 = [Menu 2 34 27 {View/Set}                            :+
  125.                          { ~Recover deleted data [_Recover]}   :+
  126.                          { system ~Information [xQuery]}       :+
  127.                          { ~Disk space            [_diskspace]}:+
  128.                          { view ~Key define      [_Key_List]}  :+
  129.                          { ~Change configuration [xSet]}       :+
  130.                          { set ~Margins...     [u-d]}          :+
  131.                          { set ~Tab...         [u-e]}          :+
  132.                          { set ~Box character  [xBox]}         :+
  133.                          { set ~Arrow Key...    Alt+5[u-b]}    :+
  134.                          { close ~Window    [Close Window]}]
  135. Def u-f6 = [Menu 2 42 23 {Tool}                                :+
  136.                          { ~Calculator      Alt+9 [Calculator]}:+
  137.                          { calen~Dar        Alt+8 [Calendar]}  :+
  138.                          { command edit ~ON [_Command_On]}     :+
  139.                          { command ~List [List Command]}       :+
  140.                          { command edit O~FF [_Command_Off]}   :+
  141.                          { draw ~Box        Alt+0 [Plot Box]}  :+
  142.                          { ~Run DOS command [xRun]}]
  143. Def u-f7 = [Menu 2 50 18 {Print}                            :+
  144.                          { direct ~Print  [Print]}          :+
  145.                          { page~Set printing [_Pageset]}    :+
  146.                          { print ~Mark  [Print Mark]}       :+
  147.                          { print ~New file [xPrint]}        :+
  148.                          { set multi ~Copy   [_No_Of_Copy]} :+
  149.                          { set page ~Length  [_Page_Length]}:+
  150.                          { form feed ~ON   [_FormFeed_On]}  :+
  151.                          { form feed O~FF  [_FormFeed_Off]}]
  152. Def u-f8 = [Menu 2 54 19 {Memo}                           :+
  153.                          { ~Open memo     [xMemoOpen]}    :+
  154.                          { ~List memo     [MemoList]}     :+
  155.                          { ~Edit record   [xMemoEdit]}    :+
  156.                          { ~Import record [xMemoRead]}    :+
  157.                          { ~Add record    [xMemoAdd]}     :+
  158.                          { ~Delete record [xMemoDel]}     :+
  159.                          { search ~Remark [xMemoRSearch]} :+
  160.                          { ~Search all record [xMemoSearch]}:+
  161.                          { search ~Next   [u-equals]} ]
  162. Def u-f9 = [Menu 2 61 17 {Help}                    :+
  163.                          { ~Help         F1[Help]} :+
  164.                          { ~Version    [About]} ]
  165. Def u-f = [Menu 11 28 28 {Action Inside Mark Block}              :+
  166.                          { ~Draw rectangle box   Alt+P[Draw Box]}:+
  167.                          { clear ~Box characters[Clear Box]}     :+
  168.                          { clear all ~Text       [Clear Data]}   :+
  169.                          { ~Add total numbers    Alt+A[Sum]}     :+
  170.                          { ~Right justify       [Right Justify]} :+
  171.                          { fill ~Number    [xNumber]}            :+
  172.                          { ~Sort            [Sort]} ]
  173.  
  174. * Set Margins
  175. Def u-d = [Menu 7 41 36 {Set Margins}                          :+
  176.                          { Margins ~Follow current Line   Alt=[a-equals]} :+
  177.                          { set ~Left margin            [_Left_Margin]}    :+
  178.                          { set ~Right margin           [_Right_Margin]}   :+
  179.                          { ~Change margins            Shift+F2[s-f2]}]
  180.  
  181. * Set Tabs
  182. Def u-e = [Menu 8 40 33 {Set Tab}                         :+
  183.                          { Tabs ~Follow current Line  Alt+T[a-t]} :+
  184.                          { ~Change Tabs position [_Set_Tab]}]
  185.  
  186.  
  187. * System sub-routine
  188. Def u-minus = [Select File] [Insert Mode]
  189. Def u-equals = [MemoNSearch][u-f8]
  190. Def u-up = [Set Confirm On]
  191. Def u-down = [Set Confirm Off]
  192. Def u-left = [Set Sort Ascending]
  193. Def u-right = [Set Sort Descending]
  194. Def u-pgup = [Set DirCmd Name]
  195. Def u-pgdn = [Set DirCmd Size]
  196. Def u-home = [Set DirCmd Date]
  197. Def u-end = [Set DirCmd No]
  198. Def u-enter = [Set Odd On]
  199. Def u-backspace = [Set Odd Off]
  200. Def u-esc = [Set Even On]
  201. Def u-tab = [Set Even Off]
  202.  
  203. * Set Arrow Key
  204. Def u-b = [Menu 11 41 23 {Set Arrow Key   Alt+5} :+
  205.                         { move ~Cursor [u-1]}     :+
  206.                         { change ~Mark area [u-3]}:+
  207.                         { move ~Block       [u-2]}:+
  208.                         { window ~Size[u-5]}:+
  209.                         { window ~Position [u-4]}]
  210.  
  211. Def a-5 = [u-b]
  212. Def u-a = [Def Esc=[u-1]][Message Press Esc back to normal]
  213. Def u-1 = [IF CommandEdit THEN [Def Up=[Command Up]][Def Down=[Command Down]] :+
  214.                           ELSE [Def Up=[Up]][Def Down=[Down]]]                :+
  215.                                [Def Left=[Left]] [Def Right=[Right]]          :+
  216.           [Def Esc=[Command Toggle] [Insert Mode]]
  217. Def u-2 = [Def Up=[Mark up]] [Def Down=[Mark Down]][Def Left=[Mark Left]] :+
  218.           [Def Right=[Mark Right]][u-a]
  219. Def u-3 = [Def Up=[VReduce]][Def Down=[VEnlarge]][Def Left=[HReduce]] :+
  220.           [Def Right=[HEnlarge]][u-a]
  221. Def u-4 = [Def Up=[Window up]] [Def Down=[Window Down]] :+
  222.           [Def Left=[Window Left]][Def Right=[Window Right]][u-a]
  223. Def u-5 = [Def Up=[Window VReduce]] [Def Down=[Window VEnlarge]]   :+
  224.           [Def Left=[Window HReduce]] [Def Right=[Window HEnlarge]][u-a]
  225. [Cursor Command] [Begin Line] [Erase End Line][Insert Mode]
  226. [Key s-f1]
  227.