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

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

«Предварительные шансы лошади оцениваются как 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», и мы снова вернулись к «Какая из скачек в Гудвуде?» Тед напечатал «Дерби», и экран ответил: «По этой скачке информации не имеется».

- Дешево и сердито! - сказал Тед.