diff --git a/scorch.bin b/scorch.bin
index f71f5b7..519e953 100644
Binary files a/scorch.bin and b/scorch.bin differ
diff --git a/scorch.xex b/scorch.xex
index 06c0c3d..7658afe 100644
Binary files a/scorch.xex and b/scorch.xex differ
diff --git a/textproc.asm b/textproc.asm
index 6db9109..9f2654c 100644
--- a/textproc.asm
+++ b/textproc.asm
@@ -114,7 +114,11 @@ OptionsNoRight
 OptionsNoReturn
 	cmp #@kbcode._tab	; Tab key
 	bne OptionsNoTab
-NextGradientNr
+	jsr SelectNextGradient
+OptionsNoTab
+    jmp OptionsMainLoop
+.endp
+.proc SelectNextGradient
 	ldy GradientNr
 	iny
 	cpy #$03
@@ -126,8 +130,7 @@ NoGradientLoop
 	sta GradientColors
 	lda GradientAddrH,y
 	sta GradientColors+1	
-OptionsNoTab
-    jmp OptionsMainLoop
+	rts
 .endp
 ;--------
 ; inversing selected option (cursor)
diff --git a/weapons.asm b/weapons.asm
index c60ac07..fd91590 100644
--- a/weapons.asm
+++ b/weapons.asm
@@ -1196,7 +1196,14 @@ jumpFromStick
     jeq pressedM
     cmp #@kbcode._S  ; $3e  ; S
     jeq pressedS
-    jmp notpressed
+	.IF TARGET = 800
+	cmp #61	; G
+	bne EndKeys
+	jsr SelectNextGradient
+	jmp ReleaseAndLoop
+	.ENDIF
+EndKeys
+	jmp notpressed
 checkJoy
     ;------------JOY-------------
     ;happy happy joy joy
@@ -1409,6 +1416,7 @@ pressedS
     ; have you tried turning sfx off and on again?
     lda #$ff
     eor:sta noSfx
+ReleaseAndLoop
     jsr WaitForKeyRelease
     jmp BeforeFire