10 INPUT K:ON INTERVAL=K*60 GOSUB 80
30 INTERVAL ON:GOSUB 100:INTERVAL STOP:GOSUB 100
50 INTERVAL ON:GOSUB 100:INTERVAL OFF:GOSUB 100
70 END
80 PRINT "Проверка":RETURN
100 FOR K=1 TO 7000:NEXT:RETURN