Chip 1998 February/CHIP_2_98.iso/software/testsoft/vatman/vatman.lzh/V.BAT

DOS Batch File | 1997-12-05 | 9KB | 284 lines

@echo off
:start
cls
echo ╔══════════════════════════════════════════════════════════════════════════╗
echo ║ ░░░░░░░▒▒▒▒▒▒▓▓▓▓▓ ZTK BITAM Lodz, ul.Piotrkowska 235 ▓▓▓▓▓▒▒▒▒▒▒░░░░░░░ ║
echo ╚══════════════════════════════════════════════════════════════════════════╝
ECHO ┌─────────────────── SYSTEM OBSLUGI FIRMY "PC VATMAN"   ────────────1998r──┐
echo │                                                                          │
echo │ A. SYSTEM PC VATMAN Z POLSKIMI ZNAKAMI - LATIN 2                         │
echo │ B. SYSTEM PC VATMAN Z POLSKIMI ZNAKAMI - MAZOWIA                         │
echo │ C. SYSTEM PC VATMAN BEZ POLSKICH ZNAKOW lub WINDOWS95 PL                 │
ECHO │ D. SYSTEM PC VATMAN - NAUKA OBSLUGI                                      │
echo │                                                                          │
ECHO │ E. EDYCJA i WYDRUK ZESTAWIEN ZAPISANYCH NA DYSK                          │
ECHO │ I. PORZADKOWANIE KARTOTEK - ODTWARZANIE INDEKSOW WE WSZYSTKICH KARTOTEK. │
ECHO │ P. OPERACJE USLUGOWE DLA PROGRAMU PC VATMAN                              │
ECHO │                                                                          │
ECHO │ K. KOPIA BEZPIECZENSTWA NA DYSKIETKE (TYLKO KARTOTEKI)                   │
ECHO │ O. ODTWARZANIE KARTOTEK Z DYSKIETKI                                      │
ECHO │                                                                          │
ECHO │ L. KOPIA BEZPIECZENSTWA NA KILKA DYSKIETEK (DUZE ZBIORY)                 │
ECHO │ R. ODTWARZANIE DANYCH Z KOPII BEZPIECZENSTWA NA DYSKIETKACH              │
ECHO │                                                                          │
ECHO │ S. Funkcje specjalne                                                     │
ECHO │ T. TESTOWANIE I USUWANIE BLEDOW Z DYSKU TWARDEGO                         │
echo │ Z. ZAKONCZENIE PRACY                                                     │
ECHO └─── wybierz opcje ────────────────────────────────────────────────────────┘

if "x"%1 == "x" goto ask

if "%1"=="Z" goto koniec
if "%1"=="T" goto test
if "%1"=="S" goto superoper
if "%1"=="R" goto odtworz
if "%1"=="L" goto kobez
if "%1"=="O" goto od
if "%1"=="K" goto kb
if "%1"=="P" goto pak
if "%1"=="I" goto ind
if "%1"=="E" goto ed
if "%1"=="D" goto demo
if "%1"=="C" goto ht
if "%1"=="B" goto htpm
if "%1"=="A" goto htpl

:ask
ask ,abcdeipkolrstz
if errorlevel 14 goto koniec
if errorlevel 13 goto test
if errorlevel 12 goto superoper
if errorlevel 11 goto odtworz
if errorlevel 10 goto kobez
if errorlevel 9  goto od
if errorlevel 8  goto kb
if errorlevel 7  goto pak
if errorlevel 6  goto ind
if errorlevel 5  goto ed
if errorlevel 4  goto demo
if errorlevel 3  goto ht
if errorlevel 2  goto htpm
if errorlevel 1  goto htpl

:htpl
@echo off
pcvatman
egapl LA +
keybpl LA +
VATMAN H FUNBITAM
egapl LA RE
keybpl LA RE
if not "x"%1 == "x" goto end
goto start

:htpm
@echo off
pcvatman
egapl MA +
keybpl MA +
VATMAN H FUNBITAM
egapl MA RE
keybpl MA RE
if not "x"%1 == "x" goto end
goto start

:ht
@echo off
pcvatman
VATMAN H FUNBITAM
if not "x"%1 == "x" goto end
goto start

:demo
@echo off
cd\VATM_DE
pcvatman
egapl LA +
keybpl LA +
VATMAN H FUNBITAM O1
egapl LA RE
keybpl LA RE
cd\VATM
if not "x"%1 == "x" goto end
goto start

:ed
ed
if not "x"%1 == "x" goto end
goto start

:ind
lha e /c1m1 ntx.lzh
pak 2
if not "x"%1 == "x" goto end
goto start

:pak
pak
if not "x"%1 == "x" goto end
goto start


:kb
cls
@echo ┌─ Kopia bezpieczenstwa kartotek na dyskietki ───────────────────────────────┐
@echo │ Dyskietke na kopie bezpieczenstwa, wloz do napedu A i wcisnij ENTER        │
@echo │ PAMIETAJ: Jesli na koniec bedzie komunikat o braku miejsca na dyskietce to │
@echo │           kopie wykonaj za pomoca opcji "L"                                │
@echo │ Jesli chcesz przerwac    kopiowanie wcisnij  Ctrl+Break                    │
@echo │ Jesli chcesz kontynuowac kopiowanie wcisnij  ENTER                         │
@echo └────────────────────────────────────────────────────────────────────────────┘
@echo off
pause >nul
format a:/u/autotest
lha a VATM *.dbf *.ntx config*.tb
copy VATM.lzh a:
del VATM.lzh
if not exist a:\VATM.lzh goto kbblad
@echo Wcisnij  ENTER
pause >nul
if not "x"%1 == "x" goto end
goto start

