Код В Icq

Вчера я обнаружил интересную вещь.

Есть известный веб-клиент icq2go. Что сделано во Flash

Код в ICQ

Итак, как видите, щелкнув по нему правой кнопкой мыши, можно увидеть пункт «просмотреть код».

Что я и сделал.

И вот что я увидел:

REM Flash ICQ Client версия 1.0 сборка 2 REM #include REM Пришлось закомментировать строку включения, VB это не понравилось REM Инициализировать список контактов 10 КЛС REM CLS добавлен dfl 10 декабря 2003 г.

15 ОТКРЫТЬ ДИАЛОГ БЭМ 20 ДЛЯ I=от 1 до 100 REM dfl 27 декабря 2004 г.

, добавлена поддержка 103 контактов.

20 ДЛЯ I=от 1 до 103 30 ПРОЧИТАТЬ КОНТАКТЫ$ 40 ПЕЧАТЬ КОНТАКТОВ$ 50 СЛЕДУЮЩИЙ Я REM Основной цикл приложения 60 ВХОД "" КОМАНДА$ 65 ЕСЛИ КОМАНДА$ = «ВЫХОД», ТОГДА ПЕРЕХОДИТЕ К 200 70 ЕСЛИ КОМАНДА$ = «SEND_MESSAGE», ТОГДА ПЕРЕХОДИТЕ К 90 75 ЕСЛИ КОМАНДА $ = "GET_MESSAGE" ТОГДА ПЕРЕХОДИТЕ К 100 78 ЕСЛИ КОМАНДА $ = «ВЫЙТИ», ТОГДА ПЕРЕХОДИТЕ К 82 REM $$ Задача: добавить поддержку многоязычного ввода 80 ПЕРЕХОД К 60 82 ПЕРЕХОД К 130 90 ОТПРАВИТЬ СООБЩЕНИЕ$ 95 ПЕРЕХОД К 60 100 ПРОЧИТАТЬ IN_MESSAGE$ 100 PRINT IN_MESSAGE$ 110 ПЕРЕХОД К 60 REM Начать процедуру очистки клиента 130 ПЕРЕХОД К 150 150 ПЕРЕХОД К 170 REM Конец уборке, мы готовы умереть.

170 СТОП 200 КОНЕЦ РЕМ КОНЕЦ

Это БАЗОВОЕ!!!.

Кто-нибудь может объяснить, что здесь происходит? Может быть, это шутка? Теги: #icq source основной #Чулан

Вместе с данным постом часто просматривают:

Автор Статьи


Зарегистрирован: 2019-12-10 15:07:06
Баллов опыта: 0
Всего постов на сайте: 0
Всего комментарий на сайте: 0
Dima Manisha

Dima Manisha

Эксперт Wmlog. Профессиональный веб-мастер, SEO-специалист, дизайнер, маркетолог и интернет-предприниматель.