$! Save file as: TSPELL.COM             Source: [email protected]
$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

You are viewing proxied material from ftp.icm.edu.pl. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.