Problem Statement

Some languages (like Gambas and Visual Basic) support two startup modes.   Applications written in these languages start with an open window that waits for events, and it is necessary to do some trickery to cause a main procedure to run instead.   Data driven or event driven languages may also require similar trickery to force a startup procedure to run.

Demonstrate the steps involved in causing the application to run a main procedure, rather than an event driven window at startup. Languages that always run from main() can be omitted from this task.

Let's start with the solution:

$ include "seed7_05.s7i";

const proc: main is func
  begin
    writeln("hello world");
  end func;

$ include "seed7_05.s7i";
  include "draw.s7i";
  include "keybd.s7i";

const proc: main is func
  begin
    screen(200, 200);
    KEYBOARD := GRAPH_KEYBOARD;
    ignore(getc(KEYBOARD));
  end func;