Hebdogiciel n°142 à 145


10 ! HEBDOGICIEL 142.143.144.145
15 ! Christiane Patria
20 ! MANOIR sur EXL 100 (C)1986
25 !
30 CLS "Ybb":CALL COLOR("1GBLI")
35 DIM R$(14)
40 CALL CHAR(109,"7EFFFFFFFFFFFFFFFF7E")
45 GOSUB 2555:CLS "YBb":CALL POKE(259,0)
50 VIE=3:TIM=10:TIME=29
55 A1=60:A2=13:A4=1:A5=1:A7=11:A8=0:A10=0
60 GOSUB 2480
65 CALL CHAR(15,"3838107C7C7C3838386C"):CALL CHAR(1,"3838107C7C7C3838386C")
70 CALL CHAR(2,"3838107C7C7C3838386C"):CALL CHAR(50,"FF885500FF00000000")
75 CALL CHAR(3,"3838107C7C7C3838386C"):CALL CHAR(16,"000022222255555522")
80 CALL CHAR(4,"3838107C7C7C3838386C"):CALL CHAR(43,"0000000000FF22FF88FF")
85 CALL CHAR(101,"FFFF1111FF4444FF1111"):CALL CHAR(100,"FF4444FF1111FF4444FF")
90 CALL CHAR(66,"FF5588FF000000000000"):CALL CHAR(7,"FFFFFFFFFFFFFFFFFFFF")
95 CALL CHAR(36,"00000000004000000000"):CALL CHAR(8,"FFFFFFFFFFFFFFFF0000")
100 CALL CHAR(35,"00000000103810000000"):CALL CHAR(10,"FFFFFFFFFFFF00000000")
105 CALL CHAR(65,"FF8588FF000000000000"):CALL CHAR(13,"FFFFFF00000000000000")
110 CALL CHAR(67,"FF5181FF000000000000"):CALL CHAR(9,"1010101010101010FFFF")
115 CALL CHAR(68,"FF4242FF42427E42427E"):CALL CHAR(11,"1010101010FFFFFFFFFF")
120 CALL CHAR(71,"FF9999FF000000000000"):CALL CHAR(12,"1010FFFFFFFFFFFFFFFF")
125 CALL CHAR(72,"BD8181818181C3424242"):CALL CHAR(84,"0000003C5A5A7E667E5A")
130 CALL CHAR(76,"0F090909090F09090909"):CALL CHAR(75,"1C2222221C101E101E00")
135 CALL CHAR(77,"F090909090F090909090"):CALL CHAR(78,"FF44FF90909090909090")
140 CALL CHAR(73,"0038E038EEEEDC77EEEE"):CALL CHAR(79,"90909090909090FF44FF")
145 CALL CHAR(87,"000022222255555522"):CALL CHAR(106,"00000000000000FF44FF")
150 CALL CHAR(18,"000103073F7FFFFFFF7F"):CALL CHAR(105,"FF44FF10101010101010")
155 CALL CHAR(19,"FFFEFCF8F0F0E0C08000"):CALL CHAR(6,"7E42424242524242427E")
160 CALL CHAR(20,"FFFEFCF8F0F0E0C08000"):CALL CHAR(21,"FFFEFCF8F0F0E0C08000")
165 CALL CHAR(22,"00000000FCFEFFFFFFFE"):CALL CHAR(23,"00000103070F0F1F3F7F")
170 CALL CHAR(25,"00000000070F0F1F3F7F"):CALL CHAR(24,"00000103070F0F1F3F7F")
175 CALL CHAR(26,"00013F3F3F7FFFFFFF7F"):CALL CHAR(27,"0000011F3F3F3F3F3F7F")
180 CALL CHAR(29,"000000001F3F3F3F3F7F"):CALL CHAR(28,"0000011F3F3F3F3F3F7F")
185 CALL CHAR(30,"00003C3CFCFEFFFFFFFE"):CALL CHAR(31,"00000000FFFFFFFFFFFF")
190 CALL CHAR(33,"FF8888FF1010FF8888FF"):CALL CHAR(107,"10101010101010101010")
195 CALL CHAR(93,"00000000000000FF44FF"):CALL CHAR(96,"FF44FF00000000000000")
200 CALL CHAR(98,"8C30C000000000000000"):CALL CHAR(97,"310C0300000000000000")
205 CALL CHAR(94,"FF44FF888888888C30C0"):CALL CHAR(95,"FF44FF11111111310C03")
210 CALL CHAR(108,"003C42423C0000000000")
215 GOSUB 2245
220 CALL COLOR("0YB"):LOCATE (20,1):PRINT "SCORE:":LOCATE (20,14)
225 PRINT "VIES : ";VIE
230 CALL KEY1(A,B):IF A=255 THEN GOTO 230
235 X=17:Y=26
240 !
245 X=17
250 CALL COLOR("1GB"):LOCATE (X,Y):PRINT CHR$(15)
255 CALL POKE(258,200,133)
260 A1=A1-1:IF A1=0 THEN A1=60
265 A10=A10+1:IF A10=18 THEN A10=1
270 CALL COLOR("1WB"):LOCATE (17,7):PRINT SEG$(A1$,A1,30)
275 LOCATE (16,7):PRINT SEG$(A10$,A10,18)
280 O=O-1:IF O>0 THEN GOSUB 2525:GOTO 260
285 IF O=0 THEN GOTO 895
290 IF Y>7 AND Y<36 THEN IF SEG$(A1$,Y-7+A1,1)<>" " THEN GOTO 1970
295 GOSUB 2225
300 CALL KEY1(A,B):IF A=255 THEN GOTO 250
305 IF A=128 THEN GOTO 745
310 IF A=130 THEN GOTO 1005
315 IF A=129 THEN GOTO 1245
320 IF A=131 THEN GOTO 1555
325 GOTO 245
330 X=14:Y=36
335 !
340 X=14
345 CALL COLOR("1GB"):LOCATE (X,Y):PRINT CHR$(15)
350 CALL POKE(258,200,133)
355 A2=A2-1:IF A2=0 THEN A2=13
360 CALL COLOR("1WB"):LOCATE (14,5):PRINT SEG$(A2$,A2,14)
365 O=O-1:IF O>0 THEN GOSUB 2530:FOR Z=1 TO 70:NEXT Z:GOTO 355
370 IF O=0 THEN GOTO 895
375 IF Y>5 AND Y<18 THEN IF SEG$(A2$,Y-5+A2,1)<>" " THEN GOTO 1970
380 GOSUB 2225
385 CALL KEY1(A,B):IF A=255 THEN GOTO 345
390 IF A=128 THEN GOTO 745
395 IF A=130 THEN GOTO 1005
400 IF A=129 THEN GOTO 1245
405 IF A=131 THEN GOTO 1555
410 GOTO 340
415 Y=4
420 !
425 X=11
430 CALL COLOR("1GB"):LOCATE (X,Y):PRINT CHR$(15)
435 CALL POKE(258,200,133)
440 CALL COLOR("1WB")
445 A4=A4+1:IF A4=27 THEN A4=1
450 LOCATE (11,5):PRINT SEG$(A4$,A4,13)
455 CALL COLOR("1RB")
460 LOCATE (11,22):PRINT CHR$(16);CHR$(16)
465 AF1=AF1-1:IF AF1=0 THEN GOSUB 2540
470 O=O-1:IF O>0 THEN GOSUB 2530:FOR Z=1 TO 40:NEXT Z:GOTO 440
475 IF O=0 THEN GOTO 895
480 IF AF1>1 THEN CALL COLOR("0WB"):LOCATE (22,36):PRINT AF1
485 IF Y>5 AND Y<17 THEN IF SEG$(A4$,Y-5+A4,1)<>" " THEN GOTO 1970
490 GOSUB 2225
495 CALL KEY1(A,B):IF A=255 THEN GOTO 425
500 IF A=128 THEN GOTO 745
505 IF A=130 THEN GOTO 1005
510 IF A=129 THEN GOTO 1245
515 IF A=131 THEN GOTO 1555
520 GOTO 425
525 !
530 X=8
535 CALL COLOR("1GB"):LOCATE (X,Y):PRINT CHR$(15)
540 CALL POKE(258,200,133)
545 CALL COLOR("1WB")
550 A5=A5+1:IF A5=20 THEN A5=1
555 LOCATE (8,14):PRINT SEG$(A5$,A5,10)
560 CALL COLOR("1RB")
565 LOCATE (8,8):PRINT CHR$(16);CHR$(16):AF2=AF2-1
570 O=O-1:IF O>0 THEN GOSUB 2530:FOR Z=1 TO 40:NEXT Z:GOTO 545
575 IF O=0 THEN GOTO 895
580 IF Y>14 AND Y<23 THEN IF SEG$(A5$,Y-14+A5,1)<>" " THEN GOTO 1970
585 AF2=AF2-1:IF AF2=0 THEN GOSUB 2540
590 IF AF2>1 THEN CALL COLOR("0WB"):LOCATE (22,36):PRINT AF2
595 GOSUB 2225
600 CALL KEY1(A,B):IF A=255 THEN GOTO 530
605 IF A=128 THEN GOTO 745
610 IF A=130 THEN GOTO 1005
615 IF A=129 THEN GOTO 1245
620 IF A=131 THEN GOTO 1555
625 IF A=79 THEN GOTO 2005
630 IF A=84 THEN GOTO 2055
635 GOTO 530
640 !
645 X=5
650 CALL COLOR("1GB"):LOCATE (X,Y):PRINT CHR$(15)
655 CALL POKE(258,200,133)
660 CALL COLOR("1WB")
665 A7=A7-1:IF A7=1 THEN A7=10
670 A8=A8+1:IF A8=14 THEN A8=1
675 LOCATE (5,10):PRINT SEG$(A7$,A7,5)
680 LOCATE (5,29):PRINT SEG$(A8$,A8,7)
685 O=O-1:IF O>0 THEN GOSUB 2530:FOR Z=1 TO 30:NEXT Z:GOTO 660
690 IF O=0 THEN GOTO 895
695 IF Y>10 AND Y<14 THEN IF SEG$(A7$,Y-10+A7,1)<>" " THEN GOTO 1970
700 IF Y>29 AND Y<35 THEN IF SEG$(A8$,Y-29+A8,1)<>" " THEN GOTO 1970
705 GOSUB 2225
710 CALL KEY1(A,B):IF A=255 THEN GOTO 645
715 IF A=128 THEN GOTO 745
720 IF A=130 THEN GOTO 1005
725 IF A=129 THEN GOTO 1245
730 IF A=131 THEN GOTO 1555
735 GOTO 645
740 GOTO 640
745 CALL POKE(258,100,133):CALL COLOR("1GB")
750 IF X=17 THEN GOTO 775
755 IF X=14 THEN GOTO 810
760 IF X=11 THEN GOTO 825
765 IF X=8 THEN GOTO 850
770 IF X=5 THEN GOTO 875
775 IF Y=31 THEN GOSUB 1165
780 IF Y=3 THEN GOSUB 955:GOTO 335
785 LOCATE (X,Y):PRINT CHR$(32)
790 LOCATE (X-1,Y):PRINT CHR$(3):X=X-1
795 IF Y>6 AND Y<24 THEN IF SEG$(A10$,Y-7+A10,1)=CHR$(93)THEN GOTO 1970
800 O=6
805 GOTO 240
810 IF Y=20 THEN GOSUB 955:GOTO 420
815 GOSUB 940
820 GOTO 335
825 IF Y=24 THEN GOSUB 955:GOTO 525
830 IF Y=36 THEN GOSUB 955:GOTO 525
835 IF Y=18 THEN GOSUB 1195
840 GOSUB 940
845 GOTO 420
850 IF Y=6 THEN GOSUB 955:GOTO 640
855 IF Y=28 THEN GOSUB 955:GOTO 740
860 IF Y=16 THEN GOSUB 1195
865 GOSUB 940
870 GOTO 525
875 IF Y<26 OR Y>36 THEN GOTO 1970
880 IF Y=35 THEN GOSUB 1180
885 GOSUB 940
890 GOTO 640
895 LOCATE (X-1,Y):PRINT CHR$(32)
900 LOCATE (X,Y):PRINT CHR$(15)
905 X=X+1
910 IF X=18 THEN GOTO 2105
915 IF X=15 THEN GOTO 2115
920 IF X=12 THEN GOTO 2125
925 IF X=9 THEN GOTO 2135
930 IF X=6 THEN GOTO 2145
935 STOP
940 LOCATE (X,Y):PRINT CHR$(32)
945 LOCATE (X-1,Y):PRINT CHR$(3):X=X-1
950 O=6:RETURN
955 LOCATE (X,Y):PRINT CHR$(32)
960 LOCATE (X-1,Y):PRINT CHR$(3):PAUSE .2
965 LOCATE (X-1,Y):PRINT CHR$(32)
970 LOCATE (X-2,Y):PRINT CHR$(3):PAUSE .2
975 CALL COLOR("1CB"):LOCATE (X-2,Y):PRINT CHR$(68)
980 CALL COLOR("1GB"):LOCATE (X-3,Y):PRINT CHR$(15)
985 IF X-3=14 THEN X=14:GOTO 335
990 IF X-3=11 THEN X=11:GOTO 420
995 IF X-3=8 THEN X=8:GOTO 525
1000 IF X-3=5 THEN X=5:GOTO 640
1005 CALL COLOR("1GB")
1010 IF X=5 AND Y=24 OR (X=5 AND Y=33)THEN GOTO 1060
1015 IF X=8 AND Y=2 THEN GOTO 1060
1020 IF X=17 THEN GOTO 240
1025 IF X=14 AND Y=4 OR (X=14 AND Y=29)THEN GOTO 1060
1030 IF X=11 AND Y=25 THEN GOTO 1105
1035 IF X=5 THEN GOTO 640
1040 IF X=8 THEN GOTO 525
1045 IF X=11 THEN GOTO 420
1050 IF X=14 THEN GOTO 335
1055 IF X=17 THEN GOTO 240
1060 LOCATE (X,Y):PRINT CHR$(32)
1065 FOR Z=1 TO 10:CALL POKE(258,60+Z,132):NEXT Z:CALL POKE(259,0)
1070 LOCATE (X+2,Y):PRINT CHR$(15):PAUSE .2
1075 LOCATE (X+2,Y):PRINT CHR$(32)
1080 LOCATE (X+3,Y):PRINT CHR$(15)
1085 IF X=5 THEN X=8:GOTO 525
1090 IF X=8 THEN X=11:GOTO 420
1095 IF X=11 THEN X=14:GOTO 335
1100 IF X=14 THEN X=17:GOTO 240
1105 LOCATE (X,Y):PRINT CHR$(32)
1110 FOR Z=1 TO 10:CALL POKE(258,60+Z,132):NEXT Z:CALL POKE(259,0)
1115 LOCATE (13,25):PRINT CHR$(15):PAUSE .2
1120 LOCATE (13,25):PRINT CHR$(32)
1125 LOCATE (14,25):PRINT CHR$(15)
1130 X=14:GOTO 335
1135 LOCATE (X,Y):PRINT CHR$(32)
1140 FOR Z=1 TO 10:CALL POKE(258,60+Z,132):NEXT Z:CALL POKE(259,0)
1145 LOCATE (16,Y):PRINT CHR$(15):PAUSE .2
1150 LOCATE (16,Y):PRINT CHR$(32)
1155 LOCATE (17,Y):PRINT CHR$(15)
1160 X=17:GOTO 240
1165 CALL COLOR("0YB")
1170 LOCATE (20,33):PRINT "CLE ASC":LOCATE (19,1):PRINT RPT$(" ",40)
1175 CLEA=1:CALL COLOR("1GB"):RETURN
1180 CALL COLOR("0YB")
1185 LOCATE (19,33):PRINT "CLE OUT":LOCATE (19,1):PRINT RPT$(" ",32)
1190 S1=1:CALL COLOR("1GB"):RETURN
1195 CALL COLOR("0YB")
1200 LOCATE (21,33):PRINT "FEU OFF"
1205 IF X=8 THEN AF2=30
1210 IF X=11 THEN AF1=30
1215 CALL COLOR("1GB")
1220 RETURN
1225 LOCATE (X,Y):PRINT CHR$(32):CALL POKE(258,110,132)
1230 PAUSE .5:CALL POKE(259,0)
1235 LOCATE (X,2):PRINT CHR$(15)
1240 Y=2:GOTO 525
1245 CALL COLOR("1GB")
1250 IF X=17 THEN GOTO 1275
1255 IF X=14 THEN GOTO 1305
1260 IF X=11 THEN GOTO 1340
1265 IF X=8 THEN GOTO 1395
1270 IF X=5 THEN GOTO 1445
1275 IF Y=36 THEN GOTO 1875
1280 IF Y=6 THEN IF AR1=0 THEN AR1=1:GOSUB 2175
1285 LOCATE (17,Y):PRINT CHR$(32);CHR$(1)
1290 Y=Y+1
1295 IF Y>6 AND Y<36 THEN IF SEG$(A1$,Y-7+A1,1)<>" " THEN GOTO 1970
1300 GOTO 240
1305 IF Y=36 THEN LOCATE (14,36):PRINT CHR$(15):GOTO 335
1310 IF Y=34 THEN IF AR2=0 THEN AR2=1:GOSUB 2175
1315 IF Y=26 THEN GOTO 1800
1320 LOCATE (14,Y):PRINT CHR$(32);CHR$(1)
1325 Y=Y+1
1330 IF Y>4 AND Y<19 THEN IF SEG$(A2$,Y-5+A2,1)<>" " THEN GOTO 1970
1335 GOTO 340
1340 IF Y=37 THEN LOCATE (11,37):PRINT CHR$(15):GOTO 420
1345 IF Y=3 THEN IF AR3=0 THEN AR3=1:GOSUB 2175
1350 IF Y=25 THEN GOTO 2210
1355 IF Y=21 THEN IF AF1<0 THEN ED1=1
1360 IF R=22 THEN IF AF1<0 THEN GOTO 1970
1365 LOCATE (11,Y):PRINT CHR$(32);CHR$(1)
1370 Y=Y+1
1375 IF Y>4 AND Y<18 THEN IF SEG$(A4$,Y-5+A4,1)<>" " THEN GOTO 1970
1380 IF ED1=1 THEN ED1=0:GOTO 1970
1385 GOTO 420
1390 !
1395 IF Y=37 THEN GOTO 1225
1400 IF Y=25 THEN GOTO 1970
1405 IF Y=10 THEN GOTO 2210
1410 IF Y=4 THEN IF AR4=0 THEN AR4=1:GOSUB 2175
1415 IF Y=7 THEN IF AF1<0 THEN ED1=1
1420 IF Y=8 THEN IF AF1<0 THEN GOTO 1970
1425 IF Y=9 THEN GOTO 1535
1430 LOCATE (8,Y):PRINT CHR$(32);CHR$(1):Y=Y+1
1435 IF Y>13 AND Y<24 THEN IF SEG$(A5$,Y-14+A5,1)<>" " THEN GOTO 1970
1440 IF ED1=1 THEN ED1=0:GOTO 1970 ELSE GOTO 525
1445 !
1450 IF S1=1 THEN GOTO 1495
1455 IF Y=25 THEN GOTO 2210
1460 IF Y=19 THEN IF AR5=0 THEN AR5=1:GOSUB 2175
1465 LOCATE (5,Y):PRINT CHR$(32);CHR$(1)
1470 Y=Y+1
1475 IF Y>9 AND Y<15 THEN IF SEG$(A7$,Y-10+A7,1)<>" " THEN GOTO 1970
1480 IF Y>5 AND Y<26 THEN GOTO 640
1485 GOTO 740
1490 !
1495 IF Y=36 THEN GOTO 1520
1500 LOCATE (5,Y):PRINT CHR$(32);CHR$(1)
1505 Y=Y+1
1510 IF Y>28 AND Y<36 THEN IF SEG$(A8$,Y-29+A8,1)<>" " THEN GOTO 1970
1515 GOTO 740
1520 IF AR1=1 AND AR2=1 AND AR3=1 AND AR4=1 AND AR5=1 THEN GOTO 2735
1525 AF$="IL VOUS MANQUE UN OU PLUSIEURS COFFRES"
1530 GOSUB 2185:PAUSE 3:AF$="":GOSUB 2185:GOTO 640
1535 LOCATE (X,Y):CALL COLOR("1RB"):PRINT CHR$(16)
1540 CALL COLOR("1GB"):LOCATE (X,Y+1):PRINT CHR$(1)
1545 Y=Y+1
1550 GOTO 525
1555 CALL COLOR("1GB")
1560 IF X=17 THEN GOTO 1585
1565 IF X=14 THEN GOTO 1615
1570 IF X=11 THEN GOTO 1650
1575 IF X=8 THEN GOTO 1700
1580 IF X=5 THEN GOTO 1745
1585 IF Y=6 AND AR1=0 THEN AR1=1:GOSUB 2175
1590 IF Y=2 THEN LOCATE (X,Y):PRINT CHR$(15):GOTO 240
1595 Y=Y-1
1600 LOCATE (X,Y):PRINT CHR$(15);CHR$(32)
1605 IF Y>6 AND Y<37 THEN IF SEG$(A1$,Y-7+A1,1)<>" " THEN GOTO 1970
1610 GOTO 240
1615 IF Y=35 AND AR2=0 THEN AR2=1:GOSUB 2175
1620 IF Y=2 THEN LOCATE (X,Y):PRINT CHR$(15):GOTO 335
1625 IF Y=29 THEN GOTO 1785
1630 Y=Y-1
1635 LOCATE (X,Y):PRINT CHR$(2);CHR$(32)
1640 IF Y>4 AND Y<19 THEN IF SEG$(A2$,Y-5+A2,1)<>" " THEN GOTO 1970
1645 GOTO 335
1650 IF Y=3 AND AR3=0 THEN AR3=1:GOSUB 2175
1655 IF Y=2 OR Y=32 THEN LOCATE (X,Y):PRINT CHR$(15):GOTO 420
1660 IF Y=23 THEN ED1=1
1665 IF Y=23 THEN IF AF1<0 THEN GOTO 1970
1670 IF Y=22 THEN GOTO 1850
1675 Y=Y-1
1680 LOCATE (X,Y):PRINT CHR$(2);CHR$(32)
1685 IF Y>4 AND Y<18 THEN IF SEG$(A4$,Y-5+A4,1)<>" " THEN GOTO 1970
1690 IF ED1=1 THEN ED1=0:GOTO 1970
1695 GOTO 420
1700 IF Y=1 THEN GOTO 2155
1705 IF Y=28 THEN GOTO 2220
1710 IF Y=10 THEN IF AF2<0 THEN GOTO 1970
1715 IF Y=8 THEN GOTO 1850
1720 IF Y=9 THEN IF AF2<0 THEN GOTO 1970
1725 IF Y=4 THEN IF AR4=0 THEN AR4=1:GOSUB 2175
1730 Y=Y-1:LOCATE (X,Y):PRINT CHR$(2);CHR$(32)
1735 IF Y>13 AND Y<24 THEN IF SEG$(A5$,Y-14+A5,1)<>" " THEN GOTO 1970
1740 GOTO 525
1745 IF Y=6 THEN GOTO 2220
1750 IF Y=28 THEN GOTO 2220
1755 IF Y=19 THEN IF AR5=0 THEN AR5=1:GOSUB 2175
1760 Y=Y-1
1765 LOCATE (X,Y):PRINT CHR$(2);CHR$(32)
1770 IF Y>9 AND Y<14 THEN IF SEG$(A7$,Y-10+A0,1)<>" " THEN GOTO 1970
1775 IF Y>28 AND Y<36 THEN IF SEG$(A8$,Y-29+A8,1)<>" " THEN GOTO 1970
1780 GOTO 640
1785 LOCATE (X,Y):PRINT CHR$(32)
1790 Y=26:LOCATE (X,Y):PRINT CHR$(15)
1795 GOTO 335
1800 CALL POKE(258,250,135)
1805 CALL COLOR("1CB"):LOCATE (X,Y):PRINT CHR$(32)
1810 LOCATE (14,27):PRINT CHR$(26):PAUSE .4
1815 LOCATE (13,28):PRINT CHR$(27):LOCATE (14,27):PRINT CHR$(18):PAUSE .4
1820 LOCATE (12,29):PRINT CHR$(28):LOCATE (13,28):PRINT CHR$(23):PAUSE .4
1825 LOCATE (11,30):PRINT CHR$(29):LOCATE (12,29):PRINT CHR$(23):PAUSE .4
1830 LOCATE (11,31):PRINT CHR$(30):LOCATE (11,30):PRINT CHR$(25):PAUSE .4
1835 LOCATE (11,32):PRINT CHR$(15):CALL POKE(259,0):LOCATE (11,31)
1840 PRINT CHR$(22)
1845 X=11:Y=32:GOTO 420
1850 LOCATE (X,Y):CALL COLOR("1RB"):PRINT CHR$(6)
1855 CALL COLOR("1GB"):LOCATE (X,Y-1):PRINT CHR$(2)
1860 Y=Y-1
1865 IF X=11 THEN GOTO 420
1870 IF X=8 THEN GOTO 525
1875 IF CLEA=1 THEN GOTO 1890
1880 AF$="Il vous manque la cle pour l'ascenseur"
1885 GOSUB 2185:GOTO 240
1890 DATA 15,9,16,7,17,8,15,11,16,7,17,10,15,7
1895 DATA 16,7,17,32,14,11,15,7,16,10,14,7,15,7
1900 DATA 16,32,13,11,14,7,15,10,13,12,14,7
1905 DATA 15,13,13,7,14,7,15,32
1910 CALL POKE(258,200,133)
1915 LOCATE (20,33):PRINT "       "
1920 LOCATE (17,36):PRINT CHR$(32);CHR$(15)
1925 PAUSE .5:CALL COLOR("1MB")
1930 LOCATE (17,37):PRINT CHR$(6):PAUSE .5
1935 RESTORE 1890:FOR Z=1 TO 22
1940 READ AS1,AS2:LOCATE (AS1,39):PRINT CHR$(AS2)
1945 PAUSE .1:CALL POKE(258,250-Z,132):NEXT Z
1950 CALL POKE(259,0)
1955 GOTO 330
1960 AF$="Il vous manque la cle pour la sortie"
1965 GOSUB 2185:GOTO 640
1970 ! ACCIDENT
1975 FOR Z=1 TO 3
1980 CALL POKE(258,60,132):PAUSE .1:CALL POKE(259,0)
1985 PAUSE .1:NEXT Z
1990 AF$="UNE VIE DE MOINS...":GOSUB 2185
1995 PAUSE 1:VIE=VIE-1:IF VIE=0 THEN GOTO 2470
2000 CLEA=0:S1=0:O=0:AF1=0:AF2=0:GOTO 215
2005 CALL COLOR("1GB")
2010 IF X=8 AND Y=10 THEN GOTO 2020
2015 GOTO 745
2020 LOCATE (X,Y):PRINT CHR$(32)
2025 LOCATE (7,11):PRINT CHR$(3):PAUSE .2
2030 LOCATE (7,11):PRINT CHR$(32)
2035 LOCATE (7,12):PRINT CHR$(3):PAUSE .2
2040 LOCATE (7,12):PRINT CHR$(32)
2045 LOCATE (8,12):PRINT CHR$(15)
2050 GOTO 525
2055 CALL COLOR("1GB")
2060 IF X=8 AND Y=12 THEN GOTO 2070
2065 GOTO 745
2070 LOCATE (X,Y):PRINT CHR$(32)
2075 LOCATE (7,11):PRINT CHR$(3):PAUSE .1
2080 LOCATE (7,11):PRINT CHR$(32)
2085 LOCATE (7,10):PRINT CHR$(3):PAUSE .2
2090 LOCATE (7,10):PRINT CHR$(32)
2095 LOCATE (8,10):PRINT CHR$(15)
2100 GOTO 525
2105 IF Y>6 AND Y<37 THEN IF SEG$(A1$,Y-7+A1,1)<>" " THEN GOTO 1970
2110 GOTO 240
2115 IF Y>4 AND Y<19 THEN IF SEG$(A2$,Y-5+A2,1)<>" " THEN GOTO 1970
2120 GOTO 335
2125 IF Y>4 AND Y<18 THEN IF SEG$(A4$,Y-5+A4,1)<>" " THEN GOTO 1970
2130 GOTO 420
2135 IF Y>13 AND Y<24 THEN IF SEG$(A5$,Y-14+A5,1)<>" " THEN GOTO 1970
2140 GOTO 525
2145 IF Y>28 AND Y<36 THEN IF SEG$(A8$,Y-29+A8,1)<>" " THEN GOTO 1970
2150 GOTO 640
2155 LOCATE (X,Y):PRINT CHR$(32):CALL POKE(258,110,132)
2160 PAUSE .5:CALL POKE(259,0)
2165 LOCATE (X,37):PRINT CHR$(15)
2170 Y=37:GOTO 525
2175 SCORE=SCORE+1000:CALL COLOR("0YB"):LOCATE (20,1):PRINT "SCORE:";SCORE
2180 CALL POKE(258,30,132):PAUSE .1:CALL POKE(259,0):RETURN
2185 LOCATE (19,1):PRINT RPT$(" ",40)
2190 AFF1=LEN(AF$)/2:CALL POKE(258,200,132)
2195 CALL COLOR("0CB"):LOCATE (19,20-AFF1):PRINT AF$
2200 CALL POKE(259,0):AF2=4
2205 RETURN
2210 FOR Z=1 TO 200 STEP 5:CALL POKE(258,Z+50,132):NEXT Z
2215 GOTO 1970
2220 GOTO 2210
2225 TIM=TIM-1:IF TIM=0 THEN TIM=10:TIME=TIME-1 ELSE CALL POKE(259,0):RETURN
2230 IF TIME=0 THEN GOTO 1970
2235 CALL COLOR("0BB"):LOCATE (22,30-TIME):PRINT CHR$(32)
2240 CALL POKE(259,0):RETURN
2245 TIM=10:TIME=29:CLS:LOCATE (1,1):CALL COLOR("1Yb")
2250 AR(1)=AR4:AR(2)=AR5:AR(3)=AR3:AR(4)=AR1:AR(5)=AR2
2255 PRINT "#   $   $   #    #   #  $ #  "
2260 PRINT "  #    #  $   $     #    "
2265 PRINT " $  # eeee   #    $     $ "
2270 PRINT "$ "&CHR$(93)&"+++dddd++++++++++++++++"
2275 LOCATE (5,1):PRINT CHR$(32);CHR$(93);CHR$(33)
2280 CALL COLOR("1CB")
2285 LOCATE (6,6):PRINT "DBBBGBBBGBBBBBBBBBHC  DGBBBHBGBB"
2290 LOCATE (9,1):PRINT "AHBBBBBBBBBBBGBBBBBBBBGDC  ABBBBBBCDA"
2295 LOCATE (12,2):PRINT "ABBBBBBBBBBBBBBBBCDABBBH     BBBBBBB"
2300 LOCATE (15,2):PRINT "ADHBBBBBBBBBBBBBBBBBBBBBBBBHBBBBBBBB"
2305 LOCATE (18,1):PRINT "ABBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB"
2310 CALL COLOR("0BM"):LOCATE (22,2):PRINT RPT$(" ",29);" TIME"
2315 CALL COLOR("1Wb"):FOR Z=6 TO 17:LOCATE (Z,1):PRINT CHR$(76):NEXT Z
2320 FOR Z=3 TO 17:LOCATE (Z,40):PRINT CHR$(77):NEXT Z
2325 CALL COLOR("1YB"):RESTORE 2330
2330 DATA 8,4,5,19,11,3,17,5,14,34
2335 FOR Z=1 TO 5:READ Z1,Z2:LOCATE (Z1,Z2):IF AR(Z)=0 THEN PRINT CHR$(73)
2340 NEXT Z
2345 CALL COLOR("1RB"):LOCATE (8,8):PRINT CHR$(87);CHR$(87)
2350 LOCATE (11,22):PRINT CHR$(87);CHR$(87)
2355 LOCATE (4,35):PRINT CHR$(75):LOCATE (16,31):PRINT CHR$(75)
2360 LOCATE (10,18):PRINT CHR$(108):LOCATE (7,16):PRINT CHR$(108)
2365 CALL COLOR("1MB"):LOCATE (17,37):PRINT CHR$(6):LOCATE (16,39)
2370 PRINT CHR$(7):LOCATE (17,39):PRINT CHR$(7)
2375 FOR Z=13 TO 15:LOCATE (Z,39):PRINT CHR$(107):NEXT Z
2380 CALL COLOR("1CB"):LOCATE (11,30):PRINT CHR$(25);CHR$(22)
2385 LOCATE (12,29):PRINT CHR$(24);CHR$(21)
2390 LOCATE (13,28):PRINT CHR$(23);CHR$(20)
2395 LOCATE (14,27):PRINT CHR$(18);CHR$(19)
2400 LOCATE (8,1):PRINT CHR$(32):LOCATE (8,40):PRINT CHR$(32)
2405 CALL COLOR("1MB"):LOCATE (5,37):PRINT CHR$(6)
2410 DATA 93,2,26,93,2,27,93,1,30,93,1,31,93,1,35,93,1,36
2415 DATA 93,2,39,93,2,40,94,2,28,96,2,29,98,2,30,94,1,32,96,1,33,95,1,34
2420 DATA 97,2,36,96,2,37,95,2,38
2425 FOR Z=1 TO 8:READ Z1,Z2,Z3:CALL COLOR("1Wb"):LOCATE (Z2,Z3):PRINT CHR$(Z1)
2430 NEXT Z:FOR Z=1 TO 9:READ Z1,Z2,Z3:CALL COLOR("1WB"):LOCATE (Z2,Z3)
2435 PRINT CHR$(Z1):NEXT Z:CALL COLOR("1CB"):RESTORE 2440
2440 DATA N,3,38,B,3,39,O,4,38,M,5,38,N,6,38,O,7,38,N,9,38
2445 DATA M,10,38,M,11,38,N,12,38,B,6,39,B,9,39,i,12,39,j,4,39,j,7,39
2450 FOR Z=1 TO 15:READ Z$,Z1,Z2:Z3=ASC(Z$):LOCATE (Z1,Z2):PRINT CHR$(Z3)
2455 NEXT Z
2460 CALL COLOR("1Yb"):LOCATE (1,37):PRINT "$  #"
2465 CALL COLOR("1YB"):RETURN
2470 CLS "YYY":PAUSE .1:CLS "RRR":PAUSE .1:CLS "WWW":PAUSE .1:CLS "BBB"
2475 PAUSE 1:GOTO 30
2480 A11$=CHR$(93)&CHR$(93)&CHR$(93)&CHR$(93)&"              ":A10$=A11$&A11$
2485 A12$="T         T        T T                    T                 "
2490 A1$=A12$&SEG$(A12$,1,30)
2495 A13$="   T   T      ":A2$=A13$&A13$
2500 A14$="T            T            ":A4$=A14$&SEG$(A14$,1,13)
2505 A15$="    T         T    T":A5$=A15$&SEG$(A15$,1,10)
2510 A7$="         T      "
2515 A8$="        T             "
2520 RETURN
2525 IF Y>6 AND Y<24 THEN IF SEG$(A10$,Y-7+A10,1)=CHR$(93)THEN GOTO 1970
2530 CALL COLOR("1GB"):LOCATE (X-1,Y):PRINT CHR$(15):LOCATE (X,Y)
2535 PRINT CHR$(32):RETURN
2540 CALL COLOR("1RB"):LOCATE (21,33):PRINT "       "
2545 LOCATE (7,16):PRINT CHR$(108):LOCATE (10,18):PRINT CHR$(108)
2550 LOCATE (22,36):PRINT "    ":RETURN
2555 CLS:LOCATE (5,5):PRINT "11  JJEEUU":LOCATE (7,5):PRINT "22  RREEGGLLEESS"
2560 CALL COLOR("1RB"):LOCATE (12,1):PRINT "                                  "
2565 PRINT "   m   m  mmm  m   m mmmm m mmm   "
2570 PRINT "   mm mm m   m mm  m m  m m m  m  "
2575 PRINT "   m m m m   m m m m m  m m mmm   "
2580 PRINT "   m   m mmmmm m  mm m  m m m  m  "
2585 PRINT "   m   m m   m m   m mmmm m m  m  "
2590 PRINT "                                  "
2595 CALL COLOR("0bG"):LOCATE (20,1):PRINT " UN JEU DE CHRISTIANE PATRIA "
2600 PRINT " SUR EXL 100       (C) 1986  "
2605 CALL COLOR("0Yb")
2610 FOR Z=1 TO 40:CALL POKE(258,50+Z,132):LOCATE (1,Z):PRINT "-":NEXT Z
2615 FOR Z=1 TO 39:CALL POKE(258,100-Z,132):LOCATE (22,40-Z):PRINT "-":NEXT Z
2620 CALL COLOR("0Gb")
2625 CALL POKE(258,250,135):CALL KEY1(A,B)
2630 IF A=49 THEN RETURN
2635 IF A=50 THEN GOTO 2655
2640 LOCATE (5,3):PRINT CHR$(1):LOCATE (7,3):PRINT CHR$(1):PAUSE .05
2645 LOCATE (5,3):PRINT CHR$(32):LOCATE (7,3):PRINT CHR$(32)
2650 CALL POKE(259,0):GOTO 2625
2655 R$(1)="Vous etes dans un redoutable MANOIR..."
2660 R$(2)="La seule issue est la porte au 4e etage"
2665 R$(3)="Evitez les fantomes en sautant"
2670 R$(4)="Montez aux echelles"
2675 R$(5)="ou descendez par les conduites speciales"
2680 R$(6)="Evitez le feu en sautant sur les 'o',"
2685 R$(7)="mais vous n'avez que 20 s. pour passer"
2690 R$(8)="Prenez l'ascenseur, le passage secret "
2695 R$(9)="Attention au temps qui passe..."
2700 R$(11)="VOUS NE POUVEZ SORTIR QUE SI VOUS AVEZ"
2705 R$(12)="RECUPERE LES 5 COFFRES D'OR..."
2710 R$(14)="BONNE AVENTURE DANS LE 'MANOIR'"
2715 CLS:FOR Z=1 TO 14:Z1=LEN(R$(Z))/2:CALL POKE(258,200,132)
2720 LOCATE (Z+7,21-Z1):PRINT R$(Z):CALL POKE(259,0):NEXT Z
2725 CALL KEY1(A,B):IF A=255 THEN GOTO 2725
2730 GOTO 30
2735 PAUSE 1:CLS "Ybb":CALL COLOR("0GbH"):CALL POKE(258,200,132)
2740 LOCATE (20,1):PRINT "BRAVO, VOUS ETES LE MAITRE DU MANOIR..."
2745 LOCATE (21,1):PRINT "BRAVO, VOUS ETES LE MAITRE DU MANOIR..."
2750 PAUSE 3:GOTO 10

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.