home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a079 / 1.img / FPDG.LZH / VOL2NUM0 / MISC / DIRECTIV.PRG < prev    next >
Encoding:
Text File  |  1993-02-01  |  839 b   |  23 lines
  1. *****************************************************************
  2. *     * 09/92               DIRECTIV.PRG                        *
  3. *****************************************************************
  4. *     * Author's Name: Jeb Long                                 *
  5. *     *                                                         *
  6. *     * Description:                                            *
  7. *     * This program illustrates the use of compiler directives *
  8. *     *                                                         *
  9. *****************************************************************
  10. #define _ADDX  (X+3)
  11. x=3
  12. ? x*_ADDX
  13. #IF "MAC"$upper(version())
  14.    ? "This is mac"
  15.    #elif "WINDOWS" $ upper(version())
  16.        ? "This is window"
  17. #ELSE
  18.     ? "This is DOS"
  19. #ENDIF
  20. #define m _mac && hello
  21. #define w _windows
  22. ? m,w    
  23.