REM This example shows you how to check REM how much spare memory there is on REM any of the Psions drives PROC Main: PRINT "Bytes Free:",GEN$(Dskinfo&:,-7) IF Dskinfo&:<9000 PRINT "NO MEM" ENDIF GET ENDP PROC Dskinfo&: LOCAL lc3z%,lc4z&,lc1z$(130),lc2z% REM Change M to the drive letter you REM want lc1z$="M"+CHR$(0) lc2z%=CALL(2695,ADDR(lc1z$)+1,ADDR(lc3z%),0,0,0) IF lc2z% Showerr:(lc2z%) RETURN 0 ELSE RETURN lc4z& ENDIF ENDP