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

CLS : DEFINT A-Z: A$ = "Строка"
OPEN "bas_txt" FOR OUTPUT AS #1
FOR J = 1 TO 10
  PRINT #1, A$; J, J * 2
  PRINT A$; J, J * 2
NEXT J
CLOSE #1
PRINT
OPEN "bas_txt" FOR INPUT AS #2
FOR J = 1 TO 10
  INPUT #2, B$, K1, K2
  PRINT B$; K1, K2
NEXT J
CLOSE #2
END