Only show RAM or AUX in col RW if both are off, or both on

softswitch.bas

@@ -1,12 +1,12 @@
-0 TEXT:PRINT CHR$(21):HOME:GOTO 80
-1 IF AZ THEN U=AUX:V=SPC:W=SPC:REM ALT ZP
+0 TEXT:PRINT CHR$(21):HOME:GOTO 80:REM VER MP.3
+1 IF S8 AND P2 THEN U=AUX:V=SPC:W=SPC
 2 VTAB Y:HTAB  7:? B$(U);:HTAB 18:? B$(V);:HTAB 29:? B$(W);:RETURN:REM COLS RW/R/W
-3 IF RR OR RW THEN U=SPC:REM AUX MEM
-4 V=RAM:IF RR THEN V=AUX
-5 W=RAM:IF RW THEN W=AUX
-6 RETURN
-7 IF S8 AND P2 THEN U=AUX:R=AUX:W=AUX
-8 GOSUB 2:RETURN
+3 Z=2*RR + RW:V=SPC:W=SPC:REM AUX MEM
+4 IF Z=0 THEN U=RAM:V=SPC:W=SPC
+5 IF Z=1 THEN U=SPC:V=RAM:W=AUX
+6 IF Z=2 THEN U=SPC:V=AUX:W=RAM
+7 IF Z=3 THEN U=AUX:V=SPC:W=SPC
+8 RETURN
 9 VTAB Y:HTAB 40:PRINT MID$(C$,Z,1):RETURN
 10 L$="":R$="":Z$=T$(I):U=H(I):V=LEN(Z$):M$=MID$(Z$,U,1):IF S(10) THEN R$=T$(I+D):GOTO 40:REM HOTKEY
 20 IF U-1 > 0 THEN L$=LEFT$ (Z$,U-1)
@@ -64,15 +64,15 @@
 580 IF Z=7 THEN U=SPC:V=RU1:W=ROM
 590 GOSUB 2
 600 REM *** LOWER 48K
-610 Y= 7:U=RAM:V=SPC:W=SPC:GOSUB 3:GOSUB 2:REM $BFFF
-620 Y= 9:U=RAM:V=SPC:W=SPC:GOSUB 3:GOSUB 2:REM $4000
-630 Y=11:U=RAM:V=SPC:W=SPC:GOSUB 3:GOSUB 7:REM $2000
-640 Y=13:U=RAM:V=SPC:W=SPC:GOSUB 3:GOSUB 2:REM $0C00
-650 Y=15:U=RAM:V=SPC:W=SPC:GOSUB 3:GOSUB 2:REM $0800
-660 Y=17:U=RAM:V=SPC:W=SPC:GOSUB 3:GOSUB 7:REM $0400
-670 Y=19:U=RAM:V=SPC:W=SPC:GOSUB 3:GOSUB 2:REM $0200
-680 Y=21:U=RAM:V=RAM:W=RAM:GOSUB 1:REM $0000
-690 VTAB 1
+610 Y= 7:U=RAM:GOSUB 3:GOSUB 2:REM $BFFF
+620 Y= 9:U=RAM:GOSUB 3:GOSUB 2:REM $4000
+630 Y=11:U=RAM:GOSUB 3:GOSUB 1:REM $2000
+640 Y=13:U=RAM:GOSUB 3:GOSUB 2:REM $0C00
+650 Y=15:U=RAM:GOSUB 3:GOSUB 2:REM $0800
+660 Y=17:U=RAM:GOSUB 3:GOSUB 1:REM $0400
+670 Y=19:U=RAM:GOSUB 3:GOSUB 2:REM $0200
+680 Y=21:U=RAM:IF AZ THEN U=AUX:REM $0000
+690 V=SPC:W=SPC:GOSUB 2:VTAB 1
 700 K=PEEK(49152):IF K<128 THEN 700
 710 K=K-128:POKE 49168,0:IF K = 27 THEN VTAB 1:END
 720 CMD=0:FOR I=1 TO D:IF K = K(I) THEN CMD=I:I=D:GOTO 740