' pintest program for uMite 28 pin prototype board
Open "com1:9600,de" As #1
Pause 5000
Print "---------- Pintest Program for uMite-28 ----------"
Print ""
Print "Simple pin tester using an LED and resistor probe."
Print "Each pin will be toggled to 1, then back to 0."
Print "Use the LED Probe to check each pin on the board."
Print "The Rs-485 IC will transmit the pin being tested."
Print "A quick check with a scope should verify the pins."
Print ""
Input "Press any key to start...",a

Print ""
Print "Init Pins"
n=2 ' starting pin number
Do
int_pin
n=n+1
chk_pin
Loop Until n=2
Print ""

Print "Testing Pins"
Do
Print n;
Print #1,n;
If n=26 Then Print ""
Pin(n)=1
Pause 20
Pin(n)=0
Pause 20
n=n+1
chk_pin
Loop

Sub chk_pin
If n=7 Then n=9
If n=11 Then n=14
If n=19 Then n=23
If n=27 Then n=2
End Sub

Sub int_pin
Print n;: Pin(n)=0: SetPin n,dout
End Sub