Posted August 14, 2021 by Roman Werner
Solved the game but then waste a lot of time moving every single card to the foundation pile? Not anymore! With the following four lines of code you can add an auto-clean-up-feature to have all the remaining open cards moved to the foundation pile automatically (trigger with right mouse button anywhere on screen):
511 ifrb=0ore<hithengoto520 512 fori=1to6:on-(c(i,0)>hi)goto520:next 513 ford=0to6:ox=d:oy=lc(d):ifoy>nthenos=c(d,oy):gosub910 514 next:on-(wn>-7)goto513:goto650
Enjoy!