1 ' * CRAZY LOVE *
2 'STEPHAN SEMIRAT 3 ' (C) 1987 10 re=400 20 MODE 1 30 v=100 40 r=1 50 PEN 1 60 DIM n1(8,75),n2(8,16),son(96):vi=5:son2=-1 70 RESTORE 90 80 FOR i=1 TO 96:READ son(i):NEXT 90 DATA 89,100,89,113,89,119,89,134,67,75,67,84,67,89,67,100,100,113,100,119,100,134,100,150,75,84,75,89,75,100,89,89,100,150,100,134,100,119,100,113,89,134,89,119,89,113,89,100,75,117,75,100,75,89,75,84,67,100,67,89,67,84,67,75,67,75,67,81,67,89,67,100 100 DATA 75,84,75,89,75,100,75,113,89,100,89,113,89,119,89,134,100,113,100,119,100,134,100,150 110 DATA 80,30,53,10,60,20,95,10,95,10,95,20,100,10,95,10,71,20,80,20,80,20,80,10,60,10,60,10,95,10,95,10,80,10,106,60,71,10,71,10,71,30,89,10,71,10,63,10,60,10,53,10,60,10,80,10,60,10,45,10,47,20,80,10,89,10,95,30,80,10,106,30,80,10,119,60,0,0 120 WINDOW#1,1,40,18,24:PAPER#1,3:CLS#1: WINDOW#2,6,35,1,17:CLS#2 130 FOR i=2 TO 39:LOCATE i,18:PRINT CHR$(154):LOCATE i,24:PRINT CHR$(154):NEXT:FOR i=18 TO 24:LOCATE 1,i:PRINT CHR$(149):LOCATE 40,i:PRINT CHR$(149):NEXT:LOCATE 1,18:PRINT CHR$(150):LOCATE 40,18:PRINT CHR$(156):LOCATE 1,24:PRINT CHR$(147) 140 LOCATE 40,24:PRINT CHR$(153) 150 FOR i=1 TO 17:LOCATE 5,i:PRINT CHR$(149):LOCATE 36,i:PRINT CHR$(149):NEXT:LOCATE 5,18:PRINT CHR$(155):LOCATE 36,18:PRINT CHR$(155) 160 ENV 1,10,-1,1:ENV 2,10,1,3 170 INK 0,0:BORDER 0:INK 1,26:INK 2,11:INK 3,6:PEN 1:PAPER 0 180 SYMBOL AFTER 32 190 SYMBOL 72,144,144,144,240,240,144,144,144 200 SYMBOL 206,24,255,24,24,24,255,24,24:SYMBOL 207,255,255,255,255,255,119,85,42:SYMBOL 208,255,255,255,255,255,221,226,40 210 SYMBOL 224,132,73,82,74,51,148,120,24:SYMBOL 225,132,67,68,40,81,182,56,24 220 SYMBOL 143,255,219,219,219,219,219,219,255 230 SYMBOL 251,&X111000,&X111000,&X10010000,&X1111100,&X10010,&X111000,&X1111000,&X11111000 240 SYMBOL 160,&X10011111,&X1100000,0,&X11110011,&X1100,&X1111110,&X10000001 250 SYMBOL 83,240,144,128,240,16,16,144,240:SYMBOL 99,0,0,240,144,128,128,144,240:SYMBOL 111,0,0,240,144,144,144,144,240:SYMBOL 114,0,0,160,208,208,128,128,128:SYMBOL 101,0,0,240,144,240,128,128,240 260 SYMBOL 97,0,0,240,16,16,240,144,232:SYMBOL 108,64,64,64,64,64,64,64,96:SYMBOL 69,240,144,128,128,192,128,144,240 270 SYMBOL 110,0,0,176,208,144,144,144,144:SYMBOL 103,0,0,240,144,144,240,16,240:SYMBOL 105,0,0,64,0,64,64,64,96:SYMBOL 48,60,36,36,36,36,36,36,60:SYMBOL 49,8,24,40,8,8,8,8,8:SYMBOL 50,16,40,40,8,8,16,32,56 280 SYMBOL 51,16,40,40,8,16,8,40,16:SYMBOL 52,8,16,32,40,56,8,8,8:SYMBOL 53,56,32,32,32,56,8,8,56:SYMBOL 54,8,16,32,32,48,40,40,16 290 SYMBOL 55,56,8,8,56,16,16,32,32:SYMBOL 56,56,40,40,40,56,40,40,56:SYMBOL 57,56,40,40,56,8,8,40,56:SYMBOL 86,144,144,144,144,144,144,96,96:SYMBOL 46,0,0,0,0,0,28,20,28:SYMBOL 37,200,136,16,32,32,64,136,152 300 SYMBOL 254,0,0,0,0,0,24,56,0:SYMBOL 255,0,0,0,0,0,24,56,255 310 SYMBOL 185,6,6,60,12,18,16,104,8 320 SYMBOL 186,6,6,24,46,16,24,36,36 330 SYMBOL 187,255,0,0,&X11101111,0,&X11111110,0,&X11101111 340 SYMBOL 189,153,90,60,24,24,36,36,36 350 SYMBOL 188,&X11000001,&X111110,&X110000,&X11001011,&X100,&X11111110,&X100010,&X11011101 360 SYMBOL 190,129,129,255,129,129,129,255,129 370 SYMBOL 191,96,96,28,48,72,8,22,16:SYMBOL 192,96,96,24,116,8,24,36,36 380 SYMBOL 194,&X11001,&X11010,&X11111100,&X11000,&X11000,&X100110,&X1000001,&X10000000 390 SYMBOL 193,&X10011000,&X1011000,&X111111,&X11000,&X11000,&X1100100,&X10000010,1 400 SYMBOL 195,157,90,60,24,24,36,36,36 410 SYMBOL 196,255,192,&X11111,192,&X1111111,192,255,255 420 SYMBOL 197,&X10000,&X10010,&X1010010,&X1011010,&X11011010,&X11011010,&X11011010,&X11011010 430 SYMBOL 198,&X10000010,&X10000010,&X10010010,&X10010010,&X11010010,&X11011010,&X11011010,&X11011010 440 hd$(1)=CHR$(185):hd$(3)=CHR$(186):hg$(1)=CHR$(191):hg$(3)=CHR$(192):so$(0)=CHR$(187):so$(1)=CHR$(188):ec$=CHR$(190):no$=CHR$(237):tabl=1:dir=2:e=1:x=13:y=16:DIM pt(36,17):hh$(1)=CHR$(194):hh$(3)=CHR$(193):ht$=CHR$(195):picg$=CHR$(196):en=99:lk=1 450 IF tabl>6 THEN so$(0)=CHR$(207):so$(1)=CHR$(208):ec$=CHR$(206):pic$(0)=CHR$(224):pic$(1)=CHR$(225):sg1$=CHR$(144) ELSE so$(0)=CHR$(187):so$(1)=CHR$(188):ec$=CHR$(190):pic$(0)=CHR$(197):pic$(1)=CHR$(198):sg1$=CHR$(144):sg2$=CHR$(254):sg3$=CHR$(255) 460 IF tabl>6 THEN sg2$=CHR$(254):sg3$=CHR$(255) 470 remain1=REMAIN(1):ERASE pt:CLS#2:DIM pt(36,17):ON tabl GOSUB 480,490,500,510,520,530,540,550,2250:GOTO 560 480 RESTORE 1400:RETURN 490 RESTORE 1460:RETURN 500 RESTORE 1510:RETURN 510 RESTORE 1560:RETURN 520 RESTORE 1600:RETURN 530 RESTORE 1660:RETURN 540 RESTORE 1710:RETURN 550 RESTORE 1760:RETURN 560 PEN 2 570 IF tabl=1 THEN FOR i=1 TO 17:LOCATE 6,i:PRINT so$(INT(RND*2)):pt(6,i)=1:NEXT:LOCATE 6,16:PRINT picg$ 580 IF tabl=3 THEN FOR i=1 TO 17:LOCATE 35,i:PRINT so$(INT(RND*2)):pt(35,i)=1:NEXT 590 IF tabl=4 THEN FOR i=1 TO 17:LOCATE 6,i:PRINT so$(INT(RND*2)):pt(6,i)=1:NEXT:FOR i=3 TO 12:LOCATE 33,i:PRINT so$(INT(RND*2)):pt(33,i)=1:NEXT:FOR i=6 TO 9:LOCATE 29,i:PRINT so$(INT(RND*2)):pt(29,i)=1:NEXT 600 IF tabl=4 THEN FOR i=11 TO 12:LOCATE 19,i:PRINT so$(INT(RND*2)):pt(19,i)=1:NEXT 610 IF tabl=5 THEN FOR i=2 TO 4:LOCATE 31,i:PRINT so$(INT(RND*2)):pt(31,i)=1:NEXT:FOR i=13 TO 14:LOCATE 7,i:PRINT so$(INT(RND*2)):pt(7,i)=1:NEXT 620 IF tabl=6 THEN FOR i=1 TO 17:LOCATE 35,i:PRINT so$(INT(RND*2)):pt(35,i)=1:NEXT 630 IF tabl=7 THEN FOR i=2 TO 10:LOCATE 23,1:PRINT so$(INT(RND*2)):pt(23,i)=1:NEXT:FOR i=1 TO 17:LOCATE 6,i:PRINT so$(INT(RND*2)):pt(6,i)=1:NEXT:FOR i=11 TO 16:LOCATE 13,i:PRINT so$(INT(RND*2)):pt(13,i)=1:NEXT 640 PEN 1 650 PAPER 3:LOCATE 4,20:PRINT"Salle...";tabl:LOCATE 4,22:PRINT"Score...";sc:LOCATE 20,20:PRINT"Energie...";en;"%":LOCATE 20,22:PRINT"Vie...";vi:LOCATE 29,22:PRINT" Hi...";re:PAPER 0 660 IF tabl=9 THEN 760 670 i=0:READ so:PEN 2 680 i=i+1:READ a,b,c:FOR d=a+5 TO b+5:LOCATE d,c:PRINT so$(INT(RND*2)):pt(d,c)=1:NEXT:IF i<>so THEN 680 690 i=0:READ ec:PEN 1 700 i=i+1:READ a,b,c:FOR d=a TO b:LOCATE c+5,d:PRINT ec$:pt(c+5,d)=2:NEXT:IF i<>ec THEN 700 710 i=0:READ no 720 i=i+1:READ a,b:IF n1(tabl,a+5)=0 OR n2(tabl,b)=0 THEN LOCATE a+5,b:PRINT no$:pt(a+5,b)=3 730 IF i<>no THEN 720 740 i=0:READ pic 750 i=i+1:READ a,b,c:FOR d=a+5 TO b+5:LOCATE d,c:PRINT pic$(INT(RND*2)):pt(d,c)= 4:NEXT:IF i<>pic THEN 750 760 LOCATE x,y:PRINT ht$ 770 RESTORE 2410 780 EVERY 100,1 GOSUB 1870:EVERY 20,2 GOSUB 2430 790 IF INKEY(1)=0 OR INKEY(75)=0 THEN dd=1:SOUND 1,0,1,15,0,0,15:GOTO 920 800 IF INKEY(47)=0 THEN IF r=1 THEN rr=REMAIN(2):r=-r:GOTO 770 ELSE IF r=-1 THEN EVERY 15,2 GOSUB 2390:r=-r:GOTO 770 810 IF INKEY(8)=0 OR INKEY(74)=0 THEN dd=-1:SOUND 1,0,1,15,0,0,15:GOTO 1010 820 IF INKEY(0)=0 OR INKEY(72)=0 THEN dd=0:SOUND 1,0,1,15,0,0,15:GOTO 1100 830 IF INKEY(2)=0 OR INKEY(73)=0 THEN dd=0:SOUND 1,0,1,15,0,0,15:GOTO 1170 840 IF INKEY(9)=0 OR INKEY(76)=0 THEN SOUND 1,0,20,1,2,0,5:GOTO 1230 850 IF pt(x,y+1)=0 AND pt(x,y)<>2 AND pt(x,y)<>3 THEN LOCATE x,y:PRINT" ":y=y+1:LOCATE x,y:PRINT ht$:j=1:IF y=17 THEN y=1:tabl=tabl+3:GOTO 450 860 IF j=1 AND pt(x,y+1)=4 THEN GOSUB 1910 870 IF j=1 THEN j=0:SOUND 1,0,1,10,0,0,y:GOTO 850 880 IF pt(x,y)=3 THEN SOUND 1,200,0,0,1:pt(x,y)=0:n1(tabl,x)=1:n2(tabl,y)=1:sc=sc+10:PAPER 3:LOCATE 12,22:PRINT sc:PAPER 0 890 IF pt(x,y+1)=4 THEN GOSUB 1910 900 ON tabl GOTO 1800,2100,2140,2170,2190,1820,2220,2320,2330 910 GOTO 790 920 IF pt(x+1,y)=1 THEN GOTO 850 930 IF pt(x,y)=0 THEN c$=" " 940 IF pt(x,y)=2 THEN c$=ec$ 950 IF pt(x,y)=3 THEN SOUND 1,200,0,0,1:pt(x,y)=0:c$=" ":n1(tabl,x)=1:n2(tabl,y)=1:sc=sc+10:PAPER 3:PEN 1:LOCATE 12,22:PRINT sc:PAPER 0 960 IF pt(x,y)=4 THEN c$=pic$(INT(RND*2)) 970 LOCATE x,y:PRINT c$ 980 x=x+1:LOCATE x,y:PRINT hd$(dir+e):e=-e 990 IF x=36 THEN tabl=tabl+1:x=6:LOCATE 36,y:PRINT CHR$(149):GOTO 450 1000 GOTO 850 1010 IF pt(x-1,y)=1 THEN GOTO 850 1020 IF pt(x,y)=0 THEN c$=" " 1030 IF pt(x,y)=2 THEN c$=ec$ 1040 IF pt(x,y)=3 THEN SOUND 1,200,0,0,1:sc=sc+10:PAPER 3:PEN 1:LOCATE 12,22:PRINT sc:PAPER 0:pt(x,y)=0:c$=" ":n1(tabl,x)=1:n2(tabl,y)=1 1050 IF pt(x,y)=4 THEN c$=pic$(INT(RND*2)) 1060 LOCATE x,y:PRINT c$ 1070 x=x-1:LOCATE x,y:PRINT hg$(dir+e):e=-e 1080 IF x=5 THEN tabl=tabl-1:x=35:LOCATE 5,y:PRINT CHR$(149):GOTO 450 1090 GOTO 850 1100 IF pt(x,y-1)<>2 AND pt(x,y)<>2 THEN GOTO 850 1110 IF pt(x,y-1)=1 THEN GOTO 850 1120 IF pt(x,y)<>2 AND pt(x,y-1)=2 THEN c$=" " ELSE c$=ec$ 1130 IF y=1 THEN tabl=tabl-3:y=16:GOTO 450 1140 LOCATE x,y:PRINT c$:y=y-1:LOCATE x,y:PRINT hh$(dir+e):e=-e 1150 IF y=1 THEN tabl=tabl-3:y=16:GOTO 450 1160 GOTO 850 1170 IF pt(x,y+1)<>2 AND pt(x,y)<>2 THEN GOTO 850 1180 IF pt(x,y+1)=1 THEN GOTO 850 1190 IF pt(x,y)<>2 AND pt(x,y+1)=2 THEN c$=" " ELSE c$=ec$ 1200 LOCATE x,y:PRINT c$:y=y+1:LOCATE x,y:PRINT hh$(dir+e):e=-e 1210 IF y=17 THEN tabl=tabl+3:y=1:GOTO 450 1220 GOTO 850 1230 'IF INKEY(1)=0 THEN dd=1 1240 'IF INKEY(8)=0 THEN dd=-1 1250 FOR i=0 TO 2 1260 IF pt(x,y)=0 THEN c$=" " 1270 IF pt(x,y)=2 THEN c$=ec$ 1280 IF pt(x,y)=3 THEN SOUND 1,200,0,0,1:pt(x,y)=0:n1(tabl,x)=1:n2(tabl,y)=1:sc=sc+10:PAPER 3:LOCATE 12,22:PRINT sc:PAPER 0 1290 IF pt(x,y)=4 THEN c$=pic$(INT(RND*2)) 1300 IF pt(x+dd,y-1)=1 THEN SOUND 1,600,0,0,1:GOTO 850 1310 LOCATE x,y:PRINT c$:x=x+dd:y=y-1 1320 IF dd=1 THEN h$=hd$(1) ELSE IF dd=0 THEN h$=hh$(1) ELSE IF dd=-1 THEN h$=hg$(1) 1330 LOCATE x,y:PRINT h$ 1340 IF x=36 THEN tabl=tabl+1:LOCATE 36,y:PRINT CHR$(149):x=6:GOTO 450 1350 IF x<=5 THEN tabl=tabl-1:LOCATE x,y:PRINT CHR$(149):x=35:GOTO 450 1360 IF y=1 THEN tabl=tabl-3:y=16:GOTO 450 1370 NEXT 1380 LOCATE x,y:PRINT h$ 1390 GOTO 850 1400 'TABLEAU N'1 1410 DATA 17,2,30,1,9,11,4,17,20,4,13,16,5,23,28,5,2,9,6,21,22,6,11,18,8,2,9,10,20,22,10,24,30,11,11,14,12,10,10,13,16,20,13,9,9,14,8,8,15,2,30,17 1420 DATA 5,6,9,3,4,5,12,4,5,21,5,10,28,13,16,21 1430 DATA 10,9,3,16,4,26,4,7,5,15,7,8,9,21,9,27,10,18,12,9,13 1440 DATA 6,4,7,9,9,20,16,11,14,7,18,20,3,22,30,16,24,26,10 1450 'TABLEAU N'2 1460 DATA 11,1,30,1,1,17,4,18,30,5,18,20,6,18,20,7,1,11,8,18,30,8,1,20,11,9,14,14,21,27,15,1,30,17 1470 DATA 8,4,7,11,5,7,21,5,7,28,8,10,8,11,13,12,11,14,21,14,16,8,15,17,28 1480 DATA 11,1,3,15,3,24,4,30,4,5,7,3,10,16,10,14,13,26,14,4,16,25,7 1490 DATA 8,8,10,7,22,24,7,26,27,7,29,30,7,6,7,10,9,15,10,17,19,10,9,22,16 1500 'TABLEAU N'3 1510 DATA 13,1,30,1,1,30,3,1,6,5,9,11,5,15,20,5,1,20,8,25,29,9,11,20,12,26,29,13,4,12,15,1,8,17,13,21,17,26,29,17 1520 DATA 7,3,4,10,3,8,26,8,12,21,9,12,28,13,17,25,12,14,10,15,17,3 1530 DATA 9,1,2,6,4,20,4,13,7,18,7,29,8,29,12,8,16,19,16 1540 DATA 9,14,19,2,27,28,2,18,19,4,7,12,7,14,15,7,27,28,8,14,18,11,5,8,14,26,28,16 1550 'TABLEAU N'4 1560 DATA 19,1,30,1,7,13,3,15,28,2,15,15,3,15,15,4,15,24,5,25,25,6,26,26,7,29,30,9,30,30,11,13,24,10,9,13,9,3,8,6,2,2,9,2,6,15,2,18,17,21,24,17,27,30,17,14,29,13 1570 DATA 9,10,12,15,6,8,2,9,14,3,15,16,7,6,8,9,3,9,14,19,12,15,3,12,27,16,17,20 1580 DATA 11,7,2,12,2,21,4,24,4,26,6,13,8,23,9,17,12,2,14,3,16,15,16 1590 DATA 7,9,10,2,16,19,4,5,7,5,29,30,8,16,16,12,18,22,12,24,26,12 1600 'TABLEAU N'5 1610 DATA 17,1,30,1,1,5,4,18,30,5,1,11,7,13,16,8,5,11,9,16,21,10,25,27,10,1,3,11,9,12,13,14,16,13,2,4,15,6,8,15,18,27,15,29,30,7,27,30,17,1,8,17 1620 DATA 8,9,11,4,4,7,6,7,9,12,5,9,17,13,15,17,10,14,22,5,9,25,10,15,28 1630 DATA 10,1,3,2,12,8,14,11,6,10,12,15,12,19,4,21,9,25,14,27,9 1640 DATA 9,3,5,6,7,8,6,27,30,4,10,11,8,18,20,9,6,6,14,18,19,14,23,24,14,26,27,14 1650 'TABLEAU N'6 1660 DATA 17,1,2,1,4,8,1,13,21,1,26,30,1,1,7,5,8,23,5,24,28,7,1,4,7,11,17,8,21,24,10,26,29,10,49,21,11,6,10,11,16,18,12,1,24,17,26,30,17,19,21,11 1670 DATA 6,1,3,25,4,7,14,7,11,5,8,10,10,6,9,29,12,16,15 1680 DATA 9,10,4,19,4,23,4,12,7,17,7,27,9,7,10,28,16,6,16 1690 DATA 8,1,5,4,8,9,4,11,13,4,24,24,6,26,28,6,22,23,9,16,18,11,25,25,17 1700 'TABLEAU N'7 1710 DATA 26,1,18,1,21,24,1,27,30,1,2,2,4,7,9,4,12,14,5,24,27,5,2,5,7,8,10,7,14,17,8,20,23,8,2,6,11,10,18,11,28,30,11,6,6,13,7,7,14,5,5,14,4,4,15,18,18,13,20,20,13,22,22,13,24,25,13,21,21,15,1,30,17,10,16,13,30,30,5 1720 DATA 6,11,13,9,1,7,20,5,7,23,5,10,28,7,10,7,5,7,15 1730 DATA 12,2,2,8,3,13,4,5,6,9,6,17,7,2,8,14,10,2,13,7,16,24,12,18,16 1740 DATA 11,2,2,6,7,7,3,16,16,7,5,6,10,10,13,10,15,17,10,29,30,10,24,25,4,20,30,16,4,7,16,27,27,4 1750 'TABLEAU N'8 1760 DATA 17,1,30,3,1,4,6,11,15,6,18,19,6,25,30,7,5,9,8,14,23,9,25,30,11,1,5,11,10,13,12,17,21,14,1,2,14,1,30,17,30,30,13,30,30,14,30,30,15,30,30,16 1770 DATA 11,14,16,3,6,7,5,11,16,6,6,11,10,9,11,13,5,8,17,14,16,16,10,13,19,5,7,20,14,16,22,7,11,24 1780 DATA 12,2,5,1,7,1,12,7,7,14,5,15,8,17,13,19,5,21,13,22,8,25,6,29,10 1790 DATA 4,4,5,16,7,9,16,24,29,16,1,30,2 1800 IF x=12 AND y=16 THEN LOCATE x,y:PRINT ht$:PEN 2:LOCATE 13,15:PRINT" ":LOCATE 13,16:PRINT so$(1):FOR i=6 TO 10:FOR k=1 TO 200:NEXT:LOCATE i,16:PRINT CHR$(154)+picg$:NEXT:PEN 1:GOSUB 1910 1810 GOTO 910 1820 lk=-lk:IF lk=1 THEN GOTO 910 1830 rx=INT(RND*30)+5:ry=INT(RND*15)+2:IF pt(rx,ry)<>1 THEN GOTO 910 1840 IF pt(rx,ry+1)=0 AND ry<>16 THEN LOCATE rx,ry:PRINT" ":pt(rx,ry)=0:ry=ry+1:LOCATE rx,ry:PEN 2:PRINT so$(INT(RND*2)) ELSE pt(rx,ry)=1:PEN 1:GOTO 910 1850 IF rx=x AND ry=y THEN GOSUB 1910 1860 GOTO 1840 1870 xx=POS(#0):yy=VPOS(#0) 1880 PAPER 3 1890 en=en-1:LOCATE 30,20:PRINT en;"% ": IF en=0 THEN en=99:GOSUB 1910 1900 PAPER 0:LOCATE xx,yy:RETURN 1910 remain1=REMAIN(1) 1920 PEN 1:IF pt(x,y+1)=4 THEN LOCATE x,y:PRINT" ":PRINT CHR$(22)+CHR$(1):y=y+1: LOCATE x,y:PRINT ht$ ELSE LOCATE x,y:PRINT ht$:PRINT CHR$(22)+CHR$(1) 1930 PEN 3 1940 FOR i=1 TO v:NEXT 1950 LOCATE x,y:PRINT sg1$ 1960 FOR i=1 TO v:NEXT 1970 LOCATE x,y:PRINT sg2$ 1980 FOR i=1 TO v:NEXT 1990 LOCATE x,y:PRINT sp3$ 2000 FOR i=1 TO v:NEXT 2010 vi=vi-1:IF vi=0 THEN GOTO 2530 2020 PRINT CHR$(22);CHR$(0) 2030 PEN 1 2040 PAPER 3:LOCATE 20,22:PRINT"Vie...";vi:en=99:PAPER 0 2050 IF tabl=2 AND x=29 AND y=15 THEN y=16 2060 IF tabl=9 AND y=16 THEN y=6:x=6 2070 IF tabl=1 AND x=12 AND y=16 THEN x=13 2080 IF tabl=6 AND x=30 AND y=17 THEN x=31:y=16 2090 GOTO 450 2100 IF x<>29 OR y<>14 THEN GOTO 910 2110 IF x=29 AND y=14 THEN PEN 2:LOCATE 28,15:PRINT" ":LOCATE 29,14:PRINT" ":LOCATE 28,16:PRINT so$(0)+so$(0)+so$(1):PEN 1:LOCATE 29,15:PRINT ht$:y=y+1:PEN 2:FOR i=0 TO 2 2120 LOCATE 25+i,15:PRINT" "+so$(0)+so$(0):LOCATE 31-i,15:PRINT so$(1)+so$(0)+" ":FOR k=1 TO 500:NEXT:NEXT:GOSUB 1910 2130 y=16:GOTO 910 2140 IF x<>16 OR y<>4 THEN GOTO 910 2150 PEN 2:FOR i=0 TO 3:LOCATE 13+i,5:PRINT" "+so$(0)+so$(0)+so$(1):FOR k=1 TO 100:NEXT:NEXT:PEN 1 2160 pt(16,5)=0:GOTO 850 2170 IF x<>24 OR y<>9 THEN GOTO 910 2180 PEN 2:FOR i=0 TO 4:LOCATE 20+i,10:PRINT" "+STRING$(9,so$(1)):FOR k=1 TO 100:NEXT:NEXT:PEN 1:pt(24,10)=0:GOTO 850 2190 IF x<>19 OR y<>7 THEN GOTO 910 2200 PEN 2:FOR i=2 TO 7:LOCATE 19,i-1:PRINT" ":LOCATE 19,i:PRINT so$(0)+sp$(1):FOR k=1 TO 100:NEXT:NEXT:PEN 1:GOSUB 1910 2210 GOTO 910 2220 IF x<>10 OR y<>16 THEN GOTO 910 2230 LOCATE 13,11:PRINT" ":pt(13,11)=0:PEN 2:LOCATE 12,11:PRINT so$(0):pt(12,11)=1:PEN 1 2240 GOTO 910 2250 PEN 2:FOR i=6 TO 35:LOCATE i,1:PRINT so$(INT(RND*2)):LOCATE i,17:PRINT so$(INT(RND*2)):pt(i,1)=1:pt(i,17)=1:NEXT:FOR i=6 TO 25:LOCATE i,7:PRINT so$(0):pt(i,7)=1:NEXT:PEN 1:FOR i=7 TO 12:LOCATE 26,i:PRINT ec$:pt(26,i)=2:NEXT 2260 FOR i=12 TO 16:PEN 2:LOCATE 6,i:PRINT so$(INT(RND*2)):pt(6,i)=1:LOCATE 19,i:PRINT so$(INT(RND*2)):pt(19,i)=1:NEXT 2270 pic$(0)=CHR$(197):pic$(1)=CHR$(198):sg1$=CHR$(144):sg2$=CHR$(254):sg3$=CHR$(255) 2280 PEN 1:FOR i=20 TO 35:LOCATE i,16:PRINT pic$(INT(RND*2)):pt(i,16)=4:NEXT 2290 PEN 3:FOR i=7 TO 18:FOR j=12 TO 16: LOCATE i,j:PRINT CHR$(160):NEXT:NEXT 2300 PEN 2:FOR i=27 TO 34:LOCATE i,12:PRINT so$(INT(RND*2)):pt(i,12)=1:NEXT:PEN 1:LOCATE 29,11:PRINT CHR$(251) 2310 PEN 1:FOR i=8 TO 11:LOCATE 32,i:PRINT CHR$(149):NEXT:FOR i=0 TO 3:LOCATE 35-i,4+i:PRINT"/":NEXT:LOCATE 33,9:PRINT CHR$(143):RETURN 2320 GOTO 910 2330 IF sc<>840 AND x>9 AND x<17 AND y=6 THEN 2390 2340 IF (x>1 AND x<14 AND y>11 AND y<17) OR (x=29 AND y=11) THEN 2350 ELSE GOTO 910 2350 IF (x>1 AND x<14 AND y>11 AND y<17) THEN GOSUB 1910:GOTO 910 2360 INK 0,12,0:LOCATE 16,21:PRINT"< GAGNE >":LOCATE 29,11:PRINT CHR$(248);CHR$(251):FOR k=1 TO 5000:NEXT 2370 INK 0,0:SYMBOL 163,3,227,224,31,19,38,72,159:SYMBOL 164,128,128,96,16,248,24,32,124:SYMBOL 165,128,128,64,64,224,96,64,124:SOUND 1,900,200,15 2380 FOR b=1 TO 50:LOCATE 29,11:PRINT CHR$(163);CHR$(164):FOR c=1 TO 90:NEXT:SOUND 1,500,100,15:LOCATE 30,11:PRINT CHR$(165):FOR d=1 TO 90:NEXT:LOCATE 1,1:PRINT CHR$(7):NEXT b:FOR e=0 TO 1000:NEXT:GOTO 2440 2390 PEN 2:FOR i=9 TO x:LOCATE i,7:PRINT" "+STRING$(11,so$(0)):FOR k=1 TO 100:NEXT:pt(i,7)=0:NEXT 2400 PEN 1:GOTO 850 2410 DATA 89,100,89,113,89,119,89,134,67,75,67,84,67,89,67,100,100,113,100,119,100,134,100,150,75,84,75,89,75,100,89,89,100,150,100,134,100,119,100,113,89,134,89,119,89,113,89,100,75,113,75,100,75,89,75,84,67,100,67,89,67,84,67,75,67,75,67,84,67,89,67,100 2420 DATA 75,84,75,89,75,100,75,113,89,100,89,113,89,119,89,134,100,113,100,119,100,134,100,150 2430 son2=son2+2:IF son2>=96 THEN son2=1:RETURN ELSE ENV 4,4,-1,5:SOUND 2,son(son2),20,15,4:SOUND 2,son(son2+1),20,15,4:RETURN 2440 MODE 1:remain1=REMAIN(1):remain2=REMAIN(2) 2450 CALL &BB4E:LOCATE 16,3:PRINT"BRAVO !!":PRINT:PRINT"Cela faisait longtemps que vous ne l'aviez vue.Vous ne pouviez vous empecher..." 2460 PRINT:PRINT"Neanmoins,vous avez realise un score de";sc+en;"pts":IF sc+en>re THEN PRINT"Ce qui est un record !":re=sc+en 2470 RESTORE 110 2480 READ a,b:a=a*2:b=b*3:SOUND 1,a,b,5:SOUND 2,a*0.5,b,7:SOUND 4,a*0.25,b,5:FOR k=1 TO b:NEXT:SOUND 7,0,1:IF a<>0 THEN 2480 2490 PRINT:PRINT:PRINT"Voulez-vous rejouer ?" 2500 d$="":WHILE d$<>"N" AND d$<>"O":d$=UPPER$(INKEY$):WEND 2510 IF d$="N" THEN MODE 1:END 2520 ERASE n1,n2,son,pt:sc=0:GOTO 20 2530 MODE 1:remain1=REMAIN(1):remain2=REMAIN(2) 2540 CALL &BB4E:LOCATE 12,3:PRINT"PAS DE CHANCE !!" 2550 PRINT:PRINT:PRINT:PRINT"Votre fiancee ne va pas pouvoir passer son examen!" 2560 GOTO 2460 |