Preapare for TEAMS

Variable and menu option added.

Atari/textproc.asm

@@ -140,8 +140,14 @@ OptionsNoTab
 .endp
 
 .proc SelectNextGradient
-    lda OptionsY    ; if "Wind" option selected
+    lda OptionsY
-    cmp #$03
+    bne NoTeamGame
+    lda TeamGame
+    eor #$34    ; 'T' character
+    sta TeamGame
+    rts
+NoTeamGame
+    cmp #$03    ; if "Wind" option selected
     bne NotWind
     lda WindChangeInRound    ; wind change after each turn (not round only) flag
     eor #$1f    ; '?' character
@@ -168,7 +174,7 @@ NoMountains
     eor #$5d    ; cursor down character
     sta BlackHole
     rts
-NoBlackHole    
+NoBlackHole
     ldy GradientNr
     iny
     cpy #$03
@@ -197,6 +203,8 @@ NoGradientLoop
     sta OptionsHere+128
     lda FastSoilDown
     sta OptionsHere+88
+    lda TeamGame
+    sta OptionsHere+8
 
 YPos = temp2
 XPos = temp2+1

scorch.asm

@@ -65,7 +65,7 @@ AdditionalZPvariables = $20
     .zpvar MeteorsRound     .byte  ; set 7th bit - block meteors in round
     
 
-FirstZpageVariable = $50
+FirstZpageVariable = $4f
     .zpvar DliColorBack     .byte = FirstZpageVariable
     .zpvar ClearSky         .byte  ; $ff - Crear sky during drawmountains, 0 - no clear sky
     .zpvar PaddleState      .byte  ; old state 2nd button for 2 buttons joysticks
@@ -156,6 +156,7 @@ FirstZpageVariable = $50
                                    ; (0 - round only, >0 - each turn)
     .zpvar FastSoilDown     .byte  ; 0 - standard, >0 - fast
     .zpvar BlackHole        .byte  ; 0 - no, >0 - yes
+    .zpvar TeamGame         .byte  ; 0 - no, >0 - Teams
     .zpvar XHit             .word
     .zpvar delta            .word
     .zpvar HowMuchToFall    .byte