0 WIDTH 32:CLS:PCLEAR1:POKE 65497,0 1 ON BRK GOTO 9000 2 GOSUB 8500 3 PRINT:PRINTTAB(4);"DIFFICULTY LEVEL? (1-3)" 4 A$=INKEY$:IF A$<"1" OR A$>"3" THEN 4 5 DL=VAL(A$):PRINT@364,"GOT IT!" 10 IF CS THEN LOADM"MINECAMP.RGB" ELSE LOADM"MINECAMP.CMP" 20 HSCREEN2:FORA=&H30TO&H33:POKE&HFFA2,A 30 LOADM"MINECAMP.SC"+CHR$(A+1) 40 NEXTA 50 POKE &HFFA2,&H3A 90 GOSUB 5000 'VARIBLES 100 GOSUB 5500 'GRAPHICS 105 HPRINT(9,16),"Press any key to begin" 107 IF INKEY$="" GOTO 107 110 GOSUB 7500 'INTRO 120 CLOSE#1:POKEFA,0 130 MR=20+LV*5:ML=MR:MM=MR'MINES FLAGGED,LEFT AND MAX 140 GOSUB 6000 'MAP 150 AA=1:EC=0:HPAINT(290,90),6,5 160 GOSUB 6500 'MINES 170 A$=INKEY$ 200 'MAIN LOOP 210 HGET(HO,VO)-(HO+8,VO+8),17 220 IF JK=2 THEN H=INT(JOYSTK(0)/2.8)+1:V=INT(JOYSTK(1)/5.5)+1 226 IF JK=1 GOSUB 440 230 HO=HG:VO=VG:HG=H*12-10:VG=V*12-10 240 HCOLOR4:HPRINT(34,7),TH:HPRINT(36,7),INT(TM) 250 IF TH>-1 THEN TM=TM-.1:IF TM<0 THEN TM=59:TH=TH-1 255 IF TH<0 THEN TH=0:TM=0:HCOLOR7 ELSE HCOLOR5 260 HPRINT(34,7),TH:HPRINT(36,7),INT(TM):HPRINT(36,7),":" 280 IF HO<>HG OR VO<>VG THEN HGET(HG,VG)-(HG+8,VG+8),17:HDRAW"BM"+STR$(HG)+","+STR$(VG)+"C10BDD3R4U4L4F8UNH7DLH7" 290 FOR LO=1TO10 300 IF JK THEN IF BUTTON(0)=1 GOSUB 1000:HGET(HG,VG)-(HG+8,VG+8),17 'IS THERE A MINE? 310 IF JK THEN IF BUTTON(1)=1 THEN 1500 'PUT A FLAG 320 A$=INKEY$ 325 IF JK=0 GOSUB 400 330 IF A$=" " OR A$=CHR$(4) THEN 1500 340 IF A$=CHR$(13) OR A$=CHR$(103) GOSUB 1000:HGET(HG,VG)-(HG+8,VG+8),17 350 IF AA=1 AND (A$="A" OR A$="a") GOSUB 2500 360 IF A$="D" OR A$="d" THEN 3000 370 NEXT LO 380 GOTO 220 400 'KEYBOARD CONTROL 410 IF A$=CHR$(8) THEN H=H-1 ELSE IF A$=CHR$(9) THEN H=H+1 ELSE IF A$=CHR$(10) THEN V=V+1 ELSE IF A$="^" THEN V=V-1 415 IF H>23 THEN H=23 ELSE IF H<1 THEN H=1 420 IF V>12 THEN V=12 ELSE IF V<1 THEN V=1 430 RETURN 440 'JOYSTICK CONTROL 450 IF JOYSTK(0)>50 THEN H=H+1 ELSE IF JOYSTK(0)<14 THEN H=H-1 460 IF JOYSTK(1)>50 THEN V=V+1 ELSE IF JOYSTK(0)<14 THEN V=V-1 470 IF H>23 THEN H=23 ELSE IF H<1 THEN H=1 480 IF V>12 THEN V=12 ELSE IF V<1 THEN V=1 490 RETURN 1000 'IS THERE A MINE? 1005 HPUT(HG,VG)-(HG+8,VG+8),17 1010 IF ABS(M(H,V))>99 THEN PLAY"V16T16O1AFAF":RETURN 1030 IF M(H,V)<0 GOSUB 4500 'BLASTED A MINE 1035 POKESL,0:PLAY"O1"+BL$:POKEFA,0 1040 C=0:X=H:Y=V 1060 FOR A=X-1TOX+1:FOR B=Y-1TOY+1 1070 IF B<1 THEN NEXT B 1080 IF B>13 THEN 1120 1090 IF A<1 THEN NEXT A 1100 IF A>24 THEN 1130 1110 IF M(A,B)<0 THEN C=C+1 1120 NEXT B,A 1130 IF C=0 AND Z=0 THEN 1190 1140 IF X=0 OR Y=0 OR X=24 OR Y=13 THEN 1160 'OUTSIDE VISIBLE MAP 1150 IF ABS(M(X,Y))<99 THEN HDRAW"BM"+STR$(X*12-7)+","+STR$(Y*12-10)+"C5"+N$(C):HDRAW"BM"+STR$(X*12-12)+","+STR$(Y*12-1)+"C1U11R11" 1160 IF Z=1 THEN RETURN 1170 RETURN 1180 IF Z=1 THEN RETURN 1190 'SHOW ALL AROUND 1200 Z=1 1210 FOR CX=H-1TOH+1:FOR CY=V-1TOV+1 1220 C=0:X=CX:Y=CY:GOSUB 1060 1230 NEXT CY,CX 1240 Z=0 1250 RETURN 1500 'PUT A FLAG 1510 IF ABS(M(H,V))>99 GOSUB 2000:GOTO 220 1520 M(H,V)=M(H,V)+100*SGN(M(H,V)) 'ADD 100 OR -100 TO FLAG 1530 HPUT(HG,VG)-(HG+8,VG+8),17 1540 HDRAW"BM"+STR$(HG)+","+STR$(VG+6)+"C7E6RG7RE6FD3GDLGL3H3U3EURER3" 1550 HGET(HG,VG)-(HG+8,VG+8),17 1560 POKESL,0:PLAY"O2"+BL$:POKEFA,0 1570 HCOLOR4:HPRINT(14,22),MM-MR 1580 MR=MR-1:HCOLOR5:HPRINT(14,22),MM-MR 1590 IF M(H,V)<0 THEN ML=ML-1 1600 IF MR=0 THEN PLAY"V16O1T8FCFCFC" 1610 GOTO 220 2000 'CLEAR A MINE 2010 HCOLOR4:HPRINT(14,22),MM-MR 2020 M(H,V)=M(H,V)-100*SGN(M(H,V)):MR=MR+1 2030 HCOLOR5:HPRINT(14,22),MM-MR 2040 IF ABS(M(H,V))=1 THEN SP=RND(3) ELSE IF ABS(M(H,V))=4 THEN SP=RND(3)+3 ELSE IF ABS(M(H,V))=7 THEN SP=RND(2)+6 ELSE IF ABS(M(H,V))=9 THEN SP=RND(2)+8 2050 HPUT(H*12-12,V*12-12)-(H*12-1,V*12-1),SP,PSET 2060 HGET(HG,VG)-(HG+8,VG+8),17 2070 RETURN 2500 'STRIKE 2510 IF H=23 THEN H1=252 ELSE H1=H*12-12 2520 IF V=1 THEN V1=0 ELSE V1=V*12-24 2530 IF H=1 THEN H2=0 ELSE H2=H*12-24 2540 IF V=12 THEN V2=120 ELSE V2=V*12-12 2550 PRINT:PRINT SP,FP 2560 POKESL,0:PLAY"V31"+EX$:POKEFA,O 2570 FOR EX=18TO23:HPUT(H1,V1)-(H1+23,V1+23),EX:HPUT(H2,V2)-(H2+23,V2+23),EX 2580 POKESL,0:PLAY"V25"+EX$:POKEFA,0:NEXT EX 2590 FOR EX=21TO25 2600 HPUT(H1,V1)-(H1+23,V1+23),EX:HPUT(H2,V2)-(H2+23,V2+23),EX 2610 POKESL,0:PLAY"V20"+EX$:POKEFA,0:NEXT EX 2620 POKESL,0:FOR VO=16TO2 STEP -2:PLAY"V"+STR$(VO)+EX$:NEXT VO:POKEFA,0 2630 HCOLOR5:HCIRCLE(H*12-6,V*12-6),18,5:HPAINT(H*12-6,V*12-6),11,5 2640 FOR X=H-1TOH+1:FOR Y=V-1TOV+1 2650 IF M(X,Y)<0 THEN HPUT(X*12-12,Y*12-12)-(X*12-1,Y*12-1),11:IF M(X,Y)>-99 THEN HCOLOR4:HPRINT(14,22),MM-MR:ML=ML-1:MR=MR-1:HCOLOR5:HPRINT(14,22),MM-MR:M(X,Y)=-101 ELSE M(X,Y)=-101 2660 NEXT Y,X 2670 IFM(H,V)=14THENHPUT(H*12-12,V*12-12)-(H*12-1,V*12-1),16:EC=1 2680 AA=0:HPAINT(290,90),7,5 2690 H3D10H3"8詟 Y񼃽2: X񼃾38?迏 M(X,Y)0 M(X,Y)1:SP(3)8[鑵 M(X,Y)4 SP(3)38w騾 M(X,Y)7 SP(2)68鼌 M(X,Y)9 SP(2)88(X1212,Y1212)(X121,Y121),SP8 X,Y88d:僑ET MINES AND CAMP9nX(19)2:Y(10)19x A砐11: B砓119/侻(A,B)超M(A,B)99寢 B,A9G朚(X,Y)149V爛 A1M89g獉 LO񼃾 09}碭(23):Y(12)9緟 M(X,Y)0 M(X,Y)14 LO29葖 LO: 覅 (X1 Y睺V2 Y碩V2) (X23 Y睩V2 Y碏V2) 6570 :僋O MINES AT START OR END OF ROAD:*躆(X,Y)超M(X,Y) :僑ET A MINE:2鎷 A:8饜:DL:僆NTRO:V40:5:"V1T48O1":0,23: CS 2,63: 1,59 : 2,37:1,52:`扴L,0:"I",#1,"INTRO.TXT":j LI 4,1:LI0 : 4,2:LI1:t (1)超1 44539::~#1,T$: T$"1" 仴 7600;'圱$"o "玊$(36(T$)," ")" o":嘥$;;8拝 挻"" ;I溕"L56O1V24C";U 7530;o癆$: A$"" 仴 7600;簠 A$"Y" A$"y" 7530;膮 A$"N" A$"n" ;蝸7600;!4:僀ONFIGURATION AND HIGH SCORES;!>:僌N ERR GOTO 8700<!H"I",#1,"SCORES.DAT"<*!R A񼄁:#1,HS$(A):#1,HS(A): A<3!\ #1%"A$: A$"R" A$"r" CS1 : A$床"C" A$床"c" 8720 : CS0>g":嚖9);"KEYBOARD (1)":嚖9);"JOYSTICK (2)":嚖9);"OR MOUSE (3)">"$A$: A$"1" A$"3" 仴 8740>".JK(A$)1>"8:嚖5);"SAVING CONFIGURATION">"B"O",#1,"CONFIG.INI":#1,CS:#1,JK:#1>#'?##(&HFFA2,&H3A:扴L,0: 0,0: 40: CS : ?#2"Minecamp, the next mission","by Diego Barizo, 2018":"www.yaccs.info / www.cocowares.com" 8740>".JK(A$)1>"8:嚖5);"SAVING CONFIGURATION">"B"O",#1,"CONFIG.INI":#1,CS:#1,JK:#1>#'?##(&HFFA2,&H3A 4,4,4,4,4,2,4,4,4,4,4,1,4 4120 DATA 4,4,4,4,2,4,4,4,4,4,4,4,4 4130 DATA 4,4,4,1,4,4,4,4,4,4,4,4,4 4140 REM EXPLOSION 2 4150 DATA 4,4,4,4,4,4,4,4,4,1,4,4,4,4,4,4,4,4,4,4 4160 DATA 4,4,4,4,4,4,4,4,4,1,4,4,4,4,4,4,4,4,1,4 4170 DATA 4,4,4,4,4,4,4,4,4,2,4,4,4GET(HG,VG)-(HG+8,VG+8),17 2700 RETURN 3000 'DRIVING THE TRUCK 3010 HPUT(HG,VG)-(HG+8,VG+8),17 3020 H=1:V=TV:TM=INT(TM) 3030 FOR LO=1TO2 STEP 0 3040 HG=H*12-14:VG=V*12-10:IF HG<0 THEN HG=0 3050 HGET (HG,VG)-(HG+13,VG+7),17 3060 HPUT (HG,VG)-(HG+13,VG+7),13 3070 FOR DO=1TO2 STEP 0:A$=INKEY$:IF A$="" THEN NEXT DO 3080 HO=HG:VO=VG 3090 IF A$="^" AND V>1 THEN V=V-1 3100 IF A$=CHR$(10) AND V<12 THEN V=V+1 3110 IF A$=CHR$(8) AND H>1 THEN H=H-1 3120 IF A$=CHR$(9) AND H<23 THEN H=H+1 3130 IF M(H,V)<0 AND M(H,V)>-101 THEN 4500 'MINE! 3133 FOR VE=V-1TOV+1:IF RND(4)=1 AND M(H-1,VE)<-99 AND M(H-1,VE)>-200 THEN FOR EX=18TO25 STEP 2:HPUT((H-1)*12-18,VE*12-18)-((H-1)*12+5,VE*12+5),EX:POKESL,0:PLAY"V"+STR$(60-EX*2)+EX$:POKEFA,0:M(H-1,VE)=-200:NEXT EX 3135 NEXT VE 3140 IF H=23 AND V=FV THEN LO=2:POKESL,0:PLAY"O1V22T8L4EECAACB":POKEFA,0 3150 OM=TM:OH=TH 3160 IF M(H,V)=1 THEN TM=TM-1 3170 IF M(H,V)=7 THEN TM=TM-2 3175 IF M(H,V)=9 THEN TM=TM-4 3177 IF TM<0 THEN TM=60+TM:TH=TH-1 3180 IF TH>-1 AND TM<>OM THEN HCOLOR4:HPRINT(34,7),OH:HPRINT(36,7),OM:HCOLOR5:HPRINT(34,7),TH:HPRINT(36,7),TM 3185 HPUT(HO,VO)-(HO+13,VO+7),17 3190 NEXT LO 3200 GOSUB 4000 3500 'LETS CALCULATE THE SCORE 3510 HSCREEN 0:CLS 6:ATTR 3,5,U 3520 IF TH<0 OR JT=1 OR LV=5 THEN PRINTTAB(11);"* Final Score *" ELSE PRINTTAB(10);"Score for level";LV 3530 ATTR 3,5:PRINT 3540 PRINT"Mines on this level:"MM:PRINT 3550 PP=(MM-ML)*10:SC=SC+PP 'FOUND 3560 PRINT"Mines found:"MM-ML:LOCATE 20,4:PRINT PP"points" 3570 PP=(ML-MR)*5:SC=SC-PP 'FALSE FLAGS 3580 PRINT"False alarms:"ML-MR:LOCATE 19,5:ATTR 7,5:PRINT"-"PP"points" 3590 PP=ML*2:SC=SC-PP 'NOT FOUND 3600 ATTR 3,5:PRINT"Mines left:"ML:LOCATE 19,6:ATTR 7,5:PRINT"-"PP"points" 3610 IF EC THEN EC=50+LV*5:SC=SC+EC 3620 IF EC THENATTR0,5:PRINT"Enemy camp destroyed:":LOCATE20,7:PRINTEC"points" 3630 IFJT=1THENRETURN 3640 TI=TH*60+TM 3650 TU=TI-(DL*120-LV*60) 'ARE WE ON TIME? 3665 TL$=STR$(TH)+":"+MID$(STR$(TM),2,3) 3670 ATTR 3,5:LOCATE0,9:PRINT"Time left:";TL$ 3680 SC=SC+TU 3690 IF TU<0 THEN ATTR 7,5 ELSE ATTR 3,5 3700 LOCATE 20,9:PRINT TU"points" 3705 IF TH<0 OR LV=DL*2 THEN 4610 'NO TIME OR FINAL LEVEL 3710 ATTR 3,5:PRINT:PRINTTAB(6);"Current total score:"SC 3720 FOR A=1TO12:FOR B=1TO23:M(B,A)=0:NEXT B,A 3730 LV=LV+1:HG=2:VG=2:HO=2:VO=2 3740 GOSUB 5040 3750 PRINT:PRINTTAB(7);"Press any k M(H,V)1 TM砊M1&+ b M(H,V)7 TM砊M2&D g M(H,V)9 TM砊M4&b i TM0 TM60玊M:TH砊H1& l TH铂1 TM床OM 4:(34,7),OH:(36,7),OM:5:(34,7),TH:(36,7),TM& q(HO,VO)(HO13,VO13),17& v LO& 仸 4000& :僉ETS CALCULATE THE SCORE' 朵 0: 6: 3,5,U'b 绤 TH0 JT1 LV5 嚖11);"* Final Score *" : 嚖10);"Score for level";LV'n 束 3,5:' 試"Mines on this level:"MM:' 轕P(MM琈L)10:SC砈C玃P :僃OUND' 鑷"Mines found:"MM琈L: 20,4: PP"points"( 騊P(ML琈R)5:SC砈C琍P :僃ALSE FLAGS(< 鼑"False alarms:"ML琈R: 19,5: 7,5:"-"PP"points"(]PP矼L2:SC砈C琍P :僋OT FOUND( 3,5:"Mines left:"ML: 19,6: 7,5:"-"PP"points"( EC EC50獿V5:SC砈C獷C($ EC 0,5:"Enemy camp destroyed:":20,7:嘐C"points"(.匤T1) 8TI砊H60玊M)4BTU砊I(DL120琇V60) :傾RE WE ON TIME?)VQTL$(TH)":"((TM),2,3))wV 3,5:0,9:"Time left:";TL$)`SC砈C玊U)j TU0 7,5 : 3,5)t 20,9: TU"points")y TH0 LV矰L2 4610 :僋O TIME OR FINAL LEVEL*~ 3,5::嚖6);"Current total score:"SC*<垁 A񼃽2: B񼃾3:M(B,A)0: B,A*\扡V矻V1:HG2:VG2:HO2:VO2*h渷 5040*:嚖7);"Press any key to continue": 44539:A$*颁 2*簛 130*:僑HOW MINES*獉 Y񼃽2: X񼃾3+磪 M(X,Y)0 (X1212,Y1212)(X121,Y121),11+F緟 M(X,Y)14 (X1212,Y1212)(X121,Y121),16+Q葖 X,Y+_尧 44539:+u:傿LASTED A MINE!+濰X矵1218: HX0 HX0+╒X砎1218: VX0 VX0+矑SL,0:"V31"獷X$:扚A,0, 紑 A1823:(HX,VX)(HX23,VX23),A:扴L,0:"V25"獷X$:扚A,0: A,M苺 A2123:(HX,VX)(HX23,VX23),A:扴L,0:"V20"獷X$:扚A,0:婣,衻 A2125:(HX,VX)(HX23,VX23),A:扴L,0:"V15"獷X$:扚A,0:婣,趻SL,0: V122 2:"V"(V)獷X$: V:扚A,0,鋪 4000,頙T1,鴣 3500,:僂ND GAME, :-W JT1 TH0 7,5:嚖8);"THE MISSION HAS FAILED" : 1,5:嚖6);"THE MISSION IS A SUCCESS"- 3,5::嚖8);"The final score is"SC:-" A񼄁: SC睭S(A) 4644 : A-$ B4 ┈1:HS$(B1)矵S$(B):HS(B1)矵S(B): B.i* A6 嚖8)"You have a High Score!":"What is your name?";NA$:HS$(A)砃A$:HS(A)砈C:"O",#1,"SCORES.DAT": A񼄁:#1,HS$(A):#1,HS(A): A:#1./嚖14);"High Scores": A񼄁:嚖15((HS(A))));HS(A);" - ";HS$(A): A.4:嚖4);"Do you want to play again? (Y/N)".>A$/ H A$"N" A$"n" 9000/+R A$床"Y" A$床"y" 仴 4670/YT:嚖4);"In which difficulty level? (1-3)"/|VA$: A$"1" A$"3" 4694/XDL(A$)/\:5,10:"Let me reset a few things..."/fSC0:JT0/p A񼃽3: B񼃾4:M(B,A)0: B,A0z仸 5030: 2:仴 1300:僆NIZIALIZE VARIABLES0;扲():FA65497:SL654960k湆 M(24,13) :+100 IS FLAG, NEGATIVE IS MINE0V1:TH矰L2:TM60珼L200皜 A񼃽0獿V2 :僑ET ROCKS0篨(23):Y(12):H1:V60腗(X,Y)70螊 A0訝 50,10貈 R񼃾1釸H(21)11 靲 RV񼃽2:M(RH,RV)9: RV,R1i鯯V(12):FV((LV3)2)(LV3)玈V: FV12 FV12 : FV1 FV11sTV砈V1 CU$"C10NF2R7NG2D7NH2L7NE2U7": CU$="C10BDD3R4U4L4F8UNH7DLH7"2EX$"O1L254FAEDEBFGECE":BL$"L254V24FV31FV24FFV20FV16FV12FV8FV4F":傾FDFCEC"2RH1:SH0:RV029#SH砈H玆H:SV砈V玆V:M(SH,SV)42t( SH23 RH0: SV睩V RV超1:仴 5190 : RV0:仴 519022 SV矲V RV0:RH1:仴 51552< (3)1 RH超(琑H): RH0 SV睩V RV超1 : RV1 : RV02F SV矲V SH23 2Z仴 51553d3|:僑ETUP GRAPHICS3>唨 A1825: A,600: A::僂XPLOSION3愲(36,156)(59,179),18:(276,156)(299,179),19:(144,108)(167,131),203氹(24,12)(47,35),21:(252,84)(275,107),22:(264,12)(287,35),233る(36,84)(59,107),24:(144,12)(167,35),254疇 150,14/竴 A񼃽7: A,99: A :17 IS BUFFER4h码(0,0)(11,11),1:(12,0)(23,11),2:(24,0)(35,11),34屉(0,132)(11,143),4:(12,132)(23,143),5:(24,132)(35,143),64蛛(0,12)(11,23),7:(0,24)(11,35),85嚯(120,0)(131,11),9:(204,0)(215,11),10:(0,36)(11,47),115隊 200,15j綦(142,146)(155,153),13:(110,144)(117,157),14:(230,156)(237,169),155(168,168)(179,179),165﨨$(1)"DGE2D7NL2NR2"5N$(1)"NG1D6NL1NR1"5N$(2)"LNGR2FDGL2GD2R4"5N$(3)"LNGR2FDGFDGL2H"6&N$(4)"G3DR4LNU4D2"6#0N$(5)"NR2L2D2R3FD2GL2H"6>:N$(6)"NRLGD4FR2EUHL3"6TDN$(7)"NL2R2DG4D"6eNN$(0)"DRUL"6qX 250,16wb6p:僑HOW MAP6z 2: 4:5: CS 1,55:2,52 : 1,52:2,376凙$"Level:"(LV):(0,19),A$6嶢$"Score:"(SC):(20,19),A$7-楢$"Mines in this level:"(MR):(0,21),A$7O㈩(35,4),"Time":(35,5),"Left"7(76,107)(201,122),,B:(10,14),"Downloading map"7额(34,7),TH:(36,7),TM:(36,7),":"7李(0,22),"Mines flagged:"8术"BM285,90C5RUE3R10FR2FRFBD2GLGL2GL10H3U2BR21U4NG+ 32::1: 65497,0) 仴 90005仸 8500Z:嚖4);"DIFFICULTY LEVEL? (1-3)"zA$: A$"1" A$"3" 4DL(A$):嘆364,"GOT IT!" CS 覯"MINECAMP.RGB" : 覯"MINECAMP.CMP"2:A4851:&HFFA2,A覯"MINECAMP.SC"(A1)(婣2 &HFFA2,&H3A!< 1,18Z仸 5000 :僔ARIBLESD_ 100,1[d仸 5500 :僄RAPHICSi1:(72,128)(248,136),,BF:5:(9,16),"Press any key to begin"k 挸"" 仴 107n仸 7500 :僆NTROx#1:扚A,0 侻R20獿V5:ML矼R:MM矼R:僊INES FLAGGED,LEFT AND MAX寔 6000 :僊AP9朅A1:EC0:(290,90),6,5M爜 6500 :僊INESW狝$g:僊AIN LOOP译(HO,VO)(HO8,VO8),17軈 JK2 H((0)2.8)1:V((1)5.5)1鈪 JK1 仸 440鍴O矵G:VO砎G:HG矵1210:VG砎1210 痃4:(34,7),TH:(36,7),(TM);鷧 TH铂1 TM砊M.1: TM0 TM59:TH砊H1[ TH0 TH0:TM0:7 : 5(34,7),TH:(36,7),(TM):(36,7),":" HO床HG VO床VG (HO,VO)(HO8,VO8),17:(HG,VG)(HG8,VG8),17:"BM"(HG)","(VG)獵U$" LO񼃽0&, JK (0)1 仸 1000:僆S THERE A MINE?O6 JK (1)1 1500 :働UT A FLAGY@A$kE JK0 仸 400J A$" " A$(4) 1500T A$(13) A$(103) 仸 1000^ AA1 (A$"A" A$"a") 仸 2500h A$"D" A$"d" 3000r LO|仴 220:僈EYBOARD CONTROLv殔 A$(8) H矵1 : A$(9) H矵1 : A$(10) V砎1 : A$"^" V砎1焻 H23 H23 : H1 H1 V12 V12 : V1 V1異:僇OYSTICK CONTROL聟 (0)50 H矵1 : (0)14 H矵1/虆 (1)50 V砎1 : (0)14 V砎1P謪 H23 H23 : H1 H1q鄥 V12 V12 : V1 V1w陳:僆S THERE A MINE?盱(HG,VG)(HG8,VG8),17騾 (M(H,V))99 "V16T16O1AFAF": M(H,V)0 仸 4500 :傿LASTED A MINE 扴L,0:"O1"獴L$:扚A,0$C0:X矵:Y砎@$ A砐11: B砓11P. B1 Bb8 B13 1120rB A1 AL A24 1130V M(A,B)0 C矯1` B,Aj C0 Z0 1190t X0 Y0 X24 Y13 1160 :僌UTSIDE VISIBLE MAPe~ (M(X,Y))99 "BM"(X127)","(Y1210)"C5"玁$(C):"BM"(X1212)","(Y121)"C1U11R11"s儏 Z1 堧(HG,VG)(HG8,VG8),17拹:僑HOW ALL AROUND癦1簚 CX矵11: CY砎11腃0:X矯X:Y矯Y:仸 1060螊 CY,CX豘0怆(HG,VG)(HG8,VG8),17:.:働UT A FLAGQ鎱 (M(H,V))99 仸 2000:仴 220餗(H,V)矼(H,V)100(M(H,V)) :傾DD 100 OR -100 TO FLAG(HG,VG)(HG8,VG8),17"BM"(HG)","(VG6)"C7E6RG7RE6FD3GDLGL3H3U3EURER3"(HG,VG)(HG8,VG8),17扴L,0:"O2"獴L$:扚A,02"4:(14,22),MM琈RP,MR矼R1:5:(14,22),MM琈Ri6 M(H,V)0 ML矼L1@ MR0 "V16O1T8FCFCFC"J仴 220:僀LEAR A MINE阽4:(14,22),MM琈R銶(H,V)矼(H,V)100(M(H,V)):MR矼R1铉5:(14,22),MM琈Ru鴧 (M(H,V))1 SP(3) : (M(H,V))4 SP(3)3 : (M(H,V))7 SP(2)6 : (M(H,V))9 SP(2)8(H1212,V1212)(H121,V121),SP, (HG,VG)(HG8,VG8),17 :僑TRIKE 螀 H23 H1252 : H1矵1212  貐 V1 V10 : V1砎1224 0 鈪 H1 H20 : H2矵1224 R 靺 V12 V2120 : V2砎1212 ` 鰢: SP,FP { 扴L,0:"V31"獷X$:扚A,O EX1823:(H1,V1)(H123,V123),EX:(H2,V2)(H223,V223),EX 扴L,0:"V25"獷X$:扚A,0: EX  EX2125!% ((H1,V1)(H123,V123),EX:(H2,V2)(H223,V223),EX!E 2扴L,0:"V20"獷X$:扚A,0: EX!y <扴L,0: VO162 2:"V"(VO)獷X$: VO:扚A,0! F5:(H126,V126),18,5:(H126,V126),11,5! P X矵11: Y砎11"] Z M(X,Y)0 (X1212,Y1212)(X121,Y121),11: M(X,Y)铂99 4:(14,22),MM琈R:ML矼L1:MR矼R1:5:(14,22),MM琈R:M(X,Y)超101 : M(X,Y)超101"g d Y,X" n匨(H,V)14ъ(H1212,V1212)(H121,V121),16:EC1" xAA0:(290,90),7,5" 傠(HG,VG)(HG8,VG8),17" 寪" :僁RIVING THE TRUCK# 蚂(HG,VG)(HG8,VG8),17#% 蘃1:V砊V:TM(TM)#6 謤 LO񼃾 0#^ 郒G矵1214:VG砎1212: HG0 HG0#} 觌 (HG,VG)(HG13,VG13),17# 魠 A$"^" (HG4,VG)(HG11,VG13),15 : A$(10) (HG4,VG)(HG11,VG13),14 : (HG,VG2)(HG13,VG9),13$ 䜣 DO񼃾 0:A$: A$"" DO$) HO矵G:VO砎G$D  A$"^" V1 V砎1$c  A$(10) V12 V砎1$ & A$(8) H1 H矵1$ 0 A$(9) H23 H矵1$ : M(H,V)0 M(H,V)铂101 4500 :僊INE!$ ; VE砎11: VE2 VE2% 鯯V(12):FV((LV3)2)(LV3)玈V: FV12 FV12 : FV1 FV11HTV砈V1EX$"O1L254FAEDEBFGECE":BL$"L254V24FV31FV24FFV20FV16FV12FV8FV4F":傾FDFCEC"1RH1:SH0:RV01#SH砈H玆H:SV砈V玆V:M(SH,SV)42( SH23 RH0: SV睩V RV超1:仴 5190 : RV0:仴 51902'2 SV矲V RV0:RH1:仴 51552l< (3)1 RH超(琑H): RH0 SV睩V RV超1 : RV1 : RV02F SV矲V SH23 2Z仴 51552d2|:僑ETUP GRAPHICS2唨 A1825: A,600: A::僂XPLOSION3愲(36,156)(59,179),18:(276,156)(299,179),19:(144,108)(167,131),203`氹(24,12)(47,35),21:(252,84)(275,107),22:(264,12)(287,35),233る(36,84)(59,107),24:(144,12)(167,35),253竴 A񼃽7: A,99: A :17 IS BUFFER3码(0,0)(11,11),1:(12,0)(23,11),2:(24,0)(35,11),341屉(0,132)(11,143),4:(12,132)(23,143),5:(24,132)(35,143),64^嚯(120,0)(131,11),9:(204,0)(215,11),104觌(120,0)(131,11),9:(120,24)(131,35),10:(132,0)(143,11),114綦(142,146)(155,156),13:(110,142)(119,155),14:(228,156)(237,169),155 (168,168)(179,179),165"﨨$(1)"DGE2D7NL2NR2"5:N$(1)"NG1D6NL1NR1"5VN$(2)"LNGR2FDGL2GD2R4"5qN$(3)"LNGR2FDGFDGL2H"5&N$(4)"G3DR4LNU4D2"50N$(5)"NR2L2D2R3FD2GL2H"5:N$(6)"NRLGD4FR2EUHL3"5DN$(7)"NL2R2DG4D"5NN$(0)"DRUL"5b5p:僑HOW MAP6/z 2: 4:5: CS 1,55:2,52 : 1,52:2,376Q凙$"Level:"(LV):(0,19),A$6t嶢$"Score:"(SC):(20,19),A$6楢$"Mines in this level:"(MR):(0,21),A$6㈩(35,4),"Time":(35,5),"Left"6(76,107)(201,122),,B:(10,14),"Downloading map"7#额(34,7),TH:(36,7),TM:(36,7),":"7@李(0,22),"Mines flagged:"7}术"BM285,90C5RUE3R10FR2FRFBD2GLGL2GL10H3U2BR21U4NG3D10H3"7詟 Y񼃽2: X񼃾37迏 M(X,Y)0 M(X,Y)1:SP(3)7鑵 M(X,Y)4 SP(3)37騾 M(X,Y)7 SP(2)68 鼌 M(X,Y)9 SP(2)884(X1212,Y1212)(X121,Y121),SP8> X,Y8D8]d:僑ET MINES AND CAMP8wnX(19)2:Y(10)18x A砐11: B砓118侻(A,B)超M(A,B)8寢 B,A8朚(X,Y)148爛 A1M88獉 LO񼃾 08碭(23):Y(12)9緟 M(X,Y)0 M(X,Y)14 LO29葖 LO9覅 (X1 Y睺V2 Y碩V2) (X23 Y睩V2 Y碏V2) 6570 :僋O MINES AT START OR END OF ROAD9躆(X,Y)超M(X,Y) :僑ET A MINE9鎷 A9饜9L:僆NTRO9V40:5:"V1T48O1":0,23: CS 2,63: 1,59 : 2,37:1,52:`扴L,0:"I",#1,"INTRO.TXT":<j LI 4,1:LI0 : 4,2:LI1:Wt (1)超1 44539::s~#1,T$: T$"1" 仴 7600:圱$"o "玊$(36(T$)," ")" o":嘥$;:拝 挻"" :溕"L56O1V24C": 7530:癆$: A$"" 仴 7600;簠 A$"Y" A$"y" 7530;膮 A$"N" A$"n" ;(蝸7600;L!4:僀ONFIGURATION AND HIGH SCORES;c!>:僌N ERR GOTO 8700;|!H"I",#1,"SCORES.DAT";!R A񼄁:#1,HS$(A):#1,HS(A): A;!\ #1;!f"I", #1,"CONFIG.INI": #1,CS: #1,JK: #1;!p嘆5,"CURRENT CONFIGURATION"<2!z:嚖8);"MONITOR: ";: CS "RGB" : "COMPOSITE/TV""$A$: A$"1" A$"3" 仴 8740>".JK(A$)1>5"8:嚖5);"SAVING CONFIGURATION">`"B"O",#1,"CONFIG.INI":#1,CS:#1,JK:#1>f#'>#(&HFFA2,&H3A:扴L,0: 0,0: 40: CS : >#2"Minecamp, the next mission","by Diego Barizo, 2018":"www.yaccs.info / www.cocowares.com" DDBDDDDDBDDDDDBDDDDDBDDDDDBDDDDDBAAAAwwAAA32AAAAAA垐垐垐AA32AAK换换睰换换睰换换"K换换睰换换睰换换AAAAwwAAAC3"AAAAAAffffffAAC3"AAK徊换睰徊换睰换换睰徊换睰徊换睰换换AAAAqwAAA32!AAAA!AA!坔唸坔唸坔唸A!A32!A!A!K换换睰换换睰换换睰换换睰换换睰换换CX:Y矯Y:仸 1060螊 CY,CX"豘0(鈵9:働UT A FLAG\鎱 (M(H,V))99 仸 2000:仴 220餗(H,V)矼(H,V)100(M(H,V)) :傾DD 100 OR -100 TO FLAG(HG,VG)(HG8,VG8),17"BM"(HG)","(VG6)"C7E6RG7RE6FD3GDLGL3H3U3EURER3" (HG,VG)(HG8,VG8),17'扴L,0:"O2"獴L$:扚A,0="4:(14,22),MM琈R[,MR矼R1:5:(14,22),MM琈Rt6 M(H,V)0 ML矼L1@ MR0 "V16O1T8FCFCFC"J仴 220:僀LEAR A MINE阽4:(14,22),MM琈R銶(H,V)矼(H,V)100(M(H,V)):MR矼R1铉5:(14,22),MM琈R鴧 (M(H,V))1 SP(3) : (M(H,V))4 SP(3)3 : (M(H,V))7 SP(2)6 : (M(H,V))9 SP(2)8(H1212,V1212)(H121,V121),SP, (HG,VG)(HG8,VG8),17 :僑TRIKE 螀 H23 H1252 : H1矵1212  貐 V1 V10 : V1砎1224 ; 鈪 H1 H20 : H2矵1224 ] 靺 V12 V2120 : V2砎1212 k 鰢: SP,FP 扴L,0:"V31"獷X$:扚A,O EX1823:(H1,V1)(H123,V123),EX:(H2,V2)(H223,V223),EX 扴L,0:"V25"獷X$:扚A,0: EX  EX2125!0 ((H1,V1)(H123,V123),EX:(H2,V2)(H223,V223),EX!P 2扴L,0:"V20"獷X$:扚A,0: EX! <扴L,0: VO162 2:"V"(VO)獷X$: VO:扚A,0! F5:(H126,V126),18,5:(H126,V126),11,5! P X矵11: Y砎11"h Z M(X,Y)0 (X1212,Y1212)(X121,Y121),11: M(X,Y)铂99 4:(14,22),MM琈R:ML矼L1:MR矼R1:5:(14,22),MM琈R:M(X,Y)超101 : M(X,Y)超101"r d Y,X" n匨(H,V)14ъ(H1212,V1212)(H121,V121),16:EC1" xAA0:(290,90),7,5" 傠(HG,VG)(HG8,VG8),17" 寪" :僁RIVING THE TRUCK# 蚂(HG,VG)(HG8,VG8),17#0 蘃1:V砊V:TM(TM)#A 謤 LO񼃾 0#i 郒G矵1214:VG砎1212: HG0 HG0# 觌 (HG,VG)(HG13,VG13),17# 魠 A$"^" (HG2,VG)(HG11,VG13),15 : A$(10) (HG4,VG)(HG13,VG13),14 : (HG,VG2)(HG13,VG9),13$$ 䜣 DO񼃾 0:A$: A$"" DO$4 HO矵G:VO砎G$O  A$"^" V1 V砎1$n  A$(10) V12 V砎1$ & A$(8) H1 H矵1$ 0 A$(9) H23 H矵1$ : M(H,V)0 M(H,V)铂101 4500 :僊INE!% = VE砎11: (4)1 M(H1,VE)船99 M(H1,VE)铂200 EX1825 2:((H1)1218,VE1218)((H1)125,VE125),EX:扴L,0:"V"(60珽X2)獷X$:扚A,0:M(H1,VE)超200: EX% ? VE% D H23 V矲V LO2:扴L,0:"O1V22T8L4EECAACB":扚A,0% NOM砊M:OH砊H% X M(H,V)1 TM砊M1& b M(H,V)7 TM砊M2&$ g M(H,V)9 TM砊M4&B i TM0 TM60玊M:TH砊H1& l TH铂1 TM床OM 4:(34,7),OH:(36,7),OM:5:(34,7),TH:(36,7),TM& q(HO,VO)(HO13,VO13),17& v LO& 仸 4000& :僉ETS CALCULATE THE SCORE& 朵 0: 6: 3,5,U'B 绤 TH0 JT1 LV5 嚖11);"* Final Score *" : 嚖10);"Score for level";LV'N 束 3,5:'n 試"Mines on this level:"MM:' 轕P(MM琈L)10:SC砈C玃P :僃OUND' 鑷"Mines found:"MM琈L: 20,4: PP"points"' 騊P(ML琈R)5:SC砈C琍P :僃ALSE FLAGS( 鼑"False alarms:"ML琈R: 19,5: 7,5:"-"PP"points"(=PP矼L2:SC砈C琍P :僋OT FOUND(t 3,5:"Mines left:"ML: 19,6: 7,5:"-"PP"points"( EC EC50獿V5:SC砈C獷C($ EC 0,5:"Enemy camp destroyed:":20,7:嘐C"points"(.匤T1(8TI砊H60玊M)BTU砊I(DL120琇V60) :傾RE WE ON TIME?)6QTL$(TH)":"((TM),2,3))WV 3,5:0,9:"Time left:";TL$)d`SC砈C玊U)j TU0 7,5 : 3,5)t 20,9: TU"points")y TH0 LV矰L2 4610 :僋O TIME OR FINAL LEVEL)~ 3,5::嚖6);"Current total score:"SC*垁 A񼃽2: B񼃾3:M(B,A)0: B,A*<扡V矻V1:HG2:VG2:HO2:VO2*H渷 5040*}:嚖7);"Press any key to continue": 44539:A$*颁 2*簛 130*:僑HOW MINES*獉 Y񼃽2: X񼃾3*磪 M(X,Y)0 (X1212,Y1212)(X121,Y121),11+&緟 M(X,Y)14 (X1212,Y1212)(X121,Y121),16+1葖 X,Y+?尧 44539:+U:傿LASTED A MINE!+r濰X矵1218: HX0 HX0+╒X砎1218: VX0 VX0+矑SL,0:"V31"獷X$:扚A,0+紑 A1823:(HX,VX)(HX23,VX23),A:扴L,0:"V25"獷X$:扚A,0: A,-苺 A2123:(HX,VX)(HX23,VX23),A:扴L,0:"V20"獷X$:扚A,0:婣,n衻 A2125:(HX,VX)(HX23,VX23),A:扴L,0:"V15"獷X$:扚A,0:婣,趻SL,0: V122 2:"V"(V)獷X$: V:扚A,0,鋪 4000,頙T1,鴣 3500,:僂ND GAME, :-7 JT1 TH0 7,5:嚖8);"THE MISSION HAS FAILED" : 1,5:嚖6);"THE MISSION IS A SUCCESS"-a 3,5::嚖8);"The final score is"SC:-" A񼄁: SC睭S(A) 4644 : A-$ B4 ┈1:HS$(B1)矵S$(B):HS(B1)矵S(B): B.I* A6 嚖8)"You have a High Score!":"What is your name?";NA$:HS$(A)砃A$:HS(A)砈C:"O",#1,"SCORES.DAT": A񼄁:#1,HS$(A):#1,HS(A): A:#1./嚖14);"High Scores": A񼄁:嚖15((HS(A))));HS(A);" - ";HS$(A): A.4:嚖4);"Do you want to play again? (Y/N)".>A$.H A$"N" A$"n" 8000/ R A$床"Y" A$床"AB(9);"JOYSTICK (2)":PRINTTAB(9);"OR MOUSE (3)" 8740 A$=INKEY$:IF A$<"1" OR A$>"3" GOTO 8740 8750 JK=VAL(A$)-1 8760 PRINT:PRINTTAB(5);"SAVING CONFIGURATION" 8770 OPEN"O",#1,"CONFIG.INI":PRINT#1,CS:PRINT#1,JK:CLOSE#1 8999 RETURN 9000 POKE&HFFA2,&H3A:POKESL,0:ATTR 0,0:WIDTH 40:IF CS THEN PALETTE RGB ELSE PALETTE CMP 9010 PRINT"Minecamp, the next mission","by Diego Barizo, 2018":PRINT"www.yaccs.info / www.cocowares.com" 9020 ENDAAAAADDB!rtDDAAA"AAAwwA"AA32!A32!垐QQ垐AAAAA"AAB"""""B"""""DDD'"rtDDB"""""B"""""B"""""B"""""B"""""B"""""B"""""B"""""B"C3""B"C3""B"""""B"""""B"""""B"""""B"""""B"""""B""""* 32::1: 65497,0) 仴 90005仸 8500Z:嚖4);"DIFFICULTY LEVEL? (1-3)"zA$: A$"1" A$"3" 4DL(A$):嘆364,"GOT IT!" CS 覯"MINECAMP.RGB" : 覯"MINECAMP.CMP"2:A4851:&HFFA2,A覯"MINECAMP.SC"(A1)(婣2 &HFFA2,&H3A.Z仸 5000 :僔ARIBLESEd仸 5500 :僄RAPHICSi1:(72,128)(248,136),,BF:5:(9,16),"Press any key to begin"k 挸"" 仴 107n仸 7500 :僆NTROx#1:扚A,0侻R20獿V5:ML矼R:MM矼R:僊INES FLAGGED,LEFT AND MAX寔 6000 :僊AP#朅A1:EC0:(290,90),6,57爜 6500 :僊INESA狝$Q:僊AIN LOOPm译(HO,VO)(HO8,VO8),17軈 JK2 H((0)2.8)1:V((1)5.5)1鈪 JK1 仸 440鍴O矵G:VO砎G:HG矵1210:VG砎1210痃4:(34,7),TH:(36,7),(TM)%鷧 TH铂1 TM砊M.1: TM0 TM59:TH砊H1E TH0 TH0:TM0:7 : 5o(34,7),TH:(36,7),(TM):(36,7),":" HO床HG VO床VG (HO,VO)(HO8,VO8),17:(HG,VG)(HG8,VG8),17:"BM"(HG)","(VG)"C10BDD3R4U4L4F8UNH7DLH7"" LO񼃽0?, JK (0)1 仸 1000:(HG,VG)(HG8,VG8),17 :僆S THERE A MINE?h6 JK (1)1 1500 :働UT A FLAGr@A$E JK0 仸 400J A$" " A$(4) 1500T A$(13) A$(103) 仸 1000:(HG,VG)(HG8,VG8),17^ AA1 (A$"A" A$"a") 仸 2500$h A$"D" A$"d" 3000-r LO8|仴 220O:僈EYBOARD CONTROL殔 A$(8) H矵1 : A$(9) H矵1 : A$(10) V砎1 : A$"^" V砎1焻 H23 H23 : H1 H1 V12 V12 : V1 V1異:僇OYSTICK CONTROL3聟 (0)50 H矵1 : (0)14 H矵1`虆 (1)50 V砎1 : (0)14 V砎1謪 H23 H23 : H1 H1鄥 V12 V12 : V1 V1陳:僆S THERE A MINE?盱(HG,VG)(HG8,VG8),17騾 (M(H,V))99 "V16T16O1AFAF":+ M(H,V)0 仸 4500 :傿LASTED A MINEE 扴L,0:"O1"獴L$:扚A,0UC0:X矵:Y砎q$ A砐11: B砓11. B1 B8 B13 1120B A1 AL A24 1130V M(A,B)0 C矯1` B,Aj C0 Z0 1190(t X0 Y0 X24 Y13 1160 :僌UTSIDE VISIBLE MAP~ (M(X,Y))99 "BM"(X127)","(Y1210)"C5"玁$(C):"BM"(X1212)","(Y121)"C1U11R11"垍 Z1 拹渽 Z1 :僑HOW ALL AROUND癦1簚 CX矵11: CY砎11腃0:X"DDDDDBDDDDDBDDDDDBDDq'DDDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDDC3"BDDDDDBDDDDDBQQDDDDDBDDC3"BDDDDDBDX櫃匓DDDDDBDDDDDBDDDDDBDDB"""DDDDDDDDBAAADD"$DAAAAAA32AA垐ffff垐AA32AwwA垐AAADDD"DDDAAAADDG"BDAA!!AA!!AAC3"AA!!ffffffffAAC3"AwwAAA!!ADADDr"wDDDAAAADD$DDAAAAAA32!AA坔唸ffffa坔唸AA32!AqwAAAADDDGtDD$DDAAAADBDDDDAAAAAAC3"AAf垐fFfffaf垐f丄AC3"GwqrAAAADDDGDDDBDDAABADDDDDBAAAAAC3"AAh噚唩DDDDDh噚唩AAC3"GwrBBAADDD$DDD$DAAA!AA!AAAAA32AAh噚唩H垐垇h噚唩AA32Gwq!rA!A!AADDD$DDDDADAABABAAAAA32!AAf垐f垐垐f垐f丄A32!GwrBBAADDADDDDDAAAAAA!AA!AA32!AA!坔唸垐垐坔唸AA32!AwqAAA!ADDDDDDDDDDAAAAAAAAAA32AAff垐垐ffAA32AwwAAAADDDADDDDDAAAAAAAAAA32!AA垐QQ垐AA32!AwwAAAAAB"""""B"""""B"""""B"""""B"""""B"""""B"""""B"""""B"C3""B"""""B"""""B"""""B"C3""B"""""B"""""B"""""B"""""B"""""B"""""DDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDDC3"BDDDDDBDDDDDBDDDDDBDDC3"BDDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDDDDDBAAAAAAAAwwAAA32AA垐垐垐AA32AAAAAAAAAA!!AAAA!!AAwwA!!A!!AC3"AAffffffA!!AC3"AAAAAAAA!!AAAAAAAAqwAAA32!AA坔唸坔唸坔唸AA32!AAAAAAAAAAAAAAAGwqrAAAC3"AAf垐ff垐ff垐f丄AC3"AAAAAAAAAAAAAAAGwrAAAC3"AAh噚唩h噚唩h噚唩AAC3"ABABAABAAAAAAAAGwrrAAA32AAh噚唩h噚唩h噚唩AA32AA!AA!AAA!AAAAAAAAGwrAAA32!AAf垐ff垐ff垐f丄A32!ABABAABAAA!AAAA!AAwq'A!A!A32!AA坔唸坔唸坔唸A!A32!AAAAAAAA!AAAAAAAAwwAAA32AAffffffAA32AAAAAAAAAAAAAAAAwwAAA32!AA垐垐垐AA32!AAAAAAAADDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDDDDDBB"C3""DDDDDBDDDDDBDDDDDBB"C3""DDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDDDDDB换换睰换换睰换换睰换换睰换换睞AAA垐AA!!ffA!!AAAAAAKX梱叢K换换睰换换礫礫籙睰换换睰换换睰换换睰换换睰换换睰换换睰换换睞AA!!AffAA坔唸AAAAAAAK竪w嫴K换换睰换徊垐垐笀侹换徊睰换换睰换换睰换换睰换徊睰换换睰换徊睞AAA坔唸AAf垐f丄AAAAAAK(ww嫴K"换徊B换换墬y榅5B换换睰换换睰"换徊K"换徊B换换睰"换徊B换换睞AAAf垐f丄Ah噚唩ABBABABKX梱叢K+换膊K换换墂w榅5K换换睰换换睰+换膊K+换膊K换换睰+换膊K换换睟BAAh噚唩AAh噚唩AA!A!AA!AA!KX櫃叢K换换睰换换墂w榅5K换换睰换换睰换换睰换换睰换换睰换换睰换换睞!A!AAh噚唩AAf垐f丄BBABABK笀垕睰徊换睰换换墬y榅5K换换睰换换睰徊换睰徊换睰换换睰徊换睰换换睟BAAf垐f丄A!坔唸A!AAAAAAK籙U徊K换换睰换换垐垐笀侹换换睰换换睰换换睰换换睰换换睰换换睰换换睞AA!A坔唸AAffAAAAAAAK笀垕睰换换睰+换坏[礫籙睰+换徊K换换睰换换坔唸A!AAAAAAK籙U徊K换换睰换换垐垐笀侹换换睰换换睰换换睰换换睰换换睰换换睰换换睞AA!A坔唸AAffAAAAAAAK笀垕睰换换睰+换坏[礫籙睰+换徊K换换睰NR1"5N$(2)"LNGR2FDGL2GD2R4"5:N$(3)"LNGR2FDGFDGL2H"5R&N$(4)"G3DR4LNU4D2"5o0N$(5)"NR2L2D2R3FD2GL2H"5:N$(6)"NRLGD4FR2EUHL3"5DN$(7)"NL2R2DG4D"5NN$(0)"DRUL"5X 25b5p SHOW MAP6z 2: 4: 5: CS 1,55:2,52 : 1,52:2,376#凙$"Level:"(LV):(0,19),A$6F嶢$"Score:"(SC):(20,19),A$6v楢$"Mines in this level:"(MR):(0,21),A$6㈩(35,4),"Time":(35,5),"Left"6(76,107)(201,122),,B:(10,14),"Downloading map"6额(34,7),TH:(36,7),TM:(36,7),":"7李(0,22),"Mines flagged:"7O术"BM285,90C5RUE3R10FR2FRFBD2GLGL2GL10H3U2BR21U4NG3D10H3"7i詟 Y1 12: X1 237迏 M(X,Y)0 M(X,Y)1:SP(3)7鑵 M(X,Y)4 SP(3)37騾 M(X,Y)7 SP(2)67鼌 M(X,Y)9 SP(2)88 (X1212,Y1212)(X121 @K换换睰+换徊K换换睰+换徊AAAAffAA垐AAAAAAAKX垐叢K换换睟+换徊K换换睟+换徊K换换睰换换睰换换睟+换徊K换换睟+换徊AAAA垐AB"""""B"""""B"""""B"""""B"""""B"""""B"""""B"""""BX垐"B"""""B"""""B"""""B"""""B"""""B"""""B"""""B"""""B"""""B"""""B"""""B"""""B"""""B"""""B"""""DDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDH33凚DD32DBDDDDDBDDDDDBDDDDDBDDC3"BDDDDDBDDUUDBDDDDDBDDDDDBDDDDDBDDDDDBAAAAAAAwwAUUA32!AA垐垐垐AA32AK33嫴K换换睰换换睰换换K换换AAA!!A!!AAAwwAAC3!A!!AffffffAAC3"AKX垐叢K换换睰换换睰换换DDDDADDDDDK换换AAAAAAAqwAA32!AA坔唸坔唸坔唸AA32!AKX垐叢K换换睰换换睰换换DDDDADDDDK换徊AAAAAAGwqrAA32AAf垐ff垐ff垐f丄AC3"AK笀垕睰换换睰换换睰"换徊DDDDBDDDDDB换换BAADDDDDAABGwrAA32!AAh噚唩h噚唩h噚唩AAC3"BK籙U徊K换换睰换换睰+换膊DDDDGDDDDK换换A!AADDDDDAAA!GwqrAAC3!AAh噚唩h噚唩h噚唩AA32A!K笀垕睰换换睰换换睰换换DDADB$DADDK换换BAADDD$DDAABGwrAAC3"AAf垐ff垐ff垐f丄A32!BKX櫃叢K换换睰换换睰徊换DDB'"$tDDK换换AAA!DDDtDAA!AAAwqAAC3"A!A坔唸坔唸坔唸AA32!AKX梱叢K换换睰换换睰换换D"D"""DDDK换换AAADAD$AAAAwwAA32!AAffffffAA32AK竪w嫴K换换睰换换睰换换DDw!!"DADK+换徊AAAB$DAAAAwwAA32AA垐垐垐AA32!AK竪w嫴K换换睰换换睰换换DDB!rtDDB+换徊B"""""B"""""B"""""DA"DB"""""B"""""B"""""B"""""B"""""B$32""B"""""B"""""B"""""B"C3""B"""""BX梱"B"""""B"""""B"""""DDD'"rtDDB""""坔唸AAAAA!AAffAAAAAAA32!ADDDw!!r"'DDAAAA32AAAffAAAAAAA垐AAAAAAA32ADDGrwwr'DDAAAA32!AAA垐AAAAB"""""B"""""B"""""B"""""B"""""B"""""B"""""B"""""B"""""B$32""B"""""DDr"w"rr'DDB"""""B"""""B"""""B"C3""B"""""B"""""B"""""B"""""B"""""B"""""B"""""DDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDDC3"BDDDDDBDDr"wrw"wtDDDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDDDDDBAAAAAAAAAAA32AwwDDr""tDDAAA垐AAAAAAAAA!!AAAA!!AA!!AAA!!AC3"AwwDDGr!"wDDDAAA!!ffA!!AAA!!AAAAAAAAAAAAAAA32!AqwDDDGw"!tDDDAAA坔唸AAAAAAAAAAAAAAAAAAAC3"GwqrDDDDGw""wDDDAAAf垐f丄AAAAAAAABAAABAAAAAC3"GwrDADDtGwwDtDDAAAh噚唩AABABAABAA!AAAA!AAAAA32GwqrDDDDtDGDDDDDAAAh噚唩AAA!AA!AAA!ABAAABAAAAA32!GwrDDDBDDDDDD$DAAAf垐f丄ABABAABA!AAAA!AA!AAA!A32!AwqDDDDDDDDDDBDAAA!坔唸A!AAA!AAAAAAAAAAAAAAA32AwwDDD$DDDDDDDDAAAffAAAAAAAAAAAAAAAAAAA32!AwwDDDDDADADDDAAAA垐AAAAAAAAB"""""B"""""B"""""B"""""B"""""B"""""B"""""B"""""B"""""B"""""B"C3""B"""""DDDDDDDDDDDB"""""B"""""B"""""B"""""B"""""B"""""B"""""B"""""B"""""B"""""B"""""DDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDD32DBDDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDD32DBDDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDDDDDBK换换睰换换睰换换垐K换换睰换换睰换换睰换换睰换换睰换换睞32!AAA垐AAA32!AAAA垐AAAK换换睰换换睰换换ffK换换睰换换睰换换睰换换睰换换睰换换睞C3!AAA!!ffAAAC3!AAA!!AffA!!A!!AK换换睰换换睰换徊坔唸K换换睰换换睰换徊睰换徊睰换徊睰换换睞32!AAA坔唸AAA32!AAAA坔唸AAAK"换徊K换换睟换换f垐f並换换睰"换徊B换换睟换换睟换换睰"换徊A32AAAf垐f丄AA32AAAAf垐f丄AAK+换膊K换换睰换换h噚唩K换换睰+换膊K换换睰换换睰换换睰+换膊A32!BAAh噚唩BAA32!ABAAh噚唩AABK换换睰换换睰换换h噚唩K换换睰换换睰换换睰换换睰换换睰换换睞C3!A!AAh噚唩A!AAC3!AA!AAh噚唩AAA!K徊换睰换换睰换换f垐f並换换睰徊换睰换换睰换换睰换换睰徊换睞C3"BAAf垐f丅AAC3"ABAAf垐f丄ABK换换睰换换睰换换坔唸K换换睰换换睰换换睰换换睰换换睰换换睞C3"AAA!坔唸AAAC3"AAA!A坔唸A!A!AK换换睰换换睰+换徊ffK换换睰换换睰+换徊K+换徊K+换徊K换换睞32!AAAffAAA32!AAAAffAAAK换换睰换换睟+换徊垐K换换睰换换睟+换徊B+换徊B+换徊K换换睞32AAA垐AAA32AAAA垐AAAB"""""B"""""B"""""B"""""B"""""B"""""B"""""B"""""B"""""B$32""B"""""B"""""B"""""B"""""B"""""B$32""B"""""B"""""B"""""B"""""B"""""B"""""B"""""DDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDH垐凚DDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDDDDDBA垐AAAAAAAKX櫃叢K换换睰换换睰换换睰换换睰换换睰4%.0 &4,4,5,4,5,4,4,4L_獑 4,4,4,4,4,11,4,4,4,7,4,4,5,4,4,7,5,4,4,4,4,4,4,4L磫 4,4,4,5,4,4,11,11,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4L绝 0,0: 4,4,4,5,4K枂 4,4,4,11,4,5,7,11,11,4,11,11,4,4,11,4,4,4,5,4,4,4,4,4L(爢 4,4,5,4,11,EN RH=-NOT(-RH):IF RH=0 THEN IF SV>FV THEN RV=-1 ELSE RV=1 ELSE RV=0 4420 IF SV=FV AND SH=23 THEN RETURN 4430 SH=SH+RH:SV=SV+RV:M(SH,SV)=4 4440 GOTO 4390 4450 RETURN 4460 REM SETUP GRAPHICS 4470 FOR A=15 TO 22:HBUFF A,600:NEXT A:REM EXPLOSION 4480 HGET(84,144)-(107,167),15:HGET(24,156)-(47,179),16:HGET(252,132)-(275,155),17 4490 HGET(24,12)-(47,35),18:HGET(252,84)-(275,107),19:HGET(264,12)-(287,35),20 4500 HGET(36,84)-(59,107),21:HGET(144,12)-(167,35),22 4510 HBUFF 23,99 'CACHE 4520 FOR A=1 TO 14:HBUFF A,99:NEXT A 4530 HGET(0,12)-(11,23),1:HGET(0,0)-(11,11),2 4540 HGET(0,24)-(11,35),3:HGET(0,96)-(11,107),4 4550 HGET(12,96)-(23,107),5:HGET(24,96)-(35,107),6 4560 HGET(24,36)-(35,47),7:HGET(96,0)-(107,11),8 4570 HGET(168,0)-(179,11),9:HGET(180,0)-(191,11),10:HGET(48,12)-(59,23),11 4590 HGET(130,122)-(143,131),13:HGET(204,156)-(215,167),14 4600 N$(1)="DGE2D7NL2NR2" 4610 N$(1)="NG1D6NL1NR1" 4620 N$(2)="LNGR2FDGL2GD2R4" 4630 N$(3)="LNGR2FDGFDGL2H" 4640 N$(4)="G3DR4LNU4D2" 4650 N$(5)="NR2L2D2R3FD2GL2H" 4660 N$(6)="NRLGD4FR2EUHL3" 4670 N$(7)="NL2R2DG4D" 4680 N$(0)="DRUL" 4690 HCLS 2 4700 RETURN 4710 REM SHOW MAP 4720 HSCREEN 2:HCLS 4:HCOLOR 5:PALETTE1,55:PALETTE2,52 4730 A$="Level:"+STR$(LV):HPRINT(0,19),A$ 4740 A$="Score:"+STR$(SC):HPRINT(20,19),A$ 4750 A$="Mines in this level:"+STR$(MR):HPRINT(0,21),A$ 4760 HPRINT(35,4),"Time":HPRINT(35,5),"Left" 4770 HLINE(100,115)-(225,130),PSET,B:HPRINT(13,15),"Downloading map" 4780 HPRINT(34,7),TH:HPRINT(36,7),TM:HPRINT(36,7),":" 4790 HPRINT(0,22),"Mines flagged:" 4795 HDRAW"BM285,90C5RUE3R10FR2FRFBD2GLGL2GL10H3U2BR21U4NG3D10H3" 4800 FOR Y=1 TO 12:FOR X=1 TO 23 4810 IF M(X,Y)=0 THEN M(X,Y)=1:SP=RND(3) 4820 IF M(X,Y)=4 THEN SP=RND(3)+3 4830 IF M(X,Y)=7 THEN SP=RND(2)+6 4840 IF M(X,Y)=9 THEN SP=RND(2)+8 4850 HPUT(X*12-12,Y*12-12)-(X*12-1,Y*12-1),SP 4860 NEXT X,Y 4870 RETURN 4880 REM SET MINES AND CAMP 4890 X=RND(19)+2:Y=RND(10)+1 4900 FOR A=X-1 TO X+1:FOR B=Y-1 TO Y+1 4910 M(A,B)=-M(A,B) 4920 NEXT B,A 4930 M(X,Y)=14 4940 FOR A=1 TO MM-8 4950 FOR LO=1 TO 2 STEP 0 4960 X=RND(23):Y=RND @UUUQUQUQUQUQA!ADDUwTrWwTDDAAAf垐f丄ATDEEEDDr稤DTBAAAAA32!f垐f丄AAABAC3"ABADDEEEEwr'DDDAAA坔唸A!A!DGEuTUR淮TDDAAA!AAA32!坔唸A!A!AA!AAC3"A!AADDEuTUR'tTDDAAA!ffAADT籘TEG碪TTDAAAAAA32ffAAAAAA32!AAADDDTTEGtUTDDAAA垐AADDKDGDTG[碊DAAAAAA32!垐AAAAAA32AAADDDDGDTGTDDDAAAB"""""B"""""DED籇DD[籇DDB"""""B"""""B"""""B"""""B"""""B"C3""B"""""B"""""B"""""B"""""B"""""B$32""B"""""B"""""B"""""DDDDDDDTDDDDB"""""B"""""B"""""DDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDD32DBDDDDDBDDDDDADDDDDDDDDDDBDDDDDBDDDDDBDDC3"BDDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDDDDDBAAA垐AAAAAAA32!ADADDDDDDDDDAAAA32AAA垐AAAAADAAffAAAA!!AAAC3!A!!DDDDDADDDDDDA!!A!!AAC3"AA!!AffAAAAADDA"AA坔唸AAAAAAA32!ADDDDDDDDDDDAAAA32!AAA坔唸AAAAADDAAAf垐f丄AAAAAA32ADDDGDGwDDDDDAAAAC3"AAAf垐f丄AAABDDDBBh噚唩AAAABAA32!ADDDDw'tD$DDAABAC3"BAAh噚唩BAABBDAA!A!h噚唩AAAAA!AAC3!ADDDDw"'GDDDAAA!A32A!AAh噚唩A!AAA!ADDABBf垐f丄AAABAAC3"AD"DG"'!'tDDDAABA32!BAAf垐f丅AABAAA坔唸AAAA!AAAC3"A!DDtG"!wtDAA!A!AA32!AA!AU4NG3D10H3"8 葊 Y񼃽2: X񼃾38C覅 M(X,Y)0 M(X,Y)1:SP(3)8_軈 M(X,Y)4 SP(3)38{鎱 M(X,Y)7 SP(2)68饏 M(X,Y)9 SP(2)88(X1212,Y1212)(X121,Y121),SP8 X,Y88X:僑ET MINES AND CAMP9bX(19)2:Y(10)19 l A砐11: B砓1193vM(A,B)超M(A,B)9= B,A9K奙(X,Y)149Z攢 A1M89k瀫 LO񼃾 09╔(23):Y(12)9矃 M(X,Y)0 M(X,Y)14 LO29紜 LO:茀 (X1 Y睺V2 Y碩V2) (X23 Y睩V2 Y碏V2) 7070 :僋O MINES AT START OR END OF ROAD:.蠱(X,Y)超M(X,Y) :僑ET A MINE:6趮 A:<鋹:HL:僆NTRO:V40:5:"V1T48O1":0,23: CS 2,63: 1,59 : 2,37:1,52:`扴L,0:"I",#1,"INTRO.TXT":j LI 4,1:LI0 : 4,2:LI1:t (1)超1 44539:;~#1,T$: T$"1" 仴 7600;+圱$"o "玊$(36(T$)," ")" o":嘥$;;<拝 挻"" ;M溕"L56O1V24C";Y 7530;s癆$: A$"" 仴 7600;簠 A$"Y" A$"y" 7530;膮 A$"N" A$"n" ;蝸7600;@:僀ONFIGURATION AND HIGH SCORES;J:僌N ERR GOTO 8700< T"I",#1,"SCORES.DAT"<.^ A񼄁:#1,HS$(A):#1,HS(A): A<7h #1*藺$: A$"R" A$"r" CS1 : A$床"C" A$床"c" 8140 : CS0>l謬:嚖9);"KEYBOARD (1)":嚖9);"JOYSTICK (2)":嚖9);"OR MOUSE (3)">郃$: A$"1" A$"3" 仴 8160>闖K(A$)1>魢:嚖5);"SAVING CONFIGURATION">䴔"O",#1,"CONFIG.INI":#1,CS:#1,JK:#1> ?(!4&HFFA2,&H3A:扴L,0: 0,0: 40: CS : ?!>"Minecamp, the next mission","by Diego Barizo, 2018":"www.yaccs.info / www.cocowares.com" 8160>闖K(A$)1>魢:嚖5);"SAVING CONFIGURATION">䴔"O",#1,"CONFIG.INI":#1,CS:#1,JK:#1> ?(!4&HFFA 210餏(H,V)1-蹯(HG,VG)(HG8,VG8),23Q鷤 HPUT(HG-6,VG-6)-(HG+5,VG+5),4麄 HDRAW "BM"+STR$(HG)+","+STR$(VG+4)+"C7NL2NR2UNL3NR3U8D1R2DRDNRL2UD2" HGET(HG,VG)-(HG+5,VG+5),7 "BM"(HG)","(VG6)"C7E6RG7RE6FD3GDLGL3H3U3EURER3"750 ? 8&4,4,5,4,5,4,4,4^_獑 4,4,4,4,4,11,4,4,4,7,4,4,5,4,4,7,5,4,4,4,4,4,4,4^磫 4,4,4,5,4,4,11,11,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4^绝 0,0: 4,4,4,5,4]枂 4,4,4,11,4,5,7,11,11,4,11,11,4,4,11,4,4,4,5,4,4,4,4,4^(爢 4,4,5,4,11,B":扚A,0& vOM砊M:OH砊H&0 M(H,V)1 TM砊M1&I 妳 M(H,V)7 TM砊M2&b 攨 M(H,V)9 TM砊M4& 瀰 TM0 TM60玊M:TH砊H1& ▍ TH铂1 TM床OM 4:(34,7),OH:(36,7),OM:5:(34,7),TH:(36,7),TM& 察(HO,VO)(HO13,VO13),17& 紜 LO' 旗(264,V1210)(277,V123),13' 衼 4000'> :僉ETS CALCULATE THE SCORE'R 朵 0: 6: 3,5,U' 绤 TH0 JT1 LV矰L2 嚖11);"* Final Score *" : 嚖10);"Score for level";LV' 束 3,5:' 試"Mines on this level:"MM:' 轕P(MM琈L)10:SC砈C玃P :僃OUND(" 鑷"Mines found:"MM琈L: 20,4: PP"points"(J 騊P(ML琈R)5:SC砈C琍P :僃ALSE FLAGS( 鼑"False alarms:"ML琈R: 19,5: 7,5:"-"PP"points"(PP矼L2:SC砈C琍P :僋OT FOUND( 3,5:"Mines left:"ML: 19,6: 7,5:"-"PP"points"( EC EC50獿V5:SC砈C獷C)1$ EC 0,5:"Enemy camp destroyed:":20,7:嘐C"points")=.匤T1)M8TI砊H60玊M)xBTU砊I(DL120琇V60) :傾RE WE ON TIME?)LTL$(TH)":"((TM),2,3))V 3,5:0,9:"Time left:";TL$)`SC砈C玊U)j TU0 7,5 : 3,5)t 20,9: TU"points"*1~ TH0 LV矰L2 5000 :僋O TIME OR FINAL LEVEL*[堷 3,5::嚖6);"Current total score:"SC*拃 A񼃽2: B񼃾3:M(B,A)0: B,A*淟V矻V1:HG2:VG2:HO2:VO2* 5540*皣:嚖7);"Press any key to continue": 44539:A$*轰 2*膩 200+:僑HOW MINES+獉 Y񼃽2: X񼃾3+R磪 M(X,Y)0 (X1212,Y1212)(X121,Y121),11+緟 M(X,Y)14 (X1212,Y1212)(X121,Y121),16+葖 X,Y+尧 44539:+:傿LASTED A MINE!+濰X矵1218: HX0 HX0+╒X砎1218: VX0 VX0,矑SL,0:"V31"獷X$:扚A,0,P紑 A1823:(HX,VX)(HX23,VX23),A:扴L,0:"V25"獷X$:扚A,0: A,苺 A2123:(HX,VX)(HX23,VX23),A:扴L,0:"V20"獷X$:扚A,0:婣,衻 A2125:(HX,VX)(HX23,VX23),A:扴L,0:"V15"獷X$:扚A,0:婣-趻SL,0: V122 2:"V"(V)獷X$: V:扚A,0-鋪 4000- 頙T1:仸 3500-/:僂ND GAME-7拠:-渽 JT1 TH0 7,5:嚖8);"THE MISSION HAS FAILED" : 1,5:嚖6);"THE MISSION IS A SUCCESS"- SC0 SC0-傍 3,5::嚖8);"The final score is"SC:-簚 A񼄁: SC睭S(A) 5060 : A.*膧 B4 ┈1:HS$(B1)矵S$(B):HS(B1)矵S(B): B.螀 A6 嚖8)"You have a High Score!":"What is your name?";NA$:HS$(A)砃A$:HS(A)砈C:"O",#1,"SCORES.DAT": A񼄁:#1,HS$(A):#1,HS(A): A:#1/貒14);"High Scores": A񼄁:嚖15((HS(A))));HS(A);" - ";HS$(A): A/4鈬:嚖4);"Do you want to play again? (Y/N)"/>霢$/[鰠 A$"N" A$"n" 8500/} A$床"Y" A$床"y" 仴 5100/ :嚖4);"In which difficulty level? (1-3)"/A$: A$"1" A$"3" 5140/DL(A$)0(:5,10:"Let me reset a few things..."02SC0:JT00;< A񼃽3: B񼃾4:M(B,A)0: B,A0RF仸 5530: 2:仴 2000m|:僆NIZIALIZE VARIABLES0哛():FA65497:SL654960悓 M(24,13) :+100 IS FLAG, NEGATIVE IS MINE0歀V1:TH矰L2:TM60珼L200 A񼃽0獿V2 :僑ET ROCKS1甔(23):Y(12)1窶(X,Y)71#聥 A1.虪 20,11:謤 R񼃾1J郣H(21)11j陘 RV񼃽2:M(RH,RV)9: RV,R1鬝V(12):FV((LV3)2)(LV3)玈V: FV12 FV12 : FV1 FV11⺄V砈V:H1:V61 40,12EX$"O1L254FAEDEBFGECE":BL$"L254V24FV31FV24FFV20FV16FV12FV8FV4F"2)&RH1:SH0:RV02J0SH砈H玆H:SV砈V玆V:M(SH,SV)42: SH23 RH0: SV睩V RV超1:仴 5720 : RV0:仴 57202D SV矲V RV0:RH1:仴 56802N (3)1 RH超(琑H): RH0 SV睩V RV超1 : RV1 : RV03X SV矲V SH23 3b仴 56803l3)p:僑ETUP GRAPHICS3Oz A1825: A,600: A::僂XPLOSION3勲(36,156)(59,179),18:(276,156)(299,179),19:(144,108)(167,131),203庪(24,12)(47,35),21:(252,84)(275,107),22:(264,12)(287,35),234 橂(36,84)(59,107),24:(144,12)(167,35),254 80,14?瑎 A񼃽7: A,99: A :17 IS BUFFER4x峨(0,0)(11,11),1:(12,0)(23,11),2:(24,0)(35,11),34离(0,132)(11,143),4:(12,132)(23,143),5:(24,132)(35,143),64孰(0,12)(11,23),7:(0,24)(11,35),85"噪(120,0)(131,11),9:(204,0)(215,11),10:(0,36)(11,47),115n揠(142,146)(155,153),13:(110,144)(117,157),14:(230,156)(237,169),155桦(168,168)(179,179),165騈$(1)"DGE2D7NL2NR2"5麼$(1)"NG1D6NL1NR1"5N$(2)"LNGR2FDGL2GD2R4"5N$(3)"LNGR2FDGFDGL2H"6 N$(4)"G3DR4LNU4D2"6'$N$(5)"NR2L2D2R3FD2GL2H"6B.N$(6)"NRLGD4FR2EUHL3"6X8N$(7)"NL2R2DG4D"6iBN$(0)"DRUL"6uL 100,16{V6d:僑HOW MAP6n 2: 4:5: CS 1,55:2,52 : 1,52:2,376xA$"Level:"(LV):(0,19),A$7侫$"Score:"(SC):(20,19),A$71孉$"Mines in this level:"(MR):(0,21),A$7S栴(35,4),"Time":(35,5),"Left"7犼(76,107)(201,122),,B:(10,14),"Downloading map"7(34,7),TH:(36,7),TM:(36,7),":"7搭(0,22),"Mines flagged:"8 觉"BM285,90C5RUE3R10FR2FRFBD2GLGL2GL10H3U2BR21PF(1,C$,(DF$(A),8))8(4 PF0 X8<>(C$,PF,1)砈N$8\HA$(C$,128):B$(C$,127)8oR D,17,X,A$,B$8}\ 65497,08f仴 5108B: BACKUP8L 0,22:嘊L$;BL$;: 0,22:"Backup drive"D" to (0 -"ND" or F0 to F3 for floppy drives)";: BD$91Q BD$巢"F0" BD$"F4" :BD((BD$,1)):仴 75209lVBD(BD$): BD睳D (BD1 BD$床"0") BE$:仴 75009`"Ready to backup"D" to"BD" (Y/N)";9jA$: A$"" 75309t A$床"Y" A$床"y" BE$:仴 5209y仸 10000:~ 65496,0: D BD: 65497,0:垇 10010:拋 520:H@ 0,22:"File exists, verwrite?": BE$:ZT X0 1 0:r^A$: A$"" X:h A$床"O" 仸 2000:仴 520:r 65496,0: DF$: 65497,0:仴 5120:#(: ERROR TRAPPING:#2EN:EL: BE$:#7:#< EN33 8000 ;(#A EL1002 "DRIVE"D"NOT READY":仴 9080;^#F EN20 "I/O ERROR IN THE FILE "FI$(A):仴 9080;#d"UNEXPECTED ERROR #"EN" IN LINE"EL;#n"MAY BE A 'FILE NOT FOUND'?"<#x"PRESS ANY KEY TO TRY AGAIN, A NUMBER TO CHANGE THE CURRENT DRIVE, OR TO USE THE HARD DRIVE"<'#侫$: A$"" 9090 21,10: 3,2:"Not enough space to install X-FILER";: 0,7=+@"Atempt to upgrade an already installed XF.BAS (Y/N)?": BE$=+C LO0 1 0:A$: A$"" LO=+H A$床"Y" 仴 520>+R 65496,0: "XF.BAS": 65497,0>$+\仴 11000>dN*: 7,20: 6,18: 9,0: 11,63: 2,2>yN4VR$"3.5.090310">蔔>BL$(79," "):CP442849:ND(&H150):D(235): (&HD934)200 SI1:DO1>蠳剱?u0 0,7::"Thanks for using X-Filer V."VR$: "XF.BAS": 65497,0>$+\仴 11000>dN*: 7,20: 6,18: 9,0: 11,63: 2,2>yN4VR$"3.5.090310">蔔>BL$(79," "):CP442849:ND(&H150):D(235): (&HD934)200 SI1:DO1>蠳剱?u0 0,7::"Thanks for using X-Filer V."VR$:47,179),16:(252,132)(275,155),17@f氹(24,12)(47,35),18:(252,84)(275,107),19:(264,12)(287,35),20@る(36,84)(59,107),21:(144,12)(167,35),22@ 23,99 :僀ACHE@竴 A1 14: A,99: A@码(0,12)(11,23),1:(0,0)(11,11),2A屉(0,24)(11,35), 1 0 NECAMP.CMP"*2:A&H30 &H33:&HFFA2,AI覯"MINECAMP.HR"(A&H2F)P(婣b2 &HFFA2,&H3Ar< 仴 8000F LO1 2 0:A$: A$"" LOP 196,1: 65497,0Z仸 5000 :僔ARIBLESd仸 5500 :僄RAPHICSn仸 7500 :僆NTROx#1:扚A,08侻R20獿V5:ML矼R:MM矼R: MINES FLAGGED,LEFT AND MAXJ寔 6000 :僊APf朅A1:EC0:(290,90),6,5{爜 6500 : MINES狝$葌 MAIN LOOP译(HO,VO)(HO8,VO8),23蹾((0)2.8)1:V((1)5.5)1鍴O矵G:VO砎G:HG矵1210:VG砎1210!痃 4:(34,7),TH:(36,7),(TM)O鷧 TH铂1 TM砊M.1: TM0 TM59:TH砊H1} 5:(34,7),TH:(36,7),(TM):(36,7),":" HO床HG VO床VG (HO,VO)(HO8,VO8),23 HO床HG VO床VG (HG,VG)(HG8,VG8),23:"BM"(HG)","(VG)"C10BDD3R4U4L4F8UNH7DLH7"" LO1 10a, (0)1 仸 1000:(HG,VG)(HG8,VG8),23 : IS THERE A MINE?6 (1)1 1500 : PUT A FLAG@A$J A$" " 1500T A$(13) 仸 1000^ AA1 (A$"A" A$"a") 仸 2500h A$"D" A$"d" 3000r LO|仴 220)鑲 IS THERE A MINE?E盱(HG,VG)(HG8,VG8),23m騾 (M(H,V))99 "V16T16O1AFAF":~"O1L8T64AF" M(H,V)0 仸 4500 : BLASTED A MINEC0:X矵:Y砎$ A砐1 X1: B砓1 Y1. B1 B8 B13 1120 B A1 AL A24 11302V M(A,B)0 C矯1<` B,ASj C0 Z0 1190t X0 Y0 X24 Y13 1160 : OUTSIDE VISIBLE MAP~ (M(X,Y))99 "BM"(X127)","(Y1210)"C5"玁$(C):"BM"(X1212)","(Y121)"C1U11R11" 垍 Z1 拹渽 Z1 5 SHOW ALL AROUND=癦1_簚 CX矵1 H1: CY砎1 V1y腃0:X矯X:Y矯Y:仸 1060螊 CY,CX豘0鈵軅 PUT A FLAG鎱 (M(H,V))99 仸 2000:仴 220餗(H,V)矼(H,V)100(M(H,V)) : ADD 100 OR -100 TO FLAG(HG,VG)(HG8,VG8),23^ "BM"(HG)","(VG6)"C7E6RG7RE6FD3GDLGL3H3U3EURER3"z(HG,VG)(HG8,VG8),23"V16O1T32EFE"" 4:(14,22),MM琈R,MR矼R1: 5:(14,22),MM琈R6 M(H,V)0 ML矼L1@ MR0 "V16O1T8FCFCFC"J&, 2500: EX(72),FI$(72),DF$(72),AF(72)&9仸 20000&L( 80: 65497,0&]F 仴 30000&mP 仴 9000&Z &HE649,&H10&緬 55232,0: 55318,20: 55138,2: 55455,65: 55456,66&䜩 1000 ' 0,22:"nstall ize ";: SI "ard drive ackup ormat" : '"oad opy ove elete ename ndelete Lbel";: SI " Drie <0-9>"; : " Drive <0-3>";'& DO " HARD D."; : " FLOPPY";'0U$: U$"" 560': U$"U" 仴 7000(D U$"/" U$":" SI U$"4" D(U$):仴 510 : BE$(5N U$"B" SI 仴 7500(OS U$"H" SI 仴 3500(cX U$"L" 4000(w] U$"S" 4500(b U$"C" U$"R" 5000(g U$"A" 2500(l U$"M" 5000(q (U$)3 30000(v U$"D" 6000({ U$"I" 11000) U$"F" SI 6500)S厖 SI U$"V" DO :DO0:仴 520 : :DO1:仴 520)d奤$"":仴 560)桉 25,4: 3,2:"Reading the disk in drive"D;: 0,7)晗 D: 65496,0: D,17,17,A$,B$: 65497,0*霤$矨$(B$,127):L(1,C$,(0)):LB$(C$,L): LB$"" LB$"UNNAMED"* 騀C0:DF0*/鼆 X3 11*V 65496,0: D,17,X,A$,B$: 65497,0*k$C$矨$(B$,127)*y. A0 7*8FI$(C$,A321,11)*B ((FI$,1))255 A8:X12:仴 1140*LFC矲C1*VEX(FC)((C$,A3212,1))+ [AF(FC)((C$,A3213,1))+-`FI$(FC)(FI$,8)"."(FI$,3)+ej ((FI$,1))0 DF矰F1:DF$(DF)矲I$(FC):FC矲C1+ot A,X+u袨+趪"Disk "(LB$,60)" in drive"D,,VR$: FC"files,"DF"deleted. "(D)"free granules":+* FC0 "There are no files":,> A1 FC,#H 1,6: FI$(A);: 0,7:" ";,9R (A5)矨5 ,A\ A,Gf, 鸟 0,22::嘊L$;: 0,22:"The current label of the disk in dirve"D" is "LB$, 位 "Type the new label:";LB$- 谻$矻B$(0):C$矯$(255(C$),(255)):A$(C$,128):B$(C$,127)(255)-0 鈷 65496,0: D,17,17,A$,B$: 65497,0-C 靵 2000:仴 520-J :-Y 耇F$"":A1-k 虁 X0 1 0- 謪 A1 A1 : A睩C A矲C- 郈V((A1)5)- 犋 1,6- 0 CP,6- :CH矨񦢿瑿V- DCP442849獵V160獵H30- N CP,4- S 0,7. X 0,22:: BL$;.. l 0,23:"Which file? ";: FI$(A),.l n EX(A)2 "M.L."; : EX(A)3 "Text"; : "Basic";. v AF(A)0 " - Binary"; : " - ASCII";. LO0 1 0. 夾$: A$"" LO. 攨 A$(13) . 瀰 A$(94) A矨5: X/ ▍ A$(10) A矨5: X/. 矃 A$(8) A矨1: X/I 紖 A$(9) A矨1: X/_ 茀 A$(12) 520/n 蠺F$砊F$獳$/} 趢 Z1 FC/ 鋮 (FI$(Z),(TF$))砊F$ A砕 :仴 3030/ 顙 Z/ 鳷F$"": BE$:仴 3210/ : HARD DRIVE'S VIRTUAL DISKS0h  0,22: "Drive to read (0 -";ND;")";: D$: D$"" 520 : HD(D$): HD睳D HD0 BE$:仴 3500 : D矵D: :仴 5100o:0{獊 30000磼 65496,00緢 EX(A)1 仸 4050,4130,4060,41300葋 40100意 32: FI$(A),R0茆 32:覯 FI$(A)0鎾 65497,00 801"File "FI$(A)" loaded"1G"Press any key to continue": 44539:仸 2000:1, 23,23: 3,2:"WRONG FILE TYPE";: 0,7: BE$: 4453916TF$"":仴 6401: FILE SIZE1攣 30001瀿 65496,0: "D",#1,FI$(A),11 #1,A$1‵B(1):GC(FB2304)12 矚 #1: 65497,02%糉B(FB10.24)1002p铖 0,22:"The size of the file "FI$(A)" is "FB"Kb ("GC"granules)":嘊L$;2 BE$: 44539:仴 5202: COPY/RENAME2渷 30002榜 0,22::嘊L$;2厚 0,22:"Destination file? ";2炕 DF$:NL(DF$)3繢P(1,DF$,":")3T羺 (NL12 DP0) DP13 3,2:"Filename is too long";: BE$:仴 50403膮 (DF$,2)"*:" DF$矲I$(A)(DF$,2,NL)3螀 NL0 仴 5203: EXPAND FILE NAME3釫P(1,DF$,"."): EP0 EP(1,DF$,"/"): EP0 DF$矰F$".":EP砃L14.霥F$(DF$,EP1)(9珽P," ")(DF$,EP,(DF$))4W鲴 35,10: 3,2,B:"WORKING...";: 0,74e 65496,04 U$床"R" FI$(A) DF$ : FI$(A) DF$:FI$(A)矰F$4 65497,04 U$"M" 仸 6080 42仴 5104p: DELETE4z仸 30005-庱 0,23:"REALLY DELETE ";: 1,6,U:嘑I$(A);: 0,7:" (Y/N) ?";5F榾 LO0 1 0:A$5Y A$"N" 5205m瑓 A$"Y" LO15v秼 LO5粎 U$"D" 30,10: 3,2,B:"DELETING "FI$(A);: 0,75罀 65496,0: FI$(A): 65497,0:仴 5105Z: FORMAT6d 21,10: 3,2:"REALLY FORMAT THE DISK IN DRIVE"D"?";6ZnA$: A$"" 6510 : A$"Y" A$"y" 仸 10000: D6ex仴 5106lX:6b DF0 BE$:仴 6406v:"WARNING - Undelete works only with 1 granule files":"DELETED FILES IN DRIVE"D:7瀫 A1 DF: 1,6: DF$(A);: 0,77▏ " ";7#璅I$(A)矰F$(A)79矃 (A5)矨5 7A紜 A7K艶C矰F7W衼 30007漶 0,23:"First letter for the file?";7顎 LO0 1 0:SN$: SN$床"" LO17鴭 LO7 X3 117 65496,07 D,17,X,A$,B$7 C$矨$(B$,127)8*+ 32::1: 65497,0) 仴 85005仸 8000Z(:嚖4);"DIFFICULTY LEVEL? (1-3)"{2A$: A$"1" A$"3" 50 V12 V12 : V1 V1H:僇OYSTICK CONTROL巺 (0)50 H矵1 : (0)14 H矵1C槄 (1)50 V砎1 : (0)14 V砎1d H23 H23 : H1 H1瑓 V12 V12 : V1 V1稅:僆S THERE A MINE?蜢(HG,VG)(HG8,VG8),17鼌 (M(H,V))99 "V16T16O1AFAF": M(H,V)0 仸 4500 :傿LASTED A MINE(扴L,0:"O1"獴L$:扚A,08C0:X矵:Y砎T$ A砐11: B砓11d. B1 Bv8 B13 1120B A1 AL A24 1130V M(A,B)0 C矯1` B,Aj C0 Z0 1200 t X0 Y0 X24 Y13 1170 :僌UTSIDE VISIBLE MAPy~ (M(X,Y))99 "BM"(X127)","(Y1210)"C5"玁$(C):"BM"(X1212)","(Y121)"C1U11R11"垍 Z1 掚(HG,VG)(HG8,VG8),17湊:僑HOW ALL AROUND篫1膧 CX矵11: CY砎11蜟0:X矯X:Y矯Y:仸 1060 貗 CY,CX鈀01祀(HG,VG)(HG8,VG8),17:B:働UT A FLAGe鎱 (M(H,V))99 仸 2000:仴 520餗(H,V)矼(H,V)100(M(H,V)) :傾DD 100 OR -100 TO FLAG(HG,VG)(HG8,VG8),17"BM"(HG)","(VG6)"C7E6RG7RE6FD3GDLGL3H3U3EURER3"(HG,VG)(HG8,VG8),170扴L,0:"O2"獴L$:扚A,0F"4:(14,22),MM琈Rd,MR矼R1:5:(14,22),MM琈R}6 M(H,V)0 ML矼L1@ MR0 "V16O1T8FCFCFC"J仴 520:僀LEAR A MINE阽4:(14,22),MM琈R銶(H,V)矼(H,V)100(M(H,V)):MR矼R1铉5:(14,22),MM琈R鴧 (M(H,V))1 SP(3) : (M(H,V))4 SP(3)3 : (M(H,V))7 SP(2)6 : (M(H,V))9 SP(2)8(H1212,V1212)(H121,V121),SP (HG,VG)(HG8,VG8),17 :僑TRIKE  螀 H23 H1252 : H1矵1212 # 貐 V1 V10 : V1砎1224 B 鈪 H1 H20 : H2矵1224 d 靺 V12 V2120 : V2砎1212 r 鰢: SP,FP 扴L,0:"V31"獷X$:扚A,O EX1823:(H1,V1)(H123,V123),EX:(H2,V2)(H223,V223),EX 扴L,0:"V25"獷X$:扚A,0: EX  EX2125!7 ((H1,V1)(H123,V123),EX:(H2,V2)(H223,V223),EX!W 2扴L,0:"V20"獷X$:扚A,0: EX! <扴L,0: VO162 2:"V"(VO)獷X$: VO:扚A,0! F5:(H126,V126),18,5:(H126,V126),11,5! P X矵11: Y砎11"o Z M(X,Y)0 (X1212,Y1212)(X121,Y121),11: M(X,Y)铂99 4:(14,22),MM琈R:ML矼L1:MR矼R1:5:(14,22),MM琈R:M(X,Y)超111 : M(X,Y)超111"y d Y,X" n匨(H,V)14ъ(H1212,V1212)(H121,V121),16:EC1" xAA矨A1: AA0 (290,90),7,5" 傠(HG,VG)(HG8,VG8),17" 寪# :僁RIVING THE TRUCK#, 蚂(HG,VG)(HG8,VG8),17#C 蘃1:V砊V:TM(TM)#T 謤 LO񼃾 0#| 郒G矵1214:VG砎1212: HG0 HG0# 觌 (HG,VG)(HG13,VG13),17$ 魠 A$"^" (HG4,VG)(HG11,VG13),15 : A$(10) (HG4,VG)(HG11,VG13),14 : (HG,VG2)(HG13,VG9),13$7 䜣 DO񼃾 0:A$: A$"" DO$G HO矵G:VO砎G$b  A$"^" V1 V砎1$  A$(10) V12 V砎1$ & A$(8) H1 H矵1$ 0 A$(9) H23 H矵1$ : M(H,V)0 M(H,V)铂110 4500 :僊INE!% D VE砎11: VE2 VE2% NHE矵1: HE2 HE2% X (4)1 H1 M(H1,VE)船99 M(H1,VE)铂200 EX1825 2:(HE1218,VE1218)(HE125,VE125),EX:扴L,0:"V"(60珽X2)獷X$:扚A,0:M(H1,VE)超200: EX% b VE& l H23 V矲V LO2:扴L,0:"O1V22T8L4EECAAC @DDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDD32DBDDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDDC3"BDDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDDDDDBAAAAAAAAAAA32!AAAAAAA32AAAAAAAAAAA!!A!!AAAAAA!!AC3!AAAAAAAC3"AAA!!AADAAAAAAAAAAAAAA32!AAAAAAA32!AAAAADDA"AAAAAAAAAAAAAA32AAAAAAAC3"AAAAADDAAAABAAAABBBBAA32!AABAABAC3"AAAABDDDAAAA!AAAAA!A!A!A!AAC3!AAA!AAA!A32AAAABDAAAABAAAABBBBAAC3"AABAABA32!AAAAADDAAAAAAA!A!AAAAAA!AC3"AAAAAAA32!AAA!AAAAAAAAAAAAAAAA32!AAAAAAA32AAAAA!AAAAAAAAAAAAAA32AAAAAAA32!AAAAAAAAB"""""B"""""B"""""B"""""B"""""B"""""B"""""B"""""B"""""B"""""B$32""B"""""B"""""B"""""B"""""B"""""B"""""B"C3""B"""""B"""""B"""""B"""""B"""""B"""""B"""""B"""""DDDDDBDDDDDBDBDDDD$DDDDDDDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDD32DBDDDDDBDDTUDDDDDDDDDDDDDBDDDDDBDDDDDBDD32DBDDDDDBDDDDDBDDDDDBDDDDDBDDTUDDDDDDDDDDDDDBDDDDDBAADDDDDDwDDDBDAAAAA垐A32!AKDEDE磚UDtGTAAAA32!AAAADDDDDDuUDtGDAAADADDDDDwwTDDDDAAAAAffAC3!ADKGDE坏换tDDAAAAC3!AAAADEGDEuUUUtDDAAADDA"ADDDDDrwDDDDAAAAA坔唸A32!ADDG籘DDtD碐tAAAA32!AAAADDGDTrUwTTGtAAADDAADDDWG%r%tDDDAAAAAf垐f丄32AKD{WDET$DTDDAAAA32AAAAGDtWW%R%tTDDAABDDDB$DEwwW'u$DDAAAAAh噚唩A32!BDG籇DDDDtEDtBBAA32!BAAADGEuUW$'u%DtAABDAA!DDGrw""'WDUDAAAAAh噚唩AC3!A!DDGDEUDTGDUDA!A!AAC3!A!AAADDGEUUUWWDUDAAADDABD"Gr!"'uwwDAAAAAf垐f丄C3"BDuWDDDGUDT{DBBAAC3"BAAADuWR$twUuUwDAAAADDuq'wr"wW"tAAAAA坔唸AC3"AETtt碊TDD碖碅AAAC3"AAAAETut'tR'wURTAAA!ADGwwuU'r"urtAAAAAffA32!A礒tDDDtDD碋籄AAA32!AAAAUEwwUEtWttUTAAAADw'ruwwr'RwAAAAA垐A32A籾DKKGtwD碊{AAAA32AAAATuWwTwtwrwUuAAB"""""B"""""Dr!wu"rr"RtB"""""B"""""B"""""B"""""B"""""B$32""B"""""[DK稥KGDD{DuB"""""B"""""B"""""B$32""B"""""B"""""B"""""B"""""TER'EuwBrwEuB"""""B"""""DDDDDBDDDDDBGrQ"rwrw"uwTDDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDDC3"BDDDDDB籘DGEDUTD{tUDDDDDBDDDDDBDDDDDBDD32DBDDDDDBDDDDDBDDDDDBWUTGuWUWEuuUDDDDDBDDDDDBAAGrQ"w"!wwDAAAAAAA32AKtDDDGDDD{TtAAAA32!A垐AAGuWwuWEUEwUtAAADDDAGrq"!"'wUDDAAAA!!A!!AAC3"A[碐DDDK籇籇TADDDAAAC3!AffAAWuGGEUtWuUDTA!!ABDDDADwrw"!"wTDDAAAAAAA32!ADTGwtD籇K碊DBDDDAAA32!A坔唸AADWwwwuGwWTTDAAADDBADER!q"wTDDAAAAAAAC3"AEDDDDDDDGDDDADDBAAA32Af垐f丄 攘!"#%&1)*+,-.钠破MC2 BASR2 BASXF BASR3 BAS'C1 BAS7C2 BASGRAPHS BAS(?MINECAMPRGBC3 BAS<INECAMPPAL1CONFIG INI'MINECAMPCMPMINECAMPSC1 TEXTER BAS0SCORES DAT69MINECAMPSC2$ INTRO TXT/MINECAMPSC3 ETA14 BAS7MINECAMPSC4 ETA16 BAS?Minecamp2AEER$%wwuGTDDAAADD$DADDGwwuWwrtDDAAAAAAAC3"ADDDTTtDGDDEDADD$DABA32!Ah噚唩BADDGUWuUwrtEDAAAD$DDABDDwTr%WwDDDAAAAAAA32AGT籇DDDDGTDDAD$DDAA!AC3!Ah噚唩A!AGTUuTr%DwTDDAABDDDA$DDEDEw"'DDDAAAAAAA32!ATK碋DDDt稤DTBDDDABAC3"Af垐f丅ADDEEEEwr'DDTAADD$"ADDDDDDR'tDDDAAAA!A!AA32!ADKE{椿D碊TDDDD$"AAAC3"A坔唸AADGEuTUR'tTDDA!AD!"ADDD$DDGtDDD$AAAAAAA32ADT籘碖G碊TTDD!"AAA32!AffAADTDTTEGtUTTDAAAADDBDDDDD$DDBAAAAAAA32!ADDKDGDTGTDDDAAAA32A垐AADDDDGDTGTDDDAAB"""""B"""""DD$DDBDDDDDDB"""""B"""""B"""""B"""""B"""""B"""""B"C3""B"""""DED籇DDDDDDDB"""""B"""""B"""""B$32""B"""""B"""""B"""""DEDDDDDTDDDDB"""""B"""""DDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDD32DBDDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDDC3"BDDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDDDDDB垐AAAA垐AAAAA32!AAAAAAA32AAAAAAAAffAA!!A!!A!!ffAAA!!AAC3!ADDDAAA!!A!!AAC3"AADAAAAA!!A!!坔唸AAAA坔唸AAAAA32!BDDDAAAAAA32!AADDA"AAAAAAf垐f丄AAAf垐f丄AAAA32ADDBAAAAAAC3"AADDAAAAAAAh噚唩BAA"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""BAAh噚唩A!AA"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""A!AAf垐f丅AA!"BAA坔唸AA!A"!烫塘烫塘烫塘烫塘烫烫烫烫烫烫烫烫烫塘烫烫塘烫塘烫烫烫烫烫"AA!A!ffAAA!ww|莣w莣w莣www|ww|莣wwww|莣wwwwww莣www|莣w莣w蘷wwwwww"AAA垐AAA!ww|莣w莣w莣www|ww|莣wwww|wwwwwwwwwww|ww|莣w莣w蘷wwwwww|"AAAB"""""B"""""B""""!ww|橇乔ww莣w莣w塘ww|ww|莣wwww|莣wwwwwww莣wwwww|橇乔ww莣w蘷wwwwwww"""B"""""B"""""B"""""DDDDDBDDDDDBDDDDDBDDDDB!ww|莬w莣w莣w莣w塘ww|ww|莣wwww|wwwwwwwww莣wwwww|莬w莣w莣w蘷wwwwwww|"DBDDDDDBDDDDDBDDDDDBAAAA!ww|莬w莣w莣w莣w蘾ww|ww|莣wwww|莣wwwwwwwwwwwww|ww|莬w莣w莣w蘷wwwwwww|"AAAAAAA!ww|莣莣莣w莣w莣w蘾ww|ww|烫烫烫莣www烫烫塘莣wwwwwww|莣莣莣w莣w烫烫烫www|"AAAAAAA!ww|莣|ww|莬w莣w莣w蘷wwwwwww|"AAAAAAA!ww|莣莣莣w莣w莣w蘾ww|ww|烫烫烫莣www烫烫塘莣wwwwwww|莣莣莣w莣w烫烫烫www|"AAAAAAA!ww)));HS(A);" - ";HS$(A):NEXT A 4660 PRINT:PRINTTAB(4);"Do you want to play again? (Y/N)" 4670 A$=INKEY$ 4680 IF A$="N" OR A$="n" THEN 8000 4690 IF A$<>"Y" AND A$<>"y" THEN GOTO 4670 4692 PRINT:PRINTTAB(4);"In which difficulty level? (1-3)" 4694 A$=INKEY$:IF A$<"1" OR A$>"3" THEN 4694 4696 DL=VAL(A$) 4700 CLS:LOCATE5,10:PRINT"Let me reset a few things..." 4710 SC=0:JT=0 4720 FOR A=1 TO 13:FOR B=1 TO 24:M(B,A)=0:NEXT B,A 4730 GOSUB 5030:HSCREEN 2:GOTO 130 5000 REM INIZIALIZE VARIABLES 5010 R=RND(-TIMER):FA=65497:SL=65496 5020 DIM M(24,13) ' +100 IS FLAG, NEGATIVE IS MINE 5030 LV=1:TH=DL*2:TM=60-DL*20 5040 FOR A=1 TO 10+LV*2 ' SET ROCKS 5050 X=RND(23):Y=RND(12):H=1:V=6 5060 M(X,Y)=7 5070 NEXT A 5080 FOR R=1 TO 2 5090 RH=RND(21)+1 5100 FOR RV=1 TO 12:M(RH,RV)=9:N @ww莣w莣w莣w蘷ww|ww|莣ww|wwwwwww|ww|莣|ww莣w莣w莣w|"AAAAAAA!ww|莣|ww莣w莣w莣w蘷ww|ww|莣ww莣wwwwwwwww|莣|ww莣w莣www|"AAABAAA!ww|莣w莣w莣w莣w莣w蘷|ww|ww|莣w|wwwwwwwww|ww|莣w莣w莣w莣w莣|"AAAA!AAA!ww|莣w|www莣w莣w莣w蘷|ww|ww|莣w|wwwwwwwww|ww|莣w|www莣w莣w莣|"AAABAAA!ww|ww|ww|莣w莣w莣w蘷www|ww|莣w|莣www糖wwwwww|ww|ww|莣w莣w莣|"AAAAAAA!ww|www莣w|莣w莣w莣w燎www|ww|莣w|wwww|wwww|ww|www莣w|莣w莣w莣|"AAAAAAA!ww|莣wwww燎ww莣w莣w燎w|ww|ww|莣w|wwww莣ww|ww|莣wwww燎ww莣w莣|"AAAAAAA!ww|wwww|莣w莣w莣ww|ww|ww|莣w|www|www|ww|wwww|莣w莣www|"AAAB"""""B"""""B"""""B""""!ww|wwww|莣w莣w莣ww|ww|ww|烫烫烫莣w|www莣w|ww|wwww|莣w莣w莣w|"""B"""""B"""""B"""""DDDDDBDDDDDBDDDDDBDDDDB!ww|莣ww莣w莣w莣w莣ww|ww|莣wwww|莣w|ww|ww|ww|莣ww莣w莣w烫烫烫www|"DBDDDDDBDDDDDBAAAA!ww|ww|莣w莣w莣w莣ww|ww|莣wwww|莣w|ww|烫烫烫ww|ww|ww|莣w莣w蘷wwwwwww|"垐AAA!!A!!AA!ww|ww|莣w莣w莣ww|ww|ww|莣wwww|莣w|ww|莣www|ww|ww|ww|莣w莣w蘷wwwwwww|"ffAAAAAA!ww|莣莣w莣w莣ww|ww|ww|莣wwww|莣w|ww|莣www|ww|ww|莣莣w莣w蘷wwwwwww"坔唸AAAAAA!ww||莣w莣w莣w莣ww|ww|莣wwww|莣w|ww|莣www|ww|ww||莣w莣w蘷wwwwww|"f垐f丄AAABA!ww||莣w莣w莣w莣ww|ww|烫烫烫莣w|ww|莣www|ww|ww||莣w莣w蘷wwwwww"h噚唩AAAAA!A!ww|莣w莣w莣ww|ww|ww|莣w|ww|莣www|ww|ww|莣w莣w烫烫烫烫"!h噚唩AAAABA!ww|莣w莣w莣ww|ww|ww|莣w|ww|烫烫烫ww|ww|莣w莣w"f垐f丄AA!A!AA!ww|莣w莣w莣www蘷w|ww|莣w|ww|ww|ww|莣w莣w"坔唸AAAAAA!ww|莣w莣w莣w莣蘷w|ww|莣w|ww|ww|ww|莣w莣w"ffAAAAAA!ww|莣w莣w莣w莣|ww|ww|莣w|ww|ww|ww|莣w莣w"垐AAB"""""B"""""B"""""B""""!ww|莣w莣w莣ww|ww|ww|莣w|ww|ww|ww|莣w莣w"""B"""""B"""""DDDDDBDDDDDBDDDDB!ww|莣w莣w莣ww|ww|ww|莣wwww|ww|ww|莣w莣w"DBDDDDDBDDDDDBDDDDDBAA垐A!ww|莣w莣w莣w莬ww|ww|莣ww|ww|ww|ww|莣w莣w"AAAAAffAD!ww|莣w莣w莣w莬ww|ww|烫烫烫莣www烫烫塘ww|ww|ww|莣w莣w"A!!ADA!!AA坔唸ADDB!ww|莣w莣w莣w|ww|ww|莣wwww|wwwwwwwwwww|ww|ww|莣w莣w"AADDA"AAAf垐f丄DDB!ww|莣w莣w莣w|ww|ww|莣wwww|莣wwwwwwwww|ww|ww|莣w莣w"AADDAAAAh噚唩BDDB!ww|莣w莣w莣w蘷w|ww|莣wwww|wwwwwwwwww|ww|ww|莣w莣w"ABDDDAAAh噚唩BDB!ww|莣w莣w莣w蘷w|ww|莣wwww|莣wwwwwwww|ww|ww|莣w莣w"ABDAAAAf垐f丄DDB!ww|莣w莣w莣www|ww|莣wwww|wwwwwwwww|ww|ww|莣w莣w"AADDAAAA坔唸A!烫烫塘烫塘烫塘烫烫烫烫烫烫烫烫烫塘烫烫烫烫塘烫塘"A!AA!AAffA!!"AA!AAA垐A"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""AAAB"""""B"""""B"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""B"""""B"""""B"""""DDDDDBDDDDDBDDDDDBDDTUDDDDDDDDDDDDDBDDDDDBDDDDDBDDDDDBDD32DBDDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDDDDDBDDDDDDDUDDDDDDDDDBDDDDDBDDDDDBAAAEDEDETuUDtGTA垐AAAA32!AAAAAA垐垐AADDDDDDuTUDDDAAAAA!!A!!DEGDEuU换tDDA!!ffA!!AAAC3!AAA!!AAAffffAADDDDEuWTUtDDAAAAAADDG籘rDtD碐tA坔唸AAAA32!AAAAAA坔唸坔唸AADDGDTrwDTDDAAAAAAED{WG%R%DTDDAf垐f丄AAA32AAAAAAf垐ff垐f丄ADDDWW%r%tTDDAAAAAADG籇EW$'tEDtAh噚唩ABBA32!AAABAAh噚唩h噚唩BBDDEwwW'u%DDAAAAAADDGEUUUWWDUDAh噚唩AA!A!AC3!AAAA!AAh噚唩h噚唩A!A!DDGrw""'WDUDAAAAAADuWR$twUuU{籄f垐f丄BBAC3"AAABAAf垐ff垐f丅BDuWr"'wwuwwDAAAAA!A!ETut换R$wT[籄!坔唸A!AAAC3"AAA!AAA坔唸坔唸AAETur'uR'wWTAAAAAAUEwDDDt[DtU籄ffAAAA32!AAAAAAffffAAUEwwUUuRrurTAAAAAA[uDK[wtwBtU{A垐AAA 1 0 (婣2 &HFFA2,&H3A.Z仸 5000 :僔ARIBLESEd仸 5500 :僄RAPHICSi1:(72,128)(248,136),,BF:5:(9,16),"Press any key to begin"k 挸"" 仴 107n仸 7500 :僆NTROx#1:扚A,0侻R20獿V5:ML矼R:MM矼R:僊INES FLAGGED,LEFT AND MAX寔 6000 :僊AP#朅A1:EC0:(290,90),6,57爜 6500 :僊INESA狝$Q:僊AIN LOOPm译(HO,VO)(HO8,VO8),17軈 JK2 H((0)2.8)1:V((1)5.5)1鈪 JK1 仸 440鍴O矵G:VO砎G:HG矵1210:VG砎1210痃4:(34,7),TH:(36,7),(TM)%鷧 TH铂1 TM砊M.1: TM0 TM59:TH砊H1E TH0 TH0:TM0:7 : 5o(34,7),TH:(36,7),(TM):(36,7),":" HO床HG VO床VG (HO,VO)(HO8,VO8),17:(HG,VG)(HG8,VG8),17:"BM"(HG)","(VG)"C10BDD3R4U4L4F8UNH7DLH7"" LO񼃽0?, JK (0)1 仸 1000:(HG,VG)(HG8,VG8),17 :僆S THERE A MINE?h6 JK (1)1 1500 :働UT A FLAGr@A$E JK0 仸 400J A$" " A$(4) 1500T A$(13) A$(103) 仸 1000:(HG,VG)(HG8,VG8),17^ AA1 (A$"A" A$"a") 仸 2500$h A$"D" A$"d" 3000-r LO8|仴 220O:僈EYBOARD CONTROL殔 A$(8) H矵1 : A$(9) H矵1 : A$(10) V砎1 : A$"^" V砎1焻 H23 H23 : H1 H1 V12 V12 : V1 V1異:僇OYSTICK CONTROL3聟 (0)50 H矵1 : (0)14 H矵1`虆 (1)50 V砎1 : (0)14 V砎1謪 H23 H23 : H1 H1鄥 V12 V12 : V1 V1陳:僆S THERE A MINE?盱(HG,VG)(HG8,VG8),17騾 (M(H,V))99 "V16T16O1AFAF":+ M(H,V)0 仸 4500 :傿LASTED A MINEE 扴L,0:"O1"獴L$:扚A,0UC0:X矵:Y砎q$ A砐11: B砓11. B1 B8 B13 1120B A1 AL A24 1130V M(A,B)0 C矯1` B,Aj C0 Z0 1190(t X0 Y0 X24 Y13 1160 :僌UTSIDE VISIBLE MAP~ (M(X,Y))99 "BM"(X127)","(Y1210)"C5"玁$(C):"BM"(X1212)","(Y121)"C1U11R11"垍 Z1 拹渽 Z1 :僑HOW ALL AROUND癦1簚 CX矵11: CY砎11腃0:X9< A() 65497,0$ F(仸 2000 : INIZALIZE GRAPHICSp2 H񻰒5: V񻰑6:P(4): P4 P2<(H12,V12)(H1211,V1211),PF媀,HP A񼃾0:X(25)1:Y(13)1:(X12,Y12)(X1211,Y1211),6(2):婣Z:僐IVER d H10 18 7An V񻰑5:(H12,V12)(H1211,V1211),(2)8,Jx媀,HU:僐OADb寑 H񻰒5t朧11(H10)犾(H12,V12)(H1211,V1211),(3)3獘H磤 FL񼃽0:H(25):V(15) 觉 "BM"(H122)","(V128)"C7E6RG7RE6FD3GDLGL3H3U3EURER3"葖FL6襽 A񼃾0:X(25)1:Y(13)1\莒(X12,Y12)(X1211,Y1211),11c鎷A}痨(36,156)(59,179),15(276,156)(299,179),16(144,108)(167,131),17(24,12)(47,35),18:(264,12)(287,35),20:(36,84)(59,107),21:(252,84)(275,107),19)(144,12)(167,35),22A" X1315: Y1315m, (X12,Y12)(X1211,Y1211),11:媃,X6(168,168)(179,179),14@I$"U36R6D36L6":V$"BU36M+8,+12;M+8,-12D10M-8,+12;M-8,-12;U10BD36":N$"BU25U10M+12,+26;D9M-12,-26BD26"JE$"R13U6L13ND6BU9":E$矱$獷$獷$"BD45HTC$"BR5R14U6L10H3U18E3R10U6L15G5D25F6^A$"U24M+10,-12R4M+10,+12D24L6U20M-5,-5L2M-5,+5DR12D6L11U6LD19L6"hP$"BU36ND6R14F4D14G4L14U6R10E3U4H3L10"r 2:(45,83)(271,41),,BF: 1:(47,81)(269,43),,BF0|(97,96)(221,102),,BF: 5:(12,12),"THE NEXT MISSION"N嗸 "BM49,80;C12;"獻$"BR7"k愼 V$"BR16"獻$"BR12"獻$汋 "BR12"獻$"BR7"玁$"BR12"獻$"BR12"獻$ "BR7"獷$"BR19" C$"BR19"獳$铬 "BR30"獻$"BR7"玍$"BR16"獻$迈 "BR12"獻$"BR7"玃$9惕(51,78),7,12:(64,62),7,12:(75,78),7,12:(87,78),7,12骤(99,78),7,12:(114,76),7,12:(117,76),7,12:(129,78),7,12:(135,78),7,12:(135,63),7,12:(135,48),7,12!噼(153,63),7,12:(178,76),7,12:(185,63),7,12:(210,64),7,12:(221,63),7,12:(232,64),7,12:(243,64),7,12:(255,64),7,12Z觎(0,0)(11,11),1:(12,0)(23,11),2:(24,0)(35,11),3綮(0,12)(11,23),7:(0,24)(11,35),8:(0,36)(11,47),11(0,132)(11,143),4:(12,132)(23,143),5:(24,132)(35,143),6(120,0)(131,11),9:(204,0)(215,11),10C1$"C7RURDRDLDLUL"5C2$"C5D3BR5U3L1C3D3X&C3$"C5;RBR3RBR4RBD7LBL4LBL3L"08:(142,147)(149,152),,BF:(151,147)(154,152),,BF:9:(143,148)(148,151),,BF:"BM144,149"獵1$"BM150,148"獵2$"BM143,146"獵3$TD(108,144)(119,155),4:8:(111,144)(116,151),,BF:(111,153)(116,156),,BF:9:(112,145)(115,150),,BFN"BM114,146;A1"獵1$"BM115,152"獵2$"BM117,145"獵3$X(228,156)(239,167),5:8:(231,169)(236,162),,BF:(231,160)(236,157),,BF:9:(232,168)(235,163),,BF3b"BM233,167;A3"獵1$"BM232,161"獵2$"BM230,168"獵3$?l 44539v 32: "RUN 1000 TO SAVE THE IMAGE":"WARNING: THIS WILL PROBABLY":"BREAK THE GAME":桠 32: 0: 1驋 &HFFA2,&H30M"MINECAMP.SC1",&H4000,&H5FFF,0 &HFFA2,&H31豈"MINECAMP.SC2",&H4000,&H5FFF,0+ &HFFA2,&H32P$豈"MINECAMP.SC3",&H4000,&H5FFF,0b. &HFFA2,&H338豈"MINECAMP.SC4",&H4000,&H5FFF,0B &HFFA2,&H3AL "GRAPHICS SAVED"V袀 DRAW GRAPHICS趢 A񼃽2: B: A,B:婣:滗 2:1:5,2 頒U$";C4U11R11C2D11L10" ' "BM100,111"獵U$ R A񼄄 :(100(10),100(10),2):婣 h "BM100,131"獵U$  A񼄄:(100(10),120(10),2):婣  ROADS * 11:(86,100)(97,111),,BF 4 "BM86,111"獵U$ > A񼄁:(86(10),100(10),2):婣!H 1:(70,100)(81,111),,BF!2R "BM70,111"獵U$!R\ 1:(70,120)(81,131),,BF!gf "BM70,131"獵U$!p A񼃽5:(71獳2.5,130珹2.5),A4,4!z(70(10),120(10),2):婣!剙 A񼄅:(70(10),100(10),2)!庨(73獳3,101獳2),A3,4:婣"樼 11:(86,120)(97,131),,BF",Ⅴ "BM86,131"獵U$"U瑎 A񼄁:(86(10),120(10),2):婣"鄂"BM154,160;C8HULHU3ERUER3FDRFD3GLDGL3U""黎(155,155),8,8"术"C6UHLU3REUR3DFRD3LGDL3BU3BR2C7LURD""怎 "BM50,111"獵U$"掮 11:(30,100)(41,111),,BF# 桴 "BM30,111"獵U$#騻 RIVER#+ "BM30,131"獵U$#F R$"U2RURULU2LU2RU2LU"#  "BM33,131;C4;"玆$"BM34,131;C3;"玆$"BM35,131;"玆$# "BM36,131;"玆$"BM37,131;C2;"玆$# $ "BM50,131"獵U$# .R$"ULU2RU1LU2LURURURU2L$ 8"BM54,131;C4;"玆$"BM55,131;C3;"玆$"BM56,131"玆$$4 B"BM57,131;"玆$"BM58,131;C2;"玆$$b L B2032: A2032: C:(A5,B5,C):婣,B$ V B2039: A5069: C:(A2,B2,C):婣,B$ ` B2043: A80103: C:(A,B,C):婣,B$ j B2043: A110133: C:(A,B,C):婣,B% t B2043: A140163: C:(A,B,C):婣,B%? ~ B2043: A170193: C:(A,B,C):婣,B%k 垁 B2043: A200223: C:(A,B,C):婣,B% 拃 B2043: A230253: C:(A,B,C):婣,B% 滜"BM171,121;C6;R8DL7DR8DL7BD2C8;R7DL8DR7DL8UC4;U6D2RD2UR9& (170,120,5):(180,120,5):(170,130,5):(180,130,5)& 阿 44539&0 簚 A񼃽4: A,99:婣&K 碾(100,100)(111,111),1&d 坞(50,100)(61,111),2& 仉(100,120)(111,131),3& 怆(86,100)(97,111),4& 祀(30,100)(41,111),5& 鲭(86,120)(97,131),6& (70,100)(81,111),7& (70,120)(81,131),8' (30,120)(41,131),9'/ (50,120)(61,131),10'K ((306,106)(311,111),12'g 2(140,102)(153,109),13' <(150,150)(161,161),11' F(170,120)(181,131),14' P A 1522: A,600:婣( Z(20,20)(43,43),15:(50,20)(73,43),16:(80,20)(103,43),17:(110,20)(133,43),18(l d(140,20)(163,43),19:(170,20)(193,43),20:(200,20)(223,43),21:(230,20)(253,43),22(r n( x 55,53,27,48,0,18,32,17,63,12,56,0( 倖 4,4,4,4,4,4,4,1,4,4,4,4,4( 寙 4,4,4,4,4,4,4,1,4,4,4,4,4( 枂 4,4,4,4,4,4,4,2,4,4,4,4,4) 爢 4,4,4,4,4,4,4,7,4,4,4,4,1): 獑 4,1,4,4,4,4,1,1,2,4,4,2,4)Z 磫 4,4,2,2,4,1,2,1,1,1,2,4,4)z 締 4,4,4,4,1,1,1,2,2,1,7,4,4) 葐 4,4,4,4,4,7,1,1,1,2,7,4,4) 覇 4,4,4,4,4,2,2,1,1,2,4,4,4) 軉 4,4,4,4,4,4,7,2,2,4,2,4,4) 鎲 4,4,4,4,4,2,4,4,4,4,4,1,4* 饐 4,4,4,4,2,4,4,4,4,4,4,4,4*: 鷨 4,4,4,1,4,4,4,4,4,4,4,4,4*L  EXPLOSION 2*z  4,4,4,4,4,4,4,4,4,1,4,4,4,4,4,4,4,4,4,4*  4,4,4,4,4,4,4,4,4,1,4,4,4,4,4,4,4,4,1,4* " 4,4,4,4,4,4,4,4,4,2,4,4,4,4,4,4,4,4,4,4+ , 4,4,4,4,4,4,4,4,4,7,4,4,4,4,4,4,1,4,4,4+2 6 4,4,4,4,4,1,4,4,4,2,2,4,4,4,4,1,4,4,4,4+` @ 1,1,4,4,4,4,4,2,2,7,2,2,2,4,7,4,4,4,4,4+ J 4,4,2,2,4,4,2,2,1,1,2,2,2,2,4,4,4,4,4,4+ T 4,4,4,4,7,7,2,1,2,1,1,1,2,2,4,4,4,1,4,4+ ^ 4,4,4,4,4,2,1,1,1,2,2,1,7,2,7,4,4,4,4,4, h 4,4,4,4,4,4,2,7,1,2,2,2,7,2,7,4,4,4,4,4,F r 4,4,4,4,4,2,2,2,1,2,2,2,2,2,4,4,4,4,4,4,t | 4,4,4,4,4,4,2,2,1,1,1,2,1,7,4,4,4,4,4,4, 唵 4,4,4,1,4,4,4,4,7,2,2,2,7,7,4,4,4,4,4,4, 悊 4,4,4,4,4,4,4,7,7,4,4,4,4,4,2,4,4,4,4,4, 殕 4,4,4,4,4,4,4,7,4,4,4,4,4,4,4,2,4,4,4,4-,  4,4,4,4,4,4,2,4,4,4,1,4,4,4,4,4,2,4,4,4-Z 畣 4,4,4,4,4,4,2,4,4,4,4,4,4,4,4,4,4,1,4,4- 竼 4,4,4,4,4,1,4,4,4,4,4,4,1,4,4,4,4,4,1,4- 聠 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4- 虇 4,4,4,4,1,4,4,4,4,1,4,4,4,4,4,4,4,4,4,4- 謧 EXPLOSION 3., 鄦 4,4,4,4,4,4,4,4,4,4,4,1,4,4,4,4,4,4,4,4,4,4,4,4.b 陠 4,4,4,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,1,4. 魡 4,4,4,4,4,4,4,4,4,4,4,1,4,4,4,4,4,4,4,4,4,4,4,4. 䥺 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,1,4,4,4/  4,4,4,4,4,4,4,7,4,4,4,7,7,7,4,4,4,4,4,4,4,4,4,4/:  1,4,4,4,4,4,4,4,4,4,7,7,2,7,7,4,4,4,2,4,4,4,4,4/p  4,4,4,4,4,4,4,4,7,7,2,2,1,1,2,7,4,7,4,4,4,4,4,4/ & 4,4,2,2,4,4,4,7,2,2,2,7,2,1,2,7,7,4,4,4,4,4,4,4/ 0 4,4,4,4,7,4,4,7,2,2,1,1,2,1,1,2,7,7,7,4,4,4,4,10 : 4,4,4,4,4,4,7,7,2,1,2,1,1,7,7,2,2,2,2,7,4,4,4,40H D 4,4,4,4,4,7,7,2,1,7,7,7,7,7,1,2,7,2,2,7,4,4,4,40~ N 4,4,4,4,7,2,2,2,1,7,7,7,2,2,7,2,7,2,2,7,4,4,4,40 X 4,4,4,4,7,2,2,2,1,2,7,7,7,2,7,7,2,2,7,7,7,4,4,40 b 4,4,4,4,7,2,2,2,1,1,1,1,1,2,1,7,2,2,7,4,4,4,4,41 l 4,4,4,4,4,7,7,2,2,1,1,2,2,2,1,7,7,7,4,4,4,4,4,41V v 4,4,4,4,4,4,4,7,7,7,2,2,2,1,1,2,7,4,4,4,4,4,4,41 4,4,4,4,4,4,4,4,4,7,7,7,2,2,2,2,7,7,4,4,4,4,4,41 妴 4,4,4,1,4,4,4,4,7,4,4,7,7,7,7,7,4,4,7,4,4,4,4,41 攩 4,4,4,4,4,4,4,4,7,4,4,4,4,7,4,4,4,4,4,4,4,4,4,42. 瀱 4,4,4,4,4,4,4,2,4,4,4,4,4,4,4,4,4,4,4,4,2,4,4,42d ▎ 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,2,4,42 矄 4,4,4,4,4,4,2,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,42 紗 4,4,4,4,4,4,4,4,4,4,4,1,4,4,4,1,4,4,4,4,4,4,4,13 茊 4,4,4,4,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,43 袀 EXPLOSION 43N 趩 4,4,4,2,4,4,4,4,4,4,4,4,2,4,4,4,4,4,4,4,4,4,4,43 鋯 4,4,4,4,4,4,4,4,4,4,4,4,7,7,4,4,4,4,4,4,4,2,4,43 顔 4,4,4,4,4,4,4,4,4,4,7,7,7,7,5,4,4,4,4,4,4,4,4,43 鴨 4,4,4,4,4,4,4,4,4,4,7,2,1,1,7,7,4,4,4,4,4,4,4,44&  4,4,4,4,4,4,5,7,4,7,2,5,7,2,2,5,7,4,4,4,4,4,4,44\ 2,4,4,4,4,5,7,7,7,7,5,7,2,7,1,7,7,5,2,4,4,4,4,44  4,4,4,4,4,7,7,2,7,7,2,2,2,2,2,7,5,7,4,4,5,5,4,44 4,4,2,2,4,7,7,2,2,1,1,7,2,2,2,7,7,5,7,7,7,7,4,44 * 4,4,4,4,7,5,7,1,2,7,7,7,7,2,2,2,7,7,5,7,2,2,7,454 4 4,4,4,7,7,7,7,7,7,5,5,5,2,7,7,2,2,2,7,5,7,2,7,45j > 4,4,7,7,2,7,7,2,7,5,7,7,7,7,1,2,7,2,2,7,5,2,7,75 H 4,4,7,2,2,1,1,2,7,7,7,5,2,2,7,2,7,2,2,2,5,2,7,45 R 4,7,7,2,5,1,2,2,7,2,7,7,7,2,7,7,2,2,7,5,7,7,5,46 \ 4,7,7,2,5,1,2,2,7,7,2,2,1,2,1,7,2,1,7,7,7,7,4,46B f 4,7,7,2,7,1,2,2,2,1,1,2,2,2,2,7,7,7,5,5,4,4,4,46x p 4,4,7,7,7,2,1,7,7,7,2,2,2,1,2,2,7,7,5,4,4,4,4,46 z 4,4,4,5,5,2,2,1,1,7,7,1,2,2,1,1,7,7,5,4,4,4,4,46 剢 4,4,4,4,4,7,7,7,7,7,7,5,5,7,7,7,7,2,7,4,4,4,4,47 巻 4,2,4,4,4,4,7,7,5,4,7,2,2,5,5,7,7,7,4,4,4,4,4,47P 槅 2,4,4,4,4,4,4,5,4,4,4,5,7,7,2,2,2,7,4,4,4,4,4,47  4,4,4,4,4,4,4,4,4,4,4,4,5,2,2,7,7,4,4,4,4,4,4,47 瑔 4,4,4,4,4,4,2,4,4,4,4,4,4,7,7,4,4,4,4,4,4,4,2,47 秵 4,4,4,4,4,2,4,4,4,4,4,4,4,4,4,4,2,4,4,4,4,4,4,28( 绬 4,4,4,4,2,4,4,4,4,4,4,2,4,4,4,4,4,4,4,4,4,4,4,48: 蕚 Explosion 58p 詥 4,4,4,4,4,4,4,4,4,4,4,4,4,4,5,5,4,4,4,4,4,4,4,48 迒 4,4,4,4,4,4,4,4,4,4,4,4,7,5,5,4,5,5,4,4,4,4,4,48 鑶 4,4,4,4,4,4,4,4,4,5,7,5,5,7,5,4,5,5,7,4,4,4,4,49 騿 4,4,4,4,4,7,4,4,5,4,7,2,1,1,7,7,4,4,5,4,4,4,4,49H 鼏 4,4,4,4,4,4,5,7,5,7,2,5,7,2,2,5,7,4,5,4,4,4,4,49~ 4,4,4,4,4,5,7,7,7,7,5,7,2,7,1,7,7,5,2,5,4,4,4,49 4,4,4,4,4,7,7,2,7,7,2,2,2,2,2,7,5,7,4,4,5,5,4,49 4,4,7,5,5,7,7,2,2,2,2,7,7,7,7,7,7,5,7,7,7,7,4,4: $ 4,5,5,4,7,5,7,2,2,7,7,5,5,2,2,7,7,7,5,7,1,2,5,4:V. 5,5,4,5,7,7,7,7,5,5,5,5,7,5,5,2,7,2,7,5,7,2,5,4:8 5,4,7,5,2,7,7,5,5,5,7,7,7,7,5,2,7,2,7,7,5,2,7,5:B 5,4,5,2,2,2,1,5,7,7,7,5,7,7,5,2,7,2,7,7,5,2,7,5:L 5,7,5,1,5,2,7,5,7,5,5,7,5,5,5,7,2,2,7,5,7,7,5,5;.V 4,7,7,5,5,7,7,5,7,5,5,7,7,5,5,7,2,1,7,7,7,7,5,4;d` 5,7,7,5,5,7,2,5,5,5,5,5,7,5,7,7,7,7,5,5,4,4,5,4;j 4,4,5,7,7,7,7,7,7,5,5,5,5,7,7,2,7,7,5,4,5,4,4,4;t 4,5,4,5,5,1,2,1,2,5,5,5,2,2,2,1,7,7,5,4,4,4,4,4<~ 4,4,4,4,4,7,7,7,7,7,7,5,5,7,7,7,7,1,7,4,4,4,4,4<<垎 4,4,4,4,5,5,7,7,5,4,7,2,1,5,5,7,7,7,5,4,4,4,4,44靻 4,4,4,4,4,7,4,4,5,4,7,2,5,5,7,7,5,4,5,4,4,7,7,4>j鰡 4,7,4,4,7,4,5,7,5,7,2,5,5,2,2,5,7,4,5,4,4,4,4,4> 4,4,4,7,4,5,7,5,5,5,5,7,2,4,2,7,7,5,2,5,4,4,7,4> 4,4,4,4,4,7,4,5,5,5,5,5,5,5,5,7,5,7,4,4,5,5,4,4?  4,4,7,5,5,7,5,2,2,4,7,4,7,7,5,5,7,5,5,5,7,7,4,4?B 4,5,5,4,7,5,7,4,2,7,7,4,5,2,2,7,7,7,5,5,5,2,5,4?x( 5,5,4,5,7,7,7,7,5,5,4,5,7,4,5,7,7,4,7,4,5,5,5,4?2 5,4,7,5,5,7,7,7,5,4,7,7,7,4,7,7,7,2,7,7,5,5,7,5?< 5,4,4,5,5,2,2,7,4,5,7,5,7,7,4,2,7,2,7,7,4,5,7,5@F 5,7,5,5,5,4,4,7,7,5,5,7,5,5,5,7,4,5,7,5,7,5,5,5@PP 4,7,7,5,5,7,7,7,7,5,5,7,4,5,5,5,4,5,7,7,5,5,7,4@Z 5,7,7,5,4,7,4,7,4,5,5,5,7,4,5,7,7,5,5,5,4,4,5,4@d 4,4,5,7,7,7,7,7,7,7,7,5,4,7,7,7,5,7,5,4,5,4,4,4@n 4,5,4,5,5,2,2,4,2,5,7,7,7,7,7,5,4,7,5,4,4,4,4,4A(x 4,4,4,4,4,7,5,5,5,7,7,5,5,5,7,7,7,2,7,4,4,5,4,4A^倖 4,7,5,4,5,5,7,5,5,4,7,2,2,5,4,4,7,7,5,4,4,4,4,4A寙 4,4,4,4,4,5,4,5,4,5,4,5,7,7,7,2,2,7,4,4,4,4,5,4A枂 4,4,4,7,4,5,7,5,5,4,5,5,5,2,2,7,7,4,5,4,4,4,4,4B爢 4,4,5,4,4,4,5,4,5,4,4,5,4,7,7,4,5,5,5,4,5,4,4,4B6獑 4,4,4,4,4,4,4,4,4,7,4,4,5,4,4,7,5,4,4,4,4,4,4,4Bl磫 4,4,4,5,4,4,4,4,4,4,4,4,4,4,5,4,4,4,4,4,4,4,4,4B~緜 Explosion 7B葐 4,4,4,4,5,4,5,5,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4B覇 4,5,4,4,4,5,4,4,4,5,5,4,7,5,5,5,4,4,7,4,4,7,5,4C$軉 4,4,4,5,4,7,4,4,4,5,7,5,5,5,11,11,11,11,7,4,4,4,4,4C]鎲 4,4,4,4,4,7,11,11,5,4,7,2,4,4,7,4,4,4,11,4,4,7,7,4C饐 4,5,4,4,7,11,5,7,4,7,2,5,5,2,2,5,4,4,5,4,4,4,4,4C鷨 4,4,4,7,11,11,4,4,4,5,5,7,2,4,2,7,7,4,4,5,4,4,7,4D 4,4,4,4,4,7,4,5,5,5,5,5,5,5,5,7,5,7,4,4,5,5,4,4D; 4,4,7,5,5,7,5,2,2,4,7,4,7,7,5,5,7,5,5,5,7,11,11,11Dx 4,5,5,4,7,5,7,4,11,11,11,11,5,2,2,4,7,7,5,4,5,11,11,11D" 5,5,4,5,7,7,4,4,4,4,4,4,7,4,5,11,4,4,7,4,5,5,11,11D, 5,11,7,5,4,4,4,11,5,11,7,7,7,4,7,7,4,2,7,4,5,5,7,11E&6 5,11,4,4,4,11,11,7,4,5,7,11,4,7,4,2,4,2,7,11,4,5,7,5Ea@ 11,11,5,4,5,11,11,7,7,5,4,4,5,5,5,4,4,5,7,11,7,5,5,5EJ 4,11,7,5,5,7,11,7,7,4,11,7,4,4,4,4,4,11,7,11,5,5,7,4ET 5,11,11,5,4,7,4,7,11,4,5,5,7,4,5,7,4,11,11,11,4,4,5,4F^ 4,4,5,7,7,7,7,7,7,7,7,5,4,7,7,7,5,11,11,4,5,4,4,4FFh 4,5,4,5,5,2,2,4,2,4,4,4,4,7,7,5,4,7,5,4,4,4,4,4F}r 4,4,4,4,4,7,5,4,5,4,7,5,5,5,7,7,11,2,7,4,4,5,4,4F| 4,7,5,4,5,5,7,4,4,4,7,2,2,5,4,4,11,7,5,4,4,4,4,4F唵 5,4,4,4,4,5,4,5,4,5,4,4,4,4,7,2,11,7,4,4,4,4,5,4G$悊 4,4,4,7,4,5,7,5,5,4,5,5,5,2,11,11,11,4,5,4,4,4,4,4G]殕 4,4,5,4,11,11,5,4,5,4,4,5,4,7,11,4,5,5,5,4,5,4,4,4G 4,4,4,4,4,11,4,4,4,7,4,4,5,4,4,7,5,11,11,4,4,4,4,4G畣 4,4,4,5,4,4,11,11,4,4,4,4,4,4,5,11,11,11,4,4,4,4,4,4G競 Explosion 8H聠 4,4,4,4,5,4,5,5,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4HQ虇 4,11,4,4,4,5,4,4,4,5,11,4,7,5,5,5,4,4,7,4,4,7,5,4H謫 4,4,4,11,4,7,4,4,4,5,11,11,11,5,11,11,11,11,7,4,4,4,4,4H鄦 4,4,4,4,4,7,11,11,5,4,4,4,4,4,7,4,4,4,11,4,4,7,7,4I陠 4,11,4,4,7,11,5,7,4,4,4,5,5,4,2,4,4,4,5,4,4,4,4,4I8魡 4,4,4,7,11,11,4,4,4,4,4,4,4,4,4,4,7,4,4,5,4,4,7,4In䥺 4,4,4,4,4,7,4,4,4,5,5,5,4,4,5,4,4,7,4,4,5,5,4,4I 4,4,7,5,5,7,4,4,4,4,4,4,4,7,5,5,4,4,5,4,7,11,4,4I 4,5,5,4,7,4,7,4,11,4,4,4,5,4,4,4,4,4,11,4,4,11,11,4J 11,5,4,5,7,4,4,4,4,4,4,4,7,4,4,4,4,4,11,4,4,5,11,11JU& 11,11,7,5,4,4,4,11,4,11,4,7,7,4,7,7,4,4,11,4,4,4,7,11J0 5,11,4,4,4,11,11,7,4,5,4,11,4,7,4,4,4,4,7,11,4,4,7,5J: 11,11,5,4,4,4,4,7,4,5,4,4,5,5,5,4,4,4,7,11,7,4,5,5KD 4,11,7,4,4,4,4,4,4,4,4,7,4,4,4,4,4,4,7,11,5,4,7,4K>N 5,11,11,4,4,7,4,4,4,4,4,4,4,11,11,11,4,4,11,11,4,4,5,4KxX 4,4,5,4,4,7,7,7,7,4,4,4,11,11,4,4,4,11,11,4,4,4,4,4Kb 4,5,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,7,4,4,4,4,4,4Kl 4,4,4,4,4,4,5,4,5,4,7,4,4,4,4,7,4,4,4,4,4,5,4,4Lv 4,7,5,4,11,11,4,4,4,4,4,4,4,4,4,4,4,7,5,4,4,4,4,4LU 5,4,4,11,11,4,4,5,4,4,4,4,4,4,7,4,11,7,4,4,4,4,5,4L妴 4,4,4,11,4,5,7,11,11,4,11,11,4,4,11,4,4,4,5,4,4,4,4,4L攩 4,4,5,4,11,11,5,4,11,4,4,11,4,7,11,4,4,4,5,4,5,4,4,4M瀱 4,4,4,4,4,11,4,4,4,7,4,4,5,4,4,7,5,4,4,4,4,4,4,4M;▎ 4,4,4,5,4,4,11,11,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,7,4,11,7,4,4,4,4,5,4L妴 4,4,4,11,4,5,7,11,11,4,11,11,4,4,11,4,4,4,5,4,4,4,4,4L攩 4,4,5,4,11,11,5,4,11,4,4,11,4,7,11,4,4,4,5,4,5,4,4,4M瀱 4,4,4,4,4,11,4,4,4,7,4,4,5,4,4,7,5,4,4,4,4,42,1,1,2,4,4,4<, 4,4,4,4,4,4,7,2,2,4,2,4,4| 4,4,4,4,7,7,2,1,2,1,1,1,2,2,4,4,4,1,4,4><唵 4,4,4,4,4,2,1,1,1,2,2,1,7,2,7,4,4,4,4,4>j悊 4,4,4,4,4,4,2,7,1,2,2,2,7,2,7,4,4,4,4,4>殕 4,4,4,4,4,2,2,2,1,2,2,2,2,2,4,4,4,4,4,4> 4,4,4,4,4,4,2,2,1,1,1,2,1,7,4,4,4,4,4,4>畣 4,4,4,1,4,4,4,4,7,2,2,2,7,7,4,4,4,4,4,4?"竼 4,4,4,4,4,4,4,7,7,4,4,4,4,4,2,4,4,4,4,4?P聠 4,4,4,4,4,4,4,7,4,4,4,4,4,4,4,2,4,4,4,4?~虇 4,4,4,4,4,4,2,4,4,4,1,4,4,4,4,4,2,4,4,4?謫 4,4,4,4,4,4,2,4,4,4,4,4,4,4,4,4,4,1,4,4?鄦 4,4,4,4,4,1,4,4,4,4,4,4,1,4,4,4,4,4,1,4@陠 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4@6魡 4,4,4,4,1,4,4,4,4,1,4,4,4,4,4,4,4,4,4,4@H䝼 EXPLOSION 3@~ 4,4,4,4,4,4,4,4,4,4,4,1,4,4,4,4,4,4,4,4,4,4,4,4@ 4,4,4,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,1,4@ 4,4,4,4,4,4,4,4,4,4,4,1,4,4,4,4,4,4,4,4,4,4,4,4A & 4,4,4,4,4,4,4,"" "" "DEPLOYMENT NOTICE" "" "Company B" "108th Engineers Battalion." "" "The unit is to be deployed" "immediately in support of UN relief" "convoys." "The main mission is the clean up of" "routes to allow fast access of" "essential suplies." "The secondary missions are to locate" "any mines in the area and to destroy" "the enemy camp." "Time is limited. Making sure that" "the convoy arrives on time is your" "priority." "If the minesweeeping equipment is" "destroyed by enemy action, the" "convoy will abort the mission." "Do you require further instructions?" "(Y/N)" "1" "" "" "The minesweeper will indicate how" "many mines are located in the area" "surrounding its location. It is" "activated either with the red button" "or the key." "Once a mine has been located, mark" "it using the black button or the" " key." "The start and end of the road have" "been declared safe." "You can call an air strike on the" "minesweeper location to destroy any" "mines in the area, and hopefuly," "the enemy camp, with the key." "Once a safe path has been cleared," "signal the convoy to start, using" "the key, and proceed to guide it" "with the cursor keys. Try to keep it" "on the road as much as possible," "since going off-road is time" "consuming." "" "Press any key to proceed" e a safe path has been cleared," "signal the convoy to start, using" "the key, and proceed to guide it" "with the cursor keys. Try to keep it" "on the road as much as possible," "since going off-road is time" "consuming." "" "Pres"C1U11R11"垍 Z1 拹+渽 Z1 A SHOW ALL AROUNDI癦1k簚 CX矵1 H1: CY砎1 V1腃0:X矯X:Y矯Y:仸 1040螊 CY,CX豘0鈵軅 PUT A FLAG鎱 (M(H,V))99 仸 1600:仴 210餗(H,V)矼(H,V)100(M(H,V)) : ADD 100 OR -100 TO FLAG+蹯(HG,VG)(HG8,VG8),23j "BM"(HG)","(VG6)"C7E6RG7RE6FD3GDLGL3H3U3EURER3"(HG,VG)(HG8,VG8),23"T32EFE" 4:(14,22),MM琈RMR矼R1: 5:(14,22),MM琈R M(H,V)0 ML矼L1" MR0 "T8FCFCFC",仴 210@ CLEAR A MINE1E 4:(14,22),MM琈RZJM(H,V)矼(H,V)100(M(H,V)):MR矼R1qO 5:(14,22),MM琈RT (M(H,V))1 SP(3) : (M(H,V))4 SP(3)3 : (M(H,V))7 SP(2)6 : (M(H,V))9 SP(2)8Y(H1212,V12 "O",#1,"INTRO.TXT"#2 T$9d T$"X" #1:Ei #1,T$On仴 50締 "","","DEPLOYMENT NOTICE","","Company B","108th Engineers Battalion.","","The unit is to be deployed","immediately in support of UN relief","convoys."葐 "The main mission is the clean up of","routes to allow fast access of","essential suplies.","The secondary missions are to locate","any mines in the area and to destroy","the enemy camp." 覇 "Time is limited. Making sure that","the convoy arrives on time is your","priority."軉"If the minesweeeping equipment is","destroyed by enemy action, the","convoy will abort the mission.","Do you require further instructions?","(Y/N)","1"E鎲 "","","The minesweeper will indicate how","many mines are located in the area","surrounding its location. It is","activated either with the red button"饐 "or the key.","Once a mine has been located, mark","it using the black button or the"," key.","The start and end of the road have","been declared safe."鯁 "You can call an air strike on the","minesweeper location to destroy any","mines in the area, and hopefuly,","the enemy camp, with the key."J鷨 "Once a safe path has been cleared,","signal the convoy to start, using","the key, and proceed to guide it","with the cursor keys. Try to keep it","on the road as much as possible," "since going off-road is time","consuming.","","Press any key to proceed" 0,0: 80:  "X"nal the convoy to start, using","the key, and proceed to guide it僃OUND#2 鑷"Mines found:"MM琈L: 20,4: PP"points"#Z 騊P(ML琈R)5:SC砈C琍P :僃ALSE FLAGS# 鼑"False alarms:"ML琈R: 19,5: 7,5: "-"PP"points"#PP矼L2:SC砈C琍P :僋OT FOUND# 3,5:"Mines left:"ML: 19,6: 7,5: "-"PP"points"$  EC EC50獿V5:SC砈C獷C$C EC 0,5:"Enemy camp destroyed:":20,7:嘐C"points"$O匤T1$_$TI砊H60玊M$.TU砊I(360琇V72) :傾RE WE ON TIME?$8 TH0 LV5 4110 :僋O TIME OR FINAL LEVEL$B 3,5:0,9:"Time left:"TH":"TM$LSC砈C玊U%V TU0 7,5 : 3,5%` 20,9: TU"points"%Lj 3,5::"Your total score, so far, is"SC%ut A1 12: B1 23:M(B,A)0: B,A%~LV矻V1%垇 4280%拠:"Press any key to continue": 44539:A$%滀 2% 90%:僑HOW MINES%鈥 Y񼃽2: X񼃾3&.靺 MA32AAAAAA垐垐AATu'uUwwRrwRuAAAB"""""B"""""B"""""[DK稥{GBB{EuB"""""B"""""B"""""B"""""B$32""B"""""B"""""B"""""B"""""B"""""B"""""B"""""B"""""TR"wuwRrwRuB"""""B"""""B"""""DDDDDBDDDDDB籘[穟DUTE{uUDDDDDBDDDDDBDDDDDBEUUUUUUUUUQUQUQUQUQDDBDDDDDBDDDDDBWQRuuWUW"uwUDDDDDBDDDDDBDDDDDB垐AAKuW穞稤DK{UtAAAAQUAAGuWuuWuW!wwTAAAffA!!A!![礕G碪tWK籇TAAA!!AQQQQ!AAWuW%UUuwwUDTAAA!!坔唸AADWwwwuGw[碩DAAAAUUUUUQUQAADWwwuUWrwTTDAAAf垐f丄AEER$$DGuGTDDAAAAUQQUAAEEQ!%U"!wTDDAAAh噚唩AADDGTTuUw瞭EDBAAABADDGwwuWwqtDDAAAh噚唩AAGTUtDr%D稵DDA!AAAUU!wTDDAAAh噚唩AADDGTTuUw瞭EDBAAABADDGwwuWwqtDDAAAh噚唩AAGTUtDr%D稵DDA!AAAUU1,7,2,2,2,7,7,5,7,7,7,7,4,4GPR 4,4,4,4,7,5,7,1,2,7,7,7,7,2,2,2,7,7,5,7,2,2,7,4G\ 4,4,4,7,7,7,7,7,7,5,5,5,2,7,7,2,2,2,7,5,7,2,7,4Gf 4,4,7,7,2,7,7,2,7,5,7,7,7,7,1,2,7,2,2,7,5,2,7,7Gp 4,4,7,2,2,1,1,2,7,7,7,5,2,2,7,2,7,2,2,2,5,2,7,4H(z 4,7,7,2,5,1,2,2,7,2,7,7,7,2,7,7,2,2,7,5,7,7,5,4H^剢 4,7,7,2,5,1,2,2,7,7,2,2,1,2,1,7,2,1,7,7,7,7,4,4H巻 4,7,7,2,7,1,2,2,2,1,1,2,2,2,2,7,7,7,5,5,4,4,4,4H槅 4,4,7,7,7,2,1,7,7,7,2,2,2,1,2,2,7,7,5,4,4,4,4,4I 4,4,4,5,5,2,2,1,1,7,7,1,2,2,1,1,7,7,5,4,4,4,4,4I6瑔 4,4,4,4,4,7,7,7,7,7,7,5,5,7,7,7,7,2,7,4,4,4,4,4Il秵 4,2,4,4,4,4,7,7,5,4,7,2,2,5,5,7,7,7,4,4,4,4,4,4I绬 2,4,4,4,4,4,4,5,4,4,4,5,7,7,2,2,2,7,4,4,4,4,4,4I蕟 4,4,4,4,4,4,4,4,4,4,4,4,5,2,2,7,7,4,4,4,4,4,4,4J詥 4,4,4,4,4,4,2,4,4,4,4,4,4,7,7,4,CX:Y矯Y:仸 1060螊 CY,CX"豘0(鈵9:働UT A FLAG\鎱 (M(H,V))99 仸 2000:仴 220餗(H,V)矼(H,V)100(M(H,V)) :傾DD 100 OR -100 TO FLAG(HG,VG)(HG8,VG8),17"BM"(HG)","(VG6)"C7E6RG7RE6FD3GDLGL3H3U3EURER3" (HG,VG)(HG8,VG8),17'扴L,0:"O2"獴L$:扚A,0="4:(14,22),MM琈R[,MR矼R1:5:(14,22),MM琈Rt6 M(H,V)0 ML矼L1@ MR0 "V16O1T8FCFCFC"J仴 220:僀LEAR A MINE阽4:(14,22),MM琈R銶(H,V)矼(H,V)100(M(H,V)):MR矼R1铉5:(14,22),MM琈R鴧 (M(H,V))1 SP(3) : (M(H,V))4 SP(3)3 : (M(H,V))7 SP(2)6 : (M(H,V))9 SP(2)8(H1212,V1212)(H121,V121),SP, (HG,VG)(HG8,VG8),17 :僑TRIKE 螀 H23 H1252 : H1矵1212  貐 V1 V10 : V1砎1224 ; 鈪 H1 H20 : H2矵1224 ] 靺 V12 V2120 : V2砎1212 k 鰢: SP,FP 扴L,0:"V31"獷X$:扚A,O EX1823:(H1,V1)(H123,V123),EX:(H2,V2)(H223,V223),EX 扴L,0:"V25"獷X$:扚A,0: EX  EX2125!0 ((H1,V1)(H123,V123),EX:(H2,V2)(H223,V223),EX!P 2扴L,0:"V20"獷X$:扚A,0: EX! <扴L,0: VO162 2:"V"(VO)獷X$: VO:扚A,0! F5:(H126,V126),18,5:(H126,V126),11,5! P X矵11: Y砎11"h Z M(X,Y)0 (X1212,Y1212)(X121,Y121),11: M(X,Y)铂99 4:(14,22),MM琈R:ML矼L1:MR矼R1:5:(14,22),MM琈R:M(X,Y)超101 : M(X,Y)超101"r d Y,X" n匨(H,V)14ъ(H1212,V1212)(H121,V121),16:EC1" xAA0:(290,90),7,5" 傠(HG,VG)(HG8,VG8),17" 寪" :僁RIVING THE TRUCK# 蚂(HG,VG)(HG8,VG8),17#0 蘃1:V砊V:TM(TM)#A 謤 LO񼃾 0#i 郒G矵1214:VG砎1212: HG0 HG0# 觌 (HG,VG)(HG13,VG13),17# 魠 A$"^" (HG2,VG)(HG11,VG13),15 : A$(10) (HG4,VG)(HG13,VG13),14 : (HG,VG2)(HG13,VG9),13$$ 䜣 DO񼃾 0:A$: A$"" DO$4 HO矵G:VO砎G$O  A$"^" V1 V砎1$n  A$(10) V12 V砎1$ & A$(8) H1 H矵1$ 0 A$(9) H23 H矵1$ : M(H,V)0 M(H,V)铂101 4500 :僊INE!% = VE砎11: (4)1 M(H1,VE)船99 M(H1,VE)铂200 EX1825 2:((H1)1218,VE1218)((H1)125,VE125),EX:扴L,0:"V"(60珽X2)獷X$:扚A,0:M(H1,VE)超200: EX% ? VE% D H23 V矲V LO2:扴L,0:"O1V22T8L4EECAACB":扚A,0% NOM砊M:OH砊H% X M(H,V)1 TM砊M1& b M(H,V)7 TM砊M2&$ g M(H,V)9 TM砊M4&B i TM0 TM60玊M:TH砊H1& l TH铂1 TM床OM 4:(34,7),OH:(36,7),OM:5:(34,7),TH:(36,7),TM& q(HO,VO)(HO13,VO13),17& v LO& 仸 4000& :僉ETS CALCULATE THE SCORE& 朵 0: 6: 3,5,U'B 绤 TH0 JT1 LV5 嚖11);"* Final Score *" : 嚖10);"Score for level";LV'N 束 3,5:'n 試"Mines on this level:"MM:' 轕P(MM琈L)10:SC砈C玃P :僃OUND' 鑷"Mines found:"MM琈L: 20,4: PP"points"' 騊P(ML琈R)5:SC砈C琍P :僃ALSE FLAGS( 鼑"False alarms:"ML琈R: 19,5: 7,5:"-"PP"points"(=PP矼L2:SC砈C琍P :僋OT FOUND(t 3,5:"Mines left:"ML: 19,6: 7,5:"-"PP"points"( EC EC50獿V5:SC砈C獷C($ EC 0,5:"Enemy camp destroyed:":20,7:嘐C"points"(.匤T1(8TI砊H60玊M)BTU砊I(DL120琇V60) :傾RE WE ON TIME?)6QTL$(TH)":"((TM),2,3))WV 3,5:0,9:"Time left:";TL$)d`SC砈C玊U)j TU0 7,5 : 3,5)t 20,9: TU"points")y TH0 LV矰L2 4610 :僋O TIME OR FINAL LEVEL)~ 3,5::嚖6);"Current total score:"SC*垁 A񼃽2: B񼃾3:M(B,A)0: B,A*<扡V矻V1:HG2:VG2:HO2:VO2*H渷 5040*}:嚖7);"Press any key to continue": 44539:A$*颁 2*簛 130*:僑HOW MINES*獉 Y񼃽2: X񼃾3*磪 M(X,Y)0 (X1212,Y1212)(X121,Y121),11+&緟 M(X,Y)14 (X1212,Y1212)(X121,Y121),16+1葖 X,Y+?尧 44539:+U:傿LASTED A MINE!+r濰X矵1218: HX0 HX0+╒X砎1218: VX0 VX0+矑SL,0:"V31"獷X$:扚A,0+紑 A1823:(HX,VX)(HX23,VX23),A:扴L,0:"V25"獷X$:扚A,0: A,-苺 A2123:(HX,VX)(HX23,VX23),A:扴L,0:"V20"獷X$:扚A,0:婣,n衻 A2125:(HX,VX)(HX23,VX23),A:扴L,0:"V15"獷X$:扚A,0:婣,趻SL,0: V122 2:"V"(V)獷X$: V:扚A,0,鋪 4000,頙T1,鴣 3500,:僂ND GAME, :-7 JT1 TH0 7,5:嚖8);"THE MISSION HAS FAILED" : 1,5:嚖6);"THE MISSION IS A SUCCESS"-a 3,5::嚖8);"The final score is"SC:-" A񼄁: SC睭S(A) 4644 : A-$ B4 ┈1:HS$(B1)矵S$(B):HS(B1)矵S(B): B.I* A6 嚖8)"You have a High Score!":"What is your name?";NA$:HS$(A)砃A$:HS(A)砈C:"O",#1,"SCORES.DAT": A񼄁:#1,HS$(A):#1,HS(A): A:#1./嚖14);"High Scores": A񼄁:嚖15((HS(A))));HS(A);" - ";HS$(A): A.4:嚖4);"Do you want to play again? (Y/N)".>A$.H A$"N" A$"n" 8000/ R A$床"Y" A$床"y" 仴 4670/9T:嚖4);"In which difficulty level? (1-3)"/\VA$: A$"1" A$"3" 4694/jXDL(A$)/\:5,10:"Let me reset a few things..."/fSC0:JT0/p A񼃽3: B񼃾4:M(B,A)0: B,A/z仸 5030: 2:仴 130/:僆NIZIALIZE VARIABLES0扲():FA65497:SL654960K湆 M(24,13) :+100 IS FLAG, NEGATIVE IS MINE0hV1:TH矰L2:TM60珼L200皜 A񼃽0獿V2 :僑ET ROCKS0篨(23):Y(12):H1:V60腗(X,Y)70螊 A0貈 R񼃾0釸H(21)10靲 RV񼃽2:M(RH,RV)9: RV,R1>鯯V(12):FV((LV3)2)(LV3)玈V: FV12 FV12 : FV1 FV11HTV砈V1EX$"O1L254FAEDEBFGECE":BL$"L254V24FV31FV24FFV20FV16FV12FV8FV4F":傾FDFCEC"1RH1:SH0:RV01#SH砈H玆H:SV砈V玆V:M(SH,SV)42( SH23 RH0: SV睩V RV超1:仴 5190 : RV0:仴 51902'2 SV矲V RV0:RH1:仴 51552l< (3)1 RH超(琑H): RH0 SV睩V RV超1 : RV1 : RV02F SV矲V SH23 2Z仴 51552d2|:僑ETUP GRAPHICS2唨 A1825: A,600: A::僂XPLOSION3愲(36,156)(59,179),18:(276,156)(299,179),19:(144,108)(167,131),203`氹(24,12)(47,35),21:(252,84)(275,107),22:(264,12)(287,35),233る(36,84)(59,107),24:(144,12)(167,35),253竴 A񼃽7: A,99: A :17 IS BUFFER3码(0,12)(11,23),1:(0,0)(11,11),24屉(12,12)(23,23),3:(0,132)(11,143),446蛛(12,132)(23,143),5:(72,132)(83,143),64_嚯(12,0)(23,11),7:(12,48)(23,59),84觌(120,0)(131,11),9:(120,24)(131,35),10:(132,0)(143,11),114綦(142,146)(155,156),13:(110,142)(119,155),14:(228,156)(237,169),155 (168,168)(179,179),165#﨨$(1)"DGE2D7NL2NR2"5;N$(1)"NG1D6NL1NR1"5WN$(2)"LNGR2FDGL2GD2R4"5rN$(3)"LNGR2FDGFDGL2H"5&N$(4)"G3DR4LNU4D2"50N$(5)"NR2L2D2R3FD2GL2H"5:N$(6)"NRLGD4FR2EUHL3"5DN$(7)"NL2R2DG4D"5NN$(0)"DRUL"5b5p:僑HOW MAP60z 2: 4:5: CS 1,55:2,52 : 1,52:2,376R凙$"Level:"(LV):(0,19),A$6u嶢$"Score:"(SC):(20,19),A$6楢$"Mines in this level:"(MR):(0,21),A$6㈩(35,4),"Time":(35,5),"Left"6(76,107)(201,122),,B:(10,14),"Downloading map"7$额(34,7),TH:(36,7),TM:(36,7),":"7A李(0,22),"Mines flagged:"7~术"BM285,90C5RUE3R10FR2FRFBD2GLGL2GL10H3U2BR21U4NG3D10H3"7詟 Y񼃽2: X񼃾37迏 M(X,Y)0 M(X,Y)1:SP(3)7鑵 M(X,Y)4 SP(3)37騾 M(X,Y)7 SP(2)68 鼌 M(X,Y)9 SP(2)885(X1212,Y1212)(X121,Y121),SP8? X,Y8E8^d:僑ET MINES AND CAMP8xnX(19)2:Y(10)18x A砐11: B砓118侻(A,B)超M(A,B)8寢 B,A8朚(X,Y)148爛 A1M88獉 LO񼃾 08碭(23):Y(12)9緟 M(X,Y)0 M(X,Y)14 LO29葖 LO9覅 (X1 Y睺V2 Y碩V2) (X23 Y睩V2 Y碏V2) 6570 :僋O MINES AT START OR END OF ROAD9躆(X,Y)超M(X,Y) :僑ET A MINE9鎷 A9饜9L:僆NTRO9V40:5:"V1T48O1":0,23: CS 2,63: 1,59 : 2,37:1,52:`扴L,0:"I",#1,"INTRO.TXT":=j LI 4,1:LI0 : 4,2:LI1:Xt (1)超1 44539::t~#1,T$: T$"1" 仴 7600:圱$"o "玊$(36(T$)," ")" o":嘥$;:拝 挻"" :溕"L56O1V24C": 7530:癆$: A$"" 仴 7600;簠 A$"Y" A$"y" 7530;膮 A$"N" A$"n" ;)蝸7600;M!4:僀ONFIGURATION AND HIGH SCORES;d!>:僌N ERR GOTO 8700;}!H"I",#1,"SCORES.DAT";!R A񼄁:#1,HS$(A):#1,HS(A): A;!\ #1;!f"I", #1,"CONFIG.INI": #1,CS: #1,JK: #1;!p嘆5,"CURRENT CONFIGURATION"<3!z:嚖8);"MONITOR: ";: CS "RGB" : "COMPOSITE/TV""$A$: A$"1" A$"3" 仴 8740>".JK(A$)1>6"8:嚖5);"SAVING CONFIGURATION">a"B"O",#1,"CONFIG.INI":#1,CS:#1,JK:#1>g#'>#(&HFFA2,&H3A:扴L,0: 0,0: 40: CS : >#2"Minecamp, the next mission","by Diego Barizo, 2018":"www.yaccs.info / www.cocowares.com" w|ww|莣w|wwwwwwwww|ww|莣w|www莣w莣w莣|"AAAA!"A!!AA!!ww|ww|ww|莣w莣w莣w蘷www|ww|莣w|莣www糖wwwwww|ww|ww|莣w莣w莣|"AA!"A!!B!!AAB!!!ww|www莣w|莣w莣w莣w燎www|ww|莣w|wwww|wwww|ww|www莣w|莣w莣w莣|"AB!!AAA!AA!ww|莣wwww燎ww莣w莣w燎w|ww|ww|莣w|wwDiego 692 D2 683 D. Barizo 380 Diego 180 D 149 Battalion." "" "The unit is to be deployed" "immediately in support of UN relief" "convoys." "The main mission is the clean up of" "routes to allow fast access of" "essential suplies." "The secondarA2,&H3A< ON BRK GOTO 8000EF LO1 2 0:A$: A$"" LO[P 196,1: 65497,0rZ仸 5000 :僔ARIBLESd仸 5500 :僄RAPHICSn仸 7500 :僆NTROx#1:扚A,0侻R20獿V5:ML矼R:MM矼R: MINES FLAGGED,LEFT AND MAX寔 6000 :僊AP朅A1:EC0:(290,90),6,5&爜 6500 : MINES0狝$9煶0I葌 MAIN LOOPe译(HO,VO)(HO8,VO8),23軈 JK2 H((0)2.8)1:V((1)5.5)1邊 JK1 (0)50 H矵1 : JK1 (0)14 H矵1 鄥 JK1 (1)50 V砎1 : JK1 (1)14 V砎1-釁 H23 H23 : H1 H1N銋 V1 V1 : V12 V12t鍴O矵G:VO砎G:HG矵1210:VG砎1210痃 4:(34,7),TH:(36,7),(TM)鷧 TH铂1 TM砊M.1: TM0 TM59:TH砊H1 5:(34,7),TH:(36,7),(TM):(36,7),":"" HO床HG VO床VG (HO,VO)(HO8,VO8),23 HO床HG VO床VG (HG,VG)(HG8,VG8),23:"BM"(HG)","(VG)"C10BDD3R4U4L4F8UNH7DLH7"" LO1 10, (0)1 仸 1000:(HG,VG)(HG8,VG8),23 : IS THERE A MINE?6 (1)1 1500 : PUT A FLAG;; @A$ J A$" " 1500xL A$"^" V砎1 : A$(10) V砎1 : A$(8) H矵1 : A$(9) H矵1T A$(13) 仸 1000^ AA1 (A$"A" A$"a") 仸 2500h A$"D" A$"d" 3000r LO|仴 220鑲 IS THERE A MINE?盱(HG,VG)(HG8,VG8),23C騾 (M(H,V))99 "V16T16O1AFAF":T"O1L8T64AF"} M(H,V)0 仸 4500 : BLASTED A MINEC0:X矵:Y砎$ A砐1 X1: B砓1 Y1. B1 B8 B13 1120B A1 AL A24 1130V M(A,B)0 C矯1` B,A)j C0 Z0 1190et X0 Y0 X24 Y13 1160 : OUTSIDE VISIBLE MAP~ (M(X,Y))99 "BM"(X127)","(Y1210)"C5"玁$(C):"BM"(X1212)","(Y121)"C1U11R11"垍 Z1 拹渽 Z1   SHOW ALL AROUND癦15簚 CX矵1 H1: CY砎1 V1O腃0:X矯X:Y矯Y:仸 1060[螊 CY,CXc豘0i鈵z軅 PUT A FLAG鎱 (M(H,V))99 仸 2000:仴 220餗(H,V)矼(H,V)100(M(H,V)) : ADD 100 OR -100 TO FLAG(HG,VG)(HG8,VG8),234 "BM* 32::1: 65497,0) 仴 90005仸 8500Z:嚖4);"DIFFICULTY LEVEL? (1-3)"zA$: A$"1" A$"3" 4DL(A$):嘆364,"GOT IT!" CS 覯"MINECAMP.RGB" : 覯"MINECAMP.CMP"2:A4851:&HFFA2,A覯"MINECAMP.SC"(A1)(婣2 &HFFA2,&H3A.Z仸 5000 :僔ARIBLESEd仸 5500 :僄RAPHICSi1:(72,128)(248,136),,BF:5:(9,16),"Press any key to begin"k 挸"" 仴 107n仸 7500 :僆NTROx#1:扚A,0侻R20獿V5:ML矼R:MM矼R:僊INES FLAGGED,LEFT AND MAX寔 6000 :僊AP#朅A1:EC0:(290,90),6,57爜 6500 :僊INESA狝$Q:僊AIN LOOPm译(HO,VO)(HO8,VO8),17軈 JK2 H((0)2.8)1:V((1)5.5)1鈪 JK1 仸 440鍴O矵G:VO砎G:HG矵1210:VG砎1210痃4:(34,7),TH:(36,7),(TM)%鷧 TH铂1 TM砊M.1: TM0 TM59:TH砊H1E TH0 TH0:TM0:7 : 5o(34,7),TH:(36,7),(TM):(36,7),":" HO床HG VO床VG (HO,VO)(HO8,VO8),17:(HG,VG)(HG8,VG8),17:"BM"(HG)","(VG)"C10BDD3R4U4L4F8UNH7DLH7"" LO񼃽0?, JK (0)1 仸 1000:(HG,VG)(HG8,VG8),17 :僆S THERE A MINE?h6 JK (1)1 1500 :働UT A FLAGr@A$E JK0 仸 400J A$" " A$(4) 1500T A$(13) A$(103) 仸 1000:(HG,VG)(HG8,VG8),17^ AA1 (A$"A" A$"a") 仸 2500$h A$"D" A$"d" 3000-r LO8|仴 220O:僈EYBOARD CONTROL殔 A$(8) H矵1 : A$(9) H矵1 : A$(10) V砎1 : A$"^" V砎1焻 H23 H23 : H1 H1 V12 V12 : V1 V1異:僇OYSTICK CONTROL3聟 (0)50 H矵1 : (0)14 H矵1`虆 (1)50 V砎1 : (0)14 V砎1謪 H23 H23 : H1 H1鄥 V12 V12 : V1 V1陳:僆S THERE A MINE?盱(HG,VG)(HG8,VG8),17騾 (M(H,V))99 "V16T16O1AFAF":+ M(H,V)0 仸 4500 :傿LASTED A MINEE 扴L,0:"O1"獴L$:扚A,0UC0:X矵:Y砎q$ A砐11: B砓11. B1 B8 B13 1120B A1 AL A24 1130V M(A,B)0 C矯1` B,Aj C0 Z0 1190(t X0 Y0 X24 Y13 1160 :僌UTSIDE VISIBLE MAP~ (M(X,Y))99 "BM"(X127)","(Y1210)"C5"玁$(C):"BM"(X1212)","(Y121)"C1U11R11"垍 Z1 拹渽 Z1 :僑HOW ALL AROUND癦1簚 CX矵11: CY砎11腃0:X矯X:Y矯Y:仸 1060螊 CY,CX"豘0(鈵9:働UT A FLAG\鎱 (M(H,V))99 仸 2000:仴 220餗(H,V)矼(H,V)100(M(H,V)) :傾DD 100 OR -100 TO FLAG(HG,VG)(HG8,VG8),17"BM"(HG)","(VG6)"C7E6RG7RE6FD3GDLGL3H3U3EURER3" (HG,VG)(HG8,VG8),17'扴L,0:"O2"獴L$:扚A,0="4:(14,22),MM琈R[,MR矼R1:5:(14,22),MM琈Rt6 M(H,V)0 ML矼L1@ MR0 "V16O1T8FCFCFC"J仴 220:僀LEAR A MINE阽4:(14,22),MM琈R銶(H,V)矼(H,V)100(M(H,V)):MR矼R1铉5:(14,22),MM琈R鴧 (M(H,V))1 SP(3) : (M(H,V))4 SP(3)3 : (M(H,V))7 SP(2)6 : (M(H,V))9 SP(2)8(H1212,V1212)(H121,V121),SP, (HG,VG)(HG8,VG8),17 :僑TRIKE 螀 H23 H1252 : H1矵1212  貐 V1 V10 : V1砎1224 ; 鈪 H1 H20 : H2矵1224 ] 靺 V12 V2120 : V2砎1212 k 鰢: SP,FP 扴L,0:"V31"獷X$:扚A,O EX1823:(H1,V1)(H123,V123),EX:(H2,V2)(H223,V223),EX 扴L,0:"V25"獷X$:扚A,0: EX  EX2125!0 ((H1,V1)(H123,V123),EX:(H2,V2)(H223,V223),EX!P 2扴L,0:"V20"獷X$:扚A,0: EX! <扴L,0: VO162 2:"V"(VO)獷X$: VO:扚A,0! F5:(H126,V126),18,5:(H126,V126),11,5! P X矵11: Y砎11"h Z M(X,Y)0 (X1212,Y1212)(X121,Y121),11: M(X,Y)铂99 4:(14,22),MM琈R:ML矼L1:MR矼R1:5:(14,22),MM琈R:M(X,Y)超101 : M(X,Y)超101"r d Y,X" n匨(H,V)14ъ(H1212,V1212)(H121,V121),16:EC1" xAA0:(290,90),7,5" 傠(HG,VG)(HG8,VG8),17" 寪" :僁RIVING THE TRUCK# 蚂(HG,VG)(HG8,VG8),17#0 蘃1:V砊V:TM(TM)#A 謤 LO񼃾 0#i 郒G矵1214:VG砎1212: HG0 HG0# 觌 (HG,VG)(HG13,VG13),17# 魠 A$"^" (HG4,VG)(HG11,VG13),15 : A$(10) (HG4,VG)(HG11,VG13),14 : (HG,VG2)(HG13,VG9),13$$ 䜣 DO񼃾 0:A$: A$"" DO$4 HO矵G:VO砎G$O  A$"^" V1 V砎1$n  A$(10) V12 V砎1$ & A$(8) H1 H矵1$ 0 A$(9) H23 H矵1$ : M(H,V)0 M(H,V)铂101 4500 :僊INE!% = VE砎11: (4)1 M(H1,VE)船99 M(H1,VE)铂200 EX1825 2:((H1)1218,VE1218)((H1)125,VE125),EX:扴L,0:"V"(60珽X2)獷X$:扚A,0:M(H1,VE)超200: EX% ? VE% D H23 V矲V LO2:扴L,0:"O1V22T8L4EECAACB":扚A,0% NOM砊M:OH砊H% X M(H,V)1 TM砊M1& b M(H,V)7 TM砊M2&$ g M(H,V)9 TM砊M4&B i TM0 TM60玊M:TH砊H1& l TH铂1 TM床OM 4:(34,7),OH:(36,7),OM:5:(34,7),TH:(36,7),TM& q(HO,VO)(HO13,VO13),17& v LO& 仸 4000& :僉ETS CALCULATE THE SCORE& 朵 0: 6: 3,5,U'B 绤 TH0 JT1 LV5 嚖11);"* Final Score *" : 嚖10);"Score for level";LV'N 束 3,5:'n 試"Mines on this level:"MM:' 轕P(MM琈L)10:SC砈C玃P :僃OUND' 鑷"Mines found:"MM琈L: 20,4: PP"points"' 騊P(ML琈R)5:SC砈C琍P :僃ALSE FLAGS( 鼑"False alarms:"ML琈R: 19,5: 7,5:"-"PP"points"(=PP矼L2:SC砈C琍P :僋OT FOUND(t 3,5:"Mines left:"ML: 19,6: 7,5:"-"PP"points"( EC EC50獿V5:SC砈C獷C($ EC 0,5:"Enemy camp destroyed:":20,7:嘐C"points"(.匤T1(8TI砊H60玊M)BTU砊I(DL120琇V60) :傾RE WE ON TIME?)6QTL$(TH)":"((TM),2,3))WV 3,5:0,9:"Time left:";TL$)d`SC砈C玊U)j TU0 7,5 : 3,5)t 20,9: TU"points")y TH0 LV矰L2 4610 :僋O TIME OR FINAL LEVEL)~ 3,5::嚖6);"Current total score:"SC*垁 A񼃽2: B񼃾3:M(B,A)0: B,A*<扡V矻V1:HG2:VG2:HO2:VO2*H渷 5040*}:嚖7);"Press any key to continue": 44539:A$*颁 2*簛 130*:僑HOW MINES*獉 Y񼃽2: X񼃾3*磪 M(X,Y)0 (X1212,Y1212)(X121,Y121),11+&緟 M(X,Y)14 (X1212,Y1212)(X121,Y121),16+1葖 X,Y+?尧 44539:+U:傿LASTED A MINE!+r濰X矵1218: HX0 HX0+╒X砎1218: VX0 VX0+矑SL,0:"V31"獷X$:扚A,0+紑 A1823:(HX,VX)(HX23,VX23),A:扴L,0:"V25"獷X$:扚A,0: A,-苺 A2123:(HX,VX)(HX23,VX23),A:扴L,0:"V20"獷X$:扚A,0:婣,n衻 A2125:(HX,VX)(HX23,VX23),A:扴L,0:"V15"獷X$:扚A,0:婣,趻SL,0: V122 2:"V"(V)獷X$: V:扚A,0,鋪 4000,頙T1,鴣 3500,:僂ND GAME, :-7 JT1 TH0 7,5:嚖8);"THE MISSION HAS FAILED" : 1,5:嚖6);"THE MISSION IS A SUCCESS"-a 3,5::嚖8);"The final score is"SC:-" A񼄁: SC睭S(A) 4644 : A-$ B4 ┈1:HS$(B1)矵S$(B):HS(B1)矵S(B): B.I* A6 嚖8)"You have a High Score!":"What is your name?";NA$:HS$(A)砃A$:HS(A)砈C:"O",#1,"SCORES.DAT": A񼄁:#1,HS$(A):#1,HS(A): A:#1./嚖14);"High Scores": A񼄁:嚖15((HS(A))));HS(A);" - ";HS$(A): A.4:嚖4);"Do you want to play again? (Y/N)".>A$.H A$"N" A$"n" 8500/ R A$床"Y" A$床"y" 仴 4670/9T:嚖4);"In which difficulty level? (1-3)"/\VA$: A$"1" A$"3" 4694/jXDL(A$)/\:5,10:"Let me reset a few things..."/fSC0:JT0/p A񼃽3: B񼃾4:M(B,A)0: B,A/z仸 5030: 2:仴 130/:僆NIZIALIZE VARIABLES0扲():FA65497:SL654960K湆 M(24,13) :+100 IS FLAG, NEGATIVE IS MINE0hV1:TH矰L2:TM60珼L200皜 A񼃽0獿V2 :僑ET ROCKS0篨(23):Y(12):H1:V60腗(X,Y)70螊 A0貈 R񼃾0釸H(21)10靲 RV񼃽2:M(RH,RV)9: RV,R1>鯯V(12):FV((LV3)2)(LV3)玈V: FV12 FV12 : FV1 FV11HTV砈V1EX$"O1L254FAEDEBFGECE":BL$"L254V24FV31FV24FFV20FV16FV12FV8FV4F":傾FDFCEC"1RH1:SH0:RV01#SH砈H玆H:SV砈V玆V:M(SH,SV)42( SH23 RH0: SV睩V RV超1:仴 5190 : RV0:仴 51902'2 SV矲V RV0:RH1:仴 51552l< (3)1 RH超(琑H): RH0 SV睩V RV超1 : RV1 : RV02F SV矲V SH23 2Z仴 51552d2|:僑ETUP GRAPHICS2唨 A1825: A,600: A::僂XPLOSION3愲(36,156)(59,179),18:(276,156)(299,179),19:(144,108)(167,131),203`氹(24,12)(47,35),21:(252,84)(275,107),22:(264,12)(287,35),233る(36,84)(59,107),24:(144,12)(167,35),253竴 A񼃽7: A,99: A :17 IS BUFFER3码(0,0)(11,11),1:(12,0)(23,11),2:(24,0)(35,11),341屉(0,132)(11,143),4:(12,132)(23,143),5:(24,132)(35,143),64Y蛛(0,12)(11,23),7:(0,24)(11,35),84嚯(120,0)(131,11),9:(204,0)(215,11),10:(0,36)(11,47),114綦(142,146)(155,153),13:(110,144)(117,157),14:(230,156)(237,169),155(168,168)(179,179),165﨨$(1)"DGE2D7NL2NR2"52N$(1)"NG1D6NL1NR1"5NN$(2)"LNGR2FDGL2GD2R4"5iN$(3)"LNGR2FDGFDGL2H"5&N$(4)"G3DR4LNU4D2"50N$(5)"NR2L2D2R3FD2GL2H"5:N$(6)"NRLGD4FR2EUHL3"5DN$(7)"NL2R2DG4D"5NN$(0)"DRUL"5b5p:僑HOW MAP6'z 2: 4:5: CS 1,55:2,52 : 1,52:2,376I凙$"Level:"(LV):(0,19),A$6l嶢$"Score:"(SC):(20,19),A$6楢$"Mines in this level:"(MR):(0,21),A$6㈩(35,4),"Time":(35,5),"Left"6(76,107)(201,122),,B:(10,14),"Downloading map"7额(34,7),TH:(36,7),TM:(36,7),":"78李(0,22),"Mines flagged:"7u术"BM285,90C5RUE3R10FR2FRFBD2GLGL2GL10H3U2BR21U4NG3D10H3"7詟 Y񼃽2: X񼃾37迏 M(X,Y)0 M(X,Y)1:SP(3)7鑵 M(X,Y)4 SP(3)37騾 M(X,Y)7 SP(2)68鼌 M(X,Y)9 SP(2)88,(X1212,Y1212)(X121,Y121),SP86 X,Y8<8Ud:僑ET MINES AND CAMP8onX(19)2:Y(10)18x A砐11: B砓118侻(A,B)超M(A,B)8寢 B,A8朚(X,Y)148爛 A1M88獉 LO񼃾 08碭(23):Y(12)9 緟 M(X,Y)0 M(X,Y)14 LO29葖 LO9y覅 (X1 Y睺V2 Y碩V2) (X23 Y睩V2 Y碏V2) 6570 :僋O MINES AT START OR END OF ROAD9躆(X,Y)超M(X,Y) :僑ET A MINE9鎷 A9饜9L:僆NTRO9V40:5:"V1T48O1":0,23: CS 2,63: 1,59 : 2,37:1,52:`扴L,0:"I",#1,"INTRO.TXT":4j LI 4,1:LI0 : 4,2:LI1:Ot (1)超1 44539::k~#1,T$: T$"1" 仴 7600:圱$"o "玊$(36(T$)," ")" o":嘥$;:拝 挻"" :溕"L56O1V24C": 7530:癆$: A$"" 仴 7600:簠 A$"Y" A$"y" 7530;膮 A$"N" A$"n" ; 蝸7600;D!4:僀ONFIGURATION AND HIGH SCORES;[!>:僌N ERR GOTO 8700;t!H"I",#1,"SCORES.DAT";!R A񼄁:#1,HS$(A):#1,HS(A): A;!\ #1;!f"I", #1,"CONFIG.INI": #1,CS: #1,JK: #1;!p嘆5,"CURRENT CONFIGURATION"<*!z:嚖8);"MONITOR: ";: CS "RGB" : "COMPOSITE/TV"<{!剣:嚖8);"CONTROL: ";: JK0 "KEYBOARD" : JK1 "JOYSTICK" : "MOUSE" ".JK(A$)1>-"8:嚖5);"SAVING CONFIGURATION">X"B"O",#1,"CONFIG.INI":#1,CS:#1,JK:#1>^#'>#(&HFFA2,&H3A:扴L,0: 0,0: 40: CS : >#2"Minecamp, the next mission","by Diego Barizo, 2018":"www.yaccs.info / www.cocowares.com" 8740> "AAC3"BABAAAAAAA"AAAAADAAAAAC3!ADDDDw"'GDDDAAAA32AAAAA"A"A"A"AAAAAAADDAAAAAC3"A!"D"DG"'!'tDDDA!"AAA32!A!"AA!"AAAAAAA!!AAAAAAAAAC3"ADDtG"!wtDAAAAA32!AAA+ 32::1: 65497,0) 仴 90005仸 8500Z:嚖4);"DIFFICULTY LEVEL? (1-3)"zA$: A$"1" A$"3" 4DL(A$):嘆364,"GOT IT!" CS 覯"MINECAMP.RGB" : 覯"MINECAMP.CMP"2:A4851:&HFFA2,A覯"MINECAMP.SC"(A1)(婣2 &HFFA2,&H3A!< 1,18Z仸 5000 :僔ARIBLESC_ 60,1Zd仸 5500 :僄RAPHICSi1:(72,128)(248,136),,BF:5:(9,16),"Press any key to begin"k 挸"" 仴 107n仸 7500 :僆NTROx#1:扚A,0 侻R20獿V5:ML矼R:MM矼R:僊INES FLAGGED,LEFT AND MAX寔 6000 :僊AP8朅A1:EC0:(290,90),6,5L爜 6500 :僊INESV狝$f:僊AIN LOOP译(HO,VO)(HO8,VO8),17軈 JK2 H((0)2.8)1:V((1)5.5)1鈪 JK1 仸 440鍴O矵G:VO砎G:HG矵1210:VG砎1210 痃4:(34,7),TH:(36,7),(TM):鷧 TH铂1 TM砊M.1: TM0 TM59:TH砊H1Z TH0 TH0:TM0:7 : 5(34,7),TH:(36,7),(TM):(36,7),":" HO床HG VO床VG (HO,VO)(HO8,VO8),17:(HG,VG)(HG8,VG8),17:"BM"(HG)","(VG)獵U$" LO񼃽0%, JK (0)1 仸 1000:僆S THERE A MINE?N6 JK (1)1 1500 :働UT A FLAGX@A$jE JK0 仸 400J A$" " A$(4) 1500T A$(13) A$(103) 仸 1000^ AA1 (A$"A" A$"a") 仸 2500h A$"D" A$"d" 3000r LO|仴 220:僈EYBOARD CONTROLu殔 A$(8) H矵1 : A$(9) H矵1 : A$(10) V砎1 : A$"^" V砎1焻 H23 H23 : H1 H1 V12 V12 : V1 V1異:僇OYSTICK CONTROL聟 (0)50 H矵1 : (0)14 H矵1.虆 (1)50 V砎1 : (0)14 V砎1O謪 H23 H23 : H1 H1p鄥 V12 V12 : V1 V1v陳:僆S THERE A MINE?盱(HG,VG)(HG8,VG8),17騾 (M(H,V))99 "V16T16O1AFAF": M(H,V)0 仸 4500 :傿LASTED A MINE 扴L,0:"O1"獴L$:扚A,0#C0:X矵:Y砎?$ A砐11: B砓11O. B1 Ba8 B13 1120qB A1 AL A24 1130V M(A,B)0 C矯1` B,Aj C0 Z0 1190t X0 Y0 X24 Y13 1160 :僌UTSIDE VISIBLE MAPd~ (M(X,Y))99 "BM"(X127)","(Y1210)"C5"玁$(C):"BM"(X1212)","(Y121)"C1U11R11"r儏 Z1 堧(HG,VG)(HG8,VG8),17拹:僑HOW ALL AROUND癦1簚 CX矵11: CY砎11腃0:X矯X:Y矯Y:仸 1060螊 CY,CX豘0怆(HG,VG)(HG8,VG8),17:-:働UT A FLAGP鎱 (M(H,V))99 仸 2000:仴 220餗(H,V)矼(H,V)100(M(H,V)) :傾DD 100 OR -100 TO FLAG(HG,VG)(HG8,VG8),17"BM"(HG)","(VG6)"C7E6RG7RE6FD3GDLGL3H3U3EURER3"(HG,VG)(HG8,VG8),17扴L,0:"O2"獴L$:扚A,01"4:(14,22),MM琈RO,MR矼R1:5:(14,22),MM琈Rh6 M(H,V)0 ML矼L1@ MR0 "V16O1T8FCFCFC"J仴 220:僀LEAR A MINE阽4:(14,22),MM琈R銶(H,V)矼(H,V)100(M(H,V)):MR矼R1铉5:(14,22),MM琈Rt鴧 (M(H,V))1 SP(3) : (M(H,V))4 SP(3)3 : (M(H,V))7 SP(2)6 : (M(H,V))9 SP(2)8(H1212,V1212)(H121,V121),SP (HG,VG)(HG8,VG8),17 :僑TRIKE 螀 H23 H1252 : H1矵1212  貐 V1 V10 : V1砎1224 - 鈪 H1 H20 : H2矵1224 O 靺 V12 V2120 : V2砎1212 ] 鰢: SP,FP x 扴L,0:"V31"獷X$:扚A,O EX1823:(H1,V1)(H123,V123),EX:(H2,V2)(H223,V223),EX 扴L,0:"V25"獷X$:扚A,0: EX  EX2125!" ((H1,V1)(H123,V123),EX:(H2,V2)(H223,V223),EX!B 2扴L,0:"V20"獷X$:扚A,0: EX!v <扴L,0: VO162 2:"V"(VO)獷X$: VO:扚A,0! F5:(H126,V126),18,5:(H126,V126),11,5! P X矵11: Y砎11"Z Z M(X,Y)0 (X1212,Y1212)(X121,Y121),11: M(X,Y)铂99 4:(14,22),MM琈R:ML矼L1:MR矼R1:5:(14,22),MM琈R:M(X,Y)超101 : M(X,Y)超101"d d Y,X" n匨(H,V)14ъ(H1212,V1212)(H121,V121),16:EC1" xAA0:(290,90),7,5" 傠(HG,VG)(HG8,VG8),17" 寪" :僁RIVING THE TRUCK# 蚂(HG,VG)(HG8,VG8),17#" 蘃1:V砊V:TM(TM)#3 謤 LO񼃾 0#[ 郒G矵1214:VG砎1212: HG0 HG0#z 觌 (HG,VG)(HG13,VG13),17# 魠 A$"^" (HG4,VG)(HG11,VG13),15 : A$(10) (HG4,VG)(HG11,VG13),14 : (HG,VG2)(HG13,VG9),13$ 䜣 DO񼃾 0:A$: A$"" DO$& HO矵G:VO砎G$A  A$"^" V1 V砎1$`  A$(10) V12 V砎1$} & A$(8) H1 H矵1$ 0 A$(9) H23 H矵1$ : M(H,V)0 M(H,V)铂101 4500 :僊INE!$ ; VE砎11: VE2 VE2$ A$/;H A$"N" A$"n" 9000/]R A$床"Y" A$床"y" 仴 4670/T:嚖4);"In which difficulty level? (1-3)"/VA$: A$"1" A$"3" 4694/XDL(A$)/\:5,10:"Let me reset a few things..."/fSC0:JT00p A񼃽3: B񼃾4:M(B,A)0: B,A02z仸 5030: 2:仴 1300M:僆NIZIALIZE VARIABLES0m扲():FA65497:SL654960湆 M(24,13) :+100 IS FLAG, NEGATIVE IS MINE0V1:TH矰L2:TM60珼L200皜 A񼃽0獿V2 :僑ET ROCKS0篨(23):Y(12)0腗(X,Y)71螊 A1訝 20,11貈 R񼃾1*釸H(21)11J靲 RV񼃽2:M(RH,RV)9: RV,R1鯯V(12):FV((LV3)2)(LV3)玈V: FV12 FV12 : FV1 FV11TV砈V:H1:V61 40,11 CU$"C10NF2R7NG2D7NH2L7NE2U7": CU$="C10BDD3R4U4L4F8UNH7DLH7"2BEX$"O1L254FAEDEBFGECE":BL$"L254V24FV31FV24FFV20FV16FV12FV8FV4F":傾FDFCEC"2URH1:SH0:RV02v#SH砈H玆H:SV砈V玆V:M(SH,SV)42( SH23 RH0: SV睩V RV超1:仴 5190 : RV0:仴 519022 SV矲V RV0:RH1:仴 51553< (3)1 RH超(琑H): RH0 SV睩V RV超1 : RV1 : RV03.F SV矲V SH23 3:Z仴 51553@d3U|:僑ETUP GRAPHICS3{唨 A1825: A,600: A::僂XPLOSION3愲(36,156)(59,179),18:(276,156)(299,179),19:(144,108)(167,131),204 氹(24,12)(47,35),21:(252,84)(275,107),22:(264,12)(287,35),2349る(36,84)(59,107),24:(144,12)(167,35),254D疇 80,14k竴 A񼃽7: A,99: A :17 IS BUFFER4码(0,0)(11,11),1:(12,0)(23,11),2:(24,0)(35,11),34屉(0,132)(11,143),4:(12,132)(23,143),5:(24,132)(35,143),65蛛(0,12)(11,23),7:(0,24)(11,35),85N嚯(120,0)(131,11),9:(204,0)(215,11),10:(0,36)(11,47),115綦(142,146)(155,153),13:(110,144)(117,157),14:(230,156)(237,169),155(168,168)(179,179),165﨨$(1)"DGE2D7NL2NR2"5N$(1)"NG1D6NL1NR1"6N$(2)"LNGR2FDGL2GD2R4"6N$(3)"LNGR2FDGFDGL2H"66&N$(4)"G3DR4LNU4D2"6S0N$(5)"NR2L2D2R3FD2GL2H"6n:N$(6)"NRLGD4FR2EUHL3"6DN$(7)"NL2R2DG4D"6NN$(0)"DRUL"6X 100,16b6p:僑HOW MAP6z 2: 4:5: CS 1,55:2,52 : 1,52:2,377 凙$"Level:"(LV):(0,19),A$7-嶢$"Score:"(SC):(20,19),A$7]楢$"Mines in this level:"(MR):(0,21),A$7㈩(35,4),"Time":(35,5),"Left"7(76,107)(201,122),,B:(10,14),"Downloading map"7额(34,7),TH:(36,7),TM:(36,7),":"7李(0,22),"Mines flagged:"86术"BM285,90C5RUE3R10FR2FRFBD2GLGL2GL10H3U2BR21U4NG3D10H3"8L詟 Y񼃽2: X񼃾38o迏 M(X,Y)0 M(X,Y)1:SP(3)8鑵 M(X,Y)4 SP(3)38騾 M(X,Y)7 SP(2)68鼌 M(X,Y)9 SP(2)88(X1212,Y1212)(X121,Y121),SP8 X,Y89d:僑ET MINES AND CAMP90nX(19)2:Y(10)19Lx A砐11: B砓119_侻(A,B)超M(A,B)9i寢 B,A9w朚(X,Y)149爛 A1M89獉 LO񼃾 09碭(23):Y(12)9緟 M(X,Y)0 M(X,Y)14 LO29葖 LO::覅 (X1 Y睺V2 Y碩V2) (X23 Y睩V2 Y碏V2) 6570 :僋O MINES AT START OR END OF ROAD:Z躆(X,Y)超M(X,Y) :僑ET A MINE:b鎷 A:h饜:tL:僆NTRO:V40:5:"V1T48O1":0,23: CS 2,63: 1,59 : 2,37:1,52:`扴L,0:"I",#1,"INTRO.TXT":j LI 4,1:LI0 : 4,2:LI1;t (1)超1 44539:;,~#1,T$: T$"1" 仴 7600;W圱$"o "玊$(36(T$)," ")" o":嘥$;;h拝 挻"" ;y溕"L56O1V24C"; 7530;癆$: A$"" 仴 7600;簠 A$"Y" A$"y" 7530;膮 A$"N" A$"n" ;蝸7600<!4:僀ONFIGURATION AND HIGH SCORES<!>:僌N ERR GOTO 8700<5!H"I",#1,"SCORES.DAT" "嘆129,"PRESS r FOR RGB, c FOR CMP/TV">U"A$: A$"R" A$"r" CS1 : A$床"C" A$床"c" 8720 : CS0>":嚖9);"KEYBOARD (1)":嚖9);"JOYSTICK (2)":嚖9);"OR MOUSE (3)">"$A$: A$"1" A$"3" 仴 8740>".JK(A$)1>"8:嚖5);"SAVING CONFIGURATION"?"B"O",#1,"CONFIG.INI":#1,CS:#1,JK:#1?#'?S#(&HFFA2,&H3A:扴L,0: 0,0: 40: CS : ?#2"Minecamp, the next mission","by Diego Barizo, 2018":"www.yaccs.info / www.cocowares.com" 8740>".JK(A$)1>"8:嚖5);"SAVING CONFIGURATION"?"B"O",#1,"CON:嚖9);"OR MOUSE (3)"?:"$A$: A$"1" A$"3" 仴 8740?J".JK(A$)1?l"8:嚖5);"SAVING CONFIGURATION"?"B "O",#1,"CONFIG.INI":#1,CS:#1,JK:#1?#'仴 3?' "I",#1,"SCORES.DAT"?' (1)超1 #1:?'$ #1,N$:嘚$,?'. #1,N:嘚?'8仴 10010!簚 CX矵1 H1: CY砎1 V1;腃0:X矯X:Y矯Y:仸 1060G螊 CY,CXO豘0U鈵f軅 PUT A FLAG鎱 (M(H,V))99 仸 2000:仴 220餗(H,V)矼(H,V)100(M(H,V)) : ADD 100 OR -100 TO FLAG(HG,VG)(HG8,VG8),17  "BM"(HG)","(VG6)"C7E6RG7RE6FD3GDLGL3H3U3EURER3"<(HG,VG)(HG8,VG8),17W扴L,0: "O2"獴L$:扚A,0n" 4:(14,22),MM琈R,MR矼R1: 5:(14,22),MM琈R6 M(H,V)0 ML矼L1@ MR0 "V16O1T8FCFCFC"J仴 220袀 CLEAR A MINE阽 4:(14,22),MM琈R"銶(H,V)矼(H,V)100(M(H,V)):MR矼R19铉 5:(14,22),MM琈R鴧 (M(H,V))1 SP(3) : (M(H,V))4 SP(3)3 : (M(H,V))7 SP(2)6 : (M(H,V))9 SP(2)8(H1212,V1212)(H121,V121),SP, (HG,VG)(HG8,VG8),17   膫 STRIKE 1 螀 H23 H1252 : H1矵1212 P 貐 V1 V10 : V1砎1224 o 鈪 H1 H20 : H2矵1224 靺 V12 V2120 : V2砎1212 鰢: SP,FP 扴L,0:"V31"獷X$:扚A,O EX18 23:(H1,V1)(H123,V123),EX:(H2,V2)(H223,V223),EX! 扴L,0:"V25"獷X$:扚A,0: EX!0  EX21 25!h ((H1,V1)(H123,V123),EX:(H2,V2)(H223,V223),EX! 2扴L,0:"V20"獷X$:扚A,0: EX! <扴L,0: VO16 2 2:"V"(VO)獷X$: VO:扚A,0! F 5:(H126,V126),18,5:(H126,V126),11,5" P X矵1 H1: Y砎1 V1" Z M(X,Y)0 (X1212,Y1212)(X121,Y121),11: M(X,Y)铂99 4:(14,22),MM琈R:ML矼L1:MR矼R1:5:(14,22),MM琈R:M(X,Y)超101 : M(X,Y)超101" d Y,X" n匨(H,V)14ъ(H1212,V1212)(H121,V121),16:EC1# xAA0:(290,90),7,5# 傠(HG,VG)(HG8,VG8),17#$ 寪#< 競 DRIVING THE TRUCK#X 蚂(HG,VG)(HG8,VG8),17#o 蘃1:V砊V:TM(TM)# 謤 LO1 2 0# 郒G矵1214:VG砎1210: HG0 HG0# 觌 (HG,VG)(HG13,VG7),17# 綮 (HG,VG)(HG13,VG7),13$ 䜣 DO1 2 0:A$: A$"" DO$ HO矵G:VO砎G$9  A$"^" V1 V砎1$X  A$(10) V12 V砎1$u & A$(8) H1 H矵1$ 0 A$(9) H23 H矵1$ : M(H,V)0 M(H,V)铂101 4500 : MINE!%w = VE砎1 V1: (4)1 M(H1,VE)船99 M(H1,VE)铂200 EX18 25 2:((H1)1218,VE1218)((H1)125,VE125),EX:扴L,0: "V"(60珽X2)獷X$:扚A,0:M(H1,VE)超200: EX% ? VE% D H23 V矲V LO2:扴L,0:"O1V22T8L4EECAACB":扚A,0% NOM砊M:OH砊H% X M(H,V)1 TM砊M1% b M(H,V)7 TM砊M2& g M(H,V)9 TM砊M4&2 i TM0 TM60玊M:TH砊H1&} l TH铂1 TM床OM 4:(34,7),OH:(36,7),OM: 5:(34,7),TH:(36,7),TM& q(HO,VO)(HO13,VO7),17& v LO& 仸 4000& : LETS CALCULATE THE SCORE& 朵 0: 6: 3,5,U'4 绤 TH0 JT1 LV5 嚖11);"* Final Score *" : 嚖10);"Score for level";LV'@ 束 3,5:'` 試"Mines on this level:"MM:' 轕P(MM琈L)10:SC砈C玃P :僃OUND' 鑷"Mines found:"MM琈L: 20,4: PP"points"' 騊P(ML琈R)5:SC砈C琍P :僃ALSE FLAGS( 鼑"False alarms:"ML琈R: 19,5: 7,5: "-"PP"points"(0PP矼L2:SC砈C琍P :僋OT FOUND(h 3,5:"Mines left:"ML: 19,6: 7,5: "-"PP"points"( EC EC50獿V5:SC砈C獷C($ EC 0,5:"Enemy camp destroyed:":20,7:嘐C"points"(.匤T1(8TI砊H60玊M)BTU砊I(DL120琇V60) :傾RE WE ON TIME?)*QTL$(TH)":"((TM),2,3))KV 3,5:0,9:"Time left:";TL$)X`SC砈C玊U)tj TU0 7,5 : 3,5)t 20,9: TU"points")y TH0 LV矰L2 4610 :僋O TIME OR FINAL LEVEL)~ 3,5::嚖6);"Current total score:"SC*垁 A1 12: B1 23:M(B,A)0: B,A*4扡V矻V1:HG2:VG2:HO2:VO2*@渷 5040*u:嚖7);"Press any key to continue": 44539:A$*}颁 2*簛 130*:僑HOW MINES*獉 Y񼃽2: X񼃾3*磪 M(X,Y)0 (X1212,Y1212)(X121,Y121),11+緟 M(X,Y)14 (X1212,Y1212)(X121,Y121),16+)葖 X,Y+7尧 44539:+M攤 BLASTED A MINE!+j濰X矵1218: HX0 HX0+╒X砎1218: VX0 VX0+矑SL,0:"V31"獷X$:扚A,0+紑 A18 23:(HX,VX)(HX23,VX23),A:扴L,0:"V25"獷X$:扚A,0: A,)苺 A21 23:(HX,VX)(HX23,VX23),A:扴L,0:"V20"獷X$:扚A,0:婣,l衻 A21 25:(HX,VX)(HX23,VX23),A:扴L,0:"V15"獷X$:扚A,0:婣,趻SL,0: V12 2 2:"V"(V)獷X$: V:扚A,0,鋪 4000,頙T1,鴣 3500,:僂ND GAME, :-7 JT1 TH0 7,5:嚖8);"THE MISSION HAS FAILED" : 1,5:嚖6);"THE MISSION IS A SUCCESS"-a 3,5::嚖8);"The final score is"SC:-" A1 5: SC睭S(A) 4644 : A-$ B4 A ┈1:HS$(B1)矵S$(B):HS(B1)矵S(B): B.P* A6 嚖8)"You have a High Score!":"What is your name?";NA$:HS$(A)砃A$:HS(A)砈C: "O",#1,"SCORES.DAT": A1 5:#1,HS$(A):#1,HS(A): A:#1./嚖14);"High Scores": A1 5:嚖15((HS(A))));HS(A);" - ";HS$(A): A.4:嚖4);"Do you want to play again? (Y/N)".>A$.H A$"N" A$"n" 8000/R A$床"Y" A$床"y" 仴 4670/BT:嚖4);"In which difficulty level? (1-3)"/eVA$: A$"1" A$"3" 4694/sXDL(A$)/\:5,10:"Let me reset a few things..."/fSC0:JT0/p A1 13: B1 24:M(B,A)0: B,A/z仸 5030: 2:仴 1300垈 INIZIALIZE VARIABLES0(扲():FA65497:SL654960Y湆 M(24,13) : +100 IS FLAG, NEGATIVE IS MINE0vV1:TH矰L2:TM60珼L200皜 A1 10獿V2 : SET ROCKS0篨(23):Y(12):H1:V60腗(X,Y)70螊 A0貈 R1 20釸H(21)11 靲 RV1 12:M(RH,RV)9: RV,R1S鯯V(12):FV((LV3)2)(LV3)玈V: FV12 FV12 : FV1 FV11]TV砈V1EX$"O1L254FAEDEBFGECE":BL$"L254V24FV31FV24FFV20FV16FV12FV8FV4F":傾FDFCEC"1RH1:SH0:RV01#SH砈H玆H:SV砈V玆V:M(SH,SV)42( SH23 RH0 : SV睩V RV超1:仴 5190 : RV0:仴 51902>2 SV矲V RV0:RH1:仴 51552< (3)1 RH超(琑H): RH0 SV睩V RV超1 : RV1 : RV02F SV矲V SH23 2Z仴 51552d2| SETUP GRAPHICS2唨 A18 25: A,600: A:: EXPLOSION35愲(36,156)(59,179),18:(276,156)(299,179),19:(144,108)(167,131),203z氹(24,12)(47,35),21:(252,84)(275,107),22:(264,12)(287,35),233る(36,84)(59,107),24:(144,12)(167,35),253竴 A1 17: A,99: A :17 IS BUFFER3码(0,12)(11,23),1:(0,0)(11,11),24$屉(12,12)(23,23),3:(0,132)(11,143),44R蛛(12,132)(23,143),5:(72,132)(83,143),64{嚯(12,0)(23,11),7:(12,48)(23,59),84觌(120,0)(131,11),9:(120,24)(131,35),10:(132,0)(143,11),115 綦(142,146)(155,155),13:(110,142)(119,155),14:(218,156)(227,169),155&(168,168)(179,179),165?﨨$(1)"DGE2D7NL2NR2"5WN$(1)"NG1D6NL1NR1"5sN$(2)"LNGR2FDGL2GD2R4"5N$(3)"LNGR2FDGFDGL2H"5&N$(4)"G3DR4LNU4D2"50N$(5)"NR2L2D2R3FD2GL2H"5:N$(6)"NRLGD4FR2EUHL3"5DN$(7)"NL2R2DG4D"6NN$(0)"DRUL"6 b6p SHOW MAP6Mz 2: 4: 5: CS 1,55:2,52 : 1,52:2,376o凙$"Level:"(LV):(0,19),A$6嶢$"Score:"(SC):(20,19),A$6楢$"Mines in this level:"(MR):(0,21),A$6㈩(35,4),"Time":(35,5),"Left"7(76,107)(201,122),,B:(10,14),"Downloading map"7A额(34,7),TH:(36,7),TM:(36,7),":"7^李(0,22),"Mines flagged:"7术"BM285,90C5RUE3R10FR2FRFBD2GLGL2GL10H3U2BR21U4NG3D10H3"7詟 Y1 12: X1 237迏 M(X,Y)0 M(X,Y)1:SP(3)7鑵 M(X,Y)4 SP(3)38騾 M(X,