.. œœœœœœœœ
.. œ  ŸY–ø˜kšŠ  œ
.. œœœœœœœœ 
.cursor off
.define @Ver          1.12
.define @BackGround   Blue
.define @ForGround    White
.define @ETRed        Red
.define @ETGreen      Green
.define @ETLightGreen LightGreen
.define @ETMagenta    Magenta
.define @ETYellow     Yellow
.define @ETPath       "C:\ET3                                 "
.define @Source       "A"
.define @Temp         ""
.define @Target       ""
.define @DemoPath     "DEMO"
.define @UtlPath      "UTILITY"
.define @ETSpace40    "                                       "
.define @ETSpace60    "                                                  "
.define @HF           "H"
.define @DEMO         "Y"
.define @ETUTL        "Y"
.define @FM           "Y"
.define @FK           "Y"
.define @FL           "Y"
.define @FR           "Y"
.define @FB           "Y"
.define @FS           "Y"
.define @YN           "N"
.define @TLMING       "Y" 
.define @SSYS         1200000
.define @SDemo          60000
.define @SUtl          270000
.define @SF16          400000
.define @SAI           360000
.define @SFM          1100000
.define @SFK          1000000
.define @SFL          1000000
.define @SFR          1000000
.define @SFB          1000000
.define @SFS          1000000
.define @STLMING      1000000
.define @TOTAL              0
.define @ETROM        "NONE"
.define @NET          "N" 
.Onkey ESC goto Exit
.set boxfill off
.set shadow off
.. œœœœœœœœœœ
.. œ  ”™ĢŅĄ2•Ļõ–í  œ
.. œœœœœœœœœœ
.ginit
.if @_ETExist goto ETExist
.. œœœœœœœœ
.. œ  Š•™ˆŽŽ”â  œ
.. œœœœœœœœ
.if @_Color goto SetColor
.define @BackGround    Black
.define @ForGround     Blue
.define @ETRed         0
.define @ETLightGreen  0
.define @ETMagenta     0
.define @ETYellow      0
.define @ETGreen       0
.label SetColor
.gcls GRABLUE
.. œœœœœœœ
.. œ  “… ęš“  œ 
.. œœœœœœœ
.gbox d 0 0 3 79 @ForGround
.gbox s 4 0  17 79 @ForGround
.gbox s 18 0 22 79 @ForGround
.gwrtstr @ForGround @BackGround 1 30
šŽ“H’â“b–MžŌ”™ĢŅĄ2”Ą
.gwrtstr @ETYellow @BackGround 1 67
Ver @Ver
.gwrtstr @ForGround @BackGround 2 16
(C)Copyright ETen Information System Corp, 1992.
.gwrtstr @ForGround @BackGround 19 19
—ŪԔ”˜Í™ē“ŅĢŅ””˜Í1–Ķ“Å””˜ÍĄŸĶ‡šmĐØĻ䔙ĢŅ9
.gwrtstr WHITE @ETRed 21 19
[ENTER]
.gwrtstr @ForGround @BackGround 21 27
­Š­ü’ĩ’ E•1
.gwrtstr WHITE @ETRed 21 42
[ESC]
.gwrtstr @ForGround @BackGround 21 48
ĄN•Õ”™ĢŅĄ2”Ą
.. œœœœœœœœœœ
.. œ  ”rĄųĐØĻä ęš“  œ
.. œœœœœœœœœœ
.gbox s 9 18 12 60 @ForGround
.gwrtstr @ETLightGreen @BackGround 10 25
’â“b–MžŌĨ—“v—p”„Ĩ—Ĩ˜Đ1 ? (A/B)
.label SS0
.ginkey @Source BLACK LightGray 11 39
.if @Source !$ AB goto SS0
.if @Source $ B goto SetSource
.goto SS1
.label SetSource
.define @Source  "B"
.label SS1
.. œœœœœœœœœœœœœœœœœœœœœ
.label A1
.gwrtstr @ForGround @BackGround 11 20
@ETSpace40
.gwrtstr @ForGround @BackGround 10 20
@ETSpace40
.gwrtstr @ETLightGreen @BackGround 10 24
—pšm”™ĢŅ—úĨ—Ĩ˜Đ1“E•šĻë“ũĐæ”tĨĄ7
.gask ETYellow LightGray 11 20 @ETPath
.goto mainmenu
.. œœœœœœœœœœœœœœœœœœœœ
.label A2
.gwrtstr @ForGround @BackGround 11 20
@ETSpace40
.gwrtstr @ForGround @BackGround 10 20
@ETSpace40
.label A4
.if @ETROM eq "R24" goto A3
.if @ETROM eq "R1624" goto A3
.if @ETROM eq "S24R24" goto A3
.label A5
.gwrtstr @ETLightGreen @BackGround 10 28
šm”™ĢŅ 24x24 —ŪԔ”˜ÍĒYJ
.ginkey @FM Black LightGray 11 39
.if @FM !$ YN goto A2
.label A3
.. œœœœœœœœœœœœ
.. œ  šĒšŸSĪĄĻëšĩĐŽĪÜ  œ   
.. œœœœœœœœœœœœ
.label mainmenu
.gwrtstr @ForGround @BackGround 9 18
@ETSpace60
.gwrtstr @ForGround @BackGround 10 18
@ETSpace60
.gwrtstr @ForGround @BackGround 11 18
@ETSpace60
.gwrtstr @ForGround @BackGround 12 18
@ETSpace60
.gwrtstr @ForGround @BackGround 13 18
@ETSpace60
.. œœœœœœœœœœœœœ
.gwrtstr @ForGround @BackGround 11 20
@ETSpace60
.gbox s 7 7 15 74 @ForGround
.gwrtstr @ETYellow @BackGround 5 12
§øĐØĻäžY”™ĢŅĄų“ũ7
.label B1
.gwrtstr @ETYellow @BackGround 8 9
(1) ĒĮ›”Ŧīœá””˜ÍJ(Y/N)
.ginkey @FK Black LightGray 8 35
.gwrtstr Red LightGray 8 35
@FK
.if @FK !$ YN goto B1
.. œœœœœœœœœœœœ
.label B2
.gwrtstr @ETYellow @BackGround 10 9
(2) ŦĄ›”Ŧīœá””˜ÍJ(Y/N)
.ginkey @FL Black LightGray 10 35
.gwrtstr Red LightGray 10 35
@FL
.if @FL !$ YN goto B2
.. œœœœœœœœœœœœ
.label B3
.gwrtstr @ETYellow @BackGround 12 9
(3) ĒmŪÔŦīœá””˜ÍJ(Y/N)
.ginkey @FR Black LightGray 12 35
.gwrtstr Red LightGray 12 35
@FR
.if @FR !$ YN goto B3
.. œœœœœœœœœœœœ
.label B4
.gwrtstr @ETYellow @BackGround 14 9
(4) Ē8ŪÔŦīœá””˜ÍJ(Y/N)
.ginkey @FB Black LightGray 14 35
.gwrtstr Red LightGray 14 35
@FB
.if @FB !$ YN goto B4
.. œœœœœœœœœœœœ
.label B5
.gwrtstr @ETYellow @BackGround 8  44
(5) ”æ›”Ŧīœá””˜ÍJ(Y/N)
.ginkey @FS Black LightGray 8  70
.gwrtstr Red LightGray 8  70
@FS
.if @FS !$ YN goto B5
.. œœœœœœœœœœœœ
.label B6
.gwrtstr @ETYellow @BackGround 10 44
(6) ›C“ûĄ2”ĄJ    (Y/N)
.ginkey @DEMO Black LightGray 10 70
.gwrtstr Red LightGray 10 70
@DEMO
.if @DEMO !$ YN goto B6
.. œœœœœœœœœœœœ
.label B7
.gwrtstr @ETYellow @BackGround 12  44
(7) ’û“íĄ2”ĄJ    (Y/N)
.ginkey @ETUTL Black LightGray 12  70
.gwrtstr Red LightGray 12  70
@ETUTL
.if @ETUTL !$ YN goto B7
.. œœœœœœœœœœœœ
.label B82
.gwrtstr @ETYellow @BackGround 14  44
(8) ĪķŠT—ŪԔ”˜ÍJ(Y/N)
.ginkey @TLMING Black LightGray 14  70
.gwrtstr Red LightGray 14  70
@TLMING
.if @TLMING !$ YN goto B82
.. œœœœœœœœœœœœ
.label B8
.gwrtstr White @ETGreen 16 28
§ž–øĒYJ(™n Y/•W N)
.ginkey @YN White @ETGreen 16 50
.if @YN !$ YN goto B8
.if @YN $ N goto B1
.. œœœœœœœœœ
.. œ  Š•™ˆ–MžŌ“v  œ
.. œœœœœœœœœ
.label B81
.define @Temp ""  
.link @Temp @Source :SYSTEM
.Exist @Temp
.if error 33 goto B9
.goto BA
.label B9
.diskspace @Source @TOTAL
.Wait
.beep
.gwrtstr @ForGround @BackGround 21 18
@ETSpace60
.gwrtstr White @ETRed 21 23
§ø“b–MžŌĄ2”Ą“vc—”’Š @Source “đĨ—Ĩ˜Đ1ĢŌ
.wait
.gwrtstr @ForGround @BackGround 21 18
@ETSpace60
.goto B81
.label BA
.. œœœœœœœœœ
.. œ  Š•™ˆĨžĢú—é  œ
.. œœœœœœœœœ
.label XB81
.define @Temp ""  
.link @Temp @Source :ET24VAN.COM 
.Exist @Temp
.if error 33 goto XB9
.goto XBA
.label XB9
.define @NET  "N" 
.goto SPACEHD   
.label XBA
.define @NET  "Y"
.. œœœœœœœœœœœœ
.. œ  Š•™ˆĨ—Ĩ˜Đ1—ú›8ĄŨ  œ
.. œœœœœœœœœœœœ
.label SPACEHD  
.sum @TOTAL @SF16
.label SR16
.if @FM $ N goto S0
.sum @TOTAL @SFM
.label S0
.if @DEMO $ N goto S1
.sum @TOTAL @SDemo
.label S1
.if @ETUTL $ N goto S2
.sum @TOTAL @SUtl
.label S2
.if @FK $ N goto S3
.sum @TOTAL @SFK
.label S3
.if @FL $ N goto S4
.sum @TOTAL @SFL
.label S4
.diskspace @ETPath @Space
.if @Space lt @TOTAL goto DiskErr
.goto P1
.label DiskErr
.gcls GRABLACK
.gwrtstr White @ETRed 20 24
Ĩ—Ĩ˜˜7Ąå”Ü“MĶ‡šm @Total ”ė’öžŲ
.Wait
.goto Exit
.label P1
.. œœœœœœœœœœœœœœœœ
.gwrtstr @ForGround @BackGround 19 10
@ETSpace60
.gwrtstr @ForGround @BackGround 19 23
@ETSpace60
.gwrtstr WHITE @ETRed 19 19
[ENTER]
.gwrtstr @ForGround @BackGround 19 27
­Š­ü’ĩ’ E•1
.gwrtstr White @ETRed 19 42
[ESC]
.gwrtstr @ForGround @BackGround 19 48
ĄN•Õ”™ĢŅĄ2”Ą
.. œœœœœœœœœœœœœœ
.gwrtstr @ForGround @BackGround 21 18
@ETSpace60
.gwrtstr Black LightGray 21 18
ĄÏ”æ–MžŌ“v™X–f        N™X–fŠ“›š:
.link  @Target @ETPath \
.define @Temp ""
.link @Temp @Source :*.*
.copy @Temp to @Target @ETLightGreen @BackGround 21 53
.goto AI0
.. œœœœœœœœœœœœœœœœœœœœœœœœ
.. œ  Copy TLFONT: @_CPU return 80386 or 80286  œ
.. œœœœœœœœœœœœœœœœœœœœœœœœ
.if @_CPU eq "80386" goto CPU386
.label CPU286
.define @Temp ""
.link @Temp @Source :\TLFONT\TLFONT2.EXE
.goto TLCopy
.label CPU386
.define @Temp ""
.link @Temp @Source :\TLFONT\TLFONT3.EXE
.label TLCopy
.define @Target ""
.link  @Target @ETPath \TLFONT.EXE
.copy @Temp to @Target
.. œœœœœœœœœœœ
.. œ  ™X–f•ē•ŊĐŌ’Š—Í  œ
.. œœœœœœœœœœœ
.label AI0
.gwrtstr @ForGround @BackGround 21 18
@ETSpace60
.define @Temp ""
.link @Temp @Source :TL&DEMO
.Exist @Temp
.if error 33 goto AI1
.goto SETAI
.label AI1
.beep
.gwrtstr White @ETRed 21 21
§ø“b’û“í2›C“ûĨ—“vc—”’Š @Source “đĨ—Ĩ˜Đ1
.Wait
.gwrtstr @ForGround @BackGround 21 18
@ETSpace60
.goto AI0
.label SETAI
.gwrtstr Black LightGray 21 18
ĄÏ”æ•ē•ŊĐŌ’Š—ÍĄ2”Ą™X–fN™X–fŠ“›š:
.locate 22 46
.define @Target ""
.link  @Target @ETPath \
.define @Temp ""
.link @Temp @Source :\ETAI\*.*
.copy @Temp to @Target @ETLightGreen @BackGround 21 53
.gwrtstr Black LightGray 21 18
ĄÏ”æĢŨŠhŠâĄ2”Ą™X–f    N™X–fŠ“›š:
.locate 22 46
.define @Target ""
.link  @Target @ETPath \
.define @Temp ""
.link @Temp @Source :\ETUNPACK.EXE
.copy @Temp to @Target @ETLightGreen @BackGround 21 53
.label AI2
.gwrtstr @ForGround @BackGround 21 18
@ETSpace60
.. œœœœœœœœœœ
.. œ  ™X–f›C“ûĄ2”Ą  œ
.. œœœœœœœœœœ
.if @DEMO $ N goto D2
.label D0
.gwrtstr @ForGround @BackGround 21 18
@ETSpace60
.define @Temp ""
.link @Temp @Source :TL&DEMO
.Exist @Temp
.if error 33 goto D1
.goto SDemo
.label D1
.beep
.gwrtstr White @ETRed 21 21
§ø“b’û“í2›C“ûĨ—“vc—”’Š @Source “đĨ—Ĩ˜Đ1
.Wait
.gwrtstr @ForGround @BackGround 21 12
@ETSpace60
.goto D0
.label SDemo
.gwrtstr Black LightGray 21 18
ĄÏ”æ›C“ûĄ2”Ą™X–f      N™X–fŠ“›š:
.locate 22 46
.define @Target ""
.link  @Target @ETPath \ @DemoPath \
.define @Temp ""
.link @Temp @Source :\DEMO\*.*
.copy @Temp to @Target @ETLightGreen @BackGround 21 53
.label D2
.gwrtstr @ForGround @BackGround 21 18
@ETSpace60
.. œœœœœœœœœœ
.. œ  ™X–f’û“íĄ2”Ą  œ
.. œœœœœœœœœœ
.if @ETUTL $ N goto U2
.label U0
.gwrtstr @ForGround @BackGround 21 12
@ETSpace60
.define @Temp ""
.link @Temp @Source :TL&DEMO
.Exist @Temp
.if error 33 goto U1
.goto SETUtl
.label U1
.beep
.gwrtstr White @ETRed 21 21
§ø“b’û“í2›C“ûĨ—“vc—”’Š @Source “đĨ—Ĩ˜Đ1
.Wait
.gwrtstr @ForGround @BackGround 21 12
@ETSpace60
.goto U0
.label SETUtl
.gwrtstr Black LightGray 21 18
ĄÏ”æ’û“íĄ2”Ą™X–f      N™X–fŠ“›š:
.locate 22 46
.define @Target ""
.link  @Target @ETPath \ @UtlPath \
.define @Temp ""
.link @Temp @Source :\UTILITY\*.*
.copy @Temp to @Target @ETLightGreen @BackGround 21 53
.label U2
.chdir @ETPath
.define @Temp ""
.link @Temp @Source :\DEMO\TLDEMO.EXE
.Exist @Temp
.if error 33 goto 16FONTCOPY 
.goto demo2
.. œœœœœœœœœœœ
.. œ  16””˜ÍĄ2”Ą™X–f  œ
.. œœœœœœœœœœœ
.label 16FONTCOPY  
.gwrtstr @ForGround @BackGround 21 12
@ETSpace60
.define @Temp ""
.link @Temp @Source :STDFONT.15
.Exist @Temp
.if error 33 goto E1
.goto SFONT16
.label E1
.beep
.gwrtstr @ForGround @BackGround 20 16
@ETSpace60
.gwrtstr White @ETRed 21 22
§ø“b16 x 15 ””˜Í“vc—”’Š @Source “đĨ—Ĩ˜Đ1
.Wait
.goto 16FONTCOPY 
.label SFONT16
.gwrtstr Black LightGray 21 18
ĄÏ”æ16x15””˜ÍŠ“™X–f   N™X–fŠ“›š:
.locate 22 46
.define @Target ""
.link  @Target @ETPath \
.define @Temp ""
.link @Temp @Source :STDFONT.15
.copy @Temp to @Target @ETLightGreen @BackGround 21 53
.label E2
.gwrtstr @ForGround @BackGround 21 16
@ETSpace60
.. œœœœœœœœœœœ
.. œ  ›C“ûĄ2”ĄžČ’§“v  œ
.. œœœœœœœœœœœ
.label demo2 
.if @DEMO $ N goto XD2
.gwrtstr @ForGround @BackGround 21 18
@ETSpace60
.define @Temp ""
.link @Temp @Source :\DEMO\ETDEMO.EXE
.Exist @Temp
.if error 33 goto XD1
.goto SDemo2
.label XD1
.beep
.gwrtstr White @ETRed 21 21
§ø“bĪķŠT—ŪԔ”˜Í“vc—”’Š @Source “đĨ—Ĩ˜Đ1
.Wait
.gwrtstr @ForGround @BackGround 21 12
@ETSpace60
.goto demo2
.label SDemo2
.gwrtstr Black LightGray 21 18
ĄÏ”æ›C“ûĄ2”Ą™X–f      N™X–fŠ“›š:
.locate 22 46
.define @Target ""
.link  @Target @ETPath \ @DemoPath \
.define @Temp ""
.link @Temp @Source :\DEMO\*.*
.copy @Temp to @Target @ETLightGreen @BackGround 21 53
.label XD2
.gwrtstr @ForGround @BackGround 21 18
@ETSpace60
.. œœœœœœœœœœœœ
.. œ  ĪķŠT—ŪԔ”˜Í™X–f  œ
.. œœœœœœœœœœœœ
.label TLMINGCOPY
.if @TLMING $ N goto 24MINGCOPY 
.if @NET $ Y goto TLNET 
.gwrtstr @ForGround @BackGround 21 16
@ETSpace60
.define @Temp ""
.link @Temp @Source :TLCD24.EXE 
.Exist @Temp
.if error 33 goto TLM1
.goto TLFONT
.label TLM1
.beep
.gwrtstr @ForGround @BackGround 20 16
@ETSpace60
.gwrtstr White @ETRed 21 21
§ø“bĪķŠT—ŪԔ”˜Í“vc—”’Š @Source “đĨ—Ĩ˜Đ1
.Wait
.goto TLMINGCOPY 
.label TLFONT
.gwrtstr Black LightGray 21 18
ĄÏ”æĪķŠT—ŪԔ”˜ÍŠ“™X–fN™X–fŠ“›š:
.locate 22 46
.define @Temp ""
.link @Temp @Source :TLCD24.EXE 
.define @Target ""
.link  @Target @ETPath \TLFONT.EXE
.copy @Temp to @Target @ETLightGreen @BackGround 21 53 
.locate 22 46
.define @Target ""
.link  @Target @ETPath \
.define @Temp ""
.link @Temp @Source :TLC0101.*
.copy @Temp to @Target @ETLightGreen @BackGround 21 53
.label TLM2 
.gwrtstr @ForGround @BackGround 21 16
@ETSpace60
.goto 24MINGCOPY   
.. œœœœœœœœœœœœœœœ
.. œ  ĨžĢú—éĪķŠT—ŪԔ”˜Í™X–f  œ
.. œœœœœœœœœœœœœœœ
.label TLNET
.if @TLMING $ N goto 24MINGCOPY 
.gwrtstr @ForGround @BackGround 21 16
@ETSpace60
.define @Temp ""
.link @Temp @Source :TLCN24.EXE 
.Exist @Temp
.if error 33 goto NETTLM1
.goto NETTLFONT
.label NETTLM1
.beep
.gwrtstr @ForGround @BackGround 20 16
@ETSpace60
.gwrtstr White @ETRed 21 21
§ø“bĪķŠT—ŪԔ”˜Í“vc—”’Š @Source “đĨ—Ĩ˜Đ1
.Wait
.goto TLNET 
.label NETTLFONT
.gwrtstr Black LightGray 21 18
ĄÏ”æĪķŠT—ŪԔ”˜ÍŠ“™X–fN™X–fŠ“›š:
.locate 22 46
.define @Temp ""
.link @Temp @Source :TLCN24.EXE 
.define @Target ""
.link  @Target @ETPath \TLFONT.EXE
.copy @Temp to @Target @ETLightGreen @BackGround 21 53 
.locate 22 46
.define @Target ""
.link  @Target @ETPath \
.define @Temp ""
.link @Temp @Source :TLCN0101.*
.copy @Temp to @Target @ETLightGreen @BackGround 21 53
.label NETTLM2 
.gwrtstr @ForGround @BackGround 21 16
@ETSpace60
.. œœœœœœœœœœœ
.. œ  24—ŪԔ”˜Í™X–f  œ
.. œœœœœœœœœœœ
.label 24MINGCOPY 
.link  @Target @ETPath \
.if @FM $ N goto M2
.define @Temp ""
.link @Temp @Source :STD.24M
.Exist @Temp
.if error 33 goto M1
.goto SFONT24
.label M1
.beep
.gwrtstr @ForGround @BackGround 20 16
@ETSpace60
.gwrtstr @ForGround @BackGround 21 16
@ETSpace60
.locate 22 20
.gwrtstr White @ETRed 21 19
§ø“b24 x 24 ””˜Í“v #1c—”’Š @Source “đĨ—Ĩ˜Đ1
.Wait
.goto 24MINGCOPY 
.label SFONT24
.locate 22 12
.gwrtstr Black LightGray 21 17
ĄÏ”æ””˜ÍĢŨŠhŠâ ----->b— Ūԁc........ §øĄ0™0
.locate 21 10
.define @Target ""
.link  @Target @ETPath \
.define @Temp ""
.link @Temp @Source :STD.24M
.dos ETUNPACK @Temp @Target
.gwrtstr @ForGround @BackGround 20 16
@ETSpace60
.label M2
.gwrtstr @ForGround @BackGround 21 16
@ETSpace60
.. œœœœœœœœœœ
.. œ  ™X–fŦĄ›”””˜Í  œ
.. œœœœœœœœœœ
.if @FL $ N goto FL2
.label FL0
.gwrtstr @ForGround @BackGround 21 18
@ETSpace60
.define @Temp ""
.link @Temp @Source :STD.24L
.Exist @Temp
.if error 33 goto FL1
.goto SLI_Font
.label FL1
.beep
.gwrtstr @ForGround @BackGround 20 16
@ETSpace60
.gwrtstr @ForGround @BackGround 21 12
@ETSpace60
.gwrtstr White @ETRed 21 18
§ø“b24 x 24 ””˜Í“v #1c—”’Š @Source “đĨ—Ĩ˜Đ1
.Wait
.goto FL0
.label SLI_Font
.gwrtstr Black LightGray 21 17
ĄÏ”æ””˜ÍĢŨŠhŠâ ----->bŦĄ ›”c........ §øĄ0™0
.locate 21 10
.define @Target ""
.link  @Target @ETPath \
.define @Temp ""
.link @Temp @Source :STD.24L
.dos ETUNPACK @Temp @Target
.gwrtstr @ForGround @BackGround 20 10
@ETSpace60
.label FL2
.. œœœœœœœœœœ
.. œ  ™X–fĒĮ›”””˜Í  œ
.. œœœœœœœœœœ
.if @FK $ N goto FK2
.label FK0
.gwrtstr @ForGround @BackGround 20 12
@ETSpace60
.gwrtstr @ForGround @BackGround 21 12
@ETSpace60
.define @Temp ""
.link @Temp @Source :STD.24K
.Exist @Temp
.if error 33 goto FK1
.goto SKAI_Font
.label FK1
.beep
.gwrtstr @ForGround @BackGround 20 16
@ETSpace60
.gwrtstr White @ETRed 21 19
 §ø“b24 x 24 ””˜Í“v #2c—”’Š @Source “đĨ—Ĩ˜Đ1
