Nom : PONG2
Version : 1.0
Taille : 437 octets
Développeur : Hakan Sener
Date de création : 18/01/2012
Langage de programmation : Ti-Basic
Plateformes : Ti 82/83/84
Captures d'écran :
Code source : Pong.8xp
:iPart(rand2→B :iPart(rand2→D :If B=0:‾1→Z :If B=1:1→Z :If D=0:‾1→O :If D=1:1→O :4→A :4→C :8→X :4→Y :Lbl 0 :ClrHome :Output(A,1,"! :Output(A+1,1,"! :Output(C,16,"I :Output(C+1,16,"I :Output(Y,X,"O :getKey→K :If K=105:Then : Output(1,7,"PAUSE") : Output(7,2,"HTTP://A.SENER" : Output(8,4,".FREE.FR/") : Pause :End :If K=25 and C-1≠0:C-1→C :If K=21 and A-1≠0:A-1→A :If K=41 and A+2≠9:A+1→A :If K=34 and C+2≠9:C+1→C :X+Z→X :Y+O→Y :If X=1:Goto 1 :If X=16:Goto 2 :If Y=1:1→O :If Y=8:‾1→O :If X=2 and A=Y or X=2 and A+1=Y : 1→Z :If X=15 and C=Y or X=15 and C+1=Y:‾1→Z :Goto 0 :ClrHome :Lbl 1 :Output(4,4,"WINNER -->" :Goto Q :Lbl 2 :Output(4,4,"<-- WINNER") :Lbl Q :Pause :ClrHome :Output(1,1," :Stop