set procedure to improve.prg

set procedure to main.prg

set procedure to re.prg

set cursor off

set intensity on

set date to british

set confirm on

do pass

do scr

cls

ARMAIN = 5

TEMPAR = 0

ARCM =ARRAY(ARMAIN)

ARCM[1]= [1.§Ò¹ËÅÑ¡]

ARCM[2]= [2.»ÃѺ»Ãا]

ARCM[3]= [3.ÃÒ§ҹ]

ARCM[4]= [4.Í×è¹æ]

ARCM[5]= [5.¨º¡Ò÷ӧҹ]

ARS1 = 8

ARC1 = ARRAY(ARS1)

ARC1[1]=[¢ÒÂ]

arc1[2]=[ÊÑ觫×éÍ]

arc1[3]=[¡àÅÔ¡¢ÒÂ]

arc1[4]=[¡àÅÔ¡«×éÍ]

arc1[5]=[µÃǨÃѺÊÔ¹¤éÒ]

arc1[6]=[à¾ÔèÁÊÔ¹¤éÒãËÁè]

arc1[7]=[à¾ÔèÁÊÁÒªÔ¡ãËÁè]

ARC1[8]=[¡ÅѺÊÙèàÁ¹ÙËÅÑ¡]

ARS2 = 5

ARC2 = ARRAY(ARS2)

ARC2[1] = [à¾ÔèÁ¢éÍÁÙÅ]

ARC2[2] = [ź¢éÍÁÙÅ]

ARC2[3] = [á¡é䢢éÍÁÙÅ]

ARC2[4] = [áÊ´§¢éÍÁÙÅ]

arc2[5] = [¡ÅѺÊÙèàÁ¹ÙËÅÑ¡]

ARS3 = 7

ARC3 = ARRAY(ARS3)

ARC3[1] = [ÃÒ§ҹ«×éÍ]

arc3[2] = [ÃÒ§ҹ¢ÒÂ]

ARC3[3] = [ÃÒ§ҹ¤ÅѧÊÔ¹¤éÒ]

ARC3[4] = [ÃÒ§ҹÊÁÒªÔ¡]

ARC3[5] = [ÃÒ§ҹÊÔ¹¤éÒ]

ARC3[6] = [ÃÒ§ҹÃѺÊÔ¹¤éÒ]

ARC3[7] = [¡ÅѺÊÙèàÁ¹ÙËÅÑ¡]

ARS4 = 6

ARC4 = ARRAY(ARS4)

ARC4[1] = [à¡ÕèÂǡѺÃкº]

ARC4[2] = [»ÃÐÇѵÔâ»Ãá¡ÃÁàÁÍÃì]

ARC4[3] = [à»ÅÕè¹PASSWORD]

ARC4[4] = [EXIT TO DOS]

ARC4[5] = [BACKUP FILE]

ARC4[6] = [¡ÅѺÊÙèàÁ¹ÙËÅÑ¡]

OPT = 1

TOPLMT = OPT

BOTTOMLMT = ARMAIN

ALLSUB = 4

DO WRITEMENU

DO WHILE LASTKEY() != 27

@ 1,5 SAY TIME()

inkey(0.2)

IF LASTKEY() != 0

DO CASE

CASE LASTKEY() = 27

EXIT

CASE LASTKEY() = 4

IF OPT < 10

DO PRESSDOWN

ELSE

IF (OPT-MOD(OPT,10))/10 = ALLSUB

OPT =11

ELSE

OPT = (OPT-MOD(OPT,10))+11

ENDIF

ENDIF

CASE LASTKEY() = 19

IF OPT < 10

DO PRESSUP

ELSE

IF (OPT-MOD(OPT,10))/10 = 1

OPT = ALLSUB*10 + 1

ELSE

OPT = (OPT-MOD(OPT,10))-9

ENDIF

ENDIF

CASE LASTKEY() = 24

DO PRESSDOWN

CASE LASTKEY() = 5

DO PRESSUP

CASE LASTKEY() = 13

DO CASE

CASE OPT = 1

OPT =11

CASE OPT = 2

OPT = 21

CASE OPT = 3

OPT = 31

CASE OPT = 4

OPT = 41

CASE OPT = 5

tone(200,1)

tone(233,1)

tone(200,2)

tone(233,2)

set color to /b

cls

set color to w/r

@ 10,11 clear to 13,69

@ 10,10 to 13,70 double

@ 11,30 SAY "GOOD BYE....GOOD LUCK"

