removed less common extensions and better examples

samples/Clarion/ConsoleSupport.inc

@@ -0,0 +1,48 @@
+_ConsoleSupport_ EQUATE(1)
+
+HANDLE      EQUATE(UNSIGNED)
+DWORD       EQUATE(ULONG)
+INVALID_HANDLE_VALUE        EQUATE(-1)
+INVALID_OTHER        EQUATE(-2)
+NULL        EQUATE(0)
+
+ 
+!************************************************************************************************************
+! Console-specific EQUATEs
+!************************************************************************************************************
+ENABLE_PROCESSED_INPUT      EQUATE(1) ! Input Mode flags
+ENABLE_LINE_INPUT   EQUATE(2)
+ENABLE_ECHO_INPUT   EQUATE(4)
+ENABLE_WINDOW_INPUT EQUATE(8)
+ENABLE_MOUSE_INPUT  EQUATE(16)
+ 
+ENABLE_PROCESSED_OUTPUT     EQUATE(1) ! Output Mode flags
+ENABLE_WRAP_AT_EOL_OUTPUT   EQUATE(2)
+ 
+STD_INPUT_HANDLE    EQUATE(-10) ! Standard input and output handles
+STD_OUTPUT_HANDLE   EQUATE(-11)
+STD_ERROR_HANDLE    EQUATE(-12)
+ 
+CONSOLE_TEXTMODE_BUFFER     EQUATE(1) ! The type of console screen buffer to create
+ATTACH_PARENT_PROCESS       EQUATE(-1)
+ 
+
+ConsoleSupport        Class(),Type,Module('ConsoleSupport.Clw'),LINK('ConsoleSupport.Clw',1)
+! Properties
+InputHandle Handle
+OutputHandle        Handle
+TextBuffer  CString(2048)
+OutBuffer   CString(2048)
+InBuffer    CString(2048)
+BytesWritten        Long
+BytesRead   Long
+Prefix 		CSTRING(21)
+! Methods
+Construct              PROCEDURE   
+Destruct               PROCEDURE () ,VIRTUAL 
+Init				   PROCEDURE () ,BYTE,PROC,VIRTUAL 
+WriteLine			   PROCEDURE (STRING pText) ,BYTE,PROC,VIRTUAL 
+ReadKey  			   PROCEDURE () ,STRING,PROC,VIRTUAL 
+
+                     END 
+!_EndOfInclude_