40 I=RND(1):NEXT:JO=8:MO=8:B=1:D=53:FORI=1TO8:GOSUB57:JO$(I)=X$:NEXTI:FORI=9TO35:JO$(I)="":NEXT:FORI=1TO8:GOSUB57:MO$(I)=X$:NEXTI:FORI=9TO35:MO$(I)="":NEXT:GOSUB57:C$=X$:CLS:PRINT"La premi"+CHR$(189)+"re carte est: ";C$:KEY1," "+C$+STRING$(3,8)
55 CALL16964:PRINT:PRINT"Sur ";N3;" parties tu en as gagn"+CHR$(187)+" ";N1;".":PRINT"Ton pointage total est ";S1;" le mien est ";S2:CALL23164,0,23366:CALL27795:KEY7,"Edit"+CHR$(13):SCREEN0,0:CLEAR:END:CALL17001:PRINT"Pesez <espace> pour continuer";
61 PRINT@80,STRING$(160,32):PRINT@80,"Tu as en main: ";:FORI=1TOJO:PRINTJO$(I);" ";:NEXT:PRINT:IFD<1THENKEY4,"NON"+CHR$(13):INPUT"Peux-tu jouer ";RP$:GOTO63
83 IFD>1THEN84ELSEPRINT"Il n'y a plus de cartes. Je suis bloqu"+CHR$(187):D=0:GOSUB59:GOSUB60:RETURN
84 MO=MO+1:I=MO:GOSUB57:MO$(MO)=X$:GOTO79
85 B=1:C$=MO$(I):MO$(I)="":FORJ=ITOMO+1:MO$(J)=MO$(J+1):NEXT:MO=MO-1:CLS:PRINT"Il me reste ";MO+1;" cartes";:IF(LEFT$(C$,1)<>"8")THENPRINT" et je joue :";C$:KEY1," "+C$+STRING$(4,8)ELSE87