home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 10: Diskmags / nf_archive_10.iso / MAGS / STOS_FC / STOSFC01.MSA / STOS.ASC_FREE.ASC < prev   
Text File  |  1987-04-21  |  261b  |  10 lines
  1. 30  :
  2. 50 key off : mode 0 : hide on 60 colour 1,$700 : colour 3,$7
  3. 70  :
  4. 90 D=dfree/200
  5. 100  :
  6. 120 ink 1 : pie 100,110,60,0,D
  7. 130 ink 3 : pie 100,110,60,D,3600
  8. 140  :
  9. 160 pen 1 : locate 0,0 : print "DISK FREE"
  10. 170 pen 3 : locate 0,1 : print "DISK USED"