home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a120 / 1.ddi / WATCOM_C / WAT40.C < prev    next >
Encoding:
C/C++ Source or Header  |  1992-07-14  |  835 b   |  33 lines
  1. /*------------------------------------------------------------------*/
  2. /* ╡{ªí└╔ªW║┘: wat40.c                                              */
  3. /*------------------------------------------------------------------*/
  4. #include <stdio.h>
  5. #include <dos.h>
  6.  
  7. void main()
  8. {
  9.    int handle;
  10.    char buf[34] = "FoxPro 2.0 ╡{ªí│]¡p---º▐Ñ⌐╗P╣Ω░╚.";
  11.  
  12.    /* ½╪Ñ▀ñ@¡╙ 33 ¡╙ª∞ñ╕▓╒ñjñpñº└╔«╫ */
  13.    if(_dos_creat("TEST.TXT",_A_NORMAL, &handle) != 0)
  14.    {
  15.        printf("╡L¬k½╪Ñ▀ª╣└╔«╫\n");
  16.    }
  17.    else
  18.    {
  19.        printf("ñwª¿Ñ\\ªa½╪Ñ▀└╔«╫ TEST.TXT\n");
  20.        if(write(handle, buf, strlen(buf)) == 33)
  21.        {
  22.           printf("ñw╝gñJ 33 ¡╙ª∞ñ╕▓╒ñº╕Ω«╞ª▄└╔«╫ TEST.TXT ññ\n");
  23.        }
  24.        else
  25.        {
  26.           printf("Ñ╝»αÑ┐▒`⌐╬º╣Ñ■╝gñJ╕Ω«╞\n");
  27.        }
  28.  
  29.        /* ├÷│¼ª╣└╔«╫ */
  30.        _dos_close(handle);
  31.    }
  32. }
  33.