home *** CD-ROM | disk | FTP | other *** search
/ Power Programming / powerprogramming1994.iso / progtool / graphics / tcwind10.arc / WINDDEMO.C < prev    next >
Text File  |  1987-06-24  |  26KB  |  756 lines
  1. #define MAIN 1
  2. #include <stdarg.h>
  3. #include <window.h>
  4. #include <stdio.h>
  5. #include <dos.h>
  6. #include <bios.h>
  7. #include <string.h>
  8. #include <alloc.h>
  9. #include <mem.h>
  10.  
  11.  
  12. char *opnmsg;
  13. char *endmsg;
  14. char *compmsg;
  15. char *pwndmsg;
  16. char *prtmsg;
  17. char *menu1;
  18.  
  19. main()
  20. {
  21.  int x,y;
  22.  char c;
  23.  
  24. pwndmsg=
  25.  "    CALL: pwindf(col,row,color,""format"",arguments);\n"
  26.  "\n   Prints a formated string in the current window, with col and row\n"
  27.  "offset with respect to the start of the window. This function will not\n"
  28.  "print outside of the window. If col is less than the left side then col\n"
  29.  "will=left side.  If col is greater then the right side col will=left side.\n"
  30.  "If the string is to long to fit within the window it will be truncated.\n"
  31.  "If the string has a backward slash <n> inbedded in it, the rest of the\n"
  32.  "string will be printed on the next line.\n"
  33.  "\n   If row is less then the top row then row=top row. If row is greater\n"
  34.  "then the bottom row then the window will scroll up to accomodate the new\n"
  35.  "string.\n"
  36.  "\n   Format can be any of the printf format qualifiers as listed in your\n"
  37.  "manual.\n";
  38.  
  39. compmsg=
  40.  "  These routines are supplied in OBJECT format. There are five\n"
  41.  "different OBJECT modules as listed below:\n"
  42.  "\nWINDS.OBJ            Small   object module"
  43.  "\nWINDM.OBJ            Medium  object module"
  44.  "\nWINDC.OBJ            Compact object module"
  45.  "\nWINDL.OBJ            Large   object module"
  46.  "\nWINDH.OBJ            Huge    object module\n"
  47.  "\n  To use these routines link the module you wish to use with your\n"
  48.  "program. The easiest way is to use the PROJECT capabilities of Turbo C.\n"
  49.  "Be sure to use the correct OBJECT MODULE for your application.\n"
  50.  "\nOne of the sample programs supplied with Turbo C is an OBJECT MODULE\n"
  51.  "called MCMVSMEM.OBJ this is a fast screen write utilitiy. This module\n"
  52.  "must also be linked with your program as these window routines make\n"
  53.  "extensive use of this function.\n"
  54.  "\n  You must also include header file WINDOW.H in your program. This file\n"
  55.  "has the needed defines and function prototypes in it.";
  56.  
  57. endmsg=
  58.  "  These routines have been tested on a TANDY 1000A, PC LIMITED 286\n"
  59.  "EGA unit and an IBM XT. They should work with any CGA,EGA  PC\n"
  60.  "compatible computer. These have not been tested on a MONO system.\n"
  61.  "\n  If you are having any trouble getting these routines to work on\n"
  62.  "other machines, Please let me know and I will do what I can to help you\n"
  63.  "solve the problem.\n"
  64.  "\n  While these function have some error checking built in. It\n"
  65.  "is the programers responsibility to ensure correct usage.\n"
  66.  "\n If you have questions or comments you can reach me via mail on\n"
  67.  "                  GENIE:  Daniel R. Evans\n"
  68.  "\n While it is not necessary to have the source code to use the routines\n"
  69.  "in this package, you may purchase this code by sending $20.00  and your\n"
  70.  "return address to:\n"
  71.  "                  Daniel R. Evans\n"
  72.  "                  1902 Broughton Dr.\n"
  73.  "                  Peabody, MA 01960";
  74.  
  75.  
  76.  opnmsg=
  77.   "  Included in this package are all the routines for memory models,\n"
  78.   "SMALL-MEDIUM-COMPACT-LARGE-HUGE. To use these routines you will need\n"
  79.   "the fast screen write utility supplied with Turbo C called MCMVSMEM.OBJ.\n"
  80.   "\n  You are free to use these routines in any software you write, either\n"
  81.   "for your own use or to sell without a fee of any kind. You may distribute\n"
  82.   "these routines as long as the package remains intact. You may not charge\n"
  83.   "more then a reasonable duplication fee. You may not sell this package as\n"
  84.   "part of or as any kind of windowing software."
  85.   "\n             There are 18 functions with this package.\n"
  86.   "initwindow          clrscr          setcursor            screenmode\n"
  87.   "clrwind             mbox            mline                attr\n"
  88.   "mwind               rwind           wtitle               movwind\n"
  89.   "pwindf              pwindfc         gowindcr             waitkey\n"
  90.   "popupmenu           keyin\n"
  91.   "\n  These functions will be described in the following windows:";
  92.  
  93.  prtmsg=
  94.   "                    LIST OF ALL WINDOW ROUTINES\n"
  95.   "\n  void initwindow(void);"
  96.   "\n  void clrscr(attr(FG,BG),border color);"
  97.   "\n  void clrwind(Background Color);"
  98.   "\n  void setcursor(ON or OFF);"
  99.   "\n  void screenmode(color80 or color40);"
  100.   "\n  int  attr(Foreground color,Background color);"
  101.   "\n  void mwind(Col, Row, Endcol, Endrow, WindowColor, BorderColor,Bordertype);"
  102.   "\n  void mbox(Col, Row, Endcol, Endrow, Bordercolor, Bordertype);"
  103.   "\n  void mline(Col, Row, Length, Linedir, Linetype);"
  104.   "\n  void wtitle(Justify, Loc, attr(FG,BG), TITLE);"
  105.   "\n  void movwind(Newcol, Newrow);"
  106.   "\n  void rwind(void);"
  107.   "\n  void pwindfc(Row, attr(FG,BG), FORMAT, ARGUMENTS);"
  108.   "\n  void pwindf(Col, Row, attr(FG,BG), FORMAT, ARGUMENTS);"
  109.   "\n  void gowindcr(Col, Row);"
  110.   "\n  void waitkey(MORE or PRET);"
  111.   "\n  int keyin(void);"
  112.   "\n  char popupmenu(col, row, menu, windcolor,bordcolor,barcolor,bordtype);\n"
  113.   "\n If you have a printer hit the PRINT SCREEN key for a hard copy listing";
  114.  
  115.  initwindow();
  116.  screenmode(color80);
  117.  clrscr(attr(white,blue),red);
  118.  setcursor(off);
  119.  shadow=FALSE;
  120.  bordercolor=attr(yellow,red);
  121.  windowcolor=attr(white,blue);
  122.  for(x=0;x<79;x+=10)
  123.    mline(x,0,24,windowcolor,vert,sglline);
  124.  for(x=0;x<24;x+=3)
  125.    mline(0,x,79,windowcolor,hornz,sldline);
  126.  mwind(10,9,70,13,attr(yellow,blue),attr(yellow,red),sldbrdr);
  127.  pwindfc(1,attr(white,blue),"Window routines 1.0 for BORLAND'S Turbo C");
  128.  pwindfc(2,attr(white,blue),"By D.R. EVANS Copywrite (C) 1987");
  129.  sleep(2);
  130.  rwind();
  131.  clrscr(attr(white,blue),blue);
  132.  mwind(2,0,77,23,windowcolor,bordercolor,dblbrdr);
  133.  pwindfc(0,windowcolor,"Window Routines 1.0 for BORLAND'S TURBO C");
  134.  pwindfc(1,windowcolor,"By D.R. Evans Copywrite (C) 1987");
  135.  pwindf(0,3,windowcolor,"%s",opnmsg);
  136.  waitkey(PRET);
  137.  shinitwindow();
  138.  movwind(0,0);
  139.  shscroll();
  140.  rwind();
  141.  shclrscr();
  142.  movwind(40,0);
  143.  shclrwind();
  144.  movwind(0,11);
  145.  shscreenmode();
  146.  movwind(40,12);
  147.  shwait();
  148.  shglobal();
  149.  shsetcursor();
  150.  shmwind();
  151.  shborders();
  152.  shrwind();
  153.  movwind(0,0);
  154.  shmove();
  155.  movwind(40,0);
  156.  shattr();
  157.  movwind(0,11);
  158.  shgowind();
  159.  movwind(37,11);
  160.  shtitle();
  161.  shmbox();
  162.  shmline();
  163.  shpwindf();
  164.  shpwindfc();
  165.  shshadow();
  166.  shprint();
  167.  shpopup();
  168.  expcomp();
  169.  enddemo();
  170.  for(x=currentwind;x>0;x--)
  171.    rwind();
  172.  setcursor(on);
  173.  screenmode(color80);
  174.  clrscr(attr(white,black),black);
  175. }
  176.  
  177. shpopup()
  178. {
  179. char index;
  180. char *menu1,*popsyn,*menudef,*exitdef,*opdef,*retcdef,*usedef;
  181.  
  182.  usedef=
  183.   "  This is one way to use the character returned from the popupmenu\n"
  184.   "function. This is part of the routine used in this program\n"
  185.   "\nchar index;\n"
  186.   "\nwhile((index = popupmenu(10,5,menu1,attr(yellow,blue),attr(white,red),\n"
  187.   "      attr(white,red),dblbrdr)) != NULL) {\n"
  188.   " rwind();      \\* Remove the popupwindow !!! popup does not remove !!!*\\\n"
  189.   " switch(index)\n"
  190.   " {\n"
  191.   "   case 'P':\n"
  192.   "     mwind(0,11,79,23,windowcolor,bordercolor,sldbrdr);\n"
  193.   "     wtitle(CENTER,TOP,bordercolor,\" POPUPMENU SYNTAX \");\n"
  194.   "     pwindfc(0,windowcolor,\"CALLING CONVENTION\");\n"
  195.   "     pwindf(0,1,windowcolor,\"%s\",popsyn);\n"
  196.   "     waitkey(PRET);\n"
  197.   "     rwind();\n"
  198.   "     break;\n"
  199.   " }\n"
  200.   "}\n";
  201.  
  202.   retcdef=
  203.    "   The popup menu routine returns to the calling function with\n"
  204.    "the character of the menu item you selected.\n"
  205.    "   For example if you select Defining a Menu the \"D\" is returned\n"
  206.    "to the calling function";
  207.  
  208.   opdef=
  209.    "  To operate the menu, you use the up or down arrow keys\n"
  210.    "to move the hilited bar and the enter key to make the hilited\n"
  211.    "selection. You may also enter the hilited character to make\n"
  212.    "your selection.";
  213.  
  214.   exitdef=
  215.    "  If you hit \" ESC \" you will return to the calling function\n"
  216.    "with the return value of NULL.";
  217.   menu1=
  218.         " MAIN MENU \n"
  219.         " Menu Operation     \n"
  220.         " Popupmenu Syntax   \n"
  221.         " Defining a Menu    \n"
  222.         " Menu Return Code   \n"
  223.         " Use of Return Code \n"
  224.         " How to EXIT Menu   \n"
  225.         "MPDRUE\n";
  226.   popsyn =
  227.         "popupmenu(col, row, menu,windowcolor,bordercolor,hilitedcolor,bordtype);\n"
  228.         "\n WHERE:\n"
  229.         "         col and row are the upper left hand corner of the window\n"
  230.         "         Menu name is a pointer to a string (Explained in Menu Definition)\n"
  231.         "         Windowcolor is the window inside colors\n"
  232.         "         Bordercolor is the border colors\n"
  233.         "         Hilitedcolor is the reverse colors used in the bar\n"
  234.         "         Bordertype is the type of border around the window,same as mwind()\n";
  235.   menudef=
  236.         "Declare a pointer variable to a string.\n"
  237.         "char *menu1;   \\* set up pointer *\\\n"
  238.         "menu1 =                     Initilize pointer.\n"
  239.         " \" MAIN MENU \"             In the first line define the title,displayed\n"
  240.         " \"Menu Operation      \"  on the top border. On the next line, start\n"
  241.         " \"Defining a Menu     \"  defining the menu selections. You can have up\n"
  242.         " \"PopUpMenu Syntax    \"  to 20 menu selections in one window. All of the\n"
  243.         " \"Menu Return Code    \"  menu selections must be the same length.\n"
  244.         " \"Use of Return Code  \"    The popup menu routine checks the first menu\n"
  245.         " \"How to EXIT Menu    \"  selection after the title, and uses this\n"
  246.         " \"MDPRUE\";               length to decide the width of the menu.\n"
  247.         "\n  The last line of menu definition defines the characters that\n"
  248.         "can be directly entered to select an item from the menu, these must\n"
  249.         "be all CAPS. All the characters in this last line must also be\n"
  250.         "distinct. The coresponding letter in each menu selection must also\n"
  251.         "be in CAPS.\n"
  252.         "\n  For example the last line in this menu is \"MDPRUE\" this\n"
  253.         "coresponds to the P in \"PopUpMenu Syntax\", the D in \"Defining Menu\",\n"
  254.         "the M in \"Menu Operation\", the R in \"Menu Return Code\" and ....\n";
  255.  
  256.   while((index = popupmenu(10,5,menu1,attr(yellow,blue),attr(white,red),
  257.          attr(white,red),dblbrdr)) != NULL) {
  258.     rwind();
  259.     switch(index)
  260.     {
  261.       case 'P':
  262.         mwind(0,11,79,23,windowcolor,bordercolor,sldbrdr);
  263.         wtitle(CENTER,TOP,bordercolor," POPUPMENU SYNTAX ");
  264.         pwindfc(0,windowcolor,"CALLING CONVENTION");
  265.         pwindf(0,1,windowcolor,"%s",popsyn);
  266.         waitkey(PRET);
  267.         rwind();
  268.         break;
  269.       case 'D':
  270.         mwind(0,0,79,24,windowcolor,bordercolor,sldbrdr);
  271.         wtitle(CENTER,TOP,bordercolor," MENU DEFINITION ");
  272.         pwindfc(0,windowcolor,"MENU SETUP");
  273.         pwindf(0,1,windowcolor,"%s",menudef);
  274.         waitkey(PRET);
  275.         rwind();
  276.         break;
  277.       case 'M':
  278.         mwind(0,9,79,16,windowcolor,bordercolor,sldbrdr);
  279.         wtitle(CENTER,TOP,bordercolor," OPERATING MENU ");
  280.         pwindf(0,1,windowcolor,"%s",opdef);
  281.         waitkey(PRET);
  282.         rwind();
  283.         break;
  284.       case 'R':
  285.         mwind(0,9,79,16,windowcolor,bordercolor,sldbrdr);
  286.         wtitle(CENTER,TOP,bordercolor," RETURN CODE ");
  287.         pwindf(0,1,windowcolor,"%s",retcdef);
  288.         waitkey(PRET);
  289.         rwind();
  290.         break;
  291.       case 'U':
  292.         mwind(0,0,79,24,windowcolor,bordercolor,sldbrdr);
  293.         wtitle(CENTER,TOP,bordercolor," PROGRAM SETUP ");
  294.         pwindf(0,1,windowcolor,"%s",usedef);
  295.         waitkey(PRET);
  296.         rwind();
  297.         break;
  298.       case 'E':
  299.         mwind(0,10,79,14,windowcolor,bordercolor,sldbrdr);
  300.         wtitle(CENTER,TOP,bordercolor," EXITING MENU ");
  301.         pwindfc(0,windowcolor,"EXITING MENU WITHOUT A SELECTION");
  302.         pwindf(0,1,windowcolor,"%s",exitdef);
  303.         waitkey(PRET);
  304.         rwind();
  305.         break;
  306.     }
  307.   }
  308. }
  309.  
  310. shwait()
  311. {
  312. char *shwaitmsg,*shwaitmsg1,*shwaitmsg2,*shwaitmsg3;
  313. shwaitmsg=
  314.  " CALL: waitkey(PRET or MORE);\n"
  315.  "\n  If waitkey is called with MORE,\n"
  316.  "than a blinking - MORE - is printed\n"
  317.  "on the bottom border. The program\n"
  318.  "halts and waits for a key to be pressed\n";
  319. shwaitmsg1=
  320.  "\n  If waitkey is called with\n"
  321.  "PRET, than PRESS RETURN is printed\n"
  322.  "on the bottom border. The program\n"
  323.  "halts and waits for a key to be\n"
  324.  "pressed.\n";
  325. shwaitmsg2=
  326.  "\n  You can use the MORE qualifier\n"
  327.  "when you are going to scroll additional\n"
  328.  "information on the screen\n";
  329. shwaitmsg3=
  330.  "\n  You can use the PRET qualifier\n"
  331.  "when you are finished\n";
  332.  mwind(20,7,61,16,attr(yellow,blue),attr(yellow,red),sldbrdr);
  333.  wtitle(center,top,bordercolor," WAITKEY ");
  334.  pwindf(0,1,attr(yellow,blue),"%s",shwaitmsg);
  335.  waitkey(MORE);
  336.  pwindf(0,rowend,attr(yellow,blue),"%s",shwaitmsg1);
  337.  waitkey(PRET);
  338.  pwindf(0,rowend,attr(yellow,blue),"%s",shwaitmsg2);
  339.  waitkey(MORE);
  340.  pwindf(0,rowend,attr(yellow,blue),"%s",shwaitmsg3);
  341.  waitkey(PRET);
  342. }
  343.  
  344. shglobal()
  345. {
  346. char *shgbmsg,*shgbmsg1;
  347.  shgbmsg=
  348.   "  There are five global variables and one\n"
  349.   "Definition that you need to be aware of.\n"
  350.   "\nsnow:      If snow = TRUE then snow suppresion used for all routines.\n"
  351.   "           WSNOW is assigned as an enviromental variable,\n"
  352.   "           initwindow() checks the enviroment for WSNOW=remove.\n"
  353.   "           if this exists it uses snow suppresion else snow defaults\n"
  354.   "           to FALSE. This can be overridden by assigning snow=TRUE after\n"
  355.   "           the call to initwindow();\n"
  356.   "\nshadow:    If shadow = TRUE all windows displayed after this assignment\n"
  357.   "           will have shadows. initwindow() sets this to FALSE.\n"
  358.   "\nwindowcolor:\n"
  359.   "bordercolor:\n"
  360.   "             These two variables are convienent when you want to display\n"
  361.   "           a number of windows with the same default colors. You assign\n"
  362.   "           them to a color with the attr function\n"
  363.   "           i.e. windowcolor = attr(yellow,blue);";
  364.  shgbmsg1=
  365.   "\nrowend:\n"
  366.   "             This variable is set to the bottom border by the make window\n"
  367.   "           routine. You then use this to print on the bottom line of the\n"
  368.   "           window, which causes the window to scroll. If you print on the\n"
  369.   "           last line the window will not scroll. You must use rowend as \n"
  370.   "           the row to print on for scrolling.\n"
  371.   "\nMAXWIND:   This define is in window.h, currently set for 30 windows.\n"
  372.   "           You should set this value to the number of windows your\n"
  373.   "           application expects to use. The initwindow(); routine uses\n"
  374.   "           this define to set up the arrays for the window routines\n";
  375.  
  376.  mwind(0,0,79,24,attr(yellow,blue),attr(yellow,red),sldbrdr);
  377.  wtitle(center,top,bordercolor," GLOBAL VARIABLES");
  378.  pwindf(0,1,attr(yellow,blue),"%s",shgbmsg);
  379.  waitkey(MORE);
  380.  pwindf(0,rowend,attr(yellow,blue),"%s",shgbmsg1);
  381.  waitkey(PRET);
  382. }
  383.  
  384. shprint()
  385. {
  386.  mwind(0,0,79,24,attr(white,blue),attr(yellow,red),sglbrdr);
  387.  wtitle(center,top,attr(black,green)," PRINT ");
  388.  pwindf(0,1,attr(white,blue),"%s",prtmsg);
  389.  waitkey(PRET);
  390. }
  391.  
  392. enddemo()
  393. {
  394.  mwind(0,0,79,24,attr(white,blue),attr(yellow,red),sldbrdr);
  395.  pwindf(0,1,attr(white,blue),"%s",endmsg);
  396.  waitkey(PRET);
  397. }
  398.  
  399. expcomp()
  400. {
  401.  mwind(0,0,79,24,attr(white,blue),attr(yellow,red),sldbrdr);
  402.  wtitle(center,top,attr(black,green)," COMPILING ");
  403.  pwindf(0,1,attr(white,blue),"%s",compmsg);
  404.  waitkey(PRET);
  405. }
  406.  
  407.  
  408. shpwindfc()
  409. {
  410. char *pcwndmsg;
  411.  
  412. pcwndmsg=
  413.  "CALL: pwindfc(row,color,format,arguments);\n"
  414.  "\n   Prints a formatted string centered\n"
  415.  "in the current window at the row specified\n"
  416.  "\n   Format can be any of the printf format\n"
  417.  "qualifiers as listed in your manual.\n";
  418.  
  419.  mwind(15,5,65,19,attr(yellow,blue),attr(yellow,red),sldbrdr);
  420.  wtitle(center,top,attr(black,green)," PWINDFC ");
  421.  pwindfc(1,attr(yellow,blue),"%s",pcwndmsg);
  422.  waitkey(PRET);
  423. }
  424.  
  425. shpwindf()
  426. {
  427.  mwind(0,0,79,24,attr(cyan,black),attr(black,blue),dtpbrdr);
  428.  wtitle(center,top,attr(black,green)," PWINDF ");
  429.  pwindf(0,1,attr(cyan,black),"%s",pwndmsg);
  430.  waitkey(PRET);
  431. }
  432.  
  433. shmline()
  434. {
  435. char *mlinemsg;
  436. mlinemsg=
  437.  "       CALL: mline(col,row,length,color,linedir,linetype);\n"
  438.  "\nDraws a line on the screen starting at the col and row specified\n"
  439.  "and extending in linedir (hornz, vert) for length spaces. The line\n"
  440.  "will be drawn in the line type selected.\n"
  441.  "\nAvailable line types are double,single and solid.These are defined\n"
  442.  "in window.h";
  443.  
  444.  mwind(2,0,77,12,attr(cyan,black),attr(black,green),dtpbrdr);
  445.  wtitle(center,top,attr(black,green)," MLINE ");
  446.  pwindf(0,1,attr(yellow,black),"%s",mlinemsg);
  447.  waitkey(PRET);
  448. }
  449.  
  450. shmbox()
  451. {
  452. char *mboxmsg;
  453. mboxmsg=
  454.  "    CALL: mbox(col,row,endcol,endrow,bordercolor,bordertype);\n"
  455.  "\nDraws a box on the screen starting at the col and row specified\n"
  456.  "and extending to the diagonal corners specified by endcol and endrow.\n"
  457.  "\nThe box will be drawn in the bordercolor and bordertype selected.\n"
  458.  "\nThis function is used by mwind to draw the border and can be called\n"
  459.  "separately to draw a box on the screen without defining a window.";
  460.  
  461.  mwind(2,10,77,23,attr(cyan,black),attr(black,green),dtpbrdr);
  462.  wtitle(center,top,attr(black,green)," MBOX ");
  463.  pwindf(0,1,attr(yellow,black),"%s",mboxmsg);
  464.  waitkey(PRET);
  465. }
  466.  
  467. shtitle()
  468. {
  469. char *titlemsg;
  470.  titlemsg=
  471.   "CALL: wtitle(justify, loc, color, \"TITLE\");\n"
  472.   "Where justify= center,  left,  right.\n"
  473.   "      loc    = top,     bottom\n"
  474.   "      color  = any legal FG/BG color combination\n"
  475.   "      TITLE = any string enclosed in quotes\n"
  476.   "\ncenter,left,right,top,bottom are defined in window.h\n"
  477.   "in both upper and lower case.";
  478.  
  479.  mwind(10,7,70,20,attr(cyan,black),attr(yellow,blue),sglbrdr);
  480.  wtitle(center,top,bordercolor," WTITLE ");
  481.  pwindf(0,1,attr(yellow,black),"%s",titlemsg);
  482.  waitkey(PRET);
  483. }
  484.  
  485. shshadow()
  486. {
  487. int y,z;
  488. char *shmsg;
  489. shmsg=
  490.  " There is one special effect\n"
  491.  "available called shadowing. This\n"
  492.  "is set by the global var. (shadow).\n"
  493.  "if shadow=TRUE then shadowing is\n"
  494.  "in effect.";
  495.  shadow=TRUE;
  496.  
  497.  mwind(20,7,59,16,attr(yellow,blue),attr(yellow,red),sldbrdr);
  498.  wtitle(center,top,bordercolor," SHADOW ");
  499.  pwindf(0,1,attr(yellow,blue),"%s",shmsg);
  500.  waitkey(PRET);
  501.  mwind(0,0,79,24,attr(white,blue),attr(white,blue),dblbrdr);
  502.  for(y=2,z=0;z<=15;z+=6) {
  503.    mwind(2,y+z,20,y+3+z,attr(white,red),attr(yellow,red),dtpbrdr);
  504.    pwindfc(1,attr(yellow,blue),"shadow");
  505.    mwind(28,y+z,48,y+3+z,attr(white,red),attr(yellow,red),dtpbrdr);
  506.    pwindfc(1,attr(yellow,blue),"shadow");
  507.    mwind(58,y+z,76,y+3+z,attr(white,red),attr(yellow,red),dtpbrdr);
  508.    pwindfc(1,attr(yellow,blue),"shadow");
  509.  }
  510.  waitkey(PRET);
  511. }
  512.  
  513. shattr()
  514. {
  515. char *attrmsg;
  516. attrmsg=
  517.  "  CALL: attr(fg color, bg color);\n"
  518.  "Sets the color attributes. Two global\n"
  519.  "var have been defined in window.h,\n"
  520.  "windowcolor and bordercolor. You can\n"
  521.  "assign these to specific colors\n"
  522.  "i.e.windowcolor=attr(blue,red) or use\n"
  523.  "the attr call directly as in\n"
  524.  "wtitle(left,top,attr(white,red),\"TEST\")";
  525.  
  526.  mwind(20,7,61,18,attr(yellow,blue),attr(yellow,red),sldbrdr);
  527.  wtitle(center,top,bordercolor," ATTR ");
  528.  pwindf(0,1,attr(yellow,blue),"%s",attrmsg);
  529.  waitkey(PRET);
  530. }
  531.  
  532. shgowind()
  533. {
  534. char *gowindmsg;
  535.  gowindmsg=
  536.   "  CALL: gowindcr(int col, int row);     \n"
  537.   "Places the cursor at the col and row    \n"
  538.   "specified. These cordinates are with    \n"
  539.   "respect to the window. i.e.gowindcr(0,0)\n"
  540.   "is the top left corner of the window.     ";
  541.  
  542.  mwind(18,7,65,18,attr(yellow,blue),attr(yellow,red),sldbrdr);
  543.  wtitle(center,top,bordercolor," GOWINDCR ");
  544.  pwindfc(1,attr(yellow,blue),"%s",gowindmsg);
  545.  setcursor(ON);
  546.  gowindcr(0,0);
  547.  putch('L');
  548.  gowindcr(70,0);
  549.  putch('R');
  550.  gowindcr(0,12);
  551.  putch('L');
  552.  gowindcr(70,12);
  553.  putch('R');
  554.  gowindcr(15,6);
  555.  waitkey(PRET);
  556.  setcursor(OFF);
  557. }
  558.  
  559. shmove()
  560. {
  561. char *movmsg;
  562.  movmsg=
  563.   "   CALL: movwind(newcol,newrow);\n"
  564.   "Erases the current window and moves\n"
  565.   "it to the col and row specified.\n"
  566.   "Effects the current window only.\n"
  567.   "Press Return for a demo of the move\n"
  568.   "function.";
  569.  
  570.  mwind(20,7,59,16,attr(yellow,blue),attr(yellow,red),sldbrdr);
  571.  wtitle(center,top,bordercolor," MOVWIND ");
  572.  pwindf(0,1,attr(yellow,blue),"%s",movmsg);
  573.  waitkey(PRET);
  574.  movwind(0,0);
  575.  sleep(1);
  576.  movwind(40,11);
  577.  sleep(1);
  578. }
  579.  
  580. shrwind()
  581. {
  582. char *rwndmsg;
  583.  rwndmsg=
  584.   "       CALL: rwind();\n"
  585.   "Removes last window placed on screen.\n"
  586.   "There must be as many windows removed\n"
  587.   "as their are windows created.\n";
  588.  
  589.  mwind(20,7,59,16,attr(yellow,blue),attr(yellow,red),sldbrdr);
  590.  wtitle(center,top,bordercolor," RWIND ");
  591.  pwindf(0,1,attr(yellow,blue),"%s",rwndmsg);
  592.  waitkey(PRET);
  593. }
  594.  
  595. shsetcursor()
  596. {
  597. char *setcmsg;
  598. setcmsg=
  599.  "   CALL: setcursor(on/off);\n"
  600.  "\nTurns the cursor on and off.\n"
  601.  "ON and OFF are defined in window.h,\n"
  602.  "in both upper and lower case";
  603.  
  604.  mwind(20,7,59,16,attr(white,blue),bordercolor,dsdbrdr);
  605.  wtitle(center,top,bordercolor," SETCURSOR ");
  606.  pwindf(0,1,attr(white,blue),"%s",setcmsg);
  607.  waitkey(PRET);
  608. }
  609.  
  610. shmwind()
  611. {
  612. char *mwndmsg;
  613. mwndmsg=
  614.  "  CALL: mwind(col,row,endcol,endrow,windowcolor,bordercolor,bordertype);\n"
  615.  "\nDraws a window on the screen starting at the col and row specified\n"
  616.  "and extending to the diagonal corners specified by endcol and endrow.\n"
  617.  "\nThe window will be drawn in the windowcolor with a border of \n"
  618.  "bordercolor.\n\nPress return for bordertypes";
  619.  
  620.  mwind(2,8,77,21,attr(yellow,black),bordercolor,dsdbrdr);
  621.  wtitle(center,top,bordercolor," MWIND ");
  622.  pwindf(0,1,attr(yellow,black),"%s",mwndmsg);
  623.  waitkey(PRET);
  624. }
  625. shinitwindow()
  626. {
  627.  char *iwndmsg;
  628.  int x;
  629.  
  630.   iwndmsg=
  631.    "         CALL: initwindow();\n"
  632.    "\nThis function must be called before\n"
  633.    "any other routines in this package are\n"
  634.    "used.It sets up the window arrays, video\n"
  635.    "pointers, and checks the enviroment for\n"
  636.    "a define WSNOW=remove. If WSNOW is set\n"
  637.    "in the enviroment then all routines write\n"
  638.    "to the screen using snow supression.";
  639.  
  640.  mwind(18,5,61,18,attr(white,black),bordercolor,dblbrdr);
  641.  wtitle(center,top,bordercolor," INITWINDOW ");
  642.  pwindf(0,1,attr(white,black),"%s",iwndmsg);
  643.  waitkey(PRET);
  644. }
  645.  
  646. shscroll()
  647. {
  648. char *scrlmsg;
  649. int x;
  650.  scrlmsg=
  651.  "  With the two print window functions\n"
  652.  "( pwindf and pwindfc ) specifying a row\n"
  653.  "of 0 or a row equal to (var:rowend) cause the\n"
  654.  "window to scroll. In the first case down and\n"
  655.  "the second case up.\n"
  656.  "  A scrolling demo is next. Watch it, the\n"
  657.  "scroll goes fast";
  658.  mwind(18,5,65,18,attr(white,black),bordercolor,dblbrdr);
  659.  wtitle(center,top,bordercolor," SCROllING ");
  660.  pwindf(0,1,attr(white,black),"%s",scrlmsg);
  661.  waitkey(MORE);
  662.  for(x=0;x<=40;x++)
  663.    pwindf(0,rowend,attr(white,black),"scroll line up #%d",x);
  664.  waitkey(PRET);
  665.  for(x=0;x<=40;x++)
  666.    pwindf(0,0,attr(white,black),"scroll down line #%d",x);
  667.  waitkey(PRET);
  668. }
  669.  
  670.  
  671. shclrscr()
  672. {
  673. char *clrmsg;
  674. clrmsg=
  675.  "CALL:clrscr(attr(FG,BG), bord color);\n"
  676.  "\nClears screen and border to specified\n"
  677.  "color. Will not clear individual\n"
  678.  "windows. The colors are defined in\n"
  679.  "window.h, in both upper and lower\n"
  680.  "case.";
  681.  
  682.  mwind(20,7,59,18,attr(black,green),bordercolor,sldbrdr);
  683.  wtitle(center,top,bordercolor," CLRSCR ");
  684.  pwindf(0,1,attr(black,green),"%s",clrmsg);
  685.  waitkey(PRET);
  686. }
  687.  
  688. shclrwind()
  689. {
  690. char *clrwndmsg;
  691.  clrwndmsg=
  692.  "   CALL: clrwind(color);\n"
  693.  "\nClears current window to\n"
  694.  "selected color.";
  695.  
  696.  mwind(20,7,59,17,attr(yellow,blue),bordercolor,sldbrdr);
  697.  wtitle(center,top,bordercolor," CLRWIND ");
  698.  clrwind(blue);
  699.  pwindf(0,1,attr(yellow,blue),"%s",clrwndmsg);
  700.  waitkey(PRET);
  701. }
  702.  
  703. shscreenmode()
  704. {
  705. char *scrmsg;
  706. scrmsg=
  707.  "   CALL: screenmode(size)\n"
  708.  "\nSets the display screen mode.\n"
  709.  "color80 and color40 are defined\n"
  710.  "in window.h. The window functions\n"
  711.  "support both 80 and 40 col. modes.";
  712.  
  713.  mwind(20,7,59,16,attr(cyan,red),bordercolor,sglbrdr);
  714.  wtitle(center,top,bordercolor," SCREENMODE ");
  715.  pwindf(0,1,attr(cyan,red),"%s",scrmsg);
  716.  waitkey(PRET);
  717. }
  718.  
  719. shborders(void)
  720. {
  721.  char c;
  722.  int x;
  723.  
  724.  bordercolor=attr(yellow,red);
  725.  windowcolor=attr(white,blue);
  726.  mwind(10,0,72,8,windowcolor,bordercolor,dblbrdr);
  727.  pwindfc(0,windowcolor,"Border selection");
  728.  pwindf(1,1,windowcolor,"1) mwind(10,10,30,14,bordercolor,bordercolor,nobrdr);");
  729.  pwindf(1,2,windowcolor,"2) mwind(32,10,52,14,windowcolor,bordercolor,dblbrdr);");
  730.  pwindf(1,3,windowcolor,"3) mwind(55,10,75,14,windowcolor,bordercolor,sglbrdr);");
  731.  pwindf(1,4,windowcolor,"4) mwind(10,16,30,20,windowcolor,bordercolor,sldbrdr);");
  732.  pwindf(1,5,windowcolor,"5) mwind(32,16,52,20,windowcolor,bordercolor,dtpbrdr);");
  733.  pwindf(1,6,windowcolor,"6) mwind(55,16,75,20,windowcolor,bordercolor,dsdbrdr);");
  734.  mwind(7,10,27,14,bordercolor,bordercolor,nobrdr);
  735.  wtitle(left,top,bordercolor," #1 ");
  736.  pwindfc(1,windowcolor,"No Border");
  737.  mwind(30,10,50,14,windowcolor,bordercolor,dblbrdr);
  738.  wtitle(left,top,bordercolor," #2 ");
  739.  pwindfc(1,windowcolor,"Double Border");
  740.  mwind(53,10,73,14,windowcolor,bordercolor,sglbrdr);
  741.  wtitle(left,top,bordercolor," #3 ");
  742.  pwindfc(1,windowcolor,"Single Border");
  743.  mwind(7,16,27,20,windowcolor,bordercolor,sldbrdr);
  744.  wtitle(left,top,bordercolor," #4 ");
  745.  pwindfc(1,windowcolor,"Solid Border");
  746.  mwind(30,16,50,20,windowcolor,bordercolor,dtpbrdr);
  747.  wtitle(left,top,bordercolor," #5 ");
  748.  pwindfc(1,windowcolor,"Mixed Border");
  749.  mwind(53,16,73,20,windowcolor,bordercolor,dsdbrdr);
  750.  wtitle(left,top,bordercolor," #6 ");
  751.  pwindfc(1,windowcolor,"Mixed Border");
  752.  waitkey(PRET);
  753.  for(x=1;x<=7;x++)
  754.    rwind();
  755. }
  756.