Написание простой программы

OPTION BASE 1
CONST K = 10
CONST e = 2.718281828459#
 DIM Kb$
 
 DIM d(K) AS DOUBLE, n(K) AS DOUBLE, V(K) AS DOUBLE
 DIM U(K) AS DOUBLE, T(K) AS DOUBLE, S(K) AS DOUBLE
 
 DIM VibY AS INTEGER
 DIM Vib AS INTEGER
 DIM TekV AS STRING, Tek AS DOUBLE
CLS
WIDTH 80, 50
SCREEN , , 2, 0
VibY = 1
Vib = 1
DO
  Kb$ = INKEY$
 
    IF VibY < K AND Kb$ = CHR$(0) + "P" THEN VibY = VibY + 1: ch = 1
    IF VibY > 1 AND Kb$ = CHR$(0) + "H" THEN VibY = VibY - 1: ch = 1
    IF Vib < 6 AND Kb$ = CHR$(0) + "M" THEN Vib = Vib + 1: ch = 1
    IF Vib > 1 AND Kb$ = CHR$(0) + "K" THEN Vib = Vib - 1: ch = 1
 
  IF ch = 1 THEN
     ch = 0
     SELECT CASE Vib
     CASE 1: Tek = d(VibY)
     CASE 2: Tek = n(VibY)
     CASE 3: Tek = V(VibY)
     CASE 4: Tek = U(VibY)
     CASE 5: Tek = T(VibY)
     CASE 6: Tek = S(VibY)
     END SELECT
     IF Tek = 0 THEN TekV = "" ELSE TekV = STR$(Tek)
  END IF
 
  IF Kb$ <> "" AND LEN(Kb$) = 1 THEN
    IF Kb$ = CHR$(8) THEN   ' backsp
      IF LEN(TekV) > 0 THEN TekV = LEFT$(TekV, LEN(TekV) - 1)
    END IF
    IF (ASC(Kb$) > 47) AND (ASC(Kb$) < 58) THEN   ' digit
      TekV = TekV + Kb$
    END IF
    IF ASC(Kb$) = 46 THEN
      IF INSTR(1, TekV, ".") = 0 AND LEN(TekV) > 0 THEN
        TekV = TekV + "."
      END IF
    END IF
    IF Kb$ = CHR$(13) THEN   ' Enter
     SELECT CASE Vib
     CASE 1: d(VibY) = VAL(TekV)
     CASE 2: n(VibY) = VAL(TekV)
     CASE 3: V(VibY) = VAL(TekV)
     CASE 4: U(VibY) = VAL(TekV)
     CASE 5: T(VibY) = VAL(TekV)
     CASE 6: S(VibY) = VAL(TekV)
     END SELECT
   
     IF Vib = 6 AND VibY < K THEN
       VibY = VibY + 1: Vib = 1: ch = 1
     ELSEIF Vib < 6 THEN
       Vib = Vib + 1: ch = 1
     END IF
     
    END IF
 
  END IF
 
 
  CLS 2
 
  LOCATE 3, 10: PRINT "Tek value: "; TekV; CHR$(95)
 
  LOCATE 5, 1
  PRINT STRING$(80, 196);
  PRINT "     d        n        V        U        T        S          P"
  PRINT STRING$(80, 196);
 
  Pobsh = 1
  FOR iy = 1 TO K
  LOCATE iy + 7, 1
  P = 0
  IF S(iy) <> 0 THEN P = 1 - (e ^ -((U(iy) * T(iy)) / S(iy)))
           'PRINT "     d        n        V        U        T        S"
    
   IF VibY = iy THEN COLOR 7, 1:  ELSE COLOR 7, 0
   PRINT USING "  ####.##  ####.##  ####.##  ####.##  ####.##  ####.##"; d(iy); n(iy); V(iy); U(iy); T(iy); S(iy);
   COLOR 11: LOCATE , 60: PRINT P: COLOR 7
   IF VibY = iy THEN
     LOCATE iy + 7, Vib * 9 - 6
     COLOR 15
     PRINT USING "####.##"; VAL(TekV)
     COLOR 7
   END IF
  Pobsh = Pobsh * (1 - P)
  NEXT
  COLOR 7, 0
  Pobsh = 1 - Pobsh
  PRINT STRING$(80, 196);
  PRINT "Pobsh ="; Pobsh
  PCOPY 2, 0
  PCOPY 3, 1
LOOP UNTIL Kb$ = CHR$(27)