'------------------------------------------
'testt.bs2
'
'This program tests the temperature sensor hardware
'by constantly reading the sensor and displaying
'the results to the debug window.

temp    var word           'Temperature

start:  gosub gett         'Get temperature
        debug ? temp       'Display result
        pause 1000         'Wait 1 second
        goto start         'Loop forever




'------------------------------------------
'gett 
'Reads the temperature and sets variable temp

gett:   high 3             'Discharge cap
        pause 1            'Short delay
        rctime 3,1,temp    'Capture temperature
        return             'Done