Program Metropolis - Software Boutique 95

home *** CD-ROM | disk | FTP | other *** search

/ Program Metropolis - Software Boutique 95 / SOFTWARECD.iso / et353 / install.spt < prev next >

Wrap

Text File | 1993-11-19 | 19.4 KB | 820 lines

.. ü£ü£ü£ü£ü£ü£ü£ü£ .. ü£ ƒ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