diff --git a/examples/compiled/examples.d64 b/examples/compiled/examples.d64
index 4d6bdd185..6de86db56 100644
Binary files a/examples/compiled/examples.d64 and b/examples/compiled/examples.d64 differ
diff --git a/examples/compiled/tehtriz.prg b/examples/compiled/tehtriz.prg
new file mode 100644
index 000000000..f7eac198f
Binary files /dev/null and b/examples/compiled/tehtriz.prg differ
diff --git a/examples/tehtriz.p8 b/examples/tehtriz.p8
index aad0dfa5f..692ce3c0c 100644
--- a/examples/tehtriz.p8
+++ b/examples/tehtriz.p8
@@ -14,13 +14,12 @@
     const ubyte boardHeight = 20
     const ubyte startXpos = boardOffsetX + 3
     const ubyte startYpos = boardOffsetY - 2
-    const ubyte startSpeedLevel = 30
     uword lines
     uword score
     ubyte xpos
     ubyte ypos
     ubyte nextBlock
-    ubyte speedlevel = startSpeedLevel
+    ubyte speedlevel = 1
 
 
     sub start() {
@@ -36,7 +35,7 @@ newgame:
         spawnNextBlock()
 
 waitkey:
-        if c64.TIME_LO>=speedlevel {
+        if c64.TIME_LO>=(60-4*speedlevel) {
             c64.TIME_LO = 0
 
             drawBlock(xpos, ypos, 32) ; hide block
@@ -177,11 +176,7 @@ waitkey:
             lines += num_lines
             uword[4] scores = [10, 25, 50, 100]      ; can never clear more than 4 lines
             score += scores[num_lines-1]
-            word speed = startSpeedLevel-(lines as word)/10
-            if speed>0
-                speedlevel = lsb(speed)
-            else
-                speedlevel = 0
+            speedlevel = 1+lsb(lines/10)
             drawScore()
         }
     }
@@ -300,7 +295,7 @@ waitkey:
         c64scr.PLOT(30,15)
         c64scr.print_uw(score)
         c64scr.PLOT(9,22)
-        c64scr.print_ub(startSpeedLevel+1-speedlevel)
+        c64scr.print_ub(speedlevel)
     }
 
     sub drawNextBlock() {