Atari 8-bit Source code

10REM---APEXPONG/ANTIPONG---
20REMBYPIERREDESLOOVER1984
30REMFORANTICMAGAZINE
40GOSUB360
50A=PEEK(53279):IFA<>5ANDA<>6ANDA<>3THEN50
60IFA=6THEN100
70IFA=5THENGOSUB250:GOTOSTART
80FORT=0TO50:NEXTT:SP=SP-5:IFSP=10THENSP=25
90POKEPMB+63,SP:POSITION14,0:?#6;M6$(SP-14,SP-11):GOTOSTART
100POSITION0,1:?#6;M5$:?#6;TX$:?#6;TX$:POSITION0,19:?#6;TX$:?#6;TX$:?#6;TX$:?#6;M5$
110POSITION19,19:?#6;"":POSITION0,23:?#6;TX$:POSITION1,23:?#6;"0":POSITION17,23:?#6;"0"
120IFPEEK(1791)=0THENPX3=127:POKE53251,PX3
130POKE53254,MX2:POKEMB+MY2,16
140X=USR(ADR(UCALL$))
150ONPEEK(1790)GOTO160,180
160RSC=RSC+1:SC$=STR$(RSC):POSITION17,23:?#6;SC$:IFRSC=MAXTHEN240
170GOTO190
180LSC=LSC+1:SC$=STR$(LSC):POSITION1,23:?#6;SC$:IFLSC=MAXTHEN240
190IFPEEK(1790)=1THENMX2=61:POKE206,MX2:GOTO210
200MX2=195:POKE206,MX2
210MY2=50:POKE207,MY2:POKE1786,0:POKE1787,0:POKE1790,0:POKE1779,0
220X=USR(1730)
230POKE77,0:GOTOSERVE
240POSITION6,23:?#6;"GeVr":PX3=16:POKE53251,PX3:GOSUBRESET:GOTOSTART
250IFPEEK(1791)=1THENPOKE1791,0:GM$=GM1$:GOSUB350:POKEJSR,32:POKEJSR+1,101:POKEJSR+2,6:GOTO880
260POKE1791,1:GM$=GM2$:GOSUB350:POKEJSR,234:POKEJSR+1,234:POKEJSR+2,234
270FORT=0TOINT(RND(0)*40)+50
280A=INT(RND(0)*6)+7:B=INT(RND(0)*15)+4:LOCATEA,B,C:IFC<>ASC(CHR$(32))THEN280
290C=INT(RND(0)*4)+1:ONCGOTO300,310,320,330
300XL$="":GOTO340:REMINVERSE/CTRL-Z
310XL$="":GOTO340:REMINVERSE/CTRL-E
320XL$="":GOTO340:REMINVERSE/*
330XL$="o":REMLOWERCASELETTER"O"
340POSITIONA,B:?#6;XL$:NEXTT:GOTO880
350POSITION0,0:?#6;GM$:POSITION0,2:FORT=2TO21:?#6;TX$:NEXTT:POSITION19,19:?#6;"":RETURN
360GRAPHICS1+16:?#6;"STANDBY":PMBH=PEEK(106)-8:POKE54279,PMBH:PMB=256*PMBH
370MB=PMB+384:PB0=MB+128:PB1=PB0+128:PB3=PB1+256
380MBH=INT(MB/256):MBL=MB-256*MBH:PBH0=INT(PB0/256):PBL0=PB0-256*PBH0:PBH1=INT(PB1/256):PBL1=PB1-256*PBH1
390DIMA$(1),XL$(1),UCALL$(5),SC$(2),TX$(19),GM$(9),GM1$(9),GM2$(9),M1$(18),M2$(18),M3$(20),M4$(19),M5$(19)
400DIMM6$(14),M9$(6):M6$="FASTNORMSLOW":M9$="":TX$="":REM19SPACES
410GM1$="PONG":GM2$="anti":GM$=GM1$:M1$="[start]":M2$=""
420M3$="[]=alterngame":M4$="[OPTION]=":M5$="------------------":REM1SPC.,18HYPENS
430A$=CHR$(PMBH):FORT=1TO5:READA:UCALL$(T,T)=CHR$(A):NEXTT:UCALL$(4,4)=A$
440DATA104,32,0,0,96
450MAX=15:SERVE=130:START=50:RESET=860
460FORT=1743TO1769:READA:POKET,A:NEXTT
470DATA104,104,133,204,104,133,203,162,4,160,0,145,203,200,192,255,208,249,202,240,5,230,204,76,216,6,96
480X=USR(1743,PMB)
490POKE53277,3:POKE559,46:POKE623,1:POKE53260,0
500PX0=49:PY0=50:POKE53248,PX0:POKE53256,0
510FORT=PB0+PY0TO(PB0+5)+PY0:POKET,3:NEXTT
520PX1=200:PY1=50:POKE53249,PX1:POKE53257,0
530FORT=PB1+PY1TO(PB1+5)+PY1:POKET,192:NEXTT
540PX3=16:PY3=18:POKE53251,PX3:POKE53259,0
550FORT=PB3+PY3TO(PB3+92)+PY3STEP3:POKET,192:POKET+1,192:NEXTT
560POKE704,12*16+8:POKE705,12*16+8:POKE706,15*16+14:POKE707,5*16+4:POKE708,4*16+6
570FORT=PMBTOPMB+358:READA:POKET,A:NEXTT
580DATA166,203,189,244,6,133,204,189,246,6,133,205,189,120,2,201,14,208,7,32,0,6,169,1,208,16,201,13,208,7
590DATA32,49,6,169,1,208,5,169,0,157,250,6,169,1,69,203,133,203,234,234,234,234,165,203,208,200,169,1,208,80
600DATA162,255,160,20,136,208,253,202,208,248,173,10,208,201,1,240,67,201,2,240,63,169,1,208,12,169,1,208,227
610DATA169,1,208,215,169,1,208,151,173,255,6,201,1,208,116,173,2,208,201,2,208,7,169,53,141,234,6,208,88,201,4
620DATA208,7,169,64,141,234,6,208,77,201,8,208,87,169,72,141,234,6,208,66,169,1,208,99,168,169,108,141,234,6
630DATA185,249,6,201,0,240,49,201,1,208,25,169,1,208,12,169,1,208,176,169,1,208,176,169,1,208,164
640DATA173,253,6,201,0,144,22,176,9,173,253,6,201,0,144,2,176,11,169,255
650DATA77,253,6,24,105,1,141,253,6,169,255,77,252,6,24,105,1,141,252,6,32,101,6,169,1,141,30,208,173,243,6
660DATA240,191,169,0,141,243,6,169,1,208,186,169,1,208,186,165,206,201,48,240,75,201,208,240,78,165,207,201,23
670DATA144,8,201,104,176,4,169,1,208,19,169,255,77,253,6,24,105,1,141,253,6,169,53,141,234,6,32,101,6
680DATA164,207,169,0,145,208,165,206,24,109,252,6,170,133,206,165,207,24,109,253,6,168,133,207,169,16,145,208
690DATA142,6,208,169,1,141,243,6,208,171,169,1,141,254,6,208,5,169,2,141,254,6,164,207,169,0,145,208,169,53
700DATA141,234,6,32,101,6,169,81,141,234,6,32,101,6,96
710FORT=1536TO1575:READA:POKET,A:NEXTT
720DATA169,1,157,250,6,188,248,6,192,20,240,27,177,204,136,145,204,136,145,204,200,200,200,200,200,200,169,0
730DATA145,204,200,145,204,222,248,6,222,248,6,96
740FORT=1585TO1622:READA:POKET,A:NEXTT
750DATA169,2,157,250,6,188,248,6,192,102,240,25,169,0,145,204,200,145,204,200,177,204,200,200,200,200,145,204
760DATA200,145,204,254,248,6,254,248,6,96
770FORT=1637TO1648:READA:POKET,A:NEXTT
780DATA173,234,6,141,0,210,169,239,141,1,210,96
790FORT=1700TO1715:READA:POKET,A:NEXTT
800DATA104,169,224,141,1,210,169,2,162,0,160,15,32,92,228,96
810POKE552,165:POKE553,6:X=USR(1700)
820FORT=1730TO1742:READA:POKET,A:NEXTT
830DATA104,169,255,77,252,6,24,105,1,141,252,6,96
840POKE203,0:POKE208,MBL:POKE209,MBH:POKE1780,PBL0:POKE1781,PBL1:POKE1782,PBH0:POKE1783,PBH1
850POKE1784,PY0:POKE1785,PY1:POKE1791,0:SOUND0,0,0,0:SP=20:JSR=PMB+283:POSITION13,0:?#6;M9$
860MX2=61:POKE206,MX2:MY2=50:POKE207,MY2:POKE1779,0:POKE1786,0:POKE1787,0:POKE1788,1:POKE1789,1
870POKE1790,0:RSC=0:LSC=0
880POSITION0,0:?#6;GM$:POSITION14,0:?#6;M6$(SP-14,SP-11):?#6;M5$:?#6;M1$:?#6;M2$:POSITION0,19:?#6;M3$
890?#6;M4$:RETURN	

• Download link 1

• Download link 1
• Download link 2