$! Save file as: TSPELL.COM             Source: FILESERV@SHSU.BITNET  
$if p1.eqs."" then inquire p1 "input file"
$chk 'p1' lcheck.stmp
$if p1.eqs."" then inquire 'p1' "input file"
$file=f$search("lcheck.stmp")
$ver=f$extract(f$locate(";",file),132,file)
$define sys$command: sys$input:/user
$spell lcheck.stmp
$file= f$search("lcheck.stmp")
$ver1=f$extract(f$locate(";",file),132,file)
$if ver.eqs.ver1 then goto finish
$putback 'p1' lcheck.stmp lchk.stmp
$ren/nolog lchk.stmp 'p1'
$delete/nolog lcheck.stmp;*
$exit
$finish:
$delete/nolog lcheck.stmp;
$write sys$output "No update needed"
$exit