EnableExplicit

Define stdout
Define msg$
Define size.l
Define written.l

AllocConsole_() 
  stdout=GetStdHandle_(#STD_OUTPUT_HANDLE) 
  
  msg$="Textzeile 1"+Chr(13)+Chr(10) 
  size.l=Len(msg$) 
  WriteConsole_(stdout,@msg$,size, @written, #Null) 
  
  Delay(1000)
  
  msg$="Textzeile 2"+Chr(13)+Chr(10) 
  size.l=Len(msg$) 
  WriteConsole_(stdout,@msg$,size, @written, #Null) 
  
  Delay(1000)
FreeConsole_()