XProfan

DEF GlobalMemoryStatus(1) !KERNEL32 , GlobalMemoryStatus
DEF MB(1) div(Div(@&(1),1024),1024)
Def GKS(1) !USER32,GetKeyState
declare mem#
Dim Mem#,32

proc getmem//gets free ram

    Long Mem#,0=32
    GlobalMemoryStatus(Mem#)
    return long(Mem#,12)

endproc

print Press Space to exit.

whilenot lt(gks(32),-1)

    sleep 100
    locate 2,1
    print mb(getmem())

wend

dispose mem#
end