CLS
NEW
' ------- 21 Telopper(2)
10 CLS:CLV
100 LET[0],#FF,#49,#63,#68,#69,#67,#6F,#4A,#61,#6D,#20
110 C=[P]
120 FOR N=0 TO 7
130 GOSUB 1000
140 SCROLL 3
150 NEXT
160 P=P+1
180 IF [P]=0 THEN P=0
190 GOTO 110
1000 FOR I=0 TO 7
1010 A=PEEK(C*8+I)
1020 T=(A<<N) & #80
1030 LOCATE 31,8+I:?CHR$((T<>0)*4);
1040 NEXT
1050 RETURN