NEW
1 P1=FEH 
2 GOSUB 20 
3 P1=FDH 
4 GOSUB 20 
5 P1=FBH 
6 GOSUB 20 
7 P1=F7H 
8 GOSUB 20 
9 P1=EFH 
10 GOSUB 20 
11 P1=DFH 
12 GOSUB 20 
13 P1=BFH 
14 GOSUB 20 
15 P1=7FH 
16 GOSUB 20 
17 GOTO 1 
20 DELAY 1
21 RETURN
this line and the lines below
are comments and can be
removed with a text editor or
the errors caused by trying to
upload them can be ignored
-------------------------------
cyclep1.tmb
cycle the bits of P1