Qbasic, шифрование

[Лицеистка]

Помогите! Снова ПРОБЛЕМА!!!
Теперь новая задачка: составить программу шифровки-дешифровки.
В ней должно быть:
меню (три пункта шифр/дешифр/выход)
ОДИН массив
case, while
выход из программы происходит только после нажатия "выход" в меню
А программа дешифрования (также как и шифрования) должна быть на основе
cls
kl$="йцукенгшщзхъфывапро...(символы даллее, буквы и знаки препинания)..."
DIM a$(LEN(kl$)+100)
FOR i=1 to len (kl$)
a$ (i+99)=MID(kl$, i, 1)
PRINT a$(i+99); i+99; "";
NEXT
PRINT
INPUT n$
For j=1 to len (n$)
k$=MID$(n$, j, 1)
For i=100 to (LEN(kl$)+100)
IF a$(i)=k$ then f$=f$+MID$(STR$(i),2,3)
NEXT
NEXT
PRINT f$

[Лицеистка]

ПОМОГИТЕ!!! Очень очень нужно!