変な所はないので、たぶん、GOSUB @TOPとGOTO @FIRSTの間にVSYNCを入れるといいですよ。