Atari 8-bit Source code

0REMByArtVCestaroIII10/13/81
1REMREV1.0TAKENFROMANALOGCOMPENDIUMVOL.1/'84&ENHANCED
3GRAPHICS7:CLR:POKE752,1:POKE712,197:POKE710,24:POKE708,99:POKE709,195
6GOSUB3930
12TIME=59:TIM=0:SCORE1=0:SCORE2=0:COLOR1
13Y=INT(RND(0)*35+10):D=1:FORX=0TO158STEP2:Y1=INT(15*RND(0)+Y-5*D):PLOTX,47:DRAWTOX,Y:PLOTX+1,47
14DRAWTOX+1,(Y+Y1)/2:Y=Y1:IFY>40THENY=Y-10:D=2
15IFY<20THENY=Y+10:D=1
16NEXTX
17GOSUB3900:GOSUB3910
30GOSUB7000
75RET=0:GOSUB10000:GOSUB1000:GOSUB1100
79FORDEL=1TO50:SOUND0,80,12,12:SOUND1,81,12,14:NEXTDEL:SOUND0,0,0,0:SOUND1,0,0,0
80POKE752,1:POKE656,0:POKE657,3:?"":POKE656,0:POKE657,28:?""
81POKE656,0:POKE657,12:?"|||":POKE656,0:POKE657,27:?"|||":POKE656,0:POKE657,16:?""
82GOSUB3800
100TT=TT+0.2:IFTT>1THENTT=0:TIME=TIME-1:IFTIME<1THENTIME=59:TIM=TIM-1
104IFSTICK(0)=7THENX=X+2:IFDR1=1THENGOSUB1000
105IFSTRIG(0)=0THENRT=0:GOSUB3500
110IFSTICK(1)=7THENX2=X2+2:IFDR2=2THENGOSUB1110
111IFX<55THENX=55
112IFX>195THENX=195
115ONDR1GOSUB300,305
120IFSTICK(1)=11THENX2=X2-2:IFDR2=1THENGOSUB1100
130IFSTICK(0)=11THENX=X-2:IFDR1=2THENGOSUB1010
132IFSTRIG(1)=0THENRT1=0:GOSUB3600
133IFX2<55THENX2=55
134IFX2>195THENX2=195
135ONDR2GOSUB310,315
169IFTIM<1ANDTIME<2THENPOKE656,2:POKE657,18:?"0:00":GOTO8000
172IFTIME<10THENPOKE656,2:POKE657,18:?TIM;":0";TIME:GOTO180
175POKE656,2:POKE657,18:?TIM;":";TIME;""
180POKE77,0
200GOTO100
300POKE53248,X:POKE53249,X-8:RETURN
305POKE53249,X-8:POKE53248,X:RETURN
310POKE53250,X2-8:POKE53251,X2:RETURN
315POKE53251,X2:POKE53250,X2-8:RETURN
1000DR1=2:FORG=1TO4:POKEDB1+G,0:NEXTG:Y=65:Y1=69:DF1=Y+J:DB1=Y1+J1:FORG=1TO18:POKEDB1+G,DINB1(G)
1005POKEDF1+G,DINF1(G):NEXTG:FORG=19TO22:POKEDF1+G,DINF1(G):NEXTG:RETURN
1010DR1=1:FORG=1TO4:POKEDF1+G,0:NEXTG:Y=69:Y1=65:DF1=Y+J:DB1=Y1+J1:FORG=1TO18:POKEDF1+G,DINB2(G)
1015POKEDB1+G,DINF2(G):NEXTG:FORG=19TO22:POKEDB1+G,DINF2(G):NEXTG:RETURN
1100DR2=2:FORG=1TO4:POKEDB2+G,0:NEXTG:Y2=65:Y3=69:DF2=Y2+J2:DB2=Y3+J3:FORG=1TO18:POKEDF2+G,DINF2(G)
1105POKEDB2+G,DINB2(G):NEXTG:FORG=19TO22:POKEDF2+G,DINF2(G):NEXTG:RETURN
1110DR2=1:FORG=1TO4:POKEDF2+G,0:NEXTG:Y2=69:Y3=65:DF2=Y2+J2:DB2=Y3+J3:FORG=1TO18:POKEDF2+G,DINB1(G)
1115POKEDB2+G,DINF1(G):NEXTG:FORG=19TO22:POKEDB2+G,DINF1(G):NEXTG:RETURN
3500ONDR1GOTO3510,3520
3510BB=DB1:GG=3590:GOTO3550
3520BB=DF1:GG=3580
3550GOSUBGG
3555FORG=50TO100:SOUND0,G,10,15:SOUND0,100-(G-50),10,15:NEXTG:SOUND0,0,0,0
3560ONDR1GOTO3563,3565
3563POKEBB,0:FORG=1TO6:POKEBB+G,DINF2(G):NEXTG:GOTO3591
3565POKEBB,0:FORG=1TO6:POKEBB+G,DINF1(G):NEXTG:GOTO3591
3570RETURN
3580POKEBB+6,224:FORG=0TO5:POKEBB+G,DHR(G+1):NEXTG:RETURN
3590POKEBB+6,7:FORG=0TO5:POKEBB+G,DHL(G+1):NEXTG:RETURN
3591IFRT=1THENRETURN
3592IFDR1=2ANDDR2=1ANDPEEK(53260)=12THENGOSUB4500
3593IFDR1=1ANDDR2=2ANDPEEK(53261)=12THENGOSUB4500
3595POKE53278,0:RETURN
3600ONDR2GOTO3610,3620
3610BB=DB2:GG=3580:GOTO3650
3620BB=DF2:GG=3590
3650GOSUBGG
3655FORG=50TO100:SOUND0,G,10,15:SOUND0,100-(G-50),12,10:NEXTG:SOUND0,0,0,0
3660ONDR2GOTO3663,3665
3663POKEBB,0:FORG=1TO6:POKEBB+G,DINF1(G):NEXTG:GOTO3700
3665POKEBB,0:FORG=1TO6:POKEBB+G,DINF2(G):NEXTG
3700IFRT1=1THENRETURN
3701IFDR2=2ANDDR1=1ANDPEEK(53262)=3THENGOSUB4000
3705IFDR2=1ANDDR1=2ANDPEEK(53263)=3THENGOSUB4000
3710POKE53278,0:RETURN
3800POKE656,2:POKE657,6:?SCORE1;"":POKE656,2:POKE657,31:?SCORE2;"":RETURN
3900COLOR2:FORJ=1TO5:H=INT(45+RND(0)*10):G=RND(0)*145+10:GOSUB3903:NEXTJ:RETURN
3901DRAWTOG+2,H+5:DRAWTOG+2,H+3:RETURN
3903PLOTG,H:DRAWTOG,H+9:PLOTG,H+4:DRAWTOG-2,H+4:DRAWTOG-2,H+1:PLOTG,H+5
3905DRAWTOG+2,H+5:DRAWTOG+2,H+3:RETURN
3910RETURN
3911DRAWTOG+5,H+5:DRAWTOG+3,H+9:RETURN
3913PLOTG,H:DRAWTOG-5,H+5:DRAWTOG+3,H+9:DRAWTOG,H:DRAWTOG+4,H+1
3915DRAWTOG+5,H+5:DRAWTOG+3,H+9:RETURN
3930COLOR3:FORG=79TO47STEP-1:PLOT0,G:DRAWTO159,G:NEXTG:RETURN
4000BB1=DF1:BB2=DB1:GOSUB4600
4003Y=75:Y1=74:DF1=Y+J:DB1=Y1+J1
4005ONDR1GOSUB4010,4020
4006RT1=1:GOSUB3600:GOTO4810
4010FORG=1TO9:POKEDB1+G,DLF(G):POKEDF1+G,DLB(G):SOUND0,120,8,15-G:NEXTG
4011POKEDF1+10,DLB(10):POKEDF1+11,DLB(11):FORG=1TO6:SOUND0,120,8,15-G:FORHH=1TO10:NEXTHH:NEXTG:RETURN
4020FORG=1TO9:POKEDB1+G,DRB(G):POKEDF1+G,DRF(G):SOUND0,120,8,15-G:NEXTG
4021POKEDB1+10,DRB(10):POKEDB1+11,DRB(11):FORG=1TO6:SOUND0,120,8,15-G:FORHH=1TO10:NEXTHH:NEXTG:RETURN
4500BB1=DF2:BB2=DB2:GOSUB4600
4503Y2=74:Y3=75:DF2=Y2+J2:DB2=Y3+J3
4505ONDR2GOSUB4520,4530
4510RT=1:GOSUB3500:GOTO4800
4520FORG=1TO9:POKEDF2+G,DRB(G):POKEDB2+G,DRF(G):SOUND0,110,8,15-G:NEXTG
4521POKEDF2+10,DRB(10):POKEDF2+11,DRB(11):FORG=1TO6:SOUND0,110,8,15-G:FORHH=1TO10:NEXTHH:NEXTG:RETURN
4530FORG=1TO9:POKEDB2+G,DLB(G):POKEDF2+G,DLF(G):SOUND0,110,8,15-G:NEXTG
4531POKEDB2+10,DLB(10):POKEDB2+11,DLB(11):FORG=1TO6:SOUND0,110,8,15-G:FORHH=1TO10:NEXTHH:NEXTG:RETURN
4600FORG=1TO22:POKEBB1+G,0:POKEBB2+G,0:NEXTG:RETURN
4800X=INT(RND(0)*145+50):ONDR1GOSUB300,305:GOSUB1100:SCORE1=SCORE1+10:GOSUB3800:RETURN
4810X2=INT(RND(0)*145+50):ONDR2GOSUB310,315:GOSUB1000:SCORE2=SCORE2+10:GOSUB3800:RETURN
5000COLOR1:PLOT26,5:DRAWTO26,15:PLOT26,5:DRAWTO31,6:DRAWTO31,14:DRAWTO26,15:GOTO5990
5100PLOT36,5:DRAWTO36,15:PLOT35,5:PLOT37,5:PLOT35,15:PLOT37,15:GOTO5990
5200PLOT42,15:DRAWTO42,5:DRAWTO46,15:DRAWTO46,5:GOTO5990
5300PLOT50,5:DRAWTO50,15:DRAWTO55,15:DRAWTO55,5:DRAWTO50,5:GOTO5990
5400PLOT66,5:DRAWTO66,15:DRAWTO71,15:DRAWTO71,5:DRAWTO66,5:PLOT66,10:DRAWTO71,10:GOTO5990
5500PLOT76,5:DRAWTO81,5:DRAWTO81,15:PLOT76,5:DRAWTO76,15:PLOT76,10:DRAWTO81,10:GOTO5990
5600PLOT85,5:DRAWTO91,5:PLOT88,5:DRAWTO88,15:GOTO5990
5700PLOT95,5:DRAWTO101,5:PLOT98,5:DRAWTO98,15:GOTO5990
5800PLOT106,5:DRAWTO106,15:DRAWTO111,15:GOTO5990
5900PLOT116,5:DRAWTO116,15:DRAWTO121,15:PLOT116,10:DRAWTO121,10:PLOT116,5:DRAWTO121,5:GOTO5990
5990RETURN
7000DD=17:DIMTF1(DD),TB1(DD),TF2(DD),TB2(DD)
7005FORG=1TODD:TF1(G)=0:TF2(G)=0:TB1(G)=0:TB2(G)=0:NEXTG
7010FORG=1TO14:READC:TF1(G)=C:NEXTG:FORG=1TO13:READC:TB1(G)=C:NEXTG
7020FORG=1TO13:READC:TB2(G)=C:NEXTG:FORG=1TO14:READC:TF2(G)=C:NEXTG
7025RET=0:GOSUB10000
7030POKE704,49:POKE705,49:FORG=5TO19:POKEDF1+G,TF1(G-4):NEXTG:FORG=1TO13:POKEDB1+G,TB1(G):NEXTG
7040FORX=220TO35STEP-1:POKE53248,X-7:POKE53249,X:SOUND0,X,10,6:FORH=1TO3:NEXTH:NEXTX
7045FORG=1TO18:POKEDF1+G,0:POKEDB1+G,0:NEXTG
7051POKE704,49:POKE705,49:FORG=1TO13:POKEDB1+G,TB2(G):NEXTG:FORG=4TO18:POKEDF1+G,TF2(G-3):NEXTG
7060FORX=30TO210:POKE53249,X:POKE53248,X+7:SOUND0,X,10,6
7062IFX=75THENGOSUB5000
7063IFX=85THENGOSUB5100
7064IFX=91THENGOSUB5200
7065IFX=103THENGOSUB5300
7066IFX=119THENGOSUB5400
7067IFX=130THENGOSUB5500
7068IFX=138THENGOSUB5600
7069IFX=144THENGOSUB5700
7070IFX=155THENGOSUB5800
7071IFX=165THENGOSUB5900
7075FORH=1TO4:NEXTH:NEXTX
7080?"":SOUND0,90,12,11:SOUND1,91,12,12:GOSUB10040
7085COLOR0:FORG=5TO10:PLOT25,G:DRAWTO125,G:PLOT25,15-(G-5):DRAWTO125,15-(G-5):NEXTG
7086SOUND0,80,12,12:SOUND1,81,12,14
7090?""
7091FORG=1TO20:GOSUB7098:NEXTG
7092?"PRESSSTART"
7093FORG=1TO20:GOSUB7098:NEXTG:GOTO7090
7098IFPEEK(53279)=6THENPOP:GOTO7100
7099RETURN
7100?""
7101FORG=1TO2:FORH=15TO0STEP-1:SOUND0,120,8,H
7105SOUND1,122,8,H:FORJ=1TO8:NEXTJ:NEXTH:FORF=1TO60:NEXTF
7107FORH=15TO0STEP-1:SOUND0,110,8,H:SOUND1,112,8,H:FORJ=1TO8:NEXTJ:NEXTH:FORF=1TO60:NEXTF:NEXTG
7110?"":RETURN
8000FORG=1TO10:POKE656,0:POKE657,15:?"GAMEOVER":SOUND0,150,10,14:FORZ=1TO15:NEXTZ
8005POKE656,0:POKE657,15:?"":SOUND0,100,10,14:FORH=1TO15:NEXTH:IFG<10THENNEXTG
8009SOUND0,0,0,0:POKE656,0:POKE657,13:?""
8010IFSCORE1>SCORE2THEN8020
8013IFSCORE2>SCORE1THEN8030
8015IFSCORE1=SCORE2THEN8040
8020POKE656,0:POKE657,3:?"SCORE":FORH=1TO15:GOSUB8100:NEXTH
8021POKE656,0:POKE657,3:?"":FORH=1TO15:GOSUB8100:NEXTH:GOTO8020
8030POKE656,0:POKE657,28:?"SCORE":FORH=1TO15:GOSUB8100:NEXTH
8035POKE656,0:POKE657,28:?"":FORH=1TO15:GOSUB8100:NEXTH:GOTO8030
8040POKE656,0:POKE657,3:?"SCORE":POKE656,0:POKE657,28:?"SCORE":FORH=1TO15:GOSUB8100
8041NEXTH
8045POKE656,0:POKE657,3:?"":POKE656,0:POKE657,28:?"":FORH=1TO15:GOSUB8100
8046NEXTH:GOTO8040
8100IFPEEK(53279)=6THENPOP:GOTO8200
8101RETURN
8200SCORE1=0:SCORE2=0:TIM=0:TIME=59
8210FORG=250TO0STEP-3:SOUND0,G+5,10,15:SOUND1,G+4,10,14:SOUND2,G+3,10,13
8215SOUND3,G+2,10,12:POKE712,RND(0)*255:NEXTG:FORG=0TO3:SOUNDG,0,0,0:POKE53248+G,35:NEXTG
8217POKE712,197:GOSUB3930:GOSUB3900:GOSUB3910
8220POKE656,0:POKE657,13:?"":POKE712,197:GOTO75
10000POKE559,46:I=PEEK(106)-24:POKE54279,I:POKE53277,3:POKE623,1
10010J=I*256+512:J1=I*256+640:J2=I*256+768:J3=I*256+896
10015FORG=JTOJ3+128:POKEG,0:NEXTG
10020POKE704,165:POKE705,165:POKE706,220:POKE707,220
10025X=100:Y=17:Y1=16
10030DF1=Y+J:DB1=Y1+J1:DF2=Y+J2:DB2=Y+J3
10035IFRET=0THENRETURN
10040DD=22:DIMDINF1(DD),DINF2(DD),DINB1(DD),DINB2(DD),DHR(6),DHL(6)
10043CC=11:DIMDRF(CC),DRB(CC),DLF(CC),DLB(CC)
10045FORG=1TODD:DINF1(G)=0:DINF2(G)=0:DINB1(G)=0:DINB2(G)=0:NEXTG
10050RESTORE12500:FORG=1TO18:READC:DINB1(G)=C:NEXTG:FORG=1TO22:READC:DINF1(G)=C:NEXTG
10060RESTORE12600:FORG=1TO22:READC:DINF2(G)=C:NEXTG:FORG=1TO18:READC:DINB2(G)=C:NEXTG
10065RESTORE12700:FORG=1TO6:READC:DHR(G)=C:NEXTG:FORG=1TO6:READC:DHL(G)=C:NEXTG
10066RESTORE12800:FORG=1TO9:READC:DRF(G)=C:NEXTG:FORG=1TOCC:READC:DRB(G)=C:NEXTG
10068RESTORE12900:FORG=1TO9:READC:DLF(G)=C:NEXTG:FORG=1TOCC:READC:DLB(G)=C:NEXTG
10070X=100:X1=92:X2=150:X3=158:Y=64:Y1=68:Y2=64:Y3=68
10071DF1=Y+J:DB1=Y1+J1:DF2=Y2+J2:DB2=Y3+J3
11000RETURN
12000DATA1,6,28,47,63,87,175,31,28,56,56,24,12,4
12005DATA3,6,28,24,56,48,112,112,243,252,248,249,158
12010DATA192,96,56,24,28,12,14,14,207,63,31,153,112
12020DATA128,96,56,244,252,234,245,248,56,28,28,24,48,32
12500DATA1,1,1,7,7,3,7,15,7,143,199,143,198,158,188,240,224,64
12510DATA28,52,62,122,245,242,224,251,245,240,240,224,192,128,192,224,240,112,48,96,96,248
12600DATA56,44,124,94,175,79,7,223,175,15,15,7,3,1,3,7,15,14,12,6,6,31
12610DATA128,128,128,224,224,192,224,240,224,241,227,241,99,121,61,15,7,2
12700DATA76,104,208,254,240,224,50,22,11,127,15,7
12800DATA12,15,229,55,255,254,252,248,112,128,128,240,252,31,15,79,39,19,30,12
12900DATA48,240,160,231,252,127,63,31,14,1,1,143,63,248,240,242,228,200,120,48	

• Download link 1

• Download link 1