title "電光掲示板"
	;//	WindowID 1 に文字を用意
	buffer 1,640,24
	mes "     電光掲示板サンプル"
	;//	ずらしながら表示
	repeat
		repeat 256
			wait 1
			x=cnt
			gosub *draw
		loop
	loop

	;//	表示
*draw
	gsel 0
	redraw 0
	color 0,0,0
	boxf 0,0,640,256
	color 255,0,0
	repeat 16
		y=cnt
		repeat 40
			gsel 1
			pget cnt+x,y
			gsel 0
			if rval == 0 :pos cnt*16,y*16:mes "●"
		loop
	loop
	redraw 1
	return