Code:
DelVar |LMDelVar |LL
5->dim(|LM:5->dim(|LL::0->L
"RGUWB->Str1
Lbl M
ClrHome
max(0,L->L
max(0,|LM->|LM
sum(|LM->T
If T!=0:Then
For(X,1,5
round(L(|LM(X)/T),0->|LL(X
End
End
Output(1,1,"MTG LAND CALCULATOR
Output(2,2,"LANDS: "+eval(L
For(X,1,5
Output(X+2,2,sub(Str1,X,1)+": "+eval(|LM(X
Output(X+2,20,sub(Str1,X,1)+": "+eval(|LL(X
End
Output(8,2,"QUIT
2->A
Repeat K=105
Output(A,1,">
Repeat Ans:getKey:End
Ans->K
Output(A,1,"
A+(Ans=34)(A<8)-(Ans=25)(A>2->A
End
If A=8:Goto Q
ClrHome
A
If A=2
Input "LANDS: ",L
If A>2:Then
Input sub(Str1,A-2,1)+": ",M
M->|LM(A-2
End
Goto M
Lbl Q:ClrHome:Stop