3240 GOSUB 3450