2 MODE 0:BORDER 0:INK 0,0:SYMBOL AFTER 32:z=HIMEM-255:FOR a=1 TO 10:INK a,ASC(MID$("36?HBD245>;",a+1))-48:d=z+ASC(MID$("CRACKn'ROM",a,1))*8:FOR l=0 TO 7:p$=BIN$(PEEK(d+l),8):FOR c=1 TO 7:i=VAL(MID$(p$,c+1,1)):WHILE i:x=c*10+a*64-70:Y=230-a*4-l*32:MOVE x,y
8 DRAWR 0,28,a:DRAWR 4,0:DRAWR 0,-28:i=0:WEND:NEXT c,l,a:ORIGIN 0,0,0,639,399,256:s=4:a=405:WHILE INKEY(47):MOVE 0,a:DRAWR 639,0,p:MOVER 0,2:DRAWR -639,0:MOVER 0,-s*6:DRAWR 639,0,0:MOVER 0,2:DRAWR -639,0:a=a+s:s=s*(1+2*(a<248 OR a>405)):p=1+p MOD 13:WEND