VB.NET-TIPS などプログラミングについて

・Bhtprtdm.dll  -- BHT-BASIC4.0 転送ユーティリティライブラリ
・Bhtprt.ini    -- BHT-BASIC4.0 転送ユーティリティライブラリ設定
・Ymodem_pd.dll -- YMODEMプロトコルライブラリ
・BHTIr_pd.dll  -- BHT-Irプロトコルライブラリ

Declare Function ExecProtocol Lib "Bhtprtdm.dll" (_
	ByVal hWnd As IntPtr, _
        ByVal Param As String, _
        ByVal FileName As System.Text.StringBuilder, _
        ByVal Protocol As Integer) As Integer
[引数]
 hWnd	 :DLLを呼び出すウィンドウハンドルを設定
 Param	 :ファイル転送の動作を制御するオプションの文字列
          (1つのファイル名と複数のオプションをスペースで区切った文字列)
 FileName:転送したパス名/ファイル名を格納
 Protocol:プロトコル番号を指定

[戻り値]
 Integer型の値で、0(Er_NOERROR)はエラー無しで、
 0以外は伝送エラー在り
 (エラー内容はDENSO提供のBASICソースを参照)

【伝送速度】
 +B

"+B9600"     9600 bps
"+B19200"   19200 bps
"+B38400"   38400 bps
"+B57600"   57600 bps
"+B115200" 115200 bps
"+B230400" 230400 bps
"+B460800" 460800 bps

YMODEM時
"+B115200"

BHT-Ir時
"+B9600"
 

【通信ポート】
 +Pn

+Pn (n = 1 ～ 99)

【ファイルフィールド】
 +Fn
 +F
 -F

[+Fn]の場合:"+Fa,b,c..."
 a:フィールド1桁数
 b:フィールド2桁数
 c:フィールド3桁数
 ...
[+F]の場合:既存フィールドファイルによる
  (YMODEMのみ)
　※受信の場合はフィールドファイルを受信しない

[-F]の場合:フィールド指定なし(YMODEMのみ)

【伝送方向】
 +R
 -R

"+R" ファイル受信
"-R" ファイル送信

【追加書込】
 +A
 -A

"+A" 既存データファイルに追加書込み
"-A" 追加書き込みしない

【CR-LFの扱い】
 +C
 -C

"+C" CR-LFをデータとする
"-C" CR-LFをレコードの区切り

送信の場合："TEST.DAT +P5 +F16,12 -R"
受信の場合："TEST.DAT +P5 +F16,12 +R"

Module Module1
    Declare Function ExecProtocol Lib "Bhtprtdm.dll" ( _
        ByVal hWnd As IntPtr, _
        ByVal Param As String, _
        ByVal TransferFileName As System.Text.StringBuilder, _
        ByVal ProtocolType As Integer) As Integer
End Module

Public Class Form1
    '送信処理ボタン
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Const PRTCL_YMODEMBATCH As Short = 2
            Dim iRet As Integer
            Dim strFile As System.Text.StringBuilder = New System.Text.StringBuilder
            Dim strOption As String
            'オプションの編集
            strOption = "TEST.DAT +P5 +F16,12 -R"   '"-R"送信
            'ファイル転送
            iRet = ExecProtocol(Me.Handle, strOption, strFile, PRTCL_YMODEMBATCH)
            '戻り値のチェック
            If iRet <> 0 Then
                MsgBox("Err Code = " & iRet.ToString() & " : File[" & strFile.ToString() & "]")
            Else
                MsgBox("送信OK...File[" & strFile.ToString() & "]")
            End If
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub

    '受信処理ボタン
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Try
            Const PRTCL_YMODEMBATCH As Short = 2
            Dim iRet As Integer
            Dim strFile As System.Text.StringBuilder = New System.Text.StringBuilder
            Dim strOption As String
            'オプションの編集
            strOption = "TEST.DAT +P5 +R"   '"+R"受信
            'ファイル転送
            iRet = ExecProtocol(Me.Handle, strOption, strFile, PRTCL_YMODEMBATCH)
            '戻り値のチェック
            If iRet <> 0 Then
                MsgBox("Err Code = " & iRet.ToString() & " : File[" & strFile.ToString() & "]")
            Else
                MsgBox("受信OK...File[" & strFile.ToString() & "]")
            End If
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub
End Class

