23〜35がメインルーチンになっているので、 38〜45行を、「サブルーチン」にしましょう。 32行目のGOTOを、GOSUBに書き換えて。 45行目のGOTO @Bを消して、 その次にRETURNと入れましょう。