|
1:旧家イトウ家の小技裏技（その１２） 江須扇 12/13 04:18 ------------------------------------------------------------------------------------------- その１２）ＪＣＬのＰＡＵＳＥ画面のカラー化 ------------------------------------------------------------------------------------------- ＪＣＬを実行する時に画面メッセージをＪＣＬで表示させてＰＡＵＳＥで止める事はよく有りませんか。 その時にカラー表示が出来たと思ったことは有りませんか？ 本日はカラー化の方法をご説明します。 制御符号の方法は（その４）をご確認ください。 ［例］ // S0101407; 00010 // S0101006; 00020 // DISPLAY DISPLAY DISPLAY; 00030 /PAUSE PAUSE PAUSE PAUSE; 00040 /> ; 00050 例は白にリバース表示しブリンキングをします。 一行目、二行目の ／／ Ｓ の間にはスペースとＥｓｃ（１６進で２７）が入っています。 ＪＣＬをＣＩＦ（カードイメージファイル）へ出力してそのままＤＯＳへ変換しましたので、画面上にＥｓｃが入っているのでおかしく表示されるかもしれません。 ------------------------------------------------------------------------------------------- ＃ＴＥＤＩＴは昔はＳＭＡＲＴのパラメータも変更できたのですが、 変更したパラメータでいろいろ問題が発生したのでＳＭＡＲＴやＲＤＢのパラメータは＃ＴＥＤＩＴでは変更できなくなりました。 たぶんその時かその後にやはり同じような理由で１６進入力を禁止にしたのではと私は想像しております。 そこでＥｓｃのＪＣＬへの入れ方は＃ＴＥＤＩＴでＥｓｃの無い状態で作成しそれをＣＩＦへ出力します。 出力したＦＩＬＥを＃ＦＩＬＥＭで４バイト目をＥｓｃに変更します。 ＃ＴＥＤＩＴで再度読み込みＪＳＬへ出力すれば完成です。 なお、一度作ったＥｓｃは＃ＴＥＤＩＴでその場所をさわらなければ変更は可能ですので、行、桁、色等は変更できます。 ＃ＦＩＬＥＭのパラメータ例は以下の通りです。 RUN #FILEM; *** ENTER PARAMETERS *** INPUT DEVICE; IDE=MSD INPUT COMPANY IDENTIFICATION; ICI= INPUT FILE NAME; IFI=CIF OUTPUT DEVICE; ODE=NO DELETED RECORD; DEL=NO PRINT DEVICE; PRD=PRN999 FIELD FORMAT; FLD=H80 |