ايران ويج

باسلام خدمت همه دوستان عزیز. یک پروژه ساده باتابلوروان دارم انجام میدم که این برنامه شیفت متن به راست رو میخوام اجراکنم وجدیدا برنامه نویسی بیسیکو شروع کردم ولی بعضی قسمتاشو متوجه نمیشم وخیلی فوری تا سه روز دیگه احتیاج دارم که اونو بفهمم از میکرومگا16 استفاده کردم سطرهای دات ما تریسها با 2عدد74573به پورت Bمیکرو وصله :
1-
میدونم حلقه اول باید به میزان کاراکترهای اضافه شده به گلایف باید باشه اینجاتوی گلایف 8 کاراکتر بیشتر اضافه نشده و17کاراکتر فارسی بیشترندارم پس168 ازکجا اومده روش محاسبه این عدد چیه؟
2-
اون قسمتهایی که قرمز کردم رو نمیفهمم یعنی چی وازکجا اومده؟
راستی اگریکی از پایه های میکرو(پایه11)روفقط به زمین وصل کنم کافیه ؟
چون پایه31هم زمینه
$regfile = "m16def.dat"
$crystal = 1000000
Config Porta = Output
Config Portb = Output
Config Portd = Output
Dim Scan As Byte
Dim I As Word
Dim Refresh As Byte
Dim B As Byte
Dim D As Word
Dim S As Word
Dim M As Word
Dim E As Word
Do
' +---------------------------+
' | Scrolling Text00 to Right |
' +---------------------------+
For S = 0 To 168
M = 168 - S
E = M + 7
For Refresh = 1 To 4
Scan = &H01
For I = M To E
For B = 0 To 1
D = B * 8
D = D + I
Portd = Lookup(d , Text00)
Portb = 2 ^ B
Portb = 0
Next B
Porta = Scan
Rotate Scan , Left , 1
Waitms 5
Porta = 0
Next I
Next Refresh
Next S
Loop
End
Text00:
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
دراین بین 17کاراکترفارسی دارم بالا وپایین کاراکترهای خالی اند که برای چرخش کامل حلقه اضافه شده اند
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00