10 SYMBOL AFTER 32:z=HIMEM-255:MODE 0:FOR k=0 TO 8:INK k,ASC(MID$("023<9;6HB",k+1))-48:NEXT:k=15:FOR a=1 TO 4:FOR l=0 TO 6:p$=BIN$(PEEK(z+ASC(MID$("|CPM",a,1))*8+l),8):FOR c=0 TO 6:i=VAL(MID$(p$,c+1,1)):WHILE i:x=c*20+a*162-172:MOVE x,6+l*32:DRAWR 0,26,a
20 DRAWR 28,0:DRAWR 0,-26:DRAWR-28,0:MOVE x,373-l*24:DRAWR 0,20,a+4:DRAWR 28,0:DRAWR 0,-22:DRAWR-28,0:i=0:WEND:NEXT c,l,a:CALL &BB06:WHILE k:FOR a=2 TO k:PRINT CHR$(30)CHR$(8):NEXT:SOUND 3,450,5,k-1:FOR a=4 TO k:LOCATE 21,25:PRINT:NEXT:k=k-1:WEND:RUN