'Den Thread Mod mit Compilen
Import pub.thread

Graphics 640,480,32,60

'Einstellen und Starten der Threads
Load:TThread = TThread.Create( Laden )
show:TThread = TThread.Create( Anzeige )
Load.Run()
show.Run()

'Globalen zum übergeben der Daten an das Hauptprogramm
Global geladen:Byte=0

'ein Thread
'hier könnten zum Beispiel, Sounds, Grafiken, Texturen, Modells ... geladen werden
Function Laden(bb_func:Byte Ptr)
  geladen=0
  Repeat
    Ladezeit:+1
    Delay 1
  Until Ladezeit=10000 ' 10 Sekunden 
  geladen=1
End Function

'noch ein Thread!
'dieser ist zur permanenten Anzeige,
'z.B. Animationen, die Geschichte wird erzählt,
'ein Video wird abgespielt ...
Function Anzeige(bb_func:Byte Ptr)
  Local m
  Local ladezeit=MilliSecs()
  Repeat
    Cls
      m=m+1
      SetRotation 0
      DrawText "Ein schöner Ladebildschirm ist echt was kewles!",0,0
      DrawText "Lädt seit: "+(Float(MilliSecs()-ladezeit)/1000.0)+"Sekunden",0,20
      SetRotation m
      DrawRect 320,240,100,10
      DrawRect 320,240,-100,-10
    Flip
  Until geladen ' der Thread geht zuende, sobald der andere sagt, ich Bin ferit gmit laden.

End Function 


'Hauptschleife:
Repeat

  Delay 10
Until geladen'sie wartet acuh, bis die Threads fertig sind.

'und nun ab zum Game!
'game()