;Unterprogramm.bb
I = 10
Print "Hauptprogramm"
Print " I = " + I
Print "J  = " + J
Gosub Test
Print "Wieder im Hauptprogramm
Print "I = " + I
Print "J = " + J
WaitKey
End
;
.Test
Print "Unterprogramm"
J = 20
Print " I = " + I
Print "J = " + J
Return

            Print " Test "
            Print " Test "
Repeat ; Repeat Schleife
         Leben = Input("Wieviel Leben soll dein Char haben : ")
   If Leben > 100 Then Print ("Dein Leben ist zu hoch : ")
X = Leben
         Geschick = Input("Wieviel Geschick soll er haben : ")
Y = Geschick
         Print " Klasse " ; Klassen Text
Delay 1000
         Print " Schurke"
         Print " Schamane"
         Print " Druide"
         Print " Krieger"         
         Klasse$ = Input$("Welcher Klasse soll er angehören : ")
g = Klasse$
Delay 2000 ; Verzögerung
               Print " Fassen wir noch einmal zusammen "
Delay 400
               Print " Dein Character soll also"
Delay 400
               Print " Der Klasse " + Klasse + " angehören"
               Print x + " Leben haben"
               Print "  und "
               Print y + " Geschick haben"
               Print "."
Richtig$ = Input$("Möchten sie die Angaben noch einmal ändern")
Until Richtig$ <>"ja" ; Wenn ja eintrifft -> Repeat schleife startet neu
WaitKey

Repeat
   Leben = Input("Wieviel Leben soll dein Char haben : ")
   If Leben > 100 Then Print ("Dein Leben ist zu hoch : ")
Until leben < 100 And leben > 0