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

About The Author

Ibrar Ayyub

I am an experienced technical writer with a Master's degree in computer science from BZU Multan University. I have written for various industries, mainly home automation and engineering. My writing style is clear and simple, and I am skilled in using infographics and diagrams. I am a great researcher and am able to present information in a well-organized and logical manner.

Follow Us:
LinkedinTwitter