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

今までは何となく OUT命令 や WAIT命令 を使ってきましたが、 ここで関連するI/Oポートの説明を行いたいと思います。 I/Oポートとは入力・出力ポートの略称で、ハンディのCPUから見て外部装置に該当するキーボード、 LEDランプ、ブザーなどを制御するためのポート（外部メモリの様なもの）です。 I/Oポートは制御対象毎に別々のアドレスが割り当てられていて、 それへの入力命令が INP関数 で、出力命令が OUTステートメント です。 また、I/Oポートの状態が指定状態になるまでプログラムを止めておく WAITステートメント があります。

以下に私がプログラムで使用したポートについて一覧を記します。 ここに上げた以外のポートは各装置のマニアルを参照して下さい。

ポートNO (HEX)	bit	制御対象	R/W	データ			初期値
.pnEvent  (0000)	0	キーボードバッファ	R	-	0	データ無	-
				.pvEvKeyOn	1	データ有
	1	バーコードバッファ		-	0	データ無	-
				.pvEvBarOn	1	データ有
	2	トリガスイッチ		-	0	OFF	-
				.pvEvTrgOn	1	ON
	3	受信バッファ		-	0	データ無	-
				.pvEvtCmOn	1	データ有
	4	TIMEA関数		-	0	関数の値が0以外	-
				.pvEvTma0	1	関数の値が0
	5	TIMEB関数		-	0	関数の値が0以外	-
				.pvEvTmb0	1	関数の値が0
	6	TIMEC関数		-	0	関数の値が0以外	-
				.pvEvTmc0	1	関数の値が0
	7	CS(CTS)信号		-	0	常に0を返す	-
				.pvEvCsOn	1	-
.pnLEDCtrl  (0001)	0	表示LED(赤)	W	-	0	消灯	0
				.pvLEDRed	1	点灯
	1	表示LED(緑)		-	0	消灯	0
				.pvLEDGrn	1	点灯
	2	表示LED(青)		-	0	消灯	0
				.pvLEDBle	1	点灯
.pnFont  (6080)	0	表示フォント	R/W	.pvFtStd	0	標準フォント	0
				.pvFtSmall	1	小フォント
				サイズ指定(16,24,30,40)
.pnKeyEnt  (60B0)	0	キー入力方式	R/W	.pvKyNm	0	数字入力	0
				.pvKyAlpNm	1	英数字入力
.pnKeyMd  (60B1)	0	キー入力状態	R/W	.pvKMNm	0	数字	0
				.pvKMAlp	1	英字

例として先ずは、WAIT命令について説明します。

ポート番号で指定された入力ポートの内容を読込し、 AND パターンとXOR パターンで指定された値になるまで、 ユーザプログラムをこの命令で待つ様にします。

指定されたパターンになるまで命令が終わらないので、 指定値が間違っていると、命令から帰って来なくなり、 プログラムが止まってしまいますので、注意して下さい。
以下のソースがWAIT命令の使用例の関数なのですが、 ポート(0000)の0ビット目が1になるまで待っています。 WAIT命令を抜けてきた時点で、キーボードバッファにキー入力が在ることになるので キーデータを1文字取得しています。

	Function GfGetKey$
		Wait 0, &h01 'キー入力待ち
		GfGetKey$ =Input$(1) '入力されたキーを取得して戻す。
	End Function

次は、INP関数について説明します。

INP関数が返す値は整数型になります。 I/Oポートのデータは1バイトなので、整数型では最大でも255となります。
WAIT命令のところの関数の例をINP関数で置き換えると以下の様になります。
（ちょっと冗長すぎますね）

	Function GfGetKey2$
		PRIVATE W%
		W% = INP(0)
		WHILE (W% AND 1) = 0
			W% = INP(0)
		WEND
		GfGetKey2$ =Input$(1) '入力されたキーを取得して戻す。
	End Function

次は、OUT命令について説明します。

I/Oポートに割り振られていないポート番号を指定すると無視されます。 また、使用されているポート番号でも意味の無いBIT位置にデータを 設定しても無視されます。

	'数字入力方式に設定
	OUT .pnKeyEnt, .pvKyAlpNm	'英数字入力
	OUT .pnKeyMd, .pvKMNm		'数字
	'フォントサイズ24ドット指定
	OUT .pnFont , 24

