1 ' PHARAONS - Cahiers d'Amstrad N"2 -
10 CLS 20 MODE 0 30 INK 3,12 40 INK 9,0 50 INK 11,0 60 INK 1,3 70 INK 5,3 80 INK 13,3 90 PAPER 3:CLS 100 WINDOW #1,1,20,1,10 110 PAPER #2,7 120 CLS#1 130 c=5:x=250:y=150:GOSUB 220 140 c=1:x=450:y=200:GOSUB 220 150 PRINT CHR$(23);CHR$(1); 160 PRINT CHR$(23);CHR$(0); 170 LOCATE 3,25:PAPER 0:PEN 8:PRINT"TAPEZ UNE TOUCHE" 180 WHILE INKEY$="":WEND 190 MODE 1:CALL &BBFF:PAPER 0 200 GOTO 410 210 ' DESSIN DES PYRAMIDES 220 RESTORE 230 230 DATA 40,47,56,40,47,56,0,71,0 240 DATA 36,45,50,36,45,50,0,67,0 250 DATA 40,47,56,40,47,56,0 260 DATA 56,45,42,40,38 270 FOR T=1 TO 30 280 READ A 290 SOUND 1,A,12 300 NEXT 310 PEN 14:PAPER 0:LOCATE 6,1:PRINT"LE JEU ":LOCATE 4,3:PRINT"DES PHARAONS" 320 w=200 330 FOR v=1 TO 100 340 MOVE x-w/2,y+v 350 DRAWR w,0,c 360 w=w-2 370 NEXT v 380 RETURN 390 CLS:GOSUB 410 400 END 410 MODE 2:PEN 5:LOCATE 36,3:PRINT"regle du jeu" 420 LOCATE 3,6:PRINT"Dans le premier tableau,vous devrez casser le plus de pierre en un temps limite.Au dexieme tableau vous devrez ratraper les coeurs et eviter les fleches." 430 PRINT:PRINT:PRINT:PRINT:INPUT"voulez-vous entrez votre nom ";n$ 440 CLS:MODE 1:LOCATE 20,15:PRINT"bonne chance":LOCATE 25,17:PRINT n$:FOR t=1 TO 1000:NEXT 450 CLS:GOSUB 460 460 MODE 2:LOCATE 25,10:PEN 5:PRINT"LE SECRET DES PYRAMIDES":FOR t=1 TO 500:NEXT t 470 MODE 1 480 FOR T=1 TO 36 490 PRINT CHR$(143); 500 NEXT 510 FOR T=1 TO 22 520 PRINT CHR$(143) 530 NEXT 540 FOR T=1 TO 36 550 PRINT CHR$(143); 560 NEXT 570 X=0 580 FOR T=1 TO 23 590 X=X+1:LOCATE 37,X:PRINTCHR$(143) 600 NEXT 610 LOCATE 5,2:PRINT CHR$(143) 620 LOCATE 14,2:PRINT CHR$(143) 630 LOCATE 19,2:PRINT CHR$(143) 640 LOCATE 28,2:PRINT CHR$(143) 650 LOCATE 32,2:PRINT CHR$(143) 660 LOCATE 3,3:PRINT CHR$(143) 670 LOCATE 5,3:PRINT CHR$(143) 680 LOCATE 7,3:PRINT CHR$(143) 690 LOCATE 8,3:PRINT CHR$(143) 700 LOCATE 9,3:PRINT CHR$(143) 710 LOCATE 10,3:PRINT CHR$(143) 720 LOCATE 11,3:PRINT CHR$(143) 730 LOCATE 12,3:PRINT CHR$(143) 740 LOCATE 16,3:PRINT CHR$(143) 750 LOCATE 17,3:PRINT CHR$(143) 760 LOCATE 19,3:PRINT CHR$(143) 770 LOCATE 21,3:PRINT CHR$(143) 780 LOCATE 22,3:PRINT CHR$(143) 790 LOCATE 23,3:PRINT CHR$(143) 800 LOCATE 24,3:PRINT CHR$(143) 810 LOCATE 26,3:PRINT CHR$(143) 820 LOCATE 30,3:PRINT CHR$(143) 830 LOCATE 32,3:PRINT CHR$(143) 840 LOCATE 34,3:PRINT CHR$(143) 850 LOCATE 35,3:PRINT CHR$(143) 860 LOCATE 3,4:PRINT CHR$(143) 870 LOCATE 12,4:PRINT CHR$(143) 880 LOCATE 14,4:PRINT CHR$(143) 890 LOCATE 17,4:PRINT CHR$(143) 900 LOCATE 19,4:PRINT CHR$(143) 910 LOCATE 24,4:PRINT CHR$(143) 920 LOCATE 26,4:PRINT CHR$(143) 930 LOCATE 27,4:PRINT CHR$(143) 940 LOCATE 28,4:PRINT CHR$(143) 950 LOCATE 29,4:PRINT CHR$(143) 960 LOCATE 30,4:PRINT CHR$(143) 970 LOCATE 34,4:PRINT CHR$(143) 980 LOCATE 5,5:PRINT CHR$(143) 990 LOCATE 7,5:PRINT CHR$(143) 1000 LOCATE 8,5:PRINT CHR$(143) 1010 LOCATE 9,5:PRINT CHR$(143) 1020 LOCATE 10,5:PRINT CHR$(143) 1030 LOCATE 14,5:PRINT CHR$(143) 1040 LOCATE 17,5:PRINT CHR$(143) 1050 LOCATE 19,5:PRINT CHR$(143) 1060 LOCATE 20,5:PRINT CHR$(143) 1070 LOCATE 22,5:PRINT CHR$(143) 1080 LOCATE 24,5:PRINT CHR$(143) 1090 LOCATE 28,5:PRINT CHR$(143) 1100 LOCATE 30,5:PRINT CHR$(143) 1110 LOCATE 31,5:PRINT CHR$(143) 1120 LOCATE 32,5:PRINT CHR$(143) 1130 LOCATE 34,5:PRINT CHR$(143) 1140 LOCATE 2,6:PRINT CHR$(143) 1150 LOCATE 4,6:PRINT CHR$(143) 1160 LOCATE 5,6:PRINT CHR$(143) 1170 LOCATE 12,6:PRINT CHR$(143) 1180 LOCATE 13,6:PRINT CHR$(143) 1190 LOCATE 14,6:PRINT CHR$(143) 1200 LOCATE 15,6:PRINT CHR$(143) 1210 LOCATE 17,6:PRINT CHR$(143) 1220 LOCATE 20,6:PRINT CHR$(143) 1230 LOCATE 22,6:PRINT CHR$(143) 1240 LOCATE 24,6:PRINT CHR$(143) 1250 LOCATE 25,6:PRINT CHR$(143) 1260 LOCATE 26,6:PRINT CHR$(143) 1270 LOCATE 28,6:PRINT CHR$(143) 1280 LOCATE 5,7:PRINT CHR$(143) 1290 LOCATE 7,7:PRINT CHR$(143) 1300 LOCATE 8,7:PRINT CHR$(143) 1310 LOCATE 9,7:PRINT CHR$(143) 1320 LOCATE 17,7:PRINT CHR$(143) 1330 LOCATE 18,7:PRINT CHR$(143) 1340 LOCATE 20,7:PRINT CHR$(143) 1350 LOCATE 22,7:PRINT CHR$(143) 1360 LOCATE 25,7:PRINT CHR$(143) 1370 LOCATE 28,7:PRINT CHR$(143) 1380 LOCATE 30,7:PRINT CHR$(143) 1390 LOCATE 31,7:PRINT CHR$(143) 1400 LOCATE 33,7:PRINT CHR$(143) 1410 LOCATE 34,7:PRINT CHR$(143) 1420 LOCATE 35,7:PRINT CHR$(143) 1430 LOCATE 3,8:PRINT CHR$(143) 1440 LOCATE 8,8:PRINT CHR$(143) 1450 LOCATE 11,8:PRINT CHR$(143) 1460 LOCATE 12,8:PRINT CHR$(143) 1470 LOCATE 13,8:PRINT CHR$(143) 1480 LOCATE 14,8:PRINT CHR$(143) 1490 LOCATE 15,8:PRINT CHR$(143) 1500 LOCATE 17,8:PRINT CHR$(143) 1510 LOCATE 18,8:PRINT CHR$(143) 1520 LOCATE 20,8:PRINT CHR$(143) 1530 LOCATE 25,8:PRINT CHR$(143) 1540 LOCATE 28,8:PRINT CHR$(143) 1550 LOCATE 3,9:PRINT CHR$(143) 1560 LOCATE 8,9:PRINT CHR$(143) 1570 LOCATE 9,9:PRINT CHR$(143) 1580 LOCATE 11,9:PRINT CHR$(143) 1590 LOCATE 12,9:PRINT CHR$(143) 1600 LOCATE 17,9:PRINT CHR$(143) 1610 LOCATE 18,9:PRINT CHR$(143) 1620 LOCATE 20,9:PRINT CHR$(143) 1630 LOCATE 21,9:PRINT CHR$(143) 1640 LOCATE 22,9:PRINT CHR$(143) 1650 LOCATE 23,9:PRINT CHR$(143) 1660 LOCATE 25,9:PRINT CHR$(143) 1670 LOCATE 30,9:PRINT CHR$(143) 1680 LOCATE 31,9:PRINT CHR$(143) 1690 LOCATE 32,9:PRINT CHR$(143) 1700 LOCATE 33,9:PRINT CHR$(143) 1710 LOCATE 34,9:PRINT CHR$(143) 1720 LOCATE 2,10:PRINT CHR$(143) 1730 LOCATE 3,10:PRINT CHR$(143) 1740 LOCATE 4,10:PRINT CHR$(143) 1750 LOCATE 5,10:PRINT CHR$(143) 1760 LOCATE 11,10:PRINT CHR$(143) 1770 LOCATE 12,10:PRINT CHR$(143) 1780 LOCATE 14,10:PRINT CHR$(143) 1790 LOCATE 15,10:PRINT CHR$(143) 1800 LOCATE 16,10:PRINT CHR$(143) 1810 LOCATE 17,10:PRINT CHR$(143) 1820 LOCATE 18,10:PRINT CHR$(143) 1830 LOCATE 22,10:PRINT CHR$(143) 1840 LOCATE 23,10:PRINT CHR$(143) 1850 LOCATE 25,10:PRINT CHR$(143) 1860 LOCATE 27,10:PRINT CHR$(143) 1870 LOCATE 29,10:PRINT CHR$(143) 1880 LOCATE 32,10:PRINT CHR$(143) 1890 LOCATE 2,11:PRINT CHR$(143) 1900 LOCATE 3,11:PRINT CHR$(143) 1910 LOCATE 4,11:PRINT CHR$(143) 1920 LOCATE 5,11:PRINT CHR$(143) 1930 LOCATE 7,11:PRINT CHR$(143) 1940 LOCATE 9,11:PRINT CHR$(143) 1950 LOCATE 10,11:PRINT CHR$(143) 1960 LOCATE 11,11:PRINT CHR$(143) 1970 LOCATE 12,11:PRINT CHR$(143) 1980 LOCATE 14,11:PRINT CHR$(143) 1990 LOCATE 15,11:PRINT CHR$(143) 2000 LOCATE 16,11:PRINT CHR$(143) 2010 LOCATE 17,11:PRINT CHR$(143) 2020 LOCATE 18,11:PRINT CHR$(143) 2030 LOCATE 19,11:PRINT CHR$(143) 2040 LOCATE 22,11:PRINT CHR$(143) 2050 LOCATE 23,11:PRINT CHR$(143) 2060 LOCATE 31,11:PRINT CHR$(143) 2070 LOCATE 32,11:PRINT CHR$(143) 2080 LOCATE 34,11:PRINT CHR$(143) 2090 LOCATE 35,11:PRINT CHR$(143) 2100 LOCATE 3,12:PRINT CHR$(143) 2110 LOCATE 7,12:PRINT CHR$(143) 2120 LOCATE 9,12:PRINT CHR$(143) 2130 LOCATE 14,12:PRINT CHR$(143) 2140 LOCATE 22,12:PRINT CHR$(143) 2150 LOCATE 23,12:PRINT CHR$(143) 2160 LOCATE 24,12:PRINT CHR$(143) 2170 LOCATE 26,12:PRINT CHR$(143) 2180 LOCATE 28,12:PRINT CHR$(143) 2190 LOCATE 3,13:PRINT CHR$(143) 2200 LOCATE 6,13:PRINT CHR$(143) 2210 LOCATE 5,13:PRINT CHR$(143) 2220 LOCATE 7,13:PRINT CHR$(143) 2230 LOCATE 9,13:PRINT CHR$(143) 2240 LOCATE 11,13:PRINT CHR$(143) 2250 LOCATE 12,13:PRINT CHR$(143) 2260 LOCATE 13,13:PRINT CHR$(143) 2270 LOCATE 14,13:PRINT CHR$(143) 2280 LOCATE 16,13:PRINT CHR$(143) 2290 LOCATE 18,13:PRINT CHR$(143) 2300 LOCATE 20,13:PRINT CHR$(143) 2310 LOCATE 30,13:PRINT CHR$(143) 2320 LOCATE 31,13:PRINT CHR$(143) 2330 LOCATE 32,13:PRINT CHR$(143) 2340 LOCATE 33,13:PRINT CHR$(143) 2350 LOCATE 34,13:PRINT CHR$(143) 2360 LOCATE 3,14:PRINT CHR$(143) 2370 LOCATE 9,14:PRINT CHR$(143) 2380 LOCATE 11,14:PRINT CHR$(143) 2390 LOCATE 12,14:PRINT CHR$(143) 2400 LOCATE 13,14:PRINT CHR$(143) 2410 LOCATE 14,14:PRINT CHR$(143) 2420 LOCATE 16,14:PRINT CHR$(143) 2430 LOCATE 18,14:PRINT CHR$(143) 2440 LOCATE 20,14:PRINT CHR$(143) 2450 LOCATE 22,14:PRINT CHR$(143) 2460 LOCATE 23,14:PRINT CHR$(143) 2470 LOCATE 24,14:PRINT CHR$(143) 2480 LOCATE 26,14:PRINT CHR$(143) 2490 LOCATE 28,14:PRINT CHR$(143) 2500 LOCATE 32,14:PRINT CHR$(143) 2510 LOCATE 3,15:PRINT CHR$(143) 2520 LOCATE 4,15:PRINT CHR$(143) 2530 LOCATE 6,15:PRINT CHR$(143) 2540 LOCATE 7,15:PRINT CHR$(143) 2550 LOCATE 8,15:PRINT CHR$(143) 2560 LOCATE 9,15:PRINT CHR$(143) 2570 LOCATE 16,15:PRINT CHR$(143) 2580 LOCATE 18,15:PRINT CHR$(143) 2590 LOCATE 20,15:PRINT CHR$(143) 2600 LOCATE 30,15:PRINT CHR$(143) 2610 LOCATE 34,15:PRINT CHR$(143) 2620 LOCATE 6,16:PRINT CHR$(143) 2630 LOCATE 7,16:PRINT CHR$(143) 2640 LOCATE 9,16:PRINT CHR$(143) 2650 LOCATE 11,16:PRINT CHR$(143) 2660 LOCATE 12,16:PRINT CHR$(143) 2670 LOCATE 13,16:PRINT CHR$(143) 2680 LOCATE 14,16:PRINT CHR$(143) 2690 LOCATE 18,16:PRINT CHR$(143) 2700 LOCATE 22,16:PRINT CHR$(143) 2710 LOCATE 23,16:PRINT CHR$(143) 2720 LOCATE 24,16:PRINT CHR$(143) 2730 LOCATE 26,16:PRINT CHR$(143) 2740 LOCATE 28,16:PRINT CHR$(143) 2750 LOCATE 30,16:PRINT CHR$(143) 2760 LOCATE 31,16:PRINT CHR$(143) 2770 LOCATE 32,16:PRINT CHR$(143) 2780 LOCATE 33,16:PRINT CHR$(143) 2790 LOCATE 34,16:PRINT CHR$(143) 2800 LOCATE 2,17:PRINT CHR$(143) 2810 LOCATE 4,17:PRINT CHR$(143) 2820 LOCATE 6,17:PRINT CHR$(143) 2830 LOCATE 7,17:PRINT CHR$(143) 2840 LOCATE 11,17:PRINT CHR$(143) 2850 LOCATE 12,17:PRINT CHR$(143) 2860 LOCATE 13,17:PRINT CHR$(143) 2870 LOCATE 14,17:PRINT CHR$(143) 2880 LOCATE 15,17:PRINT CHR$(143) 2890 LOCATE 16,17:PRINT CHR$(143) 2900 LOCATE 17,17:PRINT CHR$(143) 2910 LOCATE 18,17:PRINT CHR$(143) 2920 LOCATE 19,17:PRINT CHR$(143) 2930 LOCATE 20,17:PRINT CHR$(143) 2940 LOCATE 21,17:PRINT CHR$(143) 2950 LOCATE 22,17:PRINT CHR$(143) 2960 LOCATE 23,17:PRINT CHR$(143) 2970 LOCATE 24,17:PRINT CHR$(143) 2980 LOCATE 26,17:PRINT CHR$(143) 2990 LOCATE 28,17:PRINT CHR$(143) 3000 LOCATE 31,17:PRINT CHR$(143) 3010 LOCATE 34,17:PRINT CHR$(143) 3020 LOCATE 2,18:PRINT CHR$(143) 3030 LOCATE 3,18:PRINT CHR$(143) 3040 LOCATE 4,18:PRINT CHR$(143) 3050 LOCATE 6,18:PRINT CHR$(143) 3060 LOCATE 7,18:PRINT CHR$(143) 3070 LOCATE 8,18:PRINT CHR$(143) 3080 LOCATE 10,18:PRINT CHR$(143) 3090 LOCATE 11,18:PRINT CHR$(143) 3100 LOCATE 12,18:PRINT CHR$(143) 3110 LOCATE 13,18:PRINT CHR$(143) 3120 LOCATE 15,18:PRINT CHR$(143) 3130 LOCATE 31,18:PRINT CHR$(143) 3140 LOCATE 33,18:PRINT CHR$(143) 3150 LOCATE 34,18:PRINT CHR$(143) 3160 LOCATE 2,19:PRINT CHR$(143) 3170 LOCATE 4,19:PRINT CHR$(143) 3180 LOCATE 8,19:PRINT CHR$(143) 3190 LOCATE 10,19:PRINT CHR$(143) 3200 LOCATE 11,19:PRINT CHR$(143) 3210 LOCATE 12,19:PRINT CHR$(143) 3220 LOCATE 13,19:PRINT CHR$(143) 3230 LOCATE 15,19:PRINT CHR$(143) 3240 LOCATE 16,19:PRINT CHR$(143) 3250 LOCATE 17,19:PRINT CHR$(143) 3260 LOCATE 22,19:PRINT CHR$(143) 3270 LOCATE 25,19:PRINT CHR$(143) 3280 LOCATE 27,19:PRINT CHR$(143) 3290 LOCATE 28,19:PRINT CHR$(143) 3300 LOCATE 29,19:PRINT CHR$(143) 3310 LOCATE 34,19:PRINT CHR$(143) 3320 LOCATE 2,20:PRINT CHR$(143) 3330 LOCATE 6,20:PRINT CHR$(143) 3340 LOCATE 8,20:PRINT CHR$(143) 3350 LOCATE 10,20:PRINT CHR$(143) 3360 LOCATE 11,20:PRINT CHR$(143) 3370 LOCATE 12,20:PRINT CHR$(143) 3380 LOCATE 13,20:PRINT CHR$(143) 3390 LOCATE 16,20:PRINT CHR$(143) 3400 LOCATE 17,20:PRINT CHR$(143) 3410 LOCATE 19,20:PRINT CHR$(143) 3420 LOCATE 20,20:PRINT CHR$(143) 3430 LOCATE 22,20:PRINT CHR$(143) 3440 LOCATE 24,20:PRINT CHR$(143) 3450 LOCATE 25,20:PRINT CHR$(143) 3460 LOCATE 31,20:PRINT CHR$(143) 3470 LOCATE 32,20:PRINT CHR$(143) 3480 LOCATE 33,20:PRINT CHR$(143) 3490 LOCATE 34,20:PRINT CHR$(143) 3500 LOCATE 4,21:PRINT CHR$(143) 3510 LOCATE 6,21:PRINT CHR$(143) 3520 LOCATE 8,21:PRINT CHR$(143) 3530 LOCATE 10,21:PRINT CHR$(143) 3540 LOCATE 11,21:PRINT CHR$(143) 3550 LOCATE 12,21:PRINT CHR$(143) 3560 LOCATE 13,21:PRINT CHR$(143) 3570 LOCATE 15,21:PRINT CHR$(143) 3580 LOCATE 16,21:PRINT CHR$(143) 3590 LOCATE 25,21:PRINT CHR$(143) 3600 LOCATE 27,21:PRINT CHR$(143) 3610 LOCATE 29,21:PRINT CHR$(143) 3620 LOCATE 31,21:PRINT CHR$(143) 3630 LOCATE 32,21:PRINT CHR$(143) 3640 LOCATE 34,21:PRINT CHR$(143) 3650 LOCATE 2,22:PRINT CHR$(143) 3660 LOCATE 4,22:PRINT CHR$(143) 3670 LOCATE 6,22:PRINT CHR$(143) 3680 LOCATE 8,22:PRINT CHR$(143) 3690 LOCATE 15,22:PRINT CHR$(143) 3700 LOCATE 16,22:PRINT CHR$(143) 3710 LOCATE 18,22:PRINT CHR$(143) 3720 LOCATE 19,22:PRINT CHR$(143) 3730 LOCATE 20,22:PRINT CHR$(143) 3740 LOCATE 22,22:PRINT CHR$(143) 3750 LOCATE 23,22:PRINT CHR$(143) 3760 LOCATE 25,22:PRINT CHR$(143) 3770 LOCATE 26,22:PRINT CHR$(143) 3780 LOCATE 27,22:PRINT CHR$(143) 3790 LOCATE 28,22:PRINT CHR$(143) 3800 LOCATE 29,22:PRINT CHR$(143) 3810 LOCATE 31,22:PRINT CHR$(143) 3820 LOCATE 2,23:PRINT CHR$(143) 3830 LOCATE 10,23:PRINT CHR$(143) 3840 LOCATE 12,23:PRINT CHR$(143) 3850 LOCATE 29,23:PRINT CHR$(143) 3860 LOCATE 30,23:PRINT CHR$(143) 3870 LOCATE 31,23:PRINT CHR$(143) 3880 LOCATE 33,23:PRINT CHR$(143) 3890 '**** MUSIQUE **** 3900 RESTORE 3940 3910 READ P,D 3920 IF P<>-1 THEN SOUND 2,P,D ELSE GOTO 4010 3930 GOTO 3910 3940 DATA 638,60,478,85,0,5,478,25,0,5 3950 DATA 478,60,379,60,426,90,478,30,426,60 3960 DATA 379,60,478,85,0,5,478,30,379,60,319,60 3970 DATA 284,175,0,5,284,60,319,90,379,25,0 3980 DATA 5,379,60,478,60,426,90,478,30,426,60 3990 DATA 379,60,478,90,568,25,0,5,568,60 4000 DATA 638,60,478,120,-1,-1 4010 LOCATE 1,25:PRINT "SCORE:" 4020 LOCATE 15,25:PRINT "VIE:" 4030 temp=1000 4040 LOCATE 24,25:PRINT "TEMPS:";temp 4050 LOCATE 2,2:PRINT CHR$(249) 4060 X=2:Y=2 4070 WHILE 1 4080 IF NOT INKEY(74) THEN X=X-1 4090 IF NOT INKEY(8) THEN x=x-1 4100 IF NOT INKEY(75) THEN X=X+1 4110 IF NOT INKEY(1) THEN x=x+1 4120 IF NOT INKEY(72) THEN Y=Y-1 4130 IF NOT INKEY(0) THEN y=y-1 4140 IF NOT INKEY(2) THEN y=y+1 4150 IF NOT INKEY(73) THEN Y=Y+1 4160 IF X<2 THEN X=2 4170 IF X>36 THEN X=36 4180 IF Y<2 THEN Y=2 4190 IF Y>22 THEN Y=22 4200 LOCATE X,Y:PRINT CHR$(249) 4210 CALL &BD19 4220 LOCATE X,Y:PRINT CHR$(32) 4230 temp=temp-1 4240 LOCATE 24,25:PRINT"TEMPS:";temp 4250 IF temp=0 THEN LOCATE 15,20:FOR Y=1 TO 500:NEXT:SCOR=INT (RND(11+32)*100):LOCATE 1,25:PRINT"SCORE:";SCOR:FOR T=1 TO 1000:NEXT:GOSUB 4270 4260 WEND 4270 CLS 4280 MODE 1 4290 BORDER 18:PAPER 2:CLS 4300 BUCKET$=CHR$(32)+CHR$(205)+"__"+CHR$(204)+CHR$(32) 4310 BX=17:BY=24 4320 LOCATE 1,1:PEN 0:PRINT "SCORE" 4330 LOCATE 34,1:PRINT "HISCORE" 4340 RANDOMIZE TIME 4350 GOSUB 4770 4360 FOR B=1 TO 21 4370 IF RND>0.5 THEN BOMB$=CHR$(228):C=3:ELSE BOMB$=CHR$(241):C=1 4380 DX=INT(RND*25)+7 4390 GOSUB 4480 4400 IF (DX=BX+2) OR (DX=BX+3) THEN GOSUB 4620 4410 LOCATE ODX,ODY:PRINT CHR$(32) 4420 NEXT 4430 GOSUB 4680 4440 GOSUB 4710 4450 IF LOWER$(ANS$)="Y" THEN 4350 4460 CALL &BBFF:PAPER 0:PEN 1:CLS 4470 END 4480 'PROCEDURE DU JEU 4490 ODX=7:ODY=1 4500 FOR DY=1 TO 23 4510 LOCATE ODX,ODY:PRINT CHR$(32) 4520 LOCATE DX,DY:PEN C:PRINT BOMB$ 4530 ODX=DX:ODY=DY 4540 SOUND 1,DY*50,5 4550 IF NOT INKEY(74) THEN BX=BX-1 4553 IF NOT INKEY(8) THEN bx=bx-1 4555 IF NOT INKEY(1) THEN bx=bx+1 4560 IF NOT INKEY(75) THEN BX=BX+1 4570 IF BX<1 THEN BX=1 4580 IF BX>34 THEN BX=34 4590 LOCATE BX,BY:PEN 0:PRINT BUCKET$ 4600 NEXT DY 4610 RETURN 4620 ' SCORE 4630 IF C=3 THEN PTS=PTS+10:SOUND 1,50,50 4640 IF C=1 THEN PTS=CINT(PTS/2):SOUND 1,1000,100 4650 LOCATE 1,2:PEN 0:PRINT PTS 4660 PTS=SCOR+PTS 4670 RETURN 4680 FOR T=1 TO 3000:NEXT 4690 PAPER 0:PEN 0:BORDER 0:GOTO 10 4700 PAPER 0:PEN 0:BORDER 0:GOTO 10 4710 IF PTS>HISCORE THEN HISCORE=PTS 4720 LOCATE 34,2 4730 PEN 0 4740 PRINT HISCORE 4750 PTS=0 4760 RETURN 4770 'SOUS PROGRAMME DE DEPART 4780 LOCATE 10,10 4790 PEN 3 4800 WHILE INKEY$<>"":WEND 4810 LOCATE 1,10:PRINT "APPUYEZ SUR UNE TOUCHE POUR COMMENCER" 4820 A$=INKEY$:IF A$="" THEN 4820 4830 LOCATE 1,10:PRINT " " 4840 PRINT SPACE$(22) 4850 RETURN 4860 END |