home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 492.lha / PowerPlatform_v1.1 / Rexx / MainFunctions.APP < prev    next >
Encoding:
Text File  |  1991-04-06  |  2.3 KB  |  46 lines
  1. /************************************************************************/
  2. /* This EXEC contains the main function group definitions.              */
  3. /*                                                                      */
  4. /*                                              ==> MCW 09/03/90 <==    */
  5. /*                                                                      */
  6. /*                   Copyright © 1990 Martin C. Warnett.                */
  7. /************************************************************************/
  8.  
  9. trace off
  10.  
  11. parse arg PortName                          /* Get port name passed     */
  12.  
  13. if PortName ~= "" then do                   /* Was port name passed?    */
  14.     address VALUE PortName                  /* Make it the default port */
  15. end
  16.  
  17. 'ClearFunctions'                            /* Delete existing buttons  */
  18.  
  19. 'DefineFunction 1 TagAll TagAll'            /* Select all files         */
  20. 'DefineFunction 2 Reset Reset'              /* Deselect all files       */
  21. 'DefineFunction Run CDSource 3 Shell NewShell NEWCON:0/50/640/100/AmigaShell'
  22. 'DefineFunction Sleep TargetRefresh 5 Copy copy FROM &sf TO &tf COM'
  23. 'DefineFunction Sleep TargetRefresh 6 CopyAll copy FROM &sf TO &tf COM ALL'
  24. 'DefineFunction Sleep Confirm SourceRefresh 7 Erase delete &sf'
  25. 'DefineFunction Sleep Confirm SourceRefresh 8 EraseAll delete &sf ALL'
  26. 'DefineFunction Sleep SourceRefresh TargetRefresh 9 Rename rename FROM &sf TO &tf'
  27. 'DefineFunction Sleep SourceRefresh TargetRefresh 10 Join join &sa AS &tf'
  28. 'DefineFunction TargetRefresh 11 MakeDir Makedir &tf'
  29. 'DefineFunction Sleep Console=1 TargetRefresh CLI 13 Format',
  30.    'FORMAT DRIVE &td NAME NEW NOICONS'
  31. 'DefineFunction Sleep Console=1 TargetRefresh CLI 14 DiskCopy DISKCOPY',
  32.         'FROM &sd TO &td'
  33. 'DefineFunction Sleep Confirm CLI 15 Install &tf'
  34. 'DefineFunction Run 17 More more &sf'
  35. 'DefineFunction Run NoSelect 18 Edit DME &sf'
  36. 'DefineFunction 21 Viewer SuperView &sf'
  37. 'DefineFunction CDSource NoQuote 25 Do &sf'
  38. 'DefineFunction CDSource 26 Run Run &sf'
  39. 'DefineFunction CDSource 27 Execute Execute &sf'
  40. 'DefineFunction Console=2 CDSource SourceRefresh ARexx 28 Extract Extract &SF'
  41.  
  42. 'RedrawFunctions'                           /* Draw new buttons         */
  43.  
  44. return 0                                    /* That's all folks!        */                            /* Successful completion        */
  45.  
  46.