From 13df8be29f0fd1fd6944bfa8bb28b01986bd2e46 Mon Sep 17 00:00:00 2001
From: Bobbi Webber-Manners <bobbi.manners@gmail.com>
Date: Sat, 19 May 2018 18:56:40 -0400
Subject: [PATCH] Minor fix to score printout

---
 tetris.8b | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

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()