XXXXXXXXXXXXXXXXXX
XX   XXXXXXXXXXXXX
XX     XXXXXXXXXXX
XX @  XXXXXXXXXXXX
XX@XXXXXXXXXXX  sX
X  XXXXXXXXXXX  sX
X *              X
XXXXXXXXXXXXXX  XX
XXXXXXXXXXXXXXXXXX

##</code><code>##

while(1){
   if($c = Readkey(-1)){
     # running/playing game etc.
   }
 
   sleep(1);
   print $count++;
}