C* ソケット獲得を待つ ------------------------------------*
C CALL 'SKTAKE'
C PARM SD 4
C PARM RC 1
C PARM 'SOKBCH 'APLID 8
C*--------------------------------------------------------*