Перед этим сделать CLEAR <адрес кодового блока-1>.