mh=128
width 640,mh
w=640
buffer 2,w,480
y=0
fsize=16
font msgothic,fsize
s="アーノルド・シュワルツェネッガー": gosub *l_mes
s="ブルース・ウィリス": gosub *l_mes
s="ミシェル・ファイファー": gosub *l_mes
s="ロバート・デ・ニーロ": gosub *l_mes
s="ニコール・キッドマン": gosub *l_mes
s="メリル・ストリープ": gosub *l_mes
s="ジョディ・フォスター": gosub *l_mes
s="メグ・ライアン": gosub *l_mes
s="レイチェル・ワイズ": gosub *l_mes
s="アン・バンクロフト": gosub *l_mes
s="カレン・ブラック": gosub *l_mes
s="": gosub *l_mes
gsel 0
repeat num*fsize+mh
redraw 2
pos 0,0: gcopy 0,0,1,640,mh-1
pos 0,mh-1: gcopy 2,0,cnt,640,1
redraw 1
await 10
loop
wait 100
end
*l_mes
l=strlen(s)
pos (w-l*fsize/2)/2,y: mes s
y+=fsize
num++
return