$include "splash_horse.inc"
  Call Splash_screen()

$nocompile

 Dim Shag As Byte , Lcd_pos As Byte
 Dim Logo1 As String * 16 , Logo2 As String * 16 , Logo_done As Byte

 Logo1 = "Rejestrator" : Logo2 = "by Wally"

'-------------------------------------------------------------------------------

Sub Horse1
Deflcdchar 0 , 32 , 32 , 32 , 32 , 3 , 7 , 14 , 14
Deflcdchar 1 , 32 , 32 , 32 , 32 , 15 , 31 , 31 , 31
Deflcdchar 2 , 32 , 32 , 32 , 32 , 3 , 31 , 31 , 31
Deflcdchar 3 , 32 , 1 , 31 , 31 , 31 , 27 , 19 , 16
Deflcdchar 4 , 12 , 24 , 16 , 1 , 1 , 1 , 32 , 32
Deflcdchar 5 , 31 , 31 , 30 , 23 , 32 , 32 , 16 , 32
Deflcdchar 6 , 31 , 31 , 3 , 2 , 18 , 2 , 1 , 32
Deflcdchar 7 , 28 , 28 , 4 , 4 , 8 , 32 , 32 , 32
End Sub


Sub Horse2
Deflcdchar 0 , 32 , 32 , 32 , 32 , 32 , 7 , 15 , 30
Deflcdchar 1 , 32 , 32 , 32 , 32 , 14 , 31 , 31 , 31
Deflcdchar 2 , 32 , 32 , 32 , 32 , 7 , 31 , 31 , 31
Deflcdchar 3 , 32 , 2 , 31 , 31 , 31 , 27 , 19 , 16
Deflcdchar 4 , 16 , 32 , 32 , 1 , 1 , 1 , 32 , 32
Deflcdchar 5 , 31 , 31 , 27 , 18 , 1 , 1 , 17 , 32
Deflcdchar 6 , 31 , 31 , 1 , 1 , 1 , 1 , 32 , 32
Deflcdchar 7 , 24 , 28 , 4 , 8 , 16 , 32 , 16 , 32
End Sub

Sub Horse3
Deflcdchar 0 , 32 , 32 , 32 , 7 , 15 , 14 , 28 , 24
Deflcdchar 1 , 32 , 32 , 32 , 15 , 31 , 31 , 31 , 31
Deflcdchar 2 , 32 , 32 , 32 , 3 , 31 , 31 , 31 , 31
Deflcdchar 3 , 1 , 31 , 31 , 31 , 27 , 27 , 16 , 16
Deflcdchar 4 , 19 , 19 , 2 , 2 , 4 , 32 , 32 , 32
Deflcdchar 5 , 31 , 7 , 14 , 6 , 1 , 32 , 32 , 32
Deflcdchar 6 , 15 , 7 , 19 , 15 , 32 , 16 , 32 , 32
Deflcdchar 7 , 16 , 24 , 12 , 4 , 2 , 1 , 32 , 32
End Sub

Sub Lcd_pictur

 Incr Lcd_pos
  If Lcd_pos > 21 Then
   Logo_done = 1 : Cls : Exit Sub
  End If

 Helpb = Lcd_pos - 4


   If Lcd_pos < 6 Then

    Locate 1 , 1

    Select Case Lcd_pos
     Case 1
       Lcd Chr(3)
     Case 2
       Lcd Chr(2) ; Chr(3)
     Case 3
       Lcd Chr(1) ; Chr(2) ; Chr(3)
     Case 4
       Lcd Chr(0) ; Chr(1) ; Chr(2) ; Chr(3)
     Case 5
       Lcd Chr(32) ; Chr(0) ; Chr(1) ; Chr(2) ; Chr(3)
    End Select

   Else
    Locate 1 , Helpb
     Lcd Chr(32) ; Chr(0) ; Chr(1) ; Chr(2) ; Chr(3)

     If Helpb > 3 Then
      Pomoc = Helpb - 3
      Helpstr = Mid(logo1 , 1 , Pomoc)
      Locate 1 , 3 : Lcd Helpstr
     End If

   End If



   If Lcd_pos < 6 Then

    Locate 2 , 1

    Select Case Lcd_pos
     Case 1
       Lcd Chr(7)
     Case 2
       Lcd Chr(6) ; Chr(7)
     Case 3
       Lcd Chr(5) ; Chr(6) ; Chr(7)
     Case 4
       Lcd Chr(4) ; Chr(5) ; Chr(6) ; Chr(7)
     Case 5
       Lcd Chr(32) ; Chr(4) ; Chr(5) ; Chr(6) ; Chr(7)
    End Select

   Else
    Locate 2 , Helpb
     Lcd Chr(32) ; Chr(4) ; Chr(5) ; Chr(6) ; Chr(7)

     If Helpb > 4 Then
      Pomoc = Helpb - 4
      Helpstr = Mid(logo2 , 1 , Pomoc)
      Locate 2 , 4 : Lcd Helpstr
     End If



   End If

  Waitms 125

End Sub

Sub Splash_screen

   Do
    Call Horse1
     Call Lcd_pictur
    Call Horse2
     Call Lcd_pictur
    Call Horse3
     Call Lcd_pictur
   Loop Until Logo_done = 1

End Sub