XProfan

declare tmp$
cls
tmp$ = upper$(Par$(0))
run tmp$
end

declare tmp$
cls
tmp$ = upper$(Par$(0))
DestroyWindow(%HWnd)
run tmp$
en

declare tmp$
cls
tmp$ = upper$(Par$(0))
DestroyWindow(%HWnd)
run cmd
en

declare tmp$
cls
tmp$ = upper$(Par$(0))
run cmd
DestroyWindow(%HWnd)
end

usermessages 2
Print Moment...
settimer 2000:waitinput:killtimer
destroywindow(%hwnd)

whileloop 40

    sleep 10

wend

var dlg&=createwindow(0,Oha?,100,100,640,480)
waitinput

integrally How ehedem in BASIC.


XProfan is to that Happiness no Basic - its syntaktisch of course on Basic angelehnt but nevertheless to that Happiness not Basic. too the PiCoPrinzip speaks not for Basic because there's Basics with Kompilern which nativen code produce and there's not-Basics which PiCo produce.

I mean only - XProfan is Yes no altes thing separate orientiert itself Yes on whom actually Gegebenheiten. so viewing is But gänzlich wrong the destroywindow (and be it The api) on %hwnd The application exits. it ought to as integrally normal Message go through - I find so becomes it too expects - and this is letztendlich More definitive as integrally How ehedem in BASIC {it time was - as But destroywindow not given} .

Hey I my here GEHTS circa my Lieblingsprogrammiersprache - The should functions as itself heard.  (and destroywindow is nunmal not terminateprocess or end) *g*