0a=1523:c=360:print"{clear}";:fory=1to13:forx=1toy:pokea-5+x-c+(y*40),42
1pokea+5-x-c+(y*40),42:pokea-5+x+c-(y*40),42:pokea+5-x+c-(y*40),42:next:next