diff --git a/libsrc/c128/cpeekcol.s b/libsrc/c128/cpeekcol.s
deleted file mode 100644
index d96563574..000000000
--- a/libsrc/c128/cpeekcol.s
+++ /dev/null
@@ -1,67 +0,0 @@
-
-		.export _cpeekcol
-		.export _cpeekcolxy
-
-		.import _gotoxy
-
-		.include	"c128.inc"
-
-	.segment "CODE"
-
-_cpeekcolxy:
-
-	jsr	_gotoxy		; Set cursor
-
-_cpeekcol:
-
-	bit MODE
-	bmi @c80
-
-   	ldy CURS_X
-	lda	(CRAM_PTR),y	; get col
-	and #$0f
-	ldx #0
-	rts
-
-@c80:
-	lda CRAM_PTR
-	ldy CRAM_PTR+1
-	clc
-	adc CURS_X
-	bcc @s
-	iny
-@s:
-	; get byte from vdc mem
-	ldx	#VDC_DATA_LO
-	stx	VDC_INDEX
-@L0:	bit	VDC_INDEX
-	bpl	@L0
-	sta	VDC_DATA
-	dex
-	;;tya
-	stx	VDC_INDEX
-	sty	VDC_DATA
-
-	ldx	#VDC_DATA_RW
-	stx	VDC_INDEX
-@L1:	bit	VDC_INDEX
-	bpl	@L1
-	lda	VDC_DATA
-
-
-	and #$0f
-
-; translate vdc->vic colour
-
-vdctovic:
-       	ldy	#16
-@L2:    cmp	$CE5C-1,y
-        beq	@L3
-        dey
-        bne     @L2
-@L3:	
-        dey
-		tya
-
-    ldx #0
-	rts
diff --git a/libsrc/c16/cpeekcol.s b/libsrc/c16/cpeekcol.s
index 41fed7b9f..446079ddd 100644
--- a/libsrc/c16/cpeekcol.s
+++ b/libsrc/c16/cpeekcol.s
@@ -1,18 +1,11 @@
 
-		.export _cpeekcol
-		.export _cpeekcolxy
-
-		.import _gotoxy
+		.export _cpeekcolor
 
 		.include "c16.inc"
 
 	.segment "CODE"
 
-_cpeekcolxy:
-
-	jsr	_gotoxy		; Set cursor
-
-_cpeekcol:
+_cpeekcolor:
 
    	ldy CURS_X
 	lda	(CRAM_PTR),y	; get color
diff --git a/libsrc/c64/cpeekcol.s b/libsrc/c64/cpeekcol.s
index 60fb45c7b..8e87cff23 100644
--- a/libsrc/c64/cpeekcol.s
+++ b/libsrc/c64/cpeekcol.s
@@ -1,21 +1,14 @@
 
-		.export _cpeekcol
-		.export _cpeekcolxy
+    .export _cpeekcolor
 
-		.import _gotoxy
+    .include "c64.inc"
 
-		.include "c64.inc"
+    .segment "CODE"
 
-	.segment "CODE"
+_cpeekcolor:
 
-_cpeekcolxy:
-
-	jsr	_gotoxy		; Set cursor
-
-_cpeekcol:
-
-   	ldy CURS_X
-	lda	(CRAM_PTR),y	; get color
-	and #$0f
+    ldy CURS_X
+    lda (CRAM_PTR),y    ; get color
+    and #$0f
     ldx #0
-	rts
+    rts
diff --git a/libsrc/c64/soft80_cpeekcol.s b/libsrc/c64/soft80_cpeekcol.s
deleted file mode 100644
index 9891ab28a..000000000
--- a/libsrc/c64/soft80_cpeekcol.s
+++ /dev/null
@@ -1,21 +0,0 @@
-
-		.export _cpeekcol
-		.export _cpeekcolxy
-
-		.import _gotoxy
-
-		.include	"c64.inc"
-
-	.segment "CODE"
-
-_cpeekcolxy:
-
-	jsr	_gotoxy		; Set cursor
-
-_cpeekcol:
-
-   	ldy #0
-	lda	(CRAM_PTR),y	; get char
-	and #$0f
-    ldx #0
-	rts
diff --git a/libsrc/cbm510/cpeekcol.s b/libsrc/cbm510/cpeekcol.s
deleted file mode 100644
index bbe7c5632..000000000
--- a/libsrc/cbm510/cpeekcol.s
+++ /dev/null
@@ -1,32 +0,0 @@
-
-		.export _cpeekcol
-		.export _cpeekcolxy
-
-		.import _gotoxy
-
-		.include	"cbm510.inc"
-		.include	"extzp.inc"
-
-	.segment "CODE"
-
-_cpeekcolxy:
-
-	jsr	_gotoxy		; Set cursor
-
-_cpeekcol:
-     
-	lda #0
-    ldx #0
-	rts
-          
-	;; why the HELL doesnt this work ?!?
-	lda	#$0F
-   	ldy CURS_X
-	sei
-	ldx	IndReg
-	sta	IndReg
-	lda	(CRAM_PTR),y	; get color
-	stx	IndReg
-	cli
-    ldx #0
-	rts
diff --git a/libsrc/plus4/cpeekcol.s b/libsrc/plus4/cpeekcol.s
index 0f3258eb3..b98b0124e 100644
--- a/libsrc/plus4/cpeekcol.s
+++ b/libsrc/plus4/cpeekcol.s
@@ -1,21 +1,14 @@
 
-		.export _cpeekcol
-		.export _cpeekcolxy
+    .export _cpeekcolor
 
-		.import _gotoxy
+    .include "plus4.inc"
 
-		.include "plus4.inc"
+    .segment "CODE"
 
-	.segment "CODE"
+_cpeekcolor:
 
-_cpeekcolxy:
-
-	jsr	_gotoxy		; Set cursor
-
-_cpeekcol:
-
-   	ldy CURS_X
-	lda	(CRAM_PTR),y	; get color
-	;and #$0f is this ok?
+    ldy CURS_X
+    lda (CRAM_PTR),y    ; get color
+    ;and #$0f is this ok?
     ldx #0
-	rts
+    rts
diff --git a/libsrc/vic20/cpeekcol.s b/libsrc/vic20/cpeekcol.s
index 59bf057ff..31fa4612a 100644
--- a/libsrc/vic20/cpeekcol.s
+++ b/libsrc/vic20/cpeekcol.s
@@ -1,21 +1,14 @@
 
-		.export _cpeekcol
-		.export _cpeekcolxy
+    .export _cpeekcolor
 
-		.import _gotoxy
+    .include "vic20.inc"
 
-		.include "vic20.inc"
+    .segment "CODE"
 
-	.segment "CODE"
+_cpeekcolor:
 
-_cpeekcolxy:
-
-	jsr	_gotoxy		; Set cursor
-
-_cpeekcol:
-
-   	ldy CURS_X
-	lda	(CRAM_PTR),y	; get color
-	and #$0f
+    ldy CURS_X
+    lda (CRAM_PTR),y    ; get color
+    and #$0f
     ldx #0
-	rts
+    rts