From d604e68c2bf993bd2ef738ce1ee8625bdfa62a86 Mon Sep 17 00:00:00 2001
From: "Kartik K. Agaram" <vc@akkartik.com>
Date: Wed, 21 Apr 2021 00:17:22 -0700
Subject: [PATCH] .

---
 500fake-screen.mu | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/500fake-screen.mu b/500fake-screen.mu
index 01df2d5e..fc907885 100644
--- a/500fake-screen.mu
+++ b/500fake-screen.mu
@@ -257,6 +257,17 @@ fn clear-screen _screen: (addr screen) {
   set-cursor-position screen, 0, 0
   var pixels-ah/eax: (addr handle array byte) <- get screen, pixels
   var pixels/eax: (addr array byte) <- lookup *pixels-ah
+  var i/ecx: int <- copy 0
+  var max/edx: int <- length pixels
+  {
+    compare i, max
+    break-if->=
+    var curr/eax: (addr byte) <- index pixels, i
+    var zero/ebx: byte <- copy 0
+    copy-byte-to *curr, zero
+    i <- increment
+    loop
+  }
 }
 
 fn fake-screen-empty? _screen: (addr screen) -> _/eax: boolean {