非常に判りにくいサンプルデス(-_-;)
//HSPSOCKを使って送受信
#include "hspsock.as"
circle 0,0,640,480,1:color $FF,$FF,$FF
font "",64:pos 50,200:mes "Hot Soup Processor"
title "送信側"
//画面を保存
mref vram,66
s=ginfo_winx*ginfo_winy*3
sdim v,s
memcpy v,vram,s
//受け側として起動
screen 1,640,480:title "受け側"
sockmake 0,24000
if stat:dialog "受け側エラー["+stat+"]":end
//送信側として接続
sockopen 1,"localhost",24000
if stat:dialog "送信側エラー["+stat+"]":end
//送信
sockputb v,0,s,1
if stat=0:dialog "送信エラー":end
//受信側の処理
repeat
sockwait 0
if stat=0:break
wait 5
loop
//受信
sdim v2,s
sockgetb v2,0,s,0
if stat=0:dialog "受信エラー":end
//表示
mref vram2,66
memcpy vram2,v2,s
redraw 1