/* AVT-o-pAGe by 2fAST/AVT */
parse arg node
options results
nodeid = "AERexxControl"node
address value nodeid
signal on error;signal on ioerr;signal on syntax
CLS=D2C(12)
TR=TRANSMITT ; GC=GETCHAR ; SS=SENDMESSAGE; GU=GETUSER;
GU 142;Status=result
GU 12;Sysop=result
GU 100;Name=result
GU 102;Location=result
del=insert(d2c(8)," ")
TR CLS
TR " "
TR "         ______         _________.____.________________ __ _             "
TR "        /      \       /  _     /     \    _    /  .  //  ___ __ _       "
TR "       /       \\ -÷- /   /    /      \\   /   /   __/_. /__/\ ___ _     "
TR "       \________/÷2F÷/    \___/________.:./   /|_______j \__\/__ _       "
TR "         aVANTGARDE /______|  v1.o!  \__:____/unregistrated              "
TR "                                        ·                                "
if upper(Status)="OFF" then do
 ss "           sYSOP iS fUCKING hIS gIRLFRIEND - "
 SS "lEAVE a mAIL ? (y/N)"
 GC;ch=result;tr;tr 
 if upper(ch)="Y" then do
  putustr insert("e ",sysop);
  putuser 136;
 end;
 ende
end;
if upper(status)="ON" then do
 TR " "
 ss "   NAME    : ";tr name
 ss "   LOCATION: ";tr location
 tr " "
 tr "                       eNTER yOUR fUCKING cHAT-rEASON..."
 TR " "
 ch=0;a=0  
 do until ch=d2c(13)
  gc;ch=result;
  if ch=d2c(8) & a>0 then do;a=a-1;ss del;ss ch;end
  if ch=d2c(8) & a<=1 then do;end  
  if ch=d2c(27) then do;tr;tr;call ende;end
  if ch~=d2c(8) & a<69 then do;a=a+1;ss ch;End 
  weiter:
 end
 ss ""
 tr;tr
 if a>1 then do;putustr "O";putuser 136;end;
end
ende:
shutdown;
exit;
end;
error:
tr "error"
exit
shutdown
ioerr:
tr "ioerr"
exit
shutdown
syntax:
tr "syntax"
exit
shutdown