home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Professional / OS2PRO194.ISO / os2 / prgramer / rexx / rexxmenu / quikmenr.cmd < prev    next >
Encoding:
Text File  |  1992-11-24  |  5.0 KB  |  219 lines
  1. /* QuikMenR - One-stop quick use of Rexx MENU to access commonly used
  2.  *            programs and settings.  This is only a sample of what your
  3.  *            menu might look like.  Some of the options in the file
  4.  *            are path-dependent and so may not work on your system.
  5.  *
  6.  *            QuikMenR works best as a single icon on the desktop to gain
  7.  *            quik hit-and-remoe access to many of the functions you
  8.  *            commonly use throughout the day.  In this way you can keep the
  9.  *            desktop uncluttered and still avoid remembering commands.
  10.  */
  11.  
  12. '@echo off'
  13. 'mode 80,20'
  14.  
  15. if 1 = RxFuncQuery('RexxMenu') then
  16.    CALL RxFuncAdd 'RexxMenu', 'RexxMenu', 'RexxMenu'
  17. MenuChoice = RexxMenu('QuikMenR.cmd','/Init','ToDo','/Suf','.:','/Com','/* ',,
  18.                       '/Sort','/Prompt','Whaddya want?','/Esc')
  19. if \ 0 = COMPARE(MenuChoice,'') then
  20.    interpret 'CALL' INSERT(MenuChoice,'.');
  21. EXIT
  22.  
  23.  
  24. /**********************************************************************/
  25. /* WHAT FOLLOWS IS A LIST OF FUNCTIONS I FREQUENTLY ACCESS BUT DON'T  */
  26. /* WANT TO REMEMBER EXACTLY HOW I ACCESS THEM                         */
  27. /**********************************************************************/
  28.  
  29. Chess.:
  30. /* OS2 Chess - Play against computer or another player
  31.  */
  32. CALL DIRECTORY 'c:\'
  33. 'start /F OS2CHESS.EXE'
  34. RETURN
  35.  
  36. Solitaire.:
  37. /* Klondike - Solitaire
  38.  */
  39. CALL DIRECTORY 'c:\'
  40. 'start /F KLONDIKE.EXE'
  41. RETURN
  42.  
  43. Cat.And.Mouse.:
  44. /* Chase Neko around the screen
  45.  */
  46. CALL DIRECTORY 'c:\'
  47. 'start /F NEKO.EXE'
  48. RETURN
  49.  
  50. Seek.And.Scan.Files.:
  51. /* PMSEEK: Search disk(s) for files and text
  52.  */
  53. 'start /F PMSEEK.EXE'
  54. RETURN
  55.  
  56. Backup.:
  57. /* Very quick and temporary backup of Arcive-bit files into E:\TempBak
  58.  */
  59. CALL DIRECTORY 'c:\'
  60. 'start /F /C mini-backup.cmd'
  61. RETURN
  62.  
  63. Information.:
  64. /* access manuals or other frequently needed information
  65.  */
  66. CALL DIRECTORY 'E:\Utl\System\Information'
  67. 'start /F /C ViewInfo.cmd'
  68. RETURN
  69.  
  70. Globe.:
  71. /* View the earth and sunlight globe
  72.  */
  73. CALL DIRECTORY 'E:\Utl\PMGlobe'
  74. 'start /F PMGlobe.exe'
  75. RETURN
  76.  
  77. ToDo.:
  78. /* View and edit TODO list
  79.  */
  80. CALL DIRECTORY 'e:\personal'
  81. 'start /F c:\os2\apps\pmdtodo.exe e:\personal\ToDo.$T$'
  82. RETURN
  83.  
  84. Quicken.:
  85. /* Quicken for Windows. Check writing and bank accounts.
  86.  */
  87. CALL DIRECTORY 'e:\Personal\QuickenW'
  88. 'startd /DOS /FG /FS /SF E:\Personal\QuickenW\Quicken.ini c:\os2\mdos\winos2\winos2.com e:\Personal\QuickenW\QW.EXE'
  89. RETURN
  90.  
  91. AmiPro.:
  92. /* Start AmiPro Windows word processor
  93.  */
  94. CALL DIRECTORY 'e:\'
  95. 'startd /DOS /FG /FS /SF E:\Utl\AmiPro\AmiPro.ini c:\os2\mdos\winos2\winos2.com e:\Utl\AmiPro\AmiPro.exe'
  96. RETURN
  97.  
  98. C.Plus.Plus.IDE.:
  99. /* Borland C++ IDE
  100.  */
  101. CALL DIRECTORY 'e:\temp'
  102. 'startd /DOS /FG /WIN /SF E:\UTL\BORLANDC\BIN\BC.INI e:\UTL\BORLANDC\BIN\BC.EXE'
  103. RETURN
  104.  
  105. Windows.:
  106. /* Microsoft Windows 3.0 - WINOS2
  107.  */
  108. CALL DIRECTORY 'e:\'
  109. 'startd /DOS /FG /FS /SF C:\OS2\MDOS\WINOS2\WINOS2.INI c:\OS2\MDOS\WINOS2\winos2.com'
  110. RETURN
  111.  
  112. Check.Disk.on.all.hard.disks.:
  113. /* OS/2 command session to run check disk
  114.  */
  115. curdir = DIRECTORY()
  116. CALL RxFuncAdd 'SysDriveMap', 'rexxutil', 'SysDriveMap'
  117. DriveMap = SysDriveMap()
  118. i = 1
  119. do until DriveLetter = '.'
  120.    DriveLetter = SUBSTR(DriveMap,i,1,'.')
  121.    if \(DriveLetter = '.') then do
  122.       call DIRECTORY INSERT(INSERT(DriveLetter,':'),'\')
  123.       '@cls'
  124.       '@cd'
  125.       '@echo chkdsk'
  126.       'chkdsk'
  127.       'pause'
  128.    end  /* Do */
  129.    i = i + 3
  130. end /* do */
  131. call DIRECTORY curdir
  132. RETURN
  133.  
  134. Swapper.Size.:
  135. /* Show swapper size
  136.  */
  137. CALL DIRECTORY 'e:\utl'
  138. 'start /F dinfo.exe'
  139. RETURN
  140.  
  141. Memory.Available.:
  142. /* Show system memory for DosQuerySysInfo
  143.  */
  144. 'cls'
  145. 'e:\utl\MemAvail.exe'
  146. '@echo  '
  147. '@echo  '
  148. 'pause'
  149. RETURN
  150.  
  151. Stuff....Random.thoughts.:
  152. /* Quick edit of file for storing information
  153.  */
  154. 'start /F epm.exe /M /O /W e:\personal\Stuff'
  155. RETURN
  156.  
  157. Terminal.:
  158. /* Run Modem Terminal program
  159.  */
  160. CALL DIRECTORY 'c:\os2\apps'
  161. 'start /F softerm.exe'
  162. RETURN
  163.  
  164. Names.And.Addresses.:
  165. /* My Phone Book
  166.  */
  167. 'start /F pmmbase.exe e:\personal\Addresses.$$F'
  168. RETURN
  169.  
  170. Edit.This.Menu.:
  171. /* Start editor to add another item to this menu
  172.  */
  173. 'start /F epm.exe /M /O /W QuikMenR.cmd'
  174. RETURN
  175.  
  176. Calculator.:
  177. /* Presentation Manager's Calculator
  178.  */
  179. 'start /F c:\os2\apps\pmdcalc.exe'
  180. RETURN
  181.  
  182. Create.Boot.Disk.for.OS2.:
  183. /* Create a boot disk on floppy A:
  184.  */
  185. 'start /F cmd.exe /C makeboot 1 a: c:'
  186. RETURN
  187.  
  188. Pulse.:
  189. /* Show system activity
  190.  */
  191. 'start /F pulse.exe'
  192. RETURN
  193.  
  194. Backup.Workplace.Shell.:
  195. /* Backup the Workplace Shell to restore when inevitable disaster occurs
  196.  */
  197. CALL DIRECTORY 'e:\Utl\System'
  198. 'xdel WPSBckup.old\*.* /s /d /n'
  199. 'rename WPSBckup WPSBckup.old'
  200. 'start /F E:\utl\System\WPSBackup.exe E:\Utl\System\WPSBckup'
  201. /* Note that this comes from New Freedom Data Center, P.O. Box 461
  202.  * New Freedom Pa, 17349......authored by Dave Lester
  203.  */
  204. RETURN
  205.  
  206. Workframe.:
  207. /* IBM WorkFrame/2
  208.  */
  209. CALL DIRECTORY 'e:\Utl\IBMWF'
  210. 'call WFENV.cmd'
  211. RETURN
  212.  
  213. CDMenu.:
  214. /* Interactively move among directories
  215.  */
  216. 'start /F /C CDMenu.cmd'
  217. RETURN
  218.  
  219.