$SCR #MOVE =1B while #scr =10B