/****************************************/
/***   SYSOP AVAiL DOOR! /X UTiL bY:  ***/
/***        pARANOID/hUMANS '94       ***/
/****************************************/
/*** SUPERTOUCH STOP READING THIS! :) ***/
/****************************************/

parse arg node
nodeid = "AERexxControl"node

signal on error;signal on syntax;signal on ioerr

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

TRANSMIT CENTRE("+------------------------------------------+",84)
TRANSMIT CENTRE("|SYSOP AVAiL V1.1 By PARANOID / hUMANS '94 |",102)
TRANSMIT CENTRE("+------------------------------------------+",84)

IF chatflag="ON" then do
TRANSMIT " "
TRANSMIT " "
SENDMESSAGE "         sYsoP is AvAiLaBle fOr ChAt... Do yA WaNNa pAgE hIm? (y/N)"
GETCHAR
hippy = result

IF upper(hippy) = "Y" then do 
PUTUSTR "o"
PUTUSER 136
end

TRANSMIT " "
TRANSMIT " "
TRANSMIT "          tHANKS fOR uSIN' sYSOP aVAIL v1.1 bY pARANOID / hUMANS!    "
TRANSMIT " "
TRANSMIT ""
end
shutdown