.key filename/a
.bra {
.ket }
IF NOT EXISTS RCS_locks.log
	skip checkout
ENDIF
search RCS_locks.log {filename} QUIET
IF WARN
	skip checkout
ENDIF
;
echo "RCS_locks.log indicates that you already have a lock on {filename}."
echo ""
echo "Use 'rlog {filename}' to see whether you really have a lock on {filename}"
echo "If you don't, just delete the line: 'ci -u -sStab {filename}'"
echo "from RCS_locks.log."
quit
;
LAB checkout
co -l {filename}
echo "ci -u -sStab {filename}" >>RCS_locks.log
;checkout and lock a source file