最後にTIMER命令について説明します。 タイマは値を設定されてからカウントダウンが始まり、カウント値が０になった時点で動きを止めます。 例えばある時間の待ちを作る場合に、カウンタに値を設定し、カウンタを読込をループで行い その値が０になるのを待ちます。
ソースの例としては以下の様な感じです。

	TIMEA = 100	'10秒設定
	'TIMEAが0になったらループ終了
	WHILE TIMEA > 0 
	WEND

=====
2016/04/02：の時の情報

文字列を扱うユーザ定義関数として使えそうなものを作成してみました。

関数定義	引数	戻り値
指定された文字列を分離文字列で分解 Sub GsSplit$(byval pstrSrc$, Byval pstrSplit$, Byref parr$())	pstrSrc$:分離元文字列 pstrSplit$:分離文字列 parr$:分解先配列
指定文字で埋めて、右詰又は左詰で返す 'Function GfPadd$(pintMode%, pstrBuf$, pintLen%, pstrPadChar$)[255]	pintMode%:左詰(GcTrue%),右詰(GcFalse%) pstrBuf$:文字列 pintLen%:最終文字列長(最大255) pstrPadChar$：埋める文字	GfPadd$:結果文字列

'---------------------------------------
'指定された文字列を分離文字列で分解する
'---------------------------------------
'Sub GsSplit$(byval pstrSrc$, Byval pstrSplit$, Byref parr$())
'引　数：
'	pstrSrc$	:分離元文字列
'	pstrSplit$	:分離文字列
'	parr$		:分解先配列
'---------------------------------------
	Sub GsSplit$(byval pstrSrc$, Byval pstrSplit$, Byref parr$())
		'エラー処理宣言
		On Error Goto GsSplit.ErrProc

		Private i%: i% = 1
		Private pos%: pos% = 1
		Private posLast%: posLast% = 1
		
		'区切り文字列を探す
		pos% = INSTR(posLast%, pstrSrc$, pstrSplit$)
		While pos% > 0
			'前回位置から、区切り文字列の前までを退避
			parr$(i%) = MID$(pstrSrc$, posLast%, pos% - posLast%)
			'指標++
			i% = i% + 1
			'前回位置を区切り文字列の次にする
			posLast% = pos% + LEN(pstrSplit$)
			'区切り文字列を探す
			pos% = INSTR(posLast%, pstrSrc$, pstrSplit$)
		Wend
		'最後の文字列
		parr$(i%) = MID$(pstrSrc$, posLast%)
GsSplit.Return	'関数戻り
		On Error Goto 0
		Exit Sub
'-----
'エラー処理
'-----
GsSplit.ErrProc
		Resume GsSplit.Return
	End Sub

'---------------------------------------
'指定文字で埋めて、右詰又は左詰で返す
'---------------------------------------
'Function GfPadd$(pintMode%, pstrBuf$, pintLen%, pstrPadChar$)[255]
'引　数：
'	pintMode%	:左詰(GcTrue%)か右詰(GcFalse%)か
'	pstrBuf$	:文字列
'	pintLen%	:最終文字列長(最大255)
'	pstrPadChar$：埋める文字
'戻り値:
'	GfPadd$		:結果文字列
'---------------------------------------
	Function GfPadd$(pintMode%, pstrBuf$, pintLen%, pstrPadChar$)[255]
		'エラー処理宣言
		On Error Goto GfPadd.ErrProc

		Private intPad%, strTmp$[255]
		intPad% = pintLen% - Len(pstrBuf$)
		If intPad% > 0 Then
			strTmp$ = GfString$(pstrPadChar$, intPad%)
			If pintMode% = GcTrue% Then
				'左詰
				GfPadd$ = pstrBuf$ + strTmp$
			Else
				'右詰
				GfPadd$ = strTmp$ + pstrBuf$
			End If
		Else
			'そのまま返す
			GfPadd$ = pstrBuf$
		End If
GfPadd.Return	'関数戻り
		On Error Goto 0
		Exit Function
'-----
'エラー処理
'-----
GfPadd.ErrProc
		GfPadd$ = ""
		Resume GfPadd.Return
	End Function

これらの関数の実行ソースは以下の様になります。

'-----
'実行はここから処理
'-----
Main
	SCREEN 1				'漢字モード
	LOCATE , , 2			'カーソルをブロック表示

	PRINT "***GfPadd$"
	PRIVATE W$, W2$
	W$ = GfPadd$(GcTrue%, "123", 5, " ")
	PRINT "[" + W$ + "]"
	W$ = GfPadd$(GcFalse%, "123", 5, "0")
	PRINT "[" + W$ + "]"

	PRINT "***GsSplit$"
	PRIVATE ARR$(10)
	CALL GsSplit$("123,AAA,!!!!!!!", ",", ARR$)
	FOR I% = 1 TO 3
		PRINT "ARR$("; I%;
		PRINT ")="; ARR$(I%)
	NEXT
	WAIT 0, &h01 'キー入力待ち
	END

