LOCATEとDIAROGを使ってコントロールするのがいいかと思います。 また、1度きりなら上の方がおっしゃってる通り僕もGOTOを消せばいいかと思います。