diff --git a/constants.asm b/constants.asm
index 265607f..0b00b58 100644
--- a/constants.asm
+++ b/constants.asm
@@ -989,7 +989,9 @@ scrcodes
     dta d"qrstuvwx"
     dta d"yz123456"
     dta d"7890." ; "-"
-dliColors
-	:10 .by $02,$00
+dliColorsBack
+	:10 .by $04,$02
+dliColorsFore
+	.by $0a
 
 .endif
diff --git a/display.asm b/display.asm
index 9e10a46..2645ea0 100755
--- a/display.asm
+++ b/display.asm
@@ -142,7 +142,7 @@ WeaponsDescription
 EmptyLine
  dta d"                                        "
 LastLine
- :40 dta $ff
+ :40 dta $00	; INVERSE
 ; -------------------------------------------------
     .ALIGN $1000  ; WARNING!!!! 4KiB barrier crossing here, might need reassignment!!!
 NameScreen
diff --git a/grafproc.asm b/grafproc.asm
index 1243628..d0bfb38 100755
--- a/grafproc.asm
+++ b/grafproc.asm
@@ -441,8 +441,8 @@ splot8 .proc
 ;--------------------------------------------------
 clearscreen .proc
 ;--------------------------------------------------
-    lda #0
-    tax
+    lda #$ff	; INVERSE
+    ldx #0
 @
     :31 sta display+($100*#),x
     sta display+$1e50,x  ; this is so no space outside of the screen is cleared
@@ -1021,7 +1021,7 @@ MakeUnPlot
 
 
     lda color
-    beq ClearUnPlot
+    bne ClearUnPlot		; INVERSE
 
     ;plotting here
     lda (xbyte),y
@@ -1033,7 +1033,7 @@ ClearUnPlot
     lda (xbyte),y
     sta OldOraTemp
     and bittable2,x
-;    sta (xbyte),y
+    sta (xbyte),y
 ContinueUnPlot
     ldx WhichUnPlot
     lda OldOraTemp
@@ -1115,7 +1115,7 @@ MakePlot
 
     ldx ybit
     lda color
-    beq ClearPlot
+    bne ClearPlot	; INVERSE
 
     lda (xbyte),y
     ora bittable,x
@@ -1163,6 +1163,7 @@ point .proc
 
     lda (xbyte),y
     and bittable,x
+	eor bittable,x	; INVERSE
     rts
 .endp
 
@@ -1183,7 +1184,8 @@ DrawLine .proc
 loopdraw
 
     lda (xbyte),y
-    ora bittable,x
+    ;ora bittable,x
+	and bittable2,x		; INVERSE
     sta (xbyte),y
 IntoDraw   adw xbyte #screenBytes
 
@@ -1214,8 +1216,9 @@ TypeChar .proc
     ldy #7
 CopyChar
     lda (fontind),y
+	eor #$ff		; INVERSE
     sta char1,y
-    lda #$00
+    lda #$ff		; INVERSE
     sta char2,y
     dey
     bpl CopyChar
@@ -1224,8 +1227,9 @@ CopyChar
     ldy #7
 CopyMask
     lda (fontind),y
+	eor #$ff		; INVERSE
     sta mask1,y
-    lda #$ff
+    lda #$00		; INVERSE
     sta mask2,y
     dey
     bpl CopyMask
@@ -1257,44 +1261,52 @@ CopyMask
     ldx ybit
     beq MaskOK00
 MakeMask00
-    sec
+    clc		; INVERSE
     ror mask1
     ror mask2
-    sec
+    clc		; INVERSE
     ror mask1+1
     ror mask2+1
-    sec
+    clc		; INVERSE
     ror mask1+2
     ror mask2+2
-    sec
+    clc		; INVERSE
     ror mask1+3
     ror mask2+3
-    sec
+    clc		; INVERSE
     ror mask1+4
     ror mask2+4
-    sec
+    clc		; INVERSE
     ror mask1+5
     ror mask2+5
-    sec
+    clc		; INVERSE
     ror mask1+6
     ror mask2+6
-    sec
+    clc		; INVERSE
     ror mask1+7
     ror mask2+7
-    lsr char1
+    sec		; INVERSE
+    ror char1
     ror char2
+    sec		; INVERSE
     ror char1+1
     ror char2+1
+    sec		; INVERSE
     ror char1+2
     ror char2+2
+    sec		; INVERSE
     ror char1+3
     ror char2+3
+    sec		; INVERSE
     ror char1+4
     ror char2+4
+    sec		; INVERSE
     ror char1+5
     ror char2+5
+    sec		; INVERSE
     ror char1+6
     ror char2+6
+    sec		; INVERSE
     ror char1+7
     ror char2+7
     dex
@@ -1303,7 +1315,7 @@ MaskOK00
     ; here x=0
     lda Erase
     beq CharLoopi  ; it works, because x=0
-    lda #0
+    lda #$ff	; INVERSE
     ldx #7
 EmptyChar
     sta char1,x
@@ -1313,13 +1325,17 @@ EmptyChar
     ldx #0
 CharLoopi
     lda (xbyte),y
-    and mask1,x
-    ora char1,x
+    ;and mask1,x
+    ;ora char1,x
+    ora mask1,x		; INVERSE
+    and char1,x		; INVERSE
     sta (xbyte),y
     iny
     lda (xbyte),y
-    and mask2,x
-    ora char2,x
+    ;and mask2,x
+    ;ora char2,x
+    ora mask2,x		; INVERSE
+    and char2,x		; INVERSE
     sta (xbyte),y
     dey
     adw xbyte #screenBytes
diff --git a/scorch.asm b/scorch.asm
index fddb710..eb25c8b 100644
--- a/scorch.asm
+++ b/scorch.asm
@@ -797,6 +797,7 @@ SetunPlots
     sta oldplotH,x
     lda #0
     sta oldply,x
+	lda #$ff	; INVERSE
     sta oldora,x
     dex
     bpl SetunPlots
@@ -870,10 +871,18 @@ DLIinterrupt .proc
     pha
 	phy
 	ldy dliCounter
-	lda dliColors,y
-    ;lda #$02 ; color of playground
-    sta WSYNC
-    sta COLPF2
+;	bne NoFColorChange
+;	lda dliColorsFore
+;	sta COLPF2
+;NoFColorChange
+	lda dliColorsBack,y
+	ldy dliColorsFore
+	nop
+	nop
+	nop
+;    sta WSYNC
+    sta COLPF1
+	sty COLPF2
 	inc dliCounter
 	ply
     pla
diff --git a/scorch.xex b/scorch.xex
index 996e7d8..3d68e73 100644
Binary files a/scorch.xex and b/scorch.xex differ