se512.bas

来自「82 sample programs written in BASCOM-805」· BAS 代码 · 共 26 行

'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