程序代码：

u_short WSAAPI htons(
  [in] u_short hostshort
);

程序代码：

...
    PROTECTED PROCEDURE dodecl
        DECLARE INTEGER WSAStartup IN ws2_32 INTEGER wVersion, STRING @lpWSAData
        DECLARE INTEGER WSACleanup IN ws2_32
        DECLARE INTEGER listen IN ws2_32 INTEGER s, INTEGER backlog
        DECLARE INTEGER accept IN ws2_32 INTEGER s, STRING @addr, INTEGER @addrlen
        DECLARE INTEGER socket IN ws2_32 INTEGER af, INTEGER type, INTEGER protocol       
        DECLARE INTEGER bind IN ws2_32 as _bind INTEGER s, STRING @sockaddr, INTEGER namelen
        DECLARE INTEGER send IN ws2_32 INTEGER s, STRING buf, INTEGER len, INTEGER flags       
        DECLARE INTEGER sendto IN ws2_32;
            INTEGER s, STRING buf, INTEGER len, INTEGER flags,;
            STRING @to, INTEGER tolen       
        DECLARE INTEGER accept IN ws2_32 INTEGER s, STRING @addr, INTEGER @addrlen
        DECLARE INTEGER recvfrom IN ws2_32;
            INTEGER s, STRING @buf, INTEGER len, INTEGER flags,;
            STRING @from, INTEGER @fromlen
        DECLARE INTEGER connect IN ws2_32 INTEGER s, STRING @name, INTEGER namelen                      
        DECLARE INTEGER recv IN ws2_32 INTEGER s, STRING @buf, INTEGER len, INTEGER flags        
        DECLARE STRING inet_ntoa IN ws2_32 INTEGER in
        DECLARE INTEGER inet_addr IN ws2_32 STRING @cp
        DECLARE INTEGER ntohs IN ws2_32 INTEGER netshort
        DECLARE INTEGER htons IN ws2_32 INTEGER netshort
        DECLARE INTEGER WSACleanup IN ws2_32
        DECLARE INTEGER closesocket IN ws2_32 INTEGER s
...