'--------------------------------------------------------------

' put in the cal value for your part here (marked on the 8535 case
' most are hex 9F, some 91's and some in between
Osccal = &H9F

$crystal = 8000000
Ddra = &H11111110


Dim S As String * 15
Dim Z As String * 5

Ddrc = &B11110000
Portc = 0


Do
Porta.1 = 1
S = "0"

Input "Cmd: " , S

Porta.1 = 1
Wait 4
Open "coma.1:9600,8,n,1" For Output As #1
Print #1 , S
Waitms 400
Print #1 , S
Waitms 400
Print #1 , S

Close #1


Loop