Output bit For Basic PRO Compiler

define osc 4
define adc_bits 8
trisb =$00
lamp var portb.0
low lamp 
loop:
    high lamp
    pause 1000
    low lamp
    pause 1000
 goto loop
 end