TOP:
LINPUT "String to send"; S_I$
GO TO DONE IF S_I$ = ""
call tpu$calluser( 0, S_I$, S_O$)
PRINT "Returned string is " + S_O$
GO TO TOP

DONE:
END