@echo off
rem ==========================================================================
rem DISKETTE.BAT orDISKETTE.CMD (Roger de Reus, reus@mic.dtu.dk)   27-Jun-1995
rem ==========================================================================
rem Copy emTeX distribution to diskettes according to E. Mattes' DISKETTE.DOC.
rem      for emTeX distribution 25-Jun-95
rem Type DISKETTE or see under :Usage below for usage.
rem Save as DISKETTE.BAT for DOS usage.
rem Save as DISKETTE.CMD for OS/2 usage.
rem
rem adapted for emTeX Update 21-Jun-1996 and *.fli files
rem  by Peter Seitz (e-mail: seitz@bzs.tu-graz.ac.at)
rem    last change: 17-Jul-1996

if %1.==. goto Usage

rem Initialisation
set Drive=a:
set Size=3
set Disk=nodefault

:Start
if %1==a:  set  Drive=a:
if %1==a:  goto Next
if %1==A:  set  Drive=a:
if %1==A:  goto Next
if %1==b:  set  Drive=b:
if %1==b:  goto Next
if %1==B:  set  Drive=b:
if %1==B:  goto Next
if %1==35  set  Size=3
if %1==35  goto Next
if %1==525 set  Size=5
if %1==525 goto Next
if %1==all set  Disk=all
if %1==ALL set  Disk=all
if %Disk%==all goto Disk%Size%_1
if %1==alltex set Disk=alltex
if %1==ALLTEX set Disk=alltex
if %Disk%==alltex goto Disk%Size%_1
if %1==allfli set Disk=allfli
if %1==ALLFLI set Disk=allfli
if %Size%==5 if %Disk%==allfli goto Disk%Size%_11
if %Size%==3 if %Disk%==allfli goto Disk%Size%_9
if %1==1   set  Disk=1
if %1==2   set  Disk=2
if %1==3   set  Disk=3
if %1==4   set  Disk=4
if %1==5   set  Disk=5
if %1==6   set  Disk=6
if %1==7   set  Disk=7
if %1==8   set  Disk=8
if %1==9   set  Disk=9
if %1==10  set  Disk=10
if %1==11  set  Disk=11
if %1==12  set  Disk=12
if %1==13  set  Disk=13
if %1==14  set  Disk=14
if %1==14  if   %Size%==3 goto Error2
if %1==15  set  Disk=15
if %1==15  if   %Size%==3 goto Error2
if %1==16  set  Disk=16
if %1==16  if   %Size%==3 goto Error2
if %Disk%==nodefault goto Error
goto Disk%Size%_%Disk%

:Next
shift
if %1.==. goto Done
goto Start

rem 3.5 inch diskettes
:Disk3_1
echo:
echo Insert emTeX 3.5 inch diskette 1 and hit ENTER.
pause > nul
echo   Copying: readme.eng readme.ger readme.bet install.eng install.ger
echo   Copying: quick.eng quick.ger help.eng help.ger changes.eng changes.ger
echo   Copying: diskette.doc unz512.exe unz512x3.exe first.zip emxrsx.zip
echo   Copying: mfjob12c.zip
label %Drive%emtex 1-8
copy readme.eng %Drive% > nul
copy readme.ger %Drive% > nul
copy readme.bet %Drive% > nul
copy install.eng %Drive% > nul
copy install.ger %Drive% > nul
copy quick.eng %Drive% > nul
copy quick.ger %Drive% > nul
copy help.eng %Drive% > nul
copy help.ger %Drive% > nul
copy changes.eng %Drive% > nul
copy changes.ger %Drive% > nul
copy diskette.doc %Drive% > nul
copy unz512.exe %Drive% > nul
copy unz512x3.exe %Drive% > nul
copy first.zip %Drive% > nul
copy emxrsx.zip %Drive% > nul
copy mfjob12c.zip %Drive% > nul
copy dvisp10b.zip %Drive% > nul
if %Disk%==all goto Disk3_2
if %Disk%==alltex goto Disk3_2
goto Next

:Disk3_2
echo:
echo Insert emTeX 3.5 inch diskette 2 and hit ENTER.
pause > nul
echo   Copying: dvid16f1.zip bibtex4b.zip
label %Drive%emtex 2-8
copy dvid16f1.zip %Drive% > nul
copy bibtex4b.zip %Drive% > nul
if %Disk%==all goto Disk3_3
if %Disk%==alltex goto Disk3_3
goto Next

:Disk3_3
echo:
echo Insert emTeX 3.5 inch diskette 3 and hit ENTER.
pause > nul
echo   Copying: makeindx.zip latex209.zip german.zip dvid16f2.zip
label %Drive%emtex 3-8
copy makeindx.zip %Drive% > nul
copy latex209.zip %Drive% > nul
copy german.zip %Drive% > nul
copy dvid16f2.zip %Drive% > nul
if %Disk%==all goto Disk3_4
if %Disk%==alltex goto Disk3_4
goto Next