これを実行すると以下の様な表示になります。



=====
2016/04/02：の時の情報

文字列を扱うユーザ定義関数としてよくある感じのものを作成してみました。

関数定義	引数	戻り値
半角空白文字列生成 Function GfSpc$(byval pintCnt%)[128]	pintCnt%:文字数を指定	GfSpc$:空白文字列
右側半角空白削除 Function GfRTrim$(pstrValue$)[255]	pstrValue$:対象文字列	GfRTrim$:結果文字列
左側半角空白削除 Function GfLTrim$(pstrValue$)[255]	pstrValue$:対象文字列	GfRTrim$:結果文字列
前後の半角空白削除 Function GfTrim$(pstrValue$)[255]	pstrValue$:対象文字列	GfTrim$:結果文字列
文字列繰り返し Function GfString$(pintSize%, pstrChr$)[255]	pstrChr$:対象文字 pintSize%:文字数(最大1～255)	GfString$:結果文字列

以下のソースが5個の関数を宣言しています。
エラー処理を各関数に入れましたが、必要ないかもしれません。 また、引数の文字列の長さチェックは行っていませんので、必要ならば追加して下さい。

'---------------------------------------
'定数宣言:共通⇒(これは別ファイルにすべき)
'---------------------------------------
	Global GcTrue% : GcTrue% = -1
	Global GcFalse% : GcFalse% = 0

'---------------------------------------
'半角空白文字列生成
'---------------------------------------
'Function GfSpc$(byval pintCnt%)[128]
'引　数：
'	pintCnt%	:文字数を指定
'戻り値:
'	GfSpc$		:空白文字列
'---------------------------------------
	Function GfSpc$(byval pintCnt%)[128]
		Private strSpc$[128]: strSpc$ = ""
		Private i%
		If pintCnt% > 128 Then
			pintCnt% = 128
		Endif
		For i%=1 To pintCnt%
			strSpc$ = strSpc$ + " "
		Next
		GfSpc$ = strSpc$
	End Function

'---------------------------------------
'右側半角空白削除（Rtrim）
'---------------------------------------
'Function GfRTrim$(pstrValue$)[255]
'引　数：
'	pstrValue$	:対象文字列
'戻り値:
'	GfRTrim$	:結果文字列
'---------------------------------------
	Function GfRTrim$(pstrValue$)[255]
		'エラー処理宣言
		On Error Goto GfRTrim.ErrProc

		Private intCnt%, intIdx%
		'最後尾から空白以外の文字を探す
		intCnt% = 0
		For intIdx% = Len(pstrValue$) To 1 Step -1
			If Mid$(pstrValue$, intIdx%, 1) <> " " Then
				intCnt% = intIdx%
				intIdx% = 1	'ループを止める
			Endif
		Next
		'右側全ての空白を排除
		GfRTrim$ = Left$(pstrValue$, intCnt%)
GfRTrim.Return	'関数戻り
		On Error Goto 0
		Exit Function
'-----
'エラー処理
'-----
GfRTrim.ErrProc
		GfRTrim$ = ""
		Resume GfRTrim.Return
	End Function

'---------------------------------------
'左側半角空白削除（Rtrim）
'---------------------------------------
'Function GfLTrim$(pstrValue$)[255]
'引　数：
'	pstrValue$	:対象文字列
'戻り値:
'	GfLTrim$	:結果文字列
'---------------------------------------
	Function GfLTrim$(pstrValue$)[255]
		'エラー処理宣言
		On Error Goto GfLTrim.ErrProc

		Private intCnt%
		strTemp$ = ""
		'--- 左端からスペースではない文字を探していく
		For intCnt% = 1 To Len(pstrValue$)
			If Mid$(pstrValue$, intCnt%, 1) <> " " Then
				'空白では無い文字以降の文字列を戻す
				GfLTrim$ = Mid$(pstrValue$, intCnt%)
				intCnt% = Len(pstrValue$)
			End If
		Next intCnt%
GfLTrim.Return	'関数戻り
		On Error Goto 0
		Exit Function
'-----
'エラー処理
'-----
GfLTrim.ErrProc
		GfLTrim$ = ""
		Resume GfLTrim.Return
	End Function

