کمک فوری نیاز دارم

[fariiii]

من میخوام در بیسیک یک برنامه ای وی ار بنویسم که اینجوری باشه
یک صفحه روان که دارای خاصیت زیر باشه در سطر 2و3 به ترتیب
1:تاریخو زمان را نشان دهد
2:با زدن کلید"+"زمان تنظیم شود
3:با زدن کلید"-"تاریخ تنظیم شود
4:با زدن کلید"*" یک متن چرخشی ظاهر شود سپس به حالت اول باز گردد
5:با زدن کلید "on/c
2 بار (lcd) خاموش روشن شود
من یه برنامه نوشتم اما مشکل داره کامل هم نیس اگه میشه کمکم کنید تا درستش کنم
اینم برنامه :
$regfile = "m32def.dat"
$crystal = 1000000
Config Lcdpin = Pin , Db7 = Portd.7 , Db6 = Portd.6 , Db5 = Portd.5 , Db4 = Portd.4 , E = Portd.3 , Rs = Portd.2
Config Lcd = 20 * 4
Config Kbd = Portb , Debounce = 80 , Delay = 100
Config Timer1 = Timer , Prescale = 64
Dim A As Integer , B As Integer , C As Integer , D As Integer , F As Integer , H As Integer , L As Integer , E As String * 10
Enable Interrupts
Enable Timer1
On Ovf1 Time_day
A = 1
B = 1
C = 1
D = 1
F = 1
H = 1
Timer1 = 49911
Start Timer1
Do
Loop
Cls
Time_day:
Stop Timer1
If A < 59 Then
A = A + 1
Else
A = 1
Cls
If A = 59 Then
Lcd B
If B < 59 Then
B = B + 1
Else
B = 1
End If
End If
If B = 59 Then
C = C + 1
If C < 24 Then
Incr C
Else
C = 1
End If
End If
Locate 2 , 5
Lcd A
Locate 2 , 7
Lcd B
Locate 2 , 9
Lcd C
Locate 2 , 6
Lcd ":"
Locate 2 , 8
Lcd ":"
If C = 24 Then
Lcd D
If D < 30 Then
D = D + 1
Else
D = 1
End If
End If
If D = 30 Then
Lcd F
If F < 12 Then
Incr F
Else
F = 1
End If
End If
If F = 12 Then
Lcd H
If H < 9999 Then
Incr H
Else
H = 0
End If
End If
Locate 3 , 5
Lcd D
Locate 3 , 6
Lcd "/"
Locate 3 , 7
Lcd F
Locate 3 , 8
Lcd "/"
Locate 3 , 9
Lcd "h"
Locate 3 , 10
Lcd "/"
Timer1 = 49911
Start Timer1
Return
Declare Sub L()
Wait 1
Kbd:
Do
L = Goto Kbd()
If L > 15 Then Goto Kbd
Select Case L
Case 0 : L = 1
Case 1 : L = 2
Case 2 : L = 3
Case 3 : L = "/"
Case 4 : L = 4
Case 5 : L = 5
Case 6 : L = 6
Case 7 : L = "*"
Case 8 : L = 7
Case 9 : L = 8
Case 10 : L = 9
Case 11 : L = "-"
Case 12 : L = "c"
Case 13 : L = 0
Case 14 : L = "+"
Goto Kbd
End Select
If Select Case 14 Then Set Time
Else If L = "-" Then Set Day
Else If L = "*" Then Call Test
End If
Declare Sub Test()
Wait 1
Call Test()
Locate 4 , 19
Shiftlcd Right
Lcd "h"
Wait 1
Shiftlcd Right
Lcd "e"
Wait 1
Shiftlcd Right
Lcd "l"
Wait 1
Shiftlcd Right
Lcd "l"
Wait 1
Shiftlcd Right
Lcd "o"
End Sub

End.

کمکم کنید
ممنون:11: