2410 KTG=1 : GOSUB 6745