a=Math.GetRandomNumber(100)
c=1
agac()
TextWindow.ForegroundColor="white"
TextWindow.WriteLine("Bir ile yüz arasında bir sayı tutum ")
oku: 
TextWindow.Write(c)
TextWindow.Write(".denemeniz için bir sayı giriniz: ")
b=TextWindow.ReadNumber()
c=c+1
If b=a Then 
  TextWindow.ForegroundColor="green"
  TextWindow.WriteLine("oyunu kazandınız")
  Goto son
ElseIf c=7 then
  as()
  Goto son
elseIf b>a then 
  TextWindow.ForegroundColor="red"
  TextWindow.WriteLine("daha küçük ")
 TextWindow.ForegroundColor="white"
 as()
 Goto oku
ElseIf b<a then
  TextWindow.ForegroundColor="blue"
  TextWindow.WriteLine("daha büyük")
  TextWindow.ForegroundColor="white"
  as()
  Goto oku  
EndIf  
son:  
Sub as
  If c=2 Then 
    kafa()
    EndIf
    If c=3 Then
      gövde()
      EndIf
      If c=4 Then
        sagkol()
        EndIf
        If c=5 Then
          solkol()
          EndIf
          If c=6 Then
            sagayak()
            EndIf
            If c=7 Then
              solayak()
            EndIf
  EndSub
  Sub agac
    Turtle.Speed=8
  Turtle.TurnRight()
  Turtle.Move(25)
  Turtle.Turn(180)
  Turtle.Move(50)
  Turtle.Turn(180)
  Turtle.Move(25)
  Turtle.TurnLeft() 
  Turtle.Move(200)
  Turtle.TurnRight()
  Turtle.Move(100)
  Turtle.TurnRight()
  Turtle.Move(25)
  
EndSub

Sub kafa
  Turtle.Speed=5
  x=3
  Turtle.Angle=90
Turtle.Move(x)
Turtle.Angle=100
Turtle.Move(x)
Turtle.Angle=110
Turtle.Move(x)
Turtle.Angle=120
Turtle.Move(x)
Turtle.Angle=130
Turtle.Move(x)
Turtle.Angle=140
Turtle.Move(x)
Turtle.Angle=150
Turtle.Move(x)
Turtle.Angle=160
Turtle.Move(x)
Turtle.Angle=170
Turtle.Move(x)
Turtle.Angle=180
Turtle.Move(x)
Turtle.Angle=190
Turtle.Move(x)
Turtle.Angle=200
Turtle.Move(x)
Turtle.Angle=210
Turtle.Move(x)
Turtle.Angle=220
Turtle.Move(x)
Turtle.Angle=230
Turtle.Move(x)
Turtle.Angle=240
Turtle.Move(x)
Turtle.Angle=250
Turtle.Move(x)
Turtle.Angle=260
Turtle.Move(x)
Turtle.Angle=270
Turtle.Move(x)
Turtle.Angle=280
Turtle.Move(x)
Turtle.Angle=290
Turtle.Move(x)
Turtle.Angle=300
Turtle.Move(x)
Turtle.Angle=310
Turtle.Move(x)
Turtle.Angle=320
Turtle.Move(x)
Turtle.Angle=330
Turtle.Move(x)
Turtle.Angle=340
Turtle.Move(x)
Turtle.Angle=350
Turtle.Move(x)
Turtle.Angle=360
Turtle.Move(x)
Turtle.Angle=10
Turtle.Move(x)
Turtle.Angle=20
Turtle.Move(x)
Turtle.Angle=30
Turtle.Move(x)
Turtle.Angle=40
Turtle.Move(x)
Turtle.Angle=50
Turtle.Move(x)
Turtle.Angle=60
Turtle.Move(x)
Turtle.Angle=70
Turtle.Move(x)
Turtle.Angle=80
Turtle.Move(x)
Turtle.Angle=90
Turtle.Move(x)
Turtle.TurnRight()
Turtle.PenUp()
Turtle.Move(12*x)
Turtle.PenDown()

EndSub

Sub gövde
  Turtle.Move(75)
  Turtle.Turn(180)
  Turtle.Move(75)
EndSub

Sub sagkol
 Turtle.Speed=5
Turtle.Angle=225
Turtle.Move(50)
Turtle.Angle=45
Turtle.Move(50)
EndSub

Sub  solkol
  Turtle.Speed=5
Turtle.Angle=135
Turtle.Move(50)
Turtle.Angle=315
Turtle.Move(50)
EndSub

Sub sagayak
Turtle.Speed=5
Turtle.Angle=180
Turtle.Move(75)
Turtle.Angle=225
Turtle.Move(50)
Turtle.Angle=45
Turtle.Move(50)
  
EndSub

Sub solayak
   Turtle.Speed=5
Turtle.Angle=135
Turtle.Move(50)
Turtle.Angle=315
Turtle.Move(50)
  Turtle.Hide()
EndSub