10 REM**********
20 REM*ARCTURUS* 30 REM********** 40 BORDER 18:INK 0,18:INK 1,18:PEN 1 50 MODE 1 60 FOR T=0 TO 9 70 LOCATE 1,1:PRINT CHR$(48+T) 80 FOR J=0 TO 1 90 FOR I=0 TO 7 100 POKE 39168+I+J*8+T*16,PEEK(49152+J+I*2048) 110 NEXT I 120 NEXT J 130 NEXT T 140 MODE 1 150 FOR T=39004 TO 39007:POKE T,0:NEXT T 160 GOSUB 1180 170 MEMORY 15000 180 BORDER 0:INK 0,0:INK 2,24:INK 3,1 190 RESTORE 300 200 FOR T=0 TO 7 210 FOR I=0 TO 7 220 READ A 230 IF T=0 THEN B=17*(A AND 240)/16:C=17*(A AND 15) 240 IF T=1 OR T=3 OR T=4 OR T=5 OR T=7 THEN B=A AND 240:C=(A AND 15)*16 250 IF T=2 OR T=6 THEN B=(A AND 240)/16:C=A AND 15 260 POKE 39328+T*16+I,B 270 POKE 39336+T*16+I,C 280 NEXT I 290 NEXT T 300 DATA 255,129,129,129,129,129,129,255 310 DATA 24,60,126,126,60,126,231,195 320 DATA 60,60,255,255,255,255,60,60 330 DATA 0,126,126,126,126,126,126,0 340 DATA 0,0,60,60,60,60,0,0 350 DATA 0,0,36,60,24,24,0,0 360 DATA 60,60,195,195,195,195,60,60 370 DATA 24,60,126,60,24,24,24,24 380 PEN 3:CLS 390 PRINT "NIVEAU? (1-4)" 400 NI=4 410 RESTORE 420 420 DATA 64,65,57,56 430 FOR T=0 TO 3 440 READ A 450 IF INKEY(A)=0 THEN NI=T 460 NEXT T 470 IF NI=4 THEN 410 480 CLS 490 FOR T=39000 TO 39003:POKE T,0:NEXT T 500 NB=2 510 GOTO 980 520 FOR T=2 TO 130 STEP 4 530 POKE 35001+T,0 540 POKE 35000+T,70 550 NEXT T 560 J=0:ZI=NI:IF NI>3 THEN ZI=3 570 POKE 37012,ZI*10 580 FOR T=0 TO 40*ZI-1 STEP 4 590 IF T MOD 40=0 THEN B=INT(RND(1)*2)*2:C=14+INT(RND(1)*11):J=J+1:K=0 600 POKE 35000+T,3 610 POKE 35001+T,C 620 POKE 35002+T,B 630 POKE 35003+T,250-J*50-K 640 K=K+1 650 NEXT T 660 POKE 37014,NB 670 CALL 40046 680 LOCATE 2,3:PEN 1 690 FOR T=1 TO 38 700 PRINT CHR$(210); 710 NEXT T 720 LOCATE 2,25 730 FOR T=1 TO 38 740 PEN 1:IF T>2 AND T<37 THEN PEN 3 750 PRINT CHR$(208); 760 NEXT T 770 FOR T=4 TO 24 780 LOCATE 1,T:PRINT CHR$(209); 790 LOCATE 40,T:PRINT CHR$(211); 800 NEXT T 810 PEN 1 820 IF NI>3 THEN FOR T=1 TO 10:LOCATE 11,5+T:PRINT CHR$(232):LOCATE 30,5+T:PRINT CHR$(232):NEXT T 830 IF NI>4 THEN FOR T=1 TO 10:LOCATE 17,10+T:PRINT CHR$(232):LOCATE 24,10+T:PRINT CHR$(232):NEXT T 840 IF NI>5 THEN FOR T=1 TO 6:LOCATE 6,12+T:PRINT CHR$(232):LOCATE 35,12+T:PRINT CHR$(232):NEXT T 850 CALL 40048:IF PEEK(37011)=0 THEN 980 860 SOUND 1,2000,100 870 FOR J=1 TO 3 880 FOR T=15 TO 0 STEP -1 890 BORDER T:INK 0,T 900 FOR I=1 TO 20:NEXT I 910 NEXT T 920 NEXT J 930 IF NB>1 THEN NB=NB-2:NI=NI-1:MODE 1:GOTO 510 940 GOSUB 1110:CALL 40050 950 LOCATE 13,10:PRINT "APPUYER SUR 'F0'" 960 IF INKEY(15)=-1 THEN 960 ELSE MODE 1:GOTO 390 970 IF PEEK(37010)<>PEEK(37012) THEN END 980 IF NI=6 THEN SOUND 1,100:SOUND 1,200:SOUND 1,150:LOCATE 8,7:PRINT "BRAVO:ARCTURUS EST SAUVEE":GOTO 940 990 IF NB<5 THEN NB=NB+1 1000 PEN 1 1010 NI=NI+1:MODE 1 1020 FOR T=1 TO 6 1030 SOUND 1,500,10 1040 LOCATE 16,7:PRINT "NIVEAU:";NI 1050 FOR I=1 TO 50:NEXT I 1060 SOUND 1,50,10 1070 LOCATE 16,7:PRINT STRING$(10,CHR$(32)) 1080 FOR I=1 TO 50:NEXT I 1090 NEXT T 1100 MODE 1:GOTO 520 1110 T=0 1120 A=PEEK(39000+T):B=PEEK(39004+T) 1130 IF A>B THEN 1160 1140 IF A<B THEN RETURN 1150 T=T+1:IF T=4 THEN RETURN ELSE 1120 1160 FOR T=0 TO 3:POKE 39004+T,PEEK(39000+T):NEXT T 1170 RETURN 1180 RESTORE 1250 1190 FOR T=40000 TO 40857 1200 READ A 1210 POKE T,A 1220 NEXT T 1230 RETURN 1240 REM*AFFICHE 1250 DATA 22,153,205,73,156,205,73,156,201,229,1,8,8,26,119,28,124,129,103,16 1260 DATA 248,225,35,201 1270 REM*POS 1280 DATA 203,34,6,192,74,123,107,38,0,203,37,203,37,133,111,203,37,41,41,41 1290 DATA 9,201 1300 REM*SUITE 1310 DATA 24,4,24,79,24,68,17,3,0,205,88,156,1,72,3,197,30,160,205,64 1320 DATA 156,193,11,120,177,32,244,22,10,33,88,152,205,124,159,17,23,20,237,83 1330 DATA 103,152,205,67,159,33,0,0,34,108,152,34,146,144,17,1,31,205,88,156 1340 DATA 58,150,144,245,30,176,205,64,156,35,241,61,32,245,22,26,33,92,152,205 1350 DATA 124,159,201,6,30,33,184,136,34,160,140,197,62,67,205,30,187,40,2,193 1360 DATA 201,58,146,144,33,148,144,190,32,2,193,201,58,147,144,183,40,2,193,201 1370 DATA 193,197,42,160,140,17,136,144,1,4,0,237,176,58,139,144,183,40,22,60 1380 DATA 50,139,144,183,32,22,237,91,136,144,205,88,156,30,192,205,64,156,195,17 1390 DATA 158,58,138,144,254,70,32,8,6,100,0,16,253,195,17,158,237,91,136,144 1400 DATA 205,88,156,30,160,205,64,156,58,138,144,254,4,56,3,195,204,157,33,138 1410 DATA 144,126,254,2,56,9,58,137,144,254,1,32,2,53,53,58,138,144,254,2 1420 DATA 48,9,58,137,144,254,38,32,2,52,52,126,230,1,32,8,58,136,144,254 1430 DATA 3,32,1,52,126,230,1,40,8,58,136,144,254,23,32,1,53,58,137,144 1440 DATA 61,245,58,138,144,254,2,48,4,241,198,2,245,58,136,144,60,245,58,138 1450 DATA 144,230,1,32,4,241,214,2,245,241,95,241,87,213,205,88,156,209,126,183 1460 DATA 40,30,122,50,137,144,123,50,136,144,193,197,120,230,1,40,7,30,192,205 1470 DATA 64,156,24,95,17,0,154,205,66,156,24,87,33,138,144,52,52,58,138,144 1480 DATA 254,4,56,75,53,53,53,53,24, 69,58,138,144,254,68,56,32,58,136,144 1490 DATA 254,23,32,7,62,70,50,138,144,24,48,60,50,136,144,237,91,136,144,205 1500 DATA 88,156,30,240,205,64,156,24,30,60,50,138,144,237,91,136,144,205,88,156 1510 DATA 58,138,144,254,40,56,7,30,208,205,64,156,24,5,30,224,205,64,156,33 1520 DATA 136,144,237,91,160,140,1,4,0,237,176,237,83,160,140,205,45,158,193,16 1530 DATA 3,195,0,159,195,201,156,58,118,152,60,50,118,152,254,8,216,205,164,158 1540 DATA 175,50,118,152,58,108,152,183,32,36,62,71,205,30,187,200,33,82,158,205 1550 DATA 170,188,24,9,2,2,0,255,0,0,12,2,0,62,22,50,108,152,58,104 1560 DATA 152,50,109,152,24,28,237,91,108,152,205,88,156,30,160,205,64,156,58,108 1570 DATA 152,61,50,108,152,254,2,32,5,175,50,108,152,201,237,91,108,152,205,88 1580 DATA 156,17,16,154,205,66,156,205,164,158,201,237,91,103,152,205,88,156,126,254 1590 DATA 16,200,50,147,144,201,237,91,108,152,123,183,40,25,29,205,88,156,126,183 1600 DATA 32,17,17,80,0,25,30,160,205,64,156,175,50,108,152,50,109,152,201,17 1610 DATA 4,0,6,30,33,184,136,229,58, 108,152,190,32,39,35,58,109,152,190,32 1620 DATA 32,35,62,70,190,40,26,35,175,190,32,21,50,108,152,50,109,152,43,62 1630 DATA 3,190,56,9,62,20,119,205,80,159,225,24,4,225,25,16,206,201,205,149 1640 DATA 158,58,104,152,254,3,40,23,62,39,205,30,187,40,7,205,50,159,21,205 1650 DATA 67,159,237,91,103,152,122,254,36,40,14,62,31,205,30,187,40,7,205,50 1660 DATA 159,20,205,67,159,195,193,156,237,91,103,152,205,88,156,30,160,205,64,156 1670 DATA 237,91,103,152,201,237,83,103,152,205,88,156,30,176,205,64,156,201,33,146 1680 DATA 144,52,17,90,152,26,60,18,254,10,32,8,175,18,27,123,254,87,32,241 1690 DATA 33,110,159,205,170,188,24,9,1,5,0,30,0,0,12,5,0,22,10,33 1700 DATA 88,152,30,1,229,205,88,156,209,6,4,26,203,39,203,39,203,39,203,39 1710 DATA 213,95,197,205,64,156,193,209,19,16,236,201 |