0 'ROBERTO "EL GORRAS" POR ANTERO MARTINEZ (Al,Dog) 2023, PARA CPCRETRODEV 2023
1 MODE 0:GOSUB 242:CLEAR:I=13:POKE &BDEE,201:BORDER I:FOR n=0 TO 34:ORIGIN 150,350-n*10:READ a$:|ENCRE,14,0:|TYPO,@a$:NEXT:CALL 40000,30332,58,180:CALL &8CA0,&84D0,0:A$=" PRESS 0 TO START GAME "
2 ORIGIN 1,1:PLOT 1,1,15:DRAW 1,394:DRAW 634,394:DRAW 634,1:DRAW 1,1:PLOT 5,5,14:DRAW 5,399:DRAW 639,399:DRAW 639,5:DRAW 5,5:c=0:l=1:y=30:hig=PEEK(26771):GL=PEEK(26770):IF GL>hig THEN hig=GL:POKE 26771,GL
3 ORIGIN 390,120:b$=STR$(GL):|ENCRE,15,0:|TYPO,@b$:ORIGIN 390,100:b$=STR$(hig):|TYPO,@b$:ORIGIN 1,140:GOSUB 241
4 MOVE 160+c,y:|TYPO,@a$:c=c-4:IF c=-8 THEN c=0:a$=RIGHT$(a$,LEN(a$)-1)+LEFT$(a$,1):y=y+l:IF y>42 THEN l=-1
5 IF y<18 THEN l=1
6 IF INKEY(32)=0 THEN 7 ELSE 4
7 CALL 41000:BORDER 0:INK 0,0:CLEAR:DEFINT t,z:sa=40000:sb=40053:sc=40110:s1=27000:s2=27193:s3=27386:s4=27579:s5=27772:S6=27965:S7=28158:S8=28351:S9=28544:s10=28737:o1=28930
8 o2=29077:O3=29227:M1=29374:COR=29404:es=29587:cuc=29765:bla=29828:ant=30159:vi=4:cl=41000:gr=30020:ke=30242:GOSUB 260
9 x=45:y=34:y1=34:v=2:pr=s1:L1=11:L2=129:e%=4:sl%=48:L3=11:L4=129:pl=36000:it=BLa:ar=30671:VID=30914:bar=31492:PT%=PEEK(42248):PC%=PEEK(42249)
10 sor=31729:dia=31776:cad=31823:bc=31918:tm%=50:pez=32084:ce=26:cra=97:cru=32435:cro=33415:col=31203:can=33268:BH=can:oft=8
11 A$="LET'S GO":ORIGIN 260,220:|TYPO,@A$:GOSUB 292:CALL cl
12 DI:EVERY 9,3 GOSUB 203:EVERY 300,2 GOSUB 278:u%=0:m2%=0:CLS:GOSUB 242:GOSUB 262
13 IF e%<>1 THEN 21
14 PEN 1:i=0:ch=251:MR=45:GOSUB 217:GOSUB 213:CALL sb,o2,15,199:CALL sa,gr,70,150:CALL sa,gr,110,80:L1=10:L3=10:L2=137:L4=141:LOCATE 16,13:PRINT STRING$(4,250):CALL sa,es,135,129
15 CALL sa,ant,60,80:V1=96:V2=31:GOSUB 263:CALL SA,ar,48,191:CALL sa,bar,119,127:A=14:B=6:x2=138:y2=96:u%=2:GOSUB 247:GOSUB 224:GOSUB 226:GOSUB 239
16 IF sr=0 THEN CI=15:y=170:GOSUB 236:sr=1:A$="<OLD  WINERY>":GOSUB 243 ELSE GOSUB 183
17 IF(x>50 AND x<70)THEN CI=60:GOTO 227:ELSE IF(x>98 AND x<117)THEN CI=108:GOTO 227
18 IF A(1)THEN CALL Sb,M1,84,Y-6:IF(x>78 AND x<84)THEN CALL sa,bc,84,y-3:A(1)=0:p=p+1:GOSUB 249
19 IF x>136 THEN e%=2:X=6:GOTO 12
20 GOTO 180
21 IF e%<>2 THEN 28
22 PEN 9:i=4:GOSUB 217:LOCATE 2,14:PRINT STRING$(8,250):FOR n=9 TO 62 STEP 13:CALL sa,bar,n,119:NEXT:CALL sb,o3,40,199:CALL sa,gr,90,140:GOSUB 214:GOSUB 183:GOSUB 232:CALL sb,o1,120,15
23 MR=6:R1=60:R2=25:R3=60:R4=116:dr=2:m2%=7:L4=128:L3=3:L2=128:L1=3:BH=cor:cra=33:u%=3:CALL SB,VID,144,110:CALL SB,VID,144,90:CALL sb,cad,70,191:CALL sb,cad,20,191:GOSUB 263:GOSUB 224:GOSUB 239
24 IF x<4 THEN x=135:e%=1:GOTO 12:ELSE IF(x>50 AND x<70)THEN CI=60:GOTO 227
25 IF(x>92 AND x<106)AND pr=s9 THEN DI:sr=0:e%=3:GOTO 295
26 IF A(2)THEN CALL Sb,M1,132,Y-6:IF(x>124 AND x<140)THEN CALL sa,bc,132,y-3:A(2)=0:p=p+1:GOSUB 249
27 GOTO 180
28 IF e%<>3 THEN 38
29 PEN 8:i=0:u%=0:MR=20:GOSUB 217:GOSUB 213:GOSUB 214:GOSUB 255:GOSUB 257:CALL sa,gr,110,150:GOSUB 258:CALL sb,o1,20,71:CALL sb,o2,20,64:CALL sb,o2,70,199:L2=140:L4=140:L3=2:L1=2
30 CALL sa,ant,120,120:LOCATE 2,10:PRINT STRING$(5,250):FOR n=9 TO 46 STEP 13:CALL sa,bar,n,151:NEXT
31 CALL sb,bar,16,172:CALL sa,ant,40,120:GOSUB 263:BH=cor:cra=33:u%=3:GOSUB 239
32 IF sr=0 THEN CI=70:y1=90:y=170:sl%=(y1+48-34):GOSUB 236:A$=" FLOOR  TWO":GOSUB 243:sr=1:ELSE GOSUB 183
33 IF A(4)THEN CALL Sb,M1,130,84:IF(x>118 AND x<128)AND y=90 THEN CALL sa,bc,130,86:A(4)=0:p=p+1:GOSUB 249
34 IF(x>17 AND x<32)AND pr=s9 THEN GOSUB 251:pr=s10:GOSUB 183:GOSUB 251:CI=22:y1=34:y=46:sl%=(y1+48-34):GOSUB 237
35 IF x<4 THEN x=136:e%=6:GOTO 12:ELSE IF x>136 THEN X=6:e%=7:GOTO 12
36 IF A(5)THEN CALL Sb,sor,110,30:IF(x>98 AND x<108)AND y=34 THEN CALL Sa,bc,110,37:A(5)=0:p=p+2:GOSUB 249
37 GOTO 180
38 IF e%<>4 THEN 44
39 i=11:GOSUB 221:GOSUB 254:GOSUB 252:CALL sa,26000,1,55:ch=246:L4=141:L3=40:L2=138:L1=40:MR=45:GOSUB 261:GOSUB 239:INK 4,4
40 IF a(8)THEN A$="<FIND WINERY>":GOSUB 243:A(8)=0
41 IF A(5)THEN CALL Sb,M1,130,Y-6:IF(x>118 AND x<128)THEN CALL sa,bc,130,y-3:A(5)=0:p=p+1:GOSUB 249
42 IF x>140 THEN e%=13:x=6:GOTO 12
43 GOTO 180
44 IF e%<>5 THEN 50
45 GOSUB 221:GOSUB 254:GOSUB 252:GOSUB 234:GOSUB 233:cra=31:L4=118:L3=1:L2=118:L1=10:u%=3:GOSUB 261:GOSUB 239
46 IF A(6)THEN CALL Sb,sor,80,Y-6:IF(x>74 AND x<83)THEN CALL Sa,bc,80,Y-3:A(6)=0:p=p+2:GOSUB 249
47 IF sr=0 THEN A$="OH! MORE GOLD":GOSUB 243:sr=1
48 IF x<2 THEN x=135:e%=14:GOTO 12:ELSE IF(x>92 AND x<106)AND pr=s9 THEN sr=0:e%=1:GOTO 295
49 GOTO 180
50 IF e%<>6 THEN 58
51 PEN 11:I=4:V1=134:V2=89:GOSUB 217:GOSUB 259:GOSUB 213:GOSUB 255:GOSUB 257:GOSUB 183:GOSUB 224:GOSUB 226:GOSUB 225:CALL sa,gr,55,150:CALL sa,ant,40,120:CALL sb,o1,20,15
52 CALL SA,ar,8,191:CALL sb,cad,30,191:CALL SB,VID,144,130:ta=100:tb=125:tc=71:GOSUB 280:L1=12:L2=139:L3=12:L4=139:x2=90:y2=130:u%=2:MR=130:GOSUB 263:GOSUB 239
53 IF(x>50 AND x<70)THEN CI=60:GOTO 227:ELSE IF x>137 THEN x=6:e%=3:GOTO 12
54 IF A(7)THEN CALL SB,ke,20,84:IF(x>19 AND x<26)AND Y=90 THEN DI:it=KE:GOSUB 223:A(7)=0:GOSUB 265:CALL sa,bla,20,86:GOSUB 183:GOSUB 293
55 IF(x>98 AND x<117)THEN CI=108:GOTO 227:ELSE IF(x>18 AND x<30)AND pr=s9 AND Y=34 THEN I=10:mx%=x:me%=e%:e%=23:GOTO 296
56 IF A(1)THEN CALL Sb,dia,15,28:IF(x>10 AND x<18)AND y=34 THEN CALL Sa,bc,15,31:A(1)=0:p=p+3:GOSUB 249
57 GOTO 180
58 IF e%<>7 THEN 68
59 PEN 1:i=10:GOSUB 217:GOSUB 258:GOSUB 255:GOSUB 215:CALL sa,gr,110,150:CALL sa,ant,90,120:GOSUB 233:CALL sb,o3,40,199:CALL sb,o1,126,15:GOSUB 183:CALL SB,VID,144,125
60 LOCATE 2,12:PRINT STRING$(8,250):FOR n=9 TO 62 STEP 13:CALL sa,bar,n,135:NEXT:CALL sb,cad,80,191:L4=132:L2=132:MR=10:GOSUB 263:GOSUB 240
61 CALL SA,ar,8,191:CALL sa,31981,66,15:IF a(3)AND a(2)THEN GOSUB 267
62 IF x<4 THEN x=136:e%=3:GOTO 12:ELSE IF x>60 AND a(2)AND y=34 AND a(7)=0 THEN GOSUB 268:L4=128:L2=128:a(2)=0:it=bla:GOSUB 223
63 IF y=34 AND a(2)AND a(6)THEN:L4=62:L2=62:a(6)=0
64 IF A(8)THEN CALL Sb,sor,130,84:IF(x>118 AND x<128)AND y=90 THEN CALL Sa,bc,130,87:A(8)=0:p=p+2:GOSUB 249
65 IF A(9)THEN CALL SA,M1,60,84:IF(x>52 AND x<70)AND y=90 THEN CALL Sa,bc,60,87:A(9)=0:p=p+1:GOSUB 249
66 IF(x>92 AND x<106)AND y=34 AND pr=s9 THEN DI:sr=0:e%=8:GOTO 295
67 GOTO 180
68 IF e%<>8 THEN 76
69 PEN 1:i=0:ce=40:GOSUB 221:GOSUB 213:GOSUB 255:CALL sa,gr,50,150:GOSUB 258:CALL sb,o2,70,199:L2=140:L4=140:L3=10:L1=10:MR=25:R1=80:R2=82:R3=80:R4=116:dr=2
70 CALL sa,ant,120,120:CALL sa,ant,40,120:ta=100:tb=125:tc=71:GOSUB 280:PEN 9:FOR N=1 TO 16:LOCATE 1,N:PRINT CHR$(247):NEXT:GOSUB 274:GOSUB 261:u%=5::m2%=7:GOSUB 239
71 IF sr=0 THEN CI=71:y1=90:y=170:sl%=(y1+48-34):GOSUB 236:A$="FLOOR THREE":GOSUB 243:sr=1:ELSE GOSUB 183
72 IF A(1)THEN CALL Sb,M1,130,84:IF(x>118 AND x<128)AND y=90 THEN CALL Sa,bc,130,87:A(1)=0:p=p+1:GOSUB 249
73 IF A(2)THEN CALL Sb,dia,15,84:IF(x>10 AND x<17)AND y=90 THEN CALL Sa,bc,15,87:A(2)=0:p=p+3:GOSUB 249
74 IF x>140 THEN x=4:e%=9:GOTO 12
75 GOTO 180
76 IF e%<>9 THEN 82
77 PEN 1:i=0:GOSUB 221:GOSUB 213:GOSUB 255:CALL sa,gr,50,140:GOSUB 258:GOSUB 225:L2=140:L4=140:L3=2:MR=7:MR=7:V1=134:V2=89:x2=90:y2=130:GOSUB 259
78 CALL sa,ant,120,120:CALL sa,ant,40,120:GOSUB 274:GOSUB 261:GOSUB 183:oft=1:BH=col:cra=97:ta=100:tb=125:tc=71:GOSUB 280:GOSUB 239:u%=2:m2%=3
79 IF x<3 THEN x=138:e%=8:GOTO 12:ELSE IF x>140 THEN x=4:e%=10:GOTO 12
80 IF(x>50 AND x<70)THEN CI=60:GOTO 227:ELSE IF(x>98 AND x<117)THEN CI=108:GOTO 227
81 GOTO 180
82 IF e%<>10 THEN 87
83 PEN 1:i=0:GOSUB 221:GOSUB 213:GOSUB 255:GOSUB 258:GOSUB 275:L2=140:L4=140:L3=2:MR=7
84 CALL sa,ant,120,120:CALL sa,ant,40,120:GOSUB 274:GOSUB 261:GOSUB 183:ta=100:tb=135:tc=71:GOSUB 280:V1=148:V2=6:x2=148:y2=81:GOSUB 239:u%=4
85 IF x<3 THEN x=138:e%=9:GOTO 12:ELSE IF x>140 THEN x=4:e%=11:GOTO 12
86 GOTO 180
87 IF e%<>11 THEN 93
88 PEN 1:i=0:GOSUB 221:GOSUB 213:GOSUB 255:GOSUB 258:GOSUB 275:GOSUB 276:L2=140:L4=140:L3=2:MR=7:V1=134:V2=89:x2=90:y2=130:GOSUB 259
89 CALL sa,ant,120,120:CALL sa,ant,40,120:GOSUB 274:GOSUB 261:GOSUB 183:GOSUB 239:u%=2:m2%=3
90 IF A(3)THEN CALL Sb,M1,84,Y-6:IF(x>78 AND x<84)THEN CALL Sa,bc,84,87:A(3)=0:p=p+1:GOSUB 249
91 IF x>140 THEN x=4:e%=12:GOTO 12:ELSE IF x<3 THEN x=138:e%=10:GOTO 12
92 GOTO 180
93 IF e%<>12 THEN 100
94 PEN 1:i=0:GOSUB 221:GOSUB 213:GOSUB 255:GOSUB 258:GOSUB 275:GOSUB 276:GOSUB 225:L2=140:L4=140:L3=2:MR=7
95 CALL sa,ant,120,120:CALL sa,ant,40,120:GOSUB 274:GOSUB 261:GOSUB 183:V1=148:V2=6:x2=148:y2=81:GOSUB 239:u%=4
96 IF(x>50 AND x<70)THEN CI=60:GOTO 227 ELSE IF(x>98 AND x<117)THEN CI=108:GOTO 227
97 IF A(7)THEN CALL SB,ke,80,84:IF(x>79 AND x<86)AND Y=90 THEN DI:it=KE:GOSUB 223:A(7)=0:GOSUB 265:CALL sa,bla,80,87:GOSUB 183:GOSUB 293
98 IF x>140 THEN x=4:e%=15:GOTO 12:ELSE IF x<3 THEN x=138:e%=11:GOTO 12
99 GOTO 180
100 IF e%<>13 THEN 105
101 INK 4,7:i=11:GOSUB 221:GOSUB 254:GOSUB 252:GOSUB 224:R1=40:R2=25:R3=40:R4=80:dr=2:u%=7:ta=100:tb=125:tc=15:GOSUB 280:L4=141:L3=2:L2=138:L1=2:MR=15:GOSUB 261:GOSUB 239
102 IF x<4 THEN x=135:e%=4:GOTO 12:ELSE IF x>137 THEN e%=14:x=5:GOTO 12
103 IF(x>50 AND x<70)THEN CI=60:GOTO 227
104 GOTO 180
105 IF e%<>14 THEN 111
106 i=11:V1=18:V2=74:x2=63:y2=74:GOSUB 221:GOSUB 254:GOSUB 252:GOSUB 224:GOSUB 226:L4=141:L3=2:L2=138:L1=2:MR=15:CALL sb,o1,20,15:GOSUB 261:GOSUB 239:u%=6
107 IF x<4 THEN x=135:e%=13:GOTO 12:ELSE IF x>137 THEN e%=5:x=5:GOTO 12
108 IF(x>50 AND x<7)THEN CI=60:GOTO 227:ELSE IF(x>98 AND x<117)THEN CI=108:GOTO 227
109 IF(x>18 AND x<30)AND pr=s9 THEN mx%=x:me%=e%:e%=23:GOTO 296
110 GOTO 180
111 IF e%<>15 THEN 118
112 PEN 1:i=0:A(9)=1:ce=70:GOSUB 221:GOSUB 213:GOSUB 255:GOSUB 258:GOSUB 275:GOSUB 276:GOSUB 225:GOSUB 269:y1=90:y=90:sl%=(y1+48-34):L2=87:L4=87:L3=2:MR=7
113 CALL sa,ant,64,120:CALL sa,32153,108,103:CALL sa,31981,86,71:GOSUB 274:GOSUB 266:GOSUB 183:u%=0:V1=100:V2=6:x2=100:y2=81:GOSUB 239:u%=4
114 IF x>80 AND A(9)AND it=KE THEN DI:GOSUB 270:L4=140:L2=140:it=bla:GOSUB 223
115 IF(x>50 AND x<70)THEN CI=60:GOTO 227 ELSE IF(x>98 AND x<117)THEN CI=108:GOTO 227
116 IF x>140 THEN x=4:e%=16:GOSUB 260:sr=0:y=90:CALL CL:GOTO 12
117 GOTO 180
118 IF e%<>16 THEN 128
119 PEN 3:i=12:ch=246:GOSUB 220:ce=25:GOSUB 213:GOSUB 258:GOSUB 277:GOSUB 225:L2=132:L4=132:L1=4:L3=4:MR=9:CALL sb,o1,20,15
120 V1=18:V2=104:x2=111:y2=104:CALL sb,o3,40,199:CALL sa,ant,74,150:CALL SA,ar,8,191:GOSUB 263:GOSUB 183:GOSUB 226:u%=6:GOSUB 239
121 IF sr=0 THEN A$="FLOOR  FOUR":GOSUB 243:sr=1:y1=90:y=90:sl%=(y1+48-34)
122 IF A(1)THEN CALL Sb,dia,129,84:IF(x>126 AND x<132)AND y=90 THEN CALL Sa,bc,129,87:A(1)=0:p=p+3:GOSUB 249
123 IF A(2)THEN CALL Sb,sor,20,30:IF(x>14 AND x<22)AND y=34 THEN CALL Sa,bc,20,33:A(2)=0:p=p+2:GOSUB 249
124 IF(x>98 AND x<117)THEN CI=108:GOTO 227 ELSE IF(x>50 AND x<70)AND y=90 THEN CI=60:sl%=48:y1=34:L1=12:L3=12:GOSUB 237
125 IF Y=34 THEN L2=140:L4=140:L1=12:L3=12
126 IF x>137 THEN e%=17:x=5:GOTO 12:ELSE IF(x>17 AND x<30)AND y=34 AND pr=s9 THEN I=3:mx%=x:me%=e%:e%=23:GOTO 296
127 GOTO 180
128 IF e%<>17 THEN 135
129 PEN 3:i=12:ch=251:GOSUB 220:ce=25:GOSUB 213:GOSUB 215:cra=31:bh=can:L2=140:L4=140:L1=4:L3=4:MR=7:R1=70:R2=25:R3=70:R4=120:dr=2
130 CALL sa,ant,74,80:CALL sa,ant,74,120:GOSUB 216:GOSUB 263:GOSUB 183:GOSUB 226:GOSUB 239:u%=3:m2%=7
131 IF x<4 THEN x=135:e%=16:GOTO 12:ELSE IF x>137 THEN e%=18:x=5:GOTO 12
132 IF A(3)THEN CALL Sb,SOR,58,27:IF(x>54 AND x<60)THEN CALL Sa,bc,58,30:A(3)=0:p=p+2:GOSUB 249
133 IF(x>98 AND x<117)THEN CI=108:GOTO 227
134 GOTO 180
135 IF e%<>18 THEN 142
136 PEN 3:i=12:ch=246:GOSUB 220:ce=25:GOSUB 213:GOSUB 226:GOSUB 215:ta=60:tb=85:tc=15:GOSUB 280:L2=140:L4=140:L1=4:L3=4:MR=7:CALL sb,o1,20,15
137 CALL SA,ar,8,191:GOSUB 216:CALL sa,ant,74,70:GOSUB 263:GOSUB 183:cra=31:V1=18:V2=60:x2=111:y2=60:u%=6:m2%=3:GOSUB 239
138 IF x<4 THEN x=135:e%=17:GOTO 12
139 IF A(4)THEN CALL Sb,M1,58,26:IF(x>54 AND x<60)THEN CALL Sa,bc,58,30:A(4)=0:p=p+1:GOSUB 249
140 IF x>137 THEN e%=19:x=7:GOTO 12:ELSE IF(x>18 AND x<30)AND pr=s9 AND Y=34 THEN I=17:mx%=x:me%=e%:e%=23:GOTO 296
141 GOTO 180
142 IF e%<>19 THEN 147
143 PEN 3:i=0:ch=246:GOSUB 220:CALL sa,32153,108,47:ce=25:GOSUB 215:L2=87:L4=87:L1=4:L3=4:MR=7
144 CALL SA,ar,8,191:GOSUB 216:CALL sa,ant,74,90:CALL sb,o1,86,15:CALL sb,o1,66,15:GOSUB 266:GOSUB 183:V1=100:V2=6:x2=100:y2=26:GOSUB 239:u%=4
145 IF x<6 THEN x=135:e%=18:GOTO 12:ELSE IF(x>85 AND x<96)AND pr=s9 THEN DI:sr=0:e%=20:GOTO 295
146 GOTO 180
147 IF e%<>20 THEN 155
148 PEN 6:i=4:oft=1:BH=cOL:cra=41:u%=3:GOSUB 219:GOSUB 213:GOSUB 256:GOSUB 257:CALL sa,gr,110,150:CALL sb,o1,20,71:CALL sb,o2,20,64:CALL sb,o2,70,199:L2=140:L4=140:L3=12:L1=12
149 CALL sa,ant,120,120:CALL sb,o1,20,15:CALL sa,cru,25,160:CALL sa,ant,40,120:GOSUB 263:MR=80:GOSUB 239
150 IF sr=0 THEN CI=70:y1=90:y=170:sl%=(y1+48-34):GOSUB 236:A$=" FLOOR  FIVE":GOSUB 243:sr=1:ELSE GOSUB 183
151 IF A(4)THEN CALL Sb,M1,130,84:IF(x>118 AND x<128)AND y=90 THEN CALL sa,bc,130,86:A(4)=0:p=p+1:GOSUB 249
152 IF(x>17 AND x<32)AND Y=90 AND pr=s9 THEN GOSUB 251:pr=s10:GOSUB 183:GOSUB 251:CI=22:y1=34:y=46:sl%=(y1+48-34):GOSUB 237
153 IF x>136 THEN X=6:e%=21:GOTO 12:ELSE IF(x>18 AND x<30)AND pr=s9 AND Y=34 THEN I=0:mx%=x:me%=e%:e%=23:GOTO 296
154 GOTO 180
155 IF e%<>21 THEN 164
156 PEN 6:i=4:GOSUB 219:GOSUB 258:GOSUB 256:GOSUB 215:CALL sa,31981,66,15:CALL sa,cru,110,150:CALL sa,ant,40,120:GOSUB 213:GOSUB 183:GOSUB 259
157 CALL sa,cru,35,160:oft=8:BH=cor:cra=33:L3=2:L1=2:L4=132:L2=132:V1=134:V2=89:x2=90:y2=130:u%=2:MR=10:GOSUB 263:GOSUB 240
158 CALL SA,ar,8,191:IF a(3)AND a(2)THEN GOSUB 267
159 IF x<5 THEN x=136:e%=20:GOTO 12:ELSE IF x>60 AND a(2)AND y=34 AND a(7)=0 THEN GOSUB 268:L4=140:L2=140:a(2)=0:it=bla:GOSUB 223
160 IF y=34 AND a(2)THEN:L4=62:L2=62:ELSE IF A(2)=0 THEN L4=140:L2=140
161 IF A(7)THEN CALL SB,ke,93,84:IF(x>91 AND x<98)AND Y=90 THEN DI:it=KE:GOSUB 223:A(7)=0:GOSUB 265:CALL sa,bla,93,86:GOSUB 183:GOSUB 293:m2%=3:EI
162 IF x>140 THEN x=6:e%=22:GOTO 12
163 GOTO 180
164 IF e%<>22 THEN 172
165 PEN 5:i=0:GOSUB 219:GOSUB 215:CALL SA,ar,8,191:CALL sa,cru,35,140:CALL SA,32717,120,41:CALL SA,33084,130,63:CALL sa,cru,110,140:CALL sa,ant,130,90:GOSUB 183
166 ch=251:GOSUB 224:L3=2:L1=2:L4=99:L2=99:MR=7:oft=8:BH=cor:cra=33:V1=18:V2=74:x2=63:y2=74:GOSUB 266:GOSUB 240:u%=6:m2%=3
167 IF x<6 THEN x=136:e%=21:GOTO 12:ELSE IF x>98 AND a(9)THEN GOSUB 281:a(9)=0
168 IF(x>75 AND x<85)AND a(9)=0 THEN DI:A$=" END OF EVIL":GOSUB 243:GOSUB 262:GOTO 282
169 IF(x>50 AND x<70)THEN CI=60:GOTO 227
170 IF A(9)=0 THEN CALL sa,33482,80,32
171 GOTO 180
172 IF e%<>23 THEN 180
173 PEN 1:GOSUB 217:CALL sa,gr,30,150-RND*20:CALL sa,gr,110,80+RND*20:CALL sb,o3,72,199:L3=13:L1=12:L4=130:L2=130:GOSUB 264:GOSUB 235:GOSUB 240
174 CI=76:y=170:LOCATE 17,13:PRINT STRING$(3,250):GOSUB 236:IF ME%=6 THEN CALL SB,41715,134,134:INK 4,4:ELSE IF ME%=14 THEN CALL sa,bar,136,127
175 IF x<11 THEN x=mx%:e%=me%:INK 0,0:CALL cl:GOTO 12
176 IF A(10)AND(me%=14 OR me%=16 OR me%=20)THEN CALL Sb,41904,130,34:IF(x>118 AND x<128)THEN CALL sa,bc,130,36:A(10)=0:GOSUB 294
177 IF A(10)AND(me%=6 OR ME%=18)THEN CALL Sb,sor,130,30:IF(x>118 AND x<128)AND y=34 THEN CALL Sa,bc,130,87:A(10)=0:p=p+2:GOSUB 249
178 IF A(6)AND me%=18 THEN CALL Sb,DIA,130,30:IF(x>118 AND x<128)AND y=34 THEN CALL Sa,bc,130,87:A(6)=0:p=p+3:GOSUB 249
179 GOTO 180
180 IF(INKEY(34)=0 OR INKEY(74)=0)AND X>L3 THEN v=2:pr=s6:X=X-v:GOSUB 183:pr=s7:X=X-v:GOSUB 183:pr=s5:X=X-v:GOSUB 183:ELSE IF(INKEY(27)=0 OR INKEY(75)=0)AND X<L4 THEN v=2:pr=s2:x=X+v:GOSUB 183:pr=s3:X=X+v:GOSUB 183:pr=s1:X=X+v:GOSUB 183
181 IF(INKEY(47)=0 OR INKEY(76)=0)THEN GOSUB 184 ELSE IF(INKEY(69)=0 OR INKEY(73)=0)THEN pr=S9:GOSUB 183
182 IF MK%THEN 229 ELSE v=0:ON e%GOTO 17,24,33,41,46,53,62,72,79,85,90,96,102,107,114,122,131,138,145,151,159,167,175
183 CALL sa,pr,x,y:CALL &BD19:CALL &BD19:RETURN
184 IF pr=S1 THEN 185 ELSE 194
185 pr=S4:GOSUB 183
186 IF X>L2 THEN T%=0 ELSE T%=V
187 X=X+T%:Y=y+1:IF Y>sl%THEN 190
188 IF MK%THEN 229
189 GOSUB 183:GOTO 186
190 IF X>L2 THEN T%=0 ELSE T%=V
191 X=X+T%:Y=Y-1:IF Y=y1 THEN pr=S1:GOSUB 183:v=2:RETURN
192 IF MK%THEN 229
193 GOSUB 183:GOTO 190
194 pr=S8:GOSUB 183
195 IF X<L1 THEN T%=0 ELSE T%=V
196 X=X-T%:Y=y+1:IF Y>sl%THEN 199
197 IF MK%THEN 229
198 GOSUB 183:GOTO 195
199 IF X<L1 THEN T%=0 ELSE T%=V
200 X=X-T%:Y=Y-1:IF Y=y1 THEN pr=S5:GOSUB 183:v=2:RETURN
201 IF MK%THEN 229
202 GOSUB 183:GOTO 199
203 IF u%=2 THEN CALL Sa,cuc,x2,y2:y2=y2-3:IF(x>x2-14 AND x<x2)AND y2<y+6 THEN y2=V1:MK%=1:RETURN:ELSE IF y2<V2 THEN CALL sa,bla,x2,y2:CALL sa,32074,x2,y2-10:CALL &BD19:CALL &BD19:CALL sa,bla,x2,y2:y2=V1:RETURN
204 IF u%=3 OR m2%=3 THEN CALL SB,BH,38,cra:IF(x>26 AND x<55)AND Y<cra+oft THEN MK%=1:RETURN
205 IF u%=4 THEN CALL Sa,31663,x2,y2:x2=x2-3:IF(x>x2-12 AND x<x2)AND(y>y1-1 AND y<y1+7)THEN x2=V1:MK%=1:RETURN:ELSE IF x2<V2 THEN CALL sa,31696,x2,y2:x2=V1:RETURN
206 IF u%=5 THEN IF x<11 THEN MK%=1
207 IF u%=6 THEN CALL Sa,pez,x2+RND,y2:y2=y2+3:IF(x>x2-14 AND x<x2)AND(y>y2-8 AND y<y2+15)THEN y2=V1:MK%=1:RETURN:ELSE IF y2>V2 THEN CALL sa,bc,x2+1,y2-2:y2=V1:RETURN
208 IF u%=7 OR m2%=7 THEN 210
209 RETURN
210 CALL Sa,33549,R1,R2:R1=R1-dr:IF(x>R1-12 AND x<R1+6)AND(y>R2-10 AND y<R2+17)THEN R1=R3:MK%=1:RETURN
211 IF R1<R3 THEN dr=-2:ELSE IF R1>R4 THEN dr=2
212 RETURN
213 FOR N=20 TO 23:LOCATE 20,N:PRINT" ":NEXT:RETURN
214 '
215 FOR N=20 TO 23:LOCATE 1,N:PRINT" ":NEXT:RETURN
216 CALL sa,cru,30,80+RND*20:CALL sa,cru,110,120-RND*20:RETURN
217 '
218 CALL &9F60:LOCATE 1,24:PRINT STRING$(20,250):GOTO 221
219 CALL &A0F0:LOCATE 1,24:PRINT STRING$(20,244):GOTO 221
220 CALL &9FC4:LOCATE 1,24:PRINT STRING$(20,245)
221 a$="GOLD:    T:":ORIGIN 370,380:|ENCRE,14,0:|TYPO,@a$:GOSUB 250
222 a$="LIVES:":ORIGIN 370,360:|ENCRE,14,0:|TYPO,@a$:FOR n=1 TO(vi*8)STEP 8:CALL sa,26934,113+(n+2),181:NEXT
223 a$="ITEM:":ORIGIN 498,340:|ENCRE,14,0:|TYPO,@a$:CALL SA,it,145,170:RETURN
224 FOR n=23 TO 25:LOCATE 8,n:PRINT"   ":NEXT:LOCATE 8,25:PEN 13:PRINT STRING$(3,ch):RETURN
225 FOR n=15 TO 18:LOCATE 8,n:PRINT"   ":NEXT:FOR n=15 TO 18:LOCATE 14,n:PRINT"   ":NEXT:RETURN
226 FOR n=23 TO 25:LOCATE 14,n:PRINT"   ":NEXT:LOCATE 14,25:PEN 13:PRINT STRING$(3,ch):RETURN
227 CALL sa,s10,x,y:y=y-6:x=CI:GOSUB 183:IF y<ce THEN 229
228 GOTO 227
229 DI:GOSUB 262:pr=s10:GOSUB 183:pr=es:x=x+2:y=y+4:GOSUB 183:GOSUB 231:vi=vi-(1-PT%):A$="ONE LESS LIFE":GOSUB 243:INK 0,0:CALL cl:pr=S1:MK%=0:y=y1:x=MR
230 IF vi<1 THEN A$="  GAME OVER":GOSUB 243:INK 0,0:CALL cl:POKE 26770,p:GOTO 1:ELSE 12
231 FOR i%=50 TO 70 STEP 2:SOUND 4,i%,3:SOUND 4,i%+10,3:SOUND 4,i%+20,3:SOUND 4,i%-10,3:NEXT:RETURN
232 '
233 CALL sb,o1,100,15:RETURN
234 FOR n=15 TO 120 STEP 14:CALL sb,o1,136,n:NEXT:RETURN
235 FOR n=64 TO 210 STEP 15:CALL sb,o2,6,n:NEXT:RETURN
236 '
237 CALL sa,s10,x,y:y=y-4:x=CI:pr=S1:GOSUB 183:IF y<y1+4 THEN y=y1:RETURN
238 GOTO 237
239 '
240 GOSUB 278
241 INK 0,i:INK 4,24,i:EI:OUT &BC00,65:OUT &BD00,40:RETURN
242 OUT &BC00,65:OUT &BD00,0:RETURN
243 FOR N=10 TO 13:PEN 8:LOCATE 7,N:PRINT STRING$(8,252):NEXT
244 ORIGIN 220,230:|ENCRE,15,8:|TYPO,@a$
245 FOR N=1 TO 1500:NEXT:FOR N=10 TO 13:PEN 0:LOCATE 7,N:PRINT STRING$(8,252):NEXT:RETURN
246 '
247 FOR N=2 TO A:LOCATE B,N:PRINT CHR$(250):NEXT:RETURN
248 '
249 BORDER 1:GOSUB 183:A$=STR$(p):ORIGIN 444,380:|ENCRE,15,0:|TYPO,@a$:GOSUB 265:BORDER 0:RETURN
250 b$=STR$(p):ORIGIN 444,380:|ENCRE,15,0:|TYPO,@b$:RETURN
251 FOR N=1 TO 500:NEXT:RETURN
252 '
253 PEN 7:PAPER 3:LOCATE 1,24:PRINT STRING$(20,253):LOCATE 1,25:PEN 10:PRINT STRING$(20,254);:PAPER 0:RETURN
254 CALL sa,29891,4,192:CALL sa,26803,60-RND*20,159:CALL sa,26803,20,119+RND*40:CALL sa,26803,120,80+RND*40:GOSUB 183:RETURN
255 LOCATE 1,18:PRINT STRING$(20,250):LOCATE 1,17:PRINT STRING$(20,250):RETURN
256 LOCATE 1,18:PRINT STRING$(20,244):LOCATE 1,17:PRINT STRING$(20,244):RETURN
257 FOR N=13 TO 16:LOCATE 20,N:PRINT" ":NEXT:RETURN
258 FOR N=13 TO 16:LOCATE 1,N:PRINT" ":NEXT:RETURN
259 CALL sa,es,87,169:LOCATE 11,8:PRINT STRING$(3,244):RETURN
260 FOR N=1 TO 10:A(N)=1:NEXT:RETURN
261 CALL pl,&8ACD,0:RETURN
262 CALL pl+3:RETURN
263 CALL pl,&8857,0:RETURN
264 CALL pl,&A154,0:RETURN
265 FOR n=100 TO 150 STEP 10:SOUND 1,n,2,14,0,1:NEXT:RETURN
266 CALL pl,&83D6,0:RETURN
267 FOR n=55 TO 19 STEP-8:CALL sb,30289,85,n:NEXT:RETURN
268 FOR n=23 TO 19 STEP-1:LOCATE 11,n:PRINT"  ":SOUND 129,3000,100,14,0,0,70+(RND*30)AND 31:FOR n1=1 TO 60:NEXT:NEXT:RETURN
269 FOR n=104 TO 123 STEP 8:CALL sb,30289,n,71:NEXT:RETURN
270 FOR n=104 TO 123 STEP 8:CALL sA,bc,n,71:SOUND 129,3000,100,14,0,0,70+(RND*30)AND 31:NEXT:Y5=103
271 CALL sa,32153,108,Y5:CALL sa,bc,108+5,Y5+14:Y5=Y5-2:IF Y5<46 THEN u%=0:CALL sa,bc,x2+3,y2+5:A(9)=0:GOSUB 261:RETURN
272 GOTO 271
273 DATA,,,,," KEYS: O-LEFT  P-RIGHT",,"   A-DONW SPACE-JUMP",,"TAB-PAUSE SPACE-RELEASE",,,,"    OR USE JOYSTICK",,,,,,,,,,"     LAST GOLD:",,"     TOP  GOLD:",,,,(C) Antero MartineZ 2023,,,"     ALTANERUS DOG",,,,,
274 PEN 15:FOR N=1 TO 20:LOCATE N+RND*2,24:PRINT CHR$(249):NEXT:FOR N=1 TO 18:LOCATE N+RND*2,25:PRINT CHR$(249);:NEXT:RETURN
275 PEN 1:LOCATE 1,1:PRINT STRING$(20,248):RETURN
276 PEN 1:LOCATE 1,18:PRINT STRING$(20,248):LOCATE 1,17:PRINT STRING$(20,254):RETURN
277 LOCATE 2,18:PRINT STRING$(18,248):LOCATE 2,17:PRINT STRING$(18,254):RETURN
278 tm%=tm%-(1-PC%):j$=STR$(tm%):ORIGIN 545,380:|ENCRE,15,0:|TYPO,@j$
279 IF tm%<1 AND MK%=0 THEN DI:A$=" TIME   OUT":GOSUB 243:tm%=99:vi=0:GOTO 230:ELSE RETURN
280 FOR n=ta TO tb STEP 8:CALL sa,cro,n,tc:NEXT:RETURN
281 FOR n=170 TO 32 STEP-3:CALL sa,33482,80,n:CALL &BD19:NEXT:RETURN
282 CLS:RESTORE 284:CALL pl,&84D0,0
283 FOR n=1 TO 15:z=z+15:READ A$:ORIGIN 1,380-z:|ENCRE,15,0:|TYPO,@a$:NEXT
284 DATA"Congratulations, You have managed to end"," the curse. NoW You have a neW approach,", "What to do With the loot obtained.",,,"YOU MUST DECIDE?",,,"1-I KEEP IT AND DON'T SAY ANYTHING"
285 DATA,,"2-I LEAVE EVERYTHING AND LEAVE",,,"3-I GIVE PART TO THE ADMINISTRATION"
286 WHILE i$<"1"OR i$>"3":i$=INKEY$:WEND:PEN 1
287 IF i$="1"THEN A$="It's a shame everYthing has been lost.":c$="0":S=tm%
288 IF i$="2"THEN A$="Arrested bY police for theft of assets.":CLS:ORIGIN 1,200:|TYPO,@a$:vi=0:FOR N=1 TO 9999:NEXT:GOTO 230
289 IF i$="3"THEN A$="You have received a reWard for Your Work.":c$="50":S=(tm%+50)
290 CLS:ORIGIN 1,200:|ENCRE,15,0:|TYPO,@a$:a$="BONUS and LEFTOVER TIME: "+c$:ORIGIN 1,150:|ENCRE,14,0:|TYPO,@a$
291 p=p+S:INK 4,0,26:LOCATE 8,15:PEN 4:PRINT p:FOR N=1 TO 9999:NEXT:vi=0:GOSUB 292:GOTO 230
292 FOR N=122 TO 1 STEP-2:CALL sa,26000,N,55:CALL sa,bc,N+38,43:CALL sa,bc,N+38,28:FOR M=1 TO 20:NEXT:NEXT:GOSUB 251:RETURN
293 A$="  RUSTY KEY":GOSUB 243:EI:RETURN
294 GOSUB 183:DI:GOSUB 265:A$=" EXTRA  TIME":GOSUB 243:tm%=tm%+40:GOSUB 278:EI:RETURN
295 DI:GOSUB 251:pr=s10:GOSUB 260:GOSUB 183:GOSUB 251:INK 0,0:CALL cl:GOTO 12
296 DI:GOSUB 251:pr=s10:GOSUB 183:GOSUB 251:INK 0,0:CALL cl:GOTO 12