実際にやってみたところ、GOSUBを消して@STARTの部分を先頭に持ってくれば大丈夫でした。また、このままだとT=1のところでエラーになるので、そこの解決も必要です。