home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 492.lha / PowerPlatform_v1.1 / Rexx / CommFunctions.APP next >
Encoding:
Text File  |  1991-04-06  |  1.9 KB  |  39 lines
  1. /************************************************************************/
  2. /* This EXEC contains the Communications 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 Run 10 More more &sf'
  28.  
  29. 'DefineFunction NoSelect Run 13 BIX HardDisk:Communications/ATalk3 FROM BixApp.scr'
  30. 'DefineFunction NoSelect Run 14 BIXNews HardDisk:Communications/ATalk3 FROM BixNewsApp.scr'
  31.  
  32. 'DefineFunction Console=2 CDSource SourceRefresh ARexx 29 Extract Extract &SF'
  33. 'DefineFunction Console=2 CDSource SourceRefresh 30 Compress LHArc -x a &tf &sa'
  34. 'DefineFunction Console=2 CDSource SourceRefresh 31 UnShar UnShar &sf'
  35.  
  36. 'RedrawFunctions'
  37.  
  38. return 0
  39.