@ 12,35 SAY "THANKS YOU"

inkey(10)

EXIT

CASE OPT = 10+ARS1 .OR. OPT = 20+ARS2 .OR. OPT = 30+ARS3 .OR. OPT = 40+ARS4

OPT = 1

case opt = 11

do sub11

case opt = 12

do sub12

case opt = 13

do sub13

case opt = 14

do sub14

case opt = 15

do sub15

case opt = 16

do sub16

case opt = 17

do sub17

CASE OPT= 21

DO SUB21

CASE OPT = 22

DO SUB22

CASE OPT = 23

DO SUB23

CASE opt = 24

do sub24

CASE OPT = 31

DO SUB31

CASE OPT = 32

DO SUB32

CASE OPT = 33

DO SUB33

CASE OPT = 34

DO SUB34

case opt = 35

do sub35

case opt = 36

do sub36

CASE OPT = 41

DO SUB41

CASE opt = 42

do sub42

CASE OPT = 43

DO SUB43

CASE OPT = 44

set cursor on

cls

run command

case opt = 45

do backup

ENDCASE

ENDCASE

DO CASE

CASE OPT < 10

TOPLMT = 1 ; BOTTOMLMT = ARMAIN

CASE OPT >= 11 .AND. OPT <= 10+ARS1

TOPLMT = 11 ; BOTTOMLMT = 10+ARS1

CASE OPT >=21

TOPLMT = 21 ; BOTTOMLMT = 20 + ARS2

CASE OPT >= 31

TOPLMT = 31 ; BOTTOMLMT = 30 + ARS3

CASE OPT >= 41

TOPLMT = 41 ; BOTTOMLMT = 40 + ARS4

CASE OPT >= 51

TOPLMT = 51;BOTTOMLMT =51

ENDCASE

DO WRITEMENU

KEYBOARD CHR(0)

inkey()

ENDIF

ENDDO

//====================================================

PROCEDURE PRESSDOWN

IF OPT = BOTTOMLMT

OPT = TOPLMT

ELSE

OPT = OPT + 1

ENDIF

RETURN

PROCEDURE PRESSUP

IF OPT = TOPLMT

OPT = BOTTOMLMT

ELSE

OPT =OPT - 1

ENDIF

RETURN

//=====================================================

PROCEDURE WRITEMENU

SET COLOR TO w/b

CLS

set date to british

@ 1,63 say date()

set color to /n

@ 3,7 clear to 20,72

set color to n/r

@ 2,5 clear to 19,70

@ 17,21 SAY "T & J MUSIC CO.LTD SALE SYSTEM"

@ 18,15 SAY "PROGRAM BY MISS CHONTHIRA INTHARATHEP"

FOR J = 1 TO ARMAIN

@ 2,J*10 SAY ARCM[J]

NEXT

I = 4

DO CASE

CASE OPT >= 11 .AND. OPT <=ARS1 + 10

FOR J = I TO I+ARS1 - 1

@ J,15 SAY ARC1[J-I+1]

NEXT

TEMPAR = ARC1

CASE OPT >= 21 .AND. OPT <= ARS2+ 20

FOR J = I TO I+ARS2-1

@ J,25 SAY ARC2[J-I+1]

NEXT

TEMPAR = ARC2

CASE OPT >= 31 .AND. OPT <= ARS3 + 30

FOR J = I TO I +ARS3 -1

@ J,35 SAY ARC3[J-I+1]

NEXT

TEMPAR = ARC3

CASE OPT >= 41 .AND. OPT <= ARS4 + 40

FOR J = I TO I + ARS4 -1

@ J,45 SAY ARC4[J-I+1]

NEXT

TEMPAR = ARC4

ENDCASE

SET COLOR TO B/W

IF OPT > 10

@ I + MOD(OPT,10)-1,OPT-MOD(OPT,10)+5 SAY TEMPAR[MOD(OPT,10)]

SET COLOR TO W/n

@ 2,(OPT-MOD(OPT,10)) SAY ARCM[(OPT-MOD(OPT,10))/10]

ELSE

@ 2,MOD(OPT,10)*10 SAY ARCM[MOD(OPT,10)]

ENDIF

SET COLOR TO B/W

RETURN

//=========================fucntion alertnew()====================

function alertnew

parameter heading,choicear

cntar = 0

aeval(choicear,{|ele|cntar:=cntar+1})

oldcolor = setcolor()

