7 segment:………………………………………………………………………………..
$regfile = "m32def.dat"
$crystal = 8000000
Config Timer0 = Timer , Prescale = 8
Config Porta = Output
Config Portb = Output
Declare Function Casea(byval N As Byte)as Byte
Dim A As Byte , B As Byte , B1 As Byte , S As String * 1 , S1 As String * 1 , I As...