Has nothing to do with apps or games. You're using Blitz+, rite? Take advantage of it.
Here's how you can combine events and 2d:
Graphics 640,480
timer=CreateTimer(50)
Repeat
WaitEvent()
If EventID()=$4001
Plot Rnd(640),Rnd(480)
EndIf
If EventID()=$101
Cls
EndIf
Flip
Until KeyHit(1)
End