'PLEASE NOTE! 'The tester assumes that you will not light more then ONE LED at a time. 'Do not light multipule LED's at once, or you might overload the I/O pins. 'If you want the sequencer to run faster, make D smaller, or make D larger to slow it down. Option Explicit DIM SD%(4)=(00,47,12,10,11) 'E100 SD card pins DIM FEEL%(5)=(00,40,11,12,01,10) 'E100 touch pins DIM BUS%(13)=(00,93,94,98,99,100,03,04,05,42,58,06,19,18) 'E100 LCD bus pins DIM PACK%(8)=(00,15,14,03,07,25,02,23,06) 'Micromite Backpack pins DIM X,D=250 'D is the delay between LED's lighting - change to whatever suits. DIM K$ Setpin 6,dout 'LCD RD pin - bypass 10k pull-up to prevent LED lighting till we want it to. BEGIN: Print "E100/BACKPACK PORT TESTER 1A" Print "(N) No Copyright - use however you like. ;)" Print Print Print "[1] - Test E100 SD pins(on CON9, NOT uSD on 1D boards!)" Print "[2] - Test E100 TOUCH pins" Print "[3] - Test E100 LCD display bus" Print "[4] - Test Micromite BACKPACK connections" Print Do K$=Inkey$ Loop until K$<>"" 'Wait for a keypress... Select Case K$ Case "1" 'Test SD card connections For X=1 to 4 Setpin(SD%(X)),DOUT 'Set the SD card pins as outputs Next Do For X=1 to 4 'Step through each pin, lighting an LED as we go Pin(SD%(X))=1 Pause D PIN(SD%(X))=0 Pause D Next Loop until inkey$<>"" Goto BEGIN CASE "2" For X=1 to 5 SetPin(FEEL%(X)),DOUT 'Set the touch pins as outputs Next Do For X=1 to 5 'Step through each pin, lighting an LED as we go Pin(FEEL%(X))=1 Pause D PIN(FEEL%(X))=0 Pause D Next Loop until inkey$<>"" Goto BEGIN Case "3" For X=1 to 13 SetPin(BUS%(X)),DOUT 'Set the LCD pins as outputs Next Do For X=1 to 13 'Step through each pin, lighting an LED as we go Pin(BUS%(X))=1 Pause D PIN(BUS%(X))=0 Pause D Next Loop until inkey$<>"" Goto BEGIN Case "4" For X=1 to 8 SetPin(PACK%(X)),DOUT 'Set the Backpack LCD pins as outputs Next Do For X=1 to 8 'Step through each pin, lighting an LED as we go Pin(PACK%(X))=1 Pause D PIN(PACK%(X))=0 Pause D Next Loop until inkey$<>"" Goto BEGIN END SELECT