Sorry, I didnt know how to use the Code: boxes but here is the "non-working" code:
Code:DEFINE OSC 4 'Define for 4MHz crystal DEFINE LOADER_USED 1 ' Boot loader for ICSP ' ' ***** Configure I/O ************************************************ PORTC = %00000000 TRISC = %00000000 Rel1 var PORTC.0 ' Relay1 Transistor input Rel2 var PORTC.1 ' Relay2 Transistor input Rel3 var PORTC.2 ' Relay3 Transistor input Rel4 var PORTC.3 ' Relay4 Transistor input ' Startup: Gosub TestRelay1 END ' TestRelay1: High Rel1 Pause 1000 High Rel2 Pause 1000 High Rel3 Pause 1000 High Rel4 Pause 1000 Low Rel1 Pause 1000 Low Rel2 Pause 1000 Low Rel3 Pause 1000 Low Rel4 Pause 1000 End




Bookmarks