se512.bas

82 sample programs written in BASCOM-8051 for 8051 developement

'SE512.BAS
'Test program for the SE512 programmer

Dim I As Byte
P1 = 255
P3 = 255
Wait 1

P1 = 0
P3 = 0
Wait 1

Do
  P1 = 0
  For I = 0 To 7
    Set P1.i
    Waitms 250
    Waitms 250
  Next
  P3 = 0
  For I = 0 To 7
    Set P3.i
    Waitms 250
    Waitms 250
  Next
Loop