1 DV=PEEK(186):IFDV<8THENDV=8
2 I=RND(-TI):GOTO558
4 J=PEEK(U):F=-((JANDW)=.):J=V-(JANDV):RETURN
6 A$=STR$(C):A$=RIGHT$(A$,LEN(A$)-O):PRINT"[147][156][215]EALTH: \"A$"":RETURN
8 J=PEEK(U):IF(JANDW)=.THEN8
10 FORJ=.TO9:NEXT:J=PEEK(U):IF(JANDW)THEN10
12 RETURN
14 POKE53265,11:POKE56576,197:POKE648,140:POKE53272,63:POKE53270,200
16 PRINT"[147]":POKE53265,27:RETURN
18 POKE54278,O:POKE54273,60:POKE54276,17:POKE54276,W:RETURN
20 POKE54278,48:POKE54273,30:POKE54276,17:FORA=.TO99:NEXT:POKE54276,W:RETURN
22 POKE54278,9:POKE54273,80:POKE54276,17:POKE54276,W:RETURN
24 PRINT" \";
26 PRINT"0[157]";:B=.
28 GOSUB4:IF(F)THENPRINT:GOTO22
30 J=Y(J):IFJ=.THEN28
32 B=B+J:IFB<.THENB=.:GOSUB20:GOTO28
34 IFB>MTHENB=M:GOSUB20:GOTO28
36 A$=STR$(B):A$=RIGHT$(A$,LEN(A$)-O)+"   ":PRINTA$;:FORA=OTOLEN(A$):PRINT"[157]";
38 NEXT:GOSUB18:GOTO28
40 K=201:I=.:A=.
42 K=K+O:IFK>205THENK=202
44 POKEP+I*40,K:GOSUB4:IFJ=OTHENA=I-O:IFA<.THENA=M
46 IFJ=TTHENA=I+O:IFA>MTHENA=.
48 IFI<>ATHENPOKEP+I*40,32:I=A:GOSUB18
50 IF(F)THENPOKEP+I*40,42:GOTO22
52 GOTO42
54 J=INT(D(I)/13):I=D(I)-13*J:PRINT"[144]";:IFJ<2THENPRINT"";
56 PRINT"  "N$(I)S$(J);:GOSUB18:FORI=OTO200:NEXT:RETURN
58 Q$="":I=.:K=202
60 K=K+O:IFK>205THENK=202
62 PRINT"[159]"CHR$(K)"[146][155][157]";:GETA$:IFA$=""THEN74
64 A=ASC(A$):IFA=20ANDI>.THENPRINT" [157][157] [157]";:I=I-O:Q$=LEFT$(Q$,I):GOTO60
66 IFA=13ANDI>.THENPRINT" ":GOTO22
68 IFI=MOR(A<45ANDA<>32)ORA>218THENGOSUB20:GOTO60
70 IF(A>57ANDA<65)OR(A>90ANDA<193)THENGOSUB20:GOTO60
72 Q$=Q$+A$:PRINTA$;:I=I+O:GOSUB18
74 FORJ=.TO20:NEXT:GOTO60
76 A=O:PRINT"[217]ES[157][157][157]";
78 GOSUB4:IF(F)THENPRINT:GOTO22
80 IFJ<>.THENA=O-A:GOSUB18:PRINT"[217]ES[157][157][157]";:IFA=.THENPRINT"[206]O [157][157][157]";
82 GOTO78
84 POKE53269,.:POKE53280,.:POKE53281,.:GOSUB14
86 PRINT"[147]"TAB(13)"[155]23456789:;<=67":PRINTTAB(13)"[151]>?[192][193][194][195][196][197][198][199][200][201][194][195]"
88 PRINTTAB(13)"[150]BY [202]ON [205]ATTSON":PRINTTAB(6)"[156]******** [155][200][201]  [211][195][207][210][197][211] [156]********"
90 PRINTTAB(6)"*"TAB(33)"*":FORI=.TO4:PRINTTAB(6)"[156]* [159]"T$(I)TAB(27)"";
92 A$=STR$(S(I)):J=LEN(A$):A$=LEFT$("00000",6-J)+RIGHT$(A$,J-O):PRINTA$"[156] *"
94 NEXT:PRINTTAB(6)"*"TAB(33)"*":PRINTTAB(6)"****************************"
96 PRINTTAB(11)"[154][202]OYSTICK IN [208]ORT 2":PRINTTAB(8)"[150][198]IRE TO [208]LAY - [209] TO [209]UIT"
98 POKE53265,27
100 GOSUB4:IFF=1THEN108
102 GETA$:IFA$<>"Q"ANDA$<>"[209]"THEN100
104 PRINT"[147][150][209]UIT? [154][193]RE YOU SURE? ";:GOSUB76:IFA=.THEN84
106 GOTO544
108 GOSUB22:PRINT"[147][154][217]OUR NAME, PLEASE: ";:M=16:GOSUB58:N$=Q$:GOSUB632
110 W(.)=172:W(1)=156
112 POKE53265,11:POKE56576,198:POKE648,92:POKE53272,120:POKE53270,216:SYS33981
114 FORI=1TO11:POKE53248+I,W(I):NEXT:POKE53276,.:POKE53287,3:POKE24568,109
116 IFW(.)<256THENPOKE53248,W(.):POKE53264,32:GOTO120
118 POKE53248,W(.)-256:POKE53264,33
120 FORI=1TO5:POKE53287+I,.:NEXT:POKE53271,.:POKE53275,.:POKE53277,.:K=.
122 POKE53280,.:POKE53281,.:POKE53269,63:POKE53265,59:POKE54285,3:J=PEEK(53278)
124 GOSUB4:W(O)=W(O)+8*Y(J):IFW(O)<140THENW(O)=140
126 IFW(O)>236THENW(O)=236
128 W(.)=W(.)+8*X(J):IFW(.)<(254-W(O))THENW(.)=254-W(O)
130 IFW(.)>(W(O)+86)THENW(.)=W(O)+86
132 POKE53249,W(O):IFW(.)<256THENPOKE53248,W(.):POKE53264,32:GOTO136
134 POKE53248,W(.)-256:POKE53264,33
136 IFX(J)+Y(J)<>.THENK=O-K:POKE54280,3+K:POKE54283,129:POKE54283,128
138 POKE24568,Z(J)+K:GETA$:IFA$=CHR$(13)THEN534
140 J=PEEK(53278):IFJ=.THEN124
142 B=.:FORI=OTO5:IF(T^IANDJ)THENB=I
144 NEXT:W(.)=W(.)-16*(B<3)+16*(B>3):W(O)=W(O)-16*(B=3)
146 POKE53269,.:J=PEEK(53278):GOSUB14:IFB<>3THEN248
148 POKE53270,216:POKE53282,9:POKE53283,5
150 PRINT"":FORI=.TO10:PRINTTAB(14)M$(I):NEXT:D=L:POKE36856,223:POKE53287,1
152 PRINT"[156] [208]LEASE SET COURSE FOR YOUR NEXT PORT    OF CALL...";:POKE53269,1
154 POKE53248,143+8*Q(D,.):POKE53249,89+8*Q(D,O)
156 PRINT""TAB(9)"[156][196]ESTINATION: [159]"C$(D)"    ";
158 GOSUB4:K=(K+O)ANDV:POKE53287,K:IF(F)THENGOSUB22:GOTO164
160 I=D+Y(J):I=-I*(I<5)-5*(I<.):IFI=DTHEN158
162 D=I:GOSUB18:GOTO154
164 POKE53269,.:IFD=LTHENPRINT"[147][211]TAYING PUT...":FORI=1TO1000:NEXT:GOTO112
166 PRINT"[147][211]ETTING COURSE...":X=Q(L,.):Y=Q(L,O):A=Q(D,.):B=Q(D,O)
168 A=A-X:B=B-Y:J=INT((A^2+B^2)^.5+.5):A=A/J:B=B/J:FORI=JTO1STEP-1
170 X=X+A:Y=Y+B:V(I+8)=L(INT(Y+.5),INT(X+.5)):NEXT:V(8)=J:FORI=.TO22
172 POKEP(I),V(I):NEXT:L=D:POKE53265,3:FORI=.TO25:POKE53269+I,U(I):NEXT
174 POKE53264,.:PC=.
176 SYS49152:FORI=.TO22:V(I)=PEEK(P(I)):NEXT:Q=V(18)+256*V(19):V(18)=.:V(19)=.
178 S=S+Q*3:R=R+O+Q:POKE54276,.:POKE54283,.:POKE53280,.:IFV(22)=.THEN222
180 POKE53281,T:POKE53269,PEEK(53269)AND86
182 IFPEEK(36858)<214THENPOKE53269,PEEK(53269)AND251
184 IFPEEK(36862)<214THENPOKE53269,PEEK(53269)AND191
186 POKE54278,96:POKE53281,.:IFV(6)=.THEN194
188 IF(PEEK(53269)AND16)>.THEN206
190 K=.:POKE54276,129:FORI=9TO.STEP-O:K=O-K:POKE36857,196+K:POKE54273,I:NEXT
192 GOTO208
194 IF(PEEK(53269)AND16)>.THEN202
196 POKE36857,178:POKE54276,129:FORI=100TO52STEP-2:POKE54273,I
198 POKE53251,PEEK(53251)-2:NEXT
200 POKE36860,184:POKE53257,PEEK(53251):POKE53269,(PEEK(53269)AND84)OR16
202 POKE54276,129:FORI=50TO10STEP-2:POKE54273,I:POKE53257,PEEK(53257)-2:NEXT
204 POKE54276,128
206 K=.:POKE54276,129:FORI=9TO.STEP-O:K=O-K:POKE36860,198+K:POKE54273,I:NEXT
208 POKE54276,128:POKE53269,PEEK(53269)AND68:FORI=1TO750:NEXT:POKE53269,.
210 PRINT"[147]"TAB(11)"[212]OUGH LUCK, PAL...":FORI=.TO999:NEXT:S=INT((S+PR-75)/2)
212 PRINT""TAB(11)"[156][198]INAL [211]CORE:[159]"S:I=FRE(.):GOSUB8:IFS<S(4)THEN84
214 J=4:FORI=4TO.STEP-O:IFS=>S(I)THENJ=I
216 NEXT:IFJ=4THEN220
218 FORI=4TOJ+OSTEP-O:S(I)=S(I-O):T$(I)=T$(I-O):NEXT
220 S(J)=S:T$(J)=N$:GOTO84
222 POKE53269,.:PRINT"[147][159]";:A$="[215]ELCOME TO "+C$(L)+".":A=INT(20-LEN(A$)/2)
224 PRINTTAB(A)A$:FORI=.TO11:IFINT(RND(O)*20)>O(I,O)THEN232
226 J=O+INT(RND(O)*3)+INT(RND(O)*3):IFRND(O)>.5THENJ=-J
228 M(L,I)=M(L,I)+J/100:IFM(L,I)<.5THENM(L,I)=.5
230 IFM(L,I)>2THENM(L,I)=2
232 O(I,4)=INT(.5+O(I,.)*M(L,I)):O(I,5)=INT(RND(O)*5)+O(I,3)
234 IFM(L,I)>1THENO(I,3)=O(I,3)-INT(10*M(L,I)-10):IFO(I,3)<OTHENO(I,3)=.
236 O(I,3)=O(I,3)-(M(L,I)<.9)-(M(L,I)<.75):NEXT
238 N=INT(RND(O)*3)-(R>25)-(R>99):IFQ=.THEN246
240 PRINT" [212]HE AUTHORITIES AWARD YOU A BOUNTY FOR"
242 PRINT" THE ENEMY VEHICLES YOU DESTROYED:[159] \";:J=.:FORI=1TOQ
244 J=J+INT(RND(O)*3+O):NEXT:Q=.:C=C+J:A$=STR$(J):PRINTRIGHT$(A$,LEN(A$)-O)
246 GOSUB8:GOTO110
248 ONBGOSUB250,374,,426,460:GOTO112
250 PRINT"[155] [217]OU ARE STOPPED AT THE DOOR BY A TOUGH  -LOOKING BOUNCER, WHO IS";
252 PRINT" EXPECTING A    \1 COVER CHARGE...":FORI=1TO1500:NEXT
254 IFC>.THENC=C-O:PRINT" [217]OU TOSS HIM A CREDIT AND WANDER IN.":GOTO266
256 IFR>99THEN260
258 PRINT" [217]OU SHOW EMPTY POCKETS - HE SHOWS YOU   THE DOOR...":GOTO8
260 PRINT" [200]E SEES THAT YOU'RE BROKE AND SUDDENLY  STARTS LOOKING THE OTHER ";
262 PRINT"WAY, ALL VERY  CASUALLY. [193]S YOU SLIP BY, HE  MUMBLES,  '[194]LAST A ";
264 PRINT"FEW OF'EM SUCKERS FOR ME NEXT  TIME YOU'RE UP THERE, PAL!'"
266 GOSUB8:POKE53280,5:POKE53281,15
268 PRINT"[147]"TAB(14)"[144][193]CE OF [144][195]LUBS":PRINTTAB(13)L$
270 PRINTTAB(12)" [144] [208]LAY [199]EMINI":PRINTTAB(12)" [144] [196]RINK & [199]OSSIP"
272 PRINTTAB(12)" [151] [204]EAVE":M=T:P=36092:GOSUB40:IFI=TTHENRETURN
274 IFI=OTHEN348
276 PRINT"[147] [215]ELCOME, MY FRIEND! [210]EADY TO WIN SOME   MONEY, [201] TRUST?"
278 PRINT" [204]ET'S BEGIN...":E=51
280 GOSUB8:IFE<39THEN288
282 PRINT"[147][211]HUFFLING...":E=.:BC=51:FORI=.TO51:K(I)=.:NEXT:FORI=.TO51
284 J=INT(RND(O)*52):IFK(J)>.THEN284
286 K(J)=O:C(I)=J:NEXT
288 GOSUB6:PRINTTAB(14)" [144] [208]LACE [194]ET":PRINTTAB(14)" [144] [209]UIT":M=1:P=36014
290 GOSUB40:IFI=OTHEN268
292 GOSUB6:PRINT"[144] [200]OW MUCH ([200]OUSE [204]IMIT IS 50[144])?";:M=50:GOSUB24
294 IFB=.THEN268
296 IFB>50THENGOSUB20:GOTO292
298 IFB>CTHENPRINTTAB(15)"[206]O CREDIT!":GOSUB20:FORI=1TO1000:NEXT:GOTO292
300 C=C-B:Z=B:GOSUB6:D(.)=C(E):D(O)=C(E+O):D(T)=.:D(3)=C(E+T):D(4)=C(E+3)
302 D(5)=.:E=E+4:FORI=.TO5:T(I)=1+D(I)-13*INT(D(I)/13):NEXT
304 IFT(O)>T(.)THENI=T(.):T(.)=T(O):T(O)=I:I=D(.):D(.)=D(O):D(O)=I
306 IFT(4)>T(3)THENI=T(3):T(3)=T(4):T(4)=I:I=D(3):D(3)=D(4):D(4)=I
308 I=1+C(BC)-13*INT(C(BC)/13)
310 IFL=CDANDI>T(.)ANDT(.)<>T(O)THENT(.)=I:D(.)=C(BC):BC=BC-O
312 PRINTTAB(11)"[196]EALER";:I=.:GOSUB54:PRINT"  ??"
314 PRINTTAB(11)"[208]LAYER";:I=3:GOSUB54:I=4:GOSUB54:PRINT""
316 IFT(3)+T(4)=TTHENPRINTTAB(14)"* [199]EMINI!! *":GOSUB22:C=C+3*Z:GOTO280
318 PRINTTAB(12)"[213]P THE ANTE?";:M=INT(Z/T):IFM>CTHENM=C
320 GOSUB24:C=C-B:Z=Z+B:PRINTTAB(15)" [144] [204]OOKS [207][203]":PRINTTAB(15)" [144] [200]IT [205]E"
322 M=O:P=36335:GOSUB40:IFI=.THEN330
324 D(5)=C(E):E=E+O:PRINT""TAB(25);:I=5:GOSUB54:PRINT
326 T(4)=T(4)+1+D(5)-13*INT(D(5)/13)
328 IFT(4)>T(3)THENPRINTTAB(15)"* [194]UST!! *":GOSUB20:GOSUB20:GOTO280
330 FORI=OTO500:NEXT:T(5)=T(3)+T(4):IFT(3)=T(4)THENT(5)=T(5)+10
332 PRINT""TAB(21);:I=O:GOSUB54:J=T(.)+T(O)-10*(T(.)=T(O))
334 IFT(.)+T(O)=TTHENJ=J+24
336 IFJ=>T(5)THEN344
338 D(T)=C(E):E=E+O:I=T:GOSUB54:T(O)=T(O)+1+D(T)-13*INT(D(T)/13)
340 IFT(O)>T(.)THENPRINT:PRINTTAB(15)"* [194]UST!! *":GOTO346
342 T(T)=T(.)+T(O)-10*(T(.)=T(O)):IFT(T)<T(5)THENPRINT:GOTO346
344 PRINT""TAB(14)"[217]OU LOSE...":GOSUB20:GOSUB20:GOTO280
346 PRINT""TAB(16)"[217]OU WIN!":GOSUB22:C=C+T*Z:GOTO280
348 IFC>.THENC=C-O:GOTO356
350 PRINT"[147][144] [217]OU DON'T HAVE THE MONEY FOR A DRINK,":J=INT(RND(O)*200)
352 IFJ>RTHENPRINT" AND NO ONE OFFERS TO BUY YOU ONE...":GOSUB8:GOTO268
354 PRINT" BUT SOMEONE RECOGNIZES YOU AND BUYS     YOU ONE.":GOSUB8
356 PRINT"[147][144] [193]FTER A BIT OF CAROUSING (AND SEVERAL"
358 PRINT" DRINKS), YOU HEAR SOME LOCAL RUMOURS."
360 IFINT(RND(O)*5)=>NTHENPRINT" "R$(INT(RND(O)*11)-(R>25)):GOSUB8:GOTO268
362 B=INT(RND(O)*5):IFB=LTHEN362
364 N=N-O:C=C-INT(RND(O)*T):C=-C*(C>.)
366 PRINT" [198]ROM "C$(B)":":A=R(INT(RND(O)*64)):PRINT" "R$(A+12)
368 J=INT(RND(O)*21+5):IFA>11THENJ=-J:A=A-12
370 IFRND(O)>.05THENM(B,A)=M(B,A)+J/100:IFM(B,A)<.3THENM(B,A)=.3
372 GOSUB8:GOTO268
374 POKE53280,12:POKE53281,11
376 PRINT"[147][144]"TAB(17)"[199]ARAGE[150]":PRINTTAB(16)RIGHT$(L$,10)
378 A$=STR$(C):A$=RIGHT$(A$,LEN(A$)-O):PRINTTAB(12)"[144][217]OU HAVE [155]\"A$"[144]..."
380 PRINTTAB(11)" [153] [210]ECHARGE [194]ATTERY":PRINTTAB(11)" [153] [210]EPAIR [211]HIELDS"
382 PRINTTAB(11)" [153] [193]DD [195]ARGO [210]OOM":PRINTTAB(11)"  [204]EAVE"
384 M=3:P=36171:GOSUB40:IFI=3THENRETURN
386 IFC=.THENPRINT"[147][153][217]OU HAVE NO MONEY...!":GOSUB8:GOTO374
388 ONI+OGOSUB390,400,410:GOSUB8:GOTO374
390 J=T*(10-V(6)):IFV(7)<150THENV(7)=150:C=C-O
392 IFJ<=CTHENC=C-J:V(6)=10:PRINT"[147][153][210]IGHT - FILL'ER UP!":GOTO398
394 PRINT"[147][153][217]OU DON'T HAVE ENOUGH MONEY, BUT [201]'LL   DO WHAT [201] CAN..."
396 J=INT(C/T):C=C-T*J:V(6)=V(6)+J
398 FORI=1TO5:GOSUB22:FORJ=1TO600:NEXTJ,I:GOSUB20:GOTO20
400 J=5*(10-V(5))
402 IFJ<=CTHENC=C-J:V(5)=10:PRINT"[147][153][201]'LL FIX 'EM RIGHT UP!":GOTO408
404 PRINT"[147][153][217]OU DON'T HAVE ENOUGH MONEY, BUT [201]'LL   DO WHAT [201] CAN..."
406 J=INT(C/5):C=C-5*J:V(5)=V(5)+J
408 FORI=1TO8:GOSUB18:GOSUB20:NEXT:GOTO22
410 IFG<WTHEN416
412 PRINT"[147][153][204]OOK, PAL - IF YOU TRY TO CARRY ANY     MORE CARGO IN THIS ";
414 PRINT"MONSTER, YOU'RE NOT  GOING TO BE ABLE TO LIFT OFF!":RETURN
416 PRINT"[147][153][215]E'RE TALKING MAJOR STRUCTURAL CHANGES  HERE. [201]T'LL COST YOU ";
418 PRINT"\100 A TON.":PRINT" [200]OW MANY TONS? ";:M=W-G:GOSUB26:J=100*B
420 IFJ>CTHENPRINT"[150] [206]O CREDIT!":GOTO20
422 G=G+B:PRINT" ";
424 C=C-J:PRINT"[195]OMING RIGHT UP...":GOTO408
426 POKE53280,T:PRINT"[147][159] [200]IYA, "N$". [193]RE YOU..."
428 PRINT""TAB(14)"[155][215]EAPON [211]HOP[150]":PRINTTAB(13)LEFT$(L$,13):GOSUB456
430 IFI=TTHENRETURN
432 B=I+O:PRINT"[147]";:FORI=.TO4:PRINTTAB(10)" [155] "W$(I):NEXT:P=35930:M=4
434 GOSUB40:IFI=4THENPRINT"[147]":GOTO428
436 I=I+O:PRINT"[147][155]";:ONBGOSUB438,444:GOSUB8:PRINT"[147]":GOTO428
438 J=-(I=3):IFV(I)>JTHENPRINT"[150][206]O ROOM FOR THAT, PAL.":RETURN
440 J=B(I-O):IFJ>CTHENPRINT"[150][206]O CREDIT!":GOTO20
442 V(I)=V(I)+O:GOTO424
444 IFV(I)=.THENPRINT"[150][217]A AIN'T GOT ONE, HOTSHOT!":GOTO20
446 B=INT(B(I-O)/T):PRINT"[155][201]'LL GIVE YA"B"CREDITS FOR IT.":PRINT" [211]OUND OK? ";
448 GOSUB76:IFA=.THENPRINT"[155] [217]OUR LOSS...":RETURN
450 V(I)=V(I)-O:C=C+B:PRINT"[155] [199]REAT! [201]'LL JUST GO GET IT...":POKE54278,48
452 FORI=.TO4:POKE54276,33:FORJ=TTO10STEPJ/6:POKE54273,J:NEXT:POKE54276,32
454 NEXT:POKE54276,129:FORI=10TO.STEP-.5:POKE54273,I:NEXT:POKE54276,128:GOTO22
456 PRINTTAB(14)" [150] [194]UYING,":PRINTTAB(14)" [150] [211]ELLING OR"
458 PRINTTAB(14)" [150] [204]EAVING?":P=36094:M=T:GOTO40
460 POKE53280,9:POKE53281,15:IFPK=LTHENGOSUB708
462 PRINT"[147][149] [215]ELCOME, "N$". [193]RE YOU..."
464 PRINT""TAB(15)"[144][215]AREHOUSE":PRINTTAB(14)LEFT$(L$,11):GOSUB456
466 IFI=TTHEN718
468 ONI+OGOSUB470,494:GOSUB8:PRINT"[147]":GOTO464
470 PRINT"[147][144]"TAB(9)"[201]TEM"TAB(23)"[193]MNT  [208]RICE":J=O-.05*(L=CM):FORI=.TO11
472 PRINTTAB(7)"  "O$(I)TAB(23)"[129]"O(I,5)TAB(29)"[149]"INT(.5+J*O(I,4)):NEXT
474 PRINTTAB(7)"  [206]OTHING":P=35967:M=12:GOSUB40
476 IFI=12THENPRINT" [217]OU'LL NOT FIND BETTER IN THIS CITY!":RETURN
478 IFO(I,5)=.THENPRINT" [201] FEAR THAT ITEM IS OUT OF STOCK...":RETURN
480 PRINT" [217]OU HAVE"G-H"TONS OF CARGO SPACE AND":PRINTC"CREDITS."
482 PRINT"[144] [200]OW MUCH WOULD YOU LIKE? ";:M=G-H:IFM>O(I,5)THENM=O(I,5)
484 GOSUB26:IFB=.THENI=12:GOTO476
486 J=O-.1*(L=CM):J=INT(.5+J*O(I,4))*B:PRINT" [212]HAT WILL COST"J"CREDITS.[149]"
488 IFJ>CTHENPRINT" [206]O CREDIT!":RETURN
490 C=C-J:O(I,5)=O(I,5)-B:H=H+B:H(I)=H(I)+B:IFPC=OTHENPC=.
492 PRINT" [201]'LL HAVE IT TRANSPORTED TO YOUR SHIP   RIGHT AWAY.":RETURN
494 PRINT"[147][144]"TAB(10)"[201]TEM"TAB(24)"[193]MNT":FORI=.TO11
496 PRINTTAB(8)"  "O$(I)TAB(24)"[149]"H(I):NEXT:PRINTTAB(8)"  [206]OTHING[149]"
498 P=35968:M=12:GOSUB40
500 IFI=12THENPRINT"[149] [217]OUR LOSS...":RETURN
502 IFH(I)=.THENPRINT" [209]UIT WASTING MY TIME.":RETURN
504 J=.95+R/1000+.05*(L=CM):IFJ>OTHENJ=O
506 B=H(I)*INT(J*O(I,4)):IFINT(RND(O)*20)<O(I,T)THEN518
508 PRINT" [201]'LL GIVE YOU \"B"FOR THE LOT.":PRINT" [211]OUND [207][203]? ";:GOSUB76
510 IFA=.THENI=12:GOTO500
512 PRINT"[149] [199]OOD. [201]'LL HAVE IT BROUGHT OVER FROM    YOUR SHIP."
514 C=C+B:O(I,5)=O(I,5)+H(I):H=H-H(I):H(I)=.:IFC>PRTHENPR=C
516 RETURN
518 PRINT"[147] [212]SK,TSK! [217]OU OBVIOUSLY HAVEN'T HEARD    THAT PORT OFFICIALS ";
520 PRINT"HAVE LIMITED THE    IMPORT OF "O$(I)".":B=INT(.5+.6*B)
522 PRINT" [201]'LL HAVE TO TAKE OFF A FEW CREDITS     FOR THE TARIFF. [207]F COURSE";
524 PRINT", IF THIS IS   SMUGGLED MERCHANDISE..."
526 PRINT" [201]'LL TAKE IT OFF YOUR HANDS FOR...":PRINT" SAY,"B"CREDITS."
528 PRINT" [217]OU HAGGLE A BIT BUT HIS HAND, RESTING"
530 PRINT" OMINOUSLY ON THE VID-PHONE, ULTIMATELY  DECIDES THE ISSUE..."
532 GOTO514
534 POKE53269,.:GOSUB14:PRINT"[150] [210]ETIRE? [154][193]RE YOU SURE? ";:GOSUB76
536 IFA=.THEN112
538 S=S+PR-75:PRINT"[147][154] [196]ECIDING THAT YOU'D LIKE TO LIVE TO"
540 PRINT" APPRECIATE THE FRUITS OF YOUR LABOUR,"
542 PRINT" YOU HAPPILY RETIRE IN "C$(L)".":GOSUB8:GOTO212
544 PRINT"[147][154][211]AVE HIGH SCORES? ";:GOSUB76:IFA=.THEN554
546 OPEN15,DV,15:OPEN2,DV,2,"@0:C.HIGH,S,W":INPUT#15,EN,EM$,ET,ES
548 IFEN>19THENPRINTEN,EM$,ET,ES:STOP
550 FORI=.TO4:PRINT#2,T$(I):PRINT#2,S(I):NEXT
552 CLOSE2:CLOSE15
554 POKE56576,199:POKE53272,21:POKE648,4:POKE53280,0:POKE53281,0:POKE56,160
556 POKE52,160:CLR:PRINT"[147][154]";:GOTO732
558 DIMB(3),C(51),D(5),H(11),K(51),L(8,8),M(4,11),O(11,5),P(22),Q(4,1),R(63)
560 DIMS(4),T(5),U(25),V(22),W(11),X(10),Y(10),Z(10)
562 DIMC$(4),M$(10),N$(12),O$(11),R$(37),S$(3),T$(4),W$(4)
564 FORI=.TO8:FORJ=.TO8:READL(I,J):NEXT:NEXT:FORI=.TO11:READO$(I):FORJ=.TO3
566 READO(I,J):NEXT:NEXT
568 FORI=.TO21:P(I)=53197+I:NEXT:P(22)=P(.)+49:FORI=.TO4:READC$(I)
570 FORJ=.TO1:READQ(I,J):NEXT:NEXT:FORI=.TO25:READU(I):NEXT
572 FORI=.TO11:READW(I):NEXT:FORI=.TO10:READX(I),Y(I),Z(I):NEXT:FORI=.TO3
574 READB(I):NEXT:FORI=.TO4:READW$(I):NEXT
576 FORI=.TO10:READM$(I):NEXT:FORI=.TO12:READN$(I):NEXT:FORI=.TO3:READS$(I)
578 NEXT:K=.:FORI=.TO23:READA:FORJ=1TOA:R(J+K-1)=I:NEXT:K=K+A:NEXT
580 DATA1,1,2,5,5,6,6,7,7,1,1,1,4,5,5,6,9,7,1,9,1,2,4,8,6,7,6
582 DATA2,2,1,3,4,4,3,5,6,2,6,5,4,9,4,4,5,5,2,3,3,4,4,4,5,6,5
584 DATA3,0,8,3,4,4,5,9,6,2,9,0,3,3,4,4,3,6,1,2,3,3,4,4,4,4,6
586 DATA"[198]OOD",5,3,1,8,"[212]EXTILES",7,2,1,7,"[205]INERALS",10,3,2,6
588 DATA"[206]OVELTIES",12,4,1,6,"[212]OOLS",15,2,2,6,"[204]IQUOR",25,4,3,4
590 DATA"[193]LLOYS",35,2,2,5,"[205]ACHINERY",50,2,2,5,"[198]IREARMS",65,3,3,4
592 DATA"[197]LECTRONICS",80,3,2,3,"[204]UXURIES",90,4,1,2,"[205]EDICINE",100,2,2,1
594 DATA"[200]ILLCREST",7,1,"[214]ERDANT",1,2,"[206]EWPORT",4,4,"[200]AVEN",7,6,"[199]LADE",1,7
596 DATA1,216,1,63,123,240,0,254,1,0,0,6,0,9,5,10,11,15,7,1,13,1,1,1,10,1
598 DATA172,156,46,210,104,154,172,140,238,154,38,210
600 DATA0,,109,,-1,109,,1,109,,,109,-1,,107,,,107,,,107,,,109,1,,105
602 DATA0,,105,,,105,60,75,35,150,"[208]ULSAR [205]OUNTS  [159]\60","[212]ORPEDO [212]UBES  [159]\75"
604 DATA"[211]MART [194]OMB     [159]\35","[214]ORTEX [211]HIELD  [159]\150","[206]ONE"
606 DATA"[159][176][192][192][192][192][192][192][192][192][192][174]","[159][221][149][207][207][208][211][211][212][212][213][213][146][159][221]","[159][221][149][207][207][207][210][211][211][212][155][215][149][213][146][159][221]"
608 DATA"[159][221][149][207][155][215][149][207][208][210][151][214][149][212][213][212][146][159][221]","[159][221][149][208][208][207][209][210][210][209][211][212][146][159][221]","[159][221][149][208][212][211][210][155][215][149][210][210][211][211][146][159][221]"
610 DATA"[159][221][149][208][209][209][210][210][210][211][212][211][146][159][221]","[159][221][149][209][154][206][151][214][149][209][210][210][211][155][215][149][212][146][159][221]","[159][221][149][208][155][215][154][206][149][209][209][210][210][209][212][146][159][221]"
612 DATA"[159][221][149][207][208][209][209][210][210][210][210][212][146][159][221]","[159][173][192][192][192][192][192][192][192][192][192][189]"
614 DATA"[193]","2","3","4","5","6","7","8","9","[212]","[202]","[209]","[203]"
616 DATA".[146]","/[146]","0[146]","1[146]"
618 DATA5,4,4,1,4,1,3,3,1,2,1,3,3,2,3,3,2,2,3,3,3,3,3,2
620 O=1:T=2:U=56320:V=15:W=16
622 OPEN15,DV,15:OPEN2,DV,2,"0:C.HIGH,S,R":INPUT#15,EN,EM$,ET,ES:IFEN=62THEN628
624 IFEN>19THENPRINTEN,EM$,ET,ES:STOP
626 FORI=.TO4:INPUT#2,T$(I):INPUT#2,S(I):NEXT
628 CLOSE2:CLOSE15:POKE54296,15:FORI=.TO37:READR$(I):NEXT
630 L$="[183][183][183][183][183][183][183][183][183][183][183][183][183][183]":GOTO84
632 C=75:PR=C:G=10:H=.:L=T:R=.:S=.:FORI=.TO11:H(I)=.:NEXT:CD=INT(RND(O)*5)
634 CM=INT(RND(O)*5):R$(O)=C$(CD)+R$(36):R$(T)=R$(37)+C$(CM)+".":R$(9)=R$(O)
636 R$(10)=R$(T):FORI=.TO4:FORJ=.TO11:M(I,J)=O:NEXT:NEXT:FORI=OTO22:V(I)=.
638 NEXT:V(.)=O:V(5)=10:V(6)=10:V(7)=150:V(17)=32:V(20)=T:V(21)=10:N=O
640 FORI=.TO11:O(I,4)=O(I,.):O(I,5)=O(I,3)+T:NEXT:PK=5:PC=.:RETURN
642 DATA"[211]OME HOTSHOT PILOT HAS BEEN MAKING THE  CITY RUNS AGAIN..."," "," "
644 DATA"[196]ON'T TRUST THE LOCAL GARAGE.","[215]ATCH YOUR TAIL NEAR [199]LADE..!"
646 DATA"[215]ORD IS,[210]EDBEARD'S PAY'N TOP BUCKS FER  AN EASY  RUN."
648 DATA"[200]ANS WAS THRU HERE LOOKING FOR YOU..."
650 DATA"[217]A NEED A [214]ORTEX TO REALLY BLAST 'EM    SUCKERS. [212]RY ONE OUT!"
652 DATA"[212]HEY'RE TRY'N T'GET SHIPS GO'N 'TWEEN   [200]AVEN AND [206]EWPORT AGAIN."
654 DATA" "," ","[201]'D LAY A LOW IF [201] WERE YOU - YOU'RE    MAKING ENEMIES!"
656 DATA"[212]HE SEVEN-MONTH ARTHROPOD HAS HIT THE   CROPS AGAIN!"
658 DATA"[212]HEY'RE HAVING A TOUGH TIME OF IT WITH  [194]LIGHT-[205]OTHS."
660 DATA"[212]HEY'RE UP IN ARMS ABOUT ONE OF THE     MINES RUNNING DRY."
662 DATA"[194]ELIEVE IT OR NOT, THE TOURIST TRADE    IS BOOMING!"
664 DATA"[212]OOLSMITHS 101 IS ON STRIKE AGAIN..."
666 DATA"[194]OOTLEG TRAFFIC'S AT AN ALL-TIME LOW.   [199]ONNA BE A DRY TIME TONIGHT."
668 DATA"[212]HE STEEL PLANT TOOK A REAL BEATING IN  THAT LAST RAID."
670 DATA"[196]ON'T KNOW HOW THEY GET ANYTHING DONE   WITH THAT ANTIQUE EQUIPMENT."
672 DATA"[212]HAT LAST ATTACK NUKED THE MUNITIONS    PLANT PRETTY THOROUGHLY."
674 DATA"[212]HE OLD [205]1[216] STRATEGIC COMPUTER FINALLY  PACKED IT IN."
676 DATA"[197]CONOMY'S UP AND THEY'RE SAY'N THERE'S  NOTHIN' TO BUY! [212]OUGH LIFE."
678 DATA"[193]VOID IT! [212]HE [194]LUE-[211]POTTED [198]EVER HAS    HIT AGAIN..."
680 DATA"[212]HEY JUST HARVESTED A BUMPER CROP."
682 DATA"[206]EED ANY CLOTH? [212]HEY'VE GOT ROLLS JUST  LYIN' IN THE STREET."
684 DATA"[211]OME OLD MINER FINALLY HIT IT BIG, AND  THERE'S A REAL RUSH ON."
686 DATA"[201] COULD HAVE TOLD 'EM: SOUVENIRS DON'T  SELL WHEN YA GOT NO TOURISTS!"
688 DATA"[206]EED ANY TOOLS? [212]HEY'RE PRACTICALLY     GIVING THEM AWAY!"
690 DATA"[196]RINKS THERE BLOW THESE AWAY! [205]UST BE   A VINTAGE YEAR OR SOMETHING."
692 DATA"[212]HEY'RE RAKING IN THE CREDITS WITH THE  NEW TITANIUM ALLOY."
694 DATA"[212]HEY'RE SELLING OFF SOME OLD EQUIPMENT  - COULD BE SOME GOOD BUYS."
696 DATA"[212]HEY'RE JUST ASK'N FOR A RAID,WITH ALL  THOSE WEAPONS STACKED UP!"
698 DATA"[193] NEW ELECTRONICS FIRM,[212]RANSISTOR [200]UT,  JUST SET UP SHOP."
700 DATA"[212]HOSE 3[196]-[214]IDS & [198]IRE-[199]EMS WILL BE [210][197][193][204]  USEFUL IN THE NEXT RAID..."
702 DATA"[212]HE LAB DISCOVERED A NEW CURE FOR [194]LUE  -[211]POTTED [198]EVER!"
704 DATA"'S [199]EMINI DEALER IS CROOKED!"
706 DATA"[195]OUNT YOUR FINGERS AFTER DEALING WITH   THE MERCHANT IN "
708 J=10+INT(R/4):IFJ>50THENJ=50
710 PRINT"[147][144] [217]OU ARE STOPPED IN THE DOORWAY BY A"
712 PRINT" CLOAKED FIGURE: [201] BELIEVE YOU HAVE A    PACKAGE FOR ME...[144]"
714 PRINT" [200]E TAKES THE PACKAGE, GIVES YOU \"J"[157],"
716 PRINT" AND DISAPPEARS DOWN THE ALLEY.":C=C+J:R=R+T:PK=5:GOTO8
718 IFPK<5ORPC>.ORRND(O)>.3ORINT(RND(O)*100)>RTHENPC=O:RETURN
720 PC=T:PK=INT(RND(O)*5):IFPK=LTHEN720
722 PRINT"[147] [200]EY, IF YOU'RE GOING TO "C$(PK)", [201]":PRINT" HAVE A PACKAGE [201] ";
724 PRINT"NEED DELIVERED.":PRINT" [201]T WOULD BE WORTH YOUR WHILE...[144]"
726 PRINT" [215]ILL YOU TAKE IT? ";:GOSUB76
728 IFA=.THENPRINT" [217]OUR LOSS...":PK=5:GOTO8
730 PRINT" [197]XCELLENT! [200]ERE IT IS...":GOTO8
732 DV=PEEK(186):IFDV<8THENDV=8
733 OPEN15,DV,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
734 IFER=63THEN742
736 PRINT"[147]":END
738 GETA$:IFA$<>CHR$(13)THEN738
740 GOTO732
742 PRINT"[147][144]":PRINT"LOAD"CHR$(34);
744 PRINT"HELLO CONNECT"CHR$(34)","DV:PRINT"RUN[145][145][145][145][145][145][145][145]":POKE631,13
746 POKE632,13:POKE633,13:POKE198,3:NEW