home *** CD-ROM | disk | FTP | other *** search
- /*
- * chemtab - a periodic table data base (C) 1990 Jim King (pulsar@lsrhs)
- *
- * variables.h Include file - basically a global file
- */
-
- #include <stdio.h>
- #include "tune.h"
-
- float x; /* global find() element */
- int sub1[120], /* Sorted elements stored here */
- xp, yp, /* Stop job handling */
- #ifdef LASERPRT
- laser, /* Laser print? */
- #endif LASERPRT
- #ifdef ReGIS
- regis, /* regis on/off flag */
- #endif ReGIS
- #ifdef TRANSCRIPT
- trans, /* transcript flag */
- #endif TRANSCRIPT
- gtot; /* total of sorted elements */
- #ifdef LASERPRT
- FILE *lsr;
- #endif LASERPRT
- FILE *fp; /* File pointer for the above flag */
-
- char lnm[80]; /* User's last name for transcript */
-
- struct dung { /* Sorting structure */
- int wch,
- sgn;
- float amt;
- } dosort[3];
-
- static char *mopts[] = { /* Main menu options */
- 0,
- "List information regarding one element",
- "Choose element's characteristics",
- "List information on all selected elements",
- "View periodic table showing positions of selected elements",
- "Use the graphing module",
- "Save your transcripts, Print them, and Quit",
- 0
- };
-
- /* If you are looking here because you want to change the 'close values'
- * and you do not understand the abbreviations in 'closevalues' then
- * the following list is in order (note the first element is
- "0", "0", "0", 0,
- * which means that the first value in the closevalues is 0
- */
-
- static struct op {
- char chst[30],
- upline[20],
- dnline[20];
- int dnum;
- } sopts[] = { /* Selecting options */
- "0", "0", "0", 0,
- "Atomic Number", "Greater Than", "Less Than", 0,
- "Atomic Mass", "Greater Than", "Less Than", 3,
- "Family (going up-dn)", "Greater Than", "Less Than", 0,
- "Row (going left-rt)", "Greater Than", "Less Than", 0,
- "Valence Electrons", "More Than", "Less Than", 0,
- "Melting Temperature", "Greater Than", "Less Than", 0,
- "Boiling Temperature", "Greater Than", "Less Than", 0,
- "Ionization Energy", "Greater Than", "Less Than", 0,
- "Discovery Year", "After", "Before", 0,
- "Electronegativity", "Greater Than", "Less Than", 1,
- "Specific Heat", "Greater Than", "Less Than", 3,
- "Density", "Greater Than", "Less Than", 2,
- "Atomic Radius", "Greater Than", "Smaller Than", 2,
- "Return to Main Menu", "0", "0", 0,
- "Clear ALL Characteristics", "0", "0", 0,
- "0", "0", "0", 0
- };
-
- #define EQUAL 0 /* Constants */
- #define GREATER 1
- #define LESS 2
- #define CLOSE 3
-