blob: 4175e2875a14e50762dfdae02cc00e9ec4cf7acc (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
$! 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
|
