10 REM **************
20 REM *POSTE AVANCE* 30 REM ************** 40 GOSUB 1190 50 MODE 1:PEN 1:MEMORY 15000 60 BORDER 24:INK 0,24:INK 1,24 70 FOR T=0 TO 9 80 LOCATE 1,1:PRINT CHR$(48+T) 90 FOR I=0 TO 1 100 FOR J=0 TO 7 110 POKE 39168+T*16+I*8+J,PEEK(49152+J*2048+I) 120 NEXT J 130 NEXT I 140 NEXT T 150 CLS 160 BORDER 0:INK 0,0 170 FOR T=39000 TO 39005 180 POKE T,0 190 NEXT T 200 INK 2,2:INK 3,6 210 RESTORE 390 220 FOR T=10 TO 19 230 IF T<17 THEN READ D 240 FOR I=0 TO 7 250 IF T>16 THEN READ D 260 READ A 270 IF D=1 THEN B=A AND 240:C=(A AND 15)*16 280 IF D=2 THEN B=(A AND 240)/16:C=A AND 15 290 IF D=3 THEN B=17*(A AND 240)/16:C=17*(A AND 15) 300 POKE 39168+T*16+I,B 310 POKE 39176+T*16+I,C 320 NEXT I 330 NEXT T 340 CALL 40052:PEN 3 350 LOCATE 11,8:PRINT ":FUEL..........20 PTS" 360 LOCATE 11,10:PRINT ":LABORATOIRE...50 PTS" 370 LOCATE 11,12:PRINT ":BASE" 380 FOR I=1 TO 10000:NEXT I 390 DATA 2,192,192,240,243,255,255,255,63 400 DATA 2,0,0,0,192,240,252,255,252 410 DATA 2,0,0,0,0,0,0,0,0 420 DATA 2,0,0,240,96,240,240,240,96 430 DATA 3,255,255,0,0,0,0,0,0 440 DATA 1,0,0,0,0,0,0,0,0 450 DATA 1,24,60,126,126,60,126,231,195 460 DATA 1,24,2,126,2,231,2,195,2,102,1,60,1,36,1,219 470 DATA 1,24,2,255,1,255,2,126,1,24,2,24,1,60,2,60 480 DATA 1,255,2,255,3,255,1,255,2,255,3,255,1,255,2,255 490 CLS:PEN 1 500 FOR T=39026 TO 39029 510 POKE T,0 520 NEXT T 530 FOR T=38990 TO 38995 540 POKE T,0 550 NEXT T 560 LOCATE 6,3:PRINT STRING$(30,210) 570 LOCATE 6,24:PRINT STRING$(30,208) 580 FOR T=4 TO 23 590 LOCATE 5,T:PRINT CHR$(209) 600 LOCATE 36,T:PRINT CHR$(211) 610 NEXT T 620 POKE 39008,10:POKE 39009,8 630 POKE 39010,23:POKE 39021,0 640 FOR T=0 TO 28 650 POKE 35001+T*2,10+T*2 660 POKE 35000+T*2,21+T MOD 2 670 NEXT T 680 POKE 39014,22 690 POKE 39016,0:POKE 39019,23 700 FOR T=0 TO 9 710 POKE 35100+T*3,24 720 NEXT T 730 LOCATE 11,1:PRINT "000000" 740 LOCATE 25,1 750 FOR T=0 TO 5 760 PRINT CHR$(PEEK(39000+T)+48); 770 NEXT T 780 LOCATE 7,25:PRINT "SECTEUR: 0" 790 LOCATE 1,1 800 POKE 39024,0 810 CALL 40046 820 IF PEEK(39024)<10 THEN 940 830 A=PEEK(39026)+PEEK(39027)*256 840 B=PEEK(39028)+PEEK(39029)*256 850 C=INT(B/A*100) 860 PEN 3:LOCATE 15,5:PRINT"BONUS :";C;"%" 870 PEN 1 880 IF C=0 THEN 930 890 FOR T=0 TO C 900 CALL 40050:SOUND 1,40,5 910 FOR I=1 TO 50:NEXT I 920 NEXT T 930 GOTO 1070 940 IF PEEK(39021)=2 THEN 1010 950 FOR T=PEEK(39010)-1 TO PEEK(39008) STEP -1 960 LOCATE 10,T:PRINT CHR$(196); 970 NEXT T 980 FOR T=PEEK(39010)-1 TO PEEK(39008) STEP-1 990 LOCATE 10,T:PRINT CHR$(32); 1000 NEXT T 1010 FOR T=1 TO 80 1020 SOUND 1,INT((RND(1)*100)+130),2,,,,1 1030 FOR I=0 TO 10 1040 NEXT I 1050 CALL 40048 1060 NEXT T 1070 T=0 1080 IF PEEK(38990+T)>PEEK(39000+T) THEN 1110 1090 IF PEEK(38990+T)<PEEK(39000+T) THEN 1160 1100 T=T+1:IF T<6 THEN 1080 1110 LOCATE 25,1 1120 FOR T=0 TO 5 1130 POKE 39000+T,PEEK(38990+T) 1140 PRINT CHR$(PEEK(39000+T)+48); 1150 NEXT T 1160 PEN 3 1170 LOCATE 13,7:PRINT "APPUYER SUR 'f0'" 1180 IF INKEY(15)=-1 THEN 1180 ELSE 490 1190 RESTORE 1260 1200 FOR T=40000 TO 41005 1210 READ A 1220 POKE T,A 1230 NEXT T 1240 RETURN 1250 REM *AFFICHE 1260 DATA 22,153,205,73,156,205,73,156,201,229,1,8,8,26,119,28,124,129,103,16 1270 DATA 248,225,35,201 1280 REM *POS 1290 DATA 203,34,6,192,74,123,107,38,0,203,37,203,37,133,111,203,37,41,41,41 1300 DATA 9,201 1310 REM *SUITE 1320 DATA 24,86,24,49,24,37,17,7,9,205,88,156,17,16,154,205,66,156,17,9 1330 DATA 9,205,88,156,17,32,154,205,66,156,17,11,9,205,88,156,17,0,154,205 1340 DATA 66,156,201,205,252,159,205,252,159,205,15,160,201,237,91,96,152,205,88,156 1350 DATA 6,4,197,229,6,8,237,95,230,1,183,40,2,237,95,119,17,0,8,25 1360 DATA 16,240,225,35,193,16,231,201,205,203,156,24,16,237,91,96,152,205,88,156 1370 DATA 30,160,205,64,156,205,64,156,201,22,20,33,100,152,205,115,157,56,63,62 1380 DATA 39,17,53,4,205,247,156,62,31,17,52,21,205,247,156,24,45,205,30,187 1390 DATA 40,39,122,50,8,157,123,50,31,157,58,96,152,254,4,40,24,237,91,96 1400 DATA 152,205,88,156,30,192,205,64,156,30,192,205,64,156,33,96,152,53,205,203 1410 DATA 156,201,22,8,33,101,152,205,115,157,56,108,58,98,152,254,23,40,37,237 1420 DATA 91,98,152,205,88,156,30,192,205,64,156,58,98,152,60,50,98,152,254,23 1430 DATA 40,14,237,91,98,152,205,88,156,30,208,205,64,156,24,64,62,71,205,30 1440 DATA 187,40,57,175,50,100,152,62,9,50,99,152,58,96,152,60,50,98,152,24 1450 DATA 217,52,126,186,216,175,119,201,33,129,157,205,170,188,201,1,10,0,200,0 1460 DATA 1,12,5,0,33,145,157,205,170,188,201,1,10,0,30,0,0,12,10,0 1470 DATA 22,6,33,103,152,205,115,157,48,3,195,44,159,22,160,33,113,152,205,115 1480 DATA 157,56,38,58,112,152,60,50,112,152,254,10,48,27,203,39,198,15,87,30 1490 DATA 24,205,88,156,58,112,152,203,39,203,39,203,39,203,39,95,22,154,205,64 1500 DATA 156,58,104,152,60,50,104,152,230,1,183,32,36,58,106,152,183,32,19,237 1510 DATA 95,254,90,48,13,58,102,152,254,7,56,6,61,50,102,152,24,11,58,102 1520 DATA 152,254,22,48,243,60,50,102,152,33,184,136,34,160,140,6,29,197,42,160 1530 DATA 140,17,136,144,1,2,0,237,176,58,137,144,254,19,32,6,58,136,144,50 1540 DATA 105,152,237,91,136,144,205,90,156,30,192,205,64,156,58,137,144,61,254,10 1550 DATA 48,8,58,102,152,50,136,144,62,67,50,137,144,237,91,136,144,205,90,156 1560 DATA 30,224,205,64,156,33,136,144,237,91,160,140,1,2,0,237,176,237,83,160 1570 DATA 140,193,16,169,33,28,137,34,160,140,175,50,106,152,6,10,197,42,160,140 1580 DATA 17,136,144,1,3,0,237,176,58,136,144,254,23,48,14,237,91,136,144,205 1590 DATA 90,156,30,192,205,64,156,24,82,58,106,152,183,32,123,58,104,152,230,1 1600 DATA 183,40,115,58,102,152,254,22,40,108,6,255,16,254,237,95,254,12,48,98 1610 DATA 6,255,16,254,237,95,254,60,56,4,62,2,24,18,6,255,16,254,237,95 1620 DATA 230,1,183,40,7,42,114,152,35,34,114,152,50,138,144,62,68,50,137,144 1630 DATA 58,102,152,61,50,136,144,33,106,152,52,58,137,144,61,50,137,144,254,10 1640 DATA 32,5,62,23,50,136,144,58,136,144,254,23,48,24,237,91,136,144,205,90 1650 DATA 156,58,138,144,203,39,203,39,203,39,203,39,95,22,154,205,66,156,33,136 1660 DATA 144,237,91,160,140,1,3,0,237,176,237,83,160,140,193,16,2,24,3,195 1670 DATA 114,158,58,105,152,87,58,98,152,186,56,24,254,23,40,20,237,91,98,152 1680 DATA 205,88,156,30,192,205,64,156,62,23,50,98,152,205,122,157,33,28,137,6 1690 DATA 10,197,229,126,254,23,40,99,87,58,98,152,186,32,92,35,126,254,17,56 1700 DATA 86,254,19,48,82,35,126,183,32,21,62,1,50,109,152,225,229,94,35,86 1710 DATA 205,90,156,17,0,154,205,66,156,24,56,254,1,40,4,6,5,24,9,42 1720 DATA 116,152,35,34,116,152,6,2,197,205,252,159,193,16,249,205,15,160,225,229 1730 DATA 94,35,86,205,90,156,35,30,192,205,64,156,205,138,157,225,229,35,35,62 1740 DATA 3,119,62,23,50,98,152,225,193,35,35,35,16,143,62,67,205,30,187,192 1750 DATA 58,112,152,254,10,208,58,109,152,254,1,200,237,91,96,152,205,88,156,17 1760 DATA 0,56,25,126,254,3,32,13,35,35,126,254,15,32,6,35,126,254,12,40 1770 DATA 6,62,2,50,109,152,201,195,219,156,17,82,152,26,60,18,254,10,32,8 1780 DATA 175,18,27,123,254,77,32,241,201,17,0,10,205,88,156,17,78,152,213,26 1790 DATA 203,39,203,39,203,39,203,39,95,205,64,156,209,19,123,254,84,32,235,201 |