Top 10k strings from 51.tap in <root> / bin / z80 / software / ZxTapGames.zip / games /

Back to the directory listing

   2                               
   1 z$=c$(m1):
   1 tl=tl+s(a)
   1 tl=tl+k(i):
   1 spieler spielt aus
   1 s(i)=c(i+5
   1 s(a)=c(az)
   1 s$(i)=c$(i+5
   1 s$(a)=c$(az):
   1 s$(a)="     "
   1 s$(a)="      ":
   1 s$(a)="      "
   1 p$="Th. Dargel":
   1 mischen der karten
   1 karten verteilen
   1 k(l)=c(az)
   1 k(i)>k(i-1
   1 k(i)=k(i-1
   1 k(i)=c(i):
   1 k$(l)=c$(az):
   1 k$(i)=k$(i-1
   1 k$(i)=c$(i):
   1 compi spielt aus
   1 c(m1)=c(m2):
   1 c$(m2)=z$:
   1 c$(m1)=c$(m2):
   1 c         ,
   1 Th. Dargela
   1 CLS . LET yy= . LET xs= . LET ys= . LET p$="  " . GOSUB 9000
   1 ;"talon: ";
   1 ;"Wir mischen die Karten."
   1 ;"Wer die hoehere Karte zieht     beginnt."
   1 ;"Unentschieden!":
   1 ;"Unentschieden !":
   1 ;"Talon: ";
   1 ;"Spielregeln:"
   1 ;"Sie haben Verloren!!":
   1 ;"Ich habe verloren!":
   1 ;"Ende des mischens.               => Taste druecken."
   1 ;"Band stoppen"
   1 ;" ******************************":
   1 ;" ******************************  **                          **  **            51            **  **                          **"
   1 ;"          ";
   1 ;"                                  "
   1 );" ";s$(5
   1 );" ";s$(4
   1 );" ";s$(3
   1 );" ";s$(2
   1 "Wer zuerst 51 oder mehr er-     reicht, hat verloren!!"
   1 "Welche Karte spielen Sie aus?";a
   1 "Sie fangen an."
   1 "Noch ein Spiel?(j/n)";j$:
   1 "Mit einem Tastendruck Karte     ziehen":
   1 "Kennen Sie die Spielregeln?";j$:
   1 "Ich fange an."
   1 "Die Karten zaehlen wie folgt:"''" A=1  *  K=4  *  D=3  *  B=2    10=-10*  9=0  *  8=8  *  7=7"
   1 "Beim Ablegen der Handkarten ist darauf zu achten, dass der Ge-  samtwert der Karten des Talons  nicht ueber 50 zaehlt -"
   1 "Alles klar?";j$:
   1 " '1'    '2'    '3'    '4'    '5'"
   1 "     Ihre Karte     Meine Karte"
   1 "       ";
   1  5 1      H