----- runmaxp.cmd begins -----
Echo OFF
Cls
SET BINKLEY=D:\MAX
SET THDPORT=MAXIMUS
SET NET=261
SET NODE=1000
SET IN=D:\MAX\FILE\NETFILE
SET OUT=D:\MAX\OUTBOUND
SET MEX_INCLUDE=D:\MAX\M
SET tbuf=8192
SET rbuf=8192
PATH=%path%;c:\os2\os2util;d:\max;d:\squish;e:\arcutil;
D:
CD\max
:Loop
D:
cd\max
If exist d:\max\flags\*.bsy del d:\max\flags\*.bsy
BTP CONFIG binkleyp.cfg unattended SHARE
If ERRORLEVEL 255 goto Loop
If ERRORLEVEL 240 goto BBS_240
If ERRORLEVEL 216 goto BBS_216
If ERRORLEVEL 192 goto BBS_192
If ERRORLEVEL 168 goto BBS_168
If ERRORLEVEL 144 goto BBS_144
If ERRORLEVEL 120 goto BBS_120
If ERRORLEVEL 100 goto F10_key
If ERRORLEVEL 96 goto BBS_96
If ERRORLEVEL 90 goto F9_key
If ERRORLEVEL 80 goto BBS_336
If ERRORLEVEL 72 goto BBS_72
If ERRORLEVEL 70 goto F7_key
If ERRORLEVEL 64 goto Donuttin
If ERRORLEVEL 60 goto Overnite
If ERRORLEVEL 55 goto Makenl
If ERRORLEVEL 50 goto F5_key
If ERRORLEVEL 56 goto BBS_312
If ERRORLEVEL 48 goto BBS_48
If ERRORLEVEL 40 goto F4_key
If ERRORLEVEL 32 goto BBS_288
If ERRORLEVEL 30 goto Squishmail
If ERRORLEVEL 24 goto BBS_24
If ERRORLEVEL 20 goto Squishmail
If ERRORLEVEL 12 goto BBS_12
If ERRORLEVEL 10 goto Mailout
If ERRORLEVEL 8 goto BBS_264
If ERRORLEVEL 5 goto Loop
If ERRORLEVEL 4 goto Error
If ERRORLEVEL 3 goto BBS_3
If ERRORLEVEL 2 goto Loop
If ERRORLEVEL 1 goto End
:Donuttin
waitn 120
goto loop
:Overnite
call overnite.bat
goto loop
:Makenl
call domakenl.bat
goto loop
:Squishmail
call runos2.cmd mail.cmd
goto loop
:Mailout
call runos2.cmd mail2.cmd
goto loop
:F10_key
maxp max -k
goto Loop
:F9_key
list2 newusers.txt
muep
cd\nodes
bonk
goto loop
:F7_key
d:
cd\squish
Sq386p Out Squash
cd\max
goto loop
:F5_key
call runos2.cmd packbase.cmd
goto loop
:F4_key
i:
cd tcpip\bin
REM Dial Other Internet Providers
SLIPPM.EXE
goto loop
:BBS_336
:BBS_312
:BBS_288
:BBS_264
:BBS_240
:BBS_216
:BBS_192
:BBS_168
:BBS_144
:BBS_120
:BBS_96
:BBS_72
:BBS_48
:BBS_24
:BBS_12
:BBS_3
goto Loop
:Error
Echo
Echo Serious Error - Maximus Halted.
Goto End
:End
EXIT
----- runmaxp.cmd ends -----
These use the OS/2 "Start" command:
----- runos2.cmd begins -----
@echo off
start /I /C /B /MIN %1
----- runos2.cmd ends -----
----- rundos.cmd begins -----
@echo off
start /I /C /MIN /DOS %1
----- rundos.cmd ends -----
After mail arrives:
----- mail.cmd begins -----
echo off
D:
cd\squish
sq386p in out squash -fd:\max\echotoss.log
REM sqlinkp -fd:\max\echotoss.log
erase d:\max\outbound\*.bsy
cd\max
scanbldp MATRIX
erase echotoss.log
----- mail.cmd ends -----
All message areas except netmail are squish format.
Good luck. *adh*
--- Msged/2 4.10
---------------
* Origin: Nerve Center - Source of the SPINAL_INJURY echo! (1:261/1000)
|