I'm an evil double poster, oh yes I am~!
Code: If Tmin>0 and Z=1:Then:ClrDraw:RecallPic Pic1:For(F,4,14:Line(4,F,90,F,0:End:For(F,15,30:Line(0,F,94,F,0:End:"0ZBD":prgmZRS:{94,0,3,27:prgmTEMP:prgmZC1:"rowSwap(ZAN"->Str0:0->theta:35->Tmax:35->A:For(F,3,6:If 0<L1(F:Then:L1(F:prgmZCE:Tmax+6->Tmax:Text(35+6(F=4)+12(F=5)+18(F=6),9,Str9:Text(35+6(F=4)+12(F=5)+18(F=6),70+4(1-int(log(L1(F+16)))),L1(F+16:Text(35+6(F=4)+12(F=5)+18(F=6),78,"/",L1(F+20:End:End:5->W:While W=5:Text(A,5,">":getKey->K:If K:Text(A,5," ":A+6((K=34 and A<Tmax)-(K=25 and A>35->A:If K=31:Then:ClrDraw:1->W:End:If K=21:Then:For(F,4,14:Line(4,F,90,F,0:End:For(F,15,30:Line(0,F,94,F,0:End:RecallPic Pic1:If A=35:Then:If L1(19)>=L1(23:Then:Text(47,4,"ETHER INEFFECTIVE":prgmZWT:1->W:End:If L1(19)<L1(23:Then:Text(47,4,"USED ETHER!":10+L1(19->L1(19:If L1(19)>L1(23:L1(23->L1(19:prgmZWT:1.5->W:End:For(F,4,14:Line(4,F,90,F,0:End:End:If A=41:Then:If L1(20)>=L1(24:Then:Text(47,4,"ETHER INEFFECTIVE!":prgmZWT:1->W:End:If L1(20)<L1(24:Then:Text(47,4,"USED ETHER!":prgmZWT:10+L1(20->L1(20:If L1(20)>L1(24:L1(24->L1(20:1.5->W:End:For(F,4,14:Line(4,F,90,F,0:End:End:If A=47:Then:If L1(21)>=L1(25:Then:Text(47,4,"ETHER INEFFECTIVE!":prgmZWT:1->W:End:If L1(21)<L1(25:Then:Text(47,4,"USED ETHER!":10+L1(21->L1(21:If L1(21)>L1(25:L1(25->L1(21:prgmZWT:1.5->W:End:For(F,4,14:Line(4,F,90,F,0:End:End:If A=53:Then:If L1(22)>=L1(26:Then:Text(47,4,"ETHER INEFFECTIVE!":prgmZWT:1->W:End:If L1(22)<L1(26:Then:Text(47,4,"USED ETHER!":10+L1(22->L1(22:If L1(22)>L1(26:L1(26->L1(22:prgmZWT:1.5->W:End:For(F,4,14:Line(4,F,90,F,0:End:End:End:End:End:If iPart(W)=1:Return:If (Tmin>0 and Z>1) or Tmin=0:Then:For(F,0,30:Line(0,F,94,F,0:End:"0ZBD":prgmZRS:{94,0,3,27:prgmTEMP:prgmZC1:"|LP"+sub("123456",|LPRTY(Z),1)->Str7:35->A:35->Tmax:4->theta:"ZTMP2"->Str0:prgmZCE:3->theta:prgmZCE:"0"+sub(Str9,1,1)+"theta:"+sub(Str9,2,1)+"rowSwap(ZAN"+sub(Str9,2,1)+sub(Str9,1,1)+"Str0:For(F,3,6:If 0<"+Str7+"(F:Then:"+Str7+"(F:prgmZCE:Tmax+6"+sub(Str9,1,1)+"Tmax:Text(35+6(F=4)+12(F=5)+18(F=6),9,Str9:Text(35+6(F=4)+12(F=5)+18(F=6),70+4(1-int(log("+Str7+"(F+16)))),"+Str7+"(F+16:Text(35+6(F=4)+12(F=5)+18(F=6),78,"+sub(Str9,2,1)+"/"+sub(Str9,2,1)+","+Str7+"(F+20:End:End:5"+sub(Str9,1,1)+"W:While W=5:Text(A,5,"+sub(Str9,2,1)+">"+sub(Str9,2,1)+":getKey"+sub(Str9,1,1)+"K:If K:Text(A,5,"+sub(Str9,2,1)+" "+sub(Str9,2,1)+":A+6((K=34 and A<Tmax)-(K=25 and A>35"+sub(Str9,1,1)+"A:If K=31:Then:ClrDraw:1"+sub(Str9,1,1)+"W:End:If K=21:Then:For(F,0,30:Line(0,F,94,F,0:End:RecallPic Pic2:For(F,0,17):Line(0,F,94,F,0):End:"+sub(Str9,2,1)+"0ZBD"+sub(Str9,2,1)+":prgmZRS:{94,0,3,15:prgmTEMP:prgmZC1:If A=35:Then:If "+Str7+"(19)>="+Str7+"(23:Then:Text(47,4,"+sub(Str9,2,1)+"ETHER INEFFECTIVE!"+sub(Str9,2,1)+":prgmZWT:1"+sub(Str9,1,1)+"W:End:If "+Str7+"(19)<"+Str7+"(23:Then:Text(47,4,"+sub(Str9,2,1)+"USED ETHER!"+sub(Str9,2,1)+":prgmZWT:10+"+Str7+"(19"+sub(Str9,1,1)+Str7+"(19:If "+Str7+"(19)>"+Str7+"(23:"+Str7+"(23"+sub(Str9,1,1)+Str7+"(19:1.5"+sub(Str9,1,1)+"W:End:End:If A=41:Then:If "+Str7+":(20)<"+Str7+"(24:Then:Text(47,4,"+sub(Str9,2,1)+"ETHER INEFFECTIVE!"+sub(Str9,2,1)+":prgmZWT:1"+sub(Str9,1,1)+"W:End:If "+Str7+"(20)<"+Str7+"(24:Then:Text(47,4,"+sub(Str9,2,1)+"USED ETHER!"+sub(Str9,2,1)+":prgmZWT:10+"+Str7+"(20"+sub(Str9,1,1)+Str7+"(20:If "+Str7+"(20)>"+Str7+"(24:"+Str7+"(24"+sub(Str9,1,1)+Str7+"(20:1.5"+sub(Str9,1,1)+"W:End:End:If A=47:Then:If "+Str7+"(21)<"+Str7+"(25:Then:Text(47,4,"+sub(Str9,2,1)+"ETHER INEFFECTIVE!"+sub(Str9,2,1)+":prgmZWT:1"+sub(Str9,1,1)+"W:End:If "+Str7+"(21)<"+Str7+"(25:Then:Text(47,4,"+sub(Str9,2,1)+"USED ETHER!"+sub(Str9,2,1)+":prgmZWT:10+"+Str7+"(21"+sub(Str9,1,1)+Str7+"(21:If "+Str7+"(21)>"+Str7+"(25:"+Str7+"(25"+sub(Str9,1,1)+Str7+"(21:1.5"+sub(Str9,1,1)+"W:End:End:If A=53:Then:If "+Str7+"(22)<"+Str7+"(26:Then:Text(47,4,"+sub(Str9,2,1)+"ETHER INEFFECTIVE!"+sub(Str9,2,1)+":prgmZWT:1"+sub(Str9,1,1)+"W:End:If "+Str7+"(22)<"+Str7+"(26:Then:Text(47,4,"+sub(Str9,2,1)+"USED ETHER!"+sub(Str9,2,1)+":prgmZWT:10+"+Str7+"(22"+sub(Str9,1,1)+Str7+"(22:If "+Str7+"(22)>"+Str7+"(26:"+Str7+"(26"+sub(Str9,1,1)+Str7+"(22:1.5"+sub(Str9,1,1)+"W:End:End:End:End"->Str9:1->theta:"ZTMP2"->Str0:1:prgmZCE:prgmZTMP2:6->theta:"ZTMP2"->Str0:prgmZCE:End
The issue I've run into is it Error Syntax'es on the End"->Str9 bit there towards the end of the code. Everything before "If (Tmin>0 and Z>1) or Tmin=0:Then:" works.
Edit:
Code: If Tmin>0 and Z=1:Then:
ClrDraw:RecallPic Pic1:
For(F,4,14:Line(4,F,90,F,0:
End:
For(F,15,30:Line(0,F,94,F,0:
End:
"0ZBD":prgmZRS:{94,0,3,27:prgmTEMP:prgmZC1:"rowSwap(ZAN"->Str0:0->theta:35->Tmax:35->A:
For(F,3,6:
If 0<L1(F:Then:
L1(F:prgmZCE:Tmax+6->Tmax:Text(35+6(F=4)+12(F=5)+18(F=6),9,Str9:Text(35+6(F=4)+12(F=5)+18(F=6),70+4(1-int(log(L1(F+16)))),L1(F+16:Text(35+6(F=4)+12(F=5)+18(F=6),78,"/",L1(F+20:
End:
End:
5->W:
While W=5:
Text(A,5,">":getKey->K:If K:Text(A,5," ":A+6((K=34 and A<Tmax)-(K=25 and A>35->A:
If K=31:Then:ClrDraw:1->W:
End:
If K=21:Then:
For(F,4,14:Line(4,F,90,F,0:
End:
For(F,15,30:Line(0,F,94,F,0:
End:
RecallPic Pic1:
If A=35:Then:
If L1(19)>=L1(23:Then:
Text(47,4,"ETHER INEFFECTIVE":prgmZWT:1->W:
End:
If L1(19)<L1(23:Then:Text(47,4,"USED ETHER!":10+L1(19->L1(19:If L1(19)>L1(23:L1(23->L1(19:prgmZWT:1.5->W:
End:
For(F,4,14:Line(4,F,90,F,0:
End:
End:
If A=41:Then:
If L1(20)>=L1(24:Then:
Text(47,4,"ETHER INEFFECTIVE!":prgmZWT:1->W:
End:
If L1(20)<L1(24:Then:
Text(47,4,"USED ETHER!":prgmZWT:10+L1(20->L1(20:If L1(20)>L1(24:L1(24->L1(20:1.5->W:
End:
For(F,4,14:Line(4,F,90,F,0:
End:
End:
If A=47:Then:
If L1(21)>=L1(25:Then:
Text(47,4,"ETHER INEFFECTIVE!":prgmZWT:1->W:
End:
If L1(21)<L1(25:Then:
Text(47,4,"USED ETHER!":10+L1(21->L1(21:If L1(21)>L1(25:L1(25->L1(21:prgmZWT:1.5->W:
End:
For(F,4,14:Line(4,F,90,F,0:
End:
End:
If A=53:Then:
If L1(22)>=L1(26:Then:
Text(47,4,"ETHER INEFFECTIVE!":prgmZWT:1->W:
End:
If L1(22)<L1(26:Then:
Text(47,4,"USED ETHER!":10+L1(22->L1(22:If L1(22)>L1(26:L1(26->L1(22:prgmZWT:1.5->W:
End:
For(F,4,14:Line(4,F,90,F,0:
End:
End:
End:
End:
End:
If iPart(W)=1:Return:
-------------------------------------------------------------
If (Tmin>0 and Z>1) or Tmin=0:Then:
For(F,0,30:Line(0,F,94,F,0:
End:
"0ZBD":prgmZRS:{94,0,3,27:prgmTEMP:prgmZC1:"|LP"+sub("123456",|LPRTY(Z),1)->Str7:35->A:35->Tmax:4->theta:"ZTMP2"->Str0:prgmZCE:3->theta:prgmZCE:"0"+sub(Str9,1,1)+"theta:"+sub(Str9,2,1)+"rowSwap(ZAN"+sub(Str9,2,1)+sub(Str9,1,1)+"Str0:
For(F,3,6:
If 0<"+Str7+"(F:Then:
"+Str7+"(F:prgmZCE:Tmax+6"+sub(Str9,1,1)+"Tmax:Text(35+6(F=4)+12(F=5)+18(F=6),9,Str9:Text(35+6(F=4)+12(F=5)+18(F=6),70+4(1-int(log("+Str7+"(F+16)))),"+Str7+"(F+16:Text(35+6(F=4)+12(F=5)+18(F=6),78,"+sub(Str9,2,1)+"/"+sub(Str9,2,1)+","+Str7+"(F+20:
End:
End:
5"+sub(Str9,1,1)+"W:
While W=5:
Text(A,5,"+sub(Str9,2,1)+">"+sub(Str9,2,1)+":getKey"+sub(Str9,1,1)+"K:If K:Text(A,5,"+sub(Str9,2,1)+" "+sub(Str9,2,1)+":A+6((K=34 and A<Tmax)-(K=25 and A>35"+sub(Str9,1,1)+"A:
If K=31:Then:ClrDraw:1"+sub(Str9,1,1)+"W:
End:
If K=21:Then:
For(F,0,30:Line(0,F,94,F,0:
End:
RecallPic Pic2:
For(F,0,17):Line(0,F,94,F,0):
End:
"+sub(Str9,2,1)+"0ZBD"+sub(Str9,2,1)+":prgmZRS:{94,0,3,15:prgmTEMP:prgmZC1:
If A=35:Then:
If "+Str7+"(19)>="+Str7+"(23:Then:
Text(47,4,"+sub(Str9,2,1)+"ETHER INEFFECTIVE!"+sub(Str9,2,1)+":prgmZWT:1"+sub(Str9,1,1)+"W:
End:
If "+Str7+"(19)<"+Str7+"(23:Then:
Text(47,4,"+sub(Str9,2,1)+"USED ETHER!"+sub(Str9,2,1)+":prgmZWT:10+"+Str7+"(19"+sub(Str9,1,1)+Str7+"(19:If "+Str7+"(19)>"+Str7+"(23:"+Str7+"(23"+sub(Str9,1,1)+Str7+"(19:1.5"+sub(Str9,1,1)+"W:
End:
End:
If A=41:Then:
If "+Str7+":(20)<"+Str7+"(24:Then:
Text(47,4,"+sub(Str9,2,1)+"ETHER INEFFECTIVE!"+sub(Str9,2,1)+":prgmZWT:1"+sub(Str9,1,1)+"W:
End:
If "+Str7+"(20)<"+Str7+"(24:Then:
Text(47,4,"+sub(Str9,2,1)+"USED ETHER!"+sub(Str9,2,1)+":prgmZWT:10+"+Str7+"(20"+sub(Str9,1,1)+Str7+"(20:If "+Str7+"(20)>"+Str7+"(24:"+Str7+"(24"+sub(Str9,1,1)+Str7+"(20:1.5"+sub(Str9,1,1)+"W:
End:
End:
If A=47:Then:
If "+Str7+"(21)<"+Str7+"(25:Then:
Text(47,4,"+sub(Str9,2,1)+"ETHER INEFFECTIVE!"+sub(Str9,2,1)+":prgmZWT:1"+sub(Str9,1,1)+"W:
End:
If "+Str7+"(21)<"+Str7+"(25:Then:
Text(47,4,"+sub(Str9,2,1)+"USED ETHER!"+sub(Str9,2,1)+":prgmZWT:10+"+Str7+"(21"+sub(Str9,1,1)+Str7+"(21:If "+Str7+"(21)>"+Str7+"(25:"+Str7+"(25"+sub(Str9,1,1)+Str7+"(21:1.5"+sub(Str9,1,1)+"W:
End:
End:
If A=53:Then:
If "+Str7+"(22)<"+Str7+"(26:Then:
Text(47,4,"+sub(Str9,2,1)+"ETHER INEFFECTIVE!"+sub(Str9,2,1)+":prgmZWT:1"+sub(Str9,1,1)+"W:
End:
If "+Str7+"(22)<"+Str7+"(26:Then:
Text(47,4,"+sub(Str9,2,1)+"USED ETHER!"+sub(Str9,2,1)+":prgmZWT:10+"+Str7+"(22"+sub(Str9,1,1)+Str7+"(22:If "+Str7+"(22)>"+Str7+"(26:"+Str7+"(26"+sub(Str9,1,1)+Str7+"(22:1.5"+sub(Str9,1,1)+"W:
End:
End:
End:
End"->Str9:1->theta:"ZTMP2"->Str0:1:prgmZCE:prgmZTMP2:6->theta:"ZTMP2"->Str0:prgmZCE:
End
I wonder how badly this will break Cemetech? :p