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

declarar 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

bastante como ehedem en BASIC.


XProfan es para Glück kein Basic - es syntaktisch zwar a Basic angelehnt aber trotzdem para Glück no Basic. Auch el PiCoPrinzip spricht no para Basic porque lo son Basics con Kompilern welche nativen Code erzeugen y lo son No-Basics welche PiCo erzeugen.

Yo mi sólo - XProfan es sí kein altes Ding pero orientiert se sí a el aktuellen Gegebenheiten. So betrachtet es aber gänzlich falso el destroywindow (y sei lo el api) en %hwnd el Anwendung final. Lo debería como bastante normale Message durchgehen - Yo finde así lo auch esperado - y el es letztendlich mehr entscheidend como bastante como ehedem en BASIC {lo veces war - como lo aber destroywindow no gab} .

Hey, yo mi hier gehts en mi Lieblingsprogrammiersprache - el se trabajo como se gehört.  (Und destroywindow es nunmal no terminateprocess oder end) *g*