Atari 8-bit Source code

1REMBAYPILOT
2REMBYALCONRAD
3REMFORANTICMAGAZINE
4REM
100GOSUB8000
105GRAPHICS7+16
110GOSUB7000
130GOSUB9000
140GOSUB6000
180POKE87,0:POSITION1,0:PRINT#6;"HITBUTTON"
190IFSTRIG(0)<>0THENGOTO190
191POSITION1,0:PRINT#6;""
192IFSTRIG(0)=0THENGOTO192
193POKE87,1
194POSITION14,4:PRINT#6;SCORE;""
200X=X+(SPEED*SINTAB(COURSE+1)):XNEW=INT(X):Y=Y-(SPEED*COSTAB(COURSE+1)):YNEW=INT(Y)
3511IFXNEW<46THENXNEW=46
3512IFXNEW>204THENXNEW=204
3513IFYNEW<60THENYNEW=60
3514IFYNEW>215THENYNEW=215
3515FORI=1TO10:OLDY=OLDY+SGN(YNEW-OLDY):Z=USR(1536,XNEW,OLDY,COURSE,ADR(A$),PHB):IFOLDY=YNEWTHENI=11
3516NEXTI
4205T=INT(4*RND(0)+1)
4227Z=USR(ADR(MASK$),MA+TRAFOLDY(T),MA+TRAFY(T),T):TRAFY(T)=TRAFY(T)+SDY:POKE53251+T,TRAFX(T):POKEHITCLR,0
4250SPEED=USR(ADR(NSJOY$),SPEED+128)-128:COURSE=USR(ADR(EWJOY$),COURSE):SOUND3,217,12,ABS(SPEED)
4502WATER=PEEK(53247+T)=0:IFNOTWATERTHENTX=TRAFOLDX(T):TY=TRAFOLDY(T)
4503IFWATERTHENTX=USR(ADR(F$),TRAFX(T),XNEW+3,TRAFDELTA(T)):TY=USR(ADR(F$),TRAFY(T),YNEW+5,TRAFDELTA(T))
4504TRAFOLDX(T)=TRAFX(T):TRAFX(T)=TX:TRAFOLDY(T)=TRAFY(T):TRAFY(T)=TY
4507IFPEEK(53256)+PEEK(53257)+PEEK(53258)+PEEK(53259)THENGOSUB5300:GOSUB5400:GOTO180
4508A=PEEK(53252):WATER=(A=0):IFNOTSTUCKANDWATERTHEN200
4510LAND=(A=1)
4511IFSTUCKANDLANDTHENSCORE=SCORE-25:POKE87,1:POSITION14,4:?#6;SCORE;"":SPEED=SGN(SPEED):GOTO200
4512IFWATERTHENSTUCK=0:POKE707,62:GOTO200
4515IFLANDTHENSTUCK=1:SPEED=0:POKE707,54:SOUND3,99,8,15:GOTO200
4521IFA>=4THENGOSUB6600:GOTO200
4524GOSUB6300
4528GOSUB6300:SCORE=SCORE+DELTA:POKE87,1:GOALSGOTTEN=GOALSGOTTEN+1:POSITION14,4:?#6;SCORE;""
4530IFGOALSGOTTEN<3THENGOSUB6400:GOTO200
4532COLOR3:GOSUB4900
4533POKE87,1
4539GOTO200
4900IFCHARTNO=1THENRESTORE4951
4911IFCHARTNO=2ANDCHARTDEL=1THENRESTORE4952
4912IFCHARTNO=2ANDCHARTDEL=-1THENRESTORE4953
4913IFCHARTNO=3THENRESTORE4954
4915READAX,AY
4920POKE87,7:FORK=1TO5
4930READI:READJ:PLOTAX+I,AY+J
4940READI:READJ:DRAWTOAX+I,AY+J
4945NEXTK
4947RETURN
4951DATA10,77,0,-3,0,3,-1,-2,-1,2,-2,-1,2,-1,-2,1,2,1,-3,0,2,0
4952DATA75,30,0,-3,0,3,1,-2,1,2,2,-1,-2,-1,2,1,-2,1,3,0,-2,0
4953DATA120,30,0,-3,0,3,1,-2,1,2,2,-1,-2,-1,2,1,-2,1,3,0,-2,0
4954DATA10,50,0,-3,0,3,-1,-2,-1,2,-2,-1,2,-1,-2,1,2,1,-3,0,2,0
5000FORI=1TO10:SOUND0,60,14,8:NEXTI
5010FORI=1TO10:SOUND1,45,14,8:NEXTI
5020FORI=1TO10:SOUND2,29,12,15:NEXTI
5030FORI=1TO20:SOUND3,29,14,8:NEXTI
5040FORI=1TO10:SOUND0,40,14,8:NEXTI
5050FORI=1TO40:SOUND2,29,14,8:NEXTI
5190SOUND0,121,1,1:SOUND1,121,1,1:SOUND2,121,0,0:SOUND3,121,0,0:RETURN
5300FORI=1TO30:SOUND0,162,10,8:SOUND2,121,12,10:NEXTI
5330FORI=1TO10:SOUND0,128,10,8:SOUND2,108,12,10:NEXTI
5350FORI=1TO20:SOUND0,121,10,8:SOUND2,102,12,10:NEXTI
5370FORI=1TO10:SOUND0,162,10,8:SOUND2,121,12,10:NEXTI
5390SOUND0,256,0,0:SOUND1,256,0,0:SOUND2,256,0,0:SOUND3,256,0,0
5395RETURN
5400IFSCORE>BESTTHENBEST=SCORE:POKE87,1:POSITION1,4:?#6;SCORE;""
5420GOSUB6000
5430RETURN
6000POKE752,1
6006SPEED=0:STUCK=0:DELTA=50
6007COURSE=0:SCORE=0:CHARTDEL=1
6008IFCHARTNO=1THENGOSUB6300:COLOR0:GOSUB4900
6009IFCHARTNO<>1THENCHARTNO=1:GOSUB9300
6010GOALSGOTTEN=0
6011GOSUB6500
6015GOSUB8800
6020GOSUB6400
6025GOSUB9275
6090POKEHITCLR,0:POKE77,0
6120T=1
6200RETURN
6300POKE87,7:SOUND1,GX+50,10,6
6314COLOR0:PLOTGX,GY:DRAWTOGX+2,GY:PLOTGX+1,GY+1:DRAWTOGX+1,GY-1
6319SOUND1,0,0,0:RETURN
6400POKE87,7:COLOR2
6430GX=INT(RND(0)*156)+2:GY=INT(RND(0)*74)+5:WATER=1
6434FORJ=0TO2:FORK=-1TO1
6435POSITIONGX+J,GY+K:GET#6,C:IFC<>0THENWATER=0
6436NEXTK:NEXTJ
6437IFNOTWATERTHEN6430
6440PLOTGX,GY:DRAWTOGX+2,GY:PLOTGX+1,GY+1:DRAWTOGX+1,GY-1
6465SOUND3,0,0,0
6470RETURN
6500IFCHARTNO=1THENRESTORE6541
6511IFCHARTNO=2ANDCHARTDEL=1THENRESTORE6542
6512IFCHARTNO=2ANDCHARTDEL=-1THENRESTORE6543
6513IFCHARTNO=3THENRESTORE6544
6515READX:READY:OLDY=Y
6520A$(1,11)=Z$:A$(177,187)=Z$:A$(353,363)=Z$:A$(529,539)=Z$
6521Z=USR(1536,XNEW,YNEW,0,ADR(A$),PHB)
6523A$(1,11)=D1$:A$(177,187)=D2$:A$(353,363)=D3$:A$(529,539)=D4$
6524POKE707,62:Z=USR(1536,X,Y,COURSE,ADR(A$),PHB)
6530RETURN
6541DATA60,207
6542DATA170,112
6543DATA121,112
6544DATA65,187
6600SCORE=SCORE+500:POKE87,1:POSITION14,4:?#6;SCORE;"":GOSUB9250:GOSUB9300
6611GOALSGOTTEN=0
6615GOSUB9275
6620GOSUB6500
6630GOSUB8800
6640GOSUB6400
6650RETURN
7000FORA=53248TO53255:POKEA,0:NEXTA
7010FORA=53256TO53259:POKEA,0:NEXTA
7016POKE704,3*16+4:POKE705,3*16+6:POKE706,3*16+10:POKE707,3*16+14
7020PHB=PEEK(106)-32:PMBASE=256*PHB
7023MA=PMBASE+768
7024POKEPMBASE+2047,0:A=PMBASE+2048-256
7025Z=USR(ADR(MOV$),A,A-1,256):A=A-256
7026Z=USR(ADR(MOV$),A,A-1,256):A=A-256
7027Z=USR(ADR(MOV$),A,A-1,256):A=A-256
7028Z=USR(ADR(MOV$),A,A-1,256):A=A-256
7029Z=USR(ADR(MOV$),A,A-1,255)
7080SDMCTL=559:GRACTL=53277
7081POKESDMCTL,62
7082POKEGRACTL,3
7083POKE54279,PHB
7085POKE623,1
7100RETURN
8000GRAPHICS1:SETCOLOR2,0,0
8003POKE752,1
8004POSITION5,3:PRINT#6;"BAY"
8005POSITION5,6:PRINT#6;"copyright"
8006POSITION5,8:PRINT#6;"alconrad"
8008SOUND3,189,8,8
8160BEST=0
8165HITCLR=53278:PMINX=47:PMAXX=208:PMINY=64:PMAXY=224
8225GOSUB9350:GOSUB9400:GOSUB9450:GOSUB9500:GOSUB9850:GOSUB9950
8230DIMTRAFX(4):DIMTRAFY(4):DIMTRAFDELTA(4):DIMTRAFOLDX(4):DIMTRAFOLDY(4)
8235DIMC$(40)
8240FORI=1TO4:TRAFY(I)=1:NEXTI
8245SPEEDFACTOR=(3.99999999/7)
8250DIMSINTAB(16):DIMCOSTAB(16):DEG
8260FORI=1TO16:SINTAB(I)=29/51*SPEEDFACTOR*SIN(22.5*(I-1)):NEXTI
8270FORI=1TO16:COSTAB(I)=SPEEDFACTOR*COS(22.5*(I-1)):NEXTI
8300RETURN
8800FORI=1TO4
8900FORI=1TO4
8905TRAFX(I)=PMINX+INT(RND(0)*(PMAXX-PMINX)):TRAFY(I)=PMINY+INT(RND(0)*(PMAXY-PMINY))
8906POKE53251+I,TRAFX(I)
8910Z=USR(ADR(MASK$),MA+TRAFOLDY(I),MA+TRAFY(I),I):TRAFOLDY(I)=TRAFY(I)
8915SOUND3,TRAFY(I),10,8
8920IFPEEK(53247+I)ORPEEK(53255+I)THENPOKEHITCLR,0:GOTO8905
8925TRAFDELTA(I)=INT(RND(0)*2.1)+2+(SCORE>5000)+(SCORE>20000)+(SCORE>50000)
8930NEXTI
8935SOUND3,0,0,0
8990RETURN
9000SETCOLOR2,0,0
9010A=PEEK(560)+256*PEEK(561)+4
9015POKEA-1,66:POKEA+2,2
9020POKEA+3,6:POKEA+4,134
9028RESTORE9029:FORI=0TO19:READC:POKE1536+230+I,C:NEXTI
9029DATA72,138,72,169,168,162,128,141,10,212,141,24,208,142,26,208,104,170,104,64
9030POKE512,230:POKE513,6:POKE54286,192
9040LA=PEEK(A)+256*PEEK(A+1)
9045LA=LA+120
9200SETCOLOR0,3,10
9201SETCOLOR1,12,8
9202SETCOLOR2,3,0
9203SETCOLOR3,3,10
9204SETCOLOR4,3,0
9225RETURN
9250CHARTNO=CHARTNO+CHARTDEL:IFCHARTNO=3ORCHARTNO=1THENCHARTDEL=-CHARTDEL
9270RETURN
9275DELTA=DELTA*2:POKE87,0:POSITION31,0:?#6;DELTA;""
9281RETURN
9300RESTORE10100*(CHARTNO=1)+10300*(CHARTNO=2)+10200*(CHARTNO=3):A=LA
9315FORI=53248TO53255:POKEI,0:NEXTI
9320FORI=1TO80:READC$:Z=USR(ADR(MOV$),ADR(C$),A,40):A=A+40:SOUND3,189-I*2,8,8:NEXTI
9325GOSUB5000
9339RETURN
9350DIMF$(35):F$="hhhhhhh8`hhe`":RETURN
9400DIMMASK$(66):MASK$="hhhhhhhH8**1h**`":RETURN
9450DIMMOV$(27):MOV$="hhhhhhh`"
9465RETURN
9500DIMWBOAT$(223):WBOAT$(1,70)="hhhhhhhhhhhiiL6H"
9511WBOAT$(71,140)="hHieehHieehH"
9512WBOAT$(141,223)="ieeh``"
9513Z=USR(ADR(MOV$),ADR(WBOAT$),1536,223)
9516DIMZ$(11),D1$(11),D2$(11),D3$(11),D4$(11):Z$=""
9517DIMA$(704)
9518A$(1,11)="(("
9519D1$="(("
9520A$(12,22)="@"
9522A$(23,33)="`"
9524A$(34,44)="`"
9526A$(45,55)="HH"
9528A$(56,66)="`"
9530A$(67,77)="`"
9532A$(78,88)="@"
9534A$(89,99)="(("
9536A$(100,110)=""
9538A$(111,121)="-@":A$(114,114)=CHR$(34)
9540A$(122,132)=""
9542A$(133,143)="$$"
9544A$(144,154)=""
9546A$(155,165)="@-":A$(162,162)=CHR$(34)
9548A$(166,176)=""
9552A$(177,187)="("
9553D2$="("
9554A$(188,198)="H@"
9556A$(199,209)="@"
9558A$(210,220)="@"
9560A$(221,231)="00"
9562A$(232,242)="@"
9564A$(243,253)="@"
9566A$(254,264)="@H"
9568A$(265,275)="("
9570A$(276,286)="$"
9572A$(287,297)="@"
9574A$(298,308)=""
9576A$(309,319)=""
9578A$(320,330)=""
9580A$(331,341)="@"
9582A$(342,352)="$"
9586A$(353,363)="(((("
9587D3$="(((("
9588A$(364,374)=""
9590A$(375,385)="H`"
9592A$(386,396)=""
9594A$(397,407)="--":A$(401,401)=CHR$(156):A$(403,403)=CHR$(156)
9596A$(408,418)=""
9598A$(419,429)="`H"
9600A$(430,440)=""
9602A$(441,451)="(((("
9604A$(452,462)=""
9606A$(463,473)="$P@"
9608A$(474,484)="-@":A$(478,478)=CHR$(34)
9610A$(485,495)="rr"
9612A$(496,506)="@-":A$(502,502)=CHR$(34)
9614A$(507,517)="@P$"
9616A$(518,528)=""
9620A$(529,539)="8"
9621D4$="8"
9622A$(540,550)="000"
9624A$(551,561)="80p"
9626A$(562,572)="xp`":A$(566,566)=CHR$(28)
9628A$(573,583)="`|`"
9630A$(584,594)="`px-":A$(590,590)=CHR$(28)
9632A$(595,605)="p08"
9634A$(606,616)="000"
9636A$(617,627)="8"
9638A$(628,638)="000"
9640A$(639,649)="-80":A$(642,642)=CHR$(28)
9642A$(650,660)="-<p":A$(654,654)=CHR$(28)
9644A$(661,671)="|"
9646A$(672,682)="p<-":A$(678,678)=CHR$(28)
9648A$(683,693)="08-":A$(690,690)=CHR$(28)
9650A$(694,704)="000"
9654RETURN
9850DIMEWJOY$(93):EWJOY$(1,43)="hhh)`%":EWJOY$(44,44)=CHR$(29)
9861EWJOY$(45,85)="`@`H":EWJOY$(86,86)=CHR$(255)
9862EWJOY$(87,93)="`"
9865RETURN
9950DIMNSJOY$(43):NSJOY$="hhh)``"
9965RETURN
10101DATAUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU
10102DATA@UUUUUUUUUUUUUUUUUUU"
10103DATA@UUUUUUUUUUUUUUUUUUUU"
10104DATA@UUTUUUUUUUUUUUUUUUUUU"
10105DATA@UUTUU@UUUUUUUUUUUUUUUUU"
10106DATA@UUTUU@UUUUUUUUUUUUUUUUUU"
10107DATA@UTUUUU@UUUUUUUUUUUUUUUUUU"
10108DATA@UUUU@UUUUUUUUUUUUUUUUUU"
10109DATA@UUUU@UUUUUUUUUUUUUUUUUU"
10110DATA@UUUTUUUUUUUUUUUUUUUUUUU"
10111DATA@UUPUUUUUUUUUUUUUUUUUUU"
10112DATA@UUPUUUUUUUUUUUUUUUUUUUU"
10113DATA@QUUPUUUUUUUUUUUUUUUUUUUU"
10114DATA@U@PTUUUUUUUUUUUUUUUUUUUU"
10115DATA@U@UUUUUUUUUUUUUUUUUUUUU"
10116DATA@PUUUUUUUUUUUUUUUUUUUUU"
10117DATA@UUUUUUUUUUUUUUUUUUUUU"
10118DATA@UUUUUUUUUUUUUUUUUUUUU
10119DATA@UUUUUUUUUUUUUUUUUUUUUU"
10120DATA@UUUUUUUUUUUUUUUUUUUUUUU"
10121DATA@UUUUUUUUUUUUUUUUUUUUUUUU"
10122DATA@UPUUUUUUUUUUUUUUUUUUUUUUUU"
10123DATA@UUUUUUUUUUUUUUUUUUUUUUUUUUU"
10124DATA@UUUUUUUUUUUUUUUUUUUUUUUUUUU"
10125DATA@UUUUUUUUUUUUUUUUUUUUUUUUUU"
10126DATA@UUUUUUUUUUUUUUUUUUUUUUUUUU"
10127DATA@UUUUUUUUUUUUUUUUUUUUUUUUU"
10128DATA@UUUUUUUUUUUUUUUUUUUUUUUUU"
10129DATA@UUUUUUUUUUUUUUUUUUUUUUUUU"
10130DATA@UUUUUUUUUUUUUUUUUUUUUUUUU"
10131DATA@UUUUUUUUUUUUUUUUUUUUUUUUU"
10132DATA@UUUUUUUUUUUUUUUUUUUUUUUU"
10133DATA@UUUUUUUUUUUUUUUUUUUUUUUU"
10134DATA@UUUUUUUUUUUUUUUUUUUUUUUU"
10135DATA@UUUUUUUUUUUUUUUUUUUUUUUU"
10136DATA@UUUUUUUUUUUUUUUUUUUUUUUU"
10137DATA@UUUUUUUUUUUUUUUUUUUUUUUU"
10138DATA@UUUUUUUUUUUPTUUUUUUUUUUU"
10139DATA@UUUUUUUUUUU@UUUUUUUUUU"
10140DATA@UUUUUUUUUUU@UUUUUUUUUU"
10141DATA@UUUUUUUUUUUUU@UUUUUUUUUU"
10142DATA@UUUUUUUUUUUUUUU@UUUUUUUUU"
10143DATA@UUUUUUUUUUUUUUUU@UUUUUUUUU"
10144DATA@UUUUUUUUUUUUUUUUUPUUUUUUUUU"
10145DATA@UUUUUTUUUUUUUUPUUPUUUUUUUUU"
10146DATA@UUUUUUUUUUUUUUUUTUUUUUUUU"
10147DATA@UUUUUUUUUUUUUUPUUUUUUUUUU"
10148DATA@UUUUUUUUUUUUUUUU@UUUUUUUU"
10149DATA@UUUUUUUUUUUUUU@UUUUUUU"
10150DATA@UUUUUUUUUUUUPUUPUUUUUUU"
10151DATA@UUUUUUUUUUUPPUUU@UUUUUUU"
10152DATA@UUUUUUUUUUUPUUUPUUUUU"
10153DATA@UUUUUUUUUUU@UUUTUUUU"
10154DATA@UUUUUUUUUU@@UUUUUUP"
10155DATA@UUUUUUUUUUT@UUUPUUUP"
10156DATA@UUUUUUUUUU@UUUUUUP"
10157DATA@UUUUUUUUUTUUUPUUU"
10158DATA@UUUUUUUUU@UUUTUUU@"
10159DATA@UUUUUUUUTTUPTUU@"
10160DATA@UUUUUUUU@T@UUP"
10161DATA@UUUUUUUU@TTUUU"
10162DATA@UUUUUUUU@TUUUU@"
10163DATA@UUUUUUUU@TUUUUP"
10164DATA@UUUUUUUU@TPUUUP"
10165DATA@UUUUUUUUPT@P"
10166DATA@UUUUUUUU@P@P"
10167DATA@UUUUUUUTUU"
10168DATA@UUUUUUTUP"
10169DATA@UUUUUTUT"
10170DATA@UUUUUUUT"
10171DATA@UUUUPUUU"
10172DATA@U@U@U@"
10173DATA@"
10174DATA@UP"
10175DATA@UTUUUUPQ"
10176DATA@UUUUUUUUUU@U"
10177DATA@PUUUUUUUUUUU@"
10178DATA@UUUUUUUUUUUUUU"
10179DATA@UUPUUUUUUUUUUUUU@"
10180DATAUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU"
10200DATAUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU
10201DATAU@UUUUUUUUUUUUUUUUUTUTUUUUUU
10202DATAUPUUUUUUUUUUUUUUUUUTTUUUUUU
10203DATAUTUUUUUUUUUUUUUUUUUTTUUUUUU
10204DATAUTUUUUUUUUUUUUUUUUUUPUEUUUU
10205DATAUPUUUUUUUUUUUUUUUUUPPUUU
10206DATAU@UUUUUUUUUUUUUUUUUU@UUU
10207DATAUUUUUUUUUUUUUUUUUUPTUUU
10208DATATUUUUUUUUUUUUUUUUUPTUUU
10209DATAPUUUUUUUUUUUUUUUUU@UUU
10210DATA@UUUUUUUUUUUUUUUU@@UUU
10211DATA@UUUUUUUUUUUUPUUUPUU
10212DATA@UUUUUUUUUUPUUTUUU
10213DATA@UUUUUUUUUUAUPUUTUU
10214DATA@UUUUUUUUUUQUTUUTUU
10215DATA@UUUUUUUUUUTTUUUUU
10216DATA@UUUUUUUUUUUTUUU@UU
10217DATA@UUUUUUUUUUPEUT@UU
10218DATA@UUUUUUUUUUPAUTUU
10219DATA@UUUUUUUUTTUTUU
10220DATA@UUUUUUUUUUU@@UU
10221DATA@UUUUUUUUUPPPU
10222DATA@UUUUUUUUUTTUUU
10223DATA@UUUUUUUUT@EUUU
10224DATA@UUUUUUUUUPUUUU
10225DATA@UUUUUUUUUPUU@U
10226DATA@UUUUUUUUUTUUPU
10227DATA@@UUUUUUUUTUU@U
10228DATA@UUUUUUUUU@UUPU
10229DATA@UUUUUUUUPU
10230DATA@UUUUUUUUP
10231DATA@UUUUUUUUP
10232DATA@UUUUUUUP
10233DATA@UUUUUUUT
10234DATA@UUUUUUUT
10235DATA@UUUUUUT
10236DATA@UUUUUUTU
10237DATA@UUUUUUUUU
10238DATA@UUUUUUU@U
10239DATA@UUUUUUUU
10240DATA@UUUUUUU@U
10241DATA@UUUT@PAU
10242DATA@EUUUUTTUU
10243DATA@UUUUUTPTUU
10244DATA@UUPUUU
10245DATA@U@U@UUUU
10246DATA@UU
10247DATA@PUU
10248DATA@@@U
10249DATA@PPUU
10250DATA@UPUUU
10251DATA@@PUUUU
10252DATA@PUUUUU
10253DATA@TPUUUPUUUUU
10254DATA@UUUUUUUTPUUU
10255DATA@UUUUUUUUUUU
10256DATA@UUUUUUUU@UUUU
10257DATA@UUUUUUUUU@UU
10258DATA@UUUUUUUUUPTU
10259DATA@UUUUUUUUUUUU@
10260DATA@UUUUUUUUUUUUUU
10261DATA@TUUUUUUUUUUUUUU
10262DATA@UUUUUUUUUUUUUUUU
10263DATA@UUUUUUUUUUUUUUUU
10264DATA@UUUUUUUUUUUUUUUU
10265DATA@UUUUUUUUUUUUUUP
10266DATA@UUUUUUUUUUUUUP
10267DATA@UUUUUUUUUUUUT
10268DATA@UUUUUUUUUUUUQU
10269DATA@UUUUUUUUUUUU
10270DATA@UUUUUUUUUUTU
10271DATA@UUUUUUUUUUUU
10272DATA@UUUUUUUUUUUU
10273DATA@UUUUUUUUUUUT
10274DATA@UUUUUUUUUUUUP
10275DATA@UUUUUUUUUUUUP
10276DATA@UUUUUUUUUUUU@
10277DATA@UUUUUUUUUUUU
10278DATA@UUUUUUUUUUUU@
10279DATAUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU
10300DATAUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU
10301DATA@UUUPUUUUTUT
10302DATA@UUU@UUUUUP
10303DATA@UUU@UUUUUPUP
10304DATA@UUUUPUUUUU@
10305DATA@UUUQPUUU@UUUU
10306DATA@UUUTUUUUUUUT
10307DATA@UUUUUTUUUUUUU@UUU
10308DATAPUUUUUUUUUUUUTUUUUUUPUUUU@
10309DATAUUUUUUUUUUUUUUUUUUUUUUAUUU@UP
10310DATAUUUUUUUUUUUUUUPUUUUUUUU@UTU@EU@UA
10311DATAUUUUUUUUUUUUUTUUUUUUUUU@UUTU
10312DATAUUUUUUUUUUUUUTUUUUUUUU@UPUPUU@
10313DATAUUUUUUUUUUUUU@EUUUUUUPUPUUUU
10314DATAUUUUUUUUUUUU@U@UUUUUTPUUU
10315DATAUUUUUUUUUUT@UUUUUPPPUUU
10316DATAUUUUUUUUUTPUUUUPUP@UUUU
10317DATAUUUUUUUUT@@UUUUUEUUPUUUUU
10318DATAUUUUUUUUUUUUUUUU@TUUUUUU
10319DATAUUUUUUUUUUUUUUUUPUUUUUU
10320DATAUUUUUUUUQUUUEUUUUUUUU
10321DATAUUUUUUUU@UUUQUUPUUUUUU
10322DATAUUUUUUUT@UUUUUP@UUUUUU
10323DATAUUUUUUUPUUUUUUUUUUU
10324DATAUUUUUUUP@UUUUUUAUUUU
10325DATAUUUUUUPUUUUUT@UUU
10326DATAUUUUUUTUUUTPUU
10327DATAUUUUUUTPUUU@T@UU
10328DATAUUUUUUTUU@UUUUUUU
10329DATAUUUUUUTPUUUUUUU
10330DATAUUUUUUPPUUUUAUU
10331DATAAUUUUUAPUUUUUPUU
10332DATA@UUUPTUUUUUPUU
10333DATA@UU@TUUUUUTU
10334DATA@P@PUUUUUUA
10335DATA@@@UUUUUU
10336DATA@@@PUUUUUU
10337DATA@@UUUUUUUUT
10338DATA@@TUUPUUUP
10339DATA@PTUUTUUU@
10340DATA@P@UUU@UUU@
10341DATA@Q@UUUTUUU
10342DATA@U@UUUU@UUU
10343DATA@UTUUUUTUUU
10344DATA@UUUPUUU
10345DATA@P@UUUPUUU
10346DATA@UPPUUU@UUUA
10347DATA@UUPUUU@UUTA
10348DATA@UUUTUUUUUPA
10349DATA@UUUUUUPUUPA
10350DATA@UUUUUU@U@
10351DATA@UUUU@UUT
10352DATA@UUUU@UUP
10353DATA@UU@UT
10354DATA@UUT
10355DATA@U
10356DATA@@P
10357DATA@@
10358DATA@U@
10359DATA@PU
10360DATA@U
10361DATA@
10362DATA@
10363DATA@
10364DATA@
10365DATA@
10366DATA@
10367DATA@
10368DATA@
10369DATA@TP
10370DATA@UUUUUUU@PU
10371DATAUUUUUUUUUUPPUU
10372DATAUUUUUUUUUUUU@UPUUUUUUU
10373DATAUUUUUUUUUUUU@UTUUUUUUUU
10374DATAUUUUUUUUUUUU@UTUUUUUUUUU
10375DATAUUUUUUUUUUUPUUUUUUUTUUUUUUUUU
10376DATAUUUUUUUUUUUPUUUUUUUUUUTUUUUUUUUUU
10377DATAUUUUUUUUUUUUUUUUUUUUUUUUUUUPUUUUUUUUUUU
10378DATAUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU
10379DATAUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU
20000REMOBJECT:SCORETHEMOSTPOINTSBYPICKINGUPTREASUREINTHEMEDITERRANEANSEA,SANFRANCISCOBAY
20010REMANDTHROUGHOUTTHEWORLD
20020REM
20030REMSCORING:THEVALUEOFTHETREASURESTARTSAT100PTSEACH.REACHINGTHEARROW(WHICHAPPEARS
20040REMAFTERYOUHAVEPICKEDUPTHREECASES)ISWORTH500PTSANDTAKESYOUTOANEWPARTOFTHEWORLD.
20050REMEACHTIMEYOUSWITCHTOANEWPARTOFTHEWORLD,THEVALUEOFTHETREASUREDOUBLES.
20060REMANYTIMESPENTAGROUNDSUB-TRACTSFROMYOURSCORE.
20070REMPIRATES:FOURPIRATESHIPSAREAFTERYOU.IFYOUARECAUGHTBYANYOFTHEPIRATESHIPSTHEGAMEIS
20080REMOVER.
20090REMJOYSTICK:FORWARD=FORWARDTHRUST.BACKWARD=REVERSETHRUST.RIGHT=CLOCKWISE.LEFT=CTRCLOCKWISE.	

• Download link 1

• Download link 1
• Download link 2
• Download link 3