/* AVT-ShowStatus by kNUCKLES/aVT */
/* Start: 10-03-94                */
/* Releasedate v1.0: 10-17-94     */
/* Releasedate v1.1: 10-22-94     */
/* Releasedate v1.2: 12-30-94     */

PARSE ARG Node
OPTIONS RESULTS
ADDRESS VALUE 'AERexxControl'Node

SIGNAL ON Error
SIGNAL ON Syntax
SIGNAL ON IOErr

CR=D2C(13)
CLS=D2C(12)
BEEP=D2C(7)

WH=""    /* White  */
GR=""   /* Green  */
YL=""   /* Yellow */
CYN=""  /* Cyan   */

GU=GETUSER
TR=TRANSMIT

GU 100;name=LEFT(RESULT,33,' ')
GU 102;location=LEFT(RESULT,30,' ')
GU 103;phone=LEFT(RESULT,12,' ')
GU 104;slot=RIGHT(RESULT,3,'0')
GU 105;seclevel=LEFT(RESULT,3,' ')
GU 106;ratiotype=RESULT
IF ratiotype=0 THEN ratiotext="Byte";IF ratiotype=1 THEN ratiotext="Byte/File";IF ratiotype=2 THEN ratiotext="File"
GU 107;rationum=RESULT
GU 109;messages=RESULT
GU 110;uploads=RESULT
GU 111;downloads=RESULT
GU 112;timescalled=RESULT
GU 114;timeused=RESULT
GU 115;timelimit=RESULT
GU 116;timetotal=RESULT
GU 117;bytesup=RESULT
GU 118;bytesdown=RESULT
GU 119;bytelimit=RESULT
GU 121;xpert=UPPER(RESULT)
xperttext="OFF Not used to /X ?!"
IF xpert="X" THEN xperttext="ON  Of course!" 
GU 142;sysopchat=UPPER(RESULT)
chattext="SysOp available"
IF sysopchat="OFF" THEN chattext="SysOp NOT available"
GU 143;laston=RESULT
GU 144;currtime=RESULT
GU 146;confacc=LEFT(RESULT,9,' ')
GU 149;node=RESULT
GU 152;axver=RESULT
GU 505;bps=LEFT(RESULT,6,' ')
GU 11;bbsname=RESULT
GU 12;sysop=RESULT

TR CLS
TR "   [0 p     ____ _____________        ____________  ____  ______   _______      "
TR "       /    \       /__   |      /   ___/__   |/    \\\__   | /   ___/_ __  "
TR "     ./     \\    // /   || -÷- /\__   \ /   ||     \\ /   ||/\__   \ \/  ' "
TR "     /________\___/ /_____|÷2F÷/_______//_____|______.:.____|_______/       "
TR "       aVANTGARDE - sTATUS v1.2 - by kNUCKLES^2fAST!  :unregistered         "
TR CR
TR GR"   User Name"CYN":"WH name GR"Password."CYN": ENCRYPTED"
TR GR"   Location."CYN":"WH location"  "GR"Calls...."CYN":"WH timescalled
TR GR"   Phone...."CYN":"WH phone"  "GR"Messages."CYN":"WH messages
TR GR"   Slot....."CYN":"WH slot ""GR"Uploads.."CYN":"WH uploads
TR GR"   SecLevel."CYN":"WH seclevel ""GR"Downloads"CYN":"WH downloads
TR GR"   ConfAccss"CYN":"WH confacc ""GR"Bytes Up."CYN":"WH bytesup
TR GR"   Ratiotype"CYN":"WH LEFT(ratiotext,9,' ') ""GR"Bytes Dwn"CYN":"WH bytesdown
IF rationum=0 THEN TR GR"   Ratio...."CYN": DISABLED! "GR"Bytelimit"CYN":"WH bytelimit; ELSE TR GR"   Ratio...."CYN":"WH rationum":1 "GR"Bytelimit"CYN":"WH bytelimit
TR GR"   Bps......"CYN":"WH bps " "GR"XPertMode"CYN":"WH xperttext
TR GR"   Act Time."CYN":"WH currtime" "GR"Your Node"CYN":"WH node
TR GR"   Last On.."CYN":"WH laston ""GR"BBS-Name."CYN":"WH bbsname
TR GR"   Time Used"CYN":"WH RIGHT(TRUNC(timeused/60,0),5,' ')" mins "GR"/X  Vers."CYN":"WH axver
TR GR"   TimeLimit"CYN":"WH RIGHT(TRUNC(timelimit/60,0),5,' ')" mins  "GR"SysopName"CYN":"WH sysop
TR GR"   TimeTotal"CYN":"WH RIGHT(timetotal/60,5,' ')" mins  "GR"Chat....."CYN":"WH chattext

TR CR"[1 p"

PUTUSTR ""
PUTUSER 136
CALL BYE


/* END PART */

ERROR:
 TR ""
 TR "Error in Line #"Sigl" : exiting ..."
 TR ERRORTEXT(Sigl)
CALL BYE

SYNTAX:
 TR ""
 TR "Syntax Error in Line #"Sigl" : exiting ..."
 TR ERRORTEXT(Sigl)
CALL BYE

IOERR:
 TR ""
 TR "I/O Error in Line #"Sigl" : exiting ..."
 TR ERRORTEXT(Sigl)
CALL BYE

BYE:
 TR ""
 SHUTDOWN
 EXIT
END