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

DECLARE SUB MIXER (B() AS INTEGER)
DEFINT A-Z
DIM A(36)
CLS
PRINT "Упорядоченная колода:"
FOR K = 0 TO 35: A(K) = K: PRINT USING "####"; A(K); : NEXT K
FOR J = 0 TO 4
  MIXER A()
  PRINT "Перетасованная колода:"
  FOR K = 0 TO 35: PRINT USING "####"; A(K); : NEXT K
NEXT J
END

SUB MIXER (B() AS INTEGER)
  DEFINT A-Z
  RANDOMIZE INT(32767 * RND)
  FOR J = 0 TO 10000
    I = INT(35 * RND + .5)
    TMP = B(0)
    B(0) = B(I)
    B(I) = TMP
  NEXT J
END SUB