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