home *** CD-ROM | disk | FTP | other *** search
/ Software Recommendations - 1998 Season 1 / DNBCD4.iso / develop / tool / zip / UCFPE113.ZIP / CONSOLE.INC next >
Encoding:
Text File  |  1998-01-08  |  1.3 KB  |  75 lines
  1. Comment % Console.inc (C) Acp/UCF
  2.     %
  3. Init_Console Proc Near
  4.   PushA
  5.   Push -11                     ; nStdHandle [(dword)-11]
  6.   Call GetStdHandle
  7.   Cmp  EAX,-1
  8.   JE   Console_Error
  9.   Mov  [ConHandle],EAX
  10.   PopA
  11.   Ret
  12.  
  13. Console_Error:
  14.   PopA
  15.   Call MessageBeep
  16.   Push LARGE-1
  17.   Call ExitProcess
  18. Init_Console EndP
  19.  
  20. ;
  21.  
  22. Write_Console Macro oText, oNum_of_Chars
  23.   PushA
  24.   PushF 
  25.   Push 0                   ; lpvReserved
  26.   Push offset cchWritten   ; lpcchWritten
  27.   Push oNum_of_Chars       ; cchToWrite
  28.   Push oText               ; lpvBuffer
  29.   Push [ConHandle]         ; hConsoleOutput
  30.   Call WriteConsoleA       ; i will let u think about it :)
  31.   PopF
  32.   PopA
  33. EndM
  34.  
  35. ;
  36.  
  37. Set_Text_Color Macro hConsoleOutput, wAttributes
  38.   LOCAL TextChange_OK
  39.    
  40.   Push wAttributes
  41.   Push hConsoleOutput
  42.   Call SetConsoleTextAttribute
  43.   JNZ TextChange_OK
  44.  
  45.   Call MessageBeep
  46.   Push LARGE-1
  47.   Call ExitProcess
  48.  
  49. TextChange_OK:
  50. EndM
  51.  
  52. ;
  53.  
  54. Set_Cursor_Pos Proc
  55.   Push Word Ptr [YPos]
  56.   Push Word Ptr [XPos]
  57.   Push [ConHandle]
  58.   Call SetConsoleCursorPosition
  59.   Ret
  60. EndP
  61.  
  62. ;
  63.  
  64.  Extrn GetStdHandle : PROC
  65.  Extrn WriteConsoleA : PROC
  66.  Extrn SetConsoleTextAttribute : PROC
  67.  Extrn SetConsoleCursorPosition : PROC
  68.  
  69. .Data
  70.  ConHandle   dd 0
  71.  cchWritten  dd 0
  72.  
  73.  XPos dw 0001h
  74.  YPos dw 0002h
  75.