rem                     ---diagram9.bat---
rem MS-DOS procedure to diagram a (free format) FORTRAN language program.
rem (use diagramf.bat to diagram card format Fortran programs)

rem  by Mitchell R Grunes.

rem I assume that the executable is in directory c:\grunes on
rem  your PC.

rem Syntax:
rem     diagramf
rem to be prompted for input parameters.

rem Alternate Syntax:
rem     diagramf filename(s)
rem to append diagram of file(s) into diagram.out

if %1a == a  c:\grunes\diagramf
if %1a == a  goto quit

echo off
  echo ========================-- %1 --========================
  rem Prompt answers: input from %1, output to (for now),
  rem  place numbers in column 73, embed include files, use free
  rem  format, use IBM PC graphics.

  echo %1          >
  echo >>
  echo 73          >>
  echo 1           >>
  echo 1           >>
  echo 1           >>
  c:\grunes\diagramf <
  type >> diagram.out
  if not %1a == a goto loop
  echo Note--This does not delete diagram.out before appending to it.