I have a problem here

The main loop starts like this:

While KeyDown(1)

which says to keep running as long as the escape key is held down.
So the program ends immediately.