0 Members and 2 Guests are viewing this topic.
rand^5+1->X[0102030405]->L1"ABCDEF"->Str13*x-2->Y.perform Substring operation on array pointed to by Str1. .Be careful to handle the case where the starting location is greater than 3, as will often happen if X can vary between 1 and 5For(X,1,20)End.no need for ipart in Axe, since Decimals aren't supported.5->A
And what is:if X=1 and Y≥2:ThenendArt_of_camelot: I'll try it!
if X=1 and Y≥2:ThenEnd would beIf X=1 and (Y≥2)End
also use code tags [ code] [/ code] w/o the spaces
randInt(1,5)→Xmax(rand^6,1)→X
sub("ABCDEF",3X-2,3)→Str1
Data(65,66,67,68,69,70)→Str1A // Note that 65 is the ASCII value for 'A', 66 for 'B', and so on.Zeros(4)→Str1For(A,0,3){3*X-3+A+Str1A}→{A+Str1}End
:.FORCEATT:ClrDraw:Circle(15,15,10:Circle(80,15,10:Text(57,10,(„DEF“):Text(57,75,(“OFF”):Line(25,15,30,10:Line(70,15,65,10:Line(30,10,45,10:Line(65,10,50,10:Line(45,10,47,8:Line(50,10,48,8:Line(30,7,65,7:Line(30,7,28,0:Line(65,7,67,0:Line(5,15,0,10:Line(90,15,95,10:rand^1+101→F:For(U,1,F:If U≥0 and (U≤9):-3→Q:If U>99:3→Q:If U≥10 and (U≤99):0→Q:Text(-1,44,10-Q,U:End:rand^1+101→N:For(U,1,N:If U≥0 and (U≤9):-3→Q:If U>99:3→Q:If U≥10 and (U≤99):0→Q:Text(-1,44,75-Q,U:End:Line(36,60,58,60:Pt-On(35,62:Pt-On(35,61:Pt-On(59,62:Pt-On(59,61:Line(89,29,89,61:Line(89,29,93,29:Line(94,29,94,61:Line(89,61,4,61:Line(91,U,92,U:Pause 5000