-----------------------------------------------------------

public fontsize
public xx1
public yy1
fontsize=24
disp=getid("WSｴﾐｭﾚｰﾀ","EmlMainWnd")
ifb disp < 0 then
　exec("c:\ws-eml\pcws32.exe")
　sleep (3)    
　repeat
　　sleep (1)
　　disp=getid("WSｴﾐｭﾚｰﾀ","EmlMainWnd")
　until disp<>0
　repeat
　　sleep (1)
　　posxy(2,1)
　　acep=POSACC(disp,xx1,yy1)
　　print acep
　until acep="CO"
　sckey(disp,VK_ALT,C,L)
　repeat
　　sleep (1)
　　posxy(1，11)
　　acep=POSACC(disp,xx1,yy1)
　　print acep
　until acep="識"
　sckey(disp,0,0,0,VK_RETURN)
　repeat
　　sleep (1)
　　posxy(4,1)
　　acep=POSACC(disp,xx1,yy1)
　　print acep
　until acep="RU"
else
　repeat
　　sleep (1)
　　posxy(2,5)
　　acep=POSACC(disp,xx1,yy1)
　　print acep
　until acep="^^"
endif

sckey(disp,S,A,M,P,L,E,VK_OEM_PLUS,VK_RETURN)
repeat
　　sleep (10)
　　posxy(2,5)
　　acep=POSACC(disp,xx1,yy1)
　　print acep
until acep="^^"
sckey(disp,VK_ALT,C,O)

procedure posxy (lin,col)
　　xx1 = fontsize / 2 - 1 + ( col - 1 ) * fontsize / 2
　　yy1 = fontsize + 1 + ( lin - 1 ) * ( fontsize + 2 )
fend