'---------------------------------------
'前後の半角空白削除（Trim）
'---------------------------------------
'Function GfTrim$(pstrValue$)[255]
'引　数：
'	pstrValue$	:対象文字列
'戻り値:
'	GfTrim$	:結果文字列
'---------------------------------------
	Function GfTrim$(pstrValue$)[255]
		Private strWK$[255]
		strWK$ = GfLTrim$(pstrValue$)	'左側空白削除
		GfTrim$ = GfRTrim$(strWK$)		'右側空白削除
	End Function

'---------------------------------------
'文字列繰り返し
'---------------------------------------
'Function GfString$(pintSize%, pstrChr$)[255]
'引　数：
'	pstrChr$	:対象文字
'	pintSize%	:文字数(最大1～255)
'戻り値:
'	GfString$	:結果文字列
'---------------------------------------
	Function GfString$(pstrChr$, pintSize%)[255]
		'エラー処理宣言
		On Error Goto GfString.ErrProc

		Private intCnt%, strTemp$[255]
		strTemp$ = ""
		'文字数分の文字列連結
		For intCnt% = 1 To pintSize%
			strTemp$ = strTemp$ + pstrChr$
		Next intCnt%
		GfString$ = strTemp$
GfString.Return	'関数戻り
		On Error Goto 0
		Exit Function
'-----
'エラー処理
'-----
GfString.ErrProc
		GfString$ = ""
		Resume GfString.Return
	End Function

これらの関数の実行ソースは以下の様になります。

	Sub DispData(Byval strP1$, Byval strP2$)
		PRINT "[" + strP1$ + "]=>[" + strP2$ + "]"
	End Sub

'-----
'実行はここから処理
'-----
Main
'	PRIVATE Num$, nRet%, intLoop%
	SCREEN 1				'漢字モード
	LOCATE , , 2			'カーソルをブロック表示

	PRINT "***GfRTrim$"
	PRIVATE W$, W2$
	W$ = "1234  "
	W2$ = GfRTrim$(W$)
	CALL DispData(W$, W2$)

	W$ = "12 34 "
	W2$ = GfRTrim$(W$)
	CALL DispData(W$, W2$)

	W$ = "12 34 A"
	W2$ = GfRTrim$(W$)
	CALL DispData(W$, W2$)

	PRINT "***GfLTrim$"
	W$ = "  1234"
	W2$ = GfLTrim$(W$)
	CALL DispData(W$, W2$)

	W$ = " 12 34 "
	W2$ = GfLTrim$(W$)
	CALL DispData(W$, W2$)

	W$ = " 1234 A"
	W2$ = GfLTrim$(W$)
	CALL DispData(W$, W2$)

	PRINT "***GfTrim$"
	W$ = "  1234  "
	W2$ = GfTrim$(W$)
	CALL DispData(W$, W2$)

	W$ = " 12 34  "
	W2$ = GfTrim$(W$)
	CALL DispData(W$, W2$)

	PRINT "***GfString$"
	W$ = GfString$("@", 10)
	PRINT W$;

	WAIT 0, &h01 'キー入力待ち
	END

これを実行すると以下の様な表示になります。



=====
2016/04/02：の時の情報

以前、ユーザ定義関数の値渡し・参照渡しについて記事にしましたが、 抜けていた項目もありますので、再度紹介します。

ユーザ定義関数を作成する場合に、何がしかの引数（ひきすう）を持つことはよくあります。 この引数の渡し方には、値渡し（call by value）と、 参照渡し（call by reference）の2種類があります。

値渡しとは、引数で渡された値を関数内では参照・変更できるが 呼出し元の変数に影響を与えない。
参照渡しとは、引数で渡された値を関数内で変更した場合、 呼出し元の変数に影響を与えます。 言い方を変えれば、関数内で参照する変数は、 呼出し元の変数を直接アクセスしています。 C言語的に言えば、参照つまり変数のポインタを引数で渡すことでしょうか。

よく関数は独立性を持たせるために、値渡しが推奨されますが、 参照渡しには参照渡しの良さもあります。 値渡しの値そのものは関数を呼出す時に、ユーザ定義関数用スタックに格納されます。 （スタックなので積むと表現した方がしっくりきますが）
渡される値が文字列で非常に長い場合などは、スタックの消費が多くなりますし、 値そのものをスタックにコピーされる時間が多くかかります。 これを抑えるために参照渡しにすることがあります。

また、配列データを引数で渡す時には値渡しではできなく、 参照渡しにしなければなりません。 配列データは多くのメモリ領域を必要とするため、 BHT-BASICではメモリもそんなに多くないので、 参照渡しの仕様にしたのだと思います。

