Files
Digital-Research-Source-Code/CPM OPERATING SYSTEMS/CPM 68K/1.0X SOURCES/v102/clib/cleanup.c
Sepp J Morris 31738079c4 Upload
Digital Research
2020-11-06 18:50:37 +01:00

21 lines
471 B
C

/**********************************************************************
*
* _ c l e a n u p F u n c t i o n
* ---------------------------------
* Copyright 1982 by Digital Research Inc. All rights reserved.
*
* "_cleanup" closes all buffered files
*
* Calling sequence:
* _cleanup()
*
***************************************************************************/
#include <stdio.h>
_cleanup()
{
REG WORD ii;
for( ii=0; ii<MAXFILES; ii++ )
fclose(&_iob[ii]);
}