On OpenCard
 set bitmap of btn gradel to gradels
 set bitmap of btn gradem to gradem
 set bitmap of btn gradeh to gradeh
 put 0 into grade_level

if TheFirstSpeech is not 999 then
   put 999 into TheFirstSpeech
wait 100 ticks
put 4 into ntx

play begin1
naratoranimex
wait 20 ticks
put 6 into ntx

play begin2
naratoranimex
wait 60 ticks
put 2 into ntx

play begin3
naratoranimex
wait 30 ticks

go cd 3
end if
end OpenCard




On naratoranimex
show btn narator1
repeat ntx times
set bitmap of btn narator1 to narator2
wait 5 ticks
if random(15) = 8 then
 wait 10 ticks

 end if
set bitmap of btn narator1 to narator1
wait 5 ticks
if random(15) = 8 then
 wait 10 ticks
end if
set bitmap of btn narator1 to narator2
wait 5 ticks

set bitmap of btn narator1 to narator3
wait 5 ticks

if random(15) = 8 then
 wait 10 ticks
end if
end repeat

End naratoranimex

