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

REM Перестановка головы и хвоста массива
DECLARE SUB INVERT (A%(), J%, N%)
DEFINT A-Z
CLS
N = 20: K = 15
DIM A(N)
PRINT "Массив до перестановки :"
FOR I = 0 TO N - 1: A(I) = I + 1: PRINT A(I); : NEXT I
PRINT
INVERT A(), 0, K
PRINT "После перестановки в головной части :"
FOR I = 0 TO N - 1: PRINT A(I); : NEXT I: PRINT
INVERT A(), K, N - K
PRINT "После перестановки в хвостовой части :"
FOR I = 0 TO N - 1: PRINT A(I); : NEXT I: PRINT
INVERT A(), 0, N
PRINT "После полной перестановки :"
FOR I = 0 TO N - 1: PRINT A(I); : NEXT I: PRINT
END

SUB INVERT (A%(), J%, N%)
DEFINT A-Z
FOR I = J TO J + (N - 1) \ 2
  TMP = A(I): A(I) = A(2 * J + N - 1 - I)
  A(2 * J + N - 1 - I) = TMP
NEXT I
END SUB