require service { shared string msg0, msg1, msg2, msg3, msg4; resource msg; html Logon = Chat Room

Welcome to The Chat Room

Please enter your on-line name: ; html Update = Chat Room

The Chat Room Service

Messages so far:
<[msg0]>
<[msg1]>
<[msg2]>
<[msg3]>
<[msg4]>

Your new message:

Quit now? ( Yes / No ) ; html ByeBye = Chat Room

Thanks for using The Chat Room

You made <[conns]> connections and wrote <[msgs]> messages. ; session Chat() { html H; bool quit; string name,msg; int connections, written; show Logon receive [name = name]; while (!quit) { reader(msg) { H = Update <[msg0 = msg0, msg1 = msg1, msg2 = msg2, msg3 = msg3, msg4 = msg4]; } show H receive[msg = msg, quit = quit]; connections = connections+1; if (msg!="") { written = written+1; writer (msg) { msg0 = msg1; msg1 = msg2; msg2 = msg3; msg3 = msg4; msg4 = name + "> " + msg; } } } exit ByeBye <[conns = connections, msgs = written]; } }