home *** CD-ROM | disk | FTP | other *** search
/ The CIA World Factbook 1992 / k3bimage.iso / sel / 12 / 0156 / statfile.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1982-02-21  |  768 b   |  31 lines
  1. 20  COMMON DRIVEID$,FILEID$
  2. 30  SCREEN 0,1
  3. 110  KEY OFF
  4. 120  COLOR 15,9,4
  5. 130  CLS
  6. 140  PRINT " "
  7. 150  PRINT " "
  8. 160  PRINT "      EASY-FILE STATUS REPORT"
  9. 170  PRINT "  "
  10. 180  PRINT "  "
  11. 200  PRINT "  FILEID            -- "+DRIVEID$+FILEID$+".EZF"
  12. 210  PRINT "   "
  13. 290  OPEN DRIVEID$+FILEID$+".EZF" AS #1 LEN=128
  14. 300  FIELD #1, 2 AS BUCKET1$, 2 AS BUCKET2$, 2 AS BUCKET3$, 2 AS BUCKET4$, 40 AS LINE1$, 40 AS LINE2$, 40 AS LINE3$
  15. 305  GET #1,1
  16. 310  PRINT "  NUMBER CATEGORIES --";CVI(BUCKET4$)
  17. 320  LSET BUCKET2$=MKI$(2)
  18. 330  PRINT "  "
  19. 340  PRINT "  NUMBER RECORDS    --";CVI(BUCKET3$)
  20. 380  PRINT "  "
  21. 383  PRINT "  "
  22. 384  PRINT "  "
  23. 385  PRINT "  "
  24. 388  PRINT "  "
  25. 390  PRINT "  Press space bar to return to menu"
  26. 400  K$=INKEY$:IF K$="" THEN 400
  27. 410  IF K$=" " THEN 500
  28. 420  GOTO 400
  29. 500  CLOSE #1
  30. 510  CHAIN DRIVEID$+"FILEMENU"
  31.