Двойная осторожность

Там были вопросы о производителях, о жокее, тренере, о том, сколько дней прошло со времени последних скачек, в которых участвовала лошадь, и какие суммы она выиграла, и последний вопрос:

«Предварительные шансы лошади оцениваются как 1 к 25 или ниже?»

Тед напечатал «Да», и экран сказал просто: «Другие лошади?»

Тед снова напечатал «Да», и мы вернулись к "Введите кличку лошади и нажмите «ENTER».

— Это не гандикап! — сказал я.

— А вы думали, это гандикап? — Тед покачал головой. — Нет, это скорее расчет статистических вероятностей. Ну что, повторим, а потом ответим «Нет» на вопрос «Другие лошади?».

Он напечатал кличку лошади «Тед Питтс», но ответы на этот раз давал другие, и, когда он ответил «Нет» на последний вопрос, экран очистился и на нем загорелась табличка:

Кличка лошади Джонатан Дерри Тед Питтс Шансы на победу 27:12.

— Шансов у вас никаких, — заметил я. — Вы с тем же успехом можете остаться в стойле.

Тед немного растерялся, потом рассмеялся.

— Да, конечно! Вот это что такое. Программа для игроков.

Он напечатал вместо «RUN» «LIST» — «Просмотреть», и на экране появились строчки программы, но они прокручивались слишком быстро, чтобы успеть их прочитать, совсем как информация о вылетах на табло в аэропорту. Тед помурлыкал что-то себе под нос и напечатал «LIST 10-140». Экран немного помигал и через некоторое время выдал следующее:

"LIST 10-140 10 PRINT "Какая из скачек в Эпсоме? Введите название скачки и нажмите «ENTER».

20 INPUT A$ 30 IF А$="Дерби" THEN 330 40 IF А$="Оукс" THEN 340 50 IF А$="Кубок Короны" THEN 350 60 IF А$="Голубая лента" THEN 360"

И так далее, до конца экрана. Тед одобрительно проглядел все это и сказал:

— Проще простого.

Насколько я помнил, знак доллара означает, что ввозимая информация должна быть буквенной. Если бы там стояло «INPUT А», без знака доллара, это означало бы, что должны быть введены цифры. А дальше, в зависимости от того, какое слово ввели, предлагалось перейти к указанной строке.

Тед выглядел совершенно счастливым. Он напечатал «LIST 300-380», и получил следующее: в строке 330 стояло «LETA=10, В=8, С=6, D=2, Dl=2».

Строки 332, 334 и 336 выглядели точно так же, только цифры были другие.

— Это оценка, — сказал Тед. — Каждому ответу присваивается определенный балл. За первый вопрос — десять очков. Какой у нас был первый вопрос? Выигрывала ли лошадь скачки. И так далее. Ответу на последний вопрос тоже присвоено десять очков. Какой там был вопрос? Насчет предварительных шансов, да?

Я кивнул.

— Ну вот, — продолжал Тед. — Для каждой скачки — своя оценка. Хотя, конечно, для разных скачек вопросы могут варьироваться. Гм-гм. Посмотрим?

— Если у вас есть время...

— Ну конечно! Для апэпэшки время всегда найдется. Люблю я это дело, знаете ли.

Он снова напечатал «LIST» с другими номерами строк и обрел такие перлы, как 520 IF N$="HET" THEN GOTO 560: X=X+B 530 INPUT N$: AB=AB+1 540 IF N$="HET" THEN GOTO 560: X=X+M 550 T=T+G2 560 GOSUB 4000 — А это что за галиматья? — спросил я.

— Хм... ну... видите ли, написать свою программу куда проще, чем прочесть и понять чужую. Программы — вещь ужасно индивидуальная. К одному и тому же результату можно прийти совершенно разными путями. В смысле, если вы, к примеру, едете из Лондона в Бристоль, то вам нужна магистраль М-4, и она всю дорогу называется М-4, но в программе вы в любой точке пути можете назвать магистраль как вам заблагорассудится. Сами-то вы будете знать, что в определенный момент М-4 будет называться, скажем, К-2, или РТ-З, или В-7(2), но никто другой этого знать не будет.

— Это вы тоже детям так объясняете?

— Гм... да. Извините. Привычка. — Тед взглянул на экран. — Ну, видимо, вот эти строчки предназначены для того, чтобы пропускать отдельные вопросы, если предыдущие ответы сделали их ненужными, и переходить сразу в следующую часть программы. Если бы я распечатал всю программу, я мог бы понять, что тут к чему.

Я покачал головой:

— Не надо. Давайте лучше посмотрим какую-нибудь другую программу.

— Давайте.

Тед открутил пленку в начало и напечатал "Cload «Donca», и когда на экране загорелось «ready», напечатал «run».

Нас немедленно спросили: "Какая из скачек в Донкастере? Введите название скачки и нажмите «ENTER».

— Хорошо, — сказал Тед, нажимая на клавиши. — Как насчет того, чтобы посмотреть что-нибудь подальше? Скажем, «GOODW»?

Мы получили "Какая из скачек в Гудвуде? Введите название скачки и нажмите «ENTER».

— Я не знаю, какие скачки есть в Гудвуде, — сказал я.

— Ну, это просто! — сказал Тед и напечатал «LIST 10-140». Когда экран перестал мигать, мы увидели следующее:

"LIST 10-140 10 PRINT "Какая из скачек в Гудвуде? Введите название скачки и нажмите «ENTER».

20 INPUT A$ 30 IF А$="Приз Гудвуда" THEN 330 40 IF А$="Кубок Гудвуда" THEN 340" и так далее.

Всего в списке было пятнадцать скачек.

— А что будет, если ввести название скачки, которой нет в программе?

— спросил я.

— Давайте посмотрим, — сказал Тед. Он напечатал «run», и мы снова вернулись к «Какая из скачек в Гудвуде?» Тед напечатал «Дерби», и экран ответил: «По этой скачке информации не имеется».