save screen to scre

cls

set color to w/br

@ 10,20,12+cntar,60 box "***|***|"

@ 11,21 say padc(heading,38)

for i = 1 to cntar

@ 11+i,30 prompt padr(ltrim(str(i))+" "+choicear[i],30)

next

menu to valnew

setcolor(oldcolor)

restore screen from scre

return (valnew)

//======================password=================================

procedure pass

cls

set cursor on

cls

_USERNAME=" "

_PASS= " "

set color to /b

cls

set color to w/r

@ 8,21 clear to 12,59

@ 8,20 to 12,60 double

@ 9,25 say"USER NAME" get _USERNAME

@ 11,25 SAY"YOUR PASSWORD"get _pass color 'w/w'

read

use pass

locate for _pass = pass

if found()

if _username = username

do scr

else

cls

set color to /b

cls

set color to n/r

@ 8,10 clear to 12,70

@ 10,20 say "YOUR USERNAME IS NOT CORRECT PLEASE TRY AGAIN...."

inkey(0)

do pass

endif

else

cls

set color to /b

cls

set color to n/r

@ 8,10 clear to 12,70

@ 10,20 say "YOUR PASSWORD IS NOT CORRECT PLEASE TRY AGAIN...."

inkey(2)

do pass

endif

CLOSE ALL

return

//============================screen===============================

procedure scr

set cursor off

SET COLOR TO /b+

CLS

I=0

WHILE LASTKEY() != 13

SET COLOR TO r/b

@ 1,0 TO 20,77 DOUBLE

@ 6,I SAY "*******************************************************"

SET COLOR TO w/b

@ 7,I SAY " ÂÔ¹´Õµé͹ÃѺÊÙèÃкº¡ÒâÒ ºÃÔÉÑ· T & J MUSIC ¨Ó¡Ñ´ "

SET COLOR TO r/b

@ 8,I SAY "*******************************************************"

SET COLOR TO w/b

@ 12,I SAY " â´Â ¹Ò§ÊÒÇ ªÅ¸ÔÃÒ ÍÔ¹·Ãà·¾ 3801026 "

SET COLOR TO w/b

@ 15,I SAY " ÇÔ · Â Ò ÅÑ Â â Â ¹ ¡ "

SET COLOR TO r/w

@ 23,25 SAY "¡´ ENTER à¾×èÍà¢éÒÊÙèÃкº ...."

INKEY(0.1)

SET COLOR TO w/b

CLS

I++

IF I=78

I=0

ENDIF

END

KEYBOARD CHR(0)

INKEY()

return

//=====================à¡ÕèÂǡѺÃкº======================================

procedure sub41

set cursor on

set color to /b+

cls

set color to w/b+

@ 3,30 clear to 3,46

@ 3,30 say "à¡ÕèÂǡѺÃкº"

set color to w/b+

@ 4,30 clear to 4,39

@ 4,30 say "=========="

set color to w/r

@ 5,10 clear to 23,70

@ 5,11 to 23,69 double

@ 6,30 say "Ãкº«×éÍ-¢Ò ෻áÅЫմÕ"

@ 7,30 say "ºÃÔÉÑ· T & J MUSIC ¨Ó¡Ñ´"

@ 9,17 say "complier : "+version()

@ 10,17 say "editor : Q editor"

@ 11,17 say "Ãкº»®ÔºÑµÔ¡Òà : "+os()

@ 12,17 say "§Ò¹ËÅÑ¡ : «×éÍ ¢Ò ¡àÅÔ¡«×éÍ "

@ 13,17 say " ¡àÅÔ¡¢Ò µÃǨÃѺÊÔ¹¤éÒ"

@ 14,17 say " ¡ÒÃÊÐÊÁ¤Ðá¹¹ãËéÊÁÒªÔ¡"

@ 15,17 say " µÃǨÃѺÊÔ¹¤éÒ"

@ 20,30 say "¡´»ØèÁã´ æ à¾×èÍ¡ÅѺÊÙèàÁ¹ÙËÅÑ¡"

inkey(0)

return

//=====================»ÃÐÇѵÔâ»Ãá¡ÃÁàÁÍÃì================================

procedure sub42

set color to /b+

cls

set color to w/b+

@ 3,30 clear to 3,46

@ 3,30 say "»ÃÐÇѵÔâ»Ãá¡ÃÁàÁÍÃì"

set color to w/b+

@ 4,30 clear to 4,46

@ 4,30 say "================"

