@echo off


:LOOP
C:
CD \IM
IM.EXE /#1
IF ERRORLEVEL=250 GOTO HOGNET_IN
IF ERRORLEVEL=245 GOTO HOGNET_OUT
IF ERRORLEVEL=244 GOTO ALLREQ
IF ERRORLEVEL=243 GOTO EDORPURG
IF ERRORLEVEL=242 GOTO VW2
IF ERRORLEVEL=241 GOTO VW1
IF ERRORLEVEL=240 GOTO BRE2
IF ERRORLEVEL=239 GOTO BRE3
IF ERRORLEVEL=238 GOTO MBMAINT
IF ERRORLEVEL=237 GOTO EXTERN
IF ERRORLEVEL=233 GOTO EDORPURG
IF ERRORLEVEL=232 GOTO JHART
IF ERRORLEVEL=231 GOTO SHARPNET
IF ERRORLEVEL=230 GOTO CLIENT
IF ERRORLEVEL=229 GOTO FASTLINK
IF ERRORLEVEL=227 GOTO VWEATHER
IF ERRORLEVEL=225 GOTO VDM
IF ERRORLEVEL=222 GOTO ALLFXMT
IF ERRORLEVEL=220 GOTO INMAIL
IF ERRORLEVEL=216 GOTO VBBSBACK
IF ERRORLEVEL=213 GOTO VCLEAN
IF ERRORLEVEL=212 GOTO GECHOTOSS
IF ERRORLEVEL=211 GOTO VBBSLOCAL
IF ERRORLEVEL=210 GOTO GSCAN
IF ERRORLEVEL=205 GOTO VFIDODIAL
IF ERRORLEVEL=180 GOTO SPECIAL
IF ERRORLEVEL=99 GOTO BBSCALL
IF ERRORLEVEL= 50 GOTO MAILIN
IF ERRORLEVEL= 10 GOTO USERBREAK
IF ERRORLEVEL=  8 GOTO EXIT
IF ERRORLEVEL=  4 GOTO IM
IF ERRORLEVEL=  3 GOTO DSPACE
IF ERRORLEVEL=  1 GOTO IMERROR


:IM
C:
CD \IM
CALL RUNIM.BAT

:SPECIAL
C:
CD \IM
CALL SPECIAL.BAT
C:
CD \IM
GOTO LOOP

:ALLFXMT
C:
CD \IM
CALL ALLFXMT.BAT
C:
CD \IM
GOTO LOOP

:INMAIL
C:
CD \IM
CALL INMAIL.BAT
C:
CD \IM
GOTO LOOP

:VFIDODIAL
C:
CD \IM
CALL FIDODIAL.BAT
C:
CD \IM
GOTO LOOP

:VWEATHER
c:
CD \IM
CALL VW.BAT
C:
CD \IM
GOTO LOOP

:VW1
C:
CD \IM
CALL VW1.BAT
C:
CD \IM
GOTO LOOP

:VW2
C:
CD \IM
CALL VW2.BAT
C:
CD \IM
GOTO LOOP

:VW3
C:
CD \IM
CALL VW3.BAT
C:
CD \IM
GOTO LOOP

:ALLREQ
C:
CD \IM
CALL ALLREQ.BAT
C:
CD \IM
GOTO LOOP

:FASTLINK
C:
CD \IM
CALL FASTLINK.BAT
C:
CD \IM
GOTO LOOP

:EDORPURG
CALL EDORPRG.BAT
GOTO LOOP

:SHARPNET
C:
CD \VBBS
VNET 1 /U NETWORKID=1
VNET 1 /DIAL5 NETWORKID=1
VME 1 /TOSS NETWORKID=1
C:
CD \IM
GOTO LOOP

:HOGNET_OUT
c:
cd \IM
CALL HOGNET.BAT
C:
CD \IM
GOTO LOOP

:BRE2
CALL BREMAIL2.BAT
GOTO LOOP

:BRE3
CALL BRE3.BAT
GOTO LOOP

:EXTERN
CALL EXTERN.BAT
GOTO LOOP

:VBBSBACK
CALL VBBSBACK.BAT
GOTO LOOP

:VPLANET_HOST
CALL VPLANET.BAT
GOTO LOOP

:BBSCALL
DOBBS
GOTO LOOP

:VCLEAN
CALL VCLEAN.BAT
GOTO LOOP

:MBMAINT
CALL MBMAINT.BAT
GOTO LOOP

:GECHOTOSS
CALL GETOSS.BAT
GOTO LOOP

:GSCAN
CALL GSCAN.BAT
GOTO LOOP

:VBBSLOCAL
CALL VBBSLCL.BAT
GOTO LOOP

:MAILIN
CALL MAILIN.BAT
GOTO LOOP

:MAILOUT
CALL MAILOUT.BAT
GOTO LOOP

           ���������������������������������������������������������
           �������d i a b 0 l i c a����P L A T I N U M��W H Q�������
           ���������������������������������������������������������