4 İşlem Yapabilen Hesap Makinesi

başlangıç:
TextWindow.Title = "Dört İşlem"
TextWindow.Write("Hangi İşlemi Yapmak İstiyorsun ? +,-,/,x ")
işaret = TextWindow.Read()
If işaret = "+" Then
TextWindow.Title = "Toplama Makinesi"
TextWindow.Write("1.Sayıyı Giriniz = ")
sayı1 = TextWindow.ReadNumber()
TextWindow.Write("2.Sayıyı Giriniz = ")
sayı2 = TextWindow.ReadNumber()
toplama = sayı1 + sayı2
TextWindow.WriteLine("İşlem Sonucunuz = " + toplama )
ElseIf işaret = "-" Then
TextWindow.Title = "Çıkarma Makinesi"
TextWindow.Write("1.Sayıyı Giriniz = ")
sayı1 = TextWindow.ReadNumber()
TextWindow.Write("2.Sayıyı Giriniz = ")
sayı2 = TextWindow.ReadNumber()
çıkarma = sayı1 - sayı2
TextWindow.WriteLine("İşlem Sonucunuz = " + çıkarma )
ElseIf işaret = "*" Then
TextWindow.Title = "Çarpma Makinesi"
TextWindow.Write("1.Sayıyı Giriniz = ")
sayı1 = TextWindow.ReadNumber()
TextWindow.Write("2.Sayıyı Giriniz = ")
sayı2 = TextWindow.ReadNumber()
çarpma = sayı1 * sayı2
TextWindow.WriteLine("İşlem Sonucunuz = " + çarpma )
ElseIf işaret = "/" Then
TextWindow.Title = "Bölme Makinesi"
TextWindow.Write("1.Sayıyı Giriniz = ")
sayı1 = TextWindow.ReadNumber()
TextWindow.Write("2.Sayıyı Giriniz = ")
sayı2 = TextWindow.ReadNumber()
bölme = sayı1 / sayı2
TextWindow.WriteLine("İşlem Sonucunuz = " + bölme )
EndIf
Goto başlangıç