say "Serverstart"
srvSock=.bsf~new("java.net.ServerSocket", 4444)
say "Der Server aktzeptiert Clients..."
socket2c=srvSock~accept
say "Client" pp(socket2c~toString) "akzeptiert."
b=.bsf~bsf.createArray('byte.class', 2048)
received=socket2c~getInputStream~read(b)
say "Daten vom Client erhalten" pp(BsfRawBytes(b,received))
n1 = BsfRawBytes(b,received)
received=socket2c~getInputStream~read(b)
say "Daten vom Client erhalten" pp(BsfRawBytes(b,received))
n2 = BsfRawBytes(b,received)
received=socket2c~getInputStream~read(b)
say "Daten vom Client erhalten" pp(BsfRawBytes(b,received))
n3 = BsfRawBytes(b,received)
os=socket2c~getOutputStream
ergebnis = n1*n2*n3
say "Server sendet" pp(ergebnis) "zum Client"
socket2c~getOutputStream~write(BsfRawBytes(ergebnis))
say "Programm beendet"
::requires BSF.CLS