home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / cobol / library / cwindow / ufc013.c < prev    next >
Encoding:
C/C++ Source or Header  |  1993-07-28  |  956 b   |  43 lines
  1. /*
  2. MSC/ MS Quick C
  3. ufc013.c -
  4. */
  5.  
  6. /* variable fields */
  7.     #include "_UFC01.h"
  8.     #include "order.h"
  9.  
  10. main() {
  11.  
  12. /* initialize mouse */
  13. MOUSEON();
  14. /* save screen */
  15.     FKZ = 0;
  16.     UNIF (&FKZ, FMT, FMT, &RET, &SM, Daten);
  17. /* clear screen and display new format */
  18.     FKZ = 1; SM=0; RET=99;
  19.     ORDER:
  20.     memcpy(FMT, "order   ", 8);
  21.     #include "order.i"
  22.     UNIF (&FKZ, FMT, order.product, &RET, &SM, Daten);
  23. /* same format when ESC */
  24.     if(RET == 99) 
  25.      { FKZ = 3; RET=22; goto ORDER; }
  26. /* program end when F10 */
  27.     if(RET == 110) goto ENDE;
  28. /* display empty format */
  29.     FKZ = 4; RET=99;
  30.     memcpy(FMT, "message ", 8);
  31.     #include "message.i"
  32.     UNIF (&FKZ, FMT, FMT, &RET, &SM, Daten);
  33. /* display new format without clear screen */
  34.     FKZ = 2; RET=99;
  35.     goto ORDER;
  36. /* display saved screen */
  37.     ENDE:
  38.     FKZ = 5;
  39.     UNIF (&FKZ, FMT, FMT, &RET, &SM, Daten);
  40. /* hide mouse */
  41. MOUSEOFF();
  42. }
  43.