'Dust Monitor Using ports 0-3
func main()


   dim sense1,x

   PWMinit(1)
   PWMcourse(2)
   PWMperiod(147)
   PWM1duty(147/2)
   output 0,3,15,14,11
   low 0,3,11
   high 15,12,14

   beepoff

loop:
   beepoff
   for x = 1 to 10
     sense1 = checksensor(1,2)  'Output port, Input Port
     print sense1
     if sense1 >= 400 then goto loop
     pause 50
   next

   beepon()



   goto loop

endfunc

'Pass the port numbers oport = output port, iport = input port
func checksensor(oport,iport)
   dim stat,count
   output oport
   input iport
   high oport
   count = 0

loop:
   stat = IOPORT(iport)
   if count >500 then count = 500 : goto done
   if stat = 0 then goto done
   count = count + 1
   goto loop

done:
   low oport
   exit count
endfunc

func beepon()
   dim x
     output 13,12
     toggle 13,15,14
     toggle 11,12
   for x = 1 to 5
     PWMperiod(147)
     PWM1duty(147/2)
     pause 100
     PWMperiod(179)
     PWM1duty(179/2)
     pause 100
   next 
endfunc

func beepoff()
   input 13
   input 12
endfunc

include \lib\DiosHWPWM.lib