以下のソースがその例なのですが以下の4個の関数を宣言しています。 ・TestByval の名前で値渡し関数
・TestByref の名前で参照渡し関数
・TestByval2%% の名前で値渡し値を返す関数
・TestArrByref の名前で配列・参照渡し関数

'File	[MODULE1.SRC]
'値渡し関数テスト
	Sub TestByval(byval pintWK%)
		pintWK% = pintWK% + 1		'引数の変数を変更できる
		PRINT "pintWK%="; pintWK%	'変更確認
	End Sub

'参照渡し関数テスト
	Sub TestByref(byref pintWK%)
		pintWK% = pintWK% + 1		'引数の変数を変更できる
		PRINT "pintWK%="; pintWK%	'
	End Sub

'値渡し関数テスト2
	Function TestByval2%(byval pintWK%)
		pintWK% = pintWK% + 1
		TestByval2% = pintWK%	'戻り値で引数変数値を返す
	End Function
	
'配列参照渡し関数テスト
	Sub TestArrByref(byref pintArrWK%())
		PRIVATE I%
		FOR I% = 1 TO 4
			PRINT "pintArrWK%("; I%; ")="; pintArrWK%(I%)
			'配列データに1加算
			pintArrWK%(I%) = pintArrWK%(I%) + 1
		NEXT I%
	End Sub

'-----
'実行はここから処理
'-----
Main
	SCREEN 1				'漢字モード
	LOCATE , , 2			'カーソルをブロック表示
	
	PRIVATE WK%
	WK% = 1
	'値渡しの関数コール
	PRINT "値渡しの関数..."
	Call TestByval(WK%)
	PRINT "WK%="; WK%
	
	'参照渡しの関数コール
	PRINT "参照渡しの関数..."
	Call TestByref(WK%)
	PRINT "WK%="; WK%

	'値渡しの関数2コール
	PRINT "値渡しの関数2..."
	WK% = TestByval2%(WK%)
	PRINT "WK%="; WK%

	'配列を渡すテスト
	PRIVATE I%, ArrWK%(4)
	FOR I% = 1 TO 4
		ArrWK%(I%) = I% * 10
	NEXT I%
	Call TestArrByref(ArrWK%)

	PRIVATE W$
	WAIT 0, &h01 'キー入力待ち
	W$ =Input$(1) '入力されたキーを取得して戻す。
	PRINT "TestArrByrefコール後"
	FOR I% = 1 TO 4
		PRINT "ArrWK%("; I%; ")="; ArrWK%(I%)
	NEXT I%

	WAIT 0, &h01			'キー入力待ち
	END

このソースの実行の様子は以下の様になります。（最初のキー入力待ちまでの表示）

値渡しの関数ではWK%が変更されないことが確認できます。 また、参照渡しの関数ではWK%が変更さたことが確認できます。

その後、配列データの変更がされたことを確認する表示が以下の様になります。


=====
2016/04/02：の時の情報

前回はBHT-BASICのキー入力の INPUT 命令はいまいち使いにくいのを記事にしましたが、 それを補うために汎用的な数値用キー入力関数を作ってみました。

以下のソースがその関数なのですが GfGetNum% の名前で、 引数は入力文字列を返す変数と、入力桁数を指定する変数があります。 この関数の戻り値としては[ENT]キー、[F1]キーのどちらで戻ったかを示す整数値フラグです。

実際のプログラムの実行はラベル Main の次からです。 プログラムの中で使用されるユーザ定義関数は、 使用される位置よりも前に宣言されていなければなりません。 そのため、実行開始がユーザ定義関数より下の方に位置しています。

この件ですが、一般的なコンパイラであれば、同じソース内のローカルなユーザ定義関数の 宣言を上の方で出来る様にして、ユーザ定義関数よりも前に実行している行が在っても 良いようにしてほしいものです。 共通関数的なユーザ定義関数は常にソースの最初の方に持ってこないといけないので ソースの位置制限があるのは問題だと思います。 （もっとも、共通関数は別ファイルにして関数定義のみを宣言させる方法もありますが）

'File	[MODULE1.SRC]
'---------------------------------------
'定数宣言:共通⇒(これは別ファイルにすべき)
'---------------------------------------
	Global GcTrue% : GcTrue% = -1
	Global GcFalse% : GcFalse% = 0
	Global GcGetRetNormal% : GcGetRetNormal% = 0  '[ENT]キーでの終了
	Global GcGetRetF1%     : GcGetRetF1% = 1      '[F1]キーでの終了