:kbblad
cls
@echo  Blad z powodu: przepelnienia dyskietki lub jej uszkodzenia (lub brak LHA.EXE)
@echo  Sprawdz dyskietke - jesli jest dobra a zabraklo miejsca na kopie
@echo  to wykonuj kopie za pomoca opcji "L" lub MSBACKUP
@echo off
pause >nul
if not "x"%1 == "x" goto end
goto start


:od
cls
@echo ┌────────────────────────────────────────────────────────────────────────────┐
@echo │ Przygotuj dyskietke z ostatnia kopia bezpieczenstwa i wcisnij ENTER        │
@echo │ PAMIETAJ: Dane ktore sa na dysku zostana zniszczone i zastapione danymi    │
@echo │           z kopii                                                          │
@echo │ Jesli chcesz przerwac    odtwarzanie: wyjmij dyskietke i wcisnij Ctrl+Break│
@echo │ Jesli chcesz kontynuowac odtwarzanie wcisnij  ENTER                        │
@echo └────────────────────────────────────────────────────────────────────────────┘
@echo off
pause >nul
if not exist a:VATM.lzh goto odblad
lha e /c1m1 a:VATM
if not "x"%1 == "x" goto end
goto start

:odblad
cls
@echo   Blad z powodu braku kopii na dyskietce
@echo   Poszukaj dyskietke z kopia (wcisnij Enter)
@echo off
pause >nul
if not "x"%1 == "x" goto end
goto start

:kobez
cls
@echo ┌─ Pelna kopia bezpieczenstwa ───────────────────────────────────────────────┐
@echo │ Przygotuj kilka dyskietek na kopie bezpieczenstwa, wloz pierwsza i wcisnij │
@echo │        ENTER. Na poczatku system przygotowuje kopie, a potem zaczyna zapis.│
@echo │ Po zapisaniu pierwszej moze potrzebowac kolejnych dla duzej ilosci danych. │
@echo │        Pojawi sie wtedy komunikat: Insert backup diskette 02 ... itd.      │
@echo │        Wyjmij dyskietke i wloz kolejna.                                    │
@echo │ Kopia usuwa stare zapisy na dyskietkach, ktore uzyles do robienia kopii    │
@echo │ Jesli posiadasz DOS ver 6 lub 6.2 bez programu BACKUP wcisnij  Ctrl+Break  │
@echo │                 wykonuj kopie programem DOS podajac komende MSBACKUP       │
@echo │ Jesli chcesz przerwac    kopiowanie wcisnij  Ctrl+Break                    │
@echo │ Jesli chcesz kontynuowac kopiowanie wcisnij  ENTER                         │
@echo └────────────────────────────────────────────────────────────────────────────┘
@echo off
pause >nul
lha a VATM *.*
if not exist VATM.lzh goto kobezblad
backup VATM.lzh a:
del VATM.lzh
@echo Koniec kopii. Wyjmij dyskietke. Wcisnij  ENTER
pause >nul
if not "x"%1 == "x" goto end
goto start

:kobezblad
cls
@echo  Blad z powodu: przepelnienia dysku twardego (lub brak LHA.EXE)
@echo  Sprawdz ilosc wolego miejsca na dysku (min ok.10 MB)
@echo off
pause >nul
if not "x"%1 == "x" goto end
goto start

:odtworz
cls
@echo ┌────────────────────────────────────────────────────────────────────────────┐
@echo │ Procedura sluzy do odtworzenia danych skopiowanych za pomoca opcji "L"     │
@echo │ Przygotuj kolejno dyskietki z ostatnia kopia bezpieczenstwa i wcisnij ENTER│
@echo │ PAMIETAJ: Dane ktore sa na dysku zostana zniszczone i zastapione danymi    │
@echo │           z kopii                                                          │
@echo │ Jesli chcesz przerwac    odtwarzanie: wyjmij dyskietke i wcisnij Ctrl+Break│
@echo │ Jesli chcesz kontynuowac odtwarzanie wcisnij  ENTER                        │
@echo └────────────────────────────────────────────────────────────────────────────┘
@echo off
pause >nul
restore a: \VATM\*.*
if not exist VATM.LZH goto odtwblad
lha e /c1m1 VATM
@echo Koniec odtwarzania. Wcisnij  ENTER
pause >nul
del VATM.lzh
if not "x"%1 == "x" goto end
goto start

:odtwblad
cls
@echo   Blad z powodu braku kopii na dyskietce
@echo   Poszukaj dyskietke z kopia (wcisnij Enter)
@echo off
pause >nul
if not "x"%1 == "x" goto end
goto start


:superoper
@echo off
egapl LA +
keybpl LA +
VATMAN H S_OSuperoper.
egapl LA RE
keybpl LA RE
if not "x"%1 == "x" goto end
goto start


:test
if exist c:\windows\command\scandisk.exe goto winscan
if exist c:\dos\scandisk.exe goto scan
if exist c:\dos\chkdsk.exe goto chkdsk
:chkdsk
ECHO Y | C:\DOS\CHKDSK/F
PAUSE
if not "x"%1 == "x" goto end
goto start
:scan
C:\DOS\SCANDISK C: /AUTOFIX /NOSAVE /NOSUMMARY
if not "x"%1 == "x" goto end
goto start
:winscan
C:\WINDOWS\COMMAND\SCANDISK C:
if not "x"%1 == "x" goto end
goto start



:koniec
cls
@echo ┌──── ZTK BITAM zyczy przyjemnego odpoczynku ────────────────┐
@echo │     Do widzenia !!!                                        │
@echo └──── wcisnij Enter ─────────────────────────────────────────┘
@echo off
pause >nul

:end