set PMGf 0 ".\onsen.pgf"
set PMGf 1 ".\yuge.pgf"
begin
screen 0 3
screen 1 3
display 0 none
mouse on
effect disable

point set 0 384 0
layer set 0
background 1
point set 0 0 0
background 1

point set 1 0 0
layer set 1
background 0
display set 0 move 384 0
display 0 both
effect very slow dissolve
object 0

for 8
 display set 0 move 384 0
 for 12
  for 4
  roll 0 0 -1 4 5
  roll 0 1 -1 3 5
  roll 0 0 -1 4 5
  roll 0 1 1 3 0
  button get end 1
  next
 next
next
wipe 0 very slow dissolve
wait 200
end