home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / pibsoft / terminal / pibterm.def < prev    next >
Encoding:
Text File  |  1994-04-11  |  8.5 KB  |  260 lines
  1. ;       File:    PibTerm.Def
  2. ;       Purpose: Microsoft Mouse interface for PibTerm v4.1.
  3. ;       Author:  Philip R. Burns
  4. ;       Version: 1.0.  October 29, 1987
  5. ;
  6. Begin   LB,ES,BB,Left,Right,Up,Down,50,50
  7.  
  8. LB:     Execute PTMenu               ; Left button  pops up main menu
  9. ES:     Type 13                      ; Right button = carriage return
  10. BB:     Type ESC                     ; Both buttons = escape
  11. Left:   Type 0,75                    ; Left arrow
  12. Right:  Type 0,77                    ; Right arrow
  13. Up:     Type 0,72                    ; Up arrow
  14. Down:   Type 0,80                    ; Down arrow
  15.  
  16. PTMenu: PopUp 2,2,inverse            ;
  17.  
  18. Text "╔══════════════════════════════════════════════════════════════════════════╗"
  19. Text "║                                 PibTerm                                  ║"
  20. Text "╠══════════════╤══════════════╤══════════════╤══════════════╤══════════════╣"
  21. Text "║ File Transfer│   Toggles    │     DOS      │   Dialing    │   Goodies    ║"
  22. Text "╟──────────────┼──────────────┼──────────────┼──────────────┼──────────────╢"
  23. Text "║  Kermit Get  │ BS sends BS  │ Jump To Dos  │     Dial     │ Show Review  ║"
  24. Text "║  Kermit Rcv  │ BS sends DEL │              │    Redial    │   Timers     ║"
  25. Text "║  Kermit Send │     Echo     │  Change Dir  │   Hang Up    │  Translate   ║"
  26. Text "║ Kermit Finish│   LineFeeds  │ Change Drive │              │  Edit Line   ║"
  27. Text "║              │    Muting    │   Directory  │ Change Port  │  Area Codes  ║"
  28. Text "║ Receive File │              │  Free Space  │ Change Speed │ Define Keys  ║"
  29. Text "║   Send File  │     CTS      │              │              │    Info      ║"
  30. Text "║              │   Xon/Xoff   │    Quit      │  Send Break  │  Set Params  ║"
  31. Text "╠══════════════╪══════════════╪══════════════╪══════════════╪══════════════╣"
  32. Text "║ File Actions │   Emulation  │    Capture   │   Scripts    │    Screen    ║"
  33. Text "╟──────────────┼──────────────┼──────────────┼──────────────┼──────────────╢"
  34. Text "║  Copy File   │     VT100    │   To File    │   Execute    │ Clear Screen ║"
  35. Text "║  Delete File │    Tek 4010  │   To Log     │    Learn     │ Dump Screen  ║"
  36. Text "║  Edit File   │  Gossip Mode │  To Printer  │  Unload All  │ Reset Term   ║"
  37. Text "║  Print File  │   ANSI/BBS   │              │    Exit      │ Set Colors   ║"
  38. Text "║  View File   │      Host    │              │              │ VT100 Colors ║"
  39. Text "╚══════════════╧══════════════╧══════════════╧══════════════╧══════════════╝"
  40.  
  41. Select  2,2,74
  42. Select  6,2,14,Get_Kermit
  43. Select  7,2,14,Receive_Kermit
  44. Select  8,2,14,Send_Kermit
  45. Select  9,2,14,Finish_Kermit
  46. Select 11,2,14,Receive
  47. Select 12,2,14,Send
  48.  
  49. Select  6,17,14,BackSpace
  50. Select  7,17,14,Delete
  51. Select  8,17,14,Echo
  52. Select  9,17,14,LineFeeds
  53. Select 10,17,14,Muting
  54. Select 12,17,14,CTS
  55. Select 13,17,14,Xon_Xoff
  56.  
  57. Select  6,32,14,Jump
  58. Select  8,32,14,ChDir
  59. Select  9,32,14,ChDrive
  60. Select 10,32,14,Dir
  61. Select 11,32,14,Free_Space
  62. Select 13,32,14,Exit
  63.  
  64. Select  6,47,14,Dial
  65. Select  7,47,14,ReDial
  66. Select  8,47,14,Hang_Up
  67. Select 10,47,14,Change_Port
  68. Select 11,47,14,Change_Speed
  69. Select 13,47,14,Send_Break
  70.  
  71. Select  6,62,14,Show_Review
  72. Select  7,62,14,Timers
  73. Select  8,62,14,Translate
  74. Select  9,62,14,Edit_Line
  75. Select 10,62,14,Area_Codes
  76. Select 11,62,14,Define_Keys
  77. Select 12,62,14,Info
  78. Select 13,62,14,Set_Params
  79.  
  80. Select 17,2,14,Copy_File
  81. Select 18,2,14,Delete_File
  82. Select 19,2,14,Edit_File
  83. Select 20,2,14,Print_File
  84. Select 21,2,14,View_File
  85.  
  86. Select 17,17,14,Do_VT100
  87. Select 18,17,14,Do_Tek4010
  88. Select 19,17,14,Do_Gossip
  89. Select 20,17,14,Do_AnsiBBS
  90. Select 21,17,14,Do_Host
  91.  
  92. Select 17,32,14,Capture
  93. Select 18,32,14,Logging
  94. Select 19,32,14,Printing
  95.  
  96. Select 17,47,14,Execute_Script
  97. Select 18,47,14,Learn_Script
  98. Select 19,47,14,Unload_All
  99. Select 20,47,14,Exit
  100.  
  101. Select 17,62,14,Clear_Screen
  102. Select 18,62,14,Screen_Dump
  103. Select 19,62,14,Reset_Terminal
  104. Select 20,62,14,Set_Colors
  105. Select 21,62,14,VT100_Colors
  106.  
  107. PEND
  108.  
  109. ;-------------------------------------------------------------------
  110.  
  111. Get_Kermit:       Execute Receive,LetD,LetB
  112. Send_Kermit:      Execute Send,LetD,LetB
  113. Receive_Kermit:   Execute Receive,LetD,LetD
  114. Finish_Kermit:    Execute Send,LetD,LetF
  115.  
  116. Receive:          Execute AltR
  117. Send:             Execute AltS
  118.  
  119. ;-------------------------------------------------------------------
  120.  
  121. BackSpace:        Execute AltP,LetI,LetC,CR,CR
  122. Delete:           Execute AltP,LetI,LetD,CR,CR
  123. Echo:             Execute AltE
  124. LineFeeds:        Execute AltP,LetC,LetF,CR,CR
  125. Muting:           Execute AltM
  126. CTS:              Execute AltP,LetC,LetH,CR,CR
  127. Xon_Xoff:         Execute AltP,LetC,LetN,CR,CR
  128.  
  129. ;-------------------------------------------------------------------
  130.  
  131. Jump:             Execute AltJ
  132. ChDir:            Execute AltF,AltA
  133. ChDrive:          Execute AltF,AltL
  134. Dir:              Execute AltF,LetD
  135. Free_Space:       Execute AltF,LetF
  136.  
  137. ;-------------------------------------------------------------------
  138.  
  139. Dial:             Execute AltD
  140. ReDial:           Execute AltQ
  141. Hang_Up:          Execute AltH
  142. Change_Port:      Execute AltP,LetC,LetA
  143. Change_Speed:     Execute AltN
  144. Send_Break:       Execute AltB
  145.  
  146. ;-------------------------------------------------------------------
  147.  
  148. Show_Review:      Execute AltV
  149. Timers:           Execute AltY
  150. Translate:        Execute AltT
  151. Edit_Line:        Execute AltA
  152. Area_Codes:       Execute AltZ
  153. Define_Keys:      Execute AltK
  154. Info:             Execute AltI
  155. Set_Params:       Execute AltP
  156.  
  157. ;-------------------------------------------------------------------
  158.  
  159. Copy_File:        Execute AltF,LetC
  160. Delete_File:      Execute AltF,LetZ
  161. Edit_File:        Execute AltF,LetE
  162. Print_File:       Execute AltF,LetP
  163. View_File:        Execute AltF,LetV
  164.  
  165. ;-------------------------------------------------------------------
  166.  
  167. Do_VT100:         Execute AltP,LetT,LetA,LetD,CR,CR,CR
  168. Do_Tek4010:       Execute AltP,LetT,LetA,LetG,CR,CR,CR
  169. Do_Gossip:        Execute AltP,LetT,LetA,LetE,CR,CR,CR
  170. Do_AnsiBBS:       Execute AltP,LetT,LetA,LetC,CR,CR,CR
  171. Do_Host:          Execute AltW
  172.  
  173. ;-------------------------------------------------------------------
  174.  
  175. Printing:         Execute AltL
  176. Capture:          Execute AltO
  177. Logging:          Execute AltP,LetO,LetI,CR,CR
  178.  
  179. ;-------------------------------------------------------------------
  180.  
  181. Execute_Script:   Execute AltG
  182. Learn_Script:     Execute AltG,CR,LetL
  183. Unload_All:       Execute AltG,CR,LetA,Escape
  184. Exit:             Execute AltX
  185.  
  186. ;-------------------------------------------------------------------
  187.  
  188. Clear_Screen:     Execute AltC
  189. Screen_Dump:      Execute AltU
  190. Reset_Terminal:   Execute ShiftTab
  191. Set_Colors:       Execute AltP,LetV
  192. VT100_Colors:     Execute AltP,LetV,LetI,CR,CR
  193.  
  194. ;-------------------------------------------------------------------
  195.  
  196. Escape:           Type ESC
  197. CR:               Type 13
  198.  
  199. ;-------------------------------------------------------------------
  200.  
  201. AltA:             Type 0,30
  202. AltB:             Type 0,48
  203. AltC:             Type 0,46
  204. AltD:             Type 0,32
  205. AltE:             Type 0,18
  206. AltF:             Type 0,33
  207. AltG:             Type 0,34
  208. AltH:             Type 0,35
  209. AltI:             Type 0,23
  210. AltJ:             Type 0,36
  211. AltK:             Type 0,37
  212. AltL:             Type 0,38
  213. AltM:             Type 0,50
  214. AltN:             Type 0,49
  215. AltO:             Type 0,24
  216. AltP:             Type 0,25
  217. AltQ:             Type 0,16
  218. AltR:             Type 0,19
  219. AltS:             Type 0,31
  220. AltT:             Type 0,20
  221. AltU:             Type 0,22
  222. AltV:             Type 0,47
  223. AltW:             Type 0,17
  224. AltX:             Type 0,45
  225. AltY:             Type 0,21
  226. AltZ:             Type 0,44
  227.  
  228. ;-------------------------------------------------------------------
  229.  
  230. ShiftTab:         Type 0,15
  231.  
  232. ;-------------------------------------------------------------------
  233.  
  234. LetA:             Type "a"
  235. LetB:             Type "b"
  236. LetC:             Type "c"
  237. LetD:             Type "d"
  238. LetE:             Type "e"
  239. LetF:             Type "f"
  240. LetG:             Type "g"
  241. LetH:             Type "h"
  242. LetI:             Type "i"
  243. LetJ:             Type "j"
  244. LetK:             Type "k"
  245. LetL:             Type "l"
  246. LetM:             Type "m"
  247. LetN:             Type "n"
  248. LetO:             Type "o"
  249. LetP:             Type "p"
  250. LetQ:             Type "q"
  251. LetR:             Type "r"
  252. LetS:             Type "s"
  253. LetT:             Type "t"
  254. LetU:             Type "u"
  255. LetV:             Type "v"
  256. LetW:             Type "w"
  257. LetX:             Type "x"
  258. LetY:             Type "y"
  259. LetZ:             Type "z"
  260.