home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 2 / ctrom_ii_b.zip / ctrom_ii_b / PROGRAM / FOXPRO / SETCOLOR / SETCOLOR.PRG < prev   
Text File  |  1993-05-29  |  893b  |  44 lines
  1. ***************************************
  2. *
  3. * Programm:    setcolor.prg
  4. * Zweck:    Ersatz für die setcolor procedure
  5. * Datum:    28.05.93
  6. * Update:    
  7. * Compiler:    FCO 2.4 vom 1.5.93
  8. *
  9. * Autor:    Alfred Klich
  10. * 
  11.  
  12. #include system.hdr
  13. #include colors.hdr
  14. #include screen.hdr
  15. #include data.hdr
  16.  
  17. PROCEDURE SetColor
  18.   PARAMETERS VALUE UINT std, ;
  19.              VALUE UINT enhcd, ;
  20.              VALUE UINT score
  21.   VARDEF
  22.      UINT ax, bx, cx, dx, si, di, bp, ds, es
  23.      LOGICAL Ok
  24.   ENDDEF 
  25.  
  26.   *--- Farben setzen
  27.   __color_std = std
  28.   __color_enhcd = enhcd
  29.   
  30.   *--- INT 10h aufrufen und Rahmenfarbe setzen
  31.   ax = 0x0b00    && Funktion 11, AL = 0, AH = 11           
  32.   bx = score    && BL = 0 - 31
  33.   
  34.   Ok = Interrupt( 0x10, ax, bx, cx, dx, si, di, bp, ds, es )
  35. ENDPRO
  36.  
  37.  
  38. PROCEDURE Fco_Main
  39.    SetColor( &blue_white, &red_white, &cyan_black )
  40.    clear
  41.    ? "Hello World!"
  42. ENDPRO
  43.  
  44.