Двойная осторожность (Фрэнсис) - страница 32

Кличка лошади Джонатан Дерри Тед Питтс Шансы на победу 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), но никто другой этого знать не будет.