diff --git a/libsrc/pet/Makefile b/libsrc/pet/Makefile
index 2ef302b20..86eb5b5b4 100644
--- a/libsrc/pet/Makefile
+++ b/libsrc/pet/Makefile
@@ -27,6 +27,7 @@ OBJS =	_scrsize.o	\
         kclose.o        \
         kernal.o        \
         kopen.o         \
+        kplot.o         \
         krdtim.o        \
         kreadst.o       \
         ksetlfs.o       \
diff --git a/libsrc/pet/kplot.s b/libsrc/pet/kplot.s
new file mode 100644
index 000000000..5eb990742
--- /dev/null
+++ b/libsrc/pet/kplot.s
@@ -0,0 +1,25 @@
+;
+; Ullrich von Bassewitz, 2002-12-12
+;
+; PLOT replacement function for the PETs
+;
+
+        .export         PLOT
+        .import         plot            ; from cputc.s
+
+        .include        "pet.inc"
+
+
+.proc   PLOT
+
+        bcs     @L1                     ; Fetch values if carry set
+        sty     CURS_X
+        stx     CURS_Y
+        jsr     plot
+@L1:    ldy     CURS_X
+        ldx     CURS_Y
+        rts
+
+.endproc
+
+