diff --git a/libsrc/apple2/doesclrscr.s b/libsrc/apple2/doesclrscr.s
new file mode 100644
index 000000000..2e2e7b96f
--- /dev/null
+++ b/libsrc/apple2/doesclrscr.s
@@ -0,0 +1,21 @@
+;
+; Oliver Schmidt, 2016-06-05
+;
+; unsigned char doesclrscrafterexit (void);
+;
+
+        .export         _doesclrscrafterexit
+        .import         done
+
+        .include        "apple2.inc"
+
+_doesclrscrafterexit:
+        ; If the page we jump to when done equals the page
+        ; of the warmstart vector we'll return to BASIC so
+        ; there's no implicit clrscr() after exit().
+        lda     done+2
+        sec
+        sbc     #>DOSWARM
+
+        ldx     #>$0000
+        rts