20 INPUT "Ваш выбор (1-3)";CH
27 ON CH GOSUB 31,32,33:END
31 PRINT "1":RETURN'Попадаем сюда, если CH=1
32 PRINT "2"'RETURN'Попадаем сюда, если CH=2
33 PRINT "3"'RETURN'Попадаем сюда, если CH=3