@ECHO OFF REM MIDASCAT.BAT REM Installation Program using LHE.COM to extract the Midas Catalog REM Created: 04/18/95 (JAWs) Rem Modified: 04/05/96 (DWP) Rem Modified: 04/03/97 (DWP) delete sysarc%0 file after copy %0 + %1 to %1 Rem Modified: 04/16/97 (DWP) ADD COUNTRY & JSICHK FOR FREE SPACE Rem Modified: 04/24/97 (DWP) OOPS - during change lost del of midas.lzh Rem Modified: 05/20/97 (DWP) ATTRIB -/+ ON LANTASTIC Rem Modified: 06/02/97 (DWP) FIX TEST FOR %OS% == LANTASTIC - REMOVE QUOTES REM Parameters %1 = Floppy Designation (A: or B:) REM %2 = v5.0 Application Path, i.e. C:\STCKTR50 REM %3 = operating system i.e. ms-dos // lantastic rem %4 = country rem %5 = count of disks cls if not exist %2\LHE.COM GOTO NOLHE set fp=%1 set dp=%2 set os=%3 set cn=%4 set ct=%5 IF EXIST MIDAS.LZH DEL MIDAS.LZH if %cn% == "CN" GOTO CANADA %dp%\jsichk free gr cat 50000000 cat REM 50 MEG if errorlevel 1 goto nospace GOTO MOVER :CANADA %dp%\jsichk free gr cat 25000000 cat REM 25 MEG if errorlevel 1 goto nospace GOTO MOVER :MOVER REM shift parameters down for copy shift shift shift shift shift CLS ECHO. ECHO. ECHO. ECHO. ECHO. ECHO. ECHO. ECHO. ECHO ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ» ECHO º º ECHO º Electronic Catalog Installation º ECHO º º ECHO º Press [Enter] to continue with the install or º ECHO º Hold down the [Ctrl] and press the [Break] key º ECHO º to abort the installation. º ECHO º º ECHO ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ ECHO. ECHO. ECHO. pause :looper if "%1"=="" goto mergeit CLS ECHO. ECHO. ECHO. ECHO ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ» ECHO. º º ECHO º Electronic Catalog Installation º ECHO. º º ECHO º Mount Catalog Disk %1 of %ct% º ECHO. º º ECHO ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ ECHO. ECHO. ECHO. PAUSE :DISK if not exist %fp%SYSARC.%1 GOTO NODISK CLS ECHO. ECHO. ECHO. ECHO ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ» ECHO º º ECHO º Electronic Catalog Installation º ECHO º º ECHO º º ECHO º Copying Files - Please Wait... º ECHO º º ECHO ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ ECHO. ECHO. ECHO. copy /b %dp%\sysarc.%0 + %fp%sysarc.%1 %dp%\sysarc.%1 IF ERRORLEVEL 1 GOTO FAILCOPY del %dp%\sysarc.%0 shift goto looper :mergeit CLS ECHO. ECHO. ECHO. ECHO. ECHO. ECHO. ECHO. ECHO ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ» ECHO º º ECHO º Electronic Catalog Installation º ECHO º º ECHO º You May Remove Disk %0 º ECHO º º ECHO º Merging Files º ECHO º º ECHO º One Moment Please... º ECHO º º ECHO ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ ECHO. ECHO. ECHO. IF EXIST %dp%\midas.lzh GOTO KILLIT GOTO STARTIT :KILLIT del %dp%\midas.lzh > NUL :STARTIT IF %OS% == LANTASTIC GOTO UNATTRIB :DOIT ren %dp%\sysarc.%0 midas.lzh LHE E -c -m1 MIDAS %dp% MIDAS.* IF ERRORLEVEL 1 GOTO FAILCOPY del %dp%\midas.lzh > NUL IF %OS% == LANTASTIC GOTO ATTRIB :DONEIT CLS ECHO. ECHO. ECHO. ECHO. ECHO. ECHO. ECHO. ECHO. ECHO ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ» ECHO º º ECHO º Electronic Catalog Installation º ECHO º º ECHO º Installation Complete º ECHO º º ECHO º Catalog Installed º ECHO º º ECHO ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ ECHO. ECHO. ECHO. ECHO. PAUSE CALL JSIHI5 OK GOTO DAEND EXIT REM ------------------------------ Error Traps ---------------------------- :NODISK CLS ECHO. ECHO. ECHO. ECHO. ECHO. ECHO. ECHO. ECHO. ECHO ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ» ECHO. º º ECHO º Electronic Catalog Installation º ECHO. º º ECHO º Incorrect Disk! º ECHO. º º ECHO º Mount Catalog Disk %1 of %ct% º ECHO. º º ECHO ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ ECHO. ECHO. ECHO. ECHO. PAUSE GOTO DISK REM ======================================================================== :NOLHE CLS ECHO. ECHO. ECHO. ECHO. ECHO. ECHO. ECHO. ECHO. ECHO. ECHO LHE.COM Not Found in %2 ECHO ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ» ECHO º º ECHO º The installation cannot continue because the º ECHO º above installation program was not found. Call º ECHO º Janco International for further assistance. º ECHO º º ECHO ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ ECHO. ECHO. ECHO. pause GOTO DAEND :NOSPACE CLS ECHO. ECHO. ECHO. ECHO. ECHO. ECHO. ECHO INSUFFICENT DISK SPACE ECHO. ECHO. ECHO ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ» ECHO º º ECHO º The installation cannot continue because there º ECHO º is insufficent disk space available. Call º ECHO º Janco International for further assistance. º ECHO º º ECHO º U.S. 1-800-782-5872 º ECHO º Canada 1-800-323-5872 º ECHO º º ECHO ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ ECHO. ECHO. ECHO. pause GOTO DAEND :FAILCOPY del %dp%\midas.lzh > NUL CLS ECHO. ECHO. ECHO. ECHO. ECHO. ECHO. ECHO DISK COPY FAILED !!!!! ECHO. ECHO ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ» ECHO º º ECHO º The installation cannot continue because of º ECHO º a disk read failure during copy. Call º ECHO º Janco International for further assistance. º ECHO º º ECHO º U.S. 1-800-782-5872 º ECHO º Canada 1-800-323-5872 º ECHO º º ECHO ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ ECHO. ECHO. ECHO. pause GOTO DAEND :UNATTRIB ATTRIB -R %DP%\MIDAS.* GOTO DOIT :ATTRIB ATTRIB +R %DP%\MIDAS.* GOTO DONEIT :DAEND REM EXIT