-\ : disk-size ( devspec$ -- #MB )
-\ open-dev ?dup 0<> if ( ih )
-\ dup " size" rot $call-method ( ih size.lo size.hi )
-\ rot close-dev drop ( size.lo )
-\ d# 20 >> ( #MB )
-\ \ fuck your signed 32bit division.. d# 100000 / ( #MB ).
-\ else
-\ 0 ( #MB )
-\ then
-\ ;
-