Change colors during the game with the G key (a800 only)

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)

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