home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #3 / amigamamagazinepolishissue1998.iso / bazy / aa3_install / rexx / addressassist.arx next >
Text File  |  1997-01-29  |  684b  |  47 lines
  1. /*
  2. ** This script shows how to obtain a list
  3. ** of an applications ARexx commands.
  4. */
  5.  
  6. options results
  7. address 'ADDRESSASSIST.1'
  8.  
  9. 'info title'
  10. title = result
  11.  
  12. 'info author'
  13. author = result
  14.  
  15. 'info copyright'
  16. copyright = result
  17.  
  18. 'info description'
  19. description = result
  20.  
  21. 'info version'
  22. version = result
  23.  
  24. 'info base'
  25. base = result
  26.  
  27. say "Title......: "title
  28. say "Author.....: "author
  29. say "Copyright..: "copyright
  30. say "Description: "description
  31. say "Version....: "version
  32. say "Basename...: "base
  33.  
  34.  
  35. /* read the list into a temporary file */
  36.  
  37. 'help t:_tmp'
  38.  
  39. /* type the file to stdout */
  40.  
  41. address command "type t:_tmp"
  42.  
  43.  
  44. /* delete the temporary file */
  45.  
  46. address command "delete >nil: t:_tmp"
  47.