Category : Files from Magazines
Archive   : VOL10NO9.ZIP
Filename : FILETYPE.BAT

@ECHO OFF

REM FILETYPE.BAT

:NO FILESPEC
IF %1.==. GOTO END

:ZIP
SET FT=ZIP
FIND /N "PK" %1 |FIND "[1]" > FILETYP1.$$$
COPY FILETYP1.$$$ FILETYPE.$$$ >NUL
IF EXIST FILETYPE.$$$ GOTO END

:EXEC
SET FT=EXE
FIND /N "MZ" %1 |FIND "[1]" > FILETYP2.$$$
COPY FILETYP2.$$$ FILETYPE.$$$ >NUL
IF EXIST FILETYPE.$$$ GOTO END

:COM
SET FT=COM
FIND /N "é" %1 | FIND "[1]" > FILETYP3.$$$
COPY FILETYP3.$$$ FILETYPE.$$$ >NUL
IF EXIST FILETYPE.$$$ GOTO END

:WordPerfect
SET FT=WordPerfect
REM This v character is an ASCII 255
FIND /N "ÿFFWPC" %1 | FIND "[1]" > FILETYP4.$$$
REM This ^ character is an ASCII 255
COPY FILETYP4.$$$ FILETYPE.$$$ >NUL
IF EXIST FILETYPE.$$$ GOTO END

:Device Driver
SET FT=DeviceDriver
REM The vvvv four seeming blanks are all ASCII 255
FIND /N "ÿFFÿFFÿFFÿFF" %1 | FIND "[1]" > FILETYP5.$$$
REM The ^^^^ four seeming blanks are all ASCII 255
COPY FILETYP5.$$$ FILETYPE.$$$ >NUL
IF EXIST FILETYPE.$$$ GOTO END

SET FT=
ECHO FILE TYPE IS NOT EXE, COM, ZIP, WordPerfect, OR Device Driver.
GOTO OUT

:END
ECHO FILE TYPE IS: %FT%
SET FT=

:OUT
FOR %%A IN (1 2 3 4 5 E) DO IF EXIST FILETYP%%A.$$$ DEL FILETYP%%A.$$$ >NUL
:END