'---------------------------------------
'ファイル送信
'---------------------------------------
'Function GfSndFile%(pintFp%, pstrSpeed$, pstrFile$, pstrOption$)
'引　数：
'	pintFp%		：ファイル番号
'	pstrSpeed$	：送信スピード
'	pstrFile$	：送信ファイル名
'	pstrOption$	：送信オプション
'戻り値:
'	GfSndFile%	:送信OK(GcTrue%)NG(GcFalse%)
'---------------------------------------
	Function GfSndFile%(pintFp%, pstrSpeed$, pstrFile$, pstrOption$)
		On Error Goto GfSndFile.ErrProc
		OPEN "COM1:" + pstrSpeed$ AS pintFp%
		XFILE pstrFile$, pstrOption$
		GfSndFile% = GcTrue%
GfSndFile.Return		'終了処理
		CLOSE pintFp%
		On Error Goto 0
		Exit Function
'-----
'エラー処理
'-----
GfSndFile.ErrProc
		GfSndFile% = GcFalse%
		Resume GfSndFile.Return
	End Function

'---------------------------------------
'ファイル受信
'---------------------------------------
'Function GfRcvFile%(pintFp%, pstrSpeed$, pstrFile$, pstrOption$)
'引　数：
'	pintFp%		：ファイル番号
'	pstrSpeed$	：受信スピード
'	pstrFile$	：受信ファイル名
'	pstrOption$	：受信オプション（"R"）以外のオプション
'戻り値:
'	GfRcvFile%	:受信OK(GcTrue%)NG(GcFalse%)
'---------------------------------------
	Function GfRcvFile%(pintFp%, pstrSpeed$, pstrFile$, pstrOption$)
		On Error Goto GfRcvFile.ErrProc
		OPEN "COM1:" + pstrSpeed$ AS pintFp%
		OUT &h6060, 3	'YMODEM
		XFILE pstrFile$, "R" + pstrOption$
		GfRcvFile% = GcTrue%
GfRcvFile.Return		'終了処理
		CLOSE pintFp%
		On Error Goto 0
		Exit Function
'-----
'エラー処理
'-----
GfRcvFile.ErrProc
		GfRcvFile% = GcFalse%
		Resume GfRcvFile.Return
	End Function

'---------------------------------------
'メイン処理開始
'---------------------------------------
	SCREEN 1				'漢字モード
	LOCATE , , 2			'カーソルをブロック表示
	PRIVATE intRet%
	PRINT "受信開始:";
	intRet% = GfRcvFile%(1, "115200", "TEST.DAT", "PTM") '受信
	PRINT "GfRcvFile%=" + STR$(intRet%)
	WAIT 0, &h01 'キー入力待ち
	PRINT "送信開始:";
	intRet% = GfSndFile%(1, "115200", "TEST.DAT", "PTM") '送信
	PRINT "GfSndFile%=" + STR$(intRet%)
	WAIT 0, &h01 'キー入力待ち
	END

* created by BHT-BASIC 4.0 Transfer Utility DLL Version 1.14
*   Copyright (C) DENSO WAVE INC. 2001-2013 all rights reserved
file	TEST.DAT
fields	16 12

* created by BHT
file	TEST.DAT
size	150
records	5
fields	16 12

[書式1:パラメタを直接指定]
　OPEN "BAR：［読取モード］［ブザー制御］［LED制御］" AS ［#］ファイル番号 CODE 読取コード［,読取コード...］

[書式2:パラメタをシステム設定値から指定]
　OPEN "BAR：SP" AS ［#］ファイル番号

＜引き数＞
・［読取モード］：
　■モメンタリスイッチモード（M）：
　　トリガスイッチを押している間だけ照明LEDが点灯し、
　　バーコードを読み取ることができる。

　■オートオフモード（F）
　　トリガスイッチを押すと照明LEDが点灯し、トリガスイッチを放すか、
　　またはバーコードを読み取ると、照明LED は消える。

