ECHO OFF
IF NOT "%1"=="" GOTO MAIN
CLS
ECHO      ....................................................................
ECHO      :                                                                  :
ECHO      :                            VIEW (V)                              :
ECHO      :                            --------                              :
ECHO      :                                                                  :
ECHO      :     This procedure displays a text file with lines up to 200     :
ECHO      :     characters long.                                             :
ECHO      :                                                                  :
ECHO      :                         VIEW   file                              :
ECHO      :                                                                  :
ECHO      :                     file  -  Text file                           :
ECHO      :                                                                  :
ECHO      :     NOTE:  If no file extension is given, .LST is assumed.       :
ECHO      :..................................................................:
GOTO XIT
:MAIN
CLS
ECHO IMPS Version 3.1
ECHO ÿ
ECHO Procedure:  VIEW %1
ECHO ÿ
IF NOT EXIST %1 GOTO OK
ECHO     Text file:  %1
IMPSVIEW %1[:63]
ECHO Procedure VIEW completed!
ECHO ÿ
ECHO     Text file:  %1  --  Just viewed!
GOTO XIT
:OK
IF NOT EXIST %1.LST GOTO NOFILE1
ECHO     Text file:  %1.LST
IMPSVIEW %1.LST[:63]
ECHO Procedure VIEW completed!
ECHO ÿ
ECHO     Text file:  %1.LST  -- Just viewed!
GOTO XIT
:NOFILE1
ECHO     Text file:  %1  --  Not found!
ECHO 
:XIT
ECHO ÿ