home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / Samples / CSAPE32.ARJ / EXAMPLES / CSCAPE.C < prev    next >
C/C++ Source or Header  |  1991-03-09  |  1KB  |  60 lines
  1. /*
  2.       cscape.c
  3.  
  4.     A simple C-scape demonstration.
  5.  
  6.     C-scape 3.2    Example Program
  7.     Copyright (c) 1988, 1990 by Oakland Group, Inc.
  8.     ALL RIGHTS RESERVED.
  9.  
  10.     Revision History:
  11.     -----------------
  12.      6/06/90 jmd    changed main to return an int
  13.      9/14/90 bkd    changed to use exit(0) instead of return(0).
  14.     10/19/90 pmcm    included ostdlib.h for exit(), added return(1)
  15.     12/01/90 ted    prototyped main, except if Turbo C++.
  16.     12/04/90 ted    restored "" includes for C-scape headers (not <> includes).
  17. */
  18.  
  19. #include <stdio.h>
  20.  
  21. #include "cscape.h"
  22. #include "ostdlib.h"    /*    for exit() */
  23.  
  24. /* Turbo C++ complains if main is prototyped */
  25. #ifndef TCP
  26. int main(void);
  27. #endif
  28.  
  29. int main(void)
  30. {
  31.     menu_type menu;
  32.     sed_type sed;
  33.     char phone[11];
  34.  
  35.     phone[0] = '\0';
  36.     
  37.     disp_Init(def_ModeText, FNULL);
  38.  
  39.     menu = menu_Open();
  40.  
  41.     menu_Printf(menu, "Phone Number: @f[(###) ###-####]", phone, &string_funcs);
  42.  
  43.       menu_Flush(menu);
  44.  
  45.     sed = sed_Open(menu); 
  46.  
  47.     sed_Repaint(sed);
  48.     sed_Go(sed);
  49.  
  50.     sed_Close(sed);
  51.  
  52.     disp_Close();        
  53.  
  54.     printf("\nphone = %s\n", phone);
  55.  
  56.     exit(0);
  57.     return(0);
  58. }
  59.  
  60.