$regfile = "m16def.dat"
$crystal= 1000000

config Lcdpin = Pin , Db4 = PortB.4 , Db5 = PortB.5 , Db6 = PortB.6 , Db7 = PortB.7 , E = Portc.7 , Rs = Portc.6
config Lcd = 16x2

Dim anum as  Integer , A as Byte
Backlight alias Portd.7
dim seconds as  Byte , miniutes as  Byte
dim angle as  Single



Cls    'clear the screen'

Angle = 275.4531

Do

 cursor on blink
 wait 10

 Locate 2,5
 LCD " Angle(A) " ; angle
 Loop
 end  'end program