/****************************************/
/***   SYSOP AVAiL DOOR! /X UTiL bY:  ***/
/***    PaRaNoId/vAnItY&hUmAnE '94    ***/
/****************************************/

parse arg node
nodeid = "AERexxControl"node
address value nodeid

options results
 
WHITE  = ""
RED    = ""
GREEN  = ""
YELLOW = ""
BLUE   = ""
PURPLE = ""
CYAN   = ""
BLACK  = ""           
/****************************************************************/
count  = 1
getkey = 500

GETUSER 142;chatflag=result

	if chatflag="ON" then do 
		txtfile="doors:paranoid/avail.txt"
		txtstr =CYAN"SYSOP iS AVAiLABLE FOR CHAT!"WHITE
	end
	
	if chatflag="OFF" then do 
		txtfile="doors:paranoid/unavail.txt"
		txtstr=RED"SYSOP iS NOT AVAiLABLE FOR CHAT!"WHITE
	end  
	
	if exists(txtfile) then do
		showfile txtfile
	end
	else do
		TRANSMIT txtstr
	end

TRANSMIT " "
TRANSMIT " "
TRANSMIT CENTRE("+------------------------------------------+",84)
TRANSMIT CENTRE("|SYSOP AVAiL V1.0 By PARANOID/vAnItY^HuMaNe|",102)
TRANSMIT CENTRE("+------------------------------------------+",84)
transmit ""
shutdown