Cursor Position nach ACCEPT (*EXTACCDSP)

[Fuerchau]

SPECIAL-NAMES.
CURSOR IS CRT-CURSOR
CRT STATUS IS CRT-STATUS.

01 CRT-CURSOR.
05 CRT-LINE PIC 999 VALUE ZERO.
05 CRT-COL PIC 999 VALUE ZERO.