home *** CD-ROM | disk | FTP | other *** search
/ PC Home MegaDisk 14 / Lowe_PCHomeDecember1993MegaDiskIssue14.img / PCHOME.BAT
Encoding:
DOS Batch File  |  1993-10-07  |  3.1 KB  |  140 lines
  1. ECHO OFF
  2. CLS
  3. IF "%1"=="A:" GOTO options
  4. IF "%1"=="a:" GOTO options
  5. IF "%1"=="B:" GOTO options
  6. IF "%1"=="b:" GOTO options
  7. IF "%1"=="C:" GOTO options
  8. IF "%1"=="c:" GOTO options
  9. IF "%1"=="D:" GOTO options
  10. IF "%1"=="d:" GOTO options
  11. IF "%1"=="E:" GOTO options
  12. IF "%1"=="e:" GOTO options
  13. IF "%1"=="F:" GOTO options
  14. IF "%1"=="f:" GOTO options
  15. ECHO PC HOME MEGADISK INSTALLATION
  16. echo[
  17. ECHO Indicate which drive to copy the programs to. Type:
  18. echo[
  19. ECHO PCHOME A:           Copy files to drive A:
  20. ECHO PCHOME B:           Copy files to drive B:
  21. ECHO PCHOME C:           Copy files to drive C:
  22. ECHO and so on...
  23. echo[
  24. GOTO exit
  25. REM ===================== Options menu screen ================================
  26. :options
  27. CLS
  28. data\menu
  29. :getoption
  30. data\getnum
  31. REM returns 0=48/1=49/2=50...
  32. IF ERRORLEVEL 54 GOTO getoption
  33. IF ERRORLEVEL 53 GOTO exit1
  34. IF ERRORLEVEL 52 GOTO subs
  35. IF ERRORLEVEL 51 GOTO help3
  36. IF ERRORLEVEL 50 GOTO help2
  37. IF ERRORLEVEL 49 GOTO help1
  38. GOTO getoption
  39. :help1
  40. CALL data\help.bat 1
  41. GOTO options
  42. :help2
  43. CALL data\help.bat 2
  44. GOTO options
  45. :help3
  46. CALL data\help.bat 3
  47. GOTO options
  48. REM ======================== Subscription advert =============================
  49. :subs
  50. data\pchsubs
  51. data\getnum
  52. REM ===================== Display the main menu ==============================
  53. :mainmenu
  54. CLS
  55. data\screen
  56. :getprog
  57. data\getnum
  58. IF ERRORLEVEL 54 GOTO getprog
  59. IF ERRORLEVEL 53 GOTO five
  60. IF ERRORLEVEL 52 GOTO four
  61. IF ERRORLEVEL 51 GOTO three
  62. IF ERRORLEVEL 50 GOTO two
  63. IF ERRORLEVEL 49 GOTO one
  64. IF ERRORLEVEL 48 GOTO exit1
  65. GOTO getprog
  66. REM ========================== Program 1 =====================================
  67. :one
  68. cls
  69. type data\1.txt
  70. echo[
  71. echo ---------- Do you want to install this program to drive %1 (Y/N)? --------
  72. data\yesno
  73. IF ERRORLEVEL 1 GOTO get1
  74. GOTO mainmenu
  75. :get1
  76. CLS
  77. data\1 %1\brutal
  78. PAUSE
  79. GOTO mainmenu
  80. REM ======================= Program 2 ========================================
  81. :two
  82. cls
  83. type data\2.txt
  84. echo[
  85. echo ---------- Do you want to install this program to drive %1 (Y/N)? --------
  86. data\yesno
  87. IF ERRORLEVEL 1 GOTO get2
  88. GOTO mainmenu
  89. :get2
  90. CLS
  91. data\2 %1\gob3
  92. PAUSE
  93. GOTO mainmenu
  94. REM ======================= Program 3 ========================================
  95. :three
  96. cls
  97. type data\3.txt
  98. echo[
  99. echo ---------- Do you want to install this program to drive %1 (Y/N)? --------
  100. data\yesno
  101. IF ERRORLEVEL 1 GOTO get3
  102. GOTO mainmenu
  103. :get3
  104. CLS
  105. data\3 %1\vistapro
  106. PAUSE
  107. GOTO mainmenu
  108. REM ======================= Program 4 ========================================
  109. :four
  110. cls
  111. type data\4.txt
  112. echo[
  113. echo -------- Do you want to install these programs to drive %1 (Y/N)? --------
  114. data\yesno
  115. IF ERRORLEVEL 1 GOTO get4
  116. GOTO mainmenu
  117. :get4
  118. CLS
  119. data\4 %1\
  120. PAUSE
  121. GOTO mainmenu
  122. REM ======================= Program 5 ========================================
  123. :five
  124. cls
  125. type data\5.txt
  126. echo[
  127. echo -------- Do you want to install these programs to drive %1 (Y/N)? --------
  128. data\yesno
  129. IF ERRORLEVEL 1 GOTO get5
  130. GOTO mainmenu
  131. :get5
  132. CLS
  133. data\5 %1\
  134. PAUSE
  135. GOTO mainmenu
  136. REM ============================ Exit to Dos =================================
  137. :exit1
  138. CLS
  139. :exit
  140.