$regfile = "2313def.dat"
$crystal = 4000000
$baud = 9600

Config Pind.6 = Output

Dim Firstnumber As Integer
Dim Secondnumber As Integer
Dim Sum As Integer

Do
  Set Portd.6
  Firstnumber = 0
  Secondnumber = 0
  Input "Enter first number : " , Firstnumber
  Input "Enter second number: " , Secondnumber
  Sum = Firstnumber + Secondnumber
  Print "Sum: " ; Sum
  Reset Portd.6
  Waitms 100
Loop

End