Function kartenverteilen()
For x=1 To 52
.loop
   x1=Rand(1,52)
   If card2(x1) Then Goto loop   
   card2(x1)=x
Next
For x=1 To 52
   card(x)=53
Next
For x= 19 To 28
   card(x)=card2(x)
Next
card(52)=card2(52)
card(53)=card(52)
End Function

Function kartenverteilen()
; Hier wird jedem Platz, an dem eine Karte liegt eine zufällige Karte zugeteilt. Dazu benutze ich die Variabel card2(x)
For x=1 To 52 ; 1 bis 52 Karten
.loop
   x1=Rand(1,52) ; Zufallswert von 1 bis 52
   If card2(x1) Then Goto loop  ; wiederholung falls ist die Karte schon vorhanden ist
   card2(x1)=x ;
Next
; Hier wird bestimmt, welche Karten offen liegen. Ist der Wert=53, dann wird das Deckblatt gezeigt. Dazu benutze ich die Variabel card(x)
For x=1 To 52
   card(x)=53
Next
; Die Karten 19 bis 28 werden offen ausgelegt
For x= 19 To 28
   card(x)=card2(x)
Next

card(52)=card2(52) ; wir ebenfalls offen ausgelegt
card(53)=card(52) ; card(53) ist lediglich eine Kopie von der Karte 52, diese wird später im Spiel benötigt.
End Function