graph_x = 800
Graphics graph_x,600,0,2

txt1$ = "Spiel: XXXXXXXX XXXXXXXXX"
txt2$ = "Menü basierend auf:
txt3$ = "XXXXXXX XXXXX by XXX "+Chr(169)+" 2006."
txt4$ = "Grafik:"
txt5$ = "XXXX XXXXXXX"
txt6$ = "Sounds:"
txt7$ = "XXXXXX XXXXXXX"
txt8$ = "Musik:"
txt9$ = "XX XXXXX - www.XXXXXXX.de"
txt10$ = "Copyright"+Chr(169)+"  2007 by XXXXX"

Text graph_x/2- StringWidth(txt1$)/2, 0,txt1$
Text graph_x/2- StringWidth(txt2$)/2, 50,txt2$
Text graph_x/2- StringWidth(txt3$)/2, 80,txt3$
Text graph_x/2- StringWidth(txt4$)/2, 130,txt4$
Text graph_x/2- StringWidth(txt5$)/2, 160,txt5$
Text graph_x/2- StringWidth(txt6$)/2, 210,txt6$
Text graph_x/2- StringWidth(txt7$)/2, 240,txt7$
Text graph_x/2- StringWidth(txt8$)/2, 290,txt8$
Text graph_x/2- StringWidth(txt9$)/2, 320,txt9$
Text graph_x/2- StringWidth(txt0$)/2, 370,txt0$

WaitKey()

Dim blubb(99)
For i=0 to 99
      blubb(i)=Rand(1,100)
Next

   Cls
   For i = 1 To 5
      Read zeile$
      Center zeile$, i * 20
   Next
   WaitKey
   End
   
Function Center(t$, y)
   Text (GraphicsWidth() - StringWidth(t$)) / 2, y, t$
End Function
   
Data "Beispiel-Code:"
Data "Dieser Code zeigt, wie man selbigen"
Data "durch die Benutzung von Schleifen"
Data "und Functions deutlich verkürzen kann."
Data "Sehen Sie selbst!"