0 IFZ3=7THEN53420
1 CLR:V2$="":SP$="                                       "
2 DIMD$(13),C(19),A(13),B(13):FORA=1TO13:READD$(A),B(A):NEXT:RESTORE:JF=PEEK(766)
3 E$(1)="[198]IELD ASSISTANT":E$(2)="[205]EDIC":E$(3)="[210]ADIO OPERATOR":E$(4)="[199]UARD"
4 GOSUB50000:IFPEEK(767)=55THENF$="A":OG$="EXPA":GOSUB760:GOTO116
6 F$="B":OG$="EXPB":GOSUB760:GOTO116
10 GOTO53400
12 GOSUB 1000
20 GOSUB2010:PRINTV2$TAB(11)"[194][146])UY [211][146])ELL [216][146])IT   ";
22 GOSUB2000
24 M$=G$:IFM$="B"THEN42
26 IFM$="S"THEN32
28 IFM$<>"X"THEN22
30 GOTO116
32 PRINTV2$SP$V2$TAB(9)"[197][146])QUIPMENTO O [193][146])RTIFACTOS ?";
34 GOSUB2000
36 IFG$="E"THEN42
38 IFG$<>"A"THEN34
40 GOTO188
42 PRINTV2$SP$V2$TAB(6)"?[209]UE NOMBRE, POR FAVOR?";
44 GOSUB2000
46 B=ASC(G$)-64:IFB<1ORB>13THEN44
48 GOTO52
50 GOSUB500
51 FORA=1TO5000:NEXT:GOTO 12
52 IFM$="B"THENGOSUB56:GOTO60
54 IFM$="S"THENGOSUB110:GOTO60
56 B$=CHR$(B+192):PRINTLEFT$(V2$,B+8)B$") "D$(B)TAB(13)"$"MID$(STR$(B(B)),2);
57 IFA(B)=0THENPRINT:RETURN
58 PRINTTAB(22)D$(B)TAB(34)"("MID$(STR$(A(B)),2)")":RETURN
60 PRINTV2$SP$V2$TAB(7)"?[209]UANTO, AMIGOS?    [216])IT";
62 GOSUB2000
64 IFG$="X"THENGOSUB114:GOTO20
66 E=GG:IFE<1ORE>9THEN62
68 IFM$="S"THEN102
70 IFE*B(B)>ITHEN50
72 IFB=10ANDE*B(B)*20>ITHEN50
74 Z7=0:ONBGOSUB90,82,86,86,82,86,78,78,78,94,90,90,82:IFZ7=1THEN12
76 GOTO100
78 IFE+A(B)>1THEN98
80 RETURN
82 IFE+A(B)>2THEN98
84 RETURN
86 IFE+A(B)>4THEN98
88 RETURN
90 IFE+A(B)>8THEN98
92 RETURN
94 E=E*20:IFE+A(B)>200THEN98
96 RETURN
98 PRINTV2$SP$V2$TAB(14)"OVERLOADED[146]";:FORB=1TO1500:NEXT:Z7=1:RETURN
100 A(B)=A(B)+E:I=I-B(B)*E:GOSUB114:GOTO20
102 IFB=10THENE=E*20
103 IFE<=A(B)THEN108
104 PRINT"[147]          [206]O GRACIAS, BANDITO":FORA=1TO2600:NEXT:GOTO12
108 A(B)=A(B)-E:I=I+E*(B(B)/2):GOSUB114:GOTO20
110 GOTO1100
111 DATAMED KIT,30,TOOLS,50,LAMP,100,BATTERY,50,ROPE,50,MOSQ. NET,100,SW RADIO
112 DATA2000,LORAN,99900,A/RIFLE,20000,BULLET,2,GRENADE,200,FOOD/DAY,100,BOAT
113 DATA2000
114 GOTO1140
116 POKE53281,3:POKE53280,3:PRINT"[144]":GOSUB2500
117 GOSUB2000
118 IFG$<>"V"ANDG$<>"M"ANDG$<>"R"ANDG$<>"G"ANDG$<>"E"THEN117
119 PRINT"[147]"
120 REM
122 IFG$<>"V"THEN134
124 PRINT"[147][201]LLUSTRATION?   [217])ES   [206])O"
126 GETAY$:IFAY$=""THEN126
128 IFAY$="Y"THEN10
130 IFAY$<>"N"THEN126
132 GOTO 12
134 IFG$="R"THEN160
136 IFG$="G"THENGOSUB212:GOTO30
138 IFG$<>"M"THEN152
140 PRINT"[147]     [205]OVE TO BASE CAMP?  [217])ES  [206])O
142 [141]2000
144 [139]G$[178]"Y"[167][151]766,JF:[137]150
146 [139]G$[179][177]"N"[167]142
148 [137]30
150 [153]"LOAD       (null)IDING THE PADDLE WHEEL":[141]1500
151 [141]1510:[147]"AZ",8
152 [139]G$[179][177]"E"[167]117
154 [141]186:[141]256:[141]1540
156 [141]2000
158 [147]"HELLO",8
160 [141]1600
170 [141]2000
172 [139]G$[178]"E"[167]178
174 [139]G$[178]"X"[167]30
176 [137]170
178 [141]1780
180 [141]2000
182 [139]G$[178]"X"[167]160
184 [137]180
186 [137] 840
188 F[178]0:L[178]0:[153]"LOAD":[129]A[178]1[164]10:B[178][187](1)[172]1000[170]1000:[139]F$(A)[178]""[167]200
190 A$[178][200](F$(A),1):F[178]1:[139]A$[178]"C"[167]B[178]10
192 [139]A$[178]"S"[167]B[178][187](1)[172]100[170]100
194 [139]A$[178]"G"[167]B[178][187](1)[172]500[170]500
196 [141]1960
198 L[178]L[170]B:[153][163]4)F$(A)" "[163]22)C$B$
200 [130]:[141] 2010:[139] F[178]0[167][141]3000:[137]12
202 [153]V2$SP$V2$[163]7)"LEFT$OKAY AMIGO?   (null))ES (null))O
204 GOSUB2000
206 IFG$="N"THEN12
208 IFG$<>"Y"THEN204
210 I=INT(I+L):FORA=1TO10:F$(A)="":NEXT:G=INT(G+L):GOTO12
212 IFF(2)=0THENA$="[217]OUR MEDIC IS DEAD!":GOTO218
214 IFA(1)=0THEN244
216 GOTO220
218 PRINT"[147]"TAB(19-(LEN(A$)/2))A$:GOSUB5000:RETURN
220 M=0:FORP=1TO4:R=19-LEN(H$(P))/2:IFF(P)=0THEN248
222 C$="":IFD(P)>0THENC$="(D&D ("+MID$(STR$(D(P)),2)+"))":GOTO228
224 IFF(P)<6OR(F(P)<40ANDF(P)<2*E(P))THEN228
226 GOTO248
228 PRINT"[147]"A(1)"MEDICAL KITS IN STOCK.":GOSUB 2280
230 GOSUB2000
232 IFG$<>"N"ANDG$<>"Y"THEN230
234 IFG$="N"THEN250
236 GOSUB44444:GOSUB2360
238 IFF(P)<BTHENF(P)=B
242 IFF(P)>40THENF(P)=40
244 A(1)=A(1)+(A(1)>0):IFA(1)=0THENA$="[207]UT OF MEDICINE":GOTO 218
246 GOTO250
248 PRINT"[147]":GOSUB2480:PRINT"        "A$TAB(R)B$:GOSUB5000
250 NEXTP:A$="[205]EDICAL AID COMPLETE":GOTO218
256 GG$=OG$:OG$=OG$+OG$:GOSUB186:OG$=GG$:RETURN
500 PRINT"[147]          [196]ESPENSE' MI AMIGO"
501 PRINTTAB(7)"[217]OU MUS' HAB MAS DINERO!"
502 IFB=10THENPRINT" (BULLETS COME IN CLIPS OF 20 FOR $40)
503 [142]
760 [159]2,8,2,OG$[170]",S,R"
761 [129]B[178]1[164]4:[132]2,H$(B):[132]2,D(B):[132]2,E(B):[132]2,F(B):[130]
762 [132]2,C:[132]2,D:[132]2,G:[132]2,H:[132]2,I:[132]2,J:[132]2,K
763 [129]B[178]1[164]13:[132]2,A(B):[130]:[132]2,I$:[132]2,J$:[132]2,K$
764 [129]B[178]1[164]19:[132]2,C(B):[130]:[129]B[178]1[164]10:[132]2,F$(B):[130]:[160] 2:[142]
840 [159]3,8,3,"@:"[170]OG$[170]",S,W"
841 [129]B[178]1[164]4:[152]3,H$(B):[152]3,D(B):[152]3,E(B):[152]3,F(B):[130]
842 [152]3,C:[152]3,D:[152]3,G:[152]3,H:[152]3,I:[152]3,J:[152]3,K
843 [129]B[178]1[164]13:[152]3,A(B):[130]:[152]3,I$:[152]3,J$:[152]3,K$
844 [129]B[178]1[164]19:[152]3,C(B):[130]:[129]B[178]1[164]10:[152]3,F$(B)[170]" ":[130]:[160] 3:[142]
1000 [153]"LOAD          ATNMAZON TRADING POST":[153][163]11)"(null)EDRO CHR$OMEZ, (null)GR."
1001 [153][163]11)"****************":[153]"  (null)TOCK LIST"[163]26)"VALXPEDITION"
1002 [153]"   & PRICE"[163]16)"CASH"[163]24)"PROPERTY & QTY":L$[178][202]([196](I),2)
1003 [153][163]16)"$"L$:[129]B[178]1[164]39:[153]".";:[130]:[153]
1004 [129]B[178]8[164]21:[153][200](V2$,B)[163]19)".":[130]
1005 [129]B[178]1[164]13:B$[178][199](B[170]192):[153][200](V2$,B[170]8)B$") "D$(B)[163]13)"$";
1006 [153][202]([196](B(B)),2);:[139]A(B)[178]0[167][153]:[137]1008
1007 [153][163]22)D$(B)[163]34)"("[202]([196](A(B)),2)")"
1008 [130]:[142]
1100 B$[178][199](B[170]192):[153][200](V2$,B[170]8)B$") "D$(B)[163]13)"$";
1101 [153][202]([196](B(B)),2)[163]22);:[141]2020:[153][200](V2$,B[170]8)[163]22);
1102 [153]""D$(B);[163]38[171][195]([196](B(B)[173]2)))"$"[202]([196](B(B)[173]2),2)"WAIT";:[141]2020
1103 [142]
1140 [153][200](V2$,B[170]8)"                                     "
1141 B$[178][199](B[170]192):[153][200](V2$,B[170]8)B$") "D$(B)[163]13)"$"[202]([196](B(B)),2);
1142 [153][163]22);:[139]A(B)[177]0[167][153]D$(B)[163]34)"("[202]([196](A(B)),2)")";
1143 [141]2020:[153]V2$SP$[200](V2$,7)[163]16)"$"[202]([196](I),2)"   ":[142]
1500 [153][163]12)"UP THE ATNMAZON":[141]186:[141]256:[142]
1510 [153]"LOAD      (null)ARNING: (null)OU ARE ABOUT TO"
1511 [153][163]8)"ENTER DEADLY REGIONS.":[142]
1540 [153]"LOAD          (null)RESS A KEY TO PLAY,
1541 PRINTTAB(8)"OR TURN YOUR COMPUTER OFF.":RETURN
1600 PRINT"[147]             [197]XPEDITION "F$
1601 PRINT"[198]UNDS: $"MID$(STR$(I),2)"  [211]Q. METERS EXPLORED:"J
1602 A%=(H-(D/2)-(K/2))*3:IFA%<0THENA%=0
1620 PRINT"[212]IME IN FIELD:"D"DAY";:IFD<>1THENPRINT"S";
1640 PRINT" AND"C"HOUR";:IFC<>1THENPRINT"S";
1660 PRINT
1680 PRINT"[211]ECTORS MAPPED:"H;TAB(21)"[198]IND VALUE $"MID$(STR$(G),2)
1681 PRINT"[205]EMBERS LOST:"K;TAB(21)"[197][210] FACTOR:"A%
1682 PRINT"[205]EMBERS"TAB(28)" [204][214][204]   [197][204]
1690 [129]B[178]1[164]4:[153]H$(B)[163]12)E$(B)[163]28)" "E(B)[163]34)F(B):[130]
1691 [153]V2$[163]12)"VAL)QUIPMENT  (null))IT":[142]
1780 [153]"LOAD"[163]14)"VALQUIPMENT":[153][163]14)"*********"
1781 [129]B[178]1[164]13:[153][163]4)B" "D$(B)[163]18)A(B):[130]
1782 [153]V2$[163]16)"(null))IT":[142]
1960 B[178][181](([187](1)[172]100[170]1)[170](B[172]10[172]1[173]C(19))):C$[178]" $"
1961 [139]A$[178]"C"[175][202](F$(A),2,1)[178]"R"[167] [141] 30000
1962 [139]F$(A)[178]"RAW DIAMOND"[167]B[178][181]([187](1)[172]10000[170]500)
1963 B$[178][202]([196](B),2):[142]
2000 [161]G$:[139]G$[178]""[167]2000
2001 GG[178][197](G$):[142]
2010 [161]G$:[139]G$[179][177]""[167]2010
2011 [142]
2020 [139][185](0)[179]39[167][153][200](SP$,39[171][185](0))
2021 [142]
2280 [153]H$(P)" VAL(null):"F(P)C$:[153]"CHR$IVE AID?  (null))ES  (null))O":[142]
2360 [153]"LOAD"[163]R[171]5)"(null)ORKING ON "H$(P):[141]5000:D(P)[178]0
2361 B[178]2[172]E(P):[139]B[179]6[167]B[178]6
2362 [142]
2480 [141]44444:A$[178]"(null)NABLE TO GIVE AID TO ":B$[178]H$(P):[142]
2500 [153]"LOAD             RIGHT$QUITOS, (null)ERU
2501 PRINT"             *************
2502 [153]"               (null)OU MAY:
2503 PRINT"           [214])ISIT TRADING POST
2504 [153]"            (null))OVE TO BASE CAMP
2505 PRINT"            [199])IVE MEDICAL AID
2506 [153]"             (null))EVIEW RECORDS
2507 PRINT"                [197])XIT GAME
2600 [153]"";:[129]A[178]1[164]2:[153]"CLRSTEP(null)STEP(null)STEP(null)STEP(null)STEP(null)STEP(null)STEP(null)STEP(null)STEP(null)STEP(null)STEP(null)STEP(null)STEP(null)STEP(null)STEP(null)STEP(null)STEP(null)STEP(null)STEP(null)STEP(null)";:[130]
2601 [129]A[178]1[164]10
2602 [153]"(null)(null)STEPSTEP";
2603 [153]"STEPSTEP(null)(null)";
2604 [130]
2610 [129]A[178]1[164]2:[153]"(null)STEP(null)STEP(null)STEP(null)STEP(null)STEP(null)STEP(null)STEP(null)STEP(null)STEP(null)STEP(null)STEP(null)STEP(null)STEP(null)STEP(null)STEP(null)STEP(null)STEP(null)STEP(null)STEP(null)STEP";:[130]:[153]"STOP";
2611 [142]
3000 [153]"        LEFT$EY! (null)OU GOTTA NOTING!!":[129]A[178]1[164]2600:[130]:[142]
5000 J9[178][194](765):[139]J9[179]4[175]J9[177]0[167][129]A[178]1[164]1000[172]J9:[130]:[142]
5010 [161]KT$:[139]KT$[178]" "[167][142]
5020 [129]KT[178]1[164]2:[151]54296,15:[151]54296,0:[130]:[129]KT[178]1[164]99:[130]:[137]5010
30000 [139][181]([187](1)[172]5[170]1)[178]1[167]F$(A)[178]"RAW DIAMOND"
30001 [142]
33333 [151]54296,15:[151]54296,0:[142]
44444 [129]A[178]0[164]24:[151]54272[170]A,0:[130]
44455 [151]54273,220:[151]54277,13:[151]54287,60:[151]54296,15
44554 [129]A[178]1[164]12:[151]54276,21
44555 [129]A8[178]1[164]250:[130]:[151]54276,20
45544 [129]A[178]0[164]24:[151]54272[170]A,0:[130]:[142]
45545 [129]A[178]0[164]24:[151]54272[170]A,0:[130]:[142]
50000 MJ%[178]31:[134]JT%(MJ%):[142]
53400 [158]32789:[151]53280,0:[151]53281,0
53410 Z3[178]7:[147]"P2",8,1
53420 [141]54000
53430 [158]32780
53440 [151] 53281,3:[151]53280,3:[137]12
54000 [141]55100
54010 [158]32804:[151]759,0:[158]32807:[141]55200
54015 [158]32807:[158]32804:[141]55200
54020 [158]32804:[151]759,1:[158]32807:[141]55200
54025 [158]32807:[158]32804:[141]55200
54030 [158]32804:[151]759,2:[158]32807:[141]55200
54040 [161]AY$:[139]AY$[178]""[167]54040
54050 NT[178]0:[129]A[178]1[164]MJ%:JT%(A)[178]0:[130]
54055 [158]32807:[158]32804
54060 [139]AY$[178]"S"[167]54100
54070 [158]32804:[151]759,3:[158]32807
54080 [161]AY$:[139]AY$[178]""[167]54080
54085 [158]32807:[158]32804
54090 [139]AY$[178]"Y"[176]A$[178]"S"[167][142]
54095 [129]A[178]1[164]400:[130]
54100 [158]32804
54110 XD[178][181]((MJ%[171]NT)[172][187](1)[170]1)
54120 [129]A[178]1[164]MJ%:[139]JT%(A)[178]0[167]XD[178]XD[171]1:[139]XD[178]0[167]FD[178]A:A[178]MJ%
54130 [130]:JT%(FD)[178]1:NT[178]NT[170]1
54140 [139]NT[178]MJ%[167]NT[178]0:[129]A[178]1[164]MJ%:JT%(A)[178]0:[130]
54150 [151]759,FD[170]3:[158]32807:[141]55200
54160 [158]32807:[158]32804:[139]AY$[179][177]""[167][129]A[178]1[164]400:[130]:[137]54070
54170 [141]55100:[139]AY$[179][177]""[167]54070
54180 [137]54100
55100 A[178]0
55110 A[178]A[170]1:[161]AY$:[139]AY$[178]""[175]A[179]150[167]55110
55120 [142]
55200 A[178]0
55210 A[178]A[170]1:[161]AY$:[139]AY$[178]""[175]A[179]220[167]55110
55220 [142]