mirror of
https://github.com/vishapoberon/vipak.git
synced 2026-04-05 20:42:26 +00:00
29 lines
356 B
Modula-2
29 lines
356 B
Modula-2
MODULE test;
|
|
|
|
IMPORT irc;
|
|
|
|
VAR
|
|
|
|
owner, nick, serv, port, chan: ARRAY 32 OF CHAR;
|
|
|
|
PROCEDURE testBot;
|
|
|
|
BEGIN
|
|
irc.nick := nick;
|
|
irc.host := serv;
|
|
irc.port := port;
|
|
irc.channel := chan;
|
|
irc.user := owner;
|
|
irc.connect;
|
|
END testBot;
|
|
|
|
BEGIN
|
|
owner := "norayr";
|
|
nick := "norayr";
|
|
serv := "irc.freenode.net";
|
|
port := "6667";
|
|
chan := "#oberon";
|
|
|
|
testBot;
|
|
|
|
END test.
|