@ECHO OFF
:loop
cls
c:
cd \im
x00 e 2 

SET WCNODEID=1
SET WCHOME=C:\WILDCAT
set im=c:\im
set wcportid=2
set immnode:=2

cd \im
im.exe

if errorlevel 250 goto NIGHTEVENTS
if errorlevel 200 goto interbbs
if errorlevel 100 goto bbscall
If errorlevel 80 goto Nodelist
if errorlevel 40 goto mailin
if errorlevel 10 goto userbrk
if errorlevel 1 goto imerror

:bbscall
@ECHO OFF
cd \im
dobbs.bat
goto loop

:mailin
@ECHO OFF
cd \im
intrecho
goto loop


:imerror
@ECHO OFF
@echo    Mailer returned an error (1-9)
goto loop

:dropdos
copy c:\wildcat\doorway\door.sys c:\wildcat
c:\WILDCAT\DOORWAY\DOORWAY SYS /B:MZ /I:c:\wildcat\dropdos.pwd /O:T /S:\wildcat /M:1000 /V:D /G:ON /C:DOS
goto loop

:NIGHTEVENTS
@ECHO OFF
cd\doors\test
sk /maint
cd\doors\evang
ewmaint
cd\doors\clans
clans /i
clans /o
cd\doors\lord\lnet
inbound
outbound
cd\doors\lord2\ilord
maintain
maintain inbound
maintain outbound
cd \im
intrecho /notify
intrecho /unsecure
intrecho /unknown
imsite name
imsite location
cd\wildcat\bull
del bull10.bbs
cd\wildcat
del activity.*
cd\irex
call dial
call afile.bat


goto loop

:interbbs
cd\doors\clans
clans /i
clans /o

cd\doors\lord\lnet
inbound
outbound

c:\doors\lord2\ilord
maintain inbound
maintain outbound

goto loop

:userbrk
@ECHO OFF
cls
@echo    User break.

:done
cd\im
x00
cd \wildcat
exit