home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a040 / 2.ddi / SHRWARE4.ARC / MSAREST.INC < prev    next >
Encoding:
Text File  |  1988-06-03  |  509 b   |  27 lines
  1. <<procedure GenRest>>
  2. <<begin>>
  3. IF INST_REST = SPACE(30)
  4. ?? CHR(7)
  5. @ 24,0 CLEAR
  6. @ 24,0 SAY 'STATUS ≡ No restore file listed.  Reinstall...'
  7. STORE INKEY(3) TO STOP
  8. RETURN
  9. ENDIF
  10. IF FILE(INST_REST)
  11. SAVE SCREEN
  12. RUN &INST_REST
  13. RESTORE SCREEN
  14. @ 24,0 CLEAR
  15. @ 24,0 SAY 'STATUS ≡ Files should be reindexed at once. '
  16. ?? CHR(7)
  17. STORE INKEY(5) TO STOP
  18. ELSE
  19. ?? CHR(7)
  20. @ 24,0 CLEAR
  21. @ 24,0 SAY 'STATUS ≡ Restore file not located.  Reinstall...'
  22. STORE INKEY(3) TO STOP
  23. RETURN
  24. ENDIF
  25. RETURN
  26. <<END>>
  27.