fp = fopen (name, "a+", "shr=get");
fp = fopen (name, TXT_A, "shr=get");
PUBLIC FILE *LYAppendToTxtFile ARGS1(char *, name){    FILE *fp;#ifdef VMS    fp = fopen (name, "a+", "shr=get");    chmod(name, HIDE_CHMOD);#else    SetDefaultMode(O_TEXT);    fp = OpenHiddenFile(name, "a+");    SetDefaultMode(O_BINARY);#endif    return fp;}