set color to w/r

@ 5,10 clear to 23,70

@ 5,11 to 23,69 double

@ 6,17 say "ª×èÍ-Ê¡ØÅ : ¹Ò§ÊÒǪŸÔÃÒ ÍÔ¹·Ãà·¾"

@ 7,17 say "ª×èÍàÅè¹ : ·êÍ»"

@ 8,17 say "Çѹà¡Ô´ : 8 ÁԶعÒ¹ 2521"

@ 9,17 say "ºÔ´Ò : ¹ÒÂÊѹ·Ñ´ ÍÔ¹·Ãà·¾"

@ 10,17 say "ÁÒÃ´Ò : ¹Ò§»Ô¾à ÍÔ¹·Ãà·¾"

@ 11,17 say "ÀÙÁÔÅÓà¹Ò : àªÕ§ãËÁè"

@ 12,17 say "»ÃÐÇѵԡÒÃÈÖ¡ÉÒ : ÃдѺÁѸÂÁÈÖ¡Éҵ͹µé¹ ÊÒÂÇÔ·Âì-¤³Ôµ"

@ 13,17 say " âçàÃÕ¹ÇѲ⹷ѾÒÂѾ ¨.àªÕ§ãËÁè"

@ 14,17 say " ÃдѺÁѸÂÁÈÖ¡Éҵ͹»ÅÒ ÊÒÂÇÔ·Âì-¤³Ôµ"

@ 15,17 say " âçàÃÕ¹ÇѲ⹷ѾÒÂѾ"

@ 17,17 say "»Ñ¨¨ØºÑ¹ : à»ç¹¹Ñ¡ÈÖ¡ÉÒªÑé¹»Õ·Õè 4 ¤³ÐºÃÔËÒøØáԨ"

@ 18,17 say " ÊÒ¢Ò¤ÍÁ¾ÔÇàµÍÃì¸ØáԨ ÇÔ·ÂÒÅÑÂ⹡"

@ 20,17 say "¤ÇÒÁã½è½Ñ¹ : à»ç¹ÍÀÔªÒµºØµÃ"

@ 22,25 say "¡´»ØèÁã´ æ à¾×èÍ¡ÅѺà¢éÒÊÙèàÁ¹ÙËÅÑ¡"

inkey(10)

return

//==========================à»ÅÕè¹ password==========================

procedure sub43

set cursor on

set confirm on

_user = " "

_pass = " "

_pa = " "

set color to /b+

cls

set color to w/r

@ 10,11 clear to 18,69

@ 10,10 to 18,70 double

@ 12,15 say "ÃÐºØ USER NAME : " get _user

read

use pass

locate for username = _user

if found()

@ 14,15 say "ÃÐºØ PASSWORD à´ÔÁ " get _pass color 'w/w'

read

locate for pass = _pass

if found()

@ 16,15 say "ÃÐºØ PASSWORD ãËÁè : " get _pa color 'w/w'

read

replace pass with _pa

close

else

@ 16,12 say "PASSWORD äÁè¶Ù¡µéͧ äÁèÊÒÁÒö·Ó¡ÒÃà»ÅÕè¹á»Å§¢éÍÁÙÅãËéä´é"

endif

else

@ 14,30 say "äÁ辺 USERNAME ¹Õé"

inkey(2)

do sub43

endif

@ 22,25 say "¡´»ØèÁã´ æ à¾×èÍ¡ÅѺà¢éÒÊÙèàÁ¹ÙËÅÑ¡"

inkey(10)

return

*----------------------------*

FUNCTION Tmn_Get()

CLEAR GETS

RETURN( NIL )

*----------------------------*

FUNCTION Hlp_Data( xHlp_1Field ,xHlp_2Field ,xHlp_1Pos ,xHlp_2Pos ,;

xHlp_1X ,xHlp_1Y ,xHlp_2X ,xHlp_2Y ,xHlp_Alias )

* ¤Ó͸ԺÒ PARAMETER

* -----------------

* xHlp_1Field ª×èÍ Field áá·Õèµéͧ¡ÒÃãËéáÊ´§

* xHlp_2Field ª×èÍ Field ·Õè 2 ·Õèµéͧ¡ÒÃãËéáÊ´§

* xHlp_1Pos µÓá˹觤ÍÅÑÁ¹ì Field áá·Õèµéͧ¡ÒÃãËéáÊ´§

