ランタイム システムで認識された、現在のスクリーン タイプを返します。
注: このルーチンはネイティブ 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 |
予約済み |