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

CLS : A$ = "Строка"
OPEN "bas_txt" FOR OUTPUT AS #1
FOR J% = 1 TO 10
  WRITE #1, A$, J%, SQR(J%)
  PRINT A$, J%, SQR(J%)
NEXT J%
CLOSE #1
PRINT
OPEN "bas_txt" FOR INPUT AS #2
FOR J% = 1 TO 10
  INPUT #2, B$, I%, R
  PRINT B$, I%, R
NEXT J%
CLOSE #2
END