CLS
NEW
' ------- 21 Telopper(1)
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 0
150 NEXT
160 SCROLL 0
170 P=P+1
180 IF [P]=0 THEN P=0
190 GOTO 110
1000 A=PEEK(C*8+N)
1010 FOR I=0 TO 7
1020 LOCATE I+12,23:?CHR$(((A & #80)<>0)*4);
1030 A=A<<1
1040 NEXT
1050 RETURN