say"Waiting for Client to connect...."
srvSock=.bsf~new("java.net.ServerSocket", 8888)
socket2client=srvSock~accept            --accept and return socket to client

inputStream      =socket2client~getInputStream
inputStreamReader=.bsf~new("java.io.InputStreamReader", inputStream)
bufferedReader =.bsf~new("java.io.BufferedReader", inputStreamReader)

signal on syntax                        -- activate signal handling, e.g. resetting socket
do until string=.nil
    string=bufferedReader~readLine
    if string<>.nil then
    do
        if string == "zoll"             --next lines, cm converted into zoll
        then do
        say "Bitte die Zahl, welche umgerechnet werden soll, in Zentimeter eingeben"
        parse pull zahl
        ergebnis =zahl * 0.393701
        Say ergebnis "zoll"
    end
        else if string == "Fuß" then    --next lines, cm converted into feet
        do
        say "Bitte die Zahl, welche umgerechnet werden soll, in Zentimeter eingeben"
        parse pull zahl1
        ergebnis1 = zahl1 * 0.0328084
        say ergebnis1 "Fuß"
    end
    else
    do
        say "<Rexx-server received>:" pp(string)
        end
    end
end
syntax:                         -- label (target) for syntax exception

os=socket2client~getOutputStream
msg="Wie ich sehe konntest du dich verbinden"
say ""msg""

say "Server: program ended."

::requires BSF.CLS              --get Java support