Solitaire2021 new version V4.1 with Auto-Clean-Up-Feature (new optional add-on)

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!