Пользовательское меню в Basic

[student2008]

Здравствуйте!))))) У меня вопрос по коду программы:
Как организовать выбор пунктов меню в программе без применения GOTO?
Вот программа:

CAT$ = "D:\"
CLS
0 :
PRINT "1-otobrazenie cataloga"
PRINT "2-izmenenie rabochego cataloga "
PRINT "3-otobrazenie rabochego cataloga"
PRINT "4-sozdanie cataloga"
PRINT "5-peremechenie faila"
PRINT "6-Exit"
INPUT "Vuberite punct", V
SELECT CASE V
CASE 1
GOTO 1
CASE 2
GOTO 2
CASE 3
GOTO 3
CASE 4
GOTO 4
CASE 5
GOTO 5
CASE 6
GOTO 6
END SELECT
IF V > 6 THEN GOTO 0
1 :
FILES
GOTO 0
2 :
INPUT "Ukazhite noviy catalog", CAT$
CHDIR CAT$
CLS
GOTO 0
3 :
FILES CAT$
GOTO 0
4 :
INPUT "Ukazhite sozdavaemiy catalog", COS$
MKDIR COS$
CLS
GOTO 0
5 :
I = 1
INPUT "Otcuda copirovat?", F1$
INPUT "Cuda copirovat?", F2$
NAME F1$ AS F2$
GOTO 0
6 :
CLOSE 0

[Skif-F]

на основе Вашей программы:

CAT$ = "D:\"
CLS
do
    PRINT "1-otobrazenie cataloga"
    PRINT "2-izmenenie rabochego cataloga "
    PRINT "3-otobrazenie rabochego cataloga"
    PRINT "4-sozdanie cataloga"
    PRINT "5-peremechenie faila"
    PRINT "6-Exit"
    INPUT "Vuberite punct", V
    SELECT CASE V
     CASE 1
        FILES
     CASE 2
        INPUT "Ukazhite noviy catalog", CAT$
        CHDIR CAT$
        CLS
     CASE 3
        FILES CAT$
     CASE 4
        INPUT "Ukazhite sozdavaemiy catalog", COS$
        MKDIR COS$
        CLS
     CASE 5
        I = 1
        INPUT "Otcuda copirovat?", F1$
        INPUT "Cuda copirovat?", F2$
	NAME F1$ AS F2$
     CASE 6
	CLOSE 0
    END SELECT
loop while V<>6

[student2008]

Спасибо!:-)