Microsoft Small Basic

Program Listing: MKZ973

List Program

GraphicsWindow.Show()
GraphicsWindow.Left = 0.35 * (Desktop.Width - GraphicsWindow.Width)
GraphicsWindow.Top = 0.2 * (Desktop.Height - GraphicsWindow.Height)
GraphicsWindow.Width = 800
GraphicsWindow.Height = 600
GraphicsWindow.CanResize = "False"
GraphicsWindow.Title="Hazırlayan:Yusif Həsənquliyev"

background = ImageList.LoadImage( "C:\Hanoyqullesi\bakqrunty.bmp")
GraphicsWindow.DrawImage(background, 0, 0)
w = 10
h = 15

Controls.AddButton("SİL",745,570)
controls.ButtonClicked=OnButtonClicked
GraphicsWindow.PenWidth = 4
GraphicsWindow.PenColor ="red"
GraphicsWindow.KeyDown=pro
Turtle.Speed = 10
Turtle.Show()
Sub OnButtonClicked
GraphicsWindow.Clear()
background = ImageList.LoadImage( "C:\Hanoyqullesi\bakqrunty.bmp")
GraphicsWindow.DrawImage(background, 0, 0)
w = 10
h = 15
Controls.AddButton("SİL",745,570)
EndSub

Sub pro
If w<780 Then
metka:
If GraphicsWindow.LastKey="Space" Then
w=w+30
EndIf
If GraphicsWindow.LastKey="A" Then
' "A"
Turtle.PenUp()
Turtle.MoveTO(w,h)
Turtle.MoveTO(w,h+40)
Turtle.PenDown()
Turtle.MoveTO(w+10,h)
Turtle.MoveTO(w+20,h+40)
Turtle.PenUp() '
Turtle.MoveTO(w+5,h+20)
Turtle.PenDown()
Turtle.MoveTO(w+15,h+20)
w=w+30
EndIf
If GraphicsWindow.LastKey="Z" Then
' z
Turtle.PenUp()
Turtle.MoveTO(w,h)
Turtle.MoveTO(w,h+40)
Turtle.PenDown()
Turtle.MoveTO(w+20,h+40)
Turtle.PenUp()
Turtle.MoveTO(w,h)
Turtle.PenDown()
Turtle.MoveTO(w+20,h)
Turtle.MoveTO(w,h+40)
w=w+30
EndIf
If GraphicsWindow.LastKey="M" Then
' m
Turtle.PenUp()
Turtle.MoveTO(w,h)
Turtle.MoveTO(w,h+40)
Turtle.PenDown()
Turtle.MoveTO(w,h)
Turtle.MoveTO(w+10,h+40)
Turtle.MoveTO(w+20,h)
Turtle.MoveTO(w+20,h+40)
w=w+30
EndIf
If GraphicsWindow.LastKey="X" Then
' x
Turtle.PenUp()
Turtle.MoveTO(w,h)
Turtle.PenDown()
Turtle.MoveTO(w+20,h+40)
Turtle.PenUp()
Turtle.MoveTO(w,h+40)
Turtle.PenDown()
Turtle.MoveTO(w+20,h)
w=w+30
EndIf
If GraphicsWindow.LastKey="V" Then
' v
Turtle.PenUp()
Turtle.MoveTO(w,h)
Turtle.PenDown()
Turtle.MoveTO(w+10,h+40)
Turtle.MoveTO(w+20,h)
w=w+30
EndIf
If GraphicsWindow.LastKey="K" Then
' k
Turtle.PenUp()
Turtle.MoveTO(w,h)
Turtle.MoveTO(w,h+40)
Turtle.PenDown()
Turtle.MoveTO(w,h)
Turtle.PenUp()
Turtle.MoveTO(w+20,h)
Turtle.PenDown()
Turtle.MoveTO(w,h+20)
Turtle.MoveTO(w+20,h+40)
w=w+30
EndIf
If GraphicsWindow.LastKey="H" Then
' "H"
Turtle.PenUp()
Turtle.MoveTo(w, h)
Turtle.PenDown()
Turtle.MoveTo(w, h+40)
Turtle.MoveTo(w, h + 20)
Turtle.TurnRight()
Turtle.Move(20)
Turtle.MoveTo(w + 20, h)
Turtle.Angle = 180
Turtle.Move(40)
w=w+30
EndIf
If GraphicsWindow.LastKey="I" Then
'İ
Turtle.PenUp()
Turtle.MoveTO(w,h)
Turtle.MoveTo(w+10, h+40)
Turtle.PenDown()
Turtle.MoveTO(w+10,h)
Turtle.PenUp()
Turtle.MoveTO(w+10,h-2)
Turtle.PenDown()
Turtle.MoveTO(w+10,h-5)
w=w+20
EndIf
If GraphicsWindow.LastKey="Oem1" Then
'ı
Turtle.PenUp()
Turtle.MoveTO(w,h)
Turtle.MoveTo(w+10, h+40)
Turtle.PenDown()
Turtle.MoveTO(w+10,h)
w=w+20
EndIf
If GraphicsWindow.LastKey="T" Then
't
Turtle.PenUp()
Turtle.MoveTO(w,h)
Turtle.MoveTo(w+10, h+40)
Turtle.PenDown()
Turtle.MoveTO(w+10,h)
Turtle.MoveTO(w,h)
Turtle.MoveTO(w+20,h)
w=w+30
EndIf
If GraphicsWindow.LastKey="R" Then
'r
Turtle.PenUp()
Turtle.MoveTO(w,h)
Turtle.MoveTo(w, h+40)
Turtle.PenDown()
Turtle.MoveTO(w,h)
Turtle.MoveTO(w+12,h)
For i=1 To 5
Turtle.Turn(13)
Turtle.Move(2)
EndFor
Turtle.MoveTO(w+20,h+12)
For i=1 To 5
Turtle.Turn(13)
Turtle.Move(2)
EndFor
Turtle.MoveTO(w,h+20)
Turtle.MoveTO(w+20,h+40)
w=w+30
EndIf
If GraphicsWindow.LastKey="P" Then
'p
Turtle.PenUp()
Turtle.MoveTO(w,h)
Turtle.MoveTo(w, h+40)
Turtle.PenDown()
Turtle.MoveTO(w,h)
Turtle.MoveTO(w+12,h)
For i=1 To 5
Turtle.Turn(13)
Turtle.Move(2)
EndFor
Turtle.MoveTO(w+20,h+12)
For i=1 To 5
Turtle.Turn(13)
Turtle.Move(2)
EndFor
Turtle.MoveTO(w,h+20)
w=w+30
EndIf
If GraphicsWindow.LastKey="B" Then
'b
Turtle.PenUp()
Turtle.MoveTO(w,h)
Turtle.MoveTo(w, h+40)
Turtle.PenDown()
Turtle.MoveTO(w,h)
Turtle.MoveTO(w+12,h)
For i=1 To 5
Turtle.Turn(13)
Turtle.Move(2)
EndFor
Turtle.MoveTO(w+20,h+12)
For i=1 To 5
Turtle.Turn(13)
Turtle.Move(2)
EndFor
Turtle.MoveTO(w,h+20)
Turtle.MoveTO(w+12,h+20)
For i=1 To 5
Turtle.Turn(13)
Turtle.Move(2)
EndFor
Turtle.MoveTO(w+20,h+28)
For i=1 To 5
Turtle.Turn(13)
Turtle.Move(2)
EndFor
Turtle.MoveTO(w+14,h+40)
Turtle.PenDown()
Turtle.MoveTO(w,h+40)
w=w+30
EndIf
If GraphicsWindow.LastKey="N" Then
'N
Turtle.PenUp()
Turtle.MoveTO(w,h)
Turtle.MoveTO(w,h+40)
Turtle.PenDown()
Turtle.MoveTO(w,h)
Turtle.MoveTO(w+20,h+40)
Turtle.MoveTO(w+20,h)
w=w+32
EndIf
If GraphicsWindow.LastKey="O" Then
'O
Turtle.PenUp()
Turtle.MoveTO(w,h)
Turtle.MoveTO(w,h+30)
Turtle.PenDown()
Turtle.MoveTO(w,h+10)
For i=1 To 6
Turtle.Turn(9)
Turtle.Move(2)
EndFor
Turtle.PenUp()
Turtle.MoveTO(w+6,h)
Turtle.PenDown()
Turtle.MoveTO(w+12,h)
For i=1 To 7
Turtle.Turn(13)
Turtle.Move(2)
EndFor
Turtle.PenUp()
Turtle.MoveTO(w+20,h+10)
Turtle.PenDown()
Turtle.MoveTO(w+20,h+30)
For i=1 To 7
Turtle.Turn(9)
Turtle.Move(2)
EndFor
Turtle.PenUp()
Turtle.MoveTO(w+12,h+40)
Turtle.PenDown()
Turtle.MoveTO(w+8,h+40)
For i=1 To 7
Turtle.Turn(13)
Turtle.Move(2)
EndFor
w=w+30
EndIf
If GraphicsWindow.LastKey="D" Then
'd
Turtle.PenUp()
Turtle.MoveTO(w,h)
Turtle.MoveTO(w,h+40)
Turtle.PenDown()
Turtle.MoveTO(w,h)
Turtle.MoveTO(w+12,h)
For i=1 To 7
Turtle.Turn(13)
Turtle.Move(2)
EndFor
Turtle.PenUp()
Turtle.MoveTO(w+20,h+10)
Turtle.PenDown()
Turtle.MoveTO(w+20,h+30)
For i=1 To 7
Turtle.Turn(9)
Turtle.Move(2)
EndFor
Turtle.PenUp()
Turtle.MoveTO(w+12,h+40)
Turtle.PenDown()
Turtle.MoveTO(w,h+40)
w=w+30
EndIf
If GraphicsWindow.LastKey="J" Then
'j
Turtle.PenUp()
Turtle.MoveTO(w,h)
Turtle.MoveTO(w+20,h)
Turtle.PenDown()
Turtle.MoveTO(w+20,h+30)
For i=1 To 7
Turtle.Turn(10)
Turtle.Move(2)
EndFor
Turtle.PenUp()
Turtle.MoveTO(w+12,h+40)
Turtle.PenDown()
Turtle.MoveTO(w+8,h+40)
For i=1 To 7
Turtle.Turn(9)
Turtle.Move(2)
EndFor
w=w+30
EndIf
If GraphicsWindow.LastKey="G" Then
'g
Turtle.PenUp()
Turtle.MoveTO(w,h)
Turtle.MoveTO(w,h+30)
Turtle.PenDown()
Turtle.MoveTO(w,h+10)
For i=1 To 6
Turtle.Turn(9)
Turtle.Move(2)
EndFor
Turtle.PenUp()
Turtle.MoveTO(w+6,h)
Turtle.PenDown()
Turtle.MoveTO(w+12,h)
For i=1 To 7
Turtle.Turn(13)
Turtle.Move(2)
EndFor
Turtle.PenUp()
Turtle.MoveTO(w+6,h+20)
Turtle.PenDown()
Turtle.MoveTO(w+20,h+20)
Turtle.MoveTO(w+20,h+32)
For i=1 To 7
Turtle.Turn(13)
Turtle.Move(2)
EndFor
Turtle.PenUp()
Turtle.MoveTO(w+12,h+40)
Turtle.PenDown()
Turtle.MoveTO(w+8,h+40)
For i=1 To 7
Turtle.Turn(13)
Turtle.Move(2)
EndFor
w=w+30
EndIf
If GraphicsWindow.LastKey="C" Then
'c
Turtle.PenUp()
Turtle.MoveTO(w,h)
Turtle.MoveTO(w,h+30)
Turtle.PenDown()
Turtle.MoveTO(w,h+10)
For i=1 To 6
Turtle.Turn(9)
Turtle.Move(2)
EndFor
Turtle.PenUp()
Turtle.MoveTO(w+6,h)
Turtle.PenDown()
Turtle.MoveTO(w+12,h)
For i=1 To 7
Turtle.Turn(13)
Turtle.Move(2)
EndFor
Turtle.PenUp()
Turtle.MoveTO(w+20,h+32)
Turtle.PenDown()
For i=1 To 7
Turtle.Turn(13)
Turtle.Move(2)
EndFor
Turtle.PenUp()
Turtle.MoveTO(w+12,h+40)
Turtle.PenDown()
Turtle.MoveTO(w+8,h+40)
For i=1 To 7
Turtle.Turn(13)
Turtle.Move(2)
EndFor
w=w+30
EndIf
If GraphicsWindow.LastKey="OemComma" Then
'ç
Turtle.PenUp()
Turtle.MoveTO(w,h)
Turtle.MoveTO(w,h+30)
Turtle.PenDown()
Turtle.MoveTO(w,h+10)
For i=1 To 6
Turtle.Turn(9)
Turtle.Move(2)
EndFor
Turtle.PenUp()
Turtle.MoveTO(w+6,h)
Turtle.PenDown()
Turtle.MoveTO(w+12,h)
For i=1 To 7
Turtle.Turn(13)
Turtle.Move(2)
EndFor
Turtle.PenUp()
Turtle.MoveTO(w+20,h+32)
Turtle.PenDown()
For i=1 To 7
Turtle.Turn(13)
Turtle.Move(2)
EndFor
Turtle.PenUp()
Turtle.MoveTO(w+12,h+40)
Turtle.PenDown()
Turtle.MoveTO(w+8,h+40)
For i=1 To 7
Turtle.Turn(13)
Turtle.Move(2)
EndFor
Turtle.PenUp()
Turtle.MoveTO(w+10,h+35)
Turtle.PenDown()
Turtle.Angle=-190
For i=1 To 6
Turtle.Turn(5)
Turtle.Move(2)
EndFor
w=w+30
EndIf
If GraphicsWindow.LastKey="Oem6" Then
'ğ
Turtle.PenUp()
Turtle.MoveTO(w,h)
Turtle.MoveTO(w,h+30)
Turtle.PenDown()
Turtle.MoveTO(w,h+10)
For i=1 To 6
Turtle.Turn(9)
Turtle.Move(2)
EndFor
Turtle.PenUp()
Turtle.MoveTO(w+6,h)
Turtle.PenDown()
Turtle.MoveTO(w+12,h)
For i=1 To 7
Turtle.Turn(13)
Turtle.Move(2)
EndFor
Turtle.PenUp()
Turtle.MoveTO(w+6,h+20)
Turtle.PenDown()
Turtle.MoveTO(w+20,h+20)
Turtle.MoveTO(w+20,h+32)
For i=1 To 7
Turtle.Turn(13)
Turtle.Move(2)
EndFor
Turtle.PenUp()
Turtle.MoveTO(w+12,h+40)
Turtle.PenDown()
Turtle.MoveTO(w+8,h+40)
For i=1 To 7
Turtle.Turn(13)
Turtle.Move(2)
EndFor
Turtle.PenUp()
Turtle.MoveTO(w+6,h-8)
Turtle.PenDown()
Turtle.MoveTO(w+10,h)
Turtle.MoveTO(w+14,h-8)
w=w+30
EndIf
If GraphicsWindow.LastKey="OemOpenBrackets" Then
'Ö
Turtle.PenUp()
Turtle.MoveTO(w,h)
Turtle.MoveTO(w,h+30)
Turtle.PenDown()
Turtle.MoveTO(w,h+10)
For i=1 To 6
Turtle.Turn(9)
Turtle.Move(2)
EndFor
Turtle.PenUp()
Turtle.MoveTO(w+6,h)
Turtle.PenDown()
Turtle.MoveTO(w+12,h)
For i=1 To 7
Turtle.Turn(13)
Turtle.Move(2)
EndFor
Turtle.PenUp()
Turtle.MoveTO(w+20,h+10)
Turtle.PenDown()
Turtle.MoveTO(w+20,h+30)
For i=1 To 7
Turtle.Turn(9)
Turtle.Move(2)
EndFor
Turtle.PenUp()
Turtle.MoveTO(w+12,h+40)
Turtle.PenDown()
Turtle.MoveTO(w+8,h+40)
For i=1 To 7
Turtle.Turn(13)
Turtle.Move(2)
EndFor
Turtle.PenUp()
Turtle.MoveTO(w,h-2)
Turtle.PenDown()
Turtle.MoveTO(w,h-5)
Turtle.PenUp()
Turtle.MoveTO(w+20,h-2)
Turtle.PenDown()
Turtle.MoveTO(w+20,h-5)
w=w+30
EndIf
If GraphicsWindow.LastKey="Y" Then
'y
Turtle.PenUp()
Turtle.MoveTO(w,h)
Turtle.MoveTO(w+10,h+40)
Turtle.PenDown()
Turtle.MoveTO(w+10,h+20)
Turtle.MoveTO(w,h)
Turtle.MoveTO(w+10,h+20)
Turtle.MoveTO(w+20,h)
w=w+30
EndIf
If GraphicsWindow.LastKey="Q" Then
'Q
Turtle.PenUp()
Turtle.MoveTO(w,h)
Turtle.MoveTO(w,h+30)
Turtle.PenUp()
Turtle.PenDown()
Turtle.MoveTO(w,h+10)
For i=1 To 6
Turtle.Turn(9)
Turtle.Move(2)
EndFor
Turtle.PenUp()
Turtle.MoveTO(w+6,h)
Turtle.PenDown()
Turtle.MoveTO(w+12,h)
For i=1 To 7
Turtle.Turn(13)
Turtle.Move(2)
EndFor
Turtle.PenUp()
Turtle.MoveTO(w+20,h+10)
Turtle.PenDown()
Turtle.MoveTO(w+20,h+30)
For i=1 To 7
Turtle.Turn(9)
Turtle.Move(2)
EndFor
Turtle.PenUp()
Turtle.MoveTO(w+12,h+40)
Turtle.PenDown()
Turtle.MoveTO(w+8,h+40)
For i=1 To 7
Turtle.Turn(13)
Turtle.Move(2)
EndFor
Turtle.PenUp()
Turtle.MoveTO(w+10,h+35)
Turtle.PenDown()
Turtle.Angle=-190
For i=1 To 6
Turtle.Turn(5)
Turtle.Move(2)
EndFor
w=w+30
EndIf
If GraphicsWindow.LastKey="W" Then
'Ü

