#Endif; ! TARGET_

[ PrintCapitalised obj prop flag nocaps centred  length i width;
    ! a variation of PrintOrRun, capitalising the first letter and returning nothing

    if (obj ofclass String || prop == 0) {
        PrintToBuffer (StorageForShortName, 160, obj);
        flag = 1;
    }
    else
        if (obj.#prop > WORDSIZE || metaclass(obj.prop) == Routine or String) {
            PrintToBuffer(StorageForShortName, 160, obj, prop);
        }
        else
            if (obj.prop == NULL) rfalse;
            else                  return RunTimeError(2, obj, prop);

    length = StorageForShortName-->0;
    width = ScreenWidth();
    if (centred && length<width)
        spaces ( (width-length)/2 );
    if (~~nocaps)
        StorageForShortName->WORDSIZE = UpperCase(StorageForShortName->WORDSIZE);

    for (i=WORDSIZE: i<length+WORDSIZE: i++) print (char) StorageForShortName->i;

    if (flag == 0 && obj.#prop == WORDSIZE && metaclass(obj.prop) == String)
        new_line;
    return;
];