Atari 8-bit Source code

5POKE82,%0:POKE731,%1:GRAPHICS17:SW=19:SH=23:POKE709,223:POKE710,208:POKE711,%2:POKE712,208:DEG
10BX=%1:BY=SH/%2:BA=%0:BS=%0:DX=SW-%1:DY=SH/%2:DS=0.5:SC=%0:GOSUB90:COLOR%0:PLOT%0,SH:?#6;"start>up^downV";
35K=PEEK(764):POKE764,255:IFK=142ANDBA>-75:BA=BA-15:ENDIF:IFK=143ANDBA<75:BA=BA+15:ENDIF:IFK=135:BS=1:ENDIF
40IFBS>0THENBX=BX+COS(BA)*BS:BY=BY+SIN(BA)*BS:DX=DX+(DX<BX)*DS-(DX>BX)*DS:DY=DY+(DY<BY)*DS-(DY>BY)*DS
45IFBX>=SW:SC=SC+%1:BX=%1:BY=SW/%2:GOSUB95:ENDIF:IFBY<=%1:BY=%1:ENDIF:IFBY>=SH:BY=SH:ENDIF
65COLOR%0:PLOTBXI,BYI:PLOTDXI,DYI:IFK=28THENEND
70GOSUB90:IFBXI=DXIANDBYI=DYITHENSC=SC-%1:DX=SW-%2:DY=SH/%2:GOSUB95
75POSITION%0,%0:?#6;"SCORE:";SC;"A:";BA;"";:COLOR64:PLOTBXI,BYI:COLOR100:PLOTDXI,DYI:PAUSE10:GOTO35
90BXI=INT(BX):BYI=INT(BY):DXI=INT(DX):DYI=INT(DY):RETURN
95SOUND0,144,10,10:PAUSE20:SOUND:RETURN	

• Download link 1

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