@if not "%1" == ""  goto MARKE1:
@ECHO    /****************************************************************/
@ECHO    /**                       D L I N K                            **/
@ECHO    /**                                                            **/
@ECHO    /** DLINK links programs using the DISLIN Fortran-library.     **/
@ECHO    /**                                                            **/
@ECHO    /** Command:  DLINK   [option]  main                           **/
@ECHO    /**                                                            **/
@ECHO    /** option    is an optional qualifier that may have one of    **/
@ECHO    /**           the following values:                            **/
@ECHO    /**      -c   to compile programs before linking               **/
@ECHO    /**      -r   to run programs after linking                    **/
@ECHO    /**      -a   to compile, link and run programs.               **/
@ECHO    /**                                                            **/
@ECHO    /** main      is the name of the main program.                 **/
@ECHO    /**           If the the compile option is not used, the name  **/
@ECHO    /**           may also have the form  main+obj,,lib  where obj **/
@ECHO    /**           is a field of object and lib a field of library  **/
@ECHO    /**           files.                                           **/
@ECHO    /**                                                            **/
@ECHO    /** Example:  DLINK  -a   TEST                                 **/
@ECHO    /** Version:  F2C, LCC-Win32 Compiler                               **/
@ECHO    /****************************************************************/
@goto ENDE
:MARKE1
@if "%DISLIN%" == "" goto ERROR
@if %1 ==  -c	goto COMPILE
@if %1 ==  -C	goto COMPILE
@if %1 ==  -a	goto COMPILE
@if %1 ==  -A	goto COMPILE
@if %1 ==  -r	goto MARKE2
@if %1 ==  -R	goto MARKE2
@goto  LINK
:COMPILE
f2c %2.f 
lcc %2.c
@if not errorlevel 1 goto MARKE2
@goto ENDE
:MARKE2
lcclnk %2.obj %DISLIN%\dislf2c.lib libf77.lib
@if %1 ==  -a	goto RUN
@if %1 ==  -A	goto RUN
@if %1 ==  -r	goto RUN
@if %1 ==  -R	goto RUN
@goto ENDE
:LINK
lcclnk %1.obj %DISLIN%\dislf2c.lib libf77.lib
@GOTO ENDE
:RUN
@if not errorlevel 1 goto MARKE3
@goto ENDE
:MARKE3
%2
@goto ENDE
:ERROR
@echo "The environment DISLIN is not defined."
:ENDE
