Atari 8-bit Source code

100REM**********************
110REM*BOPOTRON*
120REM*KYLEPEACOCK*
130REM*ANALOGCOMPUTING*
140REM**********************
145REM
150REM:THISVERS.CONTAINSADDEDLEVELS&FROMANALOGISSUE26[i.e.7TOTAL]
155REM
160MAXLIFE=5:MAXFALL=11:MAXLEVEL=5:STARTLVL=1:LVL=STARTLVL
170READN1,N2,N3,N4,N5,N6,N7,N8,N9,N0
180DIMVBLANK$(723),INIT$(103),DLI$(12),BOP$(30):LIFE=N1
190POKE106,PEEK(106)-N4:CSET=PEEK(106)*256:GRAPHICS0:POKE1536,CSET/256:POKE54286,192:POKE752,N1:GOSUB610
200VBLANK=ADR(VBLANK$):BOP=ADR(BOP$):INIT=ADR(INIT$)
210FORX=N1TO723:READN:VBLANK$(X)=CHR$(N):NEXTX
220FORX=N1TO103:READN:INIT$(X)=CHR$(N):NEXTX
230FORX=N1TO12:READA:DLI$(X)=CHR$(A):NEXTX:X=ADR(DLI$):HIGH=INT(X/256):LOW=X-HIGH*256
240POKE512,LOW:POKE513,HIGH
250FORX=N1TO30:READN:BOP$(X)=CHR$(N):NEXTX
260PMBASE=INT((PEEK(145)+N3)/N4)*N4:POKE54279,PMBASE:PMB=PMBASE*256:POKE559,46:POKE53277,N3:POKE623,33
270FORX=K0TO127:READA:POKECSET+N8+X,A:NEXTX
280DLIST=PEEK(561)*256+PEEK(560):POKEDLIST+N8,N2+128:FORX=DLIST+N9TODLIST+28:POKEX,N4:NEXTX
290K=INT(RND(N1)*16):SETCOLORN2,K,N2:SETCOLORN4,K,N2:FORX=K0TON3:SOUNDX,K0,K0,K0:NEXTX
300REM
310REM***CONSTRUCTBOARD***
320REM
330GOSUB4000:GOSUB5000:GOSUB6000:GOSUB7000:GOSUB8000:GOSUB2000:GOSUB3000:POKE54286,192
340GOSUB610:POKE1537,K0
350REM
360REM***GETTHINGSGOING
370REM
380POSITIONN0,N2:?ENG;"";:POKE77,K0
390V=PEEK(1537):CHAR=PEEK(1612):TRIG=STRIG(K0)
400IFV=K0ANDENG>K0THEN440
410POKE1537,N1:FORX=K0TO255STEPN5:SOUNDN1,X,N8,N0
420K=INT(RND(N1)*256):T=INT(RND(N1)*N3):SETCOLORN2,K,K:SETCOLORN4,K,K:POKE53256,T:POKE53257,T:NEXTX
430SOUNDK0,K0,K0,K0:SOUNDN1,K0,K0,K0:LVL=LVL-N1:LIFE=LIFE+N1:GOTO580
440SOUNDK0,200-100*(STICK(0)<>15)-50*(TRIG=K0),N6,N8
450IFCHAR<12ORCHAR>13THEN530
460X=INT((PEEK(1541)-45)/N4):Y=INT((PEEK(1545)-N6)/N4):SOUNDK0,K0,K0,K0
470FORR=255TOK0STEP-N5:SOUNDN2,R,N0,N0:SOUNDN3,R+N1,N0,N0:ENG=ENG-N2
480POSITIONN0,N2:?ENG;"";:T=PEEK(1612):IFT<12ORT>13THEN520
490NEXTR
500POSITIONX-(N1*(CHAR=13))+(N1*(CHAR=12)),Y:?"";
510POSITIONX-(N1*(CHAR=13))+(N1*(CHAR=12)),Y-N1:?"";:ACTIVE=ACTIVE-N1
520SOUNDN2,K0,K0,K0:SOUNDN3,K0,K0,K0
530IFCHAR<136ORCHAR>137THEN550
540IFENG<=MAXENGTHENENG=ENG+N0:FORX=15TOK0STEP-N2:SOUNDN1,200,N0,X:NEXTX:GOTO560
550ENG=ENG-N1-N2*(TRIG=K0)
560IFCHAR<>144ORACTIVE<>K0THEN380
570POKE1537,N1:FORT=K0TON4:FORX=K0TO255STEP20:SOUNDK0,X,N0,N0:SOUNDN1,X+N1,N0,N0:NEXTX:NEXTT
580POKE1537,N1:FORX=K0TON3:SOUNDX,K0,K0,K0:POKE53248+X,K0:NEXTX:GOSUB660
590LVL=LVL+N1*(LVL<>MAXLEVEL):IFLIFE>MAXLIFETHEN630
600GOTO290
610POSITION14,0:?"";CHR$(LIFE+176):POSITIONN9,N1:?"":POSITION24,N1:?""
620POSITION26,N2:?LVL;:RETURN
630LIFE=N3:GOSUB610:POSITIONN1,N3:?"GAMEOVER-PRESSBUTTONTOPLAYAGAIN":SETCOLORN2,K0,K0
640IFSTRIG(K0)THEN640
650GOSUB660:LVL=STARTLVL:LIFE=N1:GOTO290
660POSITIONK0,N2:FORX=K0TO24:?"";:NEXTX:RETURN
1000REM
1010REM***CONSTANTS
1020REM
1030DATA1,2,3,4,5,6,7,8,9,10
1040REM
1050REM***VERTICALBLANKROUTINE
1060REM
1070DATA216,238,199,2,173,1,6,240,3,76,98,228,165,203,72,165,204,72,160,0,162,0,189,5,6,157,0,208
1080DATA189,9,6,141,2,6,24,113,205,141,3,6,200,140,4,6,224,0,240,13,165,203,24,105,128,133,203,165
1090DATA204,105,0,133,204,173,2,6,56,233,10,168,169,0,145,203,200,204,2,6,144,248,173,3,6,24,105,10
1100DATA168,169,0,145,203,136,204,3,6,176,248,188,13,6,16,24,188,15,6,189,9,6,56,249,45,6,201,11
1110DATA144,10,201,245,176,6,169,0,240,7,144,154,172,4,6,177,205,172,2,6,145,203,238,2,6,238,4,6
1120DATA173,2,6,205,3,6,208,203,189,13,6,16,29,169,0,157,13,6,224,2,144,20,188,15,6,185,35,6
1130DATA157,5,6,185,45,6,157,9,6,169,15,157,17,6,172,4,6,232,224,4,144,188,104,133,204,104,133,203
1140DATA174,78,6,48,58,222,19,6,208,53,189,15,6,240,7,169,255,157,15,6,48,41,188,17,6,185,25,6
1150DATA157,19,6,189,7,6,217,55,6,208,59,189,11,6,217,65,6,208,51,169,1,157,15,6,169,15,157,19
1160DATA6,16,8,48,6,16,198,240,84,208,82,254,17,6,189,17,6,201,5,208,4,169,0,240,6,201,10,208
1170DATA2,169,5,157,17,6,168,185,25,6,240,227,16,51,189,7,6,24,125,21,6,157,7,6,189,11,6,24
1180DATA125,23,6,157,11,6,236,81,6,208,26,173,5,6,24,125,21,6,141,5,6,141,6,6,173,9,6,24
1190DATA125,23,6,141,9,6,141,10,6,202,16,165,169,255,141,81,6,174,78,6,48,90,173,5,6,56,253,7
1200DATA6,16,5,73,255,24,105,1,201,7,176,23,189,11,6,56,237,9,6,201,12,208,5,142,81,6,208,7
1210DATA176,5,169,1,141,1,6,169,0,157,21,6,157,23,6,188,17,6,189,7,6,217,55,6,144,6,240,9
1220DATA169,255,48,2,169,1,157,21,6,189,11,6,217,65,6,144,6,240,9,169,255,48,2,169,1,157,23,6
1230DATA202,16,163,165,88,133,207,165,89,133,208,173,9,6,56,233,6,74,74,170,240,16,165,207,24,105,40,133
1240DATA207,165,208,105,0,133,208,202,16,238,173,5,6,56,233,44,74,74,168,177,207,174,81,6,48,2,169,1
1250DATA141,76,6,41,127,141,75,6,173,9,6,201,27,144,23,165,207,56,233,80,133,207,165,208,233,0,133,208
1260DATA177,207,201,1,240,109,201,8,176,105,173,75,6,240,48,206,77,6,48,3,76,98,228,72,169,1,174,16
1270DATA208,240,1,10,141,77,6,104,201,2,144,4,201,8,144,26,173,81,6,16,53,173,9,6,41,1,208,7
1280DATA173,9,6,41,3,208,39,238,82,6,169,1,208,22,173,120,2,201,13,208,9,173,9,6,201,98,208,235
1290DATA240,16,201,14,208,12,169,255,24,109,9,6,141,9,6,141,10,6,173,75,6,240,81,173,82,6,205,83
1300DATA6,144,5,169,1,141,1,6,169,0,141,82,6,173,120,2,201,7,208,22,173,5,6,201,198,176,49,173
1310DATA75,6,201,8,240,42,201,12,240,38,169,1,208,24,201,11,208,30,173,5,6,201,47,144,23,173,75,6
1320DATA201,9,240,16,201,13,240,12,169,255,24,109,5,6,141,5,6,141,6,6,76,98,228
1330REM*723BYTES
1340REM
1350REM***VBLANKINITIALIZER
1360REM
1370DATA216,165,16,41,127,133,16,141,14,210,104,104,141,79,6,104,141,80,6,104,133,204,104,133,203,104
1380DATA133,206,104,133,205,169,1,141,1,6,165,204,72,162,3,160,0,152,145,203,200,208,251,230,204,202
1390DATA16,246,162,9,157,25,6,224,4,176,3,157,13,6,202,16,243,141,82,6,141,17,6,141,19,6
1400DATA141,20,6,142,78,6,169,5,141,18,6,104,133,204,174,79,6,172,80,6,169,7,76,92,228
1410REM*103BYTES
1420REM
1430REM***DLIROUTINE
1440REM
1450DATA72,173,0,6,141,10,212
1460DATA141,9,212,104,64
1470REM
1480REM***PLAYERIMAGEDATA***
1490REM
1500DATA12,126,0,60,126,126,126,126
1510DATA126,0,0,0,102
1520DATA12,0,24,60,24,0,66,0,0,60
1530DATA60,126,0
1540DATA1,255
1550DATA1,255
1560REM
1570REM***CHARACTERDATA
1580REM
1590DATA0,0,0,0,85,68,68,85
1600DATA8,8,8,10,89,72,72,90
1610DATA0,0,0,170,85,68,68,170
1620DATA128,128,128,128,149,132,132,149
1630DATA8,8,8,10,8,8,8,10
1640DATA0,0,0,170,0,0,0,170
1650DATA128,128,128,128,128,128,128,128
1660DATA191,191,170,42,85,68,68,85
1670DATA254,254,170,168,85,68,68,85
1680DATA63,12,21,170,170,150,170,170
1690DATA48,48,84,170,154,86,154,170
1700DATA2,10,42,170,85,68,68,85
1710DATA128,160,168,170,85,68,68,85
1720DATA128,60,12,15,2,61,2,253
1730DATA2,60,48,240,128,124,128,127
1740DATA0,0,0,0,255,204,204,255
2000REM
2010REM***SETUPBOPOTRON
2020REM
2030POKE704,102:POKE53256,K0
2040POKE705,136:POKE53257,K0
2050POKE706,151:POKE707,231:POKE1619,MAXFALL
2060RESTORE2080+(20*LVL)
2070READX,Y,ENG,MAXENG:POKE1541,X*N4+48:POKE1542,X*N4+48:POKE1545,Y*N4+N6:POKE1546,Y*N4+N6
2080RETURN
2100DATA0,4,500,500
2120DATA37,23,200,500
2140DATA0,12,300,500
2160DATA16,13,300,500
2180DATA37,23,300,650
2200DATA0,5,500,500
2220DATA0,23,500,500
3000REM
3010REM***'EXIT'GIRDER
3020REM
3030RESTORE3080+(20*LVL)
3040READX,Y:POSITIONX,Y:?"";:RETURN
3100DATA0,4
3120DATA0,23
3140DATA38,5
3160DATA23,23
3180DATA35,5
3200DATA0,10
3220DATA38,5
4000REM
4010REM***FLOORDRAW
4020REM
4030RESTORE4080+(20*LVL)
4040READAMOUNT:FORT=N1TOAMOUNT:READSTRT,END,YPOS:FORX=STRTTOEND:POSITIONX,YPOS:?"!";:NEXTX:NEXTT
4050RETURN
4100DATA9,0,8,4,17,26,4,3,13,9,16,23,9,30,35,9,7,13,13,16,35,13,7,30,18,0,38,23
4120DATA9,7,15,7,18,23,7,14,15,12,18,19,12,6,10,16,23,28,16,35,36,16,2,5,19,0
4121DATA38,23
4140DATA8,0,5,5,0,5,13,0,5,23,34,38,5,34,38,13,34,38,23,12,19,9,22,27,9
4160DATA12,16,23,4,16,23,9,0,5,12,30,38,12,16,18,14,21,23,14,12,15,16,24,27,16,2
4161DATA11,18,28,38,18,34,38,23,16,23,23
4180DATA20,22,27,5,7,13,8,16,17,8,18,19,9,20,21,10,30,35,10,22,23,11,24,25,12,5
4181DATA13,13,26,27,13,28,29,15,30,31,16,32,33,17,34,35,18,20,21,19,18,19,20,11,17
4182DATA21,9,10,22,2,8,23,32,38,23
4200DATA12,0,8,5,17,22,5,28,37,5,0,12,10,17,23,10,26,38,10,0,12,15,17,26,15,30
4201DATA38,16,32,38,22,0,15,23,18,26,23
4220DATA13,0,5,5,15,20,5,32,38,5,27,30,6,1,4,10,4,7,11,18,21,11,29,38,11,7
4221DATA10,12,0,10,18,18,22,18,28,38,22,0,20,23
5000REM
5010REM***LADDERDRAW
5020REM
5030RESTORE5080+(20*LVL)
5040READAMOUNT:FORT=N1TOAMOUNT:READSTRT,END,XPOS:FORY=STRTTOEND:POSITIONXPOS,Y:?"%&'";:NEXTY
5050POSITIONXPOS,STRT:?CHR$(34);"#$";:POSITIONXPOS,END:?CHR$(34);"#$";:NEXTT
5060RETURN
5100DATA4,4,9,27,9,13,36,13,18,4,18,23,31
5120DATA4,12,16,11,12,16,20,19,23,6,16,23,29
5140DATA2,13,23,1,13,23,36
5160DATA3,4,9,19,18,23,36,12,18,36
5180DATA3,5,16,36,18,23,36,8,13,2
5200DATA5,5,10,9,5,10,32,15,23,6,15,23,27,16,22,36
5220DATA3,5,11,32,12,18,11,18,23,18
6000REM
6010REM***BATTERYDRAW
6020REM
6030RESTORE6080+(20*LVL)
6040READAMOUNT:FORT=N1TOAMOUNT:READXPOS,YPOS:POSITIONXPOS,YPOS:?"";
6050POSITIONXPOS,YPOS-N1:?"";:NEXTT:RETURN
6100DATA1,0,23
6120DATA1,14,23
6140DATA1,34,13
6160DATA1,16,9
6180DATA1,0,23
6200DATA1,18,23
6220DATA1,37,11
7000REM
7010REM***POWERUNITDRAW
7020REM
7030RESTORE7080+(20*LVL)
7040READACTIVE:FORT=N1TOACTIVE:READXPOS,YPOS:POSITIONXPOS,YPOS:?",-";
7050POSITIONXPOS,YPOS-N1:?"./";:NEXTT:RETURN
7100DATA2,3,9,23,9
7120DATA2,4,16,37,16
7140DATA2,0,5,12,9
7160DATA2,0,12,21,14
7180DATA4,20,5,0,8,8,13,10,13
7200DATA4,37,10,0,15,32,22,0,23
7220DATA4,0,5,29,6,0,18,37,22
8000REM
8010REM***PLATFORMPROGRAMMING
8020REM
8030A=USR(INIT,VBLANK,PMB+512,BOP)
8040RESTORE8080+(20*LVL)
8050READNUMPLAT:FORA=N1TONUMPLAT:ADD=K0+N5*(A>N1):READNUMVEC:FORB=N1TONUMVEC
8060READSTARTX,STARTY,XEND,YEND,SPEED:STARTX=STARTX*N4+48:STARTY=STARTY*N4+18:XEND=XEND*N4+48:YEND=YEND*N4+18
8070IFB=N1THENPOKE1541+N1+A,STARTX:POKE1545+N1+A,STARTY
8080POKE1561+ADD,SPEED:POKE1571+ADD,STARTX:POKE1581+ADD,STARTY:POKE1591+ADD,XEND:POKE1601+ADD,YEND
8090ADD=ADD+N1:NEXTB:POKE1614,NUMPLAT-N1:NEXTA:RETURN
8100DATA2,3,14,17,14,9,2,14,9,14,13,1,14,13,14,17,1,2,9,4,15,4,1,15,4,9,4,3
8120DATA2,4,16,23,16,4,3,24,7,34,23,2,16,4,16,23,3,24,7,34,23,4,4,7,12
8121DATA24,12,2,5,7,0,17,1,24,12,7,12,2,5,7,0,17,1
8140DATA2,5,18,9,18,5,2,18,5,6,5,2,6,5,6,23,2,6,23,18,23,2,18,23,18,23,1,5,20,23
8141DATA32,23,2,32,23,32,5,2,32,5,20,5,2,20,5,20,9,2,20,23,20,23,1
8160DATA2,3,0,19,0,23,1,0,23,32,23,1,28,13,24,13,2,4,19,23
8161DATA19,14,1,37,12,24,4,2,14,4,6,12,2,6,12,6,18,2
8180DATA2,4,30,23,14,18,2,5,8,5,8,3,5,8,5,14,2,28,14,28,5,2,3,8,23
8181DATA14,8,2,14,8,14,8,3,28,5,34,11,2
8200DATA2,5,15,15,15,10,2,15,10,15,5,2,15,5,13,10,2,13,10,13,15,2,13,15,15
8201DATA15,2,3,24,10,26,5,2,26,5,23,5,2,23,5,24,10,2
8220DATA2,5,23,18,26,22,2,26,22,27,11,2,27,11,22,11,2,22,11,25,6,2,25,6,23
8221DATA18,2,5,13,5,16,11,2,16,11,14,12,2,14,12,16,11,2,16,11,6,5,2,6,5
8222DATA5,10,2	