'---------------------------------------
'1文字キー入力関数
'---------------------------------------
'Function GfGetKey$
'戻り値:
'	GfGetKey$	:1文字を文字列で返す
'---------------------------------------
	Function GfGetKey$
		Wait 0, &h01 'キー入力待ち
		GfGetKey$ =Input$(1) '入力されたキーを取得して戻す。
	End Function

'---------------------------------------
'数値入力
'---------------------------------------
'Function GfGetNum%(Byref pstrNum$, Byval intUnit%)
'引　数：
'	pstrNum$	:数値文字列（新規入力の場合は、空白文字列を指定）
'	intUnit%	:入力桁数を指定
'戻り値:
'	GfGetNum%	:どのキーで終了したかを示す以下のフラグを返す
'				:	GcGetRetNormal% = 0  '[ENT]キーでの終了
'				:	GcGetRetF1% = 1      '[F1]キーでの終了
'---------------------------------------
	Function GfGetNum%(Byref pstrNum$, Byval intUnit%)
		'エラー処理宣言
		On Error Goto GfGetNum.ErrProc

		Private intX%, intY%, intLoop%, strInp$, intRet%, strBuf$, strSpace$
		'空白文字列・指定桁数
		strSpace$ = LEFT$("                    ", intUnit%)
		'カーソル位置退避
		intY% = CSRLIN
		intX% = POS(0)
		'結果格納領域の初期化
		strInp$ = pstrNum$
		'数字入力方式に設定
		OUT .pnKeyEnt, .pvKyNm
		
		intLoop% = GcTrue%
		While intLoop% = GcTrue%
			'数値表示
			Cursor OFF
			Locate intX%, intY%
			Print strSpace$;
			Locate intX%, intY%
			Print strInp$;
			Cursor ON
			
			strBuf$ = GfGetKey$ 'キーを1文字取得
			IF "0" <= strBuf$ And strBuf$ <= "9" THEN
				'数字の場合
				If strBuf$ = "0" Then
					If 0 < LEN(strInp$) AND LEN(strInp$) < intUnit% Then
						strInp$ =strInp$ + strBuf$
					Endif
				Else
					If LEN(strInp$) < intUnit% Then
						strInp$ =strInp$ + strBuf$
					Endif
				Endif
			ELSE
				'数字以外の場合
				SELECT strBuf$
					CASE CHR$(13)
						'[ENT]キー文字の場合
						If strInp$ <> "" Then
							pstrNum$ =  strInp$
							intLoop% = GcFalse%
							intRet% = GcGetRetNormal%
						Endif
					CASE CHR$(8)
						'[BS]キーの場合
						If  LEN(strInp$) > 0 Then
							strInp$ = LEFT$(strInp$, LEN(strInp$) - 1)
						Else
						Endif
					CASE CHR$(24)
						'[クリア]キーの場合
						strInp$ = ""
					CASE "A" 
						'[F1]キー文字の場合
						intLoop% = GcFalse%
						intRet% = GcGetRetF1%
				END SELECT
			ENDIF
		WEnd
		'戻り値
		GfGetNum% = intRet%

GfGetNum.Return	'関数戻り
		On Error Goto 0
		Exit Function
'-----
'エラー処理
'-----
GfGetNum.ErrProc
		GfGetNum% = GcGetRetNormal%
		pstrNum$ = "0"
		Resume GfGetNum.Return
	End Function

'-----
'実行はここから処理
'-----
Main
	PRIVATE Num$, nRet%, intLoop%
	SCREEN 1				'漢字モード
	LOCATE , , 2			'カーソルをブロック表示
	intLoop% = GcTrue%		'ループ実行フラグON
	WHILE (intLoop%)
		LOCATE 1, 1
		PRINT "数量=";
		nRet% = GfGetNum%(CNT$, 5)	'数字文字列入力
		If nRet% = GcGetRetF1% Then	'[F1]キー戻り??
			intLoop% = GcFalse%		'ループ実行フラグOFF
		ENDIF
		LOCATE 1, 3
		PRINT "入力=" + CNT$; 
	WEND
	WAIT 0, &h01			'キー入力待ち
	END

このソースの実行の様子は以下の様になります。

この関数ですが、[F1]キー戻りはありますが、F2,F3,F4での戻りも必要かとは思いますので、 この関数を利用される場合は、それらの拡張をしてみてください。

=====
2016/04/02：の時の情報