6540 PRINT : GOSUB 650