19 lines
241 B
QBasic
19 lines
241 B
QBasic
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
|
|
|