home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol110 / backup.acg < prev    next >
Encoding:
Text File  |  1984-04-29  |  677 b   |  31 lines
  1. * backup.cmd 02/08/83
  2. * make a backup copy of the disk
  3.  
  4. * clear the screen, and make sure user wants to do this
  5. ERASE
  6. ?
  7. ?
  8. ?
  9. ?
  10. ? 'This program requires a backup disk in drive B:' 
  11. ? 'Type B to backup data, any other key to return to menu' 
  12. ?
  13. ? 'If you are using CP/M86 - you have one more step ' 
  14. ? '- when the "A>" comes on type "Contro C" ' 
  15. ? '(or "Control End" if you are using an IBM Displaywriter.)'
  16. ?
  17.  
  18. SET console OFF
  19. WAIT TO next
  20. SET console ON
  21.  
  22. * if they do want to backup the files
  23. IF !(next) = 'B' 
  24.   * exit to cp/m, run pip.com, then restart dbase program
  25.   QUIT TO 'pip b:=a: *.DBF' , 'dbase main' 
  26. ENDIF !(next) = 'B'  
  27.  
  28. * release the local variable
  29. RELEASE next
  30.  
  31.