Atari 8-bit Source code

1REM**ACENEWSLETTER**
2REM**3662VINEMAPLE**
3REM**EUGENE,OR**
4REM**97405**
5REM**$10YR**
6REM**Nov1982**
7REM********************
10REM*******************
20REM**VULTURESIII**
30REM**STANOCKERS8/2**
40REM*******************
90GRAPHICS18:POSITION5,3:?#6;"vultures":POSITION8,5:?#6;"III"
100PMHI=1547:IMAGE0=1552:IMAGE1=1553:IMAGE2=1554:IMAGE3=1555:HPOS3=1559:VPOS3=1567
110FLAG0=1568:FLAG1=1569:FLAG2=1570
112COL0=52:COL1=24:COL2=32:COL3=244:BKCOL=144
120VPOS0=1564:VPOS1=1565:VPOS2=1566:IMGPT=1584
130HPOS0=1556:HPOS1=1557:HPOS2=1558:RAMTOP=106:PMBASE=54279:SDMCTL=559:GRACTL=53277
140PCOLR0=704:PCOLR1=705:PCOLR2=706:PCOLR3=707:POKE1577,10
150DIMB$(20),BB$(20),V$(2):V$(1)=CHR$(136):V$(2)=CHR$(138):BB$(1)=CHR$(0):BB$(20)=CHR$(0):BB$(2)=BB$
151DIMCL$(38):CL$(1)="":CL$(38)="":CL$(2)=CL$
152DIMX$(38),X1$(38):X$(1)="X":X$(38)="X":X$(2)=X$:X1$(1)="x":X1$(38)="x":X1$(2)=X1$
153DIMLTNG$(46):RESTORE154:FORI=1TO46:READA:LTNG$(I,I)=CHR$(A):NEXTI
154DATA124,29,41,29,30,124,29,30,30,40,29,30,30,40,29,30,124,29,40,29,124,29,41,29,41,29,41,29,30,124,29
155DATA30,30,41,29,30,30,41,29,30,30,41,29,30,30,124
156DIMERAS$(46):RESTORE157:FORI=1TO46:READA:ERAS$(I,I)=CHR$(A):NEXTI
157DATA32,29,32,29,30,32,29,30,30,32,29,30,30,32,29,30,32,29,32,29,32,29,32,29,32,29,32,29,30,32,29
158DATA30,30,32,29,30,30,32,29,30,30,32,29,30,30,32
160COUNT=20:PERCH=180:BIRDS=0:DIF=3:POKE1555,8
200GOSUB6000:GOSUB2000:POKE764,255:?CHR$(28);"PRESSSTARTTOBEGIN":?"ANYKEYTOPAUSE"
202?"Bewarethegoldenvultures!!!":GOSUB1000
210A=PEEK(RAMTOP)-16:POKEPMBASE,A:POKEPMHI,A:SOUND0,0,0,0:A=USR(1536):GRAPHICS0:GOSUB5000
220POKESDMCTL,62:POKEGRACTL,3:POKE764,255
230COUNT=20:PERCH=180:BIRDS=0:DIF=3:POKE1555,8:GOLD=500:SCORE=0
255SHIELD=20:FORJ=SHIELDTO23:POSITION1,J:?X$;:NEXTJ:POSITION0,0:?"difscorehigh"
260POKEPCOLR0,243:POKEPCOLR1,243:POKEPCOLR2,243:POKEPCOLR3,40
270POKE752,1:FORI=2TO36STEP2:POSITIONI,1:?V$:NEXTI:BLEFT=18:BLAND=0:POKE1575,0:HIT=0
275POSITION1,SHIELD-1:?CL$
277POSITION22,0:?DIF:POSITION26,0:?SCORE:POSITION34,0:?HIGH
280RESTORE285:FORI=1564TO1571:READA:POKEI,A:NEXTI:POKE1559,100:POKE1783,11
285DATA0,0,0,150,0,0,0,0
290B$=BB$
299POKE712,BKCOL:POKE1574,0:POKE708,COL0:POKE709,COL1:POKE710,COL2:POKE711,COL3
300COUNT=COUNT-1:A=PEEK(1575):IFHIT<ATHENHIT=A:POKE1788,129:SCORE=SCORE+10*DIF:POSITION26,0:?SCORE
310IFPEEK(FLAG0)=0ANDCOUNT<0THENGOSUB905:POKE(FLAG0),1:POKE(HPOS0),40+R*8:POKEVPOS0,48
320IFPEEK(FLAG0)=1THENPOKEVPOS0,PEEK(VPOS0)+DIF
330IFPEEK(VPOS0)>=PERCHTHENPOKEFLAG0,0:A=INT((PEEK(HPOS0)-48)/4):GOSUB950:POKEHPOS0,0:POKEVPOS0,32
340IFPEEK(FLAG1)=0ANDCOUNT<0THENGOSUB905:POKE(FLAG1),1:POKE(HPOS1),40+R*8:POKEVPOS1,48
350IFPEEK(FLAG1)=1THENPOKEVPOS1,PEEK(VPOS1)+DIF
360IFPEEK(VPOS1)>=PERCHTHENPOKEFLAG1,0:A=INT((PEEK(HPOS1)-48)/4):GOSUB950:POKEHPOS1,0:POKEVPOS1,32
370IFPEEK(FLAG2)=0ANDCOUNT<0THENGOSUB905:POKE(FLAG2),1:POKE(HPOS2),40+R*8:POKEVPOS2,48
380IFPEEK(FLAG2)=1THENPOKEVPOS2,PEEK(VPOS2)+DIF
390IFPEEK(VPOS2)>=PERCHTHENPOKEFLAG2,0:A=INT((PEEK(HPOS2)-48)/4):GOSUB950:POKEHPOS2,0:POKEVPOS2,32
392IFBLAND>2THEN500
394IFBLEFT<1THEN600
400FLASH=FLASH-1:IFFLASH<0THENGOTO550
405IFPEEK(1574)>0THENGOTO650
410GOLD=GOLD-1:IFGOLD<0ANDBLAND>3THENGOLD=100*(9-DIF):DIF=DIF+2:XCNT=30:POKE704,44:POKE705,44:POKE706,44
420IFXCNT>0THENXCNT=XCNT-1:IFXCNT=0THENDIF=DIF-2:POKE704,243:POKE705,243:POKE706,243:POSITION22,0:?DIF
425IFPEEK(764)<255THENGOSUB1000
430GOTO300
499REM**REMOVEASHIELD**
500POKE1789,207:SVCOL=COL1:FORI=1TO6:POKE708,PEEK(708)+2:POSITION1,SHIELD:?X1$:FORJ=1TO5:NEXTJ
502POSITION1,SHIELD:?X$:FORJ=1TO5:NEXTJ:NEXTI:POSITION1,SHIELD-1:?CL$:POSITION1,SHIELD:?CL$
508SHIELD=SHIELD+1:PERCH=PERCH+8:IFSHIELD=23THEN700
510DIF=DIF-1:IFDIF<2THENDIF=2
520GOTO270
550POKE1789,171:POKE712,40:X=RND(0)*23+8:POSITIONX,2:?LTNG$;:POKE712,15:POSITIONX,2:?ERAS$;:POKE712,BKCOL
555A=9-DIF:FLASH=RND(0)*30*A+10*A
560GOTO405
599REM**REMAININGBIRDSLEAVE**
600DIF=DIF+1:IFDIF>6THENDIF=6
612FORI=1TO150
614P=PEEK(VPOS0):IFP>0THENPOKEVPOS0,P-1
616P=PEEK(VPOS1):IFP>0THENPOKEVPOS1,P-1
618P=PEEK(VPOS2):IFP>0THENPOKEVPOS2,P-1
620NEXTI:POKE77,0:GOTO270
649REM**HITBYLIGHTNING**
650POKEHPOS3,0:POKE53278,0:POKE1789,189:POKE707,BKCOL
655FORI=8TO48STEP4:POKE712,I:FORJ=1TO30:NEXTJ:NEXTI:POKE712,BKCOL
660FORI=1TO200:NEXTI:POKE1788,79:FORJ=1TODIF
665SCORE=SCORE-100:IFSCORE<0THENSCORE=0
670POSITION26,0:?SCORE;"":FORL=1TO100:NEXTL:NEXTJ
690POKE707,40:GOTO270
700IFSCORE>HIGHTHENHIGH=SCORE
705POKEGRACTL,0:FORI=53261TO53264:POKEI,0:NEXTI
710GRAPHICS18:POSITION5,3:?#6;"finalscore"
720POSITION8,5:?#6;SCORE
730POSITION5,8:?#6;"PRESSSTART":POSITION4,9:?#6;"TOPLAYAGAIN"
740IFPEEK(53279)<>6THEN740
750GRAPHICS0:GOSUB5000:GOTO220
900REM**STARTANOTHERBIRD**
905COUNT=INT(RND(0)*30)
910R=INT(RND(0)*18)+2:IFASC(B$(R))>0THEN910
920B$(R,R)=CHR$(1):POSITION2*(R-1),1:?"":BLEFT=BLEFT-1:RETURN
949REM**BIRDATSHIELD**
950POSITIONA,(PERCH-32)/8:?V$;:POKE1788,150:BLAND=BLAND+1:RETURN
999REM**PAUSEROUTINE**
1000POKE764,255
1010IFPEEK(53279)<>6THEN1010
1020RETURN
1999REM**VBIROUTINE**
2000RESTORE2001:DIMVB$(348):FORI=1TO348:READA:VB$(I,I)=CHR$(A):NEXTI
2001DATA72,138,72,152,72
2002DATA206,40,6,173,40,6,16,29,173,41,6,141,40,6,162,2,254,16,6,254,16,6,189,16,6,201,8,144,5,169,0,157,16,6
2004DATA202,16,235
2005DATA174,120,2,224,11,208,3,142,247,6,224,7,208,3,142,247,6
2006DATA174,247,6,173,23,6,201,200,176,10,224,7,208,6,238,23,6,238,23,6,201,48,144,10,224,11,208,6
2008DATA206,23,6,206,23,6
2010DATA24,173,11,6,105,4,133,204,162,0,134,207,160,0,132,203,189,20,6,157,0,208,189,12,6,221,16,6,208,8,189,28
2020DATA6,221,24,6,240,69,189,16,6,157,12,6,189,28,6,157,24,6,165,203,221,28,6,240,10,169,0,145,203,230,203,240
2030DATA42,208,239,189,16,6,170,189,48,6,133,205,189,49,6,133,206,177,205,240,14,145,203,230,205,208,2
2040DATA230,206,230,203,240,10,208,238,169,0,145,203,230,203,208,250,230,204,166,207,232,134,207,224,4,144,154
2042DATA173,15,208,240,34,106,144,2,162,0,106,144,2,162,1,106,144,2,162,2,169,0,157,28,6,157,32,6
2044DATA141,30,208,238,39,6,169,2,141,132,6
2046DATA173,7,208,240,3,141,38,6
2050DATA174,252,6,240,36,206,248,6,16,31,189,0,6,141,0,210,232,189,0,6,141,1,210
2052DATA232,189,0,6,240,9,141,248,6,232,142,252,6,208,3,141,252,6
2054DATA174,253,6,240,36,206,249,6,16,31,189,0,6,141,2,210,232,189,0,6,141,3,210
2056DATA232,189,0,6,240,9,141,249,6,232,142,253,6,208,3,141,253,6
2080DATA104,168,104,170,104,76,98,228
2090GOSUB3010:GOSUB4100:RETURN
3000REM*PAGE6-INSERTVBIROUTINE*
3010RESTORE3020:FORI=1536TO1545:READA:POKEI,A:NEXTI
3020DATA104,160,0,162,0,169,7,76,92,228
3030A=ADR(VB$):B=INT(A/256):C=A-256*B:POKE1538,C:POKE1540,B:RETURN
4099REM**SOUNDS**
4100RESTORE4120:FORI=1665TO1766:READA:POKEI,A:NEXTI
4120DATA60,170,3,54,170,3,48,170,3,45,170,3,40,170,3,36,170,3,0,0,0
4132DATA10,204,3,11,204,3,10,204,3,9,204,3,8,204,3,7,204,3,0,0,0
4142DATA20,143,1,80,143,3,90,140,6,95,137,20,100,134,30,0,0,0
4144DATA13,12,20,16,143,30,12,8,40,16,132,60,23,130,70,0,0,0
4146DATA40,174,20,50,172,20,60,170,20,70,168,20,80,166,20,90,164,20,105,162,20,0,0,0
4200REM**IMAGES**
4210DIMV0$(4):RESTORE4220:FORI=1TO4:READA:V0$(I)=CHR$(A):NEXTI
4215V0=ADR(V0$):POKEIMGPT+1,INT(V0/256):POKEIMGPT,V0-256*PEEK(IMGPT+1)
4220DATA36,90,153,0
4230DIMV1$(5):RESTORE4240:FORI=1TO5:READA:V1$(I)=CHR$(A):NEXTI
4235V1=ADR(V1$):POKEIMGPT+3,INT(V1/256):POKEIMGPT+2,V1-256*PEEK(IMGPT+3)
4240DATA66,165,24,24,0
4250DIMV2$(5):RESTORE4260:FORI=1TO5:READA:V2$(I)=CHR$(A):NEXTI
4255V2=ADR(V2$):POKEIMGPT+5,INT(V2/256):POKEIMGPT+4,V2-256*PEEK(IMGPT+5)
4260DATA195,36,24,24,0
4270DIMV3$(6):RESTORE4280:FORI=1TO6:READA:V3$(I)=CHR$(A):NEXTI
4275V3=ADR(V3$):POKEIMGPT+7,INT(V3/256):POKEIMGPT+6,V3-256*PEEK(IMGPT+7)
4280DATA129,66,36,24,24,0
4290DIMV4$(6):RESTORE4296:FORI=1TO6:READA:V4$(I)=CHR$(A):NEXTI
4292V4=ADR(V4$):POKEIMGPT+9,INT(V4/256):POKEIMGPT+8,V4-256*PEEK(IMGPT+9)
4296DATA255,255,255,255,255,0
4300RETURN
4999REM**CHANGEDISPLAYLIST**
5000DL=PEEK(560)+256*PEEK(561)
5010POKEDL+3,70:POKEDL+6,6:FORI=DL+7TODL+28:POKEI,4:NEXTI:RETURN
6000GRAPHICS0:POKE752,1:POSITION8,1:?"***VULTURESIII***"
6010POSITION5,3:?"Thevulturesarelandingand":?"removingprotectivelayersabove"
6020?"you!Therearethreelayersand":?"everytimethreevulturesland":?"onelayerwilldisappear.":?
6030?"Youcanstopthebirdswith":?"aremovaldevicecontrolledby":?"joystick0.Yougettentimes"
6040?"thedifficultyforeachbirdyou":?"stop.Whenyouhaveremoveda"
6050?"flock,thedifficultywillgoup.":?:?"Ifyougethitbylightningyour"
6060?"scorewilldecreasebyahundred":?"timesthedifficulty.":?:?"Justasec..."
6090RETURN	

• Download link 1

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