This is a program made by Ghostdm 02:08, October 12, 2010 (UTC) I made this when I was bored of Java programming one day.. :0→A :1→B :1→C :1→D :1→E :1→F :ClrHome :Output(4,4,"1 :Output(5,4,"6 8 4 2 1 :Output(6,4,"- - - - - :For(A,0,31 :getKey→K :While K=105 :getKey→K :105(not(K))→K :End :F+(not(fPart(A/16)) and not(F))-(not(fPart(A/16)) and F)→F :E+(not(fPart(A/8)) and not(E))-(not(fPart(A/8)) and E)→E :D+(not(fPart(A/4)) and not(D))-(not(fPart(A/4)) and D)→D :C+(not(fPart(A/2)) and not(C))-(not(fPart(A/2)) and C)→C :B+(not(fpart(A)) and not(B))-(not(fPart(A)) and B)→B :Output(1,1,A :Output(7,4,F :Output(7,6,E :Output(7,8,D :Output(7,10,C :Output(7,12,B :End
| Attributes | Values |
|---|
| rdfs:label
| |
| rdfs:comment
| - This is a program made by Ghostdm 02:08, October 12, 2010 (UTC) I made this when I was bored of Java programming one day.. :0→A :1→B :1→C :1→D :1→E :1→F :ClrHome :Output(4,4,"1 :Output(5,4,"6 8 4 2 1 :Output(6,4,"- - - - - :For(A,0,31 :getKey→K :While K=105 :getKey→K :105(not(K))→K :End :F+(not(fPart(A/16)) and not(F))-(not(fPart(A/16)) and F)→F :E+(not(fPart(A/8)) and not(E))-(not(fPart(A/8)) and E)→E :D+(not(fPart(A/4)) and not(D))-(not(fPart(A/4)) and D)→D :C+(not(fPart(A/2)) and not(C))-(not(fPart(A/2)) and C)→C :B+(not(fpart(A)) and not(B))-(not(fPart(A)) and B)→B :Output(1,1,A :Output(7,4,F :Output(7,6,E :Output(7,8,D :Output(7,10,C :Output(7,12,B :End
|
| dbkwik:tibasic/pro...iPageUsesTemplate
| |
| abstract
| - This is a program made by Ghostdm 02:08, October 12, 2010 (UTC) I made this when I was bored of Java programming one day.. :0→A :1→B :1→C :1→D :1→E :1→F :ClrHome :Output(4,4,"1 :Output(5,4,"6 8 4 2 1 :Output(6,4,"- - - - - :For(A,0,31 :getKey→K :While K=105 :getKey→K :105(not(K))→K :End :F+(not(fPart(A/16)) and not(F))-(not(fPart(A/16)) and F)→F :E+(not(fPart(A/8)) and not(E))-(not(fPart(A/8)) and E)→E :D+(not(fPart(A/4)) and not(D))-(not(fPart(A/4)) and D)→D :C+(not(fPart(A/2)) and not(C))-(not(fPart(A/2)) and C)→C :B+(not(fpart(A)) and not(B))-(not(fPart(A)) and B)→B :Output(1,1,A :Output(7,4,F :Output(7,6,E :Output(7,8,D :Output(7,10,C :Output(7,12,B :End All this program does is count to 31 in binary (0 - 11111). I made it when I realised I could count to 31 with 5 fingers using binary. Using ENTER key you can pause the counter and look at the binary number.
|