0 Members and 1 Guest are viewing this topic.
ClrHome"________->Str2 //8 Spaces in Str2"_ABCDEFGHIJKLMNOPQRSTUVWXYZ->Str1Ouput(1,1,"Whats your name?Output(3,1,"NAME: "+Str27->X8->dim(L1For(Y,1,81->L1(YEndRepeat K=105Output(2,X,"^ //up arrowOutput(4,X,"v //down arrowgetKey->K//Moves arrows left or rightIf K=24 or K=26ThenOutput(2,X,"_ //_ = Blank SpaceOutput(4,X,"_ //_ = Blank SpaceX+(K=26)-(K=24Ans+8(Ans=6)-8(Ans=15->XEndIf K=25 or K=34ThenL1(X-6Ans+(K=25)-(K=34Ans+27(Ans=0)-27(Ans=28->ZIf X=7Thensub(Str1,Z,1)+sub(Str2,2,7EndIf X>7 and X<14Thensub(Str2,1,X-7)+sub(Str1,Z,1)+sub(Str2,X-5,14-XEndIf X=14Thensub(Str2,1,7)+sub(Str1,Z,1EndAns->Str2Z->L1(X-6Output(3,7,Str2EndEnd//Delete all variables
If X>8 and X<14
If X>7 and X<14
nice, kinda like Illusiat 12 naming routine (also used in Illusiat 2004)
:ClrHome:1→A:"ABCDEFGHIJKLMNOPQRSTUVWXYZ →Str0:"-→Str1:8→dim(L1:Fill 1,L1:Output(1,1,"WHATS YOUR NAME?:Output(4,1,"NAME::Repeat θ=21:L[size=0]1[/size](A→B:Repeat θ=21 or θ=26 or θ=24:A+6:Output(3,Ans,":Output(5,Ans,":Output(4,Ans,sub(Str0,B,1:getKey→θ:B+(Ans=34)-(Ans=25:Ans-27((Ans=28)-not(Ans→B:End:sub(Str0,Ans,1:If θ=24:Then:" :Output(4,A+6,Ans:End:sub(Str1,1,A)+Ans→Str1:inString(Str0,sub(Ans,A+1,1→L[size=0]1[/size](A:A+6:Output(3,Ans," :Output(5,Ans," :A+(θ=26 and A≠8)-(θ=24 and A≠1→A:End:sub(Str1,2,Ans→Str1