Graphics 800,600,0,2
SetBuffer BackBuffer()
Global x1 = 10
Global y1 = 300
Global x2 = 60
Global y2 = 300
ClsColor 255,255,255
Cls
Color 255,0,0
x = 1
If x = 1 Then 
Line x1,y1,x2,y2
x1 = x1 + 10
x2 = x2 + 10
x = x + 1
EndIf
 If x = 2 Then 
Line x1,y1,x2,y2
EndIf   
Flip
WaitKey 

Graphics 800,600,0,2

breite=450
hoch=25
proz=15

SetBuffer BackBuffer()
Repeat

If KeyDown(200) Then proz=proz+1
If KeyDown(208) Then proz=proz-1

If KeyDown(203) Then breite=breite-1
If KeyDown(205) Then breite=breite+1

If KeyDown(209) Then hoch=hoch-1
If KeyDown(201) Then hoch=hoch+1

statusbar(proz,MouseX(),MouseY(),breite,hoch)
Color 255,0,0
frames=MilliSecs()-a
frames=1000/frames
Text 0,0,"FPS: "+frames
a=MilliSecs()
Flip
Cls
Until KeyDown(1)
End

Function statusbar(prozent#,xposition,yposition,breite,hoehe)

;Rahmen zeichnen
Color 255,255,255
Rect xposition,yposition,breite,hoehe,0

;Balken zeichnen
balkenbreite=(breite/100)
balkenbreite=balkenbreite*prozent#
Color 0,0,255
Rect xposition+1,yposition+1,balkenbreite,hoehe-2

End Function

Graphics 800,600
SetBuffer BackBuffer()

laenge = 1

For x = 1 To 100
laenge = laenge + 1
Plot laenge, 10
Flip
Next

Graphics 800 ,600
SetBuffer BackBuffer ()
;
LadeAnzeige(0) ; Prozentwert angeben
Delay 600 ; simuliert das laden
LadeAnzeige(30)
;
Delay 100 ; simuliert das laden
LadeAnzeige(32)
;
Delay 300 ; simuliert das laden
LadeAnzeige(39)
;
Delay 800 ; simuliert das laden
LadeAnzeige(62)
;
Delay 1500 ; simuliert das laden
LadeAnzeige(92)
;
Delay 200 ; simuliert das laden
LadeAnzeige(100)
;
WaitKey
Function LadeAnzeige (Prozent)
    Local x1 = 100
    Local XBreit = 600
    Local y1 = 280
    Local yBreit = 40
    Cls
    ;Rahmen
    Color 0 ,255,64
    Rect x1 - 1 ,y1 - 1 ,XBreit + 2 ,yBreit + 2 ,0
    ;Innenfläche
    Color 255 ,128,64
    Prozentbreit = xbreit * Prozent / 100
    Rect x1,y1,Prozentbreit,yBreit ,1
	Color 255,255,255
	Text x1+XBreit /2,y1+yBreit/2,Prozent + "%",1,1
    Flip
End Function

Graphics 800,600
SetBuffer BackBuffer()

For q = 1 To 400
Cls

If breite < 100 Then r = 0 : g = 255 : b = 0
If breite > 100 Then r = 255 : g = 255 : b = 0
If breite > 200 Then r = 255 : g = 127.5 : b = 0
If breite > 300 Then r = 255 : g = 0 : b = 0

breite = breite + 1

If breite < 40 Then Text 10,10,"Loading"
If breite > 40 Then Text 10,10,"Loading ."
If breite > 80 Then Text 10,10,"Loading .."
If breite > 120 Then Text 10,10,"Loading ..."
If breite > 160 Then Text 10,10,"Loading ...."
If breite > 200 Then Text 10,10,"Loading ....."
If breite > 240 Then Text 10,10,"Loading ......"
If breite > 280 Then Text 10,10,"Loading ......."
If breite > 320 Then Text 10,10,"Loading ........"
If breite > 360 Then Text 10,10,"Loading ........."
If breite = 400 Then Text 10,10,"Loading .........."

Text 10,30,breite/4 + "%"

Color r,g,b
Rect 10,50,breite,30
Color 255,255,255
Rect 10,50,400,30, False

Flip
Next

Repeat

Text 10,90,"Press Escape to Quit"

Flip
Until KeyHit(1)
End