Solitaire2021 new version V4.0 - 30% faster!

Great news. Solitaire runs now 30% faster due to a fix of a design flaw in the mouse driver. This makes the game even more fun to play.

If you have already typed in the game then you only need to replace the code lines 2090-2270 with the ones from the new V4 listing:

2050 rem ***************************
2060 rem *** mouse pointer setup ***
2070 rem ***************************
2080 ad=49152:h=int(ad/256):rem install driver at $c000 (49152)
2090 fori=0to217:reada:pokead+i,a:next:fori=1to8:reada:pokead+a,h:next
2100 fori=0to62:reada:poke832+i,a:next:v=53248:pokev+36,14:pokev+39,0
2110 pokev,90:pokev+1,190:pokev+16,0:poke2040,13:pokev+21,1:sysad:return
2120 rem *** 1351 mouse driver (port 2)
2130 rem 251=xpos / 252=ypos / 253=xpos high bit / 254=mouse click values
2140 rem process mouse click(s) - then poke254,0 to wait for next click
2150 data 120,169,13,141,20,3,169,192,141,21,3,88,96,165,254,208,21,173,0,220
2160 data 73,255,41,17,240,12,133,254,173,0,208,133,251,173,1,208,133,252,173
2170 data 25,212,160,0,32,184,192,140,42,192,164,253,208,11,172,0,208,192,19
2180 data 208,4,224,0,208,42,24,109,0,208,141,0,208,168,138,105,0,41,1,77,16
2190 data 208,141,16,208,41,1,133,253,208,8,192,19,176,13,169,19,208,6,192,81
2200 data 144,5,169,81,141,0,208,173,26,212,160,0,32,184,192,140,110,192,172,1
2210 data 208,192,50,208,4,224,0,240,35,192,247,208,4,224,0,208,27,56,73,255
2220 data 109,1,208,201,50,176,8,201,30,144,8,169,50,208,6,201,247,144,2,169
2230 data 247,141,1,208,169,192,72,169,176,72,8,72,72,72,76,49,234,169,191,141
2240 data 0,220,76,129,234,140,194,192,141,216,192,162,0,56,233,0,41,127,201,64
2250 data 176,5,74,208,11,138,96,9,192,201,255,240,248,56,106,202,160,0,96
2260 rem *** driver hi byte patch table so it can be installed other than $c000
2270 data 7,45,48,113,116,164,186,189

In addition you can add the following "if" clause to the line 1290 to make the card selection a bit snappier: