"Jackpot" pour SHARP PC-1500
 Philippe PALLU, L'Ordinateur de poche, 1983.

Paru dans "L'Ordinateur de poche" n13, mai 1983.

Programme BASIC de 1458 octets.

CLOAD "JACKPOT"

----- BASIC program -----------------------------------------
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 1,DO,220:BEEP 1,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 GAIN *
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)=4PRINT "* GAGNE 30 *":P=30
560 IF X(0)=1PRINT "* GAGNE 15 *":P=15
570 IF X(0)=2PRINT "* GAGNE 10 *":P=10
580 IF X(0)=3PRINT "* 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"
730 DATA "00010347030100","02070F1F0F0702","081C3E7F3E1C08","2070787C787020"
740 DATA "00416171614100","01050747070501","06171F1F1F1706","185C7E7F7E5C18"
750 DATA ""
