PROC drop:
LOCAL x1%,y1%,x2%
LOCAL t%
LOCAL event&(1)

REM -------Initialize-------
RANDOMIZE MINUTE+SECOND
gBOX 160,160

	REM-------Draw Target-------
	x2%=INT(RND*139)+1	REM Target x Position(Random)
	gAT x2%,153		REM Target Position
	gFILL 20,3,0		REM Draw Target(FillBox)

x1%=10			REM Character Position of X
y1%=10			REM Character Position of Y
gAT x1%,y1%		REM Initial Draw Position
gFILL 5,10,0		REM Draw Box at Initial position

GET				REM Wait until Any Key is pushed

REM -------MOVE X-------
WHILE x1%<=145				REM Start Move X Loop
	PAUSE 2				REM Wait 2/20sec
	gFILL 5,10,1
	x1%=x1%+5
	gAT x1%,y1%
	gFILL 5,10,0

	REM -------Get KeyUp Event-------
		t%=TESTEVENT
			IF t%=-1
				GETEVENT32 event&(1)
				IF event&(1)=&407
					BREAK
				ENDIF
			ENDIF
ENDWH

REM -------MOVE Y-------
WHILE y1%<=140
	PAUSE 2
	gFILL 5,10,1
	y1%=y1%+5
	gAT x1%,y1%
	gFILL 5,10,0
ENDWH

GET
ENDP