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

/*------------------------------------------------------------------------
/;writePage(0);	resolution(10)	#	640×480    16 colors
/;writePage(1);	resolution(3)	#	320×240 32768 colors

/*------------------------------------------------------------------------
/*	32768 colors screen
/;writePage(0);
/;box(0,0,319,239,0)
/;let(i,0)
/;do
/;  let(y0,i*4)
/;  let(col,31-i)
/;  boxf(0,y0,319,y0+7,col)
/;  let(i,i+1)
/;repeat(32)

/;let(x,84);let(y,96)
/;let(col ,(15<<10)+(15<<5)+15);
/;let(col2,(31<<10)+(31<<5)+31);
/;let(col3,(22<<10)+(22<<5)+22);
/;fontstyle(BOLD,ITALIC,SHADOW)
/;fontcolor(col,0)
/;fontdirection(0,0,1)
/;fontlocate(x,y+15)
/;fontdisplay(PSET)
/;text("32768 colors screen")
/;chgcol(0,y+ 6,319,y+ 7,col,col3)
/;chgcol(0,y+ 8,319,y+ 8,col,col2)
/;chgcol(0,y+ 9,319,y+10,col,col3)

/*------------------------------------------------------------------------
/*	16 colors screen
/;writePage(1);
/;let(C_BLACK,  0)
/;let(C_BLUE ,  2);	palette(C_BLUE,0,0,176)
/;let(C_P1,     3);	palette(C_P1  ,0,0,176)
/;let(C_P2,    11);	palette(C_P2  ,0,0,0)
/;let(C_P3,    12);	palette(C_P3  ,0,0,0)
/;let(C_P4,    13);	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(loops,101)
/;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(loops)

/*------------------------------------------------------------------------
/;writePage(0)
/;wait(-wt*8*loops)		#タイミングを戻す

/;wait(32*8)
/;let(i,0)
/;do
/;  let(y0,i*4)
/;  let(col,(31-i)*32*32)
/;  boxf(0,y0,319,y0+7,col)
/;  let(i,i+1)
/;repeat(32)

/;wait(32*8)
/;let(i,0)
/;do
/;  let(y0,i*4)
/;  let(col,(31-i)*32)
/;  boxf(0,y0,319,y0+7,col)
/;  let(i,i+1)
/;repeat(32)

/;wait(32*8)
/;let(i,0)
/;do
/;  let(y0,i*4)
/;  let(col,31-i)
/;  boxf(0,y0,319,y0+7,col)
/;  let(i,i+1)
/;repeat(32)

/*------------------------------------------------------------------------
/;writePage(1)
/;let(y,24)
/;let(col,0)
/;do
/;  let(y,y-1)
/;  boxf(0,y,639,y,col)
/;	wait(2)
/;repeat(24)
/;wait(16)

/*------------------------------------------------------------------------

/;end