Alright, I made a few weeks ago a Guitar Hero, also I find it's working really smoothly and the way I want it to work, I have had friends telling me that it was not fast enough. So I am calling for your help on making the program run even faster ! :D
Feel free to copy the program of course.
:3→θ :Output(2,1,"--------------- :Output(8,2,"-- -- -- -- -- :For(I,3,8 :For(J,1,16,3 :Output(I,J,"! :End:End :DelVar XDelVar ∟GDelVar S :Output(1,5,"SCORE : :Lbl 2 :Output(1,12,S :Output(1,1,θ :If no(θ:Goto G // Lbl G being the game over :X+1→X :Ans→dim(∟G :randInt(1,5→∟G(X :For(I,3,7 :If X+2>I :Output(I,3∟G(X+2-I)-1," // 2 spaces :If X+3>I :Output(I,3∟G(X+3-I)-1,"** :End :getKey→K :If X>6:Then :If K=10+∟G(X-5 :Then:S+1→S :Else:θ-1→θ :End:End :Goto 2