10 ! JACK P
OT
11 ! PAR CHRISTOFINI F
12 ! 1985
20 CLS "WBB"
30 CALL COLOR("0YB")
40 LOCATE (6,6):INPUT "JOUEUR ! TON NOM : ";N$
50 CLS
60 ! DEFINITION
70 CALL CHAR(92,"00000000000000010F1F")
80 CALL CHAR(91,"0006081020408000F0F8")
90 CALL CHAR(93,"3B372F2F371F0F030000")
100 CALL CHAR(28,"FCFCFCFCFCF8F0C00000")
110 CALL CHAR(37,"00000000000000000001")
120 CALL CHAR(15,"0000101838285878E850")
130 CALL CHAR(16,"068DFB3F000000000000")
140 CALL CHAR(17,"F0E0C000000000000000")
150 CALL CHAR(18,"0000000030383F1F073F")
160 CALL CHAR(19,"0000000080C0C080C0F0")
170 CALL CHAR(20,"77674F5F6F3F1F070000")
180 CALL CHAR(21,"F8F8F8F8F8F0E0C00000")
190 CALL CHAR(10,"00000000071F30767676")
200 CALL CHAR(11,"00000000C0F038F8FCFC")
210 CALL CHAR(13,"707E7E7E7E703E1F0700")
220 CALL CHAR(14,"1CDCDCDCDC18F0E08000")
230 LOCATE (10,2):INPUT "LES REGLES DU JEU (O/N) ? ";J$
240 IF J$<>"O" THEN 250 ELSE GOSUB 1040
250 CLS
260 CALL COLOR("0GBHLF")
270 LOCATE (1,12):PRINT "JJAACCKK..PPOOTT"
280 LOCATE (2,12):PRINT "JJAACCKK..PPOOTT"
290 GOSUB 1720
300 S=0:L=80
310 L=L-S:C=0:CI=0:P=0:D=0:LOCATE (7,8):PRINT "JOUEUR:";N$:IF L<=0 THEN 560
320 CALL COLOR("0CB")
330 LOCATE (21,3):PRINT "MISE ";0,"CREDITS ";L
340 LOCATE (4,1):PRINT "VOTRE MISE : ";
345 ACCEPT SIZE(4)BEEP VALIDATE(NUMERIC)NULL(10),S
350 IF S<=0 OR S>1000 THEN 340
360 LOCATE (21,3):PRINT "MISE ";S,"CREDITS ";L-S
370 R=0:GOSUB 1410
380 ! CHOIX ALEATOIRE DES COMBINAISONS
390 RANDOMIZE
400 C1=INT(RND*5):R=0:IF C1<=0 THEN 390
410 ON C1 GOSUB 610,660,710,760
420 R=4:GOSUB 1410
430 RANDOMIZE
440 C2=INT(RND*5):R=4:IF C2<=0 THEN 430
450 ON C2 GOSUB 610,660,710,760
460 R=8:GOSUB 1410:RANDOMIZE
470 C3=INT(RND*5):R=8:IF C3<=0 THEN 460
480 ON C3 GOSUB 610,660,710,760
490 R=12:GOSUB 1410:RANDOMIZE
500 C4=INT(RND*5):R=12:IF C4<=0 THEN 490
510 ON C4 GOSUB 610,660,710,760
520 F=C+CI+P+D
530 IF (F>0 AND F<6)OR (F>9 AND F<15)THEN GOSUB 810 ELSE 960
540 PAUSE 1:LOCATE (10,9):PRINT " ":LOCATE (11,9)
550 PRINT " ":IF L<=0 THEN 560 ELSE 310
560 LOCATE (17,1):PRINT "TERMINE,VOUS N'AVEZ PLUS DE CREDITS"
570 LOCATE (18,1):INPUT "VOULEZ-VOUS REJOUER (O/N) ? ";Q$
580 IF Q$="O" THEN RUN ELSE 590
590 CLS:END
600 ! CERISE
610 CALL COLOR("1WB"):LOCATE (10,9+R):PRINT CHR$(92);CHR$(91)
620 CALL COLOR("1RB"):LOCATE (11,9+R):PRINT CHR$(93);CHR$(28)
630 C=1
640 RETURN
650 ! BANANE
660 CALL COLOR("1YB"):LOCATE (10,9+R):PRINT CHR$(37);CHR$(15)
670 LOCATE (11,9+R):PRINT CHR$(16);CHR$(17)
680 CI=2
690 RETURN
700 ! POMME
710 CALL COLOR("1WB"):LOCATE (10,9+R):PRINT CHR$(18);CHR$(19)
720 CALL COLOR("1GB"):LOCATE (11,9+R):PRINT CHR$(20);CHR$(21)
730 P=3
740 RETURN
750 ! DOLLAR
760 CALL COLOR("1WB"):LOCATE (10,9+R):PRINT CHR$(10);CHR$(11)
770 LOCATE (11,9+R):PRINT CHR$(13);CHR$(14)
780 D=10
790 RETURN
800 ! SOUS PROGRAMME GAGNANT
810 A$="0E683FC7031EF040043CE0010F78C00216B040042C60010F5840031AD08006FE"
820 CALL SPEECH("L,"&A$)
830 LOCATE (18,13):PRINT " GAGNE"
840 CALL COLOR("0MBLF")
850 LOCATE (11,30):PRINT "GGOOOODD!!":PAUSE 5:LOCATE (18,24):PRINT " "
860 CALL COLOR("0WBHLF"):LOCATE (10,9):PRINT "$$ $$ $$ $$"
870 LOCATE (11,9):PRINT "$$ $$ $$ $$"
880 PAUSE 3:LOCATE (10,9):PRINT " "
890 LOCATE (11,9):PRINT " "
900 CALL COLOR("0RB")
910 RANDOMIZE
920 S=-(S*INTRND(12)):LOCATE (20,21):PRINT "BONUS ";-S
940 PAUSE 8:LOCATE (20,21):PRINT " ":GOTO 540
950 ! SOUS PROGRAMME PERDANT
960 X1$="077C312DD46D6F708213EC60072B58C10C66303211F4A0072D6841823E9316EAB637"
970 X2$="BAD18D6E74A2139DE8443BDAD18E7634A319CD6846339AB18C6634A2118D68442D6A"
980 X3$="518B5AD4A21AD5A84635AA518D4A54A21295A844294AD1FF"
990 X$=X1$&X2$&X3$
1000 CALL SPEECH("L,"&X$)
1005 LOCATE (11,30):PRINT " "
1007 LOCATE (12,30):PRINT " "
1010 LOCATE (18,13):PRINT " PERDU"
1020 PAUSE 2:LOCATE (18,13):PRINT " "
1030 GOTO 540
1040 !**** REGLES DU JEU ****
1050 !***********************
1060 CLS
1070 LOCATE (2,1):PRINT "ce jeu simule le JACK.POT "
1080 LOCATE (3,1):PRINT "voici les combinaisons gagnantes"
1090 LOCATE (10,17):PRINT "VOUS DISPOSEZ DE"
1100 CALL COLOR("0GBL"):LOCATE (12,17):PRINT "8800 CCRREEDDIITTSS"
1110 CALL COLOR("1BW")
1120 LOCATE (6,5):PRINT CHR$(92);CHR$(91);CHR$(32);CHR$(92);CHR$(91);CHR$(32)
1130 LOCATE (6,11):PRINT CHR$(92);CHR$(91);CHR$(32);CHR$(92);CHR$(91)
1140 CALL COLOR("1RW")
1150 LOCATE (7,5):PRINT CHR$(93);CHR$(28);CHR$(32);CHR$(93);CHR$(28);CHR$(32)
1160 LOCATE (7,11):PRINT CHR$(93);CHR$(28);CHR$(32);CHR$(93);CHR$(28)
1170 CALL COLOR("1YB")
1180 LOCATE (9,5):PRINT CHR$(37);CHR$(15);CHR$(32);CHR$(37);CHR$(15);CHR$(32)
1190 LOCATE (9,11):PRINT CHR$(37);CHR$(15);CHR$(32);CHR$(37);CHR$(15)
1200 LOCATE (10,5):PRINT CHR$(16);CHR$(17);CHR$(32);CHR$(16);CHR$(17);CHR$(32)
1210 LOCATE (10,11):PRINT CHR$(16);CHR$(17);CHR$(32);CHR$(16);CHR$(17)
1220 CALL COLOR("1YB")
1230 LOCATE (12,5):PRINT CHR$(18);CHR$(19);CHR$(32);CHR$(18);CHR$(19);CHR$(32)
1240 LOCATE (12,11):PRINT CHR$(18);CHR$(19);CHR$(32);CHR$(18);CHR$(19);CHR$(32)
1250 CALL COLOR("1GB")
1260 LOCATE (13,5):PRINT CHR$(20);CHR$(21);CHR$(32);CHR$(20);CHR$(21);CHR$(32)
1270 LOCATE (13,11):PRINT CHR$(20);CHR$(21);CHR$(32);CHR$(20);CHR$(21)
1280 CALL COLOR("1WB")
1290 LOCATE (15,5):PRINT CHR$(10);CHR$(11);CHR$(32);CHR$(10);CHR$(11);CHR$(32)
1300 LOCATE (15,11):PRINT CHR$(10);CHR$(11);CHR$(32);CHR$(10);CHR$(11)
1310 LOCATE (16,5):PRINT CHR$(13);CHR$(14);CHR$(32);CHR$(13);CHR$(14);CHR$(32)
1320 LOCATE (16,11):PRINT CHR$(13);CHR$(14);CHR$(32);CHR$(13);CHR$(14)
1330 CALL COLOR("0GB")
1340 LOCATE (4,1):PRINT "mais il y en a d'autres"
1350 LOCATE (21,1):PRINT "TAPEZ 'J' POUR JOUER"
1360 LOCATE (15,17):PRINT "LORSQUE VOUS GAGNEZ"
1370 LOCATE (16,17):PRINT "VOUS GAGNEZ LE JACK POT"
1380 LOCATE (17,17):PRINT "PLUS VOTRE MISE"
1390 A$=KEY$:IF A$<>"J" THEN 10 ELSE RETURN
1400 RETURN
1410 !*** AFFICHAGE DES CARACTERES ***
1420 FOR I=.05 TO .1 STEP .03
1430 GOSUB 710
1440 CALL COLOR("1WB")
1450 LOCATE (10,9+R):PRINT CHR$(92);CHR$(91)
1460 CALL COLOR("1RB")
1470 LOCATE (11,9+R):PRINT CHR$(93);CHR$(28)
1480 GOSUB 1680
1490 PAUSE I
1500 CALL COLOR("1YB")
1510 LOCATE (10,9+R):PRINT CHR$(37);CHR$(15)
1520 LOCATE (11,9+R):PRINT CHR$(16);CHR$(17)
1530 GOSUB 1680
1540 PAUSE I
1550 CALL COLOR("1WB")
1560 LOCATE (10,9+R):PRINT CHR$(18);CHR$(19)
1570 CALL COLOR("1GB")
1580 LOCATE (11,9+R):PRINT CHR$(20);CHR$(21)
1590 PAUSE I
1600 GOSUB 1680
1610 CALL COLOR("1WB")
1620 LOCATE (10,9+R):PRINT CHR$(10);CHR$(11)
1630 LOCATE (11,9+R):PRINT CHR$(13);CHR$(14)
1640 PAUSE I
1650 NEXT I
1660 RETURN
1670 !*** BRUIT JACK POT ***
1680 O$="0D7C91B2BAB602FC"
1690 CALL SPEECH("L,"&O$)
1700 RETURN
1710 !*** CONTOUR JACK POT ***
1720 CALL COLOR("0MB")
1722 LOCATE (8,8):PRINT CHR$(9)
1724 LOCATE (8,24):PRINT CHR$(6)
1726 LOCATE (13,8):PRINT CHR$(8)
1728 LOCATE (13,24):PRINT CHR$(7)
1730 FOR I=9 TO 23:LOCATE (8,I):PRINT CHR$(4):LOCATE (13,I):PRINT CHR$(4)
1740 NEXT I
1750 FOR I=9 TO 12:LOCATE (I,8):PRINT CHR$(3):LOCATE (I,24):PRINT CHR$(3)
1760 NEXT I
1770 FOR W=9 TO 22 STEP 4:CALL COLOR("1YB")
1780 LOCATE (15,W):PRINT CHR$(10);CHR$(11);" "
1790 LOCATE (16,W):PRINT CHR$(13);CHR$(14);" ":NEXT W
1800 RETURN
Ce listing est uniquement proposé pour un usage privé.
Sans accord écrit préalable, vous n'êtes pas autorisé à le distribuer, le transmettre ou le rediffuser.