Flecha izquierda: Tecla 24 (◀) Flecha arriba: Tecla 25 (▲) Flecha derecha: Tecla 26 (▶) Espacio: Tecla 105 (ENTER) Q: Modo realista W: Modo turbo
PROGRAM:CF23 :Disp "F Feliz Cumpleaños C" :Disp "e u" :Disp "l Feliz Cumpleaños m" :Disp "i p" :Disp "z Feliz Cumpleaños l" :Disp " e" :Pause :s=20 :hy=10 :vy=0 :vx=0 :zC=1 :Cr=0 :Cl=0 :DispG :While 5==5 :s→so :hy→hyo :flo=-20 :If getKy==25 :Then :Cu=2 :Else :Cu=0 :End :If getKy==24 :Then :If vx>-10 :Then :Cl=2 :zC=-1 :Else :Cl=0 :End :End :If getKy==26 :Then :If vx<10 :Then :Cr=2 :zC=1 :Else :Cr=0 :End :If hy≤flo :Then :If vy>0 :vy=0 :flo→hy :Ny=1 :If getKy==105 :Cu=10 :Else :Ny=0 :If getKy==105 :Cu=0 :End :vy+Cu+Ny-1→vy :hy+vy→hy :If vx==0 :Then :z=0 :Else :If vx==abs (vx) :Then :z=1 :Else :z=-1 :End :End :ax=zC*abs (Cr-Cl)-(z*Ny) :vx+ax→vx :s+vx→s :PtOff(so/10,hyo/10) :PtOn(s/10,hy/10) :End
