getting a program to display on usart

// device and clock speed...
device = 18F452
clock = 20

// import modules...
include "DS18B20.bas"
include "convert.bas"
include "usart.bas"

// FAMILY $28 ($1D) ($0000002CDBAE) <- DS18B20
// FAMILY $28 ($3F) ($0000002CD16E) <- DS18B20
const Sensor_A(8) as byte = ($28, $AE, $DB, $2C, $00, $00, $00, $1D)
const Sensor_B(8) as byte = ($28, $6E, $D1, $2C, $00, $00, $00, $3F)

// display a sensor value...
sub DisplaySensor(byrefconst pID() as byte)
   dim TempA as shortint
   dim TempB as word
   RomID = pID
   Convert
   GetTemp(TempA, TempB)
   USART.Write(DecToStr(TempA),".",DecToStr(TempB,2), $BA, "C",13,10)
end sub

// program start...
SetBaudrate(br115200)
SetPin(PORTC.0)
while true
   DisplaySensor(Sensor_A)
   DisplaySensor(Sensor_B)
   delayms(1000)
wend

device = 18F452
clock = 20

// import modules...
include "DS18B20.bas"
include "convert.bas"
include "usart.bas"

// working variables...
dim
   TempA as shortint,
   TempB as word,
   LED as PORTB.0

// Start Of Program...
SetBaudrate(br19200)
SetPin(PORTC.0)
output(LED)

// Find() will search the bus for a single DS1820 device
// and load its ROM ID into the DS1820 public variable RomID - you
// could do this manually. For example, RomID = MyRomID...

if DS18B20.Find then
    while true
      Convert
      GetTemp(TempA, TempB)
      USART.Write(DecToStr(TempA),".",DecToStr(TempB,4), " C", 13, 10)
      toggle(LED)
      delayms(1000)
    wend 
else
    high(LED)   
    USART.Write("No device found", 13, 10)
endif