データベース桐

名札 メイン
変数宣言　固有，整数{ &OK , &i=0 }　/* 変数宣言　自動｜局所｜固有｜共通 , 文字列｜数値｜通貨｜整数｜長整数｜実数｜日時｜時間 */
変数宣言　固有,文字列{ &表ファイル , &focus }

　　フォルダ作成　"temp"，終了状態 = &OK
　　フォルダ作成　"old"，終了状態 = &OK

　　繰り返し　( #代入( &表ファイル , #ファイル検索( "*.tbl" , &i+1 ) ))
　　　　&i = &i+1
　　　　ファイル更新　&表ファイル,"temp",終了状態 = &OK
　　　　条件　（#日付( #ファイル属性( &表ファイル , 2 ) , 1 ) < #日付( #日時値 , 1 ))　ファイル更新　&表ファイル,"old",終了状態 = &OK
　　繰り返し終了
＊

手続き定義開始　ﾌｫｰﾑ::ﾀｲﾏｰ1()
　変数宣言　整数{ &OK }
　オブジェクト操作　@ﾌｫｰﾑ.ﾀｲﾏｰ1=0
　メソッド呼び出し　戻り値 =&OK,@b開く.実行()
手続き定義終了

手続き定義開始　利用者コード()
　利用者コード　会話
手続き定義終了