DRIVER:
 Poke 12575489&,255
 While (Timer-B<(1/FREQUENCY)) : Wend
 Poke 12575489&,0
 B=Timer
 Return


Now you've seen the program have a look at the wiring diagram.