$! $! Build COOKIE.FIL in the current account $! @ COOFIL Source_file_name $! $ cootxt :== $bin:cootxt $ coobld :== $bin:coobld $ on error then exit $! if "''p1'" .eqs. "" then inquire p1 "Source file" $ if "''p1'" .eqs. "" then p1 := "*.src" $ verify = 'f$verify("YES") $ cootxt 'p1 'p2 'p3 'p4 'p5 'p6 'p7 'p8 >cootxt.tmp $ coobld cootxt.tmp $ delete cootxt.tmp;* $ if .not. 'verify then 'f$verify("NO") $! $! Done $!