این جواب نهایی که اطمینان دارم که درسته.
با تشکر از راهنمایی های شما دوستان.
$regfile = "m32def.dat"
$crystal = 8000000
Config Portd = Output
Config Portc = Output
Config Porta = Input
Dim I As Byte
Dim J As Byte
Main:
If Pina.0 = 1 Then Goto L1
If Pina.1 = 1 Then Goto L2
Goto Main
L1:
For I = 0 To 9
For J = 0 To 9 Step 2
If Pina.1 = 1 Then Goto L2
Portd = Lookup(i , Seg)
Portc = Lookup(j , Seg)
Wait 1
Next I
Next J
Goto Main
L2:
For I = 0 To 9
For J = 1 To 9 Step 2
If Pina.0 = 1 Then Goto L1
Portd = Lookup(i , Seg)
Portc = Lookup(j , Seg)
Wait 1
Next I
Next J
Goto Main
Seg:
Data &H3F , &H06 , &H5B , &H4F , &H66 , &H6D , &H7D , &H07 , &H7F , &H6F