home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 14 / 14.iso / s / s032 / 1.ddi / INSTALL.SPT < prev   
Encoding:
Text File  |  1993-09-01  |  14.5 KB  |  585 lines
  1. .. *******************************************
  2. .. *** Initial ***   Set Initialize Data . ***
  3. .. *** Date : 82-04-19 AM 8:00           ***
  4. .. *******************************************
  5. .cursor off
  6. .define @Ver        1.10
  7. .define @BackGround Blue
  8. .define @ForGround  White
  9. .define @ETRed        Red
  10. .define @ETGreen    Green
  11. .define @ETLightGreen LightGreen
  12. .define @ETMagenta  Magenta
  13. .define @ETYellow   Yellow
  14. .define @ETPath     "C:\ET3                                 "
  15. .define @Source     "A"
  16. .define @Temp        ""
  17. .define @Target     ""
  18. .define @OagmPath   "OAGM"
  19. .define @UtlPath    "UTILITY"
  20. .define @ETSpace40  "                                       "
  21. .define @ETSpace60  "                                                  "
  22. .define @HF        "H"
  23. .. ******************************************
  24. .. * Check 16FONT copy 16 x 15            *
  25. .. ******************************************
  26. .define @OAGM        "Y"
  27. .define @ETUTL        "Y"
  28. .define @FK        "Y"
  29. .define @FB        "Y"
  30. .define @FS        "Y"
  31. .define @FF        "Y"
  32. .define @YN        "N"
  33. .define @SSYS        1600000
  34. .define @SOAGM         328000
  35. .define @SUTL         335000
  36. .define @SFK         490000
  37. .define @SFB         490000
  38. .define @SFS         490000
  39. .define @SFF         490000
  40. .define @TOTAL          0
  41. .define @ETROM        "NONE"
  42. .Onkey ESC goto Exit
  43. .set boxfill off
  44. .set shadow off
  45. .. *******************************************
  46. .. *** Start ***  Check ET.COM Exist Or Not ?
  47. .. *******************************************
  48. .if @_ETExist goto ETExist
  49. .. *******************************************
  50. .. ***    Check COLOR
  51. .. *******************************************
  52. .ginit
  53. .if @_Color goto SetColor
  54. .define @BackGround Black
  55. .define @ForGround  Blue
  56. .define @ETRed        0
  57. .define @ETLightGreen 0
  58. .define @ETMagenta  0
  59. ..define @ETYellow   0
  60. .define @ETGreen    0
  61. .label SetColor
  62. ..gbox n 0 0 22 79 @BackGround f
  63. .gcls GRABLUE
  64. .. *******************************************
  65. .. *** Main Menu ***
  66. .. *******************************************
  67. .gbox d 0 0 3 79 @ForGround
  68. .gbox s 4 0  17 79 @ForGround
  69. .gbox s 18 0 22 79 @ForGround
  70. .gwrtstr @ForGround @BackGround 1 30
  71. ╥╨╠∞╓╨╬─╧╡═│░▓╫░│╠╨≥
  72. .gwrtstr @ETYellow @BackGround 1 67
  73. Ver @Ver
  74. .gwrtstr @ForGround @BackGround 2 16
  75. (C)Copyright ETen Information System Corp, 1992.
  76. .gwrtstr @ForGround @BackGround 19 19
  77. ╦╬╠σ╫╓┐Γ╬¬▒╪╫░╫╓┐Γú¼╞Σ╦√╫╓┐Γ╩╙╨Φ╥¬╤í╘±░▓╫░úí
  78. .gwrtstr WHITE @ETRed 21 19
  79. [ENTER]
  80. .gwrtstr @ForGround @BackGround 21 27
  81. ╝╠╨°╧┬╥╗╢»╫≈
  82. .gwrtstr WHITE @ETRed 21 42
  83. [ESC]
  84. .gwrtstr @ForGround @BackGround 21 48
  85. ╜ß╩°░▓╫░│╠╨≥
  86. .. *******************************************
  87. .. *** Select ***
  88. .. *******************************************
  89. .gbox s 9 18 12 60 @ForGround
  90. .gwrtstr @ETLightGreen @BackGround 10 25
  91. ╓╨╬─╧╡═│┤┼┼╠╦∙╘┌╟²╢»╞≈ ? (A/B)
  92. .label SS0
  93. .ginkey @Source BLACK LightGray 11 39
  94. .if @Source !$ AB goto SS0
  95. .if @Source $ B goto SetSource
  96. .goto SS1
  97. .label SetSource
  98. .define @Source  "B"
  99. .label SS1
  100. .label A1
  101. .gwrtstr @ForGround @BackGround 11 20
  102. @ETSpace40
  103. .gwrtstr @ForGround @BackGround 10 20
  104. @ETSpace40
  105. .gwrtstr @ETLightGreen @BackGround 10 24
  106. ╦∙╥¬░▓╫░╡─╟²╢»╞≈╝░═Ω╒√─┐┬╝├√│╞ú║
  107. .gask ETYellow LightGray 11 20 @ETPath
  108. .. *******************************************
  109. .. ******  Clear Screen  *****
  110. .. *******************************************
  111. .gwrtstr @ForGround @BackGround 9 18
  112. @ETSpace60
  113. .gwrtstr @ForGround @BackGround 10 18
  114. @ETSpace60
  115. .gwrtstr @ForGround @BackGround 11 18
  116. @ETSpace60
  117. .gwrtstr @ForGround @BackGround 12 18
  118. @ETSpace60
  119. .gwrtstr @ForGround @BackGround 13 18
  120. @ETSpace60
  121. .. ***************************
  122. .gwrtstr @ForGround @BackGround 11 20
  123. @ETSpace60
  124. .gbox s 7 7 15 74 @ForGround
  125. .gwrtstr @ETYellow @BackGround 5 12
  126. ╟δ╤í╘±╙√░▓╫░╧ε─┐ú║
  127. .label B0
  128. .gwrtstr @ETYellow @BackGround 8 9
  129. (1) ╦╬╠σ╡π╒≤╫╓┐Γú┐(Y/N)
  130. .ginkey @FS Black LightGray 8 35
  131. .gwrtstr Red LightGray 8 35
  132. @FS
  133. .if @FS !$ YN goto B0
  134. .. **********************
  135. .label B1
  136. .gwrtstr @ETYellow @BackGround 10 9
  137. (2) ┐¼╠σ╡π╒≤╫╓┐Γú┐(Y/N)
  138. .ginkey @FK Black LightGray 10 35
  139. .gwrtstr Red LightGray 10 35
  140. @FK
  141. .if @FK !$ YN goto B1
  142. .. **********************
  143. .. **********************
  144. .label B5
  145. .gwrtstr @ETYellow @BackGround 12 9
  146. (3) ║┌╠σ╡π╒≤╫╓┐Γú┐(Y/N)
  147. .ginkey @FB Black LightGray 12    35
  148. .gwrtstr Red LightGray 12  35
  149. @FB
  150. .if @FB !$ YN goto B5
  151. .. **********************
  152. .label B6
  153. .gwrtstr @ETYellow @BackGround 14 9
  154. (4) ╖┬╦╬╡π╒≤╫╓┐Γú┐(Y/N)
  155. .ginkey @FF Black LightGray 14 35
  156. .gwrtstr Red LightGray 14 35
  157. @FF
  158. .if @FF !$ YN goto B6
  159. .. **********************
  160. .label B7
  161. .gwrtstr @ETYellow @BackGround 8   44
  162. (5) OW╝░Oamate│╠╨≥ú┐(Y/N)
  163. .ginkey @OAGM Black LightGray 8   70
  164. .gwrtstr Red LightGray 8   70
  165. @OAGM
  166. .if @OAGM !$ YN goto B7
  167. ..***************************
  168. .label B2
  169. .gwrtstr @ETYellow @BackGround 10  44
  170. (6) ╧╡═│╩╡╙├│╠╨≥  ú┐(Y/N)
  171. .ginkey @ETUTL Black LightGray 10  70
  172. .gwrtstr Red LightGray 10   70
  173. @ETUTL
  174. .if @ETUTL !$ YN goto B2
  175. .. **********************
  176. .label B8
  177. .gwrtstr White @ETGreen 16 28
  178. ╚╖╢¿┬≡ú┐(╩╟ Y/╖± N)
  179. .ginkey @YN White @ETGreen 16 50
  180. .if @YN !$ YN goto B8
  181. .if @YN $ N goto B0
  182. ..=================================
  183. ..======   CHECK SYSTEM DISK ======
  184. ..=================================
  185. .label B81
  186. .define @Temp ""
  187. .link @Temp @Source :\INSTALL.EXE
  188. .Exist @Temp
  189. .if error 33 goto B9
  190. .goto BA
  191. .label B9
  192. .diskspace @Source @TOTAL
  193. ..Wait
  194. .beep
  195. .gwrtstr @ForGround @BackGround 21 18
  196. @ETSpace60
  197. .gwrtstr White @ETRed 21 23
  198. ╟δ╜½╓╨╬─╧╡═│ 1# ┼╠▓σ╚δ @Source ╟²╢»╞≈ úí
  199. .wait
  200. .gwrtstr @ForGround @BackGround 21 18
  201. @ETSpace60
  202. .goto B81
  203. .label BA
  204. ..=================================
  205. ..======   SUM      =================
  206. ..=================================
  207. ..if @_ETROM eq "R16" goto SR16
  208. ..if @_ETROM eq "R1624" goto SR16
  209. .sum @TOTAL @SSYS
  210. .label SR16
  211. .if @FK $ N goto S0
  212. .sum @TOTAL @SFK
  213. .label S0
  214. .if @FB $ N goto S1
  215. .sum @TOTAL @SFB
  216. .label S1
  217. .if @FS $ N goto S2
  218. .sum @TOTAL @SFS
  219. .label S2
  220. .if @FF $ N goto S3
  221. .sum @TOTAL @SFF
  222. .label S3
  223. .if @OAGM $ N goto S4
  224. .sum @TOTAL @SOAGM
  225. .label S4
  226. .if @ETUTL $ N goto S5
  227. .sum @TOTAL @SUTL
  228. .label S5
  229. .diskspace @ETPath @Space
  230. .if @Space lt @TOTAL goto DiskErr
  231. .goto P1
  232. .label DiskErr
  233. .gcls GRABLACK
  234. .gwrtstr White @ETRed 20 24
  235. ┤┼┼╠┐╒╝Σ▓╗╫πú¼╨Φ╥¬ @Total ╫╓╜┌úí
  236. .Wait
  237. .goto Exit
  238. .label P1
  239. ..=================================
  240. .gwrtstr @ForGround @BackGround 19 10
  241. @ETSpace60
  242. .gwrtstr @ForGround @BackGround 19 23
  243. @ETSpace60
  244. .gwrtstr WHITE @ETRed 19 19
  245. [ENTER]
  246. .gwrtstr @ForGround @BackGround 19 27
  247. ╝╠╨°╧┬╥╗╢»╫≈
  248. .gwrtstr White @ETRed 19 42
  249. [ESC]
  250. .gwrtstr @ForGround @BackGround 19 48
  251. ╜ß╩°░▓╫░│╠╨≥
  252. .. ****************************
  253. .gwrtstr @ForGround @BackGround 21 18
  254. @ETSpace60
  255. .gwrtstr Black LightGray 21 18
  256. ╜°╨╨╧╡═│┼╠┐╜▒┤          ⌐º┐╜▒┤╬─╝■:
  257. .link  @Target @ETPath \
  258. .define @Temp ""
  259. .link @Temp @Source :\SYS\*.*
  260. .copy @Temp to @Target @ETLightGreen @BackGround 21 53
  261. .. ******************************************
  262. .. * Copy SYS&OAGM                *
  263. .. ******************************************
  264. .label sy0
  265. .gwrtstr @ForGround @BackGround 21 18
  266. @ETSpace60
  267. .define @Temp ""
  268. .link @Temp @Source :\SYS\ICPN.TAB
  269. .Exist @Temp
  270. .if error 33 goto sy1
  271. .goto sss
  272. .label sy1
  273. .beep
  274. .gwrtstr White @ETRed 21 21
  275. ╟δ╜½╓╨╬─╧╡═│ 2# ┼╠▓σ╚δ @Source ╟²╢»╞≈ úí
  276. .Wait
  277. .gwrtstr @ForGround @BackGround 21 12
  278. @ETSpace60
  279. .goto sy0
  280. .label sss
  281. .gwrtstr Black LightGray 21 18
  282. ╜°╨╨╧╡═│╬─╝■┐╜▒┤      ⌐º┐╜▒┤╬─╝■:
  283. .locate 22 46
  284. .define @Target ""
  285. .link  @Target @ETPath \
  286. .define @Temp ""
  287. .link @Temp @Source :\SYS\*.*
  288. .copy @Temp to @Target @ETLightGreen @BackGround 21 53
  289. ..**********************************************
  290. .if @OAGM $ N goto D2
  291. .label D0
  292. .gwrtstr @ForGround @BackGround 21 18
  293. @ETSpace60
  294. .define @Temp ""
  295. .link @Temp @Source :\OAGM\OAGM.EXE
  296. .Exist @Temp
  297. .if error 33 goto D1
  298. .goto ooo
  299. .label D1
  300. .beep
  301. .gwrtstr White @ETRed 21 21
  302. ╟δ╜½╓╨╬─╧╡═│ 2# ┼╠▓σ╚δ @Source ╟²╢»╞≈ úí
  303. .gwrtstr @ForGround @BackGround 21 12
  304. @ETSpace60
  305. .goto D0
  306. .label ooo
  307. .gwrtstr Black LightGray 21 18
  308. ╜°╨╨ OW OAMATE ┐╜▒┤   ⌐º┐╜▒┤╬─╝■:
  309. .locate 22 46
  310. .define @Target ""
  311. .link  @Target @ETPath \ @OagmPath \
  312. .define @Temp ""
  313. .link @Temp @Source :\OAGM\*.*
  314. .copy @Temp to @Target @ETLightGreen @BackGround 21 53
  315. .label D2
  316. .gwrtstr @ForGround @BackGround 21 18
  317. @ETSpace60
  318. .. ******************************************
  319. .. * Copy UTILITY1                *
  320. .. ******************************************
  321. .if @ETUTL $ N goto U2
  322. .label U0
  323. .gwrtstr @ForGround @BackGround 21 12
  324. @ETSpace60
  325. .define @Temp ""
  326. .link @Temp @Source :\UTILITY\ETFMX.EXE
  327. .Exist @Temp
  328. .if error 33 goto U1
  329. .goto SETUtl
  330. .label U1
  331. .beep
  332. .gwrtstr White @ETRed 21 21
  333. ╟δ╜½╓╨╬─╧╡═│ 2# ┼╠▓σ╚δ @Source ╟²╢»╞≈ úí
  334. .Wait
  335. .gwrtstr @ForGround @BackGround 21 12
  336. @ETSpace60
  337. .goto U0
  338. .label SETUtl
  339. .gwrtstr Black LightGray 21 18
  340. ╜°╨╨╩╡╙├│╠╨≥┐╜▒┤      ⌐º┐╜▒┤╬─╝■:
  341. .locate 22 46
  342. .define @Target ""
  343. .link  @Target @ETPath \ @UtlPath \
  344. .define @Temp ""
  345. .link @Temp @Source :\UTILITY\*.*
  346. .copy @Temp to @Target @ETLightGreen @BackGround 21 53
  347. .label U2
  348. .chdir @ETPath
  349. .. ******************************************
  350. .. * Copy FONT     HEI FONT            *
  351. .. ******************************************
  352. .if @FB $ N goto FL2
  353. .label FL0
  354. .gwrtstr @ForGround @BackGround 21 18
  355. @ETSpace60
  356. .define @Temp ""
  357. .link @Temp @Source :\FNT\STD2424B
  358. .Exist @Temp
  359. .if error 33 goto FL1
  360. .goto SLI_Font
  361. .label FL1
  362. .beep
  363. .gwrtstr @ForGround @BackGround 20 16
  364. @ETSpace60
  365. .gwrtstr @ForGround @BackGround 21 12
  366. @ETSpace60
  367. .gwrtstr White @ETRed 21 19
  368. ╟δ╜½╓╨╬─╧╡═│ 2# ┼╠▓σ╚δ @Source ╟²╢»╞≈ úí
  369. .Wait
  370. .goto FL0
  371. .label SLI_Font
  372. .gwrtstr Black LightGray 21 17
  373. ╜°╨╨╫╓┐Γ╜Γ╤╣╦⌡ ----->í╛║┌╠σí┐........ ╟δ╔╘┤²
  374. .locate 21 10
  375. .define @Target ""
  376. .link  @Target @ETPath \ STD2424B.FNT
  377. .define @Temp ""
  378. .link @Temp @Source  :\FNT\STD2424B
  379. .dos ETUNPACK @Temp @Target
  380. .gwrtstr @ForGround @BackGround 20 10
  381. @ETSpace60
  382. .label FL2
  383. .. ******************************************
  384. .. * Copy UTILITY2                *
  385. .. ******************************************
  386. .if @ETUTL $ N goto FL3
  387. .label U20
  388. .gwrtstr @ForGround @BackGround 21 12
  389. @ETSpace60
  390. .define @Temp ""
  391. .link @Temp @Source :\UTILITY\SETHOT.EXE
  392. .Exist @Temp
  393. .if error 33 goto U21
  394. .goto SETUtl2
  395. .label U21
  396. .beep
  397. .gwrtstr White @ETRed 21 21
  398. ╟δ╜½╓╨╬─╧╡═│ 3# ┼╠▓σ╚δ @Source ╟²╢»╞≈ úí
  399. .Wait
  400. .gwrtstr @ForGround @BackGround 21 12
  401. @ETSpace60
  402. .goto U20
  403. .label SETUtl2
  404. .gwrtstr Black LightGray 21 18
  405. ╜°╨╨╩╡╙├│╠╨≥┐╜▒┤      ⌐º┐╜▒┤╬─╝■:
  406. .locate 22 46
  407. .define @Target ""
  408. .link  @Target @ETPath \ @UtlPath \
  409. .define @Temp ""
  410. .link @Temp @Source :\UTILITY\*.*
  411. .copy @Temp to @Target @ETLightGreen @BackGround 21 53
  412. .label FL3
  413. .chdir @ETPath
  414. .. ******************************************
  415. .. * Copy FONT    16x15 FONT            *
  416. .. ******************************************
  417. .label E0
  418. .gwrtstr @ForGround @BackGround 21 18
  419. @ETSpace60
  420. .define @Temp ""
  421. .link @Temp @Source :\FNT\STD1615
  422. .Exist @Temp
  423. .if error 33 goto E1
  424. .goto SFONT16
  425. .label E1
  426. .beep
  427. .gwrtstr @ForGround @BackGround 20 16
  428. @ETSpace60
  429. .gwrtstr White @ETRed 21 21
  430. ╟δ╜½╓╨╬─╧╡═│ 3# ┼╠▓σ╚δ @Source ╟²╢»╞≈ úí
  431. .Wait
  432. .goto E0
  433. .label SFONT16
  434. .gwrtstr Black LightGray 21 17
  435. ╜°╨╨╫╓┐Γ╜Γ╤╣╦⌡ -----> 16x15╫╓┐Γ ..... ╟δ╔╘┤²
  436. .locate 22 46
  437. .define @Target ""
  438. .link  @Target @ETPath \ STD1615.FNT
  439. .define @Temp ""
  440. .link @Temp @Source :\FNT\STD1615
  441. .dos ETUNPACK @Temp  @Target
  442. .label E2
  443. .gwrtstr @ForGround @BackGround 21 16
  444. @ETSpace60
  445. .. ******************************************
  446. .. * Copy FONT    SONG FONT            *
  447. .. ******************************************
  448. .if @FS $ N goto FK2
  449. .label FK0
  450. .gwrtstr @ForGround @BackGround 20 12
  451. @ETSpace60
  452. .gwrtstr @ForGround @BackGround 21 12
  453. @ETSpace60
  454. .define @Temp ""
  455. .link @Temp @Source :\FNT\STD2424
  456. .Exist @Temp
  457. .if error 33 goto FK1
  458. .goto SKAI_Font
  459. .label FK1
  460. .beep
  461. .gwrtstr @ForGround @BackGround 20 16
  462. @ETSpace60
  463. .gwrtstr White @ETRed 21 19
  464. ╟δ╜½╓╨╬─╧╡═│ 3# ┼╠▓σ╚δ @Source ╟²╢»╞≈ úí
  465. .Wait
  466. .goto FK0
  467. .label SKAI_Font
  468. .gwrtstr Black LightGray 21 17
  469. ╜°╨╨╫╓┐Γ╜Γ╤╣╦⌡ ----->í╛╦╬╠σí┐........ ╟δ╔╘┤²
  470. .locate 21 10
  471. .define @Target ""
  472. .link  @Target @ETPath \ STD2424.FNT
  473. .define @Temp ""
  474. .link @Temp @Source :\FNT\STD2424
  475. .dos ETUNPACK @Temp @Target
  476. .gwrtstr @ForGround @BackGround 20 16
  477. @ETSpace60
  478. .label FK2
  479. .. ******************************************
  480. .. * Copy FONT     KAI FONT            *
  481. .. ******************************************
  482. .if @FK $ N goto FS2
  483. .label FS0
  484. .gwrtstr @ForGround @BackGround 20 12
  485. @ETSpace60
  486. .gwrtstr @ForGround @BackGround 21 12
  487. @ETSpace60
  488. .define @Temp ""
  489. .link @Temp @Source :\FNT\STD2424K
  490. .Exist @Temp
  491. .if error 33 goto FS1
  492. .goto SHING_Font
  493. .label FS1
  494. .beep
  495. .gwrtstr @ForGround @BackGround 20 16
  496. @ETSpace60
  497. .gwrtstr White @ETRed 21 19
  498. ╟δ╜½╓╨╬─╧╡═│ 3# ┼╠▓σ╚δ @Source ╟²╢»╞≈ úí
  499. .Wait
  500. .goto FS0
  501. .label SHING_Font
  502. .gwrtstr @ForGround @BackGround 20 12
  503. @ETSpace60
  504. .gwrtstr Black LightGray 21 17
  505. ╜°╨╨╫╓┐Γ╜Γ╤╣╦⌡ ----->í╛┐¼╠σí┐........ ╟δ╔╘┤²
  506. .locate 21 10
  507. .define @Target ""
  508. .link  @Target @ETPath \ STD2424K.FNT
  509. .define @Temp ""
  510. .link @Temp @Source :\FNT\STD2424K
  511. .dos ETUNPACK @Temp @Target
  512. .gwrtstr @ForGround @BackGround 20 10
  513. @ETSpace60
  514. .label FS2
  515. .. ******************************************
  516. .. * Copy FONT FANG SONG FONT            *
  517. .. ******************************************
  518. .if @FF $ N goto FB2
  519. .label FB0
  520. .gwrtstr @ForGround @BackGround 20 12
  521. @ETSpace60
  522. .gwrtstr @ForGround @BackGround 21 16
  523. @ETSpace60
  524. .define @Temp ""
  525. .link @Temp @Source :\FNT\STD2424F
  526. .Exist @Temp
  527. .if error 33 goto FB1
  528. .goto BLACK_Font
  529. .label FB1
  530. .beep
  531. .gwrtstr @ForGround @BackGround 20 12
  532. @ETSpace60
  533. .gwrtstr @ForGround @BackGround 21 16
  534. @ETSpace60
  535. .gwrtstr White @ETRed 21 19
  536. ╟δ╜½╓╨╬─╧╡═│ 3# ┼╠▓σ╚δ @Source ╟²╢»╞≈ úí
  537. .Wait
  538. .goto FB0
  539. .label BLACK_Font
  540. .gwrtstr @ForGround @BackGround 20 12
  541. @ETSpace60
  542. .gwrtstr Black LightGray 21 17
  543. ╜°╨╨╫╓┐Γ╜Γ╤╣╦⌡ ----->í╛╖┬╦╬í┐........ ╟δ╔╘┤²
  544. .locate 21 10
  545. .define @Target ""
  546. .link  @Target @ETPath \STD2424F.FNT
  547. .define @Temp ""
  548. .link @Temp @Source :\FNT\STD2424F
  549. .dos ETUNPACK @Temp @Target
  550. .gwrtstr @ForGround @BackGround 20 10
  551. @ETSpace60
  552. .label FB2
  553. ..*****************************
  554. ..*  delete garbage          *
  555. ..******************************
  556. .define @Target ""
  557. .link @Target @ETPath \ETUNPACK.EXE
  558. .define @Temp "1"
  559. .dos PARSE  @Target  @Temp
  560. .define @Target ""
  561. .link @Target @ETPath \PARSE.COM
  562. .define @Temp "1"
  563. .dos PARSE  @Target  @Temp
  564. .gquit
  565. .cursor on
  566. .. *******************************************
  567. .. ***    Run ETSETUP.COM
  568. .. *******************************************
  569. .chdir @ETPath
  570. .define @Temp ""
  571. .link @Temp @ETPath \ etsetup
  572. .exec @Temp @ETPath
  573. .goto  Exit
  574. .label ETExist
  575. .locate 1,1
  576. .display Black LightGray
  577. Chinese System already resident !  Please free it first
  578. .beep
  579. .Wait 3
  580. .display white
  581. .cursor on
  582. .label Exit
  583. .gquit
  584. .end
  585.