Counter http://tibasicdev.wikidot.com/forum/t-8207022/counter Posts in the discussion thread "Counter" Fri, 10 Jul 2026 10:43:55 +0000 http://tibasicdev.wikidot.com/forum/t-8207022#post-4040237 Re: Counter http://tibasicdev.wikidot.com/forum/t-8207022/counter#post-4040237 Fri, 26 Oct 2018 19:00:04 +0000 OneLetterShor 4737965 I wanted a visual representation with dots. When 10 dots are accumulated, they are removed and 1 dot is added to the row below it.

]]> http://tibasicdev.wikidot.com/forum/t-8207022#post-4036502 Re: Counter http://tibasicdev.wikidot.com/forum/t-8207022/counter#post-4036502 Wed, 24 Oct 2018 20:51:23 +0000 3338172 Here is my version:

0→A Repeat getKey A+1→A Output(1,1,Ans End
]]> http://tibasicdev.wikidot.com/forum/t-8207022#post-4036488 Counter http://tibasicdev.wikidot.com/forum/t-8207022/counter#post-4036488 Wed, 24 Oct 2018 20:34:15 +0000 OneLetterShor 4737965 
ClrHome ClrList L₁ 10→dim(L₁ Repeat getKey L₁(1)+1→L₁(1 If L₁(1)>9:Then For(A,1,10 If L₁(A)>9 and A≠10:Then 0→L₁(A L₁(A+1)+1→L₁(A+1 Output(A,1," //10 spaces End End End For(A,1,10 For(B,1,L₁(A Output(A,B,"O End End End
]]>