* xHlp_2Pos µÓá˹觤ÍÅÑÁ¹ì Field ·Õè 2 ·Õèµéͧ¡ÒÃãËéáÊ´§

* xHlp_1X µÓá˹觤ÍÅÑÁ¹ì¨Í Help ´éÒ¹º¹«éÒÂ

* xHlp_1Y µÓá˹è§á¶Ç¨Í Help ´éÒ¹º¹«éÒÂ

* xHlp_2X µÓá˹觤ÍÅÑÁ¹ì¨Í Help ´éÒ¹º¹¢ÇÒ

* xHlp_2Y µÓá˹è§á¶Ç¨Í Help ´éÒ¹º¹¢ÇÒ

* xHlp_Alias ª×èÍá¿éÁ¢éÍÁÙÅ·Õèµéͧ¡ÒÃ·Ó Help

SAVE SCREEN TO Scr_Hlp

SET COLOR TO w/r,r/w

@ xHlp_1Y,xHlp_1X CLEAR TO xHlp_2Y,xHlp_2X

@ xHlp_1Y,xHlp_1X TO xHlp_2Y,xHlp_2X

xHlp_Max = (( xHlp_2Y - xHlp_1Y ) - 1 ) && ¤Ó¹Ç¹ºÃ÷ѴÊÙ§ÊØ´·ÕèáÊ´§¼Åä´é

xHlp_Start = xHlp_1Y + 1 && ¤Ó¹Ç¹µÓá˹è§áÊ´§¢éͤÇÒÁºÃ÷Ѵáá

SELECT &xHlp_Alias

GOTO TOP

IF BOF() .AND. EOF() && àªç¤´ÙÇèÒ File à»ç¹á¿éÁà»ÅèÒËÃ×ÍäÁè ¶éÒà»ç¹äÁèÊÒÁÒö Help ä´é

RETURN( NIL )

ENDIF

SELECT &xHlp_Alias

GOTO TOP

xHlp_II = 1

xHlp_JJ = xHlp_Start

DO WHILE !EOF() && ·Ó¡ÒÃáÊ´§¼Åº¹¨ÍÀÒ¾¤ÃÑé§áá

SET COLOR TO w/r,r/w

Dsp_Hlp( xHlp_1Pos ,xHlp_2Pos ,xHlp_JJ ,xHlp_1Field ,xHlp_2Field )

SKIP 1

xHlp_II = xHlp_II + 1

xHlp_JJ = xHlp_JJ + 1

IF xHlp_II > xHlp_Max

EXIT

ENDIF

ENDDO

xHlp_II = 1 && ¡Ó˹´¤èÒàÃÔèÁµé¹¹ÑººÃ÷Ѵà·èҡѺ 1

xHlp_JJ = xHlp_Start && ¡Ó˹´¤èÒºÃ÷Ѵ·Õè¨ÐáÊ´§ºÃ÷Ѵáá

SELECT &xHlp_Alias

GOTO TOP

DO WHILE .T.

SET COLOR TO r/w,w/r

Dsp_Hlp( xHlp_1Pos ,xHlp_2Pos ,xHlp_JJ ,xHlp_1Field ,xHlp_2Field )

xHlp_Key = INKEY(0)

SET COLOR TO w/r,r/w

Dsp_Hlp( xHlp_1Pos ,xHlp_2Pos ,xHlp_JJ ,xHlp_1Field ,xHlp_2Field )

DO CASE

CASE xHlp_Key = 27 && ¤ÕÂì Esc

SELECT &xHlp_Alias

GOTO BOTTOM && ¶éÒ¡àÅÔ¡¡ÒÃãªé Help ãËéä»·Õè EOF() File

SKIP 1

EXIT

CASE xHlp_Key = 5 && ¤ÕÂì Up Arrow

SELECT &xHlp_Alias

SKIP -1

IF BOF() && ¶éÒà»ç¹µé¹ File äÁèãËé¢ÂѺµèÍ

GOTO TOP

ELSE

* 㹡óÕäÁèãªèµé¹ File

xHlp_II = xHlp_II - 1 && ·Ó¡ÒÃź¤èÒºÃ÷Ѵ·Õè¹Ñº¶ÍÂËÅѧ 1

xHlp_JJ = xHlp_JJ - 1 && ·Ó¡ÒÃź¤èÒá¶Ç¶ÍÂËÅѧ 1

IF xHlp_II < 1 && ¶éÒ¤èÒºÃ÷Ѵ¹éÍ¡ÇèÒ 1

