*start
tmove=3:mshot=5:mteki=30:dim shot,mshot:dim sside,mshot:dim shigh,mshot:dim tekion,mteki:dim tside,mteki:dim thigh,mteki:dim tmoves,mteki:dim tsmove,mteki:dim tnows,mteki:dim
tmtype,mteki:side=150:high=300:score=0:nshot=0:nteki=0:ziki=0:tekidasu=0:drnd=-2:screen 0,250,400,1:repeat 1:redraw 0:palcolor 255:boxf 0,0,250,400:stick key,31:side+(key&4/4)-(key&1):high+(key&8/8)-(key&2/2):if key&16 {repeat mshot
nshot=cnt:if shot.nshot!1:shot.nshot=1:sside.nshot=side:shigh.nshot=high-15:break
loop }:if side<0:side=0:if side>241:side=241:if high<0:high=0:if high>385:high=385
repeat mshot:nshot=cnt:if shot.nshot=1:if shigh.nshot>-15:shigh.nshot-15:else:shot.nshot=0
if shot.nshot=1:pos sside.nshot,shigh.nshot:palcolor 0:mes "I"
palcolor 0:pos side,high:if ziki=0:mes "M":else:mes "*"
loop:repeat mteki:nteki=cnt:if tekion.nteki=1 {thigh.nteki+tmoves.nteki:tnows.nteki+tmoves.nteki
if tsmove.nteki<=tnows.nteki:tside.nteki+tmtype.nteki:tnows.nteki=0
if (thigh.nteki>=398)|(tside.nteki<=-7)|(tside.nteki>=249):tekion.nteki=0
repeat mshot:nshot=cnt:if shot.nshot=1:if (sside.nshot-5<=tside.nteki)&(sside.nshot+5>=tside.nteki)&(shigh.nshot<=thigh.nteki)&(shigh.nshot+13>=thigh.nteki):tekion.nteki=2:shot.nshot=0:score++
loop }:if tekion.nteki>=1:palcolor 249:pos tside.nteki,thigh.nteki:if tekion.nteki=1:mes "W":else:tekion.nteki++:if tekion.nteki=5:tekion.nteki=0:mes "*"
if (tside.nteki+7>=side)&(tside.nteki-6<=side)&(thigh.nteki+11>=high)&(thigh.nteki-12<=high):ziki=1
if tekion.nteki=0 {randomize:rnd thigh.nteki,256:randomize:rnd tside.nteki,242:randomize:rnd tmoves.nteki,tmove:tmoves.nteki++:randomize:rnd tsmove.nteki,40:tsmove.nteki++:if drnd=1:drnd=-2
drnd++:tmtype.nteki=drnd:thigh.nteki=thigh.nteki*-1-14:tekion.nteki=1:break }:loop:redraw 1:await 10:title "Mstg score "+score:if ziki=0:continue 0:loop:pos 80,180:palcolor 0:mes "GAME OVER":button "RESTART",*start:stop