If Spielmodi$=1 Then
   Spielmodi$="hoch"
Else
   Spielmodi$="niedrig"
EndIf

Cls

Print "Spielen wir, dass" + " " + Spielmodi$ + " " + "gewinnt" + "!"

.Markel1
Musikmodi$=Input$("Willst du eine Musik-CD abspielen(1) oder gar keine Musik(3)? hören.")

If Musikmodi$=1 Then PlayCDTrack(1,3)
If Musikmodi$=3 Then Goto Markel2

.Markel2

Cls

If Spielmodi$="hoch" Then Spielmodi$=1
If Spielmodi$="niedrig" Then Spielmodi$=2

Locate 1,1

PunkteS1=10
PunkteHH=10

Dim Augen$(6)

Data "Eins", "Zwei", "drei", "vier", "fünf", "sechs"

For X=1 To 6
   Read Augen(X)
Next
;
SeedRnd MilliSecs()
Computer = Rand(1,6)
Mensch = Rand(1,6)

Print "Habeldi Mabeldi würfelt eine" + " " + Augen(Computer)

Print Spieler1$ + " " + "würfelt eine" + " " + Augen$(Mensch)

Cls

If Computer > Mensch Then Spielmodi$=Spielmodi$+1 ;niedrig(11) verl., hoch(21) gew.
If Computer = Mensch Then Spielmodi$=Spielmodi$+2 ;niedrig(12) gleichs., hoch(22) gleichs.
If Computer < Mensch Then Spielmodi$=Spielmodi$+3 ;niedrig(13) gew., hoch(23) verl.

;Spielauswertung

Locate 1,1
If Spielmodi$=11 Then Print "Habeldi Mabeldi hat gewonnen!"
If Spielmodi$=23 Then Print "Habeldi Mabeldi hat diesmal gesiegt!"
If Spielmodi$=21 Then Print Spieler1$ + " " + "hat gewonnen!"
If Spielmodi$=12 Then Print "Gleichstand! Keiner hat gewonnen" 
If Spielmodi$=22 Then Print "Gleiche Zahl gewürfelt. keiner hat gewonnen!" 
If Spielmodi$=13 Then Print Spieler1$ + " " + "hat sich den Sieg geholt"   

Cls

Locate 1,1

Write "Programmiert von Dennis Müller(V-Vision.de)!
Write "Version 1.1 coming
Write "'Bis nichts mehr geht'-Song
Write "Mehrspieler werden untertützt"
Write "Mit 20-er Würfel würfeln möglich"
Write "www.V-vision.de"

End

Dieser Text steht zwischen Code-Tags. Man nutzt sie, indem man auf den [i]Code[/i]-Button über dem Eingabefeld klickt (wenn der Code fertig abgetippt ist, klickt man nochmal, damit man wieder normalen Text erstellt.