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
Source: https://habr.com/ru/post/11559/