0 Members and 2 Guests are viewing this topic.
1→XRepeat K=15real(0,0real(3,X,0,0real(6Text(57,83,Xreal(8→Kmin(255,max(1,X+sum(ΔList(Ans={2,3→XEndreal(3,X,0,1
For(X,0,94For(Y,0,62Pxl-Change(Y,XEndEnd
real(12,8,0,0,04,62DispGraph
DelVar L1" →Str14→dim(L1ClrDrawClrHomeDispGraphInput "PIC: ",XRepeat sum(8,16,32ClrHomeInput "SIZE: (8,16,32) ",SEndIf S=811→LIf S=165→LIf S=322→Lreal(3,X,0,01→X1→Y0→A0→BRepeat K=54real(8→KIf not(A=X) or not(B=Y //No symbol for "not equal" on here... but use it on-calcThenA→XB→Yreal(12,8,SX,SY,SX+S-1,SY+S-1,1real(12,8,SX,SY,SX+S-1,SY+S-1,0Endmin(L,max(0,X+sum(ΔList(K={2,3→Amin(8/(S/8)-1,max(0,Y+sum(ΔList(K={4,1→BEndClrHomeDisp "LOADING...SB+S-1→MIf M>6262→MFor(Y,SB,MFor(C,0,S/8*2-1For(X,0,34C+SA+X→NIf N<95Thenpxl-Test(Y,N→L1(X+1Else0→L1(X+1EndEnd0For(X,1,4Ans+2^(X-1)L1(5-XEnddet(29,AnsStr1+Ans→Str1EndEndsub(Str1,2,length(Str1)-1→Str1If length(Str1)=60Str1+"0000→Str1If length(Str1)=248Str1+"00000000→Str1If length(Str1)=14Str1+"00→Str1ClrDrawClrHomereal(0,1Disp "","","","identity(5,Str1,0,0,S/8,S,0,0,1
"CDEFGAB→Str03→dim(L1Fill(1,L1{6,10,12,16,18,24,28,30,34,36,40,42→L20→L1→Areal(3,5,0,0real(12,7,0,24,94,62Repeat LRepeat sum(K={24,26,45getKey→KEndreal(0,0real(3,5,0,0real(12,7,0,24,94,62,0If K=45Then1→LElsemin(14,max(1,A+sum(ΔList(K={24,26→AIf A>01→L1(1If A>23→L1(1If A>45→L1(1If A>66→L1(1If A>88→L1(1If A>1010→L1(1If A>1212→L1(1sub(Str0,round(A/2,0),1If not(fPart(A/2ThenAns+" MINOR→Str9ElseAns+" MAJOR→Str9EndFor(X,2,3L1(X-1If X=2Ans+4If X=3Ans+3Ans→L1(XEndIf not(fPart(A/2L1(2)-1→L1(2ClrHomeSortA(L1For(X,1,3If 12<L1(XL1(X)-12→L1(XEndFor(X,1,3If sum(L1(X)={1,60→YIf sum(L1(X)={3,8,101→YIf sum(L1(X)={5,122→YIf sum(L1(X)={2,4,7,9,113→Yreal(1,L2(L1(X)),1,1,22,5,Y,24,3,0,1real(1,L2(L1(X))+42,1,1,22,5,Y,24,3,0,1Text(25,35,Str9EndEndEndClrDrawClrHomeOutput(1,1,"
I wonder where is the Simplethinker version anymore, though? Was it in ASM?
Strange real(8->K gives a syntax error in my TI-84+SE:real(8:Ans->K//this does not gives error