Turtle.PenUp()
Turtle.MoveTO(w,h)
Turtle.MoveTO(w,h+30)
Turtle.PenUp()
Turtle.PenDown()
Turtle.MoveTO(w,h)
Turtle.PenUp()
Turtle.MoveTO(w+20,h)
Turtle.PenDown()
Turtle.MoveTO(w+20,h+30)
For i=1 To 7
Turtle.Turn(9)
Turtle.Move(2)
EndFor
Turtle.PenUp()
Turtle.MoveTO(w+12,h+40)
Turtle.PenDown()
Turtle.MoveTO(w+8,h+40)
For i=1 To 7
Turtle.Turn(13)
Turtle.Move(2)
EndFor
Turtle.PenUp()
Turtle.MoveTO(w,h-2)
Turtle.PenDown()
Turtle.MoveTO(w,h-5)
Turtle.PenUp()
Turtle.MoveTO(w+20,h-2)
Turtle.PenDown()
Turtle.MoveTO(w+20,h-5)
w=w+30
EndIf
If GraphicsWindow.LastKey="U" Then
'U

Turtle.PenUp()
Turtle.MoveTO(w,h)
Turtle.MoveTO(w,h+30)
Turtle.PenUp()
Turtle.PenDown()
Turtle.MoveTO(w,h)
Turtle.PenUp()
Turtle.MoveTO(w+20,h)
Turtle.PenDown()
Turtle.MoveTO(w+20,h+30)
For i=1 To 7
Turtle.Turn(9)
Turtle.Move(2)
EndFor
Turtle.PenUp()
Turtle.MoveTO(w+12,h+40)
Turtle.PenDown()
Turtle.MoveTO(w+8,h+40)
For i=1 To 7
Turtle.Turn(13)
Turtle.Move(2)
EndFor
w=w+30
EndIf
If GraphicsWindow.LastKey="L" Then
'L
Turtle.PenUp()
Turtle.MoveTO(w,h)
Turtle.PenDown()
Turtle.MoveTO(w,h+40)
Turtle.MoveTO(w+20,h+40)
w=w+30
Endif
If GraphicsWindow.LastKey="E" Then
'E
Turtle.PenUp()
Turtle.MoveTO(w,h)
Turtle.PenDown()
Turtle.MoveTO(w,h+40)
Turtle.MoveTO(w+20,h+40)
Turtle.PenUp()
Turtle.MoveTO(w,h+20)
Turtle.PenDown()
Turtle.MoveTO(w+20,h+20)
Turtle.PenUp()
Turtle.MoveTO(w,h)
Turtle.PenDown()
Turtle.MoveTO(w+20,h)
w=w+30
Endif
If GraphicsWindow.LastKey="F" Then
'f
Turtle.PenUp()
Turtle.MoveTO(w,h)
Turtle.PenDown()
Turtle.MoveTO(w,h+40)
Turtle.PenUp()
Turtle.MoveTO(w,h+20)
Turtle.PenDown()
Turtle.MoveTO(w+20,h+20)
Turtle.PenUp()
Turtle.MoveTO(w,h)
Turtle.PenDown()
Turtle.MoveTO(w+20,h)
w=w+30
Endif
If GraphicsWindow.LastKey="OemQuotes" Then
'Ə
Turtle.PenUp()
Turtle.MoveTO(w,h)
Turtle.MoveTO(w,h+12)
Turtle.PenDown()
Turtle.MoveTO(w,h+10)
For i=1 To 6
Turtle.Turn(9)
Turtle.Move(2)
EndFor
Turtle.PenUp()
Turtle.MoveTO(w+6,h)
Turtle.PenDown()
Turtle.MoveTO(w+12,h)
For i=1 To 7
Turtle.Turn(13)
Turtle.Move(2)
EndFor
Turtle.PenUp()
Turtle.MoveTO(w+20,h+10)
Turtle.PenDown()
Turtle.MoveTO(w+20,h+30)
For i=1 To 7
Turtle.Turn(9)
Turtle.Move(2)
EndFor
Turtle.PenUp()
Turtle.MoveTO(w+12,h+40)
Turtle.PenDown()
Turtle.MoveTO(w+8,h+40)
For i=1 To 7
Turtle.Turn(13)
Turtle.Move(2)
EndFor
Turtle.MoveTO(w,h+20)
Turtle.MoveTO(w+20,h+20)
w=w+30
Endif
If GraphicsWindow.LastKey="S" Then
'S
Turtle.PenUp()
Turtle.MoveTO(w,h)
Turtle.MoveTO(w,h+16)
Turtle.PenDown()
Turtle.MoveTO(w,h+12)
For i=1 To 18
Turtle.Turn(10)
Turtle.Move(2)
EndFor
Turtle.PenUp()
Turtle.MoveTO(w+22,h+24)
Turtle.PenDown()
Turtle.MoveTO(w+22,h+28)
For i=1 To 18
Turtle.Turn(10)
Turtle.Move(2)
EndFor
Turtle.PenUp()
Turtle.MoveTO(w+22,h+24)
Turtle.PenDown()
Turtle.MoveTO(w,h+16)
w=w+32
EndIf
If GraphicsWindow.LastKey="OemPeriod" Then
'ş
Turtle.PenUp()
Turtle.MoveTO(w,h)
Turtle.MoveTO(w,h+16)
Turtle.PenDown()
Turtle.MoveTO(w,h+12)
For i=1 To 18
Turtle.Turn(10)
Turtle.Move(2)
EndFor
Turtle.PenUp()
Turtle.MoveTO(w+22,h+24)
Turtle.PenDown()
Turtle.MoveTO(w+22,h+28)
For i=1 To 18
Turtle.Turn(10)
Turtle.Move(2)
EndFor
Turtle.PenUp()
Turtle.MoveTO(w+22,h+24)
Turtle.PenDown()
Turtle.MoveTO(w,h+16)
Turtle.PenUp()
Turtle.MoveTO(w+10,h+35)
Turtle.PenDown()
Turtle.Angle=-190
For i=1 To 6
Turtle.Turn(5)
Turtle.Move(2)
EndFor
w=w+32
EndIf
else
h=h+50
w=10
Goto metka
EndIf
EndSub