socket api call tutorial

[cesarjauregui]

I am getting an RNQ0103, The target for a numeric operation is too small to hold the result on the eval s1 = NewListener(port1: errmsg)

D NewListener PR 10I 0
D pePort 5U 0 value
D peError 5000A

C*************************************************
C* Listen on both ports given
C*************************************************
c eval s1 = NewListener(port1: errmsg)
c if s1 < 0
c callp die(errmsg)
c return
c endif

any ideas?

[Scott Klement]

how is S1 defined?