.Wait
.goto FK0
.label SKAI_Font
.gwrtstr Black LightGray 21 17
ĄÏ”æ””˜ÍĢŨŠhŠâ ----->bĒĮ ›”c........ §øĄ0™0
.locate 21 10
.define @Target ""
.link  @Target @ETPath \
.define @Temp ""
.link @Temp @Source :STD.24K
.dos ETUNPACK @Temp @Target
.gwrtstr @ForGround @BackGround 20 16
@ETSpace60
.label FK2
.. œœœœœœœœœœ
.. œ  ™X–f”æ›”””˜Í  œ
.. œœœœœœœœœœ
.if @FS $ N goto FS2
.label FS0
.gwrtstr @ForGround @BackGround 20 12
@ETSpace60
.gwrtstr @ForGround @BackGround 21 12
@ETSpace60
.define @Temp ""
.link @Temp @Source :STD.24S
.Exist @Temp
.if error 33 goto FS1
.goto SHING_Font
.label FS1
.beep
.gwrtstr @ForGround @BackGround 20 16
@ETSpace60
.gwrtstr White @ETRed 21 19
§ø“b24 x 24 ””˜Í“v #2c—”’Š @Source “đĨ—Ĩ˜Đ1
.Wait
.goto FS0
.label SHING_Font
.gwrtstr @ForGround @BackGround 20 12
@ETSpace60
.gwrtstr Black LightGray 21 17
ĄÏ”æ””˜ÍĢŨŠhŠâ ----->b”æ ›”c........ §øĄ0™0
.locate 21 10
.define @Target ""
.link  @Target @ETPath \
.define @Temp ""
.link @Temp @Source :STD.24S
.dos ETUNPACK @Temp @Target
.gwrtstr @ForGround @BackGround 20 10
@ETSpace60
.label FS2
.. œœœœœœœœœœ
.. œ  ™X–fĒmŪԔ”˜Í  œ
.. œœœœœœœœœœ
.if @FR $ N goto FR2
.label FR0
.gwrtstr @ForGround @BackGround 20 12
@ETSpace60
.gwrtstr @ForGround @BackGround 21 12
@ETSpace60
.define @Temp ""
.link @Temp @Source :STD.24R
.Exist @Temp
.if error 33 goto FR1
.goto ROUNG_Font
.label FR1
.beep
.gwrtstr @ForGround @BackGround 20 12
@ETSpace60
.gwrtstr White @ETRed 21 19
§ø“b24 x 24 ””˜Í“v #3c—”’Š @Source “đĨ—Ĩ˜Đ1
.Wait
.goto FR0
.label ROUNG_Font
.gwrtstr @ForGround @BackGround 20 12
@ETSpace60
.gwrtstr Black LightGray 21 17
ĄÏ”æ””˜ÍĢŨŠhŠâ ----->bĒm Ūԁc........ §øĄ0™0
.locate 21 10
.define @Target ""
.link  @Target @ETPath \
.define @Temp ""
.link @Temp @Source :STD.24R
.dos ETUNPACK @Temp @Target
.gwrtstr @ForGround @BackGround 20 10
@ETSpace60
.label FR2
.. œœœœœœœœœœ
.. œ  ™X–fĒ8ŪԔ”˜Í  œ
.. œœœœœœœœœœ
.if @FB $ N goto FB2
.label FB0
.gwrtstr @ForGround @BackGround 20 12
@ETSpace60
.gwrtstr @ForGround @BackGround 21 16
@ETSpace60
.define @Temp ""
.link @Temp @Source :STD.24B
.Exist @Temp
.if error 33 goto FB1
.goto BLACK_Font
.label FB1
.beep
.gwrtstr @ForGround @BackGround 20 12
@ETSpace60
.gwrtstr @ForGround @BackGround 21 16
@ETSpace60
.gwrtstr White @ETRed 21 19
§ø“b24 x 24 ””˜Í“v #3c—”’Š @Source “đĨ—Ĩ˜Đ1
.Wait
.goto FB0
.label BLACK_Font
.gwrtstr @ForGround @BackGround 20 12
@ETSpace60
.gwrtstr Black LightGray 21 17
ĄÏ”æ””˜ÍĢŨŠhŠâ ----->bĒ8 Ūԁc........ §øĄ0™0
.locate 21 10
.define @Target ""
.link  @Target @ETPath \
.define @Temp ""
.link @Temp @Source :STD.24B
.dos ETUNPACK @Temp @Target
.gwrtstr @ForGround @BackGround 20 10
@ETSpace60
.label FB2
.if @NET $ Y goto NETVER
.gquit
.cursor on
.. œœœœœœœœœœœœœœ
.. œ  v”æ’â“bŠūĪđŸY–øĄ2”Ą  œ
.. œœœœœœœœœœœœœœ
.chdir @ETPath
.define @Temp ""
.link @Temp @ETPath \ etsetup
.exec @Temp @ETPath
.. œœœœœœœœœœ
.. œ  ”™ĢŅĄ2”ĄĄN•Õ  œ
.. œœœœœœœœœœ
.label Exit
.gquit
.end
.. œœœœœœœœœœœœœœœœœ
.. œ  ŪΓû’â“b–MžŌ”•”„—úĐâĶ7œļ›e  œ
.. œœœœœœœœœœœœœœœœœ
.label ETExist
.gwrtstr @ForGround @BackGround 0 1
§ø”UĄN•ÕšŽ“H’â“b–MžŌ9
.wait 5
.goto Exit
.label NETVER 
.gcls GRABLUE  
.gwrtstr @ForGround @BackGround 1 1 
ĨžĢú—é’Ö”™ĢŅ•š”Ļ1§ø”Ü”r’Õ•1œQŸY–ø’â“bŠūĪđ!!
.gwrtstr @ForGround @BackGround 3 1 
™P”L’ ŦĄN•Õ... 
.wait 
.goto Exit