Ennyi jutott nekem eszembe, de biztos sokkal jobbat is ki lehetne ebből hozni:
100 TEXT 40
110 DO
120 LET A=1
130 FOR B=1 TO 7
140 SET CHARACTER 32,A,A,A,A,A,A,A,A,A
150 LET A=A*2
160 NEXT
170 FOR B=1 TO 7
180 LET A=A/2
190 SET CHARACTER 32,A,A,A,A,A,A,A,A,A
200 NEXT
210 LOOP