;
;	NS-5000用　簡単なプログラム例 1　2012,12/29
;
#include "hspext.as"
	
	comxx = 4			;仮COM番号
	sdim rxbyte,50
	
	mes "COM?"
	input comxx,30,20,2
		
	button "スタート",*start
	stop
	
;
*start
	comopen comxx,"baud=9600 parity=N data=8 stop=1"
	if stat == 1 {
		dialog "COM"+comxx+" Open Error !",1
		stop
	}
	
	button "NS-?",*dsptitle
	stop

*dsptitle
	comput ":*V#"
	wait	10	;wait 100ms   /10ms単位
	comget rxbyte
	mes	rxbyte
	stop

*exit
	comclose
	end