Another way of changing CMS Ready message (does not require R/W disk):
/* Display "<Userid>;" instead of "Ready;" */
parse value userid() with 1 initial 2 rest
name = initial || translate(rest, xrange('a', 'z'), xrange('A', 'Z'))
parse value diag(8, 'DISPLAY 634') with . addr .
call diag 8, 'STORE S'd2x(x2d(addr) + 3) right(length(name), 2, '0')
call diag 8, 'STORE S'd2x(x2d(addr) + 4) c2x(name)Ivica Brodaric BNZ
