home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / BEEHIVE / UTILITYS / XWP11SRC.ARC / XWPMSG.C < prev    next >
Text File  |  1990-07-21  |  2KB  |  87 lines
  1. /*    XWPMSG.C
  2. **
  3. **    Message and Error-Handling Routines for XWP
  4. */
  5.  
  6. #include "a:stdio.h"
  7. #include "b:oxege.h"
  8.  
  9. char FLerror;
  10. char tempfn[15];
  11.  
  12. initmsg()
  13.     {
  14.     fill( 23, 0, 23, 79, ' ' | ATTINV, ATTDIM );
  15.     cpoke( 23, 10, 62 | ATTINV, ATTDIM | ATTALT );
  16.     cpoke( 23, 40, 62 | ATTINV, ATTDIM | ATTALT );
  17.     cpoke( 23, 70, 62 | ATTINV, ATTDIM | ATTALT );
  18.     }
  19.  
  20. message( area, inverse, string )
  21.     int area, inverse;
  22.     char *string;
  23.     {
  24.     int inv, scolumn, ecolumn;
  25.     switch( area )
  26.         {
  27.         case 1:
  28.             scolumn = 0;
  29.             ecolumn = 9;
  30.             break;
  31.         case 2:
  32.             scolumn = 11;
  33.             ecolumn = 39;
  34.             break;
  35.         case 3:
  36.             scolumn = 41;
  37.             ecolumn = 69;
  38.             break;
  39.         }
  40.     inv = NULL;
  41.     if ( inverse == NULL ) { inv = ATTINV; }
  42.     fill( 23, scolumn, 23, ecolumn, ' ' | inv, ATTDIM );
  43.     if( inv ) { inv = 1; }
  44.     spoke( 23, scolumn+1, string, ATTDIM ); 
  45.     }
  46.  
  47. /*    ERROR - PRINT ERROR MESSAGE
  48. */
  49. error( string )
  50.     char string[];
  51.     {
  52.     FLerror = 255;
  53.     savewindow( 23, 0, 23, 40, 0, 4 );
  54.     fill( 23, 1, 23, 9, ' ' | ATTINV, ATTDIM );
  55.     fill( 23, 12, 23, 39, ' ' | ATTINV, ATTDIM );
  56.     spoke( 23, 1, " SORRY ", ATTBRT | ATTBLK | INVATT );
  57.     spoke( 23, 12, string, ATTDIM );
  58.     wait( 1 );
  59.     savewindow( 23, 0, 23, 40, 1, 4 );
  60.     }
  61.  
  62. /*    CHECK - SEE IF A FILE EXISTS
  63. */
  64. check( file )
  65.     char file[];
  66.     {
  67.     char *pointer;
  68.     strcpy( tempfn, file );
  69.     pointer = tempfn;
  70.     while( *pointer != NULL )
  71.         {
  72.         if ( *pointer == ' ' )
  73.             {
  74.             *pointer = NULL;
  75.             }
  76.         ++pointer;
  77.         }
  78.     strcat( tempfn, ".com" );
  79.     if ( fopen( tempfn, "r" ) == NULL )
  80.         {
  81.         strcpy( scratch, tempfn );
  82.         strcat( scratch, " NOT FOUND" );
  83.         error( stoupper( scratch ) );
  84.         }
  85.     }
  86.  ) == NULL )
  87.