#LOCAL INTEGER Spref_forw
#LOCAL INTEGER cpclock_forw
#LOCAL INTEGER Lock_flag
#STORAGE INTEGER:3
Spref_forw = STORI(NSTORI)
cpclock_forw = STORI(NSTORI+1)
Lock_flag = STORI(NSTORI+2)
IF (TIMEZERO) THEN
Spref_forw = 0
cpclock_forw = 1
END IF
IF ($Enable_Flag .NE. cpclock_forw) THEN
cpclock_forw = $Enable_Flag
IF ($Lock .EQ. 0) THEN
CALL LOCK_LOCK($Max_modulenum, $S1, $S2, Spref_forw)
Lock_flag = 0;
ELSE
IF (Lock_flag .EQ. 0) THEN
CALL UNLOCK_SUB($Max_modulenum, $S1, $S2, Spref_forw,
& $Upref,$Ip,$OPT_in, $Uc)
Lock_flag = 1;
ELSE
CALL BANLANCE_CAP(Spref_forw, $Upref, $Uc, $Ip, $S1,
& $S2, $Max_modulenum, $OPT_in,$U_sm,$V_tri,$SW_Num)
END IF
END IF