home *** CD-ROM | disk | FTP | other *** search
/ ftp.update.uu.se / ftp.update.uu.se.2014.03.zip / ftp.update.uu.se / pub / rainbow / msdos / decus / RB123 / backup.prg < prev    next >
Text File  |  1995-05-28  |  1KB  |  66 lines
  1. * Program   : BACKUP.PRG
  2. * Version   : V4.2
  3. * Author(s) : Joe Tomas 
  4. * Date      : 07/30/86
  5. * Notice    : 
  6. * Called by : SYSMGR1.PRG, FMAINT.PRG
  7. * Call(s)   :   
  8. * Notes     : UTILITY ROUTINE TO BACKUP DATABASE FILES TO FLOPPY
  9. *           : 
  10. CLEAR
  11. CALL PAINT WITH "BACKUP.IMG"
  12. SET COLOR TO
  13. ?? VBELL1
  14. @ 23,27 SAY 'PRESS ANY KEY TO CONTINUE'
  15.  
  16. DO WHILE INKEY() = 0
  17.    SET COLOR TO +
  18.    @ 23,33 SAY 'ANY KEY'
  19.    SET COLOR TO
  20.    @ 23,33 SAY 'ANY KEY'
  21. ENDDO
  22.  
  23. @ 05,00 CLEAR
  24. STORE ' ' TO INSELECT
  25. SET COLOR TO +
  26. @ 10,20 SAY ' INSERT AN MS-DOS FORMATTED DISK INTO DISK '
  27. @ 11,20 SAY '  DRIVE A: AND PRESS ANY KEY TO CONTINUE. '
  28. SET COLOR TO
  29. ?? VBELL1
  30.  
  31. DO WHILE INKEY() = 0
  32.    SET COLOR TO +
  33.    @ 11,41 SAY 'ANY KEY'
  34.    SET COLOR TO
  35.    @ 11,41 SAY 'ANY KEY'
  36. ENDDO
  37.  
  38. @ 04,00 CLEAR
  39. SET COLOR TO +
  40. @ 10,21 SAY '***   NOW BACKING-UP DATAFILES   *** '
  41. SET COLOR TO +*I
  42. @ 11,21 SAY '   D O   N O T   I N T E R R U P T   '
  43. SET COLOR TO
  44. COPY FILE PRODUC.DBF TO A:PRODUC.DBF
  45. COPY FILE PRODUC.NDX TO A:PRODUC.NDX
  46. COPY FILE ORDERS.DBF TO A:ORDERS.DBF
  47. @ 04,00 CLEAR
  48. ?? VBELL3
  49. SET COLOR TO +
  50. @ 10,17 SAY '            DATAFILE BACKUP COMPLETED  '
  51. @ 12,17 SAY ' PLEASE LABEL THE DISK WITH THE APPROPRIATE DATE'
  52. @ 13,17 SAY '                AND SYSTEM NUMBER.'
  53. SET COLOR TO
  54.  
  55. ?? VBELL1
  56. @ 23,30 SAY 'PRESS ANY KEY TO CONTINUE'
  57.  
  58. DO WHILE INKEY() = 0
  59.    SET COLOR TO +
  60.    @ 23,36 SAY 'ANY KEY'
  61.    SET COLOR TO
  62.    @ 23,36 SAY 'ANY KEY'
  63. ENDDO
  64. CLEAR
  65. RETURN
  66.