home *** CD-ROM | disk | FTP | other *** search
/ The California Collection / TheCaliforniaCollection.cdr / his006 / filesize.bas < prev    next >
Encoding:
BASIC Source File  |  1990-11-01  |  2.0 KB  |  44 lines
  1. 'Program Name    : FileSize.bas
  2. 'Author          : Modified by Lloyd L. Smith for Spectra Publishing - Tech Support
  3. 'Date            : 09-28-90
  4. 'Compuserve #    : GO PCVENB, Vendor #12/Spectra,  Tech Support ID 71530,2640
  5. 'Tech Support BBS: 813-625-1721, PC-Board, 8,N,1 USR HST 300 - 14.4, 24hrs
  6. 'Tech Support Fax: 813-625-1698  G2 & G3 compatible
  7. 'Tech Support Voc: 813-625-1172  Voice
  8. 'Description     : Origin Unknown, adapted to PowerBasic for example only
  9.  
  10. dim Rout(50)
  11. defint a-z
  12. drivenum=3  'set for c hard drive
  13. clusters=0
  14.  
  15. a#=2048     'cluster size, may vary depending on drive
  16.  
  17. data &h55,&h8B,&hec,&h8b,&h76,&h06,&h8b
  18. data &h14,&hb4,&h36,&hcd,&h21,&h8b,&h7e
  19. data &h08,&h89,&h1d,&h5d,&hca,&h04,&h00
  20.  
  21. p=varptr(Rout(1))
  22. def seg=varseg(Rout(1))
  23. for n=0 to 20:read j:poke (p+n),j:next
  24. def seg
  25.  
  26.  
  27. gosub freedisk
  28. print "Clusters:";clusters
  29. b#=clusters
  30. print "Free Disk";b#*a#
  31.  
  32. idle:
  33. 'press escape to exit
  34. k$=inkey$:if k$=chr$(27) then system
  35. if k$="1" then gosub freedisk
  36. goto idle
  37.  
  38.  
  39. freedisk:
  40. def seg=varseg(Rout(1))
  41. call absolute p(clusters,drivenum)
  42. def seg
  43. return
  44.