23 lines
377 B
Plaintext
23 lines
377 B
Plaintext
DEF Win:WINDOW
|
|
DEF Close:CHAR
|
|
DEF ScreenSizeX,ScreenSizeY:INT
|
|
|
|
GETSCREENSIZE(ScreenSizeX,ScreenSizeY)
|
|
|
|
WINDOW Win,0,0,ScreenSizeX,ScreenSizeY,0,0,"Goodbye program",MainHandler
|
|
|
|
PRINT Win,"Goodbye, World!"
|
|
'Prints in the upper left corner of the window (position 0,0).
|
|
|
|
WAITUNTIL Close=1
|
|
|
|
CLOSEWINDOW Win
|
|
|
|
END
|
|
|
|
SUB MainHandler
|
|
|
|
IF @CLASS=@IDCLOSEWINDOW THEN Close=1
|
|
|
|
RETURN
|