void SDWrite( file_handle fp, byte *buff, int len ) { //====================================================== if( fp == FStdOut ) { CheckBlips(); } FPutRec( fp, (char *)buff, len ); }
void FPutBuff( ftnfile *fcb ) { //================================ // Write a record to a file. if( IOCB->flags & IOF_NOCR ) { ((a_file *)fcb->fileptr)->attrs |= CC_NOCR; } if( fcb->flags & FTN_LOGICAL_RECORD ) { ((a_file *)fcb->fileptr)->attrs |= LOGICAL_RECORD; } FPutRec( fcb->fileptr, fcb->buffer, fcb->col ); if( IOCB->flags & IOF_NOCR ) { ((a_file *)fcb->fileptr)->attrs &= ~CC_NOCR; } ((a_file *)fcb->fileptr)->attrs &= ~( TRUNC_ON_WRITE | LOGICAL_RECORD ); }