[SIZE=3][B][FONT=Courier New]Device [/FONT][/B][FONT=Courier New]= 18F2525 [/FONT][/SIZE] [FONT=Courier New][SIZE=3][COLOR=#000080][I]// Mongoose CPU PIC18F2525[/I][/COLOR][/SIZE][SIZE=3][B]
Clock [/B]= 8 [/SIZE][SIZE=3][COLOR=#000080][I]// 8MHz
[/I][/COLOR][/SIZE][SIZE=3][B]Include [/B][/SIZE][SIZE=3][COLOR=#008000]"Mongoose.bas"
[/COLOR][/SIZE][SIZE=3][B]While true
[/B]MotorLR(64,-127) [/SIZE][SIZE=3][COLOR=#000080][I]// Left fwd 64 (50%), Right rev -127 (100%)
[/I][/COLOR][/SIZE][SIZE=3][B]High[/B](PORTC.0) [/SIZE] [SIZE=3][COLOR=#000080][I]// turn on the headlight LED
[/I][/COLOR][/SIZE][SIZE=3][B]DelayMS[/B](5000) [/SIZE] [SIZE=3][COLOR=#000080][I]// delay 5 seconds
[/I][/COLOR][/SIZE][SIZE=3][B]Low[/B](PORTC.0) [/SIZE] [SIZE=3][COLOR=#000080][I]// turn off the headlight LED
[/I][/COLOR][/SIZE][SIZE=3]MotorLR(0,0) [/SIZE] [SIZE=3][COLOR=#000080][I]// stop
[/I][/COLOR][/SIZE][SIZE=3][B]DelayMS[/B](1000) [/SIZE] [SIZE=3][COLOR=#000080][I]// delay 1 second
[/I][/COLOR][/SIZE][SIZE=3][B]Wend [/B][/SIZE] [SIZE=3][COLOR=#000080][I]// repeat
[/I][/COLOR][/SIZE][/FONT][SIZE=3][B][FONT=Courier New]End[/FONT][/B][/SIZE]