/*************************************************************************
/.V2			#KOK V2指定
/*************************************************************************

/*------------------------------------------------------------------------
/;let(C_BLACK, 0)
/;let(C_BLUE , 1);	palette(C_BLUE,0,0,176)
/;let(C_P1,    2);	palette(C_P1  ,0,0,176)
/;let(C_P2,    3);	palette(C_P2  ,0,0,0)
/;let(C_P3,    4);	palette(C_P3  ,0,0,0)
/;let(C_P4,    5);	palette(C_P4  ,0,0,0)

/;boxf(0,24,639,479-16, C_BLACK)
/*------------------------------------------------------------------------
/;palette(7  ,176,176,192)
/;palette(8  , 96, 96,112)
/;palette(8+6,192,192,208)
/;palette(8+7,240,240,240)
/;tifload("gsplay","sample.tif")
/;let(gsplay_xs,455);let(gsplay_ys,25)

/*------------------------------------------------------------------------
/;let(x0,320);let(y0,244)

/;let(y,y0);	let(yd,4<<4)
/;do
/;	line(0, y              , 639, y              ,C_P1)
/;	line(0, y+((  yd>>2)>>4), 639, y+((  yd/4)>>4),C_P2)
/;	line(0, y+((  yd>>1)>>4), 639, y+((  yd/2)>>4),C_P3)
/;	line(0, y+((3*yd>>2)>>4), 639, y+((3*yd/4)>>4),C_P4)
/;	let(y,y+(yd>>4));	let(yd,yd+yd/10)
/;repeat(20)

/;line(0,y0,639,y0,C_BLUE)
/;let(x,0);let(y,479-16);let(xd,32)
/;do
/;	line(x0, y0, x0-x, y, C_BLUE)
/;	line(x0, y0, x0+x, y, C_BLUE)
/;	let(x,x+xd);	let(xd,xd+2)
/;repeat(11)

/;let(y,y0+9);	let(yd,4)
/;do
/;	line(x0, y0,   0, y, C_BLUE)
/;	line(x0, y0, 639, y, C_BLUE)
/;	let(y,y+yd);	let(yd,yd+1)
/;repeat(17)

/*------------------------------------------------------------------------
/;start
/;wait(32)
/;let(tm,16)
/;let(x1,(640-gsplay_xs)/2);let(x2,x1+gsplay_xs-1)
/;let(y_start,y0-gsplay_ys-1);
/;let(yd,y_start-32+1);	/* スクロールドット数	*/
/;let(i,0)
/;let(y,y_start);			tifput("gsplay",x1,y,-1,-1)
/;do
/;	wait(2)
/;	boxf(x1, y, x2, y+gsplay_ys-1, 0)
/;	let(i,i+1)
/;	let(y,y_start-i*yd/tm);	tifput("gsplay",x1,y,-1,-1)
/;repeat(tm)

/;let(len,27)
/;let(x1,630-(len+1)*8);let(x2,639-8);let(y,54)
/;puts(x1,y,7,0,"Copyright (C) 1993, TaroPYON")
/;chgcol(x1,y+6,x2,y+7,7,15)
/;chgcol(x1,y+5,x2,y+5,7,14)
/;chgcol(x1,y+8,x2,y+8,7,14)

/*------------------------------------------------------------------------
/;let(wt,4)
/;do
/;	palette(C_P4,0,0,0);palette(C_P1,0,0,176);	wait(wt)
/;	palette(C_P1,0,0,0);palette(C_P2,0,0,176);	wait(wt)
/;	palette(C_P2,0,0,0);palette(C_P3,0,0,176);	wait(wt)
/;	palette(C_P3,0,0,0);palette(C_P4,0,0,176);	wait(wt)

/;	palette(C_P4,0,0,0);palette(C_P1,0,0,176);	wait(wt)
/;	palette(C_P1,0,0,0);palette(C_P2,0,0,176);	wait(wt)
/;	palette(C_P2,0,0,0);palette(C_P3,0,0,176);	wait(wt)
/;	palette(C_P3,0,0,0);palette(C_P4,0,0,176);	wait(wt)
/;repeat(101)
/*------------------------------------------------------------------------

/;end