home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / FINISH24.ZIP / 2C.FIL < prev    next >
Encoding:
Text File  |  1993-04-01  |  3.0 KB  |  116 lines
  1. ' TSA Install Script
  2. ' PART 2:  COLOR SCRIPT
  3. '   2C.FIL - COLOR
  4. '   (Same as 2B.FIL except for screen colors)
  5. ' Copyright 1992, ImagiSOFT, Inc.
  6. ' June 1, 1992
  7.  
  8. :PROMPT
  9. DRIVE C 28 10 31 15 32 14 79       ' prompt for the drive to install to
  10. PATH \TSA 12 10 31 15 32 14 79     ' default path = TSA
  11.  
  12. ' ---------------------------------------
  13. ' test to see if files in directory exist
  14. ' ---------------------------------------
  15. EXIST ~1~2\*.*
  16. JUMP.NO UNPACK                     ' new directory
  17.  
  18. WINOPEN 0 10 31
  19. "The directory ~1~2 already exists and contains other files!"
  20. "Are you sure you want to use this directory   Y or N?"
  21. ASK 63 12
  22. WINCLOSE
  23. JUMP.NO PROMPT                    ' ask drive and directory again
  24.  
  25. ' ----------------
  26. ' unpack the files
  27. ' ----------------
  28. :UNPACK
  29. UNPACK TSA.PAK 24 10 31 32 14 79   ' unpack files from the floppy drive
  30. JUMP.FAIL INSTALL_FAILURE          ' trap for fatal disk error
  31.  
  32.  
  33. ' ------------------------------------------
  34. ' make sure CONFIG.SYS has at least 16 files
  35. ' ------------------------------------------
  36. SET.FILES 16
  37.  
  38.  
  39. ' ------------------------------------------------
  40. ' write $.bat in boot directory to run tsa program
  41. ' ------------------------------------------------
  42. EXIST ~3\$.BAT                    ' does $.bat exist from previous install?
  43. JUMP.NO SKIP_DELETE               ' if yes, delete it, no, jump
  44. SHADOW OFF                        ' don't want shadow to appear either
  45. DELETE ~3\$.BAT 1 24 51           ' this window will be "invisible"
  46.                                   '    (cyan on cyan color on cyan background)
  47. SHADOW ON                         ' turn shadows back on
  48.  
  49. :SKIP_DELETE
  50. DOS 3.3                           ' dos 3.3+ allows @
  51. JUMP.NO OLD_DOS
  52.  
  53. FILE ~3\$.BAT                     ' dos 3.3+ compatible file
  54. "@~1"
  55. "@cd ~2"
  56. "@sfpinit -b22 -o start.exe"
  57. "@~3"
  58. "@cd \"
  59. JUMP DONE
  60.  
  61. :OLD_DOS
  62. FILE ~3\$.BAT                     ' old dos compatible file
  63. "~1"
  64. "cd ~2"
  65. "sfpinit -b22 -o start.exe"
  66. "~3"
  67. "cd \"
  68.  
  69. ' -------------------------
  70. ' installation is complete!
  71. ' -------------------------
  72. :DONE
  73.  
  74. WINOPEN 0 10 31
  75. "ImagiSOFT's TSA Software has been successfully installed."
  76. "       To run it, enter the command  $"
  77. "       from the root directory of drive ~3."
  78. "(The $ helps you to remember why you are running it.)"
  79. ""
  80. "        THANK YOU FOR CHOOSING OUR SOFTWARE!"
  81. ""
  82. ""
  83. "Press the [Enter] key to continue."
  84.  
  85. WAIT 47 19                                  ' wait for enter key
  86.  
  87. WINCLOSE
  88.  
  89. ' --------------------------
  90. ' option to run software now
  91. ' --------------------------
  92.  
  93. WINOPEN 0 10 31
  94. "Would you like to run the TSA Software Right Now   Y or N?"
  95. ASK 69 11
  96. JUMP.NO EXIT
  97.  
  98. RUN ~3\$                                    ' run the software if "yes"
  99.  
  100. ' ------------------------
  101. ' exit the system normally
  102. ' ------------------------
  103. :EXIT
  104.  
  105. END
  106.  
  107.  
  108. ' ------------------------
  109. ' Installation Failure.
  110. '  * *  Run FAIL.FIL  * *
  111. ' ------------------------
  112.  
  113. :INSTALL_FAILURE
  114.  
  115. SCRIPT ~0\3.FIL                             ' load from install floppy
  116.