## X-07 BASIC FILE.
##
## NAME: Aventu
##
 0 'AVENTURIER No125
 2 CONSOLE 0,4,0,0
 10 CLEAR 50,15999
 12 FORX=16000TO 16011:READA$:POKE X,VAL("&H"+A$):NEXT
 14 DATA3E,2B,CD,28,E4,C9,3E,2C,CD,28,E4,C9
 16 CLS:GOSUB 5000
 50 DEFINTA-Z:A=RND(0):DIMYY(26),Y$(26):RESTORE 62:VI=3
 60 M$(0)="FC":M$(1)="EF":M$(2)="":M$(3)="EF"
 62 DATA8,2,8,1,8,1,7,2,6,2,5,2,4,2,3,2,2,2,1,1
 64 FORH=0TO 9:READXX(H),XY(H):NEXT
 66 DATA2,"",1,"",2,"",2,"E9",2,"",1,"",1,"",2,"",2,"E9"
 68 DATA1,"",1,"",1,"",2,"",2,"E9"
 70 DATA2,"",1,"F2",2,"",2,"EC",2,"",1,"F2",1,"F1"
 71 DATA2,"",2,"EC"
 72 FORH=1TO 23:READYY(H),Y$(H):NEXT
 100  FONT$ (233)="48,48,100,120,96,48,200,140"
 102  FONT$ (144)="0,0,48,48,100,120,240,152"
 104  FONT$ (145)="24,24,48,112,176,32,192,128"
 106  FONT$ (146)="0,48,48,96,96,116,76,0"
 108  FONT$ (147)="24,24,48,112,176,16,8,12"
 110  FONT$ (236)="48,48,152,120,24,48,76,196
 112  FONT$ (224)="0,0,48,48,152,120,60,100
 114  FONT$ (242)="96,96,48,56,52,16,12,4
 116  FONT$ (241)="0,48,48,24,24,184,200,0
 118  FONT$ (138)="96,96,48,56,52,32,64,192
 120  FONT$ (240)="252,132,252,132,132,132,132,252"
 122  FONT$ (252)="0,0,0,0,0,252,132,252"
 124  FONT$ (139)="252,132,252,0,0,0,0,0"
 126  FONT$ (251)="252,132,252,0,0,252,132,252"
 128  FONT$ (153)="252,132,252,72,48,252,132,252"
 130  FONT$ (246)="72,48,72,48,72,252,132,252"
 132  FONT$ (151)="0,24,160,184,116,20,96,0
 134  FONT$ (150)="0,96,20,116,184,160,24,0
 138  FONT$ (249)="48,72,120,252,132,132,132,252
 140  FONT$ (158)="252,132,132,132,252,120,72,48"
 142  FONT$ (247)="32,32,16,40,72,80,32,16
 144  FONT$ (231)="16,48,72,132,136,80,80,32"
 146  FONT$ (132)="0,0,0,0,48,72,72,48"
 148  FONT$ (136)="48,72,72,48,48,72,72,48
 150  FONT$ (159)="48,72,72,48,0,0,0,0"
 152  FONT$ (239)="0,0,252,132,252,0,0,0"
 154  FONT$ (253)="0,0,252,132,132,132,132,252"
 156  FONT$ (157)="120,96,48,200,140,252,132,252"
 158  FONT$ (254)="0,0,0,0,0,48,48,100"
 160  FONT$ (229)="60,88,180,172,88,60,0,0
 162  FONT$ (155)="252,48,104,88,48,252,0,0
 164  FONT$ (244)="240,104,212,180,104,240,0,0"
 166  FONT$ (130)="60,88,172,180,88,60,0,0
 168  FONT$ (129)="252,48,88,104,48,252,0,0
 170  FONT$ (133)="240,104,180,212,104,240,0,0"
 172  FONT$ (225)="252,132,132,132,252,0,0,0
 174  FONT$ (152)="132,132,252,0,0,0,0,0
 176  FONT$ (228)="132,132,132,132,132,132,252,0"
 178  FONT$ (149)="132,132,132,132,132,132,132,132"
 180  FONT$ (237)="120,132,132,120,48,48,120,252"
 182  FONT$ (137)="0,112,140,152,96,0,0,0"
 184  FONT$ (245)="0,28,56,104,144,144,96,0
 186  FONT$ (156)="48,48,100,120,100,60,16,24"
 188  FONT$ (154)="48,48,152,120,152,240,32,96"
 190  FONT$ (128)="0,0,0,204,72,48,180,120
 192  FONT$ (131)="204,72,48,180,120,252,132,252"
 194  FONT$ (134)="120,180,72,48,48,48,120,252"
 196  FONT$ (135)="0,0,0,0,48,48,120,252"
 200 X=0:Y=2:DI=1:TA=TA+1
 202 T(1)=RND(1)*4+1:T(2)=RND(1)*4+1
 203 IFT(2)=4AND(T(1)=1ORT(1)=3)THEN202
 204 IF(T(2)=1AND(T(1)=1ORT(1)=3))OR(T(1)=2ANDT(2)=3)THEN202
 206 EXEC 16000:CLS:IFTA=5THENT(2)=5
 208 ON T(1)GOSUB 2800,2810,2820,2830
 209 ON T(2)GOSUB 2840,2850,2860,2870,2880
 210 LOCATE 0,2:PRINT "E9";:EXEC 16006
 250 IFX<9THENON T(1)GOTO2000,2100,2200,2300
 252 ON T(2)GOTO2400,2500,2600,2700,3000
 300 J=STICK(0)
 301 IFSTRIG(1)THENJ=2
 302 ON JGOSUB 1000,1100,1200,308,308,308,1300,1400
 304 IFX=18THEN200
 306 IFINKEY$=" " THEN 307 :ELSE GOTO308
 307 LOCATE X,Y:IFDI=1THENDI=2:PRINT "EC";:ELSE DI=1:PRINT "E9";
 308 GOTO250
 1000 IFY=1THENRETURN:ELSE ON DIGOTO1002,1004
 1002 IFX<17THENN=1:M=4:GOTO1600:ELSE RETURN 
 1004 IFX>1THENN=15:M=18:GOTO1600:ELSE RETURN 
 1100 IFY=1ORDI=2ORX>15THENRETURN 
 1102 N=5:M=9:GOTO1600
 1200 DI=1:F=SCREEN(X+1,Y)
 1202 IFF<>32THEN9000
 1204 F=SCREEN(X+1,Y+1):LOCATE X,Y:PRINT " ";:X=X+1
 1206 IFF=240ORF=139ORX<10ANDX<>4ANDT(1)=3THEN1207:ELSE 1208
 1207 LOCATE X,Y:PRINT "E9";:RETURN 
 1208 IFF=153THENLOCATE X,Y:PRINT "E9";:GOTO1500
 1210 IFF<>32THEN9010
 1212 LOCATE X,Y:PRINT "";
 1214 F=SCREEN(X,3)
 1216 IFF<>252THEN1222
 1218 LOCATE X,1:PRINT " ";:LOCATE X,2:PRINT "";
 1219 FORH=0TO 500:NEXT
 1220 LOCATE X,2:PRINT " ";:GOTO9010
 1222 FORH=0TO 200:NEXT:LOCATE X,Y:PRINT " ";:Y=Y+1
 1223 LOCATE X,Y:PRINT "E9"
 1224 IFF=153THEN1500:ELSE RETURN 
 1300 IFX=0THENRETURN:ELSE DI=2:F=SCREEN(X-1,Y)
 1302 IFF<>32THEN9000
 1304 F=SCREEN(X-1,Y+1):LOCATE X,Y:PRINT " ";:X=X-1
 1306 IFF=24ORF=139ORX<10ANDX<>4ANDT(1)=3THEN1307:ELSE 1308
 1307 LOCATE X,Y:PRINT "EC";:RETURN 
 1308 IFF<>32THEN9010
 1310 LOCATE X,Y:PRINT "F2";
 1312 FORH=0TO 500:NEXT:LOCATE X,Y:PRINT " ";
 1313 LOCATE X,Y+1:PRINT "EC";
 1314 Y=Y+1:RETURN 
 1400 IFDI=1ORY=1ORX<3THENRETURN 
 1402 N=19:M=23:GOTO1600
 1500 Y=1:LOCATE X,2:PRINT "FC";:LOCATE X,3:PRINT "F6";
 1502 N=10:M=14:X=X+1:GOTO1600
 1600 IFDI=1THENI=1:A$="E9"::ELSE I=-1:A$="EC"
 1602 FORH=NTO M:FORG=0TO 100:NEXTG:IFH=NANDN<>9THEN1610
 1604 IFM=HTHEN1612:ELSE F=SCREEN(X+I,YY(H))
 1606 IFF<>32THENY=YY(H-1):GOTO9000
 1607 LOCATE X,YY(H-1):PRINT " ";
 1608 X=X+I:IFYY(H)=1THENIFSCREEN(X,2)=139THENY=1:LOCATE X,1:PRINT A$;:RETURN 
 1610 LOCATE X,YY(H):PRINT Y$(H);:NEXTH
 1612 F=SCREEN(X,3)
 1614 IFT(1)=3ANDX<8THENIFX<>4THEN1618:ELSE 9010
 1616 IFF<>240ANDF<>139ANDF<>153ANDF<>251THEN9010
 1618 LOCATE X,YY(H):PRINT Y$(H);:Y=YY(H)
 1620 IFF=153THEN1500:ELSE RETURN 
 2000 GOSUB 2900
 2002 E=SCREEN(PL,2):LOCATE PL,2:PRINT " ";:LOCATE PL,3
 2003 PRINT "FC";
 2004 PL=PL+II:IFE<>32THENX=X+II
 2006 IFPL=4ORPL=7THENII=-II
 2008 LOCATE PL,3:PRINT "FB";:LOCATE PL,2:PRINT CHR$(E);:GOTO300
 2100 IFSCREEN(MX(1),2)<>32THENGOSUB 2944:ELSE GOSUB 2940
 2102 H=RND(1)*3:IFXC=10THENIFH<>0THEN300:ELSE XC=-1
 2104 XC=XC+1
 2106 IFXC<>2THENIFSCREEN(XX(XC),XY(XC))<>32THEN9000
 2108 IFCC$=""THENCC$="":ELSE CC$=""
 2110 IFXC<>0THENLOCATE XX(XC-1),XY(XC-1):PRINT " ";
 2112 LOCATE XX(XC),XY(XC):PRINT CC$;
 2114 IFXC=9THENFORH=0TO 100:NEXT:LOCATE 1,1:PRINT " ";:XC=10
 2116 GOTO300
 2200 LOCATE 1,3
 2202 LOCATE 1,3
 2204 IFS=1THEN2208
 2206 S=1:PRINT "828185F9F4";:GOTO2210
 2208 S=0:PRINT "F4F9828185";
 2210 E=SCREEN(X,Y)
 2212 IFX>0ANDX<4THENI=1:IFX<>3THENLOCATE X,Y:PRINT " "+CHR$(E);:X=X+1::ELSE 2218
 2214 IFX>4ANDX<8THENI=-1:IFX<>5THENLOCATE X-1,Y:PRINT CHR$(E)+" ";:X=X-1::ELSE 2218
 2216 GOTO300
 2218 IFSCREEN(4,2)<>32THEN 9000
 2220 LOCATE X,Y:PRINT " ";:X=X+I:F=249:GOTO9010
 2300 IFFX=8THENFF=RND(0)*6+1:ELSE 2302
 2301 IF(FF=1)OR(FF=3)OR(FF=5)THEN 2302 :ELSE 2300
 2302 FX=FX-1:IFSCREEN(FX,2)<>32THEN9000
 2304 IFFX<>7THENLOCATE FX+1,2:PRINT " ";
 2306 LOCATE FX,2:IFFX<>FFTHENPRINT "";:GOTO300
 2308 PRINT "F5";:FORH=0TO 20:NEXT
 2310 LOCATE FX,2:PRINT " ";:LOCATE FX,3:PRINT "FC";:BEEP-1,4
 2312 FX=8:GOTO300
 2400 GOSUB 2900:GOSUB 2910:GOSUB 2920:GOTO300
 2500 GOSUB 2920
 2502 IFX<>11ORT=1THEN300
 2504 T=1:LOCATE 11,1:PRINT "FE";:LOCATE 11,2:PRINT "9E";
 2505 LOCATE 11,3:PRINT "";
 2506 FORH=0TO 500:NEXTH
 2508 LOCATE 11,1:PRINT "E9";:LOCATE 11,2:PRINT "";
 2509 LOCATE 11,3:PRINT "";
 2510 Y=Y-1:GOTO300
 2600 GOSUB 2950:IFSCREEN(MX(1),2)<>32THEN2602:ELSE 2604
 2602 GOSUB 2944:GOTO2606
 2604 GOSUB 2940
 2606 GOTO300
 2700 GOSUB 2950:GOSUB 2900:GOSUB 2910:GOTO300
 2800 PRINT "9E";:LOCATE 2,2:PRINT "";
 2801 LOCATE 0,3:PRINT "F0F0FCFCFCFBFCFCF9F0";
 2802 PL=5:II=1:EX(1)=8:RETURN 
 2810 PRINT "9E";:LOCATE 0,3:PRINT "F0FCFCFCFCF0F0F9F0";
 2812 MC(1)=0:MC(2)=2:MX(1)=2:MX(2)=4:XC=-1:RETURN 
 2820 PRINT "9E";:LOCATE 0,3:PRINT "F0828185F9F4FCF0";
 2822 EX(1)=4:RETURN 
 2830 PRINT "";:LOCATE 0,3:PRINT "F0F0F0F0F0F0F0F0F0F0";
 2832 LOCATE 8,2:PRINT "ED";:FX=8:RETURN 
 2840 LOCATE 10,0:PRINT "9E9E9E";:LOCATE 10,3
 2841 PRINT "F0F0FCF9FCF9F9F0";
 2842 EX(1)=13:EX(2)=17:CX(1)=16:CN=1:RETURN 
 2850 LOCATE 10,0:PRINT "9E9E";:LOCATE 10,3
 2851 PRINT "F0F0FCF9FCF0F9F0";
 2852 CX(1)=14:CX(2)=17:H(1)=0:CN=2:T=0:RETURN 
 2860 LOCATE 10,0:PRINT "";:LOCATE 10,3
 2861 PRINT "FCFCFCF0F0F0F0F0";
 2862 MX(1)=11:MX(2)=13:MC(1)=2:MC(2)=0:NN=3:FORH=1TO 4
 2864 JJ(H)=1:H(H)=0:NEXT:RETURN 
 2870 LOCATE 10,0:PRINT "9E9E";:LOCATE 10,3
 2871 PRINT "F0F0F9FCF0FCF9F0F0";
 2872 NN=1:JJ=1:JJ(1)=1:EX(1)=12:EX(2)=16:RETURN 
 2880 LOCATE 10,0:PRINT "   ";:LOCATE 10,3
 2881 PRINT "F0F0F0FCFCF0F0FCFC";
 2882 LOCATE 16,2:PRINT "";:RETURN 
 2900 H=RND(1)*5:IFEE(1)=0THENIFH<>0THENRETURN 
 2902 EE(1)=EE(1)+1:IFEE(1)<>3THENBEEP-1,2
 2904 IFEE(1)=1THEN2905:ELSE 2906
 2905 LOCATE EX(1),1:PRINT "F7";:LOCATE EX(1),2:PRINT "";:RETURN 
 2906 IFEE(1)=2THEN2907:ELSE 2908
 2907 LOCATE EX(1),1:PRINT "";:LOCATE EX(1),2:PRINT "F7";:RETURN 
 2908 LOCATE EX(1),1:PRINT " ";:LOCATE EX(1),2:PRINT " ";
 2909 EE(1)=0:RETURN 
 2910 H=RND(1)*5:IFEE(2)=0THENIFH<>0THENRETURN 
 2912 EE(2)=EE(2)+1:IFEE(2)<>3THENBEEP-1,2
 2914 IFEE(2)=1THEN2915:ELSE 2916
 2915 LOCATE EX(2),1:PRINT "F7";:LOCATE EX(2),2:PRINT "";:RETURN 
 2916 IFEE(2)=2THEN2917:ELSE 2918
 2917 LOCATE EX(2),1:PRINT "";:LOCATE EX(2),2:PRINT "F7";:RETURN 
 2918 LOCATE EX(2),1:PRINT " ";:LOCATE EX(2),2:PRINT " ";
 2919 EE(2)=0:RETURN 
 2920 FORH=1TO CN
 2922 C(H)=C(H)+1:IFC(H)=5THENC(H)=0
 2924 LOCATE CX(H),1:ON C(H)GOTO2926,2928,2930,2932
 2926 PRINT "";:LOCATE CX(H),2:PRINT " ";:NEXT:RETURN 
 2928 PRINT "84";:LOCATE CX(H),2:PRINT "9F";:NEXT:RETURN 
 2930 PRINT " ";:LOCATE CX(H),2:PRINT "";:NEXT:RETURN 
 2932 PRINT "9F";:LOCATE CX(H),2:PRINT "84";:NEXT:RETURN 
 2940 MC(1)=MC(1)+1:IFMC(1)=4THENMC(1)=0
 2942 LOCATE MX(1),3:PRINT M$(MC(1));
 2944 IFSCREEN(MX(2),2)<>32THENRETURN 
 2946 MC(2)=MC(2)+1:IFMC(2)=4THENMC(2)=0
 2948 LOCATE MX(2),3:PRINT M$(MC(2));:RETURN 
 2950 FORH=1TO NN
 2952 E=RND(1)*H:IFE=0THENH(H)=H(H)+JJ(H):ELSE NEXT:RETURN 
 2954 IFH(H)=0ORH(H)=6THENJJ(H)=-JJ(H):NEXT:RETURN 
 2956 ON H(H)GOTO2958,2960,2962,2966,2970
 2958 LOCATE 13+H,0:PRINT "";:LOCATE 13+H,1:PRINT " ";:NEXT
 2959 RETURN 
 2960 LOCATE 13+H,0:PRINT "";:LOCATE 13+H,1:PRINT "";:NEXT
 2961 RETURN 
 2962 LOCATE 13+H,0:PRINT "";:LOCATE 13+H,1:PRINT "";
 2964 IFJJ(H)=-1THEN2965:ELSE NEXT:RETURN 
 2965 LOCATE 13+H,2:PRINT " ";:NEXT:RETURN 
 2966 IFJJ(H)=1THENE=SCREEN(13+H,2):IFE<>32THEN9000
 2968 LOCATE 13+H,1:PRINT "";:LOCATE 13+H,2:PRINT "";:NEXT
 2969 RETURN 
 2970 LOCATE 13+H,2:PRINT "";:NEXT:RETURN 
 3000 IFX<>15THEN300
 3002 LOCATE 16,2:PRINT "";:GOSUB 5500
 3004 LOCATE 15,1:PRINT "FE";:LOCATE 15,2:PRINT "9E";
 3005 LOCATE 15,3:PRINT "";
 3006 FORH=0TO 400:NEXT
 3008 LOCATE 15,1:PRINT "E9";:LOCATE 15,2:PRINT "";
 3010 FORH=0TO 400:NEXT
 3012 LOCATE 15,0:PRINT "FE";:LOCATE 15,1:PRINT "9E";
 3013 LOCATE 15,2:PRINT " ";
 3014 FORH=0TO 400:NEXT
 3016 LOCATE 15,0:PRINT "E9";:LOCATE 15,1:PRINT "";
 3018 FORH=0TO 400:NEXT
 3020 LOCATE 15,0:PRINT "9E";:LOCATE 15,1:PRINT " ";
 3022 FORH=0TO 400:NEXT
 3024 LOCATE 15,0:PRINT "";:FORH=0TO 400:NEXT:GOTO9200
 5000  FONT$ (144)="252,252,252,252,252,252,252,252"
 5002  FONT$ (146)="252,252,252,252,252,224,192,192"
 5004  FONT$ (147)="252,252,252,252,204,12,12,28"
 5006  FONT$ (236)="252,252,252,252,252,248,248,248"
 5008  FONT$ (224)="128,132,140,28,28,28,28,60"
 5010  FONT$ (242)="28,28,28,28,28,28,28,28
 5012  FONT$ (241)="240,240,224,224,224,192,192,192"
 5014  FONT$ (138)="0,0,60,124,124,252,252,252
 5016  FONT$ (240)="156,152,144,144,132,132,140,140
 5018  FONT$ (252)="48,96,240,240,240,240,224,224"
 5020  FONT$ (139)="28,60,252,60,120,248,48,112"
 5022  FONT$ (251)="48,16,4,4,68,76,204,204
 5024  FONT$ (153)="192,192,240,240,240,228,228,228"
 5026  FONT$ (246)="24,24,248,248,240,240,240,248"
 5028  FONT$ (151)="72,72,76,140,156,156,28,60"
 5030  FONT$ (150)="12,4,228,12,12,36,48,56
 5032  FONT$ (249)="228,228,228,228,204,204,204,204
 5034  FONT$ (158)="192,128,204,192,196,204,128,132"
 5036  FONT$ (247)="64,192,248,224,224,228,228,228"
 5038  FONT$ (231)="124,60,60,124,124,60,156,220"
 5040 EXEC 16000
 5100 LOCATE 0,1:PRINT "ECF2F0FCFBF6F99EF7F1F2";
 5101 PRINT "";:CONSOLE 0,1
 5102 LOCATE 0,3:PRINT "";
 5104 CONSOLE 0,4:LOCATE 0,0:PRINT "";
 5106 EXEC 16006
 5500 RESTORE 5510
 5502 FORH=1TO 39:READA,B:BEEPA,B
 5504 IFINKEY$=""THENNEXT:RETURN:ELSE RETURN 
 5510 DATA10,6,11,3,13,6,18,12,8,6,10,3,11,34,13,6,15,3,17
 5512 DATA6,23,12,15,6,17,3,18,8,20,8,22,3,0,5,10,6,11,3,13
 5514 DATA6,18,12,20,6,22,3,23,24,13,3,13,3,13,3,13,3,22,9
 5516 DATA20,6,13,3,22,9,20,6,13,3,23,9,22,6,20,3,18,3,0,2
 9000 IFDI=1THENLOCATE X,Y:PRINT "";:ELSE LOCATE X,Y:PRINT "";
 9002 GOTO9020
 9010 LOCATE X,2:PRINT " ";
 9012 IFF=252ORF=239THEN9014:ELSE 9016
 9014 LOCATE X,3:PRINT "83";:GOTO9020
 9016 LOCATE X,2:PRINT "80";
 9020 FORH=-30TO -1:BEEPH,1:NEXT:FORH=0TO 300:NEXT
 9022 GOSUB 9100
 9023 CLS:PRINT ,"Desirez-vous rejouer (O)ui  (N)on"
 9024 IFTKEY("N")THENCLS:END
 9025 IFSTRIG(1)THENCLEAR 50:GOTO50
 9026 IFTKEY("O")THENCLEAR 50:GOTO50
 9028 GOTO9024
 9100 VI=VI-1:CLS:PRINT "Il ne vous reste    plus que";VI;" vie";
 9102 IFVI>1THENPRINT "s"
 9105 FORH=0TO 500:NEXT
 9106 LOCATE 0,2:PRINT "et";6-TA;"salle";
 9107 IF(6-TA)>1THENPRINT "s";:ELSE PRINT " ";
 9108 PRINT " a       parcourir";
 9110 FORH=0TO 3000:NEXT
 9112 IFVI<1THEN9023
 9114 TA=TA-1:GOTO200
 9200 CLS:LINE (0,0)-(119,0):LINE (0,30)-(119,30)
 9202 FORR=30TO 0STEP-5
 9204 LINE (0,R)-(R,30)
 9206 LINE (119,R)-(119-R,30)
 9207 LOCATE 7,2:PRINT "BRAVO"
 9208 LINE (0,-(R-30))-(R,0)
 9210 LINE (119,-(R-30))-(119-R,0)
 9212 NEXTR
 9214 LOCATE 7,1:PRINT "BRAVO"
 9216 LOCATE 2,2:PRINT "Vous avez reussi"
 9218 FORH=0TO 2000:NEXT
 9220 CLS:PRINT "Vous avez un BONUS  de 3 vies"
 9222 POKE 43,4:TA=0:VI=VI+3:GOTO200
