Updated code for running with latest FreeBasic
Added screenshot