say "Programmstart"
lh=.bsf~bsf.import('java.net.InetAddress') ~getLocalHost
socket2s=.bsf~new('java.net.Socket', lh, 4444)
say "Client ist jetzt mit dem Server verbunden" pp(socket2s~toString)
   
say "Erste Zahl der Multiplikation"
parse pull n1
say "Zweite Zahl der Multiplikation"
parse pull n2
say "Dritte Zahl der Multiplikation"
parse pull n3
socket2s~getOutputStream~write(BsfRawBytes(n1))
socket2s~getOutputStream~write(BsfRawBytes(n2))
socket2s~getOutputStream~write(BsfRawBytes(n3))
b=.bsf~bsf.createArray('byte.class', 100)
received=socket2s~getInputStream~read(b)
say "Die verschiedenen Faktoren: ["||BsfRawBytes(b,received)"]"
say "Programm beendet"
::requires BSF.CLS