/*
   $VER: MyAbout.dsrx 1.0 (28.3.00) Copyright (c) Nils Görs.
*/


options results

PARSE ARG DSPort
IF DSPort = "" THEN DSPort = DIRSCANNER.1
address value DSPort

INFO title
ds_title = result
INFO author
ds_author = result
INFO copyright
ds_copyright = result
INFO description
ds_description = result
INFO version
ds_version = result
INFO base
ds_base = result

GET VERSION
ds_ver = result
GET PUBSCREEN
ds_PubScreen = result

NL = "*n"
text = ds_version||NL||"Description:" ds_Description||NL NL||ds_Copyright||NL||"All Rights Reserved."||NL NL||"Portname:" ds_base||NL||"Screenname:" ds_PubScreen

REQUESTER '"'||text||'"'