http://learn.cemetech.net/index.php?action=history&feed=atom&title=TI-BASIC%3ASK%3APong
TI-BASIC:SK:Pong - Revision history
2026-04-18T16:41:42Z
Revision history for this page on the wiki
MediaWiki 1.43.3
http://learn.cemetech.net/index.php?title=TI-BASIC:SK:Pong&diff=1133&oldid=prev
Maintenance script: Initial automated import
2016-02-24T18:36:19Z
<p>Initial automated import</p>
<p><b>New page</b></p><div>:AxesOff:FnOff :RectGC:GridOff:LabelOff:ZStandard:ZSquare<br />
:Xmin+.5→A:"1X<br />
:Xmax-.5→B:"2X<br />
:"C/D:1/2Y<br />
:"E/F:BX/Y<br />
:2→G:2→H:"1/2W<br />
:"J/K:BVX/Y<br />
:"M:KEY<br />
:0→N:0→O:"1/2PT<br />
:"P:CPU DEST<br />
:0→Q:0→R<br />
:0→S:0→T:"1/2SV<br />
:.5→U:"P2ACC<br />
:Lbl R<br />
:0→C:0→D<br />
:0→E:0→F<br />
:Repeat J≠0:randInt(-1,1)→J:End<br />
:Repeat K≠0:randInt(-1,1)→K:End<br />
:.7J→J:.7K→K<br />
:While 1<br />
:If Q=3:F→C<br />
:min(Ymax-G,max(Ymin+G,C))→C<br />
:F+2Hrand-H→P<br />
:D+.27(P-D)→D<br />
:min(Ymax-H,max(Ymin+H,D))→D<br />
:Line(A,Ymin,A,Ymax,0)<br />
:Line(B,Ymin,B,Ymax,0)<br />
:Line(A,C-G,A,C+G)<br />
:Line(B,D-H,B,D+H)<br />
:Pt-Off(E,F)<br />
:E+J→E:F+K→F<br />
:If E>Xmax:Then<br />
:N+1→N:Goto R<br />
:End<br />
:If E<Xmin:Then<br />
:O+1→O:Goto R<br />
:End<br />
:If F>Ymax:Then<br />
:Ymax→F:-K→K<br />
:End<br />
:If F<Ymin:Then<br />
:Ymin→F:-K→K<br />
:End<br />
:If E>B and F≤D+H and F≥D-H<br />
:Then<br />
:T+1→T<br />
:B-▲X→E:-J→J<br />
:End<br />
:If E<A and F≤C+G and F≥C-G<br />
:Then<br />
:S+1→S<br />
:A+▲X→E:-J→J<br />
:End<br />
:Text(1,5,"P1:",N)<br />
:Text(56,5,"SV:",S)<br />
:Text(1,75,"P2:",O)<br />
:Text(56,75,"SV:",T)<br />
:Pt-On(E,F)<br />
:getKey→M<br />
:0→R<br />
:If M=0:1→R<br />
:If M=25:Then<br />
:C+1→C:1→I:1→R<br />
:End<br />
:If M=34:Then<br />
:C-1→C:1→I:1→R<br />
:End<br />
:If M=105:Then<br />
:ClrHome<br />
:Disp "PONG: PAUSED","{SCORE,SAVES}","PLAYER 1:",{N,S},"PLAYER 2:",{O,T},"PRESS ENTER"<br />
:Pause<br />
:1→R<br />
:End<br />
:If M=82 and Q=0<br />
:Then<br />
:1→Q:1→R<br />
:End<br />
:If M=41 and Q=1<br />
:Then<br />
:2→Q:1→R<br />
:End<br />
:If M=51 and Q=2<br />
:Then<br />
:3→Q:1→R<br />
:End<br />
:If M=45:Goto X<br />
:If R=0:0→Q<br />
:End<br />
:Lbl X<br />
:ClrHome<br />
:Disp "THANKS FOR PLAYI","NG...",""," TI-84 PONG","","PROGRAMMED"," BY SPACEMANIAC"<br />
:Pause<br />
:ClrHome<br />
:Output(1,1,""[[Category:TI-BASIC]]<br />
[[Category:TIBD]]</div>
Maintenance script