:Disk3_4
echo:
echo Insert emTeX 3.5 inch diskette 4 and hit ENTER.
pause > nul
echo   Copying: tex4b.zip pkedit.zip pictex.zip web.zip
label %Drive%emtex 4-8
copy tex4b.zip %Drive% > nul
copy pkedit.zip %Drive% > nul
copy pictex.zip %Drive% > nul
copy web.zip %Drive% > nul
if %Disk%==all goto Disk3_5
if %Disk%==alltex goto Disk3_5
goto Next

:Disk3_5
echo:
echo Insert emTeX 3.5 inch diskette 5 and hit ENTER.
pause > nul
echo   Copying: mf4b.zip fontcm.zip fontltx.zip
label %Drive%emtex 5-8
copy mf4b.zip %Drive% > nul
copy fontcm.zip %Drive% > nul
copy fontltx.zip %Drive% > nul
if %Disk%==all goto Disk3_6
if %Disk%==alltex goto Disk3_6
goto Next

:Disk3_6
echo:
echo Insert emTeX 3.5 inch diskette 6 and hit ENTER.
pause > nul
echo   Copying: l2input.zip fontdc.zip
label %Drive%emtex 6-8
copy l2input.zip %Drive% > nul
copy fontdc.zip %Drive% > nul
if %Disk%==all goto Disk3_7
if %Disk%==alltex goto Disk3_7
goto Next

:Disk3_7
echo:
echo Insert emTeX 3.5 inch diskette 7 and hit ENTER.
pause > nul
echo   Copying: lkurz.zip l2kurz.zip texware.zip mfware.zip fontemsy.zip
echo   Copying: fontams.zip texcad.zip
label %Drive%emtex 7-8
copy lkurz.zip %Drive% > nul
copy l2kurz.zip %Drive% > nul
copy texware.zip %Drive% > nul
copy mfware.zip %Drive% > nul
copy fontemsy.zip %Drive% > nul
copy fontams.zip %Drive% > nul
copy texcad.zip %Drive% > nul
if %Disk%==all goto Disk3_8
if %Disk%==alltex goto Disk3_8
goto Next

:Disk3_8
echo:
echo Insert emTeX 3.5 inch diskette 8 and hit ENTER.
pause > nul
echo   Copying: l2base.zip srcmkidx.zip srctcad.zip l2tools.zip
label %Drive%emtex 7-8
copy l2base.zip %Drive% > nul
copy srcmkidx.zip %Drive% > nul
copy srctcad.zip %Drive% > nul
copy l2tools.zip %Drive% > nul
if %Disk%==all goto Disk3_9
goto Next


rem 3.5 inch diskettes library files


:Disk3_9
echo:
echo Insert emTeX 3.5 inch diskette 9 (1) and hit ENTER.
pause > nul
echo   Copying: ljh_base.fli
label %Drive%texfli 1-5
copy ljh_base.fli %Drive% > nul
if %Disk%==all goto Disk3_10
if %Disk%==allfli goto Disk3_10
goto Next

:Disk3_10
echo:
echo Insert emTeX 3.5 inch diskette 10 (2) and hit ENTER.
pause > nul
echo   Copying: bj_base.fli sty_base.fli
label %Drive%texfli 2-5
copy bj_base.fli %Drive% > nul
copy sty_base.fli %Drive% > nul
if %Disk%==all goto Disk3_11
if %Disk%==allfli goto Disk3_11
goto Next

:Disk3_11
echo:
echo Insert emTeX 3.5 inch diskette 11 (3) and hit ENTER.
pause > nul
echo   Copying: dj_base.fli fax_base.fli fx_base.fli
label %Drive%texfli 3-5
copy dj_base.fli %Drive% > nul
copy fax_base.fli %Drive% > nul
copy fx_base.fli %Drive% > nul
if %Disk%==all goto Disk3_12
if %Disk%==allfli goto Disk3_12
goto Next

:Disk3_12
echo:
echo Insert emTeX 3.5 inch diskette 12 (4) and hit ENTER.
pause > nul
echo   Copying: ito_base.fli p6h_base.lfi p6l_base.fli
label %Drive%texfli 4-5
copy ito_base.fli %Drive% > nul
copy p6h_base.fli %Drive% > nul
copy p6l_base.fli %Drive% > nul
if %Disk%==all goto Disk3_13
if %Disk%==allfli goto Disk3_13
goto Next

