subscript - QBASIC の「添え字が範囲外」というエラーを修正するにはどうすればよいですか?

Question

10 ～ 30 の範囲内で乱数を生成するコードを作成しようとしていますが、数値が繰り返されないようにしています。NumArray(Count) = Countコードを実行すると、「添え字が範囲外」と表示されます。

'Make an array of completely sorted numbers
FOR Count = 10 TO 30
    NumArray(Count) = Count  
NEXT Count  
RANDOMIZE TIMER  
FOR Count = 10 TO 30
    Number = (RND * (31 - Count)) + 10
    PRINT #1, NumArray(Number)
    FOR Counter = Number TO 30 - Count
        NumArray(Counter) = NumArray(Counter + 1)
    NEXT Counter 
NEXT Count

これは実際には私のコードではありません。私の課題のためにコピーして貼り付けました。