检查磁盘剩余空间

Author: 四川威远中学高一、三班唐浩 Date: 1992-08-21

        说明：10句定义变量为整型，设定机器语言首端地址(西文状态应>=H3000，CCDOS4.0中应>=H7000)；20句接收，设定变量初值(磁盘在A驱中则输入‘1'，在B驱则输入‘2'，依次类推)；60-80句为机器语言例程，由30句送入内存。
        10 DEFINT A-Z：DEF SEG=& H7000
        20 F=0: A=0: INPUT“请输入驱动器号”；D
        30 FOR I=0 TO 20: READ J: POKE I,J:NEXT I
        40 CALL A(F,D)
        50 PRINT:PRINT“剩余空间”；F*1024
        60 DATA & h 55,& H8b,& hec,& h8b,& h76,& h06,& h8b
        70 DATA &h14, &h64, &h36, &hcd, &h21, &h8b, &h7e
        80 DATA &h08, &h89, &h1d, &h5d, &hca, &h04, &h00