repeat
redraw 0
c = c+5
if c > 255:c = 255
cls 4
color c,c,c
font "メイリオ", 24, 0
pos (WINDOW_X-353)/2,(WINDOW_Y - 24) / 2
msg "Product of The Necaralt Group"
b = audioGetPosition(INTRO_1)
if a <= b+750 :break
redraw 1
await 24
loop