FRTNINJA

startTmr->D
ClrHome
DelVar |LFRNXDelVar |LFRNY
SetUpEditor |LFRNX
SetUpEditor |LFRNY
real(0,1,1
"FRNBG
real(5,2,1
real(5,2,1
1->A:1->B:1->R:1->C
Repeat K=11
getKey->K
checkTmr(D->E
If E>0:Then
~1->E
If H:Then
For(F,1,dim(|LFRNY
iPart(|LFRNY(F->I
iPart(|LFRNX(F->J
abs(|E3fPart(|LFRNY(F->L
abs(|E3fPart(|LFRNX(F->M
real(7,6,I,J,L,M,1
real(7,6,I,J,L,M,1
End
DelVar H
End
End
If K:Then
20(iPart(.1K)-4->A
A+(0-A)(A<0)-1(A>119->A
(32(10fPart(.1K)))-16->B
If E>=0:Then
R+A/|E3->|LFRNX(dim(|LFRNX)+1
C+B/|E3->|LFRNY(dim(|LFRNY)+1
real(7,6,C,R,B,A,1
real(7,6,C,R,B,A,1
A->R:B->C
1->H
Else
A->R:B->C
1->H
End
If E<0:Then
startTmr->D
0->dim(|LFRNX
0->dim(|LFRNY
End
End
End