⬆️ ⬇️

ICQ code

Found an interesting thing yesterday.

There is a well-known web client icq2go

Which is made in Flash





So, as you can see, right-clicking on it you can see the “view code” item.

What I did.



And that's what I saw:

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




This is Basic !!! ..

Who can explain what's the matter?

Maybe this is a joke?

Source: https://habr.com/ru/post/11559/



All Articles