Программа

SUB InputString (X%, Y%, St$) 'Процедура ввода строки
  LOCATE X%, Y% 'Позиционирование курсора
  INPUT "", St$ 'Ввод строки
END SUB

CALL InputString(20, 15, St$)
LOCATE 1, 1
PRINT St$
END