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