Atari 8-bit Source code

1DIMP4$(40):P4$="h@idd@`":GOSUB20000
10FORG3=DLTODLS:F3(G3)=DL:NEXTG3:K4=K4+DL:IFK4=DLTHEN4000
11Y3=DL:Z3=DL:GOTO5010
30H3=USR(ADR(I3$),ADR(J3$),LEN(J3$),K3):RETURN
70H3=USR(ADR(L3$),K3):RETURN
80M3$="d":N3=ASC(M3$(DLS,DLS)):J3$=M3$:RETURN
81O3$="":RETURN
82O3$="BBZZZZBB":RETURN
83O3$="<<BBZZZZBB<<":RETURN
84O3$="<<$$$$<<":RETURN
85O3$="":RETURN
91P3$="((TT":RETURN
92Q3$="..":RETURN
500GOSUBB2:POKEB3,DL:POKES2,9:R3=R:U3=R3:D4=DL:F4=DL:POKE82,DLS
600S3=INT((S3+PADDLE(DL)-I2)/20)*-DL:T3=INT((T3+PADDLE(DL)-I2)/20)*-DL:G4=S3:H4=T3
606IFF4>=DLANDS3<DLTHENS3=F4-0.2
607IFF4<=DLANDS3>DLTHENS3=F4+0.2
608IFD4>=DLANDT3<DLTHENT3=D4-0.2
609IFD4<=DLANDT3>DLTHENT3=D4+0.2
620F4=S3:D4=T3:U3=U3+S3:R3=R3+T3:X3=DL:IFO4>R3THENX3=O4-R3
630IFR3>O4THENX3=X3+R3-O4
635IFW3>U3THENX3=X3+W3-U3
640IFU3>W3THENX3=X3+U3-W3
645X3=X3*DLS:IFX3>W2THENX3=W2
650L4=X3/SL:IFX3<=DLSTHENX3=DL
655IFL4>14THENL4=14
660SOUNDDL,X3,SL,L4:IFPEEK(X2)<>DLTHENPOKEX2,DL:POKEY2,W2:SOUNDDL,DL,DL,DL:GOTODL
670IFU3<QTHENU3=Q
672IFU3>Q2THENU3=Q2
674IFR3<PTHENR3=P
676IFR3>P2THENR3=P2
680Z3=Z3+SL:POKEZ2,DL:?"",,Z3:GOSUBV:J3$(DLS,DLS)=CHR$(R3):POKET2,U3:H3=USR(ADR(I3$),ADR(J3$),LEN(J3$),K3)
702H3=USR(ADR(I3$),ADR(O3$),LEN(O3$),K3):POKEU2,120+(3.0500000000000003*G4)
710H3=USR(ADR(I3$),ADR(P3$),LEN(P3$),K3)
720Q3$(DLS,DLS)=CHR$(98+H4*4.3):H3=USR(ADR(I3$),ADR(Q3$),LEN(Q3$),K3)
800GOTO600
4000GRAPHICS0:?:?:POKE752,1:POKE710,0:?:?:?:?:?"TILTER"
4020REMTILTER
4032FORG3=DLTODLSSTEPSL:SOUNDDL,C,SL,G3:SETCOLORDL,DL,G3:NEXTG3
4034FORG3=DLSTOSLSTEP-SL:SOUNDDL,C,SL,G3:SETCOLORDL,DL,G3:NEXTG3
4036FORG3=SLTODLSTEP-SL:SOUNDDL,C,SL,G3:SETCOLORDL,G3*SL,DLS:SETCOLORSL,G3*11,DLS:NEXTG3
4080GRAPHICSDL:SETCOLORDLS,SL,DL:POKED2,DLS:POKEB3,DL
4100POKE82,DL:?:?:?"TILTERrequirestiming":?:?"andcoordination.Theobjectof"
4120?:?"thegameistogettheballinto":?:?"anincreasinglysmallerhole.":?:?,"Simpleenough?"
4160?:?"Theballisonanimaginary":?:?"planeinmemory.Tocontrolthe"
4180?:?"movement,simplytilttheplane.":?:?"Notsosimpleafterall.":GOSUBA
4220?"":POKED2,DLS:?:?"Thetiltiscontrolledby":?:?"twopaddles.Tiltgaugesare"
4240?:?"providedattherightandat":?:?"thebottomofthegameboard."
4300?:?"Atimeraddsthefourth":?:?"dimensionandamethodby"
4320?:?"whichtorateyourskill.":?:?,"GoodLuck.":GOSUBA
5000DIMM3$(J),I3$(C2),L3$(D),J3$(J),O3$(J),P3$(J),Q3$(J)
5010GRAPHICSSL:A4=PEEK(106)-J:POKE559,62:POKE54279,A4
5020POKE704,28:POKE705,184:POKE706,120:POKE707,120
5060K3=(A4+DLS)*256:L3$="hhh`":GOSUBV
5080I3$="hhhhhhhe`"
5100POKE53277,SL:SETCOLORDLS,DL,DL:SETCOLORDL,DLS,SL:SETCOLORDL,DL,SL:COLORDLS:PLOTSL,SL
5110DRAWTOK2,SL:DRAWTOK2,X:DRAWTOSL,X:DRAWTOSL,SL:PLOTR,Y:DRAWTOG2,Y:DRAWTOG2,A2
5130PLOTR,Y:DRAWTOR,A2:PLOTT,Y:DRAWTOT,Z:PLOTU,Y:DRAWTOU,A2:PLOTW,Y:DRAWTOW,Z
5170PLOTY,Y:DRAWTOY,A2:PLOTB2,Y:DRAWTOB2,Z:PLOTE2,Y:DRAWTOE2,A2:PLOTF2,Y:DRAWTOF2,Z
5210PLOTL2,D:DRAWTOL2,N:DRAWTOO2,N:PLOTL2,M:DRAWTOM2,M:PLOTL2,L:DRAWTON2,L
5240PLOTL2,K:DRAWTOM2,K:PLOTL2,J:DRAWTON2,J:PLOTL2,H:DRAWTOM2,H
5270PLOTL2,D:DRAWTOO2,D
5299S3=INT(RND(DL)*R+R):POKET2,S3:W3=INT(RND(DL)*B2+B2):GOSUBV:GOSUBB2:GOSUBC2+Y3
5320O3$(DLS,DLS)=CHR$(W3):W3=ASC(O3$(DLS,DLS)):POKE53249,W3:GOSUB91:P3$(DLS,DLS)=CHR$(R2):POKEU2,J2
5321O4=ASC(O3$(DLS,DLS))
5322GOSUBG2:Q3$(DLS,DLS)=CHR$(124):POKEV2,R2:GOTO500
8000FORG3=DLTOB:NEXTG3:RETURN
9000H3=USR(ADR(P4$)):FORG3=DLTOB:POKED3,W2:NEXTG3:POKED2,DLS:?:?"Pressanykeytocontinue"
9010IFPEEK(D3)<>W2ORPEEK(Z2)<>SLTHENPOKED3,W2:RETURN
9020GOTO9010
10000?:?:?,"";Z3:FORG3=T2TOV2:POKEG3,DL:NEXTG3:SOUNDDL,DL,DL,DL
10010POKEX2,DL:POKEY2,W2
11000Y3=Y3+DL:F3(Y3)=Z3:Z3=DL:IFY3<DLSTHENGOSUBA:?:?:?:?
11100IFY3=DLSTHEN15000
11200GOTO5299
15000P4$(28,28)=CHR$(40)
15100FORG3=DLTODLS:H3=USR(ADR(P4$)):NEXTG3:GRAPHICSDL:SETCOLORDLS,E,DL:POKEB3,DL:P4$(28,28)=CHR$(100)
15120?:?:?,"":?,"|SCORES|":?,""
15130FORG3=200TODLSTEP-SL:SOUNDDL,G3,SL,DLS:NEXTG3:SOUNDDL,DL,DL,DL
15140?:?,"GAME1=";F3(DL):SOUNDDL,F3(DL),DLS,DLS:GOSUBF
15150?:?,"GAME2=";F3(DLS):SOUNDDL,F3(DLS),DLS,DLS:GOSUBF
15160?:?,"GAME3=";F3(SL):SOUNDDL,F3(SL),DLS,DLS:GOSUBF
15170?:?,"GAME4=";F3(DLS):SOUNDDL,F3(DLS),DLS,DLS:GOSUBF
15180?:?,"GAME5=";F3(DLS):SOUNDDL,F3(DLS),DLS,DLS:GOSUBF:B4=F3(DL)+F3(DLS)+F3(SL)+F3(DLS)+F3(DLS)
15200?:?,"SCORE=";B4:IFB4>49THENPOSITIONSL,G:?"YOUNEEDPRACTICE":GOTOA3
15220IFB4>39THENPOSITIONSL,G:?"YOUCANDOBETTER":GOTOA3
15240IFB4>24THENPOSITIONDLS,G:?"AVERAGE":GOTOA3
15260IFB4>14THENPOSITIONSL,G:?"VERYGOOD":GOTOA3
15280IFB4>9THENPOSITIONSL,G:?"EXCELLENT":GOTOA3
15300POSITION16,G:?"SUPER"
15500FORG3=SLTODLSTEP-0.5:FORN3=DLTOSLSTEPDLS:SOUNDDL,N3,DLS,G3:NEXTN3:NEXTG3
15510POSITIONSL,B:?"PRESSTOEND":POSITIONSL,21:?"PRESSTOREPLAY"
15520IFPEEK(Z2)=SLTHENPOKES2,SL:GRAPHICSDL:GOTO15600
15530IFPEEK(Z2)=DLSTHENGOTOSL
15550POKEC3,SL:POKEC3,DLS:GOTO15520
15600SOUNDDL,N,SL,SL:FORG3=DLTOB:NEXTG3:SOUNDDL,DL,DL,DL:FORG3=DLTOSL:NEXTG3
15640SOUNDDL,S,SL,SL:FORG3=DLTOSL:NEXTG3:SOUNDDL,DL,DL,DL:FORG3=DLTODLS:NEXTG3
15680SOUNDDL,S,SL,SL:FORG3=DLTOSL:NEXTG3:SOUNDDL,DL,DL,DL:FORG3=DLTODLS:NEXTG3
15720SOUNDDL,57,SL,SL:FORG3=DLTOB:NEXTG3:SOUNDDL,DL,DL,DL:FORG3=DLTOSL:NEXTG3
15760SOUNDDL,S,SL,SL:FORG3=DLTOB:NEXTG3:SOUNDDL,DL,DL,DL:FORG3=DLTOL:NEXTG3
15800SOUNDDL,O,SL,SL:SOUNDDL,47,SL,DLS:SOUNDDLS,37,SL,DLS:SOUNDSL,31,SL,C4:FORG3=DLTOE:NEXTG3
15820GOSUBE3:FORG3=DLTOSL:NEXTG3:SOUNDDL,N,SL,SL:SOUNDDL,45,SL,DLS:SOUNDDLS,35,SL,DLS:SOUNDSL,I,SL,DLS
15860FORG3=DLTOL:NEXTG3:GOSUBE3:POKED2,DLS:GRAPHICSDL:END
15900FORG3=DLTOSL:SOUNDG3,DL,DL,DL:NEXTG3:RETURN
20000DATA0,1,2,4,5,6,3,7,10,10000,8,0.1,0.2,12,14,9000,20,23,24,15,8000,18,28,29,32,36,40,44,48,51,54,56
20002DATA60,63,64,68,70,72,75,76,78,79,80,81,82,84,88,92,100,115,120,143,144,146,147,148,176,186,196
20004DATA201,53248,53250,53251,255,53261,53278,53279,15500,752,755,764,15900
21000READDL,DL,DLS,DLS,DLS,DLS,SL,SL,SL,DL,SL,SL,SL,SL,DLS,A,B,C,D,E,F,G,H,I
21002READJ,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z,A2,B2,C2,D2,E2,F2
21004READG2,H2,I2,J2,K2,L2,M2,N2,O2,P2,Q2,R2,S2,T2,U2,V2,W2,X2
21006READY2,Z2,A3,B3,C3,D3,E3
21010DIMF3(DLS):RETURN	

• Download link 1

• Download link 1
• Download link 2