home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 14 / CDACTUAL.iso / cdactual / demobin / share / program / Pascal / TSCRSYS.ZIP / SWAPTPU.BAT < prev    next >
Encoding:
DOS Batch File  |  1988-12-12  |  1.1 KB  |  41 lines
  1. echo off
  2. cls
  3. echo  
  4. echo Swaptpu -- V1.0
  5. echo Turbo Screen System (C) 1989
  6. echo by the Connelly Brothers
  7. echo  
  8. if exist tsslib.tpu goto fix
  9. echo  
  10. echo Tsslib.tpu is not in the current directory? Please copy
  11. echo tsslib.tpu into the current working directory and execute this
  12. echo batch program again. Error #1.
  13. goto end
  14. :fix
  15. if exist tsslib04.tpu goto make_04_current
  16. if exist tsslib05.tpu goto make_05_current
  17. echo  
  18. echo Tsslib05.tpu or tsslib04.tpu are not in the current
  19. echo directory.  Please copy the turbo pascal units into the current
  20. echo directory and execute this batch program again. Error #2
  21. goto end
  22. :make_04_current
  23. echo  
  24. echo Swapping Version 5.0 to 4.0
  25. ren tsslib.tpu tsslib05.tpu
  26. ren tsslib04.tpu tsslib.tpu
  27. echo Turbo Screen System is installed for Turbo Pascal Version 4.0
  28. goto message
  29. :make_05_current
  30. echo  
  31. echo Swapping Version 4.0 to 5.0
  32. ren tsslib.tpu tsslib04.tpu
  33. ren tsslib05.tpu tsslib.tpu
  34. echo Turbo Screen System is installed for Turbo Pascal Version 5.0.
  35. :message
  36. echo  
  37. echo To swap Turbo Screen System to another Turbo Pascal Version
  38. echo execute swaptpu again.
  39. :end
  40. echo  
  41.