// Get the amount of free resources from Windows

declare pfunc GetFreeSystemResources returning integer in dll user

? 'Free System: ', GetFreeSystemResources(toint(0))		// free system resources
? 'Free GDI: ', GetFreeSystemResources(toint(1))		// free gdi resources
? 'Free USER: ', GetFreeSystemResources(toint(2))		// free user resources

wait
