10  FOR N=0 TO 255
20  Port1=n
30  NEXT N
40  GOTO 10