home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 14 / 14.iso / s / s030 / 1.img / INSTALL.SPT < prev    next >
Encoding:
Text File  |  1992-02-11  |  12.8 KB  |  572 lines
  1. .. *******************************************
  2. .. *** Initial ***   Set Initialize Data . ***
  3. .. *** Date : 81-01-16 AM 8:20             ***
  4. .. *******************************************
  5. .cursor off
  6. .define @BackGround Blue
  7. .define @ForGround  White
  8. .define @ETRed      Red
  9. .define @ETGreen    Green
  10. .define @ETLightGreen LightGreen
  11. .define @ETMagenta  Magenta
  12. .define @ETYellow   Yellow
  13. .define @ETPath     "C:\ET3                                  "
  14. .define @Source     "A"
  15. .define @Temp       ""
  16. .define @Target     ""
  17. .define @DemoPath   "DEMO"
  18. .define @UtlPath    "UTILITY"
  19. .define @ETSpace40  "                                        "
  20. .define @ETSpace60  "                                                  "
  21. .define @HF         "H"
  22. .define @DEMO       "Y"
  23. .define @ETUTL      "Y"
  24. .define @FM         "Y"
  25. .define @FK         "Y"
  26. .define @FL         "Y"
  27. .define @YN         "N"
  28. .define @SDemo        18000
  29. .define @SUtl        260000
  30. .define @SF16        360330
  31. .define @SFM        1100000
  32. .define @SFK        1000000
  33. .define @SFL        1000000
  34. .define @TOTAL            0
  35. .Onkey ESC goto Exit
  36. .set boxfill off
  37. .set shadow off
  38. ..
  39. .. *******************************************
  40. .. *** Start ***  Check ET.COM Exist Or Not ?
  41. .. *******************************************
  42. .cls
  43. .if @_ETExist goto ETExist
  44. ..
  45. .. *******************************************
  46. .. ***  Check COLOR
  47. .. *******************************************
  48. .if @_Color goto SetColor
  49. .define @BackGround Black
  50. .define @ForGround  White
  51. .define @ETRed      0
  52. .define @ETLightGreen 2
  53. .define @ETMagenta  2
  54. .define @ETYellow   2
  55. .define @ETGreen    0
  56. .label SetColor
  57. .. *******************************************
  58. .. *** Main Menu ***
  59. .. *******************************************
  60. .cls @BackGround
  61. .set box s "╔╗╚╝══║║"
  62. .box s 0 0 3 79 @ForGround
  63. .set box s "┌┐└┘──││"
  64. .box s 4 0  18 79 @ForGround
  65. .box s 19 0 23 79 @ForGround
  66. .locate 1 23
  67. .display
  68. ETen Chinese System INSTALL Utility
  69. .locate 2 16
  70. .display LightGray
  71. (C)Copyright ETen Information System Corp, 1992.
  72. .locate 2 68
  73. .display @ETMagenta
  74. @_Ver
  75. .locate 20 19
  76. .display @ForGround @BackGround
  77. In default, MING FONT will be installed !
  78. .locate 22 20
  79. .display White @ETRed
  80. [ENTER]
  81. .locate 22 28
  82. .display @ForGround @BackGround
  83.  Continue
  84. .locate 22 42
  85. .display White @ETRed
  86. [ESC]
  87. .locate 22 48
  88. .display @ForGround @BackGround
  89.  Exit Install
  90. .. *******************************************
  91. .. *** Select ***
  92. .. *******************************************
  93. .set shadow on
  94. .box s 10 18 13 60 @ForGround
  95. .set shadow off
  96. .cursor on
  97. .. *******************************************
  98. .locate 11 30
  99. .display @ETLightGreen
  100. Source Disk ? (A/B)
  101. ..
  102. .label SS0
  103. .locate 12 40
  104. .display Black LightGray
  105. .Inkey @Source
  106. .if @Source !$ AB goto SS0
  107. .if @Source $ B goto SetSource
  108. .goto SS1
  109. .label SetSource
  110. .define @Source  "B"
  111. .label SS1
  112. .. *******************************************
  113. .locate 11 20
  114. .display @ForGround @BackGround
  115. @ETSpace40
  116. .locate 11 22
  117. .display @ETLightGreen
  118. Install to HardDisk or Floppy ?(H/F)
  119. ..
  120. .label A0
  121. .locate 12 40
  122. .display Black LightGray
  123. .Inkey @HF
  124. .if @HF !$ HF goto A0
  125. .if @HF $ F goto SetF
  126. .goto A1
  127. .label SetF
  128. .define @ETPath     "B:\                                     "
  129. .if @Source !$ B goto A1
  130. .define @ETPath     "A:\                                     "
  131. ..
  132. .label A1
  133. .locate 12 20
  134. .display @ForGround @BackGround
  135. @ETSpace40
  136. .locate 11 20
  137. .display @ForGround @BackGround
  138. @ETSpace40
  139. .locate 11 29
  140. .display @ETLightGreen
  141. Install to the Path :
  142. .locate 12 20
  143. .display Black LightGray
  144. .ask @ETPath
  145. .. *******************************************
  146. .label A2
  147. .locate 12 20
  148. .display @ForGround @BackGround
  149. @ETSpace40
  150. .locate 11 20
  151. .display @ForGround @BackGround
  152. @ETSpace40
  153. .if @_ETROM eq "R24" goto A3
  154. .if @_ETROM eq "R1624" goto A3
  155. .if @_ETROM eq "S24R24" goto A3
  156. .locate 11 29
  157. .display @ETLightGreen
  158. Install 24 x 24 MING FONT :
  159. .locate 12 39
  160. .display Black LightGray
  161. .Inkey @FM
  162. .if @FM !$ YN goto A2
  163. .label A3
  164. .. *******************************************
  165. .. ******  Clear Screen  *****
  166. .. *******************************************
  167. .locate 10 18
  168. .display @ForGround @BackGround
  169. @ETSpace60
  170. .locate 11 18
  171. .display @ForGround @BackGround
  172. @ETSpace60
  173. .locate 12 18
  174. .display @ForGround @BackGround
  175. @ETSpace60
  176. .locate 13 18
  177. .display @ForGround @BackGround
  178. @ETSpace60
  179. .locate 14 18
  180. .display @ForGround @BackGround
  181. @ETSpace60
  182. .. ***************************
  183. .locate 12 20
  184. .display
  185. @ETSpace60
  186. .set shadow on
  187. .box s 7 18 15 60 @ForGround
  188. .set shadow off
  189. .locate 6 12
  190. .display @ETYellow
  191. Install :
  192. .label B1
  193. .display @ForGround @BackGround
  194. .locate 8 24
  195. .display @ETYellow
  196. (1) KAI FONT      ? (Y/N)
  197. .locate 8 54
  198. .display Black LightGray
  199. .Inkey @FK
  200. .if @FK !$ YN goto B1
  201. .. **********************
  202. .label B2
  203. .display @ForGround @BackGround
  204. .locate 10 24
  205. .display @ETYellow
  206. (2) LI FONT       ? (Y/N)
  207. .locate 10 54
  208. .display Black LightGray
  209. .Inkey @FL
  210. .if @FL !$ YN goto B2
  211. .. **********************
  212. .label B3
  213. .display @ForGround @BackGround
  214. .locate 12 24
  215. .display @ETYellow
  216. (3) DEMO Files    ? (Y/N)
  217. .locate 12 54
  218. .display Black LightGray
  219. .Inkey @DEMO
  220. .if @DEMO !$ YN goto B3
  221. .. **********************
  222. .label B4
  223. .display @ForGround @BackGround
  224. .locate 14 24
  225. .display @ETYellow
  226. (4) UTILITY Files ? (Y/N)
  227. .locate 14 54
  228. .display Black LightGray
  229. .Inkey @ETUTL
  230. .if @ETUTL !$ YN goto B4
  231. .. **********************
  232. .label B5
  233. .locate 17 28
  234. .display White @ETGreen
  235. Are You Sure (Y/N) ?      
  236. .Inkey @YN
  237. .if @YN !$ YN goto B5
  238. .if @YN $ N goto B1
  239. ..=================================
  240. ..======   CHECK SYSTEM DISK ======
  241. ..=================================
  242. .define @Temp ""
  243. .link @Temp @Source :SYSTEM
  244. .Exist @Temp
  245. .if error 33 goto B6
  246. .goto B7
  247. .label B6
  248. .diskspace @Source @TOTAL
  249. .Wait
  250. .beep
  251. .locate 22 18
  252. .display @ForGround @BackGround
  253. @ETSpace60
  254. .locate 22 19
  255. .display White @ETRed
  256. Please Insert ETEN System Disk to Drive @Source
  257. .goto B5
  258. .label B7
  259. ..
  260. ..=================================
  261. ..======   SUM    =================
  262. ..=================================
  263. .if @_ETROM eq "R16" goto SR16
  264. .if @_ETROM eq "R1624" goto SR16
  265. .sum @TOTAL @SF16
  266. .label SR16
  267. .if @FM $ N goto S0
  268. .sum @TOTAL @SFM
  269. .label S0
  270. .if @DEMO $ N goto S1
  271. .sum @TOTAL @SDemo
  272. .label S1
  273. .if @ETUTL $ N goto S2
  274. .sum @TOTAL @SUtl
  275. .label S2
  276. .if @FK $ N goto S3
  277. .sum @TOTAL @SFK
  278. .label S3
  279. .if @FL $ N goto S4
  280. .sum @TOTAL @SFL
  281. .label S4
  282. .diskspace @ETPath @Space
  283. .if @Space lt @TOTAL goto DiskErr
  284. .goto P1
  285. .label DiskErr
  286. .cls Black
  287. .locate 21 18
  288. .display White @ETRed
  289. Disk space must at least @Total Bytes
  290. .Wait
  291. .goto Exit
  292. .label P1
  293. ..=================================
  294. .locate 20 18
  295. .display @ForGround @BackGround
  296. @ETSpace60
  297. .locate 22 18
  298. .display @ForGround @BackGround
  299. @ETSpace60
  300. .locate 20 20
  301. .display White @ETRed
  302. [ENTER]
  303. .locate 20 28
  304. .display @ForGround @BackGround
  305.  Continue
  306. .locate 20 42
  307. .display White @ETRed
  308. [ESC]
  309. .locate 20 48
  310. .display @ForGround @BackGround
  311.  Exit Install
  312. .. ****************************
  313. .locate 22 18
  314. .display @ForGround @BackGround
  315. @ETSpace60
  316. .locate 22 12
  317. .display Black LightGray
  318. Process ---> System   │ Copying : 
  319. .link  @Target @ETPath \
  320. .define @Temp ""
  321. .link @Temp @Source :*.*
  322. .copy @Temp to @Target
  323. .. ******************************************
  324. .. * Copy DEMO                              *
  325. .. ******************************************
  326. .if @DEMO $ N goto D2
  327. .label D0
  328. .locate 22 12
  329. .display @ForGround @BackGround
  330. @ETSpace60
  331. .define @Temp ""
  332. .link @Temp @Source :TL&DEMO
  333. .Exist @Temp
  334. .if error 33 goto D1
  335. .goto SDemo
  336. .label D1
  337. .beep
  338. .locate 22 18
  339. .display White @ETRed
  340. Please replace [UTILITY & DEMO] Disk to Drive @Source
  341. .locate 21 27
  342. .display @ForGround @BackGround
  343. Press any key to continue ! .....
  344. .Wait
  345. .locate 22 18
  346. .display @ForGround @BackGround
  347. @ETSpace60
  348. .goto D0
  349. .label SDemo
  350. .locate 22 12
  351. .display Black LightGray
  352. Process ---> DEMO     │ Copying : 
  353. .locate 22 46
  354. .define @Target ""
  355. .link  @Target @ETPath \ @DemoPath \
  356. .define @Temp ""
  357. .link @Temp @Source :\DEMO\*.*
  358. .copy @Temp to @Target
  359. .label D2
  360. .locate 22 12
  361. .display @ForGround @BackGround
  362. @ETSpace60
  363. ..
  364. .. ******************************************
  365. .. * Copy UTILITY                           *
  366. .. ******************************************
  367. .if @ETUTL $ N goto U2
  368. .label U0
  369. .locate 22 12
  370. .display @ForGround @BackGround
  371. @ETSpace60
  372. .define @Temp ""
  373. .link @Temp @Source :TL&DEMO
  374. .Exist @Temp
  375. .if error 33 goto U1
  376. .goto SETUtl
  377. .label U1
  378. .beep
  379. .locate 22 18
  380. .display White @ETRed
  381. Please replace [UTILITY & DEMO] Disk to Drive @Source
  382. .locate 21 27
  383. .display @ForGround @BackGround
  384. Press any key to continue ! .....
  385. .Wait
  386. .locate 22 18
  387. .display @ForGround @BackGround
  388. @ETSpace60
  389. .goto U0
  390. .label SETUtl
  391. .locate 22 12
  392. .display Black LightGray
  393. Process ---> UTILITY  │ Copying : 
  394. .locate 22 46
  395. .define @Target ""
  396. .link  @Target @ETPath \ @UtlPath \
  397. .define @Temp ""
  398. .link @Temp @Source :\UTILITY\*.*
  399. .copy @Temp to @Target
  400. .label U2
  401. ..
  402. .. ******************************************
  403. .. * Check 16FONT copy 16 x 15              *
  404. .. ******************************************
  405. .if @_ETROM eq "R16" goto E2
  406. .if @_ETROM eq "R1624" goto E2
  407. .label E0
  408. .locate 22 12
  409. .display @ForGround @BackGround
  410. @ETSpace60
  411. .define @Temp ""
  412. .link @Temp @Source :STDFONTS.15
  413. .Exist @Temp
  414. .if error 33 goto E1
  415. .goto SFONT16
  416. .label E1
  417. .beep
  418. .locate 22 18
  419. .display White @ETRed
  420. Please Insert 16 x 15 Font Disk to Drive @Source
  421. .locate 21 27
  422. .display @ForGround @BackGround
  423. Press any key to continue ! .....
  424. .Wait
  425. .goto E0
  426. .label SFONT16
  427. .locate 22 12
  428. .display Black LightGray
  429. Process --->16x15 FONT│ Copying : 
  430. .locate 22 46
  431. .define @Target ""
  432. .link  @Target @ETPath \
  433. .define @Temp ""
  434. .link @Temp @Source :STDFONTS.15
  435. .copy @Temp to @Target
  436. .label E2
  437. .locate 22 12
  438. .display @ForGround @BackGround
  439. @ETSpace60
  440. .. ******************************************
  441. .. * Copy 24 x 24 MING FONT                 *
  442. .. ******************************************
  443. .if @_ETROM eq "R24" goto M2
  444. .if @_ETROM eq "R1624" goto M2
  445. .if @_ETROM eq "S24R24" goto M2
  446. .if @FM $ N goto M2
  447. .label M0
  448. .define @Temp ""
  449. .link @Temp @Source :STDFONT.24
  450. .Exist @Temp
  451. .if error 33 goto M1
  452. .goto SFONT24
  453. .label M1
  454. .beep
  455. .locate 22 20
  456. .display White @ETRed
  457. Please replace 24 x 24 MING_FONT to Drive @Source
  458. .locate 21 27
  459. .display @ForGround @BackGround
  460. Press any key to continue ! .....
  461. .Wait
  462. .goto M0
  463. .label SFONT24
  464. .locate 22 18
  465. .display @ForGround @BackGround
  466. @ETSpace60
  467. .locate 22 12
  468. .display Black LightGray
  469. Process --->24x24 FONT│ Copying : 
  470. .locate 22 46
  471. .define @Target ""
  472. .link  @Target @ETPath \
  473. .define @Temp ""
  474. .link @Temp @Source :*.24
  475. .copy @Temp to @Target
  476. .label M2
  477. .locate 22 20
  478. .display @ForGround @BackGround
  479. @ETSpace60
  480. ..
  481. .. ******************************************
  482. .. * Copy FONT   KAI FONT                   *
  483. .. ******************************************
  484. .if @FK $ N goto K2
  485. .label K0
  486. .locate 22 12
  487. .display @ForGround @BackGround
  488. @ETSpace60
  489. .define @Temp ""
  490. .link @Temp @Source :STDFONT.24K
  491. .Exist @Temp
  492. .if error 33 goto K1
  493. .goto SKAI_Font
  494. .label K1
  495. .beep
  496. .locate 22 18
  497. .display White @ETRed
  498. Please replace [KAI FONT] Disk to Drive @Source
  499. .locate 21 27
  500. .display @ForGround @BackGround
  501. Press any key to continue ! .....
  502. .Wait
  503. .goto K0
  504. .label SKAI_Font
  505. .locate 22 12
  506. .display Black LightGray
  507. Process ---> KAI FONT │ Copying : 
  508. .locate 22 46
  509. .define @Target ""
  510. .link  @Target @ETPath \
  511. .define @Temp ""
  512. .link @Temp @Source :*.*
  513. .copy @Temp to @Target
  514. .label K2
  515. .. ******************************************
  516. .. * Copy FONT   LI FONT                    *
  517. .. ******************************************
  518. .if @FL $ N goto L2
  519. .label L0
  520. .locate 22 12
  521. .display @ForGround @BackGround
  522. @ETSpace60
  523. .define @Temp ""
  524. .link @Temp @Source :STDFONT.24L
  525. .Exist @Temp
  526. .if error 33 goto L1
  527. .goto SLI_Font
  528. .label L1
  529. .beep
  530. .locate 22 18
  531. .display White @ETRed
  532. Please replace [LI FONT] Disk to Drive @Source
  533. .locate 21 27
  534. .display @ForGround @BackGround
  535. Press any key to continue ! .....
  536. .Wait
  537. .goto L0
  538. .label SLI_Font
  539. .locate 22 12
  540. .display Black LightGray
  541. Process ---> LI FONT  │ Copying : 
  542. .locate 22 46
  543. .define @Target ""
  544. .link @Target @ETPath \
  545. .define @Temp ""
  546. .link @Temp @Source :*.*
  547. .copy @Temp to @Target
  548. .label L2
  549. .. *******************************************
  550. .. ***  Run ETSETUP.COM
  551. .. *******************************************
  552. .chdir @ETPath
  553. .define @Temp ""
  554. .link @Temp @ETPath \ etsetup
  555. .exec @Temp @ETPath
  556. .end
  557. ..
  558. .. *******************************************
  559. .. ***  Exit Install ***
  560. .. *******************************************
  561. .label ETExist
  562. .cls
  563. .locate 1 1
  564. .display Black LightGray
  565. Chinese System already resident !  Please free it first
  566. .beep
  567. .Wait 3
  568. .label Exit
  569. .display white
  570. .cls black
  571. .cursor on
  572.