4040 GOSUB 500 : PRINT : GOSUB 2405