　■オルタネートスイッチモード（A）
　　トリガスイッチを押すと照明LEDが点灯し、トリガスイッチを放しても、
　　照明LED は点灯している。バーコードデバイスファイルがクローズされるか、
　　またはトリガスイッチを再度押すと照明LED は消える。

　■連続読み取りモード（C）
　　トリガスイッチに関係なく照明LEDはバーコードデバイスファイルが
　　クローズされるまで点灯しています。

　※４モードとも照明LEDが点灯している間は、
　　バーコードを読み取ることができます。

・［ブザー制御］："B"
　バーコードの読み取り成功時にブザー（バイブレータ）を作動

・［LED制御］："L"
　バーコードの読み取り成功時に青LED が点灯しないようにする

・ファイル番号：（OPEN命令で指定したファイル番号を指定）

・読取コード：
　■共通商品コード（"A","B","C"）
　　　先頭文字（国フラグ）やアドオンの指定ができますが
　　　"A"のみ指定でEAN-13(JAN-13),EAN-8(JAN-8),UPC-E全てが
　　　読込める

　■NW-7（"N"）：
　　　書式：N［:［最小桁数［-最大桁数］］［スタート ストップ］［CD］
　　　　　　 ［,［最小桁数［-最大桁数］］［スタート ストップ］［CD］］
　　　　　　 ［,［最小桁数［-最大桁数］］［スタート ストップ］［CD］］］

　■Code39（"M"）：
　　　書式：M［:［最小桁数［-最大桁数］］［CD］
　　　　　　 ［,［最小桁数［-最大桁数］］［CD］］
　　　　　　 ［,［最小桁数［-最大桁数］］［CD］］］

　■Code93（"L"）：
　　　書式：L［:［最小桁数［-最大桁数］
　　　　　　 ［,［最小桁数［-最大桁数］］
　　　　　　 ［,［最小桁数［-最大桁数］］］

　■Code128（"K"）：
　　　書式：K［:［最小桁数［-最大桁数］
　　　　　　 ［,［最小桁数［-最大桁数］］
　　　　　　 ［,［最小桁数［-最大桁数］］］

