home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / C / CXL.ZIP / CXLDEMO.C < prev    next >
Encoding:
C/C++ Source or Header  |  1988-07-25  |  40.1 KB  |  1,200 lines
  1. /*
  2.  
  3.         CXLDEMO.C  - A demonstration program for the CXL function library.
  4.  
  5.                     (c) 1987, 1988  by Mike Smedley
  6.  
  7. */
  8.  
  9.  
  10. #include    <bios.h>
  11. #include    <conio.h>
  12. #include    <dos.h>
  13. #include    <process.h>
  14. #include    <stdio.h>
  15. #include    <stdlib.h>
  16. #include    <string.h>
  17. #include    "cxldef.h"
  18. #include    "cxlkey.h"
  19. #include    "cxlmou.h"
  20. #include    "cxlstr.h"
  21. #include    "cxlvid.h"
  22. #include    "cxlwin.h"
  23.  
  24. #if     defined(__TURBOC__)
  25.     #include    <dir.h>
  26. #elif   defined(M_I86)  &&  !defined(__ZTC__)
  27.     #include    <direct.h>
  28.     #define     bioskey(a)          _bios_keybrd(a)
  29.     #define     findfirst(a,b,c)    _dos_findfirst(a,c,b)
  30.     #define     findnext(a)         _dos_findnext(a)
  31.     #define     ffblk               find_t
  32.     #define     ff_name             name
  33. #endif
  34.  
  35. /*  function prototypes  */
  36.  
  37. void    activate_demo   (void);
  38. void    attr_bord_demo  (void);
  39. void    change_prompt   (void);
  40. int     check_date      (char *buf);
  41. void    copy_demo       (void);
  42. void    data_entry_demo (void);
  43. void    directory       (void);
  44. void    edit_help       (void);
  45. void    error_exit      (void);
  46. void    execute         (void);
  47. void    exit_prog       (void);
  48. void    initialize      (void);
  49. void    line_inp_demo   (void);
  50. void    menu_demo       (void);
  51. void    move_demo       (void);
  52. void    opening_screen  (void);
  53. void    osshell         (void);
  54. void    pulldown_demo   (void);
  55. void    scrn_swap_demo  (void);
  56. void    scroll_demo     (void);
  57. void    str_select_demo (void);
  58. void    text_line_demo  (void);
  59. void    titl_resz_demo  (void);
  60. void    update_clock    (void);
  61. void    wrap_up         (void);
  62.  
  63. /*  global variables  */
  64.  
  65. WINDOW  w[10];
  66. int     row,col,*sbuf1;                                    
  67. char    fname[9],minit[2],lname[18],address[35],phone[12],ssan[11],
  68.         city[16],state[3],zip[10],todate[8],password[13],balance[7];
  69. char    *spaces="           ",*pressakey="Press a key",*p;
  70.  
  71. /*  main function  */
  72.  
  73. void main(void)
  74. {
  75.     initialize();
  76.     for(;;) {
  77.         opening_screen();
  78.         scroll_demo();
  79.         attr_bord_demo();
  80.         titl_resz_demo();
  81.         data_entry_demo();
  82.         line_inp_demo();
  83.         menu_demo();
  84.         str_select_demo();
  85.         text_line_demo();
  86.         scrn_swap_demo();
  87.         activate_demo();
  88.         move_demo();
  89.         copy_demo();
  90.         wrap_up();
  91.     }
  92. }
  93.  
  94. /*---------------------------------------------------------------------------*/
  95.  
  96. void activate_demo(void)
  97. {
  98.     register int i,j;
  99.  
  100.     /*  open demo window 6 and demonstrate activating of windows  */
  101.  
  102.     w[6]=wopen(11,48,21,77,1,LCYAN|_CYAN,LCYAN|_CYAN);
  103.     wtextattr(WHITE|_CYAN);
  104.     wputs("\n CXL's wactiv() is used to"
  105.           "\n activate a window, making"
  106.           "\n it available for windowing"
  107.           "\n operations.");
  108.     wprints(4,14,YELLOW|BLINK|_CYAN,pressakey);
  109.     if(waitkey()==ESC) exit_prog();
  110.     wprints(4,14,_CYAN,spaces);
  111.     for(i=0;i<=6;i++) {                      /*  activate windows 0 - 6  */
  112.         if(bioskey(1)) {                    /*  check for keypress      */
  113.             if(getch()==ESC) exit_prog();
  114.         }
  115.         wactiv(w[i]);
  116.         delay_(10);
  117.     }
  118.     w[7]=wopen(6,13,16,33,0,LCYAN,LCYAN|_BLUE);
  119.     if(!w[7]) error_exit();
  120.     w[8]=wopen(8,38,18,58,0,LMAGENTA,LMAGENTA|_RED);
  121.     if(!w[8]) error_exit();
  122.     for(i=0;i<300;i++) {
  123.         for(j=7;j<=8;j++) {
  124.             wactiv(w[j]);
  125.             wputs(j==7?"CXL  ":"DEMO  ");
  126.         }
  127.     }
  128.     wclose();
  129.     wclose();
  130. }
  131.  
  132. /*---------------------------------------------------------------------------*/
  133.  
  134. void attr_bord_demo(void)
  135. {
  136.     register int i;
  137.  
  138.     /*  open demo window 1 and demonstrate changing of
  139.         window attribute and changing of border style   */
  140.  
  141.     w[1]=wopen(10,35,23,65,0,YELLOW|_BLUE,YELLOW|_BLUE);
  142.     if(!w[1]) error_exit();
  143.     wtextattr(LCYAN|_BLUE);
  144.     wputs("\n  The wchgattr() function"
  145.           "\n  allows you to change the"
  146.           "\n  attribute of the active"
  147.           "\n  window.");
  148.     wcenters(6,YELLOW|BLINK|_BLUE,pressakey);
  149.     if(waitkey()==ESC) exit_prog();
  150.     wcenters(6,_BLUE,spaces);
  151.     wchgattr(LMAGENTA|_BLUE,WHITE|_GREEN);
  152.     delay_(12);
  153.     wchgattr(LGREEN|_LGREY,LMAGENTA|_RED);
  154.     delay_(12);
  155.     wchgattr(YELLOW|_BROWN,LCYAN|_BLUE);
  156.     if(bioskey(1)) {                            /*  check for keypress  */
  157.         if(getch()==ESC) exit_prog();
  158.     }
  159.     delay_(12);
  160.     wchgattr(YELLOW|_MAGENTA,YELLOW|_MAGENTA);
  161.     delay_(12);
  162.     wchgattr(LRED|_MAGENTA,WHITE|_MAGENTA);
  163.     delay_(12);
  164.     wtextattr(LGREEN|_MAGENTA);
  165.     wputs("\n\n  The wborder() function is"
  166.             "\n  used to change the style"
  167.             "\n  of the window's border.");
  168.     wcenters(10,YELLOW|BLINK|_MAGENTA,pressakey);
  169.     if(waitkey()==ESC) exit_prog();
  170.     wcenters(10,_MAGENTA,spaces);
  171.     for(i=1;i<=5;i++) {
  172.         delay_(18);
  173.         wborder(i);
  174.         if(bioskey(1)) {
  175.             if(getch()==ESC) exit_prog();
  176.         }
  177.     }
  178.     delay_(18);
  179.     wborder(0);
  180.     delay_(18);
  181. }
  182.  
  183. /*---------------------------------------------------------------------------*/
  184.  
  185. /*  this function is called in opening prompt.  changes colors of prompt  */
  186.  
  187. void change_prompt(void)
  188. {
  189.     static int i=LBLUE;
  190.  
  191.     wgotoxy(10,7);
  192.     setattr(i|_BLUE,23);
  193.     delay_(2);
  194.     i++;
  195.     if(i>WHITE) i=LBLUE;
  196. }
  197.  
  198. /*---------------------------------------------------------------------------*/
  199.  
  200. /*  this function validates the date field in the data entry window  */
  201.  
  202. int check_date(char *buf)
  203. {
  204.     int month,day;
  205.     char date[7];
  206.  
  207.     /*  parse date into numeric month and day  */
  208.  
  209.     if(!strblank(buf)) {
  210.         strcpy(date,buf);
  211.         *(date+4)='\0';
  212.         day=atoi(date+2);
  213.         *(date+2)='\0';
  214.         month=atoi(date);
  215.  
  216.         /*  validate numeric values  */
  217.  
  218.         if(month<1 || month>12) {
  219.             wperror("Invalid month");
  220.             return(1);
  221.         }
  222.         if(day<1 || day>31) {
  223.             wperror("Invalid day");
  224.             return(3);
  225.         }
  226.     }
  227.  
  228.     /*  return normally  */
  229.  
  230.     return(0);
  231. }
  232.  
  233. /*---------------------------------------------------------------------------*/
  234.  
  235. void copy_demo(void)
  236. {
  237.     /*  demonstrate making copies of the same window  */
  238.  
  239.     wtextattr(LRED|_BROWN);
  240.     wputs("\n\n The wcopy() function will"
  241.             "\n create a duplicate of the"
  242.             "\n active window.");
  243.     wprints(7,17,YELLOW|BLINK|_BROWN,pressakey);
  244.     if(waitkey()==ESC) exit_prog();
  245.     wprints(7,17,_BROWN,spaces);
  246.     w[8]=wcopy(0,0);
  247.     if(!w[8]) error_exit();
  248.     delay_(12);
  249.     w[9]=wcopy(1,37);
  250.     if(!w[9]) error_exit();
  251.     if(bioskey(1)) {                            /*  check for keypress  */
  252.         if(getch()==ESC) exit_prog();
  253.     }
  254.     delay_(18);
  255.     wclose();                                      /*  close copies  */
  256.     delay_(12);
  257.     wclose();
  258.     delay_(12);
  259. }
  260.  
  261. /*---------------------------------------------------------------------------*/
  262.  
  263. void data_entry_demo(void)
  264. {
  265.     register int i,mode;
  266.  
  267.     /*  open demo window 3 and demonstrate multi-field keyboard input  */
  268.  
  269.     w[3]=wopen(10,10,22,50,1,LCYAN|_BLUE,LCYAN|_BLUE);
  270.     if(!w[3]) error_exit();
  271.     wtextattr(LMAGENTA|_BLUE);
  272.     wputs("\n     The winpdef() and winpread()"
  273.           "\n     functions allow multi-field"
  274.           "\n     keyboard data entry.");
  275.     wcenters(5,YELLOW|BLINK|_BLUE,pressakey);
  276.     if(waitkey()==ESC) exit_prog();
  277.     wcenters(5,_BLUE,spaces);
  278.     setonkey(0x3b00,edit_help,0);     /* define F1 as help key */
  279.     for(mode=0;mode<=1;mode++) {
  280.         if(!wopen(5,5,22,60,3,LCYAN|_BLUE,LCYAN|_BLUE)) error_exit();
  281.         wtitle(mode?"[ Data Update Window ]":"[ Data Entry Window ]",
  282.             TLEFT,LCYAN|_BLUE);
  283.         wprints(1,2,WHITE|_BLUE,"First name?");
  284.         winpdef(1,15,fname,"MMMMMMMM",0,LGREEN|_LGREY,mode,NULL);
  285.         wprints(1,27,WHITE|_BLUE,"Initial?");
  286.         winpdef(1,37,minit,"U'.'",0,LGREEN|_LGREY,mode,NULL);
  287.         wprints(3,2,WHITE|_BLUE,"Last name?");
  288.         winpdef(3,15,lname,"MMMMMMMMMMMMAAAAA",0,LGREEN|_LGREY,mode,NULL);
  289.         wprints(5,2,WHITE|_BLUE,"Address?");
  290.         winpdef(5,15,address,"**********************************",'M',
  291.             LGREEN|_LGREY,mode,NULL);
  292.         wprints(7,2,WHITE|_BLUE,"City?");
  293.         winpdef(7,15,city,"MMMMMMMMMMMMMMM",0,LGREEN|_LGREY,mode,NULL);
  294.         wprints(7,35,WHITE|_BLUE,"State?");
  295.         winpdef(7,43,state,"UU",0,LGREEN|_LGREY,mode,NULL);
  296.         wprints(9,2,WHITE|_BLUE,"Zip Code?");
  297.         winpdef(9,15,zip,"#####'-'####",0,LGREEN|_LGREY,mode,NULL);
  298.         wprints(9,29,WHITE|_BLUE,"Phone?");
  299.         winpdef(9,37,phone,"'('###') '###'-'####",0,LGREEN|_LGREY,mode,NULL);
  300.         wprints(11,2,WHITE|_BLUE,"Today's Date");
  301.         winpdef(11,15,todate,"<01>#'/'<0123>#'/'<89>#",0,LGREEN|_LGREY,mode,
  302.             check_date);
  303.         wprints(11,30,WHITE|_BLUE,"SSAN?");
  304.         winpdef(11,37,ssan,"<0123456>##'-'##'-'####",0,LGREEN|_LGREY,
  305.             mode,NULL);
  306.         wprints(13,2,WHITE|_BLUE,"Password?");
  307.         winpdef(13,15,password,"UUUUUUUUUUUU",'P',LGREEN|_LGREY,mode,NULL);
  308.         wprints(13,31,WHITE|_BLUE,"Balance?");
  309.         winpdef(13,41,balance,"'$'< 0123456789>< 0123456789>##'.'##",0,
  310.             LGREEN|_LGREY,mode,NULL);
  311.         wcenters(15,LBLUE|_BLUE,
  312.             ">>> Press F1 for Help with Editing Keys <<<");
  313.         wtextattr(WHITE|_LGREY);
  314.         setcursz(6,7);                      /*  turn cursor on  */
  315.         i=winpread();                       /*  read all defined fields  */
  316.         setcursz(32,0);                     /*  turn cursor back off  */
  317.         if(i) exit_prog();                  /*  check for Esc press  */
  318.         wclose();
  319.         if(!mode) {
  320.             wtextattr(LGREEN|_BLUE);
  321.             wprintf("\n\n     CXL's data entry functions"
  322.                       "\n     also allow you to update"
  323.                       "\n     data that already exists!");
  324.             wcenters(9,YELLOW|BLINK|_BLUE,pressakey);
  325.             if(waitkey()==ESC) exit_prog();
  326.             wcenters(9,YELLOW|BLINK|_BLUE,spaces);
  327.         }
  328.     }
  329.     setonkey(0x3b00,NULL,0);          /* undefine F1 as help key */
  330. }
  331.  
  332. /*---------------------------------------------------------------------------*/
  333.  
  334. /*  this is the 'Directory' function under the 'File' menu  */
  335.  
  336. void directory(void)
  337. {
  338. #if     !defined(__ZTC__)
  339.     char filespec[41],file1[13],file2[13];
  340.     int i,done,lines,files;
  341.     struct ffblk ffblk;
  342.  
  343.     strcpy(filespec,"*.*");
  344.     memset(filespec+3,' ',37);
  345.     filespec[40]='\0';
  346.     setcursz(6,7);
  347.     if(!wopen(4,14,20,59,0,LRED|_MAGENTA,LCYAN|_BLUE)) exit(1);
  348.     wtitle("[ Directory ]",TCENTER,LRED|_MAGENTA);
  349.     for(;;) {
  350.         if(!wopen(6,6,8,49,0,LMAGENTA|_RED,LMAGENTA|_RED)) exit(1);
  351.         wtitle("[ Filespec ]",TCENTER,LMAGENTA|_RED);
  352.         winpdef(0,1,filespec,"****************************************",'U',
  353.             BLUE|_LGREY,1,NULL);
  354.         wtextattr(WHITE|_LGREY);
  355.         i=winpread();
  356.         wclose();
  357.         if(i) break;
  358.         wclear();
  359.         wtextattr(LCYAN|_BLUE);
  360.         files=0;
  361.         lines=0;
  362.         done=findfirst(filespec,&ffblk,0);
  363.         for(;;) {
  364.             if(done) break;
  365.             files++;
  366.             strcpy(file1,ffblk.ff_name);
  367.             if(!done) done=findnext(&ffblk);
  368.             strcpy(file2,ffblk.ff_name);
  369.             if(done) {
  370.                 file2[0]='\0';
  371.             }
  372.             else {
  373.                 files++;
  374.                 done=findnext(&ffblk);
  375.             }
  376.             if(done) {
  377.                 ffblk.ff_name[0]='\0';
  378.             }
  379.             else {
  380.                 files++;
  381.             }
  382.             wprintf(" %-15s%-15s%s\n",file1,file2,ffblk.ff_name);
  383.             lines++;
  384.             if(lines>=14) {
  385.                 wtextattr(LGREEN|_BLUE);
  386.                 wprintf(" Press a key to continue....");
  387.                 wtextattr(LCYAN|_BLUE);
  388.                 i=waitkey();
  389.                 wprintf("\r");
  390.                 if(i==ESC) break;
  391.                 lines=0;
  392.             }
  393.             if(!done) done=findnext(&ffblk);
  394.         }
  395.         wtextattr(LGREEN|_BLUE);
  396.         wprintf(" Files found:  %d  Press a key....",files);
  397.         waitkey();
  398.     }
  399.     setcursz(32,0);
  400.     wclose();
  401. #endif
  402. }
  403.  
  404. /*---------------------------------------------------------------------------*/
  405.  
  406. /*  this function performs user requested help from data entry window  */
  407.  
  408. void edit_help(void)
  409. {
  410.     int wrow,wcol;
  411.  
  412.     wreadcur(&wrow,&wcol);
  413.     if(!wopen(0,13,24,66,1,YELLOW|_RED,YELLOW|_RED)) error_exit();
  414.     wtitle("[ Editing Keys ]",TCENTER,YELLOW|_RED);
  415.     wtextattr(WHITE|_RED);
  416.     if(_cgasnow) waitvret();    /* if CGA, wait for vertical retrace */
  417.     wputs("\n"
  418.           "   LeftArrow       - previous position left\n"
  419.           "   RightArrow      - next position right\n"
  420.           "   UpArrow         - previous field up\n"
  421.           "   DownArrow       - next field down\n"
  422.           "   Ctrl-LeftArrow  - previous word left\n"
  423.           "   Ctrl-RightArrow - next word right\n"
  424.           "   Tab             - next field right\n"
  425.           "   Shift-Tab       - previous field left\n");
  426.     if(_cgasnow) waitvret();    /* if CGA, wait for vertical retrace */
  427.     wputs("   Enter           - process field\n"
  428.           "   Ctrl-Enter      - process all fields\n"
  429.           "   Home            - beginning of field\n"
  430.           "   End             - end of field\n"
  431.           "   Ctrl-Home       - beginning of 1st field\n"
  432.           "   Ctrl-End        - end of last field\n"
  433.           "   Ins             - insert character\n");
  434.     if(_cgasnow) waitvret();    /* if CGA, wait for vertical retrace */
  435.     wputs("   Del             - delete character\n"
  436.           "   BackSpace       - delete character left\n"
  437.           "   Ctrl-BackSpace  - delete word left\n"
  438.           "   Ctrl-T          - delete word right\n"
  439.           "   Ctrl-U          - delete to end of field\n"
  440.           "   Ctrl-Y          - delete to end of last field\n"
  441.           "   Esc             - abort data entry (and demo)");
  442.     waitkey();
  443.     wclose();
  444.     wpgotoxy(wrow,wcol);
  445. }
  446.  
  447. /*---------------------------------------------------------------------------*/
  448.  
  449. /*  this function will be called if an error occurs  */
  450.  
  451. void error_exit(void)
  452. {
  453.     setcursz(6,7);                       /*  set cursor size back to normal  */
  454.     if(_werrno) {
  455.         printf("\nError:  %s      ",werrmsg());    /*  display error message */
  456.     }
  457.     else {
  458.         abort();
  459.     }
  460.     exit(1);
  461. }
  462.  
  463. /*---------------------------------------------------------------------------*/
  464.  
  465. /*  this is the 'Execute' function under the 'File' menu  */
  466.  
  467. void execute(void)
  468. {
  469.     char command[61];
  470.     int *sptr;
  471.  
  472.     setcursz(6,7);
  473.     if(!wopen(8,7,10,70,0,LMAGENTA|_RED,LMAGENTA|_RED)) exit(1);
  474.     wtitle("[ Execute DOS Command ]",TCENTER,LMAGENTA|_RED);
  475.     for(;;) {
  476.         winpdef(0,1,command,"****************************************"
  477.             "********************",0,BLUE|_LGREY,0,NULL);
  478.         wtextattr(WHITE|_LGREY);
  479.         if(winpread()) break;
  480.         sptr=ssave();
  481.         if(sptr==NULL) exit(1);
  482.         printf(" \b");
  483.         clrscrn();
  484.         system(command);
  485.         printf("\nPress any key to continue....");
  486.         waitkey();
  487.         srestore(sptr);
  488.     }
  489.     setcursz(32,0);
  490.     wclose();
  491. }
  492.  
  493. /*---------------------------------------------------------------------------*/
  494.  
  495. /*  this function will be called if Escape or Ctrl-C is pressed  */
  496.  
  497. void exit_prog(void)
  498. {
  499.     clearkeys();                       /*  clear keyboard buffer  */
  500.     setcursz(6,7);                     /*  set cursor size back to normal  */
  501.     srestore(sbuf1);                   /*  restore original screen  */
  502.     gotoxy_(row,col);                  /*  restore original cursor position  */
  503.     exit(0);
  504. }
  505.  
  506. /*---------------------------------------------------------------------------*/
  507.  
  508. /*  this function initializes the demo (save screen, cursor)  */
  509.  
  510. void initialize(void)
  511. {
  512.     _cgasnow=0;                     /*  change to 1 if CGA snow  */
  513.     videoinit();                    /*  initialize video  */
  514.     if(msinit()) msspeed(128,64);   /*  initialize mouse  */
  515.     setonkey(0x2e03,exit_prog,0);   /*  attach Ctrl-C to exit function  */
  516.     sbuf1=ssave();                  /*  save current screen contents  */
  517.     if(!sbuf1) error_exit();
  518.     readcur(&row,&col);             /*  save current cursor position  */
  519.     setcursz(32,0);                 /*  turn off cursor  */
  520. }
  521.  
  522. /*---------------------------------------------------------------------------*/
  523.  
  524. void line_inp_demo(void)
  525. {
  526.     int i;
  527.  
  528.     /*  open demo window 4 and demonstrate formatted line input  */
  529.  
  530.     w[4]=wopen(8,41,20,78,3,WHITE|_MAGENTA,WHITE|_MAGENTA);
  531.     if(!w[4]) error_exit();
  532.     wtextattr(LGREEN|_MAGENTA);
  533.     wputs("\n    For complete control of"
  534.           "\n    keyboard line input, there"
  535.           "\n    is the winputsf() function.");
  536.     wcenters(5,YELLOW|BLINK|_MAGENTA,pressakey);
  537.     if(waitkey()==ESC) exit_prog();
  538.     wcenters(5,YELLOW|_MAGENTA,spaces);
  539.     wtextattr(WHITE|_MAGENTA);
  540.     setcursz(6,7);                          /*  turn cursor on        */
  541.     i=winputsf(phone,"'\n\n  Phone Number?    '!R--!"
  542.         "'('!+!###!-!') '!+!###!-!'-'!+!####");
  543.     if(i) exit_prog();                      /*  check for Esc press   */
  544.     wtextattr(WHITE|_MAGENTA);
  545.     i=winputsf(ssan,"'\n\n  Soc Sec Number?  '!R-!"
  546.         "<0123456>##!-!'-'!+!##!-!'-'!+!####");
  547.     if(i) exit_prog();                      /*  check for Esc press   */
  548.     wtextattr(WHITE|_MAGENTA);
  549.     i=winputsf(todate,"\"\n\n  Today's Date?    \"!R-!"
  550.         "<01>#!-!'/'!+!<0123>#!-!'/'!+!'19'<89>#");
  551.     if(i) exit_prog();                      /*  check for Esc press   */
  552.     setcursz(32,0);                         /*  turn cursor back off  */
  553. }
  554.  
  555. /*---------------------------------------------------------------------------*/
  556.  
  557. void menu_demo(void)
  558. {
  559.     register int i;
  560.  
  561.     /*  clear window 4 and demonstrate pull-down & pop-up menus  */
  562.  
  563.     wclear();
  564.     wtextattr(LGREEN|_MAGENTA);
  565.     wputs("\n  With the wmenudef() & wmenuget()"
  566.           "\n  functions, you can make pull-down"
  567.           "\n  and pop-up menus.");
  568.     wcenters(5,YELLOW|BLINK|_MAGENTA,pressakey);
  569.     if(waitkey()==ESC) exit_prog();
  570.     pulldown_demo();
  571.     if(waitkey()==ESC) exit_prog();
  572.     wcenters(5,_MAGENTA,spaces);
  573.     if(!wopen(10,35,17,51,0,YELLOW|_BLACK,YELLOW|_BLACK)) error_exit();
  574.     wmenudef(0,0,LCYAN|_RED," Add record    ",'A',WHITE|_RED,NULL);
  575.     wmenudef(1,0,LCYAN|_RED," Show record   ",'S',WHITE|_RED,NULL);
  576.     wmenudef(2,0,LCYAN|_RED," Delete record ",'D',WHITE|_RED,NULL);
  577.     wmenudef(3,0,LCYAN|_RED," Update record ",'U',WHITE|_RED,NULL);
  578.     wmenudef(4,0,LCYAN|_RED," Print record  ",'P',WHITE|_RED,NULL);
  579.     wmenudef(5,0,LCYAN|_RED," Quit program  ",'Q',WHITE|_RED,NULL);
  580.     i=wmenuget(WHITE|_GREEN,'A',0);
  581.     if(!i) exit_prog();
  582.     wclose();
  583.     wtextattr(WHITE|_MAGENTA);
  584.     wgotoxy(5,9);
  585.     wprintf("You selected %c!",i);
  586.     delay_(18);
  587.     wgotoxy(5,9);
  588.     wputs("                ");
  589.     wprints(3,22,YELLOW|_MAGENTA,"Select one:");
  590.     wmenudef(5,3,LCYAN|_MAGENTA,"Add record",'A',LRED|_MAGENTA,NULL);
  591.     wmenudef(5,18,LCYAN|_MAGENTA,"Show record",'S',LRED|_MAGENTA,NULL);
  592.     wmenudef(7,3,LCYAN|_MAGENTA,"Delete record",'D',LRED|_MAGENTA,NULL);
  593.     wmenudef(7,18,LCYAN|_MAGENTA,"Update record",'U',LRED|_MAGENTA,NULL);
  594.     wmenudef(9,3,LCYAN|_MAGENTA,"Print record",'P',LRED|_MAGENTA,NULL);
  595.     wmenudef(9,18,LCYAN|_MAGENTA,"Quit program",'Q',LRED|_MAGENTA,NULL);
  596.     i=wmenuget(LCYAN|_LGREY,'A',0);
  597.     wprints(3,22,_MAGENTA,spaces);
  598.     if(!i) exit_prog();
  599.     delay_(10);
  600.     if(!wopen(7,15,10,65,0,YELLOW,LCYAN|_BLUE)) error_exit();
  601.     wmenudef(0,0,LMAGENTA|_BLUE,"Add",'A',WHITE|_BLUE,
  602.         "Create a new record");
  603.     wmenudef(0,8,LMAGENTA|_BLUE,"Delete",'D',WHITE|_BLUE,
  604.         "Delete an existing record");
  605.     wmenudef(0,19,LMAGENTA|_BLUE,"Print",'P',WHITE|_BLUE,
  606.         "Print hardcopy of existing record");
  607.     wmenudef(0,28,LMAGENTA|_BLUE,"Show",'S',WHITE|_BLUE,
  608.         "Display an existing record on screen");
  609.     wmenudef(0,36,LMAGENTA|_BLUE,"Update",'U',WHITE|_BLUE,
  610.         "Modify an existing record");
  611.     wmenudef(0,45,LMAGENTA|_BLUE,"Quit",'Q',WHITE|_BLUE,
  612.         "Quit program and return to DOS");
  613.     wtextattr(LGREEN|_BLUE);
  614.     if(!wmenuget(YELLOW|_LGREY,'A',0)) exit_prog();
  615.     delay_(18);
  616.     wclose();
  617. }
  618.  
  619. /*---------------------------------------------------------------------------*/
  620.  
  621. void move_demo(void)
  622. {
  623.     /*  open demo window 7 and demonstrate moving of active window  */
  624.  
  625.     w[7]=wopen(4,2,16,35,2,LGREEN|_BROWN,LGREEN|_BROWN);
  626.     if(!w[7]) error_exit();
  627.     wtextattr(WHITE|_BROWN);
  628.     wputs("\n To move the active window,"
  629.           "\n the wmove() function is"
  630.           "\n used.");
  631.     wprints(3,8,YELLOW|BLINK|_BROWN,pressakey);
  632.     if(waitkey()==ESC) exit_prog();
  633.     wprints(3,8,_BROWN,spaces);
  634.     if(wmove(0,0)) error_exit();
  635.     delay_(12);
  636.     if(wmove(10,4)) error_exit();
  637.     delay_(12);
  638.     if(wmove(6,19)) error_exit();
  639.     delay_(12);
  640.     if(bioskey(1)) {                            /*  check for keypress  */
  641.         if(getch()==ESC) exit_prog();
  642.     }
  643.     if(wmove(1,13)) error_exit();
  644.     delay_(12);
  645.     if(wmove(2,35)) error_exit();
  646.     delay_(12);
  647.     if(wmove(11,35)) error_exit();
  648.     delay_(12);
  649. }
  650.  
  651. /*---------------------------------------------------------------------------*/
  652.  
  653. void opening_screen(void)
  654. {
  655.     register int i;
  656.  
  657.     /*  open up opening screen windows  */
  658.  
  659.     for(i=0;i<6;i++) {
  660.         w[i]=wopen(i,i+10,i+13,i+47,3,LCYAN|_BLUE,LCYAN|_BLUE);
  661.         if(!w[i]) error_exit();
  662.  
  663.         /*  sound tones of increasing pitch  */
  664.  
  665.         sound_(15000-((i+2)*1500),1);
  666.         sound_(12000-((i+1)*1500),1);
  667.     }
  668.  
  669.     wcenters(0,LRED," C X L ");
  670.     wcenters(1,LGREEN,"An Extended C Function Library");
  671.     wcenters(2,LGREEN,"Version 4.0");
  672.     wcenters(4,YELLOW,"by Mike Smedley");
  673.     wcenters(6,LMAGENTA,"(c) 1987, 1988 - All Rights Reserved");
  674.     wcenters(8,WHITE,"Demonstration Program");
  675.     wcenters(10,LCYAN|_BLUE,"Press any key to begin");
  676.  
  677.     /*  change colors of prompt until a key is pressed  */
  678.  
  679.     setkbloop(change_prompt);
  680.     if((getxch()&0x00ff)==ESC) exit_prog();
  681.     setkbloop(NULL);
  682.     wcenters(10,_BLUE,"                       ");
  683.  
  684.     /*  scroll the window's text up and out of the window  */
  685.  
  686.     for(i=0;i<10;i++) {
  687.         wscroll(1,SUP);
  688.         delay_(2);
  689.     }
  690.  
  691.     /*  close all open windows */
  692.  
  693.     for(i=5;i>=0;i--) {
  694.         wclose();
  695.         delay_(2);
  696.     }
  697. }
  698.  
  699. /*---------------------------------------------------------------------------*/
  700.  
  701. /*  this is the 'OS Shell' function under the 'File' menu  */
  702.  
  703. void osshell(void)
  704. {
  705.     int *sptr;
  706.  
  707.     setcursz(6,7);
  708.     sptr=ssave();
  709.     if(sptr==NULL) exit(1);
  710.     printf(" \b");
  711.     clrscrn();
  712.     printf("Type EXIT to return....\n");
  713.     system("COMMAND");
  714.     srestore(sptr);
  715.     setcursz(32,0);
  716. }
  717.  
  718. /*---------------------------------------------------------------------------*/
  719.  
  720. /*  This function is the demonstration of pull-down windows   */
  721.  
  722. void pulldown_demo(void)
  723. {
  724.     char m1;            /* return value from main menu */
  725.     char m2;            /* return value from a pull-down menu */
  726.  
  727.     if(!wopen(0,0,24,79,2,CYAN,CYAN)) error_exit();
  728.     setkbloop(update_clock);
  729.     wprints(0,0,_BLUE,"                                        "
  730.                       "                                      ");
  731.     wprints(1,0,CYAN,"────────────────────────────────────────"
  732.                       "──────────────────────────────────────");
  733.     wgotoxy(2,0);
  734.     wtextattr(YELLOW);
  735.     wputs("This is a sample editor interface to demonstrate how CXL's "
  736.           "wmenudef()\n"
  737.           "and wmenuget() functions can be used for pull-down menus.  "
  738.           "Use arrow keys\n"
  739.           "to move selection bar around and use the Esc key to back up "
  740.           "to the previous\n"
  741.           "menu.  Select 'Quit' from any menu to exit the pull-down demo.  "
  742.           "Try the\n"
  743.           "'Directory', 'Execute' and 'OS Shell' functions under the 'File' "
  744.           "menu.");
  745.     if(_mouse) {
  746.         wtextattr(WHITE);
  747.         wputs("\nSince you have a mouse, you can use it to move around and "
  748.               "select options!");
  749.     }
  750.  
  751.     /*  Initialize selection bar position to position 'F'.
  752.         The variable m1 is used for the load position of the main menu.
  753.         The variable m2 is used for how the main menu should act.
  754.         When an option is selected from the main menu, the selection will
  755.         be stored in m1 so that when the pull-down menu returns, the
  756.         selection bar will be positioned to the right position.
  757.         The pull-down menus will return their selection in variable m2.
  758.         If m1 == 0 then Escape was pressed from main menu or was set to 0 by
  759.         one of the pull-down menus.  Exit pull-down demo.               */
  760.  
  761.     m1='F';                         
  762.     m2=PDMAIN;
  763.     while(m1) {
  764.         wmenudef(0,2,YELLOW|_BLUE,"File",'F',LCYAN|_BLUE,NULL);
  765.         wmenudef(0,15,YELLOW|_BLUE,"Editing",'E',LCYAN|_BLUE,NULL);
  766.         wmenudef(0,31,YELLOW|_BLUE,"Defaults",'D',LCYAN|_BLUE,NULL);
  767.         wmenudef(0,47,YELLOW|_BLUE,"Help",'H',LCYAN|_BLUE,NULL);
  768.         wmenudef(0,59,YELLOW|_BLUE,"Options",'O',LCYAN|_BLUE,NULL);
  769.         if(wmenudef(0,73,YELLOW|_BLUE,"Quit",'Q',LCYAN|_BLUE,NULL))
  770.             error_exit();
  771.         m1=wmenuget(YELLOW|_MAGENTA,m1,m2);
  772.         switch(m1) {        /* test return value from main (horizontal) menu */
  773.             case 'F':
  774.  
  775.                 /* define pull-down menu for main menu option 'F' */
  776.  
  777.                 m2='L';
  778.                 if(!wopen(2,1,11,14,0,LGREY,LGREY)) error_exit();
  779.                 while(m2>PDMENU) {
  780.                     wmenudef(0,0,YELLOW|_BLUE," Load       ",'L',
  781.                         LCYAN|_BLUE,NULL);
  782.                     wmenudef(1,0,YELLOW|_BLUE," Save       ",'S',
  783.                         LCYAN|_BLUE,NULL);
  784.                     wmenudef(2,0,YELLOW|_BLUE," Rename     ",'R',
  785.                         LCYAN|_BLUE,NULL);
  786.                     wmenudef(3,0,YELLOW|_BLUE," New        ",'N',
  787.                         LCYAN|_BLUE,NULL);
  788.                     wmenudef(4,0,YELLOW|_BLUE," Directory  ",'D',
  789.                         LCYAN|_BLUE,NULL);
  790.                     wmenudef(5,0,YELLOW|_BLUE," Execute    ",'E',
  791.                         LCYAN|_BLUE,NULL);
  792.                     wmenudef(6,0,YELLOW|_BLUE," OS Shell   ",'O',
  793.                         LCYAN|_BLUE,NULL);
  794.                     if(wmenudef(7,0,YELLOW|_BLUE," Quit       ",'Q',
  795.                         LCYAN|_BLUE,NULL)) {
  796.                         error_exit();
  797.                     }
  798.                     m2=wmenuget(YELLOW|_MAGENTA,m2,PDMENU);
  799.                     switch(m2) {
  800.                         case 'D':
  801.                             directory();
  802.                             break;
  803.                         case 'E':
  804.                             execute();
  805.                             break;
  806.                         case 'O':
  807.                             osshell();
  808.                             break;
  809.                         case 'Q':
  810.                             m1=0;       /* needed to exit pull-down demo */
  811.                             m2=PDMAIN;
  812.                             break;
  813.                     }
  814.                 }
  815.                 wclose();
  816.                 break;
  817.             case 'E':
  818.  
  819.                 /* define pull-down menu for main menu option 'E' */
  820.  
  821.                 m2='C';
  822.                 if(!wopen(2,14,10,28,0,LGREY,LGREY)) error_exit();
  823.                 while(m2>PDMENU) {
  824.                     wmenudef(0,0,YELLOW|_BLUE," Cut         ",'C',
  825.                         LCYAN|_BLUE,NULL);
  826.                     wmenudef(1,0,YELLOW|_BLUE," Paste       ",'P',
  827.                         LCYAN|_BLUE,NULL);
  828.                     wmenudef(2,0,YELLOW|_BLUE," cOpy        ",'O',
  829.                         LCYAN|_BLUE,NULL);
  830.                     wmenudef(3,0,YELLOW|_BLUE," block Begin ",'B',
  831.                         LCYAN|_BLUE,NULL);
  832.                     wmenudef(4,0,YELLOW|_BLUE," block End   ",'E',
  833.                         LCYAN|_BLUE,NULL);
  834.                     wmenudef(5,0,YELLOW|_BLUE," Insert line ",'I',
  835.                         LCYAN|_BLUE,NULL);
  836.                     if(wmenudef(6,0,YELLOW|_BLUE," Delete line ",'D',
  837.                         LCYAN|_BLUE,NULL)) {
  838.                         error_exit();
  839.                     }
  840.                     m2=wmenuget(YELLOW|_MAGENTA,m2,PDMENU);
  841.                     /*  test m2 here  */
  842.                 }
  843.                 wclose();
  844.                 break;
  845.             case 'D':
  846.  
  847.                 /* define pull-down menu for main menu option 'D' */
  848.  
  849.                 m2='L';
  850.                 if(!wopen(2,30,11,52,0,LGREY,LGREY)) error_exit();
  851.                 while(m2>PDMENU) {
  852.                     wmenudef(0,0,YELLOW|_BLUE," Left margin       0 ",'L',
  853.                         LCYAN|_BLUE,NULL);
  854.                     wmenudef(1,0,YELLOW|_BLUE," Right margin     72 ",'R',
  855.                         LCYAN|_BLUE,NULL);
  856.                     wmenudef(2,0,YELLOW|_BLUE," Tab width         4 ",'T',
  857.                         LCYAN|_BLUE,NULL);
  858.                     wmenudef(3,0,YELLOW|_BLUE," tab eXpansion   yes ",'X',
  859.                         LCYAN|_BLUE,NULL);
  860.                     wmenudef(4,0,YELLOW|_BLUE," Insert mode     yes ",'I',
  861.                         LCYAN|_BLUE,NULL);
  862.                     wmenudef(5,0,YELLOW|_BLUE," iNdent mode     yes ",'N',
  863.                         LCYAN|_BLUE,NULL);
  864.                     wmenudef(6,0,YELLOW|_BLUE," Word wrap mode   no ",'W',
  865.                         LCYAN|_BLUE,NULL);
  866.                     if(wmenudef(7,0,YELLOW|_BLUE," Save defaults       ",'S',
  867.                         LCYAN|_BLUE,NULL)) {
  868.                         error_exit();
  869.                     }
  870.                     m2=wmenuget(YELLOW|_MAGENTA,m2,PDMENU);
  871.                     /*  test m2 here  */
  872.                 }
  873.                 wclose();
  874.                 break;
  875.             case 'H':
  876.  
  877.                 /* define pull-down menu for main menu option 'H' */
  878.  
  879.                 m2='H';
  880.                 if(!wopen(2,46,7,65,0,LGREY,LGREY)) error_exit();
  881.                 while(m2>PDMENU) {
  882.                     wmenudef(0,0,YELLOW|_BLUE," help on Help     ",'H',
  883.                         LCYAN|_BLUE,NULL);
  884.                     wmenudef(1,0,YELLOW|_BLUE," help on Editing  ",'E',
  885.                         LCYAN|_BLUE,NULL);
  886.                     wmenudef(2,0,YELLOW|_BLUE," help on Defaults ",'D',
  887.                         LCYAN|_BLUE,NULL);
  888.                     if(wmenudef(3,0,YELLOW|_BLUE," help on Options  ",'O',
  889.                         LCYAN|_BLUE,NULL)) {
  890.                             error_exit();
  891.                     }
  892.                     m2=wmenuget(YELLOW|_MAGENTA,m2,PDMENU);
  893.                     /*  test m2 here  */
  894.                 }
  895.                 wclose();
  896.                 break;
  897.             case 'O':
  898.  
  899.                 /* define pull-down menu for main menu option 'O' */
  900.  
  901.                 m2='Z';
  902.                 if(!wopen(2,56,8,77,0,LGREY,LGREY)) error_exit();
  903.                 while(m2>PDMENU) {
  904.                     wmenudef(0,0,YELLOW|_BLUE," screen siZe     43 ",'Z',
  905.                         LCYAN|_BLUE,NULL);
  906.                     wmenudef(1,0,YELLOW|_BLUE," Backup files   yes ",'B',
  907.                         LCYAN|_BLUE,NULL);
  908.                     wmenudef(2,0,YELLOW|_BLUE," bOxed display   no ",'O',
  909.                         LCYAN|_BLUE,NULL);
  910.                     wmenudef(3,0,YELLOW|_BLUE," Load options       ",'L',
  911.                         LCYAN|_BLUE,NULL);
  912.                     if(wmenudef(4,0,YELLOW|_BLUE," Save options       ",'S',
  913.                         LCYAN|_BLUE,NULL)) {
  914.                             error_exit();
  915.                     }
  916.                     m2=wmenuget(YELLOW|_MAGENTA,m2,PDMENU);
  917.                     /*  test m2 here  */
  918.                 }
  919.                 wclose();
  920.                 break;
  921.             case 'Q':
  922.  
  923.                 /* define pull-down menu for main menu option 'Q' */
  924.  
  925.                 m2='N';
  926.                 if(!wopen(2,60,7,78,0,LGREY,LGREY)) error_exit();
  927.                 while(m2>PDMENU) {
  928.                     wcclear(BLUE|_BLUE);
  929.                     wprints(0,2,WHITE|_BLUE,"Are you sure?");
  930.                     wmenudef(2,0,YELLOW|_BLUE,"       No        ",'N',
  931.                         LCYAN|_BLUE,NULL);
  932.                     if(wmenudef(3,0,YELLOW|_BLUE,"       Yes       ",'Y',
  933.                         LCYAN|_BLUE,NULL)) {
  934.                         error_exit();
  935.                     }
  936.                     m2=wmenuget(YELLOW|_MAGENTA,m2,PDMENU);
  937.                     switch(m2) {
  938.                         case 'N':
  939.                             m2=PDMAIN;
  940.                             break;
  941.                         case 'Y':
  942.                             m1=0;       /* needed to exit pull-down demo */
  943.                             m2=PDMAIN;
  944.                             break;
  945.                     }
  946.                 }
  947.                 wclose();
  948.                 break;
  949.         }
  950.     }
  951.     wclose();
  952.     setkbloop(NULL);
  953. }
  954.  
  955. /*---------------------------------------------------------------------------*/
  956.  
  957. void scrn_swap_demo(void)
  958. {
  959.     int *sbuf2;
  960.  
  961.     /*  open demo window 5 and demonstrate screen swapping  */
  962.  
  963.     w[5]=wopen(3,3,12,33,0,YELLOW|_BLACK,YELLOW|_BLACK);
  964.     if(!w[5]) error_exit();
  965.     wtextattr(LCYAN|_BLACK);
  966.     wputs("\n  The ssave() and srestore()"
  967.           "\n  functions allow screen"
  968.           "\n  swapping to/from memory.");
  969.     wcenters(5,LRED|BLINK|_BLACK,pressakey);
  970.     if(waitkey()==ESC) exit_prog();
  971.     wcenters(5,_BLACK,spaces);
  972.     sbuf2=ssave();
  973.     if(!sbuf2) error_exit();
  974.     gotoxy_(24,79);
  975.     clrscrn();
  976.     prints(10,27,LMAGENTA,"Press a key to return");
  977.     if(waitkey()==ESC) exit_prog();
  978.     srestore(sbuf2);
  979. }
  980.  
  981. /*---------------------------------------------------------------------------*/
  982.  
  983. void scroll_demo(void)
  984. {
  985.     register int i,j;
  986.  
  987.     /*  open demo window 0 and demonstrate text wraparound and
  988.         scrolling from within a window                          */
  989.  
  990.     w[0]=wopen(1,1,11,41,2,LMAGENTA|_RED,LMAGENTA|_RED);
  991.     if(!w[0]) error_exit();
  992.     wtextattr(LCYAN|_RED);
  993.     wprintf("\n CXL's window display functions like"
  994.             "\n wprintf() & wputs() allow wrap-around"
  995.             "\n and scrolling from within windows.");
  996.     wcenters(7,YELLOW|BLINK|_RED,pressakey);
  997.     if(waitkey()==ESC) exit_prog();
  998.     wcenters(7,_RED,spaces);
  999.     wgotoxy(8,0);
  1000.       for(i=0;i<15;i++) {
  1001.         if(bioskey(1)) {
  1002.             if(getch()==ESC) exit_prog();
  1003.             break;
  1004.         }
  1005.         for(j=DGREY;j<=WHITE;j++) {
  1006.             wtextattr(j|_RED);
  1007.             wputs("CXL   ");
  1008.             delay_(1);
  1009.         }
  1010.     }
  1011. }
  1012.  
  1013. /*---------------------------------------------------------------------------*/
  1014.  
  1015. void str_select_demo(void)
  1016. {
  1017.     char *p;
  1018.  
  1019.     /*  clear window 4 and demonstrate string selection  */
  1020.  
  1021.     wclear();
  1022.     wtextattr(LCYAN|_MAGENTA);
  1023.     wputs("\n The wsseldef() and wsselget()    "
  1024.           "\n functions allow you to select a  "
  1025.           "\n string by using the arrow keys.");
  1026.     wcenters(5,YELLOW|BLINK|_MAGENTA,pressakey);
  1027.     if(waitkey()==ESC) exit_prog();
  1028.     wcenters(5,_MAGENTA,spaces);
  1029.     wgotoxy(6,1);
  1030.     wtextattr(LGREEN|_MAGENTA);
  1031.     wprintf("Select printer device:  ");
  1032.     wsseldef("PRN");
  1033.     wsseldef("LPT1");
  1034.     wsseldef("LPT2");
  1035.     wsseldef("COM1");
  1036.     wsseldef("COM2");
  1037.     wsseldef("COM3");
  1038.     wsseldef("COM4");
  1039.     setcursz(6,7);
  1040.     p=wsselget(YELLOW|_MAGENTA);
  1041.     setcursz(32,0);
  1042.     if(p==NULL) exit_prog();
  1043.     wtextattr(LRED|_MAGENTA);
  1044.     wprintf("\n\n You selected:  %s",p);
  1045.     delay_(18);
  1046. }
  1047.  
  1048. /*---------------------------------------------------------------------------*/
  1049.  
  1050. void text_line_demo(void)
  1051. {
  1052.     /*  clear window 4 and demonstrate text line drawing  */
  1053.  
  1054.     wclear();
  1055.     wsize(22,78);
  1056.     wtextattr(LGREEN|_MAGENTA);
  1057.     wputs("\n The whline() & wvline() functions"
  1058.           "\n are used for drawing 'smart' text"
  1059.           "\n lines which will even make their "
  1060.           "\n own corners and intersections!   ");
  1061.     wcenters(6,YELLOW|BLINK|_MAGENTA,pressakey);
  1062.     if(waitkey()==ESC) exit_prog();
  1063.     wcenters(6,_MAGENTA,spaces);
  1064.     wtextattr(LCYAN|_MAGENTA);
  1065.     whline(6,6,24,3);
  1066.     delay_(18);
  1067.     wvline(6,6,4,3);
  1068.     delay_(18);
  1069.     whline(10,6,24,3);
  1070.     delay_(18);
  1071.     wtextattr(LBLUE|_MAGENTA);
  1072.     if(bioskey(1)) {                            /*  check for keypress  */
  1073.         if(getch()==ESC) exit_prog();
  1074.     }
  1075.     wvline(6,30,5,3);
  1076.     delay_(18);
  1077.     wvline(6,18,5,3);
  1078.     delay_(18);
  1079.     whline(7,6,25,3);
  1080.     delay_(18);
  1081.     wtextattr(LGREEN|_MAGENTA);
  1082.     if(bioskey(1)) {                            /*  check for keypress  */
  1083.         if(getch()==ESC) exit_prog();
  1084.     }
  1085.     whline(9,6,25,3);
  1086.     delay_(18);
  1087.     wvline(6,11,5,3);
  1088.     delay_(18);
  1089.     wvline(6,23,5,3);
  1090.     delay_(18);
  1091.     wtextattr(LMAGENTA|_MAGENTA);
  1092.     whline(8,6,25,3);
  1093.     delay_(18);
  1094. }
  1095.  
  1096. /*---------------------------------------------------------------------------*/
  1097.  
  1098. void titl_resz_demo(void)
  1099. {
  1100.     /*  open demo window 2 and demonstrate window titles
  1101.         and resizing of windows                           */
  1102.  
  1103.     w[2]=wopen(5,20,19,45,3,LCYAN|_GREEN,LCYAN|_GREEN);
  1104.     if(!w[2]) error_exit();
  1105.     wtextattr(WHITE|_GREEN);
  1106.     wputs("\n  The wtitle() function"
  1107.           "\n  allows you to give a"
  1108.           "\n  window a title.");
  1109.     wcenters(5,YELLOW|BLINK|_GREEN,pressakey);
  1110.     if(waitkey()==ESC) exit_prog();
  1111.     wcenters(5,_GREEN,spaces);
  1112.     wtitle("[ My Title ]",TLEFT,LCYAN|_GREEN);
  1113.     delay_(18);
  1114.     wtitle("[ My Title ]",TRIGHT,LCYAN|_GREEN);
  1115.     delay_(18);
  1116.     wtitle("[ My Title ]",TCENTER,LCYAN|_GREEN);
  1117.     wtextattr(LGREEN|_GREEN);
  1118.     wputs("\n\n\n  The wsize() function"
  1119.               "\n  allows you to resize"
  1120.               "\n  the active window.");
  1121.     wcenters(10,YELLOW|BLINK|_GREEN,pressakey);
  1122.     if(waitkey()==ESC) exit_prog();
  1123.     wcenters(10,_GREEN,spaces);
  1124.     wsize(19,60);
  1125.     delay_(12);;
  1126.     wsize(19,75);
  1127.     delay_(12);;
  1128.     wsize(24,75);
  1129.     delay_(12);;
  1130.     wsize(24,60);
  1131.     delay_(12);;
  1132.     wsize(24,45);
  1133.     delay_(12);;
  1134.     wsize(19,45);
  1135.     delay_(12);;
  1136. }
  1137.  
  1138. /*---------------------------------------------------------------------------*/
  1139.  
  1140. /*  this function updates the on-screen clock in the pull-down demo  */
  1141.  
  1142. void update_clock(void)
  1143. {
  1144.     printsd(0,70,LGREEN,systime(1));
  1145. }
  1146.  
  1147. /*---------------------------------------------------------------------------*/
  1148.  
  1149. void wrap_up(void)
  1150. {
  1151.     int ch;
  1152.  
  1153.     /*  close all windows except window 0  */
  1154.  
  1155.     while(_wtotal>1) {
  1156.         if(bioskey(1)) {
  1157.             if(getch()==ESC) exit_prog();
  1158.         }
  1159.         wclose();
  1160.         delay_(6);
  1161.     }
  1162.  
  1163.  
  1164.     /*  list other features of CXL  */
  1165.  
  1166.     wclear();
  1167.     wputs("  Other features of CXL include:\n");
  1168.     wtextattr(LGREEN|_RED);
  1169.     wputs("\n  - EGA 43 & VGA 50 line modes"
  1170.           "\n  - expanded memory usage"
  1171.           "\n  - screen/window swapping to disk"
  1172.           "\n  - advanced string manipulation"
  1173.           "\n  - equipment detection"
  1174.           "\n  - mouse functions"
  1175.           "\n  - printer functions");
  1176.     wprints(8,26,YELLOW|BLINK|_RED,pressakey);
  1177.     if(waitkey()==ESC) exit_prog();
  1178.     wprints(8,26,_RED,spaces);
  1179.  
  1180.     /*  get response from the keyboard, controlling input  */
  1181.  
  1182.     wclear();
  1183.     if(wmove(7,19)) error_exit();
  1184.     wgotoxy(3,11);
  1185.     wtextattr(WHITE|_RED);
  1186.     wputs("View demo again?  ");
  1187.     setcursz(7,1);                           /*  turn cursor on  */
  1188.     clearkeys();                             /*  clear keyboard buffer  */
  1189.     ch=wgetchf("YyNn",'Y');                  /*  get keyboard response  */
  1190.     setcursz(32,0);                          /*  turn cursor back off  */
  1191.     if(ch==ESC) exit_prog();                 /*  see if Esc was pressed  */
  1192.     wclose();
  1193.     if(ch=='Y'||ch=='y') {
  1194.     }
  1195.     else {
  1196.         exit_prog();
  1197.     }
  1198. }
  1199.  
  1200.