small-basic: Horario de clases.

materias:
es = "español"
ma = "matematicas"
ar = "artes"
Fo = "formacion"
ci = "ciencias"
in = "ingles"
ta = "informatica"
hi = "historia"
ef = "E. fisica"
tu = "tutoria"
date = Clock.Date
TextWindow.WriteLine("dias: Lunes, Martes, Miercoles, Jueves, viernes")
TextWindow.WriteLine("modulos: 1, 2, 3, 4, 5, 6, 7, 8 ")
boing:
TextWindow.WriteLine("escribe el dia que deseas")
day = TextWindow.Read()
post:
TextWindow.WriteLine("escribe el modulo")
hour = TextWindow.ReadNumber()
'validar que no puedas usar el sabado y el domingo'
if ( day = "sabado" Or "Sabado")Then
  TextWindow.WriteLine("hoy no tienes clases,(escoge un dia valido)")
  Goto boing
Else
  TextWindow.WriteLine("")
EndIf
If (day = "Domingo" Or "domingo")Then
  TextWindow.WriteLine("hoy no tienes clases,(escoge un dia valido)")
  Goto boing
Else
  TextWindow.WriteLine("")
EndIf
'validar que solo se use del 1 al 8 modulo'
If (hour >0 And hour <9)Then
  TextWindow.WriteLine("")
Else
  TextWindow.WriteLine("modulo incorrecto seleccione modulo del 1:8")
  Goto post
