## Jackpot pour Sharp PC1500 ( pas de programme )
## tire du magazine l'ordinateur de poche N13
## 
## 	Exploitant  la fois les possibilites graphiques et sonores du PC1500 dans sa version de base sans imprimante, le programme qui transforme votre pocket en "jackpot" vous permettra d'assouvir votre passion du jeu sans compromettre l'equilibre du budget familial.
## 	Bien sr, vous connaissez le jackpot, ce jeu o l'on reste des heures "plante" devant une bruyante machine qui engouffre pice aprs pice vos economies. Seul espoir, mince : gagner un gros lot...Fini cela! Non que vous deveniez plus raisonnable, mais votre pocket se charge desormais de tenir le rle du jackpot, gracieusement.
## 	Aprs son introduction en memoire, le programme est lance par RUN ou DEF A. Aussitt, l'infernale machine - -surnommee jackpot - est dessinee sur l'ecran au son d'une petite musique, et nous regarde ( si! ) de ses trois yeux vides...Pas longtemps, car dej l'oeil gauche s'anime. Les quatre symboles : coeur, trfle, carreau et pique y apparaissent successivement, au rythme de la "roue" qui tourne et finalement se stabilise sur une figure.
## 	Pour gagner, il faut maintenant qu'un motif identique apparaisse dans ses deux autres yeux. Le sort est jete, la seconde roue est lancee.
## 	Les combinaisons gagnantes dont donc au nombre de 4 : trois figures identiques rapportent 30 points pour le coeur, 15 pour le trfle, la carreau donne 10 et le pique enfin rapporte 5 points.
## 	Beau joueur, le PC1500 saluera par une musique allgre ou triste vos victoires et vos defaites.
## 	Pour tenter de nouveau le sort, il suffit de presser l'une quelconque des touches de fonction $, % ou & et les trois roues seront successivement lancees. Mais si vous souhaitez forcer quelque peu le hasard vous avez aussi la possibilite de ne relancer qu'une seule roue : pressez la touche de fonction situee immediatement au-dessous : 1, " ou #. Bien sr le pocket ne manquera pas de vous apprendre l'opinion qu'il a d'une telle pratique !
## 	L'initialisation des contenus des variables est realisee des lignes 100  170 ainsi que le dessin du jackpot lui-mme.
## 	Les trois roues sont animees d'un mouvement d'abord rapide puis progressivement ralenti jusqu' l'arrt. Pour imiter davantage une veritable machine  sous, vous pouvez ajouter  la ligne 340 un BEEP 1,9,50 et vous entendrez le "cliquet" des roues qui tournent. C'est dans la variable C qu'est conserve l'emplacement du curseur indiquant au PC1500 quelle roue il doit animer. Les dessins des motifs sont rassembles aux lignes 700  730. Leur visualisation successive donne l'illusion du mouvement des figures du jackpot.
## 	le calcul des gains, realise des lignes 510  585, peut tre optimise;mais le programme n'est-il pas plus clair ainsi?
## 	La saisie des pressions des six touches de fonction qui relancent le jeu est programmee avec INKEY$, et l'action  entreprendre est choisie en fonction du code ASCII ( de 17  22 ) de la touche pressee.
## 
## Programme :
10 "A":REM *jackpot *
20 REM *auteur philippe pallu *
100 REM * initialisation * 
105 WAIT 0:CLEAR:DIM X(2):RANDOM
110 Y=20:A$="7F2A7F2A41":C$="412A7F2A7F"
120 FOR I=1 TO 3
130 GCURSOR X+A:GPRINT A$
140 GCURSOR Y+A:GPRINT C$
150 A=A+25
160 NEXT I
170 SI=112:DO=105:RE=93:MI=82:SO=68:TP=80
200 REM *depart*
210 BEEP I,DO,200:BEEP I,MI,220:BEEP 1,SO,250
220 CURSOR 14:PRINT "* suspens? *"
230 FOR J=1 TO 3:W=J-1:GOTO 300
300 REM *tirage*
305 X=RND 4:X(W)=X:X=X*5:C=W*25+9:RESTORE
310 FOR I=1 TO 25+X
320 GCURSOR C
330 WAIT I*I*I/1e4
340 READ B$:IF B$="" THEN RESTORE:GOTO 340
350 GPRINT B$
360 NEXT I
370 IF J=0 GOTO 500
380 NEXT J
500 REM * calcul des gains *
505 CURSOR 14
510 IF X(0)=X(1) AND X(1)=X(2) GOTO 540
515 BEEP 2,DO,300:BEEP 1,DO,90:BEEP 1,DO,270:BEEP 1,MI,300:BEEP 1,RE,90:BEEP 1,RE,270:BEEP 1,DO,90
516 BEEP 1,DO,270:BEEP 1,SI,90:BEEP 1,DO,540
520 PRINT "* Perdu !! *"
530 GOTO 600
540 FOR I=1 TO 5:BEEP 1,DO,TP:BEEP 1,MI,TP:BEEP 1,SO,TP:NEXT I
550 IF X(0)=4 PRINT "* Gagne 30 *":P=30
560 IF X(0)=1 PRINT "* Gagne 15 *":P=15
570 IF X(0)=2 PRINT "* Gagne 10 *":P=10
580 IF X(0)=3 PRINT "* Gagne  5 *":P=5
585 BEEP P,10,5
600 REM * retirage partiel *
610 J=0:W$=INKEY$:IF W$="" GOTO 610
620 IF W$=CHR$ 17 THEN LET W=0:GOTO 670
630 IF W$=CHR$ 18 THEN LET W=1:GOTO 670
640 IF W$=CHR$ 19 THEN LET W=2:GOTO 670
650 IF (W$=CHR$ 20)+(W$=CHR$ 21)+(W$=CHR$ 22)<>1 THEN 600
660 GOTO 200
670 CURSOR 14:PRINT "* tricheur *":GOTO 300
700 DATA "6070787C787060","00406071604000","00010347030100","03070F1F0F0703"
710 DATA "0E1F3F7E3F1F0E","387C7C787C7C38","60717161717160","00454407444500"
720 DATA "0217121F121702","085C4A7F4A5C08","2070287C287020","00402071204000"
740 DATA "00416171614100","01050747070501","06171F1F1F1706","185C7E7F7E5C18"
750 DATA ""