10 REM *******
20 REM *XEROS* 30 REM ******* 40 MODE 1:BORDER 6:INK 0,6:INK 1,6 50 INK 2,21:INK 3,26 60 PEN 1:MEMORY 15000 70 FOR T=38970 TO 38975 80 POKE T,0 90 NEXT T 100 FOR T=0 TO 9 110 LOCATE 1,1:PRINT CHR$(48+T) 120 FOR I=0 TO 1 130 FOR Z=0 TO 7 140 POKE 39168+T*16+I*8+Z,PEEK(49152+Z*2048+I) 150 NEXT Z 160 NEXT I 170 NEXT T 180 CLS 190 GOSUB 950 200 BORDER 0:INK 0,0 210 RESTORE 320 220 FOR T=10 TO 14 230 FOR i=0 TO 7 240 READ A 250 B=(A AND 240)/16:C=A AND 15 260 IF T=10 OR T=12 THEN B=17*(A AND 240)/16:C=17*(A AND 15) 270 IF T=14 THEN B=A AND 240:C=(A AND 15)*16 280 POKE 39168+T*16+I,B 290 POKE 39176+T*16+I,C 300 NEXT I 310 NEXT T 320 DATA 0,126,126,126,0,231,231,231 330 DATA 0,0,0,0,0,0,0,0 340 DATA 24,60,126,126,60,126,231,195 350 DATA 90,219,60,255,255,60,219,90 360 DATA 0,0,24,60,60,24,0,0 370 CLS 380 FOR T=38990 TO 38995 390 POKE T,0 400 NEXT T 410 FOR T=39000 TO 39080 420 POKE T,1 430 NEXT T 440 POKE 39039,0:POKE 39080,0 450 POKE 38996,24:POKE 38997,20 460 POKE 38986,2 470 FOR T=0 TO 9 480 POKE 35002+T*5,250-T*5 490 NEXT T 500 LOCATE 1,25:PRINT STRING$(4,233) 510 LOCATE 37,25:PRINT STRING$(4,233); 520 LOCATE 1,3:PRINT STRING$(40,143) 530 FOR T=0 TO 11 540 FOR I=0 TO 7 550 POKE 49346+T+I*2048,RND(1)*255 560 NEXT I 570 NEXT T 580 GOSUB 900 590 CALL 40046 600 IF PEEK(38984)=0 THEN 720 610 FOR T=1 TO 2000:NEXT T 620 FOR T=1 TO 20 630 SOUND 1,RND(1)*256,5 640 FOR I=0 TO 26 650 BORDER I:INK 0,I 660 NEXT I 670 NEXT T 680 BORDER 0:INK 0,0 690 LOCATE 18,3:PRINT STRING$(6,32) 700 GOSUB 820 710 GOTO 790 720 X=PEEK(38997)+1:PEN 2 730 SOUND 1,200,180,,,,1 740 FOR T=1 TO 100 750 LOCATE X,25:PRINT CHR$(137) 760 LOCATE X,25:PRINT CHR$(134) 770 NEXT T 780 LOCATE X,25:PRINT CHR$(32) 790 PEN 1 800 LOCATE 13,11:PRINT"APPUYER SUR 'f0'" 810 IF INKEY(15)=-1 THEN 810 ELSE 370 820 T=0 830 IF PEEK(33970+T)<PEEK(38990+T) AND W<>0 THEN 900 840 IF PEEK(38970+T)>PEEK(38990+T) THEN 860 850 IF T<>4 THEN T=T+1:GOTO 830 860 FOR T=0 TO 5 870 POKE 38970+T,PEEK(38990+T) 880 NEXT T 890 W=1 900 LOCATE 25,1 910 FOR T=0 TO 5 920 PRINT CHR$(48+PEEK(38970+T)); 930 NEXT T 940 RETURN 950 RESTORE 1020 960 FOR T=40000 TO 40745 970 READ A 980 POKE T,A 990 NEXT T 1000 RETURN 1010 REM *AFFICHE 1020 DATA 22,153,205,73,156,205,73,156,201,229,1,8,8,26,119,28,124,129,103,16 1030 DATA 248,225,35,201 1040 REM *POS 1050 DATA 203,34,6,192,74,123,107,38,0,203,37,203,37,133,111,203,37,41,41,41 1060 DATA 9,201 1070 DATA 237,91,84,152,205,88,156,30,192,205,64,156,58,86,152,60,50,86,152,254 1080 DATA 100,56,82,175,50,86,152,17,87,152,33,88,152,1,81,0,237,176,58,87 1090 DATA 152,50,127,152,58,128,152,50,168,152,30,4,33,127,152,205,179,156,30,5 1100 DATA 33,168,152,205,179,156,195,251,158,22,39,229,213,126,183,40,10,205,88,156 1110 DATA 30,160,205,64,156,24,8,205,88,156,30,176,205,64,156,209,225,43,21,122 1120 DATA 254,255,32,223,201,58,76,152,60,50,76,152,254,5,56,68,175,50,76,152 1130 DATA 62,39,17,4,21,205,248,156,62,31,17,35,20,205,248,156,24,46,205,30 1140 DATA 187,40,40,122,50,24,157,123,50,11,157,237,91,84,152,122,254,1,40,23 1150 DATA 213,205,88,156,30,176,205,64,156,209,21,237,83,84,152,205,88,156,30,192 1160 DATA 205,64,156,201,17,83,152,26,60,18,254,10,32,8,175,18,27,123,254,77 1170 DATA 32,241,17,0,10,205,88,156,17,78,152,213,26,203,39,203,39,203,39,203 1180 DATA 39,95,205,64,156,209,19,123,254,84,32,235,58,77,152,60,50,77,152,254 1190 DATA 7,218,29,158,175,50,77,152,33,184,136,34,160,140,6,10,197,42,160,140 1200 DATA 17,136,144,1,5,0,237,176,58,138,144,254,3,56,6,60,50,138,144,24 1210 DATA 127,183,32,37,60,50,138,144,237,95,230,3,198,7,50,136,144,237,95,230 1220 DATA 31,198,4,50,139,144,237,95,230,1,50,140,144,183,40,2,62,39,50,137 1230 DATA 144,237,91,136,144,205,88,156,30,176,205,64,156,33,139,144,58,137,144,190 1240 DATA 32,5,62,3,50,140,144,58,140,144,183,32,9,58,137,144,60,50,137,144 1250 DATA 24,34,254,1,32,9,58,137,144,61,50,137,144,24,21,58,136,144,254,24 1260 DATA 32,7,62,245,50,138,144,24,19,58,136,144,60,50,136,144,237,91,136,144 1270 DATA 205,88,156,30,208,205,64,156,33,136,144,237,91,160,140,1,5,0,237,176 1280 DATA 237,83,160,140,193,5,40,3,195,110,157,237,91,84,152,205,88,156,126,254 1290 DATA 5,32,5,175,50,72,152,201,58,73,152,60,50,73,152,254,6,218,251,158 1300 DATA 175,50,73,152,58,74,152,254,2,32,3,195,219,158,237,91,74,152,205,88 1310 DATA 156,30,176,205,64,156,58,74,152,61,50,74,152,237,91,74,152,205,88,156 1320 DATA 126,254,5,32,16,205,25,159,30,176,205,64,156,62,2,50,74,152,195,251 1330 DATA 158,58,74,152,254,2,32,18,205,25,159,58,75,152,254,17,56,33,254,23 1340 DATA 48,79,50,72,152,201,237,91,74,152,205,88,156,30,224,205,64,156,58,74 1350 DATA 152,254,5,32,26,58,75,152,198,129,50,175,158,50,182,158,58,129,152,183 1360 DATA 40,71,175,50,129,152,205,4,159,24,62,254,4,32,58,58,75,152,198,88 1370 DATA 50,205,158,50,212,158,58,88,152,183,40,41,175,50,88,152,205,4,159,24 1380 DATA 32,62,71,205,30,187,40,25,58,84,152,61,50,74,152,58,85,152,50,75 1390 DATA 152,237,91,74,152,205,88,156,30,224,205,64,156,62,67,205,30,187,192,195 1400 DATA 110,156,33,16,159,205,170,188,62,2,50,74,152,201,1,0,0,30,0,0 1410 DATA 15,5,0,33,32,159,205,170,188,201,1,0,0,250,0,0,12,10,0,32 |