JB 00.03.20i. [ROKKI-CL] 00.08.29 混 L=11881 C=0074 ＊v1.00 2000.03.20 ＊v1.01 2000.08.29 変数整理  ＊これは、ROKKI3.MYX をサブモジュ―ルとして使うサンプルを兼ねています。 ＊これのみでは、動作しません。  ＊ライブラリ登録の ROKKI3 が RUN:ROKKI3 で使える環境を前提としています。 ＊まだの方は、先ず、ROKKI3 をダウンロ―ドなさって下さい。 ＊尚、変数を整理しましたので、ROKKI3.MYX 1.00 以上が必要です。  ＊ファイル名 ROKKI-CL.MYX ＊必要ファイル ROKKI3.MYX 1.00（六輝計算サブモジュ―ル ＆ デ―タ）  ＊使用変数 Z71,Z72,(Z73無し),Z74,Z75,Z76,Z77 Z80 V41 V50 ＊使用変数 ROKKI3 渡し Z71,Z72,Z74,Z75,Z76,Z77 V50 戻り値 V0 ＊使用ペ―ジ 表画面、ROKKI3（裏画面） ＊生成ファイル なし ＊設定変更 無し ＊動作確認 マイツ―ル for Windows V1.16 2.00  ＊仕事 六輝入りカレンダ―作成。  ＊マイツ―ルバ―ジョンにより動作が違う問題について ＊ROKKI3 は、予備画面でなく裏画面を使います。 ＊これは、マイツ―ルに RBB で読み込めないバ―ジョンが有る為です。 ＊RB:ROKKI3.MYX も出来ないバ―ジョンがありますが、その場合は、 ＊マイツ―ルをバ―ジョンアップして下さい。   DATE:: ＊今日の日付  Z71=Z35: Z72=Z36: ＊年、月、日の代入   Z0=10000:  ACCPNUM:作成するカレンダ―の年は？[今年…実行] :1920:2020:Z71:?:  IF Z0=10000 THEN:STOP:ENDIF:  IF Z71<>Z0 THEN:Z71=Z0:ENDIF:  ＊月  Z0=10000:  ACCPNUM: 月は？[今月…実行] :1:12:Z72:?:  IF Z0=10000 THEN:STOP:ENDIF:  IF Z71=1920 AND Z72=2 THEN:GOTO ＊月:ENDIF: ＊対応外  IF Z72<>Z0 THEN:Z72=Z0:ENDIF:   Z75=Z71:Z76=Z72:Z77=0:   CALE:1:Z75:Z76:::::5:: ＊カレンダ―作成  EP:4:3:六輝: ＊項目の記入  V0=[T1,1]-".": ＊マイツ―ル信用して末日を取得  Z0=V0:Z74=Z0MOD100: ＊Z74 ROKKI3 への引き渡し末日  V50="暦": ＊V50 ROKKI3 へ親が居るとの伝言   DPOFF: ＊PRINT文ちらつき押さえ  FOR Z80=6 TO T1:  Z75=Z71:Z76=Z72: ＊年月を初期化  Z77=Z77+1: ＊Z77 日付の更新  RUN:ROKKI3:  EP:Z80:T:V0: ＊V0 ROKKI2 からの戻り値を記入  NEXT:  DPON:  V50="":   STOP:  きょうこ kyoko@takamiya.com  URL: http://www.takamiya.com/