Вчера я обнаружил интересную вещь.
Есть известный веб-клиент icq2go.
Что сделано во Flash
Итак, как видите, щелкнув по нему правой кнопкой мыши, можно увидеть пункт «просмотреть код».
Что я и сделал.
И вот что я увидел:
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 основной #Чулан
-
Типы Политик Использования Интернета
19 Oct, 24 -
Как Новый Iphone5 Собирают На Заводе Foxconn
19 Oct, 24 -
Инвентаризация В Компании
19 Oct, 24 -
Два «Гурмана» Столкнулись Интересами
19 Oct, 24 -
Текущие Тенденции Arpu В Мире
19 Oct, 24