Шифр монофонической замены - QBasic

Формулировка задачи:

Этот шифр более криптостойкий по сравнению с обычным шифром замены. В данном случае 6 символов самой большой частоты в тексте имеют не одно обозначение, а 10. это - "пробел", буквы "А, Е, И, О, Н" Программа предлагает ввести текст на русском языке (без знаков препинания) и выводит на экран зашифрованный текст. Всего используется 86 чисел. Попробуйте определить где в тексте буква А, если у нее 10 обозначений, которые рандомно предлагает программа...

CLS
 
DATA "20","64","63","23","61","36","32","45","17","26"
DATA "72","81","12","86","16","80","97","54","99","47"
DATA "49","87","57","29","53","84","43","78","13","50"
DATA "77","71","27","67","46","28","35","88","68","73"
DATA "15","82","42","22","92","10","93","30","56","94"
DATA "41","60","40","66","76","51","55","62","95","39"
DATA "34","83","37","25","59","33","79","24","65","98"
DATA "74","21","11","91","85","96","18","44","69","70"
DATA "48","58","31","75","19","89","38","90","52","14","34","33"
 
DIM A(1 TO 92) AS STRING
DIM text AS STRING
DIM s AS STRING
DIM x AS STRING
DIM i AS INTEGER
DIM p AS INTEGER
INPUT "TEXT = "; text
text = UCASE$(text)
 
FOR i = 1 TO 92
   READ A(i)
NEXT
 
FOR i = 1 TO LEN(text)
   s = MID$(text, i, 1)
   ks = ASC(s)
   SELECT CASE ks
      CASE 32
         p = 10 * RND + .5
         x = x + A(p)
      CASE 128
         p = 10 * RND + 10.5
         x = x + A(p)
      CASE 133
         p = 10 * RND + 20.5
         x = x + A(p)
      CASE 136
         p = 10 * RND + 30.5
         x = x + A(p)
      CASE 141
         p = 10 * RND + 40.5
         x = x + A(p)
      CASE 142
         p = 10 * RND + 50.5
         x = x + A(p)
      CASE ELSE
         p = ks - 67
         x = x + A(p)
   END SELECT
NEXT
 
PRINT x
END

Решение задачи: «Шифр монофонической замены»

textual
                            Листинг программы 
                        

                            DIM x AS INTEGER, y AS INTEGER
x = .5
y = 1.5
PRINT x, y
                        