include "MODEDEFS.BAS" @ device pic16F84A, xt_osc, wdt_off, protect_off, pwrt_on Define CHAR_PACING 500 DEFINE OSC 4 Trisb = %00000000 diodes var word diodes = 0 main: diodes = diodes + 1 serout portb.1, T9600, [#diodes,13] pause 50 portb.3 = 1 pause 50 portb.3 = 0 pause 50 goto main