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 
     if start=0 then 
        pause 10 
       until stops=0   ' if constrain true out off loop          
   lamp =$00
   pause 10   
 goto loop

About The Author

Ibrar Ayyub

I am an experienced technical writer holding a Master's degree in computer science from BZU Multan, Pakistan University. With a background spanning various industries, particularly in home automation and engineering, I have honed my skills in crafting clear and concise content. Proficient in leveraging infographics and diagrams, I strive to simplify complex concepts for readers. My strength lies in thorough research and presenting information in a structured and logical format.

Follow Us:

Leave a Comment

Your email address will not be published. Required fields are marked *

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