10 CLS
20 CROFF
25 i=1
26 a=1
30 FOR b=1 TO 7
33 i=FN shl(i,a)
40 PORT o(6,i)
43 POS 10,10:PRINT i;" "
45 PAUSE 50
50 NEXT b
55 FOR b=1 TO 7
65 i=FN shr(i,a)
70 PORT o(6,i)
75 POS 10,10:PRINT i;" "
80 PAUSE 50
90 NEXT b
100 GOTO 30