10 REM *******
20 REM *S.O.S* 30 REM ******* 40 MODE 1:MEMORY 15000 50 GOSUB 780 60 BORDER 0 70 INK 0,0:INK 1,26:INK 2,1:INK 3,9 80 RESTORE 210 90 FOR T=0 TO 6 100 D=1 110 IF T>4 THEN D=3 120 FOR I=0 TO 7 130 READ A 140 IF D=1 THEN B=A AND 240:C=(A AND 15)*16 150 IF D=2 THEN B=(A AND 240)/16:C=A AND 15 160 IF D=3 THEN B=17*(A AND 240)/16:C=17*(A AND 15) 170 POKE 39168+T*16*I,B 180 POKE 39176+T*16+I,C 190 NEXT I 200 NEXT T 210 DATA 0,0,0,1,7,15,31,21 220 DATA 0,0,0,240,252,254,255,85 230 DATA 8,4,2,1,0,0,0,0 240 DATA 2,4,8,80,224,64,160,0 250 DATA 0,0,0,0,0,0,0,0 260 DATA 0,0,0,0,224,127,63,0 270 DATA 0,0,0,0,7,254,252,0 280 CLS 290 SC=0 300 PEN 2 310 LOCATE 1,23 320 FOR T=1 TO 120 330 PRINT CHR$(143);:NEXT T 340 PEN 3 350 FOR I=22 TO 25 360 FOR T=35 TO 40 370 LOCATE T,I:PRINT CHR$(143); 380 NEXT T 390 NEXT I 400 N=0:M=0:GOSUB 700:X=64 410 GOSUB 740 420 E=33 430 FOR T=0 TO 19 440 POKE 35002+T*3,254-T 450 NEXT T 460 POKE 39007,E:Z=0 470 POKE 39003,X 480 IF INKEY(39)=0 AND X>4 THEN CALL 40002:X=X-3 490 IF INKEY(31)=0 AND X<63 THEN CALL 40002:X=X+2 500 IF X<64 THEN CALL 40002:X=X+1 510 POKE 39003,X:CALL 40004 520 IF X=64 AND N<>0 THEN N=0:SOUND 1,20:GOSUB 720:BORDER 0 530 CALL 40000 540 IF PEEK(39005)=0 THEN 470 550 Z=Z+1 560 Y=PEEK(39006) 570 IF ABS(Y-X-1)<4 AND N<>5 THEN SOUND 1,200:SC=SC+1:N=N+1:GOSUB 700:GOSUB 680:IF Z=20 THEN 670 ELSE 470 580 SOUND 1,2000 590 M=M+1:GOSUB 720 600 IF M<10 THEN IF Z=20 THEN 670 ELSE 470 610 SOUND 1,150:SOUND 1,50:SOUND 1,100 620 GOSUB 740 630 FOR T=1 TO 100:NEXT T 640 PEN 1 650 LOCATE 13,7:PRINT "APPUYER SUR 'f0'" 660 IF INKEY(15)=-1 THEN 660 ELSE 280 670 IF E>17 THEN E=E-8 675 GOTO 430 680 IF N=5 THEN BORDER 9 690 RETURN 700 PEN 2 710 LOCATE 11,1:PRINT RIGHT$(STR$(10000+SC),4) 720 LOCATE 18,1:PRINT N;"";M 730 RETURN 740 PEN 2 750 IF SC>RE THEN RE=SC 760 LOCATE 27,1:PRINT RIGHT$(STR$(10000+RE),4) 770 RETURN 780 RESTORE 840 790 FOR T=40000 TO 40423 800 READ A 810 POKE T,A 820 NEXT T 830 RETURN 840 DATA 24,119,24,18,58,91,152,87,30,168,205,143,156,30,80,205,106,156,205,106 850 DATA 156,201,58,91,152,87,30,168,205,143,156,30,64,205,106,156,30,64,205,106 860 DATA 156,201,22,153,205,115,156,205,115,156,201,229,1,8,8,26,119,28,124,254 870 DATA 248,56,9,213,17,176,63,183,237,82,209,124,129,103,16,235,225,35,201,123 880 DATA 230,7,245,123,203,63,203,63,203,63,95,6,192,74,107,38,0,203,37,203 890 DATA 37,133,111,203,37,41,41,41,9,193,120,183,40,6,17,0,8,25,16,253 900 DATA 201,175,50,93,152,58,92,152,60,50,92,152,230,1,183,32,5,17,0,15 910 DATA 24,3,17,15,0,33,144,254,6,34,122,119,35,123,119,35,16,248,62,1 920 DATA 50,90,152,58,89,152,60,50,89,152,87,58,95,152,186,48,7,175,50,89 930 DATA 152,50,90,152,33,184,136,34,160,140,6,20,197,42,160,140,17,136,144,1 940 DATA 3,0,237,176,58,138,144,254,3,56,19,58,90,152,183,32,7,58,138,144 950 DATA 60,50,138,144,205,225,157,195,202,157,183,32,20,60,50,138,144,237,95,230 960 DATA 31,198,16,50,137,144,62,16,50,136,144,24,66,254,2,32,6,205,225,157 970 DATA 195,202,157,237,91,136,144,205,143,156,229,30,64,205,106,156,30,64,205,106 980 DATA 156,225,17,80,0,25,30,64,205,106,156,30,64,205,106,156,58,136,144,254 990 DATA 158,32,16,62,2,50,138,144,50,93,152,58,137,144,50,94,152,24,75,237 1000 DATA 95,50,88,152,230,1,183,40,7,58,137,144,254,5,48,4,33,137,144,52 1010 DATA 58,88,152,254,64,56,7,58,137,144,254,64,56,4,33,137,144,53,58,136 1020 DATA 144,60,50,136,144,237,91,136,144,205,143,156,229,30,0,205,106,156,205,106 1030 DATA 156,225,17,80,0,25,30,32,205,106,156,205,106,156,33,136,144,237,91,160 1040 DATA 140,1,3,0,237,176,237,83,160,140,193,16,1,201,195,0,157,6,255,197 1050 DATA 193,16,252,201 |