Non looping languages a mystery to me.

;Load and initialize everything most likely as ugly globals.
Initialise()

;--------  THE MAIN LOOP
while not quit
      ....
      ....
      //you probably have some tween/delta timing code here too
      //and perhaps setting some vars from reading keyboard/mouse?
      ....
      ....
      updateGame()
      render2D()
      flip
end while
;----------- END LOOP
 
function initialize()
      graphics3D....
      lots of initializations code and loading stuff. (Often seen all jumbled together in same place)
end function

function updateGame()
    updateLevel()
    updateHero()
    updateCollisions();
    etc...
endfunction

function render2d()
    drawLevel()
    drawHero()
    drawScore()
   etc...
end function

function updateCollisions()
       whatever code to perform collisions etc..
end function

etc........

 
Class GameApp Extends App

  Field hero : CHero
  Field level : CLevel
  Field collisions : CCollisionManager

  Method OnCreate:Int()
        //Same as your initialize function above!  In this case though, all level and hero init code is tucked away tidily in level/hero classes. 
        //This is in a special part of the classes' code called a "constructor" which is basically a bit of code that fires 
        //when you call "new Level()" . This makes the code nice and tidy and very readable.

        level = new CLevel()  
        hero = new CHero()    
        collisions = new CCollisionManager(level , hero)
  End
 

  ///------------------------------this is your managed loop-------------------------
  Method OnUpdate:Int()
        //Same as your update function, but in this case runs the update -methods- inside the classes' code.
        level.update()
        hero.update()
        collisions.update()
  End
 
  Method OnRender:Int()
        level.render()
        hero.render()
        drawScore()
        etc...
  End
  //----------------------end of managed loop-------------------

End

Graphics 800,600,16

Color 250,50,50

Repeat

  Plot MouseX(),MouseY()

  If KeyDown(28)
    Color Rnd(1,255),Rnd(1,255),Rnd(1,255)
  EndIf

  Delay 5

Until KeyHit(1)

End

B3dScreen screen = new B3dScreen();
Input input = new Input();

screen.setGraphics (800,600,16)
screen.setColor(250,50,50)

Repeat

  screen.plot (input.getMouseX(), input.getMouseY()

  If input.isKeyDown(28)
       screen.setColor (math.rnd(1,255),  math.rnd(1,255), math.rnd(1,255))
  EndIf

  system.delay(5)

Until input.isKeyHit(1)

End

Type TCreature
    field  handle%
    field  x#=1
    field  y#=1
    field  z#=1
 End type

creature.TCreature= New TCreature

creature\handle = LoadEntity(file);
creature\x = 10.0;
creature\y = 10.0
creature\z = 10.0

MoveEntity(mytype\handle, mytype\x, mytype\y, mytype\z);

 Class CCreature
    field  handle%
    field  x#
    field  y#
    field  z#
 End Class

 Class CCreature
    field  handle%
    field  x#
    field  y#
    field  z#

    Method initialize()
          handle = LoadEntity(file);
          x = 10.0
          y = 10.0
          z = 10.0
    End Method

    Method move(x#,y#,z#)
          MoveEntity(handle,x,y,z)
          this\x = EntityX(handle)
          this\y = EntityY(handle)
          this\z = EntityZ(handle)
    End Method
 End Class

creature.TCreature= New TCreature
creature\initialize()
creature\move(x,y,z)

Class CMonster extends CCreature
End Class

Class CHero extends CCreature
End Class

Class CMonster extends CCreature
      Method move(x#,y#,z#)
           ....do some special movement......
      End Method
End Class

Class CMonster extends CCreature
      Method move(x#,y#,z#)
           ....do something special before calling move in the base class.......
           base\move(x,y,z)
      End Method
End Class

myVariable=1
.
.
1000 references to myVariable
.
.
x = myVarlable    <-----this error could leave you scratching more than headlice!
.
.
1000 more references to myVariable
.
.

Function myFunc#(a#, b$, c% = 0)    ;Declare variables for the values you want to pass in here, potentially with constant starting values
    Local d# = a / Len(b) * (c + 1)    ;Variables within the function aren't visible outside it
    Return d * 5    ;Once done, send the value out again with Return
End Function

Local val# = myFunc(6.2, "FOOBAR!")   ;If we provided a starting value for one of the args, it is optional

;The value 4.42857 is now in 'val'