maximus.bat

[robinbobin]

:Echo On
:echo atz>%com%
:echo ath1>%com%
:echo ath0>%com%
:echo at&c1&d2\q3>%com%
rem i:\autoboot\autoboot /SIT 600 /DSK 1

%FWD%
cd \fd
rem X00\X00 E
rem X00\XU LOCK:2:4800:8N1
rem \fd\bnu /L0=9600,8n1 /R=2048 /T=1024 >nul

Echo StartFd>>%fdlg%
echo.|time|c:\dos\find "urr">>%fdlg%
rem \dv\dvansi.com
frr_rp

:Loop
%FWD%
cd \fd
REM FD -rdebug -FORCECOMMIT -nounpack
FD -rdebug -nounpack
if errorlevel 255 goto fax
if ErrorLevel 253 goto EmptyExit
if ErrorLevel 205 goto RelCom
if ErrorLevel 201 goto PackMail
if ErrorLevel 200 goto TossMail
if ErrorLevel 190 goto DoBBS
if errorlevel 131 goto Day
if errorlevel 130 goto Night
if errorlevel 100 goto EchoSetup
if errorlevel 73 goto BT
if errorlevel 72 goto WB
if errorlevel 71 goto NodeComp
if errorlevel 61 goto frr_all
if errorlevel 60 goto frr_lastcall
if ErrorLevel 56  goto Never
if ErrorLevel 55  goto Anyday
if ErrorLevel 54  goto AnyWeek
if ErrorLevel 10  goto Done
if ErrorLevel 9  goto Done
if ErrorLevel 8  goto FD_Exit
if ErrorLevel 7  goto NoFOSSIL
if ErrorLevel 6  goto NoFOSSIL
if ErrorLevel 5  goto MdmNoInit
if ErrorLevel 3  goto NoSpace
if ErrorLevel 2  goto ExtErr
if ErrorLevel 1  goto IntErr
goto Done

:fax
  %FWD%
  cd \fd\bgfax
  rem ---1 is for com1 and z is for zfax format
rem  bgfax /fhay:713_555_1212 \fd\bgfax 4 z
  bgfax /fax:713_555_1212 \fd\bgfax 4 z
  rem ---if that fails, try /fax:713_555_1212
  goto Loop

:BT
  %FWD%
  cd \fd
  call send-all.bat
  cd \bt
  call bink.bat
  cd \fd
  goto Loop

:RelCom
call uupc.bat
echo ATZ>%com%
goto Loop

:Night
echo ATM0&W>%COM%
rem >\fd\night.now
goto Loop

:Day
echo ATM1L3&W>%COM%
REM \fd\bin\dtr.com
rem - By Windows Setup - del \fd\night.now
goto Loop

:Never
call bud_cd.bat
goto Loop

:SoundOn
echo ATM1 >%com%
goto Loop

:EmptyExit
goto Loop

:echoSetup
cd fe
fesetup -a
goto loop


:PackMail
call \fd\packmail.bat
goto Loop

:NodeComp
fdnc /f
goto Loop

:TossMail
rem echo ATM0L0H1 >%com%
:FEtoss
rem Vidram On
cd mt
mt -r
cd ..
call g.bat
cd \fd\afix
allfix mgr
call send506.bat
call send70.bat

rem Vidram Off
goto    Loop


:frr_lastcall
frr.exe lastcall
rem %fd%\fdflmngr\fdflmngr last

goto loop

:frr_all
frr.exe all -log
rem %fd%\fdflmngr\fdflmngr all
goto loop

:AnyDay

%FWD%
cd\fd
:ndd c: e: f: /nohost
Call Statist.bat
Call ChkAll.Bat
REM Call AntiVir.Bat

cd \fd\afix
  allfix mgr

cd \fd
rem        call nodecomp.bat
        touch \fd\outfile\pila\dirinfo.
        ofd
                deat \fd\mail
        tfolder
                useaka0
                %FWD%
                cd \fd\mt
                mt -R

:FEpurge
cd \fd\fe
        feutil purge
        feutil pack -force
        feutil link -ignore
        fastecho scan -n
        fastecho toss
       
        cd \fd\afix
        allfix file
        allfix pack
       
        cd \fd\fe\mpack
        call mpack.bat

rem          call \quickdsk.bat e:
rem          call \quickdsk.bat e:
Goto Loop

:AnyWeek
rem          cd \ublist
rem          call hatch.bat

Call DayPost.Bat

cd \fd\msgen
        call ListWeek.Bat

cd \fd\fe
        fesetup -XA
        a
rem  feutil.exe post areas.out big.muzzy -From AreaFix -To All -Subj PASSWORD
        fastecho notify
rem        fastecho scan
        call mpack

rem          Speedisk c: /fd
rem          Speedisk e: /fd
rem          Speedisk f: /fd
rem          Speedisk f: /fd

Goto Loop

:DoBBS
cd      \fd
echo ----------  EXIT TO BBS >>%FDLG%
DoBBS0.BAT

:WB
call w.bat
goto loop

:NoFOSSIL
:Echo        >>\fd\FDERR.LOG FOSSIL not loaded or detected
goto reboot

:MdmNoInit
REM rebprn
goto reboot
rem ExeBBS 2400 4 1
goto Done

:NoSpace
Echo    >>\fd\FDERR.LOG Insufficient available disk space (<32K)
goto Done

:ExtErr
Echo    >>\fd\FDERR.LOG External error
goto reboot
goto Done

:IntErr
Echo    >>\fd\FDERR.LOG Internal error
fdnc /f
goto reboot
goto Done

:reboot
wait 5
smartdrv /c
reboot

:FD_Exit
:Done
frr_rp.com -u
@Echo Normal shutdownFd>>%fdlg%
:@echo.|time|c:\dos\find "urr">>%fdlg%
Echo  FD: Normal shutdown

Comments

[lg-hater.livejournal.com]

Ашойта? ББС с запуском из-под передней дверцы, угадал?
Непонятно, правда, почему все три строки запуска фоссила заremаны, оно ж без него вообще мопеда не видело. Ага, и метка nofossil есть, с последующим ребутом.
Никак, бекап из тех времен нашел, да впал в ностальгию? ;)

[robinbobin.livejournal.com]

1.axa
2.axa
3.axa