Microsoft Small Basic

Program Listing: XMK047

List Program

w=0
a=10
GraphicsWindow.KeyUp=onkey


draw()

Sub onkey
key=graphicswindow.LastKey

If key="Up" then
w=w+1
endif
If (key="Down") and (w>0)then
w=w-1
endif
If (key="Left") and (a>0)then
a=a-1
endif
If key="Right" then
a=a+1
endif

draw()
EndSub



Sub draw
GraphicsWindow.Clear()
For h=-0 To 600 Step 20
For x=-200 To 1600 Step 20
' d=h/2
d=w*Math.Sin(6.28*h/200) ' 40 100
y=h+a*math.Sin(6.28*(x-d)/100)

GraphicsWindow.FillEllipse(x-d-5,y-5,10,10)


endfor
endfor

endsub