xHlp_II = 1 && ãËé¤èÒºÃ÷Ѵà·èҡѺ 1

xHlp_JJ = xHlp_Start && ãËé¤èÒá¶Çà·èҡѺá¶ÇàÃÔèÁáá

SCROLL(( xHlp_1Y + 1 ) ,( xHlp_1X + 1 ) ,( xHlp_2Y - 1 ) ,( xHlp_2X - 1 ) ,-1 )

* ·Ó¡Òà SCROLL ¶ÍÂËÅѧŧ 1 ºÃ÷Ѵ

ENDIF

ENDIF

LOOP

CASE xHlp_Key = 24 && ¤ÕÂì Down Arrow

SELECT &xHlp_Alias

SKIP 1

IF EOF() && ¶éÒà»ç¹·éÒ File äÁèãËé¢ÂѺµèÒ

GOTO BOTTOM

ELSE

xHlp_II = xHlp_II + 1 && ·Ó¡ÒúǡºÃ÷Ѵ¢Öé¹ 1

IF xHlp_II > xHlp_Max && ¶éҨӹǹºÃ÷ѴÁÒ¡¡ÇèҨӹǹºÃ÷ѴÊÙ§ÊØ´

xHlp_II = xHlp_Max && ãËé¨Ó¹Ç¹ºÃ÷Ѵà·èҡѺ¨Ó¹Ç¹ºÃ÷ѴÊÙ§ÊØ´

SCROLL(( xHlp_1Y + 1 ) ,( xHlp_1X + 1 ) ,( xHlp_2Y - 1 ) ,( xHlp_2X - 1 ) ,1 )

* ·Ó¡Òà SCROLL à´Ô¹Ë¹éÒ 1 ºÃ÷Ѵ

ELSE && ¶éҨӹǹºÃ÷ѴäÁèÁÒ¡¡ÇèҨӹǹºÃ÷ѴÊÙ§ÊØ´

xHlp_JJ = xHlp_JJ + 1 && ãËéºÇ¡á¶Ç¢Öé¹ 1

ENDIF

ENDIF

LOOP

CASE xHlp_Key = 13 && ¤ÕÂì Return

EXIT && ¡´¤ÕÂì Enter àÅ×Í¡¤èÒ·Õèµéͧ¡ÒÃáÅéÇÍÍ¡ä»

ENDCASE

ENDDO

RESTORE SCREEN FROM Scr_Hlp

RETURN( NIL )

*----------------------------*

FUNCTION Dsp_Hlp( zHlp_1Pos ,zHlp_2Pos ,zHlp_1Y ,zHlp_1Field ,zHlp_2Field )

@ zHlp_1Y,zHlp_1Pos SAY &zHlp_1Field

@ zHlp_1Y,zHlp_2Pos SAY &zHlp_2Field

RETURN( NIL )

*----------------------------*

FUNCTION hmem()

// SET KEY 27 TO Tmn_Get()

// SET KEY 28 TO Tmn_Get()

Hlp_Data( [memid] ,[memname] ,22 ,32 ,17 ,11 ,66 ,17 ,[member] )

select member

IF !EOF()

_memid = memid

_memname = memname

ENDIF

// SELECT member

SET KEY 27 TO

SET KEY 28 TO

RETURN ( NIL )

*----------------------------*

*----------------------------*

FUNCTION hpro()

// SET KEY 27 TO Tmn_Get()

// SET KEY 28 TO Tmn_Get()

Hlp_Data( [proid] ,[album] ,22 ,32 ,17 ,11 ,66 ,17 ,[product] )

select product

IF !EOF()

_proid = proid

_album = album

ENDIF

// SELECT product

SET KEY 27 TO

SET KEY 28 TO

RETURN ( NIL )

*----------------------------*

//=========================back up=====================

procedure backup

SET COLOR TO ("w/B")

cls

DO WHILE .T.

SETCOLOR ("w/r")

@ 8,6 TO 15,65 DOUBLE

@ 10,10 SAY 'µéͧ¡Òà Backup ¢éÍÁÙÅ·Ñé§ËÁ´Å§ Dirve a:\ ***'

AA = 2

@ 12,30 PROMPT 'YES'

@ 12,40 PROMPT 'NO'

MENU TO AA

DO CASE

CASE AA = 1

! ECHO OFF |COPY *.* A:

CASE AA = 2

INKEY(0.5)

EXIT

END CASE

CLS

ENDDO

return