Hebdogiciel n°139 à 141

100 !
110 !   REALISE PAR
120 ! JEAN MARC LEPAUL
130 !
140 !
150 !
160 !
170 !
180 !
190 CLS "CMM"
200 LOCATE (7,7):CALL COLOR("0GMLHIF"):PRINT "LLAA  RREECCHHEERRCCHHEE  DDUU"
210 LOCATE (8,7):CALL COLOR("0GMLHIF"):PRINT "LLAA  RREECCHHEERRCCHHEE  DDUU"
220 LOCATE (12,16):PRINT "DDIIAAMMAANNTT"
230 LOCATE (13,16):PRINT "DDIIAAMMAANNTT"
240 LOCATE (17,19):PRINT "VVEERRTT"
250 LOCATE (18,19):PRINT "VVEERRTT"
260 CALL COLOR("0CM"):LOCATE (22,35):PRINT "@ 1986"
270 CALL PRESENTATION
280 VIES=3:CALL POKE(51000,VIES)
290 CALL SPEECH("A,"):CLS:CALL COLOR("0GB")
300 CALL PEEK(51000,VIES)
310 A$="0D9816C301EDE72CB8B4CBECBD7D88AA6F33A2DD41AAF6BDB46407AFDAE3"
320 B$="CEAA1EAA6AB7BE4A7CB86ADC6D37C9E04BE87411B508C044302F"!PISTOLET GALACT.
330 C$="0E683FC7031EF040043CE0010F78C00216B040042C60010F5840031AD08OO6FE"
340 D$="0BA02163031B18008D1E139840073A108100F0901E81080480478F084420020570CEBD0"
350 E$="110840704E118840043CE0010F78C003163080052C20010948800214A0000528"!EXPLO
360 !CALL SPEECH("L,"&C$)
370 CALL CHAR(32,"FF181818181818FF")
380 X=3
390 W=30
400 CALL CHAR(112,"921048C6481092")
410 YY=1
420 RANDOMIZE
430 GOSUB 1040
440 CALL COLOR("1YB")
450 CALL CHAR(52,"010226FF3F1C0601")
460 CALL CHAR(44,"FF422418")
470 CALL CHAR(45,"01020408102040808080")
480 CALL COLOR("1WB")
490 DATA 11,1,3,9,6,10,7,18,9,16,1,2,14,5,11,12,18,9,4,30,3
500 DATA 11,28,5,20,1,9,18,12,11,16,25,8,24,1,23,20,28,5
510 READ A,B,C
520 F=F+1
530 LOCATE (A-2,B):PRINT RPT$(CHR$(44),C)
540 IF F<13 THEN 490
550 CALL COLOR("1RB")
560 DATA 10,4,9,5,8,16,7,17,6,27,5,28,4,29,15,3,14,4,13,16
570 DATA 12,17,11,27,19,10,18,11,17,23,16,24,23,24,22,25,21,26,20,27
580 READ A,B
590 LOCATE (A-2,B):PRINT CHR$(45)
600 F=F+1
610 IF F<33 THEN 560
620 Y=33
630 CALL COLOR("1GB")
640 DATA 5,5,5,11,7,30,12,28,14,18,16,5,16,8,20,12,20,16,20,21
650 READ A,B
660 CALL CHAR(36,"3C66C381818181818181")
670 CALL CHAR(37,"818181818181DB7E")
680 LOCATE (A-2,B):PRINT CHR$(36)
690 LOCATE (A-1,B):PRINT CHR$(37)
700 F=F+1
710 IF F<41 THEN 640
720 CALL CHAR(28,"183C7EFF7E3C18")
730 CALL COLOR("1YB"):LOCATE (21,3):PRINT CHR$(28)
740 CALL CHAR(120,"3C7EFFDB18183CFF")
750 CALL COLOR("1GB"):LOCATE (4,20):PRINT CHR$(120)
760 LOCATE (4,24):PRINT CHR$(120)
770 LOCATE (6,8):PRINT CHR$(120)
780 LOCATE (6,13):PRINT CHR$(120)
790 LOCATE (1,30):PRINT CHR$(32)
800 CALL COLOR("1RB"):LOCATE (1,30):PRINT CHR$(52)
810 DATA 3,29,4,28,5,27,6,26,6,25,6,24,6
820 DATA 23,6,22,6,21,6,20,6,19,6,18,6,17
830 DATA 7,16,8,15,8,14,8,13,8,12,8,11,8
840 DATA 10,8,9,8,8,8,7,8,6,8,5,9,4,10,3,10,2,10,1
850 LOCATE (X-2,W):PRINT CHR$(32)
860 READ X,W
870 CALL COLOR("1RB")
880 CALL KEY1(K,KK)
890 IF K=130 THEN 900 ELSE 930
900 X=X-1
910 W=W-1
920 IF X=2 THEN X=3
930 LOCATE (X-2,W):PRINT CHR$(52)
940 GOSUB 1100
950 IF X<>6 THEN 980
960 IF W=20 THEN 2210
970 IF W=24 THEN 2210
980 IF X<>8 THEN 1010
990 IF W=8 THEN 2210
1000 IF W=13 THEN 2210
1010 IF W>2 THEN 850
1020 GOTO 1170
1030 GOTO 2210
1040 CALL COLOR("1YB"):LOCATE (7,2):PRINT CHR$(112)
1050 LOCATE (5,4):PRINT CHR$(112)
1060 LOCATE (5,10):PRINT CHR$(112)
1070 LOCATE (3,16):PRINT CHR$(112)
1080 LOCATE (3,22):PRINT CHR$(112)
1090 RETURN
1100 IF X<>5 THEN 1120
1110 IF (W=22)+(W=16)THEN 2210
1120 IF X<>7 THEN 1140
1130 IF (W=10)+(W=4)THEN 2210
1140 IF X<>9 THEN 1160
1150 IF W=2 THEN 2210
1160 RETURN
1170 CALL CHAR(53,"18180C0A09080808")
1180 CALL CHAR(54,"18184C3A090E0A18")
1190 CALL CHAR(55,"4224187EE7E77E3C")
1200 CALL CHAR(56,"42241866C3C3E766")
1210 CALL CHAR(38,"000402FF0204")
1220 CALL CHAR(46,"8210024004200A408210")
1230 CALL COLOR("1RB"):LOCATE (8,18):PRINT CHR$(56)
1240 LOCATE (10,5):PRINT CHR$(56)
1250 CALL COLOR("1YB"):LOCATE (11,9):PRINT CHR$(38)
1260 LOCATE (9,24):PRINT CHR$(38)
1270 DATA 10,31,10,30,10,29,10,28,10,27,11,26,11,25,11,24,11,23,11,22
1280 DATA 11,21,11,20,11,19,11,18,11,17
1290 DATA 12,16,13,15,13,14,13,13,13,12,13,11,13,10,13,9,13,8,13,7,13,6
1300 DATA 13,5,13,4,14,3,15,2,15,1
1310 CH=10
1320 CV=18
1330 AH=12
1340 AV=5
1350 FOR T=1 TO YY
1360 CALL KEY1(K,KK)
1370 IF K=130 THEN 1380 ELSE 1430
1380 LOCATE (X-2,W):PRINT CHR$(32)
1390 READ X,W
1400 CALL COLOR("1RB"):LOCATE (X-2,W):PRINT CHR$(53)
1410 IF X<>15 THEN 1530
1420 GOTO 1970
1430 IF W<>25 THEN 1530
1440 CALL SPEECH("L,"&A$&B$)
1450 CALL COLOR("1WB"):LOCATE (9,18):PRINT RPT$(CHR$(46),6)
1460 LOCATE (8,18):PRINT RPT$(CHR$(46),9)
1470 LOCATE (9,26):PRINT CHR$(46)
1480 LOCATE (9,18):PRINT RPT$(CHR$(32),9)
1490 LOCATE (8,18):PRINT RPT$(CHR$(32),9)
1500 CH=0
1510 YY=2
1520 READ X,W
1530 IF W<>10 THEN 1620
1540 CALL SPEECH("L,"&A$&B$)
1550 CALL COLOR("1WB"):LOCATE (10,5):PRINT RPT$(CHR$(46),11)
1560 LOCATE (11,5):PRINT RPT$(CHR$(46),4)
1570 LOCATE (11,11):PRINT RPT$(CHR$(46),5)
1580 LOCATE (10,5):PRINT RPT$(CHR$(32),11)
1590 LOCATE (11,5):PRINT RPT$(CHR$(32),11)
1600 AH=0
1610 READ X,W
1620 CALL COLOR("1RB"):LOCATE (X-2,W):PRINT CHR$(54)
1630 NEXT T
1640 IF CH=0 THEN 1800
1650 IF CH=10 THEN 1710
1660 LOCATE (CH-2,CV):PRINT CHR$(32)
1670 CH=CH-1


