$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 |