home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / PASMOUSE.ZIP / TURBO.DEF < prev    next >
Encoding:
Text File  |  1987-09-08  |  4.6 KB  |  208 lines
  1. ;Source code for using a Microsoft Mouse with Turbo Pascal.
  2. ;Microsoft is a registered trade mark of the Microsoft Corporation.
  3. ;Turbo Pascal is a registered trade mark of Borland Incorporated.
  4.  
  5. ;This program is placed in the public domain.  You are free to
  6. ;modify and distribute it as you see fit.
  7.  
  8. ;If you have any questions or suggestions my mailing address is:
  9.  
  10. ;    Fred Harvey
  11. ;    P.O. Box 97
  12. ;    Derby, Kansas 67037
  13.  
  14. ;or leave me a message on the Scherer'n Place BBS (316) 529-2213.
  15.  
  16. ;-----------------------------------------------------------------------------
  17. BEGIN NIL, NIL, WHICH, NIL, NIL, NIL, NIL, 25, 35
  18.  
  19. ;------------------MAIN MENU--------------------------------------------------
  20.  
  21. MAIN: MENU   "Command Menu ", 5, 45, INVERSE
  22.       OPTION "Cancel Menu  "
  23.       OPTION "Carriage Ret ", RTN
  24.       OPTION "Editor       ", EDIT1
  25.       OPTION "Compile      ", C
  26.       OPTION "Run          ", R
  27.       OPTION "Save         ", S
  28.       OPTION "Directory    ", DIR
  29.       OPTION "Logged Drive ", LOG
  30.       OPTION "eXecute      ", dosgat ;Delete this line if you do not have
  31.                                      ;a Dos shell
  32.       OPTION "Quit         ", exit
  33.       MEND
  34.  
  35. ;------------------Editor Menu------------------------------------------------
  36.  
  37. EDIT: MENU "Edit Options", 5, 45, INVERSE
  38.       OPTION "Cancel Menu       "
  39.       OPTION "Carriage Return   ", RTN
  40.       OPTION "Exit Editor       ", CTRLKD
  41.       OPTION "Mark beg. of Block", CTRLKB
  42.       OPTION "Mark end of Block ", CTRLKK
  43.       OPTION "Copy Block        ", CTRLKC
  44.       OPTION "Move Block        ", CTRLKV
  45.       OPTION "Delete Block      ", CTRLKY
  46.       OPTION "Top of File       ", CTRLQR
  47.       OPTION "End of File       ", CTRLQC
  48.       OPTION "Find Word         ", CTRLQF
  49.       OPTION "Find & Replace    ", CTRLQA
  50.       OPTION "Repeat Last Find  ", CTRLL
  51.       MEND
  52.  
  53. ;------------------Save File? Menu--------------------------------------------
  54.  
  55. YORNO: MENU  "Save File?", 5, 45, INVERSE
  56.       OPTION "    NO    ", N
  57.       OPTION "   YES    ", Y
  58.       MEND
  59.  
  60. ;------------------Logged Drive-----------------------------------------------
  61.  
  62. DRIVES: MENU "Choose Drive" , 5, 45, INVERSE
  63.      OPTION  "Cancel Menu "
  64.      OPTION  "     A:     ", A
  65.      OPTION  "     B:     ", B
  66.      OPTION  "     C:     ", C
  67.      OPTION  "     D:     ", D
  68.      MEND
  69.  
  70. ;------------------Keys-------------------------------------------------------
  71.  
  72. cdroot: TYPE "cd \", Enter
  73.  
  74. dirall: TYPE "Dir *.* /P", Enter
  75.  
  76. WHICH: MATCH 4, 1, , "Work", CHECK, EDIT
  77.  
  78. CHECK: MATCH 5, 1, , "Main", SAVED, EDIT
  79.  
  80. SAVED: MATCH 15, 1, , "Workfile", YORNO, MAIN
  81.  
  82. NIL: NOTHING
  83.  
  84. LOG: EXECUTE L, DRIVES, RTN, RTN
  85.  
  86. DIR: EXECUTE D, DIR1, RTN
  87.  
  88. CTRLKD: EXECUTE UNASSIGN, CTRLK, D, RTN
  89.  
  90. CTRLKB: EXECUTE CTRLK, B
  91.  
  92. CTRLKK: EXECUTE CTRLK, K
  93.  
  94. CTRLKC: EXECUTE CTRLK, C
  95.  
  96. CTRLKV: EXECUTE CTRLK, V
  97.  
  98. CTRLKY: EXECUTE CTRLK, Y
  99.  
  100. CTRLQR: EXECUTE CTRLQ, R
  101.  
  102. CTRLQC: EXECUTE CTRLQ, C
  103.  
  104. CTRLQF: EXECUTE CTRLQ, F
  105.  
  106. CTRLQA: EXECUTE CTRLQ, A
  107.  
  108. CTRLL:  TYPE 12
  109.  
  110. EDIT1:  EXECUTE E, REASSIGN
  111.  
  112. REASSIGN: ASSIGN PGDN, PGUP, WHICH, LT, RT, UP, DN, 25, 35
  113.  
  114. UNASSIGN: ASSIGN NIL, NIL, WHICH, NIL, NIL, NIL, NIL, 25, 35
  115.  
  116. DIR1: TYPE "*.PAS"           ;Change this to "*.*" to see all files
  117.  
  118. Quit: EXECUTE RTN, Q
  119.  
  120. PGUP: TYPE 0, 73
  121.  
  122. PGDN: TYPE 0, 81
  123.  
  124. LT: TYPE 0, 75
  125.  
  126. RT: TYPE 0, 77
  127.  
  128. UP: TYPE 0, 72
  129.  
  130. DN: TYPE 0, 80
  131.  
  132. RTN: TYPE ENTER
  133.  
  134. CTRLK: TYPE 11
  135.  
  136. CTRLQ: TYPE 17
  137.  
  138. A: TYPE "A"
  139.  
  140. B: TYPE "B"
  141.  
  142. C: TYPE "C"
  143.  
  144. D: TYPE "D"
  145.  
  146. E: TYPE "E"
  147.  
  148. F: TYPE "F"
  149.  
  150. H: TYPE "H"
  151.  
  152. K: TYPE "K"
  153.  
  154. L: TYPE "L"
  155.  
  156. N: TYPE "N"
  157.  
  158. P: TYPE "P"
  159.  
  160. O: TYPE "O"
  161.  
  162. Q: TYPE "Q"
  163.  
  164. R: TYPE "R"
  165.  
  166. S: TYPE "S"
  167.  
  168. V: TYPE "V"
  169.  
  170. X: TYPE "X"
  171.  
  172. Y: TYPE "Y"
  173.  
  174. ;-------------------------------- EXIT ----------------------------------------
  175.  
  176. EXIT:   POPUP  5, 45, Inverse
  177.         TEXT "╔════════════════════════╗"
  178.         TEXT "║                        ║"
  179.         TEXT "║ QUIT TURBO?   No   Yes ║"
  180.         TEXT "║                        ║"
  181.         TEXT "╚════════════════════════╝"
  182.         SELECT 3,16,5
  183.         SELECT 3,21,5, Quit
  184.         PEND
  185.  
  186.  
  187.  
  188. ;-------------------------------- DOSGAT --------------------------------------
  189. ;Delete this section if you do not have a DOS shell added to Turbo Pascal
  190. DOSGAT: EXECUTE dosga0, X
  191.  
  192. dosga0: ASSIGN ,,dosga1
  193.  
  194. dosga1: MENU   "  DOS MENU  ",1,45,Inverse
  195.         OPTION "Cancel Menu"
  196.         OPTION "Carriage Ret",RTN
  197.         OPTION "cd \       ",cdroot
  198.         OPTION "Dir *.* /P ",dirall
  199.         OPTION "Turbo Pascal",dosga3
  200.         MEND
  201.  
  202. dosga3: EXECUTE dosga4,dosga5
  203.  
  204. dosga4: ASSIGN NIL,NIL, WHICH
  205.  
  206. dosga5: TYPE "Exit",Enter, Enter
  207.  
  208.