1680 CV=CV+1
1690 CALL COLOR("1RB"):LOCATE (CH-2,CV):PRINT CHR$(56)
1700 IF CV<>26 THEN 1800 ELSE 1770
1710 LOCATE (CH-2,CV):PRINT CHR$(32)
1720 CH=CH+1
1730 CV=CV+1
1740 CALL COLOR("1RB"):LOCATE (CH-2,CV):PRINT CHR$(55)
1750 IF (CV=W)+(CV=W-1)+(CV=W+1)THEN 2210
1760 GOTO 1800
1770 LOCATE (CH-2,CV):PRINT CHR$(32)
1780 CH=10
1790 CV=18
1800 IF AH=0 THEN 1350
1810 IF AH=12 THEN 1870
1820 LOCATE (AH-2,AV):PRINT CHR$(32)
1830 AH=AH-1
1840 AV=AV+1
1850 CALL COLOR("1RB"):LOCATE (AH-2,AV):PRINT CHR$(56)
1860 IF AV<>15 THEN 1350 ELSE 1930
1870 LOCATE (AH-2,AV):PRINT CHR$(32)
1880 AH=AH+1
1890 AV=AV+1
1900 CALL COLOR("1RB"):LOCATE (AH-2,AV):PRINT CHR$(55)
1910 IF (AV=W)+(AV=W+1)+(AV=W-1)THEN 2210
1920 GOTO 1350
1930 LOCATE (AH-2,AV):PRINT CHR$(32)
1940 AH=12
1950 AV=5
1960 GOTO 1350
1970 QU=13
1980 CALL CHAR(57,"001C3E7763773E1C")
1990 CALL CHAR(58,"3C7EC3E7E7E77E3C")
2000 CALL CHAR(39,"3E49081C08142241")
2010 CALL CHAR(47,"815A3C1824428142")
2020 CALL CHAR(48,"00DB3C1824422442")
2030 CALL COLOR("1YB"):LOCATE (15,12):PRINT CHR$(39)
2040 LOCATE (17,1):PRINT CHR$(39)
2050 CALL COLOR("1RB"):LOCATE (14,12):PRINT CHR$(57)
2060 LOCATE (16,1):PRINT CHR$(58)
2070 LOCATE (X-2,W):PRINT CHR$(32)
2080 READ X,W
2090 LOCATE (X-2,W):PRINT CHR$(53)
2100 DATA 15,31,15,30,15,29,15,28,15,27,15,26,15,25,15,24,16,23,17,22
2110 DATA 17,21,17,20,17,19,17,18,17,17
2120 DATA 17,16,17,15,17,14,17,13,17,12,17,11,18,10,19,9,19,8,19,7
2130 DATA 19,6,19,5,19,4,19,3,19,2,19,1
2140 CALL KEY1(K,KK)
2150 IF K=130 THEN 2170
2160 IF (K=49)+(K=32)THEN 2320 ELSE 2550
2170 LOCATE (X-2,W):PRINT CHR$(32)
2180 READ X,W
2190 CALL COLOR("1RB"):LOCATE (X-2,W):PRINT CHR$(53)
2200 GOTO 2300
2210 CALL SPEECH("L,"&D$&E$):FOR I=1 TO 5:CALL COLOR("1RB"):LOCATE (X-1,W-1)
2220 PRINT CHR$(46);CHR$(46):LOCATE (X-2,W-1):PRINT CHR$(46);CHR$(46)
2230 LOCATE (X-3,W-1):PRINT CHR$(32);CHR$(32):LOCATE (X-2,W-1):PRINT CHR$(32);
2240 PRINT CHR$(32):NEXT:CALL SPEECH("A,")
2250 GOTO 3520
2260 !
2270 !
2280 !
2290 CALL KEY1(A,B):IF A=255 THEN 2290 ELSE RUN 290
2300 CALL COLOR("1RB"):LOCATE (X-2,W):PRINT CHR$(54)
2310 GOTO 2390
2320 LOCATE (X-2,W):PRINT CHR$(32):CALL SPEECH("L,0D7C8BAABAB602FC")
2330 READ X,W
2340 X=X-1
2350 W=W-1
2360 CALL COLOR("1RB"):LOCATE (X-2,W):PRINT CHR$(54)
2370 IF X<>17 THEN 2390
2380 IF QU=W THEN 2620
2390 IF W<>13 THEN 2480
2400 CALL SPEECH("L,"&D$&E$)
2410 CALL COLOR("1WB"):LOCATE (14,12):PRINT RPT$(CHR$(46),11)
2420 LOCATE (15,12):PRINT RPT$(CHR$(46),11)
2430 LOCATE (14,12):PRINT RPT$(CHR$(32),12)
2440 LOCATE (15,12):PRINT RPT$(CHR$(32),11)
2450 QU=0
2460 READ X,W
2470 CALL COLOR("1RB"):LOCATE (X-2,W):PRINT CHR$(53)
2480 IF W<>THEN 2550
2490 CALL SPEECH("L,"&D$&E$):CALL SPEECH("A,")
2500 CALL COLOR("1WB"):LOCATE (16,1):PRINT RPT$(CHR$(46),9)
2510 LOCATE (17,1):PRINT RPT$(CHR$(46),9)
2520 LOCATE (16,1):PRINT RPT$(CHR$(32),9)
2530 LOCATE (17,1):PRINT RPT$(CHR$(32),9)
2540 GOTO 2840
2550 IF QU=0 THEN 2770
2560 IN=INT(15*RND+1)
2570 IF IN<>1 THEN 2660
2580 CALL COLOR("1WB"):LOCATE (14,13):PRINT RPT$(CHR$(46),10)
2590 CALL SPEECH("L,"&A$&B$)
2600 IF X<>16 THEN 2630
2610 CLS
2620 GOTO 2210
2630 LOCATE (14,13):PRINT RPT$(CHR$(32),10)
2640 GOTO 2660
2650 QU=13
2660 LOCATE (15,QU):PRINT CHR$(32)
2670 QU=QU+1
2680 IF QU=22 THEN 2650
2690 IF LT=2 THEN 2720
2700 CALL COLOR("1WB"):LOCATE (15,QU):PRINT CHR$(47)
2710 GOTO 2740
2720 CALL COLOR("1WB"):LOCATE (15,QU):PRINT CHR$(48)
2730 LT=2
2740 IF X<>17 ELSE 2760
2750 IF W=QU THEN 2620
2760 GOTO 2140
2770 CAL=INT(6*RND+1)
2780 IF CAL<>1 THEN 2140
2790 CALL COLOR("1WB"):LOCATE (16,2):PRINT RPT$(CHR$(46),9)
2800 CALL SPEECH("L,"&A$&D$)
2810 IF X=18 THEN 2620
2820 LOCATE (16,2):PRINT RPT$(CHR$(32),9)
2830 GOTO 2140
2840 AHH=20
2850 CALL CHAR(40,"2A492A1C08081C3E")
2860 CALL CHAR(100,"000087CF47666727")
2870 CALL CHAR(49,"37363733101E1E3C")
2880 CALL CHAR(50,"3C4E4F6F6EC60E08")
2890 CALL CHAR(51,"1008F4FCF40A0502")
2900 CALL COLOR("1YB"):LOCATE (21,5):PRINT CHR$(40)
2910 CALL COLOR("1GB"):LOCATE (20,5):PRINT CHR$(50)
2920 LOCATE (19,5):PRINT CHR$(49)
2930 LOCATE (18,5):PRINT CHR$(100)
2940 FOR I=0 TO 2:LOCATE (18+I,6):PRINT CHR$(51):NEXT I
2950 DATA 19,32,19,31,19,30,19,29,19,28,19,27,20,26,21,25,22,24
2960 DATA 23,23,23,22,23,21,23,20,23,19
2970 DATA 23,18,23,17,23,16,23,15,23,14,23,13,23,12,23,11,23,10,23,9
2980 DATA 23,8,23,7,23,6,23,5,23,4
2990 CALL KEY1(K,KK)
3000 IF W=4 THEN 3430
3010 IF K=130 THEN 3020 ELSE 3110
3020 LOCATE (X-2,W):PRINT CHR$(32)
3030 READ X,W
3040 CALL COLOR("1RB"):LOCATE (X-2,W):PRINT CHR$(53)
3050 LOCATE (X-2,W):PRINT CHR$(54)
3060 GOTO 3110


