diff --git a/include/coco/kernal.mfk b/include/coco/kernal.mfk
index ae76344d..10bc6adb 100644
--- a/include/coco/kernal.mfk
+++ b/include/coco/kernal.mfk
@@ -1,7 +1,10 @@
 
 noinline asm void putchar(byte register(a) character) {
-    clr <$6f
+    clr $6f
     jsr [$a002]
     rts
 }
 
+inline void new_line() {
+    putchar(13)
+}
diff --git a/include/coco/keyboard.mfk b/include/coco/keyboard.mfk
index 7270a369..7d34c6c0 100644
--- a/include/coco/keyboard.mfk
+++ b/include/coco/keyboard.mfk
@@ -1,7 +1,8 @@
 
 noinline asm byte readkey() {
-    clr <$6f
+    clr $6f
     jsr [$A000]
-    tfr b,a
+    beq readkey
+    tfr a,b
     rts
 }