home *** CD-ROM | disk | FTP | other *** search
/ 300 Totally Awesome Games for DOS / 300Games.iso / tubes100 / install.ctl < prev    next >
Encoding:
Text File  |  1994-06-21  |  2.2 KB  |  93 lines
  1. Window 1 1 80 25
  2. BackgroundColor 1
  3. Color 15
  4. ClearScreen
  5.  
  6. :Start
  7. DefaultPath            \TUBES
  8. ProgramName            Tubes
  9. DiskSpaceRequired      650000  ; Minimum amount of space needed to install
  10.  
  11. Window 1 1 80 5
  12. BackgroundColor 3
  13. Color 1
  14. ClearScreen
  15. Window 1 1 80 25
  16. $ ╔════════════════════════════════════════════════════════════════════════════╗
  17. $ ║                  Software Creations BBS (ASP) - (508) 365-2359             ║
  18. $ ║                             "Home Of The AUTHORS"                          ║
  19. $ ║      "Specializing in the Development & Distribution of Shareware"         ║
  20. $ ╚════════════════════════════════════════════════════════════════════════════╝
  21. Window 18 7 64 14
  22. BackgroundColor 7
  23. Color 1
  24. SetScroll 0
  25. ;ClearScreen
  26. gotoxy 1 1
  27. $╔═════════════════════════════════════════════╗
  28. $║        TUBES!  Installation program         ║
  29. $╠═════════════════════════════════════════════╣
  30. $║ This program will install:                  ║
  31. $║  - Shareware version of Tubes 1.00          ║
  32. $╚═════════════════════════════════════════════╝
  33. BackgroundColor 1
  34. Color 15
  35. Window 1 7 80 25
  36. SetScroll 1
  37. gotoxy 1 8
  38. GetYesNo Y Do you wish to continue installation 
  39. Switch UserInput
  40. goto Abort                      ; User is quiting installation
  41.  
  42. ClearScreen
  43. Window 12 7 80 25               ; Center the Disk display
  44. IdentifyDrives
  45. Window 1 24 80 25
  46. gotoxy 1 1
  47. GetDestinationDrive
  48. GetDestinationPath
  49. Window 1 1 80 25
  50. ClearScreen
  51. $
  52. $Installing "Tubes" to %ddrv%dpath...
  53. $
  54.  
  55. exists tubes.exe
  56. switch ErrorLevel
  57. goto Error
  58.  
  59. copy tubes.exe    %ddrv%dpath
  60. copy setup.exe    %ddrv%dpath
  61. copy *.res        %ddrv%dpath
  62. copy *.doc        %ddrv%dpath
  63. copy *.txt        %ddrv%dpath
  64. copy *.diz        %ddrv%dpath
  65.  
  66. goto ExitGood
  67.  
  68. :Abort
  69. $
  70. $Installation aborted.
  71. $
  72. goto Exit
  73.  
  74. :Error
  75. $
  76. $Error Installing!
  77. $
  78. goto Exit
  79.  
  80. :ExitGood
  81. %ddrv
  82. Window 1 1 80 25
  83. ClearScreen
  84. Window 15 7 80 25              ; Put message in center of screen
  85. GotoXY 1 1
  86. $╔═══════════════════════════════════════════════╗
  87. $║                                               ║
  88. $║          Installation was successful.         ║
  89. $║                                               ║
  90. $╚═══════════════════════════════════════════════╝
  91. :Exit
  92.  
  93.