tests/testbas.bas

   1 declare sub initEnvironment lib "bcl" alias "initEnvironment" ()
   2 declare sub terminateEnvironment lib "bcl" alias "terminateEnvironment" ()
   3 declare sub pumpEvents lib "bcl" alias "pumpEvents" ()
   4 declare function isKeyDown lib "bcl" alias "isKeyDown" (ByVal key as Integer) as Integer
   5 declare sub bclSleep lib "bcl" alias "sleep" (ByVal ms as Integer)
   6
   7 initEnvironment()
   8 do
   9 pumpEvents()
  10 bclSleep(10)
  11 loop until isKeyDown(27)
  12 terminateEnvironment()