1190 KTP=1 : GOSUB 7250