diff --git a/libsrc/plus4/Makefile b/libsrc/plus4/Makefile
index 8dc900462..08455d48d 100644
--- a/libsrc/plus4/Makefile
+++ b/libsrc/plus4/Makefile
@@ -33,12 +33,13 @@ OBJS =	_scrsize.o	\
         klisten.o       \
         kload.o         \
         kopen.o         \
+        kplot.o         \
         krdtim.o        \
         kreadst.o       \
         ksave.o         \
         ksetlfs.o       \
         ksetnam.o       \
-        ksettim.s       \
+        ksettim.o       \
         ktalk.o         \
         kunlsn.o        \
         kuntlk.o        \
diff --git a/libsrc/plus4/_scrsize.s b/libsrc/plus4/_scrsize.s
index c63df59d2..15dd1f778 100644
--- a/libsrc/plus4/_scrsize.s
+++ b/libsrc/plus4/_scrsize.s
@@ -5,21 +5,10 @@
 ;
 
 	.export		xsize, ysize
-        .import         SCREEN
-	.constructor	initscrsize
-
-
-.code
-
-initscrsize:
-   	jsr	SCREEN
-   	stx	xsize
-   	sty	ysize
-	rts
-
-.bss
-
-xsize: 	.res	1
-ysize:	.res	1
+
+.data             
+
+xsize: 	.byte   40
+ysize:	.byte   25
 
 
diff --git a/libsrc/plus4/cgetc.s b/libsrc/plus4/cgetc.s
index 0bcd6013a..65bf26628 100644
--- a/libsrc/plus4/cgetc.s
+++ b/libsrc/plus4/cgetc.s
@@ -11,7 +11,7 @@
 
 ; --------------------------------------------------------------------------
 
-.segment        "LOWMEM"        ; Accesses the ROM - must go into low mem
+.segment        "LOWCODE"       ; Accesses the ROM - must go into low mem
 
 _cgetc:	lda	KEY_COUNT 	; Get number of characters
        	ora	FKEY_COUNT	; Or with number of function key chars
@@ -73,7 +73,7 @@ L2:    	sta     ENABLE_ROM      ; Bank in the ROM
 .endproc
 
 
-.segment        "LOWMEM"        ; Accesses the ROM - must go into low mem
+.segment        "LOWCODE"       ; Accesses the ROM - must go into low mem
 
 .proc	donekbd
 
diff --git a/libsrc/plus4/kplot.s b/libsrc/plus4/kplot.s
new file mode 100644
index 000000000..7035b05d5
--- /dev/null
+++ b/libsrc/plus4/kplot.s
@@ -0,0 +1,21 @@
+;
+; Ullrich von Bassewitz, 22.11.2002
+;
+; PLOT replacement function
+;
+
+        .export         PLOT
+
+        .include        "plus4.inc"
+
+.segment        "LOWCODE"               ; Must go into low memory
+
+.proc   PLOT
+        sta     ENABLE_ROM              ; Enable the ROM
+        jsr     $FFF0                   ; Call the ROM routine
+        sta     ENABLE_RAM              ; Switch back to RAM
+        rts                             ; Return to caller
+.endproc
+
+
+