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

CLS
TYPE qq
  a  AS STRING * 6
  n AS INTEGER
  r AS SINGLE
END TYPE
DIM b AS qq
b.a = "Строка"
OPEN "bas_rec" FOR RANDOM AS #1
FOR J% = 1 TO 10
  b.n = J%: b.r = SQR(J%)
  PUT #1, , b
  PRINT b.a, b.n, b.r
NEXT J%
CLOSE #1
PRINT
OPEN "bas_rec" FOR RANDOM AS #1
FOR J% = 10 TO 1 STEP -1
  GET #1, J%, b
  PRINT b.a, b.n, b.r
NEXT J%
CLOSE #1
END