XProfan

 {$runtime prfrun32.xp9.nores.console.exe}
 {$crq}
Declare text$,x&,y&,con&,conrect#
Dim conrect#,20
Def AllocConsole(0) !"KERNEL32","AllocConsole"
Def FreeConsole(0) !"KERNEL32","FreeConsole"
Def GetStdHandle(1) !"KERNEL32","GetStdHandle"
Def SetConsoleTitle(1) !"KERNEL32","SetConsoleTitleA"
Def SetConsoleTextAttribute(2) !"KERNEL32","SetConsoleTextAttribute"
Def WriteConsole(5) !"KERNEL32","WriteConsoleA"

Proc PrintCon

    Parameters context$
    context$=context$+Chr$(13)+chr$(10)
    WriteConsole(con&,addr(context$),len(context$),addr(x&),0)

EndProc

AllocConsole()
text$="Console Testfenster "
SetConsoleTitle(addr(text$))
con&=GetStdHandle(-11)

Whileloop 100

    PrintCon "Test "+Str$(Rnd(1000))

Wend

WaitInput
FreeConsole()
End

 {$cleq}
Allocconsole()
Setconsoletitle("Meine Konsole")
cout "testWie lautet Dein Name? "
string s:=cin()
Freeconsole()
messagebox "Huhu" +s,,0
End

cout(string t){

    writeconsole(Getstdhandle(STD_OUTPUT_HANDLE),addr(t),len(t),0,0)

}

cin{

    mem mem=65535
    long c
    Readconsole(Getstdhandle(STD_INPUT_HANDLE),addr(mem),sizeof(mem)256,addr(c),0)
    string s:=char$(mem,0,c)
    dispose mem
    return s

r=#0000FF>}