Atari 8-bit Source code

1GRAPHICS3:DIMF$(1),G$((INT(ADR(F$)/1024)+1)*1024-ADR(F$)-1),B$(384),M$(128),P$(128),Q$(128),N$(4):POKE705,90
2B$=CHR$(0):B$(384)=CHR$(0):B$(2)=B$:P$=B$:POKE54279,ADR(B$)/256:POKE559,46:POKE53277,3:POKE704,60:Z=53248
3COLOR1:FORI=0TO19:PLOT0,I:DRAWTO39,I:NEXTI:COLOR2:PLOT0,0:DRAWTO0,19:PLOT39,0:DRAWTO39,19:Q$=B$
4POKE53256,1:N$(1,1)=CHR$(0):N$(4,4)=CHR$(0):N$(2,2)=CHR$(24):N$(3,3)=CHR$(24):P$(17)=CHR$(255):P$(96)=CHR$(255)
5P$(18)=CHR$(126):P$(95)=CHR$(126):R=1:S=1:T=120:U=160:V=30:POKE710,0:POKE752,1:X=0:J=656:POKEJ,2:GOTO10
6POKE53278,1:SOUND0,0,0,0:POKEJ,2:Y=STICK(0):IFY=11ORY=7THENT=T-(Y-9)
7POKE77,0:TRAP3:IFPEEK(53253)=0THENGOTO7-(1-STRIG(0))*4
8IFPEEK(53260)<>0ANDW=0THENX=X+1:S=-S:SOUND0,121,10,8:PLOT2+PEEK(53770)/8,PEEK(53770)/15
9IFPEEK(53253)=2ORPEEK(53253)=3THENR=-R:SOUND0,150,10,8
10W=PEEK(53260):U=U+R:V=V+S:POKEZ,T:POKEZ+1,U:Q$(V)=N$:?"TENGBYALEK73-SCORE:";X;"":GOTO6	

1GRAPHICS3:DIMF$(1),G$((INT(ADR(F$)/1024)+1)*1024-ADR(F$)-1),B$(384),M$(128),P$(128),Q$(128),N$(4):POKE705,90
2B$=CHR$(0):B$(384)=CHR$(0):B$(2)=B$:P$=B$:POKE54279,ADR(B$)/256:POKE559,46:POKE53277,3:POKE704,60:Z=53248
3COLOR1:FORI=0TO19:PLOT0,I:DRAWTO39,I:NEXTI:COLOR2:PLOT0,0:DRAWTO0,19:PLOT39,0:DRAWTO39,19:Q$=B$
4POKE53256,1:N$(1,1)=CHR$(0):N$(4,4)=CHR$(0):N$(2,2)=CHR$(24):N$(3,3)=CHR$(24):P$(17)=CHR$(255):P$(96)=CHR$(255)
5P$(18)=CHR$(126):P$(95)=CHR$(126):R=1:S=1:T=120:U=160:V=30:POKE710,0:POKE752,1:X=0:J=656:POKEJ,2:GOTO10
6POKE53278,1:SOUND0,0,0,0:POKEJ,2:Y=STICK(0):IFY=11ORY=7THENT=T-(Y-9)
7POKE77,0:TRAP3:IFPEEK(53253)=0THENGOTO7-(1-STRIG(0))*4
8IFPEEK(53260)<>0ANDW=0THENX=X+1:S=-S:SOUND0,121,10,8:PLOT2+PEEK(53770)/8,PEEK(53770)/15
9IFPEEK(53253)=2ORPEEK(53253)=3THENR=-R:SOUND0,150,10,8
10W=PEEK(53260):U=U+R:V=V+S:POKEZ,T:POKEZ+1,U:Q$(V)=N$:?"TENGBYALEK73-SCORE:";X;"":GOTO6
11POKE40528+25,6:POKE40528+26,6
12FORI=0TO255:POKE(PEEK(88)+256*PEEK(89)+I),I:NEXTI:GOTO11	

• Download link 1
• Download link 2

• Download link 1
• Download link 2