Примеры программ на языке QBASIC

CLS
OPEN "notebook" FOR APPEND AS #1
'Ввод данных с клавиатуры
DO
  INPUT "ФАМИЛИЯ: ", Name$
  INPUT "ТЕЛЕФОН: ", Phone$
  WRITE #1, Name$, Phone$
  INPUT "Добавим "; R$
LOOP WHILE LEFT$(R$, 1) = "д"
CLOSE #1
CLS
OPEN "notebook" FOR INPUT AS #1
PRINT "Список абонентов в файле:"
DO WHILE NOT EOF(1)
  'LINE INPUT #1, REC$  'Чтение строки целиком
  'PRINT REC$           'Вывод данных на экран.
  INPUT #1, A$, B$      'Чтение строки по компонентам
  PRINT A$, B$          'Вывод данных на экран
LOOP
CLOSE #1
END