Atari 8-bit Source code

10REM
20REM
30REM
40REMFOR
50REM
60REM
70REMNTICMAGAZINE
80REM
90REM***TITLEPAGE***
95GRAPHICS0:TOP=PEEK(560)+PEEK(561)*256:TOP=INT(TOP/2048-1)*2048
100GRAPHICS2:SETCOLOR2,0,0:POKE752,2:ST=1:PL=1:DIMA$(256):MOVE=250:GO=30:GOSUB210:POKE82,0
110POSITION4,1:?#6;"";
120POSITION1,5:?#6;"OPTION";ST;"STICKS":P1=5:P2=5:UP=1
130POSITION1,6:?#6;"SELECT";PL;"PLAYERS"
140POSITION1,7:?#6;"STARTTOPLAY"
150?"BYJIMEHNINGER":?"WITHJONPEXTON":SOUND0,125,12,5:PO=40
160POKE711,PEEK(20):GOSUB165:GOTO170
165PO=PO+2:POKE53249,PO-8:POKE53248,PO:POKE53250,PO:IFPO>230THENPO=40
166RETURN
170IFPEEK(53279)<>3THEN180
171ST=ST+1:IFST=3THENST=1
173POSITION10,5:?#6;ST;
174FORD=1TO5:NEXTD:GOSUB165:POKE711,PEEK(20):IFPEEK(53279)=3THEN174
180IFPEEK(53279)<>5THEN190
181PL=PL+1:IFPL=3THENPL=1
184POSITION10,6:?#6;PL;
185FORD=1TO5:NEXTD:GOSUB165:POKE711,PEEK(20):IFPEEK(53279)=5THEN185
190IFPEEK(53279)=6ORSTRIG(0)=0THEN300
200GOTO160
210REM***PLYR/MISSILEROUTINE***
215?"AnticPublicDomainSoftwarePresents:":TOP=TOP/256
225A$="hL`"
226A$(49)="h7::;78L68;:7`1234565432"
227A$(130)="h`25"
228A$(199)="52"
230POKE559,62:POKE53248,40:POKE53249,34:POKE53250,40:POKE704,10:POKE705,10:POKE706,150:POKE54279,TOP
235POKE53277,3:ADD=54:POKE53252,0
236D=0:FORA=1536TO1536+LEN(A$)-1:D=D+1:POKEA,ASC(A$(D,D)):NEXTA
237POKE1546,TOP+4:POKE1579,TOP+4:POKE1592,TOP+4:POKE1595,TOP+4:POKE1636,TOP+4:POKE1673,TOP+4:POKE1684,TOP+5
238POKE1695,TOP+6:TOP=TOP*256
240A=USR(1536):RESTOREMOVE:POKE53248,GO:POKE53249,GO-8:POKE53250,GO:POKE77,0
243FORA=TOP+1060+ADDTOTOP+1065+ADD:READD:POKEA,D:NEXTA
244FORA=TOP+1316+ADDTOTOP+1321+ADD:READD:POKEA,D:NEXTA
245FORA=TOP+1570+ADDTOTOP+1575+ADD:READD:POKEA,D:NEXTA
250DATA2,2,222,82,183,2,0,0,3,5,3,1,24,56,60,48,32,32,64
251DATA0,0,222,85,110,4,3,2,3,2,7,2,192,224,224,96,32,32,16
280RETURN
290REM***DRAWSCREEN***
300SOUND0,0,0,0:GRAPHICS0:SETCOLOR2,0,0:POKE752,2:POKE559,62:SOUND1,0,0,0:SOUND2,0,0,0:POKE77,0
304POKE1669,164:POKE1680,176:POKE1691,188
305POKE53248,0:POKE53249,0:POKE53250,0
306GOSUB390:POKE53252,84:FORA=24TO31:POKETOP+768+A,2:NEXTA
310?"MPH(x10):012345678901234567890123456":?"PLYR1:";P1;:IFPL=2THENPOSITION28,1:?"PLYR2:";P2;
311GOSUB1450
315?:FORZ=1TO2
320?:?:FORA=1TO39:?"";:NEXTA
330?"":?:?:?
340?:?:FORA=1TO39:?"";:NEXTA:?
350?"":?:?:?
360NEXTZ:?:?:?
361?:?:FORA=1TO39:?"";:NEXTA
362IFUP=2THENZZ=P2
363IFUP=1THENZZ=P1
370POSITION25-ZZ,22:?"";:FORA=1TOZZ:?"";:NEXTA:?"";:GOTO500
380REM***STARTYOURENGINES!***
390POKE53252,0
391IFPL=1THENRETURN
400POSITION16,9:?"";:IFUP=1THEN?"";
410IFUP=2THEN?"";
420FORA=1TO4
430POKE755,0:SOUND0,21,10,5:FORD=1TO50:NEXTD
440POKE755,2:SOUND0,0,0,0:FORD=1TO30:NEXTD:NEXTA:RETURN
490REM***GOODLUCK!!!***
500SP=0:GO=50:MOVE=250:JAE=0:IFST=2THENJAE=UP-1
510ADD=22:GOSUB240
520IFGO>210THEN600
530IFSTICK(JAE)=7THENSP=SP+0.5
540IFSP<=0.5THENSP=0.5
550SP=SP-0.1:GO=GO+SP
555POKE53252,84+((SP*10)/2.5)
560IFSTRIG(JAE)=0THENSP=SP-0.2
570POKE53248,GO:POKE53249,GO-8:POKE53250,GO
590GOTO520
600REM
610ADD=54:MOVE=251:GOSUB240
620IFGO<30THEN700
630IFSTICK(JAE)=11THENSP=SP+0.5
640IFSP<=0.5THENSP=0.5
650SP=SP-0.1:GO=GO-SP
655POKE53252,84+((SP*10)/2.5)
660IFSTRIG(JAE)=0THENSP=SP-0.2
670POKE53248,GO:POKE53249,GO-8:POKE53250,GO
690GOTO620
700REM
710MOVE=250:ADD=86:GOSUB240
720IFGO>210THEN800
730IFSTICK(JAE)=7THENSP=SP+0.5
740IFSP<=0.5THENSP=0.5
750SP=SP-0.1:GO=GO+SP
755POKE53252,84+((SP*10)/2.5)
760IFSTRIG(JAE)=0THENSP=SP-0.2
770POKE53248,GO:POKE53249,GO-8:POKE53250,GO
790GOTO720
800REM
810ADD=118:MOVE=251:GOSUB240
820IFGO<30THEN900
830IFSTICK(JAE)=11THENSP=SP+0.5
840IFSP<=0.5THENSP=0.5
850SP=SP-0.1:GO=GO-SP
855POKE53252,84+((SP*10)/2.5)
860IFSTRIG(JAE)=0THENSP=SP-0.2
870POKE53248,GO:POKE53249,GO-8:POKE53250,GO
890GOTO820
900RAMP=((25-ZZ)*4)+44
910ADD=174:MOVE=250:GOSUB240
920IFGO>=RAMPTHEN1000
930IFSTICK(JAE)=7THENSP=SP+0.5
940IFSP<=0.5THENSP=0.5
950SP=SP-0.1:GO=GO+SP
955POKE53252,84+((SP*10)/2.5)
960IFSTRIG(JAE)=0THENSP=SP-0.2
970POKE53248,GO:POKE53249,GO-8:POKE53250,GO
990GOTO920
1000REM***GOAHEADANDJUMP!***
1001TRAP1150
1005A=USR(1536):A=USR(1665):OZ=SP*5
1010FORVH=GOTOGO+OZSTEP2
1020POKE53248,VH:POKE53249,VH-8:POKE53250,VH-5:A=USR(1584)
1030NEXTVH
1040FORA=VHTOVH+OZ/2STEP0.8
1050POKE53248,A:POKE53249,A-8:POKE53250,A-5:NEXTA:V=TOP/256:V=V+7
1051POKE1596,206:POKE1591,254
1052POKE1599,206:POKE1592,V
1053POKE1609,206:POKE1594,255
1054POKE1629,206:POKE1595,V
1056POKE1606,255:POKE1626,255
1057POKE1636,V:POKE1644,255
1058POKE1649,254
1060FORVH=ATOA+OZSTEP2
1070POKE53248,VH:POKE53249,VH-8:POKE53250,VH-5:A=USR(1584)
1080NEXTVH
1090IFVH<172ORVH>200THEN1150
1130FORA=VHTO240:POKE53248,A:POKE53250,A-5:POKE53249,A-8:NEXTA
1131IFUP=1THENP1=P1+1:IFP1>25THEN1200
1132IFUP=2THENP2=P2+1:IFP2>25THEN1200
1140GOTO310
1150REM***CRASH!!!***
1155POKE1669,199:POKE1680,211:POKE1691,223:A=USR(1665):TRAP1200
1160SOUND0,255,12,15:SOUND1,255,6,15:FORA=VHTO240STEP1.5:POKE53248,A:POKE53249,A-8:POKE53250,A-5
1170SOUND2,A-VH,12,5:NEXTA
1200IFUP=1ANDPL=2THENUP=2:GOTO300
1300REM***HIGHSCORES***
1301TRAP40000:SOUND0,0,0,0:SOUND1,0,0,0:SOUND2,0,0,0
1310GRAPHICS1+16
1315POKE53248,0:POKE53249,0:POKE53250,0:POKE53252,0
1320POSITION5,0:?#6;"":?#6
1325FORD=1TOPL
1330?#6;"plyr";CHR$(16+D)
1340?#6;"JUMPKING"
1341?#6;"ACE"
1342?#6;"PRO"
1343?#6;"AMATEUR"
1344?#6;"NOVICE"
1345?#6;"ROOKIE"
1346?#6;"MANIAC"
1347IFD=1THENZZ=P1
1348IFD=2THENZZ=P2
1349ZZ=ZZ-5
1350IFZZ=21THENA=4
1351IFZZ<=20ANDZZ>=17THENA=5
1352IFZZ<=16ANDZZ>=13THENA=6
1353IFZZ<=12ANDZZ>=9THENA=7
1354IFZZ<=8ANDZZ>=5THENA=8
1355IFZZ<=4ANDZZ>=1THENA=9
1356IFZZ<=0THENA=10
1357IFD=2THENA=A+10
1360POSITION11,A-1:?#6;"<-";ZZ+5
1365POSITION0,12
1370NEXTD
1380POSITION3,22:?#6;"PRESS":?#6;"TOPLAYAGAIN";
1390POKE711,PEEK(20)
1395IFSTRIG(0)=0THENRUN
1396IFSTRIG(1)=0THENRUN
1400IFPEEK(53279)<>6THEN1390
1410RUN
1450V=TOP/256:V=V+4
1451POKE1596,238:POKE1591,1
1452POKE1599,238:POKE1592,V
1453POKE1609,238:POKE1594,0
1454POKE1629,238:POKE1595,V
1456POKE1606,0:POKE1626,0
1457POKE1636,V:POKE1644,0
1458POKE1649,1:RETURN	

• Download link 1

• Download link 1
• Download link 2