4 D$ = "{^D}" 5 I$ = "PO": GOSUB 2030: GOTO 1040 28 GOSUB 1000: REM PIECE 30 HPLOT 0,159 TO 70,89 TO 209,89 TO 279,159: HPLOT 70,89 TO 70,0: HPLOT 71,0 TO 71,89: HPLOT 209,89 TO 209,0: HPLOT 208,0 TO 208,89: RETURN 100 REM PORTE 110 HPLOT 30,129 TO 30,80 TO 45,64 TO 45,113: HPLOT 29,130 TO 29,81: HPLOT 46,114 TO 46,65 115 HPLOT 43,96 TO 44,96 TO 44,95 TO 43,95: RETURN 122 REM DESCENTE 124 HPLOT 30,124 TO 40,114 TO 45,114: HPLOT 30,119 TO 33,116 TO 38,116 125 HCOLOR= 7: HPLOT 43,96 TO 44,96 TO 44,95 TO 43,95: HCOLOR= 0: RETURN 160 REM PORTE FACE 170 HPLOT 129,89 TO 129,50 TO 150,50 TO 150,89: HPLOT 128,89 TO 128,49 TO 151,49 TO 151,89 175 HPLOT 145,72 TO 147,72 TO 147,70 TO 145,70 TO 145,71 TO 146,71: RETURN 180 REM PORTE NOIRE 185 Y = 50: FOR X = 129 TO 150: HPLOT X,Y TO X,Y + 39: NEXT : RETURN 190 REM TRAPPE 200 Y = 104: FOR X = 180 TO 190:Y = Y + 1: HPLOT X,Y TO X + 20,Y: NEXT : HPLOT 210,115 TO 215,100 TO 205,90 TO 200,105: RETURN 220 REM PASSAGE 230 HPLOT 230,90 TO 230,70 TO 220,60 TO 220,80 TO 230,90: HPLOT 231,91 TO 231,71: HPLOT 219,79 TO 219,59 235 X = 219: FOR Y = 80 TO 90 STEP 2:X = X + 2: HPLOT X,Y TO 230,Y: NEXT : RETURN 240 REM PASSAGE FACE 245 FOR X = 85 TO 105: HPLOT X,55 TO X,75: NEXT : RETURN 250 REM CLEF 255 HPLOT 186,58 TO 185,57 TO 187,55 TO 189,57 TO 187,59 TO 187,66: HPLOT 188,64 TO 188,63: RETURN 280 REM COFFRE 290 HPLOT 170,70 TO 185,70 TO 185,55 TO 170,55 TO 170,70: HPLOT 176,65 TO 178,65 TO 179,64 TO 179,62 TO 178,61 TO 176,61 TO 175,62 TO 175,64: HPLOT 177,63 295 HPLOT 171,58 TO 171,60: HPLOT 171,64 TO 171,66: RETURN 300 GOSUB 1000: REM COULOIR Y 310 HPLOT 39,159 TO 99,100 TO 99,70 TO 140,80 TO 180,70 TO 180,100 TO 240,159: HPLOT 99,70 TO 99,0: HPLOT 180,70 TO 180,0: HPLOT 98,100 TO 98,0: HPLOT 179,100 TO 179,0 315 HPLOT 140,80 TO 140,0: HPLOT 141,80 TO 141,0: RETURN 330 GOSUB 1000: REM L COULOIR 340 HPLOT 40,160 TO 90,110 TO 90,0: HPLOT 90,90 TO 115,75 TO 115,0: HPLOT 115,50 TO 120,45 TO 120,0 342 HPLOT 70,90 TO 60,100 TO 60,110 TO 70,100 TO 70,85 TO 80,75 TO 80,85 TO 70,95: HPLOT 110,70 TO 110,65 TO 115,60 TO 115,65 343 HPLOT 120,35 TO 125,40 TO 125,0: HPLOT 125,40 TO 125,55 TO 150,80: HPLOT 150,0 TO 150,90 TO 160,100: HPLOT 160,0 TO 160,120 TO 240,160 344 HPLOT 89,111 TO 89,0: HPLOT 114,76 TO 114,0: HPLOT 119,46 TO 119,0: HPLOT 126,56 TO 126,0: HPLOT 151,91 TO 151,0: HPLOT 161,121 TO 161,0: RETURN 355 GOSUB 1000: REM F COULOIR 370 HPLOT 29,160 TO 99,90 TO 99,20 TO 180,20 TO 180,90 TO 250,160: HPLOT 40,0 TO 100,20 TO 100,90 TO 179,90 TO 179,20 TO 239,0: RETURN 380 REM TRAPPE 390 HPLOT 130,110 TO 130,15 TO 150,15 TO 150,110: HPLOT 131,110 TO 131,15 TO 149,15 TO 149,110 395 FOR Y = 13 TO 103 STEP 10: HPLOT 130,Y TO 150,Y: NEXT : 399 X = 110:X1 = 170 400 FOR Y = 10 TO 15: HPLOT X,Y TO X1,Y:X = X + 2:X1 = X1 - 2: NEXT : RETURN 405 REM PAPIER 406 HPLOT 100,100 TO 110,100 TO 105,105 TO 95,105 TO 100,100: RETURN 407 HCOLOR= 7: HPLOT 100,100 TO 110,100 TO 105,105 TO 95,105 TO 100,100: HCOLOR= 0: RETURN 415 GOSUB 1000: REM ESC 430 HPLOT 79,160 TO 79,155 TO 84,150 TO 84,145 TO 89,140 TO 89,135 TO 94,130 TO 94,125 TO 99,120 TO 99,115 TO 104,110 TO 104,105 TO 109,100 TO 109,95 TO 114,90 TO 114,85 TO 124,80 TO 124,30 TO 64,0 435 HPLOT 200,160 TO 200,155 TO 195,150 TO 195,145 TO 190,140 TO 190,135 TO 185,130 TO 185,125 TO 180,120 TO 180,115 TO 175,110 TO 175,105 TO 170,100 TO 170,95 TO 165,90 TO 165,85 TO 155,80 TO 155,30 TO 215,0 440 X = 114:X1 = 165: FOR Y = 85 TO 155 STEP 10: HPLOT X,Y TO X1,Y:X = X - 5:X1 = X1 + 5: NEXT :X = 114:X1 = 165: FOR Y = 90 TO 160 STEP 10: HPLOT X,Y TO X1,Y:X = X - 5:X1 = X1 + 5: NEXT 450 HPLOT 125,30 TO 125,80 TO 154,80 TO 154,30 TO 125,30: HPLOT 149,54 TO 149,56 TO 151,56 TO 151,54 TO 149,54: HPLOT 150,55: RETURN 1000 HCOLOR= 7: HPLOT 0,0: CALL - 3082: HCOLOR= 0: RETURN 1040 IF PI = 1 THEN 6700 1045 GOSUB 5000 1050 IF A$ = "OUVRIR PORTE" THEN GOSUB 300: GOTO 1070 1051 IF A$ = "AV" THEN PRINT "BONG!!!SI VOUS COMMENCEZ COMME CA VOUS N'IREZ PAS TRES LOIN!": GOTO 1040 1052 IF A$ = "G" OR A$ = "D" OR A$ = "AR" THEN PRINT "TROUILLARD! ALLONS,UN PEU DE COURAGE!": GOTO 1040 1060 GOSUB 5005: GOTO 1040 1070 GOSUB 5000 1080 IF A$ = "AR" THEN 5 1090 IF A$ = "G" THEN GOSUB 330: GOTO 1120 1100 IF A$ = "D" THEN GOSUB 330: GOTO 3450 1110 GOSUB 5005: GOTO 1070 1120 GOSUB 5000 1130 IF A$ = "AR" THEN GOSUB 300: GOTO 3400 1140 IF A$ = "AV" THEN GOSUB 300: GOTO 1160 1150 GOSUB 5005: GOTO 1120 1160 GOSUB 5000 1170 IF A$ = "AR" THEN GOSUB 330: GOTO 3360 1180 IF A$ = "G" THEN GOSUB 415: GOTO 1210 1190 IF A$ = "D" THEN GOSUB 330: GOTO 3270 1200 GOSUB 5005: GOTO 1160 1210 GOSUB 5000 1220 IF A$ = "OUVRIR PORTE" THEN 2200 1230 IF A$ = "AR" THEN GOSUB 300: GOTO 3310 1240 GOSUB 5005: GOTO 1210 1250 PRINT "PIECE EMPESTEE PAR L'ODEUR IMPREGNANTE DE TAS DE VIANDE! BEUARK!..": PRINT "UNE TRAPPE A DROITE" 1255 VI = 1 1260 GOSUB 5000 1265 IF A$ = "OBSERVER TRAPPE" THEN PRINT "UNE ECHELLE DESCEND!": GOTO 1260 1270 IF A$ = "D" OR A$ = "DESCENDRE TRAPPE" OR A$ = "DESCENDRE ECHELLE" THEN GOSUB 355: GOSUB 380: GOTO 1310 1280 IF RIGHT$ (A$,6) = "VIANDE" THEN PRINT "POUAH!!!": GOTO 1260 1290 IF A$ = "G" THEN GOSUB 415: GOTO 1210 1300 GOSUB 5005: GOTO 1260 1310 IF CDE = 0 THEN GOSUB 406: PRINT "UN PAPIER PLIE GRIFFONE,PAR TERRE!" 1320 GOSUB 5000 1330 IF A$ = "PRENDRE PAPIER" THEN GOSUB 407: PRINT "D'ACCORD":CDE = 1: GOSUB 5000 1335 IF A$ = "LIRE PAPIER" THEN PRINT "ON PEUT LIRE: 053080E RUT REVU OED OC..": GOTO 1320 1340 IF A$ = "MONTER ECHELLE" OR A$ = "AV" THEN 2200 1350 IF A$ = "AR" THEN GOSUB 300: GOTO 1370 1360 GOSUB 5005: GOTO 1320 1370 GOSUB 5000 1380 IF A$ = "G" THEN GOSUB 300: GOTO 1460 1390 IF A$ = "D" THEN GOSUB 330: GOTO 3130 1400 IF A$ = "AR" THEN GOSUB 355: GOSUB 380: GOTO 1310 1410 GOSUB 5005: GOTO 1370 1460 GOSUB 5000 1470 IF A$ = "G" THEN 1510 1480 IF A$ = "D" THEN GOSUB 300: GOTO 1650 1490 IF A$ = "AR" THEN GOSUB 300: GOTO 3080 1500 GOSUB 5005: GOTO 1460 1510 IF BOUGIE = 0 THEN GOSUB 2250: PRINT "UNE GROSSE MONTRE AVEC ECLIPSES!" 1515 IF BOUGIE = 1 THEN GOSUB 355 1520 GOSUB 5000 1530 IF BOUGIE = 0 AND A$ = "PRENDRE MONTRE" THEN GOSUB 355: PRINT "D'ACCORD!":BOUGIE = 1: GOSUB 5000 1540 IF A$ = "AR" THEN GOSUB 300: GOTO 1560 1550 GOSUB 5005: GOTO 1520 1560 GOSUB 5000 1570 IF A$ = "G" THEN GOSUB 300: GOTO 1650 1580 IF A$ = "D" THEN GOSUB 300: GOTO 3080 1590 IF A$ = "AR" THEN 1510 1600 GOSUB 5005: GOTO 1560 1650 GOSUB 5000 1660 IF A$ = "G" THEN GOSUB 355: GOSUB 160: GOTO 1735 1670 IF A$ = "D" THEN GOSUB 330: GOTO 3590 1680 IF A$ = "AR" THEN GOSUB 300: GOTO 1980 1690 GOSUB 5005: GOTO 1650 1700 GOSUB 5000 1710 IF A$ = "G" THEN GOSUB 330: GOTO 3590 1715 IF A$ = "D" THEN GOSUB 300: GOTO 1980 1720 IF A$ = "AR" THEN GOSUB 355: GOSUB 160: GOTO 1735 1730 GOSUB 5005: GOSUB 5010: GOTO 1700 1735 GOSUB 5000 1740 IF LEFT$ (A$,7) = "ECOUTER" THEN PRINT "UN GROGNEMENT SOURD DERRIERE LA PORTE": GOSUB 5000 1750 IF A$ = "FRAPPER PORTE" THEN PRINT "UN GROGNEMENT SOURD DE L'AUTRE COTE!": GOSUB 5000 1760 IF A$ = "OUVRIR PORTE" AND VI = 1 THEN 2500 1780 IF A$ = "OUVRIR PORTE" THEN GOSUB 2600: GOTO 1810 1790 IF A$ = "AR" THEN GOSUB 300: GOTO 1890 1800 GOSUB 5005: GOTO 1735 1810 PRINT "DE GROS CHIENS TAPIS DANS UN COIN VOUS REGARDENT!": IF P = 0 THEN PRINT "UNE PORTE A GAUCHE!" 1815 P = 0 1820 GOSUB 5000 1830 GOTO 6000 1890 GOSUB 5000 1900 IF A$ = "D" THEN GOSUB 300: GOTO 1980 1910 IF A$ = "G" THEN GOSUB 330: GOTO 3590 1920 IF A$ = "AR" THEN GOSUB 355: GOSUB 160: GOTO 1735 1930 GOSUB 5005: GOTO 1890 1980 GOSUB 5000 1990 GOTO 3000 2000 HGR : PRINT "DES CHIENS VOUS DEVORENT!!!!!" 2030 PRINT D$;"BLOAD PICDRAW" 2035 PRINT D$;"BLOAD";I$".SPC,A32768" 2040 HGR 2050 POKE 36352,0: POKE 36353,128 2060 CALL 36400: RETURN 2100 PRINT D$;"BLOAD PICDRAW" 2105 PRINT D$;"BLOAD";O$".SPC,A3 2768" 2110 POKE 36352,0: POKE 36353,128 2120 POKE 36354,X - (X > 255) * 256: POKE 36355,X > 255: POKE 36356,Y 2130 RETURN 2140 CALL 36361: RETURN 2150 CALL 36405: RETURN 2200 O$ = "VIA": GOSUB 2100: GOSUB 28: GOSUB 100: GOSUB 122: GOSUB 190: GOSUB 2150: GOTO 1250 2250 O$ = "MO": GOSUB 2100: GOSUB 355: GOSUB 2150: RETURN 2300 X = 80:Y = 80:O$ = "MAITRE" 2303 PRINT D$;"BLOAD PICDRAW" 2305 GOSUB 2100: GOTO 2410 2350 X = 153:Y = 100:O$ = "MAITRE" 2356 GOSUB 2100 2410 GOSUB 28: GOSUB 160: GOSUB 180: GOSUB 2420: GOSUB 2430: GOSUB 2140: RETURN 2420 IF CL = 0 THEN GOSUB 250: RETURN 2425 RETURN 2430 IF M = 1 THEN GOSUB 245: RETURN 2435 RETURN 2500 I$ = "CH": GOSUB 2030: PRINT "D'ENORMES CHIENS VOUS DEVORENT TOUT CRU!": FOR X = 1 TO 10000: NEXT : HGR : TEXT : GOTO 6500 2600 O$ = "PCH": GOSUB 2100: GOSUB 28: GOSUB 100: GOSUB 180: GOSUB 2150: RETURN 3000 IF A$ = "D" THEN 1510 3010 IF A$ = "G" THEN GOSUB 300: GOTO 3080 3020 IF A$ = "AR" THEN GOSUB 300: GOTO 1650 3030 GOSUB 5005: GOTO 1990 3080 GOSUB 5000 3090 IF A$ = "D" THEN GOSUB 355: GOSUB 380: GOTO 1310 3100 IF A$ = "G" THEN GOSUB 330: GOTO 3130 3110 IF A$ = "AR" THEN GOSUB 300: GOTO 1460 3120 GOSUB 5005: GOTO 3080 3130 GOSUB 5000 3140 IF A$ = "AV" THEN GOSUB 300: GOTO 3220 3150 IF A$ = "AR" THEN GOSUB 300: GOTO 3170 3160 GOSUB 5005: GOTO 3130 3170 GOSUB 5000 3180 IF A$ = "G" THEN GOSUB 355: GOSUB 380: GOTO 1310 3190 IF A$ = "D" THEN GOSUB 300: GOTO 1460 3200 IF A$ = "AR" THEN GOSUB 330: GOTO 3130 3210 GOSUB 5005: GOTO 3170 3220 GOSUB 5000 3230 IF A$ = "D" THEN GOSUB 415: GOTO 1210 3240 IF A$ = "G" THEN GOSUB 330: GOTO 3370 3250 IF A$ = "AR" THEN GOSUB 330: GOTO 3270 3260 GOSUB 5005: GOTO 3220 3270 GOSUB 5000 3280 IF A$ = "AV" THEN GOSUB 300: GOTO 3170 3290 IF A$ = "AR" THEN GOSUB 300: GOTO 3220 3300 GOSUB 5005: GOTO 3270 3310 GOSUB 5000 3320 IF A$ = "G" THEN GOSUB 330: GOTO 3270 3330 IF A$ = "D" THEN GOSUB 330: GOTO 3370 3340 IF A$ = "AR" THEN GOSUB 415: GOTO 1210 3350 GOSUB 5005: GOTO 3310 3360 GOSUB 5000 3370 IF A$ = "AV" THEN GOSUB 300: GOTO 3400 3380 IF A$ = "AR" THEN GOSUB 300: GOTO 1160 3390 GOSUB 5005: GOTO 3360 3400 GOSUB 5000 3405 IF BOUGIE = 1 THEN HGR : HOME : TEXT : PRINT "PASSAGE PIEGE!!": PRINT "VOUS VENEZ DE SAUTER!!!!!!": GOTO 6500 3410 IF A$ = "G" THEN GOSUB 330: GOTO 3450 3420 IF A$ = "D" THEN 5 3430 IF A$ = "AR" THEN GOSUB 330: GOTO 1120 3440 GOSUB 5005: GOTO 3400 3450 GOSUB 5000 3460 IF A$ = "AV" THEN GOSUB 300: GOTO 3540 3470 IF A$ = "AR" THEN GOSUB 300: GOTO 3490 3480 GOSUB 5005: GOTO 3450 3490 GOSUB 5000 3495 IF BOUGIE = 1 THEN HGR : HOME : TEXT : PRINT "PASSAGE PIEGE!!": PRINT "VOUS VENEZ DE SAUTER!!!!!!": GOTO 6500 3500 IF A$ = "G" THEN 5 3510 IF A$ = "D" THEN GOSUB 330: GOTO 1120 3520 IF A$ = "AR" THEN GOSUB 330: GOTO 3460 3530 GOSUB 5005: GOTO 3490 3540 GOSUB 5000 3550 IF A$ = "G" THEN GOSUB 300: GOTO 1980 3560 IF A$ = "D" THEN GOSUB 355: GOSUB 160: GOTO 1735 3570 IF A$ = "AR" THEN GOSUB 330: GOTO 3590 3580 GOSUB 5005: GOTO 3540 3590 GOSUB 5000 3600 IF A$ = "AV" THEN GOSUB 300: GOTO 3490 3610 IF A$ = "AR" THEN GOSUB 300: GOTO 3540 3620 GOSUB 5005: GOTO 3590 5000 INPUT "A VOS ORDRES! ";A$: GOSUB 5003: RETURN 5003 IF A$ = "" THEN TEXT : GET A$: POKE - 16304,0: INPUT A$: RETURN 5004 RETURN 5005 IF LEFT$ (A$,8) = "OBSERVER" OR LEFT$ (A$,7) = "ECOUTER" THEN PRINT "RIEN DE SPECIAL!": RETURN 5010 IF A$ = "DEPOSER STYLO" THEN PRINT "D'ACCORD!": RETURN 5015 IF A$ = "" THEN TEXT : GET A$: POKE - 16304,0: INPUT A$: RETURN 5020 IF A$ = "DEPOSER MONTRE" THEN PRINT "D'ACCORD!":BOUGIE = 0: RETURN 5025 IF A$ = "REGARDER HEURE" AND BOUGIE = 1 THEN PRINT "LA MONTRE INDIQUE 13H45!": RETURN 5030 PRINT "TROUVEZ MIEUX!": RETURN 6000 P = 1: IF A$ = "OUVRIR PORTE" THEN GOSUB 355: GOSUB 180: GOTO 6030 6005 IF A$ = "AV" THEN GOSUB 300: GOTO 1700 6010 IF RIGHT$ (A$,6) = "CHIENS" AND CA = 1 THEN 2500 6015 IF RIGHT$ (A$,6) = "CHIENS" THEN PRINT "ATTENTION,CES PETITES BETES SONT DANGEREUSES!":CA = CA + 1: GOTO 1820 6020 GOSUB 5005: GOTO 1820 6030 GOSUB 5000 6040 IF A$ = "AV" THEN 6070 6050 IF A$ = "AR" THEN GOSUB 2600: GOTO 1810 6060 GOSUB 5005: GOTO 6030 6070 IF M = 0 THEN GOSUB 2300: PRINT "LE TABLEAU DU MAITRE!" 6075 IF M = 1 THEN GOSUB 2350 6080 IF CL = 0 THEN PRINT "UNE CLEF AU MUR!" 6090 GOSUB 5000 6095 X = FRE (0) 6096 B$ = "080350" 6100 IF A$ = "AV" THEN GOSUB 355: GOSUB 180: GOTO 6140 6110 IF A$ = "PRENDRE CLEF" THEN CL = 1: PRINT "D'ACCORD!": HCOLOR= 7: GOSUB 250: HCOLOR= 0: GOTO 6090 6120 IF A$ = "DECROCHER TABLEAU" THEN M = 1: PRINT "D'ACCORD!": GOSUB 2350: PRINT "VOUS DECOUVREZ UN PASSAGE QUI TRAVERSE LE MUR!": GOTO 6090 6130 IF M = 1 AND A$ = "ALLER PASSAGE" THEN GOSUB 28: GOSUB 220: GOSUB 280: GOTO 6180 6135 GOSUB 5005: GOTO 6090 6140 GOSUB 5000 6150 IF A$ = "AV" THEN GOSUB 2600: GOTO 1810 6160 IF A$ = "AR" THEN 6070 6170 GOSUB 5005: GOTO 6140 6180 PRINT "UNE PIECE VIDE! UN COFFRE DANS LE MUR!" 6190 GOSUB 5000 6200 IF A$ = "ALLER PASSAGE" OR A$ = "D" THEN 6075 6205 IF A$ = "COMPOSER NUMERO" THEN PRINT "QUEL NUMERO?": GOSUB 5000: GOTO 6215 6210 IF A$ = "OUVRIR COFFRE" AND PI = 0 THEN PRINT "COMPOSEZ LE NUMERO!": GOSUB 5000: GOTO 6215 6213 GOSUB 5005: GOTO 6190 6215 IF A$ = "PRENDRE PASSAGE" OR A$ = "D" THEN 6075 6220 IF A$ = B$ THEN 6250 6230 NU = NU + 1: IF NU = 2 THEN 6750 6240 PRINT "VITE! COMPOSEZ LE BON NUMERO!": GOSUB 5000: GOTO 6220 6250 PRINT D$;"BLOAD ECLAT" 6260 PRINT "LA PIERRE DE VIE!!!!!!!" 6265 X = FRE (0) 6270 GOSUB 5000 6280 IF A$ = "PRENDRE PIERRE" THEN GOSUB 28: GOSUB 220: GOSUB 280: PRINT "D'ACCORD!":PI = 1: GOTO 6190 6290 GOSUB 5005: GOTO 6270 6500 INPUT "VOULEZ VOUS REJOUER (O/N) ";A$ 6510 IF A$ = "N" THEN END 6520 IF A$ = "O" THEN 6540 6521 PRINT D$"RUN" 6530 GOTO 6500 6540 CLEAR : GOTO 4 6700 PRINT "FELICITATIONS!!!!!!!": PRINT "VOUS ETES DESORMAIS LE MAITRE DES JEUX!" 6705 FOR X = 1 TO 5000: NEXT 6710 HGR : HOME : TEXT : VTAB 10: HTAB 19: PRINT "FIN": END 6750 HCOLOR= 7: GOSUB 220:O$ = "GAZ": HCOLOR= 0: GOSUB 2100: GOSUB 2150 6760 PRINT "LES GAZ! VOUS ETES PERDU!": GOTO 6500