adr = PEEK(b(i) + 2) + PEEK(b(i) + 3) * 256 'String Ｄｉｓｃｒｉｐｔｅｒの番地
FOR k = 0 TO 5
PRINT HEX$(PEEK(adr + k)) + " ";
NEXT k
FOR k = 0 TO 5
PRINT CHR$(PEEK(adr + k));
NEXT k
RETURN
パソコン活用研究5番街（Visual Basic、Excel(VBA)、BASIC プログラミング研究）
ＢＡＳＩＣからマシン語へ２
（ＶＡＲＳＥＧ，ＶＡＲＰＴＲを使う）(QBasic)
VARSEG, VARPTRは変数の値が格納されているのセグメントアドレス（以下ＳＥＧと略す）、
オフセットアドレス（以下ＯＦＦと略す）を示す関数です。普段のプログラムではまず使うことが
ないと思いますが、今回はこれで、変数がどんな風に、メモリーに格納されているのか、
覗いてみることにします。ＢＡＳＩＣとマシン語をリンクしたプログラムを組むような場合、ここら
へんの知識が必要になってくると思います。
まずは、簡単にＶＡＲＳＥＧ，ＶＡＲＰＴＲの使い方から。
ＶＡＲＳＥＧ（変数） 変数のＳＥＧが得られます
ＶＡＲＰＴＲ（変数） 変数のＯＦＦが得られます
以下のプログラムは文字変数（ｘ０＄、ｘ１＄）、整数変数（ｘ２％、ｘ３％）、単精度実数（ｘ４からｘ７）
の格納状態を表示するプログラムです。
このプログラムでは、変数の格納されている値の２Ｂｙｔｅ前からメモリーの中身を表示するように
しています。（Ｌｉｎｅ２１の行） なぜなら、手前２Ｂｙｔｅに変数の型をしめすデータが入っている
ようなので。（ＱＢａｓｉｃの資料がないので、あくまで推測）
また、文字変数については、ＶＡＲＳＥＧ，ＶＡＲＰＴＲで示されるアドレスに格納されているのは、
実際の文字列データではなく、String
Ｄｉｓｃｒｉｐｔｅｒとよばれる、実際の文字列データの格納されて
いる番地を示すデータです。従って、サブルーチン（ｃｈａｒ：）に飛ばして、string
ｄｉｓｃｒｉｐｔｅｒの番地
を再度読み込んでいます。（その下にキャラクタに直してメモリーのデータを表示）
プログラムの概要が分かったところで、その下の結果画面を見て下さい。
ＶＡＲＰＴ．ＢＡＳ （ＱＢａｓｉｃ用）
CLS
'DEFINT X
x0$ = "abcde"
x1$ = "12345"
x2% = 1: x3% = 2
x4 = 1: x5 = .25: x6 = .5: x7 = 2
a(0) = VARSEG(x0$): b(0) = VARPTR(x0$)
a(1) = VARSEG(x1$): b(1) = VARPTR(x1$)
a(2) = VARSEG(x2%): b(2) = VARPTR(x2%)
a(3) = VARSEG(x3%): b(3) = VARPTR(x3%)
a(4) = VARSEG(x4): b(4) = VARPTR(x4)
a(5) = VARSEG(x5): b(5) = VARPTR(x5)
a(6) = VARSEG(x6): b(6) = VARPTR(x6)
a(7) = VARSEG(x7): b(7) = VARPTR(x7)
PRINT "No.1 "; x0$; " NO.2 "; x1$; " NO.3 "; x2%; " NO.4 "; x3%; " NO.5 "; x4; " NO.6 "; x5; " NO.7 "; x6; " NO.8 "; x7
FOR i = 0 TO 7
PRINT "NO."; i + 1; " SEGadr: OFFadr ";
HEX$(a(i)) + " " + HEX$(b(i))
DEF SEG = a(i)
FOR j = 0 TO 5
PRINT HEX$(PEEK(b(i) - 2 + j)) + " "; 'Ｌｉｎｅ２１
NEXT j
PRINT
IF i = 0 OR i = 1 THEN GOSUB char
NEXT i
END
char:
adr = PEEK(b(i) + 2) + PEEK(b(i) + 3) * 256 'String
Ｄｉｓｃｒｉｐｔｅｒの番地
FOR k = 0 TO 5
PRINT HEX$(PEEK(adr + k)) + " ";
NEXT k
PRINT
FOR k = 0 TO 5
PRINT CHR$(PEEK(adr + k));
NEXT k
PRINT
RETURN
NO.1はａｂｃｄｅという文字列です。データは ５ １３ ５ ０ Ａ０ ７Ｆ と並んでいます。
最初の
５ １３ はおそらく、文字変数の型であることを示すデータです。（推測）
次の ５ は
このデータのサイズです。ここは５Ｂｙｔｅであることを示しています。
その後の Ａ０ ７Ｆ はString
Ｄｉｓｃｒｉｐｔｅｒです。
実際の文字データは＆Ｈ７ＦＡ０（ＯＦＦです）
にあることを示しています。
それで、＆Ｈ７ＦＡ０番地から読み込むと、６１ ６２ ６３ ６４ ６５ というデータが入っています。
これをキャラクタに直したのが、 ａｂｃｄｅ
です。これで、ｘ０＄の文字データの格納されている
状態がわかりました。
ＮＯ．２は同じことです。ご自分で確かめて下さい。
ＮＯ．３は整数変数の １ です。 データは
１ １３
１ ０ と並んでいます（その後のデータは
おそらく関係ない）
最初の
１ １３ は整数変数であることを示すデータです（推測）
次の １ が 変数ｘ２％のデータです。
おそらく、整数変数の格納サイズは２ｂｙｔｅです。
ＮＯ．５以下は単精度実数変数です。ここからは、話がややこしくなります。整数と違い実数は
浮動小数点方式という方式でデータが、格納されます。
ＮＯ．５の変数 ｘ４も １ ですが、
ＮＯ．３の整数変数の １
とは、違う方式で格納されています。
データをみてみると ３ １１ ０ ０ ８０ ３Ｆ となっています。
最初の ３ １３ はおなじみの、単精度実数を示すデータでしょう。
そして 次の４Ｂｙｔｅが仮数部、３Ｆ
が指数部だと思われます。
浮動小数点について、詳しいことは
「パソコン活用研究ラピュタへの道／カセットインターフェイスによるデータ通信」にまとめ
ましたので、参考にして下さい。浮動小数点方式といっても、若干違いがあると思いますが、
基本は同じです。