.0:
Full1
"3C72F3FFFFFF7E3C→S
0→K
31→Y
47→X
ClrDraw
Return→Z
While Y>0
55→A
randInt(0,86→C
While A>0
getKey→K
If K=2
X:-X>0:→X
If K=3
X:+X<86:→X
Rect(0,A,7,C,8
Rect(C+12,A,7,96,8
DispGraph
Sprite(8,S,Y,X,1,8
DispGraph
Y-1→Y
Y+2*pxl-Test(Y+8,X→Y
DispGraph
A-1→A
End
ClrDraw
DispGraph
Goto Z
Stop
Full1
Is the same as:Full
While Y>0
Since Grammer only has non-negative integers (0,1,2,3,4,...,65535), you can do:While Y
X+K=3
-K=2
If <86
→X
Say X=0 and you press [Left]. Then the first two lines do 0-1 which is 65535, and since 65535≥86, it isn't stored to X..0:Return
"3C72F3FFFFFF7E3C→S
31→Y
47→X
While Y=abs(Y
ClrDraw
Rect(0,55,7,96,8
randInt(0,86
Line(,55,7,12,9
For(55
getKey→K
X+K=3
-K=2
If <86
→X
Tangent(1,8 ;shift the graph buffer up 1 pixel
Sprite(10,S,Y,X ;The last two arguments can be omitted if they are 1,8
DispGraph
Sprite(10,S,Y,X
Y-!!Rect(X,Y,9,8,15→Y ;Rect(X,Y,H,W,15) is a pxl-Test( for the border.
End
End
Stop
Xeda's on the roll again! :Pyay :D
Say X=0 and you pressOh yes, terrific !. Then the first two lines do 0-1 which is 65535, and since 65535≥86, it isn't stored to X.
Ps: @Xeda: Do you still want to make a TI-83 Grammer?I +1 the question, and I hope that yes... (but this is a bit off-topic)
:.0:Return
:31→Y
:47→X
:0→L
:30→M
:1→P
:ClrDraw
:While Y=abs(Y
:Line(0,59,5,96,1
:randInt(0,86
:Line(,59,5,12,2
:1→F
:For(A,1,M
:getKey→K
:If K=10
:Full
:If K=11
:Full0
:K=3
:-K=2
:+Ans+X
:If <86: and !Line(Ans,Y,6,6,15
:→X
:If Y<52: and !Line(X,Y+6,1,6,14
:IS>(Y
:Repeat 1
:Return→Z
:Line(X,Y+1,4,6,2
:Line(X+1,Y,6,4,2
:End
:DispGraph
:prgmZ
:If P xor 1→P
:Tangent(1,8:Y-!!Line(X,Y,7,6,15→Y
:End
:If L+1→L=5: and M>14
:Then
:0→L
:M-1→M/30
:If θ': and P>0
:P-1→P
:End
:End
:Stop
:If <86: and !Line(Ans,Y,6,6,15
The "If <86" part would translate to TI-BASIC as:Quote:If <86: and !Line(Ans,Y,6,6,15
By this, do you mean "If Ans=/=0 and Ans<86:Line(Ans,etc..." ?
If Ans<86 and Ans≥0
Then Line(Ans,Y,6,6,15 is used to pixel-test the rectangular region, so !Line(Ans,Y,6,6,15 means in TI-BASIC:not(Line(Ans,Y,6,6,15 ;pretend this still pixel tests the region
Remember that ':' can be used in an If statement to separate different parts. So the line translates to::If (Ans<86 and Ans≥0) and not(Line(Ans,Y,6,6,15
I still would like to at some point, but I don't know when I would do that .__. Also, welcome blg_flg :D The code wasn't that bad. At least it worked when the bugs were fixed :)It probably depends of how large grammer is in terms of flash app page memory taken. If it fills an entire page (16 KB), then it might be fine (leaving 11 KB to the user), but if it takes 2 pages, the 82 Stats/83 only has 27 KB of memory.