In diesem Beispiel geht es darum, ein Kartenspiel mit 32 Karten zu mischen und entsprechend für 3 Spieler aufzuteilen ohne das eine Karte dopplet vorkommt.
#!/boot/home/config/bin/yab //karten mischen anhand Skat (32) dim karte(32) dim counter(32) dim karten$(32) karten$(0)="karo 7" karten$(1)="karo 8" karten$(2)="karo 9" karten$(3)="karo 10" karten$(4)="karo bube" karten$(5)="karo dame" karten$(6)="karo koenig" karten$(7)="karo Ass" karten$(8)="herz 7" karten$(9)="herz 8" karten$(10)="herz 9" karten$(11)="herz 10" karten$(12)="herz bube" karten$(13)="herz dame" karten$(14)="herz koenig" karten$(15)="herz Ass" karten$(16)="pik 7" karten$(17)="pik 8" karten$(18)="pik 9" karten$(19)="pik 10" karten$(20)="pik bube" karten$(21)="pik dame" karten$(22)="pik koenig" karten$(23)="pik Ass" karten$(24)="kreuz 7" karten$(25)="kreuz 8" karten$(26)="kreuz 9" karten$(27)="kreuz 10" karten$(28)="kreuz bube" karten$(29)="kreuz dame" karten$(30)="kreuz koenig" karten$(31)="kreuz Ass" for i =1 to 32 counter(i)=0 next i for w =1 to 32 // 32 mal ziehen counter(z)=0 |