FreeBASIC Allocate

count

うまくいくと、割り当てられたメモリの開始アドレスを、返します。
それ以外、要求されたブロック・サイズを割り当てられないか、count < 0 であれば、ヌルポインタ (0) を返します。

フリー ストア (塊(heap)) からバイトの count 数を割り当てまたは予約します。
新しく割り当てられたメモリは初期化されません。

新しく割り当てられたメモリの初期値が指定されていないので、Allocate を String または UDT を含む文字列で、直接使わないでください。文字列記述子がクリアされず（ランダムデータを含む）、破損した文字列などを引き起こす（メモリ内のランダムな場所に書き込もうとするか、ランダムポインタを解放しようとする）可能性があるためです。

String や、String を含む UDT で必要なことは、Callocate （メモリの消去）を使う、あるいは UDT では New Expression （構築子を呼び出す）を使う、また最悪でも、Allocate の後で、最初の文字列を使う前に記述子（0に設定）を明示的に消去することです。
Zstring や Wstring のメモリの割り当てについては、対応するページを参照ください。

返されるポインタは、any ptr です。そして、割り当てられたメモリの始まりを示します。
このポインタは、count がゼロであっても、固有になるように保証されます。

確保したメモリは、必要なくなったら、Deallocate を使って、割り当てを解除するか、自由なストレージに戻さなければなりません。

出力は以下の通りです。

　参考：以下は、フィボナッチ数だけでプログラム言語に精通したつもりになる
で紹介していただいている、再帰関数を用いたサンプルを微修正したものです。

'フィボナッチ数 by FreeBasic

Declare Function Fib(N As Integer) As Integer

Dim N As Integer
Dim Start As Double

Print  "番目 フィボナッチ数  秒"
   
For N=1 To 39
   Start = Timer
   Print Using "###  ###,###,###  ##.####"; N; Fib(N); Timer - Start
Next N

Print  "番目 フィボナッチ数  秒"
Sleep

Function Fib(N As Integer) As Integer
   If N < 2 Then
      Fib = N
   Else
      Fib = Fib(N - 2) + Fib(N - 1)
   End If
End Function

割り当てたメモリを、これ以上使わない場合に、メモリを解放することは、重要です。
未使用メモリーは、解放しないと、単にメモリを浪費しているだけです。
そのメモリのアドレスが、なにか上書きされるか、忘れられていると、そのメモリは決して解放できません。
この状態は、「メモリ・リーク」として知られていて、どんなことをしても避けるべきです。
「通常の」終了でも、異常終了でも、アプリケーションが終了するときは、漏らされたメモリは、常に完全に解放されます。
このため、「メモリ・リーク」の状態は、アプリケーションが動作しているあいだだけです。
それでも、アプリケーションの中で、割り当てられたどんなメモリでも、解放するように注意することは、良い習慣です。
以下の例は、メモリ・リークの関数を示しています。ここでは、割り当てられたメモリのアドレスが無くなって、これ以上解放できません。
このような関数が頻繁に呼ばれると、浪費されたメモリの総量は、急速に蓄積されます。