home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a040 / 2.ddi / SHRWARE4.ARC / MSABAK.INC < prev    next >
Encoding:
Text File  |  1988-06-03  |  396 b   |  25 lines
  1. <<* MSABAK.INC *>>
  2.  
  3. <<procedure GenBak>>
  4. <<begin>>
  5. IF INST_BAK = SPACE(30)
  6. ?? CHR(7)
  7. @ 24,0 CLEAR
  8. @ 24,0 SAY 'No backup file listed.  Reinstall...'
  9. STORE INKEY(3) TO STOP
  10. RETURN
  11. ENDIF
  12. IF FILE(INST_BAK)
  13. RUN &INST_BAK
  14. ELSE
  15. ?? CHR(7)
  16. @ 24,0 CLEAR
  17. @ 24,0 SAY 'Backup file not located.  Reinstall...'
  18. STORE INKEY(3) TO STOP
  19. RETURN
  20. ENDIF
  21. RETURN
  22. <<END>>
  23.  
  24. <<* EOF MSABAK.INC *>>
  25.