Это сайт — моя персональная записная книжка. Интересна мне, по большей части, история, своя жизнь и немного программирование.

ICQ2Go: humor? Moja ponimat!

У ICQ есть онлайн-клиент, написанный на Flash, многие, наверное, его видели. Но, думаю, мало кто видел, что будет, если кликнуть на нём правой кнопкой мыши и выбрать «View Source» («посмотреть исходный код»). В окно подгружается якобы исходный код этого клиента:

REM Flash ICQ Client version 1.0 build 2

REM #include <stdio.h>
REM Had to comment out the include line, VB didn't like it 

REM Initialize contact list
10 CLS
REM CLS added by dfl 10 Dec 2003

15 OPEN DIALOG
REM 20 FOR I=1 to 100
REM dfl 27-Dec-2004, added support for 103 contacts
20 FOR I=1 to 103
30		READ CONTACT$
40		PRINT CONTACT$
50	NEXT I

REM Main application loop

60 INPUT "" COMMAND$
65 IF COMMAND$ = "EXIT" THEN GOTO 200
70 IF COMMAND$ = "SEND_MESSAGE" THEN GOTO 90
75 IF COMMAND$ = "GET_MESSAGE" THEN GOTO 100
78 IF COMMAND$ = "QUIT" THEN GOTO 82
REM $$ Todo: add support for multilingual input
80 GOTO 60
82 GOTO 130

90 SEND MESSAGE$
95 GOTO 60
100	READ IN_MESSAGE$
100 PRINT IN_MESSAGE$
110 GOTO 60

REM Begin client cleanup sequence

130 GOTO 150
150 GOTO 170

REM End cleanup, we're ready to die

170 STOP
200 END

REM END
8 комментариев
fantaseour.livejournal.com 2008

Изощренные люди :)
Какими извращениями Вы страдаете? -​-​ Что Вы, доктор, я ими наслаждаюсь.

Евгений Степанищев (bolknote.ru) 2008

Комментарий для fantaseour.livejournal.com:

Очень приятно пошутили :)

adengin.livejournal.com 2008

Забавно :)

Ramon (rembish.ru) 2008

BASIC!!!

Евгений Степанищев (bolknote.ru) 2008

Комментарий для rembish.ru:

Он самый, причём, самый кондовый :)

Ramon (rembish.ru) 2008

Я на таком в детстве на Yamaha’е писал. Весело было.

Евгений Степанищев (bolknote.ru) 2008

Комментарий для rembish.ru:

Я писал на ZX Spectrum на похожем, но тот был довольно мощным.

Alisey (alisey.myopenid.com) 2008

Прелесть.