poker pour Sharp PC1500 ( pas de programme )
tir du magazine Hebdogiciel N39

	Les jeux d'argent et de hasard vous passionnent, mais faute de capitaux vous les pratiquez rarement. Pour remdier  ce problme essayez, avec un peu d'imagination et un PC1500 ou un PC2, de recrer l'ambiance folle des tables de POKER des casinos. Jouez avec l'espoir de devenir riche, ou avec le risque de devenir pauvre sans autre peine que le temps pass  taper le programme.
Remarque : ce programme fonctionne sur une version de base,  condition de supprimer toutes les lignes contenant l'instruction REM.

Mode d'emploi :
	Lancer le programme par DEF A ou RUN.
	Vous verrez alors cinq rectangles noirs qui sont les cartes retournes et un zro affich  droite : c'est la mise que l'on augmente en appuyant sur la flche haut et qui diminue en appuyant sur la flche bas.
	Pour retourner ces cartes, une pression sur ENTER suffit.
	Le retournement fini, vous slectionnerez les cartes que vous voudrez retourner en appuyant sur la touche situe directement au-dessous de la carte, c'est--dire !, #, ", $ ou %. La pression de la touche & opre le retournement de toutes les cartes.
	Pour effectuer le changement des cartes appuyez sur DEF. Rptez l'action cite en 2.
	Le PC vous indique votre rsultat et votre gain, tout revient  l'action 1 jusqu' ce que vous arrtiez ou que vous soyez ruin. Pour ne rien changer faire DEF puis ENTER.
	Toutes les touches que vous pourriez presser sont sonorises donc, avant de lancer le programme faites BEEP ON.

Gains de ce que l'on obtient :
1 paire : 1 fois la mise
2 paires : 2 fois la mise
1 brelan : 3 fois la mise
1 suite : 5 fois la mise
couleur : 7 fois la mise
full : 9 fois la mise
carr : 50 fois la mise
1 suite de couleur : 100 fois la mise
1 suite de couleur dont un as : 500 fois la mise
	Quelle que soit la mise et le gain, la mise est perdue.

Programme :
3 DATA "185C7E7F7E5C18","085C4A7F4A5C08","081C3E7F3E1C08","0E1F3F7E3F1F0E"
4 DATA "4261514946","41494D4B31","1814127F10","2745454539","3C4A494930","0101790503"
5 DATA "3649494936","064949291E","0718601807","417F41413E","7F09192946","7C1211127C"
6 "A";CLS:CURSOR 10:PAUSE "POKER":RESTORE:CLEAR:FOR I=1 TO 16:READ Q$(I):NEXT I:DIM A$(3,12)*1,T$(0)*34:S=20
7 REM affichage du dos des cartes et de la mise
8 U=20:PAUSE "argent";S:WAIT 0:CLS:FOR I=1 TO 5:GOSUB 75:NEXT I
9 CURSOR 22:PRINT M:IF INKEY$=CHR$ 11 AND M<S BEEP 1,5,99:M=M+1
10 IF INKEY$=CHR$ 10 AND M>0 BEEP 1,5,99:M=M-1
11 IF INKEY$<>CHR$ 13 GOTO 9
12 REM retournement des cartes
13 BEEP 1,50,50:FOR I=1 TO 5:GOSUB 70:NEXT I
14 FOR J=0 TO 4:V=Q(J+1):T$(0)=Q$(4+V-(INT V>9))+"00"+Q$(10*(V-INT V)):P=1:IF INT V=10 GOSUB 50
15 IF POINT (24*J+7) GCURSOR 24*J+7:GPRINT 0:FOR L=7+P TO 22-P:GCURSOR 24*J+L:GPRINT MID$(T$(0),2*(L-7-P)+1,2):NEXT L
16 GCURSOR 24*J+22-P:GPRINT 0:NEXT J:O=O+1:IF O=2 LET Z=0:F=INT A:GOTO 25
17 FOR I=17 TO 21:IF CHR$ I=INKEY$ BEEP 1,20,20:Q(I-16)=0
18 NEXT I:IF INKEY$=CHR$ 22 BEEP 1,30,60:A=0,B=0,C=0,D=0,E=0
19 IF INKEY$<>CHR$ 27 GOTO 17
20 REM slection des cartes  retourner
21 BEEP 1,30,30:FOR I=1 TO 5:IF Q(I)=0 GOSUB 70:GOSUB 75
22 NEXT I:CALL 58,188:BEEP 1,50,50:GOTO 14
23 REM tests de la combinaison obtenue
24 REM et affichage du rsultat
25 T=F:Q=T:FOR J=1 TO 4:Q(J+21)=0:FOR I=J+1 TO 5:IF INT Q(I) LET Q(J+21)=Q(21+J)+1
26 NEXT I:R=INT Q(J+1):T=T+(R>T)*(R-T):Q=Q+(R<Q)*(R-Q):IF A-INT A=Q(J+1)-R LET Z=Z+1
27 F=F+R:NEXT J:WAIT:H=35:IF V=3 OR W=3 CURSOR U:G=50:PRINT "carr":GOTO H
28 IF (V+W=3 AND INT A<>INT B) OR (V+X=3 AND INT A<>INT C) OR (V+Y=3 AND INT A<>INT D) CURSOR U:G=9:PRINT "full":GOTO H
29 IF (W+X=3 AND INT B<>INT C) OR (W+Y=3 AND INT B<>INT D) CURSOR U:G=9:PRINT "full":GOTO H
30 IF V=2 OR W=2 OR X=2 CURSOR U:G=3:PRINT "brelan":GOTO H
31 R=V+W+X+Y:IF R CURSOR U:G=R:PRINT STR$ R;"paire":GOTO H
32 IF INT(F/5)=F/5 AND T=Q+4 CURSOR U:G=5:PRINT "suite":GOTO 60
33 IF Z=4 CURSOR U:PRINT "couleur":G=7:GOTO H
34 CURSOR U:PRINT "rien"
35 G=G*M:S=S-M+G:PRINT "gain";G:IF S<1 PRINT "vous tes ruin":END
36 REM remise  zro du jeu
37 FOR I=0 TO 3:FOR J=0 TO 12:A$(I,J)="":NEXT J:NEXT I:O=0:G=0:F=0:GOTO 8
50 T$(0)="427F40003E5149453E00"+Q$(10*(V-INT V)):P=-1:RETURN
60 IF Z=4 CURSOR U:G=100+400*(T=13):PRINT "flush"
61 GOTO H
69 REM tirage des cartes
70 X=RND 4-1:IF A$(X,Y)="1" GOTO 70
71 A$(X,Y)="1":Q(1)=Y+X/10+1.1:RETURN
75 GCURSOR 24*I-18:GPRINT 0:FOR J=7 TO 17 STEP 5:GCURSOR (I-1)*24+J:PRINT CHR$ 255:NEXT J:RETURN