Atari 8-bit Source code

0REM
10REM**COPYRIGHT1981-HOUSTONATARICOMPUTERENTHUSIASTS
50REM**WRITTENBYWAYNECLOUDANDWILLIAMFRANK
100N0=0:N1=1:N2=N1+N1:N3=N2+N1:N4=N3+N1:N5=N4+N1:N6=N5+N1:N7=N6+N1:N8=N7+N1:N9=N8+N1:N450=450:N460=460
110DIMP(2,N7),F(N1,N9),N$(N9),D$(40),C$(N1),M$(N8),S$(30),T1$(27),T2$(22),XPY(160)
111S$="TURKEY":GRAPHICS0:POSITION3,6:?"YOUHAVEBEENSELECTEDFORAMISSION"
112?"TOJUPITER'SMOONS.IFYOUFEELBRAVEENTERYOURNAMEANDHIT":INPUTN$
113?:?"PLEASEMAKESUREYOUBRINGYOURJOYSTICK";N$;"."
115FORI=1TO999:NEXTI
120LVL=N3:POKE82,N0:GRAPHICSN0:?"PUSHTRIGGERAFTERSELECTINGMOON"
130FORI=N0TON4:READM$,GR,TRN,COL,OFL:P(N0,I)=GR:P(N1,I)=TRN:P(N2,I)=COL:F(N0,I)=OFL:?"",M$:NEXTI
140GOSUB3400:POKE764,12:INPUTM$:GR=P(N0,I):TRN=P(N1,I):COL=P(N2,I):OFL=F(N0,I)
280GOSUB3200:FORI=N0TON2:P(I,N0)=N1:P(I,N1)=5:P(I,N2)=N0:P(I,N3)=N6:P(I,N4)=N0:P(I,N5)=N0:P(I,N6)=N5
290P(I,N7)=N5:NEXTI:FORI=N0TON1:F(I,N8)=N0:F(I,N9)=N0:NEXTI:FL=OFL*LVL
292FORI=N0TON2:P(I,N0)=N1:P(I,N1)=5:P(I,N2)=N0:P(I,N3)=N6:P(I,N4)=N0:P(I,N5)=N0:P(I,N6)=N5:P(I,N7)=N5:NEXTI
295PX=N0:PY=N0:VX=40:VY=20:LCYC=N0:CYC=N1:HI=N0
300I=89+PEEK(742)*256+PEEK(741):POKEI,N7:POKEI+N1,N7:POKEI+2,N7
310?"pleasewait"
315K=RND(N0)*20+60:COLORN3:FORI=N0TO19:L=RND(N0)*TRN*N9/N4-TRN:IFL>TRNTHENL=N0
318FORJ=N0TON7:IFK>79-GRTHENL=-TRN
320K=K+L:M=I*N8+J:XPY(M+1)=K:PLOTM,K:DRAWTOM,79:IFK<60THENL=TRN
330NEXTJ:NEXTI
350FORI=N0TON1:F(I,N8)=N0:F(I,N9)=N0:NEXTI:?""
355TYM=N1:POKE20,N0:SETCOLORN2,COL,N3
356I=PEEK(20):IFI<>TYMTHEN356
360TYM=I+40:IFTYM>255THENTYM=TYM-256
361ALT=INT((XPY(PX+1)-PY)*20)-130:IFALT<10THENALT=0
362VY=VY+GR:PX=PX+VX/20:PY=PY+VY/20:?"";VX,"";VY;"";ALT;"";FL,"":IFHITHEN6000
363COLORN0:IFF(LCYC,N8)THENPLOTF(LCYC,N0),F(LCYC,N4):DRAWTOF(LCYC,N1),F(LCYC,N5)
364IFF(LCYC,N9)THENPLOTF(LCYC,N2),F(LCYC,N6):DRAWTOF(LCYC,N3),F(LCYC,N7)
365PLOTP(LCYC,N0),P(LCYC,N4):DRAWTOP(LCYC,N3),P(LCYC,N7):DRAWTOP(LCYC,N1),P(LCYC,N5)
366DRAWTOP(LCYC,N0),P(LCYC,N4):DRAWTOP(LCYC,N2),P(LCYC,N6):DRAWTOP(LCYC,N1),P(LCYC,N5)
367TRAP5000:LOCATEP(CYC,N2),P(CYC,N6),I:LOCATEP(CYC,N3),P(CYC,N7),J
368COLORN1:PLOTP(CYC,N0),P(CYC,N4):DRAWTOP(CYC,N3),P(CYC,N7):DRAWTOP(CYC,N1),P(CYC,N5)
369DRAWTOP(CYC,N0),P(CYC,N4):DRAWTOP(CYC,N2),P(CYC,N6):DRAWTOP(CYC,N1),P(CYC,N5)
370COLORN2:IFF(CYC,N8)THENPLOTF(CYC,N0),F(CYC,N4):DRAWTOF(CYC,N1),F(CYC,N5)
371IFF(CYC,N9)THENPLOTF(CYC,N2),F(CYC,N6):DRAWTOF(CYC,N3),F(CYC,N7)
372IFIORJTHEN500
375LOCATEP(CYC,N2),P(CYC,N6)+N1,I:LOCATEP(CYC,N3),P(CYC,N7)+N1,J:IFIANDJTHEN900
380LCYC=CYC:CYC=N1-CYC:FORI=N0TON3:P(CYC,I)=PX+P(N2,I):J=I+N4:P(CYC,J)=PY+P(N2,J):NEXTI
385F(CYC,N8)=N0:F(CYC,N9)=N0:IFFL<N1THENFL=N0:GOTON460
390ONSTICK(N0)-N4GOTO400,N460,410,N460,420,N460,430,N460,440:GOTON460
400I=PX+N3:F(CYC,N0)=I:F(CYC,N4)=PY+N4:F(CYC,N1)=I:F(CYC,N5)=PY+N6:F(CYC,N8)=-N2
405I=PY+N2:F(CYC,N2)=PX+N6:F(CYC,N6)=I:F(CYC,N3)=PX+N8:F(CYC,N7)=I:F(CYC,N9)=-N2:GOTON450
410I=PY+N2:F(CYC,N2)=PX+N6:F(CYC,N6)=I:F(CYC,N3)=PX+N8:F(CYC,N7)=I:F(CYC,N9)=-N3:GOTON450
420I=PX+N3:F(CYC,N0)=I:F(CYC,N4)=PY+N4:F(CYC,N1)=I:F(CYC,N5)=PY+N6:F(CYC,N8)=-N2
425I=PY+N2:F(CYC,N2)=PX:F(CYC,N6)=I:F(CYC,N3)=PX-N2:F(CYC,N7)=I:F(CYC,N9)=N2:GOTON450
430I=PY+N2:F(CYC,N2)=PX:F(CYC,N6)=I:F(CYC,N3)=PX-N2:F(CYC,N7)=I:F(CYC,N9)=N3:GOTON450
440I=PX+N3:F(CYC,N0)=I:F(CYC,N4)=PY+N4:F(CYC,N1)=I:F(CYC,N5)=PY+N6:F(CYC,N8)=-N3
450I=F(LCYC,N9)+F(CYC,N9):J=F(LCYC,N8)+F(CYC,N8):VX=VX+I:VY=VY+J:FL=FL-ABS(I)-ABS(J)
455SOUNDN0,35,N0,N7:SOUNDN1,100,N0,N7:GOTO360
460SOUNDN0,N0,N0,N0:SOUNDN1,N0,N0,N0:GOTO360
500GOSUB5200
505SOUNDN0,40,N0,14:SOUNDN1,N0,N0,N0:COLORN2:PLOTP(CYC,N2),P(CYC,N6):DRAWTOP(LCYC,N1),P(LCYC,N5)
510DRAWTOP(CYC,N3),P(CYC,N7):DRAWTOP(CYC,N2),P(CYC,N6):DRAWTOP(LCYC,N0),P(LCYC,N4)
520DRAWTOP(CYC,N3),P(CYC,N7):FORI=N0TO60:NEXTI:FORI=N9TON0STEP-N1:SOUNDN0,200,N0,I:SETCOLORN1,I,I
530FORJ=N0TO60:NEXTJ:NEXTI:GOSUB5300
560GOSUB3600:D$="IMPACTED":GOSUB3500:GOSUB3560:GOSUB3620
570GOSUB3580:D$="":D$(40)="":D$(N2)=D$:GOSUB3500:GOTO280
900GOSUB5200:IFVX>N9THEN505
905SETCOLORN1,N0,N0:SOUNDN0,N0,N0,N0:SOUNDN1,N0,N0,N0
910IFVX<N9THEN930
920GOSUB5300:GOSUB3600:D$="LIFESUPPORTDESTROYEDDUETOLANDING":GOSUB3500:GOSUB3570:GOSUB3620:GOTO570
928FORI=1TO750:NEXTI
930FORI=1TO750:NEXTI
935GRAPHICS2+16:POSITION5,2:?#6;"YOUMADE":?#6;"IT";N$
940FORI=1TO1000:NEXTI:GOTO120
3200POKE77,N0:GRAPHICSN7:SETCOLORN2,N0,N0:SETCOLORN0,N7,N6:SETCOLORN1,15,10:POKE752,N1:RETURN
3300SOUNDN3,40,10,N9:GOSUB3310:SOUNDN3,N0,N0,N0
3310FORJ=N0TO30:NEXTJ:RETURN
3400POSITION13,N3:?"";:I=N0
3410IFSTICK(N0)=13ANDI<N4THEN?"";:GOSUB3300:I=I+N1
3420IFSTICK(N0)=14ANDI>N0THEN?"";:GOSUB3300:I=I-N1
3430IFSTRIG(N0)THEN3410
3440RETURN
3500FORI=N1TOLEN(D$):C$=D$(I):?"";C$;"";:IFTYM>255THENTYM=TYM-256
3510IFPEEK(20)<>TYMTHEN3510
3520TYM=TYM+10:NEXTI:RETURN
3530?"";:D$="...MISSIONCONTROLTO":TYM=N4:POKE20,N0:GOTO3500
3540D$="ALLSTATIONS":GOSUB3500
3550D$="...TELEMETRYINDICATES":GOTO3500
3560D$=M$:GOSUB3500
3570D$="AT":GOSUB3500:D$=STR$(VX):GOSUB3500:D$="M/S...":GOTO3500
3580D$="...ENDTRANSMISSION":GOTO3500
3590D$=N$:GOTO3500
3600GOSUB3530:GOSUB3540
3610D$=S$:GOTO3500
3620D$="THEREWERENOSURVIVORS...":GOSUB3500:D$=T1$:GOSUB3500:D$=N$:GOSUB3500:D$=T2$:GOTO3500
5000IFPY<N0THENHI=N1:GOTO385
5010IFPX<N0THENPX=PX+150:GOTO5040
5020IFPX<150THEN385
5030PX=PX-150
5040FORI=N0TON3:P(CYC,I)=PX+P(N2,I):J=I+N4:P(CYC,J)=PY+P(N2,J):NEXTI
5050GOSUB3200:LCYC=CYC:GOTO300
5200VX=INT(SQR(VX*VX+VY*VY)):RESTORE:RETURN
5300I=20
5310READT1$:IFT1$<>"2"THEN5310
5320TRAP5330:READT1$,T2$:IFVX>ITHENI=I+20:GOTO5320
5330RETURN
6000IFPY<N0THEN385
6010CYC=LCYC:HI=N0:GOTO380
9000REMNAME,grav,terr,col,fuel
9010DATAAMALTHEA,0,2,3,999
9020DATAIO,2,3,3,999
9030DATAEUROPA,1,0,3,999
9040DATAGANYMEDE,5,2,3,999
9050DATACALLISTO,3,2,3,999
9500DATA2
9510DATACONDOLENCESTO,'SFAMILY
9520DATANEWCRATERHASBEENNAMED",'SFOLLY"
9530DATAMEMORIALSERVICESFOR,WILLBEHELDAT23:13	

• Download link 1

• Download link 1
• Download link 2