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

CLS : A$ = "Строка"
OPEN "bas_bin" FOR BINARY AS #1
FOR J% = 1 TO 10
  B = SQR(J%)
  PUT #1, , A$: PUT #1, , J%: PUT #1, , B
  PRINT A$, J%, B
NEXT J%
CLOSE #1
PRINT
OPEN "bas_bin" FOR BINARY AS #1
FOR J% = 10 TO 1 STEP -1
  GET #1, (J% - 1) * 12 + 1, A$
  GET #1, (J% - 1) * 12 + 7, K%
  GET #1, (J% - 1) * 12 + 9, B
  PRINT A$, K%, B
NEXT J%
CLOSE #1
END