اين دستور چه كار ميكنه

ميشه بگيد اي دستور چه كار ميكنه
ميخوام خط به خطش ترجمه بشه

کد:

---

'پ'  :
              Begin
              If Ch_One        Then  Temp[J] := Chr($81)
              Else If Ch_Mid  Then  Temp[J] := Chr($E8)
              Else If Ch_First Then  Temp[J] := Chr($E8)
              Else If Ch_Last  Then  Temp[J] := Chr($81) ;
              End ;

---

سلام
به ظاهر براي تصحيح حرف پ است، وقتي حرف پ تنها و آخر رشته اي باشد كه در حال چك شدن است تبديل مي شود به پ ، در غير اين صورت وقتي وسط و اول جلمه است تبديل مي شود به پـ