Microsoft Small Basic

Program Listing: FLK360

List Program

GraphicsWindow.Show()
Timer.Tick = SoundProc
Timer.Interval = 10
MoveDist = 10
FlipFlag = 1
Turtle.Show()
While 1=1
Turtle.Move(MoveDist)
Turtle.TurnRight()
FlipFlag = -FlipFlag
If FlipFlag = 1 Then
MoveDist = MoveDist + 10
EndIf
EndWhile

Sub SoundProc
Timer.Pause()
Sound.PlayMusic("G4.E8G4.E8E4.D8D3D4.D8C4.D8E3.R4")
Sound.PlayMusic("G4.G8E4.G8E4.D8C4.C8D4.D8E4.D8C3.R4")
Sound.PlayMusic("G4.G8G4.G8A4.A8A2>C4.C8C4. Sound.PlayMusic("A4.A8>C4. Timer.Resume()
EndSub