home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 113 / EnigmaAmiga113CD.iso / software / utilities / dirscanner / rexx / myabout.dsrx < prev    next >
Text File  |  2000-03-30  |  629b  |  34 lines
  1. /*
  2.    $VER: MyAbout.dsrx 1.0 (28.3.00) Copyright (c) Nils Görs.
  3. */
  4.  
  5.  
  6. options results
  7.  
  8. PARSE ARG DSPort
  9. IF DSPort = "" THEN DSPort = DIRSCANNER.1
  10. address value DSPort
  11.  
  12. INFO title
  13. ds_title = result
  14. INFO author
  15. ds_author = result
  16. INFO copyright
  17. ds_copyright = result
  18. INFO description
  19. ds_description = result
  20. INFO version
  21. ds_version = result
  22. INFO base
  23. ds_base = result
  24.  
  25. GET VERSION
  26. ds_ver = result
  27. GET PUBSCREEN
  28. ds_PubScreen = result
  29.  
  30. NL = "*n"
  31. text = ds_version||NL||"Description:" ds_Description||NL NL||ds_Copyright||NL||"All Rights Reserved."||NL NL||"Portname:" ds_base||NL||"Screenname:" ds_PubScreen
  32.  
  33. REQUESTER '"'||text||'"'
  34.