Atari 8-bit Source code

1REM**BASICBURGER-ANALOG#30**byDavidH.Butler
4K1=1:K2=2:K3=3:K4=4:K5=5:K6=6
5DIMUP$(K1),VECTOR$(11),FOOD$(18),B$(12):LIFE=K3:BPNT=10000:B$="":LEVEL=PEEK(1750)
10RESTORE1600:FORI=K1TO11:READA:VECTOR$(I)=CHR$(A):NEXTI:FORI=K1TO18:READA:FOOD$(I)=CHR$(A):NEXTI
90GRAPHICS17:POKE77,K0:GOSUB20000:POKE756,PGCHSET:PFLG=K0:GOSUB7800:BFLG=PFLG:SOUNDK1,20,12,8:POKE764,255
163IFPEEK(53279)=K6ORNOTSTRIG(K0)THENGOSUB550:RUN
164IFLIFE=K0THENI=USR(ADR(VECTOR$),OFF):GOSUB1500:POSITIONK6,K0:?#K6;"0";:GOTO163
165GOSUB550:BLUE=170:XOLD=128:POKEA+K1,40:POKEA,XOLD:I=USR(ADR(VECTOR$),ON)
169REMSTARTOFMAINLOOP
170X=PEEK(A):X1=INT(X/32+0.5)*32:IFNOTXTHENGOSUB9100:GOTO163
175Z=PEEK(A+K2)<>K0:IFZTHENSOUNDK0,250,K2,Z*K4
180IFX-XOLD>24THENX0=XOLD:XOLD=X1:X1=X1-8:GOSUB1000
181IFXOLD-X>24THENX0=X1:X1=XOLD:XOLD=X0:GOSUB1000
183YOLD=PEEK(A+K1):POSITIONK0,K0:?#K6;"";LIFE;"";PNT;:IFPEEK(53279)=K6THENLIFE=K0:GOTO164
184IFPNT>=BPNTTHENGOSUB9410
186I=PEEK(PEPPER)*K2+K1:POSITIONK1,22:?#K6;B$(K1,I);:POSITIONK1,23:?#K6;B$(K1,I);
187IFNOTBFLGTHENIFPEEK(20)>60THENPOSITION14,23:?#K6;"";
190POKE53761,K0:REMQUICKSO.0,0,0,0
191IFNOTPFLGTHENIFPEEK(53770)<K4THENPFLG=K1:B=A+K6*32:GOSUB1120
192IFPFLG=K1THENB=PEEK(53258)/K2:IFB<>INT(B)THENGOSUB8270:POKEA+192,K2:PFLG=K0:GOSUB9300:POKE53278,K0
193IFNOTBFLGTHENIFPEEK(53770)<7THENBFLG=K1:B=A+224:GOSUB1120
194IFBFLGANDNOTPEEK(A+224)THENPOSITION14,23:?#K6;"B=";BONUS;:BFLG=K0:PNT=PNT+BONUS:POKE20,K0:GOSUB9300
195IFPEEK(764)=33THENGOSUB9000
200GOSUB1100:GOSUB990:GOTO170
540REMREMOVEALLPLAYERS,SETDXANDDYTOZEROONALLBUTPEPPERS
550FORI=K0TO7:B=A+I*32:POKEB,K2:POKE53248+I,K0:IFI<>K4ANDI<>K5THENPOKEB+K2,K0:POKEB+K3,K0
560NEXTI:POKEA+21,K0:POKE53278,K0:BFLG=K0:PFLG=K0:D=K0:RETURN
980REMCHOOSECHEFIMAGE
990DX=PEEK(A+K2):POKEA+13,96*(DX=255)+128*(DX=K1)+160*(DX=K0)
993REMFLYINGPEPPERSOUND
995P=PEEK(A+128):IFNOTPTHENP=PEEK(A+160)
996DX=ABS(P-PEEK(A))/10:SOUNDK1,K5,K4,(8-DX)*(DX<8)*(P<>K0):RETURN
999REMFALLINGBURGERROUTINE
1000Y=INT((YOLD-40)/24+0.5)*24+40:PY=Y/8-K2:PX=X0/8-K5:LOCATEPX,PY,OUT:IN=32
1010IFIN=OUTTHENRETURN
1025REMREMOVEFOODONTOPBURGERPART
1030FORI=32TO96STEP32:B=PEEK(I+A):IFPEEK(A+I+K1)=YTHENIFB>X0ANDB<X1THENPOKEI+A,K2
1040NEXTI
1045PNT=PNT+100:POSITIONPX,PY:?#K6;"";
1050FD=K6*(OUT=34)+9*(OUT=K6)+12*(OUT=139)+15*(OUT=40)+K1:SOUNDK0,255-PY*10,10,K4
1051POKE53763,K0:IFPEEK(A+128)THENSOUNDK1,K5,K4,K4
1055FOOD=K3*(IN=170)+K6*(IN=34)+9*(IN=K6)+12*(IN=139)+15*(IN=40)+K1:IFPEEK(764)=33THENGOSUB9000
1060IFPY>16THENLOCATEPX,PY+K1,IN:IFIN<>32THENPNT=PNT+400*(PY=17):POKE53761,K0:GOTO1095
1070IFIN=32ORIN=BLUETHENPOSITIONPX,PY:?#K6;FOOD$(FOOD,FOOD+K2);:IF(IN=BLUE)ANDPEEK(A+K3)THENGOSUB990
1075PY=PY+K1:LOCATEPX,PY,IN:POSITIONPX,PY:?#K6;FOOD$(FD,FD+K2);:IFIN<>32ANDIN<>BLUETHENOUT=IN:GOTO1050
1090GOTO1055
1091REMTESTFORENDOFROUND
1095FORI=K4TO16STEPK4:LOCATEI,17,B:IFB=32THENPOP:RETURN
1096NEXTI:POP:PNT=PNT+800:FORI=K1TOK3:PNT=PNT+100*(NOTPEEK(A+I*32)):NEXTI:GOSUB550:GOSUB9200:GOTO10
1099REMBRINGFOODTOLIFE
1100IFRND(K0)<0.75THENRETURN
1105B=A+32+32*INT(K3*RND(K0)):IFPEEK(B)THENRETURN
1110D=D+K1:PNT=PNT+(D>K3)*100
1120Y=40+INT(RND(K0)*K5)*24:X1=32+192*INT(RND(K0)*K2):POKEB+K1,Y:POKEB+K2,K0:POKEB+K3,K0:POKEB,X1:RETURN
1500REMPUTDEADCHEFONSCREEN
1510I=PEEK(A+25)+A+1024:B=PEEK(A+13)+256*PEEK(A+14):FORJ=K4TO15:POKEI+J,PEEK(B+J):NEXTJ:RETURN
1600DATA104,104,170,104,168,169,7,32,92,228,96
1610DATA32,32,32,170,170,170,34,35,36,6,13,7,139,131,140,40,35,41
7800REMSETSPEEDS
7810LEVEL=LEVEL+(LEVEL<7):RESTORE7880:POSITION14,22:?#K6;"";LEVEL;
7815FORI=K1TOLEVEL:READB,C,BONUS:NEXTI
7820POSITIONK2,K2:?#K6;"GETREADYTOPLAY";
7830POSITIONK2,21:?#K6;"BASICBURGER";
7840POKEA+K5,B+K1:POKEA+K6,C+K1:POKEA+197,B+K2:POKEA+198,C+K2
7850FORI=K1TOK3:POKEA+I*32+K5,B:POKEA+I*32+K6,C:NEXTI:PEPPER=A+128+30:IFNOTPNTTHENPOKEPEPPER,K0
7880DATA4,3,500,3,4,750,3,3,1000,3,2,1500,2,3,2000,2,2,3000,2,1,5000
7890POSITIONK2,22:?#K6;"";K5-PEEK(PEPPER);
7900POSITIONK2,23:?#K6;"";LIFE;"";PNT;
7905IFPNT>BPNTTHENGOSUB9400
8000REMDRAWRANDOMMAZE
8010FORI=K0TO192STEP16:RESTORE8050:C=(NOTI)+K2*(I=192)
8020FORJ=K1TO16:READB
8030POKE1536+I+J,B-C*(B=K3)
8040NEXTJ:IFPEEK(53279)=K5THENLEVEL=LEVEL*(LEVEL<>7):POKE1750,LEVEL:POP:GOTO7800
8045NEXTI
8050DATA8,8,8,3,12,3,12,3,12,3,12,3,4,4,4,4
8055REMADDBASICMAZE
8060FORI=K2TO11STEPK3:POSITIONK2,I
8070IFI=K2THEN?#K6;"":GOTO8090
8080?#K6;""
8090?#K6;""
8100?#K6;""
8110NEXTI:POSITIONK2,14:?#K6;"";
8120REMADDFOODMODIFYMAZE
8130FORI=K3TO15STEPK4:FD=7
8140B=K3+K3*INT(RND(K0)*K5)
8150FORJ=K3TO15STEPK3
8160IFJ=BTHENPOSITIONI,J-K1:?#K6;"";:GOTO8190
8170POSITIONI,J:?#K6;FOOD$(FD,FD+K2);:FD=FD+K3
8180GRID=1536+16*(J-K3)+(I+K5)/K2:POKEGRID,PEEK(GRID)+8:POKEGRID+K2,PEEK(GRID+K2)+K4
8190NEXTJ:NEXTI
8200REMADDONEWAYLADDERS
8210FORI=K3TO19STEPK4
8220UP=NOTUP:UP$="":IFUPTHENUP$=""
8230J=K4+K3*INT(RND(K0)*K4):GRID=1536+16*(J-K4)+(I+K5)/K2
8240B=GRID+48*(NOTUP):IFPEEK(B)-UP=K1THEN8230
8250POKEB,PEEK(B)-UP-UP-(NOTUP)
8260POSITIONI-K1,J:?#K6;UP$;:NEXTI
8270POSITIONK2,21:FORI=K1TO17:?#K6;CHR$(96);:NEXTI:POSITIONK2,22:FORI=K1TOK5:?#K6;"";CHR$(14);:NEXTI
8280POSITIONK0,23:?#K6;"/////";
8285IFPNTANDNOTPFLGTHENRETURN
8290B=A+128:POKEPEPPER,K0:POKEB+26,K0:POKEPEPPER+32,K0:POKEB+32+26,K0:RETURN
9000POKE764,255:I=USR(ADR(VECTOR$),OFF):GOSUB9220
9010IFPEEK(764)<>33THEN9010
9020POKE764,255:I=USR(ADR(VECTOR$),ON):RETURN
9100REMKILLCHEFSOUND
9110LIFE=LIFE-K1:FORD=15TOK0STEP-K1:SOUNDK0,255*RND(K0),10,D:NEXTD:PFLF=D:BFLG=D:RETURN
9200REMENDROUNDSOUND
9210FORI=160TO80STEP-K1:SOUNDK0,I,10,K6:NEXTI:SOUNDK1,60,14,K6:SOUNDK2,96,14,K6
9220POKE53761,K0:FORI=K1TO150:NEXTI:SOUNDK1,K0,K0,K0:SOUNDK2,K0,K0,K0:RETURN
9300FORI=K1TO10:SOUNDK0,20*RND(K0),10,8:NEXTI:POKE53761,K0:RETURN
9390DATA38,32,26,20,32,26
9400REMBONUSCHEF
9410LIFE=LIFE+K1:BPNT=BPNT+10000:RESTORE9390:FORI=K1TOK6:READB:SOUNDK0,B,10,K6:FORB=K0TO10:NEXTB:NEXTI
9420POKE53761,K0:RETURN
20000REMONETIMESETUP
20015REMASSIGNCOLORSTOPLAYERS
20020POKE704,14:POKE705,70:POKE706,PEEK(709):POKE707,24:POKE711,22
20025REMLOADINMHDIFNOTLOADED
20030PGTOP=PEEK(106):PGCHSET=PGTOP-18:PG=PGTOP-8:LETON=PG*256:NUM=1012
20035IFPEEK(ON)=216THEN20090
20040IO=K1:OPEN#IO,K4,K0,"D:BASBURG1.":GOSUB20110:GOSUB20160
20045REMMHDRET.=DEFERREDVBLANK
20050POKEON+31,PEEK(548):POKEON+32,PEEK(549):LEVEL=K0:POKE1750,LEVEL
20055POKEON+100,26:POKEON+102,K5:REMLIMITPEPPERSTO5.
20060POKEON+146,24:REMSINGLERESOLUTION.
20065POKEON+951,240:POKEON+952,240:REMCHANGEMISSILEKEEPMASK.
20070POKEON+1003,80:REMGRIDEQUATION=2Y+X/16-80.
20075REMLOADINCHSET+STACKS+IMAGES
20080OPEN#IO,K4,K0,"D:BASBURG2.":NUM=1032:PG=PGCHSET:GOSUB20110:POSITIONK2,10:?#K6;"CLEARINGPMAREA";
20085B=(PGTOP-16)*256:FORI=768TO2047:POKEB+I,K0:NEXTI:REMCLEARPMAREA
20090A=PGTOP-16:POKE54279,A:POKEON+132,A:POKE559,62:POKE53277,K3:POKEON+K2,A:POKE623,17:POKE53260,208
20095A=A*256:FORI=K0TO7:POKEA+I*32+14,PGTOP-15:NEXTI:REMPGADDRESSOFIMAGES
20100OFF=PEEK(ON+31)+PEEK(ON+32)*256:RETURN
20110REMIO=(1=READ,2=WRITE)
20120REMPG=PAGE,NUM=#OFBYTES
20130IOCB=832+IO*16:POKEIOCB+K2,K3+K4*IO:POKEIOCB+K4,K0:POKEIOCB+K5,PG
20140I=INT(NUM/256):POKEIOCB+8,NUM-I*256:POKEIOCB+9,I
20150I=USR(ADR("hhhLV"),IO*16):CLOSE#IO:RETURN
20155REMMAKEMHDRELOCATABLE
20160RESTORE20170:FORI=K1TO14:READA:POKEON+A,PEEK(ON+A)-PEEK(ON+1011)+PG:NEXTI:POKEON+1011,PG:RETURN
20170DATA243,246,270,503,524,652,662,680,750,766,777,782,843,959	

• Download link 1

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