diff --git a/tetris.8b b/tetris.8b
index 8481269..67f33fd 100644
--- a/tetris.8b
+++ b/tetris.8b
@@ -53,6 +53,7 @@ call prng()
 piece=rr%5
 call loresmix()
 while 1
+ score=0
  pr.ch clrscr
  call clrlomix()
  call frame()
@@ -71,7 +72,6 @@ endwhile
 end
 
 sub playgame()
- score=0
  while 1
   key=getkey()
   orow=row;ocol=col;orot=rot
@@ -87,6 +87,11 @@ sub playgame()
    else
     if (key=='d')&&rok
      col=col+1
+    else
+     if key=='p'
+      while getkey()==0
+      endwhile
+     endif
     endif
    endif
   endif
@@ -494,6 +499,7 @@ endsub
 sub printscore()
  ^hpos=17
  pr.dec score
+ pr.msg "       "
 endsub
 
 sub loser()