3070 LOCATE (AHH-2,18):PRINT CHR$(32)
3080 AHH=19
3090 AHH=AHH+1
3100 GOTO 3150
3110 FG=INT(3*RND)+1
3120 IF FG<>1 THEN 2760
3130 LOCATE (AHH-2,18):PRINT CHR$(32)
3140 AHH=AHH+1
3150 CALL COLOR("1WB"):LOCATE (AHH-2,18):PRINT CHR$(48)
3160 IF AHH<>23 THEN 3180
3170 IF W=18 THEN 2620 ELSE 3070
3180 LH=INT(10*RND+1)
3190 IF LH<>1 THEN 3250
3200 CALL COLOR("1WB"):LOCATE (21,7):PRINT CHR$(46)
3210 CALL SPEECH("L,"&C$)
3220 IF W=7 THEN 2620
3230 LOCATE (21,7):PRINT CHR$(32)
3240 GOTO 2990
3250 IF LH<>2 THEN 3320
3260 CALL COLOR("1RB"):LOCATE (20,7):PRINT CHR$(46)
3270 LOCATE (21,8):PRINT CHR$(46)
3280 CALL SPEECH("L,"&C$)
3290 IF W=8 THEN 2620
3300 LOCATE (20,7):PRINT CHR$(32)
3310 LOCATE (21,8):PRINT CHR$(32)
3320 GOTO 2990
3330 IF LH<>3 THEN 2990
3340 CALL COLOR("1RB"):LOCATE (19,7):PRINT CHR$(46)
3350 LOCATE (20,8):PRINT CHR$(46)
3360 LOCATE (21,9):PRINT CHR$(46)
3370 CALL SPEECH("L,"&C$)
3380 IF W=9 THEN 2620
3390 LOCATE (19,7):PRINT CHR$(32)
3400 LOCATE (20,8):PRINT CHR$(32)
3410 LOCATE (21,9):PRINT CHR$(32)
3420 GOTO 2990
3430 !
3440 PAUSE 2:CLS:CALL COLOR("0RB")
3450 CALL BRAV
3460 PRINT TAB(9);"BRAVO ! ! !":PRINT:PRINT:PRINT "LES POUVOIRS DU DIAMANT ";
3470 PRINT "VOUS SONT DONNES":PRINT:PRINT:PRINT "ILS NE DEVRONT REPANDRE QUE ";
3480 PRINT "LE BIEN"
3490 INPUT "VOULEZ VOUS REJOUER?";Z$
3500 IF Z$="O" THEN RUN 280
3510 END
3520 VIES=VIES-1:CALL POKE(51000,VIES)
3530 IF VIES=0 THEN GOTO 3540 ELSE 2290
3540 CALL AAA
3550 CLS:CALL COLOR("0MB"):PRINT "DESORMAIS LE DIAMANT AU POUVOIR SUPREME ";
3560 PRINT "    N'APPARTIENDRA PLUS A PERSONNE":PRINT:PRINT
3570 CALL COLOR("0CB"):PRINT "GAME OVER"
3580 INPUT "VOULEZ VOUS REJOUER ?";ML$
3590 IF ML$="O" THEN RUN 280
3600 SUB PRESENTATION
3610 CALL MUS1:PAUSE .5:CALL BONJ:PAUSE .5:CLS "GBB":CALL COLOR("0BG")
3620 LOCATE (2,10):PRINT " LA RECHERCHE DU DIAMANT VERT"
3630 CALL COLOR("0GB"):LOCATE (3,10):PRINT "-----------------------------":PRINT
3640 PRINT "Projete sur une planete inconnue avec ":PRINT
3650 PRINT "votre vaisseau, vous devez recuperer ":PRINT
3660 PRINT "le diamant sacre pour retourner sur ":PRINT
3670 PRINT "la terre. Evidemment, ce dernier est":PRINT
3680 PRINT "pratiquement inaccessible, ou presque.":PRINT
3690 PRINT "Pour cela il vous faudra parvenir a vous":PRINT
3700 PRINT "poser en evitant les asteroides qui":PRINT
3710 PRINT "entourent la planete et les champignons":PRINT
3720 CALL COLOR("0BW"):LOCATE (22,29):PRINT "[ RETURN ]":PAUSE:CLS
3730 CALL COLOR("0GB"):PRINT "... geants. Ensuite vous devrez eviter"
3740 PRINT:PRINT "les monstres que le magicien a cree pour"
3750 PRINT:PRINT "ecarter les intrus. Mais vous pourrez "
3760 PRINT:PRINT "utiliser les armes qui existent sur la"
3770 PRINT:PRINT "planete pour les detruire. "
3780 PRINT:PRINT "Le magicien a fait appel egalement a des"
3790 PRINT:PRINT "armes modernes qui tirent des rayons"
3800 PRINT:PRINT "gamma mortels. Mais l'epreuve la plus "
3810 PRINT:PRINT "terrible est le dragon a 3 tetes qu'il"
3820 PRINT:PRINT "vous faudra franchir..."
3830 CALL COLOR("0BW"):LOCATE (22,29):PRINT "[ RETURN ]":PAUSE:CLS
3840 CALL COLOR("0BW"):LOCATE (2,10):PRINT "LA RECHERCHE DU DIAMANT VERT"
3850 CALL COLOR("0WB"):LOCATE (4,18):PRINT "GUIDE"
3860 LOCATE (5,18):PRINT "-----"
3870 LOCATE (5,2):PRINT "1er TABLEAU"
3880 LOCATE (6,2):PRINT "-----------"
3890 PRINT "EVITER LES CHAMPIGNONS ET LES CAILLOUX  EN SAUTANT PAR DESSUS"
3900 LOCATE (8,21):PRINT "(TOUCHE POUR DESCENDRE)POUR SAUTER"
3910 LOCATE (10,2):PRINT "2eme TABLEAU"
3920 LOCATE (11,2):PRINT "------------"
3930 PRINT "EVITER LES MONSTRES EN ALLANT SUR LES   CANONS(LA FLECHE)"
3940 LOCATE (14,2):PRINT "3eme TABLEAU"
3950 LOCATE (15,2):PRINT "------------"
3960 PRINT "EVITER LE MONSTRE ET DETRUIRE LES CANONS LASERS(RENTRER DEDANS)"
3970 LOCATE (18,2):PRINT "4eme TABLEAU":LOCATE (19,2):PRINT "------------"
3980 PRINT "L'ARAIGNEE VOUS BARRE LE CHEMIN EVITEZ  LA AINSI QUE LE MONSTRE"
3990 PRINT "POUR PRENDRE LE DIAMANT DE LA LIBERTE"
4000 INPUT "";A$
4010 CLS
4020 CALL COLOR("0bB"):LOCATE (12,5):PRINT "Vous avez 3 vies - Manette orange"
4030 PRINT:PRINT "         Joystick vers le bas "
4040 PRINT:PRINT "          Bouton orange action"
4050 CALL COLOR("0MB"):LOCATE (22,21):INPUT "ENTRER POUR LE JEU";DF$
4060 SUBEND
4070 SUB MUS1
4080 DATA 118,2,2,252
4090 !
4100 DATA 136,197,0,121
4110 DATA 213,124,114,1,125,124,5,127
4120 DATA 209,123
4130 !
4140 DATA 18,126,45,19,226,55
4150 DATA 136,196,154,24,178,190,72,0,24
4160 !
4170 DATA 114,16,122,152,24,28,142,196
4180 DATA 112,114,34,122,136,196,190,28
4190 DATA 142,196,112
4200 !
4210 DATA 154,24,36,8,208,29
4220 DATA 211,24,154,24,208,30,114,11,122
4230 DATA 136,0,29,28,142,196,112,218
4240 DATA 123,243,224,13
4250 !
4260 DATA 136,196,31,28
4270 DATA 114,4,122,142,196,112,218,123
4280 DATA 243
4290 !
4300 DATA 114,8,122,136,196,185
4310 DATA 28,142,196,112,18,124,155,121
4320 !
4330 DATA 136,197,0,10,251,10
4340 !
4350 DATA 154,28,192,114,8,16,207,231
4360 DATA 3,68,125,124,222,125,125,01
4370 DATA 125,230,11,18,124,213,124,155
4380 DATA 121,211,121,121,0,120,210,122
4390 DATA 226,7,218,16,225,211,28,224,215
4400 DATA 10
4410 !
4420 DATA 18,0,17,129,17,98,17,35
4430 DATA 17,4,16,229,16,166,16,103
4440 DATA 66,104,66,41,65,234,65,203,65
4450 DATA 140,65,109,65,46,65,15,64,176
4460 DATA 64,113
4470 DATA 252,59,179,54,192
4480 !
4490 !
4500 !
4510 B=50175
4520 FOR I=1 TO 195
4530 READ A
4540 CALL POKE(B+I,A)
4550 NEXT
4560 !
4570 !
4580 !
4590 RESTORE 4720
4600 FOR I=1 TO 26
4610 B=126
4620 READ A
4630 CALL POKE(B,A)
4640 READ A
4650 CALL POKE(B+1,A)
4660 CALL EXEC(50176)
4670 B=126
4680 NEXT
4690 !
4700 !
4710 !
4720 DATA 2,1,2,2,2,1,4,2,7,2
4730 DATA 10,4,10,4,2,1,2,2,2,1,4,2
4740 DATA 7,2,8,8,2,1,2,2,2,1,4,2
4750 DATA 7,2,8,4,8,4,8,1,8,2,8,1
4760 DATA 7,2,4,2,7,8
4770 SUBEND
4780 SUB BONJ
4790 E$="28D5AA4C35B39094B932956E5CC2E4D704AB72D242D9008B4881F7A398D59326DA85"
4800 F$="56B14C92A89806D5CA59A1334F75CB340A28505D01DB76257DDB1B53959CC4C05323"
4810 G$="2A6C12AD0D0D2F254EB4D1AC6A5819C93496B0506C6525AB2E5A19AEB5AC64D995B3"
4820 H$="D2B1949424AB5385DB31922DCE9EA94AC9898E51A45B0204"
4830 CALL SPEECH("L,"&E$&F$&G$&H$)
4840 SUBEND
4850 SUB BRAV
4860 A$="24D2ACA2CC1B9384A98DB468A5B2485AC32C6E8BB2BA32A9302DE8A2D3A9232FAB984D"
4870 B$="B3B572C4123B2D57F1E50E9B737AE4C82A427643654939285995187694A417B66214B6"
4880 C$="9393CCA94155A95E09A33931DC322E8EF65164CA98328A17E1BEACEBFF07"
4890 CALL SPEECH("L,"&A$&B$&C$)
4900 SUBEND
4910 SUB AAA
4920 M$="AD29613CC2ABACA298756B9FBDAA54DBC3ABCAAD6EB5CB5BEE7CA73B9E5EB1D2548F08"
4930 N$="6951537248CC992E9789A91499A7E4FFO7"
4940 FOR I=1 TO 3
4950 !CALL SPEECH("L,"&M$&N$):PAUSE .2
4960 NEXT I
4970 SUBEND
4980 !
4990 !

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.