home *** CD-ROM | disk | FTP | other *** search
/ Shareware 1 2 the Maxx / sw_1.zip / sw_1 / COMM / RECALL40.ZIP / RECALL.PRG < prev    next >
Text File  |  1992-03-10  |  1KB  |  58 lines
  1. * RECALL.PRG written by Michael MacDonald 10/01/91, revised 03/10/92
  2. *
  3. SET TALK OFF
  4. SET CURSOR OFF
  5. IF ISCOLOR()
  6.  SET COLOR to W/B
  7. ENDIF
  8. CLEAR
  9. num=0
  10. count=0
  11. @ 1,20 SAY  "RECALL v4.0 by Michael MacDonald (c)1992"
  12. @ 2,6 SAY "A program to recall all deleted files from ROBOCOMM's new files list"
  13. @ 4,6 SAY "░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░"
  14. DO CASE
  15.  CASE FILE("new30.dbf")
  16.    USE NEW30
  17.    @ 7,6 SAY "Using NEW30.DBF"
  18.  CASE FILE("new40.dbf")
  19.    USE NEW40
  20.    @ 7,6 SAY "Using NEW40.DBF"
  21.  OTHERWISE
  22.    @ 7,6 SAY "Can't find NEWxx.DBF"
  23.    ?
  24.    SET CURSOR ON
  25.    QUIT
  26. ENDCASE
  27. msize=RECCOUNT()
  28. @ 8,6 SAY "Restoring all deleted records"
  29. DO WHILE .NOT. EOF()
  30.    num=num+1
  31.    line=INT((num/msize)*68)
  32.    IF line>0
  33.       @ 4,5+line SAY "█"
  34.    ENDIF
  35.    IF msize < 68 .AND. line < 68
  36.       @ 4,6+line SAY "█"
  37.    ENDIF
  38.    IF DELETED()
  39.       count=count+1
  40.       @ 9,6 SAY "Undeleting -->"
  41.       @ 9,21 SAY file_name
  42.       RECALL
  43.    ENDIF
  44.    SKIP
  45. ENDDO
  46. @ 9,1 SAY " "
  47. IF COUNT>0
  48.    ? LTRIM(STR(count))+" deleted files recalled"
  49. ELSE
  50.    ? "      No deleted files found"
  51. ENDIF
  52. SET CURSOR ON
  53. ?
  54. CLOSE ALL
  55. QUIT
  56. *
  57. * EOF RESTORE.PRG
  58.