标题一个检测硬盘容量的QB程序

　　很多检测程序能测出硬盘的容量，下面就是一个用QUICK BASIC编制的检测程序清单。
　　用法：
　　运行QB/L，然后调入以下程序，按F5运行。
　　注意事项：
　　运行QB时必须要加上/L参数(用于调用QB.QLB中的DOS中断例程)，同时QUICK BASIC 中必须要有QB.BI和QB.QLB两个文件，不然无法运行。本程序也可以检测软盘的容量。
　　'$INCLUDE:'qb.bi'
　　DIM reg AS RegType
　　INPUT "请输入盘符(C，D，E……):";drive$
　　reg.dx=ASC(UCASE$(drive$))-64
　　reg.ax=$H3600
　　INTERRUPT &H21，reg，reg　调用21号DOS中断
　　sectors=reg.ax　求每簇的扇区数
　　bytes=reg.cx　求每扇区的字节数
　　IF reg.dx>=0 THEN
　　clusters=reg.dx　求磁盘的总簇数
　　ELSE
　　clusters=reg.dx+65536
　　END IF
　　diskspace=sectors*bytes*clusters
　　dspM=INT(diskspace/10000)/100
　　PRINT:PRINT
　　PRINT drive$;"盘的容量是";dapM;"M"
　　本程序已在QUICK BASIC 4.5下运行通过。