二つくらいの変数(crxとcry)とラベルを投げ捨てて(飛ぶラベル)、文字の乗算等のアドバイス、Repeat - until、!などを利用し読みやすさを放り投げた結果かなり(?)コンパクトになりました！ありがとうございます！