:Disk3_13
echo:
echo Insert emTeX 3.5 inch diskette 13 (5) and hit ENTER.
pause > nul
echo   Copying: lj_base.fli p6m_base.fli qj_base.fli
label %Drive%texfli 5-5
copy lj_base.fli %Drive% > nul
copy p6m_base.fli %Drive% > nul
copy qj_base.fli %Drive% > nul
goto Next


rem 5.25 inch diskettes, high density (1200 KByte):

:Disk5_1
echo:
echo Insert emTeX 5.25 inch diskette 1 and hit ENTER.
pause > nul
echo   Copying: readme.eng readme.ger readme.bet install.eng install.ger
echo   Copying: quick.eng quick.ger help.eng help.ger changes.eng changes.ger
echo   Copying: diskette.doc unz512.exe unz512x3.exe first.zip emxrsx.zip
echo   Copying: mfjob12c.zip
label %Drive%emtex 1-10
copy readme.eng %Drive% > nul
copy readme.ger %Drive% > nul
copy readme.bet %Drive% > nul
copy install.eng %Drive% > nul
copy install.ger %Drive% > nul
copy quick.eng %Drive% > nul
copy quick.ger %Drive% > nul
copy help.eng %Drive% > nul
copy help.ger %Drive% > nul
copy changes.eng %Drive% > nul
copy changes.ger %Drive% > nul
copy diskette.doc %Drive% > nul
copy unz512.exe %Drive% > nul
copy unz512x3.exe %Drive% > nul
copy first.zip %Drive% > nul
copy emxrsx.zip %Drive% > nul
copy mfjob12c.zip %Drive% > nul
if %Disk%==all goto Disk5_2
if %Disk%==alltex goto Disk5_2
goto Next

:Disk5_2
echo:
echo Insert emTeX 5.25 inch diskette 2 and hit ENTER.
pause > nul
echo   Copying: dvid16f1.zip pictex.zip
label %Drive%emtex 2-10
copy dvid16f1.zip %Drive% > nul
copy pictex.zip %Drive% > nul
if %Disk%==all goto Disk5_3
if %Disk%==alltex goto Disk5_3
goto Next

:Disk5_3
echo:
echo Insert emTeX 5.25 inch diskette 3 and hit ENTER.
pause > nul
echo   Copying: dvid16f2.zip german.zip l2kurz.zip dvisp10b.zip srctcad.zip
label %Drive%emtex 3-10
copy dvid16f2.zip %Drive% > nul
copy german.zip %Drive% > nul
copy l2kurz.zip %Drive% > nul
copy dvisp10b.zip %Drive% > nul
copy srctcad.zip %Drive% > nul
if %Disk%==all goto Disk5_4
if %Disk%==alltex goto Disk5_4
goto Next

:Disk5_4
echo:
echo Insert emTeX 5.25 inch diskette 4 and hit ENTER.
pause > nul
echo   Copying: tex4b.zip srcmkidx.zip
label %Drive%emtex 4-10
copy tex4b.zip %Drive% > nul
copy srcmkidx.zip %Drive% > nul
if %Disk%==all goto Disk5_5
if %Disk%==alltex goto Disk5_5
goto Next

:Disk5_5
echo:
echo Insert emTeX 5.25 inch diskette 5 and hit ENTER.
pause > nul
echo   Copying: mf4b.zip lkurz.zip web.zip
label %Drive%emtex 5-10
copy mf4b.zip %Drive% > nul
copy lkurz.zip %Drive% > nul
copy web.zip %Drive% > nul
if %Disk%==all goto Disk5_6
if %Disk%==alltex goto Disk5_6
goto Next

:Disk5_6
echo:
echo Insert emTeX 5.25 inch diskette 6 and hit ENTER.
pause > nul
echo   Copying: l2input.zip fontcm.zip fontltx.zip
label %Drive%emtex 6-10
copy l2input.zip %Drive% > nul
copy fontcm.zip %Drive% > nul
copy fontltx.zip %Drive% > nul
if %Disk%==all goto Disk5_7
if %Disk%==alltex goto Disk5_7
goto Next

:Disk5_7
echo:
echo Insert emTeX 5.25 inch diskette 7 and hit ENTER.
pause > nul
echo   Copying: texcad.zip makeindx.zip bibtex4b.zip l2tools.zip latex209.zip
label %Drive%emtex 7-10
copy texcad.zip %Drive% > nul
copy makeindx.zip %Drive% > nul
copy bibtex4b.zip %Drive% > nul
copy l2tools.zip %Drive% > nul
copy latex209.zip %Drive% > nul
if %Disk%==all goto Disk5_8
if %Disk%==alltex goto Disk5_8
goto Next

:Disk5_8
echo:
echo Insert emTeX 5.25 inch diskette 8 and hit ENTER.
pause > nul
echo   Copying: l2base.zip texware.zip
label %Drive%emtex 8-10
copy l2base.zip %Drive% > nul
copy texware.zip %Drive% > nul
if %Disk%==all goto Disk5_9
if %Disk%==alltex goto Disk5_9
goto Next


