From 086e8a9b91b8130ce592f3d628c283a7f7ca23dc Mon Sep 17 00:00:00 2001
From: Michaelangel007 <michaelangel007@sharedcraft.com>
Date: Thu, 9 Nov 2017 18:29:35 -0800
Subject: [PATCH] Only show RAM or AUX in col RW if both are off, or both on

---
 softswitch.bas |  34 +++++++++++++++++-----------------
 softswitch.po  | Bin 143360 -> 143360 bytes
 2 files changed, 17 insertions(+), 17 deletions(-)

diff --git a/softswitch.bas b/softswitch.bas
index 1178a2e..3a7a7ee 100644
--- a/softswitch.bas
+++ b/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
diff --git a/softswitch.po b/softswitch.po
index 928458360e0b6f68af502513dfebeeb2a687e325..85939a26bf4b008268971ca385b8267ce33ba985 100644
GIT binary patch
delta 1995
zcmZXUe{54#6vxkfo1-12?bcU92iYE7)pgAA-s^sJk1e75C54qPuiLs!bfVD&1HlA?
z%uG8r!*D;!x+_spF)V5@P@OYEoG~)9KNtu+41|!72vJb{5sjb$qsDvQ>qY}j^V0ME
zoO{lB_kM4CFPnNVn<g%0<~*_pHWlVrJn$VcZTfO)F82xH9ArGJx4OUt@QO0^Ly;_b
zmDiL*eo>he+8R_L)LiO=Y7>EE#DA(;o@vzrt?f#i7HO_iqWFaEv~pKfY@aCuIyL!(
zsvcLP>73PJD}+!(2tGAsLb6j6SrIi5N>2jKbRQy#A*|e{Cq%Iq{A|iXgslyP14J<a
zvdjw*`DR*O_l#vRo8V*cnCX>Wi^&dpYga@XHS>^cot4grGff`t$D&S835&dN(3}s+
zw%Jyus~+t->MZiYH0>E!vigEqhGg*U8A+VkuS`XXg5Fii+wiNoT35?Y8EDEaxL3gq
zb0ap*ZU#20CMj%GZG1OJ&kYosw`6xhUARdr9~)dv`e|U$NsiIzV6|V%-T{+BadELw
z8(6<C0#~#9U}sPhrzKe#sP(XhN+0}{J)BBnI~i6xz_XB^94sOA^wwYjd7dsAlF55?
z-OxkiBJCdXd4F4Y9E(WP^|O+KLu(?d0+w%5RU$2cmevTkE%f}5u(`-`4f<e}<@Xe=
zR|8S~$ikMtA<(HsihN!?$flOgW_Z$)Nt$J*F{?}p&4Gs-Waze7NyN`IKWct4(h^o1
zV8pV7tO+u;0@XD^wIKor=*D5kiX)a1qB8#!RU%<$8C6^0q@{waQJGk#r!!Tphb#1*
zVdvsMEo(`w#85dR+$RZg7ts^LOG$`c8&=2`x_qR7jL-mkCh11@JVkf1=WTjmWCh1t
z>FE)dX{GgDl5E!`nut4=t+jrL0s2a9Ld&7M3`;*n^W%Ayo2_4w2^o5=H%W(9#@gZ$
zdFn+`gg34Kk(85Db`6KnlWj5_p<Cm5<SZSG=b3)7F5}Rj*pFLaqtkI0=eE&Hao4gM
zn}Vof-qma^RtSfno#yPxi*?!7bFBL|TRUfTZVE@)eJt~@gFUt<xDKsSF|N^sPnnR}
zbe`JA#zr_~+ss(i-K-3!K5pC2m?Wh^2^Y!;uiAPM`cg19UskMRl(P>aEl*pj_Z0mM
z7T8}!m_CqRS7cqG+P)v*JrjwnD?DmH$e=toQ8LiU_5<(tWWL~GQ;D$6KFOsW4ZiBQ
z1S2#t>SE`7XtaQwrzb}rBpkglTC%{D^F7xGtLX!YN)n}yB^JB3=5QIwx=_8wt}pAz
zUYD7$p#>6jB(a<vr5`2kCkyHMM1*uv?^uMy>5F5f<O_OutTgs@u9|V@V#0;o4H^A{
zTPSwJPq|O)KZUuE8~)9G7NxHFj~ncc7w*m~bi90bR)r%zm&M+k6?8+;@j8=YZbAR+
ztd&sP;21a3FsW8XX{+P#+)8#=^p$;%BlA+&koG!`84~6gwGKK?q)B?M&mHIPNKGs2
zSb6d-y+{jVHywYlT@Y(}1c7~}nx3w%9x(I&Fj1~i1c7~hHA+{P0xmu)lWl>A`LNMl
zB7&E<>v01+NOy?@ReT=C`ko;V@*bVzl|tUZm!@$aY~uZy{V`S$osA2+`P#Gu30~ow
z^aAB6{s!Ns$LMw}_yPa89{W=KGyWMpM#CeY<)6cNexQr|OFBo(Bfrk?&Wzz3iEIKK
z;5I*IBrw}!g4y|&5my@A<$T|W*#yYF&Iyd?8&o-`49+G%9(2wav1F|8aGo~e)PMjp
R{oQ+ycJCzv`>37E{~wh!QcC~;

delta 2121
zcmaJ>eQZ-z6hF6{@Vb?CTVDmHfk#)Rn{~YRy3y{9C3Ic4)wOJS?bdA=Cx%Ec8Z;3R
zGVNf-VcF)k3t~_a7Elvt9782e{{U^|!wen<LJa<a9|0sWF@69sn0W4c-6)vQG`Bs!
z-|wD#&bjB@-b-BXC2stO+@g(hU~OrU#R)$XZf&VtY&uL#HZnG=*UNJNZzz*jT(VTA
z>{Jf;MDTJ1QvR-Vo91upP};R<Ye0$X>xAGB$Aqp{c!4f^y*e?#<v>bRPpfg%G8OV|
z9YQ1+fjwL<v}>wAqM#t%&OE^<+<g$wVDWTZ$0oU1a0o7Nvmq7rO|{CILsk7~Lvo4Z
zU|d!X!A;H#W1Y%dm7+3v%@uH(-Cb@B`VfSvvp+h2wV8)h+ezt+m<~I&tFA7m8?7?v
zp~L-iOLmxD@SZXmcGf7nmB|SHprtx%-~c_=Z!bS)UIwYq*)vsBxJY7p(jho%;JCQ~
zqq}Kt1<X#96wE>!O_rMdd0h}_32RkjTTRrRTs}9Rw;Cpd^73*a8uQ26qCz;dA_&`Q
zUvgQ|zPy(+T%CVKa}++OT9UV&${Wa_Sgsbe6K>|w8%g(~dHH)_b4ZhpMU;NO(-kUn
zx8b71H1=~sf@WI3O(q-ZhHa0M6y3kgQ}%WK31dh7NlA&KN)weWa4!G5J0gPX`IHO@
ziCg)XVGCF-zh~Hb)gRYytkm)k_`9^I%TvbgF&x8d_F8gDtBe?yc|vIQHwI;hSPDqg
zhnSCHJ~0|=QG>9`GLJNc5M9d9rjQzp!g`B?s48MI!>||BdLT)<cYt@lZ&^y37*(mu
z4enFRa?*s2=Bl0s<7x~}(jNzG3oct?#3*pQDHLeZV-eaz(NJAD2#aX(phEmKGPsbe
zqR-*FnGWK*m!@!?qEmy9c(2acMN%D_nCVpP&6WsuwHgjUPQgA#Nk}m;tKne*T{2Wc
zs_A1xB@Zqy_==3n5G(kLbZV8D5xZ_@y(o&Xj`pG~N#8-){(@pts!L;?e7Cow^z2ZH
z>0$x>ZD_vtdV$DvRZQ0=-EnG>RbkZ9+p)IGEY_9?xM}U1B?*spg$YAxw04+`Fv2bI
zpej`Qnqi&wDO0EBRnRLAUsf*4xJSV;nh>0I4Gj&j)A}sxs_&(%WT_pszJxkS$`&Rv
z&jIu3Wgcaw{MFjal%8y5mQX)h44|;MFv)~f_Z0e2SW~#23ICT&0-u_hvqcOORu}GO
z%6q0GVw8|9{0N2e?Q~d`j7Mo)VyR#zB8(JHn8qYHQ23>(S^LRVSuIsz52u>XO0qBQ
z6>~)RmJSXtB!AM>@M0p+^TY1h4;TGn+5%5dZp2I0)8!-g&mSx@<)i|UdJW$bJR7~^
zR0L!2F<m#Zh@7V*BM*@>dSoO@UZMG;QF4%Wk5-V2bZE39ajjU*F|L+98t`}V<2ikT
zLnwCuXM0-zD@=bJ@PO@k26fMT98h7~bhpZHd+lyj%r-QwVh^_<IAD$KZG;jIL4V5Y
zB!+FWjTtf~s*@QsXgfH)6Dz3i+++J}25K>&!?vRa#59JlZ)~TsAl=vZwsW_k@R9(!
zC;!qfXlbID{{yQa*7gVjex=%;?(QB~%-=##u2lp9zn)s9yITP-KPwkY;KbH$aJWTi
z<O_8>h}Y?GOAzNvn61~0@oRXe&a?4l{06=vi}yf3@5}8=phGq+Y{O2zE=wT6hkRIf
zP?h12@a?+IhK4yj&OfQ!o(zA1e@3_2s4)Ht|01(z0=mJ!s`G3@7(d&-H8;UB5-|c6
zz+C&NA;8ICg2ncC4clw*Ui$}zjS(=u(LT=XnFHeXNrT4-7{A7zHf+h*zrlXmurmPy
Pr2AIxII?mF>EHDqZLW4N