ランタイム システムで認識された、現在のスクリーン タイプを返します。
注: このルーチンはネイティブ COBOL でのみサポートされます。
構文:
call x"A7" using function-code
parameter
パラメーター:
|
呼び出しプロトタイプ使用時 (「説明の読み方」を参照) |
PIC |
function-code |
cblt-x1-compx |
pic x comp-x |
parameter |
cblt-x1-compx |
pic x comp-x |
入力パラメーター:
- function-code
- 値 25
出力パラメーター:
- parameter
- スクリーン タイプを示すビット設定は次のとおりです。
ビット 0 |
0 = モノクロ画面 |
ビット 1 |
予約済み |
ビット 2 |
予約済み |
ビット 3 |
1 = EGA 画面 |
ビット 4 |
1 = VGA 画面 |
ビット 5 |
予約済み |
ビット 6 |
予約済み |
ビット 7 |
予約済み |