diff --git a/libsrc/c16/cpeekchar.s b/libsrc/c16/cpeekchar.s
deleted file mode 100644
index 5d89570f1..000000000
--- a/libsrc/c16/cpeekchar.s
+++ /dev/null
@@ -1,39 +0,0 @@
-
-		.export _cpeekchar
-		.export _cpeekcharxy
-
-		.import _gotoxy
-
-		.include	"c16.inc"
-
-	.segment "CODE"
-
-_cpeekcharxy:
-
-	jsr	_gotoxy		; Set cursor
-
-_cpeekchar:
-
-   	ldy CURS_X
-	lda	(SCREEN_PTR),y	; get char
-    ldx #0
-	
-	and #$7f
-
-	;   0 - $1f +$40
-    ; $20 - $3f
-	; $40 - $7e +$80
-
-	cmp #$1f
-	bcs @sk1
-;;	clc
-	adc #$40
-	rts
-
-@sk1:
-    cmp #$40
-	bcc @end
-	clc
-	adc #$80
-@end:
-	rts
diff --git a/libsrc/c64/cpeekchar.s b/libsrc/c64/cpeekchar.s
deleted file mode 100644
index 33d0284e7..000000000
--- a/libsrc/c64/cpeekchar.s
+++ /dev/null
@@ -1,39 +0,0 @@
-
-		.export _cpeekchar
-		.export _cpeekcharxy
-
-		.import _gotoxy
-
-		.include	"c64.inc"
-
-	.segment "CODE"
-
-_cpeekcharxy:
-
-	jsr	_gotoxy		; Set cursor
-
-_cpeekchar:
-
-   	ldy CURS_X
-	lda	(SCREEN_PTR),y	; get char
-    ldx #0
-	
-	and #$7f
-
-	;   0 - $1f +$40
-    ; $20 - $3f
-	; $40 - $7e +$80
-
-	cmp #$1f
-	bcs @sk1
-;;	clc
-	adc #$40
-	rts
-
-@sk1:
-    cmp #$40
-	bcc @end
-	clc
-	adc #$80
-@end:
-	rts
diff --git a/libsrc/cbm510/cpeekchar.s b/libsrc/cbm510/cpeekchar.s
deleted file mode 100644
index 11787fe1e..000000000
--- a/libsrc/cbm510/cpeekchar.s
+++ /dev/null
@@ -1,33 +0,0 @@
-
-		.export _cpeekchar
-		.export _cpeekcharxy
-
-		.import _gotoxy
-		
-		.include	"cbm510.inc"
-		.include	"extzp.inc"
-
-	.segment "CODE"
-
-_cpeekcharxy:
-
-	jsr	_gotoxy		; Set cursor
-
-_cpeekchar:
-	lda #0
-	ldx #0
-	rts
-    
-	;; ?!?!
-
-	ldx	IndReg
-	ldy	#$0F
-	sty	IndReg
-       	
-	ldy    	CURS_X
-	lda	(SCREEN_PTR),y 	; get char
-
-	stx	IndReg
-
-	ldx #0
-	rts
diff --git a/libsrc/pet/cpeekchar.s b/libsrc/pet/cpeekchar.s
deleted file mode 100644
index c846beb56..000000000
--- a/libsrc/pet/cpeekchar.s
+++ /dev/null
@@ -1,39 +0,0 @@
-
-		.export _cpeekchar
-		.export _cpeekcharxy
-
-		.import _gotoxy
-
-		.include	"pet.inc"
-
-	.segment "CODE"
-
-_cpeekcharxy:
-
-	jsr	_gotoxy		; Set cursor
-
-_cpeekchar:
-
-   	ldy CURS_X
-	lda	(SCREEN_PTR),y	; get char
-    ldx #0
-	
-	and #$7f
-
-	;   0 - $1f +$40
-    ; $20 - $3f
-	; $40 - $7e +$80
-
-	cmp #$1f
-	bcs @sk1
-;;	clc
-	adc #$40
-	rts
-
-@sk1:
-    cmp #$40
-	bcc @end
-	clc
-	adc #$80
-@end:
-	rts
diff --git a/libsrc/plus4/cpeekchar.s b/libsrc/plus4/cpeekchar.s
deleted file mode 100644
index 1d47c6d64..000000000
--- a/libsrc/plus4/cpeekchar.s
+++ /dev/null
@@ -1,39 +0,0 @@
-
-		.export _cpeekchar
-		.export _cpeekcharxy
-
-		.import _gotoxy
-
-		.include	"plus4.inc"
-
-	.segment "CODE"
-
-_cpeekcharxy:
-
-	jsr	_gotoxy		; Set cursor
-
-_cpeekchar:
-
-   	ldy CURS_X
-	lda	(SCREEN_PTR),y	; get char
-    ldx #0
-	
-	and #$7f
-
-	;   0 - $1f +$40
-    ; $20 - $3f
-	; $40 - $7e +$80
-
-	cmp #$1f
-	bcs @sk1
-;;	clc
-	adc #$40
-	rts
-
-@sk1:
-    cmp #$40
-	bcc @end
-	clc
-	adc #$80
-@end:
-	rts
diff --git a/libsrc/vic20/cpeekchar.s b/libsrc/vic20/cpeekchar.s
deleted file mode 100644
index fae7ec1b4..000000000
--- a/libsrc/vic20/cpeekchar.s
+++ /dev/null
@@ -1,39 +0,0 @@
-
-		.export _cpeekchar
-		.export _cpeekcharxy
-
-		.import _gotoxy
-
-		.include	"vic20.inc"
-
-	.segment "CODE"
-
-_cpeekcharxy:
-
-	jsr	_gotoxy		; Set cursor
-
-_cpeekchar:
-
-   	ldy CURS_X
-	lda	(SCREEN_PTR),y	; get char
-    ldx #0
-	
-	and #$7f
-
-	;   0 - $1f +$40
-    ; $20 - $3f
-	; $40 - $7e +$80
-
-	cmp #$1f
-	bcs @sk1
-;;	clc
-	adc #$40
-	rts
-
-@sk1:
-    cmp #$40
-	bcc @end
-	clc
-	adc #$80
-@end:
-	rts