Posted August 13, 2021 by Roman Werner
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: