diff --git a/src/dcp/sgincl.14 b/src/dcp/sgincl.15
old mode 100755
new mode 100644
similarity index 99%
rename from src/dcp/sgincl.14
rename to src/dcp/sgincl.15
index 2727330e..f2d3a993
--- a/src/dcp/sgincl.14
+++ b/src/dcp/sgincl.15
@@ -26,6 +26,7 @@
 (defvar sg-current-x 0) (defvar sg-current-y 0) (defvar sg-xor-ior 'ior)
 
 (defconst %TDGRF #o231) (defconst %TDNOP #o210) (defconst %TDRST #o230)
+(defconst %TDCRL #o207)
 
 (defconst tv:alu-ior 0) (defconst tv:alu-andcam #o40) (defconst tv:alu-xor -1)
 (defconst %goMVR #o001) (defconst %goMVA #o021)
@@ -159,6 +160,8 @@
       ((ior)	 (sg-out %goIOR) (setq sg-xor-ior 'ior))
       )))
 
+(defun sg-return ()
+  (+tyo %TDCRL sgos))
 
 (defun sg-set-point (x y)
   (sg-move-absolute x y))
diff --git a/src/dcp/supard.2 b/src/dcp/supard.3
similarity index 97%
rename from src/dcp/supard.2
rename to src/dcp/supard.3
index 3bb8e66e..dd3d29de 100644
--- a/src/dcp/supard.2
+++ b/src/dcp/supard.3
@@ -48,7 +48,11 @@
        (sg-out 0)
        (sg-set-point 0 0)
        n)
-    (sg-out n)))
+    (caseq n
+      ((0 3) nil)
+      ((12) nil)
+      ((15) (sg-return))
+      (t (sg-out n)))))
 
 (defun enter-set-point-mode ()
   (do ((i 0)