24 lines
394 B
Plaintext
24 lines
394 B
Plaintext
DEF Win:WINDOW
|
|
DEF Close:CHAR
|
|
DEF ScreenSizeX,ScreenSizeY:UINT
|
|
|
|
GETSCREENSIZE(ScreenSizeX,ScreenSizeY)
|
|
|
|
OPENWINDOW Win,0,0,ScreenSizeX,ScreenSizeY,NULL,NULL,"Goodbye program",&MainHandler
|
|
|
|
PRINT Win,"Goodbye, World!"
|
|
'Prints in upper left corner of the window (position 0,0).
|
|
|
|
WAITUNTIL Close=1
|
|
|
|
CLOSEWINDOW Win
|
|
|
|
END
|
|
|
|
SUB MainHandler
|
|
|
|
IF @MESSAGE=@IDCLOSEWINDOW THEN Close=1
|
|
|
|
RETURN
|
|
ENDSUB
|