OPEN "BAR:M" AS #1 CODE "A", "M:4-25",  "K:4-25"

  PRIVATE intLen%, pstrBarCode$
  'バーコードデバイスオープン
  OPEN "BAR:M" AS #1 CODE "A", "M:4-25",  "K:4-25"
  'バーコードスキャニング待ち
  WAIT 0, &h02
  'バーコードバッファ内の文字数取得
  intLen% = LOC(#1)
  'バーコード読込
  pstrBarCode$ = INPUT$(intLen%, #1)
  'バーコードデバイスクローズ
  CLOSE #1
  PRINT "BARCODE=" + pstrBarCode$
  WAIT 0, &H1	'キー待ち
  END

'この変数はどこかで宣言する
	Global GcKeyF1$ : GcKeyF1$ = "A"
	Global GcKeyF2$ : GcKeyF2$ = "B"
	Global GcKeyF3$ : GcKeyF3$ = "C"
	Global GcKeyF4$ : GcKeyF4$ = "D"
	Global GcGetRetNormal% : GcGetRetNormal% = 0  '[ENT]キーでの終了
	Global GcGetRetF1%     : GcGetRetF1% = 1      '[F1]キーでの終了
	Global GcGetRetF2%     : GcGetRetF2% = 2      '[F2]キーでの終了
	Global GcGetRetF3%     : GcGetRetF3% = 3      '[F3]キーでの終了
	Global GcGetRetF4%     : GcGetRetF4% = 4      '[F4]キーでの終了

'---------------------------------------
'バーコード入力
'---------------------------------------
'Function GfGetBar%(Byref pstrBarCode$)
'引　数：
'	pstrBarCode$:入力されたバーコード文字列
'戻り値:
'	GfGetBar%	:どのキーで終了したかを示す以下のフラグを返す
'				:	GcGetRetNormal% = 0  '[ENT]キーでの終了
'				:	GcGetRetF4% = 4      '[F4]キーでの終了
'---------------------------------------
	Function GfGetBar%(Byref pstrBarCode$)
		Private intX%, intY%, intLoop%, intLen%, strKey$, intRet%, strInp$
		'エラー処理宣言
		On Error Goto GfGetBar.ErrProc
		'結果格納領域の初期化
		pstrBarCode$ = ""
		'カーソル位置退避
		intY% = CSRLIN
		intX% = POS(0)
GfGetBar.ReStart	'バーコード再スタート
		Locate intX%, intY%, 2
		Cursor ON
		'バーコードデバイスオープン
		OPEN "BAR:M" AS #1 CODE "A", "M:4-25",  "K:4-25"

		intLoop% = GcTrue%
		While intLoop% = GcTrue%
			'キー入力とバーコードスキャニング待ち
			Wait 0, &h03
			'バーコードバッファ内の文字数取得
			intLen% = Loc(#1)
			If intLen% <> 0 Then 
				'バーコードスキャニングがあった場合
				pstrBarCode$ = Input$(intLen%, #1) 'バーコードをセット
				intRet% = GcGetRetNormal%
				intLoop% = GcFalse%
			Else
				'キー入力があった場合
				strKey$ = Input$(1) '入力されたキーの文字を取得
				SELECT strKey$
					CASE "A" 
						'[F1]キー文字の場合
						intLoop% = GcFalse%
						intRet% = GcGetRetF1%	'下のキー入力をさせる
					CASE "D" 
						'[F4]キー文字の場合
						intLoop% = GcFalse%
						intRet% = GcGetRetF4%	'関数を抜ける
				END SELECT
			End If
		WEnd
		'バーコードデバイスクローズ
		Close #1

		if intRet% = GcGetRetF1% Then
			'キー入力ループ
			intLoop% = GcTrue%
			While intLoop% = GcTrue%
				'表示
				Cursor OFF
				Locate intX%, intY%
				Print "               ";
				Locate intX%, intY%
				Print strInp$;
				Cursor ON
				'キーを1文字取得
				strKey$ = GfGetKey$
				'数字のみしか受け付けない!!
				IF "0" <= strKey$ And strKey$ <= "9" THEN
					strInp$ =strInp$ + strKey$
				ELSE
					'数字以外の場合
					SELECT strKey$
						CASE CHR$(13)
							'[ENT]キー文字の場合
							If strInp$ <> "" Then
								pstrBarCode$ = strInp$	'コード戻す
								intLoop% = GcFalse%		'ループ脱出
								intRet% = GcGetRetNormal%
							Endif
						CASE CHR$(8)
							'[BS]キーの場合
							If  LEN(strInp$) > 0 Then
								strInp$ = LEFT$(strInp$, LEN(strInp$) - 1)
							Endif
						CASE CHR$(24)
							'[クリア]キーの場合
							strInp$ = ""
						CASE "B" 
							'[F2]キー文字の場合
							intLoop% = GcFalse%
							intRet% = GcGetRetF2%	'バーコード再入力へ
						CASE "D" 
							'[F4]キー文字の場合
							intLoop% = GcFalse%
							intRet% = GcGetRetF4%	'関数を抜ける
					END SELECT
				ENDIF
			WEnd
		Endif
		If intRet% = GcGetRetF2% Then
			'バーコード再入力へ
			Goto GfGetBar.ReStart
		Endif
		GfGetBar% = intRet%
GfGetBar.Return	'関数戻り
		On Error Goto 0
		Exit Function
'-----
'エラー処理
'-----
GfGetBar.ErrProc
		GfGetBar% = GcGetRetNormal%
		pstrBarCode$ = ""
		Resume GfGetBar.Return
	End Function

'-----
'この関数の実行例
'-----
	SCREEN 1				'漢字モード
	LOCATE , , 2			'カーソルをブロック表示
	PRIVATE intRet%, intLen%, pstrBarCode$
	WHILE 1
		LOCATE 1, 2
		PRINT "                   ";
		LOCATE 1, 2
		PRINT "CODE=";
		intRet% = GfGetBar%(pstrBarCode$)
		LOCATE 1, 4
		PRINT "                   ";
		LOCATE 1, 4
		If intRet% = GcGetRetF4% Then
			PRINT "**コード無しでの戻り"
		Else
			PRINT "INP=" + pstrBarCode$
		Endif
	WEND

[書式]
　XFILE "[ドライブ名:]ファイル名"［, "プロトコル指定"］

＜引き数＞
　ドライブ名：ドライブ指定("A" OR "D")
　　　　　　　<各ドライブに対応する通信プロトコル>
　　　　　　　　"A":Ymodem, BHT-Ir, BHT
　　　　　　　　"D":Ymodemのみ
　ファイル名：ファイル指定

　プロトコル指定：以下の各指定を文字列で行う。
　　■伝送方向：
　　　・省略時(デフォルト)：BHTからファイル送信
　　　・"R"または"r"　　　：パソコンまたは他BHTからファイル受信

　　■シリアル番号：
　　　・省略時(デフォルト)：シリアル番号の付加無し
　　　・"S"または"s"　　　：伝送ブロックにシリアル番号を付加

　　■水平パリティチェック（BCC）：
　　　・省略時(デフォルト)：水平パリティの付加無し
　　　・"P"または"p"　　　：伝送ブロックに水平パリティを付加

　　■伝送モニタ：
　　　・省略時(デフォルト)：シリアル番号の表示無し
　　　・"M"または"m"　　　：伝送ブロックのシリアル番号を表示

　　■ファイル受信時のフィールド末尾の空白の扱い：
　　　・省略時(デフォルト)：空白をデータとして扱わない
　　　・"T"または"t"　　　：空白をデータとして扱う

　　■リンク確立時のタイムアウト時間：
　　　・"1"～"8"：30秒～240秒で30秒間隔
　　　・"9" 　　：タイムアウトなし

　　■ファイル名同一チェック：
　　　・省略時(デフォルト)：同一チェックを行う
　　　　　　　　　　　　　　（ファイル名で指定した名前と同じ
　　　　　　　　　　　　　　　名前で送られてきたファイルのみ受信）
　　　・"N"または"n"　　　：同一チェックを行わない
　　　　　　　　　　　　　　（送信側と異なるファイル名にて受信可能）

XFILE "TEST.DAT", "RSPMT1"

XFILE "TEST.DAT", "RPMT"

'---------------------------------------
'ファイル送信
'---------------------------------------
'Function GfSndFile%(pintFp%, pstrSpeed$, pstrFile$, pstrOption$)
'引　数：
'	pintFp%		：ファイル番号
'	pstrSpeed$	：送信スピード
'	pstrFile$	：送信ファイル名
'	pstrOption$	：送信オプション
'戻り値:
'	GfSndFile%	:送信OK(GcTrue%)NG(GcFalse%)
'---------------------------------------
	Function GfSndFile%(pintFp%, pstrSpeed$, pstrFile$, pstrOption$)
		On Error Goto GfSndFile.ErrProc
		OPEN "COM1:" + pstrSpeed$ AS pintFp%
		XFILE pstrFile$, pstrOption$
		GfSndFile% = GcTrue%
GfSndFile.Return		'終了処理
		CLOSE pintFp%
		On Error Goto 0
		Exit Function
'-----
'エラー処理
'-----
GfSndFile.ErrProc
		GfSndFile% = GcFalse%
		Resume GfSndFile.Return
	End Function

'---------------------------------------
'ファイル受信
'---------------------------------------
'Function GfRcvFile%(pintFp%, pstrSpeed$, pstrFile$, pstrOption$)
'引　数：
'	pintFp%		：ファイル番号
'	pstrSpeed$	：受信スピード
'	pstrFile$	：受信ファイル名
'	pstrOption$	：受信オプション（"R"）以外のオプション
'戻り値:
'	GfRcvFile%	:受信OK(GcTrue%)NG(GcFalse%)
'---------------------------------------
	Function GfRcvFile%(pintFp%, pstrSpeed$, pstrFile$, pstrOption$)
		On Error Goto GfRcvFile.ErrProc
		OPEN "COM1:" + pstrSpeed$ AS pintFp%
		XFILE pstrFile$, "R" + pstrOption$
		GfRcvFile% = GcTrue%
GfRcvFile.Return		'終了処理
		CLOSE pintFp%
		On Error Goto 0
		Exit Function
'-----
'エラー処理
'-----
GfRcvFile.ErrProc
		GfRcvFile% = GcFalse%
		Resume GfRcvFile.Return
	End Function

'---------------------------------------
'メニュー表示・選択
'---------------------------------------
'Function MfGetMenu$(Byval pnY%, Byval pColorBack&, Byref parrMenu$(), Byval pnMenuMax%, Byval pnMenu%)
'引　数：
'	pnY%		:画面行位置
'	pColorBack&	:背景色：指定色
'	parrMenu$()	:メニュー文字列配列
'	pnMenuMax%	:メニュー行のMAX値
'	pnMenu%		:最初のメニューの位置
'戻り値:
'	MfGetMenu$	:選択されたメニューの番号文字列
'---------------------------------------
	Function MfGetMenu$(Byval pnY%, Byval pColorBack&, Byref parrMenu$(), Byval pnMenuMax%, Byval pnMenu%)
		Private nMenu% : nMenu% = pnMenu%
		Private strMenu$: strMenu$ = ""
		Private strBuf$: strBuf$ =""
		Private strMenuMax$: strMenuMax$ = MID$(STR$(pnMenuMax%), 2)
		private color&            ' 文字色の変数を定義
		private bkcolor&          ' 背景色の変数を定義
		
		'エラー処理宣言
		On Error Goto MfGetMenu.ErrProc
		While strMenu$ = ""
			Locate 1, (pnY% - 1) * 2 + 1, 0
			Private i%
			For i% = 1 to pnMenuMax%
				If i% = nMenu% Then
					color& = .grColor.Black		' 文字色：黒色
					bkcolor& = pColorBack&		' 背景色：指定色
				Else
					color& = .grColor.Black		' 文字色：黒色
					bkcolor& = .grColor.White	' 背景色：白色
				Endif
				Call GsSetTextColor(color&, bkcolor&)
				Call GsPrintFull(MID$(STR$(i%), 2) + ":" + parrMenu$(i%))
			Next
			strBuf$ = GfGetKey$ 'キーを1文字取得
			IF "1" <= strBuf$ And strBuf$ <= strMenuMax$ THEN
				'メニューの番号文字の場合
				nMenu% = VAL(strBuf$)
			ELSE
				'メニューの番号文字以外の場合
				SELECT strBuf$
					CASE CHR$(13)
						'[ENT]キー文字の場合
						strMenu$ = MID$(STR$(nMenu%), 2)
					CASE "E"
						'[↑]キーの場合
						If nMenu% > 1 Then
							nMenu% = nMenu% - 1
						Else
							'先頭の場合、最下行へ移動
							nMenu% = pnMenuMax%
						Endif
					CASE "M"
						'SHIFT+[↑]キーの場合
						If nMenu% > 1 Then
							nMenu% = nMenu% - 1
						Else
							'先頭の場合、最下行へ移動
							nMenu% = pnMenuMax%
						Endif
					CASE "F"
						'[↓]キーの場合
						If nMenu% < pnMenuMax% Then
							nMenu% = nMenu% + 1
						Else
							'最下行の場合、先頭へ移動
							nMenu% = 1
						Endif
					CASE "N"
						'SHIFT+[↓]キーの場合
						If nMenu% < pnMenuMax% Then
							nMenu% = nMenu% + 1
						Else
							'最下行の場合、先頭へ移動
							nMenu% = 1
						Endif
				END SELECT
			ENDIF
		WEND
		'メニュー番号を返す
		MfGetMenu$ = strMenu$
MfGetMenu.Return	'関数戻り
		On Error Goto 0
		Exit Function
'-----
'エラー処理
'-----
MfGetMenu.ErrProc
		Resume MfGetMenu.Return
	End Function

	SCREEN 1				'漢字モード
	LOCATE , , 2			'カーソルをブロック表示
	'メニュー
	Const MENU.CNT% = 9
	PRIVATE strArrTxMenu$(MENU.CNT%), strRet$, intLoop%, intMenu%
	strArrTxMenu$(1) = "メニュー１　　　　"
	strArrTxMenu$(2) = "メニュー２　　　　"
	strArrTxMenu$(3) = "メニュー３　　　　"
	strArrTxMenu$(4) = "メニュー４　　　　"
	strArrTxMenu$(5) = "メニュー５　　　　"
	strArrTxMenu$(6) = "メニュー６　　　　"
	strArrTxMenu$(7) = "メニュー７　　　　"
	strArrTxMenu$(8) = "メニュー８　　　　"
	strArrTxMenu$(9) = "終了　　　　　　　"
	intMenu% = 1	'最初の選択メニュー番号
	intLoop% = GcTrue%
	WHILE intLoop%
		strRet$ = MfGetMenu$(1, .grColor.Yellow, strArrTxMenu$, MENU.CNT%, intMenu%)
		If strRet$ = "9" Then
			intLoop% = GcFalse%
		Else
			LOCATE 1, 21
			PRINT "SEL=" + strRet$;
			intMenu% = VAL(strRet$)	'前回の選択番号
		Endif
	WEND
	END

'---------------------------------------
'指定バイト数内に収まる文字列を戻す関数
'---------------------------------------
'Function GfCut$(pstrValue$, pintMax%)[255]
'引　数：
'	pstrValue$：対象文字列
'	pintMax%：指定バイト数
'戻り値:
'	GfCut$	:結果文字列
'---------------------------------------
	Function GfCut$(pstrValue$, pintMax%)[255]
		'エラー処理宣言
		On Error Goto GfCut.ErrProc

		Private intPos%, intErr%, intLoop%, intChr%, strRet$[255]
		intPos% = 0
		intErr% = GcFalse%
		intLoop% = GcTrue%
		While intLoop% = GcTrue%
			'ASCIIコード取得
			intChr% = Asc(Mid$(pstrValue$, intPos% + 1, 1))
			'2バイト文字(先頭バイトがSJISコード??)
			If &H80 <= intChr% And intChr% <= &H9F Then
				intPos% = intPos% + 2
				If intPos% > pintMax% Then
					'最大バイト長を超える場合、前の状態に戻すフラグON
					intErr% = GcTrue%
				End If
				If intPos% >= pintMax% Then
					'最大バイト長に達する場合は、その場で終了
					If intErr% = GcTrue% Then
						strRet$ = Mid$(pstrValue$, 1, intPos% - 2)
					Else
						strRet$ = Mid$(pstrValue$, 1, intPos%)
					End If
					intLoop% = GcFalse%
				End If
			'1バイト文字
			Else
				intPos% = intPos% + 1
				If intPos% >= pintMax% Then 
					'最大バイト長に達する場合は、その場で終了
					strRet$ = Mid$(pstrValue$, 1, intPos%)
					intLoop% = GcFalse%
				End If
			End If
		WEnd
		GfCut$ = strRet$
GfCut.Return	'関数戻り
		On Error Goto 0
		Exit Function
'-----
'エラー処理
'-----
GfCut.ErrProc
		GfCut$ = ""
		Resume GfCut.Return
	End Function

	const	McMaxColumns% = 20		'画面の半角桁数MAX
'---------------------------------------
'横幅一杯でのテキスト表示
'---------------------------------------
'Sub GsPrintFull(Byval pstrSrc$)
'引　数：
'	pstrSrc$：対象文字列
'---------------------------------------
    Sub GsPrintFull(Byval pstrSrc$)
		'エラー処理宣言
		On Error Goto GsPrintFull.ErrProc

		Private strWK$[255]
		strWK$ = GfCut$(pstrSrc$ + "                      ", McMaxColumns%)
    	If Len(strWK$) < McMaxColumns% Then
			strWK$ = strWK$ + LEFT$("          ", McMaxColumns% - Len(strWK$))
		Endif
		Print strWK$;
GsPrintFull.Return	'関数戻り
		On Error Goto 0
		Exit Sub
'-----
'エラー処理
'-----
GsPrintFull.ErrProc
		Resume GsPrintFull.Return
	End Sub