キーダウン
［F2］で、訂正モードにする。
手続き定義開始 ﾌｫｰﾑ::ｷｰﾀﾞｳﾝ(長整数 &仮想キーコード，長整数 &スキャンコード，長整数 &フラグ，参照 長整数 &処理中止)
ケース開始
ケース ( &仮想キーコード ＝ 113 )
メソッド呼び出し @ﾌｫｰﾑ.更新モード設定( 2 ) /* ［F2］訂正モード */
ケース ( &仮想キーコード ＝ 114 )
メソッド呼び出し @ﾌｫｰﾑ.更新モード設定( 6 ) /* ［F3］行追加モード */
ケース ( &仮想キーコード ＝ 115 )
メソッド呼び出し @ﾌｫｰﾑ.更新モード設定( 0 ) /* ［F4］表示モード（確定） */
ケース終了
手続き定義終了
［F2］で、訂正モードにする。
手続き定義開始 ﾌｫｰﾑ::ｷｰﾀﾞｳﾝ(長整数 &仮想キーコード，長整数 &スキャンコード，長整数 &フラグ，参照 長整数 &処理中止)
変数宣言 整数{ &mode }
メソッド呼び出し @ﾌｫｰﾑ.更新モード取得( &mode )
ケース開始
ケース ( &仮想キーコード ＝ 113 .AND &mode ＝ 0 )
メソッド呼び出し @ﾌｫｰﾑ.更新モード設定( 2 ) /* ［F2］訂正モード */
ケース ( &仮想キーコード ＝ 114 .AND &mode ＝ 0 )
メソッド呼び出し @ﾌｫｰﾑ.更新モード設定( 6 ) /* ［F3］行追加モード */
ケース ( &仮想キーコード ＝ 115 .AND &mode <> 0 )
メソッド呼び出し @ﾌｫｰﾑ.更新モード設定( 0 ) /* ［F4］表示モード（確定） */
ケース終了
手続き定義終了