EndIf
lunes: 
  If (day = "lunes" Or day="Lunes")Then
    If (hour = 1)Then
      TextWindow.WriteLine("hoy :" + date + " tu clase es: " + es)
    Else
      TextWindow.WriteLine("")
    EndIf
    If (hour = 2)Then
      TextWindow.WriteLine("hoy :" + date + " tu clase es: " + ma)
    Else
      TextWindow.WriteLine("")
    EndIf
    If (hour = 3)Then
      TextWindow.WriteLine("hoy :" + date + " tu clase es: " + ta)
    Else
      TextWindow.WriteLine("")
    EndIf
    If (hour = 4)Then
      TextWindow.WriteLine("hoy :" + date + " tu clase es: " + ar)
    Else
      TextWindow.WriteLine("")
    EndIf
     If (hour = 5)Then
      TextWindow.WriteLine("hoy :" + date + " tu clase es: " + Fo)
    Else
      TextWindow.WriteLine("")
    EndIf
    If (hour = 6)Then
      TextWindow.WriteLine("hoy :" + date + " tu clase es: " + ci)
    Else
      TextWindow.WriteLine("")
    EndIf
    If (hour = 7)Then
      TextWindow.WriteLine("hoy :" + date + " tu clase es: " + in)
    Else
      TextWindow.WriteLine("")
    EndIf
    If (hour = 8)Then
      TextWindow.WriteLine("hoy :" + date + " tu clase es: " + ta)
    Else
      TextWindow.WriteLine("")
    EndIf
  Else
    TextWindow.WriteLine("")
  EndIf
 
 
  martes: 
    If (day = "martes" Or day="Martes")Then
    If (hour = 1)Then
      TextWindow.WriteLine("hoy :" + date + " tu clase es: " + ta)
    Else
      TextWindow.WriteLine("")
    EndIf
    If (hour = 2)Then
      TextWindow.WriteLine("hoy :" + date + " tu clase es: " + ta)
    Else
      TextWindow.WriteLine("")
    EndIf
    If (hour = 3)Then
      TextWindow.WriteLine("hoy :" + date + " tu clase es: " + es)
    Else
      TextWindow.WriteLine("")
    EndIf
    If (hour = 4)Then
      TextWindow.WriteLine("hoy :" + date + " tu clase es: " + ef)
    Else
      TextWindow.WriteLine("")
    EndIf
     If (hour = 5)Then
      TextWindow.WriteLine("hoy :" + date + " tu clase es: " + fo)
    Else
      TextWindow.WriteLine("")
    EndIf
    If (hour = 6)Then
      TextWindow.WriteLine("hoy :" + date + " tu clase es: " + ci)
    Else
      TextWindow.WriteLine("")
    EndIf
    If (hour = 7)Then
      TextWindow.WriteLine("hoy :" + date + " tu clase es: " + ma)
    Else
      TextWindow.WriteLine("")
    EndIf
    If (hour = 8)Then
      TextWindow.WriteLine("hoy :" + date + " tu clase es: " + hi)
    Else
      TextWindow.WriteLine("")
    EndIf
  Else
    TextWindow.WriteLine("")
  EndIf
 
 
  miercoles:
  If (day = "miercoles" Or day ="Miercoles")Then
    If (hour = 1)Then
      TextWindow.WriteLine("hoy :" + date + " tu clase es: " + ta)
    Else
      TextWindow.WriteLine("")
    EndIf
    If (hour = 2)Then
      TextWindow.WriteLine("hoy :" + date + " tu clase es: " + ta)
    Else
      TextWindow.WriteLine("")
    EndIf
    If (hour = 3)Then
      TextWindow.WriteLine("hoy :" + date + " tu clase es: " + ef)
    Else
      TextWindow.WriteLine("")
    EndIf
    If (hour = 4)Then
      TextWindow.WriteLine("hoy :" + date + " tu clase es: " + hi)
    Else
      TextWindow.WriteLine("")
    EndIf
     If (hour = 5)Then
      TextWindow.WriteLine("hoy :" + date + " tu clase es: " + Fo)
    Else
      TextWindow.WriteLine("")
    EndIf
    If (hour = 6)Then
      TextWindow.WriteLine("hoy :" + date + " tu clase es: " + in)
    Else
      TextWindow.WriteLine("")
    EndIf
    If (hour = 7)Then
      TextWindow.WriteLine("hoy :" + date + " tu clase es: " + es)
    Else
      TextWindow.WriteLine("")
    EndIf
    If (hour = 8)Then
      TextWindow.WriteLine("hoy :" + date + " tu clase es: " + ma)
    Else
      TextWindow.WriteLine("")
    EndIf
  Else
    TextWindow.WriteLine("")
  EndIf
 
 
  jueves:
  If (day = "jueves" Or day ="Jueves")Then
    If (hour = 1)Then
      TextWindow.WriteLine("hoy :" + date + " tu clase es: " + ma)
    Else
      TextWindow.WriteLine("")
    EndIf
    If (hour = 2)Then
      TextWindow.WriteLine("hoy :" + date + " tu clase es: " + es)
    Else
      TextWindow.WriteLine("")
    EndIf
    If (hour = 3)Then
      TextWindow.WriteLine("hoy :" + date + " tu clase es: " + ta)
    Else
      TextWindow.WriteLine("")
    EndIf
    If (hour = 4)Then
      TextWindow.WriteLine("hoy :" + date + " tu clase es: " + ta)
    Else
      TextWindow.WriteLine("")
    EndIf
     If (hour = 5)Then
      TextWindow.WriteLine("hoy :" + date + " tu clase es: " + Fo)
    Else
      TextWindow.WriteLine("")
    EndIf
    If (hour = 6)Then
      TextWindow.WriteLine("hoy :" + date + " tu clase es: " + ar)
    Else
      TextWindow.WriteLine("")
    EndIf
    If (hour = 7)Then
      TextWindow.WriteLine("hoy :" + date + " tu clase es: " + hi)
    Else
      TextWindow.WriteLine("")
    EndIf
    If (hour = 8)Then
      TextWindow.WriteLine("hoy :" + date + " tu clase es: " + tu)
    Else
      TextWindow.WriteLine("")
    EndIf
  Else
    TextWindow.WriteLine("")
  EndIf
 
  viernes: 
  If (day = "viernes" Or day ="Viernes")Then
    If (hour = 1)Then
      TextWindow.WriteLine("hoy :" + date + " tu clase es: " + ci)
    Else
      TextWindow.WriteLine("")
    EndIf
    If (hour = 2)Then
      TextWindow.WriteLine("hoy :" + date + " tu clase es: " + ma)
    Else
      TextWindow.WriteLine("")
    EndIf
    If (hour = 3)Then
      TextWindow.WriteLine("hoy :" + date + " tu clase es: " + ta)
    Else
      TextWindow.WriteLine("")
    EndIf
    If (hour = 4)Then
      TextWindow.WriteLine("hoy :" + date + " tu clase es: " + ta)
    Else
      TextWindow.WriteLine("")
    EndIf
     If (hour = 5)Then
      TextWindow.WriteLine("hoy :" + date + " tu clase es: " + in)
    Else
      TextWindow.WriteLine("")
    EndIf
    If (hour = 6)Then
      TextWindow.WriteLine("hoy :" + date + " tu clase es: " + ci)
    Else
      TextWindow.WriteLine("")
    EndIf
    If (hour = 7)Then
      TextWindow.WriteLine("hoy :" + date + " tu clase es: " + hi)
    Else
      TextWindow.WriteLine("")
    EndIf
    If (hour = 8)Then
      TextWindow.WriteLine("hoy :" + date + " tu clase es: " + es)
    Else
      TextWindow.WriteLine("")
    EndIf
  Else
    TextWindow.WriteLine("")
  EndIf
 
  TextWindow.WriteLine("desea realizar el programa de nuevo")
  dory = TextWindow.Read()
  If (dory= "si" Or "Si")Then
    Goto  materias