Small Basic ! Ornek Program

Small Basic ' den Yaptigim Ornek Programlari Paylasacagim ;
1. Admin Girisi - 2. Kayit Olma
-----------------------------------------------------------------------
-----------------------------------------------------------------------
1. Admin Girisi
-----------------------------------------------------------------------
-----------------------------------------------------------------------
bas:
TextWindow.ForegroundColor = "Green"
TextWindow.WriteLine ("Admin Ismi : ")
k = TextWindow.Read()
If k = "admin"
TextWindow.WriteLine ("Hos Geldiniz " + k)
Else
TextWindow.WriteLine ("Yanlis Bilgi Girdiniz")
Goto bas
EndIf
Goto bas2
bas2:
TextWindow.WriteLine ("Admin Sifresi : ")
s = TextWindow.Read()
If s = "bqaj"
TextWindow.WriteLine ("Sifre Dogru Bay " + k)
TextWindow.WriteLine ("Sifreniz : " + s)
Else
TextWindow.WriteLine ("Sifreniz Yanlis Bay " + k)
Goto bas2
EndIf
TextWindow.WriteLine ("Sisteme Hos Geldiniz Bay " + k)

-----------------------------------------------------------------------
-----------------------------------------------------------------------
2. Kayit Olma
-----------------------------------------------------------------------
-----------------------------------------------------------------------

bas:
TextWindow.ForegroundColor = "Green"
TextWindow.WriteLine ("Kullanici Adi Secin :")
k = TextWindow.Read()
TextWindow.WriteLine("Sifre Secin :")
s = TextWindow.Read()
TextWindow.WriteLine("Kullanici adi : " + k)
TextWindow.WriteLine ("Sife : " + s)
TextWindow.WriteLine ("Iptal icin i yazin : ")
o = TextWindow.Read()
If o = "i" Then
Goto bas
Else
TextWindow.WriteLine ("Hosgeldiniz " + k )
TextWindow.WriteLine ("Sifreniz : "+ s)
EndIf

-----------------------------------------------------------------------
-----------------------------------------------------------------------

- olan yerlere cift tirnak gelcek bilginize