home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD2.mdf / c / library / dos / math / pac / onlay.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-06-05  |  3.6 KB  |  107 lines
  1. /* onlay.c */
  2. /**********************************************************************
  3. *    File Name     : onlay.c
  4. *    Function      : draw initial pac screen
  5. *    Author        : Istvan Mohos, 1987
  6. ***********************************************************************/
  7.  
  8. #define SO standout()
  9. #define SE standend()
  10. #define uw 48
  11. #define re 78
  12. #define se 58
  13. #define sp " "
  14.  
  15. #include "defs.h"
  16.  
  17. onlay()
  18. {
  19.     register int i = TOP + 1, j = LBOUND;
  20.     static char *fid = "onlay";
  21.  
  22.     _TR
  23.  mvaddstr(UTOP,     ATOIX, "^A  asc");
  24.  mvaddstr(UTOP + 1, ATOIX, "^D  dec");
  25.  mvaddstr(UTOP + 2, ATOIX, "^O  oct");
  26.  mvaddstr(UTOP + 3, ATOIX, "^X  hex");
  27.  
  28.  SO;
  29.  mvaddstr(TOP, j, "  ");
  30.  mvaddstr(TOP, ULEFT, Titlq[0]);
  31.  SE;SO;
  32.  mvaddstr(i,j,sp);mvaddstr(i,uw,sp);mvaddstr(i,se,sp);mvaddstr(i++,re,sp);SE;SO;
  33.  mvaddstr(i,j,sp);mvaddstr(i,uw,sp);mvaddstr(i,se,sp);mvaddstr(i++,re,sp);SE;SO;
  34.  mvaddstr(i,j,sp);mvaddstr(i,uw,sp);mvaddstr(i,se,sp);mvaddstr(i++,re,sp);SE;SO;
  35.  mvaddstr(i,j,sp);mvaddstr(i,uw,sp);mvaddstr(i,se,sp);mvaddstr(i++,re,sp);SE;SO;
  36.  mvaddstr(i,j, "                                               LOAN      ");
  37.         mvaddstr(i,se,sp);mvaddstr(i++,re,sp);SE;SO;
  38.  
  39.     SO; mvaddstr(STATY - 1, STATMSG - 1, "    GLOBALS     "); SE;
  40.  
  41.     i = STACKTOP;
  42.     SO;
  43.     mvaddstr(i,j,"h");SE;addstr("   0");SO;mvaddstr(i,40,"amt");
  44.         mvaddstr(i,se,sp);mvaddstr(i++,re,sp);
  45.     mvaddstr(i,j,"i");SE;addstr("   0");SO;mvaddstr(i,40," % ");
  46.         mvaddstr(i,se,sp);mvaddstr(i++,re,sp);
  47.     mvaddstr(i,j,"j");SE;addstr("   0");SO;mvaddstr(i,40,"yrs");
  48.         mvaddstr(i,se,sp);mvaddstr(i++,re,sp);
  49.     mvaddstr(i,j,"k");SE;addstr("   0");SO;mvaddstr(i,40,"pay");
  50.         mvaddstr(i,se,sp);mvaddstr(i++,re,sp);
  51.     mvaddstr(i,j,"l");SE;addstr("   0");SO;mvaddstr(i,40,"^B ");
  52.         mvaddstr(i,se,sp);mvaddstr(i++,re,sp);
  53.     mvaddstr(i,j,"m");SE;addstr("   0");SO;mvaddstr(i,40,"   ");
  54.         mvaddstr(i,se,sp);mvaddstr(i++,re,sp);
  55.     mvaddstr(i,j,"n");SE;addstr("   0");SO;mvaddstr(i,40,"[le");
  56.         mvaddstr(i,se,sp);mvaddstr(i++,re,sp);
  57.     mvaddstr(i,j,"o");SE;addstr("   0");SO;mvaddstr(i,40,"]ri");
  58.         mvaddstr(i,se,sp);mvaddstr(i++,re,sp);
  59.     mvaddstr(i,j,"p");SE;addstr("   0");SO;mvaddstr(i,40,"{up");
  60.         mvaddstr(i,se,sp);mvaddstr(i++,re,sp);
  61.     mvaddstr(i,j,"q");SE;addstr("   0");SO;mvaddstr(i,40,"}dn");
  62.         mvaddstr(i,se,sp);mvaddstr(i++,re,sp);
  63.     mvaddstr(i,j,"r");SE;addstr("   0");SO;mvaddstr(i,40,"|cr");
  64.         mvaddstr(i,se,sp);mvaddstr(i++,re,sp);
  65.     mvaddstr(i,j,"s");SE;addstr("   0");SO;mvaddstr(i,40,"^Cl");
  66.         mvaddstr(i,se,sp);mvaddstr(i++,re,sp);
  67.     mvaddstr(i,j,"t");SE;addstr("   0");SO;mvaddstr(i,40," BS");
  68.         mvaddstr(i,se,sp);mvaddstr(i++,re,sp);
  69.     mvaddstr(i,j,"u");SE;addstr("   0");SO;mvaddstr(i,40,"DEL");
  70.         mvaddstr(i,se,sp);mvaddstr(i++,re,sp);
  71.     mvaddstr(i,j,"v");SE;addstr("   0");SO;mvaddstr(i,40,">im");
  72.         mvaddstr(i,se,sp);mvaddstr(i++,re,sp);
  73.     mvaddstr(i,j,"w");SE;addstr("   0");SO;mvaddstr(i,40,"<ei");
  74.         mvaddstr(i,se,sp);mvaddstr(i++,re,sp);
  75.     mvaddstr(i, j, "  ");
  76.     mvaddstr(i, ULEFT, Basq[0]); SE;
  77. TR_
  78. }
  79.  
  80. update()
  81. {
  82.     register int ri;
  83.     int pyp, pxp;
  84.     static char *fid = "update";
  85.  
  86.     _TR
  87.     CYX;
  88.     for (ri = TREQ; --ri >= 0;) {
  89.         if (Titlq[ri] != ZERO)  {
  90.             standout();
  91.             mvaddstr(TOP, ULEFT, Titlq[ri]);
  92.             break;
  93.         }
  94.     }
  95.  
  96.     for (ri = BREQ; --ri >= 0;) {
  97.         if (Basq[ri] != ZERO)  {
  98.             mvaddstr(BOT, ULEFT, Basq[ri]);
  99.             standend();
  100.             break;
  101.         }
  102.     }
  103.  
  104.     PYX;
  105. TR_
  106. }
  107.