Never before you will ever have seen lobsters swim this fast.
:1→A
:-1→B
:While getKey≠105
:If A=1
:"σm
:If A=2
:" mπ
:If A=3
:" πi
:If A=4
:" im
:If A=5
:" ma
:If A=6
:" ag
:If A=7
:" ga
:Disp Ans
:If A=1 or A=7
:-B→B
:A+B→A
:End
:"σmπimaga→Str1
:1→A
:-1→B
:While getKey≠105
:sub(Str1,A,2
:If A>1
:Then
:For(X,1,A-1
:" "+Ans
:End
:End
:Disp Ans
:If A=1 or A=7
:-B→B
:A+B→A
:End
1->A
Ans->B
For(C,0,7
Disp "
End
Repeat getKey=45
Output(8,A,sub("σmπimaga",A,2
Disp "
A+B->A
If A=1 or A=7
-B->B
End
Cool. Having fun with Wabbit speed settings again, DJ? :PYup :P, I was testing the new 1% speed setting :P (it used to be 5%). It didn't make much difference, though, because key detection and menu display were too slow for me :P
How do you get to that screen where you typed in 'omnimaga'? o.oAll language apps includes those. I wonder why TI didn't make them available for english users too, through an app or program, but again a 16 KB app just to access this option may not be justified.
Ever since the first time I lost a program (Actually it was all of them, since I didn't know about archiving yet.) to a battery death, I've been replacing my batteries once every week. :P I have to buy the 144 packs to keep from getting batteries every month.Can you tell me where do you get those? O.o
Oh I was asking him because he lives in the same city as me (and close to Quebec city), just like to the extreme opposite side of it.
ClrHome
"σmπimαgα→Str1 //The "i" is the imaginary number "i"
Output(1,9,"The
Output(3,9,"Rick
Output(4,9,"Roller's
Output(6,9,"Of
Output(8,9,"Tomorrow
1→A
2→B
3→C
4→D
5→E
6→F
7→G
6→H
1→I
Ans→J
Ans→K
Ans→L
Ans→M
Ans→N
-Ans→O
Ans→P
Repeat getKey=45
Output(1,A,sub(Str1,A,2
Output(1,B,sub(Str1,B,2
Output(1,C,sub(Str1,C,2
Output(1,D,sub(Str1,D,2
Output(1,E,sub(Str1,E,2
Output(1,F,sub(Str1,F,2
Output(1,G,sub(Str1,G,2
Output(1,H,sub(Str1,H,2
A+I→A
I-2(Ans=7)+2(Ans=1→I
B+J→B
J-2(Ans=7)+2(Ans=1→J
C+K→C
K-2(Ans=7)+2(Ans=1→K
D+L→D
L-2(Ans=7)+2(Ans=1→L
E+M→E
M-2(Ans=7)+2(Ans=1→M
F+N→F
N-2(Ans=7)+2(Ans=1→N
G+O→G
O-2(Ans=7)+2(Ans=1→O
H+P→H
P-2(Ans=7)+2(Ans=1→P
Output(1,1,"________ //8 "_"
Output(2,1,"________
Output(3,1,"________
Output(4,1,"________
Output(5,1,"________
Output(6,1,"________
Output(7,1,"________
Output(8,1,"________
End
ClrHome
Output(1,1,"
Disp "
Output(8,1,Ans
or something to that effect, where you output immediately after the Disp?Here's my version. It's lightning-fast and it's only 291 bytes on-calc.Spoiler For Coder's Comments:
:ClrHome
:1→A
:1→B
:For(θ,1,8
:Disp "
:End
:While 1
:"σmπimαgα→Str1
:Output(8,A,sub(Str1,A,2
:Output(1,9,"
:Output(3,9,"
:Output(4,9,"
:Output(6,9,"
:Output(8,9,"
:Disp "
:Output(1,9,"The
:Output(3,9,"Rick
:Output(4,9,"Roller's
:Output(6,9,"of
:Output(8,9,"Tomorrow
:A+B→A
:If A=7 or A=1
:-B→B
:End
Generated by SourceCoder (http://sc.cemetech.net), © 2005-2010 Cemetech (http://www.cemetech.net)
ClrHome
1→A
Ans→B
For(Θ,1,7
Disp "
End
Repeat 0
Output(8,A,sub("σmπimαgα",A,2
For(C,1,8
Output(C,9,"________
End
Disp "
Output(1,9,"The
Output(3,9,"Rick
Output(4,9,"Roller's
Output(6,9,"Of
Output(8,9,"Tomorrow
A+B→A
If A=7 or A=1
-B→B
End
Oh, sorry, I forgot, I only used the "Never Gonna" parts.
nice meishe, I wonder how I didn't think of using for( to clear the RRoT part?
not sure if I cheated... but here is my solution. Run ZZZZZ2 to start it, and it will auto go into ZZZZZ3, afterwards you can just run ZZZZZ3.Spoiler For Spoiler:
:ClrHome
:":→Str4
:"OMNIMAGA→Str1
:" *--++--* →Str2
:"THE RICK ROLLER'S OF TOMARROW→Str3
:{1,2,3,4,5,6,7,6→L1
:6→A
:‾1→B
:For(D,1,14
:For(C,1,8
:Str4+sub(sub(Str2,1,L1(C))+sub(Str1,L1(C),2)+sub(Str2,L1(C)+3,8-L1(C)),2,8)+sub(Str3,8(C-1)+1,8→Str4
:End
:A+B→A
:If A=7 or A=1
:‾B→B
:augment(DeltaList(cumSum(L1)),{A→L1
:Output(3,1,sub("[===============",1,D+1
:Output(3,16,"]
:End
:sub(Str4,2,1792→Str4
:prgmZZZZZ3
Prgm ZZZZZ3:ClrHome
:0→A
:Ans→B
:While 1
:Output(1,1,sub(Str4,128A+1,128
:A+1→A
:If A=13
:0→A
:End
Wow, that works really well (no flickers :)). And fast! :D (Except the loading, but that doesn't matter much.)
EDIT: Sizes:
ZZZZZ2 346 < Small...
ZZZZZ3 65 < Wow, even smaller...
Str4 1803 < ...