145REM
150REMTHISLISTINGCONTAINS
151REMDATAFOR2EXTRALEVELSWHICHCANBEADDEDTOTHE5LEVELVERSIONOF
152REMBOPOTRONPUBLISHEDINANALOGISSUE#24.:
153REMLOADINYOUROLD5LEVELVERS.OFBOPOTRON,THEN"ENTER"THISLISTINGUSINGTHECOMMAND...
154REMENTER"D:BOPLEVEL.LST"NOW,SAVEYOURNEWENHANCED7LEVELVERSIONONADISK
155REMANDENJOYTHEADDEDFUN.
160MAXLIFE=5:MAXFALL=11:MAXLEVEL=7:STARTLVL=1:LVL=STARTLVL
2200DATA0,5,500,500
2220DATA0,23,500,500
3200DATA0,10
3220DATA38,5
4200DATA12,0,8,5,17,22,5,28,37,5,0,12,10,17,23,10,26,38,10,0,12,15,17,26,15,30
4201DATA38,16,32,38,22,0,15,23,18,26,23
4220DATA13,0,5,5,15,20,5,32,38,5,27,30,6,1,4,10,4,7,11,18,21,11,29,38,11,7
4221DATA10,12,0,10,18,18,22,18,28,38,22,0,20,23
5200DATA5,5,10,9,5,10,32,15,23,6,15,23,27,16,22,36
5220DATA3,5,11,32,12,18,11,18,23,18
6200DATA1,18,23
6220DATA1,37,11
7200DATA4,37,10,0,15,32,22,0,23
7220DATA4,0,5,29,6,0,18,37,22
8200DATA2,5,15,15,15,10,2,15,10,15,5,2,15,5,13,10,2,13,10,13,15,2,13,15,15
8201DATA15,2,3,24,10,26,5,2,26,5,23,5,2,23,5,24,10,2
8220DATA2,5,23,18,26,22,2,26,22,27,11,2,27,11,22,11,2,22,11,25,6,2,25,6,23
8221DATA18,2,5,13,5,16,11,2,16,11,14,12,2,14,12,16,11,2,16,11,6,5,2,6,5
8222DATA5,10,2	

• Download link 1
• Download link 2

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