10 ! HEBDOGICIEL 112 , 113, 114 & 115
20 ! DE L'OR OU LA MORT
30 ! AUTEURS : PGM:HERPELDINGER Jean_Roch
40 ! LABY: CHARIOT Sylvain
230 CALL HROFF:CLS "GBB"
240 CALL POKE(50432,162,5,45,162,136,45,10,162,5,45,162,200,45,10)
420 !
450 CALL CHAR(55,"00C0E0E0F0F8FCFCFEFE")
460 CALL CHAR(50,"000307070F1F3F3F7F7F")
470 CALL CHAR(51,"7F7F3F3F1F0F07070300")
480 CALL CHAR(52,"FEFEFCFCF8F0E0E0C000")
490 CALL CHAR(53,"DFDFDFDF00FBFBFBFB00")
500 CALL CHAR(54,"FFFFFFFFFFFFFFFFFFFF")
510 CALL CHAR(49,"FFFFFFFFFFFFFFFFFFFF")
520 CALL CHAR(48,"00000000000000000000")
530 CALL CHAR(12,"00000010207C20100000")
960 !
991 DATA 152,79,10,120,11,10,121,0,9,251,10
992 ME=50688:RESTORE 991:FOR I=1 TO 11:READ VA:CALL POKE(ME,VA):ME=ME+1:NEXT I
993 CALL EXEC(50432):GOSUB 10000
998 DIM T$(17,4)
999 RESTORE 25000
1000 FOR I=1 TO 17:READ T$(I,1):READ T$(I,2):READ T$(I,3):READ T$(I,4):NEXT I
1001 A1$="077C312DD46D6F708213EC60072B58C10C66308211F4A0072D6841823E9316EAB637B"
1002 A2$="AD18D6E74A2139DE8443BDAD18E7634A319CD6846339AD18C6634A2118D68442D6A51"
1003 A3$="8B5AD4A21AD5A84635AA518D4A54A21295A844294AD1FF"
1005 GOSUB 5000
1010 X=16:Y=9:D=128:XX=X:YY=Y:E=1:EE=E
1025 CALL COLOR("0RB")
1030 FOR I=3 TO 9:LOCATE (I,27):PRINT CHR$(3)&" "&CHR$(3):NEXT I
1040 LOCATE (2,28):PRINT RPT$(CHR$(4),7)
1050 LOCATE (10,28):PRINT RPT$(CHR$(4),7)
1060 LOCATE (2,27):PRINT CHR$(9):LOCATE (2,35):PRINT CHR$(6)
1070 LOCATE (10,27):PRINT CHR$(8):LOCATE (10,35):PRINT CHR$(7)
1080 CALL COLOR("0RB")
1090 FOR I=18 TO 21:LOCATE (I,24)
1100 PRINT CHR$(3)&" "&CHR$(3)
1110 NEXT I
1120 LOCATE (18,24):PRINT CHR$(9)&RPT$(CHR$(4),15)&CHR$(6)
1130 LOCATE (21,24):PRINT CHR$(8)&RPT$(CHR$(4),15)&CHR$(7)
1140 LOCATE (20,25):CALL COLOR("0YB"):PRINT "DIRECTION"
1200 CALL COLOR("1BG")
1210 LOCATE (11,24):PRINT CHR$(94)&" :tout droit "
1220 LOCATE (12,24):PRINT CHR$(14)&" :demi-tour "
1230 LOCATE (13,24):PRINT CHR$(11)&" :vire a droite"
1240 LOCATE (14,24):PRINT CHR$(12)&" :vire a gauche"
1250 LOCATE (15,24):PRINT "# :suicide "
1260 CALL COLOR("0CHL"):FOR I=1 TO 8 STEP 2
1270 FOR II=0 TO 1
1280 LOCATE (I+II,24):PRINT CHR$(48+(I/2))&CHR$(48+(I/2))
1290 NEXT II:NEXT I:GOSUB 2500
1990 GOTO 2160
2020 !
2050 IF SEG$(T$(X,E),Y,1)="M" THEN E=E+1:GOSUB 2500:GOTO 2160
2052 IF SEG$(T$(X,E),Y,1)="D" THEN E=E-1:GOSUB 2500:GOTO 2160
2057 CALL KEY1(CC,SS):IF CC=255 THEN 2057
2059 IF CC=35 THEN 3000
2060 IF CC=128 THEN 2130
2070 IF CC=129 THEN D=D+1:IF D>131 THEN D=128:GOTO 2180 ELSE 2180
2080 IF CC=131 THEN D=D-1:IF D<128 THEN D=131:GOTO 2180 ELSE 2180
2085 CALL SPEECH("L,0D7C8BAABAB602FC")
2090 IF CC=130 AND D=128 THEN D=130:GOTO 15580
2100 IF CC=130 AND D=130 THEN D=128:GOTO 15040
2110 IF CC=130 AND D=131 THEN D=129:GOTO 15310
2120 IF CC=130 AND D=129 THEN D=131:GOTO 15850
2125 GOTO 2057
2130 !
2140 YY=YY-(D=129)+(D=131)
2150 XX=XX-(D=130)+(D=128)
2155 IF SEG$(T$(XX,E),YY,1)="S" THEN 7000
2160 IF SEG$(T$(XX,E),YY,1)="1" THEN XX=X:YY=Y:SS=0:GOTO 2050
2170 X=XX:Y=YY:CALL COLOR("1bB"):CALL SPEECH("L,0D7C91B2BAB602FC")
2171 IF RADA=0 THEN 2180 ELSE Y1=Y:T=3:FOR I=(X-3)TO (X+3)
2172 IF I<1 OR I>17 THEN LOCATE (T,28):PRINT "0000000":GOTO 2179
2173 IF Y1<4 THEN AFF$=RPT$(" ",4-Y1)&SEG$(T$(I,E),1,3+Y1):GOTO 2178
2175 AF$=SEG$(T$(I,E),Y-3,7)
2177 AFF$=AF$&RPT$(" ",7-LEN(AF$))
2178 LOCATE (T,28):PRINT AFF$
2179 T=T+1:NEXT I:CALL COLOR("1YB"):LOCATE (6,31):PRINT "*"
2180 IF D=128 THEN 15040
2190 IF D=129 THEN 15310
2200 IF D=130 THEN 15580
2210 IF D=131 THEN 15850
2220 GOTO 2050
2500 !
2510 CALL COLOR("0CHL")
2520 IF EE<>1 THEN 2540
2530 LOCATE (1,24):PRINT "11":LOCATE (2,24):PRINT "11":GOTO 2590
2540 IF EE<>2 THEN 2560
2550 LOCATE (3,24):PRINT "22":LOCATE (4,24):PRINT "22":GOTO 2590
2560 IF EE<>3 THEN 2580
2570 LOCATE (5,24):PRINT "33":LOCATE (6,24):PRINT "33":GOTO 2590
2580 LOCATE (7,24):PRINT "44":LOCATE (8,24):PRINT "44"
2590 CALL COLOR("0bHLF"):EE=E
2600 IF E<>1 THEN 2620
2610 LOCATE (1,24):PRINT "11":LOCATE (2,24):PRINT "11":RETURN
2620 IF E<>2 THEN 2640
2630 LOCATE (3,24):PRINT "22":LOCATE (4,24):PRINT "22":RETURN
2640 IF E<>3 THEN 2660
2650 LOCATE (5,24):PRINT "33":LOCATE (6,24):PRINT "33":RETURN
2660 LOCATE (7,24):PRINT "44":LOCATE (8,24):PRINT "44":RETURN
3000 !
3020 !
3050 CALL COLOR("0BB"):FOR I=1 TO 22:LOCATE (I,1):PRINT RPT$(" ",22):NEXT I
3060 CALL COLOR("0CB"):LOCATE (2,4):PRINT "Bien sur ,vous avez":LOCATE (3,1)
3070 PRINT "choisi la solution la":LOCATE (4,1):PRINT "plus facile en vous"
3080 CALL COLOR("0RB"):LOCATE (5,8):PRINT "ELIMINANT":LOCATE (8,4)
3085 CALL COLOR("0CB")
3090 PRINT "Et que vos voeux":LOCATE (9,1):PRINT "soient exhausses et"
3100 LOCATE (10,1):PRINT "que votre ame repose":LOCATE (11,1):PRINT "en paix..."
3110 PAUSE 3:CALL EXEC(50688)
3120 LOCATE (14,4):PRINT "Mais je suis pret":LOCATE (15,1)
3130 PRINT "a vous preter une vie:":LOCATE (18,3):CALL COLOR("0bB")
3140 PRINT "VOULEZ-VOUS REJOUER":LOCATE (20,9):PRINT "(O/N)"
3145 LOCATE (21,9):PRINT "(1/0)"
3150 REP$=KEY$
3160 IF REP$="N"OR REP$="0" THEN CLS "BCC":CALL EXEC(50439):END
3170 IF REP$<>"O"AND REP$<>"1" THEN 3150 ELSE RUN 998
4999 END
5000 !
5020 !
5050 CLS "GBB"
5060 GOSUB 20130:GOSUB 20520:GOSUB 21710:GOSUB 22250:GOSUB 22930
5070 CALL COLOR("0bHL"):LOCATE (1,29)
5080 PRINT "JJ--RR"
5090 LOCATE (2,29):PRINT "JJ--RR"
5100 CALL COLOR("0WBL")
5110 LOCATE (3,23):PRINT "LLOOGGIICCIIEELLSS"
5120 CALL COLOR("0RB")
5130 LOCATE (5,28):PRINT "PRESENTE"
5140 CALL COLOR("0bL")
5150 LOCATE (9,25):PRINT "DDEE LL''00RR"
5160 LOCATE (11,30):CALL COLOR("0WHL")
5170 PRINT "OOUU":LOCATE (12,30):PRINT "OOUU"
5180 CALL COLOR("0RLH")
5190 LOCATE (14,25):PRINT "LLAA MMOORRTT":LOCATE (15,25):PRINT "LLAA MMOORRTT"
5200 CALL COLOR("0BW")
5210 LOCATE (17,23):PRINT "LABYRINTHE INVENTE"
5220 LOCATE (18,29):PRINT " PAR "
5230 LOCATE (19,23):PRINT " CHARIOT Sylvain "
5240 CALL COLOR("0CB")
5245 FOR I=1 TO 4:CALL SPEECH("L,"&A1$&A2$&A3$):PAUSE 2:NEXT I
5250 LOCATE (21,23):PRINT "VOULEZ-VOUS LES"
5260 LOCATE (22,23):PRINT "REGLES DU JEU ?"
5270 REP$=KEY$
5280 IF REP$="N"OR REP$="0" THEN CLS "GBB":GOTO 5450
5290 IF REP$<>"O"AND REP$<>"1" THEN 5270
5300 CLS:CALL COLOR("0CH"):LOCATE (1,12):PRINT "LE DROIT DE MOURIR"
5310 LOCATE (2,12):PRINT "LE DROIT DE MOURIR":CALL COLOR("0MB"):PRINT
5320 PRINT " Vous avez ete selectionne pour par-"
5330 PRINT "ticiper a un jeu televise.":PRINT
5340 PRINT " Vous etes lache dans un labyrinthe"
5350 PRINT "et votre seule chance de survie est de"
5360 PRINT "trouver la sortie.Sinon vous devrez er-"
5370 PRINT "rer dans ce dedale infernal jusqu'au mo-"
5380 PRINT "ment ou vous en aurez assez et vous vous"
5390 PRINT "suiciderez":PRINT
5400 PRINT " Mais si vous trouvez la sortie,vous"
5410 PRINT "recevrez une telle somme d'argent que"
5420 PRINT "vous n'aurez plus a travailler jusqu'a"
5430 PRINT "la fin de votre vie."
5440 LOCATE (21,1):PRINT "--- PRESSEZ UNE TOUCHE POUR LA SUITE ---":RE$=KEY$
5450 CLS
5460 CALL COLOR("0YHL"):LOCATE (3,13):PRINT "OOPPTTIIOONNSS::"
5470 CALL COLOR("0GHL"):LOCATE (4,13):PRINT "OOPPTTIIOONNSS::"
5480 CALL COLOR("0WL"):LOCATE (5,13):PRINT "----------------"
5490 CALL COLOR("0CB"):LOCATE (7,14):PRINT "(1=OUI--0=NON)"
5500 CALL COLOR("0bB"):LOCATE (9,4)
5510 PRINT "*RADAR:permet de voir par dessus les"
5515 PRINT "murs sur une courte distance."
5520 RAD$=KEY$:IF RAD$<>"1"AND RAD$<>"0" THEN 5520
5530 RADA=VAL(RAD$):IF RAD$="0" THEN 5600
5540 CALL COLOR("0CB"):LOCATE (12,1)
5550 PRINT " *VISUALISATION des descentes et des montees sur le radar."
5560 VIS$=KEY$:IF VIS$<>"1"AND VIS$<>"0" THEN 5560
5570 IF VIS$="1" THEN 5590
5580 CALL CHAR(77,RPT$("0",20)):CALL CHAR(68,RPT$("0",20)):GOTO 5600
5590 CALL CHAR(77,"0042667E7A7272727200"):CALL CHAR(68,"00787C767676767C7800")
5600 CALL COLOR("0RBF"):LOCATE (16,4):PRINT "ATTENTION";:CALL COLOR("1MB")
5610 LOCATE (16,13)
5620 PRINT ":les montees(M) et les des-"
5625 PRINT "centes(D) ne peuvent etre prises que"
5635 PRINT "dans un seul sens."
5640 CALL COLOR("0YL"):LOCATE (20,10):PRINT "BBOONN CCOOUURRAAGGEE"
5650 CALL COLOR("0BW"):LOCATE (22,11):PRINT " PRESSEZ UNE TOUCHE ":RE$=KEY$
5660 CLS:RETURN
7000 !
7020 !
7050 CLS:CALL COLOR("0WHL"):LOCATE (2,4):PRINT "BBRRAAVVOO !!"
7060 LOCATE (3,4):PRINT "BBRRAAVVOO !!"
7070 LOCATE (6,4):CALL COLOR("0RB")
7080 PRINT "Vous avez enfin trouver la sortie."
7090 PRINT:PRINT "Et vous vous empochez une belle somme":PRINT
7100 PRINT "d'argent.":PRINT:PRINT
7110 PRINT " Voulez-vous encore gagner de l'argent ?":PRINT
7120 PRINT " 1=0UI 0=NON"
7130 REP$=KEY$:IF REP$<>"1"AND REP$<>"0" THEN 7130
7140 IF REP$="1" THEN RUN 998
7150 CALL EXEC(50439):CLS "BCC":END
9999 END
10000 !
10020 !
10050 BRU$="0580DA1D0142B92D208A8C056499B680A4CC265080682A1210757902A2C90840D1"
10060 GOSUB 10200
10070 BRU$="190148DA230049653A20590F03449561806CD21550AC8502B2F15440B6EE02882E"
10080 GOSUB 10200
10090 BRU$="4300C9650A20790F064493C980643D0910933270152F02440F49E1440408C1E008"
10100 GOSUB 10200
10110 BRU$="D10201317A20204B7704F8948980983410105D0602A2B34440F49E080821030121"
10120 BRU$=BRU$&"BA03FC":GOSUB 10200:RETURN
10200 BRU=LEN(BRU$)
10210 FOR I=1 TO BRU STEP 2:RES=0
10220 SR$=SEG$(BRU$,I,1)
10230 IF NUMERIC(SR$)=-1 THEN SR=VAL(SR$) ELSE GOSUB 10280
10240 RES=SR*16:J=I+1
10250 SR$=SEG$(BRU$,J,1)
10260 IF NUMERIC(SR$)=-1 THEN SR=VAL(SR$) ELSE GOSUB 10280
10270 RES=RES+SR:CALL POKE(ME,RES):ME=ME+1:NEXT I:RETURN
10280 IF SR$="A" THEN SR=10:RETURN
10290 IF SR$="B" THEN SR=11:RETURN
10300 IF SR$="C" THEN SR=12:RETURN
10310 IF SR$="D" THEN SR=13:RETURN
10320 IF SR$="E" THEN SR=14:RETURN
10330 IF SR$="F" THEN SR=15:RETURN
15020 !
15040 !
15041 CALL COLOR("0WHF"):LOCATE (19,35):PRINT " NORD"
15042 LOCATE (20,35):PRINT " NORD"
15043 CALL CHAR(42,"0000183C5A9918180000")
15045 FOR I=1 TO 22:LOCATE (I,1):PRINT " ":NEXT I
15050 T1$=SEG$(T$(X,E),Y-1,3)
15060 IF T1$="101"OR T1$="1M1"OR T1$="1D1" THEN GOSUB 20390:GOTO 15100
15070 IF T1$="001"OR T1$="M01"OR T1$="D01" THEN GOSUB 20000:GOTO 15100
15080 IF T1$="100"OR T1$="10M"OR T1$="10D" THEN GOSUB 20130:GOTO 15100
15090 IF SEG$(T1$,1,1)<>"1"AND SEG$(T1$,3,3)<>"1" THEN GOSUB 20260
15100 IF SEG$(T$(X-1,E),Y,1)="1" THEN GOSUB 21460:GOTO 2050
15110 T2$=SEG$(T$(X-1,E),Y-1,3)
15120 IF T2$="001"OR T2$="M01"OR T2$="D01" THEN GOSUB 20520:GOTO 15160
15130 IF T2$="100"OR T2$="10M"OR T2$="10D" THEN GOSUB 20770:GOTO 15160
15140 IF SEG$(T2$,1,1)<>"1"AND SEG$(T2$,3,1)<>"1" THEN GOSUB 21020:GOTO 15160
15150 IF T2$="101"OR T2$="1M1"OR T2$="1D1" THEN GOSUB 21200
15160 IF T2$="1M1" THEN GOSUB 23000
15162 IF T2$="1D1" THEN GOSUB 23070
15165 IF SEG$(T$(X-2,E),Y,1)="1" THEN GOSUB 22170:GOTO 2050
15170 T3$=SEG$(T$(X-2,E),Y-1,3)
15180 IF T3$="001"OR T3$="M01"OR T3$="D01" THEN GOSUB 21550:GOTO 15220
15190 IF T3$="100"OR T3$="10M"OR T3$="10D" THEN GOSUB 21710:GOTO 15220
15205 IF SEG$(T3$,1,1)<>"1"AND SEG$(T3$,3,1)<>"1" THEN GOSUB 21870:GOTO 15220
15210 IF T3$="101"OR T3$="1M1"OR T3$="1D1" THEN GOSUB 22010
15220 IF T3$="1M1" THEN GOSUB 23140
15222 IF T3$="1D1" THEN GOSUB 23200
15225 IF SEG$(T$(X-3,E),Y,1)="1" THEN GOSUB 22770:GOTO 2050
15230 T4$=SEG$(T$(X-3,E),Y-1,3)
15240 IF T4$="001"OR T4$="M01"OR T4$="D01" THEN GOSUB 22250:GOTO 15280
15250 IF T4$="100"OR T4$="10M"OR T4$="10D" THEN GOSUB 22380:GOTO 15280
15260 IF SEG$(T4$,1,1)<>"1"AND SEG$(T4$,3,1)<>"1" THEN GOSUB 22510:GOTO 15280
15270 IF T4$="101"OR T4$="1M1"OR T4$="1D1" THEN GOSUB 22640
15280 IF T4$="1M1" THEN GOSUB 23290
15282 IF T4$="1D1" THEN GOSUB 23310
15285 T5$=SEG$(T$(X-4,E),Y,1)
15290 IF T5$="1" THEN GOSUB 22850:GOTO 2050
15300 IF T5$<>"1" THEN GOSUB 22930:GOTO 2050
15310 !
15311 CALL COLOR("0WHF"):LOCATE (19,35):PRINT " EST"
15312 LOCATE (20,35):PRINT " EST"
15313 CALL CHAR(42,"001008047E7E04081000")
15315 FOR I=1 TO 22:LOCATE (I,1):PRINT " ":NEXT I
15320 T1$=SEG$(T$(X-1,E),Y,1)&SEG$(T$(X,E),Y,1)&SEG$(T$(X+1,E),Y,1)
15330 IF T1$="001"OR T1$="M01"OR T1$="D01" THEN GOSUB 20000:GOTO 15370
15340 IF T1$="100"OR T1$="10M"OR T1$="10D" THEN GOSUB 20130:GOTO 15370
15350 IF SEG$(T1$,1,1)<>"1"AND SEG$(T1$,3,1)<>"1" THEN GOSUB 20260:GOTO 15370
15360 IF T1$="101"OR T1$="1M1"OR T1$="1D1" THEN GOSUB 20390
15370 IF SEG$(T$(X,E),Y+1,1)="1" THEN GOSUB 21460:GOTO 2050
15380 T2$=SEG$(T$(X-1,E),Y+1,1)&SEG$(T$(X,E),Y+1,1)&SEG$(T$(X+1,E),Y+1,1)
15390 IF T2$="001"OR T2$="M01"OR T2$="D01" THEN GOSUB 20520:GOTO 15430
15400 IF T2$="100"OR T2$="10M"OR T2$="10D" THEN GOSUB 20770:GOTO 15430
15410 IF SEG$(T2$,1,1)<>"1"AND SEG$(T2$,3,1)<>"1" THEN GOSUB 21020:GOTO 15430
15420 IF T2$="101"OR T2$="1M1"OR T2$="1D1" THEN GOSUB 21200
15430 IF T2$="1M1" THEN GOSUB 23000
15432 IF T2$="1D1" THEN GOSUB 23070
15435 IF SEG$(T$(X,E),Y+2,1)="1" THEN GOSUB 22170:GOTO 2050
15440 T3$=SEG$(T$(X-1,E),Y+2,1)&SEG$(T$(X,E),Y+2,1)&SEG$(T$(X+1,E),Y+2,1)
15450 IF T3$="001"OR T3$="M01"OR T3$="D01" THEN GOSUB 21550:GOTO 15490
15460 IF T3$="100"OR T3$="10M"OR T3$="10D" THEN GOSUB 21710:GOTO 15490
15470 IF SEG$(T3$,1,1)<>"1"AND SEG$(T3$,3,1)<>"1" THEN GOSUB 21870:GOTO 15490
15480 IF T3$="101"OR T3$="1M1"OR T3$="1D1" THEN GOSUB 22010
15490 IF T3$="1M1" THEN GOSUB 23140
15492 IF T3$="1D1" THEN GOSUB 23200
15495 IF SEG$(T$(X,E),Y+3,1)="1" THEN GOSUB 22770:GOTO 2050
15500 T4$=SEG$(T$(X-1,E),Y+3,1)&SEG$(T$(X,E),Y+3,1)&SEG$(T$(X+1,E),Y+3,1)
15510 IF T4$="001"OR T4$="M01"OR T4$="D01" THEN GOSUB 22250:GOTO 15550
15520 IF T4$="100"OR T4$="10M"OR T4$="10D" THEN GOSUB 22380:GOTO 15550
15530 IF SEG$(T4$,1,1)<>"1"AND SEG$(T4$,3,1)<>"1" THEN GOSUB 22510:GOTO 15550
15540 IF T4$="101"OR T4$="1M1"OR T4$="1D1" THEN GOSUB 22640
15550 IF T4$="1M1" THEN GOSUB 23290
15552 IF T4$="1D1" THEN GOSUB 23310
15555 T5$=SEG$(T$(X,E),Y+4,1)
15560 IF T5$="1" THEN GOSUB 22850:GOTO 2050
15570 IF T5$<>"1" THEN GOSUB 22390:GOTO 2050
15580 !
15581 CALL COLOR("0WHF"):LOCATE (19,35):PRINT " SUD"
15582 LOCATE (20,35):PRINT " SUD"
15583 CALL CHAR(42,"00001818995A3C180000")
15585 FOR I=1 TO 22:LOCATE (I,1):PRINT " ":NEXT I
15590 T1$=SEG$(T$(X,E),Y-1,3)
15600 IF T1$="101"OR T1$="1M1"OR T1$="1D1" THEN GOSUB 20390:GOTO 15640
15610 IF T1$="100"OR T1$="10M"OR T1$="10D" THEN GOSUB 20000:GOTO 15640
15620 IF T1$="001"OR T1$="M01"OR T1$="DO1" THEN GOSUB 20130:GOTO 15640
15630 IF SEG$(T1$,1,1)<>"1"AND SEG$(T1$,3,1)<>"1" THEN GOSUB 20260
15640 IF SEG$(T$(X+1,E),Y,1)="1" THEN GOSUB 21460:GOTO 2050
15650 T2$=SEG$(T$(X+1,E),Y-1,3)
15660 IF T2$="100"OR T2$="10M"OR T2$="10D" THEN GOSUB 20520:GOTO 15700
15670 IF T2$="001"OR T2$="M01"OR T2$="D01" THEN GOSUB 20770:GOTO 15700
15680 IF SEG$(T2$,1,1)<>"1"AND SEG$(T2$,3,1)<>"1" THEN GOSUB 21020:GOTO 15700
15690 IF T2$="101"OR T2$="1M1"OR T2$="1D1" THEN GOSUB 21200
15700 IF T2$="1M1" THEN GOSUB 23000
15702 IF T2$="1D1" THEN GOSUB 23070
15705 IF SEG$(T$(X+2,E),Y,1)="1" THEN GOSUB 22170:GOTO 2050
15710 T3$=SEG$(T$(X+2,E),Y-1,3)
15720 IF T3$="100"OR T3$="10M"OR T3$="10D" THEN GOSUB 21550:GOTO 15760
15730 IF T3$="001"OR T3$="M01"OR T3$="DO1" THEN GOSUB 21710:GOTO 15760
15740 IF SEG$(T3$,1,1)<>"1"AND SEG$(T3$,3,1)<>"1" THEN GOSUB 21870:GOTO 15760
15750 IF T3$="101"OR T3$="1M1"OR T3$="1D1" THEN GOSUB 22010
15760 IF T3$="1M1" THEN GOSUB 23140
15762 IF T3$="1D1" THEN GOSUB 23200
15765 IF SEG$(T$(X+3,E),Y,1)="1" THEN GOSUB 22770:GOTO 2050
15770 T4$=SEG$(T$(X+3,E),Y-1,3)
15780 IF T4$="100"OR T4$="10M"OR T4$="10D" THEN GOSUB 22250:GOTO 15820
15790 IF T4$="001"OR T4$="M01"OR T4$="D01" THEN GOSUB 22380:GOTO 15820
15800 IF SEG$(T4$,1,1)<>"1"AND SEG$(T4$,3,1)<>"1" THEN GOSUB 22510:GOTO 15820
15810 IF T4$="101"OR T4$="1M1"OR T4$="1D1" THEN GOSUB 22640
15820 IF T4$="1M1" THEN GOSUB 23290
15822 IF T4$="1D1" THEN GOSUB 23310
15825 T5$=SEG$(T$(X+4,E),Y,1)
15830 IF T5$="1" THEN GOSUB 22850:GOTO 2050
15840 IF T5$<>"1" THEN GOSUB 22930:GOTO 2050
15850 !
15851 CALL COLOR("0WHF"):LOCATE (19,35):PRINT "OUEST"
15852 LOCATE (20,35):PRINT "OUEST"
15853 CALL CHAR(42,"000810207E7E20100800")
15855 FOR I=1 TO 22:LOCATE (I,1):PRINT " ":NEXT I
15860 T1$=SEG$(T$(X-1,E),Y,1)&SEG$(T$(X,E),Y,1)&SEG$(T$(X+1,E),Y,1)
15870 IF T1$="100"OR T1$="10M"OR T1$="10D" THEN GOSUB 20000:GOTO 15910
15880 IF T1$="001"OR T1$="M01"OR T1$="D01" THEN GOSUB 20130:GOTO 15910
15890 IF SEG$(T1$,1,1)<>"1"AND SEG$(T1$,3,1)<>"1" THEN GOSUB 20260:GOTO 15910
15900 IF T1$="101"OR T1$="1M1"OR T1$="1D1" THEN GOSUB 20390
15910 IF SEG$(T$(X,E),Y-1,1)="1" THEN GOSUB 21460:GOTO 2050
15920 T2$=SEG$(T$(X-1,E),Y-1,1)&SEG$(T$(X,E),Y-1,1)&SEG$(T$(X+1,E),Y-1,1)
15930 IF T2$="100"OR T2$="10M"OR T2$="10D" THEN GOSUB 20520:GOTO 15970
15940 IF T2$="001"OR T2$="M01"OR T2$="D01" THEN GOSUB 20770:GOTO 15970
15950 IF SEG$(T2$,1,1)<>"1"AND SEG$(T2$,3,1)<>"1" THEN GOSUB 21020:GOTO 15970
15960 IF T2$="101"OR T2$="1M1"OR T2$="1D1" THEN GOSUB 21200
15970 IF T2$="1M1" THEN GOSUB 23000
15972 IF T2$="1D1" THEN GOSUB 23070
15975 IF SEG$(T$(X,E),Y-2,1)="1" THEN GOSUB 22170:GOTO 2050
15980 T3$=SEG$(T$(X-1,E),Y-2,1)&SEG$(T$(X,E),Y-2,1)&SEG$(T$(X+1,E),Y-2,1)
15990 IF T3$="100"OR T3$="10M"OR T3$="10D" THEN GOSUB 21550:GOTO 16030
16000 IF T3$="001"OR T3$="M01"OR T3$="D01" THEN GOSUB 21710:GOTO 16030
16010 IF SEG$(T3$,1,1)<>"1"AND SEG$(T3$,3,1)<>"1" THEN GOSUB 21870:GOTO 16030
16020 IF T3$="101"OR T3$="1M1"OR T3$="1D1" THEN GOSUB 22010
16030 IF T3$="1M1" THEN GOSUB 23140
16032 IF T3$="1D1" THEN GOSUB 23200
16035 IF SEG$(T$(X,E),Y-3,1)="1" THEN GOSUB 22770:GOTO 2050
16040 T4$=SEG$(T$(X-1,E),Y-3,1)&SEG$(T$(X,E),Y-3,1)&SEG$(T$(X+1,E),Y-3,1)
16050 IF T4$="100"OR T4$="10M"OR T4$="10D" THEN GOSUB 22250:GOTO 16090
16060 IF T4$="001"OR T4$="M01"OR T4$="D01" THEN GOSUB 22380:GOTO 16090
16070 IF SEG$(T4$,1,1)<>"1"AND SEG$(T4$,3,1)<>"1" THEN GOSUB 22510:GOTO 16090
16080 IF T4$="101"OR T4$="1M1"OR T4$="1D1" THEN GOSUB 22640
16090 IF T4$="1M1" THEN GOSUB 23290
16092 IF T4$="1D1" THEN GOSUB 23310
16095 T5$=SEG$(T$(X,E),Y-4,1)
16100 IF T5$="1" THEN GOSUB 22850:GOTO 2050
16110 IF T5$<>"1" THEN GOSUB 22930:GOTO 2050
16120 GOTO 2050
19999 END
20000 !
20010 !
20030 CALL COLOR("1MC")
20040 LOCATE (1,1)
20050 PRINT " 2"
20060 CALL COLOR("1Mb")
20070 FOR I=2 TO 21
20080 LOCATE (I,1):PRINT "5"
20090 LOCATE (I,22):PRINT "6":NEXT I
20100 CALL COLOR("1MB"):LOCATE (22,1)
20110 PRINT " 3"
20120 RETURN
20130 !
20140 !
20160 CALL COLOR("1MC")
20170 LOCATE (1,1)
20180 PRINT "7 "
20190 CALL COLOR("1Mb")
20200 FOR I=2 TO 21
20210 LOCATE (I,1):PRINT "6"
20220 LOCATE (I,22):PRINT "5":NEXT I
20230 CALL COLOR("1MB"):LOCATE (22,1)
20240 PRINT "4 "
20250 RETURN
20260 !
20270 !
20290 CALL COLOR("1MC")
20300 LOCATE (1,1)
20310 PRINT " "
20320 CALL COLOR("1Mb")
20330 FOR I=2 TO 21
20340 LOCATE (I,1):PRINT "5"
20350 LOCATE (I,22):PRINT "5":NEXT I
20360 CALL COLOR("1MB"):LOCATE (22,1)
20370 PRINT " "
20380 RETURN
20390 !
20400 !
20420 CALL COLOR("1MC")
20430 LOCATE (1,1)
20440 PRINT "7 2"
20450 CALL COLOR("1Mb")
20460 FOR I=2 TO 21
20470 LOCATE (I,1):PRINT "6"
20480 LOCATE (I,22):PRINT "6":NEXT I
20490 CALL COLOR("1MB")
20495 LOCATE (22,1)
20500 PRINT "4 3"
20510 RETURN
20520 !
20530 !
20550 CALL COLOR("1MC")
20560 LOCATE (2,2)
20570 PRINT " 2"
20580 LOCATE (3,2)
20590 PRINT " 26"
20600 LOCATE (4,2)
20610 PRINT " 266"
20620 LOCATE (5,2)
20630 PRINT " 2666"
20640 CALL COLOR("1Mb")
20650 FOR I=6 TO 17
20660 LOCATE (I,2):PRINT "5555"
20670 LOCATE (I,18):PRINT "6666":NEXT I
20680 CALL COLOR("1MB"):LOCATE (18,2)
20690 PRINT " 3666"
20700 LOCATE (19,2)
20710 PRINT " 366"
20720 LOCATE (20,2)
20730 PRINT " 36"
20740 LOCATE (21,2)
20750 PRINT " 3"
20760 RETURN
20770 !
20780 !
20800 CALL COLOR("1MC")
20810 LOCATE (2,2)
20820 PRINT "7 "
20830 LOCATE (3,2)
20840 PRINT "67 "
20850 LOCATE (4,2)
20860 PRINT "667 "
20870 LOCATE (5,2)
20880 PRINT "6667 "
20890 CALL COLOR("1Mb")
20900 FOR I=6 TO 17
20910 LOCATE (I,2):PRINT "6666"
20920 LOCATE (I,18):PRINT "5555":NEXT I
20930 CALL COLOR("1MB"):LOCATE (18,2)
20940 PRINT "6664 "
20950 LOCATE (19,2)
20960 PRINT "664 "
20970 LOCATE (20,2)
20980 PRINT "64 "
20990 LOCATE (21,2)
21000 PRINT " "
21010 RETURN
21020 !
21030 !
21040 YY=YY-(D=129)+(D=131)
21050 CALL COLOR("1MC")
21060 FOR I=2 TO 5
21070 LOCATE (I,2)
21080 PRINT " "
21090 NEXT I
21100 CALL COLOR("1Mb")
21110 FOR I=6 TO 17
21120 LOCATE (I,2):PRINT "5555"
21130 LOCATE (I,18):PRINT "5555":NEXT I
21140 CALL COLOR("1MB")
21150 FOR I=18 TO 21
21160 LOCATE (I,2)
21170 PRINT " "
21180 NEXT I
21190 RETURN
21200 !
21210 !
21230 CALL COLOR("1MC")
21240 LOCATE (2,2)
21250 PRINT "7 2"
21260 LOCATE (3,2)
21270 PRINT "67 26"
21280 LOCATE (4,2)
21290 PRINT "667 266"
21300 LOCATE (5,2)
21310 PRINT "6667 2666"
21320 CALL COLOR("1Mb")
21330 FOR I=6 TO 17
21340 LOCATE (I,2):PRINT "6666"
21350 LOCATE (I,18):PRINT "6666":NEXT I
21360 CALL COLOR("1MB")
21370 LOCATE (18,2)
21380 PRINT "6664 3666"
21390 LOCATE (19,2)
21400 PRINT "664 366"
21410 LOCATE (20,2)
21420 PRINT "64 36"
21430 LOCATE (21,2)
21440 PRINT "4 3"
21450 RETURN
21460 !
21470 !
21490 CALL COLOR("1Mb")
21500 FOR I=2 TO 21
21510 LOCATE (I,2)
21520 PRINT "55555555555555555555"
21530 NEXT I
21540 RETURN
21550 !
21560 !
21580 CALL COLOR("1MC")
21590 LOCATE (6,6):PRINT " 2"
21600 LOCATE (7,6):PRINT " 26"
21610 LOCATE (8,6):PRINT " 266"
21620 CALL COLOR("1Mb")
21630 FOR I=9 TO 14
21640 LOCATE (I,6):PRINT "555"
21650 LOCATE (I,15):PRINT "666":NEXT I
21660 CALL COLOR("1MB")
21670 LOCATE (15,6):PRINT " 366"
21680 LOCATE (16,6):PRINT " 36"
21690 LOCATE (17,6):PRINT " 3"
21700 RETURN
21710 !
21720 !
21740 CALL COLOR("1MC")
21750 LOCATE (6,6):PRINT "7 "
21760 LOCATE (7,6):PRINT "67 "
21770 LOCATE (8,6):PRINT "667 "
21780 CALL COLOR("1Mb")
21790 FOR I=9 TO 14
21800 LOCATE (I,6):PRINT "666"
21810 LOCATE (I,15):PRINT "555":NEXT I
21820 CALL COLOR("1MB")
21830 LOCATE (15,6):PRINT "664 "
21840 LOCATE (16,6):PRINT "64 "
21850 LOCATE (17,6):PRINT "4 "
21860 RETURN
21870 !
21880 !
21900 CALL COLOR("1MC")
21910 FOR I=6 TO 8:LOCATE (I,6)
21920 PRINT " ":NEXT I
21930 CALL COLOR("1Mb")
21940 FOR I=9 TO 14
21950 LOCATE (I,6):PRINT "555"
21960 LOCATE (I,15):PRINT "555":NEXT I
21970 CALL COLOR("1MB")
21980 FOR I=15 TO 17:LOCATE (I,6)
21990 PRINT " ":NEXT I
22000 RETURN
22010 !
22020 !
22040 CALL COLOR("1MC")
22050 LOCATE (6,6):PRINT "7 2"
22060 LOCATE (7,6):PRINT "67 26"
22070 LOCATE (8,6):PRINT "667 266"
22080 CALL COLOR("1Mb")
22090 FOR I=9 TO 14
22100 LOCATE (I,6):PRINT "666"
22110 LOCATE (I,15):PRINT "666":NEXT I
22120 CALL COLOR("1MB")
22130 LOCATE (15,6):PRINT "664 366"
22140 LOCATE (16,6):PRINT "64 36"
22150 LOCATE (17,6):PRINT "4 3"
22160 RETURN
22170 !
22180 !
22200 CALL COLOR("1Mb")
22210 FOR I=6 TO 17
22220 LOCATE (I,6):PRINT "555555555555"
22230 NEXT I
22240 RETURN
22250 !
22260 !
22280 CALL COLOR("1MC")
22290 LOCATE (9,9):PRINT " 2"
22300 LOCATE (10,9):PRINT " 26"
22310 CALL COLOR("1Mb")
22320 LOCATE (11,9):PRINT "55 66"
22330 LOCATE (12,9):PRINT "55 66"
22340 CALL COLOR("1MB")
22350 LOCATE (13,9):PRINT " 36"
22360 LOCATE (14,9):PRINT " 3"
22370 RETURN
22380 !
22390 !
22410 CALL COLOR("1MC")
22420 LOCATE (9,9):PRINT "7 "
22430 LOCATE (10,9):PRINT "67 "
22440 CALL COLOR("1Mb")
22450 LOCATE (11,9):PRINT "66 55"
22460 LOCATE (12,9):PRINT "66 55"
22470 CALL COLOR("1MB")
22480 LOCATE (13,9):PRINT "64 "
22490 LOCATE (14,9):PRINT "4 "
22500 RETURN
22510 !
22520 !
22540 CALL COLOR("1MC")
22550 LOCATE (9,9):PRINT " "
22560 LOCATE (10,9):PRINT " "
22570 CALL COLOR("1Mb")
22580 LOCATE (11,9):PRINT "55 55"
22590 LOCATE (12,9):PRINT "55 55"
22600 CALL COLOR("1MB")
22610 LOCATE (13,9):PRINT " "
22620 LOCATE (14,9):PRINT " "
22630 RETURN
22640 !
22650 !
22670 CALL COLOR("1MC")
22680 LOCATE (9,9):PRINT "7 2"
22690 LOCATE (10,9):PRINT "67 26"
22700 CALL COLOR("1Mb")
22710 LOCATE (11,9):PRINT "66 66"
22720 LOCATE (12,9):PRINT "66 66"
22730 CALL COLOR("1MB")
22740 LOCATE (13,9):PRINT "64 36"
22750 LOCATE (14,9):PRINT "4 3"
22760 RETURN
22770 !
22780 !
22800 CALL COLOR("1Mb")
22810 FOR I=9 TO 14
22820 LOCATE (I,9):PRINT "555555"
22830 NEXT I
22840 RETURN
22850 !
22860 !
22880 CALL COLOR("1Mb")
22890 LOCATE (11,11):PRINT "55"
22900 LOCATE (12,11):PRINT "55"
22910 RETURN
22930 !
22950 CALL COLOR("1MC")
22960 LOCATE (11,11):PRINT "72"
22970 CALL COLOR("1MB")
22980 LOCATE (12,11):PRINT "43"
22990 RETURN
23000 !
23010 !
23030 CALL COLOR("1RC")
23040 LOCATE (3,5):PRINT "31111111111114"
23050 LOCATE (4,6):PRINT "311111111114"
23060 LOCATE (5,7):PRINT "3111111114":RETURN
23070 !
23080 !
23100 CALL COLOR("1bB")
23110 LOCATE (18,7):PRINT "2111111117"
23120 LOCATE (19,6):PRINT "211111111117"
23130 LOCATE (20,5):PRINT "21111111111117":RETURN
23140 !
23150 !
23170 CALL COLOR("1RC")
23180 LOCATE (7,9):PRINT "311114"
23190 LOCATE (8,10):PRINT "3114":RETURN
23200 !
23210 !
23230 CALL COLOR("1bB")
23240 LOCATE (15,10):PRINT "2117"
23250 LOCATE (16,9):PRINT "211117":RETURN
23260 !
23270 !
23290 CALL COLOR("1RC")
23300 LOCATE (10,11):PRINT "34":RETURN
23310 !
23320 !
23340 CALL COLOR("1bB")
23350 LOCATE (13,11):PRINT "27":RETURN
25000 DATA 11111111111111111,11111111111111111
25010 DATA 11111111111111111,11111111111111111
25020 DATA 1000001M100000001,1M111100011M10001
25030 DATA 1010001D00001D001,10000000001D00001
25040 DATA 10101010101011101,101D0101010001101
25050 DATA 10101011111011101,1D101111101111101
25060 DATA 101100101#1010101,1011010101011D101
25070 DATA 1010000000100D101,11001000101D1D101
25080 DATA 10000110001001101,10110101010000001
25090 DATA 10111011101101101,10011010100000001
25100 DATA 11110110111101101,101M0001011111111
25110 DATA 101M0011D01101101,10101010111111101
25120 DATA 10100110000001101,1011011M010000001
25130 DATA 10111010110001001,10111D10001000001
25140 DATA 10001111101111101,10111111000111101
25150 DATA 101M0011000111011,10001111101011111
25160 DATA 11M11101001000101,100000D1111100001
25170 DATA 101111D1M110000D1,111001D00010000S1
25180 DATA 10111111011010101,11111110001001111
25190 DATA 10000001100011111,11110111111111111
25200 DATA 10000010001010001,10001110101011D11
25210 DATA 11111101001100001,10000100010000001
25220 DATA 11110111101011011,1M100000101010001
25230 DATA 10000100011111101,11111101010111101
25240 DATA 10000100001010001,11111111101010101
25250 DATA 111101M110000D101,10000001010011101
25260 DATA 101M110111001M101,10000000001010101
25270 DATA 1000001D101111101,10111111011001101
25280 DATA 10111100000111101,10111111111010101
25290 DATA 101110001011M1101,10111D11001101101
25300 DATA 10000001010000001,10000000000000001
25310 DATA 1000001D100000001,1000000D1D1100001
25320 DATA 11111111111111111,11111111111111111
25330 DATA 11111111111111111,11111111111111111
Ce listing est uniquement proposé pour un usage privé.
Sans accord écrit préalable, vous n'êtes pas autorisé à le distribuer, le transmettre ou le rediffuser.