Basic input-output For Basic PRO Compiler

define osc 4
define adc_bits 8
trisb =$00
trisa =$ff
adcon1 = 7
lamp var portb
start var porta.0
stops var porta.1
lamp =0 
loop:
     if start=0 then 
       repeat  
        pause 10 
        lamp=$ff 
       until stops=0   ' if constrain true out off loop          
     endif
   lamp =$00
   pause 10   
 goto loop
 end

Leave a Comment

Your email address will not be published.

This site uses Akismet to reduce spam. Learn how your comment data is processed.