diff --git a/kodiak.tal b/kodiak.tal
index 450c6c8..4b6a660 100644
--- a/kodiak.tal
+++ b/kodiak.tal
@@ -140,6 +140,7 @@
     &ok                               ( lim^ zp^ c^ )
         #0008 .Screen/y DEO2          ( lim^ zp^ c^ ; y<-8 )
         LIT2 [ &x $2 ] .Screen/x DEO2 ( lim^ zp^ c^ ; x<- )
+        DUP #80 AND ?&done            ( lim^ zp^ c^ )
         draw-c                        ( lim^ zp^ ; draw c )
     ,&x LDR2 #0008 ADD2 ,&x STR2      ( lim^ zp^ ; x<-x+8 )
     INC GTHk ?&loop                   ( lim^ zp+1^ )