:Disk5_9
echo:
echo Insert emTeX 5.25 inch diskette 9 and hit ENTER.
pause > nul
echo   Copying: fontdc.zip pkedit.zip fontemsy.zip
label %Drive%emtex 9-10
copy fontdc.zip %Drive% > nul
copy pkedit.zip %Drive% > nul
copy fontemsy.zip %Drive% > nul
if %Disk%==all goto Disk5_10
if %Disk%==alltex goto Disk5_10
goto Next


:Disk5_10
echo:
echo Insert emTeX 5.25 inch diskette 10 and hit ENTER.
pause > nul
echo   Copying: fontams.zip mfware.zip
label %Drive%emtex 10-10
copy fontams.zip %Drive% > nul
copy mfware.zip %Drive% > nul
if %Disk%==all goto Disk5_11
goto Next


rem 5.25 inch diskettes, high density (1200 KByte) library files:

:Disk5_11
echo:
echo Insert emTeX 5.25 inch diskette 11 (1) and hit ENTER.
pause > nul
echo   Copying: ljh_base.fli as ljh_base.zip
label %Drive%texfli 1-6
pkzip -ex ljh_base ljh_base.fli > nul
copy ljh_base.zip %Drive% > nul
del ljh_base.zip > nul
if %Disk%==all goto Disk5_12
if %Disk%==allfli goto Disk5_12
goto Next

:Disk5_12
echo:
echo Insert emTeX 5.25 inch diskette 12 (2) and hit ENTER.
pause > nul
echo   Copying: bj_base.fli fx_base.fli
label %Drive%texfli 2-6
copy bj_base.fli %Drive% > nul
copy fx_base.fli %Drive% > nul
if %Disk%==all goto Disk5_13
if %Disk%==allfli goto Disk5_13
goto Next

:Disk5_13
echo:
echo Insert emTeX 5.25 inch diskette 13 (3) and hit ENTER.
pause > nul
echo   Copying: p6m_base.fli sty_base.fli
label %Drive%texfli 3-6
copy p6m_base.fli %Drive% > nul
copy sty_base.fli %Drive% > nul
if %Disk%==all goto Disk5_14
if %Disk%==allfli goto Disk5_14
goto Next

:Disk5_14
echo:
echo Insert emTeX 5.25 inch diskette 14 (4) and hit ENTER.
pause > nul
echo   Copying: ito_base.fli sp6_base.fli
label %Drive%texfli 4-6
copy ito_base.fli %Drive% > nul
copy p6h_base.fli %Drive% > nul
if %Disk%==all goto Disk5_15
if %Disk%==allfli goto Disk5_15
goto Next

:Disk5_15
echo:
echo Insert emTeX 5.25 inch diskette 15 (5) and hit ENTER.
pause > nul
echo   Copying: dj_base.fli lj_base.fli
label %Drive%texfli 5-6
copy dj_base.fli %Drive% > nul
copy lj_base.fli %Drive% > nul
if %Disk%==all goto Disk5_16
if %Disk%==allfli goto Disk5_16
goto Next

:Disk5_16
echo:
echo Insert emTeX 5.25 inch diskette 16 (6) and hit ENTER.
pause > nul
echo   Copying: fax_base.fli p6l_base.fli qj_base.fli
label %Drive%texfli 6-6
copy fax_base.fli %Drive% > nul
copy p6l_base.fli %Drive% > nul
copy qj_base.fli %Drive% > nul
goto Next


:Usage
echo:
echo DISKETTE: copy files from emTeX distribution to diskette.
echo:
echo Usage: DISKETTE [Drive:] [Size] [all alltex allfli 1 2 .. 16]
echo in which
echo   [Drive:]     is a: or b: (default a:)
echo   [Size]       is 35 or 525 (default 3.5 inch diskettes)
echo   [all]        all diskettes including fli files
echo   [alltex]     the whole emtex distribution (all tex-diskettes)
echo   [allfli]     all fontlib files (no default)
echo   [1 2 ... 16] is all or one or more diskette numbers (no default)
echo:
echo Required: maximum 8 (3.5 inch) or 10 (5.25 inch) formatted diskettes for emTeX
echo           maximum 5 (3.5 inch) or  6 (5.25 inch) formatted diskettes for *.fli
goto End

:Error
echo:
echo DISKETTE: unrecognized input (%1), I quit.
goto End

:Error2
echo:
echo DISKETTE: invalid 3.5 inch diskette number (%1), I quit.
goto End

:Done
echo:
echo DISKETTE: All work done.

:End
set Drive=
set Size=
set Disk=
rem _TheEnd_