$regfile = "at26def.dat" $crystal = 1000000 Config Porta = Output Config Portb = Output Declare Sub Lednumber Dim N0 As Word Dim N1 As Word Dim N2 As Word Dim N3 As Word Dim M As Word Dim T As Byte Dim Led(10) As Byte Led(1) = 63 Led(2) = 6 Led(3) = 91 Led(4) = 79 Led(5) = 102 Led(6) = 109 Led(7) = 125 Led(8) = 7 Led(9) = 127 Led(10) = 111 Do Call Lednumber T = 0 While T < 33 Portb = 16 Porta = Led(n1) Waitms 10 If N2 = 1 And N3 = 1 Then Portb = 0 Else Portb = 32 Porta = Led(n2) End If Waitms 10 If N3 = 1 Then Portb = 0 Else Portb = 64 Porta = Led(n3) End If Waitms 10 Incr T Wend Incr N0 If N0 > 999 Then N0 = 0 Loop End Sub Lednumber N3 = N0 / 100 M = N0 Mod 100 N2 = M / 10 N1 = M Mod 10 N3 = N3 + 1 N2 = N2 + 1 N1 = N1 + 1 End Sub