home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TPRAT.ZIP / TPRAT.DEF < prev    next >
Encoding:
Text File  |  1988-01-13  |  6.1 KB  |  248 lines
  1. ;TP Rat Definition File
  2. ;Copyright (c) 1988
  3. ;by J. A. Smart
  4.  
  5. ;Revised 1-11-88
  6.  
  7. ;Define mouse buttons, movement and sensitivity
  8. Begin lb,rb,bb,LEFT,RIGHT,UP,DOWN,35,55
  9.  
  10. ;Match screen outputs for context sensitivity
  11. lb:           MATCH 14,27,, "Borland",mAUTOEXEC,matlb2
  12. matlb2:       MATCH 2,5,, "┌",ENT,matlb3
  13. matlb3:       MATCH 2,31,, "┌",ENT,matlb4
  14. matlb4:       MATCH 2,43,, "┌",ENT,matlb5
  15. matlb5:       MATCH 1,6,94, "F",ENT,matlb6
  16. matlb6:       MATCH 1,15,94, "E",ENT,matlb7
  17. matlb7:       MATCH 1,24,94, "R",ENT,matlb8
  18. matlb8:       MATCH 1,32,94, "C",ENT,matlb9
  19. matlb9:       MATCH 1,44,94, "O",ENT,matlb10
  20. matlb10:      MATCH 2,1,, "Option",mOPTIONS,matlb11
  21. matlb11:      MATCH 2,1,, "Replace",mREPLACE,F10
  22.  
  23. rb:           MATCH 2,5,, "┌",ENT,matrb2
  24. matrb2:       MATCH 2,31,, "┌",ENT,matrb3
  25. matrb3:       MATCH 2,43,, "┌",ENT,matrb4
  26. matrb4:       MATCH 1,6,94, "F",ENT,matrb5
  27. matrb5:       MATCH 1,15,94, "E",ENT,matrb6
  28. matrb6:       MATCH 1,24,94, "R",ENT,matrb7
  29. matrb7:       MATCH 1,32,94, "C",ENT,matrb8
  30. matrb8:       MATCH 1,44,94, "O",ENT,matrb9
  31. matrb9:       MATCH 2,1,, "Option",mOPTIONS,matrb10
  32. matrb10:      MATCH 2,1,, "Replace",mREPLACE,mEDITMENU
  33.  
  34. bb:           EXECUTE ESCAPE
  35.  
  36. ;Key defined
  37. ENT:        TYPE 013
  38. ESCAPE:     TYPE 027
  39. UP:         TYPE 0,72
  40. DOWN:       TYPE 0,80
  41. RIGHT:      TYPE 0,77
  42. LEFT:       TYPE 0,75
  43. CANCEL:     NOTHING
  44.  
  45. mAUTOEXEC:  EXECUTE ESCAPE,F5,F10,F,L,ENT
  46.  
  47. mEDITMENU:  POPUP,1,1,121,NORMAL
  48. TEXT "   Block   Search & Replace   Miscellaneous    ***  TURBO PASCAL 4.0 MOUSE  *** "
  49. SELECT   1,4,5,mBLOCK
  50. SELECT   1,12,16,mSEARCH
  51. SELECT   1,31,13,mMISC
  52. PEND
  53.  
  54. mBLOCK:     POPUP,2,1,113,NORMAL
  55. TEXT "╔═══════════════════╗"
  56. TEXT "║   Block Function  ║"
  57. TEXT "╚╤═════════════════╤╝"
  58. TEXT " │Begin Block      │ "
  59. TEXT " │End Block        │ "
  60. TEXT " │Mark Single Word │ "
  61. TEXT " │Print Block      │ "
  62. TEXT " │Copy Block       │ "
  63. TEXT " │Delete Block     │ "
  64. TEXT " │Hide/Display     │ "
  65. TEXT " │Move Block       │ "
  66. TEXT " │Read from Disk   │ "
  67. TEXT " │Write to Disk    │ "
  68. TEXT " │     Cancel      │ "
  69. TEXT " └─────────────────┘ "
  70. SELECT    4,3,17,mBegBlo
  71. SELECT    5,3,17,mEndBlo
  72. SELECT    6,3,17,mMarSin
  73. SELECT    7,3,17,mPriBlo
  74. SELECT    8,3,17,mCopBlo
  75. SELECT    9,3,17,mDelBlo
  76. SELECT    10,3,17,mHidDis
  77. SELECT    11,3,17,mMovBlo
  78. SELECT    12,3,17,mReaDis
  79. SELECT    13,3,17,mWriDis
  80. SELECT    14,3,17,Cancel
  81. PEND
  82.  
  83. ;Blocks & Markers executes defined
  84. mBegBlo:       EXECUTE CtrlK,CtrlB
  85. mEndBlo:       EXECUTE CtrlK,CtrlK
  86. mMarSin:       EXECUTE CtrlK,CtrlT
  87. mPriBlo:       EXECUTE CtrlK,CtrlP
  88. mCopBlo:       EXECUTE CtrlK,CtrlC
  89. mDelBlo:       EXECUTE CtrlK,CtrlY
  90. mHidDis:       EXECUTE CtrlK,CtrlH
  91. mMovBlo:       EXECUTE CtrlK,CtrlV
  92. mReaDis:       EXECUTE CtrlK,CtrlR
  93. mWriDis:       EXECUTE CtrlK,CtrlW
  94.  
  95. mSEARCH:    POPUP,2,12,113,NORMAL
  96. TEXT "╔═════════════════╗"
  97. TEXT "║  Find/Replace   ║"
  98. TEXT "╚╤═══════════════╤╝"
  99. TEXT " │Find Pattern   │ "
  100. TEXT " │Find & Replace │ "
  101. TEXT " │Repeat Find    │ "
  102. TEXT " │    Cancel     │ "
  103. TEXT " └───────────────┘ "
  104. SELECT    4,3,15,mFinPat
  105. SELECT    5,3,15,mFinRep
  106. SELECT    6,3,15,mRepFin
  107. SELECT    7,3,15,Cancel
  108. PEND
  109.  
  110. mOPTIONS:  POPUP,1,52,9,NORMAL
  111. Text "╒══════════════════╕"
  112. Text "│  Search Options  │"
  113. Text "╞══════════════════╡"
  114. Text "│ (U)ppercase      │"
  115. Text "│ (B)ackward       │"
  116. Text "│ (W)hole Words    │"
  117. Text "│ (G)lobal Search  │"
  118. Text "│ (L)ocal to Block │"
  119. Text "│ (N)o Prompting   │"
  120. Text "│ Enter <CR>       │"
  121. Text "│      CANCEL      │"
  122. Text "└──────────────────┘"
  123. Select  4,3,16,U
  124. Select  5,3,16,B
  125. Select  6,3,16,W
  126. Select  7,3,16,G
  127. Select  8,3,16,L
  128. Select  9,3,16,N
  129. Select  10,3,16,ENT
  130. Select  11,3,16,Cancel
  131. PEND
  132.  
  133. ;Execute Find choices
  134. mFinPat:       EXECUTE CtrlQ,CtrlF
  135. mFinRep:       EXECUTE CtrlQ,CtrlA
  136. mRepFin:       EXECUTE CtrlL
  137.  
  138. ;Replace prompting
  139. mREPLACE:  POPUP,2,17,011,normal
  140. TEXT " Yes  No "
  141. SELECT    1,2,3,Yes
  142. SELECT    1,7,2,No
  143. PEND
  144.  
  145. mMISC:     popup,2,33,113,normal
  146. TEXT "╔═══════════════════╗"
  147. TEXT "║   Miscellaneous   ║"
  148. TEXT "╚╤═════════════════╤╝"
  149. TEXT " │Abort Operation  │ "
  150. TEXT " │Autoindent       │ "
  151. TEXT " │Ctrl Char Prefix │ "
  152. TEXT " │Pair Braces Frwd │ "
  153. TEXT " │Pair Braces Bkwd │ "
  154. TEXT " │Load File        │ "
  155. TEXT " │Exit, No Save    │ "
  156. TEXT " │Restore Line     │ "
  157. TEXT " │Save and Edit    │ "
  158. TEXT " │Set Place Marker │ "
  159. TEXT " │Tab Mode         │ "
  160. TEXT " │     Cancel      │ "
  161. TEXT " └─────────────────┘ "
  162. SELECT    4,3,17,mAboOpe
  163. SELECT    5,3,17,mAutInd
  164. SELECT    6,3,17,mCtrCha
  165. SELECT    7,3,17,mPaiFrw
  166. SELECT    8,3,17,mPaiBkw
  167. SELECT    9,3,17,mLoaFil
  168. SELECT    10,3,17,mExiNoS
  169. SELECT    11,3,17,mResLin
  170. SELECT    12,3,17,mSavEdi
  171. SELECT    13,3,17,mSetPla
  172. SELECT    14,3,17,mTabMod
  173. SELECT    15,3,17,CANCEL
  174. PEND
  175.  
  176. mAboOpe:     EXECUTE CtrlU
  177. mAutInd:     EXECUTE CtrlO,CtrlI
  178. mCtrCha:     EXECUTE CtrlP
  179. mPaiFrw:     EXECUTE CtrlQ
  180. mPaiBkw:     EXECUTE CtrlQ
  181. mLoaFil:     EXECUTE F3
  182. mExiNoS:     EXECUTE CtrlK,CtrlD
  183. mResLin:     EXECUTE CtrlQ,CtrlL
  184. mSavEdi:     EXECUTE F2
  185. mSetPla:     EXECUTE CtrlK
  186. mTabMod:     EXECUTE CtrlO,CtrlT
  187.  
  188. ;Alternate (macro) keys defined
  189. Alt1:     TYPE 0,120
  190. Alt2:     TYPE 0,121
  191. Alt3:     TYPE 0,122
  192. Alt4:     TYPE 0,123
  193. Alt5:     TYPE 0,124
  194. Alt6:     TYPE 0,125
  195. Alt7:     TYPE 0,126
  196. Alt8:     TYPE 0,127
  197. Alt9:     TYPE 0,128
  198.  
  199. ;Control keys defined
  200. CtrlA:   TYPE 01
  201. CtrlB:   TYPE 02
  202. CtrlC:   TYPE 03
  203. CtrlD:   TYPE 04
  204. CtrlE:   TYPE 05
  205. CtrlF:   TYPE 06
  206. CtrlG:   TYPE 07
  207. CtrlH:   TYPE 08
  208. CtrlI:   TYPE 09
  209. CtrlJ:   TYPE 10
  210. CtrlK:   TYPE 11
  211. CtrlL:   TYPE 12
  212. CtrlM:   TYPE 13
  213. CtrlN:   TYPE 14
  214. CtrlO:   TYPE 15
  215. CtrlP:   TYPE 16
  216. CtrlQ:   TYPE 17
  217. CtrlR:   TYPE 18
  218. CtrlS:   TYPE 19
  219. CtrlT:   TYPE 20
  220. CtrlU:   TYPE 21
  221. CtrlV:   TYPE 22
  222. CtrlW:   TYPE 23
  223. CtrlX:   TYPE 24
  224. CtrlY:   TYPE 25
  225. CtrlZ:   TYPE 26
  226. CtrlDel: TYPE 0,157
  227.  
  228. F1:      TYPE 0,59
  229. F2:      TYPE 0,60
  230. F3:      TYPE 0,61
  231. F5:      TYPE 0,63
  232. F10:     TYPE 0,68
  233. Yes:     TYPE "Y"
  234. No:      TYPE "N"
  235. A:       TYPE "A"
  236. B:       TYPE "B"
  237. F:       TYPE "F"
  238. G:       TYPE "G"
  239. I:       TYPE "I"
  240. L:       TYPE "L"
  241. N:       TYPE "N"
  242. Q:       TYPE "Q"
  243. R:       TYPE "R"
  244. P:       TYPE "P"
  245. U:       TYPE "U"
  246. W:       TYPE "W"
  247. X:       TYPE "X"
  248.