Текстовый редактор на QBASIC

   CONST Strok = 50, Dlina = 80
   DIM Mem(Strok) AS STRING * Dlina
   DIM St(9) AS STRING * 1
 
  ' Стиль окна
 St(1) = "┌": St(2) = "─": St(3) = "┐"
 St(4) = "│": St(5) = " ": St(6) = "│"
 St(7) = "└": St(8) = "─": St(9) = "┘"
  ' Проверка работы
 Mem(1) = " ■  Это гавеный текстовый редактор Ver 0.01  ■"
 Mem(2) = " Сдохнете, пока будете его дописывать"
 Mem(3) = "[ ▒▒ эта строка длиной 80 символов символизирует о правильности отображения ▒▒ ]"
 Mem(5) = "Окошко настроите сами"
  ' Чистим экран
 CLS
  ' Клавиши
 Rg$ = CHR$(0) + CHR$(77)
 Lf$ = CHR$(0) + CHR$(75)
 Up$ = CHR$(0) + CHR$(72)
 Dn$ = CHR$(0) + CHR$(80)
  ' Позиция курсора в тексте
 xp% = 0
 yp% = 0
  ' Отображение окна
 wPx% = 10    ' Позиция x
 wPy% = 10    ' Позиция y
 wDx% = 60    ' Длина x
 wDy% = 5     ' Длина y
 PInWx% = 0   ' Позиция в окне x
 PInWy% = 0   ' Позиция в окне y
 BgColor% = 1 ' Цвет фона
 
  ' Отрисовка
 ReDraw% = 1    ' Триггер для отрисовки
  ' Подготовка стиля(окно не двигается, делаем заранее)
 COLOR 10, 1: LOCATE wPy%, wPx%: PRINT St(1) + STRING$(wDx%, St(2)) + St(3)
  FOR iy% = 1 TO wDy%: LOCATE wPy% + iy%, wPx%: PRINT St(4)
  LOCATE wPy% + iy%, wPx% + wDx% + 1: PRINT St(6): NEXT
 LOCATE wPy% + wDy% + 1, wPx%: PRINT St(7) + STRING$(wDx%, St(8)) + St(9)
 
    ' Основной цикл
DO
  Kb$ = INKEY$
     '  Проверяем клавиатуру и перемещаем курсор
    IF Kb$ = Lf$ AND xp% > 0 THEN ReDraw% = 1: xp% = xp% - 1
    IF Kb$ = Rg$ AND xp% < 79 THEN ReDraw% = 1: xp% = xp% + 1
    IF Kb$ = Up$ AND yp% > 0 THEN ReDraw% = 1: yp% = yp% - 1
    IF Kb$ = Dn$ AND yp% < 22 THEN ReDraw% = 1: yp% = yp% + 1
       '  Вычленение скан-кода
    IF LEN(Kb$) = 1 THEN KeyKod% = ASC(Kb$) ELSE KeyKod% = -1
       '  Все печатаемые символы из кодировки
       IF KeyKod% > 31 THEN
          'тут процедура добавления символа
       END IF
 
       ' Отрисовка окна
   IF ReDraw% = 1 THEN
      ReDraw% = 0
        ' Проверяем границы курсора и окна
      IF xp% >= (PInWx% + wDx%) THEN PInWx% = PInWx% + 1
      IF xp% < PInWx% THEN PInWx% = xp%
      IF yp% >= (PInWy% + wDy%) THEN PInWy% = PInWy% + 1
      IF yp% < PInWy% THEN PInWy% = yp%
 
        ' Печатаем текст из памяти
      FOR iy% = 1 TO wDy%
        COLOR 15, 1
        LOCATE wPy% + iy%, wPx% + 1, 0
        PRINT MID$(Mem(iy% + PInWy%), PInWx% + 1, wDx%)
      NEXT
 
      LOCATE yp% - PInWy% + wPy% + 1, xp% - PInWx% + wPx% + 1, 1
   END IF
LOOP UNTIL Kb$ = CHR$(27)

DIM Mem(Strok) AS STRING * Dlina
DIM St(9) AS STRING * 1

     '  Проверяем клавиатуру и перемещаем курсор
    IF Kb$ = Lf$ AND xp% > 0 THEN ReDraw% = 1: xp% = xp% - 1
    IF Kb$ = Rg$ AND xp% < 79 THEN ReDraw% = 1: xp% = xp% + 1
    IF Kb$ = Up$ AND yp% > 0 THEN ReDraw% = 1: yp% = yp% - 1
    IF Kb$ = Dn$ AND yp% < 22 THEN ReDraw% = 1: yp% = yp% + 1

   IF ReDraw% = 1 THEN
      ReDraw% = 0