I come bearing gifts of headaches and suffering:
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:0->Tmax:35->A:If 0<L1(3:Then:L1(3:prgmZCE:35->Tmax:Text(35,9,Str9:Text(35,70+4(1-int(log(L1(19)))),L1(19:Text(35,78,"/",L1(23:End:If 0<L1(4:Then:L1(4:prgmZCE:41->Tmax:Text(41,9,Str9:Text(41,70+4(1-int(log(L1(20)))),L1(20:Text(41,78,"/",L1(24:End:If 0<L1(5:Then:L1(5:prgmZCE:47->Tmax:Text(47,9,Str9:Text(47,70+4(1-int(log(L1(21)))),L1(21:Text(47,78,"/",L1(25:End:If 0<L1(6:Then:L1(6:prgmZCE:53->Tmax:Text(53,9,Str9:Text(53,70+4(1-int(log(L1(22)))),L1(22:Text(53,78,"/",L1(26: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,0:End:"0ZBD":prgmZRS:{94,0,3,27:prgmTEMP:prgmZC1:"|LP"+sub("123456",|LPRTY(Z),1)->Str7:35->A:0->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:If 0<"+Str7+"(3:Then:"+Str7+"(3:prgmZCE:35"+sub(Str9,1,1)+"Tmax:Text(35,9,Str9:Text(35,70+4(1-int(log("+Str7+"(19)))),"+Str7+"(19:Text(35,78,"+sub(Str9,2,1)+"/"+sub(Str9,2,1)+","+Str7+"(23:End:If 0<"+Str7+"(4:Then:"+Str7+"(4:prgmZCE:41"+sub(Str9,1,1)+"Tmax:Text(41,9,Str9:Text(41,70+4(1-int(log("+Str7+"(20)))),"+Str7+"(20:Text(41,78,"+sub(Str9,2,1)+"/"+sub(STr9,2,1)+","+Str7+"(24:End:If 0<"+Str7+"(5:Then:"+Str7+"(5:prgmZCE:47"+sub(Str9,1,1)+"Tmax:Text(47,9,Str9:Text(47,70+4(1-int(log("+Str7+"(21)))),"+Str7+"(21:Text(47,78,"+sub(Str9,2,1)+"/"+sub(Str9,2,1)+","+Str7+"(25:End:If 0<"+Str7+"(6:Then:"+Str7+"(6:prgmZCE:53"+sub(Str9,1,1)+"Tmax:Text(53,9,Str9:Text(53,70+4(1-int(log("+Str7+"(22)))),"+Str7+"(22:Text(53,78,"+sub(Str9,2,1)+"/"+sub(Str9,2,1)+","+Str7+"(26: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:End"->Str9:1->theta:"ZTMP2"->Str0:1:prgmZCE:prgmZTMP2:6->theta:"ZTMP2"->Str0:prgmZCE:End
This is the code currently that deals with Ether. It alone is 3569 bytes in size.