Microsoft Small Basic

Program Listing: NFZ931

List Program

GraphicsWindow.Title="ラケット自由自在 2011.12.1"
'
Mouse.HideCursor()
raketto=Shapes.AddRectangle(100,20)
'
Kurikaesi:
Shapes.Move(raketto,GraphicsWindow.mousex,GraphicsWindow.mousey)
If Mouse.IsLeftButtonDown Then
Goto Owari
EndIf
Goto Kurikaesi
'
Owari: