=================================================== RISK - Hebdogiciel 140 et 141 - 20 et 27 juin 1986 =================================================== Mode d'emploi : Tapez et sauvegardez à la suite ces trois programmes ("RISK1", "RISK2", "RISK3" et "RISK4"). Sachez que RISK1 et RISK2 sont facultatifs, que les règles sont présentes dans RISK3 et que le programme principal RISK4 occupe environ 29 Ko. Ce jeu utilise le joystick. Si au cours du jeu un désintégrateur vous bloque le passage, appuyez sur la barre d'espacement. Tapé par XavSnap pour : "Hebdogiciel, les listings...": http://www.hebdogiciel.fr/THOMSON.htm et DCMOTO, Emulateur THOMSON de Daniel Coulom. http://dcmoto.free.fr/programmes/_html/index.html Le fichier cassette (.k7) est la reproduction exacte du listing hebdogiciel. La version disquette (.fd) a été créée par XavSnap. ====================================================== RISK1 ====================================================== 4 '----------------------------------- 5 '! ! 6 '! --= Chargement du Programme =-- ! 7 '! -= RISK2 =- ! 8 '! ! 9 '----------------------------------- 10 CLS:SCREEN3,0,4:PLAY"O2A4T2DObMIbO4FAbSOb":CLEAR,,4 20 DEFGR$(0)=0,0,0,128,128,192,224,248 30 DEFGR$(1)=0,0,0,1,1,3,7,31 40 DEFGR$(2)=31,7,3,1,1,0,0,0 50 DEFGR$(3)=248,224,192,128,128,0,0,0 60 COLOR4:LOCATE0,0:PRINTGR$(3);:LOCATE39,0:PRINTGR$(2);:LOCATE0,23:PRINTGR$(0);:LOCATE39,23:PRINTGR$(1);:BOXF(0,192)-(319,199):COLOR3:LOCATE0,6 70 PRINT" ****** ** ****** ** ** ****** ** ****** ** ** ** ** ** *** **** ****** ** ****** *** ****** ** *** **** ** ** ** ****** ** **" 80 LOCATE0,12:PRINT" ** ** ** ****** ** ** -==========================-" 90 LOCATE0,15:COLOR7:PRINT" Patientez S.V.P. Le programme se charge"; 100 RUN"RISK2" ====================================================== RISK2 ====================================================== 1 ' --------------------------------- 2 ' ! ! 3 ' ! CARTE "RISK2" ! 4 ' ! ! 5 ' --------------------------------- 10 CLS:SCREEN0,0,0:PRINTCHR$(20) 15 LINE(159,60)-(162,60) 20 READ A,B:IF A=1000 THEN GOTO 100 ELSELINE-(A,B):GOTO20 30 DATA 168,54,171,54,174,51,174,54,180,54,183,51,186,51,189,48,189,45,186,45,183,42,177,48,177,51,174,45,171,48,168,45,171,42,174,42,177,39,180,39,183,36,189,33,195,39,195,42,192,42,189,39,189,42,192,45,198,45,201,42,204,42,213,39,216,39,219,42,222,39 40 DATA 222,36,225,33,228,36,225,39,225,42,219,45,222,45,228,42,231,42,234,45,231,39,231,36,228,33,231,33,234,36,237,33,237,36,240,39,240,33,237,30,240,30,243,33,246,33,243,30,243,27,249,27,252,24,264,24,264,21,267,18,270,18,273,21,276,18,279,21,276,24 50 DATA 270,27,267,30,270,30,273,27,276,27,282,30,285,30,291,27,297,27,294,30,300,30,306,33,309,33,306,30,312,27,318,27,320,30,320,33,318,30,315,30,315,33,312,33,312,36,315,39,315,42,312,42,306,48,306,51,303,48,300,51,300,54,297,60,294,54,297,48,303,45 60 DATA 303,42,297,45,297,42,291,48,291,57,285,66,294,75,294,78,288,81,285,81,282,84,282,87,285,87,288,90,285,96,279,99,279,96,273,90,270,90,273,102,279,105,282,111,276,108,270,102,270,93,267,90,267,93,264,90,264,87,261,84,255,90,249,102,249,105,246,108 70 DATA 243,108,240,105,237,93,237,87,234,87,231,84,225,84,222,87,216,87,213,84,207,84,210,87,213,87,216,90,213,96,210,96,204,99,192,81,192,84,189,84,201,102,210,99,213,99,207,108,204,114,195,120,195,123,198,129,198,135,195,138,192,144,195,144,189,159 80 DATA 186,162,177,162,174,159,174,156,171,153,168,141,168,132,165,126,168,123,168,120,165,120,162,123,156,120,150,120,141,111,138,105,138,102,141,93,150,84,156,81,165,81,168,84,171,84,177,81,189,81,195,72,189,75,186,75,186,72,189,69,198,69,195,66,189,66 90 DATA 183,72,177,75,174,63,171,63,171,66,174,75,171,75,168,66,165,66,162,69,162,72,156,78,153,78,150,75,150,72,153,69,159,69,162,66,162,63,159,60,1000,0 100 LINE(9,9)-(18,6) 110 READ A,B:IF A=1000 THEN GOTO 160 ELSE LINE-(A,B):GOTO110 120 DATA 21,6,42,12,48,9,57,9,60,12,63,12,66,9,69,9,69,6,72,6,78,12,75,15,72,15,66,27,66,33,69,36,69,39,75,42,72,45,75,48,75,51,78,51,84,42,84,39,81,30,81,27,84,24,87,24,93,27,93,30,90,36,96,33,96,30,99,36,99,42,105,39,105,42,90,51,87,57,90,54,70,57 130 DATA 87,66,81,72,78,78,72,84,72,87,75,93,75,96,72,96,69,93,69,90,63,87,60,87,54,90,51,96,51,99,54,99,57,96,60,99,57,105,60,108,60,111,57,111,60,114,60,120,60,117,69,117,69,120,72,117,75,117,81,120,87,120,90,123,87,126,90,126,93,123,105,126,108,129 140 DATA 108,132,102,138,99,144,96,147,96,150,93,159,87,162,90,162,90,165,87,168,87,171,84,177,84,180,78,195,75,195,72,192,72,180,69,174,69,165,66,150,63,147,57,144,51,138,51,132,54,126,57,123,58,117,54,108,54,105,48,99,42,96,39,78,36,75,39,93,36,90,36,84 150 DATA 33,75,33,72,36,69,33,63,33,60,36,51,66,45,39,42,36,39,33,30,30,27,21,24,18,24,9,33,3,33,9,30,15,24,12,24,9,21,15,18,12,18,9,12,9,9,1000,0 160 LINE(78,3)-(81,3) 170 READ A,B:IF A=1000 THEN GOTO 190 ELSE LINE-(A,B):GOTO170 180 DATA 84,6,81,9,87,12,93,18,96,15,99,15,99,18,93,24,90,21,84,21,87,18,78,9,78,3,1000,0 190 LINE(78,18)-(81,21) 200 READ A,B:IF A=1000 THEN GOTO 220 ELSE LINE-(A,B):GOTO200 210 DATA 75,21,72,24,72,21,75,18,78,18,1000,0 220 LINE(93,3)-(87,9) 230 READ A,B:IF A=1000 THEN GOTO 250 ELSE LINE-(A,B):GOTO230 240 DATA 90,12,96,9,99,9,108,18,108,21,105,27,105,30,111,36,114,36,120,30,123,30,129,27,129,24,132,18,132,15,135,9,141,3,1000,0 250 LINE(108,42)-(108,45) 255 LINE-(111,45):LINE-(108,48):LINE-(105,48):LINE-(105,45):LINE-(108,42) 260 LINE(132,27)-(135,27) 265 LINE-(138,24):LINE-(141,24):LINE-(144,27):LINE-(141,30):LINE-(138,30):LINE-(132,27) 270 LINE(66,102)-(69,99) 275 LINE-(72,99):LINE-(81,102):LINE-(81,105):LINE-(75,102):LINE-(66,102) 280 LINE(84,102)-(87,102) 285 LINE-(90,105):LINE-(90,108):LINE-(84,105):LINE-(84,102) 290 LINE(81,195)-(84,198) 295 LINE-(87,198):LINE-(84,200):LINE-(81,198):LINE-(78,198):LINE-(81,195) 300 LINE(147,51)-(150,51) 305 LINE-(150,54):LINE-(147,57):LINE-(147,51) 310 LINE(153,45)-(156,45) 315 LINE-(159,48):LINE-(156,48):LINE-(159,54):LINE-(159,57):LINE-(156,57):LINE-(153,54):LINE-(153,45) 320 LINE(219,18)-(222,18) 325 LINE-(222,21):LINE-(219,21):LINE-(213,27):LINE-(207,27):LINE-(207,21):LINE-(213,21):LINE-(219,18) 330 LINE(207,30)-(210,30) 335 LINE-(210,33):LINE-(213,36):LINE-(210,36):LINE-(207,33):LINE-(207,30) 340 LINE(252,9)-(255,9) 345 LINE-(252,12):LINE-(249,12):LINE-(252,9) 350 LINE(255,12)-(261,12) 355 LINE-(258,15):LINE-(255,15):LINE-(255,12) 360 LINE(261,15)-(264,15) 365 LINE-(261,18):LINE-(261,15) 370 LINE(252,105)-(249,108) 375 LINE-(249,111):LINE-(252,111):LINE-(252,105) 380 LINE(297,72)-(300,72) 385 LINE-(303,78):LINE-(303,81):LINE-(297,84):LINE-(294,81):LINE-(297,81):LINE-(300,78):LINE-(297,72) 390 LINE(294,99)-(300,102) 395 LINE-(297,102):LINE-(297,105):LINE-(291,108):LINE-(294,111):LINE-(288,111):LINE-(285,108):LINE-(294,99) 400 LINE(303,105)-(306,105) 405 LINE-(306,108):LINE-(309,105):LINE-(315,111):LINE-(306,111):LINE-(303,108):LINE-(300,108):LINE-(300,105) 410 LINE(306,114)-(309,117) 420 READ A,B:IF A=1000 THEN GOTO 440 ELSE LINE-(A,B):GOTO420 430 DATA 309,120,315,126,315,132,309,141,306,141,300,135,297,135,294,138,288,138,288,135,285,129,288,126,294,123,300,117,303,117,300,120,303,120,306,117,306,114,1000,0 440 LINE(312,141)-(312,144) 445 LINE-(315,147):LINE-(312,147):LINE-(309,144):LINE-(312,141) 450 LINE(210,123)-(210,129) 455 LINE-(207,135):LINE-(207,138):LINE-(204,138):LINE-(201,135):LINE-(201,132):LINE-(207,126):LINE-(210,123) 460 LINE(291,114)-(291,117) 465 LINE-(288,120):LINE-(282,120):LINE-(285,117):LINE-(288,117):LINE-(291,114) 470 SCREEN4,0,0 480 '---------------------------------- 490 '! ! 500 '! Si vous voulez copier la carte ! 510 '! sur l'imprimante thermique ! 520 '! tapez:CNT/C puis SCREENPRINT ! 530 '! ! 540 '---------------------------------- 550 RUN"RISK3" ====================================================== RISK3 ====================================================== 4 '----------------------------------- 5 '! ! 6 '! --= Chargement du programme =-- ! 7 '! -= RISK =- ! 9 '----------------------------------- 10 CLEAR,,12 20 DEFGR$(0)=0,0,0,128,128,192,224,248 25 DEFGR$(4)=255,170,255,161,236,161,255,170 26 DEFGR$(8)=255,171,253,162,233,173,237,236 30 DEFGR$(1)=0,0,0,1,1,3,7,31 35 DEFGR$(5)=0,128,64,160,238,174,64,142 36 DEFGR$(9)=10,14,138,206,74,206,106,238 40 DEFGR$(2)=31,7,3,1,1,0,0,0 45 DEFGR$(6)=0,0,0,0,0,0,0,124 46 DEFGR$(10)=170,254,160,124,10,254,170,124 50 DEFGR$(3)=248,224,192,128,128,0,0,0 55 DEFGR$(7)=224,160,224,160,224,160,227,165 56 DEFGR$(11)=234,180,216,172,218,165,229,227 57 LOCATE17,10,0:COLOR6:PRINTGR$(4);GR$(5);GR$(6);GR$(7):LOCATE17,11,0:PRINTGR$(8);GR$(9);GR$(10);GR$(11):LOCATE34,23,0:COLOR0,3:PRINT"ENTREE";:A$=INPUT$(1) 60 CLS:SCREEN3,0,4:COLOR4:LOCATE0,0:PRINTGR$(3);:LOCATE39,0:PRINTGR$(2);:LOCATE0,23:PRINTGR$(0);:LOCATE39,23:PRINTGR$(1);:BOXF(0,192)-(319,199):COLOR4:LOCATE0,6 70 ATTRB0,1:LOCATE 17,1:COLOR1:PRINT"RISK":LINE(137,16)-(166,16),2 80 ATTRB0,0:LOCATE0,3:COLOR7:PRINT"Une terrible guerre spatiale a eclate. La bataille n'a malheureusement pas tourne a votre avantage et nombre de voscompatriotes se sont vu captures par vos ennemis.IlS sont retenus prisonniers"; 90 PRINT"dans les bases spatiales de l'adversaire VOUS DEMEUREZ LE SEUL COMBATTANT DE VOTRE GROUPE "; 100 PRINT"Votre mission consiste a detruire vos ennemis,en detruisant les SPHERES ENERGETIQUES qui se trouvent sur la planete de celui-ci." 110 LOCATE 25,20,0:COLOR0,3:PRINT"ENTREE":A$=INPUT$(1) 120 CLS:SCREEN,0,4 140 COLOR4:LOCATE0,0:PRINTGR$(3);:LOCATE39,0:PRINTGR$(2);:LOCATE0,23:PRINTGR$(0);:LOCATE39,23:PRINTGR$(1);:BOXF(0,192)-(319,199):COLOR4:LOCATE0,6 150 ATTRB0,1:LOCATE 17,1:COLOR1:PRINT"RISK":LINE(137,16)-(166,16),2 160 ATTRB0,0:LOCATE0,3:COLOR7:PRINT"Mais cela risque de ne pas etre de tout repos.En effet,vos ennemis ont seme un grand nombre de DESINTEGRATEURS. Vous devrez les eviter. En plus des desintegrateurs,vos ennemis "; 170 PRINT"ont aussi lache toute une armada de SPIRALES DE FEU qui vous poursuivent pour vous tuer. Vous devrez les faire percuter sur quelque chose pour vous en debarrasser. Mefiez-vous egalement des contacts qui vous seraient mortels. "; 180 PRINT"Si vous n'avez aucune chance pour eviterles spirales, foncez leur dessus (BANZAIIIIII), vous aurez Peut-etre une chance de les esquiver."; 190 PLAY"O2A2T6L12FAMI":PLAY"L24REL12FASOSOFAMIREL72DOL12FAMIREREFAS0L24SOL12SORE" 200 PLAY"L36DOL12FAFAL24FAL12FAMIL24REL12FASOSOFASOLAL96FA" 210 PLAY"L48SIL12DOREDOL48DOL12LALASIbLAL48LAL12REREREREL48DOL12SIbSIbDOSIbL48SIb" 220 PLAY"L12MIMIFASOSOFAFAMIFAFAREDOL12DOL12SISIDOMIDOL48DO" 230 PLAY"L24LAL12SIbLALADODODOL36REREL12PSIbSIbSIbDOSIL48SI" 240 PLAY"L12MIMIFASOSOFAMIL96FA" 250 COLOR2:LOCATE4,20:PRINT"LE PROGRAMME RISK(Jeu) SE CHARGE":BEEP:BEEP:BEEP 260 RUN"RISK4" ====================================================== RISK4 ====================================================== 1 '---------------------------------- 2 'I I 3 'I -= RISK =- I 4 'I I 5 'I par LE LUU MINH Quan & Hoang I 6 'I Pour THONSON+Manettes de Jeu I 7 'I Copyright. 1986 I 8 'I I 9 '---------------------------------- 10 CLS:CLEAR,,65:SCREEN7,0,0:TA=1:VI=6:PRINTCHR$(20):A1$="12345":A2$="23456" 11 GOSUB 35 12 SCREEN0,0,0:W$=CHR$(127):BOXF(0,3)-(7,5)W$:BOXF(8,3)-(10,15)W$:BOXF(8,16)-(11,17)W$:BOXF(4,9)-(7,11)W$:BOXF(1,6)-(3,17)W$:PSET(0,6)GR$(31):PSET(10,3)GR$(19):PSET(7,6)GR$(31):PSET(7,8)GR$(30):PSET(10,9)GR$(25):PSET(4,12)GR$(32):PSET(7,12)GR$(31) 13 PSET(11,15)GR$(28):PSET(8,17)GR$(27):BOXF(13,3)-(17,4)W$:BOXF(14,5)-(16,15)W$:BOXF(13,16)-(17,17)W$:PSET(13,5)GR$(31):PSET(17,5)GR$(32):PSET(13,15)GR$(30):PSET(17,15)GR$(28):BOXF(26,3)-(28,6)W$:BOXF(19,3)-(25,5)W$:BOXF(19,6)-(21,11)W$ 14 BOXF(22,9)-(28,11)W$:BOXF(26,12)-(28,17)W$:BOXF(23,15)-(25,17)W$:BOXF(19,14)-(22,17)W$:PSET(19,3)GR$(24):PSET(28,3)GR$(19):PSET(22,6)GR$(32):PSET(25,6)GR$(31):PSET(22,8)GR$(28):PSET(28,9)GR$(19):PSET(19,11)GR$(27):PSET(25,12)GR$(31):PSET(25,14)GR$(30) 15 PSET(22,14)GR$(28):PSET(19,17)GR$(27):PSET(28,17)GR$(25):BOXF(30,3)-(33,5)W$:BOXF(31,6)-(33,14)W$:BOXF(30,15)-(33,17)W$:PSET(30,6)GR$(31):PSET(30,14)GR$(30):LINE(34,7)-(38,3)GR$(33):LINE(34,8)-(39,3)W$:LINE(34,9)-(39,4)W$:LINE(34,10)-(39,5)W$ 16 PSET(10,10)GR$(19):LINE(35,10)-(39,6)GR$(36):LINE(35,11)-(39,15)GR$(35):LINE(34,11)-(39,16)W$:LINE(34,12)-(39,17)W$:LINE(34,13)-(38,17)W$:LINE(34,14)-(37,17)GR$(34):SCREEN7:LINE(7,20)-(32,20)W$,2 17 PSET(6,20)GR$(27):PSET(6,19)GR$(28):PSET(33,20)GR$(25):PSET(33,19)GR$(30):LOCATE8,19:COLOR6:PRINT"LE LUU MINH Quan & Hoang":LOCATE16,23:COLOR0,7:PRINT"" 18 IF STRIG(0) THEN GOTO 98 ELSE SCREEN,,4:SCREEN,,7:SCREEN,,1:GOTO18 35 DEFGR$(0)=60,126,195,255,126,165,153,66 36 DEFGR$(1)=85,170,125,190,125,190,84,170 37 DEFGR$(2)=66,36,153,126,90,153,24,36 38 DEFGR$(3)=165,66,93,24,24,93,66,195 39 DEFGR$(32)=234,180,216,172,218,165,229,227:DEFGR$(56)=245,250,253,123,63,31,15,3:DEFGR$(57)=77,186,215,239,255,255,255,255:DEFGR$(58)=247,175,95,190,252,248,240,192 40 DEFGR$(4)=24,126,255,126,60,126,255,102 41 DEFGR$(5)=170,255,255,102,255,0,255,170 42 DEFGR$(6)=217,191,119,111,251,190,247,158 43 DEFGR$(7)=129,102,126,60,60,126,102,129 44 DEFGR$(19)=224,248,252,254,254,255,255,255 45 DEFGR$(8)=252,254,253,253,253,253,67,63 46 DEFGR$(37)=0,0,0,0,3,15,63,127 47 DEFGR$(43)=255,255,255,255,255,159,79,199 48 DEFGR$(38)=0,1,3,254,253,252,254,254 49 DEFGR$(39)=255,255,0,255,0,136,129,60 50 DEFGR$(9)=36,73,146,36,73,146,36,73 51 DEFGR$(10)=154,69,48,77,146,100,147,40 52 DEFGR$(11)=24,60,90,231,231,90,60,24 53 DEFGR$(24)=7,31,63,127,127,255,255,255 54 DEFGR$(25)=255,255,255,254,254,252,248,224 55 DEFGR$(12)=218,129,176,1,211,168,133,91 56 DEFGR$(27)=255,255,255,127,127,63,31,7 57 DEFGR$(28)=0,0,0,128,128,192,224,248 58 DEFGR$(30)=0,0,0,1,1,3,7,31 59 DEFGR$(31)=31,7,3,1,1,0,0,0 60 DEFGR$(13)=60,66,145,185,189,153,66,60 61 DEFGR$(14)=51,204,0,51,204,0,51,204 62 DEFGR$(15)=60,60,255,129,129,255,102,102 63 DEFGR$(16)=255,254,253,250,245,234,213,170 64 DEFGR$(32)=248,224,192,128,128,0,0,0 65 DEFGR$(17)=126,255,153,219,126,66,36,60 66 DEFGR$(33)=1,3,7,15,31,63,127,255 67 DEFGR$(34)=255,127,63,31,15,7,3,1 68 DEFGR$(35)=128,192,224,240,248,252,254,255 69 DEFGR$(36)=255,254,252,248,240,224,192,128 70 DEFGR$(18)=12,82,152,182,109,25,74,48 71 DEFGR$(40)=0,128,192,127,191,63,127,1 72 DEFGR$(44)=255,255,255,255,255,253,242,227 73 DEFGR$(45)=255,227,225,192,192,192,192,224 74 DEFGR$(46)=15,15,23,59,45,73,113,144 75 DEFGR$(20)=60,126,255,231,195,231,126,126 76 DEFGR$(21)=36,66,189,189,126,189,66,36 77 DEFGR$(47)=235,224,243,255,255,255,255,255 78 DEFGR$(48)=255,255,231,231,195,129,153,255 79 DEFGR$(49)=215,7,207,255,255,255,255,255:DEFGR$(50)=240,240,232,220,180,146,142,9:DEFGR$(51)=176,232,77,59,19,15,3,1:DEFGR$(52)=255,254,253,235,222,180,209,234:DEFGR$(55)=13,23,178,220,200,240,192,128 80 DEFGR$(22)=102,102,153,153,102,102,153,153:DEFGR$(53)=125,186,85,234,148,8,2,135:DEFGR$(54)=255,255,95,175,85,43,13,91 81 DEFGR$(23)=255,255,255,255,85,170,85,170:DEFGR$(64)=0,0,0,24,24,0,0,0:DEFGR$(63)=0,0,36,0,0,36,0,0:DEFGR$(62)=0,84,0,0,66,0,84,0:DEFGR$(61)=146,0,0,129,0,0,146,0 82 DEFGR$(26)=153,60,90,153,153,90,60,153 83 DEFGR$(41)=0,0,0,0,192,240,252,254 84 DEFGR$(42)=255,199,135,3,3,3,3,7 85 DEFGR$(29)=82,137,16,170,85,8,145,74:RETURN 86 PSET(M,N)" ":PSET(A,B)" ":FORI=5TO1STEP-1:PLAY"T3A5L30"+RIGHT$(STR$(I),1)+"SISODO":PSET(A,B)GR$(I+67-8):NEXT:PLAY"DODODODODODODODODO":X=A:Y=B:NC=0 88 VI=VI-1:IF VI=0 THEN FORI=0TO167:BOX(0,I)-(319,I),0:NEXT:RUN 90 LOCATE34,23:COLOR0,7:PRINTVI:COLOR,0 95 RETURN 98 SCREEN,0,0:GOTO1000 99 ' --------------------------------- 100 'I -= DEPLACEMENT DU VAISSEAU =- I 101 '--------------------------------- 110 COLOR7:A=X:B=Y:ON STICK(0) GOTO 113,111,116,111,120,111,121,111 111 IF INKEY$=" "THEN GOTO1000 112 GOTO123 113 IF Y<4 THEN GOTO 123 114 Y=Y-1 115 GOTO123 116 IF X>40 THEN GOTO123 117 X=X+1 118 GOTO123 120 Y=Y+1:GOTO123 121 IF X<1 THEN GOTO 123 122 X=X-1 123 IF SCREEN(X,Y)=0THEN GOTO 125 124 GOTO140 125 IF POINT(X*8+3,Y*8+2)=G THEN X=A:Y=B:GOTO160 126 IF POINT(X*8,Y*8+1)=1 THEN GOSUB86:GOTO110 130 IF POINT(X*8,Y*8+2)=3THEN PLAY"T2L"+MID$(A2$,RND*4+1,1)+"DOO"+MID$(A1$,RND*4+1,1):SC=SC+1:PO=PO-1:LOCATE8,23:COLOR0,7:PRINTSTR$(SC):COLOR,0:IF PO=0THEN TA=TA+1:GOTO1000 140 PSET(A,B)" ":PSET(X,Y)GR$(0),7 149 '---------------------------------- 150 'I -= NOUVEMENT DES SPIRALES =- I 151 '---------------------------------- 160 IF NC=1 THEN ON HO GOTO 210,220,230 180 N=3 190 NC=1:IF N=Y AND M=X THEN GOSUB86:GOTO110 200 GOTO290 210 PSET(M,N)" ":N=N+1:M=M+(XM):IF M=X AND N=Y THEN GOSUB86:GOTO110 212 IF SCREEN(M,N)=0THEN NC=0:M=INT(40*RND):GOTO110ELSE GOTO290 220 PSET(M,N)" ":N=N+1:IF M=X AND N=Y THEN GOSUB86:GOTO110 225 IF SCREEN(M,N)=0THEN NC=0:M=X:GOTO110ELSE GOTO290 230 PSET(M,N)" ":N=N+1:M=M+INT(RND*3)-1:IF M=X AND N=Y THEN GOSUB86:GOTO110 240 IF M>39 OR M<0 THEN NC=0:M=X:GOTO110ELSE IF SCREEN(M,N)=0THEN NC=0:M=X:GOTO110 290 PSET(M,N)GR$(18),5:GOTO110 298 '---------------------------------- 299 'I -= AFFICHAGE VIES+SCORE =- I 300 '---------------------------------- 301 BOX(2,170)-(318,198),1:BOXF(8,173)-(311,195),7:M=0:N=0 310 LOCATE2,23:COLOR0,7:PRINT"SCORE: VIES:";VI 340 COLOR,0:RETURN 997 '---------------------------------- 998 'I -= DESSIN DES TABLEAUX =- I 999 '---------------------------------- 1000 ON TA GOSUB 1100,1200,1300,1400,1500,1600,1700,1800,1900,10000,10100,10200,10300,10400,10500,10600,10700,10800,10900,11000,11100,11200,11300,11400,11500,11600,11700,11800,11900,12000,12100,12200,12300,12400,12500,20000: HO=INT(3*RND)+1:GOTO110 1095 ' N.1 1100 CLS:X=2:Y=15:G=6:PO=9:GOSUB300:RESTORE1110 1110 FORI=1TO35:PX=INT(320*RND):PY=INT(24*RND):PSET(PX,PY),INT(8*RND):NEXT 1120 DATA0,16,26,20,6,12,8,15,10,14,14,15,15,12,26,15,23,10,26,11,27,18,39,20,31,15,39,17,35,13,39,14,100,0,0,0 1130 READA,B,C,D:IF A=100THEN GOTO1150 1140 BOXF(A,B)-(C,D)GR$(8),6:GOTO1130 1150 BOXF(11,7)-(15,8)GR$(14),1:BOXF(0,11)-(4,13)GR$(14) 1160 BOXF(36,9)-(39,11)GR$(14):BOXF(29,7)-(30,8)GR$(14) 1170 DATR1,10,7,11,9,15,13,13,22,11,27,17,34,14,37,8,39,12,100,0 1180 READA,B:IF A=100THEN RETURN 1190 PSET(A,B)GR$(13),3:GOTO1180 1195 ' N.2 1200 CLS:X=7:Y=12:G=2:PO=15:GOSUB300:RESTORE1210 1210 FORI=1TO35:PX=INT(320*RND):PY=INT(24*RND):PSET(PX,PY),INT(8*RND):NEXT 1220 DATA0,13,9,20,10,14,12,20,13,18,24,20,25,8,28,20,29,15,39,20,100,0,0,0 1230 READA,B,C,D:IF A=100THEN GOTO1250 1240 BOXF(A,B)-(C,D)GR$(10),2:GOTO1230 1250 BOXF(11,7)-(15,8)GR$(14),1:BOXF(22,15)-(24,16)GR$(14) 1260 BOXF(29,7)-(32,8)GR$(14):BOXF(36,11)-(38,12)GR$(14) 1270 DATA2,12,3,12,14,6,10,13,13,15,13,16,13,17,14,16,14,17,15,17,23,14,24,17,28,7,37,10,39,14,100,0 1280 READA,B:IF A=100THEN RETURN 1290 PSET(A,B)GR$(13),3:GOTO1280 1295 ' N.3 1300 CLS:X=14:Y=12:G=6:PO=11:GOSUB300:RESTORE1310 1310 FORI=1TO35:PX=INT(320*RND):PY=INT(24*RND):PSET(PX,PY),INT(8*RND):NEXT 1320 DATA0,11,8,12,0,13,16,14,0,15,10,16,0,17,18,18,0,19,39,20,22,17,39,18,24,14,39,16,100,0,0,0 1330 READA,B,C,D:IF A=100THEN GOTO1350 1340 BOXF(A,B)-(C,D)GR$(16),6:GOTO1330 1350 BOXF(7,7)-(12,9)GR$(14),1:BOXF(29,9)-(34,13)GR$(14) 1360 PSET(16,16)GR$(14) 1370 DATA3,10,9,6,9,12,11,16,19,18,23,16,27,13,28,13,28,12,33,8,35,13,100,0 1380 READA,B:IF A=100THEN RETURN 1390 PSET(A,B)GR$(13),3:GOTO1380 1395 ' N.4 1400 CLS:X=12:Y=13:G=4:PO=14:GOSUB300:RESTORE1410 1410 FORI=1TO35:PX=INT(320*RND):PY=INT(24*RND):PSET(PX,PY),INT(8*RND):NEXT 1420 DATA0,18,39,20,0,15,7,17,8,14,16,17,17,6,19,17,21,14,22,17,23,16,39,17,100,0,0,0 1430 READA,B,C,D:IF A=100THEN GOTO1450 1440 BOXF(A,B)-(C,D)GR$(6),4:GOTO1430 1450 BOXF(10,7)-(14,8)GR$(14),1:BOXF(21,7)-(25,12)GR$(14) 1460 BOXF(32,9)-(33,10)GR$(14):PSET(7,13)GR$(14) 1470 DATA2,14,7,14,16,13,20,16,20,17,23,15,23,6,36,15,37,15,38,15,39,15,38,14,39,14,39,13,100,0 1480 READA,B:IF A=100THEN RETURN 1490 PSET(A,B)GR$(13),3:GOTO1480 1495 ' N.5 1500 CLS:X=29:Y=11:G=6:PO=13:GOSUB300:RESTORE1510 1510 FORI=1TO35:PX=INT(320*RND):PY=INT(24*RND):PSET(PX,PY),INT(8*RND):NEXT 1520 DATA0,12,10,18,0,19,39,20,16,17,23,18,19,16,20,9,17,8,22,5,29,18,39,12,100,0,0,0 1530 READA,B,C,D:IF A=100THEN GOTO1550 1540 BOXF(A,B)-(C,D)GR$(7),6:GOTO1530 1550 BOXF(4,8)-(8,9)GR$(14),1:BOXF(25,10)-(26,11)GR$(14) 1560 PSET(21,13)GR$(14) 1570 DATA5,7,2,11,11,17,11,18,12,18,18,16,21,12,21,4,23,16,24,17,24,18,25,18,35,11,100,0 1580 READA,B:IF A=100THEN RETURN 1590 PSET(A,B)GR$(13),3:GOTO1580 1595 ' N.6 1600 CLS:X=4:Y=13:G=4:PO=14:GOSUB300:RESTORE1610 1610 FORI=1TO35:PX=INT(320*RND):PY=INT(24*RND):PSET(PX,PY),INT(8*RND):NEXT 1620 DATA0,17,39,20,3,14,36,16,6,11,33,13,10,9,29,10,14,7,25,8,16,5,23,6,100,0,0,0 1630 READA,B,C,D:IF A=100THEN GOTO1650 1640 BOXF(A,B)-(C,D)GR$(23),4:GOTO1630 1650 BOXF(3,6)-(4,9)GR$(14),1:PSET(32,6)GR$(14) 1660 PSET(34,6)GR$(14):PSET(36,6)GR$(14) 1670 DATA3,5,2,16,7,10,12,8,13,8,19,4,20,4,24,6,32,10,34,5,34,12,34,13,35,13,38,16,100,0 1680 READA,B:IF A=100THEN RETURN 1690 PSET(A,B)GR$(13),3:GOTO1680 1695 ' N.7 1700 CLS:X=25:Y=11:G=6:PO=11:GOSUB300:RESTORE1710 1710 FORI=1TO35:PX=INT(320*RND):PY=INT(24*RND):PSET(PX,PY),INT(8*RND):NEXT 1720 DATA0,9,4,18,0,19,39,20,7,14,10,18,13,12,14,18,18,15,21,18,25,12,26,18,29,14,32,18,35,9,39,18,100,0,0,0 1730 READA,B,C,D:IF A=100THEN GOTO1750 1740 BOXF(A,B)-(C,D)GR$(22),6:GOTO1730 1750 BOXF(6,5)-(9,6)GR$(14),1:BOXF(18,7)-(21,13)GR$(14) 1760 BOXF(28,9)-(30,10)GR$(14) 1770 DATA2,8,6,18,10,13,14,11,17,18,20,6,23,18,27,18,29,8,31,13,39,8,100,0 1780 READA,B:IF A=100THEN RETURN 1790 PSET(A,B)GR$(13),3:GOTO1780 1795 ' N.8 1800 CLS:X=14:Y=9:G=6:PO=13:GOSUB300:RESTORE1810 1810 FORI=1TO35:PX=INT(320*RND):PY=INT(24*RND):PSET(PX,PY),INT(8*RND):NEXT 1820 DATA0,4,2,17,0,18,39,20,3,6,5,17,13,10,15,17,16,12,18,17,19,14,21,17,22,8,25,17,26,16,32,17,100,0,0,0 1830 READA,B,C,D:IF A=100THEN GOTO1850 1840 BOXF(A,B)-(C,D)GR$(11),6:GOTO1830 1850 BOXF(7,9)-(10,11)GR$(14),1:BOXF(7,13)-(10,17)GR$(14) 1860 BOXF(27,12)-(29,13)GR$(14) 1870 DATA3,5,6,17,9,12,10,8,12,17,16,11,21,13,24,7,28,15,29,11,38,17,39,17,39,16,100,0 1880 READA,B:IF A=100THEN RETURN 1890 PSET(A,B)GR$(13),3:GOTO1880 1895 ' N.9 1900 CLS:X=18:Y=14:G=4:PO=16:GOSUB300:RESTORE1910 1910 FORI=1TO35:PX=INT(320*RND):PY=INT(24*RND):PSET(PX,PY),INT(8*RND):NEXT 1920 DATA0,9,2,18,0,19,39,20,9,15,10,18,6,13,13,14,7,11,12,12,9,9,10,10,18,15,21,18,29,15,30,18,26,13,33,14,27,11,32,12,29,9,30,10,100,0,0,0 1930 READA,B,C,D:IF A=100THEN GOTO1960 1940 BOXF(A,B)-(C,D)GR$(12),4:GOTO1930 1960 BOXF(35,6)-(36,7)GR$(14),1 1970 DATA1,8,3,17,3,18,4,18,7,10,8,18,11,10,15,18,20,14,27,18,28,18,28,17,28,10,29,8,33,12,38,18,100,0 1980 READA,B:IF A=100THEN RETURN 1990 PSET(A,B)GR$(13),3:GOTO1980 1995 ' N.10 10000 CLS:X=11:Y=12:G=2:PO=14:GOSUB300:RESTORE10010 10010 FORI=1TO35:PX=INT(320*RND):PY=INT(24*RND):PSET(PX,PY),INT(8*RND):NEXT 10020 DATA0,11,7,12,0,18,39,20,10,15,18,17,11,13,17,14,13,11,15,12,21,15,29,17,22,13,28,14,24,11,26,12,32,11,39,12,100,0,0,0 10030 READA,B,C,D:IF A=100THEN GOTO10060 10040 BOXF(A,B)-(C,D)GR$(15),2:GOTO10030 10060 BOXF(18,7)-(21,8)GR$(14),1 10070 DATA3,17,6,10,10,14,13,10,18,14,19,6,19,17,20,17,23,12,25,10,35,10,38,17,39,17,39,16,100,0 10080 READA,B:IF A=100THEN RETURN 10090 PSET(A,B)GR$(13),3:GOTO10080 10095 ' N.11 10100 CLS:X=21:Y=10:G=6:PO=18:GOSUB300:RESTORE10110 10110 FORI=1TO35:PX=INT(320*RND):PY=INT(24*RND):PSET(PX,PY),INT(8*RND):NEXT 10120 DATA0,20,39,20,8,17,12,19,11,15,15,16,14,13,18,14,17,11,21,12,27,17,31,19,100,0,0,0 10130 READA,B,C,D:IF A=100THEN GOTO10150 10140 BOXF(A,B)-(C,D)GR$(20),6:GOTO10130 10150 BOXF(13,8)-(19,9)GR$(14),1:BOX(26,9)-(38,16)GR$(14) 10160 PSET(3,11)GR$(14) 10170 DATA3,10,5,19,6,19,7,19,7,18,13,14,14,7,20,19,26,19,27,15,27,14,28,15,31,15,31,9,32,9,33,9,36,15,37,19,100,0 10180 READA,B:IF A=100THEN RETURN 10190 PSET(A,B)GR$(13),3:GOTO10180 10195 ' N.12 10200 CLS:X=13:Y=15:G=4:PO=11:GOSUB300:RESTORE10210 10210 FORI=1TO35:PX=INT(320*RND):PY=INT(24*RND):PSET(PX,PY),INT(8*RND):NEXT 10220 DATA0,7,3,18,0,19,39,20,4,16,17,18,20,12,26,18,27,15,32,18,33,17,39,18,100,0,0,0 10230 READA,B,C,D:IF A=100THEN GOTO10250 10240 BOXF(A,B)-(C,D)GR$(9),4:GOTO10230 10250 BOXF(4,9)-(7,10)GR$(14),1:PSET(19,15)GR$(14) 10260 PSET(31,9)GR$(14):PSET(34,9)GR$(14):PSET(36,9)GR$(14) 10270 DATA2,6,6,8,6,15,19,18,24,11,27,13,27,14,28,14,33,9,36,8,37,16,100,0 10280 READA,B:IF A=100THEN RETURN 10290 PSET(A,B)GR$(13),3:GOTO10280 10295 ' N.13 10300 CLS:X=13:Y=17:G=6:PO=12:GOSUB300:RESTORE10310 10310 FORI=1TO35:PX=INT(320*RND):PY=INT(24*RND):PSET(PX,PY),INT(8*RND):NEXT 10320 DATA0,5,6,10,0,11,2,18,0,19,39,20,18,10,20,15,33,12,39,18,37,5,39,11,100,0,0,0 10330 READA,B,C,D:IF A=100THEN GOTO10350 10340 BOXF(A,B)-(C,D)GR$(17),6:GOTO10330 10350 BOX(12,16)-(26,18)GR$(14),1 10360 PSET(23,8)GR$(14) 10370 DATA2,4,6,18,11,18,15,15,19,9,24,15,26,17,32,18,35,11,36,11,36,10,39,4,100,0 10380 READA,B:IF A=100THEN RETURN 10390 PSET(A,B)GR$(13),3:GOTO10380 10395 ' N.14 10400 CLS:X=14:Y=11:G=1:PO=6:GOSUB300:RESTORE10410 10410 FORI=1TO35:PX=INT(320*RND):PY=INT(24*RND):PSET(PX,PY),INT(8*RND):NEXT 10420 DATA0,8,7,13,0,14,39,20,11,12,20,13,21,10,29,13,30,7,38,13,100,0,0,0 10430 READA,B,C,D:IF A=100THEN GOTO10450 10440 BOXF(A,B)-(C,D)GR$(1),1:GOTO10430 10450 PSET(10,12)GR$(14),1:PSET(18,7)GR$(14),1 10460 PSET(21,7)GR$(14),1:PSET(25,7)GR$(14),1:PSET(29,7)GR$(14),1 10470 DATA2,7,8,13,19,11,25,6,34,6,39,13,100,0 10480 READA,B:IF A=100THEN RETURN 10490 PSET(A,B)GR$(13),3:GOTO10480 10495 ' N.15 10500 CLS:X=33:Y=6:G=2:PO=18:GOSUB300:RESTORE10510 10510 FORI=1TO35:PX=INT(320*RND):PY=INT(24*RND):PSET(PX,PY),INT(8*RND):NEXT 10520 DATA0,16,7,20,5,7,7,15,32,7,34,15,32,16,39,20,100,0,0,0 10530 READA,B,C,D:IF A=100THEN GOTO10550 10540 BOXF(A,B)-(C,D)GR$(2),2:GOTO10530 10550 BOX(8,12)-(31,20)GR$(14),1 10570 DATA3,15,6,6,8,11,9,18,9,19,10,19,12,12,18,12,19,12,20,12,21,12,18,19,26,19,27,12,31,11,38,15,39,15,39,14,100,0 10580 READA,B:IF A=100THEN RETURN 10590 PSET(A,B)GR$(13),3:GOTO10580 10595 ' N.16 10600 CLS:X=11:Y=12:G=4:PO=17:GOSUB300:RESTORE10610 10610 FORI=1TO35:PX=INT(320*RND):PY=INT(24*RND):PSET(PX,PY),INT(8*RND):NEXT 10620 DATA0,18,39,20,6,13,13,17,15,15,24,17,16,13,23,14,18,10,21,12,19,8,20,9,26,13,33,17,100,0,0,0 10630 READA,B,C,D:IF A=100THEN GOTO10650 10640 BOXF(A,B)-(C,D)GR$(3),4:GOTO10630 10650 BOX(0,5)-(5,17)GR$(14),1:BOX(34,5)-(39,17)GR$(14),1 10660 PSET(12,7)GR$(14),1:PSET(27,6)GR$(14),1:PSET(30,6)GR$(14),1 10670 DATA2,5,3,5,4,5,1,16,6,11,6,12,7,12,14,17,17,12,20,7,24,14,25,17,30,12,35,5,36,5,37,5,36,16,100,0 10680 READA,B:IF A=100THEN RETURN 10690 PSET(A,B)GR$(13),3:GOTO10680 10695 ' N.17 10700 CLS:X=26:Y=14:G=2:PO=18:GOSUB300:RESTORE10710 10710 FORI=1TO35:PX=INT(320*RND):PY=INT(24*RND):PSET(PX,PY),INT(8*RND):NEXT 10720 DATA0,9,1,18,0,19,39,20,2,11,6,14,23,15,29,18,33,12,39,18,100,0,0,0 10730 READA,B,C,D:IF A=100THEN GOTO10750 10740 BOXF(A,B)-(C,D)GR$(4),2:GOTO10730 10750 BOXF(7,16)-(14,17)GR$(14),1:BOX(15,13)-(22,18)GR$(14) 10760 BOX(30,8)-(32,18)GR$(14):PSET(22,7)GR$(14) 10770 DATA1,8,4,10,2,18,5,18,6,18,6,17,12,15,16,16,16,17,17,17,18,17,21,17,18,13,20,13,21,13,31,17,31,8,36,11,100,0 10780 READA,B:IF A=100THEN RETURN 10790 PSET(A,B)GR$(13),3:GOTO10780 10795 ' N.18 10800 CLS:X=2:Y=12:G=6:PO=13:GOSUB300:RESTORE10810 10810 FORI=1TO35:PX=INT(320*RND):PY=INT(24*RND):PSET(PX,PY),INT(8*RND):NEXT 10820 DATA0,13,6,18,0,19,39,20,10,5,12,16,12,17,27,18,27,5,29,16,19,11,20,16,33,13,39,18,100,0,0,0 10830 READA,B,C,D:IF A=100THEN GOTO10850 10840 BOXF(A,B)-(C,D)GR$(5),6:GOTO10830 10850 BOXF(17,7)-(22,10)GR$(14),1 10860 PSET(4,7)GR$(14) 10870 DATA4,6,7,18,13,15,13,16,14,16,17,7,22,7,21,16,24,16,28,17,28,18,29,18,36,12,100,0 10880 READA,B:IF A=100THEN RETURN 10890 PSET(A,B)GR$(13),3:GOTO10880 10895 ' N.19 10900 CLS:X=2:Y=16:G=4:PO=12:GOSUB300:RESTORE10910 10910 FORI=1TO35:PX=INT(320*RND):PY=INT(24*RND):PSET(PX,PY),INT(8*RND):NEXT 10920 DATA0,17,39,20,9,15,18,16,7,13,12,14,7,8,8,12,21,15,30,16,27,13,32,14,31,8,32,12,100,0,0,0 10930 READA,B,C,D:IF A=100THEN GOTO10950 10940 BOXF(A,B)-(C,D)GR$(26),4:GOTO10930 10950 BOXF(4,5)-(7,7)GR$(14),1:LINE(22,8)-(25,8) 10960 PSET(14,6)GR$(14):PSET(19,5)GR$(14):PSET(38,10)GR$(14) 10970 DATA6,5,10,12,13,14,19,4,19,16,20,16,20,15,24,14,24,7,30,12,31,16,38,9,100,0 10980 READA,B:IF A=100THEN RETURN 10990 PSET(A,B)GR$(13),3:GOTO10980 10995' N.20 11000 CLS:X=35:Y=17:G=2:PO=14:GOSUB300:RESTORE11010 11010 FORI=1TO35:PX=INT(320*RND):PY=INT(24*RND):PSET(PX,PY),INT(8*RND):NEXT 11020 DATA0,18,39,20,3,8,10,9,6,10,7,17,15,8,17,17,22,8,24,17,29,8,36,9,32,10,33,17,100,0,0,0 11030 READA,B,C,D:IF A=100THEN GOTO11050 11040 BOXF(A,B)-(C,D)GR$(29),2:GOTO11030 11050 BOXF(9,11)-(12,16)GR$(14),1 11060 BOXF(27,11)-(30,16)GR$(14):PSET(19,9)GR$(14) 11070 DATA7,7,5,16,5,17,4,17,9,10,14,17,17,7,19,17,21,17,23,7,31,17,31,7,35,7,39,17,100,0 11080 READA,B:IF A=100THEN RETURN 11090 PSET(A,B)GR$(13),3:GOTO11080 11095 ' N.21 11100 CLS:X=35:Y=16:G=6:PO=13:GOSUB300:RESTORE11110 11110 FORI=1TO35:PX=INT(320*RND):PY=INT(24*RND):PSET(PX,PY),INT(8*RND):NEXT 11120 DATA0,17,39,20,11,15,28,16,26,13,28,14,18,5,19,11,20,5,30,6,100,0,0,0 11130 READA,B,C,D:IF A=100THEN GOTO11150 11140 BOXF(A,B)-(C,D)GR$(21),6:GOTO11130 11150 BOXF(18,12)-(25,13)GR$(14),1:PSET(4,11)GR$(14) 11160 PSET(7,11)GR$(14):PSET(34,11)GR$(14):PSET(37,9)GR$(14) 11170 DATA1,16,7,10,9,16,10,16,10,15,15,14,20,10,20,11,21,11,25,14,26,12,31,16,37,8,100,0 11180 READA,B:IF A=100THEN RETURN 11190 PSET(A,B)GR$(13),3:GOTO11180 11195 ' N.22 11200 CLS:X=21:Y=16:G=4:PO=12:GOSUB300:RESTORE11210 11210 FORI=1TO35:PX=INT(320*RND):PY=INT(24*RND):PSET(PX,PY),INT(8*RND):NEXT 11220 DATA0,10,1,20,2,13,3,20,4,15,5,20,29,15,39,20,6,17,28,20,18,13,20,16,18,8,20,8,13,9,14,10,13,12,14,14,24,9,25,10,24,12,25,14,100,0,0,0 11230 READA,B,C,D:IF A=100THEN GOTO11250 11240 BOXF(A,B)-(C,D)GR$(25),4:GOTO11230 11250 BOXF(32,8)-(33,11)GR$(14),1:BOXF(15,9)-(23,12)GR$(14) 11270 DATA0,9,2,11,2,12,9,16,13,16,14,8,15,8,15,13,20,7,21,8,24,11,36,14,100,0 11280 READA,B:IF A=100THEN RETURN 11290 PSET(A,B)GR$(13),3:GOTO11280 11299 ' N.23 11300 CLS:VI=VI+3:COLOR6:PRINTCHR$(14):X=21:Y=10:G=6:PO=10 11301 FORI=1TO35:PX=INT(320*RND):PY=INT(24*RND):PSET(PX,PY),INT(8*RND):NEXT 11302 LOCATE0,5:PRINT" 7 9 Y K M" 11303 PRINT" 1 W Y O 3 - I S" 11304 PRINT" U + GO YU MY S M E W SUR= O K C !% Y OETGS/ # O A 13579';=-+ 9 WYDGHFFG!" 11305 PRINT"!#%')I-/1OSUWBSHJGFFVCH')IJOSU323TRZROE)APR1REZEAPRZEREZ1.5+.5.5UR434FOFHNGFDSVCVCXUFR2FPDSDSDFDFDSDSDFR3FMFDSDF3FDSDFMDF1REREZFDSDGDSVCVXWVAF21R909R135357+54345434TRERJFDSDVW@X@VCVV^SCSSBAG19+7R90+0959057T7RE,F0DSDGFOPSD.DS0.G.032.0.T74742"; 11306 PRINT".RER.OF.RER.GJSKSGFSFG.GF.G.IREHF S F SLVWV+2454645054345NRZTREZRTRERTRZOTERTYUR" 11307 PSET(X,Y)GR$(0),7:FORI=1TO8 11308 PX=INT(40*RND):PY=INT(8*RND)+5:IF SCREEN(PX,PY)=0THEN GOTO11308 ELSE PSET(PX,PY)GR$(14),1:NEXT 11309 PRINTCHR$(15):GOSUB300:FORI=1TO10 11310 PX=INT(40*RND):PY=INT(8*RND)+5:IF SCREEN(PX,PY)=0 OR SCREEN(PX,PY+1)=32THEN GOTO 11310 ELSE PSET(PX,PY)GR$(13),3:NEXT:RETURN 11399 ' N. 24 11400 CLS:COLOR2:PRINTCHR$(14):X=21:Y=10:G=2:PO=10 11401 FORI=1TO35:PX=INT(320*RND):PY=INT(24*RND):PSET(PX,PY),INT(8*RND):NEXT 11404 LOCATE0,5:PRINT" S S S S S S" 11405 PRINT" S S S S S S " 11406 PRINT" S S S S S S " 11407 PRINT" S S S S S S " 11408 PRINT" S S S S S S " 11409 PRINT" S S S S S S " 11410 PRINT" S S S S S S " 11411 PRINT" S S S S S S S S S S S S S S S S S S " 11412 PRINT"OSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSO6OSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOS" 11413 PSET(X,Y)GR$(0),7:FORI=1TO8 11414 PX=INT(40*RND):PY=INT(8*RND)+5:IFSCREEN(PX,PY)=0THEN GOTO11414 ELSE PSET(PX,PY)GR$(14),1:NEXT 11415 PRINTCHR$(15):GOSUB300:FORI=1TO10 11416 PX=INT(40*RND):PY=INT(8*RND)+5:IF SCREEN(PX,PY)=0 OR SCREEN(PX,PY+1)=32THEN GOTO 11416 ELSE PSET(PX,PY)GR$(13),3:NEXT:RETURN 11499 ' N.25 11500 CLS:COLOR4:PRINTCHR$(14):X=9:Y=8:G=4:PO=10 11501 FORI=1TO35:PX=INT(320*RND):PY=INT(24*RND):PSET(PX,PY),INT(8*RND):NEXT 11504 LOCATE0,4:PRINT"E" 11505 PRINT"EE E E E"; 11506 PRINT"EEE EEEE + E EE"; 11507 PRINT"EEE E + E EEE"; 11508 PRINT"EEEE E + E EEE"; 11509 PRINT"++++ +++++++ +++++++ +++ +++++ ++++++++++ +++++++ +++++++ +++ +++++ ++++++++++ +++++++ +++++++ +++ +++++ ++++++++++ +++++++ +++++++ +++ +++++++++++++++++++ +++++++++++++++ +++ +++++++++++++++++++ +++++++++++++++ +++++++++++++++"; 11510 PRINT"++++ +++++++++++++++ +++ +++++++++++++++++++ +++++++++++++++ +++ +++++++++++++++++++ +++++++++++++ +++ +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++"; 11516 PSET(X,Y)GR$(0),7:FORI=1TO8 11517 PX=INT(40*RND):PY=INT(8*RND)+5:IF SCREEN(PX,PY)=0THEN GOTO11517 ELSE PSET(PX,PY)GR$(14),1:NEXT 11518 PRINTCHR$(15):GOSUB300:FORI=1TO10 11519 PX=INT(40*RND):PY=INT(8*RND)+5:IF SCREEN(PX,PY)=0 OR SCREEN(PX,PY+1)=32THEN GOTO 11519 ELSE PSET(PX,PY)GR$(13),3:NEXT:RETURN 11599 ' N.26 11600 CLS:COLOR6:PRINTCHR$(14):X=21:Y=10:G=6:PO=10 11601 FORI=1TO35:PX=INT(320*RND):PY=INT(24*RND):PSET(PX,PY),INT(8*RND):NEXT 11604 LOCATE0,5:PRINT" U U" 11605 PRINT" U K K U" 11606 PRINT" U K K U" 11607 PRINT" U -- K K -- U" 11608 PRINT" U - KSS SSK - U" 11609 PRINT" U - K K - U" 11610 PRINT" U ---K K--- U" 11611 PRINT" U K K U" 11612 PRINT" U KKKKKKKKKK U" 11613 PRINT"!#!#!#!#!#!#!#!#!#!#!#!#!#!#!#!#!#!#!#!#!#!#!#!#!##!#!#!#!#!#!#!#!#!#!#!#!#!#!#!#!#!#!#!#!#!#!#!#!#"; 11614 PRINT".CVDHGHZOGYTRT8T36TOTYTEZTZY+3235YTKJFSSVCBVGOGFGSGSDGFGDIOTZR21YREZETOTEZE+T3T4TORERTGJDBDVCWVDYU3T432564UREZEFBWCXCVLBLGIOT323T8R68T432RZHREZEFDOFDSQFJZU69YRO"; 11615 PRINT"YZYUTYRTRERGFDSGFSGFLGB,VCVQSGIREYET2T4U"; 11616 PSET(X,Y)GR$(0),7:FORI=1TO8 11617 PX=INT(40*RND):PY=INT(8*RND)+5:IF SCREEN(PX,PY)=0THEN GOTO11617 ELSE PSET(PX,PY)GR$(14),1:NEXT 11618 PRINTCHR$(15):GOSUB300:FORI=1TO10 11619 PX=INT(40*RND):PY=INT(8*RND)+5:IF SCREEN(PX,PY)=0 OR SCREEN(PX,PY+1)=32THEN GOTO 11619 ELSE PSET(PX,PY)GR$(13),3:NEXT:RETURN 11699 ' N.27 11700 CLS:COLOR4:PRINTCHR$(14):X=21:Y=9:G=4:PO=10 11701 FORI=1TO35:PX=INT(320*RND):PY=INT(24*RND):PSET(PX,PY),INT(8*RND):NEXT 11704 LOCATE0,5:PRINT" % # # % #" 11705 PRINT" # % ## % # #" 11706 PRINT"# # # %% %% # #" 11707 PRINT"# # # % % # #" 11708 PRINT"# # # % % # #" 11709 PRINT"# # # %%%%%%%%%%%% # #" 11710 PRINT"# # # % % #" 11711 PRINT"# # # % % # #" 11712 PRINT"# # % % # #" 11713 PRINT"# # # #" 11714 PRINT"IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIUFSDSDDSDVNXWVDSHJFDSDFJHFYAFESEFLFDFDSDIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIISDLFVCBXWXVSQSFZAR43545321-R2REZERZEFDSDIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIISFSFZR32RP2434+1I4BFEBC.CXQ@QGCJDSDSDSDY"; 11716 PSET(X,Y)GR$(0),7:FORI=1TO8 11717 PX=INT(40*RND):PY=INT(8*RND)+5:IF SCREEN(PX,PY)=0THEN GOTO11717 ELSE PSET(PX,PY)GR$(14),1:NEXT 11718 PRINTCHR$(15):GOSUB300:FORI=1TO10 11719 PX=INT(40*RND):PY=INT(8*RND)+5:IF SCREEN(PX,PY)=0 OR SCREEN(PX,PY+1)=32THEN GOTO 11719 ELSE PSET(PX,PY)GR$(13),3:NEXT:RETURN 11799 ' N.28 11800 CLS:COLOR2:PRINTCHR$(14):X=21:Y=10:G=2:PO=10 11801 FORI=1TO35:PX=INT(320*RND):PY=INT(24*RND):PSET(PX,PY),INT(8*RND):NEXT 11804 LOCATE0,5:PRINT" 1 1 1 1" 11805 PRINT" 1 1 1 00 0 1 1 1" 11806 PRINT" 1 1 1 1 1 1" 11807 PRINT" 1 1 1 1 1 1" 11808 PRINT" 1 1 1 1 1 1" 11809 PRINT" 1 1 1 1 1 1" 11810 PRINT" 1 1 OOO 1 1 1 1" 11811 PRINT" 1 1 1 1 OO 1 1" 11812 PRINT" 1 1 1 1 1 1" 11813 PRINT" 1 1 11 1 1" 11814 PRINT"CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC77777777777777777777777777777777777777777777777777777777777777777777777?777777777777777777777777777777777777777777777777" 11816 PSET(X,Y)GR$(0),7:FORI=1TO8 11817 PX=INT(40*RND):PY=INT(8*RND)+5:IFSCREEN(PX,PY)=0THEN GOTO11817 ELSE PSET(PX,PY)GR$(14),1:NEXT 11818 PRINTCHR$(15):GOSUB300:FORI=1TO10 11819 PX=INT(40*RND):PY=INT(8*RND)+5:IFSCREEN(PX,PY)=0 OR SCREEN(PX,PY+1)=32THEN GOTO 11819 ELSE PSET(PX,PY)GR$(13),3:NEXT:RETURN 11899 ' N.29 11900 CLS:COLOR6:PRINTCHR$(14):X=21:Y=10:G=6:PO=10 11901 FORI=1TO35:PX=INT(320*RND):PY=INT(24*RND):PSET(PX,PY),INT(8*RND):NEXT 11904 LOCATE0,6:PRINT" A GG A" 11905 PRINT" GG" 11906 PRINT" A AAAAGGAAAA A" 11907 PRINT" A GG A" 11908 PRINT" A GG A" 11909 PRINT" A AA GG AA A" 11910 PRINT" A GG A" 11911 PRINT" A 33333333 A" 11912 PRINT" A 5555555555555555 A" 11913 PRINT" A EEEEEEEEEEEEEEEEEEEEEEEE A" 11914 PRINT" A))))))))))))))))))))))))))))))))A" 11915 PRINT"''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''"; 11916 PSET(X,Y)GR$(0),7:FORI=1TO8 11917 PX=INT(40*RND):PY=INT(8*RND)+5:IFSCREEN(PX,PY)=0THEN GOTO11917 ELSE PSET(PX,PY)GR$(14),1:NEXT 11918 PRINTCHR$(15):GOSUB300:FORI=1TO10 11919 PX=INT(40*RND):PY=INT(8*RND)+5:IFSCREEN(PX,PY)=0 OR SCREEN(PX,PY+1)=32THEN GOTO 11919 ELSE PSET(PX,PY)GR$(13),3:NEXT:RETURN 11999 ' N.30 12000 CLS:COLOR4:PRINTCHR$(14):X=23:Y=10:G=4:PO=10 12001 FORI=1TO35:PX=INT(320*RND):PY=INT(24*RND):PSET(PX,PY),INT(8*RND):NEXT 12004 LOCATE0,6:PRINT" OOO OO OOO O O" 12005 PRINT" OOO OO OOO O" 12006 PRINT" OOO OOOO OOO" 12007 PRINT" O OOOOOO O" 12008 PRINT" OOOOOOO OOOOOOOO OOOOOOO" 12009 PRINT" O OOOOOOOOOO O" 12010 PRINT" O O OOOOOOOOOOOO O O" 12011 PRINT" O OO O" 12012 PRINT" O O OO O O" 12013 PRINT"----------------------------------------SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS????????????????????????????????????????;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;''''''''''''''''''''''''''''''''''''''''IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII"; 12016 PSET(X,Y)GR$(0),7:FORI=1TO8 12017 PX=INT(40*RND):PY=INT(8*RND)+5:IFSCREEN(PX,PY)=0THEN GOTO12017 ELSE PSET(PX,PY)GR$(14),1:NEXT 12018 PRINTCHR$(15):GOSUB300:FORI=1TO10 12019 PX=INT(40*RND):PY=INT(8*RND)+5:IFSCREEN(PX,PY)=0 OR SCREEN(PX,PY+1)=32THEN GOTO 12019 ELSE PSET(PX,PY)GR$(13),3:NEXT:RETURN 12099 ' N.31 12100 CLS:COLOR6:PRINTCHR$(14):X=32:Y=10:G=6:PO=10 12101 FORI=1TO35:PX=INT(320*RND):PY=INT(24*RND):PSET(PX,PY),INT(8*RND):NEXT 12104 LOCATE0,5:PRINT" UU UU" 12105 PRINT" UUUU UUUU U U ===" 12106 PRINT" U U U U =====" 12107 PRINT" U U UU U U =====" 12108 PRINT" UU UU UU UUUUU UUU ===" 12109 PRINT" U U Y" 12110 PRINT" U UU ++ ++ UU U Y" 12111 PRINT" U U U U U UUU Y" 12112 PRINT" UUU UUUUU UUUU Y" 12113 PRINT" UU UU Y" 12114 PRINT"WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW"; 12116 PSET(X,Y)GR$(0),7:FORI=1TO8 12117 PX=INT(40*RND):PY=INT(8*RND)+5:IFSCREEN(PX,PY)=0THEN GOTO12117 ELSE PSET(PX,PY)GR$(14),1:NEXT 12118 PRINTCHR$(15):GOSUB300:FORI=1TO10 12119 PX=INT(40*RND):PY=INT(8*RND)+5:IFSCREEN(PX,PY)=0 OR SCREEN(PX,PY+1)=32THEN GOTO 12119 ELSE PSET(PX,PY)GR$(13),3:NEXT:RETURN 12199 ' N.31 12200 CLS:COLOR2:PRINTCHR$(14):X=21:Y=10:G=2:PO=10 12201 FORI=1TO35:PX=INT(320*RND):PY=INT(24*RND):PSET(PX,PY),INT(8*RND):NEXT 12204 LOCATE0,5:PRINT" % ' ) 555" 12205 PRINT" 55555" 12206 PRINT" 555 55 55 55 55 5555" 12207 PRINT" 55555 5555 5555 555555" 12208 PRINT" 5 55 55 55 55 55" 12209 PRINT" 5555 5555 5555" 12210 PRINT" 5 55 55 55" 12211 PRINT"================================================================================================================================================================================================================================================"; 12212 PRINT"========================================================================================================================"; 12216 PSET(X,Y)GR$(0),7:FORI=1TO8 12217 PX=INT(40*RND):PY=INT(8*RND)+5:IFSCREEN(PX,PY)=0THEN GOTO12217 ELSE PSET(PX,PY)GR$(14),1:NEXT 12218 PRINTCHR$(15):GOSUB300:FORI=1TO10 12219 PX=INT(40*RND):PY=INT(8*RND)+5:IFSCREEN(PX,PY)=0 OR SCREEN(PX,PY+1)=32THEN GOTO 12219 ELSE PSET(PX,PY)GR$(13),3:NEXT:RETURN 12299' N.32 12300 CLS:COLOR4:PRINTCHR$(14):X=22:Y=10:G=4:PO=10 12301 FORI=1TO35:PX=INT(320*RND):PY=INT(24*RND):PSET(PX,PY),INT(8*RND):NEXT 12304 LOCATE0,7:PRINT" ###### ### ## # # ###" 12305 PRINT" # # # # # ##" 12306 PRINT" # # # # # ##" 12307 PRINT" #### # # # # #" 12308 PRINT" # # # # # #" 12309 PRINT" # # # # #" 12310 PRINT" # # # # # ##" 12311 PRINT" # ###### ###### ##" 12312 PRINT"MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++"; 12316 PSET(X,Y)GR$(0),7:FORI=1TO8 12317 PX=INT(40*RND):PY=INT(8*RND)+5:IFSCREEN(PX,PY)=0THEN GOTO12317 ELSE PSET(PX,PY)GR$(14),1:NEXT 12318 PRINTCHR$(15):GOSUB300:FORI=1TO10 12319 PX=INT(40*RND):PY=INT(8*RND)+5:IFSCREEN(PX,PY)=0 OR SCREEN(PX,PY+1)=32THEN GOTO 12319 ELSE PSET(PX,PY)GR$(13),3:NEXT:RETURN 12399 ' N.33 12400 CLS:COLOR6:PRINTCHR$(14):X=21:Y=10:G=6:PO=10 12401 FORI=1TO35:PX=INT(320*RND):PY=INT(24*RND):PSET(PX,PY),INT(8*RND):NEXT 12404 LOCATE0,6:PRINT" WWW IWW WWI WWW" 12405 PRINT" W I I W" 12406 PRINT" W W I I W W W I I W" 12407 PRINT" W I I W" 12408 PRINT" W I I W" 12409 PRINT" W II II W W IIIII W" 12410 PRINT" W W" 12411 PRINT"!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!DSDVBWVSFYFYZ8R41652HRHJNQCXWXBCWCGDS/PDPGF-+A-R9-9R629REZFDGDJCWXBVCX@JVA90+09RERFJBVCNWVN VX VB NCVCLGGDSJFJDGFDSQFUZAFSFDBDCWCVWCWVCPAR1R9436R9R2152-28942RUEREZEFDSDFDSDFDSDFDSDFDSQFQFDSQFOFPFZZYFD"; 12416 PSET(X,Y)GR$(0),7:FORI=1TO8 12417 PX=INT(40*RND):PY=INT(8*RND)+5:IFSCREEN(PX,PY)=0THEN GOTO12417 ELSE PSET(PX,PY)GR$(14),1:NEXT 12418 PRINTCHR$(15):GOSUB300:FORI=1TO10 12419 PX=INT(40*RND):PY=INT(8*RND)+5:IFSCREEN(PX,PY)=0 OR SCREEN(PX,PY+1)=32THEN GOTO 12419 ELSEPSET(PX,PY)GR$(13),3:NEXT:RETURN 12499 ' N.34 12500 CLS:COLOR2:PRINTCHR$(14):X=21:Y=10:G=2:PO=10 12501 FORI=1TO35:PX=INT(320*RND):PY=INT(24*RND):PSET(PX,PY),INT(8*RND):NEXT 12504 LOCATE0,5:PRINT" 777" 12505 PRINT" 777" 12506 PRINT" 777" 12507 PRINT" 77 7777" 12508 PRINT" W 7777 77 WW" 12509 PRINT" W 7 W" 12510 PRINT" WWWWWWWWWW 7 77 WWWWWWWWW" 12511 PRINT" W 7 7 7 W" 12512 PRINT" WW 7 77 WW" 12513 PRINT" 7" 12514 PRINT" 77" 12515 PRINT"KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKFFDDFGRD,CXVIZOHROHIOZIFDSDFEYY3524323EOKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK"; 12516 PSET(X,Y)GR$(0),7:FORI=1TO8 12517 PX=INT(40*RND):PY=INT(8*RND)+5:IFSCREEN(PX,PY)=0THEN GOTO12517 ELSE PSET(PX,PY)GR$(14),1:NEXT 12518 PRINTCHR$(15):GOSUB300:FORI=1TO10 12519 PX=INT(40*RND):PY=INT(8*RND)+5:IFSCREEN(PX,PY)=0 OR SCREEN(PX,PY+1)=32THEN GOTO 12519 ELSE PSET(PX,PY)GR$(13),3:NEXT:RETURN 20000 '-------------------------------- 20010 'I GAGNE I 20020 '-------------------------------- 20030 CLS:SCREEN2,0,0:ATTRB1,1 20040 LOCATE15,6:PRINTGR$(37)+GR$(38)+GR$(39)+GR$(40)+GR$(41) 20050 LOCATE15,8:PRINTGR$(42);:COLOR2,1:PRINTGR$(43);:COLOR3,2:PRINTGR$(13);:COLOR2,1:PRINTGR$(44);:COLOR2,0:PRINTGR$(45) 20060 LOCATE15,10:PRINTGR$(46);:COLOR2,1:PRINTGR$(47);:COLOR2,5:PRINTGR$(48);:COLOR2,1:PRINTGR$(49);:COLOR2,0:PRINTGR$(50) 20070 LOCATE15,12:PRINTGR$(51)+GR$(52)+GR$(53)+GR$(54)+GR$(55) 20080 LOCATE17,14:PRINTGR$(56)+GR$(57)+GR$(58) 20090 ATTRB0,1:LOCATE12,18:COLOR6: PRINT"VOUS AVEZ GAGNE.":GH$="123456789":GF$="12345" 20100 LOCATE8,22:COLOR7:PRINT"VOULEZ-VOUS REJOUER(O/N)?" 20200 LOCATE19,8:COLORINT(8*RND),2:ATTRB1,1:PRINTGR$(13):TRE=RND 20210 PLAY"T4L"+MID$(GH$,RND*8+1,1)+"MISOO"+MID$(GF$,RND*4+1,1)+"FA" 20300 A$=INKEY$:IF A$="O"THEN ATTRB0,0:SCREEN0:FORI=0TO2000:NEXT:CLS:GOTO12 20400 IF A$="N"THEN CLS:END 20500 GOTO20200