home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a013 / 1.ddi / SOURCE.EXE / F_INITGL.PRG < prev    next >
Encoding:
Text File  |  1991-01-25  |  1.4 KB  |  51 lines
  1. *****************************************************************
  2. FUNCTION INITGLOBAL (syscolor)
  3. *****************************************************************
  4.  
  5. * Initialize global memory variables for Developer's Library
  6.  
  7. * Copyright(c) 1991 - James Occhiogrosso
  8.  
  9. PUBLIC colbarlo, colbarhi, colblink, colhelp1, colhelp2,        ;
  10.        colmemosay, colmemoget, colpword, colstd, colwindow,     ;
  11.        hitanykey
  12.  
  13.  
  14. IF syscolor == NIL
  15.      * System color variable is not initialized, use ISCOLOR
  16.      * to determine if color monitor is attached
  17.      syscolor = ISCOLOR()
  18. ENDIF
  19.  
  20. * Initialize global color variables
  21. IF syscolor
  22.      colstd     =  "w+/b, gr+/w,,, w+/w"
  23.      colhelp1   =  "gr+/b, w+/rb"        
  24.      colhelp2   =  "gr+/gr, w+/gr"
  25.      colbarlo   =  "gr+/b, gr+/r,,,bg+/r"
  26.      colbarhi   =  "gr+/rb, gr+/b"
  27.      colwindow  =  "w+/g, gr+/r"
  28.      colpword   =  "w+/b, b/b"
  29.      colblink   =  "w+*/g, gr+*/r"
  30.      colmemosay =  "bg+/w"
  31.      colmemoget =  "gr+/w"
  32. ELSE
  33.      colstd     =  "W/N, N/W"
  34.      colhelp1   =  "N/W, W/N"
  35.      colhelp2   =  colhelp1
  36.      colbarlo   =  colstd
  37.      colbarhi   =  colhelp1
  38.      colwindow  =  "N/W, N/W,,,W+/N"
  39.      colpword   =  "W/N, N/N"
  40.      colblink   =  "N*/W, N/W"
  41.      colmemosay =  colhelp1
  42.      colmemoget =  colhelp1
  43. ENDIF
  44.  
  45. hitanykey  =  " Press any key to proceed. "
  46.  
  47. RETURN NIL
  48.  
  49.  
  50.  
  51.